이 웹사이트는 자바스크립트 활성화가 필요합니다.
홈
탐색
lain.church
도움말
가입하기
로그인
izaya
/
collapseos
의 미러
https://github.com/hsoft/collapseos.git
보기
1
좋아요
1
포크
0
코드
이슈
0
릴리즈
0
위키
활동
소스 검색
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,
쓰기
미리보기
불러오는 중...
취소
저장