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

*20
	NOLIST
	SEGMNT 3
	*200
	JMP QAINIT
	TX
	ASW
	JMP QARFSH
	SNS 0
	JMP DD
CQ,	JMP QAINIT
	TY
	ASW
	JMP QARFSH
	LDH
	ASW+4000
	STH
	TX+4011
	JMP DECD
	STC U0
	LDH
	ASW+1
	STH
	TX+12
	JMP DECD
	STC U1
	LDH
	ASW+4001
	STH
	TX+4012
	JMP DECD
	STC U2
	LDH
	ASW+2
	STH
	TX+13
	JMP DECD
	STC U3
	JMP UAS
	STA
	MAX1+2000
	LDH
	ASW+3
	STH
	TX+4014
	JMP DECD
	STC U0
	LDH
	ASW+4003
	STH
	TX+15
	JMP DECD
	STC U1
	LDH
	ASW+4
	STH
	TX+4015
	JMP DECD
	STC U2
	LDH
	ASW+4004
	STH
	TX+16
	JMP DECD
	STC U3
	JMP UAS
	STA
	MIN2+2000
	LDH
	ASW+4005
	STH
	TX+17
	JMP DECD
	STC U0
	LDH
	ASW+6
	STH
	TX+4017
	JMP DECD
	STC U1
	LDH
	ASW+4006
	STH
	TX+20
	JMP DECD
	STC U2
	LDH
	ASW+7
	STH
	TX+4020
	JMP DECD
	STC U3
	JMP UAS
	STA
	MAX2+2000
	LDH
	ASW+10
	STH
	TX+22
	JMP DECD
	STC U0
	LDH
	ASW+4010
	STH
	TX+4022
	JMP DECD
	STC U1
	LDH
	ASW+11
	STH
	TX+23
	JMP DECD
	STC U2
	LDH
	ASW+4011
	STH
	TX+4023
	JMP DECD
	STC U3
	JMP UAS
	STA
	MIN3+2000
	LDH
	ASW+4012
	STH
	TX+4024
	JMP DECD
	STC U0
	LDH
	ASW+13
	STH
	TX+25
	JMP DECD
	STC U1
	LDH
	ASW+4013
	STH
	TX+4025
	JMP DECD
	STC U2
	LDH
	ASW+14
	STH
	TX+26
	JMP DECD
	STC U3
	JMP UAS
	STA
	MAX3+2000
	LDH
	ASW+15
	STH
	TX+4027
	JMP DECD
	STC U0
	LDH
	ASW+4015
	STH
	TX+30
	JMP DECD
	STC U1
	LDH
	ASW+16
	STH
	TX+4030
	JMP DECD
	STC U2
	LDH
	ASW+4016
	STH
	TX+31
	JMP DECD
	STC U3
	JMP UAS
	STA
	MIN4+2000
	LDH
	ASW+4017
	STH
	TX+32
	JMP DECD
	STC U0
	LDH
	ASW+20
	STH
	TX+4032
	JMP DECD
	STC U1
	LDH
	ASW+4020
	STH
	TX+33
	JMP DECD
	STC U2
	LDH
	ASW+21
	STH
	TX+4033
	JMP DECD
	STC U3
	JMP UAS
	STA
	MAX4+2000
DD,	LIF 2
	JMP 1000
DECD,	STA I
UT,	0
	BCL I
	17
	SAE I
	60
	JMP CQ
	LDA
	UT
	BCL I
	60
	JMP
UAS,	LDA I
U0,	0
	MUL I
	12
	ADD U1
	MUL I
	12
	ADD U2
	STA
	UT
	ADA I
	3463
	LDA
	UT
	MUL I
	12
	FLO I
	ADD UFK
	ADD U3
	JMP
UFK,	4000
U1,	0
U2,	0
U3,	0
TX,	TEXT ZPERIODS SET TO:
	1-0980
	1019-1244
	1245-1470
	1529-1630
	SET RS0 TO PRINT AVERAGES
	SET SS0 TO RESET PERIODS
	SET SS1 FOR 75 TRIAL AVERAGES\Z
TY,	TEXT ZMAX1=<4
	MIN2=<4
	MAX2=<4
	MIN3=<4
	MAX3=<4
	MIN4=<4
	MAX4=<4\Z
ASW,	0
	NOLIST
	PMODE
	*12
NSA,	0
	0
	0
	*16
NSB,	0
	0
	0
NSSA,	0
	0
	0
NSSB,	0
	0
	0
MIN4,	2771
MAX3,	2676
MIN3,	2335
MAX2,	2334
MIN2,	1773
MAX1,	1724
FC5,	12
	3720
	0
	*64
MAX4,	3136
W1,	27
	0
	0
W2,	27
	0
	0
W3,	27
	0
	0
W4,	27
	0
	0
S1,	0
	0
	0
S2,	0
	0
	0
S3,	0
	0
	0
S4,	0
	0
	0
SX1,	0
	0
	0
SX2,	0
	0
	0
SX3,	0
	0
	0
SX4,	0
	0
	0
SX5,	0
	0
	0
SX6,	0
	0
	0
SXX1,	0
	0
	0
SXX2,	0
	0
	0
SXX3,	0
	0
	0
SXX4,	0
	0
	0
SXX5,	0
	0
	0
SXX6,	0
	0
	0
F25,	5
	3100
	0
FC1,	0
	3727
	0244
FC2,	7776
	3473
	3106
FC3,	7776
	3473
	3106
FC4,	7775
	3207
	1260
	*40
EX1,	0
AC1H,	0
AC1L,	0
OVER1,	0
EXP,	0
HORD,	0
LORD,	0
OVER2,	0
EXP1,	0
QUOL,	0
	*61
FLAG,	0
	5
	*5
	2400
	2200
	0600
	*44
EXPONT,	0
HORDER,	0
LORDER,	0
	*52
FPAC1,	0
	0
	0
SWIT1,	0
SWIT2,	0
CHAR,	0
DSWIT,	0
	*1767
PRCHAR,	0
	TAD SWIT2
	SNA CLA
	JMP I PRCHAR
	TAD LFED
	JMS I OPUT
	JMP I PRCHAR
OPUT,	OUT
LFED,	0212
	*600
/FLOATING POINT ROUTINE
/LINE 622-2770   
/IN 600-2764
	NOLIST
