file SPP0A

File SPP0A
Directory of image this file is from
This file as a plain text file
[SPP0A
$400
[INPUT BUFFER 400-777,P1
[PAGE 0 REGISTERS
[2  INPUT POINTER
[3  LINE POSITION
[4  CHARACTER COUNT
[5  LABEL SWITCH
[6  PAGE #
[7  LINE #
[10  LINK LEVEL 2
[11  LINK LEVEL 1
[12  WORK 
[13  WORK
[14  FILE BLOCK COUNTER
[15  POINTER TO FILE RCD
[16  PRINT MANUSCRIPT LINKAGE| PRINT PARAMETER LINKAGE
[17  PGLN #
5Y=17
[PRINT SOURCE FILE
#9Q SET 16
0
BSE i
2000
STC 15  [FILE RCD PTR
UMB 9W  [P0
LDA
2000+1752  [U|FB2[SOURCE]
BCL i
6777
ROR 6
ADA i
RDC
STC 9G+23
LDA
2000+1752  [U|FB2[SOURCE]
BCL i
7000
ADA i
2
COM
ADA
2000+1750  [FB1
STC 14  [STORE-# BLOCKS IN SOURCE FILE
LDA i
5|0
ADA
2000+1751  [CFP[SOURCE]
STC 9G+24
STC 3
STC 4
STC 5
SET i 6
1  [1ST PAGE #
STC 7
SET i 2
3000-4000  [FORCE BLOCK INPUT
SET i 12
-346
SET i 13
3777
UMB 9Y  [P2
STA i 13  [CLEAR LABEL TABLE
XSK i 12
JMP p-2
JMP 9G
JMP 8E  [EOM RETURN
JMP 9G
JMP 8E  [EOM RETURN
JMP 9G
JMP 8E  [EOM RETURN
JMP 9G
JMP 8E  [EOM RETURN
UMB 9Z  [P3
LDA
2016  [FILE RCD PTR
ADA i
6
BSE i
2000
STC 1
LDA 1  [FIRST LINE #
STC 7X
LDA i 1  [LAST LINE #
COM
STC 7Y
LDA i
#7X 0
AZE i
JMP 7E
XSK i 7  [LN#<-LN#+1
LDA
7X  [FIRST LINE #
SAE
7  [LINE #
JMP p+5
ADA i
-1
STC 7
JMP 7E
[
JMP 9G  [INPUT
JMP 8E  [EOM RETURN
SHD i
1200  [EOL
JMP 7X+3
SHD i
7700  [EOM
JMP 8E
JMP p-10
[
#8G LDA
0
STA i
0
JMP 8C
JMP 4V  [CR
JMP 4W  [LF
JMP 4W  [LF
UMB 9Z  [P3
LDA 15  [FLAGS
ROL 4
APO
JMP p+11
[PRINT FILE NAME HEADER
LDA i
4|6
ADD 15
JMP 9O
UMB 9Z  [P3
JMP 0
[
JMP 3V  [SP
JMP 3V  [SP
[
LDA
6  [PG #
JMP 7F
JMP 4V  [CR
JMP 4W  [LF
JMP 4W  [LF
CLR
STC 5Y
JMP 8G+3  [EXIT
[
[
XSK i 6  [INCR PAGE #
[
#7E JMP 8G
CLR
STC 5Y
[
LDA
4  [CC
AZE i
XSK i 7  [LN #<-LN#+1
LDA
7  [LINE #
ADA i
#7Y 0  [- LAST LINE #
APO i
JMP 3H+11  [STOP PRINTING
JMP 8F  [PRINT LINE
JMP 8E  [EOM RETURN
KST i
JMP 8P
LDA
5Y  [PGLN #
ADA i
-71
APO
JMP 7E+3
JMP 7E-1  [NEW PAGE
[EOM
#8E JMP 8B
XSK i 6  [INCREMENT PAGE
JMP 8G
CLR
STC 5Y  [0 ->PGLN#
[PRINT LABELS
[STEP 1  ALLOCATE LABELS TO COLUMNS
#1G SET i 1
1O-1
CLR
STA i 1
STA i 1
SRO i
3737
JMP 1G+3
SET i 2
1O-1
SET i 3
3777  [LABEL TABLE ADDR-1
SET i 4
-346  [# LABELS
SET i 5
0124-1  [1A-1
SET i 7
-72
[
#2G ADD 3
STA i 2
LDA
5
STA i 2
XSK i 2
UMB 9Y  [P2,LABEL TABLE
[
#1H JMP 8A  [STEP TO NEXT LABEL
LDA i 3
AZE i
JMP 3G
[
LDA i
1
ADM 2
XSK i 4
APO
JMP 2H
XSK i 7
JMP 1H
JMP 2G
[
#3G XSK i 4
JMP 1H
#2H SET i 10
1O-1
SET i 11
-4
[
#3H LDA i 10
AZE
JMP 1I
ADD 10
SAE i
1O
JMP p+10
JMP 8B  [COMPLETE PAGE
JMP 8C  [COMPLETE MARGIN
LDA
16
STC p+2
LMB 9Z  [P3
RETURN TO P3
[
JMP 4V  [CR
JMP 4W  [LF
JMP 2H
[
#1I STC 2
SET 3  [SAVE 10
10
LDA i 10
STC 5
LDA i
-1
ADM i 10
AZE
APO i
JMP 2I
CLR
STA 3
STA i 3
STA i 3
XSK i 11
JMP 3H
JMP 4V  [CR
JMP 4W  [LF
JMP 2H
[
#2I UMB 9Y  [P2
JMP 8A  [INCR LABEL
LDA i 2
AZE i
JMP p-3
LDA
3Z  [CCP
AZE i
JMP p+5
JMP 3V  [SP
JMP 3V  [SP
JMP 3V  [SP
JMP 3V  [SP
[
LDH
5
JMP 4X
LDH
4|5
JMP 4X
JMP 3V  [SP
JMP 3V  [SP
LDA 2
JMP 7F  [LINE #
LDA
2
STA 3
LDA
5
STA i 3
JMP 2I-5
[
#8A XSK i 5
LDH
4|5
ADA i
-55
APO
JMP 0
LDA i
46  [STEP TO NEXT DIGIT AND A
ADD 5
STC 5
JMP 0
[
#8B LDA 
0
STC p+10
JMP 4W  [LF
LDA
5Y
ADA i
-71
APO
JMP p-6
RETURN
[
#8C LDA
0
STA i
0
JMP 4V  [CR
JMP 4W  [LF
JMP 4W  [LF
JMP 4W  [LF
JMP 4W  [LF
LDA i
"0-;
JMP 4X
JMP 8C+3
[
#3V LDA
0
STC p+4
LDA i
14
JMP 4X
RETURN
[
#1O 0  [C1
0
0
0  [C2
0
0
0  [C3
0
0
0  [C4
0
0
[
[INPUT ROUTINE
#9G SET 11
0
LDH i 2
LDA i
-3000
ADD 2
AZE i
JMP p+7  [EOB
AZE i
[9G+11
XSK i 14  [TEST FOR EOF
XSK i 11
UMB 9X  [P1
LDH 2
JMP 11
[
LDA i
1
ADM
p+3
UMB 9X  [P1
RDC
QN|BN
SET i 2
2400
JMP 9G+11
[
#8P KBD i
SAE i
0012  [EOL
JMP 0
JMP 3H+11
[CR
#4V LDA 
0
STC p+5
STC 3Z  [0->CCP
LDA i
3432  [CR
JMP 3X
RETURN
[LF
#4W LDA
0
STC p+7
ADD 9G+17  [=1
ADD 5Y  [LP
STC 5Y
LDA i
3424  [LF
JMP 3X
RETURN
[
[
[ACC=LINC CODE CHAR
[OUTPUT CHAR TO TELETYPE
#4X ROR 1
ADA i
3Y
STC 1
[LINKAGE
ADD 0
STC 4X+20
UMB 9Y  [P2
LDH 1
ADA i
1640
ROL 1
[ACC=TELETYPE CODE
[TELETYPE CODE IS
[B11=0
[B8-10=1
[B1-B7=ASCII CODE[REVISED
[B0=0
JMP 3X  [SEND TO TELETYPE
LDA i
1
ADM 
3Z  [CCP
[CCP=CURRENT CARRIAGE POSITION
JMP  [RETURN
[
[
[
[TELETYPE OUTPUT ROUTINE
#3X SET 1
0  [LINK
STC p+5
MSC 4
APO i
JMP p+7
LDA i
TT CODE
ROR 1
OPR 42
JMP p-1
JMP 1  [RETURN
ADD 1
STC p+13
LDA
3X+7
ATR
SET i 1
-435
XSK i 1
JMP p-1
SCR 1
AZE
JMP p-7
JMP  [RETURN
[
[
[
[
3Z=1764
[CURRENT CARRIAGE POSITION
[
[
[
[
[
[PRINT INTEGER IN ACCUMULATOR
#7F STC 7G+1
ADD 0
STC p+16
JMP 7G  [NXT DIGIT
JMP p+13  [NO MORE DIGIT
AZE
JMP p+5
LDA i
14  [SP
JMP 4X
JMP 7F+3
JMP 4X
JMP 7G  [NXT DIGIT
APO
JMP p-3
[
JMP 4X  [PRINT 0
RETURN
[
#7G LDA i
0
ROL 3
STA
p-3
BCL i
7770
SRO i
3567
XSK i 0
JMP 0
[PRINT LINE
#8F XSK i 0
LDA
0
STA i
RETURN
JMP 4V  [CR
JMP 4W  [LF
JMP 9G  [INPUT TO TEST FOR EOM
JMP 8E  [EOM
SHD i
7700
JMP 8E  [EOM
LDA
4  [CC
AZE i
JMP p+7
JMP 3V  [SP
JMP 3V  [SP
SRO i
3567
JMP p-4
JMP 8H
[
STC 7I  [LABEL SAVE
ADD 7  [LINE #
JMP 7F
#8H JMP 3V  [SP
UMB 9X  [P1
LDH 2
JMP 8I+2
[
#8I JMP 9G  [INPUT
JMP 8E  [EOM RETURN
XSK i 4  [CC<-CC+1
SAE i
0012  [EOL
JMP p+4
CLR
STC 4  [0->CC
JMP 8F+4  [RETURN
[
SAE i
0077  [EOM
JMP p+6
LDA i
-1
ADM
8F+4
JMP 8F+4  [RETURN
STC 8J  [SAVE CHAR
ADD 4
SAE i
1
JMP 7H
LDA i
"0#;
SAE
8J  [INPUT CHAR
JMP p+4
SET i 5
1
JMP 8K
LDA i
"0[;
SAE 
8J  [INPUT CHAR
APO
JMP p-10
[
JMP 3V  [SP
SRO i
3567
JMP p-3
JMP 8K
[
#7H LDA
5  [LBS
AZE i
JMP 8K
LDA i
#7I 0  [LABEL
ROL 6
ADD 8J  [INPUT CHAR
STC 7I
XSK i 5  [LBS+1->LBS
ADD 5
SAE i
3
JMP 8K
LDH
7I  [DIGIT
MUL i
32
ADA i
-32-24+2000
STC p+4
LDH
4|7I  [LETTER
ADA i
0
STC 1
STC 5  [0->LBS
ADD 7  [LINE #
UMB 9Y  [P2
STA 1
#8K LDA
3Z  [CCP
ADA i
-62
APO
JMP 8J-1
LDA i
14  [SP
SAE
8J  [INPUT CHAR
APO
JMP 8F+4
[
LDA i
#8J INPUT CHAR
JMP 4X  [OUTPUT
LDA i
-71
ADD 3Z
APO
JMP 8I  [NXT CHAR
JMP 8F+4  [EXIT
[
[
[
[
[PRINT PARAMETERS
#9R BSE i
2000
STC 15  [SAVE FILE RCD PTR
ADD 0
STC 16  [RETURN
ADD 15
STC 1J  [TERMINAL CONDITION
JMP 8C  [END OF PAGE
CLR
STC 5Y  [0->PGLN#
JMP 4W  [LF
JMP 4W  [LF
[
#2J UMB 9Z  [P3
LDA i
4
ADD 15
STC 1
LDA 1
JMP 9O  [PRINT DESCRIPTION 
UMB 9Y  [P2
JMP 0
[
UMB 9Z  [P3
LDA 15  [FLAGS
APO i
JMP p+7  [FILE USED
JMP 3V
JMP 3V
JMP 3V
LDA i
"0X;
JMP 4X
[
JMP 9C
UMB 9Z  [P3
LDA 15  [FLAGS
ROL 4
APO i
JMP p+7
LDA i
9M-4000
JMP 9O  [PRINT CUR MANUSCRIPT
UMB 9Y  [P2
JMP 0
JMP p+7
LDA i
4|6
ADD 15
JMP 9O  [PRINT NAME
UMB 9Z
JMP 0
JMP 9C
UMB 9Z  [P3
LDH i 15  [UNIT
JMP 4X
JMP 4V  [CR
JMP 4W  [LF
JMP 4W  [LF
JMP 4W  [LF
XSK i 15
UMB 9Z  [P3
LDA i 15  [SUCCESSOR
BSE i 
2000
STA
15
SAE i
#1J 0  [TERMINAL CONDITION
JMP 2J
JMP 8B  [COMPLETE PAGE
LDA
16
STC p+2
LMB 9Z  [P3
RETURN
[
[
[
[PRINT MESSAGE
#9O STC 12
ADD 0
STC p+5
XSK i 0
XSK i 0
ADD 0
STC p+5
[
JMP PAGE SELECT
LDH i 12
SHD i
7700  [77 IS TERMINAL
RETURN
JMP 4X  [OUTPUT
JMP p-6
[
#9C LDA
0
STC 9C+11
JMP 4V  [CR
JMP 4W  [LF
JMP 3V  [SP
JMP 3V  [SP
JMP 3V  [SP
JMP 3V  [SP
RETURN
[
[
[
[FILE SEARCH
#8U XSK i 0
LDA
0
STC 8V+1
UMB 9Z  [P3
LDA
2010  [FILE RCD PTR
BSE i
2000
STC 6
LDA 6  [FLAGS
ROL 4
APO i
JMP p+31  [NOT CM
STA i
0
LDA i 6  [ADDR OF FD
STC 1
LDA i
350
UMB 9W  [P0
STA 1  [FB1
ADA i
-1
STA i 1  [CFP
LDA
p-12
BCL i
7577
ROL 2
ADA i
425
STA i 1
LDA i
-1
ADM
8V+1  [CM EXIT
JMP 8V
[
LDH i 6  [UNIT
AZE i
JMP 8X  [READ UNIT 0 INDEX
JMP 8Z  [READ UNIT 1 INDEX
JMP 8V  [RETURN
[
UMB 9Z  [P3
LDA 6  [FLAGS
BSE i
2000
STA 6
#8V LMB 9Z  [P3
RETURN
[
[
[
#8X UMB 9Y
XSK i 0
LDA i
JMP 0
STC 8X+2
ADD 0
STC 8W+14  [LINK
JMP p+11
#8Z UMB 9X
LDA i
JMP 0
STC 8Z+1
ADD 0
STC 8W+14  [LINK
[
LDA i
u
[
ADA i
RCG
STC p+1
#8W  RCG
1|426
SET i 7
3000-1
SET i 1
-10
LDA i 7
SAE i 
5757
JMP 8V-5  [NOT INDEX
XSK i 1
JMP p-5
0  [RETURN
[
[
9W=0  [PAGE 0
9X=1  [PAGE 1
9Y=2  [PAGE 2
9Z=3  [PAGE 3
[
Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search