Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~phil/hardware/vertex/sharemegsvertex/floppy_bckup/ocuv2_2/OCU_VER2.2/TASTE.ASM Дата изменения: Mon Aug 24 19:25:48 1992 Дата индексирования: Thu Jan 15 11:25:26 2009 Кодировка: Поисковые слова: п п п п п п п п п п п п п п п п п п п

; Static Name Aliases
;
TITLE taste.c
NAME taste

.8087
TASTE_TEXT SEGMENT WORD PUBLIC 'CODE'
TASTE_TEXT ENDS
_DATA SEGMENT WORD PUBLIC 'DATA'
_DATA ENDS
CONST SEGMENT WORD PUBLIC 'CONST'
CONST ENDS
_BSS SEGMENT WORD PUBLIC 'BSS'
_BSS ENDS
DGROUP GROUP CONST, _BSS, _DATA
ASSUME CS: TASTE_TEXT, DS: DGROUP, SS: DGROUP
EXTRN __acrtused:ABS
EXTRN __chkstk:FAR
EXTRN _ringkey:FAR
EXTRN _printf:FAR
EXTRN _itaste:WORD
EXTRN _keyein:BYTE
EXTRN _keyenter:BYTE
EXTRN _failanz1:BYTE
EXTRN _failanz2:BYTE
_DATA SEGMENT
$SG189 DB 'itaste:%c,%d,%x', 00H
_DATA ENDS
CONST SEGMENT
$T20001 DW SEG _itaste
$T20002 DW SEG _keyein
$T20003 DW SEG _failanz1
$T20004 DW SEG _keyenter
$T20005 DW SEG _failanz2
CONST ENDS
TASTE_TEXT SEGMENT
ASSUME CS: TASTE_TEXT
; Line 2
PUBLIC _taste
_taste PROC FAR
xor ax,ax
call FAR PTR __chkstk
; Line 46
; Line 4
call FAR PTR _ringkey
mov es,$T20001
mov es:_itaste,ax
; Line 9
cmp ax,162
jne $I171
; Line 10
mov es,$T20002
mov BYTE PTR es:_keyein,32
; Line 11
$I171:
mov es,$T20001
cmp WORD PTR es:_itaste,104
jne $I172
; Line 12
mov es,$T20002
mov BYTE PTR es:_keyein,96
; Line 13
$I172:
mov es,$T20001
cmp WORD PTR es:_itaste,27
jne $I173
; Line 14
mov es,$T20002
mov BYTE PTR es:_keyein,112
; Line 15
$I173:
mov es,$T20001
cmp WORD PTR es:_itaste,155
jne $I174
; Line 16
mov es,$T20002
mov BYTE PTR es:_keyein,64
; Line 17
$I174:
mov es,$T20001
cmp WORD PTR es:_itaste,156
jne $I175
; Line 18
mov es,$T20002
mov BYTE PTR es:_keyein,80
; Line 19
$I175:
mov es,$T20001
cmp WORD PTR es:_itaste,157
jne $I176
; Line 20
mov es,$T20002
mov BYTE PTR es:_keyein,128
; Line 21
$I176:
mov es,$T20001
cmp WORD PTR es:_itaste,158
jne $I177
; Line 22
mov es,$T20002
mov BYTE PTR es:_keyein,16
; Line 23
$I177:
mov es,$T20001
cmp WORD PTR es:_itaste,159
jne $I178
; Line 24
mov es,$T20002
mov BYTE PTR es:_keyein,48
; Line 25
$I178:
mov es,$T20001
cmp WORD PTR es:_itaste,160
jne $I179
; Line 26
mov es,$T20002
mov BYTE PTR es:_keyein,17
; Line 27
$I179:
mov es,$T20001
cmp WORD PTR es:_itaste,161
jne $I180
; Line 28
mov es,$T20002
mov BYTE PTR es:_keyein,144
; Line 29
$I180:
mov es,$T20001
cmp WORD PTR es:_itaste,102
jne $I181
; Line 30
mov es,$T20002
mov BYTE PTR es:_keyein,20
; Line 31
$I181:
mov es,$T20001
cmp WORD PTR es:_itaste,114
jne $I182
; Line 32
mov es,$T20002
mov BYTE PTR es:_keyein,21
; Line 35
$I182:
mov es,$T20001
cmp WORD PTR es:_itaste,163
jne $I186
; Line 36
; Line 37
mov es,$T20003
cmp BYTE PTR es:_failanz1,18
jne $I184
; Line 38
; Line 39
mov BYTE PTR es:_failanz1,19
; Line 40
jmp SHORT $I186
nop
$I184:
cmp BYTE PTR es:_failanz1,18
je $I186
; Line 43
mov BYTE PTR es:_failanz1,18
; Line 44
$I186:
; Line 49
mov es,$T20001
cmp WORD PTR es:_itaste,10
jne $I187
; Line 50
; Line 51
mov es,$T20002
mov al,es:_keyein
mov es,$T20004
mov es:_keyenter,al
; Line 52
mov es,$T20003
mov al,es:_failanz1
mov es,$T20005
mov es:_failanz2,al
; Line 53
; Line 54
$I187:
mov es,$T20001
push WORD PTR es:_itaste
push WORD PTR es:_itaste
push WORD PTR es:_itaste
mov ax,OFFSET DGROUP:$SG189
push ds
push ax
call FAR PTR _printf
add sp,10
; Line 55
ret
nop

_taste ENDP
TASTE_TEXT ENDS
END