home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / OOTEST.txt < prev    next >
Text File  |  2020-08-13  |  609b  |  34 lines
  1. ; SAMPLE OBJECT
  2. ;
  3.          ORG $300
  4. ;
  5. ;
  6. OODRIVER EQU $0A
  7. BASE     EQU $06
  8. ;
  9. ; *** TESTOB ***
  10. ;
  11.          JSR OODRIVER
  12.          ASC 'OSETUP'        ;OBJECT TO INVOKE
  13.          ASC 'TESTOB'        ;DATA FOR OSETUP OBJECT
  14. ;
  15.          CLV                 ;BASE+0,1,2
  16.          BVC CODE
  17. ;
  18. ;local variables:
  19.          DFB $00,$00
  20. VARX     EQU 3               ;BASE+3
  21. VARY     EQU 4               ;BASE+4
  22. ;
  23. ;
  24. CODE     LDY #VARX          ;ADD 1 TO BASE
  25.          LDA (BASE),Y
  26.          CLC
  27.          ADC #$01
  28.          STA (BASE),Y
  29.          LDY #VARY
  30.          LDA (BASE),Y
  31.          ADC #$00
  32.          STA (BASE),Y
  33.          RTS
  34.