        name    ldacs
        extrn   _read:far
LDACS_TEXT      segment byte public 'CODE'
        public  _LoadDACs
        assume  cs:LDACS_TEXT
; Line 3
_LoadDACs       proc    far
        push    bp
        mov     bp,sp
        mov     ax,768
        push    ax
        push    word ptr [bp+0ah]
        push    word ptr [bp+08h]
        push    word ptr [bp+06h]
        call    far ptr _read
        mov     sp,bp
        cmp     ax,768
        je      @2
        mov     ax,-1
        jmp     short @1
; Line 7
@2:
        mov     ax,word ptr [bp+0ah]
        mov     es,ax
        mov     dx,word ptr [bp+08h]
        mov     ah,16
        mov     al,18
        xor     bx,bx
        mov     cx,256
        int     10h
        xor     ax,ax
@1:
; Line 16
        pop     bp
        ret     
_LoadDACs       endp
LDACS_TEXT      ends
        end


