projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
CASLファイルの追加、整理
[YACASL2.git]
/
as
/
yakuwa
/
floatedit.casl
1
EDIT START
2
RETRY IN INAREA,INLENG
3
LAD GR1,0
4
OR GR1,INLENG
5
JZE FINISH
6
CPA GR1,TEN
7
JZE BEGIN
8
OUT ERRMSG,MSGLNG
9
JUMP RETRY
10
BEGIN LAD GR0,1
11
ST GR0,ZSFLAG
12
LAD GR1,0
13
LAD GR2,-1
14
LAD GR3,0
15
LOOP LD GR0,MASK,GR3
16
PUSH 1,GR3
17
LD GR3,INAREA,GR1
18
LAD GR1,1,GR1
19
CPL GR0,DIGIT0
20
JZE ENDSPR
21
CPL GR0,DIGIT9
22
JNZ NONDGT
23
CPL GR3,DIGIT0
24
JNZ ENDSPR
25
LAD GR0,0
26
OR GR0,ZSFLAG
27
JNZ SUPPRS
28
ENDSPR LD GR0,OTAREA,GR2
29
CPL GR0,SPACE
30
JNZ NOT1ST
31
LD GR0,MASK
32
ST GR0,OTAREA,GR2
33
LAD GR0,0
34
ST GR0,ZSFLAG
35
NOT1ST LAD GR0,0,GR3
36
JUMP STORE
37
NONDGT LAD GR1,-1,GR1
38
LAD GR3,0
39
OR GR3,ZSFLAG
40
JZE STORE
41
SUPPRS LD GR0,SPACE
42
STORE LAD GR2,1,GR2
43
ST GR0,OTAREA,GR2
44
POP GR3
45
CPA GR1,INLENG
46
JNZ LOOP
47
LAD GR2,1,GR2
48
ST GR2,OTLENG
49
OUT OTAREA,OTLENG
50
JUMP RETRY
51
FINISH RET
52
MASK DC '\99,999,990.99'
53
SPACE DC ' '
54
DIGIT0 DC '0'
55
DIGIT9 DC '9'
56
TEN DC 10
57
ERRMSG DC 'input error!'
58
MSGLNG DC 12
59
INAREA DS 80
60
INLENG DS 1
61
OTAREA DS 80
62
OTLENG DS 1
63
ZSFLAG DS 1
64
END