|
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: 1840 (0x730)
Types: TextFile
Names: »INCTRLMSG«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!INCTRLMSG«
;----------------------------------------------------------------------
; PROCEDURE "IN_CONTROL_MESSAGE"(INCTRLMSG).
;
; NARRATIVE:
; THE CONTROL MESSAGE DESIGNATED BY 'CMTCBX' IS RETRIEVED,AND LOADED
; TO 'CMMFDCB'.CATEGORY AND TYPE IS RETAINED (CAT,TYPE) AND STORED
; IN 'CCATTYP.
;
; REGISTER USE: ENTRY EXIT
; R0-R4 - DESTROYED
; R5 LINK DESTROYED
; R7 - DESTROYED
;
; CALLS TO: MIO,MOPEN
; MIO,MLOAD
; MIO,MCLOSE
;
; INPUT: CMTCBX
;
; OUTPUT: CCATTYP
; CMMFDCB
;
; RETURNS: LINK+0:DONE
; UREXXX:ERROR
;----------------------------------------------------------------------
INCTRLMSG: ;BEGIN INCTRLMSG
MOV R5 RLM100 ; SAVE LINK
MOV CMTCBX R0 ; GET MTCB INDEX
MOVC CMMFDCB R4 ; R4=REF.TO MFDCB
MON MIO,MOPEN ; "OPEN_CTRLMSG"(R0=MTCBX)
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:FILE OPENED
MON MIO,MLOAD ; "READ_CTRLMSG"(R4=MFDCB)
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:CTRLMSG LOADED TO MFDDAT
MOV BHCATTYP+CMCHEAD R1 ; GET (CAT,TYPE)
MOV R1 CCATTYP ; AND STORE IT.
MON MIO,MCLOSE ; "CLOSE_FILE"(R4=MFDCB)
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:R0=MTCB INDEX
JMPI RLM100 ; RETURN LINK+0
;END INCTRLMSG
;---------------------------------------------------------------------- ▶1a◀