ЭТЮДЫ

[drbars]

0xDEAD, как вариант...

S42_PRN LD	L,A
        LD	H,FONT42
        LD	DE,(SCP_ADR)
PRN_MOV LD	A,0
        INC	A
        AND	3
        LD	(PRN_MOV+1),A
        AND	A
        JP	Z,S42_1
        DEC	A
        JP	Z,S42_2
        DEC	A
        JP	Z,S42_3
S42_4   PUSH	HL
        PUSH	DE
        DUP	7
        LD	A,(DE)
        LD	C,(HL)
        SRA	C
        SRA	C
        OR	C
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        LD	C,(HL)
        SRA	C
        SRA	C
        OR	C
        LD	(DE),A
        POP	DE
        POP	HL
        INC	E
        DUP	7
        LD	A,(HL)
        DUP	6
        ADD	A,A
        EDUP	
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        DUP	6
        ADD	A,A
        EDUP	
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET	
S42_1   DUP	7
        LD	A,(DE)
        OR	(HL)
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        OR	(HL)
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET	
S42_2   DUP	7
        LD	A,(HL)
        ADD	A,A
        ADD	A,A
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        ADD	A,A
        ADD	A,A
        LD	(DE),A
        RET	
S42_3   PUSH	HL
        PUSH	DE
        DUP	7
        LD	A,(DE)
        LD	C,(HL)
        DUP	4
        SRA	C
        EDUP	
        OR	C
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(DE)
        LD	C,(HL)
        DUP	4
        SRA	C
        EDUP	
        OR	C
        LD	(DE),A
        POP	DE
        POP	HL
        INC	E
        DUP	7
        LD	A,(HL)
        DUP	4
        ADD	A,A
        EDUP	
        LD	(DE),A
        INC	D
        INC	H
        EDUP	
        LD	A,(HL)
        DUP	4
        ADD	A,A
        EDUP	
        LD	(DE),A
        LD	HL,SCP_ADR
        INC	(HL)
        RET

[drbars]

Обрати внимание, что поскольку шрифт содержит 256 символов и занимает 2048 байт, то мы слегка меняем его формат чтобы выкинуть умножение при расчёте адреса символа. т.е. в шрифте идут начала первые строки всех 256 символов, затем вторые, итд... переход на следующую строку символа делается просто INC H Переменная SCP_ADR это адрес на экране.

[tiboh]

0xDEAD, как вариант...

PRN_MOV LD	A,0
        INC	A
        AND	3
        LD	(PRN_MOV+1),A
        AND	A - лишняя команда
        JP	Z,S42_1
        DEC	A
        JP	Z,S42_2
        DEC	A
        JP	Z,S42_3

!

[reddie]

можно сократить еще на два байта =)

PRN_MOV LD	A,#88
        RLCA
        LD	(PRN_MOV+1),A
        JP	C,S42_1
        RLCA
        JP	C,S42_2
        RLCA
        JP	C,S42_3

Т.к. счетчик в аккуме кратен четырем - достаточно циклической прокрутки байта и проверки флага C. Таким же образом можно делать счетчики на 2 и 8.
Ну и, если хватает расстояния, можно позаменять JP на JR.

[0xDEAD]

Спасибо, но уже недели две как сам написал. Даже практически то же самое получилось.
Посмотрю, конечно.

Почему add a, a, а не rla/rlca? По таймингам одинаково.

[Destr]

Почему add a, a, а не rla/rlca? По таймингам одинаково.

В данном случае без разницы, но вообще rlca не трогает флаги кроме С, а add наоборот - выставляет все флаги как положено.
Если на них нужно реагировать после сдвига то add, а если сохранить флаги "как было" то rlca

[Advertiser]

[Reobne]

Если поменять функции HL и DE, то вместо

  LD  С,(DE)
  ~ROLL С
  LD A,(HL)
  OR C
  LD (HL),A

можно писать

  LD  A,(DE)
  ~ROLL A
  OR (HL)
  LD (HL),A

Так чуть короче, чуть быстрее, и регистр BC полностью свободен.

Когда литеру шлёпаем в два знакоместа, то можно первое знакоместо проходить вниз, а второе вверх. Убираются PUSH POP, и сразу получаем адрес для следующего символа.

Шесть сдвигов можно заменить двумя циклическими сдвигами в другую сторону с одним AND.

Если размер важнее скорости, то можно свернуть все DUP-ы.

