Home » Archimedes archive » Archimedes World » AW-1996-07.adf » !Gamma_Gamma » !Gamma/BootStrap/!RunImage
!Gamma/BootStrap/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1996-07.adf » !Gamma_Gamma |
| Filename: | !Gamma/BootStrap/!RunImage |
| Read OK: | ✔ |
| File size: | 024D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1DIM rtab% 256,gtab% 256,btab% 256
2F%=OPENIN("<Obey$Dir>.table")
3s$=GET$#F%
4IFs$<>"# Gamma tables" THEN CLOSE#F%:QUIT
5j$=GET$#F%:REM time
6j$=GET$#F%
7j$=GET$#F%:REM version
8j$=GET$#F%
9INPUT#F%,xwp2%,ywp2%,gamtool%,tx01%,ty01%,tx02%,ty02%
10INPUT#F%,gamR%,gamG%,gamB%,gamcom%
11INPUT#F%,tx0R%,ty0R%,tx1R%,ty1R%,tx2R%,ty2R%,tx3R%,ty3R%
12INPUT#F%,tx0G%,ty0G%,tx1G%,ty1G%,tx2G%,ty2G%,tx3G%,ty3G%
13INPUT#F%,tx0B%,ty0B%,tx1B%,ty1B%,tx2B%,ty2B%,tx3B%,ty3B%
14INPUT#F%,ccC%
15SYS "OS_GBPB",4,F%,rtab%,256
16SYS "OS_GBPB",4,F%,gtab%,256
17SYS "OS_GBPB",4,F%,btab%,256
18SYS"Compo_WriteGamma",rtab%,gtab%,btab%
19CLOSE#F%
20QUIT
#� rtab% 256,gtab% 256,btab% 256
F%=�("<Obey$Dir>.table")
s$=�#F%
#�s$<>"# Gamma tables" � �#F%:Ș
j$=�#F%:� time
j$=�#F%
j$=�#F%:� version
j$=�#F%
5�#F%,xwp2%,ywp2%,gamtool%,tx01%,ty01%,tx02%,ty02%
"�#F%,gamR%,gamG%,gamB%,gamcom%
8�#F%,tx0R%,ty0R%,tx1R%,ty1R%,tx2R%,ty2R%,tx3R%,ty3R%
8�#F%,tx0G%,ty0G%,tx1G%,ty1G%,tx2G%,ty2G%,tx3G%,ty3G%
8�#F%,tx0B%,ty0B%,tx1B%,ty1B%,tx2B%,ty2B%,tx3B%,ty3B%
�#F%,ccC%
ș "OS_GBPB",4,F%,rtab%,256
ș "OS_GBPB",4,F%,gtab%,256
ș "OS_GBPB",4,F%,btab%,256
*ș"Compo_WriteGamma",rtab%,gtab%,btab%
�#F%
Ș
� 00000000 0d 00 01 23 de 20 72 74 61 62 25 20 32 35 36 2c |...#. rtab% 256,|
00000010 67 74 61 62 25 20 32 35 36 2c 62 74 61 62 25 20 |gtab% 256,btab% |
00000020 32 35 36 0d 00 02 1c 46 25 3d 8e 28 22 3c 4f 62 |256....F%=.("<Ob|
00000030 65 79 24 44 69 72 3e 2e 74 61 62 6c 65 22 29 0d |ey$Dir>.table").|
00000040 00 03 0b 73 24 3d be 23 46 25 0d 00 04 23 e7 73 |...s$=.#F%...#.s|
00000050 24 3c 3e 22 23 20 47 61 6d 6d 61 20 74 61 62 6c |$<>"# Gamma tabl|
00000060 65 73 22 20 8c 20 d9 23 46 25 3a c8 98 0d 00 05 |es" . .#F%:.....|
00000070 12 6a 24 3d be 23 46 25 3a f4 20 74 69 6d 65 0d |.j$=.#F%:. time.|
00000080 00 06 0b 6a 24 3d be 23 46 25 0d 00 07 15 6a 24 |...j$=.#F%....j$|
00000090 3d be 23 46 25 3a f4 20 76 65 72 73 69 6f 6e 0d |=.#F%:. version.|
000000a0 00 08 0b 6a 24 3d be 23 46 25 0d 00 09 35 e8 23 |...j$=.#F%...5.#|
000000b0 46 25 2c 78 77 70 32 25 2c 79 77 70 32 25 2c 67 |F%,xwp2%,ywp2%,g|
000000c0 61 6d 74 6f 6f 6c 25 2c 74 78 30 31 25 2c 74 79 |amtool%,tx01%,ty|
000000d0 30 31 25 2c 74 78 30 32 25 2c 74 79 30 32 25 0d |01%,tx02%,ty02%.|
000000e0 00 0a 22 e8 23 46 25 2c 67 61 6d 52 25 2c 67 61 |..".#F%,gamR%,ga|
000000f0 6d 47 25 2c 67 61 6d 42 25 2c 67 61 6d 63 6f 6d |mG%,gamB%,gamcom|
00000100 25 0d 00 0b 38 e8 23 46 25 2c 74 78 30 52 25 2c |%...8.#F%,tx0R%,|
00000110 74 79 30 52 25 2c 74 78 31 52 25 2c 74 79 31 52 |ty0R%,tx1R%,ty1R|
00000120 25 2c 74 78 32 52 25 2c 74 79 32 52 25 2c 74 78 |%,tx2R%,ty2R%,tx|
00000130 33 52 25 2c 74 79 33 52 25 0d 00 0c 38 e8 23 46 |3R%,ty3R%...8.#F|
00000140 25 2c 74 78 30 47 25 2c 74 79 30 47 25 2c 74 78 |%,tx0G%,ty0G%,tx|
00000150 31 47 25 2c 74 79 31 47 25 2c 74 78 32 47 25 2c |1G%,ty1G%,tx2G%,|
00000160 74 79 32 47 25 2c 74 78 33 47 25 2c 74 79 33 47 |ty2G%,tx3G%,ty3G|
00000170 25 0d 00 0d 38 e8 23 46 25 2c 74 78 30 42 25 2c |%...8.#F%,tx0B%,|
00000180 74 79 30 42 25 2c 74 78 31 42 25 2c 74 79 31 42 |ty0B%,tx1B%,ty1B|
00000190 25 2c 74 78 32 42 25 2c 74 79 32 42 25 2c 74 78 |%,tx2B%,ty2B%,tx|
000001a0 33 42 25 2c 74 79 33 42 25 0d 00 0e 0d e8 23 46 |3B%,ty3B%.....#F|
000001b0 25 2c 63 63 43 25 0d 00 0f 1f c8 99 20 22 4f 53 |%,ccC%...... "OS|
000001c0 5f 47 42 50 42 22 2c 34 2c 46 25 2c 72 74 61 62 |_GBPB",4,F%,rtab|
000001d0 25 2c 32 35 36 0d 00 10 1f c8 99 20 22 4f 53 5f |%,256...... "OS_|
000001e0 47 42 50 42 22 2c 34 2c 46 25 2c 67 74 61 62 25 |GBPB",4,F%,gtab%|
000001f0 2c 32 35 36 0d 00 11 1f c8 99 20 22 4f 53 5f 47 |,256...... "OS_G|
00000200 42 50 42 22 2c 34 2c 46 25 2c 62 74 61 62 25 2c |BPB",4,F%,btab%,|
00000210 32 35 36 0d 00 12 2a c8 99 22 43 6f 6d 70 6f 5f |256...*.."Compo_|
00000220 57 72 69 74 65 47 61 6d 6d 61 22 2c 72 74 61 62 |WriteGamma",rtab|
00000230 25 2c 67 74 61 62 25 2c 62 74 61 62 25 0d 00 13 |%,gtab%,btab%...|
00000240 08 d9 23 46 25 0d 00 14 06 c8 98 0d ff |..#F%........|
0000024d 
.