URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [upld/] [upld_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 03 30 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 *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 * Read a byte from the serial port0119 *0120 0343 34 04 LRBYTE PSHS B0121 0345 8D 0E BSR LRHEX Get hex digit.0122 0347 48 ASLA0123 0348 48 ASLA Shift to msb.0124 0349 48 ASLA0125 034A 48 ASLA0126 034B 1F 89 TFR A,B Save in B.0127 034D 8D 06 BSR LRHEX Get next digit.0128 034F 34 04 PSHS B0129 0351 AB E0 ADDA 0,S+ Add together bytes.0130 0353 35 84 PULS B,PC0131 *0132 0355 BD 03 7E LRHEX JSR INTER0133 0358 29 FB BVS LRHEX0134 035A 80 30 SUBA #$30 Remove ascii bias.0135 035C 2B F7 BMI LRHEX0136 035E 81 09 CMPA #$09 Number?0137 0360 2F 0A BLE LRHEX1 Yes.0138 0362 81 11 CMPA #$11 Keep testing.0139 0364 2B EF BMI LRHEX0140 0366 81 16 CMPA #$160141 0368 2E EB BGT LRHEX0142 036A 80 07 SUBA #$070143 036C 39 LRHEX1 RTS0144 *0145 * ACIA INPUT TEST0146 *0147 036D B6 E0 00 INTEST LDA ACIAC10148 0370 85 01 BITA #$010149 0372 39 RTS0150 *0151 * RESET ACIA0152 *0153 0373 86 03 ACIRST LDA #$03 master reset0154 0375 B7 E0 00 STA ACIAC10155 0378 86 11 LDA #$110156 037A B7 E0 00 STA ACIAC10157 037D 39 RTS0158 *0159 * ACIA INPUT0160 *0161 037E 86 10 INTER LDA #160162 0380 B7 01 0F STA DELCNT+00163 0383 7F 01 10 CLR DELCNT+10164 0386 7F 01 11 CLR DELCNT+20165 0389 B6 E0 00 INTER0 LDA ACIAC10166 038C 85 01 BITA #$010167 038E 26 08 BNE INTER10168 0390 85 78 BITA #$780169 0392 27 0A BEQ INTER20170 0394 8D DD BSR ACIRST0171 0396 20 E6 BRA INTER0172 *0173 0398 B6 E0 01 INTER1 LDA ACIAD10174 039B 1C FD ANDCC #$FF-VFLAG0175 039D 39 RTS0176 *0177 039E 7A 01 11 INTER2 DEC DELCNT+20178 03A1 26 E6 BNE INTER00179 03A3 7A 01 10 DEC DELCNT+10180 03A6 26 E1 BNE INTER00181 03A8 7A 01 0F DEC DELCNT+00182 03AB 26 DC BNE INTER00183 03AD 4F CLRA0184 03AE 1A 02 ORCC #VFLAG0185 03B0 39 RTS0186 *0187 * ACIA OUTPUT0188 *0189 03B1 34 02 OUTTER PSHS A0190 *0191 03B3 B6 E0 00 OUTTE1 LDA ACIAC10192 03B6 85 02 BITA #$020193 03B8 26 08 BNE OUTTE20194 03BA 85 78 BITA #$780195 03BC 27 F5 BEQ OUTTE10196 03BE 8D B3 BSR ACIRST0197 03C0 20 F1 BRA OUTTE10198 *0199 03C2 35 02 OUTTE2 PULS A0200 03C4 B7 E0 01 STA ACIAD10201 03C7 39 RTS0202 *0203 * Print Data0204 *0205 03C8 8D E7 PDATA0 BSR OUTTER0206 03CA A6 80 PDATA1 LDA ,X+0207 03CC 81 04 CMPA #$040208 03CE 26 F8 BNE PDATA00209 03D0 39 RTS0210 *0211 *0212 ** 'UX' Xmodem ROM Disk upload0213 *0214 03D1 0D 0A UXMES0 FCB $0D,$0A0215 03D3 58 6D 6F 64 65 6D FCC 'Xmodem ROM Disk Upload'20 52 4F 4D 20 4469 73 6B 20 55 706C 6F 61 640216 03E9 04 FCB 40217 03EA 0D 0A UXMES1 FCB $0D,$0A0218 03EC 55 70 6C 6F 61 64 FCC 'Upload Complete'20 43 6F 6D 70 6C65 74 650219 03FB 04 FCB 40220 03FC 0D 0A UXMES2 FCB $0D,$0A0221 03FE 55 70 6C 6F 61 64 FCC 'Upload Error'20 45 72 72 6F 720222 040A 04 FCB 40223 040B 0D 0A UXMSG3 FCB $0D,$0A0224 040D 44 72 69 76 65 20 FCC 'Drive Number :'4E 75 6D 62 65 7220 3A0225 041B 04 FCB 40226 041C 0D 0A UXMSG4 FCB $0D,$0A0227 041E 41 72 65 20 59 6F FCC 'Are You Sure ? (Y/N)'75 20 53 75 72 6520 3F 20 28 59 2F4E 290228 0432 04 FCB 40229 *0230 * Print Banner0231 *0232 0433 8E 03 D1 UXSUB LDX #UXMES00233 0436 17 FF 91 LBSR PDATA10234 *0235 * Prompt for Disk drive number (0 to 3)0236 *0237 0439 8E 04 0B LDX #UXMSG30238 043C 17 FF 8B LBSR PDATA10239 043F 17 FF 3C UXSUB1 LBSR INTER0240 0442 29 FB BVS UXSUB10241 0444 17 FF 6A LBSR OUTTER0242 0447 81 30 CMPA #'00243 0449 10 25 01 2E LBLO UXEXIT0244 044D 81 33 CMPA #'30245 044F 10 22 01 28 LBHI UXEXIT0246 0453 80 30 SUBA #'00247 0455 B7 01 07 STA DRVNUM0248 *0249 * Report selected drive0250 *0251 0458 8E 04 0B LDX #UXMSG30252 045B 17 FF 6C LBSR PDATA10253 045E B6 01 07 LDA DRVNUM0254 0461 8B 30 ADDA #'00255 0463 17 FF 4B LBSR OUTTER0256 *0257 * Ask for confirmation (Y/N)0258 *0259 0466 8E 04 1C LDX #UXMSG40260 0469 17 FF 5E LBSR PDATA10261 046C 17 FF 0F UXSUB2 LBSR INTER0262 046F 29 FB BVS UXSUB20263 0471 17 FF 3D LBSR OUTTER0264 0474 84 5F ANDA #$5F0265 0476 81 4E CMPA #'N0266 0478 10 27 00 FF LBEQ UXEXIT0267 047C 81 59 CMPA #'Y0268 047E 26 B3 BNE UXSUB0269 *0270 * We have confirmation ... now load the disk image0271 *0272 0480 17 01 B1 LBSR INITDR0273 0483 CE 05 A4 LDU #XSTST0274 0486 FF 01 0D STU XSTATE0275 0489 86 01 LDA #10276 048B B7 01 0B STA BLKNUM0277 *0278 * Sector10279 *0280 048E 8E 02 00 LDX #BUFFER0281 *0282 0491 4F CLRA TRACK 00283 0492 C6 01 LDB #$01 SECTOR 10284 0494 B7 01 08 STA TRACK0285 0497 F7 01 09 STB SECTOR0286 *0287 049A 17 00 EA LBSR XREAD0288 049D 10 25 00 E0 LBCS UXERR0289 04A1 17 01 87 LBSR XACK0290 04A4 17 00 E0 LBSR XREAD0291 04A7 10 25 00 D6 LBCS UXERR0292 *0293 04AB 8E 02 00 LDX #BUFFER0294 04AE B6 01 08 LDA TRACK0295 04B1 F6 01 09 LDB SECTOR0296 04B4 17 01 D1 LBSR WRITSC0297 04B7 17 01 71 LBSR XACK0298 *0299 * Sector 20300 *0301 04BA 8E 02 00 LDX #BUFFER0302 *0303 04BD B6 01 08 LDA TRACK0304 04C0 F6 01 09 LDB SECTOR0305 04C3 5C INCB0306 04C4 B7 01 08 STA TRACK0307 04C7 F7 01 09 STB SECTOR0308 *0309 04CA 17 00 BA LBSR XREAD0310 04CD 10 25 00 B0 LBCS UXERR0311 04D1 17 01 57 LBSR XACK0312 04D4 17 00 B0 LBSR XREAD0313 04D7 10 25 00 A6 LBCS UXERR0314 *0315 04DB 8E 02 00 LDX #BUFFER0316 04DE B6 01 08 LDA TRACK0317 04E1 F6 01 09 LDB SECTOR0318 04E4 17 01 A1 LBSR WRITSC0319 *0320 04E7 17 01 41 LBSR XACK0321 *0322 * Sector 3 - SIR0323 *0324 04EA 8E 02 00 LDX #BUFFER0325 *0326 04ED B6 01 08 LDA TRACK0327 04F0 F6 01 09 LDB SECTOR0328 04F3 5C INCB0329 04F4 B7 01 08 STA TRACK0330 04F7 F7 01 09 STB SECTOR0331 *0332 04FA 17 00 8A LBSR XREAD0333 04FD 10 25 00 80 LBCS UXERR0334 0501 17 01 27 LBSR XACK0335 0504 17 00 80 LBSR XREAD0336 0507 10 25 00 76 LBCS UXERR0337 *0338 050B 8E 02 00 LDX #BUFFER0339 050E A6 88 26 LDA 38,X0340 0511 4C INCA0341 0512 B7 01 12 STA MAXTRK0342 0515 E6 88 27 LDB 39,X0343 0518 5C INCB0344 0519 F7 01 13 STB MAXSEC0345 051C B6 01 08 LDA TRACK0346 051F F6 01 09 LDB SECTOR0347 0522 17 01 63 LBSR WRITSC0348 *0349 0525 17 01 03 LBSR XACK0350 *0351 * Sector 4 to Last Track & Sector0352 *0353 *0354 0528 B6 01 08 LDA TRACK0355 052B F6 01 09 LDB SECTOR0356 052E 5C INCB0357 *0358 052F 8E 02 00 UXLOOP LDX #BUFFER0359 0532 B7 01 08 STA TRACK0360 0535 F7 01 09 STB SECTOR0361 *0362 0538 17 00 4C LBSR XREAD0363 053B 10 25 00 42 LBCS UXERR0364 053F 17 00 E9 LBSR XACK0365 0542 17 00 42 LBSR XREAD0366 0545 10 25 00 38 LBCS UXERR0367 *0368 0549 8E 02 00 LDX #BUFFER0369 054C B6 01 08 LDA TRACK0370 054F F6 01 09 LDB SECTOR0371 0552 17 01 33 LBSR WRITSC0372 0555 17 00 D3 LBSR XACK0373 *0374 0558 B6 01 08 LDA TRACK0375 055B F6 01 09 LDB SECTOR0376 055E 5C INCB0377 055F F1 01 13 CMPB MAXSEC0378 0562 26 CB BNE UXLOOP0379 0564 C6 01 LDB #10380 0566 4C INCA0381 0567 B1 01 12 CMPA MAXTRK0382 056A 26 C3 BNE UXLOOP0383 *0384 *0385 * Write Boot sector0386 *0387 056C 8E C0 00 LDX #$C0000388 056F 4F CLRA TRACK 00389 0570 C6 01 LDB #$01 SECTOR 10390 0572 B7 01 08 STA TRACK0391 0575 F7 01 09 STB SECTOR0392 0578 17 01 0D LBSR WRITSC0393 *0394 057B 8E 03 EA UXEXIT LDX #UXMES10395 057E 7E 03 CA JMP PDATA10396 *0397 0581 8E 03 FC UXERR LDX #UXMES20398 0584 16 FE 43 LBRA PDATA10399 *0400 * Get a Byte using XModem protocol0401 * Carry clear => no errors0402 * Carry set => errors0403 *0404 0587 34 40 XREAD PSHS U0405 0589 FE 01 0D LDU XSTATE0406 *0407 058C 17 FD EF XBYTE0 LBSR INTER0408 058F 28 0A BVC XBYTE10409 0591 86 15 LDA #NAK0410 0593 17 FE 1B LBSR OUTTER0411 0596 CE 05 A4 LDU #XSTST0412 0599 20 F1 BRA XBYTE00413 *0414 059B AD C4 XBYTE1 JSR ,U0415 059D 26 ED BNE XBYTE00416 059F FF 01 0D STU XSTATE0417 05A2 35 C0 PULS U,PC0418 *0419 * START - LOOK FOR SOH (START OF HEADER) = $010420 *0421 05A4 81 01 XSTST CMPA #SOH0422 05A6 26 06 BNE XSTST10423 05A8 CE 05 C4 LDU #XSTBL0424 05AB 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0425 05AD 39 RTS0426 *0427 05AE 81 04 XSTST1 CMPA #EOT0428 05B0 26 08 BNE XSTST20429 05B2 86 06 LDA #ACK0430 05B4 17 FD FA LBSR OUTTER0431 05B7 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0432 05B9 39 RTS0433 *0434 05BA 81 18 XSTST2 CMPA #CAN0435 05BC 26 03 BNE XSTST30436 05BE 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit0437 05C0 39 RTS0438 *0439 05C1 1C FA XSTST3 ANDCC #$FF-CFLAG-ZFLAG0440 05C3 39 RTS0441 *0442 * Got SOH0443 * Now get block number0444 *0445 05C4 B1 01 0B XSTBL CMPA BLKNUM0446 05C7 26 06 BNE XSTBLE0447 05C9 CE 05 DA LDU #XSTCOM0448 05CC 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0449 05CE 39 RTS0450 *0451 * Error in block number0452 *0453 05CF 86 15 XSTBLE LDA #NAK0454 05D1 17 FD DD LBSR OUTTER0455 05D4 CE 05 A4 LDU #XSTST0456 05D7 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0457 05D9 39 RTS0458 *0459 * Get complement of block number0460 *0461 05DA 43 XSTCOM COMA0462 05DB B1 01 0B CMPA BLKNUM0463 05DE 26 EF BNE XSTBLE0464 05E0 7F 01 0A CLR CHKSUM0465 05E3 86 80 LDA #1280466 05E5 B7 01 0C STA BYTCNT0467 05E8 CE 05 EE LDU #XSTDA0468 05EB 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)0469 05ED 39 RTS0470 *0471 * Get data bytes0472 *0473 05EE 34 02 XSTDA PSHS A0474 05F0 BB 01 0A ADDA CHKSUM0475 05F3 B7 01 0A STA CHKSUM0476 05F6 35 02 PULS A0477 05F8 7A 01 0C DEC BYTCNT0478 05FB 26 03 BNE XSTDA10479 05FD CE 06 05 LDU #XSTCK0480 0600 A7 80 XSTDA1 STA ,X+0481 0602 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0482 0604 39 RTS0483 *0484 * Byte count reached zero0485 * Check checksum byte0486 *0487 0605 B1 01 0A XSTCK CMPA CHKSUM0488 0608 26 0B BNE XSTCK1 retry if wrong checksum0489 *0490 * Checksum OK ...0491 * increment block number0492 * Don't send ACK until data written to CF0493 *0494 060A 7C 01 0B INC BLKNUM0495 060D CE 05 A4 LDU #XSTST0496 0610 1C FE ANDCC #$FF-CFLAG No abort0497 0612 1A 04 ORCC #ZFLAG Valid data (exit)0498 0614 39 RTS0499 *0500 * Checksum Error detected ...0501 * Reset Sector counter in ACCB to last 128 byte boundary0502 * and send NAK0503 *0504 0615 34 04 XSTCK1 PSHS B0505 0617 1F 10 TFR X,D0506 0619 5A DECB0507 061A C4 80 ANDB #1280508 061C 1F 01 TFR D,X0509 061E 35 04 PULS B0510 0620 86 15 LDA #NAK0511 0622 17 FD 8C XSTCK2 LBSR OUTTER0512 0625 CE 05 A4 LDU #XSTST0513 0628 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)0514 062A 39 RTS0515 *0516 * Acknowledge Data Received0517 *0518 062B 34 02 XACK PSHS A0519 062D 86 06 LDA #ACK0520 062F 17 FD 7F LBSR OUTTER0521 0632 35 82 PULS A,PC0522 *0523 *0524 ** FLEX 9 IDE DISK DRIVERS0525 *0526 * FOR SYS09BUG 1.2 ON THE XSA-3S10000527 * WITH I/O MAPPED AT $XE0000528 * AND ROM MAPPED AT $XF0000529 *0530 *0531 0010 IMASK EQU $10 IRQ MASK CC0532 0040 FMASK EQU $40 FIRQ MASK CC0533 *0534 E100 CF_BASE EQU $E1000535 E100 CF_DATA EQU CF_BASE+00536 E102 CF_ERROR EQU CF_BASE+2 ; read error0537 E102 CF_FEATURE EQU CF_BASE+2 ; write feature0538 E104 CF_SCNT EQU CF_BASE+40539 E106 CF_SNUM EQU CF_BASE+60540 E108 CF_CLO EQU CF_BASE+80541 E10A CF_CHI EQU CF_BASE+100542 E10C CF_HEAD EQU CF_BASE+120543 E10E CF_STATUS EQU CF_BASE+14 ; read status0544 E10E CF_COMAND EQU CF_BASE+14 ; write command0545 E11E CF_AUX EQU CF_BASE+300546 *0547 * Command Equates0548 *0549 0020 CMDREAD EQU $20 ; Read Single sector0550 0030 CMDWRITE EQU $30 ; Write Single sector0551 0006 AUXRESET EQU $060552 0002 AUXRSTREL EQU $020553 00E0 HEADLBA EQU $E00554 *0555 * Status bit equates0556 *0557 0080 BSY EQU $800558 0040 DRDY EQU $400559 0008 DRQ EQU $080560 0001 ERR EQU $010561 *0562 *0563 * INITIALIZE CF CARD FOR 8 BIT LBA MODE0564 *0565 0634 CC 00 06 INITDR LDD #AUXRESET0566 0637 FD E1 1E STD CF_AUX0567 063A CC 00 02 LDD #AUXRSTREL0568 063D FD E1 1E STD CF_AUX0569 0640 CC 00 E0 LDD #HEADLBA0570 0643 FD E1 0C STD CF_HEAD0571 0646 20 74 BRA WAITRDY0572 *0573 * RESTORE DISK DRIVER (SEEK TRACK 00)0574 *0575 0648 8D 62 RESTR1 BSR DRVSEL0576 064A 4F CLRA ; Track 00577 064B C6 01 LDB #$01 ; Sector 10578 *0579 * Seek track and sector0580 * A holds track number (0 - ??)0581 * B holds sector number (1 - ??)0582 * Sector numbers starts from 10583 * subtract 1 to start from sector 0 on CF0584 *0585 064D 34 02 SEEKTS PSHS A0586 064F 4F CLRA0587 0650 5A DECB0588 0651 FD E1 06 STD CF_SNUM0589 0654 E6 E4 LDB ,S0590 0656 FD E1 08 STD CF_CLO0591 0659 F6 01 07 LDB DRVNUM0592 065C FD E1 0A STD CF_CHI0593 065F C6 01 LDB #$010594 0661 FD E1 04 STD CF_SCNT0595 0664 5F CLRB0596 0665 35 82 PULS A,PC0597 *0598 * READ SECTORS FROM CF0599 *0600 *0601 0667 8D E4 READSC BSR SEEKTS0602 0669 CC 00 20 LDD #CMDREAD ; IDE READ MULTIPLE0603 066C FD E1 0E STD CF_COMAND0604 066F 8D 4B BSR WAITRDY0605 *0606 * READ LOOP0607 *0608 0671 34 20 PSHS Y0609 0673 10 8E 01 00 LDY #2560610 0677 8D 52 RDLP1 BSR WAITDRQ0611 0679 FC E1 00 LDD CF_DATA0612 067C E7 80 STB ,X+0613 067E 31 3F LEAY -1,Y0614 0680 26 F5 BNE RDLP10615 0682 35 20 PULS Y0616 *0617 0684 8D 36 BSR WAITRDY0618 0686 5F CLRB0619 0687 39 RTS0620 *0621 * WRITE SECTOR TO CF0622 *0623 0688 8D C3 WRITSC BSR SEEKTS ; SEEK TRACK & SECTOR0624 068A CC 00 30 LDD #CMDWRITE ; IDE WRITE MULTIPLE0625 068D FD E1 0E STD CF_COMAND0626 0690 8D 2A BSR WAITRDY0627 *0628 * WRITE LOOP0629 *0630 0692 34 20 PSHS Y0631 0694 10 8E 01 00 LDY #2560632 0698 4F CLRA0633 0699 8D 30 WRTLP1 BSR WAITDRQ0634 069B E6 80 LDB ,X+0635 069D FD E1 00 STD CF_DATA0636 06A0 31 3F LEAY -1,Y0637 06A2 26 F5 BNE WRTLP10638 06A4 35 20 PULS Y0639 *0640 06A6 8D 14 BSR WAITRDY0641 06A8 5F CLRB0642 06A9 39 RTS0643 *0644 * CHECK FOR BUSY0645 * Doubles as VERIFY0646 *0647 06AA 5F BUSY CLRB Never busy0648 06AB 39 RTS0649 *0650 * DRIVE SELECT DISK DRIVER0651 *0652 06AC A6 03 DRVSEL LDA 3,X GET DRIVE # FROM FCB0653 06AE 81 03 CMPA #30654 06B0 23 01 BLS DRVS2 IF > 3, SET IT TO 00655 06B2 4F CLRA0656 06B3 B7 01 07 DRVS2 STA DRVNUM0657 06B6 5F CLRB ; SET Z, CLEAR C0658 06B7 39 RTS0659 *0660 * CHECK DRIVE READY DISK DRIVER0661 *0662 06B8 A6 03 CHKDRV LDA 3,X0663 06BA 5F CLRB ; CLEAR C, SET Z0664 06BB 39 RTS0665 *0666 * WAIT UNTIL READY0667 *0668 06BC FC E1 0E WAITRDY LDD CF_STATUS0669 06BF C5 80 BITB #BSY0670 06C1 26 F9 BNE WAITRDY0671 06C3 FC E1 0E LDD CF_STATUS0672 06C6 C5 40 BITB #DRDY0673 06C8 27 F2 BEQ WAITRDY0674 06CA 39 RTS0675 *0676 * WAIT FOR DATA REQUEST0677 *0678 06CB FC E1 0E WAITDRQ LDD CF_STATUS0679 06CE C5 08 BITB #DRQ0680 06D0 27 F9 BEQ WAITDRQ0681 06D2 39 RTS0682 *0683 *******************************************************0684 *0685 * Bootstrap FLEX Loader0686 *0687 * SBUG1.8 loads the bootstap loader at $C0000688 * however the Flex adaption manual has the0689 * bootstrap loader residing at $C1000690 *0691 ******************************************************0692 *0693 * Equates0694 *0695 C0FF STACK EQU $C0FF0696 C300 SCTBUF EQU $C3000697 *0698 * Start of Utility0699 *0700 C000 ORG $C0000701 C000 20 0B BOOT BRA LOAD00702 C002 00 00 00 FCB 0,0,00703 C005 00 TRK FCB 0 File start track0704 C006 00 SCT FCB 0 File start sector0705 C007 00 DNS FCB 0 Density Flag (not used)0706 C008 C0 00 TADR FDB $C000 Transfer address0707 C00A 00 00 LADR FDB 0 Load Address0708 C00C 00 DRNUM FCB 0 Drive number 00709 *0710 C00D 10 CE C0 FF LOAD0 LDS #STACK Set up stack0711 C011 FC C0 05 LDD TRK Set up start track and sector0712 C014 FD C3 00 STD SCTBUF0713 C017 10 8E C4 00 LDY #SCTBUF+2560714 *0715 * Perform actual file load0716 *0717 C01B 8D 35 LOAD1 BSR GETCH Get acharcater0718 C01D 81 02 CMPA #$02 Data record hearder ?0719 C01F 27 10 BEQ LOAD2 Skip, is so0720 C021 81 16 CMPA #$16 Xfr address hearder ?0721 C023 26 F6 BNE LOAD1 Loop if neither0722 *0723 * Get transfer address0724 *0725 C025 8D 2B BSR GETCH0726 C027 B7 C0 08 STA TADR0727 C02A 8D 26 BSR GETCH0728 C02C B7 C0 09 STA TADR+10729 C02F 20 EA BRA LOAD10730 *0731 * Load data record0732 *0733 C031 8D 1F LOAD2 BSR GETCH Get load address0734 C033 B7 C0 0A STA LADR0735 C036 8D 1A BSR GETCH0736 C038 B7 C0 0B STA LADR+10737 C03B 8D 15 BSR GETCH Get Bytes count0738 C03D 1F 89 TFR A,B0739 C03F 5D TSTB0740 C040 27 D9 BEQ LOAD1 Loop if count = 00741 C042 BE C0 0A LDX LADR Get load address0742 C045 34 14 LOAD3 PSHS B,X0743 C047 8D 09 BSR GETCH Get data character0744 C049 35 14 PULS B,X0745 C04B A7 80 STA ,X+ Store at load address0746 C04D 5A DECB0747 C04E 26 F5 BNE LOAD3 Loop until count = 00748 C050 20 C9 BRA LOAD10749 *0750 * Get Character routine0751 * Reads a sector if needed0752 *0753 C052 10 8C C4 00 GETCH CMPY #SCTBUF+256 out of data ?0754 C056 26 0F BNE GETCH4 Go read Character if not0755 C058 8E C3 00 GETCH2 LDX #SCTBUF Point to buffer0756 C05B EC 84 LDD 0,X Get forward Link0757 C05D 27 0B BEQ GO if zero, file is loaded0758 C05F 8D 27 BSR READ Read next sector0759 C061 26 9D BNE BOOT start over if error0760 C063 10 8E C3 04 LDY #SCTBUF+4 Point past link0761 C067 A6 A0 GETCH4 LDA ,Y+ Else, get a character0762 C069 39 RTS0763 *0764 * File is loaded, Jump to it0765 *0766 C06A 6E 9F C0 08 GO JMP [TADR] Jump to transfer address07670768 *0769 ** FLEX 9 IDE DISK DRIVERS0770 *0771 * FOR SYS09BUG 1.2 ON THE XSA-3S10000772 * WITH I/O MAPPED AT $XE0000773 * AND ROM MAPPED AT $XF0000774 *0775 *IMASK EQU $10 IRQ MASK CC0776 *FMASK EQU $40 FIRQ MASK CC0777 *0778 *CF_BASE EQU $E1000779 *CF_DATA EQU CF_BASE+00780 *CF_ERROR EQU CF_BASE+2 ; read error0781 *CF_FEATURE EQU CF_BASE+2 ; write feature0782 *CF_SCNT EQU CF_BASE+40783 *CF_SNUM EQU CF_BASE+60784 *CF_CLO EQU CF_BASE+80785 *CF_CHI EQU CF_BASE+100786 *CF_HEAD EQU CF_BASE+120787 *CF_STATUS EQU CF_BASE+14 ; read status0788 *CF_COMAND EQU CF_BASE+14 ; write command0789 *CF_AUX EQU CF_BASE+300790 *0791 * Command Equates0792 *0793 *CMDREAD EQU $20 ; Read Single sector0794 *CMDWRITE EQU $30 ; Write Single sector0795 *HEADLBA EQU $E00796 *AUXRESET EQU $060797 *AUXRSTREL EQU $020798 *0799 * Status bit equates0800 *0801 *BSY EQU $800802 *DRDY EQU $400803 *DRQ EQU $080804 *ERR EQU $010805 *0806 * Seek track and sector0807 * A holds track number (0 - ??)0808 * B holds sector number (1 - ??)0809 * Sector numbers starts from 10810 * subtract 1 to start from sector 0 on CF0811 *0812 C06E 34 02 SEEK PSHS A0813 C070 4F CLRA0814 C071 5A DECB0815 C072 FD E1 06 STD CF_SNUM0816 C075 E6 E4 LDB ,S0817 C077 FD E1 08 STD CF_CLO0818 C07A F6 C0 0C LDB DRNUM0819 C07D FD E1 0A STD CF_CHI0820 C080 C6 01 LDB #$010821 C082 FD E1 04 STD CF_SCNT0822 C085 5F CLRB0823 C086 35 82 PULS A,PC0824 *0825 * READ SECTORS FROM CF0826 *0827 *0828 C088 8D E4 READ BSR SEEK0829 C08A CC 00 20 LDD #CMDREAD ; IDE READ MULTIPLE0830 C08D FD E1 0E STD CF_COMAND0831 C090 8D 17 BSR WTRDY0832 *0833 * READ LOOP0834 *0835 C092 34 20 PSHS Y0836 C094 10 8E 01 00 LDY #2560837 C098 8D 1E READ1 BSR WTDRQ0838 C09A FC E1 00 LDD CF_DATA0839 C09D E7 80 STB ,X+0840 C09F 31 3F LEAY -1,Y0841 C0A1 26 F5 BNE READ10842 C0A3 35 20 PULS Y0843 *0844 C0A5 8D 02 BSR WTRDY0845 C0A7 5F CLRB0846 C0A8 39 RTS0847 *0848 * WAIT UNTIL READY0849 *0850 C0A9 FC E1 0E WTRDY LDD CF_STATUS0851 C0AC C5 80 BITB #BSY0852 C0AE 26 F9 BNE WTRDY0853 C0B0 FC E1 0E LDD CF_STATUS0854 C0B3 C5 40 BITB #DRDY0855 C0B5 27 F2 BEQ WTRDY0856 C0B7 39 RTS0857 *0858 * WAIT FOR DATA REQUEST0859 *0860 C0B8 FC E1 0E WTDRQ LDD CF_STATUS0861 C0BB C5 08 BITB #DRQ0862 C0BD 27 F9 BEQ WTDRQ0863 C0BF 39 RTS0864 *0865 END STARTProgram + Init Data = 1191 bytesError count = 0