Определить и вывести на экран информацию о стране (DOS 38h).

[Влад_+_]

Форумчане, помогите пожалуйста с л/р. Выводит иероглифы. Помогите исправить.

.286	
.model small
.code
start:  mov ax,@data
	mov ds,ax
	mov es,ax
	mov ax,3800h
	mov dx,offset buffer
	int 21h
	mov di,offset table
	mov cx,num
	repne scasw
	mov dx,[di]
	mov ah,9
	int 21h
	mov ah,0
	int 16h
	mov ah,4Ch
	int 21h
.data
buffer db 20 dup (?)
table dw 1, USA, 2, CanFr, 3, LatAm, 4, CanEn, 7, Ru, 20, Egt
        dw 27,SA,30,Gre,31,Net,32,Bel,33,Fr,34,Spa,35,Bul,36,Hun
num = ($ - table)/2
USA   db       "United States$"
CanFr db       "Canadian-French"
LatAm db       "Latin America$"
CanEn db       "Canada (English)$"
Ru      db       "Russia$"
Egt     db      "Egypt$"
SA      db      "South Africa$"
Gre     db      "Greece$"
Net     db      "Netherlands$"
Bel      db      "Belgium$"
Fr       db      "France$"
Spa     db      "Spain$"
Bul      db      "Bulgaria$"
Hun     db      "Hungary$"
end start

[R71MT]

..почитай про эту функцию в справочнике. Там сказано, что если на входе AL нуль, то результат возвращается в ВХ. Буфер в данном случае вообще не нужен. Получил код страны в ВХ и переходи по-нему в таблице переходов. Вот тебе код на FASM:

USE16
ORG 100h
JMP start

mess0   DB   'Country info: $'
table   dw   1,USA, 2,CanFr, 3,LatAm, 4,CanEn, 7,Ru, 20,Egt, 36,Hun
        dw   27,SA, 30,Gre,  31,Net, 32,Bel,  33,Fr, 34,Spa, 35,Bul
num     =    ($ - table)/2
USA     db   "United States$"
CanFr   db   "Canadian-French"
LatAm   db   "Latin America$"
CanEn   db   "Canada (English)$"
Ru      db   "Russia$"
Egt     db   "Egypt$"
SA      db   "South Africa$"
Gre     db   "Greece$"
Net     db   "Netherlands$"
Bel     db   "Belgium$"
Fr      db   "France$"
Spa     db   "Spain$"
Bul     db   "Bulgaria$"
Hun     db   "Hungary$"

start:
   MOV   AH,9                       ; мессага юзверю
   MOV   DX,mess0
   INT   21h

   MOV   AX,3800h                   ; AL = 0
   INT   21h                        ; возвращает код страны в BX

   XCHG  AX,BX                      ; отправляем его в AX для SCASW
   MOV   DI,table                   ; DI = таблица переходов
   MOV   CX,num 
   REPNE SCASW                      ; ищем код в таблице переходов

   MOV   DX,[DI]                    ; отправляем адрес в DX
   MOV   AH,9                       ; и выводим результат на экран
   INT   21h

exit:
   XOR   AX,AX                     ; ждём клавишу и на выход
   INT   16h
   INT   20h

[Влад_+_]

А на windows 7 x64 получится запустить ?

[p51x]

ДосБокс в помощь

[Влад_+_]

Попробовал DOX-BOX. Выводит опять иероглифы(((http://upload.akusherstvo.ru/image906869.jpg Может я что то не так делаю.

[Pavia]

Возьмите турбодебугер. Там можно выполнить код по шагам и посмотреть что куда и как. Отладите свой код и будет вам счастье.