[4f508e6] | 1 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 2 | | |
|
---|
| 3 | | bios.s -- BIOS for the Buchla 700 and NASA 3D Helmet Display |
|
---|
| 4 | | ------ -------------------------------------------------- |
|
---|
| 5 | | |
|
---|
| 6 | | See VM1,VM2 and VDATE for version and date |
|
---|
| 7 | | Written by D.N. Lynx Crowe |
|
---|
| 8 | | |
|
---|
| 9 | | Very loosely based on ideas from: |
|
---|
| 10 | | |
|
---|
| 11 | | "Atari ST Internals", by Abacus Software, |
|
---|
| 12 | | "A Hitchhiker's Guide to the BIOS", by Atari, |
|
---|
| 13 | | "DOS Technical Reference", by IBM, |
|
---|
| 14 | | "DOS/360", by IBM,
|
---|
| 15 | | "CP/M" , by Digital Research, and, of course, |
|
---|
| 16 | | "Unix (tm)", by AT&T, et al. |
|
---|
| 17 | | |
|
---|
| 18 | | After all, Why re-invent the wheel? |
|
---|
| 19 | | |
|
---|
| 20 | | Some of the functions are the same as Ataris, but quite a few are different, |
|
---|
| 21 | | and our I/O configuration is much different, so BEWARE! Make no |
|
---|
| 22 | | assumptions, and read the documentation and comments very carefully. |
|
---|
| 23 | | |
|
---|
| 24 | | Especially watch out for the extended BIOS functions. Most of them |
|
---|
| 25 | | are nothing at all like the Atari / GEMDOS extended bios functions, |
|
---|
| 26 | | and even the ones that are similar have different numbers. |
|
---|
| 27 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 28 |
|
---|
[f40a309] | 29 | .text
|
---|
[4f508e6] | 30 |
|
---|
| 31 | | Version and date
|
---|
| 32 | | ----------------
|
---|
| 33 | VM1 = 18 | First part of version number
|
---|
| 34 | VM2 = 0 | Second part of version number
|
---|
| 35 | VDATE = 0x19880620 | Version date
|
---|
| 36 |
|
---|
| 37 | BUCHLA = 1 | Non-Zero for Buchla 700, 0 for NASA
|
---|
| 38 | NASASIO = 0 | Non-zero for NASA, 0 for Buchla addr.
|
---|
| 39 |
|
---|
| 40 | FL_SKR = 0x00 | Seek rate (WD1772, 6Ms/step)
|
---|
| 41 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 42 |
|
---|
| 43 | .page
|
---|
| 44 |
|
---|
| 45 | .xref start_ | Where ROMP starts
|
---|
| 46 | .xref _errno | Start of ROMP bss space
|
---|
| 47 |
|
---|
| 48 | .xdef basepage | Pseudo base page for romp
|
---|
| 49 | .xdef _rsflag | Register save area overflow flag
|
---|
| 50 |
|
---|
[f40a309] | 51 | .ifne BUCHLA
|
---|
[4f508e6] | 52 |
|
---|
| 53 | .xdef _hdvini | Disk init
|
---|
| 54 |
|
---|
[f40a309] | 55 | .endc
|
---|
[4f508e6] | 56 |
|
---|
| 57 | .xdef _wzcrsh | ROMP crash flag
|
---|
| 58 | .xdef _crshvc | Crash vector
|
---|
| 59 | .xdef _crshsr | Crash SR
|
---|
| 60 | .xdef _crshpc | Crash PC
|
---|
| 61 | .xdef _crshsp | Crash SP
|
---|
| 62 | .xdef _crshus | Crash USP
|
---|
| 63 | .xdef _crshrg | Crash SP registers
|
---|
| 64 | .xdef _crshst | Crash top of stack
|
---|
| 65 |
|
---|
| 66 | .page
|
---|
| 67 |
|
---|
[f40a309] | 68 | .ifne BUCHLA
|
---|
[4f508e6] | 69 |
|
---|
[f40a309] | 70 | .xdef _hz_1k
|
---|
| 71 | .xdef _hz_200
|
---|
| 72 | .xdef frclock
|
---|
| 73 | .xdef t1count
|
---|
| 74 | .xdef t2count
|
---|
| 75 | .xdef t3count
|
---|
[4f508e6] | 76 |
|
---|
[f40a309] | 77 | .xdef nflops
|
---|
| 78 | .xdef disknum
|
---|
| 79 | .xdef booted
|
---|
| 80 | .xdef seekrate
|
---|
| 81 | .xdef flock
|
---|
| 82 | .xdef fverify
|
---|
[4f508e6] | 83 |
|
---|
[f40a309] | 84 | .xdef retrycnt
|
---|
| 85 | .xdef wpstatus
|
---|
| 86 | .xdef wplatch
|
---|
| 87 | .xdef bootdev
|
---|
[4f508e6] | 88 |
|
---|
[f40a309] | 89 | .xdef cdev
|
---|
| 90 | .xdef ctrack
|
---|
| 91 | .xdef csect
|
---|
| 92 | .xdef cside
|
---|
| 93 | .xdef ccount
|
---|
[4f508e6] | 94 |
|
---|
[f40a309] | 95 | .xdef cdma
|
---|
| 96 | .xdef edma
|
---|
| 97 | .xdef tmpdma
|
---|
| 98 | .xdef rseed
|
---|
[4f508e6] | 99 |
|
---|
[f40a309] | 100 | .xdef savptr
|
---|
[4f508e6] | 101 |
|
---|
[f40a309] | 102 | .xdef flpsrsv
|
---|
| 103 | .xdef flpregs
|
---|
[4f508e6] | 104 |
|
---|
[f40a309] | 105 | .xdef dsb0
|
---|
| 106 | .xdef dsb1
|
---|
[4f508e6] | 107 |
|
---|
[f40a309] | 108 | .xdef dskmode
|
---|
| 109 | .xdef dskerrs
|
---|
| 110 | .xdef drvbpbs
|
---|
[4f508e6] | 111 |
|
---|
[f40a309] | 112 | .endc
|
---|
[4f508e6] | 113 |
|
---|
[f40a309] | 114 | .xdef biostop
|
---|
[4f508e6] | 115 |
|
---|
| 116 | .page
|
---|
| 117 |
|
---|
| 118 | | Some critical equates:
|
---|
| 119 | | ----------------------
|
---|
| 120 | | Interrupt masks
|
---|
| 121 | | ---------------
|
---|
| 122 | IPL3 = 0x0300 | IPL 3 value for sr
|
---|
| 123 | IPL4 = 0x0400 | IPL 4 value for sr
|
---|
| 124 | IPL7 = 0x0700 | IPL 7 value for sr (4 for debug)
|
---|
| 125 |
|
---|
[f40a309] | 126 | .ifne BUCHLA
|
---|
[4f508e6] | 127 |
|
---|
| 128 | INITIPL = IPL3+0x2000 | Initial Internal Priority Level
|
---|
| 129 |
|
---|
[f40a309] | 130 | .endc
|
---|
[4f508e6] | 131 |
|
---|
[f40a309] | 132 | .ifeq BUCHLA
|
---|
[4f508e6] | 133 |
|
---|
| 134 | INITIPL = IPL4+0x2000 | Initial Internal Priority Level
|
---|
| 135 |
|
---|
[f40a309] | 136 | .endc
|
---|
[4f508e6] | 137 |
|
---|
| 138 | | Memory allocation
|
---|
| 139 | | -----------------
|
---|
[f40a309] | 140 | .ifeq BUCHLA
|
---|
[4f508e6] | 141 |
|
---|
| 142 | TPA = 0x008000 | Put TPA 32K up from the bottom
|
---|
| 143 |
|
---|
[f40a309] | 144 | .endc
|
---|
[4f508e6] | 145 |
|
---|
[f40a309] | 146 | .ifne BUCHLA
|
---|
[4f508e6] | 147 |
|
---|
| 148 | TPA = 0x010000 | Put TPA 64K up from the bottom
|
---|
| 149 |
|
---|
[f40a309] | 150 | .endc
|
---|
[4f508e6] | 151 |
|
---|
| 152 | SSTACK = TPA | Put system stack just below TPA
|
---|
| 153 |
|
---|
| 154 | p_bbase = 0x0018 | Basepage offset to bss base
|
---|
| 155 | p_blen = 0x001C | Basepage offset to bss length
|
---|
| 156 |
|
---|
| 157 | | It's magic ...
|
---|
| 158 | | --------------
|
---|
| 159 | FMAGIC = 0x87654321 | Magic for formatting
|
---|
| 160 | RETRYIT = 0x10000 | Magic for re-try from criter
|
---|
| 161 | RSMAGIC = 0x78563412 | Magic for register save area OK
|
---|
| 162 |
|
---|
| 163 | | Miscellaneous constants
|
---|
| 164 | | -----------------------
|
---|
| 165 | FCMAX = 0x00FFFFFF | Maximum frame counter value (24 bits)
|
---|
| 166 |
|
---|
| 167 | .page
|
---|
| 168 |
|
---|
| 169 | | CFR0 Baud Rates:
|
---|
| 170 | | ----------------
|
---|
| 171 | BR_300 = 0x04
|
---|
| 172 | BR_600 = 0x05
|
---|
| 173 | BR_1200 = 0x06
|
---|
| 174 | BR_1800 = 0x07
|
---|
| 175 | BR_2400 = 0x08
|
---|
| 176 | BR_3600 = 0x09
|
---|
| 177 | BR_4800 = 0x0A
|
---|
| 178 | BR_7200 = 0x0B
|
---|
| 179 | BR_9600 = 0x0C
|
---|
| 180 | BR_19K2 = 0x0D
|
---|
| 181 | BR_EXT = 0x0F
|
---|
| 182 |
|
---|
| 183 | | CFR0 Stop bits (includes TBR select bit):
|
---|
| 184 | | -----------------------------------------
|
---|
| 185 | NSB_1 = 0x40
|
---|
| 186 | NSB_2 = 0x60
|
---|
| 187 |
|
---|
| 188 | | CFR1 Number of Data Bits (includes MSB):
|
---|
| 189 | | ----------------------------------------
|
---|
| 190 | NDB_5 = 0x80
|
---|
| 191 | NDB_6 = 0xA0
|
---|
| 192 | NDB_7 = 0xC0
|
---|
| 193 | NDB_8 = 0xE0
|
---|
| 194 |
|
---|
| 195 | | CFR1 Parity Selection:
|
---|
| 196 | | ----------------------
|
---|
| 197 | P_ODD = 0x04
|
---|
| 198 | P_EVEN = 0x0C
|
---|
| 199 | P_MARK = 0x14
|
---|
| 200 | P_SPACE = 0x1C
|
---|
| 201 |
|
---|
| 202 | P_NONE = 0x00
|
---|
| 203 |
|
---|
| 204 | | Line Discipline:
|
---|
| 205 | | ----------------
|
---|
| 206 | L_NUL = 0x00 | No protocol
|
---|
| 207 | L_XON = 0x01 | XON/XOFF
|
---|
| 208 | L_RTS = 0x02 | RTS/CTS
|
---|
| 209 |
|
---|
| 210 | .page
|
---|
| 211 |
|
---|
| 212 | | I/O Buffer Sizes:
|
---|
| 213 | | -----------------
|
---|
| 214 | SR1IBS = 256
|
---|
| 215 | SR1OBS = 256
|
---|
| 216 | SR2IBS = 256
|
---|
| 217 | SR2OBS = 256
|
---|
| 218 |
|
---|
[f40a309] | 219 | .ifne BUCHLA
|
---|
[4f508e6] | 220 |
|
---|
| 221 | MC1IBS = 512
|
---|
| 222 | MC1OBS = 256
|
---|
| 223 | MC2IBS = 512
|
---|
| 224 | MC2OBS = 256
|
---|
| 225 |
|
---|
[f40a309] | 226 | .endc
|
---|
[4f508e6] | 227 |
|
---|
| 228 | | Line Disciplines:
|
---|
| 229 | | -----------------
|
---|
| 230 | SR1DISC = L_XON
|
---|
| 231 | SR2DISC = L_XON
|
---|
| 232 |
|
---|
[f40a309] | 233 | .ifne BUCHLA
|
---|
[4f508e6] | 234 |
|
---|
| 235 | MC1DISC = L_NUL
|
---|
| 236 | MC2DISC = L_NUL
|
---|
| 237 |
|
---|
[f40a309] | 238 | .endc
|
---|
[4f508e6] | 239 |
|
---|
| 240 | | CFR Setings:
|
---|
| 241 | | ------------
|
---|
| 242 | SR1CFR0 = BR_9600+NSB_1
|
---|
| 243 | SR1CFR1 = NDB_8+P_NONE
|
---|
| 244 | SR2CFR0 = BR_9600+NSB_1
|
---|
| 245 | SR2CFR1 = NDB_8+P_NONE
|
---|
| 246 |
|
---|
[f40a309] | 247 | .ifne BUCHLA
|
---|
[4f508e6] | 248 |
|
---|
| 249 | MC1CFR0 = BR_EXT+NSB_1
|
---|
| 250 | MC1CFR1 = NDB_8+P_NONE
|
---|
| 251 | MC2CFR0 = BR_EXT+NSB_1
|
---|
| 252 | MC2CFR1 = NDB_8+P_NONE
|
---|
| 253 |
|
---|
[f40a309] | 254 | .endc
|
---|
[4f508e6] | 255 |
|
---|
| 256 | .page
|
---|
| 257 |
|
---|
| 258 | | I/O Addresses:
|
---|
| 259 | | --------------
|
---|
| 260 | VSDDINIT = 0x200400 | VSDD initial register base address
|
---|
| 261 | VSDDDATA = 0x200000 | VSDD data segment base address
|
---|
| 262 |
|
---|
[f40a309] | 263 | .ifeq BUCHLA
|
---|
[4f508e6] | 264 |
|
---|
[f40a309] | 265 | .ifeq NASASIO
|
---|
[4f508e6] | 266 |
|
---|
| 267 | SR1ACIA = 0x3A8001 | Serial-1 ACIA base address (BUCHLA)
|
---|
| 268 | SR2ACIA = 0x3A8009 | Serial-2 ACIA base address
|
---|
| 269 |
|
---|
[f40a309] | 270 | .endc
|
---|
[4f508e6] | 271 |
|
---|
[f40a309] | 272 | .ifne NASASIO
|
---|
[4f508e6] | 273 |
|
---|
| 274 | SR1ACIA = 0x398001 | Serial-1 ACIA base address (NASA)
|
---|
| 275 | SR2ACIA = 0x398009 | Serial-2 ACIA base address
|
---|
| 276 |
|
---|
[f40a309] | 277 | .endc
|
---|
[4f508e6] | 278 |
|
---|
[f40a309] | 279 | .endc
|
---|
[4f508e6] | 280 |
|
---|
[f40a309] | 281 | .ifne BUCHLA
|
---|
[4f508e6] | 282 |
|
---|
| 283 | FPUBASE = 0x180000 | FPU base address
|
---|
| 284 | TIMER = 0x3A0001 | Timer base address
|
---|
| 285 | LCD = 0x3A4001 | LCD driver base address
|
---|
| 286 | SR1ACIA = 0x3A8001 | Serial-1 ACIA base address (BUCHLA)
|
---|
| 287 | SR2ACIA = 0x3A8009 | Serial-2 ACIA base address
|
---|
| 288 | MC1ACIA = 0x3AC001 | MIDI-1 ACIA base address
|
---|
| 289 | MC2ACIA = 0x3AC009 | MIDI-2 ACIA base address
|
---|
| 290 | FLOPPY = 0x3B0001 | Floppy controller base address
|
---|
| 291 | PSG = 0x3B4001 | Sound chip base address
|
---|
| 292 | LEDS = 0x3B8001 | LED driver base address
|
---|
| 293 | ANALOG = 0x3BC001 | Analog processor base address
|
---|
| 294 |
|
---|
| 295 | | FPU address offsets and misc. values
|
---|
| 296 |
|
---|
| 297 | FPU_CTL = 0x4000 | FPU control
|
---|
| 298 |
|
---|
| 299 | FPU_IN = 0x4000 | FPU input address
|
---|
| 300 | FPU_CLR = 0x6000 | FPU interrupt reset address
|
---|
| 301 |
|
---|
| 302 | FPU_RST = 0x0015 | FPU reset value
|
---|
| 303 |
|
---|
| 304 | | PSG address offsets
|
---|
| 305 |
|
---|
| 306 | PSG_RD = PSG | Read PSG data
|
---|
| 307 | PSG_WL = PSG | Write PSG address latch
|
---|
| 308 | PSG_WD = PSG+2 | Write PSG data
|
---|
| 309 |
|
---|
[f40a309] | 310 | .endc
|
---|
[4f508e6] | 311 |
|
---|
| 312 | | VSDD data structure offsets
|
---|
| 313 |
|
---|
| 314 | VSDD_REG = VSDDDATA | Registers
|
---|
| 315 | VSDD_AT = VSDDDATA+0x0100 | Access Table
|
---|
| 316 |
|
---|
[f40a309] | 317 | .ifne BUCHLA
|
---|
[4f508e6] | 318 |
|
---|
| 319 | | Timer registers
|
---|
| 320 |
|
---|
| 321 | TIME_CRX = TIMER | Control register 1 or 3
|
---|
| 322 | TIME_CR2 = TIMER+2 | Control register 2
|
---|
| 323 | TIME_T1H = TIMER+4 | Timer 1 high byte
|
---|
| 324 | TIME_T1L = TIMER+6 | Timer 1 low byte
|
---|
| 325 | TIME_T2H = TIMER+8 | Tiemr 2 high byte
|
---|
| 326 | TIME_T2L = TIMER+10 | Timer 2 low byte
|
---|
| 327 | TIME_T3H = TIMER+12 | Timer 3 high byte
|
---|
| 328 | TIME_T3L = TIMER+14 | Timer 3 low byte
|
---|
| 329 |
|
---|
[f40a309] | 330 | .endc
|
---|
[4f508e6] | 331 |
|
---|
| 332 | | ACIA Register offsets:
|
---|
| 333 | | ----------------------
|
---|
| 334 | ACIA_IER = 0 | ACIA IER offset
|
---|
| 335 | ACIA_ISR = 0 | ACIA ISR offset
|
---|
| 336 | ACIA_CSR = 2 | ACIA CSR offset
|
---|
| 337 | ACIA_CFR = 2 | ACIA CFR offset
|
---|
| 338 | ACIA_TBR = 4 | ACIA TBR offset
|
---|
| 339 | ACIA_TDR = 6 | ACIA TDR offset
|
---|
| 340 | ACIA_RDR = 6 | ACIA RDR offset
|
---|
| 341 |
|
---|
| 342 | .page
|
---|
| 343 |
|
---|
[f40a309] | 344 | .ifne BUCHLA
|
---|
[4f508e6] | 345 |
|
---|
| 346 | | Floppy register offsets:
|
---|
| 347 | | ------------------------
|
---|
| 348 | DSKCMD = 0 | Command / status
|
---|
| 349 | DSKTRK = 2 | Track
|
---|
| 350 | DSKSEC = 4 | Sector
|
---|
| 351 | DSKDAT = 6 | Data
|
---|
| 352 |
|
---|
| 353 | | Miscellaneous equates:
|
---|
| 354 | | ----------------------
|
---|
| 355 | FL_NC = 0x02 | Non-compensated R/W/F bit
|
---|
| 356 |
|
---|
| 357 | APISIZE = 256 | Analog processor buffer size
|
---|
| 358 |
|
---|
| 359 | | Floppy commands:
|
---|
| 360 | | ----------------
|
---|
| 361 | FL_RS = 0x80 | Read sector
|
---|
| 362 | FL_RM = 0x90 | Read multiple
|
---|
| 363 | FL_WS = 0xA0 | Write sector
|
---|
| 364 | FL_WT = 0xF0 | Write track (format)
|
---|
| 365 | FL_FR = 0xD0 | Force reset
|
---|
| 366 | FL_SK = 0x10 | Seek
|
---|
| 367 | FL_SV = 0x14 | Seek w/verify
|
---|
| 368 |
|
---|
[f40a309] | 369 | .endc
|
---|
[4f508e6] | 370 |
|
---|
| 371 | .page
|
---|
| 372 |
|
---|
| 373 | | iorec structure definitions:
|
---|
| 374 | | ----------------------------
|
---|
| 375 | IORECLN = 40 | Length of an iorec structure
|
---|
| 376 |
|
---|
| 377 | ibuf = 0 | Input buffer base address
|
---|
| 378 | ibufsize = 4 | Input buffer size (bytes)
|
---|
| 379 | ibufhd = 6 | Input buffer head index
|
---|
| 380 | ibuftl = 8 | Input buffer tail index
|
---|
| 381 | ibuflow = 10 | Input buffer low water mark
|
---|
| 382 | ibufhi = 12 | Input buffer high water mark
|
---|
| 383 | obuf = 14 | Output buffer base address
|
---|
| 384 | obufsize = 18 | Output buffer size (bytes)
|
---|
| 385 | obufhd = 20 | Output buffer head index
|
---|
| 386 | obuftl = 22 | Output buffer tail index
|
---|
| 387 | obuflow = 24 | Output buffer low water mark
|
---|
| 388 | obufhi = 26 | Output buffer high water mark
|
---|
| 389 | cfr0 = 28 | ACIA CFR, MS bit = 0
|
---|
| 390 | cfr1 = 29 | ACIA CFR, MS bit = 1
|
---|
| 391 | flagxon = 30 | XON flag (non-zero = XOFF sent)
|
---|
| 392 | flagxoff = 31 | XOFF flag (non-zero = active)
|
---|
| 393 | linedisc = 32 | Line discipline flags
|
---|
| 394 | erbyte = 33 | Last error byte
|
---|
| 395 | isr = 34 | ACIA ISR on interrupt
|
---|
| 396 | csr = 35 | ACIA CSR on interrupt
|
---|
| 397 | errct = 36 | Error count (FRM/OVR/BRK)
|
---|
| 398 | ibfct = 38 | Input buffer full count
|
---|
| 399 |
|
---|
| 400 | .page
|
---|
| 401 |
|
---|
| 402 | | Error codes:
|
---|
| 403 | | ------------
|
---|
| 404 | ERR01 = -1 | All purpose error
|
---|
| 405 | ERR02 = -2 | Drive not ready
|
---|
| 406 | ERR03 = -3 | Unknown command
|
---|
| 407 | ERR04 = -4 | CRC Error
|
---|
| 408 | ERR05 = -5 | Invalid request
|
---|
| 409 | ERR06 = -6 | Seek error
|
---|
| 410 | ERR07 = -7 | Unknown media
|
---|
| 411 | ERR08 = -8 | Sector not found
|
---|
| 412 | ERR09 = -9 | End of media (out of paper)
|
---|
| 413 | ERR10 = -10 | Write fault
|
---|
| 414 | ERR11 = -11 | Read fault
|
---|
| 415 | ERR12 = -12 | General mishap
|
---|
| 416 | ERR13 = -13 | Write protected
|
---|
| 417 | ERR14 = -14 | Media changed
|
---|
| 418 | ERR15 = -15 | Unknown device
|
---|
| 419 | ERR16 = -16 | Bad sectors
|
---|
| 420 | ERR17 = -17 | Insert disk
|
---|
| 421 |
|
---|
| 422 | .page
|
---|
| 423 |
|
---|
| 424 | | In the Beginning...
|
---|
| 425 | | -------------------
|
---|
| 426 |
|
---|
| 427 | | Low PROM -- Contains the initial sp (unused), and the initial pc,
|
---|
| 428 | | as well as some version and creation date stuff and a copyright message,
|
---|
| 429 | | just to be thorough about it.
|
---|
| 430 |
|
---|
| 431 | begin: bra.s biosinit | Jump to bios init
|
---|
| 432 |
|
---|
| 433 | vermsg: dc.b VM1,VM2 | Version number
|
---|
| 434 |
|
---|
| 435 | dc.l biosinit | Reset address (bios init)
|
---|
| 436 |
|
---|
| 437 | created: dc.l VDATE | Creation date
|
---|
| 438 |
|
---|
| 439 | copyrite: dc.b "{Copyright 1988 by " | Copyright message
|
---|
| 440 | dc.b "D.N. Lynx Crowe}",0
|
---|
| 441 |
|
---|
| 442 | dc.l 0 | Some padding
|
---|
| 443 |
|
---|
[f40a309] | 444 | .page
|
---|
| 445 | .even
|
---|
[4f508e6] | 446 |
|
---|
| 447 | | biosinit -- Setup the defaults for the BIOS
|
---|
| 448 | | -------- -------------------------------
|
---|
| 449 | biosinit: move.w #0x2700,sr | Set sup mode, no interrupts
|
---|
| 450 | move.l #SSTACK,a7 | Setup supervisor stack pointer
|
---|
| 451 |
|
---|
| 452 | lea badtrap,a1 | Set default trap vector
|
---|
| 453 | adda.l #0x02000000,a1 | ... with trap # in 31..24
|
---|
| 454 | lea 8,a0 | ... for traps 2..255
|
---|
[f40a309] | 455 | move.l #253,d1
|
---|
[4f508e6] | 456 |
|
---|
| 457 | binit1: move.l a1,(a0)+ | Store trap vector
|
---|
| 458 | adda.l #0x01000000,a1 | Increment trap #
|
---|
| 459 | dbf d1,binit1 | Loop until done
|
---|
| 460 |
|
---|
| 461 | lea biosram,a0 | Clear BIOS ram ...
|
---|
| 462 | lea SSTACK-2,a1 | ... from biosram to SSTACK-1
|
---|
| 463 |
|
---|
| 464 | binit2: move.w #0,(a0)+ | Zero a word
|
---|
| 465 | cmpa.l a0,a1 | Last one ?
|
---|
| 466 | bne binit2 | Loop if not
|
---|
| 467 |
|
---|
| 468 | move.l #rsarea,savptr | Setup pointer to register area
|
---|
| 469 | move.l #RSMAGIC,_rsflag | Set magic in _rsflag
|
---|
| 470 |
|
---|
| 471 | move.l #nullrts,timevec | Set timer interrupt vector
|
---|
| 472 | move.l #nullrts,critvec | Set critical error vector
|
---|
| 473 | move.l #nullrts,termvec | Set process terminate vector
|
---|
| 474 | move.l #nullrts,resvec3 | Set software vector 3
|
---|
| 475 | move.l #nullrts,resvec4 | Set software vector 4
|
---|
| 476 | move.l #nullrts,resvec5 | Set software vector 5
|
---|
| 477 | move.l #nullrts,resvec6 | Set software vector 6
|
---|
| 478 | move.l #nullrts,resvec7 | Set software vector 7
|
---|
| 479 |
|
---|
| 480 | move.l #hardhlt,0x0008 | Set bus error vector
|
---|
| 481 | move.l #nullrte,0x0014 | Set divide error vector
|
---|
| 482 | move.l #nullrte,0x0018 | Set CHK vector
|
---|
| 483 | move.l #nullrte,0x001C | Set TRAPV vector
|
---|
| 484 | move.l #nullrte,0x0024 | Set trace vector
|
---|
| 485 |
|
---|
| 486 | move.l #nullrte,0x0030 | Set reserved vector 12
|
---|
| 487 | move.l #nullrte,0x0034 | Set reserved vector 13
|
---|
| 488 | move.l #nullrte,0x0038 | Set reserved vector 14
|
---|
| 489 |
|
---|
| 490 | move.l #nullrte,0x003C | Set uninitialized int. vector
|
---|
| 491 |
|
---|
| 492 | move.l #nullrte,0x0040 | Set reserved vector 16
|
---|
| 493 | move.l #nullrte,0x0044 | Set reserved vector 17
|
---|
| 494 | move.l #nullrte,0x0048 | Set reserved vector 18
|
---|
| 495 | move.l #nullrte,0x004C | Set reserved vector 19
|
---|
| 496 | move.l #nullrte,0x0050 | Set reserved vector 20
|
---|
| 497 | move.l #nullrte,0x0054 | Set reserved vector 21
|
---|
| 498 | move.l #nullrte,0x0058 | Set reserved vector 22
|
---|
| 499 | move.l #nullrte,0x005C | Set reserved vector 23
|
---|
| 500 |
|
---|
| 501 | move.l #nullrte,0x0060 | Set spurious int. vector
|
---|
| 502 |
|
---|
| 503 | move.l #serintr,0x0074 | Set ACIA interrupt vector
|
---|
| 504 | move.l #nullrte,0x0078 | Set level 6 vector
|
---|
| 505 | move.l #nullrte,0x007C | Set level 7 vector
|
---|
| 506 |
|
---|
| 507 | move.l #trap13,0x00B4 | Set trap13 vector
|
---|
| 508 | move.l #trap14,0x00B8 | Set trap14 vector
|
---|
| 509 |
|
---|
| 510 | .page
|
---|
| 511 |
|
---|
[f40a309] | 512 | .ifne BUCHLA
|
---|
[4f508e6] | 513 |
|
---|
| 514 | move.l #nullfpu,0x0068 | Set FPU interrupt vector
|
---|
| 515 | move.l #api_int,0x006C | Set analog trap vector
|
---|
| 516 | move.l #timeint,0x0070 | Set timer trap vector
|
---|
| 517 |
|
---|
| 518 | move.l #_hdvini,hdv_init | Set disk init vector
|
---|
| 519 | move.l #getbpb,hdv_bpb | Set get BPB vector
|
---|
| 520 | move.l #rwabs,hdv_rw | Set disk I/O vector
|
---|
| 521 | move.l #bootload,hdv_boot | Setup boot load vector
|
---|
| 522 | move.l #mediach,hdv_mchg | Setup media change vector
|
---|
| 523 |
|
---|
| 524 | move.w #0xFFFF,fverify | Set read after write flag
|
---|
| 525 | move.w #FL_SKR,seekrate | Set default seek rate
|
---|
| 526 | move.w #0xFFFF,booted | Say we're not booted yet
|
---|
| 527 | move.l #buffer,dskbufp | Setup default disk buffer
|
---|
| 528 |
|
---|
| 529 | .page
|
---|
| 530 |
|
---|
| 531 | move.b #7,PSG_WL | Select PSG R7
|
---|
| 532 | move.b #0x80,PSG_WD | Write 0x80 (port B = output)
|
---|
| 533 | move.b #15,PSG_WL | Select PSG R15
|
---|
| 534 | move.b #0x00,PSG_WD | Write 0x00 (sync enable)
|
---|
| 535 |
|
---|
| 536 | move.b #0x00,TIME_T1H | Setup timer 1 (PLL)
|
---|
| 537 | move.b #0x1F,TIME_T1L | ... for divide by 64
|
---|
| 538 | move.b #0x0C,TIME_T2H | Setup timer 2 (FC)
|
---|
| 539 | move.b #0x7F,TIME_T2L | ... for divide by 3200
|
---|
| 540 | move.b #0x03,TIME_T3H | Setup timer 3 (RTC)
|
---|
| 541 | move.b #0x20,TIME_T3L | ... for 1Ms interval
|
---|
| 542 | move.b #0x42,TIME_CRX | Setup CR3
|
---|
| 543 | move.b #0x41,TIME_CR2 | Setup CR2
|
---|
| 544 | move.b #0x81,TIME_CRX | Setup CR1
|
---|
| 545 | move.b #0x80,TIME_CRX | Start the timers
|
---|
| 546 |
|
---|
[f40a309] | 547 | .endc
|
---|
[4f508e6] | 548 |
|
---|
| 549 | lea sr1iorec,a0 | Serial-1 iorec address to a0
|
---|
| 550 | lea SR1ACIA,a1 | Serial-1 ACIA address to a1
|
---|
| 551 | lea sr1dflt,a2 | Serial-1 dflt table addr to a2
|
---|
| 552 | bsr.w aciainit | Go initialize the port
|
---|
| 553 |
|
---|
| 554 | lea sr2iorec,a0 | Serial-2 iorec address to a0
|
---|
| 555 | lea SR2ACIA,a1 | Serial-2 ACIA address to a1
|
---|
| 556 | lea sr2dflt,a2 | Serial-2 dflt table addr to a2
|
---|
| 557 | bsr.w aciainit | Go initialize the port
|
---|
| 558 |
|
---|
[f40a309] | 559 | .ifne BUCHLA
|
---|
[4f508e6] | 560 |
|
---|
| 561 | lea mc1iorec,a0 | MIDI-1 iorec address to a0
|
---|
| 562 | lea MC1ACIA,a1 | MIDI-1 ACIA address to a1
|
---|
| 563 | lea mc1dflt,a2 | MIDI-1 dflt table addr to a2
|
---|
| 564 | bsr.w aciainit | Go initialize the port
|
---|
| 565 |
|
---|
| 566 | lea mc2iorec,a0 | MIDI-2 iorec address to a0
|
---|
| 567 | lea MC2ACIA,a1 | MIDI-2 ACIA address to a1
|
---|
| 568 | lea mc2dflt,a2 | MIDI-2 dflt table addr to a2
|
---|
| 569 | bsr.w aciainit | Go initialize the port
|
---|
| 570 |
|
---|
| 571 | .page
|
---|
| 572 |
|
---|
| 573 | lea VSDDINIT,a1 | Setup to load VSDD regs
|
---|
| 574 | lea vsddtab,a0 | ... from vsddtab
|
---|
| 575 | move.w #15,d0 | ... all 16 registers
|
---|
| 576 |
|
---|
| 577 | vsddinit: move.w (a0)+,(a1)+ | Load the VSDD registers
|
---|
[f40a309] | 578 | btst.l #0,d0
|
---|
| 579 | btst.l #0,d0
|
---|
| 580 | btst.l #0,d0
|
---|
| 581 | dbf d0,vsddinit
|
---|
[4f508e6] | 582 |
|
---|
| 583 | move.w vsddit02,VSDDINIT | Enable the video
|
---|
| 584 |
|
---|
| 585 | move.l #api_fum,api_fi | Clear analog processor fifo
|
---|
| 586 | move.l #api_fum,api_fo | ...
|
---|
| 587 |
|
---|
| 588 | move.w #23,d0 | Setup to clear key LEDs
|
---|
| 589 | move.b #0x80,d1 | ...
|
---|
| 590 |
|
---|
| 591 | ledclear: move.b d1,LEDS | Clear a LED
|
---|
| 592 | addq.b #1,d1 | Increment LED number
|
---|
| 593 | dbra d0,ledclear | Loop until all are done
|
---|
| 594 |
|
---|
| 595 | move.w #7,d0 | Setup to clear pot LEDs
|
---|
| 596 | move.b #0x18,d1 | ...
|
---|
| 597 |
|
---|
| 598 | ledclr2: move.b d1,LEDS | Clear a LED
|
---|
| 599 | addq.b #1,d1 | Increment LED number
|
---|
| 600 | dbra d0,ledclr2 | Loop until all are done
|
---|
| 601 |
|
---|
| 602 | clr.w fc_sw | Stop the frame clock
|
---|
| 603 | clr.l fc_val | ... and reset it
|
---|
| 604 |
|
---|
| 605 | .page
|
---|
| 606 |
|
---|
| 607 | lea FPUBASE+FPU_CTL,a0 | Point at FPU master level
|
---|
| 608 | move.w #0x0000,0x08(a0) | Set CV1 to 0
|
---|
| 609 | addq.w #1,d0 | Delay
|
---|
| 610 | addq.w #1,d0 | ...
|
---|
| 611 | move.w #0x0000,0x0A(a0) | Set SF1 to 0
|
---|
| 612 | addq.w #1,d0 | Delay
|
---|
| 613 | addq.w #1,d0 | ...
|
---|
| 614 | move.w #0x0000,0x0C(a0) | Set CV2 to 0
|
---|
| 615 | addq.w #1,d0 | Delay
|
---|
| 616 | addq.w #1,d0 | ...
|
---|
| 617 | move.w #0x0000,0x0E(a0) | Set SF2 to 0
|
---|
| 618 | addq.w #1,d0 | Delay
|
---|
| 619 | addq.w #1,d0 | ...
|
---|
| 620 | move.w #0x0000,0x10(a0) | Set CV3 to 0
|
---|
| 621 | addq.w #1,d0 | Delay
|
---|
| 622 | addq.w #1,d0 | ...
|
---|
| 623 | move.w #0x0000,0x12(a0) | Set SF3 to 0
|
---|
| 624 | addq.w #1,d0 | Delay
|
---|
| 625 | addq.w #1,d0 | ...
|
---|
| 626 | move.w #0x8300,0x02(a0) | Set new value '10' to -10.00
|
---|
| 627 | addq.w #1,d0 | Delay
|
---|
| 628 | addq.w #1,d0 | ...
|
---|
| 629 | move.w #0x8300,0x1C(a0) | Set new value '01' to -10.00
|
---|
| 630 | addq.w #1,d0 | Delay
|
---|
| 631 | addq.w #1,d0 | ...
|
---|
| 632 | move.w #0x0001,0x16(a0) | Set exponent for shortest time
|
---|
| 633 | addq.w #1,d0 | Delay
|
---|
| 634 | addq.w #1,d0 | ...
|
---|
| 635 | move.w #0xFFF0,0x14(a0) | Set mantissa for shortest time
|
---|
| 636 | addq.w #1,d0 | Delay
|
---|
| 637 | addq.w #1,d0 | ...
|
---|
| 638 | move.w #0x0005,0x00(a0) | Send control word to FPU
|
---|
| 639 |
|
---|
[f40a309] | 640 | .endc
|
---|
[4f508e6] | 641 |
|
---|
| 642 | .page
|
---|
| 643 |
|
---|
| 644 | move.w #INITIPL,sr | Enable interrupts
|
---|
| 645 | lea basepage,a1 | Pass start_ a pseudo base page
|
---|
| 646 | move.l #_errno,p_bbase(a1) | ...
|
---|
| 647 | clr.l p_blen(a1) | ...
|
---|
| 648 | move.l a1,-(a7) | ...
|
---|
| 649 | jsr start_ | Go start ROMP (we assume ...)
|
---|
| 650 |
|
---|
| 651 | jmp biosinit | Just in case we return ...
|
---|
| 652 |
|
---|
| 653 | .page
|
---|
| 654 |
|
---|
[f40a309] | 655 | .ifne BUCHLA
|
---|
[4f508e6] | 656 |
|
---|
| 657 | | nullfpu -- Null FPU trap handler
|
---|
| 658 | | ------- ---------------------
|
---|
| 659 | nullfpu: movem.l d0-d0/a0-a0,-(a7) | Save registers
|
---|
| 660 | movea.l #FPUBASE,a0 | Setup FPU base address in a0
|
---|
| 661 | move.w FPU_IN(a0),d0 | Read FPU interrupt port
|
---|
| 662 | andi.l #0x000000FF,d0 | Mask for voice & parameter
|
---|
| 663 | lsl.l #5,d0 | Shift for word offset
|
---|
| 664 | addi.l #FPU_CTL,d0 | Add FPU control offset
|
---|
| 665 | move.w #FPU_RST,0(a0,d0.L) | Reset the function
|
---|
| 666 | clr.w FPU_CLR(a0) | Clear the interrupt
|
---|
| 667 | movem.l (a7)+,d0-d0/a0-a0 | Restore registers
|
---|
| 668 | rte | Return to interrupted code
|
---|
| 669 |
|
---|
[f40a309] | 670 | .endc
|
---|
[4f508e6] | 671 |
|
---|
| 672 | .page
|
---|
| 673 |
|
---|
| 674 | | hardhlt -- Bus error trap handler
|
---|
| 675 | | ------- ----------------------
|
---|
| 676 | hardhlt: stop #0x2700 | stop dead -- system is AFU
|
---|
| 677 | bra hardhlt | ...
|
---|
| 678 |
|
---|
| 679 | | badtrap -- Bad trap handler
|
---|
| 680 | | ------- ----------------
|
---|
| 681 | badtrap: move.w (a7)+,_crshsr | Get crash SR
|
---|
| 682 | move.l (a7)+,_crshpc | Get crash PC
|
---|
| 683 | move.l a7,_crshsp | Get crash SP
|
---|
| 684 | bsr badtr1 | Get TRAP PC with vector number
|
---|
[f40a309] | 685 | nop
|
---|
[4f508e6] | 686 |
|
---|
| 687 | badtr1: move.l (a7)+,_crshvc | Save for analysis of vector #
|
---|
| 688 | movem.l d0-d7/a0-a7,_crshrg | Save crash registers
|
---|
| 689 | move.l usp,a0 | Preserve crash USP
|
---|
| 690 | move.l a0,_crshus | ...
|
---|
| 691 | move.l a7,d0 | Get SP
|
---|
| 692 | andi.l #0xFFFFFFFE,d0 | ... make sure it's even
|
---|
| 693 | movea.l d0,a1 | ...
|
---|
| 694 | move.w #15,d0 | Save top 16 words
|
---|
| 695 | lea _crshst,a0 | ... of crash stack in _crshst
|
---|
| 696 |
|
---|
| 697 | badtr2: move.w (a1)+,(a0)+ | Save a stack value
|
---|
| 698 | dbf d0,badtr2 | Loop until all are saved
|
---|
| 699 |
|
---|
| 700 | clr.l d0 | Get TRAP number
|
---|
| 701 | move.b _crshvc,d0 | ... as LS byte of d0
|
---|
| 702 | move.l _crshpc,a0 | Save crash PC in a0
|
---|
| 703 | move.w #0xFFFF,_wzcrsh | Indicate we crashed
|
---|
| 704 | move.l #rsarea,savptr | Restore system save pointer
|
---|
| 705 | move.l #SSTACK,a7 | Reset the stack pointer
|
---|
| 706 | move.l #RSMAGIC,_rsflag | ... and the stack sentinel
|
---|
| 707 | trap #15 | TRAP to ROMP
|
---|
| 708 |
|
---|
| 709 | jmp biosinit | Recover with a cold start
|
---|
| 710 |
|
---|
| 711 | .page
|
---|
| 712 |
|
---|
[f40a309] | 713 | .ifne BUCHLA
|
---|
[4f508e6] | 714 |
|
---|
| 715 | | timeint -- Timer interrupt handler
|
---|
| 716 | | ------- -----------------------
|
---|
| 717 | timeint: movem.l d0-d7/a0-a6,-(a7) | Save registers
|
---|
| 718 | move.b TIME_CR2,d0 | Get timer interrupt status
|
---|
| 719 | btst.l #2,d0 | Check timer 3 status
|
---|
| 720 | beq tmi02 | Jump if not active
|
---|
| 721 |
|
---|
| 722 | move.b TIME_T3H,d1 | Read timer 1 count
|
---|
| 723 | lsl.l #8,d1 | ...
|
---|
| 724 | move.b TIME_T3L,d1 | ...
|
---|
| 725 | move.w d1,t3count | ... and save it
|
---|
| 726 |
|
---|
| 727 | addq.l #1,_hz_1k | Update 1ms clock (1 KHz)
|
---|
| 728 |
|
---|
| 729 | move.w tdiv1,d1 | Update divider
|
---|
| 730 | addq.w #1,d1 | ...
|
---|
| 731 | move.w d1,tdiv1 | ...
|
---|
| 732 |
|
---|
| 733 | cmpi.w #5,d1 | Do we need to update _hz_200 ?
|
---|
| 734 | blt tmi02 | Jump if not
|
---|
| 735 |
|
---|
| 736 | addq.l #1,_hz_200 | Update 5ms clock (200 Hz)
|
---|
| 737 |
|
---|
| 738 | move.w tdiv2,d1 | Update divider
|
---|
| 739 | addq.w #1,d1 | ...
|
---|
| 740 | move.w d1,tdiv2 | ...
|
---|
| 741 |
|
---|
| 742 | cmpi.w #4,d1 | Do we need to update frclock ?
|
---|
| 743 | blt tmi01 | Jump if not
|
---|
| 744 |
|
---|
| 745 | addq.l #1,frclock | Update 20 Ms clock (50 Hz)
|
---|
| 746 | tst.w flock | See if floppy is active
|
---|
| 747 | bne tmi00 | Don't call flopvbl if so
|
---|
| 748 |
|
---|
| 749 | bsr flopvbl | Check on the floppy
|
---|
| 750 |
|
---|
| 751 | tmi00: move.w #0,tdiv2 | Reset tdiv2
|
---|
| 752 |
|
---|
| 753 | tmi01: move.w #0,tdiv1 | Reset tdiv1
|
---|
| 754 |
|
---|
| 755 | .page
|
---|
| 756 |
|
---|
| 757 | tmi02: btst.l #0,d0 | Check timer 1 int
|
---|
| 758 | beq tmi03 | Jump if not set
|
---|
| 759 |
|
---|
| 760 | move.b TIME_T1H,d1 | Read timer 1 to clear int.
|
---|
| 761 | lsl.l #8,d1 | ...
|
---|
| 762 | move.b TIME_T1L,d1 | ...
|
---|
| 763 | move.w d1,t1count | ... and save the count
|
---|
| 764 |
|
---|
| 765 | tmi03: btst.l #1,d0 | Check for timer 2 int.
|
---|
| 766 | beq tmi04 | Jump if not set
|
---|
| 767 |
|
---|
| 768 | move.b TIME_T2H,d1 | Read timer 2 to clear int.
|
---|
| 769 | lsl.l #8,d1 | ...
|
---|
| 770 | move.b TIME_T2L,d1 | ...
|
---|
| 771 | move.w d1,t2count | ... and save the count
|
---|
| 772 |
|
---|
| 773 | tst.w fc_sw | Should we update the frame ?
|
---|
| 774 | beq tmi04 | Jump if not
|
---|
| 775 |
|
---|
| 776 | bmi tmi05 | Jump if we count down
|
---|
| 777 |
|
---|
| 778 | move.l fc_val,d0 | Get the frame count
|
---|
| 779 | cmp.l #FCMAX,d0 | See it we've topped out
|
---|
| 780 | bge tmi06 | Jump if limit was hit
|
---|
| 781 |
|
---|
| 782 | addq.l #1,d0 | Count up 1 frame
|
---|
| 783 | move.l d0,fc_val | Store updated frame count
|
---|
| 784 | bra tmi04 | Done
|
---|
| 785 |
|
---|
| 786 | tmi06: move.l #FCMAX,fc_val | Force hard limit, just in case
|
---|
| 787 | bra tmi04 | Done
|
---|
| 788 |
|
---|
| 789 | tmi05: move.l fc_val,d0 | Get the frame count
|
---|
| 790 | beq tmi04 | Done if already zero
|
---|
| 791 |
|
---|
| 792 | subq.l #1,d0 | Count down 1 frame
|
---|
| 793 | move.l d0,fc_val | Store udpated frame count
|
---|
| 794 |
|
---|
| 795 | movea.l timevec,a0 | Do RTC vector
|
---|
| 796 | move.w #1,-(a7) | ... pass 1 msec on stack
|
---|
| 797 | jsr (a0) | ...
|
---|
| 798 | addq.l #4,a7 | ...
|
---|
| 799 |
|
---|
| 800 | tmi04: movem.l (a7)+,d0-d7/a0-a6 | Restore registers
|
---|
| 801 | rte | Return to interrupted code
|
---|
| 802 |
|
---|
[f40a309] | 803 | .endc
|
---|
[4f508e6] | 804 |
|
---|
| 805 | .page
|
---|
| 806 |
|
---|
| 807 | | trap14 -- Extended BIOS entry point
|
---|
| 808 | | ------ -------------------------
|
---|
| 809 | trap14: lea t14tab,a0 | Setup trap 14 table address
|
---|
| 810 | bra trapent | Go process trap
|
---|
| 811 |
|
---|
| 812 | | trap13 -- Main BIOS entry point
|
---|
| 813 | | ------ ---------------------
|
---|
| 814 | trap13: lea t13tab,a0 | Setup trap 13 table address
|
---|
| 815 |
|
---|
| 816 | trapent: move.l savptr,a1 | Get save area pointer
|
---|
| 817 | move.w (a7)+,d0 | Status register to D0
|
---|
| 818 | move.w d0,-(a1) | Save in save area
|
---|
| 819 | move.l (a7)+,-(a1) | Stash PC in save area
|
---|
| 820 | movem.l d3-d7/a3-a7,-(a1) | Save parameter register
|
---|
| 821 | move.l a1,savptr | Update save pointer
|
---|
| 822 | btst #13,d0 | Were we in sup. mode ?
|
---|
| 823 | bne trwzsup | Jump if so
|
---|
| 824 |
|
---|
| 825 | move.l usp,a7 | Move user sp to stack ptr.
|
---|
| 826 |
|
---|
| 827 | trwzsup: move.w (a7)+,d0 | Get function number from stack
|
---|
| 828 | cmp.w (a0)+,d0 | Check against limit
|
---|
| 829 | bge trpexit | Jump if it's invalid
|
---|
| 830 |
|
---|
| 831 | lsl.w #2,d0 | Multiply by 4 for use as index
|
---|
| 832 | move.l 0(a0,d0),d0 | Get routine address
|
---|
| 833 | move.l d0,a0 | ... into a0
|
---|
| 834 | bpl trpnind | Jump if it's indirect
|
---|
| 835 |
|
---|
| 836 | move.l (a0),a0 | Use indirect value
|
---|
| 837 |
|
---|
| 838 | trpnind: sub.l a5,a5 | Clear a5
|
---|
| 839 | jsr (a0) | Execute the routine
|
---|
| 840 |
|
---|
| 841 | trpexit: move.l savptr,a1 | Get SAVPTR into a1
|
---|
| 842 | movem.l (a1)+,d3-d7/a3-a7 | Restore registers
|
---|
| 843 | move.l (a1)+,-(a7) | Push return onto stack
|
---|
| 844 | move.w (a1)+,-(a7) | Push status onto stack
|
---|
| 845 | move.l a1,savptr | Update SAVPTR
|
---|
| 846 |
|
---|
| 847 | | nullrte -- null rte
|
---|
| 848 | | ------- --------
|
---|
| 849 | nullrte: rte | Return to interrupted code
|
---|
| 850 |
|
---|
| 851 | | nullrts -- null return
|
---|
| 852 | | ------- -----------
|
---|
| 853 | nullrts: rts | Just return to the caller
|
---|
| 854 |
|
---|
| 855 | .page
|
---|
| 856 |
|
---|
| 857 | | bconstat -- Get character device input status
|
---|
| 858 | | -------- ---------------------------------
|
---|
| 859 | bconstat: lea cdt01,a0 | Point at status table
|
---|
| 860 | bra condisp | Jump to dispatcher
|
---|
| 861 |
|
---|
| 862 | | bconin -- Get input from character device
|
---|
| 863 | | ------ -------------------------------
|
---|
| 864 | bconin: lea cdt02,a0 | Point at input table
|
---|
| 865 | bra condisp | Jump to dispatcher
|
---|
| 866 |
|
---|
| 867 | | bconout -- Output to character device
|
---|
| 868 | | ------- --------------------------
|
---|
| 869 | bconout: lea cdt03,a0 | Point at output table
|
---|
| 870 | bra condisp | Jump to dispatcher
|
---|
| 871 |
|
---|
| 872 | | bcostat -- Get character device output status
|
---|
| 873 | | ------- ----------------------------------
|
---|
| 874 | bcostat: lea cdt04,a0 | Point at status table
|
---|
| 875 |
|
---|
| 876 | | condisp -- Character device function dispatcher
|
---|
| 877 | | ------- ------------------------------------
|
---|
| 878 | condisp: move.w 4(a7),d0 | Get device number
|
---|
| 879 | lsl.w #2,d0 | ... times 4 for pointer
|
---|
| 880 | move.l 0(a0,d0),a0 | Get routine address
|
---|
| 881 | jmp (a0) | Jump to it
|
---|
| 882 |
|
---|
| 883 | .page
|
---|
| 884 |
|
---|
| 885 | | sr1ist -- Check CON (Serial-1) input buffer status
|
---|
| 886 | | ------ ----------------------------------------
|
---|
| 887 | sr1ist: lea sr1iorec,a0 | Address of iorec to a0
|
---|
| 888 | lea SR1ACIA,a1 | Address of ACIA to a1
|
---|
| 889 | bra chkist | Go check buffer status
|
---|
| 890 |
|
---|
| 891 | | sr2ist -- Check AUX (Serial-2) input buffer status
|
---|
| 892 | | ------ ----------------------------------------
|
---|
| 893 | sr2ist: lea sr2iorec,a0 | Address of iorec to a0
|
---|
| 894 | lea SR2ACIA,a1 | Address of ACIA to a1
|
---|
| 895 |
|
---|
[f40a309] | 896 | .ifne BUCHLA
|
---|
[4f508e6] | 897 |
|
---|
| 898 | bra chkist | Go check buffer status
|
---|
| 899 |
|
---|
| 900 | | mc1ist -- Check MC1 (MIDI-1) input buffer status
|
---|
| 901 | | ------ --------------------------------------
|
---|
| 902 | mc1ist: lea mc1iorec,a0 | Address of iorec to a0
|
---|
| 903 | lea MC1ACIA,a1 | Address of ACIA to a1
|
---|
| 904 | bra chkist | Go check buffer status
|
---|
| 905 |
|
---|
| 906 | | mc2ist -- Check MC2 (MIDI-2) input buffer status
|
---|
| 907 | | ------ --------------------------------------
|
---|
| 908 | mc2ist: lea mc2iorec,a0 | Address of iorec to a0
|
---|
| 909 | lea MC2ACIA,a1 | Address of ACIA to a1
|
---|
| 910 |
|
---|
[f40a309] | 911 | .endc
|
---|
[4f508e6] | 912 |
|
---|
| 913 | | chkist -- Check input buffer status
|
---|
| 914 | | ------ -------------------------
|
---|
| 915 | chkist: moveq.l #-1,d0 | Default to "Input available"
|
---|
| 916 | lea ibufhd(a0),a2 | Head index to a2
|
---|
| 917 | lea ibuftl(a0),a3 | Tail index to a3
|
---|
| 918 | cmpm.w (a3)+,(a2)+ | Buffer clear ?
|
---|
| 919 | bne chkist1 | Jump if not
|
---|
| 920 |
|
---|
| 921 | moveq.l #0,d0 | Set to "Buffer empty"
|
---|
| 922 |
|
---|
| 923 | chkist1: rts | Return to caller
|
---|
| 924 |
|
---|
| 925 | .page
|
---|
| 926 |
|
---|
| 927 | | sr1ost -- Check CON (Serial-1) output buffer status
|
---|
| 928 | | ------ -----------------------------------------
|
---|
| 929 | sr1ost: lea sr1iorec,a0 | Address of iorec to a0
|
---|
| 930 | bra chkost | Go check buffer status
|
---|
| 931 |
|
---|
| 932 | | sr2ost -- Check AUX (Serial-2) output buffer status
|
---|
| 933 | | ------ -----------------------------------------
|
---|
| 934 | sr2ost: lea sr2iorec,a0 | Address of iorec to a0
|
---|
| 935 |
|
---|
[f40a309] | 936 | .ifne BUCHLA
|
---|
[4f508e6] | 937 |
|
---|
| 938 | bra chkost | Go check buffer status
|
---|
| 939 |
|
---|
| 940 | | mc1ost -- Check MC1 (MIDI-1) output buffer status
|
---|
| 941 | | ------ ---------------------------------------
|
---|
| 942 | mc1ost: lea mc1iorec,a0 | Address of iorec to a0
|
---|
| 943 | bra chkost | Go check buffer status
|
---|
| 944 |
|
---|
| 945 | | mc2ost -- Check MC2 (MIDI-2) output buffer status
|
---|
| 946 | | ------ ---------------------------------------
|
---|
| 947 | mc2ost: lea mc2iorec,a0 | Address of iorec to a0
|
---|
| 948 |
|
---|
[f40a309] | 949 | .endc
|
---|
[4f508e6] | 950 |
|
---|
| 951 | | chkost -- Check output buffer status
|
---|
| 952 | | ------ --------------------------
|
---|
| 953 | chkost: moveq.l #-1,d0 | Default to "Output OK"
|
---|
| 954 | move.w obuftl(a0),d2 | Tail index to d2
|
---|
| 955 | bsr wrapout | Test for pointer wraparound
|
---|
| 956 | cmp.w obufhd(a0),d2 | Compare with head index
|
---|
| 957 | bne chkost1 | Jump if not equal
|
---|
| 958 |
|
---|
| 959 | moveq.l #0,d0 | Set to "Buffer full"
|
---|
| 960 |
|
---|
| 961 | chkost1: rts | Return to caller
|
---|
| 962 |
|
---|
| 963 | .page
|
---|
| 964 |
|
---|
| 965 | | wrapin -- Check input pointer for wraparound
|
---|
| 966 | | ------ ----------------------------------
|
---|
| 967 | wrapin: add.w #1,d1 | Head index +1
|
---|
| 968 | cmp.w ibufsize(a0),d1 | = buffer size ?
|
---|
| 969 | bcs wrapin1 | Jump if not
|
---|
| 970 |
|
---|
| 971 | moveq.l #0,d1 | Wraparound
|
---|
| 972 |
|
---|
| 973 | wrapin1: rts | Return to caller
|
---|
| 974 |
|
---|
| 975 | | wrapout -- Check output pointer for wraparound
|
---|
| 976 | | ------- -----------------------------------
|
---|
| 977 | wrapout: addq.w #1,d2 | Tail index +1
|
---|
| 978 | cmp.w obufsize(a0),d2 | = buffer size ?
|
---|
| 979 | bcs wrapout1 | Jump if not
|
---|
| 980 |
|
---|
| 981 | moveq.l #0,d2 | Wrap around if so
|
---|
| 982 |
|
---|
| 983 | wrapout1: rts | Return to caller
|
---|
| 984 |
|
---|
| 985 | .page
|
---|
| 986 |
|
---|
| 987 | | sr1inp -- Get input from Serial-1 (wait on busy)
|
---|
| 988 | | ------ ---------------------------------------
|
---|
| 989 | sr1inp: lea sr1iorec,a0 | Serial-1 iorec address
|
---|
| 990 | lea SR1ACIA,a1 | Serial-1 ACIA base
|
---|
| 991 | bra serinp | Go get a byte
|
---|
| 992 |
|
---|
| 993 | | sr2inp -- Get input from Serial-2 (wait on busy)
|
---|
| 994 | | ------ ---------------------------------------
|
---|
| 995 | sr2inp: lea sr2iorec,a0 | Serial-2 iorec address
|
---|
| 996 | lea SR2ACIA,a1 | Serial-2 ACIA base
|
---|
| 997 |
|
---|
| 998 | | serinp -- Get a byte from a serial port (with handshaking)
|
---|
| 999 | | ------ -------------------------------------------------
|
---|
| 1000 | serinp: bsr chkist | Check input status
|
---|
| 1001 | tst.w d0 | Character ready ?
|
---|
| 1002 | beq serinp | Loop until one is ...
|
---|
| 1003 |
|
---|
| 1004 | bsr getser | Get a byte from the buffer
|
---|
| 1005 | and.w #0xFFFF,d0 | Isolate LS bits 7..0
|
---|
| 1006 | rts | Return to caller
|
---|
| 1007 |
|
---|
| 1008 | .page
|
---|
| 1009 |
|
---|
[f40a309] | 1010 | .ifne BUCHLA
|
---|
[4f508e6] | 1011 |
|
---|
| 1012 | | mc1inp -- Get input from MIDI-1 (wait on busy)
|
---|
| 1013 | | ------ -------------------------------------
|
---|
| 1014 | mc1inp: lea mc1iorec,a0 | MIDI-1 iorec address
|
---|
| 1015 | lea MC1ACIA,a1 | MIDI-1 ACIA base
|
---|
| 1016 | bra midinp | Go get a byte
|
---|
| 1017 |
|
---|
| 1018 | | mc2inp -- Get input from MIDI-2 (wait on busy)
|
---|
| 1019 | | ------ -------------------------------------
|
---|
| 1020 | mc2inp: lea mc2iorec,a0 | MIDI-2 iorec address
|
---|
| 1021 | lea MC2ACIA,a1 | MIDI-2 ACIA base
|
---|
| 1022 |
|
---|
| 1023 | | midinp -- Get input from a MIDI port (no handshaking)
|
---|
| 1024 | | ------ --------------------------------------------
|
---|
| 1025 | midinp: bsr chkist | Check input status
|
---|
| 1026 | tst.w d0 | Character ready ?
|
---|
| 1027 | beq midinp | Loop until one is ...
|
---|
| 1028 |
|
---|
| 1029 | move.w sr,-(a7) | Save status register
|
---|
| 1030 | ori.w #IPL7,sr | Set IPL = 7 (disable ints)
|
---|
| 1031 | move.w ibufhd(a0),d1 | Head index to d1
|
---|
| 1032 | cmp.w ibuftl(a0),d1 | Compare to tail index
|
---|
| 1033 | beq midin_1 | Jump if (somehow) empty
|
---|
| 1034 |
|
---|
| 1035 | addq.w #1,d1 | Increment head index
|
---|
| 1036 | cmp.w ibufsize(a0),d1 | Did pointer wrap around ?
|
---|
| 1037 | bcs midin_2 | Jump if not
|
---|
| 1038 |
|
---|
| 1039 | moveq.l #0,d1 | Wraparound
|
---|
| 1040 |
|
---|
| 1041 | midin_2: move.l ibuf(a0),a2 | Get buffer base address in a2
|
---|
| 1042 | moveq.l #0,d0 | Clear MS bits of d0
|
---|
| 1043 | move.b 0(a2,d1),d0 | Get character from buffer
|
---|
| 1044 | move.w d1,ibufhd(a0) | Update buffer head index
|
---|
| 1045 |
|
---|
| 1046 | midin_1: move.w (a7)+,sr | Restore status
|
---|
| 1047 | rts | Return to caller
|
---|
| 1048 |
|
---|
[f40a309] | 1049 | .endc
|
---|
[4f508e6] | 1050 |
|
---|
| 1051 | .page
|
---|
| 1052 |
|
---|
| 1053 | | getser -- Get a byte from a serial port buffer (with handshaking)
|
---|
| 1054 | | ------ --------------------------------------------------------
|
---|
| 1055 | getser: move.w sr,-(a7) | Save status register
|
---|
| 1056 | ori.w #IPL7,sr | Set IPL = 7 (disable ints)
|
---|
| 1057 | move.w ibufhd(a0),d1 | Get input buffer head index
|
---|
| 1058 | cmp.w ibuftl(a0),d1 | Compare tail index
|
---|
| 1059 | beq rs_mt | Jump if buffer empty
|
---|
| 1060 |
|
---|
| 1061 | bsr wrapin | Adjust pointer for wraparound
|
---|
| 1062 | move.l ibuf(a0),a2 | Get buffer address
|
---|
| 1063 | moveq.l #0,d0 | Clear out MS bits of d0
|
---|
| 1064 | move.b 0(a2,d1),d0 | Get character from buffer
|
---|
| 1065 | move.w d1,ibufhd(a0) | Update head index
|
---|
| 1066 | move.w (a7)+,sr | Restore status
|
---|
| 1067 | andi #0xFFFE,sr | Clear carry = OK
|
---|
| 1068 | bra rs_xnf | Go do XON/XOFF check
|
---|
| 1069 |
|
---|
| 1070 | rs_mt: move.w (a7)+,sr | Restore status
|
---|
| 1071 | ori #0x0001,sr | Set carry = no character there
|
---|
| 1072 |
|
---|
| 1073 | rs_xnf: btst #0,linedisc(a0) | Check for XON/XOFF mode
|
---|
| 1074 | beq rs_exit | Jump if not enabled
|
---|
| 1075 |
|
---|
| 1076 | tst.b flagxon(a0) | XON active ?
|
---|
| 1077 | beq rs_exit | Jump if not
|
---|
| 1078 |
|
---|
| 1079 | bsr rsilen | Get length of buffer used
|
---|
| 1080 | cmp.w ibuflow(a0),d2 | At low water mark ?
|
---|
| 1081 | bne rs_exit | Jump if not
|
---|
| 1082 |
|
---|
| 1083 | move.b #0x11,d1 | Send an XON
|
---|
| 1084 | bsr serput | ...
|
---|
| 1085 | clr.b flagxon(a0) | Clear XON flag
|
---|
| 1086 |
|
---|
| 1087 | rs_exit: rts | Return to caller
|
---|
| 1088 |
|
---|
| 1089 | .page
|
---|
| 1090 |
|
---|
| 1091 | | sr1out -- Output to serial-1
|
---|
| 1092 | | ------ ------------------
|
---|
| 1093 | sr1out: lea sr1iorec,a0 | Serial-1 iorec address to a0
|
---|
| 1094 | lea SR1ACIA,a1 | Serial-1 ACIA address to a1
|
---|
| 1095 | move.w 6(a7),d1 | Get data byte from stack
|
---|
| 1096 | bsr serput | Attempt to output
|
---|
| 1097 | bcs sr1out | Try until it works ...
|
---|
| 1098 |
|
---|
| 1099 | rts | Return to caller
|
---|
| 1100 |
|
---|
| 1101 | | sr2out -- Output to Serial-2
|
---|
| 1102 | | ------ ------------------
|
---|
| 1103 | sr2out: lea sr2iorec,a0 | Serial-2 iorec address to a0
|
---|
| 1104 | lea SR2ACIA,a1 | Serial-2 ACIA address to a1
|
---|
| 1105 | move.w 6(a7),d1 | Get data byte from stack
|
---|
| 1106 | bsr serput | Attempt to output
|
---|
| 1107 | bcs sr2out | Try until it works ...
|
---|
| 1108 |
|
---|
| 1109 | rts | Return to caller
|
---|
| 1110 |
|
---|
[f40a309] | 1111 | .ifne BUCHLA
|
---|
[4f508e6] | 1112 |
|
---|
| 1113 | | mc1out -- Output to MIDI-1
|
---|
| 1114 | | ------ ----------------
|
---|
| 1115 | mc1out: lea mc1iorec,a0 | MIDI-1 iorec address to a0
|
---|
| 1116 | lea MC1ACIA,a1 | MIDI-1 ACIA address to a1
|
---|
| 1117 | move.w 6(a7),d1 | Get data byte from stack
|
---|
| 1118 | bsr midput | Attempt to output
|
---|
| 1119 | bcs mc1out | Try until it works ...
|
---|
| 1120 |
|
---|
| 1121 | rts | Return to caller
|
---|
| 1122 |
|
---|
| 1123 | | mc2out -- Output to MIDI-2
|
---|
| 1124 | | ------ ----------------
|
---|
| 1125 | mc2out: lea mc2iorec,a0 | MIDI-2 iorec address to a0
|
---|
| 1126 | lea MC2ACIA,a1 | MIDI-2 ACIA address to a1
|
---|
| 1127 | move.w 6(a7),d1 | Get data byte from stack
|
---|
| 1128 | bsr midput | Attempt to output
|
---|
| 1129 | bcs mc2out | Try until it works ...
|
---|
| 1130 |
|
---|
| 1131 | rts | Return to caller
|
---|
| 1132 |
|
---|
[f40a309] | 1133 | .endc
|
---|
[4f508e6] | 1134 |
|
---|
| 1135 | .page
|
---|
| 1136 |
|
---|
| 1137 | | serput -- Output a character to a serial port
|
---|
| 1138 | | ------ -----------------------------------
|
---|
| 1139 | serput: move.w sr,-(a7) | Save status register
|
---|
| 1140 | ori.w #IPL7,sr | Set IPL = 7 (disable ints)
|
---|
| 1141 | move.b ACIA_ISR(a1),isr(a0) | Get ACIA isr
|
---|
| 1142 | move.b ACIA_CSR(a1),csr(a0) | Get ACIA csr
|
---|
| 1143 | btst #0,linedisc(a0) | XON/XOFF mode ?
|
---|
| 1144 | beq serpt_1 | Jump if not
|
---|
| 1145 |
|
---|
| 1146 | tst.b flagxoff(a0) | XON active ?
|
---|
| 1147 | bne serpt_2 | Jump if so
|
---|
| 1148 |
|
---|
| 1149 | serpt_1: btst.b #6,isr(a0) | Is ACIA still sending ?
|
---|
| 1150 | beq serpt_2 | Jump if so
|
---|
| 1151 |
|
---|
| 1152 | move.w obufhd(a0),d2 | Head index to d2
|
---|
| 1153 | cmp.w obuftl(a0),d2 | Compare to tail index
|
---|
| 1154 | bne serpt_2 | Jump if buffer not empty
|
---|
| 1155 |
|
---|
| 1156 | move.b d1,ACIA_TDR(a1) | Give byte to ACIA to send
|
---|
| 1157 | bra serpt_3 | Go deal with RTS/CTS if needed
|
---|
| 1158 |
|
---|
| 1159 | serpt_2: move.w obuftl(a0),d2 | Tail index to d2
|
---|
| 1160 | bsr wrapout | Adjust for wraparound
|
---|
| 1161 | cmp.w obufhd(a0),d2 | Compare to head index
|
---|
| 1162 | beq serpt_4 | Jump if buffer full
|
---|
| 1163 |
|
---|
| 1164 | move.l obuf(a0),a2 | Get buffer base address in a2
|
---|
| 1165 | move.b d1,0(a2,d2) | Put character in buffer
|
---|
| 1166 | move.w d2,obuftl(a0) | Update buffer tail index
|
---|
| 1167 |
|
---|
| 1168 | serpt_3: bsr serchk | Check status on our way out
|
---|
| 1169 | bsr rtschk | Handle RTS protocol
|
---|
| 1170 | move.w (a7)+,sr | Restore status register
|
---|
| 1171 | andi #0xFFFE,sr | Clear carry flag = OK
|
---|
| 1172 | rts | Return to caller
|
---|
| 1173 |
|
---|
| 1174 | serpt_4: bsr serchk | Check status on our way out
|
---|
| 1175 | bsr rtschk | Handle RTS protocol
|
---|
| 1176 | move.w (a7)+,sr | Restore status register
|
---|
| 1177 | ori #0x0001,sr | Set carry flag = buffer full
|
---|
| 1178 | rts | Return to caller
|
---|
| 1179 |
|
---|
| 1180 | .page
|
---|
| 1181 |
|
---|
[f40a309] | 1182 | .ifne BUCHLA
|
---|
[4f508e6] | 1183 |
|
---|
| 1184 | | midput -- Output to MIDI
|
---|
| 1185 | | ------ --------------
|
---|
| 1186 | midput: move.w sr,-(a7) | Save status register
|
---|
| 1187 | ori.w #IPL7,sr | Set IPL = 7 (diable ints)
|
---|
| 1188 | move.b ACIA_ISR(a1),isr(a0) | Get ACIA isr
|
---|
| 1189 | move.b ACIA_CSR(a1),csr(a0) | Get ACIA csr
|
---|
| 1190 | btst.b #6,isr(a0) | Is ACIA still sending ?
|
---|
| 1191 | beq midpt_2 | Jump if so
|
---|
| 1192 |
|
---|
| 1193 | move.w obufhd(a0),d2 | Head index to d2
|
---|
| 1194 | cmp.w obuftl(a0),d2 | Compare to tail index
|
---|
| 1195 | bne midpt_2 | Jump if buffer not empty
|
---|
| 1196 |
|
---|
| 1197 | move.b d1,ACIA_TDR(a1) | Give byte to ACIA to send
|
---|
| 1198 | bra midpt_3 | Go set final status and exit
|
---|
| 1199 |
|
---|
| 1200 | midpt_2: move.w obuftl(a0),d2 | Tail index to d2
|
---|
| 1201 | bsr wrapout | Adjust for wraparound
|
---|
| 1202 | cmp.w obufhd(a0),d2 | Compare to head index
|
---|
| 1203 | beq midpt_4 | Jump if buffer full
|
---|
| 1204 |
|
---|
| 1205 | move.l obuf(a0),a2 | Get buffer base address in a2
|
---|
| 1206 | move.b d1,0(a2,d2) | Put character in buffer
|
---|
| 1207 | move.w d2,obuftl(a0) | Update buffer tail index
|
---|
| 1208 |
|
---|
| 1209 | midpt_3: bsr midchk | Check status on our way out
|
---|
| 1210 | move.w (a7)+,sr | Restore status register
|
---|
| 1211 | andi #0xFFFE,sr | Clear carry flag = OK
|
---|
| 1212 | rts | Return to caller
|
---|
| 1213 |
|
---|
| 1214 | midpt_4: bsr midchk | Check status on our way out
|
---|
| 1215 | move.w (a7)+,sr | Restore status register
|
---|
| 1216 | ori #0x0001,sr | Set carry flag = buffer full
|
---|
| 1217 | rts | Return to caller
|
---|
| 1218 |
|
---|
[f40a309] | 1219 | .endc
|
---|
[4f508e6] | 1220 |
|
---|
| 1221 | .page
|
---|
| 1222 |
|
---|
| 1223 | | rtschk -- Check RTS mode and turn on RTS if it's enabled
|
---|
| 1224 | | ------ ----------------------------------------------
|
---|
| 1225 | rtschk: btst #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1226 | beq rts_1 | Jump if not
|
---|
| 1227 |
|
---|
| 1228 | bsr rtson | Turn on RTS
|
---|
| 1229 |
|
---|
| 1230 | rts_1: rts | Return to caller
|
---|
| 1231 |
|
---|
| 1232 | | rsilen -- Get length of portion of input buffer that's been used so far
|
---|
| 1233 | | ------ -------------------------------------------------------------
|
---|
| 1234 | rsilen: move.w ibuftl(a0),d2 | Tail index to d2
|
---|
| 1235 | move.w ibufhd(a0),d3 | Head index to d3
|
---|
| 1236 | cmp.w d3,d2 | Head > Tail ?
|
---|
| 1237 | bhi rsi_1 | Jump if not
|
---|
| 1238 |
|
---|
| 1239 | add.w ibufsize(a0),d2 | Add buffer size to tail index
|
---|
| 1240 |
|
---|
| 1241 | rsi_1: sub.w d3,d2 | Length = (adjusted)Tail - Head
|
---|
| 1242 | rts | Return to caller
|
---|
| 1243 |
|
---|
| 1244 | | rtson -- Turn on RTS line
|
---|
| 1245 | | ----- ----------------
|
---|
| 1246 | rtson: move.b cfr1(a0),d0 | Pick up CFR1 image
|
---|
| 1247 | bclr #0,d0 | Turn on RTS line (active low)
|
---|
| 1248 | bset #7,d0 | Make sure MS bit is set
|
---|
| 1249 | move.b d0,cfr1(a0) | Update CFR1 image
|
---|
| 1250 | move.b d0,ACIA_CFR(a1) | Send CFR to hardware
|
---|
| 1251 | rts | Return to caller
|
---|
| 1252 |
|
---|
| 1253 | | rtsoff -- Turn off RTS line
|
---|
| 1254 | | ------ -----------------
|
---|
| 1255 | rtsoff: move.b cfr1(a0),d0 | Pick up CFR1 image
|
---|
| 1256 | bset #0,d0 | Turn off RTS line (active low)
|
---|
| 1257 | bset #7,d0 | Make sure MS bit is set
|
---|
| 1258 | move.b d0,cfr1(a0) | Update CFR1 image
|
---|
| 1259 | move.b d0,ACIA_CFR(a1) | Send CFR to hardware
|
---|
[f40a309] | 1260 | rts
|
---|
[4f508e6] | 1261 |
|
---|
| 1262 | .page
|
---|
| 1263 |
|
---|
| 1264 | | serintr -- Serial (Serial-1, Serial-2, MIDI-1, MIDI-2) interrupt handler
|
---|
| 1265 | | ------- -------------------------------------------------------------
|
---|
| 1266 | serintr: movem.l d0-d3/a0-a2,-(a7) | Save registers
|
---|
| 1267 | lea sr1iorec,a0 | Point at Serial-1 iorec
|
---|
| 1268 | lea SR1ACIA,a1 | Point at Serial-1 ACIA
|
---|
| 1269 | bsr serint | Go process (possible) int.
|
---|
| 1270 |
|
---|
| 1271 | lea sr2iorec,a0 | Point at Serial-2 iorec
|
---|
| 1272 | lea SR2ACIA,a1 | Point at Serial-2 ACIA
|
---|
| 1273 | bsr serint | Go process (possible) int.
|
---|
| 1274 |
|
---|
[f40a309] | 1275 | .ifne BUCHLA
|
---|
[4f508e6] | 1276 |
|
---|
| 1277 | lea mc1iorec,a0 | Point at MIDI-1 iorec
|
---|
| 1278 | lea MC1ACIA,a1 | Point at MIDI-1 ACIA
|
---|
| 1279 | bsr midint | Go process (possible) int.
|
---|
| 1280 |
|
---|
| 1281 | lea mc2iorec,a0 | Point at MIDI-2 iorec
|
---|
| 1282 | lea MC2ACIA,a1 | Point at MIDI-2 ACIA
|
---|
| 1283 | bsr midint | Go process (possible) int.
|
---|
| 1284 |
|
---|
[f40a309] | 1285 | .endc
|
---|
[4f508e6] | 1286 |
|
---|
| 1287 | movem.l (a7)+,d0-d3/a0-a2 | Restore registers
|
---|
| 1288 | rte | Return from exception
|
---|
| 1289 |
|
---|
| 1290 | .page
|
---|
| 1291 |
|
---|
| 1292 | | serint -- Process an interrupt from Serial-1 or Serial-2
|
---|
| 1293 | | ------ ----------------------------------------------
|
---|
| 1294 | serint: move.b ACIA_ISR(a1),isr(a0) | Get and save ISR
|
---|
| 1295 | move.b ACIA_CSR(a1),csr(a0) | Get and save CSR
|
---|
| 1296 |
|
---|
| 1297 | btst.b #7,isr(a0) | Was int for this device ?
|
---|
| 1298 | beq serintx | Jump if not
|
---|
| 1299 |
|
---|
| 1300 | serchk: btst.b #1,isr(a0) | FRM/OVR/BRK error ?
|
---|
| 1301 | bne sererr | Jump if so
|
---|
| 1302 |
|
---|
| 1303 | btst.b #0,isr(a0) | Receiver interrupt ?
|
---|
| 1304 | bne serrx | Jump if so
|
---|
| 1305 |
|
---|
| 1306 | sertxq: btst.b #6,isr(a0) | Transmitter interrupt ?
|
---|
| 1307 | bne sertx | Jump if so
|
---|
| 1308 |
|
---|
| 1309 | serctq: btst.b #5,isr(a0) | CTS interrupt ?
|
---|
| 1310 | bne sercts | Jump if so
|
---|
| 1311 |
|
---|
| 1312 | serintx: rts | Return to caller
|
---|
| 1313 |
|
---|
| 1314 | sererr: addq.w #1,errct(a0) | Update error count
|
---|
| 1315 | move.b ACIA_RDR(a1),erbyte(a0) | Get error byte
|
---|
[f40a309] | 1316 | rts
|
---|
[4f508e6] | 1317 |
|
---|
| 1318 | | Handle CTS interupt
|
---|
| 1319 |
|
---|
| 1320 | sercts: btst.b #1,linedisc(a0) | RTS/CTS mode ?
|
---|
| 1321 | beq serintx | Ignore if not
|
---|
| 1322 |
|
---|
| 1323 | btst.b #5,csr(a0) | CTS set ?
|
---|
| 1324 | beq serintx | Ignore if not
|
---|
| 1325 |
|
---|
| 1326 | sercts1: btst.b #6,isr(a0) | TDRE set ?
|
---|
| 1327 | beq sercts1 | Loop until it is (!)
|
---|
| 1328 |
|
---|
| 1329 | move.w obufhd(a0),d2 | Head index to d2
|
---|
| 1330 | cmp.w obuftl(a0),d2 | Compare to tail index
|
---|
| 1331 | beq serintx | Done if buffer empty
|
---|
| 1332 |
|
---|
| 1333 | bsr.w wrapout | Adjust pointer for wraparound
|
---|
| 1334 | move.l obuf(a0),a2 | Get buffer base in a2
|
---|
| 1335 | move.b 0(a2,d2),ACIA_TDR(a1) | Send byte on its way
|
---|
| 1336 | move.w d2,obufhd(a0) | Save updated head index
|
---|
[f40a309] | 1337 | rts
|
---|
[4f508e6] | 1338 |
|
---|
| 1339 | .page
|
---|
| 1340 |
|
---|
| 1341 | | Handle receiver interrupt
|
---|
| 1342 |
|
---|
| 1343 | serrx: btst.b #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1344 | beq serrx1 | Jump if not
|
---|
| 1345 |
|
---|
| 1346 | bsr.w rtsoff | Turn off RTS
|
---|
| 1347 |
|
---|
| 1348 | serrx1: move.b ACIA_RDR(a1),d0 | Read data from ACIA
|
---|
| 1349 | btst.b #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1350 | bne serrx3 | Jump if so
|
---|
| 1351 |
|
---|
| 1352 | btst.b #0,linedisc(a0) | XON/XOFF mode set ?
|
---|
| 1353 | beq serrx3 | Jump if not
|
---|
| 1354 |
|
---|
| 1355 | cmpi.b #0x11,d0 | Is this an XON ?
|
---|
| 1356 | bne serrx2 | Jump if not
|
---|
| 1357 |
|
---|
| 1358 | move.b #0x00,flagxoff(a0) | Clear flagxoff
|
---|
| 1359 | bra sertxq | Done
|
---|
| 1360 |
|
---|
| 1361 | serrx2: cmpi.b #0x13,d0 | Is this an XOFF ?
|
---|
| 1362 | bne serrx3 | Jump if not
|
---|
| 1363 |
|
---|
| 1364 | move.b #0xFF,flagxoff(a0) | Set flagxoff
|
---|
| 1365 | bra sertxq | Done
|
---|
| 1366 |
|
---|
| 1367 | serrx3: move.w ibuftl(a0),d1 | Get tail index in d1
|
---|
| 1368 | bsr.w wrapin | Adjust for wraparound
|
---|
| 1369 | cmp.w ibufhd(a0),d1 | Head = tail ?
|
---|
| 1370 | beq seribf | If so, we drop the character
|
---|
| 1371 |
|
---|
| 1372 | move.l ibuf(a0),a2 | Get buffer address
|
---|
| 1373 | move.b d0,0(a2,d1) | Stash byte in buffer
|
---|
| 1374 | move.w d1,ibuftl(a0) | Save updated tail index
|
---|
| 1375 | bsr rsilen | Get length of buffer used
|
---|
| 1376 | cmp.w ibufhi(a0),d2 | Hit high water mark ?
|
---|
| 1377 | bne serrx4 | Jump if not
|
---|
| 1378 |
|
---|
| 1379 | btst.b #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1380 | bne sertxq | Done if so
|
---|
| 1381 |
|
---|
| 1382 | btst.b #0,linedisc(a0) | XON/XOFF mode set ?
|
---|
| 1383 | beq serrx4 | Jump if not
|
---|
| 1384 |
|
---|
| 1385 | tst.b flagxon(a0) | XOFF already sent ?
|
---|
| 1386 | bne serrx4 | Jump if so
|
---|
| 1387 |
|
---|
| 1388 | move.b #0xFF,flagxon(a0) | Set the flag
|
---|
| 1389 | move.b #0x13,d1 | Send an XOFF
|
---|
| 1390 | bsr.w serput | ...
|
---|
| 1391 |
|
---|
| 1392 | .page
|
---|
| 1393 |
|
---|
| 1394 | serrx4: btst #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1395 | beq sertxq | Done if not
|
---|
| 1396 |
|
---|
| 1397 | bsr rtson | Turn on RTS
|
---|
[f40a309] | 1398 | bra sertxq
|
---|
[4f508e6] | 1399 |
|
---|
| 1400 | | Handle transmitter interrupt
|
---|
| 1401 |
|
---|
| 1402 | sertx: btst.b #1,linedisc(a0) | RTS/CTS mode set ?
|
---|
| 1403 | bne sertx2 | If so, go check CTS
|
---|
| 1404 |
|
---|
| 1405 | btst.b #0,linedisc(a0) | XON/XOFF mode set ?
|
---|
| 1406 | beq sertx1 | Jump if not
|
---|
| 1407 |
|
---|
| 1408 | tst.b flagxoff(a0) | Check flagxoff
|
---|
| 1409 | bne serctq | Done if set
|
---|
| 1410 |
|
---|
| 1411 | sertx1: move.w obufhd(a0),d2 | Head index to d2
|
---|
| 1412 | cmp.w obuftl(a0),d2 | Compare to tail index
|
---|
| 1413 | beq serctq | Done if buffer empty
|
---|
| 1414 |
|
---|
| 1415 | bsr wrapout | Adjust pointer for wraparound
|
---|
| 1416 | move.l obuf(a0),a2 | Get buffer base address
|
---|
| 1417 | move.b 0(a2,d2),ACIA_TDR(a1) | Send byte on its way
|
---|
| 1418 | move.w d2,obufhd(a0) | Save updated head index
|
---|
| 1419 | bra serctq | Done
|
---|
| 1420 |
|
---|
| 1421 | sertx2: btst.b #5,csr(a0) | CTS set in csr ?
|
---|
| 1422 | beq serctq | If not, go check for CTS int
|
---|
| 1423 |
|
---|
| 1424 | bra sertx1 | CTS was set, go transmit
|
---|
| 1425 |
|
---|
| 1426 | seribf: move.b d0,erbyte(a0) | Log dropped character
|
---|
| 1427 | addq.w #1,ibfct(a0) | ...
|
---|
| 1428 | bra sertxq | Go check Tx interrupt
|
---|
| 1429 |
|
---|
| 1430 | .page
|
---|
| 1431 |
|
---|
[f40a309] | 1432 | .ifne BUCHLA
|
---|
[4f508e6] | 1433 |
|
---|
| 1434 | | midint -- Process an interrupt from MIDI-1 or MIDI-2
|
---|
| 1435 | | ------ ------------------------------------------
|
---|
| 1436 | midint: move.b ACIA_ISR(a1),isr(a0) | Get and save ISR
|
---|
| 1437 | move.b ACIA_CSR(a1),csr(a0) | Get and save CSR
|
---|
| 1438 |
|
---|
| 1439 | btst.b #7,isr(a0) | Was int for this device ?
|
---|
| 1440 | beq midintx | Jump if not
|
---|
| 1441 |
|
---|
| 1442 | midchk: btst.b #1,isr(a0) | FRM/OVR/BRK error ?
|
---|
| 1443 | bne miderr | Jump if so
|
---|
| 1444 |
|
---|
| 1445 | btst.b #0,isr(a0) | Receiver interrupt ?
|
---|
| 1446 | bne midrx | Jump if so
|
---|
| 1447 |
|
---|
| 1448 | midtxq: btst.b #6,isr(a0) | Transmitter interrupt ?
|
---|
| 1449 | bne midtx | Jump if so
|
---|
| 1450 |
|
---|
| 1451 | midintx: rts | Return to caller
|
---|
| 1452 |
|
---|
| 1453 | miderr: addq.w #1,errct(a0) | Update error count
|
---|
| 1454 | move.b ACIA_RDR(a1),erbyte(a0) | Get error byte
|
---|
[f40a309] | 1455 | rts
|
---|
[4f508e6] | 1456 |
|
---|
| 1457 | | Handle receiver interrupt
|
---|
| 1458 |
|
---|
| 1459 | midrx: move.b ACIA_RDR(a1),d0 | Read data from ACIA
|
---|
| 1460 | move.w ibuftl(a0),d1 | Get tail index in d1
|
---|
| 1461 | bsr.w wrapin | Adjust for wraparound
|
---|
| 1462 | cmp.w ibufhd(a0),d1 | Head = tail ?
|
---|
| 1463 | beq midibf | If so, we drop the character
|
---|
| 1464 |
|
---|
| 1465 | move.l ibuf(a0),a2 | Get buffer address
|
---|
| 1466 | move.b d0,0(a2,d1) | Stash byte in buffer
|
---|
| 1467 | move.w d1,ibuftl(a0) | Save updated tail index
|
---|
| 1468 | bra midtxq | Done (go check tx int)
|
---|
| 1469 |
|
---|
| 1470 | .page
|
---|
| 1471 |
|
---|
| 1472 | | Handle transmitter interrupt
|
---|
| 1473 |
|
---|
| 1474 | midtx: move.w obufhd(a0),d2 | Head index to d2
|
---|
| 1475 | cmp.w obuftl(a0),d2 | Compare to tail index
|
---|
| 1476 | beq midintx | Done if buffer empty
|
---|
| 1477 |
|
---|
| 1478 | bsr wrapout | Adjust pointer for wraparound
|
---|
| 1479 | move.l obuf(a0),a2 | Get buffer base address
|
---|
| 1480 | move.b 0(a2,d2),ACIA_TDR(a1) | Send byte on its way
|
---|
| 1481 | move.w d2,obufhd(a0) | Save updated head index
|
---|
| 1482 | bra midintx | Done
|
---|
| 1483 |
|
---|
| 1484 | midibf: move.b d0,erbyte(a0) | Log dropped character
|
---|
| 1485 | addq.w #1,ibfct(a0) | ...
|
---|
| 1486 | bra midtxq | Go check Tx interrupt
|
---|
| 1487 |
|
---|
[f40a309] | 1488 | .endc
|
---|
[4f508e6] | 1489 |
|
---|
| 1490 | .page
|
---|
| 1491 |
|
---|
| 1492 | | setexec -- Set an exception vector
|
---|
| 1493 | | ------- -----------------------
|
---|
| 1494 | setexec: move.w 4(a7),d0 | Get vector number
|
---|
| 1495 | lsl.w #2,d0 | .. times 4
|
---|
| 1496 | sub.l a0,a0 | Clear a0
|
---|
| 1497 | lea 0(a0,d0),a0 | Get address of old vector
|
---|
| 1498 | move.l (a0),d0 | Move old vector to d0
|
---|
| 1499 | move.l 6(a7),d1 | Pick up new vector
|
---|
| 1500 | bmi setexec1 | Don't set if = -1
|
---|
| 1501 |
|
---|
| 1502 | move.l d1,(a0) | Set new vector
|
---|
| 1503 |
|
---|
| 1504 | setexec1: rts | Return to caller
|
---|
| 1505 |
|
---|
| 1506 | | piorec -- Get pointer to iorec structure
|
---|
| 1507 | | ------ ------------------------------
|
---|
| 1508 | piorec: moveq.l #0,d1 | Clear out d1
|
---|
| 1509 | move.w 4(a7),d1 | Get device number
|
---|
| 1510 | move.w sr,-(a7) | Save status register
|
---|
| 1511 | ori.w #IPL7,sr | Set IPL = 7 (no ints)
|
---|
| 1512 | lea iortab,a2 | Get base address of table
|
---|
| 1513 | asl.l #2,d1 | Device # times 4 for index
|
---|
| 1514 | move.l 0(a2,d1),d0 | Get iorec address from table
|
---|
| 1515 | move.w (a7)+,sr | Restore status register
|
---|
| 1516 | rts | Return to caller
|
---|
| 1517 |
|
---|
| 1518 | .page
|
---|
| 1519 |
|
---|
| 1520 | | setport -- Set ACIA parameters (unit, mode, baud, CFR0, CFR1)
|
---|
| 1521 | | ------- ---------------------------------------------------
|
---|
| 1522 | setport: moveq.l #0,d1 | Clear out d1
|
---|
| 1523 | move.w 4(a7),d1 | Get device number
|
---|
| 1524 | asl.l #3,d1 | Times 8 for index
|
---|
| 1525 | ori.w #IPL7,sr | Set IPL = 7 (no ints)
|
---|
| 1526 | lea aciatab,a2 | Get base of table
|
---|
| 1527 | move.l 0(a2,d1),d0 | Get iorec address
|
---|
| 1528 | move.l 4(a2,d1),d2 | Get ACIA address
|
---|
| 1529 | movea.l d0,a0 | Setup a0 = iorec address
|
---|
| 1530 | movea.l d2,a1 | Setup a1 = ACIA address
|
---|
| 1531 | tst.w 6(a7) | Change mode ?
|
---|
| 1532 | bmi setpt1 | Jump if not
|
---|
| 1533 |
|
---|
| 1534 | move.b 7(a7),linedisc(a0) | Set line discipline (mode)
|
---|
| 1535 |
|
---|
| 1536 | setpt1: tst.w 8(a7) | Change baud rate ?
|
---|
| 1537 | bmi setpt2 | Jump if not
|
---|
| 1538 |
|
---|
| 1539 | moveq.l #0,d1 | Clear out d1
|
---|
| 1540 | move.w 8(a7),d1 | Get baud rate index
|
---|
| 1541 | lea brtable,a2 | Get base of baud rate table
|
---|
| 1542 | move.b 0(a2,d1),d2 | Get baud rate code from table
|
---|
| 1543 | move.b cfr0(a0),d0 | Get current CFR0
|
---|
| 1544 | andi.w #0x0070,d0 | Mask off old baud rate code
|
---|
| 1545 | or.w d2,d0 | OR in new baud rate code
|
---|
| 1546 | move.b d0,cfr0(a0) | Update CFR0 in table
|
---|
| 1547 | move.b d0,ACIA_CFR(a1) | Update hardware
|
---|
| 1548 |
|
---|
| 1549 | setpt2: tst.w 10(a7) | Change CFR0 ?
|
---|
| 1550 | bmi setpt3 | Jump if not
|
---|
| 1551 |
|
---|
| 1552 | move.b 11(a7),cfr0(a0) | Update CFR0 in table
|
---|
| 1553 | move.b cfr0(a0),ACIA_CFR(a1) | Update CFR0 in hardware
|
---|
| 1554 |
|
---|
| 1555 | setpt3: tst.w 12(a7) | Change CFR1 ?
|
---|
| 1556 | bmi setpt4 | Jump if not
|
---|
| 1557 |
|
---|
| 1558 | bset.b #7,13(a7) | Force D7 = 1 in argument
|
---|
| 1559 | move.b 13(a7),cfr1(a0) | Update CFR1 in table
|
---|
| 1560 | move.b cfr1(a0),ACIA_CFR(a1) | Update CFR1 in hardware
|
---|
| 1561 |
|
---|
| 1562 | setpt4: rts | Return to caller
|
---|
| 1563 |
|
---|
| 1564 | .page
|
---|
| 1565 |
|
---|
| 1566 | | aciainit -- Initialize an ACIA port
|
---|
| 1567 | | -------- -----------------------
|
---|
| 1568 | aciainit: move.w #IORECLN,d0 | Setup byte count for move
|
---|
| 1569 | move.l a0,-(a7) | Save iorec base
|
---|
| 1570 |
|
---|
| 1571 | aciai_1: move.b (a2)+,(a0)+ | Move the default to the iorec
|
---|
| 1572 | dbf d0,aciai_1 | ...
|
---|
| 1573 |
|
---|
| 1574 | move.l (a7)+,a0 | Restore iorec base
|
---|
| 1575 | move.b cfr0(a0),ACIA_CFR(a1) | Setup CFR0
|
---|
| 1576 | move.b cfr1(a0),ACIA_CFR(a1) | Setup CFR1
|
---|
| 1577 | move.b ACIA_RDR(a1),d0 | Clear RDR
|
---|
| 1578 | move.b #0x7F,ACIA_IER(a1) | Disable all interrupts
|
---|
| 1579 | btst.b #1,linedisc(a0) | Are we in RTS/CTS mode ?
|
---|
| 1580 | bne aciai_2 | Jump if so
|
---|
| 1581 |
|
---|
| 1582 | move.b #0xC3,ACIA_IER(a1) | Enable TDRE, RDRF
|
---|
| 1583 | bra aciai_3 | Go return
|
---|
| 1584 |
|
---|
| 1585 | aciai_2: move.b #0xE3,ACIA_IER(a1) | Enable interrupts we want
|
---|
| 1586 |
|
---|
| 1587 | aciai_3: rts | Return to caller
|
---|
| 1588 |
|
---|
| 1589 | .page
|
---|
| 1590 |
|
---|
[f40a309] | 1591 | .ifne BUCHLA
|
---|
[4f508e6] | 1592 |
|
---|
| 1593 | | fastcopy -- Copy disk sector quickly
|
---|
| 1594 | | -------- ------------------------
|
---|
| 1595 | fastcopy: move.l 4(a7),a0 | Get source pointer
|
---|
| 1596 | move.l 8(a7),a1 | Get destination pointer
|
---|
| 1597 | move.w 0x3F,d0 | 512 bytes (63+1)|8
|
---|
| 1598 |
|
---|
| 1599 | fastcpy1: move.b (a0)+,(a1)+ | Move 8 bytes
|
---|
| 1600 | move.b (a0)+,(a1)+ | ...
|
---|
| 1601 | move.b (a0)+,(a1)+ | ...
|
---|
| 1602 | move.b (a0)+,(a1)+ | ...
|
---|
| 1603 | move.b (a0)+,(a1)+ | ...
|
---|
| 1604 | move.b (a0)+,(a1)+ | ...
|
---|
| 1605 | move.b (a0)+,(a1)+ | ...
|
---|
| 1606 | move.b (a0)+,(a1)+ | ...
|
---|
| 1607 | dbra d0,fastcpy1 | Loop until all bytes are moved
|
---|
| 1608 |
|
---|
| 1609 | rts | Return to caller
|
---|
| 1610 |
|
---|
| 1611 | .page
|
---|
| 1612 |
|
---|
| 1613 | | _hdvini -- Drive initialization
|
---|
| 1614 | | ------- --------------------
|
---|
| 1615 | _hdvini: link a6,#-18 | Reserve space on stack
|
---|
| 1616 | movem.l d3-d7/a3-a5,-(a7) | Preserve registers
|
---|
| 1617 | move.l #300,maxactim | maxactim = 300 | 20ms
|
---|
| 1618 | clr.w d0 | Put zeros in ...
|
---|
| 1619 | move.w d0,nflops | ... nflops
|
---|
| 1620 | move.w d0,dskmode | ... dskmode
|
---|
| 1621 | move.w d0,-2(a6) | Start with drive A
|
---|
| 1622 | bra hdvilp | ...
|
---|
| 1623 |
|
---|
| 1624 | hdvilp1: movea.l #dskmode,a0 | Get dskmode address in a0
|
---|
| 1625 | movea.w -2(a6),a1 | Drive number in a1
|
---|
| 1626 | adda.l a1,a0 | Point at dskmode for drive
|
---|
| 1627 | clr.b (a0) | Clear flag in dskmode
|
---|
| 1628 | clr.w -(a7) | Push arguments onto stack
|
---|
| 1629 | clr.w -(a7) | ...
|
---|
| 1630 | clr.w -(a7) | ...
|
---|
| 1631 | move.w -2(a6),-(a7) | Push drive number onto stack
|
---|
| 1632 | clr.l -(a7) | ... filler
|
---|
| 1633 | clr.l -(a7) | ... filler
|
---|
| 1634 | jsr flopini | Initialize drive
|
---|
| 1635 | adda.l #16,a7 | Cleanup stack
|
---|
| 1636 | move.w d0,-(a7) | Save error code on stack
|
---|
| 1637 | movea.w -2(a6),a0 | Get drive number
|
---|
| 1638 | adda.l a0,a0 | ... times 2
|
---|
| 1639 | adda.l #dskerrs,a0 | Add base of dskerrs
|
---|
| 1640 | move.w (a7)+,(a0) | Move error code off of stack
|
---|
| 1641 | bne hdvind | Jump if drive not present
|
---|
| 1642 |
|
---|
| 1643 | addq.w #1,nflops | Update number of drives
|
---|
| 1644 | or.l #3,drvbits | Setup drive bits
|
---|
| 1645 |
|
---|
| 1646 | hdvind: addq.w #1,-2(a6) | Increment drive number
|
---|
| 1647 |
|
---|
| 1648 | hdvilp: cmp.w #2,-2(a6) | See if it's 2 yet
|
---|
| 1649 | blt hdvilp1 | Loop until it is
|
---|
| 1650 |
|
---|
| 1651 | movem.l (a7)+,d3-d7/a3-a5 | Restore registers
|
---|
| 1652 | unlk a6 | Release temporary stack space
|
---|
| 1653 | rts | Return to caller
|
---|
| 1654 |
|
---|
| 1655 | | drvmap -- get drive map
|
---|
| 1656 | | ------ -------------
|
---|
| 1657 | drvmap: move.l drvbits,d0 | Get drive bits
|
---|
| 1658 | rts | Return to caller
|
---|
| 1659 |
|
---|
| 1660 | .page
|
---|
| 1661 |
|
---|
| 1662 | | getbpb -- get BIOS parameter block
|
---|
| 1663 | | ------ ------------------------
|
---|
| 1664 | getbpb: link a6,#-12 | Reserve space for temporaries
|
---|
| 1665 | movem.l d5-d7/a4-a5,-(a7) | Save registers on stack
|
---|
| 1666 | cmp.w #2,8(a6) | Check drive number
|
---|
| 1667 | blt gbpb1 | Jump if OK
|
---|
| 1668 |
|
---|
| 1669 | clr.l d0 | Set drive number to 0
|
---|
| 1670 | bra gbpber | Go flag error
|
---|
| 1671 |
|
---|
| 1672 | gbpb1: move.w 8(a6),d0 | Get drive number
|
---|
| 1673 | asl.w #5,d0 | ... times 32
|
---|
| 1674 | ext.l d0 | ... extend sign
|
---|
| 1675 | move.l d0,a5 | Move to a5
|
---|
| 1676 | add.l #drvbpbs,a5 | Add base of drive bpb are
|
---|
| 1677 | move.l a5,a4 | Save in a4
|
---|
| 1678 |
|
---|
| 1679 | gbpbrds: move.w #1,(a7) | floprd count = 1,
|
---|
| 1680 | clr.w -(a7) | ... side = 0,
|
---|
| 1681 | clr.w -(a7) | ... track = 0,
|
---|
| 1682 | move.w #1,-(a7) | ... sector = 1,
|
---|
| 1683 | move.w 8(a6),-(a7) | ... drive #,
|
---|
| 1684 | clr.l -(a7) | ... filler
|
---|
| 1685 | move.l #buffer,-(a7) | ... buffer address,
|
---|
| 1686 | jsr floprd | Go read the sector
|
---|
| 1687 | add.l #16,a7 | Cleanup stack
|
---|
| 1688 | move.l d0,-12(a6) | Save error code
|
---|
| 1689 | tst.l -12(a6) | ... and test it
|
---|
| 1690 | bge gbpb2 | Jump if OK
|
---|
| 1691 |
|
---|
| 1692 | move.w 8(a6),(a7) | Put drive number on stack
|
---|
| 1693 | move.l -12(a6),d0 | Get error code
|
---|
| 1694 | move.w d0,-(a7) | ... and put it on the stack
|
---|
| 1695 | jsr criter | Go do critical error routine
|
---|
| 1696 | addq.l #2,a7 | Cleanup stack
|
---|
| 1697 | move.l d0,-12(a6) | Save error code
|
---|
| 1698 |
|
---|
| 1699 | gbpb2: move.l -12(a6),d0 | Get error code
|
---|
| 1700 | cmp.l #RETRYIT,d0 | Magic number for retry ?
|
---|
| 1701 | beq gbpbrds | Re-read if so
|
---|
| 1702 |
|
---|
| 1703 | tst.l -12(a6) | Test error code
|
---|
| 1704 | bge gbpb3 | Jump if OK
|
---|
| 1705 |
|
---|
| 1706 | clr.l d0 | Set code in d0
|
---|
| 1707 | bra gbpber | Go set error code
|
---|
| 1708 |
|
---|
| 1709 | .page
|
---|
| 1710 |
|
---|
| 1711 | gbpb3: move.l #buffer+11,(a7) | Bytes per sector
|
---|
| 1712 | bsr itom | Convert 8086 to 68K format
|
---|
| 1713 | move.w d0,d7 | Save bytes per sector
|
---|
| 1714 | beq gbpb4 | Jump if zero
|
---|
| 1715 |
|
---|
| 1716 | move.b buffer+13,d6 | Sectors per cluster
|
---|
| 1717 | ext.w d6 | ... sign extended
|
---|
| 1718 | and.w #0xFF,d6 | ... and trimmed
|
---|
| 1719 | bne gbpb5 | Jump if non-zero
|
---|
| 1720 |
|
---|
| 1721 | gbpb4: clr.l d0 | Set error code
|
---|
| 1722 | bra gbpber | ...
|
---|
| 1723 |
|
---|
| 1724 | gbpb5: move.w d7,(a4) | Set recsize
|
---|
| 1725 | move.w d6,2(a4) | Set clsiz
|
---|
| 1726 | move.l #buffer+22,(a7) | Convert sectors per fat
|
---|
| 1727 | bsr itom | ...
|
---|
| 1728 | move.w d0,8(a4) | Set fsiz
|
---|
| 1729 | move.w 8(a4),d0 | Get fsiz
|
---|
| 1730 | addq.w #1,d0 | ... plus 1
|
---|
| 1731 | move.w d0,10(a4) | Set fatrec
|
---|
| 1732 | move.w (a4),d0 | Get recsize
|
---|
| 1733 | muls.w 2(a4),d0 | ... times clsiz
|
---|
| 1734 | move.w d0,4(a4) | Set clsizb
|
---|
| 1735 | move.l #buffer+17,(a7) | Convert number of dir ents
|
---|
| 1736 | bsr itom | ...
|
---|
| 1737 | asl.w #5,d0 | ... times 32
|
---|
| 1738 | ext.l d0 | ... sign extended
|
---|
| 1739 | divs.w (a4),d0 | ... / recsize
|
---|
| 1740 | move.w d0,6(a4) | Set rdlen
|
---|
| 1741 | move.w 10(a4),d0 | Get fatrec
|
---|
| 1742 | add.w 6(a4),d0 | ... + rdlen
|
---|
| 1743 | add.w 8(a4),d0 | ... + fsiz
|
---|
| 1744 | move.w d0,12(a4) | Set datrec
|
---|
| 1745 | move.l #buffer+19,(a7) | Get number of sectors
|
---|
| 1746 | bsr itom | ... convert
|
---|
| 1747 | sub.w 12(a4),d0 | ... - datrec
|
---|
| 1748 | ext.l d0 | ... sign extended
|
---|
| 1749 | divs.w 2(a4),d0 | ... / clsiz
|
---|
| 1750 | move.w d0,14(a4) | Set numcl
|
---|
| 1751 |
|
---|
| 1752 | .page
|
---|
| 1753 |
|
---|
| 1754 | move.l #buffer+26,(a7) | Convert number of heads
|
---|
| 1755 | bsr itom | ...
|
---|
| 1756 | move.w d0,20(a5) | Set dnsides
|
---|
| 1757 | move.l #buffer+24,(a7) | Convert sectors per track
|
---|
| 1758 | bsr itom | ...
|
---|
| 1759 | move.w d0,24(a5) | Set dspt
|
---|
| 1760 | move.w 20(a5),d0 | Get dnsides
|
---|
| 1761 | muls.w 24(a5),d0 | ... | dspt
|
---|
| 1762 | move.w d0,22(a5) | Set dspc
|
---|
| 1763 | move.l #buffer+28,(a7) | Convert number of hidden sects
|
---|
| 1764 | bsr itom | ...
|
---|
| 1765 | move.w d0,26(a5) | Set dhidden
|
---|
| 1766 | move.l #buffer+19,(a7) | Convert sectors on disk
|
---|
| 1767 | bsr itom | ...
|
---|
| 1768 | ext.l d0 | ... sign extended
|
---|
| 1769 | divs.w 22(a5),d0 | ... / dspc
|
---|
| 1770 | move.w d0,18(a5) | Set dntracks
|
---|
| 1771 | clr.w d7 | Counter = 0
|
---|
| 1772 | bra gbpblpt | Jump to end of loop
|
---|
| 1773 |
|
---|
| 1774 | gbpb6: move.l a5,a0 | Get buffer pointer
|
---|
| 1775 | move.w d7,a1 | Loop count to a1
|
---|
| 1776 | add.l a1,a0 | ... + bpb address
|
---|
| 1777 | move.w d7,a1 | Loop count to a1
|
---|
| 1778 | add.l #buffer,a1 | ... + buffer address
|
---|
| 1779 | move.b 8(a1),28(a0) | Copy a s/n byte
|
---|
| 1780 | addq.w #1,d7 | Update loop count
|
---|
| 1781 |
|
---|
| 1782 | gbpblpt: cmp.w #3,d7 | Moved 3 bytes ?
|
---|
| 1783 | blt gbpb6 | Loop if not
|
---|
| 1784 |
|
---|
| 1785 | .page
|
---|
| 1786 |
|
---|
| 1787 | move.l #cdev,a0 | Address of cdev table
|
---|
| 1788 | move.w 8(a6),a1 | ... plus drive number
|
---|
| 1789 | add.l a1,a0 | ... to a0
|
---|
| 1790 | move.l #wpstatus,a1 | Address of wpstatus table
|
---|
| 1791 | move.w 8(a6),a2 | ... plus drive number
|
---|
| 1792 | add.l a2,a1 | ... to a1
|
---|
| 1793 | move.b (a1),(a0) | Move wpstatus to cdev
|
---|
[f40a309] | 1794 | beq gbpb7
|
---|
[4f508e6] | 1795 |
|
---|
| 1796 | moveq.l #1,d0 | Set status = "Uncertain"
|
---|
[f40a309] | 1797 | bra gbpb8
|
---|
[4f508e6] | 1798 |
|
---|
| 1799 | gbpb7: clr.w d0 | Set status = "Unchanged"
|
---|
| 1800 |
|
---|
| 1801 | gbpb8: move.l #dskmode,a1 | Update dskmode table
|
---|
| 1802 | move.w 8(a6),a2 | ...
|
---|
| 1803 | add.l a2,a1 | ...
|
---|
| 1804 | move.b d0,(a1) | ...
|
---|
| 1805 | move.l a5,d0 | Setup to return bpb pointer
|
---|
| 1806 |
|
---|
| 1807 | gbpber: tst.l (a7)+ | Pop garbage off top of stack
|
---|
| 1808 | movem.l (a7)+,d6-d7/a4-a5 | Restore registers
|
---|
[f40a309] | 1809 | unlk a6
|
---|
| 1810 | rts
|
---|
[4f508e6] | 1811 |
|
---|
| 1812 | .page
|
---|
| 1813 |
|
---|
| 1814 | | mediach -- check for media change
|
---|
| 1815 | | ------- ----------------------
|
---|
| 1816 | mediach: link a6,#0 | Create scratch on stack
|
---|
| 1817 | movem.l d6-d7/a5,-(a7) | Save registers on stack
|
---|
| 1818 | cmp.w #2,8(a6) | Check drive number
|
---|
| 1819 | blt media1 | Jump if OK
|
---|
| 1820 |
|
---|
| 1821 | moveq.l #ERR15,d0 | Error -- "unknown device"
|
---|
| 1822 | bra media2 | ...
|
---|
| 1823 |
|
---|
| 1824 | media1: move.w 8(a6),d7 | Get drive number in d7
|
---|
| 1825 | movea.w d7,a5 | Point into dskmode table
|
---|
| 1826 | add.l #dskmode,a5 | ...
|
---|
| 1827 | cmp.b #2,(a5) | Definitely changed ?
|
---|
| 1828 | bne media3 | Jump if not
|
---|
| 1829 |
|
---|
| 1830 | moveq.l #2,d0 | Setup to return "Changed"
|
---|
| 1831 | bra media2 | Done -- go return to caller
|
---|
| 1832 |
|
---|
| 1833 | media3: move.l #wplatch,a0 | Check wplatch for drive
|
---|
| 1834 | tst.b 0(a0,d7) | ...
|
---|
| 1835 | beq media4 | Jump if not set
|
---|
| 1836 |
|
---|
| 1837 | move.b #1,(a5) | Set dskmode to "Uncertain"
|
---|
| 1838 |
|
---|
| 1839 | media4: move.l _hz_200,d0 | Get time in d0
|
---|
| 1840 | movea.w d7,a1 | Calculate acctim table address
|
---|
| 1841 | add.l a1,a1 | ... = drive # | 4
|
---|
| 1842 | add.l a1,a1 | ...
|
---|
| 1843 | add.l #acctim,a1 | ... + acctim base address
|
---|
| 1844 | move.l (a1),d1 | Get acctim for drive
|
---|
| 1845 | sub.l d1,d0 | Subtract from current time
|
---|
| 1846 | cmp.l maxactim,d0 | Timed out ?
|
---|
| 1847 | bge media5 | Jump if so
|
---|
| 1848 |
|
---|
| 1849 | clr.w d0 | Setup to return "Unchanged"
|
---|
[f40a309] | 1850 | bra media2
|
---|
[4f508e6] | 1851 |
|
---|
| 1852 | media5: move.b (a5),d0 | Return status from dskmode
|
---|
[f40a309] | 1853 | ext.w d0
|
---|
[4f508e6] | 1854 |
|
---|
| 1855 | media2: tst.l (a7)+ | Pop extra stack word
|
---|
| 1856 | movem.l (a7)+,d7/a5 | Restore registers
|
---|
[f40a309] | 1857 | unlk a6
|
---|
[4f508e6] | 1858 | rts | Return to caller
|
---|
| 1859 |
|
---|
| 1860 | .page
|
---|
| 1861 |
|
---|
| 1862 | | rwabs -- read / write sector(s)
|
---|
| 1863 | | ----- ----------------------
|
---|
| 1864 | rwabs: link a6,#-4 | Reserve stack for temps
|
---|
| 1865 | movem.l d4-d7/a5,-(a7) | Save registers on stack
|
---|
| 1866 | cmp.w #2,18(a6) | Drive number
|
---|
[f40a309] | 1867 | blt rwabs1
|
---|
[4f508e6] | 1868 |
|
---|
| 1869 | moveq.l #ERR15,d0 | ERROR -- "unknown device"
|
---|
[f40a309] | 1870 | bra rwabser
|
---|
[4f508e6] | 1871 |
|
---|
| 1872 | rwabs1: move.w 18(a6),d6 | Save drive number
|
---|
| 1873 | cmp.w #2,8(a6) | Check rwflag
|
---|
[f40a309] | 1874 | bge rwabs7
|
---|
[4f508e6] | 1875 |
|
---|
[f40a309] | 1876 | move.w d6,d0
|
---|
| 1877 | asl.w #5,d0
|
---|
| 1878 | ext.l d0
|
---|
| 1879 | move.l d0,a5
|
---|
| 1880 | add.l #drvbpbs,a5
|
---|
| 1881 | move.w d6,(a7)
|
---|
[4f508e6] | 1882 | bsr mediach | Test for media change
|
---|
| 1883 | move.w d0,d7 | Save status
|
---|
| 1884 | cmp.w #2,d7 | Disk changed ?
|
---|
| 1885 | bne rwabs2 | Jump if not
|
---|
| 1886 |
|
---|
| 1887 | moveq.l #ERR14,d0 | ERROR -- "media changed"
|
---|
| 1888 | bra rwabser | ...
|
---|
| 1889 |
|
---|
| 1890 | rwabs2: cmp.w #1,d7 | Disk possibly changed ?
|
---|
[f40a309] | 1891 | bne rwabs7
|
---|
[4f508e6] | 1892 |
|
---|
| 1893 | rwabs3: move.w #1,(a7) | floprd count = 1,
|
---|
| 1894 | clr.w -(a7) | ... side = 0,
|
---|
| 1895 | clr.w -(a7) | ... track = 0,
|
---|
| 1896 | move.w #1,-(a7) | ... sector = 1,
|
---|
| 1897 | move.w d6,-(a7) | ... drive number,
|
---|
| 1898 | clr.l -(a7) | ... filler,
|
---|
| 1899 | move.l #buffer,-(a7) | ... buffer address,
|
---|
| 1900 | jsr floprd | Read boot sector
|
---|
| 1901 | add.l #16,a7 | Cleanup stack
|
---|
| 1902 | move.l d0,-4(a6) | Save error number
|
---|
| 1903 | tst.l -4(a6) | ... and test it
|
---|
| 1904 | bge rwabs11 | Jump if OK
|
---|
| 1905 |
|
---|
| 1906 | .page
|
---|
| 1907 |
|
---|
[f40a309] | 1908 | move.w d6,(a7)
|
---|
| 1909 | move.l -4(a6),d0
|
---|
| 1910 | move.w d0,-(a7)
|
---|
[4f508e6] | 1911 | jsr criter | Call critical error code
|
---|
| 1912 | addq.l #2,a7 | Cleanup stack
|
---|
[f40a309] | 1913 | move.l d0,-4(a6)
|
---|
[4f508e6] | 1914 |
|
---|
[f40a309] | 1915 | rwabs11: move.l -4(a6),d0
|
---|
| 1916 | cmp.l #RETRYIT,d0
|
---|
[4f508e6] | 1917 | beq rwabs3 | Read again
|
---|
| 1918 |
|
---|
| 1919 | tst.l -4(a6) | Test error number
|
---|
| 1920 | bge rwabs4 | OK ?
|
---|
| 1921 |
|
---|
[f40a309] | 1922 | move.l -4(a6),d0
|
---|
[4f508e6] | 1923 | bra rwabser | ERROR
|
---|
| 1924 |
|
---|
| 1925 | rwabs4: clr.w d7 | Clear media change status
|
---|
[f40a309] | 1926 | bra rwabs10
|
---|
[4f508e6] | 1927 |
|
---|
| 1928 | rwabs6: move.l #buffer,a0 | Address of sector buffer to a0
|
---|
| 1929 | move.b 8(a0,d7),d0 | Serial number
|
---|
[f40a309] | 1930 | ext.w d0
|
---|
[4f508e6] | 1931 | move.b 28(a5,d7),d1 | Compare to old one
|
---|
[f40a309] | 1932 | ext.w d1
|
---|
| 1933 | cmp.w d1,d0
|
---|
[4f508e6] | 1934 | beq rwabs5 | Jump if they're the same
|
---|
| 1935 |
|
---|
| 1936 | moveq.l #ERR14,d0 | ERROR -- "media changed"
|
---|
[f40a309] | 1937 | bra rwabser
|
---|
[4f508e6] | 1938 |
|
---|
| 1939 | rwabs5: addq.w #1,d7 | Next byte of serial number
|
---|
| 1940 |
|
---|
| 1941 | rwabs10: cmp.w #3,d7 | All 3 bytes checked ?
|
---|
| 1942 | blt rwabs6 | Loop if not
|
---|
| 1943 |
|
---|
| 1944 | .page
|
---|
| 1945 |
|
---|
| 1946 | move.w d6,a0 | Point at wplatch for drive
|
---|
| 1947 | add.l #wplatch,a0 | ...
|
---|
| 1948 | move.w d6,a1 | Point at wpstatus for drive
|
---|
| 1949 | add.l #wpstatus,a1 | ...
|
---|
| 1950 | move.b (a1),(a0) | Move wpstatus to wplatch
|
---|
| 1951 | bne rwabs9 | Jump if set
|
---|
| 1952 |
|
---|
| 1953 | move.w d6,a0 | Set dskmode to "Unchanged"
|
---|
| 1954 | add.l #dskmode,a0 | ...
|
---|
| 1955 | clr.b (a0) | ...
|
---|
| 1956 |
|
---|
| 1957 | rwabs7: tst.w nflops | Test nflops
|
---|
[f40a309] | 1958 | bne rwabs8
|
---|
[4f508e6] | 1959 |
|
---|
| 1960 | moveq.l #ERR02,d0 | ERROR -- "drive not ready"
|
---|
[f40a309] | 1961 | bra rwabser
|
---|
[4f508e6] | 1962 |
|
---|
| 1963 | rwabs8: cmp.w #1,8(a6) | Check rwflag
|
---|
[f40a309] | 1964 | ble rwabs9
|
---|
[4f508e6] | 1965 |
|
---|
| 1966 | subq.w #2,8(a6) | Adjust to 0|1
|
---|
| 1967 |
|
---|
| 1968 | rwabs9: move.w 14(a6),(a7) | Setup count,
|
---|
| 1969 | move.w d6,-(a7) | ... drive,
|
---|
| 1970 | move.w 16(a6),-(a7) | ... recno,
|
---|
| 1971 | move.l 10(a6),-(a7) | ... buffer,
|
---|
| 1972 | move.w 8(a6),-(a7) | ... rwflag
|
---|
| 1973 | bsr floprw | Call floprw
|
---|
| 1974 |
|
---|
| 1975 | add.l #10,a7 | Cleanup stack
|
---|
| 1976 |
|
---|
| 1977 | rwabser: tst.l (a7)+ | Pop stack scratch
|
---|
| 1978 | movem.l (a7)+,d5-d7/a5 | Restore registers
|
---|
| 1979 | unlk a6 | Release temporaries
|
---|
| 1980 | rts | Return to caller
|
---|
| 1981 |
|
---|
| 1982 | .page
|
---|
| 1983 |
|
---|
| 1984 | | floprw -- Floppy read / write driver
|
---|
| 1985 | | ------ --------------------------
|
---|
| 1986 | floprw: link a6,#-6 | Reserve space for temps
|
---|
| 1987 | movem.l d2-d7/a5,-(a7) | Save registers
|
---|
| 1988 | move.w 16(a6),d0 | Drive number to d0
|
---|
| 1989 | asl.w #5,d0 | Shift ( |32 )
|
---|
| 1990 | ext.l d0 | Sign extend it, too
|
---|
| 1991 | move.l d0,a5 | Result in a5
|
---|
| 1992 | add.l #drvbpbs,a5 | Add base of BPB table
|
---|
| 1993 | btst #0,13(a6) | Buffer address even ?
|
---|
| 1994 | bne floprw01 | Jump if not
|
---|
| 1995 |
|
---|
| 1996 | clr.w d0 | Clear odd flag
|
---|
| 1997 | bra floprw02 | Go save the flag
|
---|
| 1998 |
|
---|
| 1999 | floprw01: moveq.l #1,d0 | Set odd flag
|
---|
| 2000 |
|
---|
| 2001 | floprw02: move.w d0,-2(a6) | Save it
|
---|
| 2002 | tst.w 22(a5) | dspc set ?
|
---|
| 2003 | bne floprw20 | Jump if so
|
---|
| 2004 |
|
---|
| 2005 | moveq.l #9,d0 | Assume 9
|
---|
| 2006 | move.w d0,22(a5) | ... and make it the default
|
---|
| 2007 | move.w d0,24(a5) | ... for dspt and dspc
|
---|
| 2008 |
|
---|
[f40a309] | 2009 | floprw20: bra floprw18
|
---|
[4f508e6] | 2010 |
|
---|
| 2011 | floprw03: tst.w -2(a6) | Is odd flag set ?
|
---|
| 2012 | beq floprw04 | Jump if not
|
---|
| 2013 |
|
---|
| 2014 | move.l #buffer,d0 | Point to sector buffer
|
---|
[f40a309] | 2015 | bra floprw05
|
---|
[4f508e6] | 2016 |
|
---|
| 2017 | floprw04: move.l 10(a6),d0 | Get buffer address
|
---|
| 2018 |
|
---|
| 2019 | floprw05: move.l d0,-6(a6) | ... and save
|
---|
| 2020 | move.w 14(a6),d6 | Get recno (lsn)
|
---|
| 2021 | ext.l d6 | Extend it to long
|
---|
| 2022 | divs.w 22(a5),d6 | Divide by dspc for track #
|
---|
| 2023 | move.w 14(a6),d4 | Get recno
|
---|
| 2024 | ext.l d4 | Extend to long
|
---|
| 2025 | divs.w 22(a5),d4 | Divide by dspc
|
---|
| 2026 | swap d4 | Use remainder as sector number
|
---|
| 2027 | cmp.w 24(a5),d4 | Compare with dspt
|
---|
| 2028 | bge floprw06 | Greater than or equal ?
|
---|
| 2029 |
|
---|
| 2030 | clr.l d5 | Use side 0
|
---|
[f40a309] | 2031 | bra floprw07
|
---|
[4f508e6] | 2032 |
|
---|
| 2033 | floprw06: moveq.l #1,d5 | Use side 1
|
---|
| 2034 | sub.w 24(a5),d4 | Subtract dspt from sector #
|
---|
| 2035 |
|
---|
| 2036 | .page
|
---|
| 2037 |
|
---|
| 2038 | floprw07: tst.w -2(a6) | Is odd flag set ?
|
---|
| 2039 | beq floprw08 | Jump if not
|
---|
| 2040 |
|
---|
| 2041 | moveq.l #1,d3 | Set counter to 1
|
---|
[f40a309] | 2042 | bra floprw10
|
---|
[4f508e6] | 2043 |
|
---|
| 2044 | floprw08: move.w 24(a5),d0 | Get dspt
|
---|
| 2045 | sub.w d4,d0 | Subtract sector number
|
---|
| 2046 | cmp.w 18(a6),d0 | Compare with number of sectors
|
---|
| 2047 | bge floprw09 | Jump if greater than or eq to
|
---|
| 2048 |
|
---|
| 2049 | move.w 24(a5),d3 | Get dspt
|
---|
| 2050 | sub.w d4,d3 | Subtract sector number
|
---|
[f40a309] | 2051 | bra floprw10
|
---|
[4f508e6] | 2052 |
|
---|
| 2053 | floprw09: move.w 18(a6),d3 | Count = number of sectors
|
---|
| 2054 |
|
---|
| 2055 | floprw10: addq.w #1,d4 | Adjust sector number (1 org)
|
---|
| 2056 |
|
---|
| 2057 | floprw11: tst.w 8(a6) | Test r/w flag
|
---|
| 2058 | beq floprw14 | Jump if it's a read
|
---|
| 2059 |
|
---|
| 2060 | move.l -6(a6),d0 | Get buffer pointer
|
---|
| 2061 | cmp.l 10(a6),d0 | See if it's = buffer addr
|
---|
| 2062 | beq floprw12 | Jump if so
|
---|
| 2063 |
|
---|
| 2064 | move.l -6(a6),(a7) | Get source address
|
---|
| 2065 | move.l 10(a6),-(a7) | Destination address
|
---|
| 2066 | jsr fastcopy | Copy the sector
|
---|
| 2067 | addq.l #4,a7 | Cleanup stack
|
---|
| 2068 |
|
---|
| 2069 | floprw12: move.w d3,(a7) | Number of sectors
|
---|
| 2070 | move.w d5,-(a7) | Side number
|
---|
| 2071 | move.w d6,-(a7) | Track number
|
---|
| 2072 | move.w d4,-(a7) | Sector number
|
---|
| 2073 | move.w 16(a6),-(a7) | Drive number
|
---|
| 2074 | clr.l -(a7) | Filler
|
---|
| 2075 | move.l -6(a6),-(a7) | Buffer address
|
---|
| 2076 | jsr flopwr | Write sector
|
---|
| 2077 | add.l #16,a7 | Cleaup stack
|
---|
| 2078 | move.l d0,d7 | Save error code in d7
|
---|
| 2079 | tst.l d7 | Errors ?
|
---|
| 2080 | bne floprw13 | Jump if so
|
---|
| 2081 |
|
---|
| 2082 | .page
|
---|
| 2083 |
|
---|
| 2084 | tst.w fverify | Verify after write ?
|
---|
| 2085 | beq floprw13 | Jump if not
|
---|
| 2086 |
|
---|
| 2087 | move.w d3,(a7) | Number of sectors
|
---|
| 2088 | move.w d5,-(a7) | Side number
|
---|
| 2089 | move.w d6,-(a7) | Track number
|
---|
| 2090 | move.w d4,-(a7) | Sector number
|
---|
| 2091 | move.w 16(a6),-(a7) | Drive number
|
---|
| 2092 | clr.l -(a7) | Filler
|
---|
| 2093 | move.l #buffer,-(a7) | Buffer address
|
---|
| 2094 | jsr flopver | Verify sector(s)
|
---|
| 2095 | add.l #16,a7 | Cleanup stack
|
---|
| 2096 | move.l d0,d7 | Save error code in d7
|
---|
| 2097 | tst.l d7 | Errors ?
|
---|
| 2098 | bne floprw13 | Jump if so
|
---|
| 2099 |
|
---|
| 2100 | move.l #buffer,(a7) | Address of sector buffer
|
---|
| 2101 | bsr itom | Convert first word of buffer
|
---|
| 2102 | tst.w d0 | Bad sectors ?
|
---|
| 2103 | beq floprw13 | Jump if not
|
---|
| 2104 |
|
---|
| 2105 | moveq.l #ERR16,d7 | ERROR -- "Bad sectors"
|
---|
| 2106 |
|
---|
[f40a309] | 2107 | floprw13: bra floprw15
|
---|
[4f508e6] | 2108 |
|
---|
| 2109 | .page
|
---|
| 2110 |
|
---|
| 2111 | floprw14: move.w d3,(a7) | Number of sectors
|
---|
| 2112 | move.w d5,-(a7) | Side number
|
---|
| 2113 | move.w d6,-(a7) | Track number
|
---|
| 2114 | move.w d4,-(a7) | Sector number
|
---|
| 2115 | move.w 16(a6),-(a7) | Drive number
|
---|
| 2116 | clr.l -(a7) | Filler
|
---|
| 2117 | move.l -6(a6),-(a7) | Sector buffer
|
---|
| 2118 | jsr floprd | Read floppy sector(s)
|
---|
| 2119 | add.l #16,a7 | Cleanup stack
|
---|
| 2120 | move.l d0,d7 | Save error code in d7
|
---|
| 2121 | move.l -6(a6),d0 | User buffer address
|
---|
| 2122 | cmp.l 10(a6),d0 | Is it the desired buffer ?
|
---|
| 2123 | beq floprw15 | Jump if so
|
---|
| 2124 |
|
---|
| 2125 | move.l 10(a6),(a7) | Push source address
|
---|
| 2126 | move.l -6(a6),-(a7) | Push destination address
|
---|
| 2127 | jsr fastcopy | Copy the sector
|
---|
| 2128 | addq.l #4,a7 | Cleanup stack
|
---|
| 2129 |
|
---|
| 2130 | floprw15: tst.l d7 | Error code set ?
|
---|
| 2131 | bge floprw16 | Jump if not
|
---|
| 2132 |
|
---|
| 2133 | move.w 16(a6),(a7) | Push drive number
|
---|
| 2134 | move.l d7,d0 | Error code
|
---|
| 2135 | move.w d0,-(a7) | ... onto stack
|
---|
| 2136 | jsr criter | Call critical error handler
|
---|
| 2137 | addq.l #2,a7 | Cleanup stack
|
---|
| 2138 | move.l d0,d7 | Get error code
|
---|
| 2139 |
|
---|
| 2140 | floprw16: cmp.l #RETRYIT,d7 | Re-try ?
|
---|
| 2141 | beq floprw11 | Jump if so
|
---|
| 2142 |
|
---|
| 2143 | tst.l d7 | Check error code
|
---|
| 2144 | bge floprw17 | Jump if no error
|
---|
| 2145 |
|
---|
| 2146 | move.l d7,d0 | Error code is the result
|
---|
[f40a309] | 2147 | bra floprw19
|
---|
[4f508e6] | 2148 |
|
---|
| 2149 | .page
|
---|
| 2150 |
|
---|
| 2151 | floprw17: move.w d3,d0 | Sector counter to d0
|
---|
| 2152 | ext.l d0 | Sign extend
|
---|
| 2153 | moveq.l #9,d1 | Times 512
|
---|
| 2154 | asl.l d1,d0 | ...
|
---|
| 2155 | add.l d0,10(a6) | Update buffer address
|
---|
| 2156 | add.w d3,14(a6) | Update sector number
|
---|
| 2157 | sub.w d3,18(a6) | Update sector count
|
---|
| 2158 |
|
---|
| 2159 | floprw18: tst.w 18(a6) | More sectors ?
|
---|
| 2160 | bne floprw03 | Jump if so
|
---|
| 2161 |
|
---|
| 2162 | clr.l d0 | Set "no error" as result
|
---|
| 2163 |
|
---|
| 2164 | floprw19: tst.l (a7)+ | Test top of stack
|
---|
| 2165 | movem.l (a7)+,d3-d7/a5 | Restore registers
|
---|
| 2166 | unlk a6 | Release stack space
|
---|
| 2167 | rts | Return to caller
|
---|
| 2168 |
|
---|
| 2169 | .page
|
---|
| 2170 |
|
---|
| 2171 | | itom -- Convert 8086 integer format to 680000 integer format
|
---|
| 2172 | | ---- ----------------------------------------------------
|
---|
| 2173 | itom: link a6,#-4 | Reserve stack for temps
|
---|
| 2174 | move.l 8(a6),a0 | Address of the number to a0
|
---|
| 2175 | move.b 1(a0),d0 | Get high byte
|
---|
| 2176 | ext.w d0 | Make it a word
|
---|
| 2177 | and.w #0xFF,d0 | Isolate bits 0..7
|
---|
| 2178 | asl.w #8,d0 | Shift in bits 8..15
|
---|
| 2179 | move.l 8(a6),a1 | Address of the number to a1
|
---|
| 2180 | move.b (a1),d1 | Get low byte
|
---|
| 2181 | ext.w d1 | Extend to word
|
---|
| 2182 | and.w #0xFF,d1 | Isolate bits 0..7
|
---|
| 2183 | or.w d1,d0 | Combine with bits 8..15
|
---|
| 2184 | unlk a6 | Release stack space
|
---|
| 2185 | rts | Return to caller
|
---|
| 2186 |
|
---|
| 2187 | .page
|
---|
| 2188 |
|
---|
| 2189 | | flopini -- Initialize floppy drive
|
---|
| 2190 | | ------- -----------------------
|
---|
| 2191 | flopini: lea dsb0,a1 | Point to dsb for drive A
|
---|
| 2192 | tst.w 12(a7) | Drive A wanted ?
|
---|
| 2193 | beq flopin01 | Jump if so
|
---|
| 2194 |
|
---|
| 2195 | lea dsb1,a1 | Drive B dsb address to a1
|
---|
| 2196 |
|
---|
| 2197 | flopin01: move.w seekrate,2(a1) | Get seek rate
|
---|
| 2198 | moveq.l #ERR01,d0 | Set default error number
|
---|
| 2199 | clr.w 0(a1) | Set track number to 0
|
---|
| 2200 | bsr floplock | Setup floppy parameters
|
---|
| 2201 | bsr select | Select drive and side
|
---|
| 2202 | move.w #0xFF00,0(a1)
|
---|
| 2203 | bsr restore | Restore the drive
|
---|
[f40a309] | 2204 | moveq.l #6,d7
|
---|
| 2205 | bsr hseek1
|
---|
| 2206 | bne flopin02
|
---|
[4f508e6] | 2207 |
|
---|
| 2208 | bsr restore | Restore the drive
|
---|
| 2209 | beq flopok | Jump if no error
|
---|
| 2210 |
|
---|
| 2211 | flopin02: bra flopfail | Jump to error handler
|
---|
| 2212 |
|
---|
| 2213 | .page
|
---|
| 2214 |
|
---|
| 2215 | | floprd -- Read floppy
|
---|
| 2216 | | ------ -----------
|
---|
| 2217 | floprd: bsr change | Disk changed ?
|
---|
| 2218 | moveq.l #ERR11,d0 | Set to "read error"
|
---|
| 2219 | bsr floplock | Set parameters
|
---|
| 2220 |
|
---|
| 2221 | floprd01: bsr select | Select drive and side
|
---|
| 2222 | bsr go2track | Position on track
|
---|
| 2223 | bne floprd02 | Try again on error
|
---|
| 2224 |
|
---|
| 2225 | move.w #ERR01,deferr | Set default error
|
---|
| 2226 | move.l edma(a5),a0 | Get final DMA address
|
---|
| 2227 | move.l cdma(a5),a2 | Get first DMA address
|
---|
| 2228 | move.l #0x40000,d7 | Set timeout counter
|
---|
| 2229 | move.b #FL_RM,DSKCMD(a6) | Start readng the disk
|
---|
| 2230 |
|
---|
| 2231 | floprd03: btst #0,DSKCMD(a6) | Disk busy yet ?
|
---|
| 2232 | bne floprd05 | Jump if so
|
---|
| 2233 |
|
---|
| 2234 | subq.l #1,d7 | Decrement timeout counter
|
---|
| 2235 | beq floprd04 | Jump if timed out
|
---|
| 2236 |
|
---|
| 2237 | bra floprd03 | Go try for busy again
|
---|
| 2238 |
|
---|
| 2239 | floprd05: move.l #0x40000,d7 | Reset timeout counter
|
---|
| 2240 | bra floprd09 | Go join main read loop
|
---|
| 2241 |
|
---|
| 2242 | floprd07: subq.l #1,d7 | Decrement timeout counter
|
---|
| 2243 | beq floprd04 | Jump if timed out
|
---|
| 2244 |
|
---|
| 2245 | btst #0,DSKCMD(a6) | Done yet ?
|
---|
| 2246 | beq floprd08 | Jump if so
|
---|
| 2247 |
|
---|
| 2248 | floprd09: btst #1,DSKCMD(a6) | DRQ set ?
|
---|
| 2249 | beq floprd07 | Jump if not
|
---|
| 2250 |
|
---|
| 2251 | move.b DSKDAT(a6),(a2)+ | Read the byte into the buffer
|
---|
| 2252 | cmp.l a0,a2 | Done reading ?
|
---|
| 2253 | bne floprd07 | Jump if not
|
---|
| 2254 |
|
---|
| 2255 | .page
|
---|
| 2256 |
|
---|
| 2257 | floprd08: move.b DSKCMD(a6),d0 | Read final status into d0
|
---|
| 2258 | and.b #0x1C,d0 | Mask for error bits
|
---|
| 2259 | beq flopok | Jump if no errors
|
---|
| 2260 |
|
---|
| 2261 | bsr errbits | Determine error code
|
---|
| 2262 |
|
---|
| 2263 | floprd02: cmp.w #1,retrycnt(a5) | Re-try ?
|
---|
| 2264 | bne floprd06 | Jump if not
|
---|
| 2265 |
|
---|
| 2266 | bsr reseek | Home and repeat the seek
|
---|
| 2267 |
|
---|
| 2268 | floprd06: subq.w #1,retrycnt(a5) | Update re-try count
|
---|
| 2269 | bpl floprd01 | Re-try if count still >0
|
---|
| 2270 |
|
---|
| 2271 | bra flopfail | Failure
|
---|
| 2272 |
|
---|
| 2273 | floprd04: move.w #ERR02,curerr(a5) | Set error code "not ready"
|
---|
| 2274 | bsr rs1772 | Reset the WD1772
|
---|
| 2275 | bra floprd02 | See if it can be retried
|
---|
| 2276 |
|
---|
| 2277 | .page
|
---|
| 2278 |
|
---|
| 2279 | | errbits -- Develop error code for floppy I/O error
|
---|
| 2280 | | ------- ---------------------------------------
|
---|
| 2281 | errbits: moveq.l #ERR13,d1 | Write protect ?
|
---|
| 2282 | btst #6,d0 | ...
|
---|
| 2283 | bne errbits1 | Jump if so
|
---|
| 2284 |
|
---|
| 2285 | moveq.l #ERR08,d1 | Record not found ?
|
---|
| 2286 | btst #4,d0 | ...
|
---|
| 2287 | bne errbits1 | Jump if so
|
---|
| 2288 |
|
---|
| 2289 | moveq.l #ERR04,d1 | CRC error ?
|
---|
| 2290 | btst #3,d0 | ...
|
---|
| 2291 | bne errbits1 | Jump if so
|
---|
| 2292 |
|
---|
| 2293 | moveq.l #ERR12,d1 | Lost data ?
|
---|
| 2294 | btst #2,d0 | ...
|
---|
| 2295 | bne errbits1 | Jump if so
|
---|
| 2296 |
|
---|
| 2297 | move.w deferr(a5),d1 | Use default error
|
---|
| 2298 |
|
---|
| 2299 | errbits1: move.w d1,curerr(a5) | ... as curerr
|
---|
| 2300 | rts | Return to caller
|
---|
| 2301 |
|
---|
| 2302 | .page
|
---|
| 2303 |
|
---|
| 2304 | | flopwr -- Floppy write
|
---|
| 2305 | | ------ ------------
|
---|
| 2306 | flopwr: bsr change | Check for disk change
|
---|
| 2307 | moveq.l #ERR10,d0 | Set write error
|
---|
| 2308 | bsr floplock | Set parameters
|
---|
| 2309 | move.w csect(a5),d0 | Get sector number in d0
|
---|
| 2310 | subq.w #1,d0 | ... -1
|
---|
| 2311 | or.w ctrack(a5),d0 | OR with track number
|
---|
| 2312 | or.w cside(a5),d0 | OR with side number
|
---|
| 2313 | bne flopwr01 | Jump if not boot sector
|
---|
| 2314 |
|
---|
| 2315 | moveq.l #2,d0 | Media change
|
---|
| 2316 | bsr setdmode | Set to "unsure"
|
---|
| 2317 |
|
---|
| 2318 | flopwr01: bsr select | Select drive and side
|
---|
| 2319 | bsr go2track | Seek
|
---|
| 2320 | bne flopwr06 | Re-try on error
|
---|
| 2321 |
|
---|
| 2322 | flopwr02: move.w #ERR01,curerr(a5) | Set for default error
|
---|
| 2323 | move.l cdma(a5),a2 | Get I/O address
|
---|
| 2324 | move.l #0x40000,d7 | Set timeout counter
|
---|
| 2325 | move.w ctrack(a5),d0 | Get track number
|
---|
| 2326 | cmpi.w #40,d0 | See if we need precomp
|
---|
| 2327 | bcs flopwr10 | Jump if not
|
---|
| 2328 |
|
---|
| 2329 | move.b #FL_WS,DSKCMD(a6) | Write with precomp
|
---|
| 2330 | bra flopwr08 | Go join main write loop
|
---|
| 2331 |
|
---|
| 2332 | flopwr10: move.b #FL_WS+FL_NC,DSKCMD(a6) | Write (no precomp)
|
---|
| 2333 |
|
---|
| 2334 | .page
|
---|
| 2335 |
|
---|
| 2336 | flopwr08: btst #0,DSKCMD(a6) | Busy yet ?
|
---|
| 2337 | bne flopwr09 | Jump if so
|
---|
| 2338 |
|
---|
| 2339 | subq.l #1,d7 | Decrement tiemout count
|
---|
| 2340 | bne flopwr08 | Jump if not timed out
|
---|
| 2341 |
|
---|
| 2342 | flopwr13: bsr rs1772 | Reset WD1772
|
---|
| 2343 | bra flopwr05 | See if we can retry
|
---|
| 2344 |
|
---|
| 2345 | flopwr11: btst #0,DSKCMD(a6) | Done ?
|
---|
| 2346 | beq flopwr04 | Jump if so
|
---|
| 2347 |
|
---|
| 2348 | flopwr09: btst #1,DSKCMD(a6) | DRQ set ?
|
---|
| 2349 | bne flopwr12 | Jump if so
|
---|
| 2350 |
|
---|
| 2351 | subq.l #1,d7 | Decrement timeout counter
|
---|
| 2352 | beq flopwr13 | Jump if timed out
|
---|
| 2353 |
|
---|
| 2354 | bra flopwr11 | Jump if not
|
---|
| 2355 |
|
---|
| 2356 | flopwr12: move.b (a2)+,DSKDAT(a6) | Write byte to floppy
|
---|
| 2357 | bra flopwr11 | Go get the next one
|
---|
| 2358 |
|
---|
| 2359 | .page
|
---|
| 2360 |
|
---|
| 2361 | flopwr04: move.b DSKCMD(a6),d0 | Get floppy status
|
---|
| 2362 | bsr errbits | Set error code
|
---|
| 2363 | btst #6,d0 | Write protect error ?
|
---|
| 2364 | bne flopfail | Fail if so
|
---|
| 2365 |
|
---|
| 2366 | and.b #0x5C,d0 | Mask error bits
|
---|
| 2367 | bne flopwr05 | Jump if an error occurred
|
---|
| 2368 |
|
---|
| 2369 | addq.w #1,csect(a5) | Update sector number
|
---|
| 2370 | add.l #512,cdma(a5) | Update DMA address
|
---|
| 2371 | subq.w #1,ccount(a5) | Decrement sector count
|
---|
| 2372 | beq flopok | Jump if zero -- done
|
---|
| 2373 |
|
---|
| 2374 | bsr select1 | Set sector and DMA pointer
|
---|
| 2375 | bra flopwr02 | Write next sector
|
---|
| 2376 |
|
---|
| 2377 | flopwr05: cmp.w #1,retrycnt(a5) | Second re-try ?
|
---|
| 2378 | bne flopwr07 | Jump if not
|
---|
| 2379 |
|
---|
| 2380 | flopwr06: bsr reseek | Restore and re-seek
|
---|
| 2381 |
|
---|
| 2382 | flopwr07: subq.w #1,retrycnt(a5) | Update re-try count
|
---|
| 2383 | bpl flopwr01 | Re-try if still >0
|
---|
| 2384 |
|
---|
| 2385 | bra flopfail | ... else fail
|
---|
| 2386 |
|
---|
| 2387 | .page
|
---|
| 2388 |
|
---|
| 2389 | | flopfmt -- Format a track on the floppy
|
---|
| 2390 | | ------- ----------------------------
|
---|
| 2391 | flopfmt: cmp.l #FMAGIC,22(a7) | Is the magic right ?
|
---|
| 2392 | bne flopfail | Fail immediately if not
|
---|
| 2393 |
|
---|
| 2394 | bsr change | Check for disk change
|
---|
| 2395 | moveq.l #ERR01,d0 | Set default error number
|
---|
| 2396 | bsr floplock | Set parameters
|
---|
| 2397 | bsr select | Select drive and side
|
---|
| 2398 | move.w 14(a7),spt(a5) | Set sectors per track,
|
---|
| 2399 | move.w 20(a7),interlv(a5) | ... interleave,
|
---|
| 2400 | move.w 26(a7),virgin(a5) | ... initial data,
|
---|
| 2401 | moveq.l #2,d0 | Disk changed
|
---|
| 2402 | bsr setdmode | ...
|
---|
| 2403 | bsr hseek | Seek
|
---|
| 2404 | bne flopfail | Fail if seek error occurs
|
---|
| 2405 |
|
---|
| 2406 | move.w ctrack(a5),0(a1) | Current track to DSB
|
---|
| 2407 | move.w #ERR01,curerr(a5) | Default to curerr
|
---|
| 2408 | bsr fmtrack | Format the track
|
---|
| 2409 | bne flopfail | Fail if error occurs
|
---|
| 2410 |
|
---|
| 2411 | move.w spt(a5),ccount(a5) | Use spt as ccount
|
---|
| 2412 | move.w #1,csect(a5) | Start with sector 1
|
---|
| 2413 | bsr verify1 | Verify the sector
|
---|
| 2414 | move.l cdma(a5),a2 | Get bad sector list
|
---|
| 2415 | tst.w (a2) | Any bad ones ?
|
---|
| 2416 | beq flopok | Jump if not
|
---|
| 2417 |
|
---|
| 2418 | move.w #ERR16,curerr(a5) | ERROR -- "bad sectors"
|
---|
[f40a309] | 2419 | bra flopfail
|
---|
[4f508e6] | 2420 |
|
---|
| 2421 | .page
|
---|
| 2422 |
|
---|
| 2423 | | fmtrack -- Do the dirty work of formatting a track
|
---|
| 2424 | | ------- ---------------------------------------
|
---|
| 2425 | fmtrack: move.w #ERR10,deferr(a5) | Set default error number
|
---|
| 2426 | move.w #1,d3 | Start with sector 1
|
---|
| 2427 | move.l cdma(a5),a2 | Get track buffer address
|
---|
| 2428 | move.w #60-1,d1 | Set count = 60
|
---|
| 2429 | move.b #0x4E,d0 | Write 0x4E as initial gap
|
---|
| 2430 | bsr wmult | ...
|
---|
| 2431 |
|
---|
| 2432 | fmtrak01: move.w d3,d4 | Save sector number in d4
|
---|
| 2433 |
|
---|
| 2434 | fmtrak02: move.w #12-1,d1 | Set count = 12
|
---|
| 2435 | clr.b d0 | Write 0x00 as sync
|
---|
| 2436 | bsr wmult | ...
|
---|
| 2437 | move.w #3-1,d1 | Set count = 3
|
---|
| 2438 | move.b #0xF5,d0 | Write 0xF5's
|
---|
| 2439 | bsr wmult | ...
|
---|
| 2440 | move.b #0xFE,(a2)+ | Write 0xFE (address mark)
|
---|
| 2441 | move.b ctrack+1,(a2)+ | Write track #
|
---|
| 2442 | move.b cside+1,(a2)+ | Write side #
|
---|
| 2443 | move.b d4,(a2)+ | Write sector #
|
---|
| 2444 | move.b #2,(a2)+ | Write sector size code
|
---|
| 2445 | move.b #0xF7,(a2)+ | Write checksum code
|
---|
| 2446 | move.w #22-1,d1 | Set count = 22
|
---|
| 2447 | move.b #0x4E,d0 | Write gap
|
---|
| 2448 | bsr wmult | ...
|
---|
| 2449 | move.w #12-1,d1 | Set count = 12
|
---|
| 2450 | clr.b d0 | Write 0x00 as sync
|
---|
| 2451 | bsr wmult | ...
|
---|
| 2452 | move.w #3-1,d1 | Set count = 3
|
---|
| 2453 | move.b #0xF5,d0 | Write 0xF5's
|
---|
| 2454 | bsr wmult | ...
|
---|
| 2455 | move.b #0xFB,(a2)+ | Write DAM
|
---|
| 2456 | move.w #256-1,d1 | Set count = 256 words
|
---|
| 2457 |
|
---|
| 2458 | .page
|
---|
| 2459 |
|
---|
| 2460 | fmtrak03: move.b virgin(a5),(a2)+ | Write virgin data in buffer
|
---|
| 2461 | move.b virgin+1(a5),(a2)+ | ...
|
---|
| 2462 | dbf d1,fmtrak03 | ...
|
---|
| 2463 |
|
---|
| 2464 | move.b #0xF7,(a2)+ | Write CRC code
|
---|
| 2465 | move.w #40-1,d1 | Set count = 40
|
---|
| 2466 | move.b #0x4E,d0 | Write gap
|
---|
| 2467 | bsr wmult | ...
|
---|
| 2468 | add.w interlv(a5),d4 | Add interleave to sector #
|
---|
| 2469 | cmp.w spt(a5),d4 | Check against spt
|
---|
| 2470 | ble fmtrak02 | Jump if not >
|
---|
| 2471 |
|
---|
| 2472 | addq.w #1,d3 | Starting sector +1
|
---|
[f40a309] | 2473 | cmp.w interlv(a5),d3
|
---|
| 2474 | ble fmtrak01
|
---|
[4f508e6] | 2475 |
|
---|
| 2476 | move.w #1401-1,d1 | Set count = 1401
|
---|
| 2477 | move.b #0x4E,d0 | Write final gap
|
---|
| 2478 | bsr wmult | ...
|
---|
| 2479 | move.l cdma(a5),a2 | Get buffer address
|
---|
| 2480 | move.l #0x40000,d7 | Set timeout count
|
---|
| 2481 | move.w ctrack(a5),d0 | Get track number
|
---|
| 2482 | cmpi.w #40,d0 | Do we need precomp ?
|
---|
| 2483 | bcs fmtrak08 | Jump if not
|
---|
| 2484 |
|
---|
| 2485 | move.b #FL_WT,DSKCMD(a6) | Start format with precomp
|
---|
| 2486 | bra fmtrak07 | Go join main format loop
|
---|
| 2487 |
|
---|
| 2488 | fmtrak08: move.b #FL_WT+FL_NC,DSKCMD(a6) | Start format without precomp
|
---|
| 2489 |
|
---|
| 2490 | .page
|
---|
| 2491 |
|
---|
| 2492 | fmtrak07: btst #0,DSKCMD(a6) | Busy yet ?
|
---|
| 2493 | bne fmtrak09 | Jump if so
|
---|
| 2494 |
|
---|
| 2495 | fmtrak04: subq.l #1,d7 | Decrement timeout counter
|
---|
| 2496 | bne fmtrak07 | Jump if not timed out
|
---|
| 2497 |
|
---|
| 2498 | fmtrak05: bsr rs1772 | Reset WD1772
|
---|
| 2499 | moveq.l #1,d7 | Set error flag
|
---|
| 2500 | rts | Return to caller
|
---|
| 2501 |
|
---|
| 2502 | fmtrak11: btst #0,DSKCMD(a6) | Done ?
|
---|
| 2503 | beq fmtrak06 | Jump if so
|
---|
| 2504 |
|
---|
| 2505 | fmtrak09: btst #1,DSKCMD(a6) | DRQ set ?
|
---|
| 2506 | bne fmtrak10 | Jump if so
|
---|
| 2507 |
|
---|
| 2508 | subq.l #1,d7 | Decrement timeout coutner
|
---|
| 2509 | beq fmtrak05 | Jump if timed out
|
---|
| 2510 |
|
---|
| 2511 | bra fmtrak11 | Go check again
|
---|
| 2512 |
|
---|
| 2513 | fmtrak10: move.b (a2)+,DSKDAT(a6) | Write a byte of format
|
---|
| 2514 | bra fmtrak11 | Go wait for DRQ
|
---|
| 2515 |
|
---|
| 2516 | fmtrak06: move.b DSKCMD(a6),d0 | Get final status
|
---|
| 2517 | bsr errbits | Set possible error code
|
---|
| 2518 | andi.b #0x44,d0 | Check error bits
|
---|
| 2519 | rts | Return to caller with status
|
---|
| 2520 |
|
---|
| 2521 | | wmult -- write multiple bytes into the track buffer
|
---|
| 2522 | | ----- ------------------------------------------
|
---|
| 2523 | wmult: move.b d0,(a2)+ | Move a byte into the buffer
|
---|
| 2524 | dbf d1,wmult | Loop until we're done
|
---|
| 2525 |
|
---|
| 2526 | rts | Return to caller
|
---|
| 2527 |
|
---|
| 2528 | .page
|
---|
| 2529 |
|
---|
| 2530 | | flopver -- verify sector(s) on a floppy
|
---|
| 2531 | | ------- ----------------------------
|
---|
| 2532 | flopver: bsr change | Check for disk change
|
---|
| 2533 | moveq.l #ERR11,d0 | Set default to "read error"
|
---|
| 2534 | bsr floplock | Set parameters
|
---|
| 2535 | bsr select | Select drive and side
|
---|
| 2536 | bsr go2track | Seek
|
---|
| 2537 | bne flopfail | Jump if seek error
|
---|
| 2538 |
|
---|
| 2539 | bsr verify1 | Verify the data
|
---|
| 2540 | bra flopok | Done
|
---|
| 2541 |
|
---|
| 2542 | | verify1 -- Verify the data for a sector
|
---|
| 2543 | | ------- ----------------------------
|
---|
| 2544 | verify1: move.w #ERR11,deferr(a5) | Set default = "read error"
|
---|
| 2545 | move.l cdma(a5),a2 | Pointer for bad sector list
|
---|
| 2546 | add.l #512,cdma(a5) | Update by length of a sector
|
---|
| 2547 |
|
---|
| 2548 | verify01: move.w #2,retrycnt(a5) | Set retrycnt for 2 attempts
|
---|
| 2549 | move.w csect(a5),d7 | Get sector nubmer
|
---|
| 2550 | move.b d7,DSKSEC(a6) | Send to WD1772
|
---|
| 2551 |
|
---|
| 2552 | verify02: moveq.l #0,d6 | Clear bad compare flag
|
---|
| 2553 | move.l cdma(a5),a0 | Get compare address
|
---|
| 2554 | move.l #0x40000,d7 | Set timeout counter
|
---|
| 2555 | move.b #FL_RS,DSKCMD(a6) | Start the read
|
---|
| 2556 |
|
---|
| 2557 | verify08: btst #0,DSKCMD(a6) | Busy yet ?
|
---|
| 2558 | bne verify09 | Jump if so
|
---|
| 2559 |
|
---|
| 2560 | subq.l #1,d7 | Decrement timeout counter
|
---|
| 2561 | beq verify13 | Jump if timed out
|
---|
| 2562 |
|
---|
| 2563 | bra verify08 | Wait for busy some more
|
---|
| 2564 |
|
---|
| 2565 | verify09: move.l #0x40000,d7 | Reset timeout counter
|
---|
| 2566 | bra verify11 | Go join main compare loop
|
---|
| 2567 |
|
---|
| 2568 | verify10: subq.l #1,d7 | Decrement timeout counter
|
---|
| 2569 | beq verify13 | Jump if timed out
|
---|
| 2570 |
|
---|
| 2571 | btst #0,DSKCMD(a6) | Done yet ?
|
---|
| 2572 | beq verify12 | Jump if so
|
---|
| 2573 |
|
---|
| 2574 | .page
|
---|
| 2575 |
|
---|
| 2576 | verify11: btst #1,DSKCMD(a6) | DRQ set ?
|
---|
| 2577 | beq verify10 | Jump if not
|
---|
| 2578 |
|
---|
| 2579 | move.b DSKDAT(a6),d0 | Read data
|
---|
| 2580 | bra verify10 | Continue reading
|
---|
| 2581 |
|
---|
| 2582 | verify12: move.b DSKCMD(a6),d0 | Get final status
|
---|
| 2583 | bsr errbits | Determine error code
|
---|
| 2584 | and.b #0x1C,d0 | Mask RNF, CRC, LOST
|
---|
| 2585 | bne verify06 | Jump to re-try if any set
|
---|
| 2586 |
|
---|
| 2587 | verify05: addq.w #1,csect(a5) | Update sector number
|
---|
| 2588 | subq.w #1,ccount(a5) | Update sector count
|
---|
| 2589 | bne verify01 | Jump if more to do
|
---|
| 2590 |
|
---|
| 2591 | sub.l #512,cdma(a5) | Reset DMA pointer
|
---|
| 2592 | clr.w (a2) | Set NIL in bad sector list
|
---|
| 2593 | rts | Return to caller
|
---|
| 2594 |
|
---|
| 2595 | verify06: cmp.w #1,retrycnt(a5) | Is it the 2nd attempt ?
|
---|
| 2596 | bne verify07 | Jump if not
|
---|
| 2597 |
|
---|
| 2598 | bsr reseek | Restore and re-seek
|
---|
| 2599 |
|
---|
| 2600 | verify07: subq.w #1,retrycnt(a5) | Decrement retry count
|
---|
| 2601 | bpl verify02 | Re-try if still positive
|
---|
| 2602 |
|
---|
| 2603 | move.w csect(a5),(a2)+ | Add to bad sector list
|
---|
| 2604 | bra verify05 | Go do next sector
|
---|
| 2605 |
|
---|
| 2606 | verify13: move.w #ERR02,curerr(a5) | Set timeout error code
|
---|
| 2607 | bsr rs1772 | Reset WD1772
|
---|
| 2608 | bra verify06 | See if we can retry it
|
---|
| 2609 |
|
---|
| 2610 | .page
|
---|
| 2611 |
|
---|
| 2612 | | flopvbl -- Floppy VBL timer interrupt handling
|
---|
| 2613 | | ------- -----------------------------------
|
---|
| 2614 | flopvbl: movem.l d0-d1/a0-a1/a5-a6,-(a7) | Save registers
|
---|
| 2615 | sub.l a5,a5 | Clear a5 for use as RAM base
|
---|
| 2616 | lea FLOPPY,a6 | Base of floppy regs
|
---|
| 2617 | st motoron(a5) | Set motoron flag
|
---|
| 2618 | move.l frclock(a5),d0 | Get interrupt count
|
---|
| 2619 | move.b d0,d1 | ...
|
---|
| 2620 | and.b #7,d1 | ... MOD 8
|
---|
| 2621 | bne flopvb02 | Jump if not 8th int
|
---|
| 2622 |
|
---|
| 2623 | move.w sr,-(a7) | Save interrupt level
|
---|
| 2624 | ori.w #IPL7,sr | Mask off interrupts
|
---|
| 2625 | clr.w deslflag(a5) | Clear deselect flag
|
---|
| 2626 | move.b mc1iorec+cfr1,d0 | Get port status
|
---|
| 2627 | ori.b #1,d0 | Set drive select bit
|
---|
| 2628 | move.b d0,MC1ACIA+ACIA_CFR | Send drive select to port
|
---|
| 2629 | move.b d0,mc1iorec+cfr1 | Store updated port status
|
---|
| 2630 | move.w (a7)+,sr | Restore interrupt level
|
---|
| 2631 | lea wpstatus(a5),a0 | Point at wpstatus for drive
|
---|
| 2632 | lea dsb0(a5),a1 | Point at dsb0
|
---|
| 2633 | move.b DSKCMD(a6),d0 | Read WD1772 status
|
---|
| 2634 | btst #6,d0 | Test write protect bit
|
---|
| 2635 | sne (a0) | ... and save
|
---|
| 2636 |
|
---|
| 2637 | .page
|
---|
| 2638 |
|
---|
| 2639 | flopvb02: move.w wpstatus(a5),d0 | Get wpstatus of drive A
|
---|
| 2640 | or.w d0,wplatch(a5) | OR into wplatch
|
---|
| 2641 | tst.w deslflag(a5) | Floppies already deselected ?
|
---|
| 2642 | bne flopvb03 | Jump if so
|
---|
| 2643 |
|
---|
| 2644 | move.b DSKCMD(a6),d0 | Read WD1772 status
|
---|
| 2645 | btst #7,d0 | Motor-on bit set ?
|
---|
| 2646 | bne flopvb04 | Don't de-select if it is
|
---|
| 2647 |
|
---|
| 2648 | move.w sr,-(a7) | Save sr
|
---|
| 2649 | ori.w #IPL7,sr | Disable interrupts
|
---|
| 2650 | move.b mc1iorec+cfr1,d0 | Get cfr1 image
|
---|
| 2651 | bclr #0,d0 | Clear d0 (drive select)
|
---|
| 2652 | move.b d0,mc1iorec+cfr1 | Save new value
|
---|
| 2653 | move.b d0,MC1ACIA+ACIA_CFR | Send to hardware
|
---|
| 2654 | move.w (a7)+,sr | Restore sr (enable ints)
|
---|
| 2655 | move.w #1,deslflag(a5) | Set the deselect flag
|
---|
| 2656 |
|
---|
| 2657 | flopvb03: clr.w motoron(a5) | Clear motoron flag
|
---|
| 2658 |
|
---|
| 2659 | flopvb04: movem.l (a7)+,d0-d1/a0-a1/a5-a6 | Restore registers
|
---|
| 2660 | rts | Return to caller
|
---|
| 2661 |
|
---|
| 2662 | .page
|
---|
| 2663 |
|
---|
| 2664 | | floplock -- Setup floppy parameters
|
---|
| 2665 | | -------- -----------------------
|
---|
| 2666 | floplock: movem.l d3-d7/a3-a6,flpregs | Save registers
|
---|
| 2667 | move.w sr,flpsrsv | Save sr
|
---|
| 2668 | ori.w #IPL7,sr | Disable ints
|
---|
| 2669 | sub.l a5,a5 | Clear a5
|
---|
| 2670 | lea FLOPPY,a6 | Base of floppy registers
|
---|
| 2671 | st motoron(a5) | Set motoron flag
|
---|
| 2672 | move.w d0,deferr(a5) | Set default error code
|
---|
| 2673 | move.w d0,curerr(a5) | ... current error code
|
---|
| 2674 | move.w #1,flock(a5) | Disable flopvbl routine
|
---|
| 2675 | move.l 8(a7),cdma(a5) | Set cdma
|
---|
| 2676 | move.w 16(a7),cdev(a5) | ... cdev
|
---|
| 2677 | move.w 18(a7),csect(a5) | ... csect
|
---|
| 2678 | move.w 20(a7),ctrack(a5) | ... ctrack
|
---|
| 2679 | move.w 22(a7),cside(a5) | ... cside
|
---|
| 2680 | move.w 24(a7),ccount(a5) | ... ccount
|
---|
| 2681 | move.w #2,retrycnt(a5) | ... retrycnt
|
---|
| 2682 | lea dsb0(a5),a1 | Address of dsb0
|
---|
| 2683 | tst.w cdev(a5) | Drive A ?
|
---|
| 2684 | beq floplk01 | Jump if so
|
---|
| 2685 |
|
---|
| 2686 | lea dsb1(a5),a1 | Drive B, use dsb1
|
---|
| 2687 |
|
---|
| 2688 | floplk01: moveq.l #0,d7 | Clear out d7
|
---|
| 2689 | move.w ccount(a5),d7 | Get ccount
|
---|
| 2690 | lsl.w #8,d7 | ... | sector length (512)
|
---|
| 2691 | lsl.w #1,d7 | ...
|
---|
| 2692 | move.l cdma(a5),a0 | Get DMA start address
|
---|
| 2693 | add.l d7,a0 | Add length of sectors
|
---|
| 2694 | move.l a0,edma(a5) | Set edma (end DMA address)
|
---|
| 2695 | tst.w 0(a1) | Check current track
|
---|
| 2696 | bpl floplk03 | Jump if >= 0
|
---|
| 2697 |
|
---|
| 2698 | bsr select | Select the drive
|
---|
| 2699 | clr.w 0(a1) | Set current track to 0
|
---|
| 2700 | bsr restore | Restore drive to track 0
|
---|
| 2701 | beq floplk03 | Jump if OK
|
---|
| 2702 |
|
---|
| 2703 | moveq.l #10,d7 | Seek out to track 10
|
---|
| 2704 | bsr hseek1 | ...
|
---|
| 2705 | bne floplk02 | Jump if an error occurred
|
---|
| 2706 |
|
---|
| 2707 | bsr restore | Try the restore again
|
---|
| 2708 | beq floplk03 | Jump if OK
|
---|
| 2709 |
|
---|
| 2710 | floplk02: move.w #0xFF00,0(a1) | Recalibrate error
|
---|
| 2711 |
|
---|
| 2712 | floplk03: rts | Return to caller
|
---|
| 2713 |
|
---|
| 2714 | .page
|
---|
| 2715 |
|
---|
| 2716 | | flopfail -- Floppy I/O failure exit
|
---|
| 2717 | | -------- -----------------------
|
---|
| 2718 | flopfail: moveq.l #1,d0 | Set media change to "unsure"
|
---|
| 2719 | bsr setdmode | ...
|
---|
| 2720 | move.w curerr(a5),d0 | Get curerr
|
---|
| 2721 | ext.l d0 | ...
|
---|
| 2722 | bra flopok1 | Go set end status
|
---|
| 2723 |
|
---|
| 2724 | | flopok -- Floppy I/O success exit
|
---|
| 2725 | | ------ -----------------------
|
---|
| 2726 | flopok: clr.l d0 | Set error code = 0 (no error)
|
---|
| 2727 |
|
---|
| 2728 | flopok1: move.l d0,-(a7) | Push code onto stack
|
---|
| 2729 | move.w 0(a1),d7 | Get track number
|
---|
| 2730 | move.b d7,DSKDAT(a6) | Send to WD1772
|
---|
| 2731 | move.w #FL_SK,d6 | Seek command to d6
|
---|
| 2732 | bsr flopcmds | Send command
|
---|
| 2733 | move.w cdev(a5),d0 | Get drive number
|
---|
| 2734 | lsl.w #2,d0 | Use as index
|
---|
| 2735 | lea acctim(a5),a0 | ... into acctim
|
---|
| 2736 | move.l _hz_200(a5),0(a0,d0) | Set last access time
|
---|
[f40a309] | 2737 | cmp.w #1,nflops(a5)
|
---|
| 2738 | bne flopok01
|
---|
[4f508e6] | 2739 |
|
---|
| 2740 | move.l _hz_200(a5),4(a0) | Time for other drive
|
---|
| 2741 |
|
---|
| 2742 | flopok01: move.w flpsrsv,sr | Restore sr (enable ints)
|
---|
| 2743 | move.l (a7)+,d0 | Restore error number to d0
|
---|
| 2744 | movem.l flpregs,d3-d7/a3-a6 | Restore registers
|
---|
| 2745 | clr.w flock | Release flopvbl routine
|
---|
| 2746 | rts | Return to caller
|
---|
| 2747 |
|
---|
| 2748 | .page
|
---|
| 2749 |
|
---|
| 2750 | | hseek -- seek to track in ctrack
|
---|
| 2751 | | ----- -----------------------
|
---|
| 2752 | hseek: move.w ctrack,d7 | Get ctrack
|
---|
| 2753 |
|
---|
| 2754 | | hseek1 -- seek to track in d7
|
---|
| 2755 | | ------ -------------------
|
---|
| 2756 | hseek1: move.w #ERR10,curerr | Set curerr = "seek error"
|
---|
| 2757 | move.b d7,DSKDAT(a6) | Send track number to WD1772
|
---|
| 2758 | move.w #FL_SK,d6 | Seek command
|
---|
| 2759 | bra flopcmds | Go send command to WD1772
|
---|
| 2760 |
|
---|
| 2761 | | reseek -- Restore, then re-seek
|
---|
| 2762 | | ------ ---------------------
|
---|
| 2763 | reseek: move.w #ERR10,curerr | Set curerr = "seek error"
|
---|
| 2764 | bsr restore | Restore
|
---|
| 2765 | bne reseek01 | Jump if error occurred
|
---|
| 2766 |
|
---|
| 2767 | clr.w 0(a1) | Clear current track to 0
|
---|
| 2768 | move.b #0,DSKTRK(a6) | Send track to WD1772
|
---|
| 2769 | move.b #5,DSKDAT(a6) | Setup to seek to track 5
|
---|
| 2770 | move.w #FL_SK,d6 | Seek command
|
---|
| 2771 | bsr flopcmds | Seek
|
---|
| 2772 | bne reseek01 | Jump if error
|
---|
| 2773 |
|
---|
| 2774 | move.w #5,0(a1) | Update current track = 5
|
---|
| 2775 |
|
---|
| 2776 | | go2track -- seek with verify
|
---|
| 2777 | | -------- ----------------
|
---|
| 2778 | go2track: move.w #ERR10,curerr(a5) | Set curerr = "seek error"
|
---|
| 2779 | move.w ctrack(a5),d7 | Put track # in d7
|
---|
| 2780 | move.b d7,DSKDAT(a6) | Send track to WD1772
|
---|
| 2781 | moveq.l #FL_SV,d6 | Seek/verify command
|
---|
| 2782 | bsr flopcmds | Send command to floppy
|
---|
| 2783 | bne reseek01 | Jump if error occurred
|
---|
| 2784 |
|
---|
| 2785 | move.w ctrack(a5),0(a1) | Update track number in dsb
|
---|
| 2786 | and.b #0x18,d7 | Test for RNF, CRC, LOST
|
---|
| 2787 |
|
---|
| 2788 | reseek01: rts | Return to caller
|
---|
| 2789 |
|
---|
| 2790 | .page
|
---|
| 2791 |
|
---|
| 2792 | | restore -- Restore to track 0
|
---|
| 2793 | | ------- ------------------
|
---|
| 2794 | restore: clr.w d6 | Restore command
|
---|
| 2795 | bsr flopcmds | Send to WD1772
|
---|
| 2796 | bne restor01 | Jump if an error occurred
|
---|
| 2797 |
|
---|
| 2798 | btst #2,d7 | Check track 0 bit
|
---|
| 2799 | eori #0004,sr | Invert Z flag in 680000 sr
|
---|
| 2800 | bne restor01 | Jump if not track 0
|
---|
| 2801 |
|
---|
| 2802 | clr.w 0(a1) | Set track = 0 in dsb
|
---|
| 2803 |
|
---|
| 2804 | restor01: rts | Return to caller
|
---|
| 2805 |
|
---|
| 2806 | | flopcmds -- Send command to WD1772 floppy controller
|
---|
| 2807 | | -------- ----------------------------------------
|
---|
| 2808 | flopcmds: move.w 2(a1),d0 | Get seek rate from dsb
|
---|
| 2809 | and.b #0x3,d0 | ...
|
---|
| 2810 | or.b d0,d6 | OR into command word
|
---|
| 2811 | move.l #0x40000,d7 | Set timeout counter
|
---|
| 2812 | btst #7,DSKCMD(a6) | Motor on ?
|
---|
| 2813 | bne flopcm01 | Jump if so
|
---|
| 2814 |
|
---|
| 2815 | move.l #0x60000,d7 | Set longer timeout count
|
---|
| 2816 |
|
---|
| 2817 | flopcm01: move.b d6,DSKCMD(a6) | Write command from d6
|
---|
| 2818 |
|
---|
| 2819 | move.l #0x1000,d0 | Set initial busy timeout in d0
|
---|
| 2820 |
|
---|
| 2821 | flopcm04: btst #0,DSKCMD(a6) | Controller busy yet ?
|
---|
| 2822 | bne flopcm02 | Jump if so
|
---|
| 2823 |
|
---|
| 2824 | subq.l #1,d0 | Decrement timeout counter
|
---|
| 2825 | beq flopcm03 | Jump if timed out
|
---|
| 2826 |
|
---|
| 2827 | bra flopcm04 | Wait for busy some more
|
---|
| 2828 |
|
---|
| 2829 | flopcm02: subq.l #1,d7 | Decrement timeout counter
|
---|
| 2830 | beq flopcm03 | Jump if timed out
|
---|
| 2831 |
|
---|
| 2832 | btst #0,DSKCMD(a6) | WD1772 done ?
|
---|
| 2833 | bne flopcm02 | Jump if not
|
---|
| 2834 |
|
---|
| 2835 | clr.l d7 | Clear out upper bits of d7
|
---|
| 2836 | move.b DSKCMD(a6),d7 | Read status into LS byte of d7
|
---|
| 2837 | clr.l d6 | Clear error flag in d6
|
---|
| 2838 | rts | Return to caller
|
---|
| 2839 |
|
---|
| 2840 | flopcm03: bsr rs1772 | Reset WD1772 (end transfer)
|
---|
| 2841 | moveq.l #1,d6 | Set error flag in d6
|
---|
| 2842 | rts | Return to caller
|
---|
| 2843 |
|
---|
| 2844 | .page
|
---|
| 2845 |
|
---|
| 2846 | | rs1772 -- Reset WD1772 floppy controller
|
---|
| 2847 | | ------ ------------------------------
|
---|
| 2848 | rs1772: move.b #FL_FR,DSKCMD(a6) | Send reset to WD1772
|
---|
| 2849 | move.w #15,d7 | Set delay count
|
---|
| 2850 |
|
---|
| 2851 | rs1772a: dbf d7,rs1772a | Delay a while
|
---|
| 2852 | rts | Return to caller
|
---|
| 2853 |
|
---|
| 2854 | | select -- Select drive and side
|
---|
| 2855 | | ------ ----------------------
|
---|
| 2856 | select: move.w sr,-(a7) | Save sr on stack
|
---|
| 2857 | ori.w #IPL7,sr | Disable interrupts
|
---|
| 2858 | clr.w deslflag(a5) | Clear deselect flag
|
---|
| 2859 | move.b mc1iorec+cfr1,d0 | Get current MC1 cfr1 image
|
---|
| 2860 | ori.b #1,d0 | Select drive (we only have 1)
|
---|
| 2861 | move.b d0,mc1iorec+cfr1 | Store updated image
|
---|
| 2862 | move.b d0,MC1ACIA+ACIA_CFR | Send it to the MC1 ACIA
|
---|
| 2863 | move.w cside(a5),d0 | Get side number (LS bit)
|
---|
| 2864 | and.w #1,d0 | Mask off garbage bits
|
---|
| 2865 | andi.b #0xFE,mc2iorec+cfr1 | Mask off D0 in MC2 cfr1 image
|
---|
| 2866 | or.b mc2iorec+cfr1,d0 | OR side with mc2iorec cfr1
|
---|
| 2867 | move.b d0,mc2iorec+cfr1 | Store updated cfr1 image
|
---|
| 2868 | move.b d0,MC2ACIA+ACIA_CFR | Send it to the MC2 ACIA
|
---|
| 2869 | move.w (a7)+,sr | Restore interrupts
|
---|
| 2870 | move.w 0(a1),d7 | Get track from dsb
|
---|
| 2871 | move.b d7,DSKTRK(a6) | Send it to the WD1772
|
---|
| 2872 | clr.b tmpdma(a5) | Clear bits 31..24 of tmpdma
|
---|
| 2873 |
|
---|
| 2874 | select1: move.w csect(a5),d7 | Get sector number
|
---|
| 2875 | move.b d7,DSKSEC(a6) | Send it to the WD1772
|
---|
| 2876 | move.l cdma(a5),a0 | Setup transfer address in a0
|
---|
| 2877 | rts | Return to caller
|
---|
| 2878 |
|
---|
| 2879 | .page
|
---|
| 2880 |
|
---|
| 2881 | | change -- Check for disk change status
|
---|
| 2882 | | ------ ----------------------------
|
---|
| 2883 | change: cmp.w #1,nflops | Check # of floppies
|
---|
[f40a309] | 2884 | bne change02
|
---|
[4f508e6] | 2885 |
|
---|
| 2886 | move.w 16(a7),d0 | Drive number to d0
|
---|
[f40a309] | 2887 | cmp.w disknum,d0
|
---|
[4f508e6] | 2888 | beq change01 | Jump if =
|
---|
| 2889 |
|
---|
| 2890 | move.w d0,-(a7) | Stack drive number
|
---|
| 2891 | move.w #ERR17,-(a7) | Stack error code
|
---|
| 2892 | bsr criter | Do critical error routine
|
---|
| 2893 | addq.w #4,a7 | Cleanup stack
|
---|
| 2894 | move.w #0xFFFF,wplatch | Status for drives = "unsure"
|
---|
| 2895 | move.w 16(a7),disknum | Save disk number
|
---|
| 2896 |
|
---|
| 2897 | change01: clr.w 16(a7) | Clear disk number
|
---|
| 2898 |
|
---|
| 2899 | change02: rts | Return to caller
|
---|
| 2900 |
|
---|
| 2901 | | setdmode -- Set drive change mode
|
---|
| 2902 | | -------- ---------------------
|
---|
| 2903 | setdmode: lea dskmode,a0 | Point at disk mode table
|
---|
| 2904 | move.b d0,-(a7) | Save mode on stack
|
---|
| 2905 | move.w cdev(a5),d0 | Get drive number
|
---|
| 2906 | move.b (a7)+,0(a0,d0) | Set drive mode / cleanup stack
|
---|
| 2907 | rts | Return to caller
|
---|
| 2908 |
|
---|
| 2909 | .page
|
---|
| 2910 |
|
---|
| 2911 | | bootload -- Load boot sector
|
---|
| 2912 | | -------- ----------------
|
---|
| 2913 | bootload: link a6,#0 | Link stack frames
|
---|
| 2914 | movem.l d6-d7,-(a7) | Save registers
|
---|
| 2915 | jsr _hdvini | Init drive
|
---|
| 2916 | tst.w nflops | See if any connected
|
---|
| 2917 | beq bootld01 | Jump if drive there
|
---|
| 2918 |
|
---|
| 2919 | moveq.l #1,d0 | "couldn't load"
|
---|
[f40a309] | 2920 | bra bootld02
|
---|
[4f508e6] | 2921 |
|
---|
| 2922 | bootld01: moveq.l #2,d0 | "no drive connected"
|
---|
| 2923 |
|
---|
| 2924 | bootld02: move.w d0,d7 | Save possible error in d7
|
---|
[f40a309] | 2925 | tst.w nflops
|
---|
| 2926 | beq bootld04
|
---|
[4f508e6] | 2927 |
|
---|
[f40a309] | 2928 | cmp.w #2,bootdev
|
---|
| 2929 | bge bootld04
|
---|
[4f508e6] | 2930 |
|
---|
| 2931 | move.w #1,(a7) | Sector count = 1,
|
---|
| 2932 | clr.w -(a7) | ... side = 0,
|
---|
| 2933 | clr.w -(a7) | ... track = 0,
|
---|
| 2934 | move.w #1,-(a7) | ... sector = 1,
|
---|
| 2935 | move.w bootdev,-(a7) | ... drive = bootdev,
|
---|
| 2936 | clr.l -(a7) | ... filler,
|
---|
| 2937 | move.l #buffer,-(a7) | ... buffer address
|
---|
| 2938 | jsr floprd | Read the sector
|
---|
| 2939 | add.l #16,a7 | Cleanup stack
|
---|
| 2940 | tst.l d0 | Error ?
|
---|
| 2941 | bne bootld03 | Jump if not
|
---|
| 2942 |
|
---|
[f40a309] | 2943 | clr.w d7
|
---|
| 2944 | bra bootld04
|
---|
[4f508e6] | 2945 |
|
---|
[f40a309] | 2946 | bootld03: tst.b wpstatus
|
---|
| 2947 | bne bootld04
|
---|
[4f508e6] | 2948 |
|
---|
| 2949 | moveq.l #3,d0 | "unreadable"
|
---|
[f40a309] | 2950 | bra bootld07
|
---|
[4f508e6] | 2951 |
|
---|
[f40a309] | 2952 | bootld04: tst.w d7
|
---|
| 2953 | beq bootld05
|
---|
[4f508e6] | 2954 |
|
---|
| 2955 | move.w d7,d0 | Get old error code
|
---|
[f40a309] | 2956 | bra bootld07
|
---|
[4f508e6] | 2957 |
|
---|
| 2958 | .page
|
---|
| 2959 |
|
---|
| 2960 | bootld05: move.w #256,(a7) | Set count for 256 words
|
---|
| 2961 | move.l #buffer,-(a7) | Point at buffer
|
---|
| 2962 | bsr chksum | Calculate checksum
|
---|
| 2963 | addq.l #4,a7 | Cleanup stack
|
---|
| 2964 | cmp.w #0x1234,d0 | Boot sector checksum ?
|
---|
| 2965 | bne bootld06 | Jump if not
|
---|
| 2966 |
|
---|
| 2967 | clr.w d0 | Set flag for OK
|
---|
| 2968 | move.w bootdev,booted | Save last boot device
|
---|
[f40a309] | 2969 | bra bootld07
|
---|
[4f508e6] | 2970 |
|
---|
| 2971 | bootld06: moveq.l #4,d0 | "not valid boot sector"
|
---|
| 2972 |
|
---|
[f40a309] | 2973 | bootld07: tst.l (a7)+
|
---|
[4f508e6] | 2974 | movem.l (a7)+,d7 | Restore registers
|
---|
[f40a309] | 2975 | unlk a6
|
---|
[4f508e6] | 2976 | rts | Return to caller
|
---|
| 2977 |
|
---|
[f40a309] | 2978 | .page
|
---|
[4f508e6] | 2979 |
|
---|
| 2980 | | chksum -- caluculate checksum
|
---|
| 2981 | | ------ -------------------
|
---|
[f40a309] | 2982 | chksum: link a6,#0
|
---|
[4f508e6] | 2983 | movem.l d6-d7,-(a7) | Preserve registers
|
---|
| 2984 | clr.w d7 | Clear sum
|
---|
| 2985 | bra chksum02 | Jump into loop
|
---|
| 2986 |
|
---|
| 2987 | chksum01: move.l 8(a6),a0 | Get buffer address
|
---|
| 2988 | move.w (a0),d0 | Get word
|
---|
| 2989 | add.w d0,d7 | Add to checksum in d7
|
---|
| 2990 | addq.l #2,8(a6) | Update buffer address
|
---|
| 2991 |
|
---|
| 2992 | chksum02: move.w 12(a6),d0 | Get word count
|
---|
| 2993 | subq.w #1,12(a6) | Decrement it
|
---|
| 2994 | tst.w d0 | Done ?
|
---|
| 2995 | bne chksum01 | Loop if not
|
---|
| 2996 |
|
---|
| 2997 | move.w d7,d0 | Put result in d0
|
---|
[f40a309] | 2998 | tst.l (a7)+
|
---|
[4f508e6] | 2999 | movem.l (a7)+,d7 | Restore registers
|
---|
[f40a309] | 3000 | unlk a6
|
---|
[4f508e6] | 3001 | rts | Return to caller
|
---|
| 3002 |
|
---|
[f40a309] | 3003 | .page
|
---|
[4f508e6] | 3004 |
|
---|
| 3005 | | mult32 -- 32 bit signed multiply
|
---|
| 3006 | | ------ ----------------------
|
---|
[f40a309] | 3007 | mult32: link a6,#-4
|
---|
| 3008 | clr.w d2
|
---|
| 3009 | tst.l 8(a6)
|
---|
| 3010 | bge mult32a
|
---|
[4f508e6] | 3011 |
|
---|
[f40a309] | 3012 | neg.l 8(a6)
|
---|
| 3013 | addq.w #1,d2
|
---|
[4f508e6] | 3014 |
|
---|
[f40a309] | 3015 | mult32a: tst.l 12(a6)
|
---|
| 3016 | bge mult32b
|
---|
[4f508e6] | 3017 |
|
---|
[f40a309] | 3018 | neg.l 12(a6)
|
---|
| 3019 | addq.w #1,d2
|
---|
[4f508e6] | 3020 |
|
---|
[f40a309] | 3021 | mult32b: move.w 10(a6),d0
|
---|
| 3022 | mulu 14(a6),d0
|
---|
| 3023 | move.l d0,-4(a6)
|
---|
| 3024 | move.w 8(a6),d0
|
---|
| 3025 | mulu 14(a6),d0
|
---|
| 3026 | move.w 12(a6),d1
|
---|
| 3027 | mulu 10(a6),d1
|
---|
| 3028 | add.w d1,d0
|
---|
| 3029 | add.w -4(a6),d0
|
---|
| 3030 | move.w d0,-4(a6)
|
---|
| 3031 | move.l -4(a6),d0
|
---|
| 3032 | btst #0,d2
|
---|
| 3033 | beq mult32c
|
---|
[4f508e6] | 3034 |
|
---|
[f40a309] | 3035 | neg.l d0
|
---|
[4f508e6] | 3036 |
|
---|
[f40a309] | 3037 | mult32c: unlk a6
|
---|
| 3038 | rts
|
---|
[4f508e6] | 3039 |
|
---|
| 3040 | .page
|
---|
| 3041 |
|
---|
| 3042 | | rand -- Generate a random number
|
---|
| 3043 | | ---- ------------------------
|
---|
| 3044 | rand: link a6,#-4 | Reserve stack for temps
|
---|
| 3045 | tst.l rseed | See if the seed is zero
|
---|
| 3046 | bne rand01 | Jump if not
|
---|
| 3047 |
|
---|
| 3048 | move.l _hz_200,d0 | Pick up the 200 Hz clock
|
---|
| 3049 | moveq.l #16,d1 | Shift it left
|
---|
| 3050 | asl.l d1,d0 | ...
|
---|
| 3051 | or.l _hz_200,d0 | OR in current 200 Hz clock
|
---|
| 3052 | move.l d0,rseed | Use that as the seed
|
---|
| 3053 |
|
---|
| 3054 | rand01: move.l #0xBB40E62D,-(a7) | Put PI on the stack
|
---|
| 3055 | move.l rseed,-(a7) | ... and rseed, too
|
---|
| 3056 | bsr mult32 | Multiply them
|
---|
| 3057 | addq.l #8,a7 | Cleanup stack
|
---|
| 3058 | addq.l #1,d0 | Add 1 to the result
|
---|
| 3059 | move.l d0,rseed | Save as new seed
|
---|
[f40a309] | 3060 | move.l rseed,d0
|
---|
[4f508e6] | 3061 | asr.l #8,d0 | Make it a 24 bit number
|
---|
| 3062 | and.l #0xFFFFFF,d0 | ...
|
---|
| 3063 | unlk a6 | Release stack
|
---|
| 3064 | rts | Return to caller
|
---|
| 3065 |
|
---|
| 3066 | .page
|
---|
| 3067 |
|
---|
| 3068 | | protobt -- Generate a prototype boot sector
|
---|
| 3069 | | ------- --------------------------------
|
---|
[f40a309] | 3070 | protobt: link a6,#-6
|
---|
[4f508e6] | 3071 | movem.l d5-d7/a5,-(a7) | Save registers
|
---|
| 3072 | tst.w 18(a6) | Test execflg
|
---|
| 3073 | bge protbt03 | Jump if set
|
---|
| 3074 |
|
---|
| 3075 | move.w #256,(a7) | Count = 256 words
|
---|
| 3076 | move.l 8(a6),-(a7) | Address of buffer
|
---|
| 3077 | bsr chksum | Calculate checksum
|
---|
| 3078 | addq.l #4,a7 | Cleanup stack
|
---|
| 3079 | cmp.w #0x1234,d0 | Boot checksum ?
|
---|
| 3080 | beq protbt01 | Jump if so
|
---|
| 3081 |
|
---|
| 3082 | clr.w d0 | Not executable
|
---|
[f40a309] | 3083 | bra protbt02
|
---|
[4f508e6] | 3084 |
|
---|
| 3085 | protbt01: moveq.l #1,d0 | Executable
|
---|
| 3086 |
|
---|
| 3087 | protbt02: move.w d0,18(a6) | Set execflg
|
---|
| 3088 |
|
---|
| 3089 | protbt03: tst.l 12(a6) | Serial number ?
|
---|
| 3090 | blt protbt07 | Jump if not to be changed
|
---|
| 3091 |
|
---|
| 3092 | move.l 12(a6),d0 | Get it into d0
|
---|
| 3093 | cmp.l #0xFFFFFF,d0 | > 0xFFFFFF
|
---|
| 3094 | ble protbt04 | Jump if not
|
---|
| 3095 |
|
---|
| 3096 | bsr rand | Generate a random number
|
---|
| 3097 | move.l d0,12(a6) | Save as s/n
|
---|
| 3098 |
|
---|
| 3099 | protbt04: clr.w d7 | Clear counter
|
---|
| 3100 | bra protbt06 | Enter move loop
|
---|
| 3101 |
|
---|
| 3102 | .page
|
---|
| 3103 |
|
---|
| 3104 | protbt05: move.l 12(a6),d0 | Get s/n
|
---|
| 3105 | and.l #0xFF,d0 | Isolate low 8 bits
|
---|
| 3106 | move.w d7,a1 | Point to next byte
|
---|
| 3107 | add.l 8(a6),a1 | ...
|
---|
| 3108 | move.b d0,8(a1) | Write byte in buffer
|
---|
| 3109 | move.l 12(a6),d0 | Get s/n
|
---|
| 3110 | asr.l #8,d0 | Shift right 8 bits
|
---|
| 3111 | move.l d0,12(a6) | Save shifted value
|
---|
| 3112 | addq.w #1,d7 | Update counter
|
---|
| 3113 |
|
---|
| 3114 | protbt06: cmp.w #3,d7 | See if we're done
|
---|
| 3115 | blt protbt05 | Loop if not
|
---|
| 3116 |
|
---|
| 3117 | protbt07: tst.w 16(a6) | Diskette size ?
|
---|
| 3118 | blt protbt10 | Jump if not to be changed
|
---|
| 3119 |
|
---|
| 3120 | move.w 16(a6),d6 | Get diskette size
|
---|
| 3121 | muls.w #19,d6 | ... times 19 as pointer
|
---|
| 3122 | clr.w d7 | Clear counter
|
---|
| 3123 | bra protbt09 | Go move in BPB
|
---|
| 3124 |
|
---|
| 3125 | protbt08: move.w d7,a0 | Get counter
|
---|
| 3126 | add.l 8(a6),a0 | Add base of buffer
|
---|
| 3127 | move.w d6,a1 | Get BPB pointer
|
---|
| 3128 | add.l #pbpbtab,a1 | Add base of prototype BPB's
|
---|
| 3129 | move.b (a1),11(a0) | Copy BPB data
|
---|
| 3130 | addq.w #1,d6 | Update pointer
|
---|
| 3131 | addq.w #1,d7 | Update counter
|
---|
| 3132 |
|
---|
| 3133 | protbt09: cmp.w #19,d7 | Done ?
|
---|
| 3134 | blt protbt08 | Loop if not
|
---|
| 3135 |
|
---|
[f40a309] | 3136 | protbt10: clr.w -6(a6)
|
---|
| 3137 | move.l 8(a6),-4(a6)
|
---|
| 3138 | bra protbt12
|
---|
[4f508e6] | 3139 |
|
---|
| 3140 | .page
|
---|
| 3141 |
|
---|
| 3142 | protbt11: move.l -4(a6),a0 | Get buffer pointer
|
---|
| 3143 | move.w (a0),d0 | Get word from buffer
|
---|
| 3144 | add.w d0,-6(a6) | Sum for checksum
|
---|
| 3145 | addq.l #2,-4(a6) | Point at next word
|
---|
| 3146 |
|
---|
| 3147 | protbt12: move.l 8(a6),d0 | Get buffer address
|
---|
| 3148 | add.l #0x1FE,d0 | Plus sector length
|
---|
| 3149 | cmp.l -4(a6),d0 | Done ?
|
---|
| 3150 | bhi protbt11 | Loop if not
|
---|
| 3151 |
|
---|
| 3152 | move.w #0x1234,d0 | Checksum for boot sector
|
---|
| 3153 | sub.w -6(a6),d0 | Subtract checksum for buffer
|
---|
[f40a309] | 3154 | move.l -4(a6),a1
|
---|
[4f508e6] | 3155 | move.w d0,(a1) | Store checksum in buffer
|
---|
| 3156 | tst.w 18(a6) | Check execflg
|
---|
| 3157 | bne protbt13 | Boot sector to be executable ?
|
---|
| 3158 |
|
---|
| 3159 | move.l -4(a6),a0 | Mung checksum so it's not
|
---|
[f40a309] | 3160 | addq.w #1,(a0)
|
---|
[4f508e6] | 3161 |
|
---|
[f40a309] | 3162 | protbt13: tst.l (a7)+
|
---|
[4f508e6] | 3163 | movem.l (a7)+,d6-d7/a5 | Restore registers
|
---|
| 3164 | unlk a6 | Release stack
|
---|
| 3165 | rts | Return to caller
|
---|
| 3166 |
|
---|
[f40a309] | 3167 | .endc
|
---|
[4f508e6] | 3168 |
|
---|
| 3169 | | criter -- Critical error handler
|
---|
| 3170 | | ------ ----------------------
|
---|
| 3171 | criter: move.l critvec,-(a7) | Put error vector on stack
|
---|
| 3172 | moveq.l #-1,d0 | Set default error return
|
---|
| 3173 | rts | "Return" to handler
|
---|
| 3174 |
|
---|
| 3175 | .page
|
---|
| 3176 |
|
---|
[f40a309] | 3177 | .ifne BUCHLA
|
---|
[4f508e6] | 3178 |
|
---|
| 3179 | | api_int -- Analog processor interrupt handler
|
---|
| 3180 | | ------- ----------------------------------
|
---|
| 3181 | api_int: movem.l d0-d1/a0-a1,-(a7) | Save registers
|
---|
| 3182 | clr.l d0 | Read input port
|
---|
| 3183 | move.b ANALOG,d0 | ... into d0[7..0]
|
---|
| 3184 | move.b d0,api_inp | ... and api_inp
|
---|
| 3185 | btst #7,d0 | Check for signal number flag
|
---|
| 3186 | bne api_s0a | Jump if signal number read
|
---|
| 3187 |
|
---|
| 3188 | lea api_tv,a0 | Get api_tv base in a0
|
---|
| 3189 | clr.w d1 | Get api_sv in d1
|
---|
| 3190 | move.b api_sv,d1 | ...
|
---|
| 3191 | cmpi.b #6,d1 | Check range
|
---|
| 3192 | bgt api_sve | Jump if out of range
|
---|
| 3193 |
|
---|
| 3194 | lsl.w #2,d1 | Develop jump address
|
---|
| 3195 | move.l 0(a0,d1.W),a1 | ... from api_tv in a1
|
---|
| 3196 | jmp (a1) | Jump to state handler
|
---|
| 3197 |
|
---|
| 3198 | api_s0: btst #7,d0 | Check for signal number flag
|
---|
| 3199 | beq api_ret | Jump if not signal number
|
---|
| 3200 |
|
---|
| 3201 | api_s0a: clr.b api_val | Clear value byte
|
---|
| 3202 | andi.b #0x7F,d0 | Mask off signal number flag
|
---|
| 3203 | cmpi.b #82,d0 | See if it's in range
|
---|
| 3204 | bgt api_err | Jump if out of range (GT 82)
|
---|
| 3205 |
|
---|
| 3206 | move.b d0,api_sig | Store signal number
|
---|
| 3207 | beq api_pub | Jump if it was "all off"
|
---|
| 3208 |
|
---|
| 3209 | lea api_tab,a0 | Get sv table base
|
---|
| 3210 | move.b 0(a0,d0.W),api_sv | Set sv for next time
|
---|
| 3211 |
|
---|
| 3212 | api_ret: movem.l (a7)+,d0-d1/a0-a1 | Restore registers
|
---|
| 3213 | rte | Return to interrupted code
|
---|
| 3214 |
|
---|
| 3215 | api_err: move.b d0,api_bug | Catch the bug
|
---|
| 3216 | clr.b api_sv | Force state zero
|
---|
| 3217 | bra api_ret | Go back to interrupted code
|
---|
| 3218 |
|
---|
| 3219 | api_sve: move.b d1,api_svb | Catch the bug
|
---|
| 3220 | clr.b api_sv | Force state zero
|
---|
| 3221 | bra api_ret | Go back to interrupted code
|
---|
| 3222 |
|
---|
| 3223 | .page
|
---|
| 3224 | api_s1: btst #0,d0 | See if it takes a value
|
---|
| 3225 | beq api_s1a | Jump if not
|
---|
| 3226 |
|
---|
| 3227 | move.b #2,api_sv | Set sv for state 2
|
---|
| 3228 | bra api_ret | Go return from interrupt
|
---|
| 3229 |
|
---|
| 3230 | api_s1a: clr.b api_val | Clear value byte
|
---|
| 3231 | bra api_pub | Go output to fifo
|
---|
| 3232 |
|
---|
| 3233 | api_s2: ori.b #0x80,d0 | Set status = 1
|
---|
| 3234 | move.b d0,api_val | Set value byte
|
---|
| 3235 | bra api_pub | Go output to fifo
|
---|
| 3236 |
|
---|
| 3237 | api_s3: ror.b #1,d0 | Set status in value byte
|
---|
| 3238 | andi.b #0x80,d0 | ...
|
---|
| 3239 | move.b d0,api_val | ...
|
---|
| 3240 | move.b #4,api_sv | Set sv for state 4
|
---|
| 3241 | bra api_ret | Go return from interrupt
|
---|
| 3242 |
|
---|
| 3243 | api_s4: or.b d0,api_val | Set value byte
|
---|
| 3244 | bra api_pub | Go output to fifo
|
---|
| 3245 |
|
---|
| 3246 | api_s5: ror.b #1,d0 | Set status in value byte
|
---|
| 3247 | andi.b #0x80,d0 | ...
|
---|
| 3248 |
|
---|
| 3249 | api_s6: move.b d0,api_val | Set value byte
|
---|
| 3250 |
|
---|
| 3251 | api_pub: movea.l api_fi,a0 | Get fifo input pointer in a0
|
---|
| 3252 | move.w api_sig,(a0)+ | Store new input
|
---|
| 3253 | cmpa.l #api_fe,a0 | Wrap around ?
|
---|
| 3254 | blt api_pb1 | Jump if not
|
---|
| 3255 |
|
---|
| 3256 | movea.l #api_fum,a0 | Wrap input pointer to start
|
---|
| 3257 |
|
---|
| 3258 | api_pb1: move.l a0,api_fi | Update input pointer
|
---|
| 3259 | cmpa.l api_fo,a0 | Buffer full ?
|
---|
| 3260 | bne api_pb3 | Jump if not
|
---|
| 3261 |
|
---|
| 3262 | movea.l api_fo,a1 | Get fifo output pointer in a1
|
---|
| 3263 | adda.l #2,a1 | Increment it
|
---|
| 3264 | cmpa.l #api_fe,a1 | Wrap around ?
|
---|
| 3265 | blt api_pb2 | Jump if not
|
---|
| 3266 |
|
---|
| 3267 | movea.l #api_fum,a1 | Wrap output pointer to start
|
---|
| 3268 |
|
---|
| 3269 | api_pb2: move.l a1,api_fo | Set new output pointer
|
---|
| 3270 |
|
---|
| 3271 | api_pb3: clr.b api_sv | Set state to 0
|
---|
| 3272 | bra api_ret | Return from interrupt
|
---|
| 3273 |
|
---|
| 3274 | .page
|
---|
| 3275 |
|
---|
| 3276 | | api_get -- Get analog input
|
---|
| 3277 | | ------- ----------------
|
---|
| 3278 | api_get: move.w sr,-(a7) | Save status register
|
---|
| 3279 | ori.w #IPL3,sr | Disable ANALOG I/O interrupts
|
---|
| 3280 | movea.l api_fo,a0 | Get fifo output pointer
|
---|
| 3281 | cmpa.l api_fi,a0 | See if fifo is empty
|
---|
| 3282 | bne api_g1 | Jump if not
|
---|
| 3283 |
|
---|
| 3284 | moveq.l #-1,d0 | Set empty-fifo value
|
---|
| 3285 | move.w (a7)+,sr | Restore interrupt mask
|
---|
| 3286 | rts | Return to caller
|
---|
| 3287 |
|
---|
| 3288 | api_g1: clr.l d0 | Get fifo value
|
---|
| 3289 | move.w (a0)+,d0 | ...
|
---|
| 3290 | cmpa.l #api_fe,a0 | See if pointer wrapped
|
---|
| 3291 | blt api_g2 | Jump if not
|
---|
| 3292 |
|
---|
| 3293 | movea.l #api_fum,a0 | Wrap the pointer around
|
---|
| 3294 |
|
---|
| 3295 | api_g2: move.l a0,api_fo | Update pointer
|
---|
| 3296 | move.w (a7)+,sr | Restore interrupt mask
|
---|
| 3297 | rts | Return to caller
|
---|
| 3298 |
|
---|
| 3299 | | api_zap -- clear analog I/O FIFO
|
---|
| 3300 | | ------- ---------------------
|
---|
| 3301 | api_zap: move.w sr,-(a7) | Save status register
|
---|
| 3302 | ori.w #IPL3,sr | Disable ANALOG I/O interrupts
|
---|
| 3303 | move.l #api_fum,api_fi | Clear analog processor fifo
|
---|
| 3304 | move.l #api_fum,api_fo | ...
|
---|
| 3305 | move.w (a7)+,sr | Restore interrupt mask
|
---|
[f40a309] | 3306 | rts
|
---|
[4f508e6] | 3307 |
|
---|
[f40a309] | 3308 | .endc
|
---|
[4f508e6] | 3309 |
|
---|
| 3310 | .page
|
---|
| 3311 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 3312 | | |
|
---|
| 3313 | | Constant definitions |
|
---|
| 3314 | | -------------------- |
|
---|
| 3315 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 3316 |
|
---|
[f40a309] | 3317 | .even
|
---|
[4f508e6] | 3318 |
|
---|
[f40a309] | 3319 | .ifne BUCHLA
|
---|
[4f508e6] | 3320 |
|
---|
| 3321 | | Buchla 700 tables:
|
---|
| 3322 |
|
---|
| 3323 | | t13tab -- Trap-13 pointer table -- Primary BIOS functions
|
---|
| 3324 | | ------ -----------------------------------------------
|
---|
| 3325 | t13tab: dc.w 12 | Number of Trap-13 routines
|
---|
| 3326 |
|
---|
| 3327 | dc.l nullrts | 0 - (getmpb)
|
---|
| 3328 | dc.l bconstat | 1 - bconstat
|
---|
| 3329 | dc.l bconin | 2 - bconin
|
---|
| 3330 | dc.l bconout | 3 - bconout
|
---|
| 3331 | dc.l rwabs | 4 - rwabs
|
---|
| 3332 | dc.l setexec | 5 - setexec
|
---|
| 3333 | dc.l nullrts | 6 - (tickcal)
|
---|
| 3334 | dc.l getbpb | 7 - getbpb
|
---|
| 3335 | dc.l bcostat | 8 - bcostat
|
---|
| 3336 | dc.l mediach | 9 - mediach
|
---|
| 3337 | dc.l drvmap | 10 - drvmap
|
---|
| 3338 | dc.l nullrts | 11 - (shift)
|
---|
| 3339 |
|
---|
| 3340 | .page
|
---|
| 3341 |
|
---|
| 3342 | | t14tab -- Trap-14 pointer table -- Extended BIOS functions (Buchla 700 only)
|
---|
| 3343 | | ------ ------------------------------------------------------------------
|
---|
| 3344 | t14tab: dc.w 10 | Number of trap14 routines
|
---|
| 3345 |
|
---|
| 3346 | dc.l piorec | 0 - Get iorec address
|
---|
| 3347 | dc.l setport | 1 - Set ACIA parameters
|
---|
| 3348 | dc.l floprd | 2 - Read floppy
|
---|
| 3349 | dc.l flopwr | 3 - Write floppy
|
---|
| 3350 | dc.l flopfmt | 4 - Format floppy
|
---|
| 3351 | dc.l flopver | 5 - Verify floppy
|
---|
| 3352 | dc.l protobt | 6 - Create prototype boot sec.
|
---|
| 3353 | dc.l rand | 7 - Generate random number
|
---|
| 3354 | dc.l api_get | 8 - Get analog input
|
---|
| 3355 | dc.l api_zap | 9 - Clear analog FIFO
|
---|
| 3356 |
|
---|
[f40a309] | 3357 | .endc
|
---|
[4f508e6] | 3358 |
|
---|
[f40a309] | 3359 | .even
|
---|
[4f508e6] | 3360 |
|
---|
[f40a309] | 3361 | .ifeq BUCHLA
|
---|
[4f508e6] | 3362 |
|
---|
| 3363 | | NASA 3D Helmet tables:
|
---|
| 3364 |
|
---|
| 3365 | | t13tab -- Trap-13 pointer table -- Primary BIOS functions
|
---|
| 3366 | | ------ -----------------------------------------------
|
---|
| 3367 | t13tab: dc.w 12 | Number of Trap-13 routines
|
---|
| 3368 |
|
---|
| 3369 | dc.l nullrts | 0 - (getmpb)
|
---|
| 3370 | dc.l bconstat | 1 - bconstat
|
---|
| 3371 | dc.l bconin | 2 - bconin
|
---|
| 3372 | dc.l bconout | 3 - bconout
|
---|
| 3373 | dc.l nullrts | 4 - (rwabs)
|
---|
| 3374 | dc.l setexec | 5 - setexec
|
---|
| 3375 | dc.l nullrts | 6 - (tickcal)
|
---|
| 3376 | dc.l nullrts | 7 - (getbpb)
|
---|
| 3377 | dc.l bcostat | 8 - bcostat
|
---|
| 3378 | dc.l nullrts | 9 - (mediach)
|
---|
| 3379 | dc.l nullrts | 10 - (drvmap)
|
---|
| 3380 | dc.l nullrts | 11 - (shift)
|
---|
| 3381 |
|
---|
| 3382 | .page
|
---|
| 3383 |
|
---|
| 3384 | | t14tab -- Trap-14 pointer table -- Extended BIOS functions (Buchla 700 only)
|
---|
| 3385 | | ------ ------------------------------------------------------------------
|
---|
| 3386 | t14tab: dc.w 10 | Number of trap14 routines
|
---|
| 3387 |
|
---|
| 3388 | dc.l piorec | 0 - Get iorec address
|
---|
| 3389 | dc.l setport | 1 - Set ACIA parameters
|
---|
| 3390 | dc.l nullrts | 2 - (Read floppy)
|
---|
| 3391 | dc.l nullrts | 3 - (Write floppy)
|
---|
| 3392 | dc.l nullrts | 4 - (Format floppy)
|
---|
| 3393 | dc.l nullrts | 5 - (Verify floppy)
|
---|
| 3394 | dc.l nullrts | 6 - (Create prototype boot sec.)
|
---|
| 3395 | dc.l nullrts | 7 - (Generate random number)
|
---|
| 3396 | dc.l nullrts | 8 - (Get analog input)
|
---|
| 3397 | dc.l nullrts | 9 - (Clear analog FIFO)
|
---|
| 3398 |
|
---|
[f40a309] | 3399 | .endc
|
---|
[4f508e6] | 3400 |
|
---|
| 3401 | .page
|
---|
| 3402 |
|
---|
| 3403 | | cdt01 -- Character device dispatch table #1 -- input status
|
---|
| 3404 | | ----- --------------------------------------------------
|
---|
| 3405 | cdt01: dc.l sr1ist | 0 - PRT -- Printer
|
---|
| 3406 | dc.l sr2ist | 1 - AUX -- Serial-2
|
---|
| 3407 | dc.l sr2ist | 2 - CON -- Console
|
---|
| 3408 |
|
---|
[f40a309] | 3409 | .ifne BUCHLA
|
---|
[4f508e6] | 3410 |
|
---|
| 3411 | dc.l mc1ist | 3 - MC1 -- MIDI-1
|
---|
| 3412 | dc.l mc2ist | 4 - MC2 -- MIDI-2
|
---|
| 3413 |
|
---|
[f40a309] | 3414 | .endc
|
---|
[4f508e6] | 3415 |
|
---|
| 3416 | | cdt02 -- Character device dispatch table #2 -- input
|
---|
| 3417 | | ----- -------------------------------------------
|
---|
| 3418 | cdt02: dc.l sr1inp | 0 - PRT -- Printer
|
---|
| 3419 | dc.l sr2inp | 1 - AUX -- Serial-2
|
---|
| 3420 | dc.l sr2inp | 2 - CON -- Console
|
---|
| 3421 |
|
---|
[f40a309] | 3422 | .ifne BUCHLA
|
---|
[4f508e6] | 3423 |
|
---|
| 3424 | dc.l mc1inp | 3 - MC1 -- MIDI-1
|
---|
| 3425 | dc.l mc2inp | 4 - MC2 -- MIDI-2
|
---|
| 3426 |
|
---|
[f40a309] | 3427 | .endc
|
---|
[4f508e6] | 3428 |
|
---|
| 3429 | | cdt03 -- Character device dispatch table #3 -- output
|
---|
| 3430 | | ----- --------------------------------------------
|
---|
| 3431 | cdt03: dc.l sr1out | 0 - PRT -- Printer
|
---|
| 3432 | dc.l sr2out | 1 - AUX -- Serial-2
|
---|
| 3433 | dc.l sr2out | 2 - CON -- Console
|
---|
[f40a309] | 3434 | .ifne BUCHLA
|
---|
[4f508e6] | 3435 |
|
---|
| 3436 | dc.l mc1out | 3 - MC1 -- MIDI-1
|
---|
| 3437 | dc.l mc2out | 4 - MC2 -- MIDI-2
|
---|
| 3438 |
|
---|
[f40a309] | 3439 | .endc
|
---|
[4f508e6] | 3440 |
|
---|
| 3441 | | cdt04 -- Character device dispatch table #4 -- output status
|
---|
| 3442 | | ----- ---------------------------------------------------
|
---|
| 3443 | cdt04: dc.l sr1ost | 0 - PRT -- Printer
|
---|
| 3444 | dc.l sr2ost | 1 - AUX -- Serial-2
|
---|
| 3445 | dc.l sr2ost | 2 - CON -- Console
|
---|
[f40a309] | 3446 | .ifne BUCHLA
|
---|
[4f508e6] | 3447 |
|
---|
| 3448 | dc.l mc1ost | 3 - MC1 -- MIDI-1
|
---|
| 3449 | dc.l mc2ost | 4 - MC2 -- MIDI-2
|
---|
| 3450 |
|
---|
[f40a309] | 3451 | .endc
|
---|
[4f508e6] | 3452 |
|
---|
[f40a309] | 3453 | .page
|
---|
[4f508e6] | 3454 |
|
---|
| 3455 | | iorec defaults:
|
---|
| 3456 | | ---------------
|
---|
| 3457 | | Serial-1:
|
---|
| 3458 | | ---------
|
---|
[f40a309] | 3459 | sr1dflt: dc.l sr1ibuf
|
---|
| 3460 | dc.w SR1IBS
|
---|
| 3461 | dc.w 0,0
|
---|
| 3462 | dc.w SR1IBS/4
|
---|
| 3463 | dc.w SR1IBS-(SR1IBS/4)
|
---|
| 3464 | dc.l sr1obuf
|
---|
| 3465 | dc.w SR1OBS
|
---|
| 3466 | dc.w 0,0
|
---|
| 3467 | dc.w SR1OBS/4
|
---|
| 3468 | dc.w SR1OBS-(SR1OBS/4)
|
---|
| 3469 | dc.b SR1CFR0,SR1CFR1
|
---|
| 3470 | dc.b 0,0
|
---|
| 3471 | dc.b SR1DISC,0
|
---|
| 3472 | dc.b 0,0
|
---|
| 3473 | dc.w 0,0
|
---|
[4f508e6] | 3474 |
|
---|
| 3475 | | Serial-2:
|
---|
| 3476 | | ---------
|
---|
[f40a309] | 3477 | sr2dflt: dc.l sr2ibuf
|
---|
| 3478 | dc.w SR2IBS
|
---|
| 3479 | dc.w 0,0
|
---|
| 3480 | dc.w SR2IBS/4
|
---|
| 3481 | dc.w SR2IBS-(SR2IBS/4)
|
---|
| 3482 | dc.l sr2obuf
|
---|
| 3483 | dc.w SR2OBS
|
---|
| 3484 | dc.w 0,0
|
---|
| 3485 | dc.w SR2OBS/4
|
---|
| 3486 | dc.w SR2OBS-(SR2OBS/4)
|
---|
| 3487 | dc.b SR2CFR0,SR2CFR1
|
---|
| 3488 | dc.b 0,0
|
---|
| 3489 | dc.b SR2DISC,0
|
---|
| 3490 | dc.b 0,0
|
---|
| 3491 | dc.w 0,0
|
---|
[4f508e6] | 3492 |
|
---|
[f40a309] | 3493 | .page
|
---|
[4f508e6] | 3494 |
|
---|
[f40a309] | 3495 | .ifne BUCHLA
|
---|
[4f508e6] | 3496 |
|
---|
| 3497 | | MIDI-1:
|
---|
| 3498 | | -------
|
---|
[f40a309] | 3499 | mc1dflt: dc.l mc1ibuf
|
---|
| 3500 | dc.w MC1IBS
|
---|
| 3501 | dc.w 0,0
|
---|
| 3502 | dc.w MC1IBS/4
|
---|
| 3503 | dc.w MC1IBS-(MC1IBS/4)
|
---|
| 3504 | dc.l mc1obuf
|
---|
| 3505 | dc.w MC1OBS
|
---|
| 3506 | dc.w 0,0
|
---|
| 3507 | dc.w MC1OBS/4
|
---|
| 3508 | dc.w MC1OBS-(MC1OBS/4)
|
---|
| 3509 | dc.b MC1CFR0,MC1CFR1
|
---|
| 3510 | dc.b 0,0
|
---|
| 3511 | dc.b MC1DISC,0
|
---|
| 3512 | dc.b 0,0
|
---|
| 3513 | dc.w 0,0
|
---|
[4f508e6] | 3514 |
|
---|
| 3515 | | MIDI-2:
|
---|
| 3516 | | -------
|
---|
[f40a309] | 3517 | mc2dflt: dc.l mc2ibuf
|
---|
| 3518 | dc.w MC2IBS
|
---|
| 3519 | dc.w 0,0
|
---|
| 3520 | dc.w MC2IBS/4
|
---|
| 3521 | dc.w MC2IBS-(MC2IBS/4)
|
---|
| 3522 | dc.l mc2obuf
|
---|
| 3523 | dc.w MC2OBS
|
---|
| 3524 | dc.w 0,0
|
---|
| 3525 | dc.w MC2OBS/4
|
---|
| 3526 | dc.w MC2OBS-(MC2OBS/4)
|
---|
| 3527 | dc.b MC2CFR0,MC2CFR1
|
---|
| 3528 | dc.b 0,0
|
---|
| 3529 | dc.b MC2DISC,0
|
---|
| 3530 | dc.b 0,0
|
---|
| 3531 | dc.w 0,0
|
---|
[4f508e6] | 3532 |
|
---|
[f40a309] | 3533 | .endc
|
---|
[4f508e6] | 3534 |
|
---|
| 3535 | .page
|
---|
| 3536 |
|
---|
| 3537 | | brtable -- Baud rate setup table
|
---|
| 3538 | | ------- ---------------------
|
---|
| 3539 | brtable: dc.b BR_19K2 | 0 - 19200 baud
|
---|
| 3540 | dc.b BR_9600 | 1 - 9600 baud
|
---|
| 3541 | dc.b BR_4800 | 2 - 4800 baud
|
---|
| 3542 | dc.b BR_3600 | 3 - 3600 baud
|
---|
| 3543 | dc.b BR_2400 | 4 - 2400 baud
|
---|
| 3544 | dc.b BR_7200 | 5 - 7200 baud (2000 on Atari)
|
---|
| 3545 | dc.b BR_1800 | 6 - 1800 baud
|
---|
| 3546 | dc.b BR_1200 | 7 - 1200 baud
|
---|
| 3547 | dc.b BR_600 | 8 - 600 baud
|
---|
| 3548 | dc.b BR_300 | 9 - 300 baud
|
---|
| 3549 |
|
---|
| 3550 | | iortab -- iorec pointer table
|
---|
| 3551 | | ------ -------------------
|
---|
| 3552 | iortab: dc.l sr1iorec | 0 - PRT Serial-1 Printer
|
---|
| 3553 | dc.l sr2iorec | 1 - AUX Serial-2 Host
|
---|
| 3554 | dc.l sr2iorec | 2 - CON Serial-2 Console
|
---|
| 3555 |
|
---|
[f40a309] | 3556 | .ifne BUCHLA
|
---|
[4f508e6] | 3557 |
|
---|
| 3558 | dc.l mc1iorec | 3 - MC1 MIDI-1 MIDI port #1
|
---|
| 3559 | dc.l mc2iorec | 4 - MC2 MIDI-2 MIDI port #2
|
---|
| 3560 |
|
---|
[f40a309] | 3561 | .endc
|
---|
[4f508e6] | 3562 |
|
---|
| 3563 | | aciatab -- iorec and ACIA pointer table
|
---|
| 3564 | | ------- ----------------------------
|
---|
| 3565 | aciatab: dc.l sr1iorec,SR1ACIA | 0 - PRT Serial-1
|
---|
| 3566 | dc.l sr2iorec,SR2ACIA | 1 - AUX Serial-2
|
---|
| 3567 | dc.l sr2iorec,SR2ACIA | 2 - CON Serial-2
|
---|
| 3568 |
|
---|
[f40a309] | 3569 | .ifne BUCHLA
|
---|
[4f508e6] | 3570 |
|
---|
| 3571 | dc.l mc1iorec,MC1ACIA | 3 - MC1 MIDI-1
|
---|
| 3572 | dc.l mc2iorec,MC2ACIA | 4 - MC2 MIDI-2
|
---|
| 3573 |
|
---|
[f40a309] | 3574 | .endc
|
---|
[4f508e6] | 3575 |
|
---|
[f40a309] | 3576 | .page
|
---|
[4f508e6] | 3577 |
|
---|
[f40a309] | 3578 | .ifne BUCHLA
|
---|
[4f508e6] | 3579 |
|
---|
| 3580 | | pbpbtab -- Prototype BPB data table (BPS..NHID) 19 bytes per entry
|
---|
| 3581 | | ------- ---------------------------------------------------------
|
---|
| 3582 |
|
---|
| 3583 | | 0 -- 40 tracks, single sided (180K)
|
---|
| 3584 |
|
---|
| 3585 | pbpbtab: dc.b 0x00,0x02,0x01,0x01,0x00,0x02,0x40,0x00
|
---|
| 3586 | dc.b 0x68,0x01,0xFC,0x02,0x00,0x09,0x00,0x01
|
---|
| 3587 | dc.b 0x00,0x00,0x00
|
---|
| 3588 |
|
---|
| 3589 | | 1 -- 40 tracks, double sided (360K)
|
---|
| 3590 |
|
---|
| 3591 | dc.b 0x00,0x02,0x02,0x01,0x00,0x02,0x70,0x00
|
---|
| 3592 | dc.b 0xD0,0x02,0xFD,0x02,0x00,0x09,0x00,0x02
|
---|
| 3593 | dc.b 0x00,0x00,0x00
|
---|
| 3594 |
|
---|
| 3595 | | 2 -- 80 tracks, single sided (360K)
|
---|
| 3596 |
|
---|
| 3597 | dc.b 0x00,0x02,0x02,0x01,0x00,0x02,0x70,0x00
|
---|
| 3598 | dc.b 0xD0,0x02,0xF8,0x05,0x00,0x09,0x00,0x01
|
---|
| 3599 | dc.b 0x00,0x00,0x00
|
---|
| 3600 |
|
---|
| 3601 | | 3 -- 80 tracks, double sided (720K)
|
---|
| 3602 |
|
---|
| 3603 | dc.b 0x00,0x02,0x02,0x01,0x00,0x02,0x70,0x00
|
---|
| 3604 | dc.b 0xA0,0x05,0xF9,0x05,0x00,0x09,0x00,0x02
|
---|
| 3605 | dc.b 0x00,0x00,0x00
|
---|
| 3606 |
|
---|
| 3607 | | VSDD initialization table
|
---|
| 3608 |
|
---|
[f40a309] | 3609 | .even
|
---|
[4f508e6] | 3610 |
|
---|
| 3611 | vsddtab: dc.w 0x8252 | R0 Mode word 0
|
---|
| 3612 | dc.w 0xE474 | R1 Mode word 1
|
---|
| 3613 | dc.w 0x0006 | R2 Register window base
|
---|
| 3614 | dc.w 0x0100 | R3 Data window base
|
---|
| 3615 | dc.w 0x0000 | R4 Data length mask
|
---|
| 3616 | dc.w 0x0000 | R5 Data segment base
|
---|
| 3617 | dc.w 0x0001 | R6 Priority access count
|
---|
| 3618 | dc.w 0x0040 | R7 ODT base
|
---|
| 3619 | dc.w 0x0080 | R8 AT base
|
---|
| 3620 | dc.w 0x0010 | R9 CLT base
|
---|
| 3621 | dc.w 0x0011 | R10 CG bases
|
---|
| 3622 | dc.w 0x0000 | R11 AT counter (R/O)
|
---|
| 3623 |
|
---|
| 3624 | dc.w 0x0C08 | R12 HC0 = 3, VC0 = 8
|
---|
| 3625 | dc.w 0x140A | R13 HC1 = 5, VC1 = 10
|
---|
| 3626 | dc.w 0x9568 | R14 HC2 = 37, VC2 = 360
|
---|
| 3627 | dc.w 0xA16A | R15 HC3 = 40, VC3 = 362
|
---|
| 3628 |
|
---|
| 3629 | vsddit01: dc.w 0x8253 | R0 with UCF = 1, DEN = 0
|
---|
| 3630 | vsddit02: dc.w 0x825B | R0 with UCF = 1, DEN = 1
|
---|
| 3631 |
|
---|
| 3632 | .page
|
---|
| 3633 |
|
---|
| 3634 | | analog processor input state table
|
---|
| 3635 |
|
---|
| 3636 | api_tab: dc.b 0,1,1,1,1,1,1,1,1,1 | 0..9
|
---|
| 3637 | dc.b 1,1,1,1,1,1,1,1,1,1 | 10..19
|
---|
| 3638 | dc.b 1,1,1,1,1 | 20..24
|
---|
| 3639 | dc.b 3,3,3,3,3 | 25..29
|
---|
| 3640 | dc.b 3,3,3,3,3,3,3,3,3 | 30..38
|
---|
| 3641 | dc.b 5 | 39
|
---|
| 3642 | dc.b 5,5,5,5,5,5,5,5,5,5 | 40..49
|
---|
| 3643 | dc.b 5,5,5 | 50..52
|
---|
| 3644 | dc.b 3,3,3,3,3,3,3 | 53..59
|
---|
| 3645 | dc.b 5,5,5,5,5,5,5,5,5,5 | 60..69
|
---|
| 3646 | dc.b 5,5,5 | 70..72
|
---|
| 3647 | dc.b 6,6,6,6,6,6,6 | 73..79
|
---|
| 3648 | dc.b 6,6,6 | 80..82
|
---|
| 3649 |
|
---|
[f40a309] | 3650 | .even
|
---|
[4f508e6] | 3651 |
|
---|
| 3652 | | analog processor state transfer vector
|
---|
| 3653 |
|
---|
[f40a309] | 3654 | api_tv: dc.l api_s0,api_s1,api_s2,api_s3
|
---|
| 3655 | dc.l api_s4,api_s5,api_s6
|
---|
[4f508e6] | 3656 |
|
---|
[f40a309] | 3657 | .endc
|
---|
[4f508e6] | 3658 |
|
---|
| 3659 | .page
|
---|
| 3660 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 3661 | | |
|
---|
| 3662 | | RAM storage definitions |
|
---|
| 3663 | | ----------------------- |
|
---|
| 3664 | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
---|
| 3665 |
|
---|
[f40a309] | 3666 | .bss
|
---|
| 3667 | .even
|
---|
[4f508e6] | 3668 |
|
---|
| 3669 | | RAM data area
|
---|
| 3670 | | -------------
|
---|
| 3671 | | WARNING:
|
---|
| 3672 | | --------
|
---|
| 3673 | | The variables from timevec through rsarea are permanently assigned so
|
---|
| 3674 | | that we can link to certain bios variables without having to link to the
|
---|
| 3675 | | bios object file itself. Some of these get defined in hwdefs.s and in
|
---|
| 3676 | | hwdefs.s so beware of changing them.
|
---|
| 3677 |
|
---|
| 3678 | timevec: ds.l 1 | System timer trap vector
|
---|
| 3679 | critvec: ds.l 1 | Critical error handler vector
|
---|
| 3680 | termvec: ds.l 1 | Process terminate hook vector
|
---|
| 3681 | resvec3: ds.l 1 | Reserved vector 3
|
---|
| 3682 | resvec4: ds.l 1 | Reserved vector 4
|
---|
| 3683 | resvec5: ds.l 1 | Reserved vector 5
|
---|
| 3684 | resvec6: ds.l 1 | Reserved vector 6
|
---|
| 3685 | resvec7: ds.l 1 | Reserved vector 7
|
---|
| 3686 |
|
---|
| 3687 | fc_sw: ds.w 1 | Frame clock switch (<0=dn, 0=off, >0=up)
|
---|
| 3688 | fc_val: ds.l 1 | Frame clock value (0..FCMAX)
|
---|
| 3689 |
|
---|
| 3690 | _wzcrsh: ds.w 1 | Crash area: flag for ROMP
|
---|
| 3691 | _crshsr: ds.w 1 | Crash area: SR
|
---|
| 3692 | _crshpc: ds.l 1 | Crash area: PC
|
---|
| 3693 | _crshsp: ds.l 1 | Crash area: SP
|
---|
| 3694 | _crshus: ds.l 1 | Crash area: USP
|
---|
| 3695 | _crshvc: ds.l 1 | Crash area: vector # in MS byte
|
---|
| 3696 | _crshrg: ds.l 16 | Crash area: registers
|
---|
| 3697 | _crshst: ds.w 16 | Crash area: top 16 words of stack
|
---|
| 3698 |
|
---|
| 3699 | | The area from biosram to SSTACK-1 is cleared on reset.
|
---|
| 3700 | | ------------------------------------------------------
|
---|
| 3701 | biosram: | Start of BIOS RAM variables
|
---|
| 3702 |
|
---|
[f40a309] | 3703 | .ifne BUCHLA
|
---|
[4f508e6] | 3704 |
|
---|
| 3705 | _hz_1k: ds.l 1 | 1000 Hz clock
|
---|
| 3706 | _hz_200: ds.l 1 | 200 Hz clock
|
---|
| 3707 | frclock: ds.l 1 | 50 Hz clock
|
---|
| 3708 | t1count: ds.w 1 | Timer 1 count
|
---|
| 3709 | t2count: ds.w 1 | Timer 2 count
|
---|
| 3710 | t3count: ds.w 1 | Timer 3 count
|
---|
| 3711 |
|
---|
| 3712 | seekrate: ds.w 1 | Seek rate
|
---|
| 3713 | cdev: ds.w 1 | Current drive
|
---|
| 3714 | ctrack: ds.w 1 | Current track
|
---|
| 3715 | csect: ds.w 1 | Current sector
|
---|
| 3716 | cside: ds.w 1 | Current side
|
---|
| 3717 | ccount: ds.w 1 | Current sector count
|
---|
| 3718 | spt: ds.w 1 | Sectors per track
|
---|
| 3719 | interlv: ds.w 1 | Sector interleave count
|
---|
| 3720 | virgin: ds.w 1 | Initial formatting data
|
---|
| 3721 | deferr: ds.w 1 | Default error number
|
---|
| 3722 | curerr: ds.w 1 | Current error number
|
---|
| 3723 |
|
---|
| 3724 | cdma: ds.l 1 | Current DMA address
|
---|
| 3725 | edma: ds.l 1 | Ending DMA address
|
---|
| 3726 | tmpdma: ds.l 1 | Temporary DMA address
|
---|
| 3727 |
|
---|
[f40a309] | 3728 | .endc
|
---|
[4f508e6] | 3729 |
|
---|
| 3730 | rseed: ds.l 1 | Random number seed
|
---|
| 3731 |
|
---|
| 3732 | savptr: ds.l 1 | Pointer to register save area
|
---|
| 3733 |
|
---|
| 3734 | _rsflag: ds.l 1 | Register save area overflow flag
|
---|
| 3735 | ds.l 18|32 | Register save area (32 levels)
|
---|
| 3736 | rsarea: ds.l 1 | Dummy long word at top of save area
|
---|
| 3737 |
|
---|
| 3738 | | ||||| end of the permanently assigned bios variables |||||
|
---|
| 3739 |
|
---|
| 3740 | .page
|
---|
| 3741 |
|
---|
[f40a309] | 3742 | .ifne BUCHLA
|
---|
[4f508e6] | 3743 |
|
---|
| 3744 | acctim: ds.l 2 | Accumulated disk time table
|
---|
| 3745 | maxactim: ds.l 1 | Maximum acctim value
|
---|
| 3746 | hdv_init: ds.l 1 | Disk init vector
|
---|
| 3747 | hdv_bpb: ds.l 1 | Disk get bpb vector
|
---|
| 3748 | hdv_rw: ds.l 1 | Disk r/w vector
|
---|
| 3749 | hdv_boot: ds.l 1 | Disk boot vector
|
---|
| 3750 | hdv_mchg: ds.l 1 | Disk media change vector
|
---|
| 3751 | drvbits: ds.l 1 | Drive map bits
|
---|
| 3752 | dskbufp: ds.l 1 | Disk buffer pointer
|
---|
| 3753 | .page
|
---|
| 3754 | nflops: ds.w 1 | Number of drives
|
---|
| 3755 | disknum: ds.w 1 | Current disk number
|
---|
| 3756 | booted: ds.w 1 | Most recent boot device or -1
|
---|
| 3757 | flock: ds.w 1 | Floppy semaphore
|
---|
| 3758 | fverify: ds.w 1 | Floppy verify flag
|
---|
| 3759 |
|
---|
| 3760 | tdiv1: ds.w 1 | Timer divider 1 (divides _hz_1k)
|
---|
| 3761 | tdiv2: ds.w 1 | Timer divider 2 (divides _hz_200)
|
---|
| 3762 |
|
---|
| 3763 | retrycnt: ds.w 1 | Re-try count
|
---|
| 3764 | wpstatus: ds.w 1 | Write protect status table
|
---|
| 3765 | wplatch: ds.w 1 | Write protect latch table
|
---|
| 3766 | bootdev: ds.w 1 | Boot device number
|
---|
| 3767 |
|
---|
| 3768 | motoron: ds.w 1 | Motor-on flag
|
---|
| 3769 | deslflag: ds.w 1 | Drive deselect flag
|
---|
| 3770 |
|
---|
[f40a309] | 3771 | .endc
|
---|
[4f508e6] | 3772 |
|
---|
| 3773 | flpsrsv: ds.w 1 | Status register save area
|
---|
| 3774 | flpregs: ds.l 16 | Register save area
|
---|
| 3775 |
|
---|
[f40a309] | 3776 | .ifne BUCHLA
|
---|
[4f508e6] | 3777 |
|
---|
| 3778 | dsb0: ds.l 1 | Drive A DSB
|
---|
| 3779 | dsb1: ds.l 1 | Drive B DSB
|
---|
| 3780 |
|
---|
| 3781 | dskmode: ds.b 2 | Disk change mode table
|
---|
| 3782 | dskerrs: ds.w 2 | Disk error code table
|
---|
| 3783 | drvbpbs: ds.w 16|2 | Disk BPB save area
|
---|
| 3784 |
|
---|
[f40a309] | 3785 | .endc
|
---|
[4f508e6] | 3786 |
|
---|
[f40a309] | 3787 | .page
|
---|
[4f508e6] | 3788 |
|
---|
| 3789 | sr1iorec: ds.b IORECLN | Serial-1 iorec structure
|
---|
| 3790 | sr2iorec: ds.b IORECLN | Serial-2 iorec structure
|
---|
| 3791 |
|
---|
[f40a309] | 3792 | .ifne BUCHLA
|
---|
[4f508e6] | 3793 |
|
---|
| 3794 | mc1iorec: ds.b IORECLN | MIDI-1 iorec structure
|
---|
| 3795 | mc2iorec: ds.b IORECLN | MIDI-2 iorec structure
|
---|
| 3796 |
|
---|
[f40a309] | 3797 | .endc
|
---|
[4f508e6] | 3798 |
|
---|
| 3799 | sr1ibuf: ds.b SR1IBS | Serial-1 input buffer
|
---|
| 3800 | sr1obuf: ds.b SR1OBS | Serial-1 output buffer
|
---|
| 3801 | sr2ibuf: ds.b SR2IBS | Serial-2 input buffer
|
---|
| 3802 | sr2obuf: ds.b SR2OBS | Serial-2 output buffer
|
---|
| 3803 |
|
---|
[f40a309] | 3804 | .ifne BUCHLA
|
---|
[4f508e6] | 3805 |
|
---|
| 3806 | mc1ibuf: ds.b MC1IBS | MIDI-1 input buffer
|
---|
| 3807 | mc1obuf: ds.b MC1OBS | MIDI-1 output buffer
|
---|
| 3808 | mc2ibuf: ds.b MC2IBS | MIDI-2 input buffer
|
---|
| 3809 | mc2obuf: ds.b MC2OBS | MIDI-2 output buffer
|
---|
| 3810 |
|
---|
| 3811 | api_inp: ds.b 1 | Analog processor input byte
|
---|
| 3812 | api_bug: ds.b 1 | Analog processor signal # "bug trap"
|
---|
| 3813 | api_sv: ds.b 1 | Analog processor state
|
---|
| 3814 | api_svb: ds.b 1 | Analog processor state "bug trap"
|
---|
| 3815 |
|
---|
[f40a309] | 3816 | .even
|
---|
[4f508e6] | 3817 |
|
---|
| 3818 | api_sig: ds.b 1 | Analog signal number
|
---|
| 3819 | api_val: ds.b 1 | Analog value
|
---|
| 3820 |
|
---|
| 3821 | api_fi: ds.l 1 | Analog processor FIFO input pointer
|
---|
| 3822 | api_fo: ds.l 1 | Analog processor FIFO output pointer
|
---|
| 3823 | api_fum: ds.w APISIZE | Analog processor FIFO
|
---|
| 3824 | api_fe: | End of analog processor FIFO
|
---|
| 3825 |
|
---|
[f40a309] | 3826 | .endc
|
---|
[4f508e6] | 3827 |
|
---|
[f40a309] | 3828 | .even
|
---|
[4f508e6] | 3829 |
|
---|
| 3830 | basepage: ds.l 64 | Pseudo base page
|
---|
| 3831 |
|
---|
| 3832 | buffer: ds.b 1024 | Default disk buffer
|
---|
| 3833 |
|
---|
| 3834 | biostop: | End of BIOS RAM
|
---|
| 3835 |
|
---|
[f40a309] | 3836 | .end
|
---|