ô > ROMBox/s +ô Provides emulated ROMBox for Spectrum .ô Memory at &0000-&3FFF paged at OUT &xxFD (ô 2,ô 23-Mar-2002 v1.00 JGH: Initial version <5ô 09-Nov-2005 v1.05 JGH: Added ROMBoxPort command Fô Pî … ö:ñ ž:à Z: dioport%=&00FD n: xÞ mcode% &8000:ver$="1.05" ‚sp=13:link=14:pc=15 Œ ã p=0 ¸ 1 –P%=0:O%=mcode% [OPT p*3+4 ªEQUD 0:\start ´EQUD Initialise ¾EQUD Finalise ÈEQUD Service ÒEQUD TitleStr ÜEQUD HelpStr æEQUD CommandTable ðEQUD 0:\ SWI chunk number úEQUD 0:\ SWI chunk handler EQUD 0:\ SWI decoding table EQUD 0:\ SWI decoding code : " .TitleStr ,EQUS "ROMBox" 6 EQUB 0 @ ALIGN J.HelpStr THEQUS "Spectrum ROMBox"+½9+ver$+" ("+Á‘$,5,11)+") © 2002 J.G.Harston" ^ EQUB 0 h ALIGN r: |.CommandTable †iEQUS "ROMBox":EQUB 0:ALIGN:EQUD ROMBoxInit:EQUD &00010001:EQUD ROMBoxInit_Syntax:EQUD ROMBoxInit_Help mEQUS "ROMBoxLoad":EQUB 0:ALIGN:EQUD ROMBoxLoad:EQUD &00020002:EQUD ROMBoxLoad_Syntax:EQUD ROMBoxLoad_Help šmEQUS "ROMBoxList":EQUB 0:ALIGN:EQUD ROMBoxList:EQUD &00000000:EQUD ROMBoxList_Syntax:EQUD ROMBoxList_Help ¤mEQUS "ROMBoxPort":EQUB 0:ALIGN:EQUD ROMBoxPort:EQUD &00000000:EQUD ROMBoxPort_Syntax:EQUD ROMBoxPort_Help ®\ ROMBoxRAM ¸\ ROMBoxROM Â\ ? ÌEQUB 0:ALIGN Ö: à.ROMBoxInit_Help ê@EQUS "Registers a module or application with ROMBox":EQUB 13 ô.ROMBoxInit_Syntax þ1EQUS "Syntax: ROMBox |

" EQUB 0:ALIGN : .ROMBoxLoad_Help &7EQUS "Loads a ROM image into a ROMBox slot":EQUB 13 0.ROMBoxLoad_Syntax :5EQUS "Syntax: ROMBoxLoad " DEQUB 0:ALIGN N: X.ROMBoxList_Help b+EQUS "Lists loaded ROMBox ROMs":EQUB 13 l.ROMBoxList_Syntax vEQUS "Syntax: ROMBoxList" €EQUB 0:ALIGN Š: ”.ROMBoxPort_Help ž3EQUS "Sets or displays ROMBox I/O port":EQUB 13 ¨.ROMBoxPort_Syntax ²&EQUS "Syntax: ROMBoxPort ()" ¼EQUB 0:ALIGN Æ: Ð: Ú.Initialise ästmfd (sp)!,{link} îldr r0,[r12] øorrs r0,r0,#0 5bne Reinitialise ; We already have workspace mov r0,#6 ,mov r3,#10*4 ; We want 10 words swi "XOS_Module" */ldmvsfd (sp)!,{pc} ; Memory claim failed 40str r2,[r12] ; Store in w/s pointer >.mov r0,#0 ; Clear ROM pointers Hmov r1,#0 R.InitClear \str r0,[r2,r1] fadd r1,r1,#4 pDcmp r1,#10*4 ; 8 ROM pointers, module pointer, OUT copy zbcc InitClear „.Reinitialise Žldmfd (sp)!,{pc} ˜: ¢: ¬ .Finalise ¶stmfd (sp)!,{link} À=ldr r3,[r12] ; Get pointer to module's workspace Êorrs r3,r3,#0 ÔMbeq Finalised ; No workspace (shouldn't ever get called this way) Þ1mov r4,#0 ; Loop from workspace+0 è.FinalLoop ò4ldr r2,[r3,r4] ; Get pointer to ROM space ü'orrs r2,r2,#0 ; Is is zero? 1add r4,r4,#4 ; Point to next pointer movne r0,#7 :swine "XOS_Module" ; Release ROM space if it exists $cmp r4,#4*8 .*bcc FinalLoop ; 8 ROM pointers 89ldr r2,[r12] ; Pointer to module's workspace Bmov r0,#7 L&swi "XOS_Module" ; Release it V.Finalised `ldmfd (sp)!,{pc} j: t: ~;.ROMBoxInit ; *ROMBox |

ˆmov pc,link ’: œ: ¦?.ROMBoxLoad ; *ROMBoxLoad °stmfd (sp)!,{link} º7bl ROMNumber ; r6=ROM number, r0=>filename Ä(mov r7,r0 ; r7=>filename Îmov r1,r7 Ømov r0,#5 â-swi "OS_File" ; Read info on file ì)cmp r0,#1 ; File present? öbne ROMNotFound /cmp r4,#&4000 ; Check file's length beq ROMLoadOk 3bcs ROMFileTooLong ; Can only load up to 16k .ROMLoadOk (4ldr r12,[r12] ; Get address of workspace 20ldr r2,[r12,r6,lsl #2] ; Get ROM's address <orrs r2,r2,#0 F5moveq r0,#6 ; If zero, claim 16k of RMA Pmoveq r3,#&4000 Zfilename ‚; r3=index into ROM memory Œ; r2=>ROM memory-12 –; r1=index into filename ; r0=byte ª1mov r3,#0 ; index into ROM memory ´/mov r1,#0 ; index into filename ¾4.ROMLoadScan ; Look for end of filename Èldrb r0,[r7,r1] Òadd r1,r1,#1 Ücmp r0,#—"!" æbcs ROMLoadScan ð.ROMLoadScan2 úsubs r1,r1,#1 ;beq ROMLoadName ; Moved back to start of filename ldrb r0,[r7,r1] cmp r0,#—"." "6cmpne r0,#—":" ; Loop back until dot or colon ,bne ROMLoadScan2 6add r1,r1,#1 @.ROMLoadName Jldrb r0,[r7,r1] Tstrb r0,[r2,r3] ^add r1,r1,#1 hadd r3,r3,#1 rcmp r3,#11 |bcs ROMLoadLeaf †cmp r0,#—"!" bcs ROMLoadName šsub r3,r3,#1 ¤.ROMLoadLeaf ®mov r0,#0 ¸+strb r0,[r2,r3] ; zero terminator Â; Ì4add r2,r2,#12 ; Point to ROM image start Ö mov r0,#&FF ; 'Ç•' àmov r1,r7 ê1mov r3,#0 ; Load to address in r2 ôswi "OS_File" þ6sub r2,r2,#12 ; Point to before ROM memory ldmfd (sp)!,{pc} : .ROMFileTooLong &ADR r0,ROMFileTooLongErr 0SWI "OS_GenerateError" :.ROMFileTooLongErr DEQUD 255 NEQUS "ROM too long" XEQUB 0:ALIGN b: l.ROMNotFound vADR r0,ROMNotFoundErr €SWI "OS_GenerateError" Š.ROMNotFoundErr ”EQUD 214 žEQUS "ROM not found" ¨EQUB 0:ALIGN ²: ¼: Æ?.ROMBoxSave ; *ROMBoxLoad Ðmov pc,link Ú: ä: î.ROMNumber ø;ldrb r6,[r0,#1] ; Look at character after current cmp r6,#—" " addne r0,r0,#1 1bne ROMNumber ; Skip until last digit ;ldrb r6,[r0],#1 ; Get last digit and inc. pointer **and r6,r6,#7 ; Reduce to 0..7 4.ROMNumberSpc >ldrb r1,[r0] Hcmp r1,#—" " Raddeq r0,r0,#1 \3beq ROMNumberSpc ; Skip spaces after digit f.mov pc,link ; r6=ROM number 0..7 p: z: „'.ROMBoxList ; *ROMBoxList Žstmfd (sp)!,{link} ˜1ldr r12,[r12] ; Get workspace pointer ¢,mov r3,#0 ; Start with ROM 0 ¬.ROMListLoop ¶ldr r2,[r12,r3,lsl #2] À4orrs r2,r2,#0 ; Get address of ROM image Êbeq ROMListEmpty Ôorr r0,r3,#—"0" Þswi "OS_WriteC" èswi 256+—":" ò+swi 256+—" " ; Output ROM number ü0mov r1,#11 ; Max of 11 characters .ROMListName )ldrb r0,[r2],#1 ; Get character cmp r0,#—"!" $+bcc ROMListPad ; End of leafname .swi "OS_WriteC" 8subs r1,r1,#1 Bbne ROMListName L.ROMListPad V+swi 256+32 ; Pad with spaces `add r2,r2,#1 jsubs r1,r1,#1 tbpl ROMListPad ~?add r2,r2,#256 ; Point to near begining of ROM image ˆ.ROMListLook ’add r2,r2,#1 œ4ldrb r0,[r2,#3] ; Look for four —II values ¦$cmp r0,#—"!":bcc ROMListLook °$cmp r0,#—"z":bcs ROMListLook ºldrb r0,[r2,#2] Ä$cmp r0,#—"!":bcc ROMListLook Î$cmp r0,#—"z":bcs ROMListLook Øldrb r0,[r2,#1] â$cmp r0,#—"!":bcc ROMListLook ì$cmp r0,#—"z":bcs ROMListLook öldrb r0,[r2,#0] $cmp r0,#—"!":bcc ROMListLook $cmp r0,#—"z":bcs ROMListLook .ROMListTitle swi "OS_WriteC" (add r2,r2,#1 2ldrb r0,[r2] <cmp r0,#—" " Fbcc ROMListDone Pcmp r0,#—"~"+1 Zbcc ROMListTitle d.ROMListDone nswi "OS_NewLine" x.ROMListEmpty ‚add r3,r3,#1 Œcmp r3,#8 –bcc ROMListLoop ldmfd (sp)!,{pc} ª: ´: ¾2.ROMBoxPort ; *ROMBoxPort () Èmov pc,link Ò: Ü: æ.Service ð\ In r0=mem[0] ú!\ r1=Srv_Z80Reset - &80AC2 !\ r1=Srv_Z80OUT - &80AC1 \ r2=port \ r3=value "\ r4=Module base ,\ 6movs r2,r3,lsr #5 ; r2=OUT value 32, Cy=OUT value b4 40and r2,r2,#6 ; ROM number = 0,2,4,6 >-orrcs r2,r2,#1 ; ROM number = 0..7 H; R;cmp r2,#8 \;and r2,r2,#13 f.;orrcs r2,r2,#2 ; ROM number = 0..7 pldr r2,[r12,r2,lsl #2] z5orrs r2,r2,#0 ; Get address of ROM memory „3moveq r1,#0 ; No ROM in this slot, so Ž8moveq pc,link ; claim and exit doing nothing ˜: ; Enter fast quad-word copy loop ¢5stmfd (sp)!,{r3-r10} ; Save everything for speed ¬Aadd r8,r2,#12 ; Point to quad-aligned ROM image start ¶.mov r9,r0 ; Point to z80mem[0] À0mov r10,#0 ; Copy address pointer Ê; Ô; r8=ROM address - src Þ; r9=z80mem[0] - dst è; r10=loop offset ò; ü.ROMReadLoop 6ldmia r8!,{r0-r7} ; Fetch 8 quad-aligned words @stmia r9!,{r0-r7} ; Store them (may not be quad-aligned) add r10,r10,#32 $(cmp r10,#&4000 ; Loop for 16k .bcc ROMReadLoop 8.ldmfd (sp)!,{r3-r10} ; Get registers back B: L.ROMSelected V*mov r1,#0 ; Claim the call `mov pc,link j: t ALIGN ~]í ˆ%ÿ"SAVE ROMBox "+Ã~mcode%+" "+Ã~O% ’*SetType ROMBox Module œ*Stamp ROMBox ¦à ÿ