;; RevLine
;; CS312 Summer
;; program 7.3
;; Adam Smyth

	INCLUDE	PCMAC.INC 

        .MODEL  SMALL

        .STACK  100h

        .DATA
SaveSP	DW	?
Msg1	DB	'Input: $'
Msg2	DB	'Reversed: $'

        .CODE
RevL    PROC
        mov     ax, @data
        mov     ds, ax
        
	mov	SaveSP, SP
	_putStr	Msg1
While1:
	_GetCh
	cmp	al, 13
	je	Out1
	push	ax
	jmp	While1
Out1:
	_PutCH	13, 10
	_PutStr	Msg2
While2:
	pop	ax
	_PutCh	al
	cmp	SP, SaveSP
	jne	While2

	_putCh	13, 10


        mov     al, 0   ; Return code of 0
        mov     ah, 4ch ;       Exit back to MS/PCDOS
        int     21h
RevL    ENDP

        END     RevL