From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/common/words/num-constants.asm | 51 ++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 amforth-6.5/common/words/num-constants.asm (limited to 'amforth-6.5/common/words/num-constants.asm') diff --git a/amforth-6.5/common/words/num-constants.asm b/amforth-6.5/common/words/num-constants.asm new file mode 100644 index 0000000..88d1449 --- /dev/null +++ b/amforth-6.5/common/words/num-constants.asm @@ -0,0 +1,51 @@ +.if cpu_msp430==1 + HEADER(XT_ZERO,1,"0",DOCON) + DW 0 +.endif + +.if cpu_msp430==1 + HEADER(XT_ONE,1,"1",DOCON) +.endif + +.if cpu_avr8==1 +VE_ONE: + .dw $ff01 + .db "1",0 + .dw VE_HEAD + .set VE_HEAD = VE_ONE +XT_ONE: + .dw PFA_DOVARIABLE +PFA_ONE: +.endif + .DW 1 + +.if cpu_msp430==1 + HEADER(XT_TWO,1,"2",DOCON) +.endif + +.if cpu_avr8==1 +VE_TWO: + .dw $ff01 + .db "2",0 + .dw VE_HEAD + .set VE_HEAD = VE_TWO +XT_TWO: + .dw PFA_DOVARIABLE +PFA_TWO: +.endif + .DW 2 +.if cpu_msp430==1 + HEADER(XT_MINUSONE,2,"-1",DOCON) +.endif + +.if cpu_avr8==1 +VE_MINUSONE: + .dw $ff02 + .db "-1" + .dw VE_HEAD + .set VE_HEAD = VE_MINUSONE +XT_MINUSONE: + .dw PFA_DOVARIABLE +PFA_MINUSONE: +.endif + .DW -1 -- cgit v1.2.3