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

?$1
JMP 20
$ 20
JMP p+2
0000
CLR
ATR
#2N JMP 7K [Q AND A FOR TIME INTERVALS
2A
6A
LDH
4000+6A
SAE i
0041
JMP 2C
JMP 7K
2D
6A
LDA i
6A
STC 1
JMP 9A
LDA
2
STC 7C
LDA i
6A+2
STC 1
JMP 9A
LDA
2
STC 6B
LDA i
6A+4
STC 1
JMP 9A
LDA
2
STC 6C
LDA i
6A+6
STC 1
JMP 9A
LDA 
2
STC 6D
LDA i
6A+10
STC 1
JMP 9A
LDA
2
STC 6E
LDA i
6A+12
STC 1
JMP 9A
LDA
2
STC 6F
LDA i
6A+14
STC 1
JMP 9A
LDA
2
STC 6G
#2C JMP 7K [Q AND A FOR # SWEEPS
2O
6A
LDA i
6A
STC 1
JMP 9A
LDA
2
STC 2G
JMP 7K [Q AND A FOR 1ST STORAGE BLOCK
3Q
6A
LDA i
6A
STC 1
JMP 9A
LDA
2
STC 2I
LDA
2I
[
#1N STC 2I+1
STC 2H
JMP 1U
[
[
[
[MAIN BRANCH POINT:
#2Q SAE i
0
JMP p+2
JMP 2R
SAE i
1
JMP p+2
JMP 2T [CMODE=1
SAE i
3
JMP p+2
JMP 2U [CMODE=3
SAE i
4
JMP p+2
JMP 2V [CMODE=4
SAE i
6
0000 [ILLEGAL
JMP 2W [CMODE=6
[
#2R LDA i
40
STC 5S+1
LDA i
60
STC 5S+2
STC 5R
LDA i
43
STC 2Y
JMP 2X
[
#2T LDA i [CMODE=1
20
STC 5S+1
LDA i
60
STC 5S+2
STC 5R
LDA i
41
STC 2Y
JMP 2X
[
#2U LDA i [CMODE=3
40
STC 5S+1
LDA i
1
STC 5R
LDA i
31
STC 2Y
JMP 2X
[
#2V LDA i [CMODE=4
20
STC 5S+1
LDA i
1
STC 5R
LDA i
37
STC 2Y
JMP 2X
[
#2W LDA i [CMODE=6
60
STC 5S+1
LDA i
1
STC 5R
LDA i
47
STC 2Y
[
[
#2X JMP 2S [DATA AQ
#1B LDA
2H  [SWP CNT
AZE
JMP p+2
JMP p+3
JMP 1C[HISTO IN
JMP 1E
[
JMP 1F[CLR Q4+5
JMP 1E
[
#1E JMP 1G[HIST ADD
JMP 1H[HIST OUT
[
JMP 1W
[
LDA i [MODE=0,1,3,4 OR 6
1
ADM
2H [ICR SWP CNT
SAE
2G [#SWPS
JMP 1J
JMP 1K
[
[
#1J LDA i
JMP 1O
STC 21
LDA i
4061
OPR 1
LDA i
-4
OPR 3
OPR 4
ENI
[SET UP 7 SEC PAUSE
[
#1K JMP 7J [HISTDSP
KST
JMP p-2
KBD
SAE i
43 [P
JMP p+2
JMP 1L
[
SAE i
45 [R
JMP p+2
JMP 1M
[
SAE i
26 [C
JMP p+2
JMP 1O
[
SAE i
40 [M
JMP 1K [NULLKEY
JMP 3K
[
[MEMORY OPTION ####
#3K JMP 7K [Q+A
3L
6A
LDA i
6A
STC 1
JMP 9A
LDA
2
STC 3N
[
LDA i
6000
ADM 
3N
ADA i
1001
STC 3N+2
RDC i u
#3N 0000
RDC u
0000
JMP 1K
[
[
[---------------
[
#1L OPR 10
JMP 1K [PAUSE
[
#1M OPR 10
LDA
2I
JMP 1N [REPEAT
[
#1O LDA
2E
JMP 2Q [CONTINUE
[
[
[###MODE=7###
[LIST AT #7C THE DIFFERENT TIME INTERVALS DESIRED IN OCTAL
#7C 12
#6B 00
#6C 00
#6D 00
#6E 00
#6F 00
#6G 00
#7D 0000
[
[SAFEGUARD
#1U LDA
2I
ADA i
[FOLLOWING NUMBER MUST BE ADJUSTED FOR # OF TIME INTERVALS
-760
APO i
JMP 2N+12
[NOT ROOM ON TAPE
#3U LDA i
2525
STC 7D
LDA i
7C
STC 7E
CLR
STC 2E
[
LDA
#7E 0000
AZE i
JMP 1Y-5
STA
2M
JMP 1V [DT
LDA
2E
JMP 1J [MAINPRO WITH PAUSE
#1W LDA
2E
SAE i
0
JMP p+2
JMP 1Z
SAE i
1
JMP 1Y
#1Z LDA i
2
ADM
2I+1 [CBLOCK
SRO
7D
JMP 1X
LDAi
1
ADM
7E
SAE i
7D
JMP 3U+6
JMP 1X+4
[
#1X LDA i
1
STC 2E
JMP 7E-1
[
LDA i
3
STA
2E
JMP 1J [MAINPRO WITH PAUSE
#1Y LDA i
2
ADM 
2I+1
LDA
2E
SAE i
3
JMP p+6
LDA i
4
STA
2E
JMP 1J [MAINPRO WITH PAUSE
[
SAE i
4
JMP p+6
LDA i
6
STA
2E
JMP 1J [MAINPRO WITH PAUSE
[
LDA i
1
ADM
2H
SAE 
2G
JMP p+2
JMP 1K [HISTDSP
[
LDA
2I
STC 2I+1 [RESET CBLOCK
JMP 3U
[
[
#2E 0000 [CMODE
#2G 0000 [#SWEEPS
#2H 0000 [SWP COUNT
#2I [INITIAL BLK #
0000 [CBLOCK
#2M [T MSEC
#2Y [HISTO ID
[
[##DATA ACQUISITION SUBRTN + HISTOBUILDER
#5S [NEXT SHUTCODE
0 [SHUTCODE A
0 [SHUTCODE B
#5R [SECTION CODE
#5Z [INDEX REG 2 VALUE: INSERT TO TIME 2ND FLASH
[
#2SLDA
0
STA i
0000
[
JMP 3A [CLEAR   2000-2774
LDA i
JMP 3B
STC 21
[
LDA i
4031
OPR 1
[STOP,1 MSEC,PT MODE
LDA i
-5
OPR 3
[5 MSEC BETWEEN INTERRUPTS
[
SET i 1 [BIN REG
2000 [QURTR 4+5
SET i 2 [TIME LIMIT
-144 [-100B10
SET i 3 [BIN COUNT REG
-766
[
LDA
5S+1
STC 5S
[
OPR 4 [########
ENI   [########
[
#3C SXL 3Z
JMP p-1
[ADVANCE ON -3V
SXL i 3Z
JMP p-1
[ADVANCE ON 0V
LDA i
1
ADM 1 [ADD 1 TO CURRENT BIN
JMP 3C
[
3Z=10
[PULSE XL LINE
[
[-----------------
[SERVICE ROUTINE ##
#3B XSK i 3
JMP p+5
OPR 10
CLR
ATR
JMP 2S+3 [EXIT FROM DATA ACQ
[
XSK i 1
XSK i 2
JMP 3C-1 [ENI AND CONTINUE
[
[CURRENT LIMIT EXCEEDED:
LDA
5S
ATR
[ACT ON NEXT SHUTCOD
LDA
5R
SAE i
0
JMP p+2
JMP 3D
SAE i
1
0000 [ILLEGAL
[
[SECTION CODE=1:
LDA i
2
STC 5R [SET SC=2
STC 5S [SHUTC=0
SET i 2
-7000 [EXIT TO BE DETERMD BY REG 3
JMP 3C-1 [ENI AND CONTINUE
[
[SECTION CODE = 0:
#3D LDA i
1
STC 5R [SET SC=1
LDA
5S+2
STC 5S
[SET UP NEXT SHUTCOD
SET 2
5Z [TIMING FOR 2ND FLASH
JMP 3C-1 [ENI AND CONTINUE
[
[
[
[
[##TIME CONVERSION SUBRTN##
0000 [JUNK
#1V LDA
0
STA i
0000
[
CLR
STC 5Z
LDA
2M
STC 1V-1
[
#3H LDA i
-1
ADM
5Z
LDA i
-5
ADM
1V-1
AZE i
JMP 1V+3 [EXIT
APO
JMP 1V+3 [EXIT
JMP 3H
[
[
[SUB TO CLR QRTRS   6+7 AND ENCODE 2775-7
#1F LDA
0
STA i
0000
SET i 1
2777
SET i 2
-1000
CLR
STA i 1
XSK i 2
JMP p-2
LDA i
1
STA
2777
LDA
2E
STA
2776
SAE i
0
JMP p+2
JMP 3O
SAE i
1
JMP p+2
JMP 3O
CLR
STA
2775
JMP 1F+3 [EXIT
[
#3O LDA
2M
JMP 3O-3
[
[
SUBRTN TO CLR   2000-2774
#3A LDA
0
STA i
0000
SET i 1
3777
SET i 2
-775
CLR
STA i 1
XSK i 2
JMP p-2
JMP 3A+3
[
[
[##SUBRTN TO BRING HISTO FROM CBLOCK
[INTO QRTRS 6+7
#1C LDA
0
STA i
0000
LDA
2I+1
ADA i
6000
STA
1D
ADA i
1001
STC 1D+2
RDC i u
#1D 0000
RDC u
0000
LDA i
1
STA
2777
CLR
STA
2776
STA
2775
STA 
3772
STA
3771
STA
3770
JMP 1C+3
[
[
[##SUBRTN ADDS QS 6+7 INTO 4+5##
#1G LDA
0
STA i
0000
LDA
2Y
STA
2770 [HISTO ID  LETTER
LDA
2M
STA
2771 [TIME INTERVAL
LDA
2H
STA
2772 [HISTO COUNT
LDA i
1
ADM
2772
SET i 1
3777
SET i 2
2777
SET i 3
-1000
LDA i 1
ADM i 2
XSK i 3
JMP p-3
JMP 1G+3
[
[
[##SUBRTN STORES QRTRS 6+7 AT CBLOCK
#1H LDA
0
STA i
0000
LDA
2I+1
ADA i
6000
STA
1I
ADA i
1001
STC 1I+2
WRC i u
#1I 0000
WRC u
0000
JMP 1H+3
[
[
[##HISTO PLOT SUBRTN##
#7J LDA
0
STA i
0000
SET i 1
2777
SET i 2
-766
SET i 3
0
#7ILDA i 1
ROL 2
ADA i
-100
#7H SAE i
-100
JMP p+2
JMP 7G
DIS 3
ADA i
-1
JMP 7H
[
#7G XSK i 3
XSK i 2
JMP 7I
JMP 9N
[
[
0
#9N LDA i
300
STA 
9O
LDA
3770 [HISTO ID  LETTER
SET i 1
100 [X COORD
ROL 1
ADA i
9R
STC 17
LDA i
-277 [Y COORD
DSC 17
DSC i 17
[
[
SET i 16
-2
LDA
3771 [BIN WIDTH OR TIME INTERVAL
SET i 15
-3
ROL 3
STC 9N-1
SET i 1
#9O 300 [X COORD
LDA
9N-1
ROL 3
STA 
9N-1
BCL i
7770
ROL 1
ADA i
9R
STC 17
LDA i
-277
DSC 17
DSC i 17
XSK i 15
JMP 9O+1
XSK i 16
JMP p+2
JMP 7J+3 [EXIT
LDA i
500
STA
9O
LDA
3772 [#SWEEPS
JMP 9O-5
[
[SUB TO CONVERT ANSWER BUFFER TO OCTAL
#9A LDA
0
STA i
0
SET i 3
7774
SET i 2
7777
#9C LDH i 1
SAE i
0067
JMP p+2
JMP 9B
ADD 2
ROL 3
STA
2
XSK i 3
JMP 9C
ROR 3
STC 2
JMP 9A+3
#9B LDA
2
JMP p-5
[
[Q+AR
#7K LDA i
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
#9R 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
[
#3L "CALL BLOCK"3:;
#2D "MSEC IN OCTAL
       "3
       "3
       "3
       "3
       "3
       "3
       "3:;
#2O "NO OF SWEEPS"2:;
#3Q "1ST BLOCK"3:;
#2A "KEEP SAME INTERVALS?"1:;
#6A 0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
[
[
[ASPOT=ADVANCED CSPOT BUT ONLY MODE 7
[CHANGE TIME INTERVALS AT 423 #7C
[CHANGE SAFEGUARD AT436
[FEATURE: ANSWER BUFFER
[FEATURE: HISTO PARAMETERS
[   F=FIRST SPOT
[   L=LAST SPOT
[   T= TOGETHER
[
[################
[JAN. 1,1979   M.A.
[ASPOT