Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Call a super class method.
- #rdxy view1 ;Macro, RegPtr to view1
- jsr ptrthis ;Write to THIS, and set CLASS
- ldy #addchild ;Offset to class method
- jsr getmethod ;Copy method address to method redirect
- #rdxy child ;Macro, RegPtr to data, arguments for the method
- jsr sysjmp ;Call the method
- rts
- view1 .word $0000 ;Points to some object
- child .word $0000 ;Points to another object
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement