.TITLE PPAGE - WRITE NEW PAGE( @FILVAR ) .IDENT /800202/ .GLOBL P$FPUT ; PARMS ; 1. POINTER TO FILE BLOCK ; REGISTER USAGE ; R0: SCRATCH ; R1: POINTER TO FILE BLOCK ; CALLS: P$FPUT ; $$$046:: MOV 2(SP),R1 ;POINTER TO FILE BLOCK MOV (SP)+,(SP) ;MOVE DOWN RETURN ADDRESS MOVB #14,@(R1) ;INSERT FF IN BUFFER MOV #1,R0 ;PUT ONE CHARACTER JMP P$FPUT ;JMP INSTEAD OF JSR,RTS .END