2020-06-07 10:37:00 -04:00
|
|
|
: LINES 24 ; : COLS 80 ;
|
|
|
|
CODE BYE
|
2020-06-27 22:01:56 -04:00
|
|
|
HL 0 LDdn,
|
|
|
|
A 0x16 LDri, ( @EXIT )
|
|
|
|
0x28 RST,
|
2020-05-01 14:38:31 -04:00
|
|
|
CODE @DCSTAT ( drv -- f )
|
2020-06-27 22:01:56 -04:00
|
|
|
BC POP,
|
2020-04-30 16:10:35 -04:00
|
|
|
chkPS,
|
2020-06-27 22:01:56 -04:00
|
|
|
A 0x28 LDri, ( @DCSTAT )
|
|
|
|
0x28 RST,
|
2020-04-30 16:10:35 -04:00
|
|
|
PUSHZ,
|
|
|
|
;CODE
|