69,373
社区成员
发帖
与我相关
我的任务
分享
.386
.MODEL FLAT
ExitProcess PROTO NEAR32 stdcall, dwExitCode:DWORD
INCLUDE io.h ; header file for input/output
cr EQU 0dh ; carriage return character
Lf EQU 0ah ; line feed
.STACK 4096 ; reserve 4096-byte stack
.DATA
i DWORD ?
j DWORD ?
promot1 BYTE "Please Enter ten numbers to sort from min to max",cr,Lf,0
array DWORD 10 DUP(?)
promot2 BYTE "The numbers that are sorted is",cr,Lf,0
value BYTE 11 DUP(?)
BYTE cr,Lf,0
.CODE
sortArray PROC NEAR32
push ebp ;建立堆栈
mov ebp,esp
mov i,0
mov edx,10
; mov ebx,[ebp+8] ;取得数组地址
sortFirst:
mov ebx,[ebp+8]
inc i
cmp i,9
jg endsortFirst ;大于9则跳转,
sub edx,i ;求edx-i
mov j,0
sortSecond:
inc j
cmp j,edx
jg endsortSecond ;大于10-i则转移
mov eax,[ebx]
mov ecx,[ebx+4]
cmp eax,ecx ; cmp [ebx],[ebx+4]
jl endCMP ;[ebx]<[ebx+4]则转移
xchg eax,ecx
;swap
; mov edx,[ebx]
; mov [ebx],[ebx+4]
;mov [ebx+4],edx
endCMP:
add ebx,4
jmp sortSecond
endSortSecond:
jmp sortFirst
endsortFirst:
pop ebp
ret
sortArray ENDP
_start:
output promot1
mov ecx,0
lea ebx,array
doFirstWhile:
inc ecx
cmp ecx,10
jg endFirstWhile ;大于10则结束
input value,11
atod value
mov [ebx],eax
add ebx,4
jmp doFirstWhile
endFirstWhile: //数组输入完毕
lea eax,array //这个取的地址跟一开始开辟的不同,所以数组地址传到过程变量也就不对了,求解答啊。这个数组经过过//城调用还是没变化的输出了
push eax
call sortArray
add esp,4
output promot2
mov ecx,0
lea ebx,array
doSecondWhile:
inc ecx
cmp ecx,10
jg endSecondWhile
dtoa value,[ebx]
output value
add ebx,4
jmp doSecondWhile
endSecondWhile:
INVOKE ExitProcess, 0 ; exit with return code 0
PUBLIC _start ; make entry point public
END ; end of source code
lea eax,array //这个取的地址跟一开始开辟的不同,所以数组地址传到过程变量也就不对了,求解答啊。这个数组经过过//城调用还是没变化的输出了void ReadPointN(addr,fp,n,mode)
DWORD addr;
FILE *fp;
WORD n,mode;
{
WORD nb1;
BYTE addrh;
if (mode==1) {
fread((BYTE *)addr,1,n,fp);
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV addrh,CL
MOV AX,n
DEC AX
ADD AX,BX
JNC RPN1 //<64K?
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
JMP RPN2
}
RPN1:
asm {
POP BX
POP AX
POP CX
POP DI
POP ES
}
((BYTE *)(&addr))[2]=0x00;
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh;
}
fread((BYTE *)addr,1,n,fp);
asm {
JMP RPN9
}
RPN2:
asm {
POP BX
POP AX
POP CX
POP DI
POP ES
}
((BYTE *)(&addr))[2]=0x00;
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
}
fread((BYTE *)addr,1,nb1,fp);
addr+=nb1;
((BYTE *)(&addr))[2]=0x00;
asm {
XOR BX,BX
MOV DL,addrh
INC DL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh+1;
fread((BYTE *)addr,1,n-nb1,fp);
RPN9:
}
}
//-------------------------------------------------------
void SetPointNW(addr,cw,n,mode)
DWORD addr;
WORD cw,n,mode;
{
WORD nb1;
if (mode==1) {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
LES DI,addr
MOV CX,n
MOV AX,cw
REP STOSW
POP AX
POP CX
POP DI
POP ES
}
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
PUSH DX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV AX,0xA000
MOV ES,AX
MOV AX,n
SHL AX,1
DEC AX
ADD AX,BX
JC SPNWZ //<64K?
JMP SPNW1
}
SPNWZ:
asm {
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
PUSH CX
CMP CL,oldaddrh
JE SPNW3
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPNW3:
asm {
MOV DI,BX
MOV AX,nb1
TEST AX,1
JZ SPNW2 //(nb1 % 2)==0?
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
STOSB
POP CX //DI==0
INC CL
MOV oldaddrh,CL
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
MOV AX,n
SHL AX,1
SUB AX,nb1
SHR AX,1
MOV CX,AX
MOV AX,cw
XCHG AH,AL
REP STOSW
STOSB
JMP SPNW9
}
SPNW2:
asm {
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
POP CX //DI==0
INC CL
MOV oldaddrh,CL
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
MOV AX,n
SHL AX,1
SUB AX,nb1
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
JMP SPNW9
}
SPNW1:
asm {
CMP CL,oldaddrh
JE SPNW4
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPNW4:
asm {
MOV DI,BX
MOV CX,n
MOV AX,cw
REP STOSW
}
SPNW9:
asm {
POP DX
POP BX
POP AX
POP CX
POP DI
POP ES
}
}
}
//-------------------------------------------------------
void SetPointN(addr,c,n,mode)
DWORD addr;
WORD c,n,mode;
{
WORD nb1;
if (mode==1) {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
LES DI,addr
MOV CX,n
MOV AX,c
REP STOSB
POP AX
POP CX
POP DI
POP ES
}
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
PUSH DX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV AX,0xA000
MOV ES,AX
MOV AX,n
DEC AX
ADD AX,BX
JNC SPN1 //<64K?
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
PUSH CX
CMP CL,oldaddrh
JE SPN3
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPN3:
asm {
MOV DI,BX
MOV CX,nb1
MOV AX,c
REP STOSB
POP CX //DI==0
INC CL
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
MOV AX,n
SUB AX,nb1
MOV CX,AX
MOV AX,c
REP STOSB
JMP SPN9
}
SPN1:
asm {
CMP CL,oldaddrh
JE SPN4
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPN4:
asm {
MOV DI,BX
MOV CX,n
MOV AX,c
REP STOSB
}
SPN9:
asm {
POP DX
POP BX
POP AX
POP CX
POP DI
POP ES
}
}
}
//-------------------------------------------------------
void SetPoint(addr,c,mode)
DWORD addr;
WORD c,mode;
{
BYTE addrh;
if (mode==1) {
*((BYTE *)addr)=c;
} else {
addrh=((BYTE *)(&addr))[2];
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh;
}
((BYTE *)(&addr))[2]=0x00;
*((BYTE *)addr)=c;
}
}
[/quote]
跟我问的问题有毛线关系?膜拜个毛毛CODE SEGMENT 'CODE'
ASSUME CS:CODE, DS:CODE, ES:CODE, SS:CODE
EndFlag DB 0
Int9Enter PROC FAR
STI
PUSH BP
PUSH AX
PUSH BX
PUSH CX
PUSH DX
PUSH SI
PUSH DI
PUSH DS
PUSH ES
PUSH CS
POP ES
CLD
MOV AX, 0F000h
MOV DS, AX
MOV SI, 0FFFEH
CMP BYTE PTR [SI], 0FCH ;PC/AT?
PUSH CS
POP DS
JNZ $PCXT1
MOV CS:BYTE PTR PCAT, 01
MOV AL, 0ADH ;Select 8042 for Scan-Code
CALL SetKey
CLI
XOR CX, CX
$J1:
IN AL, 64H ;Test 8042 Ready?
LOOPNZ $J1
IN AL, 60H ;Get Scan-Code
STI
CMP AL, 0FEH
JZ $J2 ;Jmp To Control Char
CMP AL, 0FAH
JNZ $J3
$J2: JMP $Exit1
;
$PCXT1:
IN AL,60H ;Get PC/XT Scan-Code
$J3:
;D7=0 - Down 1 - Up
CMP AL,1 ;[ESC] KEY
JZ $End
CALL ShowCode
CALL Music
JMP $Exit1
$End: MOV BYTE PTR CS:EndFlag,-1
;
$Exit1:
CALL AllowKey
POP ES
POP DS
POP DI
POP SI
POP DX
POP CX
POP BX
POP AX
POP BP
CLI
IRET
;
PCAT DB 0 ;0 - PC/XT 1 - PC/AT
HEX DB '0123456789ABCDEF'
Int9Enter ENDP
;
;
SetKey PROC NEAR
PUSH AX
CLI
SUB CX, CX
$SET:
IN AL, 64H
TEST AL, 02
LOOPNZ $SET
POP AX
OUT 64H, AL
STI
RET
SetKey ENDP
;
;
AllowKey PROC NEAR
CLI
MOV AL, 20H
OUT 20H, AL
CMP CS:BYTE PTR PCAT,00
JZ $PCXT2
MOV AL, 0AEH
CALL SetKey
RET
;
$PCXT2:
IN AL, 61H
MOV AH, AL
OR AL, 80H
OUT 61H, AL
XCHG AH, AL
OUT 61H, AL
RET
AllowKey ENDP
;
ShowCode PROC
PUSH AX
PUSH AX
MOV CL,4
SHR AL,CL
XOR BH,BH
MOV BL,AL
MOV AL,CS:HEX[BX]
MOV AH,0EH
INT 10H
POP AX
AND AL,0FH
XOR BH,BH
MOV BL,AL
MOV AL,CS:HEX[BX]
MOV AH,0EH
INT 10H
MOV AX,0E08H
INT 10H
MOV AX,0E08H
INT 10H
POP AX
RET
ShowCode ENDP
;
Music PROC NEAR
XOR AH,AH
CMP AL,_AL
JNE $NEW
JMP Loc_84
$NEW: MOV _AL,AL
TEST AL,80H
JNZ $Up
CALL KeyPush
MOV BX,AX
MOV KeyDownTbl[BX],-1
;
$Down: SHL AX,1
MOV BX,AX
MOV AX,OFFSET CS:ToneTbl
ADD BX,AX
MOV CX,OFFSET CS:ToneTbl
CMP BX,CX
JGE Loc_79
Loc_78:
MOV BX,TblLen-2
ADD BX,AX
JMP Loc_80
Loc_79:
MOV CX,TblLen-4
ADD CX,AX
CMP BX,CX
JG Loc_78
Loc_80:
MOV AL,0B6H
OUT 43H,AL ; port 43H, 8253 wrt timr mode
MOV AX,2870H
MOV DX,12H
DIV WORD PTR CS:[BX]
OUT 42H,AL ; port 42H, 8253 timer 2 spkr
MOV AL,AH
OUT 42H,AL ; port 42H, 8253 timer 2 spkr
IN AL,61H ; port 61H, 8255 port B, read
OR AL,3
OUT 61H,AL ; port 61H, 8255 B - spkr, etc
JMP Loc_84
;
$Up: AND AL,7FH
MOV BX,AX
MOV KeyDownTbl[BX],0
Loc_81: CALL KeyPop
CMP SI,OFFSET KeyStack-1
JE $Off
MOV BX,AX
CMP KeyDownTbl[BX],0
JE Loc_81
CALL KeyPush
JMP $Down
$Off: INC KeySP
IN AL,61H ; port 61H, 8255 port B, read
AND AL,0FCH
OUT 61H,AL ; port 61H, 8255 B - spkr, etc
Loc_84:
MOV CX,8
LocLoop_85:
LOOP LocLoop_85
RET
;
ToneTbl DB 42H, 0, 45H, 0, 4AH, 0
DB 4EH, 0, 53H, 0, 57H, 0
DB 5DH, 0, 62H, 0, 68H, 0
DB 6EH, 0, 75H, 0, 7CH, 0
DB 83H, 0, 8BH, 0, 93H, 0
DB 9EH, 0, 0A5H, 0, 0AFH, 0
DB 0B9H, 0, 0C4H, 0, 0D0H, 0
DB 0DCH, 0, 0E9H, 0, 0F7H, 0
DB 6, 1, 16H, 1, 26H, 1
DB 38H, 1, 4AH, 1, 5EH, 1
DB 73H, 1, 88H, 1, 9FH, 1
DB 0B8H, 1, 0D2H, 1, 0EEH, 1
DB 0BH, 2, 2AH, 2, 4BH, 2
DB 6EH, 2, 93H, 2, 0BAH, 2
DB 0E4H, 2, 10H, 3, 3EH, 3
DB 70H, 3, 0A5H, 3, 0DCH, 3
DB 18H, 4, 56H, 4, 98H, 4
DB 0F0H, 4, 28H, 5, 76H, 5
DB 0CAH, 5, 22H, 6, 80H, 6
DB 0E3H, 6, 4BH, 7, 0BAH, 7
TblLen EQU $-ToneTbl
KeyDownTbl DB 80H DUP(0)
KeyStack DB 100 DUP(?)
KeySP DW KeyStack
_AL DB 0
Music ENDP
;
KeyPush PROC
MOV SI,KeySP
MOV BYTE PTR [SI],AL
INC SI
MOV KeySP,SI
RET
KeyPush ENDP
KeyPop PROC
MOV SI,KeySP
DEC SI
MOV AL,BYTE PTR [SI]
MOV KeySP,SI
RET
KeyPop ENDP
;
;
START PROC
PUSH CS
POP DS
MOV AX,3509H
INT 21H
MOV AX,ES
MOV WORD PTR OldInt9+2,AX
MOV WORD PTR OldInt9,BX
MOV AX,2509H
MOV DX,OFFSET Int9Enter
INT 21H
;
WaitINT9:
CMP BYTE PTR CS:EndFlag,0
NOP
JZ WaitINT9
;
Quit: MOV DX,WORD PTR OldInt9
MOV AX,WORD PTR OldInt9+2
MOV DS,AX
MOV AX,2509H
INT 21H
MOV AX,4C00H
INT 21H
OldInt9 DD ?
START ENDP
;
CODE ENDS
END START
void ReadPointN(addr,fp,n,mode)
DWORD addr;
FILE *fp;
WORD n,mode;
{
WORD nb1;
BYTE addrh;
if (mode==1) {
fread((BYTE *)addr,1,n,fp);
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV addrh,CL
MOV AX,n
DEC AX
ADD AX,BX
JNC RPN1 //<64K?
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
JMP RPN2
}
RPN1:
asm {
POP BX
POP AX
POP CX
POP DI
POP ES
}
((BYTE *)(&addr))[2]=0x00;
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh;
}
fread((BYTE *)addr,1,n,fp);
asm {
JMP RPN9
}
RPN2:
asm {
POP BX
POP AX
POP CX
POP DI
POP ES
}
((BYTE *)(&addr))[2]=0x00;
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
}
fread((BYTE *)addr,1,nb1,fp);
addr+=nb1;
((BYTE *)(&addr))[2]=0x00;
asm {
XOR BX,BX
MOV DL,addrh
INC DL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh+1;
fread((BYTE *)addr,1,n-nb1,fp);
RPN9:
}
}
//-------------------------------------------------------
void SetPointNW(addr,cw,n,mode)
DWORD addr;
WORD cw,n,mode;
{
WORD nb1;
if (mode==1) {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
LES DI,addr
MOV CX,n
MOV AX,cw
REP STOSW
POP AX
POP CX
POP DI
POP ES
}
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
PUSH DX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV AX,0xA000
MOV ES,AX
MOV AX,n
SHL AX,1
DEC AX
ADD AX,BX
JC SPNWZ //<64K?
JMP SPNW1
}
SPNWZ:
asm {
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
PUSH CX
CMP CL,oldaddrh
JE SPNW3
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPNW3:
asm {
MOV DI,BX
MOV AX,nb1
TEST AX,1
JZ SPNW2 //(nb1 % 2)==0?
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
STOSB
POP CX //DI==0
INC CL
MOV oldaddrh,CL
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
MOV AX,n
SHL AX,1
SUB AX,nb1
SHR AX,1
MOV CX,AX
MOV AX,cw
XCHG AH,AL
REP STOSW
STOSB
JMP SPNW9
}
SPNW2:
asm {
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
POP CX //DI==0
INC CL
MOV oldaddrh,CL
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
MOV AX,n
SHL AX,1
SUB AX,nb1
SHR AX,1
MOV CX,AX
MOV AX,cw
REP STOSW
JMP SPNW9
}
SPNW1:
asm {
CMP CL,oldaddrh
JE SPNW4
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPNW4:
asm {
MOV DI,BX
MOV CX,n
MOV AX,cw
REP STOSW
}
SPNW9:
asm {
POP DX
POP BX
POP AX
POP CX
POP DI
POP ES
}
}
}
//-------------------------------------------------------
void SetPointN(addr,c,n,mode)
DWORD addr;
WORD c,n,mode;
{
WORD nb1;
if (mode==1) {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
LES DI,addr
MOV CX,n
MOV AX,c
REP STOSB
POP AX
POP CX
POP DI
POP ES
}
} else {
asm {
PUSH ES
PUSH DI
PUSH CX
PUSH AX
PUSH BX
PUSH DX
LES DI,addr
MOV CX,ES
MOV BX,DI //CX:BX=addr
MOV AX,0xA000
MOV ES,AX
MOV AX,n
DEC AX
ADD AX,BX
JNC SPN1 //<64K?
MOV AX,BX
NEG AX
MOV nb1,AX //bytes number to 64K
PUSH CX
CMP CL,oldaddrh
JE SPN3
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPN3:
asm {
MOV DI,BX
MOV CX,nb1
MOV AX,c
REP STOSB
POP CX //DI==0
INC CL
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
MOV AX,n
SUB AX,nb1
MOV CX,AX
MOV AX,c
REP STOSB
JMP SPN9
}
SPN1:
asm {
CMP CL,oldaddrh
JE SPN4
MOV oldaddrh,CL
PUSH BX
XOR BX,BX
MOV DL,CL
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
POP BX
}
SPN4:
asm {
MOV DI,BX
MOV CX,n
MOV AX,c
REP STOSB
}
SPN9:
asm {
POP DX
POP BX
POP AX
POP CX
POP DI
POP ES
}
}
}
//-------------------------------------------------------
void SetPoint(addr,c,mode)
DWORD addr;
WORD c,mode;
{
BYTE addrh;
if (mode==1) {
*((BYTE *)addr)=c;
} else {
addrh=((BYTE *)(&addr))[2];
if (addrh!=oldaddrh) {
asm {
XOR BX,BX
MOV DL,addrh
MOV AL,incpage
MUL DL
MOV DX,AX
MOV AX,0x4F05
INT 0x10
}
oldaddrh=addrh;
}
((BYTE *)(&addr))[2]=0x00;
*((BYTE *)addr)=c;
}
}