: LINES 24 ; : COLS 80 ; CODE BYE HL 0 LDdi, A 0x16 LDri, ( @EXIT ) 0x28 RST, CODE @DCSTAT ( drv -- f ) EXX, ( protect BC ) BC POP, chkPS, A 0x28 LDri, ( @DCSTAT ) 0x28 RST, PUSHZ, EXX, ( unprotect BC ) ;CODE
