@@ 363,6 363,10 @@ JMP2r
;ari1-1x-lut OVR2 afnd #ffff EQU2 ?&no-ari1-1x
POP2 POP2 #01 JMP2r
&no-ari1-1x
+ OVR2 ;&ari1-11 scmp #00 EQU ?&no-ari1-11
+ ;any1-11-lut OVR2 afnd #ffff EQU2 ?&no-ari1-11
+ POP2 POP2 #01 JMP2r
+ &no-ari1-11
OVR2 ;&ari1-2x scmp #00 EQU ?&no-ari1-2x
;ari1-2x-lut OVR2 afnd #ffff EQU2 ?&no-ari1-2x
POP2 POP2 #01 JMP2r
@@ 422,6 426,7 @@ JMP2r
&pass POP2 POP2 #01 JMP2r
&char "<char> $1
&ari1-1x "<ari1-1x> $1
+ &ari1-11 "<any1-11> $1
&ari1-2x "<ari1-2x> $1
&ari2-2x "<ari2-2x> $1
&static1 "<static1> $1
@@ 523,6 528,9 @@ JMP2r
@ari1-1x-lut [ ( consume 1 bytes )
"INC $1 "DUP $1 "POP $1 ] $1
+@any1-11-lut [ ( pop 1 bytes, push 1 byte )
+ "INC $1 "LDZ $1 "STR $1 "DEI $1 ] $1
+
@ari1-2x-lut [ ( consume 2 bytes )
"ADD $1 "SUB $1 "MUL $1 "DIV $1
"GTH $1 "LTH $1 "EQU $1 "NEQ $1
@@ 846,5 854,6 @@ JMP2r
( combine literals )
"LIT $1 "<char> $1 "<static1> $1 =combine
"<static1> $1 "LIT $1 "<char> $1 =combine
+ "<static1> $1 "<any1-11> $1 "<static1> $1 =combine
&end