|
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: 23798 (0x5cf6)
Types: TextFile
Names: »PSM_INIT_REST.P«
└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
└─⟦9c1658a4c⟧
└─ ⟦this⟧ »SCCINIT.D!PSM_INIT_REST.P«
======== PSM_INIT_REST.S«nul»
00.00001 SUBMODULE PSM_INIT_REST;
00.00002 %NOLIST
00.00004
00.00005 %SOURCE
======== GENERALPARAMS.S«nul»
======== PSM_INIT_REST.S«nul»
00.00005
00.00006 %SOURCE
======== MONITORNAMES.S«nul»«nul»
======== PSM_INIT_REST.S«nul»
00.00006
00.00007 %SOURCE
======== IOSPARAMS.S«nul»«nul»«nul»«nul»«nul»
======== PSM_INIT_REST.S«nul»
00.00007
00.00008 %SOURCE
======== X2GENPARAMS.S«nul»«nul»«nul»
======== PSM_INIT_REST.S«nul»
00.00008
00.00009 %SOURCE
======== KERNELPARAMS.S«nul»«nul»
======== PSM_INIT_REST.S«nul»
00.00009
00.00010 %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
======== PSM_INIT_REST.S«nul»
00.00010
00.00011 «ff»00.00012 "PAGE
00.00012
00.00013
00.00014 EXPORT PROCEDURE PSM_INIT_REST "
00.00015 (R6); "LINK
00.00016
00.00017
00.00018 CONST CRTCB_SIZE = 248;
00.00019 CONST CRCRT_SIZE = 135;
00.00020 CONST CRFNT_SIZE = 30;
00.00021 CONST CRPTT_SIZE = 571;
00.00022
00.00023
00.00024 VAR TCB_RCB : REGION_CREATION_BLOCK;
00.00025
00.00026 INIT TCB_RCB.NAME = 'XTCBCR';
00.00027 INIT TCB_RCB.PAGE = 4;
00.00028 INIT TCB_RCB.ADDR = #8000;
00.00029 INIT TCB_RCB.WORD_SIZE = CRTCB_SIZE;
00.00030
00.00031
00.00032 VAR CRT_RCB : REGION_CREATION_BLOCK;
00.00033
00.00034 INIT CRT_RCB.NAME = 'CRT001';
00.00035 INIT CRT_RCB.PAGE = 4;
00.00036 INIT CRT_RCB.ADDR = #8100;
00.00037 INIT CRT_RCB.WORD_SIZE = CRCRT_SIZE;
00.00038
00.00039
00.00040 VAR FNT_RCB : REGION_CREATION_BLOCK;
00.00041
00.00042 INIT FNT_RCB.NAME = 'FNT001';
00.00043 INIT FNT_RCB.PAGE = 4;
00.00044 INIT FNT_RCB.ADDR = #8200;
00.00045 INIT FNT_RCB.WORD_SIZE = CRFNT_SIZE;
00.00046
00.00047
00.00048 VAR PTT_RCB : REGION_CREATION_BLOCK;
00.00049
00.00050 INIT PTT_RCB.NAME = 'PTT001';
00.00051 INIT PTT_RCB.PAGE = 4;
00.00052 INIT PTT_RCB.ADDR = #8300;
00.00053 INIT PTT_RCB.WORD_SIZE = CRPTT_SIZE;
00.00054
00.00055
00.00056 IMPORT VAR "
00.00057 SAVE00 : REGISTERS;
00.00058 TCB_NAME : REGION_NAME;
00.00059 CRT_NAME : REGION_NAME;
00.00060 PTT_NAME : REGION_NAME;
00.00061 FNT_NAME : REGION_NAME;
00.00062
00.00063
00.00064 VAR TCB_ARRAY : ARRAY[1..CRTCB_SIZE SHIFTLL 1] OF BYTE;
00.00065
00.00066 INIT TCB_ARRAY[1..16] = 0; "TCB NO 00
00.00067 TCB_ARRAY[17..32] = 'FCA',0,0,0,0,0,3,#1,0,0,0,0,0,'F'; "TCB NO 01
00.00068 TCB_ARRAY[33..48] = 'FCB',0,0,0,0,0,0,#39,0,0,30,0,7,'F'; "TCB NO 02
00.00069 TCB_ARRAY[49..64] = 'FCC',0,0,0,0,0,0,#11,0,0,0,0,10,'F'; "TCB NO 03
00.00070 TCB_ARRAY[65..80] = 'FCD',0,0,0,0,0,3,#4,0,0,0,0,12,'F'; "TCB NO 04
00.00071 TCB_ARRAY[81..96] = 'FMA',0,0,0,0,0,0,#19,0,0,0,0,18,'F'; "TCB NO 05
00.00072 TCB_ARRAY[97..112] = 'FMB',0,0,0,0,0,0,#11,0,0,0,0,20,'F'; "TCB NO 06
00.00073 TCB_ARRAY[113..128] = 'FMC',0,0,0,0,0,0,#11,0,0,30,0,22,'F'; "TCB NO 07
00.00074 TCB_ARRAY[129..144] = 'FMD',0,0,0,0,0,5,#4,0,0,0,0,24,'F'; "TCB NO 08
00.00075 TCB_ARRAY[145..160] = 'FME',0,0,0,0,0,3,#2,0,0,0,0,25,'F'; "TCB NO 09
00.00076 TCB_ARRAY[161..176] = 'FMF',0,0,0,0,0,5,#2,0,0,0,0,27,'F'; "TCB NO 10
00.00077 TCB_ARRAY[177..192] = 'FMG',0,0,0,0,0,5,#2,0,0,0,0,29,'F'; "TCB NO 11
00.00078 TCB_ARRAY[193..208] = 'FMH',0,0,0,0,0,5,#2,0,0,0,0,30,'F'; "TCB NO 12
00.00079 TCB_ARRAY[209..224] = 'FMI',0,0,0,0,0,0,#11,0,0,0,0,31,'F'; "TCB NO 13
00.00080 TCB_ARRAY[225..240] = 'FMJ',0,0,0,0,0,0,#11,0,0,0,0,32,'F'; "TCB NO 14
00.00081 TCB_ARRAY[241..256] = 'FMK',0,0,0,0,0,0,#19,0,0,0,0,33,'F'; "TCB NO 15
00.00082 TCB_ARRAY[257..272] = 'FML',0,0,0,0,0,13,#4,0,0,0,0,34,'F'; "TCB NO 16
00.00083 TCB_ARRAY[273..288] = 'FMM',0,0,0,0,0,0,#11,0,0,0,0,35,'F'; "TCB NO 17
00.00084 TCB_ARRAY[289..304] = 'FMN',0,0,0,0,0,0,#11,0,0,0,0,36,'F'; "TCB NO 18
00.00085 TCB_ARRAY[305..320] = 'FMO',0,0,0,0,0,0,#11,0,0,0,0,37,'F'; "TCB NO 19
00.00086 TCB_ARRAY[321..336] = 'FAA',0,0,0,0,0,0,#11,0,0,0,0,38,'F'; "TCB NO 20
00.00087 TCB_ARRAY[337..352] = 'FAB',0,0,0,0,0,0,#11,0,0,0,0,39,'F'; "TCB NO 21
00.00088 TCB_ARRAY[353..368] = 'FAC',0,0,0,0,0,21,#4,0,0,0,0,40,'F'; "TCB NO 22
00.00089 TCB_ARRAY[369..384] = 'FBA',0,0,0,0,0,0,#11,0,0,0,0,42,'F'; "TCB NO 23
00.00090 TCB_ARRAY[385..400] = 'FBB',0,0,0,0,0,0,#11,0,0,0,0,44,'F'; "TCB NO 24
00.00091 TCB_ARRAY[401..416] = 'FBC',0,0,0,0,0,23,#4,0,0,0,0,46,'F'; "TCB NO 25
00.00092 TCB_ARRAY[417..432] = 0; "TCB NO 26
00.00093 TCB_ARRAY[433..448] = 0; "TCB NO 27
00.00094 TCB_ARRAY[449..464] = 0; "TCB NO 28
00.00095 TCB_ARRAY[465..480] = 0; "TCB NO 29
00.00096 TCB_ARRAY[481..496] = 0; "TCB NO 30
00.00097
00.00098
00.00099 VAR CRT_ARRAY : ARRAY[1..CRCRT_SIZE SHIFTLL 1] OF BYTE;
00.00100
00.00101 INIT CRT_ARRAY =
00.00102
00.00103 23,0,43,0,44,0,
00.00104 'LON',1,
00.00105 'LOF',2,
00.00106 'PEL',3,
00.00107 'PRL',4,
00.00108 'PES',5,
00.00109 'PRS',6,
00.00110 'DQI',7,
00.00111 'STA',8,
00.00112 'SPH',9,
00.00113 'DRT',10,
00.00114 'LST',11,
00.00115 'PRN',12,
00.00116 'REL',13,
00.00117 'DRL',14,
00.00118 'DEL',15,
00.00119 'EDI',16,
00.00120 'COO',17,
00.00121 'DCO',18,
00.00122 'RAD',19,
00.00123 'RAE',20,
00.00124 'RTR',21,
00.00125 'RDT',22,
00.00126 'QST',23,
00.00127 'DDT',24,
00.00128 'DSM',25,
00.00129 'DAL',26,
00.00130 'DQS',27,
00.00131 'PMJ',28,
00.00132 'PML',29,
00.00133 'PST',30,
00.00134 'BLT',31,
00.00135 'UBT',32,
00.00136 'ISI',33,
00.00137 'ROQ',34,
00.00138 'REQ',35,
00.00139 'RRT',36,
00.00140 'RET',37,
00.00141 'NPD',38,
00.00142 'NPC',39,
00.00143 'DUR',40,
00.00144 'DRT',41,
00.00145 'DOI',42,
00.00146 'DOT',43,
00.00147 'ESM',44,
00.00148 0,17,
00.00149 0,18,
00.00150 1,1,2,1,3,1,4,1,
00.00151 1,2,2,2,3,2,4,2,5,2,6,2,
00.00152 1,3,2,3,
00.00153 0,4,
00.00154 0,5,
00.00155 1,6,2,6,
00.00156 2,7,1,7,
00.00157 0,8,
00.00158 0,9,
00.00159 0,19,
00.00160 1,10,2,10,
00.00161 1,11,2,11,3,11,4,11,5,11,
00.00162 1,12,2,12,3,12,4,12,5,12,6,12,7,12,
00.00163 1,13,2,13,
00.00164 1,14,2,14,3,14,4,14,
00.00165 0,15;
00.00166
00.00167
00.00168 VAR FNT_ARRAY : ARRAY[1..CRFNT_SIZE SHIFTLL 1] OF BYTE;
00.00169
00.00170 INIT FNT_ARRAY = "
00.00171 'USP001',
00.00172 'RDF',0,0,0,
00.00173 'TCT001';
00.00174
00.00175
00.00176 VAR PTT_ARRAY : ARRAY[1..CRPTT_SIZE SHIFTLL 1] OF BYTE;
00.00177
00.00178 INIT PTT_ARRAY = "
00.00179 0,0, "NOT USED
00.00180 51,0, "LON
00.00181 63,0, "LOF
00.00182 69,0, "PEL
00.00183 69,0, "PRL
00.00184 69,0, "PES
00.00185 69,0, "PRS
00.00186 107,0, "DQI
00.00187 255,0, "STA
00.00188 109,0, "SPH
00.00189 255,0, "DRT
00.00190 111,0, "LST
00.00191 255,0, "PRN
00.00192 113,0, "REL
00.00193 119,0, "DRL
00.00194 125,0, "DEL
00.00195 69,0, "EDI
00.00196 127,0, "COO
00.00197 133,0, "DCO
00.00198 69,0, "RAD
00.00199 69,0, "RAE
00.00200 139,0, "RTR
00.00201 151,0, "RDT
00.00202 255,0, "QST
00.00203 157,0, "DDT
00.00204 161,0, "DSM
00.00205 255,0, "DAL
00.00206 165,0, "DQS
00.00207 255,0, "PMJ
00.00208 255,0, "PML
00.00209 255,0, "PST
00.00210 165,0, "BLT
00.00211 165,0, "UBT
00.00212 165,0, "ISI
00.00213 167,0, "ROQ
00.00214 175,0, "REQ
00.00215 183,0, "RRT
00.00216 165,0, "RET
00.00217 187,0, "NPD
00.00218 187,0, "NPC
00.00219 189,0, "DUR
00.00220 191,0, "DRT
00.00221 255,0, "DOI
00.00222 193,0, "DOT
00.00223 197,0, "ESM
00.00224 0,0, "NOT USED
00.00225 0,0, "NOT USED
00.00226 0,0, "NOT USED
00.00227 0,0, "NOT USED
00.00228 0,0, "NOT USED
00.00229 205,0, "MISCELLANEOUS
00.00230
00.00231 98,1,3,0, "LON
00.00232 151,1,6,0,
00.00233 227,1,5,0,
00.00234 123,1,6,0,
00.00235 223,1,4,0,
00.00236 220,1,3,0,
00.00237
00.00238 98,1,3,0, "LOF
00.00239 151,1,6,0,
00.00240 116,1,7,0,
00.00241
00.00242 129,1,5,0, "PEL/PRL/PES/PRS/EDI/RAD/RAE
00.00243 134,1,5,0,
00.00244 58,1,4,0,
00.00245 72,1,9,0,
00.00246 157,1,6,0,
00.00247 163,1,7,0,
00.00248 69,1,3,0,
00.00249 18,2,3,0,
00.00250 53,2,4,0,
00.00251 106,1,4,0,
00.00252 13,1,3,0,
00.00253 16,1,5,0,
00.00254 249,1,5,0,
00.00255 245,1,4,0,
00.00256 4,2,4,0,
00.00257 13,1,3,0,
00.00258 58,1,4,0,
00.00259 110,1,6,0,
00.00260 57,2,2,0,
00.00261
00.00262 174,1,6,0, "DQI
00.00263
00.00264 151,1,6,0, "SPH
00.00265
00.00266 134,1,5,0, "LST
00.00267
00.00268 134,1,5,0, "REL
00.00269 198,1,6,0,
00.00270 39,2,8,0,
00.00271
00.00272 192,1,6,0, "DRL
00.00273 198,1,6,0,
00.00274 204,1,6,0,
00.00275
00.00276 134,1,5,0, "DEL
00.00277
00.00278 134,1,5,0, "COO
00.00279 32,1,8,0,
00.00280 204,1,6,0,
00.00281
00.00282 25,1,7,0, "DCO
00.00283 180,1,12,0,
00.00284 40,1,12,0,
00.00285
00.00286 134,1,5,0, "RTR
00.00287 139,1,6,0,
00.00288 145,1,6,0,
00.00289 85,1,6,0,
00.00290 21,2,5,0,
00.00291 91,1,7,0,
00.00292
00.00293 134,1,5,0, "RDT
00.00294 58,1,4,0,
00.00295 52,1,6,0,
00.00296
00.00297 14,2,4,0, "DDT
00.00298 52,1,6,0,
00.00299
00.00300 14,2,4,0, "DSM
00.00301 52,1,6,0,
00.00302
00.00303 8,2,6,0, "DQS/BLT/UBT/ISI/RET
00.00304
00.00305 8,2,6,0, "ROQ
00.00306 174,1,6,0,
00.00307 101,1,5,0,
00.00308 62,1,7,0,
00.00309
00.00310 8,2,6,0, "REQ
00.00311 174,1,6,0,
00.00312 101,1,5,0,
00.00313 26,2,7,0,
00.00314
00.00315 81,1,4,0, "RRT
00.00316 18,2,3,0,
00.00317
00.00318 33,2,6,0, "NPD/NPC
00.00319
00.00320 254,1,6,0, "DUR
00.00321
00.00322 1,1,5,0, "DRT
00.00323
00.00324 6,1,7,0, "DOT
00.00325 1,1,5,0,
00.00326
00.00327 151,1,6,0, "ESM
00.00328 21,1,4,0,
00.00329 47,2,6,0,
00.00330 1,1,5,0,
00.00331
00.00332 170,1,4,0, "MISCELLANEOUS
00.00333 232,1,13,0,
00.00334 210,1,10,0,
00.00335 0,0,0,0, "NOT USED
00.00336 0,0,0,0, "NOT USED
00.00337 0,0,0,0, "NOT USED
00.00338 0,0,0,0, "NOT USED
00.00339 0,0,0,0, "NOT USED
00.00340 0,0,0,0, "NOT USED
00.00341 0,0,0,0, "NOT USED
00.00342 0,0,0,0, "NOT USED
00.00343 0,0,0,0, "NOT USED
00.00344 0,0,0,0, "NOT USED
00.00345 0,0,0,0, "NOT USED
00.00346 0,0,0,0, "NOT USED
00.00347 0,0,0,0, "NOT USED
00.00348 0,0,0,0, "NOT USED
00.00349 0,0,0,0, "NOT USED
00.00350 0,0,0,0, "NOT USED
00.00351 0,0,0,0, "NOT USED
00.00352 0,0,0,0, "NOT USED
00.00353 0,0,0,0, "NOT USED
00.00354 0,0,0,0, "NOT USED
00.00355 0,0,0,0, "NOT USED
00.00356 0,0,0,0, "NOT USED
00.00357 57,2,2,0, "IF NO PROMPT TEXT EXIST
00.00358
00.00359 #1E,8,'ACCEPT_ ',
00.00360 #1E,11,'ANO ENTRY_ ',0,
00.00361 #1E,3,#42,#54,LF,0, "BT LF
00.00362 #1E,7,'CLASS_ ',0,
00.00363 #1E,6,'CMND_ ',
00.00364 #1E,12,'COORDINATOR ',
00.00365 #1E,13,'COORDINATOR_ ',0,
00.00366 #1E,21,'COORDINATOR REMARKS_ ',0,
00.00367 #1E,9,'DIST TO_ ',0,
00.00368 #1E,5,'DTG_ ',0,
00.00369 #1E,12,'FIRST/LAST_ ',
00.00370 #1E,4,'FM_ ',
00.00371 #1E,15,'FORMATTED MSG_ ',0,
00.00372 #1E,6,'FROM_ ',
00.00373 #1E,10,'FROM DTG_ ',
00.00374 #1E,11,'HARD COPY_ ',0,
00.00375 #1E,4,'ID_ ',
00.00376 #1E,7,'INDEX_ ',0,
00.00377 #1E,6,'INFO_ ',
00.00378 #1E,10,'INT_DIST_ ',
00.00379 #1E,11,'LOGGED OFF',LF,0, "CHANGE LF TO SPACE WHEN GET_DTG IS READY
00.00380 #1E,10,'LOGGED ON ',
00.00381 #1E,7,'MSG ID ',0,
00.00382 #1E,8,'MSG ID_ ',
00.00383 #1E,9,'MSG DTG_ ',0,
00.00384 #1E,9,'MSG SIC_ ',0,
00.00385 #1E,10,'PASSWORD_ ',
00.00386 #1E,10,'PREC ACT_ ',
00.00387 #1E,11,'PREC INFO_ ',0,
00.00388 #1E,6,'PROC_ ',
00.00389 #1E,10,'QUEUE ID_ ',
00.00390 #1E,21,'READY TO COORDINATE_ ',0,
00.00391 #1E,9,'RELEASE_ ',0,
00.00392 #1E,9,'RELEASED ',0,
00.00393 #1E,9,'REMARKS_ ',0,
00.00394 #1E,17,'RESTART FINISHED',LF,0,
00.00395 #1E,3,#52,#58,LF,0, "RX LF
00.00396 #1E,6,'RX/TX',LF,
00.00397 #1E,7,'RX/TX_ ',0,
00.00398 #1E,23,'SECURITY INTERROGATION',LF,0,
00.00399 #1E,5,'SIC_ ',0,
00.00400 #1E,8,'SPECAT_ ',
00.00401 #1E,10,'TABLE ID_ ',
00.00402 #1E,6,'TAPE_ ',
00.00403 #1E,9,'TERM ID_ ',0,
00.00404 #1E,6,'TEXT_ ',
00.00405 #1E,4,'TO_ ',
00.00406 #1E,8,'TO DTG_ ',
00.00407 #1E,12,'TO TERM ID_ ',
00.00408 #1E,10,'TRUNK ID_ ',
00.00409 #1E,14,'TX TO REL POS ',
00.00410 #1E,9,'USER ID_ ',0,
00.00411 #1E,5,'XMT_ ',0,
00.00412 #1E,2,'_ ';
00.00413
00.00414
00.00415
00.00416
00.00417 LABEL REGION_ERR;
00.00418
00.00419
00.00420 BEGIN "
00.00421 R7=>SAVE00[7]; "
00.00422 STC(6,ADDRESS(SAVE00[7])=>R7); "SAVE REGISTERS
00.00423
00.00424 ADDRESS(TCB_RCB)=>R0; "REF TO CREATION BLOCK
00.00425 SWITCH MON(REGION,RCREATE,R0,R7):X2 TO
00.00426 ERR: "
00.00427 BEGIN "
00.00428 1=>R1;
00.00429 GOTO REGION_ERR;
00.00430 END;
00.00431 END;
00.00432 ADDRESS(TCB_NAME)=>R0; "ADDR TO CR NAME
00.00433 SWITCH MON (REGION,RENTER,R0,R7):X2 TO
00.00434 ERR: "
00.00435 BEGIN "
00.00436 2=>R1;
00.00437 GOTO REGION_ERR;
00.00438 END;
00.00439 END;
00.00440 0=>R1; "START INDEX
00.00441 ADDRESS(TCB_ARRAY)=>R2; "FROM ADDR
00.00442 CRTCB_SIZE=>R3; "NO OF WORDS
00.00443 SWITCH MON (REGION,RPUTN,R0,R1,R2,R3,R7):X2 TO
00.00444 ERR: "
00.00445 BEGIN "
00.00446 3=>R1;
00.00447 GOTO REGION_ERR;
00.00448 END;
00.00449 END;
00.00450 SWITCH MON (REGION,RLEAVE,R0,R7):X2 TO
00.00451 ERR: "
00.00452 BEGIN "
00.00453 4=>R1;
00.00454 GOTO REGION_ERR;
00.00455 END;
00.00456 END;
00.00457
00.00458 ADDRESS(CRT_RCB)=>R0; "REF TO CREATION BLOCK
00.00459 SWITCH MON(REGION,RCREATE,R0,R7):X2 TO
00.00460 ERR: "
00.00461 BEGIN "
00.00462 5=>R1;
00.00463 GOTO REGION_ERR;
00.00464 END;
00.00465 END;
00.00466
00.00467 ADDRESS(CRT_NAME)=>R0; "ADDR TO CR NAME
00.00468 SWITCH MON (REGION,RENTER,R0,R7):X2 TO
00.00469 ERR: "
00.00470 BEGIN "
00.00471 6=>R1;
00.00472 GOTO REGION_ERR;
00.00473 END;
00.00474 END;
00.00475 0=>R1; "START INDEX
00.00476 ADDRESS(CRT_ARRAY)=>R2; "FROM ADDR
00.00477 CRCRT_SIZE=>R3; "NO OF WORDS
00.00478 SWITCH MON (REGION,RPUTN,R0,R1,R2,R3,R7):X2 TO
00.00479 ERR: "
00.00480 BEGIN "
00.00481 7=>R1;
00.00482 GOTO REGION_ERR;
00.00483 END;
00.00484 END;
00.00485 SWITCH MON (REGION,RLEAVE,R0,R7):X2 TO
00.00486 ERR: "
00.00487 BEGIN "
00.00488 8=>R1;
00.00489 GOTO REGION_ERR;
00.00490 END;
00.00491 END;
00.00492
00.00493 ADDRESS(FNT_RCB)=>R0; "REF TO CREATION BLOCK
00.00494 SWITCH MON(REGION,RCREATE,R0,R7):X2 TO
00.00495 ERR: "
00.00496 BEGIN "
00.00497 9=>R1;
00.00498 GOTO REGION_ERR;
00.00499 END;
00.00500 END;
00.00501
00.00502 ADDRESS(FNT_NAME)=>R0; "ADDR TO CR NAME
00.00503 SWITCH MON (REGION,RENTER,R0,R7):X2 TO
00.00504 ERR: "
00.00505 BEGIN "
00.00506 10=>R1;
00.00507 GOTO REGION_ERR;
00.00508 END;
00.00509 END;
00.00510 0=>R1; "START INDEX
00.00511 ADDRESS(FNT_ARRAY)=>R2; "FROM ADDR
00.00512 CRFNT_SIZE=>R3; "NO OF WORDS
00.00513 SWITCH MON (REGION,RPUTN,R0,R1,R2,R3,R7):X2 TO
00.00514 ERR: "
00.00515 BEGIN "
00.00516 11=>R1;
00.00517 GOTO REGION_ERR;
00.00518 END;
00.00519 END;
00.00520 SWITCH MON (REGION,RLEAVE,R0,R7):X2 TO
00.00521 ERR: "
00.00522 BEGIN "
00.00523 12=>R1;
00.00524 GOTO REGION_ERR;
00.00525 END;
00.00526 END;
00.00527
00.00528 ADDRESS(PTT_RCB)=>R0; "REF TO CREATION BLOCK
00.00529 SWITCH MON(REGION,RCREATE,R0,R7):X2 TO
00.00530 ERR: "
00.00531 BEGIN "
00.00532 13=>R1;
00.00533 GOTO REGION_ERR;
00.00534 END;
00.00535 END;
00.00536
00.00537 ADDRESS(PTT_NAME)=>R0; "ADDR TO CR NAME
00.00538 SWITCH MON (REGION,RENTER,R0,R7):X2 TO
00.00539 ERR: "
00.00540 BEGIN "
00.00541 14=>R1;
00.00542 GOTO REGION_ERR;
00.00543 END;
00.00544 END;
00.00545 0=>R1; "START INDEX
00.00546 ADDRESS(PTT_ARRAY)=>R2; "FROM ADDR
00.00547 CRPTT_SIZE=>R3; "NO OF WORDS
00.00548 SWITCH MON (REGION,RPUTN,R0,R1,R2,R3,R7):X2 TO
00.00549 ERR: "
00.00550 BEGIN "
00.00551 15=>R1;
00.00552 GOTO REGION_ERR;
00.00553 END;
00.00554 END;
00.00555 SWITCH MON (REGION,RLEAVE,R0,R7):X2 TO
00.00556 ERR: "
00.00557 BEGIN "
00.00558 16=>R1;
00.00559 GOTO REGION_ERR;
00.00560 END;
00.00561 END;
00.00562 UNS(6,ADDRESS(SAVE00[0])=>R7); "
00.00563 SAVE00[7]=>R7; "
00.00564 EXIT(R6); "TERMINATE
00.00565
00.00566
00.00567 REGION_ERR:
00.00568 R7=>R0; "ERROR CODE
00.00569 MON(ERROR,R0,R1,R7); "
00.00570 0=>R0; "ERROR CODE
00.00571 MON(TERMINATE,R0,R1,R7); "TERMINATE PROCESS
00.00572 END; "END PSM_INIT_REST
00.00573 ENDMODULE
LINES: 2220
CODESIZE VARSIZE CONSTSIZE TEMPSIZE
-------- ------- --------- --------
#00A0 #03F0 #0000 #0000