|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 51540 (0xc954)
Types: TextFile
Names: »KV.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »KV.D!KV.P«
«ff»--------------------------------------------------------------------------------
CR80 ASSEMBLER VERSION 800114
ASSEMBLY OF FILE: KV.I AT 90:12:12 13:26:43
--------------------------------------------------------------------------------
001 0 0000 LIST ;
002 0 0000 BEGIN MODULE ;
003 0 0000 USE BASE ;
004 0 0000 XPROGRAM= TRUE ;
005 0 0000 XDATA= TRUE ;
006 0 0000 NOLIST ;
044 0 0000 MESSAGE: AMOS SYSTEM NAMES V801121
281 0 0000 MESSAGE: X2GEN1 V790827
456 0 0023 LIST ;
457 0 0023 XPGNAME0= <:LT:> ;
458 0 0023 XPGNAME1= <:U.:> ;
459 0 0023 XPGNAME2= <:EA:> ;
460 0 0023 XVERSION= 1 ;
461 0 0023 XPROCESSNAME0= <:LT:> ;
462 0 0023 XPROCESSNAME1= <:U.:> ;
463 0 0023 XPROCESSNAME2= <:TR:> ;
464 0 0023 LOC= #0030+BASE ;
465 0 0030 TEA: 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,4 ;
466 0 0050 WRK: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 ;
467 0 0060 USE PROG ;
468 1 0020 C1: MOV R5 #50 ; INCHAR ;
469 1 0021 C2: LDM 3 ;
470 1 0022 MOVC 1 R5 ; ;
471 1 0023 MOVC 55 R0 ;
472 1 0024 MOD8 3 ;
473 1 0025 CIO R0 R5 ;
474 1 0026 MOD8 1 ; ;
475 1 0027 SIO R5 R5 ; ;
476 1 0028 SBN R5 1 ; ;
477 1 0029 JMP C2 ;
478 1 002A MOVC 1 R5 ; ;
479 1 002B RIO R0 R5 ; ;
480 1 002C XTR R0 7 ; ;
481 1 002D JMP S5 C3 ;
482 1 002E JMPI #50 ;
483 1 002F C3: MOV R5 #51 ; OUTCHAR ;
484 1 0030 C4: MOVC 1 R5 ; ;
485 1 0031 MOD8 1 ; ;
486 1 0032 SIO R5 R5 ; ;
487 1 0033 SBZP R5 5 ; BREAK? ;
488 1 0034 SBZ R5 1 ; IDATA RDY.? ;
489 1 0035 MON 9 ; OUT OF PROGR. ;
490 1 0036 SBN R5 0 ; ;
491 1 0037 JMP C4 ;
492 1 0038 MOVC 1 R5 ; ;
493 1 0039 MOV R0 R6 ; ;
494 1 003A XTR R6 8 ; ;
495 1 003B SNE R6 0 ; ;
496 1 003C JMPI #51 ;
497 1 003D WIO R6 R5 ; ;
498 1 003E JMPI #51 ;
499 1 003F C5: SVS R6 ; OUTSTRING ;
500 1 0040 MOD8 #E0 ; ;
501 1 0041 MOVC 0 R0 ; ;
502 1 0042 LDS R0 ; ;
503 1 0043 MVP 0.X4 R0 ; ;
504 1 0044 LDS R6 ; ;
505 1 0045 JOZ R0 C6 ; IF "0000" THEN ;
506 1 0046 JMP S5 C3 ; ELSE ;
507 1 0047 SRL R0 8 ; ;
508 1 0048 JOZ R0 C6 ;
509 1 0049 JMP S5 C3 ;
510 1 004A ADDC 1 R4 ; ;
511 1 004B JMP C5 ;
512 1 004C C6: JMP 1.X4 ; ;
513 1 004D C10: MOV R4 #50 ; NEW LINE ;
514 1 004E JMP S4 C5 ;
515 1 004F #0A0D ;
516 1 0050 #7F7F ;
517 1 0051 #0000 ;
518 1 0052 JMPI #50 ;
519 1 0053 C8: MOV R0 R3 ; HEXOUT ;
520 1 0054 MOVC #0023 R0 ; ;
521 1 0055 MOVC 5 R2 ; ;
522 1 0056 C7: JMP S5 C3 ;
523 1 0057 SLC R3 4 ; ;
524 1 0058 MOV R3 R0 ; ;
525 1 0059 XTR R0 4 ; ;
526 1 005A SLO R0 10 ; ;
527 1 005B MODC 7 ; ;
528 1 005C ADDC 48 R0 ; ;
529 1 005D SOB R2 C7 ; LOOP UNTIL 4 HEXOUT ;
530 1 005E JMP 0.X4 ; ;
531 1 005F E1: MOVC 48 R5 ; ;
532 1 0060 MOVC 10 R6 ; ;
533 1 0061 XTR R0 7 ; ;
534 1 0062 E2: SGEP R0 10 ; N:10 ;
535 1 0063 ADDC 48 R0 ; ASCII TAL ;
536 1 0064 JMP E3 ; ;
537 1 0065 SUB R6 R0 ; R4:=R4-R0 ;
538 1 0066 ADDC 1 R5 ; ;
539 1 0067 JMP E2 ; ;
540 1 0068 E3: SWP R0 ; ;
541 1 0069 ADD R5 R0 ; ;
542 1 006A JMP S5 C3 ; PRINT MSD ;
543 1 006B SWP R0 ;
544 1 006C JMP S5 C3 ; PRINT LSD ;
545 1 006D JMP 0.X4 ; RETURN ;
546 1 006E ST: STC 6 ; PRINT HEADER ;
547 1 006F JMP S4 C5,<:<12><0>:> ;
548 1 0071 MOVC 251 R3 ;
549 1 0072 W1: SOB R0 LOC ;
550 1 0073 SOB R3 W1 ; WAIT 2 SEC ;
551 1 0074 JMP S4 C10 ; NL ;
552 1 0075 MOVC 80 R2 ; HEADLINE ;
553 1 0076 MOVC 45 R0 ; ;
554 1 0077 E5: JMP S5 C3 ; ;
555 1 0078 SOB R2 E5 ; 80 CHAR ;
556 1 0079 JMP S4 C10 ; NL ;
557 1 007A JMP S4 C10 ; NL ;
558 1 007B MOVC 40 R2 ; PRINT DATE/TIME ;
559 1 007C MOVC 32 R0 ; PRINT 40 SPACE ;
560 1 007D E7: JMP S5 C3 ; ;
561 1 007E SOB R2 E7 ;
562 1 007F JMP S4 C5,<:DATE<58> 19<0>:> ;
563 1 0085 MON READRTC ; GET DATE/TIME ;
564 1 0086 MOV R0 R3 ;
565 1 0087 MOV R2 R0 ;
566 1 0088 SWP R0 ; GET YEAR ;
567 1 0089 JMP S4 E1 ; PRINT YEAR ;
568 1 008A MOVC 58 R0 ;
569 1 008B JMP S5 C3 ; PRINT : ;
570 1 008C MOV R2 R0 ; GET MONTH ;
571 1 008D JMP S4 E1 ;
572 1 008E MOVC 58 R0 ;
573 1 008F JMP S5 C3 ; PRINT : ;
574 1 0090 MOV R1 R0 ; GET DATA ;
575 1 0091 SWP R0 ;
576 1 0092 JMP S4 E1 ;
577 1 0093 JMP S4 C5,<: TIME<58> <0>:> ;
578 1 0099 MOV R1 R0 ; GET HOUR ;
579 1 009A JMP S4 E1 ;
580 1 009B MOVC 58 R0 ;
581 1 009C JMP S5 C3 ; PRINT : ;
582 1 009D MOV R3 R0 ; GET MIN ;
583 1 009E SWP R0 ;
584 1 009F JMP S4 E1 ;
585 1 00A0 MOVC 58 R0 ;
586 1 00A1 JMP S5 C3 ; PRINT : ;
587 1 00A2 MOV R3 R0 ; GET SEC ;
588 1 00A3 JMP S4 E1 ;
589 1 00A4 JMP S4 C10 ; ;
590 1 00A5 JMP S4 C10 ; 2XNL ;
591 1 00A6 JMP S4 C5,<:** E-A LTU TEST **<10><13><0>:> ;
592 1 00B2 JMP S4 C10 ; NL ;
593 1 00B3 MOVC 80 R2 ; ;
594 1 00B4 MOVC 45 R0 ; ;
595 1 00B5 E6: JMP S5 C3 ; ;
596 1 00B6 SOB R2 E6 ; ;
597 1 00B7 JMP S4 C10 ; NL ;
598 1 00B8 UNS 6 ;
599 1 00B9 JMP S4 C10 ; INDATA LTU ;
600 1 00BA JMP S4 C5,<:INPUTDATA FOR LTU UNDER TEST<0>:> ;
601 1 00CA JMP S4 C10 ;
602 1 00CB JMP S4 C5,<: SERIAL NO.<58> <0>:> ;
603 1 00D5 H1: JMP S5 C1 ; TAST SER. NO. ;
604 1 00D6 SEQ R0 13 ; IF CR THEN NL ;
605 1 00D7 JMP H1 ;
606 1 00D8 JMP S4 C5,<:<10> MODULADDR<58> #<0>:> ;
607 1 00E3 H2: JMP S5 C1 ; TAST MODUL # ;
608 1 00E4 SNE R0 13 ; IF CR THEN NL ;
609 1 00E5 JMP H3 ;
610 1 00E6 SLL R1 4 ; HEX CALC. ;
611 1 00E7 ADDC -48 R0 ;
612 1 00E8 SLO R0 10 ;
613 1 00E9 ADDC -7 R0 ;
614 1 00EA XTR R0 4 ;
615 1 00EB ADD R0 R1 ;
616 1 00EC JMP H2 ;
617 1 00ED H3: XTR R1 6 ;
618 1 00EE JMP S4 C10 ;
619 1 00EF JMP RT ;
620 1 00F0 F1: MOV R4 #5A ; REG PRINT ROUTINE ;
621 1 00F1 F2: MOD R7 ;
622 1 00F2 SIO R0 R1 ;
623 1 00F3 XTR R0 8 ; REMOVE "FX" ;
624 1 00F4 JMP S4 C8 ;
625 1 00F5 JMP S4 C5,<: <0>:> ;
626 1 00F9 ADDC #40 R1 ;
627 1 00FA SBN R1 8 ;
628 1 00FB JMP F2 ;
629 1 00FC XTR R1 6 ;
630 1 00FD SWP R7 ;
631 1 00FE ADDC 1 R7 ;
632 1 00FF SWP R7 ;
633 1 0100 JMP S4 C10 ;
634 1 0101 JMPI #5A ;
635 1 0102 F3: MOV R4 #5A ; L-B PRINT ROUTINE ;
636 1 0103 F4: MOD8 #10 ;
637 1 0104 RIO R0 R1 ;
638 1 0105 JMP S4 C8 ;
639 1 0106 JMP S4 C5,<: <0>:> ;
640 1 010A ADDC #40 R1 ;
641 1 010B SBN R1 8 ;
642 1 010C JMP F4 ;
643 1 010D XTR R1 6 ;
644 1 010E JMP S4 C10 ;
645 1 010F JMPI #5A ;
646 1 0110 ERR: MOV R0 #52 ; SAVE ALL REG. ;
647 1 0111 MOV R1 #53 ;
648 1 0112 MOV R2 #54 ;
649 1 0113 MOV R3 #55 ;
650 1 0114 MOV R4 #56 ;
651 1 0115 MOV R5 #57 ;
652 1 0116 MOV R6 #58 ;
653 1 0117 MOV R7 #59 ;
654 1 0118 XTR R1 6 ; HALT LTU ;
655 1 0119 MOVC 0 R0 ;
656 1 011A MOD8 #60 ;
657 1 011B WIO R0 R1 ;
658 1 011C JMP S4 C5,<:<10><10><13>R0<58>=<0>:> ;
659 1 0121 MOV #52 R0 ; PRINT ALL REG. ;
660 1 0122 JMP S4 C8 ;
661 1 0123 JMP S4 C5,<: R1<58>=<0>:> ;
662 1 0127 MOV #53 R0 ;
663 1 0128 JMP S4 C8 ;
664 1 0129 JMP S4 C5,<: R2<58>=<0>:> ;
665 1 012D MOV #54 R0 ;
666 1 012E JMP S4 C8 ;
667 1 012F JMP S4 C5,<: R3<58>=<0>:> ;
668 1 0133 MOV #55 R0 ;
669 1 0134 JMP S4 C8 ;
670 1 0135 JMP S4 C5,<: R4<58>=<0>:> ;
671 1 0139 MOV #56 R0 ;
672 1 013A JMP S4 C8 ;
673 1 013B JMP S4 C5,<: R5<58>=<0>:> ;
674 1 013F MOV #57 R0 ;
675 1 0140 JMP S4 C8 ;
676 1 0141 JMP S4 C5,<: R6<58>=<0>:> ;
677 1 0146 MOV #58 R0 ;
678 1 0147 JMP S4 C8 ;
679 1 0148 JMP S4 C5,<: R7<58>=<0>:> ;
680 1 014D MOV #59 R0 ;
681 1 014E JMP S4 C8 ;
682 1 014F JMP S4 C10 ; NL ;
683 1 0151 JMP S4 C10 ;
684 1 0153 JMP S4 C5,<: RB-RAM: <0>:> ;
685 1 015B JMP S4 C5,<: CH#0 <0>:> ;
686 1 0163 JMP S4 C5,<: CH#1 <0>:> ;
687 1 016B JMP S4 C5,<: CH#2 <0>:> ;
688 1 0173 JMP S4 C5,<: CH#3 <10><13><0>:> ;
689 1 017C MOVC #0 R7 ;
690 1 017D JMP S4 C5,<: MODE0 <0>:> ;
691 1 0186 JMP S4 F1 ;
692 1 0187 JMP S4 C5,<: MODE1 <0>:> ;
693 1 0190 JMP S4 F1 ;
694 1 0191 JMP S4 C5,<: STATUS <0>:> ;
695 1 019A JMP S4 F1 ;
696 1 019B JMP S4 C5,<: RP.STA <0>:> ;
697 1 01A4 JMP S4 F1 ;
698 1 01A5 JMP S4 C5,<: RX.BUF <0>:> ;
699 1 01AE JMP S4 F1 ;
700 1 01AF JMP S4 C5,<: CNT.1 <0>:> ;
701 1 01B8 JMP S4 F1 ;
702 1 01B9 JMP S4 C5,<: CNT.2 <0>:> ;
703 1 01C2 JMP S4 F1 ;
704 1 01C3 JMP S4 C5,<: JTABLE <0>:> ;
705 1 01CC JMP S4 F1 ;
706 1 01CD JMP S4 C5,<: TX.BUF <0>:> ;
707 1 01D6 JMP S4 F1 ;
708 1 01D7 JMP S4 C5,<: TX.REG <0>:> ;
709 1 01E0 JMP S4 F1 ;
710 1 01E1 JMP S4 C5,<: RX.REG <0>:> ;
711 1 01EA JMP S4 F1 ;
712 1 01EB JMP S4 C5,<: PRDTX <0>:> ;
713 1 01F4 JMP S4 F1 ;
714 1 01F6 JMP S4 C5,<: PRDRX <0>:> ;
715 1 01FF JMP S4 F1 ;
716 1 0201 JMP S4 C5,<: PRDON <0>:> ;
717 1 020A JMP S4 F1 ;
718 1 020C JMP S4 C5,<: PRDLY <0>:> ;
719 1 0215 JMP S4 F1 ;
720 1 0217 JMP S4 C5,<: RP.CNT <0>:> ;
721 1 0220 JMP S4 F1 ;
722 1 0222 JMP S4 C5,<: L-BANK <0>:> ;
723 1 022B JMP S4 F3 ;
724 1 022D MOVC 1 R0 ; LTU RUNNING ;
725 1 022E MOD8 #60 ;
726 1 022F WIO R0 R1 ;
727 1 0230 JMP S4 C10 ;
728 1 0232 MOV #59 R7 ; STACKPOINTER RETUR ;
729 1 0233 NX: JMP S4 C5,<: NEXT(Y)? <0>:> ;
730 1 023B JMP S5 C1 ; INCHAR ;
731 1 023D MODC 89 ;
732 1 023E SEQ R0 0 ; IF Y THEN ;
733 1 023F JMP OT ;
734 1 0240 JMP S4 C10 ;
735 1 0242 JMP ST ; TO START ;
736 1 0243 OT: JMP S4 C10 ;
737 1 0245 MON 9 ;
738 1 0246 RT: JMP S4 C10 ; RAM-TEST ;
739 1 0248 JMP S4 C5,<: TEST 1. RAMTEST <0>:> ;
740 1 0254 MOVC #00 R0 ; START MED RAM 0,F,E,.. ;
741 1 0255 MOVC #04 R2 ; TEST 4 CHANELS ;
742 1 0256 MOVC #00 R4 ; TEST + HALT DATA ;
743 1 0257 MOD8 #60 ; ;
744 1 0258 WIO R4 R1 ; CPU HALTED ;
745 1 0259 MOVC #04 R3 ; 4 TESTPATTERN ;
746 1 025A JMP L3 ;
747 1 025B L6: ADDC #01 R4 ; TESTPATTERN TO RAM# ;
748 1 025C MOVC #04 R3 ; 4 TESTPATTERN ;
749 1 025D JMP L3 ;
750 1 025E L7: ADDC #55 R4 ; GET NEW TESTPAT. ;
751 1 025F L3: XTR R4 8 ; T-PAT. '00XX' ;
752 1 0260 L4: XTR R0 4 ; 0 TO BIT 15-4 ;
753 1 0261 SWP R0 ; CORR. RAM# ;
754 1 0262 MOD R0 ;
755 1 0263 CIO R4 R1 ; WRITE IN RAM# ;
756 1 0264 MOD R0 ;
757 1 0265 SIO R5 R1 ; READ FROM RAM# ;
758 1 0266 SWP R0 ;
759 1 0267 XTR R5 8 ;
760 1 0268 SUB R4 R5 ;
761 1 0269 JOZ R5 L5 ; IF ERROR THEN ;
762 1 026A JMP S6 ERR ; ERROR ;
763 1 026C L5: SOB R0 L4 ; ;
764 1 026D SOB R3 L7 ;
765 1 026E MOVC #50 R3 ; ;
766 1 026F CIO R3 R1 ; RESET CHANNEL ;
767 1 0270 ADDC #40 R1 ; NEXT CH# ;
768 1 0271 SOB R2 L6 ;
769 1 0272 XTR R1 6 ; MODULADR FOR CH#0 ;
770 1 0273 MOVC #01 R4 ;
771 1 0274 MOD8 #60 ; ;
772 1 0275 WIO R4 R1 ; CPU RUNNING ;
773 1 0276 JMP S4 C5,<:** OK **<10><13><0>:> ;
774 1 027E JMP S4 C10 ; INTERN LOOP TEST ;
775 1 0280 JMP S4 C5,<: TEST 2. INTERN LOOP TEST <0>:> ;
776 1 0291 MOVC #00 R4 ; ;
777 1 0292 MOD8 #60 ; ;
778 1 0293 WIO R4 R1 ; CPU HALTED ;
779 1 0294 MOVC #04 R2 ; ANTAL CH# ;
780 1 0295 JMP L8 ;
781 1 0296 L9: ADDC #40 R1 ; NEXT CH# ;
782 1 0297 L8: MOVC #00 R4 ; DATA:=0 ;
783 1 0298 MOD8 #90 ;
784 1 0299 WIO R4 R1 ; INT LOOP ON ;
785 1 029A RIO R5 R1 ; READ DATA:= 1 ;
786 1 029B SBZ R5 0 ; TEST BIT-0 (IVB) ;
787 1 029C SBZ R5 8 ; TEST BIT-8 (LB) ;
788 1 029D JMP S6 ERR ;
789 1 029F MOVC 0 R4 ; DATA:=0 ;
790 1 02A0 MOD8 #10 ;
791 1 02A1 WIO R4 R1 ; WRITE DATA:=0 ;
792 1 02A2 MOVC 40 R0 ;
793 1 02A3 SOB R0 LOC ;
794 1 02A4 RIO R5 R1 ; READ DATA:= 0 ;
795 1 02A5 SBN R5 0 ; TEST BIT-0 ;
796 1 02A6 SBN R5 8 ; TEST BIT-8 ;
797 1 02A7 JMP S6 ERR ;
798 1 02A9 MOVC 1 R4 ; DATA:=1 ;
799 1 02AA MOD8 #10 ;
800 1 02AB WIO R4 R1 ; WRITE DATA:=1 ;
801 1 02AC MOVC 40 R0 ;
802 1 02AD SOB R0 LOC ;
803 1 02AE RIO R5 R1 ; READ DATA:=1 ;
804 1 02AF SBZ R5 0 ; TEST BIT-0 ;
805 1 02B0 SBZ R5 8 ; TEST BIT-8 ;
806 1 02B1 JMP S6 ERR ;
807 1 02B3 MOD8 #90 ;
808 1 02B4 WIO R4 R1 ; INT LOOP OFF ;
809 1 02B5 SOB R2 L9 ;
810 1 02B6 XTR R1 6 ; MODUL ADDR = CH# 0 ;
811 1 02B7 MOVC #01 R4 ;
812 1 02B8 MOD8 #60 ; ;
813 1 02B9 WIO R4 R1 ; CPU RUNNING ;
814 1 02BA JMP S4 C5,<:** OK **<10><13><0>:> ;
815 1 02C2 JMP S4 C10 ; TEST STATIC LINES. ;
816 1 02C4 JMP S4 C5,<: TEST 3. STATIC LINE TEST <0>:> ;
817 1 02D5 MOD8 #20 ; TEST STATIC LINE SIGNALS ;
818 1 02D6 MOVC #03 R3 ; I-A LTU#03 ;
819 1 02D7 MOVC #00 R0 ; RP:= 0 ;
820 1 02D8 MOD4 #04 ;
821 1 02D9 WIO R0 R3 ; I-A LTU CTS1:=0 ;
822 1 02DA MOVC 50 R2 ;
823 1 02DB SOB R2 LOC ;
824 1 02DC MOVC #04 R2 ; TEST 4 RP-INPUT ;
825 1 02DD JMP A2 ;
826 1 02DE A1: ADDC #40 R1 ; NEXT INPUT ;
827 1 02DF A2: RIO R0 R1 ; READ E-A LTU LINE INP. ;
828 1 02E0 SBN R0 1 ;
829 1 02E1 SBN R0 9 ;
830 1 02E2 JMP S6 ERR ;
831 1 02E4 SOB R2 A1 ;
832 1 02E5 XTR R1 6 ;
833 1 02E6 MOVC #01 R0 ; RP:= 1 ;
834 1 02E7 MOD4 #04 ;
835 1 02E8 WIO R0 R3 ; I-A LTU CTS1:=1 ;
836 1 02E9 MOVC 50 R2 ;
837 1 02EA SOB R2 LOC ;
838 1 02EB MOVC #04 R2 ; TEST 4 RP-INPUT ;
839 1 02EC JMP A4 ;
840 1 02ED A3: ADDC #40 R1 ; NEXT INPUT ;
841 1 02EE A4: RIO R0 R1 ; READ E-A LTU LINE INP. ;
842 1 02EF SBZ R0 1 ;
843 1 02F0 SBZ R0 9 ;
844 1 02F1 JMP S6 ERR ;
845 1 02F3 SOB R2 A3 ;
846 1 02F4 XTR R1 6 ;
847 1 02F5 MOVC #00 R0 ; RX:= 0 ;
848 1 02F6 MOD4 #08 ;
849 1 02F7 WIO R0 R3 ; I-A LTU CTS2:=0 ;
850 1 02F8 MOVC 50 R2 ;
851 1 02F9 SOB R2 LOC ;
852 1 02FA MOVC #04 R2 ; TEST 4 RX-INPUT ;
853 1 02FB JMP A6 ;
854 1 02FC A5: ADDC #40 R1 ; NEXT INPUT ;
855 1 02FD A6: RIO R0 R1 ; READ E-A LTU LINE INP. ;
856 1 02FE SBN R0 2 ;
857 1 02FF SBN R0 10 ;
858 1 0300 JMP S6 ERR ;
859 1 0302 SOB R2 A5 ;
860 1 0303 XTR R1 6 ;
861 1 0304 MOVC #01 R0 ; RX:= 1 ;
862 1 0305 MOD4 #08 ;
863 1 0306 WIO R0 R3 ; I-A LTU CTS2:=1 ;
864 1 0307 MOVC 50 R2 ;
865 1 0308 SOB R2 LOC ;
866 1 0309 MOVC #04 R2 ; TEST 4 RX-INPUT ;
867 1 030A JMP A8 ;
868 1 030B A7: ADDC #40 R1 ; NEXT INPUT ;
869 1 030C A8: RIO R0 R1 ; READ E-A LTU LINE INP. ;
870 1 030D SBZ R0 2 ;
871 1 030E SBZ R0 10 ;
872 1 030F JMP S6 ERR ;
873 1 0311 SOB R2 A7 ;
874 1 0312 XTR R1 6 ;
875 1 0313 MOVC #00 R0 ; TX:= 0 ;
876 1 0314 MOD4 #0C ;
877 1 0315 WIO R0 R3 ; I-A LTU CTS3:=0 ;
878 1 0316 MOVC 50 R2 ;
879 1 0317 SOB R2 LOC ;
880 1 0318 MOVC #04 R2 ; TEST 4 TX-INPUT ;
881 1 0319 JMP A10 ;
882 1 031A A9: ADDC #40 R1 ; NEXT INPUT ;
883 1 031B A10:RIO R0 R1 ; READ E-A LTU LINE INP. ;
884 1 031C SBN R0 3 ;
885 1 031D SBN R0 11 ;
886 1 031E JMP S6 ERR ;
887 1 0320 SOB R2 A9 ;
888 1 0321 XTR R1 6 ;
889 1 0322 MOVC #01 R0 ; TX:= 1 ;
890 1 0323 MOD4 #0C ;
891 1 0324 WIO R0 R3 ; I-A LTU CTS3:=1 ;
892 1 0325 MOVC 50 R2 ;
893 1 0326 SOB R2 LOC ;
894 1 0327 MOVC #04 R2 ; TEST 4 TX-INPUT ;
895 1 0328 JMP A12 ;
896 1 0329 A11:ADDC #40 R1 ; NEXT INPUT ;
897 1 032A A12:RIO R0 R1 ; READ E-A LTU LINE INP. ;
898 1 032B SBZ R0 3 ;
899 1 032C SBZ R0 11 ;
900 1 032D JMP S6 ERR ;
901 1 032F SOB R2 A11 ;
902 1 0330 XTR R1 6 ;
903 1 0331 JMP S4 C5,<:** OK **<10><13><0>:> ;
904 1 0339 JMP S4 C10 ; EXT LINE TEST ;
905 1 033B JMP S4 C5,<: TEST 4. EXT. LINE TEST <0>:> ;
906 1 034B MOVC #03 R3 ; I-A LTU #3 ;
907 1 034C MOVC 0 R4 ; ;
908 1 034D MOD8 #60 ;
909 1 034E WIO R4 R1 ; CPU HALTED E-A LTU ;
910 1 034F MOD8 #60 ;
911 1 0350 WIO R4 R3 ; CPU HALTED I-A LTU ;
912 1 0351 MOVC 4 R2 ; ANTAL CH# ;
913 1 0352 JMP T1 ;
914 1 0353 T2: ADDC #40 R1 ; NEXT CH# ;
915 1 0354 ADDC #40 R3 ;
916 1 0355 T1: MOVC 0 R4 ; DATA:=0 ;
917 1 0356 MOD8 #10 ;
918 1 0357 WIO R4 R1 ; WRITE LOCAL ;
919 1 0358 MOVC 250 R5 ;
920 1 0359 SOB R5 LOC ;
921 1 035A RIO R0 R3 ; READ REMOTE ;
922 1 035B MOD8 #10 ;
923 1 035C WIO R0 R3 ; WRITE REMOTE ;
924 1 035D MOVC 249 R5 ;
925 1 035E SOB R5 LOC ;
926 1 035F RIO R5 R1 ; READ LOCAL ;
927 1 0360 SBZ R5 0 ; DATA=0? ;
928 1 0361 JMP S6 ERR ; TO ERROR ;
929 1 0363 MOVC 1 R4 ; DATA:=1 ;
930 1 0364 MOD8 #10 ;
931 1 0365 WIO R4 R1 ; WRITE LOCAL ;
932 1 0366 MOVC 250 R5 ;
933 1 0367 SOB R5 LOC ;
934 1 0368 RIO R0 R3 ; READ REMOTE ;
935 1 0369 MOD8 #10 ;
936 1 036A WIO R0 R3 ; WRITE REMOTE ;
937 1 036B MOVC 249 R5 ;
938 1 036C SOB R5 LOC ;
939 1 036D RIO R5 R1 ; READ LOCAL ;
940 1 036E SBN R5 0 ; DATA=1? ;
941 1 036F JMP S6 ERR ; TO ERROR ;
942 1 0371 MOVC 0 R4 ; DATA:=0 ;
943 1 0372 MOD8 #10 ;
944 1 0373 WIO R4 R1 ; WRITE LOCAL ;
945 1 0374 MOVC 250 R5 ;
946 1 0375 SOB R5 LOC ;
947 1 0376 RIO R0 R3 ; READ REMOTE ;
948 1 0377 MOD8 #10 ;
949 1 0378 WIO R0 R3 ; WRITE REMOTE ;
950 1 0379 MOVC 249 R5 ;
951 1 037A SOB R5 LOC ;
952 1 037B RIO R5 R1 ; READ LOCAL ;
953 1 037C SBZ R5 0 ; DATA=0? ;
954 1 037D JMP S6 ERR ; TO ERROR ;
955 1 037F MOVC 1 R4 ; DATA:=1 ;
956 1 0380 MOD8 #10 ;
957 1 0381 WIO R4 R1 ; WRITE LOCAL ;
958 1 0382 MOVC 250 R5 ;
959 1 0383 SOB R5 LOC ;
960 1 0384 RIO R0 R3 ; READ REMOTE ;
961 1 0385 MOD8 #10 ;
962 1 0386 WIO R0 R3 ; WRITE REMOTE ;
963 1 0387 MOVC 249 R5 ;
964 1 0388 SOB R5 LOC ;
965 1 0389 RIO R5 R1 ; READ LOCAL ;
966 1 038A SBN R5 0 ; DATA=1? ;
967 1 038B JMP S6 ERR ; TO ERROR ;
968 1 038D SOB R2 T2 ;
969 1 038E XTR R1 6 ;
970 1 038F MOVC 1 R4 ;
971 1 0390 MOD8 #60 ;
972 1 0391 WIO R4 R1 ; CPU RUNNNING ;
973 1 0392 JMP S4 C5,<:** OK **<10><13><0>:> ;
974 1 039A JMP ERR ; NEXT TEST ;
975 1 039B XSTART= ST ;
976 1 039B NOLIST ;
989 1 039B MESSAGE: X2GEN2 V790827
00001031 0 0060 MESSAGE: LOCATION COUNTER CORRUPTED
00001033 0 0060 LIST ;
00001034 0 0060 END ;
Z00000 T0408
P
0000L 0001 039B 544C 2E55 4145 0001 0000 006E
0008L 0000 0000 0000 0000 0000 0000 0000 0000
0010L 0000 0000 0000 0000 0000 0000 0000 0000
0018L 0000 0000 0000 0000 0000 0000 0000 0000
0020L 5075 D3BE 014D 3748 0356 8D96 0156 5D96
0028L 51F0 0958 014D 0D97 07EC 01DE 50E7 5175
0030L 014D 0156 5D96 55B2 51F2 09A6 50F0 0858
0038L 014D 0EBB 68EC E07C 51E7 ED97 51E7 D6BC
0040L E056 0048 E0BC 0020 E6BC 86F2 185E 8824
0048L 83F2 1B5E 01CC 0D58 01BF 5074 105D 0A0D
0050L 7F7F 0000 50E7 0BBB 2348 054A 285E B4A2
0058L 38BB 04EC 8A44 07E4 30C8 08C2 00BF 304D
0060L 0A4E 07EC 8A02 30C8 03D8 608B 01CD 0658
0068L 60BC 508A 3C5E 60BC 3E5E 00BF E9BE 315D
0070L 000C FB4B 01C0 02C3 285D 504A 2D48 495E
0078L 02C2 2D5D 2E5D 284A 2048 4F5E 02C2 415D
0080L 4144 4554 203A 3931 0000 50A6 0BBB 28BB
0088L 60BC 2B5D 3A48 5D5E 28BB 2F5D 3A48 615E
0090L 18BB 60BC 345D 555D 2020 4954 454D 203A
0098L 0000 18BB 3C5D 3A48 6E5E 38BB 60BC 415D
00A0L 3A48 735E 38BB 455D 585D 595D 685D 2A2A
00A8L 4520 412D 4C20 5554 5420 5345 2054 2A2A
00B0L 0D0A 0000 665D 504A 2D48 875E 02C2 6B5D
00B8L A9BE 6D5D 7C5D 4E49 5550 4454 5441 2041
00C0L 4F46 2052 544C 2055 4E55 4544 2052 4554
00C8L 5453 0000 7E5D 8D5D 2020 2020 5320 5245
00D0L 4149 204C 4F4E 3A2E 0020 B65E 8D7E 0358
00D8L 9A5D 200A 2020 2020 4F4D 5544 414C 4444
00E0L 3A52 2320 0000 C45E 8D7C 07D8 94A0 30A8
00E8L 8A44 07A8 04EC 018A 0A58 16EC A25D 56D9
00F0L 5A74 77BD 0996 08EC A25D B75D 2020 2020
00F8L 0020 40C9 18F0 0B58 16EC 67BC 01CF 67BC
0100L B45D 5AE7 5A74 1056 0997 B35D C85D 2020
0108L 2020 0020 40C9 18F0 0A58 16EC C25D 5AE7
0110L 5270 5371 5472 5573 5674 5775 5876 5977
0118L 16EC 0048 6056 8997 DE5D 0A0A 520D 3A30
0120L 003D 5268 D05D E55D 5220 3A31 003D 5368
0128L D65D EB5D 5220 3A32 003D 5468 DC5D F15D
0130L 5220 3A33 003D 5568 E25D F75D 5220 3A34
0138L 003D 5668 E85D FD5D 5220 3A35 003D 5768
0140L EE5D FE56 FCDD 5220 3A36 003D 5868 F55D
0148L FE56 F5DD 5220 3A37 003D 5968 FC5D FE56
0150L FCDD FE56 FADD FE56 EADD 2020 4252 522D
0158L 4D41 203A 0000 FE56 E2DD 2020 4843 3023
0160L 2020 2020 0000 FE56 DADD 2020 4843 3123
0168L 2020 2020 0000 FE56 D2DD 2020 4843 3223
0170L 2020 2020 0000 FE56 CADD 2020 4843 3323
0178L 2020 2020 0D0A 0000 004F FE56 C0DD 2020
0180L 4F4D 4544 2030 2020 2020 0000 975D FE56
0188L B6DD 2020 4F4D 4544 2031 2020 2020 0000
0190L A15D FE56 ACDD 2020 5453 5441 5355 2020
0198L 2020 0000 AB5D FE56 A2DD 2020 5052 532E
01A0L 4154 2020 2020 0000 B55D FE56 98DD 2020
01A8L 5852 422E 4655 2020 2020 0000 BF5D FE56
01B0L 8EDD 2020 4E43 2E54 2031 2020 2020 0000
01B8L C95D FE56 84DD 2020 4E43 2E54 2032 2020
01C0L 2020 0000 D35D FE56 7ADD 2020 544A 4241
01C8L 454C 2020 2020 0000 DD5D FE56 70DD 2020
01D0L 5854 422E 4655 2020 2020 0000 E75D FE56
01D8L 66DD 2020 5854 522E 4745 2020 2020 0000
01E0L F15D FE56 5CDD 2020 5852 522E 4745 2020
01E8L 2020 0000 FB5D FE56 52DD 2020 5250 5444
01F0L 2058 2020 2020 0000 FE56 FADD FE56 47DD
01F8L 2020 5250 5244 2058 2020 2020 0000 FE56
0200L EFDD FE56 3CDD 2020 5250 4F44 204E 2020
0208L 2020 0000 FE56 E4DD FE56 31DD 2020 5250
0210L 4C44 2059 2020 2020 0000 FE56 D9DD FE56
0218L 26DD 2020 5052 432E 544E 2020 2020 0000
0220L FE56 CEDD FE56 1BDD 2020 2D4C 4142 4B4E
0228L 2020 2020 0000 FE56 D5DD 0148 6056 8997
0230L FE56 1BDD 596F FE56 0ADD 2020 454E 5458
0238L 5928 3F29 0020 FD56 E3DE 59E4 807E 03D8
0240L FE56 0BDD D559 FE56 08DD 09A6 FE56 05DD
0248L FD56 F5DD 2020 4554 5453 3120 202E 5220
0250L 4D41 4554 5453 0020 0048 044A 004C 6056
0258L C997 044B 04D8 01CC 044B 01D8 55CC 48EC
0260L 04EC 60BC 70BD C996 70BD 5996 60BC 58EC
0268L 458B D2F2 FE56 A4DF 0DC0 10C3 504B B996
0270L 40C9 17C2 16EC 014C 6056 C997 FD56 C7DD
0278L 2A2A 4F20 204B 2A2A 0D0A 0000 FD56 CDDD
0280L FD56 BDDD 2020 4554 5453 3220 202E 4920
0288L 544E 5245 204E 4F4C 504F 5420 5345 2054
0290L 0000 004C 6056 C997 044A 01D8 40C9 004C
0298L 9056 C997 5997 50F2 58B2 FE56 71DF 004C
02A0L 1056 C997 2848 01C0 5997 50F0 58B0 FE56
02A8L 67DF 014C 1056 C997 2848 01C0 5997 50F2
02B0L 58B2 FE56 5DDF 9056 C997 20C2 16EC 014C
02B8L 6056 C997 FD56 83DD 2A2A 4F20 204B 2A2A
02C0L 0D0A 0000 FD56 89DD FD56 79DD 2020 4554
02C8L 5453 3320 202E 5320 4154 4954 2043 494C
02D0L 454E 5420 5345 2054 0000 2056 034B 0048
02D8L 04E5 8B97 324A 01C2 044A 01D8 40C9 0997
02E0L 01F0 09B0 FE56 2CDF 07C2 16EC 0148 04E5
02E8L 8B97 324A 01C2 044A 01D8 40C9 0997 01F2
02F0L 09B2 FE56 1DDF 07C2 16EC 0048 08E5 8B97
02F8L 324A 01C2 044A 01D8 40C9 0997 02F0 0AB0
0300L FE56 0EDF 07C2 16EC 0148 08E5 8B97 324A
0308L 01C2 044A 01D8 40C9 0997 02F2 0AB2 FD56
0310L FFDF 07C2 16EC 0048 0CE5 8B97 324A 01C2
0318L 044A 01D8 40C9 0997 03F0 0BB0 FD56 F0DF
0320L 07C2 16EC 0148 0CE5 8B97 324A 01C2 044A
0328L 01D8 40C9 0997 03F2 0BB2 FD56 E1DF 07C2
0330L 16EC FD56 0CDD 2A2A 4F20 204B 2A2A 0D0A
0338L 0000 FD56 12DD FD56 02DD 2020 4554 5453
0340L 3420 202E 4520 5458 202E 494C 454E 5420
0348L 5345 2054 0000 034B 004C 6056 C997 6056
0350L CB97 044A 02D8 40C9 40CB 004C 1056 C997
0358L FA4D 01C5 0B97 1056 8B97 F94D 01C5 5997
0360L 50B2 FD56 ADDF 014C 1056 C997 FA4D 01C5
0368L 0B97 1056 8B97 F94D 01C5 5997 50B0 FD56
0370L 9FDF 004C 1056 C997 FA4D 01C5 0B97 1056
0378L 8B97 F94D 01C5 5997 50B2 FD56 91DF 014C
0380L 1056 C997 FA4D 01C5 0B97 1056 8B97 F94D
0388L 01C5 5997 50B0 FD56 83DF 3BC2 16EC 014C
0390L 6056 C997 FC56 ABDD 2A2A 4F20 204B 2A2A
0398L 0D0A 0000 8B5A 0002 007A 544C 2E55 5254
03A0L 0000 0000 0000 0001 0000 007A 0060 0000
03A8L 0000 0000 0000 0004 0000 0000 0060 0000
03B0L 0000 0000 0000 0000 005F 0000 0000 0000
03B8L 0000 0000 0000 0000 0000 0000 0000 0000
03C0L 006E 0064 6800 0000 0000 0000 0000 0000
03C8L 0000 0000 0000 0000 0000 0000 0000 0000
03D0L 0000 0000 0000 0000 0000 0000 0000 0000
03D8L 0000 0000 0000 0000 0000 0000 0000 0001
03E0L 0000 0000 0000 0000 0000 0000 0000 0002
03E8L 0000 0000 0000 0000 0000 0000 0000 0003
03F0L 0000 0000 0000 0000 0000 0000 0000 0004
03F8L 0001 0002 0003 0004 0005 0006 0007 0008
0400L 0009 000A 000B 000C 000D 000E 000F 0010
S3
MEMORY MAP:
AREA 1 0000
AREA 0 039B
1 DIMENSION WARNINGS
63 MODIFIES INSERTED
13 SKIPS PAIR CHANGED
1032 WORDS OUTPUT
1032 WORDS ASSEMBLED
ASSEMBLY OK? A