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