Il sito funziona meglio con JavaScript.
Home
Esplora
lain.church
Aiuto
Registrati
Accedi
izaya
/
collapseos
mirror da
https://github.com/hsoft/collapseos.git
Segui
1
Vota
1
Forka
0
Codice
Problemi
0
Rilasci
0
Wiki
Attività
Sfoglia il codice sorgente
z80a: invert the meaning of IFZ, IFNZ, IFC, IFNC,
It is much less confusing when "IFZ," means "If Z is set, continue into IF, else, jump to THEN,".
pull/102/head
Virgil Dupras
4 anni fa
parent
2439f1ed86
commit
b73e1a5f7a
3 ha cambiato i file
con
14 aggiunte
e
13 eliminazioni
Visualizzazione separata
Diff Options
Show Stats
Download Patch File
Download Diff File
+1
-1
forth/boot.fs
+4
-4
forth/z80a.fs
+9
-8
forth/z80c.fs
+ 1
- 1
forth/boot.fs
Vedi File
@@ -201,7 +201,7 @@ L4 FSET L3 FSET ( loopend )
( HL is prev field's addr. Is offset zero? )
A D LDrr,
E ORr,
IFZ, ( noprev )
IF
N
Z, ( noprev )
( get absolute addr from offset )
( carry cleared from "or e" )
DE SBCHLss,
+ 4
- 4
forth/z80a.fs
Vedi File
@@ -372,10 +372,10 @@
: BWR @ AGAIN, ;
( same as BSET, but we need to write a placeholder )
: FJR, PC 0 A, ;
: IFZ, JRZ, FJR, ;
: IFNZ, JR
N
Z, FJR, ;
: IFC, JRC, FJR, ;
: IFNC, JR
N
C, FJR, ;
: IFZ, JR
N
Z, FJR, ;
: IFNZ, JRZ, FJR, ;
: IFC, JR
N
C, FJR, ;
: IFNC, JRC, FJR, ;
: THEN,
DUP PC ( l l pc )
-^ 1 - ( l off )
+ 9
- 8
forth/z80c.fs
Vedi File
@@ -149,10 +149,10 @@ CODE NOT
A L LDrr,
H ORr,
HL 0 LDddnn,
IF
N
Z,
( skip )
IFZ,
( false, make 1 )
HL INCss,
THEN,
( skip )
THEN,
HL PUSHqq,
;CODE
@@ -209,10 +209,10 @@ CODE /MOD
RLA,
HL ADCHLss,
DE SBCHLss,
IF
N
C,
( skip )
IFC,
DE ADDHLss,
C DECr,
THEN,
( skip )
THEN,
DJNZ, AGAIN, ( loop )
B A LDrr,
HL PUSHqq,
@@ -340,10 +340,10 @@ CODE CMP
chkPS,
DE SUBHLss,
BC 0 LDddnn,
IFZ,
IF
N
Z,
( not equal )
BC INCss,
IFC,
IF
N
C,
( < )
BC DECss,
BC DECss,
@@ -359,13 +359,14 @@ CODE _find
chkPS,
( 3 == find )
3 CALLnn,
IFZ,
( found )
IF
N
Z,
( not found )
HL PUSHqq,
DE 0 LDddnn,
DE PUSHqq,
JPNEXT,
THEN, ( found )
THEN,
( found )
DE PUSHqq,
DE 1 LDddnn,
DE PUSHqq,
Write
Preview
Loading…
Annulla
Salva