This topic has been moved to TI Z80 Calculator Projects.

http://ourl.ca/20702

In class (scheme) we recently learned about the syntax that allows a function to take an arbitrary amount of arguments eg;
(define len
  (lambda args
    (length args)))

>(len 1 2 3)
3What are the advantages of using this form over simply passing the arguments as a single list in the first place? How do you even pass arguments to these kinds of functions within a program (and not on the command line)? Is there a way to make a procedure that returns a series of values that aren't wrapped within a list?

If anyone wants to take a crack at optimizing any of these routines, I'd be very grateful . I've gone over them a few times, but haven't been able to get too much out of 'em.
Custom Menu Routine
:Lbl CMen
.Creates a menu and returns the int index of the value chosen, returns -1 if canceled with Alpha
.r1-X, r2-Y, r3- NUM OPTIONS,r4 longest entry length, r5 pointer to string data for choices, broken by 0's
:0→F
:41→K
:r1→A
:r2→B
:r3→C*7+4→r6
:r4→D*4+10→r3
:r6→r4
:Box()   \\box drawing routine that takes similar arguments to Rect
:B+3→r2
:r5→E→r3
:For(C)
:¦ A+8→r1
:¦ CText()  \\custom text routine, same argument format as text().
:¦ r2+7→r2  \\r2 is untouched in the routine, the x coord at the end of the text drawn returns at r1
:¦ r3++
:End
:Text(B+2*256+A+4→A+4)
:While 1
:¦ !If +6
:¦ ReturnEFFFF
:End
:If K
:=1-(K=4)+F
:!If +1
:+1
:End
:min(-1,C-1)→F
:{E86D7}-4→{E86D7}
:DrawF "   "
:Text(F*7*256+A)
:DrawF Str1P
:Else
:Delay()
:End
:DispGraphrr
:End!If getKey→K-54
:ReturnFCustom decimal drawing routine
:Lbl CDec
.custom decimal drawing routine, arguments X,Y,Num
:.E0504→{E8251}r
:!If r3
:16
:CChar()
:Return
:End
:r3/10000→{E8452}
:r3/10/10/10^10→{E8453}
:r3/10/10^10→{E8454}
:r3/10^10→{E8455}
:r3^10→{E8456}
:0→{E8457}
:E8452→r3
:For(5)
:¦ If {r3}
:¦ !If {E8457}
:¦ 1→{E8457}
:End
:End
:If {E8457}
:{r3}+16
:CChar()
:End
:r3++
:End
:ReturnScrolling list implementation
:Lbl ItemS
:.SELECT ITEMS
.creates a scrolling menu, A is the visible offset of the cursor, B is the offset of the window
.r1 is the argument for starting value of the cursor
.oItem points to the beginning of item data which is in the format item ID, quantity
:If r1>5
:r1/6*6→B
:r1^6→A
:Else
:r1→A
:0→B
:End
:PrepI() \\prepares for dealing with items (just a getcalc call)
:41→K
:length(oItem)→L
:While 1
:¦ !If +6
:¦ Return‾1
:End
:If +48
:Box(30,0,66,40)
:3→r2
:B*2+oItem→F
:For(E,0,5)
:¦ If {F}→r1
:¦ GetI() \\copies item information using r1 to L5+e20
:¦ L5+E20→r3  \\this is the name of the item
:¦ CText(40)
:¦ Text(r2-1*256+84)
:¦ DrawF "x"
:¦ DrawF {F+1}►Dec \\quantity of item
:¦ Else
:¦ Str0N→r3
:¦ CText(40)
:End
:r2+7→r2
:F+2→F
:End
:
:!If K-1
:A++
:!If -5
:4→A
:If A+E≤L
:B++
:End
:End
:End
:!If K-4
:A--
:!If +1
:→A
:B--
:!If +1
:→B
:End
:End
:End
:
:Text(A*7+2*256+34)
:DrawF Str1P
:
:InfI({A+B*2+oItem}) \\displays information about the item in another box
:Else
:Delay()
:End
:
:DispGraphrr
:End!If getKey→K-54
:A+B+1
:Return
Size over speed tilemapper (only used to draw starting images)
:Lbl DrawM
.basic tilemapper, I care nothing about speed here, go for size. Draw1 is just a routine to draw a 12x12 bitmap in grayscale
.Y1 is tiles
.x, y char offset is 4,3
:ClrDrawrr
:.DRAW MAP θ=MAPFILE PTR
:‾8→T
:PY-3*48+θ+PX-4→F
:For(B,0,5)
:¦ For(A,0,8)
:¦ ¦ conj({F+A}*48+Y1,L1,48)
:¦ ¦
:¦ ¦ Draw1(A*4*3,T,L1)
:¦ End
:¦ T+12→T
:¦ F+48→F
:EndAsm 16x16 4level gray mask routine
#include "Axe.inc"

