+++ /dev/null
-../../../../casl2 -sla ../../../../as/YAKUWA/floatedit.casl
-
-Assemble ../../../../as/YAKUWA/floatedit.casl (0)
-../../../../as/YAKUWA/floatedit.casl: 1:EDIT START
-../../../../as/YAKUWA/floatedit.casl: 2:RETRY IN INAREA,INLENG
-../../../../as/YAKUWA/floatedit.casl: 3: LAD GR1,0
-../../../../as/YAKUWA/floatedit.casl: 4: OR GR1,INLENG
-../../../../as/YAKUWA/floatedit.casl: 5: JZE FINISH
-../../../../as/YAKUWA/floatedit.casl: 6: CPA GR1,TEN
-../../../../as/YAKUWA/floatedit.casl: 7: JZE BEGIN
-../../../../as/YAKUWA/floatedit.casl: 8: OUT ERRMSG,MSGLNG
-../../../../as/YAKUWA/floatedit.casl: 9: JUMP RETRY
-../../../../as/YAKUWA/floatedit.casl: 10:BEGIN LAD GR0,1
-../../../../as/YAKUWA/floatedit.casl: 11: ST GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl: 12: LAD GR1,0
-../../../../as/YAKUWA/floatedit.casl: 13: LAD GR2,-1
-../../../../as/YAKUWA/floatedit.casl: 14: LAD GR3,0
-../../../../as/YAKUWA/floatedit.casl: 15:LOOP LD GR0,MASK,GR3
-../../../../as/YAKUWA/floatedit.casl: 16: PUSH 1,GR3
-../../../../as/YAKUWA/floatedit.casl: 17: LD GR3,INAREA,GR1
-../../../../as/YAKUWA/floatedit.casl: 18: LAD GR1,1,GR1
-../../../../as/YAKUWA/floatedit.casl: 19: CPL GR0,DIGIT0
-../../../../as/YAKUWA/floatedit.casl: 20: JZE ENDSPR
-../../../../as/YAKUWA/floatedit.casl: 21: CPL GR0,DIGIT9
-../../../../as/YAKUWA/floatedit.casl: 22: JNZ NONDGT
-../../../../as/YAKUWA/floatedit.casl: 23: CPL GR3,DIGIT0
-../../../../as/YAKUWA/floatedit.casl: 24: JNZ ENDSPR
-../../../../as/YAKUWA/floatedit.casl: 25: LAD GR0,0
-../../../../as/YAKUWA/floatedit.casl: 26: OR GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl: 27: JNZ SUPPRS
-../../../../as/YAKUWA/floatedit.casl: 28:ENDSPR LD GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl: 29: CPL GR0,SPACE
-../../../../as/YAKUWA/floatedit.casl: 30: JNZ NOT1ST
-../../../../as/YAKUWA/floatedit.casl: 31: LD GR0,MASK
-../../../../as/YAKUWA/floatedit.casl: 32: ST GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl: 33: LAD GR0,0
-../../../../as/YAKUWA/floatedit.casl: 34: ST GR0,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl: 35:NOT1ST LAD GR0,0,GR3
-../../../../as/YAKUWA/floatedit.casl: 36: JUMP STORE
-../../../../as/YAKUWA/floatedit.casl: 37:NONDGT LAD GR1,-1,GR1
-../../../../as/YAKUWA/floatedit.casl: 38: LAD GR3,0
-../../../../as/YAKUWA/floatedit.casl: 39: OR GR3,ZSFLAG
-../../../../as/YAKUWA/floatedit.casl: 40: JZE STORE
-../../../../as/YAKUWA/floatedit.casl: 41:SUPPRS LD GR0,SPACE
-../../../../as/YAKUWA/floatedit.casl: 42:STORE LAD GR2,1,GR2
-../../../../as/YAKUWA/floatedit.casl: 43: ST GR0,OTAREA,GR2
-../../../../as/YAKUWA/floatedit.casl: 44: POP GR3
-../../../../as/YAKUWA/floatedit.casl: 45: CPA GR1,INLENG
-../../../../as/YAKUWA/floatedit.casl: 46: JNZ LOOP
-../../../../as/YAKUWA/floatedit.casl: 47: LAD GR2,1,GR2
-../../../../as/YAKUWA/floatedit.casl: 48: ST GR2,OTLENG
-../../../../as/YAKUWA/floatedit.casl: 49: OUT OTAREA,OTLENG
-../../../../as/YAKUWA/floatedit.casl: 50: JUMP RETRY
-../../../../as/YAKUWA/floatedit.casl: 51:FINISH RET
-../../../../as/YAKUWA/floatedit.casl: 52:MASK DC '\99,999,990.99'
-../../../../as/YAKUWA/floatedit.casl: 53:SPACE DC ' '
-../../../../as/YAKUWA/floatedit.casl: 54:DIGIT0 DC '0'
-../../../../as/YAKUWA/floatedit.casl: 55:DIGIT9 DC '9'
-../../../../as/YAKUWA/floatedit.casl: 56:TEN DC 10
-../../../../as/YAKUWA/floatedit.casl: 57:ERRMSG DC 'input error!'
-../../../../as/YAKUWA/floatedit.casl: 58:MSGLNG DC 12
-../../../../as/YAKUWA/floatedit.casl: 59:INAREA DS 80
-../../../../as/YAKUWA/floatedit.casl: 60:INLENG DS 1
-../../../../as/YAKUWA/floatedit.casl: 61:OTAREA DS 80
-../../../../as/YAKUWA/floatedit.casl: 62:OTLENG DS 1
-../../../../as/YAKUWA/floatedit.casl: 63:ZSFLAG DS 1
-../../../../as/YAKUWA/floatedit.casl: 64: END
-
-Label::::
-EDIT ---> #0000
-EDIT.SPACE ---> #009A
-EDIT.FINISH ---> #008B
-EDIT.INLENG ---> #00FB
-EDIT.SUPPRS ---> #0068
-EDIT.NOT1ST ---> #005C
-EDIT.DIGIT0 ---> #009B
-EDIT.DIGIT9 ---> #009C
-EDIT.OTAREA ---> #00FC
-EDIT.ENDSPR ---> #004E
-EDIT.ERRMSG ---> #009E
-EDIT.MSGLNG ---> #00AA
-EDIT.LOOP ---> #0034
-EDIT.ZSFLAG ---> #014D
-EDIT.TEN ---> #009D
-EDIT.INAREA ---> #00AB
-EDIT.RETRY ---> #0000
-EDIT.BEGIN ---> #002A
-EDIT.OTLENG ---> #014C
-EDIT.NONDGT ---> #0060
-EDIT.MASK ---> #008C
-EDIT.STORE ---> #006A
-
-Assemble ../../../../as/YAKUWA/floatedit.casl (1)
-../../../../as/YAKUWA/floatedit.casl: 1:EDIT START
-../../../../as/YAKUWA/floatedit.casl: 2:RETRY IN INAREA,INLENG
- #0000 #7001
- #0001 #0000
- #0002 #7002
- #0003 #0000
- #0004 #1210
- #0005 #00AB
- #0006 #1220
- #0007 #00FB
- #0008 #F000
- #0009 #0001
- #000A #7120
- #000B #7110
-../../../../as/YAKUWA/floatedit.casl: 3: LAD GR1,0
- #000C #1210
- #000D #0000
-../../../../as/YAKUWA/floatedit.casl: 4: OR GR1,INLENG
- #000E #3110
- #000F #00FB
-../../../../as/YAKUWA/floatedit.casl: 5: JZE FINISH
- #0010 #6300
- #0011 #008B
-../../../../as/YAKUWA/floatedit.casl: 6: CPA GR1,TEN
- #0012 #4010
- #0013 #009D
-../../../../as/YAKUWA/floatedit.casl: 7: JZE BEGIN
- #0014 #6300
- #0015 #002A
-../../../../as/YAKUWA/floatedit.casl: 8: OUT ERRMSG,MSGLNG
- #0016 #7001
- #0017 #0000
- #0018 #7002
- #0019 #0000
- #001A #1210
- #001B #009E
- #001C #1220
- #001D #00AA
- #001E #F000
- #001F #0002
- #0020 #1210
- #0021 #014E
- #014E #000A
- #0022 #1220
- #0023 #014F
- #014F #0001
- #0024 #F000
- #0025 #0002
- #0026 #7120
- #0027 #7110
-../../../../as/YAKUWA/floatedit.casl: 9: JUMP RETRY
- #0028 #6400
- #0029 #0000
-../../../../as/YAKUWA/floatedit.casl: 10:BEGIN LAD GR0,1
- #002A #1200
- #002B #0001
-../../../../as/YAKUWA/floatedit.casl: 11: ST GR0,ZSFLAG
- #002C #1100
- #002D #014D
-../../../../as/YAKUWA/floatedit.casl: 12: LAD GR1,0
- #002E #1210
- #002F #0000
-../../../../as/YAKUWA/floatedit.casl: 13: LAD GR2,-1
- #0030 #1220
- #0031 #FFFF
-../../../../as/YAKUWA/floatedit.casl: 14: LAD GR3,0
- #0032 #1230
- #0033 #0000
-../../../../as/YAKUWA/floatedit.casl: 15:LOOP LD GR0,MASK,GR3
- #0034 #1003
- #0035 #008C
-../../../../as/YAKUWA/floatedit.casl: 16: PUSH 1,GR3
- #0036 #7003
- #0037 #0001
-../../../../as/YAKUWA/floatedit.casl: 17: LD GR3,INAREA,GR1
- #0038 #1031
- #0039 #00AB
-../../../../as/YAKUWA/floatedit.casl: 18: LAD GR1,1,GR1
- #003A #1211
- #003B #0001
-../../../../as/YAKUWA/floatedit.casl: 19: CPL GR0,DIGIT0
- #003C #4100
- #003D #009B
-../../../../as/YAKUWA/floatedit.casl: 20: JZE ENDSPR
- #003E #6300
- #003F #004E
-../../../../as/YAKUWA/floatedit.casl: 21: CPL GR0,DIGIT9
- #0040 #4100
- #0041 #009C
-../../../../as/YAKUWA/floatedit.casl: 22: JNZ NONDGT
- #0042 #6200
- #0043 #0060
-../../../../as/YAKUWA/floatedit.casl: 23: CPL GR3,DIGIT0
- #0044 #4130
- #0045 #009B
-../../../../as/YAKUWA/floatedit.casl: 24: JNZ ENDSPR
- #0046 #6200
- #0047 #004E
-../../../../as/YAKUWA/floatedit.casl: 25: LAD GR0,0
- #0048 #1200
- #0049 #0000
-../../../../as/YAKUWA/floatedit.casl: 26: OR GR0,ZSFLAG
- #004A #3100
- #004B #014D
-../../../../as/YAKUWA/floatedit.casl: 27: JNZ SUPPRS
- #004C #6200
- #004D #0068
-../../../../as/YAKUWA/floatedit.casl: 28:ENDSPR LD GR0,OTAREA,GR2
- #004E #1002
- #004F #00FC
-../../../../as/YAKUWA/floatedit.casl: 29: CPL GR0,SPACE
- #0050 #4100
- #0051 #009A
-../../../../as/YAKUWA/floatedit.casl: 30: JNZ NOT1ST
- #0052 #6200
- #0053 #005C
-../../../../as/YAKUWA/floatedit.casl: 31: LD GR0,MASK
- #0054 #1000
- #0055 #008C
-../../../../as/YAKUWA/floatedit.casl: 32: ST GR0,OTAREA,GR2
- #0056 #1102
- #0057 #00FC
-../../../../as/YAKUWA/floatedit.casl: 33: LAD GR0,0
- #0058 #1200
- #0059 #0000
-../../../../as/YAKUWA/floatedit.casl: 34: ST GR0,ZSFLAG
- #005A #1100
- #005B #014D
-../../../../as/YAKUWA/floatedit.casl: 35:NOT1ST LAD GR0,0,GR3
- #005C #1203
- #005D #0000
-../../../../as/YAKUWA/floatedit.casl: 36: JUMP STORE
- #005E #6400
- #005F #006A
-../../../../as/YAKUWA/floatedit.casl: 37:NONDGT LAD GR1,-1,GR1
- #0060 #1211
- #0061 #FFFF
-../../../../as/YAKUWA/floatedit.casl: 38: LAD GR3,0
- #0062 #1230
- #0063 #0000
-../../../../as/YAKUWA/floatedit.casl: 39: OR GR3,ZSFLAG
- #0064 #3130
- #0065 #014D
-../../../../as/YAKUWA/floatedit.casl: 40: JZE STORE
- #0066 #6300
- #0067 #006A
-../../../../as/YAKUWA/floatedit.casl: 41:SUPPRS LD GR0,SPACE
- #0068 #1000
- #0069 #009A
-../../../../as/YAKUWA/floatedit.casl: 42:STORE LAD GR2,1,GR2
- #006A #1222
- #006B #0001
-../../../../as/YAKUWA/floatedit.casl: 43: ST GR0,OTAREA,GR2
- #006C #1102
- #006D #00FC
-../../../../as/YAKUWA/floatedit.casl: 44: POP GR3
- #006E #7130
-../../../../as/YAKUWA/floatedit.casl: 45: CPA GR1,INLENG
- #006F #4010
- #0070 #00FB
-../../../../as/YAKUWA/floatedit.casl: 46: JNZ LOOP
- #0071 #6200
- #0072 #0034
-../../../../as/YAKUWA/floatedit.casl: 47: LAD GR2,1,GR2
- #0073 #1222
- #0074 #0001
-../../../../as/YAKUWA/floatedit.casl: 48: ST GR2,OTLENG
- #0075 #1120
- #0076 #014C
-../../../../as/YAKUWA/floatedit.casl: 49: OUT OTAREA,OTLENG
- #0077 #7001
- #0078 #0000
- #0079 #7002
- #007A #0000
- #007B #1210
- #007C #00FC
- #007D #1220
- #007E #014C
- #007F #F000
- #0080 #0002
- #0081 #1210
- #0082 #0150
- #0150 #000A
- #0083 #1220
- #0084 #0151
- #0151 #0001
- #0085 #F000
- #0086 #0002
- #0087 #7120
- #0088 #7110
-../../../../as/YAKUWA/floatedit.casl: 50: JUMP RETRY
- #0089 #6400
- #008A #0000
-../../../../as/YAKUWA/floatedit.casl: 51:FINISH RET
- #008B #8100
-../../../../as/YAKUWA/floatedit.casl: 52:MASK DC '\99,999,990.99'
- #008C #005C
- #008D #0039
- #008E #0039
- #008F #002C
- #0090 #0039
- #0091 #0039
- #0092 #0039
- #0093 #002C
- #0094 #0039
- #0095 #0039
- #0096 #0030
- #0097 #002E
- #0098 #0039
- #0099 #0039
-../../../../as/YAKUWA/floatedit.casl: 53:SPACE DC ' '
- #009A #0020
-../../../../as/YAKUWA/floatedit.casl: 54:DIGIT0 DC '0'
- #009B #0030
-../../../../as/YAKUWA/floatedit.casl: 55:DIGIT9 DC '9'
- #009C #0039
-../../../../as/YAKUWA/floatedit.casl: 56:TEN DC 10
- #009D #000A
-../../../../as/YAKUWA/floatedit.casl: 57:ERRMSG DC 'input error!'
- #009E #0069
- #009F #006E
- #00A0 #0070
- #00A1 #0075
- #00A2 #0074
- #00A3 #0020
- #00A4 #0065
- #00A5 #0072
- #00A6 #0072
- #00A7 #006F
- #00A8 #0072
- #00A9 #0021
-../../../../as/YAKUWA/floatedit.casl: 58:MSGLNG DC 12
- #00AA #000C
-../../../../as/YAKUWA/floatedit.casl: 59:INAREA DS 80
- #00AB #0000
- #00AC #0000
- #00AD #0000
- #00AE #0000
- #00AF #0000
- #00B0 #0000
- #00B1 #0000
- #00B2 #0000
- #00B3 #0000
- #00B4 #0000
- #00B5 #0000
- #00B6 #0000
- #00B7 #0000
- #00B8 #0000
- #00B9 #0000
- #00BA #0000
- #00BB #0000
- #00BC #0000
- #00BD #0000
- #00BE #0000
- #00BF #0000
- #00C0 #0000
- #00C1 #0000
- #00C2 #0000
- #00C3 #0000
- #00C4 #0000
- #00C5 #0000
- #00C6 #0000
- #00C7 #0000
- #00C8 #0000
- #00C9 #0000
- #00CA #0000
- #00CB #0000
- #00CC #0000
- #00CD #0000
- #00CE #0000
- #00CF #0000
- #00D0 #0000
- #00D1 #0000
- #00D2 #0000
- #00D3 #0000
- #00D4 #0000
- #00D5 #0000
- #00D6 #0000
- #00D7 #0000
- #00D8 #0000
- #00D9 #0000
- #00DA #0000
- #00DB #0000
- #00DC #0000
- #00DD #0000
- #00DE #0000
- #00DF #0000
- #00E0 #0000
- #00E1 #0000
- #00E2 #0000
- #00E3 #0000
- #00E4 #0000
- #00E5 #0000
- #00E6 #0000
- #00E7 #0000
- #00E8 #0000
- #00E9 #0000
- #00EA #0000
- #00EB #0000
- #00EC #0000
- #00ED #0000
- #00EE #0000
- #00EF #0000
- #00F0 #0000
- #00F1 #0000
- #00F2 #0000
- #00F3 #0000
- #00F4 #0000
- #00F5 #0000
- #00F6 #0000
- #00F7 #0000
- #00F8 #0000
- #00F9 #0000
- #00FA #0000
-../../../../as/YAKUWA/floatedit.casl: 60:INLENG DS 1
- #00FB #0000
-../../../../as/YAKUWA/floatedit.casl: 61:OTAREA DS 80
- #00FC #0000
- #00FD #0000
- #00FE #0000
- #00FF #0000
- #0100 #0000
- #0101 #0000
- #0102 #0000
- #0103 #0000
- #0104 #0000
- #0105 #0000
- #0106 #0000
- #0107 #0000
- #0108 #0000
- #0109 #0000
- #010A #0000
- #010B #0000
- #010C #0000
- #010D #0000
- #010E #0000
- #010F #0000
- #0110 #0000
- #0111 #0000
- #0112 #0000
- #0113 #0000
- #0114 #0000
- #0115 #0000
- #0116 #0000
- #0117 #0000
- #0118 #0000
- #0119 #0000
- #011A #0000
- #011B #0000
- #011C #0000
- #011D #0000
- #011E #0000
- #011F #0000
- #0120 #0000
- #0121 #0000
- #0122 #0000
- #0123 #0000
- #0124 #0000
- #0125 #0000
- #0126 #0000
- #0127 #0000
- #0128 #0000
- #0129 #0000
- #012A #0000
- #012B #0000
- #012C #0000
- #012D #0000
- #012E #0000
- #012F #0000
- #0130 #0000
- #0131 #0000
- #0132 #0000
- #0133 #0000
- #0134 #0000
- #0135 #0000
- #0136 #0000
- #0137 #0000
- #0138 #0000
- #0139 #0000
- #013A #0000
- #013B #0000
- #013C #0000
- #013D #0000
- #013E #0000
- #013F #0000
- #0140 #0000
- #0141 #0000
- #0142 #0000
- #0143 #0000
- #0144 #0000
- #0145 #0000
- #0146 #0000
- #0147 #0000
- #0148 #0000
- #0149 #0000
- #014A #0000
- #014B #0000
-../../../../as/YAKUWA/floatedit.casl: 62:OTLENG DS 1
- #014C #0000
-../../../../as/YAKUWA/floatedit.casl: 63:ZSFLAG DS 1
- #014D #0000
-../../../../as/YAKUWA/floatedit.casl: 64: END
-input error!
-input error!
-input error!
-\12,345,678.90
-\12,345,678.09
- \2,234,568.19
- \2,234,068.19
- \0.01