CSECT text INCLUDE "exec/types.i" INCLUDE "graphics/gfx.i" XDEF _killcolor ; tell blink where killcolor is XREF __base ; holds bottom of stack address XREF __xcovf ; stack overflow abort function XREF _BltBitMap ; ? #pragma commented out in proto | 0000 4E 55 FF D2 LINK A5,#FFD2 | 0004 BF EC 00 00-XX.2 CMPA.L __base(A4),A7 | 0008 65 00 00 00-XX.1 BCS.W __xcovf | 000C 48 E7 2F 30 MOVEM.L D2/D4-D7/A2-A3,-(A7) | 0010 26 6F 00 52 MOVEA.L 0052(A7),A3 | 0014 3E 2F 00 58 MOVE.W 0058(A7),D7 | 0018 24 6F 00 5A MOVEA.L 005A(A7),A2 | 001C 3C 2F 00 60 MOVE.W 0060(A7),D6 | 0020 20 4B MOVEA.L A3,A0 | 0022 43 ED FF D2 LEA FFD2(A5),A1 | 0026 70 09 MOVEQ #09,D0 | 0028 22 D8 MOVE.L (A0)+,(A1)+ | 002A 51 C8 FF FC DBF D0,0028 | 002E 1B 7C 00 01 FF D7 MOVE.B #01,FFD7(A5) | 0034 08 07 00 00 BTST #0000,D7 | 0038 67 06 BEQ.B 0040 | 003A 70 60 MOVEQ #60,D0 | 003C D0 80 ADD.L D0,D0 | 003E 60 02 BRA.B 0042 | 0040 70 30 MOVEQ #30,D0 | 0042 28 00 MOVE.L D0,D4 | 0044 70 00 MOVEQ #00,D0 | 0046 10 04 MOVE.B D4,D0 | 0048 42 A7 CLR.L -(A7) | 004A 48 78 00 01 PEA 0001 | 004E 2F 00 MOVE.L D0,-(A7) | 0050 48 78 00 C8 PEA 00C8 | 0054 48 78 01 40 PEA 0140 | 0058 72 00 MOVEQ #00,D1 | 005A 2F 01 MOVE.L D1,-(A7) | 005C 2F 01 MOVE.L D1,-(A7) | 005E 2F 0A MOVE.L A2,-(A7) | 0060 2F 01 MOVE.L D1,-(A7) | 0062 2F 01 MOVE.L D1,-(A7) | 0064 48 6D FF D2 PEA FFD2(A5) | 0068 4E BA 00 00-XX.1 JSR _BltBitMap(PC) | 006C 4F EF 00 2C LEA 002C(A7),A7 | 0070 7A 01 MOVEQ #01,D5 | 0072 70 00 MOVEQ #00,D0 | 0074 10 2B 00 05 MOVE.B 0005(A3),D0 | 0078 BA 80 CMP.L D0,D5 | 007A 6C 4E BGE.B 00CA | 007C 20 05 MOVE.L D5,D0 | 007E E5 80 ASL.L #2,D0 | 0080 2B 73 08 08 FF DA MOVE.L 08(A3,D0.L),FFDA(A5) | 0086 70 01 MOVEQ #01,D0 | 0088 22 00 MOVE.L D0,D1 | 008A EB A1 ASL.L D5,D1 | 008C 24 07 MOVE.L D7,D2 | 008E C4 41 AND.W D1,D2 | 0090 67 06 BEQ.B 0098 | 0092 72 44 MOVEQ #44,D1 | 0094 D2 81 ADD.L D1,D1 | 0096 60 02 BRA.B 009A | 0098 72 22 MOVEQ #22,D1 | 009A 28 01 MOVE.L D1,D4 | 009C 72 00 MOVEQ #00,D1 | 009E 12 04 MOVE.B D4,D1 | 00A0 42 A7 CLR.L -(A7) | 00A2 2F 00 MOVE.L D0,-(A7) | 00A4 2F 01 MOVE.L D1,-(A7) | 00A6 48 78 00 C8 PEA 00C8 | 00AA 48 78 01 40 PEA 0140 | 00AE 74 00 MOVEQ #00,D2 | 00B0 2F 02 MOVE.L D2,-(A7) | 00B2 2F 02 MOVE.L D2,-(A7) | 00B4 2F 0A MOVE.L A2,-(A7) | 00B6 2F 02 MOVE.L D2,-(A7) | 00B8 2F 02 MOVE.L D2,-(A7) | 00BA 48 6D FF D2 PEA FFD2(A5) | 00BE 4E BA 00 00-XX.1 JSR _BltBitMap(PC) | 00C2 4F EF 00 2C LEA 002C(A7),A7 | 00C6 52 85 ADDQ.L #1,D5 | 00C8 60 A8 BRA.B 0072 | 00CA 7A 00 MOVEQ #00,D5 | 00CC 70 00 MOVEQ #00,D0 | 00CE 10 2B 00 05 MOVE.B 0005(A3),D0 | 00D2 BA 80 CMP.L D0,D5 | 00D4 6C 4E BGE.B 0124 | 00D6 20 05 MOVE.L D5,D0 | 00D8 E5 80 ASL.L #2,D0 | 00DA 2B 73 08 08 FF DA MOVE.L 08(A3,D0.L),FFDA(A5) | 00E0 70 01 MOVEQ #01,D0 | 00E2 22 00 MOVE.L D0,D1 | 00E4 EB A1 ASL.L D5,D1 | 00E6 24 06 MOVE.L D6,D2 | 00E8 C4 41 AND.W D1,D2 | 00EA 67 06 BEQ.B 00F2 | 00EC 72 77 MOVEQ #77,D1 | 00EE D2 81 ADD.L D1,D1 | 00F0 60 02 BRA.B 00F4 | 00F2 72 22 MOVEQ #22,D1 | 00F4 28 01 MOVE.L D1,D4 | 00F6 72 00 MOVEQ #00,D1 | 00F8 12 04 MOVE.B D4,D1 | 00FA 42 A7 CLR.L -(A7) | 00FC 2F 00 MOVE.L D0,-(A7) | 00FE 2F 01 MOVE.L D1,-(A7) | 0100 48 78 00 C8 PEA 00C8 | 0104 48 78 01 40 PEA 0140 | 0108 74 00 MOVEQ #00,D2 | 010A 2F 02 MOVE.L D2,-(A7) | 010C 2F 02 MOVE.L D2,-(A7) | 010E 48 6D FF D2 PEA FFD2(A5) | 0112 2F 02 MOVE.L D2,-(A7) | 0114 2F 02 MOVE.L D2,-(A7) | 0116 2F 0A MOVE.L A2,-(A7) | 0118 4E BA 00 00-XX.1 JSR _BltBitMap(PC) | 011C 4F EF 00 2C LEA 002C(A7),A7 | 0120 52 85 ADDQ.L #1,D5 | 0122 60 A8 BRA.B 00CC | 0124 4C DF 0C F4 MOVEM.L (A7)+,D2/D4-D7/A2-A3 | 0128 4E 5D UNLK A5 | 012A 4E 75 RTS