.db $00,$00


mask16:
;Grayscale mask command with 16x16 sprites

;Masked Sprite Format
;3 layers, 12x16
;Mask applied to both buffers
;Front Buffer
;Back Buffer
;SpritePointer always $8528
;byte to draw axv_R2 (X + y*12*12 + 48)
;aligned/unaligned by 4px axv_R1 0 or 1
ld hl,(axv_R1)
ld b,l
xor a \ cp b
jr z, draw
ld hl,$8528
ld b, 16
shiftMask:
ld a, $FF
rrd \ inc hl
rrd \ inc hl
djnz shiftMask
ld b, 32
xor a
shiftSprites:
rrd \ inc hl
rrd \ inc hl
djnz shiftSprites

draw:
ld hl,$9340 ;drawposition in hl
ld ix,$8528 ;sprite mask pointer
ld de,(axv_R2)
add hl, de
ld b,16
ld de, 11
drawFront:

ld a, (ix)
and (hl)
or (ix+32)
ld (hl), a
inc hl
inc ix

ld a, (ix)
and (hl)
or (ix+32)
ld (hl), a
add hl,de
inc ix

djnz drawFront


ld hl,$9872 ;reset registers
ld ix,$8528
ld de,(axv_R2)
add hl, de
ld b, 16
ld de,11
drawBack:
ld a, (ix)
and (hl)
or (ix+64)
ld (hl), a
inc hl
inc ix

ld a, (ix)
and (hl)
or (ix+64)
ld (hl), a
add hl,de
inc ix

djnz drawBackEdit: one more, the map loading code. Seems like this could be cleaned up quite a bit
:Lbl LoadM
.Loads a map into theta using OverY and OverX coordinates
.24x24 tilemap for overX, overY coords storted at theta+2304
:OverY*24+OverX+θ+2304→r6
:.LOAD WARPS,NPCs,ETC
:conj({}-1*32+Y2,L5,32) \\load map information into L5
:{L5+E1E}r→A
:If {L5+E17}*5→B
:conj(Y2+A,E8000,B)
:End
:E8000+B→Ptrg
:A+B→A
:If {L5+E18}*4→B
:conj(A+Y2,Ptrg,B)
:End
:Ptrg+B→Pwrp
:A+B→A
:If {L5+E19}*6→B
:conj(A+Y2,Pwrp,B)
:
:End
:!If OverY
:Fill(θ,768,72)
:Else
:!If OverX
:
:FillM(θ) \\fill map with 16x16 square of 72s at theta
:Else
:DeCoM(r6-25,θ) \\decompress 16x16 map at r6-25 into theta
:End
:DeCoM(r6-24,θ+16)
:!If OverX-23
:FillM(θ+32)
:Else
:DeCoM(r6-23,θ+32)
:End
:End
:
:!If OverX
:FillM(θ+768)
:Else
:DeCoM(r6-1,θ+768)
:End
:DeCoM(r6,θ+768+16)
:!If OverX-23
:FillM(θ+768+32)
:Else
:DeCoM(r6+1,θ+768+32)
:End
:
:!If OverY-23
:Fill(θ+1536,768,72)
:Else
:!If OverX
:FillM(θ+1536)
:Else
:DeCoM(r6+23,θ+1536)
:End
:DeCoM(r6+24,θ+1536+16)
:!If OverX-23
:FillM(θ+1536+32)
:Else
:DeCoM(r6+25,θ+1536+32)
:End
:End
:Return

This topic has been moved to TI Z80 Calculator Projects.

http://ourl.ca/18128

Ok, so here's my code basically. Normally I'd spend a bit more time trying to figure it out but I'll be away for the next couple days so I thought I could run it by you guys first


