Advertisement
Guest User

Untitled

a guest
Jul 21st, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. ;Call a super class method.
  2.  
  3. #rdxy view1 ;Macro, RegPtr to view1
  4. jsr ptrthis ;Write to THIS, and set CLASS
  5.  
  6. ldy #addchild ;Offset to class method
  7. jsr getmethod ;Copy method address to method redirect
  8.  
  9. #rdxy child ;Macro, RegPtr to data, arguments for the method
  10. jsr sysjmp ;Call the method
  11.  
  12. rts
  13.  
  14. view1 .word $0000 ;Points to some object
  15. child .word $0000 ;Points to another object
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement