使用 JavaScript能使本网站更好的工作。
首页
探索
lain.church
帮助
注册
登录
izaya
/
collapseos
镜像自地址
https://github.com/hsoft/collapseos.git
关注
1
点赞
1
派生
0
代码
工单
0
版本发布
0
百科
动态
浏览代码
forth: make forth/forth.asm spit whole binary
emul/forth/stage{0,1}.asm now only configure constants and append binaries.
pull/95/head
Virgil Dupras
4 年前
父节点
966f6df0c5
当前提交
cf2f6703bb
共有
4 个文件被更改
,包括
3 次插入
和
18 次删除
分列视图
Diff 选项
显示统计
下载 Patch 文件
下载 Diff 文件
+0
-2
emul/forth/stage0.asm
+0
-2
emul/forth/stage1.asm
+0
-7
emul/forth/stagec.asm
+3
-7
forth/forth.asm
+ 0
- 2
emul/forth/stage0.asm
查看文件
@@ -1,5 +1,3 @@
jp init
.inc "stagec.asm"
.inc "forth.asm"
+ 0
- 2
emul/forth/stage1.asm
查看文件
@@ -1,5 +1,3 @@
jp init
.inc "stagec.asm"
.inc "forth.asm"
+ 0
- 7
emul/forth/stagec.asm
查看文件
@@ -2,10 +2,3 @@
.equ HERE_INITIAL CODE_END ; override
.equ LATEST CODE_END ; override
.equ STDIO_PORT 0x00
init:
di
; setup stack
ld sp, 0xffff
call forthMain
halt
+ 3
- 7
forth/forth.asm
查看文件
@@ -103,6 +103,8 @@
; *** Stable ABI ***
; Those jumps below are supposed to stay at these offsets, always. If they
; change bootstrap binaries have to be adjusted because they rely on them.
; We're at 0 here
jp forthMain
.fill 0x17-$
JUMPTBL:
jp nativeWord
@@ -683,13 +685,7 @@ abortUnderflow:
.db 3
BYE:
.dw nativeWord
; Goodbye Forth! Before we go, let's restore the stack
ld sp, (INITIAL_SP)
; unwind stack underflow buffer
pop af \ pop af \ pop af
; success
xor a
ret
halt
; ( c -- )
.db "EMIT"
撰写
预览
正在加载...
取消
保存