Omnimaga > News

Grammer 2.51 released!

<< < (2/2)

E37:
So this isn't optimized or even tested, but this should work...
I didn't use code formatting because for some reason that breaks superscripts.

#Axiom(MEMKIT)
Return!If GetCalc(oOp1, Y1) .Get the pointer to the file in Op1 and return if it isn't found
!If {Y1}r-EBB6D .Assembly programs have the header of 0xBB6D. I might have this reversed and it should be '!If {Y1}r-E6DBB'
.Its an assembly program
New(E9D95, 0, {Y1-2}r->X) .Make space in ram to copy the program to. I don't test to see if there is enough ram but New() should return 0 if it failed...
Copy(Y1, E9D95, X) .Copy the program to 0x9D95
X:Asm(E5) .Save the size of memory that was created. Asm(E5) is Push HL
Asm(CD(E9D95)) .Jump to the program like a subroutine
Asm(E1)->X .Pop the saved value for the size of the program
Delete(E9D95, 0, X) .Remove the memory we created.=
Else
.Its a basic program
oOp1
Asm(EF(whatever the bcall is to run basic programs))
End

NonstickAtom785:
Thanks for the AXE example. I need to download that axiom. I was going along the same lines as you though except I was using just op codes at first with a little of Axes boolean.

Navigation

[0] Message Index

[*] Previous page