This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Topics - Yeong
1
« on: February 02, 2019, 11:04:13 pm »
I ported my textbox program to a grammer module.
How to use it:
"5RTEXT->>DMS
>DMSTBOX(x1,y1,width,height,String_Pointer[,NextPage_Key, Skip_Key
With hook,
"5RTEXT->$
$TBOX(x1,y1,width,height,String_Pointer[,NextPage_Key, Skip_Key
2
« on: January 28, 2019, 02:01:28 pm »
EDIT: Finished product here https://www.omnimaga.org/asm-language/working-on-textbox-program-for-asm/msg406844/#msg406844So, I decided that the best way to learn how to z80 is by coding small things. Basically, I want to make a program that takes 4 variables from the list {X initial, Y initial, Maximum rows of text, Maximum columns of text} and Str1, and draw a textbox out of it. I wrote a pseudocode(?) for it so far. Any comments or feedback is appreciated because I have no idea what I'm doing. Get String from OS
Get X,Y coordinates
Get # of rows and cols
Store them to Coor
;Calc 2+maxX+4. Character is 4 pixels wide.
ld a,(tCol)
ld b,3
__:
add a,a
djnz __
add a,6
ld (mX),a
;now 2+maxY+6. Character is 6 pixels long.
ld a,(tRow)
ld b,5
___:
add a,a
djnz ___
add a,8
ld (mY),a
call DrawRect
;string starts at X+2,Y+2
call ResetLine
Put string length in bc
ld ix,String
;until it reads through all the text
Loop:
push bc ;save length
ld a,(mX)
cp (penCol)
call z,NextLine
ld a,(mY)
cp (penRow)
call z,ResetLine
ld a,(ix) ;now start checking characters
cp 'o' ;the degree sign - force cursor to next line
jr nz,Jump1
call NextLine
Jump1:
cp 'e^';e^ will make it wait for a keypress
jr nz,Jump2
call WaitForKey
Jump2:
ld (HChara),a
ld hl,HChara
bcall(_VPutS)
inc ix
call Delay ;force delay between texts
pop bc
dec bc
jr c, Loop ;if c is set, that means the loop went through all the text I think?
ret
DrawRect:
;Draw Rectangle at (X,Y,X+2+4*col,Y+2+6*row)
ld d,a
push de
;Something that clears inside the rect
ld l,(cX)
ld h,(cY)
ld a,(tCol)
sub 4
ld e,a
ld a,(tRow)
sub 6
ld d,a
bcall(_DrawRectBorder)
pop de
ld a,d
ret
NextLine:
ld d,a
ld a,(cX)
add a,2
ld (penCol),a
ld a,(penRow)
add a,6
ld (penRow),a
ld a,d
ret
ResetLine:
jr DrawRect
ld d,a
ld a,(cX)
inc a
inc a
ld (penCol),a
ld a,(cY)
inc a
inc a
ld (penRow),a
ld a,d
ret
Pause:
ld b,(Delay)
_:
nop
djnz _
ret
WaitForKey:
ld d,a
bcall(_getKey)
ld a,d
ret
Delay:
.db 40
cX:
.db x
cY:
.db y
tCol:
.db col
tRow:
.db row
mX:
.db 2+maxX+4
mY:
.db 2+maxY+6
HChara:
.db 0EDIT: routine calls changed from jr to call. Renamed variables for easier readability
3
« on: January 27, 2019, 08:33:39 pm »
So I have this.
#include "ti83plus.inc"
.org $9D93
.db t2ByteTok, tAsmCmp
bcall(_ClrLCDFull)
bcall(_getKey)
ld (Keystore),a
ld a,0
ld (curCol),a
ld (curRow),a
ld hl,Hello
bcall(_PutS)
ld a,1
ld (curRow),a
ld a,Keystore
ld h,0
ld l,a
bcall(_DispHL)
bcall(_getKey)
bcall(_ClrLCDFull)
ret
Hello:
.db "You pressed",0
Keystore:
.db 0
The compiler throws a warning at "ld a,Keystore" part, saying that the number is too big for 8-bit and is being truncated.
What am I doing wrong here?
4
« on: November 27, 2013, 03:40:21 pm »
So I got one and finally figured out how to put notes :V
(Figuring out FL Slayer was pain)
I dunno much about the soundfonts and stuff but I guess I can figure out stuff eventually.
5
« on: November 16, 2013, 05:37:21 pm »
I think the problem started when I plugged into the USB 3.0 port. (It had a little symbol with "usb" and a battery symbol next to it, so I thought it was for USB charging  ) But then, after that, the charging stopped working correctly and even now, when I connect to the wall charger, the battery symbol alternates with plugs symbol and the lightning symbol. What happened to my calc? :<
6
« on: November 11, 2013, 09:42:35 pm »
Can we fix this (  ) to something else? It's creeping me out 
7
« on: January 10, 2013, 11:57:46 pm »
This is for my project and will be credited appropriately.
Size and stuffs are in description.
Basically I need a animating fire and ice spell.
8
« on: December 28, 2012, 09:42:28 pm »
Huzzah!  I'm porting Illusiat 11 for contest!  (with all-mighty Grammer) I'm about 70% done with the new battle engine (even though it doesn't look like it in the screenshot, since screenshot only contains some sprite tests) Since Grammer only supports 3 lvl greyscale, I'll have to live with it  Also, blame wabbit about flickeringness.
9
« on: December 27, 2012, 06:04:29 pm »
Illusiat 11. All I did was removing a damage cap. no cheating regards on damage was involved. lv 99. 
10
« on: December 22, 2012, 08:51:19 am »
What's this?! We all lived!  Anyways, now that the contest is over, I'll upload the programs to let the people give their opinion - on poll! I've received 4 entries and here they are! -Battle 4000 -One Day Left -Juke II -Cataclysm This poll will run for 3 days (until Christmas!) NOTE: For One Day Left, all you need is ONEDAY.8xp and 2 appvars archived. Rest of them are sources.
11
« on: December 11, 2012, 05:33:24 pm »
Well I did fine on other questions until I reached this:
f(x) = ln (11-x)
inf.
It's supposed to be ln 11 + sigma SOMETHING.
n=1
How could I get this "SOMETHING" ?
12
« on: December 06, 2012, 11:58:23 am »
Maybe we can post sprites here.
13
« on: November 25, 2012, 08:12:40 pm »
Well I found my ti 89 titanium today and had an urge to program it. Is there an in depth tutorial for ti-basic? The furthest I've figure out is a getkey.
14
« on: November 13, 2012, 12:02:07 am »
After through discussion with some members and KermMartian (because of the overlap issue with Cemetech contest 9), I decided to host a little contest! 2012 Apocalypse Programming ContestDate: 11/14-12/21 The apocalypse is coming... Nobody exactly knows the reason of such atrocious event... Some say that it's the sudden spread of the nikki simulator...Some say that it's the returning of the giant blue lobster with a pink name...but we can be sure of one thing... The contest is happening!  Theme: any apocalypse themed game/utility. (Zombie Apocalypse, financial crash, missing sandwich, you name them!) Language: Axe/Grammer/TI-BASIC (with libs to a certain extent)/asm Devices: TI-83+/84+ Deadline: December 21, 2012 11:59 PM EST Well since this is a minicontest hosted by me (and lack of funds.), there will be no computer section  The result will be in December 25th (I hope) and the winner will receive $20!
Participants will be required to make a thread about it and post the link in this thread.Axioms are allowed, but the project that was started before November 1st is not allowed. Grading will be weighted based on the programming language and other possible advantages. Jointing with Cemetech contest 9: It is possible to enter a same entry in Cemetech contest 9 as long as the entry meets the criteria. But remember. This contest ends a month earlier then Cemetech contest 9! Submitting Entries: Just submit the zip file with proper documentaion (You know, readme!) to [email protected]! Paricipants: TheMachine02 - Cataclysm - RECEIVED Matrefeytontias - EndGam3Xeda112358 - Battle 4000 - RECEIVED zero44 - One Day LeftXiiR3CR34T10N - Juke II - RECEIVED
15
« on: October 31, 2012, 11:16:09 pm »
Rawr.
|
Show Posts
