|
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: 1916 (0x77c)
Types: TextFile
Names: »RETSTA«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!RETSTA«
;----------------------------------------------------------------------
; PROCEDURE "RETREIVE-STATUS" (RETSTA).
;
; NARRATIVE:
; THE CURRENT QUEUE-LENGTH-STATUS RECIEVED IN AN SIP KEEP ALIVE MSG
; IS RETRIEVED,AND MAILED IN THE SIPMAILBOX.
;
; CALLS TO: REGION,RENTER/RPUTN/RLEAVE
;
; INPUT: CMMFDCB (CMCDAT)
;
; OUTPUT: SIPMAILBOX (CRITICAL REGION)
; QSEQNO
;
; REGISTER USE: ENTRY EXIT
; R5 LINK KEPT
; R0-R7 - DESTROYED
;----------------------------------------------------------------------
RETSTA: ;BEGIN RETRIEVE-STATUS
MOVC KAMQSN+CMCDAT R4 ;
MOVC QSEQNO R6 ;
SNE X4 X6 ; IF STATSN<>SSN.SIPKAM THEN
JMP B190 ;
MOV X4 X6 ; UPDATE QSEQNO
MOVC SIPMAILBOX R0 ;
MON REGION,RENTER ; "ENTER-REGION"(R0=STATBOX)
JMPI S4 URE004 ;E X0:ERROR,REPORT ERROR
; X1:REGION ENTERRED
MOVC MBXQL R1 ; DEST:=SBXQL.STATBOX
MOVC KAMQL+CMCDAT R2 ; SOURCE:=QL.SIPKAM
MOVC MBXQLC R3 ; COUNT
MON REGION,RPUTN ; "REGION-PUT"
JMPI S4 URE004 ;E X0:ERROR,REPORT ERROR
; X1:DATA LOADED
MON REGION,RLEAVE ; "REGION-LEAVE"(R0=STATBOX)
JMPI S4 URE004 ;E X0:ERROR,REPORT ERROR
; X1:REGION LEFT
B190: ; END
JMP 0. X5 ; RETURN LINK+0
;END RETRIEVE-STATUS
;----------------------------------------------------------------------