|
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: 3200 (0xc80)
Types: TextFile
Names: »BQMDAT«
└─⟦d9c1548a9⟧ Bits:30005185 8" CR80 Floppy CR80FD_0182 ( UTILITIES FOR X25 HOH )
└─⟦851bd64f0⟧
└─ ⟦this⟧ »ICL.BQMDAT«
;-----------------------------------------------------------------------
; MONITOR CALL ENTRIES
;-----------------------------------------------------------------------
AUX=LOC
LOC=255 ; TOP OF MONITOR CALL TABLE
LOC=LOC-1 ; ON LINE TEST OUTPUT
LOC=LOC-1 ; PASCAL INIT
LOC=LOC-1 ; ADDRESS OF POOL CB FOR PDB'S
LOC=LOC-1 ; ADDRESS OF POOL CB FOR SHORT BUF
VPOOL: LOC=LOC-1 ; ADDRESS OF POOL CB FOR LONG BUFS
COPYPACK: LOC=LOC-1 ; COPY PACKET
COPYBLOCK: LOC=LOC-1 ; COPY BLOCK
EDITPACK: LOC=LOC-1 ; EDIT PACKET
GETINDEX: LOC=LOC-1 ; GET INDEX
PROBQUE: LOC=LOC-1 ; PROBE QUEUE
INITPCB: LOC=LOC-1 ; INITIALIZE PACKET CONTROL BLOCK
CONNECTQUE: LOC=LOC-1 ; CONNECT QUEUE TO PCB
CONNECTPACK: LOC=LOC-1 ; CONNECT PACKET TO PCB
NEXTPACK:=CONNECTPACK ;
TERMPACK: LOC=LOC-1 ; TERMINATE PACKET
RESUMPACK: LOC=LOC-1 ; RESUME PACKET
TRANSFERPACK: LOC=LOC-1 ; TRANSFER PACKET
REGRETPACK: LOC=LOC-1 ; REGRET PACKET
READCHAR: LOC=LOC-1 ; READ CHARACTER
READWORD: LOC=LOC-1 ; READ WORD
READBLOCK: LOC=LOC-1 ; READ BLOCK
FORWSPC: LOC=LOC-1 ; FORWARD SPACE
BACKSPC: LOC=LOC-1 ; BACKSPACE
HOME: LOC=LOC-1 ; HOME
GETPOS: LOC=LOC-1 ; GET POSITION
WRITECHAR: LOC=LOC-1 ; WRITE CHARACTER
WRITEWORD: LOC=LOC-1 ; WRITE WORD
WRITEBLOCK: LOC=LOC-1 ; WRITE BLOCK
STORECOUNT: LOC=LOC-1 ; STORE COUNT
LOC=AUX
;-----------------------------------------------------------------------
;-----------------------------------------------------------------------
; INTERFACE CONSTANTS
;-----------------------------------------------------------------------
PCBLGT:= 35 ; LENGTH OF PCB IN WORDS
; PACKET TYPES:
PTYPE0:= 0 ; TYPE FIELD 1
PTYPE1:= 1 ; TYPE FIELD 1
PTYPE2:= 2 ; TYPE FIELD 1
PTYPE3:= 3 ; TYPE FIELD 1
SHORTBUF:= 4 ; TYPE FIELD 2
LONGBUF:= 0 ; TYPE FILED 2
MAXTYPE:= 8 ; UPPER LIMIT OF TYPES
; PCB INITIALIZATION PARAMETERS
RDTYP:= 0 ; READ TYPE
WRTYP:= 1 ; WRITE TYPE
PRI0:= 0 ; PRIORITY LEVEL 0 (LOW)
; MEANS THAT THE VACANCY POOL MAY
; NOT BE DEPLETED BELOW THE
; CURRENT THRESHOLD.
PRI1:= 1 ; PRIORITY LEVEL 1 (HIGH)
; MEANS THAT THE VACANCY POOL MAY
; BE TOTALLY DEPLETED.
; ERROR CODES (BIT POSITIONS)
; BIT FLAG:
ILLOP:= 0 ; ILLEGAL OPERATION
BUFSHT:=1 ; BUFFER SHORTAGE
OVFL:= 2 ; PACKET OVERFLOW
QBUSY:= 3 ; QUEUE BUSY
INVQU:= 4 ; INVALID QUEUE
ILLPAR:=5 ; ILLEGAL PARAMETER
NOPCK:= 6 ; NO PACKET AVAILABLE
; BQM COMMANDS
AX=0
CRTSBF:= AX, AX=AX+1 ; CREATE POOL OF SHORT BUFFERS
CRTLBF:= AX, AX=AX+1 ; CREATE POOL OF LONG BUFFERS
CRTPDP:= AX, AX=AX+1 ; CREATE POOL OF PDB S
CRTQUP:= AX, AX=AX+1 ; CREATE POOL OF QUEUE HEADS
GETQUE:= AX, AX=AX+1 ; ALLOCATE A QUEUE HEAD
PUTQUE:= AX, AX=AX+1 ; DEALLOCATE A QUEUE HEAD
SETTHL:= AX, AX=AX+1 ; SET RESOURCE THRESHOLD
MAXCMD:= AX ; UPPER LIMIT OF COMMANDS
LOWTHOLD:= 20 ; LOWER BUFFER THRESHOLD (DEFAULT)
UPPTHOLD:= LOWTHOLD+10 ; UPPER BUFFER THRESHOLD (DEFAULT)
; RESOURCE TYPES
AX=0
LONGBUFFER:= AX, AX=AX+1 ; LONG BUFFER
SHORTBUFFER:= AX, AX=AX+1 ; SHORT BUFFER
PACKET:= AX, AX=AX+1 ; PDB
MAXRESOURCE:= AX ; UPPER LIMIT
; BQM RESULTS
AX=0
CMOK:= AX, AX=AX+1 ; OK
CMER:= AX, AX=AX+1 ; ERROR
;-----------------------------------------------------------------------
«eof»