Пожалуйста, включите JavaScript.
Главная
Обзор
lain.church
Помощь
Регистрация
Вход
izaya
/
collapseos
зеркало из
https://github.com/hsoft/collapseos.git
Следить
1
В избранное
1
Форкнуть
0
Код
Задачи
0
Релизы
0
Вики
Активность
Просмотр исходного кода
forth: Forth-ify "-"
pull/95/head
Virgil Dupras
4 лет назад
Родитель
005dd98fc2
Сommit
941224be94
3 измененных файлов
:
11 добавлений
и
14 удалений
Разделённый вид
Опции Diff
Показать статистику
Скачать Patch файл
Скачать Diff файл
Двоичные данные
emul/forth/z80c.bin
+2
-14
forth/forth.asm
+9
-0
forth/z80c.fs
Двоичные данные
emul/forth/z80c.bin
Просмотреть файл
+ 2
- 14
forth/forth.asm
Просмотреть файл
@@ -1318,23 +1318,11 @@ PLUS:
push hl
jp next
; ( a b -- c ) A - B
.db "-"
.dw $-PLUS
.db 1
MINUS:
.dw nativeWord
pop de ; B
pop hl ; A
call chkPS
or a ; reset carry
sbc hl, de
push hl
jp next
.fill 18
; ( a1 a2 -- b )
.db "SCMP"
.dw $-
MIN
US
.dw $-PLUS
.db 4
SCMP:
.dw nativeWord
+ 9
- 0
forth/z80c.fs
Просмотреть файл
@@ -113,6 +113,15 @@ CODE XOR
HL PUSHqq,
;CODE
CODE -
DE POPqq,
HL POPqq,
chkPS,
A ORr,
DE SBCHLss,
HL PUSHqq,
;CODE
CODE *
DE POPqq,
BC POPqq,
Редактирование
Предпросмотр
Загрузка…
Отмена
Сохранить