Strona działa najlepiej z włączonym JavaScript.
Strona główna
Odkrywaj
lain.church
Pomoc
Zarejestruj się
Zaloguj się
izaya
/
collapseos
kopia lustrzana
https://github.com/hsoft/collapseos.git
Obserwuj
1
Polub
1
Forkuj
0
Kod
Zgłoszenia
0
Wydania
0
Wiki
Aktywność
Przeglądaj źródła
forth: Forth-ify "IMMEDIATE"
pull/95/head
Virgil Dupras
4 lat temu
rodzic
41cd8086d4
commit
8f990ff954
4 zmienionych plików
z
9 dodań
i
11 usunięć
Widok podzielony
Opcje porównania
Pokaż statystyki
Ściągnij plik aktualizacji
Ściągnij plik porównania
BIN
emul/forth/z80c.bin
+2
-11
forth/forth.asm
+1
-0
forth/z80a.fs
+6
-0
forth/z80c.fs
BIN
emul/forth/z80c.bin
Wyświetl plik
+ 2
- 11
forth/forth.asm
Wyświetl plik
@@ -781,19 +781,10 @@ DOES:
jp EXIT+2
.db "IMMEDIATE"
.dw $-DOES
.db 9
IMMEDIATE:
.dw nativeWord
ld hl, (CURRENT)
dec hl
set FLAG_IMMED, (hl)
jp next
.fill 23
.db "IMMED?"
.dw $-
IMMEDIATE
.dw $-DOES
.db 6
ISIMMED:
.dw nativeWord
+ 1
- 0
forth/z80a.fs
Wyświetl plik
@@ -79,6 +79,7 @@
0xc5 OP1qq PUSHqq,
0xc1 OP1qq POPqq,
0x03 OP1qq INCss,
0x0b OP1qq DECss,
0x09 OP1qq ADDHLss,
: _1rr
+ 6
- 0
forth/z80c.fs
Wyświetl plik
@@ -227,3 +227,9 @@ CODE R>
JTBL 12 + CALLnn,
HL PUSHqq,
;CODE
CODE IMMEDIATE
CURRENT LDHL(nn),
HL DECss,
7 (HL) SETbr,
;CODE
Napisz
Podgląd
Ładowanie…
Anuluj
Zapisz