home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / clrhom.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  725 b   |  26 lines
  1. ;***********************************************************
  2.  
  3. *                    CLRHOM
  4.  
  5. ;***********************************************************
  6.  
  7.                    NAME CLRHOM
  8.                    entry clrhom
  9.                    ext mesij
  10.  
  11. ;FUNCTION: Clears the screen and homes the cursor.
  12. ;CALLS: MESIJ
  13.  
  14. clrhom:            push x
  15.                    lxi x,clear
  16.                    call MESIJ
  17.                    pop x
  18.                    ret
  19. clear:             db 1Ah,1Eh,24h ;1A=ASCII for clear screen
  20.                                   ;1E   "    "  home cursor
  21.                                   ;24   "    "  end/MESIJ.
  22.  
  23.                    END CLRHOM
  24.  
  25. ;****************************************************************
  26.