;                                            
;                                            
;                                            
;                                            

	.ASECT

	.TITLE	181

	.DSABL	GBL
	.ENABL	CRF,LC
	.LIST	SEQ,LOC,SRC,COM,TOC,SYM
	.NLIST	BIN,TTM

	DTKS==176560
	DTKB==176562
	DTTS==176564
	DTTB==176566
	 TKS==177560
	 TKB==177562
	 TTS==177564
	 TTB==177566
	 KRA==160000
	 KRD==160002
	 KRS==167770
	 RI0==167772
	 RI1==167773
	KRPLO=167774
	KRPHI=167775

	.PAGE

	.NLIST	SEQ,LOC,SRC,COM,MD,MC,ME,CND

	.MCALL	.CTRLT
	.CTRLT

	.MACRO	REPIT1	VAR
	.WORD	'VAR
	.ENDM	REPIT1

	.MACRO	REPIT2	VAR
	.WORD	'VAR,'VAR
	.ENDM	REPIT2

	.MACRO	REPIT4	VAR
	.BYTE	'VAR,'VAR,'VAR,'VAR
	.ENDM	REPIT4

	.MACRO	...T1,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	...UUU=<'E1>
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T1

	.MACRO	...T2,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	...UUU=<'E1''E2>
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T2

	.MACRO	...T3,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	...UUU=<'E1''E2''E3>
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T3

	.MACRO	...T4,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	...UUU=<'E1''E2''E3''E4>
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T4

	.MACRO	...T5,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	...UUU=<'E1''E2''E3''E4''E5>
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T5

	.MACRO	...T6,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	...UUU=<'E1''E2''E3''E4''E5''E6>
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T6

	.MACRO	...T7,...T
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7>
	.ENDC
	...U7=...U7+1.
	.ENDM
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T7

	.MACRO	...T8
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8>
	.ENDC
	...U8=...U8+1.
 	.ENDM
	.ENDC
	...U7=...U7+1.
 	.ENDM
	.ENDC
	...U6=...U6+1.
 	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T8

	.MACRO	...T9
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9>
	.ENDC
	...U9=...U9+1.
 	.ENDM
	.ENDC
	...U8=...U8+1.
 	.ENDM
	.ENDC
	...U7=...U7+1.
 	.ENDM
	.ENDC
	...U6=...U6+1.
 	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T9
	
	.MACRO	...T10
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''>
	.ENDC
	...U10=...U10+1.
 	.ENDM
	.ENDC
	...U9=...U9+1.
 	.ENDM
	.ENDC
	...U8=...U8+1.
 	.ENDM
	.ENDC
	...U7=...U7+1.
 	.ENDM
	.ENDC
	...U6=...U6+1.
 	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T10
	
	.MACRO	...T11
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11>
	.ENDC
	...U11=...U11+1.
 	.ENDM
	.ENDC
	...U10=...U10+1.
 	.ENDM
	.ENDC
	...U9=...U9+1.
 	.ENDM
	.ENDC
	...U8=...U8+1.
 	.ENDM
	.ENDC
	...U7=...U7+1.
 	.ENDM
	.ENDC
	...U6=...U6+1.
 	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T11
	
	.MACRO	...T12
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	.IRPC	E12,^|...T|
	.IF	EQ	...U12-<...U90+11.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11''E12>
	.ENDC
	...U12=...U12+1.
	.ENDM
	.ENDC
	...U11=...U11+1.
	.ENDM
	.ENDC
	...U10=...U10+1.
	.ENDM
	.ENDC
	...U9=...U9+1.
	.ENDM
	.ENDC
	...U8=...U8+1.
	.ENDM
	.ENDC
	...U7=...U7+1.
	.ENDM
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T12
	
	.MACRO	...T13
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	.IRPC	E12,^|...T|
	.IF	EQ	...U12-<...U90+11.>
	.IRPC	E13,^|...T|
	.IF	EQ	...U13-<...U90+12.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11''E12''E13>
	.ENDC
	...U13=...U13+1.
 	.ENDM
	.ENDC
	...U12=...U12+1.
 	.ENDM
	.ENDC
	...U11=...U11+1.
 	.ENDM
	.ENDC
	...U10=...U10+1.
 	.ENDM
	.ENDC
	...U9=...U9+1.
 	.ENDM
	.ENDC
	...U8=...U8+1.
 	.ENDM
	.ENDC
	...U7=...U7+1.
 	.ENDM
	.ENDC
	...U6=...U6+1.
 	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T13
	
	.MACRO	...T14
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	.IRPC	E12,^|...T|
	.IF	EQ	...U12-<...U90+11.>
	.IRPC	E13,^|...T|
	.IF	EQ	...U13-<...U90+12.>
	.IRPC	E14,^|...T|
	.IF	EQ	...U14-<...U90+13.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11''E12''E13''E14>
	.ENDC
	...U14=...U14+1.
 	.ENDM
	.ENDC
	...U13=...U13+1.
 	.ENDM
	.ENDC
	...U12=...U12+1.
 	.ENDM
	.ENDC
	...U11=...U11+1.
	.ENDM
	.ENDC
	...U10=...U10+1.
	.ENDM
	.ENDC
	...U9=...U9+1.
	.ENDM
	.ENDC
	...U8=...U8+1.
	.ENDM
	.ENDC
	...U7=...U7+1.
	.ENDM
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T14
	
	.MACRO	...T15
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	.IRPC	E12,^|...T|
	.IF	EQ	...U12-<...U90+11.>
	.IRPC	E13,^|...T|
	.IF	EQ	...U13-<...U90+12.>
	.IRPC	E14,^|...T|
	.IF	EQ	...U14-<...U90+13.>
	.IRPC	E15,^|...T|
	.IF	EQ	...U15-<...U90+14.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11''E12''E13''E14''E15>
	.ENDC
	...U15=...U15+1.
	.ENDM
	.ENDC
	...U14=...U14+1.
	.ENDM
	.ENDC
	...U13=...U13+1.
	.ENDM
	.ENDC
	...U12=...U12+1.
	.ENDM
	.ENDC
	...U11=...U11+1.
	.ENDM
	.ENDC
	...U10=...U10+1.
	.ENDM
	.ENDC
	...U9=...U9+1.
	.ENDM
	.ENDC
	...U8=...U8+1.
	.ENDM
	.ENDC
	...U7=...U7+1.
	.ENDM
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T15
	
	.MACRO	...T16
	.IRPC	E1,^|...T|
	.IF	EQ	...U1-...U90
	.IRPC	E2,^|...T|
	.IF	EQ	...U2-<...U90+1.>
	.IRPC	E3,^|...T|
	.IF	EQ	...U3-<...U90+2.>
	.IRPC	E4,^|...T|
	.IF	EQ	...U4-<...U90+3.>
	.IRPC	E5,^|...T|
	.IF	EQ	...U5-<...U90+4.>
	.IRPC	E6,^|...T|
	.IF	EQ	...U6-<...U90+5.>
	.IRPC	E7,^|...T|
	.IF	EQ	...U7-<...U90+6.>
	.IRPC	E8,^|...T|
	.IF	EQ	...U8-<...U90+7.>
	.IRPC	E9,^|...T|
	.IF	EQ	...U9-<...U90+8.>
	.IRPC	E10,^|...T|
	.IF	EQ	...U10-<...U90+9.>
	.IRPC	E11,^|...T|
	.IF	EQ	...U11-<...U90+10.>
	.IRPC	E12,^|...T|
	.IF	EQ	...U12-<...U90+11.>
	.IRPC	E13,^|...T|
	.IF	EQ	...U13-<...U90+12.>
	.IRPC	E14,^|...T|
	.IF	EQ	...U14-<...U90+13.>
	.IRPC	E15,^|...T|
	.IF	EQ	...U15-<...U90+14.>
	.IRPC	E16,^|...T|
	.IF	EQ	...U16-<...U90+15.>
	...UUU=<'E1''E2''E3''E4''E5''E6''E7''E8''E9''E10''E11''E12''E13''E14''E15''E16>
	.ENDC
	...U16=...U16+1.
	.ENDM
	.ENDC
	...U15=...U15+1.
	.ENDM
	.ENDC
	...U14=...U14+1.
	.ENDM
	.ENDC
	...U13=...U13+1.
	.ENDM
	.ENDC
	...U12=...U12+1.
	.ENDM
	.ENDC
	...U11=...U11+1.
	.ENDM
	.ENDC
	...U10=...U10+1.
	.ENDM
	.ENDC
	...U9=...U9+1.
	.ENDM
	.ENDC
	...U8=...U8+1.
	.ENDM
	.ENDC
	...U7=...U7+1.
	.ENDM
	.ENDC
	...U6=...U6+1.
	.ENDM
	.ENDC
	...U5=...U5+1.
	.ENDM
	.ENDC
	...U4=...U4+1.
	.ENDM
	.ENDC
	...U3=...U3+1.
	.ENDM
	.ENDC
	...U2=...U2+1.
	.ENDM
	.ENDC
	...U1=...U1+1.
	.ENDM
	.ENDM	...T16

	.MACRO	...EEE	...E, ...EE
	...T'...E	^|...EE|
	.ENDM	...EEE

		.MACRO	...MOD	...J
	...U01=3.
	...U03=0.
	.NTYPE	...U00, ...J
	.IF	EQ	...U00-^O27	
	...U01=1.
	.ENDC	
	.IF	EQ	...U00-^O37	
	...U01=2.
	.ENDC	
	.IF	EQ	<...U00/^O10>-^O6
	...U01=0
	.ENDC
	.IF	EQ	<...U00/^O10>-^O7
	...U01=1.
	.ENDC
	.ENDM	...MOD

		.MACRO	.STRIN	...U
	...MOD	^|...U|
	.IF	EQ	...U01-3.
	.ERROR		;.STRIN-E-off service mode adress ...U00
	.MEXIT
	.ENDC
	...U91=0
	...U90=0
	...U06=0
	.IRPC	E0,^|...U|
	...U06=...U06+1.
	.IF	IDN	^|'E0|,^|<|
	.IF	EQ	...U06-<...U01+1.>
	...U90=1.
	.ENDC
	.ENDC
	.IF	IDN	^|'E0|,^|(|
	...U91=...U06
	.IF	EQ	...U00-^O67
	...U03=^O67
	.ENDC
	.IF	EQ	...U00-^O77
	...U03=^O77
	.ENDC
	.ENDC
	.ENDM
	.IF	EQ	...U06-...U01
	...UUU=0
	.ERROR		;	.STRIN-E-offer incomplete parametr ...U			
	.MEXIT
	.ENDC
	.IF	NE	...U91
	...U06=...U91-1.	
	.ENDC
	.IF	EQ	...U90-1.	
	...U06=<...U06-2.>-...U01
	...U90=...U01+1.
	.IFF
	...U06=...U06-...U01
	...U90=...U01
	.ENDC
	...U1=0
	...U2=0
	...U3=0
	...U4=0
	...U5=0
	...U6=0
	...U7=0
	...U8=0
	...U9=0
	...U10=0
	...U11=0
	...U12=0
	...U13=0
	...U14=0
	...U15=0
	...U16=0
	...EEE	\...U06,^|...U|
	...U16=0
	...U15=0
	...U14=0
	...U13=0
	...U12=0
	...U11=0
	...U10=0
	...U9=0
	...U8=0
	...U7=0
	...U6=0
	...U5=0
	...U4=0
	...U3=0
	...U2=0
	...U1=0
	...U91=0
	...U90=0
	...U06=0 
	...U01=0
	.ENDM	.STRIN

	.MACRO	MOVC	COMAND,MODE1,MODE2,POOK,...NUL
.IF	IDN,	<COMAND>,<JMP>
	.IF	B	POOK
	.STRIN	^|MODE2|
	...V11=...UUU
	...V12=...U00
	...MOD	^|MODE1|
	...V19=...U00
		.IF	NE	...U01-3.
		.STRIN	^|MODE1|
			.IF	EQ	...V12-^O67
			MOV	#<^O000100!...U00>,	<...V11>
				.IF	EQ	...U00-^O37
				MOV	#...UUU,		<...V11+2.>		
				.ENDC
				.IF	EQ	<...U00/^O10>-^O6
					.IF	NE	...U00-^O67
					MOV	#...UUU,		<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O67
						MOV	#...UUU,	<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	<...U00/^O10>-^O7
					.IF	NE	...U00-^O77
					MOV	#...UUU,		<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O77
						MOV	#...UUU,	<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	...U00-^O27
				MOV	#...UUU,		<...V11+2.>
				.ENDC
			.ENDC
			.IF	EQ	...V12-^O37
			MOV	#<^O000100!...U00>,	@#<...V11>
				.IF	EQ	...U00-^O37
				MOV	#...UUU,		@#<...V11+2.>		
				.ENDC
				.IF	EQ	<...U00/^O10>-^O6
					.IF	NE	...U00-^O67
					MOV	#...UUU,		@#<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O67
						MOV	#...UUU,	@#<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	<...U00/^O10>-^O7
					.IF	NE	...U00-^O77
					MOV	#...UUU,		@#<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O77
						MOV	#...UUU,	@#<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	...U00-^O27
				MOV	#...UUU,		@#<...V11+2.>
				.ENDC
			.ENDC
		.IFF
			.IF	EQ	...V12-^O67
			MOV	#<^O000100!...V19>,	<...V11>
			.ENDC
			.IF	EQ	...V12-^O37
			MOV	#<^O000100!...V19>,	@#<...V11>
			.ENDC
		.ENDC
	.IFF
	.STRIN	^|POOK|	
	...V11=...UUU
	...V12=...U00
	.STRIN	^|'MODE1'MODE2|
		.IF	EQ	...V12-^O67
		MOV	#<^O000100!...U00>,	<...V11>
			.IF	NE	...U00-^O67
			MOV	#...UUU,		<...V11+2.>		
			.IFF
				.IF	EQ	...U03-^O67
				MOV	#...UUU,	<...V11+2.>
				.IFF
				MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
				.ENDC
			.ENDC
		.ENDC
		.IF	EQ	...V12-^O37
		MOV	#<^O000100!...U00>,	@#<...V11>
			.IF	NE	...U00-^O67
			MOV	#...UUU,		@#<...V11+2.>		
			.IFF
				.IF	EQ	...U03-^O67
				MOV	#...UUU,	@#<...V11+2.>
				.IFF
				MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
				.ENDC
			.ENDC
		.ENDC
	.ENDC
.ENDC
.IF	IDN,	<COMAND>,<JSR>
.NTYPE	...V15,MODE1
	.IF	B	...NUL
	.STRIN	^|POOK|
	...V11=...UUU
	...V12=...U00
	...MOD	^|MODE2|
	...V19=...U00
		.IF	NE	...U01-3.
		.STRIN	^|MODE2|
			.IF	EQ	...V12-^O67
			MOV	#<^O004000!<...V15*^O100>!...U00>,	<...V11>
				.IF	EQ	...U00-^O37
				MOV	#...UUU,		<...V11+2.>		
				.ENDC
				.IF	EQ	<...U00/^O10>-^O6
					.IF	NE	...U00-^O67
					MOV	#...UUU,		<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O67
						MOV	#...UUU,	<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	<...U00/^O10>-^O7
					.IF	NE	...U00-^O77
					MOV	#...UUU,		<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O77
						MOV	#...UUU,	<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	...U00-^O27
				MOV	#...UUU,		<...V11+2.>
				.ENDC
			.ENDC
			.IF	EQ	...V12-^O37
			MOV	#<^O004000!<...V15*^O100>!...U00>,	@#<...V11>
				.IF	EQ	...U00-^O37
				MOV	#...UUU,		@#<...V11+2.>		
				.ENDC
				.IF	EQ	<...U00/^O10>-^O6
					.IF	NE	...U00-^O67
					MOV	#...UUU,		@#<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O67
						MOV	#...UUU,	@#<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	<...U00/^O10>-^O7
					.IF	NE	...U00-^O77
					MOV	#...UUU,		@#<...V11+2.>		
					.IFF
						.IF	EQ	...U03-^O77
						MOV	#...UUU,	@#<...V11+2.>
						.IFF
						MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
						.ENDC
					.ENDC
				.ENDC
				.IF	EQ	...U00-^O27
				MOV	#...UUU,		@#<...V11+2.>
				.ENDC
			.ENDC
		.IFF
			.IF	EQ	...V12-^O67
			MOV	#<^O004000!<...V15*^O100>!...V19>,	<...V11>
			.ENDC
			.IF	EQ	...V12-^O37
			MOV	#<^O004000!<...V15*^O100>!...V19>,	@#<...V11>
			.ENDC
		.ENDC
	.IFF
	.STRIN	^|...NUL|	
	...V11=...UUU
	...V12=...U00
	.STRIN	^|'MODE2'POOK|
		.IF	EQ	...V12-^O67
		MOV	#<^O004000!<...V15*^O100>!...U00>,	<...V11>
			.IF	NE	...U00-^O67
			MOV	#...UUU,		<...V11+2.>		
			.IFF
				.IF	EQ	...U03-^O67
				MOV	#...UUU,	<...V11+2.>
				.IFF
				MOV	#<...UUU-<...V11+4.>>,	<...V11+2.>
				.ENDC
			.ENDC
		.ENDC
		.IF	EQ	...V12-^O37
		MOV	#<^O004000!<...V15*^O100>!...U00>,	@#<...V11>
			.IF	NE	...U00-^O67
			MOV	#...UUU,		@#<...V11+2.>		
			.IFF
				.IF	EQ	...U03-^O67
				MOV	#...UUU,	@#<...V11+2.>
				.IFF
				MOV	#<...UUU-<...V11+4.>>,	@#<...V11+2.>
				.ENDC
			.ENDC
		.ENDC
	.ENDC
.ENDC
.IF	IDN,	<COMAND>,<RTS>
.STRIN	^|MODE2|
...V11=...UUU
...V12=...U00
.NTYPE	...U00,MODE1
	.IF	EQ	...V12-^O67
	MOV	#<000020!...U00>,	<...V11>
	.ENDC
	.IF	EQ	...V12-^O37
	MOV	#<000020!...U00>,	@#<...V11>
	.ENDC
.ENDC
...UUU=0
...U00=0
...U01=0
...U03=0
...V11=0
...V12=0
...V15=0
...V19=0
	.ENDM	MOVC

	.LIST	SEQ,LOC,SRC,COM,MD,MC,ME,CND,TOC,SYM

	.PAGE

	.=000000

	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
;000020
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
;000040
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
;000060
T00060:	.WORD	V53504,000340
	.WORD	START,000340
	.WORD	START,000340
	.WORD	START,000340
;000100
T00100:	.WORD	V00322,000340
	.WORD	040000
	.WORD	000000
	.WORD	041750
	.WORD	000000
	.WORD	043720
	.WORD	000000
;000120
	.WORD	045670
	.WORD	000000
	.WORD	047640
	.WORD	000000
	.WORD	051610
M00132:	.WORD	000000
	.WORD	053560
	.WORD	000000
;000140
	.WORD	055530
	.WORD	000000
	.WORD	057500
	.WORD	000000
	.WORD	061450
	.WORD	000000
	.WORD	063420
	.WORD	000000
;000160
	.WORD	065370
	.WORD	000000
	.WORD	067340
	.WORD	000000
	.WORD	071310
	.WORD	000000
	.WORD	073260
	.WORD	000000
;000200
	.WORD	075230
	.WORD	000000
	.WORD	077200
	.WORD	000000
	.WORD	101150
	.WORD	000000
	.WORD	103120
	.WORD	000000
;000220
	.WORD	105070
	.WORD	000000
	.WORD	107040
	.WORD	000000
	.WORD	111010
	.WORD	000000
	.WORD	112760
	.WORD	000000
;000240
	.WORD	114730
	.WORD	000000
M00244:	.WORD	100000
	.WORD	100200
	.WORD	100200
	.WORD	100200
	.WORD	100200
	.WORD	100200
;000260
	.WORD	100200
	.WORD	100200
	.BYTE	200
M00265:	.BYTE	001
M00266:	.WORD	000000
M00270:	.WORD	000000
M00272:	.WORD	000002
M00274:	.WORD	000000
M00276:	.WORD	013502
;000300
T00300:	.WORD	106427,340
T00304:	.WORD	V47570,340
M00310:	.WORD	012701
	.WORD	077430
	.WORD	000240
	.WORD	105040
;000320
	.WORD	077103
	.WORD	105737
	.WORD	176564
	.WORD	100375
	.WORD	112737
	.WORD	000000
	.WORD	176566
	.WORD	106427
;000340
	.WORD	000000
	JMP	@#START
	.WORD	010000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;000360
	.WORD	000000,000
	.WORD	000000,000
	.BLKB	757
M01347:	.BLKB	326
M01675: .BLKB	407
M02304:	.BLKB	1170
M03474:	.BLKB	200
M03674:	.BLKB	200
M04074:	.BYTE	362	;stop kadr		126	000
	.BYTE	000	;pe~atx kadra		127	001
	.BYTE	000	;pauza			130	002
	.BYTE	367	;ust rev		131	003
