您所在位置：主题：一个计算工资的程序，求高手帮忙。。
xiyuyixin
[专家分：0] 发布于 2009-12-27 00:08:00
计算工资的某程序，老师给的一部分程序让我们发挥想象力和创造力加功能，但是好像什么功能都没加就不能生成OBJ文件，怎么也找不出原因。。由于星期一就要上机调试了，现在急啊！！求高手解围！！小女不胜感激！！附下什么功能都没加的计算工资程序。。如果您还能给加上什么好的功能。。更是感激涕零！！
;PROGRAM TITLE GOES HERE --SCREMP
;Enter hours&rate,display wage
;*************************************
stacksg segment para stack 'stack'
dw 32 dup(?)
stacksg ends
;*************************************
datasg segment para 'data'
hrspar label byte ;Hours parameter list;
maxhlen db 6
acthlen db ?
hrsfld db 6 dup(?)
ratepar label byte ;rate parameter list;
maxrlen db 6
actrlen db ?
ratefld db 6 dup(?)
messg1 db 'Hours worked?','$'
messg2 db 'Rate of pay?','$'
messg3 db 'Wage ='
ascwage db 14 dup(30h),13,10,'$'
messg4 db 13,10,'Overflow!',13,10,'$'
adjust dw ?
binval dw 0
binhrs dw 0
binrate dw 0
col db 0
decind db 0
mult10 dw 01
nodec dw 0
row db 0
shift dw ?
tenwd dw 10
tempdx dw ?
tempax dw ?
datasg ends
;*************************************
codesg segment para 'code'
begin proc far ;main part of program
assume cs:codesg, ds:datasg, ss:stacksg,es:datasg
;set up stack for return
push ds
sub ax,ax
push ax
;set DS register to current data segment
mov ax,datasg
mov ds,ax
mov es,ax
;main part of program goes here
mov ax,0600h
CALL DISP
call q10scr
call q20curs
a20loop:
call b10inpt
cmp acthlen,0
je a30
call d10hour
call e10rate
call f10mult
call g10wage
call k10disp
jmp a20loop
a30:
mov ax,0600h
call q10scr
ret
begin endp
;-------------------------------------------
; Input hours&rate
b10inpt proc near
lea dx,messg1
mov ah,09h
int 21h
lea dx,hrspar
mov ah,0ah
int 21h
cmp acthlen,0
jne b20
ret
b20:
mov col,25
call q20curs
lea dx,messg2
mov ah,09h
int 21h
lea dx,ratepar
mov ah,0ah
int 21h
ret
b10inpt endp
;--------------------------------------------
; Process hours:
; --------------
d10hour proc near
mov nodec,0
mov cl,acthlen
sub ch,ch
lea si,hrsfld-1
add si,cx
call m10asbi
mov ax,binval
mov binhrs,ax
ret
d10hour endp
;---------------------------------------------
; Process rate:
; -------------
e10rate proc near
mov cl,actrlen
sub ch,ch
lea si,ratefld-1
add si,cx
call m10asbi
mov ax,binval
mov binrate,ax
ret
e10rate endp
;----------------------------------------------
; Multiply,round,&shift
; ---------------------
f10mult proc near
mov cx,07
lea di,ascwage
mov ax,3030h
cld
rep stosw
mov shift,10
mov adjust,0
mov cx,nodec
cmp cl,06
ja f40
dec cx
dec cx
jle f30
mov nodec,02
mov ax,01
f20:
mul tenwd
loop f20
mov shift,ax
shr ax,1
mov adjust,ax
f30:
mov ax,binhrs
mul binrate
add ax,adjust
adc dx,0
mov tempdx,dx
mov tempax,ax
;
cmp adjust,0
jz f50
;
mov ax,dx
mov dx,0
div shift
mov tempdx,ax
mov ax,tempax
div shift
mov dx,tempdx
mov tempax,ax
jmp f50
;
f40:
mov ax,0
mov dx,0
f50:
ret
f10mult endp
;-------------------------------------
; Convert to ASC
; -------------
g10wage proc near
lea si,ascwage+11
mov byte ptr[si], '.'
add si,nodec
g30:
cmp byte ptr[si], '.'
jne g35
dec si
g35:
cmp dx,0
jnz g40
cmp ax,0010
jb g50
g40:
mov ax,dx
mov dx,0
div tenwd
mov tempdx,ax
mov ax,tempax
div tenwd
mov tempax,ax
or dl,30h
mov [si],dl
dec si
mov dx,tempdx
jmp g30
g50:
or al,30h
mov [si],al
ret
g10wage endp
;-----------------------------------------
; Display wage
; -------------
k10disp proc near
mov col,50
call q20curs
mov cx,10
lea si,ascwage
k20:
cmp byte ptr[si],30h
jne k30
mov byte ptr[si],20h
inc si
loop k20
k30:
lea dx,messg3
mov ah,09
int 21h
cmp row,20
jae k80
inc row
jmp k90
k80:
mov ax,0601h
call q10scr
mov col,0
call q20curs
k90:
ret
k10disp endp
;-----------------------------------------
; Convert ASC to binary
; -----------------------
m10asbi proc near
mov mult10,01
mov binval,0
mov decind,0
sub bx,bx
m20:
mov al,[si]
cmp al,'.'
jne m40
mov decind,01
jmp m90
m40:
and ax,000fh
mul mult10
jc overflow
add binval,ax
jc overflow
mov ax,mult10
mul tenwd
mov mult10,ax
cmp decind,0
jnz m90
inc bx
m90:
dec si
loop m20
cmp decind,0
jz m100
add nodec,bx
jmp m100
overflow:
mov binval,0
m100:
ret
m10asbi endp
;----------------------------------------------
; Scroll screen
; --------------
q10scr proc near
mov bh,07
sub cx,cx
mov dx,184fh
int 10h
ret
q10scr endp
;--------------------------------------------------
; Set cursor
; --------------
q20curs proc near
mov ah,2
sub bh,bh
mov dh,row
mov dl,col
int 10h
ret
q20curs endp
;---------------------------------------------------
codesg ends
end begin
PS:是不是小写的程序不能生成OBJ啊。。小女是个汇编菜鸟。。各位大虾见笑啦。。需要您的热心帮助。。。>_<..对每个给出建议的人。。都不胜感激！！
;PROGRAM TITLE GOES HERE --SCREMP
;Enter hours&rate,display wage
;*************************************
stacksg segment para stack 'stack'
dw 32 dup(?)
stacksg ends
;*************************************
datasg segment para 'data'
hrspar label byte ;Hours parameter list;
maxhlen db 6
acthlen db ?
hrsfld db 6 dup(?)
ratepar label byte ;rate parameter list;
maxrlen db 6
actrlen db ?
ratefld db 6 dup(?)
messg1 db 'Hours worked?','$'
messg2 db 'Rate of pay?','$'
messg3 db 'Wage ='
ascwage db 14 dup(30h),13,10,'$'
messg4 db 13,10,'Overflow!',13,10,'$'
adjust dw ?
binval dw 0
binhrs dw 0
binrate dw 0
col db 0
decind db 0
mult10 dw 01
nodec dw 0
row db 0
shift dw ?
tenwd dw 10
tempdx dw ?
tempax dw ?
datasg ends
;*************************************
codesg segment para 'code'
begin proc far ;main part of program
assume cs:codesg, ds:datasg, ss:stacksg,es:datasg
;set up stack for return
push ds
sub ax,ax
push ax
;set DS register to current data segment
mov ax,datasg
mov ds,ax
mov es,ax
;main part of program goes here
mov ax,0600h
CALL DISP
call q10scr
call q20curs
a20loop:
call b10inpt
cmp acthlen,0
je a30
call d10hour
call e10rate
call f10mult
call g10wage
call k10disp
jmp a20loop
a30:
mov ax,0600h
call q10scr
ret
begin endp
;-------------------------------------------
; Input hours&rate
b10inpt proc near
lea dx,messg1
mov ah,09h
int 21h
lea dx,hrspar
mov ah,0ah
int 21h
cmp acthlen,0
jne b20
ret
b20:
mov col,25
call q20curs
lea dx,messg2
mov ah,09h
int 21h
lea dx,ratepar
mov ah,0ah
int 21h
ret
b10inpt endp
;--------------------------------------------
; Process hours:
; --------------
d10hour proc near
mov nodec,0
mov cl,acthlen
sub ch,ch
lea si,hrsfld-1
add si,cx
call m10asbi
mov ax,binval
mov binhrs,ax
ret
d10hour endp
;---------------------------------------------
; Process rate:
; -------------
e10rate proc near
mov cl,actrlen
sub ch,ch
lea si,ratefld-1
add si,cx
call m10asbi
mov ax,binval
mov binrate,ax
ret
e10rate endp
;----------------------------------------------
; Multiply,round,&shift
; ---------------------
f10mult proc near
mov cx,07
lea di,ascwage
mov ax,3030h
cld
rep stosw
mov shift,10
mov adjust,0
mov cx,nodec
cmp cl,06
ja f40
dec cx
dec cx
jle f30
mov nodec,02
mov ax,01
f20:
mul tenwd
loop f20
mov shift,ax
shr ax,1
mov adjust,ax
f30:
mov ax,binhrs
mul binrate
add ax,adjust
adc dx,0
mov tempdx,dx
mov tempax,ax
;
cmp adjust,0
jz f50
;
mov ax,dx
mov dx,0
div shift
mov tempdx,ax
mov ax,tempax
div shift
mov dx,tempdx
mov tempax,ax
jmp f50
;
f40:
mov ax,0
mov dx,0
f50:
ret
f10mult endp
;-------------------------------------
; Convert to ASC
; -------------
g10wage proc near
lea si,ascwage+11
mov byte ptr[si], '.'
add si,nodec
g30:
cmp byte ptr[si], '.'
jne g35
dec si
g35:
cmp dx,0
jnz g40
cmp ax,0010
jb g50
g40:
mov ax,dx
mov dx,0
div tenwd
mov tempdx,ax
mov ax,tempax
div tenwd
mov tempax,ax
or dl,30h
mov [si],dl
dec si
mov dx,tempdx
jmp g30
g50:
or al,30h
mov [si],al
ret
g10wage endp
;-----------------------------------------
; Display wage
; -------------
k10disp proc near
mov col,50
call q20curs
mov cx,10
lea si,ascwage
k20:
cmp byte ptr[si],30h
jne k30
mov byte ptr[si],20h
inc si
loop k20
k30:
lea dx,messg3
mov ah,09
int 21h
cmp row,20
jae k80
inc row
jmp k90
k80:
mov ax,0601h
call q10scr
mov col,0
call q20curs
k90:
ret
k10disp endp
;-----------------------------------------
; Convert ASC to binary
; -----------------------
m10asbi proc near
mov mult10,01
mov binval,0
mov decind,0
sub bx,bx
m20:
mov al,[si]
cmp al,'.'
jne m40
mov decind,01
jmp m90
m40:
and ax,000fh
mul mult10
jc overflow
add binval,ax
jc overflow
mov ax,mult10
mul tenwd
mov mult10,ax
cmp decind,0
jnz m90
inc bx
m90:
dec si
loop m20
cmp decind,0
jz m100
add nodec,bx
jmp m100
overflow:
mov binval,0
m100:
ret
m10asbi endp
;----------------------------------------------
; Scroll screen
; --------------
q10scr proc near
mov bh,07
sub cx,cx
mov dx,184fh
int 10h
ret
q10scr endp
;--------------------------------------------------
; Set cursor
; --------------
q20curs proc near
mov ah,2
sub bh,bh
mov dh,row
mov dl,col
int 10h
ret
q20curs endp
;---------------------------------------------------
codesg ends
end begin
PS:是不是小写的程序不能生成OBJ啊。。小女是个汇编菜鸟。。各位大虾见笑啦。。需要您的热心帮助。。。>_<..对每个给出建议的人。。都不胜感激！！
