.TITLE $$$016 - FILE BLOCK INITIALISATION .IDENT /791112/ .GLOBL FB.BUF ; FILE BLOCK INITIALIZATION ; PARMS ; 1. POINTER TO FILE BLOCK ; 2. MAXIMUM SIZE OF BUFFER VARIABLE (BYTES) ; REGISTER USAGE ; R0 = SCRATCH ; R1 -> FILE VARIABLE .PSECT $$$016:: MOV 4(SP),R1 ;GET FIRST PARM MOV (SP)+,2(SP) ;MOVE DOWN RETURN ADDRESS ; MOV R1,R0 MOV R1,(R0) ADD #FB.BUF,(R0)+ ;@BUFVAR TST (R0)+ ;SKIP EOF AND EOL FLAGS CLR (R0)+ ;NO CHARACTERISTICS AS YET MOV (SP)+,(R0)+ ;BUFVAR SIZE CLR (R0)+ ;CHAN CLR (R0)+ ;VALID CLR (R0) ;CLEAR FIRST WORD IN BUFFER RTS PC .END