6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-12-22 21:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Fix the colon definition of unloop. Top rstack element must be preserved, of course.

Browse Source
This commit is contained in:
Philip Zembrod 2020-06-14 22:29:53 +02:00
parent 6629fa6ff5
commit 353bde189b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
6502/C64/disks/file-words.d64
View File

Binary file not shown.

4
6502/C64/disks/file-words.fth
View File

@ -281,7 +281,7 @@
\ *** Block No. 10, Hexblock a
\ include loadscreen 09jun20pz
\ include loadscreen 14jun20pz
: i/o-status? $90 c@ ;
@ -291,7 +291,7 @@
BEGIN bus@ con! i/o-status? UNTIL
busoff ;
: unloop rdrop rdrop rdrop ;
: unloop r> rdrop rdrop rdrop >r ;
: lo/hi> ( lo hi -- u )
255 and 256 * swap 255 and + ;