|
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: 1496 (0x5d8)
Types: TextFile
Names: »MSD120.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─⟦this⟧ »MS2.D!MSD120.S«
MESSAGE <:MSD120.S V810218:>
;-----------------------------------------------------------------------
; SUBROUTINE MSD120
; GET FILE DESCRIPTOR.
;
; CALL TO: MON IO, GETROOT
; DESCENT
;
; REGISTERS CALL EXIT
; R0 REF(FILENAME) FILEDESCRIPTOR
; R4 LINK DEST
; R1,R2,R6,R7 DEST
; R3,R5 NOT USED
;
; INPUT: FNFILS,FNVOL,FNMD DATA
; OUTPUT: -
; EXIT TO: LINK+0 (OK)
; MSE100 (ERROR)
;-----------------------------------------------------------------------
MSD120: ; GET FILE DESCRIPTOR:
MOV R4 R6 ; PARK RETURN LINK
MOV R0 R2 ; PARK FILENAME
MOVC FNFILS R0 ; GET FILESYSTEM NAME
MOVC FNVOL R1 ; GET VOLUME NAME
MON IO, GETROOT ; LOOKUP ROOT
JMPI & S4 MIE100 ; EXIT 0 - FILE ERROR
MOVC FNMD R1 ; GET MAIN_DIRECTORY NAME
MON IO, DESCENT ; LOOKUP MAINDIR FD
JMPI & S4 MIE100 ; EXIT 0 - FILE ERROR
MOV R2 R1 ; POSITION FILENAME
MON IO, DESCENT ; LOOKUP FILENAME FD
JMPI & S4 MIE100 ; EXIT 0 - FILE ERROR
MOV R4 R0 ; POSITION FD
JMP 0. X6 ;R RETURN THRU R6 L