X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fyakuwa%2Ffloatedit%2F0.txt;fp=as%2Fyakuwa%2Ffloatedit%2F0.txt;h=0000000000000000000000000000000000000000;hp=03850ba12380d743c49bf013c31a579007612549;hb=05965ee87822b44616998d347d8f91fbf550eb2e;hpb=e53b9aa2cd0e67ff64c52fa1b83e16c048283dbd

diff --git a/as/yakuwa/floatedit/0.txt b/as/yakuwa/floatedit/0.txt
deleted file mode 100644
index 03850ba..0000000
--- a/as/yakuwa/floatedit/0.txt
+++ /dev/null
@@ -1,503 +0,0 @@
-../../../../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