File EEG1

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

*20
	*20
	UPDOWN=2
	NUMBER=3
	LOOP=5
	RING=7
	LA=301
	LB=302
	LC=303
	LG=307
	LI=311
	LJ=312
	LK=313
	LM=315
	LO=317
	LP=320
	LR=322
	LS=323
	LT=324
	LW=327
	LX=330
	*1
HORIZ,	0
ZERO1,	1777
ZERO2,	1777
STORE,	0
LIMIT,	7352
SAVE,	0
AMPLIT,	0
DATA,	0
HIGHT1,	0
HIGHT2,	0
LETNUM,	1777
DIGIT,	7201
TRACK4,	-4
WIDTH,	0
	*20
BEGIN,	LDA I
	100
	ESF
	LDA I
	5252
	STC ROTATE
	SAM 10
	PDP
	PMODE
	CLA
	CLLR
	CLEN
	TAD M5
	CLAB
	CLA
	TAD K500
	CLLR
	CLSA
	CLA
	TAD K300
	CLEN
	CLA
	TAD K3500
	CLLR
DISPLA,	CLA
	CLSK
	JMP .-1
	CLSA
	KSF
	SKP
	JMP CALIB
	LINC
	LMODE
	SRO
	ROTATE
	JMP DIS2
	SAM 11
	SCR 2
	ADA I
	200
	DIS I HORIZ
	PDP
	PMODE
	JMP DISPLA
	LMODE
DIS2,	SAM 10
	SCR 2
	ADA I
	-200
	DIS I HORIZ
	PDP
	PMODE
	JMP DISPLA
CALIB,	TAD K500
	CLLR
	KRB
	TLS
	LINC
	LMODE
	SAE I
	LA
	JMP .+6
	LDA I
	SKP
	STA
	ABORT1
	STC ABORT2
	SAE I
	LR
	JMP .+6
	LDA I
	AZE I
	STA
	ABORT1
	STC ABORT2
	SAE I
	LT
	JMP .+3
	LIF 1
	JMP AUTOMT
	SAE I
	LC
	JMP BEGIN
	JMP ERASE
	CLR 
	ESF
CLSAM1,	SAM 10   
	ADA I
	300
	APO I
	JMP .-4
	ADA I
        -300
	STA
	CALBUF
	ADD CALPLS
	APO I
	JMP .+6
	CLR
	ADD CALBUF
	COM
	STC CALPLS
	JMP CLSAM1
	CLR
	ADD CALPLS
	STA
	7275
	ROL I 1
	STA
	7277
	SCR 2
	STA
	7274
	ADA
	7275
	STA
	7276
	CLR
	STC CALPLS
	LDA I
	261
	PDP
	PMODE
	JMS TYPE
CALIB2,	JMS LISN
	LINC
	LMODE
	SAE I
	LC
	JMP CALIB2-2
CLSAM2,	SAM 11
	ADA I
	300
	APO I
	JMP .-4
	ADA I
	-300
	STA
	CALBUF
	ADD CALPLS
	APO I
	JMP .+6
	CLR
	ADD CALBUF
	COM
	STC CALPLS
	JMP CLSAM2
	CLR
	ADD CALPLS
	STA
	7270
	ROL I 1
	STA
	7272
	SCR 2
	STA
	7267
	ADA
	7270
	STA
	7271
	CLR
	STC CALPLS
	LDA I
	262
	PDP
	PMODE
	JMS TYPE
	LINC
	LMODE
INITL,	LDA I
	5252
	STC ROTATE
	STC MAX1
	STC MAX2
	STC MIN1
	STC MIN2
	STC PTIME1
	STC PTIME2
	STC TIME1
	STC TIME2
	SET I ZERO1
	1777
	SET I ZERO2
	1777
	SET I LIMIT
	7352
	SET I HIGHT1
	7273
	SET I HIGHT2
	7266
	SNS 0
	JMP .-1
	HLT
	LDA I
	3500
	IOB
	PMODE
	CLLR
	LMODE
	LDA I
	300
	ESF
	SAM 10
COLLCT,	CLR
	PDP
	PMODE
&CLSK
	JMP .-1
	CLSA
	LINC
	LMODE
	LDA I 
	1     
	ADM
	TIME1
	FLO I  
	JMP .-5
	AZE
	JMP CHECK
	LDA I 
	1     
	ADM
	TIME2
	JMP SAMP-2
