--- /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
projects / YACASL2.git / blobdiff