home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / OBJSRC / TESTCLICK.SRC < prev    next >
Encoding:
Text File  |  1993-05-07  |  410 b   |  27 lines  |  [04] ASCII Text (0x0000)
  1.          ORG $300
  2. ;
  3. USRVECT  EQU $0A
  4. ;
  5. ; SETUP OBJECT DEFINITIONS
  6.          JSR TESTOBJ1
  7.          RTS
  8. ;
  9. ; TEST OBJECT
  10. TESTOBJ  EQU $01
  11. TESTOBJ1 LDA #$00
  12.          STA $FA
  13.          JSR USRVECT
  14.          DFB TESTOBJ
  15.          DFB 0,0,0,0,0,0,0
  16.          CLV
  17.          BVC IMPCODE
  18.          DFB $00
  19. ;
  20. IMPCODE  LDA #01
  21.          STA $C0A0
  22.          LDA $C030
  23.          LDA #$00
  24.          STA $C0A0
  25.          CLC
  26.          RTS
  27. ;