From 4c187f68b4c95bc24d737d8b5a8dde187cd65a29 Mon Sep 17 00:00:00 2001 From: Jeremiah Orians Date: Fri, 4 Aug 2017 21:05:33 -0400 Subject: [PATCH] Ensured compliance with new stage0 assembler standard --- CHANGELOG.org | 1 + stage3/inital_library.fs | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.org b/CHANGELOG.org index d8b21cd..72f48f2 100644 --- a/CHANGELOG.org +++ b/CHANGELOG.org @@ -58,6 +58,7 @@ Updated checksums to reflect changes in stage2 Lisp Added missing library reference form stage2 lisp High level prototype Fixed bug in stage2 FORTH PRINT function Updated changed stage2 lisp Checksums to match +Made stage3 Forth better comply with new stage0 encoding recommendation. ** Removed the HERE and DP! are gone from ' now in stage3 FORTH diff --git a/stage3/inital_library.fs b/stage3/inital_library.fs index 81a3b6a..de24cef 100644 --- a/stage3/inital_library.fs +++ b/stage3/inital_library.fs @@ -201,8 +201,8 @@ CREATE BASE 10 , \ We may have to compile more than just a jump in the future in order \ for DOES> to work properly - we'd need to load the address into a register, \ having the actual address nearby, and then use that coroutine jump thing. -\ CMPSKIP.E R0 R0, the address, LOADRU32 R0 -4, JSR_COROUTINE R0 -: JUMP-TO, 0x09030200 , , 0x2E60FFFC , 0x0D010000 , ; +\ JUMP over the Address, the address, LOADRU32 R0 -4, JSR_COROUTINE R0 +: JUMP-TO, 0x3C000008 , , 0x2E60FFFC , 0x0D010000 , ; \ Sets the action of the latest word : DOES> ['] LATEST , ['] DOER! , 'DODOES JUMP-TO, ; IMMEDIATE