'===========================================================================
' Subject: MODE 13H SCROLL LEFT/RIGHT         Date: 07-16-97 (11:57)       
'  Author: The ABC Programmer                 Code: ASM                    
'  Origin: voxel@freenet.edmonton.ab.ca     Packet: ASMCODE.ABC
'===========================================================================
; mode 13h Smooth Scrolling Left/Right Pan Demo.
; Not as fast as using OUTs though
; CREDITS: Unknown Author(s)

 .MODEL MEDIUM, BASIC
 .CODE

PUBLIC ScrollLeft, ScrollRight

ScrollLeft PROC
        push ax
        push ds
        push es
        push cx
        push si
        push di
        mov ax,0a000h
        mov ds,ax
        mov ax,0a000h
        mov es,ax
        mov cx,0fffeh
        mov si,1
        mov di,0
        cld
        rep movsb
        pop di
        pop si
        pop cx
        pop es
        pop ds
        pop ax
        ret
ScrollLeft ENDP

ScrollRight PROC
        push ax
        push ds
        push es
        push cx
        push si
        push di
        mov ax,0a000h
        mov ds,ax
        mov ax,0a000h
        mov es,ax
        mov cx,0fffeh
        mov si,0fffch
        mov di,0fffeh
        std
        rep movsw
        pop di
        pop si
        pop cx
        pop es
        pop ds
        pop ax
        ret
ScrollRight ENDP

END