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

[ PROGRAM COUNT
$1
JMP 20
$20
JMP 1X
#1B [TOTAL COUNT
#1G [# OF SWEEPS
#1X CLR
STA
8U
STA
9A
[INITIAL ZERO SETS FOR ANALYSIS SECTION
#9Z SETi10
7013
SET i11
2777
CLR
STC1B
[
#1F LDA i11
COM
ADA
3774
APO
JMP p+5
LDA11
ADD 1B
STC 1B
JMP p+5
LDA11
STA
3774
JMP p-6
XSKi10
JMP1F
[TOTAL COUNT
[CHECKSIZE:
APO
JMP 8B
ADAi
4007
APOi
JMP 8B
[--------------
#1P LDA i
2777
STC 12
SET i 13
0000
SETi14
-764 [#BINS
#1C LDA i 12
ROL 2
ADA i
-100
#1D SAE i
-100
JMP p+2
JMP 1E
DIS 13
ADA i
-1
JMP 1D
#1E XSK i 13
XSK i14
JMP 1C
[HISTOGRAM DONE
[-----------
#7B LDA
1B
JMP 4U
SET i 1
0000
LDA i
340
JMP 6Q
[
LDA
3771 [BW
JMP 4U
SETi1
300
LDAi
-277
JMP 6Q
[
LDA
3774 [GREATEST #
JMP 4U
SETi1
500
LDAi
340
JMP 6Q
[
LDA
3772 [#SWEEPS
JMP 4U
SETi1
500
LDAi
-277
JMP 6Q
[
JMP 9N [HISTO PARAMS
[
SRO i
3737
JMP 7B
[DISPLAY #S 5 TIMES
JMP 9V
[TOTAL COUNT AND SWEEPS DISPLAYED
[--------------
[OCTAL TO DECIMAL
[CONVERSION SUBRTN
#4U SET 4Z
0
STC 2D
STC 4Y
STC 5E
STC 5G
4Z=16
4Y=15
LDA i
#2D
#4X ADA i
-1750
AZE i
JMP 4W
APO i
JMP 4W
ADA i
1750
#5I ADA i
-144
AZE i
JMP 5J
APO i
JMP 5J
ADA i
144
#5K ADA i
-12
AZE i
JMP 5L
APO i
JMP 5L
ADA i
12
STC 12
JMP 4Z
#4W XSK i 4Y
JMP 4X
#5J XSK i 5E
JMP 5I
#5L XSK i 5G
JMP 5K
#5H 0 [UNITS
5E=14
5G=13
[############
[ANALYSIS
#8Q 0200[L CURSOR
#8R 0400[R CURSOR
#8T [CHARACTER
#8U[ A MODE
#8V [ TEST STORAGE
#9A [ COUNT
#9U [ 3000 + 8R
[
#9V KBD
AZE i
JMP9S
STA
8T
SAE i
43
JMP p+2
JMP 7C
[P MODE EXIT
SAE i
40
JMP p+2
JMP 8B
[M MODE EXIT
SAE i
0024 [ A
JMP 9Y
LDA i
1
STA
8U
LDA i
200
STA
8Q
LDA i
400
STA
8R
+Y
-6 [+X,+Y
-4 [+X
-5 [+X,-Y
[LOOP INDEX TABLE]
#8K 0
0
0
0
0
[LOOP MS ]
[ADDRESS TABLE]
#8E 0
0
0
0
0
[LOOP MS]
[Q|BN TABLE]
#8Z 0
0
0
0
0
[TAB TABLE]
#7A 7777
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
#3X
#3Y
#7O LDA
14
STC7N
JMP0
#7N 0000
#9V LDAi14
STC7T+1
LDAi14
STC7S+1
JMP6F-1
[SCRATCH TABLE]
#8G 0
0
0 [PROTECTION
0000
$1754
#8I 0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
[CHARTBL
[CODE LOOKUP
[NUMBERS
$2000
2A
2B
2C
2D
2E
2F
2G
2H
2I
2J
[SPECIAL
2K
2L
2M
2N
2O
2P
2Q
2R
2S
2T
[ALPHABET
1A
1B
1C
1D
1E
1F
1G
1H
1I
1J
1K
1L
1M
1N
1O
1P
1Q
1R
1S
1T
1U
1V
1W
1X
1Y
1Z
[CASE SPECIAL
2U
2V
2W
2X
2Y
2Z
4A
4B
4C
4D
4E
4F
4G
4H
4I
4J
4K
4L
[MOTION CODES
[NUMBERS
[0
#2A 0601
4301
0404
0501
0602
0701
0004
0101
0202
6605
[1
#2B 0601
4602
0201
0406
0101
6705
[2
#2C 0405
4501
0602
0701
0001
0104
0604
6602
[3
#2D 0405
4501
0602
0701
0001
0101
0701
0001
0101
0202
0301
4701
2605
[4
#2E 0503
0601
4204
0503
0006
6603
[5
#2F 0401
4701
0602
0501
0402
0301
0202
0101
0403
0604
4702
2004
[6
#2G 0501
0402
4602
0701
0001
0101
0202
0301ADM
9A
JMP p-11
[------------
[### DISPLAY ###
#9D SET12
8Q
LDA i
-124
ADA i
1
DIS 12
SAE i
-103
JMP p-5
SET 12
8R
LDA i
-124
ADA i
1
DIS 12
SAE i
-103
 JMP p-5
[
[NUMBER DISPLAY-
#1A LDA
8Q
JMP 4U
SET i 1
20
LDA i
-237
JMP 6Q
[
LDA
8R
JMP 4U
SET i 1
200
LDA i
-237
JMP 6Q
LDA
9A
JMP 4U
SET i 1
440
LDA i
-237
JMP 6Q
[
SRO i
3737
JMP 1A
[ DISPLAY #S 5 TIMES
JMP 1P
[ END OF ANALYSIS SECTION - JUMPS BACK TO THE MAIN DISPLAY
[
[
[### PAUSE MODE ###
[
#7C LDA i
JMP 7D
STA
9V
[
#7D KBD
AZE i
JMP p-2
SAE i
0043 [P
JMP p+2
JMP p+3
CLR
JMP 9Y
[
LDA i
KBD
STA
9V
JMP 9V
[
[--------------
[
[### MEMORY MODE
[
#8C 0000
5177
2651 [B
0177
0301
4177
7741
4136
2241
1077
4324
0000
0000
4060
#8D 7055
#8E 0000
#8F 0000
[
#8B CLR
STA
8E
STC 8F
#1H SET i 1
0200
SET i 12
8C
SET i 13
8D
CLR
JMP 1S
[ DISPLAY1
KST
JMP 1I
KBD
STA
8E
COM
ADA i
7
APO i
JMP p+3
AZE
JMP 8G [NOT OCTAL CHARACTER
LDA
8F
ROL 3
ADA
8E
STA
8F
JMP 1I
[
#8G LDA
8E
SAE i
0012 [EOL
JMP p+2
JMP 1J
[
SAE i
0013 [DEL
JMP p+2
JMP 8B
[
[ DISPLAY2
#1I SET i 2
-200
SET i 1
300
LDA
8F
JMP 1Z
JMP 1H
[
#1J LDA
8F
COM
ADA i
777
APO
JMP 8B
AZE i
JMP 8B
LDA 
8F
ADA i
6000
STA
1K
ADA i
1001
STA
1L
0710
#1K 0000
0710
#1L 0000
LDA
8U [A MODE
AZE
JMP 9C
JMP 9Z
[
[-------------
[
[###OCTAL NO. DISPLAY SUBROUTINE ###
[USES NUMBER DISPLAY SUBROUTINE
#7I 0000 [NUMBER
#1Z STA
7I
LDA
0
STC 7J
LDA
7I
ROL 3
BCL i
7770
STC 15
LDA
7I
ROL 6
BCL i
7770
STC 14
LDA
7I
ROL 11
BCL i
7770
STC 13
LDA
7I
BCL i
7770
STC 12
LDA
2
JMP 6Q
#7J [RETURN
[
[-----------
[
[###CHARACTER LINE DISPLAY SUBROUTINE
#1S STC14
LDA
0
STC 1U
#1T LDA
14
DSC i 12
SRO i
2525
JMP 1T
LDA i
4
ADM
1
LDA
12
COM
ADA
13
AZE
JMP 1T
#1U [RETURN
[
[
[DECIMAL DIOPLAY    SUBROUTINE
#6Q STA
6E
LDA
0
STA
6K
LDA i
15
STA
1N
STA
6I
#6O LDA
#1N 15
AZE i
JMP 6L [INITIAL DIGIT ZERO
#1M LDA
#6I 15
ROL 1
ADA i
6D
STC 6G
#6H LDA 
6E
DSC
#6G 0000
SRO i
2525
JMP p+2
JMP 6J
[
LDA i
1
ADM
6G
JMP 6H
[
#6J LDA i
4
ADM
1 [SPACE CHARACTERS
LDA
6I
ADA i
-1
SAE i
11
JMP p+2
#6K [RETURN
[
STA
6I
JMP 1M [DO NEXT DIGIT
[INIPIAL DIGIT ZERO
#6L LDA
1N
ADA i
-1
SAE i
11
JMP p+2
JMP 1M
[
STA
1N
STA
6I [CHANGE DIGIT REGISTERS
LDA i
24
ADM
1
[SPACE PAST ONE DIGIT
JMP 6O
[GO ON TO TREAT NEXT DIGIT REGISTER
[--------------
[
#6D 4136
3641 [0
2101
0177[1
4523
2151 [2
4122
2651 [3
2414
0477 [4
5172
0651 [5
1506
4225 [6
4443
6050 [7
5126 
2651 [8
5120
3651 [9
#6E [VERT COORD
[##################
[SUB TO PUT PARAMS ON SCREEN
[
0
#9N LDA
0
STAi
0
[
LDA
3770
SAEi
45 [R
JMP p+2
JMP p+10
SAEi
46 [S
JMP p+2
JMP p+4
SAEi
51 [V
JMP  9N+3
SETi1
100 [X COORD
ROL 1
ADAi
1R
STC 17 [ADDR OF PATTERN
LDAi
-277 [Y COORD
DSC 17
DSCi17
JMP 9N+3
[
[
[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
[REVISED JULY 1,1976