      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER INF,INBUF(1024),COUNT,BLOCK0,BLOCL0
      INTEGER RDBIN,GETARG,OPEN
      INTEGER NAME(128)
      INTEGER BTPOS(4)
      INTEGER BTTXT(16)
      INTEGER AAAAA0(25)
      INTEGER AAAAB0(16)
      INTEGER AAAAC0(26)
      INTEGER AAAAD0(41)
      INTEGER AAAAE0(1)
      INTEGER AAAAF0(31)
      INTEGER AAAAG0(34)
      DATA BTTXT/208,242,229,230,233,248,0,196,225,244,225,0,197,238,228
     *,0/
      DATA BTPOS/3,1,8,13/
      DATA AAAAA0/245,243,225,231,229,186,160,239,244,228,160,188,239,22
     *6,234,229,227,244,223,230,233,236,229,190,0/
      DATA AAAAB0/226,225,228,160,239,226,234,229,227,244,160,230,233,23
     *6,229,0/
      DATA AAAAC0/233,238,227,239,238,243,233,243,244,229,238,244,160,22
     *6,236,239,227,235,160,243,233,250,229,170,238,0/
      DATA AAAAD0/160,160,160,242,229,227,239,242,228,160,232,229,225,22
     *8,229,242,186,160,170,233,172,160,226,236,239,227,235,160,232,229,
     *225,228,229,242,186,160,170,233,170,238,0/
      DATA AAAAE0/0/
      DATA AAAAF0/245,238,242,229,227,239,231,238,233,250,229,228,160,22
     *6,236,239,227,235,160,244,249,240,229,160,168,170,233,169,170,238,
     *0/
      DATA AAAAG0/170,170,160,170,243,160,194,236,239,227,235,160,227,23
     *9,238,244,225,233,238,233,238,231,160,170,233,160,247,239,242,228,
     *243,170,238,0/
      IF((GETARG(1,NAME,128).NE.-1))GOTO 10000
        CALL ERROR(AAAAA0)
10000 INF=OPEN(NAME,1)
      IF((INF.NE.-3))GOTO 10001
        CALL CANT(NAME)
10001 FORCE0=.TRUE.
      LINKO0=0
      STACK0=0
      MODEA0=4
      DEFAU0=4
      LOCAT0=0
      FRAME0=2
      COUNT=RDBIN(INF,INBUF,1024)
      GOTO 10004
10002 COUNT=RDBIN(INF,INBUF,1024)
10004 IF((COUNT.EQ.-1))GOTO 10003
      IF((COUNT.EQ.0))GOTO 10003
        IF((COUNT.GE.0))GOTO 10005
          CALL CLOSE(INF)
          CALL ERROR(AAAAB0)
10005   BLOCK0=RS(INBUF(1),12)
        BLOCL0=RT(INBUF(1),8)
        IF((COUNT.EQ.BLOCL0))GOTO 10006
          CALL CLOSE(INF)
          CALL PRINT(-15,AAAAC0)
          CALL PRINT(-15,AAAAD0,BLOCL0,COUNT)
          CALL ERROR(AAAAE0)
10006   IF((BLOCK0.EQ.:11))GOTO 10007
        IF((BLOCK0.EQ.:12))GOTO 10007
        IF((BLOCK0.EQ.:13))GOTO 10007
          CALL CLOSE(INF)
          CALL PRINT(-15,AAAAF0,BLOCK0)
          GOTO 10008
10007     CALL PRINT(-11,AAAAG0,BTTXT(BTPOS(BLOCK0-:11+2)),BLOCL0)
          CALL INTER0(INBUF,BLOCL0)
10008 GOTO 10002
10003 CALL CLOSE(INF)
      CALL SWT
      END
      INTEGER FUNCTION INTER0(BUF,COUNT)
      INTEGER BUF(1),COUNT
      INTEGER GROUP0,GROUQ0,I
      INTEGER INTES0
      I=2
      GOTO 10011
10009 I=I+(GROUQ0+1)
10011 IF((I.GT.COUNT))GOTO 10010
        GROUP0=RS(BUF(I),8)
        GROUQ0=RT(BUF(I),8)
        IF((INTES0(GROUP0,BUF(I+1),GROUQ0).NE.-1))GOTO 10012
          GOTO 10010
10012 GOTO 10009
10010 INTER0=-2
      RETURN
      END
      INTEGER FUNCTION RDBIN(FD,BUF,COUNT)
      INTEGER FD,BUF(1),COUNT
      INTEGER CT
      INTEGER * 4 POS
      INTEGER READF,SEEKF
      INTEGER AAAAH0(39)
      DATA AAAAH0/226,236,239,227,235,160,243,233,250,229,160,168,170,23
     *3,169,160,229,248,227,229,229,228,243,160,226,245,230,230,229,242,
     *160,243,240,225,227,229,170,238,0/
      RDBIN=-1
      IF((READF(CT,1,FD).EQ.1))GOTO 10013
        RETURN
10013 IF((CT.LE.COUNT))GOTO 10014
        POS=CT-COUNT
        CALL PRINT(-15,AAAAH0,CT)
        CT=COUNT
        GOTO 10015
10014   POS=0
10015 IF((READF(BUF,CT,FD).EQ.CT))GOTO 10016
        RETURN
10016 IF((POS.EQ.0))GOTO 10017
      IF((SEEKF(POS,FD,1).EQ.-2))GOTO 10017
        RETURN
10017 RDBIN=CT
      RETURN
      END
      INTEGER FUNCTION WRBIN(FD,BUF,COUNT)
      INTEGER FD,BUF(1),COUNT
      INTEGER F,NWR,CODE
      INTEGER MAPSU
      WRBIN=-3
      IF((WRITEF(COUNT,1,FD).NE.1))GOTO 10019
      IF((WRITEF(BUF,COUNT,FD).NE.COUNT))GOTO 10019
      GOTO 10018
10019   RETURN
10018 WRBIN=-2
      RETURN
      END
      INTEGER FUNCTION INTES0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I,J
      INTEGER FINDL0
      INTEGER AAAAI0
      INTEGER AAAAJ0(22)
      INTEGER AAAAK0(9)
      INTEGER AAAAL0(9)
      INTEGER AAAAM0(10)
      INTEGER AAAAN0(7)
      INTEGER AAAAO0(9)
      INTEGER AAAAP0(10)
      INTEGER AAAAQ0(18)
      INTEGER AAAAR0(22)
      INTEGER AAAAS0(5)
      INTEGER AAAAT0(22)
      INTEGER AAAAU0(30)
      INTEGER AAAAV0(29)
      INTEGER AAAAW0(29)
      INTEGER AAAAX0(29)
      INTEGER AAAAY0(30)
      INTEGER AAAAZ0(80)
      INTEGER AAABA0
      INTEGER AAABB0(34)
      DATA AAAAJ0/228,225,244,225,160,160,170,172,173,177,176,233,168,17
     *0,172,173,184,233,169,170,238,0/
      DATA AAAAK0/170,185,248,243,230,236,170,238,0/
      DATA AAAAL0/170,185,248,242,230,236,170,238,0/
      DATA AAAAM0/170,185,248,228,228,237,160,160,160,0/
      DATA AAAAN0/229,236,237,160,160,160,0/
      DATA AAAAO0/170,185,248,237,226,242,170,238,0/
      DATA AAAAP0/170,185,248,238,182,180,242,170,238,0/
      DATA AAAAQ0/236,233,238,235,160,160,240,242,168,170,172,173,184,23
     *3,169,170,238,0/
      DATA AAAAR0/170,170,160,211,235,233,240,160,170,172,173,177,176,23
     *3,160,247,239,242,228,243,160,0/
      DATA AAAAS0/238,239,244,160,0/
      DATA AAAAT0/233,238,227,236,245,228,233,238,231,160,229,238,228,16
     *0,231,242,239,245,240,170,238,0/
      DATA AAAAU0/170,178,238,170,170,160,208,242,239,227,229,228,245,24
     *2,229,160,196,229,230,233,238,233,244,233,239,238,186,170,238,0/
      DATA AAAAV0/170,170,160,160,160,160,240,242,239,227,160,243,233,25
     *0,229,186,160,160,160,160,170,182,172,173,184,233,170,238,0/
      DATA AAAAW0/170,170,160,160,160,160,236,233,238,235,160,243,233,25
     *0,229,186,160,160,160,160,170,182,172,173,184,233,170,238,0/
      DATA AAAAX0/170,170,160,160,160,160,236,233,238,235,160,239,230,23
     *0,243,229,244,186,160,160,170,182,172,173,184,233,170,238,0/
      DATA AAAAY0/170,170,160,160,160,160,243,244,225,227,235,160,239,23
     *0,230,243,229,244,186,160,170,182,172,173,184,233,170,178,238,0/
      DATA AAAAZ0/229,227,226,160,160,160,240,242,239,227,189,170,172,17
     *3,184,233,208,172,160,236,233,238,235,189,170,172,173,184,233,204,
     *172,160,170,233,160,225,242,231,243,160,225,244,160,170,172,173,18
     *4,233,211,172,160,230,242,225,237,229,189,170,172,173,184,233,172,
     *160,235,229,249,243,189,170,182,172,173,184,172,176,233,170,238,0/
      DATA AAABB0/170,170,160,213,238,242,229,227,239,231,238,233,250,22
     *9,228,160,199,242,239,245,240,160,212,249,240,229,160,168,170,233,
     *169,170,238,0/
      AAAAI0=GT
      GOTO 10020
10021   INTES0=-1
        RETURN
10022   CALL COMMO0(GT,BUF,GS)
      GOTO 10023
10024   CALL ENTRY0(GT,BUF,GS)
      GOTO 10023
10025   CALL SETOR0(GT,BUF,GS)
      GOTO 10023
10026   CALL SETBA0(GT,BUF,GS)
      GOTO 10023
10027   CALL DATAG0(GT,BUF,GS)
      GOTO 10023
10028   CALL GENER0(GT,BUF,GS)
      GOTO 10023
10029   I=1
        GOTO 10032
