|
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: 1920 (0x780)
Types: TextFile
Names: »ENQCMCM«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!ENQCMCM«
;----------------------------------------------------------------------
; PROCEDURE "ENQUEUE_CTRLMSG_CM"(ENQCMCM).
;
; NARRATIVE:
; A CONTROL MESSAGE RECIEVED FROM FIKS TO THE 'NSC' IS ENQUEUED IN
; THE QUEUE 'CM'.THE MPNC IS LOADED WITH THE UNPACKED MTCB,AND THE
; CMMFDCB HOLDS THE CONTROL MESSAGE HEADER UPON ENTRY,AND IS USED TO
; UPDATE THE MTCB TO INCLUDE CAT+TYPE,ORIGINATOR AND DTG AS RETRIEVED
; FROM THE CONTROL MESSAGE.
;
; CALL TO: MON MTCB,RELEASEMTCB
;
; INPUT: CMMFDCB
; CMTCBX
;
; OUTPUT: CTRLMSG=>CM
;
; WORK: MPNC
;
; REGISTER USE: ENTRY EXIT
; R5=LINK R0-R7 DESTROYED
;
; CALLS TO: MON MIO,MPUTMTCB/MENQQE
;
; RETURNS: LINK+0:DONE
; UREXXX:ERROR
;----------------------------------------------------------------------
ENQCMCM: ;BEGIN ENQCMCM
MOVC BHCATTYP+CMCDAT R4 ; SOURCE
MOVC MPRWD4+MPNC R6 ; OBJECT
MODC BHORG-BHCATTYP+1 ; COPY CAT+TYP,ORIGINATOR,
MOVM X4 X6 ; DTG TO MPNC
MOVC MPNC R4 ;
MOV CMTCBX R0 ; GET MTCB INDEX
MON MIO,MPUTMTCB ; WRITE MTCB
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:MTCB UPDATED
MOVC QDCM R4 ; QUEUE=CM
MON MIO,MENQQE ; "ENQUEUE_QE"(R0=MTCBX)
JMPI & S4 URE001 ; X0:ERROR,REPORT ERROR
; X1:MTCB ENQUEUED
MON MTCB,RELEASEMTCB ; "RELEASE-MTCB"(R0)
JMPI & S4 URE002 ;E X0:ERROR,REPORT ERROR
JMP 0. X5 ; X1:DONE,RETURN LINK+0
;END ENQCMCM
;---------------------------------------------------------------------- ▶1a◀