collapseos/blk/324

12 lines
217 B
Plaintext
Raw Normal View History

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