;004100
	.BYTE	000	;f5			132	004
	.BYTE	000	;				005
	.BYTE	0 	;				006
	.BYTE	0 	;				007
	.BYTE	0 	;				010
	.BYTE	0 	;				011
	.BYTE	0 	;				012
	.BYTE	0 	;				013
	.BYTE	0 	;				014
	.BYTE	0 	;				015
	.BYTE	200 	;preryw			144	016
	.BYTE	377 	;prodol			145	017
	.BYTE	025	;otmen			146	020
	.BYTE	0 	;osnown kadr		147	021
	.BYTE	003 	;wyhod			150	022
	.BYTE	0	;				023
;004120
	.BYTE	000	;				024
	.BYTE	000	;				025
	.BYTE	000	;				026
	.BYTE	000	;				027
	.BYTE	000	;				030
	.BYTE	000	;				031
	.BYTE	000	;				032
	.BYTE	033	;f11			161	033
	.BYTE	010	;f12			162	034
	.BYTE	012	;f13			163	035
	.BYTE	000	;dop			164	036
	.BYTE	000	;				037
	.BYTE	000	;				040
	.BYTE	000	;				041
	.BYTE	000	;				042
	.BYTE	000	;				043
;004140
	.BYTE	000	;				044
	.BYTE	000	;				045
	.BYTE	341	;pm			174	046
	.BYTE	342	;isp			175	047
	.BYTE	000	;				050
	.BYTE	000	;				051
	.BYTE	310	;f17			200	052
	.BYTE	312	;f18			201	053
	.BYTE	313	;f19			202	054
	.BYTE	000	;f20			203	055
	.BYTE	000	;				056
	.BYTE	000	;				057
	.BYTE	000	;				060
	.BYTE	000	;				061
	.BYTE	000	;				062
	.BYTE	000	;				063
;004160
	.BYTE	343	;nt			212	064
	.BYTE	344	;wst			213	065
	.BYTE	345	;udal			214	066
	.BYTE	346	;wybr			215	067
	.BYTE	347	;predydu}ij kadr	216	070
	.BYTE	350	;sled. kadr		217	071
	.BYTE	000	;				072
	.BYTE	000	;				073
	.BYTE	260	;0			222	074
	.BYTE	000	;				075
	.BYTE	256	;.			224	076
	.BYTE	215	;wwod			225	077
	.BYTE	261	;1			226	100
	.BYTE	262	;2			227	101
	.BYTE	263	;3			230	102
	.BYTE	264	;4			231	103
;004200
	.BYTE	265	;5			232	104
	.BYTE	266	;6			233	105
	.BYTE	254	;,			234	106
	.BYTE	267	;7			235	107
	.BYTE	270	;8			236	110
	.BYTE	271	;9			237	111
	.BYTE	255	;-			240	112
	.BYTE	320	;pf1			241	113
	.BYTE	321	;pf2			242	114
	.BYTE	322	;pf3			243	115
	.BYTE	323	;pf4			244	116
	.BYTE	000	;				117
	.BYTE	000	;				120
	.BYTE	354	;strelka wlewo		247	121
	.BYTE	353	;strelka wprawo		250	122
	.BYTE	352	;strelka wniz		251	123
;004220
	.BYTE	351	;strelka wwerh		252	124
	.BYTE	000	;				125
	.BYTE	000	;				126
	.BYTE	000	;				127
	.BYTE	211	;wr NAVAT		256	130
	.BYTE	207	;su NAVAT		257	131
	.BYTE	210	;fks			260	132
	.BYTE	000	;kmp			261	133
	.BYTE	212	;rus/lat		262	134
	.BYTE	213	;su OTVAT/wr OTVAT	263	135
	.BYTE	214	;kod awtopowtora 	264	136
	.BYTE	000	;				137
	.BYTE	000	;				140
	.BYTE	000	;				141
	.BYTE	000	;				142
	.BYTE	000	;				143
;004240
	.BYTE	000	;				144
	.BYTE	000	;				145
	.BYTE	177	;zb			274	146
	.BYTE	015	;wk			275	147
	.BYTE	011	;tab			276	150
	.BYTE	053	;;+			277	151
	.BYTE	041	;1!			300	152
	.BYTE	112	;J			301	153
	.BYTE	106	;F			302	154
	.BYTE	121	;Q			303	155
	.BYTE	000	;_			304	156
	.BYTE	042	;2"			305	157
	.BYTE	103	;C			306	160
	.BYTE	131	;Y			307	161
	.BYTE	136	;^			310	162
	.BYTE	053	;pusto			311	163		
;004260
	.BYTE	057	;/?			312	164
	.BYTE	043	;3#			313	165
	.BYTE	125	;U			314	166
	.BYTE	127	;W			315	167
	.BYTE	123	;S			316	170
	.BYTE	000	;				171
	.BYTE	044	;4$			320	172
	.BYTE	113	;K			321	173
	.BYTE	101	;A			322	174
	.BYTE	115	;M			323	175
	.BYTE	040	;probel			324	176
	.BYTE	000	;				177
	.BYTE	045	;5%			326	200
	.BYTE	105	;E			327	201
	.BYTE	120	;P			330	202
	.BYTE	111	;I			331	203
;004300
	.BYTE	000	;6&			333	204
	.BYTE	046	;N			334	205
	.BYTE	116	;R			335	206
	.BYTE	122	;T			336	207
	.BYTE	124	;				210
	.BYTE	000	;				211
	.BYTE	047	;7'			340	212
	.BYTE	107	;G			341	213
	.BYTE	117	;O			342	214
	.BYTE	130	;X			343	215
	.BYTE	000	;				216
	.BYTE	050	;8(			345	217
	.BYTE	133	;[			346	220
	.BYTE	114	;L			347	221
	.BYTE	102	;B			350	222
	.BYTE	000	;				223
;004320
	.BYTE	051	;9)			352	224
	.BYTE	135	;]			353	225
	.BYTE	104	;D			354	226
	.BYTE	100	;@			355	227
	.BYTE	000	;				230
	.BYTE	060	;0			357	231
	.BYTE	132	;Z			360	232
	.BYTE	137	;_			361	233
	.BYTE	126	;V			362	234
	.BYTE	054	;,<			363	235
	.BYTE	000	;				236
	.BYTE	000	;strelka B bok		365	237
	.BYTE	110	;h			366	240
	.BYTE	056	;>.			367	241
	.BYTE	000	;				242
	.BYTE	055	;-=			371	243
;004340
	.BYTE	052	;:*			372	244
	.BYTE	134	;\|			373	245
	.BYTE	000	;malenxkaq wertikalxnaq	374	246
	.BYTE	000	;ps			375	247

M04344:	.WORD	000000
	.WORD	000000
	.BYTE	000
M04351:	.BYTE	017
	.WORD	000000
	.WORD	000000
M04356:	.WORD	000011
;004360
	.WORD	000000
	.BYTE	000
M04363:	.BYTE	017
M04364:	.ASCIZ	<ESC>\[0n\
M04371:	.ASCIZ	<ESC>\[>7;501c\<000>
M04404:	.WORD	047433
	.BYTE	000
M04407:	.BYTE	015
	.WORD	000012
M04412:	.WORD	055433
	.BYTE	000
M04415:	.BYTE	033
	.BYTE	000
M04417:	.BYTE	033
;004420
	.WORD	000077
M04422:	.WORD	000000
	.WORD	000000
M04426:	.WORD	000004
	.WORD	000002
	.WORD	000004
M04434:	.WORD	000004
M04436:	.WORD	004412
;004440
	.WORD	000001
M04442:	.WORD	000002
M04444:	.WORD	177400
M04446:	.WORD	000012
M04450:	.WORD	000000
M04452:	.WORD	000000
M04454:	.WORD	007544
M04456:	.WORD	010204
;004460
M04460:	.WORD	007704
M04462:	.WORD	010044
M04464:	.WORD	000000
M04466:	.WORD	000000
M04470:	.WORD	000000
M04472:	.WORD	000000
M04474:	.WORD	000011
M04476:	.WORD	000002
;004500
M04500:	.BYTE	001
M04501:	.BYTE	000
M04502:	.WORD	007544
M04504:	.WORD	007704
M04506:	.WORD	007544
M04510:	.WORD	007704
M04512:	.WORD	010204
M04514:	.WORD	010044
M04516:	.WORD	000000
;004520
M04520:	.WORD	000000
M04522:	.WORD	000002
M04524:	.WORD	000012
M04526:	.WORD	000000
M04530:	.WORD	125252
M04532:	.WORD	000000
M04534:	.WORD	000004
M04536:	.WORD	000004
;004540
M04540:	.BLKB	156
M04716:	.BLKB	2070
M07006:	.BLKB	426
M07434:	.WORD	007544
	.WORD	007704
;007440
	.WORD	007544
	.WORD	007704
	.WORD	010204
	.WORD	010044
	.WORD	000000
	.WORD	000000
	.WORD	000002
M07456:	.WORD	000012
;007460
	.WORD	000000
	.WORD	125252
	.WORD	000000
M07466:	.WORD	000004
	.WORD	000004
	.WORD	000000
M07474:	.WORD	000001
	.WORD	000001
;007500
	.WORD	000001
	.WORD	000002
M07504:	.WORD	177777
	.WORD	007777
	.WORD	000377
	.WORD	000017
M07514:	.WORD	170000
	.WORD	177400
;007520
	.WORD	177760
	.WORD	177777
M07524:	.WORD	000014
	.WORD	000010
	.WORD	000004
	.WORD	000000
M07534:	.WORD	000000
M07536:	.WORD	000117
;007540
M07540:	.WORD	000012
	.WORD	000000
M07544:	.WORD	035417
	.WORD	130074
	.WORD	036663
	.WORD	037377
	.WORD	040077
	.WORD	041101
;007560
	.WORD	053503
	.WORD	043105
	.WORD	044107
	.WORD	175662
	.WORD	132111
M07572:	.WORD	045265
	.WORD	133666
	.WORD	046113
;007600
	.WORD	047115
	.WORD	134117
	.WORD	050374
	.WORD	135271
	.WORD	136273
	.WORD	137275
	.WORD	050677
	.WORD	051376
;007620
	.WORD	052123
	.WORD	140125
	.WORD	176701
	.WORD	141702
	.WORD	142704
	.WORD	042126
	.WORD	066551
	.WORD	073157
;007640
	.WORD	056534
	.WORD	057536
	.WORD	143140
	.WORD	143541
	.WORD	144142
	.WORD	145311
	.WORD	061713
	.WORD	062314
;007660
	.WORD	147315
	.WORD	150317
	.WORD	151321
	.WORD	152323
	.WORD	153325
	.WORD	153545
	.WORD	154730
	.WORD	063332
;007700
	.WORD	064147
	.WORD	035130
M07704:	.WORD	035417
	.WORD	130074
M07710:	.WORD	036661
	.WORD	037377
	.WORD	040077
	.WORD	041101
;007720
	.WORD	053503
	.WORD	043105
	.WORD	044107
	.WORD	175662
	.WORD	132111
	.WORD	045265
	.WORD	133666
	.WORD	046113
;007740
	.WORD	047115
	.WORD	134117
M07744:	.WORD	143333
	.WORD	160334
	.WORD	144335
	.WORD	157736
	.WORD	065730
	.WORD	054554
;007760
	.WORD	055156
	.WORD	150341
	.WORD	161742
	.WORD	143721
	.WORD	154560
	.WORD	070744
	.WORD	163345
	.WORD	071347
;010000
	.WORD	071750
	.WORD	165351
	.WORD	050353
	.WORD	166754
	.WORD	136356
	.WORD	072357
	.WORD	072551
	.WORD	051133
;010020
	.WORD	052167
	.WORD	140277
	.WORD	170760
	.WORD	135301
	.WORD	171304
	.WORD	134763
	.WORD	172764
	.WORD	173766
;010040
	.WORD	074370
	.WORD	035371
	.WORD	035417
	.WORD	130074
	.WORD	036663
	.WORD	037377
	.WORD	040077
	.WORD	041101
;010060
	.WORD	053503
	.WORD	043105
	.WORD	044107
	.WORD	175662
	.WORD	132111
	.WORD	045265
	.WORD	133666
	.WORD	046113
;010100
	.WORD	047115
	.WORD	134117
	.WORD	050374
	.WORD	135271
	.WORD	136273
	.WORD	137275
	.WORD	050677
	.WORD	051376
;010120
	.WORD	052123
	.WORD	140125
	.WORD	176701
	.WORD	141702
	.WORD	142704
	.WORD	042126
	.WORD	066551
	.WORD	073157
;010140
	.WORD	056534
	.BYTE	136
M10143:	.BYTE	017

	.WORD	001001
	.WORD	101403
	.WORD	002204
	.WORD	027456
	.WORD	003005
	.WORD	004007
;010160
	.WORD	005011
	.WORD	006013
	.WORD	007015
	.WORD	010071
	.WORD	011021
	.WORD	012023
	.WORD	013025
	.WORD	014027
;010200
	.WORD	015031
	.WORD	035033
M10204:	.WORD	124472
	.WORD	015252
	.WORD	125417
	.WORD	065017
	.WORD	026261
	.WORD	026654
;010220
	.WORD	007417
	.WORD	007417
	.WORD	027456
	.WORD	030460
	.WORD	126417
	.WORD	015656
	.WORD	031017
	.WORD	032063
;010240
	.WORD	033065
	.WORD	076017
	.WORD	017035
	.WORD	017572
	.WORD	020440
	.WORD	103205
	.WORD	021442
	.WORD	022173
;010260
	.WORD	023045
	.WORD	024047
	.WORD	024417
	.WORD	077175
	.WORD	100177
	.WORD	101201
	.WORD	103571
	.WORD	104610
;010300
	.WORD	105612
	.WORD	025417
	.WORD	106614
	.WORD	107616
	.WORD	110620
	.WORD	111622
	.WORD	112624
	.WORD	113626
;010320
	.WORD	114630
	.WORD	115632
	.WORD	116017
	.WORD	117235
	.WORD	120237
	.WORD	121241
	.WORD	122052
	.WORD	123245
;010340
	.WORD	124247
	.WORD	035017
	.BLKB	300
M10644:	RTS	PC
	RTS	PC
M10650:	RTS	PC
	RTS	PC
M10654:	RTS	PC
	RTS	PC
;010660
M10660:	RTS	PC
	RTS	PC
M10664:	RTS	PC
	RTS	PC
M10670:	RTS	PC
	RTS	PC
M10674:	RTS	PC
	RTS	PC
;010700
M10700:	JMP	@#L45510
M10704:	RTS	PC
	RTS	PC
M10710:	JMP	@#L40522	
M10714:	JMP	@#L40536
;010720
M10720:	RTS	PC
	RTS	PC
M10724:	RTS	PC
	RTS	PC
M10730:	RTS	PC
	RTS	PC
M10734:	RTS	PC
	RTS	PC
;010740
M10740:	RTS	PC
	RTS	PC
M10744:	RTS	PC
M10746:	RTS	PC
M10750:	RTS	PC
	RTS	PC
M10754:	RTS	PC
	RTS	PC
;010760
M10760:	RTS	PC
	RTS	PC
M10764:	RTS	PC
M10766:	RTS	PC
M10770:	RTS	PC
	RTS	PC
M10774:	RTS	PC
	RTS	PC
;011000
M11000:	.WORD	103302
	.WORD	000000
M11004:	.WORD	000033
M11006:	.WORD	077774
M11010:	.WORD	000000
M11012:	.WORD	116700
	.WORD	120650
M11016:	.WORD	077777
;011020
M11020:	.BYTE	003
M11021:	.BYTE	002
M11022:	.BYTE	000
M11023:	.BYTE	000
M11024:	.BYTE	013
M11025:	.BYTE	000
M11026:	.BYTE	072
	.BYTE	037
M11030:	.WORD	015576
M11032:	.WORD	000000
M11034:	.WORD	000027
M11036:	.WORD	000000
;011040
M11040:	.BYTE	000
M11041:	.BYTE	000
M11042:	.BYTE	000
M11043:	.BYTE	000
M11044:	.BYTE	000
M11045:	.BYTE	000
M11046:	.BYTE	000
M11047:	.BYTE	000
M11050:	.BYTE	000
M11051:	.BYTE	000
	.WORD	012706
	.WORD	100000
	.WORD	011646
;011060
	.WORD	011646
	.WORD	000005
	.BLKB	344
;011430				;tABLICA REGENERACII ozu (NABOR 0) ]
	.LIST	MC,MD
	.NLIST	ME,CND,MEB	

	NUMB=^O052400
	.REPT	^D530
	REPIT1	\NUMB
	NUMB=NUMB-^O2400
	.ENDM

	.LIST	MEB,MC,ME,CND,MD	

M13474:	.WORD	000000
M13476:	.WORD	000000
;013500
M13500:	.WORD	000000
M13502:	.WORD	000000
M13504:	.BLKB	2070

M15574:				;tABLICA ADRESOW STROK (NABOR 0) ]
	.LIST	MC,MD
	.NLIST	ME,CND,MEB	

	NUMB=^O116534
	.REPT	^D240
	REPIT2	\NUMB
	NUMB=NUMB-^D100
	.ENDM

	.LIST	MEB,MC,ME,CND,MD	

M17474:	.BLKB	334
	.WORD	000300
	.WORD	001760
	.WORD	007774
	.WORD	001760
;020040
	.WORD	000300
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	006314
	.WORD	001460
	.WORD	006314
;020060
	.WORD	001460
	.WORD	006314
	.WORD	001460
	.WORD	006314
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	030060
;020100
	.WORD	030060
	.WORD	037760
	.WORD	030060
	.WORD	030060
	.WORD	007774
	.WORD	000300
	.WORD	000300
	.WORD	000300
;020120
	.WORD	000000
	.WORD	030000
	.WORD	030000
	.WORD	030000
	.WORD	037700
	.WORD	000377
	.WORD	000300
	.WORD	000377
;020140
	.WORD	000300
	.WORD	000300
	.WORD	000000
	.WORD	006060
	.WORD	007460
	.WORD	006360
	.WORD	006060
	.WORD	000300
;020160
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	000377
	.WORD	000000
	.WORD	006014
	.WORD	006014
	.WORD	001460
;020200
	.WORD	000300
	.WORD	000374
	.WORD	000060
	.WORD	000060
	.WORD	000060
	.WORD	000060
	.WORD	001400
	.WORD	001400
;020220
	.WORD	001400
	.WORD	001400
	.WORD	177400
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020240
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	177400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020260
	.WORD	001400
	.WORD	001400
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	001777
	.WORD	001400
;020300
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020320
	.WORD	001777
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	001400
	.WORD	001400
;020340
	.WORD	001400
	.WORD	001400
	.WORD	177777
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020360
	.WORD	177777
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020400
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	177777
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020420
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020440
	.WORD	177777
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020460
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020500
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020520
	.WORD	177777
	.WORD	000000
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001777
	.WORD	001400
;020540
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020560
	.WORD	177400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020600
	.WORD	001400
	.WORD	001400
	.WORD	177777
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;020620
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	177777
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020640
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
;020660
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	001400
	.WORD	000000
	.WORD	000003
	.WORD	000060
	.WORD	001400
;020700
	.WORD	030000
	.WORD	001400
	.WORD	000060
	.WORD	000003
	.WORD	037777
	.WORD	000000
	.WORD	000000
	.WORD	030000
;020720
	.WORD	001400
	.WORD	000060
	.WORD	000003
	.WORD	000060
	.WORD	001400
	.WORD	030000
	.WORD	037777
	.WORD	000000
;020740
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	037777
	.WORD	001460
	.WORD	001460
	.WORD	001460
	.WORD	006060
;020760
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000003
	.WORD	000060
	.WORD	037777
	.WORD	000300
	.WORD	037777
;021000
	.WORD	001400
	.WORD	030000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000074
	.WORD	000303
	.WORD	001760
;021020
	.WORD	000300
	.WORD	007760
	.WORD	030314
	.WORD	007403
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;021040
	.WORD	000000
	.WORD	000000
	.WORD	001700
	.WORD	001700
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;021060
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	037777
	.WORD	030003
	.WORD	030003
	.WORD	037777
;021100
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	000060
	.WORD	001760
	.WORD	006014
	.WORD	030003
	.WORD	037777
;021120
	.WORD	030003
	.WORD	030003
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	001400
	.WORD	001760
	.WORD	006014
;021140
	.WORD	030003
	.WORD	037777
	.WORD	030003
	.WORD	030003
	.WORD	000000
	.WORD	000000
	.WORD	007414
	.WORD	030360
;021160
	.WORD	001760
	.WORD	006014
	.WORD	030003
	.WORD	037777
	.WORD	030003
	.WORD	030003
	.WORD	000000
	.WORD	000000
;021200
	.WORD	030003
	.WORD	000000
	.WORD	001760
	.WORD	006014
	.WORD	030003
	.WORD	037777
	.WORD	030003
	.WORD	030003
;021220
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	000000
	.WORD	001760
	.WORD	006014
	.WORD	030003
	.WORD	037777
;021240
	.WORD	030003
	.WORD	030003
	.WORD	000000
	.WORD	000000
	.WORD	001400
	.WORD	000300
	.WORD	037777
	.WORD	030000
;021260
	.WORD	037774
	.WORD	030000
	.WORD	030000
	.WORD	037777
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	001400
;021300
	.WORD	037777
	.WORD	030000
	.WORD	037774
	.WORD	030000
	.WORD	030000
	.WORD	037777
	.WORD	000000
	.WORD	000000
