Воспроизвести мелодию спикером (переделать из MASM в FASM)

format MZ
entry   MainSeg:START
 
 
SEGMENT STACK2
    DW 200 DUP(?)
 
SEGMENT DATA2
    OPENSTR DB 'NOW PLAYING: '
    TITLESTR DB 'Internationale$'
    ;音名 (B大调)
    d0 EQU 131
    e0 EQU 147
    f0 EQU 165
    g0 EQU 175
    a0 EQU 196
    b0 EQU 220
    c1 EQU 233
    d1 EQU 262
    e1 EQU 294
    f1 EQU 311
    g1 EQU 349
    a1 EQU 392
    b1 EQU 440
    c2 EQU 466
    d2 EQU 523
    e2 EQU 587
    f2 EQU 622
    g2 EQU 698
    a2 EQU 784
    b2 EQU 880
    s1 EQU 1  ;休止符
    ;频率(每节换一行)
    FREQ DW g1
         DW c2, b1, d2, c2, g1, e1
         DW a1, f1, s1, a1
         DW d2, c2, b1, a1, g1, f1
         DW e1, g1
         DW c2, b1, d2, c2, g1, e1
 
         DW a1, f1, a1, d2, c2
         DW b1, d2, f2, b1
         DW c2, c2, s1, e2, d2
         DW b1, a1, b1, c2, a1
         DW b1, g1, g1, f1, g1
 
         DW a1, a1, d2, c2
         DW b1, b1, s1, d2
         DW d2, b1, g1, g1, f1, g1
         DW e2, c2, a1, b1, c2
         DW b1, d2, c2, c2, a1
 
         DW g1, g1, s1, e2, d2
         DW c2, g1, e1
         DW a1, f1, s1, d2, c2
         DW b1, a1, g1
         DW g1, g1, s1, g1
         DW e2, d2, g1
 
         DW c2, b1, b1
         DW a1, g1, a1, d2
         DW d2, d2, s1, e2, d2
         DW c2, g1, e1
         DW a1, f1, s1, d2, c2
         DW b1, a1, g1
 
         DW e2, e2
         DW g2, f2, e2
         DW d2, e2, f2, s1, f2
         DW e2, e2, d2, d2
         DW c2, s1
 
         DW 0
    ;节拍(设4分音符1拍100ms)
    QUATERBEAT EQU 12 ;四分音符
    OCTABEAT EQU QUATERBEAT/2  ;八分音符
    DICHOTOMOUSBEAT EQU QUATERBEAT*2  ;二分音符
    TIME DW QUATERBEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW DICHOTOMOUSBEAT, QUATERBEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT * 3, QUATERBEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT, QUATERBEAT, QUATERBEAT, QUATERBEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
 
         DW QUATERBEAT + OCTABEAT, OCTABEAT, QUATERBEAT + OCTABEAT, OCTABEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, OCTABEAT, QUATERBEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT, QUATERBEAT, OCTABEAT + OCTABEAT/2, OCTABEAT/2, QUATERBEAT
 
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT + OCTABEAT/2, OCTABEAT/2
         DW QUATERBEAT * 2, QUATERBEAT + OCTABEAT, OCTABEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT + OCTABEAT/2, OCTABEAT/2
         DW QUATERBEAT * 2, QUATERBEAT, QUATERBEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, QUATERBEAT
         DW QUATERBEAT * 2, QUATERBEAT, QUATERBEAT
 
         DW QUATERBEAT * 2, QUATERBEAT + OCTABEAT, OCTABEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, QUATERBEAT, QUATERBEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT + OCTABEAT/2, OCTABEAT/2
         DW QUATERBEAT * 2, QUATERBEAT + OCTABEAT, OCTABEAT
         DW QUATERBEAT * 2, OCTABEAT, OCTABEAT, OCTABEAT + OCTABEAT/2, OCTABEAT/2
         DW QUATERBEAT * 2, QUATERBEAT, QUATERBEAT
 
         DW QUATERBEAT * 3, QUATERBEAT
         DW QUATERBEAT * 2, QUATERBEAT, QUATERBEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, QUATERBEAT, OCTABEAT, OCTABEAT
         DW QUATERBEAT + OCTABEAT, OCTABEAT, QUATERBEAT + OCTABEAT, OCTABEAT
         DW QUATERBEAT * 3, QUATERBEAT
 
 
SING:   ;从数据段取出每个音符的频率数据和节拍时间数据
                ;供SOUND子程序发声
    PUSH DI
    PUSH SI
    PUSH BP
    PUSH BX
REPT2:
    MOV DI, [DS:SI]
    CMP DI, 0
    JZ  ENDSING    ;是否读到结束标志
    MOV BX, [DS:BP]
    CALL SOUND
    ADD SI, 2
    ADD BP, 2
    JMP REPT2
ENDSING:
    POP BX
    POP BP
    POP SI
    POP DI
    RET
 
SOUND:
    PUSH AX
    PUSH BX ;节拍时间
    PUSH CX
    PUSH DX
    PUSH DI ;入口参数DI给定频率数据
    CMP DI, 1 ;是否为休止符
    JZ STDEL
    MOV AL, 0B6H    ;8253初始化(通道2，方波信号)
    OUT 43H, AL
    MOV DX, 12H
    MOV AX, 34DCH   ;计算时间常数
    DIV DI
    OUT 42H, AL     ;设置时间常数
    MOV AL, AH
    OUT 42H, AL
    IN  AL, 61H
    MOV AH, AL
    OR  AL, 3       ;开喇叭，8255I/0端口61H的低两位置
    OUT 61H, AL
DL10ms:
    CALL DELAY
    DEC BX
    JNZ DL10ms
    MOV AL, AH
    OUT 61H, AL     ;关喇叭
    POP DI
    POP DX
    POP CX
    POP BX
    POP AX
    RET
STDEL:
    CALL DELAY
    DEC BX
    JNZ STDEL
    POP DI
    POP DX
    POP CX
    POP BX
    POP AX
    RET
 
DELAY: 
    PUSH AX
    PUSH BX
    PUSH CX
    PUSH DX
    MOV AH, 2CH
    INT 21H
    MOV BX, DX ;    现在的时间:秒.百分秒
    MOV AH, 2CH
    CMP BH, 00H
    JNZ CHECK
CHECK: ;取当前时间进行判断
    INT 21H
    CMP DH, 0
    JNZ NOEXP
ZJUDGE: ;现在时间为0秒不需要+60S判断
    CMP BH, 0
    JZ NOEXP    
    ADD DH, 60H ;59秒到0秒时的判断
NOEXP:
    SUB DX, BX   ; 时差
    CMP DX, 0001H ;精度为1百分秒
    JBE CHECK
    POP DX
    POP CX
    POP BX
    POP AX
    RET
 
 
SEGMENT MainSeg
START:
    MOV AX, DATA2
    MOV DS, AX
    MOV AX, STACK2
    MOV SS, AX
    MOV AH, 09H
    LEA DX, [OPENSTR]
    INT 21H
    LEA SI, [FREQ]
    LEA BP, [TIME]
    CALL SING
    MOV AH, 4CH
    INT 21H