|
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: 15476 (0x3c74)
Types: TextFile
Names: »K.P«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »K.D!K.P«
«ff»-------------------------------------------------------------------------------- CR80 ASSEMBLER VERSION 800114 ASSEMBLY OF FILE: K.I«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul»«nul» 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 ;