Difference between revisions of "Pl3 MOUSECOO.S"
| 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]] | ||
Revision as of 17:28, 9 October 2006
*** 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
