|
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: 998 (0x3e6)
Types: TextFile
Names: »RELMTCB«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!RELMTCB«
;-----------------------------------------------------------------------
; SUBROUTINE "RELEASE-MTCB"(RELMTCB).
;
; NARRATIVE:
; THE MTCB HELD IN "CMTCBX" IS RELEASED BY CALL TO THE MTCB MONITOR.
;
; REGISTER USE: ENTRY EXIT
; R0,R4 - DESTROYED
; R5 LINK KEPT
;
; CALL TO: MTCB,RELEASEMTCB
;
; RETURNS: LINK+0:DONE
; URE002:ERROR (R4=LINK)
;-----------------------------------------------------------------------
RELMTCB: ;BEGIN RELEASE_MTCB
MOV R5 R4 ; ESTABLISH ERROR LINK
MOV CMTCBX R0 ; R0:=CMTCBX
MON MTCB,RELEASEMTCB ; "RELEASE_MTCB"(R0)
JMPI & URE001 ; X0:ERROR,REPORT ERRER
JMP 0. X5 ; X1:DOEN,RETURN LINK+0
;END RELEASEMTCB
;-----------------------------------------------------------------------