150A: QUAL proc11 ; b# =30 s#1 =proc11 val_1 VEQU -364 val_2 VEQU -158 val_3 VEQU -152 val_4 VEQU -148 val_5 VEQU -142 val_6 VEQU -40 val_7 VEQU -36 val_8 VEQU -34 val_9 VEQU -32 val_10 VEQU -30 val_11 VEQU -28 val_12 VEQU -26 val_13 VEQU -24 val_14 VEQU -22 val_15 VEQU -20 val_16 VEQU -18 val_17 VEQU -16 val_18 VEQU -14 val_19 VEQU -12 val_20 VEQU -8 param2 VEQU 8 param1 VEQU 12 150A: VEND ;-refs - Ptch128 150A: 4E56 FE94 'NV..' proc11 LINK A6,#-$16C 150E: 48E7 1F38 'H..8' MOVEM.L D3-D7/A2-A4,-(A7) 1512: 246E 0008 2000008 MOVEA.L param2(A6),A2 1516: 362A 000E '6*..' MOVE 14(A2),D3 151A: 0C43 0108 '.C..' CMPI #$108,D3 151E: 6708 1001528 BEQ.S lal_1 1520: 0C43 010C '.C..' CMPI #$10C,D3 1524: 6500 0326 100184C BLO lal_20 1528: 486E FFD8 200FFD8 lal_1 PEA val_6(A6) 152C: A874 '.t' _GetPort ; (VAR port:GrafPtr) 152E: 486E FF68 200FF68 PEA val_3(A6) 1532: 21DF 0904 $904 POP.L CurrentA5 1536: 200D ' .' MOVE.L A5,D0 1538: 2A78 0904 $904 MOVEA.L CurrentA5,A5 153C: 2D40 FE94 200FE94 MOVE.L D0,val_1(A6) 1540: 47EE FF62 200FF62 LEA val_2(A6),A3 1544: 2D4B FF68 200FF68 MOVE.L A3,val_3(A6) 1548: 486E FF62 200FF62 PEA val_2(A6) 154C: A86E '.n' _InitGraf ; (globalPtr:Ptr) 154E: 486E FF6C 200FF6C PEA val_4(A6) 1552: AA00 '..' _XOpenCPort ; (port:CGrafPtr) 1554: 594F 'YO' SUBQ #4,A7 1556: AA2A '.*' _GetMainDevice ; :GDHandle 1558: 285F '(_' POP.L A4 155A: 2654 '&T' MOVEA.L (A4),A3 155C: 3A2B 0028 ':+.(' MOVE 40(A3),D5 1560: 9A6B 0024 '.k.$' SUB 36(A3),D5 1564: 3C2B 0026 '<+.&' MOVE 38(A3),D6 1568: 9C6B 0022 '.k."' SUB 34(A3),D6 156C: 383C 0080 '8<..' MOVE #$80,D4 1570: 302A 000E '0*..' MOVE 14(A2),D0 1574: 0C40 010C '.@..' CMPI #$10C,D0 1578: 6514 100158E BLO.S lal_3 157A: 5444 'TD' ADDQ #2,D4 157C: 362E 000C 200000C MOVE param1(A6),D3 1580: 7002 'p.' MOVEQ #2,D0 1582: B640 '.@' CMP.W D0,D3 1584: 6706 100158C BEQ.S lal_2 1586: 7003 'p.' MOVEQ #3,D0 1588: B640 '.@' CMP.W D0,D3 158A: 6602 100158E BNE.S lal_3 158C: 5444 'TD' lal_2 ADDQ #2,D4 158E: 203C 7379 7376 ' .' POP D7 15C2: 4267 'Bg' CLR -(A7) 15C4: A998 '..' _UseResFile ; (frefNum:RefNum) 15C6: 594F 'YO' SUBQ #4,A7 15C8: 363C 0258 '6<.X' MOVE #$258,D3 15CC: BA43 '.C' CMP.W D3,D5 15CE: 6308 10015D8 BLS.S lal_6 15D0: 203C FFFF BF86 ' <....' MOVE.L #-$407A,D0 15D6: 6006 10015DE BRA.S lal_7 15D8: 203C FFFF BF89 ' <.... lal_6 MOVE.L #-$4077,D0 15DE: 3F00 '?.' lal_7 PUSH D0 15E0: A9BC '..' _GetPicture ; (picID:INTEGER):PicHandle 15E2: 285F '(_' POP.L A4 15E4: 4A8C 'J.' TST.L A4 15E6: 662C 1001614 BNE.S lal_10 15E8: 594F 'YO' SUBQ #4,A7 15EA: BA43 '.C' CMP.W D3,D5 15EC: 6308 10015F6 BLS.S lal_8 15EE: 203C FFFF BF88 ' <....' MOVE.L #-$4078,D0 15F4: 6006 10015FC BRA.S lal_9 15F6: 203C FFFF BF8B ' <.... lal_8 MOVE.L #-$4075,D0 15FC: 3F00 '?.' lal_9 PUSH D0 15FE: A9BC '..' _GetPicture ; (picID:INTEGER):PicHandle 1600: 285F '(_' POP.L A4 1602: 4A8C 'J.' TST.L A4 1604: 6700 0228 100182E BEQ lal_19 1608: 302E FF72 200FF72 MOVE val_5(A6),D0 160C: 0240 C000 '.@..' ANDI #$C000,D0 1610: 6702 1001614 BEQ.S lal_10 1612: 5244 'RD' ADDQ #1,D4 1614: 3F07 '?.' lal_10 PUSH D7 1616: A998 '..' _UseResFile ; (frefNum:RefNum) 1618: 7000 'p.' MOVEQ #0,D0 161A: 3006 '0.' MOVE D6,D0 161C: 2454 '$T' MOVEA.L (A4),A2 161E: 322A 0006 '2*..' MOVE 6(A2),D1 1622: 48C1 'H.' EXT.L D1 1624: 342A 0002 '4*..' MOVE 2(A2),D2 1628: 48C2 'H.' EXT.L D2 162A: 9282 '..' SUB.L D2,D1 162C: 9081 '..' SUB.L D1,D0 162E: 6A02 1001632 BPL.S lal_11 1630: 5280 'R.' ADDQ.L #1,D0 1632: E280 '..' lal_11 ASR.L #1,D0 1634: 3D40 FFDC 200FFDC MOVE D0,val_7(A6) 1638: 3200 '2.' MOVE D0,D1 163A: 48C1 'H.' EXT.L D1 163C: D281 '..' ADD.L D1,D1 163E$ 4C7C 1801 0000 'L|....' DIVS.L #5,D1 1646: 936E FFDC 200FFDC SUB D1,val_7(A6) 164A: 2454 '$T' MOVEA.L (A4),A2 164C: 302A 0006 '0*..' MOVE 6(A2),D0 1650: 906A 0002 '.j..' SUB 2(A2),D0 1654: 5340 'S@' SUBQ #1,D0 1656: D16E FFDC 200FFDC ADD D0,val_7(A6) 165A: 7000 'p.' MOVEQ #0,D0 165C: 3005 '0.' MOVE D5,D0 165E: 2454 '$T' MOVEA.L (A4),A2 1660: 322A 0008 '2*..' MOVE 8(A2),D1 1664: 48C1 'H.' EXT.L D1 1666: 342A 0004 '4*..' MOVE 4(A2),D2 166A: 48C2 'H.' EXT.L D2 166C: 9282 '..' SUB.L D2,D1 166E: 9081 '..' SUB.L D1,D0 1670: 6A02 1001674 BPL.S lal_12 1672: 5280 'R.' ADDQ.L #1,D0 1674: E280 '..' lal_12 ASR.L #1,D0 1676: 3D40 FFDE 200FFDE MOVE D0,val_8(A6) 167A: 594F 'YO' SUBQ #4,A7 167C: 3F04 '?.' PUSH D4 167E: A9BC '..' _GetPicture ; (picID:INTEGER):PicHandle 1680: 285F '(_' POP.L A4 1682: 2454 '$T' MOVEA.L (A4),A2 1684: 302A 0006 '0*..' MOVE 6(A2),D0 1688: 906A 0002 '.j..' SUB 2(A2),D0 168C: D06E FFDC 200FFDC ADD val_7(A6),D0 1690: 3D40 FFE0 200FFE0 MOVE D0,val_9(A6) 1694: 2454 '$T' MOVEA.L (A4),A2 1696: 302A 0008 '0*..' MOVE 8(A2),D0 169A: 906A 0004 '.j..' SUB 4(A2),D0 169E: D06E FFDE 200FFDE ADD val_8(A6),D0 16A2: 3D40 FFE2 200FFE2 MOVE D0,val_10(A6) 16A6: 6000 0082 100172A BRA lal_16 16AA: 594F 'YO' lal_13 SUBQ #4,A7 16AC: 700C 'p.' MOVEQ #12,D0 16AE: D044 '.D' ADD D4,D0 16B0: 3F00 '?.' PUSH D0 16B2: A9BC '..' _GetPicture ; (picID:INTEGER):PicHandle 16B4: 285F '(_' POP.L A4 16B6: 4A8C 'J.' TST.L A4 16B8: 6700 0174 100182E BEQ lal_19 16BC: 709C 'p.' MOVEQ #-$64,D0 16BE: 7200 'r.' MOVEQ #0,D1 16C0: 3206 '2.' MOVE D6,D1 16C2: D081 '..' ADD.L D1,D0 16C4: 6A02 10016C8 BPL.S lal_14 16C6: 5280 'R.' ADDQ.L #1,D0 16C8: E280 '..' lal_14 ASR.L #1,D0 16CA: 3D40 FFDC 200FFDC MOVE D0,val_7(A6) 16CE: 3200 '2.' MOVE D0,D1 16D0: 48C1 'H.' EXT.L D1 16D2: D281 '..' ADD.L D1,D1 16D4$ 4C7C 1801 0000 'L|....' DIVS.L #5,D1 16DC: 936E FFDC 200FFDC SUB D1,val_7(A6) 16E0: 066E 0064 FFDC 200FFDC ADDI #$64,val_7(A6) 16E6: 7000 'p.' MOVEQ #0,D0 16E8: 3005 '0.' MOVE D5,D0 16EA: 2454 '$T' MOVEA.L (A4),A2 16EC: 322A 0008 '2*..' MOVE 8(A2),D1 16F0: 48C1 'H.' EXT.L D1 16F2: 342A 0004 '4*..' MOVE 4(A2),D2 16F6: 48C2 'H.' EXT.L D2 16F8: 9282 '..' SUB.L D2,D1 16FA: 9081 '..' SUB.L D1,D0 16FC: 6A02 1001700 BPL.S lal_15 16FE: 5280 'R.' ADDQ.L #1,D0 1700: E280 '..' lal_15 ASR.L #1,D0 1702: 3D40 FFDE 200FFDE MOVE D0,val_8(A6) 1706: 2454 '$T' MOVEA.L (A4),A2 1708: 302A 0006 '0*..' MOVE 6(A2),D0 170C: 906A 0002 '.j..' SUB 2(A2),D0 1710: D06E FFDC 200FFDC ADD val_7(A6),D0 1714: 3D40 FFE0 200FFE0 MOVE D0,val_9(A6) 1718: 2454 '$T' MOVEA.L (A4),A2 171A: 302A 0008 '0*..' MOVE 8(A2),D0 171E: 906A 0004 '.j..' SUB 4(A2),D0 1722: D06E FFDE 200FFDE ADD val_8(A6),D0 1726: 3D40 FFE2 200FFE2 MOVE D0,val_10(A6) 172A: 2F0C '/.' lal_16 PUSH.L A4 172C: 486E FFDC 200FFDC PEA val_7(A6) 1730: A8F6 '..' _DrawPicture ; (myPicture:PicHandle; dstRect:Rect) 1732: 302E FFE2 200FFE2 MOVE val_10(A6),D0 1736: 5940 'Y@' SUBQ #4,D0 1738: 3F00 '?.' PUSH D0 173A: 302E FFE0 200FFE0 MOVE val_9(A6),D0 173E: 5940 'Y@' SUBQ #4,D0 1740: 3F00 '?.' PUSH D0 1742: 486E FFF8 200FFF8 PEA val_20(A6) 1746: AA17 '..' _GetCPixel ; (h,v:INTEGER; VAR cPix:RGBColor) 1748: 486E FFF8 200FFF8 PEA val_20(A6) 174C: AA15 '..' _RGBBackColor ; (color:RGBColor) 174E: 0CAE 0000 0751 200FFF4 CMPI.L #$751,val_19(A6) 1756: 6F00 00D6 100182E BLE lal_19 175A: 383C 0092 '8<..' MOVE #$92,D4 175E: 302E FF72 200FF72 MOVE val_5(A6),D0 1762: 0240 C000 '.@..' ANDI #$C000,D0 1766: 6602 100176A BNE.S lal_17 1768: 5244 'RD' ADDQ #1,D4 176A: 2F0C '/.' lal_17 PUSH.L A4 176C: A9A3 '..' _ReleaseResource ; (theResource:Handle) 176E: 594F 'YO' SUBQ #4,A7 1770: 3F04 '?.' PUSH D4 1772: A9BC '..' _GetPicture ; (picID:INTEGER):PicHandle 1774: 285F '(_' POP.L A4 1776: 2454 '$T' MOVEA.L (A4),A2 1778: 3D6A 0002 FFE4 200FFE4 MOVE 2(A2),val_11(A6) 177E: 3D6A 0004 FFE6 200FFE6 MOVE 4(A2),val_12(A6) 1784: 3D6A 0006 FFE8 200FFE8 MOVE 6(A2),val_13(A6) 178A: 302A 0008 '0*..' MOVE 8(A2),D0 178E: 3D40 FFEA 200FFEA MOVE D0,val_14(A6) 1792: 322E FFE0 200FFE0 MOVE val_9(A6),D1 1796: 5941 'YA' SUBQ #4,D1 1798: 3D41 FFF0 200FFF0 MOVE D1,val_17(A6) 179C: 342E FFE8 200FFE8 MOVE val_13(A6),D2 17A0: 946E FFE4 200FFE4 SUB val_11(A6),D2 17A4: 9242 '.B' SUB D2,D1 17A6: 3D41 FFEC 200FFEC MOVE D1,val_15(A6) 17AA: 7240 'r@' MOVEQ #64,D1 17AC: D26E FFDE 200FFDE ADD val_8(A6),D1 17B0: 3D41 FFEE 200FFEE MOVE D1,val_16(A6) 17B4: 906E FFE6 200FFE6 SUB val_12(A6),D0 17B8: D041 '.A' ADD D1,D0 17BA: 3D40 FFF2 200FFF2 MOVE D0,val_18(A6) 17BE: 2F0C '/.' PUSH.L A4 17C0: 486E FFEC 200FFEC PEA val_15(A6) 17C4: A8F6 '..' _DrawPicture ; (myPicture:PicHandle; dstRect:Rect) 17C6: 594F 'YO' SUBQ #4,A7 17C8: A8D8 '..' _NewRgn ; :RgnHandle 17CA: 265F '&_' POP.L A3 17CC: 594F 'YO' SUBQ #4,A7 17CE: A975 '.u' _TickCount ; :LongInt 17D0: 2E1F '..' POP.L D7 17D2: 4245 'BE' CLR D5 17D4: 7C00 '|.' MOVEQ #0,D6 17D6: 362E FFE2 200FFE2 MOVE val_10(A6),D3 17DA: 966E FFF2 200FFF2 SUB val_18(A6),D3 17DE: 5143 'QC' SUBQ #8,D3 17E0: 0283 0000 FFFF '......' ANDI.L #$FFFF,D3 17E6: 594F 'YO' lal_18 SUBQ #4,A7 17E8: A975 '.u' _TickCount ; :LongInt 17EA: 201F ' .' POP.L D0 17EC: B087 '..' CMP.L D7,D0 17EE: 63F6 10017E6 BLS lal_18 17F0: 5287 'R.' ADDQ.L #1,D7 17F2: 5245 'RE' ADDQ #1,D5 17F4: 7800 'x.' MOVEQ #0,D4 17F6: 3805 '8.' MOVE D5,D4 17F8$ 4C03 4804 'L.H.' MULS.L D3,D4 17FC$ 4C7C 4804 0000 'L|H...' DIVS.L #15,D4 1804: 7000 'p.' MOVEQ #0,D0 1806: 3006 '0.' MOVE D6,D0 1808: 9880 '..' SUB.L D0,D4 180A: DC44 '.D' ADD D4,D6 180C: D96E FFF2 200FFF2 ADD D4,val_18(A6) 1810: 486E FFEC 200FFEC PEA val_15(A6) 1814: 3F04 '?.' PUSH D4 1816: 4267 'Bg' CLR -(A7) 1818: 2F0B '/.' PUSH.L A3 181A: A8EF '..' _ScrollRect ; (dstRect:Rect; dh,dv:INTEGER; updateRgn:RgnHandle) 181C: 2F0B '/.' PUSH.L A3 181E: A8DD '..' _SetEmptyRgn ; (rgn:RgnHandle) 1820: D96E FFEE 200FFEE ADD D4,val_16(A6) 1824: 0C45 000F '.E..' CMPI #15,D5 1828: 65BC 10017E6 BLO lal_18 182A: 2F0B '/.' PUSH.L A3 182C: A8D9 '..' _DisposRgn ; (rgn:RgnHandle) 182E: 2F0C '/.' lal_19 PUSH.L A4 1830: A9A3 '..' _ReleaseResource ; (theResource:Handle) 1832: 2F2E FF62 200FF62 PUSH.L val_2(A6) 1836: AA02 '..' _CloseCPort ; (port:CGrafPtr) 1838: 2F2E FE94 200FE94 PUSH.L val_1(A6) 183C: 21DF 0904 $904 POP.L CurrentA5 1840: 200D ' .' MOVE.L A5,D0 1842: 2A78 0904 $904 MOVEA.L CurrentA5,A5 1846: 2F2E FFD8 200FFD8 PUSH.L val_6(A6) 184A: A873 '.s' _SetPort ; (port:GrafPtr) 184C: 4CDF 1CF8 'L...' lal_20 MOVEM.L (A7)+,D3-D7/A2-A4 1850: 4E5E 'N^' UNLK A6 1852: 4E75 'Nu' RTS