;021320
	.WORD	030003
	.WORD	000000
	.WORD	037777
	.WORD	030000
	.WORD	037774
	.WORD	030000
	.WORD	030000
	.WORD	037777
;021340
	.WORD	000000
	.WORD	000000
	.WORD	001400
	.WORD	000300
	.WORD	007774
	.WORD	000300
	.WORD	000300
	.WORD	000300
;021360
	.WORD	000300
	.WORD	007774
	.WORD	000000
	.WORD	000000
	.WORD	000060
	.WORD	000300
	.WORD	007774
	.WORD	000300
;021400
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	007774
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	001460
;021420
	.WORD	007774
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	007774
	.WORD	000000
	.WORD	000000
;021440
	.WORD	030003
	.WORD	000000
	.WORD	007774
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	000300
	.WORD	007774
;021460
	.WORD	000000
	.WORD	000000
	.WORD	007414
	.WORD	030360
	.WORD	036003
	.WORD	031403
	.WORD	030303
	.WORD	030063
;021500
	.WORD	030017
	.WORD	030003
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000014
	.WORD	001760
	.WORD	030063
;021520
	.WORD	030303
	.WORD	031403
	.WORD	001760
	.WORD	006000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;021540
	.WORD	001760
	.WORD	006014
	.WORD	006360
	.WORD	006014
	.WORD	007414
	.WORD	006360
	.WORD	006000
	.WORD	030000
;021560
	.WORD	000000
	.WORD	001760
	.WORD	006014
	.WORD	030303
	.WORD	031463
	.WORD	031403
	.WORD	031463
	.WORD	030303
;021600
	.WORD	006014
	.WORD	001760
	.WORD	000000
	.WORD	000000
	.WORD	000303
	.WORD	001460
	.WORD	030300
	.WORD	001460
;021620
	.WORD	000303
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	001700
	.WORD	006060
	.WORD	001700
;021640
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000300
;021660
	.WORD	000300
	.WORD	037777
	.WORD	000300
	.WORD	000300
	.WORD	000000
	.WORD	037777
	.WORD	000000
	.WORD	000000
;021700
	.WORD	001700
	.WORD	006060
	.WORD	000300
	.WORD	001400
	.WORD	007760
	.WORD	000000
	.WORD	000000
	.WORD	000000
;021720
	.WORD	000000
	.WORD	000000
	.WORD	007700
	.WORD	000060
	.WORD	001700
	.WORD	000060
	.WORD	007700
	.WORD	000000
;021740
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000300
	.WORD	001700
	.WORD	000300
	.WORD	000300
;021760
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	001760
	.WORD	006014
;022000
	.WORD	006014
	.WORD	001760
	.WORD	007774
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;022020
	.WORD	000000
	.WORD	000000
	.WORD	006300
	.WORD	001460
	.WORD	000314
	.WORD	001460
	.WORD	006300
	.WORD	000000
;022040
	.WORD	000000
	.WORD	000000
	.WORD	001400
	.WORD	007414
	.WORD	001460
	.WORD	000300
	.WORD	001474
	.WORD	006314
;022060
	.WORD	001774
	.WORD	000014
	.WORD	000000
	.WORD	000000
	.WORD	001400
	.WORD	007414
	.WORD	001460
	.WORD	000300
;022100
	.WORD	001400
	.WORD	006360
	.WORD	001414
	.WORD	000060
	.WORD	001774
	.WORD	000000
	.WORD	037400
	.WORD	000300
;022120
	.WORD	007403
	.WORD	000314
	.WORD	037460
	.WORD	000314
	.WORD	001463
	.WORD	006303
	.WORD	001777
	.WORD	000003
;022140
	.WORD	000000
	.WORD	001414
	.WORD	000000
	.WORD	007714
	.WORD	001414
	.WORD	001414
	.WORD	001414
	.WORD	007714
;022160
	.WORD	000014
	.WORD	001760
;022164
	.BLKB	7614		;FONTnn