CHECK,	ADA I /CHECKS FOR END OF
	-4600 /2 MINS.
	AZE
	JMP SAMP-2
	LDA
	TIME2
	ADA I
	-72
	AZE I
	JMP SESEND
	SNS 0 /CHECKS FOR SWITCH
	JMP SESEND/RETURN.
/FOLLOWING 2 SEGMENTS FIND PEAK POS
/AND NEG OF WAVE & THAT IT IS ENDED.
SAMP,	CLR
	SRO 
	ROTATE
	JMP SAMP2
	SAM 11
	STA
	FIRST
	SCR 2
	ADA I 
	200
	DIS I HORIZ
	LDA
	FIRST
	APO
	JMP NEG1
	XSK ZERO1
	JMP TABUL1
	STA 
	TEMMAX
	COM
	ADD MAX1
	APO I
	JMP COLLCT
	CLR
	ADD TEMMAX
	STC MAX1
	JMP COLLCT
NEG1,	SET I ZERO1
	1
	STA
	TEMMIN
	COM
	ADD MIN1
	APO
	JMP COLLCT
	CLR
	ADD TEMMIN
	STC MIN1
	JMP COLLCT
/FOLLOWING FINDS DURATION OF WAVE
TABUL1,	SET I ZERO1
	1777
	LDA
	TIME1
	COM
	ADD PTIME1
	STC DURATN
	ADD TIME1
	STC PTIME1
/FOLLOWING TALLIES WAVE ACCORDING TO
/FREQUENCY
TALLY1,	CLR
	ADD DURATN
	ADA I LIMIT
	APO I
	JMP TALLY1
	LDA
	LIMIT
	ADA I
	26
	STC STORE
	LDA I
	1
	ADM STORE
ABORT1,	AZE I
	JMP OVRFLO /REGISTER OVERFLOWS.
	CLR
	ADD LIMIT
	ADA I
	-25
	STC AMPLIT
	LDA AMPLIT
	STC SAVE
	SET I LIMIT
	7352
/FOLLOWING TALLIES AMPLIT. INTO 5
/CATEGORIES.
	LDA
	MAX1
	COM
	ADD MIN1
	STC MINMAX
HANAL1,	ADD MINMAX
	ADA I HIGHT1
	APO I
	JMP .+4
	CLR
	XSK I SAVE
	JMP HANAL1
	CLR
	STC MAX1
	STC MIN1
	LDA I 
	1
	ADM SAVE
	SET I HIGHT1
	7273
	JMP COLLCT
SAMP2,	SAM 10
	STA
	FIRST
	SCR 2
	ADA I
	-200
	DIS I HORIZ
	LDA 
	FIRST
	APO
	JMP NEG2
	XSK ZERO2
	JMP TABUL2
	STA
	TEMMAX
	COM
	ADD MAX2
	APO I
	JMP COLLCT
	CLR
	ADD TEMMAX
	STC MAX2
	JMP COLLCT
NEG2,	SET I ZERO2
	1
	STA
	TEMMIN
	COM
	ADD MIN2
	APO
	JMP COLLCT
	CLR
	ADD TEMMIN
	STC MIN2
	JMP COLLCT
TABUL2,	SET I ZERO2
	1777
	LDA
	TIME1
	COM
	ADD PTIME2
	STC DURATN
	ADD TIME1
	STC PTIME2
TALLY2,	CLR
	ADD DURATN
	ADA I LIMIT
	APO I
	JMP TALLY2
	LDA 
	LIMIT
	ADA I
	53
	STC STORE
	LDA I
	1
	ADM STORE
ABORT2,	AZE I
	JMP OVRFLO
	CLR
	ADD LIMIT
	ADA I
	-52
	STC AMPLIT
	LDA AMPLIT
	STC SAVE
	SET I LIMIT
	7352
	LDA 
	MAX2
	COM
	ADD MIN2
	STC MINMAX
HANAL2,	ADD MINMAX
	ADA I HIGHT2
	APO I
	JMP .+4
	CLR
	XSK I SAVE
	JMP HANAL2
	CLR
	STC MAX2
	STC MIN2
	LDA I
	1
	ADM SAVE
	SET I HIGHT2
	7266
	JMP COLLCT
