Со всеми этими событиями народ просто сошел с ума - полилось полное говно размером 256б и связанное с Укропией. Ответная мера : создание всем известной картинки. Больной на всю голову gargaj, объявивший близость демосцены к политики, удалил страничку, продемонстрировав лицемерие Гейропы. Ладно, утрем нос этим кодерам:
;Можем повторить
org 100h
use16
mov al,13h
int 10h
les di,[bx]
;push $A000
;pop es
mov di,65
; mov cx,190
; mov dx,320
; mov bl,20
call y
mov di,320*20+160+65
mov cl,30
mov dx,319-30
mov bl,159
call ylp
y:
mov cl,190
mov dx,320-190
mov bl,20
ylp:
; push di
push cx
mov al,15
rep stosb
pop cx
; pop di
add di,dx
dec bx
jne ylp
ret
org 100h
use16
mov al,13h
int 10h
les di,[bx]
;push $A000
;pop es
mov di,65
; mov cx,190
; mov dx,320
; mov bl,20
call y
mov di,320*20+160+65
mov cl,30
mov dx,319-30
mov bl,159
call ylp
y:
mov cl,190
mov dx,320-190
mov bl,20
ylp:
; push di
push cx
mov al,15
rep stosb
pop cx
; pop di
add di,dx
dec bx
jne ylp
ret
Дополнение: версия на ZX Spectrum:
device zxspectrum128
ORG #AF30
begin
;;ld b,175
;;ld bc,175*256+48
ld hl,$a0*256+20
call ylp
ld a,$0d;;,(dx),a
ld hl,25*256+136
ld c,135+48
call y;;ylp
;;ld b,20
ld bc,20*256+48
ld hl,$a0*256+20
xor a;;:ld(dx),a
; call ylp
; jr $
y: ld(dx),a
ylp:
push hl
push bc
xlp:
push hl
push bc
; ld a,c:add a,48:ld c,a
call 8933
pop bc
pop hl
inc c
dec h
jr nz,xlp
pop bc
pop hl
dec b ;y++
dx: nop ;x++
dec l
jr nz,ylp
ret
; CALL c,8933;plot C=X,B=Y,5C7D=COORDS
end
display /d,end-begin
savesna "!void.sna",begin
savebin "z44.code",begin,end-begin
Комментарии
Отправить комментарий