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

⟦b936f4f45⟧ TextFile

    Length: 15476 (0x3c74)
    Types: TextFile
    Names: »K.P«

Derivation

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

TextFile

«ff»--------------------------------------------------------------------------------

CR80 ASSEMBLER VERSION 800114

ASSEMBLY OF FILE:  K.I AT  90:12:23 13:55:01

--------------------------------------------------------------------------------



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                                                           ;       
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,1,0,0,0,0,0;       
00000467 0 0066   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 C9:  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   C5,<:<12><0>:>                                           ;       
00000548 1 0071      MOVC 15   R3                                                       ;       
00000549 1 0072 W1:  SOB  R0  LOC                                                       ;       
00000550 1 0073      SOB  R3   W1   ; WAIT 2 SEC                                        ;       
00000551 1 0074      JMP  S4    C9  ; NL                                                ;       
00000552 1 0075      MOVC 80   R2   ; HEADLINE                                          ;       
00000553 1 0076      MOVC 45   R0   ;                                                   ;       
00000554 1 0077 E5:  JMP  S5   C3   ;                                                   ;       
00000555 1 0078      SOB  R2   E5   ; 80 CHAR                                           ;       
00000556 1 0079      JMP  S4    C9  ; NL                                                ;       
00000557 1 007A      JMP  S4    C9  ; NL                                                ;       
00000558 1 007B      MOVC 40   R2   ; PRINT DATE/TIME                                   ;       
00000559 1 007C      MOVC 32   R0   ; PRINT 40 SPACE                                    ;       
00000560 1 007D E7:  JMP  S5   C3   ;                                                   ;       
00000561 1 007E      SOB  R2   E7                                                       ;       
00000562 1 007F      JMP  S4   C5,<:DATE<58> 19<0>:>                                    ;       
00000563 1 0085      MON READRTC    ; GET DATE/TIME                                     ;       
00000564 1 0086      MOV  R0   R3                                                       ;       
00000565 1 0087      MOV  R2   R0                                                       ;       
00000566 1 0088      SWP  R0        ; GET YEAR                                          ;       
00000567 1 0089      JMP  S4   E1   ; PRINT YEAR                                        ;       
00000568 1 008A      MOVC 58   R0                                                       ;       
00000569 1 008B      JMP  S5   C3   ; PRINT :                                           ;       
00000570 1 008C      MOV  R2   R0   ; GET MONTH                                         ;       
00000571 1 008D      JMP  S4   E1                                                       ;       
00000572 1 008E      MOVC 58   R0                                                       ;       
00000573 1 008F      JMP  S5   C3   ; PRINT :                                           ;       
00000574 1 0090      MOV  R1   R0   ; GET DATA                                          ;       
00000575 1 0091      SWP  R0                                                            ;       
00000576 1 0092      JMP  S4   E1                                                       ;       
00000577 1 0093      JMP  S4   C5,<:  TIME<58> <0>:>                                    ;       
00000578 1 0099      MOV  R1   R0   ; GET HOUR                                          ;       
00000579 1 009A      JMP  S4   E1                                                       ;       
00000580 1 009B      MOVC 58   R0                                                       ;       
00000581 1 009C      JMP  S5   C3   ; PRINT :                                           ;       
00000582 1 009D      MOV  R3   R0   ; GET MIN                                           ;       
00000583 1 009E      SWP  R0                                                            ;       
00000584 1 009F      JMP  S4   E1                                                       ;       
00000585 1 00A0      MOVC 58   R0                                                       ;       
00000586 1 00A1      JMP  S5   C3   ; PRINT :                                           ;       
00000587 1 00A2      MOV  R3   R0   ; GET SEC                                           ;       
00000588 1 00A3      JMP  S4   E1                                                       ;       
00000589 1 00A4      JMP  S4    C9  ;                                                   ;       
00000590 1 00A5      JMP  S4    C9  ; 2XNL                                              ;       
00000591 1 00A6      JMP  S4   C5,<:** E-A LTU TEST **<10><13><0>:>                     ;       
00000592 1 00B2      JMP  S4    C9  ; NL                                                ;       
00000593 1 00B3      MOVC 80   R2   ;                                                   ;       
00000594 1 00B4      MOVC 45   R0   ;                                                   ;       
00000595 1 00B5 E6:  JMP  S5   C3   ;                                                   ;       
00000596 1 00B6      SOB  R2   E6   ;                                                   ;       
00000597 1 00B7      JMP  S4    C9  ; NL                                                ;       
00000598 1 00B8      UNS 6                                                              ;       
00000599 1 00B9      JMP  S4    C9  ; INDATA LTU                                        ;       
00000600 1 00BA      JMP  S4   C5,<:INPUTDATA FOR LTU UNDER TEST<0>:>                   ;       
00000601 1 00CA      JMP  S4    C9                                                      ;       
00000602 1 00CB      JMP  S4   C5,<:     SERIAL NO.<58> <0>:>                           ;       
00000603 1 00D5 H1:  JMP  S5   C1   ; TAST SER. NO.                                     ;       
00000604 1 00D6      SEQ  R0   13   ; IF CR THEN NL                                     ;       
00000605 1 00D7      JMP      H1                                                        ;