- Timestamp:
- 08/07/2017 03:19:26 PM (7 years ago)
- Branches:
- master
- Children:
- 16badfe
- Parents:
- 27c8d40
- Location:
- ram
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/sedisp.s
r27c8d40 r3370595 595 595 | dslocn -- display location 596 596 | ------ ---------------- 597 dslocn :clr.w d0 | get group number597 dslocn_: clr.w d0 | get group number 598 598 move.b E_DATA1(a0),d0 | ... in d0 599 599 add.w d0,d0 | ... as a word offset … … 1199 1199 .dc.l dstune | 10 tuning 1200 1200 .dc.l dsgrp | 11 group status 1201 .dc.l dslocn | 12 location1201 .dc.l dslocn_ | 12 location 1202 1202 .dc.l dsdyn | 13 dynamics 1203 1203 .dc.l dsanvl | 14 analog value -
ram/seexec.s
r27c8d40 r3370595 100 100 se_exec: link a6,#0 | link stack frames 101 101 movea.l P_EP(a6),a0 | get event pointer 'ep' into a0 102 move.l a0, _xevent | save in xevent102 move.l a0,xevent | save in xevent 103 103 move.b E_TYPE(a0),d1 | get event type into d1.W 104 104 andi.w #0x007F,d1 | ... and mask off new-data flag … … 109 109 bra done | exit 110 110 111 exexit: movea.l _xevent,a0 | point at next event111 exexit: movea.l xevent,a0 | point at next event 112 112 move.l E_FWD(a0),d0 | ... 113 113 … … 518 518 | globals: 519 519 | -------- 520 _xevent:.ds.l 1 | next event pointer520 xevent: .ds.l 1 | next event pointer 521 521 522 522 .end -
ram/sreset.s
r27c8d40 r3370595 53 53 ori.w #0x0700,sr | ... 54 54 55 move.w vrcw, vrcw | make local copies of control variables55 move.w vrcw,_vrcw | make local copies of control variables 56 56 clr.w vrcw | ... and clear them for the next pass 57 move.w vrbw08, vrbw08 | ...57 move.w vrbw08,_vrbw08 | ... 58 58 clr.w vrbw08 | ... 59 move.w vrbw09, vrbw09 | ...59 move.w vrbw09,_vrbw09 | ... 60 60 clr.w vrbw09 | ... 61 move.w vrbw10, vrbw10 | ...61 move.w vrbw10,_vrbw10 | ... 62 62 clr.w vrbw10 | ... 63 move.w vrbw11, vrbw11 | ...63 move.w vrbw11,_vrbw11 | ... 64 64 clr.w vrbw11 | ... 65 move.w vrbw12, vrbw12 | ...65 move.w vrbw12,_vrbw12 | ... 66 66 clr.w vrbw12 | ... 67 move.w vrbw13, vrbw13 | ...67 move.w vrbw13,_vrbw13 | ... 68 68 clr.w vrbw13 | ... 69 move.w vrbw14, vrbw14 | ...69 move.w vrbw14,_vrbw14 | ... 70 70 clr.w vrbw14 | ... 71 move.w vrbw15, vrbw15 | ...71 move.w vrbw15,_vrbw15 | ... 72 72 clr.w vrbw15 | ... 73 73 … … 100 100 move.w #12,COL(a7) | put 2nd column on stack 101 101 jsr vputa | reset second column 102 move.w vrcw,d0 | restorevrcw to d0102 move.w _vrcw,d0 | restore _vrcw to d0 103 103 104 104 | tuning … … 111 111 move.w #19,COL(a7) | put column on stack 112 112 jsr vputa | reset column 113 move.w vrcw,d0 | restorevrcw to d0113 move.w _vrcw,d0 | restore _vrcw to d0 114 114 115 115 | tempo … … 126 126 move.w #29,COL(a7) | put 3rd column on stack 127 127 jsr vputa | reset third column 128 move.w vrcw,d0 | restorevrcw to d0128 move.w _vrcw,d0 | restore _vrcw to d0 129 129 130 130 .page … … 145 145 move.w #38,COL(a7) | put 4th column on stack 146 146 jsr vputa | reset fourth column 147 move.w vrcw,d0 | restorevrcw to d0147 move.w _vrcw,d0 | restore _vrcw to d0 148 148 149 149 | section begin … … 172 172 move.w #51,COL(a7) | put 2nd column on stack 173 173 jsr vputa | reset second column 174 move.w vrcw,d0 | restorevrcw to d0174 move.w _vrcw,d0 | restore _vrcw to d0 175 175 176 176 | punch out … … 187 187 move.w #55,COL(a7) | put 3rd column on stack 188 188 jsr vputa | reset third column 189 move.w vrcw,d0 | restorevrcw to d0189 move.w _vrcw,d0 | restore _vrcw to d0 190 190 191 191 | Output … … 208 208 move.w #62,COL(a7) | put 6th column on stack 209 209 jsr vputa | reset sixth column 210 move.w vrcw,d0 | restorevrcw to d0210 move.w _vrcw,d0 | restore _vrcw to d0 211 211 212 212 .page … … 219 219 move.w #2,ROW(a7) | put row on stack 220 220 move.w #AT11,ATR(a7) | put attribute on stack 221 btst #0, vrbw08+1 | group 1 ?221 btst #0,_vrbw08+1 | group 1 ? 222 222 beq srs8a | jump if not 223 223 … … 227 227 jsr vputa | reset second column 228 228 229 srs8a: btst #1, vrbw08+1 | group 2 ?229 srs8a: btst #1,_vrbw08+1 | group 2 ? 230 230 beq srs8b | jump if not 231 231 … … 235 235 jsr vputa | reset second character 236 236 237 srs8b: btst #2, vrbw08+1 | group 3 ?237 srs8b: btst #2,_vrbw08+1 | group 3 ? 238 238 beq srs8c | jump if not 239 239 … … 243 243 jsr vputa | reset second character 244 244 245 srs8c: btst #3, vrbw08+1 | group 4 ?245 srs8c: btst #3,_vrbw08+1 | group 4 ? 246 246 beq srs8d | jump if not 247 247 … … 253 253 .page 254 254 255 srs8d: btst #4, vrbw08+1 | group 5 ?255 srs8d: btst #4,_vrbw08+1 | group 5 ? 256 256 beq srs8e | jump if not 257 257 … … 261 261 jsr vputa | reset second character 262 262 263 srs8e: btst #5, vrbw08+1 | group 6 ?263 srs8e: btst #5,_vrbw08+1 | group 6 ? 264 264 beq srs8f | jump if not 265 265 … … 269 269 jsr vputa | reset second character 270 270 271 srs8f: btst #6, vrbw08+1 | group 7 ?271 srs8f: btst #6,_vrbw08+1 | group 7 ? 272 272 beq srs8g | jump if not 273 273 … … 277 277 jsr vputa | reset second character 278 278 279 srs8g: btst #7, vrbw08+1 | group 8 ?279 srs8g: btst #7,_vrbw08+1 | group 8 ? 280 280 beq srs8h | jump if not 281 281 … … 287 287 .page 288 288 289 srs8h: btst #0, vrbw08 | group 9289 srs8h: btst #0,_vrbw08 | group 9 290 290 beq srs8j | jump if not 291 291 … … 295 295 jsr vputa | reset second character 296 296 297 srs8j: btst #1, vrbw08 | group 10297 srs8j: btst #1,_vrbw08 | group 10 298 298 beq srs8k | jump if not 299 299 … … 303 303 jsr vputa | reset second character 304 304 305 srs8k: btst #2, vrbw08 | group 11305 srs8k: btst #2,_vrbw08 | group 11 306 306 beq srs8m | jump if not 307 307 … … 311 311 jsr vputa | reset second character 312 312 313 srs8m: btst #3, vrbw08 | group 12313 srs8m: btst #3,_vrbw08 | group 12 314 314 beq srs8x | jump if not 315 315 … … 319 319 jsr vputa | reset second character 320 320 321 srs8x: move.w vrcw,d0 | restorevrcw to d0321 srs8x: move.w _vrcw,d0 | restore _vrcw to d0 322 322 323 323 .page … … 330 330 move.w #AT11,ATR(a7) | put attribute on stack 331 331 move.w #3,ROW(a7) | put row on stack 332 btst #0, vrbw09+1 | group 1 ?332 btst #0,_vrbw09+1 | group 1 ? 333 333 beq srs9a | jump if not 334 334 … … 342 342 jsr vputa | reset fourth column 343 343 344 srs9a: btst #1, vrbw09+1 | group 2 ?344 srs9a: btst #1,_vrbw09+1 | group 2 ? 345 345 beq srs9b | jump if not 346 346 … … 354 354 jsr vputa | reset fourth column 355 355 356 srs9b: btst #2, vrbw09+1 | group 3 ?356 srs9b: btst #2,_vrbw09+1 | group 3 ? 357 357 beq srs9c | jump if not 358 358 … … 368 368 .page 369 369 370 srs9c: btst #3, vrbw09+1 | group 4 ?370 srs9c: btst #3,_vrbw09+1 | group 4 ? 371 371 beq srs9d | jump if not 372 372 … … 380 380 jsr vputa | reset fourth column 381 381 382 srs9d: btst #4, vrbw09+1 | group 5 ?382 srs9d: btst #4,_vrbw09+1 | group 5 ? 383 383 beq srs9e | jump if not 384 384 … … 392 392 jsr vputa | reset fourth column 393 393 394 srs9e: btst #5, vrbw09+1 | group 6 ?394 srs9e: btst #5,_vrbw09+1 | group 6 ? 395 395 beq srs9f | jump if not 396 396 … … 406 406 .page 407 407 408 srs9f: btst #6, vrbw09+1 | group 7 ?408 srs9f: btst #6,_vrbw09+1 | group 7 ? 409 409 beq srs9g | jump if not 410 410 … … 418 418 jsr vputa | reset fourth column 419 419 420 srs9g: btst #7, vrbw09+1 | group 8 ?420 srs9g: btst #7,_vrbw09+1 | group 8 ? 421 421 beq srs9h | jump if not 422 422 … … 430 430 jsr vputa | reset fourth column 431 431 432 srs9h: btst #0, vrbw09 | group 9432 srs9h: btst #0,_vrbw09 | group 9 433 433 beq srs9j | jump if not 434 434 … … 444 444 .page 445 445 446 srs9j: btst #1, vrbw09 | group 10446 srs9j: btst #1,_vrbw09 | group 10 447 447 beq srs9k | jump if not 448 448 … … 456 456 jsr vputa | reset fourth column 457 457 458 srs9k: btst #2, vrbw09 | group 11458 srs9k: btst #2,_vrbw09 | group 11 459 459 beq srs9m | jump if not 460 460 … … 468 468 jsr vputa | reset fourth column 469 469 470 srs9m: btst #3, vrbw09 | group 12470 srs9m: btst #3,_vrbw09 | group 12 471 471 beq srs9x | jump if not 472 472 … … 480 480 jsr vputa | reset fourth column 481 481 482 srs9x: move.w vrcw,d0 | restorevrcw to d0482 srs9x: move.w _vrcw,d0 | restore _vrcw to d0 483 483 484 484 .page … … 491 491 move.w #AT11,ATR(a7) | put attribute on stack 492 492 move.w #4,ROW(a7) | put row on stack 493 btst #0, vrbw10+1 | group 1 ?493 btst #0,_vrbw10+1 | group 1 ? 494 494 beq srs10a | jump if not 495 495 … … 497 497 jsr vputa | reset column 498 498 499 srs10a: btst #1, vrbw10+1 | group 2 ?499 srs10a: btst #1,_vrbw10+1 | group 2 ? 500 500 beq srs10b | jump if not 501 501 … … 503 503 jsr vputa | reset column 504 504 505 srs10b: btst #2, vrbw10+1 | group 3 ?505 srs10b: btst #2,_vrbw10+1 | group 3 ? 506 506 beq srs10c | jump if not 507 507 … … 509 509 jsr vputa | reset column 510 510 511 srs10c: btst #3, vrbw10+1 | group 4 ?511 srs10c: btst #3,_vrbw10+1 | group 4 ? 512 512 beq srs10d | jump if not 513 513 … … 517 517 .page 518 518 519 srs10d: btst #4, vrbw10+1 | group 5 ?519 srs10d: btst #4,_vrbw10+1 | group 5 ? 520 520 beq srs10e | jump if not 521 521 … … 523 523 jsr vputa | reset column 524 524 525 srs10e: btst #5, vrbw10+1 | group 6 ?525 srs10e: btst #5,_vrbw10+1 | group 6 ? 526 526 beq srs10f | jump if not 527 527 … … 529 529 jsr vputa | reset column 530 530 531 srs10f: btst #6, vrbw10+1 | group 7 ?531 srs10f: btst #6,_vrbw10+1 | group 7 ? 532 532 beq srs10g | jump if not 533 533 … … 535 535 jsr vputa | reset column 536 536 537 srs10g: btst #7, vrbw10+1 | group 8 ?537 srs10g: btst #7,_vrbw10+1 | group 8 ? 538 538 beq srs10h | jump if not 539 539 … … 543 543 .page 544 544 545 srs10h: btst #0, vrbw10 | group 9545 srs10h: btst #0,_vrbw10 | group 9 546 546 beq srs10j | jump if not 547 547 … … 549 549 jsr vputa | reset column 550 550 551 srs10j: btst #1, vrbw10 | group 10551 srs10j: btst #1,_vrbw10 | group 10 552 552 beq srs10k | jump if not 553 553 … … 555 555 jsr vputa | reset column 556 556 557 srs10k: btst #2, vrbw10 | group 11557 srs10k: btst #2,_vrbw10 | group 11 558 558 beq srs10m | jump if not 559 559 … … 561 561 jsr vputa | reset column 562 562 563 srs10m: btst #3, vrbw10 | group 12563 srs10m: btst #3,_vrbw10 | group 12 564 564 beq srs10x | jump if not 565 565 … … 567 567 jsr vputa | reset column 568 568 569 srs10x: move.w vrcw,d0 | restorevrcw to d0569 srs10x: move.w _vrcw,d0 | restore _vrcw to d0 570 570 571 571 .page … … 578 578 move.w #AT11,ATR(a7) | put attribute on stack 579 579 move.w #4,ROW(a7) | put row on stack 580 btst #0, vrbw11+1 | group 1 ?580 btst #0,_vrbw11+1 | group 1 ? 581 581 beq srs11a | jump if not 582 582 … … 584 584 jsr vputa | reset column 585 585 586 srs11a: btst #1, vrbw11+1 | group 2 ?586 srs11a: btst #1,_vrbw11+1 | group 2 ? 587 587 beq srs11b | jump if not 588 588 … … 590 590 jsr vputa | reset column 591 591 592 srs11b: btst #2, vrbw11+1 | group 3 ?592 srs11b: btst #2,_vrbw11+1 | group 3 ? 593 593 beq srs11c | jump if not 594 594 … … 596 596 jsr vputa | reset column 597 597 598 srs11c: btst #3, vrbw11+1 | group 4 ?598 srs11c: btst #3,_vrbw11+1 | group 4 ? 599 599 beq srs11d | jump if not 600 600 … … 604 604 .page 605 605 606 srs11d: btst #4, vrbw11+1 | group 5 ?606 srs11d: btst #4,_vrbw11+1 | group 5 ? 607 607 beq srs11e | jump if not 608 608 … … 610 610 jsr vputa | reset column 611 611 612 srs11e: btst #5, vrbw11+1 | group 6 ?612 srs11e: btst #5,_vrbw11+1 | group 6 ? 613 613 beq srs11f | jump if not 614 614 … … 616 616 jsr vputa | reset column 617 617 618 srs11f: btst #6, vrbw11+1 | group 7 ?618 srs11f: btst #6,_vrbw11+1 | group 7 ? 619 619 beq srs11g | jump if not 620 620 … … 622 622 jsr vputa | reset column 623 623 624 srs11g: btst #7, vrbw11+1 | group 8 ?624 srs11g: btst #7,_vrbw11+1 | group 8 ? 625 625 beq srs11h | jump if not 626 626 … … 630 630 .page 631 631 632 srs11h: btst #0, vrbw11 | group 9632 srs11h: btst #0,_vrbw11 | group 9 633 633 beq srs11j | jump if not 634 634 … … 636 636 jsr vputa | reset column 637 637 638 srs11j: btst #1, vrbw11 | group 10638 srs11j: btst #1,_vrbw11 | group 10 639 639 beq srs11k | jump if not 640 640 … … 642 642 jsr vputa | reset column 643 643 644 srs11k: btst #2, vrbw11 | group 11644 srs11k: btst #2,_vrbw11 | group 11 645 645 beq srs11m | jump if not 646 646 … … 648 648 jsr vputa | reset column 649 649 650 srs11m: btst #3, vrbw11 | group 12650 srs11m: btst #3,_vrbw11 | group 12 651 651 beq srs11x | jump if not 652 652 … … 654 654 jsr vputa | reset column 655 655 656 srs11x: move.w vrcw,d0 | restorevrcw to d0656 srs11x: move.w _vrcw,d0 | restore _vrcw to d0 657 657 658 658 .page … … 665 665 move.w #AT11,ATR(a7) | put attribute on stack 666 666 move.w #5,ROW(a7) | put row on stack 667 btst #0, vrbw12+1 | group 1 ?667 btst #0,_vrbw12+1 | group 1 ? 668 668 beq srs12a | jump if not 669 669 … … 675 675 jsr vputa | reset third column 676 676 677 srs12a: btst #1, vrbw12+1 | group 2 ?677 srs12a: btst #1,_vrbw12+1 | group 2 ? 678 678 beq srs12b | jump if not 679 679 … … 685 685 jsr vputa | reset third column 686 686 687 srs12b: btst #2, vrbw12+1 | group 3 ?687 srs12b: btst #2,_vrbw12+1 | group 3 ? 688 688 beq srs12c | jump if not 689 689 … … 697 697 .page 698 698 699 srs12c: btst #3, vrbw12+1 | group 4 ?699 srs12c: btst #3,_vrbw12+1 | group 4 ? 700 700 beq srs12d | jump if not 701 701 … … 707 707 jsr vputa | reset third column 708 708 709 srs12d: btst #4, vrbw12+1 | group 5 ?709 srs12d: btst #4,_vrbw12+1 | group 5 ? 710 710 beq srs12e | jump if not 711 711 … … 717 717 jsr vputa | reset third column 718 718 719 srs12e: btst #5, vrbw12+1 | group 6 ?719 srs12e: btst #5,_vrbw12+1 | group 6 ? 720 720 beq srs12f | jump if not 721 721 … … 729 729 .page 730 730 731 srs12f: btst #6, vrbw12+1 | group 7 ?731 srs12f: btst #6,_vrbw12+1 | group 7 ? 732 732 beq srs12g | jump if not 733 733 … … 739 739 jsr vputa | reset third column 740 740 741 srs12g: btst #7, vrbw12+1 | group 8 ?741 srs12g: btst #7,_vrbw12+1 | group 8 ? 742 742 beq srs12h | jump if not 743 743 … … 749 749 jsr vputa | reset third column 750 750 751 srs12h: btst #0, vrbw12 | group 9751 srs12h: btst #0,_vrbw12 | group 9 752 752 beq srs12j | jump if not 753 753 … … 761 761 .page 762 762 763 srs12j: btst #1, vrbw12 | group 10763 srs12j: btst #1,_vrbw12 | group 10 764 764 beq srs12k | jump if not 765 765 … … 771 771 jsr vputa | reset third column 772 772 773 srs12k: btst #2, vrbw12 | group 11773 srs12k: btst #2,_vrbw12 | group 11 774 774 beq srs12m | jump if not 775 775 … … 781 781 jsr vputa | reset third column 782 782 783 srs12m: btst #3, vrbw12 | group 12783 srs12m: btst #3,_vrbw12 | group 12 784 784 beq srs12x | jump if not 785 785 … … 791 791 jsr vputa | reset third column 792 792 793 srs12x: move.w vrcw,d0 | restorevrcw to d0793 srs12x: move.w _vrcw,d0 | restore _vrcw to d0 794 794 795 795 .page … … 802 802 move.w #AT12,ATR(a7) | put attribute on stack 803 803 move.w #7,ROW(a7) | put row on stack 804 btst #0, vrbw13+1 | variable 1 ?804 btst #0,_vrbw13+1 | variable 1 ? 805 805 beq srs13a | jump if not 806 806 … … 808 808 jsr vputa | reset column 809 809 810 srs13a: btst #1, vrbw13+1 | variable 2 ?810 srs13a: btst #1,_vrbw13+1 | variable 2 ? 811 811 beq srs13b | jump if not 812 812 … … 814 814 jsr vputa | reset column 815 815 816 srs13b: btst #2, vrbw13+1 | variable 3 ?816 srs13b: btst #2,_vrbw13+1 | variable 3 ? 817 817 beq srs13c | jump if not 818 818 … … 820 820 jsr vputa | reset column 821 821 822 srs13c: btst #3, vrbw13+1 | variable 4 ?822 srs13c: btst #3,_vrbw13+1 | variable 4 ? 823 823 beq srs13d | jump if not 824 824 … … 826 826 jsr vputa | reset column 827 827 828 srs13d: btst #4, vrbw13+1 | variable 5 ?828 srs13d: btst #4,_vrbw13+1 | variable 5 ? 829 829 beq srs13e | jump if not 830 830 … … 832 832 jsr vputa | reset column 833 833 834 srs13e: btst #5, vrbw13+1 | variable 6 ?834 srs13e: btst #5,_vrbw13+1 | variable 6 ? 835 835 beq srs13x | jump if not 836 836 … … 838 838 jsr vputa | reset column 839 839 840 srs13x: move.w vrcw,d0 | restorevrcw to d0840 srs13x: move.w _vrcw,d0 | restore _vrcw to d0 841 841 842 842 .page … … 849 849 move.w #AT12,ATR(a7) | put attribute on stack 850 850 move.w #7,ROW(a7) | put row on stack 851 btst #0, vrbw14+1 | variable 1 ?851 btst #0,_vrbw14+1 | variable 1 ? 852 852 beq srs14a | jump if not 853 853 … … 863 863 jsr vputa | reset fifth column 864 864 865 srs14a: btst #1, vrbw14+1 | variable 2 ?865 srs14a: btst #1,_vrbw14+1 | variable 2 ? 866 866 beq srs14b | jump if not 867 867 … … 879 879 .page 880 880 881 srs14b: btst #2, vrbw14+1 | variable 3 ?881 srs14b: btst #2,_vrbw14+1 | variable 3 ? 882 882 beq srs14c | jump if not 883 883 … … 893 893 jsr vputa | reset fifth column 894 894 895 srs14c: btst #3, vrbw14+1 | variable 4 ?895 srs14c: btst #3,_vrbw14+1 | variable 4 ? 896 896 beq srs14d | jump if not 897 897 … … 909 909 .page 910 910 911 srs14d: btst #4, vrbw14+1 | variable 5 ?911 srs14d: btst #4,_vrbw14+1 | variable 5 ? 912 912 beq srs14e | jump if not 913 913 … … 923 923 jsr vputa | reset fifth column 924 924 925 srs14e: btst #5, vrbw14+1 | variable 6 ?925 srs14e: btst #5,_vrbw14+1 | variable 6 ? 926 926 beq srs14x | jump if not 927 927 … … 937 937 jsr vputa | reset fifth column 938 938 939 srs14x: move.w vrcw,d0 | restorevrcw to d0939 srs14x: move.w _vrcw,d0 | restore _vrcw to d0 940 940 941 941 .page … … 946 946 beq srs16 | jump if not 947 947 948 btst #0, vrbw15 | stop ?948 btst #0,_vrbw15 | stop ? 949 949 beq srs15a | jump if not 950 950 … … 960 960 jsr vputa | reset fourth column 961 961 962 srs15a: btst #1, vrbw15 | next ?962 srs15a: btst #1,_vrbw15 | next ? 963 963 beq srs16 | jump if not 964 964 … … 983 983 | local copies of vrcw, vrbw08..vrbw15 984 984 985 vrcw: .ds.w 1986 vrbw08: .ds.w 1987 vrbw09: .ds.w 1988 vrbw10: .ds.w 1989 vrbw11: .ds.w 1990 vrbw12: .ds.w 1991 vrbw13: .ds.w 1992 vrbw14: .ds.w 1993 vrbw15: .ds.w 1985 _vrcw: .ds.w 1 986 _vrbw08: .ds.w 1 987 _vrbw09: .ds.w 1 988 _vrbw10: .ds.w 1 989 _vrbw11: .ds.w 1 990 _vrbw12: .ds.w 1 991 _vrbw13: .ds.w 1 992 _vrbw14: .ds.w 1 993 _vrbw15: .ds.w 1 994 994 995 995 .end
Note:
See TracChangeset
for help on using the changeset viewer.