PROGRAM LISTING: 85-09/COPY130.M65
02 ; COPY130
04 ; BY ERNIE NEGUS
06 ; (c) 1985, ANTIC PUBLISHING
10 *= $2600 ;ROOM FOR DOS XL
20 JMP START
30 DBUFHI = $0305 ;O.S. EQUATES
40 DBUFLO = $0304 ;FOR OS I/O AND
50 DAUX2 = $030B ;DIRECT DISK I/O
60 DAUX1 = $030A
70 DCOMND = $0302
80 DUNIT = $0301
90 ICCOM = $0342
0100 ICBADR = $0344
0110 ICBLEN = $0348
0120 ICAUX1 = $034A
0130 ICAUX2 = $034B
0140 CARTR = $A000 ;MESSAGE AREA
0150 DES .BYTE "Destination #"
0160 FMT .BYTE "Format Destination ?"
0170 VER .BYTE "Verify Writes ?"
0180 STE .BYTE "Continue on Errors ?"
0190 RDG .BYTE $9B,"Reading..."
0200 WRT .BYTE $9B,"Writing..."
0210 IND .BYTE $9B,"Insert DESTINATION disk-Press Òåôõòî"
0220 INS .BYTE "Insert SOURCE in Drive 1-Type Òåôõòî"
0230 ANC .BYTE $9B,$FD,"Another copy ?"
0240 FRM .BYTE $9B,"Formatting..."
0250 REM .BYTE "Remove Cartridges First!",$9B
0260 O130 .BYTE "Program only runs on a 130 XE!!",$9B
0270 TIT1 .BYTE $1D," ÓÅÃÔÏÒ ÃÏÐÉÅÒ ±³° ØÅ ",$1D,$9B
0280 TIT2 .BYTE " By Ernie Negus",$1D,$1D,$1D,$9B
0290 KEY .BYTE "K:"
0300 SCR .BYTE "S:"
0310 SECNT .BYTE 0 ;VARIABLES
0320 DEST .BYTE 0 ;USED BY PROGRAM
0330 FRMT .BYTE 0
0340 SOUR .BYTE 0
0350 DCOM .BYTE 0
0360 DTEM .BYTE 0
0370 SAVA .BYTE 0
0380 VERI .BYTE 0
0390 SPEC .BYTE 0
0400 SAVSPE .BYTE 0
0410 CERR .BYTE 0
0420 DRIVE .BYTE 0
0430 BPUT LDA #$26 ;OUTPUT TEXT
0440 BPUU STA ICBADR+1 ;SUBROUTINE
0450 LDA #0
0460 STA ICBLEN+1
0470 STX ICBLEN
0480 STY ICBADR
0490 LDX #0
0500 LDA #$0B
0510 STA ICCOM
0520 JSR $E456
0530 RTS
0540 BGET LDX #$10 ;INPUT BYTE FROM
0550 LDA #7 ;KEYBOARD SUB.
0560 STA ICCOM,X
0570 LDA #0
0580 STA ICBLEN,X
0590 STA ICBLEN+1,X
0600 JSR $E456
0610 STA $0600
0620 CMP #$1B ;ESCAPE RERUNS
0630 BNE RET2 ;THE PROGRAM.
0640 PLA
0650 PLA
0660 JMP START
0670 RET2 RTS
0680 OPEN LDX #16 ;OPEN CHANNELS
0690 LDA #3 ;1 FOR KEYBOARD
0700 STA ICCOM,X ;6 FOR SCREEN.
0710 LDA # <KEY
0720 STA ICBADR,X
0730 LDA # >KEY
0740 STA ICBADR+1,X
0750 LDA #4
0760 STA ICAUX1,X
0770 JSR $E456
0780 LDX #$60
0790 LDA #3
0800 STA ICCOM,X
0810 LDA # <SCR
0820 STA ICBADR,X
0830 LDA # >SCR
0840 STA ICBADR+1,X
0850 LDA #12
0860 STA ICAUX1,X
0870 LDA #0
0880 STA ICAUX2,X
0890 JSR $E456
0900 RTS
0910 CLOSE LDX #$10 ;INSURES THOSE
0920 LDA #12 ;FILES CLOSED.
0930 STA ICCOM,X
0940 JSR $E456
0950 LDX #$60
0960 LDA #12
0970 STA ICCOM,X
0980 JSR $E456
0990 RTS
1000 START LDA CARTR ;THIS IS A
1010 INC CARTR ;CARTRIDGE TEST
1020 CMP CARTR
1030 BNE NOCARTS
1040 LDX #25
1050 LDY # <REM
1060 JSR BPUT
1070 RTS
1080 NOCARTS LDA #$E3 ;TEST FOR 130XE
1090 STA 54017 ;BY SEEING IF
1100 STA $4000 ;THE BANK SWITCH
1110 LDA #255 ;WORKS.
1120 STA 54017
1130 LDA $4000
1140 CMP #$E3
1150 BNE ITSA130
1160 LDA #255
1170 STA 54017
1180 LDX #32
1190 LDY # <O130
1200 JSR BPUT
1210 RTS ;RETURN TO DOS
1220 ITSA130 LDA #48
1230 STA 106 ;FORCE SCREEN
1240 JSR CLOSE ;RAM BELOW $4000
1250 JSR OPEN
1260 JMP BEGIN
1270 PUTO LDA #$10 ;DRAWS THE
1280 STA 11546 ;DISPLAY WINDOW
1290 STA 11547 ;ON THE SCREEN.
1300 STA 11548
1310 LDA #128
1320 STA 11543
1330 STA 11545
1340 STA 11549
1350 STA 11551
1360 LDX #0
1370 STX 11550
1380 LOOX LDA #$55 ;DRAW BORDER.
1390 STA 11503,X
1400 LDA #$D5
1410 STA 11583,X
1420 INX
1430 CPX #9
1440 BNE LOOX
1450 RTS
1460 ECHO STA $0600 ;ECHO KEY TO
1470 LDA #$9B ;SCREEN. DOES
1480 STA $0601 ;A LINE FEED.
1490 LDX #2
1500 LDY #0
1510 LDA #6
1520 JSR BPUU
1530 RTS
1540 BEGIN LDX #63 ;HERE IF 130 XE
1550 LDY # <TIT1
1560 LDA # >TIT1
1570 JSR BPUU ;PRINT TITLE
1580 LDA #0
1590 STA SPEC
1600 LDA #148
1610 STA 710
1620 STA 712
1630 LDA #12
1640 STA 709
1650 LDX #13
1660 LDY # <DES
1670 JSR BPUT
1680 LAB2 JSR BGET ;GET DEST. #
1690 CMP #'1 ;INSURE PROPER
1700 BCC LAB2 ;RANGE...
1710 CMP #'D ;DUAL DRIVE
1720 BEQ DUAL
1730 CMP #'T ;TRIPLE DRIVE
1740 BEQ TRIP
1750 CMP #'Q
1760 BEQ QUAD ;QUAD DRIVE
1770 CMP #'9 ;UPPER RANGE.
1780 BCS LAB2
1790 JMP SING
1800 QUAD LDA #4 ;USED FOR
1810 BNE MULT ;LOOPING WHEN
1820 TRIP LDA #3 ;MULTI-DEST.
1830 BNE MULT ;ENABLED.
1840 DUAL LDA #2
1850 MULT STA SPEC
1860 STA SAVSPE ;SAVE FOR
1870 LDA #'1 ;ANOTHER COPY.
1880 SING STA DEST ;USE DRIVE 1
1890 STA DRIVE ;IF MULTI-DEST.
1900 JSR ECHO
1910 LDA DEST
1920 SEC
1930 SBC #'0
1940 STA DEST
1950 LDX #20
1960 LDY # <FMT
1970 JSR BPUT
1980 JSR BGET ;FORMAT OR NOT?
1990 JSR ECHO
2000 LDA $0600
2010 STA FRMT ;SAVE ANSWER.
2020 LDX #15
2030 LDY # <VER
2040 JSR BPUT
2050 JSR BGET ;VERIFY OR NOT?
2060 JSR ECHO
2070 LDA $0600
2080 STA VERI ;SAVE ANSWER.
2090 LDA #255
2100 STA 54017
2110 LDX #20
2120 LDY # <STE ;STOP ON
2130 JSR BPUT ;ERROR?
2140 JSR BGET
2150 JSR ECHO
2160 LDA $0600
2170 STA CERR ;SAVE ANSWER
2180 LDX #36
2190 LDY # <INS
2200 JSR BPUT
2210 JSR BGET
2220 LDA $0600 ;IF 'N' INSTEAD
2230 CMP #'N ;OF RETURN, SKIP
2240 BEQ BLOOP ;THE READ.
2250 LDX #11
2260 LDY # <RDG
2270 JSR BPUT
2280 JSR PUTO ;PUT DISPLAY
2290 LDA #1 ;WINDOW UP AND
2300 STA DTEM ;READ DATA OFF
2310 LDA #0 ;OF SOURCE.
2320 STA DAUX1
2330 STA DAUX2
2340 LDA #'R ;'R' FOR READ
2350 STA DCOM
2360 LDA #255
2370 STA SECNT ;READ IN 255
2380 JSR AVOID ;SECTORS.
2390 LDA #$E3 ;ENABLE BANK 1
2400 STA 54017
2410 JSR DODISK
2420 LDA #$E7 ;ENABLE BANK 2
2430 STA 54017
2440 JSR DODISK
2450 LDA #$EB ;ENABLE BANK 3
2460 STA 54017
2470 JSR DODISK
2480 LDA #$EF ;ENABLE BANK 4
2490 STA 54017
2500 LDA #84 ;THIS TIME DO
2510 STA SECNT ;NOT USE DEFAULT
2520 JSR AVOID ;SECTOR COUNT.
2530 BLOOP LDA #255 ;THIS IS THE
2540 STA 54017 ;WRITE LOOP.
2550 LDA DEST
2560 CMP #1
2570 BNE AUTO
2580 LDX #37 ;INSERT PROMPT.
2590 LDY # <IND
2600 JSR BPUT
2610 JSR BGET
2620 AUTO LDA FRMT
2630 CMP #'Y ;DID THEY WANT
2640 BNE SKYP ;TO FORMAT?
2650 LDX #14
2660 LDY # <FRM
2670 JSR BPUT
2680 LDA #'!
2690 STA DCOMND ;SET UP FORMAT
2700 LDA DEST
2710 STA DUNIT
2720 JSR PUTO
2730 JSR GONE ;DISPLAY DRIVE #
2740 LDA #0
2750 STA DBUFLO
2760 LDA #4
2770 STA DBUFHI
2780 JSR $E453
2790 LDY #173
2800 LDA $0308
2810 BEQ SKYP
2820 LDX #'N
2830 STX CERR
2840 JSR ERRO ;REPORT ERRORS
2850 SKYP LDX #11
2860 LDY # <WRT
2870 JSR BPUT
2880 JSR PUTO ;DRAW WINDOW.
2890 LDA DEST ;BEGIN WRITING.
2900 STA DTEM
2910 LDA #0
2920 STA DAUX2
2930 STA DAUX1
2940 LDA #'W ;WRITE VERIFY?
2950 STA DCOM
2960 LDA VERI ;<THE ANSWER.
2970 CMP #'Y
2980 BEQ SKIZZ
2990 LDA #'P ;OR JUST PUT?
3000 STA DCOM
3010 SKIZZ LDA #255
3020 STA SECNT ;WRITE OWN RAM.
3030 JSR AVOID ;255 SECTORS.
3040 LDA #$E3 ;WRITE BANK 1.
3050 STA 54017
3060 JSR DODISK
3070 LDA #$E7 ;WRITE BANK 2
3080 STA 54017
3090 JSR DODISK
3100 LDA #$EB ;WRITE BANK 3
3110 STA 54017
3120 JSR DODISK
3130 LDA #$EF ;WRITE BANK 4
3140 STA 54017
3150 LDA #84 ;BUT DON'T USE
3160 STA SECNT ;DEFAULT THIS
3170 JSR AVOID ;TIME!
3180 LDA #255
3190 STA 54017 ;DISABLES BANKS
3200 LDA SPEC
3210 BEQ OVER ;MULTI-DEST?
3220 CMP #1
3230 BEQ OVER ;IF SO, DONE?
3240 STA DEST
3250 CLC
3260 ADC #'0 ;DO NEXT DRIVE
3270 STA DRIVE
3280 DEC SPEC
3290 JMP BLOOP ;UNTIL FINISHED.
3300 OVER LDX #16
3310 LDY # <ANC
3320 JSR BPUT
3330 JSR BGET ;ANOTHER COPY?
3340 JSR ECHO
3350 LDA $0600
3360 CMP #'Y
3370 BNE QUIT
3380 LDA SPEC ;YES- RESTORE
3390 BEQ JUMP ;VALUES IF MULTI
3400 LDA SAVSPE ;DESTINATION
3410 STA SPEC ;DRIVES.
3420 LDA #1
3430 STA DEST
3440 LDA #'1
3450 STA DRIVE ;(FOR FORMAT).
3460 JUMP JMP BLOOP
3470 QUIT JMP START ;RE-RUN PROGRAM
3480 DODISK LDA #127
3490 STA SECNT ;THIS SUBROUTINE
3500 AVOID LDA #$3F ;DOES THE DISK
3510 STA DBUFHI ;I/O AND KEEPS
3520 LDA #$80 ;TRACK OF THE
3530 STA DBUFLO ;MEMORY POINTERS
3540 DOSUP LDA DTEM
3550 STA DUNIT
3560 LDA DCOM
3570 STA DCOMND
3580 LOOP CLC
3590 LDA DAUX1
3600 ADC #1
3610 STA DAUX1
3620 LDA DAUX2
3630 ADC #0
3640 STA DAUX2
3650 CLC
3660 JSR INCO ;IT ALSO KEEPS
3670 LDA DBUFLO ;TRACK OF THE
3680 ADC #$80 ;SECTOR COUNTER.
3690 STA DBUFLO
3700 LDA DBUFHI
3710 ADC #0
3720 STA DBUFHI
3730 JSR $E453 ;THE O.S. CALL.
3740 CPY #1
3750 BEQ GDIO ;IF ERROR FOUND
3760 ERRO JSR RER ;DECODE IT AND
3770 STX 11550 ;DISPLAY IT IN
3780 LDA CERR
3790 CMP #'Y ;STOP ON ERROR
3800 BEQ GDIO ;UNLESS TOLD NOT
3810 PLA ;TO.
3820 PLA
3830 JMP OVER
3840 GDIO DEC SECNT ;THE RIGHT PART
3850 BNE LOOP ;OF THE DISPLAY
3860 RTS ;WINDOW.
3870 INCO LDX #3
3880 LOCO INC 11545,X
3890 LDA 11545,X ;INCREMENTS THE
3900 CMP #$1A ;SECTOR COUNTER
3910 BNE GONE ;IN THE WINDOW.
3920 LDA #$10
3930 STA 11545,X
3940 DEX
3950 BNE LOCO
3960 GONE LDA DUNIT ;ALSO DISPLAYS
3970 CLC ;THE DRIVE
3980 ADC #$10 ;CURRENTLY IN
3990 STA 11544 ;USE.
4000 RTS
4010 RER LDX #$10 ;DECODE ERRORS
4020 CPY #127 ;NON-IO ERROR
4030 BCC RETURN
4040 INX
4050 CPY #128 ;BREAK KEY ABORT
4060 BEQ RETURN
4070 INX
4080 CPY #138 ;DEVICE TIMEOUT
4090 BEQ RETURN
4100 INX
4110 CPY #139 ;NO ACKNOWLEDGE
4120 BEQ RETURN
4130 INX
4140 CPY #140 ;SERIAL BUS DATA
4150 BEQ RETURN
4160 CPY #142 ;ERRORS.
4170 BEQ RETURN
4180 CPY #143 ;DITTO
4190 BEQ RETURN
4200 INX
4210 CPY #144 ;BAD SECTOR/
4220 BEQ RETURN ;OPEN DOOR.
4230 INX
4240 CPY #145 ;BAD READ VERIFY
4250 BEQ RETURN
4260 INX
4270 CPY #163 ;DAMAGED DOS
4280 BEQ RETURN
4290 INX
4300 CPY #164 ;BAD FILE NUMBER
4310 BEQ RETURN
4320 INX
4330 CPY #173 ;BAD SECTOR
4340 BEQ RETURN ;DURING FORMAT.
4350 LDX #$10 ;NON-HANDLED ERROR
4360 RETURN RTS
4365 ;
4370 *= $02E0 ; FOR DOS 2
4380 .WORD START
4390 .END
Back to previous page