home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJSRC / TESTOBJ.SRC.txt < prev    next >
Text File  |  2020-08-13  |  878b  |  57 lines
  1. ;TEST OBJECTS
  2. ;
  3.          ORG $300
  4. ;
  5. USRVECT  EQU $0A
  6. ;
  7. RECEIVER EQU $FA
  8. MSGPTR   EQU $FB
  9. SENDER   EQU $FD
  10. OBJADR   EQU $FE
  11. ;
  12. ; SETUP OBJECT DEFINITIONS
  13.          JSR TESTOBJ
  14.          JSR TEST2
  15.          RTS
  16. ;
  17. ; TEST OBJECT
  18. TESTOBJ  LDA #$00
  19.          STA RECEIVER
  20.          JSR USRVECT
  21.          DFB $01
  22.          DFB 0,0,0,0,0,0,0
  23.          CLV
  24.          BVC IMPCODE
  25.          DFB $00
  26. ;
  27. IMPCODE  LDA #'E'
  28.          JSR $FDED
  29.          RTS
  30. ;
  31. ;
  32. TEST2    LDA #$00
  33.          STA RECEIVER
  34.          JSR USRVECT
  35.          DFB $02
  36.          DFB 0,0,0,0,0,0,0
  37.          CLV
  38.          BVC CODE2
  39.          DFB $00
  40. ;
  41. CODE2    LDA #1
  42.          STA RECEIVER
  43.          JSR USRVECT
  44.          BCC CODE2A
  45.          BRK
  46. CODE2A   LDA #1
  47.          STA RECEIVER
  48.          JSR USRVECT
  49.          BCC CODE2B
  50.          BRK
  51. CODE2B   LDA #1
  52.          STA RECEIVER
  53.          JSR USRVECT
  54.          BCC CODE2C
  55.          BRK
  56. CODE2C   RTS
  57.