@@ -181,50 +181,6 @@ void OPInit(void)
181181// while (objectType != 4);
182182//}
183183
184-
185- void OPDumpObjectList (void )
186- {
187- unsigned i ;
188-
189- for (i = 0 ; i < numberOfObjects ; i ++ )
190- {
191- uint32_t address = object [i ];
192-
193- uint32_t hi = JaguarReadLong (address + 0 , OP );
194- uint32_t lo = JaguarReadLong (address + 4 , OP );
195- uint8_t objectType = lo & 0x07 ;
196- uint32_t link = ((hi << 11 ) | (lo >> 21 )) & 0x3FFFF8 ;
197- WriteLog ("%08X: %08X %08X %s -> $%08X" , address , hi , lo , opType [objectType ], link );
198-
199- if (objectType == 3 )
200- {
201- uint16_t ypos = (lo >> 3 ) & 0x7FF ;
202- uint8_t cc = (lo >> 14 ) & 0x07 ; // Proper # of bits == 3
203- WriteLog (" YPOS %s %u" , ccType [cc ], ypos );
204- }
205-
206- WriteLog ("\n" );
207-
208- // Yes, this is how the OP finds follow-on phrases for bitmap/scaled
209- // bitmap objects...!
210- if (objectType == 0 )
211- DumpFixedObject (OPLoadPhrase (address + 0 ),
212- OPLoadPhrase (address | 0x08 ));
213-
214- if (objectType == 1 )
215- DumpScaledObject (OPLoadPhrase (address + 0 ),
216- OPLoadPhrase (address | 0x08 ), OPLoadPhrase (address | 0x10 ));
217-
218- if (address == link ) // Ruh roh...
219- {
220- // Runaway recursive link is bad!
221- WriteLog ("***** SELF REFERENTIAL LINK *****\n\n" );
222- }
223- }
224-
225- WriteLog ("\n" );
226- }
227-
228184//
229185// Object Processor memory access
230186// Memory range: F00010 - F00027
0 commit comments