DataMuseum.dk

top - download

    Length: 5178 (0x143a)
    Types: TextFile
    Names: »MES_REGION_INITS«

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

TextFile

SUBMODULE MES_REGION_INIT;

%SOURCE @**GENS.D*SWELLPREFIX.D*GENERALPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*MONITORNAMES.S
%SOURCE @**GENS.D*SWELLPREFIX.D*IOSPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*X2GENPARAMS.S
%SOURCE @**GENS.D*SWELLPREFIX.D*KERNELPARAMS.S
%SOURCE @**USERS.D*BB.D*ITM.D*ITMPREFIX.S

VAR  CLASS2_ARRAY           : ARRAY [0..59] OF BYTE;
INIT
  CLASS2_ARRAY [0..3] = 'UKL';
  CLASS2_ARRAY [4..7] = 'UNCL';
  CLASS2_ARRAY [8..11] = 'NU(:0:)';
  CLASS2_ARRAY [12..15] = 'TTJ';
  CLASS2_ARRAY [16..19] = 'REST';
  CLASS2_ARRAY [20..23] = 'NR(:0:)';
  CLASS2_ARRAY [24..27] = 'FTR';
  CLASS2_ARRAY [28..31] = 'CONF';
  CLASS2_ARRAY [32..35] = 'NC(:0:)';
  CLASS2_ARRAY [36..39] = 'HEM';
  CLASS2_ARRAY [40..43] = 'SECR';
  CLASS2_ARRAY [44..47] = 'NS(:0:)';
  CLASS2_ARRAY [48..51] = 'YHM';
  CLASS2_ARRAY [52..55] = 'TSEC';
  CLASS2_ARRAY [56..59] = 'CTS';

VAR  CLASS1_ARRAY           : ARRAY [0..271] OF BYTE;
INIT
  CLASS1_ARRAY [0..17]  = 'UKLASSIFICERET    ';
  CLASS1_ARRAY [18..35] = 'UNCLASSIFIED      ';
  CLASS1_ARRAY [36..53] = 'NATO UNCLASSIFIED ';
  CLASS1_ARRAY [54..71] = 'TIL TJENESTEBRUG  ';
  CLASS1_ARRAY [72..89] = 'RESTRICTED        ';
  CLASS1_ARRAY [90..107] = 'NATO RESTRICTED   ';
  CLASS1_ARRAY [108..125] = 'FORTROLIGT        ';
  CLASS1_ARRAY [126..143] = 'CONFIDENTIAL      ';
  CLASS1_ARRAY [144..161] = 'NATO CONFIDENTIAL ';
  CLASS1_ARRAY [162..179] = 'HEMMELIGT         ';
  CLASS1_ARRAY [180..197] = 'SECRET            ';
  CLASS1_ARRAY [198..215] = 'NATO SECRET       ';
  CLASS1_ARRAY [216..233] = 'YDERST HEMMELIGT  ';
  CLASS1_ARRAY [234..251] = 'TOP SECRET        ';
  CLASS1_ARRAY [252..271] = 'COSMIC TOP SECRET ';

VAR  STEVTB_ARRAY           : ARRAY [0..11] OF INTEGER;
INIT STEVTB_ARRAY           = #FFFC,
                              #0005,
                              #FFFA,
                              #0007,
                              #0008,
                              #0009,
                              #FFF6,
                              #0000,
                              #000C,
                              #FFF3,
                              #FFF2,
                              #0000;

VAR  CLASS2_RCB             : REGION_CREATION_BLOCK;
INIT CLASS2_RCB.NAME        = 'CLASS2';
INIT CLASS2_RCB.PAGE        = 4;
INIT CLASS2_RCB.ADDR        = #9000;
INIT CLASS2_RCB.WORD_SIZE   = 30;

VAR  CLASS1_RCB             : REGION_CREATION_BLOCK;
INIT CLASS1_RCB.NAME        = 'CLASS1';
INIT CLASS1_RCB.PAGE        = 4;
INIT CLASS1_RCB.ADDR        = #9100;
INIT CLASS1_RCB.WORD_SIZE   = 135;


