.TITLE	TALE
	.IDENT	/18FEB0/
;
;
	IF(R0.GT.R1) MOV	R0,R1	;COMMENT
;
	IF(R0.GT.R2)
	MOV	R0,R1
1$:	CLR	R0
	FIN
;
	UNLESS(R2.EQ.R3)CMP	R4,R5	;COMMENT
;
	UNLESS(R4.LE.R1)
	MOV	R0,(SP)+
2$:	CLR	R5		;COMMENT
	FIN			;FIN COMMENT
;
	WHEN(R0.GT.R1)CLR R0
	ELSE	CLR	R1	;ELSE COMMENT
;
	WHEN(R0.GT.R1)
112$:	MOV	R0,#E
	CLR	R2
	FIN
	ELSE
	MOV	R1,R0
3$:	CLR	R1
	FIN
;
	CARRY-OUT-ACTION-1
;
	CONDITIONAL
	(R0.LT.R1)CLR	R5
	(R0.GT.R1)CLR	R4
	(OTHERWISE) CLR R1
	FIN
;
	CONDITIONAL
	(R0.LT.R1)
4$:	CLR	R0
	CALL HI
	FIN
	(R1.GT.R0) CLR	R1
	(OTHERWISE)
5$:	CLR	R3
	CALL	THE
	FIN
	FIN
;
	SELECT	(R0)
	(R1)CLR R1
	(R2)CLR R2
	(OTHERWISE)CALL YOU
	FIN
;
	SELECT(R2)
	(R0)
6$:	CLR R0
	CALL ALL
	FIN
	(R1) CLR R2
	(OTHERWISE)
	MOV	R1,R1
7$:	CALL ME
	FIN
	FIN
;
	CARRY-OUT-ACTION-2
;
;	DO (R0=R1,R2) MOV	(R3)+,(R4)+	;NOT SUPPORTED
;
;	DO (R1=R3,R4)				;NOT SUPPORTED
;8$:	MOV	R1,R2
;	CLR	R5
;	FIN
;
	REPEAT UNTIL ((R0).GT.R1) MOV	(R0)+,(R2)+
;
	REPEAT UNTIL((R3).GT.R4)
9$:	MOV	(R3)+,(R5)+
	CALL IT
	FIN
;
	REPEAT WHILE(R5) CALL THEM
;
	REPEAT WHILE (R1.NE.R2)
	CALL 1
10$:	$EXIT
	FIN
;
	UNTIL(R1.LT.A)DEC R1
;
	UNTIL(F)
11$:	BIT	R0,R1
	CMP	R3,R4
	FIN
;
	WHILE(G) ADD	R0,R1
;
	WHILE(A.LEU.B)
	CMP	R0,A
	BEQ	14$
12$:	INC	A
14$:
	FIN
	RTS PC
;
;
	TO CARRY-OUT-ACTION-1
	CARRY-OUT-ACTION-2
	MOV	R0,R1
15$:
	FIN
;
	TO CARRY-OUT-ACTION-2
16$:	JSR	PC,JUNK
17$:	MOV	R0,(SP)+
	FIN
;
	.END