.title remark ;+ ; subroutine remark(buf) ; ; alternate entry point ; subroutine putlnl(buf, int) ; ;- ap=%5 buf=2 int=4 .psect $r.roi,con,ro,rel,lcl,i .enabl lsb remark:: mov r$erdb,r1 ; ERROUT RFDB address br r$rmrk ; putlnl:: mov @int(ap),r0 ; rat4 unit call r$gfbk ; get RFDB address in r1 bcs 20$ ; c set => invalid unit r$rmrk:: call r$lput ; put the line tstb @buf(ap) ; was the buffer empty? beq 10$ ; YES tst r.byte(r1) ; any bytes left in buffer? beq 20$ ; NO 10$: mov #newlin,r3 ; NEWLINE to flush buffer call r$cput ; flush it 20$: return .end