home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJSRC / TESTCLICK.SRC.txt < prev    next >
Text File  |  2020-08-13  |  409b  |  27 lines
  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.