|
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: 1894 (0x766)
Types: TextFile
Names: »MS2000.S«, »~ORPHAN_0x0033«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0033«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2000.S«
MESSAGE <:MS2000.S V810311:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2000
; READ NEXT CHARACTER.
;
; REGISTERS CALL EXIT
; R0 - CHAR
; 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)
;-----------------------------------------------------------------------
MS2000: ; READ NEXT CHARACTER:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOBNX. X6 R4 ; GET BLOCK INDEX
MOD IOBLT. X6 ; PROVIDE BLOCK LENGTH
SEQ R4 0 ; IF BLOCK COMPLETED
JMP MS2008 ; THEN BEGIN READ FILE
MOV IOTYP. X6 R0 ; GET FILE TYPE
SBN R0 IOBFIX ; IF FIKS RECORDS
JMP MS2004 ; THEN BEGIN FIKS
JMPI S4 MI1020 ; READ FIKS RECORD
JMPI & RL2000 ; FILE EMPTY - EXIT 0
JMP MS2008 ; END FIKS
MS2004: ; ELSE BEGIN NICS
JMPI S4 MI1000 ; READ BLOCK
JMPI & RL2000 ; FILE EMPTY - EXIT0
; END NICS
MS2008: ; END READ FILE
MOV IOBNX. X6 R4 ; GET BLOCK INDEX
MOD IOBUF. X6 ; PROVIDE BUFFER ADDRESS
MOVB X4 R0 ; READ CHARACTER
INC IOBNX. X6 ; INCREMENT INDEX
MOV RL2000 R4 ; GET RETURN LINK
JMP 1. X4 ; RETURN(1)