Т > ROMBasic 1.01 0Т Put BASIC program into sideways ROM module "Т 1.00 05-Feb-2016 J.G.Harston (2Т 1.01 27-Jan-2024 Workaround for pre-BASIC IV 2: <ч S% 500:T%=S% FХ "BASIC file: "in$ P Х "Output ROM file: "fname$ ZХ "Command name: "cmd$ dХ "Version string: "ver$ n!Х "Copyright string: (C)"cpy$ x1Рp(in$):Рp(fname$):Рp(cmd$):Рp(ver$):Рp(cpy$) ┌;ь:ч S% T%-S%:Рassem(0):ь:ч S% T%-S%:Рassem(2):Рsm_table ▄FA$="*SAVE "+fname$+" "+ц~(mcode%+M%)+" "+ц~O%+" FFFF0000 FFFBBC00" √ЯA$;:ЪA$:Я ═Ю ╙: Є!щРp(A$):$T%=A$:T%=T%+╘$T%+1:А Ўщєg:B%=T%:T%=T%+╘$T%+1:=$B% хщРassem(pass%) р2T%=S%:in$=єg:fname$=єg:cmd$=єg:ver$=єg:cpy$=єg э б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 0RTS :: D .Serv4 N8LDA &27A:BNE Serv4Exit :\ Tube present, ignore XTYA:PHA:DEY:LDX #&FF b.Serv4Lp lINX:INY:LDA (&F2),Y vCMP #≈".":BEQ Serv4Dot ─CMP #≈"!":BCC Serv4End ┼8CMP RomTitle+1,X:BEQ Serv4Lp :\ Match with ROM title ■-┌ #&20 :\ Change case ·8CMP RomTitle+1,X:BEQ Serv4Lp :\ Match with ROM title ╗.Serv4Quit ╡-PLA:TAY :\ Restore Y ╪.Serv4Exit фBLDA #4:RTS :\ Restore A and return unclaimed п .Serv4End з"LDA RomTitle+1,X:BNE Serv4Quit ДDEY Н .Serv4Dot Ь1INY :\ Step past '.' : LDX #&FF .TreeLp1 FINX:LDA RomTitle+1,X :\ Copy command name to string buffer *STA &600,X:BNE TreeLp1 4.TreeLp2 >3LDA (&F2),Y:STA &600,X :\ Copy parameters HINY:INX:CMP #13:BNE TreeLp2 R'LDA #22:JSR OSWRCH :\ К 7 \LDA #7:JSR OSWRCH fLDA #&83:JSR OSBYTE pSTX &A8:STY &A9:LDY #3 z.TreeLp3 └LDA src-1,Y:STA &A9,Y ▌DEY:BNE TreeLp3 ≤.TreeLp4 ╒LDA (&AA),Y:STA (&A8),Y ╛INY:BNE TreeLp4 ІINC &A9:INC &AB юDEC &AC:BNE TreeLp4 й!SEI:LDA #15:LDX #0:JSR OSBYTE т LDX #6 ч.TreeLp5 ХTXA:PHA РLDA Basic,X:STA &100,X ЭLDY Text,X LDX #0:LDA #138:JSR OSBYTE PLA:TAX:DEX:BPL TreeLp5 CLI:LDX #0:LDY #1:JMP OS_CLI $ .Text .EQUS Ґ13+"NUR"+Ґ13+".O" 8 .Basic BEQUS "BASIC"+Ґ13 L: V.src `#EQUW src+3:EQUB (size%+255)│256 j .file t] ~9Г O%+size%L%:Я"Code overrun":Ю Б=╩а"4646",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 2$off%=off%+1:Щoff%>=M% ─ count%=0 <А Ъ