diff --git a/regex.tal b/regex.tal index 566ba5c..2f6248e 100644 --- a/regex.tal +++ b/regex.tal @@ -484,6 +484,7 @@ #0004 ADD2 SUB2 #0002 DIV2 NIP ( dst (dst-(a+4))/2 ) ;arena-pos LDA2 STH2k #0003 ADD2 STA ( dst [a] ) ;arena-pos STA2 STH2r ( a ) + #0000 OVR2 INC2 STA2 ( a ) DUP2 ;c-peek-and-finalize JMP2 &error #abcd #0000 DIV ( TODO error here )