TITLE C1520 CURSER ADDRESSING FOR THE DATAMEDIA ELITE 1520

T1=1
T2=2
J=16
P=17


	ENTRY CA1520,CR1520

CA1520:	MOVE	T1,@1(J)
	SOJ	T1,
	ADDI	T1,40
	IONEOU	[36]
	IONEOU	T1
	MOVE	T1,@(J)
	SOJ	T1,
	IONEOU	T1
	POPJ	P,

CR1520:	PUSH	P,T1
	PUSH	P,T2
	MOVE	T1,@(J)
	JUMPE	T1,CR152A
	MOVEI	T2,37
	SKIPG	T1
	MOVEI	T2,12
	MOVMS	T1
	IONEOU	T2
	SOJG	T1,.-1
CR152A:	MOVE	T1,@1(J)
	JUMPE	T1,CR152B
	MOVEI	T2,10
	SKIPG	T1
	MOVEI	T2,34
	MOVMS	T1
	IONEOU	T2
	SOJG	T1,.-1
CR152B:	POP	P,T2
	POP	P,T1
	POPJ	P,

	END