 
ô > Cyl1to0 9ô Move data from cylinder-1 based to cylinder-0 based : (3size%=(“-’-2048)€&FF00:Þ mem% size%-1:off%=&100 27òassm:?IDEcommand=&08:õý?IDEstatus<128:ô Initialise <Fsector%=1:cylinder%=0:head%=0:dev%=0:count%=1:sz%=0:òideSize(64,3) F)è"Enter IDE drive to move data: "dev% P2òid:ñ"Drive size: &";~tot%;" - ";tot%4096;"M" Zè"Press RETURN to start"A$ d9ptr%=0:õlen%=tot%-ptr%:çlen%*256>size%:len%=size%256 n@ñ½13;"Reading &";~ptr%+off%;:òRead(mem%,len%,ptr%+off%,dev%) x7ñ½13;"Writing &";~ptr%;:òWrite(mem%,len%,ptr%,dev%) ‚1ptr%=ptr%+len%:ýptr%>=tot%:ñ½13;"Finished"‰10 Œà –:  !ÝòRead(mem%,len%,lau%,dev%):õ ªv!addr%=mem%:sec%?2=lau%:sec%?1=(lau%€&FF00)256:sec%?0=((lau%€&FF0000)65536)„(dev%*64):?num%=1:num%?1=sz%:A%=ºrd% ´3mem%=mem%+256:len%=len%-1:lau%=lau%+1:ýlen%<1:á ¾: È"ÝòWrite(mem%,len%,lau%,dev%):õ Òv!addr%=mem%:sec%?2=lau%:sec%?1=(lau%€&FF00)256:sec%?0=((lau%€&FF0000)65536)„(dev%*64):?num%=1:num%?1=sz%:A%=ºwr% Ü3mem%=mem%+256:len%=len%-1:lau%=lau%+1:ýlen%<1:á æ: ð: ú#Ý¤h0(A%,N%)=Â"0000000"+Ã~A%,N%)"Ý¤d(A%,N%)=Â"        "+ÃA%,N%):Ýòid:ê A%"/ã A%=0 ¸ 255 ˆ4:mem%!A%=0:mem%!(A%+256)=0:í,+!addr%=mem%:Y%=dev%*16:num%?1=sz%:Ö id%6:big%=£:çmem%?&3A=0:big%=¹:mem%?&3A=mem%?&39:mem%?&39=0@£çmem%?&101+mem%?&136+mem%?&139=0:mem%?&136=mem%?&3A:mem%?&139=mem%?&36:tot%=(256*mem%?&136+mem%?&36)*mem%?&37*mem%?&38:mem%?&101=(tot%((mem%?3)*(mem%?6)))256J3tot%=(256*mem%?&136+mem%?&36)*mem%?&37*mem%?&38Tá^:hÝòideInit:òideSize(64,3):árÝòideSize(spt%,hds%)|?&FC42=spt%:?&FC43=spt%†2?&FC46=hds%:?&FC47=&91:ô Initialise parametersáš:¤
Ýòassm®mc%=mc%:çmc%=0:Þmc% 511¸addr%=&80:sec%=&85:num%=&88Â?IDEdata=&FC40:IDEerror=&FC41:IDEcount=&FC42:IDEsector=&FC43ÌDIDEcylinder=&FC44:IDEhead=&FC46:IDEstatus=&FC47:IDEcommand=&FC47ÖãP=0 ¸ 1àP%=mc%:[OPT P*2ê.id%ôLDA &FF:BMI idescapeþLDA IDEstatus:BMI id%%TYA:€ #16:STA IDEhead   :\ Device-LDA #&EC  :STA IDEcommand :\ &EC=IdentifyLDY #0:LDX #1:STX num%&CLC:JMP TransferLoop0.idescape:RTSD:N.WaitForDataX"LDA &FC47:€ #8:BEQ WaitForDatabLDA &FC47:RTSl:v.WaitNotBusy€6PHP:JSR L806F                    :\ Get IDE statusŠ;€ #&80:BNE WaitNotBusy+1:PLP   :\ Wait for IDE not busy”BIT &CC:RTSž:¨
.L806F²PHP:LDA &FC47:STA &8D¼!LDA &FC47:CMP &8D:BNE L806F+1ÆPLP:RTSÐ:Ú..rd%:LDA #&08:STA &84:CLC:BCC CommandStartä..wr%:LDA #&0A:STA &84:SEC:BCS CommandStartî:ø;.CommandStart                    :\ C=R/W, &8E/F=>block4LDA #&7F:STA &8E:LDA #0:STA &8F  :\ &8E/F=>blockPHP:JSR SetGeometry:PLP.CommandLoop LDX #2:.Twice*BJSR SetSector:LDY #0             :\ Set sector, count, command4.TransferLoop>)JSR WaitForData:€ #&21:BNE TransErrorH\.TransferLoopR%BIT &CD:\BVS TransTube:BCC IORead\.IOWritef5LDA (&80),Y:STA &FC40:LDA num%+1:BEQ TransferBytep:INC &81:LDA (&80),Y:STA &FC48:DEC &81:BRA TransferBytez.IORead„5LDA &FC40:STA (&80),Y:LDA num%+1:BEQ TransferByteŽ:INC &81:LDA &FC48:STA (&80),Y:DEC &81:BRA TransferByte˜:¢.TransferByte¬5LDA &FC47:€ #8:BEQ TransError  :\ Run out of data¶;INY:BNE TransferLoop:\INC &81     :\ Loop for 256 bytesÀ3LDA &FC47:€ #&21:BNE TransError:\ Error occuredÊDEX:BNE TwiceÔ8INC &87:BNE TransCount           :\ Increment sectorÞ"INC &86:BNE TransCount:INC &85è.TransCountò<DEC &88:BNE CommandLoop          :\ Loop for all sectorsü7LDA #0                           :\ Done, no errors.TransErrorLDA &FC47:LDX &FC41:RTS:$.SetGeometry.CJSR WaitNotBusy                          :\ Should check device8DLDA #64:STA &FC42:STA &FC43              :\ 64 sectors per trackB%LDA sec%:LSR A:LSR A:„A #3:€ #&13L=STA &FC46:LDA #&91:STA &FC47      :\ 4 heads per cylinderVRTS`:j.SetSectortEPHP:JSR WaitNotBusy                      :\ Save CC/CS Read/Write~:LDY #8:LDA #1:STA &FC42                  :\ One sectorˆ>CLC:LDA (&8E),Y:€ #63:ADC #1:STA &FC43 :\ Set sector b0-b5’ADEY:LDA (&8E),Y:ADC #0:STA &FC44         :\ Set sector b8-b15œEDEY:LDA (&8E),Y:PHA:€ #&3F:ADC #0:STA &FC45 :\ Set sector b16-b20¦=PLA:ROL A:ROL A:ROL A:ROL A              :\ Get Drive 0/1°>INY:INY:‚ (&8E),Y:€ #&02:‚ (&8E),Y :\ Merge Drive and HeadºFJSR SetDrive:DEY:DEY:DEY:LDA (&8E),Y     :\ Get command &08 or &0AÄ.SetCommandÎ<€ #2:PHA:‚ #2:LSR A:LSR A            :\ Copy ~b1 into CyØKPLA:ASL A:ASL A:ASL A:„A #&20           :\ Translate CS->&20 or CC->&30âFSTA &FC47:PLP:RTS                        :\ Set command &08 or &0Aì:ö.SetDrive GROL A:ROL A:ROL A:€ #&13:STA &FC46:RTS :\ Set device + sector b6-b7
:]í:áÿ