Просмотр исходного кода

forth: Forth-ify "BYE"

pull/95/head
Virgil Dupras 4 лет назад
Родитель
Сommit
2db6ebc247
3 измененных файлов: 6 добавлений и 9 удалений
  1. Двоичные данные
      emul/forth/z80c.bin
  2. +2
    -9
      forth/forth.asm
  3. +4
    -0
      forth/z80c.fs

Двоичные данные
emul/forth/z80c.bin Просмотреть файл


+ 2
- 9
forth/forth.asm Просмотреть файл

@@ -660,21 +660,14 @@ abortUnderflow:
.name:
.db "(uflw)", 0

.fill 41

.db "BYE"
.dw $-QUIT
.db 3
BYE:
.dw nativeWord
halt
.fill 50

; STABLE ABI
; Offset: 02aa
.out $
; ( c -- )
.db "EMIT"
.dw $-BYE
.dw $-QUIT
.db 4
EMIT:
.dw compiledWord


+ 4
- 0
forth/z80c.fs Просмотреть файл

@@ -246,6 +246,10 @@ CODE IMMED?
DE PUSHqq,
;CODE

CODE BYE
HALT,
;CODE

CODE (resSP)
( INITIAL_SP == JTBL+28 )
SP JTBL 28 + @ LDdd(nn),


Загрузка…
Отмена
Сохранить