Altest1	  Start	        0
	  USING	        	:	Base Register in Use
	  LD-BR	        *	:	Use current memory address
	  EXTeRNAL	DQ
	  LD-AC	        =0	:	Clear AC
	  LD-IR	        =0	:	Clear IR
LoopStart READ-NUM	XX,IR	:	Read in pair of numbers XX,YY
	  Write-num	XX,IR
	  READ-NUM	YY,IR
	  Write-num	YY,IR
	  LD-AC	        YY,IR	:	Test is YY is zero
	  JMP-AC-EQ	YY_IS_ZERO
	  LD-AC           XX,IR
	  DIV-ac        YY,IR
	  ST-AC           res,IR	:	Store Result of Division
	  ADD-IR	        =1
	  sub-ir	        =4
	  Jmp-IR-EQ	Sum_It_Up	:	Through loop'
	  Jmp-IR-GT	Sum_It_Up	:	Should be unnecessary
	  add-ir          =4
	  Jmp	        LoopStart
Sum_It_Up LD-IR	=0
Sum_loop  ADD-AC	res,IR
	  ADD-IR	=1
	  sub-ir	=4
	  Jmp-IR-EQ	AllDone
	  Jmp-IR-GT	AllDone	:	Should be unnecessary
	  add-ir	=4
	  Jmp	        Sum_loop
AllDone	  St-AC	        RESULT
	  St-AC	        DQ
	  WRITE-STR	M1_1
	  WRITE-STR	M1_2	
	  WRITE-STR	M1_3	
	  WRITE-STR	M1_4	
	  WRITE-NUM	RESULT	
E1	  WRITE-STR	M2_1	
	  WRITE-STR	M2_2	
	  WRITE-STR	M2_3	
	  HALT	0	
YY_IS_ZERO WRITE-STR	ERR1_1	
	  WRITE-STR	ERR1_2	
	  WRITE-STR	ERR1_3	
	  WRITE-STR	M2_1	
          WRITE-STR	M2_2	
	  WRITE-STR	M2_3	
	  HALT	        2	
: CONSTANTS AND TEMPORARIES	
A1	ADR	        DQ	:ADDRESS OF DQ.
A2 	ADR	        XX	:ADDRESS of XX.
M1_1	WORD-CHR	''	:MESSAGE IS:		Q=
M1_2	WORD-CHR	''	
M1_3	WORD-CHR	''	
M1_4	WORD-CHR	'Q='	
M2_1	WORD-CHR	'END'	
M2_2	WORD-CHR	'PR'	
M2_3	WORD-CHR	'OG'	
ERR1_1	WORD-CHR	'DIV'	
ERR1_2	WORD-CHR	'by'	
ERR1_3	WORD-CHR	'0'	
res	word-num	4	
RESULT	word-num	0	
XX	word-num	4	
YY	word-num	4	
	END	:Altest.01