/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / MenuHack / MenuHackSource.sit / jGNEEngineCodeResource.a

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 6a 47 4e 45 45 6e | 67 69 6e 65 43 6f 64 65 |..jGNEEn|gineCode|
|00000010| 52 65 73 6f 75 72 63 65 | 2e 61 00 00 00 00 00 00 |Resource|.a......|
|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 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 15 df 00 | 00 01 ee ad b8 31 4a ad |........|.....1J.|
|00000060| b8 31 4a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.1J.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2b 1b 00 00 |........|....+...|
|00000080| 0d 3b 09 24 57 6f 72 6b | 66 69 6c 65 3a 20 20 20 |.;.$Work|file:   |
|00000090| 6a 47 4e 45 45 6e 67 69 | 6e 65 43 6f 64 65 52 65 |jGNEEngi|neCodeRe|
|000000a0| 73 6f 75 72 63 65 2e 61 | 20 20 24 0d 3b 09 24 52 |source.a|  $.;.$R|
|000000b0| 65 76 69 73 69 6f 6e 3a | 20 20 20 31 2e 30 20 20 |evision:|   1.0  |
|000000c0| 24 0d 0d 3b 09 54 68 69 | 73 20 69 6e 73 74 61 6c |$..;.Thi|s instal|
|000000d0| 6c 73 20 61 20 36 38 6b | 20 63 6f 64 65 20 62 6c |ls a 68k| code bl|
|000000e0| 6f 63 6b 2c 20 68 6f 6f | 6b 73 20 69 74 20 69 6e |ock, hoo|ks it in|
|000000f0| 74 6f 20 74 68 65 20 47 | 65 74 4e 65 78 74 45 76 |to the G|etNextEv|
|00000100| 65 6e 74 20 66 69 6c 74 | 65 72 0d 3b 09 72 6f 75 |ent filt|er.;.rou|
|00000110| 74 69 6e 65 73 2c 20 61 | 6e 64 20 73 65 74 73 20 |tines, a|nd sets |
|00000120| 75 70 20 61 20 47 65 73 | 74 61 6c 74 20 6d 65 63 |up a Ges|talt mec|
|00000130| 68 61 6e 69 73 6d 20 74 | 68 61 74 20 63 61 6e 20 |hanism t|hat can |
|00000140| 67 65 74 20 63 61 6c 6c | 65 64 2e 20 20 54 68 69 |get call|ed.  Thi|
|00000150| 73 20 61 6c 6c 6f 77 73 | 0d 3b 09 61 70 70 6c 69 |s allows|.;.appli|
|00000160| 63 61 74 69 6f 6e 73 20 | 74 6f 20 65 6e 74 65 72 |cations |to enter|
|00000170| 20 61 6e 64 20 72 65 6d | 6f 76 65 20 66 69 6c 74 | and rem|ove filt|
|00000180| 65 72 73 20 73 61 66 65 | 6c 79 0d 0d 3b 09 a9 20 |ers safe|ly..;.. |
|00000190| 31 39 39 36 20 43 45 20 | 53 6f 66 74 77 61 72 65 |1996 CE |Software|
|000001a0| 2c 20 49 6e 63 2e 20 20 | 41 6c 6c 20 72 69 67 68 |, Inc.  |All righ|
|000001b0| 74 73 20 72 65 73 65 72 | 76 65 64 2e 0d 0d 3b 09 |ts reser|ved...;.|
|000001c0| 57 48 45 4e 09 57 48 4f | 09 09 57 48 41 54 0d 0d |WHEN.WHO|..WHAT..|
|000001d0| 0d 0d 09 09 09 42 4c 41 | 4e 4b 53 09 09 4f 4e 0d |.....BLA|NKS..ON.|
|000001e0| 09 09 09 53 54 52 49 4e | 47 09 09 41 53 49 53 0d |...STRIN|G..ASIS.|
|000001f0| 09 09 09 50 52 49 4e 54 | 09 4f 46 46 0d 09 09 09 |...PRINT|.OFF....|
|00000200| 09 49 4e 43 4c 55 44 45 | 20 09 27 54 72 61 70 73 |.INCLUDE| .'Traps|
|00000210| 2e 61 27 0d 09 09 09 09 | 49 4e 43 4c 55 44 45 20 |.a'.....|INCLUDE |
|00000220| 09 27 54 6f 6f 6c 45 71 | 75 2e 61 27 0d 09 09 09 |.'ToolEq|u.a'....|
|00000230| 09 49 4e 43 4c 55 44 45 | 20 09 27 51 75 69 63 6b |.INCLUDE| .'Quick|
|00000240| 45 71 75 2e 61 27 0d 09 | 09 09 09 49 4e 43 4c 55 |Equ.a'..|...INCLU|
|00000250| 44 45 20 09 27 53 79 73 | 45 71 75 2e 61 27 0d 09 |DE .'Sys|Equ.a'..|
|00000260| 09 09 09 49 4e 43 4c 55 | 44 45 09 09 27 41 54 61 |...INCLU|DE..'ATa|
|00000270| 6c 6b 45 71 75 2e 61 27 | 0d 09 09 09 09 49 4e 43 |lkEqu.a'|.....INC|
|00000280| 4c 55 44 45 09 09 27 50 | 61 63 6b 4d 61 63 73 2e |LUDE..'P|ackMacs.|
|00000290| 61 27 0d 09 09 09 09 69 | 6e 63 6c 75 64 65 20 09 |a'.....i|nclude .|
|000002a0| 27 53 68 75 74 64 6f 77 | 6e 45 71 75 2e 61 27 0d |'Shutdow|nEqu.a'.|
|000002b0| 09 09 09 09 69 6e 63 6c | 75 64 65 20 09 27 53 63 |....incl|ude .'Sc|
|000002c0| 72 69 70 74 45 71 75 2e | 61 27 0d 09 09 09 09 69 |riptEqu.|a'.....i|
|000002d0| 6e 63 6c 75 64 65 09 09 | 27 53 74 61 6e 64 61 72 |nclude..|'Standar|
|000002e0| 64 46 69 6c 65 2e 61 27 | 0d 09 09 09 09 69 6e 63 |dFile.a'|.....inc|
|000002f0| 6c 75 64 65 09 09 27 50 | 72 6f 63 65 73 73 65 73 |lude..'P|rocesses|
|00000300| 2e 61 27 0d 09 09 09 50 | 52 49 4e 54 09 4f 4e 0d |.a'....P|RINT.ON.|
|00000310| 3b 0d 3b 09 47 65 73 74 | 61 6c 74 20 6f 66 20 74 |;.;.Gest|alt of t|
|00000320| 79 70 65 20 27 6a 47 4e | 45 27 20 77 69 6c 6c 20 |ype 'jGN|E' will |
|00000330| 72 65 74 75 72 6e 20 74 | 68 65 20 70 6f 69 6e 74 |return t|he point|
|00000340| 65 72 20 74 6f 20 61 20 | 72 6f 75 74 69 6e 65 20 |er to a |routine |
|00000350| 74 68 61 74 20 69 6e 73 | 74 61 6c 6c 73 20 6f 72 |that ins|talls or|
|00000360| 0d 3b 09 72 65 6d 6f 76 | 65 73 20 61 6e 20 65 6e |.;.remov|es an en|
|00000370| 74 72 79 20 69 6e 20 74 | 68 65 20 74 61 62 6c 65 |try in t|he table|
|00000380| 2e 0d 3b 0d 3b 09 70 61 | 73 63 61 6c 20 76 6f 69 |..;.;.pa|scal voi|
|00000390| 64 20 52 65 67 69 73 74 | 65 72 4d 65 28 73 68 6f |d Regist|erMe(sho|
|000003a0| 72 74 20 74 68 65 41 63 | 74 69 6f 6e 2c 20 70 72 |rt theAc|tion, pr|
|000003b0| 6f 63 70 74 72 20 74 68 | 65 70 72 6f 63 29 3b 0d |ocptr th|eproc);.|
|000003c0| 3b 09 09 31 2c 20 52 65 | 67 69 73 74 65 72 2e 20 |;..1, Re|gister. |
|000003d0| 20 41 64 64 20 61 6e 20 | 65 6e 74 72 79 20 74 6f | Add an |entry to|
|000003e0| 20 74 68 65 20 74 61 62 | 6c 65 20 77 69 74 68 20 | the tab|le with |
|000003f0| 70 72 6f 63 70 74 72 2c | 20 61 6c 73 6f 20 6b 65 |procptr,| also ke|
|00000400| 65 70 69 6e 67 20 74 68 | 65 20 70 72 6f 63 65 73 |eping th|e proces|
|00000410| 73 73 65 72 69 61 6c 6e | 75 6d 62 65 72 0d 3b 09 |sserialn|umber.;.|
|00000420| 09 32 2c 20 44 69 73 70 | 6f 73 65 2e 20 20 52 65 |.2, Disp|ose.  Re|
|00000430| 6d 6f 76 65 20 61 6e 79 | 20 65 6e 74 72 79 20 77 |move any| entry w|
|00000440| 69 74 68 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ith the |current |
|00000450| 70 72 6f 63 65 73 73 2c | 20 74 68 65 70 72 6f 63 |process,| theproc|
|00000460| 20 69 73 20 69 67 6e 6f | 72 65 64 0d 3b 0d 3b 0d | is igno|red.;.;.|
|00000470| 3b 20 57 65 20 6b 65 65 | 70 20 61 20 74 61 62 6c |; We kee|p a tabl|
|00000480| 65 20 6f 66 20 65 6e 74 | 72 69 65 73 20 77 69 74 |e of ent|ries wit|
|00000490| 68 69 6e 20 6f 75 72 73 | 65 6c 76 65 73 0d 3b 0d |hin ours|elves.;.|
|000004a0| 54 62 6c 50 72 6f 63 09 | 65 71 75 09 30 09 09 09 |TblProc.|equ.0...|
|000004b0| 3b 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 68 65 20 |;pointer| to the |
|000004c0| 72 6f 75 74 69 6e 65 20 | 74 6f 20 63 61 6c 6c 2c |routine |to call,|
|000004d0| 20 30 20 6d 65 61 6e 73 | 20 65 6d 70 74 79 20 65 | 0 means| empty e|
|000004e0| 6e 74 72 79 0d 54 62 6c | 52 65 66 09 65 71 75 09 |ntry.Tbl|Ref.equ.|
|000004f0| 54 62 6c 50 72 6f 63 2b | 34 09 3b 61 20 64 61 74 |TblProc+|4.;a dat|
|00000500| 61 20 70 6f 69 6e 74 65 | 72 20 77 65 20 6b 65 65 |a pointe|r we kee|
|00000510| 70 20 66 6f 72 20 74 68 | 65 20 72 6f 75 74 69 6e |p for th|e routin|
|00000520| 65 27 73 20 75 73 65 0d | 54 62 6c 50 53 4e 09 65 |e's use.|TblPSN.e|
|00000530| 71 75 09 54 62 6c 52 65 | 66 2b 34 09 3b 53 74 6f |qu.TblRe|f+4.;Sto|
|00000540| 72 65 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 73 |re the p|rocess s|
|00000550| 65 72 69 61 6c 20 6e 75 | 6d 62 65 72 20 73 6f 20 |erial nu|mber so |
|00000560| 77 65 20 63 61 6e 20 63 | 68 65 63 6b 20 77 68 65 |we can c|heck whe|
|00000570| 6e 20 74 68 65 20 61 70 | 70 20 63 72 61 73 68 65 |n the ap|p crashe|
|00000580| 73 0d 54 62 6c 53 69 7a | 65 09 65 71 75 09 54 62 |s.TblSiz|e.equ.Tb|
|00000590| 6c 50 53 4e 2b 38 0d 54 | 62 6c 4d 61 78 09 65 71 |lPSN+8.T|blMax.eq|
|000005a0| 75 09 31 30 09 09 09 3b | 6e 75 6d 62 65 72 20 6f |u.10...;|number o|
|000005b0| 66 20 65 6e 74 72 69 65 | 73 20 69 6e 20 74 68 65 |f entrie|s in the|
|000005c0| 20 74 61 62 6c 65 0d 54 | 62 6c 53 70 61 63 65 09 | table.T|blSpace.|
|000005d0| 65 71 75 09 54 62 6c 4d | 61 78 2a 54 62 6c 53 69 |equ.TblM|ax*TblSi|
|000005e0| 7a 65 0d 0d 6a 47 4e 45 | 45 6e 67 69 6e 65 53 74 |ze..jGNE|EngineSt|
|000005f0| 75 66 66 09 09 6d 61 69 | 6e 09 65 78 70 6f 72 74 |uff..mai|n.export|
|00000600| 0d 3b 0d 3b 09 54 68 69 | 73 20 69 6e 73 74 61 6c |.;.;.Thi|s instal|
|00000610| 6c 73 20 6f 75 72 20 68 | 6f 6f 6b 73 20 69 6e 74 |ls our h|ooks int|
|00000620| 6f 20 74 68 65 20 47 4e | 45 46 69 6c 74 65 72 20 |o the GN|EFilter |
|00000630| 61 6e 64 20 72 65 67 69 | 73 74 65 72 73 20 75 73 |and regi|sters us|
|00000640| 20 77 69 74 68 20 47 65 | 73 74 61 6c 74 2e 0d 3b | with Ge|stalt..;|
|00000650| 0d 53 74 61 72 74 4f 66 | 43 6f 64 65 0d 09 09 6d |.StartOf|Code...m|
|00000660| 6f 76 65 2e 6c 09 23 27 | 6a 47 4e 45 27 2c 44 30 |ove.l.#'|jGNE',D0|
|00000670| 0d 09 09 6c 65 61 09 09 | 54 68 65 49 6e 73 74 61 |...lea..|TheInsta|
|00000680| 6c 6c 50 72 6f 63 2c 61 | 31 0d 09 09 5f 47 65 73 |llProc,a|1..._Ges|
|00000690| 74 61 6c 74 0d 09 09 74 | 73 74 2e 77 09 44 30 0d |talt...t|st.w.D0.|
|000006a0| 09 09 62 65 71 2e 73 09 | 40 44 6f 6e 65 48 6f 6f |..beq.s.|@DoneHoo|
|000006b0| 6b 75 70 09 09 3b 69 66 | 20 6e 6f 20 65 72 72 6f |kup..;if| no erro|
|000006c0| 72 2c 20 77 65 27 72 65 | 20 61 6c 72 65 61 64 79 |r, we're| already|
|000006d0| 20 69 6e 73 74 61 6c 6c | 65 64 20 73 6f 6d 65 77 | install|ed somew|
|000006e0| 68 65 72 65 20 65 6c 73 | 65 0d 09 09 0d 09 09 6c |here els|e......l|
|000006f0| 65 61 09 09 53 74 61 72 | 74 4f 66 43 6f 64 65 2c |ea..Star|tOfCode,|
|00000700| 41 30 09 3b 57 65 20 6e | 65 65 64 20 74 6f 20 73 |A0.;We n|eed to s|
|00000710| 75 72 76 69 76 65 20 66 | 6f 72 65 76 65 72 2e 20 |urvive f|orever. |
|00000720| 20 47 65 74 20 74 68 65 | 20 68 61 6e 64 6c 65 20 | Get the| handle |
|00000730| 74 6f 20 6f 75 72 73 65 | 6c 76 65 73 2e 0d 09 09 |to ourse|lves....|
|00000740| 5f 52 65 63 6f 76 65 72 | 48 61 6e 64 6c 65 0d 09 |_Recover|Handle..|
|00000750| 09 6d 6f 76 65 2e 6c 09 | 41 30 2c 2d 28 53 50 29 |.move.l.|A0,-(SP)|
|00000760| 09 09 3b 70 75 74 20 74 | 68 65 20 68 61 6e 64 6c |..;put t|he handl|
|00000770| 65 20 6f 6e 20 74 68 65 | 20 73 74 61 63 6b 20 74 |e on the| stack t|
|00000780| 77 69 63 65 0d 09 09 5f | 48 6c 6f 63 6b 09 09 09 |wice..._|Hlock...|
|00000790| 09 09 3b 61 6e 64 20 6c | 6f 63 6b 20 75 73 20 64 |..;and l|ock us d|
|000007a0| 6f 77 6e 0d 09 09 5f 44 | 65 74 61 63 68 52 65 73 |own..._D|etachRes|
|000007b0| 6f 75 72 63 65 09 09 09 | 3b 6d 61 6b 65 20 75 73 |ource...|;make us|
|000007c0| 20 68 61 6e 67 20 61 72 | 6f 75 6e 64 2e 0d 0d 09 | hang ar|ound....|
|000007d0| 09 6c 65 61 09 09 4f 6c | 64 48 6f 6f 6b 2c 41 30 |.lea..Ol|dHook,A0|
|000007e0| 09 09 09 3b 68 6f 6f 6b | 20 75 73 20 69 6e 74 6f |...;hook| us into|
|000007f0| 20 47 4e 45 46 69 6c 74 | 65 72 0d 09 09 6d 6f 76 | GNEFilt|er...mov|
|00000800| 65 2e 6c 09 6a 47 4e 45 | 46 69 6c 74 65 72 2c 28 |e.l.jGNE|Filter,(|
|00000810| 41 30 29 0d 09 09 6c 65 | 61 09 09 6d 79 47 4e 45 |A0)...le|a..myGNE|
|00000820| 46 69 6c 74 65 72 2c 41 | 30 0d 09 09 6d 6f 76 65 |Filter,A|0...move|
|00000830| 2e 6c 09 41 30 2c 6a 47 | 4e 45 46 69 6c 74 65 72 |.l.A0,jG|NEFilter|
|00000840| 0d 09 09 0d 09 09 6d 6f | 76 65 2e 6c 09 23 27 6a |......mo|ve.l.#'j|
|00000850| 47 4e 45 27 2c 44 30 09 | 09 09 3b 72 65 67 69 73 |GNE',D0.|..;regis|
|00000860| 74 65 72 20 75 73 20 73 | 6f 20 6f 74 68 65 72 73 |ter us s|o others|
|00000870| 20 63 61 6e 20 66 69 6e | 64 20 75 73 0d 09 09 4c | can fin|d us...L|
|00000880| 45 41 09 4d 79 47 65 73 | 74 61 6c 74 48 61 6e 64 |EA.MyGes|taltHand|
|00000890| 6c 65 72 2c 41 30 0d 09 | 09 5f 4e 65 77 47 65 73 |ler,A0..|._NewGes|
|000008a0| 74 61 6c 74 0d 0d 40 44 | 6f 6e 65 48 6f 6f 6b 75 |talt..@D|oneHooku|
|000008b0| 70 0d 09 09 72 74 73 0d | 3b 0d 3b 0d 3b 20 54 68 |p...rts.|;.;.; Th|
|000008c0| 65 20 72 6f 75 74 69 6e | 65 20 47 65 73 74 61 6c |e routin|e Gestal|
|000008d0| 74 20 77 69 6c 6c 20 63 | 61 6c 6c 20 74 6f 20 74 |t will c|all to t|
|000008e0| 65 6c 6c 20 77 68 65 72 | 65 20 6d 79 20 69 6e 73 |ell wher|e my ins|
|000008f0| 74 61 6c 6c 20 72 6f 75 | 74 69 6e 65 73 20 61 72 |tall rou|tines ar|
|00000900| 65 0d 3b 0d 4d 79 47 65 | 73 74 61 6c 74 48 61 6e |e.;.MyGe|staltHan|
|00000910| 64 6c 65 72 0d 09 09 6c | 69 6e 6b 09 41 36 2c 23 |dler...l|ink.A6,#|
|00000920| 30 0d 09 09 6d 6f 76 65 | 2e 6c 09 38 28 41 36 29 |0...move|.l.8(A6)|
|00000930| 2c 41 30 09 3b 72 65 74 | 75 72 6e 20 74 68 65 20 |,A0.;ret|urn the |
|00000940| 70 72 6f 70 65 72 20 72 | 65 73 70 6f 6e 73 65 0d |proper r|esponse.|
|00000950| 09 09 6c 65 61 09 09 4d | 79 66 75 6e 63 74 69 6f |..lea..M|yfunctio|
|00000960| 6e 2c 41 31 0d 09 09 6d | 6f 76 65 2e 6c 09 41 31 |n,A1...m|ove.l.A1|
|00000970| 2c 28 41 30 29 0d 09 09 | 63 6c 72 2e 77 09 31 36 |,(A0)...|clr.w.16|
|00000980| 28 41 36 29 0d 09 09 75 | 6e 6c 6b 09 41 36 0d 09 |(A6)...u|nlk.A6..|
|00000990| 09 6d 6f 76 65 2e 6c 09 | 28 53 50 29 2b 2c 41 30 |.move.l.|(SP)+,A0|
|000009a0| 0d 09 09 61 64 64 61 2e | 6c 09 23 38 2c 53 50 0d |...adda.|l.#8,SP.|
|000009b0| 09 09 6a 6d 70 09 28 41 | 30 29 0d 3b 0d 3b 20 54 |..jmp.(A|0).;.; T|
|000009c0| 68 69 73 20 69 73 20 63 | 61 6c 6c 65 64 20 62 79 |his is c|alled by|
|000009d0| 20 47 65 74 4e 65 78 74 | 45 76 65 6e 74 2c 20 77 | GetNext|Event, w|
|000009e0| 69 74 68 20 74 68 65 20 | 65 76 65 6e 74 20 6d 61 |ith the |event ma|
|000009f0| 73 6b 20 69 6e 20 44 30 | 2c 20 61 6e 64 20 74 68 |sk in D0|, and th|
|00000a00| 65 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |e pointe|r to the|
|00000a10| 0d 3b 09 65 76 65 6e 74 | 20 72 65 63 6f 72 64 20 |.;.event| record |
|00000a20| 69 6e 20 41 31 2e 20 20 | 57 65 27 6c 6c 20 6c 6f |in A1.  |We'll lo|
|00000a30| 6f 6b 20 66 6f 72 20 6f | 75 72 20 48 6f 74 4b 65 |ok for o|ur HotKe|
|00000a40| 79 20 68 65 72 65 2e 0d | 3b 0d 67 66 54 68 65 70 |y here..|;.gfThep|
|00000a50| 73 6e 09 65 71 75 09 09 | 2d 38 0d 67 66 54 68 65 |sn.equ..|-8.gfThe|
|00000a60| 4e 61 6d 65 09 65 71 75 | 09 09 67 66 54 68 65 70 |Name.equ|..gfThep|
|00000a70| 73 6e 2d 33 32 0d 67 66 | 54 68 65 49 6e 66 6f 09 |sn-32.gf|TheInfo.|
|00000a80| 65 71 75 09 09 67 66 54 | 68 65 4e 61 6d 65 2d 70 |equ..gfT|heName-p|
|00000a90| 72 6f 63 65 73 73 41 70 | 70 53 70 65 63 2d 34 0d |rocessAp|pSpec-4.|
|00000aa0| 0d 6d 79 47 4e 45 46 69 | 6c 74 65 72 0d 09 09 09 |.myGNEFi|lter....|
|00000ab0| 6c 69 6e 6b 09 41 36 2c | 23 67 66 54 68 65 49 6e |link.A6,|#gfTheIn|
|00000ac0| 66 6f 0d 09 09 09 6d 6f | 76 65 6d 2e 6c 09 44 30 |fo....mo|vem.l.D0|
|00000ad0| 2d 44 35 2f 41 30 2d 41 | 33 2c 2d 28 53 50 29 0d |-D5/A0-A|3,-(SP).|
|00000ae0| 09 09 09 6d 6f 76 65 2e | 6c 09 41 31 2c 41 33 0d |...move.|l.A1,A3.|
|00000af0| 09 09 09 6d 6f 76 65 2e | 6c 09 44 30 2c 44 34 0d |...move.|l.D0,D4.|
|00000b00| 09 09 0d 09 09 09 6c 65 | 61 09 54 68 65 49 74 65 |......le|a.TheIte|
|00000b10| 6d 73 54 62 6c 2c 41 32 | 09 3b 67 65 74 20 74 68 |msTbl,A2|.;get th|
|00000b20| 65 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |e pointe|r to the|
|00000b30| 20 66 69 72 73 74 20 70 | 6f 69 6e 74 65 72 0d 09 | first p|ointer..|
|00000b40| 09 09 6d 6f 76 65 71 09 | 23 54 62 6c 4d 61 78 2d |..moveq.|#TblMax-|
|00000b50| 31 2c 44 35 0d 40 54 68 | 65 4c 6f 6f 70 09 74 73 |1,D5.@Th|eLoop.ts|
|00000b60| 74 2e 6c 09 54 62 6c 50 | 72 6f 63 28 41 32 29 09 |t.l.TblP|roc(A2).|
|00000b70| 09 3b 73 6b 69 70 20 61 | 6e 79 20 62 6c 61 6e 6b |.;skip a|ny blank|
|00000b80| 73 0d 09 09 09 62 65 71 | 2e 73 09 40 4e 65 78 74 |s....beq|.s.@Next|
|00000b90| 4c 6f 6f 70 0d 09 09 09 | 0d 09 09 09 6d 6f 76 65 |Loop....|....move|
|00000ba0| 2e 6c 09 23 70 72 6f 63 | 65 73 73 41 70 70 53 70 |.l.#proc|essAppSp|
|00000bb0| 65 63 2b 34 2c 67 66 54 | 68 65 49 6e 66 6f 28 41 |ec+4,gfT|heInfo(A|
|00000bc0| 36 29 0d 09 09 09 63 6c | 72 2e 6c 09 67 66 54 68 |6)....cl|r.l.gfTh|
|00000bd0| 65 49 6e 66 6f 2b 70 72 | 6f 63 65 73 73 41 70 70 |eInfo+pr|ocessApp|
|00000be0| 53 70 65 63 28 41 36 29 | 0d 09 09 09 6c 65 61 09 |Spec(A6)|....lea.|
|00000bf0| 09 67 66 54 68 65 4e 61 | 6d 65 28 41 36 29 2c 41 |.gfTheNa|me(A6),A|
|00000c00| 30 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 41 30 2c 67 |0....mov|e.l.A0,g|
|00000c10| 66 54 68 65 49 6e 66 6f | 2b 70 72 6f 63 65 73 73 |fTheInfo|+process|
|00000c20| 4e 61 6d 65 28 41 36 29 | 0d 09 09 0d 09 09 09 63 |Name(A6)|.......c|
|00000c30| 6c 72 2e 77 09 2d 28 53 | 50 29 09 09 09 3b 73 65 |lr.w.-(S|P)...;se|
|00000c40| 65 20 69 66 20 77 65 20 | 63 61 6e 20 67 65 74 20 |e if we |can get |
|00000c50| 69 6e 66 6f 20 6f 6e 20 | 74 68 69 73 20 70 72 6f |info on |this pro|
|00000c60| 63 65 73 73 0d 09 09 09 | 70 65 61 09 09 54 62 6c |cess....|pea..Tbl|
|00000c70| 50 53 4e 28 41 32 29 0d | 09 09 09 70 65 61 09 09 |PSN(A2).|...pea..|
|00000c80| 67 66 54 68 65 49 6e 66 | 6f 28 41 36 29 0d 09 09 |gfTheInf|o(A6)...|
|00000c90| 09 5f 47 65 74 50 72 6f | 63 65 73 73 49 6e 66 6f |._GetPro|cessInfo|
|00000ca0| 72 6d 61 74 69 6f 6e 0d | 09 09 09 74 73 74 2e 77 |rmation.|...tst.w|
|00000cb0| 09 28 53 50 29 2b 0d 09 | 09 09 62 65 71 2e 73 09 |.(SP)+..|..beq.s.|
|00000cc0| 40 47 6f 74 4f 6e 65 0d | 09 09 09 63 6c 72 2e 6c |@GotOne.|...clr.l|
|00000cd0| 09 54 62 6c 50 72 6f 63 | 28 41 32 29 09 09 3b 62 |.TblProc|(A2)..;b|
|00000ce0| 61 64 20 65 6e 74 72 79 | 2c 20 61 70 70 09 6d 75 |ad entry|, app.mu|
|00000cf0| 73 74 27 76 65 20 63 72 | 61 73 68 65 64 2e 20 20 |st've cr|ashed.  |
|00000d00| 4b 69 6c 6c 20 74 68 69 | 73 20 65 6e 74 72 79 0d |Kill thi|s entry.|
|00000d10| 09 09 09 63 6c 72 2e 6c | 09 54 62 6c 52 65 66 28 |...clr.l|.TblRef(|
|00000d20| 41 32 29 0d 09 09 09 63 | 6c 72 2e 6c 09 54 62 6c |A2)....c|lr.l.Tbl|
|00000d30| 50 53 4e 28 41 32 29 0d | 09 09 09 63 6c 72 2e 6c |PSN(A2).|...clr.l|
|00000d40| 09 54 62 6c 50 53 4e 2b | 34 28 41 32 29 0d 09 09 |.TblPSN+|4(A2)...|
|00000d50| 09 62 72 61 2e 73 09 40 | 4e 65 78 74 4c 6f 6f 70 |.bra.s.@|NextLoop|
|00000d60| 0d 40 47 6f 74 4f 6e 65 | 09 0d 09 09 09 63 6c 72 |.@GotOne|.....clr|
|00000d70| 2e 77 09 2d 28 53 50 29 | 09 09 09 3b 4f 4b 2c 20 |.w.-(SP)|...;OK, |
|00000d80| 63 61 6c 6c 20 74 68 69 | 73 20 72 6f 75 74 69 6e |call thi|s routin|
|00000d90| 65 0d 09 09 09 6d 6f 76 | 65 2e 6c 09 41 33 2c 2d |e....mov|e.l.A3,-|
|00000da0| 28 53 50 29 0d 09 09 09 | 6d 6f 76 65 2e 6c 09 54 |(SP)....|move.l.T|
|00000db0| 62 6c 52 65 66 28 41 32 | 29 2c 2d 28 53 50 29 0d |blRef(A2|),-(SP).|
|00000dc0| 09 09 09 6d 6f 76 65 2e | 6c 09 54 62 6c 50 72 6f |...move.|l.TblPro|
|00000dd0| 63 28 41 32 29 2c 41 30 | 0d 09 09 09 6a 73 72 09 |c(A2),A0|....jsr.|
|00000de0| 09 28 41 30 29 0d 09 09 | 09 74 73 74 2e 77 09 28 |.(A0)...|.tst.w.(|
|00000df0| 53 50 29 2b 09 09 09 3b | 69 66 20 72 65 74 75 72 |SP)+...;|if retur|
|00000e00| 6e 65 64 20 74 72 75 65 | 2c 20 68 65 20 68 61 6e |ned true|, he han|
|00000e10| 64 6c 65 64 20 69 74 0d | 09 09 09 62 6e 65 2e 73 |dled it.|...bne.s|
|00000e20| 09 40 43 61 6c 6c 54 68 | 65 4c 61 73 74 0d 40 4e |.@CallTh|eLast.@N|
|00000e30| 65 78 74 4c 6f 6f 70 09 | 61 64 64 61 2e 6c 09 23 |extLoop.|adda.l.#|
|00000e40| 54 62 6c 53 69 7a 65 2c | 41 32 0d 09 09 09 64 62 |TblSize,|A2....db|
|00000e50| 72 61 09 44 35 2c 40 54 | 68 65 4c 6f 6f 70 0d 40 |ra.D5,@T|heLoop.@|
|00000e60| 43 61 6c 6c 54 68 65 4c | 61 73 74 0d 09 09 09 6d |CallTheL|ast....m|
|00000e70| 6f 76 65 6d 2e 6c 09 28 | 53 50 29 2b 2c 44 30 2d |ovem.l.(|SP)+,D0-|
|00000e80| 44 35 2f 41 30 2d 41 33 | 0d 09 09 09 75 6e 6c 6b |D5/A0-A3|....unlk|
|00000e90| 09 41 36 0d 09 09 0d 09 | 09 09 6d 6f 76 65 2e 6c |.A6.....|..move.l|
|00000ea0| 09 4f 6c 64 48 6f 6f 6b | 2c 20 41 30 0d 09 09 09 |.OldHook|, A0....|
|00000eb0| 6a 6d 70 09 09 28 41 30 | 29 0d 3b 0d 3b 09 70 61 |jmp..(A0|).;.;.pa|
|00000ec0| 73 63 61 6c 20 76 6f 69 | 64 20 52 65 67 69 73 74 |scal voi|d Regist|
|00000ed0| 65 72 4d 65 28 73 68 6f | 72 74 20 74 68 65 41 63 |erMe(sho|rt theAc|
|00000ee0| 74 69 6f 6e 2c 20 70 72 | 6f 63 70 74 72 20 74 68 |tion, pr|ocptr th|
|00000ef0| 65 70 72 6f 63 2c 20 6c | 6f 6e 67 20 72 65 66 63 |eproc, l|ong refc|
|00000f00| 6f 6e 29 3b 0d 3b 09 09 | 31 2c 20 52 65 67 69 73 |on);.;..|1, Regis|
|00000f10| 74 65 72 2e 20 20 41 64 | 64 20 61 6e 20 65 6e 74 |ter.  Ad|d an ent|
|00000f20| 72 79 20 74 6f 20 74 68 | 65 20 74 61 62 6c 65 20 |ry to th|e table |
|00000f30| 77 69 74 68 20 70 72 6f | 63 70 74 72 2c 20 61 6c |with pro|cptr, al|
|00000f40| 73 6f 20 6b 65 65 70 69 | 6e 67 20 74 68 65 20 70 |so keepi|ng the p|
|00000f50| 72 6f 63 65 73 73 73 65 | 72 69 61 6c 6e 75 6d 62 |rocessse|rialnumb|
|00000f60| 65 72 0d 3b 09 09 32 2c | 20 44 69 73 70 6f 73 65 |er.;..2,| Dispose|
|00000f70| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 20 65 6e |.  Remov|e any en|
|00000f80| 74 72 79 20 77 69 74 68 | 20 74 68 65 20 63 75 72 |try with| the cur|
|00000f90| 72 65 6e 74 20 70 72 6f | 63 65 73 73 2c 20 74 68 |rent pro|cess, th|
|00000fa0| 65 70 72 6f 63 20 69 73 | 20 69 67 6e 6f 72 65 64 |eproc is| ignored|
|00000fb0| 0d 3b 0d 6d 79 66 74 68 | 65 52 65 66 63 6f 6e 09 |.;.myfth|eRefcon.|
|00000fc0| 65 71 75 09 38 0d 6d 79 | 66 74 68 65 50 72 6f 63 |equ.8.my|ftheProc|
|00000fd0| 09 09 65 71 75 09 6d 79 | 66 74 68 65 52 65 66 63 |..equ.my|ftheRefc|
|00000fe0| 6f 6e 2b 34 0d 6d 79 66 | 74 68 65 41 63 74 69 6f |on+4.myf|theActio|
|00000ff0| 6e 09 65 71 75 09 6d 79 | 66 74 68 65 50 72 6f 63 |n.equ.my|ftheProc|
|00001000| 2b 34 0d 6d 79 66 54 68 | 65 70 73 6e 09 65 71 75 |+4.myfTh|epsn.equ|
|00001010| 09 09 2d 38 0d 6d 79 66 | 54 68 65 42 6f 6f 6c 09 |..-8.myf|TheBool.|
|00001020| 65 71 75 09 6d 79 66 54 | 68 65 70 73 6e 2d 32 3b |equ.myfT|hepsn-2;|
|00001030| 0d 0d 4d 79 66 75 6e 63 | 74 69 6f 6e 09 6c 69 6e |..Myfunc|tion.lin|
|00001040| 6b 09 41 36 2c 23 6d 79 | 66 54 68 65 42 6f 6f 6c |k.A6,#my|fTheBool|
|00001050| 0d 09 09 09 6d 6f 76 65 | 6d 2e 6c 09 44 32 2d 44 |....move|m.l.D2-D|
|00001060| 35 2f 41 32 2c 2d 28 53 | 50 29 0d 09 09 09 0d 09 |5/A2,-(S|P)......|
|00001070| 09 09 63 6c 72 2e 6c 09 | 6d 79 66 54 68 65 70 73 |..clr.l.|myfTheps|
|00001080| 6e 28 41 36 29 09 09 3b | 2d 38 28 41 36 29 20 68 |n(A6)..;|-8(A6) h|
|00001090| 61 73 20 6f 75 72 20 70 | 72 6f 63 65 73 73 20 73 |as our p|rocess s|
|000010a0| 65 72 69 61 6c 20 6e 75 | 6d 62 65 72 0d 09 09 09 |erial nu|mber....|
|000010b0| 63 6c 72 2e 6c 09 6d 79 | 66 54 68 65 70 73 6e 2b |clr.l.my|fThepsn+|
|000010c0| 34 28 41 36 29 0d 09 09 | 0d 09 09 09 63 6c 72 2e |4(A6)...|....clr.|
|000010d0| 77 09 2d 28 53 50 29 09 | 09 3b 73 65 65 20 69 66 |w.-(SP).|.;see if|
|000010e0| 20 77 65 20 63 61 6e 20 | 67 65 74 20 74 68 65 20 | we can |get the |
|000010f0| 6e 65 78 74 20 70 72 6f | 63 65 73 73 0d 09 09 09 |next pro|cess....|
|00001100| 70 65 61 09 09 6d 79 66 | 54 68 65 70 73 6e 28 41 |pea..myf|Thepsn(A|
|00001110| 36 29 0d 09 09 09 5f 47 | 65 74 43 75 72 72 65 6e |6)...._G|etCurren|
|00001120| 74 50 72 6f 63 65 73 73 | 0d 09 09 09 74 73 74 2e |tProcess|....tst.|
|00001130| 77 09 28 53 50 29 2b 0d | 09 09 09 0d 09 09 09 63 |w.(SP)+.|.......c|
|00001140| 6d 70 69 2e 77 09 23 31 | 2c 6d 79 66 74 68 65 41 |mpi.w.#1|,myftheA|
|00001150| 63 74 69 6f 6e 28 41 36 | 29 09 3b 69 66 20 69 74 |ction(A6|).;if it|
|00001160| 27 73 20 72 65 67 69 73 | 74 65 72 2c 20 64 6f 20 |'s regis|ter, do |
|00001170| 69 74 0d 09 09 09 62 65 | 71 09 09 44 6f 54 68 65 |it....be|q..DoThe|
|00001180| 52 65 67 69 73 74 65 72 | 0d 09 09 09 63 6d 70 69 |Register|....cmpi|
|00001190| 2e 77 09 23 32 2c 6d 79 | 66 74 68 65 41 63 74 69 |.w.#2,my|ftheActi|
|000011a0| 6f 6e 28 41 36 29 09 3b | 69 66 20 69 74 27 73 20 |on(A6).;|if it's |
|000011b0| 64 69 73 70 6f 73 65 2c | 20 64 6f 20 69 74 0d 09 |dispose,| do it..|
|000011c0| 09 09 62 65 71 09 09 44 | 6f 54 68 65 44 69 73 70 |..beq..D|oTheDisp|
|000011d0| 6f 73 65 0d 0d 09 09 09 | 62 72 61 09 52 65 74 75 |ose.....|bra.Retu|
|000011e0| 72 6e 66 72 6f 6d 46 75 | 6e 63 0d 09 09 09 0d 44 |rnfromFu|nc.....D|
|000011f0| 6f 54 68 65 52 65 67 69 | 73 74 65 72 0d 09 09 09 |oTheRegi|ster....|
|00001200| 6c 65 61 09 54 68 65 49 | 74 65 6d 73 54 62 6c 2c |lea.TheI|temsTbl,|
|00001210| 41 32 09 3b 67 65 74 20 | 74 68 65 20 70 6f 69 6e |A2.;get |the poin|
|00001220| 74 65 72 20 74 6f 20 74 | 68 65 20 66 69 72 73 74 |ter to t|he first|
|00001230| 20 70 6f 69 6e 74 65 72 | 0d 09 09 09 6d 6f 76 65 | pointer|....move|
|00001240| 71 09 23 54 62 6c 4d 61 | 78 2d 31 2c 44 35 0d 40 |q.#TblMa|x-1,D5.@|
|00001250| 54 68 65 4c 6f 6f 70 09 | 74 73 74 2e 6c 09 54 62 |TheLoop.|tst.l.Tb|
|00001260| 6c 50 72 6f 63 28 41 32 | 29 09 09 3b 6c 6f 6f 6b |lProc(A2|)..;look|
|00001270| 69 6e 67 20 66 6f 72 20 | 61 6e 20 65 6d 70 74 79 |ing for |an empty|
|00001280| 20 73 70 6f 74 0d 09 09 | 09 62 6e 65 2e 73 09 40 | spot...|.bne.s.@|
|00001290| 4e 65 78 74 4c 6f 6f 70 | 0d 09 09 09 6d 6f 76 65 |NextLoop|....move|
|000012a0| 2e 6c 09 6d 79 66 74 68 | 65 50 72 6f 63 28 41 36 |.l.myfth|eProc(A6|
|000012b0| 29 2c 54 62 6c 50 72 6f | 63 28 41 32 29 09 3b 66 |),TblPro|c(A2).;f|
|000012c0| 6f 75 6e 64 20 6f 6e 65 | 2e 20 20 46 69 6c 6c 20 |ound one|.  Fill |
|000012d0| 69 74 20 6f 75 74 2e 0d | 09 09 09 6d 6f 76 65 2e |it out..|...move.|
|000012e0| 6c 09 6d 79 66 74 68 65 | 52 65 66 63 6f 6e 28 41 |l.myfthe|Refcon(A|
|000012f0| 36 29 2c 54 62 6c 52 65 | 66 28 41 32 29 0d 09 09 |6),TblRe|f(A2)...|
|00001300| 09 6d 6f 76 65 2e 6c 09 | 6d 79 66 54 68 65 70 73 |.move.l.|myfTheps|
|00001310| 6e 28 41 36 29 2c 54 62 | 6c 50 53 4e 28 41 32 29 |n(A6),Tb|lPSN(A2)|
|00001320| 0d 09 09 09 6d 6f 76 65 | 2e 6c 09 6d 79 66 54 68 |....move|.l.myfTh|
|00001330| 65 70 73 6e 2b 34 28 41 | 36 29 2c 20 54 62 6c 50 |epsn+4(A|6), TblP|
|00001340| 53 4e 2b 34 28 41 32 29 | 3b 0d 09 09 09 62 72 61 |SN+4(A2)|;....bra|
|00001350| 09 09 52 65 74 75 72 6e | 46 72 6f 6d 46 75 6e 63 |..Return|FromFunc|
|00001360| 0d 40 4e 65 78 74 4c 6f | 6f 70 09 61 64 64 61 2e |.@NextLo|op.adda.|
|00001370| 6c 09 23 54 62 6c 53 69 | 7a 65 2c 41 32 0d 09 09 |l.#TblSi|ze,A2...|
|00001380| 09 64 62 72 61 09 44 35 | 2c 40 54 68 65 4c 6f 6f |.dbra.D5|,@TheLoo|
|00001390| 70 0d 09 09 09 62 72 61 | 09 09 52 65 74 75 72 6e |p....bra|..Return|
|000013a0| 46 72 6f 6d 46 75 6e 63 | 0d 0d 44 6f 54 68 65 44 |FromFunc|..DoTheD|
|000013b0| 69 73 70 6f 73 65 0d 09 | 09 09 6c 65 61 09 54 68 |ispose..|..lea.Th|
|000013c0| 65 49 74 65 6d 73 54 62 | 6c 2c 41 32 09 3b 67 65 |eItemsTb|l,A2.;ge|
|000013d0| 74 20 74 68 65 20 70 6f | 69 6e 74 65 72 20 74 6f |t the po|inter to|
|000013e0| 20 74 68 65 20 66 69 72 | 73 74 20 70 6f 69 6e 74 | the fir|st point|
|000013f0| 65 72 0d 09 09 09 6d 6f | 76 65 71 09 23 54 62 6c |er....mo|veq.#Tbl|
|00001400| 4d 61 78 2d 31 2c 44 35 | 0d 40 54 68 65 4c 6f 6f |Max-1,D5|.@TheLoo|
|00001410| 70 09 0d 09 09 09 63 6c | 72 2e 77 09 2d 28 53 50 |p.....cl|r.w.-(SP|
|00001420| 29 09 09 09 3b 63 61 6c | 6c 20 5f 53 61 6d 65 50 |)...;cal|l _SameP|
|00001430| 72 6f 63 65 73 73 0d 09 | 09 09 70 65 61 09 09 6d |rocess..|..pea..m|
|00001440| 79 66 54 68 65 70 73 6e | 28 41 36 29 0d 09 09 09 |yfThepsn|(A6)....|
|00001450| 70 65 61 09 09 54 62 6c | 50 53 4e 28 41 32 29 0d |pea..Tbl|PSN(A2).|
|00001460| 09 09 09 70 65 61 09 09 | 6d 79 66 54 68 65 42 6f |...pea..|myfTheBo|
|00001470| 6f 6c 28 41 36 29 0d 09 | 09 09 63 6c 72 2e 77 09 |ol(A6)..|..clr.w.|
|00001480| 6d 79 66 54 68 65 42 6f | 6f 6c 28 41 36 29 0d 09 |myfTheBo|ol(A6)..|
|00001490| 09 09 5f 53 61 6d 65 50 | 72 6f 63 65 73 73 0d 09 |.._SameP|rocess..|
|000014a0| 09 09 74 73 74 2e 77 09 | 28 53 50 29 2b 0d 09 09 |..tst.w.|(SP)+...|
|000014b0| 09 74 73 74 2e 77 09 6d | 79 66 54 68 65 42 6f 6f |.tst.w.m|yfTheBoo|
|000014c0| 6c 28 41 36 29 0d 09 09 | 09 62 65 71 2e 73 09 40 |l(A6)...|.beq.s.@|
|000014d0| 4e 65 78 74 4c 6f 6f 70 | 0d 09 09 09 43 6c 72 2e |NextLoop|....Clr.|
|000014e0| 6c 09 54 62 6c 50 72 6f | 63 28 41 32 29 09 09 3b |l.TblPro|c(A2)..;|
|000014f0| 64 69 73 70 6f 73 69 6e | 67 2c 20 73 6f 20 67 65 |disposin|g, so ge|
|00001500| 74 20 72 69 64 20 6f 66 | 20 69 74 0d 09 09 09 63 |t rid of| it....c|
|00001510| 6c 72 2e 6c 09 54 62 6c | 52 65 66 28 41 32 29 0d |lr.l.Tbl|Ref(A2).|
|00001520| 09 09 09 63 6c 72 2e 6c | 09 54 62 6c 50 53 4e 28 |...clr.l|.TblPSN(|
|00001530| 41 32 29 0d 09 09 09 43 | 6c 72 2e 6c 09 54 62 6c |A2)....C|lr.l.Tbl|
|00001540| 50 53 4e 2b 34 28 41 32 | 29 0d 40 4e 65 78 74 4c |PSN+4(A2|).@NextL|
|00001550| 6f 6f 70 09 61 64 64 61 | 2e 6c 09 23 54 62 6c 53 |oop.adda|.l.#TblS|
|00001560| 69 7a 65 2c 41 32 0d 09 | 09 09 64 62 72 61 09 44 |ize,A2..|..dbra.D|
|00001570| 35 2c 40 54 68 65 4c 6f | 6f 70 0d 09 09 09 3b 62 |5,@TheLo|op....;b|
|00001580| 72 61 09 52 65 74 75 72 | 6e 46 72 6f 6d 46 75 6e |ra.Retur|nFromFun|
|00001590| 63 0d 0d 52 65 74 75 72 | 6e 46 72 6f 6d 46 75 6e |c..Retur|nFromFun|
|000015a0| 63 0d 09 09 09 6d 6f 76 | 65 6d 2e 6c 09 28 53 50 |c....mov|em.l.(SP|
|000015b0| 29 2b 2c 44 32 2d 44 35 | 2f 41 32 0d 09 09 09 75 |)+,D2-D5|/A2....u|
|000015c0| 6e 6c 6b 09 41 36 0d 09 | 09 09 0d 09 09 09 6d 6f |nlk.A6..|......mo|
|000015d0| 76 65 2e 6c 09 28 53 50 | 29 2b 2c 41 30 09 09 09 |ve.l.(SP|)+,A0...|
|000015e0| 09 3b 63 6c 65 61 6e 20 | 75 70 20 74 68 65 20 73 |.;clean |up the s|
|000015f0| 74 61 63 6b 0d 09 09 09 | 61 64 64 61 2e 6c 09 23 |tack....|adda.l.#|
|00001600| 31 30 2c 53 50 0d 09 09 | 09 6a 6d 70 09 09 28 41 |10,SP...|.jmp..(A|
|00001610| 30 29 0d 0d 4f 6c 64 48 | 6f 6f 6b 09 09 09 64 63 |0)..OldH|ook...dc|
|00001620| 2e 6c 09 30 0d 54 68 65 | 49 6e 73 74 61 6c 6c 50 |.l.0.The|InstallP|
|00001630| 72 6f 63 09 64 63 2e 6c | 09 30 0d 54 68 65 49 74 |roc.dc.l|.0.TheIt|
|00001640| 65 6d 73 54 62 6c 09 64 | 63 62 2e 62 09 54 62 6c |emsTbl.d|cb.b.Tbl|
|00001650| 53 70 61 63 65 2c 30 0d | 0d 09 09 65 6e 64 0d 00 |Space,0.|...end..|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 00 01 00 00 00 01 88 | 00 00 00 88 00 00 00 66 |........|.......f|
|00001690| 20 20 20 20 20 20 6c 65 | 66 74 28 41 34 29 2c 44 |      le|ft(A4),D|
|000016a0| 30 09 09 3b 77 31 3a 3d | 77 31 2b 73 62 2e 6c 65 |0..;w1:=|w1+sb.le|
|000016b0| 18 6a 47 4e 45 45 6e 67 | 69 6e 65 43 6f 64 65 52 |.jGNEEng|ineCodeR|
|000016c0| 65 73 6f 75 72 63 65 2e | 61 75 02 00 00 00 54 45 |esource.|au....TE|
|000016d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 a6 67 92 94 00 00 | 15 df 00 00 01 ee 6d 28 |...g....|......m(|
|00001700| 41 34 29 2c 44 30 09 3b | 68 65 69 67 68 74 20 6e |A4),D0.;|height n|
|00001710| 65 78 74 0d 09 09 53 55 | 42 2e 57 20 20 20 20 20 |ext...SU|B.W     |
|00001720| 20 74 6f 70 28 41 34 29 | 2c 44 30 0d 09 09 73 75 | top(A4)|,D0...su|
|00001730| 62 2e 77 20 20 20 20 20 | 20 44 37 2c 44 30 0d 09 |b.w     | D7,D0..|
|00001740| 09 73 75 62 2e 57 20 20 | 20 20 20 20 62 6f 74 74 |.sub.W  |    bott|
|00001750| 6f 6d 28 41 30 29 2c 44 | 30 09 3b 68 31 3a 3d 28 |om(A0),D|0.;h1:=(|
|00001760| 68 31 2d 28 62 6f 74 74 | 6f 6d 2d 74 6f 70 29 29 |h1-(bott|om-top))|
|00001770| 20 64 69 76 20 33 0d 09 | 09 61 64 64 2e 57 20 20 | div 3..|.add.W  |
|00001780| 00 00 00 0e 01 00 80 00 | 00 00 03 31 2e 30 03 31 |........|...1.0.1|
|00001790| 2e 30 00 00 00 1e 00 57 | 00 24 01 dc 02 3d 00 57 |.0.....W|.$...=.W|
|000017a0| 00 24 01 dc 02 3d 00 00 | 0d 40 00 00 00 00 00 00 |.$...=..|.@......|
|000017b0| 00 00 00 00 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |.......H|..Monaco|
|000017c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 00 00 03 00 04 00 57 |........|.......W|
|000017e0| 00 24 01 dc 02 3d 00 57 | 00 24 01 dc 02 3d ad f0 |.$...=.W|.$...=..|
|000017f0| a9 56 00 00 0d 9e 00 00 | 0d 9e 00 00 00 00 01 00 |.V......|........|
|00001800| 00 00 00 04 00 01 00 01 | 00 00 01 00 00 00 01 88 |........|........|
|00001810| 00 00 00 88 00 00 00 66 | 01 d4 21 08 29 de 00 00 |.......f|..!.)...|
|00001820| 00 1c 00 66 00 02 4d 50 | 53 52 00 01 00 1a 76 65 |...f..MP|SR....ve|
|00001830| 72 73 00 00 00 32 4d 57 | 42 42 00 00 00 3e 03 f0 |rs...2MW|BB...>..|
|00001840| ff ff 00 00 00 12 00 00 | 00 00 03 ed ff ff 00 00 |........|........|
|00001850| 00 34 00 00 00 00 00 01 | ff ff 00 00 00 00 00 00 |.4......|........|
|00001860| 00 00 03 f0 ff ff 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+