[Coco] Assembly Language Question

[Little John]

Never mind, it was something simple :) Figured it out (I think). Thanks 
though...
John
----- Original Message ----- 
From: "Little John" <sales at gimechip.com>
To: "Boisy G. Pitre" <boisy at tee-boy.com>
Cc: "CoCoList for Color Computer Enthusiasts" <coco at maltedmedia.com>
Sent: Friday, October 01, 2010 2:31 PM
Subject: [Coco] Assembly Language Question


> Okay, I am about to go nuts here:
> I was attempting to create a SHOULD BE VERY SIMPLE routine to sample the 
> joystick pots. Using cartesian X,Y coordinates (X=Column left/right, Y=Row 
> up/down), I wanted X to be 0-31 (a simple divide by 2 of the pot values) 
> and the Y to be 0-15 (a divide by 4 of the pot values). This would 
> correspond to an X,Y position on the VDG screen (the memory address could 
> be calculated as Y*32+X+$400)
> But I can't get it to work right - under VCC or MESS. I tested the 
> "algorithm" in BASIC first - it works. So I translated it to Assembly as:
> 0E00 00100 ORG $E00
>
> 015A 00110 POTVAL EQU $015A
>
> 015D 00120 RH EQU POTVAL+3
>
> 015C 00130 RV EQU POTVAL+2
>
> 015B 00140 LH EQU POTVAL+1
>
> 015A 00150 LV EQU POTVAL
>
> A00A 00160 JOYIN EQU $A00A
>
> 0E00 AD 9F A00A 00170 START JSR [JOYIN]
>
> 0E04 74 015D 00180 LSR RH
>
> 0E07 74 015B 00190 LSR LH
>
> 0E0A 74 015C 00200 LSR RV
>
> 0E0D 74 015C 00210 LSR RV
>
> 0E10 74 015A 00220 LSR LV
>
> 0E13 74 015A 00230 LSR LV
>
> 0E16 1C AF 00240 ANDCC #$AF
>
> 0E18 39 00250 RTS
>
> 0E19 00260 DONE EQU *
>
> 0E00 00270 END START
>
>
> 00000 TOTAL ERRORS
>
>
>
> Basically, this should call (indirectly) JOYIN whose address is stored in 
> $A00A, with the values 0-63 being placed in the four joystick variables. 
> An LSR is used to divide the H (X)values by 2. Two LSR's used to divide 
> the V (Y) values by four. JOYIN Masks IRQ/FIRQ so the AND restores them 
> and then we return with the adjusted values.
>
> Using this BASIC program to test:
>
> 10 CLS
>
> 20 LOADM"JOY":A=&H015A
>
> 30 EXEC&HE00
>
> 40 PRINT at 0,"RIGHT X";PEEK(&H15D)
>
> 50 PRINT"RIGHT Y";PEEK(&H15C)
>
> 60 PRINT"LEFT X";PEEK(&H15B)
>
> 70 PRINT"LEFT Y";PEEK(&H15A)
>
> 80 GOTO30
>
>
>
> AND IT DOESN'T WORK? I know I have overlooked something and that it must 
> be something simple - I just don't know what - I'm pulling my hair out 
> (well, what's left of it anyway)
>
> When the BASIC program is RUN, moving the mouse UP/DOWN cycles the X 
> values 0-31 - it should be moving left/right to cycle these values.
>
> Moving left/right cycles the Y values 0-15 - it should be moving up down 
> to cycle these values. Now I could fix this by swapping the operations in 
> the assembly language - but what I need to understand is why it is failing 
> to work as it is. It seems to be coded right judging by all the docs I've 
> read and the fact that the BASIC test of the algorithm works as expected.
>
>
>
> Could any of you guys point out to me what I've done wrong? It might save 
> some of my hair. I've written some pretty complex Assembly Routines for 
> the CoCo over the past few weeks and all work as expected - but this 
> "should be simple" routine fails? Any ideas?
>
> --
> Coco mailing list
> Coco at maltedmedia.com
> http://five.pairlist.net/mailman/listinfo/coco