[OUTPUT-5
[NEW VERSION OF A TELETYPE OUTPUT PACKAGE WHICH OCCUPIES ONLY ONE QUARTER OF MEMORY.
[FORMAT IS AS FOLLOWS -
[JOP9T
[EDITING PHRASE
[EDITING PHRASE
[  ...
[  ...
[EDITING PHRASE
[JMP p+1
[  EACH EDITING PHRASE CONSISTS OF THREE PARTS -
[BITS 11 THRU 9 ARE ALL ZERO,
[BITS 8 THRU 6 FORM A 3 BIT CODE FOR THE OPERATION-SEE BELOW,
[BITS 5 THRU 0 MAY REPRESENT THE NUMBER OF REPETITIONS OF THE OPERATION -FOR CODES 0 AND 1- OR AN INDEX REGISTER, 1 THRU 16, POINTING TO THE ADDRESS OF THE OPERAND. IF THIS INDEX REGISTER IS 0 OR 17 IT IS ASSUMED THE OPERAND IS THE CONTENTS OF THE ACCUMULATOR WHEN THE OUTPUT PACKAGE WAS FIRST ENTERED.
[CODES ARE AS FOLLOWS -
[0  EJECT N LINES
[1  N SPACES
[2  OCTAL 4 DIGIT
[3  SP DECIMAL 4 DIGIT AND SIGN
[4  DP DECIMAL 7 DIGIT AND SIGN
[5  SP FRACTION 4 DIGIT AND DECIMAL POINT
[6  PERCENT 2 DIGIT
[7  SET FRACTION SIGN
[AJH JULY 1967
[            ORIGIN MAY BE INSERTED HERE IF DESIRED
#9T STC 9G-1  [ENTRY
ADD 0
BCLi
4000
STC 9G+11
JMP 9G+11
00  [ACCUMULATOR CONTENTS
#9G LDAi17  [NEXT
LDA
17
STA
10
LDAi
1
ADD p+2
STC p+1
ADD 000
APO
JMP 9B
STAi
#9D 0  [CURRENT EDITING PHRASE
SCR 6
ADAi
JMP+9A+1
STC 9A
ADD 9D
SCR 7
AZE
JMP p+12
ADD 9D  [CODE IS
BCLi    [0 OR 1
7700
AZEi
ADD 9G+6
COM
STC 17
STC 9G+4
JMP 9A
LDA    [CODE IS
9D     [2  - 7
BCLi
7760
SHDi   [IF REG.
1700   [IS 17,
CLR    [SET TO 
STA    [ZERO
9G+4
STC 9A-2
LDAi
9G-1  [ADDRESS OF ACCUM. CONTENTS
STC 0
LDA
10   [0 THRU 16
STC 17
#9A JMP 000
JMP 9C  [EJECT
JMP 9H  [SPACES
JMP 9J  [OCTAL
JMP 9X  [SP DEC
JMP 9W  [DP DEC
JMP 9I  [FRACT
JMP 9E  [PERCENT
JMP 9E+4 [SET FRACTION SIGN
#9B STC p+1
JMP 000  [FINISHED
#9C LDAi  [EJECT
215
OPRi2
LDAi
212
JMP p+3
#9H LDAi  [SPACES
240
OPRi2
XSKi17
JMP p-2
JMP 9G
#9J LDA 17  [OCTAL
ROL 3
STAi
0
BCLi
7770
JMP 9P
LDA
p-5
SROi
3567
JMP p-12
JMP 9G
12  [CONSTANT
#9I LDAi  [FRACTION
256
OPRi2
LDA
9S
ROLi1
LDA 17
RORi1
APO
COM
MUL
4000+9I-1
STAi
0
ZTA
STC p+4
ADD p-3
JMP 9P
LDAi
0
SROi
3567
JMP p-14
JMP 9G
#9E ADD 9E-3 [PERCEN
ROR 2
STC 9E-3
JMP 9I+5
ADD 9D [SET SIGN
ROL 1
STC 9S
JMP 9G+1
[PRINT SUBROUTINE
[DIGITS  0 THRU 11
[SPACE  13
[MINUS  30
[POINT  31
237
33
-12
#9P ADD 9P-1
APO
ADD 9P-2
ADD 9P-3
OPRi2
JMP 0
[INTEGER OCTAL TO DECIMAL
#9X LDAi  [SP ENTRY
0007
JMP 9S+2
STAi
#9R 0   [RIGHT HALF
JMP 9S-2
STC 9L
JMP 9L+4
[SIGN FLAG SET
SCR 13
STAi
#9S 0   [SIGN FLAG
JMP 0
[SUPPRESSED LEAD ZEROES FLAG SET, COUNTERS SET
STA
9O
STC 9K
STC 9F
LDA 17
JMP 0
#9W LDAi   [DP ENTRY
0077
JMP 9S+2
STAi
#9L 0   [LEFT HALF
JMP 9S-2
LDAi17
STC 9R
ADD 9L
APOi
JMP 9Y-3
COM
STC 9L
ADD 9R
COM
STC 9R
LDAi
9V+1
STC 9Z
#9Y ADD 9G+6
STC 9N
STC 9M
#9Q CLR
ADD 9R
ROLi1
STC 9R
ADD 9L
ROLi1
STC 9L
ADD 9M
ROLi1
STAi
#9M 0   [EXTENSION L
ADD 9P-1
AZEi
COM
APO
JMP p+5
STC 9M
ADD 9G+6
ADD 9R
STC 9R
SROi
#9U 3777
JMP 9Q
SROi
#9N 0001
JMP 9Q
LDA
9M
STH
#9Z 9V+1
LDAi
4000
ADD 9Z
STC 9Z
SROi
#9K 0007
JMP 9Y
LDAi  [OUTPUT
3777
ADD 9Z
STA
9Z
STC p+2
LDH
9V+1
STA
9M
AZEi
JMP 9O+10
SROi
#9F 0000
JMP 9F+15
LDA
9S
APO
ADD 9V
ADAi
13
JMP 9P
CLR
COM
STC 9F
ADD 9M
JMP 9P
SROi
#9O 0007
JMP 9K+2
SAEi
240
JMP 9G
CLR
JMP 9P
JMP 9G
ADD 9F
APO
JMP 9F+13
ADD 9F+7
JMP 9F+15
#9V 15
0000
0000
0000
0000
[END OF OUTPUT-5
[20 JULY 1967