Avalon: Routine at 32549

32549: Draw the intro sequence landscape


Draws the graphics for the landscape silhouette used the intro sequence. Graphics are stored at 33439. Draw a 1-character high middle strip of the landscape containing most of the rolling hills
32549	LD A,26	Strip of landscape, 26 columns wide
32551	LD (35759),A	Strip of landscape, 26 columns wide
32554	LD A,1	1 (character) row high
32556	LD (35760),A	1 (character) row high
32559	LD DE,33439	Pointer to landscape graphics data
32562	LD HL,16611	Set screen display address to the left/middle of the screen
32565	CALL 33267	Draw graphics
Draw the small trilith-shaped structure over on the left of the scene
32568	LD A,1	Just 1 character to draw so 1 column, 1 row
32570	LD (35759),A
32573	LD A,1
32575	LD (35760),A
32578	LD DE,33655	Point to graphics data
32581	LD HL,16585	Point to screen location to draw at
32584	CALL 33267	Draw on screen
Draw top section of the thin vertical structure in middle of landscape
32587	LD A,1	Just 1 character to draw (1 column, 1 row)
32589	LD (35759),A
32592	LD A,1
32594	LD (35760),A
32597	LD DE,33663	Point at graphics data
32600	LD HL,16592	Point to place on screen to draw at
32603	CALL 33267	Draw graphics
Cyan highlighted structure on the right of the screen
32606	LD A,4	4 columns
32608	LD (35759),A	4 columns
32611	LD A,1	1 row
32613	LD (35760),A	1 row
32616	LD DE,33671	Point at graphics data
32619	LD HL,16596	Point at place on screen to draw at
32622	CALL 33267	Draw to screen
Highest highlighted structure visible over on the right
32625	LD A,2	2 columns
32627	LD (35759),A	2 columns
32630	LD A,1	1 row
32632	LD (35760),A	1 row
32635	LD DE,33703	Point at graphics data
32638	LD HL,16565	Point at place on screen to draw at
32641	CALL 33267	Draw to screen
Set the 2 cyan attributes on the structure over on the right
32644	LD HL,22709	First highlight on slightly higher part
32647	LD (HL),13	Cyan colour (INK 5, PAPER 1)
32649	LD HL,22740	...and the part to its lower-left
32652	LD (HL),13	...and the part to its lower-left
Lower part of tall cyan highlighted tower structure
32654	LD A,4	4 columns
32656	LD (35759),A	4 columns
32659	LD A,1	1 row
32661	LD (35760),A	1 row
32664	LD DE,33719	Point at graphics data
32667	LD HL,18447	Point at place on screen to draw at
32670	CALL 33267	Draw to screen
Set the highlight colour and a few other attributes alongside it
32673	LD HL,22799	The bottom of the tower cyan highlight/reflection just drawn
32676	LD (HL),5	Set to cyan (INK 5, PAPER 0)
32678	INC HL	Set the 3 squares to the right of it to blue/black (INK 0, PAPER 1)
32679	LD (HL),8
32681	INC HL
32682	LD (HL),8
32684	INC HL
32685	LD (HL),8
Draw the moon
32687	LD HL,16525	Point at place on screen to draw at
32690	LD A,1	Just 1 character so 1 column, 1 row
32692	LD (35760),A
32695	LD (35759),A
32698	LD DE,33751	Point at moon graphic data
32701	CALL 33267	Draw it on screen
Stars in top right of screen
32704	LD HL,16505	Drawing position set to top right of scene
32707	LD A,1	1 row
32709	LD (35760),A	1 row
32712	LD A,3	3 columns (characters) to draw
32714	LD (35759),A	3 columns (characters) to draw
32717	LD DE,33759	Point at stars graphic data
32720	CALL 33267	Draw them on screen
Stars in top left of screen
32723	LD HL,16517	Draw position in top left of scene
32726	LD A,1	Just 1 character - 1 row, 1 column
32728	LD (35760),A
32731	LD (35759),A
32734	LD DE,33784	Point at graphics data
32737	CALL 33267	Draw them on screen
Cyan moon reflection colour and then graphic on right of small trilith
32740	LD HL,22730	Attribute display address location
32743	LD (HL),13	Cyan colour (INK 5, PAPER 1)
32745	LD HL,16586	Screen address display location for graphic
32748	LD A,1	1 character (1 row, 1 column)
32750	LD (35760),A
32753	LD (35759),A
32756	LD DE,33792	Point at graphics data
32759	CALL 33267	Draw on screen
Cyan moon reflection colour and then graphic on top of small trilith
32762	LD HL,22697	Attribute display address location
32765	LD (HL),13	Cyan colour (INK 5, PAPER 1)
32767	LD HL,16553	Cyan colour (INK 5, PAPER 1)
32770	LD A,1	1 character (1 row, 1 column)
32772	LD (35760),A
32775	LD (35759),A
32778	LD DE,33800	Point at graphics data
32781	CALL 33267	Draw on screen
Cyan moon reflection colour and then graphic on left of small vertical tower
32784	LD HL,22767	Second character square of tower screen attribute display position
32787	LD (HL),13	Cyan colour (INK 5, PAPER 1)
32789	LD HL,22735	Top character square of tower screen attribute display position
32792	LD (HL),13	Cyan (INK 5, PAPER 1)
Next, the graphics
32794	LD A,2	2 (vertical) rows
32796	LD (35760),A	2 (vertical) rows
32799	LD A,1	1 (character-wide) column
32801	LD (35759),A	1 (character-wide) column
32804	LD HL,33808	Point at graphics data
32807	LD (31940),HL
32810	LD HL,16591
32813	CALL 33319	Draw on screen
This scene is used both for the intro screen for a new game and the screen where you load a saved game.
32816	LD A,(35754)	Retrieve the Menu Controls option selected (1-4)
32819	LD E,A	...and store it in the E register
32820	LD A,(35755)	Retrieve the game flag (0 = New Game, 1 = Existing Game)
32823	LD D,A	...and store it in the D register
32824	RET	...and store it in the D register