1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 1 (PROP) F 2 2 INPUT SOURCE.OPSYS:PROP 1 2 3 4 5 6 7 8 9 10 * ......... BBBBBBBBBBBBBBBBBB TTTTTTTTTTTTTTTTTTTTTTTT IIIIIIIIIIII 11 * ................. BBBBBBBBBBBBBBBBBBBBB TTTTTTTTTTTTTTTTTTTTTTTT IIIIIIIIIIII 12 * ..........##......... BBBBBBBBBBBBBBBBBBBBBB TTTTTTTTTTTTTTTTTTTTTTTT IIIIIIIIIIII 13 * ............##........... BBBBBB BBBBBB TTTTTT TTTTTT TTTTTT IIIIII 14 * .............##............ BBBBBB BBBBBB TTTTT TTTTTT TTTTT IIIIII 15 * .............##............ BBBBBB BBBBBBB TTTT TTTTTT TTTT IIIIII 16 * ..............##............. BBBBBBBBBBBBBBBBBBB TTTTTT IIIIII 17 * ..............##............. BBBBBBBBBBBBBBBBB TTTTTT IIIIII 18 * ..............##............. BBBBBBBBBBBBBBBBBBB TTTTTT IIIIII 19 * .............##.............. BBBBBB BBBBBB TTTTTT IIIIII 20 * ...........##.............. BBBBBB BBBBBB TTTTTT IIIIII 21 * ..........##............... BBBBBB BBBBBB TTTTTT IIIIII 22 * ........##............... BBBBBB BBBBBBB TTTTTT IIIIII 23 * .....##.............. BBBBBBBBBBBBBBBBBBBBBBBB TTTTTTTTTTTT IIIIIIIIIIII 24 * ................. BBBBBBBBBBBBBBBBBBBBBBB TTTTTTTTTTTT IIIIIIIIIIII 25 * ......... BBBBBBBBBBBBBBBBBBBB TTTTTTTTTTTT IIIIIIIIIIII 26 * 27 * 28 * ****** Copyright 1982, 1983, 1984, 1985, 1986, 1987, 1988, 29 * 1989, 1990, 1991, 1992 BTI Computer Systems ****** 30 * 31 * This document and the program it describes are the exclusive property 32 * of and proprietary to BTI Computer Systems. No use, reproduction or 33 * disclosure of this document or its contents, either in full or in part, 34 * by any means whatsoever regardless of purpose may be made without the 35 * prior written consent of BTI Computer Systems. 36 * 37 * BTI Computer Systems 38 * Sunnyvale, California 94086 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 2 F 0 4 5 ********************************************************************************** 6 * * 7 * Revision Date * 8 * -------- ---- * 9 * 1.0 Nov 82 * 10 * Initial release. * 11 * 1.1 ??? * 12 * Unknown * 13 * 1.3 21 July 83 * 14 * URSTOPR change to URSTOPZ. Misc reorg. * 15 * 1.4 02 July 84 * 16 * Changes to PREPOUT to print dates. MH * 17 * A8410 16 Oct 84 * 18 * Changed to use local units. RC * 19 * Now includes DiskDup. RC * 20 * A8502 14 Feb 85 * 21 * Change name of encrypt variables. MH * 22 * A8703 26 Mar 87 * 23 * Modification to CHARSTUFF to use stack * 24 * definition macros. PREPOUTM invocation * 25 * changed to use originally included * 26 * CHARSTUFF rather than including another * 27 * copy. * 28 * * 29 ********************************************************************************** 30 31 ********************************************************************************** 32 * * 33 * This program will write out certain CODE files from * 34 * the OFFLINE.!!! account onto a lun. The lun is passed to * 35 * us in the PARAMETERS! variable. The format for the lun * 36 * specifier passed to us is "OUTPUT= or O=". * 37 * The format of the output blocks includes a header which is * 38 * used to identify and decrypt the data. * 39 * * 40 ********************************************************************************** 41 42 BLOCK TAPEBOOTMAKE 43 44 INPUT .SYS:MACROS the frame definition macros 1 * Including MACROS.ASSEM Version A8607. 45 INPUT SOURCE.OPSYS:MACHDEFS machine definitions 46 INPUT SOURCE.OPSYS:VIRTDEFS get in XREQ definitions 47 INPUT SOURCE.OPSYS:DISKDEFS various defs. 49 50 LIST CREF 51 52 START MAINLINE 53 00001000 ABS 54 IMPAGE EQU WPP*4 start of impure area 00000000 ABS 55 PUREPAGE EQU 0 pure code area 56 57 ORG IMPAGE 58 00001000 59 PARAMLEN BSS 1 length of param string 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 3 F 0 00000060 ABS 60 PBLEN EQU 96 max len of param string 00001001 61 PARBUF LABEL 62 BSSC PBLEN parameter buffer 63 00001019 64 ERRFLG BSS 1 flag to say we have encountered an error 0000101A 65 TABINDX BSS 1 holds index into table of files to do 66 00000064 ABS 67 HILOCAL EQU 100 highest number for local unit 0000101B 68 INPUNIT BSS 1 place to hold lun for code file 0000101C 69 TAPELUN BSS 1 place to hold lun number of output 70 00000008 ABS 71 NVMPWDLEN EQU 8 length of NVM tape backup password 0000101D 72 PASSWORD LABEL 0200101D 73 CHRPWD BSSC NVMPWDLEN password for encryption 74 0101F 00000001 75 PARAMS VFD 1 00001020 76 PARAMO LABEL 01020 9D6F6376 77 PAK12 OUTPUT 01022 98968000 78 PAK12 O 01024 00000001 79 VFDB 15:2,17:1 01025 0000102B 80 PTR PAROFLAG 01026 0000101C 81 PTR TAPELUN 01027 00040001 82 PTR 1 01028 00040000 83 PTR 0 01029 00040000 84 PTR 0 0102A 00000000 85 VFD 0 86 0000102B 87 PAROFLAG BSS 1 88 89 * Table of files that we will copy to the tape. 0000102C 90 NAMTAB LABEL 0102C B8E273B9 91 PAK12 TAPEBOOT 0102E BB057D80 92 PAK12 TOPL 01030 B8E2762F 93 PAK12 TAPERECOVER 01032 A3146E3C 94 PAK12 PRTERRLOG 01034 A10A1F4A 95 PAK12 PEEK&POKE 01036 58760850 96 PAK12 DISKINIT 01038 AD3C6CCE 97 PAK12 REBUILD 0103A 58760761 98 PAK12 DISKCOPY 0103C 5876078F 99 PAK12 DISKDUP 0103E 587607BA 100 PAK12 DISKEX 0000000A ABS 101 TABMAX EQU DISPW NAMTAB/2 102 BSS2 4 room to patch in more 103 104 * Prototype for equipping the code files. 00001048 105 EQPBLK LABEL 106 BSS2 1 volume name 0104A FFFFFFFF 107 VFD 0FFFFFFFF system 108 BSS2 1 system password 0104D 9B17AC90 109 PAK12 OFFLINE account file is on 0104F E79DF200 110 PAK6 !!! account extension 111 BSS2 1 password for account 00001052 112 EQPFILNAM BSS2 1 file name 01054 533719C0 113 PAK6 CODE extension for filename 114 BSS2 1 password for file 115 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 4 F 0 116 ********************************************************************************** 117 * * 118 * Variables used by the encryptor for key and data * 119 * manipulation. * 120 * * 121 ********************************************************************************** 122 0000000C ABS 123 SIZELOG2 EQU 12 log of decrypt buffer size 00001000 ABS 124 L EQU 2 POWER SIZELOG2 size of the decrypt buffer (in characters) 00000003 ABS 125 ROUNDS EQU 3 number of rounds of encryption 126 04001057 127 KEYHALF BSS 16:0 00001057 128 KEYINDIC BSS 1 holds the indicator (read from tape) 00001058 129 KEYPWDDAT BSS2 1 holds the xor of pw and backup date 130 0105A 020C4400 131 APROGBC PTR PROGBC pointer to program buffer, by characters 0105B 01484400 132 APROGB5S PTR PROGB/BITS 0:4 pointer to program buffer, by 5s 133 0000105C 134 TABLEINDEX BSS 1 holds index to PRNTABLE 0000105D 135 PRNTABLE BSS ROUNDS*L table to hold all of the random numbers 136 137 * Subroutine calling stack 138 BSS 50 stack area 0000408F 139 STACK LABEL 140 141 ********************************************************************************** 142 * * 143 * This is the buffer for the tape record construction. * 144 * It starts with an 11 word header (same as FBI) which is * 145 * not encrypted. This header contains the checksum for the * 146 * data part (before encryption) and is itself checksummed. * 147 * The header is followed by a page of data (encrypted). We * 148 * make the full page of data fall on a page boundary. * 149 * * 150 ********************************************************************************** 151 152 ORG (((DISPW MA 0)+FBILNTH) AND -WPP)+WPP-FBILNTH 000043F5 153 HDRBUF BSS FBILNTH buffer to hold the markers 000043F5 154 TPHDRNAME EQU HDRBUF(0) place for identifying marker 000043F7 155 TPHDRIND EQU HDRBUF(2) place for encryption indicator 000043F8 156 TPHDRDATE EQU HDRBUF(3) place where date goes 000043FE 157 TPHDRDCS EQU HDRBUF(9) data checksum 000043FF 158 TPHDRHCS EQU HDRBUF(10) header checksum FFC00000 ABS 159 HCSMASK EQU -1/BITS 0:(FBILNTH-2)*BITS 0:(FBILNTH-2) 02004400 160 PROGBC BSSC 0 00004400 161 PROGB BSS WPP working buffer 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 5 F 0 163 164 ********************************************************************************** 165 * * 166 * MAINLINE * 167 * * 168 * We are called as an underprogram from Backup. The control * 169 * mode variable 'PARAMETERS!' is set up with a string telling us * 170 * what unit to write the boot information onto. The format of that * 171 * string is 'O='. We parse that string then find a free lun * 172 * for our own use. * 173 * We will get the password out of the NVM. If this system * 174 * is customer number zero (BTI), we will use the control mode variable * 175 * ENCPWD for the encryption (if it exists) instead of the NVM password. * 176 * The main loop goes through the table of stuff to be written * 177 * onto the tape and calls COPYFILE for each code file found there. * 178 * If we encounter any errors, we do an abort stop when done. * 179 * * 180 ********************************************************************************** 181 182 BLOCK MAINLINE 183 ENTRY MAINLINE 184 185 ORG PUREPAGE find some safe ground 00000 41383730 186 VERSION TEXTZ "A8703" version of this program 00002 A07A5067 187 PARAMNAME PAK12 PARAMETERS! 188 00000004 189 MAINLINE LABEL 00004 60040021 0 IMM 190 LD R0 URVARGETS get unit to write onto 00005 60441001 1 IMM 191 LD R1 ADR PARBUF point to buffer 00006 62800002 23 192 LD2 R2 PARAMNAME parameter name 00007 09040060 IMM 193 UREQ PBLEN 00008 FA08002F 0 194 JLTZ R0 BADINIT jump on XREQ error 195 * \ / 00009 30440060 1 IMM 196 RSB R1 PBLEN get length of string 0000A E4401000 1 197 ST R1 PARAMLEN 198 0000B DC000104 199 CALL PARAMPROC now process the parameter string 0000C 41001001 200 PAR PARBUF 0000D 41001000 201 PAR PARAMLEN 0000E 4100101F 202 PAR PARAMS 0000F 4100408F 203 PAR STACK 00010 41040000 IMM 204 PAR 0 00011 4100002F 205 PAR BADINIT 00012 40040000 IMM 206 PARL 0 207 00013 6184408F 6 IMM 208 LD SP ADR STACK set up stack pointer 209 00014 DC400052 210 CALLNP GETPWD set up password for encryption 00015 FA08002F 0 211 JLTZ R0 BADINIT jump on any error 212 * \ / 00016 60040122 0 IMM 213 LD R0 URFREELUN code to get a free lun 00017 09040064 IMM 214 UREQ HILOCAL get a local unit 00018 FA08002F 0 215 JLTZ R0 BADINIT jump on any error 216 * \ / 00019 E440101B 1 217 ST R1 INPUNIT and remember lun number 218 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 6 F 0 0001A EC00101A 219 STZ TABINDX start at beginning of table 0000001B 220 NEXTFILE LABEL 0001B 6000101A 0 221 LD R0 TABINDX get the index into the table 0001C 6260102C 12 0 222 LD2 R1 NAMTAB(R0) get the name from the table 0001D E6401052 12 223 ST2 R1 EQPFILNAM and remember it for EQUIP 0001E E64043F5 12 224 ST2 R1 TPHDRNAME and save in tape header 0001F 74528000 1 2 REG 225 XOR R1 R2 cook up a good indicator 00020 E44043F7 1 226 ST R1 TPHDRIND and set into header buffer 227 00021 60040051 0 IMM 228 LD R0 FREQUIPR open RO code 00022 38401048 1 229 LEA R1 EQPBLK point to file spec. 00023 0880101B 230 FREQ INPUNIT open the code file 00024 FA080040 0 231 JLTZ R0 BADFIL jump on any error 232 * \ / 00025 DC400075 233 CALLNP COPYFILE copy the file onto the lun 00026 FA080040 0 234 JLTZ R0 BADFIL jump on any error 235 * \ / 00000027 236 NXTINDX LABEL 00027 BC00101A 0 237 INCL R0 TABINDX get index to next file 00028 6404000A 0 IMM 238 CPR R0 TABMAX have we done all of the files? 00029 FE08001B 239 JLT NEXTFILE jump if more to do 240 * \ / 0000002A 241 ALLDONE LABEL 0002A 60040071 0 IMM 242 LD R0 URSTOPZ assume all went well 0002B 5C001019 243 CMZ ERRFLG is error flag set? 0002C FE02002E 244 JEQ ALLOK jump if not 245 * \ / 0002D 60040078 0 IMM 246 LD R0 URSTOPA code to pass abort error up 0000002E 247 ALLOK LABEL 0002E 09040000 IMM 248 UREQ 0 249 * --- 250 251 * If we get an error before we start copying files we come here. 0000002F 252 BADINIT LABEL 0002F EDC01019 253 STW ERRFLG say we encountered an error 00030 DC000596 254 CALL PREPOUT tell the guy 00031 40000033 255 PARL BADINITMSG 00032 FE0E002A 256 JMP ALLDONE and die 257 * --- 258 00033 20574152 259 BADINITMSG TEXTZ " WARNING !!! No offline files recorded on the tape." 260 261 * If we get an error copying one of the files we will come here. 00000040 262 BADFIL LABEL 00040 EDC01019 263 STW ERRFLG say we encountered an error 00041 DC000596 264 CALL PREPOUT tell the guy 00042 41001052 265 PAR EQPFILNAM name of file 00043 40000045 266 PARL BADFILMSG 00044 FE0E0027 267 JMP NXTINDX try for next one 268 * --- 269 00045 20574152 270 BADFILMSG TEXTZ " WARNING !!! Offline file \S1\ not written on tape." 271 ALLDONE 0000002A F 0 241= 256j ALLOK 0000002E F 0 244j 247= BADFIL 00000040 F 0 231j 234j 262= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 7 F 0 BADFILMSG 00000045 F 0 266a 270= BADINIT 0000002F F 0 194j 205a 211j 215j 252= BADINITMSG 00000033 F 0 255a 259= +COPYFILE UUUUUUUU F 0 233 +EQPBLK 00001048 F 0 229a +EQPFILNAM 00001052 F 0 223s 265a +ERRFLG 00001019 F 0 243 253s 263s +FREQUIPR 00000051 F 0 228 +GETPWD UUUUUUUU F 0 210 +HILOCAL 00000064 F 0 214 +INPUNIT 0000101B F 0 217s 230 +MAINLINE 00000004 F 0 183 189= +NAMTAB 0000102C F 0 222 NEXTFILE 0000001B F 0 220= 239j NXTINDX 00000027 F 0 236= 267j +PARAMLEN 00001000 F 0 197s 201a PARAMNAME 00000002 F 0 187= 192 +PARAMPROC UUUUUUUU F 0 199 +PARAMS 0000101F F 0 202a +PARBUF 00001001 F 0 191a 200a +PBLEN 00000060 F 0 193 196 +PREPOUT UUUUUUUU F 0 254 264 +PUREPAGE 00000000 F 0 185a +STACK 0000408F F 0 203a 208a +TABINDX 0000101A F 0 219s 221 237s +TABMAX 0000000A F 0 238 +TPHDRIND 000043F7 F 0 226s +TPHDRNAME 000043F5 F 0 224s +URFREELUN 00000122 F 0 213 +URSTOPA 00000078 F 0 246 +URSTOPZ 00000071 F 0 242 +URVARGETS 00000021 F 0 190 VERSION 00000000 F 0 186= 272 END of MAINLINE 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 8 F 0 274 275 ********************************************************************************** 276 * * 277 * This routine will get the password out of the NVM. If this system * 278 * is customer number zero (BTI), we will use the control mode variable * 279 * ENCPWD for the encryption (if it exists) instead of the NVM password. * 280 * * 281 * Calling sequence: * 282 * CALLNP GETPWD * 283 * JLTZ R0 * 284 * Eats R0:R3 * 285 * stack required = 2 * 286 * * 287 ********************************************************************************** 288 289 BLOCK GETPWD 290 ENTRY GETPWD 291 292 BEGFRAME 00178801 6 BASE 293 CNTR BSS 1 counter for chars. 294 ENDFRAME 295 00052 DD5F8002 6 STAK 296 GETPWD ENTRNP PUSH 00053 60440007 1 IMM 297 LD R1 NVMPWDLEN-1 get count-1 and last relative address 00000054 298 NVMLOOP LABEL 00054 E4578801 1 6 BASE 299 ST R1 SP,CNTR and set counter 00055 60040141 0 IMM 300 LD R0 ORREADNVM code to read the NVM 00056 18440022 1 IMM 301 ADD R1 NVMTAPEPW base location to read in NVM 00057 09440000 IMM 302 OPREQ 0 do the read 00058 FA080071 0 303 JLTZ R0 BADNVM jump on any error 00059 60578801 1 6 BASE 304 LD R1 SP,CNTR pick up store index/counter 0005A E4B20072 2 1 @ 305 ST R2 @PWDPTR(R1) store in our buffer 0005B FA660054 1 306 JDR R1 NVMLOOP jump back if more to do 307 * \ / 0005C 60040053 0 IMM 308 LD R0 URGETSSN code to get the SSN 0005D 09040000 IMM 309 UREQ 0 get it 0005E FA080071 0 310 JLTZ R0 BADNVM jump on any error 311 * \ / 0005F 604A4100 1 1 CBM 312 LD R1 R1/BITS 0:15 extract the customer number 00060 FA4C0070 1 313 JNEZ R1 NOTBTI jump if it isn't BTI 314 * \ / 00061 60440060 1 IMM 315 LD R1 PBLEN number of chars 00062 38801001 2 316 LEA R2 PARBUF buffer to fill 00063 FE580000 317 CFILL 0 318 00064 60040021 0 IMM 319 LD R0 URVARGETS code to read session variable 00065 38401001 1 320 LEA R1 PARBUF point to the buffer to read into 00066 62800073 23 321 LD2 R2 ENCPWD variable name 00067 09040060 IMM 322 UREQ PBLEN do it 00068 FA080070 0 323 JLTZ R0 NOTBTI jump on any error 324 * \ / 00069 60040100 0 IMM 325 LD R0 URPACKI code to pack an item 0006A 38401001 1 326 LEA R1 PARBUF point to string to pack 0006B 09040000 IMM 327 UREQ 0 pack it up 0006C FA080071 0 328 JLTZ R0 BADNVM jump on any error 329 * \ / 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 9 F 0 0006D 64040001 0 IMM 330 CPR R0 1 is it a symbol? 0006E FE0C0071 331 JNE BADNVM jump if not 332 * \ / 0006F E680101D 23 333 ST2 R2 PASSWORD make this the password 00000070 334 NOTBTI LABEL 00070 EC120000 0 REG 335 STZ R0 all clear code 00000071 336 BADNVM LABEL 00071 5D1F8002 6 STAK 337 LEAVE POP 338 * --- 339 00072 020C101D 340 PWDPTR PTR CHRPWD pointer to password 00073 5F4459B6 341 ENCPWD PAK12 ENCPWD 342 BADNVM 00000071 F 0 303j 310j 328j 331j 336= +CHRPWD 0200101D F 0 340a CNTR 00178801 F 0 293= 299s 304 ENCPWD 00000073 F 0 321 341= FRAME! 00000052 F 0 292= 294a 294e 294e FRAME!LEN 00000002 F 0 294= +GETPWD 00000052 F 0 290 296= NOTBTI 00000070 F 0 313j 323j 334= NVMLOOP 00000054 F 0 298= 306j +NVMPWDLEN 00000008 F 0 297 +NVMTAPEPW 00000022 F 0 301 +ORREADNVM 00000141 F 0 300 +PARBUF 00001001 F 0 316a 320a 326a +PASSWORD 0000101D F 0 333s +PBLEN 00000060 F 0 315 322 POP 001F8002 F 0 294= 337 PUSH 001F8002 F 0 294e 294= 296s PWDPTR 00000072 F 0 305s 340= +URGETSSN 00000053 F 0 308 +URPACKI 00000100 F 0 325 +URVARGETS 00000021 F 0 319 343 END of GETPWD 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 10 F 0 345 346 ********************************************************************************** 347 * * 348 * COPYFILE * 349 * * 350 * Copy all of the CODE files pages onto the tape unit that * 351 * was passed to us. When we return the code file will be closed. * 352 * Note that the code file that we are writing must be contiguous * 353 * after the first page found. This is a requirement of TAPEBOOT. * 354 * * 355 * Calling sequence: * 356 * CALLNP COPYFILE * 357 * JLTZ R0 * 358 * Eats R0:R3 * 359 * stack required = 5 * 360 * 2 + max( FIXUP(1), BUENCRYPT(3)) * 361 * * 362 ********************************************************************************** 363 364 BLOCK COPYFILE 365 ENTRY COPYFILE 366 367 BEGFRAME 00178801 6 BASE 368 POSITION BSS 1 current position in code file 369 ENDFRAME 370 00075 DD5F8002 6 STAK 371 COPYFILE ENTRNP PUSH 00076 EC178801 6 BASE 372 STZ SP,POSITION say we're at the beginning 00000077 373 NXTPAG LABEL 00077 60040090 0 IMM 374 LD R0 FRPOSITION position to a page 00078 60578801 1 6 BASE 375 LD R1 SP,POSITION page to position to 00079 0880101B 376 FREQ INPUNIT and do it to it 0007A FA080096 0 377 JLTZ R0 BADRTN jump on error 378 * \ / 0007B FA4C007F 1 379 JNEZ R1 NOHOLE jump if it's not a hole 380 * \ / 0007C 60041000 0 IMM 381 LD R0 CPP chars in a page 0007D 98178801 0 6 BASE 382 ADDM R0 SP,POSITION and make address in next page 0007E FE0E0077 383 JMP NXTPAG 384 * --- 385 0000007F 386 NOHOLE LABEL 0007F 60040031 0 IMM 387 LD R0 FRREADB binary read 00080 60441000 1 IMM 388 LD R1 CPP number of chars. to read 00081 60844400 2 IMM 389 LD R2 ADR PROGB address of buffer 00082 0880101B 390 FREQ INPUNIT and do it 00083 FA080096 0 391 JLTZ R0 BADRTN jump on read error 392 * \ / 00084 DC40009B 393 CALLNP FIXUP fix up header block 00085 DC4000AF 394 CALLNP BUENCRYPT encrypt the block 00086 6003FF80 0 IMM 395 LD R0 HCSMASK get header checksum mask 00087 F00043F5 0 396 PRMUT R0 HDRBUF generate header checksum 00088 7407FFFF 0 IMM 397 XOR R0 0FFFFFFFF make ones complement 00089 E40043FF 0 398 ST R0 TPHDRHCS save in header checksum spot 399 0008A 60040042 0 IMM 400 LD R0 FRWRITEB code for binary write 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 11 F 0 0008B 6044102C 1 IMM 401 LD R1 CPP+(FBILNTH*CPW) get block length 0008C 608443F5 2 IMM 402 LD R2 ADR HDRBUF tape header will go first 0008D 0880101C 403 FREQ TAPELUN and do it 0008E FA080096 0 404 JLTZ R0 BADRTN jump on write error 405 * \ / 0008F 60441000 1 IMM 406 LD R1 CPP chars. in a page 00090 B8578801 1 6 BASE 407 ADDB R1 SP,POSITION and go to next page 00091 60040090 0 IMM 408 LD R0 FRPOSITION position to a page 00092 0880101B 409 FREQ INPUNIT and do it to it 00093 FA080096 0 410 JLTZ R0 BADRTN jump on error 00094 FA4C007F 1 411 JNEZ R1 NOHOLE go do next page 00095 60040000 0 IMM 412 LD R0 0 indicate no errors 00000096 413 BADRTN LABEL 00096 60D20000 3 0 REG 414 LD R3 R0 copy the error code for return 00097 60040060 0 IMM 415 LD R0 FRCLOSE code to close 00098 0880101B 416 FREQ INPUNIT close this file 00099 6012C000 0 3 REG 417 LD R0 R3 retrieve the error code for the caller 0009A 5D1F8002 6 STAK 418 LEAVE POP 419 * --- 420 BADRTN 00000096 F 0 377j 391j 404j 410j 413= +BUENCRYPT UUUUUUUU F 0 394 +COPYFILE 00000075 F 0 365 371= +CPP 00001000 F 0 381 388 401 406 +CPW 00000004 F 0 401 +FBILNTH 0000000B F 0 401 +FIXUP UUUUUUUU F 0 393 FRAME! 00000075 F 0 367= 369e 369e 369a FRAME!LEN 00000002 F 0 369= +FRCLOSE 00000060 F 0 415 +FRPOSITION 00000090 F 0 374 408 +FRREADB 00000031 F 0 387 +FRWRITEB 00000042 F 0 400 +HCSMASK FFC00000 F 0 395 +HDRBUF 000043F5 F 0 396 402a +INPUNIT 0000101B F 0 376 390 409 416 NOHOLE 0000007F F 0 379j 386= 411j NXTPAG 00000077 F 0 373= 383j POP 001F8002 F 0 369= 418 POSITION 00178801 F 0 368= 372s 375 382s 407s +PROGB 00004400 F 0 389a PUSH 001F8002 F 0 369= 369e 371s +TAPELUN 0000101C F 0 403 +TPHDRHCS 000043FF F 0 398s 421 END of COPYFILE 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 12 F 0 423 424 ********************************************************************************** 425 * * 426 * FIXUP * 427 * Put the markers and dates into the TPHDR and * 428 * make a good checksum in the boot code. * 429 * Call: * 430 * CALLNP FIXUP * 431 * Eats R0:R3 * 432 * stack required = 1 * 433 * * 434 ********************************************************************************** 435 436 BLOCK FIXUP 437 ENTRY FIXUP 438 439 BEGFRAME 440 ENDFRAME 441 0009B DD5F8001 6 STAK 442 FIXUP ENTRNP PUSH 0009C 60040060 0 IMM 443 LD R0 URRAWDATE code for raw date 0009D 09040000 IMM 444 UREQ 0 0009E E68043F8 23 445 ST2 R2 TPHDRDATE put the date into the header 0009F E6801058 23 446 ST2 R2 KEYPWDDAT start off the key/date word with date 000A0 6200101D 01 447 LD2 R0 PASSWORD get the real PW for this system 000A1 F4001058 0 448 XORM R0 KEYPWDDAT(0) combine into key/date 000A2 F4401059 1 449 XORM R1 KEYPWDDAT(1) 000A3 BC0043F7 0 450 INCL R0 TPHDRIND advance indicator and fetch 000A4 E4001057 0 451 ST R0 KEYINDIC and into the key buffer 000A5 604403FF 1 IMM 452 LD R1 L/4-1 get size of checksummed block 000A6 60040000 0 IMM 453 LD R0 0 000A7 58840004 IMM 454 CLBPSR PSRCARRY 000A8 58C40010 IMM 455 IORPSR PSRMODIF set funny arithmetic 000000A9 456 NEXTWORD LABEL 000A9 18224400 0 1 457 ADD R0 PROGB(R1) add next word and carry 000AA FA6600A9 1 458 JDR R1 NEXTWORD count and test index 459 * \ / 000AB 18040000 0 IMM 460 ADD R0 0 add back last carry 000AC 58840010 IMM 461 CLBPSR PSRMODIF restore normal arithmetic 000AD E40043FE 0 462 ST R0 TPHDRDCS and place into sum location 000AE 5D1F8001 6 STAK 463 LEAVE POP 464 * --- 465 +FIXUP 0000009B F 0 437 442= FRAME! 0000009B F 0 439= 440e 440e 440a FRAME!LEN 00000001 F 0 440= +KEYINDIC 00001057 F 0 451s +KEYPWDDAT 00001058 F 0 446s 448s 449s +L 00001000 F 0 452 NEXTWORD 000000A9 F 0 456= 458j +PASSWORD 0000101D F 0 447 POP 001F8001 F 0 440= 463 +PROGB 00004400 F 0 457 +PSRCARRY 00000004 F 0 454 +PSRMODIF 00000010 F 0 455 461 PUSH 001F8001 F 0 440= 440e 442s 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 13 F 0 +TPHDRDATE 000043F8 F 0 445s +TPHDRDCS 000043FE F 0 462s +TPHDRIND 000043F7 F 0 450s +URRAWDATE 00000060 F 0 443 466 END FIXUP 467 468 INPUT PROMBOOT.OPSYS:PBENCRYPT encryptor for backup 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 14 (PBENCRYPT) F 7 PROMBOOT Encrypt Routines 3 4 BLOCK encryptor for back up 5 6 ENTRY BUENCRYPT for encrypt (used in back up) 7 8 ********************************************************************************** 9 * * 10 * These routines implement the encryption algorithm * 11 * for the tape boot function. * 12 * * 13 * The backup tape writer uses UNTRANSPOSE, which uses * 14 * the pseudo-random numbers in the opposite order from * 15 * TRANSPOSE, which is used exclusively by PROMBOOT. Since * 16 * RANDOM is capable of generating the pseudo-random string * 17 * of numbers only in the forward direction, we allow * 18 * PROMBOOT to use the numbers as they are generated. This * 19 * means that the backup tape writer must generate all of * 20 * the pseudo-random numbers ahead of time and store them * 21 * for later use. That's okay, since the backup tape * 22 * writer has the memory space in which to store them, and * 23 * PROMBOOT does not. * 24 * * 25 * Calls: * 26 * CALLNP BUENCRYPT * 27 * * 28 * Eats R0:R3 * 29 * stack required = 4 * 30 * 1 + MAX( BILDRANDOM(3), UNSUB5(1), UNTRANSPOSE(1) ) * 31 * * 32 ********************************************************************************** 33 000AF DD5F8001 6 STAK 34 BUENCRYPT ENTRNP STAK SP,1 000B0 DC4000B9 35 CALLNP BILDRANDOM and put all PRNs into a table 000B1 D140105C 36 STMW TABLEINDEX set the PRN table index 000B2 DC4000C0 37 CALLNP UNSUBS5 000B3 DC4000D0 38 CALLNP UNTRANSPOSE 000B4 DC4000C0 39 CALLNP UNSUBS5 000B5 DC4000D0 40 CALLNP UNTRANSPOSE 000B6 DC4000C0 41 CALLNP UNSUBS5 000B7 DC4000D0 42 CALLNP UNTRANSPOSE 000B8 5D1F8001 6 STAK 43 LEAVE STAK SP,1 44 * --- 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 15 (PBENCRYPT) F 7 PROMBOOT Encrypt Routines 46 47 BLOCK random number table builder 48 49 ENTRY BILDRANDOM build a table of random numbers 50 51 ********************************************************************************** 52 * * 53 * BildRandom: This routine is used to provide a * 54 * stream of random numbers. Since this routine is capable * 55 * of going in the forward direction only, the MF (who * 56 * needs the numbers in the reverse order) calls this * 57 * routine L*ROUNDS times and stores the results in a * 58 * table. * 59 * * 60 * Call: * 61 * CALLNP BILDRANDOM * 62 * * 63 * Eats R1:R3 * 64 * stack required = 2 * 65 * 1 + MAX(RANDINIT(2), RANDOM(1)) * 66 * * 67 ********************************************************************************** 68 000B9 DD5F8001 6 STAK 69 BILDRANDOM ENTRNP STAK SP,1 70 000BA DC4000DA 71 CALLNP RANDINIT initialize the PRN generation 72 000BB 60C42FFF 3 IMM 73 LD R3 L*ROUNDS-1 get count for number needed 000000BC 74 BRLOOP LABEL 000BC DC4000E1 75 CALLNP RANDOM call for the next random number 000BD E4A6105D 2 3 76 ST R2 PRNTABLE(R3) save the number in the table 000BE FAE600BC 3 77 JDR R3 BRLOOP and continue for all numbers 78 * \ / 000BF 5D1F8001 6 STAK 79 LEAVE STAK SP,1 return 80 * --- 81 +BILDRANDOM 000000B9 F 7 49 69= BRLOOP 000000BC F 7 74= 77j +L 00001000 F 7 73 +PRNTABLE 0000105D F 7 76s +RANDINIT UUUUUUUU F 7 71 +RANDOM UUUUUUUU F 7 75 +ROUNDS 00000003 F 7 73 82 END of bildrandom routine 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 16 (PBENCRYPT) F 7 PROMBOOT Encrypt Routines 84 85 BLOCK start of UNSUBS5 86 87 ENTRY UNSUBS5 code to undo SUBS5 substitutions 88 89 ********************************************************************************** 90 * * 91 * Substitution routine for backup tape writer * 92 * Consider the message block (MB) to be divided into * 93 * five bit fields. Substitute each field with the lookup table * 94 * results. * 95 * Eats R0:R1 * 96 * stack required = 1 * 97 * * 98 ********************************************************************************** 99 000C0 DD5F8001 6 STAK 100 UNSUBS5 ENTRNP STAK SP,1 000C1 60441998 1 IMM 101 LD R1 ((L*8)/5)-1 get number of 5 bit blocks in MB 000000C2 102 UNSUBSLOOP LABEL 000C2 6032105B 0 1 @ 103 LD R0 @APROGB5S(R1) pick up a field 000C3 603000CF 0 0 @ 104 LD R0 @AUNSUBTAB(R0) do the substitution 000C4 E432105B 0 1 @ 105 ST R0 @APROGB5S(R1) and plop back into MB 000C5 FA6600C2 1 106 JDR R1 UNSUBSLOOP back if not done 107 * \ / 000C6 5D1F8001 6 STAK 108 LEAVE STAK SP,1 return 109 * --- 110 020000C7 111 UNSUBTABLE BSSC 0 000C8 00000008 112 VFDC 018,00E,01C,009,007,01D,01B,008 000CA 00000012 113 VFDC 003,017,004,01E,00A,015,00B,012 000CC 0000001A 114 VFDC 016,00C,006,01F,011,002,00F,01A 000CE 00000001 115 VFDC 00D,010,019,000,005,013,014,001 000CF 020C00C7 116 AUNSUBTAB PTR UNSUBTABLE 117 +APROGB5S 0000105B F 7 103 105s AUNSUBTAB 000000CF F 7 104 116= +L 00001000 F 7 101 +UNSUBS5 000000C0 F 7 87 100= UNSUBSLOOP 000000C2 F 7 102= 106j UNSUBTABLE 020000C7 F 7 111= 116a 118 END of UNSUBS5 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 17 (PBENCRYPT) F 7 PROMBOOT Encrypt Routines 120 121 BLOCK start of Untranspose 122 123 ENTRY UNTRANSPOSE reverse transposition process 124 125 ********************************************************************************** 126 * * 127 * The UNTRANSPOSE routine scans the message block from right * 128 * to left. For each field, it exchanges that field with another * 129 * field determined by the previous pseudo-random number. * 130 * Function UNTRANSPOSE * 131 * For each field N of the message block, * 132 * N = L-1 to 0 step -1 do: * 133 * J := INVRANDOM MOD L * 134 * BTEMP := MB(FIELD N) * 135 * MB(FIELD N) := MB(FIELD J) * 136 * MB(FIELD J) := BTEMP * 137 * end of loop * 138 * end of function * 139 * * 140 * Notes: * 141 * * 142 * This is the routine used exclusively by the * 143 * backup tape writer. The random numbers have been * 144 * generated and stored into a table with L entries in it. * 145 * The random numbers are used out of the table in the * 146 * reverse order. * 147 * The variable J is actually served by R1 and N by R3. * 148 * The field exchange is done with R0 and R1 holding the * 149 * intermediate fields. * 150 * Eats R0,R1,R3 * 151 * stack required = 1 * 152 * * 153 ********************************************************************************** 154 155 BEGFRAME 156 ENDFRAME 157 000D0 DD5F8001 6 STAK 158 UNTRANSPOSE ENTRNP PUSH 000D1 60C40FFF 3 IMM 159 LD R3 L-1 initial field location 000000D2 160 UNTRANLOOP LABEL 000D2 BC00105C 0 161 INCL R0 TABLEINDEX get the index into the PRN table 000D3 6060105D 1 0 162 LD R1 PRNTABLE(R0) get the next random number 000D4 604A42C0 1 1 CBM 163 LD R1 R1/BITS 1:SIZELOG2 get something we can use 000D5 6036105A 0 3 @ 164 LD R0 @APROGBC(R3) get field N of program buffer 000D6 E032105A 0 1 @ 165 EXCH R0 @APROGBC(R1) and exchange for field J of program buffer 000D7 E436105A 0 3 @ 166 ST R0 @APROGBC(R3) and put J into Ns place 000D8 FAE600D2 3 167 JDR R3 UNTRANLOOP jump back for next field 168 * \ / 000D9 5D1F8001 6 STAK 169 LEAVE POP return 170 * --- 171 172 +APROGBC 0000105A F 7 164 165s 166s FRAME! 000000D0 F 7 155= 156e 156a 156e FRAME!LEN 00000001 F 7 156= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 18 (PBENCRYPT) F 7 PROMBOOT Encrypt Routines +L 00001000 F 7 159 POP 001F8001 F 7 156= 169 +PRNTABLE 0000105D F 7 162 PUSH 001F8001 F 7 156= 156e 158s +SIZELOG2 0000000C F 7 163 +TABLEINDEX 0000105C F 7 161s UNTRANLOOP 000000D2 F 7 160= 167j +UNTRANSPOSE 000000D0 F 7 123 158= 173 END of UNTRANSPOSE 174 175 INPUT PROMBOOT.OPSYS:PBENCRANDOM get the random number generator 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 19 (PBENCRANDOM) F 8 Random Number Code for Promboot Decryptor 3 4 PBENCRANDM BLOCK start of common random number routines 5 6 ENTRY RANDINIT to initialize the random number generator 7 ENTRY RANDOM random number generator 8 9 ********************************************************************************** 10 * * 11 * This is the routine that intializes the pseudo-random * 12 * number generator. The PRN accumulator is initialized as a * 13 * combination of the Password, Backup date, and Indicator. * 14 * Call: * 15 * CALLNP RANDINIT * 16 * * 17 * Eats R1:R2, (sets R2 = initial value) * 18 * stack required = 2 * 19 * 1 + RANDOM(1) * 20 * * 21 ********************************************************************************** 22 23 RANDINIT BLOCK 24 25 ENTRY RANDINIT random number initializer 26 27 BEGFRAME 28 ENDFRAME 29 000DA DD5F8001 6 STAK 30 RANDINIT ENTRNP PUSH 000DB 62401058 12 31 LD2 R1 KEYPWDDAT get password/date info 000DC 74924000 2 1 REG 32 XOR R2 R1 fold the halves together 000DD 74801057 2 33 XOR R2 KEYINDIC throw in the indicator 000DE DC4000E1 34 CALLNP RANDOM warm it up a little 000DF DC4000E1 35 CALLNP RANDOM just for drill 000E0 5D1F8001 6 STAK 36 LEAVE POP return, RANDOM is initialized 37 * --- 38 FRAME! 000000DA F 8 27= 28a 28e 28e FRAME!LEN 00000001 F 8 28= +KEYINDIC 00001057 F 8 33 +KEYPWDDAT 00001058 F 8 31 POP 001F8001 F 8 28= 36 PUSH 001F8001 F 8 28= 28e 30s +RANDINIT 000000DA F 8 25 30= +RANDOM UUUUUUUU F 8 34 35 39 END RANDINIT 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 20 (PBENCRANDOM) F 8 Random Number Code for Promboot Decryptor 41 42 ********************************************************************************** 43 * * 44 * RANDOM. This routine is called to generate the next * 45 * number in the pseudo-random sequence by using a standard * 46 * linear congruential PRN generator. The generator is * 47 * 32-bits wide so it has a very long period. (a) and (c) have * 48 * been carefully chosen to pass all of the standard tests for * 49 * good PRN's. (We are using a = 1664525 and c = 713737) * 50 * * 51 * When using a pseudo-random number, the upper part of * 52 * the seed value should be used to produce the necessary * 53 * number of bits of the random number, as the lower several * 54 * bits of the seed are extremely non-random. * 55 * * 56 * Note that the value of (c) is actually (c-1) because * 57 * the carry bit, which is on and will affect modified * 58 * arithmetic, provides the extra 1. * 59 * * 60 * Method: X(i) = a * X(i-1) + c (mod 2**32) * 61 * * 62 * R2 = old PRN seed * 63 * CALLNP RANDOM * 64 * R2 = new PRN seed * 65 * Eats R1:R2 * 66 * stack required = 1 * 67 * * 68 ********************************************************************************** 69 70 RANDOM BLOCK 71 72 ENTRY RANDOM random number generator 73 74 BEGFRAME 75 ENDFRAME 76 000E1 DD5F8001 6 STAK 77 RANDOM ENTRNP PUSH 000E2 60528000 1 2 REG 78 LD R1 R2 get old seed value 000E3 58C40014 IMM 79 IORPSR PSRMODIF+PSRCARRY turn on magic, ensure carry state known 000E4 1C4000E7 1 80 MUL R1 A temp = X * a 000E5 188000E8 2 81 ADD R2 CMINUS1 X = temp + c 000E6 5D1F8001 6 STAK 82 LEAVE POP 83 * --- 84 000E7 0019660D 85 A VFD 1664525 a 000E8 000AE408 86 CMINUS1 VFD 713737-1 c - 1 87 A 000000E7 F 8 80 85= CMINUS1 000000E8 F 8 81 86= FRAME! 000000E1 F 8 74= 75a 75e 75e FRAME!LEN 00000001 F 8 75= POP 001F8001 F 8 75= 82 +PSRCARRY 00000004 F 8 79 +PSRMODIF 00000010 F 8 79 PUSH 001F8001 F 8 75e 75= 77s +RANDOM 000000E1 F 8 72 77= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 21 (PBENCRANDOM) F 8 Random Number Code for Promboot Decryptor 88 END RANDOM end of random number generator 89 +KEYINDIC 00001057 F 8 33 +KEYPWDDAT 00001058 F 8 31 +PSRCARRY 00000004 F 8 79 +PSRMODIF 00000010 F 8 79 +RANDINIT 000000DA F 8 6 23= 25 30= +RANDOM 000000E1 F 8 7 34 35 70= 72 77= 90 END PBENCRANDM of random number routines 176 +APROGB5S 0000105B F 7 103 105s +APROGBC 0000105A F 7 164 165s 166s BILDRANDOM 000000B9 F 7 35 49 69= +BUENCRYPT 000000AF F 7 6 34= +KEYINDIC 00001057 F 8 33 +KEYPWDDAT 00001058 F 8 31 +L 00001000 F 7 73 101 159 PBENCRANDM F 8 4= 90 +PRNTABLE 0000105D F 7 76s 162 +PSRCARRY 00000004 F 8 79 +PSRMODIF 00000010 F 8 79 RANDINIT 000000DA F 7 71 F 8 6 23= 25 30= RANDOM 000000E1 F 7 75 F 8 7 34 35 70= 72 77= +ROUNDS 00000003 F 7 73 +SIZELOG2 0000000C F 7 163 +TABLEINDEX 0000105C F 7 36s 161s UNSUBS5 000000C0 F 7 37 39 41 87 100= UNTRANSPOSE 000000D0 F 7 38 40 42 123 158= 177 END of the encryptor for backup 469 +PARAMPROC 00000104 F 9 6 181= 85 * Generating CharStuff Version A8703. ASCII2PTR 00178809 F 11 169= 182s 189s 208 226 +ASCIIPTR 000003D4 F 11 135 147= ASCIITAB 008003D5 F 11 147a 149= 179a ASCIITAB2 00098021 F 11 168= 181a COPYLOOP 000003F9 F 11 224= 232j 241j +COPYPAREN UUUUUUUU F 11 240 DESTLEN 0017880A F 11 171= 195s DESTPTR 0017880C F 11 173= 194s +DLM 00000001 F 11 137 143= 150x 150x 150x 150x 150x 150x 150x 151x 151x 151x 151x 151x 151x 151x 151x 152x 152x 152x 152x 152x 152x 152x 152x 153x 153x 153x 153x 153x 153x 153x 153x 154x 155x 165x 209 DLMLOOP 000003E8 F 11 187= 191j DONE 0000040A F 11 239j 250= ENDDLMS 000003EC F 11 188j 193= ENDLEADER 000003F6 F 11 210j 215= +EOL 00000002 F 11 138 144= 150x 216 ERROR 0000040B F 11 234j 242j 247j 253= +GETITEM 000003DD F 11 133 176= NOITEM 00000408 F 11 217j 245= +NOR 00000000 F 11 136 142= 154x 154x 154x 154x 154x 154x 155x 155x 155x 155x 155x 156x 156x 156x 156x 156x 156x 156x 156x 157x 157x 157x 157x 157x 157x 158x 158x 158x 158x 158x 158x 158x 158x 159x 159x 159x 159x 159x 159x 159x 159x 160x 160x 160x 160x 160x 160x 160x 160x 161x 161x 161x 161x 161x 161x 162x 162x 162x 162x 162x 162x 162x 162x 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 22 (CHARSTUFF) F 11 CHARSTUFF - Routines to manipulate character str 163x 163x 163x 163x 163x 163x 163x 163x 164x 164x 164x 164x 164x 164x 164x 164x 165x 165x 165x 165x 165x 227 NOTNORMAL 00000403 F 11 228j 237= +PAR 00000003 F 11 139 145= 154x 155x 155x 157x 157x 161x 161x 165x 165x 238 SKIPLEADER 000003F0 F 11 206= 212j SOURCEPTR 0017880B F 11 172= 186s TEMP 0017880A F 11 170= 171e 172e 173e 177s 178s 184 185 201s 202s 256 257 ANGLE 00000422 F 11 295j 313= +ASCIIPTR 000003D4 F 11 336 BRACE 00000420 F 11 293j 309= BRACKET 0000041E F 11 291j 305= BUFFULL 00000442 F 11 323j 333j 356= COPYLOOP 0000042A F 11 322j 326= 338j 341j 347j +COPYPAREN 00000410 F 11 281 287= 346 DONE 00000444 F 11 335j 361= ENDCHAR 00178801 F 11 284= 316s 334 339 ERROR 00000445 F 11 348j 353j 358j 365= GOTCHAR 00000423 F 11 297j 302j 306j 310j 316= MISMATCH 00000440 F 11 298j 328j 351= +PAR 00000003 F 11 337 PAREN 0000041C F 11 289j 301= BADCHAR 0000047D F 11 421j 439= CHARTAB 02000447 F 11 391a 392= CHARTABPTR 00000446 F 11 391= 419 +CHARTOP6 00000467 F 11 386 410= EMPTY 0000047B F 11 415j 434= LOOP 0000046D F 11 416= 427j NOINCR 00000476 F 11 424j 426= RETURN 00000480 F 11 431j 436j 441j 448= TOOBIG 0000047F F 11 429j 444= +CHARTOP12 00000481 F 11 467 473= +CHARTOP6 00000467 F 11 475 481 HALF 00178801 F 11 470= 480s 484 RETURN 0000048D F 11 479j 487= BADCHAR 000004A5 F 11 533j 545= +CHARTOINT 0000048E F 11 507 513= DONE 000004A7 F 11 530j 550= EMPTY 000004A3 F 11 517j 540= LOOP 0000049A F 11 528= 537j NOTNEG 00000499 F 11 521j 525= POSITIVE 00000498 F 11 519j 523= RETURN 000004A9 F 11 542j 547j 555= SIGN 00178801 F 11 510= 515s 522s 551 ADD10 000004BA F 11 592j 597= ADDIN 000004BB F 11 589j 599= BADCHAR 000004C1 F 11 595j 611= +CHARTOHEX 000004AA F 11 574 579= DONE 000004C3 F 11 586j 616= EMPTY 000004BF F 11 582j 606= LOOP 000004AF F 11 584= 603j RETURN 000004C4 F 11 608j 613j 620= DONE 000004FF F 11 717j 726= LOOP 000004DA F 11 667= 672j LOWERDONE 000004F1 F 11 682j 705= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 23 (CHARSTUFF) F 11 CHARSTUFF - Routines to manipulate character str LOWERLOOP 000004E2 F 11 680= 702j NEXTLOOP 000004EF F 11 693j 700= NOLEN 000004D5 F 11 657j 659= NOLEN2 000004FC F 11 710j 712j 720= NOLOWER 000004EC F 11 688j 691= NOTLETTER 000004EE F 11 685j 687j 696= P6PTR 000004C5 F 11 649= 670 P6STRING 020004C6 F 11 649a 650= +P6TOCHAR 000004D0 F 11 642 654= RESULTLEN 00178802 F 11 646= 656s 658s 708 VALUE 00178801 F 11 645= 655s 664 DONE 0000051D F 11 780j 791= NOLEN 00000506 F 11 759j 761= ONEWORD 00000518 F 11 766j 783= +P12TOCHAR 00000501 F 11 748 756= +P6TOCHAR 000004D0 F 11 767 773 784 RESULTLEN 00178804 F 11 753= 758s 760s 775 786 RESULTPTR 00178803 F 11 752= 762s 770 787 VALUE 00178801 F 11 751= 757s 765 768 774 785 BUFFER 0017800C F 11 815= 838s 845s 856a +INTTOCHAR 0000051E F 11 810 818= LOOP 0000052B F 11 834= 840j NOLEN 00000523 F 11 821j 823= NOPAD 0000053C F 11 853j 855= NOTNEG 00000529 F 11 827j 830= NOTNEG2 00000536 F 11 843j 847= RESULTLEN 00178802 F 11 814= 820s 822s 850 VALUE 00178801 F 11 813= 819s 826 CHARPTR 00000544 F 11 891= 920 CHARSTRING 02000545 F 11 891a 892= +HEXTOCHAR 00000549 F 11 883 895= LOOP 0000055B F 11 918= 922j NOLEN 00000550 F 11 900j 902= NOPAD 00000555 F 11 907j 909= RESULTLEN 00178803 F 11 888= 897s 899s 901s 905 911 VALUE 00178801 F 11 886= 896s 915a VALUEPTR 00178802 F 11 887= 916s 919 +LENGTH 00000563 F 11 945 950= +LENGTH 00000563 F 11 987 +MOVE 0000056B F 11 975 982= STRING1 00178801 F 11 978= 983s 986 990 STRING2 00178802 F 11 979= 984s 991 LOOP 0000057B F 11 1024= 1035j NEXT 00000583 F 11 1028j 1030j 1033= RETURN 00000585 F 11 1026j 1038= +UPPERFY 00000579 F 11 1016 1021= +COMPARE 00000586 F 11 1066 1073= +LENGTH 00000563 F 11 1078 RETURN 00000595 F 11 1087j 1089j 1093= STRING1 00178801 F 11 1069= 1074s 1077 1082 STRING2 00178802 F 11 1070= 1075s 1083 ASCIIPTR 000003D4 F 11 135 147= 336 +CHARTOHEX 000004AA F 11 93 574 579= +CHARTOINT 0000048E F 11 92 507 513= +CHARTOP12 00000481 F 11 91 467 473= +CHARTOP6 00000467 F 11 90 386 410= 475 481 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 24 (CHARSTUFF) F 11 CHARSTUFF - Routines to manipulate character str +COMPARE 00000586 F 11 101 1066 1073= COPYPAREN 00000410 F 11 240 281 287= 346 CSVERSION 000003D2 F 11 103= DLM 00000001 F 11 137 143= 150x 150x 150x 150x 150x 150x 150x 151x 151x 151x 151x 151x 151x 151x 151x 152x 152x 152x 152x 152x 152x 152x 152x 153x 153x 153x 153x 153x 153x 153x 153x 154x 155x 165x 209 EOL 00000002 F 11 138 144= 150x 216 +GETITEM 000003DD F 11 89 133 176= +HEXTOCHAR 00000549 F 11 97 883 895= +INTTOCHAR 0000051E F 11 96 810 818= +LENGTH 00000563 F 11 98 945 950= 987 1078 +MOVE 0000056B F 11 99 975 982= NOR 00000000 F 11 136 142= 154x 154x 154x 154x 154x 154x 155x 155x 155x 155x 155x 156x 156x 156x 156x 156x 156x 156x 156x 157x 157x 157x 157x 157x 157x 158x 158x 158x 158x 158x 158x 158x 158x 159x 159x 159x 159x 159x 159x 159x 159x 160x 160x 160x 160x 160x 160x 160x 160x 161x 161x 161x 161x 161x 161x 162x 162x 162x 162x 162x 162x 162x 162x 163x 163x 163x 163x 163x 163x 163x 163x 164x 164x 164x 164x 164x 164x 164x 164x 165x 165x 165x 165x 165x 227 +P12TOCHAR 00000501 F 11 95 748 756= +P6TOCHAR 000004D0 F 11 94 642 654= 767 773 784 PAR 00000003 F 11 139 145= 154x 155x 155x 157x 157x 161x 161x 165x 165x 238 337 +UPPERFY 00000579 F 11 100 1016 1021= +P12TOCHAR 00000501 F 15 315 +P6TOCHAR 000004D0 F 15 323 +INTTOCHAR 0000051E F 15 378 +HEXTOCHAR 00000549 F 15 421 +INTTOCHAR 0000051E F 15 588 +CHARTOHEX 000004AA F 14 8 +CHARTOINT 0000048E F 14 7 F 15 232 250 +CHARTOP12 00000481 F 14 6 +CHARTOP6 00000467 F 14 5 +COMPARE 00000586 F 14 16 +FRWRITETF 00000041 F 15 173 173 +GETITEM 000003DD F 14 4 F 15 225 243 +HEXTOCHAR 00000549 F 14 12 F 15 421 +INITPSECT MACRO F 12 15 20 +INTTOCHAR 0000051E F 14 11 F 15 378 588 +LENGTH 00000563 F 14 13 +MOVE 0000056B F 14 14 F 15 360 +P12TOCHAR 00000501 F 14 10 F 15 315 457 +P6TOCHAR 000004D0 F 14 9 F 15 323 442 +PROG MACRO F 12 13 F 15 130 F 17 5 +UPPERFY 00000579 F 14 15 +VARS MACRO F 12 14 F 15 111 F 17 3 +CHARTOHEX 000004AA F 14 8 +CHARTOINT 0000048E F 14 7 F 15 232 250 +CHARTOP12 00000481 F 14 6 +CHARTOP6 00000467 F 14 5 +COMPARE 00000586 F 14 16 +FRWRITETF 00000041 F 15 173 173 +GETITEM 000003DD F 14 4 F 15 225 243 +HEXTOCHAR 00000549 F 14 12 F 15 421 +INITPSECT MACRO F 12 15 20 F 17 8 +INTTOCHAR 0000051E F 14 11 F 15 378 588 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 25 (PO!PURE2) F 17 System date packers and unpackers +LENGTH 00000563 F 14 13 +MOVE 0000056B F 14 14 F 15 360 +P12TOCHAR 00000501 F 14 10 F 15 315 457 +P6TOCHAR 000004D0 F 14 9 F 15 323 442 +PROG MACRO F 12 7 13 F 15 130 F 17 5 +PROGRAM! 00000752 F 12 5e 5= 7a F 17 8= 8a 8e 8e +PSECT! 00000000 F 12 5e 5a 5= 5a 5e 7= 7e 7a 7a 7e F 17 8= +UPPERFY 00000579 F 14 15 +VARIABLES! 0001FCA6 F 12 5a 7e 7= F 17 8= +VARS MACRO F 12 5 14 F 15 111 F 17 3 00752 00000000 477 VFD 0 to indicate where end of nolisted code is 478 ADDRESS 00000011 F 4 26= 35e 36e 37e 38e 134e 232 233 ADTECNT 000000C8 F 6 1505= 1511 ADTLIST 00000000 F 6 1511= APROGB5S 0000105B F 0 132= F 7 103 105s APROGBC 0000105A F 0 131= F 7 164 165s 166s AUTHDSK 0016C804 F 6 1756= AUTHDSKA 0016C805 F 6 1757= AUTHENTBG 00000004 F 6 1749= AUTHLELEN 0000000C F 6 1762= AUTHLENTRY 000007B0 F 6 1752= 1762e AUTHSDSK 0016C806 F 6 1758= AUTHSDSKA 0016C807 F 6 1759= AUTHTIME 00000000 F 6 1746= AUTHTIMEA 00000001 F 6 1747= AUTHVNAME 0016C800 F 6 1753= BLOCKSIZE 00000400 F 6 6= 933e 1233e 1572e 2210e 2223e BOOTDA 00000002 F 6 981= BOOTLOC 00001000 F 4 154= 155e BOOTREV 00000001 F 6 985= BTRXACDE 00000030 F 6 928= BTRXDATE 00000001 F 6 930= BTRXECNT 00000200 F 6 933= BTRXEL 00000000 F 6 922= 931e BTRXFSDE 00000040 F 6 929= BTRXLCDE 00000010 F 6 926= BTRXLNTH 00000002 F 6 931= 933e BTRXREASON 00000080 F 6 923= BTRXRTDE 00000020 F 6 927= BUENCRYPT 000000AF F 0 394 F 7 6 34= BYTEDISP 000028C0 F 6 55= 2365e 2470e CAIMABORT 0000000D F 4 261= CAIMALLXR 00000007 F 4 255= CAIMARITH 00000003 F 4 251= CAIMBREAK 00000006 F 4 254= CAIMCALL 00000002 F 4 250= CAIMCKBDS 00000004 F 4 252= CAIMGUNIT 0000000E F 4 262= CAIMINST 00000001 F 4 249= CAIMMPV 00000005 F 4 253= CAIMMSG 0000000B F 4 259= CAIMNEPATH 00000009 F 4 257= CAIMNETERM 00000008 F 4 256= CAIMTIME 0000000A F 4 258= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 26 F 0 System date packers and unpackers CAIMVMF 0000000C F 4 260= CAINTADR 0016080A F 4 244= CAINTENABL 0008001B F 4 247= CAINTMASK 0016080B F 4 245= 247e CALINK 0016080C F 4 266= CALNTH 0000000F F 4 274= 275e CALOG 00000004 F 4 275= CAMSR 00160801 F 4 234= CANUMREGS 0000000C F 4 265= CANUMUREGS 0000000A F 4 264= CAPC 00081F10 F 4 233= 265e F 6 2538e CAPSR 000800F0 F 4 232= CAR0 00160802 F 4 235= 264e F 6 2539e CAR1 00160803 F 4 236= CAR2 00160804 F 4 237= CAR3 00160805 F 4 238= CAR4 00160806 F 4 239= CAR5 00160807 F 4 240= CAR6 00160808 F 4 241= CAR7 00160809 F 4 242= CASTACKPTR 0016080D F 4 268= CAXOPERAND 0016080E F 4 272= CCB2TRANS 0016080A F 6 2539= CCBALWFRC 00003E10 F 6 2530= CCBBACKUP 00080421 F 6 2529= CCBDIVFRC 00003A10 F 6 2532= CCBFLD2TRN 00000000 F 5 578= CCBFLDBKUP 0000001A F 5 576= CCBFLDIAR 0000000B F 5 565= CCBFLDIMR 0000000A F 5 564= CCBFLDMGR 00000019 F 5 575= CCBFLDMNTR 00000016 F 5 572= CCBFLDMNTW 00000017 F 5 573= CCBFLDOPR 00000018 F 5 574= CCBFLDOWND 00000010 F 5 566= CCBFLDPC 00000008 F 5 562= 577e CCBFLDPSR 00000009 F 5 563= CCBFLDPTRN 00000008 F 5 577= CCBFLDR0 00000000 F 5 554= 578e CCBFLDR1 00000001 F 5 555= CCBFLDR2 00000002 F 5 556= CCBFLDR3 00000003 F 5 557= CCBFLDR4 00000004 F 5 558= CCBFLDR5 00000005 F 5 559= CCBFLDR6 00000006 F 5 560= CCBFLDR7 00000007 F 5 561= CCBFLDRG1 00000011 F 5 567= CCBFLDRG2 00000012 F 5 568= CCBFLDRG3 00000013 F 5 569= CCBFLDRG4 00000014 F 5 570= CCBFLDRG5 00000015 F 5 571= CCBINFO 000003E8 F 6 2552= CCBINFOL 00000018 F 6 2541= 2545e CCBINFPROT 00000839 F 6 2517= 2541e 2542a CCBMAINTR 00083210 F 6 2524= CCBMAINTW 00083410 F 6 2525= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 27 F 0 System date packers and unpackers CCBMANAGR 00083A40 F 6 2527= CCBMAXPAGE 000003E8 F 6 2545= 2547 CCBOPREQ 00083620 F 6 2526= CCBOWNDIR 00080211 F 6 2528= CCBOWNFRC 00003C10 F 6 2531= CCBPAGE0 00000000 F 6 2546= CCBPERMIT 00160800 F 6 2518= 2536 CCBPREGS 00160808 F 6 2537= 2538e 2539e CCBPRJFRC 00003810 F 6 2533= CCBPROTECT 00000010 F 6 2551= CCBPTRANS 00081F18 F 6 2538= CCBRSTCTG1 00080050 F 6 2519= CCBRSTCTG2 00080A50 F 6 2520= CCBRSTCTG3 00081450 F 6 2521= CCBRSTCTG4 00081E50 F 6 2522= CCBRSTCTG5 00082850 F 6 2523= CCBUSRFRC 00003610 F 6 2534= CH0 00000080 F 4 43= CH1 00001080 F 4 44= CH2 00002080 F 4 45= CH3 00003080 F 4 46= CHARM MACRO F 3 298= CHARSTUFF F 11 88= CHARTOHEX 000004AA F 11 93 574 579= F 14 8 CHARTOINT 0000048E F 11 92 507 513= F 14 7 F 15 232 250 CHARTOP12 00000481 F 11 91 467 473= F 14 6 CHARTOP6 00000467 F 11 90 386 410= 475 481 F 14 5 CHRPWD 0200101D F 0 73= 340a COMPARE 00000586 F 11 101 1066 1073= F 14 16 CONAREA 00000000 F 4 231= 274e 276a COPYFILE 00000075 F 0 233 365 371= CPP 00001000 F 0 381 388 401 406 F 4 34= CPW 00000004 F 0 401 F 4 31= 34e F 6 1174 2205 2206 CRANDALL 00000000 F 6 5= 2642a CUSTNUM 00000100 F 6 1145= DATEHORD 00082800 F 6 164= DEVERPFE 000000E0 F 5 210= DEVERPIBO 000000E2 F 5 212= DEVERPPE 000000E1 F 5 211= DEVERTRE 000000E3 F 5 214= DISPFIELD 00002CA0 F 4 150= DSKLIM 00092187 F 6 1614= DSKSAVL 00090186 F 6 1612= DSKUSD 00091188 F 6 1615= DSKWARN 00093186 F 6 1613= DVSNDISP 0000FA00 F 6 93= 95e DVSNPART1 00000170 F 6 94= DVSNPART2 0000007D F 6 95= EQPBLK 00001048 F 0 105= 229a EQPFILNAM 00001052 F 0 112= 223s 265a ERRFLG 00001019 F 0 64= 243 253s 263s FBIACCT 00168805 F 6 780= FBIBLINK 00089182 F 6 749= FBICKSUM 0016880A F 6 784= FBICSMASK FFE00000 F 6 788= FBIDA 00089181 F 6 747= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 28 F 0 System date packers and unpackers FBIDEFFLAGS 00088221 F 6 746= FBIFLAGS 00088041 F 6 740= 741e 742e 744e 745e 746e FBIFLINK 00089180 F 6 738= FBIGMASK FFC00000 F 6 787= FBILCD 00168803 F 6 777= FBILNTH 0000000B F 0 152a 152a 153 159e 159e 401 F 6 7= 783 786e 787e 788e FBILOG 00000004 F 6 786= FBIMEMERR 00088611 F 6 745= FBINOREWRIT 00088011 F 6 741= FBINOSUB 00088411 F 6 744= FBIPROJ 00168807 F 6 781= FBIRELBLK 00089184 F 6 779= FBISERNO 00168808 F 6 782= FBITADT 00000007 F 6 759= FBITAFT 00000010 F 6 768= FBITASLB 00000011 F 6 769= FBITAUTLB 00000015 F 6 773= FBITBOOT 00000003 F 6 755= FBITBTRX 00000002 F 6 754= FBITCCB 00000013 F 6 771= FBITCODED 00000014 F 6 772= FBITESTB 0000007E F 6 774= FBITFREE 0000007F F 6 775= FBITFSLB 00000012 F 6 770= FBITIDX 00000008 F 6 760= FBITLRAF 0000000D F 6 765= FBITPL 00000001 F 6 753= FBITRAFD 0000000F F 6 767= FBITSAF 0000000C F 6 764= FBITSEC 00000006 F 6 758= FBITSRAF 0000000E F 6 766= FBITSUBS 00000005 F 6 757= FBITSYS 0000000B F 6 763= FBITUDIR1 00000009 F 6 761= FBITUDIR2 0000000A F 6 762= FBITVL 00000004 F 6 756= FBITYPE 00088080 F 6 734= FBIWCHK 00088211 F 6 742= FBIWORDA 00168800 F 6 731= 734e 738e 783 FBIWORDB 00168801 F 6 732= 740e 747e FBIWORDC 00168802 F 6 733= 749e FBIWORDE 00168804 F 6 778= 779e FDACCESSES 0016C80C F 6 1847= FDACSAO 00000002 F 6 1789= FDACSLK 0008D040 F 6 1780= FDACSMW 00000004 F 6 1791= FDACSNWB 00003E10 F 6 1792= FDACSRO 00000001 F 6 1788= FDACSRW 00000000 F 6 1787= FDACSXO 00000003 F 6 1790= FDCREDAT 0016C80F F 6 1854= FDCUSE 0008C101 F 6 1830= FDDA 0008D185 F 6 1835= FDEND 0016C811 F 6 1856= FDEPP 0016C810 F 6 1855= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 29 F 0 System date packers and unpackers FDEPROT 000007BC F 6 1775= 1860e FDET 0008EA60 F 6 1801= FDEXTEN 0016C804 F 6 1833= FDFBD 0008DE10 F 6 1793= FDFLOG 0008FA10 F 6 1823= FDFWWSC 0008E610 F 6 1799= FDGHOST 0008F610 F 6 1821= FDLACC 0016C808 F 6 1842= FDLBU 0016C809 F 6 1843= FDLCD 0016C807 F 6 1841= FDLEN 0008D186 F 6 1838= FDLNTH 00000018 F 6 1860= 2211e 2212e 2223e 2234e 2238e FDLRAF 0008E810 F 6 1800= FDMWACS 0008E2FC F 6 1850= FDNAME 0016C802 F 6 1832= FDNBU 0008E010 F 6 1794= FDPRIV 0008D830 F 6 1786= FDPURG 0008E410 F 6 1796= FDPURGE 0016C018 F 6 1836= FDRACS 0008C10C F 6 1848= FDRAFTYPE 0008FC20 F 6 1824= FDRFB 0008E210 F 6 1795= FDRUSE 0008C10D F 6 1851= FDSERNO 0016C80A F 6 1844= FDSHL 0016C814 F 6 1858= FDSTART 0016C800 F 6 1776= 1857 FDSUN 0016C000 F 6 1779= FDTRANS 0008F810 F 6 1822= FDUSRFLD 0016C80E F 6 1853= FDWACS 0008E01C F 6 1849= FDWUSE 0008E10D F 6 1852= FILAEOD 0000000B F 6 2362= FILAEODB 00003C10 F 6 2356= 2362e FILEODB 00003E10 F 6 2355= 2361e 2362e FILEOF 00000008 F 6 2360= FILNEOD 00000009 F 6 2361= FILREODB 00003A10 F 6 2357= FILRLEN 00001B30 F 6 2350= FILSFLAGB 00003810 F 6 2359= 2360e 2361e 2362e FILTYPE 00001040 F 6 2343= FIXUP 0000009B F 0 393 437 442= FLDABSPG 000014C0 F 4 151= FLDADRS 00001F10 F 4 36= 40e FLDBITS 00001F60 F 4 42= FLDCHARS 00001F30 F 4 41= FLDMODE 00001450 F 4 39= 40e FLDMODEADR 00001560 F 4 40= FLDPAGE 00001E70 F 4 37= FLDRELOCB 00001C10 F 4 35= FOURSECSD 00005265 F 6 184= FOURSECSH 0000036E F 6 183= FOURSECSM 0000000E F 6 182= FRAGACCT 000001CD F 5 625= FRAGACCTT 000001CF F 5 630= FRAGBUSY 000001C9 F 5 622= FRAGCPUL 000001C0 F 5 613= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 30 F 0 System date packers and unpackers FRAGCPUU 000001C1 F 5 614= FRAGDFLTR 000001D2 F 5 632= FRAGDSKL 000001C4 F 5 617= FRAGDSKU 000001C5 F 5 618= FRAGENCF 000001D3 F 5 638= FRAGFAC 000001CA F 5 623= FRAGINITP 000001CE F 5 627= FRAGPWAC 000001CB F 5 624= FRAGSAVL 000001C7 F 5 620= FRAGSERNO 000001D0 F 5 635= FRAGSHAD 000001D1 F 5 631= FRAGSSCF 000001C8 F 5 621= FRAGWARN 000001C6 F 5 619= FRAGWLCKL 000001C2 F 5 615= FRAGWLCKU 000001C3 F 5 616= FRALIAS 000001A0 F 5 598= FRASACCT 000001ED F 5 651= FRASACCTT 000001EF F 5 656= FRASCPUL 000001E0 F 5 641= FRASCPUU 000001E1 F 5 642= FRASDFLTR 000001F2 F 5 660= FRASDSKL 000001E4 F 5 645= FRASENCF 000001F3 F 5 663= FRASFAC 000001EA F 5 649= FRASINITP 000001EE F 5 653= FRASPASS 000001F0 F 5 658= FRASPWAC 000001EB F 5 650= FRASSAVL 000001E7 F 5 647= FRASSSCF 000001E8 F 5 648= FRASWARN 000001E6 F 5 646= FRASWLCKL 000001E2 F 5 643= FRASWLCKU 000001E3 F 5 644= FRBKSP 00000016 F 5 297= FRBLKLIM 00000150 F 5 529= FRBLKUSED 00000151 F 5 532= FRCACCESS 000000C0 F 5 432= FRCATALOG 000000E0 F 5 454= FRCG2TRANS 00000181 F 5 539= FRCGBCKUP 0000018C F 5 550= FRCGMANAGR 00000189 F 5 547= FRCGMANTR 0000018A F 5 548= FRCGMANTW 0000018B F 5 549= FRCGOPREQ 00000188 F 5 546= FRCGOWND 00000182 F 5 540= FRCGPTRANS 00000180 F 5 538= FRCGRG1 00000183 F 5 541= FRCGRG2 00000184 F 5 542= FRCGRG3 00000185 F 5 543= FRCGRG4 00000186 F 5 544= FRCGRG5 00000187 F 5 545= FRCHAIN 00000130 F 5 515= FRCHGTRANS 000000C1 F 5 433= FRCLEAR 00000011 F 5 292= FRCLOSE 00000060 F 0 415 F 5 388= FRCLRVVFU 00000251 F 5 697= FRCONCP 00000133 F 5 521= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 31 F 0 System date packers and unpackers FRCREATP 00000134 F 5 518= FRCS2TRANS 00000191 F 5 581= FRCSBCKUP 0000019C F 5 592= FRCSMANAGR 00000199 F 5 589= FRCSMANTR 0000019A F 5 590= FRCSMANTW 0000019B F 5 591= FRCSOPREQ 00000198 F 5 588= FRCSOWND 00000192 F 5 582= FRCSPTRANS 00000190 F 5 580= FRCSRG1 00000193 F 5 583= FRCSRG2 00000194 F 5 584= FRCSRG3 00000195 F 5 585= FRCSRG4 00000196 F 5 586= FRCSRG5 00000197 F 5 587= FRCYCLE 0000001D F 5 303= FRDELPAGE 00000098 F 5 419= FRDESTROY 00000170 F 5 535= FRDEVSTAT 0000001F F 5 305= FRECHOGET 00000242 F 5 692= FRECHOOFF 00000241 F 5 690= FRECHOUNIT 00000240 F 5 688= FREPP 0000001E F 5 304= FREQUIP 00000050 F 5 347= FREQUIPMW 00000054 F 5 350= FREQUIPNA 00000057 F 5 351= FREQUIPR 00000051 F 0 228 F 5 349= FREQUIPW 00000050 F 5 348= FRFILELOCK 00000200 F 5 666= FRFILELOKT 00000202 F 5 674= FRFILEULOK 00000201 F 5 667= FRFORCE 0000001A F 5 301= FRFWSP 00000015 F 5 296= FRGETCCB 0000018F F 5 553= FRGETTRANS 000000C2 F 5 436= FRINSRTP 00000132 F 5 517= FRMAKEPATH 00000270 F 5 700= FRMAPIN 00000091 F 5 404= FRMAPINOC 00000094 F 5 406= FRMAPINR 00000092 F 5 405= FRMODACS 000000D0 F 5 439= FRMODFLOG 000000DB F 5 450= FRMODFWWSC 000000D4 F 5 443= FRMODGHOST 000000D7 F 5 446= FRMODLBKU 000000D6 F 5 445= FRMODLRD 000000D9 F 5 448= FRMODLWD 000000D8 F 5 447= FRMODNBKUP 000000D3 F 5 442= FRMODPRGI 000000D2 F 5 441= FRMODTRANS 000000DA F 5 449= FRMODUSRN 000000D5 F 5 444= FRNOPEN 00000260 F 5 361= FRNOPENC 00000268 F 5 366= FRNOPENCMW 0000026C F 5 369= FRNOPENCNA 0000026F F 5 370= FRNOPENCR 00000269 F 5 368= FRNOPENCW 00000268 F 5 367= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 32 F 0 System date packers and unpackers FRNOPENMW 00000264 F 5 364= FRNOPENNA 00000267 F 5 365= FRNOPENR 00000261 F 5 363= FRNOPENW 00000260 F 5 362= FROPEN 00000050 F 5 353= FROPENMW 00000054 F 5 356= FROPENNA 00000057 F 5 357= FROPENR 00000051 F 5 355= FROPENW 00000050 F 5 354= FRPGPROTG 00000096 F 5 413= FRPGPROTS 00000097 F 5 416= FRPOSITION 00000090 F 0 374 408 F 5 400= FRRAFCPOS 00000095 F 5 410= FRRAFLAST 00000093 F 5 408= FRRAFNEXT 00000099 F 5 421= FRREAD 00000030 F 5 323= FRREADB 00000031 F 0 387 F 5 324= FRREADSHL 000000E1 F 5 455= FRRELEASE 00000013 F 5 294= FRRENAMER 00000100 F 5 461= FRRESLOCKR 00000203 F 5 669= FRRESLOCKT 00000206 F 5 679= FRRESLOCKW 00000204 F 5 670= FRRESLOKT 00000206 F 5 678= FRRESSWTCH 00000290 F 5 703= FRRESULOCK 00000205 F 5 671= FRREWIND 00000012 F 5 293= FRRWRITE 00000020 F 5 313= FRRWRITEB 00000022 F 5 316= FRRWRITEC 00000025 F 5 319= FRRWRITEF 00000023 F 5 317= FRRWRITEL 00000024 F 5 318= FRRWRITET 00000020 F 5 314= FRRWRITETF 00000021 F 5 315= FRSAVE 00000070 F 5 392= FRSEFB 00000018 F 5 299= FRSEFF 00000017 F 5 298= FRSEOD 00000014 F 5 295= FRSETCCB 0000019F F 5 595= FRSETUPP 00000131 F 5 516= FRSETVVFU 00000250 F 5 695= FRSHARE 000000A0 F 5 425= FRSREAD 00000032 F 5 325= FRSREADB 00000033 F 5 326= FRSTATUS 00000010 F 5 291= FRSWRITE 000002A0 F 5 339= FRSWRITEB 000002A2 F 5 342= FRSWRITEF 000002A3 F 5 343= FRSWRITET 000002A0 F 5 340= FRSWRITETF 000002A1 F 5 341= FRTBREAK 000001B5 F 5 608= FRTCLRXOFF 000001B6 F 5 610= FRTDELAY 000001B4 F 5 606= FRTFLSHI 000001B1 F 5 602= FRTFLSHIO 000001B2 F 5 603= FRTFLSHO 000001B0 F 5 601= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 33 F 0 System date packers and unpackers FRTGETBKSP 00000124 F 5 493= FRTGETBRCH 00000233 F 5 506= FRTGETCRD 00000121 F 5 490= FRTGETCW 00000126 F 5 495= FRTGETECHO 00000128 F 5 497= FRTGETFFD 00000123 F 5 492= FRTGETHTD 00000232 F 5 505= FRTGETINFO 00000234 F 5 510= FRTGETIRAT 0000012C F 5 500= FRTGETKILL 00000125 F 5 494= FRTGETLFD 00000122 F 5 491= FRTGETMODE 00000230 F 5 503= FRTGETOPT 00000231 F 5 504= FRTGETPORT 0000012E F 5 501= FRTGETRATE 00000129 F 5 498= FRTGETRCVR 0000012F F 5 502= FRTGETSH 00000127 F 5 496= FRTGETTCG 0000012A F 5 499= FRTGETTCS 0000012B F 5 512= FRTGETTYPE 00000120 F 5 488= FRTGETXOIQ 00000235 F 5 507= FRTRESET 000001B3 F 5 604= FRTSETBKSP 00000114 F 5 469= FRTSETBRCH 00000223 F 5 482= FRTSETCRD 00000111 F 5 466= FRTSETCW 00000116 F 5 471= FRTSETECHO 00000118 F 5 473= FRTSETFFD 00000113 F 5 468= FRTSETHTD 00000222 F 5 481= FRTSETIRAT 0000011C F 5 476= FRTSETKILL 00000115 F 5 470= FRTSETLFD 00000112 F 5 467= FRTSETMODE 00000220 F 5 479= FRTSETOPT 00000221 F 5 480= FRTSETORAT 0000011D F 5 477= FRTSETRATE 00000119 F 5 474= FRTSETSH 00000117 F 5 472= FRTSETTCG 0000011A F 5 475= FRTSETTCS 0000011B F 5 485= FRTSETTRNS 0000011F F 5 478= FRTSETTYPE 00000110 F 5 464= FRTSETXOIQ 00000224 F 5 483= FRUNEQUIP 00000060 F 5 386= FRUNITID 00000210 F 5 682= FRUNITIE 00000211 F 5 683= FRUNITIGET 00000212 F 5 685= FRUNSAVE 00000080 F 5 396= FRUNSHARE 000000B0 F 5 429= FRUOPEN 00000280 F 5 374= FRUOPENC 00000288 F 5 379= FRUOPENCMW 0000028C F 5 382= FRUOPENCNA 0000028F F 5 383= FRUOPENCR 00000289 F 5 381= FRUOPENCW 00000288 F 5 380= FRUOPENMW 00000284 F 5 377= FRUOPENNA 00000287 F 5 378= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 34 F 0 System date packers and unpackers FRUOPENR 00000281 F 5 376= FRUOPENW 00000280 F 5 375= FRWFM 00000019 F 5 300= FRWRITE 00000040 F 5 329= FRWRITEB 00000042 F 0 400 F 5 332= FRWRITEC 00000045 F 5 335= FRWRITEF 00000043 F 5 333= FRWRITEL 00000044 F 5 334= FRWRITEMOD 0000001C F 5 302= FRWRITET 00000040 F 5 330= FRWRITETF 00000041 F 5 331= F 15 173 173 FRXSAVE 00000140 F 5 525= GETITEM 000003DD F 11 89 133 176= F 14 4 F 15 225 243 GETPWD 00000052 F 0 210 290 296= HCSMASK FFC00000 F 0 159= 395 HDRBUF 000043F5 F 0 153= 154e 155e 156e 157e 158e 396 402a HEXTOCHAR 00000549 F 11 97 883 895= F 14 12 F 15 421 HILOCAL 00000064 F 0 67= 214 HTYPECDR 0000000A F 6 1813= HTYPECODE 00000003 F 6 1806= HTYPECT 0000000D F 6 1816= HTYPEDIR 00000005 F 6 1808= HTYPELAST 00000010 F 6 1819= HTYPELP 0000000B F 6 1814= HTYPEMT 0000000C F 6 1815= HTYPENULL 00000006 F 6 1809= HTYPEPATH 00000004 F 6 1807= HTYPERAF 00000002 F 6 1805= HTYPESAF 00000001 F 6 1804= HTYPETASK 00000009 F 6 1812= HTYPETERM 00000007 F 6 1810= HTYPEVOL 0000000E F 6 1817= HTYPEVT 0000000F F 6 1818= IDXACNO 00178800 F 6 1566= 1571e IDXACNOP 00178802 F 6 1567= IDXDIRDA 00178803 F 6 1569= IDXDIRDA2 00178804 F 6 1570= IDXECNT 000000CC F 6 1572= IDXHASH MACRO F 6 1335= IDXLNTH 00000005 F 6 1571= 1572e IMPAGE 00001000 F 0 54= 57a INITPSECT MACRO F 3 63= 72 F 12 15 20 F 17 8 INPUNIT 0000101B F 0 68= 217s 230 376 390 409 416 INTSOFF 0000E000 F 4 82= 86e INTSON 0000F000 F 4 81= 83e 85e INTTOCHAR 0000051E F 11 96 810 818= F 14 11 F 15 378 588 KEYHALF 04001057 F 0 127= KEYINDIC 00001057 F 0 128= 451s F 8 33 KEYPWDDAT 00001058 F 0 129= 446s 448s 449s F 8 31 L 00001000 F 0 124= 135 452 F 7 73 101 159 LENGTH 00000563 F 11 98 945 950= 987 1078 F 14 13 LIMACSALW 00003E10 F 6 1602= LIMACSDIV 00003A10 F 6 1604= LIMACSPROJ 00003810 F 6 1605= LIMACSSYS 00003C10 F 6 1603= LIMACSUSR 00003610 F 6 1606= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 35 F 0 System date packers and unpackers LIMFACCESS 00000040 F 6 1596= LIMITS 0000079C F 6 1592= 1618e LIMITSIZE 00000009 F 6 1618= 2199 2200 LIMLOGSPOT 00001A50 F 6 1599= LIMPACCESS 00000840 F 6 1597= LOCKBIT 80000000 F 4 17= LOCKBITB 00000010 F 4 16= 17e LOGSLOTS 00000004 F 4 48= LUNAIN 000000C9 F 5 232= LUNAOUT 000000CA F 5 233= LUNCMCNTL 000000D2 F 5 236= LUNCMLOW 000000C9 F 5 235= LUNSERR 00000003 F 5 230= LUNSIN 00000001 F 5 228= LUNSOUT 00000002 F 5 229= LWPP 0000000A F 4 33= 37e 134e MAINLINE 00000004 F 0 52a 183 189= MATEDATE1 80000005 F 6 871= MATEDATE2 80000006 F 6 872= MATERUNNUM 04000004 F 6 869= MATEVOLSIZ 80000004 F 6 870= MAXAFTSIZE 000000FD F 6 1321= 1362 MAXIDXSIZE 000000FD F 6 1320= 1321e 1361 MAXLOCAL 00000064 F 5 231= MAXMAPVALS 00000004 F 4 166= MIRRORSECT 00000380 F 6 861= MONBIT 00003010 F 4 148= MONMSR 0000F1F0 F 4 85= MONMSRIOFF 0000E1F0 F 4 86= MONPF 00000080 F 4 136= 153e 155e MOVE 0000056B F 11 99 975 982= F 14 14 F 15 360 MSBLKFIELD 00001180 F 6 38= 738e 747e 749e 779e 1694e MSBLKLOG 00000018 F 4 30= F 6 38e 39e 1612 1613 1614 1615 1834 1835 1838 2247 MSECSD 05265C00 F 6 177= 184e MSECSH 0036EE80 F 6 176= 177e 183e MSECSM 0000EA60 F 6 175= 176e 182e MSECSS 000003E8 F 6 174= 175e MSRFORMON 000001F0 F 4 84= 85e 86e MSRFRELOC 00000040 F 4 77= 84e MSRFRELOCB 00003210 F 4 68= 77e MSRIAPRB 00002A10 F 4 61= MSRINTCNT 00002040 F 4 56= 81e 81e 82e 82e MSRIRELOC 00000010 F 4 79= 84e MSRIRELOCB 00003610 F 4 70= 79e MSRMON 00000100 F 4 74= 84e MSRMONB 00002E10 F 4 63= 74e MSRMPEPRCB 00001E10 F 4 54= MSRPFINTE 00000800 F 4 75= MSRPFINTEB 00002810 F 4 58= 75e MSRPRELOC 00000020 F 4 78= 84e MSRPRELOCB 00003410 F 4 69= 78e MSRRSTRT 00000080 F 4 52= MSRSLOT 00003840 F 4 72= MSRSRELOC 00000080 F 4 76= 84e MSRSRELOCB 00003010 F 4 67= 76e 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 36 F 0 System date packers and unpackers MSRTRACEIB 00002C10 F 4 62= NAMTAB 0000102C F 0 90= 101e 222 NNVMCLOCKS 00000300 F 6 340= NPS 00000080 F 4 134= 135e 136e 148e NUMSLOTS 00000010 F 4 47= 48e NVMBASE 00000002 F 6 208= NVMCLKBYTS 00000004 F 6 300= 301 340 NVMDATDRFT 00000033 F 6 237= NVMDEADCNT 00000010 F 6 303= 305 NVMDEATH 00000080 F 6 307= NVMDEATHE 00000060 F 6 304= NVMFACACC 00000001 F 6 257= NVMFACCPU 00000001 F 6 251= NVMFACCTC 00000001 F 6 272= NVMFACCTU 00000001 F 6 275= NVMFACDISK 00000001 F 6 266= NVMFACLPC 00000001 F 6 269= NVMFACMCU 00000001 F 6 245= NVMFACMSC 00000001 F 6 263= NVMFACMTC 00000001 F 6 278= NVMFACMTU 00000001 F 6 281= NVMFACPAGE 00000020 F 6 248= NVMFACPORT 00000008 F 6 260= NVMFACPPU 00000001 F 6 254= NVMFACVTC 00000001 F 6 284= NVMFACVTU 00000001 F 6 287= NVMLFPPW 00000011 F 6 214= NVMLFPPW1 00000012 F 6 215= NVMLFPPW2 0000001A F 6 216= NVMMAXACC 00000044 F 6 256= NVMMAXCPU 00000042 F 6 250= NVMMAXCTC 00000049 F 6 271= NVMMAXCTU 0000004A F 6 274= NVMMAXDISK 00000047 F 6 265= NVMMAXLPC 00000048 F 6 268= NVMMAXMCU 00000040 F 6 244= NVMMAXMSC 00000046 F 6 262= NVMMAXMTC 0000004B F 6 277= NVMMAXMTU 0000004C F 6 280= NVMMAXPAGE 00000041 F 6 247= NVMMAXPORT 00000045 F 6 259= NVMMAXPPU 00000043 F 6 253= NVMMAXVTC 0000004D F 6 283= NVMMAXVTU 0000004E F 6 286= NVMPWDLEN 00000008 F 0 71= 73 297 NVMRFPPW 00000000 F 6 210= NVMRFPPW1 00000001 F 6 211= NVMRFPPW2 00000009 F 6 212= NVMSIZE 00000080 F 6 207= NVMSSN 0000003C F 6 242= NVMSSUSN 00000038 F 6 240= NVMTAPEPW 00000022 F 0 301 F 6 233= ONEBITS FFFFFFFF F 4 15= 81e 82e ONVMCLOCKS 00000050 F 6 301= ORADDAFT 000000A2 F 5 1079= ORATTACH 00000013 F 5 1001= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 37 F 0 System date packers and unpackers ORBKCACCT 00000051 F 5 1039= ORBKUPACT 000000C1 F 5 1090= ORBKUPDONE 000000C4 F 5 1096= ORBKUPFIL 000000C2 F 5 1091= ORBKUPVOL 000000C0 F 5 1089= ORBUSYVOL 00000047 F 5 1034= ORCANOPMSG 00000162 F 5 1201= ORCAUTHDL 000000F2 F 5 1133= ORCAUTHSL 000000F3 F 5 1134= ORCHGAUTHL 000000E1 F 5 1121= ORCLRPNUM 00000171 F 5 1205= ORCPUSTOP 000001B1 F 5 1256= ORCPUSTRT 000001B2 F 5 1257= ORCREACCT 00000050 F 5 1038= ORCREAUTHE 000000F0 F 5 1128= ORCREAUTHL 000000E0 F 5 1118= ORCVOLNAME 00000190 F 5 1222= ORCVOLNEWO 00000193 F 5 1231= ORCVOLPWD 00000191 F 5 1225= ORCVOLSSN 00000192 F 5 1228= ORCVOLTITLE 00000194 F 5 1234= ORDELAFT 000000A3 F 5 1080= ORDESACCT 00000060 F 5 1042= ORDESAUTHE 000000F8 F 5 1129= ORDESAUTHL 000000E8 F 5 1124= ORDEVINFO 00000110 F 5 1150= ORDISMOUNT 00000041 F 5 1016= ORDISMTDRV 00000045 F 5 1027= ORFORMAT 00000152 F 5 1186= ORGAUTENS 000000FF F 5 1141= ORGAUTHDL 000000FA F 5 1137= ORGAUTHSL 000000FB F 5 1138= ORGENOPMSG 00000160 F 5 1196= ORGETAUTHL 000000E9 F 5 1125= ORGETFP 000000C3 F 5 1092= ORGETOPMSG 00000161 F 5 1199= ORGETTRC 00000138 F 5 1165= ORGOODBYE 00000011 F 5 997= ORGSYSINFO 000001A0 F 5 1249= ORGVOLNAME 00000198 F 5 1237= ORGVOLNEWO 0000019B F 5 1243= ORGVOLSSN 0000019A F 5 1240= ORGVOLTITLE 0000019C F 5 1246= ORHEADCHK 00000154 F 5 1190= ORHELLO 00000010 F 5 995= ORINHIBVOL 00000042 F 5 1019= ORINITEND 000000D4 F 5 1111= ORINITFMT 00000155 F 5 1192= ORINITVOL 000000D0 F 5 1104= ORLOGONP 00000012 F 5 999= ORMAINTR 00000140 F 5 1175= ORMAINTRSUB 00000142 F 5 1176= ORMAINTW 00000150 F 5 1181= ORMAPFP 000000C5 F 5 1100= ORMOUNT 00000040 F 5 1014= ORMOUNTMAI 000000B0 F 5 1084= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 38 F 0 System date packers and unpackers ORMOUNTVOL 00000046 F 5 1031= ORPABORT 00000093 F 5 1070= ORPALLOW 00000071 F 5 1046= ORPEVICT 00000091 F 5 1067= ORPGO 000001D1 F 5 1262= ORPINFO 00000072 F 5 1049= ORPINHIB 00000070 F 5 1045= ORPRESET 00000074 F 5 1053= ORPROCINFO 00000092 F 5 1069= ORPSTOP 000001D0 F 5 1261= ORPTERMIN 00000090 F 5 1066= ORPUTFP 000000D3 F 5 1107= ORPUTPFP 000000D5 F 5 1115= ORPWARN 00000073 F 5 1051= ORRCVRACT 000000D1 F 5 1105= ORRCVRACTL 000000D6 F 5 1108= ORRCVRFIL 000000D2 F 5 1106= ORREADAFT 000000A0 F 5 1074= ORREADCNT 00000101 F 5 1144= ORREADIDX 000000A1 F 5 1077= ORREADNVM 00000141 F 0 300 F 5 1178= ORRESETDRV 00000156 F 5 1193= ORRESETVM 00000014 F 5 1003= ORRWCOUNTS 00000103 F 5 1146= ORSECTRK 00000153 F 5 1188= ORSESSINFO 00000092 F 5 1068= ORSETCPU 000001B0 F 5 1253= ORSETPNUM 00000170 F 5 1204= ORSLEEP 00000030 F 5 1009= ORSTOPDYNW 00000132 F 5 1163= ORSTOPMON 00000131 F 5 1162= ORSTOPTRC 00000130 F 5 1161= ORSTOPXMON 00000133 F 5 1164= ORSTRTBAT 00000180 F 5 1210= ORSTRTDYNW 00000122 F 5 1156= ORSTRTJOB 00000182 F 5 1216= ORSTRTMON 00000121 F 5 1155= ORSTRTSPLR 00000183 F 5 1218= ORSTRTTERM 00000181 F 5 1214= ORSTRTTRC 00000120 F 5 1153= ORSTRTXMON 00000123 F 5 1157= ORTADJUST 00000081 F 5 1058= ORTAKEPAGS 000001C0 F 5 1259= ORTIMPAR 00000082 F 5 1063= ORTZONE 00000080 F 5 1056= ORVANISH 00000020 F 5 1006= ORVINFO 00000043 F 5 1022= ORVOLHANDLE 000000B1 F 5 1085= ORVOLINFO 00000044 F 5 1025= ORWRITECNT 00000102 F 5 1145= ORWRITENVM 00000151 F 5 1183= P12TOCHAR 00000501 F 11 95 748 756= F 14 10 F 15 315 457 P6TOCHAR 000004D0 F 11 94 642 654= 767 773 784 F 14 9 F 15 323 442 PAGEANDISP 00001560 F 4 145= PAGEFIELD 00001C80 F 4 147= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 39 F 0 System date packers and unpackers PARAMLEN 00001000 F 0 59= 197s 201a PARAMM MACRO F 3 280= PARAMO 00001020 F 0 76= PARAMPROC 00000104 F 0 199 F 9 6 181= PARAMS 0000101F F 0 75= 202a PARBUF 00001001 F 0 61= 191a 200a 316a 320a 326a PAROFLAG 0000102B F 0 80a 87= PASSWORD 0000101D F 0 72= 333s 447 PBLEN 00000060 F 0 60= 62 193 196 315 322 PFALTBIT 00001C10 F 4 129= 131e PFCNTL 00001A30 F 4 127= PFNOREFVAL 00060000 F 4 131= PFPAGENUM 000028C0 F 4 133= PFPTR 0012C000 F 4 124= PFREFBIT 00001E10 F 4 130= PFROBIT 00001A10 F 4 128= 131e PFSIZE 00000100 F 4 135= PFSLOT 00000840 F 4 126= PGNUMFLD 00000140 F 6 52= 2364e PGNUMFLDMAJ 000000A0 F 6 53= 2466e PGNUMFLDMIN 000014A0 F 6 54= 2468e PLBDTRXDA 00000018 F 6 838= PLCYLPPCK 00000012 F 6 835= PLDA 00000000 F 6 814= PLFLAGS 00000004 F 6 822= PLFORMNEW 00002E10 F 6 824= PLFORMRFRB 00002C10 F 6 825= PLFRMTRID 00000005 F 6 827= PLINIDATE 00000007 F 6 828= PLINITSCANS 00000009 F 6 829= PLMAKER 00000000 F 6 818= PLMODESN 00000021 F 6 844= 845e PLMODESNL 0000004C F 6 845= PLNODRVID 00003010 F 6 823= PLSDFREV 0000001F F 6 842= PLSDPID 0000001B F 6 841= PLSDVID 00000019 F 6 840= PLSECPTRK 00000010 F 6 833= PLSERIAL 00000000 F 6 817= PLSERNO 00000001 F 6 819= PLSIZE 00000013 F 6 836= PLTRKPCYL 00000011 F 6 834= PNBOOTLOC 00000084 F 4 155= PNPAGEZERO 00000080 F 4 153= PREPOUT 00000596 F 0 254 264 475= PREPOUTM MACRO F 0 475 F 3 251= PRIVWORD 00170801 F 6 1595= PRNTABLE 0000105D F 0 135= F 7 76s 162 PROG MACRO F 3 82= F 12 7 13 F 15 130 F 17 5 PROGB 00004400 F 0 132a 161= 389a 457 PROGBC 02004400 F 0 131a 160= PROGRAM! 00000752 F 3 72= 72e 72a 72e F 12 5= 5e 7a F 17 8= 8a 8e 8e PSECT! 00000000 F 3 72= F 12 5a 5= 5a 5e 5e 7= 7e 7e 7a 7a F 17 8= PSRBCDOTRP 00002C10 F 4 90= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 40 F 0 System date packers and unpackers PSRCARRY 00000004 F 0 454 F 4 100= F 8 79 PSRCARRYB 00003A10 F 4 96= 100e PSRCONDB 00003C20 F 4 97= PSRFIXATRP 00003010 F 4 91= PSRFLTATRP 00003210 F 4 92= PSRMODIF 00000010 F 0 455 461 F 4 99= F 8 79 PSRMODIFB 00003610 F 4 94= 99e PSROVERFB 00003810 F 4 95= 101e PSROVERFLOW 00000008 F 4 101= PSRUNDETRP 00003410 F 4 93= PUREPAGE 00000000 F 0 55= 185a PURGESDV 0000005A F 6 1837= PWRUPADDR 00000000 F 4 12= RAFCHARIDX 000028C0 F 6 2470= RAFMAJINDX 000000A0 F 6 2466= RAFMININDX 000014A0 F 6 2468= RAFTEMPTY 00000000 F 6 1825= RAFTLARGE 00000003 F 6 1828= RAFTSMALL 00000002 F 6 1827= RAFTTINY 00000001 F 6 1826= RESTRWORD 00170800 F 6 1593= REVBACKUP 00000000 F 6 13= REVMNTVOL 18000000 F 6 10= REVVOLLRAF 10000000 F 6 11= REVVOLUME 08000000 F 6 9= ROUNDS 00000003 F 0 125= 135 F 7 73 RTYPEBIN 00000002 F 6 2346= RTYPECOMM 00000005 F 6 2349= RTYPEFORM 00000003 F 6 2347= RTYPELABEL 00000004 F 6 2348= RTYPETEXT 00000000 F 6 2344= RTYPETEXTF 00000001 F 6 2345= SAFBLKNUM 00000140 F 6 2364= SAFCHARNUM 000028C0 F 6 2365= SECADTBTM 00000010 F 6 1354= SECADTCNT 00000018 F 6 1355= SECADTNUM 00000008 F 6 1322= 1353 1354 1355 SECADTTOP 00000008 F 6 1353= SECAFTENTS 0000002B F 6 1360= SECAFTPTR 00000129 F 6 1362= SECAFTSIZ 00000029 F 6 1358= SECBKUPE 00000240 F 6 1396= SECBUDATE 00000001 F 6 1348= SECDATCOR 0000022F F 6 1372= SECDATDRFT 0000022E F 6 1370= SECDATERR 0000022D F 6 1369= SECIDXENTS 0000002A F 6 1359= SECIDXPTR 0000002C F 6 1361= SECIDXSIZ 00000028 F 6 1357= SECLASTDT 00000229 F 6 1367= SECLASTSL 0000022B F 6 1368= SECMNTDAT 00000002 F 6 1350= SECNUMACC 00000235 F 6 1385= SECNUMCPU 00000233 F 6 1383= SECNUMCTC 0000023A F 6 1390= SECNUMCTU 0000023B F 6 1391= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 41 F 0 System date packers and unpackers SECNUMDISK 00000238 F 6 1388= SECNUMLPC 00000239 F 6 1389= SECNUMMCU 00000231 F 6 1381= SECNUMMSC 00000237 F 6 1387= SECNUMMTC 0000023C F 6 1392= SECNUMMTU 0000023D F 6 1393= SECNUMPAGE 00000232 F 6 1382= SECNUMPORT 00000236 F 6 1386= SECNUMPPU 00000234 F 6 1384= SECNUMVTC 0000023E F 6 1394= SECNUMVTU 0000023F F 6 1395= SECSUN 00000000 F 6 1347= SECTZONE 00000226 F 6 1364= SELFDATE1 80000001 F 6 866= SELFDATE2 80000002 F 6 867= SELFRUNNUM 04000000 F 6 864= SELFVOLSIZ 80000000 F 6 865= SHLACCT 0016C801 F 6 1704= SHLACCTP 0016C803 F 6 1705= SHLACCTSYS 0016C806 F 6 1709= SHLACTOPT 0008C220 F 6 1697= SHLACTPRIV 0008C630 F 6 1698= SHLACTPRVM 00000002 F 6 1701= SHLACTPRVR 00000001 F 6 1700= SHLACTPRVW 00000000 F 6 1699= SHLACTPRVX 00000003 F 6 1702= SHLACTPW 0008C210 F 6 1695= SHLACTSYS 0008C410 F 6 1696= SHLDISK 0008D180 F 6 1694= SHLDSKFLG 0008C010 F 6 1693= SHLDSKFLGB 00000010 F 6 1691= 1693e SHLENTLEN 00000004 F 6 1706= SHLENTPLEN 00000006 F 6 1708= SHLENTRYF 0008CC10 F 6 1703= SHLENTSLEN 00000007 F 6 1710= SHLFLAGW 0016C800 F 6 1688= 1693e 1694e 1695e 1696e 1697e 1698e 1703e 1706e 1708e 1710e SHLPWORD 0016C804 F 6 1707= SIZELOG2 0000000C F 0 123= 124e F 7 163 STACK 0000408F F 0 139= 203a 208a STORE 00000000 F 4 14= STPDUBL 00000C10 F 4 29= STPNLAST 00000810 F 4 27= STPVALUE 00000A10 F 4 28= SUBSBADDY 00000000 F 6 1229= 1232e SUBSECNT 00000200 F 6 1233= SUBSLNTH 00000002 F 6 1232= 1233e SUBSSUB 00000001 F 6 1231= SYSTNUM 00002100 F 6 1146= TABINDX 0000101A F 0 65= 219s 221 237s TABLEINDEX 0000105C F 0 134= F 7 36s 161s TABMAX 0000000A F 0 101= 238 TAPELUN 0000101C F 0 69= 81a 403 TIMLIM 00170802 F 6 1608= TIMUSD 00170803 F 6 1609= TPHDRDATE 000043F8 F 0 156= 445s 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 42 F 0 System date packers and unpackers TPHDRDCS 000043FE F 0 157= 462s TPHDRHCS 000043FF F 0 158= 398s TPHDRIND 000043F7 F 0 155= 226s 450s TPHDRNAME 000043F5 F 0 154= 224s UD 00000000 F 6 2162= 2205 2210e 2238e UD1LFDE 000003D8 F 6 2234= UD1LINDX 000003F8 F 6 2256= UD2FDECNT 0000002A F 6 2212= 2238e UD2LFDE 000003D8 F 6 2238= UDACCT 00000000 F 6 2163= UDAUTHLIST 00000040 F 6 2203= UDBYE 0000001A F 6 2180= UDBYEAC 00000015 F 6 2177= UDBYEACP 00000017 F 6 2178= UDBYEACPW 00000018 F 6 2179= UDBYEEXT 0000001C F 6 2181= UDBYEPW 0000001D F 6 2182= UDENCRFLG 00000010 F 6 2186= UDFDECNT 00000026 F 6 2211= 2234e UDFDLIST 00000060 F 6 2207= 2210e 2234e 2256e UDFDSIZE 000003A0 F 6 2210= 2211e 2252e UDHPR 00000010 F 6 2174= UDHPRAC 0000000B F 6 2171= UDHPRACP 0000000D F 6 2172= UDHPRACPW 0000000E F 6 2173= UDHPREXT 00000012 F 6 2175= UDHPRPW 00000013 F 6 2176= UDINDCNT 000000B9 F 6 2252= 2256e UDINDXADR 0008D183 F 6 2247= UDINDXDA2 0016C804 F 6 2248= UDINDXDAW 0016C803 F 6 2245= UDINDXEXT 0016C802 F 6 2244= UDINDXLEN 00000005 F 6 2251= 2252e 2256e UDINDXNAM 0016C800 F 6 2243= UDINDXNUM 0016C00C F 6 2246= UDINDXPROT 00000834 F 6 2242= 2251e UDLFDE 000003E8 F 6 2223= UDLIMITS 0000002B F 6 2198= UDPASS 00000003 F 6 2165= UDPRIORITY 00000029 F 6 2189= UDPRIVS 0000002A F 6 2190= UDPROJ 00000002 F 6 2164= UDSERNO 00000020 F 6 2187= UDSFLAGS 0000001F F 6 2183= UDSHLLIST 0000003C F 6 2202= UDSHLSIZE 00000004 F 6 1713= 1857 1858 2202 UDTITLE 0000004E F 6 2206= UDTITLEL 00000048 F 6 2204= 2205 2206 UDTYPE 0008001A F 6 2169= UDWORDB 0000000A F 6 2168= 2169e UINTARTHOV 00000010 F 5 67= UINTATTACH 00000075 F 5 94= UINTBCDO 0000000F F 5 66= UINTBREAK 00000020 F 5 79= UINTBRKINS 00000079 F 5 95= UINTCEM 00000008 F 5 59= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 43 F 0 System date packers and unpackers UINTCHAIN 0000007B F 5 97= UINTCKB 0000000C F 5 63= UINTDIV0 00000011 F 5 68= UINTFIXOVN 00000013 F 5 70= UINTFIXOVP 00000012 F 5 69= UINTFLTOVN 00000014 F 5 71= UINTFLTOVP 00000016 F 5 73= UINTFLTUFN 00000015 F 5 72= UINTFLTUFP 00000017 F 5 74= UINTGUNIT 00000028 F 5 87= UINTIMI 00000006 F 5 57= UINTIMS 00000003 F 5 54= UINTINST 00000018 F 5 76= UINTIONOV 0000000A F 5 61= UINTLOGIN 0000007F F 5 107= UINTLOGOFF 0000007A F 5 96= UINTMPV 00000074 F 5 93= UINTMSG 00000026 F 5 85= UINTNEPATH 00000023 F 5 82= UINTNETERM 00000022 F 5 81= UINTOPRQ 0000007D F 5 99= UINTOPRQA 00000027 F 5 86= UINTOPRQL 00000001 F 5 100= UINTOPRQP 00000005 F 5 104= UINTOPRQT 00000002 F 5 101= UINTOPRQUL 00000004 F 5 103= UINTOPRQW 00000003 F 5 102= UINTPARL 00000009 F 5 60= UINTPTERM 0000007E F 5 105= UINTSTKO 0000000E F 5 65= UINTSTNG 0000000D F 5 64= UINTTDISC 00000024 F 5 83= UINTTIMCUT 00000021 F 5 80= UINTTIMINT 00000025 F 5 84= UINTTRACEI 0000001F F 5 77= UINTUMODE 00000002 F 5 53= UINTUMP 00000004 F 5 55= UINTUNDEF 00000018 F 5 75= UINTUOP 00000001 F 5 52= UINTUOP2 0000000B F 5 62= UINTVAR 0000007C F 5 98= UINTVMFDE 00000071 F 5 90= UINTVMFIDS 00000072 F 5 91= UINTVMFISR 00000073 F 5 92= UINTVMFPE 00000070 F 5 89= UINTXTI 00000007 F 5 58= UPPERFY 00000579 F 11 100 1016 1021= F 14 15 UPR15 000000F0 F 4 38= URACCTCPUL 000000A8 F 5 849= URACCTWCL 000000A9 F 5 852= URBLKLIM 000000B2 F 5 863= URBLKUSED 000000B3 F 5 866= URBYE 00000090 F 5 836= URCANOPMSG 00000151 F 5 945= URCERPROC 00000089 F 5 830= URCLRDEBUG 00000086 F 5 822= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 44 F 0 System date packers and unpackers URCLRTIMIN 00000142 F 5 939= URCNAME 00000180 F 5 964= URCPTIMEG 000000A1 F 5 843= URCPTIMES 000000A0 F 5 840= URDELAY 00000140 F 5 933= URDELAYR 00000143 F 5 934= URDROPPRIV 00000182 F 5 968= URERRORGET 00000028 F 5 751= UREXCLPAGE 000000C2 F 5 874= URFORCEP 000000C4 F 5 875= URFREELUN 00000122 F 0 213 F 5 922= URFREEPAGE 000000C0 F 5 869= URFSERNO 00000061 F 5 782= URGENOPMSG 00000150 F 5 943= URGETMSG 00000161 F 5 951= URGETMSGA 00000162 F 5 953= URGETPNUM 00000170 F 5 960= URGETSSN 00000053 F 0 308 F 5 762= URGETVERS 00000054 F 5 764= URGIVELUN 00000123 F 5 924= URGIVEUNIT 00000190 F 5 971= URGRUNLUN 00000120 F 5 918= URINTRGO 0000008A F 5 833= URINTRTN 00000082 F 5 818= URLEA 00000130 F 5 928= URLEA2 00000131 F 5 929= URLOADFACT 00000051 F 5 756= URLUNITS 00000057 F 5 772= URMAPINAS 00000110 F 5 915= URMAYIRUN 00000055 F 5 766= URNEXTLUN 00000121 F 5 920= URPACKFI 00000101 F 5 910= URPACKFS 00000102 F 5 911= URPACKI 00000100 F 0 325 F 5 907= URPAGETYPE 000000C1 F 5 872= URPAKTIME 0000006C F 5 799= URPAKTIML 0000006D F 5 800= URPDSTRY 000000D2 F 5 884= URPDSTRYA 000000D3 F 5 887= URPDSTRYAP 000000D6 F 5 890= URPDSTRYP 000000D5 F 5 889= URPGETREG 000000F0 F 5 903= URPGO 000000D0 F 5 881= URPROCINFO 00000052 F 5 760= URPROCLVL 00000058 F 5 774= URPSETREG 000000E0 F 5 899= URPSTEP 000000D4 F 5 882= URRAWDATE 00000060 F 0 443 F 5 781= URRCVUNIT 00000191 F 5 974= URSCINTARM 00000081 F 5 816= URSCMSGA 00000164 F 5 956= URSENDERR 00000087 F 5 826= URSENDMSG 00000160 F 5 948= URSERPROC 00000088 F 5 829= URSESBLKG 000000B1 F 5 860= URSESBLKS 000000B0 F 5 856= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 45 F 0 System date packers and unpackers URSESSINFO 00000052 F 5 759= URSESWCLK 000000A7 F 5 846= URSETDEBUG 00000085 F 5 821= URSETLGFSES 00000181 F 5 966= URSETTIMIN 00000141 F 5 937= URSSINTARM 00000080 F 5 815= URSSMSGA 00000163 F 5 955= URSTOP 00000070 F 5 803= URSTOPA 00000078 F 0 246 F 5 808= URSTOPAR 0000007A F 5 810= URSTOPAZ 00000079 F 5 809= URSTOPAZR 0000007B F 5 811= URSTOPI 00000074 F 5 807= URSTOPIA 0000007C F 5 812= URSTOPR 00000072 F 5 805= URSTOPZ 00000071 F 0 242 F 5 804= URSTOPZR 00000073 F 5 806= URTRAFFIC 00000050 F 5 755= URUDRPINFO 00000056 F 5 769= URUGDATE 00000064 F 5 793= URULDATE 00000065 F 5 794= URUNLDATE 00000063 F 5 788= URUNRDATE 00000062 F 5 787= URVARGET 00000020 F 5 742= URVARGETS 00000021 F 0 190 319 F 5 747= URVARSET 00000010 F 5 734= URVARSETS 00000011 F 5 738= URWRITEP 000000C5 F 5 876= USERMSR 0000F000 F 4 83= VARIABLES! 0001FCA6 F 3 72= F 12 5a 7e 7= F 17 8= VARS MACRO F 3 74= F 12 5 14 F 15 111 F 17 3 VLAVREV 0000000C F 6 1163= VLBKUPE 00000040 F 6 1175= VLCDATE 00000008 F 6 1158= VLFLAGINV 00000210 F 6 1161= VLFLAGNEWO 00000410 F 6 1162= VLFLAGS 0000000B F 6 1160= VLSECB2DA 00000013 F 6 1171= VLSECBDA 00000012 F 6 1170= VLSSN 00000000 F 6 1140= VLSUBSDA 00000010 F 6 1168= VLTITLE 00000020 F 6 1174= VLTITLELEN 00000080 F 6 1173= 1174 VLVNAME 00000004 F 6 1149= VLVPASSW 00000006 F 6 1152= VLVREV 0000000D F 6 1165= VOLFIELD 00000080 F 6 39= VOLLABELDA 00000001 F 6 1137= WAITCOUNT 00040000 F 4 106= WLCKLIM 00170804 F 6 1610= WLCKUSD 00170805 F 6 1611= WORDLNTH 00000020 F 4 25= 35e 36e 36e 37e 37e 38e 232 WPP 00000400 F 0 54e 152a 152a 161 F 4 32= 33e 34e 155e F 6 6e 2212e 2545e XREQERAIR 000000BA F 5 183= XREQERBFN 0000008F F 5 129= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 46 F 0 System date packers and unpackers XREQERBSBL 0000009E F 5 149= XREQERBVAR 00000097 F 5 142= XREQERDAA 000000B0 F 5 173= XREQERDCM 000000C3 F 5 192= XREQERDIO 000000C4 F 5 194= XREQERDNA 000000AF F 5 172= XREQERDNC 000000B1 F 5 174= XREQERDNR 000000AE F 5 171= XREQERDSE 0000009F F 5 150= XREQERDSKL 00000087 F 5 117= XREQERESDL 000000C5 F 5 196= XREQERFAU 00000089 F 5 119= XREQERFBZ 0000008A F 5 121= XREQERFHBD 00000090 F 5 130= XREQERFIP 000000A8 F 5 163= XREQERFNF 0000008D F 5 124= XREQERFPRG 00000092 F 5 132= XREQERIAUT 000000A7 F 5 162= XREQERILOP 00000091 F 5 131= XREQERILR 00000080 F 5 109= XREQERINHI 000000A9 F 5 164= XREQERISAV 00000088 F 5 118= XREQERISYR 00000093 F 5 133= XREQERITK 000000C9 F 5 200= XREQERITM 000000CA F 5 201= XREQERLAE 00000083 F 5 113= XREQERLAS 0000008B F 5 122= XREQERLBZ 000000C6 F 5 197= XREQERLNE 00000081 F 5 111= XREQERLNS 0000008C F 5 123= XREQERLPE 00000095 F 5 137= XREQERMNRP 000000A2 F 5 157= XREQERMWNA 00000086 F 5 116= XREQERNAE 0000008E F 5 128= XREQERNDS 000000B6 F 5 179= XREQERNDT 000000B7 F 5 180= XREQERNFSV 0000009D F 5 148= XREQERNR 000000AC F 5 169= XREQERNSE 000000AB F 5 168= XREQERNSL 000000AA F 5 167= XREQERNSPP 000000A3 F 5 158= XREQERNSS 000000B5 F 5 178= XREQERNSV 000000A6 F 5 161= XREQEROFC 000000A0 F 5 155= XREQEROIO 000000B9 F 5 182= XREQERPFM 00000084 F 5 114= XREQERPNS 00000094 F 5 136= XREQERPOB 00000082 F 5 112= XREQERPWW 00000096 F 5 138= XREQERREOD 000000A4 F 5 159= XREQERRIB 000000B8 F 5 181= XREQERRNA 00000085 F 5 115= XREQERSCU 000000C7 F 5 198= XREQERSDE 000000C0 F 5 189= XREQERSIB 000000BD F 5 186= XREQERSIO 000000BB F 5 184= 1 Assembler C9208 TAPEBOOTMAKE - write code files on tape for TAPE 28-Jun-93 9:18 PAGE 47 F 0 System date packers and unpackers XREQERSIU 00000099 F 5 144= XREQERSPB 000000BF F 5 188= XREQERSUSP 000000AD F 5 170= XREQERTMD 000000C2 F 5 191= XREQERUAM 0000009A F 5 145= XREQERUIB 000000BE F 5 187= XREQERUKC 000000B3 F 5 176= XREQERUKF 000000B4 F 5 177= XREQERUKP 000000BC F 5 185= XREQERUKS 000000B2 F 5 175= XREQERULT 000000C1 F 5 190= XREQERVBB 000000C8 F 5 199= XREQERVIU 000000A1 F 5 156= XREQERVLB 0000009B F 5 146= XREQERVNMR 0000009C F 5 147= XREQERWANA 000000A5 F 5 160= XREQERWPT 00000098 F 5 143= XREQRSTR 00000050 F 6 1594= XRFLDCODE 00002CA0 F 5 266= XRFLDNRWD 00002210 F 5 270= 271e XRFLDREQ 00002C60 F 5 268= XRFLDSUBOP 00003840 F 5 267= XRFLDSUSP 00001E20 F 5 272= 273e 274e XRMAIFLD 00002630 F 5 1168= 1169e 1170e 1171e XRNOERRS 00000800 F 5 1170= XRNOREWND 00004000 F 5 271= XRNOSUB 00001000 F 5 1169= XRSUSPERR 00008000 F 5 274= XRSUSPNORM 00000000 F 5 273= XRWWCHK 00000400 F 5 1171= ZERO 00000000 F 4 11= 12e 155e 479 END TAPEBOOTMAKE