Going from calc compiling to Computer Compiling
» > >
»
» View previous topic :: View next topic  
When I try to compile this code:


Code:
.nolist
   #include   "ti83plus.inc"
.list
.org   $9D93
.db   t2ByteTok, tAsmCmp

DI
b_call (_RUNINDICOFF)
RES 5,(IY)
b_call (_CLRSCRNFULL)
;kill the run indicator and done message

LD HL,0202H
LD (CURROW),HL
LD HL,STXT3
b_call (_PUTS)
;display the Penguin Studios logo

LD D,FFH
LD E,80H
LD B,D
CALL PLAYNOTE
LD B,FFH
CALL PLAYNOTE
CALL QQQ
LD B,90H
CALL PLAYNOTE
CALL QQQ
LD B,90H
CALL PLAYNOTE
CALL QQQ
LD B,90H
CALL PLAYNOTE
LD E,30H
LD B,FFH
CALL PLAYNOTE
CALL QQQ
LD E,A0H
LD B,FFH
CALL PLAYNOTE
LD E,80H
LD B,FFH
CALL PLAYNOTE
LD B,FFH
CALL PLAYNOTE
;play the opening music

JP MENU
QQQ:
LD BC,500
QQQ2:
DEC BC
JR NZ,QQQ2
RET
;delaying between notes

MENU:
b_call (_CLRSCRNFULL)
b_CALL (_HOMEUP)
LD HL,STXT
SET 3,(IY+5)            ;set text inverse
B_CALL (_PUTS)
LD HL,STXT2
RES 3,(IY+5)            ;reset text inverse
BCALL PUTS
;displays the menu

MENUL:
LD D,$FF
LD E,$90
LD B,$20
CALL PLAYNOTE            ;first note to play
LD E,$B0
LD B,$10
CALL PLAYNOTE            ;2nd note to play
LD A,$BF
OUT (1),A            ;send the key group to check for 2nd/mode
IN A,(1)            ;read the key port
BIT 6,A               ;check for mode
JP Z,END2
BIT 5,A               ;check for 2nd
JP NZ,MENUL
LD HL,0
LD (SCORE),HL            ;reset the score
LD A,48
LD (XPOS),A
LD A,32
LD (YPOS),A            ;load the starting position
LD A,0
LD (EATEN),A            ;reset the amount of dots eaten
LD A,255
LD (EATEN+1),A            ;reset the current level
;play some notes while waiting for either 2nd or MODE to be pressed

NEWLEV:
LD A,0
LD (EATEN),A
LD A,(EATEN+1)
INC A
LD (EATEN+1),A            ;add one to the level
LD HL,PLOTSSCREEN
LD DE,PLOTSSCREEN+1
LD BC,02FFH
LD (HL),0            ;clear the plot screen
LDIR

LD HL,CLN
LD DE,PLOTSSCREEN
LD BC,12
LDIR               ;draw the top line

LD HL,CLN
LD DE,PLOTSSCREEN+756
LD BC,12
LDIR               ;draw the bottom line

LD D,0
LD L,1
LD E,63
CALL DRAWVERT            ;draw the left line

LD D,95
LD L,1
LD E,63
CALL DRAWVERT            ;draw the right line

LD A,(EATEN+1)
OR A
JR Z,DONESDRAW            ;done drawing if on level 1

LD D,32
LD L,10
LD E,53
CALL DRAWVERT            ;add a verticle line

LD D,64
LD L,10
LD E,53
CALL DRAWVERT            ;add another verticle line

LD A,(EATEN+1)
CP 1
JR Z,DONESDRAW            ;done drawing if on level 2

LD DE,PLOTSSCREEN+384
LD BC,12
LD HL,CLN2
LDIR
               ;draw another horizontal line
DONESDRAW:
CALL SAFECOPY

NEWRAND:
LD HL,(WINY)
CALL GETPIX
XOR (HL)
LD (HL),A

