URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [upld/] [upld_cf8.lst] - Rev 201
Go to most recent revision | 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 0030 RMAXTRK EQU 480042 000E RMAXSEC EQU 140043 0292 RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC0044 *0045 * Start0046 *0047 0100 ORG $01000048 0100 17 02 C3 START LBSR UXSUB0049 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 * ACIA INPUT TEST0071 *0072 0300 B6 E0 00 INTEST LDA ACIAC10073 0303 85 01 BITA #$010074 0305 39 RTS0075 *0076 * RESET ACIA0077 *0078 0306 86 03 ACIRST LDA #$03 master reset0079 0308 B7 E0 00 STA ACIAC10080 030B 86 11 LDA #$110081 030D B7 E0 00 STA ACIAC10082 0310 39 RTS0083 *0084 * ACIA INPUT0085 *0086 0311 86 10 INTER LDA #160087 0313 B7 01 0F STA DELCNT+00088 0316 7F 01 10 CLR DELCNT+10089 0319 7F 01 11 CLR DELCNT+20090 031C B6 E0 00 INTER0 LDA ACIAC10091 031F 85 01 BITA #$010092 0321 26 08 BNE INTER10093 0323 85 78 BITA #$780094 0325 27 0A BEQ INTER20095 0327 8D DD BSR ACIRST0096 0329 20 E6 BRA INTER0097 *0098 032B B6 E0 01 INTER1 LDA ACIAD10099 032E 1C FD ANDCC #$FF-VFLAG0100 0330 39 RTS0101 *0102 0331 7A 01 11 INTER2 DEC DELCNT+20103 0334 26 E6 BNE INTER00104 0336 7A 01 10 DEC DELCNT+10105 0339 26 E1 BNE INTER00106 033B 7A 01 0F DEC DELCNT+00107 033E 26 DC BNE INTER00108 0340 4F CLRA0109 0341 1A 02 ORCC #VFLAG0110 0343 39 RTS0111 *0112 * ACIA OUTPUT0113 *0114 0344 34 02 OUTTER PSHS A0115 *0116 0346 B6 E0 00 OUTTE1 LDA ACIAC10117 0349 85 02 BITA #$020118 034B 26 08 BNE OUTTE20119 034D 85 78 BITA #$780120 034F 27 F5 BEQ OUTTE10121 0351 8D B3 BSR ACIRST0122 0353 20 F1 BRA OUTTE10123 *0124 0355 35 02 OUTTE2 PULS A0125 0357 B7 E0 01 STA ACIAD10126 035A 39 RTS0127 *0128 * Print Data0129 *0130 035B 8D E7 PDATA0 BSR OUTTER0131 035D A6 80 PDATA1 LDA ,X+0132 035F 81 04 CMPA #$040133 0361 26 F8 BNE PDATA00134 0363 39 RTS0135 *0136 ** 'UX' Xmodem ROM Disk upload0137 *0138 0364 0D 0A UXMES0 FCB $0D,$0A0139 0366 58 6D 6F 64 65 6D FCC 'Xmodem ROM Disk Upload'20 52 4F 4D 20 4469 73 6B 20 55 706C 6F 61 640140 037C 04 FCB 40141 037D 0D 0A UXMES1 FCB $0D,$0A0142 037F 55 70 6C 6F 61 64 FCC 'Upload Complete'20 43 6F 6D 70 6C65 74 650143 038E 04 FCB 40144 038F 0D 0A UXMES2 FCB $0D,$0A0145 0391 55 70 6C 6F 61 64 FCC 'Upload Error'20 45 72 72 6F 720146 039D 04 FCB 40147 039E 0D 0A UXMSG3 FCB $0D,$0A0148 03A0 44 72 69 76 65 20 FCC 'Drive Number :'4E 75 6D 62 65 7220 3A0149 03AE 04 FCB 40150 03AF 0D 0A UXMSG4 FCB $0D,$0A0151 03B1 41 72 65 20 59 6F FCC 'Are You Sure ? (Y/N)'75 20 53 75 72 6520 3F 20 28 59 2F4E 290152 03C5 04 FCB 40153 *0154 * Print Banner0155 *0156 03C6 8E 03 64 UXSUB LDX #UXMES00157 03C9 17 FF 91 LBSR PDATA10158 *0159 * Prompt for Disk drive number (0 to 3)0160 *0161 03CC 8E 03 9E LDX #UXMSG30162 03CF 17 FF 8B LBSR PDATA10163 03D2 17 FF 3C UXSUB1 LBSR INTER0164 03D5 29 FB BVS UXSUB10165 03D7 17 FF 6A LBSR OUTTER0166 03DA 81 30 CMPA #'00167 03DC 10 25 01 2E LBLO UXEXIT0168 03E0 81 33 CMPA #'30169 03E2 10 22 01 28 LBHI UXEXIT0170 03E6 80 30 SUBA #'00171 03E8 B7 01 07 STA DRVNUM0172 *0173 * Report selected drive0174 *0175 03EB 8E 03 9E LDX #UXMSG30176 03EE 17 FF 6C LBSR PDATA10177 03F1 B6 01 07 LDA DRVNUM0178 03F4 8B 30 ADDA #'00179 03F6 17 FF 4B LBSR OUTTER0180 *0181 * Ask for confirmation (Y/N)0182 *0183 03F9 8E 03 AF LDX #UXMSG40184 03FC 17 FF 5E LBSR PDATA10185 03FF 17 FF 0F UXSUB2 LBSR INTER0186 0402 29 FB BVS UXSUB20187 0404 17 FF 3D LBSR OUTTER0188 0407 84 5F ANDA #$5F0189 0409 81 4E CMPA #'N0190 040B 10 27 00 FF LBEQ UXEXIT0191 040F 81 59 CMPA #'Y0192 0411 26 B3 BNE UXSUB0193 *0194 * We have confirmation ... now load the disk image0195 *0196 0413 17 01 B1 LBSR INITDR0197 0416 CE 05 37 LDU #XSTST0198 0419 FF 01 0D STU XSTATE0199 041C 86 01 LDA #10200 041E B7 01 0B STA BLKNUM0201 *0202 * Sector10203 *0204 0421 8E 02 00 LDX #BUFFER0205 *0206 0424 4F CLRA TRACK 00207 0425 C6 01 LDB #$01 SECTOR 10208 0427 B7 01 08 STA TRACK0209 042A F7 01 09 STB SECTOR0210 *0211 042D 17 00 EA LBSR XREAD0212 0430 10 25 00 E0 LBCS UXERR0213 0434 17 01 87 LBSR XACK0214 0437 17 00 E0 LBSR XREAD0215 043A 10 25 00 D6 LBCS UXERR0216 *0217 043E 8E 02 00 LDX #BUFFER0218 0441 B6 01 08 LDA TRACK0219 0444 F6 01 09 LDB SECTOR0220 0447 17 01 C5 LBSR WRITSC0221 044A 17 01 71 LBSR XACK0222 *0223 * Sector 20224 *0225 044D 8E 02 00 LDX #BUFFER0226 *0227 0450 B6 01 08 LDA TRACK0228 0453 F6 01 09 LDB SECTOR0229 0456 5C INCB0230 0457 B7 01 08 STA TRACK0231 045A F7 01 09 STB SECTOR0232 *0233 045D 17 00 BA LBSR XREAD0234 0460 10 25 00 B0 LBCS UXERR0235 0464 17 01 57 LBSR XACK0236 0467 17 00 B0 LBSR XREAD0237 046A 10 25 00 A6 LBCS UXERR0238 *0239 046E 8E 02 00 LDX #BUFFER0240 0471 B6 01 08 LDA TRACK0241 0474 F6 01 09 LDB SECTOR0242 0477 17 01 95 LBSR WRITSC0243 *0244 047A 17 01 41 LBSR XACK0245 *0246 * Sector 3 - SIR0247 *0248 047D 8E 02 00 LDX #BUFFER0249 *0250 0480 B6 01 08 LDA TRACK0251 0483 F6 01 09 LDB SECTOR0252 0486 5C INCB0253 0487 B7 01 08 STA TRACK0254 048A F7 01 09 STB SECTOR0255 *0256 048D 17 00 8A LBSR XREAD0257 0490 10 25 00 80 LBCS UXERR0258 0494 17 01 27 LBSR XACK0259 0497 17 00 80 LBSR XREAD0260 049A 10 25 00 76 LBCS UXERR0261 *0262 049E 8E 02 00 LDX #BUFFER0263 04A1 A6 88 26 LDA 38,X0264 04A4 4C INCA0265 04A5 B7 01 12 STA MAXTRK0266 04A8 E6 88 27 LDB 39,X0267 04AB 5C INCB0268 04AC F7 01 13 STB MAXSEC0269 04AF B6 01 08 LDA TRACK0270 04B2 F6 01 09 LDB SECTOR0271 04B5 17 01 57 LBSR WRITSC0272 *0273 04B8 17 01 03 LBSR XACK0274 *0275 * Sector 4 to Last Track & Sector0276 *0277 *0278 04BB B6 01 08 LDA TRACK0279 04BE F6 01 09 LDB SECTOR0280 04C1 5C INCB0281 *0282 04C2 8E 02 00 UXLOOP LDX #BUFFER0283 04C5 B7 01 08 STA TRACK0284 04C8 F7 01 09 STB SECTOR0285 *0286 04CB 17 00 4C LBSR XREAD0287 04CE 10 25 00 42 LBCS UXERR0288 04D2 17 00 E9 LBSR XACK0289 04D5 17 00 42 LBSR XREAD0290 04D8 10 25 00 38 LBCS UXERR0291 *0292 04DC 8E 02 00 LDX #BUFFER0293 04DF B6 01 08 LDA TRACK0294 04E2 F6 01 09 LDB SECTOR0295 04E5 17 01 27 LBSR WRITSC0296 04E8 17 00 D3 LBSR XACK0297 *0298 04EB B6 01 08 LDA TRACK0299 04EE F6 01 09 LDB SECTOR0300 04F1 5C INCB0301 04F2 F1 01 13 CMPB MAXSEC0302 04F5 26 CB BNE UXLOOP0303 04F7 C6 01 LDB #10304 04F9 4C INCA0305 04FA B1 01 12 CMPA MAXTRK0306 04FD 26 C3 BNE UXLOOP0307 *0308 *0309 * Write Boot sector0310 *0311 04FF 8E C0 00 LDX #$C0000312 0502 4F CLRA TRACK 00313 0503 C6 01 LDB #$01 SECTOR 10314 0505 B7 01 08 STA TRACK0315 0508 F7 01 09 STB SECTOR0316 050B 17 01 01 LBSR WRITSC0317 *0318 050E 8E 03 7D UXEXIT LDX #UXMES10319 0511 7E 03 5D JMP PDATA10320 *0321 0514 8E 03 8F UXERR LDX #UXMES20322 0517 16 FE 43 LBRA PDATA10323 *0324 * Get a Byte using XModem protocol0325 * Carry clear => no errors0326 * Carry set => errors0327 *0328 051A 34 40 XREAD PSHS U0329 051C FE 01 0D LDU XSTATE0330 *0331 051F 17 FD EF XBYTE0 LBSR INTER0332 0522 28 0A BVC XBYTE10333 0524 86 15 LDA #NAK0334 0526 17 FE 1B LBSR OUTTER0335 0529 CE 05 37 LDU #XSTST0336 052C 20 F1 BRA XBYTE00337 *0338 052E AD C4 XBYTE1 JSR ,U0339 0530 26 ED BNE XBYTE00340 0532 FF 01 0D STU XSTATE0341 0535 35 C0 PULS U,PC0342 *0343 * START - LOOK FOR SOH (START OF HEADER) = $010344 *0345 0537 81 01 XSTST CMPA #SOH0346 0539 26 06 BNE XSTST10347 053B CE 05 57 LDU #XSTBL0348 053E 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0349 0540 39 RTS0350 *0351 0541 81 04 XSTST1 CMPA #EOT0352 0543 26 08 BNE XSTST20353 0545 86 06 LDA #ACK0354 0547 17 FD FA LBSR OUTTER0355 054A 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0356 054C 39 RTS0357 *0358 054D 81 18 XSTST2 CMPA #CAN0359 054F 26 03 BNE XSTST30360 0551 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0361 0553 39 RTS0362 *0363 0554 1C FA XSTST3 ANDCC #$FF-CFLAG-ZFLAG0364 0556 39 RTS0365 *0366 * Got SOH0367 * Now get block number0368 *0369 0557 B1 01 0B XSTBL CMPA BLKNUM0370 055A 26 06 BNE XSTBLE0371 055C CE 05 6D LDU #XSTCOM0372 055F 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0373 0561 39 RTS0374 *0375 * Error in block number0376 *0377 0562 86 15 XSTBLE LDA #NAK0378 0564 17 FD DD LBSR OUTTER0379 0567 CE 05 37 LDU #XSTST0380 056A 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0381 056C 39 RTS0382 *0383 * Get complement of block number0384 *0385 056D 43 XSTCOM COMA0386 056E B1 01 0B CMPA BLKNUM0387 0571 26 EF BNE XSTBLE0388 0573 7F 01 0A CLR CHKSUM0389 0576 86 80 LDA #1280390 0578 B7 01 0C STA BYTCNT0391 057B CE 05 81 LDU #XSTDA0392 057E 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0393 0580 39 RTS0394 *0395 * Get data bytes0396 *0397 0581 34 02 XSTDA PSHS A0398 0583 BB 01 0A ADDA CHKSUM0399 0586 B7 01 0A STA CHKSUM0400 0589 35 02 PULS A0401 058B 7A 01 0C DEC BYTCNT0402 058E 26 03 BNE XSTDA10403 0590 CE 05 98 LDU #XSTCK0404 0593 A7 80 XSTDA1 STA ,X+0405 0595 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0406 0597 39 RTS0407 *0408 * Byte count reached zero0409 * Check checksum byte0410 *0411 0598 B1 01 0A XSTCK CMPA CHKSUM0412 059B 26 0B BNE XSTCK1 retry if wrong checksum0413 *0414 * Checksum OK ...0415 * increment block number0416 * Don't send ACK until data written to CF0417 *0418 059D 7C 01 0B INC BLKNUM0419 05A0 CE 05 37 LDU #XSTST0420 05A3 1C FE ANDCC #$FF-CFLAG No abort0421 05A5 1A 04 ORCC #ZFLAG Valid data (exit)0422 05A7 39 RTS0423 *0424 * Checksum Error detected ...0425 * Reset Sector counter in ACCB to last 128 byte boundary0426 * and send NAK0427 *0428 05A8 34 04 XSTCK1 PSHS B0429 05AA 1F 10 TFR X,D0430 05AC 5A DECB0431 05AD C4 80 ANDB #1280432 05AF 1F 01 TFR D,X0433 05B1 35 04 PULS B0434 05B3 86 15 LDA #NAK0435 05B5 17 FD 8C XSTCK2 LBSR OUTTER0436 05B8 CE 05 37 LDU #XSTST0437 05BB 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0438 05BD 39 RTS0439 *0440 * Acknowledge Data Received0441 *0442 05BE 34 02 XACK PSHS A0443 05C0 86 06 LDA #ACK0444 05C2 17 FD 7F LBSR OUTTER0445 05C5 35 82 PULS A,PC0446 *0447 *0448 ** FLEX 9 COMPACT FLASH DISK DRIVERS0449 *0450 * FOR SYS09BUG 1.2 ON THE BURCHED B5-X3000451 * WITH I/O MAPPED AT $XE0000452 * AND ROM MAPPED AT $XF0000453 * THE BURCHED B5-X300 HAS 256KBYTES OF SRAM0454 * THE FIRST 64K IS USED BY FLEX,0455 * THE SECOND 192K MAY BE USED AS A RAM DISK0456 *0457 *0458 0010 IMASK EQU $10 IRQ MASK CC0459 0040 FMASK EQU $40 FIRQ MASK CC0460 FFF0 DATREG EQU $FFF0 DAT REGISTERS0461 *0462 E040 CF_BASE EQU $E0400463 E040 CF_DATA EQU CF_BASE+00464 E041 CF_ERROR EQU CF_BASE+1 ; read error0465 E041 CF_FEATURE EQU CF_BASE+1 ; write feature0466 E042 CF_SCNT EQU CF_BASE+20467 E043 CF_SNUM EQU CF_BASE+30468 E044 CF_CLO EQU CF_BASE+40469 E045 CF_CHI EQU CF_BASE+50470 E046 CF_HEAD EQU CF_BASE+60471 E047 CF_STATUS EQU CF_BASE+7 ; read status0472 E047 CF_COMAND EQU CF_BASE+7 ; write command0473 *0474 * Command Equates0475 *0476 0020 CMDREAD EQU $20 ; Read Single sector0477 0030 CMDWRITE EQU $30 ; Write Single sector0478 00EF CMDFEATURE EQU $EF0479 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers0480 00E0 HEADLBA EQU $E00481 *0482 * Status bit equates0483 *0484 0080 BSY EQU $800485 0040 DRDY EQU $400486 0008 DRQ EQU $080487 0001 ERR EQU $010488 *0489 *0490 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0491 *0492 05C7 8D 7A INITDR BSR WAITRDY0493 05C9 86 E0 LDA #HEADLBA0494 05CB B7 E0 46 STA CF_HEAD0495 05CE 86 01 LDA #FEAT8BIT0496 05D0 B7 E0 41 STA CF_FEATURE0497 05D3 86 EF LDA #CMDFEATURE0498 05D5 B7 E0 47 STA CF_COMAND0499 05D8 20 69 BRA WAITRDY0500 *0501 * Seek track and sector0502 * A holds track number (0 - ??)0503 * B holds sector number (1 - ??)0504 * Sector numbers starts from 10505 * subtract 1 to start from sector 0 on CF0506 *0507 05DA 5A SEEKTS DECB0508 05DB F7 E0 43 STB CF_SNUM0509 05DE B7 E0 44 STA CF_CLO0510 05E1 F6 01 07 LDB DRVNUM0511 05E4 F7 E0 45 STB CF_CHI0512 05E7 C6 01 LDB #$010513 05E9 F7 E0 42 STB CF_SCNT0514 05EC 5F CLRB0515 05ED 39 RTS0516 *0517 * READ SECTORS FROM CF0518 *0519 *0520 05EE 8D EA READSC BSR SEEKTS0521 05F0 86 20 LDA #CMDREAD ; IDE READ MULTIPLE0522 05F2 B7 E0 47 STA CF_COMAND0523 05F5 8D 4C BSR WAITRDY0524 *0525 * READ LOOP0526 *0527 05F7 5F CLRB0528 05F8 8D 58 RDLP1 BSR WAITDRQ0529 05FA B6 E0 40 LDA CF_DATA0530 05FD A7 80 STA ,X+0531 05FF 5A DECB0532 0600 26 F6 BNE RDLP10533 *0534 0602 5F CLRB0535 0603 8D 4D RDLP2 BSR WAITDRQ0536 0605 B6 E0 40 LDA CF_DATA0537 0608 5A DECB0538 0609 26 F8 BNE RDLP20539 *0540 060B 8D 36 BSR WAITRDY0541 060D 5F CLRB0542 060E 39 RTS0543 *0544 * WRITE SECTOR TO CF0545 *0546 060F 8D C9 WRITSC BSR SEEKTS ; SEEK TRACK & SECTOR0547 0611 86 30 LDA #CMDWRITE ; IDE WRITE MULTIPLE0548 0613 B7 E0 47 STA CF_COMAND0549 0616 8D 2B BSR WAITRDY0550 *0551 * WRITE LOOP0552 *0553 0618 5F CLRB0554 0619 8D 37 WRTLP1 BSR WAITDRQ0555 061B A6 80 LDA ,X+0556 061D B7 E0 40 STA CF_DATA0557 0620 5A DECB0558 0621 26 F6 BNE WRTLP10559 *0560 0623 5F CLRB0561 0624 8D 2C WRTLP2 BSR WAITDRQ0562 0626 4F CLRA0563 0627 B7 E0 40 STA CF_DATA0564 062A 5A DECB0565 062B 26 F7 BNE WRTLP20566 *0567 062D 8D 14 BSR WAITRDY0568 062F 5F CLRB0569 0630 39 RTS0570 *0571 * CHECK FOR BUSY0572 * Doubles as VERIFY0573 *0574 0631 5F BUSY CLRB Never busy0575 0632 39 RTS0576 *0577 * DRIVE SELECT DISK DRIVER0578 *0579 0633 A6 03 DRVSEL LDA 3,X GET DRIVE # FROM FCB0580 0635 81 03 CMPA #30581 0637 23 01 BLS DRVS2 IF > 3, SET IT TO 00582 0639 4F CLRA0583 063A B7 01 07 DRVS2 STA DRVNUM0584 063D 5F CLRB ; SET Z, CLEAR C0585 063E 39 RTS0586 *0587 * CHECK DRIVE READY DISK DRIVER0588 *0589 063F A6 03 CHKDRV LDA 3,X0590 0641 5F CLRB ; CLEAR C, SET Z0591 0642 39 RTS0592 *0593 * WAIT UNTIL READY0594 *0595 0643 B6 E0 47 WAITRDY LDA CF_STATUS0596 0646 85 80 BITA #BSY0597 0648 26 F9 BNE WAITRDY0598 064A B6 E0 47 LDA CF_STATUS0599 064D 85 40 BITA #DRDY0600 064F 27 F2 BEQ WAITRDY0601 0651 39 RTS0602 *0603 * WAIT FOR DATA REQUEST0604 *0605 0652 B6 E0 47 WAITDRQ LDA CF_STATUS0606 0655 85 08 BITA #DRQ0607 0657 27 F9 BEQ WAITDRQ0608 0659 39 RTS0609 *0610 *******************************************************0611 *0612 * Bootstrap FLEX Loader0613 *0614 * SBUG1.8 loads the bootstap loader at $C0000615 * however the Flex adaption manual has the0616 * bootstrap loader residing at $C1000617 *0618 ******************************************************0619 *0620 * Equates0621 *0622 C0FF STACK EQU $C0FF0623 C300 SCTBUF EQU $C3000624 *0625 * Start of Utility0626 *0627 C000 ORG $C0000628 C000 20 0B BOOT BRA LOAD00629 C002 00 00 00 FCB 0,0,00630 C005 00 TRK FCB 0 File start track0631 C006 00 SCT FCB 0 File start sector0632 C007 00 DNS FCB 0 Density Flag (not used)0633 C008 C0 00 TADR FDB $C000 Transfer address0634 C00A 00 00 LADR FDB 0 Load Address0635 C00C 00 DRNUM FCB 0 Drive number 00636 *0637 C00D 10 CE C0 FF LOAD0 LDS #STACK Set up stack0638 C011 FC C0 05 LDD TRK Set up start track and sector0639 C014 FD C3 00 STD SCTBUF0640 C017 10 8E C4 00 LDY #SCTBUF+2560641 *0642 * Perform actual file load0643 *0644 C01B 8D 35 LOAD1 BSR GETCH Get acharcater0645 C01D 81 02 CMPA #$02 Data record hearder ?0646 C01F 27 10 BEQ LOAD2 Skip, is so0647 C021 81 16 CMPA #$16 Xfr address hearder ?0648 C023 26 F6 BNE LOAD1 Loop if neither0649 *0650 * Get transfer address0651 *0652 C025 8D 2B BSR GETCH0653 C027 B7 C0 08 STA TADR0654 C02A 8D 26 BSR GETCH0655 C02C B7 C0 09 STA TADR+10656 C02F 20 EA BRA LOAD10657 *0658 * Load data record0659 *0660 C031 8D 1F LOAD2 BSR GETCH Get load address0661 C033 B7 C0 0A STA LADR0662 C036 8D 1A BSR GETCH0663 C038 B7 C0 0B STA LADR+10664 C03B 8D 15 BSR GETCH Get Bytes count0665 C03D 1F 89 TFR A,B0666 C03F 5D TSTB0667 C040 27 D9 BEQ LOAD1 Loop if count = 00668 C042 BE C0 0A LDX LADR Get load address0669 C045 34 14 LOAD3 PSHS B,X0670 C047 8D 09 BSR GETCH Get data character0671 C049 35 14 PULS B,X0672 C04B A7 80 STA ,X+ Store at load address0673 C04D 5A DECB0674 C04E 26 F5 BNE LOAD3 Loop until count = 00675 C050 20 C9 BRA LOAD10676 *0677 * Get Character routine0678 * Reads a sector if needed0679 *0680 C052 10 8C C4 00 GETCH CMPY #SCTBUF+256 out of data ?0681 C056 26 0F BNE GETCH4 Go read Character if not0682 C058 8E C3 00 GETCH2 LDX #SCTBUF Point to buffer0683 C05B EC 84 LDD 0,X Get forward Link0684 C05D 27 0B BEQ GO if zero, file is loaded0685 C05F 8D 21 BSR READ Read next sector0686 C061 26 9D BNE BOOT start over if error0687 C063 10 8E C3 04 LDY #SCTBUF+4 Point past link0688 C067 A6 A0 GETCH4 LDA ,Y+ Else, get a character0689 C069 39 RTS0690 *0691 * File is loaded, Jump to it0692 *0693 C06A 6E 9F C0 08 GO JMP [TADR] Jump to transfer address06940695 *0696 ** FLEX 9 COMPACT FLASH DISK DRIVERS0697 *0698 * FOR SYS09BUG 1.2 ON THE BURCHED B5-X3000699 * WITH I/O MAPPED AT $XE0000700 * AND ROM MAPPED AT $XF0000701 * THE BURCHED B5-X300 HAS 256KBYTES OF SRAM0702 * THE FIRST 64K IS USED BY FLEX,0703 * THE SECOND 192K MAY BE USED AS A RAM DISK0704 *0705 *0706 *IMASK EQU $10 IRQ MASK CC0707 *FMASK EQU $40 FIRQ MASK CC0708 *DATREG EQU $FFF0 DAT REGISTERS0709 *0710 *CF_BASE EQU $E0400711 *CF_DATA EQU CF_BASE+00712 *CF_ERROR EQU CF_BASE+1 ; read error0713 *CF_FEATURE EQU CF_BASE+1 ; write feature0714 *CF_SCNT EQU CF_BASE+20715 *CF_SNUM EQU CF_BASE+30716 *CF_CLO EQU CF_BASE+40717 *CF_CHI EQU CF_BASE+50718 *CF_HEAD EQU CF_BASE+60719 *CF_STATUS EQU CF_BASE+7 ; read status0720 *CF_COMAND EQU CF_BASE+7 ; write command0721 *0722 * Command Equates0723 *0724 *CMDREAD EQU $20 ; Read Single sector0725 *CMDWRITE EQU $30 ; Write Single sector0726 *CMDFEATURE EQU $EF0727 *FEAT8BIT EQU $01 ; enable 8 bit transfers0728 *HEADLBA EQU $E00729 *0730 * Status bit equates0731 *0732 *BSY EQU $800733 *DRDY EQU $400734 *DRQ EQU $080735 *ERR EQU $010736 *0737 * Seek track and sector0738 * A holds track number (0 - ??)0739 * B holds sector number (1 - ??)0740 * Sector numbers starts from 10741 * subtract 1 to start from sector 0 on CF0742 *0743 C06E 5A SEEK DECB0744 C06F F7 E0 43 STB CF_SNUM0745 C072 B7 E0 44 STA CF_CLO0746 C075 F6 C0 0C LDB DRNUM0747 C078 F7 E0 45 STB CF_CHI0748 C07B C6 01 LDB #$010749 C07D F7 E0 42 STB CF_SCNT0750 C080 5F CLRB0751 C081 39 RTS0752 *0753 * READ SECTORS FROM CF0754 *0755 *0756 C082 8D EA READ BSR SEEK0757 C084 86 20 LDA #CMDREAD ; IDE READ MULTIPLE0758 C086 B7 E0 47 STA CF_COMAND0759 C089 8D 18 BSR WTRDY0760 *0761 * READ LOOP0762 *0763 C08B 5F CLRB0764 C08C 8D 24 READ1 BSR WTDRQ0765 C08E B6 E0 40 LDA CF_DATA0766 C091 A7 80 STA ,X+0767 C093 5A DECB0768 C094 26 F6 BNE READ10769 *0770 C096 5F CLRB0771 C097 8D 19 READ2 BSR WTDRQ0772 C099 B6 E0 40 LDA CF_DATA0773 C09C 5A DECB0774 C09D 26 F8 BNE READ20775 *0776 C09F 8D 02 BSR WTRDY0777 C0A1 5F CLRB0778 C0A2 39 RTS0779 *0780 * WAIT UNTIL READY0781 *0782 C0A3 B6 E0 47 WTRDY LDA CF_STATUS0783 C0A6 85 80 BITA #BSY0784 C0A8 26 F9 BNE WTRDY0785 C0AA B6 E0 47 LDA CF_STATUS0786 C0AD 85 40 BITA #DRDY0787 C0AF 27 F2 BEQ WTRDY0788 C0B1 39 RTS0789 *0790 * WAIT FOR DATA REQUEST0791 *0792 C0B2 B6 E0 47 WTDRQ LDA CF_STATUS0793 C0B5 85 08 BITA #DRQ0794 C0B7 27 F9 BEQ WTDRQ0795 C0B9 39 RTS0796 *0797 END STARTProgram + Init Data = 1064 bytesError count = 0
Go to most recent revision | Compare with Previous | Blame | View Log