FPNT,	0
	CLA CLL
	DCA OVER1
	DCA OVER2
	TAD I FPNT
	DCA JUMP
	TAD JUMP
	AND PAGENO
	SNA CLA
	JMP .+3
	TAD MASK5
	AND FPNT
	DCA ADDR
	TAD MASK7
	AND JUMP
	TAD ADDR
	DCA ADDR
	TAD INDRCT
	AND JUMP
	SNA CLA
	JMP LOOPO1
	TAD I ADDR
	DCA ADDR
LOOPO1,	ISZ FPNT
	TAD I ADDR
	DCA EX1
	TAD ADDR
	DCA SAVE
	ISZ SAVE
	TAD I SAVE
	DCA AC1H
	ISZ SAVE
	TAD I SAVE
	DCA AC1L
	TAD JUMP
	CLL RTL
	RTL
	AND MASK3
	TAD TABLE
	DCA JUMP2
	TAD I JUMP2
	DCA JUMP2
	JMP I JUMP2
JUMP,	0
JUMP2,	0
GO2,	0
ADDR,	0
SAVE,	0
MASK3,	0017
MASK5,	7600
MASK7,	0177
PAGENO,	0200
INDRCT,	0400
TABLE,	.+1
	EXIT
	FLAD
	FLSU
	FLMY
	FLDV
	FLGT
	FLPT
	NORF
FLGT,	TAD EX1
	DCA EXP
	TAD AC1H
	DCA HORD
	TAD AC1L
	DCA LORD
	JMP FPNT+1
FLPT,	TAD EXP
	DCA I ADDR
	ISZ ADDR
	TAD HORD
	DCA I ADDR
	ISZ ADDR
	TAD LORD
	DCA I ADDR
	JMP FPNT+1
FLAD,	JMS I ALGN
	JMP FPNT+1
	JMS I UNORM
	CLL
	TAD OVER1
	TAD OVER2
	DCA OVER2
	RAL
	TAD AC1L
	TAD LORD
	DCA LORD
	RAL
	TAD AC1H
	TAD HORD
	DCA HORD
	JMS I NORM
	JMP FPNT+1
FLSU,	JMS I OPMINS
	JMP FLAD
OPMINS,	MINUS2
EXIT,	TAD JUMP
	AND MASK3
	SNA
	JMP I FPNT
	TAD ACON6
	DCA JUMP2
	TAD I JUMP2
	DCA JUMP2
	TAD FPNT
	DCA GO2
	JMS I JUMP2
	TAD GO2
	DCA FPNT
	JMP FPNT+1
ACON6,	TABLE6-1
FLMY,	CLA IAC
	TAD EX1
	TAD EXP
	DCA EXP
	JMS I MULT
	JMP FPNT+1
MULT,	DMULT
NORM,	DNORM
ALGN,	ALIGN
UNORM,	DUNORM
NORF,	JMS I NORM
	JMP FPNT+1
	*1000
ACMINS,	0
	CLL CLA
	TAD OVER2
	CMA IAC
	DCA OVER2
	TAD LORD
	CMA
	SZL
	CLL IAC
	DCA LORD
	TAD HORD
	CMA
	SZL
	CLL IAC
	DCA HORD
	JMP I ACMINS
ALIGN,	0
	TAD HORD
	SZA CLA
	JMP .+4
	TAD LORD
	SNA CLA
	JMP NOHERE
	TAD AC1H
	SZA CLA
	JMP .+4
	TAD AC1L
	SNA CLA
	JMP I ALIGN
	TAD EX1
	CMA IAC
	TAD EXP
	SNA
	JMP DONE
	SMA
	CMA IAC
	DCA AMOUNT
	TAD AMOUNT
	TAD TEST2
	SMA CLA
	JMP .+6
	JMS OUTGO
	SZL
	TAD TAG2
	TAD TAG1
	JMP NOGO
	JMS OUTGO
	SNL
	TAD TAG2
	TAD TAG1
	DCA TEST3
	TAD AMOUNT
	CMA IAC
	TAD I TEST3
	DCA I TEST3
	ISZ TEST3
	TAD TEST3
	DCA TEST4
	ISZ TEST4
	TAD TEST4
	DCA TEST5
	ISZ TEST5
SHIFT,	CLL
	TAD I TEST3
	SPA
	CML
	RAR
	DCA I TEST3
	TAD I TEST4
	RAR
	DCA I TEST4
	TAD I TEST5
	RAR
	DCA I TEST5
	ISZ AMOUNT
	JMP SHIFT
DONE,	ISZ ALIGN
	JMP I ALIGN
OUTGO,	0
	TAD EX1
	CMA IAC
	TAD EXP
	RAL
	CLA
	JMP I OUTGO
NOGO,	DCA TEST3
	TAD I TEST3
	DCA EXP
	ISZ TEST3
	TAD I TEST3
	DCA HORD
	ISZ TEST3
	TAD I TEST3
	DCA LORD
	JMP I ALIGN
NOHERE,	TAD EX1
	DCA EXP
	JMP DONE
AMOUNT,	0
TEST2,	0030
TEST3,	0
TEST4,	0
TEST5,	0
TAG1,	EXP
TAG2,	EX1-EXP
RETN2,	FPNT+1
ERROR1,	TAD GOOF
	DCA EXP
	TAD GOOF
	DCA HORD
	CMA
	DCA LORD
	ISZ FLAG
	JMP I RETN2
GOOF,	3777
SQUARE,	0
	JMS I 0007
	FPUT FPAC1
	FMPY FPAC1
	FEXT
	JMP I SQUARE
EXIT6,	0
	JMP I EXIT6
	*1200
DIVI,	0
	CLA CLL
	TAD HORD
	SPA
	CLL CML
	RAR
	DCA HORD
	TAD LORD
	RAR
	DCA LORD
	TAD OVER2
	RAR
	DCA OVER2
	CLL
	ISZ EXP
	NOP
	JMP I DIVI
