nedoPC.org

   RAL ; +4=4
   JC CPI_DI+1 ; +10=14
   EI ; +4=18
CPI_DI:
   CPI   0F3h ; +7=25 or +4=18
   ORA   A ; +4=29 or +4=22
   RAR ; +4=33 or +4=26 (avg=29.5)

   INR M ; от предыдущей строки
; начало следующей строки
   JNZ L0 ; +10
   INX H ; 5 \
   INR M ; 10 (инкремент старшего байта адреса один раз на каждые 4 строки - это в среднем +20/4=5 тактов на строку)
   DCX H ; 5 /
L0: ; тут будет усреднённо 15 тактов
   LDAX D ; +7=22
   INR     M ; +10=32
   STA SND1 ;  +13=45
   RLC ; +4=49 (играем первый бит звука в преамбуле)
   JNC LD+1 ; +10=59
   EI ; +4=63
LD: CPI   0F3h ; +7=70 или +4=63 (DI)
   LDAX D ; +7=77 или 70 - в среднем 73.5
   INR     M ; +10=83.5
   STA SND2 ; +13=96.5
   ; далее вычитываем значение для SP этой строки
   LDAX D ; +7=103.5
   INR     M ; +10=113.5
   MOV C,A ; +5=118.5
   LDAX D ; +7=125.5
   INR     M ; +10=135.5
   MOV H,A ; +5=140.5
   MOV L,C ; +5=145.5
   SPHL ; +5=150.5 (SP=HL)
   LHLD ADRVAR ; +16=166.5 (восстанавливаем адрес) <<<< преамбула около 167 тактов на строку
; далее повторяющаяся часть для каждых 4 пикселов (повторяется 15 раз)
   LDA SND1 ; +13
   ANI 40H ; +7=20 (играем второй бит звука)
   JZ L3 ; +10=30
   EI ; +4=34
   JMP L4 ; +10=44
L3:
   DI ; +4=34
   MOV A,A ; +5=39 (для равномерности)
   MOV A,A ; +5=44 (для равномерности)
L4:
   LDAX    D ; +7=51
   INR     M ; +10=61
   MOV     B,A ; +5=66
   LDAX    D ; +7=73
   INR     M  ; +10=83
   MOV     C,A ; +5=88
   PUSH    B  ; +11=99
   LDAX    D ; +7=106
   INR     M ; +10=116
   MOV     B,A ; +5=121
   LDAX    D ; +7=128
   INR     M  ; +10=138
   MOV     C,A ; +5=143
   PUSH    B  ; +11=154 <<<<<< повторяющаяся часть
; следующая четвёрка пикселов
   LDA SND1
   ANI 20H ; (следующий бит звука)
   JZ L5
   ; и т.д.