|
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: 10138 (0x279a)
Types: TextFile
Names: »TYPE.I«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0101.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!ASM.D!TYPE.I«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0101.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0102.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V0103.D!ASM.D!TYPE.I«
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!BCS.D!V01CT.D!ASM.D!TYPE.I«
;-----------------------------------------------------------------------
;
; PROJECT: CD-DED
;
; MODULE NAME: BASIC COMMUNICATION SERVICE INTERFACE
; MODULE ID NMB: CD/2008
; MODULE TYPE: PREFIX
; MODULE FILES: BCS.I
; PREFIX FILES: NONE
; SPECIFICATIONS: CD-DED/PSP/0001
; AUTHOR/DATE: JKK/PHC/PJA/840309
;
; DELIVERABLE: YES
; SOURCE LANGUAGE: CR80 ASSEMBLER
; COMPILE COMPUTER: CR80 M
; TARGET COMPUTER: CR80 M/CR80 MX
; OPER. SYSTEM: XAMOS/MXAMOS
;
;-----------------------------------------------------------------------
;
; CHANGE RECORD
;
; VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
; ------- ----------- ---------------------
; 0101 JKK/PHC/PJA/840309 INITIAL SUBMITTAL TO CD_SCL
;
;-----------------------------------------------------------------------
USE BASE
MESSAGE <:BCS INTERFACE V0101 840130:>
ANY_QUEUE= #FFFF;
;---------------------------------------------
; BCS FUNCTIONS
;---------------------------------------------
AX=0
LOGON:= AX, AX=AX+1 ;
LOGOFF:= AX, AX=AX+1 ;
WAIT:= AX, AX=AX+1 ;
WAIT_EVENTS:= AX, AX=AX+1 ;
WAIT_EVENTS_IO:= AX, AX=AX+1 ;
DEFQUEUE:= AX, AX=AX+1 ;
DEFPRIVATE_QUEUE:= AX, AX=AX+1 ;
REQUEST_QUEUE:= AX, AX=AX+1 ;
SET_PRIORITY:= AX, AX=AX+1 ;
REMOVE_QUEUE:= AX, AX=AX+1 ;
TEST_QUEUE:= AX, AX=AX+1 ;
SEND_MESSAGE:= AX, AX=AX+1 ;
CREATE_MESSAGE:= AX, AX=AX+1 ;
DISPOSE_MESSAGE:= AX, AX=AX+1 ;
RETURN_MESSAGE:= AX, AX=AX+1 ;
COPY_MESSAGE:= AX, AX=AX+1 ;
WRITE_BLOCK:= AX, AX=AX+1 ;
READ_BLOCK:= AX, AX=AX+1 ;
PUT_HEADER:= AX, AX=AX+1 ;
GET_HEADER:= AX, AX=AX+1 ;
PUT_TRAILER:= AX, AX=AX+1 ;
GET_TRAILER:= AX, AX=AX+1 ;
SET_POSITION:= AX, AX=AX+1 ;
JOIN:= AX, AX=AX+1 ;
SPLIT:= AX, AX=AX+1 ;
ALLOCATE_BUFFER:= AX, AX=AX+1 ;
CONNECT_BUFFER:= AX, AX=AX+1 ;
GET_NEXT_BUFFER:= AX, AX=AX+1 ;
CREATE_POOL:= AX, AX=AX+1 ;
REMOVE_POOL:= AX, AX=AX+1 ;
TEST_POOL:= AX, AX=AX+1 ;
SET_TIMER:= AX ;
;---------------------------------------------
; BCS_ERROR_CODES
;---------------------------------------------
AX=0
BCS_OK:= AX, AX=AX+1 ;
ENDMESS:= AX, AX=AX+1 ;
ILPOOL:= AX, AX=AX+1 ;
BUFSHORTAGE:= AX, AX=AX+1 ;
ILLQR:= AX, AX=AX+1 ;
POOLSHORTAGE:= AX, AX=AX+1 ;
MESSSHORTAGE:= AX, AX=AX+1 ;
ILLSUBQUEUE:= AX, AX=AX+1 ;
XTRASHORTAGE:= AX, AX=AX+1 ;
LOGONERROR:= AX, AX=AX+1 ;
ILNAME:= AX, AX=AX+1 ;
ILMESSAGE:= AX, AX=AX+1 ;
UNKNQUEUE:= AX, AX=AX+1 ;
MEMSHORTAGE:= AX, AX=AX+1 ;
ILPRIORITY:= AX, AX=AX+1 ;
ILOPERATION:= AX, AX=AX+1 ;
ILLBUFFER:= AX, AX=AX+1 ;
ILLPARAMETER:= AX, AX=AX+1 ;
MESCORRUPTED:= AX, AX=AX+1 ;
MESEMPTY:= AX, AX=AX+1 ;
THRESHOLD:= AX, AX=AX+1 ;
UNKNFUNCTION:= AX ;
;---------------------------------------------
; BCS_EVENT_TYPE
;---------------------------------------------
AX=0
POOL_ERROR:= AX, AX=AX+1 ;
QUECLOSED:= AX, AX=AX+1 ;
QUENOT_DEFINED:= AX, AX=AX+1 ;
QUE_DEFINED:= AX, AX=AX+1 ;
POOLCREATE:= AX, AX=AX+1 ;
POOLCLOSED:= AX, AX=AX+1 ;
MESSAGE_CREATED:= AX, AX=AX+1 ;
BUFFERS_AVAILABLE:= AX, AX=AX+1 ;
BUFFERS_RELEASED:= AX, AX=AX+1 ;
BCS_TIMER:= AX, AX=AX+1 ;
MESSAGE_AVAILABLE:= AX,AX=AX+1 ;
CALL_ERROR:= AX ;
;---------------------------------------------
; BCS_EVENT_CLASS
;---------------------------------------------
AX=0
BCS_EVENTS:= AX, AX=AX+1 ;
BCS_AMOS_EVENTS:= AX, AX=AX+1 ;
BCS_IO_EVENTS:= AX ;
;---------------------------------------------
; QUEUE_TYPE
;---------------------------------------------
AX=0
ACTIVE:= AX, AX=AX+1 ;
STANDBY:= AX ;
;---------------------------------------------
; RANGE_TYPE
;---------------------------------------------
AX=0
BLOCAL:= AX, AX=AX+1 ;
BGLOBAL:= AX ;
;---------------------------------------------
; SERVER_TYPE
;---------------------------------------------
AX=0
MONO:= AX, AX=AX+1 ;
MULTI:= AX ;
;---------------------------------------------
; ABS_ADDR
;---------------------------------------------
AX=0
OFFSET:= AX, AX=AX+1 ;
PAGE:= AX, AX=AX+1 ;
ABSALGT:= AX ;
;---------------------------------------------
; BCS_SERVICE
;---------------------------------------------
AX=0
NO_FLOW:= AX, AX=AX+1 ;
FLOW:= AX, AX=AX+1 ;
FLOW_PLUS:= AX ;
;---------------------------------------------
; POOL_INFO_TYPE
;---------------------------------------------
AX=0
ADDR:= AX, AX=AX+1 ;
ALLOCATION:= AX, AX=AX+1 ;
POOLILGT:= AX ;
;---------------------------------------------
; QUEUE_NAME_TYPE
;---------------------------------------------
AX=0
QUENT0:= AX, AX=AX+1 ;
QUENT1:= AX, AX=AX+1 ;
QUENLGT:= AX ;
;---------------------------------------------
; QUEUE_ATTRIBUTES
;---------------------------------------------
AX=0
QUEUE_KIND:= AX, AX=AX+1 ;
RANGE:= AX, AX=AX+1 ;
WINDOW:= AX, AX=AX+1 ;
SERVICE:= AX, AX=AX+1 ;
SUBQUEUE_NO:= AX, AX=AX+1 ;
PRIO_SUB0:= AX, AX=AX+1 ;
SERVER:= AX, AX=AX+1 ;
QUEATTRLGT:= AX ;
;---------------------------------------------
; QUEUE_INFO_TYPE
;---------------------------------------------
AX=0
BCSSERVICE:= AX, AX=AX+1 ;
SUBQ_NO:= AX, AX=AX+1 ;
WINDW:= AX, AX=AX+1 ;
QUEINFLGT:= AX ;
;---------------------------------------------
; SEND_INFO_TYPE
;---------------------------------------------
AX=0
SITHRESHOLD:= AX, AX=AX+1 ;
SIPOOL:= AX, AX=AX+1 ;
SIHEADER:= AX, AX=AX+1 ;
SIHEADER_SIZE:= AX, AX=AX+1 ;
SISENDINFLGT:= AX ;
;---------------------------------------------
; BCS_EVENT_INFO
;---------------------------------------------
AX=0
HEADER:= AX, AX=AX+1 ;
HEADER_SIZE:= AX, AX=AX+1 ;
QUEUE:= AX, AX=AX+1 ;
PRIORITY:= AX, AX=AX+1 ;
CLASS:= AX, AX=AX+1 ;
; CASE CLASS OF
BX=AX ; BCS_EVENT:
BCSEVT:= BX, BX=BX+1 ;
; CASE BCS_EVENT OF
; POOLCLOSED,
; POOLCREATE,
; BUFFERS_AVAILABLE,
CX=BX ; POOL_ERROR:
POOL:= CX, CX=CX+1 ;
FREEBUFS:= CX ;
; QUECLOSED,
; QUENOT_DEFINED:
; NOTHING;
CX=BX ; QUE_DEFINED:
QUEINFO:= CX ;
CX=BX ; MESSAGECREATED:
AVLMESS:= CX ;
CX=BX ; BUFFERS_RELEASED:
BUFCOUNT:= CX ;
CX=BX ; TIMERCOUNT:
TIMER:= CX ;
CX=BX ;«eot» MESSAGE_AVAILABLE:
SUBQUEUE:= CX, CX=CX+1 ;
BCSMESS:= CX, CX=CX+1 ;
MESSLGT:= CX, CX=CX+1 ;
NO_OF_MESSAGES:= CX ;
;
SAVEBX=BX
BX=AX ; BCS_AMOS_EVENT:
EVTTYPE:= BX, BX=BX+1 ;
AMOS_MESSAGE:= BX, BX=BX+1 ;
EVENT_ID:= BX, BX=BX+1 ;
IF BX GT SAVEBX THEN
SAVEBX=BX
BX=AX ;«eot» BCS_IO_EVENT:
FAD:= BX, BX=BX+1 ;
BLE:= BX, BX=BX+1 ;
OPREF:= BX, BX=BX+1 ;
FD:= BX, BX=BX+1 ;
IO_CC:= BX, BX=BX+1 ;
IF BX GT SAVEBX THEN ; END;
SAVEBX=BX
EVTTYPLGT:= SAVEBX ;