Inverser les pixels d'un segment horizontal

Retour

    include "tios.h"
    include "graphlib.h"
    include "userlib.h"
    xdef _main
    xdef _comment
    xdef _ti89

_main:
	jsr	graphlib::clr_scr
	move.w	#1,d0
        move.w  #158,d1
        move.w  #99,d2
Boucle:
	move.l	#LCD_MEM,a0
        move.w  d2,d3
        move.w  d2,d4
        lsl.w   #5,d3
        lsl.w   #1,d4
        sub.w   d4,d3
        ext.l   d3
        add.l   d3,a0
	move.w  d0,d4
        lsr.w   #3,d4
        ext.l   d4
        add.l   d4,a0
        move.w  #7,D4
        move.w  d0,d3
        and.w   #7,d3
        sub.w   d3,d4
        bchg    d4,(a0)
        add.w   #1,d0
        cmp.w   d0,d1
        bcc     Boucle
        jsr     userlib::idle_loop
        rts

_comment dc.b "Segment horizontal",0

    end