URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [fmt/] [fmt_ide.lst] - Rev 66
Compare with Previous | Blame | View Log
Assembler release DWC_2.0 version 2.11May 6, 2004 (c) Motorola (free ware)0001 *0002 ** FLEX 9 DISK DRIVERS0003 *0004 * FOR SYS09BUG ON THE DIGILENT SPARTAN 3 STARTER BOARD0005 * WITH I/O MAPPED AT $XE0000006 * AND ROM MAPPED AT $XF0000007 * THE DIGILENT SPARTAN 3 STARTER BOARD HAS 1MBYTE OF SRAM0008 * THE FIRST 64K IS USED BY FLEX,0009 * THE SECOND 128K IS USED AS A ROM DISK0010 * THE REMAINING RAM IS USED FOR A RAM DISK0011 *0012 *0013 0001 CFLAG EQU $01 CARRY FLAG0014 0002 VFLAG EQU $02 OVERFLOW FLAG0015 0004 ZFLAG EQU $04 ZERO FLAG0016 0008 NFLAG EQU $08 NEGATIVE FLAG0017 0010 IFLAG EQU $10 IRQ MASK CC0018 0020 HFLAG EQU $20 HALF CARRY0019 0040 FFLAG EQU $40 FIRQ MASK CC0020 0080 EFLAG EQU $80 ENTIRE FLAG0021 *0022 0000 MAPPAG EQU $00 PAGE $0000 DAT ADDRESS0023 *0024 * Serial Port0025 *0026 E000 ACIAS EQU $E0000027 E000 ACIAC1 EQU ACIAS0028 E001 ACIAD1 EQU ACIAS+10029 04E2 DELCON EQU 1250 Delay (Processor clock in MHz * 50)0030 *0031 * XMODEM Control characters0032 *0033 0001 SOH EQU $010034 0004 EOT EQU $040035 0006 ACK EQU $060036 0015 NAK EQU $150037 0018 CAN EQU $180038 *0039 * Some dummy Constants0040 *0041 0040 RMAXTRK EQU 640042 00FF RMAXSEC EQU 2550043 3EC1 RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC0044 *0045 * Start0046 *0047 0100 ORG $01000048 0100 17 02 98 START LBSR UFSUB0049 0103 6E 9F F8 00 JMP [$F800] Jump to monitor on Completion.0050 *0051 *0052 * RAM SPACE0053 *0054 0107 00 DRVNUM FCB 00055 0108 00 TRACK FCB 00056 0109 00 SECTOR FCB 00057 010A 00 CHKSUM FCB 00058 010B 00 BLKNUM FCB 0 Xmodem block number0059 010C 00 BYTCNT FCB 0 Xmodem byte count0060 010D 00 00 XSTATE FDB 0 Xmodem State Vector0061 010F 00 00 00 DELCNT FCB $00,$00,$00 Xmodem Poll timer0062 0112 00 MAXTRK FCB 00063 0113 00 MAXSEC FCB 00064 0200 ORG $02000065 *0066 * SECTOR BUFFER0067 *0068 0200 BUFFER RMB 2560069 *0070 *0071 * recieve char from remote drive.0072 * timeout if no response for approx 1s.0073 * Entry: no parameters0074 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.0075 *0076 0300 34 30 RCHAR PSHS X,Y0077 *0078 0302 8E 03 E8 LDX #1000 1000x inner loop0079 0305 10 8E 04 E2 RCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).0080 0309 B6 E0 00 RCHAR2 LDA ACIAC1 test for recieved char0081 030C 47 ASRA0082 030D 25 0A BCS RCHAR3 get character0083 030F 31 3F LEAY -1,Y else, continue to count delay0084 0311 26 F6 BNE RCHAR20085 0313 30 1F LEAX -1,X0086 0315 26 EE BNE RCHAR10087 0317 35 B0 PULS X,Y,PC return with error if timed out0088 *0089 0319 B6 E0 01 RCHAR3 LDA ACIAD1 return data (carry bit still set)0090 031C 35 B0 PULS X,Y,PC0091 *0092 *0093 * transmit char to remote drive.0094 * timeout if no response for approx 1s. (allows for use of hardware flow control)0095 * Entry: (A) = char to transmit0096 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.0097 *0098 031E 34 30 SCHAR PSHS X,Y0099 0320 34 02 PSHS A0100 *0101 0322 8E 03 E8 LDX #1000 1000x inner loop0102 0325 10 8E 04 E2 SCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).0103 0329 B6 E0 00 SCHAR2 LDA ACIAC1 test for space in transmit FIFO0104 032C 47 ASRA0105 032D 47 ASRA0106 032E 25 0C BCS SCHAR3 send character0107 0330 31 3F LEAY -1,Y else, continue to count delay0108 0332 26 F5 BNE SCHAR20109 0334 30 1F LEAX -1,X0110 0336 26 ED BNE SCHAR10111 0338 35 02 PULS A0112 033A 35 B0 PULS X,Y,PC return with error if timed out0113 *0114 033C 35 02 SCHAR3 PULS A0115 033E B7 E0 01 STA ACIAD1 send data (carry bit still set)0116 0341 35 B0 PULS X,Y,PC0117 *0118 ** 'UF' Format IDE Drive to FLEX standard.0119 *0120 0343 0A 0D DISFOS FCB $0A,$0D0121 0345 46 6F 72 6D 61 74 FCC 'Formating IDE disk... '69 6E 67 20 49 4445 20 64 69 73 6B2E 2E 2E 200122 035B 0A 0D FCB $0A,$0D0123 035D 44 72 69 76 65 20 FCC 'Drive Number ?'4E 75 6D 62 65 7220 3F0124 036B 04 FCB 40125 036C 0A 0D 04 MESS6 FCB $0A,$0D,40126 036F 49 44 45 20 64 72 FCC 'IDE drive not allocated! '69 76 65 20 6E 6F74 20 61 6C 6C 6F63 61 74 65 64 21200127 0388 04 FCB 40128 0389 0A 0D UFMSG1 FCB $0A,$0D0129 038B 46 6F 72 6D 61 74 FCC 'Format Complete'20 43 6F 6D 70 6C65 74 650130 039A 04 FCB 40131 *0132 039B BD 05 39 UFSUB JSR INITDR0133 039E 8E 03 43 LDX #DISFOS0134 03A1 BD 05 32 JSR PDATA10135 03A4 17 FF 59 UFSUB1 LBSR RCHAR0136 03A7 24 FB BCC UFSUB10137 03A9 17 FF 72 LBSR SCHAR0138 03AC 81 30 CMPA #'0'0139 03AE 10 25 00 F3 LBLO UFEXIT0140 03B2 81 33 CMPA #'3'0141 03B4 10 22 00 ED LBHI UFEXIT0142 03B8 80 30 SUBA #'0'0143 03BA 1F 89 TFR A,B0144 03BC F7 01 07 STB DRVNUM0145 03BF 8E 01 04 LDX #DRVNUM-30146 03C2 BD 05 B1 JSR DRVSEL0147 *0148 * set up free chain0149 *0150 03C5 8E 02 00 LDX #BUFFER clear out buffer0151 03C8 4F CLRA0152 03C9 5F CLRB0153 03CA A7 80 DFL1 STA 0,X+0154 03CC 5A DECB0155 03CD 26 FB BNE DFL10156 *0157 03CF 7F 01 08 CLR TRACK0158 03D2 86 01 LDA #10159 03D4 B7 01 09 STA SECTOR0160 03D7 8E 02 00 DFL2 LDX #BUFFER0161 03DA B6 01 08 LDA TRACK0162 03DD A7 84 STA 0,X0163 03DF B6 01 09 LDA SECTOR0164 03E2 4C INCA0165 03E3 81 00 CMPA #RMAXSEC+1 last sector on track?0166 03E5 26 04 BNE DFL30167 03E7 6C 84 INC 0,X0168 03E9 86 01 LDA #10169 03EB A7 01 DFL3 STA 1,X0170 03ED B6 01 08 LDA TRACK0171 03F0 F6 01 09 LDB SECTOR0172 03F3 BD 05 8D JSR WRITSC0173 03F6 7C 01 09 INC SECTOR0174 03F9 B6 01 09 LDA SECTOR0175 03FC 81 00 CMPA #RMAXSEC+10176 03FE 26 D7 BNE DFL20177 0400 86 01 LDA #10178 0402 B7 01 09 STA SECTOR0179 0405 7C 01 08 INC TRACK0180 0408 B6 01 08 LDA TRACK0181 040B 81 40 CMPA #RMAXTRK0182 040D 26 C8 BNE DFL20183 * break free chain at last track/sector0184 040F 8E 02 00 LDX #BUFFER0185 0412 86 3F LDA #RMAXTRK-10186 0414 C6 FF LDB #RMAXSEC0187 0416 BD 05 6C JSR READSC0188 0419 8E 02 00 LDX #BUFFER0189 041C 6F 84 CLR 0,X0190 041E 6F 01 CLR 1,X0191 0420 86 3F LDA #RMAXTRK-10192 0422 C6 FF LDB #RMAXSEC0193 0424 BD 05 8D JSR WRITSC0194 * set up sector structure, SIR, directory etc0195 0427 8E 02 00 LDX #BUFFER0196 042A 4F CLRA0197 042B C6 FF LDB #RMAXSEC0198 042D BD 05 6C JSR READSC0199 0430 8E 02 00 LDX #BUFFER0200 0433 6F 84 CLR 0,X break end of directory chain0201 0435 6F 01 CLR 1,X0202 0437 4F CLRA0203 0438 C6 FF LDB #RMAXSEC0204 043A BD 05 8D JSR WRITSC0205 *0206 043D 8E 02 00 LDX #BUFFER0207 0440 4F CLRA0208 0441 C6 03 LDB #3 set up SIR0209 0443 BD 05 6C JSR READSC0210 0446 8E 02 00 LDX #BUFFER0211 0449 6F 84 CLR 0,X break forward link0212 044B 6F 01 CLR 1,X0213 044D CC 52 41 LDD #$5241 set volume name (RAMDISK )0214 0450 ED 88 10 STD 16,X0215 0453 CC 4D 44 LDD #$4D440216 0456 ED 88 12 STD 18,X0217 0459 CC 49 53 LDD #$49530218 045C ED 88 14 STD 20,X0219 045F CC 4B 20 LDD #$4B200220 0462 ED 88 16 STD 22,X0221 0465 CC 00 01 LDD #1 volume number0222 0468 ED 88 1B STD 27,X0223 046B CC 01 01 LDD #$0101 first trk/sec 01-010224 046E ED 88 1D STD 29,X0225 0471 86 3F LDA #RMAXTRK-10226 0473 C6 FF LDB #RMAXSEC0227 0475 ED 88 1F STD 31,X0228 0478 ED 88 26 STD 38,X0229 047B CC 3E C1 LDD #RTOTSEC total DATA sectors (2912-14)0230 047E ED 88 21 STD 33,X0231 *0232 0481 86 01 LDA #01 month set default creation date (SYS09's birthday!)0233 0483 A7 88 23 STA 35,X0234 0486 86 07 LDA #07 day0235 0488 A7 88 24 STA 36,X0236 048B 86 07 LDA #07 year0237 048D A7 88 25 STA 37,X0238 *0239 0490 4F RF3 CLRA0240 0491 C6 03 LDB #30241 0493 BD 05 8D JSR WRITSC0242 *0243 * Not sure what this is about0244 * put bootstrap on track 0 sector 10245 *0246 * LDX #BUFFER0247 * CLRA0248 * LDB #10249 * JSR READSC0250 * LDX #BUFFER0251 * LDA #$AA set the init flag0252 * STA 0,X0253 * LDA #$550254 * STA 1,X0255 * CLRA0256 * LDB #10257 * JSR WRITSC0258 *0259 * Write Boot sector0260 *0261 0496 8E C0 00 LDX #$C0000262 0499 4F CLRA TRACK 00263 049A C6 01 LDB #$01 SECTOR 10264 049C B7 01 08 STA TRACK0265 049F F7 01 09 STB SECTOR0266 04A2 17 00 E8 LBSR WRITSC0267 *0268 04A5 8E 03 89 UFEXIT LDX #UFMSG10269 04A8 7E 05 32 JMP PDATA10270 *0271 * Read a byte from the serial port0272 *0273 04AB 34 04 LRBYTE PSHS B0274 04AD 8D 0E BSR LRHEX Get hex digit.0275 04AF 48 ASLA0276 04B0 48 ASLA Shift to msb.0277 04B1 48 ASLA0278 04B2 48 ASLA0279 04B3 1F 89 TFR A,B Save in B.0280 04B5 8D 06 BSR LRHEX Get next digit.0281 04B7 34 04 PSHS B0282 04B9 AB E0 ADDA 0,S+ Add together bytes.0283 04BB 35 84 PULS B,PC0284 *0285 04BD BD 04 E6 LRHEX JSR INTER0286 04C0 29 FB BVS LRHEX0287 04C2 80 30 SUBA #$30 Remove ascii bias.0288 04C4 2B F7 BMI LRHEX0289 04C6 81 09 CMPA #$09 Number?0290 04C8 2F 0A BLE LRHEX1 Yes.0291 04CA 81 11 CMPA #$11 Keep testing.0292 04CC 2B EF BMI LRHEX0293 04CE 81 16 CMPA #$160294 04D0 2E EB BGT LRHEX0295 04D2 80 07 SUBA #$070296 04D4 39 LRHEX1 RTS0297 *0298 * ACIA INPUT TEST0299 *0300 04D5 B6 E0 00 INTEST LDA ACIAC10301 04D8 85 01 BITA #$010302 04DA 39 RTS0303 *0304 * RESET ACIA0305 *0306 04DB 86 03 ACIRST LDA #$03 master reset0307 04DD B7 E0 00 STA ACIAC10308 04E0 86 11 LDA #$110309 04E2 B7 E0 00 STA ACIAC10310 04E5 39 RTS0311 *0312 * ACIA INPUT0313 *0314 04E6 86 10 INTER LDA #160315 04E8 B7 01 0F STA DELCNT+00316 04EB 7F 01 10 CLR DELCNT+10317 04EE 7F 01 11 CLR DELCNT+20318 04F1 B6 E0 00 INTER0 LDA ACIAC10319 04F4 85 01 BITA #$010320 04F6 26 08 BNE INTER10321 04F8 85 78 BITA #$780322 04FA 27 0A BEQ INTER20323 04FC 8D DD BSR ACIRST0324 04FE 20 E6 BRA INTER0325 *0326 0500 B6 E0 01 INTER1 LDA ACIAD10327 0503 1C 02 ANDCC #VFLAG0328 0505 39 RTS0329 *0330 0506 7A 01 11 INTER2 DEC DELCNT+20331 0509 26 E6 BNE INTER00332 050B 7A 01 10 DEC DELCNT+10333 050E 26 E1 BNE INTER00334 0510 7A 01 0F DEC DELCNT+00335 0513 26 DC BNE INTER00336 0515 4F CLRA0337 0516 1A 02 ORCC #VFLAG0338 0518 39 RTS0339 *0340 * ACIA OUTPUT0341 *0342 0519 34 02 OUTTER PSHS A0343 *0344 051B B6 E0 00 OUTTE1 LDA ACIAC10345 051E 85 02 BITA #$020346 0520 26 08 BNE OUTTE20347 0522 85 78 BITA #$780348 0524 27 F5 BEQ OUTTE10349 0526 8D B3 BSR ACIRST0350 0528 20 F1 BRA OUTTE10351 *0352 052A 35 02 OUTTE2 PULS A0353 052C B7 E0 01 STA ACIAD10354 052F 39 RTS0355 *0356 * Print Data0357 *0358 0530 8D E7 PDATA0 BSR OUTTER0359 0532 A6 80 PDATA1 LDA ,X+0360 0534 81 04 CMPA #$040361 0536 26 F8 BNE PDATA00362 0538 39 RTS0363 *0364 ** FLEX 9 IDE DISK DRIVERS0365 *0366 * FOR SYS09BUG 1.2 ON THE XSA-3S10000367 * WITH I/O MAPPED AT $XE0000368 * AND ROM MAPPED AT $XF0000369 *0370 *0371 0010 IMASK EQU $10 IRQ MASK CC0372 0040 FMASK EQU $40 FIRQ MASK CC0373 *0374 E100 CF_BASE EQU $E1000375 E100 CF_DATA EQU CF_BASE+00376 E102 CF_ERROR EQU CF_BASE+2 ; read error0377 E102 CF_FEATURE EQU CF_BASE+2 ; write feature0378 E104 CF_SCNT EQU CF_BASE+40379 E106 CF_SNUM EQU CF_BASE+60380 E108 CF_CLO EQU CF_BASE+80381 E10A CF_CHI EQU CF_BASE+100382 E10C CF_HEAD EQU CF_BASE+120383 E10E CF_STATUS EQU CF_BASE+14 ; read status0384 E10E CF_COMAND EQU CF_BASE+14 ; write command0385 E11E CF_AUX EQU CF_BASE+300386 *0387 * Command Equates0388 *0389 0020 CMDREAD EQU $20 ; Read Single sector0390 0030 CMDWRITE EQU $30 ; Write Single sector0391 0006 AUXRESET EQU $060392 0002 AUXRSTREL EQU $020393 00E0 HEADLBA EQU $E00394 *0395 * Status bit equates0396 *0397 0080 BSY EQU $800398 0040 DRDY EQU $400399 0008 DRQ EQU $080400 0001 ERR EQU $010401 *0402 *0403 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0404 *0405 0539 CC 00 06 INITDR LDD #AUXRESET0406 053C FD E1 1E STD CF_AUX0407 053F CC 00 02 LDD #AUXRSTREL0408 0542 FD E1 1E STD CF_AUX0409 0545 CC 00 E0 LDD #HEADLBA0410 0548 FD E1 0C STD CF_HEAD0411 054B 20 74 BRA WAITRDY0412 *0413 * RESTORE DISK DRIVER (SEEK TRACK 00)0414 *0415 054D 8D 62 RESTR1 BSR DRVSEL0416 054F 4F CLRA ; Track 00417 0550 C6 01 LDB #$01 ; Sector 10418 *0419 * Seek track and sector0420 * A holds track number (0 - ??)0421 * B holds sector number (1 - ??)0422 * Sector numbers starts from 10423 * subtract 1 to start from sector 0 on CF0424 *0425 0552 34 02 SEEKTS PSHS A0426 0554 4F CLRA0427 0555 5A DECB0428 0556 FD E1 06 STD CF_SNUM0429 0559 E6 E4 LDB ,S0430 055B FD E1 08 STD CF_CLO0431 055E F6 01 07 LDB DRVNUM0432 0561 FD E1 0A STD CF_CHI0433 0564 C6 01 LDB #$010434 0566 FD E1 04 STD CF_SCNT0435 0569 5F CLRB0436 056A 35 82 PULS A,PC0437 *0438 * READ SECTORS FROM CF0439 *0440 *0441 056C 8D E4 READSC BSR SEEKTS0442 056E CC 00 20 LDD #CMDREAD ; IDE READ MULTIPLE0443 0571 FD E1 0E STD CF_COMAND0444 0574 8D 4B BSR WAITRDY0445 *0446 * READ LOOP0447 *0448 0576 34 20 PSHS Y0449 0578 10 8E 01 00 LDY #2560450 057C 8D 52 RDLP1 BSR WAITDRQ0451 057E FC E1 00 LDD CF_DATA0452 0581 E7 80 STB ,X+0453 0583 31 3F LEAY -1,Y0454 0585 26 F5 BNE RDLP10455 0587 35 20 PULS Y0456 *0457 0589 8D 36 BSR WAITRDY0458 058B 5F CLRB0459 058C 39 RTS0460 *0461 * WRITE SECTOR TO CF0462 *0463 058D 8D C3 WRITSC BSR SEEKTS ; SEEK TRACK & SECTOR0464 058F CC 00 30 LDD #CMDWRITE ; IDE WRITE MULTIPLE0465 0592 FD E1 0E STD CF_COMAND0466 0595 8D 2A BSR WAITRDY0467 *0468 * WRITE LOOP0469 *0470 0597 34 20 PSHS Y0471 0599 10 8E 01 00 LDY #2560472 059D 4F CLRA0473 059E 8D 30 WRTLP1 BSR WAITDRQ0474 05A0 E6 80 LDB ,X+0475 05A2 FD E1 00 STD CF_DATA0476 05A5 31 3F LEAY -1,Y0477 05A7 26 F5 BNE WRTLP10478 05A9 35 20 PULS Y0479 *0480 05AB 8D 14 BSR WAITRDY0481 05AD 5F CLRB0482 05AE 39 RTS0483 *0484 * CHECK FOR BUSY0485 * Doubles as VERIFY0486 *0487 05AF 5F BUSY CLRB Never busy0488 05B0 39 RTS0489 *0490 * DRIVE SELECT DISK DRIVER0491 *0492 05B1 A6 03 DRVSEL LDA 3,X GET DRIVE # FROM FCB0493 05B3 81 03 CMPA #30494 05B5 23 01 BLS DRVS2 IF > 3, SET IT TO 00495 05B7 4F CLRA0496 05B8 B7 01 07 DRVS2 STA DRVNUM0497 05BB 5F CLRB ; SET Z, CLEAR C0498 05BC 39 RTS0499 *0500 * CHECK DRIVE READY DISK DRIVER0501 *0502 05BD A6 03 CHKDRV LDA 3,X0503 05BF 5F CLRB ; CLEAR C, SET Z0504 05C0 39 RTS0505 *0506 * WAIT UNTIL READY0507 *0508 05C1 FC E1 0E WAITRDY LDD CF_STATUS0509 05C4 C5 80 BITB #BSY0510 05C6 26 F9 BNE WAITRDY0511 05C8 FC E1 0E LDD CF_STATUS0512 05CB C5 40 BITB #DRDY0513 05CD 27 F2 BEQ WAITRDY0514 05CF 39 RTS0515 *0516 * WAIT FOR DATA REQUEST0517 *0518 05D0 FC E1 0E WAITDRQ LDD CF_STATUS0519 05D3 C5 08 BITB #DRQ0520 05D5 27 F9 BEQ WAITDRQ0521 05D7 39 RTS0522 *0523 *******************************************************0524 *0525 * Bootstrap FLEX Loader0526 *0527 * SBUG1.8 loads the bootstap loader at $C0000528 * however the Flex adaption manual has the0529 * bootstrap loader residing at $C1000530 *0531 ******************************************************0532 *0533 * Equates0534 *0535 C0FF STACK EQU $C0FF0536 C300 SCTBUF EQU $C3000537 *0538 * Start of Utility0539 *0540 C000 ORG $C0000541 C000 20 0B BOOT BRA LOAD00542 C002 00 00 00 FCB 0,0,00543 C005 00 TRK FCB 0 File start track0544 C006 00 SCT FCB 0 File start sector0545 C007 00 DNS FCB 0 Density Flag (not used)0546 C008 C0 00 TADR FDB $C000 Transfer address0547 C00A 00 00 LADR FDB 0 Load Address0548 C00C 00 DRNUM FCB 0 Drive number 00549 *0550 C00D 10 CE C0 FF LOAD0 LDS #STACK Set up stack0551 C011 FC C0 05 LDD TRK Set up start track and sector0552 C014 FD C3 00 STD SCTBUF0553 C017 10 8E C4 00 LDY #SCTBUF+2560554 *0555 * Perform actual file load0556 *0557 C01B 8D 35 LOAD1 BSR GETCH Get acharcater0558 C01D 81 02 CMPA #$02 Data record hearder ?0559 C01F 27 10 BEQ LOAD2 Skip, is so0560 C021 81 16 CMPA #$16 Xfr address hearder ?0561 C023 26 F6 BNE LOAD1 Loop if neither0562 *0563 * Get transfer address0564 *0565 C025 8D 2B BSR GETCH0566 C027 B7 C0 08 STA TADR0567 C02A 8D 26 BSR GETCH0568 C02C B7 C0 09 STA TADR+10569 C02F 20 EA BRA LOAD10570 *0571 * Load data record0572 *0573 C031 8D 1F LOAD2 BSR GETCH Get load address0574 C033 B7 C0 0A STA LADR0575 C036 8D 1A BSR GETCH0576 C038 B7 C0 0B STA LADR+10577 C03B 8D 15 BSR GETCH Get Bytes count0578 C03D 1F 89 TFR A,B0579 C03F 5D TSTB0580 C040 27 D9 BEQ LOAD1 Loop if count = 00581 C042 BE C0 0A LDX LADR Get load address0582 C045 34 14 LOAD3 PSHS B,X0583 C047 8D 09 BSR GETCH Get data character0584 C049 35 14 PULS B,X0585 C04B A7 80 STA ,X+ Store at load address0586 C04D 5A DECB0587 C04E 26 F5 BNE LOAD3 Loop until count = 00588 C050 20 C9 BRA LOAD10589 *0590 * Get Character routine0591 * Reads a sector if needed0592 *0593 C052 10 8C C4 00 GETCH CMPY #SCTBUF+256 out of data ?0594 C056 26 0F BNE GETCH4 Go read Character if not0595 C058 8E C3 00 GETCH2 LDX #SCTBUF Point to buffer0596 C05B EC 84 LDD 0,X Get forward Link0597 C05D 27 0B BEQ GO if zero, file is loaded0598 C05F 8D 27 BSR READ Read next sector0599 C061 26 9D BNE BOOT start over if error0600 C063 10 8E C3 04 LDY #SCTBUF+4 Point past link0601 C067 A6 A0 GETCH4 LDA ,Y+ Else, get a character0602 C069 39 RTS0603 *0604 * File is loaded, Jump to it0605 *0606 C06A 6E 9F C0 08 GO JMP [TADR] Jump to transfer address06070608 *0609 ** FLEX 9 IDE DISK DRIVERS0610 *0611 * FOR SYS09BUG 1.2 ON THE XSA-3S10000612 * WITH I/O MAPPED AT $XE0000613 * AND ROM MAPPED AT $XF0000614 *0615 *IMASK EQU $10 IRQ MASK CC0616 *FMASK EQU $40 FIRQ MASK CC0617 *0618 *CF_BASE EQU $E1000619 *CF_DATA EQU CF_BASE+00620 *CF_ERROR EQU CF_BASE+2 ; read error0621 *CF_FEATURE EQU CF_BASE+2 ; write feature0622 *CF_SCNT EQU CF_BASE+40623 *CF_SNUM EQU CF_BASE+60624 *CF_CLO EQU CF_BASE+80625 *CF_CHI EQU CF_BASE+100626 *CF_HEAD EQU CF_BASE+120627 *CF_STATUS EQU CF_BASE+14 ; read status0628 *CF_COMAND EQU CF_BASE+14 ; write command0629 *CF_AUX EQU CF_BASE+300630 *0631 * Command Equates0632 *0633 *CMDREAD EQU $20 ; Read Single sector0634 *CMDWRITE EQU $30 ; Write Single sector0635 *HEADLBA EQU $E00636 *AUXRESET EQU $060637 *AUXRSTREL EQU $020638 *0639 * Status bit equates0640 *0641 *BSY EQU $800642 *DRDY EQU $400643 *DRQ EQU $080644 *ERR EQU $010645 *0646 * Seek track and sector0647 * A holds track number (0 - ??)0648 * B holds sector number (1 - ??)0649 * Sector numbers starts from 10650 * subtract 1 to start from sector 0 on CF0651 *0652 C06E 34 02 SEEK PSHS A0653 C070 4F CLRA0654 C071 5A DECB0655 C072 FD E1 06 STD CF_SNUM0656 C075 E6 E4 LDB ,S0657 C077 FD E1 08 STD CF_CLO0658 C07A F6 C0 0C LDB DRNUM0659 C07D FD E1 0A STD CF_CHI0660 C080 C6 01 LDB #$010661 C082 FD E1 04 STD CF_SCNT0662 C085 5F CLRB0663 C086 35 82 PULS A,PC0664 *0665 * READ SECTORS FROM CF0666 *0667 *0668 C088 8D E4 READ BSR SEEK0669 C08A CC 00 20 LDD #CMDREAD ; IDE READ MULTIPLE0670 C08D FD E1 0E STD CF_COMAND0671 C090 8D 17 BSR WTRDY0672 *0673 * READ LOOP0674 *0675 C092 34 20 PSHS Y0676 C094 10 8E 01 00 LDY #2560677 C098 8D 1E READ1 BSR WTDRQ0678 C09A FC E1 00 LDD CF_DATA0679 C09D E7 80 STB ,X+0680 C09F 31 3F LEAY -1,Y0681 C0A1 26 F5 BNE READ10682 C0A3 35 20 PULS Y0683 *0684 C0A5 8D 02 BSR WTRDY0685 C0A7 5F CLRB0686 C0A8 39 RTS0687 *0688 * WAIT UNTIL READY0689 *0690 C0A9 FC E1 0E WTRDY LDD CF_STATUS0691 C0AC C5 80 BITB #BSY0692 C0AE 26 F9 BNE WTRDY0693 C0B0 FC E1 0E LDD CF_STATUS0694 C0B3 C5 40 BITB #DRDY0695 C0B5 27 F2 BEQ WTRDY0696 C0B7 39 RTS0697 *0698 * WAIT FOR DATA REQUEST0699 *0700 C0B8 FC E1 0E WTDRQ LDD CF_STATUS0701 C0BB C5 08 BITB #DRQ0702 C0BD 27 F9 BEQ WTDRQ0703 C0BF 39 RTS0704 *0705 END STARTProgram + Init Data = 940 bytesError count = 0