.TITLE R0F ;.MACRO .R0F F ;READ REAL, FLOATING-POINT NUMBER FROM DISK .GLOBL .R0F,.DISK0 F: .BLKW 2 .R0F: MOV #1,.DISK0-4 ;RW=0; BI=1 CALL .DISK0 BCS EOF ;C-BIT SET INDICATES END OF FILE MOV .DISK0-2,F CALL .DISK0 BCS EOF MOV .DISK0-2,F+2 EOF: RETURN .END