home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG024.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-06-29  |  1.3 KB  |  33 lines
  1.  
  2. ;************************************************************************
  3. ; Get current size of the cursor from the BIOS data area                *
  4. ; Entry: Start - Pointer to where to save the starting value            *
  5. ;        Stop  - Pointer to where to save the ending value              *
  6. ; Exit:  Values at the pointers are set to proper values                *
  7. ;************************************************************************
  8.  
  9. Start   EQU     [BP+4]
  10. Stop    EQU     [BP+6]
  11.  
  12.         PUBLIC  _Get_Cursor_Size
  13.  
  14. _Get_Cursor_Size PROC NEAR
  15.         PUSH    BP
  16.         MOV     BP,SP
  17.         PUSH    SI                      ;Preserve SI
  18.         PUSH    ES                      ;Preserve ES
  19.         XOR     AX,AX                   ;Set ES to segment zero
  20.         MOV     ES,AX
  21.         MOV     BX,ES:[BIOS_Curs_Mode]  ;Fetch cursor size
  22.         MOV     SI,Start                ;Fetch pointer to save
  23.         MOV     AL,BH                   ;Fetch start value
  24.         MOV     [SI],AX                 ;Save starting value
  25.         MOV     SI,Stop                 ;Fetch pointer to save
  26.         MOV     AL,BL                   ;Fetch stop value
  27.         MOV     [SI],AX                 ;Save ending value
  28.         POP     ES                      ;Restore segment registers
  29.         POP     SI
  30.         POP     BP
  31.         RET
  32. _Get_Cursor_Size ENDP
  33.