Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape10a_acorn_eu_1990_april.wav » ULA1

ULA1

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 tapes » Electron_User » Electron_User_tape10a_acorn_eu_1990_april.wav
Filename: ULA1
Read OK:
File size: 0288 bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Horizontal mode mixing
   20FOR X%=1 TO RND(4)+1+4
   30*FX19
   40NEXT
   50*KEY10 OLD|MRUN|M
   60?&FE07=164
   70MODE 4
   80VDU 23,1,0;0;0;0;
   90P%=&900
  100[OPT 0
  110LDA #19
  120JSR &FFF4
  130.kkk
  140LDA &71
  150LDY &70
  160LDX #164
  170STA &FE07
  180.call
  190STA &FE07
  200LDX #4
  210.l DEX
  220BNE l
  230STY &FE07
  240JMP call
  250.dddd SEI
  260RTS
  270]
  280VDU 19,1,1;0;
  290?&360=3 : ?&361=3
  300?&355=5 : ?&34F=16
  310FOR A%=0 TO 30 STEP 2
  320PRINT TAB(3,A%);"Mode 5..."
  330NEXT
  340?&FE07=164
  350?&360=0 : ?&361=0
  360?&355=5 : ?&34F=8
  370B$=" THIS IS MODE NUMBER FOUR"
  380FOR X%=1 TO LEN(B$)
  390PRINT TAB(31,X%);MID$(B$,X%,1);" *";TAB(0,X%);"* ";MID$(B$,X%,1)
  400NEXT
  410?&70=164 : ?&71=174
  420CALL dddd
  430*FX19
  440CALL &900

� Horizontal mode mixing
� X%=1 � �(4)+1+4
	*FX19