M32000:	.BLKB	3600
M35600:	.ASCIZ	<ESC>|[?1;2c|
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;035620
	.WORD	000000
	.WORD	000000
	.BYTE	000
M35625:	.BYTE	000
M35626:	.BLKB	2152
;040000

	.PAGE
	.LIST	MEB,MC
	.NLIST	ME,CND,MD	
;040000
RST:	MOVC	JMP	@#L45510,@#M10700
	MOVC	JMP	@#L40522,@#M10710
	MOVC	JMP	@#L40536,@#M10714

	.LIST	MEB,MC,ME,CND,MD	

	MOVB	#200,	<M04074+016>
	MOVB	#377,	<M04074+017>
	MOVB	#025,	<M04074+020>
	MOVB	#003,	<M04074+022>
	MOVB	#341,	<M04074+046>
	MOVB	#342,	<M04074+047>
	MOVB	#310,	<M04074+052>
	MOVB	#312,	<M04074+053>
	MOVB	#313,	<M04074+054>
	MOVB	#343,	<M04074+064>
	MOVB	#344,	<M04074+065>
	MOVB	#345,	<M04074+066>
	MOVB	#346,	<M04074+067>
	MOVB	#347,	<M04074+070>
	MOVB	#350,	<M04074+071>
	MOV	#V53504,T00060
	CLR	M40574
	MOV	#^D100,	R0
	CLR	R3
	MOV	#M40750,R4
1$:	MOV	#004,	R1
2$:	MOVB	R3,	(R4)+
	SOB	R1,	2$
	INC	R3
	SOB	R0,	1$
	MOV	#M42410,R4
	MOV	#^D100,	R0
3$:	MOV	#007777,R3
	MOV	#004,	R1
4$:	MOV	R3,	(R4)+
	SEC
	ROR	R3
	ROR	R3
	ROR	R3
	ROR	R3
	SOB	R1,	4$
	SOB	R0,	3$
	MOV	#-001,	M40716
	MOV	#357,	M40630
	MOV	#617,	M40624
	CLR	M40622
	CLR	M40626
	MOV	#M40646,R0
	MOV	#-001,	(R0)+
	MOV	#-001,	(R0)+
	MOV	#052525,(R0)+
	MOV	#114631,(R0)+
	MOV	#160741,(R0)+
	MOV	#177001,(R0)+
	MOV	#144711,(R0)+
	MOV	#177171,(R0)+
	MOV	#174631,(R0)+
	MOV	#020,	M40644
	CLR	M40642
	MOV	#010,	M40576
	MOV	#012,	M40600
	MOV	#001,	M40602
	MOV	#001,	M40604
	MOV	#001,	M40610
	MOV	#000,	M40614
	MOV	#000,	M40606
	MOV	#004,	M40612
	MOV	#V47570,T00304
	MOV	#340,	<T00304+2>
	MTPS	#000
	MOV	#177600,M04444
	RTS	PC

;-------------------------------------------------------

L40522:	INCB	M04344
	BICB	#300,	M04344
	BR	L40550
L40536:	INCB	M04351
	BICB	#300,	M04351
L40550:	MOV	(SP)+,	R4
	MOV	R2,	-(SP)
	MOV	#M04344,R0
	JMP	L00512

M40564:	.WORD	000
M40566:	.WORD	000
M40570:	.WORD	000
M40572:	.WORD	000
M40574:	.WORD	000
M40576:	.WORD	010
M40600:	.WORD	012
M40602:	.WORD	001
M40604:	.WORD	001
M40606:	.WORD	000
M40610:	.WORD	001
M40612:	.WORD	004
M40614:	.WORD	000
M40616:	.BYTE	000
M40617:	.BYTE	000
M40620:	.BYTE	000
M40621:	.BYTE	000
M40622:	.WORD	000
M40624:	.WORD	617
M40626:	.WORD	000
M40630:	.WORD	357
M40632:	.WORD	000
M40634:	.WORD	000
M40636:	.WORD	000
M40640:	.WORD	000
M40642:	.WORD	000
M40644:	.WORD	020
M40646:	.WORD	-001
	.WORD	-001
	.WORD	052525
	.WORD	114631
	.WORD	160741
	.WORD	177001
	.WORD	144711
	.WORD	177171
	.WORD	174631

M40670:	.WORD	000
M40672:	.WORD	000
M40674:	.WORD	000
M40676:	.WORD	000
M40700:	.WORD	000
M40702:	.WORD	000
M40704:	.WORD	000
M40706:	.WORD	000
M40710:	.WORD	000
M40712:	.WORD	000
M40714:	.WORD	000
M40716:	.WORD	-001
M40720:	.WORD	000
M40722:	.WORD	000
M40724:	.WORD	000
M40726:	.WORD	000
M40730:	.WORD	000
M40732:	.WORD	000
M40734:	.WORD	000
M40736:	.WORD	000
M40740:	.WORD	000
M40742:	.WORD	000
M40744:	.WORD	000
M40746:	.WORD	000
M40750:

	.LIST	MC,MD
	.NLIST	ME,CND,MEB	

	NUMB=0
	.REPT	^O144
	REPIT4	\NUMB
	NUMB=NUMB+1.
	.ENDM

	.LIST	MEB,MC,ME,CND,MD	

	.BLKW	310

	.LIST	MC,MD
	.NLIST	ME,CND,MEB,LOC
M42410:
	.REPT	^D100
	.WORD	007777,170377,177417,177760
	.ENDM

	.LIST	MEB,MC,ME,CND,MD,LOC	

	.BLKW	620

L45510:	CMP	R0,	#'M
	BNE	L45774
	BIS	#200,	@#RI0
	MOV	M04444,	(SP)
	MOV	M04442,	-(SP)
	CLR	M04442
	MOV	#177400,M04444
	JSR	PC,	S45776
	BLT	1$
	CMP	R0,	#021
	BGT	1$
	ASL	R0
	JSR	PC,	@M46414(R0)
1$:	BIC	#200,	@#RI0
	MOV	(SP)+,	M04442
	MOV	(SP)+,	M04444
	JMP	S01766

S45612:	JSR	PC,	S02270
	MOV	R0,	R1
	JSR	PC,	S02270
	SWAB	R1
	BIS	R1,	R0
	RTS	PC
S45632:	MOV	#M04344,R1
	MOV	#020,	R2
1$:	JSR	PC,	S45776
	MOVB	R0,	(R1)+
	SOB	R2,	1$
	JSR	PC,	S45612
	MOV	R0,	R2
	JSR	PC,	S45612
	MOV	R0,	R5
	CLR	R3
2$:	MOV	R2,	R4
	MOV	<M15574+2>(R3),	KRA
3$:	JSR	PC,	S45612
	MOV	R0,	KRD
	INC	KRA
	SOB	R4,	3$
	ADD	#004,	R3
	SOB	R5,	2$
	RTS	PC
S45726:	JSR	PC,	S02270
	SUB	#040,	R0
	SWAB	R0
	MOV	R0,	M40620
	JSR	PC,	S02270
	SUB	#040,	R0
	ASH	#002,	R0
	MOVB	R0,	M40620
	ASR	M40620
	ASR	M40620
L45774:	RTS	PC
S45776:	JSR	PC,	S02270
	SUB	#040,	R0
	RTS	PC
S46010:	JSR	PC,	S45776
	CLR	R1
	BISB	R0,	R1
	ASH	#004,	R1
	BISB	R0,	R1
	ASH	#004,	R1
	BISB	R0,	R1
	ASH	#004,	R1
	BISB	R0,	R1
	MOV	R1,	M40716
	RTS	PC
S46050:	MOV	M40716,	-(SP)
	JSR	PC,	S46010
	MOV	M40716,	M04530
	MOV	(SP)+,	M40716
	RTS	PC
S46074:	JSR	PC,	S45776
	MOV	R0,	R1
	JSR	PC,	S45776
	MTPS	#340
	MOVB	R0,	M04344(R1)
	MOV	(SP),	-(SP)
	CLR	2(SP)
	JMP	V00464
S46130:	JSR	PC,	S45776
	BIC	#-010,	R0
	ASL	R0
	MOV	<M40646+2>(R0),	M40646
	RTS	PC
S46152:	MOV	#006,	M40642
	MOV	#020,	M40644
	JSR	PC,	S45776
	DEC	R0
	BLT	3$
	BEQ	2$
	CMP	#001,	R0
	BEQ	1$
	CLR	M40642
	RTS	PC
1$:	SUB	#010,	M40644
2$:	SUB	#010,	M40644
3$:	RTS	PC
S46232:	JSR	PC,	S45726
	TST	M40620
	BLT	1$
	CMP	M40620,	#^D400
	BGE	1$
	MOV	M40620,	M40622
1$:	JSR	PC,	S45726
	TST	M40620
	BLT	2$
	CMP	M40620,	#^D240
	BGE	2$
	MOV	M40620,	M40626
2$:	JSR	PC,	S45726
	CMP	M40620,	M40622
	BLT	3$
	CMP	#617,	M40620
	BGE	4$
3$:	MOV	#617,	M40620
4$:	MOV	M40620,	M40624
	JSR	PC,	S45726
	CMP	M40620,	M40626
	BLT	5$
	CMP	#357,	M40620
	BGE	6$
5$:	MOV	#357,	M40620
6$:	MOV	M40620,	M40630
	RTS	PC

M46414:
	.WORD	S50606
	.WORD	S46010
	.WORD	S46074
	.WORD	S46130
	.WORD	S46152
	.WORD	S52070
	.WORD	S51326
	.WORD	S46232
	.WORD	S50052
	.WORD	S53022
	.WORD	S47174
	.WORD	S47216
	.WORD	S46050
	.WORD	S45632
	.WORD	S46534
	.WORD	S50076
	.WORD	S47730
	.WORD	S47704
	.WORD	S50020

S46462:	MOVB	M40750(R0),	R2
	MOV	R1,	R3
	ASH	#002,	R3
	ADD	<M15574+2>(R3),	R2
	MOV	R2,	KRA
	MOV	R0,	R3
	ASL	R3
	MOV	M42410(R3),	R3
	MOV	M40716,	R2
	MOV	KRD,	R4
	BIC	R3,	R2
	BIC	R3,	R4
	CMP	R2,	R4
	RTS	PC
S46534:	JSR	PC,	S45726
	MOV	M40620,	R2
	JSR	PC,	S45726
	MOV	M40646,	-(SP)
L46554:	MOV	SP,	#000
	MOV	R2,	-(SP)
	MOV	M40620,	-(SP)
L46566:	CMP	SP,	<L46554+2>
	BNE	1$
	MOV	(SP)+,	M40646
	RTS	PC
1$:	MOV	(SP)+,	R1
	MOV	(SP)+,	R0
	CMP	R1,	M40626
	BLT	L46566
	CMP	R1,	M40630
	BGT	L46566
	JSR	PC,	S46462
	BEQ	L46566
2$:	INC	R0
	CMP	R0,	M40624
	BGT	3$
	JSR	PC,	S46462
	BNE	2$
3$:	DEC	R0
	BR	L47072
L46652:	INC	#000
L46656:	INC	#000
	BR	L46672
L46664:	INC	<L46656+2>
L46670:	INC	R1
L46672:	DEC	R0
	CMP	R0,	M40622
	BLT	1$
	CMP	R0,	M40624
	BGT	L46566
	CMP	R1,	M40626
	BLT	L46566
	CMP	R1,	M40630
	BGT	1$
	JSR	PC,	S46462
	BNE	L47122
1$:	INC	R0
	CMP	R0,	M40622
	BGE	2$
	MOV	M40622,	R0
2$:	CMP	R1,	M40630
	BGT	L46566
	CLR	M40632
	MOV	<L47102+2>,	R4
	SUB	R0,	R4
	INC	R4
	MOV	R0,	-(SP)
	MOV	R0,	R2
	MOV	R1,	R3
	ASH	#002,	R3
	JSR	PC,	S51072
	MOV	(SP)+,	R0
	BR	L46566
L47012:	INC	<L46652+2>
L47016:	SUB	#002,	R1
	CMP	R1,	M40626
	BLT	L46664
	CMP	R1,	M40630
	BGT	L46664
	JSR	PC,	S46462
	BEQ	L47064
	TST	<L46656+2>
	BEQ	L46670
	MOV	R0,	-(SP)
	MOV	R1,	-(SP)
	CLR	<L46656+2>
	BR	L46670
L47064:	INC	<L46656+2>
	BR	L46670
L47072:	INC	<L46652+2>
	INC	<L46656+2>
L47102:	MOV	R0,	#000
	CMP	R0,	M40622
	BLT	L46652
	CMP	R0,	M40624
	BGT	L46652
L47122:	INC	R1
	CMP	R1,	M40626
	BLT	L47012
	CMP	R1,	M40630
	BGT	L47012
	JSR	PC,	S46462
	BEQ	1$
	TST	<L46652+2>
	BEQ	L47016
	MOV	R0,	-(SP)
	MOV	R1,	-(SP)
	CLR	<L46652+2>
	BR	L47016
1$:	INC	<L46652+2>
	BR	L47016
S47174:	JSR	PC,	S45776
	MOV	R0,	M40602
	JSR	PC,	S45776
	MOV	R0,	M40604
	RTS	PC
S47216:	JSR	PC,	S45776
	BIC	#-10,	R0
	ASH	#003,	R0
	ADD	#M47260,R0
	MOV	(R0)+,	M40610
	MOV	(R0)+,	M40614
	MOV	(R0)+,	M40606
	MOV	(R0)+,	M40612
	RTS	PC

M47260:	.WORD	000001
	.WORD	000000
	.WORD	000000
	.WORD	000004
	.WORD	000001
	.WORD	000004
	.WORD	177777
	.WORD	000004
	.WORD	000000
	.WORD	000004
	.WORD	177777
	.WORD	000000
	.WORD	177777
	.WORD	000004
	.WORD	177777
	.WORD	177774
	.WORD	177777
	.WORD	000000
	.WORD	000000
	.WORD	177774
	.WORD	177777
	.WORD	177774
	.WORD	000001
	.WORD	177774
	.WORD	000000
	.WORD	177774
	.WORD	000001
	.WORD	000000
	.WORD	000001
	.WORD	177774
	.WORD	000001
	.WORD	000004

V47360:	MOV	R0,	-(SP)
	MOV	R1,	-(SP)
	MOV	R2,	-(SP)
	MOV	R3,	-(SP)
	MOV	R4,	-(SP)
	MOV	R5,	-(SP)
	MOV	KRA,	-(SP)
	MOV	M40724,	R5
	MOV	M40726,	R1
	ASH	#002,	R1
	MOVB	M40750(R5),	R2
	ADD	<M15574+2>(R1),	R2
	MOV	R2,	KRA
	MOV	M42410(R5),	R5
	XOR	R5,	KRD
	CLR	M40734
	CLR	M40736
	JSR	PC,	S47674
	ADC	M40736
	MOV	R0,	R1
	JSR	PC,	S47636
	ADC	M40734
	MOV	M40732,	R2
	MOV	R1,	M40732
	MOV	#M40726,R3
	MOV	#357,	R4
	JSR	PC,	S47572
	MOV	R0,	R1
	MOV	M40730,	R2
	MOV	R1,	M40730
	MOV	#M40724,R3
	MOV	#617,	R4
	JSR	PC,	S47572
	XOR	R5,	KRD
	MOV	(SP)+,	KRA
	MOV	(SP)+,	R5
	MOV	(SP)+,	R4
	MOV	(SP)+,	R3
	MOV	(SP)+,	R2
	MOV	(SP)+,	R1
	MOV	(SP)+,	R0
V47570:	RTI

S47572:	SUB	R1,	R2
	CMP	R2,	#003
	BLE	1$
	SUB	#010,	R2
1$:	CMP	R2,	#-003
	BGE	2$
	ADD	#010,	R2
2$:	SUB	R2,	(R3)
	BGE	3$
	CLR	(R3)
3$:	CMP	R4,	(R3)
	BGE	4$
	MOV	R4,	(R3)
4$:	RTS	PC
S47636:	MOVB	#204,	@#RI0
L47644:	MOVB	@#KRPHI,	R0
	CMPB	@#M01675,	R0
	BNE	L47644
	BITB	#010,	R0
	BEQ	1$
	SEC
1$:	BIC	#-10,R0
	RTS	PC
S47674:	MOVB	#200,	@#RI0
	BR	L47644
S47704:	BIC	#040,	@#KRS
	MOV	#V47570,T00304
	MOV	#V00322,T00100
	RTS	PC
S47730:	MTPS	#340
	MOV	#V47570,T00100
	MOV	#V47360,T00304
	MOV	#M40724,R5
	CLR	M40634
	CLR	(R5)+
	CLR	(R5)+
	JSR	PC,	S47636
	MOV	R0,	(R5)+
	JSR	PC,	S47674
	MOV	R0,	(R5)+
	CLR	(R5)+
	CLR	(R5)+
	BIS	#040,	@#KRS
	MTPS	#000
	RTS	PC
S50020:	TST	M40734
	BNE	S50020
	MOV	M40724,	R3
	MOV	M40726,	R1
	JSR	PC,	S50120
	TST	M40736
	BNE	S50020
	RTS	PC
S50052:	MOV	M40646,	R5
	MOV	#-001,	M40646
	JSR	PC,	S50076
	MOV	R5,	M40646
	RTS	PC
S50076:	JSR	PC,	S45726
	MOV	M40620,	R3
	JSR	PC,	S45726
	MOV	M40620,	R2
	MOV	R3,	R0
S50120:	CMP	R0,	M40622
	BLT	L50240
	CMP	R0,	M40624
	BGT	L50240
	CMP	R2,	M40626
	BLT	L50240
	CMP	R2,	M40630
	BGT	L50240
	ASL	M40646
	BCC	L50240
	INC	M40646
	ASH	#002,	R2
	MOVB	M40750(R0),	R3
	ADD	<M15574+2>(R2),	R3
	MOV	R3,	KRA
	MOV	M40716,	R3
	ASL	R0
	ADD	M40642,	PC
	MOV	KRD,	R2
	XOR	R2,	R3
	BIC	M42410(R0),	R3
	ASR	R0
	ADD	M40644,	PC
L50234:	BIS	R3,	KRD
L50240:	RTS	PC
L50242:	NOP
L50244:	BIC	R3,	KRD
	RTS	PC
L50252:	NOP
L50254:	XOR	R3,	KRD
	RTS	PC
S50262:	CLR	R0
	CMP	R2,	M40622
	BGE	1$
	INC	R0
	BR	2$
1$:	CMP	R2,	M40624
	BLE	2$
	BIS	#002,	R0
2$:	CMP	R3,	M40626
	BGE	3$
	BIS	#004,	R0
	RTS	PC
3$:	CMP	R3,	M40630
	BLE	4$
	BIS	#010,	R0
4$:	RTS	PC
L50340:	MOV	M40744,	R4
	MOV	M40746,	R5
	MOV	R4,	R2
	MOV	R5,	R3
	JSR	PC,	S50262
L50360:	MOV	R0,	#000
	MOV	M40740,	R2
	SUB	R2,	R4
	MOV	M40742,	R3
	SUB	R3,	R5
1$:	JSR	PC,	S50262
	BIT	R0,	<L50360+2>
	BEQ	2$
	RTS	PC
2$:	TST	<L50360+2>
	BNE	3$
	TST	R0
	BNE	4$
	MOV	R2,	M40740
	MOV	R3,	M40742
	BR	L50662
3$:	TST	R0
	BNE	4$
	MOV	M40744,	R0
	MOV	R2,	M40744
	MOV	R0,	R2
	MOV	M40746,	R0
	MOV	R3,	M40746
	MOV	R0,	R3
	MOV	<L50360+2>,	R0
	CLR	<L50360+2>
	NEG	R4
	NEG	R5
4$:	BIT	#001,	R0
	BEQ	6$
	MOV	M40622,	R1
5$:	MOV	R1,	R0
	SUB	R2,	R0
	MOV	R1,	R2
	MUL	R5,	R0
	DIV	R4,	R0
	ADD	R0,	R3
	BR	1$
6$:	BIT	#002,	R0
	BEQ	7$
	MOV	M40624,	R1
	BR	5$
7$:	BIT	#004,	R0
	BEQ	9$
	MOV	M40626,	R1
8$:	MOV	R1,	R0
	SUB	R3,	R0
	MOV	R1,	R3
	MUL	R4,	R0
	DIV	R5,	R0
	ADD	R0,	R2
	BR	1$
9$:	MOV	M40630,	R1
	BR	8$
S50606:	JSR	PC,	S45726
	MOV	M40620,	M40740
	JSR	PC,	S45726
	MOV	M40620,	M40742
	JSR	PC,	S45726
	MOV	M40620,	M40744
	JSR	PC,	S45726
	MOV	M40620,	M40746
	JMP	L50340
L50662:	MOV	M40740,	R2
	MOV	M40742,	R3
	MOV	M40744,	R4
	MOV	M40746,	R5
	MOV	R5,	R1
	MOV	R4,	R0
	SUB	R3,	R1
	SUB	R2,	R0
	BPL	1$
	NEG	R0
	NEG	R1
	MOV	R4,	R2
	MOV	R5,	R3
1$:	ASH	#002,	R3
	MOV	#004,	M40720
	TST	R1
	BPL	2$
	NEG	M40720
	NEG	R1
2$:	CMP	R0,	R1
	BGT	3$
	BLT	4$
	MOV	R0,	R4
	INC	R4
	MOV	#-001,	R1
	MOV	R1,	M40632
	BR	S51072
3$:	MOV	R0,	R4
	MOV	R1,	R0
	CLR	R1
	ASR	R0
	ROR	R1
	DIV	R4,	R0
	ASL	R0
	MOV	R0,	M40632
	INC	R4
	MOV	#100000,R1
	BR	S51072
4$:	MOV	R1,	R4
	CLR	R1
	ASR	R0
	ROR	R1
	DIV	R4,	R0
	ASL	R0
	MOV	R0,	M40632
	INC	R4
	MOV	#100000,R1
	BR	S51216
L51056:	ADD	M40632,	R1
	BCC	1$
	ADD	M40720,	R3
1$:	INC	R2
S51072:	ASL	M40646
	BCC	L51156
	ADC	M40646
	MOVB	M40750(R2),	R5
	ADD	<M15574+2>(R3),	R5
	MOV	R5,	KRA
	MOV	M40716,	R5
	ASL	R2
	ADD	M40642,	PC
	MOV	KRD,	R0		;-1
	XOR	R0,	R5
	BIC	M42410(R2),	R5
	ASR	R2
	ADD	M40644,	PC		;0
	BIS	R5,	KRD		;1
L51156:	SOB	R4,	L51056
	RTS	PC
	BIC	R5,	KRD		;2
	SOB	R4,	L51056
	RTS	PC
	XOR	R5,	KRD		;3
	SOB	R4,	L51056
	RTS	PC
L51202:	ADD	M40632,	R1
	BCC	1$
	INC	R2
1$:	ADD	M40720,	R3
S51216:	ASL	M40646
	BCC	L51302
	ADC	M40646
	MOVB	M40750(R2),	R5
	ADD	<M15574+2>(R3),	R5
	MOV	R5,	KRA
	MOV	M40716,	R5
	ASL	R2
	ADD	M40642,	PC
	MOV	KRD	,R0		;-1
	XOR	R0,	R5
	BIC	M42410(R2),	R5
	ASR	R2
	ADD	M40644,	PC		;0
	BIS	R5,	KRD		;1
L51302:	SOB	R4,	L51202
	RTS	PC
	BIC	R5,	KRD		;2
	SOB	R4,	L51202
	RTS	PC
	XOR	R5,	KRD		;3
	SOB	R4,	L51202
	RTS	PC
S51326:	CLR	M40620
	MOV	M40716,	R2
	MOV	M40622,	R0
	MOVB	M40750(R0),	M40620
	MOV	R0,	R4
	MOV	R2,	R3
	BIC	#-004,	R4
	MOV	M51704(R4),	M40636
	BIC	M40636,	R3
	BIC	#003,	R0
	MOV	M40624,	R1
	MOV	R2,	R4
	MOV	R1,	R5
	BIC	#-004,	R5
	MOVB	M51714(R5),	M40640
	BIC	M40640,	R4
	BIC	#003,	R1
	SUB	R0,	R1
	ASH	#-002,R1
	DEC	R1
	MOV	M40630,	R5
	ASH	#002,	R5
	ASL	M40626
	ASL	M40626
	JSR	PC,	S45776
	DEC	R0
	BEQ	L51622
	BMI	L51724
	CMP	#001,	R0
	BEQ	L52006
	MOV	M40636,	R3
	MOV	M40640,	R4
1$:	MOV	<M15574+2>(R5),	KRA
	ADD	M40620,	KRA
	MOV	KRD,	R0
	XOR	R2,	R0
	BIC	R3,	R0
	XOR	R0,	KRD
	INC	KRA
	MOV	R1,	R0
	BEQ	3$
2$:	MOV	R2,	KRD
	INC	KRA
	SOB	R0,	2$
3$:	MOV	KRD,	R0
	XOR	R2,	R0
	BIC	R4,	R0
	XOR	R0,	KRD
	SUB	#004,	R5
	CMP	R5,	M40626
	BGE	1$
L51610:	ASR	M40626
	ASR	M40626
	RTS	PC
L51622:	MOV	<M15574+2>(R5),	KRA
	ADD	M40620,	KRA
	BIC	R3,	KRD
	INC	KRA
	MOV	R1,	R0
	BEQ	2$
1$:	BIC	R2,	KRD
	INC	KRA
	SOB	R0,	1$
2$:	BIC	R4,	KRD
	SUB	#004,	R5
	CMP	R5,	M40626
	BGE	L51622
	BR	L51610

M51704:	.WORD	0
	.WORD	170000
	.WORD	177400
	.WORD	177760
M51714:	.BYTE	377
	.BYTE	017
	.BYTE	377
	.BYTE	000
	.BYTE	017
	.BYTE	000
	.BYTE	000
	.BYTE	000

L51724:	MOV	<M15574+2>(R5),	KRA
	ADD	M40620,	KRA
	XOR	R3,	KRD
	INC	KRA
	MOV	R1,	R0
	BEQ	2$
1$:	XOR	R2,	KRD
	INC	KRA
	SOB	R0,	1$
2$:	XOR	R4,	KRD
	SUB	#004,	R5
	CMP	R5,	M40626
	BGE	L51724
	BR	L51610
L52006:	MOV	<M15574+2>(R5),	KRA
	ADD	M40620,	KRA
	BIS	R3,	KRD
	INC	KRA
	MOV	R1,	R0
	BEQ	2$
1$:	BIS	R2,	KRD
	INC	KRA
	SOB	R0,	1$
2$:	BIS	R4,	KRD
	SUB	#004,	R5
	CMP	R5,	M40626
	BGE	L52006
	BR	L51610
S52070:	CLR	M40712
	MOV	#002,	M40710
	JSR	PC,	S45776
	TST	R0
	BEQ	1$
	NEG	M40710
1$:	JSR	PC,	S45726
	MOV	M40620,	M40706
	JSR	PC,	S45726
	MOV	M40620,	M40702
	JSR	PC,	S45726
	MOV	M40620,	M40704
	JSR	PC,	S45726
	SUB	M40702,	M40620
	MOV	M40620,	M40676
	JSR	PC,	S45726
	SUB	M40704,	M40620
	MOV	M40620,	M40700
	MOV	M40676,	R0
	MOV	M40700,	R1
	JSR	PC,	S52422
	MOV	R4,	M40670
	JSR	PC,	S45726
	SUB	M40702,	M40620
	MOV	M40620,	M40672
	JSR	PC,	S45726
	SUB	M40704,	M40620
	MOV	M40620,	M40674
	MOV	M40674,	R1
	MOV	M40672,	R0
	JSR	PC,	S52422
	CLR	R5
	MOV	#001,	M40714
	BR	L52566

M52322:	.WORD	S52372
	.WORD	S52402
	.WORD	S52402
	.WORD	S52412
	.WORD	S52412
	.WORD	S52362
	.WORD	S52362
	.WORD	S52372
M52342:	.WORD	S52402
	.WORD	S52372
	.WORD	S52412
	.WORD	S52402
	.WORD	S52362
	.WORD	S52412
	.WORD	S52372
	.WORD	S52362

S52362:	ADD	R0,	R5
	ADD	R0,	R5
	INC	R0
	RTS	PC
S52372:	ADD	R1,	R5
	ADD	R1,	R5
	INC	R1
	RTS	PC
S52402:	SUB	R0,	R5
	SUB	R0,	R5
	DEC	R0
	RTS	PC
S52412:	SUB	R1,	R5
	SUB	R1,	R5
	DEC	R1
	RTS	PC
S52422:	MOV	#014,	R4
	MOV	R0,	R2
	BEQ	6$
	BGT	1$
	NEG	R2
	BIC	#004,	R4
1$:	MOV	R1,	R3
	BGT	2$
	BEQ	7$
	NEG	R3
2$:	INC	R4
	MOV	R1,	R5
	CMP	R2,	R3
	BEQ	5$
	BLT	3$
	DEC	R4
3$:	MOV	#001,	R3
	XOR	R0,	R5
	BMI	4$
	INC	R3
4$:	XOR	R3,	R4
	BR	9$
5$:	XOR	R0,	R5
	BMI	8$
	BR	7$
6$:	TST	R1
	BMI	8$
	SUB	#006,	R4
7$:	ADD	#002,	R4
8$:	TST	M40710
	BPL	9$
	DEC	R4
9$:	ADD	M40710,	R4
	BIC	#-010,	R4
	ASL	R4
	RTS	PC
L52552:	INC	M40714
L52556:	ADD	M40710,	R4
	BIC	#-020,	R4
L52566:	INC	M40712
	ADD	M40702,	R0
	MOV	R1,	R2
	ADD	M40704,	R2
	JSR	PC,	S50120
	SUB	M40702,	R0
	JSR	PC,	@M52322(R4)
	INC	R5
	MOV	R5,	R3
	BPL	1$
	NEG	R3
1$:	CMP	R3,	M40706
	BLT	2$
	JSR	PC,	@M52342(R4)
	INC	R5
2$:	CMP	R4,	M40670
	BEQ	7$
	MOV	R0,	R2
	BEQ	L52552
	BPL	3$
	NEG	R2
3$:	MOV	R1,	R3
	BEQ	L52552
	BPL	4$
	NEG	R3
4$:	TST	M40714
	BEQ	L52566
	SUB	R2,	R3
	BNE	5$
	CLR	M40714
	BR	L52556
5$:	BPL	6$
	NEG	R3
6$:	CMP	#001,	R3
	BNE	L52566
	CLR	M40714
	BR	L52556
7$:	CMP	R0,	M40676
	BEQ	8$
	CMP	R1,	M40700
	BNE	L52566
8$:	ADD	M40702,	R0
	MOV	R0,	M40740
	ADD	M40704,	R1
	MOV	R1,	M40742
	MOV	M40676,	M40744
	ADD	M40702,	M40744
	MOV	M40700,	M40746
	ADD	M40704,	M40746
	JMP	L50340
S53022:	JSR	PC,	S45776
	BPL	3$
	CMP	R0,	#177756
	BNE	1$
	MOV	#001,	M40574
	BR	2$
1$:	CMP	R0,	#177757
	BNE	2$
	CLR	M40574
2$:	JSR	PC,	S45726
	JMP	S45726
3$:	TST	M40574
	BEQ	4$
	ADD	#M07704,R0
	BR	5$
4$:	ADD	#M07544,R0
5$:	MOVB	(R0),	R1
	BIC	#177400,R1
	MUL	#012,	R1
	ADD	#112247,R1		;????
	MOV	R1,	M40616
	JSR	PC,	S45726
	MOV	M40620,	R2
	JSR	PC,	S45726
	MOV	M40620,	R1
	ASH	#002,	R1
	MOV	R2,	R0
	TST	M40604
	BNE	6$
	JMP	L53502
6$:	TST	M40602
	BNE	7$
	JMP	L53502
7$:	MOV	M40716,	R2
	MOV	M40600,	M40564
8$:	MOV	M40604,	M40566
9$:	MOVB	@M40616,R3
	BEQ	14$
	MOV	R0,	-(SP)
	MOV	R1,	-(SP)
	MOV	M40576,	M40570
10$:	BIC	#177400,R3
	ASLB	R3
	BCC	11$
	BIS	#100000,R3
11$:	MOV	M40602,	M40572
12$:	TST	R3
	BPL	13$
	CMP	R0,	M40622
	BLT	13$
	CMP	R0,	M40624
	BGT	13$
	ASH	#-002,	R1
	CMP	R1,	M40630
	BGT	13$
	CMP	R1,	M40626
	BLT	13$
	ASH	#002,	R1
	MOVB	M40750(R0),	R5
	ADD	<M15574+2>(R1),	R5
	MOV	R5,	KRA
	MOV	R2,	R5
	ASL	R0
	ADD	M40642,	PC
	MOV	KRD,	R4		;-1
	XOR	R4,	R5
	BIC	M42410(R0),	R5
	ASR	R0
	ADD	M40644,	PC		;0
	BIS	R5,	KRD		;1
	BR	13$
	NOP
	BIC	R5,	KRD		;2
	BR	13$
	NOP
	XOR	R5,	KRD		;3
13$:	ADD	M40614,	R1
	ADD	M40610,	R0
	DEC	M40572
	BNE	12$
	DEC	M40570
	BNE	10$
	MOV	(SP)+,	R1
	MOV	(SP)+,	R0
14$:	ADD	M40612,	R1
	ADD	M40606,	R0
	DEC	M40566
	BNE	9$
	DEC	M40616
	DEC	M40564
	BNE	8$
L53502:	RTS	PC

V53504:	CMP	(SP),	#S07176
	BCS	1$
	CMP	(SP),	#L07210
	BHI	1$
	TST	@#TKB
	RTI

1$:	CMPB	TKB,	#274
	BEQ	L53546
L53536:	MTPS	#000
	JMP	V10074
L53546:	MOV	#274,	M11036
	BR	L53536

L53556:	.BLKB	<077746-053556>

	.WORD	044050		;077746
	.WORD	017777		;077750
	.WORD	000000		;077752
	.WORD	044050		;077754
	.WORD	100756		;077756
	.WORD	100756		;077760
	.WORD	100772		;077762
	.WORD	S01766		;077764 
	.WORD	S02350		;077766	<== SP
	.WORD	102740		;077770
	.WORD	S02350		;077772
	.WORD	START		;077774
	.WORD	START		;077776

T00000:	.WORD	START,000340
T00004:	.WORD	START,000340
T00006:	.WORD	START,000340
L00014:	BIC	R2,	R0			
	MOV	R0,	-(R0)			
	BGE	L00042				
	BR	L00030				
S00024:	COMB	M11023				
L00030:	BEQ	L00042				
	MOVB	M04351,	M11024			
	BR	L00050				
L00042:	MOVB	M04356,	M11024			
L00050:	ADD	M04442,	PC			
	RTS	PC				
	ADD	M04450,	KRA			
	MOV	M04516,	R4			
	ASL	R4				
	TST	M04476				
	BNE	1$
	ASL	R4				
	JSR	PC,	(PC)			
1$:	MOV	KRA,	-(SP)			
	BIC	#177770,R4			
	ADD	M07474(R4),	(SP)		
	MOV	M07504(R4),	R1		
	MOV	M07514(R4),	R2		
	MOV	M04446,	R3			
2$:	XOR	R1,	KRD		;DWE KOLONKI W TEKU]EJ POZICII ]
	INC	KRA				
	XOR	R2,	KRD			
	ADD	#143,	KRA			
	SOB	R3,	2$
	MOV	(SP)+,	KRA			
	TST	(R4)+				
	RTS	PC				
T00170:	.WORD	START,000340			
T00174:	.WORD	START,000340
S00200:	JSR	PC,	S00226			
	BR	S00226				
S00206:	ASH	#002,	R4			
	ASH	#002,	R3			
	BCC	L00232				
	BIS	#060,	R4			
	BR	L00232				
S00226:	ASH	#002,	R4			
L00232:	ASH	#002,	R3			
	BCC	1$
	BIS	#060,	R4			
1$:	RTS	PC				
S00246:	MOV	#010,	R3		;P/P FORMIROWANIQ STROKI SLOWA gozu ]	
	CLR	R4			;IZ R5 MATRICA  ]
1$:	ASH	#002,	R4			
	ASLB	R5				
	BCC	2$
	BIS	#003,	R4			
2$:	SOB	R3,	1$
	RTS	PC				
T00274:	.WORD	START,000340
S00300:	CLR	-(SP)			; DISPE^ER PODPROGRAM ]
1$:	MOV	(R4)+,	(SP)			
	BEQ	2$
	CMP	(R4)+,	R0			
	BNE	1$
	MOV	(SP)+,	R4			
	RTS	R4				
2$:	TST	(SP)+				
	RTS	R4				

V00322:	MOV	R0,	-(SP)			
	MOV	R1,	-(SP)			
	MOV	R2,	-(SP)			
	MOV	R3,	-(SP)			
	MOV	R4,	-(SP)			
	DEC	M11016				
	BNE	2$
	DECB	M11020				
	BNE	1$
	MOV	#V00464,@#100			
	COMB	M11020				
	MOV	#L12464,R0			
	CMP	(SP)+,	(SP)+			
	BR	L00512				
1$:	MOV	#077777,M11016			
2$:	TSTB	M11025				
	BNE	L00536				
	TSTB	M11022				
	BEQ	L00702				
	DECB	M11021				
	BNE	L00702				
	MOV	KRA,	-(SP)			
	JSR	PC,	S00024			
	MOVB	#036,	M11021			
	MOV	(SP)+,	KRA			
	MOVB	M11024,	M04363			
	MOV	#04344,	R0			
	MOV	(SP)+,	R4			
	MOV	(SP)+,	R3			
	BR	L00512				

V00464:	TSTB	M11020				
	BMI	L00714				
	MOV	R0,	-(SP)			
	MOV	#004344,R0			
	MOV	#V00322,@#T00100			
	MOV	R1,	-(SP)			
	MOV	R2,	-(SP)			
L00512:	MOV	#020,	R1			
	CLR	R2				
1$:	MOVB	R2,	RI0			
	MOVB	(R0)+,	RI1			
	CMP	(R2)+,	(R2)+			
	SOB	R1,	1$
	BR	L00706				
