Assembler-Beispiel CA - DEX.asm

; Dieses Programm löscht den Kassettenpuffer (192 Bytes)
; Programmstart mit SYS 49152

*=$c000   ; Startadresse des Programms

PUFFER=$033c
ANZAHL=192

 lda #0               ; Löschzeichen
 ldx #ANZAHL          ; Anzahl der zu löschenden Bytes
byte_loeschen:
 sta PUFFER-1,x       ; Löschen, Pufferadresse korrigiert, weil x von ANZAHL bis 1 herunter zählt
 dex                  ; Speicherindex und gleichzeitig Zähler
 bne byte_loeschen    ; aufhören, wenn Zähler auf 0
 rts                  ; zurück zu BASIC