File FACTOR

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

$1103
#2F LDA
0
BCL i
6000
STA
1
ADA i
6002
STC 6P-4 [SAVE RETURN JUMP
LDA 1
STC 2F + 25
LDA i 1
STA
4
STA  [STORE ADDRESS
6P-7 [OF ANSWER
STC 6P-11
STC 6P+2
STC 6P+3
STC 6P+4
JMP 1J
0 [FIX N
6P
LDA i
6P-4
STC 2
LDA i 2 [FLOAT 1 INTO ANSWER
STA 4
LDA i 2
STA i 4
LDA i 2
STA i 4
LDA
6P+1 [FIXED N INTO ACC
AZE i
JMP 6P-4
APO
HLT [N LESS THAN ZERO
COM
STC 4 [XSK ON REG 4
JMP 1A
6P-3 [INCREMENT
6P+2 [FLOATING N
6P+2
JMP 1M
0 [MULTIPLY PARTIAL
6P+2 [PRODUCT
0
XSK i 4
JMP 2F+50
JMP p
0001
2000 [COUNTER
0000
#6P 0 [FIXED
0 [N
0
0 [FLOATING FACTOR
0



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