mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 01:30:55 +11:00
14 lines
218 B
Plaintext
14 lines
218 B
Plaintext
CODE PC! EXX, ( protect BC )
|
|
BC POP,
|
|
HL POP,
|
|
L OUT(C)r,
|
|
EXX, ( unprotect BC ) ;CODE
|
|
|
|
CODE PC@ EXX, ( protect BC )
|
|
BC POP,
|
|
chkPS,
|
|
H 0 LDri,
|
|
L INr(C),
|
|
HL PUSH,
|
|
EXX, ( unprotect BC ) ;CODE
|