|
Afficher
un rectangle blanc
Retour
include "doorsos.h"
include "userlib.h"
include "graphlib.h"
xdef _main
xdef _comment
xdef _ti89
_main:
jsr graphlib::clr_scr
move.w #21,d0
Boucle:
move.w #137,d1
move.w #40,d2
move.w #60,d3
move.l #LCD_MEM,a0
move.w d2,d4
move.w d2,d5
lsl.w #5,d5
lsl.w #1,d4
sub.w d4,d5
ext.l d5
add.l d5,a0
move.w d0,d4
lsr.w #3,d4
ext.l d4
add.l d4,a0
move.w #7,d4
move.w d0,d5
and.w #7,d5
sub.w d5,d4
sub.w d2,d3
\loop:
bclr d4,(a0)
lea 30(a0),a0
dbra.w d3,\loop
add.w #1,d0
cmp.w d0,d1
bcc Boucle
jsr userlib::idle_loop
rts
_comment dc.b "Rectangle blanc",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.
|
|