SET_REC:
READ_REC:
WRITE:
MOV
MOV
MOV
MOV
INT
OR
JNZ
MOV
MOV
MOV
DEC
MOV
MOV
MOV
INT
OR
JZ
MOV
MOV
INT
OR
JNZ
MOV
MOV
MOV
MOV
INT
OR
JZ
JMP
MOV
DEC
AX,DATA
DS,AX
AH,0FH
DX,OFFSET FCB1
21H
AL,AL
ERR_EXIT
BX,DX
WORD PTR [BX+0EH],1
AX,WORD PTR [BX+10H]
AX
WORD PTR [BX+21H],AX
AH,0FH
DX,OFFSET FCB2
21H
AL,AL
SET_REC
AH,16H
DX,OFFSET FCB2
21H
AL,AL
ERR_EXIT
BX,DX
WORD PTR [BX+0EH],1
AH,21H
DX,OFFSET FCB1
21H
AL,AL
WRITE
ERR_EXIT
BX,DX
WORD PTR [BX+21H]
；初始化DS寄存器
；打开"源文件"
；文件正确打开了吗？
；文件没有正确打开，转ERR_EXIT
；BX指向FCB1
；设置记录长度为1字节
；AX寄存器取得文件长度低字
；文件长度-1
；将AX寄存器填入FCB1的"相对记录号"域
；打开"目标文件"
；打开操作正确吗？
；正确打开文件，转SET_REC
；建立"目标文件"
；文件正确建立了吗？
；文件没有正确建立，转ERR_EXIT
；BX指向FCB2
；设置FCB2的记录长度为1字节
；从"源文件"中随机读一个记录
；数据读取正确吗？
；正确读入数据，转WRITE
；没有正确读入数据，转ERR_EXIT
；BX寄存器指向FCB1
；FCB1的"随机记录号"减1