
	.ABS
PINT=0
	.LOC	1
	DAC	PIHAC#
TRAP	JMP	SKPCHN
	.LOC	100
SKPCHN	ASF
	JMP	DHAND
	SCLF
	SKP
	JMP	CLMD
	KSF
	SKP
	JMP	%CTL
	TSF
	JMP	SKPCHN
	LAC	PIHAC
	JMP*	PINT
	.LOC	200
%CTL	JMS	READ
	SAD	(201
	JMP	%AN
	SAD	(210
	JMP	%HLT
	SAD	(203
	JMP	%CRLT
	SAD	(204
	JMP	%INIT
	SAD	(221
	JMP	%QCRLT
	SAD	(205
	JMP	%ERASE
	SAD	(224
	JMP	%TYPE
	SAD	(217
	JMP	PUNCH
	SAD	(211
	JMP	READTP
	SAD	(230
	JMP	%XCORR
	SAD	(232
	JMP	INTGT
	SAD	(215
	JMP	%COPY
	JMP	%CTL
CLMD	LAC	CLFLAG
	SZA
	JMP	%CRCT
	JMP	%CLOC
%CLOC	NDRR
	TAD	LIVE
	DAC	LIVE
CLOC	ISZ	REAL
	ISZ	CLCNT
	JMP	CONTIN
	LAC	(210
	JMP	%HLT
%CRCT	NDRR
	SZA
	JMP	CLOC
CRCT	ISZ*	EVEC
	SKP
	JMP	.-7
CONTIN	LAC	PIHAC
	ION
	JMP*	PINT
%AN	JMS	CTECH
	NDAN
	DZM	CFLAG
	JMP	DPY
%HLT	NDST
	JMP	.-1
	NDST
	JMP	.-1
	JMS	CTECH
	JMP	DPY
%INIT	JMS	CTECH
	CAF
	DZM	SFLAG
%READ	JMS	READ
	SAD	(307
	JMP	%GROUP
	SAD	(316
	JMP	%SELECT
	SAD	(326
	JMP	%GAIN
	SAD	(311
	JMP	%INT
	SAD	(323
	JMP	%SLIDE
	SAD	(223
	JMP	%START
	SAD	(220
	JMP	MPR
	SAD	(324
	JMP	%TIME
	SAD	(320
	JMP	%PIME
	SAD	(315
	JMP	%EXPAND
	JMP	%READ
INTGT	JMS	CTECH
	TLS+10
	LAC	INL
	TCA
	DAC	ZMSTRT#
	TAD	INU
	DAC	ZMCT#
	DZM	ZMTOT#
ZUM	LAC*	ZMSTRT
	TAD	ZMTOT
	DAC	ZMTOT
	ISZ	ZMSTRT
	ISZ	ZMCT
	JMP	ZUM
	JMS	CARR
	LAC	(323
	JMS	WRITE
	LAC	(325
	JMS	WRITE
	LAC	(315
	JMS	WRITE
	LAC	(250
	JMS	WRITE
	LAC	INL
	TAD	XLIST
	TCA
	JMS	%DIP
	LAC	(272
	JMS	WRITE
	LAC	INU
	TAD	XLIST
	TCA
	JMS	%DIP
	LAC	(251
	JMS	WRITE
	LAC	(275
	JMS	WRITE
	LAC	ZMTOT
	JMS	%DIP
	JMP	DPY
ASF=701601
TCF=700402
NDRR=701656
NDCN=701622
SCLF=701621
NDAN=701641
KSF=700301
CAF=703302
IOF=700002
RRND=701616
NDST=701661
%EXPAND	JMS	ECHO
	DAC	MFACTOR
	CLC
	DAC	MFLAG
	JMP	%READ
%GROUP	JMS	ECHO
	CLL
	DAC	RLIM#
	DZM	RAMP
	RTL
	RAL
	RTL
	RAL
	DAC	XINC
	LAC	XLIST
	DAC	XLIM#
ROTATE	LAC	RLIM
	RAR
	SZL
	JMP	GREXIT
	DAC	RLIM
	LAC	XLIM
	RCR
	DAC	XLIM
	ISZ	RAMP
	JMP	ROTATE
GREXIT	LAC	RAMP
	TCA
	DAC	RAMP
	JMP	%READ
LNSET	0
	ISZ	LINE
	JMP*	LNSET
	TLS+10
	JMS	CARR
	LAW	-12
	DAC	LINE
	JMP*	LNSET
XLIST	10000
SFLAG	0
CFLAG	0
CLFLAG	0
TFLAG	1
TYFLAG	1
MFLAG	0
OFLAG	0
EFLAG	0
XLOW	10000
ILOW	0
IHIGH	0
LINE	-12
RAMP	0
XINC	100
VGAIN	0
%SELECT	JMS	ECHO
	JMS	STACAL
	DAC	XLOWS
	CLC
	DAC	OFLAG
	LAC	HAC
	SZA
	JMP	OLAP
	DZM	OFLAG
	LAC	XLOWS
	DAC	SLOW#
	SKP
OLAP	JMS	STACAL
	DAC	XLOW
	JMP	%READ
STACAL	0
	TAD	(-1
	JMS	MULT
	LAC	XLIM
	TAD	XLIST
	JMP*	STACAL
%GAIN	DZM	VGAIN
	CLL
	JMS	ECHO
PST	RAR
	SZL
	JMP	GEXIT
	ISZ	VGAIN
	JMP	PST
GEXIT	LAC	VGAIN
	TCA
	DAC	VGAIN
	JMP	%READ
%ERASE	JMS	CTECH
	CLC
	DAC	EFLAG
	JMP	DPY
%INT	JMS	ECHO
	DAC	INHLD
	LAC	HAC
	TCA
	DAC	ILOW
	TAD	INHLD#
	TCA
	DAC	IHIGH
	JMP	%READ
%SLIDE	TLS+10
	LAC	(314
	JMS	WRITE
	CLC
	DAC	SFLAG
	JMS	%OPSP
	JMP	%READ
%TYPE	JMS	CTECH
	TLS+10
	JMS	CARR
	LAC	INL
	TAD	XLIST
	TCA
	JMS	%DIP
	LAC	LIVE
	JMS	%DIP
	LAC	REAL
	JMS	%DIP
	JMS	CARR
	DZM	TFLAG
	LAW	-12
	DAC	LINE
	LAC	PIHAC
	JMP	DPY
%PIME	CLC
	DAC	CLFLAG
	JMP	%COMM
%TIME	DZM	CLFLAG
%COMM	JMS	ECHO
	DAC	TIME#
	LAW	-7
	DAC	TMCNT#
	CLL
	LAC	TIME
	RCL
	ISZ	TMCNT
	JMP	.-2
	TCA
	DAC	CLCNT#
	DZM	LIVE#
	DZM	REAL#
	NDCN
	JMP	%READ
%START	JMS	CTECH
	JMP	DPY
MPR	TLS+10
	LAW	336
	JMS	WRITE
	LAW	320
	JMS	WRITE
	JMS	ECHO
	DAC	PAD#
	JMP*	PAD
CTECH	0
	TAD	(100
	DAC	RHLD#
	TLS+10
	LAW	336
	JMS	WRITE
	LAC	RHLD
	JMS	WRITE
	JMS	%OPSP
	JMS	LNSET
	TSF
	JMP	.-1
	TCF
	JMP*	CTECH
ECHO	0
	DZM	WDCNT#
	DZM	HAC#
	TLS+10
	LAW	275
	JMS	WRITE
REED	JMS	READ
	SAD	(257
	JMP	REXIT
	SAD	(240
	JMP	RESET
	AND	(17
	DAC	HOLD#
	LAC	RBUFF
	TAD	WDCNT
	DAC	RVEC#
	LAC	HOLD
	DAC*	RVEC
	ISZ	WDCNT
	JMP	REED
RESET	JMS	DBC
	DAC	HAC
	DZM	WDCNT
	JMP	REED
REXIT	JMS	%OPSP
	JMS	LNSET
	JMS	DBC
	JMP*	ECHO
DBC	0
	DZM	BIN#
	LAC	WDCNT
	TAD	(-1
	DAC	PCNT#
	CMA
	DAC	ACNT#
	LAC	RBUFF
	DAC	RVEC#
	LAC	CONBUFF
	TAD	PCNT
	DAC	CONVEC#
CONV	LAC*	RVEC
	JMS	MULT
	LAC*	CONVEC
	TAD	BIN
	DAC	BIN
	ISZ	RVEC
	LAC	CONVEC
	TAD	(-1
	DAC	CONVEC
	ISZ	ACNT
	JMP	CONV
	LAC	BIN
	JMP*	DBC
READBF	.BLOCK	4
CVBF	1
	12
	144
	1750
RBUFF	READBF
CONBUFF	CVBF
WRITE	0
	TSF
	JMP	.-1
	TLS
	JMP*	WRITE
READ	0
	KSF
	JMP	.-1
	KRB
	JMP*	READ
CARR	0
	LAW	212
	JMS	WRITE
	LAW	215
	JMS	WRITE
	JMP*	CARR
KSF=700301
TSF=700401
KRB=700312
TLS=700406
XFRA=701524
XFRB=701544
DPY	LAC	XLOW
IRET	DAC	STAD#
ORET	TCA
	TAD	ILOW
	DAC	INL#
	TAD	IHIGH
	DAC	INU#
	ION
SRET	DZM	XCOOR#
DGO	LAC	VGAIN
	SZA
	JMS	AUG
	LAC*	STAD
	DAC	OUT#
	LAC	EFLAG
	SZA
	DZM*	STAD
	CLL
TRANS	LAC	CFLAG
	RAR
	LAC	OUT
	SZL
	TAD	(400000
	XFRA
	LAC	XCOOR
	XFRB
	LAC	STAD
	TAD	INL
	SPA
	JMP	INC
	LAC	STAD
	TAD	INU
	SMA
	JMP	INC
	ISZ	ICNT#
	JMP	TRANS
	LAW	-10
	DAC	ICNT
	LAC	TYFLAG
	SZA
	JMP	INC
	LAC*	STAD
	JMS	%DIP
	JMS	LNSET
INC	LAC	MFLAG
	SZA
	JMP	WORSE
URET	ISZ	STAD
	LAC	XCOOR
	TAD	XINC
	DAC	XCOOR
	SNA
	JMP	DFIN
	JMP	DGO
DFIN	DZM	EFLAG
	DZM	MFLAG
	LAC	TFLAG
	SZA
	JMP	WINDY
	LAC	TYFLAG
	SZA
	JMP	TYSET
	JMS	CARR
	TCF
	LAW	-12
	DAC	TFLAG
	DAC	TYFLAG
	DAC	LINE
	SKP
TYSET	DZM	TYFLAG
WINDY	LAC	SFLAG
	SNA
	JMP	DRET
	LAS
	JMP	IRET
WORSE	LAC	MFACTOR#
	JMS	MULT
	LAC*	STAD
	DAC*	STAD
	JMP	URET
DRET	LAC	OFLAG
	SNA
	JMP	DPY
	ISZ	CYCLE#
	LAC	CYCLE
	AND	(1
	SNA
	JMP	DPY
	LAC	XLOWS#
	DAC	STAD
	JMP	ORET
AUG	0
	DAC	RCNT#
	XCT*	AUG
AUGST	RCL
	ISZ	RCNT
	JMP	AUGST
	ISZ	AUG
	JMP*	AUG
DHAND	RRND
	RAL
	SZL
	JMP	CONTIN
	RAR
	AND	(377777
	DAC	TEMP#
	LAC	RAMP
	DAC	RMPCNT#
	SZA
	JMS	DWNCNT
	LAC	TEMP
	TAD	XLOW
	DAC	EVEC#
	ISZ*	EVEC
	SKP
	JMP	%HLT
	JMP	CONTIN
DWNCNT	0
	XCT*	DWNCNT
	RCR
	ISZ	RMPCNT
	JMP	.-2
	ISZ	DWNCNT
	JMP*	DWNCNT
SQRT	0
	DAC	ARG
	SNA
	JMP*	SQRT
	DZM	SHIFT
	CLL
%POWER	RAL
	ISZ	SHIFT
	SNL
	JMP	%POWER
	LAC	SHIFT
	AND	(1
	ADD	SHIFT
	TCA
	DAC	SHIFT
	ADD	(21
	DAC	POWER
	CLA
FACTOR	RAR
	ISZ	SHIFT
	JMP	FACTOR
	TCA
	TAD	ARG
	DAC	REM
	CLL
	LAC	POWER
	RAR
	ADD	(1
	PAL
	CLL!CLA
	CLX
	CML
FIRST	RAL
	AXS	1
	JMP	FIRST
	DAC	ANS
	CLX
	LAC	REM
FIRST1	CLL!RAR
	AXS	1
	JMP	FIRST1
	ADD	ANS
	DAC	ANS
	LAW	-3
	DAC	ITER
	LAC	ANS
%ITER	JMS	MULT
	LAC	ANS
	TCA
	TAD	ARG
	DAC	REM
	LAC	ANS
	CLL
	RAL
	DAC	ANS2
	CLL
	LAC	REM
	AND	(400000
	RAL
	SZL
	CMA
	JMS	DIV
	LAC	REM
	LAC	ANS2
	TAD	ANS
	DAC	ANS
	ISZ	ITER
	JMP	%ITER
	JMP*	SQRT
ARG	0
SHIFT	0
ANS	0
POWER	0
REM	0
ANS2	0
ITER	0
%DIP	0
	DAC	%DIP1
	SPA
	JMP	%DIPA
	CMA
	TAD	(1
%DIPA	DAC	%DIP3
	LAW	-5
	DAC	%DIP2
%DIPB	JMS	%DIPG
	LAC	%DIP4
	SZA
	JMP	%DIPE
	JMS	%OPSP
	ISZ	%DIP2
	JMP	%DIPB
%DIPC	JMS	%DIPF
%DIPD	LAC	%DIP3
	CMA
	TAD	(261
	JMS	WRITE
	LAC	(TAD %DIPTB
	DAC	%DIPG2
	LAC	%DIP1
	JMP*	%DIP
%DIPE	JMS	%DIPF
	LAC	%DIP4
	TAD	(260
	JMS	WRITE
	ISZ	%DIP2
	SKP
	JMP	%DIPD
	JMS	%DIPG
	JMP	%DIPE+1
%DIPF	0
	LAC	%DIP1
	RAL
	LAW	240
	SZL
	LAW	255
	JMS	WRITE
	JMP*	%DIPF
%DIPG	0
	DZM	%DIP4
	LAC	%DIP3
	JMP	%DIPG2
%DIPG1	DAC	%DIP3
	ISZ	%DIP4
%DIPG2	TAD	%DIPTB
	SPA!SNA
	JMP	%DIPG1
	ISZ	%DIPG2
	JMP*	%DIPG
%DIP1	0
%DIP2	0
%DIP3	0
%DIP4	0
%DIPTB	303240
	023420
	001750
	000144
	000012
	000001
%OPSP	0
	LAW	240
	JMS	WRITE
	JMP*	%OPSP
DIV	0
	SPA!CLL
	CMA!CML
	DAC	%REM
	JMS	%SDV5
%SDV5	0
	XCT*	DIV
	SZL
	JMS	%SDNEG
	DAC	%SQUO
	SPL!CLL
	ISZ	%REM
	NOP
	ISZ	DIV
	XCT*	DIV
	DAC	%SDVS
	XOR	%SDV5
	DAC	%SDV4
	LAC	%SDVS
	SMA
	JMS	%SDNEG
	DAC	%SDVS
	LAC	%REM
	RCL
	TAD	%SDVS
	ISZ	DIV
	SMA!CLA!STL
	JMP	%SDV0
	LAW	-23
	DAC	%SDV1
	CLL
	JMP	%SDV2
%SDV3	LAC	%REM
	RAL
	DAC	%REM
	TAD	%SDVS
	SZL
	DAC	%REM
%SDV2	LAC	%SQUO
	RAL
	DAC	%SQUO
	ISZ	%SDV1
	JMP	%SDV3
	LAC	%SDV5
	RAL
	LAC	%REM
	SZL
	JMS	%SDNEG
	DAC	%REM
	LAC	%SDV4
	RAL
	LAC	%SQUO
	SZL
	JMS	%SDNEG
	SKP!CLL
%SDV0	DZM	%REM
	JMP*	DIV
%SDVS	0
%REM	0
%SQUO	0
%SDV4	0
%SDV1	0
%SDNEG	0
	CMA!CLL
	TAD	(1
	JMP*	%SDNEG
PUNCH	JMS	CTECH
	LAC	XLOW
	DAC	%STAD#
	LAC	XLIM
	DAC	#CHN#
	LAC	%TAG#
	JMS	ROT
	PSB
	JMS	ROTT
	PSB	
	JMS	ROTT
	PSB
	LAC	%STAD
	DAC	%PAD#
	LAC	#CHN
	TCA
	DAC	CHNCT#
EAST	DZM	RNTOT#
	LAW	-100
	DAC	CKCT#
SOUTH	LAC*	%PAD
	JMS	PNCH
	LAC*	%PAD
	TAD	RNTOT
	DAC	RNTOT
	ISZ	CHNCT
	SKP
	JMP	END
	ISZ	%PAD
	ISZ	CKCT
	JMP	SOUTH
END	LAC	RNTOT
	JMS	PNCH
	LAC	CHNCT
	SZA
	JMP	EAST
	PSF
	JMP	.-1
	PCF
	JMP	DPY
PNCH	NOP
	JMS	ROT
	PSF
	JMP	.-1
	PSB
	JMS	ROTT
	PSB
	JMS	ROTT
	PSB
	JMP*	PNCH
ROT	NOP
	RTL
	RTL
	RTL
	RAL
	JMP*	ROT
ROTT	NOP
	RTL
	RTL
	RTL
	PSF
	JMP	.-1
	JMP*	ROTT
RCF=700102
PSB=700244
PSF=700201
PCF=700202
RSB=700144
RRB=700112
RSF=700101
READTP	JMS	CTECH
	LAC	XLOW
	DAC	%STAD
	LAC	XLIM
	DAC	#CHN
	RSB
	RSF
	JMP	.-1
	RRB
	DAC	%TAG
	LAC	%STAD
	DAC	%PAD
	LAC	#CHN
	TCA
	DAC	CHNCT
MIN	DZM	RNTOT
	LAW	-100
	DAC	CKCT
MAX	RSB
	RSF
	JMP	.-1
	RRB
	DAC*	%PAD
	TAD	RNTOT
	DAC	RNTOT
	ISZ	CHNCT
	SKP
	JMP	STOP
	ISZ	%PAD
	ISZ	CKCT
	JMP	MAX
STOP	RSB
	RSF
	JMP	.-1
	RRB
	TCA
	TAD	RNTOT
	SZA
	JMP	PRBLM
	LAC	CHNCT
	SZA
	JMP	MIN
	CLA
	JMP	DPY
PRBLM	CLC	
	JMP	DPY
MULT	0
	DZM	%MHIGH
	SNA
	JMP	%SMPZ
	DAC	%SMP1
	XCT*	MULT
	DAC	%SMP2
	XOR	%SMP1
	DAC	%MPSIN
	LAC	%SMP1
	SPA
	JMS	%SMNEG
	DAC	%SMP1
	LAC	%SMP2
	SPA
	JMS	%SMNEG
	DAC	%SMP2
	LAW	-22
	DAC	%SMP3
	CLL
%SMP4	LAC	%SMP1
	RAR
	DAC	%SMP1
	LAC	%MHIGH
	SZL!CLL
	TAD	%SMP2
	RAR
	DAC	%MHIGH
	ISZ	%SMP3
	JMP	%SMP4
	LAC	%SMP1
	RAR
	DAC	%SMP1
	LAC	%MPSIN
	SMA
	JMP	%SMPZ-1
	LAC	%SMP1
	JMS	%SMNEG
	DAC	%SMP1
	LAC	%MHIGH
	SPL!CLL!CMA
	TAD	(1
	DAC	%MHIGH
	LAC	%SMP1
%SMPZ	ISZ	MULT
	JMP*	MULT
%SMP1	0
%MHIGH	0
%MPSIN	0
%SMP2	0
%SMP3	0
%SMNEG	0
	CMA!CLL
	TAD	(1
	JMP*	%SMNEG
%COPY	JMS	CTECH
	TLS+10
	JMS	CARR
	LAC	XLOW
	DAC	LAG
	LAC	XLOWS
	DAC	LAGSIG
	LAC	XLIM
	TCA
	DAC	SIG
LOOP	JMS	READ
	SAD	(323
	JMP	SUB
	SAD	(324
	JMP	TRS
	SAD	(301
	SKP
	JMP	LOOP
	LAC*	LAG
	TAD*	LAGSIG
	JMS	DECISIO
	JMP	.-3
SUB	LAC*	LAG
	TCA
	TAD*	LAGSIG
	JMS	DECISIO
	JMP	SUB
TRS	LAC*	LAG
	JMS	DECISIO
	JMP	TRS
DECISIO	0
	DAC*	LAGSIG
	ISZ	LAG
	ISZ	LAGSIG
	ISZ	SIG
	JMP*	DECISIO
	TLS+10
	JMS	%OPSP
	JMS	LNSET
	JMP	DPY
	.EOT
