LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 4 1 .TITLE LOGCL - GET AND PARSE COMMAND LINE 2 .IDENT /01.00/ 3 .LIST MEB 4 ; 5 ; AUTHOR: H. L. COLEMAN 6 ; MILLIKEN AND COMPANY 7 ; P. O. BOX 1926 8 ; MAIL STOP M-103 9 ; SPARTANBURG, S. C. 29304 10 ; (803)573-2556 11 ; 12 ; VERSION: 01.00 13 ; 14 ; DATE: 30-MAR-78 15 ; 16 ; MODIFICATIONS: 17 ; 18 ; FUNCTION: GET AND PARSE THE COMMAND LINE. 19 ; 20 ; INPUT: 21 ; 22 ; COMMAND LINE OF THE FORM: 23 ; 24 ; LOG LOGFILE=TERMINAL 25 ; 26 ; OUTPUT: 27 ; 28 ; PARBUF IS FILLED WITH PARSED LOG FILE DATA 29 ; LOG FILE FNB IS FILLED IN 30 ; TTUCB = A(UCB OF TERMINAL TO BE LOGGED) 31 ; LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 5 33 ; MACRO CALLS AND SYSTEM DEFINITIONS 34 ; 35 .MCALL DIR$,MSGN$S,EXIT$S,ALUN$S 36 .MCALL QIOSY$,TCBDF$,UCBDF$,NBOF$L,FDOF$L,FCSBT$ 37 .MCALL HDRDF$ 38 000000 QIOSY$ ;DEFINE QIO SYMBOLS 39 000000 TCBDF$ ;DEFINE TCB OFFSETS 40 000000 UCBDF$ ;DEFINE UCB OFFSETS 41 000000 HDRDF$ ;DEFINE TASK HEADER OFFSETS 42 000000 FDOF$L ;DEFINE FDB OFFSETS 43 000000 NBOF$L ;DEFINE FNB OFFSETS 44 000000 FCSBT$ ;DEFINE FCS BITS LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6 46 000000 012700 000002G $LOGCL::MOV #MCRLIN+2,R0 ;R0 = A(COMMAND POSITION IN BUFFER) 47 000004 DIR$ #MCRLIN ;TRY TO GET MCR COMMAND LINE 000004 012746 000000G MOV #MCRLIN,-(SP) 000010 104377 EMT ^O<377> 48 000012 103023 BCC 1100$ ;IF CC, WE GOT ONE - GO PARSE IT 49 000014 1000$: MSGN$S PRMT,0,,MCRLIN+2,79.,ABORT ;PROMMPT 000014 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000020 000000G .IIF NB .WORD PRMT ;A(MESSAGE PREFIX) 000022 000000 .WORD 0 ;SEVERITY LEVEL 000024 000000 .IIF B <> .WORD 0 ;NO MESSAGE TEXT 000026 000002G .WORD MCRLIN+2 ;A(REPLY BUFFER) 000030 000117 .WORD 79. ;REPLY LENGTH 000032 103002 BCC .+6 000034 004767 000000G JSR PC,ABORT 50 000040 012700 000002G MOV #MCRLIN+2,R0 ;R0 = A(COMMAND POSITION IN BUFFER) 51 000044 122767 177766 000000G CMPB #IE.EOF,$TIOSB ;CTRL/Z ? 52 000052 001010 BNE 1200$ ;IF NE, NO - CONTINUE 53 000054 EXIT$S ;EXIT 000054 012746 MOV (PC)+,-(SP) 000056 063 001 .BYTE 51.,1 000060 104377 EMT ^O<377> 54 000062 105710 1100$: TSTB (R0) ;EOL ? 55 000064 001403 BEQ 1200$ ;IF EQ, YES - NOTHING TO PARSE 56 000066 122720 000040 CMPB #' ,(R0)+ ;BLANK ? 57 000072 001373 BNE 1100$ ;IF NE, NO - KEEP LOOKING 58 000074 012701 000000G 1200$: MOV #PARBUF,R1 ;R1 = A(PARSE BUFFER) 59 000100 012702 000000G MOV #DEFBUF,R2 ;R2 = A(DEFAULTS) 60 000104 012703 000010 MOV #8.,R3 ;R3 = COUNT 61 000110 012221 1300$: MOV (R2)+,(R1)+ ;COPY DEFAULTS 62 000112 SOB R3,1300$ ;LOOP UNTIL DONE 000112 005303 DEC R3 000114 001375 BNE 1300$ 63 000116 012701 000000G MOV #PARBUF,R1 ;R1 = A(PARSE BUFFER) 64 000122 105710 TSTB (R0) ;ANYTHING TO PARSE? 65 000124 001416 BEQ 1500$ ;IF EQ, NO - USE ALL DEFAULTS 66 000126 CALL $PARFL ;PARSE THE LOG FILE SPECIFICATION 000126 004767 000000G JSR PC,$PARFL 67 000132 103013 BCC 1500$ ;IF CC, NO ERRORS - CONTINUE 68 000134 1400$: MSGN$S PFX,3,M002,,,ABORT ;SYNTAX ERROR 000134 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000140 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000142 000003 .WORD 3 ;SEVERITY LEVEL 000144 000000G .IIF NB .WORD M002 ;A(MESSAGE TEXT) 000146 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000152 103002 BCC .+6 000154 004767 000000G JSR PC,ABORT 69 000160 000715 BR 1000$ ;FORCE PROMPT 70 000162 122720 000075 1500$: CMPB #'=,(R0)+ ;WAS TERMINATOR AN "=" ? 71 000166 001422 BEQ 1700$ ;IF EQ, YES 72 000170 105760 177777 TSTB -1(R0) ;WAS IT EOL? 73 000174 001412 BEQ 1600$ ;IF EQ, YES - USE DEFAULT 74 000176 105710 TSTB (R0) ;MIGHT STILL BE EOL 75 000200 001355 BNE 1400$ ;IF NE, NO - SYNTAX ERROR 76 000202 122760 000015 177777 CMPB #15,-1(R0) ;PRECEEDED BY CR ? 77 000210 001404 BEQ 1600$ ;IF EQ, YES - OK USE DEFAULT 78 000212 122760 000033 177777 CMPB #33,-1(R0) ;OR ESC ? 79 000220 001345 BNE 1400$ ;IF NE, NO - SYNTAX ERROR LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6-1 80 000222 016701 000000G 1600$: MOV $TKTCB,R1 ;R1 = A(MY TCB) 81 000226 016101 000026 MOV T.UCB(R1),R1 ;R1 = A(MY TI: UCB) 82 000232 000433 BR 1900$ ;CONTIINUE 83 000234 105710 1700$: TSTB (R0) ;EOL ? 84 000236 001771 BEQ 1600$ ;IF EQ, YES - USE DEFAULT 85 000240 012703 000000G MOV #TTWK,R3 ;R3 = A(PARAMETER AREA) 86 000244 CALL $FDLOG ;FIND THE TERMINAL UCB OR LCB 000244 004767 000000G JSR PC,$FDLOG 87 000250 103015 BCC 1850$ ;IF CC, NO ERRORS 88 000252 005703 TST R3 ;SYNTAX ERROR ? 89 000254 001727 BEQ 1400$ ;IF EQ, YES - GO PRINT MESSAGE 90 000256 1800$: MSGN$S PFX,3,M003,,,ABORT ;INVALID DEVICE 000256 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000262 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000264 000003 .WORD 3 ;SEVERITY LEVEL 000266 000000G .IIF NB .WORD M003 ;A(MESSAGE TEXT) 000270 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000274 103002 BCC .+6 000276 004767 000000G JSR PC,ABORT 91 000302 000644 BR 1000$ ;FORCE PROMPT 92 000304 022767 044524 000000G 1850$: CMP #"TI,TTWK ;IS DEVICE TI: 93 000312 001003 BNE 1900$ ;IF NE, NO - CONTINUE 94 000314 005767 000002G TST TTWK+2 ;IS IT TI0: ? 95 000320 001740 BEQ 1600$ ;IF EQ, YES - GO FIND UCB 96 000322 1900$: CALL $SWSTK,2100$ ;SWITCH TO SYSTEM STACK 000322 104376 EMT 376 000324 000346' .WORD 2100$ 97 000326 016101 000002 2000$: MOV U.RED(R1),R1 ;FOLLOW REDIRECT CHAIN 98 000332 026101 000002 CMP U.RED(R1),R1 ;END OF CHAIN ? 99 000336 001373 BNE 2000$ ;IF NE, NO - CONTINUE SEARCH 100 000340 010167 000000G MOV R1,TTUCB ;SAVE A(TERMINAL UCB) 101 000344 RETURN ;RETURN TO USER STATE 000344 000207 RTS PC 102 000346 016701 000000G 2100$: MOV TTUCB,R1 ;R1 = A(TERMINAL UCB) 103 000352 032761 000004 000010 BIT #DV.TTY,U.CW1(R1) ;VALID DEVICE 104 000360 001736 BEQ 1800$ ;IF EQ, NO 105 000362 032767 000000G 000000G BIT #ANYWC,PARFLG ;VALID LOG FILE NAME 106 000370 001414 BEQ 2200$ ;IF EQ, YES 107 000372 MSGN$S PFX,3,M004,,,ABORT ;INVALID LOG FILE SPECIFICATION 000372 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000376 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000400 000003 .WORD 3 ;SEVERITY LEVEL 000402 000000G .IIF NB .WORD M004 ;A(MESSAGE TEXT) 000404 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000410 103002 BCC .+6 000412 004767 000000G JSR PC,ABORT 108 000416 000167 177372 JMP 1000$ ;FORCE PROMPT 109 000422 2200$: ALUN$S #2,PARDEV,PARUN ;ASSIGN LUN 2 RO LOG DEVICE 000422 016746 000000G MOV PARUN,-(SP) 000426 016746 000000G MOV PARDEV,-(SP) 000432 012746 000002 MOV #2,-(SP) 000436 012746 MOV (PC)+,-(SP) 000440 007 004 .BYTE 7,4 000442 104377 EMT ^O<377> 110 000444 103014 BCC 2300$ ;IF CC, LUN ASSIGNED 111 000446 MSGN$S PFX,3,M005,,,ABORT ;INVALID LOG DEVICE 000446 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6-2 000452 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000454 000003 .WORD 3 ;SEVERITY LEVEL 000456 000000G .IIF NB .WORD M005 ;A(MESSAGE TEXT) 000460 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000464 103002 BCC .+6 000466 004767 000000G JSR PC,ABORT 112 000472 000167 177316 JMP 1000$ ;FORCE PROMPT 113 000476 016767 000000G 000032G 2300$: MOV PARDEV,LFNB+N.DVNM ;SET UP FILE NAME BLOCK 114 000504 016767 000000G 000034G MOV PARUN,LFNB+N.UNIT 115 000512 005067 000024G CLR LFNB+N.DID 116 000516 005067 000026G CLR LFNB+N.DID+2 117 000522 005067 000030G CLR LFNB+N.DID+4 118 000526 012702 000002 MOV #2,R2 ;R2 = LUN 119 000532 016700 000000G MOV PARUIC,R0 ;R0 = PARSED UIC 120 000536 032767 000100 000000G BIT #NB.DIR,PARFLG ;WAS DIRECTORY SPECIFIED? 121 000544 001004 BNE 2350$ ;IF EQ, NO 122 000546 016700 000000G MOV $HEADR,R0 ;R0 = A(MY TASK HEADER) 123 000552 016000 000010 MOV H.CUIC(R0),R0 ;R0 = CURRENT UIC 124 000556 012701 000000G 2350$: MOV #LFNB,R1 ;R1 = A(FNB) 125 000562 CALL $FNDIR ;FIND THE DIRECTORY 000562 004767 000000G JSR PC,$FNDIR 126 000566 103014 BCC 2400$ ;IF CC, DIRECTORY FOUND 127 000570 MSGN$S PFX,3,M006,,,ABORT ;ERROR FINDING DIRECTORY 000570 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000574 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000576 000003 .WORD 3 ;SEVERITY LEVEL 000600 000000G .IIF NB .WORD M006 ;A(MESSAGE TEXT) 000602 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000606 103002 BCC .+6 000610 004767 000000G JSR PC,ABORT 128 000614 000167 177174 JMP 1000$ ;FORCE PROMPT 129 000620 012700 000000G 2400$: MOV #LFNB,R0 ;R0 = A(FNB) 130 000624 005020 CLR (R0)+ ;COMPLETE FNB 131 000626 005020 CLR (R0)+ 132 000630 005020 CLR (R0)+ 133 000632 012701 000000G MOV #PARFNM,R1 ;R1 = A(PARSED FILE NAME) 134 000636 012702 000006 MOV #6,R2 ;R2 = COUNT 135 000642 012120 2500$: MOV (R1)+,(R0)+ ;COPY 136 000644 SOB R2,2500$ ;LOOP UNTIL DONE 000644 005302 DEC R2 000646 001375 BNE 2500$ 137 000650 005020 CLR (R0)+ 138 000652 RETURN ;RETURN TO CALLER 000652 000207 RTS PC 139 000001 .END LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6-3 SYMBOL TABLE ABORT = ****** GX FD.DIR= 000010 F.LUN = 000042 IE.ALC= 177654 IE.IUI= 177645 ANYWC = ****** GX FD.FTN= 000001 F.MBCT= 000054 IE.ALG= 177654 IE.LCK= 177745 A$$CHK= 000000 FD.F11= 040000 F.MBC1= 000055 IE.ALN= 177736 IE.LNL= 177646 A$$CPS= 000000 FD.INS= 000010 F.MBFG= 000056 IE.AST= 177660 IE.MAP= 177657 A$$NSI= 000000 FD.ISP= 002000 F.NRBD= 000024 IE.BAD= 177777 IE.MOD= 177753 A$$PRI= 000000 FD.MNT= 100000 F.NREC= 000030 IE.BBE= 177710 IE.NBF= 177731 A$$TRP= 000000 FD.OSP= 004000 F.OVBS= 000030 IE.BCC= 177676 IE.NBK= 177727 CH.AND= 000001 FD.PLC= 000004 F.RACC= 000016 IE.BDI= 177714 IE.NDR= 177670 C$$CDA= 000005 FD.PRN= 000004 F.RATT= 000001 IE.BDR= 177716 IE.NFI= 177704 C$$CKP= 000000 FD.PSE= 010000 F.RCNM= 000034 IE.BDV= 177711 IE.NFW= 177673 C$$CSR= 000000 FD.RAH= 000001 F.RCTL= 000017 IE.BHD= 177700 IE.NLK= 177661 C$$ORE= 002000 FD.RAN= 000002 F.RSIZ= 000002 IE.BLB= 177672 IE.NLN= 177733 C$$RSH= 177564 FD.REC= 000001 F.RTYP= 000000 IE.BLK= 177754 IE.NNC= 177663 C$$RTO= 000017 FD.RWM= 000001 F.SEQN= 000100 IE.BNM= 177712 IE.NNL= 177662 C$$RUN= 000000 FD.SDI= 000020 F.SPDV= 000072 IE.BTF= 177664 IE.NNN= 177674 C$$R11= 000001 FD.SQD= 000040 F.SPUN= 000074 IE.BTP= 177725 IE.NOD= 177751 C$$TTY= 177564 FD.TTY= 000004 F.STBK= 000036 IE.BVR= 177701 IE.NSF= 177746 DEFBUF= ****** GX FD.WBH= 000002 F.UNIT= 000136 IE.BYT= 177755 IE.NST= 177660 DV.CCL= 000002 FF.CHR= 000005 F.URBD= 000020 IE.CKP= 177766 IE.NSW= 177756 DV.COM= 020000 FF.NV = 000003 F.VBN = 000064 IE.CKS= 177742 IE.NVR= 177652 DV.DIR= 000010 FF.POE= 000002 F.VBSZ= 000060 IE.CLO= 177732 IE.NVW= 177651 DV.F11= 040000 FF.RWD= 000001 G$$TPP= 000000 IE.CNR= 177667 IE.OFL= 177677 DV.ISP= 002000 FF.RWF= 000006 G$$TSS= 000000 IE.CON= 177752 IE.ONP= 177773 DV.MNT= 100000 FF.SPC= 000004 G$$TTK= 000000 IE.DAA= 177770 IE.OVR= 177756 DV.MXD= 000100 FO.APD= 000106 H$$RTZ= 000074 IE.DAO= 177763 IE.PES= 177655 DV.OSP= 004000 FO.MFY= 000002 H.CSP 000000 IE.DFU= 177750 IE.PNS= 177642 DV.PSE= 010000 FO.RD = 000001 H.CUIC 000010 IE.DNA= 177771 IE.PRI= 177760 DV.REC= 000001 FO.UPD= 000006 H.DSW 000046 IE.DNR= 177775 IE.PTS= 177775 DV.SDI= 000020 FO.WRT= 000016 H.DUIC 000012 IE.DUN= 177767 IE.RAC= 177724 DV.SQD= 000040 F$$LVL= 000001 H.EFLM 000004 IE.DUP= 177707 IE.RAT= 177723 DV.SWL= 001000 F.ACTL= 000076 H.EFSV 000040 IE.EOF= 177766 IE.RBG= 177730 DV.TTY= 000004 F.ALOC= 000040 H.FCS 000050 IE.EOT= 177702 IE.RBS= 177761 DV.UMD= 000200 F.BBFS= 000062 H.FORT 000052 IE.EOV= 177765 IE.RCN= 177722 D$$ISK= 000000 F.BDB = 000070 H.FPSA 000042 IE.EXP= 177665 IE.RER= 177740 D$$L11= 000002 F.BGBC= 000057 H.FPVA 000034 IE.FEX= 177717 IE.RNM= 177715 D$$YNC= 000000 F.BKDN= 000026 H.GARD 000072 IE.FHE= 177705 IE.RSU= 177757 D$$YNM= 000000 F.BKDS= 000020 H.HDLN 000002 IE.FIX= 177767 IE.SDP= 177635 E$$XPR= 000000 F.BKEF= 000050 H.IPC 000016 IE.FLN= 177657 IE.SNC= 177735 FA.APD= 000100 F.BKP1= 000051 H.IPS 000014 IE.FOP= 177713 IE.SPC= 177772 FA.CRE= 000010 F.BKST= 000024 H.ISP 000020 IE.HFU= 177744 IE.SQC= 177734 FA.DLK= 001000 F.BKVB= 000064 H.LUN 000076 IE.HWR= 177772 IE.SRE= 177762 FA.ENB= 100000 F.CHR = 000075 H.NLUN 000074 IE.IBS= 177647 IE.STK= 177706 FA.EXC= 002000 F.CNTG= 000034 H.NML 000061 IE.IDU= 177644 IE.TCH= 177765 FA.EXT= 000004 F.DFNB= 000046 H.ODVA 000022 IE.IEF= 177637 IE.TMM= 177671 FA.NSP= 000100 F.DSPT= 000044 H.ODVL 000024 IE.IES= 177656 IE.TMO= 177666 FA.POS= 010000 F.DVNM= 000134 H.OVLY 000054 IE.IFC= 177776 IE.ULK= 177653 FA.RD = 000001 F.EFBK= 000010 H.PFVA 000032 IE.IFU= 177747 IE.ULN= 177773 FA.RWD= 004000 F.EFN = 000050 H.RCVA 000036 IE.ILL= 177726 IE.UNS= 177774 FA.SEQ= 040000 F.EOBB= 000032 H.RRVA 000062 IE.ILU= 177640 IE.UPN= 177777 FA.SHR= 000040 F.ERR = 000052 H.SPRI 000060 IE.ILV= 177755 IE.VER= 177774 FA.TMP= 000020 F.FACC= 000043 H.TKVA 000026 IE.INS= 177776 IE.WAC= 177743 FA.WCK= 020000 F.FFBY= 000014 H.TKVL 000030 IE.IOP= 177655 IE.WAT= 177741 FA.WRT= 000002 F.FNAM= 000110 H.VEXT 000056 IE.IPR= 177641 IE.WCK= 177652 FD.BLK= 000010 F.FNB = 000102 H.WND 000044 IE.ISQ= 177703 IE.WER= 177737 FD.CCL= 000002 F.FTYP= 000116 IE.ABO= 177761 IE.ITI= 177643 IE.WLK= 177764 FD.COM= 020000 F.FVER= 000120 IE.ACT= 177771 IE.ITP= 177650 IE.WOV= 177653 FD.CR = 000002 F.HIBK= 000004 IE.ADP= 177636 IE.ITS= 177770 IE.2DV= 177720 LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6-4 SYMBOL TABLE IO.ACE= 007400 IO.LDI= 007000 IO.SMO= 002560 K$$LDC= 000001 R.SEQ = 000003 IO.ACR= 006400 IO.LED= 012000 IO.SPB= 002420 K$$TPS= 000074 R.VAR = 000002 IO.ACW= 007000 IO.LEI= 007410 IO.SPF= 002440 LFNB = ****** GX S$$ECC= 000000 IO.ADS= 014000 IO.LKE= 012000 IO.SPW= 016510 L$$ASG= 000000 S$$YSZ= 007600 IO.APC= 014000 IO.LOD= 014000 IO.SSO= 004400 L$$PTO= 000017 S.FATT= 000016 IO.APV= 014010 IO.LOV= 001010 IO.STA= 015400 L$$P11= 000001 S.FDB = 000140 IO.ATA= 001410 IO.LSI= 011000 IO.STC= 002500 MCRLIN= ****** GX S.FNAM= 000006 IO.ATT= 001400 IO.LTI= 007400 IO.STP= 016400 M$$CRB= 000124 S.FNB = 000036 IO.CAS= 015420 IO.LTK= 000050 IO.SYN= 003040 M$$CRX= 000000 S.FNBW= 000017 IO.CBO= 015510 IO.LTY= 010000 IO.TRM= 002410 M$$FCS= 000000 S.FNTY= 000004 IO.CCI= 014000 IO.MAO= 003410 IO.UDI= 011410 M$$MGE= 000000 S.FTYP= 000002 IO.CCO= 000440 IO.MCS= 013400 IO.UEI= 011450 M$$OVR= 000000 S.NFEN= 000020 IO.CIN= 016500 IO.MDA= 016000 IO.UER= 011440 M002 = ****** GX TS.BLK= 170700 IO.CLK= 015000 IO.MDI= 014400 IO.ULK= 005000 M003 = ****** GX TS.CKP= 000200 IO.CLN= 003400 IO.MDO= 015400 IO.UNL= 000042 M004 = ****** GX TS.CKR= 000100 IO.CNT= 017000 IO.MLO= 006000 IO.USI= 011460 M005 = ****** GX TS.EXE= 100000 IO.CON= 015400 IO.MOD= 003000 IO.UTI= 011420 M006 = ****** GX TS.MSG= 020000 IO.CPR= 015410 IO.MSO= 005000 IO.UTY= 011430 NB.DEV= 000200 TS.NRP= 010000 IO.CPW= 016520 IO.NLB= 016530 IO.WAL= 000410 NB.DIR= 000100 TS.OUT= 000400 IO.CRC= 001040 IO.NLK= 011400 IO.WAT= 013400 NB.NAM= 000004 TS.RDN= 040000 IO.CRE= 012000 IO.ONL= 017400 IO.WBT= 000500 NB.SD1= 000400 TS.RUN= 004000 IO.CRJ= 015440 IO.RAD= 010400 IO.WDD= 000444 NB.SD2= 001000 TTUCB = ****** GX IO.CSI= 013000 IO.RAL= 001010 IO.WLB= 000400 NB.SNM= 000040 TTWK = ****** GX IO.CSM= 016470 IO.RAT= 013000 IO.WLC= 000420 NB.STP= 000020 T$$ACR= 000000 IO.CTI= 015400 IO.RBC= 003000 IO.WLS= 000410 NB.SVR= 000010 T$$BTW= 000000 IO.CTL= 016400 IO.RCI= 015000 IO.WLT= 000410 NB.TYP= 000002 T$$BUF= 000000 IO.CTR= 015610 IO.RCV= 015000 IO.WLV= 000500 NB.VER= 000001 T$$CCO= 000000 IO.CTY= 003400 IO.RDB= 001200 IO.WMS= 000420 N$$LDV= 000001 T$$CTR= 000000 IO.DAC= 010000 IO.RDD= 010010 IO.WNS= 000420 N$$MOV= 000041 T$$J16= 000001 IO.DCI= 014400 IO.RDN= 000022 IO.WPB= 000440 N.DID = 000024 T$$KMG= 000000 IO.DEL= 012400 IO.REL= 013400 IO.WVB= 011000 N.DVNM= 000032 T$$LWC= 000000 IO.DET= 002000 IO.RHD= 001010 IO.XMT= 014400 N.FID = 000000 T$$RNE= 000000 IO.DIS= 016000 IO.RLB= 001000 IO.XNA= 014410 N.FNAM= 000006 T$$RPR= 000000 IO.DLB= 016540 IO.RLV= 001100 IQ.Q = 000002 N.FTYP= 000014 T$$RUB= 000000 IO.DSI= 013400 IO.RMT= 010020 IQ.S = 000004 N.FVER= 000016 T$$SYN= 000000 IO.DTI= 016000 IO.RNA= 005400 IQ.UMD= 000004 N.NEXT= 000022 T$$TRW= 000000 IO.DTY= 006400 IO.RNC= 001040 IQ.X = 000001 N.STAT= 000020 T$$VBF= 000000 IO.ENA= 006000 IO.RNE= 001020 IS.BV = 000005 N.UNIT= 000034 T.ACTL 000052 IO.EOF= 003000 IO.RNS= 001020 IS.CC = 001401 PARBUF= ****** GX T.ASTL 000016 IO.EXT= 011400 IO.RPB= 001040 IS.CLR= 000000 PARDEV= ****** GX T.ATT 000054 IO.FDX= 003020 IO.RPR= 004400 IS.CR = 006401 PARFLG= ****** GX T.CPCB 000004 IO.FLN= 012400 IO.RST= 001001 IS.EOT= 002001 PARFNM= ****** GX T.DPRI 000040 IO.FNA= 004400 IO.RTC= 003400 IS.ESC= 015401 PARUIC= ****** GX T.EFLG 000022 IO.GLC= 016430 IO.RTI= 016400 IS.ESQ= 115401 PARUN = ****** GX T.IOC 000003 IO.GLI= 016420 IO.RTK= 000060 IS.PES= 100001 PFX = ****** GX T.LBN 000041 IO.GNI= 016410 IO.RTM= 001200 IS.PND= 000000 PRMT = ****** GX T.LDV 000044 IO.GRC= 016450 IO.RVB= 010400 IS.RDD= 000002 P$$RFL= 000000 T.LNK 000000 IO.GRI= 016440 IO.RWD= 002400 IS.SET= 000002 P$$RTY= 000000 T.MXSZ 000050 IO.GRN= 016460 IO.RWU= 002540 IS.SPD= 000002 Q$$OPT= 000005 T.NAM 000006 IO.GTS= 002400 IO.R1C= 002400 IS.SUC= 000001 R$$JPO= 000000 T.OFF 000060 IO.HDX= 003010 IO.SAO= 004000 IS.TAB= 004401 R$$JP1= 000001 T.PCB 000046 IO.HIS= 015000 IO.SCS= 013000 IS.TMO= 000002 R$$K11= 000001 T.PRI 000002 IO.HNG= 003000 IO.SDI= 013000 I$$RAR= 000000 R$$SND= 000000 T.RCVL 000012 IO.INI= 014400 IO.SDO= 012400 I$$RDN= 000000 R$$11M= 000000 T.RRFL 000064 IO.INL= 002400 IO.SEC= 002520 K$$CNT= 177546 R$$6OF= 000000 T.SRCT 000063 IO.ITI= 017000 IO.SET= 000030 K$$CSR= 177546 R$$611= 000001 T.STAT 000032 IO.KIL= 000012 IO.SLO= 005400 K$$IEN= 000115 R.FIX = 000001 T.ST2 000034 LOGCL - GET AND PARSE COMMAND L MACRO M1110 11-APR-78 07:35 PAGE 6-5 SYMBOL TABLE T.ST3 000036 T3.REM= 020000 US.OUT= 000001 U.ST2 000007 W.BATT 000006 T.TCBL 000030 T3.ROV= 000040 US.PUB= 000004 U.UIC = 000052 W.BFPD 000014 T.UCB 000026 T3.RST= 000400 US.PWF= 000010 U.UNIT 000006 W.BHVR 000004 T2.ABO= 000100 T3.SLV= 002000 US.RED= 000002 U.VCB = 000034 W.BLGH 000020 T2.AST= 100000 UC.ALG= 000200 US.SHR= 000001 U2.AT.= 000020 W.BLPD 000016 T2.BFX= 004000 UC.ATT= 000010 US.SPU= 000002 U2.CRT= 002000 W.BLVR 000002 T2.CAF= 000400 UC.KIL= 000004 US.UMD= 000010 U2.DH1= 100000 W.BNPD 000015 T2.CHK= 020000 UC.LGH= 000003 US.WCK= 000010 U2.DJ1= 040000 W.BOFF 000012 T2.CKD= 010000 UC.NPR= 000100 U.ACP = 000032 U2.DZ1= 000100 W.BPCB 000000 T2.DST= 040000 UC.PWF= 000020 U.ATT 000022 U2.ESC= 001000 W.BSIZ 000010 T2.FXD= 002000 UC.QUE= 000040 U.BUF 000024 U2.HLD= 000040 $FDLOG= ****** GX T2.HLT= 000200 US.ABO= 000001 U.CBF = 000032 U2.LOG= 000400 $FNDIR= ****** GX T2.SPN= 000004 US.BSP= 000002 U.CNT 000030 U2.LWC= 000001 $HEADR= ****** GX T2.STP= 000020 US.BSY= 000200 U.CTL 000004 U2.L3S= 000004 $LOGCL 000000RG T2.TIO= 001000 US.CRW= 000004 U.CW1 000010 U2.L8S= 010000 $MSGEN= ****** GX T2.WFR= 000001 US.DSB= 000010 U.CW2 000012 U2.NEC= 004000 $PARFL= ****** GX T3.ACP= 100000 US.ECH= 000002 U.CW3 000014 U2.PRV= 000010 $TIOSB= ****** GX T3.CAL= 000100 US.FOR= 000040 U.CW4 000016 U2.RMT= 020000 $TKTCB= ****** GX T3.CLI= 001000 US.FRK= 000002 U.DCB 000000 U2.R04= 100000 $T$LOG= 000000 T3.MCR= 004000 US.LAB= 000004 U.LUIC 177774 U2.SLV= 000200 $$MSG = 000000 T3.NET= 000020 US.MDE= 000002 U.OWN 177776 U2.VT5= 000002 $$$T1 = 000067 T3.NSD= 000200 US.MDM= 000020 U.RED 000002 U2.7CH= 010000 ...GBL= 000000 T3.PMD= 040000 US.MNT= 000100 U.SCB 000020 V$$CTR= 001000 ...TPC= 000140 T3.PRV= 010000 US.OFL= 000001 U.STS 000005 V$$RSN= 000031 . ABS. 177776 000 000654 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 9778 WORDS ( 39 PAGES) DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES) ELAPSED TIME: 00:00:36 LOGCL,[203,34]LOGCL/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGCL LOGCL CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ABORT = ****** GX 6-49 6-49 6-68 6-68 6-90 6-90 6-107 6-107 6-111 6-111 6-127 6-127 ANYWC = ****** GX 6-105 DEFBUF = ****** GX 6-59 DV.TTY = 000004 6-103 H.CUIC 000010 6-123 IE.EOF = 177766 6-51 LFNB = ****** GX *6-113 *6-114 *6-115 *6-116 *6-117 6-124 6-129 MCRLIN = ****** GX 6-46 6-47 6-49 6-50 M002 = ****** GX 6-68 M003 = ****** GX 6-90 M004 = ****** GX 6-107 M005 = ****** GX 6-111 M006 = ****** GX 6-127 NB.DIR = 000100 6-120 N.DID = 000024 *6-115 *6-116 *6-117 N.DVNM = 000032 *6-113 N.UNIT = 000034 *6-114 PARBUF = ****** GX 6-58 6-63 PARDEV = ****** GX 6-109 6-113 PARFLG = ****** GX 6-105 6-120 PARFNM = ****** GX 6-133 PARUIC = ****** GX 6-119 PARUN = ****** GX 6-109 6-114 PFX = ****** GX 6-68 6-90 6-107 6-111 6-127 PRMT = ****** GX 6-49 TTUCB = ****** GX *6-100 6-102 TTWK = ****** GX 6-85 6-92 6-94 T.UCB 000026 6-81 U.CW1 000010 6-103 U.RED 000002 6-97 6-98 $FDLOG = ****** GX 6-86 $FNDIR = ****** GX 6-125 $HEADR = ****** GX 6-122 $LOGCL 000000 RG #6-46 $MSGEN = ****** GX 6-49 6-68 6-90 6-107 6-111 6-127 $PARFL = ****** GX 6-66 $TIOSB = ****** GX 6-51 $TKTCB = ****** GX 6-80 $$$T1 = 000067 #6-49 6-49 6-49 6-49 #6-68 6-68 6-68 6-68 #6-90 6-90 6-90 6-90 #6-107 6-107 6-107 6-107 #6-111 6-111 6-111 6-111 #6-127 6-127 6-127 6-127 LOGCL CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES ALUN$S #5-35 #6-109 CALL #6-49 #6-66 #6-68 #6-86 #6-90 #6-96 #6-107 #6-111 #6-125 #6-127 DIR$ #5-35 6-47 #6-53 6-53 #6-109 6-109 ERR$ #6-49 #6-49 #6-68 #6-68 #6-90 #6-90 #6-107 #6-107 #6-111 #6-111 #6-127 #6-127 EXIT$S #5-35 6-53 FCSBT$ #5-36 5-44 FDOFF$ #5-42 #5-42 FDOF$L #5-36 5-42 HDRDF$ #5-37 5-41 MOV$ #6-109 6-109 6-109 6-109 MSGN$S #5-35 6-49 6-68 6-90 6-107 6-111 6-127 NBOFF$ #5-43 #5-43 NBOF$L #5-36 #5-43 QIOSY$ #5-36 #5-38 RETURN 6-101 6-138 SOB 6-62 6-136 TCBDF$ #5-36 #5-39 UCBDF$ #5-36 #5-40