Selaa lähdekoodia

z80a: add PUSH0, PUSH1, PUSHZ, macros

pull/102/head
Virgil Dupras 4 vuotta sitten
vanhempi
commit
338769a0a8
6 muutettua tiedostoa jossa 14 lisäystä ja 31 poistoa
  1. +1
    -1
      blk/200
  2. +1
    -1
      blk/212
  3. +0
    -3
      blk/244
  4. +6
    -0
      blk/249
  5. BIN
      emul/forth/z80c.bin
  6. +6
    -26
      forth/boot.z80

+ 1
- 1
blk/200 Näytä tiedosto

@@ -10,4 +10,4 @@ Z80 Assembler
234 OP2r 236 OP2ss
238 OP3ddnn 240 OP3nn
242 Specials 246 Flow
249 Macros

+ 1
- 1
blk/212 Näytä tiedosto

@@ -5,4 +5,4 @@ H@ 0x59 RAM+ !
213 LOAD 215 LOAD 216 LOAD 217 LOAD 218 LOAD 219 LOAD
220 LOAD 222 LOAD 223 LOAD 224 LOAD 226 LOAD 228 LOAD
230 LOAD 232 LOAD 234 LOAD 236 LOAD 238 LOAD 240 LOAD
242 LOAD 243 LOAD 244 LOAD 246 LOAD 247 LOAD
242 LOAD 243 LOAD 246 LOAD 247 LOAD 249 LOAD

+ 0
- 3
blk/244 Näytä tiedosto

@@ -1,3 +0,0 @@
( Macros )
( clear carry + SBC )
: SUBHLss, A ORr, SBCHLss, ;

+ 6
- 0
blk/249 Näytä tiedosto

@@ -0,0 +1,6 @@
( Macros )
( clear carry + SBC )
: SUBHLss, A ORr, SBCHLss, ;
: PUSH0, BC 0 LDddnn, BC PUSHqq, ;
: PUSH1, BC 1 LDddnn, BC PUSHqq, ;
: PUSHZ, BC 0 LDddnn, IFZ, BC INCss, THEN, BC PUSHqq, ;

BIN
emul/forth/z80c.bin Näytä tiedosto


+ 6
- 26
forth/boot.z80 Näytä tiedosto

@@ -489,12 +489,7 @@ CODE NOT
chkPS,
A L LDrr,
H ORr,
HL 0 LDddnn,
IFZ,
( false, make 1 )
HL INCss,
THEN,
HL PUSHqq,
PUSHZ,
;CODE

CODE +
@@ -656,9 +651,6 @@ CODE S=
DE POPqq,
HL POPqq,
chkPS,
( pre-push false )
BC 0 LDddnn,
BC PUSHqq,
BEGIN, ( loop )
LDA(DE),
(HL) CPr,
@@ -668,11 +660,8 @@ CODE S=
HL INCss,
DE INCss,
JRNZ, AGAIN, ( loop )
( success, change false to true )
HL POPqq,
HL INCss,
HL PUSHqq,
L1 FSET ( end )
PUSHZ,
;CODE

CODE CMP
@@ -703,14 +692,12 @@ CODE _find
IFNZ,
( not found )
HL PUSHqq,
DE 0 LDddnn,
DE PUSHqq,
PUSH0,
JPNEXT,
THEN,
( found )
DE PUSHqq,
DE 1 LDddnn,
DE PUSHqq,
PUSH1,
;CODE

CODE (im1)
@@ -718,15 +705,8 @@ CODE (im1)
EI,
;CODE

CODE 0
HL 0 LDddnn,
HL PUSHqq,
;CODE

CODE 1
HL 1 LDddnn,
HL PUSHqq,
;CODE
CODE 0 PUSH0, ;CODE
CODE 1 PUSH1, ;CODE

CODE -1
HL -1 LDddnn,


Loading…
Peruuta
Tallenna