 Макросы в Ассемблере., оформить Teletype как макрос |
ПРАВИЛА РАЗДЕЛА!!!
1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!
| dron4ik |
 28.11.2009 19:05
Сообщение
#1
|
 Бывалый  Группа: Пользователи Сообщений: 318 Пол: Мужской Репутация:  0   |
всем привет. в задании нужно оформит вызов функции Teletype как макрос,оформить макросы как макровызовы и оформить как на языке высокого уровня...помогите пожалуйста..незнаю как сделать..
DAseg Segment
Org 100h
Assume CS:DAseg, SS:DAseg, DS:DAseg
Start: jmp short begin
chartab db 07Ch, 0C6h, 0CEh, 0DEh, 0F6h, 0E6h, 07Ch, 000h; '0'
db 0
Startpos dw 0306h
Begin:
mov bx, 0
mov dx, startpos
lea di,chartab
mov ah, 2; set cursor
int 10h
mov ch,08h; ch-external
m0:
mov cl,08h; cl-internal
mov al, byte ptr [di]
inc di
m1:
shl al,1
push ax
jc m2
mov al,'.'
jmp m3
m2:
mov al,'$'
m3:
mov ah, 0Eh; teletype
int 10h
pop ax
dec cl
cmp cl,0
jnz m1
inc dh
mov ah, 2; set cursor
int 10h
dec ch
cmp ch,0
jnz m0
Mov AX,4C00h
Int 21h
DAseg EndS
End Start
|
   |
 
|
Сообщений в этой теме
  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.08.2025 8:02 |