Пример из §18 Многомодульные программы.

Пример. Ввести текст, оканчивающийся точкой. Напечатать его, заменив все маленькие латинские буквы на большие.
Основной модуль – ввод и печать текста.
Вспомогательный модуль – признак конца текста EOT (byte), процедура преобразования буквы CAPT (буква – в AL)

; основной модуль
EXTRN EOT: byte, CAPT: far
include  IO.ASM
S  segment STACK
      db 128 dup (?)
S  ends
C segment
ASSUME CS:C, SS: S
Start: MOV AX, seg EOT
MOV DS, AX
OUTCH ‘>’  ; приглашение для ввода текста
INP:  INCH AL
CMP AL, EOT
JE  FIN
CALL CAPT
OUTCH AL
JMP INP
FIN: FINISH
C  ends
END  Start  ; конец основного модуля

; вспомогательный модуль
PUBLIC  EOT,  CAPT
D  segment
EOT  db  ‘.’
D  ends
C1  segment
ASSUME CS:C1
  CAPT  proc  far
CMP  AL, ‘a’
JB Not_let
CMP  AL, ‘z’
JA  Not_let
ADD  AL, ‘A’ – ‘a’
     Not_let: RET
  CAPT  endp
C1  ends
END; конец вспомогательного модуля