Assembler-Beispiel 29 - AND (RAUTE)$nn.asm

; Dieses Programm schaltet den Bitmap-Modus ein.
; Nach einem Tastendruck wird wieder in den Textmodus gewechselt.
; Programmstart mit SYS 49152

*=$c000   ; Startadresse des Programms

GETIN = $ffe4

*=$c000

start    lda $d011       ; Grafikmodus ein 
         ora #%00100000  ; Bit 5 von $D011 setzen
         sta $d011       ; (Achtung, verstellt ggf. Rasterzeilen-Interrupt)

eingabe  jsr GETIN       ; Zeichen einlesen
         beq eingabe     ; warte auf Tastendruck

         lda $d011       ; Grafikmodus aus
         and #%11011111  ; Bit 5 von $D011 löschen
         sta $d011

         rts             ; Rücksprung