10030   I=I+2
10032   IF((I.GT.GS))GOTO 10031
          CALL PRINT0
          CALL PRINT(-11,AAAAJ0,BUF(I+1),BUF(I))
          LOCAT0=LOCAT0+(BUF(I+1))
        GOTO 10030
10031 GOTO 10023
10033   CALL MEMOR0(GT,BUF,GS)
      GOTO 10023
10034   CALL ENDGR0(GT,BUF,GS)
      GOTO 10023
10035   CALL PRINT(-11,AAAAK0)
        FORCE0=.TRUE.
      GOTO 10023
10036   CALL PRINT(-11,AAAAL0)
        FORCE0=.FALSE.
      GOTO 10023
10037   CALL PRINT(-11,AAAAM0)
        CALL PRINU0(DEFAU0)
        CALL PUTCH(138,-11)
        MODEA0=DEFAU0
      GOTO 10023
10038   CALL PRINT0
        CALL PRINT(-11,AAAAN0)
        CALL PRINU0(MODEA0)
        LOCAT0=LOCAT0+(1)
      GOTO 10023
10039   CALL LINKM0(GT,BUF)
      GOTO 10023
10040   CALL PRINT(-11,AAAAO0)
      GOTO 10023
10041   CALL PRINT(-11,AAAAP0)
      GOTO 10023
10042   CALL UIIGR0(GT,BUF,GS)
      GOTO 10023
10043   I=1
        GOTO 10046
10044   I=I+(1)
10046   IF((I.GT.GS))GOTO 10045
          CALL PRINT0
          CALL PRINT(-11,AAAAQ0,BUF(I))
        GOTO 10044
10045 GOTO 10023
10047   CALL PRINT(-11,AAAAR0,BUF(2))
        IF((BUF(1).NE.0))GOTO 10048
          CALL PRINT(-11,AAAAS0)
10048   CALL PRINT(-11,AAAAT0)
      GOTO 10023
10049   CALL PRINT(-11,AAAAU0)
        CALL PRINT(-11,AAAAV0,BUF(1))
        IF((GS.LE.1))GOTO 10050
          CALL PRINT(-11,AAAAW0,BUF(2))
          CALL PRINT(-11,AAAAX0,BUF(3))
          CALL PRINT(-11,AAAAY0,BUF(4))
          LINKO0=BUF(3)
          STACK0=BUF(4)
10050   LOCAT0=0
        FRAME0=2
      GOTO 10023
10051   CALL INDIR0(GT,BUF,GS)
      GOTO 10023
10052   CALL PRINT0
        CALL PRINT(-11,AAAAZ0,BUF(1),BUF(5),BUF(4),BUF(3),BUF(2),BUF(6))
        LOCAT0=LOCAT0+(16)
      GOTO 10023
10020 AAABA0=AAAAI0+1
      GOTO(10021,10022,10024,10024,10025,10025,10026,10026,10027,10028,1
     *0029,10033,10033,10033,10034,10034,10035,10036,10037,10038,10039,1
     *0039,10040,10041,10042,10042,10025,10043,10042,10047,10049,10024,1
     *0024,10025,10025,10051,10051,10052,10034,10051,10051,10022,10051,1
     *0024,10033),AAABA0
        CALL PRINT(-11,AAABB0,GT)
        CALL DATAG0(8,BUF,GS)
10023 INTES0=-2
      RETURN
      END
      SUBROUTINE ENTRY0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER OFFSET
      INTEGER NAME(65)
      INTEGER AAABC0(14)
      INTEGER AAABD0(16)
      INTEGER AAABE0
      INTEGER AAABF0(10)
      INTEGER AAABG0(10)
      INTEGER AAABH0(10)
      INTEGER AAABI0(10)
      INTEGER AAABJ0
      DATA AAABC0/170,185,248,228,249,238,244,160,160,170,243,170,238,0/
      DATA AAABD0/170,185,248,243,245,226,242,160,160,170,243,160,225,24
     *4,160,0/
      DATA AAABF0/236,226,168,170,172,173,184,233,169,0/
      DATA AAABG0/236,226,168,170,172,173,184,233,169,0/
      DATA AAABH0/240,226,168,170,172,173,184,233,169,0/
      DATA AAABI0/240,242,168,170,172,173,184,233,169,0/
      IF((GT.NE.43))GOTO 10053
        CALL PTOC(BUF,160,NAME,MIN0(GS*2+1,65))
        GOTO 10054
10053   CALL PTOC(BUF(2),160,NAME,MIN0((GS-1)*2+1,65))
10054 IF((GT.NE.43))GOTO 10055
        CALL PRINT(-11,AAABC0,NAME)
        GOTO 10056
10055   CALL PRINT(-11,AAABD0,NAME)
        AAABE0=GT
        GOTO 10057
10058     CALL PRINT(-11,AAABF0,BUF(1)+LINKO0)
        GOTO 10059
10060     CALL PRINT(-11,AAABG0,BUF(1))
        GOTO 10059
10061     CALL PRINT(-11,AAABH0,BUF(1))
        GOTO 10059
10062     CALL PRINT(-11,AAABI0,BUF(1))
        GOTO 10059
10057   AAABJ0=AAABE0-1
        GOTO(10061,10062),AAABJ0
        AAABJ0=AAABE0-30
        GOTO(10060,10058),AAABJ0
10059   CALL PUTCH(138,-11)
10056 RETURN
      END
      SUBROUTINE COMMO0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER NAME(65)
      INTEGER AAABK0(22)
      INTEGER AAABL0(22)
      DATA AAABK0/170,185,248,227,239,237,237,160,160,170,243,160,168,17
     *0,172,173,184,236,169,170,238,0/
      DATA AAABL0/170,185,248,227,239,237,237,160,160,170,243,160,168,17
     *0,172,173,184,233,169,170,238,0/
      IF((GT.NE.41))GOTO 10063
        CALL PTOC(BUF(3),160,NAME,MIN0((GS-2)*2+1,65))
        CALL PRINT(-11,AAABK0,NAME,BUF(1))
        GOTO 10064
10063   CALL PTOC(BUF(2),160,NAME,MIN0((GS-1)*2+1,65))
        CALL PRINT(-11,AAABL0,NAME,BUF(1))
10064 RETURN
      END
      SUBROUTINE SETOR0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER OFFSET
      INTEGER NAME(65)
      INTEGER AAABM0(10)
      INTEGER AAABN0
      INTEGER AAABO0(3)
      INTEGER AAABP0(3)
      INTEGER AAABQ0(3)
      INTEGER AAABR0
      INTEGER AAABS0(12)
      DATA AAABM0/170,185,248,239,242,231,160,160,160,0/
      DATA AAABO0/236,226,0/
      DATA AAABP0/240,242,0/
      DATA AAABQ0/240,226,0/
      DATA AAABS0/170,243,168,170,172,173,184,233,169,170,238,0/
      CALL PRINT(-11,AAABM0)
      OFFSET=BUF(1)
      AAABN0=GT
      GOTO 10065
10066   CALL CTOC(AAABO0,NAME,65)
        FRAME0=1
        IF((GT.NE.34))GOTO 10067
          OFFSET=OFFSET+(LINKO0)
          GOTO 10068
10067     OFFSET=OFFSET+(256)
10068 GOTO 10069
10070   CALL CTOC(AAABP0,NAME,65)
        FRAME0=2
      GOTO 10069
10071   CALL CTOC(AAABQ0,NAME,65)
        FRAME0=3
      GOTO 10069
10072   CALL PTOC(BUF(2),160,NAME,MIN0((GS-1)*2+1,65))
        FRAME0=4
      GOTO 10069
10065 AAABR0=AAABN0-3
      GOTO(10071,10070),AAABR0
      AAABR0=AAABN0-25
      GOTO(10072,10073,10073,10073,10073,10073,10073,10066,10066),AAABR0
10073 CONTINUE
10069 CALL PRINT(-11,AAABS0,NAME,OFFSET)
      LOCAT0=OFFSET
      RETURN
      END
      SUBROUTINE DATAG0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I,COL,STATE
      INTEGER AAABT0(7)
      INTEGER AAABU0(7)
      INTEGER AAABV0(3)
      INTEGER AAABW0(5)
      INTEGER AAABX0(3)
      INTEGER AAABY0(7)
      DATA AAABT0/228,225,244,225,160,160,0/
      DATA AAABU0/228,225,244,225,160,160,0/
      DATA AAABV0/172,160,0/
      DATA AAABW0/170,172,178,232,0/
      DATA AAABX0/172,160,0/
      DATA AAABY0/170,182,172,173,184,233,0/
      CALL PRINT0
      CALL PRINT(-11,AAABT0)
      COL=1
      STATE=0
      I=1
      GOTO 10076
10074 I=I+(1)
      LOCAT0=LOCAT0+(1)
10076 IF((I.GT.GS))GOTO 10075
        IF((COL.LT.60))GOTO 10077
          IF((STATE.NE.2))GOTO 10078
            CALL PUTCH(167,-11)
10078     IF((STATE.EQ.0))GOTO 10079
            CALL PUTCH(172,-11)
10079     CALL PUTCH(138,-11)
          CALL PRINT0
          CALL PRINT(-11,AAABU0)
          STATE=0
          COL=1
10077   IF((160.GT.RS(BUF(I),8)))GOTO 10080
        IF((RS(BUF(I),8).GE.255))GOTO 10080
        IF((160.GT.RT(BUF(I),8)))GOTO 10080
        IF((RT(BUF(I),8).GE.255))GOTO 10080
          IF((STATE.NE.1))GOTO 10081
            CALL PUTLIN(AAABV0,-11)
            COL=COL+(2)
10081     IF((STATE.EQ.2))GOTO 10082
            CALL PUTCH(167,-11)
            COL=COL+(1)
10082     CALL PRINT(-11,AAABW0,BUF(I))
          STATE=2
          COL=COL+(2)
          GOTO 10083
10080     IF((STATE.NE.2))GOTO 10084
            CALL PUTCH(167,-11)
            COL=COL+(1)
