home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / MIDIFTP.BAK.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  107 lines
  1. ;MIDI FTP
  2.          ORG       $6000
  3.          JMP       INITPGM
  4. ;--------------------------
  5. ;
  6. ZP1L     EQU       $06
  7. ZP1H     EQU       $07
  8. ZP2L     EQU       $08
  9. ZP2H     EQU       $09
  10. ;
  11. MIDISLOT DFB       $20
  12. BUFSTRTL DFB       $00
  13. BUFSTRTH DFB       $20
  14. BUFENDL  DFB       $00
  15. BUFENDH  DFB       $60
  16. ;
  17. INBYTE   DFB       $00
  18. PHASE    DFB       $00
  19. DATAMSK1 DFB       $00
  20. DATAMSK2 DFB       $00
  21. DATA1    DFB       $00
  22. DATA2    DFB       $00
  23. ;-------------------------------------------------
  24. INITPGM  LDA   #$13
  25.          LDX   MIDISLOT
  26.          STA   $C088,X
  27.          LDA   #$11    
  28.          STA   $C088,X
  29.          LDA   BUFSTRTL
  30.          STA   ZP1L
  31.          LDA   BUFSTRTH
  32.          STA   ZP1H
  33.          LDA   $C010
  34. MAINLOOP LDA   $C000
  35.          BMI   ADIOS
  36.          LDX   MIDISLOT
  37.          LDA   $C088,X       
  38.          AND   #$01       
  39.          BEQ   MAINLOOP
  40.          LDX   MIDISLOT    
  41.          LDA   $C089,X   
  42.          CMP   #$F1
  43.          BCS   MAINLOOP
  44. SYSXRET  STA   INBYTE 
  45.          JMP   PRCSBYTE   
  46. ADIOS    LDA   $C010
  47.          LDA   $07
  48.          JSR   $FDDA
  49.          LDA   $06
  50.          JSR   $FDDA
  51.          RTS   
  52. ;------------------------------
  53. PRCSBYTE LDA       INBYTE
  54.          BPL       DATABYTE
  55.          AND       #$F0
  56.          CMP       #$80
  57.          BNE       STSFF
  58.          LDA       INBYTE
  59.          AND       #$02
  60.          CLC
  61.          ROR       A
  62.          ROR       A
  63.          ROR       A
  64.          STA       DATAMSK1
  65.          LDA       INBYTE
  66.          AND       #$01
  67.          CLC
  68.          ROR       A
  69.          ROR       A
  70.          STA       DATAMSK2
  71.          LDA       #$81
  72.          STA       PHASE
  73.          JMP       MAINLOOP
  74. STSFF    LDA       #$FF
  75.          STA       PHASE
  76.          JMP       MAINLOOP
  77. ;-----------------------------
  78. DATABYTE LDA       PHASE
  79.          CMP       #$81
  80.          BNE       CHK82
  81.          LDA       INBYTE
  82.          STA       DATA1
  83.          LDA       #$82
  84.          STA       PHASE
  85.          JMP       MAINLOOP
  86. CHK82    CMP       #$82
  87.          BNE       PHASEFF
  88.          LDA       INBYTE
  89.          STA       DATA2
  90.          LDA       DATA1
  91.          ORA       DATAMSK1
  92.          LDY       #$00
  93.          STA       (ZP1L),Y
  94.          LDA       DATA2
  95.          ORA       DATAMSK2
  96.          INY
  97.          STA       (ZP1L),Y
  98.          INC       ZP1L
  99.          INC       ZP1L
  100.          LDA       ZP1L
  101.          BNE       CONTINUE
  102.          INC       ZP1H
  103. CONTINUE LDA       #$81
  104.          STA       PHASE
  105. PHASEFF  JMP       MAINLOOP
  106. ;
  107.