_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

FADER

FILE INFORMATION

FILENAME(S): FADER

FILE TYPE(S): PRG

FILE SIZE: 3K

FIRST SEEN: 2025-11-30 20:30:56

APPEARS ON: 1 disk(s)

FILE HASH

43b73e66b0122476e6bfea67b55a59d83d1925821a4155b983d0dcf6f19347f8

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
RAZ CAMELOT JULY FADER PRG Curtcool, Nigel 13 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 06 0C 8E 02 11 00 16 00  16 00 00 00 10 00 06 FF  |................|
00000010: 00 00 93 00 E9 87 00 01  01 9F EC 00 00 00 00 00  |................|
00000020: 00 00 00 00 00 00 00 00  14 80 14 80 14 80 14 80  |................|
00000030: 14 80 14 80 14 80 14 80  14 80 14 80 88 00 87 00  |................|
00000040: 58 20 4C 54 41 42 20 00  00 00 00 00 00 00 00 00  |X LTAB .........|
00000050: 00 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 59 20 50 31 29 20  |          Y P1) |
000000A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000000B0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000000C0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000000D0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
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  00 00 00 00 00 00 00 00  |................|
00000100: 03 2A 0D 2A 07 2A 0F 2A  05 2A 0A 2A 0C 2A 08 2A  |.*.*.*.*.*.*.*.*|
00000110: 0B 2A 09 2A 00 03 2A 00  2A 09 2A 0B 2A 08 2A 0C  |.*.*..*.*.*.*.*.|
00000120: 2A 0A 2A 05 2A 0F 2A 07  2A 0D 2A 01 03 2A 07 2A  |*.*.*.*.*.*..*.*|
00000130: 0F 2A 03 2A 0E 2A 04 2A  06 03 2A 00 2A 06 2A 04  |.*.*.*.*..*.*.*.|
00000140: 2A 0E 2A 03 2A 0F 2A 07  2A 01 03 2A 07 2A 0F 2A  |*.*.*.*.*..*.*.*|
00000150: 0C 2A 08 2A 0B 2A 09 03  2A 00 2A 09 2A 0B 2A 08  |.*.*.*..*.*.*.*.|
00000160: 2A 0C 2A 0F 2A 07 2A 01  03 2A 07 2A 0F 2A 0A 2A  |*.*.*.*..*.*.*.*|
00000170: 08 2A 02 2A 09 03 2A 00  2A 09 2A 02 2A 08 2A 0A  |.*.*..*.*.*.*.*.|
00000180: 2A 0F 2A 07 2A 01 30 02  60 92 41 4E 44 20 45 4E  |*.*.*.0.`.AND EN|
00000190: 44 20 54 48 45 20 52 4F  55 54 49 4E 45 2E 58 92  |D THE ROUTINE.X.|
000001A0: 45 4E 41 42 4C 45 20 49  4E 54 45 52 52 55 50 54  |ENABLE INTERRUPT|
000001B0: 8D 38 00 92 2D 2D 68 8D  38 01 92 2D 2D 68 8D 38  |.8..--h.8..--h.8|
000001C0: 09 92 2D 2D 68 8D 38 0A  92 2D 2D 68 8D 38 0D 92  |..--h.8..--h.8..|
000001D0: 2D 2D 68 8D 30 0D 40 2A  01 92 53 54 4F 52 45 44  |--h.0.@*..STORED|
000001E0: 20 49 4E 20 54 48 45 20  53 54 41 43 4B 2E 68 92  | IN THE STACK.h.|
000001F0: 52 45 2D 49 4E 53 54 41  4C 4C 20 5A 50 2D 56 41  |RE-INSTALL ZP-VA|
00000200: 4C 55 45 53 30 06 D0 38  04 92 4E 4F 3A 20 43 4F  |LUES0..8..NO: CO|
00000210: 4E 54 49 4E 55 45 20 4C  4F 4F 50 2E 29 28 0F 92  |NTINUE LOOP.)(..|
00000220: 43 4F 4C 4F 55 52 2E 20  42 4C 41 43 4B 20 3F 2E  |COLOUR. BLACK ?.|
00000230: AD 29 20 D0 92 41 54 20  42 4C 41 43 4B 2E 20 47  |.) ..AT BLACK. G|
00000240: 45 54 20 42 4F 52 44 45  52 CE 38 01 92 59 45 53  |ET BORDER.8..YES|
00000250: 2E 20 50 4F 49 4E 54 45  52 20 50 4F 49 4E 54 53  |. POINTER POINTS|
00000260: D0 38 04 92 42 4C 41 43  4B 20 3F 8D 29 21 D0 92  |.8..BLACK ?.)!..|
00000270: 53 54 4F 52 45 20 49 4E  20 53 43 52 45 45 4E 2E  |STORE IN SCREEN.|
00000280: B1 38 0D 92 47 45 54 20  43 4F 4C 4F 55 52 2E AC  |.8..GET COLOUR..|
00000290: 38 01 92 50 4F 49 4E 54  45 52 2E EE 38 01 92 49  |8..POINTER..8..I|
000002A0: 4E 43 20 53 43 52 45 45  4E 2D 43 4F 4C 54 41 42  |NC SCREEN-COLTAB|
000002B0: 30 05 F0 38 06 92 59 45  53 2E 20 45 4E 44 20 54  |0..8..YES. END T|
000002C0: 48 45 20 50 52 4F 47 52  41 4D 2E 29 28 0F 92 42  |HE PROGRAM.)(..B|
000002D0: 4C 41 43 4B 20 3F 2E AD  29 21 D0 92 49 53 20 54  |LACK ?..)!..IS T|
000002E0: 48 45 20 53 43 52 45 45  4E 20 41 4C 53 4F 92 50  |HE SCREEN ALSO.P|
000002F0: 4F 49 4E 54 20 41 54 20  42 4C 41 43 4B 20 41 47  |OINT AT BLACK AG|
00000300: 41 49 4E 2E CE 38 00 92  59 45 53 2E 20 4D 41 4B  |AIN..8..YES. MAK|
00000310: 45 20 50 4F 49 4E 54 45  52 2E D0 38 05 92 43 4F  |E POINTER..8..CO|
00000320: 4C 4F 55 52 20 3D 20 42  4C 41 43 4B 20 3F 8D 29  |LOUR = BLACK ?.)|
00000330: 20 D0 92 41 4E 44 20 53  54 4F 52 45 20 49 4E 20  | ..AND STORE IN |
00000340: 42 4F 52 44 45 52 2E B1  38 0D 92 52 45 41 44 20  |BORDER..8..READ |
00000350: 43 4F 4C 4F 55 52 54 41  42 20 56 41 4C 55 45 AC  |COLOURTAB VALUE.|
00000360: 38 00 EE 38 00 91 49 4E  43 20 43 4F 4C 54 41 42  |8..8..INC COLTAB|
00000370: 2E 20 50 4F 49 4E 54 45  52 2E 8D 38 09 91 49 4E  |. POINTER..8..IN|
00000380: 20 43 4F 55 4E 54 45 52  2E AD 38 0A 91 53 54 4F  | COUNTER..8..STO|
00000390: 52 45 20 53 50 45 45 44  2D 56 41 4C 55 45 D0 38  |RE SPEED-VALUE.8|
000003A0: 04 91 57 41 49 54 20 4F  4E 43 45 20 4D 4F 52 45  |..WAIT ONCE MORE|
000003B0: 2E CE 38 09 91 44 45 43  2E 20 53 50 45 45 44 20  |..8..DEC. SPEED |
000003C0: 43 4F 55 4E 54 45 52 2E  91 50 4F 53 2E 20 3D 20  |COUNTER..POS. = |
000003D0: 32 35 36 29 2E D0 38 04  91 39 54 48 20 42 49 54  |256)..8..9TH BIT|
000003E0: 20 53 45 54 2E 20 28 52  41 53 54 45 52 29 2C 80  | SET. (RASTER),.|
000003F0: AD 29 11 D0 91 43 48 45  43 4B 20 46 4F 52 20 39  |.)...CHECK FOR 9|
00000400: 54 48 20 42 49 54 2E D0  38 04 91 30 2E 20 28 49  |TH BIT..8..0. (I|
00000410: 4E 20 54 48 45 20 42 4F  52 44 45 52 29 AD 29 12  |N THE BORDER).).|
00000420: D0 91 57 41 49 54 20 46  4F 52 20 52 41 53 54 45  |..WAIT FOR RASTE|
00000430: 52 20 50 4F 53 30 04 8C  38 01 D0 38 08 D1 38 0D  |R POS0..8..8..8.|
00000440: C8 30 08 A0 28 FF 29 28  0F AD 29 21 D0 92 54 48  |.0..(.)(..)!..TH|
00000450: 45 20 53 41 4D 45 20 41  53 20 24 44 30 32 30 8C  |E SAME AS $D020.|
00000460: 38 00 92 46 4F 55 4E 44  21 D0 38 03 D1 38 0D 92  |8..FOUND!.8..8..|
00000470: 43 4F 4D 50 41 52 45 20  57 49 54 48 20 43 4F 4C  |COMPARE WITH COL|
00000480: 54 41 42 2E C8 30 03 A0  28 FF 90 54 48 45 4D 2E  |TAB..0..(..THEM.|
00000490: 20 28 43 4F 4C 20 30 2D  31 35 29 2E 29 28 0F 90  | (COL 0-15).)(..|
000004A0: 42 49 54 20 34 2D 37 20  49 53 20 53 45 54 3A 20  |BIT 4-7 IS SET: |
000004B0: 43 4C 45 41 52 AD 29 20  D0 90 47 45 54 20 43 55  |CLEAR.) ..GET CU|
000004C0: 52 52 45 4E 54 20 42 4F  52 44 45 52 20 43 4F 4C  |RRENT BORDER COL|
000004D0: 2E 8D 30 0D 40 2A 01 69  28 00 90 49 4E 20 43 41  |..0.@*.i(..IN CA|
000004E0: 53 45 20 43 41 52 52 59  20 57 41 53 20 53 45 54  |SE CARRY WAS SET|
000004F0: 2E AD 30 0D 40 2A 01 90  50 4F 49 4E 54 45 52 2E  |..0.@*..POINTER.|
00000500: 8C 30 0D 40 2A 01 90 53  54 4F 52 45 20 48 49 2D  |.0.@*..STORE HI-|
00000510: 42 59 54 45 20 49 4E 20  5A 50 2D 8D 38 0D 98 54  |BYTE IN ZP-.8..T|
00000520: 41 42 4C 45 2E 6D 38 0D  98 54 48 45 20 43 4F 4C  |ABLE.m8..THE COL|
00000530: 4F 55 52 18 98 4C 4F 57  20 42 59 54 45 20 46 4F  |OUR..LOW BYTE FO|
00000540: 52 A9 4A 30 02 41 30 0F  5B 98 46 49 4E 44 20 54  |R.J0.A0.[.FIND T|
00000550: 48 45 20 52 45 41 4C 48  AD 30 0D 40 2A 01 8F 5E  |HE REALH.0.@*..^|
00000560: 5E 5E 5E 20 54 48 45 20  49 4D 50 4F 52 54 41 4E  |^^^ THE IMPORTAN|
00000570: 54 20 50 41 52 54 2E 8F  2D 2D 2D 2D 2D 2D 2D 2D  |T PART..--------|
00000580: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000590: A8 8F 48 49 2D 42 59 54  45 20 54 4F 20 59 68 8F  |..HI-BYTE TO Yh.|
000005A0: 47 45 54 20 48 49 2D 42  59 54 45 2E 8F 42 59 54  |GET HI-BYTE..BYT|
000005B0: 45 2E 8D 38 0D 8F 53 54  4F 52 45 20 41 53 20 54  |E..8..STORE AS T|
000005C0: 45 4D 50 4F 52 41 52 59  20 4C 4F 57 2D 68 8F 47  |EMPORARY LOW-h.G|
000005D0: 45 54 20 4C 4F 57 2D 42  59 54 45 2E 9A 8F 58 20  |ET LOW-BYTE...X |
000005E0: 54 4F 20 53 54 41 43 4B  50 4F 49 4E 54 45 52 2E  |TO STACKPOINTER.|
000005F0: CA CA 8F 44 45 43 52 45  41 53 45 20 57 49 54 48  |...DECREASE WITH|
00000600: 20 32 2E BA 8F 53 54 41  43 4B 50 4F 49 4E 54 45  | 2...STACKPOINTE|
00000610: 52 20 54 4F 20 58 30 0F  8F 5F 54 48 49 53 20 41  |R TO X0.._THIS A|
00000620: 44 52 45 53 53 20 49 4E  20 53 54 41 43 4B 20 38  |DRESS IN STACK 8|
00000630: 0D 8F 27 4A 53 52 27 20  53 54 4F 52 45 53 8D 38  |..'JSR' STORES.8|
00000640: 0D 8F 4F 46 20 54 48 45  20 50 52 4F 47 52 41 4D  |..OF THE PROGRAM|
00000650: 2E A9 28 60 8F 46 49 4E  44 20 54 48 45 20 48 49  |..(`.FIND THE HI|
00000660: 2D 42 59 54 45 8E 24 36  30 3D 4F 50 2E 43 4F 44  |-BYTE.$60=OP.COD|
00000670: 45 20 46 4F 52 20 27 52  54 53 27 8F 2D 2D 2D 2D  |E FOR 'RTS'.----|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000690: 2D 2D 2D 48 8E 20 2D 2D  AD 38 0D 8E 38 0A 48 8E  |---H. --.8..8.H.|
000006A0: 20 2D 2D AD 38 0A 8E 38  09 48 8E 20 2D 2D AD 38  | --.8..8.H. --.8|
000006B0: 09 48 8E 20 2D 2D AD 38  01 48 8E 5A 50 2D 41 44  |.H. --.8.H.ZP-AD|
000006C0: 52 45 53 53 2E AD 38 00  8E 53 41 56 45 20 56 41  |RESS..8..SAVE VA|
000006D0: 4C 55 45 20 49 4E 20 54  48 49 53 8E 53 45 43 2E  |LUE IN THIS.SEC.|
000006E0: 8E 35 54 48 20 46 52 41  4D 45 20 3D 20 45 56 45  |.5TH FRAME = EVE|
000006F0: 52 59 20 31 30 54 48 A2  28 05 8F 46 41 44 45 20  |RY 10TH.(..FADE |
00000700: 53 50 45 45 44 2E 20 35  3D 20 45 56 45 52 59 78  |SPEED. 5= EVERYx|
00000710: 8E 44 49 53 41 42 4C 45  20 49 4E 54 45 52 52 55  |.DISABLE INTERRU|
00000720: 50 54 2E 30 0B 06 29 00  20 30 0D 05 28 2B 30 0A  |PT.0..). 0..(+0.|
00000730: 05 28 FE 30 09 05 28 FD  30 01 05 28 FC 30 00 05  |.(.0..(.0..(.0..|
00000740: 28 FB 80 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |(..-------------|
00000750: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000760: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 80 20 20 54 45 58  |----------.  TEX|
00000770: 54 20 57 52 49 54 54 45  4E 20 31 30 54 48 20 4D  |T WRITTEN 10TH M|
00000780: 41 52 43 48 20 31 39 39  33 2E 80 20 20 D2 41 53  |ARCH 1993..  .AS|
00000790: 4D 55 53 20 27 D2 41 5A  27 20 D7 45 52 4E 45 52  |MUS '.AZ' .ERNER|
000007A0: 53 53 4F 4E 2E 20 44 45  43 20 39 32 2E 80 80 20  |SSON. DEC 92... |
000007B0: 20 59 4F 55 27 4C 4C 20  4A 55 53 54 20 48 41 56  | YOU'LL JUST HAV|
000007C0: 45 20 54 4F 20 4D 41 4E  49 50 55 4C 41 54 45 20  |E TO MANIPULATE |
000007D0: 24 30 31 2E 80 20 20 24  41 30 30 30 2D 24 42 46  |$01..  $A000-$BF|
000007E0: 46 46 2C 20 24 44 30 30  30 2D 24 46 46 46 46 20  |FF, $D000-$FFFF |
000007F0: 28 46 4F 52 20 4D 43 2D  55 53 45 29 80 20 20 50  |(FOR MC-USE).  P|
00000800: 41 47 45 2E 20 C9 46 20  59 4F 55 20 57 41 4E 54  |AGE. .F YOU WANT|
00000810: 20 54 4F 20 50 41 4C 43  45 20 49 54 20 49 4E 80  | TO PALCE IT IN.|
00000820: 20 20 50 52 47 53 20 41  4E 44 20 49 54 20 44 4F  |  PRGS AND IT DO|
00000830: 53 4E 27 54 20 4D 45 53  53 20 55 50 20 54 48 45  |SN'T MESS UP THE|
00000840: 20 5A 45 52 4F 2D 80 20  20 C9 54 20 49 53 20 4D  | ZERO-.  .T IS M|
00000850: 41 49 4E 4C 59 20 4D 45  4E 54 20 46 4F 52 20 55  |AINLY MENT FOR U|
00000860: 53 45 20 49 4E 20 42 41  53 49 43 2D 80 80 20 20  |SE IN BASIC-..  |
00000870: 46 49 4E 44 53 20 4F 55  54 20 49 54 53 45 4C 46  |FINDS OUT ITSELF|
00000880: 20 57 48 45 52 45 20 49  54 20 49 53 20 50 4C 41  | WHERE IT IS PLA|
00000890: 43 45 44 2E 80 20 20 50  4C 41 43 45 44 20 41 4E  |CED..  PLACED AN|
000008A0: 59 57 48 45 52 45 20 49  4E 20 54 48 45 20 4D 45  |YWHERE IN THE ME|
000008B0: 4D 4F 52 59 2E 20 C9 54  80 20 20 D4 48 49 53 20  |MORY. .T.  .HIS |
000008C0: 53 43 52 45 45 4E 2F 42  4F 52 44 45 52 20 46 41  |SCREEN/BORDER FA|
000008D0: 44 45 52 20 43 41 4E 20  42 45 80 2D 2D 2D 2D 2D  |DER CAN BE.-----|
000008E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000008F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000900: 2D 2D 00 54 55 52 42 4F  00 28 22 24 27 01 26 27  |--.TURBO.("$'.&'|
00000910: 23 28 26 01 23 20 28 05  05 05 05 05 00 04 02 94  |#(&.# (.........|
00000920: 98 17 05 00 96 8C 83 85  83 85 83 83 85 83 83 85  |................|
00000930: 00 18 16 94 93 90 18 93  92 81 94 8F 9B 06 8E 8E  |................|
00000940: 19 00 19 00 86 81 96 8E  8E 8A 9B 09 86 9A 86 9C  |................|
00000950: 99 12 83 02 81 98 83 8A  00 96 83 83 02 81 83 83  |................|
00000960: 83 02 98 96 97 83 98 0D  97 93 95 8F 98 83 98 99  |................|
00000970: 94 96 16 97 8C 99 02 95  8C 8F 95 8B 97 99 94 96  |................|
00000980: 00 02 96 9B 81 86 81 86  81 86 81 86 81 86 92 96  |................|
00000990: 02 11 0D 00 11 0D 00 11  0D 00 17 15 60 00 00 00  |............`...|
000009A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000009B0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000009C0: 00 00 00 00 00 00 00 00  00 00 00 00 EC 00 00 00  |................|
000009D0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000009E0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000009F0: 00 00 00 00 00 00 00 00  00 00 00 00 47 B1 47 B2  |............G.G.|
00000A00: 43 4F 4C 54 41 C2 4C 4F  4F 50 B1 4C 4F 4F 50 B2  |COLTA.LOOP.LOOP.|
00000A10: 4F 4B B1 54 48 45 45 4E  C4 57 41 49 D4 4C 4F 4F  |OK.THEEN.WAI.LOO|
00000A20: 50 B3 47 B3 47 B4 53 54  41 52 D4 53 50 45 45 C4  |P.G.G.STAR.SPEE.|
00000A30: 5A 50 B1 43 4F 4C 41 C4  41 44 D2 54 41 C2 00 00  |ZP.COLA.AD.TA...|
00000A40: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000A50: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000A60: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000A70: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000A80: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000A90: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000AA0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000AB0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
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 00 00 00 00 00  00 00 00 00 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 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B20: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B30: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B40: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B50: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B60: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B70: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B80: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000B90: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BA0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BB0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BC0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BD0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BE0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000BF0: 00 00 00 00 00 00 00 00  00 00 00 00 00           |.............   |

........................................
........................X LTAB .........
............TEXT " "..    ._3S          
  ..BYTE $00..    ._.             Y P1) 
........................................
........................................
.................*.*.*.*.*.*.*.*.*.*..*.
*.*.*.*.*.*.*.*.*.*..*.*.*.*.*.*..*.*.*.
*.*.*.*.*..*.*.*.*.*.*..*.*.*.*.*.*.*.*.
.*.*.*.*.*.*..*.*.*.*.*.*.*.*.0.`.AND EN
D THE ROUTINE.X.ENABLE INTERRUPT.8..--H.
8..--H.8..--H.8..--H.8..--H.0.@*..STORED
 IN THE STACK.H.RE-INSTALL ZP-VALUES0.P8
..NO: CONTINUE LOOP.)(..COLOUR. BLACK ?.
.) P.AT BLACK. GET BORDERN8..YES. POINTE
R POINTSP8..BLACK ?.)!P.STORE IN SCREEN.
.8..GET COLOUR..8..POINTER..8..INC SCREE
N-COLTAB0..8..YES. END THE PROGRAM.)(..B
LACK ?..)!P.IS THE SCREEN ALSO.POINT AT 
BLACK AGAIN.N8..YES. MAKE POINTER.P8..CO
LOUR = BLACK ?.) P.AND STORE IN BORDER..
8..READ COLOURTAB VALUE.8..8..INC COLTAB
. POINTER..8..IN COUNTER..8..STORE SPEED
-VALUEP8..WAIT ONCE MORE.N8..DEC. SPEED 
COUNTER..POS. = 256).P8..9TH BIT SET. (R
ASTER),..).P.CHECK FOR 9TH BIT.P8..0. (I
N THE BORDER).).P.WAIT FOR RASTER POS0..
8.P8.Q8.H0. (.)(..)!P.THE SAME AS $D020.
8..FOUND!P8.Q8..COMPARE WITH COLTAB.H0. 
(..THEM. (COL 0-15).)(..BIT 4-7 IS SET: 
CLEAR.) P.GET CURRENT BORDER COL..0.@*.I
(..IN CASE CARRY WAS SET..0.@*..POINTER.
.0.@*..STORE HI-BYTE IN ZP-.8..TABLE.M8.
.THE COLOUR..LOW BYTE FOR.J0.A0.[.FIND T
HE REALH.0.@*..^^^^ THE IMPORTANT PART..
------------------------..HI-BYTE TO YH.
GET HI-BYTE..BYTE..8..STORE AS TEMPORARY
 LOW-H.GET LOW-BYTE...X TO STACKPOINTER.
JJ.DECREASE WITH 2...STACKPOINTER TO X0.
._THIS ADRESS IN STACK 8..'JSR' STORES.8
..OF THE PROGRAM..(`.FIND THE HI-BYTE.$6
0=OP.CODE FOR 'RTS'.--------------------
---H. --.8..8.H. --.8..8.H. --.8.H. --.8
.H.ZP-ADRESS..8..SAVE VALUE IN THIS.SEC.
.5TH FRAME = EVERY 10TH.(..FADE SPEED. 5
= EVERYX.DISABLE INTERRUPT.0..). 0..(+0.
.(.0..(.0..(.0..(..---------------------
------------------.  TEXT WRITTEN 10TH M
ARCH 1993..  RASMUS 'RAZ' WERNERSSON. DE
C 92...  YOU'LL JUST HAVE TO MANIPULATE 
$01..  $A000-$BFFF, $D000-$FFFF (FOR MC-
USE).  PAGE. IF YOU WANT TO PALCE IT IN.
  PRGS AND IT DOSN'T MESS UP THE ZERO-. 
 IT IS MAINLY MENT FOR USE IN BASIC-..  
FINDS OUT ITSELF WHERE IT IS PLACED..  P
LACED ANYWHERE IN THE MEMORY. IT.  THIS 
SCREEN/BORDER FADER CAN BE.-------------
--------------------------.TURBO.("$'.&'
#(&.# (.................................
........................................
........................................
....................`...................
........................................
....................................G.G.
COLTABLOOP.LOOP.OK.THEENDWAITLOOP.G.G.ST
ARTSPEEDZP.COLADADRTAB..................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
.............................
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL