LOGOU - PROCESS OUTPUT TYPE BUF MACRO M1110 11-APR-78 07:36 PAGE 4 1 .TITLE LOGOU - PROCESS OUTPUT TYPE BUFFER 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: COPY DATA FROM OUTPUT TYPE LOG BUFFER TO THE LOG FILE 19 ; OUTPUT BUFFER. 20 ; 21 ; INPUT: 22 ; 23 ; R1 = A(LOG BUFFER + 3) 24 ; R4 = COUNT REMAINING IN OUTPUT BUFFER 25 ; R5 = A(POSITION IN OUTPUT BUFFER) 26 ; 27 ; OUTPUT: 28 ; 29 ; DATA COPIED TO OUTPUT BUFFER 30 ; LOGOU - PROCESS OUTPUT TYPE BUF MACRO M1110 11-APR-78 07:36 PAGE 5 32 000000 112167 000000G $LOGOU::MOVB (R1)+,FNBYT ;SAVE CARRIAGE CONTROL CHARACTER 33 000004 112103 MOVB (R1)+,R3 ;R3 = DATA LENGTH 34 000006 105767 000000G TSTB FNBYT ;ANY VFC ? 35 000012 001426 BEQ 1100$ ;IF EQ, NO 36 000014 122767 000053 000000G CMPB #'+,FNBYT ;OVERPRINT ? 37 000022 001422 BEQ 1100$ ;IF EQ, YES 38 000024 112700 000014 MOVB #14,R0 ;ASSUME A FORM FEED 39 000030 122767 000061 000000G CMPB #'1,FNBYT ;IS IT PAGE EJECT? 40 000036 001412 BEQ 1000$ ;IF EQ, YES - GO DO IT 41 000040 112700 000012 MOVB #12,R0 ;NEED AT LEAST 1 LF 42 000044 CALL $LOGPB ;PUT LF IN OUTPUT 000044 004767 000000G JSR PC,$LOGPB 43 000050 122767 000060 000000G CMPB #'0,FNBYT ;DOUBLE SPACE? 44 000056 001004 BNE 1100$ ;IF NE, NO - WE'RE DONE 45 000060 112700 000012 MOVB #12,R0 ;ANOTHER LF 46 000064 1000$: CALL $LOGPB ;PUT LAST VFC IN OUTPUT 000064 004767 000000G JSR PC,$LOGPB 47 000070 042703 177400 1100$: BIC #177400,R3 ;CLEAR HIGH BYTE 48 000074 001405 BEQ 1300$ ;IF EQ, NO DATA TO COPY 49 000076 112100 1200$: MOVB (R1)+,R0 ;R0 = DATA BYTE 50 000100 CALL $LOGPB ;PUT CHARACTER IN OUTPUT BUFFER 000100 004767 000000G JSR PC,$LOGPB 51 000104 SOB R3,1200$ ;LOOP UNTIL DONE 000104 005303 DEC R3 000106 001373 BNE 1200$ 52 000110 112700 000015 1300$: MOVB #15,R0 ;ASSUME CR AT END 53 000114 105767 000000G TSTB FNBYT ;ANY VFC ? 54 000120 001406 BEQ 1400$ ;IF EQ, NO - WE'RE DONE 55 000122 122767 000044 000000G CMPB #'$,FNBYT ;PROMPT? 56 000130 001402 BEQ 1400$ ;IF EQ, YES - WE'RE DONE 57 000132 CALL $LOGPB ;PUT FINAL CR 000132 004767 000000G JSR PC,$LOGPB 58 000136 1400$: RETURN ;RETURN TO CALLER 000136 000207 RTS PC 59 000001 .END LOGOU - PROCESS OUTPUT TYPE BUF MACRO M1110 11-APR-78 07:36 PAGE 5-1 SYMBOL TABLE A$$CHK= 000000 D$$L11= 000002 K$$LDC= 000001 R$$JPO= 000000 T$$J16= 000001 A$$CPS= 000000 D$$YNC= 000000 K$$TPS= 000074 R$$JP1= 000001 T$$KMG= 000000 A$$NSI= 000000 D$$YNM= 000000 L$$ASG= 000000 R$$K11= 000001 T$$LWC= 000000 A$$PRI= 000000 E$$XPR= 000000 L$$PTO= 000017 R$$SND= 000000 T$$RNE= 000000 A$$TRP= 000000 FNBYT = ****** GX L$$P11= 000001 R$$11M= 000000 T$$RPR= 000000 C$$CDA= 000005 F$$LVL= 000001 M$$CRB= 000124 R$$6OF= 000000 T$$RUB= 000000 C$$CKP= 000000 G$$TPP= 000000 M$$CRX= 000000 R$$611= 000001 T$$SYN= 000000 C$$CSR= 000000 G$$TSS= 000000 M$$FCS= 000000 S$$ECC= 000000 T$$TRW= 000000 C$$ORE= 002000 G$$TTK= 000000 M$$MGE= 000000 S$$YSZ= 007600 T$$VBF= 000000 C$$RSH= 177564 H$$RTZ= 000074 M$$OVR= 000000 T$$ACR= 000000 V$$CTR= 001000 C$$RTO= 000017 I$$RAR= 000000 N$$LDV= 000001 T$$BTW= 000000 V$$RSN= 000031 C$$RUN= 000000 I$$RDN= 000000 N$$MOV= 000041 T$$BUF= 000000 $LOGOU 000000RG C$$R11= 000001 K$$CNT= 177546 P$$RFL= 000000 T$$CCO= 000000 $LOGPB= ****** GX C$$TTY= 177564 K$$CSR= 177546 P$$RTY= 000000 T$$CTR= 000000 $T$LOG= 000000 D$$ISK= 000000 K$$IEN= 000115 Q$$OPT= 000005 . ABS. 000000 000 000140 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 1404 WORDS ( 6 PAGES) DYNAMIC MEMORY: 2668 WORDS ( 10 PAGES) ELAPSED TIME: 00:00:06 LOGOU,[203,34]LOGOU/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGOU LOGOU CREATED BY MACRO ON 11-APR-78 AT 07:36 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES FNBYT = ****** GX *5-32 5-34 5-36 5-39 5-43 5-53 5-55 $LOGOU 000000 RG #5-32 $LOGPB = ****** GX 5-42 5-46 5-50 5-57 LOGOU CREATED BY MACRO ON 11-APR-78 AT 07:36 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES CALL #5-42 #5-46 #5-50 #5-57 RETURN 5-58 SOB 5-51