- 积分
- 213
- 实力分
- 点
- 金钱数
- 两
- 技术分
- 分
- 贡献分
- 分
|

楼主 |
发表于 2005-9-16 09:46:21
|
显示全部楼层
这是56版原码。请大虾核对或重新移植补丁:
;-----------------------------------------
;#name FAM2. File Access Modification v2.1
;-----------------------------------------
'Firmware : sl45v56
'Author : rizapn
'Created : Jul 30, 2004
'Updated : Aug 23, 2004 (v2.1)
''
'Provide 'better' read file access for file related patches.
'Improve nothing, but reading a file will be much easier for the patchers.
'v2->export openDummy() and fileOpenOK() function
'v2.1->relocate dummyBuff to minimize conflict with java
''
'This patch need file A:\Trash\0 to work with no problem
'You can make your own 0 file which consist only 1 or 2 bytes and copy
'it to the new directory A:\Trash ...
org 0e4a298h ; calls fileClose
calls fam_fileClose
org 0e4a2f0h ; calls fileRead
calls fam_fileRead
''
org 0e47f00h
db '**** FAM v2 ****'
fam_fileRead:
callr fam_getHdl
jmpr cc_Z, fam_read
mov r13, r2
mov r14, r3
add r2, r15
cmp r2, #4000h
jmpr cc_C, fam_save
sub r2, #4000h
add r3, #1
fam_save:
extp #pag(FACBuff), #2
mov pof(FACBuff), r2
mov pof(FACBuff)+2, r3
fam_read:
jmps fileRead
fam_fileClose:
calls fileClose
mov [-r0], r4
callr fam_getHdl
jmpr cc_Z, fam_popr4
mov r3, #0
mov r2, #pof(FACBuff)+8
extp #pag(FACBuff), #2
mov [-r2], r3
mov [-r2], r3
calls callR5R4
fam_popr4:
mov r4, [r0+]
rets
fam_getHdl:
mov r5, #pof(FACBuff)
extp #pag(FACBuff), #4
mov r2, [r5+]
mov r3, [r5+]
mov r4, [r5+]
mov r5, [r5]
mov r1, r4
or r1, r5
ret
fam_openDummy:
mov r15, #pag(DummyBuff)
mov r14, #pof(DummyBuff)
fam_openDummyBuff:
mov r13, #pag(dummyFN)
mov r12, #pof(dummyFN)
fam_openFileOK:
mov r2, #pof(FACBuff)+8
extp #pag(FACBuff), #4
mov [-r2], r5
mov [-r2], r4
mov [-r2], r15
mov [-r2], r14
mov r4, #0FFFFh
extp #pag(FACBuff), #1
mov [-r2], r4
mov r2, #0
mov [-r0], r2
mov [-r0], r2
mov r14, #pof(BMPString)
mov r15, #pag(BMPString)
calls 0d7d912h
add r0, #4
rets
org 0e47fe0h
db 'A:\Trash\0',0,0
org 0e47ff0h
jmps fam_openDummy
jmps fam_openDummyBuff
jmps fam_openFileOK |
|