L00536:	MOV	M11026,	R2			
	SUB	M11030,	R2			
	ASH	#177776,R2			
	MOV	M04474,	R3			
	SUB	R3,	R2			
	INC	R3				
	MOV	R3,	R1			
	ASH	#002,	R1			
	MOV	M11010,	R4			
	TSTB	M11025				
	BMI	3$				
	MOV	M11026,	R0			
	TST	(R0)+				
	NEG	R1				
	ADD	R0,	R1			
1$:	MOV	-(R1),	-(R0)			
	MOV	-(R1),	-(R0)			
	SOB	R2,	1$
2$:	MOV	R4,	-(R0)			
	MOV	R4,	-(R0)			
	DECB	M11025				
	ADD	#144,	R4			
	SOB	R3,	2$
	BR	6$
3$:	MOV	M11030,	R0			
	TST	-(R0)				
	ADD	R0,	R1			
4$:	MOV	(R1)+,	(R0)+			
	MOV	(R1)+,	(R0)+			
	SOB	R2,	4$
5$:	MOV	R4,	(R0)+			
	MOV	R4,	(R0)+			
	INCB	M11025				
	SUB	#144,	R4			
	SOB	R3,	5$
6$:	MOV	R4,	M11010			
L00702:	MOV	(SP)+,	R4			
	MOV	(SP)+,	R3			
L00706:	MOV	(SP)+,	R2			
	MOV	(SP)+,	R1			
	MOV	(SP)+,	R0			
L00714:	RTI					

S00716:	MTPS	#340			; <ESC> X _ LEN START PRIEM PROGRAM ]	
	MOV	#177400,M04444			
	JSR	PC,	S02270			
	MOV	#L00764,-(SP)			
	JSR	PC,	(PC)			
	MOV	R1,	R2			
	JSR	PC,	S02270			
	MOV	R0,	R1			
	JSR	PC,	S02270			
	SWAB	R0				
	BIS	R0,	R1			
	RTS	PC				
L00764:	MOV	R1,	R3			
1$:	JSR	PC,	S02270			
	MOVB	R0,	(R1)+			
	SOB	R2,	1$
	JMP	(R3)				

S01000:	CMP	M04520,	M11032		; <ESC> I __ <ESC> M OBRATNYJ RULON ]
	BNE	L01022				
	BR	L01066				
S01012:	CMP	M04520,	M11032		; <ESC> A KURSOR NA POZICI@ WWERH ]
	BEQ	L01064				
L01022:	NEG	R3				
	BR	L01060				
S01026:	ADD	M04426,	PC		; <CR><VT><FF>
S01032:	CLR	M04516			; <ESC> E	
S01036:	CMP	M04520,	M11034		; <ESC> D	
	BNE	L01060				
	BR	L01070				
S01050:	CMP	M04520,	M11034		; <ESC> B KURSOR NA POZICI@ WNIZ ]
	BEQ	L01064				
L01060:	ADD	R3,	M04520			
L01064:	RTS	PC				
L01066:	NEG	R3				
L01070:	MOV	M11034,	R4			
	MOV	M11032,	R5			
	MOV	R4,	R2			
	SUB	R5,	R2			
	ASHC	#002,	R4			
	MOV	#104,	R0			
	MOV	R0,	R1			
	MUL	#012,	R3			
	BPL	1$
	MOV	R4,	R5			
1$:	ADD	R5,	R1			
	ADD	R5,	R0			
	MOV	(R1)+,	R4			
	TST	(R1)+				
	MOV	#M11012,R5			
	TSTB	R3				
	BMI	3$				
2$:	MOV	(R1)+,	(R0)+			
	MOV	(R1)+,	(R0)+			
	SOB	R2,	2$
	MOV	(R5),	(R0)+			
	MOV	M04452,	(R0)			
	BR	4$
3$:	MOV	-(R0),	-(R1)			
	MOV	-(R0),	-(R1)			
	SOB	R2,	3$ 
	MOV	M04452,	-(R1)			
	MOV	(R5),	-(R1)			
	ADD	#001604,(R5)			
4$:	TSTB	M11025				
	BNE	4$
	MOV	(R5)+,	M11010			
	MOVB	R3,	M11025			
	MOV	(R5),	-(R5)			
	MOV	(R5)+,	R0			
	MOV	R4,	(R5)			
S01230:	MOV	KRA,	-(SP)		; O^ISTKA KUSKA \KRANA  ]
	MOV	#001750,R1			
	MOV	R0,	KRA			
1$:	CLR	KRD				
	INC	KRA				
	SOB	R1,	1$
	MOV	(SP)+,	KRA			
	RTS	PC				
S01264:	MOV	#S02350,(SP)		; <SUB$>
	MOV	#026274,R4			
	BR	L01376				
L01276:	ADD	M04536,	PC		;}WYBOR MATRICY SIMWOLA ]
	JSR	PC,	M10724		;} W ZAWISIMOSTI OT NABORA I e.t ]
	ADD	M04434,	PC		;}...
	JSR	PC,	M10730		;}...
	SUB	#040,	R0			
	ADD	M04526,	R0			
	TST	M04526				
	BNE	1$
	ADD	R3,	R0			
1$:	CLR	M04526				
	MOVB	(R0),	R1			
	BIC	#177400,R1			
	MUL	#024,	R1			
	MOV	R1,	R4			
	CMP	R3,	M04470			
	BNE	2$
	ADD	#32000,	R4			
	BR	L01376
2$:	ADD	#020000,R4			
L01376:	TST	M04476				
	BNE	2$			
	MOV	#001000,R1			
	MOV	#012,	R2			
	MOV	R4,	R0			

1$:	MOV	(R0)+,	R5		; FORMIROWANIE MATRICY 10*10 TO^EK ]
	JSR	PC,	S00246			
	MOV	R4,	024(R1)			
	SWAB	R5				
	JSR	PC,	S00246			
	MOV	R4,	(R1)+			
	SOB	R2,	1$

	MOV	#001000,R4			
2$:	MOV	M04516,	R5			
	INC	M04516				
	ADD	M04476,	PC			
	ASL	R5				
	ASL	R5				
	BIC	#177770,R5			
	MOV	KRA,	M13500			
	ADD	M07474(R5),	M13500		
	MOV	M07504(R5),	R2		
	MOV	M07514(R5),	R3		
	MOV	M07524(R5),	M13476		
	TST	M04476				
	BNE	4$
	BIS	#017,	R2			
	ASH	#177774,R3			
	BNE	3$
	INC	M13500				
3$:	BIC	#004,	M13476			
	JSR	PC,	(PC)			
4$:	MOV	#012,	R5			
5$:	CLR	R0				
	MOV	(R4)+,	R1			
	ADD	M04524,	PC			
	CMP	R5,	#002			
	BNE	6$
	MOV	#177777,R1			
6$:	ADD	M04522,	PC			
	COM	R1				
	TST	R1				
	BPL	7$
	COM	R0				
7$:	ASHC	M13476,	R0			
	BIC	R2,	KRD			
	COM	R2				
	BIC	R2,	R0			
	BIC	M04530,	R0			
	COM	R2				
	BIS	R0,	KRD			
	INC	KRA				
	BIC	R3,	KRD			
	COM	R3				
	BIC	R3,	R1			
	BIC	M04530,	R1			
	COM	R3				
	BIS	R1,	KRD			
	ADD	#143,	KRA			
	SOB	R5,	5$
	MOV	M13500,	KRA			
	TST	M04476				
	BNE	10$
	INC	M13500				
	TST	M07534				
	BNE	8$
	CLRB	R2				
	SWAB	R2				
	BNE	10$
	INC	M13500				
	BR	10$
8$:	TST	R3				
	BNE	9$
	DEC	M13500				
	CLRB	R2				
9$:	CLR	R3				
10$:	RTS	PC				

;-------------------------------
;-------------------------------
;-------------------------------
;-------------------------------
;-------------------------------
;-------------------------------
;tO^KA WHODA W OBRAZ ]
;	R0=000000
;	R1=037662
;	R4=044050
;	SP=077766
;     (SP)=S02350
;     MEM 027622\/027662
;     MEM 067622\/067662

S01766:	MOV	M04520,	R3			
	CLR	R5				
	MOV	#027,	R2			
	TST	M04534				
	BNE	1$
	MOV	M11032,	R5			
	MOV	M11034,	R2			
1$:	CMP	R3,	R5			
	BGE	2$
	MOV	R5,	R3			
2$:	CMP	R3,	R2			
	BLE	3$
	MOV	R2,	R3			
3$:	MOV	R3,	M04520			
	ASH	#002,	R3			
	ADD	#104,	R3			
	MOV	(R3)+,	R5			
	BIT	#002,	(R3)			
	BEQ	4$
	ADD	M04476,	PC			
	BR	5$
	ASR	M07536				
	CLR	M04476				
	ASL	M07540				
	BR	5$
4$:	TST	M04476				
	BNE	5$
	ASL	M07536				
	INC	M07536				
	ASR	M07540				
	MOV	#002,	M04476			
5$:	MOV	M07536,	R1			
	MOV	M04516,	R0			
	BPL	6$
	CLR	R0				
6$:	CMP	R0,	R1			
	BLE	7$
	MOV	R1,	R0			
7$:	MOV	R0,	M04516			
	MUL	M07540,	R0			
	DIV	#010,	R0			
	ADD	R0,	R5			
	MOV	R5,	KRA			
	RTS	PC				
S02200:	JSR	PC,	S02254		;<HT>	
	ADD	#244,	R0			
	MOVB	L00014(R1),	R1		
	BIC	#177400,R1			
1$:	CMP	M04516,	M07536			
	BGE	3$
	INC	M04516				
	ASR	R1				
	BCC	2$
	BIS	#200,	R1			
	INC	R0				
2$:	BITB	R1,	(R0)			
	BEQ	1$
3$:	RTS	PC				

S02254:	MOV	M04516,	R1			
	CLR	R0				
	DIV	#010,	R0			
	RTS	PC				

S02270:	ADD	M04422,	PC		;PRIEM IZ cp ]			
	TSTB	@#DTKS			
	BPL	S02270				
	MOV	#077777,M11016		;WOSTANOWLENIE STROKI GA[ENIQ \KRANA ]	
	MOVB	#003,	M11020			
	MOV	@#DTKB,	R0		
	BR	1$
	TSTB	M35625				
	BEQ	S02270				
	MOVB	M35625,	R0			
	CLRB	M35625				
1$:	BIC	M04444,	R0			
	RTS	PC				

;	start raboty ]

S02350:	MOV	M11006,	SP		;INICIALIZA]IQ STEKA ]			
	CLR	M11004				
S02360:	CLR	M00274				
	CLR	M13502				
	CLR	M13504				
	MOVB	#001,	M00265			
	CLR	M00266				
	CLR	M00270				
S02412:	CMP	M04516,	M07536			
	BLE	2$
	ADD	M04540,	PC			
	MOV	#001,	R3			
	JSR	PC,	S01032			
	BR	1$
	MOV	M07536,	M04516			
1$:	JSR	PC,	S01766			
2$:	MTPS	#340				
	INCB	M11022				
	MOVB	#002,	M11021			
	MTPS	#000				
	MOV	#S02412,-(SP)			
	JSR	PC,	S02270		;OVIDANIE PERWI^NOGO SIMWOLA ]	
	MTPS	#340				
	CLRB	M11022				
	MTPS	#000				
	TSTB	M11023				
	BEQ	3$
	MOV	KRA,	-(SP)			
	JSR	PC,	S00024			
	MOV	(SP)+,	KRA			
3$:	TST	R0				
	BPL	4$
	JMP	M10654				
4$:	CMP	R0,	#040			
	BLT	6$
	MOV	M04502,	R3			
	TST	M11004				
	BNE	5$
	JMP	L01276				
5$:	TST	(SP)+				
	RTS	PC				
6$:	MOV	#001,	R3			
	JSR	PC,	M10660			
	JSR	R4,	S00300			
						
	.WORD	S10664,<BEL>		; (PROIZWODITSQ GENERACIQ SIGNALA) ]
	.WORD	S10712,<SO>		; POME]AET G1 W GL  ]
	.WORD	S10704,<SI>		; POME]AET G0 W GL  ] 
	.WORD	S01264,<SUB$>		; OTMENA up POSLEDOWATELXNOSTI S error
	.WORD	S02350,<CAN>		; OTMENA up POSLEDOWATELXNOSTI ]
	.WORD	S02724,<ESC>		; NA^INAET up ]
	.WORD	000000				
	CMP	#220,	M11004		; CSI P ?        ]
	BEQ	S02722				
	MOV	#S01766,-(SP)			
	JSR	R4,	S00300			
						
	.WORD	S06376,<CR>		; POME]AET KURSOR W NA^ALO TEKU]EJ ST. ]
	.WORD	S06146,<BS>		; WLEWO NA ODNU POZICI@ ]
	.WORD	S02200,<HT>		; KURSOR K SLEDU@]EMU TABULQTORU ]
					; IZ POZICIJ 9,17,25,33,41,49,57,65,73,80
	.WORD	S01026,<LF>		; PEREWOD STROKI ]
	.WORD	S01026,<VT>		; PEREWOD STROKI ] 
	.WORD	S01026,<FF>		; PEREWOD STROKI ]
	.WORD	000000				
S02722:	RTS	PC				
S02724:	MOV	#S02350,(SP)			
	MOV	R0,	M11004		;<ESC> W M11004	
	JSR	PC,	S02360			
	TSTB	M04500				
	BEQ	L03102				
	MOV	#001,	R3			
	JSR	PC,	M10700			
	MOV	#S01766,-(SP)			
	JSR	R4,	S00300			

	.WORD	S06042,'=		; REVIM dkl  ]
	.WORD	S06040,'>		; REVIM Nodkl ]
	.WORD	S10726,'F		; G1
	.WORD	S10704,'G		; G3
	.WORD	S07156,'Z		; AWTOOTWET ]
	.WORD	S05560,'<		; system &H0
	.WORD	S06156,'Y		; 
; <ESC> Y pl pc POZICIONIROWATX KURSOR W STROKU pl-&O40 KOLONKU pc-&O40
; STROKI I KOLONKI NUMERU@TSQ OT EDINICY SWERHU-WNIZ,SLEWO-NAPRAWO ]
;
	.WORD	S06570,'K		; STERETX DO KONCA STROKI WKL. POZ. KURSORA ]
	.WORD	S06402,'J		; STERETX DO KONCA \KRANA WKL. POZ. KURSORA ]   
	.WORD	S01000,'I		; WWERH NA ODNU POZICI@ ,W NA^. ZONY OBRATNYJ RULON  ]
	.WORD	S01012,'A		; WWERH NA ODNU POZICI@ ] 
	.WORD	S01050,'B		; WNIZ NA ODNU POZICI@  ] 
	.WORD	S06150,'C		; WPRAWO NA ODNU POZICI@  ] 
	.WORD	S06146,'D		; WLEWO NA ODNU POZICI@  ]  
	.WORD	S06322,'H		; KURSOR W NA^ALO ZONY ]
	.WORD	S00716,'X		; GET <ESC> X _ LEN START
	.WORD	S03076,'V		; INIT
	.WORD	000000				
	RTS	PC				
S03076:	JMP	@T00000				
L03102:	CMP	R0,	#060			
	BGE	2$
	MOV	R0,	M00266		;MODIFIKACIQ ESLI PERWYJ KOD MENX[E 0 ]	
1$:	JSR	PC,	S02412			
	CMP	R0,	#060			
	BLT	1$
2$:	TST	M00266				
	BNE	L03322				
	MOV	#001,	R3			
	JSR	R4,	S00300			
						
	.WORD	S06042,'=		; REVIM dkl  ]
	.WORD	S06040,'>		; REVIM Nodkl ]
	.WORD	S03504,'[		
	.WORD	S03310,'P		; <ESC> P s,n1,n2,l,p,..... <ESC> \ 
	.WORD	S06772,'~		;
	.WORD	S10720,'n		;G2 of GL
	.WORD	S07000,'}		;
	.WORD	S10726,'o		;G3 of GL
	.WORD	S07006,'|		;
	.WORD	S07020,'N		;G2 of 1st GL
	.WORD	S07030,'O		;G3 of 1st GL
	.WORD	S06064,'H		;USTANAWLIWAET TABULQTOR W TEKU]EJ POZICII PO STROKE  ]
	.WORD	S03300,'\		; NOP
	.WORD	S05566,'7		;
;SOHRANITX POLOVENIE KURSORA W PAMQTI DISPLEQ: ]
;	-POLOVENIE KURSORA ]
;	-ATRIBUTY SIMWOLA  ]
;	-SMENA ALFAWITA DLQ 1 SIMWOLA ] 
;	-SOSTOQNIE AWTOPEREHODA KURSORA IZ POSLEDNEJ POZICII  ]
;	-TEKU]IJ OTS^ET ]

	.WORD	S07240,'Z		; AWTOOTWET  ]
	.WORD	S11516,'c		; INIT
	.WORD	000000				
	MOV	#S01766,-(SP)			
	JSR	R4,	S00300			
	.WORD	S01032,'E		;NOWAQ STROKA ]
	.WORD	S01036,'D		;PEREMESTITX KURSOR WNIZ,W POSLEDNEJ ]
; STROKE ZONY RULONA WYPOLNQETSQ RULON INFORMACIEJ WWERH ]

	.WORD	S01000,'M		;PEREMESTITX KURSOR WWERH,W POSLEDNEJ ]
; STROKE ZONY RULONA WYPOLNQETSQ RULON INFORMACIEJ WNIZ ]
	.WORD	S05600,'8		;WOSTANOWITX POLOVENIE KURSORA IZ PAMQTI  ]
	.WORD	000000				
S03300:	RTS	PC				
L03302:	JSR	PC,	S02412			
	BR	L03302				
S03310:	MOV	#220,	M11004			
	JMP	@M11000				
L03322:	MOV	R0,	M00270			
	MOV	M00266,	R0			
	JSR	R4,	S00300			

	.WORD	S03372,'#		;USTANOWKA ATRIBUTOW STROKI SIMWOLOW ]
;<ESC> # 3 PREWRATITX STROKU W DWOJNU@ PO [IRENE I WYSOTE WERHN@@ "POLUSTROKU"] 
;<ESC> # 4 PREWRATITX STROKU W DWOJNU@ PO [IRENE I WYSOTE NIVN@@ "POLUSTROKU"] 
;<ESC> # 5 standart font ]
;<ESC> # 6 PREWRATITX STROKU W OBY^NU@ PO WYSOTE I DWOJNU@ PO [IRINE  ] 
;<ESC> # 8

 	.WORD	M10734,' 		;
	.WORD	S04166,'(		;NAZNA^ENIE IMENI FINAL(A) SSYLKE G0
	.WORD	S04174,')		;NAZNA^ENIE IMENI FINAL(A) SSYLKE G1
	.WORD	S04202,'*		;NAZNA^ENIE IMENI FINAL(A) SSYLKE G2
	.WORD	S04210,'+		;NAZNA^ENIE IMENI FINAL(A) SSYLKE G3
	.WORD	000000

	RTS	PC				
S03372:	MOV	#S01766,-(SP)			
	MOV	#144,	R1			
	MOV	M04520,	R5			
	ASH	#002,	R5			
	MOV	R5,	R3			
	ADD	#104,	R5			
	MUL	#012,	R3			
	MOV	#M17474,R4			
	SUB	R3,	R4			
	MOV	(R5)+,	R3			
	MOV	R3,	R2			
1$:	TSTB	M11025				
	BNE	1$
	MOV	M00270,	R0			
	JSR	R4,	S00300			
						
	.WORD	S05110,'3
	.WORD	S05104,'4
	.WORD	S05316,'5
	.WORD	S05116,'6
	.WORD	M10740,'8
	.WORD	0				
	RTS	PC				




S03504:	MOV	#233,	M11004		;<ESC> [ ...,<ESC> [ ? ...,<ESC> [ >...
	CLR	M00272				
	MOV	#025,	R0			
	MOV	#M13502,R1			
	MOV	R1,	M00276			
1$:	CLR	(R1)+				
	SOB	R0,	1$
	JSR	PC,	S02412			
	CMP	R0,	#077			
	BEQ	2$
	CMP	R0,	#076			
	BNE	4$
2$:	NEGB	M00265				
3$:	JSR	PC,	S02412			
4$:	CMP	R0,	#'0			
	BLT	8$
	CMP	R0,	#'@			
	BGE	9$
	CMP	R0,	#'9		
	BLE	6$
	CMP	R0,	#';		
	BNE	7$
	CMP	M00274,	#024			
	BEQ	5$
	INC	M00274				
	MOV	M00272,	@M00276			
	ADD	#002,	M00276			
5$:	CLR	M00272				
	BR	3$

6$:	SUB	#060,	R0		;P/P PREOBRAZOWANIQ W ^ISLO ]
	MOV	M00272,	R1			
	MUL	#012,	R1			
	ADD	R0,	R1			
	MOV	R1,	M00272			
	BR	3$

7$:	JSR	PC,	S02412			
	CMP	R0,	#'0			
	BLT	8$
	CMP	R0,	#'@			
	BGE	9$
	CMP	R0,	#';			
	BNE	7$
	BR	5$
8$:	MOV	R0,	M00266			
	JSR	PC,	S02412			
	CMP	R0,	#057			
	BLE	8$
