collapseos/blk/324

14 lines
218 B
Plaintext
Raw Normal View History

CODE PC! EXX, ( protect BC )
BC POP,
HL POP,
2020-04-22 21:19:12 -04:00
L OUT(C)r,
EXX, ( unprotect BC ) ;CODE
2020-04-22 21:19:12 -04:00
CODE PC@ EXX, ( protect BC )
BC POP,
2020-04-22 21:19:12 -04:00
chkPS,
H 0 LDri,
2020-04-22 21:19:12 -04:00
L INr(C),
HL PUSH,
EXX, ( unprotect BC ) ;CODE