home *** CD-ROM | disk | FTP | other *** search
- 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
-