;********************************
;       MIDI音量調(diào)整
;********************************
;出口:  XFS_BZ=0       需發(fā)送標志
;--------------------------------
;資源   無
;--------------------------------
        PROC  MIDI_YLTZ
MIDI_YLTZ:
        PUSH  ACC
        PUSH  00H               ;R0
        PUSH  01H               ;R1
        PUSH  DPH
        PUSH  DPL
        CLR   ES
        ;-------------------------
        MOV   DPTR,#TAB_MIDI_YLTZ
        include "求數(shù)量程序片斷.asm"
MIDI_YLTZ_1:
        include "發(fā)送數(shù)據(jù)程序片斷.asm"
        DJNZ  R1,MIDI_YLTZ_1
        ;-------------------------
        CLR   BZ_XFS           ;需發(fā)送標志,0=需
        SETB  ES
        POP   DPL
        POP   DPH
        POP   01H              ;R1
        POP   00H              ;R0
        POP   ACC
        RET
        include "軟件陷阱.asm"
;********************************
TAB_MIDI_YLTZ:;MIDI音量調(diào)整
        DB    8                         ;數(shù)量
        DB    0F0H,7FH,7FH,04H,01H,00H  ;數(shù)據(jù)
        DB    127                       ;音量
        DB    0F7H                      ;數(shù)據(jù)
        include "軟件陷阱.asm"
;********************************
        END