home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / SENDNOTE.SRC < prev    next >
Encoding:
Text File  |  1991-03-12  |  588 b   |  68 lines  |  [04] ASCII Text (0x0000)
  1.  
  2. CODE FOR SENDNOTES
  3.  
  4. LDA #10
  5. STA 1B     ; 1B HOLDS TIMER INTERVAL FOR INNERMOST DELAY LOOP
  6. LDA #90
  7. STA 1C     ; 1C HOLDS MIDI INSTRUCTION FOR NOTE ON
  8.  
  9. TOP:
  10. LDY#1
  11. LDA (19),Y
  12. PHA
  13.  
  14. LOOP2:
  15. LDY#0
  16. LDA (19),Y ; 19,1A HOLDS ADDRESSED PASSED TO ROUTINE
  17. TAX
  18.  
  19. LOOP1:
  20. LDA 1B
  21. JSR FCA8
  22. DEX
  23. BNE LOOP1
  24.  
  25. PLA
  26. SEC
  27. SBC#1
  28. PHA
  29. BNE LOOP2
  30.  
  31. ?XMIT:
  32. LDA C0A8
  33. AND #2
  34. BNE ?XMIT
  35. LDA 1C
  36. STA C0A9
  37.  
  38. ?XMIT1:
  39. LDA C0A8
  40. AND #2
  41. BNE ?XMIT1
  42. LDY #3
  43. LDA (19),Y
  44. STA C0A9
  45.  
  46. ?XMIT2:
  47. LDA C0A8
  48. AND #2
  49. BNE ?XMIT1
  50. LDY #2
  51. LDA (19),Y
  52. STA C0A9
  53.  
  54. CLC
  55. LDA 19
  56. ADC #4
  57. STA 19
  58. LDA 1A
  59. ADC #0
  60. STA 1A
  61.  
  62. LDY #3
  63. CMP #FF
  64. BNE TOP
  65. LDY #4
  66. CMP #FF
  67. BNE TOP
  68. RTS