home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPPOP18C.ZIP / CURSOR.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-10-26  |  406 b   |  28 lines
  1. .MODEL TPASCAL
  2. LOCALS @@
  3.  
  4. .CODE
  5.  
  6. PUBLIC  cursor
  7.  
  8. Cursor  PROC  FAR state:WORD
  9.  
  10.          xor    ax,ax
  11.          mov    es,ax
  12.          mov    cx,word ptr es:[0460h]
  13.          mov    ax,state
  14.          or     al,al
  15.          jz     @@1
  16.          and    ch,0Fh
  17.          jmp    @@2
  18. @@1:
  19.          or     ch,20h
  20. @@2:
  21.          mov    ah,1
  22.          int    10h
  23.          ret
  24.  
  25. Cursor  ENDP
  26.  
  27. END
  28.