home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASM / LBLCS.ZIP / CRT_GETC.ASM < prev    next >
Encoding:
Assembly Source File  |  1980-01-01  |  944 b   |  57 lines
  1.  
  2. ;-----------------------------------------------------------------------
  3. ;
  4. ; name        crt_getca -- get character and attribute
  5. ;
  6. ; synopsis    VOID    crt_getca(page)
  7. ;            int    page;
  8. ;  
  9. ; description    Reads character and attribute under cursor on
  10. ;        video page number "page". On return, character
  11. ;        in low byte ( ch = crt_getca(0) & 255), and 
  12. ;        attribute is in high byte ( atr = crt_getca(0) >> 8).
  13. ; 
  14. ; notes        use crt_gotoxy to position cursor to desired row, 
  15. ;        col, and page. 
  16. ;
  17. ;----------------------------------------------------------------------
  18.  
  19.  
  20.     include    dos.mac
  21.  
  22. video    equ    10h        ; video interrupt number
  23.  
  24.  
  25.     IF    LPROG
  26. X    EQU    6        ;OFFSET OF ARGUMENTS
  27.     ELSE
  28. X    EQU    4        ;OFFSET OF ARGUMENTS
  29.     ENDIF
  30.  
  31.     PSEG
  32.  
  33.  
  34.     PUBLIC    crt_getca
  35.  
  36.     IF    LPROG
  37. crt_getca    PROC    FAR
  38.     ELSE
  39. crt_getca    PROC    NEAR
  40.     ENDIF
  41.  
  42.  
  43.     push    bp
  44.     mov    bp,sp
  45.     mov    bh,[bp+x]    
  46.     mov    ah,8
  47.     int    video
  48.     pop    bp
  49.     ret
  50.  
  51. crt_getca    endp
  52.  
  53.  
  54.     ENDPS    
  55.     END
  56.  
  57.