AVMIS-2

    ORG $C000

REGBAS EQU $1000        * Стартовый адрес блока регистров
TCNT EQU $0E        *Счетчик (16-бит)
TOC1 EQU $16        *OC1 регистр (16-бит)
TFLG1 EQU $23

    JSR CLRAMEM
    JSR SETMEM
    RTS

INITDELAY
    LDX #REGBAS     *Указатель на блок регистров
    LDAA #$80
    STAA TFLG1,X
    RTS
DLY10
    JSR INITDELAY   *Вызов процедуры инициализации
    LDD TCNT,X
    ADDD #20000
    STD TOC1,X
LP1
    BRCLR TFLG1,X $80 LP1
    RTS

* Clear all memory proc
CLRAMEM
    LDX #$b60F      *Адрес стираемого байта
    LDAB #%00000110     *Конфигурация регистра PPROG
    STAB $103B      *Программирования регистра PPROG
    STAB 0,X        *Запись произвольного байта по адресу стираемого байта
    LDAB #$17
    STAB $103B      *Подача напряжения программирования
    JSR DLY10       *Вызов процедуры задержки на 10 мс
    CLR $103B       * Выключение высокого напряжения программирования

    RTS


SETMEM

    LDX #$b600      *Адрес программируемого байта


LOOP2   LDAB #$00
    PSHX
LOOP1   PULX
    PSHX
    ABX
    PSHB
    PSHX
    JSR SETBYTE
    PULX
    LDAB #$11 * СМЕЩЕНИЕ НА 11 КЛЕТОК
    ABX
    JSR SETBYTE
    PULB
    INCB
    INCB
    CMPB #$10
    BNE LOOP1
    PULX
    CLC
    PSHB
    LDAB #$20 * СМЕЩЕНИЕ НА 2 СТРОКИ
    ABX
    CPX #$B800
    PULB
    BNE LOOP2

    RTS


SETBYTE
    LDAB #%00000010     *Конфигурация регистра PPROG
    STAB $103B      *Программирования регистра PPROG
    LDAA #$10       *Записываемые данные

    STAA 0,X        *Запись байта по адресу программируемого байта
    LDAB #$03
    STAB $103B      *Подача напряжения программирования
    JSR DLY10       *Вызов процедуры задержки на 10 мс
    CLR $103B       * Выключение высокого напряжения программирования

    RTS