Developing.ru

Код: Выделить всё

.model small
.stack 4000h
.data
string_bin_byt label byte
string_bin_word label word
string_bin_dword dq 09ffeh
string_pack dt 0
len_string_pack=$-string_pack
adr_string_pack dd string_pack
string db 20 dup (0)
len_string=$-string
adr_string dd string
a dw -12
b db 3
.code
begin:
mov ax,@data
mov ds,ax
mov es,ax
mov ax,a
idiv b

;Вывод частного:
cbw
mov word ptr string_bin_dword,ax
finit
fild string_bin_dword
fbstp string_pack
lds si,adr_string_pack
add si,len_string_pack-2
les di,adr_string
mov cx,9
cycl:
xor ax,ax
std 
lodsb
shl ax,4
rol al,4
or ax,3030h
xchg ah,al
cld
stosw
loop cycl
mov bx,1
mov cx,len_string
lds dx,adr_string
mov ah,40h
int 21h
mov ah,4ch

xor al,al
int 21h
end begin

Код: Выделить всё

.model small
.stack 4000h
.386
.data
string_bin_byt label byte
string_bin_word label word
string_bin_dword dq 09ffeh

string_bin_dword1 dq 0

string_pack dt 0
len_string_pack=$-string_pack
adr_string_pack dd string_pack
string db 20 dup (0)
len_string=$-string
adr_string dd string
a dw -12
b db 3
.code
begin:
mov ax,@data
mov ds,ax
mov es,ax
mov ax,a
idiv b

movsx bx,ah

cbw
mov word ptr string_bin_dword,ax
mov word ptr string_bin_dword1,bx
finit
fild string_bin_dword1
fild string_bin_dword

mov cx,2
cycl1:
	push cx
	
	fbstp string_pack
	lds si,adr_string_pack
	add si,len_string_pack-2
	les di,adr_string
	mov cx,9
	cycl:
	xor ax,ax
	std 
	lodsb
	shl ax,4
	rol al,4
	or ax,3030h
	xchg ah,al
	cld
	stosw
	loop cycl
	mov bx,1
	mov cx,len_string
	lds dx,adr_string
	mov ah,40h
	int 21h

	pop cx
loop cycl1
	
mov ax,4c00h
int 21h
end begin