Еще одна поделка, сделанная от нечего делать. Чудом код втиснулся в 128байт. Как видно из скриншота, найдете на pouet.net
Обновление, 13-07-2020. Serzhsoft выложил свою версию. Гений!
org #60ba
ld bc,#c000
ld de,#BF80
xor a
calcpa:
push bc
add a,c
or #f8
ld c,a
srl b
jr z,exbt
push de
push bc
lxy:
push bc
ld c,e
ld a,d
call #22b0
ld b,a
ld a,#80
rrca
djnz $-1
or (hl)
ld (hl),a
pop bc
ld h,dx/25 6
ld l,c
ld a,(hl)
add a,e
ld e,a
dec l
dec l
set 3,l
ld a,(hl)
add a,d
ld d,a
djnz lxy
pop bc
ld a,#ff
call calcpa
ld a,#01
call calcpa
pop de
exbt:
pop bc
ret
;#xxF8:
dx:
db #00,#0 1,#01,#01,#00,#ff,#ff,#ff
Комментарии
Отправить комментарий