10084     IF((STATE.EQ.0))GOTO 10085
            CALL PUTLIN(AAABX0,-11)
            COL=COL+(2)
10085     CALL PRINT(-11,AAABY0,BUF(I))
          STATE=1
          COL=COL+(6)
10083 GOTO 10074
10075 IF((STATE.NE.2))GOTO 10086
        CALL PUTCH(167,-11)
10086 CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE GENER0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I
      INTEGER MNEMO0(102)
      INTEGER AAABZ0(1)
      INTEGER AAACA0(5)
      DATA AAABZ0/0/
      DATA AAACA0/170,243,170,238,0/
      I=1
      GOTO 10089
10087 I=I+(1)
      LOCAT0=LOCAT0+(1)
10089 IF((I.GT.GS))GOTO 10088
        CALL PRINT0
        IF((AND(BUF(I),15360).EQ.0))GOTO 10090
          CALL PRINV0(-1,BUF(I),0,AAABZ0)
          GOTO 10091
10090     CALL LOOKU0(BUF(I),MNEMO0)
          CALL PRINT(-11,AAACA0,MNEMO0)
10091 GOTO 10087
10088 RETURN
      END
      SUBROUTINE LOOKU0(OPCODE,MNEMO0)
      INTEGER OPCODE
      INTEGER MNEMO0(102)
      INTEGER OPOS(599)
      INTEGER OTXT(4839)
      INTEGER I
      INTEGER INTBSR
      INTEGER AAACB0(9)
      DATA OTXT/0,232,236,244,0,1,238,239,240,0,5,243,231,236,0,7,228,22
     *6,236,0,8,229,182,180,246,0,9,229,177,182,243,0,11,229,179,178,243
     *,0,13,240,233,237,225,0,17,242,237,227,0,20,243,244,240,237,0,33,2
     *43,227,225,0,35,233,238,235,0,36,236,233,239,244,0,52,240,244,236,
     *226,0,65,238,242,237,0,69,242,244,238,0,73,227,229,225,0,77,240,23
     *3,228,225,0,129,233,225,226,0,133,240,233,237,0,137,240,233,228,0,
     *193,240,233,237,236,0,197,240,233,228,236,0,201,246,233,242,249,0,
     *205,247,225,233,244,0,257,229,238,226,0,261,239,244,235,0,265,227,
     *225,233,0,269,229,243,233,237,0,271,229,246,233,237,0,321,236,237,
     *227,237,0,323,229,237,227,237,0,325,243,246,227,0,385,233,242,244,
     *238,0,387,233,242,244,227,0,389,225,242,231,244,0,393,240,242,244,
     *238,0,397,233,244,236,226,0,399,236,240,233,228,0,453,227,225,236,
     *230,0,457,236,240,243,247,0,461,242,243,225,246,0,463,242,242,243,
     *244,0,513,233,238,232,0,517,244,235,225,0,520,229,179,178,233,0,52
     *1,229,182,180,242,0,523,229,179,178,242,0,525,244,225,235,0,576,24
     *8,225,228,0,577,248,237,246,0,578,248,227,237,0,580,248,237,240,0,
     *583,248,228,246,0,584,250,244,242,238,0,585,250,229,228,0,586,248,
     *229,228,0,587,248,246,242,249,0,588,250,237,246,0,589,250,237,246,
     *228,0,590,250,230,233,236,0,591,250,227,237,0,613,248,226,244,228,
     *0,614,248,228,244,226,0,640,243,244,225,227,0,644,243,244,236,227,
     *0,648,238,230,249,229,0,649,238,230,249,226,0,652,233,238,229,238,
     *0,653,233,238,226,238,0,654,233,238,229,227,0,655,233,238,226,227,
     *0,704,229,225,230,225,160,160,176,0,705,225,236,230,225,160,160,17
     *6,0,706,236,228,227,160,160,160,176,0,708,237,228,229,233,0,709,23
     *7,228,233,233,0,710,237,228,242,243,0,711,237,228,247,227,0,712,22
     *9,225,230,225,160,160,177,0,713,225,236,230,225,160,160,177,0,714,
     *236,228,227,160,160,160,177,0,716,227,231,244,0,717,243,244,229,24
     *8,0,720,243,244,230,225,160,160,176,0,721,244,236,230,236,160,160,
     *176,0,722,243,244,227,160,160,160,176,0,723,244,230,236,236,160,16
     *0,176,0,724,237,228,233,247,0,728,243,244,230,225,160,160,177,0,72
     *9,244,236,230,236,160,160,177,0,730,243,244,227,160,160,160,177,0,
     *731,244,230,236,236,160,160,177,0,896,247,227,243,160,160,160,176,
     *0,897,247,227,243,160,160,160,177,0,898,247,227,243,160,160,160,17
     *8,0,899,247,227,243,160,160,160,179,0,900,247,227,243,160,160,160,
     *180,0,901,247,227,243,160,160,160,181,0,902,247,227,243,160,160,16
     *0,182,0,903,247,227,243,160,160,160,183,0,904,247,227,243,160,160,
     *160,184,0,905,247,227,243,160,160,160,185,0,906,247,227,243,160,16
     *0,160,177,176,0,907,247,227,243,160,160,160,177,177,0,908,247,227,
     *243,160,160,160,177,178,0,909,247,227,243,160,160,160,177,179,0,91
     *0,247,227,243,160,160,160,177,180,0,911,247,227,243,160,160,160,17
     *7,181,0,912,247,227,243,160,160,160,177,182,0,913,247,227,243,160,
     *160,160,177,183,0,914,247,227,243,160,160,160,177,184,0,915,247,22
     *7,243,160,160,160,177,185,0,916,247,227,243,160,160,160,178,176,0,
     *917,247,227,243,160,160,160,178,177,0,918,247,227,243,160,160,160,
     *178,178,0,919,247,227,243,160,160,160,178,179,0,920,247,227,243,16
     *0,160,160,178,180,0,921,247,227,243,160,160,160,178,181,0,922,247,
     *227,243,160,160,160,178,182,0,923,247,227,243,160,160,160,178,183,
     *0,924,247,227,243,160,160,160,178,184,0,925,247,227,243,160,160,16
     *0,178,185,0,926,247,227,243,160,160,160,179,176,0,927,247,227,243,
     *160,160,160,179,177,0,928,247,227,243,160,160,160,179,178,0,929,24
     *7,227,243,160,160,160,179,179,0,930,247,227,243,160,160,160,179,18
     *0,0,931,247,227,243,160,160,160,179,181,0,932,247,227,243,160,160,
     *160,179,182,0,933,247,227,243,160,160,160,179,183,0,934,247,227,24
     *3,160,160,160,179,184,0,935,247,227,243,160,160,160,179,185,0,936,
     *247,227,243,160,160,160,180,176,0,937,247,227,243,160,160,160,180,
     *177,0,938,247,227,243,160,160,160,180,178,0,939,247,227,243,160,16
     *0,160,180,179,0,940,247,227,243,160,160,160,180,180,0,941,247,227,
     *243,160,160,160,180,181,0,942,247,227,243,160,160,160,180,182,0,94
     *3,247,227,243,160,160,160,180,183,0,944,247,227,243,160,160,160,18
     *0,184,0,945,247,227,243,160,160,160,180,185,0,946,247,227,243,160,
     *160,160,181,176,0,947,247,227,243,160,160,160,181,177,0,948,247,22
     *7,243,160,160,160,181,178,0,949,247,227,243,160,160,160,181,179,0,
     *950,247,227,243,160,160,160,181,180,0,951,247,227,243,160,160,160,
     *181,181,0,952,247,227,243,160,160,160,181,182,0,953,247,227,243,16
     *0,160,160,181,183,0,954,247,227,243,160,160,160,181,184,0,955,247,
     *227,243,160,160,160,181,185,0,956,247,227,243,160,160,160,182,176,
     *0,957,247,227,243,160,160,160,182,177,0,958,247,227,243,160,160,16
     *0,182,178,0,959,247,227,243,160,160,160,182,179,0,968,236,247,227,
     *243,0,972,227,248,227,243,0,16384,236,242,236,160,160,160,176,0,16
     *416,236,242,236,160,160,160,179,178,0,16417,236,242,236,160,160,16
     *0,179,177,0,16418,236,242,236,160,160,160,179,176,0,16419,236,242,
     *236,160,160,160,178,185,0,16420,236,242,236,160,160,160,178,184,0,
     *16421,236,242,236,160,160,160,178,183,0,16422,236,242,236,160,160,
     *160,178,182,0,16423,236,242,236,160,160,160,178,181,0,16424,236,24
     *2,236,160,160,160,178,180,0,16425,236,242,236,160,160,160,178,179,
     *0,16426,236,242,236,160,160,160,178,178,0,16427,236,242,236,160,16
     *0,160,178,177,0,16428,236,242,236,160,160,160,178,176,0,16429,236,
     *242,236,160,160,160,177,185,0,16430,236,242,236,160,160,160,177,18
     *4,0,16431,236,242,236,160,160,160,177,183,0,16432,236,242,236,160,
     *160,160,177,182,0,16433,236,242,236,160,160,160,177,181,0,16434,23
     *6,242,236,160,160,160,177,180,0,16435,236,242,236,160,160,160,177,
     *179,0,16436,236,242,236,160,160,160,177,178,0,16437,236,242,236,16
     *0,160,160,177,177,0,16438,236,242,236,160,160,160,177,176,0,16439,
     *236,242,236,160,160,160,185,0,16440,236,242,236,160,160,160,184,0,
     *16441,236,242,236,160,160,160,183,0,16442,236,242,236,160,160,160,
     *182,0,16443,236,242,236,160,160,160,181,0,16444,236,242,236,160,16
     *0,160,180,0,16445,236,242,236,160,160,160,179,0,16446,236,242,236,
     *160,160,160,178,0,16447,236,242,236,160,160,160,177,0,16448,236,24
     *2,243,160,160,160,176,0,16480,236,242,243,160,160,160,179,178,0,16
     *481,236,242,243,160,160,160,179,177,0,16482,236,242,243,160,160,16
     *0,179,176,0,16483,236,242,243,160,160,160,178,185,0,16484,236,242,
     *243,160,160,160,178,184,0,16485,236,242,243,160,160,160,178,183,0,
     *16486,236,242,243,160,160,160,178,182,0,16487,236,242,243,160,160,
     *160,178,181,0,16488,236,242,243,160,160,160,178,180,0,16489,236,24
     *2,243,160,160,160,178,179,0,16490,236,242,243,160,160,160,178,178,
     *0,16491,236,242,243,160,160,160,178,177,0,16492,236,242,243,160,16
     *0,160,178,176,0,16493,236,242,243,160,160,160,177,185,0,16494,236,
     *242,243,160,160,160,177,184,0,16495,236,242,243,160,160,160,177,18
     *3,0,16496,236,242,243,160,160,160,177,182,0,16497,236,242,243,160,
     *160,160,177,181,0,16498,236,242,243,160,160,160,177,180,0,16499,23
     *6,242,243,160,160,160,177,179,0,16500,236,242,243,160,160,160,177,
     *178,0,16501,236,242,243,160,160,160,177,177,0,16502,236,242,243,16
     *0,160,160,177,176,0,16503,236,242,243,160,160,160,185,0,16504,236,
     *242,243,160,160,160,184,0,16505,236,242,243,160,160,160,183,0,1650
     *6,236,242,243,160,160,160,182,0,16507,236,242,243,160,160,160,181,
     *0,16508,236,242,243,160,160,160,180,0,16509,236,242,243,160,160,16
     *0,179,0,16510,236,242,243,160,160,160,178,0,16511,236,242,243,160,
     *160,160,177,0,16512,236,242,242,160,160,160,176,0,16544,236,242,24
     *2,160,160,160,179,178,0,16545,236,242,242,160,160,160,179,177,0,16
     *546,236,242,242,160,160,160,179,176,0,16547,236,242,242,160,160,16
     *0,178,185,0,16548,236,242,242,160,160,160,178,184,0,16549,236,242,
     *242,160,160,160,178,183,0,16550,236,242,242,160,160,160,178,182,0,
     *16551,236,242,242,160,160,160,178,181,0,16552,236,242,242,160,160,
     *160,178,180,0,16553,236,242,242,160,160,160,178,179,0,16554,236,24
     *2,242,160,160,160,178,178,0,16555,236,242,242,160,160,160,178,177,
     *0,16556,236,242,242,160,160,160,178,176,0,16557,236,242,242,160,16
     *0,160,177,185,0,16558,236,242,242,160,160,160,177,184,0,16559,236,
     *242,242,160,160,160,177,183,0,16560,236,242,242,160,160,160,177,18
     *2,0,16561,236,242,242,160,160,160,177,181,0,16562,236,242,242,160,
     *160,160,177,180,0,16563,236,242,242,160,160,160,177,179,0,16564,23
     *6,242,242,160,160,160,177,178,0,16565,236,242,242,160,160,160,177,
     *177,0,16566,236,242,242,160,160,160,177,176,0,16567,236,242,242,16
     *0,160,160,185,0,16568,236,242,242,160,160,160,184,0,16569,236,242,
     *242,160,160,160,183,0,16570,236,242,242,160,160,160,182,0,16571,23
     *6,242,242,160,160,160,181,0,16572,236,242,242,160,160,160,180,0,16
     *573,236,242,242,160,160,160,179,0,16574,236,242,242,160,160,160,17
     *8,0,16575,236,242,242,160,160,160,177,0,16640,225,242,236,160,160,
     *160,176,0,16688,225,242,236,160,160,160,177,182,0,16689,225,242,23
     *6,160,160,160,177,181,0,16690,225,242,236,160,160,160,177,180,0,16
     *691,225,242,236,160,160,160,177,179,0,16692,225,242,236,160,160,16
     *0,177,178,0,16693,225,242,236,160,160,160,177,177,0,16694,225,242,
     *236,160,160,160,177,176,0,16695,225,242,236,160,160,160,185,0,1669
     *6,225,242,236,160,160,160,184,0,16697,225,242,236,160,160,160,183,
     *0,16698,225,242,236,160,160,160,182,0,16699,225,242,236,160,160,16
     *0,181,0,16700,225,242,236,160,160,160,180,0,16701,225,242,236,160,
     *160,160,179,0,16702,225,242,236,160,160,160,178,0,16703,225,242,23
     *6,160,160,160,177,0,16704,225,242,243,160,160,160,176,0,16752,225,
     *242,243,160,160,160,177,182,0,16753,225,242,243,160,160,160,177,18
     *1,0,16754,225,242,243,160,160,160,177,180,0,16755,225,242,243,160,
     *160,160,177,179,0,16756,225,242,243,160,160,160,177,178,0,16757,22
     *5,242,243,160,160,160,177,177,0,16758,225,242,243,160,160,160,177,
     *176,0,16759,225,242,243,160,160,160,185,0,16760,225,242,243,160,16
     *0,160,184,0,16761,225,242,243,160,160,160,183,0,16762,225,242,243,
     *160,160,160,182,0,16763,225,242,243,160,160,160,181,0,16764,225,24
     *2,243,160,160,160,180,0,16765,225,242,243,160,160,160,179,0,16766,
     *225,242,243,160,160,160,178,0,16767,225,242,243,160,160,160,177,0,
     *16768,225,242,242,160,160,160,176,0,16816,225,242,242,160,160,160,
     *177,182,0,16817,225,242,242,160,160,160,177,181,0,16818,225,242,24
     *2,160,160,160,177,180,0,16819,225,242,242,160,160,160,177,179,0,16
     *820,225,242,242,160,160,160,177,178,0,16821,225,242,242,160,160,16
     *0,177,177,0,16822,225,242,242,160,160,160,177,176,0,16823,225,242,
     *242,160,160,160,185,0,16824,225,242,242,160,160,160,184,0,16825,22
     *5,242,242,160,160,160,183,0,16826,225,242,242,160,160,160,182,0,16
     *827,225,242,242,160,160,160,181,0,16828,225,242,242,160,160,160,18
     *0,0,16829,225,242,242,160,160,160,179,0,16830,225,242,242,160,160,
     *160,178,0,16831,225,242,242,160,160,160,177,0,16896,236,236,236,16
     *0,160,160,176,0,16928,236,236,236,160,160,160,179,178,0,16929,236,
     *236,236,160,160,160,179,177,0,16930,236,236,236,160,160,160,179,17
     *6,0,16931,236,236,236,160,160,160,178,185,0,16932,236,236,236,160,
     *160,160,178,184,0,16933,236,236,236,160,160,160,178,183,0,16934,23
     *6,236,236,160,160,160,178,182,0,16935,236,236,236,160,160,160,178,
     *181,0,16936,236,236,236,160,160,160,178,180,0,16937,236,236,236,16
     *0,160,160,178,179,0,16938,236,236,236,160,160,160,178,178,0,16939,
     *236,236,236,160,160,160,178,177,0,16940,236,236,236,160,160,160,17
     *8,176,0,16941,236,236,236,160,160,160,177,185,0,16942,236,236,236,
     *160,160,160,177,184,0,16943,236,236,236,160,160,160,177,183,0,1694
     *4,236,236,236,160,160,160,177,182,0,16945,236,236,236,160,160,160,
     *177,181,0,16946,236,236,236,160,160,160,177,180,0,16947,236,236,23
     *6,160,160,160,177,179,0,16948,236,236,236,160,160,160,177,178,0,16
     *949,236,236,236,160,160,160,177,177,0,16950,236,236,236,160,160,16
     *0,177,176,0,16951,236,236,236,160,160,160,185,0,16952,236,236,236,
     *160,160,160,184,0,16953,236,236,236,160,160,160,183,0,16954,236,23
     *6,236,160,160,160,182,0,16955,236,236,236,160,160,160,181,0,16956,
     *236,236,236,160,160,160,180,0,16957,236,236,236,160,160,160,179,0,
     *16958,236,236,236,160,160,160,178,0,16959,236,236,236,160,160,160,
     *177,0,16960,236,236,243,160,160,160,176,0,16992,236,236,243,160,16
     *0,160,179,178,0,16993,236,236,243,160,160,160,179,177,0,16994,236,
     *236,243,160,160,160,179,176,0,16995,236,236,243,160,160,160,178,18
     *5,0,16996,236,236,243,160,160,160,178,184,0,16997,236,236,243,160,
     *160,160,178,183,0,16998,236,236,243,160,160,160,178,182,0,16999,23
     *6,236,243,160,160,160,178,181,0,17000,236,236,243,160,160,160,178,
     *180,0,17001,236,236,243,160,160,160,178,179,0,17002,236,236,243,16
     *0,160,160,178,178,0,17003,236,236,243,160,160,160,178,177,0,17004,
     *236,236,243,160,160,160,178,176,0,17005,236,236,243,160,160,160,17
     *7,185,0,17006,236,236,243,160,160,160,177,184,0,17007,236,236,243,
     *160,160,160,177,183,0,17008,236,236,243,160,160,160,177,182,0,1700
     *9,236,236,243,160,160,160,177,181,0,17010,236,236,243,160,160,160,
     *177,180,0,17011,236,236,243,160,160,160,177,179,0,17012,236,236,24
     *3,160,160,160,177,178,0,17013,236,236,243,160,160,160,177,177,0,17
     *014,236,236,243,160,160,160,177,176,0,17015,236,236,243,160,160,16
     *0,185,0,17016,236,236,243,160,160,160,184,0,17017,236,236,243,160,
     *160,160,183,0,17018,236,236,243,160,160,160,182,0,17019,236,236,24
     *3,160,160,160,181,0,17020,236,236,243,160,160,160,180,0,17021,236,
     *236,243,160,160,160,179,0,17022,236,236,243,160,160,160,178,0,1702
     *3,236,236,243,160,160,160,177,0,17024,236,236,242,160,160,160,176,
     *0,17056,236,236,242,160,160,160,179,178,0,17057,236,236,242,160,16
     *0,160,179,177,0,17058,236,236,242,160,160,160,179,176,0,17059,236,
     *236,242,160,160,160,178,185,0,17060,236,236,242,160,160,160,178,18
     *4,0,17061,236,236,242,160,160,160,178,183,0,17062,236,236,242,160,
     *160,160,178,182,0,17063,236,236,242,160,160,160,178,181,0,17064,23
     *6,236,242,160,160,160,178,180,0,17065,236,236,242,160,160,160,178,
     *179,0,17066,236,236,242,160,160,160,178,178,0,17067,236,236,242,16
     *0,160,160,178,177,0,17068,236,236,242,160,160,160,178,176,0,17069,
     *236,236,242,160,160,160,177,185,0,17070,236,236,242,160,160,160,17
     *7,184,0,17071,236,236,242,160,160,160,177,183,0,17072,236,236,242,
     *160,160,160,177,182,0,17073,236,236,242,160,160,160,177,181,0,1707
     *4,236,236,242,160,160,160,177,180,0,17075,236,236,242,160,160,160,
     *177,179,0,17076,236,236,242,160,160,160,177,178,0,17077,236,236,24
     *2,160,160,160,177,177,0,17078,236,236,242,160,160,160,177,176,0,17
     *079,236,236,242,160,160,160,185,0,17080,236,236,242,160,160,160,18
     *4,0,17081,236,236,242,160,160,160,183,0,17082,236,236,242,160,160,
     *160,182,0,17083,236,236,242,160,160,160,181,0,17084,236,236,242,16
     *0,160,160,180,0,17085,236,236,242,160,160,160,179,0,17086,236,236,
     *242,160,160,160,178,0,17087,236,236,242,160,160,160,177,0,17152,22
     *5,236,236,160,160,160,176,0,17200,225,236,236,160,160,160,177,182,
     *0,17201,225,236,236,160,160,160,177,181,0,17202,225,236,236,160,16
     *0,160,177,180,0,17203,225,236,236,160,160,160,177,179,0,17204,225,
     *236,236,160,160,160,177,178,0,17205,225,236,236,160,160,160,177,17
     *7,0,17206,225,236,236,160,160,160,177,176,0,17207,225,236,236,160,
     *160,160,185,0,17208,225,236,236,160,160,160,184,0,17209,225,236,23
     *6,160,160,160,183,0,17210,225,236,236,160,160,160,182,0,17211,225,
     *236,236,160,160,160,181,0,17212,225,236,236,160,160,160,180,0,1721
     *3,225,236,236,160,160,160,179,0,17214,225,236,236,160,160,160,178,
     *0,17215,225,236,236,160,160,160,177,0,17216,225,236,243,160,160,16
     *0,176,0,17264,225,236,243,160,160,160,177,182,0,17265,225,236,243,
     *160,160,160,177,181,0,17266,225,236,243,160,160,160,177,180,0,1726
     *7,225,236,243,160,160,160,177,179,0,17268,225,236,243,160,160,160,
     *177,178,0,17269,225,236,243,160,160,160,177,177,0,17270,225,236,24
     *3,160,160,160,177,176,0,17271,225,236,243,160,160,160,185,0,17272,
     *225,236,243,160,160,160,184,0,17273,225,236,243,160,160,160,183,0,
     *17274,225,236,243,160,160,160,182,0,17275,225,236,243,160,160,160,
     *181,0,17276,225,236,243,160,160,160,180,0,17277,225,236,243,160,16
     *0,160,179,0,17278,225,236,243,160,160,160,178,0,17279,225,236,243,
     *160,160,160,177,0,17280,225,236,242,160,160,160,176,0,17328,225,23
     *6,242,160,160,160,177,182,0,17329,225,236,242,160,160,160,177,181,
     *0,17330,225,236,242,160,160,160,177,180,0,17331,225,236,242,160,16
     *0,160,177,179,0,17332,225,236,242,160,160,160,177,178,0,17333,225,
     *236,242,160,160,160,177,177,0,17334,225,236,242,160,160,160,177,17
     *6,0,17335,225,236,242,160,160,160,185,0,17336,225,236,242,160,160,
     *160,184,0,17337,225,236,242,160,160,160,183,0,17338,225,236,242,16
     *0,160,160,182,0,17339,225,236,242,160,160,160,181,0,17340,225,236,
     *242,160,160,160,180,0,17341,225,236,242,160,160,160,179,0,17342,22
     *5,236,242,160,160,160,178,0,17343,225,236,242,160,160,160,177,0,-3
     *2768,243,235,240,0,-32767,243,242,227,0,-32766,243,242,180,0,-3276
     *4,243,242,179,0,-32760,243,242,178,0,-32752,243,242,177,0,-32738,2
     *43,243,242,0,-32736,243,250,229,0,-32704,243,236,250,0,-32640,243,
     *237,227,242,0,-32624,243,231,244,0,-32512,243,240,236,0,-32255,243
     *,243,227,0,-32254,243,243,180,0,-32252,243,243,179,0,-32248,243,24
     *3,178,0,-32240,243,243,177,0,-32226,243,243,243,0,-32224,243,238,2
     *50,0,-32192,243,236,238,0,-32128,243,237,227,243,0,-32112,243,236,
     *229,0,-32000,243,237,233,0,-16376,227,242,236,0,-16371,227,242,226
     *,0,-16370,230,228,226,236,0,-16364,227,232,243,0,-16352,227,242,22
     *5,0,-16320,243,243,240,0,-16316,248,227,225,0,-16312,243,177,225,0
     *,-16308,233,242,248,0,-16256,242,227,226,0,-16252,248,227,226,0,-1
     *6248,228,242,248,0,-16244,227,225,250,0,-16184,243,178,225,0,-1618
     *0,244,225,226,0,-16176,227,243,225,0,-16127,227,237,225,0,-16121,2
     *44,227,225,0,-16120,236,236,236,244,0,-16120,236,236,244,0,-16119,
     *236,236,229,0,-16118,236,238,229,0,-16117,236,229,241,0,-16116,236
     *,231,229,0,-16116,236,236,231,229,0,-16115,236,231,244,0,-16114,23
     *6,230,0,-16113,236,244,0,-16064,243,243,237,0,-16060,244,225,248,0
     *,-16059,244,225,249,0,-16056,230,243,250,229,0,-16055,230,243,238,
     *250,0,-16054,230,243,237,233,0,-16053,230,243,240,236,0,-16052,230
     *,243,236,229,0,-16051,230,243,231,244,0,-16040,230,227,237,0,-1603
     *9,233,238,244,225,0,-16038,230,236,244,225,0,-16037,233,238,244,23
     *6,0,-16036,230,242,238,0,-16035,230,236,244,236,0,-16024,230,236,2
     *39,244,0,-16020,233,238,244,0,-16004,228,230,227,237,0,-16000,243,
     *227,226,0,-15996,244,226,225,0,-15992,226,236,229,0,-15991,226,231
     *,244,0,-15990,226,229,241,0,-15989,226,238,229,0,-15988,226,236,23
     *6,244,0,-15988,226,236,244,0,-15987,226,231,229,0,-15987,226,236,2
     *31,229,0,-15936,226,236,236,229,0,-15935,226,236,231,244,0,-15934,
     *226,236,229,241,0,-15933,226,236,238,229,0,-15916,226,228,249,0,-1
     *5908,226,228,248,0,-15872,225,228,236,236,0,-15844,244,248,225,0,-
     *15836,227,225,242,0,-15832,227,225,236,0,-15800,236,230,236,244,0,
     *-15799,236,230,236,229,0,-15798,236,230,238,229,0,-15797,236,230,2
     *29,241,0,-15796,236,230,231,229,0,-15795,236,230,231,244,0,-15788,
     *244,249,225,0,-15776,233,227,236,0,-15738,225,177,225,0,-15736,244
     *,227,236,0,-15730,225,227,225,0,-15712,233,227,242,0,-15676,225,17
     *8,225,0,-15660,226,233,249,0,-15652,226,233,248,0,-15648,233,227,2
     *25,0,-15612,227,242,229,0,-15608,227,242,236,229,0,-15604,233,236,
     *229,0,-15552,236,227,236,244,0,-15551,236,227,236,229,0,-15550,236
     *,227,238,229,0,-15549,236,227,229,241,0,-15548,236,227,231,229,0,-
     *15547,236,227,231,244,0,-15543,236,236,236,229,0,-15542,236,236,23
     *8,229,0,-15541,236,236,229,241,0,-15539,236,236,231,244,0,-15488,2
     *26,227,236,229,0,-15487,226,227,231,244,0,-15486,226,227,229,241,0
     *,-15486,226,237,229,241,0,-15485,226,227,238,229,0,-15485,226,237,
     *238,229,0,-15484,226,227,236,244,0,-15483,226,227,231,229,0,-15420
     *,226,227,243,0,-15419,226,227,242,0,-15418,226,236,243,0,-15418,22
     *6,237,231,229,0,-15417,226,236,242,0,-15417,226,237,236,244,0,-154
     *16,226,237,231,244,0,-15415,226,237,236,229,0,-15412,242,244,241,0
     *,-15411,242,226,241,0,-15410,225,226,241,0,-15409,225,244,241,0,-1
     *5377,244,243,244,241,0/
      DATA OPOS/598,1,6,11,16,21,27,33,39,45,50,56,61,66,72,78,83,88,93,
     *99,104,109,114,120,126,132,138,143,148,153,159,165,171,177,182,188
     *,194,200,206,212,218,224,230,236,242,247,252,258,264,270,275,280,2
     *85,290,295,300,306,311,316,322,327,333,339,344,350,356,362,368,374
     *,380,386,392,398,404,413,422,431,437,443,449,455,464,473,482,487,4
     *93,502,511,520,529,535,544,553,562,571,580,589,598,607,616,625,634
     *,643,652,661,671,681,691,701,711,721,731,741,751,761,771,781,791,8
     *01,811,821,831,841,851,861,871,881,891,901,911,921,931,941,951,961
     *,971,981,991,1001,1011,1021,1031,1041,1051,1061,1071,1081,1091,110
     *1,1111,1121,1131,1141,1151,1161,1171,1181,1191,1201,1207,1213,1222
     *,1232,1242,1252,1262,1272,1282,1292,1302,1312,1322,1332,1342,1352,
     *1362,1372,1382,1392,1402,1412,1422,1432,1442,1452,1461,1470,1479,1
     *488,1497,1506,1515,1524,1533,1542,1552,1562,1572,1582,1592,1602,16
     *12,1622,1632,1642,1652,1662,1672,1682,1692,1702,1712,1722,1732,174
     *2,1752,1762,1772,1781,1790,1799,1808,1817,1826,1835,1844,1853,1862
     *,1872,1882,1892,1902,1912,1922,1932,1942,1952,1962,1972,1982,1992,
     *2002,2012,2022,2032,2042,2052,2062,2072,2082,2092,2101,2110,2119,2
     *128,2137,2146,2155,2164,2173,2182,2192,2202,2212,2222,2232,2242,22
     *52,2261,2270,2279,2288,2297,2306,2315,2324,2333,2342,2352,2362,237
     *2,2382,2392,2402,2412,2421,2430,2439,2448,2457,2466,2475,2484,2493
     *,2502,2512,2522,2532,2542,2552,2562,2572,2581,2590,2599,2608,2617,
     *2626,2635,2644,2653,2662,2672,2682,2692,2702,2712,2722,2732,2742,2
     *752,2762,2772,2782,2792,2802,2812,2822,2832,2842,2852,2862,2872,28
     *82,2892,2901,2910,2919,2928,2937,2946,2955,2964,2973,2982,2992,300
     *2,3012,3022,3032,3042,3052,3062,3072,3082,3092,3102,3112,3122,3132
     *,3142,3152,3162,3172,3182,3192,3202,3212,3221,3230,3239,3248,3257,
     *3266,3275,3284,3293,3302,3312,3322,3332,3342,3352,3362,3372,3382,3
     *392,3402,3412,3422,3432,3442,3452,3462,3472,3482,3492,3502,3512,35
     *22,3532,3541,3550,3559,3568,3577,3586,3595,3604,3613,3622,3632,364
     *2,3652,3662,3672,3682,3692,3701,3710,3719,3728,3737,3746,3755,3764
     *,3773,3782,3792,3802,3812,3822,3832,3842,3852,3861,3870,3879,3888,
     *3897,3906,3915,3924,3933,3942,3952,3962,3972,3982,3992,4002,4012,4
     *021,4030,4039,4048,4057,4066,4075,4084,4093,4098,4103,4108,4113,41
     *18,4123,4128,4133,4138,4144,4149,4154,4159,4164,4169,4174,4179,418
     *4,4189,4194,4200,4205,4210,4215,4220,4226,4231,4236,4241,4246,4251
     *,4256,4261,4266,4271,4276,4281,4286,4291,4296,4301,4307,4312,4317,
     *4322,4327,4332,4338,4343,4347,4351,4356,4361,4366,4372,4378,4384,4
     *390,4396,4402,4407,4413,4419,4425,4430,4436,4442,4447,4453,4458,44
     *63,4468,4473,4478,4483,4489,4494,4499,4505,4511,4517,4523,4529,453
     *4,4539,4545,4550,4555,4560,4566,4572,4578,4584,4590,4596,4601,4606
     *,4611,4616,4621,4626,4631,4636,4641,4646,4651,4657,4662,4668,4674,
     *4680,4686,4692,4698,4704,4710,4716,4722,4728,4734,4740,4746,4752,4
     *758,4764,4770,4775,4780,4785,4791,4796,4802,4808,4814,4819,4824,48
     *29,4834/
      DATA AAACB0/170,182,172,173,184,172,176,233,0/
      I=INTBSR(OPOS,OTXT,0,OPCODE)
      IF((I.EQ.-1))GOTO 10092
        CALL CTOC(OTXT(OPOS(I)+1),MNEMO0,102)
        GOTO 10093
