* OctaLoad.s - code to load a pointer to octahedron data

********************************************************
* ** NAME: LoadOcta - get pointer to octahedron 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 octahedron data
															
	NIBHEX	C0       * number of lines reversed nibbles  :  2 nibs
* the line connections 12*8          : 96 nibs
	NIBHEX	001060C0102060B000206080305070D040507090304070A0203080D0003080A0104090C0105090B00040A0C02050B0D0
	NIBHEX	E0       * number of points                  :  2 nibs
* the coords 14*3 = 42 bytes         : 84 nibs
	NIBHEX	0000A7A7000000A700680000006800000068323232DDDDDDDD323232DDDDDDDD323232DD32DD32DD32DD

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

* end - OctaLoad.s