05 июля 2015

           Этюды
Alone Coder 

        1. Вызов функции по номеру

 а)если номера идут не подряд:

;HL=список функций 
   ;(номер, смещение адреса),
   ;0=конец списка, т.е. функции 0 нет
;C=номер функции 
#1624
   CALL #1бDC
   RET NC;функция не найдена
   LD D,0
   LD E,(HL);смещение адреса функции
   ADD HL,DE
   JP (HL)
   ...
#1бDB
   INC HL
#1бDC
   LD A,(HL)
   AND A
   RET Z;конец списка,функция не найдена
   CP C
   INC HL
   JR NZ,#1бDB
   SCF
   RET

;пример списка функций: 
   DB 1
   DB 255&(func1-$)
   DB 10
   DB 255&(func10-$)
   DB 0;конец списка
;сами функции рядом: 
func1
   ...
   RET
func10
   ...
   RET

 б)если номера функций идут подряд (1,2,
...): 

;B=номер функции 
   DJNZ nofunc1
   <func1>
   RET
nofunc1
   DJNZ nofunc2
   <func2>
   RET
nofunc2
   ...
;у последней функции номер не проверяется 
;(может быть 0) 
   <funcO>
   RET


             2. Поиск текста
     (например, сообщения) по номеру

 а)вариант из ACEdit:

;HL=указатель на список текстов 
   ;(каждый текст кончается на 0) 
;D=номер текста (1..n) 
;возвращает HL = указатель на нужный текст 
   LD B,H;достаточно большое число
   XOR A;символ конца текста
   DEC D
   RET Z
   CPIR;ищем символ конца текста
         ;и ставим HL после него
   JR $-4

 б)вариант в ПЗУ 48 Basic
(только для ASCII, т.к. 7-й бит занят под
признак конца текста):

;DE=указатель на список текстов 
   ;(каждый с установленным 7-м битом
   ;в последнем символе)
;A=номер текста (0..n) 
;возвращает DE = указатель на нужный текст 
#0C41
   PUSH AF
   EX DE,HL
   INC A
#0C44
   BIT 7,(HL)
   INC HL
   JR Z,#0C44
   DEC A
   JR NZ,#0C44
   EX DE,HL
   POP AF
   cp #20   ;это
   ret c    ;для
   ld a,(de);нас
   sub #41  ;не важно
   RET

;пример списка текстов: 
#0095
   DB #BF   ;любой байт с установленным
              ;7-м битом (будет пропущен)
   DB "RN","D"+#80
   DB "INKEY","$"+#80
   ...


          3. Определение наличия
        музыкального сопроцессора

   LD BC,#FFFD
   XOR A;A=0/2/4/7/11 (полные 8-битные)
   OUT (C),A;избегаем OUT (C),0
   IN L,(C);oldRO
   INC L
   LD B,#BF
   OUT (C),L;newRO != oldRO
;читать R0 и проверить, изменился ли он 
   LD B,#FF;#fdfd нельзя на ATM1
   IN A,(C);R0
   CP L;newRO
   JR Z,AY_ON;R0 == newRO
AY_OFF

   Кто придумает короче без потери совмес─
тимости?


           4. Установка пикселя
      в режиме 320x200 на ATM Turbo 2

   Поскольку  X-координата не помещается в
одном байте, отрежем младший бит в отдель─
ный регистр.

;setpixel (EGA screen) 
;страницы экрана - в двух окнах памяти 
;addr = tY(y) + tX(x) 
;l=x 
;e=y 
;lx=xlow mask 
;d='tY 
;h='tX 
   LD A,(DE);(y*40)
   ADD A,(HL);x div 4
    LD C,A
   INC D
   INC H
   LD A,(DE);'(y*40)
   ADC A,(HL);f(x mod 4)
    LD B,A
   LD A,(BC)
  (X)OR LX;xlow mask
   LD (BC),A
   DEC D
   INC H
