|
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 - metrics - 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#