data_6e         equ     1660h
data_7e         equ     1740h

seg_a		segment	byte public
		assume	cs:seg_a, ds:seg_a

		org	100h

anna		proc	far

start:
                jmp     loc_4
data_3		dw	 0
symbol_1        db       36h
		db	 36h, 36h, 36h, 36h, 1Ah, 1Ah
		db	 1Ah, 2Ch, 2Ch, 2Ch, 36h, 36h
		db       36h, 36h
symbol_2        db       18h
		db	 38h, 30h, 30h, 30h, 38h, 18h
		db	 18h, 1Ch, 0Ch, 0Ch, 0Ch, 1Ch
		db	 18h, 18h

                db       'Copyright (c) by Angel'

                push ds
                push es
		push ax
		push dx
		push cx
		push di
		push si

		mov     dx,3c4h
		mov     al,2
		out     dx,al

		mov     dx,3c5h
		mov     al,4
		out     dx,al

		mov     dx,3c4h
		mov     al,4
		out     dx,al

		mov     dx,3c5h
		mov     al,4
		out     dx,al

		mov     dx,3CEh
		mov     al,6
		out     dx,al

		mov     dx,3cfh
		mov     al,0Ch
		out     dx,al

		mov     ax,0B800h
		mov     ds,ax
		mov     cx,20h
		xor     di,di
		inc     word ptr cs:data_3
		cmp     word ptr cs:data_3,0Fh
		jne     loc_1
		mov     word ptr cs:data_3,0

loc_1:
		mov     si,cs:data_3


locloop_2:
                mov     al,cs:symbol_1[si]
                mov     ds:data_7e[di],al
                mov     al,cs:symbol_2[si]
                mov     ds:data_6e[di],al
		inc	di
		inc	si
		cmp	si,0Fh
                jne     loc_3
		mov	si,0
loc_3:
                loop    locloop_2

		mov	dx,3CEh
		mov	al,6
                out     dx,al

		mov	dx,3CFh
		mov	al,0DEh
                out     dx,al

		mov	dx,3C4h
		mov	al,4
                out     dx,al

		mov	dx,3C5h
		mov	al,3
                out     dx,al

		mov	dx,3C4h
		mov	al,2
                out     dx,al

		mov	dx,3C5h
		mov	al,3
                out     dx,al

		pop	si
		pop	di
		pop	cx
		pop	dx
		pop	ax
		pop	es
		pop	ds

                iret
loc_4:
		push	ds
                xor     ax,ax
		mov	ds,ax
                cli
                mov     ax,139h
                mov     ds:70h,ax
                mov     ds:72h,cs
                sti
		pop	ds
                mov     dx,243h
                int     27h

anna		endp

seg_a		ends

  
  
		end	start