VAR  STEVTB_RCB             : REGION_CREATION_BLOCK;
INIT STEVTB_RCB.NAME        = 'STEVTB';
INIT STEVTB_RCB.PAGE        = 4;
INIT STEVTB_RCB.ADDR        = #9200;
INIT STEVTB_RCB.WORD_SIZE   = 12;


VAR  CLASS2_NAME               : REGION_NAME;
INIT CLASS2_NAME.NAME          = 'CLASS2';

VAR  CLASS1_NAME               : REGION_NAME;
INIT CLASS1_NAME.NAME          = 'CLASS1';

VAR  STEVTB_NAME               : REGION_NAME;
INIT STEVTB_NAME.NAME          = 'STEVTB';

LABEL
  C1,C2,C5,
  E1,E2,E5,
  P1,P2,P5,
  L1,L2,L5,
  MONERROR;


EXPORT PROCEDURE MES_REGION_INIT(R6);


BEGIN
  MON(REGION,RCREATE,
      ADDRESS(CLASS2_RCB) =>R0,
                              R7);
  GOTO C1;

  MON(REGION,RENTER,
      ADDRESS(CLASS2_NAME) =>R0,
                             R7);
  GOTO E1;

  MON(REGION,RPUTN,
      ADDRESS(CLASS2_NAME) =>R0,
                         0 =>R1,
      ADDRESS(CLASS2_ARRAY)=>R2,
                        30 =>R3,
                             R7);
  GOTO P1;

  MON(REGION,RLEAVE,
      ADDRESS(CLASS2_NAME) =>R0,
                             R7);
  GOTO L1;

  MON(REGION,RCREATE,
      ADDRESS(CLASS1_RCB) =>R0,
                              R7);
  GOTO C2;

  MON(REGION,RENTER,
      ADDRESS(CLASS1_NAME) =>R0,
                             R7);
  GOTO E2;

  MON(REGION,RPUTN,
      ADDRESS(CLASS1_NAME) =>R0,
                         0 =>R1,
      ADDRESS(CLASS1_ARRAY)=>R2,
                        135 =>R3,
                             R7);
  GOTO P2;

  MON(REGION,RLEAVE,
      ADDRESS(CLASS1_NAME) =>R0,
                             R7);
  GOTO L2;


  MON(REGION,RCREATE,
      ADDRESS(STEVTB_RCB) =>R0,
                              R7);
  GOTO C5;

  MON(REGION,RENTER,
      ADDRESS(STEVTB_NAME) =>R0,
                             R7);
  GOTO E5;

  MON(REGION,RPUTN,
      ADDRESS(STEVTB_NAME) =>R0,
                         0 =>R1,
      ADDRESS(STEVTB_ARRAY)=>R2,
                        12 =>R3,
                             R7);
  GOTO P5;

  MON(REGION,RLEAVE,
      ADDRESS(STEVTB_NAME) =>R0,
                             R7);
  GOTO L5;

  EXIT(R6);

C1:
   19 => R1;
   GOTO MONERROR;
C2:
   29 => R1;
   GOTO MONERROR;
C5:
   59 => R1;
   GOTO MONERROR;
E1:
   79 => R1;
   GOTO MONERROR;
E2:
   89 => R1;
   GOTO MONERROR;
E5:
   119 => R1;
   GOTO MONERROR;
P1:
   139 => R1;
   GOTO MONERROR;
P2:
   149 => R1;
   GOTO MONERROR;
P5:
   179 => R1;
   GOTO MONERROR;
L1:
   199 => R1;
   GOTO MONERROR;
L2:
   209 => R1;
   GOTO MONERROR;
L5:
   239 => R1;
   GOTO MONERROR;
MONERROR:
  MON(ERROR,
      R7 =>R0,
           R1,
           R7);
END;
ENDMODULE