ECIPLASMA.SRC
FILE INFORMATION
FILENAME(S): ECIPLASMA.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 01:13:04
APPEARS ON: 1 disk(s)
FILE HASH
955c1f2cfb655df8345b26585798efa20a8c2f0f807f503e602db1e3eecb1e48
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10308 SEITE A | ECIPLASMA.SRC | PRG | C64er | 7 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 05 0E 8E 90 06 01 16 00 16 00 00 00 13 08 05 FF |................| 00000010: 00 00 23 01 62 87 00 05 06 F0 F0 00 00 00 00 00 |..#.b...........| 00000020: 00 00 00 00 00 00 00 00 10 01 BE 00 80 00 10 01 |................| 00000030: 4C 00 E2 00 4C 00 38 00 E2 00 EE 00 1A 01 BD 00 |L...L.8.........| 00000040: 43 4F 4C 4F 52 20 54 41 53 20 20 30 30 30 20 00 |COLOR TAS 000 .| 00000050: 7F 00 00 00 00 00 00 00 00 00 0B 2E 54 45 58 54 |............TEXT| 00000060: 20 22 20 22 9D 9D 20 20 20 20 03 5F 33 53 20 20 | " ".. ._3S | 00000070: 20 20 20 20 20 20 20 20 20 20 0B 2E 42 59 54 45 | ..BYTE| 00000080: 20 24 30 30 9D 9D 20 20 20 20 02 5F 14 20 20 20 | $00.. ._. | 00000090: 20 20 20 20 20 20 20 20 20 20 43 4F 4C 4F 55 52 | COLOUR| 000000A0: 20 31 31 31 30 30 30 30 20 00 00 00 00 00 00 00 | 1110000 .......| 000000B0: 00 00 00 00 00 00 00 00 20 20 20 20 20 20 20 20 |........ | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000000F0: 00 00 00 00 00 00 00 00 64 00 00 00 00 00 00 00 |........d.......| 00000100: 03 28 09 28 98 28 87 28 71 28 17 28 78 28 89 03 |.(.(.(.(q(.(x(..| 00000110: 28 09 28 95 28 5D 28 D7 28 7D 28 D5 28 59 03 28 |(.(.(](.(}(.(Y.(| 00000120: 7F 28 FA 28 A8 28 82 28 29 28 90 03 28 09 28 92 |.(.(.(.()(..(.(.| 00000130: 28 28 28 8A 28 AF 28 F7 03 28 09 28 98 28 87 28 |(((.(.(..(.(.(.(| 00000140: 71 28 17 28 78 28 89 03 28 3F 28 FE 28 E4 28 4B |q(.(x(..(?(.(.(K| 00000150: 28 B6 28 60 03 28 06 28 6B 28 B4 28 4E 28 EF 28 |(.(`.(.(k(.(N(.(| 00000160: F3 03 28 09 28 95 28 5D 28 D7 28 7D 28 D5 28 59 |..(.(.(](.(}(.(Y| 00000170: 03 28 F7 28 71 28 17 28 78 28 89 80 43 4F 4C 4F |.(.(q(.(x(..COLO| 00000180: 55 52 53 20 20 20 3B 28 41 4C 54 45 52 4E 41 54 |URS ;(ALTERNAT| 00000190: 49 56 45 20 43 4F 4C 4F 55 52 53 29 03 2A 00 2A |IVE COLOURS).*.*| 000001A0: 00 2A 00 2A 00 2A 00 2A 00 2A 00 03 2A 00 2A 00 |.*.*.*.*.*..*.*.| 000001B0: 2A 00 2A 00 2A 00 2A 00 2A 00 03 28 17 28 7F 28 |*.*.*.*.*..(.(.(| 000001C0: FA 28 A8 28 82 28 29 28 90 03 28 11 28 11 28 11 |.(.(.()(..(.(.(.| 000001D0: 28 11 28 11 28 11 28 11 03 28 11 28 11 28 11 28 |(.(.(.(..(.(.(.(| 000001E0: 11 28 11 28 11 28 11 03 28 09 28 92 28 28 28 8A |.(.(.(..(.(.(((.| 000001F0: 28 AF 28 F7 28 71 03 2A 00 2A 00 2A 00 2A 00 2A |(.(.(q.*.*.*.*.*| 00000200: 00 2A 00 2A 00 03 2A 00 2A 00 2A 00 2A 00 2A 00 |.*.*..*.*.*.*.*.| 00000210: 2A 00 31 05 06 29 00 1C CE 29 00 DD EE 29 19 D0 |*.1..)...)...)..| 00000220: 30 0B 06 29 00 30 8D 30 11 40 2A 01 0A 29 2C F8 |0..).0.0.@*..),.| 00000230: 8D 30 20 40 2A 01 7D 30 2F 40 2A 00 B9 38 2D 06 |.0 @*.}0/@*..8-.| 00000240: 29 00 10 8D 29 16 D0 29 28 07 8E 29 18 D0 8C 29 |)...)..)(..)...)| 00000250: 11 D0 30 11 A2 28 10 30 20 A9 28 00 A0 20 33 40 |..0..(.0 .(.. 3@| 00000260: 2A 08 30 10 06 29 00 08 31 03 03 28 00 31 02 03 |*.0..)..1..(.1..| 00000270: 28 00 30 1E 03 2A 00 90 20 20 2D 2D 2D 20 20 20 |(.0..*.. --- | 00000280: 20 20 2D 2D 2D 2D 20 32 30 30 03 2A 00 90 43 55 | ---- 200.*..CU| 00000290: 52 52 45 4E 54 20 53 49 4E 45 50 4F 53 31 30 79 |RRENT SINEPOS10y| 000002A0: 03 28 01 8F 20 2D 2D 20 32 20 20 20 2D 2D 30 78 |.(.. -- 2 --0x| 000002B0: 03 28 00 8F 53 49 4E 45 31 20 53 50 45 45 44 40 |.(..SINE1 SPEED@| 000002C0: 68 AA 68 A8 68 91 45 58 49 54 30 7F 8D 38 30 6D |h.h.h.EXIT0..80m| 000002D0: 38 79 18 AD 38 30 8D 38 1E 6D 38 78 18 AD 38 1E |8y..80.8.m8x..8.| 000002E0: 91 4D 4F 56 45 20 53 49 4E 45 50 4F 53 20 31 2F |.MOVE SINEPOS 1/| 000002F0: 32 8E 29 11 D0 A2 2C 14 97 46 4F 52 20 4E 4F 2D |2.)...,..FOR NO-| 00000300: 42 4F 52 44 45 52 20 29 00 10 93 43 41 4C 43 20 |BORDER )...CALC | 00000310: 4E 45 57 20 44 4F 55 42 4C 45 53 49 4E 45 AE 38 |NEW DOUBLESINE.8| 00000320: 30 93 20 20 2D 2D 2D 20 20 32 AC 38 1E 93 53 49 |0. --- 2.8..SI| 00000330: 4E 45 50 4F 53 31 90 28 49 4D 50 4F 52 54 41 4E |NEPOS1.(IMPORTAN| 00000340: 54 20 46 4F 52 20 53 50 52 49 54 45 53 29 8D 29 |T FOR SPRITES).)| 00000350: 18 D0 90 53 43 52 2D 50 4F 49 4E 54 45 52 20 41 |...SCR-POINTER A| 00000360: 54 20 24 30 34 30 30 A9 2A 15 90 4E 4F 52 4D 41 |T $0400.*..NORMA| 00000370: 4C 20 43 48 41 52 53 45 54 2C 20 41 4E 44 8E 29 |L CHARSET, AND.)| 00000380: 11 D0 A2 2C 74 94 4E 4F 20 42 4F 52 44 45 52 EE |...,t.NO BORDER.| 00000390: 29 00 DD 30 2E 60 AA 8C 47 45 54 20 53 41 56 45 |)..0.`..GET SAVE| 000003A0: 44 20 58 2D 56 41 4C 55 45 68 8D 30 6D 40 2A 01 |D X-VALUEh.0m@*.| 000003B0: D0 38 71 CA 30 73 6E 38 6D 6A 30 72 6D 38 6F 18 |.8q.0sn8mj0rm8o.| 000003C0: 90 38 72 4E 38 6E 30 71 A2 28 08 8D 38 6D A9 28 |.8rN8n0q.(..8m.(| 000003D0: 00 18 48 8C 53 41 56 45 20 58 2D 56 41 4C 55 45 |..H.SAVE X-VALUE| 000003E0: 8A 30 70 30 6F 03 2A 00 30 6E 03 2A 00 92 20 4D |.0p0o.*.0n.*.. M| 000003F0: 2A 4E 30 6D 04 2A 00 60 91 38 5D A9 44 38 2E 8F |*N0m.*.`.8].D8..| 00000400: 20 48 49 42 59 54 45 20 46 4F 52 20 27 45 45 45 | HIBYTE FOR 'EEE| 00000410: 27 C8 91 38 5D A9 45 38 2E 8F 4C 4F 57 42 59 54 |'..8].E8..LOWBYT| 00000420: 45 20 46 4F 52 20 27 45 45 45 27 C8 91 38 5D A9 |E FOR 'EEE'..8].| 00000430: 28 4C 90 4F 50 43 4F 44 45 20 46 4F 52 20 27 4A |(L.OPCODE FOR 'J| 00000440: 4D 50 27 D0 38 FB CA 8D 30 5D 40 2A 01 69 28 00 |MP'.8...0]@*.i(.| 00000450: AD 30 5D 40 2A 01 8D 38 5D 69 2A 11 18 AD 38 5D |.0]@*..8]i*...8]| 00000460: 31 01 8D 39 02 A9 20 30 40 2A 08 90 39 01 C9 20 |1..9.. 0@*..9.. | 00000470: 37 40 2A 08 EE 39 02 88 91 38 5D AD 39 02 A0 28 |7@*..9...8].9..(| 00000480: 01 90 38 FB C0 2A 11 C8 91 38 5D B1 38 5C 30 FB |..8..*...8].8\0.| 00000490: A0 28 00 A2 2A C8 8D 39 02 A9 20 33 40 2A 08 8D |.(..*..9.. 3@*..| 000004A0: 38 5D A9 28 06 8D 38 5C A9 28 00 8D 30 5D 40 2A |8].(..8\.(..0]@*| 000004B0: 01 A9 28 30 8D 30 5C 40 2A 01 A9 28 08 91 38 5D |..(0.0\@*..(..8]| 000004C0: A9 28 60 91 4F 50 43 4F 44 45 20 46 4F 52 20 27 |.(`.OPCODE FOR '| 000004D0: 52 54 53 27 D0 38 5E 92 20 4E 4F 2E CA 92 41 4C |RTS'.8^. NO...AL| 000004E0: 4C 20 32 30 30 20 46 49 4E 49 53 45 44 3F 8D 30 |L 200 FINISED?.0| 000004F0: 5D 40 2A 01 69 28 00 AD 30 5D 40 2A 01 8D 38 5D |]@*.i(..0]@*..8]| 00000500: 69 2A 0F 18 92 54 4F 20 54 48 45 20 4E 45 57 20 |i*...TO THE NEW | 00000510: 50 4F 53 2E AD 38 5D 92 53 45 54 20 50 4F 49 4E |POS..8].SET POIN| 00000520: 54 45 52 A0 28 00 EE 39 02 91 38 5D C8 69 28 30 |TER.(..9..8].i(0| 00000530: 92 24 33 30 30 36 20 2B 50 4F 53 20 2B 35 2F 36 |.$3006 +POS +5/6| 00000540: AD 30 6D 40 2A 01 91 38 5D 69 20 05 40 2A 06 92 |.0m@*..8]i .@*..| 00000550: 43 4F 52 52 45 43 54 20 50 4F 53 18 AD 38 6D A0 |CORRECT POS..8m.| 00000560: 28 0D 91 38 5D C8 69 28 30 92 24 33 30 30 36 20 |(..8].i(0.$3006 | 00000570: 2B 50 4F 53 20 2B 20 33 2F 34 AD 30 6D 40 2A 01 |+POS + 3/4.0m@*.| 00000580: 91 38 5D 69 20 03 40 2A 06 92 46 49 4E 44 20 43 |.8]i .@*..FIND C| 00000590: 4F 52 52 45 43 54 20 50 4F 53 2E 18 AD 38 6D A0 |ORRECT POS...8m.| 000005A0: 2A 07 20 38 70 8D 38 6F AD 39 02 8D 38 6E 91 43 |*. 8p.8o.9..8n.C| 000005B0: 4F 44 45 20 28 4C 49 4E 45 2A 31 37 29 A9 2A 11 |ODE (LINE*17).*.| 000005C0: 91 43 41 4C 43 20 50 4F 49 4E 54 45 52 20 54 4F |.CALC POINTER TO| 000005D0: 20 45 43 49 2D 91 38 5D A0 28 04 91 38 5D A0 28 | ECI-.8].(..8].(| 000005E0: 01 AD 39 02 92 53 45 54 20 53 49 4E 45 2B 4C 49 |..9..SET SINE+LI| 000005F0: 4E 45 20 4E 55 4D 42 45 52 90 38 5E 92 4E 4F 2E |NE NUMBER.8^.NO.| 00000600: C0 2A 0F 92 46 49 4E 49 53 48 45 44 20 3F C8 91 |.*..FINISHED ?..| 00000610: 38 5D B1 38 5C 91 43 4F 50 59 20 4D 41 49 4E 20 |8].8\.COPY MAIN | 00000620: 43 4F 44 45 30 5E 8C 39 02 A0 28 00 A2 2A C8 8E |CODE0^.9..(..*..| 00000630: 20 32 30 30 20 4C 49 4E 45 53 2E 8D 38 5D 8D 38 | 200 LINES..8].8| 00000640: 5C A9 28 00 8D 30 5D 40 2A 01 8D 30 5C 40 2A 01 |\.(..0]@*..0\@*.| 00000650: 8F 41 54 20 24 31 30 30 30 A9 28 10 8F 50 4C 41 |.AT $1000.(..PLA| 00000660: 43 45 20 53 49 4E 45 43 41 4C 43 2D 52 4F 55 54 |CE SINECALC-ROUT| 00000670: 49 4E 45 30 5B 4C 38 58 30 58 58 8D 29 15 03 A9 |INE0[L8X0XX.)...| 00000680: 44 38 0B 8D 29 14 03 A9 45 38 0B 8D 29 12 D0 A9 |D8..)...E8..)...| 00000690: 28 32 8D 29 1A D0 A9 28 01 8D 29 0D DC A9 28 7F |(2.)...(..)...(.| 000006A0: 8D 29 16 D0 A9 28 C8 78 90 53 45 54 55 50 20 52 |.)...(.x.SETUP R| 000006B0: 41 53 54 45 52 49 52 51 2E 10 39 04 93 46 49 4E |ASTERIRQ..9..FIN| 000006C0: 49 53 48 45 44 20 3F CA 9D 29 00 7C BD 31 05 40 |ISHED ?..).|.1.@| 000006D0: 2A 00 9D 29 00 78 BD 31 05 40 2A 01 9D 29 00 74 |*..).x.1.@*..).t| 000006E0: BD 31 05 40 2A 02 9D 29 00 70 BD 31 05 40 2A 03 |.1.@*..).p.1.@*.| 000006F0: 9D 29 00 6C BD 31 05 40 2A 04 9D 29 00 68 BD 31 |.).l.1.@*..).h.1| 00000700: 05 40 2A 05 9D 29 00 64 BD 31 05 40 2A 06 9D 29 |.@*..).d.1.@*..)| 00000710: 00 60 BD 31 05 40 2A 07 9D 29 00 5C BD 31 05 40 |.`.1.@*..).\.1.@| 00000720: 2A 08 9D 29 00 58 BD 31 05 40 2A 09 9D 29 00 54 |*..).X.1.@*..).T| 00000730: BD 31 05 40 2A 0A 9D 29 00 50 BD 31 05 40 2A 0B |.1.@*..).P.1.@*.| 00000740: 9D 29 00 4C BD 31 05 40 2A 0C 9D 29 00 48 BD 31 |.).L.1.@*..).H.1| 00000750: 05 40 2A 0D 9D 29 00 44 BD 31 05 40 2A 0E 31 04 |.@*..).D.1.@*.1.| 00000760: A2 2A 27 8F 50 4C 41 43 45 20 54 48 45 20 43 4F |.*'.PLACE THE CO| 00000770: 4C 4F 55 52 53 2E D0 38 01 E8 9D 29 00 41 9D 29 |LOURS..8...).A.)| 00000780: 00 40 91 50 4C 41 43 45 20 50 41 54 54 45 52 4E |.@.PLACE PATTERN| 00000790: 30 01 A9 28 F5 91 50 41 54 54 45 52 4E 3A 20 25 |0..(..PATTERN: %| 000007A0: 31 31 31 31 30 31 30 31 8D 29 20 D0 A9 28 00 90 |11110101.) ..(..| 000007B0: 42 4C 41 43 4B 20 42 4F 52 44 45 52 20 38 5B 90 |BLACK BORDER 8[.| 000007C0: 53 45 54 55 50 20 54 48 45 20 45 46 46 45 43 54 |SETUP THE EFFECT| 000007D0: 2E 06 29 00 0B 80 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..)...----------| 000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 30 84 05 |-------------0..| 00000800: 28 D9 30 2F 05 29 00 22 8D 20 20 20 2D 2D 20 20 |(.0/.).". -- | 00000810: 20 2D 2D 20 20 2D 2D 20 20 32 30 2D 05 29 00 20 | -- -- 20-.). | 00000820: 8D 50 4F 49 4E 54 45 52 20 54 4F 20 53 49 4E 45 |.POINTER TO SINE| 00000830: 20 31 30 6C 05 28 F7 30 6B 05 28 F9 30 5D 05 28 | 10l.(.0k.(.0].(| 00000840: FB 30 5C 05 28 FD 80 2D 2D 2D 2D 2D 2D 2D 2D 2D |.0\.(..---------| 00000850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 80 20 |--------------. | 00000870: 52 4F 55 54 49 4E 45 2E 80 20 D4 48 49 53 20 49 |ROUTINE.. .HIS I| 00000880: 53 20 41 20 53 49 4D 50 4C 49 46 49 45 44 20 56 |S A SIMPLIFIED V| 00000890: 45 52 53 49 4F 4E 20 4F 46 20 4D 59 80 2D 2D 2D |ERSION OF MY.---| 000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008C0: 2D 2D 2D 2D 80 20 D2 45 4D 45 4D 42 45 52 20 54 |----. .EMEMBER T| 000008D0: 4F 20 52 55 4E 20 53 49 4E 45 2D 50 52 47 20 42 |O RUN SINE-PRG B| 000008E0: 45 46 4F 52 45 20 53 54 41 52 54 2E 80 20 C7 52 |EFORE START.. .R| 000008F0: 4F 55 50 3A 20 20 C3 41 4D 45 4C 4F 54 3F 20 28 |OUP: .AMELOT? (| 00000900: 2D 20 C9 20 48 4F 50 45 20 53 4F 29 80 20 C8 41 |- . HOPE SO). .A| 00000910: 4E 44 4C 45 3A 20 D2 41 5A 80 20 C2 59 3A 20 D2 |NDLE: .AZ. .Y: .| 00000920: 41 53 4D 55 53 20 D7 45 52 4E 45 52 53 53 4F 4E |ASMUS .ERNERSSON| 00000930: 2E 20 44 45 43 20 39 32 2F 4A 41 4E 20 39 33 2E |. DEC 92/JAN 93.| 00000940: 80 20 C6 55 4C 4C 20 D3 43 52 45 45 4E 20 D0 4C |. .ULL .CREEN .L| 00000950: 41 53 4D 41 2E 20 28 32 30 30 20 4C 49 4E 45 53 |ASMA. (200 LINES| 00000960: 29 80 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |).--------------| 00000970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 54 55 52 42 4F 00 |---------.TURBO.| 00000990: 28 21 27 0D 20 28 28 24 0A 28 05 05 05 05 18 18 |(!'. (($.(......| 000009A0: 05 28 00 04 95 90 84 96 02 92 84 81 83 96 02 86 |.(..............| 000009B0: 84 86 84 86 84 86 84 86 84 86 84 86 84 86 84 86 |................| 000009C0: 84 86 84 86 84 86 84 86 84 86 84 86 84 81 8E 00 |................| 000009D0: 92 83 84 83 84 83 84 83 84 84 84 84 84 81 02 83 |................| 000009E0: 02 9A 8F 86 83 83 83 8F 83 83 02 92 83 81 8E 87 |................| 000009F0: 00 98 83 83 83 83 98 92 83 83 83 83 83 81 98 83 |................| 00000A00: 86 94 81 83 00 83 83 81 92 83 86 93 81 83 83 00 |................| 00000A10: 00 83 8F 91 83 83 86 83 86 92 88 94 83 00 83 86 |................| 00000A20: 83 86 83 83 83 83 86 83 83 83 02 83 83 81 83 83 |................| 00000A30: 83 83 83 81 83 86 83 86 83 02 83 81 83 83 86 83 |................| 00000A40: 86 81 83 00 94 83 81 96 83 81 96 83 00 81 00 05 |................| 00000A50: 0A 05 02 81 8E 81 83 83 83 02 83 83 81 83 02 81 |................| 00000A60: 83 02 81 83 86 81 93 81 02 84 8D 84 97 99 18 8C |................| 00000A70: 8C 98 91 84 94 81 83 83 83 81 83 83 02 86 81 81 |................| 00000A80: 81 81 81 11 10 16 16 05 05 04 02 86 C5 C5 84 84 |................| 00000A90: 83 84 00 04 83 86 86 83 81 86 00 04 02 84 84 04 |................| 00000AA0: 02 0D 0F 0F 0F 0F 0F 0F 0F 21 0B 0F 0D 0D 0F 0D |.........!......| 00000AB0: 0D 0F 0F 60 DD 2F 9A 24 CF 75 39 CF 00 00 00 00 |...`./.$.u9.....| 00000AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000AE0: 00 00 00 EC EC ED ED EE EE EF F0 F0 00 00 00 00 |................| 00000AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000B10: 00 00 00 4C 49 4E 45 D3 43 4C 52 CC 54 41 42 4C |...LINE.CLR.TABL| 00000B20: 45 CE 4D 41 4B 45 54 41 42 B1 42 41 D4 4D 41 4B |E.MAKETAB.BA.MAK| 00000B30: 45 54 41 42 B2 54 41 C2 4D 41 4B 45 43 4F 4C B0 |ETAB.TA.MAKECOL.| 00000B40: 4D 41 4B 45 43 4F 4C B1 43 4F 4C 4F 52 D3 42 4C |MAKECOL.COLOR.BL| 00000B50: D0 45 43 C9 4E 4F 45 43 C9 4D 4C 4F 4F D0 57 4C |.EC.NOEC.MLOO.WL| 00000B60: B1 4D 4F 56 45 54 41 C2 50 52 4F 54 CF 41 B1 41 |.MOVETA.PROT.A.A| 00000B70: B2 41 B3 41 B4 41 B5 41 B6 41 B7 41 B8 41 B9 41 |.A.A.A.A.A.A.A.A| 00000B80: C1 41 C2 41 C3 41 C4 54 41 42 50 4F D3 51 45 D8 |.A.A.A.TABPO.QE.| 00000B90: 42 B1 42 B2 42 B3 42 B4 42 B5 42 B6 42 B7 42 B8 |B.B.B.B.B.B.B.B.| 00000BA0: 42 B9 42 C1 42 C2 42 C3 42 C4 53 49 CE 45 45 C5 |B.B.B.B.B.SI.EE.| 00000BB0: 53 49 4E B2 54 41 42 50 4F 53 B2 42 C6 41 C6 42 |SIN.TABPOS.B.A.B| 00000BC0: C5 41 C5 42 C7 41 C7 42 31 B1 41 31 B1 42 31 B2 |.A.B.A.B1.A1.B1.| 00000BD0: 41 31 B2 42 31 B3 41 31 B3 42 31 B4 41 31 B4 42 |A1.B1.A1.B1.A1.B| 00000BE0: 31 B5 41 31 B5 42 31 B6 41 31 B6 42 31 B7 41 31 |1.A1.B1.A1.B1.A1| 00000BF0: B7 42 31 B8 41 31 B8 42 31 B9 41 31 B9 42 31 C1 |.B1.A1.B1.A1.B1.| 00000C00: 41 31 C1 42 31 C2 41 31 C2 42 31 C3 41 31 C3 42 |A1.B1.A1.B1.A1.B| 00000C10: 31 C4 41 31 C4 42 31 C5 41 31 C5 42 31 C6 41 31 |1.A1.B1.A1.B1.A1| 00000C20: C6 42 31 C7 41 31 C7 57 4C B2 57 41 49 D4 44 41 |.B1.A1.WL.WAI.DA| 00000C30: 54 DA 45 4E 44 50 52 CF 47 45 4E 45 43 C9 5A 50 |T.ENDPR.GENEC.ZP| 00000C40: B1 5A 50 B2 47 45 4E 4C 4F 4F 50 B1 CC 5A 50 32 |.ZP.GENLOOP..ZP2| 00000C50: B1 4A CA 44 4F 45 58 C5 44 4F 45 58 D4 4A 4E C5 |.J.DOEX.DOEX.JN.| 00000C60: 4A 4A CA 4D 4F 56 45 44 49 4D D3 47 45 4E 4D 4F |JJ.MOVEDIM.GENMO| 00000C70: 56 45 D2 4D 4F 56 C5 47 45 CD 47 45 4E 4D 4C 4F |VE.MOV.GE.GENMLO| 00000C80: 4F 50 B1 5A 50 B3 5A 50 B4 52 45 53 55 4C D4 CD |OP.ZP.ZP.RESUL..| 00000C90: CE 4D 55 4C D4 47 45 4E 54 41 C7 4E 4F 41 44 C4 |.MUL.GENTA.NOAD.| 00000CA0: 52 4F 52 C2 52 45 53 4C 55 D4 52 C5 4D 41 4B 43 |ROR.RESLU.R.MAKC| 00000CB0: 4F 4C B0 4D 41 58 B2 41 44 44 B1 41 44 44 B2 50 |OL.MAX.ADD.ADD.P| 00000CC0: 4C 44 C1 4C 4C CC 45 D8 45 58 54 41 42 B1 57 D7 |LD.LL.E.EXTAB.W.| 00000CD0: 49 52 51 45 58 49 D4 57 57 B2 45 58 54 41 42 B2 |IRQEXI.WW.EXTAB.| 00000CE0: 4E 57 D7 45 58 B2 5A 45 52 4F 53 49 CE 4D 49 4E |NW.EX.ZEROSI.MIN| 00000CF0: 53 49 CE 4D 49 4D 53 49 CE 53 45 54 4D 49 4E 49 |SI.MIMSI.SETMINI| 00000D00: 53 49 CE 4D 49 4D 53 49 4E 31 B0 53 45 54 4D 49 |SI.MIMSIN1.SETMI| 00000D10: 4E 53 49 CE 4D 4F 56 45 53 49 CE 50 4C 41 53 4D |NSI.MOVESI.PLASM| 00000D20: 41 43 4F 4C DA 43 B0 43 B1 42 59 54 C5 43 4F 4C |ACOL.C.C.BYT.COL| 00000D30: 4F 52 53 B1 47 52 45 45 CE 42 4C 55 C5 52 45 C4 |ORS.GREE.BLU.RE.| 00000D40: 4D 49 58 42 59 54 C5 4D 49 D8 4D 49 58 B1 4D 49 |MIXBYT.MI.MIX.MI| 00000D50: 58 B2 47 52 45 45 4E B2 42 52 4F 57 4E B1 43 4F |X.GREEN.BROWN.CO| 00000D60: 4C 4F 52 53 B2 42 4C 55 D3 43 4F 4C 4F 52 53 D8 |LORS.BLU.COLORS.| 00000D70: 43 B2 43 4F 4C 4F 52 53 B0 43 B3 43 4F 4C 4F 52 |C.COLORS.C.COLOR| 00000D80: 53 B3 43 4F 4C 4F 52 53 B4 43 B4 45 45 CC 43 4F |S.COLORS.C.EE.CO| 00000D90: 4C 4F 52 41 44 54 41 C2 44 4F 43 4F CC 50 55 54 |LORADTA.DOCO.PUT| 00000DA0: 43 55 52 43 4F CC 43 4F CC 43 4F 4C 50 4F 53 54 |CURCO.CO.COLPOST| 00000DB0: 41 C2 44 49 52 B1 44 49 52 4C 4F 4F 50 B1 43 4F |A.DIR.DIRLOOP.CO| 00000DC0: 4E 54 44 CF 45 58 C5 43 48 41 4E 47 45 53 49 CE |NTD.EX.CHANGESI.| 00000DD0: 44 49 52 B2 4E 53 49 4E B1 4E 53 49 4E B2 44 49 |DIR.NSIN.NSIN.DI| 00000DE0: 52 4C 4F 4F 50 B2 44 49 52 B3 44 49 D2 4E 4F 45 |RLOOP.DIR.DI.NOE| 00000DF0: 58 B1 4E 4F 45 58 54 B1 4E 4F 45 58 54 B2 4E 53 |X.NOEXT.NOEXT.NS| 00000E00: 49 CE 45 58 54 41 C2 48 54 41 42 C3 48 54 41 42 |I.EXTA.HTAB.HTAB| 00000E10: D3 48 54 41 C2 4E 4F 45 58 D4 43 50 C1 44 4F 4E |.HTA.NOEX.CP.DON| 00000E20: 54 44 CF C1 53 41 31 B2 53 49 4E 42 41 53 C5 52 |TD..SA1.SINBAS.R| 00000E30: 45 47 42 41 53 C5 53 45 54 53 50 52 DA 46 4C 59 |EGBAS.SETSPR.FLY| 00000E40: 54 44 41 54 41 D3 42 42 C2 44 4F 57 4E 43 4F 55 |TDATA.BB.DOWNCOU| 00000E50: 4E D4 44 4F D9 46 4C 54 4C 4F 4F 50 B1 53 50 52 |N.DO.FLTLOOP.SPR| 00000E60: 50 4F D3 46 4C 54 4C 4F 4F 50 B2 53 50 52 43 4F |PO.FLTLOOP.SPRCO| 00000E70: 4C D3 53 50 52 52 45 C7 4D 55 4C 43 4F 4C B1 4D |L.SPRRE.MULCOL.M| 00000E80: 55 4C 43 4F 4C B2 53 43 52 45 45 4E 43 4F CC 42 |ULCOL.SCREENCO.B| 00000E90: 4F 52 44 45 52 43 4F CC 58 4F 56 45 D2 4D 55 4C |ORDERCO.XOVE.MUL| 00000EA0: 54 49 43 4F CC 4F CE 54 45 4C 4C 45 D2 59 54 45 |TICO.O.TELLE.YTE| 00000EB0: CC 46 4F 52 53 4B 45 CC 43 4F 4C 54 45 CC 46 4F |.FORSKE.COLTE.FO| 00000EC0: 52 53 4B 45 4C B2 54 41 42 CC 4E 4F 52 4D 45 58 |RSKEL.TAB.NORMEX| 00000ED0: B2 44 4F 4E 45 58 D4 54 58 54 45 CC 42 41 CB 52 |.DONEX.TXTE.BA.R| 00000EE0: 45 53 45 D4 45 58 B1 41 44 44 45 D2 43 4F 4C D7 |ESE.EX.ADDE.COL.| 00000EF0: 4E 4F 52 4D 45 D8 43 4F 4C 4C 4F 4F D0 43 4F 4C |NORME.COLLOO.COL| 00000F00: 54 41 C2 48 41 50 D3 45 45 45 B2 45 45 45 B3 45 |TA.HAP.EEE.EEE.E| 00000F10: 45 45 B4 48 41 4C C6 45 45 45 B5 45 45 B2 44 49 |EE.HAL.EEE.EE.DI| 00000F20: 52 45 D8 44 49 54 45 D8 4D 45 4C CC 57 C1 47 45 |RE.DITE.MEL.W.GE| 00000F30: 4D B2 53 50 52 50 4C 55 D3 59 45 58 B1 56 56 56 |M.SPRPLU.YEX.VVV| 00000F40: B1 53 54 C2 4E 4F 57 41 49 D4 51 D7 D1 43 48 CB |.ST.NOWAI.Q..CH.| 00000F50: 4D 49 44 D7 43 4F 4C 46 49 CE 44 44 45 D9 47 45 |MID.COLFI.DDE.GE| 00000F60: 4E 4C 4F 4F 50 B2 4D 41 4B 45 50 4F 49 4E D4 4D |NLOOP.MAKEPOIN.M| 00000F70: 41 4B 45 4C 4F 4F 50 B1 46 46 46 C6 41 4C 54 43 |AKELOOP.FFF.ALTC| 00000F80: 4F CC 53 45 54 43 4F 4C 4F D2 4E 4F 52 45 53 45 |O.SETCOLO.NORESE| 00000F90: D4 53 41 56 C5 53 41 56 45 B2 53 45 54 43 4F 4C |.SAV.SAVE.SETCOL| 00000FA0: 4F 55 D2 43 4F 4C 4F 55 52 D3 00 00 00 00 00 00 |OU.COLOUR.......| 00000FB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000FC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000FD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000FE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000010F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001180: 00 00 00 |... |
..................#.B...................
........L...L.8.........COLOR TAS 000 .
...........TEXT " ".. ._3S
..BYTE $00.. ._. COLOUR
1110000 ...............
................
........D........(.(.(.(Q(.(X(..(.(.(](W
(}(U(Y.((.(.(.()(..(.(.(((.(.(..(.(.(.(
Q(.(X(..(?(.(.(K(.(`.(.(K(.(N(.(..(.(.(]
(W(}(U(Y.(.(Q(.(X(..COLOURS ;(ALTERNAT
IVE COLOURS).*.*.*.*.*.*.*..*.*.*.*.*.*.
*..(.((.(.(.()(..(.(.(.(.(.(.(..(.(.(.(
.(.(.(..(.(.(((.(.(.(Q.*.*.*.*.*.*.*..*.
*.*.*.*.*.1..)..N)...).P0..).0.0.@*..),.
.0 @*.}0/@*..8-.)...).P)(..).P.).P0..(.0
.(. 3@*.0..)..1..(.1..(.0..*.. ---
---- 200.*..CURRENT SINEPOS10Y.(.. --
2 --0X.(..SINE1 SPEED@H.H.H.EXIT0.80M
8Y..80.8.M8X..8..MOVE SINEPOS 1/2.).P.,.
.FOR NO-BORDER )...CALC NEW DOUBLESINE.8
0. --- 2.8..SINEPOS1.(IMPORTANT FOR SP
RITES).).P.SCR-POINTER AT $0400.*..NORMA
L CHARSET, AND.).P.,T.NO BORDER.)..0.`..
GET SAVED X-VALUEH.0M@*.P8QJ0SN8MJ0RM8O.
.8RN8N0Q.(..8M.(..H.SAVE X-VALUE.0P0O.*.
0N.*.. M*N0M.*.`.8].D8.. HIBYTE FOR 'EEE
'H.8].E8..LOWBYTE FOR 'EEE'H.8].(L.OPCOD
E FOR 'JMP'P8.J.0]@*.I(..0]@*..8]I*...8]
1..9.. 0@*..9.I 7@*..9...8].9. (..8..*.H
.8].8\0. (..*H.9.. 3@*..8].(..8\.(..0]@*
..(0.0\@*..(..8].(`.OPCODE FOR 'RTS'P8^.
NO.J.ALL 200 FINISED?.0]@*.I(..0]@*..8]
I*...TO THE NEW POS..8].SET POINTER (..9
..8]HI(0.$3006 +POS +5/6.0M@*..8]I .@*..
CORRECT POS..8M (..8]HI(0.$3006 +POS + 3
/4.0M@*..8]I .@*..FIND CORRECT POS...8M
*. 8P.8O.9..8N.CODE (LINE*17).*..CALC PO
INTER TO ECI-.8] (..8] (..9..SET SINE+LI
NE NUMBER.8^.NO..*..FINISHED ?H.8].8\.CO
PY MAIN CODE0^.9. (..*H. 200 LINES..8].8
\.(..0]@*..0\@*..AT $1000.(..PLACE SINEC
ALC-ROUTINE0[L8X0XX.)...D8..)...E8..).P.
(2.).P.(..)...(.).P.(HX.SETUP RASTERIRQ
..9..FINISHED ?J.).|.1.@*..).X.1.@*..).T
.1.@*..).P.1.@*..).L.1.@*..).H.1.@*..).D
.1.@*..).`.1.@*..).\.1.@*..).X.1.@*..).T
.1.@*..).P.1.@*..).L.1.@*..).H.1.@*..).D
.1.@*.1..*'.PLACE THE COLOURS.P8...).A.)
.@.PLACE PATTERN0..(..PATTERN: %11110101
.) P.(..BLACK BORDER 8[.SETUP THE EFFECT
..)...----------------------------------
-----0..(Y0/.).". -- -- -- 20-.).
.POINTER TO SINE 10L.(.0K.(.0].(.0\.(..-
--------------------------------------.
ROUTINE.. THIS IS A SIMPLIFIED VERSION O
F MY.-----------------------------------
----. REMEMBER TO RUN SINE-PRG BEFORE ST
ART.. GROUP: CAMELOT? (- I HOPE SO). HA
NDLE: RAZ. BY: RASMUS WERNERSSON. DEC 92
/JAN 93.. FULL SCREEN PLASMA. (200 LINES
).--------------------------------------
-.TURBO.(!'. (($.(.......(..............
........................................
........................................
........................................
........................................
........................................
....................EE..................
.........!.........`./.$OU9O............
........................................
...................................LINES
CLRLTABLENMAKETAB.BATMAKETAB.TABMAKECOL.
MAKECOL.COLORSBLPECINOECIMLOOPWL.MOVETAB
PROTOA.A.A.A.A.A.A.A.A.AAABACADTABPOSQEX
B.B.B.B.B.B.B.B.B.BABBBCBDSINEEESIN.TABP
OS.BFAFBEAEBGAGB1.A1.B1.A1.B1.A1.B1.A1.B
1.A1.B1.A1.B1.A1.B1.A1.B1.A1.B1AA1AB1BA1
BB1CA1CB1DA1DB1EA1EB1FA1FB1GA1GWL.WAITDA
TZENDPROGENECIZP.ZP.GENLOOP.LZP2.JJDOEXE
DOEXTJNEJJJMOVEDIMSGENMOVERMOVEGEMGENMLO
OP.ZP.ZP.RESULTMNMULTGENTAGNOADDRORBRESL
UTREMAKCOL.MAX.ADD.ADD.PLDALLLEXEXTAB.WW
IRQEXITWW.EXTAB.NWWEX.ZEROSINMINSINMIMSI
NSETMINISINMIMSIN1.SETMINSINMOVESINPLASM
ACOLZC.C.BYTECOLORS.GREENBLUEREDMIXBYTEM
IXMIX.MIX.GREEN.BROWN.COLORS.BLUSCOLORSX
C.COLORS.C.COLORS.COLORS.C.EELCOLORADTAB
DOCOLPUTCURCOLCOLCOLPOSTABDIR.DIRLOOP.CO
NTDOEXECHANGESINDIR.NSIN.NSIN.DIRLOOP.DI
R.DIRNOEX.NOEXT.NOEXT.NSINEXTABHTABCHTAB
SHTABNOEXTCPADONTDOASA1.SINBASEREGBASESE
TSPRZFLYTDATASBBBDOWNCOUNTDOYFLTLOOP.SPR
POSFLTLOOP.SPRCOLSSPRREGMULCOL.MULCOL.SC
REENCOLBORDERCOLXOVERMULTICOLONTELLERYTE
LFORSKELCOLTELFORSKEL.TABLNORMEX.DONEXTT
XTELBAKRESETEX.ADDERCOLWNORMEXCOLLOOPCOL
TABHAPSEEE.EEE.EEE.HALFEEE.EE.DIREXDITEX
MELLWAGEM.SPRPLUSYEX.VVV.STBNOWAITQWQCHK
MIDWCOLFINDDEYGENLOOP.MAKEPOINTMAKELOOP.
FFFFALTCOLSETCOLORNORESETSAVESAVE.SETCOL
OURCOLOURS..............................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
...
> CLICK IMAGE PREVIEW FOR FULL MODAL