Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/rbf.asm @ 3048:9565d767bd79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rbf: Convert fixed register stack offsets to R$ macro defines So that it works with 6309 which has a different register set.
author Robert Gault <robert.gault@att.net>
date Sat, 24 Jan 2015 23:42:57 +0100
parents 0e31b207ba40
children
comparison
equal deleted inserted replaced
3047:a951ab0b3003 3048:9565d767bd79
367 beq L027D 367 beq L027D
368 L02E9 lda #$42 368 L02E9 lda #$42
369 lbsr L07F1 369 lbsr L07F1
370 bcs L035F 370 bcs L035F
371 ldu $06,y 371 ldu $06,y
372 stx $04,u 372 stx R$X,u
373 lbsr L0CD4 373 lbsr L0CD4
374 bcs L035F 374 bcs L035F
375 ldx $08,y 375 ldx $08,y
376 dec $08,x 376 dec $08,x
377 beq L0304 377 beq L0304
415 L035F lbra L0280 415 L035F lbra L0280
416 416
417 Seek ldb $0A,y 417 Seek ldb $0A,y
418 bitb #$02 418 bitb #$02
419 beq L037B 419 beq L037B
420 lda $05,u 420 lda R$X+1,u
421 ldb $08,u 421 ldb R$U,u
422 subd $0C,y 422 subd $0C,y
423 bne L0376 423 bne L0376
424 lda $04,u 424 lda R$X,u
425 sbca $0B,y 425 sbca $0B,y
426 beq L037F 426 beq L037F
427 L0376 lbsr L0D72 427 L0376 lbsr L0D72
428 bcs L0383 428 bcs L0383
429 L037B ldd $04,u 429 L037B ldd R$X,u
430 std $0B,y 430 std $0B,y
431 L037F ldd $08,u 431 L037F ldd R$U,u
432 std $0D,y 432 std $0D,y
433 L0383 rts 433 L0383 rts
434 434
435 ReadLn bsr L03C4 435 ReadLn bsr L03C4
436 beq L03AA 436 beq L03AA
456 cmpa #$0D 456 cmpa #$0D
457 beq L03BA 457 beq L03BA
458 ldd $02,s 458 ldd $02,s
459 bne L041A 459 bne L041A
460 L03BA ldu $06,y 460 L03BA ldu $06,y
461 ldd $06,u 461 ldd R$Y,u
462 subd $02,s 462 subd $02,s
463 std $06,u 463 std R$Y,u
464 bra L040E 464 bra L040E
465 L03C4 ldd $06,u 465 L03C4 ldd R$Y,u
466 bsr L03CD 466 bsr L03CD
467 bcs L03F1 467 bcs L03F1
468 std $06,u 468 std R$Y,u
469 rts 469 rts
470 L03CD pshs b,a 470 L03CD pshs b,a
471 ldd <$11,y 471 ldd <$11,y
472 subd $0D,y 472 subd $0D,y
473 tfr d,x 473 tfr d,x
504 bne L041A 504 bne L041A
505 L040E clrb 505 L040E clrb
506 L040F leas -$02,s 506 L040F leas -$02,s
507 L0411 leas $0A,s 507 L0411 leas $0A,s
508 rts 508 rts
509 L0414 ldd $04,u 509 L0414 ldd R$X,u
510 ldx $06,u 510 ldx R$Y,u
511 pshs x,b,a 511 pshs x,b,a
512 L041A lda $0A,y 512 L041A lda $0A,y
513 bita #$02 513 bita #$02
514 bne L043A 514 bne L043A
515 tst $0E,y 515 tst $0E,y
555 std $02,s 555 std $02,s
556 jmp [<$04,s] 556 jmp [<$04,s]
557 557
558 WriteLn pshs y 558 WriteLn pshs y
559 clrb 559 clrb
560 ldy $06,u 560 ldy R$Y,u
561 beq L0498 561 beq L0498
562 ldx $04,u 562 ldx R$X,u
563 L0484 leay -$01,y 563 L0484 leay -$01,y
564 beq L0498 564 beq L0498
565 lda ,x+ 565 lda ,x+
566 cmpa #$0D 566 cmpa #$0D
567 bne L0484 567 bne L0484
568 tfr y,d 568 tfr y,d
569 nega 569 nega
570 negb 570 negb
571 sbca #$00 571 sbca #$00
572 addd $06,u 572 addd R$Y,u
573 std $06,u 573 std R$Y,u
574 L0498 puls y 574 L0498 puls y
575 575
576 Write ldd $06,u 576 Write ldd R$Y,u
577 beq L04BE 577 beq L04BE
578 bsr L04C0 578 bsr L04C0
579 bcs L04BF 579 bcs L04BF
580 bsr L04B5 580 bsr L04B5
581 L04A4 pshs y,b,a 581 L04A4 pshs y,b,a
635 L0515 cmpx ,s 635 L0515 cmpx ,s
636 bcs L050E 636 bcs L050E
637 leas $02,s 637 leas $02,s
638 L051B puls pc,u,y,x 638 L051B puls pc,u,y,x
639 639
640 GetStat ldb $02,u 640 GetStat ldb R$B,u
641 cmpb #SS.Opt 641 cmpb #SS.Opt
642 beq L0543 642 beq L0543
643 cmpb #$06 643 cmpb #$06
644 bne L052F 644 bne L052F
645 clr $02,u 645 clr R$B,u
646 L0529 clra 646 L0529 clra
647 ldb #$01 647 ldb #$01
648 lbra L03CD 648 lbra L03CD
649 L052F cmpb #SS.Ready 649 L052F cmpb #SS.Ready
650 bne L0536 650 bne L0536
651 clr $02,u 651 clr R$B,u
652 rts 652 rts
653 L0536 cmpb #SS.Size 653 L0536 cmpb #SS.Size
654 bne L0544 654 bne L0544
655 ldd $0F,y 655 ldd $0F,y
656 std $04,u 656 std R$X,u
657 ldd <$11,y 657 ldd <$11,y
658 std $08,u 658 std R$U,u
659 L0543 rts 659 L0543 rts
660 L0544 cmpb #SS.Pos 660 L0544 cmpb #SS.Pos
661 bne L0551 661 bne L0551
662 ldd $0B,y 662 ldd $0B,y
663 std $04,u 663 std R$X,u
664 ldd $0D,y 664 ldd $0D,y
665 std $08,u 665 std R$U,u
666 Gst5FF rts 666 Gst5FF rts
667 L0551 cmpb #SS.FD 667 L0551 cmpb #SS.FD
668 bne SSFDInf 668 bne SSFDInf
669 lbsr L0CD4 669 lbsr L0CD4
670 bcs L0543 670 bcs L0543
671 ldu $06,y 671 ldu $06,y
672 ldd $06,u 672 ldd R$Y,u
673 tsta 673 tsta
674 beq L0564 674 beq L0564
675 ldd #$0100 675 ldd #$0100
676 L0564 ldx $04,u 676 L0564 ldx R$X,u
677 ldu $08,y 677 ldu $08,y
678 lbra L03FD 678 lbra L03FD
679 SSFDInf cmpb #SS.FDInf 679 SSFDInf cmpb #SS.FDInf
680 bne L056B 680 bne L056B
681 lbsr L0D72 check for sector flush 681 lbsr L0D72 check for sector flush
733 L05C6 cmpb #SS.FD 733 L05C6 cmpb #SS.FD
734 bne L0604 734 bne L0604
735 lbsr L0CD4 735 lbsr L0CD4
736 bcs L061C 736 bcs L061C
737 pshs y 737 pshs y
738 ldx $04,u 738 ldx R$X,u
739 ldu $08,y 739 ldu $08,y
740 lda $01,y 740 lda $01,y
741 bita #$02 741 bita #$02
742 beq L05F0 742 beq L05F0
743 ldy <$004B 743 ldy <$004B
762 lbsr L04F2 762 lbsr L04F2
763 puls pc,u,x 763 puls pc,u,x
764 L0604 cmpb #$1E 764 L0604 cmpb #$1E
765 bne L0614 765 bne L0614
766 ldx <$1E,y 766 ldx <$1E,y
767 lda $05,u 767 lda R$X+1,u
768 sta <$1E,x 768 sta <$1E,x
769 clr <$1D,x 769 clr <$1D,x
770 rts 770 rts
771 L0614 lda #$0C 771 L0614 lda #$0C
772 lbra L0CED 772 lbra L0CED