Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF » P/36C2GEN
P/36C2GEN
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF |
| Filename: | P/36C2GEN |
| Read OK: | ✔ |
| File size: | 02D6 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » eug » eug_3_5_discs_Eug-29_A-EUG29.adf » U/36C2GEN
- AEW website » eug » eug_5_25_discs_Eug-29_D-EUG29.dsd » U.36C2GEN
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_29.ADF » P/36C2GEN
File contents
10REM Assembler code for 36 colour mode 2
20REM For machines with shadow RAM
30REM Turn off screen refresh event trap
40*FX13,4
50REM Type *FX14,4 to activate
60REM DO NOT Hardware Scroll!
70PROCcode
80OSCLI("SAVE 36C2SRC 900 "+STR$~P%)
90END
100DEFPROCcode
110codestart=&900
120osbyte=&FFF4
130eventv=&220
140byte=&70
150FORpass%=0TO3STEP3
160P%=codestart
170[OPTpass%
180.init
190PHP:PHA
200LDA#1
210STAbyte
220SEI
230LDAeventv
240STAoldeventv
250LDA#entry MOD256
260STAeventv
270LDAeventv+1
280STAoldeventv+1
290LDA#entry DIV256
300STAeventv+1
310CLI
320PLA:PLP
330RTS
340:
350.entry
360PHP:PHA:TXA:PHA
370LDAbyte
380EOR#1
390STAbyte
400TAX
410LDA#113
420JSRosbyte
430PLA:TAX:PLA:PLP
440JMP(oldeventv)
450:
460.oldeventv
470EQUW0
480]:NEXT
490CALLinit
500ENDPROC
)� Assembler code for 36 colour mode 2
"� For machines with shadow RAM
(� Turn off screen refresh event trap
( *FX13,4
2 � Type *FX14,4 to activate
< � DO NOT Hardware Scroll!
F �code
P �("SAVE 36C2SRC 900 "+�~P%)
Z�
d
��code
ncodestart=&900
xosbyte=&FFF4
�eventv=&220
� byte=&70
��pass%=0�3�3
�P%=codestart
�
[OPTpass%
� .init
� PHP:PHA
� LDA#1
� STAbyte
�SEI
�
LDAeventv
�STAoldeventv
�LDA#entry �256
STAeventv
LDAeventv+1
STAoldeventv+1
"LDA#entry �256
,STAeventv+1
6CLI
@ PLA:PLP
JRTS
T:
^
.entry
hPHP:PHA:TXA:PHA
r LDAbyte
|�#1
� STAbyte
�TAX
� LDA#113
�
JSRosbyte
�PLA:TAX:PLA:PLP
�JMP(oldeventv)
�:
�.oldeventv
� EQUW0
�]:�
� �init
��
� 00000000 0d 00 0a 29 f4 20 41 73 73 65 6d 62 6c 65 72 20 |...). Assembler |
00000010 63 6f 64 65 20 66 6f 72 20 33 36 20 63 6f 6c 6f |code for 36 colo|
00000020 75 72 20 6d 6f 64 65 20 32 0d 00 14 22 f4 20 46 |ur mode 2...". F|
00000030 6f 72 20 6d 61 63 68 69 6e 65 73 20 77 69 74 68 |or machines with|
00000040 20 73 68 61 64 6f 77 20 52 41 4d 0d 00 1e 28 f4 | shadow RAM...(.|
00000050 20 54 75 72 6e 20 6f 66 66 20 73 63 72 65 65 6e | Turn off screen|
00000060 20 72 65 66 72 65 73 68 20 65 76 65 6e 74 20 74 | refresh event t|
00000070 72 61 70 0d 00 28 0b 2a 46 58 31 33 2c 34 0d 00 |rap..(.*FX13,4..|
00000080 32 1e f4 20 54 79 70 65 20 2a 46 58 31 34 2c 34 |2.. Type *FX14,4|
00000090 20 74 6f 20 61 63 74 69 76 61 74 65 0d 00 3c 1d | to activate..<.|
000000a0 f4 20 44 4f 20 4e 4f 54 20 48 61 72 64 77 61 72 |. DO NOT Hardwar|
000000b0 65 20 53 63 72 6f 6c 6c 21 0d 00 46 09 f2 63 6f |e Scroll!..F..co|
000000c0 64 65 0d 00 50 1f ff 28 22 53 41 56 45 20 33 36 |de..P..("SAVE 36|
000000d0 43 32 53 52 43 20 39 30 30 20 22 2b c3 7e 50 25 |C2SRC 900 "+.~P%|
000000e0 29 0d 00 5a 05 e0 0d 00 64 0a dd f2 63 6f 64 65 |)..Z....d...code|
000000f0 0d 00 6e 12 63 6f 64 65 73 74 61 72 74 3d 26 39 |..n.codestart=&9|
00000100 30 30 0d 00 78 10 6f 73 62 79 74 65 3d 26 46 46 |00..x.osbyte=&FF|
00000110 46 34 0d 00 82 0f 65 76 65 6e 74 76 3d 26 32 32 |F4....eventv=&22|
00000120 30 0d 00 8c 0c 62 79 74 65 3d 26 37 30 0d 00 96 |0....byte=&70...|
00000130 10 e3 70 61 73 73 25 3d 30 b8 33 88 33 0d 00 a0 |..pass%=0.3.3...|
00000140 10 50 25 3d 63 6f 64 65 73 74 61 72 74 0d 00 aa |.P%=codestart...|
00000150 0d 5b 4f 50 54 70 61 73 73 25 0d 00 b4 09 2e 69 |.[OPTpass%.....i|
00000160 6e 69 74 0d 00 be 0b 50 48 50 3a 50 48 41 0d 00 |nit....PHP:PHA..|
00000170 c8 09 4c 44 41 23 31 0d 00 d2 0b 53 54 41 62 79 |..LDA#1....STAby|
00000180 74 65 0d 00 dc 07 53 45 49 0d 00 e6 0d 4c 44 41 |te....SEI....LDA|
00000190 65 76 65 6e 74 76 0d 00 f0 10 53 54 41 6f 6c 64 |eventv....STAold|
000001a0 65 76 65 6e 74 76 0d 00 fa 12 4c 44 41 23 65 6e |eventv....LDA#en|
000001b0 74 72 79 20 83 32 35 36 0d 01 04 0d 53 54 41 65 |try .256....STAe|
000001c0 76 65 6e 74 76 0d 01 0e 0f 4c 44 41 65 76 65 6e |ventv....LDAeven|
000001d0 74 76 2b 31 0d 01 18 12 53 54 41 6f 6c 64 65 76 |tv+1....STAoldev|
000001e0 65 6e 74 76 2b 31 0d 01 22 12 4c 44 41 23 65 6e |entv+1..".LDA#en|
000001f0 74 72 79 20 81 32 35 36 0d 01 2c 0f 53 54 41 65 |try .256..,.STAe|
00000200 76 65 6e 74 76 2b 31 0d 01 36 07 43 4c 49 0d 01 |ventv+1..6.CLI..|
00000210 40 0b 50 4c 41 3a 50 4c 50 0d 01 4a 07 52 54 53 |@.PLA:PLP..J.RTS|
00000220 0d 01 54 05 3a 0d 01 5e 0a 2e 65 6e 74 72 79 0d |..T.:..^..entry.|
00000230 01 68 13 50 48 50 3a 50 48 41 3a 54 58 41 3a 50 |.h.PHP:PHA:TXA:P|
00000240 48 41 0d 01 72 0b 4c 44 41 62 79 74 65 0d 01 7c |HA..r.LDAbyte..||
00000250 07 82 23 31 0d 01 86 0b 53 54 41 62 79 74 65 0d |..#1....STAbyte.|
00000260 01 90 07 54 41 58 0d 01 9a 0b 4c 44 41 23 31 31 |...TAX....LDA#11|
00000270 33 0d 01 a4 0d 4a 53 52 6f 73 62 79 74 65 0d 01 |3....JSRosbyte..|
00000280 ae 13 50 4c 41 3a 54 41 58 3a 50 4c 41 3a 50 4c |..PLA:TAX:PLA:PL|
00000290 50 0d 01 b8 12 4a 4d 50 28 6f 6c 64 65 76 65 6e |P....JMP(oldeven|
000002a0 74 76 29 0d 01 c2 05 3a 0d 01 cc 0e 2e 6f 6c 64 |tv)....:.....old|
000002b0 65 76 65 6e 74 76 0d 01 d6 09 45 51 55 57 30 0d |eventv....EQUW0.|
000002c0 01 e0 07 5d 3a ed 0d 01 ea 09 d6 69 6e 69 74 0d |...]:......init.|
000002d0 01 f4 05 e1 0d ff |......|
000002d6 
P/36C2GEN.m0
P/36C2GEN.m1
P/36C2GEN.m2
P/36C2GEN.m4
P/36C2GEN.m5
.