z80: remove layer of indirection in most "next" calls

The only calls still using the stable ABI indirection are those
made before the next routine is created.
This commit is contained in:
Virgil Dupras 2020-06-18 07:24:47 -04:00
parent eba83fa9a9
commit 76e698157c
3 changed files with 3 additions and 2 deletions

View File

@ -5,7 +5,8 @@
VARIABLE lblchkPS
: chkPS, lblchkPS @ CALLnn, ; ( chkPS, B305 )
: JPNEXT, 26 BJP, ; ( 26 == next )
CREATE lblnext 0x1a , ( stable ABI until set in B300 )
: JPNEXT, lblnext @ JPnn, ;
: CODE ( same as CREATE, but with native word )
(entry) 0 C, ( 0 == native ) ;
: ;CODE JPNEXT, ;

View File

@ -1,4 +1,4 @@
PC ORG @ 0x1b + ! ( next )
lblnext BSET PC ORG @ 0x1b + ! ( next )
( This routine is jumped to at the end of every word. In it,
we jump to current IP, but we also take care of increasing
it by 2 before jumping. )

Binary file not shown.