10092   CALL ENCODE(MNEMO0,102,AAACB0,OPCODE)
10093 RETURN
      END
      SUBROUTINE ENDGR0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER AAACC0(10)
      INTEGER AAACD0
      INTEGER AAACE0(10)
      INTEGER AAACF0(10)
      INTEGER AAACG0(10)
      INTEGER AAACH0
      DATA AAACC0/170,185,248,229,238,228,160,160,160,0/
      DATA AAACE0/236,226,168,170,172,173,184,233,169,0/
      DATA AAACF0/240,226,168,170,172,173,184,233,169,0/
      DATA AAACG0/240,242,168,170,172,173,184,233,169,0/
      CALL PRINT(-11,AAACC0)
      AAACD0=GT
      GOTO 10094
10095   CALL PRINT(-11,AAACE0,BUF(1))
      GOTO 10096
10097   CALL PRINT(-11,AAACF0,BUF(1))
      GOTO 10096
10098   CALL PRINT(-11,AAACG0,BUF(1))
      GOTO 10096
10094 AAACH0=AAACD0-13
      GOTO(10097,10098),AAACH0
      IF(AAACD0.EQ.38)GOTO 10095
10096 CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE SETBA0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER AAACI0(10)
      INTEGER AAACJ0
      INTEGER AAACK0(10)
      INTEGER AAACL0(10)
      INTEGER AAACM0
      INTEGER AAACN0(8)
      DATA AAACI0/170,185,248,243,229,244,226,160,160,0/
      DATA AAACK0/240,226,168,170,172,173,184,233,169,0/
      DATA AAACL0/240,242,168,170,172,173,184,233,169,0/
      DATA AAACN0/168,170,172,173,184,233,169,0/
      CALL PRINT(-11,AAACI0)
      AAACJ0=GT
      GOTO 10099
