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

[STARTER PROGRAM
[TAPE BLOCK SEQUENCE
[2 BLOCK: INIT LOAD
[3 BLOCK: PAGE 0
[2 BLOCK: PAGE 2
[Q0,P3
[Q1,P3
[Q2,P3
[Q3,P3
$1
0 
[COMPILE,LOAD,AND GO
LDA i
0077
JMP 6A
[
[LOAD AND GO
$400
LDA i
4077
JMP 6A
[
[PARAMETER INPUT
$20
LDA i
0000
[
#6A STC 7A  [OPTION
ZTA
ROL 1
ZZZ i
JMP p+3
ADA i
1
ROR 3
STC 7B  [UNIT,BLOCK OF STARTER
[
[COPY CODE TO PAGE 0
UMB 9W  [P0
LDA
2017
STA i
0
COM
STC 17
LDA
2017
SAE  [TEST FOR LMB=0
p-6
JMP 5E  [IN PAGE 0-NO MOVE
SET i 17
p+14
SET i 16
2000+p+12
SET i 15
-377+p
UMB 9W  [P0
LDA i 17
STA i 16
XSK i 15
JMP p-3
LMB 9W  [P0
JMP p+1
#5E LDA
7B
BCL i
6777
ROR 6  [TO u POSITION
STA
5C-6
ADA i
RDC i
STA 
6B
BCO i
i+3  [FORM MTB
STC 6C  [STOP TAPE
LDA i
#7B 0
BCL i
7000
ADM
6B+1
ADA i
6007
STC 5C
UMB 9W  [P0
#6B RDC i
5|2
LDA i
1001
ADM
6B+1
SRO i
0353
JMP 6B
SRO i
0006
JMP p+7
LDA i
3777
ADM
6B+1
UMB 9Y  [P2
JMP 6B
SRO i
0002
JMP p+7
LDA i
5777
ADM
6B+1
UMB 9Z  [P3
JMP 6B
[
#6C MTB  [STOP TAPE
0
[
UMB 9Z  [P3
LDA
3777  [PTR TO FILE RCD #1
BSE i
2000  [UMB
STC 17
LDA 17  [FLAGS
BCL i  [CLEAR NO
2000
STA 17
XSK i 17
LDA i 17
SRO i
0007
JMP p-13
LDA i
0
ADA i
WRC
STA
3774  [SET WRC
LDA i
#5C 0
STA
3775  [SET QN|BN
[
LDA i
#7A 0
STC 1750
LMB 9Z  [P3
JMP 1
[
[MANUAL LOAD RATHER THAN LAP6
$600
#1B LSW
STC 7B
LDA i
JMP 6A+11
STC 6A+1
JMP 1
[
[
[
9W=0
9X=1
9Y=2
9Z=3
[PAGE NUMBERS
[END OF SPP0 MANUSCRIPT