LOGER - EXPOUND ON ERROR MACRO M1110 11-APR-78 07:36 PAGE 4 1 .TITLE LOGER - EXPOUND ON ERROR 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: PRINT DESCRIPTIVE I/O ERROR DATA 19 ; 20 ; INPUT: 21 ; 22 ; LIOSB 23 ; LOG FILE FDB 24 ; 25 ; OUTPUT: 26 ; 27 ; MESSAGE DESCRIBING ERROR 28 ; LOGER - EXPOUND ON ERROR MACRO M1110 11-APR-78 07:36 PAGE 5 30 ; MACROS AND SYSTEM DEFINITIONS 31 ; 32 .MCALL MSGN$S,FDOF$L,NBOF$L,FCSBT$ 33 000000 FDOF$L ;DEFINE FDB OFFSETS 34 000000 NBOF$L ;DEFINE FNB OFFSETS 35 000000 FCSBT$ ;DEFINE FCS BITS LOGER - EXPOUND ON ERROR MACRO M1110 11-APR-78 07:36 PAGE 6 37 000000 012700 000000G $LOGER::MOV #M009I,R0 ;R0 = A(IOSB CODE FIELD) 38 000004 116701 000000G MOVB LIOSB,R1 ;R1 = IOSB CODE 39 000010 005002 CLR R2 ;SUPRESS LEADING ZEROES 40 000012 CALL $CBDSG ;CONVERT TO ASCII 000012 004767 000000G JSR PC,$CBDSG 41 000016 112767 000111 000000G MOVB #'I,M009T ;ASSUME I/O ERROR 42 000024 105767 000053G TSTB LOGFL+F.ERR+1 ;WAS IT AN I/O ERROR 43 000030 001403 BEQ 1000$ ;IF EQ, YES 44 000032 112767 000104 000000G MOVB #'D,M009T ;SET DIRECTIVE ERROR 45 000040 012700 000000G 1000$: MOV #M009F,R0 ;R0 = A(FDB CODE FIELD) 46 000044 116701 000052G MOVB LOGFL+F.ERR,R1 ;R1 = ERROR CODE 47 000050 005002 CLR R2 ;SUPRESS LEADING ZEROES 48 000052 CALL $CBDSG ;INSERT CODE 000052 004767 000000G JSR PC,$CBDSG 49 000056 MSGN$S PFX,3,M009,,,ABORT ;ERROR STATUS MESSAGE 000056 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000062 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000064 000003 .WORD 3 ;SEVERITY LEVEL 000066 000000G .IIF NB .WORD M009 ;A(MESSAGE TEXT) 000070 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000074 103002 BCC .+6 000076 004767 000000G JSR PC,ABORT 50 000102 RETURN ;RETURN TO CALLER 000102 000207 RTS PC 51 000001 .END LOGER - EXPOUND ON ERROR MACRO M1110 11-APR-78 07:36 PAGE 6-1 SYMBOL TABLE ABORT = ****** GX FD.INS= 000010 F.DVNM= 000134 K$$LDC= 000001 R$$JP1= 000001 A$$CHK= 000000 FD.ISP= 002000 F.EFBK= 000010 K$$TPS= 000074 R$$K11= 000001 A$$CPS= 000000 FD.MNT= 100000 F.EFN = 000050 LIOSB = ****** GX R$$SND= 000000 A$$NSI= 000000 FD.OSP= 004000 F.EOBB= 000032 LOGFL = ****** GX R$$11M= 000000 A$$PRI= 000000 FD.PLC= 000004 F.ERR = 000052 L$$ASG= 000000 R$$6OF= 000000 A$$TRP= 000000 FD.PRN= 000004 F.FACC= 000043 L$$PTO= 000017 R$$611= 000001 CH.AND= 000001 FD.PSE= 010000 F.FFBY= 000014 L$$P11= 000001 R.FIX = 000001 C$$CDA= 000005 FD.RAH= 000001 F.FNAM= 000110 M$$CRB= 000124 R.SEQ = 000003 C$$CKP= 000000 FD.RAN= 000002 F.FNB = 000102 M$$CRX= 000000 R.VAR = 000002 C$$CSR= 000000 FD.REC= 000001 F.FTYP= 000116 M$$FCS= 000000 S$$ECC= 000000 C$$ORE= 002000 FD.RWM= 000001 F.FVER= 000120 M$$MGE= 000000 S$$YSZ= 007600 C$$RSH= 177564 FD.SDI= 000020 F.HIBK= 000004 M$$OVR= 000000 S.FATT= 000016 C$$RTO= 000017 FD.SQD= 000040 F.LUN = 000042 M009 = ****** GX S.FDB = 000140 C$$RUN= 000000 FD.TTY= 000004 F.MBCT= 000054 M009F = ****** GX S.FNAM= 000006 C$$R11= 000001 FD.WBH= 000002 F.MBC1= 000055 M009I = ****** GX S.FNB = 000036 C$$TTY= 177564 FF.CHR= 000005 F.MBFG= 000056 M009T = ****** GX S.FNBW= 000017 D$$ISK= 000000 FF.NV = 000003 F.NRBD= 000024 NB.DEV= 000200 S.FNTY= 000004 D$$L11= 000002 FF.POE= 000002 F.NREC= 000030 NB.DIR= 000100 S.FTYP= 000002 D$$YNC= 000000 FF.RWD= 000001 F.OVBS= 000030 NB.NAM= 000004 S.NFEN= 000020 D$$YNM= 000000 FF.RWF= 000006 F.RACC= 000016 NB.SD1= 000400 T$$ACR= 000000 E$$XPR= 000000 FF.SPC= 000004 F.RATT= 000001 NB.SD2= 001000 T$$BTW= 000000 FA.APD= 000100 FO.APD= 000106 F.RCNM= 000034 NB.SNM= 000040 T$$BUF= 000000 FA.CRE= 000010 FO.MFY= 000002 F.RCTL= 000017 NB.STP= 000020 T$$CCO= 000000 FA.DLK= 001000 FO.RD = 000001 F.RSIZ= 000002 NB.SVR= 000010 T$$CTR= 000000 FA.ENB= 100000 FO.UPD= 000006 F.RTYP= 000000 NB.TYP= 000002 T$$J16= 000001 FA.EXC= 002000 FO.WRT= 000016 F.SEQN= 000100 NB.VER= 000001 T$$KMG= 000000 FA.EXT= 000004 F$$LVL= 000001 F.SPDV= 000072 N$$LDV= 000001 T$$LWC= 000000 FA.NSP= 000100 F.ACTL= 000076 F.SPUN= 000074 N$$MOV= 000041 T$$RNE= 000000 FA.POS= 010000 F.ALOC= 000040 F.STBK= 000036 N.DID = 000024 T$$RPR= 000000 FA.RD = 000001 F.BBFS= 000062 F.UNIT= 000136 N.DVNM= 000032 T$$RUB= 000000 FA.RWD= 004000 F.BDB = 000070 F.URBD= 000020 N.FID = 000000 T$$SYN= 000000 FA.SEQ= 040000 F.BGBC= 000057 F.VBN = 000064 N.FNAM= 000006 T$$TRW= 000000 FA.SHR= 000040 F.BKDN= 000026 F.VBSZ= 000060 N.FTYP= 000014 T$$VBF= 000000 FA.TMP= 000020 F.BKDS= 000020 G$$TPP= 000000 N.FVER= 000016 V$$CTR= 001000 FA.WCK= 020000 F.BKEF= 000050 G$$TSS= 000000 N.NEXT= 000022 V$$RSN= 000031 FA.WRT= 000002 F.BKP1= 000051 G$$TTK= 000000 N.STAT= 000020 $CBDSG= ****** GX FD.BLK= 000010 F.BKST= 000024 H$$RTZ= 000074 N.UNIT= 000034 $LOGER 000000RG FD.CCL= 000002 F.BKVB= 000064 I$$RAR= 000000 PFX = ****** GX $MSGEN= ****** GX FD.COM= 020000 F.CHR = 000075 I$$RDN= 000000 P$$RFL= 000000 $T$LOG= 000000 FD.CR = 000002 F.CNTG= 000034 K$$CNT= 177546 P$$RTY= 000000 $$$T1 = 000067 FD.DIR= 000010 F.DFNB= 000046 K$$CSR= 177546 Q$$OPT= 000005 ...GBL= 000000 FD.FTN= 000001 F.DSPT= 000044 K$$IEN= 000115 R$$JPO= 000000 ...TPC= 000140 FD.F11= 040000 . ABS. 000000 000 000104 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 4145 WORDS ( 17 PAGES) DYNAMIC MEMORY: 4780 WORDS ( 18 PAGES) ELAPSED TIME: 00:00:14 LOGER,[203,34]LOGER/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGER LOGER CREATED BY MACRO ON 11-APR-78 AT 07:37 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ABORT = ****** GX 6-49 6-49 F.ERR = 000052 6-42 6-46 LIOSB = ****** GX 6-38 LOGFL = ****** GX 6-42 6-46 M009 = ****** GX 6-49 M009F = ****** GX 6-45 M009I = ****** GX 6-37 M009T = ****** GX *6-41 *6-44 PFX = ****** GX 6-49 $CBDSG = ****** GX 6-40 6-48 $LOGER 000000 RG #6-37 $MSGEN = ****** GX 6-49 $$$T1 = 000067 #6-49 6-49 6-49 6-49 LOGER CREATED BY MACRO ON 11-APR-78 AT 07:37 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES CALL #6-40 #6-48 #6-49 ERR$ #6-49 6-49 FCSBT$ #5-32 5-35 FDOFF$ #5-33 5-33 FDOF$L #5-32 #5-33 MSGN$S #5-32 6-49 NBOFF$ #5-34 5-34 NBOF$L #5-32 #5-34 RETURN 6-50