Inverser les pixels sur une ligne horizontale

Retour

    include "tios.h"
    include "graphlib.h"
    include "userlib.h"

    xdef _main
    xdef _comment
    xdef _ti89

_main:    
    jsr       graphlib::clr_scr
    move.l    #LCD_MEM,a0
    move.w    #50,d0
    move.w    d0,d1
    lsl.w     #5,d0
    lsl.w     #1,d1
    sub.w     d1,d0
    ext.l     d0
    add.l     d0,a0
    move.w    #19,d1
\loop:
    eor.b     #$FF,(a0)+
    dbra.w    d1,\loop
    jsr       userlib::idle_loop
    rts

_comment dc.b "Ligne horizontale",0

    end