LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 4 1 .TITLE LGN - LOG TERMINATOR 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: 4-APRIL-78 15 ; 16 ; MODIFICATIONS: 17 ; 18 ; FUNCTION: STOP LOGGING FOR THE SPECIFIED TERMINAL 19 ; 20 ; INPUT: 21 ; 22 ; COMMAND LINE OF THE FORM: 23 ; 24 ; LGN TERMINAL 25 ; 26 ; OUTPUT: 27 ; 28 ; TERMINATION BUFFER QUEUED TO LOG TASK 29 ; LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 5 31 ; MACRO CALLS AND SYSTEM DEFINITIONS 32 ; 33 .MCALL GMCR$,MSGN$S,DIR$,EXIT$S,WTSE$S 34 .MCALL UCBDF$,TCBDF$,QIOSY$ 35 000000 UCBDF$ ;DEFINE UCB OFFSETS 36 000000 TCBDF$ ;DEFINE TCB OFFSETS 37 000000 QIOSY$ ;DEFINE QIO SYMBOLS LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 6 39 ; MESSAGES 40 ; 41 000000 005 PFX: .BYTE PRMT-PFX-1 42 000001 114 107 116 .ASCII /LGN -/ 000004 040 055 43 000006 004 PRMT: .BYTE M001-PRMT-1 44 000007 114 107 116 .ASCII /LGN>/ 000012 076 45 000013 016 M001: .BYTE M002-M001-1 46 000014 111 116 126 .ASCII /INVALID DEVICE/ 000017 101 114 111 000022 104 040 104 000025 105 126 111 000030 103 105 47 000032 014 M002: .BYTE M003-M002-1 48 000033 123 131 116 .ASCII /SYNTAX ERROR/ 000036 124 101 130 000041 040 105 122 000044 122 117 122 49 000047 043 M003: .BYTE M004-M003-1 50 000050 114 117 107 .ASCII /LOGGING NOT ACTIVE ON THIS TERMINAL/ 000053 107 111 116 000056 107 040 116 000061 117 124 040 000064 101 103 124 000067 111 126 105 000072 040 117 116 000075 040 124 110 000100 111 123 040 000103 124 105 122 000106 115 111 116 000111 101 114 51 000113 031 M004: .BYTE M005-M004-1 52 000114 116 117 124 .ASCII /NOT A PRIVLEDGED TERMINAL/ 000117 040 101 040 000122 120 122 111 000125 126 114 105 000130 104 107 105 000133 104 040 124 000136 105 122 115 000141 111 116 101 000144 114 53 000145 000 M005: .BYTE 0 54 .EVEN LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 7 56 ; CONSTANTS AND WORK AREAS 57 ; 58 000146 MCRLIN: GMCR$ 000146 177 051 .BYTE 127.,41. 59 000270 DVBUF: .BLKW 2 60 61 000001 LEFMSK=1 LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 8 63 000274 016700 000000G $LGN: MOV $TKTCB,R0 ;R0 = A(MY TCB) 64 000300 016001 000026 MOV T.UCB(R0),R1 ;R1 = A(MY TI: UCB) 65 000304 032761 000010 000012 BIT #U2.PRV,U.CW2(R1) ;PRIVLEDGED TERMINAL ? 66 000312 001015 BNE 900$ ;IF NE, YES - CONTINUE 67 000314 MSGN$S PFX,3,M004,,,ABORT ;TERMINAL NOT PRIVLEDGED 000314 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000320 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000322 000003 .WORD 3 ;SEVERITY LEVEL 000324 000113' .IIF NB .WORD M004 ;A(MESSAGE TEXT) 000326 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000332 103002 BCC .+6 000334 004767 000400 JSR PC,ABORT 68 000340 EXIT$S ;EXIT 000340 012746 MOV (PC)+,-(SP) 000342 063 001 .BYTE 51.,1 000344 104377 EMT ^O<377> 69 000346 012700 000150' 900$: MOV #MCRLIN+2,R0 ;R0 = A(COMMAND POSITION IN BUFFER) 70 000352 DIR$ #MCRLIN ;TRY TO GET MCR COMMAND 000352 012746 000146' MOV #MCRLIN,-(SP) 000356 104377 EMT ^O<377> 71 000360 103023 BCC 1100$ ;IF CC, WE GOT ONE - GO PARSE IT 72 000362 1000$: MSGN$S PRMT,0,,MCRLIN+2,79.,ABORT ;PROMPT 000362 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000366 000006' .IIF NB .WORD PRMT ;A(MESSAGE PREFIX) 000370 000000 .WORD 0 ;SEVERITY LEVEL 000372 000000 .IIF B <> .WORD 0 ;NO MESSAGE TEXT 000374 000150' .WORD MCRLIN+2 ;A(REPLY BUFFER) 000376 000117 .WORD 79. ;REPLY LENGTH 000400 103002 BCC .+6 000402 004767 000332 JSR PC,ABORT 73 000406 012700 000150' MOV #MCRLIN+2,R0 ;R0 = A(COMMAND POSITION IN BUFFER) 74 000412 122767 177766 000000G CMPB #IE.EOF,$TIOSB ;CTRL/Z ? 75 000420 001010 BNE 1200$ ;IF NE, NO - CONTINUE 76 000422 EXIT$S ;EXIT 000422 012746 MOV (PC)+,-(SP) 000424 063 001 .BYTE 51.,1 000426 104377 EMT ^O<377> 77 000430 105710 1100$: TSTB (R0) ;EOL ? 78 000432 001403 BEQ 1200$ ;IF EQ, YES - NOTHING TO PARSE 79 000434 122720 000040 CMPB #' ,(R0)+ ;BLANK ? 80 000440 001373 BNE 1100$ ;IF NE, NO - CONTINUE SEARCH 81 000442 122720 000040 1200$: CMPB #' ,(R0)+ ;BLANK ? 82 000446 001775 BEQ 1200$ ;IF EQ, YES - SKIP IT 83 000450 005300 DEC R0 ;R0 = A(FIRST NON BLANK CHARACTER) 84 000452 105710 TSTB (R0) ;EOL ? 85 000454 001005 BNE 1400$ ;IF NE, NO - PARSE TERMINAL 86 000456 016700 000000G 1300$: MOV $TKTCB,R0 ;R0 = A(MY TCB) 87 000462 016001 000026 MOV T.UCB(R0),R1 ;R1 = A(TI: UCB) 88 000466 000444 BR 1800$ ;CONTINUE 89 000470 012703 000270' 1400$: MOV #DVBUF,R3 ;R3 = A(PARSE BUFFER) 90 000474 CALL $FDLOG ;PARSE THE TERMINAL 000474 004767 000000G JSR PC,$FDLOG 91 000500 103030 BCC 1700$ ;IF CC, NO ERRORS - CONTINUE 92 000502 005703 TST R3 ;SYNTAX ERROR ? 93 000504 001413 BEQ 1600$ ;IF EQ, YES 94 000506 1500$: MSGN$S PFX,3,M001,,,ABORT ;INVALID DEVICE 000506 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 8-1 000512 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000514 000003 .WORD 3 ;SEVERITY LEVEL 000516 000013' .IIF NB .WORD M001 ;A(MESSAGE TEXT) 000520 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000524 103002 BCC .+6 000526 004767 000206 JSR PC,ABORT 95 000532 000713 BR 1000$ ;FORCE PROMPT 96 000534 1600$: MSGN$S PFX,3,M002,,,ABORT ;SYNTAX ERROR 000534 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000540 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000542 000003 .WORD 3 ;SEVERITY LEVEL 000544 000032' .IIF NB .WORD M002 ;A(MESSAGE TEXT) 000546 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000552 103002 BCC .+6 000554 004767 000160 JSR PC,ABORT 97 000560 000700 BR 1000$ ;FORCE PROMPT 98 000562 022767 044524 177500 1700$: CMP #"TI,DVBUF ;IS DEVICE TI: 99 000570 001003 BNE 1800$ ;IF NE, NO 100 000572 005767 177474 TST DVBUF+2 ;UNIT = 0 101 000576 001727 BEQ 1300$ ;IF EQ, YES - GO FIND TI0: 102 000600 1800$: CALL $SWSTK,2000$ ;SWITCH TO SYSTEM STACK 000600 104376 EMT 376 000602 000624' .WORD 2000$ 103 000604 016101 000002 1900$: MOV U.RED(R1),R1 ;FOLLOW THE REDIRECT CHAIN 104 000610 026101 000002 CMP U.RED(R1),R1 ;END OF CHAIN ? 105 000614 001373 BNE 1900$ ;IF NE, NO - CONTINUE SEARCH 106 000616 010167 177446 MOV R1,DVBUF ;DVBUF = A(TERMINAL UCB) 107 000622 RETURN ;RETURN TO USER STACK 000622 000207 RTS PC 108 000624 016705 177440 2000$: MOV DVBUF,R5 ;R5 = A(UCB) 109 000630 032765 000004 000010 BIT #DV.TTY,U.CW1(R5) ;VALID DEVICE ? 110 000636 001723 BEQ 1500$ ;IF EQ, NO 111 000640 005765 000000G TST TTLOG(R5) ;IS LOGGING ACTIVE ? 112 000644 001015 BNE 2100$ ;IF NE, YES 113 000646 MSGN$S PFX,1,M003,,,ABORT ;LOGGING NOT ACTIVE 000646 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000652 000000' .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000654 000001 .WORD 1 ;SEVERITY LEVEL 000656 000047' .IIF NB .WORD M003 ;A(MESSAGE TEXT) 000660 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000664 103002 BCC .+6 000666 004767 000046 JSR PC,ABORT 114 000672 EXIT$S ;EXIT 000672 012746 MOV (PC)+,-(SP) 000674 063 001 .BYTE 51.,1 000676 104377 EMT ^O<377> 115 000700 2100$: CALL $SWSTK,2300$ ;SWITCH TO SYSTEM STACK 000700 104376 EMT 376 000702 000732' .WORD 2300$ 116 000704 016500 000000G MOV TTLOG(R5),R0 ;R0 = A(LOG TASK TCB) 117 000710 005065 000000G CLR TTLOG(R5) ;TURN OFF LOGGING 118 000714 052760 000001 000022 BIS #LEFMSK,T.EFLG(R0) ;SET LOG TASK EVENT FLAG 119 000722 016767 000000G 000000G MOV $ACTHD,$RQSCH ;DECLARE SIGNIFICANT EVENT 120 000730 RETURN ;RETURN TO USER STACK 000730 000207 RTS PC 121 000732 2300$: EXIT$S ;EXIT 000732 012746 MOV (PC)+,-(SP) LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 8-2 000734 063 001 .BYTE 51.,1 000736 104377 EMT ^O<377> 122 000740 000000 ABORT: HALT ;ABORT THE TASK 123 000274' .END $LGN LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 8-3 SYMBOL TABLE ABORT 000740R IE.BLK= 177754 IE.NNC= 177663 IO.CIN= 016500 IO.MDA= 016000 A$$CHK= 000000 IE.BNM= 177712 IE.NNL= 177662 IO.CLK= 015000 IO.MDI= 014400 A$$CPS= 000000 IE.BTF= 177664 IE.NNN= 177674 IO.CLN= 003400 IO.MDO= 015400 A$$NSI= 000000 IE.BTP= 177725 IE.NOD= 177751 IO.CNT= 017000 IO.MLO= 006000 A$$PRI= 000000 IE.BVR= 177701 IE.NSF= 177746 IO.CON= 015400 IO.MOD= 003000 A$$TRP= 000000 IE.BYT= 177755 IE.NST= 177660 IO.CPR= 015410 IO.MSO= 005000 C$$CDA= 000005 IE.CKP= 177766 IE.NSW= 177756 IO.CPW= 016520 IO.NLB= 016530 C$$CKP= 000000 IE.CKS= 177742 IE.NVR= 177652 IO.CRC= 001040 IO.NLK= 011400 C$$CSR= 000000 IE.CLO= 177732 IE.NVW= 177651 IO.CRE= 012000 IO.ONL= 017400 C$$ORE= 002000 IE.CNR= 177667 IE.OFL= 177677 IO.CRJ= 015440 IO.RAD= 010400 C$$RSH= 177564 IE.CON= 177752 IE.ONP= 177773 IO.CSI= 013000 IO.RAL= 001010 C$$RTO= 000017 IE.DAA= 177770 IE.OVR= 177756 IO.CSM= 016470 IO.RAT= 013000 C$$RUN= 000000 IE.DAO= 177763 IE.PES= 177655 IO.CTI= 015400 IO.RBC= 003000 C$$R11= 000001 IE.DFU= 177750 IE.PNS= 177642 IO.CTL= 016400 IO.RCI= 015000 C$$TTY= 177564 IE.DNA= 177771 IE.PRI= 177760 IO.CTR= 015610 IO.RCV= 015000 DVBUF 000270R IE.DNR= 177775 IE.PTS= 177775 IO.CTY= 003400 IO.RDB= 001200 DV.CCL= 000002 IE.DUN= 177767 IE.RAC= 177724 IO.DAC= 010000 IO.RDD= 010010 DV.COM= 020000 IE.DUP= 177707 IE.RAT= 177723 IO.DCI= 014400 IO.RDN= 000022 DV.DIR= 000010 IE.EOF= 177766 IE.RBG= 177730 IO.DEL= 012400 IO.REL= 013400 DV.F11= 040000 IE.EOT= 177702 IE.RBS= 177761 IO.DET= 002000 IO.RHD= 001010 DV.ISP= 002000 IE.EOV= 177765 IE.RCN= 177722 IO.DIS= 016000 IO.RLB= 001000 DV.MNT= 100000 IE.EXP= 177665 IE.RER= 177740 IO.DLB= 016540 IO.RLV= 001100 DV.MXD= 000100 IE.FEX= 177717 IE.RNM= 177715 IO.DSI= 013400 IO.RMT= 010020 DV.OSP= 004000 IE.FHE= 177705 IE.RSU= 177757 IO.DTI= 016000 IO.RNA= 005400 DV.PSE= 010000 IE.FIX= 177767 IE.SDP= 177635 IO.DTY= 006400 IO.RNC= 001040 DV.REC= 000001 IE.FLN= 177657 IE.SNC= 177735 IO.ENA= 006000 IO.RNE= 001020 DV.SDI= 000020 IE.FOP= 177713 IE.SPC= 177772 IO.EOF= 003000 IO.RNS= 001020 DV.SQD= 000040 IE.HFU= 177744 IE.SQC= 177734 IO.EXT= 011400 IO.RPB= 001040 DV.SWL= 001000 IE.HWR= 177772 IE.SRE= 177762 IO.FDX= 003020 IO.RPR= 004400 DV.TTY= 000004 IE.IBS= 177647 IE.STK= 177706 IO.FLN= 012400 IO.RST= 001001 DV.UMD= 000200 IE.IDU= 177644 IE.TCH= 177765 IO.FNA= 004400 IO.RTC= 003400 D$$ISK= 000000 IE.IEF= 177637 IE.TMM= 177671 IO.GLC= 016430 IO.RTI= 016400 D$$L11= 000002 IE.IES= 177656 IE.TMO= 177666 IO.GLI= 016420 IO.RTK= 000060 D$$YNC= 000000 IE.IFC= 177776 IE.ULK= 177653 IO.GNI= 016410 IO.RTM= 001200 D$$YNM= 000000 IE.IFU= 177747 IE.ULN= 177773 IO.GRC= 016450 IO.RVB= 010400 E$$XPR= 000000 IE.ILL= 177726 IE.UNS= 177774 IO.GRI= 016440 IO.RWD= 002400 F$$LVL= 000001 IE.ILU= 177640 IE.UPN= 177777 IO.GRN= 016460 IO.RWU= 002540 G$$TPP= 000000 IE.ILV= 177755 IE.VER= 177774 IO.GTS= 002400 IO.R1C= 002400 G$$TSS= 000000 IE.INS= 177776 IE.WAC= 177743 IO.HDX= 003010 IO.SAO= 004000 G$$TTK= 000000 IE.IOP= 177655 IE.WAT= 177741 IO.HIS= 015000 IO.SCS= 013000 G.MCRB= 000002 IE.IPR= 177641 IE.WCK= 177652 IO.HNG= 003000 IO.SDI= 013000 H$$RTZ= 000074 IE.ISQ= 177703 IE.WER= 177737 IO.INI= 014400 IO.SDO= 012400 IE.ABO= 177761 IE.ITI= 177643 IE.WLK= 177764 IO.INL= 002400 IO.SEC= 002520 IE.ACT= 177771 IE.ITP= 177650 IE.WOV= 177653 IO.ITI= 017000 IO.SET= 000030 IE.ADP= 177636 IE.ITS= 177770 IE.2DV= 177720 IO.KIL= 000012 IO.SLO= 005400 IE.ALC= 177654 IE.IUI= 177645 IO.ACE= 007400 IO.LDI= 007000 IO.SMO= 002560 IE.ALG= 177654 IE.LCK= 177745 IO.ACR= 006400 IO.LED= 012000 IO.SPB= 002420 IE.ALN= 177736 IE.LNL= 177646 IO.ACW= 007000 IO.LEI= 007410 IO.SPF= 002440 IE.AST= 177660 IE.MAP= 177657 IO.ADS= 014000 IO.LKE= 012000 IO.SPW= 016510 IE.BAD= 177777 IE.MOD= 177753 IO.APC= 014000 IO.LOD= 014000 IO.SSO= 004400 IE.BBE= 177710 IE.NBF= 177731 IO.APV= 014010 IO.LOV= 001010 IO.STA= 015400 IE.BCC= 177676 IE.NBK= 177727 IO.ATA= 001410 IO.LSI= 011000 IO.STC= 002500 IE.BDI= 177714 IE.NDR= 177670 IO.ATT= 001400 IO.LTI= 007400 IO.STP= 016400 IE.BDR= 177716 IE.NFI= 177704 IO.CAS= 015420 IO.LTK= 000050 IO.SYN= 003040 IE.BDV= 177711 IE.NFW= 177673 IO.CBO= 015510 IO.LTY= 010000 IO.TRM= 002410 IE.BHD= 177700 IE.NLK= 177661 IO.CCI= 014000 IO.MAO= 003410 IO.UDI= 011410 IE.BLB= 177672 IE.NLN= 177733 IO.CCO= 000440 IO.MCS= 013400 IO.UEI= 011450 LGN - LOG TERMINATOR MACRO M1110 11-APR-78 07:37 PAGE 8-4 SYMBOL TABLE IO.UER= 011440 K$$TPS= 000074 T$$CTR= 000000 T3.ACP= 100000 U.CW1 000010 IO.ULK= 005000 LEFMSK= 000001 T$$J16= 000001 T3.CAL= 000100 U.CW2 000012 IO.UNL= 000042 L$$ASG= 000000 T$$KMG= 000000 T3.CLI= 001000 U.CW3 000014 IO.USI= 011460 L$$PTO= 000017 T$$LWC= 000000 T3.MCR= 004000 U.CW4 000016 IO.UTI= 011420 L$$P11= 000001 T$$RNE= 000000 T3.NET= 000020 U.DCB 000000 IO.UTY= 011430 MCRLIN 000146R T$$RPR= 000000 T3.NSD= 000200 U.LUIC 177774 IO.WAL= 000410 M$$CRB= 000124 T$$RUB= 000000 T3.PMD= 040000 U.OWN 177776 IO.WAT= 013400 M$$CRX= 000000 T$$SYN= 000000 T3.PRV= 010000 U.RED 000002 IO.WBT= 000500 M$$FCS= 000000 T$$TRW= 000000 T3.REM= 020000 U.SCB 000020 IO.WDD= 000444 M$$MGE= 000000 T$$VBF= 000000 T3.ROV= 000040 U.STS 000005 IO.WLB= 000400 M$$OVR= 000000 T.ACTL 000052 T3.RST= 000400 U.ST2 000007 IO.WLC= 000420 M001 000013R T.ASTL 000016 T3.SLV= 002000 U.UIC = 000052 IO.WLS= 000410 M002 000032R T.ATT 000054 UC.ALG= 000200 U.UNIT 000006 IO.WLT= 000410 M003 000047R T.CPCB 000004 UC.ATT= 000010 U.VCB = 000034 IO.WLV= 000500 M004 000113R T.DPRI 000040 UC.KIL= 000004 U2.AT.= 000020 IO.WMS= 000420 M005 000145R T.EFLG 000022 UC.LGH= 000003 U2.CRT= 002000 IO.WNS= 000420 N$$LDV= 000001 T.IOC 000003 UC.NPR= 000100 U2.DH1= 100000 IO.WPB= 000440 N$$MOV= 000041 T.LBN 000041 UC.PWF= 000020 U2.DJ1= 040000 IO.WVB= 011000 PFX 000000R T.LDV 000044 UC.QUE= 000040 U2.DZ1= 000100 IO.XMT= 014400 PRMT 000006R T.LNK 000000 US.ABO= 000001 U2.ESC= 001000 IO.XNA= 014410 P$$RFL= 000000 T.MXSZ 000050 US.BSP= 000002 U2.HLD= 000040 IQ.Q = 000002 P$$RTY= 000000 T.NAM 000006 US.BSY= 000200 U2.LOG= 000400 IQ.S = 000004 Q$$OPT= 000005 T.OFF 000060 US.CRW= 000004 U2.LWC= 000001 IQ.UMD= 000004 R$$JPO= 000000 T.PCB 000046 US.DSB= 000010 U2.L3S= 000004 IQ.X = 000001 R$$JP1= 000001 T.PRI 000002 US.ECH= 000002 U2.L8S= 010000 IS.BV = 000005 R$$K11= 000001 T.RCVL 000012 US.FOR= 000040 U2.NEC= 004000 IS.CC = 001401 R$$SND= 000000 T.RRFL 000064 US.FRK= 000002 U2.PRV= 000010 IS.CLR= 000000 R$$11M= 000000 T.SRCT 000063 US.LAB= 000004 U2.RMT= 020000 IS.CR = 006401 R$$6OF= 000000 T.STAT 000032 US.MDE= 000002 U2.R04= 100000 IS.EOT= 002001 R$$611= 000001 T.ST2 000034 US.MDM= 000020 U2.SLV= 000200 IS.ESC= 015401 S$$ECC= 000000 T.ST3 000036 US.MNT= 000100 U2.VT5= 000002 IS.ESQ= 115401 S$$YSZ= 007600 T.TCBL 000030 US.OFL= 000001 U2.7CH= 010000 IS.PES= 100001 TS.BLK= 170700 T.UCB 000026 US.OUT= 000001 V$$CTR= 001000 IS.PND= 000000 TS.CKP= 000200 T2.ABO= 000100 US.PUB= 000004 V$$RSN= 000031 IS.RDD= 000002 TS.CKR= 000100 T2.AST= 100000 US.PWF= 000010 $ACTHD= ****** GX IS.SET= 000002 TS.EXE= 100000 T2.BFX= 004000 US.RED= 000002 $FDLOG= ****** GX IS.SPD= 000002 TS.MSG= 020000 T2.CAF= 000400 US.SHR= 000001 $LGN 000274R IS.SUC= 000001 TS.NRP= 010000 T2.CHK= 020000 US.SPU= 000002 $MSGEN= ****** GX IS.TAB= 004401 TS.OUT= 000400 T2.CKD= 010000 US.UMD= 000010 $RQSCH= ****** GX IS.TMO= 000002 TS.RDN= 040000 T2.DST= 040000 US.WCK= 000010 $TIOSB= ****** GX I$$RAR= 000000 TS.RUN= 004000 T2.FXD= 002000 U.ACP = 000032 $TKTCB= ****** GX I$$RDN= 000000 TTLOG = ****** GX T2.HLT= 000200 U.ATT 000022 $T$LOG= 000000 K$$CNT= 177546 T$$ACR= 000000 T2.SPN= 000004 U.BUF 000024 $$MSG = 000000 K$$CSR= 177546 T$$BTW= 000000 T2.STP= 000020 U.CBF = 000032 $$$OST= 000122 K$$IEN= 000115 T$$BUF= 000000 T2.TIO= 001000 U.CNT 000030 $$$T1 = 000067 K$$LDC= 000001 T$$CCO= 000000 T2.WFR= 000001 U.CTL 000004 ...GBL= 000000 . ABS. 177776 000 000742 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 6643 WORDS ( 26 PAGES) DYNAMIC MEMORY: 7948 WORDS ( 30 PAGES) ELAPSED TIME: 00:00:32 LGN,[203,34]LGN/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LGN LGN CREATED BY MACRO ON 11-APR-78 AT 07:37 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ABORT 000740 R 8-67 8-67 8-72 8-72 8-94 8-94 8-96 8-96 8-113 8-113 #8-122 DVBUF 000270 R #7-59 8-89 8-98 8-100 *8-106 8-108 DV.TTY = 000004 8-109 G.MCRB = 000002 7-58 IE.EOF = 177766 8-74 LEFMSK = 000001 #7-61 8-118 MCRLIN 000146 R #7-58 8-69 8-70 8-72 8-73 M001 000013 R 6-43 #6-45 6-45 8-94 M002 000032 R 6-45 #6-47 6-47 8-96 M003 000047 R 6-47 #6-49 6-49 8-113 M004 000113 R 6-49 #6-51 6-51 8-67 M005 000145 R 6-51 #6-53 PFX 000000 R #6-41 6-41 8-67 8-94 8-96 8-113 PRMT 000006 R 6-41 #6-43 6-43 8-72 TTLOG = ****** GX 8-111 8-116 *8-117 T.EFLG 000022 *8-118 T.UCB 000026 8-64 8-87 U.CW1 000010 8-109 U.CW2 000012 8-65 U.RED 000002 8-103 8-104 U2.PRV = 000010 8-65 $ACTHD = ****** GX 8-119 $FDLOG = ****** GX 8-90 $LGN 000274 R #8-63 8-123 $MSGEN = ****** GX 8-67 8-72 8-94 8-96 8-113 $RQSCH = ****** GX *8-119 $TIOSB = ****** GX 8-74 $TKTCB = ****** GX 8-63 8-86 $$$GLB = ****** 7-58 $$$T1 = 000067 #8-67 8-67 8-67 8-67 #8-72 8-72 8-72 8-72 #8-94 8-94 8-94 8-94 #8-96 8-96 8-96 8-96 #8-113 8-113 8-113 8-113 LGN CREATED BY MACRO ON 11-APR-78 AT 07:37 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES CALL #8-67 #8-72 #8-90 #8-94 #8-96 #8-102 #8-113 #8-115 DIR$ #5-33 #8-68 8-68 8-70 #8-76 8-76 #8-114 8-114 #8-121 8-121 ERR$ #8-67 8-67 #8-72 8-72 #8-94 8-94 #8-96 8-96 #8-113 8-113 EXIT$S #5-33 8-68 8-76 8-114 8-121 GMCR$ #5-33 7-58 MSGN$S #5-33 8-67 8-72 8-94 8-96 8-113 OFF$ #7-58 QIOSY$ #5-34 5-37 RETURN 8-107 8-120 TCBDF$ #5-34 5-36 UCBDF$ #5-34 5-35 WTSE$S #5-33