home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / sysutl / 1kutils3.lbr / PEEPINST.ASM < prev    next >
Assembly Source File  |  1987-11-15  |  2KB  |  74 lines
  1. ;                 PEEP 1.2
  2. ;            SCREEN INSTALLATION OVERLAY
  3. ; Instructions:
  4. ;    1.  Have your video protocol handy.
  5. ;    2.  Enter changes.
  6. ;    3.  Assemble to .hex file.   i.e. >ASM PEEPINST
  7. ;    4.  Overlay PEEP         i.e. >MLOAD PEEP.COM,PEEPINST
  8. ;
  9. ; The overlay for PEEP12 is not compatible with previous versions.
  10. ; To enter changes:
  11. ;    - If you need fewer bytes than are available, fill in the remainder
  12. ;      with 0's.
  13. ;    - If you need exactly the number of bytes available, the last byte
  14. ;      must have the high bit set.  Add 80h to it.  (See below.)
  15. ;    - If you need more bytes, sorry, it won't work.  Modify the source code.
  16. ;
  17. ; As distributed, PEEP works on most terminals e.g. Televideo, Wyse, Ampex.
  18. ;    Kaypro II requires one change indicated below.
  19.  
  20. true    equ    -1
  21. false    equ    0
  22. esc    equ    1bh
  23. tab    equ    9
  24. cr    equ    0dh
  25.  
  26. ; To install a printer initialization in PEEP12L, set following equate to TRUE.
  27. ; If installing PEEP12, set it to FALSE.
  28.  
  29. lstok    equ    true
  30.  
  31. ; Clear to end of line.  There are 2 bytes available.
  32.     org    10bh
  33.     db    esc,'T'+80h    ; Last byte must be high bit set
  34. ;    db    18h,0        ; Kaypro II sequence
  35.  
  36. ; Home cursor without screen clear - 2 bytes.
  37.     org    111h
  38.     db    1eh,0
  39.  
  40. ; Insert line - 2 bytes
  41.     org    11ah
  42.     db    esc,'E'+80h
  43.  
  44. ; Move cursor to row 23, column 0.  Up to 7 bytes.
  45.     org    121h
  46.     db    esc,'=',37h,20h,0,0,0
  47.  
  48. ; Clear screen, home cursor - 2 bytes.
  49.     org    12dh
  50.     db    1ah,0
  51.  
  52. ; Dim video on.  This sequence cannot take up space on the screen. It may
  53. ;   be blank.
  54.     org    133h
  55.     db    0,0,0
  56. ;    db    esc,')',0    ; default
  57.  
  58. ; Dim video off.
  59.     org    13ah
  60.     db    0,0,0
  61. ;    db    esc,'(',0    ; default
  62.  
  63. ; Slow scan functions.  Smaller number goes faster.  Don't use 0!
  64.     org    13fh
  65.     dw    3000h
  66.  
  67.      if    lstok
  68. ; Printer initializaton string
  69. ; First byte is char count.  Maximum is 16
  70.     org    147h
  71.     db    1
  72.     db    cr
  73.      endif    ;lstok
  74. ; END