Bu web sitesi JavaScript ile daha iyi çalışır.
Ana Sayfa
Keşfet
lain.church
Yardım
Üye Ol
Giriş Yap
izaya
/
collapseos
şunun yansıması
https://github.com/hsoft/collapseos.git
İzle
1
Yıldızla
1
Çatalla
0
Kod
Konular
0
Sürümler
0
Wiki
Aktivite
Kaynağa Gözat
forth: add word "."
pull/94/head
Virgil Dupras
4 yıl önce
ebeveyn
49228e418c
işleme
391ddb9984
4 değiştirilmiş dosya
ile
17 ekleme
ve
3 silme
Görünümü Böl
Diff Seçenekleri
İstatistikleri Göster
Yama Dosyasını İndir
Diff Dosyasını İndir
+12
-0
apps/forth/dict.asm
+2
-0
apps/forth/glue.asm
+1
-1
apps/forth/main.asm
+2
-2
apps/forth/util.asm
+ 12
- 0
apps/forth/dict.asm
Dosyayı Görüntüle
@@ -108,3 +108,15 @@ INTERPRET:
jp exit
.msg:
.db "not found", 0
; ( n -- )
DOT:
.db "."
.fill 7
.dw INTERPRET
.dw nativeWord
pop de
call pad
call fmtDecimalS
call printstr
jp exit
+ 2
- 0
apps/forth/glue.asm
Dosyayı Görüntüle
@@ -2,6 +2,8 @@
jp forthMain
.inc "core.asm"
.inc "lib/ari.asm"
.inc "lib/fmt.asm"
.equ FORTH_RAMSTART RAMSTART
.inc "forth/main.asm"
.inc "forth/util.asm"
+ 1
- 1
apps/forth/main.asm
Dosyayı Görüntüle
@@ -27,7 +27,7 @@ ENDPGM:
forthMain:
ld (INITIAL_SP), sp
ld hl,
INTERPRET
; last entry in hardcoded dict
ld hl,
DOT
; last entry in hardcoded dict
ld (CURRENT), hl
ld hl, FORTH_RAMEND
ld (HERE), hl
+ 2
- 2
apps/forth/util.asm
Dosyayı Görüntüle
@@ -1,8 +1,8 @@
; Return address of scratchpad in HL
pad:
ld hl, (HERE)
ld
de
, PADDING
add hl, de
ld
a
, PADDING
call addHL
ret
; Read word from (INPUTPOS) and return, in HL, a null-terminated word.
Yaz
Önizleme
Yükleniyor…
İptal
Kaydet