X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=test%2Fintegration%2Fcasl2%2Ffloatedit%2F0.txt;fp=test%2Fintegration%2Fcasl2%2Ffloatedit%2F0.txt;h=c8369b1ba0c3e3768b3c8a68280c5d183a6ab019;hb=350188e12a316928e5b2d8473f580528b2780d8b;hp=0000000000000000000000000000000000000000;hpb=faec695d5b7ecf7dd3e4a07ac926ea93ca89020b;p=YACASL2.git

diff --git a/test/integration/casl2/floatedit/0.txt b/test/integration/casl2/floatedit/0.txt
new file mode 100644
index 0000000..c8369b1
--- /dev/null
+++ b/test/integration/casl2/floatedit/0.txt
@@ -0,0 +1,501 @@
+../../../../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::::
+MSGLNG ---> #00AA
+EDIT ---> #0000
+ZSFLAG ---> #014D
+INAREA ---> #00AB
+OTLENG ---> #014C
+NONDGT ---> #0060
+RETRY ---> #0000
+BEGIN ---> #002A
+FINISH ---> #008B
+INLENG ---> #00FB
+SUPPRS ---> #0068
+LOOP ---> #0034
+NOT1ST ---> #005C
+STORE ---> #006A
+DIGIT0 ---> #009B
+DIGIT9 ---> #009C
+SPACE ---> #009A
+MASK ---> #008C
+OTAREA ---> #00FC
+ENDSPR ---> #004E
+ERRMSG ---> #009E
+TEN ---> #009D
+
+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	#1020
+	#001D	#00AA
+	#001E	#F000
+	#001F	#0002
+	#0020	#1210
+	#0021	#014E
+	#014E	#000A
+	#0022	#1220
+	#0023	#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	#1020
+	#007E	#014C
+	#007F	#F000
+	#0080	#0002
+	#0081	#1210
+	#0082	#014F
+	#014F	#000A
+	#0083	#1220
+	#0084	#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