OVRFLO,	LDA I/MEMORY REGISTER OVRFLO,
	7776 /TYPE COMMA & END SESS.
	STA STORE
	LDA I
	254
	JMP .+3
SESEND,	LDA I/END SESSION & TYPE
	256 /PERIOD.
	PDP
	PMODE
	JMS TYPE
	JMS CRLF
	LINC
	LMODE
RESTRT,	SET I LETNUM
	1777
	SET I DIGIT
	7201
	SET I TRACK4
	-4
	LDA I
	7400
	STC FIRST
/FOLLOWING INITIALIZES FOR FREQ.
/HISTOGRAM.
GETFRQ,	LDA I
	-53
	STC MNUM
	ADA I
	24
	STC START
	ADA I
	-13
	STC LENGTH
	JMP HISTO
/FOLLOWING INITIALIZES FOR AMPLIT.
/HISTOGRAM.
GETAMP,	LDA I
	-13
	STC MNUM
	ADA I
	-24
	STC LENGTH
	ADA I
	222
	STC START
/DISPLAY ROUTINE.
HISTO,	KST /HAS TTY KEY BEEN STRUCK
	SKP
	JMP LETTER
GETSET,	SET DATA/SECTION REINITIALIZES
	FIRST /EACH
	SET NUMBER/PASS
	MNUM /THRU.
	SET HORIZ
	START
	SET I UPDOWN
	1777
	CLR
	STC BUFF
SIDE,	LDA /BEGINS ROUTINE FOR
	BUFF /DISPLAYING HORIZONTAL
	SET WIDTH /LINE.
	LENGTH
	DIS I HORIZ
	SNS I 1 /SLOW SPEED FOR
	JMP CYCLE /XY PLOT.
	XSK I WIDTH
	JMP .-4
	XSK I NUMBER
	JMP .+5
	DIS HORIZ
	SNS I 1
	JMP .-2
	JMP HISTO
	XSK UPDOWN
	JMP FALL
RISE,	CLR/RISING LINE ROUTINE.
	STC LAST
	SET I UPDOWN
	1
	LDA I DATA
SCALE1,	SCR 0/PERMITS SCALING.
	APO I
	JMP .+3
	BCL/PERMITS USE OF 12 BITS
	CLEAR/FOR TALLYING.
	STC BUFF
RISEA,	ADD BUFF
	ADD LAST
	AZE I
	JMP SIDE
	CLR
	ADD LAST
	COM
	ADA I
	1
	DIS HORIZ
	SNS I 1
	JMP CYCLE
	COM
	STC LAST
	JMP RISEA
FALL,	CLR/FALLING PHASE
	SET I UPDOWN
	1777
	ADD BUFF
	AZE I
	JMP SIDE+2
	ADA I
	-1
	DIS HORIZ
	SNS I 1
	JMP CYCLE
	STC BUFF
	JMP FALL+3
CYCLE,	SET I LOOP/SUBROUT. FOR
	-2        /PLOT SPEED.
	DIS HORIZ
	DJR
	XSK I RING
	JMP .-3
	DJR
	XSK I LOOP
	JMP .-6
	JMP 0
/KEYBOARD INTERPRETER.
LETTER,	PDP
&PMODE
	KRB
	TLS
	LINC
	LMODE
	XSK LETNUM
	JMP SELEBT
	SAE I
	LI
	SKP
	JMP SERVI
	SAE I
	LJ
	SKP
	JMP SERVJ
	SAE I
	LT
	SKP
	JMP SERVT
	SAE I
	LW
	SKP
	JMP SERVW
	SAE I
	LR
	SKP
	JMP SERVR
	SAE I
	LP
	SKP
	JMP SERVP
	SAE I
	LA
	SKP
	JMP SERVA
	SAE I
	LG
	SKP
	JMP SERVG
	SAE I 
	LS
	SKP
	JMP SERVS
	SAE I
	LC
	SKP
	JMP SERVC
	SAE I
	LO
	JMP SESEND
	JMP SERVO
SERVS,	LDA I/SCALING ROUTINE,
	1    /ALLOWS USE OF 12 BITS.
	ADM
	SCALE1
	LDA I
	4000
