#1A JMP 7K
1B
1C
LDA
1C
BCL i
7700
#1W SAE i
"0-;
JMP p+2
JMP 1D
[
SAE i
"0+;
JMP p+2
JMP 1Q
[
SAE i
"0A;
JMP p+2
JMP 3R
[
SAE i
"0C;
JMP p+2
JMP 4A
[
SAE i
"0R;
JMP p+2
JMP 2Q
[
SAE i
"0U;
JMP p+2
JMP 2G
[
SAE i
"0p;
JMP p+2
JMP 2L
[
SAE i
"0I;
JMP p+2
JMP 3A
[
SAE i
"0M;
JMP p+2
JMP 1I
[
SAE i
"0S;
JMP 1V [HISTODSIPLAY
JMP 1N
[
[
[###COMPRESS###
#4A SET i 1
3777
SET i 2
-372
SET i 3
3777
LDA i 1
ADA i 1
STA i 3
XSK i 2
JMP p-4
CLR
STA i 3
XSK 3
JMP p-2
JMP 1V
[###ROTATE RIGHT ###
#2Q SET i 1
3777
SET i 2
3000
SET 1 3
-764
LDA
2764
STA i
#2R 0000
LDA i 1
STA i 2
XSK i 3
JMP p-3
[
LDA 
2R
STA
3000
JMP 3X [Q67 TO45
JMP 1V [HIST DIS
[
[
[###ADDITION###
#1Q LDA i
1R
STC 1P+1
LDA i
NOP
STC 1O
JMP 1P
[
[###SUBTRACTION###
#1D LDA i
1E
STC 1P+1
LDA i
COM
STC 1O
JMP 1P
[
[ADD OR SUBTRACT
#1P JMP 7K
1E
1F
JMP 2A [PROCESS SURTN
1F
LDA
2A-1
ADA i
4000
STA
1G
ADA i
1001
STC 1G+2
RDC i u
#1G 0000
RDC u
0000
[
JMP 2A
1F+2
LDA
2A-1
ADA i
6000
STA
1H
ADA i
1001
STC 1H+2
RDC i u
#1H 0000
RDC u
0000
[
SET i 1
3777
SET i 2
2777
SET i 3
-764
[
LDA i 2
#1O COM
ADM i 1
XSK i 3
JMP p-4
JMP 1V [HISTO DISPLAY
[
[
[###INVERSION###
#3A SET i 1
3777
SET i 3
-764
[
LDA i 1
COM
STA 1
XSK i 3
JMP p-4
JMP 1V [HISTODISPLAY
[
[
[###MEMORY###
#1I JMP 7K
1J
1K
JMP 2A
1K
LDA
2A-1
ADA i
4000
STA
1L+1
ADA i
1001
STC 1L+3
LDA
1K+2
BCL i
7700
AZE i
JMP 1M
[
LDA i [UNIT 1
RDC i u
STC 1L
LDA i
RDC u
STC 1L+2
JMP 1L
[
#1M LDA i [UNIT 0
RDC i
STC 1L
LDA i
RDC
STC 1L+2
[
#1L 0000
0000
0000
0000
JMP 1V [HISTO DISPLAY
[
[###STORAGE###
#1N JMP 7K
1S
1K
JMP 2A
1K
LDA
2A-1
ADA i
4000
STA
1T+1
ADA i
1001
STC 1T+3
[
LDA
1K+2
BCL i
7700
AZE i
JMP 1U
[
LDA i [UNIT 1
WRC i u
STC 1T
LDA i
WRC u
STC 1T+2
JMP 1T
[
#1U LDA i [UNIT 0
WRC i
STC 1T
LDA i
WRC
STC 1T+2
[
#1T 0000
0000
0000
0000
JMP 1V [HISTO DISPLAY
[
[
[###HISTO DISPLAY###
#1V KST i
JMP p+3
JMP 7J [DISPLAY SUBRTN
JMP 1V
KBD
JMP 1W
[
[###SMOOTH###
#2G JMP 7K
2H
1C
LDA
1C
BCL i
7700
[
SAE i
"0Q;
JMP p+2
JMP 3Y
[
SAE i
"0U;
JMP 1V [ABORT
[
JMP 7K
3W
1C
LDA
1C
BCL i
7700
COM
STC 11
[
JMP 3Y [10BIN
JMP 3X [TO Q 4+5
XSK i 11
JMP p-3
JMP 1V [DISPLAY
[
[
[HISTO FROM Q6+7 TO Q4+5 SUBRTN
#3X LDA
0
STA i
0000
SET i 1
3777
SET i 2
2777
SET i 3
-1000
[
LDA i 2
STA i 1
XSK i 3
JMP p-3
JMP 3X+3 [RETURN
[
[10 BIN SQUARE AMOOTH SUBRTN
#3Y LDA
0
STA i
0000
SET i 1
3003
SET i 3
2003
SET i 5
-756
[
#3Z LDA
3
ADA i
-3
STC 2
SET i 4
-10
CLR
ADA 2
XSK i 2
XSK i 4
JMP p-3
JMP 3F
SCR 3
STA 1
[
XSK i 3
XSK i 1
XSK i 5
JMP 3Z
[FIRST BINS:
SET i 6
2777
SET i 7
-3
LDA
3003
STA i 6
XSK i 7
JMP p-2
[LAST BINS:
SET i 6
3773
LDA
3761
STA i 6
XSK 6
JMP p-2
JMP 3X [MOVE TO Q4+5
JMP 3Y+3 [RETURN
[
[###SCALE###
#2L JMP 7K
2M
1C
LDA
1C
BCL i
7700
SAE i
"0L;
JMP p+3
JMP 2P
JMP 1V
[
SAE i
"0R;
JMP 1V [ABORT
JMP 3U
JMP 1V
[2 ENTRY SCALE SUBRTN
[SCR:
#3U LDA
0
STA i
0000
LDA i
SCR 1
STC 2N
JMP 2O
[ROL:
#2P LDA
0
STC 3U+3
LDA i
ROL 1
STC 2N
[SCR OR ROL:
#2O SET i 1
3777
SET i 2
-764
[
LDA i 1
#2N 0000
STA 1
XSK i 2
JMP p-4
JMP 3U+3 [RETURN
[
[###ADD CONST###
#3R JMP 7K
3T
3S
JMP 2A
3S
LDA
2A-1
ROL 3
STC 2A-1
ADD 3S+2
SCR 6
ADM
2A-1
[
SET i 1
3777
SET i 2
-764
LDA
2A-1
ADM i 1
XSK i 2
JMP p-4
JMP 1V [HISTO DISPLAY
[
[
#1B"ADD      = +
SUBTRACT = -
MEMORY   = M
STORE    = S
SMOOTH   = U
SCALE    = p
ADD CONST= A
INVERT   = I
ROT RIGHT= R
COMPRESS = C
   MODE"1:;
#1C 7067
7600
#1E"BLOCK A -BLOCK B
 
     A"3
 
     B"3:;
#1R"BLOCK A +BLOCK B
 
     A"3
 
     B"3:;
#1F 7067
6767
7067
6767
7600
#1J"CALL BLOCK"3
 
      UNIT"1:;
#1K 7067
6767
7067
7600
#1S"STORE AT BLOCK"3
 
          UNIT"1:;
#2H"ENTER U TO 
SMOOTH CURRENT
HISTO
     "1:;
#2M"SCALE CURRENT
    HISTO
L WILL ROL 1
R WILL SCR 1
OTHER KEYS ABORT
     "1:;
#3W "N SUCCESSIVE 
10B8 BIN SMOOTHS
    N ="1:;
#3T "ADD CONST ="4
TO ALL BINS:;
#3S 7067
6767
6776
[
[
[SUBRTN TO "ROUND" A# TO NEAREST 10B8
#3F SET 10
0
STA i
0000
BCL i
7770
ADA i
6000
ADA i
3G+1
STC 3G
#3G 0000
JMP 3H [0
JMP 3H [1
JMP 3H [2
JMP 3H [3
JMP 3K [4
JMP 3J [5
JMP 3J [6
JMP 3J [7
[
#3H LDA
3F+3
JMP 10
[
#3J LDA i
10
ADD 3F+3
JMP 10
[
#3K SRO i
2525
JMP 3H
JMP 3J
[
[
[SUBRTN TO DISPLAY HISTO WITH + AND - VALUES
#7J LDA
0
STA i
0000
SET i 1
3777
SET i 2
-764
SET i 3
0
[
#7I LDA i 1
ROL 2
APO i
JMP p+3
AZE
JMP 7F
[
[BIN >= 0:
ADA i
-100
#7H SAE i
-100
JMP p+2
JMP 7G [COLUMN DONE
DIS 3
ADA i
-1
JMP 7H [CONT COL
[
[BIN <0:
#7F ADA i
-100
SAE i
-100
JMP p+2
JMP 7G
DIS 3
ADA i
1
JMP 7F+2
[
#7G XSK i 3
XSK i 2
JMP 7I [NEXT BIN
JMP 7J+3 [EXIT
[
[
[SUBRTN TO PROCESS 3 DIGIT BLK NO. STARTING AT ADDR AFTER ENTRY JUMP
[FORMAT 7067                   6767
[LEAVE NO. IN 2A-1
0000
#2A LDA
0
ADA i
1
STA i
0000
[
ADA i
-6001 ADDR OF ADDR
STC p+2
LDA
0000 [GET ADDR
STA 
2C
ADA i
1
STA
2D
STC 2E
[
LDA
#2C 0000
BCL i
7700
ROL 6
STC 2A-1
LDA
#2D 0000
BCL i
7700
ADM
2A-1
LDA
#2E 0000
BCL i
0077
SCR 3
ADM
2A-1
JMP 2A+5 [EXIT
[
[
[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
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
[
[PROGRAM HISTO
[HJW 31DEC73
[1-23-74:INVERTADDED
[JULY74-ROTATE RIGHT ADDED
[COMPRESS ADDED BY NWD OCT 1975
[MODIFIED  RRA JULY 1976