MAIN	START
BEGIN	LAD	GR1,765
	CALL	DIV10
    ADDA	GR3,Z
    ST	GR3,A
    LAD	GR1,A
    LAD	GR2,1
    SVC	2
    LAD GR1,=#A
    SVC 2
	RET
Z	DC	'0'
A	DS	1
    END