Пожалуйста, включите JavaScript.
Главная
Обзор
lain.church
Помощь
Регистрация
Вход
izaya
/
collapseos
зеркало из
https://github.com/hsoft/collapseos.git
Следить
1
В избранное
1
Форкнуть
0
Код
Задачи
0
Релизы
0
Вики
Активность
Просмотр исходного кода
z80a: invert the meaning of IFZ, IFNZ, IFC, IFNC,
It is much less confusing when "IFZ," means "If Z is set, continue into IF, else, jump to THEN,".
pull/102/head
Virgil Dupras
4 лет назад
Родитель
2439f1ed86
Сommit
b73e1a5f7a
3 измененных файлов
:
14 добавлений
и
13 удалений
Разделённый вид
Опции Diff
Показать статистику
Скачать Patch файл
Скачать Diff файл
+1
-1
forth/boot.fs
+4
-4
forth/z80a.fs
+9
-8
forth/z80c.fs
+ 1
- 1
forth/boot.fs
Просмотреть файл
@@ -201,7 +201,7 @@ L4 FSET L3 FSET ( loopend )
( HL is prev field's addr. Is offset zero? )
A D LDrr,
E ORr,
IFZ, ( noprev )
IF
N
Z, ( noprev )
( get absolute addr from offset )
( carry cleared from "or e" )
DE SBCHLss,
+ 4
- 4
forth/z80a.fs
Просмотреть файл
@@ -372,10 +372,10 @@
: BWR @ AGAIN, ;
( same as BSET, but we need to write a placeholder )
: FJR, PC 0 A, ;
: IFZ, JRZ, FJR, ;
: IFNZ, JR
N
Z, FJR, ;
: IFC, JRC, FJR, ;
: IFNC, JR
N
C, FJR, ;
: IFZ, JR
N
Z, FJR, ;
: IFNZ, JRZ, FJR, ;
: IFC, JR
N
C, FJR, ;
: IFNC, JRC, FJR, ;
: THEN,
DUP PC ( l l pc )
-^ 1 - ( l off )
+ 9
- 8
forth/z80c.fs
Просмотреть файл
@@ -149,10 +149,10 @@ CODE NOT
A L LDrr,
H ORr,
HL 0 LDddnn,
IF
N
Z,
( skip )
IFZ,
( false, make 1 )
HL INCss,
THEN,
( skip )
THEN,
HL PUSHqq,
;CODE
@@ -209,10 +209,10 @@ CODE /MOD
RLA,
HL ADCHLss,
DE SBCHLss,
IF
N
C,
( skip )
IFC,
DE ADDHLss,
C DECr,
THEN,
( skip )
THEN,
DJNZ, AGAIN, ( loop )
B A LDrr,
HL PUSHqq,
@@ -340,10 +340,10 @@ CODE CMP
chkPS,
DE SUBHLss,
BC 0 LDddnn,
IFZ,
IF
N
Z,
( not equal )
BC INCss,
IFC,
IF
N
C,
( < )
BC DECss,
BC DECss,
@@ -359,13 +359,14 @@ CODE _find
chkPS,
( 3 == find )
3 CALLnn,
IFZ,
( found )
IF
N
Z,
( not found )
HL PUSHqq,
DE 0 LDddnn,
DE PUSHqq,
JPNEXT,
THEN, ( found )
THEN,
( found )
DE PUSHqq,
DE 1 LDddnn,
DE PUSHqq,
Редактирование
Предпросмотр
Загрузка…
Отмена
Сохранить