00100 ;GREET

00110 ;3/24/86-J. DUNMYER

00120 ;A ROUTINE TO HAVE COMPUTER ASK YOUR NAME

00130 ;AND THEN GREET YOU

00140 DISP	EQU	021BH

00150 LININP	EQU	05D9H

00160 CLS	EQU	01C9H

00170 

00180 

00190 ;

00200 ;

00210 ;START BODY OF CODE

00220 ;

00230          ORG       7000H	;START @ 7000H

00240 MAIN	CALL      CLS       ;

00250          LD        HL,MSG1   ;GET NAME PROMPT

00260          CALL      DISP      ;DISPLAY IT

00270          LD        HL,NAME   ;BUMP MEMORY POINTER

00280          LD        B,20H     ;NO OF SPACES FOR NAME

00290          CALL      LININP    ;GET NAME

00300          PUSH      HL        ;SAVE NAME LOCATION

00310          LD        HL,MSG2   ;GET GREETING LOCATION

00320          CALL      DISP      ;SEND IT

00330          POP       HL        ;GET NAME LOCATION BACK

00340          CALL      DISP      ;WRITE IT

00350 MSG1     DEFM      'WHAT IS YOUR NAME? '

00360          DEFB      0DH

00370 MSG2     DEFM      'HELLO '

00380          DEFB      0DH

00390 ;

00400 NAME     DEFS      20H

00410 ;

00420          END       MAIN
                                                                                                                                                                  