9$:	MOV	M00272,	@M00276			
	INC	M00274				
	TST	M00266				
	BEQ	10$
	JMP	M10664				
10$:	MOV	#001,	R3			
	JSR	R4,	S00300			
	.WORD	S06106,'g		;<ESC> [ num g RABOTA S TABULQTOROM ]
	.WORD	S04612,'m		;<ESC> [ num;..;.. m USTANOWKA ATRIBUTOW STROKI ]
	.WORD	S07240,'c		;<ESC> [ ? c__<ESC> [ c
	.WORD	S07270,'n		;<ESC> [ num n
	.WORD	000000				
	MOV	#S01766,-(SP)			
	JSR	R4,	S00300			
	.WORD	S04326,'h		;<ESC> [ num h
	.WORD	S04330,'l		;<ESC> [ num l
	.WORD	000000				
	MOV	M13502,	R3			
	BNE	11$
	INC	R3				
11$:	JSR	R4,	S00300			
	.WORD	S01012,'A		;<ESC> [ num A PEREMESTITX KURSOR NA num STROK WWERH  W TOJ VE KOLONKE ]  
	.WORD	S01050,'B		;<ESC> [ num B PEREMESTITX KURSOR NA num STROK WNIZ   W TOJ VE KOLONKE ]  
	.WORD	S06150,'C		;<ESC> [ num C PEREMESTITX KURSOR NA num STROK WPRAWO W TOJ VE KOLONKE ]  
	.WORD	S06146,'D		;<ESC> [ num D PEREMESTITX KURSOR NA num STROK WLEWO  W TOJ VE KOLONKE ]  
	.WORD	S06342,'H		;<ESC> [ num1,num2 H	POMESTITX KURSOR ]
	.WORD	S06342,'f		;<ESC> [ num1,num2 f	POMESTITX KURSOR ]
	.WORD	M10744,'L		;<ESC> [ num L
	.WORD	M10750,'M		;<ESC> [ num M
	.WORD	M10754,'X		;<ESC> [ num X
	.WORD	S06570,'K		;<ESC> [ num K STIRANIE INFORMACII Po STROKE ]
	.WORD	S06402,'J		;<ESC> [ num J STIRANIE INFORMACII PO ZKRANU ]
	.WORD	S06230,'r		;<ESC> [ num r OPREDELENIE ZONY RULONA ]
	.WORD	M10760,'I		;<ESC> [ num I 
	.WORD	M10764,'y		;<ESC> [ num y
	.WORD	M10770,'@		;<ESC> [ num @
	.WORD	M10774,'P		;<ESC> [ num P  
	.WORD	000000				
	RTS	PC				
S04166:	MOV	#M04506,R3			
	BR	L04214				
S04174:	MOV	#M04510,R3			
	BR	L04214				
S04202:	MOV	#M04512,R3			
	BR	L04214				
S04210:	MOV	#M04514,R3			
L04214:	MOV	M00270,	R0			
	JSR	R4,	S00300			
						
	.WORD	S04276,'B		;
	.WORD	S04304,'<		;
	.WORD	S04320,'0		;
	.WORD	S04312,'u		;
	.WORD	000000
	CMP	R0,	M04466			
	BNE	1$
	MOV	M04464,	(R3)			
	RTS	PC				
1$:	CMP	R0,	M04472			
	BNE	2$
	MOV	M04470,	(R3)			
2$:	RTS	PC				
S04276:	MOV	M04454,	(R3)			
	RTS	PC				
S04304:	MOV	M04456,	(R3)			
	RTS	PC				
S04312:	MOV	M04460,	(R3)			
	RTS	PC				
S04320:	MOV	M04462,	(R3)			
	RTS	PC				
S04326:	CLR	R3				
S04330:	MOV	#M13502,R5			
L04334:	MOV	R3,	-(SP)			
	MOV	(R5)+,	R0			
	MOV	R5,	-(SP)			
	MOV	#S04454,-(SP)			
	TSTB	M00265				
	BPL	1$
	JSR	R4,	S00300			
						
	.WORD	S02722,000
	.WORD	S04470,001
	.WORD	S05524,002
	.WORD	S07040,003
	.WORD	S04510,004
	.WORD	S04560,005
	.WORD	S06330,006
	.WORD	S04546,007
	.WORD	S04530,031
	.WORD	0				
	JMP	M10670				
1$:	JSR	R4,	S00300			
						
	.WORD	S02722,000
	.WORD	S04600,024
	.WORD	000000				
	JMP	M10674				
S04454:	MOV	(SP)+,	R5			
	MOV	(SP)+,	R3			
	DEC	M00274				
	BNE	L04334
	RTS	PC				
S04470:	MOV	#M04404,R0			
	MUL	#006,	R3			
	ADD	R3,	R0			
	MOV	R0,	M04436			
	RTS	PC				
S04510:	TSTB	M11025				
	BNE	S04510				
	MUL	#011,	R3			
	MOV	R3,	M04474			
	RTS	PC				
S04530:	ASL	R3				
	MOV	L04542(R3),	M04442		
	RTS	PC				

L04542:	.WORD	002,000					

S04546:	MUL	#012,	R3			
	MOV	R3,	M04540			
	RTS	PC				
S04560:	MOVB	M04351,	R3			
	MOVB	M04344,	M04351			
	MOVB	R3,	M04344			
	RTS	PC				
S04600:	ASH	#002,	R3			
	MOV	R3,	M04426			
	RTS	PC				
S04612:	MOV	#M13502,R5			
L04616:	MOV	#S04700,-(SP)			
	MOV	(R5)+,	R0			
	JSR	R4,	S00300			
						
	.WORD	S04710,000
	.WORD	S05020,001
	.WORD	S05002,004
	.WORD	S04734,005
	.WORD	S04774,007
	.WORD	S05026,026
	.WORD	S05010,030
	.WORD	S04756,031
	.WORD	S04724,033
	.WORD	000000				
	RTS	PC				
S04700:	DEC	M00274				
	BNE	L04616				
	RTS	PC				

S04710:	MOV	#^B1010101010101010,	M04530	
	MOV	#012,	M04524			
S04724:	MOV	#002,	M04522			
	RTS	PC				
S04734:	TST	M04530				
	BEQ	1$
	MOV	M04530,	M04532			
	CLR	M04530				
1$:	RTS	PC				
S04756:	TST	M04530				
	BNE	1$
	MOV	M04532,	M04530			
1$:	RTS	PC				
S04774:	CLR	M04522				
	RTS	PC				
S05002:	CLR	M04524				
	RTS	PC				
S05010:	MOV	#012,	M04524			
	RTS	PC				

S05020:	MOV	#^B0101010101010101,	R0	
	BR	L05032				

S05026:	MOV	#^B1010101010101010,	R0	
L05032:	TST	M04530				
	BNE	1$
	MOV	R0,	M04532			
	RTS	PC				
1$:	MOV	R0,	M04530			
	RTS	PC				
S05054:	TSTB	M11025				
	BNE	S05054				
	MOV	R0,	R5			
	MUL	#050,	R5			
	MOV	#<M15574+^D958>,R4			
	SUB	R5,	R4			
	MOV	R4,	M11026			
	RTS	PC				
S05104:	ADD	#764,	R2			
S05110:	JSR	PC,	S05464			
	BR	L05122				
S05116:	JSR	PC,	S05506			
L05122:	TST	M04476				
	BEQ	L05314				
	BIS	#002,	(R5)			
	MOV	#012,	M13474			
	ADD	#061,	R3			
L05146:	MOV	R3,	-(SP)			
	MOV	#062,	R4			
	ADD	R4,	(SP)			
L05156:	MOV	R3,	KRA			
	MOV	KRD,	R0			
	MOV	(SP)+,	KRA			
	MOV	#S05254,-(SP)			
	JSR	PC,	(PC)			
	CLR	R2				
	MOV	#004,	R5			
1$:	CLR	R1				
	ASHC	#177776,R0			
	ASH	#177776,R2			
	BIC	#140000,R2			
	BIS	R1,	R2			
	ASH	#177776,R2			
	BIC	#140000,R2			
	BIS	R1,	R2			
	SOB	R5,	1$
	MOV	R2,	KRD			
	DEC	KRA				
	RTS	PC				
S05254:	MOV	KRA,	-(SP)			
	DEC	R3				
	SOB	R4,	L05156			
	ADD	#144,	KRA			
	BIC	M07534,	KRD			
	ADD	#226,	R3			
	TST	(SP)+				
	DEC	M13474				
	BNE	L05146				
L05314:	RTS	PC				
S05316:	JSR	PC,	S05506			
	TST	M04476				
	BNE	L05462				
	BIC	#002,	(R5)			
	MOV	#012,	M13474			
L05342:	MOV	R3,	R2			
	MOV	#062,	R4			
L05350:	MOV	R2,	KRA			
	MOV	#S05412,-(SP)			
	JSR	PC,	(PC)			
	MOV	KRD,	R1			
	MOV	#004,	R5			
1$:	ASHC	#002,	R0			
	ASH	#002,	R1			
	SOB	R5,	1$
	INC	KRA				
	RTS	PC				
S05412:	MOV	KRA,	R2			
	MOV	R3,	KRA			
	MOV	R0,	KRD			
	INC	R3				
	SOB	R4,	L05350			
	MOV	#062,	R4			
1$:	INC	KRA				
	CLR	KRD				
	SOB	R4,	1$
	ADD	#062,	R3			
	DEC	M13474				
	BNE	L05342				
L05462:	RTS	PC				
S05464:	MOV	#005,	R0			
1$:	MOV	R2,	-(R4)			
	MOV	R2,	-(R4)			
	MOV	R2,	-(R4)			
	MOV	R2,	-(R4)			
	ADD	R1,	R2			
	SOB	R0,	1$
	RTS	PC				
S05506:	MOV	#012,	R0			
1$:	MOV	R2,	-(R4)			
	MOV	R2,	-(R4)			
	ADD	R1,	R2			
	SOB	R0,	1$
L05522:	RTS	PC				
S05524:	TST	R3				
	BEQ	L05522				
	MOVB	R3,	M04500			
	MOV	M04454,	M04506			
	MOV	M04460,	M04510			
	MOV	M04462,	M04514			
	RTS	PC				
S05560:	CLRB	M04500				
	RTS	PC				
S05566:	MOV	#M07434,R0			
	MOV	#M04502,R1			
	BR	L05610				
S05600:	MOV	#M07434,R1			
	MOV	#M04502,R0			
L05610:	MOV	#020,	R2			
S05614:	MOV	(R1)+,	(R0)+			
	SOB	R2,	S05614			
	RTS	PC				
S05622:	MOV	#20000,	R0			
	MOV	#L12236,R1			
	MOV	#005000,	R2			
1$:	MOVB	(R1)+,	R5			
	JSR	PC,	S00246			
	MOV	R4,	(R0)+			
	SOB	R2,	1$
	MOV	#L07456,R1			
L05654:	MOV	#M07474,R0			
	MOV	#024,	R2			
	BR	S05614				
S05666:	MOV	#M32000,R0			
	MOV	#M02304,R1			
	MOV	#M04716,R5			
	MOV	#005000,R2			
1$:	CLR	R4				
	MOV	-(R0),	R3			
	JSR	PC,	S00226			
	CMP	R2,	R5			
	BGE	3$
	CMP	R2,	R1			
	BGE	2$
	JSR	PC,	S00206			
	JSR	PC,	S00200			
	JSR	PC,	S00226			
	JSR	PC,	S00206			
	BR	4$
2$:	JSR	PC,	S00200			
	ASH	#002,	R3			
	JSR	PC,	S00226			
	ASH	#002,	R3			
	JSR	PC,	S00200			
	BR	4$
3$:	JSR	PC,	S00226			
	ASH	#002,	R3			
	JSR	PC,	S00226			
	ASH	#002,	R3			
	JSR	PC,	S00200			
	JSR	PC,	S00226			
4$:	MOV	R4,	(R0)			
	SOB	R2,	1$
	MOV	#L07524,R1			
	BR	L05654				
S06040:	CLR	R3				
S06042:	MOVB	R3,	M11046			
	RTS	PC				
L06050:	JSR	PC,	S02254			
	BICB	L00014(R1),	M00244(R0)	
	RTS	PC				
S06064:	JSR	PC,	S02254			
	BISB	L00014(R1),	M00244(R0)	
	RTS	PC				
S06100:	MOV	#200,	R3			
	BR	L06126				
S06106:	TST	M13502				
	BEQ	L06050				
	CMP	M13502,	#003			
	BNE	L06144				
	CLR	R3				
L06126:	MOV	#M00244,R0			
	MOV	#20,	R1			
	CLRB	(R0)+				
1$:	MOVB	R3,	(R0)+			
	SOB	R1,	1$


L06144:	RTS	PC				
S06146:	NEG	R3				
S06150:	ADD	R3,	M04516			
	RTS	PC				

S06156:	JSR	PC,	S02412			
	SUB	#040,	R0			
	BMI	1$
	CMP	R0,	#^D23			
	BGT	1$
	MOV	R0,	M04520			
1$:	JSR	PC,	S02412			
	SUB	#040,	R0			
	BMI	2$
	CMP	R0,	#^D79		
	BGT	2$
	MOV	R0,	M04516			
2$:	RTS	PC				


S06230:	DEC	R3				
	CMP	R3,	#026			
	BLT	1$
	CLR	R3				
1$:	MOV	M13504,	R0			
	BNE	3$
2$:	MOV	#027,	R0			
	BR	4$
3$:	DEC	R0				
	CMP	R3,	R0			
	BGE	2$
4$:	MOV	R0,	M11034			
	MOV	R3,	M11032			
	JSR	PC,	S05054			
	MOV	M11026,	M11030			
	SUB	#044,	M11030			
	MOV	R3,	R0			
	JSR	PC,	S05054			
S06322:	CLR	R3				
	CLR	R4				
	BR	L06354				
S06330:	ASH	#002,	R3			
	MOV	R3,	M04534			
	BR	S06322				
S06342:	DEC	R3				
	MOV	M13504,	R4			
	BEQ	L06354				
	DEC	R4				
L06354:	ADD	M04534,	PC			
	ADD	M11032,	R3			
	MOV	R3,	M04520			
L06370:	MOV	R4,	M04516			
	RTS	PC				
S06376:	CLR	R4				
	BR	L06370				
S06402:	TSTB	M00265				
	BGT	1$
	JMP	M10644				
1$:	CMP	M13502,	#002			
	BEQ	S06472				
	BLT	2$
	RTS	PC				
2$:	JSR	PC,	S06570			
	MOV	M04520,	R1			
	INC	R1				
	TST	M13502				
	BNE	3$
	TST	M04516				
	BNE	L06474				
	DEC	R1				
	BR	L06474				
3$:	TST	-(R1)				
	MOV	R1,	R3			
	CLR	R1				
	BR	L06500				
S06472:	CLR	R1				
L06474:	MOV	#027,	R3			
L06500:	SUB	R1,	R3			
	BMI	3$
	INC	R3				
	ASH	#002,	R1			
	MOV	R1,	R5			
	MUL	#012,	R1			
	ADD	#104,	R5			
	MOV	#M17474,R4			
	SUB	R1,	R4			
1$:	TSTB	M11025				
	BNE	1$
2$:	MOV	(R5),	R0			
	JSR	PC,	S01230			
	MOV	(R5)+,	R2			
	MOV	#144,	R1			
	JSR	PC,	S05506			
	MOV	M04452,	(R5)+			
	SOB	R3,	2$
3$:	RTS	PC				
S06570:	TSTB	M00265				
	BGT	1$
	JMP	M10650				
1$:	MOV	M07536,	R1			
	MOV	R1,	R2			
	MOV	M04516,	R0			
	CMP	M13502,	#002			
	BEQ	3$
	BLT	2$
	RTS	PC				
2$:	TST	M13502				
	BEQ	4$
	MOV	R0,	R2			
3$:	CLR	R0				
4$:	INC	R2				
	MUL	M07540,	R0			
	DIV	#010,	R0			
	MOV	L07466(R1),	R1		
	MUL	M07540,	R2			
	DIV	#010,	R2			
	MOV	L07466(R3),	R3		
	COM	R3				
	SUB	R0,	R2			
	DEC	R2				
	MOV	M04520,	R5			
	ASH	#002,	R5			
	ADD	#104,	R5			
	ADD	(R5),	R0			
	MOV	#012,	R4			
5$:	MOV	R0,	KRA			
	BIC	R1,	KRD			
	INC	KRA				
	MOV	R2,	R5			
	BEQ	7$
6$:	CLR	KRD				
	INC	KRA				
	SOB	R5,	6$
7$:	BIC	R3,	KRD			
	ADD	#144,	R0			
	SOB	R4,	5$
	RTS	PC				
S06772:	MOV	M04510,	R3			
	BR	L07012				
S07000:	MOV	M04512,	R3			
	BR	L07012				
S07006:	MOV	M04514,	R3			
L07012:	MOV	R3,	M04504			
	RTS	PC				
S07020:	MOV	M04512,	M04526			
	RTS	PC				
S07030:	MOV	M04514,	M04526			
L07036:	RTS	PC				
S07040:	TST	R3				
	BNE	1$
	TST	M07534				
	BNE	L07036				
	JSR	PC,	S05666			
	BR	2$
1$:	TST	M07534				
	BEQ	L07036				
	JSR	PC,	S05622			
2$:	JSR	PC,	S06472			
	CLR	M11032				
	MOV	#<M15574+^D958>,M11026			
	MOV	#<M15574+2>,M11030			
	MOV	#027,	M11034			
	CLR	M04516				
	CLR	M04520				
	MOV	#004,	M04534			
	RTS	PC				
	MOV	#M00310,R1
	BR	S07162				

L07152:	.ASCII	<ESC>\/Z\
	.EVEN	
	
S07156:	MOV	#L07152,	R1		
S07162:	TSTB	(R1)			;AWTOOTWET ]	
	BEQ	L07174				
	JSR	PC,	S07176			
	BR	S07162				
L07174:	RTS	PC				
S07176:	TST	M04422				
	BNE	L07232
	TSTB	DTTS				
L07210:	BPL	S07176				
	MOVB	(R1)+,	DTTB			

	MOV	R1,	-(SP)		;ZADERVKA ]	
	MOV	#001500,R1			
	SOB	R1,	<.>
	MOV	(SP)+,	R1			


	RTS	PC				
L07232:	MOVB	(R1)+,	M35625		;MY W AWTONOME ]	
	RTS	PC				

S07240:	TST	M13502				
	BNE	L07174				
	TSTB	M00265				
	BMI	1$
	MOV	#M35600,R1		;<ESC> [?1;2c
	BR	2$
1$:	MOV	#M04371,R1		;<ESC> [>7;501c			
2$:	BR	S07162				
S07270:	CMP	M13502,	#005			
	BNE	1$
	MOV	#M04364,R1		;<ESC> [0n		
	BR	S07162				

1$:	CMP	M13502,	#006		;PREOBRAZOWANIE &OR0 W ^Dstring	
	BNE	L07174				
	MOV	#M35626,R4			
	MOV	M04412,	(R4)+			
	MOV	M04520,	R0			
	ADD	M04534,	PC			
	SUB	M11032,	R0			
	JSR	PC,	S07376			
	MOVB	#073,	(R4)+			
	MOV	M04516,	R0			
	JSR	PC,	S07376			
	MOVB	#122,	(R4)+			
	CLRB	(R4)				
	MOV	#M35626,R1			
	BR	S07162				
S07376:	INC	R0				
	MOV	#L07456,R3			
1$:	CMP	R0,	-(R3)			
	BCS	1$
	TST	(R3)+				
2$:	MOVB	#060,	R1			
	TST	-(R3)				
	BNE	4$
	ADD	R0,	R1			
	MOVB	R1,	(R4)+			
	RTS	PC				
3$:	INC	R1				
4$:	SUB	(R3),	R0			
	BCC	3$
	ADD	(R3),	R0			
	MOVB	R1,	(R4)+			
	BR	2$

	.WORD	^D000000				
	.WORD	^D000010
	.WORD	^D000100
	.WORD	^D001000
	.WORD	^D010000

L07456:	.WORD	000001
	.WORD	000001
	.WORD	000001
	.WORD	000002
L07466:	.WORD	177777
	.WORD	007777
	.WORD	000377
	.WORD	000017
	.WORD	170000
	.WORD	177400
	.WORD	177760
	.WORD	177777
	.WORD	000014
	.WORD	000010
	.WORD	000004
	.WORD	000000
	.WORD	000000
	.WORD	000117
	.WORD	000012
L07524:	.WORD	000000
	.WORD	000001
	.WORD	000001
	.WORD	000001
	.WORD	177760
	.WORD	000017
	.WORD	000377
	.WORD	007777
	.WORD	000000
	.WORD	177400
	.WORD	170000
	.WORD	000000
	.WORD	000020
	.WORD	000004
	.WORD	000010
	.WORD	000014
	.WORD	177777
	.WORD	000203
	.WORD	000006
L07572:	.WORD	055433
	.WORD	030477
	.WORD	031073
	.WORD	000143