DMULT,	0
	CLA CLL
	TAD SMACLA
	DCA SNSWIT
	JMS SIGN
	TAD AC1L
	DCA I MP2PT
	TAD LORD
	JMS I MP4PT
	CLA
	TAD I MP5PT
	DCA OVER2
	TAD HORD
	DCA I MP2PT
	TAD AC1L
	JMS I MP4PT
	TAD OVER2
	DCA OVER2
	RAL
	TAD I MP5PT
	DCA D
	RAL
	DCA KEEP
	TAD AC1H
	DCA I MP2PT
	TAD LORD
	JMS I MP4PT
	TAD OVER2
	DCA OVER2
	RAL
	TAD I MP5PT
	TAD D
	DCA D
	RAL
	TAD KEEP
	DCA KEEP
	TAD HORD
	DCA I MP2PT
	TAD AC1H
	JMS I MP4PT
	TAD D
	DCA LORD
	RAL
	TAD I MP5PT
	TAD KEEP
	DCA HORD
	JMS I NORMF
	DCA OVER2
	ISZ SGN
	JMP I DMULT
	JMS I MINS
	JMP I DMULT
FLDV,	TAD AC1H
	SZA CLA
	JMP .+4
	TAD AC1H
	SNA CLA
	JMP I ERROR
	TAD EX1
	CMA IAC
	TAD EXP
	IAC
	DCA EXP
	TAD SPACLA
	DCA SNSWIT
	JMS SIGN
	JMS I DIVIDE
	TAD I MP5PT
	TAD AC1H
	SZL CLA
	IAC
	DCA AC1L
	DCA AC1H
	ISZ SGN
	JMS I MINS
	JMP I .+1
	FLAD+2
SIGN,	0
	TAD REST
	DCA SGN
	TAD HORD
	SMA CLA
	JMP .+3
	JMS I MINS
	ISZ SGN
	TAD AC1H
SNSWIT,	SMA CLA
	JMP I SIGN
	JMS I MINS2
	ISZ SGN
	NOP
	JMP I SIGN
MP4PT,	MP4
MP2PT,	MP2
MP5PT,	MP5
NORMF,	DNORM
DIVIDE,	DUBDIV
SPACLA,	SPA CLA
SMACLA,	SMA CLA
RETURN,	FPNT+1
SGN,	0
REST,	7776
D,	0
KEEP,	0
MINS2,	MINUS2
RAR2,	DIV2
MINS,	ACMINS
ERROR,	ERROR1
	*1400
MINUS2,	0
	CLA CLL
	TAD OVER1
	CMA IAC
	DCA OVER1
	TAD AC1L
	CMA
	SZL
	CLL IAC
	DCA AC1L
	TAD AC1H
	CMA 
	SZL
	CLL IAC
	DCA AC1H
	JMP I MINUS2
DIV2,	0
	CLA CLL
	TAD AC1H
	SPA
	CLL CML
	RAR
	DCA AC1H
	TAD AC1L
	RAR
	DCA AC1L
	TAD OVER1
	RAR
	DCA OVER1
	CLL
	JMP I DIV2
MP4,	0
	DCA MP1
	DCA MP5
	TAD THIR
	DCA MP3
	CLL
	TAD MP1
	RAR
	DCA MP1
	TAD MP5
	SNL
	JMP .+3
	CLL
	TAD MP2
	RAR
	DCA MP5
	ISZ MP3
	JMP MP4+6
	TAD MP1
	RAR
	CLL
	JMP I MP4
MP5,	0
MP1,	0
MP3,	0
THIR,	7764
MP2,	0
DUBDIV,	0
	CLA CLL
	DCA QUOL
	TAD MIF
	DCA MP3
	JMP DVX
DV3,	TAD LORD
	RAL
	DCA LORD
	TAD HORD
	RAL
	DCA HORD
DVX,	TAD AC1L
	TAD LORD
	DCA MP2
	RAL
	TAD HORD
	TAD AC1H
	SNL
	JMP DV2-1
	DCA HORD
	TAD MP2
	DCA LORD
	CLA
DV2,	TAD QUOL
	RAL
	DCA QUOL
	TAD OVER2
	RAL
	DCA OVER2
	ISZ MP3
	JMP DV3
	TAD QUOL
	DCA LORD
	TAD HORD
	CLL RTL
	DCA MP5
	TAD OVER2
	DCA HORD
	DCA OVER2
	TAD MP5
	JMP I DUBDIV
MIF,	7751
TABLE6,	SQUARE
	SQROOT
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
	EXIT6
DUNORM,	0
	JMS DIV2
	JMS I RAR1
	ISZ EX1
	NOP
	JMP I DUNORM
RAR1,	DIVI
	*1600
DNORM,	0
	CLA CLL
	DCA AMT1
	DCA SIGN1
	TAD HORD
	SPA
	ISZ SIGN1
	SZA CLA
	JMP GO6
	TAD LORD
	SZA CLA
	JMP GO6
	TAD OVER2
	SNA CLA
	JMP EXIT2
GO6,	TAD SIGN1
	SZA CLA
	JMS I NEG
LOP,	TAD HORD
	RAL CLL
	SPA CLA
	JMP EXIT1
	TAD OVER2
	CLL RAL
	DCA OVER2
	TAD LORD
	RAL
	DCA LORD
	TAD HORD
	RAL
	DCA HORD
	ISZ AMT1
	JMP LOP
EXIT1,	TAD AMT1
	CMA IAC
	TAD EXP
	DCA EXP
	TAD SIGN1
	SZA CLA
	JMS I NEG
	JMP I DNORM
EXIT2,	DCA EXP
	JMP I DNORM
NEG,	ACMINS
SIGN1,	0
AMT1,	0
SQROOT,	0
	DCA FLAG1
	JMS I 007
	FPUT FPAC1
	FEXT
	TAD HORD
	SPA CLA
	JMP SQEND1
	TAD EXP
	CLL
	SPA
	CML
	RAR
	DCA ITER1
	SZL
	ISZ ITER1
	NOP
	TAD SQCON1
	DCA ITER1+1
	DCA ITER1+2
	TAD FPAC1+1
	SZA CLA
	JMP CLCU
	TAD FPAC1+2
	SNA CLA
	JMP SQEND
CLCU,	JMS I 0007
	FGET FPAC1
	FDIV ITER1
	FADD ITER1
	FEXT
	CLA CMA
	TAD EXP
	DCA EXP
	TAD EXP
	CMA IAC
	TAD ITER1
	SZA CLA
	JMP ROOTGO
	TAD HORD
	CMA IAC
	TAD ITER1+1
	SZA CLA
	JMP ROOTGO
	TAD LORD
	CMA IAC
	TAD ITER1+2
	SMA
	CMA IAC
	IAC
	SPA CLA
	JMP ROOTGO
	TAD FLAG1
	DCA FLAG
	JMP I SQROOT
