SETD301.ASM 0100 *=$600 0110 LDX #$FF 0120 STX $D301 0130 LDA #$38 0140 STA $D303 0150 STX $D301 0160 LDA #$3C 0170 STA $D303 0180 STX $D301 0190 BRK 200 .END PIDE06.ASM 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 LOAPBI.ASM 0100 *=$600 0110 LDA #$40 0120 STA $D140 0130 LDA #$01 0140 STA $D1FF 0150 LDA #$00 0160 STA $32 0170 STA $34 0180 TAY 0190 LDA #$58 0200 STA $33 0210 LDA #$D8 0220 STA $35 0230 LP0 LDA ($32),Y 0240 STA ($34),Y 0250 INY 0260 BNE LP0 0270 INC $33 0280 INC $35 0290 LDA $35 0300 CMP #$E0 0310 BNE LP0 0320 LDA #$00 0330 STA $D140 0340 LDA #$00 0350 STA $D1FF 0360 BRK 370 .END MVRAM5.ASM 0100 ; *** MVRAM5.ASM 4/18/99 *** 0110 ; MOVES MEMORY INTO RAM 0120 ; 0130 *= $0600 0140 ; 0150 PHP 0160 SEI 0170 LDA $D40E 0180 PHA 0190 LDA #$00 0200 STA $D40E 0210 ; 0220 RAMON LDA #$C0 0230 ORA #$00 0240 STA $D140 0250 ; 0260 LDA #$00 0270 STA $CB 0280 STA $CD 0290 LDA #$C0 0300 STA $CC 0310 LDA #$40 0320 STA $CE 0330 LDX #$7D 0340 LDY #$00 0350 ; 0360 LP1 JSR MOVEPAGE 0370 BEQ COMPLETE 0380 CMP #$D0 0390 BNE LP1 0400 LDA #$50 0410 STA $CC 0420 ; 0430 LP2 JSR MOVEPAGE 0440 CMP #$58 0450 BNE LP2 0460 ; 0470 LDA #$D8 0480 STA $CC 0490 BNE LP1 0500 ; 0510 MOVEPAGE LDA #$FD 0520 STA $D301 0530 LDA ($CD),Y 0540 STX $D301 0550 STA ($CB),Y 0560 INY 0570 BNE MOVEPAGE 0580 ; 0590 INC $CE 0600 INC $CC 0610 LDA $CC 0620 RTS 0630 ; 0640 COMPLETE PLA 0650 STA $D40E 0660 PLP 0670 LDA #$FD 0680 STA $D301 0690 ; 0700 RWOFF LDA #$80 0710 STA $D140 0720 BRK 730 .END MVROM5.ASM 0100 ; *** MVRAM5.ASM 4/18/99 *** 0110 ; MOVES MEMORY INTO RAM 0120 ; 0130 *= $0600 0140 ; 0150 PHP 0160 SEI 0170 LDA $D40E 0180 PHA 0190 LDA #$00 0200 STA $D40E 0210 ; 0220 RAMON LDA #$C0 0230 ORA #$00 0240 STA $D140 0250 ; 0260 LDA #$00 0270 STA $CB 0280 STA $CD 0290 LDA #$C0 0300 STA $CC 0310 LDA #$40 0320 STA $CE 0330 LDX #$7D 0340 LDY #$00 0350 ; 0360 LP1 JSR MOVEPAGE 0370 BEQ COMPLETE 0380 CMP #$D0 0390 BNE LP1 0400 LDA #$50 0410 STA $CC 0420 ; 0430 LP2 JSR MOVEPAGE 0440 CMP #$58 0450 BNE LP2 0460 ; 0470 LDA #$D8 0480 STA $CC 0490 BNE LP1 0500 ; 0510 MOVEPAGE LDA #$FD 0520 STA $D301 0530 LDA ($CD),Y 0540 STX $D301 0550 STA ($CB),Y 0560 INY 0570 BNE MOVEPAGE 0580 ; 0590 INC $CE 0600 INC $CC 0610 LDA $CC 0620 RTS 0630 ; 0640 COMPLETE PLA 0650 STA $D40E 0660 PLP 0670 LDA #$FD 0680 STA $D301 0690 ; 0700 RWOFF LDA #$80 0710 STA $D140 0720 BRK 730 .END IDE38F.ASM 0100 ;IDE38F.ASM 04/17/99 0110 ; 0120 *=$FC98 COLDSTART 0130 JMP $E477 0140 ; 0150 *=$FC34 SELECT IDE SEG ^F1 0160 JSR SELNXTHD 0170 JMP $FC6D 0180 ; 0190 *=$FCB5 TOGGLE D2 ^F2 0200 JSR PROCD2 0210 .BYTE $EA,$EA,$EA,$EA 0220 .BYTE $EA,$EA,$EA,$EA 0230 LDA #$00 0240 ; 0250 *=$C31D KILL ROM CHKSUM 0260 NOP 0270 NOP 0280 ; 0290 *=$D700 0300 ; 0310 INITL1L2 0320 JSR FINDX 0330 JSR SETL1L2 0340 RTS 0350 ; 0360 SELNXTHD 0370 JSR FINDX 0380 JSR INCRX 0390 JSR SETL1L2 0400 RTS 0410 ; 0420 FINDX 0430 LDX #$1C 0440 NXTPARM LDA $D7BC+3,X 0450 AND #$0F 0460 BNE FOUNDX 0470 DEX 0480 DEX 0490 DEX 0500 DEX 0510 BNE NXTPARM 0520 FOUNDX RTS 0530 ; 0540 INCRX 0550 JSR WRITEON 0560 LDA $D7BC+3,X 0570 AND #$F0 0580 STA $D7BC+3,X 0590 TXA 0600 CLC 0610 ADC #$04 0620 AND #$1C 0630 TAX 0640 LDA $D7BC+3,X 0650 ORA #$01 0660 STA $D7BC+3,X 0670 JSR WRITEOFF 0680 RTS 0690 ; 0700 SETL1L2 0710 TXA 0720 LSR A 0730 LSR A 0740 AND #$0F 0750 STA $D140 0760 LDY $D301 0770 RTS 0780 ; 0790 PROCD2 0800 JSR WRITEON 0810 LDA $D7DF 0820 EOR #$02 0830 STA $D7DF 0840 JSR WRITEOFF 0850 JSR FINDX 0860 JSR SETL1L2 0870 LDY $D301 0880 RTS 0890 ; 0900 WRITEON 0910 LDA #$40 0920 STA $D140 0930 RTS 0940 ; 0950 WRITEOFF 0960 LDA #$00 0970 STA $D140 0980 RTS 0990 ; 1000 *=$D7BC 1010 .BYTE $00,$00,$00,$00 1020 HDTABL 1030 .BYTE $00,$00,$06,$01 ;1536SD 1040 .BYTE $00,$06,$06,$00 ;1536SD 1050 .BYTE $00,$0C,$06,$00 ;1536SD 1060 .BYTE $00,$12,$06,$00 ;1536SD 1070 .BYTE $00,$18,$08,$60 ;2048DD 1080 .BYTE $00,$20,$10,$60 ;4096DD 1090 .BYTE $00,$30,$10,$60 ;4096DD 1100 .BYTE $00,$40,$10,$62 ;4096DD 1110 .BYTE $00,$50,$30,$63 ;12K DD 1120 .BYTE $00,$80,$80,$64 ;32K DD 1130 .BYTE $01,$00,$FF,$65 ;64K DD 1140 .BYTE $02,$00,$FF,$66 ;64K DD 1150 .BYTE $03,$00,$FF,$67 ;64K DD 1160 .BYTE $04,$00,$FF,$68 ;64K DD 1170 .BYTE $05,$00,$FF,$60 ;64K SD 1180 .BYTE $06,$00,$FF,$60 ;64K SD 1190 END