From ab200ab44f988c6a1a71713183de8cd023960a91 Mon Sep 17 00:00:00 2001 From: crc Date: Tue, 3 Sep 2024 16:54:08 +0200 Subject: [PATCH] fix several invalid instruction bundles --- ilo.rom | Bin 262144 -> 262144 bytes konilo.pali | 10 +++++----- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/ilo.rom b/ilo.rom index 61bcad5daae464255c0090415828dbb179e34ad8..290f9b4043264403197cae7d42f5d331bb5651f0 100644 GIT binary patch delta 28 icmZo@5NK!+*zkjmk+JzFTl-HoMj&R|{*#TF{U-pR%nKU; delta 28 icmZo@5NK!+*zkjmk)in~Tl-HoMj&R|{*#TF{U-pRx(gZr diff --git a/konilo.pali b/konilo.pali index 9467af1..d47ede7 100644 --- a/konilo.pali +++ b/konilo.pali @@ -1488,7 +1488,7 @@ r a:map i dulieqli d 95 r s:rewrite.replace -i liju.. +i liju.... r if : s:rewrite.replace @@ -1652,7 +1652,7 @@ c (c-s) '_ s:temp tuck #0 s:store ; i lilica.. r c:to-s.temp r s:temp -i luca.... +i lica.... r tuck i liliju.. d 0 @@ -3389,7 +3389,7 @@ c (n-a) #64 n:mul block:buffer n:add ; i limuliad d 64 r sys:buffers/block -i re.... +i re...... : e:line c (n-) e:to-line #64 [ fetch-next c:put ] times drop nl ; @@ -3442,7 +3442,7 @@ r I i duliltli d 10 r sp -i lica.. +i lica.... r if i lica.... r n:put @@ -3718,7 +3718,7 @@ r s:get/line.process : e:erase/line c (n-) c e:to-line #32 swap #64 fill ; -i lica... +i lica.... r e:to-line i liswli.. d 32