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

[LAP5 LIST
[BLOCK 333 - Q1
[BLOCK 327 - Q2
[BLOCK 335 - Q3
[BLOCK 330 - Q0, SAME AS CONVERT
[DO NOT CHANGE LINES WITHOUT ALSO CHANGING CONVERT
[PASS II
$15
RCG 7E
1|7D+10 [DISPLAY
NOP
RDC i 7E
2|7D+47 [BIN TO Q2
#2Z JMP 3A
KST i
JMP 4D
SET 4
3
JMP 2A
JMP 2Z
JMP 2T
JMP 2Z
[LINE DECODE
#2A SET 17
0
CLR
STC 2X
STC 2Y
SET i 6
4L
SET i 12
-3   [CONSTANT
SET i 13
JMP 2M+1
[CHARACTER CHECK
#2B LDH i 3
SET i 10
4P+4000
SHD i 10
JMP 2E [COMMENT
SHD i 10
JMP 4A  [$
SHD i 10
JMP 2E+4  [=
SHD i 10
JMP 2V  ["
SHD i 10
JMP 4B  [77
SHD i 10
JMP 2J  [u
[CHECK NUMBER
#2C JMP 3D+1
JMP 2F
JMP 3E
JMP 2H
BSE i
ROR
STC p+2
LDA 11
ROTATE N
APO
JMP 2U
[UNDEFINED
LDA
2Y
ROR 3
STH i 1
LDH 3
STH i 1
LDA
1L
STA i 1
LDA i
-0
STA i 1
JMP 3H
#2U LDA 10
JMP 13
[SPECIAL CHARACTER
#2D ADA i
2W+6000+11
STC p+1
JUMP TO DISPATCHER
[u
#2J LDA i
10
JMP 13
[COMMENT, EQUALITY
#2E LDH i 4
SAE i
66
XSK i 17
JMP 3G
JMP 17
[BETA 13 RETURN
#2M COM
ADD 2X
JMP 2A+3
[TEXT
#2V JMP 9M
JMP 1000 [LIST
JMP 3J [TEXT COUNT
JMP p+5 [;
JMP 2K  [EOL
JMP 2K+6  [77
JMP 2T [2 CHARS
JMP 2V+2
[;=71, END TEXT
XSK i 13
JMP 2E+4 [NO ASSIGNMENT
JMP 2E+3
[EOL IN TEXT
#2K SET i 12
JMP 2V+3
JMP 3A [CHECK MS
XSK i 13
JMP 3J+11
JMP 2V+6 [ASSIGN
[77 IN TEXT
XSK i 13
JMP 4B  [NO ASSIGN
JMP 2T
JMP 4B
[NUMBER, NOT TAG
#2H LDH 3
SHD i
1400
JMP 3C
JMP 3D+1
JMP p+2
JMP p-3
LDA i
-4000
ADM
3
LDA i
#2Y NUMBER
ROR 3
JMP 13
[$
#4A JMP 3B
JMP 9M
JMP 17 [LIST
JMP 4Q [CONVERT
[77-PREPARE SAVE BIN
#4B JMP 9M
JMP 1400 [LIST
JMP 4R [CONVERT
[i
#4F LDA i
20
JMP 13
[p
#4G ADD 1P
JMP 13
[-
#4H SET i 13
JMP 2M
JMP 2B
[|
#4J ADD 2X
ROR 3
JMP 2A+3
[TAG
#4K JMP 3C
LDH i 3
JMP 2B
[EOL
#4E XSK i 17
JMP 17
[DISPATCHER
#2W JMP 4E
JMP 2B [DEL
JMP 2B
JMP 4F
JMP 4G
JMP 4H
JMP 2B-2
JMP 4J
JMP 4K
[CHARACTER TABLE
#4P 0022
6665
6170
7762
[SAVE LETTERS
#4L 0
0
[CHECK LETTER
#2F ADA i
-12
APO
JMP 2D
LDH 3
STH i 6
XSK i 12
JMP 2B
ROL 6
ADD 4L
SET i 6
6A-6G-1
SET i 12
6A-1
XSK i 6
JMP 2Q
JMP 2B-6
#2Q SAE i 12
JMP 2Q-3
LDA i
6G-6A+1
ADD 6
ADA i
6A-6C-1
APO i
JMP 2S
#2R ADA i
6C-6A+1
ROL 5
JMP 13
[SUBSTITUTE
#2S ADA i
6G-1
STC 6
LDA 6
JMP 13
[CONVERT SUBROUTINES
[MS ADDRESS CHECK
#3A LDA i
1
ADM i
#1L 0
LDA
3
BCL i
4000
ADA i
-3377
APO
JMP 0
RDC i 7B
6|7A
ADD p-1
ADA i
1001
APO
STC p+2
RDC 7B
7|77
ADD p-10
ADD 3A+1
STC p-12
ADD 3
ADA i
#3L -400
STC 3
JMP 0
[$
#3B SET 10
0
JMP 3C
JMP 3D-2
JMP p+5
JMP 3C
JMP 3D+1
JMP p+2
JMP p-3
LDA
2Y
ROR 3
BCL i
4000
STC 1P
JMP 3G
JMP 10
[SPACE AVOID
#3C SET 11
0
LDH i 3
SHD i
1400
JMP 3C+2
JMP 11
[NUMBER CHECK
CLR
STC 2Y
#3D LDH 3
ADA i
-11
APO i
JMP 0
LDH 3
ADD 2Y
ROL 3
STC 2Y
XSK i 0
JMP 0
[SYMBOL CHECK
#3E LDH i 3
ADA i
-23
APO
JMP 0
ADA i
-32
APO i
JMP 0
LDA
2Y
AZE i
JMP 0
ROR 3
MUL i
32
ADA i
6B-32-24
STC 10
LDH 3
ADD 10
STC 10
[FIND MARK REGISTER
LDH 3
ADA i
6D-24
STC 11
ADD 2Y
ROR 3
XSK i 0
JMP 0
[UP p
#3F LDA i
1
ADM i
#1P 20
BCL i
4000
STC 1P
JMP 0
[FIND EOL
#3G SET 11
0
LDA i
12
SHD 3
JMP 11
SHD i 3
JMP 11
JMP p-2
[ERROR TABLE ADDRESS CHECK
#3H LDA i
4
ADD 1
STC p+2
SAE
NEXT SLOT STILL ZERO?
APO
JMP 0
ADD 1  [SET 1 BACK
ADD 2B-3  [-3
STC 1
JMP 0
[TEXT COUNT
#2X 0  [FOR ASSIGN
#3J SET 12
0
SET i 13
-2
SET i 14
2X-1+4000
LDA i
1414
STC 2X
LDH i 3
SHD i
7100  [;
JMP 3K+3
SHD i
7700
JMP 3K+1
STH i 14
SHD i 
1200
JMP 3K+2
XSK i 13
JMP 3J+11
#3K XSK i 12
XSK i 12
XSK i 12
JMP 12
[PASS PRESET
#1T LDA i
6|7A
STC 1L+12
STC 1L
ADD 4F+1
STC 1P
SET i 3
7401
SET i 2
1017
JMP 0
[CHECK LIST
#9M SRO i
7777
XSK i 0 [CONVERT
JMP 0  [LIST
[LIST-PASS II
#9N JMP 1T
RDC i 7E
2|7D+27
JMP 1001
[DO NOT DISTURB ANY LINES BEFORE THIS POINT
[LIST TEXT
[CHECK PARTIAL
#4Q LDA
17  [SR RETURN
SAE i
JMP 5S+4
JMP 4M [LIST
JMP 4R
[SEARCH-PARTIAL LIST
JMP 3A
#4R JMP 3J [TEXT COUNT
JMP 4N [71 RETURN
JMP 4D [EOL RETURN
JMP 8B [77 RETURN
JMP 3F [2 CHARACTERS-UP p
JMP 4R
[71 RETURN
#4N JMP 3G [FIND EOL
XSK i 13
JMP 5K-6 [NO ASSIGNMENT FOR 71
JMP 5S+5 [ASSIGN
[EOL RETURN
#4D XSK i 13
JMP 4C [EOL LEFT
JMP 3F [EOL RIGHT-UP p
LDA
1L  [PRESENT LN
SAE
5K-3 [REQUESTED
JMP 4R-1 [NOT YET
LDA i
JMP 4M
STC 5L-11
JMP 5K [PAGE PRESET
[EOL LEFT CHARACTER
#4C LDA
1L
SAE
5K-3
JMP 2P [NOT YET
LDA i
JMP 2N
STC 5L-11
JMP 5K [PAGE PRESET
[EOL BUT NOT PRINTING
#2P JMP 3A [CHK MS
SET i 12
JMP 4R+1
JMP 3J+11 [CONTINUE TEXT COUNT
[LIST TEXT
#4M JMP 3J [TEXT COUNT
JMP 2T [71
JMP 2L [EOL
JMP 1400 [77
JMP 8Q-2 [2 CHARACTERS-PRINT p
JMP 8W-2 [SPACE
JMP 3F  [UP p
LDA 14 [CONTENTS
JMP 8R [PRINT CONTENTS
LDA
2  [SAVE 2
STC 2T-2
XSK i 5 [CHK LINES
JMP p+5
[PAGE END 
JMP 8Z [PAGE PRESET
SET i 2
5T-4000
JMP 8Y [LABEL
JMP 8X [RETURN
LDA
1L  [PRESENT LN
SAE
5M+5
JMP p+2
JMP 8B [END LIST
ADD 8L+3  [1
STC 8C [LN FOR PAGE HEADING
SET i 2
RESET
JMP 4M
[71 RETURN WHILE PRINTING
#2T JMP 3G [FIND EOL
LDA i
JMP 2A [RESTORE
STC 5L-11
XSK i 13
JMP 5L [NO ASSIGNMENT-JUST PRINT LINE
JMP 5L-7 [ASSIGNMENT
[EOL WHILE PRINTING
#2L JMP 8Q-2 [PRINT p
JMP 8W-2 [SPACE
XSK i 13
JMP p+5 [EOL IN LEFT HALF
LDA i [EOL RIGHT
JMP 4M
STC 5L-11
JMP 5L-5 [UP p, PRINT 2 CHARS, CHK MS
[EOL LEFT HALF
LDA i
JMP 2N
STC 5L-11
JMP 5L-4 [PRINT "1200", DO NOT UP p
[RIGHT CHAR AFTER EOL
#2N LDH i 3
SHD i
7100
JMP 2G [END TEXT
SET i 12
JMP 4M+1
SET i 14
2X
SET i 13
-1  [RESET COUNT
JMP 3J+12 [CONTINUE TEXT
[71 FOLLOWS LEFT EOL
#2G JMP 3F [UP p
JMP 3G [FIND EOL
LDA i
JMP 2A [RESTORE
STC 5L-11
JMP 5L [NO ASSIGN, PRINT LINE
$771
[LABEL TABLE
#9J 0
0
6312
-0
-0
-0
-0
[LIST
[BLKS 7D+27, 7D+35
[QUARTERS 2, 3
$1000
JMP 4Q [TEXT
#5B LDA
9J
AZE
JMP 5H [PARTIAL
[PACK SYMBOLS
SET i 10
6E-1  [2431
SET i 2
1377 [LN TABLE
SET i 4
24  [SET LETTER
SET i 5
-32
#5Q LDA i 2 [LN
AZE i
JMP 5R
LDA i
100
ADD 4
STA i 10 [#-L
LDA i
400
ADD 2
STC 16
LDA 16  [VALUE
STA i 10
LDA 2   [LINE
STA i 10
#5R XSK i 4 [UP LETTER
XSK i 5
JMP 5Q
LDA i
100
ADM  [UP NUMBER
5Q+4
SAE i
1200
JMP 5Q-4
#5C LDA
6E [1ST ENTRY
AZE i
JMP 5H+3 [NO SYMBOL TABLE
[PRINT SYMBOL TABLE
CLR
STA i 10
XSK 10
JMP p-2
RDC 7E
3|7D+35
JMP 8Z [PAGE PRESET
SET i 14
5A-1
LDA i 14
STC 16
LDA i 16
AZE i
JMP 5E
JMP 8Y-2
SRO i
3567
JMP p-10
[HEADING FINISHED
#5E SET i 5
-73  [LINES|PAGE
JMP 8X [KST AND CARRIAGE RETURN
SET i 14
5A
LDA 14
STC 16
LDH i 16
AZE i
JMP 5F-2
JMP 5J
LDA i 14
STC 16
LDH i 16
AZE i
JMP 5F-5
JMP 8W-2 [3 SPACES
JMP 8W-2
JMP 8W-2
#5J LDH 16
JMP 8W   [#
LDH i 16
JMP 8W   [LETTER
JMP 8W-2 [SPACE
LDA i 16
JMP 8R   [VALUE
JMP 8W-2 [SPACE
LDA i 16
JMP 8Q   [LINE
LDA
16
STA 14
SRO i
3567
JMP 5J-10
XSK i 5
JMP 5E+2
[TABLE FINISHED
#5F LDA i
3416  [BELL
JMP 8W+4
RDC 7E
6|7D+37 [MNEMONICS
ADD 8L+3 [1
STC 8C
SET i 14
6A-1+400
SET i 4
6A-1
LDA i 14
STA i 4
XSK 14
JMP p-3
SET i 5
-1
JMP 8Z+2
JMP 5K+1
[COLUMN ADDRESSES
#5A 6E-4000
6E-4000+261
6E-4000+542
6E-4000+1023
[PARTIAL LIST
#5S JMP 3A
SET 4
3
JMP 2A
JMP 5K-6 [NO ASSIGN
JMP 3F
JMP 5K-6 [ASSIGN
#5H SAE i
1
JMP p+5
LDA i
RDC 7E
STC 5K-12
ADD p-5
ADD p+10 [-1
AZE i
COM
STC 5K-3
ADD 9J+1
AZE
STC 5M+5
SET i 5
-1
RDC i 7E
3|7D+35
ADD 8L+3
STC 8L [UP PAGE
LDA
1L
SAE i
0 [REQUESTED LN
JMP 5S
JMP 5N-2
[PASS II-PRINT LINES
#5K JMP 8Z [PAGE PRESET
SET i 2
5T-4000
JMP 8Y [LABEL
JMP 8X [RETURN
JMP 3A
SET 4
3
SET 2
3
JMP 2A
JMP 5L [NO ASSIGNMENT
JMP 8Q-2 [PRINT p
JMP 8W-2
JMP 3F  [UP p
LDA
2X   [CONT
JMP 8R
JMP 5L+5
[NO ASSIGNMENT
#5L SET i 14
-11
JMP 8W-2 [SPACE
XSK i 14
JMP p-2
SET i 13
-66
SET 4
2
LDH i 4
SHD i
6600
JMP 5M
SHD i
2200
JMP 5M
SET i 14
-4
JMP 8W-2
XSK i 13
XSK i 14
JMP p-3
#5M JMP 8W-2 [SPACE
JMP 8Y+2 [PRINT LINE
LDA
1L
SAE i
7776 [LAST LN REQUESTED
JMP p+2
JMP 8B-1 [FINISHED
ADD 8L+3 [1
STC 8C [LN FOR PAGE HEADING
#5N XSK i 5
JMP 5K+4
JMP 5K
[PRINT NUMBER-LEADING SPACES. # IN ACC. FORSYMBOL TABLE OR p.
LDA
1P   [p
#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
[LIST HEADING
#5T 1414 [p CONT
1614
1426
4241
4712
6B=2000 [SYMBOL ASSIGNMENTS
6D=2400 [MARK REGISTERS
6E=2432 [ERRORS
6F=2352 [MEMORY ALLOCATION
6A=2642 [MENOMICS
6C=2700 [MNEMONICS
6G=2740 [MNEMONICS
[LIST-Q0-2.
[CONVERT WITH TTSRS
[SAVE QS 1-3
[LIAPR13
$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