TITLE EOFTRU

; AC DEFS (IN AGREEMENT WITH SAIL)

 A ←← 1
 CHNL ←← 10
 CDB ←← 11
 LPSA ←← 13
 P ←← 17

; EXTERNALS (FROM THE SAIL LIBRARY)

 EXTERN SAVE,RESTR,GETCHN,X22,RACS

; CDB OFFSET FOR END OF FILE FLAG ADDR

 ENDFL ←← 17

; PARM -1(P) IS CHANNEL NUMBER
; RESULT IS 0 IF EOF VARIABLE 0, -1 IF EOF VARIABLE NON-ZERO

ENTRY EOFTRU

EOFTRU:
     PUSHJ P,SAVE
     MOVE LPSA,X22
     MOVEI A,[ASCIZ /EOFTRU/]
     MOVE CHNL,-1(P)
     PUSHJ P,GETCHN
     MOVE A,@ENDFL(CDB)
     MOVEM A,RACS+1(15)
     JRST RESTR
END