Структурне програмування на асемблері, Детальна інформація

cmp al,0ah ;кiнець строки?

jne g60 ;нi - обiйти

call print ;так - друкувати

jmp g20

g60:

cmp al,09h ;символ табуляцiї

jne g70

dec bx ;так - встановити BX:

mov [byte di+bx],20h ;замiнити ТАВ на пропуск

and bx,0fff8h ;обнулити правi 8 бiт

add bx,08 ;i додати 8

g70:

mov [count],bx

jmp g30

g80: mov bx,[count] ;кiнець файлу

mov [byte di+bx],0ch ;прогон сторiнки

call print ;друкувати останню строку

g90: ret

endp printing

; Пiдпрограма друку:

; ------------------

proc print

mov ah,40h ;функцiя друку

mov bx,04

mov cx,[count] ;довжина

inc cx

lea dx,[disarea]

int 21h

mov ax,2020h ;очистити область виводу

mov cx,60