Pokey's Magazine 16

home *** CD-ROM | disk | FTP | other *** search

/ Pokey's Magazine 16 / Pokeys_Magazine_16_1992_01___nl_Side_B.atr / mdriver.src < prev next >

Wrap

Text File | 2023-02-26 | 2KB | 281 lines

* * M: DRIVER * * BY IVO VAN POORTEN (THE GATEKEEPER) * * FOR POKEY'S MAGAZINE 1991 * * RUN AT $1F75 !!! * ORG $1E00 PNT0 EPZ $E0 PNT1 EPZ $E1 CNT0 EPZ $E2 CNT1 EPZ $E3 CNTR0 EPZ $E4 CNTR1 EPZ $E5 BEGIN EQU $C000 ENAB EQU $FF DISAB EQU $FE MDRIVE DFW MOPEN-1 DFW MCLOSE-1 DFW MGET-1 DFW MPUT-1 DFW MSTATUS-1 DFW MSPEC-1 JMP MINIT MINIT RTS MOPEN LDA $2A CMP #$04 BEQ INP CMP #$08 BEQ OUTP LDY #146 * ERROR - 146 RTS OUTP LDA #BEGIN STA PNT0 LDA #BEGIN:H STA PNT1 CLC LDA PNT1 ADC $2B STA PNT1 LDA #$75 STA $02C8 LDA $D40E STA NMIENR LDA $10 STA IRQENR LDA #$00 STA $D40E STA $10 STA $D20E LDX #DISAB STX $D301 STA $FFFE STA $FFFF LDX #ENAB STX $D301 LDA IRQENR STA $10 STA $D20E LDA NMIENR STA $D40E LDY #1 RTS INP LDA #BEGIN STA PNT0 LDA #BEGIN:H STA PNT1 CLC LDA PNT1 ADC $2B STA PNT1 LDA #$35 STA $02C8 LDA $D40E STA NMIENR LDA $10 STA IRQENR LDA #$00 STA $D40E STA $10 STA $D20E LDX #DISAB STX $D301 LDA $FFFE STA CNT0 STA CNTR0 LDA $FFFF STA CNT1 STA CNTR1 LDX #ENAB STX $D301 LDA IRQENR STA $10 STA $D20E LDA NMIENR STA $D40E NOCNT1 LDY #1 RTS MCLOSE LDX #$00 STX $02C8 LDY #1 RTS MSTATUS LDY #146 RTS MSPEC LDY #146 RTS NMIENR DFB 0 IRQENR DFB 0 MGET LDY #0 LDX $D40E STX NMIENR LDX $10 STX IRQENR STY $D40E STY $10 STY $D20E LDX #DISAB STX $D301 LDA (PNT0),Y LDX #ENAB STX $D301 LDX IRQENR STX $10 STX $D20E LDX NMIENR STX $D40E CLC INC PNT0 BNE NOPNT1 INC PNT1 NOPNT1 INY TAX LDA PNT1 CMP #$D0 BNE NOSKIP LDA #$D8 STA PNT1 NOSKIP SEC LDA CNT0 SBC #$01 STA CNT0 LDA CNT1 SBC #$00 STA CNT1 LDA CNT1 CMP #0 BNE NOEOF LDA CNT0 CMP #0 BNE NOEOF LDY #$FF * ERROR > EOF NOEOF TXA RTS MPUT LDY #0 LDX $D40E STX NMIENR LDX $10 STX IRQENR STY $D40E STY $10 STY $D20E LDX #DISAB STX $D301 STA (PNT0),Y CLC INC $FFFE BNE NOFF INC $FFFF NOFF LDX #ENAB STX $D301 LDX IRQENR STX $10 STX $D20E LDX NMIENR STX $D40E CLC INC PNT0 BNE NOPNT11 INC PNT1 NOPNT11 INY TXA LDA PNT1 CMP #$D0 BNE NOSKIP2 LDA #$D8 STA PNT1 NOSKIP2 TAX RTS *********************************** TRAP LDA #$01 STA $0009 LDA #TRAP STA $000C LDA #TRAP:H STA $000D LDA #'M STA $32C LDA #MDRIVE STA $32D LDA #MDRIVE:H STA $32E JMP $283C BYTE ASC % % ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