ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 4 1 .TITLE ADS - ALLOCATE DUMP SPACE 2 .IDENT /02.00/ 3 .LIST MEB 4 000000 .PSECT ADS 5 ; 6 ; AUTHOR: H. L. COLEMAN 7 ; MILLIKEN AND COMPANY 8 ; P. O. BOX 1926 9 ; MAIL STOP M-103 10 ; SPARTANBURG, S. C. 29304 11 ; (803)573-2556 12 ; 13 ; VERSION: 01.00 14 ; 15 ; DATE: 9-FEB-78 16 ; 17 ; MODIFICATIONS: 18 ; 19 ; FUNCTION: ALLOCATE A FILE ON DISK TO BE USED FOR CRASH DUMPS AND 20 ; POINT THE CRASH DUMP ROUTINE TO IT. THE FIRST BLOCK IN 21 ; THE FILE IS WRITTEN AS ALL ZEROES. 22 ; 23 ; INPUT: MCR COMMAND LINE OF THE FORM: 24 ; 25 ; ADS DDUU:[GROUP,OWNER]NAME.TYP;VER 26 ; 27 ; DEFAULTS: 28 ; 29 ; DDUU: SY0: 30 ; GROUP 1 31 ; OWNER 4 32 ; NAME CRASH 33 ; TYP DMP 34 ; VER 0 35 ; ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 5 37 ; MACRO CALLS AND SYSTEM DEFINITIONS 38 ; 39 .MCALL GMCR$,DIR$,QIOW$S,EXIT$S,MSGN$S,CKDSW$S 40 .MCALL DCBDF$,UCBDF$,SCBDF$,TCBDF$,FDOF$L,FCSBT$,QIOSY$ 41 .MCALL HDRDF$ 42 000000 DCBDF$ ;DEFINE DCB OFFSETS 43 000000 UCBDF$ ;DEFINE UCB OFFSETS 44 000000 SCBDF$ ;DEFINE SCB OFFSETS 45 000000 TCBDF$ ;DEFINE TCB OFFSETS 46 000000 HDRDF$ ;DEFINE TASK HEADER OFFSETS 47 000000 FDOF$L ;DEFINE FCS OFFSETS 48 000000 FCSBT$ ;DEFINE FCS BITS 49 000000 QIOSY$ ;DEFINE QIO FUNCTION AND ERROR CODES 50 000000 .PSECT ADS ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 6 52 ; MESSAGES 53 ; 54 000000 005 PFX: .BYTE PRMT-PFX-1 55 000001 101 104 123 .ASCII /ADS -/ 000004 040 055 56 000006 004 PRMT: .BYTE M001-PRMT-1 57 000007 101 104 123 .ASCII /ADS>/ 000012 076 58 000013 031 M001: .BYTE M002-M001-1 59 000014 116 117 124 .ASCII /NOT A PRIVLEDGED TERMINAL/ 000017 040 101 040 000022 120 122 111 000025 126 114 105 000030 104 107 105 000033 104 040 124 000036 105 122 115 000041 111 116 101 000044 114 60 000045 014 M002: .BYTE M003-M002-1 61 000046 123 131 116 .ASCII /SYNTAX ERROR/ 000051 124 101 130 000054 040 105 122 000057 122 117 122 62 000062 026 M003: .BYTE M004-M003-1 63 000063 127 111 114 .ASCII /WILD CARDS NOT ALLOWED/ 000066 104 040 103 000071 101 122 104 000074 123 040 116 000077 117 124 040 000102 101 114 114 000105 117 127 105 000110 104 64 000111 016 M004: .BYTE M005-M004-1 65 000112 111 116 126 .ASCII /INVALID DEVICE/ 000115 101 114 111 000120 104 040 104 000123 105 126 111 000126 103 105 66 000130 377 M005: .BYTE M006-M006-1 67 000131 104 105 126 .ASCII /DEVICE NOT MOUNTED/ 000134 111 103 105 000137 040 116 117 000142 124 040 115 000145 117 125 116 000150 124 105 104 68 000153 030 M006: .BYTE M007-M006-1 69 000154 104 111 122 .ASCII /DIRECTORY DOES NOT EXIST/ 000157 105 103 124 000162 117 122 131 000165 040 104 117 000170 105 123 040 000173 116 117 124 000176 040 105 130 000201 111 123 124 70 000204 045 M007: .BYTE M008-M007-1 71 000205 111 055 117 .ASCII /I-O ERROR FINDING DIRECTORY / 000210 040 105 122 ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 6-1 000213 122 117 122 000216 040 106 111 000221 116 104 111 000224 116 107 040 000227 104 111 122 000232 105 103 124 000235 117 122 131 000240 040 72 000241 040 040 040 M007A: .ASCII / / 000244 040 040 040 000247 040 040 040 73 000252 020 M008: .BYTE M009-M008-1 74 000253 104 105 126 .ASCII /DEVICE TOO SMALL/ 000256 111 103 105 000261 040 124 117 000264 117 040 123 000267 115 101 114 000272 114 75 000273 027 M009: .BYTE M010-M009-1 76 000274 111 116 123 .ASCII /INSUFFICIENT FREE SPACE/ 000277 125 106 106 000302 111 103 111 000305 105 116 124 000310 040 106 122 000313 105 105 040 000316 123 120 101 000321 103 105 77 000323 013 M010: .BYTE M011-M010-1 78 000324 104 105 126 .ASCII /DEVICE FULL/ 000327 111 103 105 000332 040 106 125 000335 114 114 79 000337 017 M011: .BYTE M012-M011-1 80 000340 111 116 104 .ASCII /INDEX FILE FULL/ 000343 105 130 040 000346 106 111 114 000351 105 040 106 000354 125 114 114 81 000357 035 M012: .BYTE M013-M012-1 82 000360 111 055 117 .ASCII /I-O ERROR ON CREATE / 000363 040 105 122 000366 122 117 122 000371 040 117 116 000374 040 103 122 000377 105 101 124 000402 105 040 83 000404 040 040 040 M012A: .ASCII / / 000407 040 040 040 000412 040 040 040 84 000415 050 M013: .BYTE M014-M013-1 85 000416 104 125 115 .ASCII /DUMP FILE ALLOCATED - NOT AT END OF PACK/ 000421 120 040 106 000424 111 114 105 000427 040 101 114 000432 114 117 103 000435 101 124 105 000440 104 040 055 ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 6-2 000443 040 116 117 000446 124 040 101 000451 124 040 105 000454 116 104 040 000457 117 106 040 000462 120 101 103 000465 113 86 000466 023 M014: .BYTE M015-M014-1 87 000467 104 125 115 .ASCII /DUMP FILE ALLOCATED/ 000472 120 040 106 000475 111 114 105 000500 040 101 114 000503 114 117 103 000506 101 124 105 000511 104 88 000512 043 M015: .BYTE M016-M015-1 89 000513 111 055 117 .ASCII /I-O ERROR FORMATTING FILE / 000516 040 105 122 000521 122 117 122 000524 040 106 117 000527 122 115 101 000532 124 124 111 000535 116 107 040 000540 106 111 114 000543 105 040 90 000545 040 040 040 M015A: .ASCII / / 000550 040 040 040 000553 040 040 040 91 000556 024 M016: .BYTE M017-M016-1 92 000557 104 105 126 .ASCII /DEVICE NOT SUPPORTED/ 000562 111 103 105 000565 040 116 117 000570 124 040 123 000573 125 120 120 000576 117 122 124 000601 105 104 93 000603 000 M017: .BYTE 0 94 .EVEN ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 7 96 ; CONSTANTS AND WORK AREAS 97 ; 98 000604 MCRLIN: GMCR$ ;MCR COMMAND BUFFER 000604 177 051 .BYTE 127.,41. 99 000726 PARBUF: ;PARSE BUFFER 100 000726 040 040 PARDEV: .ASCII / / ;DEVICE NAME 101 000730 000000 PARUN: .WORD 0 ;UNIT NUMBER 102 000732 000 000 PARUIC: .BYTE 0,0 ;UIC - GROUP,OWNER 103 000734 000000 000000 000000 PARFNM: .RAD50 / / ;FILE NAME 104 000742 000000 PARTYP: .RAD50 / / ;FILE TYPE 105 000744 000000 PARVER: .WORD 0 ;FILE VERSION NUMBER 106 000746 000000 PARFLG: .WORD 0 ;FLAGS 107 000750 123 131 DEFBUF: .ASCII /SY/ ;DEFAULTS 108 000752 000000 .WORD 0 109 000754 004 001 .BYTE 4,1 110 000756 012621 074000 000000 .RAD50 /CRASH DMP/ 000764 015430 111 000766 000000 000000 .WORD 0,0 112 000772 000726' CRPARM: .WORD PARBUF ;A(PARSE BUFFER) 113 000774 001016' .WORD DUMFDB ;A(DUMMY FDB) 114 000776 000002 .WORD 2 ;LUN 2 115 001000 CRPFSI: .BLKW 2 ;FILE SIZE 116 001004 CRPSLB: .BLKW 2 ;STARTING LBN 117 001010 000007 .WORD 7 ;FLAGS - CONTIGUOUS 118 ; PLACEMENT 119 ; ANY IF PLACEMENT FAILS 120 001012 CRPALB: .BLKW 2 ;ACTUAL STARTING LBN 121 001016 001 000 DUMFDB: .BYTE R.FIX,0 ;F.RTYP,F.RATT 122 001020 001000 .WORD 512. ;F.RSIZ 123 001022 .BLKW 2 ;F.HIBK 124 001026 .BLKW 2 ;F.EFBK 125 001032 001000 .WORD 512. ;F.FFBY 126 001034 000000 000062' 000153' CREMT1: .WORD 0,M003,M006,M007,M009,M010,M011,M012 001042 000204' 000273' 000323' 001050 000337' 000357' 127 001054 000000 000000 000000 CREMT2: .WORD 0,0,0,M007A,0,0,0,M012A 001062 000241' 000000 000000 001070 000000 000404' 128 001074 000000 PCFLG: .WORD 0 129 001076 IOSB: .BLKW 2 130 001102 000000 DMPUCB: .WORD 0 131 001104 104 113 104 DNTAB: .ASCII /DKDMDB/ 001107 115 104 102 132 001112 000000 .WORD 0 133 001114 003704' 004042' 004214' DRTAB: .WORD DKRTN,DMRTN,DBRTN 134 001122 004414' 004434' 004414' DATAB: .WORD DKARTN,DMARTN,DBARTN 135 001130 000000 DEVRTN: .WORD 0 136 001132 000000 DARTN: .WORD 0 137 001134 ZERO: .BLKW 256. ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 8 139 002134 016701 000000G ADS: MOV $TKTCB,R1 ;R1 = A(MY TCB) 140 002140 016100 000026 MOV T.UCB(R1),R0 ;R0 = A(TI: UCB) 141 002144 032760 000010 000012 BIT #U2.PRV,U.CW2(R0) ;IS THE USER PRIVLEDGED? 142 002152 001015 BNE 1100$ ;IF NE, YES - CONTINUE 143 002154 MSGN$S PFX,3,M001,,,ABORT ;NOT A PRIVLEDGED TERMINAL 002154 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002160 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002162 000003 .WORD 3 ;SEVERITY LEVEL 002164 000013' .IIF NB .WORD M001 ;A(MESSAGE TEXT) 002166 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002172 103002 BCC .+6 002174 004767 001502 JSR PC,ABORT 144 002200 1000$: EXIT$S 002200 012746 MOV (PC)+,-(SP) 002202 063 001 .BYTE 51.,1 002204 104377 EMT ^O<377> 145 002206 016701 000000G 1100$: MOV $SYSIZ,R1 ;R1 = PHYSICAL MEMORY SIZE(32W BLOCKS) 146 002212 006201 ASR R1 ;64W BLOCKS 147 002214 006201 ASR R1 ;128W BLOCKS 148 002216 006201 ASR R1 ;256W BLOCKS 149 002220 062701 000022 ADD #22,R1 ;R1 = FILE SIZE 150 ;22 ACCOUNTS FOR A POSSIBLE 4 K WORDS WHICH 151 ;ARE NOT ADDRESSABLE (NOT SYSGENED) ON AN 152 ;11/70 IN 18 BIT MODE. (I.E. A 128K CPU 153 ;WHICH WAS SYSGENED 124K TO KEEP 18 BIT 154 ;ADDRESSING MODE.) 155 002224 010167 176552 MOV R1,CRPFSI+2 ;SET FILE SIZE 156 002230 010167 176574 MOV R1,DUMFDB+F.EFBK+2 ;SET EOF VBN 157 002234 010167 176564 MOV R1,DUMFDB+F.HIBK+2 ;SET HIGH VBN 158 002240 012700 000606' MOV #MCRLIN+2,R0 ;R0 = A(MCR COMMAND) 159 002244 DIR$ #MCRLIN ;GET MCR COMMAND LINE 002244 012746 000604' MOV #MCRLIN,-(SP) 002250 104377 EMT ^O<377> 160 002252 103021 BCC 1300$ ;IF CC, WE GOT ONE - GO PROCESS IT 161 002254 1200$: MSGN$S PRMT,0,,MCRLIN+2,79.,ABORT ;PROMPT FOR COMMAND 002254 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002260 000006' .IIF NB .WORD PRMT ;A(MESSAGE PREFIX) 002262 000000 .WORD 0 ;SEVERITY LEVEL 002264 000000 .IIF B <> .WORD 0 ;NO MESSAGE TEXT 002266 000606' .WORD MCRLIN+2 ;A(REPLY BUFFER) 002270 000117 .WORD 79. ;REPLY LENGTH 002272 103002 BCC .+6 002274 004767 001402 JSR PC,ABORT 162 002300 122767 177766 000000G CMPB #IE.EOF,$TIOSB ;CTRL/Z? 163 002306 001734 BEQ 1000$ ;IF EQ, YES - EXIT 164 002310 012700 000606' MOV #MCRLIN+2,R0 ;R0 = A(COMMAND LINE) 165 002314 000405 BR 1400$ ;GO PARSE COMMAND 166 002316 105710 1300$: TSTB (R0) ;EOL? 167 002320 001403 BEQ 1400$ ;IF EQ, YES - NOTHING TO SKIP 168 002322 122720 000040 CMPB #' ,(R0)+ ;BLANK? 169 002326 001373 BNE 1300$ ;IF NE, NO - KEEP LOOKING 170 002330 012701 000726' 1400$: MOV #PARBUF,R1 ;R1 = A(PARSE BUFFER) 171 002334 012702 000750' MOV #DEFBUF,R2 ;R2 = A(DEFAULTS) 172 002340 012703 000010 MOV #8.,R3 ;R3 = COUNT 173 002344 012221 1500$: MOV (R2)+,(R1)+ ;SET UP DEFAULTS 174 002346 SOB R3,1500$ ;LOOP UNTIL DONE 002346 005303 DEC R3 ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 8-1 002350 001375 BNE 1500$ 175 002352 012701 000726' MOV #PARBUF,R1 ;R1 = A(PARSE BUFFER) 176 002356 105710 TSTB (R0) ;ANYTHING TO PARSE? 177 002360 001416 BEQ 1600$ ;IF EQ, NO - USE ALL DEFAULTS 178 002362 CALL $PARFL ;PARSE THE COMMAND 002362 004767 000000G JSR PC,$PARFL 179 002366 103013 BCC 1600$ ;IF CC, NO ERRORS - CONTINUE 180 002370 MSGN$S PFX,3,M002,,,ABORT ;SYNTAX ERROR 002370 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002374 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002376 000003 .WORD 3 ;SEVERITY LEVEL 002400 000045' .IIF NB .WORD M002 ;A(MESSAGE TEXT) 002402 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002406 103002 BCC .+6 002410 004767 001266 JSR PC,ABORT 181 002414 000717 BR 1200$ ;FORCE PROMPT 182 002416 012703 000726' 1600$: MOV #PARDEV,R3 ;R3 = A(DEVICE NAME) 183 002422 016701 176302 MOV PARUN,R1 ;R1 = UNIT NUMBER 184 002426 112702 000072 MOVB #':,R2 ;R2 = COLON 185 002432 CALL $FDLGG ;LOCATE THE UCB OR LCB 002432 004767 000000G JSR PC,$FDLGG 186 002436 103013 BCC 1900$ ;IF CC, WE FOUND IT - CONTINUE 187 002440 1800$: MSGN$S PFX,3,M004,,,ABORT ;INVALID DEVICE 002440 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002444 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002446 000003 .WORD 3 ;SEVERITY LEVEL 002450 000111' .IIF NB .WORD M004 ;A(MESSAGE TEXT) 002452 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002456 103002 BCC .+6 002460 004767 001216 JSR PC,ABORT 188 002464 000673 BR 1200$ ;FORCE PROMPT 189 002466 1900$: CALL $SWSTK,2100$ ;SWITCH TO SYSTEM STACK 002466 104376 EMT 376 002470 002522' .WORD 2100$ 190 002472 016101 000002 2000$: MOV U.RED(R1),R1 ;;;FOLLOW REDIRECT CHAIN 191 002476 026101 000002 CMP U.RED(R1),R1 ;;;END OF CHAIN? 192 002502 001373 BNE 2000$ ;;;IF NE, NO - KEEP LOOKING 193 002504 010167 176372 MOV R1,DMPUCB ;;;SAVE A(DUMP DEVICE UCB) 194 002510 016700 000000G MOV $HEADR,R0 ;;;R0 = A(MY TASK HEADER) 195 002514 010160 000102 MOV R1,H.LUN+4(R0) ;;;ASSIGN LUN 2 TO DEVICE 196 002520 RETURN ;;;RETURN TO USER STACK 002520 000207 RTS PC 197 002522 016701 176354 2100$: MOV DMPUCB,R1 ;R1 = A(DUMP DEVICE UCB) 198 002526 032761 040000 000010 BIT #DV.F11,U.CW1(R1) ;FILES 11 DEVICE? 199 002534 001741 BEQ 1800$ ;IF EQ, NO - INVALID DEVICE 200 002536 132761 000100 000005 BITB #US.MNT,U.STS(R1) ;IS DEVICE MOUNTED? 201 002544 001413 BEQ 2300$ ;IF EQ, YES - CONTINUE 202 002546 2200$: MSGN$S PFX,3,M005,,,ABORT ;DEVICE NOT MOUNTED 002546 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002552 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002554 000003 .WORD 3 ;SEVERITY LEVEL 002556 000130' .IIF NB .WORD M005 ;A(MESSAGE TEXT) 002560 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002564 103002 BCC .+6 002566 004767 001110 JSR PC,ABORT 203 002572 000630 BR 1200$ ;FORCE PROMPT 204 002574 012700 001104' 2300$: MOV #DNTAB,R0 ;R0 = A(DEVICE NAME TABLE) ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 8-2 205 002600 016102 000000 MOV U.DCB(R1),R2 ;R2 = A(DCB) 206 002604 026220 000004 2220$: CMP D.NAM(R2),(R0)+ ;MATCH? 207 002610 001415 BEQ 2230$ ;IF EQ, YES 208 002612 005710 TST (R0) ;END OF TABLE? 209 002614 001373 BNE 2220$ ;IF NE, NO - LOOP UNTIL DONE 210 002616 MSGN$S PFX,3,M016,,,ABORT ;DEVICE NOT SUPPORTED 002616 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002622 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002624 000003 .WORD 3 ;SEVERITY LEVEL 002626 000556' .IIF NB .WORD M016 ;A(MESSAGE TEXT) 002630 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002634 103002 BCC .+6 002636 004767 001040 JSR PC,ABORT 211 002642 000604 BR 1200$ ;FORCE PROMPT 212 002644 162700 001106' 2230$: SUB #DNTAB+2,R0 ;R0 = TABLE OFFSET 213 002650 016067 001114' 176252 MOV DRTAB(R0),DEVRTN ;SET A(DEVICE DEPENDANT ROUTINE) 214 002656 016067 001122' 176246 MOV DATAB(R0),DARTN ;SET A(DEVICE DEPENDANT ALLOCATION RTN) 215 002664 CALL $SWSTK,2500$ ;SWITCH TO SYSTEM STACK 002664 104376 EMT 376 002666 002714' .WORD 2500$ 216 002670 132761 000100 000005 BITB #US.MNT,U.STS(R1) ;;;DEVICE MOUNTED? 217 002676 001403 BEQ 2400$ ;;;IF EQ, YES - CONTINUE 218 002700 005066 000004 CLR 4(SP) ;;;CLEAR R1 ON STACK 219 002704 RETURN ;;;RETURN TO USER STACK 002704 000207 RTS PC 220 002706 005271 000034 2400$: INC @U.VCB(R1) ;;;INCREMENT TRANSACTION COUNT 221 002712 RETURN ;;;RETURN TO USER STACK 002712 000207 RTS PC 222 002714 005701 2500$: TST R1 ;DEVICE STILL MOUNTED? 223 002716 001713 BEQ 2200$ ;IF EQ, NO - ERROR 224 002720 016702 176156 MOV DMPUCB,R2 ;R2 = A(DUMP DEVICE UCB) 225 002724 005000 CLR R0 ;GET R0,R1 = DEVICE SIZE 226 002726 156200 000012 BISB U.CW2(R2),R0 227 002732 016201 000014 MOV U.CW3(R2),R1 228 002736 166701 176040 SUB CRPFSI+2,R1 ;GET R0,R1 = STARTING LBN 229 002742 005600 SBC R0 230 002744 CALL @DARTN ;CALL DEVICE DEPENDANT ALLOCATION 002744 004777 176162 JSR PC,@DARTN 231 002750 103014 BCC 2600$ ;IF CC, DEVICE BIG ENOUGH 232 002752 MSGN$S PFX,3,M008,,,ABORT ;DEVICE TOO SMALL 002752 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 002756 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 002760 000003 .WORD 3 ;SEVERITY LEVEL 002762 000252' .IIF NB .WORD M008 ;A(MESSAGE TEXT) 002764 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 002770 103002 BCC .+6 002772 004767 000704 JSR PC,ABORT 233 002776 000167 177252 JMP 1200$ ;FORCE PROMPT 234 003002 010067 175776 2600$: MOV R0,CRPSLB ;SET STARTING LBN 235 003006 010167 175774 MOV R1,CRPSLB+2 236 003012 012700 000772' MOV #CRPARM,R0 ;R0 = A(PARM LIST) 237 003016 005067 176052 CLR PCFLG ;CLEAR FLAG 238 003022 CALL $CRFIL ;CREATE THE FILE 003022 004767 000000G JSR PC,$CRFIL 239 003026 103031 BCC 2800$ ;IF CC, FILE WAS CREATED 240 003030 016067 001034' 000024 MOV CREMT1(R0),2700$+10 ;INSERT A(MESSAGE) IN PARM LIST 241 003036 016000 001054' MOV CREMT2(R0),R0 ;R0 = A(ERROR CODE AREA) ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 8-3 242 003042 001403 BEQ 2700$ ;IF EQ, NO CODE IN MESSAGE 243 003044 005002 CLR R2 ;SUPRESS LEADING ZEROES 244 003046 CALL $CBDSG ;INSERT ERROR CODE 003046 004767 000000G JSR PC,$CBDSG 245 003052 2700$: MSGN$S PFX,3,0,,,ABORT ;CREATE ERROR 003052 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 003056 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 003060 000003 .WORD 3 ;SEVERITY LEVEL 003062 000000 .IIF NB <0> .WORD 0 ;A(MESSAGE TEXT) 003064 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 003070 103002 BCC .+6 003072 004767 000604 JSR PC,ABORT 246 003076 016700 176000 MOV DMPUCB,R0 ;R0 = A(DEVICE UCB) 247 003102 CALL RELDEV ;RELEASE THE DEVICE 003102 004767 000400 JSR PC,RELDEV 248 003106 000167 177142 JMP 1200$ ;FORCE PROMPT 249 003112 102002 2800$: BVC 2900$ ;IF VC, PLACEMENT OK 250 003114 005367 175754 DEC PCFLG ;SET PLACEMENT FLAG 251 003120 2900$: CALL FORMAT ;FORMAT THE FILE 003120 004767 000216 JSR PC,FORMAT 252 003124 016700 000000G MOV $CRUCB,R0 ;R0 = A(OLD DUMP DEVICE) 253 003130 005067 000000G CLR $CRUCB ;DISABLE CRASH DUMP 254 003134 CALL RELDEV ;RELEASE THE DEVICE 003134 004767 000346 JSR PC,RELDEV 255 003140 016705 175736 MOV DMPUCB,R5 ;R5 = A(NEW DUMP DEVICE UCB) 256 003144 016504 000000 MOV U.DCB(R5),R4 ;R4 = A(DCB) 257 003150 016467 000004 000000G MOV D.NAM(R4),$CRSDV ;PUT DEVICE NAME IN MESSAGE TEXT 258 003156 010500 MOV R5,R0 ;R0 = A(UCB) 259 003160 166400 000002 SUB D.UCB(R4),R0 ;R0 = UCB OFFSET 260 003164 016401 000010 MOV D.UCBL(R4),R1 ;R1 = UCB LENGTH 261 003170 CALL $DIV ;R0 = RELATIVE DEVICE NUMBER 003170 004767 000000G JSR PC,$DIV 262 003174 116401 000006 MOVB D.UNIT(R4),R1 ;R1 = LOWEST UNIT NUMBER 263 003200 060100 ADD R1,R0 ;R0 = UNIT NUMBER 264 003202 062700 000060 ADD #60,R0 ;ASCII UNIT NUMBER 265 003206 110067 000000G MOVB R0,$CRUNA ;PUT UNIT NUMBER IN MESSAGE TEXT 266 003212 016503 000020 MOV U.SCB(R5),R3 ;R3 = A(SCB) 267 003216 016303 000012 MOV S.CSR(R3),R3 ;R3 = A(CSR) 268 003222 012702 000000G MOV #$CRDAP,R2 ;R2 = A(PROCEDURE TABLE) 269 003226 010322 MOV R3,(R2)+ ;A(CSR) TO TABLE 270 003230 016700 175556 MOV CRPALB,R0 ;R0 = STARTING LBN (HIGH PART) 271 003234 016701 175554 MOV CRPALB+2,R1 ;R1 = STARTING LBN (LOW PART) 272 003240 CALL @DEVRTN ;CALL DEVICE DEPENDANT ROUTINE 003240 004777 175664 JSR PC,@DEVRTN 273 003244 010567 000000G MOV R5,$CRUCB ;ENABLE CRASH DUMP 274 003250 005767 175620 TST PCFLG ;PLACEMENT OK? 275 003254 001415 BEQ 3000$ ;IF EQ, YES - GO TELL OPERATOR 276 003256 MSGN$S PFX,1,M013,,,ABORT ;ALLOCATED - NOT AT END 003256 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 003262 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 003264 000001 .WORD 1 ;SEVERITY LEVEL 003266 000415' .IIF NB .WORD M013 ;A(MESSAGE TEXT) 003270 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 003274 103002 BCC .+6 003276 004767 000400 JSR PC,ABORT 277 003302 EXIT$S ;EXIT 003302 012746 MOV (PC)+,-(SP) ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 8-4 003304 063 001 .BYTE 51.,1 003306 104377 EMT ^O<377> 278 003310 3000$: MSGN$S PFX,0,M014,,,ABORT ;ALLOCATED 003310 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 003314 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 003316 000000 .WORD 0 ;SEVERITY LEVEL 003320 000466' .IIF NB .WORD M014 ;A(MESSAGE TEXT) 003322 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 003326 103002 BCC .+6 003330 004767 000346 JSR PC,ABORT 279 003334 EXIT$S ;EXIT 003334 012746 MOV (PC)+,-(SP) 003336 063 001 .BYTE 51.,1 003340 104377 EMT ^O<377> ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 9 281 ; FORMAT 282 ; 283 ; FUNCTION: FORMAT THE DUMP FILE. THIS CURRENTLY CONSISTS OF 284 ; WRITEING A BLOCK OF ALL ZEROES AS THE FIRST BLOCK 285 ; OF THE FILE. 286 ; 287 ; INPUT: 288 ; 289 ; CRPALB = LBN OF THE FIRST BLOCK OF THE FILE 290 ; LUN 2 ASSIGNED TO DEVICE 291 ; 292 003342 FORMAT: QIOW$S #IO.WLB,#2,#24.,,#IOSB,,<#ZERO,#512.,,CRPALB,CRPALB+2> 003342 005046 CLR -(SP) 003344 016746 175444 MOV CRPALB+2,-(SP) 003350 016746 175436 MOV CRPALB,-(SP) 003354 005046 CLR -(SP) 003356 012746 001000 MOV #512.,-(SP) 003362 012746 001134' MOV #ZERO,-(SP) 003366 005046 CLR -(SP) 003370 012746 001076' MOV #IOSB,-(SP) 003374 005046 CLR -(SP) 003376 112716 000030 MOVB #24.,(SP) 003402 012746 000002 MOV #2,-(SP) 003406 012746 000400 MOV #IO.WLB,-(SP) 003412 012746 MOV (PC)+,-(SP) 003414 003 014 .BYTE 3,12. 003416 104377 EMT ^O<377> 293 003420 CKDSW$S FORMAT,ABORT ;CHECK DSW STATUS 003420 004567 000000G JSR R5,$CKDSW 003424 003342' .WORD FORMAT 003426 003702' .WORD ABORT 294 003430 122767 000001 175440 CMPB #IS.SUC,IOSB ;WRITE SUCESSFULL? 295 003436 001001 BNE 1000$ ;IF NE, NO - I/O ERROR 296 003440 RETURN ;RETURN TO CALLER 003440 000207 RTS PC 297 003442 012700 000545' 1000$: MOV #M015A,R0 ;R0 = A(ERROR CODE AREA) 298 003446 016701 175424 MOV IOSB,R1 ;R1 = ERROR CODE 299 003452 005002 CLR R2 ;SUPRESS LEADING ZEROES 300 003454 CALL $CBDSG ;INSERT ERROR CODE 003454 004767 000000G JSR PC,$CBDSG 301 003460 MSGN$S PFX,1,M015,,,ABORT ;I/O ERROR FORMATTING FILE 003460 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 003464 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 003466 000001 .WORD 1 ;SEVERITY LEVEL 003470 000512' .IIF NB .WORD M015 ;A(MESSAGE TEXT) 003472 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 003476 103002 BCC .+6 003500 004767 000176 JSR PC,ABORT 302 003504 RETURN ;RETURN TO CALLER 003504 000207 RTS PC ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 10 304 ; RELDEV 305 ; 306 ; FUNCTION: RELEASE A DEVICE AND IF IT IS MARKED FOR DISMOUNT, 307 ; AND NO ONE ELSE IS USING IT, DISMOUNT IT. 308 ; 309 ; INPUT: 310 ; 311 ; R0 = A(UCB OF DEVICE TO RELEASE) 312 ; 313 003506 005700 RELDEV: TST R0 ;DO WE HAVE A DEVICE? 314 003510 001473 BEQ 1000$ ;IF EQ, NO - EXIT 315 003512 CALL $SWSTK,1000$ ;SWITCH TO SYSTEM STACK 003512 104376 EMT 376 003514 003700' .WORD 1000$ 316 003516 005370 000034 DEC @U.VCB(R0) ;;;DECREMENT TRANSACTION COUNT 317 003522 001066 BNE 1000$ ;;;IF NE, SOMEONE STILL USING IT 318 003524 132760 000020 000005 BITB #US.MDM,U.STS(R0) ;;;IS IT MARKED FOR DISMOUNT 319 003532 001462 BEQ 1000$ ;;;IF EQ, NO - WE'RE THROUGH 320 003534 142760 000020 000005 BICB #US.MDM,U.STS(R0) ;;;RESET MARK FOR DISMOUNT 321 003542 010046 MOV R0,-(SP) ;;;SAVE REGISTERS 322 003544 010146 MOV R1,-(SP) ;;; 323 003546 012701 000124 MOV #84.,R1 ;;;R1 = LENGTH OF MCR BUFFER 324 003552 CALL $ALOCB ;;;ALLOCATE A BUFFER 003552 004767 000000G JSR PC,$ALOCB 325 003556 103450 BCS 1000$ ;;;IF CS, BUFFER NOT ALLOCATED 326 003560 010046 MOV R0,-(SP) ;;;SAVE A(BUFFER) 327 003562 005020 CLR (R0)+ ;;;CLEAR LINK WORD 328 003564 016701 000000G MOV $TKTCB,R1 ;;;R1 = A(MY TCB) 329 003570 016120 000026 MOV T.UCB(R1),(R0)+ ;;;INSERT A(TI: UCB) 330 003574 012720 046504 MOV #"DM,(R0)+ ;;;FORMAT DMO COMMAND 331 003600 012720 020117 MOV #"O ,(R0)+ ;;; 332 003604 010246 MOV R2,-(SP) ;;;SAVE R2 333 003606 016601 000006 MOV 6(SP),R1 ;;;R1 = A(UCB) 334 003612 016102 000000 MOV U.DCB(R1),R2 ;;;R2 = A(DCB) 335 003616 016220 000004 MOV D.NAM(R2),(R0)+ ;;;INSERT DEVICE NAME 336 003622 166201 000002 SUB D.UCB(R2),R1 ;;;R1 = UCB OFFSET 337 003626 010046 MOV R0,-(SP) ;;;SAVE BUFFER ADDRESS 338 003630 010100 MOV R1,R0 ;;;R0 = UCB OFFSET 339 003632 016201 000010 MOV D.UCBL(R2),R1 ;;;R1 = UCB LENGTH 340 003636 CALL $DIV ;;;R0 = UNIT NUMBER 003636 004767 000000G JSR PC,$DIV 341 003642 010001 MOV R0,R1 ;;;R1 = UNIT NUMBER 342 003644 012600 MOV (SP)+,R0 ;;;R0 = BUFFER POSITION 343 003646 005002 CLR R2 ;;;SUPRESS LEADING ZEROES 344 003650 CALL $CBOMG ;;;INSERT UNIT NUMBER 003650 004767 000000G JSR PC,$CBOMG 345 003654 112720 000072 MOVB #':,(R0)+ ;;;INSERT COLON 346 003660 112720 000033 MOVB #33,(R0)+ ;;;INSERT ESC 347 003664 012602 MOV (SP)+,R2 ;;;RESTORE R2 348 003666 012601 MOV (SP)+,R1 ;;;R1 = A(BUFFER) 349 003670 CALL $QMCRL ;;;INSERT IN MCR QUEUE 003670 004767 000000G JSR PC,$QMCRL 350 003674 012601 MOV (SP)+,R1 ;;;RESTORE R1 351 003676 012600 MOV (SP)+,R0 ;;;RESTORE R0 352 003700 1000$: RETURN ;;;RETURN TO CALLER 003700 000207 RTS PC 353 003702 000000 ABORT: HALT ;ABORT THE TASK ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 11 355 ; FUNCTION: SETUP CRASH DUMP FOR DUMP TO AN RK05 356 ; 357 ; INPUT: 358 ; 359 ; R0 = STARTING LBN (HIGH PART) 360 ; R1 = STARTING LBN (LOW PART) 361 ; R2 = A($CRDAP) 362 ; R3 = A(DUMP DEVICE CSR) 363 ; R4 = A(DUMP DEVICE DCB) 364 ; R5 = A(DUMP DEVICE UCB) 365 ; 366 ; OUTPUT: 367 ; 368 ; CRASH DUMP ROUTINE IS SET UP. 369 ; 370 003704 010322 DKRTN: MOV R3,(R2)+ ;A(CSR) 371 003706 012722 000401 MOV #401,(R2)+ ;RESET COMMAND 372 003712 010312 MOV R3,(R2) ;A(CSR) 373 003714 062722 000006 ADD #6,(R2)+ ;A(DISK ADDRESS REGISTER) 374 003720 010100 MOV R1,R0 ;R0 = STARTING LBN 375 003722 012701 000014 MOV #12.,R1 ;R1 = DEVISOR 376 003726 CALL $DIV ;GET R0 = SECTOR, R1 = CYL + SURFACE 003726 004767 000000G JSR PC,$DIV 377 003732 006200 ASR R0 ;WHICH SURFACE? 378 003734 103002 BCC 1000$ ;IF CC, SURFACE 0 379 003736 052701 000020 BIS #20,R1 ;SET SURFACE 1 380 003742 000300 1000$: SWAB R0 ;PUT CYLINDER IN HIGH BYTE 381 003744 010246 MOV R2,-(SP) ;SAVE R2 382 003746 116502 000006 MOVB U.UNIT(R5),R2 ;R2 = PHYSICAL UNIT NUMBER 383 003752 006202 ASR R2 ;SHIFT UNIT IN WITH CYLINDER 384 003754 006000 ROR R0 385 003756 006202 ASR R2 386 003760 006000 ROR R0 387 003762 006202 ASR R2 388 003764 006000 ROR R0 389 003766 050100 BIS R1,R0 ;MERGE IN SECTOR AND SURFACE 390 003770 012602 MOV (SP)+,R2 ;RESTORE R2 391 003772 010022 MOV R0,(R2)+ ;DISK ADDRESS 392 003774 005022 CLR (R2)+ ;END OF INITILIZATION PROCEDURE 393 003776 010312 MOV R3,(R2) ;A(CSR) 394 004000 062722 000004 ADD #4,(R2)+ ;A(BUS ADDRESS REGISTER) 395 004004 010312 MOV R3,(R2) ;A(CSR) 396 004006 062722 000002 ADD #2,(R2)+ ;A(WORD COUNT REGISTER) 397 004012 010312 MOV R3,(R2) ;A(CSR) 398 004014 162722 000002 SUB #2,(R2)+ ;A(ERROR REGISTER) 399 004020 012722 000403 MOV #403,(R2)+ ;WRITE COMMAND 400 004024 012722 100200 MOV #100200,(R2)+ ;ERROR AND READY BITS 401 004030 012722 100000 MOV #100000,(R2)+ ;ERROR BITS 402 004034 012712 002000 MOV #2000,(R2) ;NON-EXISTANT MEMORY BIT 403 004040 RETURN ;RETURN TO CALLER 004040 000207 RTS PC ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 12 405 ; FUNCTION: SETUP CRASH DUMP ROUTINE FOR DUMP TO AN RK611 406 ; 407 ; INPUT: 408 ; 409 ; R0 = STARTING LBN (HIGH PART) 410 ; R1 = STARTING LBN (LOW PART) 411 ; R2 = A($CRDAP) 412 ; R3 = A(DUMP DEVICE CSR) 413 ; R4 = A(DUMP DEVICE DCB) 414 ; R5 = A(DUMP DEVICE UCB) 415 ; 416 ; OUTPUT: 417 ; CRASH DUMP ROUTINE IS SET UP. 418 ; 419 004042 010322 DMRTN: MOV R3,(R2)+ ;A(CSR) 420 004044 012722 100000 MOV #100000,(R2)+ ;CLEAR COMMAND 421 004050 010312 MOV R3,(R2) ;A(CSR) 422 004052 062722 000010 ADD #10,(R2)+ ;A(CSR2) 423 004056 012722 000040 MOV #40,(R2)+ ;CLEAR COMMAND 424 004062 010312 MOV R3,(R2) ;A(CSR) 425 004064 062722 000010 ADD #10,(R2)+ ;A(CSR2) 426 004070 116500 000006 MOVB U.UNIT(R5),R0 ;R0 = PHYSICAL UNIT NUMBER 427 004074 010022 MOV R0,(R2)+ ;DRIVE SELECT 428 004076 010312 MOV R3,(R2) ;A(CSR) 429 004100 062722 000020 ADD #20,(R2)+ ;A(DESIRED CYLINDER REGISTER) 430 004104 010100 MOV R1,R0 ;R0 = STARTING LBN 431 004106 012701 000102 MOV #66.,R1 ;R1 = BLOCKS/CYLINDER 432 004112 CALL $DIV ;R0 = CYLINDER 004112 004767 000000G JSR PC,$DIV 433 004116 010022 MOV R0,(R2)+ ;CYLINDER 434 004120 010312 MOV R3,(R2) ;A(CSR) 435 004122 062722 000006 ADD #6,(R2)+ ;A(DISK ADDRESS REGISTER) 436 004126 010100 MOV R1,R0 ;R0 = TRACKS*SECTORS 437 004130 012701 000026 MOV #22.,R1 ;R1 = SECTORS/TRACK 438 004134 CALL $DIV ;GET R0 = TRACK, R1 = SECTOR 004134 004767 000000G JSR PC,$DIV 439 004140 000300 SWAB R0 ;PUT TRACK IN HIGH BYTE 440 004142 050100 BIS R1,R0 ;MERGE IN SECTOR 441 004144 010022 MOV R0,(R2)+ ;TRACK + SECTOR 442 004146 005022 CLR (R2)+ ;END OF INITILIZATION PROCEDURE 443 004150 010312 MOV R3,(R2) ;A(CSR) 444 004152 062722 000004 ADD #4,(R2)+ ;A(BUS ADDRESS REGISTER) 445 004156 010312 MOV R3,(R2) ;A(CSR) 446 004160 062722 000002 ADD #2,(R2)+ ;A(WORD COUNT REGISTER) 447 004164 010312 MOV R3,(R2) ;A(CSR) 448 004166 062722 000010 ADD #10,(R2)+ ;A(ERROR STATUS REGISTER) 449 004172 012722 000023 MOV #23,(R2)+ ;WRITE COMMAND 450 004176 012722 100200 MOV #100200,(R2)+ ;ERROR AND READY BITS 451 004202 012722 100000 MOV #100000,(R2)+ ;ERROR BITS 452 004206 012722 004000 MOV #4000,(R2)+ ;NON-EXISTANT MEMORY BIT 453 004212 RETURN ;RETURN TO CALLER 004212 000207 RTS PC ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 13 455 ; FUNCTION: SETUP CRASH DUMP ROUTINE FOR DUMP TO AN RP04 456 ; 457 ; INPUT: 458 ; 459 ; R0 = STARTING LBN (HIGH PART) 460 ; R1 = STARTING LBN (LOW PART) 461 ; R2 = A($CRDAP) 462 ; R3 = A(DUMP DEVICE CSR) 463 ; R4 = A(DUMP DEVICE DCB) 464 ; R5 = A(DUMP DEVICE UCB) 465 ; 466 ; OUTPUT: 467 ; 468 ; CRASH DUMP ROUTINE IS SET UP. 469 ; 470 004214 010312 DBRTN: MOV R3,(R2) ;A(CSR) 471 004216 062722 000010 ADD #10,(R2)+ ;A(CSR2) 472 004222 012722 000040 MOV #40,(R2)+ ;CLEAR COMMAND 473 004226 010312 MOV R3,(R2) ;A(CSR) 474 004230 062722 000032 ADD #32,(R2)+ ;A(OFFSET REGISTER) 475 004234 012722 010000 MOV #10000,(R2)+ ;SELECT FORMAT 22 476 004240 010312 MOV R3,(R2) ;A(CSR) 477 004242 062722 000010 ADD #10,(R2)+ ;A(CSR2) 478 004246 010046 MOV R0,-(SP) ;SAVE R0 479 004250 116500 000006 MOVB U.UNIT(R5),R0 ;R0 = PHYSICAL UNIT NUMBER 480 004254 010022 MOV R0,(R2)+ ;SELECT UNIT 481 004256 012600 MOV (SP)+,R0 ;RESTORE R0 482 004260 010312 MOV R3,(R2) ;A(CSR) 483 004262 062722 000034 ADD #34,(R2)+ ;A(DESIRED CYLINDER REGISTER) 484 004266 012746 000020 MOV #16.,-(SP) ;LOOP COUNTER 485 004272 006301 1000$: ASL R1 ;CALCULATE CYLINDER 486 004274 006100 ROL R0 487 004276 020027 000642 CMP R0,#19.*22. 488 004302 103403 BLO 1100$ 489 004304 162700 000642 SUB #19.*22.,R0 490 004310 005201 INC R1 491 004312 005316 1100$: DEC (SP) ;FINISHED? 492 004314 003366 BGT 1000$ ;IF GT, NO - LOOP UNTIL DONE 493 004316 005726 TST (SP)+ ;POP STACK 494 004320 010122 MOV R1,(R2)+ ;CYLINDER 495 004322 010312 MOV R3,(R2) ;A(CSR) 496 004324 062722 000006 ADD #6,(R2)+ ;A(DESIRED TRACK/SECTOR REGISTER) 497 004330 012701 000026 MOV #22.,R1 ;R1 = SECTORS / TRACK 498 004334 CALL $DIV ;CALCULATE TRACK AND SECTOR 004334 004767 000000G JSR PC,$DIV 499 004340 000300 SWAB R0 ;TRACK TO HIGH BYTE 500 004342 050100 BIS R1,R0 ;MERGE IN SECTOR 501 004344 010022 MOV R0,(R2)+ ;TRACK AND SECTOR 502 004346 005022 CLR (R2)+ ;END OF INITILIZATION PROCEDURE 503 004350 010312 MOV R3,(R2) ;A(CSR) 504 004352 062722 000004 ADD #4,(R2)+ ;A(BUS ADDRESS REGISTER) 505 004356 010312 MOV R3,(R2) ;A(CSR) 506 004360 062722 000002 ADD #2,(R2)+ ;A(WORD COUNT REGISTER) 507 004364 010312 MOV R3,(R2) ;A(CSR) 508 004366 062722 000010 ADD #10,(R2)+ ;A(ERROR REGISTER) 509 004372 012722 000061 MOV #61,(R2)+ ;WRITE COMMAND 510 004376 012722 060200 MOV #060200,(R2)+ ;ERROR OR READY BITS ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 13-1 511 004402 012722 060000 MOV #060000,(R2)+ ;ERROR BITS 512 004406 012712 004000 MOV #4000,(R2) ;NON-EXISTANT MEMORY BIT 513 004412 RETURN ;RETURN TO CALLER 004412 000207 RTS PC ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 14 515 ; FUNCTION: ADJUST ALLOCATION PARAMETERS FOR RK05, AND RP04. 516 ; 517 ; INPUT: 518 ; 519 ; R0,R1 = DEVICE SIZE - FILE SIZE 520 ; 521 ; OUTPUT: 522 ; 523 ; IF CC - DEVICE BIG ENOUGH 524 ; R0,R1 = STARTING LBN 525 ; 526 ; IF CS - DEVICE TOO SMALL 527 ; 528 004414 DBARTN: 529 004414 162701 000001 DKARTN: SUB #1,R1 ;ADJUST STARTING LBN 530 004420 005600 SBC R0 531 004422 100002 BPL 1000$ ;IF PL, DEVICE BIG ENOUGH 532 004424 000261 SEC ;INDICATE DEVICE TOO SMALL 533 004426 RETURN ;RETURN TO CALLER 004426 000207 RTS PC 534 004430 000241 1000$: CLC ;INDICATE DEVICE BIG ENOUGH 535 004432 RETURN ;RETURN TO CALLER 004432 000207 RTS PC ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 15 537 ; FUNCTION: DEVICE DEPENDANT ALLOCATION FOR RK06 538 ; 539 ; INPUT: 540 ; 541 ; R0,R1 = DEVICE SIZE - FILE SIZE 542 ; 543 ; OUTPUT: 544 ; 545 ; IF CC - DEVICE BIG ENOUGH 546 ; R0,R1 = STARTING LBN 547 ; 548 ; IF CS - DEVICE TOO SMALL 549 ; 550 004434 162701 000026 DMARTN: SUB #26,R1 ;ADJUST FOR BAD BLOCK FILE 551 004440 005600 SBC R0 552 004442 100002 BPL 1000$ ;IF PL, DEVICE BIG ENOUGH 553 004444 000261 SEC ;INDICATE DEVICE TOO SMALL 554 004446 RETURN ;RETURN TO CALLER 004446 000207 RTS PC 555 004450 000241 1000$: CLC ;INDICATE DEVICE BIG ENOUGH 556 004452 RETURN ;RETURN TO CALLER 004452 000207 RTS PC 557 002134' .END ADS ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 15-1 SYMBOL TABLE ABORT 003702R 002 FA.CRE= 000010 F.BKP1= 000051 H.IPS 000014 IE.FOP= 177713 ADS 002134R 002 FA.DLK= 001000 F.BKST= 000024 H.ISP 000020 IE.HFU= 177744 A$$CHK= 000000 FA.ENB= 100000 F.BKVB= 000064 H.LUN 000076 IE.HWR= 177772 A$$CPS= 000000 FA.EXC= 002000 F.CHR = 000075 H.NLUN 000074 IE.IBS= 177647 CH.AND= 000001 FA.EXT= 000004 F.CNTG= 000034 H.NML 000061 IE.IDU= 177644 CREMT1 001034R 002 FA.NSP= 000100 F.DFNB= 000046 H.ODVA 000022 IE.IEF= 177637 CREMT2 001054R 002 FA.POS= 010000 F.DSPT= 000044 H.ODVL 000024 IE.IES= 177656 CRPALB 001012R 002 FA.RD = 000001 F.DVNM= 000134 H.OVLY 000054 IE.IFC= 177776 CRPARM 000772R 002 FA.RWD= 004000 F.EFBK= 000010 H.PFVA 000032 IE.IFU= 177747 CRPFSI 001000R 002 FA.SEQ= 040000 F.EFN = 000050 H.RCVA 000036 IE.ILL= 177726 CRPSLB 001004R 002 FA.SHR= 000040 F.EOBB= 000032 H.RRVA 000062 IE.ILU= 177640 C$$CKP= 000000 FA.TMP= 000020 F.ERR = 000052 H.SPRI 000060 IE.ILV= 177755 C$$ORE= 001000 FA.WCK= 020000 F.FACC= 000043 H.TKVA 000026 IE.INS= 177776 DARTN 001132R 002 FA.WRT= 000002 F.FFBY= 000014 H.TKVL 000030 IE.IOP= 177655 DATAB 001122R 002 FD.BLK= 000010 F.FNAM= 000110 H.VEXT 000056 IE.IPR= 177641 DBARTN 004414R 002 FD.CCL= 000002 F.FNB = 000102 H.WND 000044 IE.ISQ= 177703 DBRTN 004214R 002 FD.COM= 020000 F.FTYP= 000116 IE.ABO= 177761 IE.ITI= 177643 DEFBUF 000750R 002 FD.CR = 000002 F.FVER= 000120 IE.ACT= 177771 IE.ITP= 177650 DEVRTN 001130R 002 FD.DIR= 000010 F.HIBK= 000004 IE.ADP= 177636 IE.ITS= 177770 DKARTN 004414R 002 FD.FTN= 000001 F.LUN = 000042 IE.ALC= 177654 IE.IUI= 177645 DKRTN 003704R 002 FD.F11= 040000 F.MBCT= 000054 IE.ALG= 177654 IE.LCK= 177745 DMARTN 004434R 002 FD.INS= 000010 F.MBC1= 000055 IE.ALN= 177736 IE.LNL= 177646 DMPUCB 001102R 002 FD.ISP= 002000 F.MBFG= 000056 IE.AST= 177660 IE.MAP= 177657 DMRTN 004042R 002 FD.MNT= 100000 F.NRBD= 000024 IE.BAD= 177777 IE.MOD= 177753 DNTAB 001104R 002 FD.OSP= 004000 F.NREC= 000030 IE.BBE= 177710 IE.NBF= 177731 DRTAB 001114R 002 FD.PLC= 000004 F.OVBS= 000030 IE.BCC= 177676 IE.NBK= 177727 DUMFDB 001016R 002 FD.PRN= 000004 F.RACC= 000016 IE.BDI= 177714 IE.NDR= 177670 DV.CCL= 000002 FD.PSE= 010000 F.RATT= 000001 IE.BDR= 177716 IE.NFI= 177704 DV.COM= 020000 FD.RAH= 000001 F.RCNM= 000034 IE.BDV= 177711 IE.NFW= 177673 DV.DIR= 000010 FD.RAN= 000002 F.RCTL= 000017 IE.BHD= 177700 IE.NLK= 177661 DV.F11= 040000 FD.REC= 000001 F.RSIZ= 000002 IE.BLB= 177672 IE.NLN= 177733 DV.ISP= 002000 FD.RWM= 000001 F.RTYP= 000000 IE.BLK= 177754 IE.NNC= 177663 DV.MNT= 100000 FD.SDI= 000020 F.SEQN= 000100 IE.BNM= 177712 IE.NNL= 177662 DV.MXD= 000100 FD.SQD= 000040 F.SPDV= 000072 IE.BTF= 177664 IE.NNN= 177674 DV.OSP= 004000 FD.TTY= 000004 F.SPUN= 000074 IE.BTP= 177725 IE.NOD= 177751 DV.PSE= 010000 FD.WBH= 000002 F.STBK= 000036 IE.BVR= 177701 IE.NSF= 177746 DV.REC= 000001 FF.CHR= 000005 F.UNIT= 000136 IE.BYT= 177755 IE.NST= 177660 DV.SDI= 000020 FF.NV = 000003 F.URBD= 000020 IE.CKP= 177766 IE.NSW= 177756 DV.SQD= 000040 FF.POE= 000002 F.VBN = 000064 IE.CKS= 177742 IE.NVR= 177652 DV.SWL= 001000 FF.RWD= 000001 F.VBSZ= 000060 IE.CLO= 177732 IE.NVW= 177651 DV.TTY= 000004 FF.RWF= 000006 G$$TPP= 000000 IE.CNR= 177667 IE.OFL= 177677 DV.UMD= 000200 FF.SPC= 000004 G$$TTK= 000000 IE.CON= 177752 IE.ONP= 177773 D$$ISK= 000000 FORMAT 003342R 002 G.MCRB= 000002 IE.DAA= 177770 IE.OVR= 177756 D$$L11= 000001 FO.APD= 000106 H$$RTZ= 000074 IE.DAO= 177763 IE.PES= 177655 D.DSP 000012 FO.MFY= 000002 H.CSP 000000 IE.DFU= 177750 IE.PNS= 177642 D.LNK 000000 FO.RD = 000001 H.CUIC 000010 IE.DNA= 177771 IE.PRI= 177760 D.MSK 000014 FO.UPD= 000006 H.DSW 000046 IE.DNR= 177775 IE.PTS= 177775 D.NAM 000004 FO.WRT= 000016 H.DUIC 000012 IE.DUN= 177767 IE.RAC= 177724 D.PCB 000034 F$$LVL= 000001 H.EFLM 000004 IE.DUP= 177707 IE.RAT= 177723 D.UCB 000002 F.ACTL= 000076 H.EFSV 000040 IE.EOF= 177766 IE.RBG= 177730 D.UCBL 000010 F.ALOC= 000040 H.FCS 000050 IE.EOT= 177702 IE.RBS= 177761 D.UNIT 000006 F.BBFS= 000062 H.FORT 000052 IE.EOV= 177765 IE.RCN= 177722 D.VCAN= 000002 F.BDB = 000070 H.FPSA 000042 IE.EXP= 177665 IE.RER= 177740 D.VINI= 000000 F.BGBC= 000057 H.FPVA 000034 IE.FEX= 177717 IE.RNM= 177715 D.VOUT= 000004 F.BKDN= 000026 H.GARD 000072 IE.FHE= 177705 IE.RSU= 177757 D.VPWF= 000006 F.BKDS= 000020 H.HDLN 000002 IE.FIX= 177767 IE.SDP= 177635 FA.APD= 000100 F.BKEF= 000050 H.IPC 000016 IE.FLN= 177657 IE.SNC= 177735 ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 15-2 SYMBOL TABLE IE.SPC= 177772 IO.ENA= 006000 IO.RNE= 001020 IS.BV = 000005 M005 000130R 002 IE.SQC= 177734 IO.EOF= 003000 IO.RNS= 001020 IS.CC = 001401 M006 000153R 002 IE.SRE= 177762 IO.EXT= 011400 IO.RPB= 001040 IS.CLR= 000000 M007 000204R 002 IE.STK= 177706 IO.FDX= 003020 IO.RPR= 004400 IS.CR = 006401 M007A 000241R 002 IE.TCH= 177765 IO.FLN= 012400 IO.RST= 001001 IS.EOT= 002001 M008 000252R 002 IE.TMM= 177671 IO.FNA= 004400 IO.RTC= 003400 IS.ESC= 015401 M009 000273R 002 IE.TMO= 177666 IO.GLC= 016430 IO.RTI= 016400 IS.ESQ= 115401 M010 000323R 002 IE.ULK= 177653 IO.GLI= 016420 IO.RTK= 000060 IS.PES= 100001 M011 000337R 002 IE.ULN= 177773 IO.GNI= 016410 IO.RTM= 001200 IS.PND= 000000 M012 000357R 002 IE.UNS= 177774 IO.GRC= 016450 IO.RVB= 010400 IS.RDD= 000002 M012A 000404R 002 IE.UPN= 177777 IO.GRI= 016440 IO.RWD= 002400 IS.SET= 000002 M013 000415R 002 IE.VER= 177774 IO.GRN= 016460 IO.RWU= 002540 IS.SPD= 000002 M014 000466R 002 IE.WAC= 177743 IO.GTS= 002400 IO.R1C= 002400 IS.SUC= 000001 M015 000512R 002 IE.WAT= 177741 IO.HDX= 003010 IO.SAO= 004000 IS.TAB= 004401 M015A 000545R 002 IE.WCK= 177652 IO.HIS= 015000 IO.SCS= 013000 IS.TMO= 000002 M016 000556R 002 IE.WER= 177737 IO.HNG= 003000 IO.SDI= 013000 I$$RAR= 000000 M017 000603R 002 IE.WLK= 177764 IO.INI= 014400 IO.SDO= 012400 I$$RDN= 000000 NB.DEV= 000200 IE.WOV= 177653 IO.INL= 002400 IO.SEC= 002520 K$$CNT= 177546 NB.DIR= 000100 IE.2DV= 177720 IO.ITI= 017000 IO.SET= 000030 K$$CSR= 177546 NB.NAM= 000004 IOSB 001076R 002 IO.KIL= 000012 IO.SLO= 005400 K$$IEN= 000115 NB.SD1= 000400 IO.ACE= 007400 IO.LDI= 007000 IO.SMO= 002560 K$$LDC= 000001 NB.SD2= 001000 IO.ACR= 006400 IO.LED= 012000 IO.SPB= 002420 K$$TPS= 000074 NB.SNM= 000040 IO.ACW= 007000 IO.LEI= 007410 IO.SPF= 002440 LD$CT = 000000 NB.STP= 000020 IO.ADS= 014000 IO.LKE= 012000 IO.SPW= 016510 LD$DB = 000000 NB.SVR= 000010 IO.APC= 014000 IO.LOD= 014000 IO.SSO= 004400 LD$DK = 000000 NB.TYP= 000002 IO.APV= 014010 IO.LOV= 001010 IO.STA= 015400 LD$DL = 000000 NB.VER= 000001 IO.ATA= 001410 IO.LSI= 011000 IO.STC= 002500 LD$DM = 000000 N$$LDV= 000001 IO.ATT= 001400 IO.LTI= 007400 IO.STP= 016400 LD$DP = 000000 N.DID = 000024 IO.CAS= 015420 IO.LTK= 000050 IO.SYN= 003040 LD$DR = 000000 N.DVNM= 000032 IO.CBO= 015510 IO.LTY= 010000 IO.TRM= 002410 LD$DT = 000000 N.FID = 000000 IO.CCI= 014000 IO.MAO= 003410 IO.UDI= 011410 LD$DX = 000000 N.FNAM= 000006 IO.CCO= 000440 IO.MCS= 013400 IO.UEI= 011450 LD$LP = 000000 N.FTYP= 000014 IO.CIN= 016500 IO.MDA= 016000 IO.UER= 011440 LD$MM = 000000 N.FVER= 000016 IO.CLK= 015000 IO.MDI= 014400 IO.ULK= 005000 LD$MT = 000000 N.NEXT= 000022 IO.CLN= 003400 IO.MDO= 015400 IO.UNL= 000042 LD$PP = 000000 N.STAT= 000020 IO.CNT= 017000 IO.MLO= 006000 IO.USI= 011460 LD$PR = 000000 N.UNIT= 000034 IO.CON= 015400 IO.MOD= 003000 IO.UTI= 011420 L$$ASG= 000000 PARBUF 000726R 002 IO.CPR= 015410 IO.MSO= 005000 IO.UTY= 011430 L$$DRV= 000000 PARDEV 000726R 002 IO.CPW= 016520 IO.NLB= 016530 IO.WAL= 000410 L$$P11= 000001 PARFLG 000746R 002 IO.CRC= 001040 IO.NLK= 011400 IO.WAT= 013400 MCRLIN 000604R 002 PARFNM 000734R 002 IO.CRE= 012000 IO.ONL= 017400 IO.WBT= 000500 M$$CRB= 000124 PARTYP 000742R 002 IO.CRJ= 015440 IO.RAD= 010400 IO.WDD= 000444 M$$CRX= 000000 PARUIC 000732R 002 IO.CSI= 013000 IO.RAL= 001010 IO.WLB= 000400 M$$FCS= 000000 PARUN 000730R 002 IO.CSM= 016470 IO.RAT= 013000 IO.WLC= 000420 M$$MGE= 000000 PARVER 000744R 002 IO.CTI= 015400 IO.RBC= 003000 IO.WLS= 000410 M$$OVR= 000000 PCFLG 001074R 002 IO.CTL= 016400 IO.RCI= 015000 IO.WLT= 000410 M.BFVH 000011 PFX 000000R 002 IO.CTR= 015610 IO.RCV= 015000 IO.WLV= 000500 M.BFVL 000012 PRMT 000006R 002 IO.CTY= 003400 IO.RDB= 001200 IO.WMS= 000420 M.LGTH= 000014 P$$P11= 000001 IO.DAC= 010000 IO.RDD= 010010 IO.WNS= 000420 M.LNK 000000 P$$P45= 000000 IO.DCI= 014400 IO.RDN= 000022 IO.WPB= 000440 M.UMRA 000002 P$$R11= 000001 IO.DEL= 012400 IO.REL= 013400 IO.WVB= 011000 M.UMRN 000004 RELDEV 003506R 002 IO.DET= 002000 IO.RHD= 001010 IO.XMT= 014400 M.UMVH 000010 R$$JPO= 000000 IO.DIS= 016000 IO.RLB= 001000 IO.XNA= 014410 M.UMVL 000006 R$$JP1= 000001 IO.DLB= 016540 IO.RLV= 001100 IQ.Q = 000002 M001 000013R 002 R$$K11= 000001 IO.DSI= 013400 IO.RMT= 010020 IQ.S = 000004 M002 000045R 002 R$$L11= 000001 IO.DTI= 016000 IO.RNA= 005400 IQ.UMD= 000004 M003 000062R 002 R$$MOF= 000000 IO.DTY= 006400 IO.RNC= 001040 IQ.X = 000001 M004 000111R 002 R$$M11= 000001 ADS - ALLOCATE DUMP SPACE MACRO M1110 27-MAR-78 08:46 PAGE 15-3 SYMBOL TABLE R$$P11= 000001 TS.NRP= 010000 T2.FXD= 002000 US.PWF= 000010 U2.R04= 100000 R$$X11= 000001 TS.OUT= 000400 T2.HLT= 000200 US.RED= 000002 U2.SLV= 000200 R$$11M= 000000 TS.RDN= 040000 T2.SPN= 000004 US.SHR= 000001 U2.VT5= 000002 R$$6OF= 000000 TS.RUN= 004000 T2.STP= 000020 US.SPU= 000002 U2.7CH= 010000 R$$611= 000001 T$$A11= 000001 T2.TIO= 001000 US.UMD= 000010 V$$CTR= 000400 R.FIX = 000001 T$$C11= 000001 T2.WFR= 000001 US.WCK= 000010 W.BATT 000006 R.SEQ = 000003 T$$J16= 000001 T3.ACP= 100000 U.ACP = 000032 W.BFPD 000014 R.VAR = 000002 T$$KMG= 000000 T3.CAL= 000100 U.ATT 000022 W.BHVR 000004 SPARE = 000010 T$$MIN= 000000 T3.CLI= 001000 U.BUF 000024 W.BLGH 000020 SP.EIP= 000001 T$$M11= 000001 T3.MCR= 004000 U.CBF = 000032 W.BLPD 000016 SP.ENB= 000002 T.ACTL 000052 T3.NET= 000020 U.CNT 000030 W.BLVR 000002 SP.LOG= 000004 T.ASTL 000016 T3.NSD= 000200 U.CTL 000004 W.BNPD 000015 S$$YSZ= 001400 T.ATT 000054 T3.PMD= 040000 U.CW1 000010 W.BOFF 000012 S.BMSK 177776 T.CPCB 000004 T3.PRV= 010000 U.CW2 000012 W.BPCB 000000 S.BMSV 177774 T.DPRI 000040 T3.REM= 020000 U.CW3 000014 W.BSIZ 000010 S.CON 000010 T.EFLG 000022 T3.ROV= 000040 U.CW4 000016 ZERO 001134R 002 S.CSR 000012 T.IOC 000003 T3.RST= 000400 U.DCB 000000 $ALOCB= ****** GX S.CTM 000006 T.LBN 000041 T3.SLV= 002000 U.LUIC 177774 $CBDSG= ****** GX S.FATT= 000016 T.LDV 000044 UC.ALG= 000200 U.OWN 177776 $CBOMG= ****** GX S.FDB = 000140 T.LNK 000000 UC.ATT= 000010 U.RED 000002 $CKDSW= ****** GX S.FNAM= 000006 T.MXSZ 000050 UC.KIL= 000004 U.SCB 000020 $CRDAP= ****** GX S.FNB = 000036 T.NAM 000006 UC.LGH= 000003 U.STS 000005 $CRFIL= ****** GX S.FNBW= 000017 T.OFF 000060 UC.NPR= 000100 U.ST2 000007 $CRSDV= ****** GX S.FNTY= 000004 T.PCB 000046 UC.PWF= 000020 U.UIC = 000052 $CRUCB= ****** GX S.FRK 000016 T.PRI 000002 UC.QUE= 000040 U.UNIT 000006 $CRUNA= ****** GX S.FTYP= 000002 T.RCVL 000012 US.ABO= 000001 U.VCB = 000034 $DIV = ****** GX S.ITM 000007 T.RRFL 000064 US.BSP= 000002 U2.AT.= 000020 $FDLGG= ****** GX S.LHD 000000 T.SRCT 000063 US.BSY= 000200 U2.CRT= 002000 $HEADR= ****** GX S.NFEN= 000020 T.STAT 000032 US.CRW= 000004 U2.DH1= 100000 $MSGEN= ****** GX S.PKT 000014 T.ST2 000034 US.DSB= 000010 U2.DJ1= 040000 $PARFL= ****** GX S.PRI 000004 T.ST3 000036 US.ECH= 000002 U2.DZ1= 000100 $QMCRL= ****** GX S.RCNT 177772 T.TCBL 000030 US.FOR= 000040 U2.ESC= 001000 $SYSIZ= ****** GX S.ROFF 177773 T.UCB 000026 US.FRK= 000002 U2.HLD= 000040 $TIOSB= ****** GX S.STS 000011 T2.ABO= 000100 US.LAB= 000004 U2.LOG= 000400 $TKTCB= ****** GX S.VCT 000005 T2.AST= 100000 US.MDE= 000002 U2.LWC= 000001 $$MSG = 000000 TS.BLK= 170700 T2.BFX= 004000 US.MDM= 000020 U2.L3S= 000004 $$$ARG= 000002 TS.CKP= 000200 T2.CAF= 000400 US.MNT= 000100 U2.L8S= 010000 $$$OST= 000122 TS.CKR= 000100 T2.CHK= 020000 US.OFL= 000001 U2.NEC= 004000 $$$T1 = 000067 TS.EXE= 100000 T2.CKD= 010000 US.OUT= 000001 U2.PRV= 000010 ...GBL= 000000 TS.MSG= 020000 T2.DST= 040000 US.PUB= 000004 U2.RMT= 020000 ...TPC= 000140 . ABS. 177776 000 000000 001 ADS 004454 002 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 9201 WORDS ( 36 PAGES) DYNAMIC MEMORY: 10060 WORDS ( 38 PAGES) ELAPSED TIME: 00:00:49 ADS,[202,34]ADS/CR/SP=[1,1]EXEMC/ML,[202,1]RSXMC,MAC/ML,ADS ADS CREATED BY MACRO ON 27-MAR-78 AT 08:47 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ABORT 003702 R 8-143 8-143 8-161 8-161 8-180 8-180 8-187 8-187 8-202 8-202 8-210 8-210 8-232 8-232 8-245 8-245 8-276 8-276 8-278 8-278 9-293 9-301 9-301 #10-353 ADS 002134 R #8-139 15-557 A$$CHK = 000000 #2-31 A$$CPS = 000000 #2-26 CREMT1 001034 R #7-126 8-240 CREMT2 001054 R #7-127 8-241 CRPALB 001012 R #7-120 8-270 8-271 9-292 9-292 CRPARM 000772 R #7-112 8-236 CRPFSI 001000 R #7-115 *8-155 8-228 CRPSLB 001004 R #7-116 *8-234 *8-235 C$$CKP = 000000 #2-29 C$$ORE = 001000 #2-41 DARTN 001132 R #7-136 *8-214 8-230 DATAB 001122 R #7-134 8-214 DBARTN 004414 R 7-134 #14-528 DBRTN 004214 R 7-133 #13-470 DEFBUF 000750 R #7-107 8-171 DEVRTN 001130 R #7-135 *8-213 8-272 DKARTN 004414 R 7-134 #14-529 DKRTN 003704 R 7-133 #11-370 DMARTN 004434 R 7-134 #15-550 DMPUCB 001102 R #7-130 *8-193 8-197 8-224 8-246 8-255 DMRTN 004042 R 7-133 #12-419 DNTAB 001104 R #7-131 8-204 8-212 DRTAB 001114 R #7-133 8-213 DUMFDB 001016 R 7-113 #7-121 *8-156 *8-157 DV.F11 = 040000 8-198 D$$ISK = 000000 #2-30 D$$L11 = 000001 #2-81 D.NAM 000004 8-206 8-257 10-335 D.UCB 000002 8-259 10-336 D.UCBL 000010 8-260 10-339 D.UNIT 000006 8-262 E$$DVC = ****** 2-163 2-298 FORMAT 003342 R 8-251 #9-292 9-293 F$$LPP = ****** 2-333 F$$LVL = 000001 #2-28 F.EFBK = 000010 *8-156 F.HIBK = 000004 *8-157 G$$TPP = 000000 #2-36 G$$TTK = 000000 #2-37 G.MCRB = 000002 7-98 H$$RTZ = 000074 #2-44 H.LUN 000076 *8-195 IE.EOF = 177766 8-162 IOSB 001076 R #7-129 9-292 9-294 9-298 IO.WLB = 000400 9-292 IS.SUC = 000001 9-294 I$$RAR = 000000 #2-38 I$$RDN = 000000 #2-32 ADS CREATED BY MACRO ON 27-MAR-78 AT 08:47 PAGE 2 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES K$$CNT = 177546 #2-46 K$$CSR = 177546 #2-45 K$$IEN = 000115 #2-49 K$$LDC = 000001 #2-48 K$$TPS = 000074 #2-47 LD$CT = 000000 #2-51 LD$DB = 000000 #2-54 LD$DK = 000000 #2-56 LD$DL = 000000 #2-58 LD$DM = 000000 #2-61 LD$DP = 000000 #2-63 LD$DR = 000000 #2-66 LD$DT = 000000 #2-68 LD$DX = 000000 #2-70 LD$LP = 000000 #2-72 LD$MM = 000000 #2-74 LD$MT = 000000 #2-76 LD$PP = 000000 #2-78 LD$PR = 000000 #2-79 L$$ASG = 000000 #2-39 L$$DRV = 000000 #2-34 L$$P11 = 000001 #2-71 L$$SI1 = ****** 2-271 MCRLIN 000604 R #7-98 8-158 8-159 8-161 8-164 M$$CRB = 000124 #2-86 M$$CRX = 000000 #2-84 M$$FCS = 000000 #2-27 M$$MGE = 000000 #2-33 M$$OVR = 000000 #2-83 M001 000013 R 6-56 #6-58 6-58 8-143 M002 000045 R 6-58 #6-60 6-60 8-180 M003 000062 R 6-60 #6-62 6-62 7-126 M004 000111 R 6-62 #6-64 6-64 8-187 M005 000130 R 6-64 #6-66 8-202 M006 000153 R 6-66 6-66 #6-68 6-68 7-126 M007 000204 R 6-68 #6-70 6-70 7-126 M007A 000241 R #6-72 7-127 M008 000252 R 6-70 #6-73 6-73 8-232 M009 000273 R 6-73 #6-75 6-75 7-126 M010 000323 R 6-75 #6-77 6-77 7-126 M011 000337 R 6-77 #6-79 6-79 7-126 M012 000357 R 6-79 #6-81 6-81 7-126 M012A 000404 R #6-83 7-127 M013 000415 R 6-81 #6-84 6-84 8-276 M014 000466 R 6-84 #6-86 6-86 8-278 M015 000512 R 6-86 #6-88 6-88 9-301 M015A 000545 R #6-90 9-297 M016 000556 R 6-88 #6-91 6-91 8-210 M017 000603 R 6-91 #6-93 N$$LDV = 000001 #2-82 PARBUF 000726 R #7-99 7-112 8-170 8-175 PARDEV 000726 R #7-100 8-182 ADS CREATED BY MACRO ON 27-MAR-78 AT 08:47 PAGE 3 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES PARFLG 000746 R #7-106 PARFNM 000734 R #7-103 PARTYP 000742 R #7-104 PARUIC 000732 R #7-102 PARUN 000730 R #7-101 8-183 PARVER 000744 R #7-105 PCFLG 001074 R #7-128 *8-237 *8-250 8-274 PFX 000000 R #6-54 6-54 8-143 8-180 8-187 8-202 8-210 8-232 8-245 8-276 8-278 9-301 PRMT 000006 R 6-54 #6-56 6-56 8-161 P$$P11 = 000001 #2-77 P$$P45 = 000000 #2-42 P$$R11 = 000001 #2-80 RELDEV 003506 R 8-247 8-254 #10-313 R$$EIS = ****** 2-318 R$$JPO = 000000 #2-52 R$$JP1 = 000001 #2-53 R$$K11 = 000001 #2-55 R$$L11 = 000001 #2-57 R$$MOF = 000000 #2-64 R$$M11 = 000001 #2-65 R$$P11 = 000001 #2-62 R$$X11 = 000001 #2-69 R$$11M = 000000 #2-87 R$$6OF = 000000 #2-59 R$$611 = 000001 #2-60 R.FIX = 000001 7-121 S$$YDF = ****** 2-1 2-398 S$$YSZ = 001400 #2-43 S.CSR 000012 8-267 T$$A11 = 000001 #2-50 T$$C11 = 000001 #2-67 T$$J16 = 000001 #2-73 T$$KMG = 000000 #2-35 T$$MIN = 000000 #2-40 T$$M11 = 000001 #2-75 T.UCB 000026 8-140 10-329 US.MDM = 000020 10-318 10-320 US.MNT = 000100 8-200 8-216 U.CW1 000010 8-198 U.CW2 000012 8-141 8-226 U.CW3 000014 8-227 U.DCB 000000 8-205 8-256 10-334 U.RED 000002 8-190 8-191 U.SCB 000020 8-266 U.STS 000005 8-200 8-216 10-318 *10-320 U.UNIT 000006 11-382 12-426 13-479 U.VCB = 000034 8-220 10-316 U2.PRV = 000010 8-141 V$$CTR = 000400 #2-85 ZERO 001134 R #7-137 9-292 $ALOCB = ****** GX 10-324 ADS CREATED BY MACRO ON 27-MAR-78 AT 08:47 PAGE 4 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES $CBDSG = ****** GX 8-244 9-300 $CBOMG = ****** GX 10-344 $CKDSW = ****** GX 9-293 $CRDAP = ****** GX 8-268 $CRFIL = ****** GX 8-238 $CRSDV = ****** GX *8-257 $CRUCB = ****** GX 8-252 *8-253 *8-273 $CRUNA = ****** GX *8-265 $DIV = ****** GX 8-261 10-340 11-376 12-432 12-438 13-498 $FDLGG = ****** GX 8-185 $HEADR = ****** GX 8-194 $MSGEN = ****** GX 8-143 8-161 8-180 8-187 8-202 8-210 8-232 8-245 8-276 8-278 9-301 $PARFL = ****** GX 8-178 $QMCRL = ****** GX 10-349 $SYSIZ = ****** GX 8-145 $TIOSB = ****** GX 8-162 $TKTCB = ****** GX 8-139 10-328 $$$ARG = 000002 #9-292 9-292 #9-292 9-292 #9-292 9-292 #9-292 9-292 #9-292 9-292 #9-292 9-292 9-292 #9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 #9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 #9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 9-292 $$$GLB = ****** 7-98 $$$T1 = 000067 #8-143 8-143 8-143 8-143 #8-161 8-161 8-161 8-161 #8-180 8-180 8-180 8-180 #8-187 8-187 8-187 8-187 #8-202 8-202 8-202 8-202 #8-210 8-210 8-210 8-210 #8-232 8-232 8-232 8-232 #8-245 8-245 8-245 8-245 #8-276 8-276 8-276 8-276 #8-278 8-278 8-278 8-278 #9-301 9-301 9-301 9-301 ADS CREATED BY MACRO ON 27-MAR-78 AT 08:47 PAGE 5 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES ASSUME #2-94 CALL #2-104 #8-143 #8-161 #8-178 #8-180 #8-185 #8-187 #8-189 #8-202 #8-210 #8-215 #8-230 #8-232 #8-238 #8-244 #8-245 #8-247 #8-251 #8-254 #8-261 #8-272 #8-276 #8-278 #9-300 #9-301 #10-315 #10-324 #10-340 #10-344 #10-349 #11-376 #12-432 #12-438 #13-498 CALLR #2-130 CKDSW$ #5-39 9-293 CRASH #2-138 DCBDF$ #5-40 #5-42 DIRSV$ #2-146 DIR$ #5-39 #8-144 8-144 8-159 #8-277 8-277 #8-279 8-279 #9-292 9-292 DRSTS #2-154 ERR$ #8-143 #8-143 #8-161 #8-161 #8-180 #8-180 #8-187 #8-187 #8-202 #8-202 #8-210 #8-210 #8-232 #8-232 #8-245 #8-245 #8-276 #8-276 #8-278 #8-278 #9-301 #9-301 EXIT$S #5-39 #8-144 #8-277 #8-279 FCSBT$ #5-40 5-48 FDOFF$ #5-47 5-47 FDOF$L #5-40 5-47 GMCR$ #5-39 #7-98 GTUCB$ #2-250 HDRDF$ #5-41 #5-46 INTSE$ #2-174 INTSV$ #2-216 MFPS #2-272 MOV$ #9-292 9-292 9-292 9-292 9-292 9-292 #9-292 9-292 9-292 #9-292 9-292 9-292 MSGN$S #5-39 #8-143 #8-161 #8-180 #8-187 #8-202 #8-210 #8-232 #8-245 #8-276 #8-278 #9-301 MTPS #2-275 MVB$ #9-292 9-292 OFF$ #7-98 QDPB$S #9-292 #9-292 QIOSY$ #5-40 5-49 QIOW$S #5-39 9-292 RETURN #2-309 #8-196 #8-219 #8-221 #9-296 #9-302 #10-352 #11-403 #12-453 #13-513 #14-533 #14-535 #15-554 #15-556 RVP$ #9-292 #9-292 #9-292 #9-292 SAVNR #2-289 SCBDF$ #5-40 #5-44 SOB #2-319 #8-174 SWSTK$ #2-329 TCBDF$ #5-40 5-45 UCBDF$ #5-40 5-43