2021-04-21 12:09:18 -04:00
|
|
|
( dev/console )
|
2021-02-20 18:00:34 -05:00
|
|
|
|
2021-03-16 00:29:44 -04:00
|
|
|
%RTN { JMP2r }
|
|
|
|
|
|
2021-04-21 08:45:17 -04:00
|
|
|
( devices )
|
|
|
|
|
|
|
|
|
|
|10 @Console [ &pad $8 &char $1 ]
|
|
|
|
|
|
2021-04-24 04:30:36 -04:00
|
|
|
( variables )
|
|
|
|
|
|
|
|
|
|
|0000
|
|
|
|
|
|
|
|
|
|
@number [ &started $1 ]
|
|
|
|
|
|
2021-04-21 12:48:04 -04:00
|
|
|
( init )
|
2021-04-21 08:45:17 -04:00
|
|
|
|
2021-04-21 12:48:04 -04:00
|
|
|
|0100 ( -> )
|
2021-02-20 18:00:34 -05:00
|
|
|
|
2021-04-20 14:32:26 -04:00
|
|
|
;hello-word ;print JSR2
|
2021-04-24 04:30:36 -04:00
|
|
|
#ffff ;print-hexadecimal JSR2
|
|
|
|
|
;is-word ;print JSR2
|
|
|
|
|
#ffff ;print-decimal JSR2
|
2021-04-20 14:32:26 -04:00
|
|
|
|
2021-02-20 18:00:34 -05:00
|
|
|
BRK
|
|
|
|
|
|
2021-04-20 14:32:26 -04:00
|
|
|
@print ( addr -- )
|
2021-03-11 15:19:59 -05:00
|
|
|
|
2021-04-20 14:32:26 -04:00
|
|
|
&loop
|
2021-04-21 14:12:42 -04:00
|
|
|
( send ) DUP2 GET .Console/char DEO
|
2021-03-11 15:19:59 -05:00
|
|
|
( incr ) #0001 ADD2
|
2021-04-24 04:30:36 -04:00
|
|
|
( loop ) DUP2 GET ,&loop JNZ
|
2021-02-23 16:49:36 -05:00
|
|
|
POP2
|
2021-03-01 11:55:16 -05:00
|
|
|
|
2021-04-20 14:32:26 -04:00
|
|
|
RTN
|
2021-02-20 18:00:34 -05:00
|
|
|
|
2021-04-24 04:30:36 -04:00
|
|
|
@print-hexadecimal ( short -- )
|
|
|
|
|
LIT '0 .Console/char DEO
|
|
|
|
|
LIT 'x .Console/char DEO
|
|
|
|
|
DUP2 #000c SFT2 ,&digit JSR
|
|
|
|
|
DUP2 #0008 SFT2 ,&digit JSR
|
|
|
|
|
DUP2 #0004 SFT2 ,&digit JSR
|
|
|
|
|
,&digit JSR
|
|
|
|
|
RTN
|
|
|
|
|
|
|
|
|
|
&digit
|
|
|
|
|
#0f AND DUP #0a LTH ,¬-alpha JNZ
|
|
|
|
|
#27 ADD
|
|
|
|
|
¬-alpha
|
|
|
|
|
LIT '0 ADD .Console/char DEO
|
|
|
|
|
POP
|
|
|
|
|
RTN
|
|
|
|
|
|
|
|
|
|
@print-decimal ( short -- )
|
|
|
|
|
#00 .number/started POK
|
|
|
|
|
DUP2 #2710 DIV2 DUP2 ,&digit JSR #2710 MUL2 SUB2
|
|
|
|
|
DUP2 #03e8 DIV2 DUP2 ,&digit JSR #03e8 MUL2 SUB2
|
|
|
|
|
DUP2 #0064 DIV2 DUP2 ,&digit JSR #0064 MUL2 SUB2
|
|
|
|
|
DUP2 #000a DIV2 DUP2 ,&digit JSR #000a MUL2 SUB2
|
|
|
|
|
,&digit JSR
|
|
|
|
|
.number/started PEK ,&end JNZ
|
|
|
|
|
LIT '0 .Console/char DEO
|
|
|
|
|
&end
|
|
|
|
|
RTN
|
|
|
|
|
|
|
|
|
|
&digit
|
|
|
|
|
SWP POP
|
|
|
|
|
DUP .number/started PEK ORA #02 JNZ
|
|
|
|
|
POP JMP2r
|
|
|
|
|
LIT '0 ADD .Console/char DEO
|
|
|
|
|
#01 .number/started POK
|
|
|
|
|
RTN
|
|
|
|
|
|
|
|
|
|
@hello-word "hello 20 "World! 0a 00
|
|
|
|
|
@is-word 20 "is 20 00
|
|
|
|
|
|
