(50G) Digits sum (50g)

[gor1060]

My asm-version of programm:

"
::
CODE
C=DAT1 A
?C#0 A
GOYES INTGR?
LA 00201
*ERROR
GOVLNG =Errjmp
*INTGR?
CD1EX
A=DAT1 A
D1=C
R1=C A
LC 02614
?A=C A
GOYES MAIN
LA 00202
GOTO ERROR
*MAIN
SAVE
C=R1 A
D1=C
C=DAT1 A
D1=C
D1=D1+5
A=DAT1 A
LC 00006
?A=C A
GOYES ZERO
A=A-5 A
A=A-1 A
A=A-1 A
B=0 W
C=0 W
D1=D1+4
*Loop
D1=D1+1
C=DAT1 1
B=B+C W
A=A-1 A
GONC Loop
A=B W
GOTO Skip
*ZERO
A=0 W
*Skip
GOSBVL HXDCW
GOSBVL FLOAT
SETHEX
GOVLNG PUSH%LOOP
ENDCODE
SWAPDROP
FPTR2 ^R>Z
;
@"