Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape10b_acorn_eu_1990_april.wav » ULA2

ULA2

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_tape10b_acorn_eu_1990_april.wav
Filename: ULA2
Read OK:
File size: 0435 bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Split modes II
   20REM By R.Henderson
   30REM (c) Electron User
   40?&74=0
   50FOR x%=0 TO 2 STEP 2
   60P%=&900
   70[ OPT x%
   80PHP : PHA
   90TXA : PHA
  100TYA : PHA
  110LDA #&FF
  120STA &29B
  130STA &29C
  140STA &29D
  150STA &29E
  160STA &29F
  170LDA &74
  180EOR #&FF
  190BNE col3
  200ASL A
  210BEQ col4
  220.ret
  230PLA : TAY
  240PLA : TAX
  250PLA : PLP
  260RTS
  270.col4
  280STA &74
  290LDA &72
  300STA&FE08
  310LDA &73
  320STA&FE09
  330LDA #168
  340STA &282
  350STA &FE07
  360JMP ret
  370.col3
  380STA &74
  390LDA &70
  400STA&FE08
  410LDA &71
  420STA&FE09
  430LDA #160
  440STA &282
  450STA &FE07
  460JMP ret
  470.go
  480LDA #19
  490JSR &FFF4
  500LDA #&FF
  510STA &29B
  520STA &29C
  530STA &29D
  540STA &29E
  550STA &29F
  560LDA #0 : STA &74
  570LDA #0 : STA &220
  580LDA #9 : STA &221
  590LDA #14
  600LDX #5
  610LDY #0
  620JSR &FFF4
  630RTS
  640]
  650NEXT
  660?&72=112 : ?&73=49
  670?&70=60  : ?&71=23
  680CALL go
  690MODE 4
  700VDU 23,1,0;0;0;0;
  710?&355=4
  720?&361=7
  730?&360=0
  740?&34F=8
  750VDU 28,0,31,39,13
  760REPEAT
  770MOVE 0,612
  780MOVE 1000,700
  790FOR F%=0 TO 480
  800?&360=3
  810GCOL 0,RND(4)-1
  820PLOT 85,RND(1278),RND(400)+612
  830?&360=0
  840PRINT "This is Mode 4...";
  850NEXT
  860UNTIL 0

