home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1989-09-13 | 23.8 KB | [TEXT/EDIT] |
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| AMOS Picture Packer (image/amosPicturePacker)
| ext
| Supported |
| 1%
| dexvert
| Debian floppy split (archive/debianFloppySplit)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images sound sample (audio/soundImagesSoundSample)
| ext
| Unsupported |
| 1%
| dexvert
| DESI-III drawing (image/desiIIIDrawing)
| ext
| Unsupported |
| 1%
| dexvert
| MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable)
| ext
| Unsupported |
| 1%
| dexvert
| Alien Trilogytextures (other/alienTrilogyTextures)
| ext
| Unsupported |
| 1%
| dexvert
| APT cache data (other/aptCacheData)
| ext
| Unsupported |
| 1%
| dexvert
| CorelTRACE configuration (other/corelTRACEConfiguration)
| ext
| Unsupported |
| 1%
| dexvert
| Dreamcast Disc (other/dreamcastDisc)
| ext
| Unsupported |
| 1%
| dexvert
| EST flat binary (other/estFlatBinary)
| ext
| Unsupported |
| 1%
| dexvert
| Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Sega Genesis/Megadrive/32x ROM (other/genesisROM)
| ext
| Unsupported |
| 1%
| dexvert
| Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive)
| ext
| Unsupported |
| 1%
| dexvert
| Sound Images Sound Driver (other/soundImagesSoundDriver)
| ext
| Unsupported |
| 1%
| dexvert
| Symantec/Norton Config (other/symantecNortonConfig)
| ext
| Unsupported |
| 1%
| dexvert
| Vectrex ROM (other/vectrexROM)
| ext
| Unsupported |
| 1%
| dexvert
| BIS raP encoded format (other/bisraPEncoded)
| ext
| Unsupported |
| 1%
| dexvert
| Pascal Script binary (other/pascalScriptBinary)
| ext
| Unsupported |
| 1%
| dexvert
| 7th Level game data archive (other/seventhLevelGameDataArchive)
| ext
| Unsupported |
| 1%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 1%
| dexvert
| Binary Text (image/binaryText)
| fallback
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary, Tue Jan 20 16:29:01 1987, modified Wed Feb 22 15:56:36 1989, creator Macintosh Edit, type ASCII, 23610 bytes "DeskCheck.asm" , at 0x5cba 478 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 74%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 25%
| TrID
| MacBinary 1
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
| |
| 100%
| gt2
| MAC Bilddatei
| default (weak)
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [EDIT] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 44 65 73 6b 43 68 | 65 63 6b 2e 61 73 6d 00 |..DeskCh|eck.asm.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 00 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 5c 3a 00 | 00 01 de 9c 39 9c 9d a0 |.....\:.|....9...|
|00000060| 28 cf 04 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |(.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 0d 44 65 62 75 67 09 65 | 71 75 09 30 09 09 3b 20 |.Debug.e|qu.0..; |
|00000090| 6d 61 6b 65 20 6e 6f 6e | 2d 7a 65 72 6f 20 66 6f |make non|-zero fo|
|000000a0| 72 20 64 65 62 75 67 67 | 69 6e 67 0d 0d 09 53 74 |r debugg|ing...St|
|000000b0| 72 69 6e 67 5f 46 6f 72 | 6d 61 74 09 30 09 3b 20 |ring_For|mat.0.; |
|000000c0| 6e 6f 20 73 74 72 69 6e | 67 20 70 61 64 64 69 6e |no strin|g paddin|
|000000d0| 67 0d 0d 0d 3b 09 44 65 | 73 6b 43 68 65 63 6b 2e |g...;.De|skCheck.|
|000000e0| 61 73 6d 3a 20 46 69 6e | 64 20 6f 75 74 20 77 68 |asm: Fin|d out wh|
|000000f0| 65 74 68 65 72 20 65 76 | 65 72 79 6f 6e 65 27 73 |ether ev|eryone's|
|00000100| 20 62 75 6e 64 6c 65 20 | 69 73 20 6c 65 67 69 74 | bundle |is legit|
|00000110| 2e 0d 3b 09 45 70 68 72 | 61 69 6d 20 56 69 73 68 |..;.Ephr|aim Vish|
|00000120| 6e 69 61 63 20 2f 20 50 | 2e 4f 2e 20 42 6f 78 20 |niac / P|.O. Box |
|00000130| 31 33 35 37 20 2f 20 45 | 61 73 74 20 41 72 6c 69 |1357 / E|ast Arli|
|00000140| 6e 67 74 6f 6e 2c 20 4d | 41 20 30 32 31 37 34 0d |ngton, M|A 02174.|
|00000150| 3b 09 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |;.This p|rogram i|
|00000160| 73 20 69 6e 20 74 68 65 | 20 70 75 62 6c 69 63 20 |s in the| public |
|00000170| 64 6f 6d 61 69 6e 2e 0d | 0d 3b 0d 0d 09 49 6e 63 |domain..|.;...Inc|
|00000180| 6c 75 64 65 09 54 72 61 | 70 73 2e 44 0d 09 49 6e |lude.Tra|ps.D..In|
|00000190| 63 6c 75 64 65 09 53 79 | 73 45 71 75 58 2e 44 0d |clude.Sy|sEquX.D.|
|000001a0| 09 49 6e 63 6c 75 64 65 | 09 46 53 45 71 75 2e 44 |.Include|.FSEqu.D|
|000001b0| 0d 09 49 6e 63 6c 75 64 | 65 09 54 6f 6f 6c 45 71 |..Includ|e.ToolEq|
|000001c0| 75 2e 44 0d 09 49 6e 63 | 6c 75 64 65 09 53 79 73 |u.D..Inc|lude.Sys|
|000001d0| 45 72 72 2e 44 0d 09 49 | 6e 63 6c 75 64 65 09 50 |Err.D..I|nclude.P|
|000001e0| 61 63 6b 4d 61 63 73 2e | 54 78 74 0d 0d 3b 09 4f |ackMacs.|Txt..;.O|
|000001f0| 75 72 20 4d 61 63 72 6f | 73 0d 0d 4d 41 43 52 4f |ur Macro|s..MACRO|
|00000200| 09 44 6f 41 6c 65 72 74 | 09 09 41 6c 65 72 74 4e |.DoAlert|..AlertN|
|00000210| 75 6d 62 65 72 20 3d 0d | 09 49 46 20 44 65 62 75 |umber =.|.IF Debu|
|00000220| 67 0d 09 5f 44 65 62 75 | 67 67 65 72 0d 09 45 4e |g.._Debu|gger..EN|
|00000230| 44 49 46 0d 09 3b 20 41 | 6c 65 72 74 20 28 41 6c |DIF..; A|lert (Al|
|00000240| 65 72 74 4e 75 6d 62 65 | 72 3a 49 4e 54 2c 20 4e |ertNumbe|r:INT, N|
|00000250| 49 4c 3a 50 72 6f 63 50 | 74 72 29 20 3a 20 49 4e |IL:ProcP|tr) : IN|
|00000260| 54 3b 0d 09 63 6c 72 2e | 77 09 09 2d 28 73 70 29 |T;..clr.|w..-(sp)|
|00000270| 09 09 09 3b 20 73 70 61 | 63 65 20 66 6f 72 20 72 |...; spa|ce for r|
|00000280| 65 73 75 6c 74 0d 09 6d | 6f 76 65 2e 77 09 09 23 |esult..m|ove.w..#|
|00000290| 7b 41 6c 65 72 74 4e 75 | 6d 62 65 72 7d 2c 2d 28 |{AlertNu|mber},-(|
|000002a0| 73 70 29 09 3b 20 61 6c | 65 72 74 20 6e 75 6d 62 |sp).; al|ert numb|
|000002b0| 65 72 0d 09 63 6c 72 2e | 6c 09 09 2d 28 73 70 29 |er..clr.|l..-(sp)|
|000002c0| 09 09 09 3b 20 4e 49 4c | 20 66 69 6c 74 65 72 0d |...; NIL| filter.|
|000002d0| 09 5f 41 6c 65 72 74 0d | 09 6d 6f 76 65 2e 77 09 |._Alert.|.move.w.|
|000002e0| 09 28 73 70 29 2b 2c 64 | 30 09 09 3b 20 64 30 20 |.(sp)+,d|0..; d0 |
|000002f0| 3d 20 62 75 74 74 6f 6e | 20 68 69 74 0d 09 63 6d |= button| hit..cm|
|00000300| 70 2e 77 09 09 23 4f 4b | 69 74 65 6d 2c 64 30 09 |p.w..#OK|item,d0.|
|00000310| 09 3b 20 73 74 61 6e 64 | 61 72 64 20 74 65 73 74 |.; stand|ard test|
|00000320| 0d 09 7c 0d 0d 4d 41 43 | 52 4f 09 44 65 62 75 67 |..|..MAC|RO.Debug|
|00000330| 50 6f 69 6e 74 20 3d 0d | 09 49 46 20 44 65 62 75 |Point =.|.IF Debu|
|00000340| 67 0d 09 5f 44 65 62 75 | 67 67 65 72 0d 09 45 4e |g.._Debu|gger..EN|
|00000350| 44 49 46 0d 09 7c 0d 0d | 4d 41 43 52 4f 09 55 73 |DIF..|..|MACRO.Us|
|00000360| 65 55 73 20 3d 0d 09 6d | 6f 76 65 2e 77 09 09 4f |eUs =..m|ove.w..O|
|00000370| 75 72 4d 61 70 28 61 35 | 29 2c 43 75 72 4d 61 70 |urMap(a5|),CurMap|
|00000380| 09 3b 20 6d 61 6b 65 20 | 6f 75 72 73 20 74 68 65 |.; make |ours the|
|00000390| 20 63 75 72 72 65 6e 74 | 20 6d 61 70 0d 09 7c 0d | current| map..|.|
|000003a0| 0d 4d 41 43 52 4f 09 55 | 73 65 54 68 65 6d 20 3d |.MACRO.U|seThem =|
|000003b0| 0d 09 6d 6f 76 65 2e 77 | 09 09 54 68 65 69 72 4d |..move.w|..TheirM|
|000003c0| 61 70 28 61 35 29 2c 43 | 75 72 4d 61 70 09 3b 20 |ap(a5),C|urMap.; |
|000003d0| 6d 61 6b 65 20 74 68 65 | 69 72 73 20 74 68 65 20 |make the|irs the |
|000003e0| 63 75 72 72 65 6e 74 20 | 6d 61 70 0d 09 7c 0d 0d |current |map..|..|
|000003f0| 4d 41 43 52 4f 09 53 65 | 74 50 61 72 61 6d 54 65 |MACRO.Se|tParamTe|
|00000400| 78 74 20 3d 0d 09 6d 6f | 76 65 2e 6c 09 50 61 72 |xt =..mo|ve.l.Par|
|00000410| 61 6d 5a 65 72 6f 28 61 | 35 29 2c 2d 28 73 70 29 |amZero(a|5),-(sp)|
|00000420| 09 3b 20 70 75 73 68 20 | 6f 75 72 20 70 61 72 61 |.; push |our para|
|00000430| 6d 74 65 78 74 20 70 6f | 69 6e 74 65 72 73 0d 09 |mtext po|inters..|
|00000440| 6d 6f 76 65 2e 6c 09 50 | 61 72 61 6d 4f 6e 65 28 |move.l.P|aramOne(|
|00000450| 61 35 29 2c 2d 28 73 70 | 29 0d 09 6d 6f 76 65 2e |a5),-(sp|)..move.|
|00000460| 6c 09 50 61 72 61 6d 54 | 77 6f 28 61 35 29 2c 2d |l.ParamT|wo(a5),-|
|00000470| 28 73 70 29 0d 09 6d 6f | 76 65 2e 6c 09 50 61 72 |(sp)..mo|ve.l.Par|
|00000480| 61 6d 54 68 72 65 65 28 | 61 35 29 2c 2d 28 73 70 |amThree(|a5),-(sp|
|00000490| 29 0d 09 5f 50 61 72 61 | 6d 54 65 78 74 0d 09 7c |).._Para|mText..||
|000004a0| 0d 0d 6d 61 63 72 6f 20 | 20 20 44 4e 41 4d 45 20 |..macro | DNAME |
|000004b0| 20 20 4e 61 6d 65 20 3d | 0d 20 20 20 20 20 20 20 | Name =|. |
|000004c0| 20 64 63 2e 62 20 20 20 | 20 27 7b 4e 61 6d 65 7c | dc.b | '{Name||
|000004d0| 30 3a 38 7d 27 0d 09 2e | 61 6c 69 67 6e 09 32 0d |0:8}'...|align.2.|
|000004e0| 09 7c 0d 0d 0d 3b 09 4f | 75 72 20 61 6c 65 72 74 |.|...;.O|ur alert|
|000004f0| 73 0d 0d 47 72 65 65 74 | 69 6e 67 09 65 71 75 09 |s..Greet|ing.equ.|
|00000500| 31 32 38 09 3b 20 73 61 | 79 20 68 65 6c 6c 6f 0d |128.; sa|y hello.|
|00000510| 46 61 72 65 77 65 6c 6c | 09 65 71 75 09 31 32 39 |Farewell|.equ.129|
|00000520| 09 3b 20 73 61 79 20 67 | 6f 6f 64 62 79 65 0d 53 |.; say g|oodbye.S|
|00000530| 65 74 56 6f 6c 46 61 69 | 6c 65 64 09 65 71 75 09 |etVolFai|led.equ.|
|00000540| 31 33 30 09 3b 20 63 6f | 75 6c 64 6e 27 74 20 53 |130.; co|uldn't S|
|00000550| 65 74 56 6f 6c 0d 4f 70 | 65 6e 52 65 73 46 61 69 |etVol.Op|enResFai|
|00000560| 6c 65 64 09 65 71 75 09 | 31 33 31 09 3b 20 63 6f |led.equ.|131.; co|
|00000570| 75 6c 64 6e 27 74 20 4f | 70 65 6e 52 65 73 46 69 |uldn't O|penResFi|
|00000580| 6c 65 0d 42 75 6e 64 6c | 65 42 69 74 43 6c 65 61 |le.Bundl|eBitClea|
|00000590| 72 09 65 71 75 09 31 33 | 32 09 3b 20 68 61 73 20 |r.equ.13|2.; has |
|000005a0| 62 75 6e 64 6c 65 73 2c | 20 62 75 74 20 6e 6f 20 |bundles,| but no |
|000005b0| 62 75 6e 64 6c 65 20 62 | 69 74 0d 4e 75 6d 62 65 |bundle b|it.Numbe|
|000005c0| 72 4f 66 54 79 70 65 73 | 09 65 71 75 09 31 33 33 |rOfTypes|.equ.133|
|000005d0| 09 3b 20 62 75 6e 64 6c | 65 73 20 68 61 73 20 75 |.; bundl|es has u|
|000005e0| 6e 75 73 75 61 6c 20 6e | 75 6d 62 65 72 20 6f 66 |nusual n|umber of|
|000005f0| 20 74 79 70 65 73 0d 4e | 6f 53 69 67 52 65 73 6f | types.N|oSigReso|
|00000600| 75 72 63 65 09 65 71 75 | 09 31 33 34 09 3b 20 63 |urce.equ|.134.; c|
|00000610| 6f 75 6c 64 6e 27 74 20 | 6c 6f 61 64 20 73 69 67 |ouldn't |load sig|
|00000620| 6e 61 74 75 72 65 20 72 | 65 73 6f 75 72 63 65 0d |nature r|esource.|
|00000630| 4e 6f 76 65 6c 54 79 70 | 65 09 65 71 75 09 31 33 |NovelTyp|e.equ.13|
|00000640| 35 09 3b 20 6e 65 69 74 | 68 65 72 20 49 43 4e 23 |5.; neit|her ICN#|
|00000650| 2c 20 6e 6f 72 20 46 52 | 45 46 0d 4d 69 73 73 69 |, nor FR|EF.Missi|
|00000660| 6e 67 42 75 6e 64 6c 65 | 09 65 71 75 09 31 33 36 |ngBundle|.equ.136|
|00000670| 09 3b 20 62 75 6e 64 6c | 65 20 69 73 20 74 6f 6f |.; bundl|e is too|
|00000680| 20 73 68 6f 72 74 0d 45 | 78 63 65 73 73 42 75 6e | short.E|xcessBun|
|00000690| 64 6c 65 09 65 71 75 09 | 31 33 37 09 3b 20 62 75 |dle.equ.|137.; bu|
|000006a0| 6e 64 6c 65 20 72 75 6e | 73 20 74 6f 6f 20 6c 6f |ndle run|s too lo|
|000006b0| 6e 67 0d 46 75 6e 6e 79 | 49 63 6f 6e 09 65 71 75 |ng.Funny|Icon.equ|
|000006c0| 09 31 33 38 09 3b 20 49 | 43 4e 23 20 69 73 6e 27 |.138.; I|CN# isn'|
|000006d0| 74 20 32 35 36 20 62 79 | 74 65 73 0d 53 6d 61 6c |t 256 by|tes.Smal|
|000006e0| 6c 46 52 45 46 09 65 71 | 75 09 31 33 39 09 3b 20 |lFREF.eq|u.139.; |
|000006f0| 46 52 45 46 20 69 73 20 | 6c 65 73 73 20 74 68 61 |FREF is |less tha|
|00000700| 6e 20 73 69 78 20 62 79 | 74 65 73 0d 42 69 67 46 |n six by|tes.BigF|
|00000710| 52 45 46 09 09 65 71 75 | 09 31 34 30 09 3b 20 46 |REF..equ|.140.; F|
|00000720| 52 45 46 20 69 73 20 6d | 6f 72 65 20 74 68 61 6e |REF is m|ore than|
|00000730| 20 32 36 32 20 62 79 74 | 65 73 0d 4d 69 73 73 69 | 262 byt|es.Missi|
|00000740| 6e 67 52 65 73 6f 75 72 | 63 65 09 65 71 75 09 31 |ngResour|ce.equ.1|
|00000750| 34 31 09 3b 20 63 61 6e | 27 74 20 66 69 6e 64 20 |41.; can|'t find |
|00000760| 73 6f 6d 65 20 62 75 6e | 64 6c 65 64 20 72 65 73 |some bun|dled res|
|00000770| 6f 75 72 63 65 0d 44 6f | 56 6f 6c 75 6d 65 41 6c |ource.Do|VolumeAl|
|00000780| 65 72 74 09 65 71 75 09 | 31 34 32 09 3b 20 73 68 |ert.equ.|142.; sh|
|00000790| 6f 75 6c 64 20 77 65 20 | 64 6f 20 74 68 69 73 20 |ould we |do this |
|000007a0| 76 6f 6c 75 6d 65 3f 0d | 4e 6f 49 63 6f 6e 73 09 |volume?.|NoIcons.|
|000007b0| 09 65 71 75 09 31 34 33 | 09 3b 20 6e 6f 20 49 43 |.equ.143|.; no IC|
|000007c0| 4e 23 20 6c 69 73 74 20 | 69 6e 20 62 75 6e 64 6c |N# list |in bundl|
|000007d0| 65 0d 4e 6f 46 52 45 46 | 73 09 09 65 71 75 09 31 |e.NoFREF|s..equ.1|
|000007e0| 34 34 09 3b 20 6e 6f 20 | 46 52 45 46 20 6c 69 73 |44.; no |FREF lis|
|000007f0| 74 20 69 6e 20 62 75 6e | 64 6c 65 0d 42 61 64 4c |t in bun|dle.BadL|
|00000800| 6f 63 61 6c 49 44 09 65 | 71 75 09 31 34 35 09 3b |ocalID.e|qu.145.;|
|00000810| 20 6c 6f 63 61 6c 20 49 | 44 20 75 6e 72 65 73 6f | local I|D unreso|
|00000820| 6c 76 65 64 0d 4f 72 70 | 68 61 6e 54 79 70 65 09 |lved.Orp|hanType.|
|00000830| 65 71 75 09 31 34 36 09 | 3b 20 6e 6f 20 46 52 45 |equ.146.|; no FRE|
|00000840| 46 20 77 69 74 68 20 74 | 68 69 73 20 66 69 6c 65 |F with t|his file|
|00000850| 20 74 79 70 65 0d 4f 72 | 70 68 61 6e 43 72 65 61 | type.Or|phanCrea|
|00000860| 74 6f 72 09 65 71 75 09 | 31 34 37 09 3b 20 6e 6f |tor.equ.|147.; no|
|00000870| 20 42 4e 44 4c 20 77 69 | 74 68 20 6d 61 74 63 68 | BNDL wi|th match|
|00000880| 69 6e 67 20 73 69 67 6e | 61 74 75 72 65 0d 42 75 |ing sign|ature.Bu|
|00000890| 6e 64 6c 65 42 69 74 4e | 6f 52 46 09 65 71 75 09 |ndleBitN|oRF.equ.|
|000008a0| 31 34 38 09 3b 20 42 75 | 6e 64 6c 65 20 62 69 74 |148.; Bu|ndle bit|
|000008b0| 20 69 73 20 6f 6e 2c 20 | 62 75 74 20 6e 6f 20 72 | is on, |but no r|
|000008c0| 65 73 6f 75 72 63 65 20 | 66 6f 72 6b 0d 42 75 6e |esource |fork.Bun|
|000008d0| 64 6c 65 42 69 74 4e 6f | 42 4e 44 4c 09 65 71 75 |dleBitNo|BNDL.equ|
|000008e0| 09 31 34 39 09 3b 20 42 | 75 6e 64 6c 65 20 62 69 |.149.; B|undle bi|
|000008f0| 74 20 69 73 20 6f 6e 2c | 20 62 75 74 20 6e 6f 20 |t is on,| but no |
|00000900| 62 75 6e 64 6c 65 73 0d | 42 6c 61 6e 6b 49 6d 61 |bundles.|BlankIma|
|00000910| 67 65 09 65 71 75 09 31 | 35 30 09 3b 20 54 68 65 |ge.equ.1|50.; The|
|00000920| 20 69 6d 61 67 65 20 61 | 72 65 61 20 6f 66 20 74 | image a|rea of t|
|00000930| 68 65 20 49 43 4e 23 20 | 69 73 20 62 6c 61 6e 6b |he ICN# |is blank|
|00000940| 0d 42 6c 61 6e 6b 4d 61 | 73 6b 09 65 71 75 09 31 |.BlankMa|sk.equ.1|
|00000950| 35 31 09 3b 20 54 68 65 | 20 6d 61 73 6b 20 61 72 |51.; The| mask ar|
|00000960| 65 61 20 6f 66 20 74 68 | 65 20 49 43 4e 23 20 69 |ea of th|e ICN# i|
|00000970| 73 20 62 6c 61 6e 6b 0d | 0d 3b 09 4f 75 72 20 64 |s blank.|.;.Our d|
|00000980| 69 61 6c 6f 67 73 0d 0d | 43 75 72 72 65 6e 74 46 |ialogs..|CurrentF|
|00000990| 69 6c 65 09 65 71 75 09 | 35 30 30 0d 0d 3b 09 4f |ile.equ.|500..;.O|
|000009a0| 74 68 65 72 20 6d 69 73 | 63 65 6c 6c 61 6e 65 6f |ther mis|cellaneo|
|000009b0| 75 73 20 65 71 75 61 74 | 65 73 0d 0d 4f 4b 69 74 |us equat|es..OKit|
|000009c0| 65 6d 09 09 65 71 75 09 | 31 09 3b 20 49 74 65 6d |em..equ.|1.; Item|
|000009d0| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 4f 4b 20 62 | number |for OK b|
|000009e0| 75 74 74 6f 6e 0d 51 75 | 69 74 49 74 65 6d 09 65 |utton.Qu|itItem.e|
|000009f0| 71 75 09 32 09 3b 20 49 | 74 65 6d 20 6e 75 6d 62 |qu.2.; I|tem numb|
|00000a00| 65 72 20 66 6f 72 20 51 | 75 69 74 20 62 75 74 74 |er for Q|uit butt|
|00000a10| 6f 6e 0d 0d 3b 09 4f 75 | 72 20 67 6c 6f 62 61 6c |on..;.Ou|r global|
|00000a20| 73 0d 0d 4f 75 72 4d 61 | 70 09 09 64 73 2e 77 09 |s..OurMa|p..ds.w.|
|00000a30| 31 09 3b 20 61 20 77 6f | 72 64 20 66 72 6f 6d 20 |1.; a wo|rd from |
|00000a40| 6f 75 72 20 73 70 6f 6e | 73 6f 72 0d 54 68 65 69 |our spon|sor.Thei|
|00000a50| 72 4d 61 70 09 64 73 2e | 77 09 31 09 3b 20 65 71 |rMap.ds.|w.1.; eq|
|00000a60| 75 61 6c 20 74 69 6d 65 | 20 66 6f 72 20 74 68 65 |ual time| for the|
|00000a70| 20 6f 74 68 65 72 20 67 | 75 79 0d 44 69 61 6c 6f | other g|uy.Dialo|
|00000a80| 67 50 74 72 09 64 73 2e | 6c 09 31 09 3b 20 63 75 |gPtr.ds.|l.1.; cu|
|00000a90| 72 72 65 6e 74 20 64 69 | 61 6c 6f 67 0d 4f 74 68 |rrent di|alog.Oth|
|00000aa0| 65 72 42 4e 44 4c 73 09 | 64 73 2e 77 09 31 09 3b |erBNDLs.|ds.w.1.;|
|00000ab0| 20 27 62 61 63 6b 67 72 | 6f 75 6e 64 20 63 6f 75 | 'backgr|ound cou|
|00000ac0| 6e 74 27 20 6f 66 20 42 | 4e 44 4c 20 72 65 73 6f |nt' of B|NDL reso|
|00000ad0| 75 72 63 65 73 0d 50 61 | 72 61 6d 5a 65 72 6f 09 |urces.Pa|ramZero.|
|00000ae0| 64 73 2e 6c 09 31 09 3b | 20 6f 75 72 20 70 61 72 |ds.l.1.;| our par|
|00000af0| 61 6d 20 7a 65 72 6f 20 | 74 65 78 74 20 70 6f 69 |am zero |text poi|
|00000b00| 6e 74 65 72 0d 50 61 72 | 61 6d 4f 6e 65 09 64 73 |nter.Par|amOne.ds|
|00000b10| 2e 6c 09 31 09 3b 20 6f | 75 72 20 70 61 72 61 6d |.l.1.; o|ur param|
|00000b20| 20 6f 6e 65 20 74 65 78 | 74 20 70 6f 69 6e 74 65 | one tex|t pointe|
|00000b30| 72 0d 50 61 72 61 6d 54 | 77 6f 09 64 73 2e 6c 09 |r.ParamT|wo.ds.l.|
|00000b40| 31 09 3b 20 6f 75 72 20 | 70 61 72 61 6d 20 74 77 |1.; our |param tw|
|00000b50| 6f 20 74 65 78 74 20 70 | 6f 69 6e 74 65 72 0d 50 |o text p|ointer.P|
|00000b60| 61 72 61 6d 54 68 72 65 | 65 09 64 73 2e 6c 09 31 |aramThre|e.ds.l.1|
|00000b70| 09 3b 20 6f 75 72 20 70 | 61 72 61 6d 20 74 68 72 |.; our p|aram thr|
|00000b80| 65 65 20 74 65 78 74 20 | 70 6f 69 6e 74 65 72 0d |ee text |pointer.|
|00000b90| 46 69 6c 65 54 79 70 65 | 09 64 73 2e 6c 09 31 09 |FileType|.ds.l.1.|
|00000ba0| 3b 20 46 69 6c 65 20 54 | 79 70 65 20 6f 66 20 63 |; File T|ype of c|
|00000bb0| 75 72 72 65 6e 74 20 66 | 69 6c 65 0d 46 69 6c 65 |urrent f|ile.File|
|00000bc0| 43 72 65 61 74 6f 72 09 | 64 73 2e 6c 09 31 09 3b |Creator.|ds.l.1.;|
|00000bd0| 20 46 69 6c 65 20 43 72 | 65 61 74 6f 72 20 6f 66 | File Cr|eator of|
|00000be0| 20 63 75 72 72 65 6e 74 | 20 66 69 6c 65 0d 54 79 | current| file.Ty|
|00000bf0| 70 65 4d 61 74 63 68 09 | 64 73 2e 62 09 31 09 3b |peMatch.|ds.b.1.;|
|00000c00| 20 66 6c 61 67 20 66 6f | 72 20 66 69 6c 65 20 74 | flag fo|r file t|
|00000c10| 79 70 65 20 6d 61 74 63 | 68 65 64 0d 43 72 65 61 |ype matc|hed.Crea|
|00000c20| 74 6f 72 4d 61 74 63 68 | 09 64 73 2e 62 09 31 09 |torMatch|.ds.b.1.|
|00000c30| 3b 20 66 6c 61 67 20 66 | 6f 72 20 66 69 6c 65 20 |; flag f|or file |
|00000c40| 63 72 65 61 74 6f 72 20 | 6d 61 74 63 68 65 64 0d |creator |matched.|
|00000c50| 0d 09 58 44 65 66 09 46 | 43 65 6e 73 75 73 0d 0d |..XDef.F|Census..|
|00000c60| 44 65 73 6b 43 68 65 63 | 6b 0d 3b 2d 2d 2d 2d 2d |DeskChec|k.;-----|
|00000c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 49 6e 69 74 20 |--------|-- Init |
|00000c90| 4d 61 6e 61 67 65 72 73 | 20 2d 2d 2d 2d 2d 2d 2d |Managers| -------|
|00000ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000cb0| 2d 2d 2d 2d 2d 0d 0d 09 | 70 65 61 09 2d 34 28 41 |-----...|pea.-4(A|
|00000cc0| 35 29 09 09 09 3b 20 51 | 75 69 63 6b 64 72 61 77 |5)...; Q|uickdraw|
|00000cd0| 27 73 20 67 6c 6f 62 61 | 6c 20 61 72 65 61 0d 09 |'s globa|l area..|
|00000ce0| 5f 49 6e 69 74 47 72 61 | 66 09 09 09 3b 20 49 6e |_InitGra|f...; In|
|00000cf0| 69 74 20 51 75 69 63 6b | 64 72 61 77 0d 09 5f 49 |it Quick|draw.._I|
|00000d00| 6e 69 74 46 6f 6e 74 73 | 09 09 09 3b 20 49 6e 69 |nitFonts|...; Ini|
|00000d10| 74 20 46 6f 6e 74 20 4d | 61 6e 61 67 65 72 0d 09 |t Font M|anager..|
|00000d20| 6d 6f 76 65 2e 6c 09 23 | 24 46 46 46 46 2c 44 30 |move.l.#|$FFFF,D0|
|00000d30| 09 09 3b 20 46 6c 75 73 | 68 20 61 6c 6c 20 65 76 |..; Flus|h all ev|
|00000d40| 65 6e 74 73 0d 09 5f 46 | 6c 75 73 68 45 76 65 6e |ents.._F|lushEven|
|00000d50| 74 73 0d 09 5f 49 6e 69 | 74 57 69 6e 64 6f 77 73 |ts.._Ini|tWindows|
|00000d60| 09 09 09 3b 20 49 6e 69 | 74 20 57 69 6e 64 6f 77 |...; Ini|t Window|
|00000d70| 20 4d 61 6e 61 67 65 72 | 0d 09 5f 49 6e 69 74 4d | Manager|.._InitM|
|00000d80| 65 6e 75 73 09 09 09 3b | 20 49 6e 69 74 20 4d 65 |enus...;| Init Me|
|00000d90| 6e 75 20 4d 61 6e 61 67 | 65 72 0d 09 5f 54 45 49 |nu Manag|er.._TEI|
|00000da0| 6e 69 74 09 09 09 09 3b | 20 49 6e 69 74 20 54 65 |nit....;| Init Te|
|00000db0| 78 74 20 45 64 69 74 0d | 09 63 6c 72 2e 6c 09 2d |xt Edit.|.clr.l.-|
|00000dc0| 28 53 50 29 09 09 09 3b | 20 4e 6f 20 72 65 73 74 |(SP)...;| No rest|
|00000dd0| 61 72 74 20 70 72 6f 63 | 65 64 75 72 65 0d 09 5f |art proc|edure.._|
|00000de0| 49 6e 69 74 44 69 61 6c | 6f 67 73 09 09 09 3b 20 |InitDial|ogs...; |
|00000df0| 49 6e 69 74 20 44 69 61 | 6c 6f 67 20 4d 61 6e 61 |Init Dia|log Mana|
|00000e00| 67 65 72 0d 09 5f 49 6e | 69 74 43 75 72 73 6f 72 |ger.._In|itCursor|
|00000e10| 09 09 09 3b 20 54 75 72 | 6e 20 6f 6e 20 61 72 72 |...; Tur|n on arr|
|00000e20| 6f 77 20 63 75 72 73 6f | 72 0d 0d 3b 2d 2d 2d 2d |ow curso|r..;----|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 20 49 6e 69 74 |--------|--- Init|
|00000e50| 20 47 6c 6f 62 61 6c 73 | 20 2d 2d 2d 2d 2d 2d 2d | Globals| -------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 0d 09 | 6d 6f 76 65 2e 77 09 43 |------..|move.w.C|
|00000e80| 75 72 4d 61 70 2c 4f 75 | 72 4d 61 70 28 61 35 29 |urMap,Ou|rMap(a5)|
|00000e90| 09 3b 20 72 65 63 6f 72 | 64 20 6f 75 72 20 72 65 |.; recor|d our re|
|00000ea0| 73 6f 75 72 63 65 20 72 | 65 66 6e 75 6d 0d 0d 09 |source r|efnum...|
|00000eb0| 3b 20 77 65 20 6e 65 65 | 64 20 74 6f 20 64 69 73 |; we nee|d to dis|
|00000ec0| 63 6f 75 6e 74 20 62 75 | 6e 64 6c 65 73 20 69 6e |count bu|ndles in|
|00000ed0| 20 6f 75 72 20 66 69 6c | 65 20 61 6e 64 20 74 68 | our fil|e and th|
|00000ee0| 65 20 73 79 73 74 65 6d | 0d 09 63 6c 72 2e 77 09 |e system|..clr.w.|
|00000ef0| 2d 28 73 70 29 0d 09 6d | 6f 76 65 2e 6c 09 23 27 |-(sp)..m|ove.l.#'|
|00000f00| 42 4e 44 4c 27 2c 2d 28 | 73 70 29 09 09 3b 20 48 |BNDL',-(|sp)..; H|
|00000f10| 6f 77 20 6d 61 6e 79 20 | 62 75 6e 64 6c 65 73 3f |ow many |bundles?|
|00000f20| 0d 09 5f 43 6f 75 6e 74 | 52 65 73 6f 75 72 63 65 |.._Count|Resource|
|00000f30| 73 0d 09 6d 6f 76 65 2e | 77 09 28 73 70 29 2b 2c |s..move.|w.(sp)+,|
|00000f40| 4f 74 68 65 72 42 4e 44 | 4c 73 28 61 35 29 09 3b |OtherBND|Ls(a5).;|
|00000f50| 20 73 61 76 65 20 66 6f | 72 20 6c 61 74 65 72 0d | save fo|r later.|
|00000f60| 0d 09 63 6c 72 2e 6c 09 | 50 61 72 61 6d 5a 65 72 |..clr.l.|ParamZer|
|00000f70| 6f 28 61 35 29 09 09 3b | 20 63 6c 65 61 72 20 6f |o(a5)..;| clear o|
|00000f80| 75 72 20 70 61 72 61 6d | 20 74 65 78 74 20 70 6f |ur param| text po|
|00000f90| 69 6e 74 65 72 73 0d 09 | 63 6c 72 2e 6c 09 50 61 |inters..|clr.l.Pa|
|00000fa0| 72 61 6d 4f 6e 65 28 61 | 35 29 0d 09 63 6c 72 2e |ramOne(a|5)..clr.|
|00000fb0| 6c 09 50 61 72 61 6d 54 | 77 6f 28 61 35 29 0d 09 |l.ParamT|wo(a5)..|
|00000fc0| 63 6c 72 2e 6c 09 50 61 | 72 61 6d 54 68 72 65 65 |clr.l.Pa|ramThree|
|00000fd0| 28 61 35 29 0d 0d 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |(a5)..;-|--------|
|00000fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ff0| 2d 2d 2d 2d 2d 2d 44 65 | 73 6b 20 43 68 65 63 6b |------De|sk Check|
|00001000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001020| 2d 0d 3b 09 4a 75 73 74 | 20 64 6f 20 61 20 63 65 |-.;.Just| do a ce|
|00001030| 6e 73 75 73 20 6f 66 20 | 61 6c 6c 20 66 69 6c 65 |nsus of |all file|
|00001040| 73 20 6f 6e 20 61 6c 6c | 20 76 6f 6c 75 6d 65 73 |s on all| volumes|
|00001050| 2c 20 72 75 6e 6e 69 6e | 67 20 74 68 65 6d 0d 3b |, runnin|g them.;|
|00001060| 09 74 68 72 6f 75 67 68 | 20 6f 75 72 20 62 75 6e |.through| our bun|
|00001070| 64 6c 65 20 63 68 65 63 | 6b 65 72 2e 0d 0d 09 44 |dle chec|ker....D|
|00001080| 6f 41 6c 65 72 74 09 47 | 72 65 65 74 69 6e 67 09 |oAlert.G|reeting.|
|00001090| 09 3b 20 73 61 79 20 68 | 65 6c 6c 6f 0d 09 62 6e |.; say h|ello..bn|
|000010a0| 65 09 53 61 79 42 79 65 | 42 79 65 09 09 3b 20 69 |e.SayBye|Bye..; i|
|000010b0| 66 20 6e 6f 74 20 4f 4b | 2c 20 73 70 6c 69 74 0d |f not OK|, split.|
|000010c0| 09 0d 09 44 65 62 75 67 | 50 6f 69 6e 74 0d 0d 09 |...Debug|Point...|
|000010d0| 6a 73 72 09 43 68 65 63 | 6b 41 6c 6c 56 6f 6c 73 |jsr.Chec|kAllVols|
|000010e0| 09 09 3b 20 65 6c 73 65 | 20 74 65 73 74 20 61 6c |..; else| test al|
|000010f0| 6c 20 76 6f 6c 75 6d 65 | 73 0d 09 44 6f 41 6c 65 |l volume|s..DoAle|
|00001100| 72 74 09 46 61 72 65 57 | 65 6c 6c 09 09 3b 20 73 |rt.FareW|ell..; s|
|00001110| 61 79 20 67 6f 6f 64 62 | 79 65 0d 53 61 79 42 79 |ay goodb|ye.SayBy|
|00001120| 65 42 79 65 0d 09 5f 45 | 78 69 74 54 6f 53 68 65 |eBye.._E|xitToShe|
|00001130| 6c 6c 0d 0d 0d 3b 09 43 | 68 65 63 6b 41 6c 6c 56 |ll...;.C|heckAllV|
|00001140| 6f 6c 73 3a 20 43 68 65 | 63 6b 20 65 61 63 68 20 |ols: Che|ck each |
|00001150| 6d 6f 75 6e 74 65 64 20 | 76 6f 6c 75 6d 65 0d 0d |mounted |volume..|
|00001160| 43 41 56 69 6e 66 6f 09 | 09 65 71 75 09 2d 69 6f |CAVinfo.|.equ.-io|
|00001170| 56 51 45 6c 53 69 7a 65 | 09 3b 20 61 20 68 61 6e |VQElSize|.; a han|
|00001180| 64 79 20 70 61 72 6d 20 | 62 6c 6f 63 6b 0d 56 6f |dy parm |block.Vo|
|00001190| 6c 75 6d 65 4e 61 6d 65 | 09 65 71 75 09 43 41 56 |lumeName|.equ.CAV|
|000011a0| 69 6e 66 6f 2d 32 35 36 | 09 3b 20 6e 61 6d 65 20 |info-256|.; name |
|000011b0| 6f 66 20 63 75 72 72 65 | 6e 74 20 76 6f 6c 75 6d |of curre|nt volum|
|000011c0| 65 0d 4c 61 73 74 4c 6f | 63 61 6c 09 73 65 74 09 |e.LastLo|cal.set.|
|000011d0| 56 6f 6c 75 6d 65 4e 61 | 6d 65 0d 0d 43 68 65 63 |VolumeNa|me..Chec|
|000011e0| 6b 41 6c 6c 56 6f 6c 73 | 0d 09 6c 69 6e 6b 09 61 |kAllVols|..link.a|
|000011f0| 36 2c 23 4c 61 73 74 4c | 6f 63 61 6c 0d 09 6c 65 |6,#LastL|ocal..le|
|00001200| 61 09 43 41 56 69 6e 66 | 6f 28 61 36 29 2c 61 30 |a.CAVinf|o(a6),a0|
|00001210| 09 09 3b 20 61 30 20 3d | 20 70 61 72 6d 20 62 6c |..; a0 =| parm bl|
|00001220| 6f 63 6b 0d 09 63 6c 72 | 2e 6c 09 69 6f 43 6f 6d |ock..clr|.l.ioCom|
|00001230| 70 6c 65 74 69 6f 6e 28 | 61 30 29 09 3b 20 6e 6f |pletion(|a0).; no|
|00001240| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 72 6f 75 74 | complet|ion rout|
|00001250| 69 6e 65 0d 09 6c 65 61 | 09 56 6f 6c 75 6d 65 4e |ine..lea|.VolumeN|
|00001260| 61 6d 65 28 61 36 29 2c | 61 31 09 3b 20 73 74 6f |ame(a6),|a1.; sto|
|00001270| 72 61 67 65 20 66 6f 72 | 20 76 6f 6c 75 6d 65 20 |rage for| volume |
|00001280| 6e 61 6d 65 0d 09 6d 6f | 76 65 2e 6c 09 61 31 2c |name..mo|ve.l.a1,|
|00001290| 69 6f 46 69 6c 65 4e 61 | 6d 65 28 61 30 29 09 3b |ioFileNa|me(a0).;|
|000012a0| 20 73 65 74 20 69 6e 20 | 70 61 72 6d 20 62 6c 6f | set in |parm blo|
|000012b0| 63 6b 0d 09 63 6c 72 2e | 77 09 69 6f 56 6f 6c 49 |ck..clr.|w.ioVolI|
|000012c0| 6e 64 65 78 28 61 30 29 | 09 09 3b 20 63 6c 65 61 |ndex(a0)|..; clea|
|000012d0| 72 20 69 6e 64 65 78 0d | 40 30 09 6c 65 61 09 43 |r index.|@0.lea.C|
|000012e0| 41 56 69 6e 66 6f 28 61 | 36 29 2c 61 30 09 09 3b |AVinfo(a|6),a0..;|
|000012f0| 20 61 30 20 3d 20 70 61 | 72 6d 20 62 6c 6f 63 6b | a0 = pa|rm block|
|00001300| 0d 09 63 6c 72 2e 6c 09 | 56 6f 6c 75 6d 65 4e 61 |..clr.l.|VolumeNa|
|00001310| 6d 65 28 61 36 29 09 09 | 3b 20 6e 6f 20 76 6f 6c |me(a6)..|; no vol|
|00001320| 6e 61 6d 65 20 79 65 74 | 0d 09 61 64 64 2e 77 09 |name yet|..add.w.|
|00001330| 23 31 2c 69 6f 56 6f 6c | 49 6e 64 65 78 28 61 30 |#1,ioVol|Index(a0|
|00001340| 29 09 3b 20 61 64 76 61 | 6e 63 65 20 74 6f 20 6e |).; adva|nce to n|
|00001350| 65 78 74 20 76 6f 6c 75 | 6d 65 0d 09 5f 47 65 74 |ext volu|me.._Get|
|00001360| 56 6f 6c 49 6e 66 6f 0d | 09 63 6d 70 2e 77 09 23 |VolInfo.|.cmp.w.#|
|00001370| 6e 73 76 45 72 72 2c 64 | 30 09 09 3b 20 6f 75 74 |nsvErr,d|0..; out|
|00001380| 20 6f 66 20 76 6f 6c 75 | 6d 65 73 3f 0d 09 62 65 | of volu|mes?..be|
|00001390| 71 09 40 31 09 09 09 3b | 20 65 78 69 74 20 69 66 |q.@1...;| exit if|
|000013a0| 20 73 6f 0d 09 6d 6f 76 | 65 2e 6c 09 69 6f 46 69 | so..mov|e.l.ioFi|
|000013b0| 6c 65 4e 61 6d 65 28 61 | 30 29 2c 50 61 72 61 6d |leName(a|0),Param|
|000013c0| 5a 65 72 6f 28 61 35 29 | 09 3b 20 73 65 74 20 70 |Zero(a5)|.; set p|
|000013d0| 61 72 61 6d 20 74 65 78 | 74 20 7a 65 72 6f 0d 09 |aram tex|t zero..|
|000013e0| 53 65 74 50 61 72 61 6d | 54 65 78 74 0d 09 44 6f |SetParam|Text..Do|
|000013f0| 41 6c 65 72 74 09 44 6f | 56 6f 6c 75 6d 65 41 6c |Alert.Do|VolumeAl|
|00001400| 65 72 74 09 09 3b 20 73 | 68 6f 75 6c 64 20 77 65 |ert..; s|hould we|
|00001410| 20 64 6f 20 74 68 69 73 | 20 6f 6e 65 3f 0d 09 62 | do this| one?..b|
|00001420| 6e 65 09 40 30 0d 09 6c | 65 61 09 43 41 56 69 6e |ne.@0..l|ea.CAVin|
|00001430| 66 6f 28 61 36 29 2c 61 | 30 09 09 3b 20 61 30 20 |fo(a6),a|0..; a0 |
|00001440| 3d 20 70 61 72 6d 20 62 | 6c 6f 63 6b 0d 09 6a 73 |= parm b|lock..js|
|00001450| 72 09 43 68 65 63 6b 4f | 6e 65 56 6f 6c 09 09 3b |r.CheckO|neVol..;|
|00001460| 20 65 6c 73 65 20 63 68 | 65 63 6b 20 74 68 69 73 | else ch|eck this|
|00001470| 20 76 6f 6c 75 6d 65 0d | 09 62 72 61 09 40 30 09 | volume.|.bra.@0.|
|00001480| 09 09 3b 20 61 6e 64 20 | 6c 6f 6f 70 20 62 61 63 |..; and |loop bac|
|00001490| 6b 0d 40 31 09 63 6c 72 | 2e 6c 09 50 61 72 61 6d |k.@1.clr|.l.Param|
|000014a0| 5a 65 72 6f 28 61 35 29 | 0d 09 75 6e 6c 6b 09 61 |Zero(a5)|..unlk.a|
|000014b0| 36 0d 09 72 74 73 0d 09 | 44 4e 61 6d 65 09 43 48 |6..rts..|DName.CH|
|000014c0| 45 43 4b 41 4c 4c 56 4f | 4c 53 0d 0d 3b 09 43 68 |ECKALLVO|LS..;.Ch|
|000014d0| 65 63 6b 4f 6e 65 56 6f | 6c 3a 20 53 75 72 76 65 |eckOneVo|l: Surve|
|000014e0| 79 20 61 20 73 69 6e 67 | 6c 65 20 76 6f 6c 75 6d |y a sing|le volum|
|000014f0| 65 0d 3b 09 45 6e 74 72 | 79 3a 09 61 30 20 3d 20 |e.;.Entr|y:.a0 = |
|00001500| 5f 47 65 74 56 6f 6c 49 | 6e 66 6f 20 70 6f 6f 70 |_GetVolI|nfo poop|
|00001510| 20 6f 6e 20 74 68 65 20 | 76 6f 6c 75 6d 65 20 74 | on the |volume t|
|00001520| 6f 20 63 68 65 63 6b 0d | 0d 54 68 65 49 74 65 6d |o check.|.TheItem|
|00001530| 54 79 70 65 09 73 65 74 | 09 2d 32 09 09 3b 20 44 |Type.set|.-2..; D|
|00001540| 69 61 6c 6f 67 20 69 74 | 65 6d 20 74 79 70 65 0d |ialog it|em type.|
|00001550| 54 68 65 49 74 65 6d 09 | 09 73 65 74 09 54 68 65 |TheItem.|.set.The|
|00001560| 49 74 65 6d 54 79 70 65 | 2d 34 09 3b 20 44 69 61 |ItemType|-4.; Dia|
|00001570| 6c 6f 67 20 69 74 65 6d | 20 68 61 6e 64 6c 65 0d |log item| handle.|
|00001580| 54 68 65 42 6f 78 09 09 | 73 65 74 09 54 68 65 49 |TheBox..|set.TheI|
|00001590| 74 65 6d 2d 38 09 3b 20 | 44 69 61 6c 6f 67 20 69 |tem-8.; |Dialog i|
|000015a0| 74 65 6d 20 62 6f 78 0d | 4c 61 73 74 4c 6f 63 61 |tem box.|LastLoca|
|000015b0| 6c 09 73 65 74 09 54 68 | 65 42 6f 78 0d 0d 43 68 |l.set.Th|eBox..Ch|
|000015c0| 65 63 6b 4f 6e 65 56 6f | 6c 0d 09 6c 69 6e 6b 09 |eckOneVo|l..link.|
|000015d0| 61 36 2c 23 4c 61 73 74 | 4c 6f 63 61 6c 0d 09 6d |a6,#Last|Local..m|
|000015e0| 6f 76 65 2e 77 09 69 6f | 56 52 65 66 4e 75 6d 28 |ove.w.io|VRefNum(|
|000015f0| 61 30 29 2c 2d 28 73 70 | 29 09 3b 20 73 61 76 65 |a0),-(sp|).; save|
|00001600| 20 76 6f 6c 75 6d 65 20 | 72 65 66 65 72 65 6e 63 | volume |referenc|
|00001610| 65 20 6e 75 6d 62 65 72 | 0d 09 6d 6f 76 65 2e 6c |e number|..move.l|
|00001620| 09 69 6f 46 69 6c 65 4e | 61 6d 65 28 61 30 29 2c |.ioFileN|ame(a0),|
|00001630| 2d 28 73 70 29 09 3b 20 | 73 61 76 65 20 76 6f 6c |-(sp).; |save vol|
|00001640| 75 6d 65 20 6e 61 6d 65 | 20 70 6f 69 6e 74 65 72 |ume name| pointer|
|00001650| 0d 0d 09 63 6c 72 2e 6c | 09 2d 28 73 70 29 09 09 |...clr.l|.-(sp)..|
|00001660| 09 3b 20 73 70 61 63 65 | 20 66 6f 72 20 72 65 73 |.; space| for res|
|00001670| 75 6c 74 0d 09 6d 6f 76 | 65 2e 77 09 23 43 75 72 |ult..mov|e.w.#Cur|
|00001680| 72 65 6e 74 46 69 6c 65 | 2c 2d 28 73 70 29 09 3b |rentFile|,-(sp).;|
|00001690| 20 64 69 61 6c 6f 67 20 | 6e 75 6d 62 65 72 0d 09 | dialog |number..|
|000016a0| 63 6c 72 2e 6c 09 2d 28 | 73 70 29 09 09 09 3b 20 |clr.l.-(|sp)...; |
|000016b0| 74 61 6b 65 20 77 68 61 | 74 20 77 65 20 67 65 74 |take wha|t we get|
|000016c0| 0d 09 6d 6f 76 65 2e 6c | 09 23 2d 31 2c 2d 28 73 |..move.l|.#-1,-(s|
|000016d0| 70 29 09 09 3b 20 70 75 | 74 20 74 68 69 73 20 77 |p)..; pu|t this w|
|000016e0| 69 6e 64 6f 77 20 69 6e | 20 66 72 6f 6e 74 0d 09 |indow in| front..|
|000016f0| 5f 47 65 74 4e 65 77 44 | 69 61 6c 6f 67 09 09 09 |_GetNewD|ialog...|
|00001700| 3b 20 50 6f 70 20 74 68 | 65 20 71 75 65 73 74 69 |; Pop th|e questi|
|00001710| 6f 6e 0d 09 6d 6f 76 65 | 2e 6c 09 28 73 70 29 2c |on..move|.l.(sp),|
|00001720| 44 69 61 6c 6f 67 50 74 | 72 28 61 35 29 09 3b 20 |DialogPt|r(a5).; |
|00001730| 73 61 76 65 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |save the| dialog |
|00001740| 70 6f 69 6e 74 65 72 0d | 09 5f 53 65 74 50 6f 72 |pointer.|._SetPor|
|00001750| 74 09 09 09 3b 20 6d 61 | 6b 65 20 6f 75 72 73 20 |t...; ma|ke ours |
|00001760| 74 68 65 20 63 75 72 72 | 65 6e 74 20 70 6f 72 74 |the curr|ent port|
|00001770| 0d 09 6d 6f 76 65 2e 6c | 09 44 69 61 6c 6f 67 50 |..move.l|.DialogP|
|00001780| 74 72 28 61 35 29 2c 2d | 28 73 70 29 0d 09 5f 44 |tr(a5),-|(sp).._D|
|00001790| 72 61 77 44 69 61 6c 6f | 67 09 09 09 3b 20 66 6f |rawDialo|g...; fo|
|000017a0| 72 63 65 20 63 6f 6d 70 | 6c 65 74 65 20 64 69 61 |rce comp|lete dia|
|000017b0| 6c 6f 67 20 64 72 61 77 | 69 6e 67 0d 0d 09 6d 6f |log draw|ing...mo|
|000017c0| 76 65 2e 6c 09 44 69 61 | 6c 6f 67 50 74 72 28 61 |ve.l.Dia|logPtr(a|
|000017d0| 35 29 2c 2d 28 73 70 29 | 0d 09 6d 6f 76 65 2e 77 |5),-(sp)|..move.w|
|000017e0| 09 23 34 2c 2d 28 73 70 | 29 09 09 3b 20 69 74 65 |.#4,-(sp|)..; ite|
|000017f0| 6d 20 6e 75 6d 62 65 72 | 20 34 0d 09 70 65 61 09 |m number| 4..pea.|
|00001800| 54 68 65 49 74 65 6d 54 | 79 70 65 28 61 36 29 09 |TheItemT|ype(a6).|
|00001810| 09 3b 20 73 74 6f 72 61 | 67 65 20 66 6f 72 20 69 |.; stora|ge for i|
|00001820| 74 65 6d 20 74 79 70 65 | 0d 09 70 65 61 09 54 68 |tem type|..pea.Th|
|00001830| 65 49 74 65 6d 28 61 36 | 29 09 09 3b 20 73 74 6f |eItem(a6|)..; sto|
|00001840| 72 61 67 65 20 66 6f 72 | 20 69 74 65 6d 20 68 61 |rage for| item ha|
|00001850| 6e 64 6c 65 0d 09 70 65 | 61 09 54 68 65 42 6f 78 |ndle..pe|a.TheBox|
|00001860| 28 61 36 29 09 09 3b 20 | 73 74 6f 72 61 67 65 20 |(a6)..; |storage |
|00001870| 66 6f 72 20 69 74 65 6d | 20 62 6f 78 0d 09 5f 47 |for item| box.._G|
|00001880| 65 74 44 49 74 65 6d 0d | 09 6d 6f 76 65 2e 6c 09 |etDItem.|.move.l.|
|00001890| 28 73 70 29 2b 2c 61 31 | 09 09 3b 20 66 69 6c 65 |(sp)+,a1|..; file|
|000018a0| 20 6e 61 6d 65 20 70 6f | 69 6e 74 65 72 0d 09 6d | name po|inter..m|
|000018b0| 6f 76 65 2e 6c 09 54 68 | 65 49 74 65 6d 28 61 36 |ove.l.Th|eItem(a6|
|000018c0| 29 2c 2d 28 73 70 29 09 | 3b 20 69 74 65 6d 20 68 |),-(sp).|; item h|
|000018d0| 61 6e 64 6c 65 0d 09 6d | 6f 76 65 2e 6c 09 61 31 |andle..m|ove.l.a1|
|000018e0| 2c 2d 28 73 70 29 09 09 | 3b 20 70 6f 69 6e 74 20 |,-(sp)..|; point |
|000018f0| 74 6f 20 66 69 6c 65 20 | 6e 61 6d 65 0d 09 5f 53 |to file |name.._S|
|00001900| 65 74 49 54 65 78 74 09 | 09 09 3b 20 73 65 74 20 |etIText.|..; set |
|00001910| 66 69 6c 65 20 6e 61 6d | 65 20 69 6e 20 64 69 61 |file nam|e in dia|
|00001920| 6c 6f 67 0d 0d 09 6d 6f | 76 65 2e 6c 09 23 32 2c |log...mo|ve.l.#2,|
|00001930| 2d 28 73 70 29 09 09 3b | 20 72 6f 6f 74 20 64 69 |-(sp)..;| root di|
|00001940| 72 65 63 74 6f 72 79 0d | 09 70 65 61 09 43 68 65 |rectory.|.pea.Che|
|00001950| 63 6b 4f 6e 65 46 69 6c | 65 09 09 3b 20 6f 75 72 |ckOneFil|e..; our|
|00001960| 20 66 69 6c 65 20 69 6e | 73 70 65 63 74 6f 72 0d | file in|spector.|
|00001970| 09 6a 73 72 09 46 43 65 | 6e 73 75 73 09 09 09 3b |.jsr.FCe|nsus...;|
|00001980| 20 73 63 61 6e 20 65 76 | 65 72 79 74 68 69 6e 67 | scan ev|erything|
|00001990| 0d 0d 09 6d 6f 76 65 2e | 6c 09 44 69 61 6c 6f 67 |...move.|l.Dialog|
|000019a0| 50 74 72 28 61 35 29 2c | 2d 28 73 70 29 09 3b 20 |Ptr(a5),|-(sp).; |
|000019b0| 70 75 73 68 20 74 68 65 | 20 64 69 61 6c 6f 67 20 |push the| dialog |
|000019c0| 70 6f 69 6e 74 65 72 0d | 09 5f 44 69 73 70 6f 73 |pointer.|._Dispos|
|000019d0| 44 69 61 6c 6f 67 09 09 | 09 3b 20 61 6e 64 20 6b |Dialog..|.; and k|
|000019e0| 69 6c 6c 20 74 68 65 20 | 64 69 61 6c 6f 67 0d 0d |ill the |dialog..|
|000019f0| 09 75 6e 6c 6b 09 61 36 | 0d 09 72 74 73 0d 09 44 |.unlk.a6|..rts..D|
|00001a00| 4e 61 6d 65 09 43 48 45 | 43 4b 4f 4e 45 56 4f 4c |Name.CHE|CKONEVOL|
|00001a10| 0d 0d 3b 09 43 68 65 63 | 6b 4f 6e 65 46 69 6c 65 |..;.Chec|kOneFile|
|00001a20| 28 50 61 72 61 6d 42 6c | 6f 63 6b 3a 50 61 72 6d |(ParamBl|ock:Parm|
|00001a30| 42 6c 6b 50 74 72 3b 20 | 64 69 72 49 44 3a 6c 6f |BlkPtr; |dirID:lo|
|00001a40| 6e 67 69 6e 74 29 3a 62 | 6f 6f 6c 65 61 6e 0d 3b |ngint):b|oolean.;|
|00001a50| 09 44 6f 20 74 68 65 20 | 61 63 74 75 61 6c 20 74 |.Do the |actual t|
|00001a60| 65 73 74 73 20 6f 6e 20 | 61 20 67 69 76 65 6e 20 |ests on |a given |
|00001a70| 66 69 6c 65 2e 0d 3b 09 | 41 36 20 6f 66 66 73 65 |file..;.|A6 offse|
|00001a80| 74 73 0d 4f 6c 64 41 36 | 09 09 73 65 74 09 30 0d |ts.OldA6|..set.0.|
|00001a90| 52 65 74 75 72 6e 41 64 | 64 72 09 73 65 74 09 4f |ReturnAd|dr.set.O|
|00001aa0| 6c 64 41 36 2b 34 0d 44 | 69 72 49 44 09 09 73 65 |ldA6+4.D|irID..se|
|00001ab0| 74 09 52 65 74 75 72 6e | 41 64 64 72 2b 34 09 3b |t.Return|Addr+4.;|
|00001ac0| 20 64 69 72 65 63 74 6f | 72 79 20 49 44 0d 46 69 | directo|ry ID.Fi|
|00001ad0| 6c 65 49 6e 66 6f 09 73 | 65 74 09 44 69 72 49 44 |leInfo.s|et.DirID|
|00001ae0| 2b 34 09 09 3b 20 70 61 | 72 61 6d 20 62 6c 6f 63 |+4..; pa|ram bloc|
|00001af0| 6b 20 66 72 6f 6d 20 5f | 47 65 74 46 69 6c 65 49 |k from _|GetFileI|
|00001b00| 6e 66 6f 0d 52 65 74 75 | 72 6e 56 61 6c 75 65 09 |nfo.Retu|rnValue.|
|00001b10| 73 65 74 09 46 69 6c 65 | 49 6e 66 6f 2b 34 09 3b |set.File|Info+4.;|
|00001b20| 20 72 65 74 75 72 6e 20 | 76 61 6c 75 65 20 28 30 | return |value (0|
|00001b30| 20 3d 20 63 6f 6e 74 69 | 6e 75 65 29 0d 41 72 67 | = conti|nue).Arg|
|00001b40| 73 53 7a 09 09 73 65 74 | 09 52 65 74 75 72 6e 56 |sSz..set|.ReturnV|
|00001b50| 61 6c 75 65 2d 44 69 72 | 49 44 0d 3b 0d 50 61 72 |alue-Dir|ID.;.Par|
|00001b60| 6d 42 6c 6b 09 09 73 65 | 74 09 4f 6c 64 41 36 2d |mBlk..se|t.OldA6-|
|00001b70| 69 6f 48 56 51 45 6c 53 | 69 7a 65 09 3b 20 6c 6f |ioHVQElS|ize.; lo|
|00001b80| 63 61 6c 20 70 61 72 6d | 20 62 6c 6f 63 6b 0d 45 |cal parm| block.E|
|00001b90| 72 72 53 74 72 69 6e 67 | 09 73 65 74 09 50 61 72 |rrString|.set.Par|
|00001ba0| 6d 42 6c 6b 2d 33 32 09 | 3b 20 53 74 72 33 31 20 |mBlk-32.|; Str31 |
|00001bb0| 66 6f 72 20 65 72 72 6f | 72 20 63 6f 64 65 73 0d |for erro|r codes.|
|00001bc0| 54 68 65 49 74 65 6d 54 | 79 70 65 09 73 65 74 09 |TheItemT|ype.set.|
|00001bd0| 45 72 72 53 74 72 69 6e | 67 2d 32 09 3b 20 44 69 |ErrStrin|g-2.; Di|
|00001be0| 61 6c 6f 67 20 69 74 65 | 6d 20 74 79 70 65 0d 54 |alog ite|m type.T|
|00001bf0| 68 65 49 74 65 6d 09 09 | 73 65 74 09 54 68 65 49 |heItem..|set.TheI|
|00001c00| 74 65 6d 54 79 70 65 2d | 34 09 3b 20 44 69 61 6c |temType-|4.; Dial|
|00001c10| 6f 67 20 69 74 65 6d 20 | 68 61 6e 64 6c 65 0d 54 |og item |handle.T|
|00001c20| 68 65 42 6f 78 09 09 73 | 65 74 09 54 68 65 49 74 |heBox..s|et.TheIt|
|00001c30| 65 6d 2d 38 09 3b 20 44 | 69 61 6c 6f 67 20 69 74 |em-8.; D|ialog it|
|00001c40| 65 6d 20 62 6f 78 0d 4c | 61 73 74 4c 6f 63 61 6c |em box.L|astLocal|
|00001c50| 09 73 65 74 09 54 68 65 | 42 6f 78 0d 0d 43 68 65 |.set.The|Box..Che|
|00001c60| 63 6b 4f 6e 65 46 69 6c | 65 0d 09 6c 69 6e 6b 09 |ckOneFil|e..link.|
|00001c70| 61 36 2c 23 4c 61 73 74 | 4c 6f 63 61 6c 0d 09 63 |a6,#Last|Local..c|
|00001c80| 6c 72 2e 77 09 52 65 74 | 75 72 6e 56 61 6c 75 65 |lr.w.Ret|urnValue|
|00001c90| 28 61 36 29 09 09 3b 20 | 61 6c 77 61 79 73 20 63 |(a6)..; |always c|
|00001ca0| 6f 6e 74 69 6e 75 65 20 | 73 65 61 72 63 68 0d 09 |ontinue |search..|
|00001cb0| 0d 09 6d 6f 76 65 2e 6c | 09 44 69 61 6c 6f 67 50 |..move.l|.DialogP|
|00001cc0| 74 72 28 61 35 29 2c 2d | 28 73 70 29 0d 09 6d 6f |tr(a5),-|(sp)..mo|
|00001cd0| 76 65 2e 77 09 23 32 2c | 2d 28 73 70 29 09 09 3b |ve.w.#2,|-(sp)..;|
|00001ce0| 20 69 74 65 6d 20 6e 75 | 6d 62 65 72 20 32 0d 09 | item nu|mber 2..|
|00001cf0| 70 65 61 09 54 68 65 49 | 74 65 6d 54 79 70 65 28 |pea.TheI|temType(|
|00001d00| 61 36 29 09 09 3b 20 73 | 74 6f 72 61 67 65 20 66 |a6)..; s|torage f|
|00001d10| 6f 72 20 69 74 65 6d 20 | 74 79 70 65 0d 09 70 65 |or item |type..pe|
|00001d20| 61 09 54 68 65 49 74 65 | 6d 28 61 36 29 09 09 3b |a.TheIte|m(a6)..;|
|00001d30| 20 73 74 6f 72 61 67 65 | 20 66 6f 72 20 69 74 65 | storage| for ite|
|00001d40| 6d 20 68 61 6e 64 6c 65 | 0d 09 70 65 61 09 54 68 |m handle|..pea.Th|
|00001d50| 65 42 6f 78 28 61 36 29 | 09 09 3b 20 73 74 6f 72 |eBox(a6)|..; stor|
|00001d60| 61 67 65 20 66 6f 72 20 | 69 74 65 6d 20 62 6f 78 |age for |item box|
|00001d70| 0d 09 5f 47 65 74 44 49 | 74 65 6d 0d 09 6d 6f 76 |.._GetDI|tem..mov|
|00001d80| 65 2e 6c 09 54 68 65 49 | 74 65 6d 28 61 36 29 2c |e.l.TheI|tem(a6),|
|00001d90| 2d 28 73 70 29 09 3b 20 | 69 74 65 6d 20 68 61 6e |-(sp).; |item han|
|00001da0| 64 6c 65 0d 09 6d 6f 76 | 65 2e 6c 09 46 69 6c 65 |dle..mov|e.l.File|
|00001db0| 49 6e 66 6f 28 61 36 29 | 2c 61 31 09 09 3b 20 70 |Info(a6)|,a1..; p|
|00001dc0| 6f 69 6e 74 20 74 6f 20 | 47 65 74 46 69 6c 65 49 |oint to |GetFileI|
|00001dd0| 6e 66 6f 20 73 74 75 66 | 66 0d 09 6d 6f 76 65 2e |nfo stuf|f..move.|
|00001de0| 6c 09 69 6f 46 69 6c 65 | 4e 61 6d 65 28 61 31 29 |l.ioFile|Name(a1)|
|00001df0| 2c 2d 28 73 70 29 09 3b | 20 70 6f 69 6e 74 20 74 |,-(sp).;| point t|
|00001e00| 6f 20 66 69 6c 65 20 6e | 61 6d 65 0d 09 5f 53 65 |o file n|ame.._Se|
|00001e10| 74 49 54 65 78 74 09 09 | 09 3b 20 73 65 74 20 66 |tIText..|.; set f|
|00001e20| 69 6c 65 20 6e 61 6d 65 | 20 69 6e 20 64 69 61 6c |ile name| in dial|
|00001e30| 6f 67 0d 0d 09 3b 20 69 | 73 20 74 68 65 72 65 20 |og...; i|s there |
|00001e40| 61 20 72 65 73 6f 75 72 | 63 65 20 66 6f 72 6b 3f |a resour|ce fork?|
|00001e50| 0d 09 6d 6f 76 65 2e 6c | 09 46 69 6c 65 49 6e 66 |..move.l|.FileInf|
|00001e60| 6f 28 61 36 29 2c 61 31 | 09 09 3b 20 70 6f 69 6e |o(a6),a1|..; poin|
|00001e70| 74 20 74 6f 20 5f 47 65 | 74 46 69 6c 65 49 6e 66 |t to _Ge|tFileInf|
|00001e80| 6f 20 73 74 75 66 66 0d | 09 74 73 74 2e 6c 09 69 |o stuff.|.tst.l.i|
|00001e90| 6f 46 6c 52 4c 67 4c 65 | 6e 28 61 31 29 09 09 3b |oFlRLgLe|n(a1)..;|
|00001ea0| 20 69 73 20 74 68 65 72 | 65 20 61 20 72 65 73 6f | is ther|e a reso|
|00001eb0| 75 72 63 65 20 66 6f 72 | 6b 3f 0d 09 62 6e 65 09 |urce for|k?..bne.|
|00001ec0| 40 38 09 09 09 3b 20 73 | 6b 69 70 20 69 66 20 73 |@8...; s|kip if s|
|00001ed0| 6f 0d 0d 09 3b 20 54 68 | 65 72 65 27 73 20 6e 6f |o...; Th|ere's no|
|00001ee0| 20 72 65 73 6f 75 72 63 | 65 20 66 6f 72 6b 2c 20 | resourc|e fork, |
|00001ef0| 73 6f 20 74 68 65 20 62 | 75 6e 64 6c 65 20 62 69 |so the b|undle bi|
|00001f00| 74 20 73 68 6f 75 6c 64 | 6e 27 74 20 62 65 20 73 |t should|n't be s|
|00001f10| 65 74 2e 0d 09 6d 6f 76 | 65 2e 6c 09 46 69 6c 65 |et...mov|e.l.File|
|00001f20| 49 6e 66 6f 28 61 36 29 | 2c 61 31 09 09 3b 20 70 |Info(a6)|,a1..; p|
|00001f30| 6f 69 6e 74 20 74 6f 20 | 5f 47 65 74 46 69 6c 65 |oint to |_GetFile|
|00001f40| 49 6e 66 6f 20 73 74 75 | 66 66 0d 09 6d 6f 76 65 |Info stu|ff..move|
|00001f50| 2e 77 09 69 6f 46 6c 55 | 73 72 57 64 73 2b 66 64 |.w.ioFlU|srWds+fd|
|00001f60| 46 6c 61 67 73 28 61 31 | 29 2c 64 30 20 3b 20 64 |Flags(a1|),d0 ; d|
|00001f70| 30 20 3d 20 66 69 6c 65 | 20 66 6c 61 67 73 0d 09 |0 = file| flags..|
|00001f80| 62 74 73 74 09 23 66 48 | 61 73 42 75 6e 64 6c 65 |btst.#fH|asBundle|
|00001f90| 2c 64 30 09 09 3b 20 74 | 65 73 74 20 62 75 6e 64 |,d0..; t|est bund|
|00001fa0| 6c 65 20 62 69 74 0d 09 | 62 65 71 09 40 39 09 09 |le bit..|beq.@9..|
|00001fb0| 09 3b 20 73 6b 69 70 20 | 69 66 20 63 6c 65 61 72 |.; skip |if clear|
|00001fc0| 2c 20 74 68 61 74 20 6d | 61 6b 65 73 20 73 65 6e |, that m|akes sen|
|00001fd0| 73 65 0d 0d 09 3b 20 54 | 68 69 73 20 62 6f 7a 6f |se...; T|his bozo|
|00001fe0| 20 68 61 73 20 6e 6f 20 | 72 65 73 6f 75 72 63 65 | has no |resource|
|00001ff0| 20 66 6f 72 6b 2c 20 62 | 75 74 20 74 68 65 20 62 | fork, b|ut the b|
|00002000| 75 6e 64 6c 65 20 62 69 | 74 20 69 73 20 6f 6e 0d |undle bi|t is on.|
|00002010| 09 44 6f 41 6c 65 72 74 | 09 42 75 6e 64 6c 65 42 |.DoAlert|.BundleB|
|00002020| 69 74 4e 6f 52 46 0d 09 | 62 72 61 09 40 39 0d 0d |itNoRF..|bra.@9..|
|00002030| 40 38 09 6c 65 61 09 50 | 61 72 6d 42 6c 6b 28 61 |@8.lea.P|armBlk(a|
|00002040| 36 29 2c 61 30 09 09 3b | 20 70 6f 69 6e 74 20 74 |6),a0..;| point t|
|00002050| 6f 20 70 61 72 6d 20 62 | 6c 6f 63 6b 0d 09 63 6c |o parm b|lock..cl|
|00002060| 72 2e 6c 09 69 6f 43 6f | 6d 70 6c 65 74 69 6f 6e |r.l.ioCo|mpletion|
|00002070| 28 61 30 29 0d 09 63 6c | 72 2e 6c 09 69 6f 46 69 |(a0)..cl|r.l.ioFi|
|00002080| 6c 65 4e 61 6d 65 28 61 | 30 29 0d 09 6d 6f 76 65 |leName(a|0)..move|
|00002090| 2e 77 09 69 6f 56 52 65 | 66 4e 75 6d 28 61 31 29 |.w.ioVRe|fNum(a1)|
|000020a0| 2c 69 6f 56 52 65 66 4e | 75 6d 28 61 30 29 20 3b |,ioVRefN|um(a0) ;|
|000020b0| 20 76 6f 6c 75 6d 65 20 | 66 72 6f 6d 20 66 69 6c | volume |from fil|
|000020c0| 65 20 69 6e 66 6f 0d 09 | 6d 6f 76 65 2e 6c 09 44 |e info..|move.l.D|
|000020d0| 69 72 49 44 28 61 36 29 | 2c 69 6f 57 44 44 69 72 |irID(a6)|,ioWDDir|
|000020e0| 49 44 28 61 30 29 09 3b | 20 64 69 72 65 63 74 6f |ID(a0).;| directo|
|000020f0| 72 79 20 49 44 20 66 72 | 6f 6d 20 66 69 6c 65 20 |ry ID fr|om file |
|00002100| 69 6e 66 6f 0d 09 74 73 | 74 09 46 53 46 43 42 4c |info..ts|t.FSFCBL|
|00002110| 65 6e 09 09 3b 20 48 46 | 53 20 72 75 6e 6e 69 6e |en..; HF|S runnin|
|00002120| 67 3f 0d 09 62 6d 69 09 | 40 30 09 09 09 3b 20 62 |g?..bmi.|@0...; b|
|00002130| 72 61 6e 63 68 20 69 66 | 20 6e 6f 74 0d 09 5f 48 |ranch if| not.._H|
|00002140| 53 65 74 56 6f 6c 09 09 | 09 3b 20 48 46 53 2c 20 |SetVol..|.; HFS, |
|00002150| 73 65 74 20 76 6f 6c 75 | 6d 65 20 61 6e 64 20 64 |set volu|me and d|
|00002160| 69 72 65 63 74 6f 72 79 | 0d 09 62 72 61 09 40 31 |irectory|..bra.@1|
|00002170| 0d 40 30 09 5f 53 65 74 | 56 6f 6c 09 09 09 09 3b |.@0._Set|Vol....;|
|00002180| 20 4d 46 53 2c 20 6a 75 | 73 74 20 73 65 74 20 76 | MFS, ju|st set v|
|00002190| 6f 6c 75 6d 65 0d 40 31 | 09 6d 6f 76 65 2e 77 09 |olume.@1|.move.w.|
|000021a0| 69 6f 52 65 73 75 6c 74 | 28 61 30 29 2c 64 30 09 |ioResult|(a0),d0.|
|000021b0| 09 3b 20 64 69 64 20 69 | 74 20 77 6f 72 6b 3f 0d |.; did i|t work?.|
|000021c0| 09 62 65 71 09 40 32 09 | 09 09 3b 20 73 6b 69 70 |.beq.@2.|..; skip|
|000021d0| 20 69 66 20 76 6f 6c 20 | 6f 6b 0d 0d 09 65 78 74 | if vol |ok...ext|
|000021e0| 2e 6c 09 64 30 0d 09 6c | 65 61 09 45 72 72 53 74 |.l.d0..l|ea.ErrSt|
|000021f0| 72 69 6e 67 28 61 36 29 | 2c 61 30 0d 09 6d 6f 76 |ring(a6)|,a0..mov|
|00002200| 65 2e 6c 09 61 30 2c 50 | 61 72 61 6d 5a 65 72 6f |e.l.a0,P|aramZero|
|00002210| 28 61 35 29 09 3b 20 6d | 6f 76 65 20 74 6f 20 70 |(a5).; m|ove to p|
|00002220| 61 72 61 6d 20 74 65 78 | 74 20 70 74 72 73 0d 09 |aram tex|t ptrs..|
|00002230| 5f 4e 75 6d 54 6f 53 74 | 72 69 6e 67 0d 09 53 65 |_NumToSt|ring..Se|
|00002240| 74 50 61 72 61 6d 54 65 | 78 74 0d 09 44 6f 41 6c |tParamTe|xt..DoAl|
|00002250| 65 72 74 09 53 65 74 56 | 6f 6c 46 61 69 6c 65 64 |ert.SetV|olFailed|
|00002260| 0d 09 62 72 61 09 40 39 | 0d 0d 40 32 09 6d 6f 76 |..bra.@9|..@2.mov|
|00002270| 65 2e 6c 09 46 69 6c 65 | 49 6e 66 6f 28 61 36 29 |e.l.File|Info(a6)|
|00002280| 2c 61 31 09 09 3b 20 70 | 6f 69 6e 74 20 74 6f 20 |,a1..; p|oint to |
|00002290| 5f 47 65 74 46 69 6c 65 | 49 6e 66 6f 20 73 74 75 |_GetFile|Info stu|
|000022a0| 66 66 0d 09 63 6c 72 2e | 77 09 2d 28 73 70 29 09 |ff..clr.|w.-(sp).|
|000022b0| 09 09 3b 20 66 6f 72 20 | 5f 4f 70 65 6e 52 65 73 |..; for |_OpenRes|
|000022c0| 46 69 6c 65 20 72 65 73 | 75 6c 74 0d 09 6d 6f 76 |File res|ult..mov|
|000022d0| 65 2e 6c 09 69 6f 46 69 | 6c 65 4e 61 6d 65 28 61 |e.l.ioFi|leName(a|
|000022e0| 31 29 2c 2d 28 73 70 29 | 09 3b 20 70 75 73 68 20 |1),-(sp)|.; push |
|000022f0| 67 69 76 65 6e 20 66 69 | 6c 65 20 6e 61 6d 65 0d |given fi|le name.|
|00002300| 09 6d 6f 76 65 2e 62 09 | 23 30 2c 52 65 73 4c 6f |.move.b.|#0,ResLo|
|00002310| 61 64 09 09 3b 20 64 6f | 6e 27 74 20 6c 6f 61 64 |ad..; do|n't load|
|00002320| 20 72 65 73 6f 75 72 63 | 65 73 0d 09 5f 4f 70 65 | resourc|es.._Ope|
|00002330| 6e 52 65 73 46 69 6c 65 | 09 09 09 3b 20 67 69 76 |nResFile|...; giv|
|00002340| 65 20 69 74 20 61 20 73 | 68 6f 74 0d 09 6d 6f 76 |e it a s|hot..mov|
|00002350| 65 2e 62 09 23 2d 31 2c | 52 65 73 4c 6f 61 64 09 |e.b.#-1,|ResLoad.|
|00002360| 09 3b 20 64 6f 20 6c 6f | 61 64 20 72 65 73 6f 75 |.; do lo|ad resou|
|00002370| 72 63 65 73 0d 09 6d 6f | 76 65 2e 77 09 28 73 70 |rces..mo|ve.w.(sp|
|00002380| 29 2b 2c 64 30 09 09 3b | 20 70 6f 70 20 72 65 66 |)+,d0..;| pop ref|
|00002390| 65 72 65 6e 63 65 20 6e | 75 6d 62 65 72 0d 09 62 |erence n|umber..b|
|000023a0| 70 6c 09 40 33 09 09 09 | 3b 20 73 6b 69 70 20 69 |pl.@3...|; skip i|
|000023b0| 66 20 72 65 61 73 6f 6e | 61 62 6c 65 20 6e 75 6d |f reason|able num|
|000023c0| 62 65 72 0d 0d 09 6d 6f | 76 65 2e 77 09 52 65 73 |ber...mo|ve.w.Res|
|000023d0| 45 72 72 2c 64 30 09 09 | 3b 20 67 65 74 20 74 68 |Err,d0..|; get th|
|000023e0| 65 20 65 72 72 6f 72 20 | 63 6f 64 65 0d 09 65 78 |e error |code..ex|
|000023f0| 74 2e 6c 09 64 30 0d 09 | 6c 65 61 09 45 72 72 53 |t.l.d0..|lea.ErrS|
|00002400| 74 72 69 6e 67 28 61 36 | 29 2c 61 30 0d 09 6d 6f |tring(a6|),a0..mo|
|00002410| 76 65 2e 6c 09 61 30 2c | 50 61 72 61 6d 5a 65 72 |ve.l.a0,|ParamZer|
|00002420| 6f 28 61 35 29 09 3b 20 | 6d 6f 76 65 20 74 6f 20 |o(a5).; |move to |
|00002430| 70 61 72 61 6d 20 74 65 | 78 74 20 70 74 72 73 0d |param te|xt ptrs.|
|00002440| 09 5f 4e 75 6d 54 6f 53 | 74 72 69 6e 67 0d 09 53 |._NumToS|tring..S|
|00002450| 65 74 50 61 72 61 6d 54 | 65 78 74 0d 09 55 73 65 |etParamT|ext..Use|
|00002460| 55 73 09 09 09 09 3b 20 | 64 6f 20 77 65 20 6e 65 |Us....; |do we ne|
|00002470| 65 64 20 74 68 69 73 3f | 0d 09 44 6f 41 6c 65 72 |ed this?|..DoAler|
|00002480| 74 09 4f 70 65 6e 52 65 | 73 46 61 69 6c 65 64 0d |t.OpenRe|sFailed.|
|00002490| 09 62 72 61 09 40 39 0d | 0d 09 3b 20 57 68 69 6c |.bra.@9.|..; Whil|
|000024a0| 65 20 74 68 65 20 6f 74 | 68 65 72 20 66 69 6c 65 |e the ot|her file|
|000024b0| 20 69 73 20 6f 70 65 6e | 2c 20 77 65 20 68 61 76 | is open|, we hav|
|000024c0| 65 20 74 6f 20 62 72 61 | 63 6b 65 74 20 6f 75 72 |e to bra|cket our|
|000024d0| 0d 09 3b 20 61 6c 65 72 | 74 73 20 61 6e 64 20 73 |..; aler|ts and s|
|000024e0| 74 75 66 66 20 77 69 74 | 68 20 27 55 73 65 55 73 |tuff wit|h 'UseUs|
|000024f0| 27 20 2d 20 27 55 73 65 | 54 68 65 6d 27 0d 0d 40 |' - 'Use|Them'..@|
|00002500| 33 09 63 6d 70 2e 77 09 | 53 79 73 4d 61 70 2c 64 |3.cmp.w.|SysMap,d|
|00002510| 30 09 09 3b 20 64 69 64 | 20 77 65 20 6a 75 73 74 |0..; did| we just|
|00002520| 20 6f 70 65 6e 20 74 68 | 65 20 73 79 73 74 65 6d | open th|e system|
|00002530| 3f 0d 09 62 65 71 09 40 | 39 09 09 09 3b 20 73 6b |?..beq.@|9...; sk|
|00002540| 69 70 20 61 68 65 61 64 | 20 69 66 20 73 6f 0d 09 |ip ahead| if so..|
|00002550| 63 6d 70 2e 77 09 4f 75 | 72 4d 61 70 28 61 35 29 |cmp.w.Ou|rMap(a5)|
|00002560| 2c 64 30 09 09 3b 20 69 | 73 20 69 74 20 75 73 3f |,d0..; i|s it us?|
|00002570| 0d 09 62 65 71 09 40 39 | 09 09 09 3b 20 73 6b 69 |..beq.@9|...; ski|
|00002580| 70 20 61 68 65 61 64 20 | 69 66 20 73 6f 0d 09 6d |p ahead |if so..m|
|00002590| 6f 76 65 2e 77 09 64 30 | 2c 54 68 65 69 72 4d 61 |ove.w.d0|,TheirMa|
|000025a0| 70 28 61 35 29 09 09 3b | 20 72 65 66 6e 75 6d 20 |p(a5)..;| refnum |
|000025b0| 6f 66 20 66 69 6c 65 20 | 75 6e 64 65 72 20 74 65 |of file |under te|
|000025c0| 73 74 0d 0d 09 3b 20 48 | 65 72 65 27 73 20 77 68 |st...; H|ere's wh|
|000025d0| 65 72 65 20 77 65 20 61 | 63 74 75 61 6c 6c 79 20 |ere we a|ctually |
|000025e0| 65 78 61 6d 69 6e 65 20 | 74 68 65 20 66 69 6c 65 |examine |the file|
|000025f0| 20 63 6f 6e 74 65 6e 74 | 73 2e 2e 2e 0d 0d 09 3b | content|s......;|
|00002600| 20 44 6f 65 73 20 74 68 | 69 73 20 62 6f 7a 6f 20 | Does th|is bozo |
|00002610| 68 61 76 65 20 61 20 62 | 75 6e 64 6c 65 3f 0d 09 |have a b|undle?..|
|00002620| 63 6c 72 2e 77 09 2d 28 | 73 70 29 0d 09 6d 6f 76 |clr.w.-(|sp)..mov|
|00002630| 65 2e 6c 09 23 27 42 4e | 44 4c 27 2c 2d 28 73 70 |e.l.#'BN|DL',-(sp|
|00002640| 29 09 09 3b 20 48 6f 77 | 20 6d 61 6e 79 20 62 75 |)..; How| many bu|
|00002650| 6e 64 6c 65 73 3f 0d 09 | 5f 43 6f 75 6e 74 52 65 |ndles?..|_CountRe|
|00002660| 73 6f 75 72 63 65 73 0d | 09 6d 6f 76 65 2e 77 09 |sources.|.move.w.|
|00002670| 28 73 70 29 2b 2c 64 33 | 09 09 3b 20 77 65 6c 6c |(sp)+,d3|..; well|
|00002680| 3f 0d 09 63 6d 70 2e 77 | 09 4f 74 68 65 72 42 4e |?..cmp.w|.OtherBN|
|00002690| 44 4c 73 28 61 35 29 2c | 64 33 09 3b 20 64 69 73 |DLs(a5),|d3.; dis|
|000026a0| 63 6f 75 6e 74 20 6f 74 | 68 65 72 20 62 75 6e 64 |count ot|her bund|
|000026b0| 6c 65 73 0d 09 62 6e 65 | 09 40 37 09 09 09 3b 20 |les..bne|.@7...; |
|000026c0| 73 6b 69 70 20 69 66 20 | 74 68 65 72 65 20 61 72 |skip if |there ar|
|000026d0| 65 20 6d 6f 72 65 2c 20 | 74 65 73 74 20 74 68 65 |e more, |test the|
|000026e0| 6d 0d 09 0d 09 3b 20 54 | 68 65 72 65 20 61 72 65 |m....; T|here are|
|000026f0| 20 6e 6f 20 62 75 6e 64 | 6c 65 73 2e 20 20 49 73 | no bund|les. Is|
|00002700| 20 74 68 65 20 62 75 6e | 64 6c 65 20 62 69 74 20 | the bun|dle bit |
|00002710| 73 65 74 20 61 6e 79 77 | 61 79 3f 0d 09 6d 6f 76 |set anyw|ay?..mov|
|00002720| 65 2e 6c 09 46 69 6c 65 | 49 6e 66 6f 28 61 36 29 |e.l.File|Info(a6)|
|00002730| 2c 61 31 09 09 3b 20 70 | 6f 69 6e 74 20 74 6f 20 |,a1..; p|oint to |
|00002740| 5f 47 65 74 46 69 6c 65 | 49 6e 66 6f 20 73 74 75 |_GetFile|Info stu|
|00002750| 66 66 0d 09 6d 6f 76 65 | 2e 77 09 69 6f 46 6c 55 |ff..move|.w.ioFlU|
|00002760| 73 72 57 64 73 2b 66 64 | 46 6c 61 67 73 28 61 31 |srWds+fd|Flags(a1|
|00002770| 29 2c 64 30 20 3b 20 64 | 30 20 3d 20 66 69 6c 65 |),d0 ; d|0 = file|
|00002780| 20 66 6c 61 67 73 0d 09 | 62 74 73 74 09 23 66 48 | flags..|btst.#fH|
|00002790| 61 73 42 75 6e 64 6c 65 | 2c 64 30 09 09 3b 20 74 |asBundle|,d0..; t|
|000027a0| 65 73 74 20 62 75 6e 64 | 6c 65 20 62 69 74 0d 09 |est bund|le bit..|
|000027b0| 62 65 71 09 40 35 09 09 | 09 3b 20 73 6b 69 70 20 |beq.@5..|.; skip |
|000027c0| 69 66 20 63 6c 65 61 72 | 2c 20 74 68 61 74 20 6d |if clear|, that m|
|000027d0| 61 6b 65 73 20 73 65 6e | 73 65 0d 0d 09 3b 20 54 |akes sen|se...; T|
|000027e0| 68 65 72 65 20 61 72 65 | 20 6e 6f 20 62 75 6e 64 |here are| no bund|
|000027f0| 6c 65 73 2c 20 62 75 74 | 20 74 68 69 73 20 62 6f |les, but| this bo|
|00002800| 7a 6f 20 68 61 73 20 68 | 69 73 20 62 75 6e 64 6c |zo has h|is bundl|
|00002810| 65 20 62 69 74 20 73 65 | 74 2e 0d 09 44 6f 41 6c |e bit se|t...DoAl|
|00002820| 65 72 74 09 42 75 6e 64 | 6c 65 42 69 74 4e 6f 42 |ert.Bund|leBitNoB|
|00002830| 4e 44 4c 0d 09 62 72 61 | 09 40 35 0d 0d 40 37 09 |NDL..bra|.@5..@7.|
|00002840| 6d 6f 76 65 2e 6c 09 46 | 69 6c 65 49 6e 66 6f 28 |move.l.F|ileInfo(|
|00002850| 61 36 29 2c 61 31 09 09 | 3b 20 70 6f 69 6e 74 20 |a6),a1..|; point |
|00002860| 74 6f 20 5f 47 65 74 46 | 69 6c 65 49 6e 66 6f 20 |to _GetF|ileInfo |
|00002870| 73 74 75 66 66 0d 09 6d | 6f 76 65 2e 6c 09 69 6f |stuff..m|ove.l.io|
|00002880| 46 6c 55 73 72 57 64 73 | 2b 66 64 54 79 70 65 28 |FlUsrWds|+fdType(|
|00002890| 61 31 29 2c 46 69 6c 65 | 54 79 70 65 28 61 35 29 |a1),File|Type(a5)|
|000028a0| 09 3b 20 73 61 76 65 20 | 66 69 6c 65 20 74 79 70 |.; save |file typ|
|000028b0| 65 0d 09 6d 6f 76 65 2e | 6c 09 69 6f 46 6c 55 73 |e..move.|l.ioFlUs|
|000028c0| 72 57 64 73 2b 66 64 43 | 72 65 61 74 6f 72 28 61 |rWds+fdC|reator(a|
|000028d0| 31 29 2c 46 69 6c 65 43 | 72 65 61 74 6f 72 28 61 |1),FileC|reator(a|
|000028e0| 35 29 20 3b 20 64 69 74 | 74 6f 20 63 72 65 61 74 |5) ; dit|to creat|
|000028f0| 6f 72 0d 09 63 6c 72 2e | 62 09 54 79 70 65 4d 61 |or..clr.|b.TypeMa|
|00002900| 74 63 68 28 61 35 29 09 | 09 3b 20 6e 6f 20 6d 61 |tch(a5).|.; no ma|
|00002910| 74 63 68 65 73 20 79 65 | 74 0d 09 63 6c 72 2e 62 |tches ye|t..clr.b|
|00002920| 09 43 72 65 61 74 6f 72 | 4d 61 74 63 68 28 61 35 |.Creator|Match(a5|
|00002930| 29 0d 0d 09 6d 6f 76 65 | 2e 77 09 69 6f 46 6c 55 |)...move|.w.ioFlU|
|00002940| 73 72 57 64 73 2b 66 64 | 46 6c 61 67 73 28 61 31 |srWds+fd|Flags(a1|
|00002950| 29 2c 64 30 20 3b 20 64 | 30 20 3d 20 66 69 6c 65 |),d0 ; d|0 = file|
|00002960| 20 66 6c 61 67 73 0d 09 | 62 74 73 74 09 23 66 48 | flags..|btst.#fH|
|00002970| 61 73 42 75 6e 64 6c 65 | 2c 64 30 09 09 3b 20 74 |asBundle|,d0..; t|
|00002980| 65 73 74 20 62 75 6e 64 | 6c 65 20 62 69 74 0d 09 |est bund|le bit..|
|00002990| 62 6e 65 09 40 34 09 09 | 09 3b 20 73 6b 69 70 20 |bne.@4..|.; skip |
|000029a0| 69 66 20 73 65 74 2c 20 | 74 68 61 74 20 6d 61 6b |if set, |that mak|
|000029b0| 65 73 20 73 65 6e 73 65 | 0d 0d 09 6d 6f 76 65 2e |es sense|...move.|
|000029c0| 77 09 44 33 2c 44 30 0d | 09 73 75 62 2e 77 09 4f |w.D3,D0.|.sub.w.O|
|000029d0| 74 68 65 72 42 4e 44 4c | 73 28 61 35 29 2c 44 30 |therBNDL|s(a5),D0|
|000029e0| 0d 09 65 78 74 2e 6c 09 | 64 30 0d 09 6c 65 61 09 |..ext.l.|d0..lea.|
|000029f0| 45 72 72 53 74 72 69 6e | 67 28 61 36 29 2c 61 30 |ErrStrin|g(a6),a0|
|00002a00| 0d 09 6d 6f 76 65 2e 6c | 09 61 30 2c 50 61 72 61 |..move.l|.a0,Para|
|00002a10| 6d 5a 65 72 6f 28 61 35 | 29 09 3b 20 6d 6f 76 65 |mZero(a5|).; move|
|00002a20| 20 74 6f 20 70 61 72 61 | 6d 20 74 65 78 74 20 70 | to para|m text p|
|00002a30| 74 72 73 0d 09 5f 4e 75 | 6d 54 6f 53 74 72 69 6e |trs.._Nu|mToStrin|
|00002a40| 67 0d 09 53 65 74 50 61 | 72 61 6d 54 65 78 74 0d |g..SetPa|ramText.|
|00002a50| 09 55 73 65 55 73 0d 09 | 44 6f 41 6c 65 72 74 09 |.UseUs..|DoAlert.|
|00002a60| 42 75 6e 64 6c 65 42 69 | 74 43 6c 65 61 72 0d 09 |BundleBi|tClear..|
|00002a70| 55 73 65 54 68 65 6d 0d | 0d 40 34 09 6d 6f 76 65 |UseThem.|.@4.move|
|00002a80| 2e 77 09 44 33 2c 44 30 | 09 09 09 3b 20 72 65 74 |.w.D3,D0|...; ret|
|00002a90| 72 69 65 76 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |rieve nu|mber of |
|00002aa0| 62 75 6e 64 6c 65 73 0d | 09 6a 73 72 09 54 65 73 |bundles.|.jsr.Tes|
|00002ab0| 74 42 75 6e 64 6c 65 73 | 09 09 3b 20 65 6c 73 65 |tBundles|..; else|
|00002ac0| 20 67 6f 20 74 65 73 74 | 20 74 68 65 20 62 75 6e | go test| the bun|
|00002ad0| 64 6c 65 73 0d 09 74 73 | 74 2e 62 09 54 79 70 65 |dles..ts|t.b.Type|
|00002ae0| 4d 61 74 63 68 28 61 35 | 29 09 09 3b 20 66 6f 75 |Match(a5|)..; fou|
|00002af0| 6e 64 20 46 52 45 46 20 | 77 69 74 68 20 6f 75 72 |nd FREF |with our|
|00002b00| 20 54 79 70 65 3f 0d 09 | 62 6e 65 09 40 36 09 09 | Type?..|bne.@6..|
|00002b10| 09 3b 20 73 6b 69 70 20 | 69 66 20 73 6f 0d 0d 09 |.; skip |if so...|
|00002b20| 6c 65 61 09 45 72 72 53 | 74 72 69 6e 67 2b 31 28 |lea.ErrS|tring+1(|
|00002b30| 61 36 29 2c 61 30 09 3b | 20 66 75 64 67 65 20 61 |a6),a0.;| fudge a|
|00002b40| 6c 69 67 6e 6d 65 6e 74 | 20 6f 66 20 73 74 72 69 |lignment| of stri|
|00002b50| 6e 67 0d 09 6d 6f 76 65 | 2e 6c 09 61 30 2c 50 61 |ng..move|.l.a0,Pa|
|00002b60| 72 61 6d 5a 65 72 6f 28 | 61 35 29 09 3b 20 69 74 |ramZero(|a5).; it|
|00002b70| 27 73 20 70 61 72 61 6d | 20 74 65 78 74 20 7a 65 |'s param| text ze|
|00002b80| 72 6f 0d 09 6d 6f 76 65 | 2e 62 09 23 34 2c 28 61 |ro..move|.b.#4,(a|
|00002b90| 30 29 2b 09 09 3b 20 73 | 65 74 20 73 74 72 69 6e |0)+..; s|et strin|
|00002ba0| 67 20 6c 65 6e 67 74 68 | 0d 09 6d 6f 76 65 2e 6c |g length|..move.l|
|00002bb0| 09 46 69 6c 65 54 79 70 | 65 28 61 35 29 2c 28 61 |.FileTyp|e(a5),(a|
|00002bc0| 30 29 09 3b 20 61 6e 64 | 20 73 74 72 69 6e 67 20 |0).; and| string |
|00002bd0| 63 6f 6e 74 65 6e 74 73 | 0d 09 53 65 74 50 61 72 |contents|..SetPar|
|00002be0| 61 6d 54 65 78 74 09 0d | 09 55 73 65 55 73 0d 09 |amText..|.UseUs..|
|00002bf0| 44 6f 41 6c 65 72 74 09 | 4f 72 70 68 61 6e 54 79 |DoAlert.|OrphanTy|
|00002c00| 70 65 0d 09 55 73 65 54 | 68 65 6d 0d 40 36 09 74 |pe..UseT|hem.@6.t|
|00002c10| 73 74 2e 62 09 43 72 65 | 61 74 6f 72 4d 61 74 63 |st.b.Cre|atorMatc|
|00002c20| 68 28 61 35 29 09 3b 20 | 66 6f 75 6e 64 20 42 4e |h(a5).; |found BN|
|00002c30| 44 4c 20 77 69 74 68 20 | 6f 75 72 20 43 72 65 61 |DL with |our Crea|
|00002c40| 74 6f 72 3f 0d 09 62 6e | 65 09 40 35 09 09 09 3b |tor?..bn|e.@5...;|
|00002c50| 20 73 6b 69 70 20 69 66 | 20 73 6f 0d 0d 09 6c 65 | skip if| so...le|
|00002c60| 61 09 45 72 72 53 74 72 | 69 6e 67 2b 31 28 61 36 |a.ErrStr|ing+1(a6|
|00002c70| 29 2c 61 30 09 3b 20 66 | 75 64 67 65 20 61 6c 69 |),a0.; f|udge ali|
|00002c80| 67 6e 6d 65 6e 74 20 6f | 66 20 73 74 72 69 6e 67 |gnment o|f string|
|00002c90| 0d 09 6d 6f 76 65 2e 6c | 09 61 30 2c 50 61 72 61 |..move.l|.a0,Para|
|00002ca0| 6d 5a 65 72 6f 28 61 35 | 29 09 3b 20 69 74 27 73 |mZero(a5|).; it's|
|00002cb0| 20 70 61 72 61 6d 20 74 | 65 78 74 20 7a 65 72 6f | param t|ext zero|
|00002cc0| 0d 09 6d 6f 76 65 2e 62 | 09 23 34 2c 28 61 30 29 |..move.b|.#4,(a0)|
|00002cd0| 2b 09 09 3b 20 73 65 74 | 20 73 74 72 69 6e 67 20 |+..; set| string |
|00002ce0| 6c 65 6e 67 74 68 0d 09 | 6d 6f 76 65 2e 6c 09 46 |length..|move.l.F|
|00002cf0| 69 6c 65 43 72 65 61 74 | 6f 72 28 61 35 29 2c 28 |ileCreat|or(a5),(|
|00002d00| 61 30 29 09 3b 20 61 6e | 64 20 73 74 72 69 6e 67 |a0).; an|d string|
|00002d10| 20 63 6f 6e 74 65 6e 74 | 73 0d 09 53 65 74 50 61 | content|s..SetPa|
|00002d20| 72 61 6d 54 65 78 74 09 | 0d 09 55 73 65 55 73 0d |ramText.|..UseUs.|
|00002d30| 09 44 6f 41 6c 65 72 74 | 09 4f 72 70 68 61 6e 43 |.DoAlert|.OrphanC|
|00002d40| 72 65 61 74 6f 72 0d 09 | 55 73 65 54 68 65 6d 0d |reator..|UseThem.|
|00002d50| 0d 09 3b 20 48 65 72 65 | 27 73 20 77 68 65 72 65 |..; Here|'s where|
|00002d60| 20 77 65 20 63 6c 6f 73 | 65 20 75 70 20 74 68 65 | we clos|e up the|
|00002d70| 20 66 69 6c 65 0d 40 35 | 09 6d 6f 76 65 2e 77 09 | file.@5|.move.w.|
|00002d80| 54 68 65 69 72 4d 61 70 | 28 61 35 29 2c 2d 28 73 |TheirMap|(a5),-(s|
|00002d90| 70 29 09 3b 20 72 65 74 | 72 69 65 76 65 20 74 65 |p).; ret|rieve te|
|00002da0| 73 74 20 66 69 6c 65 20 | 72 65 66 6e 75 6d 0d 09 |st file |refnum..|
|00002db0| 5f 43 6c 6f 73 65 52 65 | 73 46 69 6c 65 09 09 09 |_CloseRe|sFile...|
|00002dc0| 3b 20 61 6e 64 20 63 6c | 6f 73 65 20 69 74 20 75 |; and cl|ose it u|
|00002dd0| 70 0d 0d 09 6d 6f 76 65 | 2e 77 09 43 75 72 4d 61 |p...move|.w.CurMa|
|00002de0| 70 2c 64 30 09 09 3b 20 | 63 68 65 63 6b 20 74 68 |p,d0..; |check th|
|00002df0| 65 20 63 75 72 72 65 6e | 74 20 6d 61 70 0d 09 63 |e curren|t map..c|
|00002e00| 6d 70 2e 77 09 4f 75 72 | 4d 61 70 28 61 35 29 2c |mp.w.Our|Map(a5),|
|00002e10| 64 30 09 09 3b 20 69 73 | 20 69 74 20 75 73 3f 0d |d0..; is| it us?.|
|00002e20| 09 62 65 71 09 40 39 09 | 09 09 3b 20 73 6b 69 70 |.beq.@9.|..; skip|
|00002e30| 20 69 66 20 73 6f 2c 20 | 77 65 27 72 65 20 67 6f | if so, |we're go|
|00002e40| 6f 64 0d 09 44 65 62 75 | 67 50 6f 69 6e 74 0d 0d |od..Debu|gPoint..|
|00002e50| 09 3b 20 73 6f 20 6d 75 | 63 68 20 66 6f 72 20 74 |.; so mu|ch for t|
|00002e60| 68 69 73 20 66 69 6c 65 | 2e 20 20 52 65 73 74 6f |his file|. Resto|
|00002e70| 72 65 20 64 65 66 61 75 | 6c 74 20 76 6f 6c 75 6d |re defau|lt volum|
|00002e80| 65 0d 40 39 09 55 73 65 | 55 73 09 09 09 09 3b 20 |e.@9.Use|Us....; |
|00002e90| 69 6e 20 63 61 73 65 20 | 77 65 20 6f 70 65 6e 65 |in case |we opene|
|00002ea0| 64 20 74 68 65 20 53 79 | 73 74 65 6d 2e 2e 2e 0d |d the Sy|stem....|
|00002eb0| 09 63 6c 72 2e 6c 09 50 | 61 72 61 6d 5a 65 72 6f |.clr.l.P|aramZero|
|00002ec0| 28 61 35 29 09 09 3b 20 | 74 68 65 20 73 74 72 69 |(a5)..; |the stri|
|00002ed0| 6e 67 20 73 74 6f 72 61 | 67 65 20 69 73 20 67 6f |ng stora|ge is go|
|00002ee0| 6e 65 0d 09 75 6e 6c 6b | 09 61 36 0d 09 6d 6f 76 |ne..unlk|.a6..mov|
|00002ef0| 65 2e 6c 09 28 73 70 29 | 2b 2c 61 30 09 09 3b 20 |e.l.(sp)|+,a0..; |
|00002f00| 61 30 20 3d 20 72 65 74 | 75 72 6e 20 61 64 64 72 |a0 = ret|urn addr|
|00002f10| 65 73 73 0d 09 6c 65 61 | 09 41 72 67 73 53 7a 28 |ess..lea|.ArgsSz(|
|00002f20| 73 70 29 2c 73 70 09 09 | 3b 20 70 6f 70 20 61 72 |sp),sp..|; pop ar|
|00002f30| 67 75 6d 65 6e 74 73 0d | 09 6a 6d 70 09 28 61 30 |guments.|.jmp.(a0|
|00002f40| 29 09 09 09 3b 20 72 65 | 74 75 72 6e 0d 09 44 4e |)...; re|turn..DN|
|00002f50| 61 6d 65 09 43 48 45 43 | 4b 4f 4e 45 46 49 4c 45 |ame.CHEC|KONEFILE|
|00002f60| 0d 0d 3b 09 54 65 73 74 | 42 75 6e 64 6c 65 73 3a |..;.Test|Bundles:|
|00002f70| 20 54 65 73 74 20 61 6c | 6c 20 74 68 65 20 62 75 | Test al|l the bu|
|00002f80| 6e 64 6c 65 73 20 6f 66 | 20 74 68 65 20 63 75 72 |ndles of| the cur|
|00002f90| 72 65 6e 74 20 72 65 73 | 6f 75 72 63 65 20 66 69 |rent res|ource fi|
|00002fa0| 6c 65 0d 3b 09 64 30 20 | 3d 20 6e 75 6d 62 65 72 |le.;.d0 |= number|
|00002fb0| 20 6f 66 20 42 4e 44 4c | 20 61 76 61 69 6c 61 62 | of BNDL| availab|
|00002fc0| 6c 65 0d 3b 09 57 65 20 | 6f 6e 6c 79 20 6e 65 65 |le.;.We |only nee|
|00002fd0| 64 20 74 6f 20 63 68 65 | 63 6b 20 6f 6e 65 73 20 |d to che|ck ones |
|00002fe0| 6e 61 74 69 76 65 20 74 | 6f 20 74 68 65 20 74 6f |native t|o the to|
|00002ff0| 70 20 6d 61 70 20 5b 54 | 68 65 69 72 4d 61 70 28 |p map [T|heirMap(|
|00003000| 61 35 29 5d 0d 0d 4f 6c | 64 41 36 09 09 73 65 74 |a5)]..Ol|dA6..set|
|00003010| 09 30 0d 52 65 74 75 72 | 6e 41 64 64 72 09 73 65 |.0.Retur|nAddr.se|
|00003020| 74 09 4f 6c 64 41 36 2b | 34 0d 0d 52 65 73 49 6e |t.OldA6+|4..ResIn|
|00003030| 64 65 78 09 73 65 74 09 | 4f 6c 64 41 36 2d 32 09 |dex.set.|OldA6-2.|
|00003040| 09 3b 20 63 75 72 72 65 | 6e 74 20 72 65 73 6f 75 |.; curre|nt resou|
|00003050| 72 63 65 20 69 6e 64 65 | 78 0d 42 4e 44 4c 48 61 |rce inde|x.BNDLHa|
|00003060| 6e 64 6c 65 09 73 65 74 | 09 52 65 73 49 6e 64 65 |ndle.set|.ResInde|
|00003070| 78 2d 34 09 3b 20 68 61 | 6e 64 6c 65 20 74 6f 20 |x-4.; ha|ndle to |
|00003080| 63 75 72 72 65 6e 74 20 | 62 75 6e 64 6c 65 0d 4c |current |bundle.L|
|00003090| 61 73 74 4c 6f 63 61 6c | 09 73 65 74 09 42 4e 44 |astLocal|.set.BND|
|000030a0| 4c 48 61 6e 64 6c 65 0d | 0d 0d 54 65 73 74 42 75 |LHandle.|..TestBu|
|000030b0| 6e 64 6c 65 73 0d 09 6c | 69 6e 6b 09 61 36 2c 23 |ndles..l|ink.a6,#|
|000030c0| 4c 61 73 74 4c 6f 63 61 | 6c 0d 09 6d 6f 76 65 2e |LastLoca|l..move.|
|000030d0| 77 09 64 30 2c 52 65 73 | 49 6e 64 65 78 28 61 36 |w.d0,Res|Index(a6|
|000030e0| 29 09 09 3b 20 72 65 73 | 6f 75 72 63 65 73 20 74 |)..; res|ources t|
|000030f0| 6f 20 63 68 65 63 6b 0d | 0d 40 30 09 63 6c 72 2e |o check.|.@0.clr.|
|00003100| 6c 09 2d 28 73 70 29 0d | 09 6d 6f 76 65 2e 6c 09 |l.-(sp).|.move.l.|
|00003110| 23 27 42 4e 44 4c 27 2c | 2d 28 73 70 29 09 09 3b |#'BNDL',|-(sp)..;|
|00003120| 20 72 65 73 6f 75 72 63 | 65 20 74 79 70 65 0d 09 | resourc|e type..|
|00003130| 6d 6f 76 65 2e 77 09 52 | 65 73 49 6e 64 65 78 28 |move.w.R|esIndex(|
|00003140| 61 36 29 2c 2d 28 73 70 | 29 09 3b 20 72 65 73 6f |a6),-(sp|).; reso|
|00003150| 75 72 63 65 20 69 6e 64 | 65 78 0d 09 5f 47 65 74 |urce ind|ex.._Get|
|00003160| 49 6e 64 52 65 73 6f 75 | 72 63 65 09 09 09 3b 20 |IndResou|rce...; |
|00003170| 67 65 74 20 74 68 65 20 | 62 75 6e 64 6c 65 0d 09 |get the |bundle..|
|00003180| 6d 6f 76 65 2e 6c 09 28 | 73 70 29 2b 2c 42 4e 44 |move.l.(|sp)+,BND|
|00003190| 4c 48 61 6e 64 6c 65 28 | 61 36 29 09 3b 20 73 61 |LHandle(|a6).; sa|
|000031a0| 76 65 20 68 61 6e 64 6c | 65 0d 09 0d 09 3b 20 69 |ve handl|e....; i|
|000031b0| 73 20 69 74 20 6f 6e 65 | 20 74 68 61 74 20 77 65 |s it one| that we|
|000031c0| 20 77 61 6e 74 3f 0d 09 | 63 6c 72 2e 77 09 2d 28 | want?..|clr.w.-(|
|000031d0| 73 70 29 0d 09 6d 6f 76 | 65 2e 6c 09 42 4e 44 4c |sp)..mov|e.l.BNDL|
|000031e0| 48 61 6e 64 6c 65 28 61 | 36 29 2c 2d 28 73 70 29 |Handle(a|6),-(sp)|
|000031f0| 09 3b 20 63 75 72 72 65 | 6e 74 20 62 75 6e 64 6c |.; curre|nt bundl|
|00003200| 65 0d 09 5f 48 6f 6d 65 | 52 65 73 46 69 6c 65 0d |e.._Home|ResFile.|
|00003210| 09 6d 6f 76 65 2e 77 09 | 28 73 70 29 2b 2c 64 30 |.move.w.|(sp)+,d0|
|00003220| 0d 09 63 6d 70 2e 77 09 | 54 68 65 69 72 4d 61 70 |..cmp.w.|TheirMap|
|00003230| 28 61 35 29 2c 64 30 09 | 09 3b 20 69 73 20 69 74 |(a5),d0.|.; is it|
|00003240| 20 74 68 65 69 72 73 3f | 0d 09 62 6e 65 09 40 31 | theirs?|..bne.@1|
|00003250| 09 09 09 3b 20 73 6b 69 | 70 20 69 66 20 6e 6f 74 |...; ski|p if not|
|00003260| 0d 0d 09 6d 6f 76 65 2e | 6c 09 42 4e 44 4c 48 61 |...move.|l.BNDLHa|
|00003270| 6e 64 6c 65 28 61 36 29 | 2c 61 30 09 3b 20 67 65 |ndle(a6)|,a0.; ge|
|00003280| 74 20 74 68 65 20 62 75 | 6e 64 6c 65 20 68 61 6e |t the bu|ndle han|
|00003290| 64 6c 65 0d 09 5f 48 4e | 6f 50 75 72 67 65 09 09 |dle.._HN|oPurge..|
|000032a0| 09 3b 20 6d 61 6b 65 20 | 69 74 20 75 6e 70 75 72 |.; make |it unpur|
|000032b0| 67 65 61 62 6c 65 0d 09 | 6d 6f 76 65 2e 6c 09 42 |geable..|move.l.B|
|000032c0| 4e 44 4c 48 61 6e 64 6c | 65 28 61 36 29 2c 61 30 |NDLHandl|e(a6),a0|
|000032d0| 09 3b 20 67 65 74 20 74 | 68 65 20 62 75 6e 64 6c |.; get t|he bundl|
|000032e0| 65 20 68 61 6e 64 6c 65 | 0d 09 5f 48 4c 6f 63 6b |e handle|.._HLock|
|000032f0| 09 09 09 09 3b 20 6c 6f | 63 6b 20 69 74 20 64 6f |....; lo|ck it do|
|00003300| 77 6e 0d 0d 09 6d 6f 76 | 65 2e 6c 09 42 4e 44 4c |wn...mov|e.l.BNDL|
|00003310| 48 61 6e 64 6c 65 28 61 | 36 29 2c 61 30 09 3b 20 |Handle(a|6),a0.; |
|00003320| 67 65 74 20 74 68 65 20 | 62 75 6e 64 6c 65 20 68 |get the |bundle h|
|00003330| 61 6e 64 6c 65 0d 09 6a | 73 72 09 54 65 73 74 4f |andle..j|sr.TestO|
|00003340| 6e 65 42 75 6e 64 6c 65 | 09 09 3b 20 61 6e 64 20 |neBundle|..; and |
|00003350| 63 68 65 63 6b 20 69 74 | 20 6f 75 74 0d 0d 40 31 |check it| out..@1|
|00003360| 09 73 75 62 2e 77 09 23 | 31 2c 52 65 73 49 6e 64 |.sub.w.#|1,ResInd|
|00003370| 65 78 28 61 36 29 09 09 | 3b 20 64 65 63 72 65 6d |ex(a6)..|; decrem|
|00003380| 65 6e 74 20 72 65 73 6f | 75 72 63 65 20 69 6e 64 |ent reso|urce ind|
|00003390| 65 78 0d 09 62 6e 65 09 | 40 30 09 09 09 3b 20 61 |ex..bne.|@0...; a|
|000033a0| 6e 64 20 74 72 79 20 61 | 67 61 69 6e 0d 0d 09 75 |nd try a|gain...u|
|000033b0| 6e 6c 6b 09 61 36 0d 09 | 72 74 73 0d 09 44 4e 61 |nlk.a6..|rts..DNa|
|000033c0| 6d 65 09 54 45 53 54 42 | 55 4e 44 4c 45 53 0d 0d |me.TESTB|UNDLES..|
|000033d0| 3b 09 54 65 73 74 4f 6e | 65 42 75 6e 64 6c 65 3a |;.TestOn|eBundle:|
|000033e0| 20 45 78 61 6d 69 6e 65 | 20 6f 6e 65 20 42 4e 44 | Examine| one BND|
|000033f0| 4c 20 66 6f 72 20 76 61 | 6c 69 64 69 74 79 2c 20 |L for va|lidity, |
|00003400| 73 61 6e 69 74 79 2c 20 | 65 74 63 2e 0d 3b 09 61 |sanity, |etc..;.a|
|00003410| 30 20 3d 20 68 61 6e 64 | 6c 65 20 74 6f 20 74 68 |0 = hand|le to th|
|00003420| 65 20 62 75 6e 64 6c 65 | 0d 0d 4f 6c 64 41 36 09 |e bundle|..OldA6.|
|00003430| 09 73 65 74 09 30 0d 52 | 65 74 75 72 6e 41 64 64 |.set.0.R|eturnAdd|
|00003440| 72 09 73 65 74 09 4f 6c | 64 41 36 2b 34 0d 0d 42 |r.set.Ol|dA6+4..B|
|00003450| 4e 44 4c 48 61 6e 64 6c | 65 09 73 65 74 09 4f 6c |NDLHandl|e.set.Ol|
|00003460| 64 41 36 2d 34 09 09 3b | 20 68 61 6e 64 6c 65 20 |dA6-4..;| handle |
|00003470| 74 6f 20 63 75 72 72 65 | 6e 74 20 62 75 6e 64 6c |to curre|nt bundl|
|00003480| 65 0d 42 75 6e 64 6c 65 | 49 44 53 74 72 09 73 65 |e.Bundle|IDStr.se|
|00003490| 74 09 42 4e 44 4c 48 61 | 6e 64 6c 65 2d 33 32 09 |t.BNDLHa|ndle-32.|
|000034a0| 3b 20 53 74 72 33 31 20 | 66 6f 72 20 72 65 73 6f |; Str31 |for reso|
|000034b0| 75 72 63 65 20 49 44 0d | 42 75 6e 64 6c 65 53 69 |urce ID.|BundleSi|
|000034c0| 7a 65 09 73 65 74 09 42 | 75 6e 64 6c 65 49 44 53 |ze.set.B|undleIDS|
|000034d0| 74 72 2d 34 09 3b 20 73 | 69 7a 65 20 6f 66 20 62 |tr-4.; s|ize of b|
|000034e0| 75 6e 64 6c 65 0d 42 75 | 6e 64 6c 65 49 44 09 73 |undle.Bu|ndleID.s|
|000034f0| 65 74 09 42 75 6e 64 6c | 65 53 69 7a 65 2d 32 09 |et.Bundl|eSize-2.|
|00003500| 3b 20 62 75 6e 64 6c 65 | 27 73 20 72 65 73 6f 75 |; bundle|'s resou|
|00003510| 72 63 65 20 49 44 0d 42 | 75 6e 64 6c 65 54 79 70 |rce ID.B|undleTyp|
|00003520| 65 09 73 65 74 09 42 75 | 6e 64 6c 65 49 44 2d 34 |e.set.Bu|ndleID-4|
|00003530| 09 3b 20 62 75 6e 64 6c | 65 27 73 20 72 65 73 6f |.; bundl|e's reso|
|00003540| 75 72 63 65 20 74 79 70 | 65 0d 42 75 6e 64 6c 65 |urce typ|e.Bundle|
|00003550| 4e 61 6d 65 09 73 65 74 | 09 42 75 6e 64 6c 65 54 |Name.set|.BundleT|
|00003560| 79 70 65 2d 32 35 36 09 | 3b 20 62 75 6e 64 6c 65 |ype-256.|; bundle|
|00003570| 27 73 20 72 65 73 6f 75 | 72 63 65 20 6e 61 6d 65 |'s resou|rce name|
|00003580| 0d 4f 74 68 65 72 53 74 | 72 69 6e 67 09 73 65 74 |.OtherSt|ring.set|
|00003590| 09 42 75 6e 64 6c 65 4e | 61 6d 65 2d 33 32 09 3b |.BundleN|ame-32.;|
|000035a0| 20 66 6f 72 20 6f 74 68 | 65 72 20 73 74 75 66 66 | for oth|er stuff|
|000035b0| 0d 49 43 4e 6c 69 73 74 | 09 09 73 65 74 09 4f 74 |.ICNlist|..set.Ot|
|000035c0| 68 65 72 53 74 72 69 6e | 67 2d 34 09 3b 20 70 6f |herStrin|g-4.; po|
|000035d0| 69 6e 74 65 72 20 74 6f | 20 49 43 4e 23 20 6c 69 |inter to| ICN# li|
|000035e0| 73 74 0d 46 52 45 46 6c | 69 73 74 09 73 65 74 09 |st.FREFl|ist.set.|
|000035f0| 49 43 4e 6c 69 73 74 2d | 34 09 3b 20 70 6f 69 6e |ICNlist-|4.; poin|
|00003600| 74 65 72 20 74 6f 20 46 | 52 45 46 20 6c 69 73 74 |ter to F|REF list|
|00003610| 0d 4c 61 73 74 4c 6f 63 | 61 6c 09 73 65 74 09 46 |.LastLoc|al.set.F|
|00003620| 52 45 46 6c 69 73 74 0d | 0d 54 65 73 74 4f 6e 65 |REFlist.|.TestOne|
|00003630| 42 75 6e 64 6c 65 0d 09 | 6c 69 6e 6b 09 61 36 2c |Bundle..|link.a6,|
|00003640| 23 4c 61 73 74 4c 6f 63 | 61 6c 0d 09 6d 6f 76 65 |#LastLoc|al..move|
|00003650| 6d 2e 6c 09 64 32 2d 64 | 35 2f 61 32 2d 61 34 2c |m.l.d2-d|5/a2-a4,|
|00003660| 2d 28 73 70 29 09 3b 20 | 73 61 76 65 20 73 6f 6d |-(sp).; |save som|
|00003670| 65 20 72 65 67 69 73 74 | 65 72 73 0d 09 63 6c 72 |e regist|ers..clr|
|00003680| 2e 6c 09 49 43 4e 6c 69 | 73 74 28 61 36 29 09 09 |.l.ICNli|st(a6)..|
|00003690| 3b 20 63 6c 65 61 72 20 | 6c 69 73 74 20 70 6f 69 |; clear |list poi|
|000036a0| 6e 74 65 72 73 0d 09 63 | 6c 72 2e 6c 09 46 52 45 |nters..c|lr.l.FRE|
|000036b0| 46 6c 69 73 74 28 61 36 | 29 0d 0d 09 6d 6f 76 65 |Flist(a6|)...move|
|000036c0| 2e 6c 09 61 30 2c 42 4e | 44 4c 48 61 6e 64 6c 65 |.l.a0,BN|DLHandle|
|000036d0| 28 61 36 29 09 3b 20 73 | 74 6f 72 65 20 62 75 6e |(a6).; s|tore bun|
|000036e0| 64 6c 65 20 68 61 6e 64 | 6c 65 20 66 6f 72 20 6c |dle hand|le for l|
|000036f0| 61 74 65 72 0d 09 6d 6f | 76 65 2e 6c 09 28 61 30 |ater..mo|ve.l.(a0|
|00003700| 29 2c 61 34 09 09 09 3b | 20 61 34 20 3d 20 62 75 |),a4...;| a4 = bu|
|00003710| 6e 64 6c 65 20 70 6f 69 | 6e 74 65 72 0d 0d 09 6d |ndle poi|nter...m|
|00003720| 6f 76 65 2e 6c 09 61 30 | 2c 2d 28 73 70 29 09 09 |ove.l.a0|,-(sp)..|
|00003730| 3b 20 70 75 73 68 20 68 | 61 6e 64 6c 65 0d 09 70 |; push h|andle..p|
|00003740| 65 61 09 42 75 6e 64 6c | 65 49 44 28 61 36 29 09 |ea.Bundl|eID(a6).|
|00003750| 09 3b 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 72 65 |.; point|er to re|
|00003760| 73 6f 75 72 63 65 20 49 | 44 20 76 61 72 0d 09 70 |source I|D var..p|
|00003770| 65 61 09 42 75 6e 64 6c | 65 54 79 70 65 28 61 36 |ea.Bundl|eType(a6|
|00003780| 29 09 09 3b 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |)..; poi|nter to |
|00003790| 72 65 73 6f 75 72 63 65 | 20 74 79 70 65 20 76 61 |resource| type va|
|000037a0| 72 0d 09 70 65 61 09 42 | 75 6e 64 6c 65 4e 61 6d |r..pea.B|undleNam|
|000037b0| 65 28 61 36 29 09 09 3b | 20 70 6f 69 6e 74 65 72 |e(a6)..;| pointer|
|000037c0| 20 74 6f 20 72 65 73 6f | 75 72 63 65 20 6e 61 6d | to reso|urce nam|
|000037d0| 65 20 76 61 72 0d 09 5f | 47 65 74 52 65 73 49 6e |e var.._|GetResIn|
|000037e0| 66 6f 0d 0d 09 6c 65 61 | 09 42 75 6e 64 6c 65 49 |fo...lea|.BundleI|
|000037f0| 44 53 74 72 28 61 36 29 | 2c 61 30 09 3b 20 73 74 |DStr(a6)|,a0.; st|
|00003800| 72 69 6e 67 20 66 6f 72 | 20 62 75 6e 64 6c 65 27 |ring for| bundle'|
|00003810| 73 20 72 65 73 20 49 44 | 0d 09 6d 6f 76 65 2e 6c |s res ID|..move.l|
|00003820| 09 61 30 2c 50 61 72 61 | 6d 5a 65 72 6f 28 61 35 |.a0,Para|mZero(a5|
|00003830| 29 09 3b 20 73 61 76 65 | 20 66 6f 72 20 75 73 65 |).; save| for use|
|00003840| 20 69 6e 20 50 61 72 61 | 6d 54 65 78 74 0d 09 6d | in Para|mText..m|
|00003850| 6f 76 65 2e 77 09 42 75 | 6e 64 6c 65 49 44 28 61 |ove.w.Bu|ndleID(a|
|00003860| 36 29 2c 64 30 09 09 3b | 20 67 65 74 20 74 68 65 |6),d0..;| get the|
|00003870| 20 72 65 73 6f 75 72 63 | 65 20 49 44 0d 09 65 78 | resourc|e ID..ex|
|00003880| 74 2e 6c 09 64 30 0d 09 | 5f 4e 75 6d 54 6f 53 74 |t.l.d0..|_NumToSt|
|00003890| 72 69 6e 67 0d 09 53 65 | 74 50 61 72 61 6d 54 65 |ring..Se|tParamTe|
|000038a0| 78 74 0d 0d 09 3b 20 45 | 78 61 6d 69 6e 65 20 74 |xt...; E|xamine t|
|000038b0| 68 65 20 62 75 6e 64 6c | 65 20 66 6f 72 20 73 69 |he bundl|e for si|
|000038c0| 7a 65 2d 77 69 73 65 20 | 73 61 6e 69 74 79 0d 09 |ze-wise |sanity..|
|000038d0| 63 6c 72 2e 6c 09 2d 28 | 73 70 29 0d 09 6d 6f 76 |clr.l.-(|sp)..mov|
|000038e0| 65 2e 6c 09 42 4e 44 4c | 48 61 6e 64 6c 65 28 61 |e.l.BNDL|Handle(a|
|000038f0| 36 29 2c 2d 28 73 70 29 | 0d 09 5f 53 69 7a 65 52 |6),-(sp)|.._SizeR|
|00003900| 73 72 63 09 09 09 3b 20 | 68 6f 77 20 62 69 67 20 |src...; |how big |
|00003910| 69 73 20 69 74 3f 0d 09 | 6d 6f 76 65 2e 6c 09 28 |is it?..|move.l.(|
|00003920| 73 70 29 2b 2c 44 34 09 | 09 3b 20 73 61 76 65 20 |sp)+,D4.|.; save |
|00003930| 66 6f 72 20 6c 61 74 65 | 72 0d 09 6d 6f 76 65 2e |for late|r..move.|
|00003940| 6c 09 44 34 2c 42 75 6e | 64 6c 65 53 69 7a 65 28 |l.D4,Bun|dleSize(|
|00003950| 61 36 29 09 3b 20 6d 69 | 67 68 74 20 6e 65 65 64 |a6).; mi|ght need|
|00003960| 20 6f 72 69 67 69 6e 61 | 6c 20 66 69 67 75 72 65 | origina|l figure|
|00003970| 2e 2e 2e 0d 09 73 75 62 | 2e 77 09 23 38 2c 44 34 |.....sub|.w.#8,D4|
|00003980| 09 09 09 3b 20 61 74 20 | 6c 65 61 73 74 20 6d 69 |...; at |least mi|
|00003990| 6e 69 6d 75 6d 20 6c 65 | 6e 67 74 68 3f 0d 09 62 |nimum le|ngth?..b|
|000039a0| 6d 69 09 40 35 09 09 09 | 3b 20 62 72 61 6e 63 68 |mi.@5...|; branch|
|000039b0| 20 69 66 20 6e 6f 74 0d | 09 6d 6f 76 65 2e 6c 09 | if not.|.move.l.|
|000039c0| 28 61 34 29 2c 44 30 09 | 09 09 3b 20 44 30 20 3d |(a4),D0.|..; D0 =|
|000039d0| 20 73 69 67 6e 61 74 75 | 72 65 20 74 79 70 65 0d | signatu|re type.|
|000039e0| 09 6d 6f 76 65 2e 77 09 | 34 28 61 34 29 2c 64 31 |.move.w.|4(a4),d1|
|000039f0| 09 09 3b 20 44 31 20 3d | 20 73 69 67 6e 61 74 75 |..; D1 =| signatu|
|00003a00| 72 65 20 49 44 0d 09 6a | 73 72 09 54 65 73 74 53 |re ID..j|sr.TestS|
|00003a10| 69 67 6e 61 74 75 72 65 | 09 09 3b 20 63 68 65 63 |ignature|..; chec|
|00003a20| 6b 20 69 74 20 6f 75 74 | 21 0d 0d 09 6d 6f 76 65 |k it out|!...move|
|00003a30| 2e 77 09 36 28 61 34 29 | 2c 64 33 09 09 3b 20 44 |.w.6(a4)|,d3..; D|
|00003a40| 33 20 3d 20 23 20 74 79 | 70 65 73 20 2d 20 31 0d |3 = # ty|pes - 1.|
|00003a50| 09 63 6d 70 2e 77 09 23 | 31 2c 44 33 09 09 09 3b |.cmp.w.#|1,D3...;|
|00003a60| 20 75 73 75 61 6c 20 6e | 75 6d 62 65 72 3f 0d 09 | usual n|umber?..|
|00003a70| 62 65 71 09 40 30 09 09 | 09 3b 20 73 6b 69 70 20 |beq.@0..|.; skip |
|00003a80| 69 66 20 73 6f 0d 09 6d | 6f 76 65 2e 77 09 64 33 |if so..m|ove.w.d3|
|00003a90| 2c 64 30 0d 09 61 64 64 | 2e 77 09 23 31 2c 64 30 |,d0..add|.w.#1,d0|
|00003aa0| 09 09 09 3b 20 61 63 74 | 75 61 6c 20 6e 75 6d 62 |...; act|ual numb|
|00003ab0| 65 72 20 6f 66 20 74 79 | 70 65 73 0d 09 6c 65 61 |er of ty|pes..lea|
|00003ac0| 09 4f 74 68 65 72 53 74 | 72 69 6e 67 28 61 36 29 |.OtherSt|ring(a6)|
|00003ad0| 2c 61 30 09 3b 20 6f 74 | 68 65 72 20 73 74 72 69 |,a0.; ot|her stri|
|00003ae0| 6e 67 0d 09 6d 6f 76 65 | 2e 6c 09 61 30 2c 50 61 |ng..move|.l.a0,Pa|
|00003af0| 72 61 6d 4f 6e 65 28 61 | 35 29 0d 09 65 78 74 2e |ramOne(a|5)..ext.|
|00003b00| 6c 09 64 30 0d 09 5f 4e | 75 6d 54 6f 53 74 72 69 |l.d0.._N|umToStri|
|00003b10| 6e 67 0d 09 53 65 74 50 | 61 72 61 6d 54 65 78 74 |ng..SetP|aramText|
|00003b20| 0d 09 55 73 65 55 73 0d | 09 44 6f 41 6c 65 72 74 |..UseUs.|.DoAlert|
|00003b30| 09 4e 75 6d 62 65 72 4f | 66 54 79 70 65 73 0d 09 |.NumberO|fTypes..|
|00003b40| 55 73 65 54 68 65 6d 0d | 40 30 09 6c 65 61 09 38 |UseThem.|@0.lea.8|
|00003b50| 28 61 34 29 2c 61 34 09 | 09 3b 20 61 34 20 3d 20 |(a4),a4.|.; a4 = |
|00003b60| 68 65 61 64 65 72 20 6f | 66 20 66 69 72 73 74 20 |header o|f first |
|00003b70| 72 65 73 6f 75 72 63 65 | 20 6c 69 73 74 0d 0d 40 |resource| list..@|
|00003b80| 31 09 73 75 62 2e 77 09 | 23 36 2c 44 34 09 09 09 |1.sub.w.|#6,D4...|
|00003b90| 3b 20 6c 65 6e 67 74 68 | 20 6f 66 20 6c 69 73 74 |; length| of list|
|00003ba0| 20 68 65 61 64 65 72 0d | 09 62 6d 69 09 40 35 09 | header.|.bmi.@5.|
|00003bb0| 09 09 3b 20 73 6b 69 70 | 20 6f 75 74 20 69 66 20 |..; skip| out if |
|00003bc0| 74 6f 6f 20 73 68 6f 72 | 74 0d 09 63 6d 70 69 2e |too shor|t..cmpi.|
|00003bd0| 6c 09 23 27 49 43 4e 23 | 27 2c 28 61 34 29 09 09 |l.#'ICN#|',(a4)..|
|00003be0| 3b 20 69 63 6f 6e 73 3f | 0d 09 62 6e 65 09 40 36 |; icons?|..bne.@6|
|00003bf0| 09 09 09 3b 20 73 6b 69 | 70 20 69 66 20 6e 6f 74 |...; ski|p if not|
|00003c00| 2c 20 74 72 79 20 73 6f | 6d 65 74 68 69 6e 67 20 |, try so|mething |
|00003c10| 65 6c 73 65 0d 09 6d 6f | 76 65 2e 6c 09 61 34 2c |else..mo|ve.l.a4,|
|00003c20| 49 43 4e 6c 69 73 74 28 | 61 36 29 09 09 3b 20 73 |ICNlist(|a6)..; s|
|00003c30| 61 76 65 20 49 43 4e 23 | 20 6c 69 73 74 20 70 6f |ave ICN#| list po|
|00003c40| 69 6e 74 65 72 0d 09 62 | 72 61 09 40 32 09 09 09 |inter..b|ra.@2...|
|00003c50| 3b 20 61 6e 64 20 67 6f | 20 63 68 65 63 6b 20 74 |; and go| check t|
|00003c60| 68 65 20 6c 69 73 74 0d | 40 36 09 63 6d 70 69 2e |he list.|@6.cmpi.|
|00003c70| 6c 09 23 27 46 52 45 46 | 27 2c 28 61 34 29 09 09 |l.#'FREF|',(a4)..|
|00003c80| 3b 20 66 69 6c 65 20 72 | 65 66 65 72 65 6e 63 65 |; file r|eference|
|00003c90| 73 3f 0d 09 62 6e 65 09 | 40 37 09 09 09 3b 20 73 |s?..bne.|@7...; s|
|00003ca0| 6b 69 70 20 69 66 20 6e | 6f 74 2c 20 69 74 27 73 |kip if n|ot, it's|
|00003cb0| 20 73 6f 6d 65 74 68 69 | 6e 67 20 77 65 69 72 64 | somethi|ng weird|
|00003cc0| 0d 09 6d 6f 76 65 2e 6c | 09 61 34 2c 46 52 45 46 |..move.l|.a4,FREF|
|00003cd0| 6c 69 73 74 28 61 36 29 | 09 09 3b 20 73 61 76 65 |list(a6)|..; save|
|00003ce0| 20 46 52 45 46 20 6c 69 | 73 74 20 70 6f 69 6e 74 | FREF li|st point|
|00003cf0| 65 72 0d 09 62 72 61 09 | 40 32 09 09 09 3b 20 61 |er..bra.|@2...; a|
|00003d00| 6e 64 20 67 6f 20 63 68 | 65 63 6b 20 74 68 65 20 |nd go ch|eck the |
|00003d10| 6c 69 73 74 0d 40 37 09 | 6c 65 61 09 4f 74 68 65 |list.@7.|lea.Othe|
|00003d20| 72 53 74 72 69 6e 67 28 | 61 36 29 2c 61 30 09 3b |rString(|a6),a0.;|
|00003d30| 20 70 6f 69 6e 74 20 74 | 6f 20 6f 74 68 65 72 20 | point t|o other |
|00003d40| 73 74 72 69 6e 67 0d 09 | 6d 6f 76 65 2e 77 09 23 |string..|move.w.#|
|00003d50| 34 2c 28 61 30 29 0d 09 | 6d 6f 76 65 2e 6c 09 28 |4,(a0)..|move.l.(|
|00003d60| 61 34 29 2c 32 28 61 30 | 29 09 09 3b 20 66 69 6c |a4),2(a0|)..; fil|
|00003d70| 6c 20 69 6e 20 72 65 73 | 6f 75 72 63 65 20 74 79 |l in res|ource ty|
|00003d80| 70 65 0d 09 6c 65 61 09 | 31 28 61 30 29 2c 61 30 |pe..lea.|1(a0),a0|
|00003d90| 09 09 3b 20 75 73 65 20 | 6f 64 64 2d 61 6c 69 67 |..; use |odd-alig|
|00003da0| 6e 65 64 20 73 74 72 69 | 6e 67 0d 09 6d 6f 76 65 |ned stri|ng..move|
|00003db0| 2e 6c 09 61 30 2c 50 61 | 72 61 6d 4f 6e 65 28 61 |.l.a0,Pa|ramOne(a|
|00003dc0| 35 29 0d 09 53 65 74 50 | 61 72 61 6d 54 65 78 74 |5)..SetP|aramText|
|00003dd0| 0d 09 55 73 65 55 73 0d | 09 44 6f 41 6c 65 72 74 |..UseUs.|.DoAlert|
|00003de0| 09 4e 6f 76 65 6c 54 79 | 70 65 0d 09 55 73 65 54 |.NovelTy|pe..UseT|
|00003df0| 68 65 6d 0d 40 32 09 6d | 6f 76 65 2e 77 09 34 28 |hem.@2.m|ove.w.4(|
|00003e00| 61 34 29 2c 64 32 09 09 | 3b 20 72 65 73 6f 75 72 |a4),d2..|; resour|
|00003e10| 63 65 73 20 2d 20 31 20 | 6f 66 20 74 68 69 73 20 |ces - 1 |of this |
|00003e20| 74 79 70 65 0d 09 6c 65 | 61 09 36 28 61 34 29 2c |type..le|a.6(a4),|
|00003e30| 61 33 09 09 3b 20 61 33 | 20 3d 20 73 74 61 72 74 |a3..; a3| = start|
|00003e40| 20 6f 66 20 72 65 73 6f | 75 72 63 65 20 6c 69 73 | of reso|urce lis|
|00003e50| 74 0d 40 33 09 73 75 62 | 2e 77 09 23 34 2c 64 34 |t.@3.sub|.w.#4,d4|
|00003e60| 09 09 09 3b 20 73 69 7a | 65 20 6f 66 20 6c 69 73 |...; siz|e of lis|
|00003e70| 74 20 69 74 65 6d 0d 09 | 62 6d 69 09 40 35 09 09 |t item..|bmi.@5..|
|00003e80| 09 3b 20 73 6b 69 70 20 | 6f 75 74 20 69 66 20 74 |.; skip |out if t|
|00003e90| 6f 6f 20 73 68 6f 72 74 | 0d 09 6d 6f 76 65 2e 6c |oo short|..move.l|
|00003ea0| 09 28 61 34 29 2c 44 30 | 09 09 09 3b 20 72 65 73 |.(a4),D0|...; res|
|00003eb0| 6f 75 72 63 65 20 74 79 | 70 65 0d 09 6d 6f 76 65 |ource ty|pe..move|
|00003ec0| 2e 77 09 32 28 61 33 29 | 2c 44 31 09 09 3b 20 72 |.w.2(a3)|,D1..; r|
|00003ed0| 65 73 6f 75 72 63 65 20 | 49 44 0d 09 6a 73 72 09 |esource |ID..jsr.|
|00003ee0| 54 65 73 74 4f 6e 65 52 | 65 73 6f 75 72 63 65 09 |TestOneR|esource.|
|00003ef0| 09 3b 20 74 65 73 74 20 | 69 74 21 0d 09 6c 65 61 |.; test |it!..lea|
|00003f00| 09 34 28 61 33 29 2c 61 | 33 09 09 3b 20 6e 65 78 |.4(a3),a|3..; nex|
|00003f10| 74 20 69 74 65 6d 20 69 | 6e 20 6c 69 73 74 0d 09 |t item i|n list..|
|00003f20| 64 62 72 61 09 64 32 2c | 40 33 09 09 09 3b 20 63 |dbra.d2,|@3...; c|
|00003f30| 6f 6c 6c 65 63 74 20 74 | 68 65 6d 20 61 6c 6c 0d |ollect t|hem all.|
|00003f40| 09 6d 6f 76 65 2e 6c 09 | 61 33 2c 61 34 09 09 09 |.move.l.|a3,a4...|
|00003f50| 3b 20 6e 65 78 74 20 6c | 69 73 74 0d 09 64 62 72 |; next l|ist..dbr|
|00003f60| 61 09 64 33 2c 40 31 09 | 09 09 3b 20 63 6f 6c 6c |a.d3,@1.|..; coll|
|00003f70| 65 63 74 20 61 6c 6c 20 | 6f 66 20 74 68 6f 73 65 |ect all |of those|
|00003f80| 2c 20 74 6f 6f 0d 09 74 | 73 74 2e 77 09 64 34 09 |, too..t|st.w.d4.|
|00003f90| 09 09 3b 20 41 6c 6c 20 | 75 73 65 64 20 75 70 3f |..; All |used up?|
|00003fa0| 0d 09 62 65 71 09 40 34 | 09 09 09 3b 20 73 6b 69 |..beq.@4|...; ski|
|00003fb0| 70 20 69 66 20 73 6f 2c | 20 74 68 61 74 27 73 20 |p if so,| that's |
|00003fc0| 6a 75 73 74 20 72 69 67 | 68 74 0d 09 3b 20 54 68 |just rig|ht..; Th|
|00003fd0| 65 20 62 75 6e 64 6c 65 | 20 72 75 6e 73 20 6f 6e |e bundle| runs on|
|00003fe0| 20 6c 6f 6e 67 65 72 20 | 74 68 61 6e 20 65 78 70 | longer |than exp|
|00003ff0| 65 63 74 65 64 0d 09 55 | 73 65 55 73 0d 09 44 6f |ected..U|seUs..Do|
|00004000| 41 6c 65 72 74 09 45 78 | 63 65 73 73 42 75 6e 64 |Alert.Ex|cessBund|
|00004010| 6c 65 0d 09 55 73 65 54 | 68 65 6d 0d 40 34 09 6d |le..UseT|hem.@4.m|
|00004020| 6f 76 65 2e 6c 09 49 43 | 4e 6c 69 73 74 28 61 36 |ove.l.IC|Nlist(a6|
|00004030| 29 2c 61 30 09 09 3b 20 | 70 69 63 6b 20 75 70 20 |),a0..; |pick up |
|00004040| 49 43 4e 23 20 61 6e 64 | 20 46 52 45 46 20 70 6f |ICN# and| FREF po|
|00004050| 69 6e 74 65 72 73 0d 09 | 6d 6f 76 65 2e 6c 09 46 |inters..|move.l.F|
|00004060| 52 45 46 6c 69 73 74 28 | 61 36 29 2c 61 31 0d 09 |REFlist(|a6),a1..|
|00004070| 6a 73 72 09 54 65 73 74 | 4c 6f 63 61 6c 49 44 73 |jsr.Test|LocalIDs|
|00004080| 0d 0d 09 63 6c 72 2e 6c | 09 50 61 72 61 6d 5a 65 |...clr.l|.ParamZe|
|00004090| 72 6f 28 61 35 29 0d 09 | 63 6c 72 2e 6c 09 50 61 |ro(a5)..|clr.l.Pa|
|000040a0| 72 61 6d 4f 6e 65 28 61 | 35 29 0d 09 6d 6f 76 65 |ramOne(a|5)..move|
|000040b0| 6d 2e 6c 09 28 73 70 29 | 2b 2c 64 32 2d 64 35 2f |m.l.(sp)|+,d2-d5/|
|000040c0| 61 32 2d 61 34 09 3b 20 | 72 65 73 74 6f 72 65 20 |a2-a4.; |restore |
|000040d0| 73 6f 6d 65 20 72 65 67 | 69 73 74 65 72 73 0d 09 |some reg|isters..|
|000040e0| 75 6e 6c 6b 09 61 36 0d | 09 72 74 73 0d 09 44 4e |unlk.a6.|.rts..DN|
|000040f0| 61 6d 65 09 54 45 53 54 | 4f 4e 45 42 55 4e 44 4c |ame.TEST|ONEBUNDL|
|00004100| 45 0d 0d 40 35 09 55 73 | 65 55 73 0d 09 44 6f 41 |E..@5.Us|eUs..DoA|
|00004110| 6c 65 72 74 09 4d 69 73 | 73 69 6e 67 42 75 6e 64 |lert.Mis|singBund|
|00004120| 6c 65 0d 09 55 73 65 54 | 68 65 6d 0d 09 62 72 61 |le..UseT|hem..bra|
|00004130| 09 40 34 0d 0d 0d 3b 09 | 54 65 73 74 53 69 67 6e |.@4...;.|TestSign|
|00004140| 61 74 75 72 65 3a 20 44 | 6f 65 73 20 74 68 65 20 |ature: D|oes the |
|00004150| 27 73 69 67 6e 61 74 75 | 72 65 27 20 72 65 73 6f |'signatu|re' reso|
|00004160| 75 72 63 65 20 65 78 69 | 73 74 3f 0d 3b 09 44 30 |urce exi|st?.;.D0|
|00004170| 20 3d 20 72 65 73 6f 75 | 72 63 65 20 74 79 70 65 | = resou|rce type|
|00004180| 0d 3b 09 44 31 2e 77 20 | 3d 20 72 65 73 6f 75 72 |.;.D1.w |= resour|
|00004190| 63 65 20 49 44 0d 0d 4f | 6c 64 41 36 09 09 73 65 |ce ID..O|ldA6..se|
|000041a0| 74 09 30 0d 52 65 74 75 | 72 6e 41 64 64 72 09 73 |t.0.Retu|rnAddr.s|
|000041b0| 65 74 09 4f 6c 64 41 36 | 2b 34 0d 0d 53 69 67 54 |et.OldA6|+4..SigT|
|000041c0| 79 70 65 09 09 73 65 74 | 09 4f 6c 64 41 36 2d 34 |ype..set|.OldA6-4|
|000041d0| 09 09 3b 20 74 79 70 65 | 20 6f 66 20 73 69 67 6e |..; type| of sign|
|000041e0| 61 74 75 72 65 20 72 65 | 73 6f 75 72 63 65 0d 54 |ature re|source.T|
|000041f0| 79 70 65 53 74 72 09 09 | 73 65 74 09 53 69 67 54 |ypeStr..|set.SigT|
|00004200| 79 70 65 2d 31 09 3b 20 | 66 6f 72 20 74 79 70 65 |ype-1.; |for type|
|00004210| 20 73 74 72 69 6e 67 0d | 46 69 6c 6c 65 72 4f 6e | string.|FillerOn|
|00004220| 65 09 73 65 74 09 54 79 | 70 65 53 74 72 2d 31 09 |e.set.Ty|peStr-1.|
|00004230| 3b 20 72 65 73 74 6f 72 | 65 20 61 6c 69 67 6e 6d |; restor|e alignm|
|00004240| 65 6e 74 0d 53 69 67 49 | 44 09 09 73 65 74 09 46 |ent.SigI|D..set.F|
|00004250| 69 6c 6c 65 72 4f 6e 65 | 2d 32 09 3b 20 72 65 73 |illerOne|-2.; res|
|00004260| 6f 75 72 63 65 20 49 44 | 20 66 6f 72 20 73 69 67 |ource ID| for sig|
|00004270| 6e 61 74 75 72 65 0d 49 | 44 53 74 72 69 6e 67 09 |nature.I|DString.|
|00004280| 73 65 74 09 53 69 67 49 | 44 2d 33 32 09 3b 20 53 |set.SigI|D-32.; S|
|00004290| 74 72 33 31 20 66 6f 72 | 20 72 65 73 6f 75 72 63 |tr31 for| resourc|
|000042a0| 65 20 49 44 0d 0d 4c 61 | 73 74 4c 6f 63 61 6c 09 |e ID..La|stLocal.|
|000042b0| 73 65 74 09 49 44 53 74 | 72 69 6e 67 0d 0d 54 65 |set.IDSt|ring..Te|
|000042c0| 73 74 53 69 67 6e 61 74 | 75 72 65 0d 09 6c 69 6e |stSignat|ure..lin|
|000042d0| 6b 09 61 36 2c 23 4c 61 | 73 74 4c 6f 63 61 6c 0d |k.a6,#La|stLocal.|
|000042e0| 09 6d 6f 76 65 2e 6c 09 | 64 30 2c 53 69 67 54 79 |.move.l.|d0,SigTy|
|000042f0| 70 65 28 61 36 29 09 09 | 3b 20 73 61 76 65 20 73 |pe(a6)..|; save s|
|00004300| 69 67 6e 61 74 75 72 65 | 27 73 20 72 65 73 6f 75 |ignature|'s resou|
|00004310| 72 63 65 20 74 79 70 65 | 0d 09 6d 6f 76 65 2e 77 |rce type|..move.w|
|00004320| 09 64 31 2c 53 69 67 49 | 44 28 61 36 29 09 09 3b |.d1,SigI|D(a6)..;|
|00004330| 20 73 61 76 65 20 72 65 | 73 6f 75 72 63 65 20 49 | save re|source I|
|00004340| 44 0d 09 63 6d 70 2e 6c | 09 46 69 6c 65 43 72 65 |D..cmp.l|.FileCre|
|00004350| 61 74 6f 72 28 61 35 29 | 2c 64 30 09 3b 20 46 52 |ator(a5)|,d0.; FR|
|00004360| 45 46 20 6d 61 74 63 68 | 65 73 20 63 72 65 61 74 |EF match|es creat|
|00004370| 6f 72 3f 0d 09 73 65 71 | 09 64 30 0d 09 6f 72 2e |or?..seq|.d0..or.|
|00004380| 62 09 64 30 2c 43 72 65 | 61 74 6f 72 4d 61 74 63 |b.d0,Cre|atorMatc|
|00004390| 68 28 61 35 29 09 3b 20 | 73 65 74 20 6d 61 74 63 |h(a5).; |set matc|
|000043a0| 68 20 66 6c 61 67 20 69 | 66 20 73 6f 0d 0d 09 63 |h flag i|f so...c|
|000043b0| 6c 72 2e 6c 09 2d 28 73 | 70 29 0d 09 6d 6f 76 65 |lr.l.-(s|p)..move|
|000043c0| 2e 6c 09 53 69 67 54 79 | 70 65 28 61 36 29 2c 2d |.l.SigTy|pe(a6),-|
|000043d0| 28 73 70 29 09 3b 20 72 | 65 73 6f 75 72 63 65 20 |(sp).; r|esource |
|000043e0| 74 79 70 65 0d 09 6d 6f | 76 65 2e 77 09 53 69 67 |type..mo|ve.w.Sig|
|000043f0| 49 44 28 61 36 29 2c 2d | 28 73 70 29 09 09 3b 20 |ID(a6),-|(sp)..; |
|00004400| 72 65 73 6f 75 72 63 65 | 20 49 44 0d 09 5f 47 65 |resource| ID.._Ge|
|00004410| 74 52 65 73 6f 75 72 63 | 65 09 09 09 3b 20 46 65 |tResourc|e...; Fe|
|00004420| 74 63 68 21 0d 09 6d 6f | 76 65 2e 6c 09 28 73 70 |tch!..mo|ve.l.(sp|
|00004430| 29 2b 2c 64 30 09 09 3b | 20 70 6f 70 20 74 68 65 |)+,d0..;| pop the|
|00004440| 20 68 61 6e 64 6c 65 0d | 09 62 65 71 09 40 32 09 | handle.|.beq.@2.|
|00004450| 09 09 3b 20 70 72 6f 62 | 6c 65 6d 20 69 66 20 4e |..; prob|lem if N|
|00004460| 49 4c 0d 09 74 73 74 2e | 77 09 52 65 73 45 72 72 |IL..tst.|w.ResErr|
|00004470| 09 09 09 3b 20 73 6f 6d | 65 74 68 69 6e 67 20 77 |...; som|ething w|
|00004480| 72 6f 6e 67 3f 0d 09 62 | 6e 65 09 40 32 09 09 09 |rong?..b|ne.@2...|
|00004490| 3b 20 73 6b 69 70 20 69 | 66 20 73 6f 0d 09 63 6c |; skip i|f so..cl|
|000044a0| 72 2e 77 09 2d 28 73 70 | 29 09 09 09 3b 20 63 68 |r.w.-(sp|)...; ch|
|000044b0| 65 63 6b 20 68 6f 6d 65 | 20 66 69 6c 65 20 6f 66 |eck home| file of|
|000044c0| 20 72 65 73 6f 75 72 63 | 65 0d 09 6d 6f 76 65 2e | resourc|e..move.|
|000044d0| 6c 09 64 30 2c 2d 28 73 | 70 29 0d 09 5f 48 6f 6d |l.d0,-(s|p).._Hom|
|000044e0| 65 52 65 73 46 69 6c 65 | 0d 09 6d 6f 76 65 2e 77 |eResFile|..move.w|
|000044f0| 09 28 73 70 29 2b 2c 64 | 30 09 09 3b 20 70 6f 70 |.(sp)+,d|0..; pop|
|00004500| 20 72 65 73 20 66 69 6c | 65 20 72 65 66 65 72 65 | res fil|e refere|
|00004510| 6e 63 65 0d 09 63 6d 70 | 2e 77 09 54 68 65 69 72 |nce..cmp|.w.Their|
|00004520| 4d 61 70 28 61 35 29 2c | 64 30 09 09 3b 20 72 69 |Map(a5),|d0..; ri|
|00004530| 67 68 74 20 66 69 6c 65 | 3f 0d 09 62 65 71 09 40 |ght file|?..beq.@|
|00004540| 30 09 09 09 3b 20 62 72 | 61 6e 63 68 20 69 66 20 |0...; br|anch if |
|00004550| 73 6f 2c 20 69 74 27 73 | 20 67 6f 6f 64 0d 0d 40 |so, it's| good..@|
|00004560| 32 09 6d 6f 76 65 2e 62 | 09 23 34 2c 54 79 70 65 |2.move.b|.#4,Type|
|00004570| 53 74 72 28 61 36 29 09 | 09 3b 20 73 65 74 20 72 |Str(a6).|.; set r|
|00004580| 65 73 6f 75 72 63 65 20 | 74 79 70 65 20 73 74 72 |esource |type str|
|00004590| 69 6e 67 0d 09 6c 65 61 | 09 54 79 70 65 53 74 72 |ing..lea|.TypeStr|
|000045a0| 28 61 36 29 2c 61 30 0d | 09 6d 6f 76 65 2e 6c 09 |(a6),a0.|.move.l.|
|000045b0| 61 30 2c 50 61 72 61 6d | 4f 6e 65 28 61 35 29 0d |a0,Param|One(a5).|
|000045c0| 09 53 65 74 50 61 72 61 | 6d 54 65 78 74 0d 0d 09 |.SetPara|mText...|
|000045d0| 6d 6f 76 65 2e 77 09 53 | 69 67 49 44 28 61 36 29 |move.w.S|igID(a6)|
|000045e0| 2c 64 30 09 09 3b 20 64 | 30 20 3d 20 73 69 67 6e |,d0..; d|0 = sign|
|000045f0| 61 74 75 72 65 27 73 20 | 72 65 73 20 49 44 0d 09 |ature's |res ID..|
|00004600| 65 78 74 2e 6c 09 64 30 | 0d 09 6c 65 61 09 49 44 |ext.l.d0|..lea.ID|
|00004610| 53 74 72 69 6e 67 28 61 | 36 29 2c 61 30 0d 09 6d |String(a|6),a0..m|
|00004620| 6f 76 65 2e 6c 09 61 30 | 2c 50 61 72 61 6d 54 77 |ove.l.a0|,ParamTw|
|00004630| 6f 28 61 35 29 0d 09 5f | 4e 75 6d 54 6f 53 74 72 |o(a5).._|NumToStr|
|00004640| 69 6e 67 0d 09 53 65 74 | 50 61 72 61 6d 54 65 78 |ing..Set|ParamTex|
|00004650| 74 0d 0d 09 55 73 65 55 | 73 0d 09 44 6f 41 6c 65 |t...UseU|s..DoAle|
|00004660| 72 74 09 4e 6f 53 69 67 | 52 65 73 6f 75 72 63 65 |rt.NoSig|Resource|
|00004670| 0d 09 55 73 65 54 68 65 | 6d 0d 0d 40 30 09 63 6c |..UseThe|m..@0.cl|
|00004680| 72 2e 6c 09 50 61 72 61 | 6d 4f 6e 65 28 61 35 29 |r.l.Para|mOne(a5)|
|00004690| 0d 09 63 6c 72 2e 6c 09 | 50 61 72 61 6d 54 77 6f |..clr.l.|ParamTwo|
|000046a0| 28 61 35 29 0d 09 75 6e | 6c 6b 09 61 36 0d 09 72 |(a5)..un|lk.a6..r|
|000046b0| 74 73 0d 09 44 4e 61 6d | 65 09 54 45 53 54 53 49 |ts..DNam|e.TESTSI|
|000046c0| 47 4e 41 54 55 52 45 0d | 0d 3b 09 54 65 73 74 4f |GNATURE.|.;.TestO|
|000046d0| 6e 65 52 65 73 6f 75 72 | 63 65 3a 20 44 6f 20 61 |neResour|ce: Do a|
|000046e0| 20 73 61 6e 69 74 79 20 | 63 68 65 63 6b 20 6f 6e | sanity |check on|
|000046f0| 20 6f 6e 65 20 72 65 73 | 6f 75 72 63 65 2e 0d 3b | one res|ource..;|
|00004700| 09 09 46 6f 72 20 61 6c | 6c 20 6b 69 6e 64 73 2c |..For al|l kinds,|
|00004710| 20 62 65 20 73 75 72 65 | 20 69 74 20 65 78 69 73 | be sure| it exis|
|00004720| 74 73 2e 0d 3b 09 09 46 | 6f 72 20 49 43 4e 23 20 |ts..;..F|or ICN# |
|00004730| 61 6e 64 20 46 52 45 46 | 2c 20 64 6f 20 73 6f 6d |and FREF|, do som|
|00004740| 65 20 6f 74 68 65 72 20 | 73 74 75 66 66 0d 3b 09 |e other |stuff.;.|
|00004750| 44 30 20 3d 20 72 65 73 | 6f 75 72 63 65 20 74 79 |D0 = res|ource ty|
|00004760| 70 65 0d 3b 09 44 31 2e | 57 20 3d 20 72 65 73 6f |pe.;.D1.|W = reso|
|00004770| 75 72 63 65 20 49 44 0d | 0d 4f 6c 64 41 36 09 09 |urce ID.|.OldA6..|
|00004780| 73 65 74 09 30 0d 52 65 | 74 75 72 6e 41 64 64 72 |set.0.Re|turnAddr|
|00004790| 09 73 65 74 09 4f 6c 64 | 41 36 2b 34 0d 0d 52 65 |.set.Old|A6+4..Re|
|000047a0| 73 48 61 6e 64 6c 65 09 | 73 65 74 09 4f 6c 64 41 |sHandle.|set.OldA|
|000047b0| 36 2d 34 09 09 3b 20 68 | 61 6e 64 6c 65 20 74 6f |6-4..; h|andle to|
|000047c0| 20 63 75 72 72 65 6e 74 | 20 72 65 73 6f 75 72 63 | current| resourc|
|000047d0| 65 0d 52 65 73 54 79 70 | 65 09 09 73 65 74 09 52 |e.ResTyp|e..set.R|
|000047e0| 65 73 48 61 6e 64 6c 65 | 2d 34 09 3b 20 72 65 73 |esHandle|-4.; res|
|000047f0| 6f 75 72 63 65 20 74 79 | 70 65 0d 52 65 73 54 79 |ource ty|pe.ResTy|
|00004800| 70 65 53 74 72 09 73 65 | 74 09 52 65 73 54 79 70 |peStr.se|t.ResTyp|
|00004810| 65 2d 31 09 3b 20 66 6f | 72 20 75 73 69 6e 67 20 |e-1.; fo|r using |
|00004820| 61 62 6f 76 65 20 61 73 | 20 73 74 72 69 6e 67 0d |above as| string.|
|00004830| 46 69 6c 6c 65 72 4f 6e | 65 09 73 65 74 09 52 65 |FillerOn|e.set.Re|
|00004840| 73 54 79 70 65 53 74 72 | 2d 31 09 3b 20 72 65 73 |sTypeStr|-1.; res|
|00004850| 74 6f 72 65 20 61 6c 69 | 67 6e 6d 65 6e 74 0d 52 |tore ali|gnment.R|
|00004860| 65 73 49 44 09 09 73 65 | 74 09 46 69 6c 6c 65 72 |esID..se|t.Filler|
|00004870| 4f 6e 65 2d 32 09 3b 20 | 72 65 73 6f 75 72 63 65 |One-2.; |resource|
|00004880| 20 49 44 0d 52 65 73 49 | 44 53 74 72 09 73 65 74 | ID.ResI|DStr.set|
|00004890| 09 52 65 73 49 44 2d 33 | 32 09 3b 20 53 74 72 33 |.ResID-3|2.; Str3|
|000048a0| 31 20 66 6f 72 20 72 65 | 73 6f 75 72 63 65 20 49 |1 for re|source I|
|000048b0| 44 0d 52 65 73 53 69 7a | 65 09 09 73 65 74 09 52 |D.ResSiz|e..set.R|
|000048c0| 65 73 49 44 53 74 72 2d | 34 09 3b 20 73 69 7a 65 |esIDStr-|4.; size|
|000048d0| 20 6f 66 20 72 65 73 6f | 75 72 63 65 0d 53 69 7a | of reso|urce.Siz|
|000048e0| 65 53 74 72 69 6e 67 09 | 73 65 74 09 52 65 73 53 |eString.|set.ResS|
|000048f0| 69 7a 65 2d 33 32 09 3b | 20 53 74 72 33 31 20 66 |ize-32.;| Str31 f|
|00004900| 6f 72 20 72 65 73 6f 75 | 72 63 65 20 73 69 7a 65 |or resou|rce size|
|00004910| 0d 4c 61 73 74 4c 6f 63 | 61 6c 09 73 65 74 09 53 |.LastLoc|al.set.S|
|00004920| 69 7a 65 53 74 72 69 6e | 67 0d 0d 54 65 73 74 4f |izeStrin|g..TestO|
|00004930| 6e 65 52 65 73 6f 75 72 | 63 65 0d 09 6c 69 6e 6b |neResour|ce..link|
|00004940| 09 61 36 2c 23 4c 61 73 | 74 4c 6f 63 61 6c 0d 09 |.a6,#Las|tLocal..|
|00004950| 6d 6f 76 65 6d 2e 6c 09 | 64 32 2d 64 35 2f 61 32 |movem.l.|d2-d5/a2|
|00004960| 2d 61 34 2c 2d 28 73 70 | 29 09 3b 20 73 61 76 65 |-a4,-(sp|).; save|
|00004970| 20 73 6f 6d 65 20 72 65 | 67 69 73 74 65 72 73 0d | some re|gisters.|
|00004980| 0d 09 6d 6f 76 65 2e 6c | 09 64 30 2c 52 65 73 54 |..move.l|.d0,ResT|
|00004990| 79 70 65 28 61 36 29 0d | 09 6d 6f 76 65 2e 77 09 |ype(a6).|.move.w.|
|000049a0| 64 31 2c 52 65 73 49 44 | 28 61 36 29 0d 0d 09 6d |d1,ResID|(a6)...m|
|000049b0| 6f 76 65 2e 62 09 23 34 | 2c 52 65 73 54 79 70 65 |ove.b.#4|,ResType|
|000049c0| 53 74 72 28 61 36 29 09 | 3b 20 62 75 69 6c 64 20 |Str(a6).|; build |
|000049d0| 74 79 70 65 20 73 74 72 | 69 6e 67 0d 09 6c 65 61 |type str|ing..lea|
|000049e0| 09 52 65 73 54 79 70 65 | 53 74 72 28 61 36 29 2c |.ResType|Str(a6),|
|000049f0| 61 30 0d 09 6d 6f 76 65 | 2e 6c 09 61 30 2c 50 61 |a0..move|.l.a0,Pa|
|00004a00| 72 61 6d 4f 6e 65 28 61 | 35 29 09 09 3b 20 73 65 |ramOne(a|5)..; se|
|00004a10| 74 20 69 6e 64 69 72 65 | 63 74 20 70 6f 69 6e 74 |t indire|ct point|
|00004a20| 65 72 0d 0d 09 6d 6f 76 | 65 2e 77 09 52 65 73 49 |er...mov|e.w.ResI|
|00004a30| 44 28 61 36 29 2c 64 30 | 09 09 3b 20 72 65 73 6f |D(a6),d0|..; reso|
|00004a40| 75 72 63 65 20 49 44 0d | 09 6c 65 61 09 52 65 73 |urce ID.|.lea.Res|
|00004a50| 49 44 53 74 72 28 61 36 | 29 2c 61 30 09 09 3b 20 |IDStr(a6|),a0..; |
|00004a60| 49 44 20 73 74 72 69 6e | 67 0d 09 6d 6f 76 65 2e |ID strin|g..move.|
|00004a70| 6c 09 61 30 2c 50 61 72 | 61 6d 54 77 6f 28 61 35 |l.a0,Par|amTwo(a5|
|00004a80| 29 0d 09 65 78 74 2e 6c | 09 64 30 0d 09 5f 4e 75 |)..ext.l|.d0.._Nu|
|00004a90| 6d 54 6f 53 74 72 69 6e | 67 0d 09 53 65 74 50 61 |mToStrin|g..SetPa|
|00004aa0| 72 61 6d 54 65 78 74 0d | 0d 09 63 6c 72 2e 6c 09 |ramText.|..clr.l.|
|00004ab0| 2d 28 73 70 29 0d 09 6d | 6f 76 65 2e 6c 09 52 65 |-(sp)..m|ove.l.Re|
|00004ac0| 73 54 79 70 65 28 61 36 | 29 2c 2d 28 73 70 29 09 |sType(a6|),-(sp).|
|00004ad0| 3b 20 72 65 73 6f 75 72 | 63 65 20 74 79 70 65 0d |; resour|ce type.|
|00004ae0| 09 6d 6f 76 65 2e 77 09 | 52 65 73 49 44 28 61 36 |.move.w.|ResID(a6|
|00004af0| 29 2c 2d 28 73 70 29 09 | 09 3b 20 72 65 73 6f 75 |),-(sp).|.; resou|
|00004b00| 72 63 65 20 49 44 0d 09 | 5f 47 65 74 52 65 73 6f |rce ID..|_GetReso|
|00004b10| 75 72 63 65 09 09 09 3b | 20 46 65 74 63 68 21 0d |urce...;| Fetch!.|
|00004b20| 09 6d 6f 76 65 2e 6c 09 | 28 73 70 29 2b 2c 52 65 |.move.l.|(sp)+,Re|
|00004b30| 73 48 61 6e 64 6c 65 28 | 61 36 29 09 3b 20 73 61 |sHandle(|a6).; sa|
|00004b40| 76 65 20 74 68 65 20 68 | 61 6e 64 6c 65 0d 09 74 |ve the h|andle..t|
|00004b50| 73 74 2e 6c 09 52 65 73 | 48 61 6e 64 6c 65 28 61 |st.l.Res|Handle(a|
|00004b60| 36 29 09 09 3b 20 4e 49 | 4c 20 68 61 6e 64 6c 65 |6)..; NI|L handle|
|00004b70| 3f 0d 09 62 65 71 09 40 | 34 09 09 09 3b 20 65 72 |?..beq.@|4...; er|
|00004b80| 72 6f 72 20 69 66 20 73 | 6f 2c 20 72 65 73 6f 75 |ror if s|o, resou|
|00004b90| 72 63 65 20 69 73 20 6d | 69 73 73 69 6e 67 0d 09 |rce is m|issing..|
|00004ba0| 74 73 74 2e 77 09 52 65 | 73 45 72 72 09 09 09 3b |tst.w.Re|sErr...;|
|00004bb0| 20 73 6f 6d 65 74 68 69 | 6e 67 20 77 72 6f 6e 67 | somethi|ng wrong|
|00004bc0| 3f 0d 09 62 6e 65 09 40 | 34 09 09 09 3b 20 73 6b |?..bne.@|4...; sk|
|00004bd0| 69 70 20 69 66 20 73 6f | 0d 09 63 6c 72 2e 77 09 |ip if so|..clr.w.|
|00004be0| 2d 28 73 70 29 09 09 09 | 3b 20 65 6c 73 65 20 63 |-(sp)...|; else c|
|00004bf0| 68 65 63 6b 20 68 6f 6d | 65 20 72 65 73 6f 75 72 |heck hom|e resour|
|00004c00| 63 65 20 66 69 6c 65 0d | 09 6d 6f 76 65 2e 6c 09 |ce file.|.move.l.|
|00004c10| 52 65 73 48 61 6e 64 6c | 65 28 61 36 29 2c 2d 28 |ResHandl|e(a6),-(|
|00004c20| 73 70 29 0d 09 5f 48 6f | 6d 65 52 65 73 46 69 6c |sp).._Ho|meResFil|
|00004c30| 65 0d 09 6d 6f 76 65 2e | 77 09 28 73 70 29 2b 2c |e..move.|w.(sp)+,|
|00004c40| 64 30 09 09 3b 20 70 6f | 70 20 72 65 73 20 66 69 |d0..; po|p res fi|
|00004c50| 6c 65 20 72 65 66 0d 09 | 63 6d 70 2e 77 09 54 68 |le ref..|cmp.w.Th|
|00004c60| 65 69 72 4d 61 70 28 61 | 35 29 2c 64 30 09 09 3b |eirMap(a|5),d0..;|
|00004c70| 20 72 69 67 68 74 20 66 | 69 6c 65 3f 0d 09 62 65 | right f|ile?..be|
|00004c80| 71 09 40 30 09 09 09 3b | 20 62 72 61 6e 63 68 20 |q.@0...;| branch |
|00004c90| 69 66 20 73 6f 2c 20 77 | 65 27 6c 6c 20 74 61 6b |if so, w|e'll tak|
|00004ca0| 65 20 69 74 0d 0d 40 34 | 09 55 73 65 55 73 0d 09 |e it..@4|.UseUs..|
|00004cb0| 44 6f 41 6c 65 72 74 09 | 4d 69 73 73 69 6e 67 52 |DoAlert.|MissingR|
|00004cc0| 65 73 6f 75 72 63 65 0d | 09 55 73 65 54 68 65 6d |esource.|.UseThem|
|00004cd0| 0d 09 62 72 61 09 40 39 | 0d 40 30 09 63 6c 72 2e |..bra.@9|.@0.clr.|
|00004ce0| 6c 09 2d 28 73 70 29 0d | 09 6d 6f 76 65 2e 6c 09 |l.-(sp).|.move.l.|
|00004cf0| 52 65 73 48 61 6e 64 6c | 65 28 61 36 29 2c 2d 28 |ResHandl|e(a6),-(|
|00004d00| 73 70 29 0d 09 5f 53 69 | 7a 65 52 73 72 63 09 09 |sp).._Si|zeRsrc..|
|00004d10| 09 3b 20 48 6f 77 20 62 | 69 67 20 69 73 20 74 68 |.; How b|ig is th|
|00004d20| 69 73 20 73 75 63 6b 65 | 72 3f 0d 09 6d 6f 76 65 |is sucke|r?..move|
|00004d30| 2e 6c 09 28 73 70 29 2b | 2c 52 65 73 53 69 7a 65 |.l.(sp)+|,ResSize|
|00004d40| 28 61 36 29 09 3b 20 73 | 61 76 65 20 66 6f 72 20 |(a6).; s|ave for |
|00004d50| 6c 61 74 65 72 20 74 65 | 73 74 69 6e 67 0d 0d 09 |later te|sting...|
|00004d60| 6d 6f 76 65 2e 6c 09 52 | 65 73 53 69 7a 65 28 61 |move.l.R|esSize(a|
|00004d70| 36 29 2c 64 30 09 09 3b | 20 73 65 74 20 75 70 20 |6),d0..;| set up |
|00004d80| 6c 65 6e 67 74 68 20 73 | 74 72 69 6e 67 0d 09 6c |length s|tring..l|
|00004d90| 65 61 09 53 69 7a 65 53 | 74 72 69 6e 67 28 61 36 |ea.SizeS|tring(a6|
|00004da0| 29 2c 61 30 0d 09 6d 6f | 76 65 2e 6c 09 61 30 2c |),a0..mo|ve.l.a0,|
|00004db0| 50 61 72 61 6d 54 68 72 | 65 65 28 61 35 29 0d 09 |ParamThr|ee(a5)..|
|00004dc0| 5f 4e 75 6d 54 6f 53 74 | 72 69 6e 67 0d 09 53 65 |_NumToSt|ring..Se|
|00004dd0| 74 50 61 72 61 6d 54 65 | 78 74 0d 0d 09 6d 6f 76 |tParamTe|xt...mov|
|00004de0| 65 2e 6c 09 52 65 73 54 | 79 70 65 28 61 36 29 2c |e.l.ResT|ype(a6),|
|00004df0| 64 30 09 09 3b 20 64 30 | 20 3d 20 72 65 73 6f 75 |d0..; d0| = resou|
|00004e00| 72 63 65 20 74 79 70 65 | 0d 09 63 6d 70 69 2e 6c |rce type|..cmpi.l|
|00004e10| 09 23 27 49 43 4e 23 27 | 2c 64 30 09 09 3b 20 49 |.#'ICN#'|,d0..; I|
|00004e20| 63 6f 6e 20 6c 69 73 74 | 3f 0d 09 62 6e 65 09 40 |con list|?..bne.@|
|00004e30| 32 09 09 09 3b 20 73 6b | 69 70 20 69 66 20 6e 6f |2...; sk|ip if no|
|00004e40| 74 0d 09 0d 09 6d 6f 76 | 65 2e 6c 09 52 65 73 53 |t....mov|e.l.ResS|
|00004e50| 69 7a 65 28 61 36 29 2c | 64 30 09 09 3b 20 63 68 |ize(a6),|d0..; ch|
|00004e60| 65 63 6b 20 72 65 73 6f | 75 72 63 65 20 73 69 7a |eck reso|urce siz|
|00004e70| 65 0d 09 63 6d 70 2e 6c | 09 23 32 35 36 2c 64 30 |e..cmp.l|.#256,d0|
|00004e80| 09 09 09 3b 20 6d 75 73 | 74 20 62 65 20 32 35 36 |...; mus|t be 256|
|00004e90| 20 62 79 74 65 73 0d 09 | 62 65 71 09 40 35 09 09 | bytes..|beq.@5..|
|00004ea0| 09 3b 20 73 6b 69 70 20 | 69 66 20 73 6f 2c 20 69 |.; skip |if so, i|
|00004eb0| 74 27 73 20 67 6f 6f 64 | 0d 09 55 73 65 55 73 0d |t's good|..UseUs.|
|00004ec0| 09 44 6f 41 6c 65 72 74 | 09 46 75 6e 6e 79 49 63 |.DoAlert|.FunnyIc|
|00004ed0| 6f 6e 0d 09 55 73 65 54 | 68 65 6d 0d 0d 40 35 09 |on..UseT|hem..@5.|
|00004ee0| 6d 6f 76 65 2e 6c 09 52 | 65 73 48 61 6e 64 6c 65 |move.l.R|esHandle|
|00004ef0| 28 61 36 29 2c 61 30 09 | 3b 20 61 30 20 3d 20 49 |(a6),a0.|; a0 = I|
|00004f00| 43 4e 23 20 68 61 6e 64 | 6c 65 0d 09 6d 6f 76 65 |CN# hand|le..move|
|00004f10| 2e 6c 09 28 61 30 29 2c | 61 30 09 09 09 3b 20 61 |.l.(a0),|a0...; a|
|00004f20| 30 20 3d 20 49 43 4e 23 | 20 70 6f 69 6e 74 65 72 |0 = ICN#| pointer|
|00004f30| 0d 09 63 6c 72 2e 6c 09 | 64 30 09 09 09 3b 20 61 |..clr.l.|d0...; a|
|00004f40| 63 63 75 6d 75 6c 61 74 | 65 64 20 4f 52 20 6f 66 |ccumulat|ed OR of|
|00004f50| 20 49 43 4e 23 20 69 6d | 61 67 65 0d 09 6d 6f 76 | ICN# im|age..mov|
|00004f60| 65 2e 6c 09 23 33 31 2c | 64 31 09 09 09 3b 20 64 |e.l.#31,|d1...; d|
|00004f70| 31 20 3d 20 6c 6f 6e 67 | 20 77 6f 72 64 73 20 69 |1 = long| words i|
|00004f80| 6e 20 49 43 4e 23 20 69 | 6d 61 67 65 0d 40 36 09 |n ICN# i|mage.@6.|
|00004f90| 6f 72 2e 6c 09 28 61 30 | 29 2b 2c 64 30 09 09 3b |or.l.(a0|)+,d0..;|
|00004fa0| 20 61 64 64 20 75 70 20 | 74 68 65 20 49 43 4e 23 | add up |the ICN#|
|00004fb0| 20 69 6d 61 67 65 0d 09 | 64 62 72 61 09 64 31 2c | image..|dbra.d1,|
|00004fc0| 40 36 09 09 09 3b 20 6c | 6f 6f 70 20 74 68 72 6f |@6...; l|oop thro|
|00004fd0| 75 67 68 20 74 68 65 6d | 20 61 6c 6c 0d 09 74 73 |ugh them| all..ts|
|00004fe0| 74 2e 6c 09 64 30 09 09 | 09 3b 20 69 73 20 74 68 |t.l.d0..|.; is th|
|00004ff0| 65 72 65 20 73 6f 6d 65 | 20 69 6d 61 67 65 3f 0d |ere some| image?.|
|00005000| 09 62 6e 65 09 40 37 09 | 09 09 3b 20 6a 75 6d 70 |.bne.@7.|..; jump|
|00005010| 20 69 66 20 73 6f 2c 20 | 74 68 61 74 27 73 20 67 | if so, |that's g|
|00005020| 6f 6f 64 0d 09 55 73 65 | 55 73 0d 09 44 6f 41 6c |ood..Use|Us..DoAl|
|00005030| 65 72 74 09 42 6c 61 6e | 6b 49 6d 61 67 65 0d 09 |ert.Blan|kImage..|
|00005040| 55 73 65 54 68 65 6d 0d | 40 37 09 6d 6f 76 65 2e |UseThem.|@7.move.|
|00005050| 6c 09 52 65 73 48 61 6e | 64 6c 65 28 61 36 29 2c |l.ResHan|dle(a6),|
|00005060| 61 30 09 3b 20 61 30 20 | 3d 20 49 43 4e 23 20 68 |a0.; a0 |= ICN# h|
|00005070| 61 6e 64 6c 65 0d 09 6d | 6f 76 65 2e 6c 09 28 61 |andle..m|ove.l.(a|
|00005080| 30 29 2c 61 30 09 09 09 | 3b 20 61 30 20 3d 20 49 |0),a0...|; a0 = I|
|00005090| 43 4e 23 20 70 6f 69 6e | 74 65 72 0d 09 6c 65 61 |CN# poin|ter..lea|
|000050a0| 09 31 32 38 28 61 30 29 | 2c 61 30 09 09 3b 20 61 |.128(a0)|,a0..; a|
|000050b0| 30 20 3d 20 49 43 4e 23 | 20 6d 61 73 6b 20 70 6f |0 = ICN#| mask po|
|000050c0| 69 6e 74 65 72 0d 09 63 | 6c 72 2e 6c 09 64 30 09 |inter..c|lr.l.d0.|
|000050d0| 09 09 3b 20 61 63 63 75 | 6d 75 6c 61 74 65 64 20 |..; accu|mulated |
|000050e0| 4f 52 20 6f 66 20 49 43 | 4e 23 20 6d 61 73 6b 0d |OR of IC|N# mask.|
|000050f0| 09 6d 6f 76 65 2e 6c 09 | 23 33 31 2c 64 31 09 09 |.move.l.|#31,d1..|
|00005100| 09 3b 20 64 31 20 3d 20 | 6c 6f 6e 67 20 77 6f 72 |.; d1 = |long wor|
|00005110| 64 73 20 69 6e 20 49 43 | 4e 23 20 6d 61 73 6b 0d |ds in IC|N# mask.|
|00005120| 40 38 09 6f 72 2e 6c 09 | 28 61 30 29 2b 2c 64 30 |@8.or.l.|(a0)+,d0|
|00005130| 09 09 3b 20 61 64 64 20 | 75 70 20 74 68 65 20 49 |..; add |up the I|
|00005140| 43 4e 23 20 6d 61 73 6b | 0d 09 64 62 72 61 09 64 |CN# mask|..dbra.d|
|00005150| 31 2c 40 38 09 09 09 3b | 20 6c 6f 6f 70 20 74 68 |1,@8...;| loop th|
|00005160| 72 6f 75 67 68 20 74 68 | 65 6d 20 61 6c 6c 0d 09 |rough th|em all..|
|00005170| 74 73 74 2e 6c 09 64 30 | 09 09 09 3b 20 69 73 20 |tst.l.d0|...; is |
|00005180| 74 68 65 72 65 20 73 6f | 6d 65 20 6d 61 73 6b 3f |there so|me mask?|
|00005190| 0d 09 62 6e 65 09 40 39 | 09 09 09 3b 20 6a 75 6d |..bne.@9|...; jum|
|000051a0| 70 20 69 66 20 73 6f 2c | 20 74 68 61 74 27 73 20 |p if so,| that's |
|000051b0| 67 6f 6f 64 0d 09 55 73 | 65 55 73 0d 09 44 6f 41 |good..Us|eUs..DoA|
|000051c0| 6c 65 72 74 09 42 6c 61 | 6e 6b 4d 61 73 6b 0d 09 |lert.Bla|nkMask..|
|000051d0| 55 73 65 54 68 65 6d 0d | 09 62 72 61 09 40 39 0d |UseThem.|.bra.@9.|
|000051e0| 09 0d 40 32 09 63 6d 70 | 69 2e 6c 09 23 27 46 52 |..@2.cmp|i.l.#'FR|
|000051f0| 45 46 27 2c 64 30 09 09 | 3b 20 46 52 45 46 3f 0d |EF',d0..|; FREF?.|
|00005200| 09 62 6e 65 09 40 39 09 | 09 09 3b 20 65 78 69 74 |.bne.@9.|..; exit|
|00005210| 20 69 66 20 6e 6f 74 2c | 20 77 65 20 64 6f 6e 27 | if not,| we don'|
|00005220| 74 20 63 61 72 65 0d 09 | 6d 6f 76 65 2e 6c 09 52 |t care..|move.l.R|
|00005230| 65 73 53 69 7a 65 28 61 | 36 29 2c 64 30 09 09 3b |esSize(a|6),d0..;|
|00005240| 20 63 68 65 63 6b 20 72 | 65 73 6f 75 72 63 65 20 | check r|esource |
|00005250| 73 69 7a 65 0d 09 63 6d | 70 69 2e 6c 09 23 36 2c |size..cm|pi.l.#6,|
|00005260| 64 30 09 09 09 3b 20 72 | 65 61 73 6f 6e 61 62 6c |d0...; r|easonabl|
|00005270| 65 20 73 69 7a 65 3f 0d | 09 62 63 63 09 40 33 09 |e size?.|.bcc.@3.|
|00005280| 09 09 3b 20 62 72 61 6e | 63 68 20 69 66 20 6d 69 |..; bran|ch if mi|
|00005290| 6e 69 6d 75 6d 20 6f 72 | 20 6d 6f 72 65 0d 09 55 |nimum or| more..U|
|000052a0| 73 65 55 73 0d 09 44 6f | 41 6c 65 72 74 09 53 6d |seUs..Do|Alert.Sm|
|000052b0| 61 6c 6c 46 52 45 46 09 | 09 3b 20 74 68 65 20 46 |allFREF.|.; the F|
|000052c0| 52 45 46 20 69 73 20 74 | 6f 6f 20 73 6d 61 6c 6c |REF is t|oo small|
|000052d0| 0d 09 55 73 65 54 68 65 | 6d 0d 09 62 72 61 09 40 |..UseThe|m..bra.@|
|000052e0| 39 0d 40 33 09 63 6d 70 | 69 2e 6c 09 23 32 36 33 |9.@3.cmp|i.l.#263|
|000052f0| 2c 64 30 09 09 09 3b 20 | 6e 6f 74 20 74 6f 6f 20 |,d0...; |not too |
|00005300| 62 69 67 3f 0d 09 62 63 | 73 09 40 39 09 09 09 3b |big?..bc|s.@9...;|
|00005310| 20 62 72 61 6e 63 68 20 | 69 66 20 69 6e 20 62 6f | branch |if in bo|
|00005320| 75 6e 64 73 0d 09 55 73 | 65 55 73 0d 09 44 6f 41 |unds..Us|eUs..DoA|
|00005330| 6c 65 72 74 09 42 69 67 | 46 52 45 46 0d 09 55 73 |lert.Big|FREF..Us|
|00005340| 65 54 68 65 6d 0d 0d 40 | 39 09 63 6c 72 2e 6c 09 |eThem..@|9.clr.l.|
|00005350| 50 61 72 61 6d 4f 6e 65 | 28 61 35 29 0d 09 63 6c |ParamOne|(a5)..cl|
|00005360| 72 2e 6c 09 50 61 72 61 | 6d 54 77 6f 28 61 35 29 |r.l.Para|mTwo(a5)|
|00005370| 0d 09 63 6c 72 2e 6c 09 | 50 61 72 61 6d 54 68 72 |..clr.l.|ParamThr|
|00005380| 65 65 28 61 35 29 0d 09 | 6d 6f 76 65 6d 2e 6c 09 |ee(a5)..|movem.l.|
|00005390| 28 73 70 29 2b 2c 64 32 | 2d 64 35 2f 61 32 2d 61 |(sp)+,d2|-d5/a2-a|
|000053a0| 34 09 3b 20 72 65 73 74 | 6f 72 65 20 73 6f 6d 65 |4.; rest|ore some|
|000053b0| 20 72 65 67 69 73 74 65 | 72 73 0d 09 75 6e 6c 6b | registe|rs..unlk|
|000053c0| 09 61 36 0d 09 72 74 73 | 0d 09 44 4e 61 6d 65 09 |.a6..rts|..DName.|
|000053d0| 54 45 53 54 4f 4e 45 52 | 45 53 4f 55 52 43 45 0d |TESTONER|ESOURCE.|
|000053e0| 0d 3b 09 54 65 73 74 4c | 6f 63 61 6c 49 44 73 3a |.;.TestL|ocalIDs:|
|000053f0| 20 53 65 65 20 69 66 20 | 74 68 65 20 6c 6f 63 61 | See if |the loca|
|00005400| 6c 20 49 44 73 20 72 65 | 66 65 72 72 65 64 20 74 |l IDs re|ferred t|
|00005410| 6f 20 62 79 20 74 68 65 | 20 46 52 45 46 73 20 61 |o by the| FREFs a|
|00005420| 72 65 0d 3b 09 09 09 72 | 65 73 6f 6c 76 65 64 20 |re.;...r|esolved |
|00005430| 69 6e 20 74 68 65 20 49 | 43 4e 23 20 6c 69 73 74 |in the I|CN# list|
|00005440| 2e 0d 3b 09 61 30 20 3d | 20 70 74 72 20 74 6f 20 |..;.a0 =| ptr to |
|00005450| 49 43 4e 23 20 6c 69 73 | 74 20 66 72 6f 6d 20 62 |ICN# lis|t from b|
|00005460| 75 6e 64 6c 65 0d 3b 09 | 61 31 20 3d 20 70 74 72 |undle.;.|a1 = ptr|
|00005470| 20 74 6f 20 46 52 45 46 | 20 6c 69 73 74 20 66 72 | to FREF| list fr|
|00005480| 6f 6d 20 62 75 6e 64 6c | 65 0d 0d 46 52 45 46 49 |om bundl|e..FREFI|
|00005490| 44 53 74 72 09 73 65 74 | 09 2d 33 32 09 09 3b 20 |DStr.set|.-32..; |
|000054a0| 53 74 72 33 31 20 66 6f | 72 20 46 52 45 46 20 49 |Str31 fo|r FREF I|
|000054b0| 44 20 23 0d 4c 6f 63 61 | 6c 49 44 53 74 72 09 73 |D #.Loca|lIDStr.s|
|000054c0| 65 74 09 46 52 45 46 49 | 44 53 74 72 2d 33 32 09 |et.FREFI|DStr-32.|
|000054d0| 3b 20 53 74 72 33 31 20 | 66 6f 72 20 6c 6f 63 61 |; Str31 |for loca|
|000054e0| 6c 20 49 44 20 23 0d 46 | 52 45 46 48 61 6e 64 6c |l ID #.F|REFHandl|
|000054f0| 65 09 73 65 74 09 4c 6f | 63 61 6c 49 44 53 74 72 |e.set.Lo|calIDStr|
|00005500| 2d 34 09 3b 20 68 61 6e | 64 6c 65 20 6f 66 20 63 |-4.; han|dle of c|
|00005510| 75 72 72 65 6e 74 20 46 | 52 45 46 0d 4c 61 73 74 |urrent F|REF.Last|
|00005520| 4c 6f 63 61 6c 09 73 65 | 74 09 46 52 45 46 48 61 |Local.se|t.FREFHa|
|00005530| 6e 64 6c 65 0d 0d 54 65 | 73 74 4c 6f 63 61 6c 49 |ndle..Te|stLocalI|
|00005540| 44 73 0d 09 6c 69 6e 6b | 09 61 36 2c 23 4c 61 73 |Ds..link|.a6,#Las|
|00005550| 74 4c 6f 63 61 6c 09 09 | 3b 20 73 6f 6d 65 20 6c |tLocal..|; some l|
|00005560| 6f 63 61 6c 20 73 74 6f | 72 61 67 65 0d 09 6d 6f |ocal sto|rage..mo|
|00005570| 76 65 6d 2e 6c 09 61 32 | 2d 61 34 2f 64 32 2d 64 |vem.l.a2|-a4/d2-d|
|00005580| 34 2c 2d 28 73 70 29 09 | 3b 20 73 61 76 65 20 73 |4,-(sp).|; save s|
|00005590| 6f 6d 65 20 72 65 67 73 | 0d 09 0d 09 6d 6f 76 65 |ome regs|....move|
|000055a0| 2e 6c 09 61 30 2c 64 30 | 09 09 09 3b 20 69 73 20 |.l.a0,d0|...; is |
|000055b0| 74 68 65 72 65 20 61 6e | 20 49 43 4e 23 20 6c 69 |there an| ICN# li|
|000055c0| 73 74 3f 0d 09 62 6e 65 | 09 40 30 09 09 09 3b 20 |st?..bne|.@0...; |
|000055d0| 73 6b 69 70 20 69 66 20 | 73 6f 0d 09 55 73 65 55 |skip if |so..UseU|
|000055e0| 73 0d 09 44 6f 41 6c 65 | 72 74 09 4e 6f 49 63 6f |s..DoAle|rt.NoIco|
|000055f0| 6e 73 0d 09 55 73 65 54 | 68 65 6d 0d 09 62 72 61 |ns..UseT|hem..bra|
|00005600| 09 40 39 0d 40 30 09 6d | 6f 76 65 2e 6c 09 61 31 |.@9.@0.m|ove.l.a1|
|00005610| 2c 64 30 09 09 09 3b 20 | 69 73 20 74 68 65 72 65 |,d0...; |is there|
|00005620| 20 61 6e 20 46 52 45 46 | 20 6c 69 73 74 3f 0d 09 | an FREF| list?..|
|00005630| 62 6e 65 09 40 31 09 09 | 09 3b 20 73 6b 69 70 20 |bne.@1..|.; skip |
|00005640| 69 66 20 73 6f 0d 09 55 | 73 65 55 73 0d 09 44 6f |if so..U|seUs..Do|
|00005650| 41 6c 65 72 74 09 4e 6f | 46 52 45 46 73 0d 09 55 |Alert.No|FREFs..U|
|00005660| 73 65 54 68 65 6d 0d 09 | 62 72 61 09 40 39 0d 40 |seThem..|bra.@9.@|
|00005670| 31 09 6d 6f 76 65 2e 6c | 09 61 30 2c 61 34 09 09 |1.move.l|.a0,a4..|
|00005680| 09 3b 20 61 34 20 3d 20 | 49 43 4e 23 20 6c 69 73 |.; a4 = |ICN# lis|
|00005690| 74 20 70 6f 69 6e 74 65 | 72 0d 09 6d 6f 76 65 2e |t pointe|r..move.|
|000056a0| 77 09 34 28 61 31 29 2c | 64 34 09 09 3b 20 64 34 |w.4(a1),|d4..; d4|
|000056b0| 20 3d 20 23 20 46 52 45 | 46 73 20 2d 20 31 0d 09 | = # FRE|Fs - 1..|
|000056c0| 6c 65 61 09 36 28 61 31 | 29 2c 61 33 09 09 3b 20 |lea.6(a1|),a3..; |
|000056d0| 61 33 20 3d 20 66 69 72 | 73 74 20 46 52 45 46 20 |a3 = fir|st FREF |
|000056e0| 69 74 65 6d 0d 40 32 09 | 63 6c 72 2e 6c 09 2d 28 |item.@2.|clr.l.-(|
|000056f0| 73 70 29 0d 09 6d 6f 76 | 65 2e 6c 09 23 27 46 52 |sp)..mov|e.l.#'FR|
|00005700| 45 46 27 2c 2d 28 73 70 | 29 0d 09 6d 6f 76 65 2e |EF',-(sp|)..move.|
|00005710| 77 09 32 28 61 33 29 2c | 2d 28 73 70 29 0d 09 5f |w.2(a3),|-(sp).._|
|00005720| 47 65 74 52 65 73 6f 75 | 72 63 65 09 09 09 3b 20 |GetResou|rce...; |
|00005730| 67 65 74 20 74 68 65 20 | 46 52 45 46 0d 09 6d 6f |get the |FREF..mo|
|00005740| 76 65 2e 6c 09 28 73 70 | 29 2b 2c 64 30 09 09 3b |ve.l.(sp|)+,d0..;|
|00005750| 20 70 6f 70 20 74 68 65 | 20 68 61 6e 64 6c 65 0d | pop the| handle.|
|00005760| 09 62 65 71 09 40 35 09 | 09 09 3b 20 73 6b 69 70 |.beq.@5.|..; skip|
|00005770| 20 69 66 20 4e 49 4c 20 | 68 61 6e 64 6c 65 0d 09 | if NIL |handle..|
|00005780| 74 73 74 2e 77 09 52 65 | 73 45 72 72 0d 09 62 6e |tst.w.Re|sErr..bn|
|00005790| 65 09 40 35 09 09 09 3b | 20 73 6b 69 70 20 69 66 |e.@5...;| skip if|
|000057a0| 20 72 65 73 6f 75 72 63 | 65 20 65 72 72 6f 72 0d | resourc|e error.|
|000057b0| 09 6d 6f 76 65 2e 6c 09 | 64 30 2c 46 52 45 46 48 |.move.l.|d0,FREFH|
|000057c0| 61 6e 64 6c 65 28 61 36 | 29 09 3b 20 73 61 76 65 |andle(a6|).; save|
|000057d0| 20 46 52 45 46 20 68 61 | 6e 64 6c 65 0d 09 63 6c | FREF ha|ndle..cl|
|000057e0| 72 2e 77 09 2d 28 73 70 | 29 09 09 09 3b 20 63 68 |r.w.-(sp|)...; ch|
|000057f0| 65 63 6b 20 68 6f 6d 65 | 20 72 65 73 20 66 69 6c |eck home| res fil|
|00005800| 65 0d 09 6d 6f 76 65 2e | 6c 09 64 30 2c 2d 28 73 |e..move.|l.d0,-(s|
|00005810| 70 29 0d 09 5f 48 6f 6d | 65 52 65 73 46 69 6c 65 |p).._Hom|eResFile|
|00005820| 0d 09 6d 6f 76 65 2e 77 | 09 28 73 70 29 2b 2c 64 |..move.w|.(sp)+,d|
|00005830| 30 09 09 3b 20 70 6f 70 | 20 68 6f 6d 65 20 72 65 |0..; pop| home re|
|00005840| 73 20 66 69 6c 65 0d 09 | 63 6d 70 2e 77 09 54 68 |s file..|cmp.w.Th|
|00005850| 65 69 72 4d 61 70 28 61 | 35 29 2c 64 30 09 09 3b |eirMap(a|5),d0..;|
|00005860| 20 66 72 6f 6d 20 61 20 | 67 6f 6f 64 20 68 6f 6d | from a |good hom|
|00005870| 65 3f 0d 09 62 6e 65 09 | 40 35 09 09 09 3b 20 65 |e?..bne.|@5...; e|
|00005880| 78 69 74 20 69 66 20 6e | 6f 74 0d 0d 09 6d 6f 76 |xit if n|ot...mov|
|00005890| 65 2e 6c 09 46 52 45 46 | 48 61 6e 64 6c 65 28 61 |e.l.FREF|Handle(a|
|000058a0| 36 29 2c 61 30 09 3b 20 | 61 30 20 3d 20 46 52 45 |6),a0.; |a0 = FRE|
|000058b0| 46 20 68 61 6e 64 6c 65 | 0d 09 6d 6f 76 65 2e 6c |F handle|..move.l|
|000058c0| 09 28 61 30 29 2c 61 30 | 09 09 09 3b 20 61 30 20 |.(a0),a0|...; a0 |
|000058d0| 3d 20 46 52 45 46 20 70 | 6f 69 6e 74 65 72 0d 0d |= FREF p|ointer..|
|000058e0| 09 6d 6f 76 65 2e 6c 09 | 28 61 30 29 2c 64 30 09 |.move.l.|(a0),d0.|
|000058f0| 09 09 3b 20 64 30 20 3d | 20 66 69 6c 65 20 74 79 |..; d0 =| file ty|
|00005900| 70 65 20 66 72 6f 6d 20 | 46 52 45 46 0d 09 63 6d |pe from |FREF..cm|
|00005910| 70 2e 6c 09 46 69 6c 65 | 54 79 70 65 28 61 35 29 |p.l.File|Type(a5)|
|00005920| 2c 64 30 09 09 3b 20 6d | 61 74 63 68 20 6f 75 72 |,d0..; m|atch our|
|00005930| 20 66 69 6c 65 20 74 79 | 70 65 3f 0d 09 73 65 71 | file ty|pe?..seq|
|00005940| 09 64 30 0d 09 6f 72 2e | 62 09 64 30 2c 54 79 70 |.d0..or.|b.d0,Typ|
|00005950| 65 4d 61 74 63 68 28 61 | 35 29 09 3b 20 73 65 74 |eMatch(a|5).; set|
|00005960| 20 74 79 70 65 20 6d 61 | 74 63 68 20 66 6c 61 67 | type ma|tch flag|
|00005970| 20 69 66 20 73 6f 0d 0d | 09 6d 6f 76 65 2e 77 09 | if so..|.move.w.|
|00005980| 34 28 61 30 29 2c 64 30 | 09 09 3b 20 64 30 20 3d |4(a0),d0|..; d0 =|
|00005990| 20 6c 6f 63 61 6c 20 49 | 44 20 66 72 6f 6d 20 46 | local I|D from F|
|000059a0| 52 45 46 0d 09 6d 6f 76 | 65 2e 77 09 34 28 61 34 |REF..mov|e.w.4(a4|
|000059b0| 29 2c 64 33 09 09 3b 20 | 64 33 20 3d 20 23 20 49 |),d3..; |d3 = # I|
|000059c0| 43 4e 23 73 20 2d 20 31 | 0d 09 6c 65 61 09 36 28 |CN#s - 1|..lea.6(|
|000059d0| 61 34 29 2c 61 32 09 09 | 3b 20 61 32 20 3d 20 66 |a4),a2..|; a2 = f|
|000059e0| 69 72 73 74 20 49 43 4e | 23 20 69 74 65 6d 0d 40 |irst ICN|# item.@|
|000059f0| 33 09 63 6d 70 2e 77 09 | 28 61 32 29 2c 64 30 09 |3.cmp.w.|(a2),d0.|
|00005a00| 09 09 3b 20 6c 6f 63 61 | 6c 20 49 44 73 20 6d 61 |..; loca|l IDs ma|
|00005a10| 74 63 68 3f 0d 09 62 65 | 71 09 40 35 09 09 09 3b |tch?..be|q.@5...;|
|00005a20| 20 73 6b 69 70 20 69 66 | 20 73 6f 2c 20 74 65 73 | skip if| so, tes|
|00005a30| 74 20 6e 65 78 74 20 46 | 52 45 46 0d 09 6c 65 61 |t next F|REF..lea|
|00005a40| 09 34 28 61 32 29 2c 61 | 32 09 09 3b 20 65 6c 73 |.4(a2),a|2..; els|
|00005a50| 65 20 6d 6f 76 65 20 74 | 6f 20 6e 65 78 74 20 49 |e move t|o next I|
|00005a60| 43 4e 23 20 69 74 65 6d | 0d 09 64 62 72 61 09 64 |CN# item|..dbra.d|
|00005a70| 33 2c 40 33 09 09 09 3b | 20 73 65 61 72 63 68 20 |3,@3...;| search |
|00005a80| 74 68 72 6f 75 67 68 20 | 49 43 4e 23 20 6c 69 73 |through |ICN# lis|
|00005a90| 74 0d 0d 09 3b 20 49 66 | 20 77 65 20 66 61 6c 6c |t...; If| we fall|
|00005aa0| 20 6f 75 74 2c 20 77 65 | 20 68 61 76 65 20 61 6e | out, we| have an|
|00005ab0| 20 75 6e 73 61 74 69 73 | 66 69 65 64 20 6c 6f 63 | unsatis|fied loc|
|00005ac0| 61 6c 20 49 44 20 69 6e | 20 64 30 0d 0d 09 65 78 |al ID in| d0...ex|
|00005ad0| 74 2e 6c 09 64 30 0d 09 | 6c 65 61 09 4c 6f 63 61 |t.l.d0..|lea.Loca|
|00005ae0| 6c 49 44 53 74 72 28 61 | 36 29 2c 61 30 09 3b 20 |lIDStr(a|6),a0.; |
|00005af0| 73 74 72 69 6e 67 20 66 | 6f 72 20 6c 6f 63 61 6c |string f|or local|
|00005b00| 20 72 65 73 6f 75 72 63 | 65 20 49 44 0d 09 6d 6f | resourc|e ID..mo|
|00005b10| 76 65 2e 6c 09 61 30 2c | 50 61 72 61 6d 54 77 6f |ve.l.a0,|ParamTwo|
|00005b20| 28 61 35 29 0d 09 5f 4e | 75 6d 54 6f 53 74 72 69 |(a5).._N|umToStri|
|00005b30| 6e 67 0d 09 6d 6f 76 65 | 2e 77 09 32 28 61 33 29 |ng..move|.w.2(a3)|
|00005b40| 2c 64 30 09 09 3b 20 46 | 52 45 46 20 72 65 73 6f |,d0..; F|REF reso|
|00005b50| 75 72 63 65 20 49 44 0d | 09 65 78 74 2e 6c 09 64 |urce ID.|.ext.l.d|
|00005b60| 30 0d 09 6c 65 61 09 46 | 52 45 46 49 44 53 74 72 |0..lea.F|REFIDStr|
|00005b70| 28 61 36 29 2c 61 30 09 | 3b 20 73 74 72 69 6e 67 |(a6),a0.|; string|
|00005b80| 20 66 6f 72 20 46 52 45 | 46 20 72 65 73 6f 75 72 | for FRE|F resour|
|00005b90| 63 65 20 49 44 0d 09 6d | 6f 76 65 2e 6c 09 61 30 |ce ID..m|ove.l.a0|
|00005ba0| 2c 50 61 72 61 6d 4f 6e | 65 28 61 35 29 0d 09 5f |,ParamOn|e(a5).._|
|00005bb0| 4e 75 6d 54 6f 53 74 72 | 69 6e 67 0d 09 53 65 74 |NumToStr|ing..Set|
|00005bc0| 50 61 72 61 6d 54 65 78 | 74 0d 09 55 73 65 55 73 |ParamTex|t..UseUs|
|00005bd0| 0d 09 44 6f 41 6c 65 72 | 74 09 42 61 64 4c 6f 63 |..DoAler|t.BadLoc|
|00005be0| 61 6c 49 44 0d 09 55 73 | 65 54 68 65 6d 0d 09 63 |alID..Us|eThem..c|
|00005bf0| 6c 72 2e 6c 09 50 61 72 | 61 6d 4f 6e 65 28 61 35 |lr.l.Par|amOne(a5|
|00005c00| 29 0d 09 63 6c 72 2e 6c | 09 50 61 72 61 6d 54 77 |)..clr.l|.ParamTw|
|00005c10| 6f 28 61 35 29 0d 40 35 | 09 6c 65 61 09 34 28 61 |o(a5).@5|.lea.4(a|
|00005c20| 33 29 2c 61 33 09 09 3b | 20 6e 65 78 74 20 46 52 |3),a3..;| next FR|
|00005c30| 45 46 20 69 74 65 6d 20 | 69 6e 20 6c 69 73 74 0d |EF item |in list.|
|00005c40| 09 64 62 72 61 09 64 34 | 2c 40 32 09 09 09 3b 20 |.dbra.d4|,@2...; |
|00005c50| 74 65 73 74 20 65 6e 74 | 69 72 65 20 46 52 45 46 |test ent|ire FREF|
|00005c60| 20 6c 69 73 74 0d 40 39 | 09 6d 6f 76 65 6d 2e 6c | list.@9|.movem.l|
|00005c70| 09 28 73 70 29 2b 2c 61 | 32 2d 61 34 2f 64 32 2d |.(sp)+,a|2-a4/d2-|
|00005c80| 64 34 09 3b 20 72 65 73 | 74 6f 72 65 20 72 65 67 |d4.; res|tore reg|
|00005c90| 69 73 74 65 72 73 0d 09 | 75 6e 6c 6b 09 61 36 0d |isters..|unlk.a6.|
|00005ca0| 09 72 74 73 0d 09 44 4e | 61 6d 65 09 54 45 53 54 |.rts..DN|ame.TEST|
|00005cb0| 4c 4f 43 41 4c 49 44 53 | 0d 0d 00 00 00 00 00 00 |LOCALIDS|........|
|00005cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 c8 |........|........|
|00005d10| 2f 10 a8 84 4e 75 20 3b | 50 04 4e 75 00 10 00 10 |/...Nu ;|P.Nu....|
|00005d20| 00 04 00 04 00 06 00 06 | 00 08 00 08 00 0a 00 0a |........|........|
|00005d30| 0d 44 65 73 6b 43 68 65 | 63 6b 2e 61 73 6d 02 00 |.DeskChe|ck.asm..|
|00005d40| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 14 00 c0 |..TEXTED|IT......|
|00005d50| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 14 00 c0 |..TEXTED|IT......|
|00005d60| 32 7b 51 1e 00 00 00 00 | 00 00 00 00 00 00 00 00 |2{Q.....|........|
|00005d70| 00 00 9c 39 9c 9d 00 00 | 5c 3a 00 00 01 de 30 01 |...9....|\:....0.|
|00005d80| 51 40 60 0c 4a 6e 00 0a | 66 32 30 10 32 00 50 41 |Q@`.Jn..|f20.2.PA|
|00005d90| 43 f8 09 ce 32 c0 32 e8 | 00 02 32 c1 32 a8 00 06 |C...2.2.|..2.2...|
|00005da0| 42 a7 a8 d8 26 57 48 78 | 09 ce a8 df 2f 2e 00 14 |B...&WHx|..../...|
|00005db0| 2f 0b 2f 2e 00 14 a8 e5 | 2f 0b a8 d9 26 5f 4e 5e |/./.....|/...&_N^|
|00005dc0| 20 5f de fc 00 10 4e d0 | 78 10 42 67 2f 03 2f 2b | _....N.|x.Bg/./+|
|00005dd0| 00 76 a8 e8 4a 1f 67 04 | 70 01 60 6c 42 67 2f 03 |.v..J.g.|p.`lBg/.|
|00005de0| 2f 2b 00 72 a8 e8 4a 1f | 67 62 42 67 2f 03 28 6b |/+.r..J.|gbBg/.(k|
|00005df0| 00 76 28 54 54 4c 30 2e | ff fc 91 54 2f 0c a8 ad |.v(TTL0.|...T/...|
|00005e00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00005e10| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00005e20| 00 16 00 00 00 c8 00 02 | d6 58 02 36 00 00 00 1c |........|.X.6....|
|00005e30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00005e40| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 02 ee 40 |........|.......@|
|00005e50| 03 ec 00 41 00 00 00 0e | 00 02 ee 58 40 81 00 00 |...A....|...X@...|
|00005e60| 40 80 2a 14 40 80 20 fa | 40 80 20 fc 40 80 20 fe |@.*.@. .|@. .@. .|
|00005e70| 40 80 21 00 40 80 21 02 | 40 80 21 04 40 80 21 06 |@.!.@.!.|@.!.@.!.|
|00005e80| 40 80 21 08 40 80 64 ba | 40 80 21 0c 40 80 21 0e |@.!.@.d.|@.!.@.!.|
|00005e90| 40 80 21 0e 40 80 88 22 | 88 22 88 22 88 40 81 00 |@.!.@.."|.".".@..|
|00005ea0| 00 40 80 2a 14 40 80 20 | fa 40 80 20 fc 40 80 20 |.@.*.@. |.@. .@. |
|00005eb0| fe 40 80 21 00 40 80 21 | 02 40 80 21 04 40 80 21 |.@.!.@.!|.@.!.@.!|
|00005ec0| 06 40 80 21 08 40 80 64 | ba 40 80 21 0c 40 80 21 |.@.!.@.d|.@.!.@.!|
|00005ed0| 0e 40 80 21 0e 40 80 88 | 22 88 22 88 22 88 00 00 |.@.!.@..|"."."...|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