10100   CALL PRINT(-11,AAACK0,BUF(1))
      GOTO 10101
10102   CALL PRINT(-11,AAACL0,BUF(1))
      GOTO 10101
10099 AAACM0=AAACJ0-5
      GOTO(10100,10102),AAACM0
10101 IF((GS.LT.2))GOTO 10103
        CALL PRINT(-11,AAACN0,BUF(2))
10103 CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE MEMOR0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I
      INTEGER NAME(65),STR(102)
      INTEGER AAACO0
      INTEGER AAACP0(1)
      INTEGER AAACQ0(14)
      INTEGER AAACR0
      DATA AAACP0/0/
      DATA AAACQ0/160,160,219,170,243,168,170,172,173,184,233,169,221,0/
      AAACO0=GT
      GOTO 10104
10105   I=1
        GOTO 10108
10106   I=I+(2)
10108   IF((I.GT.GS))GOTO 10107
          CALL PRINT0
          CALL PRINV0(BUF(I),BUF(I+1),BUF(I+2),AAACP0)
          IF((AND(BUF(I),64).EQ.0))GOTO 10109
            I=I+(1)
            LOCAT0=LOCAT0+(2)
            GOTO 10110
10109       LOCAT0=LOCAT0+(1)
10110   GOTO 10106
10107 GOTO 10111
10112   CALL PRINT0
        CALL PTOC(BUF(3),160,NAME,MIN0((GS-2)*2+1,65))
        CALL PRINV0(BUF(1),BUF(2),0,NAME)
        LOCAT0=LOCAT0+(1)
      GOTO 10111
