.TITLE PRDOUB - READ DOUBLE(@FILVAR,@REAL) .IDENT /831006/ ; PARMS ; 1. POINTER TO FILE VARIABLE ; 2. POINTER TO REAL VARIABLE ; REGISTER USAGE ; R1 - POINTER TO FILE VARIABLE ; CALLS: $FREAD ; .GLOBL $FREAD F0=R0 $$$036:: MOV 4(SP),R1 ;POINTER TO FILE BLOCK MOV (SP)+,2(SP) ;MOVE DOWN RETURN ADDRESS STFPS -(SP) ;SAVE FLOATING POINT STATUS JSR PC,$FREAD ;DO THE READ STD F0,@2(SP) ;PUT AWAY THE VALUE (DOUBLE) LDFPS (SP)+ ;RESTORE FLOATING POINT STATUS TST (SP)+ ;POP SECOND PARAMETER RTS PC .END