Кросскомпилятор Си под 8080

[vinxru]

Переписал арифметику с нуля. Вместо временных переменных используется стек.

  ; dest = (uchar*)(0xE1D5 + x + y*78);
  ld hl, (print_x)
  ld h, 0
  ld de, 57813
  add hl, de
  push hl
  ld d, 78
  ld a, (print_y)
  call mul_uchar
  pop de
  add hl, de
  ld (print_dest), hl

Основной код пока выглядит еще не очень. Нужно сделать хранение заначений в регистре BC и доделать сравнение (команда CP вместо вызова call e_uchar). И for парсить нелинейно, что бы код был линейным

main_i ds 1
main_x ds 1
main_buf ds 32

main:
  ; clrscr();
  call clrscr
  ; print(0, 0, "HELLO");
  xor a
  ld (print_x), a
  ld (print_y), a
  ld hl, string0
  call print
  ; itoa(buf, 123);
  ld hl, main_buf
  ld (itoa_str), hl
  ld hl, 123
  call itoa
  ; print(1, 1, buf);
  ld a, 1
  ld (print_x), a
  ld (print_y), a
  ld hl, main_buf
  call print
  ; i = 5;
  ld a, 5
  ld (main_i), a
  ; for(x=0; x<64; x+=16) {
  xor a
  ld (main_x), a
l10:
  ld d, 64
  ld a, (main_x)
  call l_uchar
  or a
  jp z, l11
  jp l12
l13:
  ld a, (main_x)
  add 16
  ld (main_x), a
  jp l10
l12:
  ; print(x, i, "12345678.123");
  ld a, (main_x)
  ld (print_x), a
  ld a, (main_i)
  ld (print_y), a
  ld hl, string1
  call print
  ; }
  jp l13
l11:
  ; while(1) {
l14:
  ; if(getch() == '1') clrscr();
  call getch
  ld d, 49
  call e_uchar
  or a
  jp z, l16
  call clrscr
l16:
  jp l14
l15:
l9:
  ret
;----------------------------------
string1 db "12345678.123",0
string0 db "HELLO",0

---------- Post added at 23:56 ---------- Previous post was at 22:47 ----------

1500 строк, 45 Кб

[Advertiser]

[Error404]

Как-то совсем непродуманно выглядит передача параметров в функцию.

[vinxru]

Всмысле?

Все переменные глобальные, в том числе и аргументы функций.

Только я сделал небольшую оптимизацию, что последний параметр записывается не в память, а в регистры A или HL. А первой командой в вызываемой функции параметр записывается в память.

---------- Post added at 10:22 ---------- Previous post was at 10:17 ----------

Сделал хранение переменных в регистрах BC, B, C. Ключевое слово register. Операцию >>.

[Error404]

Всмысле?

Считаю было бы стратегически правильным сразу делать шедевр.
Т.е. фукнциональность (набор операторов) - бог с ней, потом допишется, кодогенератор аналогично пока можно не оптимизировать. А вот базовые механизмы надо бы внедрить изначально. Позже это делать будет сложнее и приведет к размножению костылей и как следствие багов. Соответственно надо запланировать все нужные типы, арифметику, передачу параметров на стеке (от которых и до локальных переменных функций - полшага).

[vinxru]

Если делать через стек, то программа будет работать еще в 3 раза дольше.

Для стека

LD HL, ADDR16
ADD HL, SP
LD A, (HL)

или

LXI H, ADDR16
DAD SP
MOV A, M

Глобальные переменные.

LD A, (ADDR16)

или

LDA ADDR16

---------- Post added at 11:10 ---------- Previous post was at 11:04 ----------

Может мне кто нибудь подкинет функции умножения, деления, вычисления остатка от деления для 8, 16 бит, знаковых и без знаковых типов?

[b2m]

Вот умножение, умножает DE на HL, результат в HL:

_IMUL:	MOV B,H
	MOV C,L
	LXI H,0
	MVI A,17
_IMUL1:	DCR A
	RZ
	DAD H
	XCHG
	DAD H
	XCHG
	JNC _IMUL1
	DAD B
	JMP _IMUL1

Несложно доделать, чтобы результат был 32-битным в DEHL:

_IMUL:	MOV B,H
	MOV C,L
	LXI H,0
	MVI A,17
_IMUL1:	DCR A
	RZ
	DAD H
	XCHG
	JC _IMUL2
	DAD H
	XCHG
	JNC _IMUL1
	DAD B
	JMP _IMUL1
_IMUL2:	DAD H
	INX H
	XCHG
	JNC _IMUL1
	DAD B
	JMP _IMUL1

---------- Post added at 13:36 ---------- Previous post was at 13:32 ----------

Для знаковых, перед умножением надо проверить, если оба числа отрицательные, то сделать оба положительными. Отрицательное на положительное можно и так умножать.

---------- Post added at 13:53 ---------- Previous post was at 13:36 ----------

Беззнаковое деление/остаток:

_DIV:	MOV A,H
	ORA L
	RZ
	LXI B,0000
	PUSH B
_DIV1:	MOV A,E
	SUB L
	MOV A,D
	SBB H
	JC _DIV2
	PUSH H
	DAD H
	JNC _DIV1
_DIV2:	LXI H,0000
_DIV3:	POP B
	MOV A,B
	ORA C
	RZ
	DAD H
	PUSH D
	MOV A,E
	SUB C
	MOV E,A
	MOV A,D
	SBB B
	MOV D,A
	JC _DIV4
	INX H
	POP B
	JMP _DIV3
_DIV4:	POP D
	JMP _DIV3

DE делится на HL, результат в HL, остаток в DE

---------- Post added at 14:00 ---------- Previous post was at 13:53 ----------

Для знаковых, перед умножением надо проверить, если оба числа отрицательные, то сделать оба положительными. Отрицательное на положительное можно и так умножать.

Если использовать только 16-битный результат, то можно даже не проверять на знак

---------- Post added at 14:09 ---------- Previous post was at 14:00 ----------

А если использовать 32-битный результат, то надо классически проверить знаки, привести к положительным значениям, и потом, если надо, инвертировать знак результата

[ivagor]

чтобы результат был 32-битным в DEHL

Приведенный вариант не совсем правильный. Попробуйте умножить 7FFF*7FFF. Можно после dad b (оба раза) вставить
jnc _IMUL1
inx d
а потом уже JMP _IMUL1

[b2m]

Приведенный вариант не совсем правильный. Попробуйте умножить 7FFF*7FFF. Можно после dad b (оба раза) вставить
jnc _IMUL1
inx d
а потом уже JMP _IMUL1

Согласен. Я просто не проверял этот вариант, упустил из виду, что DAD B тоже может перенос вызвать.

---------- Post added at 17:08 ---------- Previous post was at 17:05 ----------

Вот, поправил:

_IMUL:	MOV B,H
	MOV C,L
	LXI H,0
	MVI A,17
_IMUL1:	DCR A
	RZ
	DAD H
	XCHG
	JNC _IMUL2
	DAD H
	INX H
	JMP _IMUL3
_IMUL2:	DAD H
_IMUL3:	XCHG
	JNC _IMUL1
	DAD B
	JNC IMUL1
	INX D
	JMP _IMUL1

[vinxru]

Команда DEX B не изменяет флагов вообще, и я думал, что и DAD то же не изменяет.

Значит её можно в циклах применять

ADD HL, DE
JP NC, LOOP

вместо

DEC HL
LD A, H
OR L
JP NZ, LOOP

[b2m]

Значит её можно в циклах применять

Но при этом тебе надо будет в DE еденицу грузить. 4 байта против трёх.