BADRAND:
LD HL,(RANDREF)
LD A,(HL)
RES 7,A
RES 6,A
LD (WINY+1),A
INC HL
LD A,(HL)
RES 7,A
RES 6,A
RES 5,A
LD B,A
ADD A,B
ADD A,B
LD (WINY),A
INC HL
LD (RANDREF),HL
LD HL,(WINY)
CALL GETPIX
OR (HL)
CP (HL)
JP Z,BADRAND
LD (HL),A
CALL SAFECOPY
MOVE:
LD HL,NOTES
LD A,(NREF)
CP 32
CALL Z,RESNREF
LD D,0
LD E,A
ADD HL,DE
INC A
LD (NREF),A
LD E,(HL)
LD D,FFH
LD B,15H
CALL PLAYNOTE
LD HL,(SCORE)
INC HL
LD (SCORE),HL
LD A,(DIR)
OR A
JP Z,MDOWN
DEC A
JP Z,MLEFT
DEC A
JP Z,MUP
LD HL,XPOS
INC (HL)
JP DRAW
MUP:
LD HL,YPOS
DEC (HL)
JP DRAW
MLEFT:
LD HL,XPOS
DEC (HL)
JP DRAW
MDOWN:
LD HL,YPOS
INC (HL)
DRAW:
LD A,(YPOS)
LD B,A
LD A,(WINY)
CP B
JP Z,CHECKX
NOWIN:
LD HL,(YPOS)
CALL GETPIX
OR (HL)
CP (HL)
JP Z,END
LD (HL),A
CALL SAFECOPY
KEY:
LD A,FFH
OUT (1),A
DEC A
OUT (1),A
IN A,(1)
LD HL,MOVE
PUSH HL
LD HL,DIR
RRA
JR NC,UP
RRA
JR NC,LEFT
RRA
JR NC,RIGHT
RRA
JR NC,DOWN
RET
DOWN:
LD (HL),2
RET
LEFT:
LD (HL),1
RET
RIGHT:
LD (HL),3
RET
UP:
LD (HL),0
RET
CHECKX:
LD A,(XPOS)
LD B,A
LD A,(WINY+1)
CP B
JP NZ,NOWIN
LD C,100
LD B,0
LD HL,(SCORE)
ADD HL,BC
LD (SCORE),HL
LD A,(EATEN)
INC A
LD (EATEN),A
CP 3
JP Z,NEWLEV
LD D,FFH
LD E,2AH
LD B,90H
CALL PLAYNOTE
JP NEWRAND
END:
B_CALL (_CLRSCRNFULL)
B_CALL (_HOMEUP)
LD HL,TXT
B_CALL (_PUTS)
LD HL,(SCORE)
B_CALL (_DISPHL)
LD D,FFH
LD E,0
LR:
INC E
LD B,04H
CALL PLAYNOTE
LD A,FDH
OUT (1),A
IN A,(1)
RRA
JP NC,MENU
DJNZ LR
DEC B
LD E,B0H
CALL PLAYNOTE
LD B,C0H
LD E,80H
CALL PLAYNOTE
LD B,FFH
LD E,B0H
CALL PLAYNOTE
JP END
END2:
EI
B_CALL (_CLRSCRNFULL)
B_CALL (_HOMEUP)
RET
PLAYNOTE:
LD C,B
PLAYN:
LD B,D
PLAY2:
LD A,D1H
OUT (0),A
DJNZ PLAY2
LD B,E
PLAY3:
LD A,D0H
OUT (0),A
DJNZ PLAY3
DEC C
JR NZ,PLAYN
RET
DRAWVERT:
LD A,E
SUB L
RET Z
PUSH AF
LD H,D
CALL GETPIX
POP BC
LD DE,12
LD C,A
PLOTLOOP:
LD A,C
OR (HL)
LD (HL),A
ADD HL,DE
DJNZ PLOTLOOP
RET
GETPIX:
LD A,H
LD H,0
LD E,L
LD D,H
ADD HL,DE
ADD HL,DE
ADD HL,HL
ADD HL,HL
LD E,A
SRL E
SRL E
SRL E
ADD HL,DE
LD DE,PLOTSSCREEN
ADD HL,DE
AND 7
INC A
LD B,A
LD A,1
GETPIXLOOP:
RRCA
DJNZ GETPIXLOOP
RET
RESNREF:
LD A,0
LD (NREF),A
RET
SAFECOPY:
LD C,10H
LD A,80H
CALL LCDDELAY
OUT (10H),A
LD A,20H
CALL LCDDELAY
OUT (10H),A
LD HL,9334H
LD DE,12
SAFECPY1:
LD B,64
EX AF,AF'
SAFECPY2:
ADD HL,DE
LD A,(HL)
CALL LCDDELAY
OUT (11H),A
DJNZ SAFECPY2
EX AF,AF'
LD H,93H
INC L
INC A
CALL LCDDELAY
OUT (10H),A
CP 2CH
JR NZ,SAFECPY1
RET
LCDDELAY:
IN (C)
RET P
JP LCDDELAY
EATEN:
.DB 0,255
RANDREF:
.DW 1000H
WINY:
.DB 0,0
NREF:
.DB 0
NOTES:
.DB 90H,90H,90H,B8H,B8H,B8H,B8H,A0H,A0H,A0H,A0H,A0H,56H,56H,56H,A0H,58H,63H,FFH,23H,23H,23H,64H,64H,64H,64H,64H,64H,64H,64H,64H,64H
STXT2:
.DB "[2ND]-Play      [MODE]-Quit",0
STXT3:
.DB "(C) 5-2-2007                         A        Penguin Studios    Production",0
SCORE:
.DW 0
MUS:
.DW 0
DIR:
.DB 0
YPOS:
.DB 32
XPOS:
.DB 48
TXT:
.DB "Your Score:     ",0
CL:
.DB 0,0,0,0,0,0,0,0,0,0,0,0
CLN2:
.DB 80,0,0,0,FFH,FFH,FFH,FFH,0,0,0,1
CLN:
.DB FFH,FFH,FFH,FFH,FFH,FFH,FFH,FFH,FFH,FFH,FFH,FFH
STXT:
.DB "Nibls With Music",0

