🚀 go-pugleaf

robert wrote:
> Witam. Napisałem poniższy kod, który się kompiluje, ale już nie likuje.
> 1)    komunikat błędu: _show_txt unresolved external. Wydaje mi się, że nie
> może odszukać procedury show_txt znajdującej się w kod_2 sgement;
> 2)    po usunięciu lini .model small argument napis procedury show_txt musi
> być zadeklarowany jako dword, inaczej progr. się nie skompiluje. Oznacza to,
> że addr
>         zwraca 32bitowy adres [seg+offset], dlaczego ?
> 
> Bardzo prosze o pomoc i pozdrawiam.
> 
> .model small
> .386
> 
> show_txt proto far C count:byte, napis:word, data_sem:word

A dlaczego "far", skoro był "model small"?


Skoro używasz "nowych" dyrektyw, to dlaczego jednocześnie otwierasz 
segmenty "po staremu"?

> Moj_stos segment stack
>  db 256 dup (?)
> Moj_stos ends
> 
> Dane segment
>  napis db "Komuunikat", 0dh,0ah,"$"
>  licznik db ?
> Dane ends
> 
> kod_1 segment 'code'
>  assume cs:kod_1,ds:Dane
> start:
>  mov ax,seg Dane
>  mov ds,ax
> 
>  invoke show_txt, licznik, addr napis, seg napis
> 
> kod_1 ends
> end start
> 
> kod_2 segment 'code'
>  assume cs:kod_2,ds:nothing

Dwa segmenty kodu w modelu SMALL?! Też bym zgłupiał na miejscu 
konsolidatora...

>  show_txt proc far C uses ax ds, count:byte, nap:word, data_sem:word
> 
>   show_mac
> 
>   ret
> 
>  show_txt endp
> 
> kod_2 ends