changeset 14:adfc4ab79eeb

Add some better labels for some things. Add better labels for the command jump table, object image table, and the wizard graphics.
author William Astle <lost@l-w.ca>
date Mon, 22 Dec 2014 23:11:19 -0700
parents 26d73f210da8
children 58013a960ec6
files dod.s
diffstat 1 files changed, 52 insertions(+), 52 deletions(-) [+]
line wrap: on
line diff
--- a/dod.s	Mon Dec 22 22:51:46 2014 -0700
+++ b/dod.s	Mon Dec 22 23:11:19 2014 -0700
@@ -468,7 +468,7 @@
 		rts					
 LC0D1		dec V277
 		bsr LC114
-		ldx #LDF10
+		ldx #img_wizard
 		dec V29E
 		fadein
 		renderstrimmp				display <CR>"I DARE YE ENTER..."<CR>
@@ -1147,7 +1147,7 @@
 		blo LC5B5
 		rts
 ; This routine handles player death
-LC5B5		ldx #LDF10			
+LC5B5		ldx #img_wizard			
 		dec V29E
 		fadeinclrst
 		renderstrimmp
@@ -1372,7 +1372,7 @@
 		dec V2AD
 		dec V2B1
 		dod S0D
-LC751		ldx #LCE66
+cmd_look	ldx #LCE66
 		stx V2B2
 		dod S0E
 		rts
@@ -2886,7 +2886,7 @@
 		showprompt
 LD2B4		stu V211
 		puls a,b,x,y,u,pc
-LD2B8		jsr LCC31
+cmd_attack	jsr LCC31
 		ldu ,u
 		bne LD2C2
 		ldu #VB07
@@ -2991,7 +2991,7 @@
 LD383		asra
 		rorb
 		rts
-LD386		ldx #LDF10
+LD386		ldx #img_wizard
 		fadeinclrst
 		renderstrimmp
 		fcb $ff,$c0,$57,$3e		packed string "ENOUGH! I TIRE OF THIS PLAY..."
@@ -3084,7 +3084,7 @@
 		rola
 		std ,s
 		puls a,b,x,pc
-LD44E		ldd V213
+cmd_climb	ldd V213
 		jsr LCFE1
 		bmi LD46F
 		sta V2C1
@@ -3108,7 +3108,7 @@
 		dod S1A
 		dod S19
 		rts
-LD481		ldx #LD495
+cmd_examine	ldx #LD495
 		stx V2B2
 		dod S0E
 		rts
@@ -3182,7 +3182,7 @@
 		skip2
 LD51E		bsr LD4FE
 		puls a,b,x,pc
-LD522		bsr LD576
+cmd_get		bsr LD576
 		bne LD573
 		jsr LCBBA
 		clr V291
@@ -3204,7 +3204,7 @@
 		ldb b,x
 		clra
 		bra LD56B
-LD550		bsr LD576
+cmd_drop	bsr LD576
 		beq LD573
 		clra
 		clrb
@@ -3225,7 +3225,7 @@
 		bra LD5B7
 LD573		jmp LCBE1
 LD576		jmp LCC31
-LD579		bsr LD576
+cmd_stow	bsr LD576
 		beq LD573
 LD57D		ldd V229
 		std ,x
@@ -3234,7 +3234,7 @@
 		clrb
 		std ,u
 		bra LD5B7
-LD589		bsr LD576
+cmd_pull	bsr LD576
 		bne LD573
 		jsr LCBBA
 		ldx #V229
@@ -3260,7 +3260,7 @@
 LD5B7		dod S0D
 		dod S0E
 		rts
-LD5BC		ldx #LD8F3
+cmd_incant	ldx #LD8F3
 		jsr LCBEC
 		ble LD5EF
 		tst V27B
@@ -3285,7 +3285,7 @@
 		cmpa #$12
 		beq LD5F0
 LD5EF		rts
-LD5F0		ldx #LDF39
+LD5F0		ldx #img_goodwiz
 		dec V29E
 		fadeinclrst
 		renderstrimmp
@@ -3302,7 +3302,7 @@
 		fcb $9d,$06,$44,$f7
 		fcb $bc
 LD621		bra LD621
-LD623		jsr LCC31
+cmd_reveal	jsr LCC31
 		ldu ,u
 		beq LD63E
 		lda 11,u
@@ -3316,7 +3316,7 @@
 		clr 11,u
 		dod S0D
 LD63E		rts
-LD63F		ldx #LD8D9
+cmd_turn	ldx #LD8D9
 		jsr LCBEC
 		ble LD693
 		ldb V223
@@ -3384,7 +3384,7 @@
 LD6C6		fcb $10,$00,$10,$ff
 		fcb $ff,$88,$00,$88
 		fcb $ff,$fe
-LD6D0		ldx #LD8D9
+cmd_move	ldx #LD8D9
 		jsr LCBEC
 		blt LD693
 		bgt LD6E3
@@ -3438,7 +3438,7 @@
 		jsr LC660
 		tst ,s+
 		puls a,b,pc
-LD741		jsr LCC31
+cmd_use		jsr LCC31
 		beq LD767
 		ldd 9,x
 		cmpb #5
@@ -3498,14 +3498,14 @@
 		stx V2B2
 		dod S0E
 LD7B6		rts
