|
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: 17926 (0x4606)
Types: TextFile
Names: »ISHNAMES.S«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!ISHNAMES.S«
LIST BEGIN USE BASE
;----------------------------------------------------------------------
;
; I S H D A T A B A S E .
;
;----------------------------------------------------------------------
;
;
;FIKS MONITOR NAMES:
;---------------------------------
MIO:= 137 ; MIO PROCEDURES
MDEQQE:=0 ;
MENQQE:=1 ;
MGETMTCB:=2 ;
MPUTMTCB:=3 ;
MOPEN:=4 ;
MSETPOS:=5 ;
MLOAD:=6 ;
MCLOSE:=7 ;
NMP:= 138 ; SCC PROCEDURES
SCHNO:=0 ; LOOKUP CHANNEL NO.
MTCB:= 107 ; MTCB PROCEDURES
INITMTCB:=0 ;
CREATEMTCB:=1 ;
RESERVEMTCB:=2 ;
RELEASEMTCB:=3 ;
WRITEMTCB:=4 ;
READMTCB:=5 ;
CREFILMTCB:=6 ;
GETFILMTCB:=7 ;
RELFILMTCB:=8 ;
QACCESS:=108 ; QACCESS MONITOR
QAINIT:=0 ;
QATHRSH:=1 ;
QALNGTH:=2 ;
QAGLGTH:=3 ;
QARNDST:=4 ;
QARDDST:=5 ;
QARDGRP:=6 ;
QADELETE:=7 ;
QAWRITE:=8 ;
QARORGN:=9 ;
QAAPPND:=10 ;
;
;FIKS_MESSAGE_TYPES:
;--------------------------------
TNMSG:= 0 ; NARRATIVE_MSG
TCTRLMSG:=2 ; CONTROL_MSG
;CONTROL_MESSAGES (CAT<8+TYPE)
TSZKAM:=0<8+10 ; SIP/SIP KAM (S=>Z)
TZSKAM:=1<8+10 ; SIP/SIP KAM (Z=>S)
TSCKAM:=2<8+10 ; SIP/CIP KAM
TCSKAM:=3<8+10 ; CIP/SIP KAM
TSIPSYN:=1<8+12 ; SIP SYNC_MSG
TCIPSYN:=2<8+12 ; CIP SYNC_MSG
TSIPSTA:=0<8+12 ; SIP STATISTICAL_REPORT
;
;MTCB RELATED ITEMS:
;--------------------------------
; MTCB MON. OPERATION CODES:
MACCALL:=6 ; ACCESS CONTROLL ALL
MOPCNOWAIT:=0 ; NO WAIT
MOPCWAIT:=1 ; WAIT
MUPDALL:=#7FF ; UPDATE ALL ENTRIES IN MTCB
; MTCB TYPES:
MMTYPPSEUDO:=0 ; PSEUDO MTCB
MMTYPREAL:=1 ; REAL MTCB
MFTYPPDB:=2 ; PDB FILE
;
;FIKS TERMINAL AND QUEUE NUMBERS
;---------------------------------
TNSDQ:=37, QNSDQ:=-1, ENSDQ:=1 ; FIRST FROM GROUP SDQ
TNMDQ:=31, QNMDQ:=0, ENMDQ:=1 ; FIRST FROM (GROUP) MDQ
TNNM:=31, QNNM:=7, ENNM:=1 ; FIRST FROM NM QUEUE
TNNC:=31, QNNC:=8, ENNC:=1 ; FIRST FROM NC QUEUE
TNIC:=36, QNIC:=0, ENIC:=1 ; FIRST FROM IC QUEUE
TNDT:=35, QNDT:=0, ENDT:=0 ; LAST TO DT QUEUE
TNTQ:=32, QNTQ:=0, ENTQ:=0 ; LAST TO TQ QUEUE
TNMC:=39, QNMC:=0, ENMC:=0 ; LAST TO MC QUEUE
TNCM:=40, QNCM:=0, ENCM:=0 ; LAST TO CM QUEUE
TNIQ:=0 , QNIQ:=0, ENIQ:=0 ; LAST TO IQ QUEUE
TNCQ2:=30, QNCQ2:=0, ENCQ2:=0 ; LAST TO CQ2
TNCQ3:=35, QNCQ3:=1, ENCQ3:=0 ; LAST TO CQ3
TNCQ4:=30, QNCQ4:=1, ENCQ4:=0 ; LAST TO CQ4
;
;DEFAULT PARAMETERS USED FOR
;ROUTING OF ISH MESSAGES:
;--------------------------------
NAPREC:= 3 ; NARRATIVE MESSAGES:
NIPREC:= 3 ;
NCLASS:= 0 ;
NSPEC:= 0 ;
CAPREC:= 1 ; CONTROL MESSAGES:
CIPREC:= 1 ;
CCLASS:= 0 ;
CSPEC:= 0 ;
;
;FIKS_MSG BINARY_HEADER:
;---------------------------------
LOC=0 ; ROUTING HEADER:
BHNTNSN: LOC=LOC+1 ; NODE SERIAL NO.
BHAPREC: LOC=LOC+1 ; ACTION PRECEDENCE
BHRMSK0: LOC=LOC+1 ; ROUTING MASK 1@2
BHRMSK1: LOC=LOC+1 ; " " 2@2
BHLGTH: LOC=LOC+1 ; MSG LENGTH
RHEADL: ; ROUTING HEADER LENGTH
;
; NARRATIVE HEDER:
BHSPEC: LOC=LOC+1 ; CLASS<8+SPECAT
BHALST: LOC=LOC+1 ; ADDRESS LIST OFFSET
BHIPREC: LOC=LOC+1 ; INFO PRECEDENCE
BHSIGHL: LOC=LOC+1 ; SIGNAL HEADER LENGTH
BHRTIM0: LOC=LOC+1 ; RELEASE TIME 1/2
BHRTIM1: LOC=LOC+1 ; RELEASE TIME 2/2
BHMIDR: LOC=LOC+1 ; MSGID REF.
BHSICR: LOC=LOC+1 ; SIC REF.
NHEADL: ; END OF NARRATIVE HEADER
LOC=RHEADL ; CONTROL MESSAGE HEADER
BHCATTYP: LOC=LOC+1 ; CATEGORY<8+TYPE
BHORG: LOC=LOC+1 ; ORIGINATOR
BHDTG0: LOC=LOC+1 ; DTG 1/2
BHDTG1: LOC=LOC+1 ; DTG 2/2
CHEADL: ; END OF CONTROL HEADER
;
;PSEUDO_MTCB_FORMAT CONSTANTS:
;---------------------------------
TYNC:= 9 ;
TYNL:= 2 ;
TYSC:= 7 ;
TYNM:= 8 ;
NMA:= 0 ;
NCR:= 1 ;
NCC:= 0 ;
NLC:= 0 ;
SSR:= 2 ;
CCPMAK:= 4 ;
CCPCMD:= 6 ;
; CATEGORY:
CATACK:= 4 ;
CATPNM:= 17 ;
CARSMS:= 12 ;
CACMMS:= 11 ;
CATNSCC:=8 ;
CATNSCR:=9 ;
CACMTS:=14 ;
CANMIM:= 0 ;
CATMSSC:=11 ;
CATMSSR:=12 ;
CATNTSC:=14 ;
CATNTSR:=15 ;
;
CMDOP:= 1 ;
CMDCL:= 0 ;
NTLCS:= 0 ;
NTLCO:= 1 ;
NTLCC:= 2 ;
;
;GLOBAL CONSTANTS:
;---------------------------------
SIPS:= <:S:> ; SIP 'S' ID
SIPZ:= <:Z:> ; SIP 'Z' ID
CIPQ:= <:Q:> ; CIP 'Q' ID
CIPP:= <:P:> ; CIP 'P' ID
;
PMEDEID:=16 ; MEDE-ID'S
QMEDEID:=17 ;
SMEDEID:=19 ;
XMEDEID:=24 ;
ZMEDEID:=26 ;
;
SPMCLOCK:=5 ; SPM/SWD/CPM/CWD CLOCK CYCLES:
SWDCLOCK:=5 ; IN UNITS OF 1 SEC.
CPMCLOCK:=5 ;
CWDCLOCK:=5 ;
SSKRTIM0:=1 ; SIP/SIP KAM RELEASE INTERVAL
SCKRTIM0:=1 ; SIP/CIP KAM RELEASE INTERVAL
CSKRTIM0:=1 ; CIP/SIP KAM RELEASE INTERVAL
SKATIM0:=5*SSKRTIM0 ; INBOUND SIP KAM TIMEOUT VALUE
CKATIM0:=5*CSKRTIM0 ; INBOUND CIP KAM TIMEOUT VALUE
SUPTIM0:=12 ; SUPERVISOR RESPONSE TIMEOUT
TIMSSYN:=5 ; SYNC_ACK_TIMEOUT TIMER
TIMSSTA:=720 ; SIP STATISTICS RATE,1 HOUR.
TIMRQL:=12 ; QUEUE-LENGTH RETRIEVAL TIMER
ANSDELAY:=100 ; MAX DELAY OF AMOS ANSWER
RSIPS0:=0 ,RSIPS1:=1<8 ; ROUTINGMASK FOR NODE_ID 'S'
RSIPZ0:=0 ,RSIPZ1:=1<15 ; " " " 'Z'
RCIPP0:=0 ,RCIPP1:=1<5 ; " " " 'P'
RCIPQ0:=0 ,RCIPQ1:=1<6 ; " " " 'Q'
;COMPLETION CODES
;--------------------------------
CCOK:=0 ; OPERATION OK
CCNSSOK:=1 ; NSS COMPLETION CODE OK
LOC=1 ;ERRORCODES
;--------------------------------
ECUNKNOWN: LOC=LOC+1 ; UNKNOWN MESSAGE
ECINVPREC: LOC=LOC+1 ; INVALID PRECEDENCE IN MSG
ECCONGESTION: LOC=LOC+1 ; INTERNAL BUFFER LACK
ECBUSY: LOC=LOC+1 ; BUSY
ECINVCOMD: LOC=LOC+1 ; INVALID COMMAND
ECTRUNKERR: LOC=LOC+1 ; TRUNK ERROR
ECNOPDB:=#90C ; NO PDB-FILES AVAILABLE
NPRECCNT:=6 ; NO.OF PREC'S FOR NARR.MSG'S
MSGIDL:=3 ; MSGID LENGTH
SEGMWS:=256 ; SEGMENT SIZE (WORDS)
SEGMBS:=512 ; SEGMENT SIZE (BYTES)
;
;SUPERVISOR=>CWD COMMANDS:
LOC=0 ;---------------------------------
COMDTO: LOC=LOC+1 ; PSEUDO CMD TIMEOUT
COMDGO: LOC=LOC+1 ; CMD GO OFFLINE
COMDGS: LOC=LOC+1 ; CMD GO STANDBY
COMDGA: LOC=LOC+1 ; CMD GO ACTIV
;
;EXTERNAL STATE PARAMETERS:
;---------------------------------
LOC=0 ; 1.SWD => SWD
ZU: LOC=LOC+1 ; UNDEFINED
ZS: LOC=LOC+1 ; STANDBY
ZST: LOC=LOC+1 ; STANDBY STEADY
ZAT: LOC=LOC+1 ; ACTIVE TRANSITION
ZA: LOC=LOC+1 ; ACTIVE
ZTAS: LOC=LOC+1 ; ACTIVE TO STANDBY TRANSITION
ZBOUND: ;
LOC=0 ; 2.SWD => CWD
XU: LOC=LOC+1 ; UNDEFINED
XOA: LOC=LOC+1 ; OFFLINE ACKNOWLEDGE
XS: LOC=LOC+1 ; STANDBY
XTSA: LOC=LOC+1 ; STANDBY TO ACTIVE TRANSITION
XA: LOC=LOC+1 ; ACTIVE
XAD: LOC=LOC+1 ; ACTIVE DECLINED
XXBOUND: ;
LOC=0 ; 3.CWD => SWD
YU: LOC=LOC+1 ; UNDEFINED
YO: LOC=LOC+1 ; OFFLINE
YS: LOC=LOC+1 ; STANDBY
YST: LOC=LOC+1 ; STANDBY STEADY
YAT: LOC=LOC+1 ; ACTIVE TRANSITION
YA: LOC=LOC+1 ; ACTIVE
YTAS: LOC=LOC+1 ; ACTIVE TO STANDBY TRANSITION
YBOUND: ;
LOC=0 ; 4.NTS&SCC STATES AND
; STATE TRANSITION COMD'S.
UU: LOC=LOC+1 ; UNDEFINED
OO: LOC=LOC+1 ; OFFLINE
SS: LOC=LOC+1 ; STANDBY
AA: LOC=LOC+1 ; ACTIVE
SBOUND: ;
;
;FIKS/SCC LOGICAL CHANNELS:
;---------------------------------
LOC=0 ; OUTBOUND CHANNEL:
CH0: LOC=LOC+1 ; FOR SMF=>ACP CONVERSION
CH1: LOC=LOC+1 ; FOR ACP=>SMF CONVERSION
CH2: LOC=LOC+1 ; MESSAGE TO NICS-TARE
OCHCNT: ; INBOUND CHANNELS:
CH3: LOC=LOC+1 ; CONVERTED SMF=>ACP
CH4: LOC=LOC+1 ; CONVERTED ACP=>SMF
CH5: LOC=LOC+1 ; MESSAGE FROM NICS-TARE
CH6: LOC=LOC+1 ; MESSAGES INTERCEPTED AT MSS.
ICHCNT:=LOC-OCHCNT ;
;
LOC=0 ;ACK & ANTIMSG DEFINITION (A):
;--------------------------------
ASEQNO: LOC=LOC+1 ; SEQUEUNCE_NO:
; IF NONZERO IT IS THE IDENTI-
; FIER FOR AN VALID ACK/ANTIMSG.
AMSGID:LOC=LOC+MSGIDL ; MSG_IDENTIFICATION:
; MSGID OF THE CORRESPONDING
; INBOUND/OUTBOUND MESSAGE.
ASIZE:=LOC ;
LOC=0 ;MAILBOX DEFINITION (MBX):
;--------------------------------
MBXNTS: LOC=LOC+1 ; NICS-TARE STATUS
MBXSTA: ; MAILSTATUS (SIP<=>SIP KAM'S)
; BIT 0,OCHCNT FLAGS WHETHER
; THE ANTIMSG HAS BEEN TRANS-
; MITTED OR NOT.SET BY "SPM2,
; AND CLEARED BY "SWD".
MBXSSN: LOC=LOC+1 ; SYNC_SEQNO (SIP<=>CIP KAM'S)
MBXAX: LOC=LOC+OCHCNT*ASIZE ; INDEX TO FIRST ACK/ANTIMSG.
MBXSSL: ; SIZE OF SIP/SIP MAILBOX
MBXCSL: ; SIZE OF CIP/SIP MAILBOX
LOC=LOC+(ICHCNT-OCHCNT)*ASIZE ;
MBXQSN: LOC=LOC+1 ; QUEUE LENGTH SEQNO
MBXQL: ;
MBXASQL: LOC=LOC+1 ; ACP/SMF QUEUE LENGTH
MBXSAQL: LOC=LOC+1 ; SMF/ACP QUEUE LENGTH
MBXNTQL: LOC=LOC+1 ; NICS-TARE QUEUE LENGTH
MBXQLC:= LOC-MBXASQL ;
MBXSCL: ; SIZE OF SIP/CIP MAILBOX
;
LOC=0 ;KEEP_ALIVE_MSG DEFINITION (KAM).
;--------------------------------
KAMSM: LOC=LOC+1 ; STATE_MESSAGE (CWDSM/SWDSM)
KAMSCC: LOC=LOC+1 ; SCC STATUS
KAMNTS: LOC=LOC+1 ; NICS-TARE STATUS
KAMSSN: LOC=LOC+1 ; STATUS_SEQUENCE_NO:
KAMAX: LOC=LOC+OCHCNT*ASIZE ; ACK/ANTIMSG INDEX
KAMSSL: ; SIZE OF SIP/SIP KAM
KAMCSL: ; SIZE OF CIP/SIP KAM
LOC=LOC+(ICHCNT-OCHCNT)*ASIZE ;
KAMQSN: LOC=LOC+1 ; QUEUE LENGTH SEQ.NO
KAMQL: ;
KAMASQL: LOC=LOC+1 ; ASP/SMF QUEUE LENGTH
KAMSAQL: LOC=LOC+1 ; SMF/ACP QUEUE LENGTH
KAMNTQL: LOC=LOC+1 ; NICS-TARE QUEUE LENGTH
KAMSCL: ; SIZE OF SIP/CIP KAM
;
LOC=0 ;SYNCRONIZATION_MESSAGE
;--------------------------------
SMSGSN: LOC=LOC+1 ; SYNC SEQNO.
;
;AMOS_MESSAGES:
;--------------------------------
LOC=0 ; GENERAL FORMAT(MS):
MSCOMD: LOC=LOC+1 ; COMMAND WORD
LX=0 ; COMMANDCODES(C):
CSIPOPM:= LX,LX=LX+1 ; SIP OPERATIONAL MODE CHANGE:
; SWD => SPM
CCIPOPM:= LX,LX=LX+1 ; CIP OPERATIONAL MODE CHANGE:
; CWD => CPM
CSIPKAM:= LX,LX=LX+1 ; INBOUND SIP KAM
; SPM/CPM =>SWD/CWD
CCIPKAM:= LX,LX=LX+1 ; INBOUND CIP KAM
; SPM => SWD
COPCOMD:= LX,LX=LX+1 ; OPERATOR COMMAND
; CPM => CWD
CRESTIM:= LX,LX=LX+1 ; RESERVE TIMER COMMAND
; XXX => RTC
MSPARM: ; PARAMETER INDEX
LX=0 ; PARAMETERCODES(P)4
;
; SPECIAL FORMAT
; 1.KAM SPM/CPM =>SWD/CWD
STAMSG: LOC=LOC+1 ; STATUS MESSAGE
SCCSTA: LOC=LOC+1 ; SCC STATUS
NTSTAT: LOC=LOC+1 ; NICS-TARE STATUS
;----------------------------------------------------------------------
NAMES END ▶1a◀