;  boop.asm   AT ONLY !!!
;
;                                                Compiled with TASM 3.1
;
.model   small
.stack   200h
.data


.code
               ; put public and extrn declarations here
boop         proc

             in           al,61h
             push         ax
             mov          bx,6818
             call         warbcom
             mov          cx,3h
             mov          dx,0d04h
             mov          ah,86h
             int          15h
             pop          ax
             out          61h,al
             mov          ax,4c00h
             int          21h

boop         endp

warbcom      proc

             mov          al,10110110b
             out          43h,al
             mov          ax,bx
             out          42h,al
             mov          al,ah
             out          42h,al
             in           al,61h
             or           al,00000011b
             out          61h,al
             ret

warbcom      endp
end          boop