= ds
getmode; збереження старого режиму
setmode usemode; установка нового режиму
allagain: window 0,03 Bh, 0,0,24,79 ; головне вікно
window 0, 0F0h, 7,7,7,7 +21; вікна введення
window 0, 0F0h, 7,7 +40,7,7 +46
window 0, 0F0h, 10,7,10,7 +21; вікна виведення
window 0, 0F0h, 10,7 +40,10,7 +46
locate 0,0; підписи до вікон
out_Str hellomes, hlen, 03bh6, 7_Str _del, hd, 03bh6, 7 +40 _Str _del2, hd2, 03bh9, 7_Str _chast, clen, 03bh9, 7 +40 _Str _ost, olen, 03bh dx, dx
mov ax, 0c800h; перевірка на наявність резидента
int 2fhal, 0ffh; наш ..? no dx, 8888h; збіглася сигнатура?
jne nosignature: 0, 0F0h, 7,7,7,7 +2124,0 _Str first, flen, 03Ah7, 7dx, offset Str64ah, 0Ah21h; введення делімогоch, chcl, [str64 +1] bx , offset str64 +2 dec_bin64; переклад діленого
jc again1; якщо помилка то повторити введення
window 0,03 Bh, 22,0,22,79:0, 0F0h, 7,7 +40,7,7 +4624,0 _Str second, slen, 03Ah7, 7 +40 dx, offset Str16ah , 0Ah; введення делітеля21hch, chcl, [str16 +1] bx, offset str16 +2 decbin; переклад дільника again2; якщо помилка то переклад
mov [Deler], ax0, 03Bh, 22,0,22,79:
mov si, offset operand; підготовка до передачі даних резуденту
mov ax, 0c802h; передача
int 2fh
call waiting; заглушка
mov ax, 0c804h; підготовка до отримання даних
push dsesdi, offset Result 2fh
cmp ch, 0ffh; проведена активацій ...?
je nocall
cmp cl, 0; немає помилок ..?
je results22, 0_str divover, divoverlen, 34h; висновок ошібкіPrintQuestion: ax, [Rem] bx, offset Ostatokbidec; перетворення остатка10, 47_str Ostatok, Ostatoklen, 0F0h; висновок остаткаdi, offset Operandsi, offset Resultmov64bx, offset chastnoe; перетворення частногоBindec10, 7_str Chastnoe +1, Chastnoelen, 0F0h; висновок частногоprintquestion: 22,0 _str mes_nocall, mes_nocalllen, 34h; повідомлення про те, що не було натиснуто комбінація Alt-A: 0,3 bH, 24,0,24, 7924,0 _str type4, type4len, 3Ah; висновок подсказкіah, 00h; введення сімвола16hal, 'N'; 'n'? allagain; новий вводal, 1Bh; ESCPrintQuestionExitExit: 22,0
out_str nosign, nosignlen, 034h; повідомлення про присутність резидента з тією ж функцією, але інший сигнатурою
readkeyexit: 22,0
out_str noinst, noinstlen, 034h; повідомлення про відсутність резидента в пам'яті
readkey
...