ROOTGO,	JMS I 0007
	FPUT ITER1
	FEXT
	JMP CLCU
SQEND1,	JMS I NEG
	ISZ FLAG1
	JMP SQROOT+2
SQEND,	DCA EXP
	JMP I SQROOT
ITER1,	0
	0
	0
SQCON1,	3015
FLAG1,	0
	*2000
DECONV,	0
	CLA
	DCA HORDER
	DCA LORDER
	DCA SIGNNN
	DCA DNUMBR
	JMS INPUT
	TAD PLUS
	SNA
	JMP DECON
	TAD MINUS
	SZA
	JMP .+4
	CLA CMA
	DCA SIGNNN
DECON,	JMS INPUT
	CLA
	TAD CHAR
	TAD MIN9
	SMA
	JMP I DECONV
	TAD PLUS12
	SPA
	JMP I DECONV
	DCA DIGIT
	TAD HORDER
	AND MASK
	SZA
	JMP DECON
	ISZ DSWIT
	ISZ DNUMBR
	JMS MULT10
	JMP DECON
MULT10,	0
	TAD LORDER
	DCA LTEMP
	TAD HORDER
	DCA HTEMP
	DCA REMAIN
	JMS MULT2
	JMS MULT2
	JMS DUBLAD
	JMS MULT2
	TAD DIGIT
	DCA LTEMP
	DCA HTEMP
	JMS DUBLAD
	TAD REMAIN
	JMP I MULT10
LTEMP,	0
HTEMP,	0
DIGIT,	0
REMAIN,	0
SIGNNN,	0
DNUMBR,	0
MULT2,	0
	CLA CLL
	TAD LORDER
	RAL
	DCA LORDER
	TAD HORDER
	RAL
	DCA HORDER
	TAD REMAIN
	RAL
	DCA REMAIN
	JMP I MULT2
DUBLAD,	0
	CLA CLL
	TAD LORDER
	TAD LTEMP
	DCA LORDER
	RAL
	TAD HORDER
	TAD HTEMP
	DCA HORDER
	RAL
	TAD REMAIN
	DCA REMAIN
	JMP I DUBLAD
MSIGN,	0
	CLA CLL
	ISZ SIGNNN
	JMP I MSIGN
	TAD LORDER
	CMA IAC
	DCA LORDER
	TAD HORDER
	CMA
	SZL
	IAC
	DCA HORDER
	JMP I MSIGN
MINUS,	253-255
PLUS,	-253
MIN9,	-272
PLUS12,	272-260
MASK,	7600
INPUT,	0
	CLA
	KSF
	JMP .-1
	KRB
	DCA CHAR
	TAD CHAR
	JMS I OUTPUT
	TAD CHAR
	SNA
	JMP INPUT+1
	TAD MRBOUT
	SNA
	JMP I RESTRT
	TAD MINCR
	SNA CLA
	JMS I PRINT
	TAD CHAR
	JMP I INPUT
PRINT,	PRCHAR
OUTPUT,	OUT
RESTRT,	FLINTP+1
MRBOUT,	-377
MINCR,	377-215
	*2200
FLOUTP,	0
	JMS I 2377
	JMS 2217
	TAD 2324
	JMS I 2376
	JMS OUT
	JMS I FEXPPT
	CLA
	SNA CLA
	JMP I FLOUTP
	TAD CARRTN
	JMS OUT
	TAD LNFEED
	JMS OUT
	JMP I FLOUTP
FOUTCN,	0
	CLA CLL
	TAD HORDER
	SPA CLA
	CLA CML
	TAD SPLUS
	SZL
	TAD SMINUS
	DCA I 15
	NOP
	NOP
	NOP
	CLA CLL
	TAD HORDER
	SMA CLA
	JMP FGO1
	CMA
	DCA I SNPT
	JMS I MSNPT
FGO1,	CLA CMA
	TAD EXPONT
	DCA EXPONT
	DCA BEXP
FGO2,	TAD EXPONT
	SMA
	JMP FGO3
	TAD FOUR
	SMA CLA
	JMP FGO4
	JMS I 7
	FMPY I TENPT
	FEXT
	CLA CMA
	TAD BEXP
	DCA BEXP
	JMP FGO2
FGO3,	JMS I 7
	FMPY CCC10
	FEXT
	ISZ BEXP
	JMP FGO2
FGO4,	DCA I DPT
	JMS I M2PT
	JMS I M10PT
	SKP
FGO5A,	JMS DIVTWO
	ISZ EXPONT
	JMP FGO5A
	SNA
	JMP FGO7
FGO6,	DCA I 15
	TAD MINUS7
	DCA EXPONT
FGO6A,	JMS I M10PT
	DCA I 15
	ISZ EXPONT
	JMP FGO6A
	JMP I FOUTCN
FGO7,	CLA CMA
	TAD BEXP
	DCA BEXP
	TAD HORDER
	SZA CLA
	JMP .+4
	TAD LORDER
	SNA CLA
	DCA BEXP
	CLA CMA
	JMP FGO6+1
BEXP,	0
MINUS7,	7772
FOUR,	0004
SPLUS,	240
SMINUS,	255-240
PERIOD,	256
MSNPT,	MSIGN
SNPT,	SIGNNN
DPT,	DIGIT
M10PT,	MULT10
M2PT,	MULT2
FEXPPT,	FEXC
TENPT,	TEN
CARRTN,	0215
LNFEED,	0212
CHE,	305
OUT,	0
	TSF
	JMP .-1
	TLS
	CLA
	JMP I OUT
OUTDG,	0
	TAD C260
	JMS OUT
	JMP I OUTDG
C260,	0260
DIVTWO,	0
	CLL RAR
	DCA OUT
	TAD HORDER
	RAR
	DCA HORDER
	TAD LORDER
	RAR
	DCA LORDER
	TAD OUT
	JMP I DIVTWO
CCC10,	7775
	3146
	3147
	0
	TGO
	EDIT
	*2400
FLINTP,	0
	CLA CMA
	DCA PRSW
	DCA DSWIT
	JMS I DPCVPT
	CLA
	TAD CHAR
	TAD PER
	SZA CLA
	JMP FIGO1
	TAD PRSW
	SNA CLA
	JMP FIGO2
	DCA I DPN
	DCA PRSW
	JMP I DPCSPT
