; Demo v1.0 made by Alban Gervaise ; ; 10/10/98 include "tios.h" ; no need to have a lib... xdef _main xdef _comment xdef _ti89 _main: move.l #101000,speed move.w #2,-(a7) jsr tios::FontSetSys lea 2(a7),a7 move.w #1,-(a7) pea letmove(pc) move.w #40,-(a7) move.w #40,-(a7) jsr tios::DrawStrXY lea 10(a7),a7 pea _comment(PC) jsr tios::ST_showHelp lea 4(a7),a7 bsr delay wait_key: tst.w tios::kb_vars+$1E beq wait_key move.w #350,d1 main_loop: bsr scroll_screen bsr delay dbra d1,main_loop ;--------------------------------------- ; scroll the screen fromm the bottom ;--------------------------------------- scroll_screen: lea LCD_MEM,a0 lea LCD_MEM+8,a1 move.w #1904,d0 scroll_loop: move.w (a1)+,(a0)+ dbra d0,scroll_loop rts ;--------------------------------------- ; make a delay ;--------------------------------------- delay: move.l speed,d2 delay_loop: sub.l #1,d2 bne delay_loop sub.l #1000,speed cmp.l #0,speed beq reajuste rts reajuste: add.l #1000,speed rts ;--------------------------------------- speed dc.l 0 letmove dc.b "Let's move!",0 _comment dc.b "demo v1.0 made by Endive",0 end