/* procedura generujaca rozkazy 'sta adres+0..20' wykorzystuje rekurencje makr */ org $2000 lda #0 ; --- wywolujemy makro PETLA ; --- pierwszy parametr to adres poczatkowy ; --- drugi parametr to liczba wywolan makra, czyli liczba powtorzen rozkazu 'STA ADRES+...' ; --- zerujemy definicje globalno_lokalna ?LICZ ?licz = 0 petla $a000,20 loop jmp loop petla .macro .if ?licz<:2 sta :1+?licz ?licz = ?licz+1 petla :1,:2 .endif .endm