(�
2*KEY10 OLD|MRUN|M
<?&FE07=164
F� 4
P� 23,1,0;0;0;0;
ZP%=&900
d
[OPT 0
nLDA #19
x
JSR &FFF4
�.kkk
�LDA &71
�LDY &70
�LDX #164
�
STA &FE07
�	.call
�
STA &FE07
�
LDX #4
�
.l DEX
�	BNE l
�
STY &FE07
�JMP call
�
.dddd SEI
RTS
]
� 19,1,1;0;
"?&360=3 : ?&361=3
,?&355=5 : ?&34F=16
6� A%=0 � 30 � 2
@� �3,A%);"Mode 5..."
J�
T?&FE07=164
^?&360=0 : ?&361=0
h?&355=5 : ?&34F=8
r"B$=" THIS IS MODE NUMBER FOUR"
|� X%=1 � �(B$)
�2� �31,X%);�B$,X%,1);" *";�0,X%);"* ";�B$,X%,1)
��
�?&70=164 : ?&71=174
�
� dddd
�	*FX19
�
� &900
�
00000000  0d 00 0a 1c f4 20 48 6f  72 69 7a 6f 6e 74 61 6c  |..... Horizontal|
00000010  20 6d 6f 64 65 20 6d 69  78 69 6e 67 0d 00 14 15  | mode mixing....|
00000020  e3 20 58 25 3d 31 20 b8  20 b3 28 34 29 2b 31 2b  |. X%=1 . .(4)+1+|
00000030  34 0d 00 1e 09 2a 46 58  31 39 0d 00 28 05 ed 0d  |4....*FX19..(...|
00000040  00 32 15 2a 4b 45 59 31  30 20 4f 4c 44 7c 4d 52  |.2.*KEY10 OLD|MR|
00000050  55 4e 7c 4d 0d 00 3c 0e  3f 26 46 45 30 37 3d 31  |UN|M..<.?&FE07=1|
00000060  36 34 0d 00 46 07 eb 20  34 0d 00 50 13 ef 20 32  |64..F.. 4..P.. 2|
00000070  33 2c 31 2c 30 3b 30 3b  30 3b 30 3b 0d 00 5a 0b  |3,1,0;0;0;0;..Z.|
00000080  50 25 3d 26 39 30 30 0d  00 64 0a 5b 4f 50 54 20  |P%=&900..d.[OPT |
00000090  30 0d 00 6e 0b 4c 44 41  20 23 31 39 0d 00 78 0d  |0..n.LDA #19..x.|
000000a0  4a 53 52 20 26 46 46 46  34 0d 00 82 08 2e 6b 6b  |JSR &FFF4.....kk|
000000b0  6b 0d 00 8c 0b 4c 44 41  20 26 37 31 0d 00 96 0b  |k....LDA &71....|
000000c0  4c 44 59 20 26 37 30 0d  00 a0 0c 4c 44 58 20 23  |LDY &70....LDX #|
000000d0  31 36 34 0d 00 aa 0d 53  54 41 20 26 46 45 30 37  |164....STA &FE07|
000000e0  0d 00 b4 09 2e 63 61 6c  6c 0d 00 be 0d 53 54 41  |.....call....STA|
000000f0  20 26 46 45 30 37 0d 00  c8 0a 4c 44 58 20 23 34  | &FE07....LDX #4|
00000100  0d 00 d2 0a 2e 6c 20 44  45 58 0d 00 dc 09 42 4e  |.....l DEX....BN|
00000110  45 20 6c 0d 00 e6 0d 53  54 59 20 26 46 45 30 37  |E l....STY &FE07|
00000120  0d 00 f0 0c 4a 4d 50 20  63 61 6c 6c 0d 00 fa 0d  |....JMP call....|
00000130  2e 64 64 64 64 20 53 45  49 0d 01 04 07 52 54 53  |.dddd SEI....RTS|
00000140  0d 01 0e 05 5d 0d 01 18  0f ef 20 31 39 2c 31 2c  |....]..... 19,1,|
00000150  31 3b 30 3b 0d 01 22 15  3f 26 33 36 30 3d 33 20  |1;0;..".?&360=3 |
00000160  3a 20 3f 26 33 36 31 3d  33 0d 01 2c 16 3f 26 33  |: ?&361=3..,.?&3|
00000170  35 35 3d 35 20 3a 20 3f  26 33 34 46 3d 31 36 0d  |55=5 : ?&34F=16.|
00000180  01 36 13 e3 20 41 25 3d  30 20 b8 20 33 30 20 88  |.6.. A%=0 . 30 .|
00000190  20 32 0d 01 40 18 f1 20  8a 33 2c 41 25 29 3b 22  | 2..@.. .3,A%);"|
000001a0  4d 6f 64 65 20 35 2e 2e  2e 22 0d 01 4a 05 ed 0d  |Mode 5..."..J...|
000001b0  01 54 0e 3f 26 46 45 30  37 3d 31 36 34 0d 01 5e  |.T.?&FE07=164..^|
000001c0  15 3f 26 33 36 30 3d 30  20 3a 20 3f 26 33 36 31  |.?&360=0 : ?&361|
000001d0  3d 30 0d 01 68 15 3f 26  33 35 35 3d 35 20 3a 20  |=0..h.?&355=5 : |
000001e0  3f 26 33 34 46 3d 38 0d  01 72 22 42 24 3d 22 20  |?&34F=8..r"B$=" |
000001f0  54 48 49 53 20 49 53 20  4d 4f 44 45 20 4e 55 4d  |THIS IS MODE NUM|
00000200  42 45 52 20 46 4f 55 52  22 0d 01 7c 12 e3 20 58  |BER FOUR"..|.. X|
00000210  25 3d 31 20 b8 20 a9 28  42 24 29 0d 01 86 32 f1  |%=1 . .(B$)...2.|
00000220  20 8a 33 31 2c 58 25 29  3b c1 42 24 2c 58 25 2c  | .31,X%);.B$,X%,|
00000230  31 29 3b 22 20 2a 22 3b  8a 30 2c 58 25 29 3b 22  |1);" *";.0,X%);"|
00000240  2a 20 22 3b c1 42 24 2c  58 25 2c 31 29 0d 01 90  |* ";.B$,X%,1)...|
00000250  05 ed 0d 01 9a 17 3f 26  37 30 3d 31 36 34 20 3a  |......?&70=164 :|
00000260  20 3f 26 37 31 3d 31 37  34 0d 01 a4 0a d6 20 64  | ?&71=174..... d|
00000270  64 64 64 0d 01 ae 09 2a  46 58 31 39 0d 01 b8 0a  |ddd....*FX19....|
00000280  d6 20 26 39 30 30 0d ff                           |. &900..|
00000288
ULA1.m0
ULA1.m1
ULA1.m2
ULA1.m4
ULA1.m5