nedoPC.org

     ORG 0000H

CONST PORTOUT  0FFE0h
CONST PORTINP  0FFE1h

CONST TIMER_0  0FFE4h
CONST TIMER_1  0FFE5h
CONST TIMER_2  0FFE6h
CONST TIMERYC  0FFE7h

:START
     LXI  SP,1FFFH
     XRA  A
     STA  PORTOUT; таймер изначально выключен
     CALL INITMR
     LDA  PORTINP; читаем порт
     ORI  00000111B; установим биты упр.таймера
     STA  PORTOUT; выведем в порт
;     CALL GETBIN
:WAITKEY
     LDA 0C000H
     STA 0C000H
:WAITIT
     LDA  PORTINP
     ANI  80H
     JZ   WAITIT
:WAITUP
     LDA  PORTINP
     ANI  80H
     JNZ  WAITUP
     JMP  MAINLOOP
     SKIP 38H
:REST7
;     EI;  Restart_7 = 0038H
;     HLT
;     JMP  REST7
     JMP  0C000H; видео-ОЗУ
     SKIP 100H
:MAINLOOP
;     EI
:INIRGE
     MVI  E,00001000B
:GETBYTE
     LDA  PORTINP; читаем порт
     ANI  00000111B; выделяем биты упр.таймера
     ORA  E; установим бит пробега
     STA  PORTOUT; выведем в порт
     MOV  A,E
     ORA  A
     RLC
     JC   RSHIFT
     MOV  E,A

     LDA  PORTINP
     ANI  80H
     JNZ  WAITIT
;    LXI  B,01FFH
;    CALL DELAY
     JMP  GETBYTE

:RSHIFT
     MVI  E,80H
:SETBYTE
     LDA  PORTINP; читаем порт
     ANI  00000111B; выделяем биты упр.таймера
     ORA  E; установим бит пробега
     STA  PORTOUT; выведем в порт
     MOV  A,E
     RRC
     CPI  00000100B;
     JZ   INIRGE
     MOV  E,A

     LDA  PORTINP
     ANI  80H
     JNZ  WAITKEY
;    LXI  B,01FFH
;    CALL DELAY
     JMP  SETBYTE

:DELAY
     DCX  B
     MOV  A,B
     ORA  C
     JNZ  DELAY
     RET

:INITMR
     LXI  H,TIMERYC;HL -> РУС таймера
     MVI  M,34H;   00_11_010_0 - УС  К.0
     MVI  M,74H;   01_11_010_0 - УС  К.1
     MVI  M,0B6H;  10_11_000_0 - УС  К.2 (не используем пока)
     EI
;-----------------------------
     DCX  H;       укажем на Канал 2: - 440 Гц
     MVI  M,0C1H;  Делитель К.2:
     MVI  M,11H;   = 4545 = 11C1H
;-----------------------------
     DCX  H;       укажем на Канал 1:
     MVI  M,1FH;  Делитель К.1:
     MVI  M,00H;   31 = 001FH кадровая быстрее в 10 раз
;-----------------------------
     DCX  H;       укажем на Канал 0 - 15625 Гц
     MVI  M,0A0H;   Делитель К.0:
     MVI  M,00H;   = 160 = 00A0H
     RET

:GETBIN
     LXI  H,0C000H; начало экрана
     LXI  D,0010H; смещение к след.строке
     LXI  B,20FFH; размер файла
:GET0
     LDA  0FFF0H; читаем байт из файла
     MOV  M,A; помещаем в видео-ОЗУ
     INX  H; и так весь файл...
     DCR  B
     JNZ  GET0
     MVI  B,20H
     DAD  D
     DCR  C
     JNZ  GET0
     LDA  0FFEFH; REWIND - указатель на начало файла
     RET

     END

;    Видео-ОЗУ сформатировано так:

       ORG 0C000H
:M000
       DR  20h, 00h ; 32 байта - видео-стока
       JMP T001; 10 clock (3) обратный ход по строке
       ;DB  00H,00H; NOP (4)---1
:T001
       DB  00H,00H,00H; NOP(4),NOP(4),NOP(4)
       JMP M001; 10 clock ... 22
       DR  07h, 00h ; не используется
:M001
       DR  20h, 00h
       JMP T002; 10 clock (3)
       ;DB  00H,00H; NOP (4)---1
:T002
       DB  00H,00H,00H; NOP(4),NOP(4),NOP(4)
       JMP M002; 10 clock ... 22
       DR  07h, 00h
:M002
       DR  20h, 00h
       JMP T003; 10 clock (3)
       ;DB  00H,00H; NOP (4)---1
:T003
       DB  00H,00H,00H; NOP(4),NOP(4),NOP(4)
       JMP M003; 10 clock ... 22
       DR  07h, 00h
:M003

; и т.д.

:M255
       DR  20h, 00h
       JMP T256; 10 clock (3)
       ;DB  00H,00H; NOP (4)---1
:T256
       DB  00H,00H; NOP(4),NOP(4)
       EI ; разрешим прерывания
       JMP M256; переход ЗА видео-ОЗУ 10 clock ... 22
       DR  07h, 00h
:M256
;---0F000H
       RET ; ADDR 0F000H - возврат из прерывания по кадру.