� Split modes II
� By R.Henderson
� (c) Electron User
(
?&74=0
2� x%=0 � 2 � 2
<P%=&900
F[ OPT x%
P
PHP : PHA
Z
TXA : PHA
d
TYA : PHA
nLDA #&FF
xSTA &29B
�STA &29C
�STA &29D
�STA &29E
�STA &29F
�LDA &74
�
� #&FF
�BNE col3
�	ASL A
�BEQ col4
�.ret
�
PLA : TAY
�
PLA : TAX
�
PLA : PLP
RTS
	.col4
STA &74
"LDA &72
,STA&FE08
6LDA &73
@STA&FE09
JLDA #168
TSTA &282
^
STA &FE07
hJMP ret
r	.col3
|STA &74
�LDA &70
�STA&FE08
�LDA &71
�STA&FE09
�LDA #160
�STA &282
�
STA &FE07
�JMP ret
�.go
�LDA #19
�
JSR &FFF4
�LDA #&FF
�STA &29B
STA &29C
STA &29D
STA &29E
&STA &29F
0LDA #0 : STA &74
:LDA #0 : STA &220
DLDA #9 : STA &221
NLDA #14
X
LDX #5
b
LDY #0
l
JSR &FFF4
vRTS
�]
��
�?&72=112 : ?&73=49
�?&70=60  : ?&71=23
�� go
�� 4
�� 23,1,0;0;0;0;
�?&355=4
�?&361=7
�?&360=0
�?&34F=8
�� 28,0,31,39,13
��
� 0,612
� 1000,700
� F%=0 � 480
 ?&360=3
*� 0,�(4)-1
4� 85,�(1278),�(400)+612
>?&360=0
H� "This is Mode 4...";
R�
\� 0
�
00000000  0d 00 0a 14 f4 20 53 70  6c 69 74 20 6d 6f 64 65  |..... Split mode|
00000010  73 20 49 49 0d 00 14 14  f4 20 42 79 20 52 2e 48  |s II..... By R.H|
00000020  65 6e 64 65 72 73 6f 6e  0d 00 1e 17 f4 20 28 63  |enderson..... (c|
00000030  29 20 45 6c 65 63 74 72  6f 6e 20 55 73 65 72 0d  |) Electron User.|
00000040  00 28 0a 3f 26 37 34 3d  30 0d 00 32 12 e3 20 78  |.(.?&74=0..2.. x|
00000050  25 3d 30 20 b8 20 32 20  88 20 32 0d 00 3c 0b 50  |%=0 . 2 . 2..<.P|
00000060  25 3d 26 39 30 30 0d 00  46 0c 5b 20 4f 50 54 20  |%=&900..F.[ OPT |
00000070  78 25 0d 00 50 0d 50 48  50 20 3a 20 50 48 41 0d  |x%..P.PHP : PHA.|
00000080  00 5a 0d 54 58 41 20 3a  20 50 48 41 0d 00 64 0d  |.Z.TXA : PHA..d.|
00000090  54 59 41 20 3a 20 50 48  41 0d 00 6e 0c 4c 44 41  |TYA : PHA..n.LDA|
000000a0  20 23 26 46 46 0d 00 78  0c 53 54 41 20 26 32 39  | #&FF..x.STA &29|
000000b0  42 0d 00 82 0c 53 54 41  20 26 32 39 43 0d 00 8c  |B....STA &29C...|
000000c0  0c 53 54 41 20 26 32 39  44 0d 00 96 0c 53 54 41  |.STA &29D....STA|
000000d0  20 26 32 39 45 0d 00 a0  0c 53 54 41 20 26 32 39  | &29E....STA &29|
000000e0  46 0d 00 aa 0b 4c 44 41  20 26 37 34 0d 00 b4 0a  |F....LDA &74....|
000000f0  82 20 23 26 46 46 0d 00  be 0c 42 4e 45 20 63 6f  |. #&FF....BNE co|
00000100  6c 33 0d 00 c8 09 41 53  4c 20 41 0d 00 d2 0c 42  |l3....ASL A....B|
00000110  45 51 20 63 6f 6c 34 0d  00 dc 08 2e 72 65 74 0d  |EQ col4.....ret.|
00000120  00 e6 0d 50 4c 41 20 3a  20 54 41 59 0d 00 f0 0d  |...PLA : TAY....|
00000130  50 4c 41 20 3a 20 54 41  58 0d 00 fa 0d 50 4c 41  |PLA : TAX....PLA|
00000140  20 3a 20 50 4c 50 0d 01  04 07 52 54 53 0d 01 0e  | : PLP....RTS...|
00000150  09 2e 63 6f 6c 34 0d 01  18 0b 53 54 41 20 26 37  |..col4....STA &7|
00000160  34 0d 01 22 0b 4c 44 41  20 26 37 32 0d 01 2c 0c  |4..".LDA &72..,.|
00000170  53 54 41 26 46 45 30 38  0d 01 36 0b 4c 44 41 20  |STA&FE08..6.LDA |
00000180  26 37 33 0d 01 40 0c 53  54 41 26 46 45 30 39 0d  |&73..@.STA&FE09.|
00000190  01 4a 0c 4c 44 41 20 23  31 36 38 0d 01 54 0c 53  |.J.LDA #168..T.S|
000001a0  54 41 20 26 32 38 32 0d  01 5e 0d 53 54 41 20 26  |TA &282..^.STA &|
000001b0  46 45 30 37 0d 01 68 0b  4a 4d 50 20 72 65 74 0d  |FE07..h.JMP ret.|
000001c0  01 72 09 2e 63 6f 6c 33  0d 01 7c 0b 53 54 41 20  |.r..col3..|.STA |
000001d0  26 37 34 0d 01 86 0b 4c  44 41 20 26 37 30 0d 01  |&74....LDA &70..|
000001e0  90 0c 53 54 41 26 46 45  30 38 0d 01 9a 0b 4c 44  |..STA&FE08....LD|
000001f0  41 20 26 37 31 0d 01 a4  0c 53 54 41 26 46 45 30  |A &71....STA&FE0|
00000200  39 0d 01 ae 0c 4c 44 41  20 23 31 36 30 0d 01 b8  |9....LDA #160...|
00000210  0c 53 54 41 20 26 32 38  32 0d 01 c2 0d 53 54 41  |.STA &282....STA|
00000220  20 26 46 45 30 37 0d 01  cc 0b 4a 4d 50 20 72 65  | &FE07....JMP re|
00000230  74 0d 01 d6 07 2e 67 6f  0d 01 e0 0b 4c 44 41 20  |t.....go....LDA |
00000240  23 31 39 0d 01 ea 0d 4a  53 52 20 26 46 46 46 34  |#19....JSR &FFF4|
00000250  0d 01 f4 0c 4c 44 41 20  23 26 46 46 0d 01 fe 0c  |....LDA #&FF....|
00000260  53 54 41 20 26 32 39 42  0d 02 08 0c 53 54 41 20  |STA &29B....STA |
00000270  26 32 39 43 0d 02 12 0c  53 54 41 20 26 32 39 44  |&29C....STA &29D|
00000280  0d 02 1c 0c 53 54 41 20  26 32 39 45 0d 02 26 0c  |....STA &29E..&.|
00000290  53 54 41 20 26 32 39 46  0d 02 30 14 4c 44 41 20  |STA &29F..0.LDA |
000002a0  23 30 20 3a 20 53 54 41  20 26 37 34 0d 02 3a 15  |#0 : STA &74..:.|
000002b0  4c 44 41 20 23 30 20 3a  20 53 54 41 20 26 32 32  |LDA #0 : STA &22|
000002c0  30 0d 02 44 15 4c 44 41  20 23 39 20 3a 20 53 54  |0..D.LDA #9 : ST|
000002d0  41 20 26 32 32 31 0d 02  4e 0b 4c 44 41 20 23 31  |A &221..N.LDA #1|
000002e0  34 0d 02 58 0a 4c 44 58  20 23 35 0d 02 62 0a 4c  |4..X.LDX #5..b.L|
000002f0  44 59 20 23 30 0d 02 6c  0d 4a 53 52 20 26 46 46  |DY #0..l.JSR &FF|
00000300  46 34 0d 02 76 07 52 54  53 0d 02 80 05 5d 0d 02  |F4..v.RTS....]..|
00000310  8a 05 ed 0d 02 94 16 3f  26 37 32 3d 31 31 32 20  |.......?&72=112 |
00000320  3a 20 3f 26 37 33 3d 34  39 0d 02 9e 16 3f 26 37  |: ?&73=49....?&7|
00000330  30 3d 36 30 20 20 3a 20  3f 26 37 31 3d 32 33 0d  |0=60  : ?&71=23.|
00000340  02 a8 08 d6 20 67 6f 0d  02 b2 07 eb 20 34 0d 02  |.... go..... 4..|
00000350  bc 13 ef 20 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |... 23,1,0;0;0;0|
00000360  3b 0d 02 c6 0b 3f 26 33  35 35 3d 34 0d 02 d0 0b  |;....?&355=4....|
00000370  3f 26 33 36 31 3d 37 0d  02 da 0b 3f 26 33 36 30  |?&361=7....?&360|
00000380  3d 30 0d 02 e4 0b 3f 26  33 34 46 3d 38 0d 02 ee  |=0....?&34F=8...|
00000390  13 ef 20 32 38 2c 30 2c  33 31 2c 33 39 2c 31 33  |.. 28,0,31,39,13|
000003a0  0d 02 f8 05 f5 0d 03 02  0b ec 20 30 2c 36 31 32  |.......... 0,612|
000003b0  0d 03 0c 0e ec 20 31 30  30 30 2c 37 30 30 0d 03  |..... 1000,700..|
000003c0  16 10 e3 20 46 25 3d 30  20 b8 20 34 38 30 0d 03  |... F%=0 . 480..|
000003d0  20 0b 3f 26 33 36 30 3d  33 0d 03 2a 0e e6 20 30  | .?&360=3..*.. 0|
000003e0  2c b3 28 34 29 2d 31 0d  03 34 1b f0 20 38 35 2c  |,.(4)-1..4.. 85,|
000003f0  b3 28 31 32 37 38 29 2c  b3 28 34 30 30 29 2b 36  |.(1278),.(400)+6|
00000400  31 32 0d 03 3e 0b 3f 26  33 36 30 3d 30 0d 03 48  |12..>.?&360=0..H|
00000410  1a f1 20 22 54 68 69 73  20 69 73 20 4d 6f 64 65  |.. "This is Mode|
00000420  20 34 2e 2e 2e 22 3b 0d  03 52 05 ed 0d 03 5c 07  | 4...";..R....\.|
00000430  fd 20 30 0d ff                                    |. 0..|
00000435
ULA2.m0
ULA2.m1
ULA2.m2
ULA2.m4
ULA2.m5