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: 2042 (0x7fa) Types: TextFile Names: »LTU.RD«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS ) └─ ⟦this⟧ »LTU.D!LTU.RD«
MOVC #04 R2 ; READ DATA 4 CH# E-A LTU JMP B1 B2: ADDC #40 R1 ; NEXT CH# B1: MOD8 #02 SIO R0 R1 ; READ STATUS SBN R0 2 ; TEST PAR. ERR. SBZ R0 3 ; TEST FRA. ERR. JMPI R6 ERR XTR R0 2 ; CALCULATE MOV R1 R3 ; DATA SRL R3 6 ; BUFFER SLL R3 2 ; ADDRESS ADD R0 R3 ; ADDC #20 R3 ; BASE REL. ADDRESS JON X3 B3 ; IF BUFF NOT EMPTY THEN NEXT CH# MOD8 #04 SIO R0 R1 ; READ RXBUFF XTR R0 8 ; REMOVE LB DATA SBN R0 7 ; TEST DATA READY JMP B3 ; IF NOT READY THEN NEXT CH# MOD8 #01 ADDC #00 R4 ; COUNT DATA BYTES ADD R4 R0 ; JOZ R4 B4 ; FINISH !!! 256 DATA BYTES MOV R0 X3 CIO R0 R4 ; CLEAR RX BUFF. B3: SOB R2 B2 $LTU.TD XTR R1 6 STC 1 MOVC #03 R1 ; I-A LTU #03. MOVC #04 R2 ; READ DATA 4 CH# I-A LTU JMP B5 B6: ADDC #40 R1 ; NEXT CH# B5: MOD8 #02 SIO R0 R1 ; READ STATUS SBN R0 2 ; TEST PAR. ERR. SBZ R0 3 ; TEST FRA. ERR. JMPI R6 ERR XTR R0 2 ; CALCULATE MOV R1 R3 ; DATA SRL R3 6 ; BUFFER SLL R3 2 ; ADDRESS ADD R0 R3 ; ADDC #20 R3 ; BASE REL. ADDRESS JON X3 B7 ; IF BUFF NOT EMPTY THEN NEXT CH# MOD8 #04 SIO R0 R1 ; READ RXBUFF XTR R0 8 ; REMOVE LB DATA SBN R0 7 ; TEST DATA READY JMP B7 ; IF NOT READY THEN NEXT CH# MOD8 #01 ADDC #00 R4 ; COUNT DATA BYTES ADD R4 R0 ; JOZ R4 B4 ; FINISH !!! 256 DATA BYTES MOV R0 X3 CIO R0 R4 ; CLEAR RX BUFF. B7: SOB R2 B6 $LTU.TD UNS ; RELOAD E-A LTU MODUL#