Effacer un segment vertical

Retour

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

_main:
	jsr	graphlib::clr_scr
	move.w	#80,d0
        move.w  #10,d1
        move.w  #90,d2
	move.l	#LCD_MEM,a0
        move.w  d1,d3
        move.w  d1,d4
        lsl.w   #5,d4
        lsl.w   #1,d3
        sub.w   d3,d4
        ext.l   d4
        add.l   d4,a0
	move.w  d0,d3
        lsr.w   #3,d3
        ext.l   d3
        add.l   d3,a0
        move.w  #7,d3
        and.w   #7,d0
        sub.w   d0,d3
        Sub.w   d1,d2
\loop:
        bclr    d3,(a0)
	lea	30(a0),a0
	dbra.w	d2,\loop
	jsr	userlib::idle_loop
	rts

_comment	dc.b	"Segment vertical",0

        End