39d
TITLE GET_SCR.ASM
;External Procedures for scr_get and scr_put
;=================================================================

CSEG    SEGMENT PUBLIC
        ASSUME CS:CSEG

sbuf db 4000 dup(0)

PUBLIC  GETSCR,PUTSCR

getscr  PROC NEAR
 
        push ax
        push cx
	push es
	push ds

        mov ax,cs
        mov es,ax

	mov di,OFFSET sbuf

        mov ax,0B800h
        mov ds,ax
        mov si,0

	mov cx,4000
getlp:
	movsb
	loop getlp

	pop ds
	pop es
        pop cx
        pop ax
        ret

getscr  ENDP

putscr  PROC NEAR

        push ax
        push cx
	push es
	push ds

        mov ax,0b800h
        mov es,ax
        mov di,0

        mov ax,cs
	mov ds,ax
	mov si,OFFSET sbuf

	mov cx,4000
putlp:
	movsb
	loop putlp

	pop ds
	pop es
        pop cx
        pop ax
        ret

putscr  ENDP


CSEG    ENDS
        END
          
.

0