home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SOURCE / ANNRAWSYSX.SRC next >
Encoding:
Text File  |  2001-07-11  |  2.5 KB  |  99 lines  |  [04] ASCII Text (0x0000)
  1. ; THIS VERSION IS FOR ANNUNCIATOR MIDI DRIVER AT $9000
  2. ; SEND MEMORY DUMP VIA RESEARCH SYSEX (F0 7D ... F7)
  3. ;
  4. ; DATA SENT IN 7 BYTE CHUNKS USING 8 MIDI BYTES 
  5. ; FIRST 7 BYTES ARE DATA BYTES WITH HI BIT STRIPPED
  6. ; 8TH BYTE CONTAINS HI BIT FOR THE PREVIOUS 7 DATA BYTES
  7. ; BIT 7 IS FOR THE FIRST BYTE, BIT 6 FOR THE SECOND
  8. ;
  9. ; EACH SYSX MESSAGE IS A PACKET OF 105 DATA BYTES SENT AS 
  10. ; 15 GROUPS OF 7 DATA BYTES, OR 120 MIDI BYTES PLUS 3 
  11. ; BYTES OVERHEAD.  THIS GIVES AN EXPANSION RATIO OF 1.17
  12. ;
  13. ; MEMORY BUFFER FROM $3000 TO $3FFF WILL BE SENT
  14. ; (4096 BYTES / 7 = 586 PACKETS = 39 MESSAGES + LAST MSG)
  15. ;
  16. ; DISPLAY DOTS ON SCREEN FOR THE 39 MESSAGES
  17. ; PLAY A NOTE ON AT THE BEGINNING AND END OF THE TRANSMISSION
  18. ;
  19.          ORG       $7000
  20. MSTS     EQU       $C0A8 
  21. MIDI     EQU       $C0A9
  22. ;
  23.          JMP       START
  24. HIBITS   DFB       $00
  25. BUFSTART DFB       $00,$30
  26. NUMMSGS  DFB       39
  27. MSGCTR   DFB       0
  28. ;
  29. START    LDA       BUFSTART
  30.          STA       BUFPOKE+1
  31.          LDA       BUFSTART+1
  32.          STA       BUFPOKE+2
  33.          LDA       NUMMSGS
  34.          STA       MSGCTR    
  35.          LDA       #$13
  36.          STA       MSTS
  37.          LDA       #$11
  38.          STA       MSTS
  39.          JSR       BUFLOOP
  40.          RTS
  41. ;
  42. POKEMIDI JSR $9005
  43.          RTS
  44. ;
  45. ;BUFLOOP  LDA       #$F0
  46. ;         JSR       POKEMIDI
  47. ;         LDA       #$7D
  48. ;         JSR       POKEMIDI
  49. BUFLOOP  LDA       #$00
  50.          STA       HIBITS
  51. ;
  52. BUFPOKE2 LDY       #15
  53. BUFPOKE1 LDX       #7
  54. BUFPOKE  LDA       $3000
  55.          PHA
  56.          AND       #$7F
  57.          JSR       POKEMIDI
  58.          PLA
  59.          AND       #$80
  60.          ASL       A
  61.          ROL       HIBITS              
  62.          INC       BUFPOKE+1
  63.          BNE       NEXTBYTE
  64.          INC       BUFPOKE+2
  65. NEXTBYTE DEX
  66.          BNE       BUFPOKE       
  67.          LDA       HIBITS
  68.          JSR       POKEMIDI
  69.          LDA       #$00
  70.          STA       HIBITS
  71.          DEY
  72.          BNE       BUFPOKE1
  73.          LDA       #$AE
  74.          JSR       $FDED
  75. ;         LDA       #$F7
  76. ;         JSR       POKEMIDI
  77.          DEC       MSGCTR
  78.          LDA       MSGCTR
  79.          BNE       BUFLOOP
  80. ;
  81. ;         LDA       #$F0
  82. ;         JSR       POKEMIDI
  83. ;         LDA       #$7D
  84. ;         JSR       POKEMIDI
  85.          LDA       #$00
  86.          STA       HIBITS
  87.          LDA       $3FFF
  88.          BPL       LASTONE 
  89.          LDA       #$40
  90.          STA       HIBITS
  91. LASTONE  LDA       $3FFF 
  92.          AND       #$7F
  93.          JSR       POKEMIDI
  94.          LDA       HIBITS
  95.          JSR       POKEMIDI
  96. ;         LDA       #$F7
  97. ;         JSR       POKEMIDI
  98.          RTS
  99. ;