;; Demonstrationsprogramm - berechnet die Summe aller ;; natürlichen Zahlen von 1-N N equ 8200H ; Speicherstelle von wo N gelesen wird. org 000H PUSH AF ; sichere A-Register PUSH BC ; sichere C-Register LD A,(N) ; lade N ins A-Register LD B,A ; umladen ins B-Register XOR A ; lösche A-Register Loop: ADD A,B DJNZ Loop ; Lade die Speicherzelle mit der Summe LD (N),A POP BC ; restauriere C-Register POP AF ; restauriere A-Register RET