Deze website werkt beter met JavaScript.
Beginscherm
Verkennen
lain.church
Help
Registreren
Inloggen
izaya
/
collapseos
kopie van
https://github.com/hsoft/collapseos.git
Volgen
1
Ster
1
Vork
0
Code
Kwesties
0
Publicaties
0
Wiki
Activiteit
Bladeren bron
forth: Forth-ify "C!" and "C@"
pull/95/head
Virgil Dupras
4 jaren geleden
bovenliggende
66412a1c30
commit
6d8edeec63
4 gewijzigde bestanden
met
toevoegingen van 18
en
30 verwijderingen
Zij-aan-zij weergave
Diff Options
Show Stats
Download Patch File
Download Diff File
BIN
emul/forth/z80c.bin
+2
-29
forth/forth.asm
+1
-1
forth/z80a.fs
+15
-0
forth/z80c.fs
BIN
emul/forth/z80c.bin
Bestand weergeven
+ 2
- 29
forth/forth.asm
Bestand weergeven
@@ -1288,23 +1288,10 @@ STORE:
ld (iy+1), h
jp next
; ( n a -- )
.db "C!"
.fill 5
.dw $-STORE
.db 0
CSTORE:
.dw nativeWord
pop hl
pop de
call chkPS
ld (hl), e
jp next
; ( a -- n )
.db "@"
.fill 6
.dw $-
C
STORE
.dw $-STORE
.db 0
FETCH:
.dw nativeWord
@@ -1314,24 +1301,10 @@ FETCH:
push hl
jp next
; ( a -- c )
.db "C@"
.fill 5
.dw $-FETCH
.db 0
CFETCH:
.dw nativeWord
pop hl
call chkPS
ld l, (hl)
ld h, 0
push hl
jp next
; ( a -- )
.db "DROP"
.fill 3
.dw $-
C
FETCH
.dw $-FETCH
.db 0
DROP:
.dw nativeWord
+ 1
- 1
forth/z80a.fs
Bestand weergeven
@@ -43,7 +43,6 @@
;
0x04 OP1r INCr,
0x46 OP1r LDr(HL),
0x70 OP1r LD(HL)r,
( r -- )
: OP1r0
@@ -52,6 +51,7 @@
C@ ( r op )
OR A,
;
0x70 OP1r0 LD(HL)r,
0xa0 OP1r0 ANDr,
0xb0 OP1r0 ORr,
0xa8 OP1r0 XORr,
+ 15
- 0
forth/z80c.fs
Bestand weergeven
@@ -110,6 +110,21 @@ CODE XOR
HL PUSHqq,
;CODE
CODE C!
HL POPqq,
DE POPqq,
chkPS,
E LD(HL)r,
;CODE
CODE C@
HL POPqq,
chkPS,
L LDr(HL),
H 0 LDrn,
HL PUSHqq,
;CODE
CODE PC!
BC POPqq,
HL POPqq,
Schrijf
Voorbeeld
Laden…
Annuleren
Opslaan