.8086
stack segment para stack 'stack'
DW 256 dup(0)
stack ends
;
dseg segment para public 'data'
mas dd 00111011100110101100101000000000b, 10111011100110100000101000001100b
masr dw 16 dup (?)
cnt dw 0
ii dw ?
m3 DB 13,10,'$'
dseg ends
;
;00111011 10011010 11001010 00000000
cseg segment para public 'code'
main proc far
assume cs:cseg,ds:dseg,ss:stack,es:dseg
;
push ds
mov ax,0
push ax
; initial seg data
mov ax,dseg
mov ds,ax
;===================================div to 16 bit
MOV CX,2
mov si, 0
LDIV:
mov ax, WORD ptr mas[si]
push ax
mov ax, WORD ptr mas[si]+2
push ax
inc si
LOOP ldiv
;===================================div to 4 bit
pop ax
mov cnt, ax
mov ax, 0
mov dx, cnt
and dx, 0f000h
mov cl, 12
rcr dx, cl
mov masr[0], dx
mov dx, cnt
and dx, 0f00h
mov cl, 8
rcr dx, cl
mov masr[1], dx
mov dx,0
mov dx, cnt
and dx, 00f0h
mov cl, 4
rcr dx, cl
mov masr[2], dx
mov dx, cnt
and dx, 000fh
mov masr[3], dx
pop ax
mov cnt, ax
mov dx, cnt
and dx, 0f000h
mov cl, 12
MOV DL,00
rcr dx, cl
mov masr[4], dx
mov dx, cnt
and dx, 0f00h
mov cl, 8
MOV DL,00
rcr dx, cl
mov masr[5], dx
mov dx, cnt
and dx, 00f0h
mov cl, 4
MOV DL,00
rcr dx, cl
mov masr[6], dx
mov dx, cnt
and dx, 000fh
mov masr[7], dx
pop ax
mov cnt, ax
mov ax, 0
mov dx, cnt
and dx, 0f000h
mov cl, 12
rcr dx, cl
mov masr[8], dx
mov dx, cnt
and dx, 0f00h
mov cl, 8
rcr dx, cl
mov masr[9], dx
mov dx,0
mov dx, cnt
and dx, 00f0h
mov cl, 4
rcr dx, cl
mov masr[10], dx
mov dx, cnt
and dx, 000fh
mov masr[11], dx
pop ax
mov cnt, ax
mov dx, cnt
and dx, 0f000h
mov cl, 12
MOV DL,00
rcr dx, cl
mov masr[12], dx
mov dx, cnt
and dx, 0f00h
mov cl, 8
MOV DL,00
rcr dx, cl
mov masr[13], dx
mov dx, cnt
and dx, 00f0h
mov cl, 4
MOV DL,00
rcr dx, cl
mov masr[14], dx
mov dx, cnt
and dx, 000fh
mov masr[15], dx
;=============================write
mov si, 0
mov cx, 16
cykl2:
mov ii, cx
mov cx, 16
mov dx, masr[si]
mov dh, 00
MOV Bx, dx
MOV AH,02
Lwrt1:
MOV DL,00
RCL Bx,1
mov dl, 30h
ADC DL,0
INT 21h
LOOP lwrt1
mov ah, 9
lea dx, m3
int 21h
inc si
mov cx, ii
loop cykl2
;============================end
mov ah, 00h
int 16h
;
ret
int 20h
main endp
cseg ends
end main
але є кілька питань,там в умовному розділі мого коду "div to 4 bit" не зміг зробити це циклом, якщо в циклі діставати із стеку то взагалі вилазять страшні баги. Також якщо прибрати 153 рядок "mov dh, 00" то перші половини кожного числа, містять другу половину з наступного, це я напевно щось накрутив в тому ж "розділі" "div to 4 bit". Що я зробив не так?
