test/integration/casl2/floatedit/0.txt

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