URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [tags/] [pre_mkfiles_rev1_merge/] [src/] [boot/] [bootcf8.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 *0003 * Bootstrap FLEX Loader0004 *0005 * SBUG1.8 loads the bootstap loader at $C0000006 * however the Flex adaption manual has the0007 * bootstrap loader residing at $C1000008 *0009 ******************************************************0010 *0011 * Equates0012 *0013 C0FF STACK EQU $C0FF0014 C300 SCTBUF EQU $C3000015 *0016 * Start of Utility0017 *0018 C000 ORG $C0000019 C000 20 0B BOOT BRA LOAD00020 C002 00 00 00 FCB 0,0,00021 C005 00 TRK FCB 0 File start track0022 C006 00 SCT FCB 0 File start sector0023 C007 00 DNS FCB 0 Density Flag (not used)0024 C008 C0 00 TADR FDB $C000 Transfer address0025 C00A 00 00 LADR FDB 0 Load Address0026 C00C 00 DRVNUM FCB 0 Drive number 00027 *0028 C00D 10 CE C0 FF LOAD0 LDS #STACK Set up stack0029 C011 FC C0 05 LDD TRK Set up start track and sector0030 C014 FD C3 00 STD SCTBUF0031 C017 10 8E C4 00 LDY #SCTBUF+2560032 *0033 * Perform actual file load0034 *0035 C01B 8D 35 LOAD1 BSR GETCH Get acharcater0036 C01D 81 02 CMPA #$02 Data record hearder ?0037 C01F 27 10 BEQ LOAD2 Skip, is so0038 C021 81 16 CMPA #$16 Xfr address hearder ?0039 C023 26 F6 BNE LOAD1 Loop if neither0040 *0041 * Get transfer address0042 *0043 C025 8D 2B BSR GETCH0044 C027 B7 C0 08 STA TADR0045 C02A 8D 26 BSR GETCH0046 C02C B7 C0 09 STA TADR+10047 C02F 20 EA BRA LOAD10048 *0049 * Load data record0050 *0051 C031 8D 1F LOAD2 BSR GETCH Get load address0052 C033 B7 C0 0A STA LADR0053 C036 8D 1A BSR GETCH0054 C038 B7 C0 0B STA LADR+10055 C03B 8D 15 BSR GETCH Get Bytes count0056 C03D 1F 89 TFR A,B0057 C03F 5D TSTB0058 C040 27 D9 BEQ LOAD1 Loop if count = 00059 C042 BE C0 0A LDX LADR Get load address0060 C045 34 14 LOAD3 PSHS B,X0061 C047 8D 09 BSR GETCH Get data character0062 C049 35 14 PULS B,X0063 C04B A7 80 STA ,X+ Store at load address0064 C04D 5A DECB0065 C04E 26 F5 BNE LOAD3 Loop until count = 00066 C050 20 C9 BRA LOAD10067 *0068 * Get Character routine0069 * Reads a sector if needed0070 *0071 C052 10 8C C4 00 GETCH CMPY #SCTBUF+256 out of data ?0072 C056 26 0F BNE GETCH4 Go read Character if not0073 C058 8E C3 00 GETCH2 LDX #SCTBUF Point to buffer0074 C05B EC 84 LDD 0,X Get forward Link0075 C05D 27 0B BEQ GO if zero, file is loaded0076 C05F 8D 27 BSR READ Read next sector0077 C061 26 9D BNE BOOT start over if error0078 C063 10 8E C3 04 LDY #SCTBUF+4 Point past link0079 C067 A6 A0 GETCH4 LDA ,Y+ Else, get a character0080 C069 39 RTS0081 *0082 * File is loaded, Jump to it0083 *0084 C06A 6E 9F C0 08 GO JMP [TADR] Jump to transfer address00850086 *0087 ** FLEX 9 COMPACT FLASH DISK DRIVERS0088 *0089 * FOR SYS09BUG 1.2 ON THE BURCHED B5-X3000090 * WITH I/O MAPPED AT $XE0000091 * AND ROM MAPPED AT $XF0000092 * THE BURCHED B5-X300 HAS 256KBYTES OF SRAM0093 * THE FIRST 64K IS USED BY FLEX,0094 * THE SECOND 192K MAY BE USED AS A RAM DISK0095 *0096 *0097 0010 IMASK EQU $10 IRQ MASK CC0098 0040 FMASK EQU $40 FIRQ MASK CC0099 FFF0 DATREG EQU $FFF0 DAT REGISTERS0100 *0101 E040 CF_BASE EQU $E0400102 E040 CF_DATA EQU CF_BASE+00103 E041 CF_ERROR EQU CF_BASE+1 ; read error0104 E041 CF_FEATURE EQU CF_BASE+1 ; write feature0105 E042 CF_SECCNT EQU CF_BASE+20106 E043 CF_SECNUM EQU CF_BASE+30107 E044 CF_CYLLO EQU CF_BASE+40108 E045 CF_CYLHI EQU CF_BASE+50109 E046 CF_HEAD EQU CF_BASE+60110 E047 CF_STATUS EQU CF_BASE+7 ; read status0111 E047 CF_COMAND EQU CF_BASE+7 ; write command0112 *0113 * Command Equates0114 *0115 0020 CMDREAD EQU $20 ; Read Single sector0116 0030 CMDWRITE EQU $30 ; Write Single sector0117 00EF CMDFEATURE EQU $EF0118 0001 FEAT8BIT EQU $01 ; enable 8 bit transfers0119 00E0 HEADLBA EQU $E00120 *0121 * Status bit equates0122 *0123 0080 BSY EQU $800124 0040 DRDY EQU $400125 0008 DRQ EQU $080126 0001 ERR EQU $010127 *0128 * RESTORE DISK DRIVER (SEEK TRACK 00)0129 *0130 C06E 7F C0 0C RESTR1 CLR DRVNUM0131 C071 4F CLRA ; Track 00132 C072 C6 01 LDB #$01 ; Sector 10133 *0134 * Seek track and sector0135 * A holds track number (0 - ??)0136 * B holds sector number (1 - ??)0137 * Sector numbers starts from 10138 * subtract 1 to start from sector 0 on CF0139 *0140 C074 5A SEEKTS DECB0141 C075 F7 E0 43 STB CF_SECNUM0142 C078 B7 E0 44 STA CF_CYLLO0143 C07B F6 C0 0C LDB DRVNUM0144 C07E F7 E0 45 STB CF_CYLHI0145 C081 C6 01 LDB #$010146 C083 F7 E0 42 STB CF_SECCNT0147 C086 5F CLRB0148 C087 39 WARMD1 RTS0149 *0150 * READ SECTORS FROM CF0151 *0152 *0153 C088 8D EA READ BSR SEEKTS0154 C08A 86 20 LDA #CMDREAD ; IDE READ MULTIPLE0155 C08C B7 E0 47 STA CF_COMAND0156 C08F 8D 18 BSR WAITRDY0157 *0158 * READ LOOP0159 *0160 C091 5F CLRB0161 C092 8D 24 RDLP1 BSR WAITDRQ0162 C094 B6 E0 40 LDA CF_DATA0163 C097 A7 80 STA ,X+0164 C099 5A DECB0165 C09A 26 F6 BNE RDLP10166 *0167 C09C 5F CLRB0168 C09D 8D 19 RDLP2 BSR WAITDRQ0169 C09F B6 E0 40 LDA CF_DATA0170 C0A2 5A DECB0171 C0A3 26 F8 BNE RDLP20172 *0173 C0A5 8D 02 BSR WAITRDY0174 C0A7 5F CLRB0175 C0A8 39 RTS0176 *0177 * WAIT UNTIL READY0178 *0179 C0A9 B6 E0 47 WAITRDY LDA CF_STATUS0180 C0AC 85 80 BITA #BSY0181 C0AE 26 F9 BNE WAITRDY0182 C0B0 B6 E0 47 LDA CF_STATUS0183 C0B3 85 40 BITA #DRDY0184 C0B5 27 F2 BEQ WAITRDY0185 C0B7 39 RTS0186 *0187 * WAIT FOR DATA REQUEST0188 *0189 C0B8 B6 E0 47 WAITDRQ LDA CF_STATUS0190 C0BB 85 08 BITA #DRQ0191 C0BD 27 F9 BEQ WAITDRQ0192 C0BF 39 RTS0193 *0194 ENDProgram + Init Data = 192 bytesError count = 0