
        NAM     NUMREG
        
*       Version 1.0     (H-19-terminal version)
*       hjoel 1987-12-18


FLEX    EQU     $CD03


ESC     EQU     $1B
ASCII   EQU     $30
NUMLEN  EQU     11
EONUM   EQU     $0F
EXHIB   EQU     $80
KEEP    EQU     $C0

        ORG     $0300
        
USTACK  RMB     $20
USP     EQU     *
MEMS    RMB     110

PROMPT  FCC     $0A,$0D,ESC,/p* Hello Services, Inc.*/,ESC,/q  /
EXHTXT  FCC     /Memory #/,STRSTP
STOTXT  FCC     /Saving in memory #/,STRSTP





        NAM WRITCHAR
        
***     Writes one character to terminal.
*
*       Version 1.0
*       hjoel 1987-12-04
*
*       Entry:  ASCI