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