|
Afficher
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:
move.b #$FF,(a0)+
dbra.w d1,\loop
jsr userlib::idle_loop
rts
_comment dc.b "Ligne horizontale",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.
|
|