userinit.exe
05.04.2013, 18:08
В общем типичная универская программа обучения, буду постить сюда то с чем у меня возникают проблемы и вообще все в принципе.
IDEAL
MODEL SMALL
STACK 256
DATASEG
tabl db 256 dup(0),"$" ;таблица символов
ent db 10,13,"$" ;энтер
prb db 0,"$" ;пробел
tir db 0,"$" ;тире
nom db 0,"$" ;номер
symb db 0, "$" ;символ
CODESEG
START:
MOV AX,@data
MOV DS,AX
mov cx,7fh ;присваивание сх значения 7f=128
mov bx,0
push cx
push cx
mov [tir],2dh ;тире
mov [prb],0h ;пробел
cikle: ;цикл ввода в TABL значений таблицы ASCII
mov [tabl+bx], cl
inc bx
loop cikle ;конец цикла (cx=0)
pop bx ;bx=7f
pop cx ;cx=7f
mov [symb], 1
sub bx, 1
sykle: ;цикл вывода (энтер-символ-пробел-тире-пробел-номер)
mov ah, 9
lea dx,[ent] ;энтер
int 21h
mov ah, 2
mov dl, [tabl+bx] ;символ
int 21h
mov ah, 2
mov dl,[prb] ;пробел
int 21h
mov ah, 2
mov dl,[tir] ;тире
int 21h
mov ah, 2
mov dl,[prb] ;пробел
int 21h
MOV AH,9
LEA DX,[symb] ;символ
INT 21H
;call perevod
dec bx
inc [symb]
loop sykle ;конец цикла вывода
;proc perevod;процедура перевода 16-ых чисел в 10-ые
exit:
mov ah,4ch
int 21h
end start
Продолжение следует...
IDEAL
MODEL SMALL
STACK 256
DATASEG
tabl db 256 dup(0),"$" ;таблица символов
ent db 10,13,"$" ;энтер
prb db 0,"$" ;пробел
tir db 0,"$" ;тире
nom db 0,"$" ;номер
symb db 0, "$" ;символ
CODESEG
START:
MOV AX,@data
MOV DS,AX
mov cx,7fh ;присваивание сх значения 7f=128
mov bx,0
push cx
push cx
mov [tir],2dh ;тире
mov [prb],0h ;пробел
cikle: ;цикл ввода в TABL значений таблицы ASCII
mov [tabl+bx], cl
inc bx
loop cikle ;конец цикла (cx=0)
pop bx ;bx=7f
pop cx ;cx=7f
mov [symb], 1
sub bx, 1
sykle: ;цикл вывода (энтер-символ-пробел-тире-пробел-номер)
mov ah, 9
lea dx,[ent] ;энтер
int 21h
mov ah, 2
mov dl, [tabl+bx] ;символ
int 21h
mov ah, 2
mov dl,[prb] ;пробел
int 21h
mov ah, 2
mov dl,[tir] ;тире
int 21h
mov ah, 2
mov dl,[prb] ;пробел
int 21h
MOV AH,9
LEA DX,[symb] ;символ
INT 21H
;call perevod
dec bx
inc [symb]
loop sykle ;конец цикла вывода
;proc perevod;процедура перевода 16-ых чисел в 10-ые
exit:
mov ah,4ch
int 21h
end start
Продолжение следует...