Miscellany
public text v1 · immutable; 2^n
; 50: Position von Ergebnis
; 51: Position von n
LDA 51
JIZ 21 ; wenn n^0: jump ans ende
SBA 1
JIZ 24 ; wenn n^1: jump ans ende
LDA #2
STA 50
LDA 50 ; wegen Schleife, beim ersten Mal unnötig
ADD #2
STA 50
LDA 51
SBA #1
STA 51
JIP 10 ; solange n noch Positiv ist Schleife fortführen
LDA 50
STA #2 ; ansonsten 2^(n+1)
STA 50
STP ; n>1: Programmende
LDA #1
STA 50
STP ; n==0: Programmende
LDA #2
STA 50
STP ; n==1: Ende