CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 4 1 .TITLE CWDCSI - PARSE CWD COMMAND 2 .IDENT /V01/ 3 .ENABL LC 4 5 ;+ 6 ; WRITTEN BY: GARY L. MAXWELL 7 ; 22-SEP-79 8 ; NATIONAL STRONG MOTION DATA CENTER 9 ; U.S. GEOLOGICAL SURVEY 10 ; MENLO PARK, CALIFORNIA 11 ; 12 ; CWDCSI ACCEPTS THE MCR COMMAND LINE FOR THE CWD/PWD TASKS 13 ; AND PARSES IT USING THE TPARS TABLE PARSER. THE ROUTINE 14 ; ENFORCES BOTH SYNTACTIC AND SEMANTIC RULES FOR THE CWD 15 ; COMMAND LINE (SEE CWD MAIN MODULE FOR COMMAND SYNTAX). 16 ; 17 ; LOCAL SYMBOLS 18 ;- 19 20 000001 CM.RSE = 1 ; MASK FOR CWD RESET COMMAND 21 000002 CM.NDV = 2 ; MASK FOR NO DEVICE SPEC IN COMMAND 22 000004 CM.NGP = 4 ; MASK FOR NO GROUP SPEC IN COMMAND 23 000010 CM.NMB = 10 ; MASK FOR NO MEMBER SPEC IN COMMAND 24 000016 CM.NUL = CM.NDV!CM.NGP!CM.NMB 25 26 000040 SPACE = <' > ; ASCII SPACE CHAR 27 28 .MCALL ISTAT$,STATE$,TRAN$ 29 .MCALL ERROR,PMSG 30 .MCALL EXIT$S 31 32 ;+ 33 ; LOCAL DATA 34 ;- 35 000000 .PSECT 36 37 000000 000000 CMDFLG:: .WORD 0 ; MASK WORD FOR TPARS TRANSITIONS 38 39 .NLIST BEX 40 000002 012 103 127 CHLPM: .ASCII <12>^CWD -- Change Working Directory Command:^<15><12> 41 000055 050 101 154 .ASCII ^(All arguments in brackets are optional)^<15><12><12> 42 000130 011 076 103 .ASCII <11>^>CWD [ddn:] [ggg] [,mmm]^<15><12><12> 43 000164 120 145 162 .ASCII ^Performs the following:^<15><12> 44 000215 011 011 047 .ASCII <11><11>^'ddn:' is assigned as device SY0:^<15><12> 45 000262 011 011 133 .ASCII <11><11>^[ggg,mmm] is set as the default UIC^<15><12><12> 46 000332 050 101 156 .ASCII ^(Any missing arguments remain at their current^ 47 000410 040 141 163 .ASCII ^ assignment)^<15><12><12><12> 48 000430 011 076 103 .ASCII <11>^>CWD [.:] [.] [,.]^<15><12><12> 49 000456 122 145 163 .ASCII ^Resets any unspecified argument back to its login setting.^ 50 000550 015 012 050 .ASCII <15><12>^(A specified argument will leave its current^ 51 000626 040 141 163 .ASCII ^ assignment unchanged)^ 52 000654 015 012 012 .BYTE <15>,<12>,<12>,<12> 53 000660 011 076 103 .ASCII <11>^>CWD^<15><12><12> 54 000670 122 145 163 .ASCII ^Resets SY0: and UIC to their login assignments.^<15><12> 55 000747 CHLPML = .-CHLPM 56 57 000751 012 120 127 PHLPM: .ASCII <12>^PWD -- Print Working Directory Command:^<15><12><12> CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 4-1 58 001024 011 076 120 .ASCII <11>^>PWD^<15><12><12> 59 001034 127 151 154 .ASCII ^Will print user's current SY0: assignment and default UIC,^ 60 001126 015 012 .BYTE <15>,<12> 61 001130 146 162 145 .ASCII ^free space information on SY0:, and checks that a^ 62 001211 040 125 163 .ASCII ^ User File Directory^<15><12> 63 001237 145 170 151 .ASCII ^exists on the volume.^<15><12> 64 000315 PHLPML = .-PHLPM 65 .EVEN 66 .LIST BEX CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 5 68 ;+ 69 ; REQUIRED INPUTS: 70 ; R4 MUST POINT TO BEGINNING OF CWD/PWD COMMAND 71 ; R3 EQUALS THE LENGTH OF THE COMMAND LINE 72 ; 73 ; FOR PROPER FUNCTIONING, CWDCSI MUST BE CALLED WITH THE 74 ; FOLLOWING GLOBAL LOCATIONS PRE-INITIALIZED: 75 ; 76 ; $UGRP: (BYTE) CURRENT DEFAULT GROUP SPEC 77 ; $UMEM: (BYTE) CURRENT DEFAULT MEMBER SPEC 78 ; $LGRP: (BYTE) LOGIN GROUP SPEC 79 ; $LMEM: (BYTE) LOGIN MEMBER SPEC 80 ; 81 ; IF A SYNTAX ERROR IS DETECTED, CWDCSI PRINTS A DIAGNOSTIC 82 ; MESSAGE AND EXITS TO MCR. 83 ; 84 ; OUTPUTS FROM CWDCSI: 85 ; 86 ; $FLAG: MASK WORD FOR ACTION TO BE TAKEN BY CWD 87 ; $DNAM: ASCII NAME OF DEVICE FROM COMMAND LINE 88 ; ('SY' IF NO DEVICE SPECIFIED) 89 ; $DNUM: BINARY UNIT NUMBER FROM COMMAND (ZERO IF 90 ; NO DEVICE SPECIFIED) 91 ; $UGRP: BINARY GROUP TO BE USED IN 'SET /UIC' COMMAND 92 ; $UMEM: BINARY MEMBER TO BE USED IN 'SET /UIC' COMMAND 93 ;- CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 6 95 ;+ 96 ; INITIALIZE AND CALL TABLE PARSER 97 ;- 98 99 001266 CWDCSI:: 100 001266 012767 054523 000000G MOV #<"SY>,$DNAM ; DEFAULT DEVICE 101 001274 005067 000000G CLR $DNUM ; UNIT #0 102 001300 005067 000000G CLR $FLAG ; CLEAR CWD ACTION MASK 103 001304 005067 176470 CLR CMDFLG ; CLEAR PARSING MASK WORD 104 001310 005001 CLR R1 ; HAVE TPARS IGNORE BLANKS 105 001312 012705 000000' MOV #CSTRT,R5 ; BEGINNING STATE TABLE 106 001316 012702 000000' MOV #CWDKTB,R2 ; START OF KEYWORD TABLE 107 001322 CALL .TPARS ; CALL PARSER 108 001326 103464 BCS SYNERR ; SYNTAX ERROR 109 110 ;+ 111 ; PERFORM SEMANTIC ACTION (SET UP $FLAG MASK FOR CWD) 112 ;- 113 114 001330 052767 000000C 000000G BIS #,$FLAG ; FREE SPACE / UFD SEARCH 115 001336 032767 000000G 000000G BIT #CW.PWD,$FLAG ; PWD COMMAND? 116 001344 001054 BNE CSIRET ; YES, JUST EXIT 117 001346 052767 000000G 000000G BIS #CW.SET,$FLAG ; ALWAYS DO 'SET /UIC' 118 001354 016700 176420 MOV CMDFLG,R0 ; GET COMMAND MASK 119 001360 032700 000001 BIT #CM.RSE,R0 ; CWD RESET COMMAND? 120 001364 001013 BNE 10$ ; YES, SKIP AHEAD 121 122 001366 032700 000002 BIT #CM.NDV,R0 ; USER SPECIFY A DEVICE? 123 001372 001404 BEQ 100$ ; YES, SKIP AHEAD 124 001374 042767 000000G 000000G BIC #CW.FRE,$FLAG ; NO, DON'T SHOW FREE SPACE 125 001402 000435 BR CSIRET ; AND RETURN 126 001404 052767 000000G 000000G 100$: BIS #CW.ASN,$FLAG ; ELSE SET UP 'ASN DDN:=SY0:' 127 001412 000431 BR CSIRET ; AND EXIT 128 129 001414 052767 000000G 000000G 10$: BIS #CW.PWD,$FLAG ; ALWAYS DO A PWD FOR RESETS 130 001422 032700 000002 BIT #CM.NDV,R0 ; SAVE CURRENT SY0:? 131 001426 001004 BNE 200$ ; NO, SKIP AHEAD 132 001430 042767 000000G 000000G BIC #CW.FRE,$FLAG ; YES, DON'T SHOW FREE SPACE 133 001436 000403 BR 20$ ; GO CHECK DEVICE SPECS 134 001440 052767 000000G 000000G 200$: BIS #CW.RSE,$FLAG ; ELSE DO 'ASN =SY0:' 135 001446 032700 000004 20$: BIT #CM.NGP,R0 ; SAVE CURRENT GROUP? 136 001452 001403 BEQ 30$ ; YES, SKIP AHEAD 137 001454 116767 000000G 000000G MOVB $LGRP,$UGRP ; ELSE RESET TO LOGIN VALUE 138 001462 032700 000010 30$: BIT #CM.NMB,R0 ; SAVE CURRENT MEMBER? 139 001466 001403 BEQ CSIRET ; YES, GO RETURN 140 001470 116767 000000G 000000G MOVB $LMEM,$UMEM ; ELSE RESET TO LOGIN VALUE 141 142 001476 CSIRET: RETURN 143 144 001500 032767 000000G 000000G SYNERR: BIT #CW.PWD,$FLAG ; CWD OR PWD COMMAND? 145 001506 001021 BNE PERR ; PWD ERROR 146 001510 ERROR < CWD -- Syntax error> 147 001552 PERR: ERROR < PWD -- Syntax error> CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 7 149 ;+ 150 ; DEFINE PARSING TABLES 151 ;- 152 153 001614 ISTAT$ CWDSTB,CWDKTB 154 155 ;+ 156 ; START PARSE OF COMMAND 157 ;- 158 159 001614 STATE$ CSTRT 160 161 001614 TRAN$ "PWD",PSWCK,,CW.PWD,$FLAG 162 001614 TRAN$ "CWD" 163 164 ;+ 165 ; LOOK FOR POSSIBLE DEVICE SPEC (FRAGMENT = "CWD ") 166 ;- 167 168 001614 STATE$ 169 001614 TRAN$ <'/>,CSWCK 170 001614 TRAN$ <'[>,CBRK,,CM.NDV,CMDFLG 171 001614 TRAN$ <'.>,CPER,,CM.RSE,CMDFLG 172 001614 TRAN$ <',>,CCMA,,,CMDFLG 173 001614 TRAN$ $EOS,$EXIT,,,CMDFLG 174 001614 TRAN$ $ALPHA,CDVA,DV1 175 001614 TRAN$ $NUMBR,CGRP1,GGRP,CM.NDV,CMDFLG 176 177 ;+ 178 ; FRAGMENT = 'CWD D' 179 ;- 180 181 001614 STATE$ CDVA 182 001614 TRAN$ $ALPHA,,DV2 183 001614 STATE$ 184 001614 TRAN$ $NUMBR,CDVN,DV3 185 001614 TRAN$ $LAMDA 186 187 001614 STATE$ CDVN 188 001614 TRAN$ <':> 189 190 ;+ 191 ; FRAGMENT = 'CWD DDNN:' 192 ;- 193 194 001614 STATE$ 195 001614 TRAN$ <'[>,CBRK 196 001614 TRAN$ <',>,CCMA1,,CM.NGP,CMDFLG 197 001614 TRAN$ $EOS,$EXIT,,,CMDFLG 198 001614 TRAN$ $NUMBR,CGRP1,GGRP CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 8 200 ;+ 201 ; FRAGMENT = 'CWD ,' 202 ;- 203 204 001614 STATE$ CCMA 205 001614 TRAN$ <'.>,EXST,,CM.RSE,CMDFLG 206 001614 TRAN$ $EOS,$EXIT,,,CMDFLG 207 001614 TRAN$ $NUMBR,EXST,GMEM 208 209 ;+ 210 ; FRAGMENT = 'CWD DDNN:,' 211 ;- 212 213 001614 STATE$ CCMA1 214 001614 TRAN$ $EOS,$EXIT,,CM.NMB,CMDFLG 215 001614 TRAN$ $NUMBR,EXST,GMEM 216 217 ;+ 218 ; FRAGMENT = 'CWD DDNN:GGG' OR 'CWD GGG' 219 ;- 220 221 001614 STATE$ CGRP1 222 001614 TRAN$ !CGRP,EXST 223 224 ;+ 225 ; FRAGMENT = 'CWD .' 226 ;- 227 228 001614 STATE$ CPER 229 001614 TRAN$ <':>,PDV 230 001614 TRAN$ $EOS,$EXIT,,,CMDFLG 231 001614 TRAN$ !PGRP,EXST,,CM.NDV,CMDFLG 232 233 ;+ 234 ; FRAGMENT = 'CWD .:' 235 ;- 236 237 001614 STATE$ PDV 238 001614 TRAN$ <'[>,PBRK 239 001614 TRAN$ $EOS,$EXIT,,,CMDFLG 240 001614 TRAN$ !PUIC,EXST 241 242 ;+ 243 ; FRAGMENT = 'CWD .:[' 244 ;- 245 246 001614 STATE$ PBRK 247 001614 TRAN$ !PUIC,CRBRK CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 9 249 ;+ 250 ; FRAGMENT = 'CWD [' 251 ;- 252 253 001614 STATE$ CBRK 254 001614 TRAN$ <']>,EXST,,,CMDFLG 255 001614 TRAN$ <'.>,CBP,,CM.RSE,CMDFLG 256 001614 TRAN$ <',>,CBC,,CM.NGP,CMDFLG 257 001614 TRAN$ !CUIC,CRBRK 258 259 ;+ 260 ; FRAGMENT = 'CWD [.' 261 ;- 262 263 001614 STATE$ CBP 264 001614 TRAN$ !PGRP,CRBRK 265 266 ;+ 267 ; FRAGMENT = 'CWD [,' 268 ;- 269 270 001614 STATE$ CBC 271 001614 TRAN$ <'.>,CRBRK,,CM.RSE,CMDFLG 272 001614 TRAN$ <']>,EXST,,,CMDFLG 273 001614 TRAN$ !CCOM 274 275 ;+ 276 ; EXPECT A CLOSING ']' 277 ;- 278 279 001614 STATE$ CRBRK 280 001614 TRAN$ <']> 281 282 ;+ 283 ; END COMMAND LINE 284 ;- 285 286 001614 STATE$ EXST 287 001614 TRAN$ $EOS,$EXIT CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 10 289 ;+ 290 ; PARSE UIC SUBEXPRESSIONS 291 ;- 292 293 001614 STATE$ CUIC 294 001614 TRAN$ <',>,CCOM,,CM.NGP,CMDFLG 295 001614 TRAN$ $NUMBR,CGRP,GGRP 296 001614 TRAN$ $LAMDA,$EXIT,,,CMDFLG 297 298 001614 STATE$ CGRP 299 001614 TRAN$ <',>,CCOM 300 001614 TRAN$ $LAMDA,$EXIT,,CM.NMB,CMDFLG 301 302 001614 STATE$ CCOM 303 001614 TRAN$ $NUMBR,$EXIT,GMEM 304 001614 TRAN$ $LAMDA,$EXIT,,CM.NMB,CMDFLG 305 306 001614 STATE$ PUIC 307 001614 TRAN$ <',>,PCOM,,CM.NGP,CMDFLG 308 001614 TRAN$ <'.>,PGRP 309 001614 TRAN$ $LAMDA,$EXIT,,,CMDFLG 310 311 001614 STATE$ PGRP 312 001614 TRAN$ <',>,PCOM 313 001614 TRAN$ $LAMDA,$EXIT,,CM.NMB,CMDFLG 314 315 001614 STATE$ PCOM 316 001614 TRAN$ <'.>,$EXIT 317 001614 TRAN$ $LAMDA,$EXIT,,CM.NMB,CMDFLG 318 319 ;+ 320 ; SWITCH PROCESSING 321 ;- 322 323 001614 STATE$ PSWCK 324 001614 TRAN$ <'/>,CSWCK 325 001614 TRAN$ $EOS,$EXIT 326 327 001614 STATE$ CSWCK 328 001614 TRAN$ "HE",$EXIT,HLPCMD 329 330 001614 STATE$ 331 332 ;+ 333 ; END OF STATE/TRANSITION TABLES 334 ;- CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 11 336 337 ;+ 338 ; SEMANTIC CODE TO INTERPRET DEVICE AND UIC SPECS 339 ;- 340 341 001614 116767 000000G 000000G DV1: MOVB .PCHAR,$DNAM ; STORE FIRST DEVICE CHAR 342 001622 RETURN 343 344 001624 116767 000000G 000001G DV2: MOVB .PCHAR,$DNAM+1 ; STORE SECOND CHAR 345 001632 RETURN 346 347 001634 016767 000000G 000000G DV3: MOV .PNUMB,$DNUM ; DEVICE NO. 348 001642 RETURN 349 350 001644 005767 000000G GGRP: TST .PNUMH ; CHECK HIGH ORDER NUMBER 351 001650 001023 BNE UFAIL ; NON-ZERO: GROUP TOO HIGH 352 001652 105767 000001G TSTB .PNUMB+1 ; CHECK HIGH BYTE - LOW ORDER 353 001656 001020 BNE UFAIL ; STILL TOO HIGH 354 001660 116767 000000G 000000G MOVB .PNUMB,$UGRP ; ELSE STORE GROUP 355 001666 001414 BEQ UFAIL ; DON'T ALLOW GROUP '0' 356 001670 000415 BR UEXIT ; GO EXIT 357 358 001672 005767 000000G GMEM: TST .PNUMH ; CHECK HIGH ORDER 359 001676 001010 BNE UFAIL ; FAIL IF NON-ZERO 360 001700 105767 000001G TSTB .PNUMB+1 ; CHECK LOW ORDER HIGH BYTE 361 001704 001005 BNE UFAIL ; STILL TOO HIGH 362 001706 116767 000000G 000000G MOVB .PNUMB,$UMEM ; ELSE ALL RIGHT 363 001714 001401 BEQ UFAIL ; DON'T ALLOW MEMBER '0' 364 001716 000402 BR UEXIT ; AND RETURN 365 366 001720 062716 000002 UFAIL: ADD #2,(SP) ; REJECT TRANSITION 367 001724 UEXIT: RETURN ; EXIT TO TPARS 368 369 001726 032767 000000G 000000G HLPCMD: BIT #CW.PWD,$FLAG ; 'PWD /HE'? 370 001734 001017 BNE PHLP ; YES, SKIP AHEAD 371 001736 PMSG #CHLPM,#CHLPML,#SPACE 372 001772 000416 BR TSKEX ; EXIT AFTER PRINTING MESSAGE 373 374 001774 PHLP: PMSG #PHLPM,#PHLPML,#SPACE ; PRINT PWD HELP 375 376 002030 TSKEX: EXIT$S ; EXIT PROGRAM 377 000001 .END CWDCSI - PARSE CWD COMMAND MACRO M1113 11-APR-80 13:09 PAGE 11-1 SYMBOL TABLE A$$CHK= 000000 C$$ORE= 002000 LD$DY = 000000 R$$JPO= 000000 T$$SYN= 000000 A$$CPS= 000000 C$$RSH= 177564 LD$LP = 000000 R$$JP1= 000001 T$$TRW= 000000 A$$NSI= 000000 C$$RUN= 000000 LD$MM = 000000 R$$LKL= 000001 T$$UTB= 000000 A$$PRI= 000000 C$$SMT= 000000 LD$TT = 000000 R$$MOF= 000000 T$$UTO= 000170 A$$TRP= 000000 C$$TTY= 177564 LD$XL = 000000 R$$M11= 000001 T$$VBF= 000000 CBC 000342R 003 DV1 001614R L$$ASG= 000000 R$$NDC= 000005 T$$ZAN= 012430 CBP 000334R 003 DV2 001624R L$$DRV= 000000 R$$NDH= 000226 T$$30P= 000000 CBRK 000276R 003 DV3 001634R L$$PTO= 000036 R$$NDL= 000012 UEXIT 001724R CCMA 000146R 003 D$$E11= 000001 L$$P11= 000002 R$$SND= 000000 UFAIL 001720R CCMA1 000174R 003 D$$IAG= 000000 MSGADR= 000024R 002 R$$SOB= 000000 U$$MHI= 000000 CCOM 000436R 003 D$$ISK= 000000 MSGLEN= 000024 R$$X21= 000001 U$$MLO= 120000 CDVA 000076R 003 D$$L11= 000001 M$$CRB= 000124 R$$11M= 000000 U$$MRN= 170224 CDVN 000112R 003 D$$SHF= 000000 M$$CRX= 000000 SPACE = 000040 V$$CTR= 000400 CGRP 000422R 003 D$$WCH= 000000 M$$EXT= 000000 SYNERR 001500R V$$RSN= 000032 CGRP1 000212R 003 D$$YNC= 000000 M$$FCS= 000000 S$$ECC= 000000 $ALPHA= 000322 CHLPM 000002R D$$YNM= 000000 M$$MGE= 000000 S$$TOP= 000000 $ANY = 000320 CHLPML= 000747 D$$ZMD= 000000 M$$MUP= 000000 S$$WPC= 000036 $BLANK= 000306 CMDFLG 000000RG D$$Z11= 000001 M$$OVR= 000000 S$$WPR= 000002 $DIGIT= 000324 CM.NDV= 000002 EXST 000370R 003 N$$LDV= 000001 S$$YSZ= 010000 $DNAM = ****** GX CM.NGP= 000004 E$$DVC= 000000 N$$MOV= 000041 TSKEX 002030R $DNUM = ****** GX CM.NMB= 000010 E$$NSI= 000000 N$$UMR= 000024 T$$ACR= 000000 $DNUMB= 000314 CM.NUL= 000016 E$$PER= 000000 PBRK 000270R 003 T$$BTW= 000000 $EOS = 000312 CM.RSE= 000001 E$$XPR= 000000 PCOM 000514R 003 T$$BUF= 000000 $EXIT = 000000 CPER 000220R 003 F$$LPP= 000000 PDV 000246R 003 T$$CCA= 000000 $FLAG = ****** GX CRBRK 000366R 003 F$$LVL= 000001 PERR 001552R T$$CCO= 000000 $LAMDA= 000300 CSIRET 001476R GGRP 001644R PGRP 000500R 003 T$$CPW= 000000 $LGRP = ****** GX CSTRT 000000R 003 GMEM 001672R PHLP 001774R T$$CTR= 000000 $LMEM = ****** GX CSWCK 000540R 003 G$$EFN= 000000 PHLPM 000751R T$$CUP= 000000 $NUMBR= 000302 CUIC 000374R 003 G$$TPP= 000000 PHLPML= 000315 T$$ESC= 000000 $RAD50= 000316 CWDCSI 001266RG G$$TSS= 000000 PSWCK 000530R 003 T$$GMC= 000000 $STRNG= 000304 CWDKTB 000000RG 004 G$$TTK= 000000 PUIC 000454R 003 T$$GTS= 000000 $SUBXP= 000310 CWDSTB 000000RG 003 HLPCMD 001726R P$$D70= 000000 T$$HFF= 000000 $UGRP = ****** GX CW.ASN= ****** GX H$$RTZ= 000074 P$$GMX= 000000 T$$HLD= 000000 $UMEM = ****** GX CW.FRE= ****** GX I$$RAR= 000000 P$$LAS= 000000 T$$J16= 000001 $$$FLG= 177777 CW.PWD= ****** GX I$$RDN= 000000 P$$OFF= 000000 T$$KMG= 000000 $$$KEY= 000002 CW.RSE= ****** GX K$$CNT= 177546 P$$P45= 000000 T$$LWC= 000000 $$$STA= 000000 CW.SET= ****** GX K$$CSR= 177546 P$$RFL= 000000 T$$RED= 000000 $$$TMP= 000010R 005 CW.UFD= ****** GX K$$IEN= 000115 P$$RTY= 000000 T$$RNE= 000000 .PCHAR= ****** GX C$$CDA= 000004 K$$LDC= 000001 P$$SRF= 000000 T$$RPR= 000000 .PNUMB= ****** GX C$$CKP= 000000 K$$TPS= 000074 P.MSGW= ****** GX T$$RST= 000000 .PNUMH= ****** GX C$$CSR= 172440 LD$DB = 000000 Q$$OPT= 000001 T$$RUB= 000000 .TPARS= ****** GX C$$INT= 000000 LD$DR = 000000 R$$EXV= 000000 T$$SMC= 000000 . ABS. 000000 000 002036 001 MSGTXT 000050 002 $STATE 000546 003 $KTAB 000006 004 $KSTR 000013 005 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 4789 WORDS ( 19 PAGES) DYNAMIC MEMORY: 5990 WORDS ( 23 PAGES) ELAPSED TIME: 00:01:14 CWDCSI,CWDCSI/-SP=[1,1]EXEMC/ML,USERMAC/ML,[200,200]RSXMC/PA:1,[201,104]CWDCSI