CNGE,	TABA
M13,	0-13
TCNTI,	TCNT
WBK,	1404
WTP,	1577

TAB,	0
	LAS
	CMA
	AND Z SF2
	SZA CLA
	JMP I WBK
	TAD I WTP
	DCA TAB
	TAD CNGE
	DCA I WTP
	TAD I TCNTI
	TAD M13
	SMA
	JMP .-2
	DCA TTT
TABA,	CLA
	ISZ TCNT
	ISZ TTT
	JMP GO
	TAD I TABI
	DCA I WTPE
GO,	TAD Z C240
	JMP I WBACK

WSTAR,	0
	HLT
	LAS
	AND Z SF2
	SNA CLA
	JMP I WSTAR
	LAS
	AND MASK
	SNA
	JMP WSTAB
	DCA WBLK
	DCA WPCK
	JMS WWRC
	TAD WRD1
	SKP
WSTAB,	TAD WRD2
	DCA I WTPE
	DCA TCNT
	ISZ WSTAR
	JMP I WSTAR

YERR,	HLT
	JMP I Z C200

WFF,	KSF
	JMP WFF
	KRB
	TAD Z M211
	SNA
	JMS I TABI
	TAD Z M1
	SNA
	DCA TCNT
	TAD Z M2
	SNA
	JMP ANNO
	TAD Z C214
	ISZ TCNT
	JMP I WBACK

ANNO,	JMS WSTAR
	JMP I Z C200
	TAD Z C377
	JMP I WBACK

WRDA,	CLA
	ISZ WPCK
	JMP WRDB
	TAD I WCORA
	AND Z SL6
	DCA WTEMP
	ISZ WCORA
	ISZ WCNTR
	SKP
	JMS WWRC
	TAD WTEMP
WRDC,	TAD M33
	SPA
	TAD N100
	SNA
	JMS I TABI
	TAD Z M1
	SNA
	DCA TCNT
	TAD Z M2
	SNA
	JMP ANNO
	TAD Z M1
	SMA SZA
	TAD N22
	TAD Z C215
	ISZ TCNT
	JMP I WBACK
WRDB,	CLA CMA
	DCA WPCK
	TAD I WCORA
	LSR
	5
	JMP WRDC

WWRC,	0
	JMS I WY
WCOR,	7000
	YERR
N100,	100
	1
WBLK,	0
SCAT,	CLA CLL
	TAD I WDONE
	SZA CLA
	JMP GOON
	MMSC
	SKP
	JMP I ERCM
	MMSF
	SKP
	JMP I MCOM
	JMP SCAT
GOON,	ISZ WBLK
	TAD M128
	DCA WCNTR
	TAD WCOR
	DCA WCORA
	JMP I WWRC

TABI,	TAB
TCNT,	0
TTT,	0
WPCK,	0
WCORA,	0
MASK,	1777
WDONE,	DONE
WTEMP,	0
WCNTR,	0
M33,	0-33
M128,	0-177
N22,	22
WBACK,	1404
WRD1,	WRDA
WRD2,	WFF
WTPE,	1577
WY,	R128

C377=71
SL6=123
M1=103
C215=70
C214=67
SF2=124
C200=65
WK=1577
DISM=JMP I Z 3
AUTO=10
M211=105
M2=73
C240=7

MCOM,	0
ERCM,	MERR

*3
	SCAT
*7
	240
*131
	CNGE-106
*200
	CLA CLL
	3111
	1054
	3020
	1131
	3125
	1052
	3021
	SKP
	WSTAR
	JMS I .-1
	JMP 200
	JMP 224
*241
	7000
	5212
*1401
	JMP I WK

*7200
LVSR,	0
	DCA BLKN
	TAD LVSR
	DCA LVSF
	JMP LVSF+3
LVST,	0
	DCA BLKN
	TAD LVST
	DCA LVSF
	CMA
	DCA LVST
	JMP LVSF+2
LVSF,	0
	DCA BLKN
	IAC
	DCA BACO
	CMA
	TAD BACO
	DCA FOCO
	IOF
	PCF
	TCF
	RRB
	DCF
	PLCF
	KCC
	MMCF
	TAD CN9
	DCA I MIN3
	TAD CN1
	MMML
	DCA DONE
	TAD CN2
	DCA DIRC
	TAD BLKN
	SNA
	JMP FERR+1
	CIA
	DCA BLKN
	TAD CN3
	DCA DRC
	TAD I LVSF
	DCA LVSR
	ISZ LVSF
	TAD I LVSF
	DCA BACK
	ISZ LVSF
	TAD I LVSF
	DCA UNIT
	ISZ LVSF
	TAD LVSF
	DCA Z 0
