Virgil Dupras
4 vuotta sitten
3 muutettua tiedostoa jossa 6 lisäystä ja 9 poistoa
Yhdistetty näkymä
Diff Options
-
BINemul/forth/z80c.bin
-
+2 -9forth/forth.asm
-
+4 -0forth/z80c.fs
BIN
emul/forth/z80c.bin
Näytä tiedosto
+ 2
- 9
forth/forth.asm
Näytä tiedosto
| @@ -660,21 +660,14 @@ abortUnderflow: | |||||
| .name: | .name: | ||||
| .db "(uflw)", 0 | .db "(uflw)", 0 | ||||
| .fill 41 | |||||
| .db "BYE" | |||||
| .dw $-QUIT | |||||
| .db 3 | |||||
| BYE: | |||||
| .dw nativeWord | |||||
| halt | |||||
| .fill 50 | |||||
| ; STABLE ABI | ; STABLE ABI | ||||
| ; Offset: 02aa | ; Offset: 02aa | ||||
| .out $ | .out $ | ||||
| ; ( c -- ) | ; ( c -- ) | ||||
| .db "EMIT" | .db "EMIT" | ||||
| .dw $-BYE | |||||
| .dw $-QUIT | |||||
| .db 4 | .db 4 | ||||
| EMIT: | EMIT: | ||||
| .dw compiledWord | .dw compiledWord | ||||
+ 4
- 0
forth/z80c.fs
Näytä tiedosto
| @@ -246,6 +246,10 @@ CODE IMMED? | |||||
| DE PUSHqq, | DE PUSHqq, | ||||
| ;CODE | ;CODE | ||||
| CODE BYE | |||||
| HALT, | |||||
| ;CODE | |||||
| CODE (resSP) | CODE (resSP) | ||||
| ( INITIAL_SP == JTBL+28 ) | ( INITIAL_SP == JTBL+28 ) | ||||
| SP JTBL 28 + @ LDdd(nn), | SP JTBL 28 + @ LDdd(nn), | ||||