1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 15:08:05 +11:00
collapseos/blk/324

14 lines
218 B
Plaintext
Raw Normal View History

CODE PC! EXX, ( protect BC )
BC POP,
HL POP,
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,
2020-04-23 11:19:12 +10:00
chkPS,
H 0 LDri,
2020-04-23 11:19:12 +10:00
L INr(C),
HL PUSH,
EXX, ( unprotect BC ) ;CODE