Чего-то подобное? Тестировалось в Spectaculatore реалов нет. Кстати в разных эмулях у всех клонов различные длины int'а
На выходе в type
1 - оригинал
2 - пентагон
3 - скорпион
org #8000
di
ld hl,int
ld (#80ff),hl
ld a,#80
ld i,a
im 2
ld de,0
ei
halt
ld hl,int2
ld (#80ff),hl
inc de
jr $-1
int ei
ret
int2 pop hl
ld h,d
ld l,e
add hl,hl
add hl,hl
ld a,h
cp #3d ; orig
jr nz,n1
ld a,1
jr endd
n1 cp #3e ; pent
jr nz,n2
ld a,2
jr endd
n2 cp #3c ; scorp
jr nz,nomash
ld a,3
jr endd
nomash xor a
endd ld (type),a
im 0
ei
ret
type db 0
Если честно то програма какая-то "вата", вроде бы еще никто не придумал автоконфига для бордер эфекта