Основная информация Дата рождения: 9 Декабря 1975 Пол: Мужской Семейное положение: женат Контакты Город: Санкт-Петербург VK: id1510749 | Образование Место учёбы: СПбГЭТУ «ЛЭТИ» Факультет: Компьютерных технологий и информатики (ФКТИ, ФАВТ) Форма обучения: Очное отделение Статус: Доктор наук Год окончания: 1999 Школа №483 1983-1993 класс "г"специализация: ***************** |
Жизненная позиция Полит. предпочтения: умеренные Мировоззрение: православный язычник | Личные интересы Деятельность: ******************************** Интересы: ******************************** Любимые фильмы: ******************************** Любимые телешоу: ******************************** Любимые книги: ******************************** Любимые игры: ******************************** О себе: opred: ld ah,Y soso: st Y+,al opred_0: ldi Zl,low (opred_i) ldi Zh,high(opred_i) lsl dh lsl dh add Zl,dh ldi dl,0 adc Zh,dl cpi ah,0x04 brne opred_1 mov ah,bh ;color opred_1: ijmp opred_i: ldi dh,0xea ldi Zl,0xaa ldi Zh,0xae rjmp opred_3 ldi dh,0x4c ldi Zl,0x44 ldi Zh,0x4e rjmp opred_3 ldi dh,0xe2 ldi Zl,0xe8 ldi Zh,0x8e rjmp opred_3 ldi dh,0xe2 ldi Zl,0xe2 ldi Zh,0x2e rjmp opred_3 ldi dh,0xaa ldi Zl,0xe2 ldi Zh,0x22 rjmp opred_3 ldi dh,0xe8 ldi Zl,0xe2 ldi Zh,0x2e rjmp opred_3 ldi dh,0xe8 ldi Zl,0xea ldi Zh,0xae rjmp opred_3 ldi dh,0xe2 ldi Zl,0x22 ldi Zh,0x22 rjmp opred_3 ldi dh,0xea ldi Zl,0xea ldi Zh,0xae rjmp opred_3 ldi dh,0xea ldi Zl,0xe2 ldi Zh,0x2e rjmp opred_3 ldi dh,0x08 ldi Zl,0x24 ldi Zh,0x82 opred_3: ldi al,0 eor al,ah rcall write_data mov al,dh rcall opred_4 mov al,Zl rcall opred_4 mov al,Zh rcall opred_4 ldi al,0 eor al,ah rcall write_data ret opred_4: mov dl,al swap al andi al,15 eor al,ah rcall write_data ldi al,15 and al,dl eor al,ah rcall write_data ret Любимые цитаты: disp_:
push Yl
push Yh
push Zl
push Zh
in Zl,SREG
cli
lds ah,temp_dlinh
lds al,temp_dlinlh
lds eh,temp_dlinl
out SREG,Zl
clr el
lsr ah
ror al
ror eh
ror el
movw Zh:Zl,ah:al ;h ax,dx,ex,Y,Z
movw dh:dl,eh:el ;l
lsr Zh
ror Zl
ror dh
ror dl
lsr Zh
ror Zl
ror dh
ror dl
add el,dl
adc eh,dh
adc al,Zl
adc ah,Zh ;*80*2
;;;;;;;;;;;;;;;;;;;; ah:al:eh:el
lds dh,dlin_fileh ;dh:dl:Zh:Zl
lds dl,dlin_filelh
lds Zh,dlin_filel
clr Zl
ldi bh,8
ldi bl,0
;;;;;;;;;;;;;;
dal_r:
lsr dh
ror dl
ror Zh
ror Zl
lsl bl
sub el,Zl
sbc eh,Zh
sbc al,dl
sbc ah,dh
brsh dal_e
add el,Zl
adc eh,Zh
adc al,dl
adc ah,dh
dec bl
dal_e:
inc bl
dec bh ;bh=0
brne dal_r
;bl=temp=[2*80*temp_dlin/dlin_file]
;;;;;;;;;;;;;
mov al,bl
lsr al
ldi ah,5
rcall div_8 ;al=[temp/5] ah=]temp/5[
;;;;;;;;;;;;;;;;;
ldi dl,16
ldi dh,0xff
dal_o:
or al,al
breq vse_ff
st Y+,dh
dec dl
dec al
rjmp dal_o
;;;;;;;;;;;;;;;;;;
vse_ff:
ldi al,0b01100000
rcall write_code
ldi al,0b11100000
dal_op:
or ah,ah
breq dal_k
asr al
dec ah
rjmp dal_op
dal_k:
andi al,0b00111111
mov bh,al ;color
ccga_004:
rcall write_data
rcall write_data
rcall write_data
rcall write_data
rcall write_data
rcall write_data
rcall write_data
rcall write_data
ldi al,0x04
rjmp dal_kk
dal_l:
ldi al,0b00100000
dal_kk:
or dl,dl
breq vse_20
st Y+,al
dec dl
rjmp dal_l
;;;;;;;;;;;;;;;;;
vse_20:
mov al,bl ;bl =x*160
ldi ah,0
movw eh:el,ah:al
lsl el
rol eh
lsl el
rol eh
add al,el
adc ah,eh
lsr ah
ror al
lsr ah
ror al
lsr ah
ror al ;5/4 =100/80 al=%
;;;;;;;;;;;;;;;
ldi ah,10
rcall div_8
mov bl,ah ; x
ldi ah,10
rcall div_8
movw eh:el,ah:al ;x0 x00
;;;;;;;;;;;;;;;;
sbiw Yh:Yl,10
;;;;;;;;;;;;;;;
mov dh,al
ldi al,5
or dh,dh
breq pop2
;;;;;;;;;;;;;;;
ldi dh,1
rcall opred
ldi al,6
st Y+,al
rjmp pop5
;;;;;;;;;;;;;;;;
pop2:
adiw Yh:Yl,1
pop3:
mov dh,eh
ldi al,5
or el,eh
brne pop4
adiw Yh:Yl,1
rcall opred_0
rjmp pop5
pop4:
rcall opred
pop5:
mov dh,bl ;pp2
ldi al,6
rcall opred
ldi dh,10
ldi al,7
rcall opred
pop Zh
pop Zl
pop Yh
pop Yl
ret |