FIGO1,	TAD PRSW
	SNA CLA
FIGO2,	TAD I DPN
	CMA IAC
	DCA SEXP
	JMS I MSGNPT
FIGO3,	TAD C27
	DCA EXPONT
	JMS I 7
	FNOR
	FPUT FPAC1
	FEXT
	TAD CHAR
	TAD MINUSE
	SZA CLA
	JMP ENDFI
	JMS I DPCVPT
	JMS I MSGNPT
	TAD HORDER
	SPA
	IAC
	SZA CLA
	JMP EXCESS
	TAD LORDER
	TAD SEXP
	DCA SEXP
ENDFI,	JMS I 7
	FGET FPAC1
	FEXT
	TAD SEXP
	SNA
	JMP I FLINTP
	SMA CLA
	JMP FIGO4
	JMS I 7
	FMPY I PCPC10
	FEXT
	ISZ SEXP
	JMP ENDFI+3
	JMP I FLINTP
FIGO4,	JMS I 7
	FMPY TEN
	FEXT
	CLA CMA
	TAD SEXP
	DCA SEXP
	JMP ENDFI+3
EXCESS,	TAD C3777
	DCA EXPONT
	TAD C3777
	DCA HORDER
	JMP I FLINTP
TEN,	0004
	2400
	0000
PCPC10,	CCC10
MINUSE,	-305
C27,	0027
PER,	-256
PRSW,	0
SEXP,	0
C3777,	3777
DPCVPT,	DECONV
DPCSPT,	DECON
MSGNPT,	MSIGN
DPN,	DNUMBR
FEXC,	0
	CLA CLL
	TAD EXPONT
	SPA
	CMA IAC CML
	DCA EXPONT
	TAD C253
	SZL
	TAD C255
	JMS I DGPT
	DCA HORDER
	TAD EXPONT
	ISZ HORDER
	TAD M144
	SMA
	JMP .-3
	TAD C144
	DCA EXPONT
	CMA
	TAD HORDER
	SZA
	JMS I DGPT
	DCA HORDER
	TAD EXPONT
	ISZ HORDER
	TAD M12
	SMA
	JMP .-3
	TAD C12
	DCA LORDER
	CLA CMA
	TAD HORDER
	JMS I DGPT
	TAD LORDER
	JMS I DGPT
	JMP I FEXC
C253,	0253-260
C255,	255-253
M144,	7634
C144,	0144
M12,	7766
C12,	0012
DGPT,	OUTDG
	FADD=1000
	FSUB=2000
	FMPY=3000
	FDIV=4000
	FGET=5000
	FPUT=6000
	FNOR=7000
	FEXT=0000
	SQRE=1
	SQRT=2
	*2600
EDIT,	0
	DCA SAC
	TAD 62
	CMA IAC
	DCA COUNT1
	TAD M8
	DCA COUNT2
	TAD SAD1
	DCA 15
	JMP I EDIT
TGO,	0
	DCA 44
	TAD SAD1
	DCA 15
	TAD I 15
	JMS I OUT1
	TAD 62
	SNA CLA
	JMP EFORM
	ISZ TGO
	ISZ TGO
TRYAGN,	TAD 44
	SPA
	JMP MINSS
	TAD SAC
	CMA IAC
	TAD 62
	SPA
	JMP ERR
	SNA
	JMP G01
	CMA IAC
	DCA CNTR
	TAD SPCE
	JMS OUTT
	ISZ CNTR
	JMP .-3
G01,	TAD 44
	CIA
	SNA
	JMP G02
	DCA CNTR
	JMS GET
	JMS OUTT
	ISZ CNTR
	JMP .-3
G02,	TAD SAC
	SNA CLA
	JMP .+3
	TAD PERID
	JMS I OUT1
	JMS GET
	JMS OUTT
	JMP .-2
ERR,	TAD SAC
	SMA CLA
	JMP ERGO
	TAD CHX
	JMS OUTT
	JMP .-2
ERGO,	CLA CMA
	TAD SAC
	DCA SAC
	JMP TRYAGN
MINSS,	CLA
	TAD 62
	CIA
	TAD SAC
	SNA
	JMP G03
	DCA CNTR
	TAD SPCE
	JMS OUTT
	ISZ CNTR
	JMP .-3
G03,	TAD PERID
	JMS I OUT1
	JMS OUTT
	ISZ 44
	JMP .-2
	JMP G02+5
OUTT,	0
	JMS I OUT2
	ISZ COUNT1
	JMP I OUTT
	TAD CHEE
	JMP I TGO
EFORM,	JMS I OUT2
	TAD PERID
	JMS I OUT1
	TAD M7
	DCA COUNT1
	JMS GET
	JMS OUTT
	JMP .-2
GET,	0
	ISZ COUNT2
	JMP .+4
	CLA CMA
	DCA COUNT2
	JMP I GET
	TAD I 15
	JMP I GET
COUNT1,	0
COUNT2,	0
CNTR,	0
SAC,	0
SPCE,	240-260
PERID,	256
CHEE,	305
CHX,	330-260
M8,	-10
M7,	-7
OUT1,	2344
OUT2,	2352
SAD1,	BUFFER-1
BUFFER,	0
	LIST
/QANDA NOT LISTED
/LINES 2770-3650
/IN 7000-7777
	*7000
	NOLIST
	LMODE
