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
Fix LIT"
I've mistakenly broken it in previous commit.
master
Virgil Dupras
3 yıl önce
ebeveyn
eefbf66e95
işleme
0b11979b5e
4 değiştirilmiş dosya
ile
6 ekleme
ve
2 silme
Görünümü Böl
Diff Seçenekleri
İstatistikleri Göster
Yama Dosyasını İndir
Diff Dosyasını İndir
+4
-0
blk/264
+1
-1
blk/270
+1
-1
blk/382
BIN
cvm/forth.bin
+ 4
- 0
blk/264
Dosyayı Görüntüle
@@ -1,3 +1,7 @@
: XAGAIN LIT< (br) XFIND , H@ - C, ;
: XUNTIL LIT< (?br) XFIND , H@ - C, ;
: XLIT< LIT< (s) XFIND , WORD DUP C@ 1+ MOVE, ;
: XLIT"
LIT< (s) XFIND , H@ 0 C, ,"
DUP H@ -^ 1- SWAP C!
;
+ 1
- 1
blk/270
Dosyayı Görüntüle
@@ -5,7 +5,7 @@
: DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE
: IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE
: AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE
: LIT< XLIT< ; IMMEDIATE
: LIT< XLIT< ; IMMEDIATE
: LIT" XLIT" ; IMMEDIATE
: IMMEDIATE XIMM ;
: (entry) (xentry) ;
: CREATE XCREATE ;
+ 1
- 1
blk/382
Dosyayı Görüntüle
@@ -3,7 +3,7 @@
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
AGAIN ;
: LIT"
0x2b ( (s) ) ,
H@ 0 C, ,"
COMPILE (s)
H@ 0 C, ,"
DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
BIN
cvm/forth.bin
Dosyayı Görüntüle
Yaz
Önizleme
Yükleniyor…
İptal
Kaydet