Serious Magazine 11/Serious_Magazine_11_2002_Dial_pl_Disk_2_of_2_Side_B.atr/smartide.lzh/PIDE06.ASM

Assembly Source File | 2002-05-07 | 3KB | 1 lines

0100 ;PIDE05.ASM    4/18/99¢0110 ;¢0120  *=$D800¢0130 ;¢0140  .BYTE $00,$00,$00¢0150  .BYTE $80   ;$D803¢0160  .BYTE $00¢0170 ;¢0180  JMP SIOVECT ;$D805¢0190  JMP IRPVECT ;$D808¢0200 ;¢0210  .BYTE $91   ;$D80B¢0220  .BYTE $00,$00,$00,$00¢0230  .BYTE $00,$00,$00,$00¢0240  .BYTE $00,$00,$00,$00¢0250  .BYTE $00¢0260 ;¢0270 ;¢0280 ;$D819 - INIT VECTOR¢0290 ;¢0300 WAITHD LDA #$50¢0310  CMP $D197¢0320  BNE WAITHD¢0330 ;¢0340  LDA #$10¢0350  STA $D192¢0360  LDA #$AF¢0370  STA $D196¢0380  LDA #$91¢0390  STA $D197¢0400  LDX #$40¢0410 ;¢0420 WLP DEY¢0430  BNE WLP¢0440  DEX¢0450  BNE WLP¢0460 ;¢0462  JSR $D700¢0464 ;¢0470  LDA #$01¢0480  STA $247¢0490  RTS¢0500 ;¢0510 IRPVECT¢0520  RTS¢0530 ;¢0540 SIOVECT¢0550  LDA $D01F¢0560  AND #$02¢0570  BEQ SIO¢0580  LDA $0300¢0590  CMP #$31¢0600  BNE SIO¢0610  LDX #$3C¢0620 ;¢0630 SRCH¢0640  LDA HDTABL+3,X¢0650  AND #$0F¢0660  CMP $0301¢0670  BEQ IDECODE¢0680  DEX¢0690  DEX¢0700  DEX¢0710  DEX¢0720  BPL SRCH¢0730 ;¢0740 SIO¢0750  CLC¢0760  RTS¢0770 ;¢0780 IDECODE¢0790 LPBZY LDA $D197¢0800  AND #$80¢0810  BNE LPBZY¢0820 ;¢0830  LDA $0302¢0840  CMP #$53¢0850  BEQ STATUSCMD¢0860  CMP #$21¢0870  BEQ FORMATCMD¢0880  CMP #$22¢0890  BEQ FORMATCMD¢0900  CMP #$52¢0910  BEQ READCMD¢0920  CMP #$57¢0930  BEQ WRTCMD¢0940  CMP #$50¢0950  BEQ WRTCMD¢0960  CMP #$4E¢0970  BEQ STATUSCMD¢0980 ;¢0990 CMDREJ¢1000  LDA #$01¢1010  STA $02EA¢1020  LDA #$8B¢1030 ;¢1040 RETURN¢1050  STA $0303¢1060  TAY¢1070  SEC¢1080  RTS¢1090 ;¢1100 STATUSCMD¢1110  LDA HDTABL+3,X¢1120  AND #$F0¢1130  STA $02EA¢1140  STA $0308¢1150  STA $0309¢1160 ;¢1170 CLRSTATUS¢1180  LDA #$01¢1190  BNE RETURN¢1200 ;¢1210 FORMATCMD¢1220  LDA $0304¢1230  STA $0032¢1240  LDA $0305¢1250  STA $0033¢1260  LDA #$FF¢1270  LDY #$00¢1280  STA ($32),Y¢1290  INY¢1300  STA ($32),Y¢1310  BNE STATUSCMD¢1320 ;¢1330 READCMD¢1340  JSR SETREGS¢1350  BCS CMDREJ¢1360  LDA #$20¢1370  STA $D197¢1380  LDY #$00¢1390 LP1 LDA $D197¢1400  AND #$80¢1410  BNE LP1¢1420 RDLP LDA $D197¢1430  AND #$08¢1440  BEQ RDLP¢1450  LDA $D190¢1460  STA ($32),Y¢1470  INY¢1480  CPY $308¢1490  BNE RDLP¢1500 ENDRD LDA $D190¢1510  LDA $D197¢1520  AND #$08¢1530  BNE ENDRD¢1540  BEQ CLRSTATUS¢1550 ;¢1560 WRTCMD¢1570  JSR SETREGS¢1580  BCS CMDREJ¢1590  LDA #$30¢1600  STA $D197¢1610  LDY #$00¢1620 LP2 LDA $D197¢1630  AND #$80¢1640  BNE LP2¢1650 WRTLP LDA $D197¢1660  AND #$08¢1670  BEQ WRTLP¢1680  LDA ($32),Y¢1690  STA $D190¢1700  INY¢1710  BNE WRTLP¢1720  BEQ CLRSTATUS¢1730 ;¢1740 SETREGS¢1750  LDA $0304¢1760  STA $0032¢1770  LDA $0305¢1780  STA $0033¢1790  LDA $030A¢1800  AND #$0F¢1810  CLC¢1820  ADC #$01¢1830  STA $D193¢1840  LDA $030A¢1850  AND #$F0¢1860  LSR A¢1870  LSR A¢1880  LSR A¢1890  LSR A¢1900  ORA #$A0¢1910  STA $D196¢1920  LDA $030B¢1930  CMP HDTABL+2,X¢1940  BCS SECTERR¢1950  ADC HDTABL+1,X¢1960  STA $D194¢1970  LDA HDTABL,X¢1980  ADC #$00¢1990  STA $D195¢2000  LDA #$01¢2010  STA $D192¢2020  CLC¢2030 SECTERR RTS¢2040 ;¢2050  *=$D7C0¢2060 HDTABL¢2070 ;¢2250  .END¢