Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/rbf.asm @ 1286:d5839bc79972
Set rev to 0
| author | boisy |
|---|---|
| date | Wed, 27 Aug 2003 23:58:52 +0000 |
| parents | bdd2f61d5dbc |
| children | 10957d54bf16 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * RBF - Disk file manager | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
| 201 | 8 * 24 From Tandy OS-9 Level One VR 02.00.00 |
| 0 | 9 |
| 10 nam RBF | |
| 11 ttl Disk file manager | |
| 12 | |
| 13 * Disassembled 98/08/23 18:26:52 by Disasm v1.6 (C) 1988 by RML | |
| 14 | |
| 15 ifp1 | |
| 16 use defsfile | |
| 17 use rbfdefs | |
| 18 endc | |
| 19 | |
| 20 tylg set FlMgr+Objct | |
| 21 atrv set ReEnt+rev | |
| 22 rev set $01 | |
| 201 | 23 edition set 24 |
| 0 | 24 |
| 25 mod eom,name,tylg,atrv,start,size | |
| 26 | |
| 27 u0000 rmb 0 | |
| 28 size equ . | |
| 29 | |
| 30 name fcs /RBF/ | |
| 31 fcb edition | |
| 206 | 32 |
| 33 L0011 fcb DRVMEM | |
| 0 | 34 |
| 35 * All routines are entered with | |
| 36 * (Y) = Path descriptor pointer | |
| 37 * (U) = Caller's register stack pointer | |
| 38 start lbra Create | |
| 39 lbra Open | |
| 40 lbra MakDir | |
| 41 lbra ChgDir | |
| 42 lbra Delete | |
| 43 lbra Seek | |
| 44 lbra Read | |
| 45 lbra Write | |
| 46 lbra ReadLn | |
| 47 lbra WriteLn | |
| 48 lbra GetStat | |
| 49 lbra SetStat | |
| 50 lbra Close | |
| 51 | |
| 52 Create pshs y | |
| 53 leas -$05,s make room on the stack | |
| 54 lda R$B,u get perms | |
| 55 anda #^DIR. mask off dir bit | |
| 56 sta R$B,u save perms back | |
| 57 lbsr L061D | |
| 58 bcs L004A | |
| 59 ldb #$DA | |
| 60 L004A cmpb #$D8 | |
| 61 bne L0072 | |
| 62 cmpa #PDELIM | |
| 63 beq L0072 | |
| 64 pshs x | |
| 65 ldx PD.RGS,y | |
| 66 stu R$X,x | |
| 67 ldb <PD.SBP,y | |
| 68 ldx <PD.SBP+1,y | |
| 69 lda <PD.SSZ,y | |
| 70 ldu <PD.SSZ+1,y | |
| 71 pshs u,x,b,a | |
| 72 clra | |
| 73 ldb #$01 | |
| 74 lbsr L0966 | |
| 75 bcc L0077 | |
| 76 leas $06,s | |
| 77 L0070 leas $02,s | |
| 78 L0072 leas $05,s | |
| 79 lbra L027F | |
| 80 L0077 std $0B,s | |
| 81 ldb <PD.SBP,y | |
| 82 ldx <PD.SBP+1,y | |
| 83 stb $08,s | |
| 84 stx $09,s | |
| 85 puls u,x,b,a | |
| 86 stb <PD.SBP,y | |
| 87 stx <PD.SBP+1,y | |
| 88 sta <PD.SSZ,y | |
| 89 stu <PD.SSZ+1,y | |
| 90 ldd <PD.DCP,y | |
| 91 std $0B,y | |
| 92 ldd <PD.DCP+2,y | |
| 93 std $0D,y | |
| 94 lbsr L079C | |
| 95 bcs L00A9 | |
| 96 L00A0 tst ,x | |
| 97 beq L00BB | |
| 98 lbsr L0787 | |
| 99 bcc L00A0 | |
| 100 L00A9 cmpb #$D3 | |
| 101 bne L0070 | |
| 102 ldd #$0020 | |
| 103 lbsr L04C0 | |
| 104 bcs L0070 | |
| 105 lbsr L0243 | |
| 106 lbsr L079C | |
| 107 L00BB leau ,x | |
| 108 lbsr L015C | |
| 109 puls x | |
| 110 os9 F$PrsNam | |
| 111 bcs L0072 | |
| 112 cmpb #$1D | |
| 113 bls L00CD | |
| 114 ldb #$1D | |
| 115 L00CD clra | |
| 116 tfr d,y | |
| 117 lbsr L04F2 | |
| 118 tfr y,d | |
| 119 ldy $05,s | |
| 120 decb | |
| 121 lda b,u | |
| 122 ora #$80 | |
| 123 sta b,u | |
| 124 ldb ,s | |
| 125 ldx $01,s | |
| 126 stb <$1D,u | |
| 127 stx <$1E,u | |
| 128 lbsr L0D40 | |
| 129 bcs L0144 | |
| 130 ldu $08,y | |
| 131 bsr L0163 | |
| 132 lda #$04 | |
| 133 sta $0A,y | |
| 134 ldx $06,y | |
| 135 lda $02,x | |
| 136 sta ,u | |
| 137 ldx <$004B | |
| 138 ldd $09,x | |
| 139 std $01,u | |
| 140 lbsr L0290 | |
| 141 ldd $03,u | |
| 142 std $0D,u | |
| 143 ldb $05,u | |
| 144 stb $0F,u | |
| 145 ldb #$01 | |
| 146 stb $08,u | |
| 147 ldd $03,s | |
| 148 subd #$0001 | |
| 149 beq L012A | |
| 150 leax <$10,u | |
| 151 std $03,x | |
| 152 ldd $01,s | |
| 153 addd #$0001 | |
| 154 std $01,x | |
| 155 ldb ,s | |
| 156 adcb #$00 | |
| 157 stb ,x | |
| 158 L012A ldb ,s | |
| 159 ldx $01,s | |
| 160 lbsr L0D42 | |
| 161 bcs L0144 | |
| 162 lbsr L0837 | |
| 163 stb <$34,y | |
| 164 stx <$35,y | |
| 165 lbsr L082B | |
| 166 leas $05,s | |
| 167 lbra L01C4 | |
| 168 L0144 puls u,x,a | |
| 169 sta <$16,y | |
| 170 stx <$17,y | |
| 171 clr <$19,y | |
| 172 stu <$1A,y | |
| 173 pshs b | |
| 174 lbsr L0B6E | |
| 175 puls b | |
| 176 L0159 lbra L027F | |
| 177 L015C pshs u,x,b,a | |
| 178 leau <$20,u | |
| 179 bra L0169 | |
| 180 L0163 pshs u,x,b,a | |
| 181 leau >$0100,u | |
| 182 L0169 clra | |
| 183 clrb | |
| 184 tfr d,x | |
| 185 L016D pshu x,b,a | |
| 186 cmpu $04,s | |
| 187 bhi L016D | |
| 188 puls pc,u,x,b,a | |
| 189 | |
| 190 Open pshs y | |
| 191 lbsr L061D | |
| 192 bcs L0159 | |
| 193 ldu PD.RGS,y | |
| 194 stx R$X,u | |
| 195 ldd <PD.FD+1,y | |
| 196 bne L01B3 | |
| 197 lda <PD.FD,y | |
| 198 bne L01B3 | |
| 199 ldb PD.MOD,y | |
| 200 andb #DIR. | |
| 201 lbne L027D | |
| 202 std <PD.SBP,y | |
| 203 sta <PD.SBP+2,y | |
| 204 std <PD.SBL,y | |
| 205 sta <PD.SBL+2,y | |
| 206 ldx <PD.DTB,y | |
| 207 lda V$STAT,x | |
| 208 std <PD.SIZ+2,y | |
| 209 sta <PD.SSZ+2,y | |
| 210 ldd V$DRIV,x | |
| 211 std PD.SIZ,y | |
| 212 std <PD.SSZ,y | |
| 213 puls pc,y | |
| 214 | |
| 215 L01B3 lda PD.MOD,y | |
| 216 lbsr L07F1 | |
| 217 bcs L0159 | |
| 218 bita #$02 | |
| 219 beq L01C4 | |
| 220 lbsr L0290 | |
| 221 lbsr L0D38 | |
| 222 L01C4 puls y | |
| 223 L01C6 clra | |
| 224 clrb | |
| 225 std $0B,y | |
| 226 std $0D,y | |
| 227 std <$13,y | |
| 228 sta <$15,y | |
| 229 sta <$19,y | |
| 230 lda ,u | |
| 231 sta <$33,y | |
| 232 ldd <$10,u | |
| 233 std <$16,y | |
| 234 lda <$12,u | |
| 235 sta <$18,y | |
| 236 ldd <$13,u | |
| 237 std <$1A,y | |
| 238 ldd $09,u | |
| 239 ldx $0B,u | |
| 240 std $0F,y | |
| 241 stx <$11,y | |
| 242 clr $0A,y | |
| 243 rts | |
| 244 | |
| 245 MakDir lbsr Create | |
| 246 bcs L0241 | |
| 247 ldd #$0040 | |
| 248 std <$11,y | |
| 249 bsr L0253 | |
| 250 bcs L0241 | |
| 251 lbsr L0854 | |
| 252 bcs L0241 | |
| 253 lbsr L0CD4 | |
| 254 ldu $08,y | |
| 255 lda ,u | |
| 256 ora #$80 | |
| 257 sta ,u | |
| 258 bsr L0246 | |
| 259 bcs L0241 | |
| 260 lbsr L0163 | |
| 261 ldd #$2EAE | |
| 262 std ,u | |
| 263 stb <$20,u | |
| 264 lda <$37,y | |
| 265 sta <$1D,u | |
| 266 ldd <$38,y | |
| 267 std <$1E,u | |
| 268 lda <$34,y | |
| 269 sta <$3D,u | |
| 270 ldd <$35,y | |
| 271 std <$3E,u | |
| 272 lbsr L0D40 | |
| 273 L0241 bra L0282 | |
| 274 L0243 lbsr L0CD4 | |
| 275 L0246 ldx $08,y | |
| 276 ldd $0F,y | |
| 277 std $09,x | |
| 278 ldd <$11,y | |
| 279 std $0B,x | |
| 280 clr $0A,y | |
| 281 L0253 lbra L0D38 | |
| 282 | |
| 283 Close clra | |
| 284 tst $02,y | |
| 285 bne L027C | |
| 286 lbsr L0D72 | |
| 287 bcs L0282 | |
| 288 ldb $01,y | |
| 289 bitb #$02 | |
| 290 beq L0282 | |
| 291 ldd <$34,y | |
| 292 bne L0270 | |
| 293 lda <$36,y | |
| 294 beq L0282 | |
| 295 L0270 bsr L0243 | |
| 296 lbsr L0529 | |
| 297 bcc L0282 | |
| 298 lbsr L0AAF | |
| 299 bra L0282 | |
| 300 L027C rts | |
| 301 L027D ldb #$D6 | |
| 302 L027F coma | |
| 303 L0280 puls y | |
| 304 L0282 pshs b,cc | |
| 305 ldu $08,y | |
| 306 beq L028E | |
| 307 ldd #$0100 | |
| 308 os9 F$SRtMem | |
| 309 L028E puls pc,b,cc | |
| 310 L0290 lbsr L0CD4 | |
| 311 ldu $08,y | |
| 312 lda $08,u | |
| 313 pshs a | |
| 314 leax $03,u | |
| 315 os9 F$Time | |
| 316 puls a | |
| 317 sta $08,u | |
| 318 rts | |
| 319 | |
| 320 ChgDir pshs y | |
| 321 lda $01,y | |
| 322 ora #$80 | |
| 323 sta $01,y | |
| 324 lbsr Open | |
| 325 bcs L0280 | |
| 326 ldx <$004B | |
| 327 ldu <$35,y | |
| 328 ldb $01,y | |
| 329 bitb #$03 | |
| 330 beq L02C4 | |
| 331 ldb <$34,y | |
| 332 stb <$1D,x | |
| 333 stu <$1E,x | |
| 334 L02C4 ldb $01,y | |
| 335 bitb #$04 | |
| 336 beq L02D3 | |
| 337 ldb <$34,y | |
| 338 stb <$23,x | |
| 339 stu <$24,x | |
| 340 L02D3 clrb | |
| 341 bra L0280 | |
| 342 | |
| 343 Delete pshs y | |
| 344 lbsr L061D | |
| 345 bcs L0280 | |
| 346 ldd <$35,y | |
| 347 bne L02E9 | |
| 348 tst <$34,y | |
| 349 lbeq L027D | |
| 350 L02E9 lda #$42 | |
| 351 lbsr L07F1 | |
| 352 bcs L035F | |
| 353 ldu $06,y | |
| 354 stx $04,u | |
| 355 lbsr L0CD4 | |
| 356 bcs L035F | |
| 357 ldx $08,y | |
| 358 dec $08,x | |
| 359 beq L0304 | |
| 360 lbsr L0D38 | |
| 361 bra L032A | |
| 362 L0304 clra | |
| 363 clrb | |
| 364 std $0F,y | |
| 365 std <$11,y | |
| 366 lbsr L0AAF | |
| 367 bcs L035F | |
| 368 ldb <$34,y | |
| 369 ldx <$35,y | |
| 370 stb <$16,y | |
| 371 stx <$17,y | |
| 372 ldx $08,y | |
| 373 ldd <$13,x | |
| 374 addd #$0001 | |
| 375 std <$1A,y | |
| 376 lbsr L0B6E | |
| 377 L032A bcs L035F | |
| 378 lbsr L0D72 | |
| 379 lbsr L0837 | |
| 380 lda <$37,y | |
| 381 sta <$34,y | |
| 382 ldd <$38,y | |
| 383 std <$35,y | |
| 384 lbsr L0CD4 | |
| 385 bcs L035F | |
| 386 lbsr L082B | |
| 387 ldu $08,y | |
| 388 lbsr L01C6 | |
| 389 ldd <$3A,y | |
| 390 std $0B,y | |
| 391 ldd <$3C,y | |
| 392 std $0D,y | |
| 393 lbsr L079C | |
| 394 bcs L035F | |
| 395 clr ,x | |
| 396 lbsr L0D40 | |
| 397 L035F lbra L0280 | |
| 398 | |
| 399 Seek ldb $0A,y | |
| 400 bitb #$02 | |
| 401 beq L037B | |
| 402 lda $05,u | |
| 403 ldb $08,u | |
| 404 subd $0C,y | |
| 405 bne L0376 | |
| 406 lda $04,u | |
| 407 sbca $0B,y | |
| 408 beq L037F | |
| 409 L0376 lbsr L0D72 | |
| 410 bcs L0383 | |
| 411 L037B ldd $04,u | |
| 412 std $0B,y | |
| 413 L037F ldd $08,u | |
| 414 std $0D,y | |
| 415 L0383 rts | |
| 416 | |
| 417 ReadLn bsr L03C4 | |
| 418 beq L03AA | |
| 419 bsr L03AB | |
| 420 pshs u,y,x,b,a | |
| 421 exg x,u | |
| 422 ldy #$0000 | |
| 423 lda #$0D | |
| 424 L0394 leay $01,y | |
| 425 cmpa ,x+ | |
| 426 beq L039D | |
| 427 decb | |
| 428 bne L0394 | |
| 429 L039D ldx $06,s | |
| 430 bsr L03F4 | |
| 431 sty $0A,s | |
| 432 puls u,y,x,b,a | |
| 433 ldd $02,s | |
| 434 leax d,x | |
| 435 L03AA rts | |
| 436 L03AB lbsr L0414 | |
| 437 lda ,-x | |
| 438 cmpa #$0D | |
| 439 beq L03BA | |
| 440 ldd $02,s | |
| 441 lbne L041A | |
| 442 L03BA ldu $06,y | |
| 443 ldd $06,u | |
| 444 subd $02,s | |
| 445 std $06,u | |
| 446 bra L040E | |
| 447 L03C4 ldd $06,u | |
| 448 bsr L03CD | |
| 449 bcs L03F1 | |
| 450 std $06,u | |
| 451 rts | |
| 452 L03CD pshs b,a | |
| 453 ldd <$11,y | |
| 454 subd $0D,y | |
| 455 tfr d,x | |
| 456 ldd $0F,y | |
| 457 sbcb $0C,y | |
| 458 sbca $0B,y | |
| 459 bcs L03EE | |
| 460 bne L03EB | |
| 461 tstb | |
| 462 bne L03EB | |
| 463 cmpx ,s | |
| 464 bcc L03EB | |
| 465 stx ,s | |
| 466 beq L03EE | |
| 467 L03EB clrb | |
| 468 puls pc,b,a | |
| 469 L03EE comb | |
| 470 ldb #E$EOF | |
| 471 L03F1 leas $02,s | |
| 472 rts | |
| 473 L03F4 lbra L04F2 | |
| 474 | |
| 475 Read bsr L03C4 | |
| 476 beq L0409 | |
| 477 bsr L040A | |
| 478 L03FD pshs u,y,x,b,a | |
| 479 exg x,u | |
| 480 tfr d,y | |
| 481 bsr L03F4 | |
| 482 puls u,y,x,b,a | |
| 483 leax d,x | |
| 484 L0409 rts | |
| 485 L040A bsr L0414 | |
| 486 bne L041A | |
| 487 L040E clrb | |
| 488 L040F leas -$02,s | |
| 489 L0411 leas $0A,s | |
| 490 rts | |
| 491 L0414 ldd $04,u | |
| 492 ldx $06,u | |
| 493 pshs x,b,a | |
| 494 L041A lda $0A,y | |
| 495 bita #$02 | |
| 496 bne L043A | |
| 497 tst $0E,y | |
| 498 bne L0435 | |
| 499 tst $02,s | |
| 500 beq L0435 | |
| 501 leax >L04A4,pcr | |
| 502 cmpx $06,s | |
| 503 bne L0435 | |
| 504 lbsr L0C49 | |
| 505 bra L0438 | |
| 506 L0435 lbsr L0D91 | |
| 507 L0438 bcs L040F | |
| 508 L043A ldu $08,y | |
| 509 clra | |
| 510 ldb $0E,y | |
| 511 leau d,u | |
| 512 negb | |
| 513 sbca #$FF | |
| 514 ldx ,s | |
| 515 cmpd $02,s | |
| 516 bls L044D | |
| 517 ldd $02,s | |
| 518 L044D pshs b,a | |
| 519 jsr [<$08,s] | |
| 520 stx $02,s | |
| 521 lda $0A,y | |
| 522 anda #$BF | |
| 523 sta $0A,y | |
| 524 ldb $01,s | |
| 525 addb $0E,y | |
| 526 stb $0E,y | |
| 527 bne L0471 | |
| 528 lbsr L0D72 | |
| 529 inc $0D,y | |
| 530 bne L046F | |
| 531 inc $0C,y | |
| 532 bne L046F | |
| 533 inc $0B,y | |
| 534 L046F bcs L0411 | |
| 535 L0471 ldd $04,s | |
| 536 subd ,s++ | |
| 537 std $02,s | |
| 538 jmp [<$04,s] | |
| 539 | |
| 540 WriteLn pshs y | |
| 541 clrb | |
| 542 ldy $06,u | |
| 543 beq L0498 | |
| 544 ldx $04,u | |
| 545 L0484 leay -$01,y | |
| 546 beq L0498 | |
| 547 lda ,x+ | |
| 548 cmpa #$0D | |
| 549 bne L0484 | |
| 550 tfr y,d | |
| 551 nega | |
| 552 negb | |
| 553 sbca #$00 | |
| 554 addd $06,u | |
| 555 std $06,u | |
| 556 L0498 puls y | |
| 557 | |
| 558 Write ldd $06,u | |
| 559 beq L04BE | |
| 560 bsr L04C0 | |
| 561 bcs L04BF | |
| 562 bsr L04B5 | |
| 563 L04A4 pshs y,b,a | |
| 564 tfr d,y | |
| 565 bsr L04F2 | |
| 566 puls y,b,a | |
| 567 leax d,x | |
| 568 lda $0A,y | |
| 569 ora #$03 | |
| 570 sta $0A,y | |
| 571 rts | |
| 572 L04B5 lbsr L0414 | |
| 573 lbne L041A | |
| 574 leas $08,s | |
| 575 L04BE clrb | |
| 576 L04BF rts | |
| 577 L04C0 addd $0D,y | |
| 578 tfr d,x | |
| 579 ldd $0B,y | |
| 580 adcb #$00 | |
| 581 adca #$00 | |
| 582 L04CA cmpd $0F,y | |
| 583 bcs L04BE | |
| 584 bhi L04D6 | |
| 585 cmpx <$11,y | |
| 586 bls L04BE | |
| 587 L04D6 pshs u | |
| 588 ldu <$11,y | |
| 589 stx <$11,y | |
| 590 ldx $0F,y | |
| 591 std $0F,y | |
| 592 pshs u,x | |
| 593 lbsr L0854 | |
| 594 puls u,x | |
| 595 bcc L04F0 | |
| 596 stx $0F,y | |
| 597 stu <$11,y | |
| 598 L04F0 puls pc,u | |
| 599 L04F2 pshs u,y,x | |
| 600 ldd $02,s | |
| 601 beq L051B | |
| 602 leay d,u | |
| 603 lsrb | |
| 604 bcc L0501 | |
| 605 lda ,x+ | |
| 606 sta ,u+ | |
| 607 L0501 lsrb | |
| 608 bcc L0508 | |
| 609 ldd ,x++ | |
| 610 std ,u++ | |
| 611 L0508 pshs y | |
| 612 exg x,u | |
| 613 bra L0515 | |
| 614 L050E pulu y,b,a | |
| 615 std ,x++ | |
| 616 sty ,x++ | |
| 617 L0515 cmpx ,s | |
| 618 bcs L050E | |
| 619 leas $02,s | |
| 620 L051B puls pc,u,y,x | |
| 621 | |
| 622 GetSTat ldb $02,u | |
| 623 cmpb #$00 | |
| 624 beq L0543 | |
| 625 cmpb #$06 | |
| 626 bne L052F | |
| 627 clr $02,u | |
| 628 L0529 clra | |
| 629 ldb #$01 | |
| 630 lbra L03CD | |
| 631 L052F cmpb #$01 | |
| 632 bne L0536 | |
| 633 clr $02,u | |
| 634 rts | |
| 635 L0536 cmpb #$02 | |
| 636 bne L0544 | |
| 637 ldd $0F,y | |
| 638 std $04,u | |
| 639 ldd <$11,y | |
| 640 std $08,u | |
| 641 L0543 rts | |
| 642 L0544 cmpb #$05 | |
| 643 bne L0551 | |
| 644 ldd $0B,y | |
| 645 std $04,u | |
| 646 ldd $0D,y | |
| 647 std $08,u | |
| 648 rts | |
| 649 L0551 cmpb #$0F | |
| 650 bne L056B | |
| 651 lbsr L0CD4 | |
| 652 bcs L0543 | |
| 653 ldu $06,y | |
| 654 ldd $06,u | |
| 655 tsta | |
| 656 beq L0564 | |
| 657 ldd #$0100 | |
| 658 L0564 ldx $04,u | |
| 659 ldu $08,y | |
| 660 lbra L03FD | |
| 661 L056B lda #$09 | |
| 662 lbra L0CED | |
| 663 | |
| 664 SetStat ldb R$B,u | |
|
1242
bdd2f61d5dbc
Fixed case issues in several files (thanks Rodney H.)
boisy
parents:
206
diff
changeset
|
665 cmpb #SS.Opt |
| 0 | 666 bne L0584 |
| 667 ldx R$X,u | |
| 668 leax $02,x | |
| 669 leau <PD.STP,y | |
| 670 ldy #$000D | |
| 671 lbra L04F2 | |
| 672 L0584 cmpb #SS.Size | |
| 673 bne L05C6 | |
| 674 ldd <PD.FD+1,y | |
| 675 bne L0594 | |
| 676 tst <PD.FD,y | |
| 677 lbeq L0619 | |
| 678 L0594 lda PD.MOD,y | |
| 679 bita #WRITE. | |
| 680 beq L05C2 | |
| 681 ldd R$X,u | |
| 682 ldx R$U,u | |
| 683 cmpd $0F,y | |
| 684 bcs L05AD | |
| 685 bne L05AA | |
| 686 cmpx <PD.SIZ+2,y | |
| 687 bcs L05AD | |
| 688 L05AA lbra L04CA | |
| 689 L05AD std PD.SIZ,y | |
| 690 stx <PD.SIZ+2,y | |
| 691 ldd PD.CP,y | |
| 692 ldx PD.CP+2,y | |
| 693 pshs x,b,a | |
| 694 lbsr L0AAF | |
| 695 puls u,x | |
| 696 stx PD.CP,y | |
| 697 stu PD.CP+2,y | |
| 698 rts | |
| 699 L05C2 comb | |
| 700 ldb #E$BMode | |
| 701 rts | |
| 702 L05C6 cmpb #$0F | |
| 703 bne L0604 | |
| 704 lda $01,y | |
| 705 bita #$02 | |
| 706 beq L05C2 | |
| 707 lbsr L0CD4 | |
| 708 bcs L061C | |
| 709 pshs y | |
| 710 ldx $04,u | |
| 711 ldu $08,y | |
| 712 ldy <$004B | |
| 713 ldd $09,y | |
| 714 bne L05E7 | |
| 715 ldd #$0102 | |
| 716 bsr L05F6 | |
| 717 L05E7 ldd #$0305 | |
| 718 bsr L05F6 | |
| 719 ldd #$0D03 | |
| 720 bsr L05F6 | |
| 721 puls y | |
| 722 lbra L0D38 | |
| 723 L05F6 pshs u,x | |
| 724 leax a,x | |
| 725 leau a,u | |
| 726 clra | |
| 727 tfr d,y | |
| 728 lbsr L04F2 | |
| 729 puls pc,u,x | |
| 730 L0604 cmpb #$1E | |
| 731 bne L0614 | |
| 732 ldx <$1E,y | |
| 733 lda $05,u | |
| 734 sta <$1E,x | |
| 735 clr <$1D,x | |
| 736 rts | |
| 737 L0614 lda #$0C | |
| 738 lbra L0CED | |
| 739 L0619 comb | |
| 740 ldb #E$UnkSvc | |
| 741 L061C rts | |
| 742 | |
| 743 L061D ldd #256 | |
| 744 stb PD.BUF+2,y | |
| 745 os9 F$SRqMem | |
| 746 bcs L061C | |
| 747 stu PD.BUF,y | |
| 748 ldx PD.RGS,y | |
| 749 ldx R$X,x | |
| 750 pshs u,y,x | |
| 751 leas -$04,s | |
| 752 clra | |
| 753 clrb | |
| 754 sta <PD.FD,y | |
| 755 std <PD.FD+1,y | |
| 756 std <PD.DSK,y | |
| 757 lda ,x | |
| 758 sta ,s | |
| 759 cmpa #PDELIM | |
| 760 bne L0654 | |
| 761 lbsr L07BC | |
| 762 sta ,s | |
| 763 lbcs L0752 | |
| 764 leax ,y | |
| 765 ldy $06,s | |
| 766 bra L0677 | |
| 767 L0654 anda #$7F strip hi bit | |
| 768 cmpa #PENTIR raw? | |
| 769 beq L0677 branch if so | |
| 770 lda #PDELIM | |
| 771 sta ,s | |
| 772 leax -$01,x | |
| 773 lda $01,y | |
| 774 ldu <$004B | |
| 775 leau <$1A,u | |
| 776 bita #$24 | |
| 777 beq L066D | |
| 778 leau $06,u | |
| 779 L066D ldb $03,u | |
| 780 stb <PD.FD,y | |
| 781 ldd $04,u | |
| 782 std <PD.FD+1,y | |
| 783 L0677 ldu $03,y | |
| 784 stu <PD.DVT,y | |
| 785 lda <PD.DRV,y | |
| 786 ldb >L0011,pcr | |
| 787 mul | |
| 788 addd $02,u | |
| 789 addd #$000F | |
| 790 std <PD.DTB,y | |
| 791 lda ,s | |
| 792 anda #$7F | |
| 793 cmpa #PENTIR | |
| 794 bne L0698 | |
| 795 leax $01,x | |
| 796 bra L06BA | |
| 797 L0698 lbsr L0CC1 | |
| 798 lbcs L075A | |
| 799 ldu PD.BUF,y | |
| 800 ldd $0E,u | |
| 801 std <PD.DSK,y | |
| 802 ldd <PD.FD+1,y | |
| 803 bne L06BA | |
| 804 lda <PD.FD,y | |
| 805 bne L06BA | |
| 806 lda $08,u | |
| 807 sta <PD.FD,y | |
| 808 ldd $09,u | |
| 809 std <PD.FD+1,y | |
| 810 L06BA stx $04,s | |
| 811 stx $08,s | |
| 812 L06BE lbsr L0D72 | |
| 813 lbcs L075A | |
| 814 lda ,s | |
| 815 anda #$7F | |
| 816 cmpa #PENTIR | |
| 817 beq L06D4 | |
| 818 lbsr L0CD4 | |
| 819 lbcs L075A | |
| 820 L06D4 lbsr L082B | |
| 821 lda ,s | |
| 822 cmpa #PDELIM | |
| 823 bne L0734 | |
| 824 clr $02,s | |
| 825 clr $03,s | |
| 826 lda $01,y | |
| 827 ora #$80 | |
| 828 lbsr L07F1 | |
| 829 bcs L0752 | |
| 830 lbsr L01C6 | |
| 831 ldx $08,s | |
| 832 leax $01,x | |
| 833 lbsr L07BC | |
| 834 std ,s | |
| 835 stx $04,s | |
| 836 sty $08,s | |
| 837 ldy $06,s | |
| 838 bcs L0752 | |
| 839 lbsr L079C | |
| 840 bra L070A | |
| 841 L0705 bsr L075D | |
| 842 L0707 lbsr L0787 | |
| 843 L070A bcs L0752 | |
| 844 tst ,x | |
| 845 beq L0705 | |
| 846 clra | |
| 847 ldb $01,s | |
| 848 leay ,x | |
| 849 ldx $04,s | |
| 850 os9 F$CmpNam | |
| 851 ldx $06,s | |
| 852 exg x,y | |
| 853 bcs L0707 | |
| 854 bsr L076B | |
| 855 lda <$1D,x | |
| 856 sta <PD.FD,y | |
| 857 ldd <$1E,x | |
| 858 std <PD.FD+1,y | |
| 859 lbsr L0837 | |
| 860 lbra L06BE | |
| 861 L0734 ldx $08,s | |
| 862 tsta | |
| 863 bmi L0741 | |
| 864 os9 F$PrsNam | |
| 865 leax ,y | |
| 866 ldy $06,s | |
| 867 L0741 stx $04,s | |
| 868 clra | |
| 869 L0744 lda ,s | |
| 870 leas $04,s | |
| 871 pshs b,a,cc | |
| 872 lda $0A,y | |
| 873 anda #$BF | |
| 874 sta $0A,y | |
| 875 puls pc,u,y,x,b,a,cc | |
| 876 L0752 cmpb #$D3 | |
| 877 bne L075A | |
| 878 bsr L075D | |
| 879 ldb #$D8 | |
| 880 L075A coma | |
| 881 bra L0744 | |
| 882 L075D pshs b,a | |
| 883 lda $04,s | |
| 884 cmpa #$2F | |
| 885 beq L0785 | |
| 886 ldd $06,s | |
| 887 bne L0785 | |
| 888 puls b,a | |
| 889 L076B pshs b,a | |
| 890 stx $06,s | |
| 891 lda <PD.FD,y | |
| 892 sta <PD.DFD,y | |
| 893 ldd <PD.FD+1,y | |
| 894 std <PD.DFD+1,y | |
| 895 ldd $0B,y | |
| 896 std <PD.DCP,y | |
| 897 ldd $0D,y | |
| 898 std <PD.DCP+2,y | |
| 899 L0785 puls pc,b,a | |
| 900 | |
| 901 L0787 ldb $0E,y | |
| 902 addb #$20 | |
| 903 stb $0E,y | |
| 904 bcc L079C | |
| 905 lbsr L0D72 | |
| 906 inc $0D,y | |
| 907 bne L079C | |
| 908 inc $0C,y | |
| 909 bne L079C | |
| 910 inc $0B,y | |
| 911 L079C ldd #$0020 | |
| 912 lbsr L03CD | |
| 913 bcs L07BB | |
| 914 lda $0A,y | |
| 915 bita #$02 | |
| 916 bne L07B4 | |
| 917 lbsr L0C49 | |
| 918 bcs L07BB | |
| 919 lbsr L0D91 | |
| 920 bcs L07BB | |
| 921 L07B4 ldb $0E,y | |
| 922 lda $08,y | |
| 923 tfr d,x | |
| 924 clrb | |
| 925 L07BB rts | |
| 926 | |
| 927 L07BC os9 F$PrsNam | |
| 928 pshs x | |
| 929 bcc L07E9 | |
| 930 clrb | |
| 931 L07C4 pshs a | |
| 932 anda #$7F | |
| 933 cmpa #PDIR | |
| 934 puls a | |
| 935 bne L07DF | |
| 936 incb | |
| 937 leax $01,x | |
| 938 tsta | |
| 939 bmi L07DF | |
| 940 lda ,x | |
| 941 cmpb #$03 | |
| 942 bcs L07C4 | |
| 943 lda #PDELIM | |
| 944 decb | |
| 945 leax -$03,x | |
| 946 L07DF tstb | |
| 947 bne L07E7 | |
| 948 L07E2 comb | |
| 949 ldb #E$BPNam | |
| 950 puls pc,x | |
| 951 L07E7 leay ,x | |
| 952 L07E9 cmpb #$20 | |
| 953 bhi L07E2 | |
| 954 andcc #^Carry | |
| 955 puls pc,x | |
| 956 | |
| 957 * A = PD.MOD (mode byte) | |
| 958 L07F1 tfr a,b | |
| 959 anda #$07 | |
| 960 andb #$C0 | |
| 961 pshs x,b,a | |
| 962 lbsr L0CD4 | |
| 963 bcs L0820 | |
| 964 ldu $08,y | |
| 965 ldx <$004B | |
| 966 ldd $09,x | |
| 967 beq L0809 | |
| 968 cmpd $01,u | |
| 969 L0809 puls a | |
| 970 beq L0810 | |
| 971 lsla | |
| 972 lsla | |
| 973 lsla | |
| 974 L0810 ora ,s | |
| 975 anda #$BF | |
| 976 pshs a | |
| 977 ora #$80 | |
| 978 anda ,u | |
| 979 cmpa ,s | |
| 980 beq L0829 | |
| 981 ldb #$D6 | |
| 982 L0820 leas $02,s | |
| 983 coma | |
| 984 puls pc,x | |
| 985 ldb #$FD | |
| 986 bra L0820 | |
| 987 L0829 puls pc,x,b,a | |
| 988 L082B clra | |
| 989 clrb | |
| 990 std $0B,y | |
| 991 std $0D,y | |
| 992 sta <$19,y | |
| 993 std <$1A,y | |
| 994 L0837 rts | |
| 995 L0838 pshs y,x,b,a | |
| 996 ldx <D.Proc | |
| 997 lda <P$IOQN,x | |
| 998 beq L0851 | |
| 999 clr <P$IOQN,x | |
| 1000 ldb #S$Wake | |
| 1001 os9 F$Send | |
| 1002 ldx <D.PrcDBT | |
| 1003 os9 F$Find64 | |
| 1004 clr <P$IOQP,y | |
| 1005 L0851 clrb | |
| 1006 puls pc,y,x,b,a | |
| 1007 L0854 pshs u,x | |
| 1008 L0856 bsr L08B2 | |
| 1009 bne L0866 | |
| 1010 cmpx <$1A,y | |
| 1011 bcs L08AD | |
| 1012 bne L0866 | |
| 1013 lda <$12,y | |
| 1014 beq L08AD | |
| 1015 L0866 lbsr L0CD4 | |
| 1016 bcs L08AA | |
| 1017 ldx $0B,y | |
| 1018 ldu $0D,y | |
| 1019 pshs u,x | |
| 1020 ldd $0F,y | |
| 1021 std $0B,y | |
| 1022 ldd <$11,y | |
| 1023 std $0D,y | |
| 1024 lbsr L0C63 | |
| 1025 puls u,x | |
| 1026 stx $0B,y | |
| 1027 stu $0D,y | |
| 1028 bcc L08AD | |
| 1029 cmpb #$D5 | |
| 1030 bne L08AA | |
| 1031 bsr L08B2 | |
| 1032 bne L0896 | |
| 1033 tst <$12,y | |
| 1034 beq L0899 | |
| 1035 leax $01,x | |
| 1036 bne L0899 | |
| 1037 L0896 ldx #$FFFF | |
| 1038 L0899 tfr x,d | |
| 1039 tsta | |
| 1040 bne L08A6 | |
| 1041 cmpb <$2E,y | |
| 1042 bcc L08A6 | |
| 1043 ldb <$2E,y | |
| 1044 L08A6 bsr L08C0 | |
| 1045 bcc L0856 | |
| 1046 L08AA coma | |
| 1047 puls pc,u,x | |
| 1048 L08AD lbsr L0C49 | |
| 1049 puls pc,u,x | |
| 1050 L08B2 ldd <$10,y | |
| 1051 subd <$14,y | |
| 1052 tfr d,x | |
| 1053 ldb $0F,y | |
| 1054 sbcb <$13,y | |
| 1055 rts | |
| 1056 L08C0 pshs u,x | |
| 1057 lbsr L0966 | |
| 1058 bcs L08FF | |
| 1059 lbsr L0CD4 | |
| 1060 bcs L08FF | |
| 1061 ldu $08,y | |
| 1062 clra | |
| 1063 clrb | |
| 1064 std $09,u | |
| 1065 std $0B,u | |
| 1066 leax <$10,u | |
| 1067 ldd $03,x | |
| 1068 beq L0947 | |
| 1069 ldd $08,y | |
| 1070 inca | |
| 1071 pshs b,a | |
| 1072 bra L08EF | |
| 1073 L08E2 clrb | |
| 1074 ldd -$02,x | |
| 1075 beq L08FB | |
| 1076 addd $0A,u | |
| 1077 std $0A,u | |
| 1078 bcc L08EF | |
| 1079 inc $09,u | |
| 1080 L08EF leax $05,x | |
| 1081 cmpx ,s | |
| 1082 bcs L08E2 | |
| 1083 lbsr L0B6E | |
| 1084 comb | |
| 1085 ldb #E$SLF | |
| 1086 L08FB leas $02,s | |
| 1087 leax -$05,x | |
| 1088 L08FF bcs L0964 | |
| 1089 ldd -$04,x | |
| 1090 addd -$02,x | |
| 1091 pshs b,a | |
| 1092 ldb -$05,x | |
| 1093 adcb #$00 | |
| 1094 cmpb <$16,y | |
| 1095 puls b,a | |
| 1096 bne L0947 | |
| 1097 cmpd <$17,y | |
| 1098 bne L0947 | |
| 1099 ldu <$1E,y | |
| 1100 ldd $06,u | |
| 1101 ldu $08,y | |
| 1102 subd #$0001 | |
| 1103 coma | |
| 1104 comb | |
| 1105 pshs b,a | |
| 1106 ldd -$05,x | |
| 1107 eora <$16,y | |
| 1108 eorb <$17,y | |
| 1109 lsra | |
| 1110 rorb | |
| 1111 lsra | |
| 1112 rorb | |
| 1113 lsra | |
| 1114 rorb | |
| 1115 anda ,s+ | |
| 1116 andb ,s+ | |
| 1117 std -$02,s | |
| 1118 bne L0947 | |
| 1119 ldd -$02,x | |
| 1120 addd <$1A,y | |
| 1121 bcs L0947 | |
| 1122 std -$02,x | |
| 1123 bra L0956 | |
| 1124 L0947 ldd <$16,y | |
| 1125 std ,x | |
| 1126 lda <$18,y | |
| 1127 sta $02,x | |
| 1128 ldd <$1A,y | |
| 1129 std $03,x | |
| 1130 L0956 ldd $0A,u | |
| 1131 addd <$1A,y | |
| 1132 std $0A,u | |
| 1133 bcc L0961 | |
| 1134 inc $09,u | |
| 1135 L0961 lbsr L0D38 | |
| 1136 L0964 puls pc,u,x | |
| 1137 L0966 pshs u,y,x,b,a | |
| 1138 ldb #$0C | |
| 1139 L096A clr ,-s | |
| 1140 decb | |
| 1141 bne L096A | |
| 1142 ldx <$1E,y | |
| 1143 ldd $04,x | |
| 1144 std $04,s | |
| 1145 ldd $06,x | |
| 1146 std $02,s | |
| 1147 std $0A,s | |
| 1148 ldx $03,y | |
| 1149 ldx $04,x | |
| 1150 leax <$12,x | |
| 1151 subd #$0001 | |
| 1152 addb $0E,x | |
| 1153 adca #$00 | |
| 1154 bra L098E | |
| 1155 L098C lsra | |
| 1156 rorb | |
| 1157 L098E lsr $0A,s | |
| 1158 ror $0B,s | |
| 1159 bcc L098C | |
| 1160 std ,s | |
| 1161 ldd $02,s | |
| 1162 std $0A,s | |
| 1163 subd #$0001 | |
| 1164 addd $0C,s | |
| 1165 bcc L09A8 | |
| 1166 ldd #$FFFF | |
| 1167 bra L09A8 | |
| 1168 L09A6 lsra | |
| 1169 rorb | |
| 1170 L09A8 lsr $0A,s | |
| 1171 ror $0B,s | |
| 1172 bcc L09A6 | |
| 1173 cmpa #$08 | |
| 1174 bcs L09B5 | |
| 1175 ldd #$0800 | |
| 1176 L09B5 std $0C,s | |
| 1177 lbsr L0BD8 | |
| 1178 lbcs L0AA3 | |
| 1179 ldx <$1E,y | |
| 1180 ldd <$1A,x | |
| 1181 cmpd $0E,x | |
| 1182 bne L09D7 | |
| 1183 lda <$1C,x | |
| 1184 cmpa $04,x | |
| 1185 bne L09D7 | |
| 1186 ldb <$1D,x | |
| 1187 cmpb $04,x | |
| 1188 bcs L09E5 | |
| 1189 L09D7 ldd $0E,x | |
| 1190 std <$1A,x | |
| 1191 lda $04,x | |
| 1192 sta <$1C,x | |
| 1193 clrb | |
| 1194 stb <$1D,x | |
| 1195 L09E5 incb | |
| 1196 stb $06,s | |
| 1197 ldx <$1E,y | |
| 1198 cmpb <$1E,x | |
| 1199 beq L0A21 | |
| 1200 lbsr L0C33 | |
| 1201 lbcs L0AA3 | |
| 1202 ldb $06,s | |
| 1203 cmpb $04,s | |
| 1204 bls L0A02 | |
| 1205 clra | |
| 1206 ldb $05,s | |
| 1207 bra L0A05 | |
| 1208 L0A02 ldd #$0100 | |
| 1209 L0A05 ldx $08,y | |
| 1210 leau d,x | |
| 1211 ldy $0C,s | |
| 1212 clra | |
| 1213 clrb | |
| 1214 os9 F$SchBit | |
| 1215 bcc L0A4E | |
| 1216 cmpy $08,s | |
| 1217 bls L0A21 | |
| 1218 sty $08,s | |
| 1219 std $0A,s | |
| 1220 lda $06,s | |
| 1221 sta $07,s | |
| 1222 L0A21 ldy <$10,s | |
| 1223 ldb $06,s | |
| 1224 cmpb $04,s | |
| 1225 bcs L0A32 | |
| 1226 bhi L0A31 | |
| 1227 tst $05,s | |
| 1228 bne L0A32 | |
| 1229 L0A31 clrb | |
| 1230 L0A32 ldx <$1E,y | |
| 1231 cmpb <$1D,x | |
| 1232 bne L09E5 | |
| 1233 ldb $07,s | |
| 1234 beq L0AA1 | |
| 1235 cmpb $06,s | |
| 1236 beq L0A47 | |
| 1237 stb $06,s | |
| 1238 lbsr L0C33 | |
| 1239 L0A47 ldx $08,y | |
| 1240 ldd $0A,s | |
| 1241 ldy $08,s | |
| 1242 L0A4E std $0A,s | |
| 1243 sty $08,s | |
| 1244 os9 F$AllBit | |
| 1245 ldy <$10,s | |
| 1246 ldb $06,s | |
| 1247 lbsr L0C0B | |
| 1248 bcs L0AA3 | |
| 1249 ldx <$1E,y | |
| 1250 lda $06,s | |
| 1251 deca | |
| 1252 sta <$1D,x | |
| 1253 clrb | |
| 1254 lsla | |
| 1255 rolb | |
| 1256 lsla | |
| 1257 rolb | |
| 1258 lsla | |
| 1259 rolb | |
| 1260 stb <$16,y | |
| 1261 ora $0A,s | |
| 1262 ldb $0B,s | |
| 1263 ldx $08,s | |
| 1264 ldy <$10,s | |
| 1265 std <$17,y | |
| 1266 stx <$1A,y | |
| 1267 ldd $02,s | |
| 1268 bra L0A97 | |
| 1269 L0A88 lsl <$18,y | |
| 1270 rol <$17,y | |
| 1271 rol <$16,y | |
| 1272 lsl <$1B,y | |
| 1273 rol <$1A,y | |
| 1274 L0A97 lsra | |
| 1275 rorb | |
| 1276 bcc L0A88 | |
| 1277 clrb | |
| 1278 ldd <$1A,y | |
| 1279 bra L0AAB | |
| 1280 L0AA1 ldb #$F8 | |
| 1281 L0AA3 ldy <$10,s | |
| 1282 lbsr L0C12 | |
| 1283 coma | |
| 1284 L0AAB leas $0E,s | |
| 1285 puls pc,u,y,x | |
| 1286 L0AAF clra | |
| 1287 lda $01,y | |
| 1288 bita #$80 | |
| 1289 bne L0B11 | |
| 1290 ldd $0F,y | |
| 1291 std $0B,y | |
| 1292 ldd <$11,y | |
| 1293 std $0D,y | |
| 1294 lbsr L0C63 | |
| 1295 bcc L0AC8 | |
| 1296 cmpb #$D5 | |
| 1297 bra L0B09 | |
| 1298 L0AC8 ldd <$14,y | |
| 1299 subd $0C,y | |
| 1300 addd <$1A,y | |
| 1301 tst $0E,y | |
| 1302 beq L0AD7 | |
| 1303 subd #$0001 | |
| 1304 L0AD7 pshs b,a | |
| 1305 ldu <$1E,y | |
| 1306 ldd $06,u | |
| 1307 subd #$0001 | |
| 1308 coma | |
| 1309 comb | |
| 1310 anda ,s+ | |
| 1311 andb ,s+ | |
| 1312 ldu <$1A,y | |
| 1313 std <$1A,y | |
| 1314 beq L0B0B | |
| 1315 tfr u,d | |
| 1316 subd <$1A,y | |
| 1317 pshs x,b,a | |
| 1318 addd <$17,y | |
| 1319 std <$17,y | |
| 1320 bcc L0B01 | |
| 1321 inc <$16,y | |
| 1322 L0B01 bsr L0B6E | |
| 1323 bcc L0B12 | |
| 1324 leas $04,s | |
| 1325 cmpb #$DB | |
| 1326 L0B09 bne L0B10 | |
| 1327 L0B0B lbsr L0CD4 | |
| 1328 bcc L0B1B | |
| 1329 L0B10 coma | |
| 1330 L0B11 rts | |
| 1331 L0B12 lbsr L0CD4 | |
| 1332 bcs L0B6B | |
| 1333 puls x,b,a | |
| 1334 std $03,x | |
| 1335 L0B1B ldu $08,y | |
| 1336 ldd <$11,y | |
| 1337 std $0B,u | |
| 1338 ldd $0F,y | |
| 1339 std $09,u | |
| 1340 tfr x,d | |
| 1341 clrb | |
| 1342 inca | |
| 1343 leax $05,x | |
| 1344 pshs x,b,a | |
| 1345 bra L0B56 | |
| 1346 L0B30 ldd -$02,x | |
| 1347 beq L0B63 | |
| 1348 std <$1A,y | |
| 1349 ldd -$05,x | |
| 1350 std <$16,y | |
| 1351 lda -$03,x | |
| 1352 sta <$18,y | |
| 1353 bsr L0B6E | |
| 1354 bcs L0B6B | |
| 1355 stx $02,s | |
| 1356 lbsr L0CD4 | |
| 1357 bcs L0B6B | |
| 1358 ldx $02,s | |
| 1359 clra | |
| 1360 clrb | |
| 1361 std -$05,x | |
| 1362 sta -$03,x | |
| 1363 std -$02,x | |
| 1364 L0B56 lbsr L0D38 | |
| 1365 bcs L0B6B | |
| 1366 ldx $02,s | |
| 1367 leax $05,x | |
| 1368 cmpx ,s | |
| 1369 bcs L0B30 | |
| 1370 L0B63 clra | |
| 1371 clrb | |
| 1372 sta <$19,y | |
| 1373 std <$1A,y | |
| 1374 L0B6B leas $04,s | |
| 1375 rts | |
| 1376 L0B6E pshs u,y,x,a | |
| 1377 ldx <$1E,y | |
| 1378 ldd $06,x | |
| 1379 subd #$0001 | |
| 1380 addd <$17,y | |
| 1381 std <$17,y | |
| 1382 ldd $06,x | |
| 1383 bcc L0B96 | |
| 1384 inc <$16,y | |
| 1385 bra L0B96 | |
| 1386 L0B87 lsr <$16,y | |
| 1387 ror <$17,y | |
| 1388 ror <$18,y | |
| 1389 lsr <$1A,y | |
| 1390 ror <$1B,y | |
| 1391 L0B96 lsra | |
| 1392 rorb | |
| 1393 bcc L0B87 | |
| 1394 clrb | |
| 1395 ldd <$1A,y | |
| 1396 beq L0BD6 | |
| 1397 ldd <$16,y | |
| 1398 lsra | |
| 1399 rorb | |
| 1400 lsra | |
| 1401 rorb | |
| 1402 lsra | |
| 1403 rorb | |
| 1404 tfr b,a | |
| 1405 ldb #$DB | |
| 1406 cmpa $04,x | |
| 1407 bhi L0BD5 | |
| 1408 inca | |
| 1409 sta ,s | |
| 1410 L0BB4 bsr L0BD8 | |
| 1411 bcs L0BB4 | |
| 1412 ldb ,s | |
| 1413 bsr L0C33 | |
| 1414 bcs L0BD5 | |
| 1415 ldx $08,y | |
| 1416 ldd <$17,y | |
| 1417 anda #$07 | |
| 1418 ldy <$1A,y | |
| 1419 os9 F$DelBit | |
| 1420 ldy $03,s | |
| 1421 ldb ,s | |
| 1422 bsr L0C0B | |
| 1423 bcc L0BD6 | |
| 1424 L0BD5 coma | |
| 1425 L0BD6 puls pc,u,y,x,a | |
| 1426 L0BD8 lbsr L0D72 | |
| 1427 bra L0BE5 | |
| 1428 L0BDD lbsr L0838 | |
| 1429 os9 F$IOQu | |
| 1430 bsr L0BF5 | |
| 1431 L0BE5 bcs L0BF4 | |
| 1432 ldx <$1E,y | |
| 1433 lda <$17,x | |
| 1434 bne L0BDD | |
| 1435 lda $05,y | |
| 1436 sta <$17,x | |
| 1437 L0BF4 rts | |
| 1438 L0BF5 ldu <$004B | |
| 1439 ldb <$36,u | |
| 1440 cmpb #$01 | |
| 1441 bls L0C02 | |
| 1442 cmpb #$03 | |
| 1443 bls L0C09 | |
| 1444 L0C02 clra | |
| 1445 lda $0D,u | |
| 1446 bita #$02 | |
| 1447 beq L0C0A | |
| 1448 L0C09 coma | |
| 1449 L0C0A rts | |
| 1450 L0C0B clra | |
| 1451 tfr d,x | |
| 1452 clrb | |
| 1453 lbsr L0D42 | |
| 1454 L0C12 pshs cc | |
| 1455 ldx <$1E,y | |
| 1456 lda $05,y | |
| 1457 cmpa <$17,x | |
| 1458 bne L0C31 | |
| 1459 clr <$17,x | |
| 1460 ldx <$004B | |
| 1461 lda <$11,x | |
| 1462 beq L0C31 | |
| 1463 lbsr L0838 | |
| 1464 ldx #$0001 | |
| 1465 os9 F$Sleep | |
| 1466 L0C31 puls pc,cc | |
| 1467 L0C33 clra | |
| 1468 tfr d,x | |
| 1469 clrb | |
| 1470 lbra L0CEB | |
| 1471 pshs u,x | |
| 1472 lbsr L0D40 | |
| 1473 bcs L0C47 | |
| 1474 lda $0A,y | |
| 1475 anda #$FE | |
| 1476 sta $0A,y | |
| 1477 L0C47 puls pc,u,x | |
| 1478 L0C49 ldd $0C,y | |
| 1479 subd <$14,y | |
| 1480 tfr d,x | |
| 1481 ldb $0B,y | |
| 1482 sbcb <$13,y | |
| 1483 cmpb <$19,y | |
| 1484 bcs L0C61 | |
| 1485 bhi L0C63 | |
| 1486 cmpx <$1A,y | |
| 1487 bcc L0C63 | |
| 1488 L0C61 clrb | |
| 1489 L0C62 rts | |
| 1490 L0C63 pshs u | |
| 1491 bsr L0CD4 | |
| 1492 bcs L0CBF | |
| 1493 clra | |
| 1494 clrb | |
| 1495 std <$13,y | |
| 1496 stb <$15,y | |
| 1497 ldu $08,y | |
| 1498 leax <$10,u | |
| 1499 lda $08,y | |
| 1500 ldb #$FC | |
| 1501 pshs b,a | |
| 1502 L0C7C ldd $03,x | |
| 1503 beq L0CA1 | |
| 1504 addd <$14,y | |
| 1505 tfr d,u | |
| 1506 ldb <$13,y | |
| 1507 adcb #$00 | |
| 1508 cmpb $0B,y | |
| 1509 bhi L0CAE | |
| 1510 bne L0C95 | |
| 1511 cmpu $0C,y | |
| 1512 bhi L0CAE | |
| 1513 L0C95 stb <$13,y | |
| 1514 stu <$14,y | |
| 1515 leax $05,x | |
| 1516 cmpx ,s | |
| 1517 bcs L0C7C | |
| 1518 L0CA1 clra | |
| 1519 clrb | |
| 1520 sta <$19,y | |
| 1521 std <$1A,y | |
| 1522 comb | |
| 1523 ldb #E$NES | |
| 1524 bra L0CBD | |
| 1525 L0CAE ldd ,x | |
| 1526 std <$16,y | |
| 1527 lda $02,x | |
| 1528 sta <$18,y | |
| 1529 ldd $03,x | |
| 1530 std <$1A,y | |
| 1531 L0CBD leas $02,s | |
| 1532 L0CBF puls pc,u | |
| 1533 L0CC1 pshs x,b | |
| 1534 lbsr L0D72 | |
| 1535 bcs L0CD0 | |
| 1536 clrb | |
| 1537 ldx #$0000 | |
| 1538 bsr L0CEB | |
| 1539 bcc L0CD2 | |
| 1540 L0CD0 stb ,s | |
| 1541 L0CD2 puls pc,x,b | |
| 1542 L0CD4 ldb $0A,y | |
| 1543 bitb #$04 | |
| 1544 bne L0C61 | |
| 1545 lbsr L0D72 | |
| 1546 bcs L0C62 | |
| 1547 ldb $0A,y | |
| 1548 orb #$04 | |
| 1549 stb $0A,y | |
| 1550 ldb <$34,y | |
| 1551 ldx <$35,y | |
| 1552 L0CEB lda #$03 | |
| 1553 L0CED pshs u,y,x,b,a | |
| 1554 lda $0A,y | |
| 1555 ora #$20 | |
| 1556 sta $0A,y | |
| 1557 ldu $03,y | |
| 1558 ldu $02,u | |
| 1559 bra L0D01 | |
| 1560 L0CFB lbsr L0838 | |
| 1561 os9 F$IOQu | |
| 1562 L0D01 lda $04,u | |
| 1563 bne L0CFB | |
| 1564 lda $05,y | |
| 1565 sta $04,u | |
| 1566 ldd ,s | |
| 1567 ldx $02,s | |
| 1568 pshs u | |
| 1569 bsr L0D26 | |
| 1570 puls u | |
| 1571 ldy $04,s | |
| 1572 pshs cc | |
| 1573 bcc L0D1C | |
| 1574 stb $02,s | |
| 1575 L0D1C lda $0A,y | |
| 1576 anda #$DF | |
| 1577 sta $0A,y | |
| 1578 clr $04,u | |
| 1579 puls pc,u,y,x,b,a,cc | |
| 1580 L0D26 pshs pc,x,b,a | |
| 1581 ldx $03,y | |
| 1582 ldd ,x | |
| 1583 ldx ,x | |
| 1584 addd $09,x | |
| 1585 addb ,s | |
| 1586 adca #$00 | |
| 1587 std $04,s | |
| 1588 puls pc,x,b,a | |
| 1589 L0D38 ldb <$34,y | |
| 1590 ldx <$35,y | |
| 1591 bra L0D42 | |
| 1592 L0D40 bsr L0D5B | |
| 1593 L0D42 lda #$06 | |
| 1594 pshs x,b,a | |
| 1595 ldd <$1C,y | |
| 1596 beq L0D51 | |
| 1597 ldx <$1E,y | |
| 1598 cmpd $0E,x | |
| 1599 L0D51 puls x,b,a | |
| 1600 lbeq L0CED | |
| 1601 comb | |
| 1602 ldb #E$DIDC | |
| 1603 rts | |
| 1604 L0D5B ldd $0C,y | |
| 1605 subd <$14,y | |
| 1606 tfr d,x | |
| 1607 ldb $0B,y | |
| 1608 sbcb <$13,y | |
| 1609 exg d,x | |
| 1610 addd <$17,y | |
| 1611 exg d,x | |
| 1612 adcb <$16,y | |
| 1613 rts | |
| 1614 L0D72 clrb | |
| 1615 pshs u,x | |
| 1616 ldb $0A,y | |
| 1617 andb #$46 | |
| 1618 beq L0D8F | |
| 1619 tfr b,a | |
| 1620 eorb $0A,y | |
| 1621 stb $0A,y | |
| 1622 andb #$01 | |
| 1623 beq L0D8F | |
| 1624 eorb $0A,y | |
| 1625 stb $0A,y | |
| 1626 bita #$02 | |
| 1627 beq L0D8F | |
| 1628 bsr L0D40 | |
| 1629 L0D8F puls pc,u,x | |
| 1630 L0D91 pshs u,x | |
| 1631 lbsr L0C49 | |
| 1632 bcs L0DAA | |
| 1633 bsr L0D72 | |
| 1634 bcs L0DAA | |
| 1635 lbsr L0D5B | |
| 1636 lbsr L0CEB | |
| 1637 bcs L0DAA | |
| 1638 lda $0A,y | |
| 1639 ora #$42 | |
| 1640 sta $0A,y | |
| 1641 L0DAA puls pc,u,x | |
| 1642 | |
| 1643 emod | |
| 1644 eom equ * | |
| 1645 end | |
| 1646 |