2020-07-06 13:12:17 +10:00
|
|
|
CODE PC! EXX, ( protect BC )
|
2020-08-23 22:38:04 +10:00
|
|
|
BC POP, HL POP, chkPS,
|
2020-04-23 11:19:12 +10:00
|
|
|
L OUT(C)r,
|
2020-07-06 13:12:17 +10:00
|
|
|
EXX, ( unprotect BC ) ;CODE
|
2020-04-23 11:19:12 +10:00
|
|
|
|
2020-07-06 13:12:17 +10:00
|
|
|
CODE PC@ EXX, ( protect BC )
|
2020-08-23 22:38:04 +10:00
|
|
|
BC POP, chkPS,
|
2020-06-28 12:01:56 +10:00
|
|
|
H 0 LDri,
|
2020-04-23 11:19:12 +10:00
|
|
|
L INr(C),
|
2020-06-28 12:01:56 +10:00
|
|
|
HL PUSH,
|
2020-07-06 13:12:17 +10:00
|
|
|
EXX, ( unprotect BC ) ;CODE
|