10113   CALL PRINT0
        CALL PTOC(BUF(2),160,NAME,MIN0((GS-1)*2+1,65))
        CALL PRINV0(BUF(1),0,0,NAME)
        LOCAT0=LOCAT0+(1)
      GOTO 10111
10114   CALL PRINT0
        CALL PTOC(BUF(5),160,NAME,MIN0((GS-4)*2+1,65))
        CALL ENCODE(STR,102,AAACQ0,NAME,BUF(4))
        CALL PRINV0(BUF(1),BUF(2),BUF(3),STR)
        LOCAT0=LOCAT0+(2)
      GOTO 10111
10104 AAACR0=AAACO0-10
      GOTO(10105,10112,10113),AAACR0
      IF(AAACO0.EQ.44)GOTO 10114
10111 RETURN
      END
      SUBROUTINE PRINV0(MASK,W1,W2,EXTERN)
      INTEGER MASK,W1,W2
      INTEGER EXTERN(1)
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER MNEMO0(102)
      INTEGER A,I,X,OP,S,D,Y,OPX,BR,BASE(5)
      INTEGER * 4 MNEM(16,4)
      INTEGER AAACS0(9)
      INTEGER AAACT0(9)
      INTEGER AAACU0
      INTEGER AAACV0(10)
      INTEGER AAACW0(4)
      INTEGER AAACX0(10)
      INTEGER AAACY0(12)
      INTEGER AAACZ0(12)
      INTEGER AAADA0(7)
      INTEGER AAADB0(13)
      INTEGER AAADC0(14)
      INTEGER AAADD0(14)
      INTEGER AAADE0
      INTEGER AAADF0(3)
      INTEGER AAADG0(8)
      INTEGER AAADH0(8)
      INTEGER AAADI0(9)
      INTEGER AAADJ0(5)
      INTEGER AAADK0(10)
      INTEGER AAADL0(10)
      INTEGER AAADM0(10)
      INTEGER AAADN0(6)
      INTEGER AAADO0(9)
      INTEGER AAADP0(5)
      INTEGER AAADQ0(12)
      INTEGER AAADR0
      INTEGER AAADS0(3)
      INTEGER AAADT0(3)
      INTEGER AAADU0(3)
      INTEGER AAADV0(4)
      INTEGER AAADW0(4)
      INTEGER AAADX0(4)
      INTEGER AAADY0(4)
      DATA BASE/'pb','sb','lb','xb','pr'/
      DATA MNEM/'jmp.','lda.','ana.','sta.','era.','add.','sub.','jst.',
     *'cas.','irs.','ima.','jsy.','stx.','mpy.','div.','ldx.','eal.','fl
     *d.','stlr','fst.','ldlr','fad.','fsb.','110.','fcs.','mia.','mib.'
     *,'eio.','flx.','fmp.','fdv.','ldy.','xec.','dfld','ora.','dfst','2
     *05.','dfad','dfsb','pcl.','dfcs','eaxb','ealb','jsxb','dflx','dfmp
     *','dfdv','sty.','301.','ldl.','anl.','stl.','erl.','adl.','sbl.','
     *310.','cls.','312.','313.','314.','315.','mpl.','dvl.','jsx.'/
      DATA AAACS0/170,172,180,240,163,170,183,244,0/
      DATA AAACT0/170,182,172,173,184,172,176,233,0/
      DATA AAACV0/236,226,168,170,172,173,184,233,169,0/
      DATA AAACW0/242,170,233,0/
      DATA AAACX0/243,226,168,170,172,173,184,233,169,0/
      DATA AAACY0/236,226,168,170,172,173,184,233,169,172,248,0/
      DATA AAACZ0/243,226,168,170,172,173,184,233,169,172,248,0/
      DATA AAADA0/242,170,233,172,170,170,0/
      DATA AAADB0/243,226,168,170,172,173,184,233,169,172,170,170,0/
      DATA AAADC0/240,226,168,170,172,173,184,233,169,172,248,170,170,0/
      DATA AAADD0/240,226,168,170,172,173,184,233,169,172,170,170,248,0/
      DATA AAADF0/170,233,0/
      DATA AAADG0/228,225,227,163,170,183,244,0/
      DATA AAADH0/191,191,191,163,170,183,244,0/
      DATA AAADI0/170,172,180,240,163,170,183,244,0/
      DATA AAADJ0/230,247,228,160,0/
      DATA AAADK0/170,243,168,170,172,173,184,233,169,0/
      DATA AAADL0/240,242,168,170,172,173,184,233,169,0/
      DATA AAADM0/240,226,168,170,172,173,184,233,169,0/
      DATA AAADN0/170,243,170,183,244,0/
      DATA AAADO0/170,172,180,240,165,170,183,244,0/
      DATA AAADP0/230,247,228,160,0/
      DATA AAADQ0/170,172,178,232,168,170,172,173,184,233,169,0/
      DATA AAADS0/172,249,0/
      DATA AAADT0/172,248,0/
      DATA AAADU0/172,170,0/
      DATA AAADV0/172,249,170,0/
      DATA AAADW0/172,170,249,0/
      DATA AAADX0/172,248,170,0/
      DATA AAADY0/172,170,248,0/
      IF((MASK.NE.-1))GOTO 10115
        I=RS(W1,15)
        X=RT(RS(W1,14),1)
        OP=RT(RS(W1,10),4)
        S=RT(RS(W1,9),1)
        D=RT(W1,9)
        IF((AND(D,256).EQ.0))GOTO 10116
          D=OR(D,65024)
