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

[DISPLAY INDEX
[BLOCKS 325-326
[QUARTERS 0-1
[PRINT INDEX
[BLOCKS 325-326, 335
[QUARTERS 0-1,3
[CONVERT WITH TTSRS
$15
RCG 7E
7|7D
JMP 1D [DX
[PRINT INDEX
#5K RDC i 7E
1|7D+26 [2ND Q
RDC i 7E
3|7D+35 [TTSRS
JMP 1B [READ INDEX
JMP 8X
JMP 5M
[PRINT LABEL
SET i 2
5D-4000
JMP 8Y
JMP 8X
JMP 8Y
SET i 2
5E-4000
JMP 8Y
SET i 2
7007
JMP 8X
SET i 13
-10
#5F LDH i 2
SHD i
5700
JMP 5H [NO ENTRY
SHD i
7700
ADD 5J-1 [63
JMP 8W
XSK i 13
JMP 5F
JMP 5T
JMP 5J [NO MS
JMP 8W-2
JMP 8W-2
JMP 5T
NOP   [NO BINARY
JMP 8X
#5H LDA
2
BSE i
7007
STC 2
XSK 2
JMP 5F-2
JMP 5M
JMP 15
[GET BN, #BLKS
#5T SET 5
0
LDA i 2
BCL i
7000
STC 5G
LDA i 2
APO
JMP 0 [NO ENTRY
JMP 8W-2
LDA i
#5G BLOCK NUMBER
JMP 8Q
LDA 2  [#BLKS
JMP 8Q
XSK i 5
JMP 5 [ENTRY,p+2
[LINE FEED
#5M SET 3
0
SET i 5
-11
JMP 8T
XSK i 5
JMP p-2
JMP 3
-63 [77-63=14
[NO MS-SPACE OVER
#5J SET i 13
-11
JMP 8W-2
XSK i 13
JMP p-2
JMP 5H-5
[PRINT NUMBER-LEADING SPACES
#8Q SET 4
0
AZE
JMP p+3
JMP 8W
JMP 4
JMP 8M
AZE
JMP 8R+3
JMP 8W-2
JMP 8N
JMP 8Q+6
[INDEX LABELS
#5D 1414 [MANUSCRIPT
1414
1414
1414
4024
4150
4626
4534
4347
1414
1414
2534 [BINARY
4124
4554
1214
1441 [NAME
2440
3014
#5E 1414 [BN #BLKS
1425
4114
2225
3736
4612
RDC i 7E
1|7D+26
[INDEX READ
#1B LDA
6E+6
ADM
p+3
ADD 2E+1 [4
STC 2M+3
RCG [UNIT FIXED
1|7G  [INDEX BN
STC 2M+1
ADD 1Q+1
STC 2G
LDA
3000
SAE i
5757
JMP 1N
JMP 0
[DISPLAY INDEX
#1D JMP 1B-2
[COUNT ENTRIES
#2A SET i 10
3007
SET i 12
0
JMP 2E [UP 10
JMP 2J
NOP
JMP 2J
NOP
XSK 10
JMP 2A+4
LDA
12
COM
STA
11
ADD 2L+1 [10
APO
JMP 2H
LDA
11
STC 2G
[DISPLAY PRESET
#2H SET 12
2G  [-# CURRENT
SET i 10
7007
SET i 14
JMP 1G+7
JMP 2E  [UP 10
JMP 2J [CHK MS
JMP 2L [MS ENTRY
JMP 2J [CHK BIN
JMP p+2 [BIN ENTRY
JMP p-5
SET i 14
JMP 1G
[ONCE PER FRAME
#2L SET 4
10   [CONSTANT
SET i 3
-10
LDA
2G
ADD 2L+1  [10
APO
JMP 2E+5 [2G MORE THAN 10
COM
STC 12
[COMPUTE VERTICAL
ADD 2E+6
ADA i
40
XSK i 12
JMP p-3
SET 3
2G
STC 1M
JMP 14
[ONCE PER LINE
[BN ENTRY
#1G SET i 17 [BINARY
52       [B
JMP 1X
LDA i
-2
ADM
4
SET i 17 [MS ENTRY
100      [M
JMP 1X
JMP 1E
JMP 1G
[CHECK NAME
#1E SET 17
0
LDA i
-6
ADM
4
SET i 6
-10
SET i 1
70
SET 5
4
LDH i 5
SHD i
5700
JMP 0
JMP p+5
[DISPLAY NAME
LDH i 5
SHD i
7700
JMP 17
JMP 1Y
XSK i 6
JMP p-6
JMP 17
[CHECK ENTRY FOR COUNT
#2J SET 13 
10  [DELETE ADDRESS
LDA i 10
LDA i 10
APO i
XSK i 12
XSK i 0
JMP 0  [p+1 IF ENTRY
[UP 10
#2E LDA i
4      [CONSTANT
ADM
10 
JMP 0
[FIX VERTICAL
LDA i
-277
JMP 1G-2
[CHECK ENTRY
#1X SET 6
0
LDA i
-1     [CONSTANT
ADM
4
LDA 4
BCL i
7000
STC 1M+5  [BN
LDA i 4
APO
JMP 0 [NO ENTRY
SET i 1
354
[DISPLAY ENTRY
#1W LDA i
40
ADM i
#1M VERTICAL
LDA
17
JMP 1Y+1
LDA i 
BN
JMP 1T
LDA 4 [#BLKS
JMP 1T
XSK i 3
JMP 6
[LAST NAME
LDA
4
BCL i
2
STC 4
JMP 1E
[DISPLAY TITLE
#1C LDA i
100
ADD 1M
STC 1M
JMP 1V
KST
JMP 2L
[KEYBOARD
#1U KBD
SHD i
100   [1
JMP 1S
SHD i
5200  [W
JMP 2C
AZE i [0
JMP 1Q
SHD i
4400  [Q
JMP 1P
SHD i
1300  [DEL
JMP 2D
SHD i
1200  [EOL
JMP 15
SHD i
4500  [REPEAT
JMP 1V-2
SAE i
22    [#-WCG NEW INDEX
JMP 2L
[#-WRITE INDEX AND RETURN
#2M SRO i
-0
JMP 15  [1
WRITE INDEX  [0
1|7G
JMP 15
[REPEAT
JMP 1B+6
JMP 2A
[DISPLAY TITLE
#1V SET 2
0
SET i 1
140
SET i 6
1Z-4000
JMP 1R
SET i 1
424
JMP 1R
JMP 2
[DISPLAY TITLE
#1R SET 17
0
LDH i 6
SHD i
6700
JMP 17
JMP 1Y
JMP p-5
[DELETE
#2D LDA i
5757
STA i 13
STA i 13
LDA
13
BCO i
2
STC 13
LDA 13
APO i
JMP 2N
LDA
13
BCL i
7
STC 13
ADD 2D+1
STA 13
#2N LDA i
1
ADD 2G
AZE
STC 2G
CLR
STC 2M+1
XSK i 11
JMP 2H
[ALL DELETED
SET i 11
2777
STA i 11
XSK 11
JMP p-2
#1A JMP 1V [DISPLAY TITLE
KST
JMP p-2
KBD
SHD i
2200
JMP 2M
SHD i
4500  [REPEAT
JMP 1V-2
SAE i
12
JMP 1A
JMP 15
[KEYBOARD CHANGES
[FORWARD ENTRY
#1S JMP 2B
JMP 2H
[FORWARD PAGE
#1Q SET i 2
-10
JMP 2B
XSK i 2
JMP p-2
JMP 2H
[FORWARD
#2B LDA i
#2G -10
SAE
11
ADD 1X+3  [-1
STC 2G
JMP 0
[BACKWARD ENTRY
#2C JMP 1J
JMP 2H
[BACKWARD PAGE
#1P SET i 2
-10
JMP 1J
XSK i 2
JMP p-2
JMP 2H
[BACKWARD
#1J LDA i
1
ADD 2G
AZE
STC 2G
JMP 0
[NUMBER DISPLAY
#1T SET 7
0
ROL 1
STC 1K+3
JMP 1K
SRO
1K-5
JMP 1K-2 [DISPLAY LAST
AZE
JMP p+6
ADD 1 [NO LEADING ZEROS
ADA i
24
STC 1
JMP 1T+4
JMP 1Y+1
JMP 1K
SRO i
4210
JMP p+2
JMP p-5
[DISPLAY LAST
JMP 1Y+1
JMP 7
[FIX DIGIT
#1K ADD p+3
ROL 3
STA i
NUM TO DISPLAY
BCL i
7761
JMP 0
[DISPLAY
#1Y ROL 1
ADA i
6A
STC 12
ADD 1M
DSC 12
DSC i 12
LDA i 
4
ADD 1
STC 1
JMP 0
[TITLE TABLE
#1Z 4124 [NA
4030 [ME
6725 [ B
4114 [N
2225 [#B
3736 [LK
4667 [S
[NO
#1N CLR
STC 1M  [V COOR
SET i 1
330    [H COOR
LDA i
102    [N
JMP 1Y+1
DSC i 12  [O
DSC i 12
KST
JMP 1N+2
KBD
JMP 15
6E=2371
6A=2001 [GRIDS
7G=426  [INDEX
9J=771
[CONVERT WITH TTSRS
[SAVE Q0,1
[DPXJAN20
$1400
[TT SRS
[77-END PRINT
LDA i
-4
ADM
5
SAE i
-4-70
JMP p+2
JMP 8B-1
JMP 8T
#8A XSK i 5
JMP p-2
LDA i
17  [-
JMP 8W
KBD i  [WAIT FOR KEY
#8B SET i 16
7|7D
JMP 15
[PAGE PRESET
#8Z SET i 5
-4
SET 14
0
JMP 8X
JMP 8T
XSK i 5
JMP p-2
LDA i
17
JMP 8W [-
JMP 8X
JMP 8T
LDH
9J+2
SHD i
6300
JMP p+7
SET i 2
9J+2-4000
JMP 8Y [NAME
LDA i
63
JMP 8W [,
LDA i
#8L 0   [PAGE #
JMP 8P 
LDA i
1
ADD p-4
STC p-5
ADD 8C  [LINE #
AZE i
JMP 8X-5
JMP 8W-2 
JMP 8W-2
SET i 2
8S-2-4000
JMP 8Y  [LN=
LDA i
#8C 0   [LN
JMP 8P  [PRINT #
JMP 8X
JMP 8T
SET i 5
-70  [LINES|PAGE
JMP 14
[KST, CARRIAGE RETURN
#8X SET 7
0
KST
JMP p+5
KBD
SHD i
1200
JMP 8B [END PRINT
LDA i
12
JMP 8W [CARRIAGE
LDA i
3424
JMP 8W+4 [LINE FEED
JMP 7
[LINE FEED ONLY
#8T SET 7
0
JMP 8T-4
[PRINT #, LEADING ZEROS
#8R SET 4
0
JMP 8M
JMP 8W
JMP 8N
JMP 8R+2
[PRINT #, NO LEADS
#8P SET 4
0
AZE
JMP p+3
JMP 8W
JMP 4
JMP 8M
AZE
JMP 8R+3
JMP 8N
JMP 8P+6
[# SRS
#8M ROL 3
STA i
NUMBER
BCL i
7770
JMP 0
#8N LDA
8M+2
SRO i
3567
JMP 0
JMP 4
[PRINT
LDA i
14 [SPACE
#8W ADA i
8U
STC 17
LDA 17
SET 17
0
STC p+7
RTA
SET i 11
-13
#8V BCL i
1
SRO i
TT CODE
ADD p-3 [1
ATR
SET i 12
-430
XSK i 12
JMP p-1
XSK i 11
JMP 8V
JMP 17
[PRINT LINE OR LABEL
SET i 2
8S-4000
#8Y SET i 13
0   [CHARS|LINE
SET 7
0
LDH i 2
SHD i
1200
JMP 7 [END LAP LINE
SHD i
7700
JMP 7 [END NAME
JMP 8W
XSK i 13
JMP 8Y+4
LDH i 2 [END OF TT LINE
SHD i
1200
JMP 7
XSK i 5
JMP 8J
[TT LINE CONTINUES PAST PAGE BREAK
#8K LDA
2
STC p+6
JMP 8Z [PAGE PRESET
SET i 2
5T-4000
JMP 8Y [LABEL
SET i 2
RESET
#8J JMP 8X
SET i 7
JMP 5M+2
SET i 14
-12
JMP 8W-2
XSK i 14
JMP p-2
SET i 13
-66
LDH 2
JMP 8Y+5
[LIST HEADINGS
3741  [LN=
6112
#8S 1414 [VALUE LINE
5124
3750
3014
3734
4130
1414
1412
[TELETYPE CODES
#8U 3540
3542
3544
3546
3550
3552
3554
3556
3560
3562
3432 [EOL
3576
3500
3514
3516
3532
3526
3670
3506
3576
3602
3604
3606
3610
3612
3614
3616
3620
3622
3624
3626
3630
3632
3634
3636
3640
3642
3644
3646
3650
3652
3654
3656
3660
3662
3664
3576
3576 [META
3576 [?
3572
3512
3530
3534
3510
3666
3600 [_
3674 ["
3566 [;
3570 [<
3574 [>
3672 []
3524 [*
3564 [:
7A=350
7B=0
7D=300
7E=0
[TELETYPE SUBROUTINES FOR LIST, PRINT MS, AND PRINT INDEX
[Q3
[TTJAN20