SCALE2,	SCR 0
	STC CLEAR
	LDA I
	1
	ADM
	SCALE2
	CLR
	JMP HISTO
SERVO,	LDA I/ROUTIND RESETS SCALE.
&0340
	STA
	SCALE1
	STC SCALE2
	STC CLEAR
	JMP HISTO
SERVG,	JMP ERASE/NEW DATA W/O OLD.
SERVA,	JMP INITL/NEW DATA + OLD.
SERVC,	JMP BEGIN
ERASE,	SET I DATA/CLEARS OLD DATA
	7400
	CLR
	STA I DATA
	DJR
	XSK DATA
	JMP .-3
	JMP 0
/DECIMAL TO BINARY INTERPRETER.
SELEBT,	STC STRNUM
	ADD STRNUM
	ADA I
	-272
	APO I
	JMP DECBIN
	CLR
	ADD STRNUM
	ADA I
	-260
	AZE I
	JMP .+3
	APO
	JMP DECBIN
	XSK I TRACK4
	SKP
	JMP SESEND
	STA I DIGIT
	JMP HISTO
DECBIN,	PDP
	PMODE
	JMS CRLF
	LINC
	LMODE
	LDA   /HERE BEGINS DEC/BIN CONV.
	DIGIT
	ADA I
	-2
	STC DIGIT
	LDA DIGIT
	MUL I
	144
	ADM
	FIXNUM
	LDA I DIGIT
	MUL I
	12
	ADM
	FIXNUM
	LDA I DIGIT
	ADM
	FIXNUM
	SET I DIGIT
	7201
	SET I TRACK4
	-4
	SET I LETNUM
	1777
CHOOSE,	0
SERVI,	SET I LETNUM/HISTOGRAM SELECTION
	1           /ROUTINE.
	LDA I
	JMP IRTN
&STC CHOOSE
	STC FIXNUM
	JMP HISTO
IRTN,	AZE
 
	JMP .+5
	LDA I
	7400
	STC FIRST
	JMP GETFRQ
	ADA I
	-25
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	7325
	STC SAVE
	LDA SAVE
	ADA I
	-1
	STC FIRST
	JMP GETAMP
SERVJ,	SET I LETNUM
	1
	LDA I 
	JMP JRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
JRTN,	AZE
	JMP .+5
	LDA I
	7425
	STC FIRST
	JMP GETFRQ
	ADA I
	-25
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	7300
	STC SAVE
	LDA SAVE
	ADA I
	-1
	STC FIRST
	JMP GETAMP
SERVW,	SET I LETNUM/WRITE ON TAPE
	1           /ROUTINE.
	LDA I
	JMP WRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
WRTN,	ADA I
	-1000
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	5000 
	STC .+2
	0710/=RDC
ADDRES,	0
	LDA
	6400
	ADA I
	-2000
	AZE I
	JMP QUEST
WRITE,	LDA
	ADDRES
	ADA I
	2000
	STC .+2
	0714/=WRC
	0
	JMP HISTO
SERVR,	SET I LETNUM/READ FROM TAPE
	1           /ROUTINE.
	LDA I
	JMP RRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
RRTN,	ADA I
	7000
	STC .+2
	0710        /=RDC
	0
	JMP HISTO
SERVP,	CLR        /ROUTINE STOPS DOT
	SET HORIZ  /AT 1ST LOCATION
	START        /TO BEGIN PLOT.
	DIS HORIZ
	SNS 1
	JMP .-2
	JMP HISTO
SERVT,	CLR
	LIF 1
	JMP TSERV
/DISPLAY "REPLACE?"
QUEST,	SET I DATA
	REPLCE-1
	SET I NUMBER
	-10
	SET I HORIZ
	240
	CLR
DSCHAR,	DSC I DATA
	SRO I
	2525
	JMP .-3
	XSK I NUMBER
	SKP
	JMP OVER
	DSC I
	0000
	JMP DSCHAR
OVER,	KST 
	JMP QUEST
	PDP
	PMODE
	KRB
	TLS
	LINC
	LMODE
	SAE I
	LR
	JMP HISTO
	JMP WRITE
REPLCE,	4477
	3146
	4577
	4145
	4477
	3044
	0177
	0301
	4477
	7744
	4136
	2241
	4577
	4145
	4000
	7055
