241 lines
8.0 KiB
ArmAsm
Executable File
241 lines
8.0 KiB
ArmAsm
Executable File
* External references
|
|
; jewel.of.kaldun.s
|
|
DATA EXT
|
|
; input.output.s
|
|
PRSTR EXT
|
|
|
|
********************************
|
|
* Print a room description for *
|
|
* the location at (cx,cy). *
|
|
* If on/in some item, describe *
|
|
* that. *
|
|
********************************
|
|
|
|
ROOMDESC JSR CBOT3
|
|
LDA #22 ; set vtab at 23.
|
|
STA TLINE
|
|
JSR TEXTADDR
|
|
LDX CX
|
|
LDY CY
|
|
JSR MAPINDEX
|
|
CMP #100
|
|
BGE :DOROOMS
|
|
CMP #12 ; won't handle a # > 11.
|
|
BLT :THINGS
|
|
CMP #99 ; handle special chest
|
|
BNE :BLANK
|
|
LDA #12 ; special case
|
|
JMP :THINGS
|
|
:BLANK LDA #0
|
|
:THINGS ASL
|
|
TAY
|
|
LDA D:THINGS,Y
|
|
STA DATA
|
|
LDA D:THINGS+1,Y
|
|
STA DATA+1
|
|
JSR PRSTR
|
|
RTS
|
|
:DOROOMS CMP #254
|
|
BLT :DOROOM0
|
|
BEQ :DORM254
|
|
PRINT ROOM255
|
|
RTS
|
|
:DORM254 PRINT ROOM254
|
|
RTS
|
|
:DOROOM0 SEC
|
|
SBC #100
|
|
CMP #63 ; deal with only rooms
|
|
BLT :ROOMS ; 100 - 162.
|
|
LDA #63 ; print warning msg.
|
|
:ROOMS ASL
|
|
TAY
|
|
LDA D:ROOMS,Y
|
|
STA DATA
|
|
LDA D:ROOMS+1,Y
|
|
STA DATA+1
|
|
JSR PRSTR
|
|
RTS
|
|
|
|
D:THINGS DA SHAPE00,SHAPE01,SHAPE02,SHAPE03
|
|
DA SHAPE04,SHAPE05,SHAPE06,SHAPE07
|
|
DA SHAPE08,SHAPE09,SHAPE10,SHAPE11
|
|
DA SHAPE99
|
|
SHAPE00 HEX 00
|
|
SHAPE01 HEX 00
|
|
SHAPE02 HEX 00
|
|
SHAPE03 HEX 83
|
|
ASC "You are in a doorway."00
|
|
SHAPE04 HEX 00
|
|
SHAPE05 HEX 83
|
|
ASC "You are in a secret passage."00
|
|
SHAPE06 HEX 83
|
|
ASC "You stand before a chest."00
|
|
SHAPE07 HEX 83
|
|
ASC "You stand before an opened chest."00
|
|
SHAPE08 HEX 83
|
|
ASC "You stand before a ladder."00
|
|
SHAPE09 HEX 83
|
|
ASC "You stand before an ornate throne."00
|
|
SHAPE10 HEX 83
|
|
ASC "You are before the fabled"8D83
|
|
ASC "Jewel of Kaldun!"00
|
|
SHAPE11 HEX 83
|
|
ASC "You are before an empty stand..."00
|
|
SHAPE99 HEX 83
|
|
ASC "... A very ornate chest ..."00
|
|
|
|
D:ROOMS DA ROOM100,ROOM101,ROOM102,ROOM103
|
|
DA ROOM104,ROOM105,ROOM106,ROOM107
|
|
DA ROOM108,ROOM109,ROOM110,ROOM111
|
|
DA ROOM112,ROOM113,ROOM114,ROOM115
|
|
DA ROOM116,ROOM117,ROOM118,ROOM119
|
|
DA ROOM120,ROOM121,ROOM122,ROOM123
|
|
DA ROOM124,ROOM125,ROOM126,ROOM127
|
|
DA ROOM128,ROOM129,ROOM130,ROOM131 ; boo-boo in map:
|
|
DA ROOM132,ROOM133,ROOM134,ROOM135 ; no 131-139 rooms!
|
|
DA ROOM136,ROOM137,ROOM138,ROOM139
|
|
DA ROOM140,ROOM141,ROOM142,ROOM143
|
|
DA ROOM144,ROOM145,ROOM146,ROOM147
|
|
DA ROOM148,ROOM149,ROOM150,ROOM151
|
|
DA ROOM152,ROOM153,ROOM154,ROOM155
|
|
DA ROOM156,ROOM157,ROOM158,ROOM159
|
|
DA ROOM160,ROOM161,ROOM162,ROOM163
|
|
ROOM100 HEX 83
|
|
ASC "You are in front of the castle."00
|
|
ROOM101 HEX 83
|
|
ASC "You stand in the courtyard."00
|
|
ROOM104 ; same message as #102
|
|
ROOM102 HEX 83
|
|
ASC "You are in a secret hallway."00
|
|
ROOM103 HEX 83
|
|
ASC "The south-west tower."00
|
|
ROOM105 HEX 83
|
|
ASC "The south-east tower."00
|
|
ROOM106 HEX 83
|
|
ASC "The guards room."00
|
|
ROOM107 HEX 83
|
|
ASC "The captain of the guards room."00
|
|
ROOM108 HEX 83
|
|
ASC "Someones' horde of ???"00
|
|
ROOM109 HEX 83
|
|
ASC "A hidden closet."00
|
|
ROOM110 HEX 83
|
|
ASC "The ladder room."00
|
|
ROOM111 HEX 83
|
|
ASC "A hall."00
|
|
ROOM112 HEX 83
|
|
ASC "The processional hall."00
|
|
ROOM113 HEX 83
|
|
ASC "The guest room."00
|
|
ROOM114 HEX 83
|
|
ASC "You are in the kitchen."00
|
|
ROOM115 HEX 83
|
|
ASC "The storage room."8D83
|
|
ASC "It smells a bit in here!"00
|
|
ROOM116 HEX 83
|
|
ASC "The Kings' guards room."00
|
|
ROOM117 HEX 83
|
|
ASC "The Kings' closet."00
|
|
ROOM118 HEX 83
|
|
ASC "The Kings' bathroom."00
|
|
ROOM119 HEX 83
|
|
ASC "A private hall."00
|
|
ROOM120 HEX 83
|
|
ASC "The Kings' bedroom."00
|
|
ROOM121 HEX 83
|
|
ASC "The throne room and"8D83
|
|
ASC "audience chamber."00
|
|
ROOM122 HEX 83
|
|
ASC "The dining room."00
|
|
ROOM123 HEX 83
|
|
ASC "The wine cellar."00
|
|
ROOM124 HEX 83
|
|
ASC "The north-west tower."00
|
|
ROOM125 HEX 83
|
|
ASC "The wizards' magic chamber!"00
|
|
ROOM126 HEX 83
|
|
ASC "The wizards' room."00
|
|
ROOM127 HEX 83
|
|
ASC "A secret back passage..."00
|
|
ROOM128 HEX 83
|
|
ASC "The north-east tower."00
|
|
ROOM129 HEX 83
|
|
ASC "You stand behind the castle"8D83
|
|
ASC "Freedom is but a step away!"00
|
|
ROOM130 HEX 83
|
|
ASC "You stand somewhere on the"8D83
|
|
ASC "second level!"00
|
|
ROOM131 ; these rooms do not exist
|
|
ROOM132 ; on either level!!
|
|
ROOM133
|
|
ROOM134
|
|
ROOM135
|
|
ROOM136
|
|
ROOM137
|
|
ROOM138
|
|
ROOM139 HEX 00 ; cover for boo-boo
|
|
ROOM140 HEX 83
|
|
ASC "You stand in a long, winding"8D83
|
|
ASC "hallway."00
|
|
ROOM141 HEX 83
|
|
ASC "... some odd little room ..."00
|
|
ROOM142 HEX 83
|
|
ASC "This appears to be a reception"8D83
|
|
ASC "room."00
|
|
ROOM143 HEX 83
|
|
ASC "Boy, this guy must've been rich!"00
|
|
ROOM144 HEX 83
|
|
ASC "You have no idea what this empty room"8D83
|
|
ASC "was used for!"00
|
|
ROOM145 HEX 83
|
|
ASC "... another hallway ..."00
|
|
ROOM146 HEX 83
|
|
ASC "... and yet one more hallway ..."00
|
|
ROOM147 HEX 83
|
|
ASC "This looks like a great hall."00
|
|
ROOM148 HEX 83
|
|
ASC "A guests' room?"00
|
|
ROOM149 HEX 83
|
|
ASC "Maybe this is a guest room."00
|
|
ROOM150 HEX 83
|
|
ASC "And yet, another guest room!"00
|
|
ROOM151 HEX 83
|
|
ASC "Boy, one more ..."00
|
|
ROOM152 HEX 83
|
|
ASC "Wait, maybe these are servants"8D83
|
|
ASC "quarters!"00
|
|
ROOM153 HEX 83
|
|
ASC "Someone must've done a lot of"8D83
|
|
ASC "work here. The walls are black!"00
|
|
ROOM154 HEX 83
|
|
ASC "There is a beautiful jewel in"8D83
|
|
ASC "this room."00
|
|
ROOM155 HEX 83
|
|
ASC "The south-west tower has a beautiful"8D83
|
|
ASC "view of the landscape."00
|
|
ROOM156 HEX 83
|
|
ASC "Boy, ain't this fun?"00
|
|
ROOM157 HEX 83
|
|
ASC "The south-east tower doesn't have as"8D83
|
|
ASC "beautiful a view as the south-west."00
|
|
ROOM158 HEX 83
|
|
ASC "Time to leave this place, eh?"00
|
|
ROOM159 HEX 83
|
|
ASC "Where do you think you are going?"00
|
|
ROOM160 HEX 83
|
|
ASC "The north-west tower... Ah, there"8D83
|
|
ASC "is a ladder!"00
|
|
ROOM161 HEX 83
|
|
ASC "Boy, you feel tired."00
|
|
ROOM162 HEX 83
|
|
ASC "The south-west tower... There is a"8D83
|
|
ASC "ladder here!"00
|
|
ROOM163 HEX 83
|
|
ASC "Oh dear, I have no idea what room"8D83
|
|
ASC "this is!!"00
|
|
ROOM254 HEX 83
|
|
ASC "A rather broken up ladder."00
|
|
ROOM255 HEX 83
|
|
ASC "A smashed chest."00
|
|
|