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