Code : Tout sélectionner
Ldx #8000
Ldu #$4000
Tst mo5
Bne Boucle
Ldu #$0000
Boucle:
; Lecture octet couleur
Lda <$ff
; Mo5?
Tst Mo5
Bne suite
; Oui: conversion To->mo
Tfr a,b
Andb #7
Pshs b
ANDA #%11111000
Lsla
Adca #7
ANDA #%11111000
Ora ,s+
Eora #%10001000
; Écriture ram vidéo
Suite:
Sta ,u+
Leax -1,x
Bne boucle