|
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: 7562 (0x1d8a)
Types: TextFile
Names: »MES_REGION_INITP«
└─⟦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_INITP«
======== MES_REGION_INITS
00.00001 SUBMODULE MES_REGION_INIT;
00.00002
00.00003 %SOURCE
======== GENERALPARAMS.S«nul»
======== MES_REGION_INITS
00.00003
00.00004 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== MES_REGION_INITS
00.00004
00.00005 %SOURCE
======== IOSPARAMS.S«nul»«nul»«nul»«nul»«nul»
======== MES_REGION_INITS
00.00005
00.00006 %SOURCE
======== X2GENPARAMS.S«nul»«nul»«nul»
======== MES_REGION_INITS
00.00006
00.00007 %SOURCE
======== KERNELPARAMS.S«nul»«nul»
======== MES_REGION_INITS
00.00007
00.00008 %SOURCE
======== ITMPREFIX.S«nul»«nul»«nul»«nul»«nul»
06.00466 %SOURCE
======== ERRORPREFIX.S«nul»«nul»«nul»
======== ITMPREFIX.S«nul»«nul»«nul»«nul»«nul»
06.00466
06.00467 %NOLIST
======== MES_REGION_INITS
00.00008
00.00009
00.00010 VAR CLASS2_ARRAY : ARRAY [0..59] OF BYTE;
00.00011 INIT
00.00012 CLASS2_ARRAY [0..3] = 'UKL';
00.00013 CLASS2_ARRAY [4..7] = 'UNCL';
00.00014 CLASS2_ARRAY [8..11] = 'NU(:0:)';
00.00015 CLASS2_ARRAY [12..15] = 'TTJ';
00.00016 CLASS2_ARRAY [16..19] = 'REST';
00.00017 CLASS2_ARRAY [20..23] = 'NR(:0:)';
00.00018 CLASS2_ARRAY [24..27] = 'FTR';
00.00019 CLASS2_ARRAY [28..31] = 'CONF';
00.00020 CLASS2_ARRAY [32..35] = 'NC(:0:)';
00.00021 CLASS2_ARRAY [36..39] = 'HEM';
00.00022 CLASS2_ARRAY [40..43] = 'SECR';
00.00023 CLASS2_ARRAY [44..47] = 'NS(:0:)';
00.00024 CLASS2_ARRAY [48..51] = 'YHM';
00.00025 CLASS2_ARRAY [52..55] = 'TSEC';
00.00026 CLASS2_ARRAY [56..59] = 'CTS';
00.00027
00.00028 VAR CLASS1_ARRAY : ARRAY [0..271] OF BYTE;
00.00029 INIT
00.00030 CLASS1_ARRAY [0..17] = 'UKLASSIFICERET ';
00.00031 CLASS1_ARRAY [18..35] = 'UNCLASSIFIED ';
00.00032 CLASS1_ARRAY [36..53] = 'NATO UNCLASSIFIED ';
00.00033 CLASS1_ARRAY [54..71] = 'TIL TJENESTEBRUG ';
00.00034 CLASS1_ARRAY [72..89] = 'RESTRICTED ';
00.00035 CLASS1_ARRAY [90..107] = 'NATO RESTRICTED ';
00.00036 CLASS1_ARRAY [108..125] = 'FORTROLIGT ';
00.00037 CLASS1_ARRAY [126..143] = 'CONFIDENTIAL ';
00.00038 CLASS1_ARRAY [144..161] = 'NATO CONFIDENTIAL ';
00.00039 CLASS1_ARRAY [162..179] = 'HEMMELIGT ';
00.00040 CLASS1_ARRAY [180..197] = 'SECRET ';
00.00041 CLASS1_ARRAY [198..215] = 'NATO SECRET ';
00.00042 CLASS1_ARRAY [216..233] = 'YDERST HEMMELIGT ';
00.00043 CLASS1_ARRAY [234..251] = 'TOP SECRET ';
00.00044 CLASS1_ARRAY [252..271] = 'COSMIC TOP SECRET ';
00.00045
00.00046 VAR STEVTB_ARRAY : ARRAY [0..11] OF INTEGER;
00.00047 INIT STEVTB_ARRAY = #FFFC,
00.00048 #0005,
00.00049 #FFFA,
00.00050 #0007,
00.00051 #0008,
00.00052 #0009,
00.00053 #FFF6,
00.00054 #0000,
00.00055 #000C,
00.00056 #FFF3,
00.00057 #FFF2,
00.00058 #0000;
00.00059
00.00060 VAR CLASS2_RCB : REGION_CREATION_BLOCK;
00.00061 INIT CLASS2_RCB.NAME = 'CLASS2';
00.00062 INIT CLASS2_RCB.PAGE = 4;
00.00063 INIT CLASS2_RCB.ADDR = #9000;
00.00064 INIT CLASS2_RCB.WORD_SIZE = 30;
00.00065
00.00066 VAR CLASS1_RCB : REGION_CREATION_BLOCK;
00.00067 INIT CLASS1_RCB.NAME = 'CLASS1';
00.00068 INIT CLASS1_RCB.PAGE = 4;
00.00069 INIT CLASS1_RCB.ADDR = #9100;
00.00070 INIT CLASS1_RCB.WORD_SIZE = 135;
00.00071
00.00072
00.00073 VAR STEVTB_RCB : REGION_CREATION_BLOCK;
00.00074 INIT STEVTB_RCB.NAME = 'STEVTB';
00.00075 INIT STEVTB_RCB.PAGE = 4;
00.00076 INIT STEVTB_RCB.ADDR = #9200;
00.00077 INIT STEVTB_RCB.WORD_SIZE = 12;
00.00078
00.00079
00.00080 VAR CLASS2_NAME : REGION_NAME;
00.00081 INIT CLASS2_NAME.NAME = 'CLASS2';
00.00082
00.00083 VAR CLASS1_NAME : REGION_NAME;
00.00084 INIT CLASS1_NAME.NAME = 'CLASS1';
00.00085
00.00086 VAR STEVTB_NAME : REGION_NAME;
00.00087 INIT STEVTB_NAME.NAME = 'STEVTB';
00.00088
00.00089 LABEL
00.00090 C1,C2,C5,
00.00091 E1,E2,E5,
00.00092 P1,P2,P5,
00.00093 L1,L2,L5,
00.00094 MONERROR;
00.00095
00.00096
00.00097 EXPORT PROCEDURE MES_REGION_INIT(R6);
00.00098
00.00099
00.00100 BEGIN
00.00101 MON(REGION,RCREATE,
00.00102 ADDRESS(CLASS2_RCB) =>R0,
00.00103 R7);
00.00104 GOTO C1;
00.00105
00.00106 MON(REGION,RENTER,
00.00107 ADDRESS(CLASS2_NAME) =>R0,
00.00108 R7);
00.00109 GOTO E1;
00.00110
00.00111 MON(REGION,RPUTN,
00.00112 ADDRESS(CLASS2_NAME) =>R0,
00.00113 0 =>R1,
00.00114 ADDRESS(CLASS2_ARRAY)=>R2,
00.00115 30 =>R3,
00.00116 R7);
00.00117 GOTO P1;
00.00118
00.00119 MON(REGION,RLEAVE,
00.00120 ADDRESS(CLASS2_NAME) =>R0,
00.00121 R7);
00.00122 GOTO L1;
00.00123
00.00124 MON(REGION,RCREATE,
00.00125 ADDRESS(CLASS1_RCB) =>R0,
00.00126 R7);
00.00127 GOTO C2;
00.00128
00.00129 MON(REGION,RENTER,
00.00130 ADDRESS(CLASS1_NAME) =>R0,
00.00131 R7);
00.00132 GOTO E2;
00.00133
00.00134 MON(REGION,RPUTN,
00.00135 ADDRESS(CLASS1_NAME) =>R0,
00.00136 0 =>R1,
00.00137 ADDRESS(CLASS1_ARRAY)=>R2,
00.00138 135 =>R3,
00.00139 R7);
00.00140 GOTO P2;
00.00141
00.00142 MON(REGION,RLEAVE,
00.00143 ADDRESS(CLASS1_NAME) =>R0,
00.00144 R7);
00.00145 GOTO L2;
00.00146
00.00147
00.00148 MON(REGION,RCREATE,
00.00149 ADDRESS(STEVTB_RCB) =>R0,
00.00150 R7);
00.00151 GOTO C5;
00.00152
00.00153 MON(REGION,RENTER,
00.00154 ADDRESS(STEVTB_NAME) =>R0,
00.00155 R7);
00.00156 GOTO E5;
00.00157
00.00158 MON(REGION,RPUTN,
00.00159 ADDRESS(STEVTB_NAME) =>R0,
00.00160 0 =>R1,
00.00161 ADDRESS(STEVTB_ARRAY)=>R2,
00.00162 12 =>R3,
00.00163 R7);
00.00164 GOTO P5;
00.00165
00.00166 MON(REGION,RLEAVE,
00.00167 ADDRESS(STEVTB_NAME) =>R0,
00.00168 R7);
00.00169 GOTO L5;
00.00170
00.00171 EXIT(R6);
00.00172
00.00173 C1:
00.00174 19 => R1;
00.00175 GOTO MONERROR;
00.00176 C2:
00.00177 29 => R1;
00.00178 GOTO MONERROR;
00.00179 C5:
00.00180 59 => R1;
00.00181 GOTO MONERROR;
00.00182 E1:
00.00183 79 => R1;
00.00184 GOTO MONERROR;
00.00185 E2:
00.00186 89 => R1;
00.00187 GOTO MONERROR;
00.00188 E5:
00.00189 119 => R1;
00.00190 GOTO MONERROR;
00.00191 P1:
00.00192 139 => R1;
00.00193 GOTO MONERROR;
00.00194 P2:
00.00195 149 => R1;
00.00196 GOTO MONERROR;
00.00197 P5:
00.00198 179 => R1;
00.00199 GOTO MONERROR;
00.00200 L1:
00.00201 199 => R1;
00.00202 GOTO MONERROR;
00.00203 L2:
00.00204 209 => R1;
00.00205 GOTO MONERROR;
00.00206 L5:
00.00207 239 => R1;
00.00208 GOTO MONERROR;
00.00209 MONERROR:
00.00210 MON(ERROR,
00.00211 R7 =>R0,
00.00212 R1,
00.00213 R7);
00.00214 END;
00.00215 ENDMODULE
LINES: 1862
CODESIZE VARSIZE CONSTSIZE TEMPSIZE
-------- ------- --------- --------
#0063 #00D0 #0000 #0000