ô >DFS-58 ô Double cat system ô By James Roberts (&ç>=&8000Œñ"6502 Machines only!":à 2,?&284=&FF:$&404=Ä26*4-1,½0):@%=&90A:Z%=0 <Ý¤lo(A%)=A%€&FF FÝ¤hi(A%)=(A%€&FF00)&100 P$Ý¤hex(X%,Y%)=Â"0000000"+Ã~X%,Y%) ZrôFORP%=&900TO&AFCSTEP4:!P%=0:NEXT:!&A04=&20030000:?79=3:!80=&900:!84=&4B03:!88=&22:A%=&7F:X%=79:Y%=0:CALL&FFF1 d<ãP%=&B00¸&CFCˆ4:!P%=&E5E5E5E5:í:ãQ%=0¸2ˆ2:P%=&B00:[OPTQ% nlEQUS"(C)JR":.gcfs%SEC:JMP&FFC5:.code%CLD:LDA#1:LDX#&A8:LDY#0:JSR&FFDA:STY&AB:LDA&A8:STA&F2:LDA&A9:STA&F3 x}LDX#&FF:SEC:JSR&FFC2:JSR gcfs%:BCS cde1%:‚#&30:CMP#4:EQUW&490:‚#&30:BCS cde0%+5:TAX:JSR gcfs%:BCS cde1%:CMP#&20:BNE err0% ‚|.cde0%JSR gcfs%:BCS cde1%:€#&DF:CMP#&50:EQUW&3D0:ASLA:EQUW&4D0:CMP#&53:BNE err0%:BIT&AB:BNE err0%:„A&AB:STA&AB:BNE cde0% Œ¬.cde1%STX osbk%:ASL&AB:BCC cde2%:LDX#¤lo(&FF-err0%+chms%):LDA chms%-¤lo(&FF-err0%+chms%),X:JSR&FFEE:INX:BNE cde1%+9:JSR&FFE0:PHP:JSR&FFE7:PLP:BCC cde2%:LDA#&7D:JMP&FFF4 –_.chms%EQUS"Change disc and press a key":.err0%EQUW&DC00:EQUS"Syntax: SWAP () (P)(S)" O.err1%EQUW&B400:EQUS"Dir not empty":.err2%EQUW&FF00:EQUS"Bad SWAP disc":BRK ª.cde2%JSR rdsc%-6 ´1.cde3%STA&70:STX&71:STY&72:PHP:PLA:STA&73:RTS ¾c.mkct%LDX#0:LDA cat0%-&F0,Y:STA&908,X:LDA cat1%-&F0,Y:STA&A08,X:INX:INY:BNE mkct%+2:STX&A05:RTS ÈN.swsc%LDY#&21:JSR rdsc%-2:INX:‚#2:JSR rdsc%:JSR swsc%+15:DEX:‚#2:BPL wtsc% ÒeLDY#&22:LDX#9:.wtsc%PHA:LDA#&4B:BNE rdsc%+3:LDA#0:LDY#&22:LDX#9:.rdsc%PHA:LDA#&53:STA osbk%+6:PLA Ü\.oswd%STA osbk%+8:STX osbk%+2:STY osbk%+9:LDA#&7F:LDX#¤lo(osbk%):LDY#¤hi(osbk%):JSR&FFF1 æ‚LDY osbk%+9:LDX osbk%+2:LDA osbk%+10:EQUW&4D0:LDA osbk%+8:RTS:EQUW&C700:EQUS"Disc error":BRK:.osbk%BRK:EQUD&FFFF0900:EQUD3:BRK ð{.cat1%EQUW&900:EQUW code%:EQUD&4CC0200:EQUD0:EQUD&2000000:.cat0%EQUD&50415753:EQUD&A4202020:EQUD&212121A1:EQUD&A1212121 ú4]:í:ñ"Ended @:";~P%:ç&D00