;       Static Name Aliases
;
        TITLE   cursor
;       NAME    cursor.C

        .287
_TEXT   SEGMENT  BYTE PUBLIC 'CODE'
_TEXT   ENDS
_DATA   SEGMENT  WORD PUBLIC 'DATA'
_DATA   ENDS
CONST   SEGMENT  WORD PUBLIC 'CONST'
CONST   ENDS
_BSS    SEGMENT  WORD PUBLIC 'BSS'
_BSS    ENDS
DGROUP  GROUP   CONST,  _BSS,   _DATA
        ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
_TEXT      SEGMENT

        PUBLIC  _cursor
_cursor PROC NEAR
        push    bp
        mov     bp,sp

        mov     ax,[bp+4]
        cmp     ax,0                    ;mode
        jne     $I48

        mov     cx,2000h   ;mode

        jmp     SHORT $I52
$I48:

        mov     ah,15
        int     10h
        cmp     al,7
        jne     $I51

        mov     cx,0c0dh   ;mode

        jmp     SHORT $I52
$I51:

        mov     cx,0607h
$I52:

        mov     ah,1
        int     10h
        mov     sp,bp
        pop     bp
        ret

_cursor ENDP
_TEXT   ENDS
END
