1 ../../../../casl2 -sla ../../../../as/YAKUWA/floatedit.casl
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
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
83 EDIT.ZSFLAG ---> #014D
85 EDIT.INAREA ---> #00AB
88 EDIT.OTLENG ---> #014C
89 EDIT.NONDGT ---> #0060
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
108 ../../../../as/YAKUWA/floatedit.casl: 3: LAD GR1,0
111 ../../../../as/YAKUWA/floatedit.casl: 4: OR GR1,INLENG
114 ../../../../as/YAKUWA/floatedit.casl: 5: JZE FINISH
117 ../../../../as/YAKUWA/floatedit.casl: 6: CPA GR1,TEN
120 ../../../../as/YAKUWA/floatedit.casl: 7: JZE BEGIN
123 ../../../../as/YAKUWA/floatedit.casl: 8: OUT ERRMSG,MSGLNG
143 ../../../../as/YAKUWA/floatedit.casl: 9: JUMP RETRY
146 ../../../../as/YAKUWA/floatedit.casl: 10:BEGIN LAD GR0,1
149 ../../../../as/YAKUWA/floatedit.casl: 11: ST GR0,ZSFLAG
152 ../../../../as/YAKUWA/floatedit.casl: 12: LAD GR1,0
155 ../../../../as/YAKUWA/floatedit.casl: 13: LAD GR2,-1
158 ../../../../as/YAKUWA/floatedit.casl: 14: LAD GR3,0
161 ../../../../as/YAKUWA/floatedit.casl: 15:LOOP LD GR0,MASK,GR3
164 ../../../../as/YAKUWA/floatedit.casl: 16: PUSH 1,GR3
167 ../../../../as/YAKUWA/floatedit.casl: 17: LD GR3,INAREA,GR1
170 ../../../../as/YAKUWA/floatedit.casl: 18: LAD GR1,1,GR1
173 ../../../../as/YAKUWA/floatedit.casl: 19: CPL GR0,DIGIT0
176 ../../../../as/YAKUWA/floatedit.casl: 20: JZE ENDSPR
179 ../../../../as/YAKUWA/floatedit.casl: 21: CPL GR0,DIGIT9
182 ../../../../as/YAKUWA/floatedit.casl: 22: JNZ NONDGT
185 ../../../../as/YAKUWA/floatedit.casl: 23: CPL GR3,DIGIT0
188 ../../../../as/YAKUWA/floatedit.casl: 24: JNZ ENDSPR
191 ../../../../as/YAKUWA/floatedit.casl: 25: LAD GR0,0
194 ../../../../as/YAKUWA/floatedit.casl: 26: OR GR0,ZSFLAG
197 ../../../../as/YAKUWA/floatedit.casl: 27: JNZ SUPPRS
200 ../../../../as/YAKUWA/floatedit.casl: 28:ENDSPR LD GR0,OTAREA,GR2
203 ../../../../as/YAKUWA/floatedit.casl: 29: CPL GR0,SPACE
206 ../../../../as/YAKUWA/floatedit.casl: 30: JNZ NOT1ST
209 ../../../../as/YAKUWA/floatedit.casl: 31: LD GR0,MASK
212 ../../../../as/YAKUWA/floatedit.casl: 32: ST GR0,OTAREA,GR2
215 ../../../../as/YAKUWA/floatedit.casl: 33: LAD GR0,0
218 ../../../../as/YAKUWA/floatedit.casl: 34: ST GR0,ZSFLAG
221 ../../../../as/YAKUWA/floatedit.casl: 35:NOT1ST LAD GR0,0,GR3
224 ../../../../as/YAKUWA/floatedit.casl: 36: JUMP STORE
227 ../../../../as/YAKUWA/floatedit.casl: 37:NONDGT LAD GR1,-1,GR1
230 ../../../../as/YAKUWA/floatedit.casl: 38: LAD GR3,0
233 ../../../../as/YAKUWA/floatedit.casl: 39: OR GR3,ZSFLAG
236 ../../../../as/YAKUWA/floatedit.casl: 40: JZE STORE
239 ../../../../as/YAKUWA/floatedit.casl: 41:SUPPRS LD GR0,SPACE
242 ../../../../as/YAKUWA/floatedit.casl: 42:STORE LAD GR2,1,GR2
245 ../../../../as/YAKUWA/floatedit.casl: 43: ST GR0,OTAREA,GR2
248 ../../../../as/YAKUWA/floatedit.casl: 44: POP GR3
250 ../../../../as/YAKUWA/floatedit.casl: 45: CPA GR1,INLENG
253 ../../../../as/YAKUWA/floatedit.casl: 46: JNZ LOOP
256 ../../../../as/YAKUWA/floatedit.casl: 47: LAD GR2,1,GR2
259 ../../../../as/YAKUWA/floatedit.casl: 48: ST GR2,OTLENG
262 ../../../../as/YAKUWA/floatedit.casl: 49: OUT OTAREA,OTLENG
282 ../../../../as/YAKUWA/floatedit.casl: 50: JUMP RETRY
285 ../../../../as/YAKUWA/floatedit.casl: 51:FINISH RET
287 ../../../../as/YAKUWA/floatedit.casl: 52:MASK DC '\99,999,990.99'
302 ../../../../as/YAKUWA/floatedit.casl: 53:SPACE DC ' '
304 ../../../../as/YAKUWA/floatedit.casl: 54:DIGIT0 DC '0'
306 ../../../../as/YAKUWA/floatedit.casl: 55:DIGIT9 DC '9'
308 ../../../../as/YAKUWA/floatedit.casl: 56:TEN DC 10
310 ../../../../as/YAKUWA/floatedit.casl: 57:ERRMSG DC 'input error!'
323 ../../../../as/YAKUWA/floatedit.casl: 58:MSGLNG DC 12
325 ../../../../as/YAKUWA/floatedit.casl: 59:INAREA DS 80
406 ../../../../as/YAKUWA/floatedit.casl: 60:INLENG DS 1
408 ../../../../as/YAKUWA/floatedit.casl: 61:OTAREA DS 80
489 ../../../../as/YAKUWA/floatedit.casl: 62:OTLENG DS 1
491 ../../../../as/YAKUWA/floatedit.casl: 63:ZSFLAG DS 1
493 ../../../../as/YAKUWA/floatedit.casl: 64: END