2021-04-02 00:53:41 -04:00
|
|
|
( Dev/Console )
|
2021-02-20 18:00:34 -05:00
|
|
|
|
2021-03-16 00:29:44 -04:00
|
|
|
%RTN { JMP2r }
|
|
|
|
|
2021-03-21 17:16:19 -04:00
|
|
|
( program )
|
|
|
|
|
2021-04-20 17:30:26 -04:00
|
|
|
|0100
|
2021-02-20 18:00:34 -05:00
|
|
|
|
2021-04-20 14:32:26 -04:00
|
|
|
;hello-word ;print JSR2
|
|
|
|
|
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
|
|
|
|
( send ) DUP2 PEK2 .Console/char IOW
|
2021-03-11 15:19:59 -05:00
|
|
|
( incr ) #0001 ADD2
|
2021-04-20 14:32:26 -04:00
|
|
|
( loop ) DUP2 PEK2 #00 NEQ ,&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-20 14:32:26 -04:00
|
|
|
@hello-word [ 48 65 6c 6c 6f 20 57 6f 72 6c 64 21 ]
|
2021-04-20 17:30:26 -04:00
|
|
|
|
|
|
|
( devices )
|
|
|
|
|
|
|
|
|ff10 @Console [ &pad $8 &char $1 ]
|
|
|
|
|