1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;
page 60,132
;
title CP/DOS VioSetCurPos mapper
;
vioxxx segment byte public 'vio'
assume cs:vioxxx,ds:nothing,es:nothing,ss:nothing
;
; ************************************************************************* *
; *
; * MODULE: viosetcurpos
; *
; * FILE NAME: scurpos.asm
; *
; * CALLING SEQUENCE:
; *
; * push word row value
; * push word column value
; * push word vio handle
; * call viosetcurpos
; *
; *
; * MODULES CALLED: BIOS Int 10h
; *
; *************************************************************************
public viosetcurpos
.sall
.xlist
include macros.inc
.list
error_bvs_parameter equ 0002h
str struc
old_bp dw ?
return dd ?
handle dw ? ; vio handle
column dw ? ; column value
row dw ? ; row value
str ends
viosetcurpos proc far
Enter viosetcurpos ; push registers
mov bh,0
mov ax,[bp].row ; get column number
cmp al,25 ; compare with maximum size allowed
jg error ; branch if illegal size
mov dh,al ; load row in dh
mov ax,[bp].column ; get column number
cmp al,80 ; check for upper boundry
jg error ; branch if illegal size
mov dl,al ; load column in dl
mov ah,02 ; set BIOS function code
pushal ; Save registers in case int 10h
; messes them up
int 10h ; set cursor position
popal
sub ax,ax ; set good return code
jmp exit ; return
error: mov ax,error_bvs_parameter ; set error return code
exit: Mexit ; pop registers
ret size str - 6 ; return
viosetcurpos endp
vioxxx ends
end
|
