LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 4 1 .TITLE LOGDA - IMPURE DATA AREAS 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: IMPURE DATA AREAS 19 ; LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 5 21 ; MACRO CALLS AND SYSTEM DEFINITIONS. 22 ; 23 .MCALL FDBDF$,FDAT$A,FDRC$A,FDBK$A,FDOP$A,FSRSZ$A,NMBLK$A,NBOF$L 24 .MCALL FDOF$L,FCSBT$ 25 .MCALL GMCR$ 26 000000 NBOF$L ;DEFINE FNB OFFSETS 27 000000 FDOF$L ;DEFINE FDB OFFSETS 28 000000 FCSBT$ ;DEFINE FCS BITS LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 6 30 ; LOG FILE DEFINITION 31 ; 32 000000 LOGFL:: FDBDF$ 33 000140 FDAT$A R.FIX,,512.,-25.,-25. 000000 001 .BYTE R.FIX 000002 001000 .WORD 512. 000034 177747 .WORD -25. 000040 177747 .WORD -25. 34 000140 FDRC$A FD.RWM 000016 001 .BYTE FD.RWM 35 000140 FDBK$A ,512.,,2,LIOSB 000020 001000 .WORD 512. 000050 002 .BYTE 2 000024 000140' .WORD LIOSB 36 000140 FDOP$A 2,,LFNB,FO.WRT,FA.ENB!FA.RWD!20. 000042 002 .BYTE 2 000046 000102' .WORD LFNB 000043 016 .BYTE FO.WRT 000076 104024 .WORD FA.ENB!FA.RWD!20. 37 000140 FSRSZ$ 0 38 000102' LFNB==LOGFL+F.FNB 39 000140 000001 000000 LIOSB:: .WORD 1,0 ;LOG FILE IOSB 40 000144 000150' CURBUF::.WORD LBUF1 ;A(CURRENT LOG FILE BUFFER) 41 000146 001150' NXTBUF::.WORD LBUF2 ;A(NEXT LOG FILE BUFFER) 42 000150 LBUF1:: .BLKW 256. ;LOG FILE BUFFER 43 001150 LBUF2:: .BLKW 256. ;LOG FILE BUFFER LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 7 45 ; MESSAGES 46 ; 47 002150 005 PFX:: .BYTE PRMT-PFX-1 48 002151 114 117 107 .ASCII /LOG -/ 002154 040 055 49 002156 004 PRMT:: .BYTE M001-PRMT-1 50 002157 114 117 107 .ASCII /LOG>/ 002162 076 51 002163 031 M001:: .BYTE M002-M001-1 52 002164 116 117 124 .ASCII /NOT A PRIVLEDGED TERMINAL/ 002167 040 101 040 002172 120 122 111 002175 126 114 105 002200 104 107 105 002203 104 040 124 002206 105 122 115 002211 111 116 101 002214 114 53 002215 014 M002:: .BYTE M003-M002-1 54 002216 123 131 116 .ASCII /SYNTAX ERROR/ 002221 124 101 130 002224 040 105 122 002227 122 117 122 55 002232 016 M003:: .BYTE M004-M003-1 56 002233 111 116 126 .ASCII /INVALID DEVICE/ 002236 101 114 111 002241 104 040 104 002244 105 126 111 002247 103 105 57 002251 036 M004:: .BYTE M005-M004-1 58 002252 111 116 126 .ASCII /INVALID LOG FILE SPECIFICATION/ 002255 101 114 111 002260 104 040 114 002263 117 107 040 002266 106 111 114 002271 105 040 123 002274 120 105 103 002277 111 106 111 002302 103 101 124 002305 111 117 116 59 002310 022 M005:: .BYTE M006-M005-1 60 002311 111 116 126 .ASCII /INVALID LOG DEVICE/ 002314 101 114 111 002317 104 040 114 002322 117 107 040 002325 104 105 126 002330 111 103 105 61 002333 027 M006:: .BYTE M007-M006-1 62 002334 105 122 122 .ASCII /ERROR FINDING DIRECTORY/ 002337 117 122 040 002342 106 111 116 002345 104 111 116 002350 107 040 104 002353 111 122 105 002356 103 124 117 002361 122 131 63 002363 025 M007:: .BYTE M008-M007-1 LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 7-1 64 002364 111 055 117 .ASCII /I-O ERROR ON LOG FILE/ 002367 040 105 122 002372 122 117 122 002375 040 117 116 002400 040 114 117 002403 107 040 106 002406 111 114 105 65 002411 026 M008:: .BYTE M009-M008-1 66 002412 105 122 122 .ASCII /ERROR CLOSING LOG FILE/ 002415 117 122 040 002420 103 114 117 002423 123 111 116 002426 107 040 114 002431 117 107 040 002434 106 111 114 002437 105 67 002440 073 M009:: .BYTE M010-M009-1 68 002441 111 117 123 .ASCII /IOSB = / 002444 102 040 075 002447 040 69 002450 040 040 040 M009I:: .ASCII / / 002453 040 040 040 002456 040 040 70 002460 106 104 102 .ASCII /FDB ERROR TYPE = / 002463 040 105 122 002466 122 117 122 002471 040 124 131 002474 120 105 040 002477 075 040 71 002501 040 040 M009T:: .ASCII / / 72 002503 106 104 102 .ASCII /FDB ERROR CODE = / 002506 040 105 122 002511 122 117 122 002514 040 103 117 002517 104 105 040 002522 075 040 73 002524 040 040 040 M009F:: .ASCII / / 002527 040 040 040 002532 040 040 74 002534 015 M010:: .BYTE M011-M010-1 75 002535 114 117 107 .ASCII /LOGGING EDDED/ 002540 107 111 116 002543 107 040 105 002546 104 104 105 002551 104 76 002552 023 M011:: .BYTE M012-M011-1 77 002553 114 117 107 .ASCII /LOG FILE OPEN ERROR/ 002556 040 106 111 002561 114 105 040 002564 117 120 105 002567 116 040 105 002572 122 122 117 002575 122 78 002576 000 M012:: .BYTE 0 79 .EVEN LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 8 81 ; CONSTANTS AND WORK AREAS 82 ; 83 002600 MCRLIN::GMCR$ ;COMMAND BUFFER 002600 177 051 .BYTE 127.,41. 84 002722 PARBUF:: ;PARSE BUFFER 85 002722 040 040 PARDEV::.ASCII / / ;DEVICE NAME 86 002724 000000 PARUN:: .WORD 0 ;UNIT NUMBER 87 002726 000 000 PARUIC::.BYTE 0,0 ;UIC 88 002730 000000 000000 000000 PARFNM::.RAD50 / / ;FILE NAME 89 002736 000000 PARTYP::.RAD50 / / ;FILE TYPE 90 002740 000000 PARVER::.WORD 0 ;FILE VERSION NUMBER 91 002742 000000 PARFLG::.WORD 0 ;PARSE (FNB) FLAGS 92 002744 123 131 DEFBUF::.ASCII /SY/ ;LOG FILE DEFAULTS 93 002746 000000 .WORD 0 94 002750 000 000 .BYTE 0,0 95 002752 100054 057330 000000 .RAD50 /TTLOG LOG/ 002760 046537 96 002762 000000 .WORD 0 97 002764 124 111 072 TIDEF:: .ASCII /TI: / ;TERMINAL DEFAULT 002767 040 98 .EVEN 99 002770 000000 TTUCB:: .WORD 0 ;A(UCB OF TERMINAL BEING LOGGED) 100 002772 000000 LOGLST::.WORD 0 ;A(LOG QUEUE LISTHEAD) 101 002774 000 FNBYT:: .BYTE 0 102 002775 000 CHAR:: .BYTE 0 103 .EVEN 104 002776 000000 LOGBUF::.WORD 0 ;A(LOG BUFFER) 105 003000 000000 LINCNT::.WORD 0 ;LINE COUNT 106 003002 TTWK:: .BLKW 3 LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 9 108 ; SYMBOL DEFINITIONS 109 ; 110 001470 ANYWC==NB.SVR!NB.STP!NB.SNM!NB.SD1!NB.SD2 111 000001 .END LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 9-1 SYMBOL TABLE ANYWC = 001470 G FD.PLC= 000004 F.HIBK= 000004 M$$OVR= 000000 P$$RTY= 000000 A$$CHK= 000000 FD.PRN= 000004 F.LUN = 000042 M001 002163RG Q$$OPT= 000005 A$$CPS= 000000 FD.PSE= 010000 F.MBCT= 000054 M002 002215RG R$$JPO= 000000 A$$NSI= 000000 FD.RAH= 000001 F.MBC1= 000055 M003 002232RG R$$JP1= 000001 A$$PRI= 000000 FD.RAN= 000002 F.MBFG= 000056 M004 002251RG R$$K11= 000001 A$$TRP= 000000 FD.REC= 000001 F.NRBD= 000024 M005 002310RG R$$SND= 000000 CHAR 002775RG FD.RWM= 000001 F.NREC= 000030 M006 002333RG R$$11M= 000000 CH.AND= 000001 FD.SDI= 000020 F.OVBS= 000030 M007 002363RG R$$6OF= 000000 CURBUF 000144RG FD.SQD= 000040 F.RACC= 000016 M008 002411RG R$$611= 000001 C$$CDA= 000005 FD.TTY= 000004 F.RATT= 000001 M009 002440RG R.FIX = 000001 C$$CKP= 000000 FD.WBH= 000002 F.RCNM= 000034 M009F 002524RG R.SEQ = 000003 C$$CSR= 000000 FF.CHR= 000005 F.RCTL= 000017 M009I 002450RG R.VAR = 000002 C$$ORE= 002000 FF.NV = 000003 F.RSIZ= 000002 M009T 002501RG S$$ECC= 000000 C$$RSH= 177564 FF.POE= 000002 F.RTYP= 000000 M010 002534RG S$$YSZ= 007600 C$$RTO= 000017 FF.RWD= 000001 F.SEQN= 000100 M011 002552RG S.BFHD= 000020 C$$RUN= 000000 FF.RWF= 000006 F.SPDV= 000072 M012 002576RG S.FATT= 000016 C$$R11= 000001 FF.SPC= 000004 F.SPUN= 000074 NB.DEV= 000200 S.FDB = 000140 C$$TTY= 177564 FNBYT 002774RG F.STBK= 000036 NB.DIR= 000100 S.FNAM= 000006 DEFBUF 002744RG FO.APD= 000106 F.UNIT= 000136 NB.NAM= 000004 S.FNB = 000036 D$$ISK= 000000 FO.MFY= 000002 F.URBD= 000020 NB.SD1= 000400 S.FNBW= 000017 D$$L11= 000002 FO.RD = 000001 F.VBN = 000064 NB.SD2= 001000 S.FNTY= 000004 D$$YNC= 000000 FO.UPD= 000006 F.VBSZ= 000060 NB.SNM= 000040 S.FTYP= 000002 D$$YNM= 000000 FO.WRT= 000016 G$$TPP= 000000 NB.STP= 000020 S.NFEN= 000020 E$$XPR= 000000 F$$LVL= 000001 G$$TSS= 000000 NB.SVR= 000010 TIDEF 002764RG FA.APD= 000100 F.ACTL= 000076 G$$TTK= 000000 NB.TYP= 000002 TTUCB 002770RG FA.CRE= 000010 F.ALOC= 000040 G.MCRB= 000002 NB.VER= 000001 TTWK 003002RG FA.DLK= 001000 F.BBFS= 000062 H$$RTZ= 000074 NXTBUF 000146RG T$$ACR= 000000 FA.ENB= 100000 F.BDB = 000070 I$$RAR= 000000 N$$LDV= 000001 T$$BTW= 000000 FA.EXC= 002000 F.BGBC= 000057 I$$RDN= 000000 N$$MOV= 000041 T$$BUF= 000000 FA.EXT= 000004 F.BKDN= 000026 K$$CNT= 177546 N.DID = 000024 T$$CCO= 000000 FA.NSP= 000100 F.BKDS= 000020 K$$CSR= 177546 N.DVNM= 000032 T$$CTR= 000000 FA.POS= 010000 F.BKEF= 000050 K$$IEN= 000115 N.FID = 000000 T$$J16= 000001 FA.RD = 000001 F.BKP1= 000051 K$$LDC= 000001 N.FNAM= 000006 T$$KMG= 000000 FA.RWD= 004000 F.BKST= 000024 K$$TPS= 000074 N.FTYP= 000014 T$$LWC= 000000 FA.SEQ= 040000 F.BKVB= 000064 LBUF1 000150RG N.FVER= 000016 T$$RNE= 000000 FA.SHR= 000040 F.CHR = 000075 LBUF2 001150RG N.NEXT= 000022 T$$RPR= 000000 FA.TMP= 000020 F.CNTG= 000034 LFNB = 000102RG N.STAT= 000020 T$$RUB= 000000 FA.WCK= 020000 F.DFNB= 000046 LINCNT 003000RG N.UNIT= 000034 T$$SYN= 000000 FA.WRT= 000002 F.DSPT= 000044 LIOSB 000140RG PARBUF 002722RG T$$TRW= 000000 FD.BLK= 000010 F.DVNM= 000134 LOGBUF 002776RG PARDEV 002722RG T$$VBF= 000000 FD.CCL= 000002 F.EFBK= 000010 LOGFL 000000RG PARFLG 002742RG V$$CTR= 001000 FD.COM= 020000 F.EFN = 000050 LOGLST 002772RG PARFNM 002730RG V$$RSN= 000031 FD.CR = 000002 F.EOBB= 000032 L$$ASG= 000000 PARTYP 002736RG $T$LOG= 000000 FD.DIR= 000010 F.ERR = 000052 L$$PTO= 000017 PARUIC 002726RG $$$OST= 000122 FD.FTN= 000001 F.FACC= 000043 L$$P11= 000001 PARUN 002724RG .FSRCB= ****** G FD.F11= 040000 F.FFBY= 000014 MCRLIN 002600RG PARVER 002740RG ...GBL= 000000 FD.INS= 000010 F.FNAM= 000110 M$$CRB= 000124 PFX 002150RG ...PC1= 000000R FD.ISP= 002000 F.FNB = 000102 M$$CRX= 000000 PRMT 002156RG ...PC2= 000140R FD.MNT= 100000 F.FTYP= 000116 M$$FCS= 000000 P$$RFL= 000000 ...TPC= 000020 FD.OSP= 004000 F.FVER= 000120 M$$MGE= 000000 . ABS. 000000 000 003010 001 $$FSR1 000000 002 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 4693 WORDS ( 19 PAGES) DYNAMIC MEMORY: 5836 WORDS ( 22 PAGES) LOGDA - IMPURE DATA AREAS MACRO M1110 11-APR-78 07:34 PAGE 9-2 SYMBOL TABLE ELAPSED TIME: 00:00:22 LOGDA,[203,34]LOGDA/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGDA LOGDA CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ANYWC = 001470 G #9-110 CHAR 002775 RG #8-102 CURBUF 000144 RG #6-40 DEFBUF 002744 RG #8-92 FA.ENB = 100000 6-36 FA.RWD = 004000 6-36 FD.RWM = 000001 6-34 FNBYT 002774 RG #8-101 FO.WRT = 000016 6-36 F.ACTL = 000076 6-36 F.ALOC = 000040 6-33 F.BKDS = 000020 6-35 F.BKEF = 000050 6-35 F.BKST = 000024 6-35 F.CNTG = 000034 6-33 F.DFNB = 000046 6-36 F.FACC = 000043 6-36 F.FNB = 000102 6-38 F.LUN = 000042 6-36 F.RACC = 000016 6-34 F.RSIZ = 000002 6-33 F.RTYP = 000000 6-33 G.MCRB = 000002 8-83 LBUF1 000150 RG 6-40 #6-42 LBUF2 001150 RG 6-41 #6-43 LFNB = 000102 RG 6-36 #6-38 LINCNT 003000 RG #8-105 LIOSB 000140 RG 6-35 #6-39 LOGBUF 002776 RG #8-104 LOGFL 000000 RG #6-32 6-38 LOGLST 002772 RG #8-100 MCRLIN 002600 RG #8-83 M001 002163 RG 7-49 #7-51 7-51 M002 002215 RG 7-51 #7-53 7-53 M003 002232 RG 7-53 #7-55 7-55 M004 002251 RG 7-55 #7-57 7-57 M005 002310 RG 7-57 #7-59 7-59 M006 002333 RG 7-59 #7-61 7-61 M007 002363 RG 7-61 #7-63 7-63 M008 002411 RG 7-63 #7-65 7-65 M009 002440 RG 7-65 #7-67 7-67 M009F 002524 RG #7-73 M009I 002450 RG #7-69 M009T 002501 RG #7-71 M010 002534 RG 7-67 #7-74 7-74 M011 002552 RG 7-74 #7-76 7-76 M012 002576 RG 7-76 #7-78 NB.SD1 = 000400 9-110 NB.SD2 = 001000 9-110 NB.SNM = 000040 9-110 NB.STP = 000020 9-110 NB.SVR = 000010 9-110 LOGDA CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 2 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES NXTBUF 000146 RG #6-41 PARBUF 002722 RG #8-84 PARDEV 002722 RG #8-85 PARFLG 002742 RG #8-91 PARFNM 002730 RG #8-88 PARTYP 002736 RG #8-89 PARUIC 002726 RG #8-87 PARUN 002724 RG #8-86 PARVER 002740 RG #8-90 PFX 002150 RG #7-47 7-47 PRMT 002156 RG 7-47 #7-49 7-49 R.FIX = 000001 6-33 S.BFHD = 000020 6-37 6-37 S.FDB = 000140 6-32 6-32 TIDEF 002764 RG #8-97 TTUCB 002770 RG #8-99 TTWK 003002 RG #8-106 $$$GLB = ****** 8-83 .FSRCB = ****** G 6-37 ...PC1 = 000000 R #6-32 6-33 6-33 6-33 6-33 6-34 6-35 6-35 6-35 6-36 6-36 6-36 6-36 ...PC2 = 000140 R #6-33 6-33 #6-33 6-33 #6-33 6-33 #6-33 6-33 #6-34 6-34 #6-35 6-35 #6-35 6-35 #6-35 6-35 #6-36 6-36 #6-36 6-36 #6-36 6-36 #6-36 6-36 LOGDA CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 3 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES BDOFF$ #6-37 CBYTE$ #6-33 #6-33 #6-33 #6-34 #6-34 #6-35 #6-35 #6-36 #6-36 #6-36 CWORD$ #6-33 6-33 6-33 6-33 #6-34 6-34 6-34 #6-35 6-35 6-35 6-35 6-35 6-35 #6-36 6-36 6-36 6-36 DEF$L #6-37 FCSBT$ #5-24 5-28 FDAT$A #5-23 6-33 FDBDF$ #5-23 #6-32 FDBK$A #5-23 6-35 FDBSZ$ #6-32 #6-32 FDOFF$ #5-27 #5-27 #6-33 #6-33 #6-34 #6-34 #6-35 #6-35 #6-36 #6-36 FDOF$L #5-24 5-27 FDOP$A #5-23 #6-36 FDRC$A #5-23 #6-34 FSRSZ$ #5-23 6-37 GMCR$ #5-25 #8-83 NBOFF$ #5-26 5-26 NBOF$L #5-23 #5-26 NMBLK$ #5-23 OFF$ #8-83