MAX1,	0
MAX2,	0
MIN1,	0
MIN2,	0
TIME1,	0
TIME2,	0
TEMMAX,	0
TEMMIN,	0
PTIME1,	0
PTIME2,	0
DURATN,	0
MINMAX,	0
LAST,	0
BUFF,	0
MNUM,	0
FIRST,	0
START,	0
LENGTH,	0
CALBUF,	0
CALPLS,	0
STRNUM,	0
FIXNUM,	0
CLEAR,	0
ROTATE,	0
	SEGMNT 3
	*7200
	0
	0
	*7273
	2000
	*7300
	2000
	*7301
	7624
	7631
	7636
	7643
	7650
	7655
	7662
	7667
	7674
	7701
	7706
	7713
	7720
	7725
	7732
	7737
	7744
	7751
	7756
	7763
	7770
	*7326
	7453
	7460
	7465
	7472
	7477
	7504
	7511
	7516
	7523
	7530
	7535
	7542
	7547
	7554
	7561
	7566
	7573
	7600
	7605
	7612
	7617
	*7353
/LIMITS OF FREQUENCY CATEGORIES
/IN TERMS OF DURATION.
	1750
	764
	515
	372
	310
	247
	217
	157
	133
	115
	103
	73
	65
	63
	60
	53
	50
	45
	43
	40
	0
	*7400
	2000
	LMODE
	SEGMNT 1
	*2001
L I
	1
	ADM
	SCALE2
	CLR
	JMP HISTO
SERVO,	LDA I/ROUTIND RESETS SCALE.
&0340
	STA
	SCALE1
	STC SCALE2
	STC CLEAR
	JMP HISTO
SERVG,	JMP ERASE/NEW DATA W/O OLD.
SERVA,	JMP INITL/NEW DATA + OLD.
SERVC,	JMP BEGIN
ERASE,	SET I DATA/CLEARS OLD DATA
	7400
	CLR
	STA I DATA
	DJR
	XSK DATA
	JMP .-3
	JMP 0
/DECIMAL TO BINARY INTERPRETER.
SELEBT,	STC STRNUM
	ADD STRNUM
	ADA I
	-272
	APO I
	JMP DECBIN
	CLR
	ADD STRNUM
	ADA I
	-260
	AZE I
	JMP .+3
	APO
	JMP DECBIN
	XSK I TRACK4
	SKP
	JMP SESEND
	STA I DIGIT
	JMP HISTO
DECBIN,	PDP
	PMODE
	JMS CRLF
	LINC
	LMODE
	LDA   /HERE BEGINS DEC/BIN CONV.
	DIGIT
	ADA I
	-2
	STC DIGIT
	LDA DIGIT
	MUL I
	144
	ADM
	FIXNUM
	LDA I DIGIT
	MUL I
	12
	ADM
	FIXNUM
	LDA I DIGIT
	ADM
	FIXNUM
	SET I DIGIT
	7201
	SET I TRACK4
	-4
	SET I LETNUM
	1777
CHOOSE,	0
SERVI,	SET I LETNUM/HISTOGRAM SELECTION
	1           /ROUTINE.
	LDA I
	JMP IRTN
&STC CHOOSE
	STC FIXNUM
	JMP HISTO
IRTN,	AZE
 
	JMP .+5
	LDA I
	7400
	STC FIRST
	JMP GETFRQ
	ADA I
	-25
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	7325
	STC SAVE
	LDA SAVE
	ADA I
	-1
	STC FIRST
	JMP GETAMP
SERVJ,	SET I LETNUM
	1
	LDA I 
	JMP JRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
JRTN,	AZE
	JMP .+5
	LDA I
	7425
	STC FIRST
	JMP GETFRQ
	ADA I
	-25
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	7300
	STC SAVE
	LDA SAVE
	ADA I
	-1
	STC FIRST
	JMP GETAMP
SERVW,	SET I LETNUM/WRITE ON TAPE
	1           /ROUTINE.
	LDA I
	JMP WRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
WRTN,	ADA I
	-1000
	APO I
	JMP SESEND
	CLR
	ADD FIXNUM
	ADA I
	5000 
	STC .+2
	0710/=RDC
ADDRES,	0
	LDA
	6400
	ADA I
	-2000
	AZE I
	JMP QUEST
