30 lines
419 B
Tal
30 lines
419 B
Tal
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
|
|
|
|
|0100
|
|
|
|
;task1 #f0 DEO2
|
|
;task2 #f2 DEO2
|
|
#0000 #f0 DEO2k INC INC DEO2
|
|
;end-txt print-text
|
|
#800f DEO
|
|
|
|
BRK
|
|
|
|
@task1 ( -> )
|
|
;t1 print-text
|
|
BRK
|
|
|
|
@task2 ( -> )
|
|
;t2 print-text
|
|
BRK
|
|
|
|
@print-text ( str* -- )
|
|
( send ) LDAk .Console/write DEO
|
|
( loop ) INC2 LDAk ?print-text
|
|
POP2
|
|
JMP2r
|
|
|
|
@t1 "AAAAAAAAAAAAAAAA 00
|
|
@t2 "BBBBBBBBBBBBBBBB 00
|
|
@end-txt 0a "Done. 0a
|