DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦f922c4bd7⟧ TextFile

    Length: 7595 (0x1dab)
    Types: TextFile
    Names: »PI3.DCL«

Derivation

└─⟦289818552⟧ Bits:30010516 DVBS1.SW2114.src.2.7-3 SW2114 3/4 Real Time Pascal 2.7
    └─⟦this⟧ »RTPSTD\PI3.DCL« 
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
    └─⟦this⟧ »RTPSTD\PI3.DCL« 
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
    └─⟦this⟧ »RTPSTD\PI3.DCL« 
└─⟦d5707feda⟧ Bits:30010512 DVBS1.SW2114.src.2.14-3 SW2114 REAL #3/4 TIME PASCAL SOURCE REL 2.14 92.09.01
    └─⟦this⟧ »RTPSTD\PI3.DCL«

TextFile

$ EJECT\r
; type definitions and values for PI-3 monitor and IMC as described\r
; in the reference manuals\r
\r
; Revision history:\r
; @(#)pi3.dcl	1.1 ((c) RC International) 11/7/89\r
; 840208: Archived on RC890-ARK-01 as PI3DCL.01\r
; 840320: fault codes added for arithmetic errors\r
; 840530: Archived on RC890-ARK-003 as PI3DCL.02\r
; 840604: shielded type shared added\r
; 840820: Archived on RC890-ARK-004 as PI3DCL.03\r
; 840918: handling of local references added (larger process descriptor)\r
; 850205: Archived on RC890-ARK-005 as PI3DCL.04\r
; 850215: cleanup fields for heap added to process descriptor (only if RTP)\r
; 850510: fault code F_NEWMEM added\r
; 850619: file renamed as PI3X.DCL after introduction of RTP switch\r
; 850619: Archived on RC890-ARK-007 as PI3XDCL.01\r
; 850704: test on RTP switch removed and name changed back to PI3.DCL\r
; 850829: Archived on RC890-ARK-007 as PI3DCL.06\r
; 860226: New faultcode F_MEMERROR\r
; 860304: Change in process structure: prev_process renamed to PI3mode\r
;         forward and backward inserted as 2 words\r
; 860306: Archived on RC890-ARK-010 as PI3DCL.07\r
; 860602: PI3mode split to 2 byte variables MB_window and PI3mode\r
; 860825: New type for poolparam values: pp_\r
; 861022: Archived on RC890-ARK-012 as PI3DCL.08\r
; 881028: fault code F_OPENREJECT added (ASA)\r
; 891107: First SCCS version\r
\r
chains         STRUC\r
  forward        DW ?\r
  backward       DW ?\r
chains         ENDS\r
\r
mailbox        STRUC\r
  mbx            DW 0\r
  s              DW 0\r
  m_next         DD ?\r
mailbox        ENDS\r
\r
reference      STRUC\r
  topbuf         DW 0\r
  locked         DW -1\r
  r_next         DD ?\r
reference      ENDS\r
\r
local_ref      STRUC\r
                 DB 8 DUP (?)\r
  r_mark         DW ?\r
local_ref      ENDS\r
\r
$ EJECT\r
chain          STRUC\r
  curbuf         DW 0\r
  c_locked       DW -1\r
  stpoint        DW ?\r
  c_length       DW ?\r
  c_next         DD ?\r
chain          ENDS\r
\r
semaphore      STRUC\r
  sem            DW 0\r
  s_s            DW 0\r
  s_next         DD ?\r
semaphore      ENDS\r
\r
pool           STRUC\r
  p_mbx          DW 0\r
  p_s            DW 0\r
  p_size         DW -1\r
  mem            DB ?\r
  p_bufs         DW ?\r
  p_next         DD ?\r
pool           ENDS\r
\r
process        STRUC\r
  procvar        DW 0\r
  pr_next        DD ?\r
process        ENDS\r
\r
port           STRUC\r
  prt            DW 0\r
  prt_state      DB 0\r
  prt_next       DD ?\r
port           ENDS\r
\r
shared         STRUC\r
  dataptr        DD ?\r
  c              DW 0\r
  sh_next        DD ?\r
shared         ENDS\r
\r
$ EJECT\r
internal_LBDR  STRUC\r
  entrypoint     DW ?\r
  linetable      DW 0\r
  globalsize     DW 0\r
  appetite       DW 0\r
internal_LBDR  ENDS\r
\r
external_LBDR  STRUC\r
                 DW ?\r
                 DW 0\r
                 DW ?\r
                 DW ?\r
  segsize        DW ?\r
  linkcount      DB 0\r
  LBDR_next      DD ?\r
  blname         DB 12\r
                 DB '            '\r
  blkind         DB 1\r
external_LBDR  ENDS\r
\r
program_descriptor STRUC\r
  s_state        DB ?\r
  paramdesc      DD ?\r
  poolparam      DB 0\r
  LBDR           DD ?\r
  prgname        DB 12\r
                 DB '            '\r
  sp_count       DW 0\r
  paramptr       DD ?\r
  noparams       DB ?\r
  sp_next        DD ?\r
program_descriptor ENDS\r
\r
$ EJECT\r
process_descriptor STRUC\r
                 DW 0 ; forward\r
                 DW 0 ; backward\r
  p_state        DB 0\r
  actvtn         DB 0\r
  waitref        DD 0\r
  waitmbx        DD 0\r
  timerlink      DW 0\r
  timer          DW 0\r
  faultcode      DW 0\r
  callframe      DW 0\r
  excentry       DD 0\r
  stacksize      DW 0\r
  stackbound     DW 0\r
  SPt            DW 0\r
  prog           DW 0\r
  parent         DW 0\r
  procname       DB 4,'    '\r
  priority       DB 0\r
  next_process   DW 0\r
  MB_window      DB 0\r
  PI3mode        DB 0\r
; the remaining fields are heads of cleanup chains\r
  mbxshead       DD 0\r
  refshead       DD 0\r
  locrefshead    DD 0\r
  locrefsmark    DW 0\r
  chainshead     DD 0\r
  semaphshead    DD 0\r
  poolshead      DD 0\r
  procshead      DD 0\r
  portshead      DD 0\r
  subprogshead   DD 0\r
  shareshead     DD 0\r
  newshead	 DW 0\r
  newssmall	 DW 0\r
  imc_ref        DB SIZE reference DUP(0)\r
process_descriptor ENDS\r
\r
$ EJECT\r
attribute_part STRUC\r
                 DB  SIZE chains DUP(?)\r
  datasize       DW ?\r
  dataoffset     DW ?\r
  datapart       DW ?\r
  top            DW ?\r
  bytecount      DW ?\r
  returnaddr     DD ?\r
  home           DD ?\r
  eventkind      DB ?\r
  index          DB ?\r
  creditcount    DB ?\r
  reason         DB ?\r
  u1             DB ?\r
  u2             DB ?\r
  u3             DB ?\r
  u4             DB ?\r
  stack          DW ?\r
  depth          DW ?\r
  bufcount       DW ?\r
  b_next         DW ?\r
                 DB  5 DUP(?)\r
  wb             DB ?\r
  w1             DW ?\r
  w2             DW ?\r
attribute_part ENDS\r
\r
$ EJECT\r
; fault codes\r
\r
F_NIL        EQU 1\r
F_NOTNIL     EQU 2\r
F_LOCKED     EQU 3\r
F_EMPTY      EQU 4\r
F_ALREADY    EQU 5\r
F_NOTINIT    EQU 6\r
F_UNLINKED   EQU 7\r
F_POOL       EQU 8\r
F_DEEP       EQU 9\r
F_BADLEVEL   EQU 11\r
F_STSIZE     EQU 12\r
F_DIV0       EQU 13\r
F_OVERFLOW   EQU 14\r
F_MEMERROR   EQU 15\r
F_NEWMEM     EQU 18\r
F_CEPRANGE   EQU 21\r
F_CEPSTATE   EQU 22\r
F_STRING     EQU 23\r
F_CONS       EQU 24\r
F_AREA       EQU 25\r
F_NOTRCVALL  EQU 26\r
F_ROOM       EQU 27\r
F_OPENREJECT EQU 28\r
F_STACK      EQU 41\r
\r
$ EJECT\r
; results from PI-3 calls\r
\r
; results from combined waits\r
\r
a_buffer    EQU 0\r
a_mailbox   EQU 0\r
a_timeout   EQU 1\r
a_delay     EQU 1\r
a_semaphore EQU 2\r
a_interrupt EQU 3\r
\r
; results from load\r
\r
LOAD_OK     EQU 0\r
LOAD_FILE   EQU 1\r
LOAD_FORMAT EQU 2\r
LOAD_MEMORY EQU 3\r
LOAD_SEARCH EQU 4\r
\r
; results from link\r
\r
LINK_OK      EQU 0\r
LINK_ALREADY EQU 5\r
LINK_PROGRAM EQU 6\r
\r
; results from unlink\r
\r
UNLINK_OK        EQU 0\r
UNLINK_NOTLINKED EQU 1\r
UNLINK_INCSEXIST EQU 2\r
\r
; results from create\r
\r
CREATE_OK     EQU 0\r
CREATE_MEMORY EQU 1\r
\r
; program states\r
\r
unlinked   EQU 0\r
linked     EQU 1\r
internal   EQU 2\r
\r
$ EJECT\r
; memory kinds\r
\r
MEM_PRIVATE        EQU 0\r
MEM_DUALPORT       EQU 1\r
MEM_BOARD          EQU 2\r
\r
; event kinds\r
\r
NOT_EVENT          EQU   0\r
MESSAGE_EVENT      EQU   1\r
ANSWER_EVENT       EQU   2\r
REMOVED_EVENT      EQU   3\r
PORT_CLOSED        EQU   4\r
DISCONNECTED       EQU   5\r
LETTER_SENT        EQU   6\r
LETTER_ARRIVED     EQU   7\r
LOCAL_CONNECT      EQU   8\r
REMOTE_CONNECT     EQU   9\r
RESET_INDICATION   EQU  10\r
RESET_COMPLETION   EQU  11\r
CREDIT             EQU  12\r
DATA_SENT          EQU  13\r
DATA_ARRIVED       EQU  14\r
DATA_OVERRUN       EQU  15\r
DUMMY_LETTER       EQU  16\r
DUMMY_LCNCT        EQU  17\r
DUMMY_RCNCT        EQU  18\r
DUMMY_RINDIC       EQU  19\r
DUMMY_RCMPL        EQU  20\r
DUMMY_CREDIT       EQU  21\r
DUMMY_SENT         EQU  22\r
DUMMY_ARRIVED      EQU  23\r
MSL_message        EQU  24\r
MSL_answer         EQU  25\r
TEST_event         EQU  26\r
\r
$ EJECT\r
; event reasons\r
\r
R_OK               EQU   0\r
R_NAME             EQU   1\r
R_RESOURCE         EQU   2\r
R_CLOSED           EQU   3\r
R_NETWORK          EQU   4\r
\r
mslopen            EQU   0\r
mslreceive         EQU   1\r
mslsend            EQU   2\r
mslmessage         EQU   5\r
mslreturn          EQU   6\r
mslchange          EQU   1\r
\r
anonymous          EQU   0\r
local              EQU   1\r
regional           EQU   2\r
global             EQU   3\r
\r
st_closed          EQU   0\r
st_open            EQU   1\r
st_closing         EQU   2\r
\r
; connection service\r
\r
cs_normal          EQU   0\r
cs_high            EQU   1\r
\r
pp_pool            EQU   1\r
pp_namer           EQU   2\r