使用 JavaScript能使本网站更好的工作。
首页
探索
lain.church
帮助
注册
登录
izaya
/
collapseos
镜像自地址
https://github.com/hsoft/collapseos.git
关注
1
点赞
1
派生
0
代码
工单
0
版本发布
0
百科
动态
浏览代码
forth: Forth-ify "PC!"
pull/95/head
Virgil Dupras
4 年前
父节点
04a6784de4
当前提交
7beac94b5a
共有
4 个文件被更改
,包括
22 次插入
和
20 次删除
分列视图
Diff 选项
显示统计
下载 Patch 文件
下载 Diff 文件
二进制
emul/forth/z80c.bin
+1
-19
forth/forth.asm
+14
-1
forth/z80a.fs
+7
-0
forth/z80c.fs
二进制
emul/forth/z80c.bin
查看文件
+ 1
- 19
forth/forth.asm
查看文件
@@ -21,11 +21,6 @@
;
; PutC: Write character specified in A onto the device.
;
; *** ASCII ***
.equ BS 0x08
.equ CR 0x0d
.equ LF 0x0a
.equ DEL 0x7f
; *** Const ***
; Base of the Return Stack
.equ RS_ADDR 0xf000
@@ -738,23 +733,10 @@ PRINT:
inc hl
jr .loop
; ( c port -- )
.db "PC!"
.fill 4
.dw $-PRINT
.db 0
PSTORE:
.dw nativeWord
pop bc
pop hl
call chkPS
out (c), l
jp next
; ( port -- c )
.db "PC@"
.fill 4
.dw $-P
STORE
.dw $-PRINT
.db 0
PFETCH:
.dw nativeWord
+ 14
- 1
forth/z80a.fs
查看文件
@@ -107,12 +107,25 @@
C@ ( b r op )
ROT ( r op b )
8 * ( r op b<<3 )
OR OR
Z
,
OR OR
A
,
;
0xc0 OP2br SETbr,
0x80 OP2br RESbr,
0x40 OP2br BITbr,
( cell contains both bytes. MSB is spit as-is, LSB is ORed with r )
( r -- )
: OP2r
CREATE ,
DOES>
@ 256 /MOD ( r lsb msb )
A, ( r lsb )
SWAP 8 * ( lsb r<<3 )
OR A,
;
0xed41 OP2r OUT(C)r,
0xeb40 OP2r INr(C),
( dd nn -- )
: OP3ddnn
CREATE C,
+ 7
- 0
forth/z80c.fs
查看文件
@@ -83,3 +83,10 @@ CODE AND
H A LDrr,
HL PUSHqq,
;CODE
CODE PC!
BC POPqq,
HL POPqq,
chkPS,
L OUT(C)r,
;CODE
撰写
预览
正在加载...
取消
保存