GLOBAL PREREXT FDMOTOR EQU 0DC LAMOF EQU 0FBE5 LAMSOFH: DEFB 0,0,078,0,078 LSOF: DEFB 0,0,05F,0F,06E PSOF: DEFB 0 FCNVBUF: DEFS 8+1+3+1 FFCNT: DEFB 0 FDDELAY: DEFB 0 RDBCBL: DEFB 0 RDBPTR: DEFW 0 RDBMCB: DEFB 0 RDBMPT: DEFW 0 KAPVYB: DEFW 0 PREREXT: XOR A LD HL,FDDELAY CP (HL) RET Z DEC (HL) RET NZ OUT (FDMOTOR),A RET FDOFF: PUSH AF LD A,0FF FDOFF1: LD (FDDELAY),A POP AF RET FDOFFD: PUSH AF XOR A JR FDOFF1 BRKEY: DI LD A,0F8 OUT (0D0),A IN A,(0D1) AND 081 EI RET Z BRKEY1: CALL KBDTEST JR NZ,BRKEY2 LD A,1 OR A RET BRKEY2: CALL KBDREAD CALL CPESBR JR NZ,BRKEY1 RET CPESBR: CP KODESC RET Z CP KODBRK RET LAMSOF: CALL PUAL LD DE,LAMSOFH LD A,(LAMOF) LAMSOF1: LD L,A LD H,0 LD C,L LD B,H ADD HL,HL ADD HL,HL ADD HL,BC EX DE,HL LD (HL),E INC HL LD (HL),D LD C,3 ADD HL,BC LD BC,06CF CALL CURDIS OTDR RET INISOF: CALL PUAL XOR A INISOF1: LD DE,LSOF LD (PSOF),A JR LAMSOF1 HORESOF: CALL PUAL LD A,(PSOF) ADD A,8 CP 098 JR C,HORESOF1 XOR A HORESOF1: CALL SETEOP HORESOF2: CALL INISOF1 CALL SETBOL JP CLREOL DOLESOF: CALL PUAL LD A,(PSOF) SUB 8 JR NC,DOLESOF1 LD A,090 DOLESOF1: CALL SETBOP JR HORESOF2 RDDSK: CALL PUA BDOS DRNUM RET RDUSER: CALL PUA LD E,0FF RDUSER1: BDOS DUSER RET STUSER: CALL PUAL AND 0F LD E,A JR RDUSER1 STDISK: CALL PUAL AND 0F LD E,A PUSH AF BDOS DSELDSK POP AF LD (04),A RET