;PALTST13 - Демонстрация всех 16 палитр ТВ-контроллера БК0011М
; внутри одного ТВ-кадра, используя таймеры CPU и 48.50Гц
; (C) 2013, TheGWBV
; КСИ == кадровый синхро-импульс
;
.LA 1000    ; Адрес  загрузки и начального запуска
;
;------------------------ БЛОК КОНСТАНТ
SSTART = 40000    ; Адрес  начала экранного ОЗУ
SCRLEN = 20000    ; Длина  экранного ОЗУ в  словах
SCRLNB = 40000    ; Длина  экранного ОЗУ в  байтах
SCREND = 100000    ; Адрес  конца экранного  ОЗУ+1
;
;------  ПОДГОТОВКА ЭКРАНА И "ТАЙМЕРА" 48.50Гц
START:  MOV #1330,@#177664  ; Выровняли РУЛОН экрана
  MOV @#100,VTIME0+2  ; Сохранили вектор прерывания
  MOV @#102,VTPSW0+2  ; Сохранили слово состояния CPU
  MOV #TIME1,@#100  ; Куда идем на 1-ом КСИ
  CLR R5      ;
  MOV #177662,R4    ; Установили 0-вую ПАЛИТРУ и
  MOV R5,(R4)    ; Включили ТАЙМЕР 48.50Гц
  WAIT      ; Ждем 1-ый КСИ
  WAIT      ; Ждем 2-ой КСИ
  MOV #100,R3
2:  MOV #SHIFT0,R1    ; НАЧАЛО ПОТОКА  в R1
  CALL SSOPUT    ; ОТОБРАЗИТЬ ПОТОК начиная с (R0)
  SOB R3,2    ; #100 раз (по горизонтали)
  ADD #300,R0
  MOV #100,R3
3:  MOV #SHIFT0,R1
  CALL SSOPUT
  SOB R3,3    ; Еще 64. раза
  MOV #20,R2
  ADD #710,R0
8:  CALL GBLINE
  ADD #320,R0
  CALL GBLINE
  ADD #320,R0
  CALL GBLINE
  ADD #520,R0
  SOB R2,8
;------  ПЕРЕКЛЮЧЕНИЕ ПАЛИТР 17 раз КАЖДЫЕ 14-ть  ТВ СТРОК
  MOV #177706,R5
  MOV #177777,(R5)+  ; Подготовка ТАЙМЕРА ПРОЦ-А
  MOV #TIME0,@#100  ; Подготовка ТАЙМЕРА 48.50Гц
  CLR R3
  MOV #177662,R4
  MOV R3,(R4)    ; ЗАПУСК ТАЙМЕРА 48.50Гц
  WAIT    ; по КСИ перезапускаем ТАЙМЕР ПРОЦ-А
9:  WAIT
10:  CMP (R5),R0
  BHI 10
12:  MOV R3,(R4)
  ADD #400,R3
  BIC #170377,R3
  SUB #34,R0  ; ЧИСЛО  ТИКОВ ТАЙМЕРА ДО СМЕНЫ ПАЛИТРЫ
  SOB R2,10
  CLR R3
  MOV R3,(R4)  ; ПЕРЕКЛЮЧИТЬ на 0-ую ПАЛИТРУ
  BR 9
  HALT
;
;------  ВЫВОД ЗЕЛЕНЫХ И  СИНИХ ПОЛОСОК
GBLINE:  MOV #14,R3
4:  MOV #GREEN0,R1
  CALL SSOPUT
  SUB #277,R0
  SOB R3,4
  MOV #14,R3
5:  MOV #GREEN0,R1
  CALL SSOPUT
  SUB #277,R0
  SOB R3,5
  MOV #14,R3
6:  MOV #BLUE0,R1
  CALL SSOPUT
  SUB #277,R0
  SOB R3,6
  MOV #14,R3
7:  MOV #BLUE0,R1
  CALL SSOPUT
  SUB #277,R0
  SOB R3,7
  RET
TIME0:  ; РЕСТАРТ ВНУТРЕННЕГО ТАЙМЕРА ПРОЦЕССОРА по КСИ
  MOV #21,R2   ; КОЛИЧЕСТВО ПЕРЕКЛЮЧЕНИЙ ПАЛИТР
  MOV #177712,R0   ; СДВИГ 1-го ПЕРЕКЛЮЧЕНИЯ от КСИ
  MOV #22,@#177712 ; ЗАПУСК ТАЙМЕРА ПРОЦЕССОРА НА СЧЕТ
  RTI
;------  ЗАЛИВКА  ЭКРАНА  ЧАСТЯМИ, ПО ТАЙМЕРУ 48.50Гц
TIME2:  MOV #TIME3,@#100  ; Куда пойдем на 3-ем КСИ
  MOV #177777,R1
1:  MOV R1,-(R0)
  SOB R3,1
  RTI
;------  КОНЕЦ ЗАЛИВКИ ЭКРАНА
TIME3:  MOV #177777,R1    ; #146314,R1
  MOV #TIME4,@#100  ; Куда пойдем на 4-ом КСИ
  RTI