QAINIT,	LDA I
2
ADD
STA I
QAB,	0
ADD QAL+3
STC 1
LDA 1
ADD QAQ+1
STC QAG-3
LDA I 1
STC QARFSH-1
STC 6
QACA,SET 3
QARFSH-1
SET 4
QAG-3
SET 1
4
JMP QAT
16
LDH I 4
QAD,	JMP QAO
JMP .+6
JMP QAE
SAE I
43
JMP QAD
JMP QACA+4
STH 3
LDH I 4
ADA I
-60
COM
STC 6
STH I 3
XSK I 6
JMP .-2
LDH I 3
JMP QAD
QAE,	STH 3
SET I 4
0
QARFSH,	LDA I
277	/VERT COORD, TOP LINE
STC QAH-1
SET I 3
0
SET 5
QARFSH-1
QAG,	SET 1
3
JMP QAT
JMP .+7
LDH I 3
LDA I
BCL I
STC QAM+2
ADD QAW
JMP QAM
LDH I 3
LDA I
BSE I
STC QAM+2
ADD QAW+1
QAM,	STC QAP+3
MSC I 4
BSE I
200
MSC 4
SET I 1
100
LDA I
-40
ADM I
0
QAH,	LDH I 3
JMP QAO+1
JMP QAZ
JMP QAJ
SHD I
4300
JMP QAG
JMP QAP
JMP QAH
JMP QAP
SRO I
0
JMP QAF
QAI,	LDH I 5
JMP QAO+1
JMP QAH
JMP QAH
JMP QAI-4
QAJ,	JMP GETKBD
AZE I
JMP QAB
SET I 2
QAY
SHD 2
JMP QAK+4
SHD I 2
JMP QAN
XSK 6
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QAK
SHD I 2
JMP QACA
SHD I 2
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QARFSH
STC .+5
JMP QAO
JMP QAQ
JMP QAQ
LDA I
0
STH 4
JMP QARFSH
QAL,	LDH 4
JMP QAO+1
JMP QARFSH
-6002
LDH 2
SAE I
37
JMP QAQ
SET 5
4
SET 3
4
JMP .+2
LDH I 5
LDH I 3
JMP QAO+1
NOP
CLR
STH 5
AZE
JMP .-7
JMP QAQ
QAN,	XSK 6
JMP QAK+4
JMP QAO
JMP QARFSH
JMP QAE+1
JMP QAN+2
QAO,	LDH I 4
SHD I
7400
JMP
SAE I
34
XSK I
XSK I
JMP
QAP,	ROL 1
ADD QAX+4
STC 2
ADD QAU
ADD QAU
ADD 1
STC 1
ADD 5
COM
ADD 4
AZE
CLR
STC QAI-2
ADD QAH-1
DSC 2
DSC I 2
JMP
QAQ,	LDA I
-4000
ADM
4
JMP QARFSH
QAT,	LDH I 1
SHD I
600
JMP
SAE I
10
XSK I
XSK I
JMP
QAZ,	LDH I 3
LDA I
40
JMP QAI-4
QAK,	LDH I 4
AZE I
JMP QAQ
JMP QAX
LDA I
1
ADM
QAB
JMP QAB
QAV,	101
101
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741
41
4142
4076
1077
4324
177
301
3077
7730
3077
7706
4177
7741
4477
3044
4276
376
4477
3146
5121
4651
4040
4077
177
7701
176
7402
677
7701
1463
6314
	0770
	7007
4543
6151
4177
0
0
0
0
7741
QAY,	4543
7476
3634
3747
0
0
7500
0
7\0
70
QAX,	JMP QAO+1
JMP QAQ
JMP QAQ
JMP QARFSH
QAV
0
5166
526
0
0
3600
41
4100
36
2050
50
404
437
500
6
404
404
1
0
601
4030
4536
3651
2101
177
4523
2151
4122
2651
2414
477
5172
651
1506
4225
4443
6050
5126
2651
5122
3651
2200
0
4601
0
QAU,	2
0
1212
1212
QAW,	NOP
ADD QAU
4020
2055
QAF,	DSC I
6\0
JMP QAI
GETKBD,	LDA
0
STC QAEXIT+6
ADD 1
STC QAEXIT+3
ADD 2
STC QAEXIT+5
STC QAEXIT+1
KST
JMP
IOB
6036
STA I
QATY,	0
ADA I
-237
APO
JMP QACNTR
SET I 1
QACHAR-1
SET I 2
-7
LDA
QATY
SAE I 1
JMP .+2
JMP QAEXIT
XSK I 2
JMP .-4
ADA I
-337
APO
JMP QALEGL
SAE I 1
JMP .+7
LDA I
334
JMP QATPE
LDA I
37
JMP QAEXIT+2
SAE I 1
JMP QAEXIT
JMP QAEXIT+2
QALEGL,	LDA
QATY
JMP QATPE
ADD QATY
BCL I
7700
JMP QAEXIT+2
QACNTR,	SAE I
7755
JMP QACKLF
LDA I
43
STC QAEXIT+1
LDA I
215
JMP QATPE
LDA I
212
JMP QATPE
JMP QAEXIT
QACKLF,	SAE I
7752
JMP .+4
LDA I
45
JMP QACNTR+5
SAE I
7751
JMP QAEXIT
LDA I
47
JMP QAEXIT+2
QAEXIT,	LDA I
0
SET I 1
0
SET I 2
0
JMP
QATPE,	IOB
6046
LDA
0
STC .+4
IOB
6041
JMP .-2
JMP 0
QACHAR,	243
244
245
247
300
336
337
40
36
	LIST
/MAIN PROGRAM FOLLOWS
/LINES 3665-
/IN 4020-4777
/SOME SUBROUTINES IN 3000-3377
	SEGMNT 2
	*20
	LDF 0
	PDP
	PMODE
	STA
	DCA USEC
	JMP I ZB
ZB,	YB
	LMODE
ST,	LDA I
	7747
	STC C25
	LDA I
	7761
	STC USEC
	LDA I
	5
	STA
	F25+2000
	LDA I
	3100
	STA
	F25+2001
	SET I 16
	2777
	LIF 3
	JMP 200
TLP,	XSK I 16
	CLR
	ADD 16
	STC TPWD
	RDE 10
TPWD,	0
	SET I 15
	1376
LP,	XSK I 15
	SKP
	JMP TLP
	CLR
	ADD 15
	ADD AD
	STC IX
IX,	0
	PDP
	PMODE
	DCA T
NGR,	TAD T
	TAD M6654
	SZL CLA
	JMP I DNTST
	TAD MIN
	CIA
	TAD T
	SPA CLA
	JMP LPR
	TAD MAX
	CMA
	TAD T
	SMA CLA
	JMP NGP
	ISZ I GROUP
	JMP LPR
NGP,	TAD GROUP
	SNA
	JMP LPR
	TAD GJ
	DCA GJP
GJP,	0
	JMP G1
	JMP G2
	JMP G3
	DCA GROUP
	JMP NGR
G1,	TAD MIN2
	DCA MIN
	TAD MAX2
	DCA MAX
	ISZ GROUP
	JMP NGR
G2,	TAD MIN3
	DCA MIN
	TAD MAX3
	DCA MAX
	ISZ GROUP
	JMP NGR
G3,	TAD MIN4
	DCA MIN
	TAD MAX4
	DCA MAX
	ISZ GROUP
	JMP NGR
