home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJSRC / HEADER.SRC.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  84 lines
  1. ; ********************************************
  2. ; * XXXXXXXX.SRC - 
  3. ; * (C) 1993, ERIC RANGELL
  4. ; ********************************************
  5. ;
  6. ;------------GLOBAL EQUATES
  7. RECEIVER EQU $FA
  8. MSG      EQU $FB
  9. MYOBJ    EQU $FD
  10. MYADRS   EQU $FE             ;WILL POINT TO 'BASE' WHEN OBJECT INVOKED
  11. ;
  12. USRVECT  EQU $0A             ;APPLESOFT USR VECTOR - USED TO CALL OBJECTS
  13. ;
  14. ;------------OBJECTS REFERENCED
  15. AUXQUEUE EQU  08             ;AUX MEMORY QUEUE MANAGER
  16. PIANOSCR EQU  09             ;DISPLAY MANAGER FOR PIANO SCREEN
  17. MOCKBRD  EQU  10             ;MOCKINGBOARD INTERFACE CONTROLLER
  18. DRUMMACH EQU  11             ;DRUM SOUNDS THROUGH MOCKINGBOARD
  19. DISPLINE EQU  12             ;DISPLAY LINE
  20. HEXASC   EQU  13             ;HEX TO ASC
  21. MIDIFILT EQU  15             ;MIDI STREAM FILTER
  22. INTRFACE EQU  16             ;MIDI INTERFACE CONTROLLER
  23. INTRUPT  EQU  17             ;PRODOS INTERRUPT ALLOCATE/DEALLOCATE
  24. STOPWTCH EQU  18             ;
  25. NOTEMGR  EQU  25             ;NOTE ON/OFF MANAGER
  26. CTRLMGR  EQU  27             ;CTRL CHG MANAGER
  27. PROGMGR  EQU  28             ;PGM CHG MANAGER
  28. SYSXMGR  EQU  31             ;SYSX MGR
  29. ;
  30. ;------------OBJECT HEADER
  31.         ORG $6000
  32. ;
  33.         LDA #$00  ;CALL OBJECT SETUP ROUTINE
  34.         STA $FA
  35.         JSR $000A
  36.         DFB XX              ;OBJECT NUMBER
  37.         DFB 0,0,0,0,0,0,0   ;SAVE AREA
  38. BASE    CLV
  39.         BVC CODE
  40. RETCODE DFB $00             ;RETURN CODE
  41. ;
  42. ;==========================================
  43. ; INTERNAL DATA MAINTAINED BY OBJECT:
  44. ;
  45. ;
  46. ;==========================================
  47. ; METHODS:
  48. ;
  49. ;
  50. ;==========================================
  51. CODE     LDY #0
  52.          LDA (MSG),Y
  53.          CMP #'E'        
  54.          BNE CODED
  55. ;--------
  56. CODED    CMP #'D'
  57.          BNE CODEEX
  58. ;
  59. CODEEX   LDY #RETCODE-BASE
  60.          LDA #12
  61.          STA (MYADRS),Y
  62.          SEC   
  63.          RTS 
  64. ;                                      
  65. ;------------TO CALL AN OBJECT: (REPLACE "OBJNUM" AND "MSGVAR" BELOW)
  66. ;
  67. ;        LDA #OBJNUM
  68. ;        STA RECEIVER
  69. ;        LDA #MSGVAR-BASE
  70. ;        CLC
  71. ;        ADC MYADRS
  72. ;        STA MSG
  73. ;        LDA #00
  74. ;        ADC MYADRS+1
  75. ;        STA MSG+1
  76. ;        JSR USRVECT
  77. ;
  78. ;        BCC MSGOK
  79. ;
  80. ;        JSR $FDDA           ;ERROR HANDLING ROUTINE
  81. ;        BRK
  82. ;
  83. ;MSGOK   ...
  84.