Author Topic: Axe Parser (Read 494553 times)

Deep Toaster · « **Reply #1695 on:** February 01, 2011, 10:29:17 am »

Quote from: Darl181 on February 01, 2011, 10:25:06 am

So, that would be like Getcalc(Ans)? The goal is to store a token, either two-byte or one-byte, into ans.

Oh, there's a command in Axe for that: →Ans. So if you want to store the prgm token to Ans, it's just ^Tprgm→Ans.

Darl181 · « **Reply #1696 on:** February 01, 2011, 10:53:11 am »

The goal, in the end, is to store a token defined by a number (either 1-byte or two-byte).
Letting A be the token #: ^T{A}→Ans
Would that work?

Deep Toaster · « **Reply #1697 on:** February 01, 2011, 11:57:11 am »

Well, no. If A is the number of the token, just do A→Ans. It's just EXP→Ans, where EXP is the expression (one-byte or two-byte, doesn't matter since it gets extended to two bytes anyway) you want stored.

Quigibo · « **Reply #1698 on:** February 02, 2011, 10:18:43 pm »

Unfortunately I haven't really had time to add much more to Axe other than the Axioms, and I can't get my mode 7 engine working properly and I might have to rewrite it from scratch. So I think I will instead release more betas since there are so many more features that need to be worked on before 1.0.0. Instead I might just release a VAT based Axiom for reading from the VAT efficiently since that's both useful and quick to make.

Runer112 · « **Reply #1699 on:** February 02, 2011, 11:23:19 pm »

Want these? They were for the InsertMem/DelMem axiom I made a short while ago, so if you're making VAT commands, they could be useful to you. I didn't heavily test them, but they looked pretty good to me.

Code: (InsertMem) [Select]

;---------> InsertMem <---------;
;B_CALL(_InsertMem) with checks to make sure there is enough RAM and the insertion address is okay
;
;INPUTS:  Arg1: Pointer to start of variable according to GetCalc()
;  Arg2: Offset in variable to insert RAM
;  Arg3: Number of bytes to attempt to insert
;
;OUTPUTS: 0 if not enough RAM or Arg2 is out of range
;  Nonzero if successful

p_InsertMem:
;REGISTERS: hl=Arg3
;STACK:  | Ret | Arg2 | Arg1 | ...
 B_CALL(_EnoughMem)      ;Check if enough RAM
;REGISTERS: de=Arg3
;STACK:  | Ret | Arg2 | Arg1 | ...
 pop hl       ;Rearrange arguments and stack
 pop bc
 ex (sp),hl
;REGISTERS: bc=Arg2  de=Arg3  hl=Arg1
;STACK:  | Ret | ...
 jr c,__InsertMemFail0Args     ;Return failure if not enough RAM
 dec hl       ;Get current variable size
 ld a,(hl)
 dec hl
 push hl
 ld l,(hl)
 ld h,a
;REGISTERS: bc=Arg2  de=Arg3  hl=current variable size
;STACK:  | Arg1-2 | Ret | ...
 sbc hl,bc       ;Check if offset is outside of variable
 jr c,__InsertMemFail1Arg     ;Return failure if offset is outside of variable
 add hl,bc
;REGISTERS: bc=Arg2  de=Arg3  hl=current variable size
;STACK:  | Arg1-2 | Ret | ...
 add hl,de       ;Calculate final variable size
 ex de,hl
 ex (sp),hl
;REGISTERS: bc=Arg2  de=final variable size hl=Arg1-2
;STACK:  | Arg3 | Ret | ...
 ld (hl),e       ;Store final variable size
 inc hl
 ld (hl),d
 inc hl
;REGISTERS: bc=Arg2  de=final variable size hl=Arg1
;STACK:  | Arg3 | Ret | ...         
 add hl,bc       ;Calculate RAM insertion address
 ex de,hl       ;Prepare arguments for _InsertMem
 pop hl
;REGISTERS: bc=Arg2  de=Arg1+Arg2 (RAM insertion address) hl=Arg3 (bytes to insert)
;STACK:  | Ret | ... 
 B_CALL(_InsertMem)      ;Insert memory
