	.Title	EmBoot
	size = <end$em - EmBoot> / 2

	uk$rg = 176640		; õë-îã   £ 
	dwk$rg = -1		; ä÷ë     ·
	bk$rg = 177660		; âë...   · òÅÇÉÓÔÒÙ ×/×
	pk$rg = 161000		; ðë11/16 ¹

	uk$rs = 176674		; ÒÅÇ. ÓÏÓÔÏÑÎÉÑ £ õë-îã
	uk$rd = 176676		; ÒÅÇ. ÄÁÎÎÙÈ    ¹ ËÁÎÁÌ 2

.MACRO	.KOI8	ASCII
.IRPC	NUM,<ASCII>
.IF	LT	''NUM-100
.BYTE	''NUM
.IFF
.BYTE	''NUM	 ; +200
.ENDC
.ENDM
.ENDM
.macro	locate	yk,xk
	.byte	33,'Y,yk+40,xk+40
.endm
;     ººººººººº üÍÕÌÑÔÏÒ ÚÁÇÒÕÚÞÉËÁ ºººººººººº
	.psect	.data
EmBoot::
	nop
	br	test
	.word	t4-EmBoot,105			; .=  4
.=EmBoot+14
	.word	no.boot,0			; .= 14
	.word	.ttyin,0			; .= 20
.=EmBoot+30
	.word	b$print,0			; .= 20
.=EmBoot+40
; µµµµµµµ ×Ù×ÏÄ ÓÏÏÂÝÅÎÉÊ ÐÏ EMT µµµµµµµµµµµ
b$print:
	mov	(sp),r0
	mov	r1,(sp)
	mov	r0,r1
	mov	-(r1),r1
	bic	#^C377,r1
1$:	tstb	@#177564
	bpl	1$
	movb	(r0)+,@#177566
	sob	r1,1$
;	mov	(sp),r1
	mov	r0,(sp)
	rti
.=EmBoot+100
	.word	rti$-EmBoot,340			
jmpmas:	.word	uk$sub,dwk$sub,pk$sub,else	; ÁÄÒÅÓÁ ÐÅÒÅÈÏÄÏ×
; µµµµµµ ïÐÒÅÄÅÌÅÎÉÅ ÔÉÐÁ ü÷í µµµµµµµµµ
test:	reset
	mov	#End$Em+3000,sp		; õÓÔÁÎÏ×ÉÍ ÓÔÅË ÚÁ ÐÒÏÇÒÁÍÍÏÊ
	jsr	r5,tstreg
p$r5:	.word	bk$rg, uk$rg ,dwk$rg ,pk$rg,2
tstreg:
	tst	@(r5)+
no.bk:	br	bk$sub
	mov	#EmBoot,r1
1$:	mov	-EmBoot(r1),(r1)+
	dec	#size
	bne	1$
	jsr	r0,@jmpmas-p$r5-4(r5)	; ÎÏÍÅÒ ÐÒÉ×ÏÄÁ - × ÓÔÅË

; ºººººº      ïÂÒÁÂÏÔËÁ õëîã ººººººººººººººººº
; µµµµµµ ðÅÒÅÄÁÞÁ íð × ËÁÎÁÌ ë2 õëîã  µµµµµµµµ
put$mp:
	mov	#5,r1
	br	1$
2$:	movb	(r2)+,@#uk$rd
1$:	tstb	@#uk$rs
	bpl	1$
	sob	r1,2$
	tstb	(r2)
	bne	3$
	clr	pc	; úÁÐÕÓÔÉÍ ÓÞÉÔÁÎÎÙÊ ÚÁÇÒÕÚÞÉË
3$:
	clrb	(r2)	; ïÞÉÓÔÉÍ ÆÌÁÇ ÏÛÉÂËÉ
uk$sub:	mov	#60,r0
	add	(sp),r0
	movb	r0,2$
	bpt		; "ÎÅÔ ÚÁÇÒÕÚÞÉËÁ"
	emt	1$-.-2
	locate	9.,15.
	.koi8	<úÁÍÅÎÉÔÅ ÄÉÓË É ÚÁÄÁÊÔÅ ÎÏÍÅÒ ÐÒÉ×ÏÄÁ>
	locate	11.,30.
	.ascii	/MZ/
