A89: HELP !!!!!


[Prev][Next][Index][Thread]

A89: HELP !!!!!




I been working on nthis program for a while and thought that I had
everything worked out.  But, when I went to assemble it I had 88
errors.  What is wrong with the souce.  Anybody please help me out. 
beware it's a little lengthy but it's my first try at a game.

here it is:

	include	"tios.h"	;ti rom calls
	include	"doorsos.h"	;doors variables and rom calls
	include	"graphlib.h"	;graphic functions
	include	"userlib.h"	;random number functions

	xdef	_ti89
	xdef	_main
	xdef	_comment

_main:
	jsr	graphlib::clr_scr
	bsr	put_level
	bsr	loop
	rts
loop:
	cmp.w	#0,doorsos::kb_vars+$1C
	bne	getkey
	bsr	putsprite
	bsr	moveguys
	bsr	check
	cmp.w	#264,doorsos::MaxHandles+$1E
	beq	main
getkey:
	cmp.w	#KEY_LEFT,doorsos::MaxHandles+$1E
	beq	left
	cmp.w	#KEY_RIGHT,doorsos::MaxHandles+$1E
	beq	right
	cmp.w	#KEY_DOWN,doorsos::MaxHandles+$1E
	beq	down
	cmp.w	#KEY_UP,doorsos::MaxHandles+$1E
	beq	up
	clr	(doorsos::kb_vars+$1C)
	rts
right:
	add.w	#1,d0
	cmp.w	#154,d0
	beq	left
	rts
left:
	sub.w	#1,d0
	cmp.w	#0,d0
	beq	right
	rts
up:
	sub.w	#1,d1
	cmp.w	#0,d1
	beq	down
	rts
down:
	add.w	#1,d1
	cmp.w	#92
	beq	up
	rts
putsprite:
	move.l	player(pc),a0
	move.l	mask(pc),a2
	jsr	graphlib::put_sprite
	rts
moveguys:
	move.w	d0,-(a7)		;/pushes the players position on the stack
	move.w	d1,-(a7)		;\so the put sprite routine can do both
	move.w	#5,d0
	jsr	userlib::random
	move.w	d0,random
	cmp.w	#1,random
	beq	baddie_up
	cmp.w	#2,random
	beq	baddie_left
	cmp.w	#3,random
	beq	baddie_stay
	cmp.w	#4,random
	beq	baddie_right
	move.w	d2,d0			;/moves enemies positions
	move.w	d3,d1			;\into the put_sprite registers
	move.l	baddie(pc),a0
	move.l	mask2(pc),a2
	jsr	graphlib::put_sprite
	move.w	a7,d1			; /
	lea	2(a7),a7		;/'juggling' players values from the
	move.w	a7,d0			;\stack so that the next put sprite works
	lea	2(a7),a7		; \
	rts
baddie_up:
	sub.w	#1,d3
	cmp.w	#-1,d3
	beq	baddie_down
	rts
baddie_down:
	add.w	#1,d3
	cmp.w	#92,d3
	beq	baddie_up
	rts
baddie_left:
	sub.w	#1,d2
	cmp.w	#-1,d2
	beq	baddie_right
	rts
baddie_right:
	add.w	#1,d2
	cmp.w	#154,d2
	beq	baddie_left
	rts
check:
	cmp.w	d0,d2
	beq	collision
	cmp.w	d1,d3
	beq	collision
	rts
collision:
	move.w	#3,-(a7)
	pea	end(pc)
	move.w	#40,-(a7)
	move.w	#70,-(a7)
	jsr	doorsos::DrawStrXY
	lea	10(a7),a7
	jsr	userlib::idle_loop
	jsr	graphlib::clr_scr
	move.w	#3,-(a7)
	pea	credit1(pc)
	move.w	#40,-(a7)
	move.w	#70,-(a7)
	jsr	doorsos::DrawStrXY
	lea	10(a7),a7
	jsr	userlib::idle_loop
	jsr	graphlib::clr_scr
	rts
credit1:
	dc.b	"By: Charlie Boyd",0
end:
	dc.b	"Game Over",0
random:
	dc.w	0
player:
	dc.w	8 		;-> height of the sprite
	dc.w	1		;width in bytes
	dc.b	%00011000
	dc.b	%00100100
	dc.b	%00011000
	dc.b	%11111111
	dc.b	%00011000
	dc.b	%00100100
	dc.b	%00100100
	dc.b	%01100110
mask:
	dc.b	%00000000
	dc.b	%00011000
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00000000

baddie:
	dc.w	8 		;-> height of the sprite
	dc.w	1		;width in bytes
	dc.b	%00000000
	dc.b	%01000010
	dc.b	%01011010
	dc.b	%00100100
	dc.b	%01100110
	dc.b	%01011010
	dc.b	%01111110
	dc.b	%01000100
mask2:
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00000000
	dc.b	%00011000
	dc.b	%00011000
	dc.b	%00100100
	dc.b	%00000000
	dc.b	%00000000
_comment:
	dc.b	"hide & seek"

	end

sorry it's long I have tried everything I could but nothing works.


Follow-Ups: References: