Hi, y'all!
On Nov 20, 7:04 pm, Michael wrote:
> Thanks very much, Antoine, for making this available!
Hopefully, Tom will find the REAL source and make the efforts of
Antoine and myself superfluous. In the meantime, I've taken my
disassembly much further than Antoine has, in an effort to make it as
close as possible to the available 16 bit source. Comparable snippets
are below my signature.
Willi
*=============================================
Snippet from Antoine's disassembly:
L4159 DA L418D
DA L4194
DA L41A3
DA L41B2
DA L41BD
DA L41CB
DA L41D8
DA L41DD
DA L41EB
DA L41FD
DA L4214
DA L4224
DA L4235
DA L4239
DA L423D
L4177 DA L424F
DA L4261
DA L4270
DA L4280
DA L4295
DA L42AA
DA L42BB
DA L42CD
DA L42E4
DA L42E9
DA L42F3
L418D ASC "Header"0D
L4194 ASC "Parent pointer"00
L41A3 ASC "Backwards link"00
L41B2 ASC "Block free"00
L41BD ASC "Bad file name"00
L41CB ASC "Entry length"00
L41D8 ASC "File"
ASC 'V'
L41DD ASC "Entries/block"00
L41EB ASC "Incomplete delete"00
L41FD ASC "Directory storage type"00
L4214 ASC "Not a directory"00
L4224 ASC "File block count"00
L4235 ASC "Cre"0F
L4239 ASC "Cre"1D
L423D ASC "Modification date"00
L424F ASC "Modification time"00
L4261 ASC "Stack overflow"00
L4270 ASC " <-Block in use"00
L4280 ASC "Block # out of range"00
L4295 ASC "Unknown storage type"00
L42AA ASC "Can't read index"
ASC 'N'
L42BB ASC "Can't read master"
ASC '='
L42CD ASC "Can't handle directory"
ASC '+'
L42E4 ASC "File"00
L42E9 ASC "Directory"00
L42F3 ASC "Index block"00
*=============================================
Snippet from my disassembly:
;
;
;
ERRADR
ER_HEAD DW head
ER_PAR DW parent
ER_LINK DW link
ER_ULOK DW unlock ; ER_UNLOCK
ER_BADN DW badname ; ER_BADNAM
ER_LEN DW length ; ER_LENGTH
ER_FCNT DW ficnt ; ER_FICNT
ER_CNT DW count ; ER_COUNT
ER_DEL DW del
ER_DIRT DW dirtyp ; ER_DIRTYP
ER_FILT DW filtyp ; ER_FILTYP
ER_BLKC DW blkcntm ; ER_BLKCNT
ER_CRED DW credate
ER_CRET DW cretime
ER_MODD DW moddate
ER_MODT DW modtime
ER_STAK DW stack ; ER_STACK
ER_USED DW usedm
ER_BLOK DW block ; ER_BLOCK
ER_STYP DW unktyp ; ER_STOTYP
ER_INDX DW indexm ; ER_INDEX
ER_MAST DW master ; ER_MASTER
ER_BADD DW baddir ; ER_BADDIR
NOCOUNT
ER_FSKP DW filskip ; ER_FILSKP
ER_DISK DW dirskip ; ER_DIRSKP
ER_BSKP DW ndex ; ER_BLKSKP
;
;
;
head ASC 'Header'
DB pointer-head
parent ASC 'Parent'
pointer ASC ' pointer'
DB 0
;
link ASC 'Backwards link'
DB 0
;
unlock ASC 'Block free'
DB 0
;
badname ASC 'Bad file name'
DB 0
;
length ASC 'Entry length'
DB 0
;
ficnt ASC 'File'
DB cnt-ficnt
;
count ASC 'Entries/block'
DB 0
;
del ASC 'Incomplete delete'
DB 0
;
dirtyp ASC 'Directory storage type'
DB 0
;
filtyp ASC 'Not a directory'
DB 0
;
blkcntm ASC 'File block'
cnt ASC ' count'
DB 0
;
credate ASC 'Cre'
DB date-credate
cretime ASC 'Cre'
DB time-cretime
moddate ASC 'Modific'
date ASC 'ation date'
DB 0
;
modtime ASC 'Modific'
time ASC 'ation time'
DB 0
;
stack ASC 'Stack overflow'
DB 0
;
usedm ASC ' <-Block in use'
DB 0
;
block ASC 'Block # out of range'
DB 0
;
unktyp ASC 'Unknown storage type'
DB 0
;
indexm ASC 'Can''t read index'
DB blk-indexm
master ASC 'Can''t read master'
DB blk-master
baddir ASC 'Can''t handle directory'
DB blk-baddir
filskip ASC 'File'
DB 0
;
dirskip ASC 'Directory'
DB 0
;
ndex ASC 'Index'
blk ASC ' block'
DB 0