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: fix prompt in QUIT conditions
pull/95/head
Virgil Dupras
4 yıl önce
ebeveyn
9791c0957d
işleme
6487c713ef
1 değiştirilmiş dosya
ile
18 ekleme
ve
9 silme
Görünümü Böl
Diff Seçenekleri
İstatistikleri Göster
Yama Dosyasını İndir
Diff Dosyasını İndir
+18
-9
forth/forth.asm
+ 18
- 9
forth/forth.asm
Dosyayı Görüntüle
@@ -151,11 +151,6 @@ forthMain:
.cinName:
.db "C<", 0
forthLoop:
ld hl, INTERPRET
push hl
jp EXECUTE+2
BEGIN:
.dw compiledWord
.dw LIT
@@ -678,19 +673,33 @@ EXIT:
.dw EXIT
.db 0
QUIT:
.dw nativeWord
.dw compiledWord
.dw NUMBER
.dw 0
.dw FLAGS_
.dw STORE
.dw .private
.dw INTERPRET
.private:
.dw nativeWord
ld ix, RS_ADDR
jp forthLoop
jp
next
.db "ABORT"
.fill 2
.dw QUIT
.db 0
ABORT:
.dw nativeWord
.dw compiledWord
.dw .private
.dw QUIT
.private:
.dw nativeWord
; Reinitialize PS
ld sp, (INITIAL_SP)
jp QUIT+2
jp
next
abortUnderflow:
ld hl, .word
Yaz
Önizleme
Yükleniyor…
İptal
Kaydet