WRITE,	LDA
	ADDRES
	ADA I
	2000
	STC .+2
	0714/=WRC
	0
	JMP HISTO
SERVR,	SET I LETNUM/READ FROM TAPE
	1           /ROUTINE.
	LDA I
	JMP RRTN
	STC CHOOSE
	STC FIXNUM
	JMP HISTO
RRTN,	ADA I
	7000
	STC .+2
	0710        /=RDC
	0
	JMP HISTO
SERVP,	CLR        /ROUTINE STOPS DOT
	SET HORIZ  /AT 1ST LOCATION
	START        /TO BEGIN PLOT.
	DIS HORIZ
	SNS 1
	JMP .-2
	JMP HISTO
SERVT,	CLR
	LIF 1
	JMP TSERV
/DISPLAY "REPLACE?"
QUEST,	SET I DATA
	REPLCE-1
	SET I NUMBER
	-10
	SET I HORIZ
	240
	CLR
DSCHAR,	DSC I DATA
	SRO I
	2525
	JMP .-3
	XSK I NUMBER
	SKP
	JMP OVER
	DSC I
	0000
	JMP DSCHAR
OVER,	KST 
	JMP QUEST
	PDP
	PMODE
	KRB
	TLS
	LINC
	LMODE
	SAE I
	LR
	JMP HISTO
	JMP WRITE
REPLCE,	4477
	3146
	4577
	4145
	4477
	3044
	0177
	0301
	4477
	7744
	4136
	2241
	4577
	4145
	4000
	7055
MAX1,	0
MAX2,	0
MIN1,	0
MIN2,	0
TIME1,	0
TIME2,	0
TEMMAX,	0
TEMMIN,	0
PTIME1,	0
PTIME2,	0
DURATN,	0
MINMAX,	0
LAST,	0
BUFF,	0
MNUM,	0
FIRST,	0
START,	0
LENGTH,	0
CALBUF,	0
CALPLS,	0
STRNUM,	0
FIXNUM,	0
CLEAR,	0
ROTATE,	0
	SEGMNT 3
	*7200
	0
	0
	*7273
	2000
	*7300
	2000
	*7301
	7624
	7631
	7636
	7643
	7650
	7655
	7662
	7667
	7674
	7701
	7706
	7713
	7720
	7725
	7732
	7737
	7744
	7751
	7756
	7763
	7770
	*7326
	7453
	7460
	7465
	7472
	7477
	7504
	7511
	7516
	7523
	7530
	7535
	7542
	7547
	7554
	7561
	7566
	7573
	7600
	7605
	7612
	7617
	*7353
/LIMITS OF FREQUENCY CATEGORIES
/IN TERMS OF DURATION.
	1750
	764
	515
	372
	310
	247
	217
	157
	133
	115
	103
	73
	65
	63
	60
	53
	50
	45
	43
	40
	0
	*7400
	2000
	LMODE
	SEGMNT 1
	*2001
L3
	DCA DIVSOR
	JMS I DIVIDI
	TAD INTGR
	TAD INTGRS
	DCA INTGRS
	TAD INTGR
	JMS I BINDEC
	JMS OUTPUT
	TAD C256
	JMS TYPE
	TAD FRACTN
	TAD FRACTS
	DCA FRACTS
	SZL
	ISZ INTGRS
	CLL
	TAD FRACTN
	JMS I BNFRCI
	JMS I OUTFRI
MSPACE,	TAD M4
	DCA SPACE
	TAD C240
	JMS TYPE
	ISZ SPACE
	JMP .-3
	TAD I 11
	DCA DIVDND
	TAD DNMTOR
	DCA DIVSOR
	JMS I DIVIDI
	TAD INTGR
	JMS I BINDEC
	JMS OUTPUT
	TAD C256
	JMS TYPE
	TAD FRACTN
	JMS I BNFRCI
	JMS I OUTFRI
	ISZ COUNT
	JMP MSPACE
	TAD M5
	DCA COUNT
	ISZ TOTAL
	JMP MFREQ
	JMS CRLF
	JMS CRLF
	TAD M7
	DCA SPACE
	TAD C240
	JMS TYPE
	ISZ SPACE
	JMP .-3
	TAD M23
	DCA TOTAL
	TAD KEEP1
	DCA 10
	CLL
	TAD I 10
	ISZ TOTAL
	JMP .-2
	DCA DIVDND
	SZL
	RAL
	DCA MODE
	TAD INTGRS
	DCA DIVSOR
	JMS I DIVIDI
	TAD MODE
	SNA CLA
	JMP REGLAR
	TAD INTGR
	DCA INTGRS
	TAD FRACTN
	DCA FRACTS
	CLA CMA
	DCA DIVDND
	TAD DIVSOR
	CIA
	DCA DIVSOR
	JMS I DIVIDI
	TAD INTGR
	TAD INTGRS
	DCA INTGR
	TAD FRACTN
	TAD FRACTS
	DCA FRACTN
