home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / CNTLPANL.SRC0.txt < prev    next >
Text File  |  2020-08-13  |  4KB  |  136 lines
  1. ; CNTLPANL.SRC0
  2. ;
  3. USRVECT             EQU $0A  ;APPLESOFT USR() FUNCTION
  4. MIDIOUT             EQU $19  ;  INTERRUPT ROUTINE MIDI OUT REGISTER
  5. LASTSTAT            EQU $14  ;  INTERRUPT ROUTINE LAST STATUS BYTE SENT
  6. TEMPOL              EQU $04  ;  INTERRUPT ROUTINE TEMPO LO REGISTER
  7. TEMPOH              EQU $05  ;  INTERRUPT ROUTINE TEMPO HI REGISTER
  8. SENDOUT             EQU $0F  ;  INTERRUPT ROUTINE FUNCTION TO SEND MIDI OUT
  9. ;
  10.                     ORG ORIGIN+$0500
  11.                     JMP ENTRYPT
  12. ;
  13. OPENAPP             DFB $00      
  14. SOLIDAPP            DFB $00   
  15. ;
  16. ASAVE               DFB $00    
  17. XSAVE               DFB $00
  18. YSAVE               DFB $00
  19. ;
  20. RCODE               DFB $00  ;OTHER PROGRAMS CAN CHECK $6E08 FOR RCODE
  21. FOUND               DFB $09 
  22. ;
  23. KEY                 DFB $00
  24. ;
  25. USERCHNL            DFB $00
  26. BRECHNL             DFB $00                
  27. BREDATA             DFB $00          
  28. BRECMD              DFB $00          
  29. ;
  30. MAX                 DFB $00                        
  31. NUMCHNL             DFB $00                
  32. ;
  33. STATSAVE            DFB $00  ;TO SAVE LAST STATUS BYTE
  34. ;
  35. TBLEN               DFB $23
  36. ;
  37. KEYS                DFB $20,$1B,$0A,$0B,$08,$15,$43,$42
  38.                     DFB $45,$52,$4D,$30,$31,$32,$33,$34
  39.                     DFB $35,$36,$37,$38,$39,$3D,$2F,$2A
  40.                     DFB $2B,$2D,$2E,$5B,$5D,$7B,$7D,$12
  41.                     DFB $4A,$4C,$50,$4B
  42. ;
  43. HIKEYS              DFB <SPACE,<ESC,<CTRLJ,<CTRLK,<CTRLH,<CTRLU,<CKEY,<BKEY
  44.                     DFB <EKEY,<RKEY,<MKEY,<NUMBER,<NUMBER,<NUMBER,<NUMBER
  45.                     DFB <NUMBER,<NUMBER,<NUMBER,<NUMBER,<NUMBER,<NUMBER
  46.                     DFB <EQUALS,<SLASH,<STAR,<PLUS,<MINUS,<PERIOD
  47.                     DFB <LBRKT,<RBRKT,<LCURL,<RCURL,<CTRLR
  48.                     DFB <JKEY,<LKEY,<PKEY,<KKEY
  49. ;
  50. LOKEYS              DFB >SPACE,>ESC,>CTRLJ,>CTRLK,>CTRLH,>CTRLU,>CKEY,>BKEY
  51.                     DFB >EKEY,>RKEY,>MKEY,>NUMBER,>NUMBER,>NUMBER,>NUMBER
  52.                     DFB >NUMBER,>NUMBER,>NUMBER,>NUMBER,>NUMBER,>NUMBER
  53.                     DFB >EQUALS,>SLASH,>STAR,>PLUS,>MINUS,>PERIOD
  54.                     DFB >LBRKT,>RBRKT,>LCURL,>RCURL,>CTRLR
  55.                     DFB >JKEY,>LKEY,>PKEY,>KKEY
  56. ;
  57. ; FOLLOWING IS DISPLAY LINE
  58. ;
  59. DISPLINE            DFB $4D,$3D
  60. MULTCHAR            DFB $B1
  61.                     DFB $20,$52,$3D  
  62. RVRBCHAR            DFB $B2   
  63.                     DFB $20,$45,$3D       
  64. EFFCHAR             DFB $C4
  65.                     DFB $20,$43,$3D
  66. CHNLCHAR            DFB $B1 
  67.                     DFB $20,$42,$3D
  68. BRILCHAR            DFB $B1 
  69.                     DFB $20,$50
  70. P1HCHAR             DFB $B0
  71. P1LCHAR             DFB $B0
  72. P2HCHAR             DFB $B0
  73. P2LCHAR             DFB $B0
  74. POFFCHAR            DFB $20
  75. SPDLCHAR            DFB $B4 
  76. SPDHCHAR            DFB $B0
  77. LOCLCHAR            DFB $20
  78.                     DFB $54
  79. T1HCHAR             DFB $B0
  80. T1LCHAR             DFB $B0
  81. T2HCHAR             DFB $B0
  82. T2LCHAR             DFB $B0
  83. JOYCHAR             DFB $20
  84. VOLLCHAR            DFB $B0                
  85. VOLHCHAR            DFB $B0
  86. KARACHAR            DFB $20
  87. TRANSPH             DFB $B0
  88. TRANSPL             DFB $B0 
  89. ;
  90. ;
  91. ; HEX-->ASCII
  92. ;
  93. HEXIN               DFB   $00                 
  94. ASCOUTH             DFB   $B0
  95. ASCOUTL             DFB   $B0
  96. ;
  97. HEXASC              STA   HEXIN
  98.                     LDA   HEXIN
  99.                     LSR   A
  100.                     LSR   A
  101.                     LSR   A
  102.                     LSR   A
  103.                     TAX   
  104.                     LDA   ASCTBL,X
  105.                     STA   ASCOUTH
  106.                     LDA   HEXIN
  107.                     AND   #$0F
  108.                     TAX   
  109.                     LDA   ASCTBL,X
  110.                     STA   ASCOUTL
  111.                     LDA   HEXIN
  112.                     RTS
  113. ;
  114. ;  
  115. ASCTBL              DFB   $B0,$B1,$B2,$B3,$B4,$B5,$B6,$B7
  116.                     DFB   $B8,$B9,$C1,$C2,$C3,$C4,$C5,$C6
  117. ;
  118. ;DISPLAY THE LINE
  119. ;
  120. PRINTLIN            LDX   #$28
  121. PRINTCHR            LDA   DISPLINE,X
  122.                     ORA   #$80
  123.                     STA   $07D0,X
  124.                     DEX   
  125.                     BPL   PRINTCHR
  126.                     RTS   
  127. ;
  128. ;
  129. MSEND               LDY   #MIDIOUT
  130.                     STA   (BASL),Y
  131.                     LDA   #SENDOUT
  132.                     JSR   USRVECT
  133.                     RTS
  134. ;
  135.                     CHN   CNTLPANL.SRC0A
  136.