Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[MadAngus]

I'm half way through issue 5/6 of the AMOS Club newsletters (nearly ready for a release), however I've come a cropper with the print.

Below is a excerpt from the "The AMOS Shuffle Extension" example. There are some instructions that I'm not sure about what they should be, 'dc.I', 'move.I', 'cmp.I' and 'bIt '. Should that I be an l (small L), they both (I and small L) look like an l (small L) in the print.

[Edit] I've attached the complete article. If you know where to get the TOME Goodies Disk 1, then this would solve the problem as the source file is on that.

Start
@ @ dc.I @ X- Tk-X_Off @ : length of offsets
@ @ dc.I @ X_Llb-X- Tk @ ; length of tokens
@ @ dc.I @ X- Tltle-X_Llb : length of libraries
@ @ dc.I @ X_End-X- Title; length of Title string
@ @ dc.w @ 0

*******************************************************
*
L2
*
L3
* =RANGE(a,b TO c)
* return result of a forced into range of b to c
* shorter version of -MAX(b,MIN(c,a))
L_Range @ equ @ 3
@ move.I @ (a3) + , d2 @ ; get the last parameter
*The above pulled an integer from the stack. (as required)
@ move.I @ (a3) + , d1
@ move.I @ (a3) + , d0
* note that they are pulled in reverse order
@ @ cmp.I @ d2 , d0 @ ; is a>c ?
@ bgt @ BiGGER; if so then force a=c
B1: @ cmp.I @ d1 , d0 ; is a<b ?
@ bIt @ SMALLER @ ; if so then force a=b
* when you have to return a parameter from a function,
* Set D2 to the type (0,1 or 2) and D3 to the value (or
* the address in the case of a string)
B2: @ move.I @ d0 , d3

[bruceuncle]

Sourced this disk image from the English Amiga Board http://eab.abime.net/index.php.

Unfortunately, it refers back to the AMOS Club newsletter issue 5/6 for the source!   

Below is a excerpt from the "The AMOS Shuffle Extension" example. There are some instructions that I'm not sure about what they should be, 'dc.I', 'move.I', 'cmp.I' and 'bIt '. Should that I be an l (small L), they both (I and small L) look like an l (small L) in the print.

I know nothing about TOME (but suspect I will have to soon ) but do understand 68000 assembler.  So:

dc.I	-->	dc.l	lower case L (stands for Long Integer)
move.I	-->	move.l	lower case L (stands for Long Integer)
cmp.I	-->	cmp.l	lower case L (stands for Long Integer)
bIt	-->	bit	lower case I (not assembler, but makes sense)

Hope this helps. 

[MadAngus]

Thanks bruceuncle, saves having to fix it down the road.

[bruceuncle]

Just trawled through the listing and found a heck of a lot of mistakes.  Was this OCRed?   

Couldn't see what I was doing with all those damned @s representing tabs, so I've redone that listing section as assembler source - no tabs, just spaces.

If you really need the @s, I suppose I could put them back in but it will take a while... 

[bruceuncle]

Note that it is many, many, many years since I last used 68000 assembler.  So if some kind soul could check that listing (or even give it a try with Devpac)  'twould be appreciated.

I did edit it in a codesense editor, so it should at least be in correct format (nailed a lot of ":" instead of ";" for comments).  No warranty, refund, etc, etc.

The references to the includes files are in the "Tutorials/Extensions" folder in AMOS Pro.

[Hungry Horace]

bIt

-->

bit

lower case I (not assembler, but makes sense)

actually, since this *is* assembler,  it will  be:

bIt

-->

bLt

"branch if less than"

it will be followed by an address, although is usally programmed with reference to a label.

e.g.   blt    .thisplace


edit: which i see is here:

Code: [Select]

         cmp.l   d1 , d0         ; is a<b ?
         blt     SMALLER         ; if so then force a=b
compares value of d1 to d0, and if the subject (d0) is less than d1, branch to the label "smaller"

[bruceuncle]

Thanks Hungry Horace, I should have pointed that out in the previous post.

The edited version attached to that post corrected all that and loads of other little 'typos' from what, I assume, is OCR generated.  Those @s made it difficult to realise what I was looking at for a while.  At first I thought it was something in some weird syntax that TOME used (don't know anything about TOME yet) then it dawned on me it was plain ole assembler.  Not having used 68000 assembler for about 20 years didn't help either  .  Would still be grateful if someone who has some more recent experience would eyeball it to check...

[MadAngus]

Thanks folks, 

The @s are used in the newsletter, I'd just leave them out of the corrected version. I have just added the corrected version text file to the release archive. If it needs replaced again then I can do that easily enough.

I should point out this extension has nothing to do with TOME it is just included in the TOME Goodies disk. It's an example extension for AMOS The Creator (I think), I've read the newsletters but not read them, if you get my meaning.

[Lonewolf10]

Bruceuncle,

I just downloaded your "corrected" file from your post on Feb 22, 2012. There is still a few errors, mostly just the few lines after the Start label. One example is this "X- Tk" should actually be "X_Tk" as it's an address label.

One other thing to note, most assemblers kick up a fuss if there are spaces by comma's.

Code: [Select]

move.w   $FFF , $DFF184  ; bad code

move.w   $FFF,$DFF184  ; good code (no spaces either side of the comma)


Regards,
Lonewolf10

[MadAngus]

@Lonewolf10
Cheers for the update, I'll add the corrections to the second revision when it comes.

[bruceuncle]

There is still a few errors, mostly just the few lines after the Start label.

Thanks for that.  Very rusty after 20 or so years away from 68000 assembler...  But "Willing to learn and will work for the odd table scraps."