|
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: 4232 (0x1088)
Types: TextFile
Names: »MIONAMES.S«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!MIONAMES.S«
LIST BEGIN USE BASE
;----------------------------------------------------------------------
; MESSAGE INPUT/OUTPUT MONITOR DATASTRUCTURES.
;
;----------------------------------------------------------------------
;MESSAGE FILE DESCRIPTOR CON-
;TROL BLOCK. (MFDCB).
LOC=0 ;--------------------------------
MFDSTA: LOC=LOC+1 ; MFD STATUS WORD:
MSIZE:=8 SAVLOC=LOC,LOC=MSIZE ; SIZE-CODE EXTRACT MASK
MFDBSTATUS: ; START OF STATUS BITS:
MFDBOPEN:LOC=LOC+1 ; MFD OPEN FLAG
MFDBLOAD:LOC=SAVLOC ; MFD DATABUFFER LOADED FLAG
MFDLNK: LOC=LOC+1 ; MIO RETURN LINK STORAGE
MFDPOS: LOC=LOC+1 ; FILE POS.AS DEF. BY CALLER
MFDPFS: LOC=LOC+2 ; PHYSICAL START OF FILE
MFDMBX: LOC=LOC+1 ; MTCB INDEX STORAGE
MFDFD: LOC=LOC+1 ; FILE DESCRIPTOR(FD) STORAGE
MFDBLE: LOC=LOC+4 ; BUFFER LIST ELEMENT USED BY MIO
MFDFAD: LOC=LOC+4 ; FILE ADDRESS USED BY MIO
MFDCNT: LOC=LOC+2 ; CURRENT NO OF WORDS PRESENT
; IN MFD DATABUFFER(FAD OVERLAY).
;
MAXCODE:=4 ; MAX SIZECODE
MINBYTES:=32 ; MIN NO.OF BYTES
; (SIZE:=MINBYTES<SIZECODE)
MFDDAT: ; START OF DATABUFFER
;
;QUEUE DESCRIPTOR CONTROL BLOCK
LOC=0 ;--------------------------------
; 'QDCB'.
QDTN: LOC=LOC+1 ; TERMINAL NO
QDQN: LOC=LOC+1 ; QUEUE NO
QDEN: LOC=LOC+1 ; ENTRY NO (0<=>LAST ELEMENT)
QDQIO: LOC=0 ; START OF IO CONTROLBLOCK
QIOCB1: LOC=LOC+1 ; QIOCB AS DEFINED BY QACCESS.
QIOCB2: LOC=LOC+1 ;
QIOCB3: LOC=LOC+1 ;
QIOCB4: LOC=LOC+1 ;
QIOCB5: LOC=LOC+1 ;
QIOWRK: LOC=LOC+8 ;
QDCBL:=LOC+QDQIO ;
; OPERATION CODES
QOPCWAIT:=1 ; AWAIT CONGESTION RESOLVED
QQGROUP:=-1 ; QUEUE GROUP DESIGNATOR,I.E.
; IF QDEN=QQGROUP THEN GROUP
QQRFLAG:=0 ; SIMPLE READ FLAG
; COMPLETION CODES
QCCOK:=#800 ; OPERATION OK
QCCFAILED:=#801 ; OPERATION FAILED
QCCILL:=#802 ; INVALID INPUT PARAMETER
QCCEMPTY:=#803 ; QUEUE EMPTY
;
;MTCB PARAMETER CONTROL BLOCK.
; 'MPCB'.
LOC=0 ;--------------------------------
MPWORK: LOC=LOC+1 ; MIO WORK
MPMBE0: LOC=LOC+1 ; TAG FIELD
; GENERAL/REAL /PSEUDO
; ----------------------------
MPMBE1: MPRAPR: MPPCAT: LOC=LOC+1 ; ENTRY1 /APREC /CATEGORY
MPMBE2: MPRIPR: MPPSCA: LOC=LOC+1 ; ENTRY2 /IPREC /SUBCATEGORY
MPMBE3: MPRCLS: MPPBY2: LOC=LOC+1 ; ENTRY3 /CLASS /BYTE2
MPMBE4: MPRSPE: MPPWD2: LOC=LOC+1 ; ENTRY4 /SPECAT /WORD2
MPMBE5: MPRTYP: MPPWD3: LOC=LOC+1 ; ENTRY5 /TYPE /WORD3
MPMBE6: MPRLGH: MPPWD4: LOC=LOC+1 ; ENTRY6 /LENGTH /WORD4
MPMBE7: MPRHDB: MPPWD5: LOC=LOC+1 ; ENTRY7 /HDB ADR/WORD5
MPMBE8: MPPWD6: LOC=LOC+1 ; ENTRY8 /HDB ADR/WORD6
MPMBE9: MPRWD4: MPPWD7: LOC=LOC+1 ; ENTRY9 /WORD4 /WORD7
MPMBEA: MPRWD5: LOC=LOC+1 ; ENTRYA /WORD5
MPMBEB: MPRWD6: LOC=LOC+1 ; ENTRYB /WORD6
MPMBEC: MPRWD7: LOC=LOC+1 ; ENTRYC /WORD7
MPCBL: ;
;----------------------------------------------------------------------
NAMES END