| 1 |
120 |
dilbert57 |
Assembler release DWC_2.0 version 2.11
|
| 2 |
|
|
May 6, 2004 (c) Motorola (free ware)
|
| 3 |
|
|
0001 *
|
| 4 |
|
|
0002 ** FLEX 9 DISK DRIVERS
|
| 5 |
|
|
0003 *
|
| 6 |
|
|
0004 * FOR SYS09BUG ON THE
|
| 7 |
|
|
0005 * DIGILENT SPARTAN 3 STARTER BOARD AND
|
| 8 |
|
|
0006 * TERASIC CYCLONE 2 DE1 BOARD
|
| 9 |
|
|
0007 * WITH I/O MAPPED AT $XE000
|
| 10 |
|
|
0008 * AND ROM MAPPED AT $XF000
|
| 11 |
|
|
0009 * THE DIGILENT SPARTAN 3 STARTER BOARD HAS 1MBYTE OF SRAM
|
| 12 |
|
|
0010 * THE TERASIC CYCLONE 2 DE1 BOARD HAS 512KBYTE OF SRAM
|
| 13 |
|
|
0011 * THE FIRST 64K IS USED BY FLEX,
|
| 14 |
|
|
0012 * THE SECOND 128K IS USED AS A ROM DISK
|
| 15 |
|
|
0013 * THE REMAINING RAM IS USED FOR A RAM DISK
|
| 16 |
|
|
0014 *
|
| 17 |
|
|
0015 *
|
| 18 |
|
|
0016 0001 CFLAG EQU $01 CARRY FLAG
|
| 19 |
|
|
0017 0002 VFLAG EQU $02 OVERFLOW FLAG
|
| 20 |
|
|
0018 0004 ZFLAG EQU $04 ZERO FLAG
|
| 21 |
|
|
0019 0008 NFLAG EQU $08 NEGATIVE FLAG
|
| 22 |
|
|
0020 0010 IFLAG EQU $10 IRQ MASK CC
|
| 23 |
|
|
0021 0020 HFLAG EQU $20 HALF CARRY
|
| 24 |
|
|
0022 0040 FFLAG EQU $40 FIRQ MASK CC
|
| 25 |
|
|
0023 0080 EFLAG EQU $80 ENTIRE FLAG
|
| 26 |
|
|
0024 *
|
| 27 |
|
|
0025 0000 MAPPAG EQU $00 PAGE $0000 DAT ADDRESS
|
| 28 |
|
|
f9-monex.txt, line no. 26: Symbol undefined Pass 2
|
| 29 |
|
|
0026 0000 DATREG EQU IC11 DAT REGISTERS
|
| 30 |
|
|
0027 *
|
| 31 |
|
|
0028 * Serial Port
|
| 32 |
|
|
0029 *
|
| 33 |
|
|
f9-monex.txt, line no. 30: Symbol undefined Pass 2
|
| 34 |
|
|
0030 0000 ACIAC1 EQU ACIAS
|
| 35 |
|
|
f9-monex.txt, line no. 31: Symbol undefined Pass 2
|
| 36 |
|
|
0031 0001 ACIAD1 EQU ACIAS+1
|
| 37 |
|
|
0032 04E2 DELCON EQU 1250 Delay (Processor clock in MHz * 50)
|
| 38 |
|
|
0033 *
|
| 39 |
|
|
0034 * XMODEM Control characters
|
| 40 |
|
|
0035 *
|
| 41 |
|
|
0036 0001 SOH EQU $01
|
| 42 |
|
|
0037 0004 EOT EQU $04
|
| 43 |
|
|
0038 0006 ACK EQU $06
|
| 44 |
|
|
0039 0015 NAK EQU $15
|
| 45 |
|
|
0040 0018 CAN EQU $18
|
| 46 |
|
|
0041 *
|
| 47 |
|
|
0042 * DRIVE GEOMETRY
|
| 48 |
|
|
0043 *
|
| 49 |
|
|
0044 000E EMAXSEC EQU 14 ROM DISK
|
| 50 |
|
|
0045 0030 EMAXTRK EQU 48 3 * 16 * 14 * 256 = 172,032 Bytes
|
| 51 |
|
|
0046 0292 ETOTSEC EQU EMAXTRK*EMAXSEC-EMAXSEC
|
| 52 |
|
|
0047 *
|
| 53 |
|
|
0048 000E RMAXSEC EQU 14 RAM DISK
|
| 54 |
|
|
0049 *RMAXTRK EQU 192 12 * 16 * 14 * 256 = 688,128 Bytes Digilent Spartan 3
|
| 55 |
|
|
0050 0040 RMAXTRK EQU 64 4 * 16 * 14 * 256 = 229,376 Bytes Terasic Cyclone 2
|
| 56 |
|
|
0051 0372 RTOTSEC EQU RMAXTRK*RMAXSEC-RMAXSEC
|
| 57 |
|
|
0052 *
|
| 58 |
|
|
0053 * DRIVE TYPES
|
| 59 |
|
|
0054 *
|
| 60 |
|
|
0055 0000 DTYPROM EQU 0 ROM DISK
|
| 61 |
|
|
0056 0001 DTYPRAM EQU 1 RAM DISK
|
| 62 |
|
|
0057 0002 DTYPFLS EQU 2 FLASH DISK
|
| 63 |
|
|
0058 0003 DTYPNET EQU 3 FLEXNET DISK
|
| 64 |
|
|
0059 *
|
| 65 |
|
|
0060 DE00 ORG $DE00
|
| 66 |
|
|
0061 *
|
| 67 |
|
|
0062 * DISK DRIVER JUMP TABLE LAST UPDATE: 22/12/2006
|
| 68 |
|
|
0063 * Disk driver for RAM Disk.
|
| 69 |
|
|
0064 *
|
| 70 |
|
|
0065 * 14 SECTORS PER TRACK
|
| 71 |
|
|
0066 * 16 * N TRACKS PER DISK
|
| 72 |
|
|
0067 *
|
| 73 |
|
|
0068 * ROM DISK OCCUPIES $10000 - $1E000 ... $30000 - $3E000
|
| 74 |
|
|
0069 * RAM DISK OCCUPIES $40000 - $4E000 ... $F0000 - $FE000
|
| 75 |
|
|
0070 * Track Buffer page mapped at $E000 - $EFFF
|
| 76 |
|
|
0071 * MAPPAG = $00 = 0 x $1000 (4 K pages)
|
| 77 |
|
|
0072
|
| 78 |
|
|
0073 * ON SWTPC ROM AT $XF000 AND IO AT $XE000
|
| 79 |
|
|
0074 * APPEARS THROUGHOUT THE MEMORY SO MUST BE SKIPPED OVER
|
| 80 |
|
|
0075 * WHEN USING RAM AS A RAMDISK.
|
| 81 |
|
|
0076 * THE MSN OF THE TRACK MAPS INTO THE MSN OF THE DAT
|
| 82 |
|
|
0077 * THE LSN OF THE TRACK NUMBER INDEXES INTO THE 4K RAM PAGE
|
| 83 |
|
|
0078 * THE SECTOR MAPS INTO THE LSN OF THE DAT WHICH IS INVERTED
|
| 84 |
|
|
0079 *
|
| 85 |
|
|
0080 *
|
| 86 |
|
|
0081 *
|
| 87 |
|
|
0082 * FLEX disk jump table.
|
| 88 |
|
|
0083 *
|
| 89 |
|
|
0084 DE00 0E 57 READ JMP READSC
|
| 90 |
|
|
f9-monex.txt, line no. 85: Phasing Error
|
| 91 |
|
|
0085 DE02 0E 5B WRITE JMP WRITSC
|
| 92 |
|
|
f9-monex.txt, line no. 86: Phasing Error
|
| 93 |
|
|
0086 DE04 0E 5F VERIFY JMP BUSY
|
| 94 |
|
|
f9-monex.txt, line no. 87: Phasing Error
|
| 95 |
|
|
0087 DE06 0E 63 RESTOR JMP RESTR1
|
| 96 |
|
|
f9-monex.txt, line no. 88: Phasing Error
|
| 97 |
|
|
0088 DE08 0E 6C DRIVE JMP DRVSEL
|
| 98 |
|
|
f9-monex.txt, line no. 89: Phasing Error
|
| 99 |
|
|
0089 DE0A 0E 9F DRVRDY JMP CHKRDY
|
| 100 |
|
|
f9-monex.txt, line no. 90: Phasing Error
|
| 101 |
|
|
0090 DE0C 0E A3 QUICK JMP CHKQIK
|
| 102 |
|
|
f9-monex.txt, line no. 91: Phasing Error
|
| 103 |
|
|
0091 DE0E 0E A7 COLDDR JMP DINIT
|
| 104 |
|
|
f9-monex.txt, line no. 92: Phasing Error
|
| 105 |
|
|
0092 DE10 0E BF WARMDR JMP DWARM
|
| 106 |
|
|
f9-monex.txt, line no. 93: Phasing Error
|
| 107 |
|
|
0093 DE12 0E C3 SEEK JMP SEEKTS
|
| 108 |
|
|
0094 *
|
| 109 |
|
|
0095 * RAM SPACE
|
| 110 |
|
|
0096 *
|
| 111 |
|
|
f9-monex.txt, line no. 97: Phasing Error
|
| 112 |
|
|
0097 DE14 00 DRVNUM FCB 0
|
| 113 |
|
|
f9-monex.txt, line no. 98: Phasing Error
|
| 114 |
|
|
0098 DE15 00 TRACK FCB 0
|
| 115 |
|
|
f9-monex.txt, line no. 99: Phasing Error
|
| 116 |
|
|
0099 DE16 00 SECTOR FCB 0
|
| 117 |
|
|
f9-monex.txt, line no. 100: Phasing Error
|
| 118 |
|
|
0100 DE17 00 CHKSUM FCB 0
|
| 119 |
|
|
f9-monex.txt, line no. 101: Phasing Error
|
| 120 |
|
|
0101 DE18 00 CCSAVE FCB 0
|
| 121 |
|
|
f9-monex.txt, line no. 102: Phasing Error
|
| 122 |
|
|
0102 DE19 00 BLKNUM FCB 0 Xmodem block number
|
| 123 |
|
|
f9-monex.txt, line no. 103: Phasing Error
|
| 124 |
|
|
0103 DE1A 00 BYTCNT FCB 0 Xmodem byte count
|
| 125 |
|
|
f9-monex.txt, line no. 104: Phasing Error
|
| 126 |
|
|
0104 DE1B 00 00 XSTATE FDB 0 Xmodem State Vector
|
| 127 |
|
|
f9-monex.txt, line no. 105: Phasing Error
|
| 128 |
|
|
0105 DE1D 00 00 00 DELCNT FCB $00,$00,$00 Xmodem Poll timer
|
| 129 |
|
|
0106 *
|
| 130 |
|
|
0107 * Disc driver type table.
|
| 131 |
|
|
0108 * Indexed by drive number
|
| 132 |
|
|
0109 *
|
| 133 |
|
|
f9-monex.txt, line no. 110: Phasing Error
|
| 134 |
|
|
0110 DE20 00 DTYPTAB FCB DTYPROM Drive 0 (ROM Disk)
|
| 135 |
|
|
0111 DE21 01 FCB DTYPRAM Drive 1 (RAM Disk)
|
| 136 |
|
|
0112 DE22 02 FCB DTYPFLS Drive 2 (FLASH Disk)
|
| 137 |
|
|
0113 DE23 03 FCB DTYPNET Drive 3 (NETPC Disk)
|
| 138 |
|
|
0114 *
|
| 139 |
|
|
0115 * RAM Disk offset
|
| 140 |
|
|
0116 * Indexed by drive type
|
| 141 |
|
|
0117 *
|
| 142 |
|
|
f9-monex.txt, line no. 118: Phasing Error
|
| 143 |
|
|
0118 DE24 10 DOFFTAB FCB $10 ROM Disk $10000
|
| 144 |
|
|
0119 DE25 40 FCB $40 RAM DISK $40000
|
| 145 |
|
|
0120 DE26 FF FCB $FF Flash Disk
|
| 146 |
|
|
0121 DE27 FF FCB $FF NETPC Disk
|
| 147 |
|
|
0122 *
|
| 148 |
|
|
f9-monex.txt, line no. 123: Phasing Error
|
| 149 |
|
|
0123 DE28 REAVEC RMB 2 Disc driver jump table.
|
| 150 |
|
|
f9-monex.txt, line no. 124: Phasing Error
|
| 151 |
|
|
0124 DE2A WRIVEC RMB 2
|
| 152 |
|
|
f9-monex.txt, line no. 125: Phasing Error
|
| 153 |
|
|
0125 DE2C VERVEC RMB 2
|
| 154 |
|
|
f9-monex.txt, line no. 126: Phasing Error
|
| 155 |
|
|
0126 DE2E RSTVEC RMB 2
|
| 156 |
|
|
f9-monex.txt, line no. 127: Phasing Error
|
| 157 |
|
|
0127 DE30 DRVVEC RMB 2
|
| 158 |
|
|
f9-monex.txt, line no. 128: Phasing Error
|
| 159 |
|
|
0128 DE32 CHKVEC RMB 2
|
| 160 |
|
|
f9-monex.txt, line no. 129: Phasing Error
|
| 161 |
|
|
0129 DE34 QUIVEC RMB 2
|
| 162 |
|
|
f9-monex.txt, line no. 130: Phasing Error
|
| 163 |
|
|
0130 DE36 INIVEC RMB 2
|
| 164 |
|
|
f9-monex.txt, line no. 131: Phasing Error
|
| 165 |
|
|
0131 DE38 WARVEC RMB 2
|
| 166 |
|
|
f9-monex.txt, line no. 132: Phasing Error
|
| 167 |
|
|
0132 DE3A SEEVEC RMB 2
|
| 168 |
|
|
0133 *
|
| 169 |
|
|
0134 * SECTOR BUFFER
|
| 170 |
|
|
0135 *
|
| 171 |
|
|
f9-monex.txt, line no. 136: Phasing Error
|
| 172 |
|
|
0136 DE3C BUFFER RMB 256
|
| 173 |
|
|
f9-monex.txt, line no. 137: Phasing Error
|
| 174 |
|
|
0137 DF3C SYNCREG RMB 4 Prom input register
|
| 175 |
|
|
0138 *
|
| 176 |
|
|
0139 ****************************************
|
| 177 |
|
|
0140 *
|
| 178 |
|
|
0141 * START OF EXTENSION COMMANDS
|
| 179 |
|
|
0142 *
|
| 180 |
|
|
0143 ****************************************
|
| 181 |
|
|
0144 *
|
| 182 |
|
|
f9-monex.txt, line no. 145: Symbol undefined Pass 2
|
| 183 |
|
|
0145 0000 ORG MONEXT
|
| 184 |
|
|
0146 0000 07 9C FDB NEXTEXT Jump to next extended command
|
| 185 |
|
|
0147 *
|
| 186 |
|
|
0148 *
|
| 187 |
|
|
0149 *****************************************
|
| 188 |
|
|
0150 * Disk drivers *
|
| 189 |
|
|
0151 * ------------ *
|
| 190 |
|
|
0152 * The system dependant code for the *
|
| 191 |
|
|
0153 * disc drivers fits here. Two tables *
|
| 192 |
|
|
0154 * must be included. These are DTYPTAB a *
|
| 193 |
|
|
0155 * four byte table that defines which of *
|
| 194 |
|
|
0156 * the (up to four) following sets of *
|
| 195 |
|
|
0157 * jump tables to use, and TABSRT the *
|
| 196 |
|
|
0158 * jump tables themselves. For a full *
|
| 197 |
|
|
0159 * description of the floppy drivers see *
|
| 198 |
|
|
0160 * section 4 (pp9-14) of the general *
|
| 199 |
|
|
0161 * Flex adaptation guide. *
|
| 200 |
|
|
0162 *****************************************
|
| 201 |
|
|
0163 *
|
| 202 |
|
|
0164 * Mass storage drivers for embedded applications.
|
| 203 |
|
|
0165 *
|
| 204 |
|
|
0166 * Jump tables.
|
| 205 |
|
|
0167 0002 01 17 TABSRT FDB EREAD Drive type 0 (ROM disk).
|
| 206 |
|
|
0168 0004 01 3F FDB EWRITE
|
| 207 |
|
|
0169 0006 01 3D FDB ECHECK
|
| 208 |
|
|
0170 0008 01 3D FDB ECHECK
|
| 209 |
|
|
0171 000A 01 3D FDB ECHECK
|
| 210 |
|
|
0172 000C 01 3D FDB ECHECK
|
| 211 |
|
|
0173 000E 01 3D FDB ECHECK
|
| 212 |
|
|
0174 0010 00 52 FDB DDUMMY
|
| 213 |
|
|
0175 0012 00 52 FDB DDUMMY
|
| 214 |
|
|
0176 0014 00 52 FDB DDUMMY
|
| 215 |
|
|
0177 *
|
| 216 |
|
|
0178 0016 01 17 FDB EREAD Drive type 1 (RAM disk).
|
| 217 |
|
|
0179 0018 01 3F FDB EWRITE
|
| 218 |
|
|
0180 001A 01 3D FDB ECHECK
|
| 219 |
|
|
0181 001C 01 3D FDB ECHECK
|
| 220 |
|
|
0182 001E 01 3D FDB ECHECK
|
| 221 |
|
|
0183 0020 01 3D FDB ECHECK
|
| 222 |
|
|
0184 0022 01 3D FDB ECHECK
|
| 223 |
|
|
0185 0024 00 52 FDB DDUMMY
|
| 224 |
|
|
0186 0026 00 52 FDB DDUMMY
|
| 225 |
|
|
0187 0028 00 52 FDB DDUMMY
|
| 226 |
|
|
0188 *
|
| 227 |
|
|
0189 002A 00 52 FDB DDUMMY Drive type 2 (External Flash disk).
|
| 228 |
|
|
0190 002C 00 52 FDB DDUMMY
|
| 229 |
|
|
0191 002E 00 52 FDB DDUMMY
|
| 230 |
|
|
0192 0030 00 52 FDB DDUMMY
|
| 231 |
|
|
0193 0032 00 52 FDB DDUMMY
|
| 232 |
|
|
0194 0034 00 52 FDB DDUMMY
|
| 233 |
|
|
0195 0036 00 52 FDB DDUMMY
|
| 234 |
|
|
0196 0038 00 52 FDB DDUMMY
|
| 235 |
|
|
0197 003A 00 52 FDB DDUMMY
|
| 236 |
|
|
0198 003C 00 52 FDB DDUMMY
|
| 237 |
|
|
0199 *
|
| 238 |
|
|
0200 003E 01 78 FDB NREAD Drive type 3 (NetPC drive via serial port).
|
| 239 |
|
|
0201 0040 01 E7 FDB NWRITE
|
| 240 |
|
|
0202 0042 02 47 FDB NVERIFY
|
| 241 |
|
|
0203 0044 02 4C FDB NCHECK
|
| 242 |
|
|
0204 0046 02 4C FDB NCHECK
|
| 243 |
|
|
0205 0048 02 4C FDB NCHECK
|
| 244 |
|
|
0206 004A 02 4C FDB NCHECK
|
| 245 |
|
|
0207 004C 00 52 FDB DDUMMY
|
| 246 |
|
|
0208 004E 00 52 FDB DDUMMY
|
| 247 |
|
|
0209 0050 00 52 FDB DDUMMY
|
| 248 |
|
|
0210 *
|
| 249 |
|
|
0211 *
|
| 250 |
|
|
0212 * Dummy routine (no errors).
|
| 251 |
|
|
0213 0052 5F DDUMMY CLRB
|
| 252 |
|
|
0214 0053 5D TSTB Set (z)=1
|
| 253 |
|
|
0215 0054 1C FE ANDCC #$FF-CFLAG Set (c)=0
|
| 254 |
|
|
0216 0056 39 RTS
|
| 255 |
|
|
0217 * *
|
| 256 |
|
|
0218 **************************
|
| 257 |
|
|
0219 * Main Flex entry points *
|
| 258 |
|
|
0220 *************************
|
| 259 |
|
|
0221 *
|
| 260 |
|
|
0222 * Read sector routine.
|
| 261 |
|
|
0223 * Entry: (X) = address where sector is to be placed.
|
| 262 |
|
|
0224 * (A) = Track number.
|
| 263 |
|
|
0225 * (B) = Sector number.
|
| 264 |
|
|
0226 * Exit: (B) = Error code (z)=1 if no error.
|
| 265 |
|
|
0227 0057 6E 9F DE 32 READSC JMP [REAVEC]
|
| 266 |
|
|
0228 *
|
| 267 |
|
|
0229 * Write track routine.
|
| 268 |
|
|
0230 * Entry: (X) = Address of area of memory from which the data will be taken.
|
| 269 |
|
|
0231 * (A) = Track number.
|
| 270 |
|
|
0232 * (B) = Sector number.
|
| 271 |
|
|
0233 * Exit: (B) = Error condition, (Z)=1 no an error.
|
| 272 |
|
|
0234 005B 6E 9F DE 34 WRITSC JMP [WRIVEC]
|
| 273 |
|
|
0235 *
|
| 274 |
|
|
0236 * Verify sector routine.
|
| 275 |
|
|
0237 * Entry: no parameters.
|
| 276 |
|
|
0238 * Exit: (B) = Error condition (Z)=1 if no error.
|
| 277 |
|
|
0239 005F 6E 9F DE 36 BUSY JMP [VERVEC]
|
| 278 |
|
|
0240 *
|
| 279 |
|
|
0241 * Restore drive to track 00.
|
| 280 |
|
|
0242 * Entry: (X) = FCB address (3,X contains drive number).
|
| 281 |
|
|
0243 * Exit: (B) = Error condition, (Z)=1 if no error.
|
| 282 |
|
|
0244 0063 8D 07 RESTR1 BSR DRVSEL Select drive first.
|
| 283 |
|
|
0245 0065 27 01 BEQ RST1
|
| 284 |
|
|
0246 0067 39 RTS
|
| 285 |
|
|
0247 0068 6E 9F DE 38 RST1 JMP [RSTVEC]
|
| 286 |
|
|
0248 *
|
| 287 |
|
|
0249 * Select current drive.
|
| 288 |
|
|
0250 * Entry: (X) = FCB address (3,X contains drive number).
|
| 289 |
|
|
0251 * Exit: (B) = Error condition, (Z)=0 and (c)=1 if error.
|
| 290 |
|
|
0252 * (B) = $0F if non existant drive.
|
| 291 |
|
|
0253 006C 34 30 DRVSEL PSHS X,Y
|
| 292 |
|
|
0254 006E E6 03 LDB 3,X Get driver type.
|
| 293 |
|
|
0255 0070 F7 DE 1E STB DRVNUM
|
| 294 |
|
|
0256 0073 8E DE 2A LDX #DTYPTAB
|
| 295 |
|
|
0257 0076 A6 85 LDA B,X
|
| 296 |
|
|
0258 0078 81 FF CMPA #$FF Is the drive nonexistant?
|
| 297 |
|
|
0259 007A 26 08 BNE DRIVE1
|
| 298 |
|
|
0260 007C 35 30 PULS X,Y
|
| 299 |
|
|
0261 007E C6 0F LDB #$0F
|
| 300 |
|
|
0262 0080 5D TSTB
|
| 301 |
|
|
0263 0081 1A 01 ORCC #$01
|
| 302 |
|
|
0264 0083 39 RTS
|
| 303 |
|
|
0265 *
|
| 304 |
|
|
0266 0084 C6 14 DRIVE1 LDB #20 Get correct table start address.
|
| 305 |
|
|
0267 0086 3D MUL
|
| 306 |
|
|
0268 0087 8E 00 02 LDX #TABSRT
|
| 307 |
|
|
0269 008A 30 8B LEAX D,X
|
| 308 |
|
|
0270 008C 10 8E DE 32 LDY #REAVEC Copy table into ram.
|
| 309 |
|
|
0271 0090 C6 14 LDB #20
|
| 310 |
|
|
0272 0092 A6 80 DRIVE2 LDA 0,X+
|
| 311 |
|
|
0273 0094 A7 A0 STA 0,Y+
|
| 312 |
|
|
0274 0096 5A DECB
|
| 313 |
|
|
0275 0097 26 F9 BNE DRIVE2
|
| 314 |
|
|
0276 0099 35 30 PULS X,Y
|
| 315 |
|
|
0277 009B 6E 9F DE 3A JMP [DRVVEC]
|
| 316 |
|
|
0278 *
|
| 317 |
|
|
0279 * Check for drive ready.
|
| 318 |
|
|
0280 * Entry: (X) = FCB address (3,X contains drive number)>
|
| 319 |
|
|
0281 * Exit: (B) = Error condition, (Z)=0 AND (C)=1 if drive is not ready.
|
| 320 |
|
|
0282 009F 6E 9F DE 3C CHKRDY JMP [CHKVEC]
|
| 321 |
|
|
0283 *
|
| 322 |
|
|
0284 * Quick drive ready check.
|
| 323 |
|
|
0285 * Entry: (X) = FCB address (3,X contains drive number).
|
| 324 |
|
|
0286 * Exit: (B) = Error condition, (Z)=0 AND (c)=1 if drive not ready.
|
| 325 |
|
|
0287 00A3 6E 9F DE 3E CHKQIK JMP [QUIVEC]
|
| 326 |
|
|
0288 *
|
| 327 |
|
|
0289 * Init (cold start).
|
| 328 |
|
|
0290 * Entry: no parameters.
|
| 329 |
|
|
0291 * Exit: no change.
|
| 330 |
|
|
0292 00A7 4F DINIT CLRA
|
| 331 |
|
|
0293 00A8 B7 DE 1E DINIT1 STA DRVNUM Init each valid drive in turn.
|
| 332 |
|
|
0294 00AB 8E DE 1B LDX #DRVNUM-3
|
| 333 |
|
|
0295 00AE 8D BC BSR DRVSEL
|
| 334 |
|
|
0296 00B0 25 04 BCS DINIT2
|
| 335 |
|
|
0297 00B2 AD 9F DE 40 JSR [INIVEC]
|
| 336 |
|
|
0298 00B6 B6 DE 1E DINIT2 LDA DRVNUM
|
| 337 |
|
|
0299 00B9 4C INCA
|
| 338 |
|
|
0300 00BA 81 04 CMPA #4
|
| 339 |
|
|
0301 00BC 26 EA BNE DINIT1
|
| 340 |
|
|
0302 00BE 39 RTS
|
| 341 |
|
|
0303 *
|
| 342 |
|
|
0304 * Warm start.
|
| 343 |
|
|
0305 * Entry: no parameters.
|
| 344 |
|
|
0306 * Exit: no change.
|
| 345 |
|
|
0307 00BF 6E 9F DE 42 DWARM JMP [WARVEC]
|
| 346 |
|
|
0308 *
|
| 347 |
|
|
0309 * Seek track.
|
| 348 |
|
|
0310 * Entry: (A) = Track number.
|
| 349 |
|
|
0311 * (B) = Sector number.
|
| 350 |
|
|
0312 * Exit: (B) = Error condition, (Z)=1 if no error.
|
| 351 |
|
|
0313 00C3 6E 9F DE 44 SEEKTS JMP [SEEVEC]
|
| 352 |
|
|
0314 *
|
| 353 |
|
|
0315 *
|
| 354 |
|
|
0316 *****************************************************
|
| 355 |
|
|
0317 * ROMdisk drivers *
|
| 356 |
|
|
0318 * --------------- *
|
| 357 |
|
|
0319 * Drivers to support a ROMdisk in the external RAM *
|
| 358 |
|
|
0320 * of the SYS09. The ROMdisk base address is $10000 *
|
| 359 |
|
|
0321 *****************************************************
|
| 360 |
|
|
0322 * Dummy return for ROM disk (write protected!)
|
| 361 |
|
|
0323 *
|
| 362 |
|
|
0324 * MAP RAM DISK INTO MEMORY SPACE
|
| 363 |
|
|
0325 *
|
| 364 |
|
|
0326 00C7 1F A8 MAPIN TFR CC,A ; Save state of interrupt masks
|
| 365 |
|
|
0327 00C9 B7 DE 22 STA CCSAVE
|
| 366 |
|
|
0328 00CC 1A 50 ORCC #FFLAG+IFLAG ; Mask interrupts while IO mapped out
|
| 367 |
|
|
0329 00CE CE DE 2A LDU #DTYPTAB ; Point to Drive Type table
|
| 368 |
|
|
0330 00D1 F6 DE 1E LDB DRVNUM ; Get working drive number
|
| 369 |
|
|
0331 00D4 E6 C5 LDB B,U
|
| 370 |
|
|
0332 00D6 CE DE 2E LDU #DOFFTAB
|
| 371 |
|
|
0333 00D9 B6 DE 1F LDA TRACK
|
| 372 |
|
|
0334 00DC AB C5 ADDA B,U ; Add Base offset into RAM
|
| 373 |
|
|
0335 00DE 84 F0 ANDA #$F0 ; Mask MSN
|
| 374 |
|
|
0336 00E0 A7 E2 STA ,-S ; Save A on stack
|
| 375 |
|
|
0337 *
|
| 376 |
|
|
0338 00E2 B6 DE 20 LDA SECTOR
|
| 377 |
|
|
0339 00E5 80 01 SUBA #1 ; Sectors 1 to 14 => 0 to 13
|
| 378 |
|
|
0340 00E7 88 0F EORA #$0F ; Complement LSNybble
|
| 379 |
|
|
0341 00E9 84 0F ANDA #$0F
|
| 380 |
|
|
0342 *
|
| 381 |
|
|
0343 00EB AB E0 ADDA ,S+ ; Add sector to LSN of Track and pop
|
| 382 |
|
|
0344 00ED 97 00 STA DATREG+MAPPAG
|
| 383 |
|
|
0345 *
|
| 384 |
|
|
0346 00EF B6 DE 1F LDA TRACK ; LSN of Track indexes into 4K page
|
| 385 |
|
|
0347 00F2 84 0F ANDA #$0F
|
| 386 |
|
|
0348 00F4 8B 00 ADDA #MAPPAG*16
|
| 387 |
|
|
0349 00F6 5F CLRB
|
| 388 |
|
|
0350 00F7 1F 03 TFR D,U
|
| 389 |
|
|
0351 00F9 39 RTS
|
| 390 |
|
|
0352 *
|
| 391 |
|
|
0353 * MAP RAM DISK OUT OF MEMORY
|
| 392 |
|
|
0354 *
|
| 393 |
|
|
0355 00FA 86 00 MAPOUT LDA #MAPPAG ; Point to the Flex page
|
| 394 |
|
|
0356 00FC 88 0F EORA #$0F ; Complement LSNybble
|
| 395 |
|
|
0357 00FE 97 00 STA DATREG+MAPPAG ; map in Flex page
|
| 396 |
|
|
0358 0100 B6 DE 22 LDA CCSAVE ; restore interrupt masks
|
| 397 |
|
|
0359 0103 1F 8A TFR A,CC
|
| 398 |
|
|
0360 0105 39 RTS
|
| 399 |
|
|
0361 *
|
| 400 |
|
|
0362 * Seek track and sector
|
| 401 |
|
|
0363 * A holds track number (0-32)
|
| 402 |
|
|
0364 * B holds sector number (1-14)
|
| 403 |
|
|
0365 *
|
| 404 |
|
|
0366 0106 B7 DE 1F ESEEK STA TRACK
|
| 405 |
|
|
0367 0109 F7 DE 20 STB SECTOR
|
| 406 |
|
|
0368 010C 1C FE ANDCC #$FE ; CLEAR CARRY
|
| 407 |
|
|
0369 010E 1A 04 ORCC #$04 ; SET Z
|
| 408 |
|
|
0370 0110 39 RTS
|
| 409 |
|
|
0371 *
|
| 410 |
|
|
0372 * MARK DISK READ ONLY
|
| 411 |
|
|
0373 *
|
| 412 |
|
|
0374 0111 C6 40 EDUMMY LDB #$40
|
| 413 |
|
|
0375 0113 5D TSTB
|
| 414 |
|
|
0376 0114 1A 01 ORCC #$01
|
| 415 |
|
|
0377 0116 39 RTS
|
| 416 |
|
|
0378 *
|
| 417 |
|
|
0379 0117 34 70 EREAD PSHS X,Y,U push sequentialy to preserve order on stack
|
| 418 |
|
|
0380 0119 17 FF EA LBSR ESEEK
|
| 419 |
|
|
0381 011C 17 FF A8 LBSR MAPIN build external ram address
|
| 420 |
|
|
0382 *
|
| 421 |
|
|
0383 011F 10 8E DE 46 LDY #BUFFER
|
| 422 |
|
|
0384 0123 5F CLRB
|
| 423 |
|
|
0385 0124 A6 C0 ERLOOP1 LDA 0,U+ move 256 bytes to buffer from external RAM
|
| 424 |
|
|
0386 0126 A7 A0 STA 0,Y+
|
| 425 |
|
|
0387 0128 5A DECB
|
| 426 |
|
|
0388 0129 26 F9 BNE ERLOOP1
|
| 427 |
|
|
0389 *
|
| 428 |
|
|
0390 012B 17 FF CC LBSR MAPOUT
|
| 429 |
|
|
0391 *
|
| 430 |
|
|
0392 012E 10 8E DE 46 LDY #BUFFER
|
| 431 |
|
|
0393 0132 5F CLRB
|
| 432 |
|
|
0394 0133 A6 A0 ERLOOP2 LDA 0,Y+ move 256 bytes from buffer to Flex RAM
|
| 433 |
|
|
0395 0135 A7 80 STA 0,X+
|
| 434 |
|
|
0396 0137 5A DECB
|
| 435 |
|
|
0397 0138 26 F9 BNE ERLOOP2
|
| 436 |
|
|
0398 *
|
| 437 |
|
|
0399 013A 5F CLRB
|
| 438 |
|
|
0400 013B 35 F0 PULS X,Y,U,PC restore all registers
|
| 439 |
|
|
0401 *
|
| 440 |
|
|
0402 * check for marker bytes $AA55 in first bytes of first track/sector
|
| 441 |
|
|
0403 *
|
| 442 |
|
|
0404 *ECHECK CLRA
|
| 443 |
|
|
0405 * LDB #1
|
| 444 |
|
|
0406 * LDX #BUFFER
|
| 445 |
|
|
0407 * BSR EREAD
|
| 446 |
|
|
0408 * LDD BUFFER
|
| 447 |
|
|
0409 * CMPD #$AA55
|
| 448 |
|
|
0410 * BNE EERR
|
| 449 |
|
|
0411 * LBRA DDUMMY
|
| 450 |
|
|
0412 *EERR LDB #$80 not ready bit set
|
| 451 |
|
|
0413 * TSTB
|
| 452 |
|
|
0414 * ORCC #$01
|
| 453 |
|
|
0415 * RTS
|
| 454 |
|
|
0416 013D 5F ECHECK CLRB
|
| 455 |
|
|
0417 013E 39 RTS
|
| 456 |
|
|
0418 *
|
| 457 |
|
|
0419 * Write Sector
|
| 458 |
|
|
0420 *
|
| 459 |
|
|
0421 013F 34 70 EWRITE PSHS X,Y,U
|
| 460 |
|
|
0422 0141 17 FF C2 LBSR ESEEK
|
| 461 |
|
|
0423 0144 CE DE 2A LDU #DTYPTAB ; Point to Drive Type table
|
| 462 |
|
|
0424 0147 F6 DE 1E LDB DRVNUM ; Get working drive number
|
| 463 |
|
|
0425 014A E6 C5 LDB B,U ; Fetch Drive type
|
| 464 |
|
|
0426 014C C1 01 CMPB #DTYPRAM ; Is it a RAM Disk ?
|
| 465 |
|
|
0427 014E 27 07 BEQ EWOK ; Yep, can write to it
|
| 466 |
|
|
0428 0150 C1 00 CMPB #DTYPROM ; Allow writes to ROM Disk too
|
| 467 |
|
|
0429 0152 27 03 BEQ EWOK
|
| 468 |
|
|
0430 0154 16 FF BA LBRA EDUMMY ; Nope report read only
|
| 469 |
|
|
0431 *
|
| 470 |
|
|
0432 0157 10 8E DE 46 EWOK LDY #BUFFER
|
| 471 |
|
|
0433 015B 5F CLRB
|
| 472 |
|
|
0434 015C A6 80 EWLOOP1 LDA 0,X+ move 256 bytes to buffer from Flex RAM
|
| 473 |
|
|
0435 015E A7 A0 STA 0,Y+
|
| 474 |
|
|
0436 0160 5A DECB
|
| 475 |
|
|
0437 0161 26 F9 BNE EWLOOP1
|
| 476 |
|
|
0438 *
|
| 477 |
|
|
0439 0163 17 FF 61 LBSR MAPIN
|
| 478 |
|
|
0440 *
|
| 479 |
|
|
0441 0166 10 8E DE 46 LDY #BUFFER
|
| 480 |
|
|
0442 016A 5F CLRB
|
| 481 |
|
|
0443 016B A6 A0 EWLOOP2 LDA 0,Y+ move 256 bytes from buffer to external RAM
|
| 482 |
|
|
0444 016D A7 C0 STA 0,U+
|
| 483 |
|
|
0445 016F 5A DECB
|
| 484 |
|
|
0446 0170 26 F9 BNE EWLOOP2
|
| 485 |
|
|
0447 *
|
| 486 |
|
|
0448 0172 17 FF 85 LBSR MAPOUT
|
| 487 |
|
|
0449 *
|
| 488 |
|
|
0450 0175 5F CLRB
|
| 489 |
|
|
0451 0176 35 F0 PULS X,Y,U,PC
|
| 490 |
|
|
0452 *
|
| 491 |
|
|
0453 *
|
| 492 |
|
|
0454 *****************************************************
|
| 493 |
|
|
0455 * FlexNet drivers *
|
| 494 |
|
|
0456 * --------------- *
|
| 495 |
|
|
0457 * Drivers to support a remote connection via the *
|
| 496 |
|
|
0458 * serial port using the FlexNet protocol as defined *
|
| 497 |
|
|
0459 * in FLEXNet_421B *
|
| 498 |
|
|
0460 *****************************************************
|
| 499 |
|
|
0461 *
|
| 500 |
|
|
0462 *
|
| 501 |
|
|
0463 * read sector from remote drive
|
| 502 |
|
|
0464 *
|
| 503 |
|
|
0465 0178 34 04 NREAD PSHS B
|
| 504 |
|
|
0466 017A 34 02 PSHS A
|
| 505 |
|
|
0467 017C 7F DE 21 CLR CHKSUM clear checksum
|
| 506 |
|
|
0468 017F 7F DE 22 CLR CHKSUM+1
|
| 507 |
|
|
0469 *
|
| 508 |
|
|
0470 0182 86 73 LDA #'s Send read sector command
|
| 509 |
|
|
0471 0184 BD 02 81 JSR SCHAR
|
| 510 |
|
|
0472 0187 24 4C BCC NRD_DNR if timeout, then flag drive not ready
|
| 511 |
|
|
0473 *
|
| 512 |
|
|
0474 0189 B6 DE 1E LDA DRVNUM send drive
|
| 513 |
|
|
0475 018C BD 02 81 JSR SCHAR
|
| 514 |
|
|
0476 018F 24 44 BCC NRD_DNR
|
| 515 |
|
|
0477 *
|
| 516 |
|
|
0478 0191 35 02 PULS A send track
|
| 517 |
|
|
0479 0193 BD 02 81 JSR SCHAR
|
| 518 |
|
|
0480 0196 24 3D BCC NRD_DNR
|
| 519 |
|
|
0481 *
|
| 520 |
|
|
0482 0198 35 02 PULS A send sector
|
| 521 |
|
|
0483 019A BD 02 81 JSR SCHAR
|
| 522 |
|
|
0484 019D 24 36 BCC NRD_DNR
|
| 523 |
|
|
0485 *
|
| 524 |
|
|
0486 * transfer 256 bytes
|
| 525 |
|
|
0487 019F 5F CLRB
|
| 526 |
|
|
0488 01A0 BD 02 65 NREAD1 JSR RCHAR read byte
|
| 527 |
|
|
0489 01A3 24 30 BCC NRD_DNR if timeout, then flag drive not ready
|
| 528 |
|
|
0490 01A5 A7 80 STA 0,X+
|
| 529 |
|
|
0491 01A7 BB DE 22 ADDA CHKSUM+1 update checksum
|
| 530 |
|
|
0492 01AA B7 DE 22 STA CHKSUM+1
|
| 531 |
|
|
0493 01AD 24 03 BCC NREAD2
|
| 532 |
|
|
0494 01AF 7C DE 21 INC CHKSUM
|
| 533 |
|
|
0495 01B2 5A NREAD2 DECB
|
| 534 |
|
|
0496 01B3 26 EB BNE NREAD1
|
| 535 |
|
|
0497 *
|
| 536 |
|
|
0498 * compare checksums
|
| 537 |
|
|
0499 01B5 BD 02 65 JSR RCHAR get checksum msb
|
| 538 |
|
|
0500 01B8 24 1B BCC NRD_DNR
|
| 539 |
|
|
0501 01BA 34 02 PSHS A
|
| 540 |
|
|
0502 01BC BD 02 65 JSR RCHAR get checksum lsb
|
| 541 |
|
|
0503 01BF 24 14 BCC NRD_DNR
|
| 542 |
|
|
0504 01C1 1F 89 TFR A,B
|
| 543 |
|
|
0505 01C3 35 02 PULS A
|
| 544 |
|
|
0506 01C5 10 B3 DE 21 CMPD CHKSUM compare checksums
|
| 545 |
|
|
0507 01C9 26 0E BNE NRD_ERR if checksum error, then flag crc read error
|
| 546 |
|
|
0508 *
|
| 547 |
|
|
0509 01CB 86 06 LDA #ACK no checksum error, send ACK char
|
| 548 |
|
|
0510 01CD BD 02 81 JSR SCHAR
|
| 549 |
|
|
0511 01D0 24 03 BCC NRD_DNR
|
| 550 |
|
|
0512 01D2 5F CLRB all OK, flag no error
|
| 551 |
|
|
0513 01D3 20 0D BRA NRD_END
|
| 552 |
|
|
0514 *
|
| 553 |
|
|
0515 01D5 C6 10 NRD_DNR LDB #16 flag drive not ready
|
| 554 |
|
|
0516 01D7 20 09 BRA NRD_END
|
| 555 |
|
|
0517 *
|
| 556 |
|
|
0518 01D9 86 15 NRD_ERR LDA #NAK send NAK
|
| 557 |
|
|
0519 01DB BD 02 81 JSR SCHAR
|
| 558 |
|
|
0520 01DE 24 F5 BCC NRD_DNR
|
| 559 |
|
|
0521 01E0 C6 09 LDB #09 flag crc read error
|
| 560 |
|
|
0522 *
|
| 561 |
|
|
0523 01E2 F7 DE 21 NRD_END STB CHKSUM used by VERIFY
|
| 562 |
|
|
0524 01E5 5D TSTB
|
| 563 |
|
|
0525 01E6 39 RTS
|
| 564 |
|
|
0526 *
|
| 565 |
|
|
0527 *
|
| 566 |
|
|
0528 * write sector to remote drive
|
| 567 |
|
|
0529 *
|
| 568 |
|
|
0530 01E7 34 04 NWRITE PSHS B
|
| 569 |
|
|
0531 01E9 34 02 PSHS A
|
| 570 |
|
|
0532 01EB 7F DE 21 CLR CHKSUM clear checksum
|
| 571 |
|
|
0533 01EE 7F DE 22 CLR CHKSUM+1
|
| 572 |
|
|
0534 *
|
| 573 |
|
|
0535 01F1 86 72 LDA #'r Send write sector command
|
| 574 |
|
|
0536 01F3 BD 02 81 JSR SCHAR
|
| 575 |
|
|
0537 01F6 24 DD BCC NRD_DNR if timeout, then flag drive not ready
|
| 576 |
|
|
0538 *
|
| 577 |
|
|
0539 01F8 B6 DE 1E LDA DRVNUM send drive
|
| 578 |
|
|
0540 01FB BD 02 81 JSR SCHAR
|
| 579 |
|
|
0541 01FE 24 D5 BCC NRD_DNR
|
| 580 |
|
|
0542 *
|
| 581 |
|
|
0543 0200 35 02 PULS A send track
|
| 582 |
|
|
0544 0202 BD 02 81 JSR SCHAR
|
| 583 |
|
|
0545 0205 24 CE BCC NRD_DNR
|
| 584 |
|
|
0546 *
|
| 585 |
|
|
0547 0207 35 02 PULS A send sector
|
| 586 |
|
|
0548 0209 BD 02 81 JSR SCHAR
|
| 587 |
|
|
0549 020C 24 C7 BCC NRD_DNR
|
| 588 |
|
|
0550 *
|
| 589 |
|
|
0551 * transfer 256 bytes
|
| 590 |
|
|
0552 020E 5F CLRB
|
| 591 |
|
|
0553 020F A6 80 NWRITE1 LDA 0,X+
|
| 592 |
|
|
0554 0211 BD 02 81 JSR SCHAR write byte
|
| 593 |
|
|
0555 0214 24 BF BCC NRD_DNR if timeout, then flag drive not ready
|
| 594 |
|
|
0556 0216 BB DE 22 ADDA CHKSUM+1 update checksum
|
| 595 |
|
|
0557 0219 B7 DE 22 STA CHKSUM+1
|
| 596 |
|
|
0558 021C 24 03 BCC NWRITE2
|
| 597 |
|
|
0559 021E 7C DE 21 INC CHKSUM
|
| 598 |
|
|
0560 0221 5A NWRITE2 DECB
|
| 599 |
|
|
0561 0222 26 EB BNE NWRITE1
|
| 600 |
|
|
0562 *
|
| 601 |
|
|
0563 * compare checksums
|
| 602 |
|
|
0564 0224 B6 DE 21 LDA CHKSUM
|
| 603 |
|
|
0565 0227 BD 02 81 JSR SCHAR send checksum msb
|
| 604 |
|
|
0566 022A 24 A9 BCC NRD_DNR
|
| 605 |
|
|
0567 022C B6 DE 22 LDA CHKSUM+1
|
| 606 |
|
|
0568 022F BD 02 81 JSR SCHAR send checksum lsb
|
| 607 |
|
|
0569 0232 24 A1 BCC NRD_DNR
|
| 608 |
|
|
0570 *
|
| 609 |
|
|
0571 0234 BD 02 65 JSR RCHAR get checksum response
|
| 610 |
|
|
0572 0237 24 9C BCC NRD_DNR
|
| 611 |
|
|
0573 0239 81 06 CMPA #ACK
|
| 612 |
|
|
0574 023B 26 03 BNE NWR_ERR if checksum error, then flag write error
|
| 613 |
|
|
0575 *
|
| 614 |
|
|
0576 023D 5F CLRB all OK, flag no error
|
| 615 |
|
|
0577 023E 20 02 BRA NWR_END
|
| 616 |
|
|
0578 *
|
| 617 |
|
|
0579 0240 C6 0A NWR_ERR LDB #10 flag write error
|
| 618 |
|
|
0580 *
|
| 619 |
|
|
0581 0242 F7 DE 21 NWR_END STB CHKSUM used by VERIFY
|
| 620 |
|
|
0582 0245 5D TSTB
|
| 621 |
|
|
0583 0246 39 RTS
|
| 622 |
|
|
0584 *
|
| 623 |
|
|
0585 *
|
| 624 |
|
|
0586 * verify last sector written to remote drive
|
| 625 |
|
|
0587 *
|
| 626 |
|
|
0588 0247 F6 DE 21 NVERIFY LDB CHKSUM test last checksum
|
| 627 |
|
|
0589 024A 5D TSTB
|
| 628 |
|
|
0590 024B 39 RTS
|
| 629 |
|
|
0591 *
|
| 630 |
|
|
0592 *
|
| 631 |
|
|
0593 * quck check and check drive ready
|
| 632 |
|
|
0594 *
|
| 633 |
|
|
0595 024C 86 51 NCHECK LDA #'Q quick check command
|
| 634 |
|
|
0596 024E BD 02 81 JSR SCHAR
|
| 635 |
|
|
0597 0251 24 0C BCC NCK_ERR if timeout, then flag drive not ready
|
| 636 |
|
|
0598
|
| 637 |
|
|
0599 0253 BD 02 65 JSR RCHAR get response from host
|
| 638 |
|
|
0600 0256 24 07 BCC NCK_ERR
|
| 639 |
|
|
0601 0258 81 06 CMPA #ACK
|
| 640 |
|
|
0602 025A 26 03 BNE NCK_ERR if NAK, then flag drive not ready
|
| 641 |
|
|
0603
|
| 642 |
|
|
0604 025C 5F CLRB all OK, flag drive ready
|
| 643 |
|
|
0605 025D 20 04 BRA NCK_END
|
| 644 |
|
|
0606 *
|
| 645 |
|
|
0607 025F C6 10 NCK_ERR LDB #16 report drive not ready
|
| 646 |
|
|
0608 0261 1A 01 ORCC #$01 check needs carry set as well
|
| 647 |
|
|
0609 *
|
| 648 |
|
|
0610 0263 5D NCK_END TSTB
|
| 649 |
|
|
0611 0264 39 RTS
|
| 650 |
|
|
0612 *
|
| 651 |
|
|
0613 *
|
| 652 |
|
|
0614 * recieve char from remote drive.
|
| 653 |
|
|
0615 * timeout if no response for approx 1s.
|
| 654 |
|
|
0616 * Entry: no parameters
|
| 655 |
|
|
0617 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.
|
| 656 |
|
|
0618 *
|
| 657 |
|
|
0619 0265 34 30 RCHAR PSHS X,Y
|
| 658 |
|
|
0620 *
|
| 659 |
|
|
0621 0267 8E 03 E8 LDX #1000 1000x inner loop
|
| 660 |
|
|
0622 026A 10 8E 04 E2 RCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).
|
| 661 |
|
|
0623 026E 96 00 RCHAR2 LDA ACIAC1 test for recieved char
|
| 662 |
|
|
0624 0270 47 ASRA
|
| 663 |
|
|
0625 0271 25 0A BCS RCHAR3 get character
|
| 664 |
|
|
0626 0273 31 3F LEAY -1,Y else, continue to count delay
|
| 665 |
|
|
0627 0275 26 F7 BNE RCHAR2
|
| 666 |
|
|
0628 0277 30 1F LEAX -1,X
|
| 667 |
|
|
0629 0279 26 EF BNE RCHAR1
|
| 668 |
|
|
0630 027B 35 B0 PULS X,Y,PC return with error if timed out
|
| 669 |
|
|
0631 *
|
| 670 |
|
|
0632 027D 96 01 RCHAR3 LDA ACIAD1 return data (carry bit still set)
|
| 671 |
|
|
0633 027F 35 B0 PULS X,Y,PC
|
| 672 |
|
|
0634 *
|
| 673 |
|
|
0635 *
|
| 674 |
|
|
0636 * transmit char to remote drive.
|
| 675 |
|
|
0637 * timeout if no response for approx 1s. (allows for use of hardware flow control)
|
| 676 |
|
|
0638 * Entry: (A) = char to transmit
|
| 677 |
|
|
0639 * Exit: (A) = recieved char, (C)=1 if valid char, (C)=0 if timeout.
|
| 678 |
|
|
0640 *
|
| 679 |
|
|
0641 0281 34 30 SCHAR PSHS X,Y
|
| 680 |
|
|
0642 0283 34 02 PSHS A
|
| 681 |
|
|
0643 *
|
| 682 |
|
|
0644 0285 8E 03 E8 LDX #1000 1000x inner loop
|
| 683 |
|
|
0645 0288 10 8E 04 E2 SCHAR1 LDY #DELCON delay constant for inner loop (approx 1ms).
|
| 684 |
|
|
0646 028C 96 00 SCHAR2 LDA ACIAC1 test for space in transmit FIFO
|
| 685 |
|
|
0647 028E 47 ASRA
|
| 686 |
|
|
0648 028F 47 ASRA
|
| 687 |
|
|
0649 0290 25 0C BCS SCHAR3 send character
|
| 688 |
|
|
0650 0292 31 3F LEAY -1,Y else, continue to count delay
|
| 689 |
|
|
0651 0294 26 F6 BNE SCHAR2
|
| 690 |
|
|
0652 0296 30 1F LEAX -1,X
|
| 691 |
|
|
0653 0298 26 EE BNE SCHAR1
|
| 692 |
|
|
0654 029A 35 02 PULS A
|
| 693 |
|
|
0655 029C 35 B0 PULS X,Y,PC return with error if timed out
|
| 694 |
|
|
0656 *
|
| 695 |
|
|
0657 029E 35 02 SCHAR3 PULS A
|
| 696 |
|
|
0658 02A0 97 01 STA ACIAD1 send data (carry bit still set)
|
| 697 |
|
|
0659 02A2 35 B0 PULS X,Y,PC
|
| 698 |
|
|
0660 *
|
| 699 |
|
|
0661 ** 'UF' Format RAMdisc to FLEX standard.
|
| 700 |
|
|
0662 *
|
| 701 |
|
|
0663 02A4 0A 0D DISFOS FCB $0A,$0D
|
| 702 |
|
|
0664 02A6 46 6F 72 6D 61 74 FCC 'Formating RAMdisk... '
|
| 703 |
|
|
69 6E 67 20 52 41
|
| 704 |
|
|
4D 64 69 73 6B 2E
|
| 705 |
|
|
2E 2E 20
|
| 706 |
|
|
0665 02BB 04 FCB 4
|
| 707 |
|
|
0666 02BC 0A 0D 04 MESS6 FCB $0A,$0D,4
|
| 708 |
|
|
0667 02BF 52 61 6D 64 69 73 FCC 'Ramdisk not allocated! '
|
| 709 |
|
|
6B 20 6E 6F 74 20
|
| 710 |
|
|
61 6C 6C 6F 63 61
|
| 711 |
|
|
74 65 64 21 20
|
| 712 |
|
|
0668 02D6 04 FCB 4
|
| 713 |
|
|
0669 *
|
| 714 |
|
|
0670 02D7 8E 02 A4 UFSUB LDX #DISFOS
|
| 715 |
|
|
0671 02DA BD 04 50 JSR PDATA1
|
| 716 |
|
|
0672 02DD 8E DE 2A LDX #DTYPTAB search for allocated ramdisk
|
| 717 |
|
|
0673 02E0 5F CLRB
|
| 718 |
|
|
0674 02E1 A6 85 FMT9 LDA B,X
|
| 719 |
|
|
0675 02E3 81 01 CMPA #DTYPRAM driver type 1 is ramdisk
|
| 720 |
|
|
0676 02E5 27 0C BEQ FFOUND
|
| 721 |
|
|
0677 02E7 5C INCB
|
| 722 |
|
|
0678 02E8 C1 04 CMPB #4 end of table? then not allocated.
|
| 723 |
|
|
0679 02EA 26 F5 BNE FMT9
|
| 724 |
|
|
0680 02EC 8E 02 BC LDX #MESS6
|
| 725 |
|
|
0681 02EF BD 04 50 JSR PDATA1
|
| 726 |
|
|
0682 02F2 39 RTS
|
| 727 |
|
|
0683 *
|
| 728 |
|
|
0684 02F3 F7 DE 1E FFOUND STB DRVNUM
|
| 729 |
|
|
0685 02F6 8E DE 1B LDX #DRVNUM-3
|
| 730 |
|
|
0686 02F9 9D 6C JSR DRVSEL
|
| 731 |
|
|
0687 *
|
| 732 |
|
|
0688 * set up free chain
|
| 733 |
|
|
0689 *
|
| 734 |
|
|
0690 02FB 8E DE 46 LDX #BUFFER clear out buffer
|
| 735 |
|
|
0691 02FE 4F CLRA
|
| 736 |
|
|
0692 02FF 5F CLRB
|
| 737 |
|
|
0693 0300 A7 80 DFL1 STA 0,X+
|
| 738 |
|
|
0694 0302 5A DECB
|
| 739 |
|
|
0695 0303 26 FB BNE DFL1
|
| 740 |
|
|
0696 *
|
| 741 |
|
|
0697 0305 7F DE 1F CLR TRACK
|
| 742 |
|
|
0698 0308 86 01 LDA #1
|
| 743 |
|
|
0699 030A B7 DE 20 STA SECTOR
|
| 744 |
|
|
0700 030D 8E DE 46 DFL2 LDX #BUFFER
|
| 745 |
|
|
0701 0310 B6 DE 1F LDA TRACK
|
| 746 |
|
|
0702 0313 A7 84 STA 0,X
|
| 747 |
|
|
0703 0315 B6 DE 20 LDA SECTOR
|
| 748 |
|
|
0704 0318 4C INCA
|
| 749 |
|
|
0705 0319 81 0F CMPA #RMAXSEC+1 last sector on track?
|
| 750 |
|
|
0706 031B 26 04 BNE DFL3
|
| 751 |
|
|
0707 031D 6C 84 INC 0,X
|
| 752 |
|
|
0708 031F 86 01 LDA #1
|
| 753 |
|
|
0709 0321 A7 01 DFL3 STA 1,X
|
| 754 |
|
|
0710 0323 B6 DE 1F LDA TRACK
|
| 755 |
|
|
0711 0326 F6 DE 20 LDB SECTOR
|
| 756 |
|
|
0712 0329 9D 5B JSR WRITSC
|
| 757 |
|
|
0713 032B 7C DE 20 INC SECTOR
|
| 758 |
|
|
0714 032E B6 DE 20 LDA SECTOR
|
| 759 |
|
|
0715 0331 81 0F CMPA #RMAXSEC+1
|
| 760 |
|
|
0716 0333 26 D8 BNE DFL2
|
| 761 |
|
|
0717 0335 86 01 LDA #1
|
| 762 |
|
|
0718 0337 B7 DE 20 STA SECTOR
|
| 763 |
|
|
0719 033A 7C DE 1F INC TRACK
|
| 764 |
|
|
0720 033D B6 DE 1F LDA TRACK
|
| 765 |
|
|
0721 0340 81 40 CMPA #RMAXTRK
|
| 766 |
|
|
0722 0342 26 C9 BNE DFL2
|
| 767 |
|
|
0723 * break free chain at last track/sector
|
| 768 |
|
|
0724 0344 8E DE 46 LDX #BUFFER
|
| 769 |
|
|
0725 0347 86 3F LDA #RMAXTRK-1
|
| 770 |
|
|
0726 0349 C6 0E LDB #RMAXSEC
|
| 771 |
|
|
0727 034B 9D 57 JSR READSC
|
| 772 |
|
|
0728 034D 8E DE 46 LDX #BUFFER
|
| 773 |
|
|
0729 0350 6F 84 CLR 0,X
|
| 774 |
|
|
0730 0352 6F 01 CLR 1,X
|
| 775 |
|
|
0731 0354 86 3F LDA #RMAXTRK-1
|
| 776 |
|
|
0732 0356 C6 0E LDB #RMAXSEC
|
| 777 |
|
|
0733 0358 9D 5B JSR WRITSC
|
| 778 |
|
|
0734 * set up sector structure, SIR, directory etc
|
| 779 |
|
|
0735 035A 8E DE 46 LDX #BUFFER
|
| 780 |
|
|
0736 035D 4F CLRA
|
| 781 |
|
|
0737 035E C6 0E LDB #RMAXSEC
|
| 782 |
|
|
0738 0360 9D 57 JSR READSC
|
| 783 |
|
|
0739 0362 8E DE 46 LDX #BUFFER
|
| 784 |
|
|
0740 0365 6F 84 CLR 0,X break end of directory chain
|
| 785 |
|
|
0741 0367 6F 01 CLR 1,X
|
| 786 |
|
|
0742 0369 4F CLRA
|
| 787 |
|
|
0743 036A C6 0E LDB #RMAXSEC
|
| 788 |
|
|
0744 036C 9D 5B JSR WRITSC
|
| 789 |
|
|
0745 *
|
| 790 |
|
|
0746 036E 8E DE 46 LDX #BUFFER
|
| 791 |
|
|
0747 0371 4F CLRA
|
| 792 |
|
|
0748 0372 C6 03 LDB #3 set up SIR
|
| 793 |
|
|
0749 0374 9D 57 JSR READSC
|
| 794 |
|
|
0750 0376 8E DE 46 LDX #BUFFER
|
| 795 |
|
|
0751 0379 6F 84 CLR 0,X break forward link
|
| 796 |
|
|
0752 037B 6F 01 CLR 1,X
|
| 797 |
|
|
0753 037D CC 52 41 LDD #$5241 set volume name (RAMDISK )
|
| 798 |
|
|
0754 0380 ED 88 10 STD 16,X
|
| 799 |
|
|
0755 0383 CC 4D 44 LDD #$4D44
|
| 800 |
|
|
0756 0386 ED 88 12 STD 18,X
|
| 801 |
|
|
0757 0389 CC 49 53 LDD #$4953
|
| 802 |
|
|
0758 038C ED 88 14 STD 20,X
|
| 803 |
|
|
0759 038F CC 4B 20 LDD #$4B20
|
| 804 |
|
|
0760 0392 ED 88 16 STD 22,X
|
| 805 |
|
|
0761 0395 CC 00 01 LDD #1 volume number
|
| 806 |
|
|
0762 0398 ED 88 1B STD 27,X
|
| 807 |
|
|
0763 039B CC 01 01 LDD #$0101 first trk/sec 01-01
|
| 808 |
|
|
0764 039E ED 88 1D STD 29,X
|
| 809 |
|
|
0765 03A1 86 3F LDA #RMAXTRK-1
|
| 810 |
|
|
0766 03A3 C6 0E LDB #RMAXSEC
|
| 811 |
|
|
0767 03A5 ED 88 1F STD 31,X
|
| 812 |
|
|
0768 03A8 ED 88 26 STD 38,X
|
| 813 |
|
|
0769 03AB CC 03 72 LDD #RTOTSEC total DATA sectors (2912-14)
|
| 814 |
|
|
0770 03AE ED 88 21 STD 33,X
|
| 815 |
|
|
0771 *
|
| 816 |
|
|
0772 03B1 86 01 LDA #01 month set default creation date (SYS09's birthday!)
|
| 817 |
|
|
0773 03B3 A7 88 23 STA 35,X
|
| 818 |
|
|
0774 03B6 86 07 LDA #07 day
|
| 819 |
|
|
0775 03B8 A7 88 24 STA 36,X
|
| 820 |
|
|
0776 03BB 86 07 LDA #07 year
|
| 821 |
|
|
0777 03BD A7 88 25 STA 37,X
|
| 822 |
|
|
0778 *
|
| 823 |
|
|
0779 03C0 4F RF3 CLRA
|
| 824 |
|
|
0780 03C1 C6 03 LDB #3
|
| 825 |
|
|
0781 03C3 9D 5B JSR WRITSC
|
| 826 |
|
|
0782 *
|
| 827 |
|
|
0783 03C5 8E DE 46 LDX #BUFFER
|
| 828 |
|
|
0784 03C8 4F CLRA
|
| 829 |
|
|
0785 03C9 C6 01 LDB #1
|
| 830 |
|
|
0786 03CB 9D 57 JSR READSC
|
| 831 |
|
|
0787 03CD 8E DE 46 LDX #BUFFER
|
| 832 |
|
|
0788 03D0 86 AA LDA #$AA set the init flag
|
| 833 |
|
|
0789 03D2 A7 84 STA 0,X
|
| 834 |
|
|
0790 03D4 86 55 LDA #$55
|
| 835 |
|
|
0791 03D6 A7 01 STA 1,X
|
| 836 |
|
|
0792 03D8 4F CLRA
|
| 837 |
|
|
0793 03D9 C6 01 LDB #1
|
| 838 |
|
|
0794 03DB 0E 5B JMP WRITSC
|
| 839 |
|
|
0795 *
|
| 840 |
|
|
0796 ********************************
|
| 841 |
|
|
0797 * System specific Boot *
|
| 842 |
|
|
0798 * command goes here. *
|
| 843 |
|
|
0799 ********************************
|
| 844 |
|
|
0800 *
|
| 845 |
|
|
0801 * Boot FLEX from the FPGA's internal pre-loaded scratch RAM
|
| 846 |
|
|
0802 *
|
| 847 |
|
|
0803 03DD 08 08 UBMESS FCB $08, $08
|
| 848 |
|
|
0804 03DF 42 6F 6F 74 69 6E FCC 'Booting internal FLEX....'
|
| 849 |
|
|
67 20 69 6E 74 65
|
| 850 |
|
|
72 6E 61 6C 20 46
|
| 851 |
|
|
4C 45 58 2E 2E 2E
|
| 852 |
|
|
2E
|
| 853 |
|
|
0805 03F8 0D 0A 04 FCB $0D,$0A,$04
|
| 854 |
|
|
0806 *
|
| 855 |
|
|
0807 03FB 8E 03 DD UBSUB LDX #UBMESS
|
| 856 |
|
|
0808 03FE BD 04 50 JSR PDATA1
|
| 857 |
|
|
0809 *
|
| 858 |
|
|
0810 0401 8E D3 E5 LDX #$D3E5
|
| 859 |
|
|
0811 0404 10 8E 04 24 LDY #CONTAB Overlay console driver table
|
| 860 |
|
|
0812 0408 EC A1 UB1 LDD 0,Y++
|
| 861 |
|
|
0813 040A ED 81 STD 0,X++
|
| 862 |
|
|
0814 040C 8C D3 FD CMPX #$D3FD
|
| 863 |
|
|
0815 040F 26 F7 BNE UB1
|
| 864 |
|
|
0816 *
|
| 865 |
|
|
0817 0411 8E DE 00 LDX #$DE00 Overlay disk driver table
|
| 866 |
|
|
0818 0414 10 8E 04 3C LDY #DISTAB
|
| 867 |
|
|
0819 0418 EC A1 UB2 LDD 0,Y++
|
| 868 |
|
|
0820 041A ED 81 STD 0,X++
|
| 869 |
|
|
0821 041C 8C DE 1E CMPX #$DE1E
|
| 870 |
|
|
0822 041F 26 F7 BNE UB2
|
| 871 |
|
|
0823 *
|
| 872 |
|
|
0824 0421 7E CD 00 UBEND JMP $CD00
|
| 873 |
|
|
0825 *
|
| 874 |
|
|
0826 * FLEX console jump table.
|
| 875 |
|
|
0827 0424 04 5C CONTAB FDB INPNE INPUT NO ECHO
|
| 876 |
|
|
0828 0426 04 68 FDB DUMMY INTERRUPT HANDLER
|
| 877 |
|
|
f9-monex.txt, line no. 829: Symbol undefined Pass 2
|
| 878 |
|
|
0829 0428 00 02 FDB MONRAM+$02 SWI VECTOR
|
| 879 |
|
|
f9-monex.txt, line no. 830: Symbol undefined Pass 2
|
| 880 |
|
|
0830 042A 00 08 FDB MONRAM+$08 IRQ VECTOR
|
| 881 |
|
|
0831 042C 04 68 FDB DUMMY TIMER OFF
|
| 882 |
|
|
0832 042E 04 68 FDB DUMMY TIMER ON
|
| 883 |
|
|
0833 0430 04 68 FDB DUMMY TIMER INITIALIZATION
|
| 884 |
|
|
0834 0432 04 64 FDB CONTRL MONITOR
|
| 885 |
|
|
0835 0434 04 68 FDB DUMMY TERMINAL INITIALIZATION
|
| 886 |
|
|
0836 0436 04 60 FDB STATUS INPUT CHECK
|
| 887 |
|
|
0837 0438 04 54 FDB OUTP TERMINAL OUTPUT
|
| 888 |
|
|
0838 043A 04 58 FDB INPE TERMINAL INPUT WITH ECHO
|
| 889 |
|
|
0839 *
|
| 890 |
|
|
0840 * FLEX disk jump table.
|
| 891 |
|
|
0841 043C 0E 57 DISTAB JMP READSC
|
| 892 |
|
|
0842 043E 0E 5B JMP WRITSC
|
| 893 |
|
|
0843 0440 0E 5F JMP BUSY
|
| 894 |
|
|
0844 0442 0E 63 JMP RESTR1
|
| 895 |
|
|
0845 0444 0E 6C JMP DRVSEL
|
| 896 |
|
|
0846 0446 0E 9F JMP CHKRDY
|
| 897 |
|
|
0847 0448 0E A3 JMP CHKQIK
|
| 898 |
|
|
0848 044A 0E A7 JMP DINIT
|
| 899 |
|
|
0849 044C 0E BF JMP DWARM
|
| 900 |
|
|
0850 044E 0E C3 JMP SEEKTS
|
| 901 |
|
|
0851 *
|
| 902 |
|
|
0852 * Monitor jumps
|
| 903 |
|
|
0853 *
|
| 904 |
|
|
f9-monex.txt, line no. 854: Symbol undefined Pass 2
|
| 905 |
|
|
0854 0450 6E 9F 00 00 PDATA1 JMP [PDATAV]
|
| 906 |
|
|
f9-monex.txt, line no. 855: Symbol undefined Pass 2
|
| 907 |
|
|
0855 0454 6E 9F 00 00 OUTP JMP [OUTCHV]
|
| 908 |
|
|
f9-monex.txt, line no. 856: Symbol undefined Pass 2
|
| 909 |
|
|
0856 0458 6E 9F 00 00 INPE JMP [INCHEV]
|
| 910 |
|
|
f9-monex.txt, line no. 857: Symbol undefined Pass 2
|
| 911 |
|
|
0857 045C 6E 9F 00 00 INPNE JMP [INCHV]
|
| 912 |
|
|
f9-monex.txt, line no. 858: Symbol undefined Pass 2
|
| 913 |
|
|
0858 0460 6E 9F 00 00 STATUS JMP [INCHKV]
|
| 914 |
|
|
f9-monex.txt, line no. 859: Symbol undefined Pass 2
|
| 915 |
|
|
0859 0464 6E 9F 00 00 CONTRL JMP [MONITV]
|
| 916 |
|
|
0860 0468 39 DUMMY RTS
|
| 917 |
|
|
0861 *
|
| 918 |
|
|
0862 ** 'UL' LOAD ROM DISK VIA SERIAL PORT
|
| 919 |
|
|
0863 *
|
| 920 |
|
|
0864 0469 53 65 72 69 61 6C ULMES FCC 'Serial ROM Disk upload ...'
|
| 921 |
|
|
20 52 4F 4D 20 44
|
| 922 |
|
|
69 73 6B 20 75 70
|
| 923 |
|
|
6C 6F 61 64 20 2E
|
| 924 |
|
|
2E 2E
|
| 925 |
|
|
0865 0483 0D 0A 04 FCB $0D,$0A,$04
|
| 926 |
|
|
0866 0486 52 4F 4D 20 44 69 ULMES1 FCC 'ROM Disk Loaded'
|
| 927 |
|
|
73 6B 20 4C 6F 61
|
| 928 |
|
|
64 65 64
|
| 929 |
|
|
0867 0495 0D 0A 04 FCB $0D,$0A,$04
|
| 930 |
|
|
0868 *
|
| 931 |
|
|
0869 0498 8E 04 69 ULSUB LDX #ULMES
|
| 932 |
|
|
0870 049B BD 04 50 JSR PDATA1
|
| 933 |
|
|
0871 *
|
| 934 |
|
|
0872 049E 86 00 LDA #$00
|
| 935 |
|
|
0873 04A0 B7 DE 1E STA DRVNUM
|
| 936 |
|
|
0874 04A3 4F CLRA TRACK 0
|
| 937 |
|
|
0875 04A4 C6 01 LDB #$01 SECTOR 1
|
| 938 |
|
|
0876 04A6 B7 DE 1F ULLOOP0 STA TRACK
|
| 939 |
|
|
0877 04A9 F7 DE 20 STB SECTOR`
|
| 940 |
|
|
0878 04AC 17 FC 18 LBSR MAPIN
|
| 941 |
|
|
0879 *
|
| 942 |
|
|
0880 04AF 5F CLRB xfer 256 bytes at a time.
|
| 943 |
|
|
0881 04B0 BD 04 D3 ULLOOP1 JSR LRBYTE transfer should be hex bytes
|
| 944 |
|
|
0882 04B3 A7 C0 STA ,U+
|
| 945 |
|
|
0883 04B5 5A DECB
|
| 946 |
|
|
0884 04B6 26 F8 BNE ULLOOP1
|
| 947 |
|
|
0885 *
|
| 948 |
|
|
0886 04B8 17 FC 3F LBSR MAPOUT
|
| 949 |
|
|
0887 *
|
| 950 |
|
|
0888 04BB B6 DE 1F LDA TRACK
|
| 951 |
|
|
0889 04BE F6 DE 20 LDB SECTOR
|
| 952 |
|
|
0890 04C1 5C INCB
|
| 953 |
|
|
0891 04C2 C1 0F CMPB #EMAXSEC+1
|
| 954 |
|
|
0892 04C4 26 E0 BNE ULLOOP0
|
| 955 |
|
|
0893 04C6 C6 01 LDB #1
|
| 956 |
|
|
0894 04C8 4C INCA
|
| 957 |
|
|
0895 04C9 81 30 CMPA #EMAXTRK
|
| 958 |
|
|
0896 04CB 26 D9 BNE ULLOOP0
|
| 959 |
|
|
0897 *
|
| 960 |
|
|
0898 04CD 8E 04 86 ULEXIT LDX #ULMES1
|
| 961 |
|
|
0899 04D0 7E 04 50 JMP PDATA1
|
| 962 |
|
|
0900 *
|
| 963 |
|
|
0901 * Read a byte from the serial port
|
| 964 |
|
|
0902 *
|
| 965 |
|
|
0903 04D3 34 04 LRBYTE PSHS B
|
| 966 |
|
|
0904 04D5 8D 0E BSR LRHEX Get hex digit.
|
| 967 |
|
|
0905 04D7 48 ASLA
|
| 968 |
|
|
0906 04D8 48 ASLA Shift to msb.
|
| 969 |
|
|
0907 04D9 48 ASLA
|
| 970 |
|
|
0908 04DA 48 ASLA
|
| 971 |
|
|
0909 04DB 1F 89 TFR A,B Save in B.
|
| 972 |
|
|
0910 04DD 8D 06 BSR LRHEX Get next digit.
|
| 973 |
|
|
0911 04DF 34 04 PSHS B
|
| 974 |
|
|
0912 04E1 AB E0 ADDA 0,S+ Add together bytes.
|
| 975 |
|
|
0913 04E3 35 84 PULS B,PC
|
| 976 |
|
|
0914 *
|
| 977 |
|
|
0915 04E5 BD 05 0B LRHEX JSR INTER
|
| 978 |
|
|
0916 04E8 29 FB BVS LRHEX
|
| 979 |
|
|
0917 04EA 80 30 SUBA #$30 Remove ascii bias.
|
| 980 |
|
|
0918 04EC 2B F7 BMI LRHEX
|
| 981 |
|
|
0919 04EE 81 09 CMPA #$09 Number?
|
| 982 |
|
|
0920 04F0 2F 0A BLE LRHEX1 Yes.
|
| 983 |
|
|
0921 04F2 81 11 CMPA #$11 Keep testing.
|
| 984 |
|
|
0922 04F4 2B EF BMI LRHEX
|
| 985 |
|
|
0923 04F6 81 16 CMPA #$16
|
| 986 |
|
|
0924 04F8 2E EB BGT LRHEX
|
| 987 |
|
|
0925 04FA 80 07 SUBA #$07
|
| 988 |
|
|
0926 04FC 39 LRHEX1 RTS
|
| 989 |
|
|
0927 *
|
| 990 |
|
|
0928 * ACIA INPUT TEST
|
| 991 |
|
|
0929 *
|
| 992 |
|
|
0930 04FD 96 00 INTEST LDA ACIAC1
|
| 993 |
|
|
0931 04FF 85 01 BITA #$01
|
| 994 |
|
|
0932 0501 39 RTS
|
| 995 |
|
|
0933 *
|
| 996 |
|
|
0934 * RESET ACIA
|
| 997 |
|
|
0935 *
|
| 998 |
|
|
0936 0502 86 03 ACIRST LDA #$03 master reset
|
| 999 |
|
|
0937 0504 97 00 STA ACIAC1
|
| 1000 |
|
|
0938 0506 86 11 LDA #$11
|
| 1001 |
|
|
0939 0508 97 00 STA ACIAC1
|
| 1002 |
|
|
0940 050A 39 RTS
|
| 1003 |
|
|
0941 *
|
| 1004 |
|
|
0942 * ACIA INPUT
|
| 1005 |
|
|
0943 *
|
| 1006 |
|
|
0944 050B 86 10 INTER LDA #16
|
| 1007 |
|
|
0945 050D B7 DE 27 STA DELCNT+0
|
| 1008 |
|
|
0946 0510 7F DE 28 CLR DELCNT+1
|
| 1009 |
|
|
0947 0513 7F DE 29 CLR DELCNT+2
|
| 1010 |
|
|
0948 0516 96 00 INTER0 LDA ACIAC1
|
| 1011 |
|
|
0949 0518 85 01 BITA #$01
|
| 1012 |
|
|
0950 051A 26 08 BNE INTER1
|
| 1013 |
|
|
0951 051C 85 78 BITA #$78
|
| 1014 |
|
|
0952 051E 27 09 BEQ INTER2
|
| 1015 |
|
|
0953 0520 8D E0 BSR ACIRST
|
| 1016 |
|
|
0954 0522 20 E7 BRA INTER
|
| 1017 |
|
|
0955 *
|
| 1018 |
|
|
0956 0524 96 01 INTER1 LDA ACIAD1
|
| 1019 |
|
|
0957 0526 1C 02 ANDCC #VFLAG
|
| 1020 |
|
|
0958 0528 39 RTS
|
| 1021 |
|
|
0959 *
|
| 1022 |
|
|
0960 0529 7A DE 29 INTER2 DEC DELCNT+2
|
| 1023 |
|
|
0961 052C 26 E8 BNE INTER0
|
| 1024 |
|
|
0962 052E 7A DE 28 DEC DELCNT+1
|
| 1025 |
|
|
0963 0531 26 E3 BNE INTER0
|
| 1026 |
|
|
0964 0533 7A DE 27 DEC DELCNT+0
|
| 1027 |
|
|
0965 0536 26 DE BNE INTER0
|
| 1028 |
|
|
0966 0538 4F CLRA
|
| 1029 |
|
|
0967 0539 1A 02 ORCC #VFLAG
|
| 1030 |
|
|
0968 053B 39 RTS
|
| 1031 |
|
|
0969 *
|
| 1032 |
|
|
0970 * ACIA OUTPUT
|
| 1033 |
|
|
0971 *
|
| 1034 |
|
|
0972 053C 34 02 OUTTER PSHS A
|
| 1035 |
|
|
0973 *
|
| 1036 |
|
|
0974 053E 96 00 OUTTE1 LDA ACIAC1
|
| 1037 |
|
|
0975 0540 85 02 BITA #$02
|
| 1038 |
|
|
0976 0542 26 08 BNE OUTTE2
|
| 1039 |
|
|
0977 0544 85 78 BITA #$78
|
| 1040 |
|
|
0978 0546 27 F6 BEQ OUTTE1
|
| 1041 |
|
|
0979 0548 8D B8 BSR ACIRST
|
| 1042 |
|
|
0980 054A 20 F2 BRA OUTTE1
|
| 1043 |
|
|
0981 *
|
| 1044 |
|
|
0982 054C 35 02 OUTTE2 PULS A
|
| 1045 |
|
|
0983 054E 97 01 STA ACIAD1
|
| 1046 |
|
|
0984 0550 39 RTS
|
| 1047 |
|
|
0985 *
|
| 1048 |
|
|
0986 ** 'UX' Xmodem ROM Disk upload
|
| 1049 |
|
|
0987 *
|
| 1050 |
|
|
0988 0551 0D 0A UXMES FCB $0D,$0A
|
| 1051 |
|
|
0989 0553 58 6D 6F 64 65 6D FCC 'Xmodem ROM Disk Upload'
|
| 1052 |
|
|
20 52 4F 4D 20 44
|
| 1053 |
|
|
69 73 6B 20 55 70
|
| 1054 |
|
|
6C 6F 61 64
|
| 1055 |
|
|
0990 0569 04 FCB 4
|
| 1056 |
|
|
0991 056A 0D 0A UXMES1 FCB $0D,$0A
|
| 1057 |
|
|
0992 056C 55 70 6C 6F 61 64 FCC 'Upload Complete'
|
| 1058 |
|
|
20 43 6F 6D 70 6C
|
| 1059 |
|
|
65 74 65
|
| 1060 |
|
|
0993 057B 04 FCB 4
|
| 1061 |
|
|
0994 057C 0D 0A UXMES2 FCB $0D,$0A
|
| 1062 |
|
|
0995 057E 55 70 6C 6F 61 64 FCC 'Upload Error'
|
| 1063 |
|
|
20 45 72 72 6F 72
|
| 1064 |
|
|
0996 058A 04 FCB 4
|
| 1065 |
|
|
0997 *
|
| 1066 |
|
|
0998 058B 8E 05 51 UXSUB LDX #UXMES
|
| 1067 |
|
|
0999 058E 17 FE BF LBSR PDATA1
|
| 1068 |
|
|
1000 *
|
| 1069 |
|
|
1001 0591 86 01 LDA #1
|
| 1070 |
|
|
1002 0593 B7 DE 23 STA BLKNUM
|
| 1071 |
|
|
1003 0596 8E 05 F9 LDX #XSTSTR
|
| 1072 |
|
|
1004 0599 BF DE 25 STX XSTATE
|
| 1073 |
|
|
1005 *
|
| 1074 |
|
|
1006 059C 86 00 LDA #$00
|
| 1075 |
|
|
1007 059E B7 DE 1E STA DRVNUM
|
| 1076 |
|
|
1008 05A1 4F CLRA TRACK 0
|
| 1077 |
|
|
1009 05A2 C6 01 LDB #$01 SECTOR 1
|
| 1078 |
|
|
1010 05A4 B7 DE 1F UXLOOP0 STA TRACK
|
| 1079 |
|
|
1011 05A7 F7 DE 20 STB SECTOR
|
| 1080 |
|
|
1012 05AA 17 FB 1A LBSR MAPIN
|
| 1081 |
|
|
1013 *
|
| 1082 |
|
|
1014 05AD 5F CLRB xfer 256 bytes at a time.
|
| 1083 |
|
|
1015 05AE 17 00 2B UXLOOP1 LBSR XBYTE transfer should be hex bytes
|
| 1084 |
|
|
1016 05B1 25 20 BCS UXERR
|
| 1085 |
|
|
1017 05B3 A7 C0 STA ,U+
|
| 1086 |
|
|
1018 05B5 5A DECB
|
| 1087 |
|
|
1019 05B6 26 F6 BNE UXLOOP1
|
| 1088 |
|
|
1020 *
|
| 1089 |
|
|
1021 05B8 17 FB 3F LBSR MAPOUT
|
| 1090 |
|
|
1022 *
|
| 1091 |
|
|
1023 05BB B6 DE 1F LDA TRACK
|
| 1092 |
|
|
1024 05BE F6 DE 20 LDB SECTOR
|
| 1093 |
|
|
1025 05C1 5C INCB
|
| 1094 |
|
|
1026 05C2 C1 0F CMPB #EMAXSEC+1
|
| 1095 |
|
|
1027 05C4 26 DE BNE UXLOOP0
|
| 1096 |
|
|
1028 05C6 C6 01 LDB #1
|
| 1097 |
|
|
1029 05C8 4C INCA
|
| 1098 |
|
|
1030 05C9 81 30 CMPA #EMAXTRK
|
| 1099 |
|
|
1031 05CB 26 D7 BNE UXLOOP0
|
| 1100 |
|
|
1032 *
|
| 1101 |
|
|
1033 05CD 8E 05 6A UXEXIT LDX #UXMES1
|
| 1102 |
|
|
1034 05D0 7E 04 50 JMP PDATA1
|
| 1103 |
|
|
1035 *
|
| 1104 |
|
|
1036 05D3 17 FB 24 UXERR LBSR MAPOUT
|
| 1105 |
|
|
1037 05D6 8E 05 7C LDX #UXMES2
|
| 1106 |
|
|
1038 05D9 16 FE 74 LBRA PDATA1
|
| 1107 |
|
|
1039 *
|
| 1108 |
|
|
1040 * Get a Byte using XModem protocol
|
| 1109 |
|
|
1041 * Carry clear => no errors
|
| 1110 |
|
|
1042 * Carry set => errors
|
| 1111 |
|
|
1043 *
|
| 1112 |
|
|
1044 05DC 34 10 XBYTE PSHS X
|
| 1113 |
|
|
1045 05DE BE DE 25 LDX XSTATE
|
| 1114 |
|
|
1046 *
|
| 1115 |
|
|
1047 05E1 17 FF 27 XBYTE0 LBSR INTER
|
| 1116 |
|
|
1048 05E4 28 0A BVC XBYTE1
|
| 1117 |
|
|
1049 05E6 86 15 LDA #NAK
|
| 1118 |
|
|
1050 05E8 17 FF 51 LBSR OUTTER
|
| 1119 |
|
|
1051 05EB 8E 05 F9 LDX #XSTSTR
|
| 1120 |
|
|
1052 05EE 20 F1 BRA XBYTE0
|
| 1121 |
|
|
1053 *
|
| 1122 |
|
|
1054 05F0 AD 84 XBYTE1 JSR ,X
|
| 1123 |
|
|
1055 05F2 26 ED BNE XBYTE0
|
| 1124 |
|
|
1056 05F4 BF DE 25 STX XSTATE
|
| 1125 |
|
|
1057 05F7 35 90 PULS X,PC
|
| 1126 |
|
|
1058 *
|
| 1127 |
|
|
1059 * START - LOOK FOR SOH (START OF HEADER) = $01
|
| 1128 |
|
|
1060 *
|
| 1129 |
|
|
1061 05F9 81 01 XSTSTR CMPA #SOH
|
| 1130 |
|
|
1062 05FB 26 06 BNE XSTSTR1
|
| 1131 |
|
|
1063 05FD 8E 06 19 LDX #XSTBLK
|
| 1132 |
|
|
1064 0600 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
|
| 1133 |
|
|
1065 0602 39 RTS
|
| 1134 |
|
|
1066 *
|
| 1135 |
|
|
1067 0603 81 04 XSTSTR1 CMPA #EOT
|
| 1136 |
|
|
1068 0605 26 08 BNE XSTSTR2
|
| 1137 |
|
|
1069 0607 86 06 LDA #ACK
|
| 1138 |
|
|
1070 0609 17 FF 30 LBSR OUTTER
|
| 1139 |
|
|
1071 060C 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit
|
| 1140 |
|
|
1072 060E 39 RTS
|
| 1141 |
|
|
1073 *
|
| 1142 |
|
|
1074 060F 81 18 XSTSTR2 CMPA #CAN
|
| 1143 |
|
|
1075 0611 26 03 BNE XSTSTR3
|
| 1144 |
|
|
1076 0613 1A 05 ORCC #CFLAG+ZFLAG Set (c)=1 abort & exit
|
| 1145 |
|
|
1077 0615 39 RTS
|
| 1146 |
|
|
1078 *
|
| 1147 |
|
|
1079 0616 1C FA XSTSTR3 ANDCC #$FF-CFLAG-ZFLAG
|
| 1148 |
|
|
1080 0618 39 RTS
|
| 1149 |
|
|
1081 *
|
| 1150 |
|
|
1082 * Got SOH
|
| 1151 |
|
|
1083 * Now get block number
|
| 1152 |
|
|
1084 *
|
| 1153 |
|
|
1085 0619 B1 DE 23 XSTBLK CMPA BLKNUM
|
| 1154 |
|
|
1086 061C 26 06 BNE XSTBLKE
|
| 1155 |
|
|
1087 061E 8E 06 2F LDX #XSTCOM
|
| 1156 |
|
|
1088 0621 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
|
| 1157 |
|
|
1089 0623 39 RTS
|
| 1158 |
|
|
1090 *
|
| 1159 |
|
|
1091 * Error in block number
|
| 1160 |
|
|
1092 *
|
| 1161 |
|
|
1093 0624 86 15 XSTBLKE LDA #NAK
|
| 1162 |
|
|
1094 0626 17 FF 13 LBSR OUTTER
|
| 1163 |
|
|
1095 0629 8E 05 F9 LDX #XSTSTR
|
| 1164 |
|
|
1096 062C 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
|
| 1165 |
|
|
1097 062E 39 RTS
|
| 1166 |
|
|
1098 *
|
| 1167 |
|
|
1099 * Get complement of block number
|
| 1168 |
|
|
1100 *
|
| 1169 |
|
|
1101 062F 43 XSTCOM COMA
|
| 1170 |
|
|
1102 0630 B1 DE 23 CMPA BLKNUM
|
| 1171 |
|
|
1103 0633 26 EF BNE XSTBLKE
|
| 1172 |
|
|
1104 0635 7F DE 21 CLR CHKSUM
|
| 1173 |
|
|
1105 0638 86 80 LDA #128
|
| 1174 |
|
|
1106 063A B7 DE 24 STA BYTCNT
|
| 1175 |
|
|
1107 063D 8E 06 43 LDX #XSTDAT
|
| 1176 |
|
|
1108 0640 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, No valid data (no exit)
|
| 1177 |
|
|
1109 0642 39 RTS
|
| 1178 |
|
|
1110 *
|
| 1179 |
|
|
1111 * Get data bytes
|
| 1180 |
|
|
1112 *
|
| 1181 |
|
|
1113 0643 34 02 XSTDAT PSHS A
|
| 1182 |
|
|
1114 0645 BB DE 21 ADDA CHKSUM
|
| 1183 |
|
|
1115 0648 B7 DE 21 STA CHKSUM
|
| 1184 |
|
|
1116 064B 35 02 PULS A
|
| 1185 |
|
|
1117 064D 7A DE 24 DEC BYTCNT
|
| 1186 |
|
|
1118 0650 26 03 BNE XSTDAT1
|
| 1187 |
|
|
1119 0652 8E 06 5A LDX #XSTCHK
|
| 1188 |
|
|
1120 0655 1C FE XSTDAT1 ANDCC #$FF-CFLAG No abort
|
| 1189 |
|
|
1121 0657 1A 04 ORCC #ZFLAG Valid data (exit)
|
| 1190 |
|
|
1122 0659 39 RTS
|
| 1191 |
|
|
1123 *
|
| 1192 |
|
|
1124 * Byte count reached zero
|
| 1193 |
|
|
1125 * Check checksum byte
|
| 1194 |
|
|
1126 *
|
| 1195 |
|
|
1127 065A B1 DE 21 XSTCHK CMPA CHKSUM
|
| 1196 |
|
|
1128 065D 26 07 BNE XSTCHK1 retry if wrong checksum
|
| 1197 |
|
|
1129 *
|
| 1198 |
|
|
1130 * Checksum OK ...
|
| 1199 |
|
|
1131 * increment block number
|
| 1200 |
|
|
1132 * and send ACK
|
| 1201 |
|
|
1133 *
|
| 1202 |
|
|
1134 065F 7C DE 23 INC BLKNUM
|
| 1203 |
|
|
1135 0662 86 06 LDA #ACK
|
| 1204 |
|
|
1136 0664 20 0D BRA XSTCHK2
|
| 1205 |
|
|
1137 *
|
| 1206 |
|
|
1138 * Checksum Error detected ...
|
| 1207 |
|
|
1139 * Reset Sector counter in ACCB to last 128 byte boundary
|
| 1208 |
|
|
1140 * and send NAK
|
| 1209 |
|
|
1141 *
|
| 1210 |
|
|
1142 0666 34 04 XSTCHK1 PSHS B
|
| 1211 |
|
|
1143 0668 1F 30 TFR U,D
|
| 1212 |
|
|
1144 066A 5A DECB
|
| 1213 |
|
|
1145 066B C4 80 ANDB #128
|
| 1214 |
|
|
1146 066D 1F 03 TFR D,U
|
| 1215 |
|
|
1147 066F 35 04 PULS B
|
| 1216 |
|
|
1148 0671 86 15 LDA #NAK
|
| 1217 |
|
|
1149 0673 17 FE C6 XSTCHK2 LBSR OUTTER
|
| 1218 |
|
|
1150 0676 8E 05 F9 LDX #XSTSTR
|
| 1219 |
|
|
1151 0679 1C FA ANDCC #$FF-CFLAG-ZFLAG No abort, no valid data (no exit)
|
| 1220 |
|
|
1152 067B 39 RTS
|
| 1221 |
|
|
1153 *
|
| 1222 |
|
|
1154 ** 'UP' Load ROMdisk via config PROM.
|
| 1223 |
|
|
1155 *
|
| 1224 |
|
|
1156 067C 08 08 UPMES FCB $08,$08
|
| 1225 |
|
|
1157 067E 4C 6F 61 64 20 52 FCC 'Load ROM disk from config PROM.'
|
| 1226 |
|
|
4F 4D 20 64 69 73
|
| 1227 |
|
|
6B 20 66 72 6F 6D
|
| 1228 |
|
|
20 63 6F 6E 66 69
|
| 1229 |
|
|
67 20 50 52 4F 4D
|
| 1230 |
|
|
2E
|
| 1231 |
|
|
1158 069D 04 FCB 4
|
| 1232 |
|
|
1159 069E 46 6F 75 6E 64 20 UPMES1 FCC 'Found SYNC, loading data...'
|
| 1233 |
|
|
53 59 4E 43 2C 20
|
| 1234 |
|
|
6C 6F 61 64 69 6E
|
| 1235 |
|
|
67 20 64 61 74 61
|
| 1236 |
|
|
2E 2E 2E
|
| 1237 |
|
|
1160 06B9 0A 0D 04 FCB $0A,$0D,4
|
| 1238 |
|
|
1161 06BC 52 4F 4D 20 44 69 UPMES2 FCC 'ROM Disk Loaded.'
|
| 1239 |
|
|
73 6B 20 4C 6F 61
|
| 1240 |
|
|
64 65 64 2E
|
| 1241 |
|
|
1162 06CC 0A 0D 04 FCB $0A,$0D,4
|
| 1242 |
|
|
1163 06CF 52 4F 4D 20 44 69 UPMES3 FCC 'ROM Disk Not Found.'
|
| 1243 |
|
|
73 6B 20 4E 6F 74
|
| 1244 |
|
|
20 46 6F 75 6E 64
|
| 1245 |
|
|
2E
|
| 1246 |
|
|
1164 06E2 0A 0D 04 FCB $0A,$0D,4
|
| 1247 |
|
|
1165 *
|
| 1248 |
|
|
1166 06E5 8E 06 7C UPSUB LDX #UPMES
|
| 1249 |
|
|
1167 06E8 BD 04 50 JSR PDATA1
|
| 1250 |
|
|
1168 *
|
| 1251 |
|
|
1169 06EB 8D 5A BSR UPRESET
|
| 1252 |
|
|
1170 06ED 10 8E 00 20 LDY #$0020 Set up count for 2 MBit
|
| 1253 |
|
|
1171 06F1 8E 00 00 LDX #$0000
|
| 1254 |
|
|
1172 06F4 8D 6C UPSUB1 BSR UPBIT Shift in bit
|
| 1255 |
|
|
1173 06F6 8D 7C BSR UPSYNC Test for Sync pattern`
|
| 1256 |
|
|
1174 06F8 27 15 BEQ UPSUB4 Skip if found
|
| 1257 |
|
|
1175 06FA 30 1F LEAX -1,X Count Down inner loop
|
| 1258 |
|
|
1176 06FC 8C 00 00 CMPX #$0000
|
| 1259 |
|
|
1177 06FF 26 F3 BNE UPSUB1 Branch if inner loop not complete
|
| 1260 |
|
|
1178 0701 31 1F LEAY -1,X Count down outer loop
|
| 1261 |
|
|
1179 0703 10 8C 00 00 CMPY #$0000
|
| 1262 |
|
|
1180 0707 26 EB BNE UPSUB1 Branch if outer loop not complete
|
| 1263 |
|
|
1181 *
|
| 1264 |
|
|
1182 0709 8E 06 CF LDX #UPMES3 2MBits scanned, no synch, report error
|
| 1265 |
|
|
1183 070C 7E 04 50 JMP PDATA1
|
| 1266 |
|
|
1184 *
|
| 1267 |
|
|
1185 070F 8E 06 9E UPSUB4 LDX #UPMES1 Sync found, now load disk
|
| 1268 |
|
|
1186 0712 BD 04 50 JSR PDATA1
|
| 1269 |
|
|
1187 *
|
| 1270 |
|
|
1188 0715 4F CLRA
|
| 1271 |
|
|
1189 0716 B7 DE 1E STA DRVNUM select Drive 0
|
| 1272 |
|
|
1190 0719 C6 01 LDB #$01
|
| 1273 |
|
|
1191 071B B7 DE 1F UPSUB2 STA TRACK track 0
|
| 1274 |
|
|
1192 071E F7 DE 20 STB SECTOR sector 1
|
| 1275 |
|
|
1193 *
|
| 1276 |
|
|
1194 0721 17 F9 A3 LBSR MAPIN map in buffer
|
| 1277 |
|
|
1195 0724 5F CLRB 256 byte sector
|
| 1278 |
|
|
1196 0725 8D 67 UPSUB3 BSR UPBYTE read byte from prom
|
| 1279 |
|
|
1197 0727 A7 C0 STA ,U+ Store in buffer
|
| 1280 |
|
|
1198 0729 5A DECB
|
| 1281 |
|
|
1199 072A 26 F9 BNE UPSUB3 Loop until sector read`
|
| 1282 |
|
|
1200 072C 17 F9 CB LBSR MAPOUT map out buffer
|
| 1283 |
|
|
1201 *
|
| 1284 |
|
|
1202 072F B6 DE 1F LDA TRACK Advance sector
|
| 1285 |
|
|
1203 0732 F6 DE 20 LDB SECTOR
|
| 1286 |
|
|
1204 0735 5C INCB
|
| 1287 |
|
|
1205 0736 C1 0F CMPB #EMAXSEC+1 Wrap on max sector count
|
| 1288 |
|
|
1206 0738 26 E1 BNE UPSUB2
|
| 1289 |
|
|
1207 073A C6 01 LDB #1
|
| 1290 |
|
|
1208 073C 4C INCA Advance track
|
| 1291 |
|
|
1209 073D 81 30 CMPA #EMAXTRK
|
| 1292 |
|
|
1210 073F 26 DA BNE UPSUB2
|
| 1293 |
|
|
1211 *
|
| 1294 |
|
|
1212 0741 8E 06 BC UPEXIT LDX #UPMES2 Load complete, report message
|
| 1295 |
|
|
1213 0744 7E 04 50 JMP PDATA1
|
| 1296 |
|
|
1214 *
|
| 1297 |
|
|
1215 * Reset Serial PROM
|
| 1298 |
|
|
1216 *
|
| 1299 |
|
|
f9-monex.txt, line no. 1217: Symbol undefined Pass 2
|
| 1300 |
|
|
1217 0747 86 00 UPRESET LDA #PRSTHI Strobe the reset line
|
| 1301 |
|
|
f9-monex.txt, line no. 1218: Symbol undefined Pass 2
|
| 1302 |
|
|
1218 0749 97 00 STA PROMREG
|
| 1303 |
|
|
f9-monex.txt, line no. 1219: Symbol undefined Pass 2
|
| 1304 |
|
|
1219 074B 86 00 LDA #PRSTLO
|
| 1305 |
|
|
f9-monex.txt, line no. 1220: Symbol undefined Pass 2
|
| 1306 |
|
|
1220 074D 97 00 STA PROMREG
|
| 1307 |
|
|
1221 074F 8E 00 00 LDX #$0000 Delay a while`
|
| 1308 |
|
|
f9-monex.txt, line no. 1222: Phasing Error
|
| 1309 |
|
|
1222 0752 30 1F UPRST1 LEAX -1,X
|
| 1310 |
|
|
1223 0754 8C 00 00 CMPX #$0000
|
| 1311 |
|
|
1224 0757 26 FB BNE UPRST1
|
| 1312 |
|
|
1225 0759 BF DF 46 STX SYNCREG+0 Clear Sync Shift Register
|
| 1313 |
|
|
1226 075C BF DF 48 STX SYNCREG+2
|
| 1314 |
|
|
1227 075F 39 RTS
|
| 1315 |
|
|
1228 *
|
| 1316 |
|
|
1229 * Input 1 Bit From PROM
|
| 1317 |
|
|
1230 *
|
| 1318 |
|
|
f9-monex.txt, line no. 1231: Phasing Error
|
| 1319 |
|
|
f9-monex.txt, line no. 1231: Symbol undefined Pass 2
|
| 1320 |
|
|
1231 0760 86 00 UPBIT LDA #PCLKHI
|
| 1321 |
|
|
f9-monex.txt, line no. 1232: Symbol undefined Pass 2
|
| 1322 |
|
|
1232 0762 97 00 STA PROMREG
|
| 1323 |
|
|
f9-monex.txt, line no. 1233: Symbol undefined Pass 2
|
| 1324 |
|
|
1233 0764 86 00 LDA #PCLKLO
|
| 1325 |
|
|
f9-monex.txt, line no. 1234: Symbol undefined Pass 2
|
| 1326 |
|
|
1234 0766 97 00 STA PROMREG
|
| 1327 |
|
|
f9-monex.txt, line no. 1235: Symbol undefined Pass 2
|
| 1328 |
|
|
1235 0768 96 00 LDA PROMREG
|
| 1329 |
|
|
1236 076A 44 LSRA
|
| 1330 |
|
|
1237 076B 78 DF 49 ASL SYNCREG+3
|
| 1331 |
|
|
1238 076E 39 RTS
|
| 1332 |
|
|
1239 *
|
| 1333 |
|
|
1240 * Test for 32 bit Sync Word
|
| 1334 |
|
|
1241 *
|
| 1335 |
|
|
f9-monex.txt, line no. 1242: Phasing Error
|
| 1336 |
|
|
1242 076F 79 DF 48 UPSYNC ROL SYNCREG+2
|
| 1337 |
|
|
1243 0772 79 DF 47 ROL SYNCREG+1
|
| 1338 |
|
|
1244 0775 79 DF 46 ROL SYNCREG+0
|
| 1339 |
|
|
f9-monex.txt, line no. 1245: Symbol undefined Pass 2
|
| 1340 |
|
|
1245 0778 CC 00 00 LDD #SYNCLO
|
| 1341 |
|
|
1246 077B 10 B3 DF 48 CMPD SYNCREG+2
|
| 1342 |
|
|
1247 077F 26 0C BNE UPSYNCX
|
| 1343 |
|
|
f9-monex.txt, line no. 1248: Symbol undefined Pass 2
|
| 1344 |
|
|
1248 0781 CC 00 00 LDD #SYNCHI
|
| 1345 |
|
|
1249 0784 10 B3 DF 46 CMPD SYNCREG+0
|
| 1346 |
|
|
f9-monex.txt, line no. 1250: Phasing Error
|
| 1347 |
|
|
1250 0788 39 UPSYNCX RTS
|
| 1348 |
|
|
1251 *
|
| 1349 |
|
|
1252 * Input 1 Byte From PROM
|
| 1350 |
|
|
1253 *
|
| 1351 |
|
|
f9-monex.txt, line no. 1254: Phasing Error
|
| 1352 |
|
|
1254 0789 34 04 UPBYTE PSHS B
|
| 1353 |
|
|
1255 078B C6 08 LDB #8
|
| 1354 |
|
|
f9-monex.txt, line no. 1256: Phasing Error
|
| 1355 |
|
|
1256 078D 8D D3 UPBYTE1 BSR UPBIT
|
| 1356 |
|
|
1257 078F 5A DECB
|
| 1357 |
|
|
1258 0790 26 00 BNE UPBYTE1
|
| 1358 |
|
|
1259 0792 B6 DF 49 LDA SYNCREG+3
|
| 1359 |
|
|
1260 0795 35 84 PULS B,PC
|
| 1360 |
|
|
1261 *
|
| 1361 |
|
|
1262 ***** NEXTCMD *****
|
| 1362 |
|
|
1263 *
|
| 1363 |
|
|
f9-monex.txt, line no. 1264: Phasing Error
|
| 1364 |
|
|
1264 0797 17 FC BE NEXTEXT LBSR INPE GET ONE CHAR. FROM TERMINAL
|
| 1365 |
|
|
1265 079A 84 7F ANDA #$7F STRIP PARITY FROM CHAR.
|
| 1366 |
|
|
1266 079C 1F 89 TFR A,B
|
| 1367 |
|
|
1267 079E 86 20 LDA #$20
|
| 1368 |
|
|
1268 07A0 17 FC B1 LBSR OUTP PRNT SPACE
|
| 1369 |
|
|
1269 07A3 C1 60 CMPB #$60
|
| 1370 |
|
|
1270 07A5 2F 07 BLE NXTEX0
|
| 1371 |
|
|
1271 07A7 C0 20 SUBB #$20
|
| 1372 |
|
|
1272 *
|
| 1373 |
|
|
1273 ***** DO TABLE LOOKUP *****
|
| 1374 |
|
|
1274 * FOR COMMAND FUNCTIONS
|
| 1375 |
|
|
1275 *
|
| 1376 |
|
|
f9-monex.txt, line no. 1276: Phasing Error
|
| 1377 |
|
|
1276 07A9 8E 07 C4 NXTEX0 LDX #EXTTAB POINT TO JUMP TABLE
|
| 1378 |
|
|
f9-monex.txt, line no. 1277: Phasing Error
|
| 1379 |
|
|
1277 07AC E1 80 NXTEX1 CMPB ,X+ DOES COMMAND MATCH TABLE ENTRY ?
|
| 1380 |
|
|
1278 07AE 27 12 BEQ JMPEXT BRANCH IF MATCH FOUND
|
| 1381 |
|
|
1279 07B0 30 02 LEAX 2,X POINT TO NEXT ENTRY IN TABLE
|
| 1382 |
|
|
1280 07B2 8C 07 D3 CMPX #EXTEND REACHED END OF TABLE YET ?
|
| 1383 |
|
|
1281 07B5 26 FA BNE NXTEX1 IF NOT END, CHECK NEXT ENTRY
|
| 1384 |
|
|
1282 07B7 8E 07 D3 LDX #MSGWHAT POINT TO MSG "WHAT?"
|
| 1385 |
|
|
1283 07BA 16 FC 93 LBRA PDATA1 PRINT MSG AND RETURN
|
| 1386 |
|
|
f9-monex.txt, line no. 1284: Phasing Error
|
| 1387 |
|
|
1284 07BD 6E 94 JMPEXT JMP [,X] JUMP TO COMMAND ROUTINE
|
| 1388 |
|
|
1285 *
|
| 1389 |
|
|
1286 * EXTENDED COMMAND JUMP TABLE
|
| 1390 |
|
|
1287 *
|
| 1391 |
|
|
f9-monex.txt, line no. 1288: Phasing Error
|
| 1392 |
|
|
1288 07BF EXTTAB EQU *
|
| 1393 |
|
|
1289 07BF 42 FCC 'B' BOOT FLEX
|
| 1394 |
|
|
1290 07C0 03 FB FDB UBSUB
|
| 1395 |
|
|
1291 07C2 4C FCC 'L' LOAD ROM DISK OVER SERIAL PORT
|
| 1396 |
|
|
1292 07C3 04 98 FDB ULSUB
|
| 1397 |
|
|
1293 07C5 46 FCC 'F' FORMAT RAM DISK
|
| 1398 |
|
|
1294 07C6 02 D7 FDB UFSUB
|
| 1399 |
|
|
1295 07C8 50 FCC 'P' LOAD ROM DISK FROM PROM
|
| 1400 |
|
|
1296 07C9 06 E5 FDB UPSUB
|
| 1401 |
|
|
1297 07CB 58 FCC 'X' XMODEM ROM DISK UPLOAD
|
| 1402 |
|
|
1298 07CC 05 8B FDB UXSUB
|
| 1403 |
|
|
1299 *
|
| 1404 |
|
|
f9-monex.txt, line no. 1300: Phasing Error
|
| 1405 |
|
|
1300 07CE EXTEND EQU *
|
| 1406 |
|
|
1301 *
|
| 1407 |
|
|
f9-monex.txt, line no. 1302: Phasing Error
|
| 1408 |
|
|
1302 07CE 57 48 41 54 20 3F MSGWHAT FCC "WHAT ?"
|
| 1409 |
|
|
1303 07D4 0A 0D 04 FCB $0A,$0D,$04
|
| 1410 |
|
|
1304 END
|
| 1411 |
|
|
Program + Init Data = 2047 bytes
|
| 1412 |
|
|
Error count = 68
|
