|
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: 1746 (0x6d2)
Types: TextFile
Names: »INTERCEPT«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!INTERCEPT«
;----------------------------------------------------------------------
; PROCEDURE "INTERCEPT_NARRATIVE_MESSAGE"(INTERCEPT).
;
; NARRATIVE:
; THE MTCB (R0) IS UPDATED WITH ERROR_CODE (R1),AND ENQUEUED IN THE
; INTERCEPT QUEUE 'IQ'.
;
; CALLS TO: MIO,MPUTMTCB
; MIO,MENQQE
; MTCB,RELEASEMTCB
;
; REGISTER USE: ENTRY EXIT
; R0 MTCB INEDX DESTROYED
; R1 - DESTROYED
; R2 ERRCODE DESTROYED
; R3,R4 - DESTROYED
; R5 LINK KEPT
; R7 - DESTROYED
;
; INPUT: MPMDQ
;
; OUTPUT: QUEUE IQ
;
; RETURNS: LINK+0:DONE
; UREXXX:ERROR
;----------------------------------------------------------------------
INTERCEPT: ;BEGIN INTERCEPT
MOVC MPMDQ R4 ; MTCB PARM.BLOCK=MPMDQ
MOV R2 MPRWD7.X4 ; WRITE ERRCODE
MON MIO,MPUTMTCB ; "PUT_MTCB"(R0=MTCBX,R4=MPCB)
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:MTCB UPDATED
MOVC QDIQ R4 ; QUEUE=IQ
MON MIO,MENQQE ; "ENQUEUE_QE"(R0=MTCBX)
JMPI & S4 URE001 ;E X0:ERROR,REPORT ERROR
; X1:DONE
MON MTCB,RELEASEMTCB ; "RELEASE_MTCB"(R0)
JMPI & S4 URE002 ;E X0:ERROR,REPORT ERROR
JMP 0. X5 ; X1:DONE,RETURN LINK+0
;END INTERCEPT
;----------------------------------------------------------------------