/ Carousel Volume 2 #1 / carousel.iso / mactosh / init / rwatcher.sit / ShowInit.a

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 53 68 6f 77 49 6e | 69 74 2e 61 00 00 00 00 |..ShowIn|it.a....|
|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 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 13 75 00 | 00 01 7e 9f 8d 45 b5 9f |......u.|..~..E..|
|00000060| 8d 45 b5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.E......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c0 ce 00 00 |........|........|
|00000080| 09 74 69 74 6c 65 09 27 | 53 68 6f 77 49 6e 69 74 |.title.'|ShowInit|
|00000090| 27 0d 3b 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |'.;_____|________|
|000000a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000d0| 5f 5f 5f 5f 5f 0d 3b 0d | 3b 20 53 68 6f 77 49 6e |_____.;.|; ShowIn|
|000000e0| 69 74 20 2d 20 53 68 6f | 77 20 49 4e 49 54 20 69 |it - Sho|w INIT i|
|000000f0| 63 6f 6e 20 61 74 20 62 | 6f 6f 74 20 74 69 6d 65 |con at b|oot time|
|00000100| 2e 0d 3b 0d 3b 20 56 65 | 72 73 69 6f 6e 20 31 2e |..;.; Ve|rsion 1.|
|00000110| 30 2e 20 20 4f 63 74 6f | 62 65 72 2c 20 31 39 38 |0.  Octo|ber, 198|
|00000120| 38 2e 0d 3b 0d 3b 20 4a | 6f 68 6e 20 4e 6f 72 73 |8..;.; J|ohn Nors|
|00000130| 74 61 64 0d 3b 20 41 63 | 61 64 65 6d 69 63 20 43 |tad.; Ac|ademic C|
|00000140| 6f 6d 70 75 74 69 6e 67 | 20 61 6e 64 20 4e 65 74 |omputing| and Net|
|00000150| 77 6f 72 6b 20 53 65 72 | 76 69 63 65 73 0d 3b 20 |work Ser|vices.; |
|00000160| 4e 6f 72 74 68 77 65 73 | 74 65 72 6e 20 55 6e 69 |Northwes|tern Uni|
|00000170| 76 65 72 73 69 74 79 0d | 3b 20 32 31 32 39 20 53 |versity.|; 2129 S|
|00000180| 68 65 72 69 64 61 6e 20 | 52 6f 61 64 0d 3b 20 45 |heridan |Road.; E|
|00000190| 76 61 6e 73 74 6f 6e 2c | 20 49 4c 20 36 30 32 30 |vanston,| IL 6020|
|000001a0| 38 0d 3b 0d 3b 20 42 69 | 74 6e 65 74 3a 20 6a 6c |8.;.; Bi|tnet: jl|
|000001b0| 6e 40 6e 75 61 63 63 0d | 3b 20 49 6e 74 65 72 6e |n@nuacc.|; Intern|
|000001c0| 65 74 3a 20 6a 6c 6e 40 | 6e 75 61 63 63 2e 61 63 |et: jln@|nuacc.ac|
|000001d0| 6e 73 2e 6e 77 75 2e 65 | 64 75 0d 3b 0d 3b 20 41 |ns.nwu.e|du.;.; A|
|000001e0| 64 61 70 74 65 64 20 66 | 72 6f 6d 20 61 20 76 65 |dapted f|rom a ve|
|000001f0| 72 73 69 6f 6e 20 62 79 | 20 50 61 75 6c 20 4d 65 |rsion by| Paul Me|
|00000200| 72 63 65 72 2c 20 44 61 | 72 69 6e 20 41 64 6c 65 |rcer, Da|rin Adle|
|00000210| 72 2c 20 61 6e 64 0d 3b | 20 50 61 75 6c 20 53 6e |r, and.;| Paul Sn|
|00000220| 69 76 65 6c 79 2c 20 61 | 73 20 70 6f 73 74 65 64 |ively, a|s posted|
|00000230| 20 74 6f 20 63 6f 6d 70 | 2e 73 79 73 2e 6d 61 63 | to comp|.sys.mac|
|00000240| 2e 70 72 6f 67 72 61 6d | 6d 65 72 20 62 79 20 57 |.program|mer by W|
|00000250| 69 6c 6c 69 61 6d 0d 3b | 20 42 75 6d 67 61 72 6e |illiam.;| Bumgarn|
|00000260| 65 72 2e 0d 3b 0d 3b 20 | 50 52 4f 43 45 44 55 52 |er..;.; |PROCEDUR|
|00000270| 45 20 53 68 6f 77 49 6e | 69 74 20 28 69 63 6f 6e |E ShowIn|it (icon|
|00000280| 49 44 3a 20 49 6e 74 65 | 67 65 72 29 0d 3b 0d 3b |ID: Inte|ger).;.;|
|00000290| 20 69 63 6f 6e 49 44 20 | 3d 20 72 65 73 6f 75 72 | iconID |= resour|
|000002a0| 63 65 20 49 44 20 6f 66 | 20 49 43 4e 23 20 72 65 |ce ID of| ICN# re|
|000002b0| 73 6f 75 72 63 65 2e 0d | 3b 5f 5f 5f 5f 5f 5f 5f |source..|;_______|
|000002c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 0d 0d 0d 3b 5f |________|___...;_|
|00000300| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000310| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000320| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000330| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000340| 5f 0d 3b 0d 3b 20 53 68 | 6f 77 49 6e 69 74 20 69 |_.;.; Sh|owInit i|
|00000350| 73 20 77 72 69 74 74 65 | 6e 20 69 6e 20 4d 50 57 |s writte|n in MPW|
|00000360| 20 61 73 73 65 6d 62 6c | 65 72 2e 20 20 55 73 65 | assembl|er.  Use|
|00000370| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 4d | the fol|lowing M|
|00000380| 50 57 0d 3b 20 63 6f 6d | 6d 61 6e 64 20 74 6f 20 |PW.; com|mand to |
|00000390| 61 73 73 65 6d 62 6c 65 | 20 69 74 3a 0d 3b 0d 3b |assemble| it:.;.;|
|000003a0| 20 61 73 6d 20 2d 77 62 | 20 2d 6c 20 2d 70 61 67 | asm -wb| -l -pag|
|000003b0| 65 73 69 7a 65 20 37 33 | 2c 31 30 35 20 53 68 6f |esize 73|,105 Sho|
|000003c0| 77 49 6e 69 74 2e 61 0d | 3b 5f 5f 5f 5f 5f 5f 5f |wInit.a.|;_______|
|000003d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000003e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000003f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000400| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 0d 0d 0d 3b 20 |________|___...; |
|00000410| 49 6e 63 6c 75 64 65 20 | 46 69 6c 65 73 2e 0d 0d |Include |Files...|
|00000420| 09 70 72 69 6e 74 20 20 | 20 6f 66 66 0d 09 69 6e |.print  | off..in|
|00000430| 63 6c 75 64 65 09 27 54 | 72 61 70 73 2e 61 27 0d |clude.'T|raps.a'.|
|00000440| 09 69 6e 63 6c 75 64 65 | 20 27 51 75 69 63 6b 45 |.include| 'QuickE|
|00000450| 71 75 2e 61 27 0d 09 69 | 6e 63 6c 75 64 65 20 27 |qu.a'..i|nclude '|
|00000460| 53 79 73 45 71 75 2e 61 | 27 0d 09 69 6e 63 6c 75 |SysEqu.a|'..inclu|
|00000470| 64 65 20 27 54 6f 6f 6c | 45 71 75 2e 61 27 0d 09 |de 'Tool|Equ.a'..|
|00000480| 70 72 69 6e 74 20 20 20 | 6f 6e 0d 09 0d 09 0d 3b |print   |on.....;|
|00000490| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000004d0| 5f 5f 0d 3b 0d 3b 20 43 | 6f 6e 73 74 61 6e 74 73 |__.;.; C|onstants|
|000004e0| 20 61 6e 64 20 41 73 73 | 65 6d 62 6c 79 20 4f 70 | and Ass|embly Op|
|000004f0| 74 69 6f 6e 73 2e 0d 3b | 5f 5f 5f 5f 5f 5f 5f 5f |tions..;|________|
|00000500| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000510| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000520| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000530| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 0d 0d 0d 3b 20 4e |________|__...; N|
|00000540| 65 77 20 53 68 6f 77 49 | 6e 69 74 20 6c 6f 77 20 |ew ShowI|nit low |
|00000550| 63 6f 72 65 20 67 6c 6f | 62 61 6c 73 2e 0d 3b 0d |core glo|bals..;.|
|00000560| 3b 20 6e 65 77 48 20 3d | 20 6c 65 66 74 20 63 6f |; newH =| left co|
|00000570| 6f 72 64 69 6e 61 74 65 | 20 6f 66 20 6e 65 78 74 |ordinate| of next|
|00000580| 20 49 4e 49 54 20 69 63 | 6f 6e 20 74 6f 20 62 65 | INIT ic|on to be|
|00000590| 20 64 69 73 70 6c 61 79 | 65 64 2e 20 20 5b 77 6f | display|ed.  [wo|
|000005a0| 72 64 5d 0d 3b 20 6e 65 | 77 43 68 65 63 6b 20 3d |rd].; ne|wCheck =|
|000005b0| 20 6e 65 77 48 20 73 68 | 69 66 74 65 64 20 6c 65 | newH sh|ifted le|
|000005c0| 66 74 20 31 2c 20 78 6f | 72 27 64 20 77 69 74 68 |ft 1, xo|r'd with|
|000005d0| 20 74 68 65 20 63 6f 6e | 73 74 61 6e 74 20 24 31 | the con|stant $1|
|000005e0| 30 32 31 2e 20 0d 3b 20 | 20 20 20 5b 77 6f 72 64 |021. .; |   [word|
|000005f0| 5d 0d 0d 6e 65 77 48 09 | 09 65 71 75 09 43 75 72 |]..newH.|.equ.Cur|
|00000600| 41 70 4e 61 6d 65 2b 33 | 32 2d 34 0d 6e 65 77 43 |ApName+3|2-4.newC|
|00000610| 68 65 63 6b 09 65 71 75 | 09 6e 65 77 48 2b 32 09 |heck.equ|.newH+2.|
|00000620| 09 0d 0d 0d 3b 20 4f 6c | 64 20 53 68 6f 77 49 6e |....; Ol|d ShowIn|
|00000630| 69 74 20 6c 6f 77 20 63 | 6f 72 65 20 67 6c 6f 62 |it low c|ore glob|
|00000640| 61 6c 73 2e 0d 3b 0d 3b | 20 6f 6c 64 48 20 3d 20 |als..;.;| oldH = |
|00000650| 6c 65 66 74 20 63 6f 6f | 72 64 69 6e 61 74 65 20 |left coo|rdinate |
|00000660| 6f 66 20 6e 65 78 74 20 | 49 4e 49 54 20 69 63 6f |of next |INIT ico|
|00000670| 6e 20 74 6f 20 62 65 20 | 64 69 73 70 6c 61 79 65 |n to be |displaye|
|00000680| 64 2e 20 20 5b 77 6f 72 | 64 5d 0d 3b 20 6f 6c 64 |d.  [wor|d].; old|
|00000690| 43 68 65 63 6b 20 3d 20 | 63 6f 6e 73 74 61 6e 74 |Check = |constant|
|000006a0| 20 27 50 61 75 6c 27 2e | 20 20 5b 6c 6f 6e 67 5d | 'Paul'.|  [long]|
|000006b0| 0d 0d 6f 6c 64 48 09 09 | 65 71 75 09 41 70 70 6c |..oldH..|equ.Appl|
|000006c0| 53 63 72 61 74 63 68 2b | 34 2b 32 0d 6f 6c 64 43 |Scratch+|4+2.oldC|
|000006d0| 68 65 63 6b 09 65 71 75 | 09 41 70 70 6c 53 63 72 |heck.equ|.ApplScr|
|000006e0| 61 74 63 68 0d 0d 0d 3b | 20 4d 69 73 63 65 6c 6c |atch...;| Miscell|
|000006f0| 61 6e 79 2e 0d 0d 65 6f | 72 4d 61 73 6b 09 65 71 |any...eo|rMask.eq|
|00000700| 75 09 24 31 30 32 31 09 | 09 3b 20 6d 61 73 6b 20 |u.$1021.|.; mask |
|00000710| 66 6f 72 20 66 6f 72 6d | 69 6e 67 20 6e 65 77 43 |for form|ing newC|
|00000720| 68 65 63 6b 0d 68 4f 66 | 66 73 65 74 09 65 71 75 |heck.hOf|fset.equ|
|00000730| 09 34 30 09 09 3b 20 68 | 6f 72 69 7a 6f 6e 74 61 |.40..; h|orizonta|
|00000740| 6c 20 6f 66 66 73 65 74 | 20 62 65 74 77 65 65 6e |l offset| between|
|00000750| 20 69 63 6f 6e 73 0d 6f | 6c 64 4b 65 79 09 65 71 | icons.o|ldKey.eq|
|00000760| 75 09 27 50 61 75 6c 27 | 09 09 3b 20 6f 6c 64 43 |u.'Paul'|..; oldC|
|00000770| 68 65 63 6b 20 63 6f 6e | 73 74 61 6e 74 0d 09 65 |heck con|stant..e|
|00000780| 6a 65 63 74 0d 3b 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |ject.;__|________|
|00000790| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000007a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000007b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000007c0| 5f 5f 5f 5f 5f 5f 5f 5f | 0d 3b 0d 3b 20 54 68 65 |________|.;.; The|
|000007d0| 20 50 72 6f 63 65 64 75 | 72 65 2e 0d 3b 5f 5f 5f | Procedu|re..;___|
|000007e0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000007f0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000800| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00000810| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 0d |________|_______.|
|00000820| 0d 0d 53 68 6f 77 49 6e | 69 74 09 70 72 6f 63 09 |..ShowIn|it.proc.|
|00000830| 65 78 70 6f 72 74 0d 0d | 53 74 61 63 6b 46 72 61 |export..|StackFra|
|00000840| 6d 65 09 72 65 63 6f 72 | 64 09 7b 6f 6c 64 41 36 |me.recor|d.{oldA6|
|00000850| 7d 2c 64 65 63 72 65 6d | 65 6e 74 0d 69 63 6f 6e |},decrem|ent.icon|
|00000860| 49 44 09 09 64 73 2e 77 | 09 31 09 09 3b 20 72 65 |ID..ds.w|.1..; re|
|00000870| 73 6f 75 72 63 65 20 69 | 64 20 6f 66 20 69 63 6f |source i|d of ico|
|00000880| 6e 0d 72 65 74 41 64 64 | 72 09 09 64 73 2e 6c 09 |n.retAdd|r..ds.l.|
|00000890| 31 09 09 3b 20 72 65 74 | 75 72 6e 20 61 64 64 72 |1..; ret|urn addr|
|000008a0| 65 73 73 0d 6f 6c 64 41 | 36 09 09 64 73 2e 6c 09 |ess.oldA|6..ds.l.|
|000008b0| 31 09 09 3b 20 6f 6c 64 | 20 41 36 0d 64 65 73 74 |1..; old| A6.dest|
|000008c0| 52 65 63 74 09 64 73 2e | 77 09 34 09 09 3b 20 69 |Rect.ds.|w.4..; i|
|000008d0| 63 6f 6e 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 |con dest|ination |
|000008e0| 72 65 63 74 0d 6d 79 42 | 69 74 4d 61 70 09 64 73 |rect.myB|itMap.ds|
|000008f0| 09 62 69 74 4d 61 70 52 | 65 63 09 3b 20 69 63 6f |.bitMapR|ec.; ico|
|00000900| 6e 20 73 6f 75 72 63 65 | 20 62 69 74 6d 61 70 0d |n source| bitmap.|
|00000910| 6d 79 50 6f 72 74 09 09 | 64 73 09 70 6f 72 74 52 |myPort..|ds.portR|
|00000920| 65 63 09 09 3b 20 67 72 | 61 66 70 6f 72 74 0d 74 |ec..; gr|afport.t|
|00000930| 68 65 50 6f 72 74 09 09 | 64 73 2e 6c 09 31 09 09 |hePort..|ds.l.1..|
|00000940| 3b 20 51 75 69 63 6b 44 | 72 61 77 20 67 6c 6f 62 |; QuickD|raw glob|
|00000950| 61 6c 73 0d 09 09 64 73 | 09 67 72 61 66 53 69 7a |als...ds|.grafSiz|
|00000960| 65 2d 34 0d 6c 6f 63 61 | 6c 41 35 09 09 64 73 2e |e-4.loca|lA5..ds.|
|00000970| 6c 09 31 09 09 3b 20 41 | 35 20 77 6f 72 6c 64 20 |l.1..; A|5 world |
|00000980| 66 6f 72 20 51 75 69 63 | 6b 44 72 61 77 0d 73 69 |for Quic|kDraw.si|
|00000990| 7a 65 09 09 65 71 75 09 | 2a 0d 09 09 65 6e 64 72 |ze..equ.|*...endr|
|000009a0| 0d 09 09 0d 09 77 69 74 | 68 09 53 74 61 63 6b 46 |.....wit|h.StackF|
|000009b0| 72 61 6d 65 0d 09 09 0d | 3b 20 45 6e 74 72 79 2e |rame....|; Entry.|
|000009c0| 20 20 43 72 65 61 74 65 | 20 73 74 61 63 6b 20 66 |  Create| stack f|
|000009d0| 72 61 6d 65 20 61 6e 64 | 20 73 61 76 65 20 72 65 |rame and| save re|
|000009e0| 67 69 73 74 65 72 73 2e | 0d 09 09 0d 09 6c 69 6e |gisters.|.....lin|
|000009f0| 6b 09 61 36 2c 23 73 69 | 7a 65 0d 09 6d 6f 76 65 |k.a6,#si|ze..move|
|00000a00| 6d 2e 6c 09 61 32 2d 61 | 35 2c 2d 28 73 70 29 0d |m.l.a2-a|5,-(sp).|
|00000a10| 09 09 0d 3b 20 4c 6f 61 | 64 20 61 6e 64 20 6c 6f |...; Loa|d and lo|
|00000a20| 63 6b 20 74 68 65 20 49 | 43 4e 23 20 72 65 73 6f |ck the I|CN# reso|
|00000a30| 75 72 63 65 2e 0d 0d 09 | 63 6c 72 2e 6c 09 2d 28 |urce....|clr.l.-(|
|00000a40| 73 70 29 0d 09 6d 6f 76 | 65 2e 6c 09 23 27 49 43 |sp)..mov|e.l.#'IC|
|00000a50| 4e 23 27 2c 2d 28 73 70 | 29 0d 09 6d 6f 76 65 2e |N#',-(sp|)..move.|
|00000a60| 77 09 69 63 6f 6e 49 44 | 28 61 36 29 2c 2d 28 73 |w.iconID|(a6),-(s|
|00000a70| 70 29 0d 09 5f 47 65 74 | 52 65 73 6f 75 72 63 65 |p).._Get|Resource|
|00000a80| 0d 09 6d 6f 76 65 2e 6c | 09 28 73 70 29 2b 2c 64 |..move.l|.(sp)+,d|
|00000a90| 30 0d 09 62 65 71 09 45 | 78 69 74 09 09 09 3b 20 |0..beq.E|xit...; |
|00000aa0| 69 66 20 65 72 72 6f 72 | 0d 09 6d 6f 76 65 2e 6c |if error|..move.l|
|00000ab0| 09 64 30 2c 61 30 0d 09 | 5f 48 4c 6f 63 6b 0d 09 |.d0,a0..|_HLock..|
|00000ac0| 6d 6f 76 65 2e 6c 09 61 | 30 2c 61 33 09 09 09 3b |move.l.a|0,a3...;|
|00000ad0| 20 28 61 33 29 20 3d 20 | 68 61 6e 64 6c 65 20 74 | (a3) = |handle t|
|00000ae0| 6f 20 49 43 4e 23 0d 09 | 09 0d 3b 20 49 6e 69 74 |o ICN#..|..; Init|
|00000af0| 69 61 6c 69 7a 65 20 51 | 75 69 63 6b 44 72 61 77 |ialize Q|uickDraw|
|00000b00| 20 61 6e 64 20 6f 70 65 | 6e 20 61 20 70 6f 72 74 | and ope|n a port|
|00000b10| 2e 0d 0d 09 6c 65 61 09 | 6c 6f 63 61 6c 41 35 28 |....lea.|localA5(|
|00000b20| 61 36 29 2c 61 35 0d 09 | 70 65 61 09 74 68 65 50 |a6),a5..|pea.theP|
|00000b30| 6f 72 74 28 61 36 29 0d | 09 5f 49 6e 69 74 47 72 |ort(a6).|._InitGr|
|00000b40| 61 66 0d 09 70 65 61 09 | 6d 79 50 6f 72 74 28 61 |af..pea.|myPort(a|
|00000b50| 36 29 0d 09 5f 4f 70 65 | 6e 50 6f 72 74 0d 09 0d |6).._Ope|nPort...|
|00000b60| 3b 20 47 65 74 20 28 6e | 65 77 48 29 20 3d 20 63 |; Get (n|ewH) = c|
|00000b70| 6f 6f 72 64 69 6e 61 74 | 65 20 6f 66 20 6c 65 66 |oordinat|e of lef|
|00000b80| 74 20 73 69 64 65 20 6f | 66 20 69 63 6f 6e 2e 20 |t side o|f icon. |
|00000b90| 20 54 68 65 20 70 72 65 | 76 69 6f 75 73 20 49 4e | The pre|vious IN|
|00000ba0| 49 54 0d 3b 20 28 69 66 | 20 61 6e 79 29 20 6d 61 |IT.; (if| any) ma|
|00000bb0| 79 20 6f 72 20 6d 61 79 | 20 6e 6f 74 20 68 61 76 |y or may| not hav|
|00000bc0| 65 20 6c 65 66 74 20 74 | 68 69 73 20 76 61 6c 75 |e left t|his valu|
|00000bd0| 65 20 69 6e 20 6e 65 77 | 48 20 66 6f 72 20 75 73 |e in new|H for us|
|00000be0| 2e 0d 3b 20 49 6e 20 61 | 6e 79 20 63 61 73 65 20 |..; In a|ny case |
|00000bf0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 61 |the foll|owing ma|
|00000c00| 67 69 63 20 6d 61 6b 65 | 73 20 73 75 72 65 20 69 |gic make|s sure i|
|00000c10| 74 27 73 20 63 6f 72 72 | 65 63 74 2e 0d 0d 09 6d |t's corr|ect....m|
|00000c20| 6f 76 65 2e 77 09 6e 65 | 77 48 2c 64 30 0d 09 72 |ove.w.ne|wH,d0..r|
|00000c30| 6f 6c 2e 77 09 23 31 2c | 64 30 0d 09 65 6f 72 2e |ol.w.#1,|d0..eor.|
|00000c40| 77 09 23 65 6f 72 4d 61 | 73 6b 2c 64 30 0d 09 63 |w.#eorMa|sk,d0..c|
|00000c50| 6d 70 2e 77 09 6e 65 77 | 43 68 65 63 6b 2c 64 30 |mp.w.new|Check,d0|
|00000c60| 0d 09 62 65 71 2e 73 09 | 4e 65 77 48 4f 4b 09 09 |..beq.s.|NewHOK..|
|00000c70| 3b 20 69 66 20 6e 65 77 | 20 53 68 6f 77 49 6e 69 |; if new| ShowIni|
|00000c80| 74 0d 09 63 6d 70 2e 6c | 09 23 6f 6c 64 4b 65 79 |t..cmp.l|.#oldKey|
|00000c90| 2c 6f 6c 64 43 68 65 63 | 6b 0d 09 62 65 71 2e 73 |,oldChec|k..beq.s|
|00000ca0| 09 4f 6c 64 48 4f 4b 09 | 09 3b 20 69 66 20 6f 6c |.OldHOK.|.; if ol|
|00000cb0| 64 20 53 68 6f 77 49 6e | 69 74 0d 09 6d 6f 76 65 |d ShowIn|it..move|
|00000cc0| 2e 77 09 23 38 2c 6e 65 | 77 48 09 09 3b 20 69 66 |.w.#8,ne|wH..; if|
|00000cd0| 20 77 65 27 72 65 20 74 | 68 65 20 66 69 72 73 74 | we're t|he first|
|00000ce0| 0d 09 62 72 61 2e 73 09 | 4e 65 77 48 4f 4b 0d 09 |..bra.s.|NewHOK..|
|00000cf0| 0d 4f 6c 64 48 4f 4b 3a | 0d 0d 09 6d 6f 76 65 2e |.OldHOK:|...move.|
|00000d00| 77 09 6f 6c 64 48 2c 6e | 65 77 48 0d 09 0d 4e 65 |w.oldH,n|ewH...Ne|
|00000d10| 77 48 4f 4b 3a 0d 0d 3b | 20 47 65 74 20 28 64 30 |wHOK:..;| Get (d0|
|00000d20| 29 20 3d 20 63 6f 6f 72 | 64 69 6e 61 74 65 73 20 |) = coor|dinates |
|00000d30| 6f 66 20 74 6f 70 20 6c | 65 66 74 20 63 6f 72 6e |of top l|eft corn|
|00000d40| 65 72 20 6f 66 20 69 63 | 6f 6e 2e 0d 0d 09 6c 65 |er of ic|on....le|
|00000d50| 61 09 6d 79 50 6f 72 74 | 28 61 36 29 2c 61 34 09 |a.myPort|(a6),a4.|
|00000d60| 09 3b 20 28 61 34 29 20 | 3d 20 70 74 72 20 74 6f |.; (a4) |= ptr to|
|00000d70| 20 6d 79 50 6f 72 74 0d | 09 6d 6f 76 65 2e 77 09 | myPort.|.move.w.|
|00000d80| 70 6f 72 74 42 6f 75 6e | 64 73 2b 62 6f 74 74 6f |portBoun|ds+botto|
|00000d90| 6d 28 61 34 29 2c 64 30 | 0d 09 73 75 62 2e 77 09 |m(a4),d0|..sub.w.|
|00000da0| 23 38 2b 33 32 2c 64 30 | 0d 09 73 77 61 70 09 64 |#8+32,d0|..swap.d|
|00000db0| 30 0d 09 6d 6f 76 65 2e | 77 09 6e 65 77 48 2c 64 |0..move.|w.newH,d|
|00000dc0| 30 0d 0d 3b 20 53 65 74 | 20 64 65 73 74 52 65 63 |0..; Set| destRec|
|00000dd0| 74 20 3d 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 |t = dest|ination |
|00000de0| 72 65 63 74 61 6e 67 6c | 65 20 6f 66 20 69 63 6f |rectangl|e of ico|
|00000df0| 6e 2e 0d 0d 09 6d 6f 76 | 65 2e 6c 09 64 30 2c 64 |n....mov|e.l.d0,d|
|00000e00| 65 73 74 52 65 63 74 28 | 61 36 29 0d 09 6d 6f 76 |estRect(|a6)..mov|
|00000e10| 65 2e 6c 09 64 30 2c 64 | 65 73 74 52 65 63 74 2b |e.l.d0,d|estRect+|
|00000e20| 62 6f 74 52 69 67 68 74 | 28 61 36 29 0d 09 61 64 |botRight|(a6)..ad|
|00000e30| 64 2e 6c 09 23 24 30 30 | 32 30 30 30 32 30 2c 64 |d.l.#$00|200020,d|
|00000e40| 65 73 74 52 65 63 74 2b | 62 6f 74 52 69 67 68 74 |estRect+|botRight|
|00000e50| 28 61 36 29 0d 09 0d 3b | 20 53 65 74 20 6d 79 42 |(a6)...;| Set myB|
|00000e60| 69 74 4d 61 70 20 3d 20 | 62 69 74 6d 61 70 20 66 |itMap = |bitmap f|
|00000e70| 6f 72 20 69 63 6f 6e 20 | 6d 61 73 6b 2e 0d 0d 09 |or icon |mask....|
|00000e80| 6d 6f 76 65 2e 6c 09 28 | 61 33 29 2c 61 30 09 09 |move.l.(|a3),a0..|
|00000e90| 09 3b 20 28 61 30 29 20 | 3d 20 70 74 72 20 74 6f |.; (a0) |= ptr to|
|00000ea0| 20 49 43 4e 23 0d 09 6c | 65 61 09 6d 79 42 69 74 | ICN#..l|ea.myBit|
|00000eb0| 4d 61 70 28 61 36 29 2c | 61 32 09 09 3b 20 28 61 |Map(a6),|a2..; (a|
|00000ec0| 32 29 20 3d 20 70 74 72 | 20 74 6f 20 6d 79 42 69 |2) = ptr| to myBi|
|00000ed0| 74 4d 61 70 0d 09 6d 6f | 76 65 2e 6c 09 61 30 2c |tMap..mo|ve.l.a0,|
|00000ee0| 62 61 73 65 41 64 64 72 | 28 61 32 29 09 09 3b 20 |baseAddr|(a2)..; |
|00000ef0| 62 61 73 65 41 64 64 72 | 20 3d 20 0d 09 61 64 64 |baseAddr| = ..add|
|00000f00| 2e 6c 09 23 31 32 38 2c | 62 61 73 65 41 64 64 72 |.l.#128,|baseAddr|
|00000f10| 28 61 32 29 09 3b 20 20 | 20 20 70 74 72 20 74 6f |(a2).;  |  ptr to|
|00000f20| 20 6d 61 73 6b 0d 09 6d | 6f 76 65 2e 77 09 23 34 | mask..m|ove.w.#4|
|00000f30| 2c 72 6f 77 42 79 74 65 | 73 28 61 32 29 09 09 3b |,rowByte|s(a2)..;|
|00000f40| 20 72 6f 77 62 79 74 65 | 73 20 3d 20 33 32 2f 38 | rowbyte|s = 32/8|
|00000f50| 20 62 79 74 65 73 0d 09 | 6d 6f 76 65 2e 6c 09 23 | bytes..|move.l.#|
|00000f60| 30 2c 62 6f 75 6e 64 73 | 28 61 32 29 09 09 3b 20 |0,bounds|(a2)..; |
|00000f70| 62 6f 75 6e 64 73 2e 74 | 6f 70 6c 65 66 74 20 3d |bounds.t|opleft =|
|00000f80| 20 30 2c 30 0d 09 6d 6f | 76 65 2e 6c 09 23 24 30 | 0,0..mo|ve.l.#$0|
|00000f90| 30 32 30 30 30 32 30 2c | 62 6f 75 6e 64 73 2b 62 |0200020,|bounds+b|
|00000fa0| 6f 74 52 69 67 68 74 28 | 61 32 29 0d 09 09 09 09 |otRight(|a2).....|
|00000fb0| 09 3b 20 62 6f 75 6e 64 | 73 2e 62 6f 74 72 69 67 |.; bound|s.botrig|
|00000fc0| 68 74 20 3d 20 33 32 2c | 33 32 0d 09 09 09 09 09 |ht = 32,|32......|
|00000fd0| 0d 3b 20 43 61 6c 6c 20 | 43 6f 70 79 42 69 74 73 |.; Call |CopyBits|
|00000fe0| 20 74 6f 20 65 72 61 73 | 65 20 6d 61 73 6b 20 28 | to eras|e mask (|
|00000ff0| 70 75 6e 63 68 20 68 6f | 6c 65 29 2e 0d 0d 09 6d |punch ho|le)....m|
|00001000| 6f 76 65 2e 6c 09 61 32 | 2c 2d 28 73 70 29 09 09 |ove.l.a2|,-(sp)..|
|00001010| 3b 20 73 72 63 42 69 74 | 73 0d 09 70 65 61 09 70 |; srcBit|s..pea.p|
|00001020| 6f 72 74 42 69 74 73 28 | 61 34 29 09 09 3b 20 64 |ortBits(|a4)..; d|
|00001030| 73 74 42 69 74 73 0d 09 | 70 65 61 09 73 72 63 52 |stBits..|pea.srcR|
|00001040| 65 63 74 09 09 09 3b 20 | 73 72 63 52 65 63 74 20 |ect...; |srcRect |
|00001050| 3d 20 30 2c 30 2c 33 32 | 2c 33 32 0d 09 70 65 61 |= 0,0,32|,32..pea|
|00001060| 09 64 65 73 74 52 65 63 | 74 28 61 36 29 09 09 3b |.destRec|t(a6)..;|
|00001070| 20 64 73 74 52 65 63 74 | 0d 09 6d 6f 76 65 2e 77 | dstRect|..move.w|
|00001080| 09 23 73 72 63 42 69 63 | 2c 2d 28 73 70 29 09 09 |.#srcBic|,-(sp)..|
|00001090| 3b 20 6d 6f 64 65 0d 09 | 63 6c 72 2e 6c 09 2d 28 |; mode..|clr.l.-(|
|000010a0| 73 70 29 09 09 09 3b 20 | 6d 61 73 6b 52 67 6e 0d |sp)...; |maskRgn.|
|000010b0| 09 5f 43 6f 70 79 42 69 | 74 73 0d 0d 3b 20 53 65 |._CopyBi|ts..; Se|
|000010c0| 74 20 6d 79 42 69 74 4d | 61 70 20 3d 20 62 69 74 |t myBitM|ap = bit|
|000010d0| 6d 61 70 20 66 6f 72 20 | 69 63 6f 6e 20 70 72 6f |map for |icon pro|
|000010e0| 70 65 72 2e 0d 0d 09 73 | 75 62 2e 6c 09 23 31 32 |per....s|ub.l.#12|
|000010f0| 38 2c 62 61 73 65 41 64 | 64 72 28 61 32 29 09 3b |8,baseAd|dr(a2).;|
|00001100| 20 62 61 73 65 41 64 64 | 72 20 3d 20 70 74 72 20 | baseAdd|r = ptr |
|00001110| 74 6f 20 69 63 6f 6e 0d | 09 0d 3b 20 43 61 6c 6c |to icon.|..; Call|
|00001120| 20 43 6f 70 79 42 69 74 | 73 20 74 6f 20 64 72 61 | CopyBit|s to dra|
|00001130| 77 20 69 63 6f 6e 20 6f | 76 65 72 20 6d 61 73 6b |w icon o|ver mask|
|00001140| 2e 0d 0d 09 6d 6f 76 65 | 2e 6c 09 61 32 2c 2d 28 |....move|.l.a2,-(|
|00001150| 73 70 29 09 09 3b 20 73 | 72 63 42 69 74 73 0d 09 |sp)..; s|rcBits..|
|00001160| 70 65 61 09 70 6f 72 74 | 42 69 74 73 28 61 34 29 |pea.port|Bits(a4)|
|00001170| 09 09 3b 20 64 73 74 42 | 69 74 73 0d 09 70 65 61 |..; dstB|its..pea|
|00001180| 09 73 72 63 52 65 63 74 | 09 09 09 3b 20 73 72 63 |.srcRect|...; src|
|00001190| 52 65 63 74 20 3d 20 30 | 2c 30 2c 33 32 2c 33 32 |Rect = 0|,0,32,32|
|000011a0| 0d 09 70 65 61 09 64 65 | 73 74 52 65 63 74 28 61 |..pea.de|stRect(a|
|000011b0| 36 29 09 09 3b 20 64 73 | 74 52 65 63 74 0d 09 6d |6)..; ds|tRect..m|
|000011c0| 6f 76 65 2e 77 09 23 73 | 72 63 4f 72 2c 2d 28 73 |ove.w.#s|rcOr,-(s|
|000011d0| 70 29 09 09 3b 20 6d 6f | 64 65 0d 09 63 6c 72 2e |p)..; mo|de..clr.|
|000011e0| 6c 09 2d 28 73 70 29 09 | 09 09 3b 20 6d 61 73 6b |l.-(sp).|..; mask|
|000011f0| 52 67 6e 0d 09 5f 43 6f | 70 79 42 69 74 73 0d 09 |Rgn.._Co|pyBits..|
|00001200| 0d 3b 20 55 70 64 61 74 | 65 20 6e 65 77 48 20 61 |.; Updat|e newH a|
|00001210| 6e 64 20 6e 65 77 43 68 | 65 63 6b 20 66 6f 72 20 |nd newCh|eck for |
|00001220| 6e 65 78 74 20 69 63 6f | 6e 2e 0d 0d 09 6d 6f 76 |next ico|n....mov|
|00001230| 65 2e 77 09 6e 65 77 48 | 2c 64 30 0d 09 61 64 64 |e.w.newH|,d0..add|
|00001240| 2e 77 09 23 68 4f 66 66 | 73 65 74 2c 64 30 0d 09 |.w.#hOff|set,d0..|
|00001250| 6d 6f 76 65 2e 77 09 64 | 30 2c 6e 65 77 48 0d 09 |move.w.d|0,newH..|
|00001260| 72 6f 6c 2e 77 09 23 31 | 2c 64 30 0d 09 65 6f 72 |rol.w.#1|,d0..eor|
|00001270| 2e 77 09 23 65 6f 72 4d | 61 73 6b 2c 64 30 0d 09 |.w.#eorM|ask,d0..|
|00001280| 6d 6f 76 65 2e 77 09 64 | 30 2c 6e 65 77 43 68 65 |move.w.d|0,newChe|
|00001290| 63 6b 0d 09 0d 3b 20 43 | 6c 6f 73 65 20 74 68 65 |ck...; C|lose the|
|000012a0| 20 67 72 61 66 70 6f 72 | 74 2e 0d 0d 09 70 65 61 | grafpor|t....pea|
|000012b0| 09 6d 79 50 6f 72 74 28 | 61 36 29 0d 09 5f 43 6c |.myPort(|a6).._Cl|
|000012c0| 6f 73 65 50 6f 72 74 0d | 09 0d 3b 20 52 65 6c 65 |osePort.|..; Rele|
|000012d0| 61 73 65 20 74 68 65 20 | 49 43 4e 23 20 72 65 73 |ase the |ICN# res|
|000012e0| 6f 75 72 63 65 2e 0d 0d | 09 6d 6f 76 65 2e 6c 09 |ource...|.move.l.|
|000012f0| 61 33 2c 2d 28 73 70 29 | 0d 09 5f 52 65 6c 65 61 |a3,-(sp)|.._Relea|
|00001300| 73 65 52 65 73 6f 75 72 | 63 65 0d 09 0d 3b 20 45 |seResour|ce...; E|
|00001310| 78 69 74 2e 0d 0d 45 78 | 69 74 3a 0d 09 0d 09 6d |xit...Ex|it:....m|
|00001320| 6f 76 65 6d 2e 6c 09 28 | 73 70 29 2b 2c 61 32 2d |ovem.l.(|sp)+,a2-|
|00001330| 61 35 09 09 3b 20 72 65 | 73 74 6f 72 65 20 72 65 |a5..; re|store re|
|00001340| 67 69 73 74 65 72 73 0d | 09 75 6e 6c 6b 09 61 36 |gisters.|.unlk.a6|
|00001350| 09 09 09 3b 20 75 6e 6c | 69 6e 6b 0d 09 6d 6f 76 |...; unl|ink..mov|
|00001360| 65 2e 6c 09 28 73 70 29 | 2b 2c 61 30 09 09 3b 20 |e.l.(sp)|+,a0..; |
|00001370| 72 65 74 75 72 6e 20 61 | 64 64 72 65 73 73 0d 09 |return a|ddress..|
|00001380| 61 64 64 2e 6c 09 23 32 | 2c 73 70 09 09 09 3b 20 |add.l.#2|,sp...; |
|00001390| 67 65 74 20 72 69 64 20 | 6f 66 20 70 61 72 61 6d |get rid |of param|
|000013a0| 0d 09 6a 6d 70 09 28 61 | 30 29 09 09 09 3b 20 72 |..jmp.(a|0)...; r|
|000013b0| 65 74 75 72 6e 0d 09 0d | 73 72 63 52 65 63 74 09 |eturn...|srcRect.|
|000013c0| 64 63 2e 77 09 30 2c 30 | 2c 33 32 2c 33 32 0d 0d |dc.w.0,0|,32,32..|
|000013d0| 09 65 6e 64 77 69 74 68 | 0d 09 0d 09 65 6e 64 70 |.endwith|....endp|
|000013e0| 72 6f 63 0d 09 0d 09 65 | 6e 64 0d 0d 09 0d 09 09 |roc....e|nd......|
|000013f0| 0d 09 0d 09 09 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001410| 61 2e 73 09 53 63 72 61 | 74 63 68 4f 4b 0d 09 0d |a.s.Scra|tchOK...|
|00001420| 4f 6c 64 53 63 72 61 74 | 63 68 4f 4b 3a 0d 0d 09 |OldScrat|chOK:...|
|00001430| 0a 53 68 6f 77 49 6e 69 | 74 2e 61 49 02 00 00 00 |.ShowIni|t.aI....|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001470| 00 00 a0 bc 30 3c 00 00 | 00 00 00 00 01 7e 63 6f |....0<..|.....~co|
|00001480| 6e 2e 0d 0d 09 6c 65 61 | 09 6d 79 50 6f 72 74 28 |n....lea|.myPort(|
|00001490| 61 36 29 2c 61 30 0d 09 | 6d 6f 76 65 2e 77 09 70 |a6),a0..|move.w.p|
|000014a0| 6f 72 74 42 6f 75 6e 64 | 73 2b 62 6f 74 74 6f 6d |ortBound|s+bottom|
|000014b0| 28 61 30 29 2c 64 30 0d | 09 73 75 62 2e 77 09 23 |(a0),d0.|.sub.w.#|
|000014c0| 38 2b 34 30 2c 64 30 0d | 09 73 77 61 70 09 64 30 |8+40,d0.|.swap.d0|
|000014d0| 0d 09 6d 6f 76 65 2e 77 | 09 6d 79 48 2c 64 30 0d |..move.w|.myH,d0.|
|000014e0| 0d 3b 20 53 65 74 20 64 | 65 73 74 52 65 63 74 20 |.; Set d|estRect |
|000014f0| 3d 20 64 65 73 74 69 6e | 61 74 69 6f 6e 20 72 65 |= destin|ation re|
|00001500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 5f 5f 5f |...H..Mo|naco.___|
|00001510| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00001520| 5f 5f 5f 5f 5f 5f 00 06 | 00 08 00 3c 00 47 01 4f |______..|...<.G.O|
|00001530| 01 f4 00 3c 00 47 01 4f | 01 f4 9f 8c ff 65 00 00 |...<.G.O|.....e..|
|00001540| 11 f2 00 00 11 f2 00 00 | 10 df 01 00 00 00 01 00 |........|........|
|00001550| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 10 54 cc |...L...L|...2..T.|
|00001560| 04 c8 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00001570| 00 0a 03 ed ff ff 00 00 | 00 00 00 11 58 1e 00 00 |........|....X...|
+--------+-------------------------+-------------------------+--------+--------+