DataMuseum.dk

top - download

    Length: 3230 (0xc9e)
    Types: TextFile
    Names: »FIX_INIT_PREFIXS«

└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
    └─⟦9c1658a4c⟧ 
        └─ ⟦this⟧ »SCCINIT.D!FIX_INIT_PREFIXS« 

TextFile

"********************************************************************"
" PREFIX FOR MTCB-MONITOR AND QACCESS-MONITOR                        "
"********************************************************************"

TYPE
  SYSDATA=
    RECORD
      S0,S1,S2,S3,S4,S5,S6,S7: INTEGER;
      BASE,MOD,PROG,PRPC:      INTEGER;
      TIMER,PSW,OLDPROC:       INTEGER;
      LOCACT,LOCRET:           INTEGER;
      CAUSE,DEVPR,TIMER_RESET: INTEGER;
      MONRET,TLINK:            INTEGER;
      L0,L1,L2,L3,L4,L5,L6,L7: INTEGER;
    END;

  MTCB1=
    RECORD
      PAGE, OFFS, SMTCB:    INTEGER;
      MPCB, MPROC:         INTEGER;
      NMTCB, NIMF, NPDB:   INTEGER;
    END;

  MTCB2=
    RECORD
      MPCB, PPCBI0, MPROC, PSAAR1, SAARWUS: INTEGER;
      NSUBSYS, PUPMASK:                     INTEGER;
      PMTCB, NMTCB, IFFMTCB:                INTEGER;
      PIMF, NIMF, IFFIMF:                   INTEGER;
      PPDB, NPDB, IFFPDB:                   INTEGER;
      SEM:                                  INTEGER;
    END;

  SAAR=
    RECORD
      WORKREF, SUBSYSNO:                    INTEGER;
      IMFFD, HDBFD, PDBFD:                  INTEGER;
      OWNPSW, PMTCBE, BLINK:                INTEGER;
      S0,S1,S2,S3,S4,S5,S6,LINK:            INTEGER;
    END;

  MTCBE=
    RECORD
      CW:                                   INTEGER;
      W1, W2, W3, W4, W5, W6, W7:           INTEGER;
      FILE:                                 INTEGER;
    END;

  BLOCK=
    RECORD
      W0,W1,W2,W3,W4,W5,W6:      INTEGER;
      W7,W8,W9,W10,W11,W12:      INTEGER;
    END;

  PSEUDO=
    RECORD
      TAG,CAT,SUBCAT,BYTE2:      INTEGER;
      W2,W3,W4,W5,W6,W7:         INTEGER;
    END;

  REAL=
    RECORD
      TAG,APREC,IPREC,CLASS,SPEC:INTEGER;
      TYP,LENGTH,HDB0,HDB1:      INTEGER;
      W4,W5,W6,W7:               INTEGER;
    END;

  ER_OK=(ER,OK);

  QB = ARRAY[1..13] OF INTEGER;

  PB = ARRAY[1..23] OF INTEGER;

  QACCESS1 = RECORD
      QPAGE,
      OFFSET,
      QSIZE,
      NO_TERMINALS,
      NO_QUEUES,
      NO_QUEUE_PROCEDURES,
      NO_QUEUE_ELEMENTS :INTEGER
    END;


CONST


  MTCB=107;

  INITE=0;
  CREAT=1;
  RESERVE=2;
  RELEAS=3;
  WRITE=4;
  READ=5;
  CREATEFILE=6;
  GETFILE=7;
  RELEASEFILE=8;
  
  QACCESS=108;

  DATA_INIT=0;
  SET_THRESH=1;
  LENGTH=2;
  LENGTH_GR=3;
  READ_NON=4;
  READ_DEST=5;
  READ_GR_EL=6;
  DEL=7;
  INS=8;
  REORG=9;
  APPEND=10;
  REL_ACT_FLAG=11;



  P_MTCBDATA=4;
  P_QACCESSDATA=20;

  PCBI_OUT_OF_RANGE=        «stx»#0901;
  NOT_INITED=               #0902;
  MTCBI_OUT_OF_RANGE=       #0903;
  MTCB_NOT_IN_USE=          #0904;
  ALL_SAVE_AREAS_USED=      #0905;
  SUBSYSNO_OUT_OF_RANGE=    #0906;
  NO_MTCB_AVAILABLE=        #0907;
  ILLEGAL_UPDATE_CODE=      #0908;
  USE_COUNT_GT1=            #0909;
  FILE_ALREADY_EXISTS=      #090A;
  NO_IMF_SPACE_AVAILABLE=   #090B;
  NO_PDB_FILE_AVAILABLE=    #090C;
  NO_FILE_REF=              #090D;
  NO_FILE_IN_USE=           #090E;

  QPAGE=1;
  OFFSET=#1000;
  QSIZE=1000;
  NO_TERMINALS=42;
  NO_QUEUES=500;
  NO_QUEUE_PROCEDURES=40;
  NO_QUEUE_ELEMENTS=100;

  PAGE=1;
  OFFS=#E000;
  PMTCB1=4;
  MPCB=28;
  MPROC=30;
  NMTCB=60;
  NIMF=40;
  NPDB=20;
  SMTCB=SIZE(MTCB2)+(MPCB+1)+(MPROC*16)+
         6+(NMTCB*9)+NIMF+NPDB; E