Вид для печати
нет, у тебя же сначала создает какую-то табличку длиной #180 начиная с #7c00, а потом че-то умножается на что-то, и там такой код:
Так что ты забиваешь в #7d00 и дальше, при это затирая половину данных, которые нагенерило в первом шаге. Я хз, это так задумано или что.Код:pop hl
inc h
ld (hl),a
dec h
inc l
с генерацией косяк, да. только при вычислении участвуют данные с $7C00 по $7CFF.Цитата:
Сообщение от Shadow Maker
Ладно, буду думать позжее, я сомневаюсь с переполнением.
я не зря попросил "зоркий глаз":)
поменял генерацию таблицы синуса:
Shadow Maker, спасибо за наводку!Код:loc_602D:
ld a, (hl)
add a,a
ld (hl),a
neg
ld (de), a
inc l;de
inc e;l
jr nz, loc_602D
погрешность вычислений есть все же..
господа кодеры, ткните меня носом в процедуру печати текста 2х2 пожалуйста.
Так оно ж несложно. Сдвигаешь в цикле байт из фонта, достаешь сдвинутый бит 2 раза, собираешь в регпару удвоенную по ширине линию буквы, и пихаешь ее в экран по два раза. Вот тут принцип описан, но там отдельно 1x2 и 2x1.
Да, знаю.Цитата:
Сообщение от Alex Rider
просто табличка лукап строится медленно, придется на время самому текст нарисовать.
можь поможет - процедура вывода масштабированного в 2 раза спрайта: http://zx-pk.ru/showpost.php?p=371414&postcount=50Цитата:
Сообщение от denpopov
А мне вот сейчас понадобилась для будущего компилятора процедура ввода с клавиатуры чисел и строк, короче, аналог бейсиковского оператора INPUT. Ни у кого не завалялась? А то с нуля лень писать :)
Можно позвать ПЗУшный если устроит. У меня есть свой редактор, но он черезчур сильно дружит с процедурой вывода символов 6x8.Цитата:
Сообщение от Andrew771
---------- Post added at 00:27 ---------- Previous post was at 00:17 ----------
ПЗУшный примерно вот так звать:
Код:
; ROM routines
@chan_open equ #1601
@cl_lines equ #0e44
@set_min equ #16b0
@editor equ #0f2c
@break_key equ #1f54
@key_input equ #10a8
; System variables
@k_cur equ #5c5b
@err_sp equ #5c3d
@worksp equ #5c61
@curchl equ #5c51
input_file_name:
ld hl,Variables.input_buffer
ld de,Variables.input_buffer+1
ld bc,#0a
ld (hl),#20
ldir
xor a
call chan_open
ld b,#02
call cl_lines
input_line:
ld hl,flagx
set 7,(hl)
set 5,(hl)
call set_min
ld bc,#0001
rst #30
ld (hl),#0d
ld (k_cur),hl
ld hl,input_line_error
push hl
ld (err_sp),sp ;ERR-SP
ld bc,new_key_input
call set_key_input_routine
call editor
pop hl
ld hl,(worksp)
ld de,Variables.input_buffer
ld b,#08
input_line_copy:
ld a,(hl)
cp #0d
jr z,input_line_exit
ld (de),a
inc hl
inc de
djnz input_line_copy
jr input_line_exit
input_line_error:
ld de,Variables.input_buffer
ld a,(iy + #00)
cp #10
jr z,input_line_exit
ld a,#02
out (#0fe),a
input_line_exit:
ld bc,key_input
call set_key_input_routine
xor a
ld (de),a
ld a,2
call chan_open
jp set_min
set_key_input_routine:
ld hl,(curchl)
inc hl
inc hl
ld (hl),c
inc hl
ld (hl),b
ret
new_key_input:
call break_test
jp c,key_input
ld a,#0a
scf
ret
есть древняя процедура опроса клавиатуры, дизассемблирована неизвестно откуда. Естественно, таблица недоделана.
Код:device zxspectrum128
ORG #7000
begin
ld de,#4000
;ENTER CALL KEY:CP 255
; JR NZ,ENTER
E0 CALL KEY
CP 255:JR Z,E0
; CP 13:JR Z,ENDOF
; LD C,A:CP 8:JR Z,E2
ld l,a,h,0
add hl,hl
add hl,hl
add hl,hl
ld bc,#3C00:add hl,bc
push de
ld b,8
ei
halt
charlp: ld a,(hl),(de),a
inc hl,d
djnz charlp
pop de:inc de
jr E0
;
;--- K E Y B O A R D ---
;
KEY PUSH HL:PUSH DE
PUSH BC
LD HL,KEYS:LD D,#FE
K1 LD A,D:IN A,(254)
LD E,1:LD B,5
K2 RRCA:JR NC,K3
INC HL:SLA E:DJNZ K2
RLC D:JR C,K1
K3 LD A,(HL):POP BC
POP DE:POP HL:RET
KEYS DB 8,"zxcvasdfg"
DB "qwert1"
DB 124,96,126,91;|`~[
DB "0987",93;]
DB "poiuy"
DB 13,"lkjh ",8
DB "mnb",255
end
display /d,end-begin
savesna "!ants.sna",begin
http://baze.au.com/misc/z80bits.html#2.1
Не знает ли кто-нибудь похожую процедуру, но попроще?
Нужно деление на 3 с получением остатка.