이 웹사이트는 자바스크립트 활성화가 필요합니다.
홈
탐색
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 Options
Show Stats
Download Patch File
Download Diff File
+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"
쓰기
미리보기
불러오는 중...
취소
저장