* IcosaLoad.s - code to load a pointer to icosahedron data

********************************************************
* ** NAME: LoadIcosa - get pointer to icosa data
*
* Purpose:
*
* Entry: None
*
* Exit:  C[A] is pointer to data: 1st 2 nibs is number of lines, then
*             a list of data, one for each line, 4 bytes each: 
*                   2 bytes giving point indices for the endpoints
*                   2 bytes pointing to normals of the polys this line is a part of
*             then 2 nibs with the point count, then coords (x,y,z) as 
*             1.7 signed fixed point numbers. There are also poly face normals stored here 
*
* Alters: C[A],A[A]
*
* Calls:
*
* Stack Levels: 0 
*
*
********************************************************

* the shape data

	NIBHEX	E1                                                * number of lines reversed nibbles  :  2 nibs
* the line connections			   : 30*8=240 nibs
	NIBHEX	0010C0E11020C0610020C03140A0D02150A0D0414050D0916070E0A170B0
	NIBHEX	E0F160B0E0113080F0B18090F0513090F0C1105001E150700141107001A1
	NIBHEX	80B01151608011D1409021C190A02181203031B10030317170A041F190B0
	NIBHEX	5181106061A1206061D1304071C100407191A0B081F1005091E12080B1D1

	NIBHEX	02                                                * number of points                  :  2 nibs
* the coords 32*3 = 96 bytes       : 192 nibs
	NIBHEX	0000A7D600732286738A04738A0C7322897385049C850C9CED869C39009CED89
	NIBHEX	9C000068E16103DE7CB052000D0D325F03DDB0B0320D0DDD5F5F3203317C5F2E
	NIBHEX	610D0332B0BD00032EAE0D5FDD03C3005FDE93B04C00B031935FE1AE03B0DD0D

LoadIcosa
	C=PC					* get program counter
	LA(5)		(2+240+2+192)+4 * this far back in table in nibbles
	C=C-A		A			* table pointer value
	RTN				

* end - IcosaLoad.s