MODULE  F_I068 ; 1983-09-02 00:00:00:  Topexpress F77 2.13
    EXPORTC F_I068
    IMPORTC F_IMJD
    IMPORTC F_IBRN
    IMPORTC F_IERR
    IMPORTC F_LFNV
    IMPORTC F_HANDLER
    AREADEF PROG,[READ,PIC,SHARED,CODE],DOUBLE  ; size is    136
    DEFSB   DATA+0
    AREADEF DATA,[],DOUBLE  ; size is    160
;
    AREA    PROG
    DCS     'F_I068      '
F_I068
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    ADDR    sad,TOS
    CXP     F_LFNV
    MOVD    sab,R3
    ADDQD   -1,R3
    CMPQD   1,R3
    BLO     pao
pam CASEB   pan[R3:B]
    DCB     pas-pam
    DCB     pap-pam
pan EQU     *-2
pao ADDR    saf,TOS
    CXP     F_IERR
pap ADDR    saj,TOS
    CXP     F_IBRN
    MOVD    0(R0),sag
    CMPQD   0,sag
    BNE     paq
    BR      pao
paq CMPQD   1,sag
    BNE     par
    ADDR    @48,R3
    CMPD    R3,sah
    BNE     par
    MOVQD   0,sag
par MOVD    0(FP),sal
    ADDR    sak,TOS
    CXP     F_IMJD
    CMPQB   0,0(R0)
    BNE     pas
    BR      pao
pas MOVQD   0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
    HANDLER
    CXP     F_HANDLER
    DCB     0,0,0
pat DCD     1
pau DCD     0
pav DCD     1014
;
    AREA    DATA
saa ALLOCD  1
sab ALLOCD  1
sac ALLOCD  1
sad ADDRESS sab
    ADDRESS sac
saf ADDRESS pav
sag ALLOCD  1
sah ALLOCD  20
sai ALLOCD  1
saj ADDRESS sah
    ADDRESS sac
    ADDRESS sai
    ADDRESS pau
    ADDRESS pau
    ADDRESS pat
sak ADDRESS sah
sal ALLOCD  1
    ADDRESS sag
    ADDRESS sai
    END