河北大学电子信息工程学院 07 通信工程 计算机钢琴9附 录源程序如下：STACK SEGMENT STACKDW 256 DUP(?)TOP LABEL WORDSTACK ENDSDATA SEGMENTDAT DW 524,588,660,698,784,880,988DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKSTART:MOV AX,DATAMOV DS,AXMOV AX,STACKMOV SS,AXMOV SP,OFFSET TOPPP:MOV AH,01HINT 21HA:SUB AL,30HCMP AL,08HJG OVER1CMP AL,01HJB OVER1CMP AL,08HJE OVERCALL SOUNDJMP PPOVER1:JMP OVERSOUND PROC NEARPUSH AXPUSH BXPUSH CXPUSH USH DIMOV BX,OFFSET DATSHL AL,01CBWSUB AX,0002HMOV SI,AXMOV DI,BXSIMOV DX,7AHMOV AX,1200HDIV DIMOV DX,203HMOV AL,0B6HMOV DX,202HOUT DX,ALMOV AL,AHOUT DX,ALMOV DX,20BHMOV AL,80HOUT DX,ALMOV DX,209HMOV AL,3OUT DX,ALMOV BX,0FFFHWAIT:MOV CX,0FFFHDELAY:LOOP DELAYDEC BXJNE WAIT河北大学电子信息工程学院 07 通信工程 计算机钢琴10MOV AL,0OUT DX,ALPOP DIPOP OP CXPOP BXPOP AXRETSOUND ENDPOVER:MOV AH,4CHINT 21HCODE ENDSEND START