open FDDE DIR 1
5 x! Q- ?, g f$ wopen FDDE TOC 2
$ o# A+ @: e4 z) Pdo
9 j/ k, W m% q( ~4 U% i! | getdstring CHUNK 4 2, T( Y; _7 L/ Y: f) C) q7 b$ E
get DUNNO long 2! g8 ?: `5 a) G" T7 M
get DUNNO long 26 u5 p! _) c7 N: k/ k4 M
get FILES long 2$ _, ]! |% V- H
get DUNNO long 25 q+ @$ A& ~3 u$ y* i$ X7 l6 ]
get DUNNO long 2
2 g9 i3 z3 E( g6 l, q- x2 Z get DUNNO long 2
& r3 \4 O9 @( \( ^4 r# D; a% N get DUNNO long 25 F; C5 O# Y, L$ ^
while CHUNK != "REST"
/ @& M2 I6 d' H# z, u- P9 d, z- jsavepos NAMEPTR 1. R) _* T, }: x4 l: c
for i = 1 to FILES/ `8 r+ i9 ^" n! B# Z! v
get DUNNO long 2
, `1 `- W! t# s" L/ I get SIZE long 2
9 p- ?7 t$ k, {4 G/ E+ y math SIZE >>= 2
+ ?% M' R1 u: L, g, R8 s get OFFSET long 27 U& c, K$ a- c: k+ z
goto NAMEPTR 1
; y, |9 V3 l% r' w. X get NAMEOFF long 12 I4 U" {- F2 x0 ?/ M$ a1 _
savepos NAMEPTR 1. m* W% y7 {7 I8 L
goto NAMEOFF 11 S. c! _$ L% w3 E7 a- V2 J4 l
get NAME string 17 }- G8 V6 l" w* C' {
log NAME OFFSET SIZE
* Y* B; u' W7 a+ y0 Xnext i
* I( J- H: ?$ _1 g
# R2 `0 C$ A3 C7 y, }
c5 s- x% v5 i: W这是解包器0 a) G/ @5 v1 v8 d3 e! R3 R
9 c/ d8 c& K" n% k1 E2 b6 i: w& \
for 里面读取toc的部分,long就是4个字节
0 {% s6 m+ @) o/ A. P5 R get DUNNO long 2* d$ k, |( i; y4 |
get SIZE long 2
# @& M' V; l- V( U8 p math SIZE >>= 29 o9 i: z- c6 u, ]) q/ X# T
get OFFSET long 2
1 z3 n1 f7 E: Y( k! p
/ M0 j! L; K$ _% M5 Hfor 里面读取dir的部分,long就是4个字节: g9 g2 L+ _4 q0 W, F
goto NAMEPTR 1
; l- s% ?7 c7 t( [' G0 k3 o get NAMEOFF long 1- E% d3 `) U' \# T9 Z% `5 C- L
savepos NAMEPTR 1
/ x6 _6 e: O( I goto NAMEOFF 11 g! U" `- w0 x
get NAME string 1 |