Т > COPYROM/src 0.01 "Т 0.01 05-Feb-2015 J.G.Harston : (#Рassem(0):ь:Рassem(2):Рsm_table 2FA$="*SAVE "+fname$+" "+ц~(mcode%+M%)+" "+ц~O%+" FFFF0000 FFFBBC00" <ЯA$;:ЪA$:Я FЮ P: ZщРassem(pass%) d4fname$="COPYROM" :Т Saved filename n/title$="COPY" :Т ROM title x:vers$="0.01 (01 Jan 2015)" :Т ROM version and date ┌7copy$="(C)J.G.Harston" :Т Copyright message ▄: √ver%=╩vers$*10 ═ч mcode% &4800,L% -1 ╙*OSASCI=&FFE3:OSNEWL=&FFE7:OSWRCH=&FFEE Є: ЎЦ pass%=pass% ╦ pass%+1 хopt%=єsm_pass(pass%) р [OPT opt% э .RomStart ФBRK:EQUW RelocTable ПJMP Service З$EQUB &82:EQUB Copyright-RomStart .RomTitle EQUB ver%:EQUS title$ EQUB &00 :EQUS vers$ ".Copyright ,EQUB &00:EQUS copy$ 6EQUB &00 @: J.Service T)CMP #4:BEQ Serv4 :\ *command ^*CMP #9:BNE NotServ9 :\ Not *Help hLDA (&F2),Y r/CMP #13:BNE Serv9Skip :\ Not *Help |JSR OSNEWL:LDX #0 ├.Serv9Lp ░0LDA RomTitle+1,X :\ Print ROM title 3BNE P%+4:LDA #≈" " :\ Convert &00 to є)CMP #≈"(":BEQ Serv9Done :\ End at '(' ўJSR OSWRCH:INX:BNE Serv9Lp ╦.Serv9Done бJSR OSNEWL л.Serv9Skip ж LDA #9 Ю .NotServ9 ЙRTS Т: Ч .Serv4 TYA:PHA:DEY:LDX #&FF .Serv4Lp INX:INY:LDA (&F2),Y &CMP #≈".":BEQ Serv4Dot 0CMP #≈"!":BCC Serv4End :8CMP RomTitle+1,X:BEQ Serv4Lp :\ Match with ROM title D-┌ #&20 :\ Change case N8CMP RomTitle+1,X:BEQ Serv4Lp :\ Match with ROM title X.Serv4Quit b-PLA:TAY :\ Restore Y l.Serv4Exit vBLDA #4:RTS :\ Restore A and return unclaimed ─ .Serv4End ┼"LDA RomTitle+1,X:BNE Serv4Quit ■DEY · .Serv4Dot ╗1INY:LDA (&F2),Y :\ Step past '.' ╡1CMP #≈" ":BEQ Serv4Dot :\ Skip any spaces ╪: ф\ (&F2),Y => any parameters п:JSR CheckCopyCommand :\ Pre-parse command line з: H: R9LDA #0:RTS :\ Claim call and return \: f: p<\ Check command parameters to check for DFS *COPY syntax z<\ ------------------------------------------------------ └3\ Returns A=0 DFS "*COPY d d name" syntax ▌>\ A<>0 Generic "*COPY name name (options)" syntax ≤\ ╒.CheckCopyCommand ╛4TYA:PHA :\ Save line pointer І9JSR chkdigit:BCS newcopy :\ COPY x x<>digit юPHA йDJSR chkspc:BCS newcopy1 :\ COPY nxxxx 1st param not drive тPLA ч4CMP (&F2),Y:BEQ newcopy :\ COPY x y x=y Х9JSR chkdigit:BCS newcopy :\ COPY x y y<>digit РKJSR chkspc:BCS newcopy :\ COPY n nxxxx 2nd param not drive number ЭBCMP #≈" ":BCC newcopy :\ COPY x y only two parameters /LDX #2 :\ option count .loop LDA (&F2),Y $>CMP #≈"~":BEQ newcopy :\ COPY x y ...~... copy option .DCMP #≈"*":BEQ oldcopy :\ COPY x y ..*.... wildcard filename 8DCMP #≈"#":BEQ oldcopy :\ COPY x y ...#... wildcard filename BACMP #≈".":BEQ oldcopy :\ COPY x y xxx.xxx directory name LCMP #≈" ":BNE chknext VEDEX:BEQ newcopy :\ COPY x y zzz zzz multiple options `JSR skipspc j.chknext tINY:CMP #13:BNE loop ~.oldcopy ┬6PLA:TAY:LDA #0:RTS :\ DFS COPY parameters ▓ .newcopy1 °PLA і.newcopy ╟:PLA:TAY:LDA #1:RTS :\ Generic COPY parameters ╨: д.chkspc нINY:LDA (&F2),Y ь7CMP #≈" ":BNE chkdigit1 :\ SEC=no following space Б.skipspc ЛINY:LDA (&F2),Y ЖCMP #≈" ":BEQ skipspc @CLC:RTS :\ CLC=follow space, and skipped : .chkdigit LDA (&F2),Y (0CMP #≈"0":BCC chkdigit1 :\ SEC=not a digit 2/CMP #≈"9"+1:BCC chkdigit2 :\ CLC=is a digit <.chkdigit1 FSEC P.chkdigit2 ZRTS d: n]:RelocTable=P% xМ:А ┌: ▄щєsm_pass(pass%) √Гpass%=0:M%=0 ═Гpass%=1:M%=O%-mcode% ╙P%=&8100-128*(pass%─2) ЄO%=mcode%+M%*(pass%─2)│2 Ў/Гpass%=1:Г O%+M%*2.125>L%:Я"Code overrun":Ю х=╩а"4647",pass%+1,1) р: эщРsm_table Ф>base80%=mcode%+M%:base81%=mcode%:byte%=0:count%=0:off%=0:У ПPbyte80%=base80%?off%:byte81%=base81%?off%:Г off%>=M%:byte80%=&80:byte81%=&80 З]Г ((byte81%-byte80%) ─ &FE)<>0 ▄ Я "ERROR: Offset by more than one page at &";~&8000+off% MГ (byte80% ─ &C0)=&80:byte%=byte%│2+128*(byte81%-byte80%):count%=count%+1 1Г count%=8:?O%=byte%:O%=O%+1:byte%=0:count%=0 $off%=off%+1:Щoff%>=M% ─ count%=0 "А Ъ