 |
|
|||||||
|
|
Afficher une ligne verticale
include "tios.h" include "userlib.h" include "graphlib.h" xdef _main xdef _comment xdef _ti89 _main:
jsr graphlib::clr_scr
move.w #0,d0
move.l #LCD_MEM,a0
move.w d0,d1
lsr.w #3,d1
ext.l d1
add.l d1,a0
move.w #7,d1
and.w #7,d0
sub.w d0,d1
move.w #99,d0
\loop:
bset d1,(a0)
lea 30(a0),a0
dbra.w d0,\loop
jsr userlib::idle_loop
rts
_comment dc.b "Ligne verticale",0 end ©Tous les programmes presents
sur ce site sont soumis à l'autorisation de leur programmeurs
respectifs pour toutes modifications. et dsistribution. La mise
en page a necessité un certain travail, il serait donc plus
correct de ne pas la plagier.
|
|
