Page 1 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 1 C ****************************************************************** 2 C ** ** 3 C ** Calculation of PAI ** 4 C ** for IBM FORTRAN77 Subset Compiler V1.00 ** 5 C ** ** 6 C ** K,Sudou.(C)1985-2002 ** 7 C ** ** 8 C ****************************************************************** 9 C 10 $NODEBUG 11 $TITLE:'CALCULATION OF PAI' 12 $SUBTITLE:'PROGRAMM FUNCTION - MAIN' 13 C ****************************************************** CALCULATION OF PAI Page 2 PROGRAMM FUNCTION - MAIN 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 14 $PAGE 15 C 16 C MAIN-PROGRAMM : MAIN ( FORT77PI ) 17 C 18 PROGRAM MAIN 19 C 20 INTEGER*4 A(252),B(252),C(10),CS,EF,I,ID,II,IP2,IS,ISS,J,K,KETA 21 & L,LD,M,MM,N,PAI(252),TE 22 COMMON PAI,A,B,L,M,ISS 23 C 24 ****** 25 OPEN(6,FILE=' ',STATUS='NEW') 26 WRITE(*,'(A\)') ' KETA(I5)=' 27 ****** 28 LD=1 29 TE=10 30 EF=239 31 READ(*,200) KETA 32 200 FORMAT(I5) 33 IS=KETA/4+1 34 ISS=IS+1 35 CALL CLEAR(PAI,ISS) 36 CALL CLEAR(A,ISS) 37 CALL CLEAR(B,ISS) 38 L=10000 39 M=1 40 A(1)=16*5 41 ID=5*5 42 C 43 DO 10 I=1,10000,4 1 44 CALL DIVID(ID,A) 1 45 II=I 1 46 CALL DIVID(II,B) 1 47 CALL ADD 1 48 IP2=I+2 1 49 CALL DIVID(ID,A) 1 50 CALL DIVID(IP2,B) 1 51 CALL SUBTR 1 52 1 IF(A(M)) 10,2,10 1 53 2 M=M+1 1 54 IF(M-ISS) 1,1,11 1 55 10 CONTINUE 56 C 57 11 CALL CLEAR(A,ISS) 58 CALL CLEAR(B,ISS) 59 M=1 60 A(1)=4*239 61 ID=EF*EF 62 C 63 DO 20 I=1,10000,4 1 64 CALL DIVID(ID,A) 1 65 II=I 1 66 CALL DIVID(II,B) 1 67 CALL SUBTR 1 68 IP2=I+2 1 69 CALL DIVID(ID,A) 1 70 CALL DIVID(IP2,B) 1 71 CALL ADD 1 72 12 IF(A(M)) 20,13,20 CALCULATION OF PAI Page 3 PROGRAMM FUNCTION - MAIN 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 1 73 13 M=M+1 1 74 IF(M-ISS) 12,12,21 1 75 20 CONTINUE 76 C 77 21 DO 99 MM=1,10 1 78 C(MM)=0 1 79 99 CONTINUE 80 C 81 DO 40 I=2,IS 1 82 N=PAI(I) 1 83 DO 30 J=1,4 2 84 K=N-N/TE*TE+LD 2 85 C(K)=C(K)+LD 2 86 N=N/TE 2 87 30 CONTINUE 1 88 40 CONTINUE 89 C 90 WRITE(6,110) KETA,PAI(1) 91 110 FORMAT(1H0,40X,30H***** CALCULATION OF PAI *****/1H0, 92 & 10X,I5,15H DECIMAL PLACES//I2,1H./) 93 CALL PRINT(IS) 94 WRITE(6,130) 95 130 FORMAT(1H0,3X,5HSUUJI,7X,5HDOSUU) 96 DO 50 I=1,10 1 97 J=I-1 1 98 WRITE(6,140) J,C(I) 1 99 140 FORMAT(1H ,6X,I2,7X,I5) 1 100 50 CONTINUE 101 C 102 STOP 103 END Name Type Offset P Class A INTEGER*4 1008 /COMMQQ/ B INTEGER*4 2016 /COMMQQ/ C INTEGER*4 2 CS INTEGER*4 ***** EF INTEGER*4 50 I INTEGER*4 70 ID INTEGER*4 66 II INTEGER*4 82 IP2 INTEGER*4 86 IS INTEGER*4 62 ISS INTEGER*4 3032 /COMMQQ/ J INTEGER*4 102 K INTEGER*4 106 KETA INTEGER*4 54 KETAL INTEGER*4 ***** L INTEGER*4 3024 /COMMQQ/ LD INTEGER*4 42 M INTEGER*4 3028 /COMMQQ/ MM INTEGER*4 94 N INTEGER*4 98 PAI INTEGER*4 0 /COMMQQ/ TE INTEGER*4 46 104 $SUBTITLE:'PROGRAMM FUNCTION - CLEAR' CALCULATION OF PAI Page 4 PROGRAMM FUNCTION - CLEAR 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 105 $PAGE 106 C 107 C SUB-PROGRAMM : CLEAR 108 C 109 SUBROUTINE CLEAR(U,V) 110 C 111 INTEGER*4 I,U(252),V 112 C 113 DO 10 I=1,V 1 114 U(I)=0 1 115 10 CONTINUE 116 C 117 RETURN 118 END Name Type Offset P Class I INTEGER*4 252 U INTEGER*4 2 * V INTEGER*4 6 * 119 $SUBTITLE:'PROGRAMM FUNCTION - DIVID' CALCULATION OF PAI Page 5 PROGRAMM FUNCTION - DIVID 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 120 $PAGE 121 C 122 C SUB-PROGRAMM : DIVIDE 123 C 124 SUBROUTINE DIVID(NN,AB) 125 C 126 INTEGER*4 A(252),AB(252),B(252),I,ISS,L,M,NN,O,PAI(252),R 127 COMMON PAI,A,B,L,M,ISS 128 C 129 R=0 130 DO 10 I=M,ISS 1 131 O=A(I)+R*L 1 132 AB(I)=O/NN 1 133 R=O-NN*AB(I) 1 134 10 CONTINUE 135 C 136 RETURN 137 END Name Type Offset P Class A INTEGER*4 1008 /COMMQQ/ AB INTEGER*4 6 * B INTEGER*4 2016 /COMMQQ/ I INTEGER*4 264 ISS INTEGER*4 3032 /COMMQQ/ L INTEGER*4 3024 /COMMQQ/ M INTEGER*4 3028 /COMMQQ/ NN INTEGER*4 2 * O INTEGER*4 272 PAI INTEGER*4 0 /COMMQQ/ R INTEGER*4 260 138 $SUBTITLE:'PROGRAMM FUNCTION - ADD' CALCULATION OF PAI Page 6 PROGRAMM FUNCTION - ADD 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 139 $PAGE 140 C 141 C SUB-PROGRAMM : ADD 142 C 143 SUBROUTINE ADD 144 C 145 INTEGER*4 A(252),B(252),I,IC,ISS,J,L,M,PAI(252) 146 COMMON PAI,A,B,L,M,ISS 147 C 148 IC=0 149 DO 10 I=M,ISS 1 150 J=M+ISS-I 1 151 PAI(J)=PAI(J)+B(J)+IC 1 152 IC=0 1 153 IF(PAI(J)-L) 10,1,1 1 154 1 PAI(J)=PAI(J)-L 1 155 IC=1 1 156 10 CONTINUE 157 C 158 RETURN 159 END Name Type Offset P Class A INTEGER*4 1008 /COMMQQ/ B INTEGER*4 2016 /COMMQQ/ I INTEGER*4 280 IC INTEGER*4 276 ISS INTEGER*4 3032 /COMMQQ/ J INTEGER*4 288 L INTEGER*4 3024 /COMMQQ/ M INTEGER*4 3028 /COMMQQ/ PAI INTEGER*4 0 /COMMQQ/ 160 $SUBTITLE:'PROGRAMM FUNCTION - SUBTR' CALCULATION OF PAI Page 7 PROGRAMM FUNCTION - SUBTR 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 161 $PAGE 162 C 163 C SUB-PROGRAMM : SUBTRACT 164 C 165 SUBROUTINE SUBTR 166 C 167 INTEGER*4 A(252),B(252),I,IB,ISS,J,L,M,PAI(252) 168 COMMON PAI,A,B,L,M,ISS 169 C 170 IB=0 171 DO 10 I=M,ISS 1 172 J=M+ISS-I 1 173 PAI(J)=PAI(J)-B(J)-IB 1 174 IB=0 1 175 IF(PAI(J)) 1,10,10 1 176 1 PAI(J)=PAI(J)+L 1 177 IB=1 1 178 10 CONTINUE 179 C 180 RETURN 181 END Name Type Offset P Class A INTEGER*4 1008 /COMMQQ/ B INTEGER*4 2016 /COMMQQ/ I INTEGER*4 300 IB INTEGER*4 296 ISS INTEGER*4 3032 /COMMQQ/ J INTEGER*4 308 L INTEGER*4 3024 /COMMQQ/ M INTEGER*4 3028 /COMMQQ/ PAI INTEGER*4 0 /COMMQQ/ 182 $SUBTITLE:'PROGRAMM FUNCTION - PRINT' CALCULATION OF PAI Page 8 PROGRAMM FUNCTION - PRINT 10-06-92 17:59:13 D Line# 1 7 IBM Personal Computer FORTRAN Compiler V1.00 183 $PAGE 184 C 185 C SUB-PROGRAMM : PRINT 186 C 187 SUBROUTINE PRINT(IS) 188 C 189 INTEGER*4 I,IS,J,K2,K3,K4,KO(100),L,PAI(252) 190 COMMON PAI 191 C 192 I=2 193 20 DO 10 J=1,100,4 1 194 K2=PAI(I) 1 195 KO(J)=K2/1000 1 196 K3=MOD(K2,1000) 1 197 KO(J+1)=K3/100 1 198 K4=MOD(K3,100) 1 199 KO(J+2)=K4/10 1 200 KO(J+3)=MOD(K4,10) 1 201 I=I+1 1 202 10 CONTINUE 203 C 204 WRITE(6,120) (KO(L),L=1,100) 205 120 FORMAT(1H ,10(1X,10I1)) 206 IF(I.LE.IS) GO TO 20 207 C 208 RETURN 209 END Name Type Offset P Class I INTEGER*4 716 IS INTEGER*4 2 * J INTEGER*4 720 K2 INTEGER*4 732 K3 INTEGER*4 736 K4 INTEGER*4 740 KO INTEGER*4 316 L INTEGER*4 744 MOD INTRINSIC PAI INTEGER*4 0 /COMMQQ/ Name Type Size Class ADD SUBROUTINE CLEAR SUBROUTINE COMMQQ 3036 COMMON DIVID SUBROUTINE MAIN PROGRAM PRINT SUBROUTINE SUBTR SUBROUTINE Pass One No Errors Detected 209 Source Lines L25:  Procedure/Function : MAIN ** 000001 PUSH BP ** 000002 MOV BP,SP ** 000004 ADD BP,04H ** 000007 SUB SP,000EH ** 00000B MOV DX,0006H ** 00000E PUSH DX ** 00000F MOV DX,0001H ** 000012 PUSH DX ** 000013 MOV DI,@@+6 ** 000016 PUSH DS ** 000017 PUSH DI ** 000018 XOR CX,CX ** 00001A PUSH CX ** 00001B PUSH CX ** 00001C PUSH DX ** 00001D PUSH DX ** 00001E LCALL OPNVQQ L26: ** 000023 XOR DX,DX ** 000025 PUSH DX ** 000026 PUSH DX ** 000027 LCALL GOXVQQ ** 00002C MOV DX,0004H ** 00002F PUSH DX ** 000030 MOV DI,@@+7 ** 000033 PUSH DS ** 000034 PUSH DI ** 000035 LCALL FMTVQQ ** 00003A MOV DX,0001H ** 00003D PUSH DX ** 00003E MOV DX,000AH ** 000041 PUSH DX ** 000042 MOV DI,@@+11 ** 000045 PUSH DS ** 000046 PUSH DI ** 000047 LCALL WACVQQ ** 00004C XOR DX,DX ** 00004E PUSH DX ** 00004F LCALL WTFVQQ L28: ** 000054 LES BX,+21 ** 000058 MOV LD,BX ** 00005C MOV LD+2,ES L29: ** 000060 LES BX,+25 ** 000064 MOV TE,BX ** 000068 MOV TE+2,ES L30: ** 00006C LES BX,+29 ** 000070 MOV EF,BX ** 000074 MOV EF+2,ES L31: ** 000078 XOR DX,DX ** 00007A PUSH DX ** 00007B MOV DX,0001H ** 00007E PUSH DX ** 00007F LCALL GOXVQQ ** 000084 MOV DX,7FFFH ** 000087 PUSH DX ** 000088 MOV DI,@@200 ** 00008B PUSH DS ** 00008C PUSH DI ** 00008D LCALL FMTVQQ ** 000092 MOV DI,@@KETA ** 000095 PUSH DS ** 000096 PUSH DI ** 000097 LCALL RTNVQQ ** 00009C XOR DX,DX ** 00009E PUSH DX ** 00009F LCALL RTFVQQ L33: ** 0000A4 MOV DX,0001H ** 0000A7 PUSH DX ** 0000A8 LCALL INTNQQ ** 0000AD PUSH ES ** 0000AE PUSH BX ** 0000AF PUSH KETA+2 ** 0000B3 PUSH KETA ** 0000B7 MOV DX,0004H ** 0000BA PUSH DX ** 0000BB LCALL INTNQQ ** 0000C0 PUSH ES ** 0000C1 PUSH BX ** 0000C2 LCALL DIVNQQ ** 0000C7 PUSH ES ** 0000C8 PUSH BX ** 0000C9 LCALL ADDNQQ ** 0000CE MOV IS,BX ** 0000D2 MOV IS+2,ES L34: ** 0000D6 MOV DX,0001H ** 0000D9 PUSH DX ** 0000DA LCALL INTNQQ ** 0000DF PUSH ES ** 0000E0 PUSH BX ** 0000E1 PUSH IS+2 ** 0000E5 PUSH IS ** 0000E9 LCALL ADDNQQ ** 0000EE MOV COMMQQ+3032,BX ** 0000F2 MOV COMMQQ+3034,ES L35: ** 0000F6 MOV DI,@@COMMQQ ** 0000F9 PUSH DS ** 0000FA PUSH DI ** 0000FB MOV DI,@@COMMQQ+3032 ** 0000FE PUSH DS ** 0000FF PUSH DI ** 000100 LCALL CLEAR I1: L36: ** 000105 MOV DI,@@COMMQQ+1008 ** 000108 PUSH DS ** 000109 PUSH DI ** 00010A MOV DI,@@COMMQQ+3032 ** 00010D PUSH DS ** 00010E PUSH DI ** 00010F LCALL CLEAR L37: ** 000114 MOV DI,@@COMMQQ+2016 ** 000117 PUSH DS ** 000118 PUSH DI ** 000119 MOV DI,@@COMMQQ+3032 ** 00011C PUSH DS ** 00011D PUSH DI ** 00011E LCALL CLEAR L38: ** 000123 LES BX,+33 ** 000127 MOV COMMQQ+3024,BX ** 00012B MOV COMMQQ+3026,ES L39: ** 00012F LES BX,+37 ** 000133 MOV COMMQQ+3028,BX ** 000137 MOV COMMQQ+3030,ES L40: ** 00013B MOV DX,0050H ** 00013E PUSH DX ** 00013F LCALL INTNQQ ** 000144 MOV COMMQQ+1008,BX ** 000148 MOV COMMQQ+1010,ES L41: ** 00014C MOV DX,0019H ** 00014F PUSH DX ** 000150 LCALL INTNQQ ** 000155 MOV ID,BX ** 000159 MOV ID+2,ES L43: ** 00015D LES BX,+41 ** 000161 MOV I,BX ** 000165 MOV I+2,ES ** 000169 LES BX,+45 ** 00016D MOV 0ATMPU,BX ** 000171 MOV 0ATMPU+2,ES ** 000175 LES BX,+49 ** 000179 MOV 0BTMPI,BX ** 00017D MOV 0BTMPI+2,ES ** 000181 JMP I2 I3: L44: ** 000184 MOV DI,@@ID ** 000187 PUSH DS ** 000188 PUSH DI ** 000189 MOV DI,@@COMMQQ+1008 ** 00018C PUSH DS ** 00018D PUSH DI ** 00018E LCALL DIVID L45: ** 000193 LES BX,I ** 000197 MOV II,BX ** 00019B MOV II+2,ES L46: ** 00019F MOV DI,@@II ** 0001A2 PUSH DS ** 0001A3 PUSH DI ** 0001A4 MOV DI,@@COMMQQ+2016 ** 0001A7 PUSH DS ** 0001A8 PUSH DI ** 0001A9 LCALL DIVID L47: ** 0001AE LCALL ADD L48: ** 0001B3 MOV DX,0002H ** 0001B6 PUSH DX ** 0001B7 LCALL INTNQQ ** 0001BC PUSH ES ** 0001BD PUSH BX ** 0001BE PUSH I+2 ** 0001C2 PUSH I ** 0001C6 LCALL ADDNQQ ** 0001CB MOV IP2,BX ** 0001CF MOV IP2+2,ES L49: ** 0001D3 MOV DI,@@ID ** 0001D6 PUSH DS ** 0001D7 PUSH DI ** 0001D8 MOV DI,@@COMMQQ+1008 ** 0001DB PUSH DS ** 0001DC PUSH DI ** 0001DD LCALL DIVID L50: ** 0001E2 MOV DI,@@IP2 ** 0001E5 PUSH DS ** 0001E6 PUSH DI ** 0001E7 MOV DI,@@COMMQQ+2016 ** 0001EA PUSH DS ** 0001EB PUSH DI ** 0001EC LCALL DIVID L51: ** 0001F1 LCALL SUBTR L52: U0F46: ** 0001F6 PUSH COMMQQ+3030 ** 0001FA PUSH COMMQQ+3028 ** 0001FE PUSH +55 ** 000202 PUSH +53 ** 000206 LCALL SUBNQQ ** 00020B PUSH ES ** 00020C PUSH BX ** 00020D LCALL CVSNQQ ** 000212 XCHG AX,DI ** 000213 SHL DI,1 ** 000215 SHL DI,1 ** 000217 LES BX,COMMQQ+1008[DI] ** 00021B MOV 0CTMPF,BX ** 00021F MOV 0CTMPF+2,ES ** 000223 PUSH 0CTMPF+2 ** 000227 PUSH 0CTMPF ** 00022B PUSH +59 ** 00022F PUSH +57 ** 000233 LCALL CLTNQQ ** 000238 SHR AX,1 ** 00023A JB I4 ** 00023C PUSH +63 ** 000240 PUSH +61 ** 000244 PUSH 0CTMPF+2 ** 000248 PUSH 0CTMPF ** 00024C LCALL CLTNQQ ** 000251 SHR AX,1 ** 000253 JAE I5 ** 000255 JMP U0F54 I5: ** 000258 JMP U0F38 I4: ** 00025B JMP U0F54 L53: U0F38: ** 00025E MOV DX,0001H ** 000261 PUSH DX ** 000262 LCALL INTNQQ ** 000267 PUSH ES ** 000268 PUSH BX ** 000269 PUSH COMMQQ+3030 ** 00026D PUSH COMMQQ+3028 ** 000271 LCALL ADDNQQ ** 000276 MOV COMMQQ+3028,BX ** 00027A MOV COMMQQ+3030,ES L54: ** 00027E PUSH COMMQQ+3030 ** 000282 PUSH COMMQQ+3028 ** 000286 PUSH COMMQQ+3034 ** 00028A PUSH COMMQQ+3032 ** 00028E LCALL SUBNQQ ** 000293 MOV 0CTMPF,BX ** 000297 MOV 0CTMPF+2,ES ** 00029B PUSH 0CTMPF+2 ** 00029F PUSH 0CTMPF ** 0002A3 PUSH +67 ** 0002A7 PUSH +65 ** 0002AB LCALL CLTNQQ ** 0002B0 SHR AX,1 ** 0002B2 JB I6 ** 0002B4 PUSH +71 ** 0002B8 PUSH +69 ** 0002BC PUSH 0CTMPF+2 ** 0002C0 PUSH 0CTMPF ** 0002C4 LCALL CLTNQQ ** 0002C9 SHR AX,1 ** 0002CB JAE I7 ** 0002CD JMP U0F2A I7: ** 0002D0 JMP U0F46 I6: ** 0002D3 JMP U0F46 L55: U0F54: ** 0002D6 PUSH 0BTMPI+2 ** 0002DA PUSH 0BTMPI ** 0002DE PUSH I+2 ** 0002E2 PUSH I ** 0002E6 LCALL ADDNQQ ** 0002EB MOV I,BX ** 0002EF MOV I+2,ES I2: ** 0002F3 PUSH +75 ** 0002F7 PUSH +73 ** 0002FB PUSH 0BTMPI+2 ** 0002FF PUSH 0BTMPI ** 000303 LCALL CLTNQQ ** 000308 PUSH 0ATMPU+2 ** 00030C PUSH 0ATMPU ** 000310 PUSH I+2 ** 000314 PUSH I ** 000318 MOV [BP].F0H,AX ** 00031B LCALL CLTNQQ ** 000320 CMP AL,[BP].F0H ** 000323 MOV DX,0000H ** 000326 JE $+1 ** 000328 INC DX ** 000329 SHR DX,1 ** 00032B JAE $+3 ** 00032D JMP I3 ** 000330 PUSH I+2 ** 000334 PUSH I ** 000338 PUSH 0ATMPU+2 ** 00033C PUSH 0ATMPU ** 000340 LCALL CEQNQQ ** 000345 SHR AX,1 ** 000347 JAE $+3 ** 000349 JMP I3 L57: U0F2A: ** 00034C MOV DI,@@COMMQQ+1008 ** 00034F PUSH DS ** 000350 PUSH DI ** 000351 MOV DI,@@COMMQQ+3032 ** 000354 PUSH DS ** 000355 PUSH DI ** 000356 LCALL CLEAR L58: ** 00035B MOV DI,@@COMMQQ+2016 ** 00035E PUSH DS ** 00035F PUSH DI ** 000360 MOV DI,@@COMMQQ+3032 ** 000363 PUSH DS ** 000364 PUSH DI ** 000365 LCALL CLEAR L59: ** 00036A LES BX,+77 ** 00036E MOV COMMQQ+3028,BX ** 000372 MOV COMMQQ+3030,ES L60: ** 000376 MOV DX,03BCH ** 000379 PUSH DX ** 00037A LCALL INTNQQ ** 00037F MOV COMMQQ+1008,BX ** 000383 MOV COMMQQ+1010,ES L61: ** 000387 PUSH EF+2 ** 00038B PUSH EF ** 00038F PUSH EF+2 ** 000393 PUSH EF ** 000397 LCALL MULNQQ ** 00039C MOV ID,BX ** 0003A0 MOV ID+2,ES L63: ** 0003A4 LES BX,+81 ** 0003A8 MOV I,BX ** 0003AC MOV I+2,ES ** 0003B0 LES BX,+85 ** 0003B4 MOV 0ATMPU,BX ** 0003B8 MOV 0ATMPU+2,ES ** 0003BC LES BX,+89 ** 0003C0 MOV 0BTMPI,BX ** 0003C4 MOV 0BTMPI+2,ES ** 0003C8 JMP I8 I9: L64: ** 0003CB MOV DI,@@ID ** 0003CE PUSH DS ** 0003CF PUSH DI ** 0003D0 MOV DI,@@COMMQQ+1008 ** 0003D3 PUSH DS ** 0003D4 PUSH DI ** 0003D5 LCALL DIVID L65: ** 0003DA LES BX,I ** 0003DE MOV II,BX ** 0003E2 MOV II+2,ES L66: ** 0003E6 MOV DI,@@II ** 0003E9 PUSH DS ** 0003EA PUSH DI ** 0003EB MOV DI,@@COMMQQ+2016 ** 0003EE PUSH DS ** 0003EF PUSH DI ** 0003F0 LCALL DIVID L67: ** 0003F5 LCALL SUBTR L68: ** 0003FA MOV DX,0002H ** 0003FD PUSH DX ** 0003FE LCALL INTNQQ ** 000403 PUSH ES ** 000404 PUSH BX ** 000405 PUSH I+2 ** 000409 PUSH I ** 00040D LCALL ADDNQQ ** 000412 MOV IP2,BX ** 000416 MOV IP2+2,ES L69: ** 00041A MOV DI,@@ID ** 00041D PUSH DS ** 00041E PUSH DI ** 00041F MOV DI,@@COMMQQ+1008 ** 000422 PUSH DS ** 000423 PUSH DI ** 000424 LCALL DIVID L70: ** 000429 MOV DI,@@IP2 ** 00042C PUSH DS ** 00042D PUSH DI ** 00042E MOV DI,@@COMMQQ+2016 ** 000431 PUSH DS ** 000432 PUSH DI ** 000433 LCALL DIVID L71: ** 000438 LCALL ADD L72: U0F0E: ** 00043D PUSH COMMQQ+3030 ** 000441 PUSH COMMQQ+3028 ** 000445 PUSH +95 ** 000449 PUSH +93 ** 00044D LCALL SUBNQQ ** 000452 PUSH ES ** 000453 PUSH BX ** 000454 LCALL CVSNQQ ** 000459 XCHG AX,DI ** 00045A SHL DI,1 ** 00045C SHL DI,1 ** 00045E LES BX,COMMQQ+1008[DI] ** 000462 MOV 0CTMPF,BX ** 000466 MOV 0CTMPF+2,ES ** 00046A PUSH 0CTMPF+2 ** 00046E PUSH 0CTMPF ** 000472 PUSH +99 ** 000476 PUSH +97 ** 00047A LCALL CLTNQQ ** 00047F SHR AX,1 ** 000481 JB I10 ** 000483 PUSH +103 ** 000487 PUSH +101 ** 00048B PUSH 0CTMPF+2 ** 00048F PUSH 0CTMPF ** 000493 LCALL CLTNQQ ** 000498 SHR AX,1 ** 00049A JAE I11 ** 00049C JMP U0F1C I11: ** 00049F JMP U0F00 I10: ** 0004A2 JMP U0F1C L73: U0F00: ** 0004A5 MOV DX,0001H ** 0004A8 PUSH DX ** 0004A9 LCALL INTNQQ ** 0004AE PUSH ES ** 0004AF PUSH BX ** 0004B0 PUSH COMMQQ+3030 ** 0004B4 PUSH COMMQQ+3028 ** 0004B8 LCALL ADDNQQ ** 0004BD MOV COMMQQ+3028,BX ** 0004C1 MOV COMMQQ+3030,ES L74: ** 0004C5 PUSH COMMQQ+3030 ** 0004C9 PUSH COMMQQ+3028 ** 0004CD PUSH COMMQQ+3034 ** 0004D1 PUSH COMMQQ+3032 ** 0004D5 LCALL SUBNQQ ** 0004DA MOV 0CTMPF,BX ** 0004DE MOV 0CTMPF+2,ES ** 0004E2 PUSH 0CTMPF+2 ** 0004E6 PUSH 0CTMPF ** 0004EA PUSH +107 ** 0004EE PUSH +105 ** 0004F2 LCALL CLTNQQ ** 0004F7 SHR AX,1 ** 0004F9 JB I12 ** 0004FB PUSH +111 ** 0004FF PUSH +109 ** 000503 PUSH 0CTMPF+2 ** 000507 PUSH 0CTMPF ** 00050B LCALL CLTNQQ ** 000510 SHR AX,1 ** 000512 JAE I13 ** 000514 JMP U0EF2 I13: ** 000517 JMP U0F0E I12: ** 00051A JMP U0F0E L75: U0F1C: ** 00051D PUSH 0BTMPI+2 ** 000521 PUSH 0BTMPI ** 000525 PUSH I+2 ** 000529 PUSH I ** 00052D LCALL ADDNQQ ** 000532 MOV I,BX ** 000536 MOV I+2,ES I8: ** 00053A PUSH +115 ** 00053E PUSH +113 ** 000542 PUSH 0BTMPI+2 ** 000546 PUSH 0BTMPI ** 00054A LCALL CLTNQQ ** 00054F PUSH 0ATMPU+2 ** 000553 PUSH 0ATMPU ** 000557 PUSH I+2 ** 00055B PUSH I ** 00055F MOV [BP].F0H,AX ** 000562 LCALL CLTNQQ ** 000567 CMP AL,[BP].F0H ** 00056A MOV DX,0000H ** 00056D JE $+1 ** 00056F INC DX ** 000570 SHR DX,1 ** 000572 JAE $+3 ** 000574 JMP I9 ** 000577 PUSH I+2 ** 00057B PUSH I ** 00057F PUSH 0ATMPU+2 ** 000583 PUSH 0ATMPU ** 000587 LCALL CEQNQQ ** 00058C SHR AX,1 ** 00058E JAE $+3 ** 000590 JMP I9 L77: U0EF2: ** 000593 LES BX,+117 ** 000597 MOV MM,BX ** 00059B MOV MM+2,ES ** 00059F LES BX,+121 ** 0005A3 MOV 0ATMPU,BX ** 0005A7 MOV 0ATMPU+2,ES ** 0005AB JMP I14 I15: L78: ** 0005AD PUSH MM+2 ** 0005B1 PUSH MM ** 0005B5 PUSH +127 ** 0005B9 PUSH +125 ** 0005BD LCALL SUBNQQ ** 0005C2 PUSH ES ** 0005C3 PUSH BX ** 0005C4 LCALL CVSNQQ ** 0005C9 XCHG AX,DI ** 0005CA SHL DI,1 ** 0005CC SHL DI,1 ** 0005CE LES BX,+129 ** 0005D2 MOV C[DI],BX ** 0005D6 MOV C+2[DI],ES L79: U0EE4: ** 0005DA PUSH +135 ** 0005DE PUSH +133 ** 0005E2 PUSH MM+2 ** 0005E6 PUSH MM ** 0005EA LCALL ADDNQQ ** 0005EF MOV MM,BX ** 0005F3 MOV MM+2,ES I14: ** 0005F7 PUSH MM+2 ** 0005FB PUSH MM ** 0005FF PUSH 0ATMPU+2 ** 000603 PUSH 0ATMPU ** 000607 LCALL CLENQQ ** 00060C SHR AX,1 ** 00060E JB I15 L81: ** 000610 LES BX,+137 ** 000614 MOV I,BX ** 000618 MOV I+2,ES ** 00061C LES BX,IS ** 000620 MOV 0ATMPU,BX ** 000624 MOV 0ATMPU+2,ES ** 000628 JMP I16 I17: L82: ** 00062B PUSH I+2 ** 00062F PUSH I ** 000633 PUSH +143 ** 000637 PUSH +141 ** 00063B LCALL SUBNQQ ** 000640 PUSH ES ** 000641 PUSH BX ** 000642 LCALL CVSNQQ ** 000647 XCHG AX,DI ** 000648 SHL DI,1 ** 00064A SHL DI,1 ** 00064C LES BX,COMMQQ[DI] ** 000650 MOV N,BX ** 000654 MOV N+2,ES L83: ** 000658 LES BX,+145 ** 00065C MOV J,BX ** 000660 MOV J+2,ES ** 000664 LES BX,+149 ** 000668 MOV 0BTMPI,BX ** 00066C MOV 0BTMPI+2,ES ** 000670 JMP I18 I19: L84: ** 000673 PUSH LD+2 ** 000677 PUSH LD ** 00067B PUSH N+2 ** 00067F PUSH N ** 000683 PUSH TE+2 ** 000687 PUSH TE ** 00068B PUSH N+2 ** 00068F PUSH N ** 000693 PUSH TE+2 ** 000697 PUSH TE ** 00069B LCALL DIVNQQ ** 0006A0 PUSH ES ** 0006A1 PUSH BX ** 0006A2 LCALL MULNQQ ** 0006A7 PUSH ES ** 0006A8 PUSH BX ** 0006A9 LCALL SUBNQQ ** 0006AE PUSH ES ** 0006AF PUSH BX ** 0006B0 LCALL ADDNQQ ** 0006B5 MOV K,BX ** 0006B9 MOV K+2,ES L85: ** 0006BD PUSH LD+2 ** 0006C1 PUSH LD ** 0006C5 PUSH K+2 ** 0006C9 PUSH K ** 0006CD PUSH +159 ** 0006D1 PUSH +157 ** 0006D5 LCALL SUBNQQ ** 0006DA PUSH ES ** 0006DB PUSH BX ** 0006DC LCALL CVSNQQ ** 0006E1 XCHG AX,DI ** 0006E2 SHL DI,1 ** 0006E4 SHL DI,1 ** 0006E6 LES BX,C[DI] ** 0006EA PUSH ES ** 0006EB PUSH BX ** 0006EC LCALL ADDNQQ ** 0006F1 PUSH BX ** 0006F2 PUSH ES ** 0006F3 PUSH K+2 ** 0006F7 PUSH K ** 0006FB PUSH +155 ** 0006FF PUSH +153 ** 000703 LCALL SUBNQQ ** 000708 PUSH ES ** 000709 PUSH BX ** 00070A LCALL CVSNQQ ** 00070F XCHG AX,DI ** 000710 SHL DI,1 ** 000712 SHL DI,1 ** 000714 POP ES ** 000715 POP BX ** 000716 MOV C[DI],BX ** 00071A MOV C+2[DI],ES L86: ** 00071E PUSH N+2 ** 000722 PUSH N ** 000726 PUSH TE+2 ** 00072A PUSH TE ** 00072E MOV [BP].F0H,DI ** 000731 LCALL DIVNQQ ** 000736 MOV N,BX ** 00073A MOV N+2,ES L87: U0EC8: ** 00073E PUSH +163 ** 000742 PUSH +161 ** 000746 PUSH J+2 ** 00074A PUSH J ** 00074E LCALL ADDNQQ ** 000753 MOV J,BX ** 000757 MOV J+2,ES I18: ** 00075B PUSH J+2 ** 00075F PUSH J ** 000763 PUSH 0BTMPI+2 ** 000767 PUSH 0BTMPI ** 00076B LCALL CLENQQ ** 000770 SHR AX,1 ** 000772 JAE $+3 ** 000774 JMP I19 L88: U0ED6: ** 000777 PUSH +167 ** 00077B PUSH +165 ** 00077F PUSH I+2 ** 000783 PUSH I ** 000787 LCALL ADDNQQ ** 00078C MOV I,BX ** 000790 MOV I+2,ES I16: ** 000794 PUSH I+2 ** 000798 PUSH I ** 00079C PUSH 0ATMPU+2 ** 0007A0 PUSH 0ATMPU ** 0007A4 LCALL CLENQQ ** 0007A9 SHR AX,1 ** 0007AB JAE $+3 ** 0007AD JMP I17 L90: ** 0007B0 MOV DX,0006H ** 0007B3 PUSH DX ** 0007B4 XOR DX,DX ** 0007B6 PUSH DX ** 0007B7 LCALL GOXVQQ ** 0007BC MOV DX,7FFFH ** 0007BF PUSH DX ** 0007C0 MOV DI,@@110 ** 0007C3 PUSH DS ** 0007C4 PUSH DI ** 0007C5 LCALL FMTVQQ ** 0007CA PUSH KETA+2 ** 0007CE PUSH KETA ** 0007D2 LCALL WTNVQQ ** 0007D7 PUSH COMMQQ+2 ** 0007DB PUSH COMMQQ ** 0007DF LCALL WTNVQQ ** 0007E4 XOR DX,DX ** 0007E6 PUSH DX ** 0007E7 LCALL WTFVQQ L93: ** 0007EC MOV DI,@@IS ** 0007EF PUSH DS ** 0007F0 PUSH DI ** 0007F1 LCALL PRINT L94: ** 0007F6 MOV DX,0006H ** 0007F9 PUSH DX ** 0007FA XOR DX,DX ** 0007FC PUSH DX ** 0007FD LCALL GOXVQQ ** 000802 MOV DX,7FFFH ** 000805 PUSH DX ** 000806 MOV DI,@@130 ** 000809 PUSH DS ** 00080A PUSH DI ** 00080B LCALL FMTVQQ ** 000810 XOR DX,DX ** 000812 PUSH DX ** 000813 LCALL WTFVQQ L96: ** 000818 LES BX,+169 ** 00081C MOV I,BX ** 000820 MOV I+2,ES ** 000824 LES BX,+173 ** 000828 MOV 0ATMPU,BX ** 00082C MOV 0ATMPU+2,ES ** 000830 JMP I20 I21: L97: ** 000833 PUSH I+2 ** 000837 PUSH I ** 00083B MOV DX,0001H ** 00083E PUSH DX ** 00083F LCALL INTNQQ ** 000844 PUSH ES ** 000845 PUSH BX ** 000846 LCALL SUBNQQ ** 00084B MOV J,BX ** 00084F MOV J+2,ES L98: ** 000853 MOV DX,0006H ** 000856 PUSH DX ** 000857 XOR DX,DX ** 000859 PUSH DX ** 00085A LCALL GOXVQQ ** 00085F MOV DX,7FFFH ** 000862 PUSH DX ** 000863 MOV DI,@@140 ** 000866 PUSH DS ** 000867 PUSH DI ** 000868 LCALL FMTVQQ ** 00086D PUSH J+2 ** 000871 PUSH J ** 000875 LCALL WTNVQQ ** 00087A PUSH I+2 ** 00087E PUSH I ** 000882 PUSH +179 ** 000886 PUSH +177 ** 00088A LCALL SUBNQQ ** 00088F PUSH ES ** 000890 PUSH BX ** 000891 LCALL CVSNQQ ** 000896 XCHG AX,DI ** 000897 SHL DI,1 ** 000899 SHL DI,1 ** 00089B LES BX,C[DI] ** 00089F PUSH ES ** 0008A0 PUSH BX ** 0008A1 LCALL WTNVQQ ** 0008A6 XOR DX,DX ** 0008A8 PUSH DX ** 0008A9 LCALL WTFVQQ L100: U0E8A: ** 0008AE PUSH +183 ** 0008B2 PUSH +181 ** 0008B6 PUSH I+2 ** 0008BA PUSH I ** 0008BE LCALL ADDNQQ ** 0008C3 MOV I,BX ** 0008C7 MOV I+2,ES I20: ** 0008CB PUSH I+2 ** 0008CF PUSH I ** 0008D3 PUSH 0ATMPU+2 ** 0008D7 PUSH 0ATMPU ** 0008DB LCALL CLENQQ ** 0008E0 SHR AX,1 ** 0008E2 JAE $+3 ** 0008E4 JMP I21 L102: ** 0008E7 MOV DX,0001H ** 0008EA PUSH DX ** 0008EB XOR DX,DX ** 0008ED PUSH DX ** 0008EE PUSH DX ** 0008EF MOV DI,@@+2 ** 0008F2 PUSH DS ** 0008F3 PUSH DI ** 0008F4 LCALL STPVQQ L103: ** 0008F9 LEA SP,[BP].FCH ** 0008FC POP BP ** 0008FD LRET L113:  Procedure/Function : CLEAR ** 0008FE PUSH BP ** 0008FF MOV BP,SP ** 000901 ADD BP,0CH ** 000904 SUB SP,000EH ** 000908 LES BX,+185 ** 00090C MOV I,BX ** 000910 MOV I+2,ES ** 000914 LEA DI,[BP].FAH ** 000917 LES BX,[DI] ** 000919 LES BX,ES:[BX] ** 00091C MOV 0ATMPU,BX ** 000920 MOV 0ATMPU+2,ES ** 000924 JMP I22 I23: L114: ** 000926 LES BX,+193 ** 00092A PUSH BX ** 00092B PUSH ES ** 00092C PUSH I+2 ** 000930 PUSH I ** 000934 PUSH +191 ** 000938 PUSH +189 ** 00093C LCALL SUBNQQ ** 000941 PUSH ES ** 000942 PUSH BX ** 000943 LCALL CVSNQQ ** 000948 SHL AX,1 ** 00094A SHL AX,1 ** 00094C LEA DI,[BP].FEH ** 00094F LES BX,[DI] ** 000951 ADD BX,AX ** 000953 POP AX ** 000954 MOV ES:[BX].02H,AX ** 000958 POP AX ** 000959 MOV ES:[BX],AX L115: U2D2C: ** 00095C PUSH +199 ** 000960 PUSH +197 ** 000964 PUSH I+2 ** 000968 PUSH I ** 00096C LCALL ADDNQQ ** 000971 MOV I,BX ** 000975 MOV I+2,ES I22: ** 000979 PUSH I+2 ** 00097D PUSH I ** 000981 PUSH 0ATMPU+2 ** 000985 PUSH 0ATMPU ** 000989 LCALL CLENQQ ** 00098E SHR AX,1 ** 000990 JB I23 L117: ** 000992 LEA SP,[BP].F4H ** 000995 POP BP ** 000996 LRET 0008H L118: ** 000999 LEA SP,[BP].F4H ** 00099C POP BP ** 00099D LRET 0008H L129:  Procedure/Function : DIVID ** 0009A0 PUSH BP ** 0009A1 MOV BP,SP ** 0009A3 ADD BP,0CH ** 0009A6 SUB SP,000EH ** 0009AA LES BX,+201 ** 0009AE MOV R,BX ** 0009B2 MOV R+2,ES L130: ** 0009B6 LES BX,COMMQQ+3028 ** 0009BA MOV I,BX ** 0009BE MOV I+2,ES ** 0009C2 LES BX,COMMQQ+3032 ** 0009C6 MOV 0ATMPU,BX ** 0009CA MOV 0ATMPU+2,ES ** 0009CE JMP I24 I25: L131: ** 0009D1 PUSH COMMQQ+3026 ** 0009D5 PUSH COMMQQ+3024 ** 0009D9 PUSH R+2 ** 0009DD PUSH R ** 0009E1 LCALL MULNQQ ** 0009E6 PUSH ES ** 0009E7 PUSH BX ** 0009E8 PUSH I+2 ** 0009EC PUSH I ** 0009F0 PUSH +207 ** 0009F4 PUSH +205 ** 0009F8 LCALL SUBNQQ ** 0009FD PUSH ES ** 0009FE PUSH BX ** 0009FF LCALL CVSNQQ ** 000A04 XCHG AX,DI ** 000A05 SHL DI,1 ** 000A07 SHL DI,1 ** 000A09 LES BX,COMMQQ+1008[DI] ** 000A0D PUSH ES ** 000A0E PUSH BX ** 000A0F LCALL ADDNQQ ** 000A14 MOV O,BX ** 000A18 MOV O+2,ES L132: ** 000A1C PUSH O+2 ** 000A20 PUSH O ** 000A24 LEA DI,[BP].FEH ** 000A27 LES BX,[DI] ** 000A29 LES BX,ES:[BX] ** 000A2C PUSH ES ** 000A2D PUSH BX ** 000A2E LCALL DIVNQQ ** 000A33 PUSH BX ** 000A34 PUSH ES ** 000A35 PUSH I+2 ** 000A39 PUSH I ** 000A3D PUSH +211 ** 000A41 PUSH +209 ** 000A45 LCALL SUBNQQ ** 000A4A PUSH ES ** 000A4B PUSH BX ** 000A4C LCALL CVSNQQ ** 000A51 SHL AX,1 ** 000A53 SHL AX,1 ** 000A55 LEA DI,[BP].FAH ** 000A58 LES BX,[DI] ** 000A5A ADD BX,AX ** 000A5C POP AX ** 000A5D MOV ES:[BX].02H,AX ** 000A61 POP AX ** 000A62 MOV ES:[BX],AX L133: ** 000A65 PUSH O+2 ** 000A69 PUSH O ** 000A6D PUSH I+2 ** 000A71 PUSH I ** 000A75 PUSH +215 ** 000A79 PUSH +213 ** 000A7D LCALL SUBNQQ ** 000A82 PUSH ES ** 000A83 PUSH BX ** 000A84 LCALL CVSNQQ ** 000A89 SHL AX,1 ** 000A8B SHL AX,1 ** 000A8D LEA DI,[BP].FAH ** 000A90 LES BX,[DI] ** 000A92 ADD BX,AX ** 000A94 LES BX,ES:[BX] ** 000A97 PUSH ES ** 000A98 PUSH BX ** 000A99 LEA DI,[BP].FEH ** 000A9C LES BX,[DI] ** 000A9E LES BX,ES:[BX] ** 000AA1 PUSH ES ** 000AA2 PUSH BX ** 000AA3 LCALL MULNQQ ** 000AA8 PUSH ES ** 000AA9 PUSH BX ** 000AAA LCALL SUBNQQ ** 000AAF MOV R,BX ** 000AB3 MOV R+2,ES L134: U2FD8: ** 000AB7 PUSH +219 ** 000ABB PUSH +217 ** 000ABF PUSH I+2 ** 000AC3 PUSH I ** 000AC7 LCALL ADDNQQ ** 000ACC MOV I,BX ** 000AD0 MOV I+2,ES I24: ** 000AD4 PUSH I+2 ** 000AD8 PUSH I ** 000ADC PUSH 0ATMPU+2 ** 000AE0 PUSH 0ATMPU ** 000AE4 LCALL CLENQQ ** 000AE9 SHR AX,1 ** 000AEB JAE $+3 ** 000AED JMP I25 L136: ** 000AF0 LEA SP,[BP].F4H ** 000AF3 POP BP ** 000AF4 LRET 0008H L137: ** 000AF7 LEA SP,[BP].F4H ** 000AFA POP BP ** 000AFB LRET 0008H L148:  Procedure/Function : ADD ** 000AFE PUSH BP ** 000AFF MOV BP,SP ** 000B01 ADD BP,04H ** 000B04 SUB SP,000EH ** 000B08 LES BX,+221 ** 000B0C MOV IC,BX ** 000B10 MOV IC+2,ES L149: ** 000B14 LES BX,COMMQQ+3028 ** 000B18 MOV I,BX ** 000B1C MOV I+2,ES ** 000B20 LES BX,COMMQQ+3032 ** 000B24 MOV 0ATMPU,BX ** 000B28 MOV 0ATMPU+2,ES ** 000B2C JMP I26 I27: L150: ** 000B2F PUSH COMMQQ+3034 ** 000B33 PUSH COMMQQ+3032 ** 000B37 PUSH COMMQQ+3030 ** 000B3B PUSH COMMQQ+3028 ** 000B3F LCALL ADDNQQ ** 000B44 PUSH ES ** 000B45 PUSH BX ** 000B46 PUSH I+2 ** 000B4A PUSH I ** 000B4E LCALL SUBNQQ ** 000B53 MOV J,BX ** 000B57 MOV J+2,ES L151: ** 000B5B PUSH IC+2 ** 000B5F PUSH IC ** 000B63 PUSH J+2 ** 000B67 PUSH J ** 000B6B PUSH +235 ** 000B6F PUSH +233 ** 000B73 LCALL SUBNQQ ** 000B78 PUSH ES ** 000B79 PUSH BX ** 000B7A LCALL CVSNQQ ** 000B7F XCHG AX,DI ** 000B80 SHL DI,1 ** 000B82 SHL DI,1 ** 000B84 LES BX,COMMQQ+2016[DI] ** 000B88 PUSH ES ** 000B89 PUSH BX ** 000B8A PUSH J+2 ** 000B8E PUSH J ** 000B92 PUSH +231 ** 000B96 PUSH +229 ** 000B9A LCALL SUBNQQ ** 000B9F PUSH ES ** 000BA0 PUSH BX ** 000BA1 LCALL CVSNQQ ** 000BA6 XCHG AX,DI ** 000BA7 SHL DI,1 ** 000BA9 SHL DI,1 ** 000BAB LES BX,COMMQQ[DI] ** 000BAF PUSH ES ** 000BB0 PUSH BX ** 000BB1 LCALL ADDNQQ ** 000BB6 PUSH ES ** 000BB7 PUSH BX ** 000BB8 LCALL ADDNQQ ** 000BBD PUSH BX ** 000BBE PUSH ES ** 000BBF PUSH J+2 ** 000BC3 PUSH J ** 000BC7 PUSH +227 ** 000BCB PUSH +225 ** 000BCF LCALL SUBNQQ ** 000BD4 PUSH ES ** 000BD5 PUSH BX ** 000BD6 LCALL CVSNQQ ** 000BDB XCHG AX,DI ** 000BDC SHL DI,1 ** 000BDE SHL DI,1 ** 000BE0 POP ES ** 000BE1 POP BX ** 000BE2 MOV COMMQQ[DI],BX ** 000BE6 MOV COMMQQ+2[DI],ES L152: ** 000BEA LES BX,+237 ** 000BEE MOV IC,BX ** 000BF2 MOV IC+2,ES L153: ** 000BF6 PUSH J+2 ** 000BFA PUSH J ** 000BFE PUSH +243 ** 000C02 PUSH +241 ** 000C06 MOV [BP].F0H,DI ** 000C09 LCALL SUBNQQ ** 000C0E PUSH ES ** 000C0F PUSH BX ** 000C10 LCALL CVSNQQ ** 000C15 XCHG AX,DI ** 000C16 SHL DI,1 ** 000C18 SHL DI,1 ** 000C1A LES BX,COMMQQ[DI] ** 000C1E PUSH ES ** 000C1F PUSH BX ** 000C20 PUSH COMMQQ+3026 ** 000C24 PUSH COMMQQ+3024 ** 000C28 LCALL SUBNQQ ** 000C2D MOV 0BTMPF,BX ** 000C31 MOV 0BTMPF+2,ES ** 000C35 PUSH 0BTMPF+2 ** 000C39 PUSH 0BTMPF ** 000C3D PUSH +247 ** 000C41 PUSH +245 ** 000C45 LCALL CLTNQQ ** 000C4A SHR AX,1 ** 000C4C JB I28 ** 000C4E PUSH +251 ** 000C52 PUSH +249 ** 000C56 PUSH 0BTMPF+2 ** 000C5A PUSH 0BTMPF ** 000C5E LCALL CLTNQQ ** 000C63 SHR AX,1 ** 000C65 JAE I29 ** 000C67 JMP U2E7A I29: ** 000C6A JMP U2E7A I28: ** 000C6D JMP U2E88 L154: U2E7A: ** 000C70 PUSH J+2 ** 000C74 PUSH J ** 000C78 PUSH +259 ** 000C7C PUSH +257 ** 000C80 LCALL SUBNQQ ** 000C85 PUSH ES ** 000C86 PUSH BX ** 000C87 LCALL CVSNQQ ** 000C8C XCHG AX,DI ** 000C8D SHL DI,1 ** 000C8F SHL DI,1 ** 000C91 LES BX,COMMQQ[DI] ** 000C95 PUSH ES ** 000C96 PUSH BX ** 000C97 PUSH COMMQQ+3026 ** 000C9B PUSH COMMQQ+3024 ** 000C9F LCALL SUBNQQ ** 000CA4 PUSH BX ** 000CA5 PUSH ES ** 000CA6 PUSH J+2 ** 000CAA PUSH J ** 000CAE PUSH +255 ** 000CB2 PUSH +253 ** 000CB6 LCALL SUBNQQ ** 000CBB PUSH ES ** 000CBC PUSH BX ** 000CBD LCALL CVSNQQ ** 000CC2 XCHG AX,DI ** 000CC3 SHL DI,1 ** 000CC5 SHL DI,1 ** 000CC7 POP ES ** 000CC8 POP BX ** 000CC9 MOV COMMQQ[DI],BX ** 000CCD MOV COMMQQ+2[DI],ES L155: ** 000CD1 LES BX,+261 ** 000CD5 MOV IC,BX ** 000CD9 MOV IC+2,ES L156: U2E88: ** 000CDD PUSH +267 ** 000CE1 PUSH +265 ** 000CE5 PUSH I+2 ** 000CE9 PUSH I ** 000CED LCALL ADDNQQ ** 000CF2 MOV I,BX ** 000CF6 MOV I+2,ES I26: ** 000CFA PUSH I+2 ** 000CFE PUSH I ** 000D02 PUSH 0ATMPU+2 ** 000D06 PUSH 0ATMPU ** 000D0A LCALL CLENQQ ** 000D0F SHR AX,1 ** 000D11 JAE $+3 ** 000D13 JMP I27 L158: ** 000D16 LEA SP,[BP].FCH ** 000D19 POP BP ** 000D1A LRET L159: ** 000D1B LEA SP,[BP].FCH ** 000D1E POP BP ** 000D1F LRET L170:  Procedure/Function : SUBTR ** 000D20 PUSH BP ** 000D21 MOV BP,SP ** 000D23 ADD BP,04H ** 000D26 SUB SP,000EH ** 000D2A LES BX,+269 ** 000D2E MOV IB,BX ** 000D32 MOV IB+2,ES L171: ** 000D36 LES BX,COMMQQ+3028 ** 000D3A MOV I,BX ** 000D3E MOV I+2,ES ** 000D42 LES BX,COMMQQ+3032 ** 000D46 MOV 0ATMPU,BX ** 000D4A MOV 0ATMPU+2,ES ** 000D4E JMP I30 I31: L172: ** 000D51 PUSH COMMQQ+3034 ** 000D55 PUSH COMMQQ+3032 ** 000D59 PUSH COMMQQ+3030 ** 000D5D PUSH COMMQQ+3028 ** 000D61 LCALL ADDNQQ ** 000D66 PUSH ES ** 000D67 PUSH BX ** 000D68 PUSH I+2 ** 000D6C PUSH I ** 000D70 LCALL SUBNQQ ** 000D75 MOV J,BX ** 000D79 MOV J+2,ES L173: ** 000D7D PUSH J+2 ** 000D81 PUSH J ** 000D85 PUSH +279 ** 000D89 PUSH +277 ** 000D8D LCALL SUBNQQ ** 000D92 PUSH ES ** 000D93 PUSH BX ** 000D94 LCALL CVSNQQ ** 000D99 XCHG AX,DI ** 000D9A SHL DI,1 ** 000D9C SHL DI,1 ** 000D9E LES BX,COMMQQ[DI] ** 000DA2 PUSH ES ** 000DA3 PUSH BX ** 000DA4 PUSH J+2 ** 000DA8 PUSH J ** 000DAC PUSH +283 ** 000DB0 PUSH +281 ** 000DB4 LCALL SUBNQQ ** 000DB9 PUSH ES ** 000DBA PUSH BX ** 000DBB LCALL CVSNQQ ** 000DC0 XCHG AX,DI ** 000DC1 SHL DI,1 ** 000DC3 SHL DI,1 ** 000DC5 LES BX,COMMQQ+2016[DI] ** 000DC9 PUSH ES ** 000DCA PUSH BX ** 000DCB LCALL SUBNQQ ** 000DD0 PUSH ES ** 000DD1 PUSH BX ** 000DD2 PUSH IB+2 ** 000DD6 PUSH IB ** 000DDA LCALL SUBNQQ ** 000DDF PUSH BX ** 000DE0 PUSH ES ** 000DE1 PUSH J+2 ** 000DE5 PUSH J ** 000DE9 PUSH +275 ** 000DED PUSH +273 ** 000DF1 LCALL SUBNQQ ** 000DF6 PUSH ES ** 000DF7 PUSH BX ** 000DF8 LCALL CVSNQQ ** 000DFD XCHG AX,DI ** 000DFE SHL DI,1 ** 000E00 SHL DI,1 ** 000E02 POP ES ** 000E03 POP BX ** 000E04 MOV COMMQQ[DI],BX ** 000E08 MOV COMMQQ+2[DI],ES L174: ** 000E0C LES BX,+285 ** 000E10 MOV IB,BX ** 000E14 MOV IB+2,ES L175: ** 000E18 PUSH J+2 ** 000E1C PUSH J ** 000E20 PUSH +291 ** 000E24 PUSH +289 ** 000E28 MOV [BP].F0H,DI ** 000E2B LCALL SUBNQQ ** 000E30 PUSH ES ** 000E31 PUSH BX ** 000E32 LCALL CVSNQQ ** 000E37 XCHG AX,DI ** 000E38 SHL DI,1 ** 000E3A SHL DI,1 ** 000E3C LES BX,COMMQQ[DI] ** 000E40 MOV 0BTMPF,BX ** 000E44 MOV 0BTMPF+2,ES ** 000E48 PUSH 0BTMPF+2 ** 000E4C PUSH 0BTMPF ** 000E50 PUSH +295 ** 000E54 PUSH +293 ** 000E58 LCALL CLTNQQ ** 000E5D SHR AX,1 ** 000E5F JB I32 ** 000E61 PUSH +299 ** 000E65 PUSH +297 ** 000E69 PUSH 0BTMPF+2 ** 000E6D PUSH 0BTMPF ** 000E71 LCALL CLTNQQ ** 000E76 SHR AX,1 ** 000E78 JAE I33 ** 000E7A JMP U1976 I33: ** 000E7D JMP U1976 I32: ** 000E80 JMP U1968 L176: U1968: ** 000E83 PUSH COMMQQ+3026 ** 000E87 PUSH COMMQQ+3024 ** 000E8B PUSH J+2 ** 000E8F PUSH J ** 000E93 PUSH +307 ** 000E97 PUSH +305 ** 000E9B LCALL SUBNQQ ** 000EA0 PUSH ES ** 000EA1 PUSH BX ** 000EA2 LCALL CVSNQQ ** 000EA7 XCHG AX,DI ** 000EA8 SHL DI,1 ** 000EAA SHL DI,1 ** 000EAC LES BX,COMMQQ[DI] ** 000EB0 PUSH ES ** 000EB1 PUSH BX ** 000EB2 LCALL ADDNQQ ** 000EB7 PUSH BX ** 000EB8 PUSH ES ** 000EB9 PUSH J+2 ** 000EBD PUSH J ** 000EC1 PUSH +303 ** 000EC5 PUSH +301 ** 000EC9 LCALL SUBNQQ ** 000ECE PUSH ES ** 000ECF PUSH BX ** 000ED0 LCALL CVSNQQ ** 000ED5 XCHG AX,DI ** 000ED6 SHL DI,1 ** 000ED8 SHL DI,1 ** 000EDA POP ES ** 000EDB POP BX ** 000EDC MOV COMMQQ[DI],BX ** 000EE0 MOV COMMQQ+2[DI],ES L177: ** 000EE4 LES BX,+309 ** 000EE8 MOV IB,BX ** 000EEC MOV IB+2,ES L178: U1976: ** 000EF0 PUSH +315 ** 000EF4 PUSH +313 ** 000EF8 PUSH I+2 ** 000EFC PUSH I ** 000F00 LCALL ADDNQQ ** 000F05 MOV I,BX ** 000F09 MOV I+2,ES I30: ** 000F0D PUSH I+2 ** 000F11 PUSH I ** 000F15 PUSH 0ATMPU+2 ** 000F19 PUSH 0ATMPU ** 000F1D LCALL CLENQQ ** 000F22 SHR AX,1 ** 000F24 JAE $+3 ** 000F26 JMP I31 L180: ** 000F29 LEA SP,[BP].FCH ** 000F2C POP BP ** 000F2D LRET L181: ** 000F2E LEA SP,[BP].FCH ** 000F31 POP BP ** 000F32 LRET L192:  Procedure/Function : PRINT ** 000F33 PUSH BP ** 000F34 MOV BP,SP ** 000F36 ADD BP,08H ** 000F39 SUB SP,000EH ** 000F3D LES BX,+317 ** 000F41 MOV I,BX ** 000F45 MOV I+2,ES L193: U38A6: ** 000F49 LES BX,+321 ** 000F4D MOV J,BX ** 000F51 MOV J+2,ES ** 000F55 LES BX,+325 ** 000F59 MOV 0ATMPU,BX ** 000F5D MOV 0ATMPU+2,ES ** 000F61 LES BX,+329 ** 000F65 MOV 0BTMPI,BX ** 000F69 MOV 0BTMPI+2,ES ** 000F6D JMP I34 I35: L194: ** 000F70 PUSH I+2 ** 000F74 PUSH I ** 000F78 PUSH +335 ** 000F7C PUSH +333 ** 000F80 LCALL SUBNQQ ** 000F85 PUSH ES ** 000F86 PUSH BX ** 000F87 LCALL CVSNQQ ** 000F8C XCHG AX,DI ** 000F8D SHL DI,1 ** 000F8F SHL DI,1 ** 000F91 LES BX,COMMQQ[DI] ** 000F95 MOV K2,BX ** 000F99 MOV K2+2,ES L195: ** 000F9D PUSH K2+2 ** 000FA1 PUSH K2 ** 000FA5 MOV DX,03E8H ** 000FA8 PUSH DX ** 000FA9 LCALL INTNQQ ** 000FAE PUSH ES ** 000FAF PUSH BX ** 000FB0 LCALL DIVNQQ ** 000FB5 PUSH BX ** 000FB6 PUSH ES ** 000FB7 PUSH J+2 ** 000FBB PUSH J ** 000FBF PUSH +339 ** 000FC3 PUSH +337 ** 000FC7 LCALL SUBNQQ ** 000FCC PUSH ES ** 000FCD PUSH BX ** 000FCE LCALL CVSNQQ ** 000FD3 XCHG AX,DI ** 000FD4 SHL DI,1 ** 000FD6 SHL DI,1 ** 000FD8 POP ES ** 000FD9 POP BX ** 000FDA MOV KO[DI],BX ** 000FDE MOV KO+2[DI],ES L196: ** 000FE2 PUSH K2+2 ** 000FE6 PUSH K2 ** 000FEA MOV DX,03E8H ** 000FED PUSH DX ** 000FEE MOV [BP].ECH,DI ** 000FF1 LCALL INTNQQ ** 000FF6 PUSH ES ** 000FF7 PUSH BX ** 000FF8 LCALL MODNQQ ** 000FFD MOV K3,BX ** 001001 MOV K3+2,ES L197: ** 001005 PUSH K3+2 ** 001009 PUSH K3 ** 00100D MOV DX,0064H ** 001010 PUSH DX ** 001011 LCALL INTNQQ ** 001016 PUSH ES ** 001017 PUSH BX ** 001018 LCALL DIVNQQ ** 00101D PUSH BX ** 00101E PUSH ES ** 00101F MOV DX,0001H ** 001022 PUSH DX ** 001023 LCALL INTNQQ ** 001028 PUSH ES ** 001029 PUSH BX ** 00102A PUSH J+2 ** 00102E PUSH J ** 001032 LCALL ADDNQQ ** 001037 PUSH ES ** 001038 PUSH BX ** 001039 PUSH +343 ** 00103D PUSH +341 ** 001041 LCALL SUBNQQ ** 001046 PUSH ES ** 001047 PUSH BX ** 001048 LCALL CVSNQQ ** 00104D XCHG AX,DI ** 00104E SHL DI,1 ** 001050 SHL DI,1 ** 001052 POP ES ** 001053 POP BX ** 001054 MOV KO[DI],BX ** 001058 MOV KO+2[DI],ES L198: ** 00105C PUSH K3+2 ** 001060 PUSH K3 ** 001064 MOV DX,0064H ** 001067 PUSH DX ** 001068 MOV [BP].EAH,DI ** 00106B LCALL INTNQQ ** 001070 PUSH ES ** 001071 PUSH BX ** 001072 LCALL MODNQQ ** 001077 MOV K4,BX ** 00107B MOV K4+2,ES L199: ** 00107F PUSH K4+2 ** 001083 PUSH K4 ** 001087 MOV DX,000AH ** 00108A PUSH DX ** 00108B LCALL INTNQQ ** 001090 PUSH ES ** 001091 PUSH BX ** 001092 LCALL DIVNQQ ** 001097 PUSH BX ** 001098 PUSH ES ** 001099 MOV DX,0002H ** 00109C PUSH DX ** 00109D LCALL INTNQQ ** 0010A2 PUSH ES ** 0010A3 PUSH BX ** 0010A4 PUSH J+2 ** 0010A8 PUSH J ** 0010AC LCALL ADDNQQ ** 0010B1 PUSH ES ** 0010B2 PUSH BX ** 0010B3 PUSH +347 ** 0010B7 PUSH +345 ** 0010BB LCALL SUBNQQ ** 0010C0 PUSH ES ** 0010C1 PUSH BX ** 0010C2 LCALL CVSNQQ ** 0010C7 XCHG AX,DI ** 0010C8 SHL DI,1 ** 0010CA SHL DI,1 ** 0010CC POP ES ** 0010CD POP BX ** 0010CE MOV KO[DI],BX ** 0010D2 MOV KO+2[DI],ES I36: L200: ** 0010D6 PUSH K4+2 ** 0010DA PUSH K4 ** 0010DE MOV DX,000AH ** 0010E1 PUSH DX ** 0010E2 LCALL INTNQQ ** 0010E7 PUSH ES ** 0010E8 PUSH BX ** 0010E9 LCALL MODNQQ ** 0010EE PUSH BX ** 0010EF PUSH ES ** 0010F0 MOV DX,0003H ** 0010F3 PUSH DX ** 0010F4 LCALL INTNQQ ** 0010F9 PUSH ES ** 0010FA PUSH BX ** 0010FB PUSH J+2 ** 0010FF PUSH J ** 001103 LCALL ADDNQQ ** 001108 PUSH ES ** 001109 PUSH BX ** 00110A PUSH +351 ** 00110E PUSH +349 ** 001112 LCALL SUBNQQ ** 001117 PUSH ES ** 001118 PUSH BX ** 001119 LCALL CVSNQQ ** 00111E XCHG AX,DI ** 00111F SHL DI,1 ** 001121 SHL DI,1 ** 001123 POP ES ** 001124 POP BX ** 001125 MOV KO[DI],BX ** 001129 MOV KO+2[DI],ES L201: ** 00112D MOV DX,0001H ** 001130 PUSH DX ** 001131 MOV [BP].ECH,DI ** 001134 LCALL INTNQQ ** 001139 PUSH ES ** 00113A PUSH BX ** 00113B PUSH I+2 ** 00113F PUSH I ** 001143 LCALL ADDNQQ ** 001148 MOV I,BX ** 00114C MOV I+2,ES L202: U3898: ** 001150 PUSH 0BTMPI+2 ** 001154 PUSH 0BTMPI ** 001158 PUSH J+2 ** 00115C PUSH J ** 001160 LCALL ADDNQQ ** 001165 MOV J,BX ** 001169 MOV J+2,ES I34: ** 00116D PUSH +355 ** 001171 PUSH +353 ** 001175 PUSH 0BTMPI+2 ** 001179 PUSH 0BTMPI ** 00117D LCALL CLTNQQ ** 001182 PUSH 0ATMPU+2 ** 001186 PUSH 0ATMPU ** 00118A PUSH J+2 ** 00118E PUSH J ** 001192 MOV [BP].ECH,AX ** 001195 LCALL CLTNQQ ** 00119A CMP AL,[BP].ECH ** 00119D MOV DX,0000H ** 0011A0 JE $+1 ** 0011A2 INC DX ** 0011A3 SHR DX,1 ** 0011A5 JAE $+3 ** 0011A7 JMP I35 ** 0011AA PUSH J+2 ** 0011AE PUSH J ** 0011B2 PUSH 0ATMPU+2 ** 0011B6 PUSH 0ATMPU ** 0011BA LCALL CEQNQQ ** 0011BF SHR AX,1 ** 0011C1 JAE $+3 ** 0011C3 JMP I35 L204: ** 0011C6 MOV DX,0006H ** 0011C9 PUSH DX ** 0011CA XOR DX,DX ** 0011CC PUSH DX ** 0011CD LCALL GOXVQQ ** 0011D2 MOV DX,7FFFH ** 0011D5 PUSH DX ** 0011D6 MOV DI,@@120 ** 0011D9 PUSH DS ** 0011DA PUSH DI ** 0011DB LCALL FMTVQQ ** 0011E0 JMP I37 I38: ** 0011E2 PUSH L+2 ** 0011E6 PUSH L ** 0011EA PUSH +359 ** 0011EE PUSH +357 ** 0011F2 LCALL SUBNQQ ** 0011F7 PUSH ES ** 0011F8 PUSH BX ** 0011F9 LCALL CVSNQQ ** 0011FE XCHG AX,DI ** 0011FF SHL DI,1 ** 001201 SHL DI,1 ** 001203 LES BX,KO[DI] ** 001207 PUSH ES ** 001208 PUSH BX ** 001209 LCALL WTNVQQ ** 00120E JMP I39 I37: ** 001210 LES BX,+361 ** 001214 MOV L,BX ** 001218 MOV L+2,ES ** 00121C LES BX,+365 ** 001220 MOV 0ATMPU,BX ** 001224 MOV 0ATMPU+2,ES ** 001228 JMP I40 I39: ** 00122A PUSH L+2 ** 00122E PUSH L ** 001232 PUSH +371 ** 001236 PUSH +369 ** 00123A LCALL ADDNQQ ** 00123F MOV L,BX ** 001243 MOV L+2,ES I40: ** 001247 PUSH L+2 ** 00124B PUSH L ** 00124F PUSH 0ATMPU+2 ** 001253 PUSH 0ATMPU ** 001257 LCALL CLENQQ ** 00125C SHR AX,1 ** 00125E JB I38 ** 001260 XOR DX,DX ** 001262 PUSH DX ** 001263 LCALL WTFVQQ L206: ** 001268 PUSH I+2 ** 00126C PUSH I ** 001270 LEA DI,[BP].FEH ** 001273 LES BX,[DI] ** 001275 LES BX,ES:[BX] ** 001278 PUSH ES ** 001279 PUSH BX ** 00127A LCALL CLENQQ ** 00127F SHR AX,1 ** 001281 JAE I41 ** 001283 JMP U38A6 I41: L208: ** 001286 LEA SP,[BP].F8H ** 001289 POP BP ** 00128A LRET 0004H L209: ** 00128D LEA SP,[BP].F8H ** 001290 POP BP ** 001291 LRET 0004H  Procedure/Function : MAINQQ ** 001294 PUSH BP ** 001295 MOV BP,SP ** 001297 ADD BP,04H ** 00129A SUB SP,000EH ** 00129E LCALL INIVQQ ** 0012A3 LCALL MAIN ** 0012A8 LEA SP,[BP].FCH ** 0012AB POP BP ** 0012AC LRET Code Area Size = #12AD ( 4781) Cons Area Size = #0175 ( 373) Data Area Size = #02FE ( 766) Pass Two No Errors Detected. Page 1 10-06-92 17:59:23 IBM Personal Computer Series Linker K2.00 Start Stop Length Name Class 00000H 012ACH 12ADH MAINQQ CODE 012AEH 04AC2H 3815H FILVQQ_CODE CODE 04AC4H 05920H 0E5DH LOGNQQ_CODE CODE 05930H 05A0AH 00DBH ENTXQQ CODE 05A10H 05A10H 0000H INIXQQ CODE 05A10H 06A2AH 101BH FILUQQ_CODE CODE 06A2CH 06AFBH 00D0H MISYQQ_CODE CODE 06AFCH 06EB8H 03BDH FORUXM_CODE CODE 06EC0H 071C1H 0302H MISGQQ CODE 071C2H 072F3H 0132H CONUXM_CODE CODE 072F4H 07321H 002EH MISOQQ_CODE CODE 07322H 0798CH 066BH ERREQQ_CODE CODE 07990H 07CD9H 034AH REARQQ CODE 07CDAH 07F06H 022DH CNVR_CODE CODE 07F08H 080AFH 01A8H UTLR_CODE CODE 080B0H 08252H 01A3H HEAHQQ_CODE CODE 08254H 08374H 0121H UTLXQQ_CODE CODE 08376H 0840CH 0097H MISHQQ_CODE CODE 08410H 08410H 0000H HEAP MEMORY 08410H 08410H 0000H MEMORY MEMORY 08410H 0850FH 0100H STACK STACK 08510H 08C37H 0728H DATA DATA 08C40H 08C40H 0000H COMADS COMADS 08C40H 09497H 0858H CONST CONST 09498H 0A073H 0BDCH COMMQQ COMMON 0A080H 0A08FH 0010H HIMEM HIMEM Origin Group FA08:0 DGROUP Program entry point at 0593:0000 FORT77PI.EXE【IBM Fortran Compiler】実行結果 File name missing or empty - try again! UNIT 6? CON: KETA(I5)=00500 ***** CALCULATION OF PAI ***** 500 DECIMAL PLACES 3. 1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164 0628620899 8628034825 3421170679 8214808651 3282306647 0938446095 5058223172 5359408128 4811174502 8410270193 8521105559 6446229489 5493038196 4428810975 6659334461 2847564823 3786783165 2712019091 4564856692 3460348610 4543266482 1339360726 0249141273 7245870066 0631558817 4881520920 9628292540 9171536436 7892590360 0113305305 4882046652 1384146951 9415116094 3305727036 5759591953 0921861173 8193261179 3105118548 0744623799 6274956735 1885752724 8912279381 8301194912 SUUJI DOSUU 0 45 1 59 2 54 3 50 4 53 5 50 6 48 7 36 8 53 9 52 Stop - Program terminated. FORT77PI.EXE【Intel Fortran Compiler】実行結果 FORT77PI.EXE KETA(I5)=00500 0 ***** CALCULATION OF PAI ***** 0 500 DECIMAL PLACES 3. 1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164 0628620899 8628034825 3421170679 8214808651 3282306647 0938446095 5058223172 5359408128 4811174502 8410270193 8521105559 6446229489 5493038196 4428810975 6659334461 2847564823 3786783165 2712019091 4564856692 3460348610 4543266482 1339360726 0249141273 7245870066 0631558817 4881520920 9628292540 9171536436 7892590360 0113305305 4882046652 1384146951 9415116094 3305727036 5759591953 0921861173 8193261179 3105118548 0744623799 6274956735 1885752724 8912279381 8301194912 0 SUUJI DOSUU 0 45 1 59 2 54 3 50 4 53 5 50 6 48 7 36 8 53 9 52