mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:48:06 +11:00
Fix recipes with binary offset (ti84, trs80)
I broke them when I removed call indirection layers without also removing usage of BCALL.
This commit is contained in:
parent
1d468d2168
commit
3383a00040
2
blk/243
2
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)
|
||||
|
2
blk/303
2
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),
|
||||
|
Loading…
Reference in New Issue
Block a user