Первая программа asm

.model small 
.stack 128 
.data
err db 'error$'
 
.code 
main:
 
mov ah, 01h
int 21h
 
cmp al,57
jg m_pq 
jle m_1
 
 
 
 
 
m_pq:
cmp al,'q'
jmp m_exit
jne m_p
end m_pq
 
m_exit:
mov ax,4c00h
int 21h
end m_exit
 
m_p:
cmp al, 'p'
jmp m_steck_out
jne m_error
end m_p
 
m_error:
mov ax, @data
mov ds,ax
lea dx, err
mov ah, 09h
int 21h
end m_error
 
m_1:
 
end m_1
end main

.model small 
.stack 128 
.data
erro db 'error$'
 
.code 
main:
 
mov ah, 01h
int 21h
 
 
cmp al,57
jg m_pq ; > 57, проверям на p & q
jle m_1 ; <= 57, проверям на >=48 и + -
 
m_1: 
cmp 48, al
jge m_number ; >= 48, это число
jl n_acts ; < 48, проверка на знаки
 
m_number:
 
n_acts: 
 
 
m_pq:
cmp al,'q'
jne m_p ; al == q
jmp m_exit ; al != q
 
m_p:
cmp al, 'p'
jne m_error
jmp m_steck_out
 
m_steck_out:
 
 
m_error:
mov ax, @data
mov ds,ax
lea dx, erro
mov ah, 09h
int 21h
 
m_exit:
mov ax,4c00h
int 21h
 
 
end main

cmp al,48

model small 
.stack 128 
.data
StackMaxSize = 300
erro db 'error$'
myStack db StackMaxSize Dup (?)
StackPtr dw 0
 
.code 
main:
  mov ax, @data
  mov ds,ax
 
@@m01:
  mov ah, 01h
  int 21h
 
 
  cmp al,57
......

mov ax, @data
mov ds,ax
 
mov dx, sp
 
mov ah, 09h
int 21h

mov ax, @stack
mov ds,ax
 
mov dx, sp
 
mov ah, 09h
int 21h

.model small 
.stack 128 
.data
erro db 'error$'
;my_stack db 200 Dup (?)
;stack_p db 0
 
.code 
 
ax_out proc uses dx cx
 
.code
push ax
mov ah,02h 
mov cx, 12d 
mainloop:
pop dx 
push dx
shr dx,cl
and dl, 0Fh
cmp dl, 10d
jge add_37h
add dl, 30h
jmp print_4
 
add_37h:
add dl, 37h
 
print_4:
int 21h
sub cx,3 
loop mainloop
 
pop dx
push dx
and dl, 0fh
cmp dl, 10d
jge add_37h_last
add dl, 30h
jmp print_last
 
add_37h_last:
add dl, 37h
 
print_last:
int 21h
pop ax
ret
ax_out endp
 
 
main:
 
mov ah, 01h
int 21h
 
 
cmp al, 57
jg m_pq ; > 57, проверям на p & q
jle m_1 ; <= 57, проверям на >=48 и + -
 
m_1: 
cmp al, 48
jge m_number ; >= 48, это число
jl n_acts ; < 48, проверка на знаки
 
m_number:
push ax ; поместили число в стек
jmp main ; метка main - ждем число
 
n_acts: 
;проверить стек
cmp al, 43
jne m_minus ; al != + 
 
pop dx ; извлек 7
pop ax ; извлек 8
 
 
call ax_out 
 
add ax, dx  
;фигня со стеком
 
 
call ax_out  
 
 
 
jmp main
 
m_minus:
cmp al, 45
jne m_error ; al != -
 
 
jmp main
 
 
m_pq:
cmp al,'q'
jne m_p ; al != q
jmp m_exit ; al == q
 
m_p:
cmp al, 'p'
jne m_error ; al != p
jmp m_stack_out ; a; == p
 
m_stack_out:
xor ax, ax
pop ax
call ax_out
;mov dl, al
;mov ah, 02
;int 21h
jmp main
 
m_error:
mov ax, @data
mov ds,ax
lea dx, erro
mov ah, 09h
int 21h
 
m_exit:
mov ax,4c00h
int 21h
 
 
end main

.model small 
.stack 128 
.data
  HelloStr db 'Hi! This is program for stack!',10,13,'$'
  erro db 'error$'
 
.code 
 
;;      сохранение регистров в стеке
;;      вход:список имен регистров через запятую в угловых скобках
;;      пример:  push_regs <ax,bx,dx>
push_REGS   macro   regl
        irp     req,<regl>
        push    req
        endm
        endm
 
;;      извлечение из стека значений регистров
;;      вход:   список регистров через запятую в угловых скобках
;;      пример: pop_regs  <dx,bx,ax>
pop_REGS    macro   regl
        irp     req,<regl>
        pop     req
        endm
        endm
 
 
OutAxInt proc near             ;=====Процедура вывода
       push_REGS <ax,bx,cx,dx>
       test ax, ax          ; проверяем число на знак.
       jns oi1                                             
       mov cx, ax            ; eсли оно отрицательное, выведем минус и  
                             ; оставим его модуль
       mov ah, 02h
       mov dl, '-'
       int 21h
       mov ax, cx
       neg ax                                  
oi1:   xor cx, cx            ; количество цифр будем держать в CX
       mov bx, 10            ; основание сс. 10 для десятеричной и т.п.
oi2:   xor dx, dx
       div bx                ; делим число на основание сс, в остатке 
                             ;  получается последняя цифра
       push dx               ; сразу выводить её нельзя, поэтому сохраним 
                             ; её в стэке
       inc cx
                            ; а с частным повторяем то же самое, отделяя
                             ; от него очередную
       test    ax, ax       ; цифру справа, пока не останется ноль, что 
                             ;значит, что дальше
       jnz     oi2           ; слева только нули
 
;========Вывод=========    
        mov ah, 02h
oi3:    pop dx
        add dl, '0'          ; извлекаем очередную цифру, переводим её в 
                             ; символ и выводим
        int 21h
        loop oi3             ; повторим ровно столько раз, сколько цифр 
                             ; насчитали
 
        pop_REGS <dx,cx,bx,ax>
        ret     
OutAxInt endp  
 
 
 
main:
   
   mov ax, @data
   mov ds,ax
   lea dx, HelloStr
   mov ah, 09h
   int 21h
 
 
   mov ax, 7933 ; занесём число для проверки процедуры вывода
 
   call OutAxInt
 
   
   ;--------  ждём нажатия на любую клавишу
   xor ax,ax
   int 16h
 
   ;-------- Выход
   mov ax, 4c00h
   mov al, 0
   int 21h
 
 
   end main