izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

z80: prettify

This commit is contained in:
Virgil Dupras 2020-07-05 13:15:26 -04:00
parent 4a91ee5c9c
commit 84202da6a6
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
blk/283
View File

@ -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
View File

@ -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,