Спустя 20 лет, она таки написана
Встречайте, PALTST13.bin -- выводит на экран одновременно 16 блоков (полос) с разными палитрами, от 0-ой до 15-ой...
Запускать лучше из под ANDOS или MKDOS (важно, чтобы ВидеоОЗУ проецировалось на адреса 40000..77777)
Адрес запуска = 1000 (8).
 | | |
|
Комментарий к файлу: Результат работы в эмуляторе GID prod. v3.7  PALTST13ss.png [ 4.34 KiB | Просмотров: 22557 ] | |
| | |
| | |
|
Комментарий к файлу: Версия для запуска в эмуляторе GID prod. v3.7 
PALTST13.bin.zip [439 байт]
Скачиваний: 1216 | |
| | |
| | |
|
Комментарий к файлу: Версия для запуска на реальной БК0011М с частотой процессора 4МГц
PALTST13.zip [434 байт]
Скачиваний: 1183 | |
| | |
Исходный код:
Код:
Выделить всё
·
Развернуть
;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
