X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fyakuwa%2Ffloatedit.casl;h=7f11e9fb98bf135bd5a3112a452d8d68940ddc6a;hb=7a360e7f77580a2504ed331c6b23c392bd62f4cc;hp=f4121b27b4850b899aa62c397c7fa2f9180e0fa0;hpb=93cd1261d2f4247c3324a2bcb69dc4a077a4aa77;p=YACASL2.git

diff --git a/as/yakuwa/floatedit.casl b/as/yakuwa/floatedit.casl
index f4121b2..7f11e9f 100644
--- a/as/yakuwa/floatedit.casl
+++ b/as/yakuwa/floatedit.casl
@@ -1,64 +1,64 @@
-EDIT	START
-RETRY	IN	INAREA,INLENG
-	LAD	GR1,0
-	OR	GR1,INLENG
-	JZE	FINISH
-	CPA	GR1,TEN
-	JZE	BEGIN
-	OUT	ERRMSG,MSGLNG
-	JUMP	RETRY
-BEGIN	LAD	GR0,1
-	ST	GR0,ZSFLAG
-	LAD	GR1,0
-	LAD	GR2,-1
-	LAD	GR3,0
-LOOP	LD	GR0,MASK,GR3
-	PUSH	1,GR3
-	LD	GR3,INAREA,GR1
-	LAD	GR1,1,GR1
-	CPL	GR0,DIGIT0
-	JZE	ENDSPR
-	CPL	GR0,DIGIT9
-	JNZ	NONDGT
-	CPL	GR3,DIGIT0
-	JNZ	ENDSPR
-	LAD	GR0,0
-	OR	GR0,ZSFLAG
-	JNZ	SUPPRS
-ENDSPR	LD	GR0,OTAREA,GR2
-	CPL	GR0,SPACE
-	JNZ	NOT1ST
-	LD	GR0,MASK
-	ST	GR0,OTAREA,GR2
-	LAD	GR0,0
-	ST	GR0,ZSFLAG
-NOT1ST	LAD	GR0,0,GR3
-	JUMP	STORE
-NONDGT	LAD	GR1,-1,GR1
-	LAD	GR3,0
-	OR	GR3,ZSFLAG
-	JZE	STORE
-SUPPRS	LD	GR0,SPACE
-STORE	LAD	GR2,1,GR2
-	ST	GR0,OTAREA,GR2
-	POP	GR3
-	CPA	GR1,INLENG
-	JNZ	LOOP
-	LAD	GR2,1,GR2
-	ST	GR2,OTLENG
-	OUT	OTAREA,OTLENG
-    JUMP RETRY
-FINISH	RET
-MASK	DC	'\99,999,990.99'
-SPACE	DC	' '
-DIGIT0	DC	'0'
-DIGIT9	DC	'9'
-TEN	DC	10
-ERRMSG	DC	'input error!'
-MSGLNG	DC	12
-INAREA	DS	80
-INLENG	DS	1
-OTAREA	DS	80
-OTLENG	DS	1
-ZSFLAG	DS	1
-	END
+EDIT    START
+RETRY   IN      INAREA,INLENG
+        LAD     GR1,0
+        OR      GR1,INLENG
+        JZE     FINISH
+        CPA     GR1,TEN
+        JZE     BEGIN
+        OUT     ERRMSG,MSGLNG
+        JUMP    RETRY
+BEGIN   LAD     GR0,1
+        ST      GR0,ZSFLAG
+        LAD     GR1,0
+        LAD     GR2,-1
+        LAD     GR3,0
+LOOP    LD      GR0,MASK,GR3
+        PUSH    1,GR3
+        LD      GR3,INAREA,GR1
+        LAD     GR1,1,GR1
+        CPL     GR0,DIGIT0
+        JZE     ENDSPR
+        CPL     GR0,DIGIT9
+        JNZ     NONDGT
+        CPL     GR3,DIGIT0
+        JNZ     ENDSPR
+        LAD     GR0,0
+        OR      GR0,ZSFLAG
+        JNZ     SUPPRS
+ENDSPR  LD      GR0,OTAREA,GR2
+        CPL     GR0,SPACE
+        JNZ     NOT1ST
+        LD      GR0,MASK
+        ST      GR0,OTAREA,GR2
+        LAD     GR0,0
+        ST      GR0,ZSFLAG
+NOT1ST  LAD     GR0,0,GR3
+        JUMP    STORE
+NONDGT  LAD     GR1,-1,GR1
+        LAD     GR3,0
+        OR      GR3,ZSFLAG
+        JZE     STORE
+SUPPRS  LD      GR0,SPACE
+STORE   LAD     GR2,1,GR2
+        ST      GR0,OTAREA,GR2
+        POP     GR3
+        CPA     GR1,INLENG
+        JNZ     LOOP
+        LAD     GR2,1,GR2
+        ST      GR2,OTLENG
+        OUT     OTAREA,OTLENG
+        JUMP    RETRY
+FINISH  RET
+MASK    DC      '\99,999,990.99'
+SPACE   DC      ' '
+DIGIT0  DC      '0'
+DIGIT9  DC      '9'
+TEN     DC      10
+ERRMSG  DC      'input error!'
+MSGLNG  DC      12
+INAREA  DS      80
+INLENG  DS      1
+OTAREA  DS      80
+OTLENG  DS      1
+ZSFLAG  DS      1
+        END