Assembler-Beispiel 09 - ORA (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 setzen im
         sta $d011       ; VIC-Register (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