このサイトはJavaScriptを使用しています
ホーム
エクスプローラー
lain.church
ヘルプ
登録
サインイン
izaya
/
collapseos
ミラー元
https://github.com/hsoft/collapseos.git
ウォッチ
1
スター
1
フォーク
0
コード
課題
0
リリース
0
Wiki
アクティビティ
ソースを参照
wip
wip
Virgil Dupras
4年前
親
00401077f0
コミット
04335fc40a
4個のファイルの変更
、
3行の追加
、
3行の削除
分割表示
差分オプション
統計情報を表示
Patchファイルをダウンロード
Diffファイルをダウンロード
+1
-1
blk/288
+1
-1
blk/382
+1
-1
blk/399
バイナリ
emul/forth.bin
+ 1
- 1
blk/288
ファイルの表示
@@ -4,7 +4,7 @@ PC ORG @ 0x22 + ! ( litWord, 0xf7, tight on the 0x100 limit )
called, puts the string's address on PS )
IY PUSHqq, HL POPqq, ( <-- IP )
E (HL) LDrr, D 0 LDrn,
DE INCss,
DE INCss,
DE INCss,
DE ADDIYss,
HL PUSHqq,
JPNEXT,
+ 1
- 1
blk/382
ファイルの表示
@@ -4,7 +4,7 @@
AGAIN ;
: LIT"
34 , ( litWord ) H@ 0 C, ,"
DUP H@ -^ 1- ( a len ) SWAP C!
0 C,
DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
+ 1
- 1
blk/399
ファイルの表示
@@ -1,4 +1,4 @@
: LIT< WORD 34 , DUP C@ 1+ MOVE,
0 C,
; IMMEDIATE
: LIT< WORD 34 , DUP C@ 1+ MOVE, ; IMMEDIATE
: BEGIN H@ ; IMMEDIATE
: AGAIN COMPILE (br) H@ - _bchk , ; IMMEDIATE
: UNTIL COMPILE (?br) H@ - _bchk , ; IMMEDIATE
バイナリ
emul/forth.bin
ファイルの表示
書き込み
プレビュー
読み込み中…
キャンセル
保存