NAM USE HARD DISK FOR 6800 25 APR 82 OPT PAG * HARD DISK PATCH FOR 6800 * MICHAEL HOLLEY APR 1982 WARMS EQU $AD03 MEMEND EQU $AC2B PSTRNG EQU $AD1E * HARD DISK ROUTINES DREAD EQU $7100 READ SECTOR DWRITE EQU $7103 WRITE SECTOR FLEXJ EQU $BE80 FLEX JUMP TABLE CURDRV EQU $BE95 CURRENT DRIVE ORG $A100 START LDX #$6FFF STX MEMEND LDX READ+1 CHECK IF ALREADY PATCHED CPX #DREAD BNE PATCH LDX #PATERR JMP EXIT ************************************** * PATCH DRIVERS PATCH LDX FLEXJ+1 FLEX JUMP TABLE STX READ+1 LDX FLEXJ+4 STX WRITE+1 LDX FLEXJ+7 STX VERIFY+1 LDX #EREAD STX FLEXJ+1 LDX #EWRITE STX FLEXJ+4 LDX #EVRFY STX FLEXJ+7 LDX #MSG EXIT JSR PSTRNG JMP WARMS PATERR FCC /ERROR - HARD DISK ALREADY INSTALLED/ FCB $D,$A,0,0,0,4 MSG FCC "5 INCH HARD DISK INSTALLED" FCB $0D,$0A,00,00,00,04 ********************************** * ELECTRONIC DISK ROUTINES ORG $7600 READ FCB $7E,$00,$00 WRITE FCB $7E,$00,$00 VERIFY FCB $7E,$00,$00 XTEMP FDB 0000 * DRIVE 3 IS EDISK EDISK PSH A LDA A CURDRV CMP A #$03 PUL A RTS * READ SECTOR EREAD BSR EDISK BNE READ EREAD1 JMP DREAD * WRITE SECTOR EWRITE BSR EDISK BEQ EWRIT1 JMP WRITE EWRIT1 JMP DWRITE * VERIFY EVRFY BSR EDISK BEQ EVRFY1 JMP VERIFY EVRFY1 CLR B RTS END START