home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / vlat.mac < prev    next >
Encoding:
Text File  |  1984-12-19  |  582 b   |  34 lines
  1. ;
  2. ; VLIB Module Name:  VLAT
  3. ; Author:  Richard Conn
  4. ; VLIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    AT
  8. ; Module External References:
  9. ;    GOTOXY
  10. ;
  11.     ext    gotoxy
  12.  
  13. ;
  14. ; Position Cursor at Location Specified by Return Address
  15. ; Usage:
  16. ;    call    at
  17. ;    db    row,col    ;location
  18. ;
  19. at::
  20.     xthl        ;pt to address
  21.     push    d    ;save DE
  22.     mov    d,m    ;get row
  23.     inx    h
  24.     mov    e,m
  25.     inx    h    ;HL pts to return byte
  26.     xchg        ;DE pts to return byte, HL contains screen loc
  27.     call    gotoxy    ;position cursor
  28.     xchg        ;HL pts to return byte
  29.     pop    d    ;restore registers
  30.     xthl        ;restore stack ptr
  31.     ret
  32.  
  33.     end
  34.