File PLAY1

Directory of image this file is from
This file as a plain text file

[PLAY G C JOHNS APRIL 30,1967
[UPDATE ON HALLOWEEN
[PLAY ON OPPOSITE UNIT AND RETURN TO SAME UNIT
$1
ZZZ i
JMP 1A
LDA i
RCG u
STC 2G
LDA i
RDC i
STC 2D
LDA i 
RDC
STC 2J
JMP 20
$20
#1P LDA i
4430-4
STC 2C
#1B JMP 2A
JMP 1T
#1C SNS 0
JMP 1D
RSW
JMP 1Q
#1D JMP 2H
AZE i
JMP 1N
ADA i 
-44
APO i
JMP 8A
ADA i
3A-1+44
STA
1J
ADA i
3B-3A
STC 1H
JMP 2H
#1E MUL i
#1F 1
COM
STC 6
#1G SET 7
#1H 0
#1I SET 10
#1J 0
#1K COM
SCR i 1
XSK i 10
JMP p-1
XSK i 7
JMP 1L
XSK i 6
JMP 1G
LDA i 
#1U 17
STC 1K
JMP 1D
#1L JMP p+1
JMP p+1
JMP 1I
#1N LDA i
16
STC 1K
JMP 2H
AZE
JMP 1E
ADD 1U
STC 1K
SNS i 2
JMP 1P
SNS i 1
JMP 1T
#1M JMP 2H
AZE
JMP 1O
JMP 2H
AZE i
JMP 2F
[NEW TEMPO
JMP 1Q
JMP 1C
#1O STC 1H
RSW
JMP 1Q
ADD 1H
JMP 1D+3
#1Q STA
1F
ROL 7
STC 8B
JMP 0
[RETURN TO LAP
#2F SET i 15
#2G RCG
SET i 16
7300
JMP 15
#2H SET 11
0
LDH i 5
XSK i 2
JMP 0
XSK i 1
JMP 0
STC p+3
JMP 2A
LDA i
0
JMP 11
#2A SET 4
0
LDA i
4
ADM i
#2C 4350-4
STC 2E
SET i 3
-3
#2D RDC i u
#2E 0
ADD p-1
ADA i 
1001
STA
2E
XSK i 3
JMP 2D
STC p+2
#2J RDC u
0
JMP 2I
JMP 4
#2I SET i 1
-2
SET i 2
-2000
SET i 5
7777
JMP 0
#1T JMP 2I
JMP 1M
[UPPER OCTAVE
#8A ADA i
8F-1
STC 6
LDA 6
STC 8D
LDA i
8G-8F
ADD 6
STC 6
LDA 6
STC 8C
JMP 2H
STC 8H
SET i 6
-4
LDA i
#8B
ROL 1
APO
ADD 8H
BCL i 
4000
XSK i 6
JMP 8B+1
COM
STC 7
[OSCILLATE,BABY
SET i 6
#8C
COM
SCR 1
#8D JMP 
XSK i 6
JMP 8E
XSK i 7
JMP 8C-1
JMP 1D
#8E NOP
NOP
NOP
JMP 8C+1
[DISTRIBUTOR
#8F JMP 9O
JMP 9P
JMP 9Q
JMP 9R
JMP 9S
JMP 9T
JMP 9U
JMP 9V
JMP 9W
JMP 9X
JMP 9Y
JMP 9Z
JMP 9B
JMP 9C
JMP 9D
JMP 9E
JMP 9F
JMP 9G
JMP 9H
JMP 9I
JMP 9J
JMP 9K
JMP 9L
JMP 9M
JMP 9N
[25 MSEC DELAYS
#8G -32
-33
-35
-36
-40
-42
-44
-46
-51
-53
-56
-60
-63
-66
-72
-75
-101
-104
-111
-115
-121
-126
-133
-141
-146
[NOTE DURATION
#8H 0
[COMMON DELAY
#9A NOP
NOP
NOP
XSK i 10
JMP p-1
JMP 8D+1
[61 C6
#9B SET i 10
-12
JMP 9A+1
[62 C6#
#9C SET i 10
-11
JMP 9A
[63 D6
#9D SET i 10
-10
JMP 9A
[64 D6#
#9E SET i 10
-10
JMP 9A+3
[65 E6
#9F SET i 10
-7
JMP 9A+2
[66 F6
#9G SET i 10
-6
JMP 9A
[67 F6#
#9H SET i 10
-6
JMP 9A+3
[70 G6
#9I SET i 10
-5
JMP 9A+1
[71 G6#
#9J SET i 10
-4
JMP 9A
[72 A6
#9K SET i 10
-4
JMP 9A+2
[73 A6#
#9L SET i 10
-3
JMP 9A
[74 B6
#9M SET i 10
-3
JMP 9A+2
[75 C7
#9N SET i 10
-2
JMP 9A
[45 C5
#9O SET i 10
-31
JMP 9A
[46 C5#
#9P SET i 10
-30
JMP 9A+3
[47 D5
#9Q SET i 10
-26
JMP 9A+1
[50 D5#
#9R SET i 10
-25
JMP 9A+3
[51 E5
#9S SET i 10
-23
JMP 9A+1
[52 F5
#9T SET i 10
-22
JMP 9A+3
[53 F5#
#9U SET i 10
-20
JMP 9A
[54 G5
#9V SET i 10
-17
JMP 9A+1
[55 G5#
#9W SET i 10
-16
JMP 9A+1
[56 A5
#9X SET i 10
-15
JMP 9A+1
[58 A5#
#9Y SET i 10
-14
JMP 9A+1
[60 B5
#9Z SET i 10
-13
JMP 9A+1
#3A -360
-342
-325
-311
-276
-263
-250
-237
-226
-215
-205
-175
-166
-157
-151
-142
-135
-127
-122
-115
-111
-104
-100
-74
-71
-65
-62
-57
-54
-52
-47
-45
-42
-40
-36
-34
[-1 IS A6#
#3B -3
-3
-4
-4
-4
-4
-5
-5
-5
-5
-5
-6
-6
-6
-7
-7
-10
-10
-11
-11
-12
-12
-13
-13
-14
-15
-16
-16
-17
-20
-21
-22
-23
-24
-26
-27
-30
$2000
101
201
301
401
501
601
701
1001
1101
1201
1301
1401
1501
1601
1701
2001
2101
2201
2301
2401
2501
2601
2701
3001
3101
3201
3301
3401
3501
3601
3701
4001
4101
4201
4301
4401
4501
4601
4701
5001
5101
5201
5301
5401
5501
5601
5701
6001
6101
6201
6301
6401
6501
6601
6701
7001
7101
7201
7301
7401
7501
7401
7301
7201
7101
7001
6701
6601
6501
6401
6301
6201
6101
6001
5701
5601
5501
5401
5301
5201
5101
5001
4701
4601
4501
4401
4301
4201
4101
4001
3701
3601
3501
3401
3301
3201
3101
3001
2701
2601
2501
2401
2301
2201
2101
2001
1701
1601
1501
1401
1301
1201
1101
1001
701
601
501
401
301
201
101
501
1001
1501
2101
2401
3101
3501
4001
4501
5101
5401
6101
6501
7001
0
0
0



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search