[1.875IPS
[PROGRAM TO SET UP A REPRODUCE AMPLIFIER WITH A  ONE AND SEVEN EIGTHS EQUALIZER
[OUTPUT FROM AMPLIFIER GOES TO SAM 10 ON LINC DIRECTLY.
[TELETYPE SWITCH IN STANDARD MODE.
$20
SETi1
1377
#1A SCR 7
RTA
COM
ATR
SAM 10
STAi1
XSK 1
JMP 1A
SETi1
1757
CLR
ADAi1
XSK 1
JMP p-2
SCR 3
STC 1D
SETi1
1377
#1B SCR 17
RTA
COM
ATR
SROi
5252
NOP
SAMi10
STAi1
XSK 1
JMP 1B
SETi1
1757
CLR
ADAi1
XSK 1
JMP p-2
SCR 3
STC 1Z
[DISPLAY REFERENCES
SETi1
777
SETi2
-100
CLR
DISi1
ADD 1C
DIS 1
XSKi2
JMP p-5
[DISPLAY OBSERVATION
SETi2
-100
LDAi
#1D 0000
DISi1
LDAi
#1Z 0000
DIS 1
XSKi2
JMP p-7
[COMPARISONS
LDA
1Z
SCR 1
AZE
JMP 1E
LDAi
#1C 0177
COM
ADD 1D
SCR 1
AZE
JMP 1F
SETi3
2A-1
LDAi
-100
JMP 1G
#1E SETi3
2B-1
CLR
JMP 1G
#1F SETi3
2C-1
LDAi
200
JMP 1G
[MESSAGE DISPLAY
#1G SETi2
-11
SETi1
300
DSCi3
DSCi3
DSCi
0
XSKi2
JMP p-5
JMP 20
[SUCCESS MESSAGE
#2A 5121
4651
0177
7701
4136
2241
4136
2241
4577
4145
5121
4651
5121
4651
0
0
0
0
[ADJ.ZERO MESSAGE
#2B 4437
3744
4177
3641
4142
4076
0001
0
0
0
4741
4171
5177
4151
5477
2152
4136
3641
[ADJ.OPUT MESSAGE
#2C 4437
3744
4177
3641
4142
4076
0001
0
0
0
4177
7741
4477
3044
0177
7701
4040
4077
[END FOR NOW
[1.875IPS