35 lines
376 B
Plaintext
35 lines
376 B
Plaintext
( tests/cond )
|
|
|
|
%RTN { RSW2 JMP2 }
|
|
%RTN? { CLN2 JMP2? }
|
|
|
|
|0100 @RESET
|
|
|
|
#00 #d0
|
|
|
|
$loop NOP
|
|
( incr ) SWP #01 ADD SWP
|
|
DUP2 LTH ^$loop SWP JMP?
|
|
POP =Console.byte
|
|
|
|
,routine JSR2
|
|
|
|
BRK
|
|
|
|
@routine
|
|
|
|
|
|
CLN2 JMP2
|
|
|
|
#aa
|
|
|
|
|
|
RTN
|
|
|
|
|c000 @FRAME
|
|
|d000 @ERROR
|
|
|
|
|FF00 ;Console { pad 8 char 1 byte 1 short 2 }
|
|
|
|
|FFF0 .RESET .FRAME .ERROR ( vectors )
|
|
|FFF8 [ 13fd 1ef3 1bf2 ] ( palette ) |