;74(66) t-states 
(ср.62(58) такта на 6912, см. ZX-Guide #1)

   Таблицы подготавливаются так:

   LD HL,#4000;экран в #4000 и #c000
   LD BC,40
   LD E,B
mktyO
   LD D,'tY
   LD A,L
   LD (DE),A
   INC D
   LD A,H
   LD (DE),A
   ADD HL,BC
   INC E
   JNZ mktyO
mktxO
   LD D,'tX
   LD A,E
   RRA
   RRA
   AND #3F
   LD (DE),A
   INC D
   LD A,E
   RRCA
   AND #80
   BIT 2,E
   JZ $+4
   OR #20
   LD (DE),A;#00,#80,#20,#a0
   INC E
   JNZ mktxO

   В Nedodemo 2 использовался вариант это─
го метода приX=0..255:

;l=x 
;e=y 
;d='tY 
   LD H,'tX
   LD A,(DE);(y*40)
   ADD A,(HL);x div 4
    LD C,A
   INC D
   INC H
   LD A,(DE);'(y*40)
   ADC A,(HL);f(x mod 4)
          ;#00,#00,#80,#80,#20,#20,#a0,#a0
    LD B,A
   INC H;'tXmask
   LD A,(BC)
  (X)OR (HL);xlow mask
   LD (BC),A
   DEC D
;80(76) t-states 

   В  генераторе таблиц надо добавить тре─
тийRRA, второй RRCA, заменить #3F  на #1F
и вставить передLD (DE),A:
   INC D
   LD A,E
   RRA
   SBC A,A
   XOR %01000111;left pixel
   AND C


      5. Библиотеки процедур в ALASM

   Если  надо сделать библиотеку процедур,
каждая  из  которых  будет компилироваться
только тогда,когда используется в програм─
ме, то можно пойти такими путями:

 а)создать макросы на каждую процедуру:

    INCLUDE "math",pgmath
...
MUL _MUL
DIV _DIV

math.h:
   MACRO _MUL
;процедура умножения 
   RET
   ENDM

   MACRO _DIV
;процедура деления 
   RET
   ENDM

 б)один и тот же модуль инклюдить неско─
лько раз - по одному для каждой процедуры. 
Это  эффективнее  по  памяти, чем  макросы 
(где  может  просто переполниться страница 
макросов), но скорость не гарантируется: 

    ...
MUL INCLUDE "math",pgmath
DIV INCLUDE "math",pgmath
    ...

math.H:
   IFN ?mathtwice
const1=1
const2=2
   ...
   MACRO mathbla
   ...
   ENDM
mathtwice
   ENDIF

   IFO ?MUL;если метка определена
   IFN ?MULcompiled
;процедура умножения 
   RET
MULcompiled
   ENDIF
   ENDIF

   IFO ?DIV;если метка определена
   IFN ?DIVcompiled
;процедура деления 
   RET
DIVcompiled
   ENDIF
   ENDIF

 в)инклюдить все библиотеки в самом кон─
це, чтобы  они сами могли проверять, какие 
процедуры используются, какие нет: 
 
    ...
    CALL MUL
    CALL DIV
    ...
    INCLUDE "math",pgmath

math.h:
   IFN ?MUL;если к метке обращались
MUL
;процедура умножения 
   RET
   ENDIF

   IFN ?DIV;если к метке обращались
DIV
;процедура деления 
   RET
   ENDIF


   6. Короткий генератор случайных чисел
              (прислал Tiboh)

   EXX
   INC HL
   RES 3,H
   LD A,R
   XOR (HL)
   EXX


           7. Ускорение LD:PUSH

   Обычный код вывода на экран типаLD DE:
PUSH DE неудачно ложится на задержки в фи─
рменных машинах (4 восьмитактовых цикла).
   Если  же  есть свободный регистрBC, то
можно выиграть в скорости, переписав так:

   LD BC,nn
   LD DE,nn
   PUSH BC
   PUSH DE

   Это занимает 7 восьмитактовых циклов,то
есть 3.5 на каждыйPUSH.
   Добавление регистраHL в общем невыгод─
но (11 восьмитактовых циклов на триPUSH),
но  если постараться загнать группуPUSH в
поле бордера, можно чего-то добиться.