z80: prettify
This commit is contained in:
parent
4a91ee5c9c
commit
84202da6a6
8
blk/283
8
blk/283
@ -1,12 +1,12 @@
|
|||||||
H@ ORG !
|
H@ ORG !
|
||||||
0 JP, ( 00, main ) NOP, ( unused ) NOP, NOP, ( 04, BOOT )
|
0 JP, ( 00, main ) NOP, ( unused ) NOP, NOP, ( 04, BOOT )
|
||||||
NOP, NOP, ( 06, uflw ) NOP, NOP, ( 08, LATEST )
|
NOP, NOP, ( 06, uflw ) NOP, NOP, ( 08, LATEST )
|
||||||
NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused )
|
NOP, NOP, NOP, NOP, NOP, NOP, ( unused )
|
||||||
NOP, NOP, NOP, ( unused ) 0 JP, ( 14, popRS )
|
0 JP, ( RST 10 ) NOP, ( unused ) 0 JP, ( 14, popRS )
|
||||||
NOP, NOP, NOP, ( unused )
|
NOP, NOP, NOP, ( unused )
|
||||||
0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused )
|
0 JP, ( 1a, next ) NOP, NOP, NOP, ( unused )
|
||||||
NOP, NOP, NOP, NOP, ( unused )
|
0 JP, ( RST 20 )
|
||||||
NOP, NOP, NOP, NOP, ( unused )
|
NOP, NOP, NOP, NOP, NOP, ( unused )
|
||||||
0 JP, ( RST 28 )
|
0 JP, ( RST 28 )
|
||||||
0 A, 0 JP, ( 2b, (s) ) NOP, ( unused )
|
0 A, 0 JP, ( 2b, (s) ) NOP, ( unused )
|
||||||
0 JP, ( RST 30 )
|
0 JP, ( RST 30 )
|
||||||
|
7
blk/284
7
blk/284
@ -1,11 +1,8 @@
|
|||||||
( BOOT DICT: There are only 3 words in the boot dict, but
|
( BOOT DICT: There are only 3 words in the boot dict, but
|
||||||
these words' offset need to be stable, so they're part of
|
these words' offset need to be stable, so they're part of
|
||||||
the "stable ABI" )
|
the "stable ABI" )
|
||||||
'E' A, 'X' A, 'I' A, 'T' A,
|
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
|
||||||
0 A,, ( prev )
|
CODE EXIT ( 0x42 )
|
||||||
4 A,
|
|
||||||
H@ XCURRENT ! ( set current tip of dict, 0x42 )
|
|
||||||
0 A, ( native )
|
|
||||||
0x14 BCALL, ( popRS )
|
0x14 BCALL, ( popRS )
|
||||||
HL PUSH, IY POP, ( --> IP )
|
HL PUSH, IY POP, ( --> IP )
|
||||||
JPNEXT,
|
JPNEXT,
|
||||||
|
Loading…
Reference in New Issue
Block a user