/---------------------------------------------------------------------
/ CALCULATE INTEGER DIVISION AND MODULO AT ONCE
/ RESULT IN LOCATIONS DIV AND MOD
/ DIVIDENT IN AC
MOD12,	0
	DCA	MOD
	DCA	DIV

	TAD	MOD
	TAD	KN48
	
	SMA		
	SKP
	JMP	IGN48	
	DCA	MOD
	ISZ	DIV
IGN48,	CLA
	TAD	DIV
	RAL
	DCA	DIV	
	TAD	MOD
	TAD	KN24
	SMA		
	SKP
	JMP	IGN24
	DCA	MOD
	ISZ	DIV
IGN24,	CLA
	TAD	DIV
	RAL
	DCA	DIV	
	TAD	MOD
	TAD	KN12
	SMA		
	SKP
	JMP	IGN12
	DCA	MOD
	ISZ	DIV
IGN12,	CLA
	JMP I	MOD12
			
KN48,	-60
KN24,	-30
KN12,	-14


	
	*1000
DIV,	0		/ INTEGER DIVISION RESULT
MOD,	0		/ INTIGER DIVISION'S REST