L07602:	JSR	R4,	S00300			
	.WORD	S10410,000214
	.WORD	S07734,000351
	.WORD	S07734,000352
	.WORD	S07734,000353
	.WORD	S07734,000354
	.WORD	S10464,000207
	.WORD	S10614,000210
	.WORD	S10444,000211
	.WORD	S10472,000212
	.WORD	S10542,000213
	.WORD	S10420,000367
	.WORD	S10600,000372
	.WORD	S10510,000362
	.WORD	M10710,000200
	.WORD	M10714,000377
	.WORD	000000

	CMP	R0,	#206			
	BLE	L10056				
	CMP	R0,	#300			
	BLE	L07760				
	CMP	R0,	#355			
	BLT	L10024				
	SUB	#334,	R0			
	BR	L10062				
S07734:	MOV	R1,	M11036			
	SUB	#250,	R0			
	TSTB	M04500				
	BNE	L10036				
	MOV	M04436,	R1			
	BR	L10050				
L07760:	MOV	R1,	M11036			
	SUB	#200,	R0			
	TSTB	M11046				
	BEQ	L10240				
	ADD	#100,	R0			
	TSTB	M04500				
	BEQ	1$
	MOV	#M04417,R1			
	BR	L10050				
1$:	MOV	#M04404,R1			
	BR	L10050				
L10024:	SUB	#200,	R0			
	TSTB	M04500				
	BEQ	L10044				
L10036:	MOV	#M04415,R1			
	BR	L10050				
L10044:	MOV	#M04404,R1			
L10050:	JSR	PC,	S07162			
	BR	L10366				
L10056:	SUB	#200,	R0			
L10062:	TSTB	M04501				
	BEQ	L10400				
	JMP	M10720				
V10074:	MOV	#77777,	M11016			
	MOVB	#003,	M11020			
	MOV	R0,	-(SP)			
	MOV	R1,	-(SP)			
	MOV	R4,	-(SP)			
	MOV	@#TKB,	R0			
	MOV	R0,	R1			
L10124:	SUB	#126,	R0			
	BMI	L10400				
	MOVB	M04074(R0),	R0		
	BIC	#177400,R0			
	BEQ	L10400				
	CMP	R0,	#177			
	BEQ	L10366				
	BGT	L07602				
	TSTB	M11044				
	BNE	1$
	TSTB	M11050				
	BEQ	1$
	MOVB	M03474(R0),	R0		
	BIC	#177400,R0			
1$:	MOV	R1,	M11036			
	TSTB	M11047				
	BEQ	2$
	JMP	M10704				
2$:	TSTB	M11041			;su NAVATO ILI NET ]	
	BEQ	3$
	SUB	#100,	R0			
	BR	L10366				
3$:	CMP	R0,	#040			
	BGT	L10266				
L10240:	CMP	R0,	#015			
	BNE	L10366				
	TST	M04426				
	BNE	L10366				
	MOV	#M04407,R1			
	JSR	PC,	S07162			
	BR	L10400				
L10266:	CMP	R0,	#060			
	BEQ	L10366				
	BLT	2$
	TSTB	M11045				
	BEQ	1$
	ADD	#040,	R0			
1$:	TSTB	M11044				
	BEQ	L10366				
	TSTB	M11051				
	BEQ	L10366				
	MOVB	M03674(R0),	R0		
	BIC	#177400,R0			
	BR	L10366				
2$:	CMP	R0,	#054			
	BLT	4$
	TSTB	M11043				
	BEQ	L10366				
3$:	ADD	#020,	R0			
	BR	L10366				
4$:	TSTB	M11043				
	BEQ	3$
L10366:	MOV	R0,	-(SP)			
	MOV	SP,	R1			
	JSR	PC,	S07176			
	TST	(SP)+				
L10400:	MOV	(SP)+,	R4			
	MOV	(SP)+,	R1			
	MOV	(SP)+,	R0			
	RTI					
S10410:	MOV	M11036,	R0			
	MOV	R0,	R1			
	BR	L10124				
S10420:	TST	M04422				
	BEQ	1$
	CLR	M04422				
	BR	L10400				
1$:	MOV	#030,	M04422			
	BR	L10400				
S10444:	COMB	M11043				
	MOVB	M11042,	M11045			
	COMB	M11045				
	BR	L10400				
S10464:	COMB	M11041			;su NATVATO ]	
	BR	L10400				
S10472:	MOV	#017,	R0			
	TSTB	M11044				
	BNE	1$
	DEC	R0				
1$:	BR	L10366				
S10510:	MOV	#023,	R0			
	COMB	M11040				
	BNE	1$
	TST	-(R0)				
1$:	MOV	R0,	-(SP)			
	MOV	#210,	R1			
	JSR	PC,	S10654			
	MOV	(SP)+,	R0			
	BR	L10366				
S10542:	TSTB	M11041				
	BEQ	1$
	CLRB	M11041			;su OTVATO ]	
	BR	L10400				
1$:	TSTB	M11043				
	BEQ	L10400				
	COMB	M11043				
	MOVB	M11042,	M11045			
	BR	L10400				
S10600:	TSTB	M04501				
	BEQ	L10400				
	COMB	M11047				
	BR	L10400				
S10614:	TSTB	M11043				
	BEQ	L10400				
	MOV	#023,	R0			
	COMB	M11042				
	MOVB	M11042,	M11045			
	BNE	1$
	TST	-(R0)				
1$:	MOV	#204,	R1			
	MOV	#L10400,-(SP)			
S10654:	JSR	PC,	S10670			
	MOV	R1,	R0			
	BR	S10670				
S10664:	MOV	#247,	R0			
S10670:	TSTB	TTS				
	BPL	S10670				
	MOVB	R0,	TTB			
L10702:	RTS	PC				
S10704:	MOV	M04506,	R3			
	BR	L10732				
S10712:	MOV	M04510,	R3			
	BR	L10732				
S10720:	MOV	M04512,	R3			
	BR	L10732				
S10726:	MOV	M04514,	R3			
L10732:	MOV	R3,	M04502			
	MOV	#021,	R0			
	MOV	#M11044,R1			
	CMP	R3,	M04506			
	BNE	L10764				
	TSTB	(R1)				
	BEQ	L10702				
	CLRB	(R1)				
	BR	S10774				
L10764:	TSTB	(R1)				
	BNE	L10702				
	COMB	(R1)				
	TST	(R0)+				
S10774:	MOV	#220,	R1			
	BR	S10654				

L11002:						
	.WORD	000362,173400,000000,000000
	.WORD	000000,000000,000000,000000
	.WORD	000000,000000,000000,000000
	.WORD	000000,015400,005010,000000
	.WORD	000000,000000,000000,006400
	.WORD	000000,000000,000000,000000
	.WORD	000000,000000,000000,000000
	.WORD	000000,000000,000260,106656
	.WORD	131261,132263,133265,133654
	.WORD	134670,150255,151321,000323
	.WORD	166000,165353,000351,000000
	.WORD	103611,000210,105612,000214
	.WORD	000000,000000,000000,006577
	.WORD	025411,045041,050506,021000
	.WORD	054503,025536,021457,053525
	.WORD	000123,045444,046501,000040
	.WORD	042445,044520,023000,051116
	.WORD	000124,043447,054117,024000
	.WORD	046133,000102,056451,040104
	.WORD	030000,057532,026126,000000
	.WORD	027110,026400,056052,000000
	.WORD	000000,000000,007400,000000
	.WORD	000000,000011,000000,007400
	.WORD	055433,067060,015400,037133
	.WORD	035467,030065,061461,000000
	.WORD	047433,006400,000012,055433
	.WORD	015400,015400,000077,000000
	.WORD	000000,000004,000002,000004
	.WORD	000004,004412,000001,000002
	.WORD	177600,000012,000000,000000
	.WORD	007544,010204,007704,010044
	.WORD	000000,000000,000000,000000
	.WORD	000011,000002,000001,007544
	.WORD	007704,007544,007704,010204
	.WORD	010044,000000,000000,000002
	.WORD	000012,000000,125252,000000
	.WORD	000004,000004,000000
L11450:	.WORD	000000
	.WORD	077774,000000,116700,120650
	.WORD	077777,001003,000000,000013
	.WORD	017472,015576,000000,000027
	.WORD	000000,000000,000000,000000
	.WORD	000000,000000

S11516:
START:	MOV	#T00000,SP			
	MOV	(SP),	-(SP)		;no coment ]
	MOV	(SP),	-(SP)			
	RESET					

	MOV	#001022,R0		;NABOR 0 ]	
	CLR	R1			;ZAPOLNENIE TABLICY REGENERACII ozu (530 SLOW) ]	
	MOV	#M13474,R2			
1$:	MOV	R1,	-(R2)			
	ADD	#002400,R1			
	SOB	R0,	1$

	MOV	#340,	R3		;ZAPISX 0 W RI1 ,OFORMLENIE ZAGLU[EK ]	
	MOV	#020,	R2			
	MOV	R2,	R1			
2$:	MOVB	R0,	@#RI0			
	CLRB	@#RI1				
	MOV	(SP),	(R0)+			
	MOV	R3,	(R0)+			
	SOB	R2,	2$


	TST	(R0)+				
	MOV	R3,	(R0)			
	SUB	R1,	R0			
	MOV	#V10074,-(R0)		;ADRES OBRABOTKI PRERYWANIJ OT KLAWIATURY ]			
	JSR	PC,	S06100			
	MOV	#M10644,R2			
	MOV	#<207>,	R1		; RTS PC of R1 of M10644	
	MOV	#027,	R0			
3$:	MOV	R1,	(R2)+			
	MOV	R1,	(R2)+			
	SOB	R0,	3$			

	MOV	#L03302,(R2)+			
	MOV	#L11002,R1			
	MOV	#M04074,R0			
	MOV	#223,	R2			
	JSR	PC,	S05614			
	MOV	#L17236,R0			
	MOV	#M07544,R1			
	MOV	#060,	R2			
	MOV	#L17376,R3			
	MOV	#M10204,R4			
4$:	MOV	(R0),	140(R1)			
	MOV	(R0),	300(R1)			
	MOV	(R0)+,	(R1)+			
	MOV	(R3)+,	(R4)+			
	SOB	R2,	4$

	MOV	#L17576,R1			
	MOV	#M07744,R0			
	MOV	#040,	R2			
	JSR	PC,	S05614			
	MOVB	#261,	M07710			
	MOV	#L17536,R0			
	MOV	#M10143,R1			
	MOV	#040,	R2			
5$:	MOVB	(R0)+,	(R1)+			
	SOB	R2,	5$
	JSR	PC,	S05622			

	MOV	#M35600,R0		;WYDA^A AWTOOTWETA [?1;2c0      ]
	MOV	#L07572,R1			
	MOV	#010,	R2			
6$:	MOVB	(R1)+,	(R0)+			
	SOB	R2,	6$

	MOV	#040000,KRA			
	TST	(R2)+				
7$:	MOV	#060000,R1		;O^I]AEM KRD (340*60000)	
8$:	CLR	KRD				
	INC	KRA				
	SOB	R1,	8$
	SOB	R2,	7$


	MOV	#360,	R0		;ZAPOLNENIE TABLICY ADRESOW STROK (480 SLOW) ]	
	MOV	#040000,R4		;		NABOR 0       ]	
	MOV	R4,	KRA			
	MOV	R4,	R5			
	MOV	#M17474,R3			
9$:	MOV	R4,	-(R3)			
	MOV	R4,	-(R3)			
	ADD	#144,	R4			
	SOB	R0,	9$
	MOV	#L11450,R1			
	MOV	#M11004,R0			
	MOV	#030,	R2			
	JSR	PC,	S05614			
	JSR	PC,	S05566			
	MOV	#104,	R0			
	MOV	#001750,R1			
	MOV	#030,	R2			
	MOV	R5,	R3			
10$:	MOV	R3,	(R0)+			
	MOV	M04452,	(R0)+			
	ADD	R1,	R3			
	SOB	R2,	10$
	CMP	(R2)+,	(R2)+		;ADRES STARTA W -(sp)	
	MOV	(R2),	-(SP)		;W 4 WEKTOR V12176	
	MOV	#V12176,(R2)			
	JMP	L20000				

V12176:	CMP	(SP)+,	(SP)+			
	MOV	(SP)+,	(R2)		;OBRATNO START BOLX[E NET pzu ]	
	JSR	PC,	S01766			
	MOV	#100,	@#TKS		;RAZRE[ENIE PRERYWANIJ OT KLAWIATURY ]	
	MOV	#021,	R0			
	MOV	#S02350,-(SP)			
	CLR	-(SP)				
	MOV	#S10774,-(SP)			
	JMP	V00464				

	.PAGE

L12236:	.WORD	000000
;112240
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	016010
	.WORD	016076
	.WORD	000010
;112260 
	.WORD	000000
	.WORD	025000
	.WORD	025024
	.WORD	025024
	.WORD	025024
	.WORD	000000
	.WORD	042000
	.WORD	076104
;112300 
	.WORD	042104
	.WORD	004076
	.WORD	004010
	.WORD	040000
	.WORD	040100
	.WORD	007570
	.WORD	007410
	.WORD	004010
;112320 
	.WORD	022000
	.WORD	026064
	.WORD	004044
	.WORD	004010
	.WORD	007410
	.WORD	021000
	.WORD	012042
	.WORD	007010
;112340 
	.WORD	002004
	.WORD	002004
	.WORD	010020
	.WORD	010020
	.WORD	000360
	.WORD	000000
	.WORD	000000
	.WORD	000000
;112360 
	.WORD	000000
	.WORD	010360
	.WORD	010020
	.WORD	010020
	.WORD	000000
	.WORD	000000
	.WORD	010037
	.WORD	010020
;112400 
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	000037
	.WORD	000000
	.WORD	000000
	.WORD	010020
	.WORD	010020
;112420 
	.WORD	010377
	.WORD	010020
	.WORD	010020
	.WORD	000377
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;112440 
	.WORD	000000
	.WORD	000377
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000377
;112460 
	.WORD	000000
	.WORD	000000
L12464:	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
;112500 
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000377
	.WORD	010020
	.WORD	010020
	.WORD	010037
	.WORD	010020
;112520 
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	010360
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	010020
;112540 
	.WORD	000377
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	010377
	.WORD	010020
	.WORD	010020
;112560 
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	010020
	.WORD	000400
	.WORD	010004
	.WORD	010100
;112600 
	.WORD	000404
	.WORD	000177
	.WORD	040000
	.WORD	002020
	.WORD	002001
	.WORD	040020
	.WORD	000177
	.WORD	000000
;112620 
	.WORD	077400
	.WORD	012024
	.WORD	022024
	.WORD	000000
	.WORD	000400
	.WORD	077404
	.WORD	077410
	.WORD	040020
;112640 
	.WORD	000000
	.WORD	003000
	.WORD	016011
	.WORD	036010
	.WORD	030512
	.WORD	000000
	.WORD	000000
	.WORD	000000
;112660 
	.WORD	014030
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	040577
	.WORD	077501
	.WORD	000000
;112700 
	.WORD	002010
	.WORD	021034
	.WORD	077501
	.WORD	040501
	.WORD	000000
	.WORD	010010
	.WORD	021034
	.WORD	077501
;112720 
	.WORD	040501
	.WORD	000000
	.WORD	046062
	.WORD	021034
	.WORD	077501
	.WORD	040501
	.WORD	000000
	.WORD	000101
;112740 
	.WORD	021034
	.WORD	077501
	.WORD	040501
	.WORD	000000
	.WORD	000010
	.WORD	021034
	.WORD	077501
	.WORD	040501
;112760 
	.WORD	000000
	.WORD	004020
	.WORD	040177
	.WORD	040176
	.WORD	077500
	.WORD	000000
	.WORD	010010
	.WORD	040177
;113000
	.WORD	040176
	.WORD	077500
	.WORD	000000
	.WORD	000101
	.WORD	040177
	.WORD	040176
	.WORD	077500
	.WORD	000000
;113020
	.WORD	004020
	.WORD	004076
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	004004
	.WORD	004076
	.WORD	004010
;113040
	.WORD	037010
	.WORD	000000
	.WORD	012010
	.WORD	004076
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	000101
;113060
	.WORD	004076
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	046062
	.WORD	050541
	.WORD	042511
	.WORD	040503
;113100
	.WORD	000000
	.WORD	001000
	.WORD	042434
	.WORD	050511
	.WORD	020034
	.WORD	000000
	.WORD	000000
	.WORD	021034
;113120
	.WORD	021054
	.WORD	026062
	.WORD	040040
	.WORD	016000
	.WORD	044442
	.WORD	050525
	.WORD	044525
	.WORD	016042
;113140
	.WORD	000000
	.WORD	012011
	.WORD	012110
	.WORD	000011
	.WORD	000000
	.WORD	014000
	.WORD	014044
	.WORD	000000
;113160
	.WORD	000000
	.WORD	000000
	.WORD	004000
	.WORD	077410
	.WORD	004010
	.WORD	077400
	.WORD	000000
	.WORD	022030
;113200
	.WORD	010010
	.WORD	000074
	.WORD	000000
	.WORD	000000
	.WORD	002070
	.WORD	002030
	.WORD	000070
	.WORD	000000
;113220
	.WORD	000000
	.WORD	014010
	.WORD	004010
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	021034
	.WORD	016042
;113240
	.WORD	000076
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	012050
	.WORD	012012
	.WORD	000050
	.WORD	000000
;113260
	.WORD	031020
	.WORD	004024
	.WORD	025026
	.WORD	001036
	.WORD	000000
	.WORD	031020
	.WORD	004024
	.WORD	026020
;113300
	.WORD	002022
	.WORD	000036
	.WORD	004160
	.WORD	005061
	.WORD	005164
	.WORD	024425
	.WORD	000437
	.WORD	011000
;113320
	.WORD	035000
	.WORD	011022
	.WORD	035022
	.WORD	016002
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000377
;113340
	.WORD	000000
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	177777
	.WORD	004000
	.WORD	004010
;113360
	.WORD	004010
	.WORD	004000
	.WORD	000000
	.WORD	011000
	.WORD	011022
	.WORD	000000
	.WORD	000000
	.WORD	000000
;113400
	.WORD	030400
	.WORD	032112
	.WORD	013010
	.WORD	043051
	.WORD	000000
	.WORD	012000
	.WORD	010010
	.WORD	000000
;113420
	.WORD	000000
	.WORD	000000
	.WORD	002000
	.WORD	010010
	.WORD	010020
	.WORD	002010
	.WORD	000000
	.WORD	020000
;113440
	.WORD	004020
	.WORD	004010
	.WORD	020020
	.WORD	000000
	.WORD	000000
	.WORD	012042
	.WORD	012177
	.WORD	000042
;113460
	.WORD	000000
	.WORD	000000
	.WORD	004010
	.WORD	004177
	.WORD	000010
	.WORD	000000
	.WORD	000000
	.WORD	000000
;113500
	.WORD	000000
	.WORD	014030
	.WORD	010010
	.WORD	040400
	.WORD	040501
	.WORD	044511
	.WORD	021125
	.WORD	000000
;113520
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	014030
	.WORD	000000
	.WORD	000400
	.WORD	002002
	.WORD	010010
;113540
	.WORD	040040
	.WORD	000000
	.WORD	016000
	.WORD	042442
	.WORD	050511
	.WORD	016042
	.WORD	000000
	.WORD	004000
;113560
	.WORD	024030
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	003000
	.WORD	011012
	.WORD	077442
	.WORD	001002
;113600
	.WORD	000000
	.WORD	077400
	.WORD	001101
	.WORD	004004
	.WORD	020020
	.WORD	000000
	.WORD	000000
	.WORD	014030
;113620
	.WORD	000000
	.WORD	014030
	.WORD	000000
	.WORD	000000
	.WORD	014030
	.WORD	000000
	.WORD	014030
	.WORD	010010
;113640
	.WORD	002000
	.WORD	010010
	.WORD	010040
	.WORD	002010
	.WORD	000000
	.WORD	000000
	.WORD	077400
	.WORD	077400
;113660
	.WORD	000000
	.WORD	000000
	.WORD	020000
	.WORD	004020
	.WORD	004004
	.WORD	020020
	.WORD	000000
	.WORD	004000
;113700
	.WORD	021024
	.WORD	077501
	.WORD	040501
	.WORD	000000
	.WORD	037000
	.WORD	004010
	.WORD	004010
	.WORD	037010
;113720
	.WORD	000000
	.WORD	041000
	.WORD	044104
	.WORD	044160
	.WORD	041104
	.WORD	000000
	.WORD	040000
	.WORD	040100
;113740
	.WORD	040100
	.WORD	077500
	.WORD	000000
	.WORD	040400
	.WORD	052543
	.WORD	040511
	.WORD	040501
	.WORD	000000
;113760
	.WORD	040400
	.WORD	050541
	.WORD	042511
	.WORD	040503
	.WORD	000000
	.WORD	040400
	.WORD	040501
	.WORD	021042
;114000
	.WORD	004024
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000177
	.WORD	000000
	.WORD	000000
	.WORD	046062
;114020
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	041000
	.WORD	074104
	.WORD	041104
;114040
	.WORD	000000
	.WORD	000000
	.WORD	061400
	.WORD	044525
	.WORD	040501
	.WORD	000000
	.WORD	044424
	.WORD	042503
