Pl3 MOUSECOO.S: Difference between revisions
Jump to navigation
Jump to search
>Zorro 2 No edit summary |
>Wongck No edit summary |
||
| (2 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
<pre> | <pre> | ||
*** Interrogation de la SOURIS *** | |||
*** DROITE=COORD, 2=QUITTER *** | |||
SECTION TEXT | |||
TOUCHE MACRO | |||
move #7,-(sp) | |||
trap #1 | |||
addq.l #2,sp | |||
ENDM | |||
CCONOUT MACRO $\1 | |||
move.w \1,-(sp) ;\1=CaractŠre … afficher | |||
move.w #2,-(sp) | |||
trap #1 | |||
addq.l #4,sp | |||
ENDM | |||
move.l #0,-(sp) | |||
move #$20,-(sp) | move #$20,-(sp) | ||
trap #1 | trap #1 | ||
addq.l #6,sp | addq.l #6,sp | ||
move.l d0,SSP | |||
cmpi #$0e96,$fc001e ;TOS blitter ? | |||
bne NOBLIT | |||
move.l #$2740,KDB | |||
jmp PRINCIPAL | |||
NOBLIT move.l #$26e0,KDB | |||
PRINCIPAL | |||
move.l KDB,a1 | |||
move.b 7(a1),d0 ;Gauche=%01 | |||
;Droite=%10 ,2=%11 | |||
cmpi.b #%11,d0 ;2 = quitter | |||
beq FIN | |||
btst #1,d0 ;diff de %...0. = Bouton DROIT | |||
beq PRINCIPAL | |||
CCONOUT #27 | |||
CCONOUT #'E' | |||
move (a1),d0 | |||
jsr BINAIRE | |||
move 2(a1),d0 | |||
jsr BINAIRE | |||
jmp PRINCIPAL | |||
FIN move.l SSP,-(sp) | |||
move #$20,-(sp) | move #$20,-(sp) | ||
trap #1 | trap #1 | ||
addq.l #6,sp | addq.l #6,sp | ||
clr | clr -(sp) | ||
trap #1 | trap #1 | ||
BINAIRE movem.l d0-d7/a0-a6,-(sp) | |||
move d0,d1 | |||
move #31,d3 | |||
LOOK move #'0',d0 | |||
lsl.l #1,d1 | |||
bcc ZERO | |||
move #'1',d0 | |||
ZERO CCONOUT d0 | |||
dbf d3,LOOK | |||
CCONOUT #10 | |||
CCONOUT #13 | |||
movem.l (sp)+,d0-d7/a0-a6 | |||
rts | |||
SECTION BSS | |||
KDB ds.l 1 | |||
SSP ds.l 1 | |||
END | |||
</pre> | |||
Back to [[ASM_Tutorial]] | Back to [[ASM_Tutorial]] | ||
[[Category : ASSEMBLER on ATARI ST 68000 Part 3]] | |||
Latest revision as of 11:23, 12 October 2011
*** Interrogation de la SOURIS ***
*** DROITE=COORD, 2=QUITTER ***
SECTION TEXT
TOUCHE MACRO
move #7,-(sp)
trap #1
addq.l #2,sp
ENDM
CCONOUT MACRO $\1
move.w \1,-(sp) ;\1=CaractŠre … afficher
move.w #2,-(sp)
trap #1
addq.l #4,sp
ENDM
move.l #0,-(sp)
move #$20,-(sp)
trap #1
addq.l #6,sp
move.l d0,SSP
cmpi #$0e96,$fc001e ;TOS blitter ?
bne NOBLIT
move.l #$2740,KDB
jmp PRINCIPAL
NOBLIT move.l #$26e0,KDB
PRINCIPAL
move.l KDB,a1
move.b 7(a1),d0 ;Gauche=%01
;Droite=%10 ,2=%11
cmpi.b #%11,d0 ;2 = quitter
beq FIN
btst #1,d0 ;diff de %...0. = Bouton DROIT
beq PRINCIPAL
CCONOUT #27
CCONOUT #'E'
move (a1),d0
jsr BINAIRE
move 2(a1),d0
jsr BINAIRE
jmp PRINCIPAL
FIN move.l SSP,-(sp)
move #$20,-(sp)
trap #1
addq.l #6,sp
clr -(sp)
trap #1
BINAIRE movem.l d0-d7/a0-a6,-(sp)
move d0,d1
move #31,d3
LOOK move #'0',d0
lsl.l #1,d1
bcc ZERO
move #'1',d0
ZERO CCONOUT d0
dbf d3,LOOK
CCONOUT #10
CCONOUT #13
movem.l (sp)+,d0-d7/a0-a6
rts
SECTION BSS
KDB ds.l 1
SSP ds.l 1
END
Back to ASM_Tutorial