home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / uploads / terminal.lbr / CUNDER.Z80 < prev    next >
Encoding:
Text File  |  1993-06-07  |  896 b   |  28 lines
  1. ;
  2. ; *****************************************************************************
  3. ; *  N O N - F L A S H I N G  U N D E R L I N E  C U R S O R  -- Z R T - 8 0  *
  4. ; *****************************************************************************
  5. ;
  6. ; If you wish to modify this program, substitute
  7. ; the codes for your terminal in label STR:
  8. ;
  9. ;
  10. ESC    EQU    27        ; ESCape character
  11. ;
  12.     ORG    100H        ; Standard origin
  13. ;
  14. UNDER:
  15.     LD    C,9        ; Load "Print String" function code
  16.     LD    DE,STR        ; Load string to be executed
  17.     CALL    5        ; Execute "Print String" code
  18.      RET            ; Return to ZCPRxx-CP/M
  19. ;
  20. STR:                ; *** Command String ***
  21.     DEFB    ESC,'y','5'    ; Enable cursor
  22.     DEFB    ESC,'y','0'    ; Blinking cursor
  23.     DEFB    ESC,'y','4'    ; Underscore
  24.     DEFB    ESC,'q'        ; Amber on Black screen
  25.     DEFB    '$'        ; *** End of Print String ***
  26. ;
  27.     END    UNDER        ; Entry point
  28.