Bläddra i källkod

z80: prettify

master
Virgil Dupras 3 år sedan
förälder
incheckning
84202da6a6
2 ändrade filer med 6 tillägg och 9 borttagningar
  1. +4
    -4
      blk/283
  2. +2
    -5
      blk/284

+ 4
- 4
blk/283 Visa fil

@@ -1,12 +1,12 @@
H@ ORG !
0 JP, ( 00, main ) NOP, ( unused ) NOP, NOP, ( 04, BOOT )
NOP, NOP, ( 06, uflw ) NOP, NOP, ( 08, LATEST )
NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused )
NOP, NOP, NOP, ( unused ) 0 JP, ( 14, popRS )
NOP, NOP, NOP, NOP, NOP, NOP, ( unused )
0 JP, ( RST 10 ) NOP, ( unused ) 0 JP, ( 14, popRS )
NOP, NOP, NOP, ( unused )
0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused )
NOP, NOP, NOP, NOP, ( unused )
NOP, NOP, NOP, NOP, ( unused )
0 JP, ( RST 20 )
NOP, NOP, NOP, NOP, NOP, ( unused )
0 JP, ( RST 28 )
0 A, 0 JP, ( 2b, (s) ) NOP, ( unused )
0 JP, ( RST 30 )


+ 2
- 5
blk/284 Visa fil

@@ -1,11 +1,8 @@
( BOOT DICT: There are only 3 words in the boot dict, but
these words' offset need to be stable, so they're part of
the "stable ABI" )
'E' A, 'X' A, 'I' A, 'T' A,
0 A,, ( prev )
4 A,
H@ XCURRENT ! ( set current tip of dict, 0x42 )
0 A, ( native )
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
CODE EXIT ( 0x42 )
0x14 BCALL, ( popRS )
HL PUSH, IY POP, ( --> IP )
JPNEXT,


Laddar…
Avbryt
Spara