This website works better with JavaScript.
首頁
探索
lain.church
說明
註冊
登入
izaya
/
collapseos
镜像来自
https://github.com/hsoft/collapseos.git
關註
1
收藏
1
複製
0
程式碼
問題管理
0
版本發佈
0
Wiki
Activity
瀏覽代碼
forth: Forth-ify "PC!"
pull/95/head
Virgil Dupras
4 年之前
父節點
04a6784de4
當前提交
7beac94b5a
共有
4 個文件被更改
,包括
22 次插入
和
20 次删除
分割檢視
Diff Options
Show Stats
Download Patch File
Download Diff File
二進制
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
Write
Preview
Loading…
取消
儲存