Поделитесь парой процедур (печать, преобразование в число)

[STD]

Добрый вечер всем. У кого есть и кому не жалко, поделитесь готовыми рабочими процедурами:

1) печати 42 символа в строке ( в идеале, работающей с полноценным набором из 256 символов, с матрицей 8 на 8, где все символы прижаты к левому краю)

2) процедурой, которая переводит текстовую строку, в которой написано число, в собственно число. Те текст "32000" в число 32000.

Знаю, что в ревю такое было, но большинство журналов на zxpress отсканировано так, что вместо кода каша...

[Advertiser]

[Bedazzle]

вдруг поможет, 64 символа выкладывали на восе

и ещё на 40 символов тут

[Andrew771]

процедурой, которая переводит текстовую строку, в которой написано число, в собственно число. Те текст "32000" в число 32000.

У меня такая есть в библиотеке для компилятора ZX Like Pascal, скачай и зайди в файл libasm.lib через любой текстовый редактор. Там много процедур на ассемблере, в том числе и эта.

[Destr]

42 символа в строке

[Bedazzle]

42 символа в строке

топикстартер по ходу, говорит про это:

PR_б4_R LD В,'FОNTб4;

[Black Cat / Era CG]

PR_б4_R LD В,'FОNTб4;

Ага. Есть там такое. Поэтому проще найти оригинал (журнал в trd/scl, книгу в pdf...) и набирать процедуры уже оттуда руками, ибо качество распознанного текста на zxpress никакое. Но зато легко можно найти в какой книге/журнале есть нужная информация.

[Destr]

PR_б4_R LD В,'FОNTб4;

Есть такое.
В приложениях часто бывают готовые листинги (у электронных журналов).

ZX-Guide №1 (Ассемблер/Этюды)
Быстрая печать буквы 6x8 (экран в DE):

     PUSH DE
     LD L,A
     LD B,C
     LD A,2
     RRCA
     DJNZ $-1
     LD (PRN+1),A
     LD H,'FONT
     LD B,8
PRGO PUSH HL
     LD L,(HL)
PRN  LD H,1
PR1  ADD HL,HL
     ADD HL,HL
     JR NC,PR1
     LD A,(DE)
     OR H
     LD (DE),A
     INC E
     LD A,L
     LD (DE),A
     DEC E
     INC D
     POP HL
     INC H
     DJNZ PRGO
     POP DE

Если шрифт упирается в 0, то уберите LD
B,8,а DJNZ PRGO замените на JR NZ,PRGO.
Регистр C должен содержать 7,5,3 или 1,
причем 7 соответствует нулевой координате
буквы внутри знакоместа(x mod 8=0). Букв в
шрифте 256,и все они прижаты к левому краю
(можно сдвинутые на одну точку вправо).Как
надо изменять C:

     LD A,C
     SUB 6
     JR NC,$+5
     INC E
     AND 7
     LD C,A

[STD]

Спасибо, всем кто откликнулся, все посмотрю, попробую.

- - - Добавлено - - -

Уф...., Andrew771, спасибо за твою библиотеку, много чего интересного там. Процедуру перевода строки в число нашел, выдрал, изучил, алгоритм понял. Но в шапке процедуры у тебя, если я процедуру правильно понял, несколько неверный коммент для использующих ее стоит. У тебя там написано:
; вход: hl=адрес строки
а на самом деле hl, исходя из процедуры, сначала указывает на байт, определяющий длину преобразуемой строки и только после него начинается сама преобразуемая строка символов, т.е. правильнее было бы так:
; вход: hl= адрес байта,определяющего длину строки; hl+1 - адрес строки

а то пока я первую часть процедуры понял, все эти СР 6, СР 5, СР 4..... думал с ума сойду..... 8)

Но все равно ОГРОМНОЕ спасибо!!!

[Andrew771]

а на самом деле hl, исходя из процедуры, сначала указывает на байт, определяющий длину преобразуемой строки и только после него начинается сама преобразуемая строка символов, т.е. правильнее было бы так:
; вход: hl= адрес байта,определяющего длину строки; hl+1 - адрес строки

Да, так и есть. В этой библиотеке и при компиляции с Паскаля я так каждую строку храню: первый байт - длина строки, потом сами символы строки.

[Black Cat / Era CG]

первый байт - длина строки, потом сами символы строки.

Ну это ж как никак древняя паскалевская традиция