public class stuff {

public static Tile[] tileReference;
//a reference array to keep tile objects reference-able by tile number (this is a calc/computer project)
public static TileSelector tileContainer; //need to declare this outside of the main class so it can be accessed by other nested static classes in 'stuff'
...
public static class TileSelector extends JPanel {
..stuff
 public void paintComponent(Graphics g) {
  //initial drawing stuff
  for(int i =0; i<tileReference.length, i++)
   tileReference[i].drawTile(blah blah blah)
 }
}
...
public static void main(String[] args) {
...stuff initializing contents of tileReference
tileContainer = new TileSelector();
...
}
Right at that tileReference[].drawTile method I get a NullPointerException at runtime. In the main method, the first creation of a TileSelector occurs after I've initialized the contents of tileReference.

Does anybody have any ideas on how to get around this? If anyone has suggestions on how to better organize my code, I'm also welcome to that. I need tileReference[] to be accessible by many different methods and classes, and the instance tileContainer needs to be accessible by one other class (well to be specific, the active tile, which is encapsulated in the tileSelector class needs to be accessible. I suppose I could make that another instance of the main class "stuff" but i might run into complications, as mouse events in the tileSelector need to be able to modify the active tile. I might be ablet o give it a go but I'm not sure if that would solve the problem) .

Happy Thanksgiving! (if you're into that)

It's been over six months since the last Axe update. Quigibo's activity began to decline, and soon Axe development seemed to have ground to a halt. However, management of the project has been temporarily passed to Runer112, an extremely proficient assembly and Axe coder and responsible for many of the optimizations now thought standard by the community and for many of the speedy routines you can find in Axe 1.1.2.

After a lot of work, Runer112 has released a fresh update. The original post can be found here.

Axe Parser
Omega 1.2.0

---

It's Thanksgiving, and this year, we can all give thanks for Axe living on! Just temporarily under new management.

New Features:

• Have the need for speed? Using #ExprOn will request that all following code and called Axe routines be optimized for speed instead of size! Using #ExprOff does the reverse. Currently this only affects a few Axe routines (*, Pt-On(), Pt-Change(), DrawInv, Horizontal+/-, >Hex), but more will come! Axe Fusion always uses the fastest Axe routines available.
• Continuing with the speed theme, DispGraphRecallPic has been added! It's the same as DispGraph and then RecallPic, but it's almost as fast as DispGraph alone.
• Fixed point division! Syntax is: /*
• Fixed point square! Syntax is: ²^r
• Labels and constant names can be up to 13 characters long!
• No longer corrputs the OS when unlocking flash!
• Even shinier commands list! BIG thanks to jacobly! I'm also trying to add size and speed data for everything; it's a work in progress, so please excuse errors/missing values for now.
• Full support for big endian variables.
• Signed min() and max(): just throw on an ^r.

Changed:

• Better string parsing, including spelling out multi-character tokens, more reliable "var", and "grp" (w) is now "tmp"; these arbitrary-size variables will be automatically deleted on exiting.
• Optimized most DispGraph variants: all but 4-level DispGraphClrDraw are smaller, which is larger because...
• 4-level DispGraphClrDraw is about 15% faster. Also, 4-level DispGraph is about 5% faster.
• Optimized >Hex, stdDev(), Horizontal-(EXPR), getKey(EXPR), ^-1, interrupts, and all archived variable routines slightly.
• Optimized more stuff that I forgot.
• nib{}^r now always reads from the half of memory your code exists in.
• inData(0,DATA) now returns 0, so no more adding 1 to all your key checks!
• ln(0) now returns -1, it seems slightly more proper than 255.
• Disp >Tok accepts the same argument type as Text >Tok.
• Added "signed" equal and not equal operators.
• Added optimizations for ^10, //0, and //-1, not that the latter two will ever be needed.
• The A-theta variables have been moved, so L₁ is now 768 bytes long by default.
• When pointed into a variable in RAM, the Y_1T and Y_2T variables will be updated automatically if the variable is moved.
• The X_1T and X_2T variables will act similarly when pointed into a VAT entry.
• The X_4T-Y_6T variables have been added.
• Slightly larger but faster multiplications by some large powers of 2.
• Fixed a bug when a string displayed in an app went offscreen.
• Fixed drawing sprites to arbitrary buffers.
• Fixed rectangle clipping.
• Fixed the size of the stdDev() subroutine.
• Fixed some Axe fusion-related bugs.
• Fixed some bugs with the token hook.
• Fixed some bugs with comments.
• Fixed some peephole optimization bugs.
• Fixed a silly typo in an error message.
• Fixed many errors in the command list.
• Fixed many other bugs that I forgot about.
• And probably introduced some bugs!

This topic has been moved to General Calculator Help.

http://ourl.ca/17482