Программирование на Ассемблере для персональных компьютеров. Садовой Н.Н - 76 стр.

UptoLike

Составители: 

76
p1: cmp EXIT, 0
jne quit
cmp DIRECT, 1
jz p2
cmp DIRECT, 2
jz p3
cmp DIRECT, 3
jz p4
mov ax, POS
add ax,160
cmp ax, 3999
jg p1
mov POS, ax
call OUT_SYMBOL
jmp p1
p2: mov ax, POS
sub ax, 160
jl p1
mov POS, ax
call OUT_SYMBOL
jmp p1
p3: mov ax, POS
sub ax, 2
jl p1
mov POS, ax
call OUT_SYMBOL
jmp p1
p4: mov ax, POS
p1:   cmp EXIT, 0
      jne    quit
      cmp DIRECT, 1
      jz     p2
      cmp DIRECT, 2
      jz     p3
      cmp DIRECT, 3
      jz     p4
      mov ax, POS
      add ax,160
      cmp ax, 3999
      jg     p1
      mov POS, ax
      call   OUT_SYMBOL
      jmp p1
p2:   mov ax, POS
      sub ax, 160
      jl     p1
      mov POS, ax
      call   OUT_SYMBOL
      jmp p1
p3:   mov ax, POS
      sub ax, 2
      jl     p1
      mov POS, ax
      call   OUT_SYMBOL
      jmp p1
p4:   mov ax, POS
                          76