;REGISTERS: de=RAM insertion address hl=a lot (negative size of a VAT entry?)
;STACK:  | Ret | ... 
 ret        ;Result is always nonzero
__InsertMemFail1Arg:
 pop hl
__InsertMemFail0Args:
 ld hl,0
 ret
__InsertMemEnd:

Code: (DelMem) [Select]

;---------> DelMem <---------;
;B_CALL(_DelMem) with checks to make sure that the deletion address and size are okay
;
;INPUTS:  Arg1: Pointer to start of variable according to GetCalc()
;  Arg2: Offset in variable to delete RAM
;  Arg3: Number of bytes to attempt to delete
;
;OUTPUTS: 0 if Arg2+Arg3 is out of range
;  Nonzero if successful

p_DelMem:
;REGISTERS: hl=Arg3
;STACK:  | Ret | Arg2 | Arg1 | ...
 pop af       ;Rearrange arguments and stack
 pop bc
 pop de
 push af
 push hl
;REGISTERS: bc=Arg2  de=Arg1  hl=Arg3
;STACK:  | Arg3 | Ret | ...
 add hl,bc       ;Calculate offset of end of deletion
 jr c,__DelMemFail      ;Return failure if offset+size was so big that it overflowed
 ex de,hl
;REGISTERS: bc=Arg2  de=Arg2+Arg3 hl=Arg1
;STACK:  | Arg3 | Ret | ...
 dec hl       ;Get current variable size
 ld a,(hl)
 dec hl
 push hl
 ld l,(hl)
 ld h,a
;REGISTERS: bc=Arg2  de=Arg2+Arg3 hl=current variable size
;STACK:  | Arg1-2 | Arg3 | Ret | ...
 sbc hl,de       ;Check if end is outside of variable
 pop de       ;Early pop to avoid having fail condition requiring 2 pops
;REGISTERS: bc=Arg2  de=Arg1-2 hl=current variable size - (Arg2+Arg3)
;STACK:  | Arg3 | Ret | ...
 jr c,__DelMemFail      ;Return failure if end is outside of variable
 add hl,bc       ;Add back offset to get final variable size
;REGISTERS: bc=Arg2  de=Arg1-2 hl=final variable size
;STACK:  | Arg3 | Ret | ...
 ex de,hl       ;Store final variable size
 ld (hl),e
 inc hl
 ld (hl),d
 inc hl
;REGISTERS: bc=Arg2  de=final variable size hl=Arg1
;STACK:  | Arg3 | Ret | ...         
 add hl,bc       ;Calculate RAM deletion address
 pop de       ;Prepare size argument for _DelMem
;REGISTERS: bc=Arg2  de=Arg3 (bytes to delete) hl=Arg1+Arg2 (RAM deletion address)
;STACK:  | Ret | ... 
 B_CALL(_DelMem)       ;Delete memory
;REGISTERS: de=Arg3 (bytes to delete) hl=a lot (negative size of a VAT entry?)
;STACK:  | Ret | ... 
 ret        ;Result is always nonzero
__DelMemFail:
 pop hl
 ld hl,0
 ret
__DelMemEnd:

DJ Omnimaga · « **Reply #1700 on:** February 03, 2011, 10:58:17 pm »

Good luck quigibo!

Darl181 · « **Reply #1701 on:** February 04, 2011, 02:47:29 pm »

[noobish question]What are tilemaps, and how do I use them?[/noobish question]
The ultimate goal is to get a sort of smmothscrolling, specifically for Tio.

Michael_Lee · « **Reply #1702 on:** February 04, 2011, 02:54:05 pm »

Quote from: Darl181 on February 04, 2011, 02:47:29 pm

[noobish question]What are tilemaps, and how do I use them?[/noobish question]
The ultimate goal is to get a sort of smmothscrolling, specifically for Tio.

