Category : Assembly Language Source Code
Archive   : PDISK.ZIP
Filename : SCREEN.ASM

PAGE 64D,132D ; make line length 132
% .MODEL memmodel,C
; .286
.RADIX 16

.CODE
actpage db 0
scr_pos proc row:word, col:word
mov ax,row
mov dx,col
mov dh,al
mov bh,CS:[actpage]
mov ah,2
int 10
ret
scr_pos endp

scr_rpos proc
mov bh,CS:[actpage]
mov ah,3
push bp
int 10
pop bp
mov ax,dx
ret
scr_rpos endp

scr_sapage proc newpage:word
mov ax,newpage
mov CS:[actpage],al
mov ah,5
int 10
ret
scr_sapage endp

scr_gapage proc
mov ah,0f
push bp
int 10
pop bp
mov al,bh
mov CS:[actpage],al
cbw
ret
scr_gapage endp

scr_gmode proc
mov ah,0f
push bp
int 10
pop bp
cbw
ret
scr_gmode endp

scr_smode proc newmode:word
mov ax,newmode
mov ah,0
push bp
int 10
pop bp
ret
scr_smode endp

; void scr_scroll(ul_row, ul_col, lr_row, lr_col, num_rows, attrib);
scr_scroll proc ul_row, ul_col, lr_row, lr_col, num_rows, attrib
mov ax,ul_row
mov cx,ul_col
mov ch,al
mov ax,lr_row
mov dx,lr_col
mov dh,al
mov ax,num_rows
mov bx,attrib
mov bh,bl
mov ah,6
int 10
ret
scr_scroll endp

scr_gac proc
mov ah,8
mov bh,CS:[actpage]
push bp
int 10
pop bp
ret
scr_gac endp

END