이 웹사이트는 자바스크립트 활성화가 필요합니다.
홈
탐색
lain.church
도움말
가입하기
로그인
izaya
/
collapseos
의 미러
https://github.com/hsoft/collapseos.git
보기
1
좋아요
1
포크
0
코드
이슈
0
릴리즈
0
위키
활동
소스 검색
forth: Forth-ify "C!" and "C@"
pull/95/head
Virgil Dupras
4 년 전
부모
66412a1c30
커밋
6d8edeec63
4개의 변경된 파일
과
18개의 추가작업
그리고
30개의 파일을 삭제
분할 보기
Diff Options
Show Stats
Download Patch File
Download Diff File
BIN
emul/forth/z80c.bin
+2
-29
forth/forth.asm
+1
-1
forth/z80a.fs
+15
-0
forth/z80c.fs
BIN
emul/forth/z80c.bin
파일 보기
+ 2
- 29
forth/forth.asm
파일 보기
@@ -1288,23 +1288,10 @@ STORE:
ld (iy+1), h
jp next
; ( n a -- )
.db "C!"
.fill 5
.dw $-STORE
.db 0
CSTORE:
.dw nativeWord
pop hl
pop de
call chkPS
ld (hl), e
jp next
; ( a -- n )
.db "@"
.fill 6
.dw $-
C
STORE
.dw $-STORE
.db 0
FETCH:
.dw nativeWord
@@ -1314,24 +1301,10 @@ FETCH:
push hl
jp next
; ( a -- c )
.db "C@"
.fill 5
.dw $-FETCH
.db 0
CFETCH:
.dw nativeWord
pop hl
call chkPS
ld l, (hl)
ld h, 0
push hl
jp next
; ( a -- )
.db "DROP"
.fill 3
.dw $-
C
FETCH
.dw $-FETCH
.db 0
DROP:
.dw nativeWord
+ 1
- 1
forth/z80a.fs
파일 보기
@@ -43,7 +43,6 @@
;
0x04 OP1r INCr,
0x46 OP1r LDr(HL),
0x70 OP1r LD(HL)r,
( r -- )
: OP1r0
@@ -52,6 +51,7 @@
C@ ( r op )
OR A,
;
0x70 OP1r0 LD(HL)r,
0xa0 OP1r0 ANDr,
0xb0 OP1r0 ORr,
0xa8 OP1r0 XORr,
+ 15
- 0
forth/z80c.fs
파일 보기
@@ -110,6 +110,21 @@ CODE XOR
HL PUSHqq,
;CODE
CODE C!
HL POPqq,
DE POPqq,
chkPS,
E LD(HL)r,
;CODE
CODE C@
HL POPqq,
chkPS,
L LDr(HL),
H 0 LDrn,
HL PUSHqq,
;CODE
CODE PC!
BC POPqq,
HL POPqq,
쓰기
미리보기
불러오는 중...
취소
저장