From 3383a000404eabfe18cf79599effbf4d6d991f8e Mon Sep 17 00:00:00 2001 From: Virgil Dupras Date: Wed, 17 Jun 2020 17:44:33 -0400 Subject: [PATCH] Fix recipes with binary offset (ti84, trs80) I broke them when I removed call indirection layers without also removing usage of BCALL. --- blk/243 | 2 +- blk/303 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/blk/243 b/blk/243 index 0165ad0..24ddadd 100644 --- a/blk/243 +++ b/blk/243 @@ -5,7 +5,7 @@ : JPNEXT, 26 BJP, ; ( 26 == next ) -: chkPS, L4 @ BCALL, ; ( chkPS, B305 ) +: chkPS, L4 @ CALLnn, ; ( chkPS, B305 ) : CODE ( same as CREATE, but with native word ) (entry) diff --git a/blk/303 b/blk/303 index 46a5967..6d8ca26 100644 --- a/blk/303 +++ b/blk/303 @@ -3,7 +3,7 @@ PC ORG @ 0x0f + ! ( compiledWord ) 2. Set new IP to the second atom of the list 3. Execute the first atom of the list. ) IY PUSHqq, HL POPqq, ( <-- IP ) - L4 @ ( pushRS ) BCALL, + L4 @ ( pushRS ) CALLnn, EXDEHL, ( HL points to PFA ) ( While we inc, dereference into DE for execute call later. ) LDDE(HL),