home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / msutils.lbr / CLS.SQ / CLS.S
Encoding:
Text File  |  1988-02-18  |  1.4 KB  |  28 lines
  1.  
  2. *#######################################################################
  3. *                Program CLS...Clear screen Utility
  4. *          Confirured for an enhanced VT-52 type console.
  5. *
  6. *                         Dr. David C. Wilcox
  7. *                         DCW Industries, Inc.
  8. *                5354 Palm Drive, La Canada, CA  91011
  9. *                            818/790-3844
  10. *
  11. *                           August 1, 1985
  12. *#######################################################################
  13. boot    equ     00                  *Warm boot
  14. print   equ     09                  *Print string
  15. esc     equ     27                  *ASCII esc
  16. bdos    equ     02                   *BDOS entry point
  17. *#######################################################################
  18. *                    *Send message to console to:
  19.     move.l  #msg,d1                 *(a) Exit Graphics Mode...esc G
  20.         move.w  #print,d0               *(b) Exit Reverse Video...esc q
  21.         trap    #bdos                   *(c) Clear Screen/Home....esc E
  22.         move.w  #boot,d0                *(d) Enable cursor........esc e
  23.         trap    #bdos                   *and return to CP/M 68k
  24. *#######################################################################
  25. msg     dc.b    esc,'G',esc,'q',esc,'E',esc,'e','$'
  26. *#######################################################################
  27.         end
  28.