10 PMBASE = 54279 ;$D407
20 RAMTOP = 106 ;$6A
30 SDMCTL = 559
40 GRACTL = 53277
50 HPOSP0 = 53248
60 P0COL = 704
70 VPOSP0 = $CB
80 XPOSP0 = $CD
90 YPOSP0 = $CE
100 PM = $CF
110 CODEBASE = $D0
120 STICK = $D300
130 STRIG = $D010
140 ; *****************************
150 ; CIO EQUATES
160 ; ******************************
170 ICHID =    $0340
180 ICDNO =    $0341
190 ICCOM =    $0342
200 ICSTA =    $0343
210 ICBAL =    $0344
220 ICBAH =    $0345
230 ICPTL =    $0346
240 ICPTH =    $0347
250 ICBLL =    $0348
260 ICBLH =    $0349
270 ICAX1 =    $034A
280 ICAX2 =    $034B
290 SETVBV=    $E45C
300 CIOV  =    $E456
310 EXIT  =    $E45F
320  *=$6000
1250 MOUSECODE
1260  LDA 20
1270  STA P0COL
1280  LDA STICK
1290  AND #1
1300  BEQ MOUSEUP
1310  LDA STICK
1320  AND #2
1330  BEQ MOUSEDOWN
1340 SIDE
1350  LDA STICK
1360  AND #4
1370  BEQ MOUSELEFT
1380  LDA STICK
1390  AND #8
1400  BEQ MOUSERIGHT
1410 CLICK
1420  LDA STRIG
1430  BEQ MOUSECLICK
1440 DONE
1450  JMP EXIT
1460 MOUSELEFT
1470  LDX XPOSP0
1480  CPX #45
1490  BEQ DONE
1510  DEX
1520  STX XPOSP0
1530  STX HPOSP0
1540  CLC
1550  BCC CLICK
1560 MOUSERIGHT
1570  LDX XPOSP0
1580  CPX #203
1590  BEQ DONE
1600  INX
1610  STX XPOSP0
1620  STX HPOSP0
1630  CLC
1640  BCC CLICK
1650 MOUSEUP
1660  LDY YPOSP0
1670  CPY #$20
1680  BEQ DONE
1690  LDY YPOSP0
1700  LDX #1
1710 UP1
1720  LDA (VPOSP0),Y
1730  DEY
1740  STA (VPOSP0),Y
1750  INY
1760  INY
1770  INX
1780  CPX #11
1790  BCC UP1
1800  DEC YPOSP0
1810  CLC
1820  BCC SIDE
1830 MOUSEDOWN
1840  LDY YPOSP0
1850  CPY #$DD
1860  BEQ DONE
1870  LDA YPOSP0
1880  CLC
1890  ADC #7
1900  TAY
1910  LDX #7
1920 DOWN1
1930  LDA (VPOSP0),Y
1940  INY
1950  STA (VPOSP0),Y
1960  DEY
1970  DEY
1980  BNE DOWN1
1990  INY
2000  DEX
2010  LDA #0
2020  STA (VPOSP0),Y
2030  INC YPOSP0
2040  CLC
2050  BCC SIDE
2060 MOUSECLICK
2070  lda xposp0
2080  clc 
2090  sbc #44 ; left edge of screensa
2095  clc
2100  ROR a; scale down
2105  clc
2110  ROR a; column = cursor x pos -45 /4
2120  sta 85
2130  lda yposp0
2140  clc
2150  sbc #31 ; top of screen
2155  clc
2160  ROR a; scale down
2165  clc
2170  ROR a; row = cursor y pos -31 /8
2175  clc
2180  ROR a;
2190  clc
2195  adc #1
2200  sta 84 
2210  lda #$8e
2220  sta $02fc
2300  JMP EXIT
asm,#p: