FIELD	0

	*0000
S00000,	6046
L00001,	KCC
L00002,	DCA D00177
	DCA D00133
L00004,	DCA D00176
	TAD D00133
	CLL RTL 
D00007,	7004
	TAD D00175
	DCA D00012
D00012,	6201
	TAD D00177
	CLL RAR 
D00015,	1176
L00016,	KSF 
	JMP L00016
	KRB
	JMS S00150
	RIF
	TAD D00175
	DCA D00025
D00025,	6201
	KRB
	TAD D00163
	SNA 
	JMP L00067
	TAD D00165
	SNA 
	JMP L00112
	TAD D00165
	SNA 
	JMP L00070
	TAD D00167
	SNA 
	JMP L00104
	TAD D00165
	SPA 
	JMP L00135
	TAD D00164
	SMA CLA 
D00050,	5135
	TAD D00176
	CLL RTL 
	RTL 
	AND D00166
	DCA D00133
	TAD D00176
	CLL RAL 
	CLL RAL 
	CLL RAL 
	DCA D00176
	KRB
	AND D00166
	TAD D00176
	JMP L00004
L00067,	TAD D00161
L00070,	DCA I P00174
	JMS S00143
	TAD D00176
	CIA
	SNA 
	TAD D00161
	DCA S00143
L00077,	TAD I P00174
	JMS I P00172
	ISZ S00143
	JMP L00077
	JMP L00134
L00104,	TAD D00133
	DCA D00131
	TAD D00176
	DCA D00132
	IAC
	JMP L00002
L00112,	TAD D00177
	SZA CLA 
	JMP L00121
	TAD D00133
	DCA D00131
	TAD D00176
	DCA D00132
L00121,	TAD D00131
	CIA
	TAD D00133
	SPA CLA 
	JMP L00135
	JMS S00143
	TAD D00176
	JMS I P00173
D00131,	0000
D00132,	0000
D00133,	0000
L00134,	JMS S00143
L00135,	CLA 
	TAD D00171
	JMS S00150
	TAD D00170
	JMS S00150
	JMP L00001
S00143,	0000
	CLA OSR 
	SPA CLA 
	HLT
	JMP I S00143
S00150,	0000
	DCA S00143
	CLA OSR 
	SMA CLA 
D00154,	5550
	TAD S00143
L00156,	TSF 
	JMP L00156
	TLS
D00161,	7600
	JMP I S00150
D00163,	7464
D00164,	7770
D00165,	7774
D00166,	0007
D00167,	0050
D00170,	0212
D00171,	0215
P00172,	S00354
P00173,	S00200
P00174,	P00373
D00175,	6201
D00176,	0000
D00177,	0000

	*0200
S00200,	0000
	DCA D00372
	TAD I S00200
	DCA D00367
	ISZ S00200
	TAD I S00200
	DCA D00370
	ISZ S00200
	TAD I S00200
	AND D00312
	DCA D00371
	ISZ S00200
L00214,	TAD D00367
	CIA
	TAD D00371
	SZA 
	JMP L00230
	TAD D00370
	CLL CML CIA
	TAD D00372
	SZL CLA 
	JMP I S00200
	CLA CMA 
	JMP L00232
L00230,	SPA CLA 
	JMP I S00200
L00232,	DCA S00322
	TAD D00367
	CLL RTL 
	RAL 
	DCA D00374
	TAD D00374
	TAD D00366
	DCA D00242
D00242,	6201
	TAD D00370
	DCA P00373
	TAD D00364
	DCA D00242
L00247,	TAD D00362
	JMS S00354
	ISZ D00242
	JMP L00247
	JMS S00354
	TAD D00374
	JMS S00354
	TAD P00373
	DCA D00375
	CLL IAC
	TAD D00372
	ISZ S00322
	CLA CLL CML 
	TAD D00377
	CML CIA
	TAD D00370
	SNL 
	CLA 
	TAD D00377
	JMS S00322
	TAD D00376
	CIA
	TAD D00370
	SNA 
	ISZ D00367
	DCA D00370
	TAD D00376
	CLL CML RAR 
	DCA D00242
L00304,	TAD I P00373
	DCA D00375
	ISZ P00373
	TAD I P00373
	JMS S00322
	ISZ P00373
D00312,	0007
	ISZ D00242
	JMP L00304
	TAD D00374
	CMA 
	DCA D00375
	JMS S00322
	JMP L00214
S00322,	0000
	DCA D00376
	TAD D00375
	CLL RTR 
	RTR 
	JMS S00354
	TAD D00375
	AND D00365
	DCA S00354
	TAD D00376
	AND D00365
	CLL RTR 
	RTR 
	TAD S00354
	JMS S00354
	TAD D00376
	JMS S00354
	TAD D00374
	TAD D00375
	SZL 
	CLL IAC
	TAD D00376
	SZL 
	CLL IAC
	DCA D00374
	JMP I S00322
S00354,	0000
	TLS
	CLA CLL 
	TAD P00373
L00360,	TSF 
	JMP L00360
D00362,	7200
	JMP I S00354
D00364,	7774
D00365,	7417
D00366,	6201
D00367,	0000
D00370,	0000
D00371,	0000
D00372,	0000
P00373,	S00000
D00374,	0000
D00375,	0000
D00376,	0000
D00377,	7600
$