А если скорость важнее размера, то можно как нибудь свести эти четыре варианта печати, чтобы они друг друга по очереди вызывали. Или если печатать не символ, а сразу строку, то вообще шли друг за другом по кольцу.
Или может быть печатали сразу с двух литер в одно знакоместо.
Или даже имели сразу сдвинутые шрифты.

[0xDEAD]

Когда литеру шлёпаем в два знакоместа, то можно первое знакоместо проходить вниз, а второе вверх.

О! И как бы просто, и попробуй догадайся.

Или если печатать не символ, а сразу строку, то вообще шли друг за другом по кольцу

Так я и сделал, собственно.

Или может быть печатали сразу с двух литер в одно знакоместо.

Если вторая литера будет символом конца строки или CRLF, то неудобно получится.

Собственно, что у меня получилось:

@FONT	equ #d000

OUT43	
	call coords.BYTE_RC  ; вычислили адрес в экранной памяти по координатам знакоместа
	ex de, hl		
	push de		
PRINT	
	ld a, (bc)	
	cp "\N"		; перевод строки?
	jr NZ, .noCRLF1	
	pop hl		
	inc h		
	inc bc		; take next symbol after \N
	jp OUT43		
.noCRLF1	or a		; EOL?
	jp Z, exitSub		
	push hl		
.fnt1	ld d, FONT/256  	
	ld e, a

;==================================================================================	
;       1st char

	DUP 8	
	ld a, (de)
	ld (hl), a
	inc h	
	inc d	
	EDUP
	pop hl	
	inc bc	
;==================================================================================	
;	2nd char
	
	ld a, (bc)
	cp "\N"	
	jr NZ, .noCRLF2
	pop hl		
	inc h		
	inc bc		
	jp OUT43	
.noCRLF2	or a
	jp Z, exitSub
	push hl		
.fnt2	ld d, FONT/256
	ld e, a		
	DUP 8		
	ld a, (de)	
	rlca
	rlca		
	push af
	and %00000011
	or (hl)		 
	ld (hl), a	
	pop af
	and %11110000
	inc hl
	ld (hl), a	
	dec hl
	inc h		
	inc d		
	EDUP
	pop hl		
	inc bc		

;==================================================================================	
;	3rd char

	ld a, (bc)
	cp "\N"	
	jr NZ, .noCRLF3	
	pop hl		
	inc h		
	inc bc		
	jp OUT43	
.noCRLF3	or a
	jp Z, exitSub
	inc hl		
	push hl		
.fnt3	ld d, FONT/256
	ld e, a		
	DUP 8		
	ld a, (de)	
	DUP 4
	rlca		
	EDUP
	push af
	and %00001111		
	or (hl)
	ld (hl), a		
	pop af
	and %11000000	
	inc hl
	ld (hl), a		
	dec hl
	inc h		
	inc d		
	EDUP
	pop hl		
	inc bc		
	
;==================================================================================	
;	last (4th) char

	ld a, (bc)		
	cp "\N"		
	jr NZ, .noCRLF4	
	pop hl		
	inc h		
	inc bc		
	jp OUT43	
.noCRLF4	or a
	jp Z, exitSub
	inc hl		
	push hl		
.fnt4	ld d, FONT/256
	ld e, a		
	DUP 8		
	ld a, (de)	
	rrca		
	rrca
	and %00111111
	or (hl)
	ld (hl), a	
	inc h		
	inc d		
	EDUP
	pop hl
	inc bc		
	inc hl		
	jp PRINT	

exitSub	
	pop hl
	ret
Font1251	incbin "CP1251_42_B_converted.fnt",,2048

На входе в HL координаты знакоместа, в BC - адрес первого символа строки.
Пока ещё в состоянии proof of concept, надо оптимизировать, но печатает же ж. И явно быстрее того жуткого ужаса, который я написал в 1996 году, который, ну, в принципе, тоже ведь печатал...

[LW]

Взываю к коллективному разуму.

Постановка задачи следующая:
Необходимо трехбайтное число (#000000..#7FFFFF) умножить на дробь формата #FFnn/#10000
старший байт числителя дроби всегда равен #FF
Допустима небольшая погрешность при вычислении.
Основной критерий скорость вычисления, но размер п/п не должен превышать примерно килобайта. Доступна таблица квадратов.

[SAM style]

Код писать сейчас некогда, но вот идея: умножить исходное на ~#FFnn (aka #00xx), целую часть результата умножения - старшие 2 байта - вычесть из исходного.