LOGND - CLOSE OUT LOG FILE MACRO M1110 11-APR-78 07:36 PAGE 4 1 .TITLE LOGND - CLOSE OUT LOG FILE 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: CLOSE OUT THE LOG FILE. 19 ; 20 ; INPUT: 21 ; 22 ; R4 = COUNT REMAINING IN CURRENT BUFFER 23 ; R5 = A(POSITION IN CORRENT BUFFER) 24 ; 25 ; OUTPUT: 26 ; 27 ; LOG FILE CLOSED. 28 ; LOGND - CLOSE OUT LOG FILE MACRO M1110 11-APR-78 07:36 PAGE 5 30 ; MACRO CALLS AND SYSTEM DEFINITIONS. 31 ; 32 .MCALL WTSE$S,CLEF$S,WRITE$,CLOSE$,MSGN$S 33 .MCALL FDOF$L,NBOF$L,FCSBT$ 34 000000 FDOF$L ;DEFINE FDB OFFSETS 35 000000 NBOF$L ;DEFINE FNB OFFSETS 36 000000 FCSBT$ ;DEFINE FCS BITS LOGND - CLOSE OUT LOG FILE MACRO M1110 11-APR-78 07:36 PAGE 6 38 000000 022704 001000 $LOGND::CMP #512.,R4 ;ANY DATA IN CURRENT BUFFER ? 39 000004 001463 BEQ 1300$ ; IF EQ, NO - DON'T HAVE TO WRITE IT 40 000006 005767 000000G TST LIOSB ;ERROR ON LAST WRITE ? 41 000012 100460 BMI 1300$ ;IF MI, YES - CAN'T WRITE IT 42 000014 005704 TST R4 ;ANY PAD NEEDED ? 43 000016 001403 BEQ 1100$ ;IF EQ, NO - BUFFER ALREADY FULL 44 000020 105025 1000$: CLRB (R5)+ ;PAD OUT THE LAST BLOCK 45 000022 SOB R4,1000$ ;LOOP UNTIL DONE 000022 005304 DEC R4 000024 001375 BNE 1000$ 46 000026 005767 000000G 1100$: TST LIOSB ;LAST WRITE COMPLETE ? 47 000032 001013 BNE 1200$ ;IF NW, YES 48 000034 WTSE$S #2 ;WAIT FOR IT 000034 012746 000002 MOV #2,-(SP) 000040 012746 MOV (PC)+,-(SP) 000042 051 002 .BYTE 41.,2 000044 104377 EMT ^O<377> 49 000046 CLEF$S #2 ;CLEAR FLAG 000046 012746 000002 MOV #2,-(SP) 000052 012746 MOV (PC)+,-(SP) 000054 037 002 .BYTE 31.,2 000056 104377 EMT ^O<377> 50 000060 000762 BR 1100$ ;TRY AGAIN 51 000062 1200$: WRITE$ #LOGFL,CURBUF ;WRITE THE LAST BLOCK 000062 012700 000000G MOV #LOGFL,R0 000066 016760 000000G 000022 .IIF NB,CURBUF, MOV CURBUF,F.BKDS+2(R0) 000074 004767 000000G JSR PC,.WRITE 52 000100 WTSE$S #2 ;WAIT FOR IT 000100 012746 000002 MOV #2,-(SP) 000104 012746 MOV (PC)+,-(SP) 000106 051 002 .BYTE 41.,2 000110 104377 EMT ^O<377> 53 000112 CLOSE$ #LOGFL ;CLOSE THE LOG FILE 000112 012700 000000G MOV #LOGFL,R0 000116 004767 000000G JSR PC,.CLOSE 54 000122 103014 BCC 1300$ ;IF CC, NO ERROR 55 000124 MSGN$S PFX,3,M008,,,ABORT ;ERROR CLOSING LOG FILE 000124 004567 000000G JSR R5,$MSGEN ;GO TO MESSAGE GEN ROUTINE 000130 000000G .IIF NB .WORD PFX ;A(MESSAGE PREFIX) 000132 000003 .WORD 3 ;SEVERITY LEVEL 000134 000000G .IIF NB .WORD M008 ;A(MESSAGE TEXT) 000136 000000 000000 .IIF B <> .WORD 0,0 ;NO REPLY 000142 103002 BCC .+6 000144 004767 000000G JSR PC,ABORT 56 000150 CALL $LOGER ;TELL HIM MORE 000150 004767 000000G JSR PC,$LOGER 57 000154 1300$: RETURN ;RETURN TO CALLER 000154 000207 RTS PC 58 000001 .END LOGND - CLOSE OUT LOG FILE MACRO M1110 11-APR-78 07:36 PAGE 6-1 SYMBOL TABLE ABORT = ****** GX FD.F11= 040000 F.DVNM= 000134 K$$LDC= 000001 R$$SND= 000000 A$$CHK= 000000 FD.INS= 000010 F.EFBK= 000010 K$$TPS= 000074 R$$11M= 000000 A$$CPS= 000000 FD.ISP= 002000 F.EFN = 000050 LIOSB = ****** GX R$$6OF= 000000 A$$NSI= 000000 FD.MNT= 100000 F.EOBB= 000032 LOGFL = ****** GX R$$611= 000001 A$$PRI= 000000 FD.OSP= 004000 F.ERR = 000052 L$$ASG= 000000 R.FIX = 000001 A$$TRP= 000000 FD.PLC= 000004 F.FACC= 000043 L$$PTO= 000017 R.SEQ = 000003 CH.AND= 000001 FD.PRN= 000004 F.FFBY= 000014 L$$P11= 000001 R.VAR = 000002 CURBUF= ****** GX FD.PSE= 010000 F.FNAM= 000110 M$$CRB= 000124 S$$ECC= 000000 C$$CDA= 000005 FD.RAH= 000001 F.FNB = 000102 M$$CRX= 000000 S$$YSZ= 007600 C$$CKP= 000000 FD.RAN= 000002 F.FTYP= 000116 M$$FCS= 000000 S.FATT= 000016 C$$CSR= 000000 FD.REC= 000001 F.FVER= 000120 M$$MGE= 000000 S.FDB = 000140 C$$ORE= 002000 FD.RWM= 000001 F.HIBK= 000004 M$$OVR= 000000 S.FNAM= 000006 C$$RSH= 177564 FD.SDI= 000020 F.LUN = 000042 M008 = ****** GX S.FNB = 000036 C$$RTO= 000017 FD.SQD= 000040 F.MBCT= 000054 NB.DEV= 000200 S.FNBW= 000017 C$$RUN= 000000 FD.TTY= 000004 F.MBC1= 000055 NB.DIR= 000100 S.FNTY= 000004 C$$R11= 000001 FD.WBH= 000002 F.MBFG= 000056 NB.NAM= 000004 S.FTYP= 000002 C$$TTY= 177564 FF.CHR= 000005 F.NRBD= 000024 NB.SD1= 000400 S.NFEN= 000020 D$$ISK= 000000 FF.NV = 000003 F.NREC= 000030 NB.SD2= 001000 T$$ACR= 000000 D$$L11= 000002 FF.POE= 000002 F.OVBS= 000030 NB.SNM= 000040 T$$BTW= 000000 D$$YNC= 000000 FF.RWD= 000001 F.RACC= 000016 NB.STP= 000020 T$$BUF= 000000 D$$YNM= 000000 FF.RWF= 000006 F.RATT= 000001 NB.SVR= 000010 T$$CCO= 000000 E$$XPR= 000000 FF.SPC= 000004 F.RCNM= 000034 NB.TYP= 000002 T$$CTR= 000000 FA.APD= 000100 FO.APD= 000106 F.RCTL= 000017 NB.VER= 000001 T$$J16= 000001 FA.CRE= 000010 FO.MFY= 000002 F.RSIZ= 000002 N$$LDV= 000001 T$$KMG= 000000 FA.DLK= 001000 FO.RD = 000001 F.RTYP= 000000 N$$MOV= 000041 T$$LWC= 000000 FA.ENB= 100000 FO.UPD= 000006 F.SEQN= 000100 N.DID = 000024 T$$RNE= 000000 FA.EXC= 002000 FO.WRT= 000016 F.SPDV= 000072 N.DVNM= 000032 T$$RPR= 000000 FA.EXT= 000004 F$$LVL= 000001 F.SPUN= 000074 N.FID = 000000 T$$RUB= 000000 FA.NSP= 000100 F.ACTL= 000076 F.STBK= 000036 N.FNAM= 000006 T$$SYN= 000000 FA.POS= 010000 F.ALOC= 000040 F.UNIT= 000136 N.FTYP= 000014 T$$TRW= 000000 FA.RD = 000001 F.BBFS= 000062 F.URBD= 000020 N.FVER= 000016 T$$VBF= 000000 FA.RWD= 004000 F.BDB = 000070 F.VBN = 000064 N.NEXT= 000022 V$$CTR= 001000 FA.SEQ= 040000 F.BGBC= 000057 F.VBSZ= 000060 N.STAT= 000020 V$$RSN= 000031 FA.SHR= 000040 F.BKDN= 000026 G$$TPP= 000000 N.UNIT= 000034 $LOGER= ****** GX FA.TMP= 000020 F.BKDS= 000020 G$$TSS= 000000 PAR$$$= 000027 $LOGND 000000RG FA.WCK= 020000 F.BKEF= 000050 G$$TTK= 000000 PFX = ****** GX $MSGEN= ****** GX FA.WRT= 000002 F.BKP1= 000051 H$$RTZ= 000074 P$$RFL= 000000 $T$LOG= 000000 FD.BLK= 000010 F.BKST= 000024 I$$RAR= 000000 P$$RTY= 000000 $$$T1 = 000067 FD.CCL= 000002 F.BKVB= 000064 I$$RDN= 000000 Q$$OPT= 000005 .CLOSE= ****** G FD.COM= 020000 F.CHR = 000075 K$$CNT= 177546 R$$JPO= 000000 .WRITE= ****** G FD.CR = 000002 F.CNTG= 000034 K$$CSR= 177546 R$$JP1= 000001 ...GBL= 000000 FD.DIR= 000010 F.DFNB= 000046 K$$IEN= 000115 R$$K11= 000001 ...TPC= 000140 FD.FTN= 000001 F.DSPT= 000044 . ABS. 000000 000 000156 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 4459 WORDS ( 18 PAGES) DYNAMIC MEMORY: 5836 WORDS ( 22 PAGES) ELAPSED TIME: 00:00:18 LOGND,[203,34]LOGND/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGND LOGND CREATED BY MACRO ON 11-APR-78 AT 07:36 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES ABORT = ****** GX 6-55 6-55 CURBUF = ****** GX 6-51 F.BKDS = 000020 *6-51 LIOSB = ****** GX 6-40 6-46 LOGFL = ****** GX 6-51 6-51 6-53 6-53 M008 = ****** GX 6-55 PAR$$$ = 000027 #6-51 6-51 #6-53 6-53 PFX = ****** GX 6-55 $LOGER = ****** GX 6-56 $LOGND 000000 RG #6-38 $MSGEN = ****** GX 6-55 $$$T1 = 000067 #6-55 6-55 6-55 6-55 .CLOSE = ****** G 6-53 6-53 .WRITE = ****** G 6-51 6-51 LOGND CREATED BY MACRO ON 11-APR-78 AT 07:36 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES CALL #6-55 #6-56 CLEF$S #5-32 6-49 CLOSE$ #5-32 6-53 CMOV$B #6-51 #6-51 CMOV$W #6-51 #6-51 #6-51 #6-51 #6-51 CMOV$2 #6-51 6-51 DIR$ #6-48 6-48 #6-49 6-49 #6-52 6-52 ERR$ #6-51 #6-51 #6-53 #6-53 #6-55 #6-55 FCSBT$ #5-33 5-36 FDBK$R #6-51 6-51 FDOFF$ #5-34 5-34 FDOF$L #5-33 #5-34 LDFDB$ #6-51 6-51 #6-53 6-53 MOV$ #6-48 6-48 #6-49 6-49 #6-52 6-52 MSGN$S #5-32 6-55 NBOFF$ #5-35 5-35 NBOF$L #5-33 #5-35 RETURN 6-57 SOB 6-45 WRITE$ #5-32 6-51 WTSE$S #5-32 #6-48 #6-52