home *** CD-ROM | disk | FTP | other *** search
- ;
- ; *****************************************************************************
- ; * C O N S O L E W I D T H ---- 9 6 C O L U M N S --- Z R T - 8 0 *
- ; *****************************************************************************
- ;
- ; If you wish to modify this program, substitute
- ; the codes for your terminal in label STR:
- ;
- ;
- ESC EQU 27 ; ESCape character
- ;
- ORG 100H ; Standard origin
- ;
- CONWIDTH:
- LD C,9 ; Load "Print String" function code
- LD DE,STR ; Load string to be executed
- CALL 5 ; Execute "Print String" code
- RET ; Return to ZCPRxx-CP/M
- ;
- STR: ; *** Command String ***
- DEFB ESC,'s','H' ; Screen --- 96 Columns
- DEFB '$' ; *** End of Print String ***
- ;
- END CONWIDTH ; Entry point