
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; DATA
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
d2counter       db      0

d2palxtbl       label   byte
temp=0
rept 64
                db      temp+80h
temp=temp+1
endm
rept 64
temp=temp-1
                db      temp+80h
endm

;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
; CODE
;±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
p20:                                    ; crossing lines, fill whole screen
        mov ebp,_bufptr
        mov esi,256
        movzx edx,d2counter
        mov bl,d2palxtbl[edx]
        mov bh,bl
        shrd eax,ebx,16
        mov ax,bx
        lea edi,[ebp+edx*2]
        call p20r0
        xor ebx,ebx
        mov bh,dl
        lea edi,[ebp+ebx*2]
        mov ecx,64
        rep stosd
        xor bh,7fh
        lea edi,[ebp+ebx*2+256]
        mov cl,64
        rep stosd
        xor dl,7fh
        lea edi,[ebp+edx*2+1]
        call p20r0
        xor dl,7fh
        inc dl
        and dl,7fh
        mov d2counter,dl
        jz setnext
        ret
;-----------------------------------------------------------------------------
p20r0:
        mov cl,8
p20r0l0:
rept 20h
        mov [edi],al
        add edi,esi
endm
        dec cl
        jnz p20r0l0
        ret

