2.1. NORTON -:
.286
TITLE TABSRC1 (COM)
CODESG SEGMENT PARA 'Code'
ASSUME CS:CODESG,DS:CODESG,SS:CODESG,ES:CODESG
ORG 100H; PSP
BEGIN: JMP SHORT MAIN;
;-------------------------------------------------------
STOKNIN DW '23';
STOKTAB DB '05','Excavators'
DB '08','Lifters '
DB '09','Presses '
DB '12','Valves '
DB '23','Processors'
DB '27','Pumps '
DESCRN DB 10 DUP(?)
;--------------------------------------------------------
MAIN PROC NEAR
MOV AX,STOKNIN;. N
XCHG AL,AH
MOV CX,06;
LEA SI,STOKTAB;
A20: CMP AX,[SI];
JE A30; -
ADD SI,12; -
LOOP A20
CALL R10ERR;. .
RET
A30: MOV CX,05; .
LEA DI,DESCRN; .
INC SI
INC SI
REP MOVSW;
RET
MAIN ENDP
R10ERR PROC
RET; < >
R10ERR ENDP
CODESG ENDS
END BEGIN
. . STOKNIN . , . , (30)
DESCRN.
, , R10ERR ( ).
, STOKNIN . STOKNIN 3332, MOV 3233. , MOV XCHG, , , .. 3332. CMP , . , , .
2.2. . .
2.3. DEBUG . REP MOVSW. . REP MOVSW . .
2.4. tabsrc.asm ADD SI,12: