[LGSHIS03
[HISTOGRAM PLOTTING OF LGS RAT BEHAVIOR DATA
[DATA TO GO INTO Q-7
[BIN WIDTHS, IN TENTHS OF SECONDS, SPECIFIED IN LOCATION 2B
[...
$1
ZTA
SCR 2
BCLi
7000
STC 1Z
HLT
$20
LDAi
#1Z 0000
ADAi
2006
STA
p+5
ADAi
1001
STC p+4
RDCi
2006
RDC
3007
JMP 1000 [ENTRY OF INFO FROM TTY
#1Y LDA
1Z
ADAi
2002
STA
p+4
ADD 1Z+6
STC p+4
RDCi
2002
RDC
3003
JMP 1X
[DPDIV2
[DOUBLE PREC.
[DIVISION SUB-
[ROUTINE.
[ON ENTRY -
[DIVIDEND MSB
[IN 7A, LSB IN
[7B, DIVISOR
[IN 7C.
[ON EXIT -
[QUOTIENT MSB
[IN 7A, LSB IN
[7B, DIVISOR
[UNCHANGED IN
[7C. REMAINDER
[IN ACCUMUL.
[AJH APR.67
#7D LDA
0
STC 7A+10
LDAi
#7C 0
AZEi
JMP 0
APOi
COM
STC 7B-11
STC 7B-13
ADD 7A
STAi
0
APOi
JMP p+6
COM
STC 7A
ADD 7B
COM
STC 7B
LDAi
3777
STC 7B+2
ADD 7B-2
STC 7B+5
CLR
ADD 7B
ROLi1
STC 7B
ADD 7A
ROLi1
STC 7A
ADD 7B-13
ROLi1
STAi
0
ADAi
0
AZEi
COM
APO
JMP p+6
STC 7B-13
LDAi
1
ADMi
#7B 0
SROi
3777
JMP 7B-25
SROi
0001
JMP 7B-25
LDA
7C+11
APOi
JMP p+5
LDA
7B-13
COM
STC 7B-13
LDA
7C
BCO
7C+11
APOi
JMP p+10
LDAi
#7A 0
COM
STC 7A
ADD 7B
COM
STC 7B
LDA
7B-13
JMP 000
[END
#1X JMP 3T [SET PLOTTER FOR NEW SERIES
[EXECUTE PLOTS
#2W SETi1
2777
LDAi1
COM
STC 7 [BLOCK COUNTER
LDAi1
BSEi
7000
STC p+2
RDCu
7000
JMP 1W
#1V XSKi7
JMP 2W+5
JMP 20
#1W JMP 3L [LOWER PEN
SETi11
3377   [DATA POINTER
SETi12
-372   [COUNTER FOR DATA POINTS
LDA
2B
MUL
2S
STC 2H [X INCREMENT
ADD 2B
STC 7C [DIVISOR
STC 2Z [CLEAR MAX
ADD 2B
COM
STC 2A+1
STC 2X
STC 2Y
#2A SETi13
0000
CLR
ADAi11
XSKi12
JMP p+2
JMP p+3
XSKi13
JMP 2A+3
MUL
4000+2T
STC 0
ZTA
ROL 1
STC 7B
ADD 0
SCRi1
STC 7A
ADD 7B
RORi1
STC 7B
JMP 7D
LDA
7B
STC 2Y [BIN FILLED
LDAi
#2Z 0000  [MAX
ADD 2Y
APO
JMP p+5
LDA
2Y
COM
STC 2Z
JMP 2V [PLOT
LDA
2X     [OLD X
ADD 2H
STC 2X
JMP 2V
SNS 0
JMP p+4
CLR    [BAR GRAPH
STC 2Y
JMP 2V
XSK 12
JMP 2A [GO FILL NEXT BIN
CLR    [ALL DATA DONE
STC 2Y
JMP 2V
CLR
STC 2X
STC 2Y
JMP 2V
SETi12
-6
JMP p+10
LDAi
62
MUL
2S
ADD 2X
STC 2X
JMP 2V
ADD 2K+3
STC 2Y
JMP 2V
STC 2Y
JMP 2V
XSKi12
JMP p-15
JMP 3R
[PLOT LABELS
LDAi
2
JMP 3S  [SIZE
SETi11
4000+2D-1
SETi12
-6
LDAi
-30
STC 2Y
LDAi
-20
JMP p+6
#2E LDAi
62
MUL
2S
ADD 2X
STC 2X
JMP 2V
LDHi11
JMP 4U
LDHi11
JMP 4U
XSKi12
JMP 2E
[PLOT REST
JMP 2Q
ADD 2K+4
MUL
2S
STC 2X
JMP 2V
JMP 2P [IRT SEC
JMP 2Q
JMP 2P [BIN WIDTH
LDAi
64
STC 2L
ADD 2B
JMP 2N [DEC
JMP 2P [SECS
JMP 2Q
JMP 2P [MAX. BIN COUNT
[CALCULATE AND PLOT MAX COUNT
CLR
STC 12
ADD 2T
ROL 1
STC 7C
ADD 2Z
COM
MUL
4000+2B
STC 7A
ZTA
ROL 1
STC 7B
JMP 7D
LDA
2K+2
STC 7C
LDA
7A
AZE
JMP p+4
ADD 7B
APOi
JMP p+4
XSKi12
JMP 7D
JMP p-11
JMP 2N [DEC
LDA
12
AZEi
JMP p+6
COM
STC 12
JMP 4U
XSKi12
JMP p-2
JMP 2Q
JMP 2Q
JMP 2P [RAT #
LDA
3773
JMP 2N [DEC
JMP 2Q
JMP 2P [SESSION #
LDA
3774
JMP 2N [DEC
JMP 2Q
JMP 2P [SCHEDULE
LDA
3775
JMP 2M [OCT
JMP 2Q
JMP 2P [DRUG
LDA
3776
JMP 2M [OCT
JMP 2Q
JMP 2P [DOSE
LDA
3777
JMP 2N [DEC
[RESET PAPER FOR NEXT PLOT
LDA
2Z
COM
ADAi
400
STC 2Y
STC 2X
JMP 2V
JMP 4Q [CLOSE OUT
JMP 1V
HLT
#2B 5
#2S 1
#2T 1
#2H 0
[KONSTANTS
#2K 1
-1
12
-12
144
1750
HLT
$1000
#2V LDA    [PLOT
0
STC 2Y+1
JMP 4P
#2X 0
#2Y 0
CLR
JMP 0000
[LINE FEED
#2Q LDA
0
STC p+7
LDAi
-20
ADD 2Y
STC 2Y
STC 2X
JMP 2V
JMP 000
[PLOT MESSAGE
#2P LDA
0
STC p+4
LDHi11
SHDi
1200
JMP 00
JMP 4U
JMP p-5
[PLOTOCTAL
#2M STC p+4
ADD 0
STC 2N-1
LDAi
#2J 0000
ROL 3
STA
p-3
BCLi
7770
JMP 4U
SROi
3567
JMP p-12
JMP 000
[PLOTDECIMAL
#2N STC 7B
ADD 0
STC 2N-1
COM
STC 2F+5
ADD 2K+5
STC 7C
STC 7A
JMP 7D
STC 2J
ADD 7B
JMP 2F
LDA
2K+4
STC 7C
ADD 2J
STC 7B
JMP 7D
STC 2J
ADD 7B
JMP 2F
LDA
2K+2
STC 7C
ADD 2J
STC 7B
JMP 7D
STC 2J
ADD 7B
JMP 2F
LDAi
#2L 0000  [DEC POINT IF 64
AZE
JMP 4U
CLR
STC 2L
ADD 2J
JMP 4U
JMP 2N-1
#2F SET 10
0
AZE
JMP p+5
LDAi
0000
APO
JMP 10
JMP 4U
CLR
STC p-5
JMP 10
[SIMPLOT
[AJH, JUNE 1967
#4P LDA
0
BCLi
6000
STC 14
LDA 14
STC 4X
LDAi14
STC 4Y
LDAi14
LDA
14
ADD 4P+3
STC p+2
JMP 4Z
JMP 000
[CLOSEOUT PLOT
#4Q SET 17
0
CLR
STC 3X
STC 3Y
JMP 3R+2
[SET PLOTTER WIDE
#3W LDA
0
STC 3U+20
LDAi
OPR 10
STC 4J+6
LDAi
OPR 7
STC 4J+12
LDAi
OPR 12
STA
3U+12
STC 4K+6
LDAi
OPR 11
STA
3U+3
STC 4K+12
JMP 3U
[SET PLOTTER TALL
#3T LDA
0
STC 3U+20
ADD 3W+17
STA
3U+12
STC 4J+6
ADD 3W+12
STA
3U+3
STC 4J+12
ADD 3W+4
STC 4K+6
ADD 3W+7
STC 4K+12
[RESET PEN POSITION BEFORE STARTING.
#3U JMP 4Q
LDAi
-3000
OPR 11
JMP 4L
ADD 4E
APO
JMP p-4
LDAi
-62
OPR 12
JMP 4L
ADD 4E
APO
JMP p-4
JMP 4Q
JMP 0000
[INTERPOL
JMP 000
#4Z LDA
0
STC 4Z-1
STC 15
ADD 3X
COM
ADD 4X
STAi
#4A 0
APO
COM
STC 4B
ADD 3Y
COM
ADD 4Y
STAi
#4C 0
APO
COM
STC 4D
ADD 4D
COM
ADD 4B
APO
CLR
ADD 4D
AZEi
JMP 4Z-1
ROL 1
XSKi15
APOi
JMP p-3
LDAi
240
ADD 15
STC 4H
ADD 15
COM
ADAi
254
STC 4G
ADD 4E
#4G ROL 10
ADD 4E
COM
STC 15
ADD 4B
JMP 4H
STC 4B
ADD 4D
JMP 4H
STC 4D
STC 4M+3
STC 4M+11
#4M CLR
ADD 4B
LAMi
0
LZE
JMP 4J
CLR
ADD 4D
LAMi
0
LZE
JMP 4K
LDAi
#4I 0
APOi
JMP 4L
COM
STC 4I
ADD 4E
ADM
15
AZE
JMP 4M
JMP 4Z-1
#4X 0
#4Y 0
#4B 0
#4D 0
#4H ROL 4
JMP 0
#4J SET 17
0
LDA
4A
APO
JMP p+5
OPR 10
LDAi
#4E 1
JMP p+4
OPR 7
LDAi
#4F -1
ADMi
#3X 0
CLR
STC 4I
JMP 17
#4K SET 17
0
LDA
4C
APO
JMP p+5
OPR 12
LDA
4E
JMP p+4
OPR 11
LDA
4F
ADMi
#3Y 0
CLR
STC 4I
JMP 17
#4L SET 17
0
SETi16
1640
XSKi16
JMP p-1
JMP 17
[LOWER PEN
#3L SET 17
0
LDAi
#4R 7777
APO
JMP 17
OPR 14
CLR
COM
STC 4R
SETi16
0
XSKi16
JMP p-1
SROi
3333
JMP 3L+12
JMP 17
[RAISE PEN
#3R SET 17
0
LDA
4R
APOi
JMP 17
OPR 13
CLR
STC 4R
JMP 3L+12
[END OF INTERPOL
[SIMPALPH
[CHARACTER SET FOR
[CALCOMP PLOTTER.
[CALL AS FOLLOWS-
[JMP 4U, WITH THE
[CHARACTER IN
[ACCUMULATOR FOR
[REGULAR OUTPUT.
[CODES 70 AND UP
[FOR GRAPH SYMBOLS.
LDAi
0000
APO
JMP 3L
JMP 000
#4U BCLi
7700
STAi
0
LDA
0
STC 4U-1
ADD 3X
STC 3C
ADD 3Y
STC 3D
ADD 4U+3
ADAi
-67
APOi
JMP p+4
LDAi
-1
JMP p+3
LDAi
-4
STC 3Z
ADD 4U+3
ADAi
4S
STC p+2
LDA
0
ADAi
3777
STC 14
ADD 4R
STC 4U-4
[DRAW CHARACTER
JMP 3R
JMP p+2
JMP 3L
#3A LDHi14
AZEi
JMP 4U-1
SHDi
0100
JMP 3A-3
SHDi
0200
JMP 3A-1
JMP 3P
STAi
#3N 0000
LDH 14
SCR 3
JMP 3P
STAi
#3M 0000
LDAi
#4T 0000 [FLAG FOR  HORIZONTAL OR VERTICAL
APO
JMP p+10
ADD 3N
ADD 3D
STC 4Y
ADD 3M
ADD 3C
STC 4X
JMP p+10
ADD 3N
COM
ADD 3C
STC 4X
ADD 3M
ADD 3D
STC 4Y
JMP 4Z
JMP 3A
[SCALE AND OFFSET
#3P BCLi
7770
ADD 3Z
MULi
#3B 0000
JMP 0
[STORAGE
#3Z -4
#3C 0
#3D 0
[SET CHARACTERS ON  VERTICAL
#3V CLR
COM
STC 4T
JMP 0
[SET CHARACTERS ON  HORIZONTAL
#3H CLR
STC 4T
JMP 0
[SET CHARACTER SIZE
#3S BCLi
7700
AZEi
ADD 4E
STC 3B
JMP 0
[MATRIX ACCESS TABLE
$2000
[EVERYTHING FROM THIS POINT ON MAY BE ANYWHERE IN MEMORY, INCLUDING UPPER HALF.
#4S 6A
6B
6C
6D
6E
6F
6G
6H
6I
6J
6S
6S
6K
6S
6S
6N
6O
6P
6Q
6S
5A
5B
5C
5D
5E
5F
5G
5H
5I
5J
5K
5L
5M
5N
5O
5P
5Q
5R
5S
5T
5U
5V
5W
5X
5Y
5Z
6S
6S
6S
6R
6S
6T
6U
6L
6W
6S
[END OF TABLE
[DIGIT MATRICES
#6A 1202
1627
3746
4231
2112
0151
#6S 0000
#6B 0231
2127
1601
4100
#6C 1602
2737
4645
1211
4101
5100
#6D 1602
2737
4634
2434
4342
3121
1201
5100
#6E 3102
3713
4301
5100
#6F 1202
2131
4243
3414
1747
0151
0000
#6G 1302
2434
4342
3121
1216
2737
4601
5100
#6H 1702
4746
1101
5100
#6I 1202
1324
3445
4637
2716
1524
3443
4231
2112
0151
0000
#6J 1202
2131
4246
3727
1615
2434
4501
[SPACE
#6K 5100
[END DIGITS
[ALPHABETIC MATRICES
#5A 0216
2747
5654
1454
5101
6100
#5B 0217
3746
4534
1444
5352
4111
0161
0000
#5C 5202
4121
1216
2747
5601
6100
#5D 0217
4756
5241
1101
6100
#5E 5102
1114
4414
1757
0161
0000
#5F 0214
4414
1757
0161
0000
#5G 4302
5351
2112
1627
4756
0161
0000
#5H 0217
1454
5751
0161
0000
#5I 0231
2127
1737
0141
0000
#5J 1202
2131
4247
3757
0161
0000
#5K 0217
1447
1441
0151
0000
#5L 1702
1141
0151
0000
#5M 0217
3457
5101
6100
#5N 0217
4147
0151
0000
#5O 1202
1627
4756
5241
2112
0161
0000
#5P 0217
4756
5544
1401
6100
#5Q 2102
1216
2747
5652
4121
4251
0161
0000
#5R 0217
4756
5544
1434
5101
6100
#5S 1202
2141
5253
4424
1516
2747
5601
6100
#5T 1702
5737
3101
6100
#5U 1702
1221
4152
5701
6100
#5V 1702
3157
0161
0000
#5W 1702
2134
4157
0161
0000
#5X 0234
1734
5734
5101
6100
#5Y 1702
3457
3431
0161
0000
#5Z 1702
5711
5101
6100
[-,+,|,
#6N 1402
5401
6100
#6O 1402
3436
3234
5401
6100
#6P 0247
0151
0000
[TAG = , .
#6Q 2102
4701
6702
4101
1302
6301
2502
7501
7100
#6R 1402
5401
1302
5301
6100
#6T 0222
2313
1222
0131
0000
#6U 0221
2212
1101
3100
[LEFT,RIGHT
[PARENTHESES
#6W 2102
1315
2701
3100
#6L 0223
2517
0131
0000
[SYMBOL MATRICES
[REMOVED
[MESSAGES
#2D " 0 510152025'
"IRT [SECS.$
'
"BIN WIDTH 
'
" SECS
'
"MAX. BIN COUNT 
'
"RAT #
'
"SESSION #
'
"SCHEDULE 
'
"DRUG 
'
"DOSE 
'
[END
[DUMMY TTY ENTRY MODULE
$3000
LDAi
2
STA
3000
CLR
STA
3001
LDAi
1
STA
3002
JMP 36
$3776
0