|
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: 1558 (0x616)
Types: TextFile
Names: »MS2020.S«, »~ORPHAN_0x0035«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0035«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2020.S«
MESSAGE <:MS2020.S V810311:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2020
; READ NEXT ANO.
;
; REGISTERS CALL EXIT
; R0 - ANO
; R4 LINK DEST
; R6 REF(IOCB) REF(IOCB)
; R1,R2,R7 - DEST
; R3,R5 - UNCH
;
; INPUT: IOCB DATA
; OUTPUT: IOCB DATA
; EXIT TO: LINK+0 (FILE EMPTY)
; LINK+1 (OK)
;-----------------------------------------------------------------------
MS2020: ; READ NEXT ANO:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOBNX. X6 R1 ; GET BLOCK INDEX
MOD IOBLT. X6 ; PROVIDE BLOCK LENGTH
SEQ R1 0 ; IF BLOCK COMPLETED
JMP MS2028 ; THEN BEGIN READ FILE
JMPI S4 MI1000 ; READ BLOCK
JMPI & RL2000 ; FILE EMPTY - EXIT0
MS2028: ; END READ FILE
MOV IOBNX. X6 R4 ; GET BUFFER INDEX
SRL R4 1 ; CALCULATE WORD OFFSET
ADD IOBUF. X6 R4 ; CALCULATE WORD ADDRESS
MOV X4 R0 ; READ ANO
INC IOBNX. X6 ; INCREMENT INDECX
INC IOBNX. X6 ; TWICE SINCE 2 BYTES READ
MOV RL2000 R4 ; GET RETURN LINK
JMP 1. X4 ; RETURN(1)