[pdp8.git] / sw / src / life / L.PA


/---------------------------------------------------------------------
/ 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
Commit	Line	Data
81e70d48 PH	1
	2	/---------------------------------------------------------------------
	3	/ CALCULATE INTEGER DIVISION AND MODULO AT ONCE
	4	/ RESULT IN LOCATIONS DIV AND MOD
	5	/ DIVIDENT IN AC
	6	MOD12, 0
	7	DCA MOD
	8	DCA DIV
	9
	10	TAD MOD
	11	TAD KN48
	12
	13	SMA
	14	SKP
	15	JMP IGN48
	16	DCA MOD
	17	ISZ DIV
	18	IGN48, CLA
	19	TAD DIV
	20	RAL
	21	DCA DIV
	22	TAD MOD
	23	TAD KN24
	24	SMA
	25	SKP
	26	JMP IGN24
	27	DCA MOD
	28	ISZ DIV
	29	IGN24, CLA
	30	TAD DIV
	31	RAL
	32	DCA DIV
	33	TAD MOD
	34	TAD KN12
	35	SMA
	36	SKP
	37	JMP IGN12
	38	DCA MOD
	39	ISZ DIV
	40	IGN12, CLA
	41	JMP I MOD12
	42
	43	KN48, -60
	44	KN24, -30
	45	KN12, -14
	46
	47
	48
	49	*1000
	50	DIV, 0 / INTEGER DIVISION RESULT
	51	MOD, 0 / INTIGER DIVISION'S REST
	52