ô > IDE/s ô IDE interface at &FC40-4F : (=ô 01-May-2004 v0.10 JGH: Initial version based on RAMCard 2*ô 24-May-2004 v0.11 JGH: Reading works <3ô 20-Dec-2004 v0.12 JGH: Geometry 64*4*cylinder F: Pver$="0.12" Zî … ِ:ٌ ‍:à d: nô Workspace contents: xô ws+&000 - RAMCard b0-b7 ‚ô ws+&001 - RAMCard b0-b7 Œô ws+&002 - RAMCard b0-b7 –ô ws+&003 -> intercepted ô ws+&004 - RAMCard size ھ2ô ws+&008 - RAMCard memory address/file buffer ´ ô ws+&00C - RAMCard pathname ¾-ô ws+&010 - File PTR, byte 0 holds flags: ب7ô b0=buffer read, b1=buffer needs writing زô ـ!ô ws+&020 - IDE device 0 size و7ô ws+&024 - IDE device 0 memory address/file buffer ً%ô ws+&028 - IDE device 0 pathname ْ ô ws+&02C - IDE device 0 PTR ô !ô ws+&030 - IDE device 1 size 7ô ws+&034 - IDE device 1 memory address/file buffer "%ô ws+&038 - IDE device 1 pathname , ô ws+&03C - IDE device 1 PTR 6ô @Kô ws+&040 -> intercepted -> IDE data even bytes (holds current command) Jô ws+&041 - IDE Error Tô ws+&042 - IDE Count ^,ô ws+&043 - IDE Sector LBA b0-b7 h-ô ws+&044 - IDE Cylinder Low LBA b8-b15 r.ô ws+&045 - IDE Cylinder High LBA b16-b23 |.ô ws+&046 - IDE Head+Drive LBA b24-b27 †ô ws+&047 - IDE Status گ1ô ws+&048 -> intecepted -> IDE data odd bytes ڑô ws+&049 - ¤ô ws+&04A - ®ô ws+&04B - ¸ô ws+&04C - آô ws+&04D - ج$ô ws+&04E - [Alternative Status] ضô ws+&04F - [Drive Data] à: êService_6502Base=&80AD0 ôق mcode% &8000 ‏sp=13:link=14:pc=15 م p=0 ¸ 1 P%=0:O%=mcode% [OPT p*3+4 &EQUD 0:\start 0EQUD Initialise :EQUD Finalise DEQUD Service NEQUD TitleStr XEQUD HelpStr bEQUD CommandTable lEQUD 0:\ SWI chunk number vEQUD 0:\ SWI chunk handler €EQUD 0:\ SWI decoding table ٹEQUD 0:\ SWI decoding code ”: ‍ .TitleStr ¨EQUS "BBCIDECard" ² EQUB 0 ¼ ALIGN ئ.HelpStr ذ0EQUS "BBCIDECard"+½9+ver$+" ("+ء‘$,5,11)+")" ع EQUB 0 ن ALIGN î: ّ.CommandTable *EQUS "BBCIDE":EQUB 0:ALIGN:EQUD BBCIDE 6EQUD &00010001:EQUD BBCIDE_Syntax:EQUD BBCIDE_Help : 2EQUS "BBCIDELoad":EQUB 0:ALIGN:EQUD BBCIDELoad *>EQUD &00010001:EQUD BBCIDELoad_Syntax:EQUD BBCIDELoad_Help 4: >2EQUS "BBCIDESave":EQUB 0:ALIGN:EQUD BBCIDESave H>EQUD &00010001:EQUD BBCIDESave_Syntax:EQUD BBCIDESave_Help REQUB 0:ALIGN \: f.BBCIDE_Help p5EQUS "Specifies a BBCIDE image to access":EQUB 13 z.BBCIDE_Syntax „(EQUS "Syntax: BBCIDE ":EQUB 13 ژEQUB 0:ALIGN ک: ¢.BBCIDELoad_Help ¬+EQUS "Loads data into a BBCIDE":EQUB 13 ¶.BBCIDELoad_Syntax ہ,EQUS "Syntax: BBCIDELoad ":EQUB 13 تEQUB 0:ALIGN ش: ق.BBCIDESave_Help è+EQUS "Saves data from a BBCIDE":EQUB 13 ٍ.BBCIDESave_Syntax ü,EQUS "Syntax: BBCIDESave ":EQUB 13 EQUB 0:ALIGN : : $.Initialise .stmfd (sp)!,{link} 8ldr r0,[r12] Borrs r0,r0,#0 L4bne Reinitialise ; We already have workspace V,mov r3,#256 ; We want 256 bytes `mov r0,#6 jswi "XOS_Module" t.ldmvsfd (sp)!,{pc} ; Memory claim failed ~/str r2,[r12] ; Store in w/s pointer ˆmov r0,#0 ’/mov r1,#256/4 ; Loop for 256/4 words œ .InitLoop ¦0str r0,[r2],#4 ; Zero workspace values °subs r1,r1,#1 ؛bne InitLoop ؤ.Reinitialise خ/ldr r2,[r12] ; Get w/s pointer back طmov r0,#&40 â)strb r0,[r2,#&47] ; Set DriveReady ىmov r0,#0 ِ+cmp r0,r0 ; Clear flags, etc ldmfd (sp)!,{pc} : : .Finalise (stmfd (sp)!,{link} 2 - should have parameter rstmfd (sp)!,{r0-r5,link} |, ; r0=>parameters †6ldr r12,[r12] ; Get address of workspace گ8stmfd (sp)!,{r0} ; Save pointer to parameters ڑ8ldr r2,[r12,#&24] ; Get address of file buffer ¤0orrs r2,r2,r2 ; Does buffer exist? ®bne BBCIDEBuffer ¸mov r3,#512 آmov r0,#6 ج9swi "XOS_Module" ; Claim space for file buffer ض5str r2,[r12,#&24] ; Store address of buffer à.BBCIDEBuffer ê5ldr r2,[r12,#&28] ; Get address of pathname ô8orrs r2,r2,r2 ; Does pathname space exist? ‏bne BBCIDEPathname mov r3,#256 mov r0,#6 6swi "XOS_Module" ; Claim space for pathname &7str r2,[r12,#&28] ; Store address of pathname 0.BBCIDEPathname : char? v'bcc BBCIDENameDone ; Yes, stop €*add r3,r3,#1 ; Update index ٹcmp r3,#255 ”-bcc BBCIDELoop ; Loop while <256 ‍.BBCIDENameDone ¨mov r1,#13 ²4strb r1,[r2,r3] ; Store terminating ¼: ئ1ldrb r0,[r2,#0] ; Get first character ذ*cmp r0,#—"!" ; Null filename? ع.movcc r4,#0 ; Set size to zero ن.bcc BBCIDENull ; Jump to set size î)mov r0,#5 ; r0=ReadInfo ّ*mov r1,r2 ; r1=>filename 3swi "XOS_File" ; Read file information +ands r0,r0,#1 ; Is it a file? =moveq r4,#0 ; Not a file - set length to zero .BBCIDENull *(str r4,[r12,#&20] ; Store size 4mov r4,#0 >.str r4,[r12,#&2C] ; Zero ڈ and flags Hldmfd (sp)!,{r0-r5,pc} R: \: f4.BBCIDELoad ; *BBCIDELoad pstmfd (sp)!,{r0-r5,link} z6;ldr r12,[r12] ; Get address of workspace „0;add r2,r12,#512 ; Point to variables ژ2;add r2,r2,#20 ; Point to RAM address ک-;ldr r1,[r2] ; Get RAM address ¢;orrs r1,r1,#0 ¬/;beq BBCIDENoRAM ; No RAM to load to ¶(;mov r3,#0 ; Load to r2 ہ3;mov r2,r1 ; r2=address to load to ت*;mov r1,r0 ; r1=>filename ش#;mov r0,#&FF ; r0=ا• ق5;swi "OS_File" ; Load the specified file èldmfd (sp)!,{r0-r5,pc} ٍ: ü: .BBCIDESave stmfd (sp)!,{r0-r5,link} 6;ldr r12,[r12] ; Get address of workspace $0;add r2,r12,#512 ; Point to variables ./;add r2,r2,#16 ; Point to RAM size 8-;ldr r3,[r2],#4 ; Set BBCIDE size B-;ldr r1,[r2] ; Get RAM address L;orrs r1,r1,#0 V/;beq BBCIDENoRAM ; No RAM to load to `,;add r5,r1,r3 ; r5=end address j.;mov r4,r1 ; r4=start address t;mov r2,#&FD ~+;orr r2,r2,#&0F00 ; r2=&FFD - 'ـ' ˆ*;mov r1,r0 ; r1=>filename ’+;mov r0,#&0A ; r0=اڑ as type œ5;swi "OS_File" ; Save the specified file ¦ldmfd (sp)!,{r0-r5,pc} °: ؛: ؤ.BBCIDENoRAM خadr r0,Error_NoRAM طswi "OS_GenerateError" âldmfd (sp)!,{r0-r5,pc} ى.Error_NoRAM ِequd &80AD0 equs "No BBCIDE memory" equb 0 align : (: 2.Service <; In r0=mem[0] F&; r1=Service_6502IN - &80AD0 P&; r1=Service_6502OUT - &80AD1 Z&; r1=Service_6502Reset - &80AD2 d; r2=port n; r3=value x; r4=Module base ‚; Œ6stmfd (sp)!,{r1} ; Save service call number –+and r1,r1,#&FF000 ; Check b12-b19 &cmp r1,#&80000 ; &80xxx ? ھ9ldmfd (sp)!,{r1} ; Restore service call number ´2movne pc,link ; No -> exit unclaimed ¾: بstmfd (sp)!,{r1} زand r1,r1,#&FF0 ـ&cmp r1,#&AD0 ; &80ADx ? وldmfd (sp)!,{r1} ً movne pc,link ; No ْ: stmfd (sp)!,{r1} and r1,r1,#&F .cmp r1,#&3 ; &80AD0..&80AD2 ? "ldmfd (sp)!,{r1} , movcs pc,link ; No 6: @.stmfd (sp)!,{r2} ; Save port number J.and r2,r2,#&FF00 ; Lose bottom byte T*cmp r2,#&FC00 ; Port &FCxx ? ^1ldmfd (sp)!,{r2} ; Restore port number h2movne pc,link ; No -> exit unclaimed r: |.stmfd (sp)!,{r2} ; Save port number †+and r2,r2,#&F0 ; Lose top byte گ*cmp r2,#&40 ; Port &FC4x ? ڑ1ldmfd (sp)!,{r2} ; Restore port number ¤2movne pc,link ; No -> exit unclaimed ®: ¸3ldr r12,[r12] ; Get workspace address آ1stmfd (sp)!,{r1} ; Save service number ج2and r1,r1,#&F ; Check service number ض&cmp r1,#&1 ; &80AD0 ? àbcc Service_6502IN êbeq Service_6502OUT ô3 ; Fall through to Reset ‏: .Service_6502Reset @ldmfd (sp)!,{r1} ; Restore call number, balance stack ;stmfd (sp)!,{link} &;ldmfd (sp)!,{link} 0)mov pc,link ; Don't claim :: D: N-.Service_6502IN ; Read from &FC4x X@ldmfd (sp)!,{r1} ; Restore call number, balance stack b; r0=z80mem[0] l; r1=corruptable v"; r2=port number - corruptable €; r3=returns Read value ٹ; r4=corruptable ”; stack balanced ‍; ¨)and r2,r2,#&FF ; r2=low byte ²cmp r2,#&40 ¼-beq ReadIDEByteLow ; Read from &FC40 ئcmp r2,#&48 ذ-beq ReadIDEByteHigh ; Read from &FC48 ع6ldrb r3,[r12,r2] ; Fetch byte from register ن,mov r1,#0 ; Claim the call îmov pc,link ّ: .ReadIDEByteLow .ReadIDEByteHigh )ldrb r1,[r12,#&46] ; Get IDEHead 0ands r1,r1,#&10 ; Device 1 selected? *0movne r1,#&00 ; Device not present 43bne WriteIDEStatus ; Return with error set >0ldr r1,[r12,#&24] ; Get buffer address H2orrs r1,r1,r1 ; Does a buffer exist? R3beq ReadByteEnd ; No buffer, exit early \: f2ldr r1,[r12,#&2C] ; Get current ڈ offset p4cmp r1,#256 ; Within current buffer? z'stmfd (sp)!,{link} ; Save link „Dblcs UpdateLBA ; Update LBA and ڈ if past end of buffer ژ*ldmfd (sp)!,{link} ; Restore link ک(orrs r1,r1,r1 ; Is ڈ zero? ¢3bne ReadByteClean ; No, buffer holds data ¬: ¶6ldrb r1,[r12,#&46] ; Get head/device/LBA flag ہ*ands r1,r1,#&40 ; Get LBA flag ت?bne ReadLBA ; Jump to calculate file ڈ with LBA ش(ldrb r1,[r12,#&43] ; Get sector قsub r1,r1,#1 è2and r0,r1,#63 ; 64 sectors per track ٍ&ldrb r1,[r12,#&46] ; Get head ü/and r1,r1,#3 ; 4 heads per track /orr r0,r0,r1,lsl #6 ; Merge with sector *ldr r1,[r12,#&44] ; Get cylinder 4orr r0,r0,r1,lsl #8 ; Merge into head+sector $>mov r0,r0,lsl #8 ; Multipy by 256 to get ڈ required .b ReadCHS 8.ReadLBA B7ldr r1,[r12,#&40] ; Get LBA b0-b7 in top byte L2and r1,r1,#&FF000000 ; LBA b0-b7 in b24-b31 V2ldr r0,[r12,#&44] ; LBA b8-b27 in b0-b19 `3mov r0,r0,lsl #16 ; LBA b8-b23 in b16-b31 j?orr r0,r0,r1,lsr #16 ; r0=++<&00> t0 ; r0=file ڈ required ~.ReadCHS ˆ*; Should check here for double-spacing ’(ldr r1,[r12,#&20] ; Drive size œ=cmp r0,r1 ; Reading from past end of drive? ¦=movcs r1,#&41 ; If past end of drive, set error °strcsb r1,[r12,#&47] ؛5movcs r1,#&10 ; Error is SectorNotFound ؤstrcsb r1,[r12,#&41] خ3bcs ReadByteEnd ; Exit early with error ط/ldr r1,[r12,#&28] ; Point to pathname â3ldrb r2,[r1] ; Get start of pathname ىcmp r2,#—"!" ِ4movcc r1,#&41 ; No pathname, set error strccb r1,[r12,#&47] 5movcc r1,#&10 ; Error is SectorNotFound strccb r1,[r12,#&41] 5bcc ReadByteEnd ; No pathname, exit early (: 2; r0=file ڈ <; r1=>filename F; r2=spare P; r3=byte read Z; r4=spare dBstmfd (sp)!,{link} ; Save link as we're going to use SWIs n,mov r4,r0 ; ڈ to read from xmov r0,#&40 ‚,swi "XOS_Find" ; Open for input Œ/mov r3,#256 ; 256 bytes to read –(ldr r2,[r12,#&24] ; r2=>buffer 'mov r1,r0 ; r1=handle ھ4mov r0,#3 ; Read using specified ڈ ´,swi "XOS_GBPB" ; Read to buffer ¾mov r0,#0 ب(swi "XOS_Find" ; Close file ز*ldmfd (sp)!,{link} ; Restore link ـ: و.ReadByteClean ً-ldr r1,[r12,#&24] ; Point to buffer ْ2ldr r0,[r12,#&2C] ; Get current ڈ offset 2ldrb r3,[r1,r0] ; Get byte from buffer 0add r0,r0,#1 ; Increment ڈ offset 4str r0,[r12,#&2C] ; Store updated ڈ offset ".ReadByteEnd ,,mov r1,#0 ; Claim the call 6mov pc,link @: J: T,.Service_6502OUT ; Write to &FC4x ^@ldmfd (sp)!,{r1} ; Restore call number, balance stack h; r0=z80mem[0] r; r1=corruptable |"; r2=port number - corruptable †; r3=Write value گ; r4=corruptable ڑ; stack balanced ¤; ®)and r2,r2,#&FF ; r2=low byte ¸cmp r2,#&40 آ,beq WriteIDEByteLow ; Write to &FC40 جcmp r2,#&47 ض,beq WriteIDECommand ; Write to &FC47 àcmp r2,#&48 ê,beq WriteIDEByteHigh ; Write to &FC48 ô4strb r3,[r12,r2] ; Store byte to register ‏,mov r1,#0 ; Claim the call mov pc,link : .WriteIDECommand &3strb r3,[r12,#&40] ; Store current command 0mov r1,#0 :2str r1,[r12,#&2C] ; Clear current buffer D6mov r1,#&48 ; Set DriveReady+DataReady N.WriteIDEStatus X+strb r1,[r12,#&47] ; Set IDEstatus bmov r1,#0 l,mov pc,link ; Claim the call v; €.WriteIDEByteLow ٹ.WriteIDEByteHigh ”)ldrb r1,[r12,#&46] ; Get IDEHead ‍0ands r1,r1,#&10 ; Device 1 selected? ¨0movne r1,#&00 ; Device not present ²3bne WriteIDEStatus ; Return with error set ¼0ldr r1,[r12,#&24] ; Get buffer address ئ2orrs r1,r1,r1 ; Does a buffer exist? ذ3beq WriteByteEnd ; No buffer, exit early ع: ن2ldr r1,[r12,#&2C] ; Get current ڈ offset î-cmp r1,#256 ; Is buffer full? ّstmfd (sp)!,{link} Dblcs UpdateLBA ; Buffer overflowed, move to next sector ldmfd (sp)!,{link} : .WriteByteClean *-ldr r1,[r12,#&24] ; Point to buffer 42ldr r0,[r12,#&2C] ; Get current ڈ offset >2strb r3,[r1,r0] ; Put byte into buffer H0add r0,r0,#1 ; Increment ڈ offset R4str r0,[r12,#&2C] ; Store updated ڈ offset \-cmp r0,#256 ; Is buffer full? f3bcc WriteByteEnd ; Buffer not full, exit p: z6ldrb r1,[r12,#&46] ; Get head/device/LBA flag „*ands r1,r1,#&40 ; Get LBA flag ژ?bne WriteLBA ; Jump to calculate file ڈ with LBA ک(ldrb r1,[r12,#&43] ; Get sector ¢sub r1,r1,#1 ¬2and r0,r1,#63 ; 64 sectors per track ¶&ldrb r1,[r12,#&46] ; Get head ہ/and r1,r1,#3 ; 4 heads per track ت/orr r0,r0,r1,lsl #6 ; Merge with sector ش*ldr r1,[r12,#&44] ; Get cylinder ق4orr r0,r0,r1,lsl #8 ; Merge into head+sector è>mov r0,r0,lsl #8 ; Multipy by 256 to get ڈ required ٍb WriteCHS ü .WriteLBA 7ldr r1,[r12,#&40] ; Get LBA b0-b7 in top byte 2and r1,r1,#&FF000000 ; LBA b0-b7 in b24-b31 2ldr r0,[r12,#&44] ; LBA b8-b27 in b0-b19 $3mov r0,r0,lsl #16 ; LBA b8-b23 in b16-b31 .?orr r0,r0,r1,lsr #16 ; r0=++<&00> 80 ; r0=file ڈ required B .WriteCHS L(ldr r1,[r12,#&20] ; Drive size V=cmp r0,r1 ; Reading from past end of drive? `=movcs r1,#&41 ; If past end of drive, set error jstrcsb r1,[r12,#&47] t5movcs r1,#&10 ; Error is SectorNotFound ~strcsb r1,[r12,#&41] ˆ>bcs WriteByteEnd ; If past end of drive, exit early ’/ldr r1,[r12,#&28] ; Point to pathname œ3ldrb r2,[r1] ; Get start of pathname ¦cmp r2,#—"!" °4movcc r1,#&41 ; No pathname, set error ؛strccb r1,[r12,#&47] ؤ5movcc r1,#&10 ; Error is SectorNotFound خstrccb r1,[r12,#&41] ط5bcc WriteByteEnd ; No pathname, exit early â: ى; r0=file ڈ ِ; r1=>filename ; r2=spare !; r3=byte to write, now spare ; r4=spare Bstmfd (sp)!,{link} ; Save link as we're going to use SWIs (+mov r4,r0 ; ڈ to write to 2mov r0,#&C0 <-swi "XOS_Find" ; Open for update F0mov r3,#256 ; 256 bytes to write P(ldr r2,[r12,#&24] ; r2=>buffer Z'mov r1,r0 ; r1=handle d5mov r0,#1 ; Write using specified ڈ n/swi "XOS_GBPB" ; Write from buffer xmov r0,#0 ‚(swi "XOS_Find" ; Close file Œ*ldmfd (sp)!,{link} ; Restore link –: .WriteByteEnd ھ,mov r1,#0 ; Claim the call ´mov pc,link ¾: ب'.UpdateLBA ; LBA=LBA+1 زldr r1,[r12,#&40] ـ+sub r1,r1,#&00010000 ; Count=Count-1 و1adds r1,r1,#&01000000 ; LBAb0-b7=LBAb0-b7+1 ًstr r1,[r12,#&43] ْldrb r1,[r12,#&44] 4adc r1,r1,#0 ; LBAb8-b27=LBAb8-b27+cy >str r1,[r12,#&44] ; **WARNING** Overflows into drive mov r1,#0 "4str r1,[r12,#&2C] ; Reset ڈ offset to zero ,mov pc,link 6: @ ALIGN J]ي T%ے"SAVE BBCIDE "+أ~mcode%+" "+أ~O% ^*SetType BBCIDE Module h*Stamp BBCIDE rà ے