G0,	TAD MAX1
	DCA MAX
	IAC
	DCA GROUP
	DCA 1
	DCA 2
	DCA 3
	DCA 4
	IAC
	DCA MIN
LPR,	LINC
	LMODE
	JMP LP
DA,	A
USEC,	7761
GROUP,	0
MIN,	0
MAX,	0
T,	0
M6654,	1123
AD,	2001
DNTST,	NTST
	PMODE
GJ,	JMP GJP
	*4200
A,	TAD 1
	DCA W1+2
	TAD 2
	DCA W2+2
	TAD 3
	DCA W3+2
	TAD 4
	DCA W4+2
	JMS I 7
	FGET W1
	FNOR
	FDIV FC1
	FPUT S1
	FADD SX1
	FPUT SX1
	FGET S1
	SQRE
	FADD SXX1
	FPUT SXX1
	FGET W2
	FNOR
	FDIV FC2
	FPUT S2
	FADD SX2
	FPUT SX2
	FGET S2
	SQRE
	FADD SXX2
	FPUT SXX2
	FGET W3
	FNOR
	FDIV FC3
	FPUT S3
	FADD SX3
	FPUT SX3
	FGET S3
	SQRE
	FADD SXX3
	FPUT SXX3
	FGET W4
	FNOR
	FDIV FC4
	FPUT S4
	FADD SX4
	FPUT SX4
	FGET S4
	SQRE
	FADD SXX4
	FPUT SXX4
	FGET S2
	FSUB S1
	FPUT S2
	FADD SX5
	FPUT SX5
	FGET S2
	SQRE
	FADD SXX5
	FPUT SXX5
	FGET S3
	FSUB S1
	FPUT S3
	FADD SX6
	FPUT SX6
	FGET S3
	SQRE
	FADD SXX6
	FPUT SXX6
	FEXT
	JMS I DAT
	ISZ C25
	JMP I ALPR
	TLS
	TAD DM25
	DCA C25
	JMP I MNAU
DAT,	AT
C25,	0
DM25,	7747
ALPR,	G0
MNAU,	MAU
	*4400
MAU,	JMS I DCR
	JMS I STAT
	JMS I 7
	FGET XBAR
	FPUT TD
	FGET SIG
	FPUT TD1
	FGET SX2
	FPUT SX1
	FGET SXX2
	FPUT SXX1
	FEXT
	JMS I STAT
	JMS I 7
	FGET XBAR
	FPUT TD2
	FGET SIG
	FPUT TD3
	FGET SX3
	FPUT SX1
	FGET SXX3
	FPUT SXX1
	FEXT 
	JMS I STAT
	JMS I 7
	FGET XBAR
	FPUT TD4
	FGET SIG 
	FPUT TD5
	FEXT
	JMS RT
	JMS I DCR
	JMS I 7
	FGET SX4
	FPUT SX1
	FGET SXX4
	FPUT SXX1
	FEXT 
	JMS I STAT
	JMS I 7
	FGET SX5
	FPUT SX1
	FGET SXX5
	FPUT SXX1
	FEXT
	JMS I STAT
	JMS I 7
	FGET SX6
	FPUT SX1
	FGET SXX6
	FPUT SXX1
	FEXT
	JMS I STAT
	JMS RT1
	JMS I DCR
	CLA 
	TAD I NUC
	IAC
	SZA CLA
	JMP I DB
	JMP I NAU
RT,	0
	JMS I 7
	FGET TD3
	FADD TD1
	SQRT
	FPUT DMN
	FGET TD2
	FSUB TD
	FDIV DMN
	FEXT
	CLA STL IAC RAL
	JMS I 6
	JMP I RT
RT1,	0
	JMS I 7
	FGET TD5
	FADD TD1
	SQRT
	FPUT DMN
	FGET TD4
	FSUB TD
	FDIV DMN
	FEXT
	CLA STL IAC RAL
	JMS I 6
	JMP I RT1
MSP,	SP
NUC,	USEC
NAU,	AU
DB,	B
DCR,	CR
STAT,	OST
XBAR,	0
	0
	0
SIG,	0
	0
	0
DMN,	0
	0
	0
TD,	0
	0
	0
TD1,	0
	0
	0
TD2,	0
	0
	0
TD3,	0
	0
	0
TD4,	0
	0
	0
TD5,	0
	0
	0
	*4600
CR,	0
	CLA
	TAD S215
	JMS P
	CLA
	TAD S212
	JMS P
	JMP I CR
S215,	215
S212,	212
SP,	0
	CLA
	TAD S240
	JMS P
	JMS P
	JMS P
	JMP I SP
S240,	240
P,	0
	TSF
	JMP .-1
	TLS
	JMP I P
OST,	0
	CLL
	LAS
	RAL
	SNL
	JMP I OST
	JMS I 7
	FGET SX1
	FDIV F25
	FPUT XBAR1
	FEXT
	CLA STL IAC RAL
	JMS I 6
	JMS SP
	JMS I 7
	FGET SX1
	SQRE
	FPUT SX1
	FGET F25
	FMPY SXX1
	FSUB SX1
	FPUT SX1
	FGET F25
	FMPY F25
	FSUB F25
	FMPY F25
	FPUT SIG1
	FGET SX1
	FDIV SIG1
	FPUT SIG1
	SQRT
	FEXT
	CLA STL IAC RAL
	JMS I 6
	JMS SP
	CLA
MV1,	TAD XBAR1
	DCA I XBAR2
	ISZ MV1
	ISZ XBAR2
	ISZ N7
	JMP .-5
	TAD MV2
	DCA MV1
	TAD XBAR3
	DCA XBAR2
	TAD N7A
	DCA N7
	JMP I OST
N7,	-7
N7A,	-7
XBAR3,	XBAR
XBAR2,	XBAR
MV2,	TAD XBAR1
XBAR1,	0
	0
	0
SIG1,	0
	0
	0
YB,	DCA NSA
	DCA NSA+1
	DCA NSA+2
	DCA NTSTFL
	JMS I 7
	FGET NSA
	FPUT NSSA
	FPUT NSB
	FPUT NSSB
	FEXT
	JMS I CZ
