Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- text segment 'code'
- assume CS:text, SS:text, DS:text,ES:text
- org 100h
- main proc
- JMP M0
- ;текст программы
- RESULT DB 2 DUP('$')
- STR1 DB '012345678'
- M0:
- XOR CH,CH
- MOV CL,DS:[80h]
- JCXZ SOUND
- MOV CX,8
- MOV SI,82h
- SUB DI,DI
- MOV BL,[SI]
- LEA SI,RESULT
- M1:
- MOV AL,BL
- AND AL,00000001b
- CMP AL,0
- JE M3
- M2:
- SHR BL,1
- LOOP M1
- MOV AH, STR1[DI]
- MOV [SI], AH
- MOV AH,09h
- LEA DX, RESULT
- INT 21H
- JMP EXIT
- M3:
- INC DI
- JMP M2
- SOUND:
- cli
- in AL, 61h
- mov CX,2000
- begin:push CX
- or AL, 00000010b
- out 61h,AL
- mov CX,1000
- cikl:loop cikl
- and AL, 11111101b
- out 61h,AL
- mov CX,1000
- cikl1: loop cikl1
- pop CX
- loop begin
- sti
- EXIT:
- mov AX,4C00h;завершение
- INT 21h ;программы
- main endp
- ;определения данных
- text ends
- end main
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement