1 files changed, 72 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/SCURPOS.ASM b/v4.0/src/MAPPER/SCURPOS.ASM
new file mode 100644
index 0000000..e7af7a6
--- /dev/null
+++ b/v4.0/src/MAPPER/SCURPOS.ASM
@@ -0,0 +1,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