TURN,	ISZ DRC
	SKP
	JMP FERR
	TAD CN6
	TAD DIRC
	SNA CLA
	JMP MREV
	TAD CN7
	DCA DIRC
	TAD SPAC
	DCA SCH2
	TAD BLKN
	TAD FOCO
	DCA DISB
	TAD UNIT
	TAD DIRC
	MMMM
	JMS I MIN0
	DISM
DATA,	MMCF
	TAD TEMN
	TAD DISB
	SZA
	JMP SCH2
	TAD TEMN
	TAD BLKN
	SZA CLA
	JMP TURN
	CMA
	DCA DONE
	ISZ LVST
	JMP I BACK
	MMLM
	JMS I MIN0
	JMP I BACK
SCH2,	SPA CLA
	DISM
	JMP TURN
MREV,	TAD CN2
	DCA DIRC
	TAD DIRC
	MMMF
	JMS I MIN0
	TAD SMAC
	DCA SCH2
	TAD BLKN
	TAD BACO
	DCA DISB
	DISM
ERGO,	JMP I LVSR
FERR,	IAC
	IAC
	JMP I MIN2
CN1,	TEMN
CN2,	31
CN3,	7770
CN6,	7757
CN7,	21
CN9,	DATA
SMAC,	SMA CLA
SPAC,	SPA CLA
MIN0,	WAIT
MIN2,	OOPS
MIN3,	MCOM
BLKN,	0
BACO,	0
FOCO,	0
DIRC,	0
DRC,	0
BACK,	0
UNIT,	0
DISB,	0
DONE,	0
TEMN,	0
*LVSR+200
MERR,	MMRS
	AND CN13
	SZA CLA
	JMP MENZ
	TAD I MIN5
	CIA
	TAD CN20
	SNA CLA
	TAD ERCN
	TAD CN22
OOPS,	DCA HOOP
	MMRS
	DCA MRSA
	TAD HOOP
	MMLM
	JMS WAIT
	JMP I MIN7
MENZ,	JMS WAIT
	JMP I MIN6
W128,	0
	CLA
	TAD W128
	DCA MRDS
	TAD CN23
	JMP MWRS+5
MWRS,	0
	CLA
	TAD MWRS
	DCA MRDS
	TAD CN18
	DCA CHK1+2
	TAD CN10
	DCA PASS+2
	JMP MRD1
R128,	0
	CLA
	TAD R128
	DCA MRDS
	TAD CN23
	JMP MRDS+3
MRDS,	0
	CLA
	TAD CN18
	DCA CHK1+2
	TAD CN12
	DCA PASS+2
	SKP
MRD1,	IAC
	IAC
	DCA ERCN
	TAD I MRDS
	DCA HEER
	TAD MRDS
	JMP CHK
MRD2,	TAD HEER
	TAD CN15
	DCA R128
	TAD I R128
	DCA MWRS
PASS,	TAD HEER
	MMML
	TAD
	MMLF
	TAD CN20
	DCA I MIN5
	DCA I MIN4
	DISM
DROR,	MMSC
	SKP CLA
	JMP MERR
	MMCF
	TAD CHK1+2
	CIA
	TAD CN23
	SZA CLA
	JMP EXNT-2
	TAD MWRS
	DCA I R128
	TAD R128
	MMML
	TAD R128
	TAD CN15
	DCA R128
	TAD I R128
	DCA MWRS
	ISZ HOOP
	DISM
EXNT,	MMLM
	JMS WAIT
	CMA
	JMP DROR-2
CHK,	DCA Z AUTO
	TAD I Z AUTO
	DCA CHK1+1
	TAD I Z AUTO
	DCA CHK1+3
	TAD I Z AUTO
	CIA
	DCA HOOP
	TAD I Z AUTO
CHK1,	JMS I MIN8
	0
	0
	0
	JMP I Z AUTO
WAIT,	0
	MMSF
	JMP .-1
	MMCF
	JMP I WAIT
ERCN,	0
HEER,	0
HOOP,	0
MRSA,	0
CN10,	TAD PASS+3
CN12,	TAD DROR+3
CN13,	1000
CN15,	200
CN18,	PASS
CN20,	DROR
CN22,	3
CN23,	MRD2
MIN4,	DONE
MIN5,	MCOM
MIN6,	TURN
MIN7,	ERGO
MIN8,	LVSF
*MERR+200