# Sample Program
R: 	EQU 10
ONE:	EQU 00
CLEAN:	EQU 40
MAIN:	PROC
	# Read F
	INP F
	# C=(A+B)*10
	CLA A
	ADD B
	SFT R
   	STO C 
   	JMP PRINT # Print A,B,C,F
	
	# C = A*F
	CLA C
	SFT CLEAN # Accumulator has zero
	STO C  # Store 0 in C
LOOP:	CLA F  # Use F as a counter
	SUB ONE 
	STO F # F = F - 1
	TAC DONE  # If F = 0 jump to DONE
	CLA C     # else C = C + A
	ADD A
	STO C     
	JMP LOOP  # Repeat 
DONE:	JMP PRINT 
	# Now IF C < B stop jump to error routine
	# C = C - B
	CLA C
	SUB B
	TAC ERROR # if C-B is negative then error
	STO C
	JMP PRINT
END:	ENDP
A: 	CEL +20 
B: 	CEL 30
C: 	CEL 00    
F:	CEL 00
# Examples of a subroutines using PROC
PRINT:	PROC
	OUT A
	OUT B
	OUT C
	OUT F
	ENDP
ERROR:	PROC # On error print C and stop executing
	OUT C
	HRS ONE
	ENDP