10116   IF((OP.NE.13))GOTO 10117
        IF((X.NE.1))GOTO 10117
          X=0
          OP=16
10117   IF((S.EQ.0))GOTO 10119
        IF((-224.GT.D))GOTO 10120
        IF((D.GT.255))GOTO 10120
        GOTO 10119
10120   GOTO 10118
10119     CALL PRINT(-11,AAACS0,MNEM(OP,1))
          GOTO 10121
10118     CALL PRINT(-11,AAACT0,W1)
10121   IF((S.NE.0))GOTO 10122
          AAACU0=LS(I,1)+X
          GOTO 10123
10124       GOTO 10125
10126         CALL PRINT(-11,AAACV0,AND(D,511))
            GOTO 10127
10128         CALL PRINT(-11,AAACW0,D)
            GOTO 10127
10129         CALL PRINT(-11,AAACX0,D)
            GOTO 10127
10125       IF((D.LT.0))GOTO 10126
            IF((D.LE.7))GOTO 10128
            IF((D.LE.255))GOTO 10129
10127     GOTO 10130
10131       IF((D.GE.0))GOTO 10132
              CALL PRINT(-11,AAACY0,AND(D,511))
              GOTO 10133
10132         CALL PRINT(-11,AAACZ0,D)
10133     GOTO 10130
10134       IF((0.GT.D))GOTO 10135
            IF((D.GT.7))GOTO 10135
              CALL PRINT(-11,AAADA0,D)
              GOTO 10136
10135         CALL PRINT(-11,AAADB0,AND(D,511))
10136     GOTO 10130
10137       IF((0.GT.D))GOTO 10138
            IF((D.GT.63))GOTO 10138
              CALL PRINT(-11,AAADC0,D)
              GOTO 10139
10138         CALL PRINT(-11,AAADD0,AND(D,511))
10139     GOTO 10130
10123     AAADE0=AAACU0+1
          GOTO(10124,10131,10134,10137),AAADE0
10130     GOTO 10140
10122     IF((-224.GT.D))GOTO 10141
          IF((D.GT.255))GOTO 10141
            CALL PUTCH('.',-11)
            IF((D.LT.0))GOTO 10142
              CALL PUTCH(171,-11)
10142       IF((D.EQ.-1))GOTO 10143
              CALL PRINT(-11,AAADF0,D+1)
10143       IF((I+X.EQ.0))GOTO 10144
              CALL PUTCH(172,-11)
10144       IF((I.EQ.0))GOTO 10145
              CALL PUTCH(170,-11)
10145       IF((X.EQ.0))GOTO 10146
              CALL PUTCH(248,-11)
10146     CONTINUE
10141   CONTINUE
10140   GOTO 10147
10115   IF((AND(MASK,192).NE.0))GOTO 10148
          I=RS(MASK,15)
          X=RT(RS(MASK,14),1)
          OP=RT(RS(MASK,10),4)
          IF((OP.NE.13))GOTO 10149
          IF((X.NE.1))GOTO 10149
            X=0
            OP=16
10149     IF((AND(MASK,1).EQ.0))GOTO 10150
            CALL PRINT(-11,AAADG0)
            GOTO 10151
10150       IF((OP.NE.0))GOTO 10152
              CALL PRINT(-11,AAADH0)
              GOTO 10153
10152         CALL PRINT(-11,AAADI0,MNEM(OP,1))
10153     CONTINUE
10151     IF((AND(MASK,4).EQ.0))GOTO 10154
            CALL PRINT(-11,AAADJ0)
10154     IF((EXTERN(1).EQ.0))GOTO 10155
            CALL PRINT(-11,AAADK0,EXTERN,W1)
            GOTO 10156
10155       IF((AND(MASK,2).EQ.0))GOTO 10157
              CALL PRINT(-11,AAADL0,W1)
              GOTO 10158
10157         CALL PRINT(-11,AAADM0,W1)
10158     CONTINUE
10156     IF((I+X.EQ.0))GOTO 10159
            CALL PUTCH(172,-11)
10159     IF((I.EQ.0))GOTO 10160
            CALL PUTCH(170,-11)
10160     IF((X.EQ.0))GOTO 10161
            CALL PUTCH(248,-11)
10161     GOTO 10162
10148     I=RS(W1,15)
          X=RT(RS(W1,14),1)
          OP=RT(RS(W1,10),4)
          Y=RT(RS(W1,4),1)
          OPX=RT(RS(W1,2),2)
          BR=RT(W1,2)
          IF((OP.NE.13))GOTO 10163
          IF((X.NE.1))GOTO 10163
            X=0
            OP=16
10163     IF((OP.NE.0))GOTO 10164
            I=0
            X=0
            Y=0
            BR=0
            CALL LOOKU0(W1,MNEMO0)
            CALL PRINT(-11,AAADN0,MNEMO0)
            GOTO 10165
10164       CALL PRINT(-11,AAADO0,MNEM(OP,OPX+1))
10165     A=W2
          IF((AND(MASK,32).EQ.0))GOTO 10166
            A=A+(LINKO0)
10166     IF((AND(MASK,16).EQ.0))GOTO 10167
            A=A+(STACK0)
10167     IF((AND(MASK,2).EQ.0))GOTO 10168
          IF((BR.NE.0))GOTO 10168
            BR=4
10168     IF((AND(MASK,4).EQ.0))GOTO 10169
            CALL PRINT(-11,AAADP0)
10169     CALL PRINT(-11,AAADQ0,BASE(BR+1),A)
          AAADR0=LS(I,2)+LS(X,1)+Y
          GOTO 10170
10171       CALL PUTLIN(AAADS0,-11)
          GOTO 10172
10173       CALL PUTLIN(AAADT0,-11)
          GOTO 10172
10174       CALL PUTLIN(AAADU0,-11)
          GOTO 10172
10175       CALL PUTLIN(AAADV0,-11)
          GOTO 10172
10176       CALL PUTLIN(AAADW0,-11)
          GOTO 10172
10177       CALL PUTLIN(AAADX0,-11)
          GOTO 10172
10178       CALL PUTLIN(AAADY0,-11)
          GOTO 10172
10170     GOTO(10171,10173,10174,10175,10176,10177,10178),AAADR0
10172     CALL PUTLIN(EXTERN,-11)
10162 CONTINUE
10147 CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE INDIR0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I
      INTEGER NAME(65)
      INTEGER AAADZ0(7)
      INTEGER AAAEA0(4)
      INTEGER AAAEB0(4)
      INTEGER AAAEC0(9)
      INTEGER AAAED0(7)
      INTEGER AAAEE0(5)
      INTEGER AAAEF0(12)
      INTEGER AAAEG0(12)
      INTEGER AAAEH0(4)
      DATA AAADZ0/233,240,160,160,160,160,0/
      DATA AAAEA0/240,242,168,0/
      DATA AAAEB0/236,226,168,0/
      DATA AAAEC0/170,172,173,184,233,169,170,238,0/
      DATA AAAED0/233,240,160,160,160,160,0/
      DATA AAAEE0/170,243,170,238,0/
      DATA AAAEF0/170,243,168,170,172,173,184,233,169,170,238,0/
      DATA AAAEG0/170,243,168,170,172,173,184,236,169,170,238,0/
      DATA AAAEH0/191,170,238,0/
      IF((GT.EQ.39))GOTO 10180
      IF((GT.EQ.40))GOTO 10180
      GOTO 10179
