DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a97513353⟧ TextFile

    Length: 50122 (0xc3ca)
    Types: TextFile
    Names: »KV.P1«

Derivation

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »KV.D!KV.P1« 

TextFile

«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