B,	DCA SX1
	DCA SX1+1
	DCA SX1+2
	JMS I 7
	FGET SX1
	FPUT SX2
	FPUT SX3
	FPUT SX4
	FPUT SX5
	FPUT SX6
	FPUT SXX1
	FPUT SXX2
	FPUT SXX3
	FPUT SXX4
	FPUT SXX5
	FPUT SXX6
	FEXT
	ISZ I DUSEC
	JMP I BNGR
	LINC
	LMODE
	JMP ST
	PMODE
CZ,	CZE
DUSEC,	USEC
BNGR,	G0
NTST,	TAD NTSTFL
	SZA CLA
	JMP I BA
	IAC
	DCA NTSTFL
	JMP I BNGR
NTSTFL,	0
BA,	A
	*5000
	LMODE
	SNS 1
	JMP CA
	LDA I
	7
	STA
	F25+2000
	LDA I
	2260
	STA
	F25+2001
	LDA I
	7665
	STC C25
	LDA I
	7773
	STC USEC
CA,	LDA
	C25
	STC DM25
	PDP
	PMODE
	TAD MAX1
	DCA W1+2
	TAD MIN2
	CIA
	TAD MAX2
	IAC
	DCA W2+2
	TAD MIN3
	CIA
	TAD MAX3
	IAC
	DCA W3+2
	TAD MIN4
	CIA
	TAD MAX4
	IAC
	DCA W4+2
	JMS I 7
	FGET W1
	FNOR
	FDIV FC5
	FPUT FC1
	FGET W2
	FNOR
	FDIV FC5
	FPUT FC2
	FGET W3
	FNOR
	FDIV FC5
	FPUT FC3
	FGET W4
	FNOR
	FDIV FC5
	FPUT FC4
	FEXT
	LINC
	LMODE
	JMP TLP
	PMODE
TTS,	0
	JMS I 7
	FGET S2
	FADD S1
	FPUT S1
	FGET S3
	FADD S4
	FPUT S4
	FEXT
	JMP I TTS
	*3400
X1A,	0
	0
	0
X1B,	0
	0
	0
X2A,	0
	0
	0
X2B,	0
	0
	0
CZE,	0
	DCA NFL
	TAD DNCTR
	DCA NCTR
	TAD DNCTS
	DCA NCTS
	DCA X1A
	DCA X1A+1
	DCA X1A+2
	DCA X1A+3
	DCA X1A+4
	DCA X1A+5
	DCA X1A+6
	DCA X1A+7
	DCA X1A+10
	DCA X1A+11
	DCA X1A+12
	DCA X1A+13
	JMP I CZE
NFL,	0
NCTR,	0
NCTS,	0
DNCTR,	7665
DNCTS,	7437
AT,	0
	JMS I 7
	FGET S2
	FADD NSA
	FPUT NSA
	FGET S2
	SQRE
	FADD NSSA
	FPUT NSSA
	FGET S3
	FADD NSB
	FPUT NSB
	FGET S3
	SQRE
	FADD NSSB
	FPUT NSSB
	FEXT
	TAD NFL
	SZA CLA
	JMP ALT
	TAD X1A
	DCA S1
	TAD X1A+1
	DCA S1+1
	TAD X1A+2
	DCA S1+2
	TAD X1B
	DCA S4
	TAD X1B+1
	DCA S4+1
	TAD X1B+2
	DCA S4+2
	JMS I DTTS
	TAD S1
	DCA X1A
	TAD S1+1
	DCA X1A+1
	TAD S1+2
	DCA X1A+2
	TAD S4
	DCA X1B
	TAD S4+1
	DCA X1B+1
	TAD S4+2
	DCA X1B+2
	ISZ NCTR
	JMP I AT
	IAC
	DCA NFL
	JMP I AT
DTTS,	TTS
ALT,	TAD X2A
	DCA S1
	TAD X2A+1
	DCA S1+1
	TAD X2A+2
	DCA S1+2
	TAD X2B
	DCA S4
	TAD X2B+1
	DCA S4+1
	TAD X2B+2
	DCA S4+2
	JMS I DTTS
	TAD S1
	DCA X2A
	TAD S1+1
	DCA X2A+1
	TAD S1+2
	DCA X2A+2
	TAD S4
	DCA X2B
	TAD S4+1
	DCA X2B+1
	TAD S4+2
	DCA X2B+2
	ISZ NCTS
	JMP I AT
	DCA NFL
	JMP I AT
	*3600
AU,	TAD U375
	DCA W1+2
	TAD U225
	DCA W2+2
	TAD U150
	DCA W3+2
	JMS I 7
	FGET W1
	FNOR
	FPUT SX1
	FGET W2
	FNOR
	FPUT SX2
	FGET W3
	FNOR
	FPUT SX3
	FMPY SX2
	FMPY SX1
	FPUT SX4
	FEXT
	TAD I DX1A
	DCA S1
	TAD I DX1A1
	DCA S1+1
	TAD I DX1A2
	DCA S1+2
	TAD I DX2A
	DCA S4
	TAD I DX2A1
	DCA S4+1
	TAD I DX2A2
	DCA S4+2
	JMS AV
	TAD I DX1B
	DCA S1
	TAD I DX1B1
	DCA S1+1
	TAD I DX1B2
	DCA S1+2
	TAD I DX2B
	DCA S4
	TAD I DX2B1
	DCA S4+1
	TAD I DX2B2
	DCA S4+2
	JMS I 7
	FGET NSB
	FPUT NSA
	FGET NSSB
	FPUT NSSA
	FEXT
	JMS AV
	JMP I AW
AW,	YB
DX1A,	X1A
DX1A1,	X1A+1
DX1A2,	X1A+2
DX2A,	X2A
DX2A1,	X2A+1
DX2A2,	X2A+2
DX1B,	X1B
DX1B1,	X1B+1
DX1B2,	X1B+2
DX2B,	X2B
DX2B1,	X2B+1
DX2B2,	X2B+2
AV,	0
	JMS I 7
	FGET NSA
	SQRE
	FPUT NSA
	FGET SX1
	FMPY NSSA
	FSUB NSA
	FDIV SX4
	SQRT
	FPUT NSSA
	FGET S1
	FDIV SX3
	FPUT S1
	FGET S4
	FDIV SX2
	FSUB S1
	FDIV NSSA
	FEXT
	JMS I NCR
	CLA CLL IAC RTL
	JMS I 6
	JMS I NCR
	JMP I AV
NCR,	CR
U375,	567
U225,	341
U150,	226