If you've ever played pokemon, you should have noticed how (for example) nearly every patch of grass is the same, the roads are fairly identical looking (at least in the older games), and that one patch of water is fairly identical to another patch of water.

A tilemap basically creates a grid, assigns a number to each square in that grid, and based on that number, displays a certain sprite. It's just an efficent way to display large amounts of background. Most RPGs use tilemaps, and I think all calculator RPGs use tilemaps of some sort.

It can also be used for level design -- if you look at the sliding games released recently (Psyche and CuBeS (did I capitalize that right?)) have a grid-like design, and use tilemaps.

Darl181 · « **Reply #1703 on:** February 04, 2011, 06:29:50 pm »

So, basically what I've been doing (TWHG, lightoff, tio)...I thought they were more complex than that...
For the second part. Is there sone sort of built-in way to do them, or do I have to do the For( loop myself? And what is the syntax for using the [Pic#]^r thing?

Quote from: two posts up

The ultimate goal is to get a sort of smmothscrolling

Michael_Lee · « **Reply #1704 on:** February 04, 2011, 07:17:59 pm »

Really no built-in way to do tilemaps (as far as I know). Basically, you have to create the 'for' loops yourself, and make your own drawing routines.

The [Pic#r]... Hmm...
By that, do you mean the sort of 'import tilemap' thing? I've never used it, so I can't really help, but I would think it would take the picture in a picvar, divide it up into 8x8 chunks, and return a pointer to the start of the tiles, which might aid in reusing tiles from hybrid Basic games. Or something.
I would try something like this:

Code: [Select]

[Pic1r]->Pic000
Pt-On(10,10,Pic000)
Pt-On(18,10,Pic000+8)

For smoothscrolling, there are two ways I know:
1) Create a pixel-based offset for the start of the tilemap, and keep shifting the tilemap and redrawing it every time (this is a bad method, inefficent).
2) Use Horizontal or Vertical to shift the image over, and draw the bare minimum of tiles you need to refresh the screen (either the column or the row that needs to be filled). Runer's uber tilemapper uses this method, or something similar - you should try looking for the thread elsewhere in this subforum.

Darl181 · « **Reply #1705 on:** February 04, 2011, 09:51:02 pm »

If you're meaning this one ? it's kind of confusing to learn from, but I get what you mean.
http://ourl.ca/7765/137919

EDIT: just realized, axe is over a year old...

DJ Omnimaga · « **Reply #1706 on:** February 05, 2011, 11:29:44 pm »

Happy birthday Axe.

Not only Axe is 1 years old, it's the project that had the most attention in Omni history with 12000+ posts in its sub-forum.

(The second one was Ultima V, I think)

Binder News · « **Reply #1707 on:** February 05, 2011, 11:32:53 pm »

Happy B-day Axe!!!!!!!!!!!!!!

Deep Toaster · « **Reply #1708 on:** February 05, 2011, 11:50:38 pm »

Quote from: DJ Omnimaga on February 05, 2011, 11:29:44 pm

Happy birthday Axe.

Not only Axe is 1 years old, it's the project that had the most attention in Omni history with 12000+ posts in its sub-forum. (The second one was Ultima V, I think)

Epic. That's OVER 9000!!! By a lot

* Deep Thought loves Axe

ztrumpet · « **Reply #1709 on:** February 06, 2011, 12:17:36 am »

Thank you Quigibo! I'm so glad you decided to share it with the community!

Author Topic: Axe Parser (Read 494553 times)

Deep Toaster

Re: Axe Parser

Darl181

Re: Axe Parser

Deep Toaster

Re: Axe Parser

Quigibo

Re: Axe Parser

Runer112

Re: Axe Parser

DJ Omnimaga

Re: Axe Parser

Darl181

Re: Axe Parser

Michael_Lee

Re: Axe Parser

Darl181

Re: Axe Parser

Michael_Lee

Re: Axe Parser

Darl181

Re: Axe Parser

DJ Omnimaga

Re: Axe Parser

Binder News

Re: Axe Parser

Deep Toaster

Re: Axe Parser

ztrumpet

Re: Axe Parser