Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; sub_15FCC:
- RunObject:
- move.b (a0),d0 ; get the object's ID
- beq.s RunNextObject ; if it's obj00, skip it
- add.w d0,d0
- add.w d0,d0 ; d0 = object ID * 4
- movea.l Obj_Index-4(pc,d0.w),a1 ; load the address of the object's code
- jsr (a1) ; dynamic call! to one of the the entries in Obj_Index
- moveq #0,d0
- ; loc_15FDC:
- RunNextObject:
- lea next_object(a0),a0 ; load 0bj address
- dbf d7,RunObject
- ; return_15FE4:
- RunObjects_End:
- rts
Advertisement