2$:	.ascii	/#:/<10><10>
	.even
1$:	iot		; .ttyin
	movb	r2,3$
	sub	#60,r2
	bmi	5$
	cmpb	r2,#4
	bge	5$	
	emt	4$-.-2
3$:	.byte	0,15,12,12,12
	.even	
4$:	br	6$
5$:	mov	(sp),r2
6$:	movb	r2,n.dev
	mov	r2,r0
	jsr	r2,put$mp	;£
	.word	m.par,-1	;¥µµ ÎÅ ÒÁÚÄ×ÉÇÁÔØ !
m.par:	.byte	0,10,1		;· ÏÔ×ÅÔ, ÞÔÅÎÉÅ, ÔÉÐ ÎÁËÏÐÉÔÅÌÑ
n.dev:	.blkb	1		;· ÎÏÍÅÒ ÐÒÉ×ÏÄÁ
	.byte	0,1		;· ÄÏÒÏÖÁ, ÓÅËÔÏÒ
	.word	0,400		;¹ ÁÄÒÅÓ, ËÏÌ. ÓÌÏ×
; ºººººººººº ïÂÒÁÂÏÔËÁ âë ºººººººººººº
bk$sub:	
	emt	14		; éÎÉÃÉÁÌÉÚÁÃÉÑ âë
	emt	16
	mov	#7.,r2		;
	mov	#18.,r1		;
	emt	24		; ëÕÒÓÏÒ × 7,18
	clr	r2		;
	mov	#no$boot-Emboot+1000,r1
	emt	20		; òÁÓÐÅÞÁÔËÁ ÓÔÒÏËÉ
	emt	6		; ïÖÉÄÁÎÉÅ ÎÁÖÁÔÉÑ ËÌÁ×ÉÛÉ
	jmp	@#160000	; ðÅÒÅÚÁÇÒÕÚËÁ
; ººººººº ïÂÒÁÂÏÔËÁ ðë 11/16  ºººººººº
pk$sub:	
	emt	1$-.-2
	.ascii	/No boot on volume !/	; /it is PK11-16/
	.even
1$:	halt
; ºººººººººº ïÂÒÁÂÏÔËÁ ä÷ë ººººººººººº
dwk$sub:	
; ºº ïÂÒÁÂÏÔËÁ ÎÅÏÐÒÅÄ. ÍÁÛÉÎÙ  ºººººº
else:
1$:	bpt
	halt
; µ ÷×ÏÄ ÓÉÍ×ÏÌÁ Ó ÏÖÉÄÁÎÉÅÍ ÐÏ iot µµµ
.ttyin:
1$:	tstb	@#177560
	bpl	1$
	movb	@#177562,r2
	rti
; µµµµµµ ïÂÒÁÂÏÔËÁ ÐÒÅÒÙ×ÁÎÉÑ 4 µµµµµµµ
t4:
	mfps	2(sp)
	mov	#103776,no.bk		; bcs .-2
rti$:	rti
; µµµµ ðÅÞÁÔØ ÓÏÏÂÝÅÎÉÑ ÐÏ bpt µµµµµµµµ
no.boot:
	emt	1$-.-2
	.byte	33,'H,33,'J
	.byte	16
	.even
1$:
	emt	3$-.-2
	locate	7.,26.
	.koi8	      <ïÛÉÂËÁ ÞÔÅÎÉÑ>
	.byte	17
	.even
3$:
	emt	2$-.-2
	locate	7.,20.
no$boot = :.
	.koi8	<÷ ÜÔÏÍ ÄÉÓËÅ ÎÅÔ ÚÁÇÒÕÚÞÉËÁ>
	.byte	15,12,17,0
	.even
2$:	mov	#2,3$	; ðÏÓÔÁ×ÉÍ ÉÎÓÔÒÕËÃÉÀ rti
	rti

.IIF	ge,.-1000-EmBoot	.Error	; .-1000  - EmBoot overflow 
end$em:
emsize == end$em - EmBoot
	.end
	
	                                                                                                                                                                