je me sui mis a l'ASM depui peu et je commence par des choses simples (afficher un simple texte), pas de pb. j'essai de mettre en place le double buffering et la ca plante (adresse error) pourtant je suis pas a pas les exemples fourni dans le pack de genlib.
si kelkun pe m'aider ca serai super sympa
xdef _main
xdef _comment
xdef _ti89
include "tios.h"
include "genlib.h"
_main:
jsr genlib::init
genlib::PUSH_DSCREEN d0
move.l d0,DScr1
jsr genlib::init_dscreen
tst.w d0
beq.s \quit
jsr genlib::push_hd
clr ts
move.l a0,DScr2
move.l DScr1(PC),d0
jsr genlib::set_dscreen_int
move.l DScr2(PC),d0
jsr genlib::set_dscreen_function
jsr genlib::cls
jsr genlib::change_update
bsr lets_start
\quit:
jsr genlib::free_hd
genlib::POP_DSCREEN
jsr tios::PortRestore
jmp genlib::quit
rts
; This function will exchange the buffer.
SwapBuffer:
move.w ts(pc),d1 ; Read temps
move.l DScr1(pc,d1.w),d0 ; Read a screen
jsr genlib::set_dscreen_int ; Set the interrupt to this Dscreen
eor.w #4,d1 ; Next screen
move.l DScr1(PC,d1.w),d0 ; Read the other screen
jsr genlib::set_dscreen_function ; Set the functions to this DScreen
move.w d1,ts ; Save temps
rts
lets_start:
\looping:
tst.l genlib::timer
beq.s \looping
jsr genlib::get_dscreen
move.l a0,a1
clr.w d0
clr.w d1
lea _comment(Pc),a0
jsr genlib::put_small_string
bsr SwapBuffer
jsr genlib::read_joypad
btst.l #plus_key,d0
bne \looping
rts
DScr1 dc.l 0
DScr2 dc.l 0
ts dc.w 0
_comment dc.b "Mon premier programme ASM avec Genlib!!!",0
end