.end
.end


(sorry it's so long)

I get 877 errors. The majority of which are one of:

* can't find label FFH (or similar)
* can't find label jp (or similar)
* label not found: ADD


Please help! It's been a while since I've compiled on a computer, so I'm probably missing some obvious things (thinks about not knowing to change the file name when submitting to archives Laughing )

Also, I started adding comments to the code, but obviously enough I have not finished.


BTW, optimizations are welcomed Smile
Penguin Studios
That's because you capitalized everything. You could add a million equates, or change things to lowercase. You could speed it up with a Javascript toLowerCase function.

Code:
.nolist
   #include   "ti83plus.inc"
.list



Code:
.nolist
#define equ .equ
#define EQU .equ
#define end .end
#define END .end
#include   "ti83plus.inc" ;note that include is left-aligned.
.list
haveacalc wrote:
That's because you capitalized everything. You could add a million equates, or change things to lowercase. You could speed it up with a Javascript toLowerCase function.


Or Open Offices =D
Any fool can use a computer. Many do.





The header and labels are the only things that shouldn't be left-indented.
I've given up trying to sync all of my sigs at once.
Go look at my UTI Profile and make my life easier. Thnx.
Harrierfalcon wrote:
The header and labels are the only things that shouldn't be left-indented.
That too. Everything except labels and the header (.nolist through .list) needs at least one space or tab before it.
And the hex postfix should be a lowercase 'h' - although prefixes are usually a better option Wink
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup)
Kllrnohj wrote:
And the hex postfix should be a lowercase 'h' - although prefixes are usually a better option Wink
Most assemblers are case-insensitive as far as I've found so far.
KermMartian wrote:
Kllrnohj wrote:
And the hex postfix should be a lowercase 'h' - although prefixes are usually a better option Wink
Most assemblers are case-insensitive as far as I've found so far.


I said that in response to this error:

Quote:
* can't find label FFH (or similar)
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup)
Looks to me like the errors are due to not indenting your code.
タリ ·· Ask questions the smart way ·· digipres.club
Kllrnohj wrote:
KermMartian wrote:
Kllrnohj wrote:
And the hex postfix should be a lowercase 'h' - although prefixes are usually a better option Wink
Most assemblers are case-insensitive as far as I've found so far.


I said that in response to this error:

Quote:
* can't find label FFH (or similar)
That's because when you postfix with H and the first character of the hex number is A-F, you have to add an additional zero: 0FFH.
KermMartian wrote:
That's because when you postfix with H and the first character of the hex number is A-F, you have to add an additional zero: 0FFH.


Huh, learn something new everyday. Oh well, I'm still a fan of prefixing Smile.
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup)
Kllrnohj wrote:
KermMartian wrote:
That's because when you postfix with H and the first character of the hex number is A-F, you have to add an additional zero: 0FFH.


Huh, learn something new everyday. Oh well, I'm still a fan of prefixing Smile.
Same here. I just think $ff look better than 0ffh. Smile
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Going from calc compiling to Computer Compiling
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement