75 lines
1.0 KiB
ArmAsm
75 lines
1.0 KiB
ArmAsm
;
|
|
; mousedemo.s
|
|
; Mouse driver sample application
|
|
;
|
|
; Created by Quinn Dunki on 7/14/15.
|
|
; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
|
|
;
|
|
|
|
|
|
.org $6000
|
|
|
|
COUT = $fded
|
|
PRBYTE = $fdda
|
|
|
|
|
|
main: ; BRUN lands here
|
|
|
|
jsr WGEnableMouse
|
|
|
|
loop:
|
|
; Print current mouse position
|
|
lda #'X' + $80
|
|
jsr COUT
|
|
lda #'=' + $80
|
|
jsr COUT
|
|
|
|
lda WG_MOUSEPOS_X
|
|
jsr PRBYTE
|
|
|
|
lda #' ' + $80
|
|
jsr COUT
|
|
lda #'Y' + $80
|
|
jsr COUT
|
|
lda #'=' + $80
|
|
jsr COUT
|
|
|
|
lda WG_MOUSEPOS_Y
|
|
jsr PRBYTE
|
|
|
|
lda WG_MOUSECLICK_X
|
|
bmi lineDone
|
|
lda #' ' + $80
|
|
jsr COUT
|
|
lda #'!' + $80
|
|
jsr COUT
|
|
lda #$ff
|
|
sta WG_MOUSECLICK_X
|
|
|
|
lineDone:
|
|
lda #13 + $80
|
|
jsr COUT
|
|
|
|
; Check for any key to quit
|
|
lda KBD
|
|
bpl loop ; No key pending
|
|
|
|
; Clean up and return to BASIC
|
|
sta KBDSTRB ; Clear strobe
|
|
|
|
jsr WGDisableMouse
|
|
rts
|
|
|
|
|
|
|
|
.include "mouse.s"
|
|
|
|
|
|
; Suppress some linker warnings - Must be the last thing in the file
|
|
; This is because Quinn doesn't really know how to use ca65 properly
|
|
.SEGMENT "ZPSAVE"
|
|
.SEGMENT "EXEHDR"
|
|
.SEGMENT "STARTUP"
|
|
.SEGMENT "INIT"
|
|
.SEGMENT "LOWCODE"
|