/*
 * _bgi_blit_rows_not_raw — accel-блит СТРОКАМИ операцией NOT: приёмник =
 * ~источник (приёмник в операции НЕ участвует).  Пара к
 * _bgi_blit_rows_op_raw, вынесена отдельно, потому что цепочка другая.
 *
 * ПОЧЕМУ НЕ `CPL`.  Буфер акселератора меняется только на ЧТЕНИИ и только
 * опкодами AND/OR/XOR (HL) (драйвер MAME, update_accel_buffer); `CPL`
 * (#2F) автомат не распознаёт вовсе — инвертируется регистр CPU, а не
 * буфер, и запись выгрузит неизменённый блок.  Зато ~src = src XOR #FF,
 * поэтому NOT собирается из имеющегося: XOR-burst по константному блоку
 * единиц (common/_bgi_ones256.c).
 *
 * ЦЕПОЧКА НА СТРОКУ (три burst'а, все горизонтальные):
 *   OUT Port_Y = y
 *   LD L,L · LD A,(DE)      ; буфер := src
 *   LD B,B                  ; СТОП — разоружить перед сменой HL
 *   LD HL,#ones · LD L,L · XOR (HL)   ; буфер ^= #FF... = ~src
 *   LD B,B                  ; СТОП
 *   LD HL,#dst · LD L,L · LD (HL),A   ; запись строки
 *   LD B,B
 * СТОП перед каждой загрузкой HL обязателен: под армированным accel fetch
 * операнда `LD HL,nn` перезапустил бы burst (memory/
 * accel_operand_fetch_retrigger).  Буфер и размер блока переживают LD B,B
 * (docs/new/06-accel.md §6.3) — на этом всё и держится.
 * Port_Y в горизонтальном режиме не шагает, сбрасывать его между
 * burst'ами не нужно; dst фиксирован (строку выбирает Port_Y) и потому
 * кладётся SMC-immediate'ом один раз на вызов.
 *
 * Прозрачности у NOT нет по определению (инвертируется КАЖДЫЙ байт, в том
 * числе #FF -> 0x00) — это ровно семантика NOT_PUT из Turbo C BGI.
 *
 * ВХОД (__sdcccall(1)): src→HL, dst→DE (фикс); стек: w 4(ix), h 5(ix),
 * sstride 6/7(ix), y0 8(ix).  Callee-pop 5 Б.  Raw: без клипа, W3 замаплен
 * снаружи, банк ставит вызывающий, src ВНЕ W3.  Клоббер: AF/BC/DE/HL.
 */

#include "../_bgi.h"

void _bgi_blit_rows_not_raw(const uint8_t *src, uint8_t *dst,
                            uint8_t w, uint8_t h,
                            int sstride, uint8_t y0) __naked
{
    (void)src; (void)dst; (void)w; (void)h; (void)sstride; (void)y0;
    __asm
        push  ix
        ld    ix, #0
        add   ix, sp
        ;; SMC: размер блока <- w
        ld    a, 4 (ix)
        ld    (bn_len_imm), a
        ;; SMC: src-страйд между строками
        ld    a, 6 (ix)
        ld    (bn_slo_imm), a
        ld    a, 7 (ix)
        ld    (bn_shi_imm), a
        ;; SMC: адрес приёмника — фиксирован на весь блит (строку задаёт
        ;; Port_Y), а HL по очереди занят то блоком единиц, то им
        ld    (bn_dst_imm), de
        ld    b, 5 (ix)            ; B = счётчик строк (0 => 256: djnz)
        ld    c, 8 (ix)            ; C = y
        ex    de, hl               ; DE = src (читается LD A,(DE))
        di                         ; один DI на весь блит
        ld    d, d                 ; 0x52 — режим размера блока
        ld    a, #0
    bn_len_imm = . - 1
        ld    b, b                 ; 0x40 — стоп (B=счётчик не тронут)
    bn_row:
        ld    a, c
        out   (#0x89), a           ; Port_Y = y
        inc   c
        ld    l, l                 ; 0x6D — гориз. режим
        ld    a, (de)              ; read-burst : src -> буфер
        ld    b, b                 ; 0x40 — стоп (разоружить перед LD HL)
        ld    hl, #__bgi_ones256
        ld    l, l                 ; 0x6D — гориз. режим
        xor   a, (hl)              ; op-burst  : буфер ^= #FF... = ~src
        ld    b, b                 ; 0x40 — стоп
        ld    hl, #0
    bn_dst_imm = . - 2
        ld    l, l                 ; 0x6D — гориз. режим
        ld    (hl), a              ; write-burst: буфер -> строка экрана
        ld    b, b                 ; 0x40 — стоп
        ;; src += sstride
        ld    a, e
        add   a, #0
    bn_slo_imm = . - 1
        ld    e, a
        ld    a, d
        adc   a, #0
    bn_shi_imm = . - 1
        ld    d, a
        djnz  bn_row
        ei
        pop   ix
        ;; callee-pop 5 байт (w,h,sstride:2,y0)
        pop   hl                   ; ret-адрес
        pop   af
        pop   af
        inc   sp
        jp    (hl)
    __endasm;
}