home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / cpm68k / msutils.lbr / T.SQ / T.S
Encoding:
Text File  |  1988-02-18  |  896 b   |  23 lines
  1. *#######################################################################
  2. *         Program T...Send a Formfeed to Printer Utility
  3. *
  4. *                         Dr. David C. Wilcox
  5. *                         DCW Industries, Inc.
  6. *                5354 Palm Drive, La Canada, CA  91011
  7. *                            818/790-3844
  8. *
  9. *                           August 1, 1985
  10. *#######################################################################
  11. boot    equ    00            *Warm Boot
  12. list    equ    05            *List Output
  13. ff    equ    12            *Ascii FF
  14. bdos    equ    02            *bdos entry point
  15. *#######################################################################
  16.     move.b    #ff,d1            *Send a Form feed
  17.     move.w    #list,d0        *to the printer
  18.     trap    #bdos
  19.     move.w    #boot,d0        *and return to CP/M 68k
  20.     trap    #bdos            *via a warm boot
  21. *#######################################################################
  22.     end
  23.