[7bf3856] | 1 | .globl _errno
|
---|
| 2 | .globl _chantab
|
---|
| 3 | .globl _Wrkbuf
|
---|
| 4 | .globl _Cbuffs
|
---|
| 5 | .globl _Stdbufs
|
---|
| 6 | .globl _Stdbuf
|
---|
| 7 | .globl __thebpb
|
---|
| 8 | .globl __thefat
|
---|
| 9 | .data
|
---|
| 10 | L1:
|
---|
| 11 | *line 27
|
---|
| 12 | .dc.l L2
|
---|
| 13 | *line 28
|
---|
| 14 | .dc.l L3
|
---|
| 15 | *line 29
|
---|
| 16 | .dc.l L4
|
---|
| 17 | *line 30
|
---|
| 18 | .dc.l L5
|
---|
| 19 | *line 32
|
---|
| 20 | .dc.l L6
|
---|
| 21 | *line 33
|
---|
| 22 | .dc.l L7
|
---|
| 23 | *line 34
|
---|
| 24 | .dc.l L8
|
---|
| 25 | *line 35
|
---|
| 26 | .dc.l L9
|
---|
| 27 | *line 37
|
---|
| 28 | .dc.l L10
|
---|
| 29 | *line 38
|
---|
| 30 | .dc.l L11
|
---|
| 31 | *line 39
|
---|
| 32 | .dc.l L12
|
---|
| 33 | *line 40
|
---|
| 34 | .dc.l L13
|
---|
| 35 | *line 42
|
---|
| 36 | .dc.l L14
|
---|
| 37 | *line 43
|
---|
| 38 | .dc.l L15
|
---|
| 39 | *line 44
|
---|
| 40 | .dc.l L16
|
---|
| 41 | *line 46
|
---|
| 42 | .dc.l L17
|
---|
| 43 | .text
|
---|
| 44 | .data
|
---|
| 45 | L18:
|
---|
| 46 | *line 53
|
---|
| 47 | .dc.l L19
|
---|
| 48 | *line 54
|
---|
| 49 | .dc.l L20
|
---|
| 50 | *line 55
|
---|
| 51 | .dc.l L21
|
---|
| 52 | *line 56
|
---|
| 53 | .dc.l L22
|
---|
| 54 | *line 57
|
---|
| 55 | .dc.l L23
|
---|
| 56 | *line 58
|
---|
| 57 | .dc.l L24
|
---|
| 58 | *line 59
|
---|
| 59 | .dc.l L25
|
---|
| 60 | *line 61
|
---|
| 61 | .dc.l L26
|
---|
| 62 | .text
|
---|
| 63 | .data
|
---|
| 64 | L27:
|
---|
| 65 | *line 65
|
---|
| 66 | .dc.l L28
|
---|
| 67 | *line 66
|
---|
| 68 | .dc.l L29
|
---|
| 69 | *line 67
|
---|
| 70 | .dc.l L30
|
---|
| 71 | *line 68
|
---|
| 72 | .dc.l L31
|
---|
| 73 | *line 69
|
---|
| 74 | .dc.l L32
|
---|
| 75 | *line 70
|
---|
| 76 | .dc.l L33
|
---|
| 77 | *line 71
|
---|
| 78 | .dc.l L34
|
---|
| 79 | *line 73
|
---|
| 80 | .dc.l L35
|
---|
| 81 | .text
|
---|
| 82 | .text
|
---|
| 83 | _waitcr:
|
---|
| 84 | ~~waitcr:
|
---|
| 85 | link R14,#-6
|
---|
| 86 | ~c=-2
|
---|
| 87 | *line 83
|
---|
| 88 | move #7,(sp)
|
---|
| 89 | move #2,-(sp)
|
---|
| 90 | move #3,-(sp)
|
---|
| 91 | jsr _trap13
|
---|
| 92 | addq.l #4,sp
|
---|
| 93 | *line 85
|
---|
| 94 | bra L40
|
---|
| 95 | L39:
|
---|
| 96 | *line 86
|
---|
| 97 | *line 87
|
---|
| 98 | cmp.b #7,-2(R14)
|
---|
| 99 | bne L41
|
---|
| 100 | *line 87
|
---|
| 101 | jsr _xtrap15
|
---|
| 102 | L41:L40:
|
---|
| 103 | *line 88
|
---|
| 104 | move #2,(sp)
|
---|
| 105 | move #2,-(sp)
|
---|
| 106 | jsr _trap13
|
---|
| 107 | addq.l #2,sp
|
---|
| 108 | and.l #$7f,R0
|
---|
| 109 | move.b R0,-2(R14)
|
---|
| 110 | cmp #13,R0
|
---|
| 111 | bne L39
|
---|
| 112 | L38:L37:unlk R14
|
---|
| 113 | rts
|
---|
| 114 | .globl _ClusMap
|
---|
| 115 | .text
|
---|
| 116 | _ClusMap:
|
---|
| 117 | ~~ClusMap:
|
---|
| 118 | ~fcp=8
|
---|
| 119 | link R14,#-20
|
---|
| 120 | ~clus=-2
|
---|
| 121 | ~nc=-4
|
---|
| 122 | ~alsize=-8
|
---|
| 123 | ~bused=-12
|
---|
| 124 | ~bunused=-16
|
---|
| 125 | *line 108
|
---|
| 126 | *line 108
|
---|
| 127 | move.l 8(R14),R8
|
---|
| 128 | btst #4,32(R8)
|
---|
| 129 | bne L43
|
---|
| 130 | *line 109
|
---|
| 131 | *line 110
|
---|
| 132 | move #22,_errno
|
---|
| 133 | *line 111
|
---|
| 134 | move #-1,R0
|
---|
| 135 | bra L42
|
---|
| 136 | *line 112
|
---|
| 137 | *line 113
|
---|
| 138 | L43:
|
---|
| 139 | *line 114
|
---|
| 140 | clr -4(R14)
|
---|
| 141 | *line 115
|
---|
| 142 | move.l 8(R14),R8
|
---|
| 143 | move 26(R8),(sp)
|
---|
| 144 | jsr _micons
|
---|
| 145 | move R0,-2(R14)
|
---|
| 146 | *line 117
|
---|
| 147 | *line 117
|
---|
| 148 | tst -2(R14)
|
---|
| 149 | beq L44
|
---|
| 150 | *line 118
|
---|
| 151 | *line 119
|
---|
| 152 | *line 120
|
---|
| 153 | move -2(R14),(sp)
|
---|
| 154 | move.l 8(R14),-(sp)
|
---|
| 155 | add.l #8,(sp)
|
---|
| 156 | move.l 8(R14),-(sp)
|
---|
| 157 | move.l #L45,-(sp)
|
---|
| 158 | jsr _printf
|
---|
| 159 | adda.l #12,sp
|
---|
| 160 | *line 121
|
---|
| 161 | move #1,-4(R14)
|
---|
| 162 | *line 122
|
---|
| 163 | *line 123
|
---|
| 164 | bra L48
|
---|
| 165 | L47:
|
---|
| 166 | *line 124
|
---|
| 167 | *line 125
|
---|
| 168 | move -2(R14),(sp)
|
---|
| 169 | move.l #__thefat,-(sp)
|
---|
| 170 | jsr __gtcl12
|
---|
| 171 | addq.l #4,sp
|
---|
| 172 | move R0,-2(R14)
|
---|
| 173 | *line 126
|
---|
| 174 | *line 127
|
---|
| 175 | *line 127
|
---|
| 176 | cmp #4080,-2(R14)
|
---|
| 177 | bge L49
|
---|
| 178 | *line 128
|
---|
| 179 | *line 129
|
---|
| 180 | add #1,-4(R14)
|
---|
| 181 | *line 130
|
---|
| 182 | *line 131
|
---|
| 183 | *line 132
|
---|
| 184 | move -4(R14),R0
|
---|
| 185 | sub #1,R0
|
---|
| 186 | ext.l R0
|
---|
| 187 | divs #10,R0
|
---|
| 188 | swap R0
|
---|
| 189 | tst R0
|
---|
| 190 | bne L50
|
---|
| 191 | *line 132
|
---|
| 192 | move.l #L51,(sp)
|
---|
| 193 | jsr _printf
|
---|
| 194 | *line 133
|
---|
| 195 | L50:
|
---|
| 196 | *line 134
|
---|
| 197 | move -2(R14),(sp)
|
---|
| 198 | move.l #L52,-(sp)
|
---|
| 199 | jsr _printf
|
---|
| 200 | addq.l #4,sp
|
---|
| 201 | *line 135
|
---|
| 202 | L49:L48:
|
---|
| 203 | *line 136
|
---|
| 204 | cmp #4080,-2(R14)
|
---|
| 205 | blt L47
|
---|
| 206 | L46:
|
---|
| 207 | *line 137
|
---|
| 208 | *line 138
|
---|
| 209 | L44:
|
---|
| 210 | *line 139
|
---|
| 211 | move.l __thebpb,R8
|
---|
| 212 | clr R0
|
---|
| 213 | move 4(R8),R0
|
---|
| 214 | mulu -4(R14),R0
|
---|
| 215 | move.l R0,-8(R14)
|
---|
| 216 | *line 140
|
---|
| 217 | move.l 8(R14),R8
|
---|
| 218 | move.l 48(R8),-12(R14)
|
---|
| 219 | *line 141
|
---|
| 220 | move.l -8(R14),R0
|
---|
| 221 | sub.l -12(R14),R0
|
---|
| 222 | move.l R0,-16(R14)
|
---|
| 223 | *line 143
|
---|
| 224 | move.l 8(R14),R8
|
---|
| 225 | move.l 52(R8),(sp)
|
---|
| 226 | move -4(R14),-(sp)
|
---|
| 227 | move.l #L53,-(sp)
|
---|
| 228 | jsr _printf
|
---|
| 229 | addq.l #6,sp
|
---|
| 230 | *line 144
|
---|
| 231 | move.l -12(R14),(sp)
|
---|
| 232 | move.l -8(R14),-(sp)
|
---|
| 233 | move.l #L54,-(sp)
|
---|
| 234 | jsr _printf
|
---|
| 235 | addq.l #8,sp
|
---|
| 236 | *line 146
|
---|
| 237 | *line 147
|
---|
| 238 | move.l -8(R14),R0
|
---|
| 239 | cmp.l -12(R14),R0
|
---|
| 240 | blt L55
|
---|
| 241 | *line 147
|
---|
| 242 | move.l -16(R14),(sp)
|
---|
| 243 | move.l #L56,-(sp)
|
---|
| 244 | jsr _printf
|
---|
| 245 | addq.l #4,sp
|
---|
| 246 | *line 148
|
---|
| 247 | L55:
|
---|
| 248 | *line 149
|
---|
| 249 | move.l #L57,(sp)
|
---|
| 250 | jsr _printf
|
---|
| 251 | *line 151
|
---|
| 252 | *line 152
|
---|
| 253 | move.l -12(R14),R0
|
---|
| 254 | cmp.l -8(R14),R0
|
---|
| 255 | ble L58
|
---|
| 256 | *line 152
|
---|
| 257 | move.l #L59,(sp)
|
---|
| 258 | jsr _printf
|
---|
| 259 | *line 153
|
---|
| 260 | L58:
|
---|
| 261 | *line 154
|
---|
| 262 | *line 155
|
---|
| 263 | move.l 8(R14),R8
|
---|
| 264 | move.l 52(R8),R0
|
---|
| 265 | move -4(R14),R8
|
---|
| 266 | cmp.l R8,R0
|
---|
| 267 | beq L60
|
---|
| 268 | *line 156
|
---|
| 269 | move.l 8(R14),R8
|
---|
| 270 | move.l 52(R8),(sp)
|
---|
| 271 | move -4(R14),-(sp)
|
---|
| 272 | move.l #L61,-(sp)
|
---|
| 273 | jsr _printf
|
---|
| 274 | addq.l #6,sp
|
---|
| 275 | L60:
|
---|
| 276 | *line 157
|
---|
| 277 | clr R0
|
---|
| 278 | bra L42
|
---|
| 279 | L42:unlk R14
|
---|
| 280 | rts
|
---|
| 281 | .globl _FCBmode
|
---|
| 282 | .text
|
---|
| 283 | _FCBmode:
|
---|
| 284 | ~~FCBmode:
|
---|
| 285 | ~fcp=R13
|
---|
| 286 | link R14,#0
|
---|
| 287 | movem.l R5-R7/R13-R13,-(sp)
|
---|
| 288 | ~mf=R7
|
---|
| 289 | ~i=R6
|
---|
| 290 | *line 176
|
---|
| 291 | move.l 8(R14),R13
|
---|
| 292 | *line 176
|
---|
| 293 | move.l #L63,(sp)
|
---|
| 294 | jsr _printf
|
---|
| 295 | *line 177
|
---|
| 296 | move #1,R7
|
---|
| 297 | *line 179
|
---|
| 298 | clr R6
|
---|
| 299 | bra L66
|
---|
| 300 | L67:
|
---|
| 301 | *line 180
|
---|
| 302 | *line 181
|
---|
| 303 | *line 182
|
---|
| 304 | clr R0
|
---|
| 305 | move R7,R0
|
---|
| 306 | and 32(R13),R0
|
---|
| 307 | beq L68
|
---|
| 308 | *line 182
|
---|
| 309 | move R6,R8
|
---|
| 310 | add.l R8,R8
|
---|
| 311 | add.l R8,R8
|
---|
| 312 | move.l #L1,R9
|
---|
| 313 | move.l 0(R8,R9.l),(sp)
|
---|
| 314 | move.l #L69,-(sp)
|
---|
| 315 | jsr _printf
|
---|
| 316 | addq.l #4,sp
|
---|
| 317 | *line 183
|
---|
| 318 | L68:
|
---|
| 319 | *line 184
|
---|
| 320 | lsl R7
|
---|
| 321 | L65:
|
---|
| 322 | *line 179
|
---|
| 323 | add #1,R6
|
---|
| 324 | L66:
|
---|
| 325 | *line 179
|
---|
| 326 | cmp #16,R6
|
---|
| 327 | blt L67
|
---|
| 328 | L64:
|
---|
| 329 | *line 187
|
---|
| 330 | move.l #L70,(sp)
|
---|
| 331 | jsr _printf
|
---|
| 332 | *line 189
|
---|
| 333 | move #1,R7
|
---|
| 334 | *line 191
|
---|
| 335 | clr R6
|
---|
| 336 | bra L73
|
---|
| 337 | L74:
|
---|
| 338 | *line 192
|
---|
| 339 | *line 193
|
---|
| 340 | *line 194
|
---|
| 341 | clr R0
|
---|
| 342 | move R7,R0
|
---|
| 343 | move.b 11(R13),R1
|
---|
| 344 | ext.w R1
|
---|
| 345 | and R1,R0
|
---|
| 346 | beq L75
|
---|
| 347 | *line 194
|
---|
| 348 | move R6,R8
|
---|
| 349 | add.l R8,R8
|
---|
| 350 | add.l R8,R8
|
---|
| 351 | move.l #L18,R9
|
---|
| 352 | move.l 0(R8,R9.l),(sp)
|
---|
| 353 | move.l #L76,-(sp)
|
---|
| 354 | jsr _printf
|
---|
| 355 | addq.l #4,sp
|
---|
| 356 | *line 195
|
---|
| 357 | L75:
|
---|
| 358 | *line 196
|
---|
| 359 | lsl R7
|
---|
| 360 | L72:
|
---|
| 361 | *line 191
|
---|
| 362 | add #1,R6
|
---|
| 363 | L73:
|
---|
| 364 | *line 191
|
---|
| 365 | cmp #8,R6
|
---|
| 366 | blt L74
|
---|
| 367 | L71:
|
---|
| 368 | *line 199
|
---|
| 369 | move.l #L77,(sp)
|
---|
| 370 | jsr _printf
|
---|
| 371 | *line 200
|
---|
| 372 | move.l R13,R0
|
---|
| 373 | bra L62
|
---|
| 374 | L62:tst.l (sp)+
|
---|
| 375 | movem.l (sp)+,R6-R7/R13-R13
|
---|
| 376 | unlk R14
|
---|
| 377 | rts
|
---|
| 378 | .globl _SnapFCB
|
---|
| 379 | .text
|
---|
| 380 | _SnapFCB:
|
---|
| 381 | ~~SnapFCB:
|
---|
| 382 | ~fcp=R13
|
---|
| 383 | link R14,#0
|
---|
| 384 | movem.l R7-R7/R13-R13,-(sp)
|
---|
| 385 | *line 217
|
---|
| 386 | move.l 8(R14),R13
|
---|
| 387 | *line 218
|
---|
| 388 | move.l R13,(sp)
|
---|
| 389 | add.l #8,(sp)
|
---|
| 390 | move.l R13,-(sp)
|
---|
| 391 | move.l R13,-(sp)
|
---|
| 392 | move.l #L79,-(sp)
|
---|
| 393 | jsr _printf
|
---|
| 394 | adda.l #12,sp
|
---|
| 395 | *line 219
|
---|
| 396 | move.l R13,(sp)
|
---|
| 397 | jsr _FCBmode
|
---|
| 398 | *line 221
|
---|
| 399 | move.b 11(R13),R0
|
---|
| 400 | ext.w R0
|
---|
| 401 | move R0,(sp)
|
---|
| 402 | move.l #L80,-(sp)
|
---|
| 403 | jsr _printf
|
---|
| 404 | addq.l #4,sp
|
---|
| 405 | *line 222
|
---|
| 406 | move 32(R13),(sp)
|
---|
| 407 | move.l #L81,-(sp)
|
---|
| 408 | jsr _printf
|
---|
| 409 | addq.l #4,sp
|
---|
| 410 | *line 224
|
---|
| 411 | move 22(R13),(sp)
|
---|
| 412 | jsr _micons
|
---|
| 413 | move R0,(sp)
|
---|
| 414 | move.l #L82,-(sp)
|
---|
| 415 | jsr _printf
|
---|
| 416 | addq.l #4,sp
|
---|
| 417 | *line 225
|
---|
| 418 | move 24(R13),(sp)
|
---|
| 419 | jsr _micons
|
---|
| 420 | move R0,(sp)
|
---|
| 421 | move.l #L83,-(sp)
|
---|
| 422 | jsr _printf
|
---|
| 423 | addq.l #4,sp
|
---|
| 424 | *line 227
|
---|
| 425 | move.l 52(R13),(sp)
|
---|
| 426 | move.l #L84,-(sp)
|
---|
| 427 | jsr _printf
|
---|
| 428 | addq.l #4,sp
|
---|
| 429 | *line 228
|
---|
| 430 | move.l 28(R13),(sp)
|
---|
| 431 | jsr _miconl
|
---|
| 432 | move.l R0,(sp)
|
---|
| 433 | move.l #L85,-(sp)
|
---|
| 434 | jsr _printf
|
---|
| 435 | addq.l #4,sp
|
---|
| 436 | *line 229
|
---|
| 437 | move.l 48(R13),(sp)
|
---|
| 438 | move.l #L86,-(sp)
|
---|
| 439 | jsr _printf
|
---|
| 440 | addq.l #4,sp
|
---|
| 441 | *line 231
|
---|
| 442 | move 26(R13),(sp)
|
---|
| 443 | jsr _micons
|
---|
| 444 | move R0,(sp)
|
---|
| 445 | move.l #L87,-(sp)
|
---|
| 446 | jsr _printf
|
---|
| 447 | addq.l #4,sp
|
---|
| 448 | *line 232
|
---|
| 449 | move 36(R13),(sp)
|
---|
| 450 | move.l #L88,-(sp)
|
---|
| 451 | jsr _printf
|
---|
| 452 | addq.l #4,sp
|
---|
| 453 | *line 233
|
---|
| 454 | move 34(R13),(sp)
|
---|
| 455 | move.l #L89,-(sp)
|
---|
| 456 | jsr _printf
|
---|
| 457 | addq.l #4,sp
|
---|
| 458 | *line 235
|
---|
| 459 | move.l 40(R13),(sp)
|
---|
| 460 | move.l #L90,-(sp)
|
---|
| 461 | jsr _printf
|
---|
| 462 | addq.l #4,sp
|
---|
| 463 | *line 236
|
---|
| 464 | move.l 44(R13),(sp)
|
---|
| 465 | move.l #L91,-(sp)
|
---|
| 466 | jsr _printf
|
---|
| 467 | addq.l #4,sp
|
---|
| 468 | *line 237
|
---|
| 469 | move 38(R13),(sp)
|
---|
| 470 | move.l #L92,-(sp)
|
---|
| 471 | jsr _printf
|
---|
| 472 | addq.l #4,sp
|
---|
| 473 | *line 239
|
---|
| 474 | move.l #L93,(sp)
|
---|
| 475 | jsr _printf
|
---|
| 476 | *line 240
|
---|
| 477 | move.l R13,R0
|
---|
| 478 | bra L78
|
---|
| 479 | L78:tst.l (sp)+
|
---|
| 480 | movem.l (sp)+,R13-R13
|
---|
| 481 | unlk R14
|
---|
| 482 | rts
|
---|
| 483 | .globl _MapFAT
|
---|
| 484 | .text
|
---|
| 485 | _MapFAT:
|
---|
| 486 | ~~MapFAT:
|
---|
| 487 | ~fat=R13
|
---|
| 488 | ~ncl=12
|
---|
| 489 | ~stops=14
|
---|
| 490 | link R14,#0
|
---|
| 491 | movem.l R6-R7/R13-R13,-(sp)
|
---|
| 492 | ~i=R7
|
---|
| 493 | *line 258
|
---|
| 494 | move.l 8(R14),R13
|
---|
| 495 | *line 259
|
---|
| 496 | move 12(R14),(sp)
|
---|
| 497 | move.l R13,-(sp)
|
---|
| 498 | move.l #L95,-(sp)
|
---|
| 499 | jsr _printf
|
---|
| 500 | addq.l #8,sp
|
---|
| 501 | *line 260
|
---|
| 502 | move.l #L96,(sp)
|
---|
| 503 | jsr _printf
|
---|
| 504 | *line 262
|
---|
| 505 | move #2,R7
|
---|
| 506 | bra L99
|
---|
| 507 | L100:
|
---|
| 508 | *line 263
|
---|
| 509 | *line 264
|
---|
| 510 | *line 265
|
---|
| 511 | move R7,R0
|
---|
| 512 | ext.l R0
|
---|
| 513 | divs #10,R0
|
---|
| 514 | swap R0
|
---|
| 515 | tst R0
|
---|
| 516 | bne L101
|
---|
| 517 | *line 265
|
---|
| 518 | move R7,(sp)
|
---|
| 519 | move.l #L102,-(sp)
|
---|
| 520 | jsr _printf
|
---|
| 521 | addq.l #4,sp
|
---|
| 522 | *line 266
|
---|
| 523 | L101:
|
---|
| 524 | *line 267
|
---|
| 525 | move R7,(sp)
|
---|
| 526 | move.l R13,-(sp)
|
---|
| 527 | jsr __gtcl12
|
---|
| 528 | addq.l #4,sp
|
---|
| 529 | move R0,(sp)
|
---|
| 530 | move.l #L103,-(sp)
|
---|
| 531 | jsr _printf
|
---|
| 532 | addq.l #4,sp
|
---|
| 533 | *line 268
|
---|
| 534 | *line 269
|
---|
| 535 | *line 270
|
---|
| 536 | *line 271
|
---|
| 537 | *line 272
|
---|
| 538 | tst 14(R14)
|
---|
| 539 | beq L104
|
---|
| 540 | move R7,R0
|
---|
| 541 | ext.l R0
|
---|
| 542 | divs #10,R0
|
---|
| 543 | ext.l R0
|
---|
| 544 | divs #10,R0
|
---|
| 545 | swap R0
|
---|
| 546 | tst R0
|
---|
| 547 | bne L104
|
---|
| 548 | *line 272
|
---|
| 549 | jsr _waitcr
|
---|
| 550 | L104:L98:
|
---|
| 551 | *line 262
|
---|
| 552 | add #1,R7
|
---|
| 553 | L99:
|
---|
| 554 | *line 262
|
---|
| 555 | cmp 12(R14),R7
|
---|
| 556 | blt L100
|
---|
| 557 | L97:
|
---|
| 558 | *line 275
|
---|
| 559 | move.l #L105,(sp)
|
---|
| 560 | jsr _printf
|
---|
| 561 | L94:tst.l (sp)+
|
---|
| 562 | movem.l (sp)+,R7-R7/R13-R13
|
---|
| 563 | unlk R14
|
---|
| 564 | rts
|
---|
| 565 | .globl _FILEfl
|
---|
| 566 | .text
|
---|
| 567 | _FILEfl:
|
---|
| 568 | ~~FILEfl:
|
---|
| 569 | ~fp=8
|
---|
| 570 | link R14,#0
|
---|
| 571 | movem.l R5-R7,-(sp)
|
---|
| 572 | ~mf=R7
|
---|
| 573 | ~i=R6
|
---|
| 574 | *line 294
|
---|
| 575 | move.l #L107,(sp)
|
---|
| 576 | jsr _printf
|
---|
| 577 | *line 295
|
---|
| 578 | move #1,R7
|
---|
| 579 | *line 297
|
---|
| 580 | clr R6
|
---|
| 581 | bra L110
|
---|
| 582 | L111:
|
---|
| 583 | *line 298
|
---|
| 584 | *line 299
|
---|
| 585 | *line 300
|
---|
| 586 | clr R0
|
---|
| 587 | move R7,R0
|
---|
| 588 | move.l 8(R14),R9
|
---|
| 589 | move.b 12(R9),R1
|
---|
| 590 | ext.w R1
|
---|
| 591 | and R1,R0
|
---|
| 592 | beq L112
|
---|
| 593 | *line 300
|
---|
| 594 | move R6,R8
|
---|
| 595 | add.l R8,R8
|
---|
| 596 | add.l R8,R8
|
---|
| 597 | move.l #L27,R9
|
---|
| 598 | move.l 0(R8,R9.l),(sp)
|
---|
| 599 | move.l #L113,-(sp)
|
---|
| 600 | jsr _printf
|
---|
| 601 | addq.l #4,sp
|
---|
| 602 | *line 301
|
---|
| 603 | L112:
|
---|
| 604 | *line 302
|
---|
| 605 | lsl R7
|
---|
| 606 | L109:
|
---|
| 607 | *line 297
|
---|
| 608 | add #1,R6
|
---|
| 609 | L110:
|
---|
| 610 | *line 297
|
---|
| 611 | cmp #8,R6
|
---|
| 612 | blt L111
|
---|
| 613 | L108:
|
---|
| 614 | *line 305
|
---|
| 615 | move.l #L114,(sp)
|
---|
| 616 | jsr _printf
|
---|
| 617 | *line 306
|
---|
| 618 | move.l 8(R14),R0
|
---|
| 619 | bra L106
|
---|
| 620 | L106:tst.l (sp)+
|
---|
| 621 | movem.l (sp)+,R6-R7
|
---|
| 622 | unlk R14
|
---|
| 623 | rts
|
---|
| 624 | .globl _FILEpr
|
---|
| 625 | .text
|
---|
| 626 | _FILEpr:
|
---|
| 627 | ~~FILEpr:
|
---|
| 628 | ~fp=8
|
---|
| 629 | link R14,#-26
|
---|
| 630 | ~arg=-4
|
---|
| 631 | ~ft=-6
|
---|
| 632 | ~ds=-10
|
---|
| 633 | ~fsn=-14
|
---|
| 634 | ~fse=-18
|
---|
| 635 | ~fcp=-22
|
---|
| 636 | *line 325
|
---|
| 637 | *line 325
|
---|
| 638 | tst.l 8(R14)
|
---|
| 639 | bne L116
|
---|
| 640 | *line 326
|
---|
| 641 | *line 327
|
---|
| 642 | move.l #L117,(sp)
|
---|
| 643 | jsr _printf
|
---|
| 644 | bra L115
|
---|
| 645 | *line 328
|
---|
| 646 | *line 329
|
---|
| 647 | *line 330
|
---|
| 648 | *line 331
|
---|
| 649 | L116:
|
---|
| 650 | *line 332
|
---|
| 651 | move.l 8(R14),(sp)
|
---|
| 652 | move.l #L118,-(sp)
|
---|
| 653 | jsr _printf
|
---|
| 654 | addq.l #4,sp
|
---|
| 655 | *line 334
|
---|
| 656 | move.l 8(R14),R8
|
---|
| 657 | move.b 13(R8),R0
|
---|
| 658 | ext.w R0
|
---|
| 659 | muls #12,R0
|
---|
| 660 | add.l #_chantab,R0
|
---|
| 661 | move.l R0,R8
|
---|
| 662 | move.l 4(R8),-4(R14)
|
---|
| 663 | *line 335
|
---|
| 664 | clr -6(R14)
|
---|
| 665 | *line 337
|
---|
| 666 | *line 337
|
---|
| 667 | move.l -4(R14),R0
|
---|
| 668 | cmp.l #__noper,R0
|
---|
| 669 | bne L119
|
---|
| 670 | *line 338
|
---|
| 671 | *line 339
|
---|
| 672 | move.l 8(R14),R8
|
---|
| 673 | move.b 13(R8),R0
|
---|
| 674 | ext.w R0
|
---|
| 675 | muls #12,R0
|
---|
| 676 | move.l R0,R8
|
---|
| 677 | move.l #_chantab,R9
|
---|
| 678 | move.l 8(R8,R9.l),R8
|
---|
| 679 | move.l (R8),-10(R14)
|
---|
| 680 | *line 340
|
---|
| 681 | move.l -10(R14),(sp)
|
---|
| 682 | move.l #L120,-(sp)
|
---|
| 683 | jsr _printf
|
---|
| 684 | addq.l #4,sp
|
---|
| 685 | *line 341
|
---|
| 686 | bra L121
|
---|
| 687 | L119:
|
---|
| 688 | *line 342
|
---|
| 689 | *line 342
|
---|
| 690 | move.l -4(R14),R0
|
---|
| 691 | cmp.l #__filecl,R0
|
---|
| 692 | bne L122
|
---|
| 693 | *line 343
|
---|
| 694 | *line 344
|
---|
| 695 | move #1,-6(R14)
|
---|
| 696 | *line 345
|
---|
| 697 | move.l 8(R14),R8
|
---|
| 698 | move.b 13(R8),R0
|
---|
| 699 | ext.w R0
|
---|
| 700 | muls #12,R0
|
---|
| 701 | add.l #_chantab,R0
|
---|
| 702 | move.l R0,R8
|
---|
| 703 | move.l 8(R8),-22(R14)
|
---|
| 704 | *line 346
|
---|
| 705 | move.l -22(R14),-14(R14)
|
---|
| 706 | *line 347
|
---|
| 707 | move.l -22(R14),R0
|
---|
| 708 | add.l #8,R0
|
---|
| 709 | move.l R0,-18(R14)
|
---|
| 710 | *line 348
|
---|
| 711 | *line 349
|
---|
| 712 | move.l -22(R14),(sp)
|
---|
| 713 | move.l -18(R14),-(sp)
|
---|
| 714 | move.l -14(R14),-(sp)
|
---|
| 715 | move.l #L123,-(sp)
|
---|
| 716 | jsr _printf
|
---|
| 717 | adda.l #12,sp
|
---|
| 718 | *line 350
|
---|
| 719 | bra L124
|
---|
| 720 | L122:
|
---|
| 721 | *line 351
|
---|
| 722 | *line 352
|
---|
| 723 | *line 353
|
---|
| 724 | *line 354
|
---|
| 725 | move.l 8(R14),R8
|
---|
| 726 | move.b 13(R8),R0
|
---|
| 727 | ext.w R0
|
---|
| 728 | muls #12,R0
|
---|
| 729 | move.l R0,R8
|
---|
| 730 | move.l #_chantab,R9
|
---|
| 731 | move.l 8(R8,R9.l),(sp)
|
---|
| 732 | move.l -4(R14),-(sp)
|
---|
| 733 | move.l #L125,-(sp)
|
---|
| 734 | jsr _printf
|
---|
| 735 | addq.l #8,sp
|
---|
| 736 | L124:L121:
|
---|
| 737 | *line 357
|
---|
| 738 | *line 358
|
---|
| 739 | move.l 8(R14),R8
|
---|
| 740 | move 16(R8),(sp)
|
---|
| 741 | move.l 8(R14),R8
|
---|
| 742 | move.l 4(R8),-(sp)
|
---|
| 743 | move.l 8(R14),R8
|
---|
| 744 | move.l (R8),-(sp)
|
---|
| 745 | move.l 8(R14),R8
|
---|
| 746 | move.l 8(R8),-(sp)
|
---|
| 747 | move.l #L126,-(sp)
|
---|
| 748 | jsr _printf
|
---|
| 749 | adda.l #16,sp
|
---|
| 750 | *line 359
|
---|
| 751 | *line 360
|
---|
| 752 | move.l 8(R14),R8
|
---|
| 753 | move.b 14(R8),R0
|
---|
| 754 | ext.w R0
|
---|
| 755 | move R0,(sp)
|
---|
| 756 | move.l 8(R14),R8
|
---|
| 757 | move.b 13(R8),R0
|
---|
| 758 | ext.w R0
|
---|
| 759 | move R0,-(sp)
|
---|
| 760 | move.l 8(R14),R8
|
---|
| 761 | move.b 12(R8),R0
|
---|
| 762 | ext.w R0
|
---|
| 763 | move R0,-(sp)
|
---|
| 764 | move.l #L127,-(sp)
|
---|
| 765 | jsr _printf
|
---|
| 766 | addq.l #8,sp
|
---|
| 767 | *line 362
|
---|
| 768 | move.l 8(R14),(sp)
|
---|
| 769 | jsr _FILEfl
|
---|
| 770 | *line 364
|
---|
| 771 | *line 365
|
---|
| 772 | tst -6(R14)
|
---|
| 773 | beq L128
|
---|
| 774 | *line 365
|
---|
| 775 | move.l -22(R14),(sp)
|
---|
| 776 | jsr _SnapFCB
|
---|
| 777 | *line 366
|
---|
| 778 | bra L129
|
---|
| 779 | L128:
|
---|
| 780 | *line 367
|
---|
| 781 | move.l #L130,(sp)
|
---|
| 782 | jsr _printf
|
---|
| 783 | L129:L115:unlk R14
|
---|
| 784 | rts
|
---|
| 785 | .globl _fd2fcb
|
---|
| 786 | .text
|
---|
| 787 | _fd2fcb:
|
---|
| 788 | ~~fd2fcb:
|
---|
| 789 | ~fd=8
|
---|
| 790 | link R14,#-4
|
---|
| 791 | *line 383
|
---|
| 792 | *line 384
|
---|
| 793 | tst 8(R14)
|
---|
| 794 | blt L10000
|
---|
| 795 | cmp #11,8(R14)
|
---|
| 796 | ble L132
|
---|
| 797 | L10000:*line 384
|
---|
| 798 | clr.l R0
|
---|
| 799 | bra L131
|
---|
| 800 | *line 385
|
---|
| 801 | L132:
|
---|
| 802 | *line 386
|
---|
| 803 | move 8(R14),R0
|
---|
| 804 | muls #12,R0
|
---|
| 805 | move.l R0,R8
|
---|
| 806 | move.l #_chantab,R9
|
---|
| 807 | move.l 8(R8,R9.l),R0
|
---|
| 808 | bra L131
|
---|
| 809 | L131:unlk R14
|
---|
| 810 | rts
|
---|
| 811 | .globl _fp2fcb
|
---|
| 812 | .text
|
---|
| 813 | _fp2fcb:
|
---|
| 814 | ~~fp2fcb:
|
---|
| 815 | ~fp=8
|
---|
| 816 | link R14,#-4
|
---|
| 817 | *line 399
|
---|
| 818 | *line 400
|
---|
| 819 | tst.l 8(R14)
|
---|
| 820 | bne L134
|
---|
| 821 | *line 400
|
---|
| 822 | clr.l R0
|
---|
| 823 | bra L133
|
---|
| 824 | *line 401
|
---|
| 825 | L134:
|
---|
| 826 | *line 402
|
---|
| 827 | move.l 8(R14),R8
|
---|
| 828 | move.b 13(R8),R0
|
---|
| 829 | ext.w R0
|
---|
| 830 | muls #12,R0
|
---|
| 831 | move.l R0,R8
|
---|
| 832 | move.l #_chantab,R9
|
---|
| 833 | move.l 8(R8,R9.l),R0
|
---|
| 834 | bra L133
|
---|
| 835 | L133:unlk R14
|
---|
| 836 | rts
|
---|
| 837 | .data
|
---|
| 838 | L2:.dc.b $3F,$44,$30,$0
|
---|
| 839 | L3:.dc.b $3F,$44,$31,$0
|
---|
| 840 | L4:.dc.b $3F,$44,$32,$0
|
---|
| 841 | L5:.dc.b $3F,$44,$33,$0
|
---|
| 842 | L6:.dc.b $42,$46,$20,$0
|
---|
| 843 | L7:.dc.b $4E,$42,$20,$0
|
---|
| 844 | L8:.dc.b $54,$52,$20,$0
|
---|
| 845 | L9:.dc.b $45,$58,$20,$0
|
---|
| 846 | L10:.dc.b $52,$44,$20,$0
|
---|
| 847 | L11:.dc.b $57,$52,$20,$0
|
---|
| 848 | L12:.dc.b $41,$50,$20,$0
|
---|
| 849 | L13:.dc.b $43,$52,$20,$0
|
---|
| 850 | L14:.dc.b $4F,$50,$4E,$0
|
---|
| 851 | L15:.dc.b $45,$52,$52,$0
|
---|
| 852 | L16:.dc.b $42,$41,$44,$0
|
---|
| 853 | L17:.dc.b $45,$4F,$46,$0
|
---|
| 854 | L19:.dc.b $52,$44,$4F,$4E,$4C,$59,$0
|
---|
| 855 | L20:.dc.b $48,$49,$44,$44,$45,$4E,$0
|
---|
| 856 | L21:.dc.b $53,$59,$53,$54,$45,$4D,$0
|
---|
| 857 | L22:.dc.b $56,$4F,$4C,$55,$4D,$45,$0
|
---|
| 858 | L23:.dc.b $53,$55,$42,$44,$49,$52,$0
|
---|
| 859 | L24:.dc.b $41,$52,$43,$48,$49,$56,$0
|
---|
| 860 | L25:.dc.b $3F,$3F,$44,$36,$3F,$3F,$0
|
---|
| 861 | L26:.dc.b $3F,$3F,$44,$37,$3F,$3F,$0
|
---|
| 862 | L28:.dc.b $42,$55,$53,$59,$20,$20,$0
|
---|
| 863 | L29:.dc.b $41,$4C,$4C,$42,$55,$46,$0
|
---|
| 864 | L30:.dc.b $44,$49,$52,$54,$59,$20,$0
|
---|
| 865 | L31:.dc.b $45,$4F,$46,$20,$20,$20,$0
|
---|
| 866 | L32:.dc.b $49,$4F,$45,$52,$52,$20,$0
|
---|
| 867 | L33:.dc.b $3F,$3F,$44,$35,$3F,$3F,$0
|
---|
| 868 | L34:.dc.b $3F,$3F,$44,$36,$3F,$3F,$0
|
---|
| 869 | L35:.dc.b $3F,$3F,$44,$37,$3F,$3F,$0
|
---|
| 870 | L45:.dc.b $41,$6C,$6C,$6F,$63,$61,$74,$65,$64,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$68,$61,$69,$6E,$20,$66,$6F,$72,$20,$5B,$25
|
---|
| 871 | .dc.b $2D,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$2D,$33,$2E,$33,$73,$5D,$3A,$A,$25,$36,$64,$0
|
---|
| 872 | L51:.dc.b $A,$0
|
---|
| 873 | L52:.dc.b $25,$36,$64,$0
|
---|
| 874 | L53:.dc.b $A,$46,$41,$54,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$3D,$25,$64,$2C,$20,$61,$73,$65,$63,$74,$73,$3D
|
---|
| 875 | .dc.b $25,$6C,$64,$A,$0
|
---|
| 876 | L54:.dc.b $25,$6C,$64,$20,$62,$79,$74,$65,$73,$20,$61,$6C,$6C,$6F,$63,$61,$74,$65,$64,$2C,$20,$25,$6C,$64,$20,$62,$79,$74,$65,$73
|
---|
| 877 | .dc.b $20,$75,$73,$65,$64,$0
|
---|
| 878 | L56:.dc.b $2C,$20,$25,$6C,$64,$20,$62,$79,$74,$65,$73,$20,$75,$6E,$75,$73,$65,$64,$0
|
---|
| 879 | L57:.dc.b $A,$0
|
---|
| 880 | L59:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$20,$64,$69,$72,$65,$63,$74,$6F,$72,$79,$20,$66,$69,$6C,$65,$20,$73,$69,$7A,$65,$20,$65,$78
|
---|
| 881 | .dc.b $63,$65,$65,$64,$73,$20,$46,$41,$54,$20,$61,$6C,$6C,$6F,$63,$61,$74,$69,$6F,$6E,$A,$0
|
---|
| 882 | L61:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$20,$46,$41,$54,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$20,$28,$25,$64,$29
|
---|
| 883 | .dc.b $20,$4E,$45,$20,$46,$43,$42,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$20,$28,$25,$6C,$64,$29,$A,$0
|
---|
| 884 | L63:.dc.b $20,$20,$66,$6C,$61,$67,$73,$3A,$20,$20,$0
|
---|
| 885 | L69:.dc.b $25,$73,$20,$0
|
---|
| 886 | L70:.dc.b $A,$20,$20,$61,$74,$72,$69,$62,$3A,$20,$20,$0
|
---|
| 887 | L76:.dc.b $25,$73,$20,$0
|
---|
| 888 | L77:.dc.b $A,$0
|
---|
| 889 | L79:.dc.b $A,$46,$43,$42,$20,$61,$74,$20,$30,$78,$25,$30,$38,$6C,$78,$3A,$20,$20,$5B,$25,$2D,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$2D
|
---|
| 890 | .dc.b $33,$2E,$33,$73,$5D,$A,$0
|
---|
| 891 | L80:.dc.b $20,$20,$61,$74,$72,$69,$62,$20,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$0
|
---|
| 892 | L81:.dc.b $20,$20,$6D,$6F,$64,$65,$66,$6C,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$A,$0
|
---|
| 893 | L82:.dc.b $20,$20,$63,$72,$74,$69,$6D,$65,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$0
|
---|
| 894 | L83:.dc.b $20,$20,$63,$72,$64,$61,$74,$65,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$A,$0
|
---|
| 895 | L84:.dc.b $20,$20,$61,$73,$65,$63,$74,$73,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
| 896 | L85:.dc.b $20,$20,$66,$6C,$65,$6E,$20,$20,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
| 897 | L86:.dc.b $20,$20,$63,$75,$72,$6C,$65,$6E,$20,$20,$20,$25,$38,$6C,$64,$A,$0
|
---|
| 898 | L87:.dc.b $20,$20,$62,$63,$6C,$75,$73,$74,$20,$20,$20,$25,$38,$64,$0
|
---|
| 899 | L88:.dc.b $20,$20,$63,$75,$72,$63,$6C,$73,$20,$20,$20,$25,$38,$64,$0
|
---|
| 900 | L89:.dc.b $20,$20,$63,$6C,$73,$65,$63,$20,$20,$20,$20,$25,$38,$64,$A,$0
|
---|
| 901 | L90:.dc.b $20,$20,$63,$75,$72,$6C,$73,$6E,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
| 902 | L91:.dc.b $20,$20,$63,$75,$72,$64,$73,$6E,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
| 903 | L92:.dc.b $20,$20,$6F,$66,$66,$73,$65,$74,$20,$20,$20,$25,$38,$64,$A,$0
|
---|
| 904 | L93:.dc.b $A,$0
|
---|
| 905 | L95:.dc.b $A,$43,$6C,$75,$73,$74,$65,$72,$20,$64,$75,$6D,$70,$20,$6F,$66,$20,$46,$41,$54,$20,$61,$74,$20,$30,$78,$25,$30,$38,$2E
|
---|
| 906 | .dc.b $38,$6C,$78,$20,$20,$28,$25,$64,$20,$65,$6E,$74,$72,$69,$65,$73,$29,$3A,$A,$0
|
---|
| 907 | L96:.dc.b $20,$20,$20,$30,$3A,$20,$2E,$2E,$2E,$2E,$20,$2E,$2E,$2E,$2E,$20,$0
|
---|
| 908 | L102:.dc.b $A,$25,$34,$2E,$34,$64,$3A,$20,$0
|
---|
| 909 | L103:.dc.b $25,$34,$2E,$34,$64,$20,$0
|
---|
| 910 | L105:.dc.b $A,$0
|
---|
| 911 | L107:.dc.b $20,$20,$5F,$66,$6C,$61,$67,$73,$3A,$20,$20,$0
|
---|
| 912 | L113:.dc.b $25,$73,$20,$0
|
---|
| 913 | L114:.dc.b $A,$0
|
---|
| 914 | L117:.dc.b $46,$49,$4C,$45,$70,$72,$28,$29,$3A,$20,$20,$45,$52,$52,$4F,$52,$20,$2D,$20,$61,$72,$67,$75,$6D,$65,$6E,$74,$20,$77,$61
|
---|
| 915 | .dc.b $73,$20,$4E,$55,$4C,$4C,$A,$0
|
---|
| 916 | L118:.dc.b $A,$46,$49,$4C,$45,$20,$61,$74,$20,$24,$25,$30,$38,$2E,$38,$6C,$58,$0
|
---|
| 917 | L120:.dc.b $20,$69,$73,$20,$61,$20,$64,$65,$76,$69,$63,$65,$3A,$20,$20,$5B,$25,$73,$5D,$A,$0
|
---|
| 918 | L123:.dc.b $20,$69,$73,$20,$61,$20,$64,$69,$73,$6B,$20,$66,$69,$6C,$65,$3A,$20,$20,$5B,$25,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$33,$2E
|
---|
| 919 | .dc.b $33,$73,$5D,$2C,$20,$20,$66,$63,$62,$20,$61,$74,$20,$24,$25,$30,$38,$2E,$38,$6C,$58,$A,$0
|
---|
| 920 | L125:.dc.b $20,$69,$73,$20,$6F,$66,$20,$55,$4E,$4B,$4E,$4F,$57,$4E,$20,$74,$79,$70,$65,$3A,$20,$63,$5F,$63,$6C,$6F,$73,$65,$3D,$24
|
---|
| 921 | .dc.b $25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$63,$5F,$61,$72,$67,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$A,$0
|
---|
| 922 | L126:.dc.b $20,$20,$5F,$62,$75,$66,$66,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$5F,$62,$70,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58
|
---|
| 923 | .dc.b $2C,$20,$5F,$62,$65,$6E,$64,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$5F,$62,$75,$66,$6C,$65,$6E,$3D,$25,$75,$A,$0
|
---|
| 924 | L127:.dc.b $20,$20,$5F,$66,$6C,$61,$67,$73,$3D,$24,$25,$30,$34,$2E,$34,$58,$2C,$20,$5F,$75,$6E,$69,$74,$3D,$25,$64,$2C,$20,$5F,$62
|
---|
| 925 | .dc.b $79,$74,$62,$75,$66,$3D,$24,$25,$30,$32,$2E,$32,$58,$A,$0
|
---|
| 926 | L130:.dc.b $A,$0
|
---|