珠海某外贸企业2007年发生如下经济业务,请考生运用借贷记账法编制会计分录,可以写出明细科目的,要求写出明细科目。(18分)
(1)今年3月末分配工资费用。其中:
A产品生产工人工资 36000元
B产品生产工人工资 30000元
车间管理人员工资 20000元
厂部管理人员工资 8000元
(2)按各类员工工资的14%提取本月职工福利费。
(3)本月A、B产品应承担的制造费用分别为20000元和15000元,将它们计入生产成本。
(4)用银行存款4000元结算上个季度银行借款利息。
(5)A、B两种产品各100件均已生产完工并验收入库,它们的生产成本分别为110000元和160000元,结转产成品成本。
(6)经计算本期应交所得税金额为530000元。
(7)将净利润4373500元转入利润分配账户。
(8)按规定提取法定盈余公积金375409元。
(9)按规定提取法定公益金72246元。
请编制程序,其功能是:内存中连续存放着16个10位二进制数DB9DB8…DB0,每个二进制数据均用两个字节表示,其存放格式均为:
转换结果按原序存放在内存中。
例如:
内存中有:C048H,4091H,0080H,…
结果为: 23H,01H,45H,02H,00H,02H…
部分程序已给出,其中原始数据由过程LOAD从文件INPUT1.DAT中读入SOURCE开始的内存单元中,运算结果要求从 RESULT开始存放,由过程SAVE保存到文件OUTPUT1.DAT中。
请填空BEGIN和END之间已给出的源程序使其完整,空白已用横线标出,每个空白一般只需一条指令,但采用功能相当的多条指令亦可,或删除BEGIN和END之间原有的代码并自行编程来完成所要求的功能。
对程序必须进行汇编,并与IO.OBJ链接产生可执行文件,最终运行程序产生结果。调试中若发现整个程序中存在错误之处,请加以修改。
[试题程序]
EXTRN LOAD:FAR,SAVE:FAR
N EQU 16
STAC SEGMENT STACK
DB 128 DUP()
STAC ENDS
DATA SEGMENT
SOURCE DW N DUP()
RESULT DB N*2 DUP(0)
NAME0 DB 'INPUT1.DAT',0
NAME1 DB 'OUTPUT1.DAT',0
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,SS:STAC
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DATA
MOV DS,AX
LEA DX,SOURCE ; 数据区起始地址
LEA SI,NAME0 ; 原始数据文件名
MOV CX,N*2 ; 字节数
CALL LOAD ; 从"INPUT1.DAT"中读取数据
; ******** BEGIN ********
MOV DI,OFFSET RESULT
MOV BX,0
MOV CH,N
PRO: MOV AH,BYTE PTR SOURCE[BX]
MOV AL, (1)
MOV DL,AH ; 10 位无符号二进制数高八位
MOV DH,AL ; 10 位无符号二进制数低二位
MOV CL,2
SHL AX, (2)
SHL DX, (3)
MOV AL,DH
MOV [DI], (4)
MOV [DI+I], (5)
ADD DI,2
A