;114060
	.WORD	050511
	.WORD	040541
	.WORD	000000
	.WORD	040000
	.WORD	010040
	.WORD	002010
	.WORD	000402
	.WORD	000000
;114100
	.WORD	037000
	.WORD	001002
	.WORD	001002
	.WORD	037002
	.WORD	000000
	.WORD	004000
	.WORD	021024
	.WORD	000000
;114120
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	077400
	.WORD	000000
	.WORD	006000
;114140
	.WORD	001004
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	040000
	.WORD	056100
	.WORD	040542
	.WORD	076102
;114160
	.WORD	000000
	.WORD	000400
	.WORD	016401
	.WORD	040443
	.WORD	017441
	.WORD	000000
	.WORD	004000
	.WORD	034000
;114200
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	040000
	.WORD	041100
	.WORD	074104
	.WORD	041104
	.WORD	000000
;114220
	.WORD	000000
	.WORD	040400
	.WORD	021101
	.WORD	004024
	.WORD	000000
	.WORD	003400
	.WORD	004010
	.WORD	004060
;114240
	.WORD	003410
	.WORD	000000
	.WORD	010000
	.WORD	010020
	.WORD	010000
	.WORD	010020
	.WORD	000000
	.WORD	070000
;114260
	.WORD	004010
	.WORD	004006
	.WORD	070010
	.WORD	000000
	.WORD	040400
	.WORD	012042
	.WORD	012010
	.WORD	040442
;114300
	.WORD	000000
	.WORD	011014
	.WORD	022030
	.WORD	011042
	.WORD	022014
	.WORD	000030
	.WORD	000000
	.WORD	021000
;114320
	.WORD	025046
	.WORD	021062
	.WORD	000000
	.WORD	012000
	.WORD	021010
	.WORD	025046
	.WORD	021062
	.WORD	000000
;114340
	.WORD	040400
	.WORD	021101
	.WORD	004024
	.WORD	004010
	.WORD	000000
	.WORD	000000
	.WORD	003400
	.WORD	010411
;114360
	.WORD	060421
	.WORD	000000
	.WORD	077400
	.WORD	002002
	.WORD	010010
	.WORD	077440
	.WORD	000000
	.WORD	000000
;114400
	.WORD	077400
	.WORD	004010
	.WORD	004010
	.WORD	000000
	.WORD	000000
	.WORD	076000
	.WORD	076102
	.WORD	076102
;114420
	.WORD	000000
	.WORD	000000
	.WORD	044400
	.WORD	044511
	.WORD	077511
	.WORD	000000
	.WORD	000000
	.WORD	025000
;114440
	.WORD	025052
	.WORD	037452
	.WORD	000001
	.WORD	077400
	.WORD	040100
	.WORD	040100
	.WORD	040100
	.WORD	000000
;114460
	.WORD	040400
	.WORD	042503
	.WORD	050511
	.WORD	040541
	.WORD	000000
	.WORD	017400
	.WORD	010020
	.WORD	010020
;114500
	.WORD	017420
	.WORD	000000
	.WORD	003400
	.WORD	010411
	.WORD	010421
	.WORD	020421
	.WORD	000000
	.WORD	025000
;114520
	.WORD	025052
	.WORD	025052
	.WORD	037452
	.WORD	000001
	.WORD	001000
	.WORD	042434
	.WORD	044511
	.WORD	016121
;114540
	.WORD	000040
	.WORD	021010
	.WORD	021034
	.WORD	077501
	.WORD	040501
	.WORD	000000
	.WORD	021010
	.WORD	040177
;114560
	.WORD	040176
	.WORD	077500
	.WORD	000000
	.WORD	004000
	.WORD	004000
	.WORD	030010
	.WORD	037101
	.WORD	000000
;114600
	.WORD	004040
	.WORD	040476
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	004002
	.WORD	040476
	.WORD	040501
;114620
	.WORD	037101
	.WORD	000000
	.WORD	021010
	.WORD	040476
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	047061
;114640
	.WORD	040476
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	000101
	.WORD	040476
	.WORD	040501
	.WORD	037101
;114660
	.WORD	000000
	.WORD	037400
	.WORD	044110
	.WORD	044117
	.WORD	037510
	.WORD	000000
	.WORD	074000
	.WORD	074100
;114700
	.WORD	047500
	.WORD	007410
	.WORD	004010
	.WORD	034000
	.WORD	040100
	.WORD	007070
	.WORD	007011
	.WORD	004411
;114720
	.WORD	037400
	.WORD	044110
	.WORD	074117
	.WORD	047510
	.WORD	000000
	.WORD	036000
	.WORD	040102
	.WORD	040100
;114740
	.WORD	036102
	.WORD	030010
	.WORD	004040
	.WORD	040501
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	004002
;114760
	.WORD	040501
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	012010
	.WORD	040501
	.WORD	040501
	.WORD	037101
;115000
	.WORD	000000
	.WORD	000101
	.WORD	040501
	.WORD	040501 
 	.WORD	037101
	.WORD	000000
	.WORD	000101
	.WORD	040501
;115020 
	.WORD	004042
	.WORD	004010
	.WORD	000000
	.WORD	004040
	.WORD	036000
	.WORD	037102
	.WORD	036502
	.WORD	000000
;115040
	.WORD	004002
	.WORD	036000
	.WORD	037102
	.WORD	036502
	.WORD	000000
	.WORD	021010
	.WORD	036000
	.WORD	037102
;115060
	.WORD	036502
	.WORD	000000
	.WORD	047161
	.WORD	036000
	.WORD	037102
	.WORD	036502
	.WORD	000000
	.WORD	040400
;115100
	.WORD	036000
	.WORD	037102
	.WORD	036502
	.WORD	000000
	.WORD	004000
	.WORD	036000
	.WORD	037102
	.WORD	036502
;115120
	.WORD	000000
	.WORD	000000
	.WORD	033000
	.WORD	037511
	.WORD	033510
	.WORD	000000
	.WORD	000000
	.WORD	037000
;115140
	.WORD	040101
	.WORD	037101
	.WORD	020010
	.WORD	004040
	.WORD	037000
	.WORD	077501
	.WORD	037100
	.WORD	000000
;115160
	.WORD	004002
	.WORD	037000
	.WORD	077501
	.WORD	037100
	.WORD	000000
	.WORD	021010
	.WORD	037000
	.WORD	077501
;115200
	.WORD	037100
	.WORD	000000
	.WORD	040400
	.WORD	037000
	.WORD	077501
	.WORD	037100
	.WORD	000000
	.WORD	004040
;115220
	.WORD	034000
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	004002
	.WORD	034000
	.WORD	004010
	.WORD	037010
;115240
	.WORD	000000
	.WORD	021010
	.WORD	034000
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	040400
	.WORD	034000
;115260
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	047161
	.WORD	057000
	.WORD	040541
	.WORD	040501
	.WORD	000000
;115300
	.WORD	004040
	.WORD	037000
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	004002
	.WORD	037000
	.WORD	040501
;115320
	.WORD	037101
	.WORD	000000
	.WORD	021010
	.WORD	037000
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	047161
;115340
	.WORD	037000
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	040400
	.WORD	037000
	.WORD	040501
	.WORD	037101
;115360
	.WORD	000000
	.WORD	000000
	.WORD	033000
	.WORD	047511
	.WORD	033510
	.WORD	000000
	.WORD	037000
	.WORD	030101
;115400
	.WORD	004010
	.WORD	004000
	.WORD	000000
	.WORD	004040
	.WORD	040400
	.WORD	040501
	.WORD	036503
	.WORD	000000
;115420
	.WORD	004002
	.WORD	040400
	.WORD	040501
	.WORD	036503
	.WORD	000000
	.WORD	021010
	.WORD	040400
	.WORD	040501
;115440
	.WORD	036503
	.WORD	000000
	.WORD	040400
	.WORD	040400
	.WORD	040501
	.WORD	036501
	.WORD	000000
	.WORD	040400
;115460
	.WORD	040400
	.WORD	040501
	.WORD	000477
	.WORD	037001
	.WORD	004000
	.WORD	004000
	.WORD	004010
	.WORD	004010
;115500
	.WORD	000000
	.WORD	004000
	.WORD	044476
	.WORD	044510
	.WORD	004076
	.WORD	000000
	.WORD	040400
	.WORD	021101
;115520
	.WORD	037010
	.WORD	004010
	.WORD	000000
	.WORD	001074
	.WORD	041076
	.WORD	000075
	.WORD	000177
	.WORD	000000
;115540
	.WORD	000000
	.WORD	021000
	.WORD	025066
	.WORD	040040
	.WORD	000000
	.WORD	037400
	.WORD	044511
	.WORD	004477
;115560
	.WORD	004411
	.WORD	000000
	.WORD	041000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	000000
	.WORD	021000
;115600
	.WORD	077442
	.WORD	077442
	.WORD	021042
	.WORD	000000
	.WORD	000000
	.WORD	037101
	.WORD	040501
	.WORD	040476
;115620
	.WORD	000000
	.WORD	037000
	.WORD	000501
	.WORD	020036
	.WORD	077500
	.WORD	000000
	.WORD	037010
	.WORD	044111
;115640
	.WORD	004476
	.WORD	037111
	.WORD	000010
	.WORD	077400
	.WORD	040100
	.WORD	000576
	.WORD	037101
	.WORD	000000
;115660
	.WORD	037000
	.WORD	040101
	.WORD	040576
	.WORD	037101
	.WORD	000000
	.WORD	037000
	.WORD	040501
	.WORD	040476
;115700
	.WORD	037101
	.WORD	000000
	.WORD	037000
	.WORD	040501
	.WORD	000477
	.WORD	037101
	.WORD	000000
	.WORD	037000
;115720
	.WORD	003101
	.WORD	004010
	.WORD	004000
	.WORD	000000
	.WORD	077000
	.WORD	040501
	.WORD	040576
	.WORD	077101
;115740
	.WORD	000000
	.WORD	017000
	.WORD	040041
	.WORD	040100
	.WORD	017041
	.WORD	000000
	.WORD	076000
	.WORD	020442
;115760
	.WORD	020441
	.WORD	076042
	.WORD	000000
	.WORD	077400
	.WORD	040100
	.WORD	040174
	.WORD	077500
	.WORD	000000
;116000
	.WORD	077400
	.WORD	040100
	.WORD	040174
	.WORD	040100
	.WORD	000000
	.WORD	017000
	.WORD	040041
	.WORD	047500
;116020
	.WORD	017041
	.WORD	000000
	.WORD	040400
	.WORD	040501
	.WORD	040577
	.WORD	040501
	.WORD	000000
	.WORD	037000
;116040
	.WORD	040501
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	077000
	.WORD	040501
	.WORD	040176
	.WORD	040100
;116060
	.WORD	000000
	.WORD	077000
	.WORD	040501
	.WORD	041176
	.WORD	040501
	.WORD	000000
	.WORD	037000
	.WORD	040101
;116100
	.WORD	000476
	.WORD	037101
	.WORD	000000
	.WORD	077400
	.WORD	004010
	.WORD	004010
	.WORD	004010
	.WORD	000000
;116120
	.WORD	040400
	.WORD	040501
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	000000
	.WORD	036000
	.WORD	037002
;116140
	.WORD	036502
	.WORD	000000
	.WORD	000000
	.WORD	037000
	.WORD	040101
	.WORD	037500
	.WORD	000000
	.WORD	000000
;116160
	.WORD	037000
	.WORD	077501
	.WORD	037100
	.WORD	000000
	.WORD	017000
	.WORD	020041
	.WORD	020174
	.WORD	020040
;116200
	.WORD	000000
	.WORD	000000
	.WORD	036400
	.WORD	036102
	.WORD	037100
	.WORD	037101
	.WORD	040000
	.WORD	057100
;116220
	.WORD	040541
	.WORD	040501
	.WORD	000000
	.WORD	001000
	.WORD	017000
	.WORD	001002
	.WORD	001002
	.WORD	036102
;116240
	.WORD	034000
	.WORD	004010
	.WORD	004010
	.WORD	037010
	.WORD	000000
	.WORD	000000
	.WORD	073000
	.WORD	044511
;116260
	.WORD	044511
	.WORD	000000
	.WORD	000000
	.WORD	057000
	.WORD	040541
	.WORD	040501
	.WORD	000000
	.WORD	000000
;116300
	.WORD	037000
	.WORD	040501
	.WORD	037101
	.WORD	000000
	.WORD	000000
	.WORD	077000
	.WORD	060501
	.WORD	040136
;116320
	.WORD	040100
	.WORD	000000
	.WORD	037000
	.WORD	041501
	.WORD	000475
	.WORD	000401
	.WORD	000000
	.WORD	057000
;116340
	.WORD	040141
	.WORD	040100
	.WORD	000000
	.WORD	000000
	.WORD	017400
	.WORD	017040
	.WORD	077001
	.WORD	000000
;116360
	.WORD	020000
	.WORD	074040
	.WORD	020040
	.WORD	017041
	.WORD	000000
	.WORD	000000
	.WORD	041000
	.WORD	041102
;116400
	.WORD	036502
	.WORD	000000
	.WORD	000000
	.WORD	040400
	.WORD	044501
	.WORD	021111
	.WORD	000000
	.WORD	000000
;116420
	.WORD	040400
	.WORD	016042
	.WORD	040442
	.WORD	000000
	.WORD	000000
	.WORD	040400
	.WORD	040501
	.WORD	000477
;116440
	.WORD	037001
	.WORD	000000
	.WORD	077400
	.WORD	004006
	.WORD	077460
	.WORD	000000
	.WORD	000000
	.WORD	043000
;116460
	.WORD	074511
	.WORD	043111
	.WORD	000000
	.WORD	000400
	.WORD	020036
	.WORD	060536
	.WORD	037101
	.WORD	000000
;116500
	.WORD	000000
	.WORD	017000
	.WORD	021042
	.WORD	077442
	.WORD	000101
	.WORD	000000
	.WORD	037010
	.WORD	044511
;116520
	.WORD	037111
	.WORD	004010
	.WORD	000000
	.WORD	077400
	.WORD	040100
	.WORD	040100
	.WORD	000000
	.WORD	000000
;116540
	.WORD	041000
	.WORD	041102
	.WORD	077502
	.WORD	000001
	.WORD	000000
	.WORD	040400
	.WORD	077501
	.WORD	040501
;116560
	.WORD	000000
	.WORD	000000
	.WORD	077400
	.WORD	040501
	.WORD	040501
	.WORD	000000
	.WORD	000000
	.WORD	037400
;116600
	.WORD	037501
	.WORD	040441
	.WORD	000000
	.WORD	000000
	.WORD	044400
	.WORD	037111
	.WORD	044511
	.WORD	000000
;116620
	.WORD	000000
	.WORD	040000
	.WORD	077100
	.WORD	077101
	.WORD	000000
	.WORD	000000
	.WORD	040400
	.WORD	070501
;116640
	.WORD	070511
	.WORD	000000
	.WORD	000000
	.WORD	037000
	.WORD	007101
	.WORD	037101
	.WORD	000000
	.WORD	000000
;116660
	.WORD	037000
	.WORD	017501
	.WORD	037101
	.WORD	000000
	.WORD	000000
	.WORD	040400
	.WORD	037501
	.WORD	000401
;116700
	.WORD	000000
	.WORD	000000
	.WORD	060000
	.WORD	037040
	.WORD	037041
	.WORD	000000
	.WORD	043000
	.WORD	044511
;116720
	.WORD	044571
	.WORD	043111
	.WORD	000000
	.WORD	077400
	.WORD	040100
	.WORD	040576
	.WORD	077101
	.WORD	000000
;116740
	.WORD	041000
	.WORD	041102
	.WORD	041102
	.WORD	077502
	.WORD	000001
	.WORD	017000
	.WORD	021042
	.WORD	021042
;116760
	.WORD	077442
	.WORD	000101
	.WORD	004000
	.WORD	044476
	.WORD	044511
	.WORD	004076
	.WORD	000000
	.WORD	077400
;117000
	.WORD	040501
	.WORD	040501
	.WORD	040501
	.WORD	000000
	.WORD	037400
	.WORD	040501
	.WORD	020477
	.WORD	040501
;117020
	.WORD	000000
	.WORD	040400
	.WORD	040501
	.WORD	000477
	.WORD	037101
	.WORD	000000
	.WORD	044400
	.WORD	044511
;117040
	.WORD	044476
	.WORD	044511
	.WORD	000000
	.WORD	040000
	.WORD	040100
	.WORD	040576
	.WORD	077101
	.WORD	000000
;117060
	.WORD	040400
	.WORD	040501
	.WORD	044561
	.WORD	070511
	.WORD	000000
	.WORD	037000
	.WORD	000501
	.WORD	000406
;117100
	.WORD	037101
	.WORD	000000
	.WORD	044400
	.WORD	044511
	.WORD	044511
	.WORD	077511
	.WORD	000000
	.WORD	037000
;117120
	.WORD	000501
	.WORD	000437
	.WORD	037101
	.WORD	000000
	.WORD	040400
	.WORD	040501
	.WORD	000477
	.WORD	000401
;117140
	.WORD	000000
	.WORD	060000
	.WORD	020040
	.WORD	020476
	.WORD	037041
	.WORD	000000
	.WORD	077400
	.WORD	002002
;117160
	.WORD	000436
	.WORD	037101
	.WORD	000000
	.WORD	037000
	.WORD	047501
	.WORD	047521
	.WORD	037500
	.WORD	000000
;117200
	.WORD	037000
	.WORD	040501
	.WORD	044501
	.WORD	037105
	.WORD	000001
	.WORD	017400
	.WORD	002004
	.WORD	002004
;117220
	.WORD	034104
	.WORD	000000
	.WORD	034000
	.WORD	042104
	.WORD	042470
	.WORD	036502
	.WORD	000000
L17236:	.WORD	035417
;117240
	.WORD	130074
	.WORD	036663
	.WORD	037377
	.WORD	040077
	.WORD	041101
	.WORD	053503
	.WORD	043105
	.WORD	044107
;117260
	.WORD	175662
	.WORD	132111
	.WORD	045265
	.WORD	133666
	.WORD	046113
	.WORD	047115
	.WORD	134117
	.WORD	050374
;117300
	.WORD	135271
	.WORD	136273
	.WORD	137275
	.WORD	050677
	.WORD	051376
	.WORD	052123
	.WORD	140125
	.WORD	176701
;117320
	.WORD	141702
	.WORD	142704
	.WORD	042126
	.WORD	066551
	.WORD	073157
	.WORD	056534
	.WORD	057536
	.WORD	143140
;117340
	.WORD	143541
	.WORD	144142
	.WORD	145311
	.WORD	061713
	.WORD	062314
	.WORD	147315
	.WORD	150317
	.WORD	151321
;117360
	.WORD	152323
	.WORD	153325
	.WORD	153545
	.WORD	154730
	.WORD	063332
	.WORD	064147
	.WORD	035130
L17376:	.WORD	124472
;117400
	.WORD	015252
	.WORD	125417
	.WORD	065017
	.WORD	026261
	.WORD	026654
	.WORD	007417
	.WORD	007417
	.WORD	027456
;117420
	.WORD	030460
	.WORD	126417
	.WORD	015656
	.WORD	031017
	.WORD	032063
	.WORD	033065
	.WORD	076017
	.WORD	017035
;117440
	.WORD	017572
	.WORD	020440
	.WORD	103205
	.WORD	021442
	.WORD	022173
	.WORD	023045
	.WORD	024047
	.WORD	024417
;117460
	.WORD	077175
	.WORD	100177
	.WORD	101201
	.WORD	103571
	.WORD	104610
	.WORD	105612
	.WORD	025417
	.WORD	106614
;117500
	.WORD	107616
	.WORD	110620
	.WORD	111622
	.WORD	112624
	.WORD	113626
	.WORD	114630
	.WORD	115632
	.WORD	116017
;117520
	.WORD	117235
	.WORD	120237
	.WORD	121241
	.WORD	122052
	.WORD	123245
	.WORD	124247
	.WORD	035017
L17536:	.WORD	000417
;117540
	.WORD	001402
	.WORD	102203
	.WORD	027004
	.WORD	002457
	.WORD	003406
	.WORD	004410
	.WORD	005412
	.WORD	006414
;117560
	.WORD	034416
	.WORD	010420
	.WORD	011422
	.WORD	012424
	.WORD	013426
	.WORD	014430
	.WORD	015432
L17576:	.WORD	143333
;117600 
	.WORD	160334
	.WORD	144335
	.WORD	157736
	.WORD	065730
	.WORD	054554
	.WORD	055156
	.WORD	150341
	.WORD	161742
;117620 
	.WORD	143721
	.WORD	154560
	.WORD	070744
	.WORD	163345
	.WORD	071347
	.WORD	071750
	.WORD	165351
	.WORD	050353
;117640 
	.WORD	166754
	.WORD	136356
	.WORD	072357
	.WORD	072551
	.WORD	051133
	.WORD	052167
	.WORD	140277
	.WORD	170760
;117660
	.WORD	135301
	.WORD	171304
	.WORD	134763
	.WORD	172764
	.WORD	173766
	.WORD	074370
	.WORD	035371
	.WORD	000000
;117700
	.BLKW	<<120000-117700>/2>

L20000:	.WORD	000000

	.END	START