TIME4:  MOV #177777,R1    ; #31463,R1
  MOV #TIME5,@#100
  RTI
TIME5:  MOV #177777,R1
  MOV #TIME6,@#100
  RTI
TIME6:  MOV #177777,R1
  MOV #TIME7,@#100
  RTI
;--------------------------------
TIME1:  MOV #TIME2,@#100  ; Куда пойдем на 2-ом КСИ
  MOV #SCRLEN,R3    ; Кол-во СЛОВ для вывода в R3
  MOV #SCREND,R0    ;
  RTI      ;
;--------------------------------
TIME7:  MOV #40000,R5    ; ЗАПРЕТ ПРЕРЫВАНИЙ
  MOV #177662,R4    ; от ТАЙМЕРА 48.50Гц
  MOV R5,(R4)    ; УСТАНОВКА 0-ой ПАЛИТРЫ
  MOV #177777,R1    ; Снова  заливать КРАСНЫМ цветом
  MOV R3,VRAMR3
VTIME0:  MOV #TIME7,@#100  ; Модифицирующийся код
VTPSW0:  MOV #340,@#102    ; восстановления векторов
  RTI      ; прерывания ТАЙМЕРА 48.50Гц
VRAMR3:  HALT    ; Осталось вывести СЛОВ  напоследок
COPYR0:  HALT
COPYR1:  HALT
COPYR2:  HALT
COPYR3:  HALT
COPYR4:  HALT
COPYR5:  HALT
COPYR6:  HALT
;------  БИБЛИОТЕКА SPRITE STREAM OBJECTS *.SSO ------
SSOPUT:  TSTB (R1)+
  BEQ SSOEND  ; Если ТРИАДА началась 0-ем НЕТ  ПОТОКА
  BLO SSOW  ; Если меньше 0  => ПОТОК СЛОВ, НЕ БАЙТ
SSOB:  ; ОБРАБОТКА ПОТОКА БАЙТ
  BICB (R1)+,(R0)  ; НАНЕСЛИ МАСКУ  НА "ФОН"
  BISB (R1)+,(R0)  ; ВЫВЕЛИ ПИКСЕЛИ "ПО МАСКЕ"
  MOVB (R1)+,R4  ; Очередной "SHIFT" в R4
  BIC #177400,R4  ; Обнулить СТАРШИЙ БАЙТ  R4
  TSTB R4
  BEQ SSOEND
  MOV #200,R5
  CMP R4,R5  ; R4-R5
  BLE SSOB1  ; Если R4 МЕНЬШЕ ИЛИ РАВЕН #200
  ADD R5,R0
  SUB R4,R0
  BR SSOB
SSOB1:  ADD R4,R0
  BR SSOB
SSOW:  ; ОБРАБОТКА ПОТОКА СЛОВ
SSOEND:  RET
¤
;   СТРУКТУРА ПОТОКА БАЙТов
SHIFT0:  .BYTE 1    ; 1 = БАЙТовый ПОТОК БЕЗ СМЕЩЕНИЯ по X
MASK00:  .BYTE 17  ; ....
BPIC00:  .BYTE 12  ; .G.G....
SHIFT1:  .BYTE 100  ; Y=Y+1  Вывести  РОВНО НА ТВ СТРОКУ НИЖЕ
MASK01:  .BYTE 17  ; ....
BPIC01:  .BYTE 12  ; .G.G....
SHIFT2:  .BYTE 100  ;
  .BYTE 360  ; ....
  .BYTE 120  ; ....B.B.
SHIFT3:  .BYTE 100  ;
  .BYTE 360  ; ....
  .BYTE 120  ; ....B.B.
SHIFT4:  .BYTE 300  ; Смещаем КУРСОР НА ОДНУ ТВ СТРОКУ ВЫШЕ
      ; 200<SHIFT<301  => R0=R0+200-300
      ; Y=Y-1, X=X+100+(200)-300=X+0
  .BYTE 0    ; НИЧЕГО НЕ ВЫВОДИМ, R0=R0+200-300
  .BYTE 0    ; МАСКУ  НА "ФОН" НЕ НАКЛАДЫВАЕМ
SHIFT5:  .BYTE 377  ; Y=Y-2, X=X+100+(300)-377=X+1
  .BYTE 0    ; SHIFT>300 => R0=R0+200-377
  .BYTE 0
SHIFT7:  .BYTE 0    ; 0 в ПОЛЕ типа  ШИФТ = КОНЕЦ ПОТОКА
  .EVEN    ; Выравнивание по словам после ТРИАД
GREEN0:  .ASCII <1><377><12>
  .ASCII <100><377><12>
  .ASCII <100><377><240>
  .ASCIZ <100><377><240>
  .EVEN
BLUE0:  .ASCII <1><377><5>
  .ASCII <100><377><5>
  .ASCII <100><377><120>
  .ASCIZ <100><377><120>
  .EVEN
GREEN1:  .ASCII <1><377><12>
  .ASCII <100><377><240>
  .ASCII <100><377><12>
  .ASCIZ <100><377><240>
BLUE1:  .ASCII <1><377><5><100><377><120>
  .ASCIZ <100><377><5><100><377><120>
.END