MODULE  F_I069 ; 1983-09-02 00:00:00:  Topexpress F77 2.13
    EXPORTC F_I069
    IMPORTC F_IBRL
    IMPORTC F_IERR
    IMPORTC F_LFNV
    IMPORTC F_HANDLER
    AREADEF PROG,[READ,PIC,SHARED,CODE],DOUBLE  ; size is    102
    DEFSB   DATA+0
    AREADEF DATA,[],DOUBLE  ; size is     40
;
    AREA    PROG
    DCS     'F_I069      '
F_I069
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    ADDR    sad,TOS
    CXP     F_LFNV
    MOVD    sab,R3
    ADDQD   -1,R3
    CMPQD   1,R3
    BLO     pak
pai CASEB   paj[R3:B]
    DCB     pan-pai
    DCB     pal-pai
paj EQU     *-2
pak ADDR    saf,TOS
    CXP     F_IERR
pal ADDR    sah,TOS
    CXP     F_IBRL
    MOVD    0(R0),sag
    CMPQD   0,sag
    BNE     pam
    BR      pak
pam CMPQD   0,sag
    SLTB    0(0(FP))
pan MOVQD   0,saa
    ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
    HANDLER
    CXP     F_HANDLER
pao DCD     1019
;
    AREA    DATA
saa ALLOCD  1
sab ALLOCD  1
sac ALLOCD  1
sad ADDRESS sab
    ADDRESS sac
saf ADDRESS pao
sag ALLOCD  1
sah ADDRESS sac
    END