REGLAR,	TAD INTGR
	JMS I BINDEC
        JMS OUTPUT
	TAD C256
	JMS TYPE
	TAD FRACTN
	JMS I BNFRCI
	JMS I OUTFRI
	JMS CRLF
	JMS CRLF
	LINC
	LMODE
	JMP 0
	*1626
	0
	0
	0
	0
	0
	0
	PMODE
	PAGE 0
	*20
OUTPUT,	0               /FORMATS
	CLA CLL         /OUTPUT
	TAD LOC1        /FOR
	DCA LOCATE      /EACH
	TAD BUFF1       /NUMBER
	JMS TROUTN      /&
	TAD BUFF2       /ELIMINATES
	JMS TROUTN      /LEADING
	TAD BUFF3       /ZEROS
	JMS TROUTN
	TAD LOC2
	DCA LOCATE
	TAD BUFF4
	JMS TROUTN
	JMP I OUTPUT
TROUTN,	0
	SNA
	JMP I LOCATE
	DCA TEMP
	TAD LOC2
	DCA LOCATE
	TAD TEMP
NOSPCE,	TAD C260
	JMS TYPE
	JMP I TROUTN
SPCE,&TAD C240
	JMS TYPE
	JMP I TROUTN
TYPE,	0
	TSF	
	JMP .-1
	TLS
	CLA CLL
	JMP I TYPE
CRLF,	0
	CLA
	TAD K215
	JMS TYPE
	TAD K212
	JMS TYPE
	JMP I CRLF
LISN,	0
	KSF
	JMP .-1
	KRB
	TLS
	JMP I LISN
M25,	-25
M5,	-5
C7400,	7400
C7452,	7452
C7425,  7425
C7623,  7623
C240,	240
TOTAL,	0
COUNT,	0
TEMP,	0
M1750,	-1750
M144,	-144
M12,	-12
M7,	-7
C7,	7
K215,	215
K212,	212
C260,	260
LOCATE,	0
LOC1,	SPCE
LOC2,	NOSPCE
SPACE,	0
BUFF1,	0
BUFF2,	0
BUFF3,	0
BUFF4,	0
BINDEC,	200
K2,	2
K60,	60
K3777,	3777
INTGRS,	0
FRACTS,	0
K500,	500
K300,	300
CHOICE,	0
LABEL,	0
C777,	777
M23,	-23
C577,	577
KEEP1,	0
KEEP2,	0
DIVDND,	0
DNMTOR,	0
DIVIDI,	DIVIDE
INTGR,	0
C256,	256
FRACTN,	0
BNFRCI,	BINFRC
OUTFRI,	OUTFRC
DIVSOR,	0
C170,	170
C3,	3
C4,	4
M14,	-14
TALLY,	0
K5,	5
MTENTH,	-632
M100TH,	-51
M3,	-3
M4,	-4
MODE,	0
K3500,	3500
	PAGE 1
	*200
/BINARY TO DECIMAL CONVERTER.
BINDCE,	0
	DCA TEMP
	DCA BUFF1
	DCA BUFF2
	DCA BUFF3
	DCA BUFF4
	TAD TEMP
	SMA
	JMP .+10
	AND K3777   /TAKES CARE
	DCA TEMP    /OF TALLY
	TAD BUFF1   /IN
	TAD K2      /BIT
	DCA BUFF1   /0
	TAD K60
	JMP .-11
	DCA TEMP
	TAD TEMP
	TAD M1750
	SMA
	SKP
	JMP HUNDRD
	DCA TEMP
	TAD BUFF1
	IAC
	DCA BUFF1
	JMP BINDCE+6
