MirrorRepos/RomWBW
1
0
Fork 1
mirror of https://github.com/wwarthen/RomWBW.git synced 2026-02-06 14:11:48 -06:00
Code Issues Projects Releases Wiki Activity

CamelForth ROMWBW updated to finish on page ending

Browse Source
This commit is contained in:
b1ackmai1er
2018-11-05 16:33:58 +08:00
committed by GitHub
parent 5f7f902ba1
commit 9fad7db460
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Source/HBIOS/Forth/camel80.azm
View File

@@ -4,6 +4,7 @@ CIOOUT EQU 01h ; CHARACTER OUTPUT
CIOIST EQU 02h ; CHARACTER INPUT STATUS
BID_BOOT EQU 00h
HB_BNKCALL EQU 0fff9h
FTH_SIZ EQU 1700h
; Listing 2.
; ===============================================
@@ -1045,5 +1046,11 @@ snext: next
*INCLUDE camel80h.azm ; High Level words
lastword EQU link ; nfa of last word in dict.
enddict EQU $ ; user's code starts here
; force padding to page boundary
ds (FTH_SIZ-(enddict-reset)-1)
nop
END