|
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: 1482 (0x5ca)
Types: TextFile
Names: »MTCBINIT«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!MTCBINIT«
;-----------------------------------------------------------------------------
; PROCEDURE "INITIALIZE MTCB"(MTCBINIT).
;
; CALLS TO: MON INITMTCB
; MON IO,GETROOT
;
; REGISTER USE ENTRY EXIT
; R5 LINK KEPT
; R0-R4 - DESTROYED
;
; RETURNS: LINK+0:DONE
; UREXXX:ERROR
;-----------------------------------------------------------------------------
USE BASE ; LAYOUT OF LOCAL DATA/WORK
IFILSYSNAME: <:DMA000:>,0,<:FILE:> ; FILESYSTEM NAME
IVOLUMENAME: <:SCC:>,0,REPEAT 5 ; VOLUME NAME
IWORK: 0,REPEAT 7 ; WORK AREA
USE PROG ;
;-----------------------------------------------------------------------------
MTCBINIT: ;BEGIN MTCBINIT
MOVC IFILSYSNAME R0 ;
MOVC IVOLUMENAME R1 ;
MON IO,GETROOT ; "GET-ROOT"(FILSYS,VOL)
JMPI S4 URE003 ;E X0:ERROR,REPORT ERROR
MOVC MACCALL R0 ; X1:DONE,R4=FD
MOVC IWORK R1 ;
MOV R4 R2 ;
MOV R4 R3 ;
MON MTCB,INITMTCB ; "INIT-MTCB"
JMPI S4 URE002 ;E X0:ERROR,REPORT ERROR
JMP 0. X5 ; X1:DONE,RETURN LINK+0
;----------------------------------------------------------------------------- ▶1a◀