Цей веб-сайт працює краще з JavaScript.
Головна
Огляд
lain.church
Довідка
Реєстрація
Увійти
izaya
/
collapseos
дзеркало
https://github.com/hsoft/collapseos.git
Слідкувати
1
В обрані
1
Форк
0
Код
Проблеми
0
Релізи
0
Вікі
Активність
Переглянути джерело
forth: Forth-ify "(parsed)"
pull/95/head
Virgil Dupras
4 роки тому
джерело
80985460d4
коміт
4756fb7763
4 змінених файлів
з
24 додано
та
30 видалено
Розділений перегляд
Параметри порівняння
Показати статистику
Завантажити патч
Завантажити файл різниці
BIN
emul/forth/z80c.bin
+7
-29
forth/forth.asm
+1
-1
forth/icore.fs
+16
-0
forth/z80c.fs
BIN
emul/forth/z80c.bin
Переглянути файл
+ 7
- 29
forth/forth.asm
Переглянути файл
@@ -116,22 +116,23 @@
jp nativeWord
jp next
jp chkPS
; 2
4
;
3
2
.dw numberWord
.dw litWord
.dw INITIAL_SP
.dw WORDBUF
jp flagsToBC
; 3
5
;
4
3
jp strcmp
.dw RS_ADDR
.dw CINPTR
.dw SYSVNXT
.dw FLAGS
; 4
6
;
5
4
.dw PARSEPTR
.dw HERE
.dw CURRENT
jp parseDecimal
; *** Code ***
forthMain:
@@ -162,7 +163,7 @@ forthMain:
.bootName:
.db "BOOT", 0
.fill
101
.fill
98
; STABLE ABI
; Offset: 00cd
@@ -762,33 +763,10 @@ NOT:
jp next
.fill 100
.db "(parsed)"
.dw $-NOT
.db 8
PARSED:
.dw nativeWord
pop hl
call chkPS
call parseDecimal
jr z, .success
; error
ld de, 0
push de ; dummy
push de ; flag
jp next
.success:
push de
ld de, 1 ; flag
push de
jp next
.fill 224
.fill 362
.db "_bend"
.dw $-
PARSED
.dw $-NOT
.db 5
; Offset: 0647
.out $
+ 1
- 1
forth/icore.fs
Переглянути файл
@@ -85,7 +85,7 @@
( This is only the "early parser" in earlier stages. No need
for an abort message )
: (parse)
(parsed) NOT IF _c ABORT THEN
_c
(parsed) NOT IF _c ABORT THEN
;
( a -- )
+ 16
- 0
forth/z80c.fs
Переглянути файл
@@ -347,3 +347,19 @@ CODE CMP
BC PUSHqq,
;CODE
CODE (parsed)
HL POPqq,
chkPS,
( 60 == parseDecimal )
60 CALLnn,
10 JRZe, ( success )
( error )
DE 0 LDddnn,
DE PUSHqq, ( dummy )
DE PUSHqq, ( flag )
JPNEXT,
( success )
DE PUSHqq,
DE 1 LDddnn,
DE PUSHqq,
;CODE
Писати
Попередній перегляд
Завантаження…
Відмінити
Зберегти