; 13:54 24-08-2012 An origin of the species:
; I've found source on the ZX named 'Border', so have no idea where algo has been disassembled
; hope you like it. no fucking improvements, lovely colors.you have a toy.goblinish
org 100h
use16
 edgec =078h

mov al,13h
int 10h

mov bh,070h
mov ds,bx
mov bh,0A0h
mov es,bx

;----setpal
pallp:
 mov dx,03c8h
 mov al,bl
 out dx,al
 inc dx
 mov ah,bl
 mov cl,3
 rcr ah,cl
plp0:
 xor al,al
 rcr ah,1
 jnc pbra1
 mov al, 03fh
pbra1:
 out dx,al
 loop plp0
 inc bl
 jnz pallp
;

       mov ah,016h;mov ax,1600h
       mov [bp+2],ax;mov word [LA4A2],ax
       ;in al,40h
       mov [bp],ah
       mov [bp+4],ax;word [LA4A4],ax
M0:
    mov dh,edgec
	mov dl,[bp+3]
	CALL LA53A
	add al,4
	jnc LA573
	CALL LA53A
	and al,3
	mov dl,8
	jz LA573
	mov dl,28h
	dec al
	jz LA573
	mov dl,18h
	dec al
	jz LA573
	mov dl,dh;edgec
LA573:
	mov [bp+3],dl
	mov al,[bp+4]

	and al,8
	jnz LA585
	mov al,[bp+4]
	and al,3
	jnz LA598
LA585:
	CALL LA53A
	movzx bx,al
;;    mov bh,al
	CALL LA53A

	and al,07fh;???
;;      mov bl,al
	xor ah,ah
	push dx;1
	xor dx,dx;1
	imul ax,320
	pop dx;1
	add bx,ax
	mov al,[ds:bx]
	add al,dl
	xor al,[ds:bx]
	and al,dh;edgec;038h

	xor al,[ds:bx]
	mov [ds:bx],al
LA598:
	CALL LA53A
	and al,0feh
	mov al,[bp+4]
	jnz LA5A4
	xor al,8
LA5A4:
       inc al
       and al,0Bh
       mov [bp+4],al
LA506:
	xor si,si
	xor di,di
	mov cx,320*200
LA510:
	mov al,[ds:si]
	add al,dl
	and al,dh;edgec;038h
	cmp al,[es:di+1]
	jz @store
	cmp al,[es:di+320]
	jz @store
	cmp al,[es:di-320]
	jz @store
	cmp al,[es:di-1]
	jnz LA52C
@store:
    mov [ds:si],al

LA52C:
	inc si
	inc di
	cmp di,cx;0fa00h
	jnz LA510
;copy
 std
 rep movsb
;-------------------------------------
 in al,60h
 dec al
 jne M0
 int 20h
;       jp M0

LA53A:
	mov cl,[bp]
	mov al,[bp+1]
	mov [bp],al
	add al,cl
	mov cl,al
	mov al,[bp+2]
	mov [bp+1],al
;        ADD A,C:RRCA
	add al,cl
	;rcr al,1
	mov [bp+2],al
	RET