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