MODULE  F_I071 ; 1983-09-02 00:00:00:  Topexpress F77 2.13
    EXPORTC F_I071
    IMPORTC F_LCHN
    IMPORTC F_BGET
    IMPORTC F_BPWR
    IMPORTC F_BPRD
    IMPORTC F_IERR
    IMPORTC F_LFNV
    IMPORTC F_HANDLER
    IMPORTC F_ZHMV
    AREADEF PROG,[READ,PIC,SHARED,CODE],DOUBLE  ; size is    324
    DEFSB   DATA+0
    AREADEF DATA,[],DOUBLE  ; size is    108
;
    AREA    PROG
    DCS     'F_I071      '
F_I071
    SPRD    FP,TOS
    LPRD    FP,12(SP)
    ADDR    sag,TOS
    CXP     F_LFNV
    MOVD    sae,R3
    ADDQD   -1,R3
    CMPQD   5,R3
    BLO     paz
pax CASEB   pay[R3:B]
    DCB     pba-pax
    DCB     paz-pax
    DCB     paz-pax
    DCB     paz-pax
    DCB     pbb-pax
    DCB     pbc-pax
pay EQU     *-6
paz ADDR    sai,TOS
    CXP     F_IERR
pba MOVQD   0,saa
    BR      pbl
pbb MOVD    saf,sac
    MOVQD   0,TOS
    CXP     F_BPRD
    MOVD    0(R0),sad
    MOVQD   0,sab
    BR      pbe
pbc CMPQD   0,sab
    BGE     pbd
    ADDR    sak,TOS
    CXP     F_IERR
pbd ADDR    sam,TOS
    CXP     F_BPWR
    MOVD    0(R0),sal
pbe MOVD    sac,san
    MOVQD   1,sao
    MOVD    4(0(FP)),sap
pbf MOVQD   0,TOS
    CXP     F_BPRD
    CMPD    0(R0),san
    BLE     pbg
    BR      pbk
pbg MOVQD   0,TOS
    CXP     F_BGET
    MOVD    0(R0),saq
    ADDR    @39,R3
    CMPD    R3,saq
    BNE     pbi
    MOVQD   0,TOS
    CXP     F_BPRD
    MOVD    0(R0),sar
    MOVQD   0,TOS
    CXP     F_BGET
    MOVD    0(R0),saq
    ADDR    @39,R3
    CMPD    R3,saq
    BEQ     pbi
    CMPD    sao,sap
    BGT     pbh
    MOVD    sao,R4
    ADDQD   -1,R4
    MOVD    sap,R5
    SUBD    R4,R5
    ADDR    sas,R1
    MOVD    R5,sau
    MOVD    0(0(FP)),R6
    ADDR    R6[R4:B],sat
    ADDR    sat,R2
    CXP     F_ZHMV
pbh ADDR    sav,TOS
    CXP     F_BPWR
    MOVD    0(R0),sal
    MOVQD   0,saa
    BR      pbl
pbi CMPD    sao,sap
    BGT     pbj
    MOVD    0(0(FP)),R3
    MOVD    sao,R4
    MOVB    saq,-1(R3)[R4:B]
    ADDQD   1,sao
pbj BR      pbf
pbk ADDQD   1,sab
    ADDR    saw,TOS
    CXP     F_LCHN
    BR      pbf
pbl ADDR    saa,R0
    LPRD    FP,TOS
    RXP     4
    HANDLER
    CXP     F_HANDLER
pbm DCD     1018
pbn DCD     1017
pbo DCS     ' '
;
    AREA    DATA
saa ALLOCD  1
sab ALLOCD  1
sac ALLOCD  1
sad ALLOCD  1
sae ALLOCD  1
saf ALLOCD  1
sag ADDRESS sae
    ADDRESS saf
sai ADDRESS pbn
sak ADDRESS pbm
sal ALLOCD  1
sam ADDRESS sad
san ALLOCD  1
sao ALLOCD  1
sap ALLOCD  1
saq ALLOCD  1
sar ALLOCD  1
sas ADDRESS pbo
    DCD     1
sat ALLOCD  1
sau ALLOCD  1
sav ADDRESS sar
saw ADDRESS san
    END