本網站在啟用 JavaScript 的情況下可以運作的更好。
首頁
探索
lain.church
說明
註冊
登入
izaya
/
collapseos
镜像来自
https://github.com/hsoft/collapseos.git
關注
1
收藏
1
複製
0
程式碼
問題
0
版本發佈
0
Wiki
活動
瀏覽代碼
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…
取消
儲存