.TITLE PWEOLN - WRITEENDOFLINE( @FILEVAR ) .IDENT /790717/ .GLOBL P$FPUT ; PARMS ; 1. POINTER TO FILE BLOCK ; REGISTER USAGE ; R0: SCRATCH ; R1: POINTER TO FILE BLOCK ; CALLS: P$FPUT ; $$$045:: MOV 2(SP),R1 ;POINTER TO FILE BLOCK MOV (SP)+,(SP) ;MOVE DOWN RETURN ADDRESS MOVB #15,@(R1) ;SYSTEM LIKES TO SEE A MOV #1,R0 ;...CR BEFORE EVERY LF JSR PC,P$FPUT 1$: MOVB #12,@(R1) ;INSERT LF IN BUFFER MOV #1,R0 JMP P$FPUT ;JMP INSTEAD OF JSR, RTS .END