 
Т > PatchRFS 1.04 Т Patch RamFS to: 5Т v1.01 repair OSWORD &77/&7F operation over Tube (0Т v1.02 claim and release Tube for transfers 2<Т v1.03 osgbpb claim/release Tube, correct error numbers <HТ       UTILS uses stack for workspace, uses &F6/7 instead of &F8/9, F-Т       corrected command syntax messages PDТ v1.04 OSFILE with :5 correctly uses (&F6),Y instead of (&F8),Y ZGТ       Save to :5 from second processor uses correct start address d: n+ч A%(4096):ь:ч mcode% &40FF:ver$="1.04" x: ┌Х "Source ROM: "rom$ ▄Ъ"LOAD "+rom$+" "+ц~mcode% √OldService=mcode%!4 ─ &FFFF ═Pspare%=&4000:У:spare%=spare%-1:Щ mcode%?spare%<>mcode%?&3FFF:spare%=spare%+1 ╙`mcode%?spare%=13:Ц A%=11 ╦ 12:Г $(mcode%+spare%-A%)=юҐ0+"END_OF_ROM"+Ґ0,A%):spare%=spare%-A% ЄМ A%:spare%=spare%+&8000 Ў*Я"Spare ROM space starts at &";~spare% х(Г spare%>&BF00:Я"Not enough space":Ю р: эoff%=&8000-mcode% Ф%Ц A%=mcode% ╦ mcode%+spare%-&8000 П)Г !A%=&D008C960:service08  =A%+off%+1 З)Г !A%=&30FD8F2C:osword7F   =A%+off%-3)Г !A%=&F04BC968:osw77_RW3  =A%+off%+8)Г !A%=&2007A260:restoreBEC5=A%+off%+1'Г !A%=&18040620:tubeXfer   =A%+off%"'Г !A%=&60ABC920:OO_L10     =A%+off%,)Г !A%=&60D8B0FD:FFu_L13    =A%+off%+16'Г !A%=&FBB009C9:gbpb       =A%+off%@)Г !A%=&FDA061A2:gbpbTube   =A%+off%+4JМ A%TOO_L5        =OO_L10-135^FFu_L11      =FFu_L13-38h1uSync        =mcode%!(OO_L10-&8000+1) ─ &FFFFr4readRAMblock =mcode%!(osw77_RW3-&8000-2) ─ &FFFF|4writeRAMblock=mcode%!(osw77_RW3-&8000+1) ─ &FFFF├"Я "service08    =&";~service08░!Я "osword7F     =&";~osword7F "Я "osw77_RW3    =&";~osw77_RW3є%Я "readRAMblock =&";~readRAMblockў&Я "writeRAMblock=&";~writeRAMblock╦$Я "restoreBEC5  =&";~restoreBEC5б!Я "tubeXfer     =&";~tubeXferлЯ "uSync        =&";~uSyncжЯ "OO_L5        =&";~OO_L5ЮЯ "OO_L10       =&";~OO_L10Й Я "FFu_L11      =&";~FFu_L11Т Я "FFu_L13      =&";~FFu_L13ЧЯ "gbpb         =&";~gbpb!Я "gbpbTube     =&";~gbpbTube:)щ Рorg(A%):P%=A%:O%=P%-&8000+mcode%:А&Ц P=4 ╦ 7 ┬ 20::Рorg(&800F)D'[OPT P:EQUS ver$+" (30 May 2016)":]N:XРorg(osword7F+3)b6Т [OPT P:LDA #&FF:NOP:]:REM TEST Remove DTRAP testl:vРorg(osw77_RW3-3)─
[OPT P┼JMP osw77_Read■JMP osw77_Write·]╗:╡Рorg(spare%)╪
[OPT Pф.osw77_Readп.osw77_Writeз(\ A      =command, bit7=0, b3=actionД\ &C2/3  =byte countН\ &C4/5  =RAM pageЬ\ &CF    =drive\ &BE/F  =address low\ &FD74/5=address high\ Scratch RAM paged in :**   LDX &027A           \ Tube present?4/   BMI osw7F_TubeOk    \ Yes, check address>   LDX #&FFH@   STX &FD74           \ No Tube, force address to &FFFFxxxxR   STX &FD75\.osw7F_TubeOkf)   PHA                 \ Save commandp*   LDA &FD74           \ Check addressz   ─ &FD75└   CMP #&FF▌'   BEQ osw7F_NoTube    \ I/O memory≤:╒'   JSR TubeClaim       \ Claim Tube╛/   PLA                 \ Get direction byteІ'   └A #&80            \ Flag 'Tube'ю
   PHAй.osw7F_NoTubeт:ч(   PLA                 \ Get commandХ
   PHAР+   ─ #8              \ Check &4B or &53Э   BNE osw7F_CallWrite   JSR readRAMblock   JMP osw7F_called.osw7F_CallWrite$   JSR writeRAMblock.:8.osw7F_calledB3   PLA                 \ Get transfer flag backL)   JMP TubeRelease1    \ Release TubeV:`.StoreToTube      \ 6+6j   JSR TubeDelay  \ 6+6t   JSR TubeDelay  \ 6+6~   JSR TubeDelay  \ 6+6┬!   STA &FEE5      \ 48 clocks▓
   RTS°.FetchFromTube    \ 6+6і   JSR TubeDelay  \ 6+6╟   JSR TubeDelay  \ 6+6╨   JSR TubeDelay  \ 6+6д!   LDA &FEE5      \ 48 clocksн.TubeDelayь
   RTSБ:Л.TubeClaimЖ9   LDA #&C0+&0F:JSR &406     \ Claim ID=&0F for RAMFS 5   BCC TubeClaim             \ Loop until claimed
.TubeNoRelease
   RTS.TubeRelease(A   LDA &BB                   \ Check zpm7, &00 if not claimed2.TubeRelease1<=   BPL TubeNoRelease         \ Not claimed, don't releaseF.TubeRelease2P;   LDA #&80+&0F:JMP &406     \ Release ID=&0F for RAMFSZ:d.TubeActionn-   PHA:JSR TubeClaim:PLA     \ Claim Tubex6   JMP &406                  \ Start data transfer┌:▄.TubeDone√   JSR TubeRelease═   JSR restoreBEC5╙
   RTSЄ:Ў.USBReleaseWRх   JSR uSyncр   JSR TubeReleaseэ
   RTSФ.USBReleaseRDП   BCC USBRelease3З   JMP FFu_L11.USBRelease3   JSR TubeRelease
   RTS":,.gpbClaim6   PHA:JSR TubeClaim@   PLA:JMP &406J.gpbCallT   CMP #9:BCS gpbDone^   JSR gbpb+4h   BIT &FD81:BPL gpbDoner   PHP:PHA:JSR TubeRelease2|   PLA:PLP├.gpbDone░
   RTS :є.chkOptўLDY #0:LDA (&F2),Y╦CMP #≈"-":BEQ chkOptDoneб.chkOptLpлLDA (&F2),Y:INYжCMP #32:BEQ chkOptSpcЮCMP #13:BNE chkOptLpЙLDY #0:RTSТ.chkOptSpcЧLDY #255:LDA #≈"-".chkOptDoneRTS:&BRK:EQUS "END_OF_ROM":BRK0]:М PD:NЯ"Adding patches";Xoff%=&8000-mcode%baA%=tubeXfer-off%:A%?1=TubeAction:A%?2=TubeAction │ 256            :Я';~A%+off%;" TubeAction";lcA%=OO_L10-off%  :?A%=&4C:A%?1=USBReleaseWR:A%?2=USBReleaseWR │ 256:Я';~A%+off%;" USBReleaseWR";vcA%=FFu_L13-off% :?A%=&4C:A%?1=USBReleaseRD:A%?2=USBReleaseRD │ 256:Я';~A%+off%;" USBReleaseRD";─aA%=gbpbTube-off%:?A%=&20:A%?1=gpbClaim:A%?2=gpbClaim │ 256        :Я';~A%+off%;" GBPB Claim";┼dA%=gbpb-off%    :?A%=&4C:A%?1=gpbCall:A%?2=gpbCall │ 256          :Я';~A%+off%;" GBPB Dispatch";■eA%=OO_L5-off%+17:?A%=&BE:A%?1=0:A%=OO_L5-off%+31:?A%=&BF:A%?1=0     :Я';~A%+off%;" TubeSave USB";·:╗6Ц A%=mcode% ╦ mcode%+spare%-&8000:W%=!A% ─ &FFFFFF╡pГ ?A%=&20:Г (A%!1 ─ &FFFF)=restoreBEC5:?A%=&4C:A%?1=TubeDone:A%?2=TubeDone │ 256:Я';~A%+off%;" restoreBEC5";╪`Г W%=&FEE58D:?A%=&20:A%?1=StoreToTube  :A%?2=StoreToTube │ 256  :Я';~A%+off%;" StoreToTube";фbГ W%=&FEE5AD:?A%=&20:A%?1=FetchFromTube:A%?2=FetchFromTube │ 256:Я';~A%+off%;" FetchFromTube";пKГ W%=&0DF0BC:?A%=&A0:A%?1=0:A%?2=&EA        :Я';~A%+off%;" LDY &DF0,X";зKГ W%=&0DF0BD:?A%=&A9:A%?1=0:A%?2=&EA        :Я';~A%+off%;" LDA &DF0,X";ДBГ !A%=&30302E31:A%?3=≈аver$,4,1)      :Я';~A%+off%;" version";НFГ !A%=&69643C28:!A%=&7269643C:A%!4=&001B1B3E:Я';~A%+off%;" <dir>";ЬFГ !A%=&72643C28:!A%=&7672643C:A%!4=&001B1B3E:Я';~A%+off%;" <drv>";7Г !A%=&45455246:A%?-1=&02:Я';~A%+off%;" EX <afsp>";8Г !A%=&504D5544:A%?6=&02:Я';~A%+off%;" DUMP <afsp>";?Г !A%=&4F505845:A%?8=&1A:Я';~A%+off%;" EXPORT <drv> <fsp>"; ?Г !A%=&4F504D49:A%?8=&1A:Я';~A%+off%;" IMPORT <drv> <fsp>";*8Г !A%=&5453494C:A%?6=&02:Я';~A%+off%;" LIST <afsp>";48Г !A%=&45505954:A%?6=&02:Я';~A%+off%;" TYPE <afsp>";>WГ !A%=&2DC9F2B1:A%!-2=&20EA:?A%=chkOpt:A%?1=chkOpt │ 256:Я';~A%+off%;" chkOptions";HKГ (A%?1 ─ -2)=&F8:Г (?A% ─ &9C)=&84:A%?1=A%?1-2:Я';~A%+off%;" &F8/&F9";RKГ (A%?1 ─ -2)=&F8:Г (?A% ─ &BE)=&24:A%?1=A%?1-2:Я';~A%+off%;" &F8/&F9";\MГ A%?1=&F8:Г (?A% ─ &DF)=&91:A%?1=A%?1-2         :Я';~A%+off%;" (&F8),Y";f=Г !A%=&67616D49:A%?-1=&E1 :Я';~A%+off%;" Image too long";p6Г !A%=&44206F4E:A%?-1=&D3 :Я';~A%+off%;" No disk";z?Г !A%=&6C655320:A%?-16=&F8:Я';~A%+off%;" DFS not selected";└
М A%:Я▌:≤0Г бrom$,1)="0":rom$=юrom$,╘ rom$-1)+аver$,4)╒7Я"*Save ";rom$;"fx ";~mcode%;" ";ц~O%;" 0 FFFBBC00"Ъ