Sfoglia il codice sorgente

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.
pull/124/head
Virgil Dupras 4 anni fa
parent
commit
76e698157c
3 ha cambiato i file con 3 aggiunte e 2 eliminazioni
  1. +2
    -1
      blk/243
  2. +1
    -1
      blk/300
  3. BIN
      emul/forth.bin

+ 2
- 1
blk/243 Vedi 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, ;


+ 1
- 1
blk/300 Vedi 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. )


BIN
emul/forth.bin Vedi File


Loading…
Annulla
Salva