Пожалуйста, включите JavaScript.
Главная
Обзор
lain.church
Помощь
Регистрация
Вход
izaya
/
collapseos
зеркало из
https://github.com/hsoft/collapseos.git
Следить
1
В избранное
1
Форкнуть
0
Код
Задачи
0
Релизы
0
Вики
Активность
Просмотр исходного кода
forth: Forth-ify "PC!"
pull/95/head
Virgil Dupras
4 лет назад
Родитель
04a6784de4
Сommit
7beac94b5a
4 измененных файлов
:
22 добавлений
и
20 удалений
Разделённый вид
Опции Diff
Показать статистику
Скачать Patch файл
Скачать Diff файл
Двоичные данные
emul/forth/z80c.bin
+1
-19
forth/forth.asm
+14
-1
forth/z80a.fs
+7
-0
forth/z80c.fs
Двоичные данные
emul/forth/z80c.bin
Просмотреть файл
+ 1
- 19
forth/forth.asm
Просмотреть файл
@@ -21,11 +21,6 @@
;
; PutC: Write character specified in A onto the device.
;
; *** ASCII ***
.equ BS 0x08
.equ CR 0x0d
.equ LF 0x0a
.equ DEL 0x7f
; *** Const ***
; Base of the Return Stack
.equ RS_ADDR 0xf000
@@ -738,23 +733,10 @@ PRINT:
inc hl
jr .loop
; ( c port -- )
.db "PC!"
.fill 4
.dw $-PRINT
.db 0
PSTORE:
.dw nativeWord
pop bc
pop hl
call chkPS
out (c), l
jp next
; ( port -- c )
.db "PC@"
.fill 4
.dw $-P
STORE
.dw $-PRINT
.db 0
PFETCH:
.dw nativeWord
+ 14
- 1
forth/z80a.fs
Просмотреть файл
@@ -107,12 +107,25 @@
C@ ( b r op )
ROT ( r op b )
8 * ( r op b<<3 )
OR OR
Z
,
OR OR
A
,
;
0xc0 OP2br SETbr,
0x80 OP2br RESbr,
0x40 OP2br BITbr,
( cell contains both bytes. MSB is spit as-is, LSB is ORed with r )
( r -- )
: OP2r
CREATE ,
DOES>
@ 256 /MOD ( r lsb msb )
A, ( r lsb )
SWAP 8 * ( lsb r<<3 )
OR A,
;
0xed41 OP2r OUT(C)r,
0xeb40 OP2r INr(C),
( dd nn -- )
: OP3ddnn
CREATE C,
+ 7
- 0
forth/z80c.fs
Просмотреть файл
@@ -83,3 +83,10 @@ CODE AND
H A LDrr,
HL PUSHqq,
;CODE
CODE PC!
BC POPqq,
HL POPqq,
chkPS,
L OUT(C)r,
;CODE
Редактирование
Предпросмотр
Загрузка…
Отмена
Сохранить