|
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: 2710 (0xa96)
Types: TextFile
Names: »MSD210.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─⟦this⟧ »MS2.D!MSD210.S«
MESSAGE <:MSD210.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MSD210
; PSEUDO INIT FILEDESCRIPTORS.
;
; REGISTERS CALL EXIT
; R4 LINK DEST
; R0-7 - DEST
;
; INPUT: -
; OUTPUT: FNFILS,FNVOL,FNMD,SRCFD,OBJFD,TMPFD
; WORK: TABBUF
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MSD210: ; PSEUDO INIT FILEDESCRIPTORS:
MOV R4 RLD000 ; SAVE RETURN LINK
MOVC FNFILS R6 ; GET BUFFER1 ADDR
JMP S5 MSD212 ; ACCESS CONSTANT
<:DMA000:>,0,<:FILE:>,0,0 ; FILE SYSTEM NAME
MSD212: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC FNVOL R6 ; GET BUFFER2 ADDR
JMP S5 MSD214 ; ACCESS CONSTANT
<:SCC:> ,0,0,0,0,0,0 ; VOLUME NAME
MSD214: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC FNMD R6 ; GET BUFFER3 ADDR
JMP S5 MSD216 ; ACCESS CONSTANT
<:MD:>,0,0,0,0,0,0,0 ; MAINDIR NAME
MSD216: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC TABBUF R6 ; GET TABBUF ADDR
JMP S5 MSD218 ; ACCESS CONSTANT
<:TESTSOURCE:>,0,0,0 ; SOURCE NAME
MSD218: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC TABBUF R0 ; GET FILENAME ADDR
JMP S4 MSD120 ; GET FILEDESCRIPTOR
MOV R0 SRCFD ; SAVE IT
MOVC TABBUF R6 ; GET TABBUF ADDR
JMP S5 MSD21A ; ACCESS CONSTANT
<:TESTOBJECT:>,0,0,0 ; OBJECT NAME
MSD21A: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC TABBUF R0 ; GET FILENAME ADDR
JMP S4 MSD120 ; GET FILEDESCRIPTOR
MOV R0 OBJFD ; SAVE IT
MOVC TABBUF R6 ; GET TABBUF ADDR
JMP S5 MSD21C ; ACCESS CONSTANT
<:TESTTEMP01:>,0,0,0 ; TEMP1 NAME
MSD21C: ;
JMP S4 MSD110 ; CONVERT TO BASEREL
MOVC TABBUF R0 ; GET FILENAME ADDR
JMP S4 MSD120 ; GET FILEDESCRIPTOR
MOV R0 TMPFD ; SAVE IT
JMPI RLD000 ;R RETURN M