This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Cartridge Copier
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
Listing 1
10 *=$601 20 PMST=$9FF0 30 PMST2=$9FB8 40 PMST3=$9FB7 50 PMND=$BFFF 60 FLEM=PMND-PMST+127/128*128 70 FLEM2=PMND-PMST2+127/128*128 80 FLEM3=PMND-PMST3+127/128*128 90 FMLW=FLEM & $FF 0100 FMHG=FLEM/256 0110 FMLW2=FLEM2 & $FF 0120 FMHG2=FLEM2/256 0130 FMLW3=FLEM3 & $FF 0140 FMHG3=FLEM3/256 0150 NUMR=FLEM/128 0160 NUMR2=FLEM2/128 0170 NUMR3=FLEM3/128 0180 ICCOM=$342 0190 CIO=$E456 0200 ICAUX1=$34A 0210 ICAUX2=$34B 0220 CCLOSE=12 0230 COPN=3 0240 ICBADR=$344 0250 ICBLL=$348 0260 ICBLH=$349 0270 PACTL=$D302 0280 SCREEN=40560 0290 DOSVEC=$0A 0300 FLAG=$600 0310 BAK=$D01A 0320 CONSOL=$D01F 0330 PST .BYTE 0 0340 .BYTE PND-PST+127/128 0350 .WORD PST 0360 .WORD HERE 0370 CLC 0380 RTS 0390 HERE LDA #$3C 0400 STA PACTL 0410 RESTRT LDA #18 0420 JSR GRAPHICS 0430 LDX #0 0440 LOOP LDA DATA,X 0450 STA SCREEN,X 0460 INX 0470 CPX #95 0480 BNE LOOP 0490 LDA $BFFD 0500 STA FLAG 0510 CMP #$04 0520 BNE DISKBOOT 0530 LDX #$0 0540 LOOP2 LDA DATROUT1,X 0550 STA $9FF0,X 0560 INX 0570 CPX #16 0580 BNE LOOP2 0590 LDA $BFFA 0600 STA $9FF4 0610 LDA $BFFB 0620 STA $9FF5 0630 JMP READ 0640 DISKBOOT CMP #$05 0650 BNE DIAGNOSTIC 0660 LDX #$0 0670 LOOP3 LDA DATROUT2,X 0680 STA $9FB8,X 0690 INX 0700 CPX #72 0710 BNE LOOP3 0720 LDA $BFFA 0730 STA $9FBC 0740 LDA $BFFB 0750 STA $9FBD 0760 JMP READ 0770 DIAGNOSTIC LDX #$0 0780 LOOP4 LDA DATROUT3,X 0790 STA $9FB7,X 0800 INX 0810 CPX #73 0820 BNE LOOP4 0870 READ LDA CONSOL 0880 CMP #6 0890 BNE READ 0900 LDX #$10 0910 LDA #COPN 0920 STA ICCOM,X 0930 LDA #8 0940 STA ICAUX1,X 0950 LDA #$80 0960 STA ICAUX2,X 0970 LDA #CFILE & $FF 0980 STA ICBADR,X 0990 LDA #CFILE/256 1000 STA ICBADR+1,X 1010 JSR CIO 1020 BMI CERR 1030 LDA #$0B 1040 STA ICCOM,X 1050 LDA FLAG 1060 CMP #$04 1070 BNE DISK 1080 LDA #PMST & $FF 1090 STA ICBADR,X 1100 LDA #PMST/256 1110 STA ICBADR+1,X 1120 LDA #FMLW 1130 STA ICBLL,X 1140 LDA #FMHG 1150 STA ICBLH,X 1160 JSR CIO 1170 BMI CERR 1180 JMP CONT 1190 DISK CMP #$05 1200 BNE DIAG 1210 LDA #PMST2 & $FF 1220 STA ICBADR,X 1230 LDA #PMST2/256 1240 STA ICBADR+1,X 1250 LDA #FMLW2 1260 STA ICBLL,X 1270 LDA #FMHG2 1280 STA ICBLH,X 1290 JSR CIO 1300 BMI CERR 1310 JMP CONT 1320 DIAG LDA #PMST3 & $FF 1330 STA ICBADR,X 1340 LDA #PMST3/256 1350 STA ICBADR+1,X 1360 LDA #FMLW3 1370 STA ICBLL,X 1380 LDA #FMHG3 1390 STA ICBLH,X 1400 JSR CIO 1410 BMI CERR 1420 CONT LDA #CCLOSE 1430 STA ICCOM,X 1440 JSR CIO 1450 BMI CERR 1460 JMP READ 1470 CERR LDA #CCLOSE 1480 STA BAK 1490 BRK 1500 CFILE .BYTE "C:" 1510 DATROUT1 .BYTE 0,NUMR,$F0,$9F,0,0,$A9,$3C 1515 .BYTE $8D,$02,$D3,$20,$65,$E4,$18,$60 1520 DATROUT2 .BYTE 0,NUMR2,$B8,$06,0,0,$A9,$3C,$8D,$02 1530 .BYTE $D3,$A9,$A0,$85,$6A,$20,$F6,$F3,$20,$65,$E4,$AD,0 1540 .BYTE $07,$EE,$CE,$06,$D0,$03,$EE,$CF,$06,$8D 1550 .BYTE 0,$A0,$EE,$D9,$06,$D0,$ED,$EE,$DA,$06 1560 .BYTE $A9,$C0,$4D,$DA,$06,$D0,$E3,$A2,$0,$8E 1570 .BYTE 0,$07,$EE,$ED,$06,$D0,$F8,$EE,$EE,$06 1580 .BYTE $A9,$28,$4D,$EE,$06,$D0,$EE,$18,$60 1590 DATROUT3 .BYTE 0,NUMR3,$B7,$06,0,0,$A9,$3C,$8D,$02 1600 .BYTE $D3,$A9,$A0,$85,$6A,$20,$F6,$F3,$20,$65,$E4,$AD,$0 1610 .BYTE $07,$EE,$CD,$06,$D0,$03,$EE,$CE,$06,$8D 1620 .BYTE $0,$A0,$EE,$D8,$06,$D0,$ED,$EE,$D9,$06 1630 .BYTE $A9,$C0,$4D,$D9,$06,$D0,$E3,$A2,$00,$8E 1640 .BYTE 0,$07,$EE,$EC,$06,$D0,$F8,$EE,$ED,$06 1650 .BYTE $A9,$28,$4D,$ED,$06,$D0,$EE,$6C,$FE,$BF 1670 DATA .BYTE 0,0,0,0,0,0,0,0,0,0 1680 .BYTE 0,0,0,0,0,0,0,0,0,0 1690 .BYTE 0,0,35,33,50,52,50,41,36,39 1700 .BYTE 37,0,35,47,48,41,37,50,0,0 1710 .BYTE 0,0,0,34,57,26,0,33,44,37 1720 .BYTE 56,0,43,47,51,43,41,0,0,0 1730 .BYTE 0,0,0,0,0,0,0,0,0,0 1740 .BYTE 0,0,0,0,0,0,0,0,0,0 1750 .BYTE 0,0,0,0,0,24,43,0,54,37 1760 .BYTE 50,51,41,47,46 1770 SNAME .BYTE "S:" 1780 GRAPHICS PHA 1790 LDX #6*$10 1800 LDA #CCLOSE 1810 STA ICCOM,X 1820 JSR CIO 1830 LDX #6*$10 1840 LDA #COPN 1850 STA ICCOM,X 1860 LDA #SNAME & $FF 1870 STA ICBADR,X 1880 LDA #SNAME/256 1890 STA ICBADR+1,X 1900 PLA 1910 STA ICAUX2,X 1920 AND #$F0 1930 EOR #$10 1940 ORA #$0C 1950 STA ICAUX1,X 1960 JSR CIO 1970 RTS 1980 PND 1990 FLEN=PND-PST+127/128*128 2000 LDX #$10 2010 LDA #3 2020 STA $0342,X 2030 LDA #8 2040 STA $034A,X 2050 LDA #$80 2060 STA $034B,X 2070 LDA #CFILE & $00FF 2080 STA $0344,X 2090 LDA #CFILE/256 2100 STA $0345,X 2110 JSR $E456 2120 BMI STOP 2130 LDA #$0B 2140 STA $0342,X 2150 LDA #PST & $00FF 2160 STA $0344,X 2170 LDA #PST/256 2180 STA $0345,X 2190 LDA #FLEN & $00FF 2200 STA $0348,X 2210 LDA #FLEN/256 2220 STA $0349,X 2230 JSR $E456 2240 BMI STOP 2250 LDA #$0C 2260 STA $0342,X 2270 JSR $E456 2280 BMI STOP 2290 BRK 2300 STOP BRK 2310 .END
References
Downloads
Copyright holder