projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
*** empty log message ***
[h316.git]
/
programs
/
small-things
/
src
/
play.asm
1
* SUPERCOOLES SONDERPROGRAMM!
2
*
3
ABS
4
ORG '1000
5
*
6
*
7
*
8
LDA =-50
9
STA LCNT LOOP COUNTER
10
CRA
11
STA 0 ACTIVE PATTERN
12
LDA ='125252
13
IAB
14
LDA ='000770
15
STA MUS
16
*
17
L1S LDA =-'47777 INNER DELAY
18
STA CNT
19
LDA MUS
20
L1 IRS CNT
21
JMP *-1
22
STA MUS
23
*
24
LDA MUS
25
JST* DISP,1 CALL INDEXED TO TABLE,HUI!
26
STA MUS
27
*
28
IRS LCNT
29
JMP L1S NOT READY TO CHANGE PATTERN
30
*
31
LDA =-50 REINITIALIZE LOOP COUNTER
32
STA LCNT
33
*
34
LDA 0
35
AOA
36
ANA =7
37
STA 0
38
*
39
JMP L1S LOOP AGAIN INNER
40
*
41
MUS DEC 0
42
LCNT DEC 0
43
CNT DEC 0
44
*
45
DISP DAC P0
46
DAC P0
47
DAC P2
48
DAC P3
49
DAC P4
50
DAC P5
51
DAC P6
52
DAC P7
53
*
54
*
55
P0 DAC **
56
LLR 1
57
JMP* P0
58
P1 DAC **
59
LRR 1
60
JMP* P1
61
P2 DAC **
62
LLR 2
63
JMP* P2
64
P3 DAC **
65
LRR 2
66
JMP* P3
67
P4 DAC **
68
CMA
69
JMP* P4
70
P5 DAC **
71
IAB
72
JMP* P5
73
P6 DAC **
74
ICA
75
JMP* P6
76
P7 DAC **
77
ALR 1
78
JMP* P7
79
*
80
*
81
* THAT'S IT!
82
*
83
END