; Code segment:
        ORG    0o       ; Set Program Counter to address 0
START:  LDA    I
        MOV    B,A      ; RegB => I (1..N)
        LDA    STEP
        MOV    C,A      ; RegC => STEP (always 1)
        LDA    SUM
        MOV    D,A      ; RegD => SUM (result)
LOOP:     MOV    A,D      ; Move value to Accumulator from Register D (SUM)
          ADD    B        ; Add value in Register B to value in Accumulator
          MOV    D,A      ; Save result back to D     I
          MOV    A,B      ; Mov B to A and decrement it
          SUB    C
          JZ     PEND     ; If A is zero, the calculation is complete
          MOV    B,A      ; If not, continue
          JMP    LOOP
PEND:   MOV A,D         ; Save result in SUM value
        STA SUM
PWAIT:  JMP PWAIT       ; Nothing to do, infinite loop
; Data segment:
        ORG    200o     ; Set Program Counter to address 200
I:      DB     5o       ; Data Byte at address 200 = 5
STEP:   DB     1o       ; Data Byte at address 201 = 8 (10 octal)
SUM:    DB     0o       ; Data Byte at address 202 = 0
        END             ; End

s = sum(range(6))

3a 80 00 47 3a 81 00 4f
3a 82 00 57 7a 80 57 78
91 ca 18 00 47 c3 0c 00
7a 32 82 00 c3 1c 00