This website works better with JavaScript.
Почетна
Преглед
lain.church
Помоћ
Регистрација
Пријавите Се
izaya
/
collapseos
огледало од
https://github.com/hsoft/collapseos.git
Прати
1
Волим
1
Креирај огранак
0
Код
Дискусије
0
Издања
0
Вики
Activity
Преглед изворни кода
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 година
родитељ
2439f1ed86
комит
b73e1a5f7a
3 измењених фајлова
са
14 додато
и
13 уклоњено
Подељен поглед
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
Прегледај датотеку
@@ -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
Прегледај датотеку
@@ -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
Прегледај датотеку
@@ -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…
Откажи
Сачувај