;üíõìñôïò CSI-DOS ó SUB-DIRÁÍÉ
;ôïìøëï äìñ 3.15====!!!!!!!!
.LINK	136626
	DIR=120014
	TXT=120050
	STWIN$=60
	TX$=44
	INOUT=120022

.WORD	51414
	CMP	@#120004,#100000+315.
	BEQ	0
	RET
0:	TRAP	STWIN$
	CMP	@#120024,#137000
	BLO	11E		;RT-11_EM  õâéôø !!!!
	MOV	@#137774,@#120024
	MOV	@#137776,@#120042
11E:	TRAP	TX$	.WORD	10510
	.ASCIZ/üÍÕÌÑÔÏÒ CSIDOS/	.EVEN
	TRAP	TX$	.WORD	1400-16	
	.ASCIZ/ ×ÅÒÓÉÑ 1.2/	.EVEN
	CLR	@#44
	CLR	R0
	SOB	R0,.
	SOB	R0,.
	MOV	#137000,R1
	MOV	PC,R3
	ADD	#ANEM-.,R3
	MOV	#ANEME-ANEM,R2
	MOVB	(R3)+,(R1)+
	SOB	R2,.-2
	MOV	#137000,@#120116
	RET


ANEM:	BR	E36	;ïâòáâïôëá MK-DOSÎÏÇÏ ÚÁÐÒÏÓÁ
	BR	TRDIR	;TRANSDIR ÄÌÑ MC

E36:	MOV	@#306,R1
	MOV	(R1)+,R0
	BIC	#177774,R0
	CMPB	R0,#2
	BNE	0TR
NON:	CLRB	@#52
	JMP	@#121020
0TR:	CALL	TRDIR
	BCS	1
	JMP	@#121044
1:	CMPB	@#52,#14
	BEQ	NON
SEWA:	SEC
	RET

TRDIR:	MOV	@#DIR,R2
	CMP	#123123,2000+10(R2)
	BEQ	0NON
	MOVB	#14,@#52
	BR	SEWA
0NON:	CLR	CSI2
	CMP	#123123,2000+4(R2)
	BNE	08
	INC	CSI2
08:	ADD	#1600,R2
	MOV	#3400,R1
	MOV	#2,R0
	CALL	@INOUT
	BCS	SEWA
	MOV	DIR,R3
	MOV	R3,R2
	MOV	R3,R4
	CLR	30(R4)
	CLR	32(R4)
	ADD	#1600,R2
	MOV	2(R2),466(R3)	;ðïëìáìé òáúíåò äéóëá
	ADD	#500,R3
	MOV	#7,R5		;ïâáòâáôù÷áôø 10 âìïëï÷

TRBLK:	MOV	#31,R1		;÷ ëáöäïí âìïëå - 31 æáêì
	MOV	R2,LL
	ADD	#14,R2		;ðòïâåìù CSI-DOSÁ...

TRFIL:	TST	@R2		;åóìé óôáôõó=0 -> ËÏÎÅÃ
	BEQ	1WSE
	TSTB	@R2
	BNE	101
	MOVB	#1,@R2
101:	CMPB	@R2,#310	;åóìé "äùòù" - ÎÁ ÓÌÅÄ.ÚÁÐÉÓØ
	BHI	3NEXT
	MOV	R3,LR3
	MOV	R2,LR2
	CLR	@R3		;óôáôõó äìñ MK-DOS=0
	MOVB	@R2,1(R3)	;ðïäëáôáìïç,çäå ìåöéô...
	DECB	1(R3)
	TST	16(R2)		;åóìé îáþ.âìïë=0,-SUBDIR...
	BEQ	0DIR

	CMP	(R3)+,(R2)+
	MOV	#10,R0
	MOVB	(R2)+,(R3)+	;éíñ...
	SOB	R0,.-2
	CMPB	2(R2),#40
	BLOS	0NOEXT
	MOV	#2,R0		;åýå 2 ðòïâåìá...
92:	CMPB	-(R3),#40
	BHI	91
	INC	R0
	BR	92
91:	INC	R3
	MOVB	#'.,(R3)+	;åóôø òáóûéòåîéå
	MOV	#3,-(SP)
002:	CMPB	(R2),#40
	BHI	001
	CMPB	(R0)+,(R2)+
	BR	003
001:	MOVB	(R2)+,(R3)+
003:	DEC	@SP
	BNE	002
	TST	(SP)+
	BR	1
1WSE:	BR	0WSE
0NOEXT:	MOV	#6,R0		;åýå 6 ðòïâåìï÷...
1:	MOVB	#40,(R3)+
	SOB	R0,.-4
	MOV	LR2,R2
	MOV	LR3,R3
	MOV	16(R2),20(R3)
	MOV	20(R2),24(R3)
	MOV	22(R2),R0
	TST	CSI2
	BEQ	09
	TSTB	15(R2)
	BMI	0INBL
09:	MOV	R0,26(R3)
	MOV	R0,22(R3)
	ADD	#777,22(R3)
	ROR	22(R3)
	CLRB	22(R3)
	SWAB	22(R3)
	BR	1NEXT
3NEXT:	BR	0NEXT
0INBL:	BIC	#100000,R0
	MOV	R0,22(R3)
	CMP	R0,#77
	BLOS	01
	MOV	#77000,26(R3)
	BR	1NEXT
01:	SWAB	R0
	ASL	R0
	MOV	R0,26(R3)
	BR	1NEXT
0TRBLK:	BR	TRBLK
0TRFIL:	BR	TRFIL

0DIR:	CMP	(R3)+,(R2)+
	MOVB	#177,(R3)+
	MOV	#10,R0
	MOVB	(R2)+,(R3)+
	SOB	R0,.-2
	MOV	#5,R0
	MOVB	#40,(R3)+
	SOB	R0,.-4
	MOV	#4,R0
	CLR	(R3)+
	SOB	R0,.-2
	ADD	#3,R2
	MOV	LR3,R3
	MOVB	@R2,@R3
	DECB	@R3
1NEXT:	MOV	LR3,R3
	MOV	LR2,R2

	INC	30(R4)
	ADD	22(R3),32(R4)
	ADD	#30,R3

0NEXT:	ADD	#24,R2		;ðòéâá÷ìéìé äìéîõ úáðéóé
	SOB	R1,0TRFIL
	MOV	LL,R2
	ADD	#1000,R2
	SOB	R5,0TRBLK
0WSE:	MOV	R4,R3
	MOV	#123456,400(R3)
	CLC
	RET
LR3:	HALT
LR2:	HALT
LL:	HALT
CSI2:	HALT
ANEME:	.END