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: 50122 (0xc3ca) Types: TextFile Names: »KV.P1«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »KV.D!KV.P1«
«ff»-------------------------------------------------------------------------------- CR80 ASSEMBLER VERSION 800114 ASSEMBLY OF FILE: KV.I1 AT 90:12:09 14:45:14 -------------------------------------------------------------------------------- 00000001 0 0000 LIST ; 00000002 0 0000 BEGIN MODULE ; 00000003 0 0000 USE BASE ; 00000004 0 0000 XPROGRAM= TRUE ; 00000005 0 0000 XDATA= TRUE ; 00000006 0 0000 NOLIST ; 00000044 0 0000 MESSAGE: AMOS SYSTEM NAMES V801121 00000281 0 0000 MESSAGE: X2GEN1 V790827 00000456 0 0023 LIST ; 00000457 0 0023 XPGNAME0= <:LT:> ; 00000458 0 0023 XPGNAME1= <:U.:> ; 00000459 0 0023 XPGNAME2= <:EA:> ; 00000460 0 0023 XVERSION= 1 ; 00000461 0 0023 XPROCESSNAME0= <:LT:> ; 00000462 0 0023 XPROCESSNAME1= <:U.:> ; 00000463 0 0023 XPROCESSNAME2= <:TR:> ; 00000464 0 0023 LOC= #0030+BASE ; 00000465 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 ; 00000466 0 0050 WRK: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 ; 00000467 0 0060 USE PROG ; 00000468 1 0020 C1: MOV R5 #50 ; INCHAR ; 00000469 1 0021 C2: LDM 3 ; 00000470 1 0022 MOVC 1 R5 ; ; 00000471 1 0023 MOVC 55 R0 ; 00000472 1 0024 MOD8 3 ; 00000473 1 0025 CIO R0 R5 ; 00000474 1 0026 MOD8 1 ; ; 00000475 1 0027 SIO R5 R5 ; ; 00000476 1 0028 SBN R5 1 ; ; 00000477 1 0029 JMP C2 ; 00000478 1 002A MOVC 1 R5 ; ; 00000479 1 002B RIO R0 R5 ; ; 00000480 1 002C XTR R0 7 ; ; 00000481 1 002D JMP S5 C3 ; 00000482 1 002E JMPI #50 ; 00000483 1 002F C3: MOV R5 #51 ; OUTCHAR ; 00000484 1 0030 C4: MOVC 1 R5 ; ; 00000485 1 0031 MOD8 1 ; ; 00000486 1 0032 SIO R5 R5 ; ; 00000487 1 0033 SBZP R5 5 ; BREAK? ; 00000488 1 0034 SBZ R5 1 ; IDATA RDY.? ; 00000489 1 0035 MON 9 ; OUT OF PROGR. ; 00000490 1 0036 SBN R5 0 ; ; 00000491 1 0037 JMP C4 ; 00000492 1 0038 MOVC 1 R5 ; ; 00000493 1 0039 MOV R0 R6 ; ; 00000494 1 003A XTR R6 8 ; ; 00000495 1 003B SNE R6 0 ; ; 00000496 1 003C JMPI #51 ; 00000497 1 003D WIO R6 R5 ; ; 00000498 1 003E JMPI #51 ; 00000499 1 003F C5: SVS R6 ; OUTSTRING ; 00000500 1 0040 MOD8 #E0 ; ; 00000501 1 0041 MOVC 0 R0 ; ; 00000502 1 0042 LDS R0 ; ; 00000503 1 0043 MVP 0.X4 R0 ; ; 00000504 1 0044 LDS R6 ; ; 00000505 1 0045 JOZ R0 C6 ; IF "0000" THEN ; 00000506 1 0046 JMP S5 C3 ; ELSE ; 00000507 1 0047 SRL R0 8 ; ; 00000508 1 0048 JOZ R0 C6 ; 00000509 1 0049 JMP S5 C3 ; 00000510 1 004A ADDC 1 R4 ; ; 00000511 1 004B JMP C5 ; 00000512 1 004C C6: JMP 1.X4 ; ; 00000513 1 004D C10: MOV R4 #50 ; NEW LINE ; 00000514 1 004E JMP S4 C5 ; 00000515 1 004F #0A0D ; 00000516 1 0050 #7F7F ; 00000517 1 0051 #0000 ; 00000518 1 0052 JMPI #50 ; 00000519 1 0053 C8: MOV R0 R3 ; HEXOUT ; 00000520 1 0054 MOVC #0023 R0 ; ; 00000521 1 0055 MOVC 5 R2 ; ; 00000522 1 0056 C7: JMP S5 C3 ; 00000523 1 0057 SLC R3 4 ; ; 00000524 1 0058 MOV R3 R0 ; ; 00000525 1 0059 XTR R0 4 ; ; 00000526 1 005A SLO R0 10 ; ; 00000527 1 005B MODC 7 ; ; 00000528 1 005C ADDC 48 R0 ; ; 00000529 1 005D SOB R2 C7 ; LOOP UNTIL 4 HEXOUT ; 00000530 1 005E JMP 0.X4 ; ; 00000531 1 005F E1: MOVC 48 R5 ; ; 00000532 1 0060 MOVC 10 R6 ; ; 00000533 1 0061 XTR R0 7 ; ; 00000534 1 0062 E2: SGEP R0 10 ; N:10 ; 00000535 1 0063 ADDC 48 R0 ; ASCII TAL ; 00000536 1 0064 JMP E3 ; ; 00000537 1 0065 SUB R6 R0 ; R4:=R4-R0 ; 00000538 1 0066 ADDC 1 R5 ; ; 00000539 1 0067 JMP E2 ; ; 00000540 1 0068 E3: SWP R0 ; ; 00000541 1 0069 ADD R5 R0 ; ; 00000542 1 006A JMP S5 C3 ; PRINT MSD ; 00000543 1 006B SWP R0 ; 00000544 1 006C JMP S5 C3 ; PRINT LSD ; 00000545 1 006D JMP 0.X4 ; RETURN ; 00000546 1 006E ST: STC 6 ; PRINT HEADER ; 00000547 1 006F JMP S4 C10 ; NL ; 00000548 1 0070 MOVC 80 R2 ; HEADLINE ; 00000549 1 0071 MOVC 45 R0 ; ; 00000550 1 0072 E5: JMP S5 C3 ; ; 00000551 1 0073 SOB R2 E5 ; 80 CHAR ; 00000552 1 0074 JMP S4 C10 ; NL ; 00000553 1 0075 JMP S4 C10 ; NL ; 00000554 1 0076 MOVC 40 R2 ; PRINT DATE/TIME ; 00000555 1 0077 MOVC 32 R0 ; PRINT 40 SPACE ; 00000556 1 0078 E7: JMP S5 C3 ; ; 00000557 1 0079 SOB R2 E7 ; 00000558 1 007A JMP S4 C5,<:DATE<58> 19<0>:> ; 00000559 1 0080 MON READRTC ; GET DATE/TIME ; 00000560 1 0081 MOV R0 R3 ; 00000561 1 0082 MOV R2 R0 ; 00000562 1 0083 SWP R0 ; GET YEAR ; 00000563 1 0084 JMP S4 E1 ; PRINT YEAR ; 00000564 1 0085 MOVC 58 R0 ; 00000565 1 0086 JMP S5 C3 ; PRINT : ; 00000566 1 0087 MOV R2 R0 ; GET MONTH ; 00000567 1 0088 JMP S4 E1 ; 00000568 1 0089 MOVC 58 R0 ; 00000569 1 008A JMP S5 C3 ; PRINT : ; 00000570 1 008B MOV R1 R0 ; GET DATA ; 00000571 1 008C SWP R0 ; 00000572 1 008D JMP S4 E1 ; 00000573 1 008E JMP S4 C5,<: TIME<58> <0>:> ; 00000574 1 0094 MOV R1 R0 ; GET HOUR ; 00000575 1 0095 JMP S4 E1 ; 00000576 1 0096 MOVC 58 R0 ; 00000577 1 0097 JMP S5 C3 ; PRINT : ; 00000578 1 0098 MOV R3 R0 ; GET MIN ; 00000579 1 0099 SWP R0 ; 00000580 1 009A JMP S4 E1 ; 00000581 1 009B MOVC 58 R0 ; 00000582 1 009C JMP S5 C3 ; PRINT : ; 00000583 1 009D MOV R3 R0 ; GET SEC ; 00000584 1 009E JMP S4 E1 ; 00000585 1 009F JMP S4 C10 ; ; 00000586 1 00A0 JMP S4 C10 ; 2XNL ; 00000587 1 00A1 JMP S4 C5,<:** E-A LTU TEST **<10><13><0>:> ; 00000588 1 00AD JMP S4 C10 ; NL ; 00000589 1 00AE MOVC 80 R2 ; ; 00000590 1 00AF MOVC 45 R0 ; ; 00000591 1 00B0 E6: JMP S5 C3 ; ; 00000592 1 00B1 SOB R2 E6 ; ; 00000593 1 00B2 JMP S4 C10 ; NL ; 00000594 1 00B3 UNS 6 ; 00000595 1 00B4 JMP S4 C10 ; INDATA LTU ; 00000596 1 00B5 JMP S4 C5,<:INPUTDATA FOR LTU UNDER TEST<0>:> ; 00000597 1 00C5 JMP S4 C10 ; 00000598 1 00C6 JMP S4 C5,<: SERIAL NO.<58> <0>:> ; 00000599 1 00D0 H1: JMP S5 C1 ; TAST SER. NO. ; 00000600 1 00D1 SEQ R0 13 ; IF CR THEN NL ; 00000601 1 00D2 JMP H1 ; 00000602 1 00D3 JMP S4 C5,<:<10> MODULADDR<58> #<0>:> ; 00000603 1 00DE H2: JMP S5 C1 ; TAST MODUL # ; 00000604 1 00DF SNE R0 13 ; IF CR THEN NL ; 00000605 1 00E0 JMP H3 ; 00000606 1 00E1 SLL R1 4 ; HEX CALC. ; 00000607 1 00E2 ADDC -48 R0 ; 00000608 1 00E3 SLO R0 10 ; 00000609 1 00E4 ADDC -7 R0 ; 00000610 1 00E5 XTR R0 4 ; 00000611 1 00E6 ADD R0 R1 ; 00000612 1 00E7 JMP H2 ; 00000613 1 00E8 H3: XTR R1 6 ; 00000614 1 00E9 JMP S4 C10 ; 00000615 1 00EA JMP RT ; 00000616 1 00EB F1: MOV R4 #5A ; REG PRINT ROUTINE ; 00000617 1 00EC F2: MOD R7 ; 00000618 1 00ED SIO R0 R1 ; 00000619 1 00EE XTR R0 8 ; REMOVE "FX" ; 00000620 1 00EF JMP S4 C8 ; 00000621 1 00F0 JMP S4 C5,<: <0>:> ; 00000622 1 00F4 ADDC #40 R1 ; 00000623 1 00F5 SBN R1 8 ; 00000624 1 00F6 JMP F2 ; 00000625 1 00F7 XTR R1 6 ; 00000626 1 00F8 SWP R7 ; 00000627 1 00F9 ADDC 1 R7 ; 00000628 1 00FA SWP R7 ; 00000629 1 00FB JMP S4 C10 ; 00000630 1 00FC JMPI #5A ; 00000631 1 00FD F3: MOV R4 #5A ; L-B PRINT ROUTINE ; 00000632 1 00FE F4: MOD8 #10 ; 00000633 1 00FF RIO R0 R1 ; 00000634 1 0100 JMP S4 C8 ; 00000635 1 0101 JMP S4 C5,<: <0>:> ; 00000636 1 0105 ADDC #40 R1 ; 00000637 1 0106 SBN R1 8 ; 00000638 1 0107 JMP F4 ; 00000639 1 0108 XTR R1 6 ; 00000640 1 0109 JMP S4 C10 ; 00000641 1 010A JMPI #5A ; 00000642 1 010B ERR: MOV R0 #52 ; SAVE ALL REG. ; 00000643 1 010C MOV R1 #53 ; 00000644 1 010D MOV R2 #54 ; 00000645 1 010E MOV R3 #55 ; 00000646 1 010F MOV R4 #56 ; 00000647 1 0110 MOV R5 #57 ; 00000648 1 0111 MOV R6 #58 ; 00000649 1 0112 MOV R7 #59 ; 00000650 1 0113 XTR R1 6 ; HALT LTU ; 00000651 1 0114 MOVC 0 R0 ; 00000652 1 0115 MOD8 #60 ; 00000653 1 0116 WIO R0 R1 ; 00000654 1 0117 JMP S4 C5,<:<10><10><13>R0<58>=<0>:> ; 00000655 1 011C MOV #52 R0 ; PRINT ALL REG. ; 00000656 1 011D JMP S4 C8 ; 00000657 1 011E JMP S4 C5,<: R1<58>=<0>:> ; 00000658 1 0122 MOV #53 R0 ; 00000659 1 0123 JMP S4 C8 ; 00000660 1 0124 JMP S4 C5,<: R2<58>=<0>:> ; 00000661 1 0128 MOV #54 R0 ; 00000662 1 0129 JMP S4 C8 ; 00000663 1 012A JMP S4 C5,<: R3<58>=<0>:> ; 00000664 1 012E MOV #55 R0 ; 00000665 1 012F JMP S4 C8 ; 00000666 1 0130 JMP S4 C5,<: R4<58>=<0>:> ; 00000667 1 0134 MOV #56 R0 ; 00000668 1 0135 JMP S4 C8 ; 00000669 1 0136 JMP S4 C5,<: R5<58>=<0>:> ; 00000670 1 013A MOV #57 R0 ; 00000671 1 013B JMP S4 C8 ; 00000672 1 013C JMP S4 C5,<: R6<58>=<0>:> ; 00000673 1 0140 MOV #58 R0 ; 00000674 1 0141 JMP S4 C8 ; 00000675 1 0142 JMP S4 C5,<: R7<58>=<0>:> ; 00000676 1 0147 MOV #59 R0 ; 00000677 1 0148 JMP S4 C8 ; 00000678 1 0149 JMP S4 C10 ; NL ; 00000679 1 014A JMP S4 C10 ; 00000680 1 014B JMP S4 C5,<: RB-RAM: <0>:> ; 00000681 1 0153 JMP S4 C5,<: CH#0 <0>:> ; 00000682 1 015B JMP S4 C5,<: CH#1 <0>:> ; 00000683 1 0163 JMP S4 C5,<: CH#2 <0>:> ; 00000684 1 016B JMP S4 C5,<: CH#3 <10><13><0>:> ; 00000685 1 0174 MOVC #0 R7 ; 00000686 1 0175 JMP S4 C5,<: MODE0 <0>:> ; 00000687 1 017E JMP S4 F1 ; 00000688 1 017F JMP S4 C5,<: MODE1 <0>:> ; 00000689 1 0188 JMP S4 F1 ; 00000690 1 0189 JMP S4 C5,<: STATUS <0>:> ; 00000691 1 0192 JMP S4 F1 ; 00000692 1 0193 JMP S4 C5,<: RP.STA <0>:> ; 00000693 1 019C JMP S4 F1 ; 00000694 1 019D JMP S4 C5,<: RX.BUF <0>:> ; 00000695 1 01A6 JMP S4 F1 ; 00000696 1 01A7 JMP S4 C5,<: CNT.1 <0>:> ; 00000697 1 01B0 JMP S4 F1 ; 00000698 1 01B1 JMP S4 C5,<: CNT.2 <0>:> ; 00000699 1 01BA JMP S4 F1 ; 00000700 1 01BB JMP S4 C5,<: JTABLE <0>:> ; 00000701 1 01C4 JMP S4 F1 ; 00000702 1 01C5 JMP S4 C5,<: TX.BUF <0>:> ; 00000703 1 01CE JMP S4 F1 ; 00000704 1 01CF JMP S4 C5,<: TX.REG <0>:> ; 00000705 1 01D8 JMP S4 F1 ; 00000706 1 01D9 JMP S4 C5,<: RX.REG <0>:> ; 00000707 1 01E2 JMP S4 F1 ; 00000708 1 01E3 JMP S4 C5,<: PRDTX <0>:> ; 00000709 1 01EC JMP S4 F1 ; 00000710 1 01EE JMP S4 C5,<: PRDRX <0>:> ; 00000711 1 01F7 JMP S4 F1 ; 00000712 1 01F9 JMP S4 C5,<: PRDON <0>:> ; 00000713 1 0202 JMP S4 F1 ; 00000714 1 0204 JMP S4 C5,<: PRDLY <0>:> ; 00000715 1 020D JMP S4 F1 ; 00000716 1 020F JMP S4 C5,<: RP.CNT <0>:> ; 00000717 1 0218 JMP S4 F1 ; 00000718 1 021A JMP S4 C5,<: L-BANK <0>:> ; 00000719 1 0223 JMP S4 F3 ; 00000720 1 0225 MOVC 1 R0 ; LTU RUNNING ; 00000721 1 0226 MOD8 #60 ; 00000722 1 0227 WIO R0 R1 ; 00000723 1 0228 JMP S4 C10 ; 00000724 1 022A MOV #59 R7 ; STACKPOINTER RETUR ; 00000725 1 022B NX: JMP S4 C5,<: NEXT(Y)? <0>:> ; 00000726 1 0233 JMP S5 C1 ; INCHAR ; 00000727 1 0235 MODC 89 ; 00000728 1 0236 SEQ R0 0 ; IF Y THEN ; 00000729 1 0237 JMP OT ; 00000730 1 0238 JMP S4 C10 ; 00000731 1 023A JMP ST ; TO START ; 00000732 1 023B OT: JMP S4 C10 ; 00000733 1 023D MON 9 ; 00000734 1 023E RT: JMP S4 C10 ; RAM-TEST ; 00000735 1 0240 JMP S4 C5,<: TEST 1. RAMTEST <0>:> ; 00000736 1 024C MOVC #00 R0 ; START MED RAM 0,F,E,.. ; 00000737 1 024D MOVC #04 R2 ; TEST 4 CHANELS ; 00000738 1 024E MOVC #00 R4 ; TEST + HALT DATA ; 00000739 1 024F MOD8 #60 ; ; 00000740 1 0250 WIO R4 R1 ; CPU HALTED ; 00000741 1 0251 MOVC #04 R3 ; 4 TESTPATTERN ; 00000742 1 0252 JMP L3 ; 00000743 1 0253 L6: ADDC #01 R4 ; TESTPATTERN TO RAM# ; 00000744 1 0254 MOVC #04 R3 ; 4 TESTPATTERN ; 00000745 1 0255 JMP L3 ; 00000746 1 0256 L7: ADDC #55 R4 ; GET NEW TESTPAT. ; 00000747 1 0257 L3: XTR R4 8 ; T-PAT. '00XX' ; 00000748 1 0258 L4: XTR R0 4 ; 0 TO BIT 15-4 ; 00000749 1 0259 SWP R0 ; CORR. RAM# ; 00000750 1 025A MOD R0 ; 00000751 1 025B CIO R4 R1 ; WRITE IN RAM# ; 00000752 1 025C MOD R0 ; 00000753 1 025D SIO R5 R1 ; READ FROM RAM# ; 00000754 1 025E SWP R0 ; 00000755 1 025F XTR R5 8 ; 00000756 1 0260 SUB R4 R5 ; 00000757 1 0261 JOZ R5 L5 ; IF ERROR THEN ; 00000758 1 0262 JMP S6 ERR ; ERROR ; 00000759 1 0264 L5: SOB R0 L4 ; ; 00000760 1 0265 SOB R3 L7 ; 00000761 1 0266 MOVC #50 R3 ; ; 00000762 1 0267 CIO R3 R1 ; RESET CHANNEL ; 00000763 1 0268 ADDC #40 R1 ; NEXT CH# ; 00000764 1 0269 SOB R2 L6 ; 00000765 1 026A XTR R1 6 ; MODULADR FOR CH#0 ; 00000766 1 026B MOVC #01 R4 ; 00000767 1 026C MOD8 #60 ; ; 00000768 1 026D WIO R4 R1 ; CPU RUNNING ; 00000769 1 026E JMP S4 C5,<:** OK **<10><13><0>:> ; 00000770 1 0276 JMP S4 C10 ; INTERN LOOP TEST ; 00000771 1 0278 JMP S4 C5,<: TEST 2. INTERN LOOP TEST <0>:> ; 00000772 1 0289 MOVC #00 R4 ; ; 00000773 1 028A MOD8 #60 ; ; 00000774 1 028B WIO R4 R1 ; CPU HALTED ; 00000775 1 028C MOVC #04 R2 ; ANTAL CH# ; 00000776 1 028D JMP L8 ; 00000777 1 028E L9: ADDC #40 R1 ; NEXT CH# ; 00000778 1 028F L8: MOVC #00 R4 ; DATA:=0 ; 00000779 1 0290 MOD8 #90 ; 00000780 1 0291 WIO R4 R1 ; INT LOOP ON ; 00000781 1 0292 RIO R5 R1 ; READ DATA:= 1 ; 00000782 1 0293 SBZ R5 0 ; TEST BIT-0 (IVB) ; 00000783 1 0294 SBZ R5 8 ; TEST BIT-8 (LB) ; 00000784 1 0295 JMP S6 ERR ; 00000785 1 0297 MOVC 1 R4 ; DATA:=0 ; 00000786 1 0298 MOD8 #10 ; 00000787 1 0299 WIO R4 R1 ; WRITE DATA:=0 ; 00000788 1 029A MOVC 40 R0 ; 00000789 1 029B SOB R0 LOC ; 00000790 1 029C RIO R5 R1 ; READ DATA:= 0 ; 00000791 1 029D SBN R5 0 ; TEST BIT-0 ; 00000792 1 029E SBN R5 8 ; TEST BIT-8 ; 00000793 1 029F JMP S6 ERR ; 00000794 1 02A1 MOVC 0 R4 ; DATA:=1 ; 00000795 1 02A2 MOD8 #10 ; 00000796 1 02A3 WIO R4 R1 ; WRITE DATA:=1 ; 00000797 1 02A4 MOVC 40 R0 ; 00000798 1 02A5 SOB R0 LOC ; 00000799 1 02A6 RIO R5 R1 ; READ DATA:=1 ; 00000800 1 02A7 SBZ R5 0 ; TEST BIT-0 ; 00000801 1 02A8 SBZ R5 8 ; TEST BIT-8 ; 00000802 1 02A9 JMP S6 ERR ; 00000803 1 02AB MOD8 #90 ; 00000804 1 02AC WIO R4 R1 ; INT LOOP OFF ; 00000805 1 02AD SOB R2 L9 ; 00000806 1 02AE XTR R1 6 ; MODUL ADDR = CH# 0 ; 00000807 1 02AF MOVC #01 R4 ; 00000808 1 02B0 MOD8 #60 ; ; 00000809 1 02B1 WIO R4 R1 ; CPU RUNNING ; 00000810 1 02B2 JMP S4 C5,<:** OK **<10><13><0>:> ; 00000811 1 02BA JMP S4 C10 ; TEST STATIC LINES. ; 00000812 1 02BC JMP S4 C5,<: TEST 3. STATIC LINE TEST <0>:> ; 00000813 1 02CD MOD8 #20 ; TEST STATIC LINE SIGNALS ; 00000814 1 02CE MOVC #03 R3 ; I-A LTU#03 ; 00000815 1 02CF MOVC #00 R0 ; RP:= 0 ; 00000816 1 02D0 MOD4 #04 ; 00000817 1 02D1 WIO R0 R3 ; I-A LTU CTS1:=0 ; 00000818 1 02D2 MOVC 50 R2 ; 00000819 1 02D3 SOB R2 LOC ; 00000820 1 02D4 MOVC #04 R2 ; TEST 4 RP-INPUT ; 00000821 1 02D5 JMP A2 ; 00000822 1 02D6 A1: ADDC #40 R1 ; NEXT INPUT ; 00000823 1 02D7 A2: RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000824 1 02D8 SBN R0 1 ; 00000825 1 02D9 SBN R0 9 ; 00000826 1 02DA JMP S6 ERR ; 00000827 1 02DC SOB R2 A1 ; 00000828 1 02DD XTR R1 6 ; 00000829 1 02DE MOVC #01 R0 ; RP:= 1 ; 00000830 1 02DF MOD4 #04 ; 00000831 1 02E0 WIO R0 R3 ; I-A LTU CTS1:=1 ; 00000832 1 02E1 MOVC 50 R2 ; 00000833 1 02E2 SOB R2 LOC ; 00000834 1 02E3 MOVC #04 R2 ; TEST 4 RP-INPUT ; 00000835 1 02E4 JMP A4 ; 00000836 1 02E5 A3: ADDC #40 R1 ; NEXT INPUT ; 00000837 1 02E6 A4: RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000838 1 02E7 SBZ R0 1 ; 00000839 1 02E8 SBZ R0 9 ; 00000840 1 02E9 JMP S6 ERR ; 00000841 1 02EB SOB R2 A3 ; 00000842 1 02EC XTR R1 6 ; 00000843 1 02ED MOVC #00 R0 ; RX:= 0 ; 00000844 1 02EE MOD4 #08 ; 00000845 1 02EF WIO R0 R3 ; I-A LTU CTS2:=0 ; 00000846 1 02F0 MOVC 50 R2 ; 00000847 1 02F1 SOB R2 LOC ; 00000848 1 02F2 MOVC #04 R2 ; TEST 4 RX-INPUT ; 00000849 1 02F3 JMP A6 ; 00000850 1 02F4 A5: ADDC #40 R1 ; NEXT INPUT ; 00000851 1 02F5 A6: RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000852 1 02F6 SBN R0 2 ; 00000853 1 02F7 SBN R0 10 ; 00000854 1 02F8 JMP S6 ERR ; 00000855 1 02FA SOB R2 A5 ; 00000856 1 02FB XTR R1 6 ; 00000857 1 02FC MOVC #01 R0 ; RX:= 1 ; 00000858 1 02FD MOD4 #08 ; 00000859 1 02FE WIO R0 R3 ; I-A LTU CTS2:=1 ; 00000860 1 02FF MOVC 50 R2 ; 00000861 1 0300 SOB R2 LOC ; 00000862 1 0301 MOVC #04 R2 ; TEST 4 RX-INPUT ; 00000863 1 0302 JMP A8 ; 00000864 1 0303 A7: ADDC #40 R1 ; NEXT INPUT ; 00000865 1 0304 A8: RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000866 1 0305 SBZ R0 2 ; 00000867 1 0306 SBZ R0 10 ; 00000868 1 0307 JMP S6 ERR ; 00000869 1 0309 SOB R2 A7 ; 00000870 1 030A XTR R1 6 ; 00000871 1 030B MOVC #00 R0 ; TX:= 0 ; 00000872 1 030C MOD4 #0C ; 00000873 1 030D WIO R0 R3 ; I-A LTU CTS3:=0 ; 00000874 1 030E MOVC 50 R2 ; 00000875 1 030F SOB R2 LOC ; 00000876 1 0310 MOVC #04 R2 ; TEST 4 TX-INPUT ; 00000877 1 0311 JMP A10 ; 00000878 1 0312 A9: ADDC #40 R1 ; NEXT INPUT ; 00000879 1 0313 A10:RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000880 1 0314 SBN R0 3 ; 00000881 1 0315 SBN R0 11 ; 00000882 1 0316 JMP S6 ERR ; 00000883 1 0318 SOB R2 A9 ; 00000884 1 0319 XTR R1 6 ; 00000885 1 031A MOVC #01 R0 ; TX:= 1 ; 00000886 1 031B MOD4 #0C ; 00000887 1 031C WIO R0 R3 ; I-A LTU CTS3:=1 ; 00000888 1 031D MOVC 50 R2 ; 00000889 1 031E SOB R2 LOC ; 00000890 1 031F MOVC #04 R2 ; TEST 4 TX-INPUT ; 00000891 1 0320 JMP A12 ; 00000892 1 0321 A11:ADDC #40 R1 ; NEXT INPUT ; 00000893 1 0322 A12:RIO R0 R1 ; READ E-A LTU LINE INP. ; 00000894 1 0323 SBZ R0 3 ; 00000895 1 0324 SBZ R0 11 ; 00000896 1 0325 JMP S6 ERR ; 00000897 1 0327 SOB R2 A11 ; 00000898 1 0328 XTR R1 6 ; 00000899 1 0329 JMP S4 C5,<:** OK **<10><13><0>:> ; 00000900 1 0331 JMP NX ; NEXT TEST ; 00000901 1 0332 XSTART= ST ; 00000902 1 0332 NOLIST ; 00000915 1 0332 MESSAGE: X2GEN2 V790827 00000957 0 0060 MESSAGE: LOCATION COUNTER CORRUPTED 00000959 0 0060 LIST ; 00000960 0 0060 END ; Z00000 T039F P 0000L 0001 0332 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 235D 0070L 504A 2D48 445E 02C2 285D 295D 284A 2048 0078L 4A5E 02C2 3C5D 4144 4554 203A 3931 0000 0080L 50A6 0BBB 28BB 60BC 265D 3A48 585E 28BB 0088L 2A5D 3A48 5C5E 18BB 60BC 2F5D 505D 2020 0090L 4954 454D 203A 0000 18BB 375D 3A48 695E 0098L 38BB 60BC 3C5D 3A48 6E5E 38BB 405D 535D 00A0L 545D 635D 2A2A 4520 412D 4C20 5554 5420 00A8L 5345 2054 2A2A 0D0A 0000 615D 504A 2D48 00B0L 825E 02C2 665D A9BE 685D 775D 4E49 5550 00B8L 4454 5441 2041 4F46 2052 544C 2055 4E55 00C0L 4544 2052 4554 5453 0000 795D 885D 2020 00C8L 2020 5320 5245 4149 204C 4F4E 3A2E 0020 00D0L B15E 8D7E 0358 955D 200A 2020 2020 4F4D 00D8L 5544 414C 4444 3A52 2320 0000 BF5E 8D7C 00E0L 07D8 94A0 30A8 8A44 07A8 04EC 018A 0A58 00E8L 16EC 9D5D 53D9 5A74 77BD 0996 08EC 9D5D 00F0L B25D 2020 2020 0020 40C9 18F0 0B58 16EC 00F8L 67BC 01CF 67BC AF5D 5AE7 5A74 1056 0997 0100L AE5D C35D 2020 2020 0020 40C9 18F0 0A58 0108L 16EC BD5D 5AE7 5270 5371 5472 5573 5674 0110L 5775 5876 5977 16EC 0048 6056 8997 D95D 0118L 0A0A 520D 3A30 003D 5268 CB5D E05D 5220 0120L 3A31 003D 5368 D15D E65D 5220 3A32 003D 0128L 5468 D75D EC5D 5220 3A33 003D 5568 DD5D 0130L F25D 5220 3A34 003D 5668 E35D F85D 5220 0138L 3A35 003D 5768 E95D FE5D 5220 3A36 003D 0140L 5868 EF5D FE56 FBDD 5220 3A37 003D 5968 0148L F65D FD5D FE5D FE56 F2DD 2020 4252 522D 0150L 4D41 203A 0000 FE56 EADD 2020 4843 3023 0158L 2020 2020 0000 FE56 E2DD 2020 4843 3123 0160L 2020 2020 0000 FE56 DADD 2020 4843 3223 0168L 2020 2020 0000 FE56 D2DD 2020 4843 3323 0170L 2020 2020 0D0A 0000 004F FE56 C8DD 2020 0178L 4F4D 4544 2030 2020 2020 0000 945D FE56 0180L BEDD 2020 4F4D 4544 2031 2020 2020 0000 0188L 9E5D FE56 B4DD 2020 5453 5441 5355 2020 0190L 2020 0000 A85D FE56 AADD 2020 5052 532E 0198L 4154 2020 2020 0000 B25D FE56 A0DD 2020 01A0L 5852 422E 4655 2020 2020 0000 BC5D FE56 01A8L 96DD 2020 4E43 2E54 2031 2020 2020 0000 01B0L C65D FE56 8CDD 2020 4E43 2E54 2032 2020 01B8L 2020 0000 D05D FE56 82DD 2020 544A 4241 01C0L 454C 2020 2020 0000 DA5D FE56 78DD 2020 01C8L 5854 422E 4655 2020 2020 0000 E45D FE56 01D0L 6EDD 2020 5854 522E 4745 2020 2020 0000 01D8L EE5D FE56 64DD 2020 5852 522E 4745 2020 01E0L 2020 0000 F85D FE56 5ADD 2020 5250 5444 01E8L 2058 2020 2020 0000 FE56 FDDD FE56 4FDD 01F0L 2020 5250 5244 2058 2020 2020 0000 FE56 01F8L F2DD FE56 44DD 2020 5250 4F44 204E 2020 0200L 2020 0000 FE56 E7DD FE56 39DD 2020 5250 0208L 4C44 2059 2020 2020 0000 FE56 DCDD FE56 0210L 2EDD 2020 5052 432E 544E 2020 2020 0000 0218L FE56 D1DD FE56 23DD 2020 2D4C 4142 4B4E 0220L 2020 2020 0000 FE56 D8DD 0148 6056 8997 0228L FE56 23DD 596F FE56 12DD 2020 454E 5458 0230L 5928 3F29 0020 FD56 EBDE 59E4 807E 03D8 0238L FE56 13DD CD59 FE56 10DD 09A6 FE56 0DDD 0240L FD56 FDDD 2020 4554 5453 3120 202E 5220 0248L 4D41 4554 5453 0020 0048 044A 004C 6056 0250L C997 044B 04D8 01CC 044B 01D8 55CC 48EC 0258L 04EC 60BC 70BD C996 70BD 5996 60BC 58EC 0260L 458B D2F2 FE56 A7DF 0DC0 10C3 504B B996 0268L 40C9 17C2 16EC 014C 6056 C997 FD56 CFDD 0270L 2A2A 4F20 204B 2A2A 0D0A 0000 FD56 D5DD 0278L FD56 C5DD 2020 4554 5453 3220 202E 4920 0280L 544E 5245 204E 4F4C 504F 5420 5345 2054 0288L 0000 004C 6056 C997 044A 01D8 40C9 004C 0290L 9056 C997 5997 50F2 58B2 FE56 74DF 014C 0298L 1056 C997 2848 01C0 5997 50F0 58B0 FE56 02A0L 6ADF 004C 1056 C997 2848 01C0 5997 50F2 02A8L 58B2 FE56 60DF 9056 C997 20C2 16EC 014C 02B0L 6056 C997 FD56 8BDD 2A2A 4F20 204B 2A2A 02B8L 0D0A 0000 FD56 91DD FD56 81DD 2020 4554 02C0L 5453 3320 202E 5320 4154 4954 2043 494C 02C8L 454E 5420 5345 2054 0000 2056 034B 0048 02D0L 04E5 8B97 324A 01C2 044A 01D8 40C9 0997 02D8L 01F0 09B0 FE56 2FDF 07C2 16EC 0148 04E5 02E0L 8B97 324A 01C2 044A 01D8 40C9 0997 01F2 02E8L 09B2 FE56 20DF 07C2 16EC 0048 08E5 8B97 02F0L 324A 01C2 044A 01D8 40C9 0997 02F0 0AB0 02F8L FE56 11DF 07C2 16EC 0148 08E5 8B97 324A 0300L 01C2 044A 01D8 40C9 0997 02F2 0AB2 FE56 0308L 02DF 07C2 16EC 0048 0CE5 8B97 324A 01C2 0310L 044A 01D8 40C9 0997 03F0 0BB0 FD56 F3DF 0318L 07C2 16EC 0148 0CE5 8B97 324A 01C2 044A 0320L 01D8 40C9 0997 03F2 0BB2 FD56 E4DF 07C2 0328L 16EC FD56 14DD 2A2A 4F20 204B 2A2A 0D0A 0330L 0000 0759 0002 007A 544C 2E55 5254 0000 0338L 0000 0000 0001 0000 007A 0060 0000 0000 0340L 0000 0000 0004 0000 0000 0060 0000 0000 0348L 0000 0000 0000 005F 0000 0000 0000 0000 0350L 0000 0000 0000 0000 0000 0000 0000 006E 0358L 0064 6800 0000 0000 0000 0000 0000 0000 0360L 0000 0000 0000 0000 0000 0000 0000 0000 0368L 0000 0000 0000 0000 0000 0000 0000 0000 0370L 0000 0000 0000 0000 0000 0000 0001 0000 0378L 0000 0000 0000 0000 0000 0000 0002 0000 0380L 0000 0000 0000 0000 0000 0000 0003 0000 0388L 0000 0000 0000 0000 0000 0000 0004 0001 0390L 0002 0003 0004 0005 0006 0007 0008 0009 0398L 000A 000B 000C 000D 000E 000F 0010 S2 MEMORY MAP: AREA 1 0000 AREA 0 0332 1 DIMENSION WARNINGS 53 MODIFIES INSERTED 9 SKIPS PAIR CHANGED 927 WORDS OUTPUT 927 WORDS ASSEMBLED ASSEMBLY OK? I