LOGIN - PROCESS INPUT TYPE BUFF MACRO M1110 11-APR-78 07:35 PAGE 4 1 .TITLE LOGIN - PROCESS INPUT 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 FROMM INPUT 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 ; LOGIN - PROCESS INPUT TYPE BUFF MACRO M1110 11-APR-78 07:35 PAGE 5 32 000000 112167 000000G $LOGIN::MOVB (R1)+,FNBYT ;SAVE TERMINATION CHARACTER 33 000004 112103 MOVB (R1)+,R3 ;R3 = DATA LENGTH 34 000006 042703 177400 BIC #177400,R3 ;CLEAR HIGH BYTE 35 000012 001405 BEQ 1100$ ;IF EQ, NO DATA TO COPY 36 000014 112100 1000$: MOVB (R1)+,R0 ;R0 = DATA BYTE 37 000016 CALL $LOGPB ;PUT CHATACTER IN OUTPUT BUFFER 000016 004767 000000G JSR PC,$LOGPB 38 000022 SOB R3,1000$ ;LOOP UNTIL DONE 000022 005303 DEC R3 000024 001373 BNE 1000$ 39 000026 116700 000000G 1100$: MOVB FNBYT,R0 ;R0 = TERMINATION BYTE 40 000032 005700 TST R0 ;I/O ERROR CODE ? 41 000034 100010 BPL 1200$ ;IF PL, NO - ITS A CHAR 42 000036 012700 000032 MOV #32,R0 ;ASSUME IT WAS A CTRL/Z 43 000042 126727 000000G 000366 CMPB FNBYT,#366 ;WAS IT ? 44 000050 001402 BEQ 1200$ ;IF EQ, YES 45 000052 012700 000077 MOV #'?,R0 ;MAKE IT A "?" 46 000056 1200$: CALL $LOGPB ;PUT TERMINATION BYTE IN OUTPUT BUFFER 000056 004767 000000G JSR PC,$LOGPB 47 000062 RETURN ;RETURN TO CALLER 000062 000207 RTS PC 48 000001 .END LOGIN - PROCESS INPUT TYPE BUFF MACRO M1110 11-APR-78 07:35 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 $LOGIN 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 000064 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 1394 WORDS ( 6 PAGES) DYNAMIC MEMORY: 2668 WORDS ( 10 PAGES) ELAPSED TIME: 00:00:06 LOGIN,[203,34]LOGIN/CR=[1,1]EXEMC/ML,[202,1]MAC/ML,[203,1]RSXMC/PA:1,LOGIN LOGIN CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 1 SYMBOL CROSS REFERENCE CREF V01 SYMBOL VALUE REFERENCES FNBYT = ****** GX *5-32 5-39 5-43 $LOGIN 000000 RG #5-32 $LOGPB = ****** GX 5-37 5-46 LOGIN CREATED BY MACRO ON 11-APR-78 AT 07:35 PAGE 2 MACRO CROSS REFERENCE CREF V01 MACRO NAME REFERENCES CALL #5-37 #5-46 RETURN 5-47 SOB 5-38