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

$1
JMP 20
$20
JMP p+2
0 [INTERUPT INSTRUCTION HERE
CLR
ATR  [SHUTTERS CLOSED
JMP 1Q
2A  [R OR S
2B
LDH [ANSWER IN ACC
4000+2B
SAE i
40
JMP p+2
JMP 1M
SAE i [IF S
0046
JMP p+2
JMP 3G
SAEi
51 [V
JMP 20 [INVAL CHAR
[
LDA i
51 [V
STC 3D+2
LDA i
JMP 9X
STC 9E+5
LDAi
JMP 9V [DELAY SUB
STC 3E
JMP 3F
[
[
#3G LDAi
46 [S
STC 3D+2
LDAi
JMP 9R
STC 3E
LDAi
JMP 9F
STC 9E+5
#3F JMP 1Q [Q+AR
2C
2D
LDAi
2D
STC 1
JMP 9A [UNPACKED TO OCTAL
LDA
2      [ANSWER IN 2
STAi
#3A 0      [#RUNS PER HISTO
JMP 1Q
2G
2H
LDAi
2H
STC 1
JMP 9A [UNPACK
LDA
2
STA i
#3C 0
JMP 1Q
2E     [BIN WIDTH
2F
[SET UP BIN WIDTH+CLOCK
LDA i
2F
STC 1
JMP 9A
LDH
4000+2F
SAE i
34
JMP 1F
LDA i
JMP 5A
STC 21
LDA i
JMP 5E
STC 3E+1
LDA
2
STA 
3B
BCL i
7700
ROL 3
ADA i
0003
OPR 1
LDA i
2000
OPR 2
JMP 3D
#1F LDA i
JMP 9E
STC 3E+1
LDA
2     [ANSWER
STAi
#3B 0      [BIN WIDTH
[SETUP REAL TIME CLOCK
SNS i 0
JMP p+4
LDA i 
4031
JMP p+3
LDA i
4001
OPR 1 [LOAD STATUS
LDA
3B
COM
OPR 3 [LOAD PRESET BUFFER WITH NEG COUNT
[
#3D JMP 9P [CLEAR QN 6+7
LDA i
00
STA
3770
LDA
3B   [BIN WIDTH
STA
3771
LDA
3A
COM
STC 5 [-NO. RUNS
[WAIT FOR TRAP AND SENSOR
#3E JMP 9R
[
JMP 9E [COLLECT HISTOGRAM
OPR 10
CLR
ATR
LDA
5
ADA i
1
ADD 3A
STA
3772
KST
JMP p+12
KBD
SAEi
45
JMP p+2
JMP 3D
SAE i
46
JMP p+2
JMP p+3
#3I XSK i 5
JMP 3E [RUNS NOT OVER
[
SET i 10
7013
SET i 11
2777
CLR
ADA i 11
XSK i 10
JMP p-2
STA
3773
LDA
3C
STC 9J-1
JMP 9J  [STORE MEMORY ON TAPE
JMP 1C
#1B JMP 1D
JMP 9N [HISTO PARAMS
JMP 9H  [DISPLAY HISTO
OPR 7 [SENSE REMOTE BUTTONS
BCL i
7776
AZE
JMP1L 
OPR 7
BCL i
7773
AZE
JMP 3D
KST
JMP 1B
KBD
SAE i
45  [R
JMP p+2
JMP 3D [REPEAT
SAE i
24  [A
JMP p+2
JMP 1L
SAE i
40 [M
JMP p+2
JMP 1M
SAE i
25  [B
JMP p+2
JMP 1N
SAE i
31 [F
JMP p+2
JMP 1P
SAE i
01
JMP p+4
LDA i
-1
JMP 8T
SAE i
02
JMP p+4
LDA i
-20
JMP 8T
SAE i
03
JMP p+4
LDA i
1
JMP 8T
SAE i
04
JMP p+4
LDA i
20
JMP 8T
SAE i
05
JMP p+4
LDA i
-1
JMP 8U
SAE i
06
JMP p+4
LDA i
-20
JMP 8U
SAE i
07
JMP p+4
LDA i
1
JMP 8U
SAE i
10
JMP 1B
LDA i
20
JMP 8U
[
[
#8T ADM 
8Q
APO i
JMP p+4
CLR
STC 8Q
JMP 1B-1
ADA i
-763
APO
JMP 8U+11
LDA i
763
STA
8Q
STA
8R
JMP 1B-1
#8U ADM
8R
ADA i
-763
APO
JMP 8U+11
LDA i
763
STC 8R
LDA
8Q
COM
ADA
8R
APO i
JMP 1B-1
LDA
8Q
STC 8R
JMP 1B-1
[
#1P XSK 5
JMP 3I
JMP 1B
[
[
#1L LDA
3C
ADA i
2   [ADVANCE BN
STC 3C
JMP 3D
[
[
#1N LDA
3C
ADA i
2
STC 3C
JMP 3C+1
[
[
#1M JMP 1Q  [Q+AR
2M  [DESIRED BN
2N
LDA i
2N
STC 1
JMP 9A  [UNPACK TO OCTAL
LDA
2
STC 9L-1
JMP 9L  [TAPE TO MEMORY
[
[
#1C LDA i
3000
ADA
8R
STA
8B
LDA i
2777
ADA
8Q
STA
14
CLR
STA
8A
[-----------
LDA
14
SAE
8B 
JMP p+2
JMP 1B
LDA i 14
ADM 
8A
JMP p-11
[ 
[
[###############
[SUB TO DISPLAY CURSORS
[
#8Q 0144
#8R 0454
#8A 0000
#8B 0000
#1D LDA 
0
STA i
0
[
SET 1
8Q
LDA i
-124
ADA i
1
DIS 1
SAE i
-103
JMP p-5
SET 1
8R
LDA i
-124
ADA i
1
DIS 1
SAE i
-103
JMP p-5
LDA i
8Q
STA
3H
LDA i
-150
STA
1H
JMP 1G
JMP 1D+3
[
[
[##################
[SUB TO DELAY
[
#9V LDA
0
STAi
0
SNS i 0
JMP p+4
SET i16
-200
JMP p+3
SET i16
-60
SET i17
1
XSK i 17
JMP p-1
XSKi16
JMP p-5
SET i 17
-5
JMP 9H
XSK i 17
JMP p-2
SNS i 0
JMP p+7
SETi16
-144
LDA i
-310
STC 9Y
JMP p+6
SET i 16
-1
LDA i
777
STC 9Y
[
LDA i
1
SNS 4
JMP p+3
ADA i
20
SNS 3
JMP p+3
ADA i
10
STAi
#9Z NOP
JMP 9V+3
[
[##################
[SUB TO WAIT FOR TRAP SIGNALS
[
#9R LDA
0
STA i
0
[
SNS i 5
JMP p+12
JMP 9H
SXL i 3
JMP p-2
CLR
COM
ATR
SXL 3
JMP p-1
JMP 9R+3
JMP 9H
SXL i 4
JMP p-2
CLR
COM
ATR
SXL 4
JMP p-1
JMP 9R+3
[SUBROUTINE TO COLLECT HISTOGRAM INTO QN 6+7
[DOESNT CLEAR QN 6+7
[
#9E LDA
0
STAi
0
[
LDAi
JMP 9F
STC 21 [INTERUPTTO HERE
[
SETi1
3000  [1ST MEMORY LOC
SET i 3
7013  [-# OF BINS
SNS 2
JMP p+4
LDA i
JMP 7A
STC 21
SNS 1
JMP p+6
LDA
9Z
ATR
SXL i 10
JMP p-1
OPR 4 [START CLOCK
ENI
#9G SXL i 10
JMP p-1
LDA i [GOT A PULSE
1
ADM 1 [ ADD TO BIN
SXL 10
JMP p-1
JMP 9G
[
[
[
[##################
[   SERVICE ROUTINE FOR INTERRUPT
[SINGLE MODE
[
#9F SXL 10
JMP p-1
XSK i 3 [# OF BINS
JMP p+2
JMP 9E+3
XSK i 1 [MOVE TO NEXT BIN
JMP 9G-1
[
[
[################
[SERVICE PREFACE FOR LATENCY HISTO
#7A AZE
JMP 9E+3
[##################
[SERVICE ROUTINE FOR V MODE
#9X SXL 10
JMP p-1
XSK i3 [#  BINS
JMP p+2
JMP 9E+3
XSKi1
XSK i16
JMP p+10
LDA
9Z
ATR
SET i 16
#9Y -310
CLR
STC 9Z
JMP 9G-1
[
[###############
[SUB FOR ISI
#5E LDA
0
STA i
0
[
LDA
9Z
ATR
SET i 2
-250
SET i 17
-1
OPR 4
ENI
SET i 1
-120
XSK i 1
JMP p-1
XSK i 2
JMP p-5
JMP 5E+3
ENI
SET i 1
-120
XSK i 1
JMP p-1
XSK i 2
JMP p-5
JMP 5E+3
#5A OPR 5
SAE i
0777
JMP p+2
JMP 5E+11
XSK i 17
JMP p+2
JMP 5A-10
ADA i
1000
STC 5B
LDA i
1
ADM
#5B 0000
XSK i 2
JMP 5A-10
JMP 5E+3
[##################
[  SUBROUTINE TO CLEAR QN 6+7
[
#9P LDA
0
STAi
0
[
SET i 6
2777
CLR
STA i 6
XSK 6
JMP p-2
JMP 9P+3
[
[
[
[##################
[HISTO DISPLAY ROUTINE
[USES REG 10 11 12
[
#9H LDA
0
STAi
0
[
SET i 10
2777 [1ST STORAGE LOCATION
SET i 11
-764  [#OF BINS
SET i 12
0     [X COORDINATE
#9Q LDA i 10
ROL 2
ADAi
-100
SAEi
-100
JMP p+2
JMP p+5
DIS 12
ADAi
-1
JMP p-7
XSK i 12
XSK i 11
JMP 9Q
JMP 9H+3
[
[
[##################
[SUB TO PUT HISTO PARAMS ON SCREEN
0
#9N LDA
0
STA i
0
[
LDA
3770
SET i 1
60 [X COORD
ROL 1
ADAi
1R
STC 17  [ADDR OF PATTERN WORD
LDA i
-277 [Y COORD
DSC 17
DSC i 17
LDA i
3771
STA
3H
LDA i
-277
STA
1H
JMP 1G
JMP 9N+3
[
[
[###############
[SUB FOR 3 # PARAMS
[
#1G LDA 
0
STA i
0
LDA i
160
STA
9O
SET i 16
-3
LDA
#3H 3771
STA 
9N-1
SET i 15
-4
AZE i
JMP p+3
SET i 14
1777
SET i 1
#9O 160 [XCOORD
LDA
9N-1
ROL 3
STA
9N-1
BCL i
7770
ROL 1
XSK 14
JMP p+6
AZE
JMP p+4
LDAi
30
JMP p+2
XSK i 14
NOP
ADAi
1R
STC 17
LDA i
#1H -277
DSC 17
DSC i 17
XSK i 15
JMP 9O+1
XSK i 16
JMP p+2
JMP 1G+3
LDA i
200
ADD 9O
STC 9O
LDA i
1
ADD 3H
STC 3H
JMP 3H-1
[
[##################
[SUB TO STORE QN 6+7 ON TAPE
[
0
#9J LDA
0
STAi
0
LDA
9J-1
ADAi
6000
STA
9K
ADAi
1001
STC 9K+2
WRC i u
#9K 0
WRC u
0
JMP 9J+3
[
[
[##################
[SUB TO GET INFO FROM TAPE TO QN 6+7
[
0
#9L LDA
0
STA i
0
[
LDA
9L-1
ADA i
6000
STA
9M
ADA i
1001
STC 9M+2
RDC i u
#9M 0
RDC u
0
JMP 9L+3
[
[
[##################
[Q+AR
$1347
#1Q LDAi
2
ADD 0
STAi
0
ADD p+133
STC 1
LDA 1
ADD p+170
STC p+35
LDAi 1
STC p+26
STC 6
SET 3
p+23
SET 4
p+26
JMP p+125
JMP p+3
JMP p+14
JMP p-3
STH 3
LDHi 4
COM
STC 6
ADD p+202
STHi 3 [LDHi 3
XSKi 6
JMP p-2
LDHi 3
JMP p-15
STH 3
SETi 4
0
LDAi
137
STC p+12
SETi 3
0
SET 5
p-7
SETi 1
100
LDAi
-40
ADMi
0
LDHi 3
JMP p+67
JMP p+303
JMP p+17
SHDi
1200
JMP p-14
JMP p+71
JMP p-10
JMP p+67
SROi
0
DIS 1
LDHi 5
JMP p+52
JMP p-17
JMP p-20
JMP p-10
KST
JMP p-40
KBD
SETi 2
p+233
SHD 2
JMP p+121
SHDi 2
JMP p-105
XSK 6
JMP p-51
SHDi 2
JMP p+20
SHDi 2
JMP p+131
SHDi 2
JMP p+21
JMP p+25
JMP p-106
JMP p-62
STC p+5
JMP p+20
JMP p+50
JMP p+47
LDAi
0
STH 4
JMP p-72
LDH 4
JMP p+11
JMP p-75
-6002
JMP p+36
JMP p+4
JMP p-101
JMP p-104
JMP p-3
LDHi 4
SHDi
7000
JMP 0
SAEi
76
XSKi 0
XSKi 0
JMP 0
ROL 1
ADD p+163
STC 2
ADD p+20
ADD 1
STC 1
ADD 5
COM
ADD 4
AZE
CLR
STC p-100
ADD p-115
DSC 2
DSCi 2
JMP 0
LDAi
-4000
ADM
4
JMP p-141
[CHARACTER PATTERNS
[KBD 0:CODE 00
#1R 4136
3641
[1:01
2101
0177
[2:02
4523
2151
[3:03
4122
2651
[4:04
2414
0477
[5:05
5172
0651
[6:06
1506
4225
[7:07
4443
6050
[8:10
5126
2651
[9:11
5122
3651
[EOL:12
KBDi
ADD p-212
[DEL:13
JMP 0
67
[SPACE:14
0000
0000
[i:15
0101
0126
[p:16
3700
3424
[-:17
0404
0404
[+:20
0404
0437
[|:21
0000
0077
[#:22
JMP p-102
JMP p-52
[CASE:23
JMP p-53
JMP p-211
[A:24
4477
7744
[B:25
5177
2651
[C:26
4136
2241
[D:27
4177
3641
[E:30
4577
4145
[F:31
4477
4044
[G:32
4136
2645
[H:33
1077
7710
[I:34
7741
0041
[J:35
4142
4076
[K:36
1077
4324
[L:37
0177
0301
[M:40
3077
7730
[N:41
3077
7706
[O:42
4177
7741
[P:43
4477
3044
[Q:44
4276
0376
[R:45
4477
3146
[S:46
5121
4651
[T:47
4040
4077
[U:50
0177
7701
[V:51
0176
7402
[W:52
0677
7701
[X:53
1463
6314
[Y:54
0770
7007
[Z:55
4543
6151
[META
[56
[CASE EOL
2356
1322
[57
[CASE DEL
1200
p-137
[?:60
[CASE SPACE
4020
2055
[=:61
[CASE i
1212
1212
[u:62
[CASE p
0107
0107
[,:63
[CASE -
0500
0006
[.:64
[CASE +
0001
0000
[$:65
[CASE |
4577
7745
[[:66
[CASE #
4177
0000
[_:67
[CASE CASE
0101
0101
[":70
[CASE A
LDHi 3
LDAi
[;:71
[CASE B
14
JMP p-277
[<:72
[CASE C
2410
0042
[>:73
[CASE D
4200
1024
[]:74
[CASE E
0000
7741
[*:75
[CASE F
2050
0050
[::76
[CASE G
[UNDEFINED:77
[Q+AR
[12|27|67
[
[
[
[##################
[SUB TO CONVERT ANSWER BUFFER TO OCTAL
[LOC BUFF REG 1
[NO. RET TO REG 2
[
#9A LDA
0
STAi
0
[
SET i3
7774
SET i2
7777
#9C LDHi1
SAEi
0067
JMPp+2 [NOT BLANK
JMP 9B [BLANK
ADD 2
ROL 3
STA
2
XSK i 3
JMP 9C
[
ROR 3
STC 2
JMP 9A+3
#9B LDA
2
JMP  p-5
[
[
$2002
#2A "MEMORY, SINGLE OR
VBSPOT?"1:;
#2B 0
0
0
#2C "NO. RUNS PER HISTO"3:;
#2D 0
0
0
#2E "BIN WIDTH"3:;
#2F 0
0
0
#2G "1ST STORAGE LOC"3:;
#2H 0
0
0
#2M "DESIRED BLOCK"3:;
#2N 0
0
0
[
[
[JULY 1,1976     R.R.A.
[JAN. 1,1979 MODIFICATIONS FOR COMPATABILITY WITH CSPOT PROGRAMS