HUNDRD,	CLA
	TAD TEMP
	TAD M144
	SMA
	SKP
	JMP TEN
	DCA TEMP
	TAD BUFF2
	IAC
	DCA BUFF2
	JMP HUNDRD
TEN,	CLA
	TAD TEMP
	TAD M12
	SMA
	SKP
	JMP ONE
	DCA TEMP
	TAD BUFF3
	IAC
	DCA BUFF3
	JMP TEN
ONE,	CLA
	TAD TEMP
	TAD M7
	SPA SNA
	JMP LESS7
	TAD BUFF4
	TAD C7
	DCA BUFF4
	JMP I BINDCE
LESS7,	CLA
	TAD TEMP
	DCA BUFF4
	JMP I BINDCE
	PAGE 2
	*400
DIVIDE,	0
	CLA CLL
	DCA INTGR
	DCA FRACTN
	DCA TEMP
	TAD DIVDND
	SNA CLA
	JMP I DIVIDE
	TAD DIVSOR
	SMA
	JMP .+6
	RAR CLL
	DCA DIVSOR
	TAD DIVDND
	RAR CLL
	DCA DIVDND
	CLA CLL
	TAD DIVSOR
	CIA
	DCA DIVSOR
	TAD M14
	DCA TALLY
CONTIN,	TAD DIVDND
	RAL
	SNL
	JMP .+3
	CLL
	ISZ TEMP
	DCA DIVDND
	TAD TEMP
	TAD DIVSOR
	SPA
	JMP .+3
	DCA TEMP
	ISZ INTGR
	CLA CLL
	ISZ TALLY
	SKP
	JMP RMNDER
	TAD TEMP
	RAL
	DCA TEMP
	TAD INTGR
	RAL
	DCA INTGR
	JMP CONTIN
RMNDER,	TAD M14
	DCA TALLY
	TAD TEMP
	RAL
	DCA TEMP
	TAD TEMP
	TAD DIVSOR
	SZL
	DCA TEMP
	CLA
	TAD FRACTN
	RAL
	DCA FRACTN
	ISZ TALLY
	JMP RMNDER+2
	JMP I DIVIDE
BINFRC,	0
	DCA TEMP
	DCA BUFF1
	DCA BUFF2
	TAD TEMP
	SMA
	JMP .+6
	AND K3777
	DCA TEMP
	TAD K5
	DCA BUFF1
	TAD TEMP
	TAD MTENTH
	SPA
	JMP HUNDTH
	DCA TEMP
	ISZ BUFF1
	JMP .-6
HUNDTH,	CLA
	TAD TEMP
	TAD M100TH
	SPA
	JMP I BINFRC
	DCA TEMP
	ISZ BUFF2
	JMP HUNDTH
OUTFRC,	0
	CLA CLL
	TAD BUFF1
	TAD C260
	JMS TYPE
	TAD BUFF2
	TAD C260
	JMS TYPE
	JMP I OUTFRC
	PMODE
	PAGE 3
	*600
	1
	3
	5
	7
	11
	13
	15
	20
	24
	30
	34
	40
	44
	47
	51
	54
	60
	64
	70
	PAGE 4
	*1000
	240
	260
	255
	240
	262
	240
	240
	240
	262
	255
	240
	264
	240
	240
	240
	264
	255
	240
	266
	240
	240
	240
	266
	255
	240
	268
	240
	240
	240
	268
	255
	261
	260
	240
	240
	261
	260
	255
	261
	262
	240
	240
	261
	262
	255
	261
	264
	240
	240
	261
	264
	255
	261
	268
	240
	240
	261
	268
	255
	262
	262
	240
	240
	262
	262
	255
	262
	266
	240
	240
	262
	266
	255
	263
	260
	240
	240
	263
	260
	255
	263
	264
	240
	240
	263
	264
	255
	263
	268
	240
	240
	263
	268
	255
	264
	260
	240
	240
	264
	260
	255
	264
	262
	240
	240
	264
	262
	255
	264
	266
	240
	240
	264
	266
	255
	265
	260
	240
	240
	265
	260
	255
	265
	264
	240
	240
	265
	264
	255
	265
	268
	240
	240
	265
	268
	255
	266
	262
	240
	240
	266
	262
	255
	240
	240
	240
	240


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