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 Return"
0220 INS .BYTE "Insert SOURCE in Drive 1-Type Return"
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,"        SECTOR COPIER 130 XE   ",$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