;COPYRIGHT 1984 BY ABComputing
;
;		     ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;		     ³ File Name: ÛÛ   bigdeal.asm  ÛÛ	³
;		     ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
;
;    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
;    ³									 ³
;    ³	 THIS ROUTINE RETURNS TO THE CALLER WHEN INVOKED.		 ³
;    ³									 ³
;    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
;
;------------------------------------------------------------------------
DATA	SEGMENT PARA


DATA	ENDS
;------------------------------------------------------------------------


;------------------------------------------------------------------------
STACK	SEGMENT PARA STACK 'STACK'

	DB    40H DUP('STCK')

STACK	ENDS
;------------------------------------------------------------------------


;------------------------------------------------------------------------
CODE	 SEGMENT PARA

ASSUME	 CS:CODE, DS:DATA, SS:STACK


;--STANDARD LINKAGE TO DOS

BIGDEAL  PROC  FAR	       ;DO
	 PUSH  DS	       ;
	 SUB   AX,AX	       ;
	 PUSH  AX	       ;	   NOT
	 MOV   AX,DATA	       ;
	 MOV   DS,AX	       ;		    ALTER!


;-- RETURN TO DOS

	 RET		       ;RETurn to DOS


BIGDEAL  ENDP		       ;END of Procedure
CODE	 ENDS		       ;END of Segment
;------------------------------------------------------------------------

	 END   BIGDEAL	       ;END of routine BIGDEAL
ourself  bored  with  the  monotony	of  the language - but
	  impressed with the power it affo