-LD7B7		bsr LD7BC
+cmd_zload	bsr LD7BC
 		dec V2B8
 		rts
 LD7BC		ldx #V313			get start address to set to $ff
 		leau $20,x			set $20 bytes
 		setblock			go clear block to $ff
 		jmp LCB96
-LD7C7		bsr LD7BC
+cmd_zsave	bsr LD7BC
 		stx CBUFAD
 		ldd #$0f
 		std BLKTYP
@@ -3707,28 +3707,28 @@
 		fdb LD8B6
 		fcb $ff
 ; jump table for commands
-LD9D0		fdb LD2B8			ATTACK
-		fdb LD44E			CLIMB
-		fdb LD550			DROP
-		fdb LD481			EXAMINE
-		fdb LD522			GET
-		fdb LD5BC			INCANT
-		fdb LC751			LOOK
-		fdb LD6D0			MOVE
-		fdb LD589			PULL
-		fdb LD623			REVEAL
-		fdb LD579			STOW
-		fdb LD63F			TURN
-		fdb LD741			USE
-		fdb LD7B7			ZLOAD
-		fdb LD7C7			ZSAVE
+LD9D0		fdb cmd_attack			ATTACK
+		fdb cmd_climb			CLIMB
+		fdb cmd_drop			DROP
+		fdb cmd_examine			EXAMINE
+		fdb cmd_get			GET
+		fdb cmd_incant			INCANT
+		fdb cmd_look			LOOK
+		fdb cmd_move			MOVE
+		fdb cmd_pull			PULL
+		fdb cmd_reveal			REVEAL
+		fdb cmd_stow			STOW
+		fdb cmd_turn			TURN
+		fdb cmd_use			USE
+		fdb cmd_zload			ZLOAD
+		fdb cmd_zsave			ZSAVE
 ; pointers to the image data for object types
-LD9EE		fdb LDC19			flask
-		fdb LDC21			ring
-		fdb LDC2A			scroll
-		fdb LDBFA			shield
-		fdb LDC0F			sword
-		fdb LDC07			torch
+LD9EE		fdb img_flask			flask
+		fdb img_ring			ring
+		fdb img_scroll			scroll
+		fdb img_shield			shield
+		fdb img_sword			sword
+		fdb img_torch			torch
 
 LD9FA		fcb $05,$01
 
@@ -3789,8 +3789,8 @@
 		fdb LDE9D
 		fdb LDE07
 		fdb LDDA3
-		fdb LDF65
-		fdb LDF10
+		fdb img_wizardgen
+		fdb img_wizard
 
 LDABB		fcb $00
 
@@ -3884,7 +3884,7 @@
 		fcb $ff
 
 ; image data for a shield
-LDBFA		fcb 134,172
+img_shield	fcb 134,172
 		fcb 128,192
 		fcb 122,186
 		fcb 128,168
@@ -3892,12 +3892,12 @@
 		fcb $3e,$04,$00
 		fcb $fe
 ; image data for a torch
-LDC07		fcb 118,60
+img_torch	fcb 118,60
 		fcb $fc
 		fcb $f7,$ff,$2a,$00
 		fcb $fe
 ; image data for a sword
-LDC0F		fcb 114,80
+img_sword	fcb 114,80
 		fcb 124,100
 		fcb $ff
 		fcb 118,82
@@ -3905,17 +3905,17 @@
 		fcb $fe
 
 ; image data for a flask
-LDC19		fcb 110,162
+img_flask	fcb 110,162
 		fcb $fc
 		fcb $51,$0e,$b1,$00
 		fcb $fe
 ; image data for a ring
-LDC21		fcb 122,60
+img_ring	fcb 122,60
 		fcb $fc
 		fcb $11,$1f,$ff,$f1,$00
 		fcb $fe
 ; image data for a scroll
-LDC2A		fcb 118,194
+img_scroll	fcb 118,194
 		fcb $fc
 		fcb $1f,$34,$f1,$dc,$00
 		fcb $fe
@@ -4247,7 +4247,7 @@
 		fcb 20,98
 		fcb $FE
 ; Image for the Wizard
-LDF10		fcb 46,98
+img_wizard	fcb 46,98
 		fcb $fc
 		fcb $21,$2f,$2d,$fd,$ce,$c2,$f2,$12
 		fcb $0f,$1e,$3f,$21,$12,$e3,$e0,$00
@@ -4256,9 +4256,9 @@
 		fcb $21,$2f,$2d,$fd,$ce,$c2,$f2,$12
 		fcb $0f,$1e,$3f,$22,$12,$e2,$e0,$00
 		fcb $fd
-		fdb LDF65
+		fdb img_wizardgen
 ; Image for the "good" wizard
-LDF39		fcb 40,86
+img_goodwiz	fcb 40,86
 		fcb 64,92
 		fcb 42,100
 		fcb 54,82
@@ -4278,7 +4278,7 @@
 		fcb 80,116
 		fcb $fc
 		fcb $53,$ec,$e4,$4d,$b0,$00
-LDF65		fcb 64,124
+img_wizardgen	fcb 64,124
 		fcb $fc
 		fcb $4e,$c0,$7b,$9c,$d4,$e4,$e1,$e1
 		fcb $dd,$1c,$96,$03,$00