10180   I=1
        GOTO 10183
10181   I=I+(1)
10183   IF((I.GT.GS))GOTO 10182
          CALL PRINT0
          CALL PRINT(-11,AAADZ0)
          IF((GT.NE.39))GOTO 10184
            CALL PRINT(-11,AAAEA0)
            GOTO 10185
10184       CALL PRINT(-11,AAAEB0)
10185     CALL PRINT(-11,AAAEC0,BUF(I))
          LOCAT0=LOCAT0+(2)
        GOTO 10181
10182   GOTO 10186
10179   CALL PRINT0
        CALL PRINT(-11,AAAED0)
        IF((GT.NE.35))GOTO 10187
          CALL PTOC(BUF,160,NAME,MIN0(GS*2+1,65))
          CALL PRINT(-11,AAAEE0,NAME)
          GOTO 10188
10187     IF((GT.NE.36))GOTO 10189
            CALL PTOC(BUF(2),160,NAME,MIN0((GS-1)*2+1,65))
            CALL PRINT(-11,AAAEF0,NAME,BUF(1))
            GOTO 10190
10189       IF((GT.NE.42))GOTO 10191
              CALL PTOC(BUF(3),160,NAME,MIN0((GS-2)*2+1,65))
              CALL PRINT(-11,AAAEG0,NAME,BUF(1))
              GOTO 10192
10191         CALL PRINT(-11,AAAEH0)
10192     CONTINUE
10190   CONTINUE
10188   LOCAT0=LOCAT0+(2)
10186 RETURN
      END
      SUBROUTINE UIIGR0(GT,BUF,GS)
      INTEGER GT,BUF(1),GS
      INTEGER I,MASK
      INTEGER AAAEI0
      INTEGER AAAEJ0(20)
      INTEGER AAAEK0(25)
      INTEGER AAAEL0(4)
      INTEGER AAAEM0(16)
      INTEGER AAAEN0(17)
      INTEGER AAAEO0
      INTEGER AAAEP0(6)
      INTEGER AAAEQ0(6)
      INTEGER AAAER0(6)
      INTEGER AAAES0(6)
      INTEGER AAAET0(6)
      INTEGER AAAEU0(5)
      DATA AAAEJ0/170,170,160,205,239,228,245,236,229,160,211,233,237,24
     *5,236,225,244,229,243,0/
      DATA AAAEK0/170,170,160,204,239,225,228,160,233,230,160,193,238,24
     *9,160,208,242,229,246,233,239,245,243,160,0/
      DATA AAAEL0/170,170,160,0/
      DATA AAAEM0/205,239,228,245,236,229,160,210,229,241,245,233,242,22
     *9,243,0/
      DATA AAAEN0/160,206,239,160,213,201,201,160,200,225,238,228,236,22
     *9,242,243,0/
      DATA AAAEP0/160,240,181,176,176,0/
      DATA AAAEQ0/160,240,180,176,176,0/
      DATA AAAER0/160,228,240,230,240,0/
      DATA AAAES0/160,243,240,230,240,0/
      DATA AAAET0/160,240,179,176,176,0/
      DATA AAAEU0/160,232,243,225,0/
      IF((GT.NE.25))GOTO 10194
        CALL PRINT(-11,AAAEJ0)
        MASK=LS(BUF(1),8)
        AAAEI0=1
        GOTO 10193
10195   CALL PUTCH(138,-11)
        MASK=LS(BUF(2),8)
        GOTO 10196
10194   MASK=LS(BUF(1),8)
10196 IF((GT.NE.28))GOTO 10197
        CALL PRINT(-11,AAAEK0)
        GOTO 10198
10197   CALL PRINT(-11,AAAEL0)
10198 CALL PRINT(-11,AAAEM0)
      AAAEI0=2
      GOTO 10193
10199 CALL PUTCH(138,-11)
      RETURN
10193 IF((MASK.NE.0))GOTO 10200
        CALL PUTLIN(AAAEN0,-11)
        GOTO 10201
10200   I=1
        GOTO 10204
10202   I=I+(1)
10204   IF((I.GT.7))GOTO 10203
          MASK=LS(MASK,1)
          IF((MASK.GE.0))GOTO 10205
            AAAEO0=I
            GOTO 10206
10207         CALL PUTLIN(AAAEP0,-11)
            GOTO 10208
10209         CALL PUTLIN(AAAEQ0,-11)
            GOTO 10208
10210         CALL PUTLIN(AAAER0,-11)
            GOTO 10208
10211         CALL PUTLIN(AAAES0,-11)
            GOTO 10208
10212         CALL PUTLIN(AAAET0,-11)
            GOTO 10208
10213         CALL PUTLIN(AAAEU0,-11)
            GOTO 10208
10206       GOTO(10207,10209,10214,10210,10211,10212,10213),AAAEO0
10214       CONTINUE
10208     CONTINUE
10205   GOTO 10202
10203 CONTINUE
10201 GOTO 10215
10215 GOTO(10195,10199),AAAEI0
      GOTO 10215
      END
      SUBROUTINE LINKM0(GT,BUF)
      INTEGER GT,BUF(1)
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER I
      INTEGER AAAEV0
      INTEGER AAAEW0(5)
      INTEGER AAAEX0(10)
      INTEGER AAAEY0
      DATA AAAEW0/170,185,248,228,0/
      DATA AAAEX0/170,185,248,243,228,237,160,160,228,0/
      AAAEV0=GT
      GOTO 10216
10217   CALL PRINT(-11,AAAEW0)
        MODEA0=BUF(1)
      GOTO 10218
10219   CALL PRINT(-11,AAAEX0)
        DEFAU0=BUF(1)
      GOTO 10218
10216 AAAEY0=AAAEV0-19
      GOTO(10219,10217),AAAEY0
10218 CALL PRINU0(BUF(1))
      CALL PUTCH(138,-11)
      RETURN
      END
      SUBROUTINE PRINU0(MODE)
      INTEGER MODE
      INTEGER AAAEZ0
      INTEGER AAAFA0(4)
      INTEGER AAAFB0(4)
      INTEGER AAAFC0(4)
      INTEGER AAAFD0(4)
      INTEGER AAAFE0(4)
      INTEGER AAAFF0(4)
      INTEGER AAAFG0
      INTEGER AAAFH0(4)
      DATA AAAFA0/177,182,243,0/
      DATA AAAFB0/179,178,243,0/
      DATA AAAFC0/182,180,242,0/
      DATA AAAFD0/179,178,242,0/
      DATA AAAFE0/182,180,246,0/
      DATA AAAFF0/179,178,233,0/
      DATA AAAFH0/191,191,191,0/
      AAAEZ0=MODE
      GOTO 10220
10221   CALL PRINT(-11,AAAFA0)
      GOTO 10222
10223   CALL PRINT(-11,AAAFB0)
      GOTO 10222
10224   CALL PRINT(-11,AAAFC0)
      GOTO 10222
10225   CALL PRINT(-11,AAAFD0)
      GOTO 10222
10226   CALL PRINT(-11,AAAFE0)
      GOTO 10222
10227   CALL PRINT(-11,AAAFF0)
      GOTO 10222
10220 AAAFG0=AAAEZ0+1
      GOTO(10221,10223,10224,10225,10226,10227),AAAFG0
        CALL PRINT(-11,AAAFH0)
10222 RETURN
      END
      INTEGER FUNCTION INTBSR(POS,TAB,OFFS,OBJECT)
      INTEGER POS(1),OFFS,OBJECT
      INTEGER TAB(1)
      INTEGER I,J,K
      I=2
      J=POS(1)+1
10228   K=(I+J)/2
        GOTO 10229
10230     I=K+1
        GOTO 10231
10232     INTBSR=K
          RETURN
10229   IF((RT(INTL(TAB(POS(K)+OFFS)),16).LT.RT(INTL(OBJECT),16)))GOTO 1
     *0230
        IF((RT(INTL(TAB(POS(K)+OFFS)),16).EQ.RT(INTL(OBJECT),16)))GOTO 1
     *0232
          J=K-1
10231 CONTINUE
      IF((I.LE.J))GOTO 10228
      INTBSR=-1
      RETURN
      END
      SUBROUTINE PRINT0
      INTEGER LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0
      LOGICAL FORCE0
      COMMON /OTDCOM/LINKO0,STACK0,MODEA0,DEFAU0,LOCAT0,FRAME0,FORCE0
      INTEGER C
      INTEGER AAAFI0
      INTEGER AAAFJ0(13)
      DATA AAAFJ0/170,182,172,173,184,172,176,233,170,227,160,160,0/
      AAAFI0=FRAME0
      GOTO 10233
10234   C=208
      GOTO 10235
10236   C=160
      GOTO 10235
10237   C=204
      GOTO 10235
10238   C=195
      GOTO 10235
10233 GOTO(10237,10234,10236,10238),AAAFI0
10235 CALL PRINT(-11,AAAFJ0,LOCAT0,C)
      RETURN
      END
C ---- Long Name Map ----
C Location                       locat0
C endgroup                       endgr0
C Defaultmode                    defau0
C groupsize                      grouq0
C memoryreference                memor0
C Linkoffset                     linko0
C setbase                        setba0
C grouptype                      group0
C lookupgeneric                  looku0
C blocksize                      blocl0
C datagroup                      datag0
C Frame                          frame0
C interpretuii                   intet0
C uiigroup                       uiigr0
C findlabel                      findl0
C blocktype                      block0
C Stackoffset                    stack0
C indirectptr                    indir0
C commondefinition               commo0
C printmemref                    prinv0
C generics                       gener0
C printmode                      prinu0
C setorigin                      setor0
C printlocation                  print0
C linkmode                       linkm0
C interpretgroup                 intes0
C mnemonic                       mnemo0
C entrypoint                     entry0
C interpretblock                 inter0
C Mode                           modea0
C Forceload                      force0