test/astest/floatedit/0.txt

   1
   2 Assemble ../../../as/floatedit.casl (0)
   3 ../../../as/floatedit.casl:1:EDIT       START
   4 ../../../as/floatedit.casl:2:RETRY      IN      INAREA,INLENG
   5 ../../../as/floatedit.casl:3:   LAD     GR1,0
   6 ../../../as/floatedit.casl:4:   OR      GR1,INLENG
   7 ../../../as/floatedit.casl:5:   JZE     FINISH
   8 ../../../as/floatedit.casl:6:   CPA     GR1,TEN
   9 ../../../as/floatedit.casl:7:   JZE     BEGIN
  10 ../../../as/floatedit.casl:8:   OUT     ERRMSG,MSGLNG
  11 ../../../as/floatedit.casl:9:   JUMP    RETRY
  12 ../../../as/floatedit.casl:10:BEGIN     LAD     GR0,1
  13 ../../../as/floatedit.casl:11:  ST      GR0,ZSFLAG
  14 ../../../as/floatedit.casl:12:  LAD     GR1,0
  15 ../../../as/floatedit.casl:13:  LAD     GR2,-1
  16 ../../../as/floatedit.casl:14:  LAD     GR3,0
  17 ../../../as/floatedit.casl:15:LOOP      LD      GR0,MASK,GR3
  18 ../../../as/floatedit.casl:16:  PUSH    1,GR3
  19 ../../../as/floatedit.casl:17:  LD      GR3,INAREA,GR1
  20 ../../../as/floatedit.casl:18:  LAD     GR1,1,GR1
  21 ../../../as/floatedit.casl:19:  CPL     GR0,DIGIT0
  22 ../../../as/floatedit.casl:20:  JZE     ENDSPR
  23 ../../../as/floatedit.casl:21:  CPL     GR0,DIGIT9
  24 ../../../as/floatedit.casl:22:  JNZ     NONDGT
  25 ../../../as/floatedit.casl:23:  CPL     GR3,DIGIT0
  26 ../../../as/floatedit.casl:24:  JNZ     ENDSPR
  27 ../../../as/floatedit.casl:25:  LAD     GR0,0
  28 ../../../as/floatedit.casl:26:  OR      GR0,ZSFLAG
  29 ../../../as/floatedit.casl:27:  JNZ     SUPPRS
  30 ../../../as/floatedit.casl:28:ENDSPR    LD      GR0,OTAREA,GR2
  31 ../../../as/floatedit.casl:29:  CPL     GR0,SPACE
  32 ../../../as/floatedit.casl:30:  JNZ     NOT1ST
  33 ../../../as/floatedit.casl:31:  LD      GR0,MASK
  34 ../../../as/floatedit.casl:32:  ST      GR0,OTAREA,GR2
  35 ../../../as/floatedit.casl:33:  LAD     GR0,0
  36 ../../../as/floatedit.casl:34:  ST      GR0,ZSFLAG
  37 ../../../as/floatedit.casl:35:NOT1ST    LAD     GR0,0,GR3
  38 ../../../as/floatedit.casl:36:  JUMP    STORE
  39 ../../../as/floatedit.casl:37:NONDGT    LAD     GR1,-1,GR1
  40 ../../../as/floatedit.casl:38:  LAD     GR3,0
  41 ../../../as/floatedit.casl:39:  OR      GR3,ZSFLAG
  42 ../../../as/floatedit.casl:40:  JZE     STORE
  43 ../../../as/floatedit.casl:41:SUPPRS    LD      GR0,SPACE
  44 ../../../as/floatedit.casl:42:STORE     LAD     GR2,1,GR2
  45 ../../../as/floatedit.casl:43:  ST      GR0,OTAREA,GR2
  46 ../../../as/floatedit.casl:44:  POP     GR3
  47 ../../../as/floatedit.casl:45:  CPA     GR1,INLENG
  48 ../../../as/floatedit.casl:46:  JNZ     LOOP
  49 ../../../as/floatedit.casl:47:  LAD     GR2,1,GR2
  50 ../../../as/floatedit.casl:48:  ST      GR2,OTLENG
  51 ../../../as/floatedit.casl:49:  OUT     OTAREA,OTLENG
  52 ../../../as/floatedit.casl:50:    JUMP RETRY
  53 ../../../as/floatedit.casl:51:FINISH    RET
  54 ../../../as/floatedit.casl:52:MASK      DC      '\99,999,990.99'
  55 ../../../as/floatedit.casl:53:SPACE     DC      ' '
  56 ../../../as/floatedit.casl:54:DIGIT0    DC      '0'
  57 ../../../as/floatedit.casl:55:DIGIT9    DC      '9'
  58 ../../../as/floatedit.casl:56:TEN       DC      10
  59 ../../../as/floatedit.casl:57:ERRMSG    DC      'input error!'
  60 ../../../as/floatedit.casl:58:MSGLNG    DC      12
  61 ../../../as/floatedit.casl:59:INAREA    DS      80
  62 ../../../as/floatedit.casl:60:INLENG    DS      1
  63 ../../../as/floatedit.casl:61:OTAREA    DS      80
  64 ../../../as/floatedit.casl:62:OTLENG    DS      1
  65 ../../../as/floatedit.casl:63:ZSFLAG    DS      1
  66 ../../../as/floatedit.casl:64:  END
  67
  68 Label::::
  69 MSGLNG ---> #00AA
  70 EDIT ---> #0000
  71 ZSFLAG ---> #014D
  72 INAREA ---> #00AB
  73 OTLENG ---> #014C
  74 NONDGT ---> #0060
  75 RETRY ---> #0000
  76 BEGIN ---> #002A
  77 FINISH ---> #008B
  78 INLENG ---> #00FB
  79 SUPPRS ---> #0068
  80 LOOP ---> #0034
  81 NOT1ST ---> #005C
  82 STORE ---> #006A
  83 DIGIT0 ---> #009B
  84 DIGIT9 ---> #009C
  85 SPACE ---> #009A
  86 MASK ---> #008C
  87 OTAREA ---> #00FC
  88 ENDSPR ---> #004E
  89 ERRMSG ---> #009E
  90 TEN ---> #009D
  91
  92 Assemble ../../../as/floatedit.casl (1)
  93 ../../../as/floatedit.casl:1:EDIT       START
  94 ../../../as/floatedit.casl:2:RETRY      IN      INAREA,INLENG
  95         #0000   #7001
  96         #0001   #0000
  97         #0002   #7002
  98         #0003   #0000
  99         #0004   #1210
 100         #0005   #00AB
 101         #0006   #1220
 102         #0007   #00FB
 103         #0008   #F000
 104         #0009   #0001
 105         #000A   #7120
 106         #000B   #7110
 107 ../../../as/floatedit.casl:3:   LAD     GR1,0
 108         #000C   #1210
 109         #000D   #0000
 110 ../../../as/floatedit.casl:4:   OR      GR1,INLENG
 111         #000E   #3110
 112         #000F   #00FB
 113 ../../../as/floatedit.casl:5:   JZE     FINISH
 114         #0010   #6300
 115         #0011   #008B
 116 ../../../as/floatedit.casl:6:   CPA     GR1,TEN
 117         #0012   #4010
 118         #0013   #009D
 119 ../../../as/floatedit.casl:7:   JZE     BEGIN
 120         #0014   #6300
 121         #0015   #002A
 122 ../../../as/floatedit.casl:8:   OUT     ERRMSG,MSGLNG
 123         #0016   #7001
 124         #0017   #0000
 125         #0018   #7002
 126         #0019   #0000
 127         #001A   #1210
 128         #001B   #009E
 129         #001C   #1020
 130         #001D   #00AA
 131         #001E   #F000
 132         #001F   #0002
 133         #0020   #1210
 134         #0021   #014E
 135         #014E   #000A
 136         #0022   #1220
 137         #0023   #0001
 138         #0024   #F000
 139         #0025   #0002
 140         #0026   #7120
 141         #0027   #7110
 142 ../../../as/floatedit.casl:9:   JUMP    RETRY
 143         #0028   #6400
 144         #0029   #0000
 145 ../../../as/floatedit.casl:10:BEGIN     LAD     GR0,1
 146         #002A   #1200
 147         #002B   #0001
 148 ../../../as/floatedit.casl:11:  ST      GR0,ZSFLAG
 149         #002C   #1100
 150         #002D   #014D
 151 ../../../as/floatedit.casl:12:  LAD     GR1,0
 152         #002E   #1210
 153         #002F   #0000
 154 ../../../as/floatedit.casl:13:  LAD     GR2,-1
 155         #0030   #1220
 156         #0031   #FFFF
 157 ../../../as/floatedit.casl:14:  LAD     GR3,0
 158         #0032   #1230
 159         #0033   #0000
 160 ../../../as/floatedit.casl:15:LOOP      LD      GR0,MASK,GR3
 161         #0034   #1003
 162         #0035   #008C
 163 ../../../as/floatedit.casl:16:  PUSH    1,GR3
 164         #0036   #7003
 165         #0037   #0001
 166 ../../../as/floatedit.casl:17:  LD      GR3,INAREA,GR1
 167         #0038   #1031
 168         #0039   #00AB
 169 ../../../as/floatedit.casl:18:  LAD     GR1,1,GR1
 170         #003A   #1211
 171         #003B   #0001
 172 ../../../as/floatedit.casl:19:  CPL     GR0,DIGIT0
 173         #003C   #4100
 174         #003D   #009B
 175 ../../../as/floatedit.casl:20:  JZE     ENDSPR
 176         #003E   #6300
 177         #003F   #004E
 178 ../../../as/floatedit.casl:21:  CPL     GR0,DIGIT9
 179         #0040   #4100
 180         #0041   #009C
 181 ../../../as/floatedit.casl:22:  JNZ     NONDGT
 182         #0042   #6200
 183         #0043   #0060
 184 ../../../as/floatedit.casl:23:  CPL     GR3,DIGIT0
 185         #0044   #4130
 186         #0045   #009B
 187 ../../../as/floatedit.casl:24:  JNZ     ENDSPR
 188         #0046   #6200
 189         #0047   #004E
 190 ../../../as/floatedit.casl:25:  LAD     GR0,0
 191         #0048   #1200
 192         #0049   #0000
 193 ../../../as/floatedit.casl:26:  OR      GR0,ZSFLAG
 194         #004A   #3100
 195         #004B   #014D
 196 ../../../as/floatedit.casl:27:  JNZ     SUPPRS
 197         #004C   #6200
 198         #004D   #0068
 199 ../../../as/floatedit.casl:28:ENDSPR    LD      GR0,OTAREA,GR2
 200         #004E   #1002
 201         #004F   #00FC
 202 ../../../as/floatedit.casl:29:  CPL     GR0,SPACE
 203         #0050   #4100
 204         #0051   #009A
 205 ../../../as/floatedit.casl:30:  JNZ     NOT1ST
 206         #0052   #6200
 207         #0053   #005C
 208 ../../../as/floatedit.casl:31:  LD      GR0,MASK
 209         #0054   #1000
 210         #0055   #008C
 211 ../../../as/floatedit.casl:32:  ST      GR0,OTAREA,GR2
 212         #0056   #1102
 213         #0057   #00FC
 214 ../../../as/floatedit.casl:33:  LAD     GR0,0
 215         #0058   #1200
 216         #0059   #0000
 217 ../../../as/floatedit.casl:34:  ST      GR0,ZSFLAG
 218         #005A   #1100
 219         #005B   #014D
 220 ../../../as/floatedit.casl:35:NOT1ST    LAD     GR0,0,GR3
 221         #005C   #1203
 222         #005D   #0000
 223 ../../../as/floatedit.casl:36:  JUMP    STORE
 224         #005E   #6400
 225         #005F   #006A
 226 ../../../as/floatedit.casl:37:NONDGT    LAD     GR1,-1,GR1
 227         #0060   #1211
 228         #0061   #FFFF
 229 ../../../as/floatedit.casl:38:  LAD     GR3,0
 230         #0062   #1230
 231         #0063   #0000
 232 ../../../as/floatedit.casl:39:  OR      GR3,ZSFLAG
 233         #0064   #3130
 234         #0065   #014D
 235 ../../../as/floatedit.casl:40:  JZE     STORE
 236         #0066   #6300
 237         #0067   #006A
 238 ../../../as/floatedit.casl:41:SUPPRS    LD      GR0,SPACE
 239         #0068   #1000
 240         #0069   #009A
 241 ../../../as/floatedit.casl:42:STORE     LAD     GR2,1,GR2
 242         #006A   #1222
 243         #006B   #0001
 244 ../../../as/floatedit.casl:43:  ST      GR0,OTAREA,GR2
 245         #006C   #1102
 246         #006D   #00FC
 247 ../../../as/floatedit.casl:44:  POP     GR3
 248         #006E   #7130
 249 ../../../as/floatedit.casl:45:  CPA     GR1,INLENG
 250         #006F   #4010
 251         #0070   #00FB
 252 ../../../as/floatedit.casl:46:  JNZ     LOOP
 253         #0071   #6200
 254         #0072   #0034
 255 ../../../as/floatedit.casl:47:  LAD     GR2,1,GR2
 256         #0073   #1222
 257         #0074   #0001
 258 ../../../as/floatedit.casl:48:  ST      GR2,OTLENG
 259         #0075   #1120
 260         #0076   #014C
 261 ../../../as/floatedit.casl:49:  OUT     OTAREA,OTLENG
 262         #0077   #7001
 263         #0078   #0000
 264         #0079   #7002
 265         #007A   #0000
 266         #007B   #1210
 267         #007C   #00FC
 268         #007D   #1020
 269         #007E   #014C
 270         #007F   #F000
 271         #0080   #0002
 272         #0081   #1210
 273         #0082   #014F
 274         #014F   #000A
 275         #0083   #1220
 276         #0084   #0001
 277         #0085   #F000
 278         #0086   #0002
 279         #0087   #7120
 280         #0088   #7110
 281 ../../../as/floatedit.casl:50:    JUMP RETRY
 282         #0089   #6400
 283         #008A   #0000
 284 ../../../as/floatedit.casl:51:FINISH    RET
 285         #008B   #8100
 286 ../../../as/floatedit.casl:52:MASK      DC      '\99,999,990.99'
 287         #008C   #005C
 288         #008D   #0039
 289         #008E   #0039
 290         #008F   #002C
 291         #0090   #0039
 292         #0091   #0039
 293         #0092   #0039
 294         #0093   #002C
 295         #0094   #0039
 296         #0095   #0039
 297         #0096   #0030
 298         #0097   #002E
 299         #0098   #0039
 300         #0099   #0039
 301 ../../../as/floatedit.casl:53:SPACE     DC      ' '
 302         #009A   #0020
 303 ../../../as/floatedit.casl:54:DIGIT0    DC      '0'
 304         #009B   #0030
 305 ../../../as/floatedit.casl:55:DIGIT9    DC      '9'
 306         #009C   #0039
 307 ../../../as/floatedit.casl:56:TEN       DC      10
 308         #009D   #000A
 309 ../../../as/floatedit.casl:57:ERRMSG    DC      'input error!'
 310         #009E   #0069
 311         #009F   #006E
 312         #00A0   #0070
 313         #00A1   #0075
 314         #00A2   #0074
 315         #00A3   #0020
 316         #00A4   #0065
 317         #00A5   #0072
 318         #00A6   #0072
 319         #00A7   #006F
 320         #00A8   #0072
 321         #00A9   #0021
 322 ../../../as/floatedit.casl:58:MSGLNG    DC      12
 323         #00AA   #000C
 324 ../../../as/floatedit.casl:59:INAREA    DS      80
 325         #00AB   #0000
 326         #00AC   #0000
 327         #00AD   #0000
 328         #00AE   #0000
 329         #00AF   #0000
 330         #00B0   #0000
 331         #00B1   #0000
 332         #00B2   #0000
 333         #00B3   #0000
 334         #00B4   #0000
 335         #00B5   #0000
 336         #00B6   #0000
 337         #00B7   #0000
 338         #00B8   #0000
 339         #00B9   #0000
 340         #00BA   #0000
 341         #00BB   #0000
 342         #00BC   #0000
 343         #00BD   #0000
 344         #00BE   #0000
 345         #00BF   #0000
 346         #00C0   #0000
 347         #00C1   #0000
 348         #00C2   #0000
 349         #00C3   #0000
 350         #00C4   #0000
 351         #00C5   #0000
 352         #00C6   #0000
 353         #00C7   #0000
 354         #00C8   #0000
 355         #00C9   #0000
 356         #00CA   #0000
 357         #00CB   #0000
 358         #00CC   #0000
 359         #00CD   #0000
 360         #00CE   #0000
 361         #00CF   #0000
 362         #00D0   #0000
 363         #00D1   #0000
 364         #00D2   #0000
 365         #00D3   #0000
 366         #00D4   #0000
 367         #00D5   #0000
 368         #00D6   #0000
 369         #00D7   #0000
 370         #00D8   #0000
 371         #00D9   #0000
 372         #00DA   #0000
 373         #00DB   #0000
 374         #00DC   #0000
 375         #00DD   #0000
 376         #00DE   #0000
 377         #00DF   #0000
 378         #00E0   #0000
 379         #00E1   #0000
 380         #00E2   #0000
 381         #00E3   #0000
 382         #00E4   #0000
 383         #00E5   #0000
 384         #00E6   #0000
 385         #00E7   #0000
 386         #00E8   #0000
 387         #00E9   #0000
 388         #00EA   #0000
 389         #00EB   #0000
 390         #00EC   #0000
 391         #00ED   #0000
 392         #00EE   #0000
 393         #00EF   #0000
 394         #00F0   #0000
 395         #00F1   #0000
 396         #00F2   #0000
 397         #00F3   #0000
 398         #00F4   #0000
 399         #00F5   #0000
 400         #00F6   #0000
 401         #00F7   #0000
 402         #00F8   #0000
 403         #00F9   #0000
 404         #00FA   #0000
 405 ../../../as/floatedit.casl:60:INLENG    DS      1
 406         #00FB   #0000
 407 ../../../as/floatedit.casl:61:OTAREA    DS      80
 408         #00FC   #0000
 409         #00FD   #0000
 410         #00FE   #0000
 411         #00FF   #0000
 412         #0100   #0000
 413         #0101   #0000
 414         #0102   #0000
 415         #0103   #0000
 416         #0104   #0000
 417         #0105   #0000
 418         #0106   #0000
 419         #0107   #0000
 420         #0108   #0000
 421         #0109   #0000
 422         #010A   #0000
 423         #010B   #0000
 424         #010C   #0000
 425         #010D   #0000
 426         #010E   #0000
 427         #010F   #0000
 428         #0110   #0000
 429         #0111   #0000
 430         #0112   #0000
 431         #0113   #0000
 432         #0114   #0000
 433         #0115   #0000
 434         #0116   #0000
 435         #0117   #0000
 436         #0118   #0000
 437         #0119   #0000
 438         #011A   #0000
 439         #011B   #0000
 440         #011C   #0000
 441         #011D   #0000
 442         #011E   #0000
 443         #011F   #0000
 444         #0120   #0000
 445         #0121   #0000
 446         #0122   #0000
 447         #0123   #0000
 448         #0124   #0000
 449         #0125   #0000
 450         #0126   #0000
 451         #0127   #0000
 452         #0128   #0000
 453         #0129   #0000
 454         #012A   #0000
 455         #012B   #0000
 456         #012C   #0000
 457         #012D   #0000
 458         #012E   #0000
 459         #012F   #0000
 460         #0130   #0000
 461         #0131   #0000
 462         #0132   #0000
 463         #0133   #0000
 464         #0134   #0000
 465         #0135   #0000
 466         #0136   #0000
 467         #0137   #0000
 468         #0138   #0000
 469         #0139   #0000
 470         #013A   #0000
 471         #013B   #0000
 472         #013C   #0000
 473         #013D   #0000
 474         #013E   #0000
 475         #013F   #0000
 476         #0140   #0000
 477         #0141   #0000
 478         #0142   #0000
 479         #0143   #0000
 480         #0144   #0000
 481         #0145   #0000
 482         #0146   #0000
 483         #0147   #0000
 484         #0148   #0000
 485         #0149   #0000
 486         #014A   #0000
 487         #014B   #0000
 488 ../../../as/floatedit.casl:62:OTLENG    DS      1
 489         #014C   #0000
 490 ../../../as/floatedit.casl:63:ZSFLAG    DS      1
 491         #014D   #0000
 492 ../../../as/floatedit.casl:64:  END
 493 input error!
 494 input error!
 495 input error!
 496 \12,345,678.90
 497 \12,345,678.09
 498  \2,234,568.19
 499  \2,234,068.19
 500          \0.01