   TR-DOS 5.04T

   "H H + H P  TR-DOS 5.04T (5.03)  ,    ,    ."
 :   쥢, 04.04.1996.
ॢ  ᥫ  ⭠ ଠ, ଠ஢: Spectre, 19.10.2005

----------------------------------------------------------------
 0.  樠 ⥬.

0	DI		; 뢠
	LD DE,#FFFF	; 設 
	LD A,7		;梥  - 7
	JR 9		;樠 ⥬
----------------------------------------------------------------
 8. 樠 ⥬.  DE   設 ,  A - 7   뢠. ᯮ ⠪   9.

8	NOP
9	OUT (#FE),A	;⠭ 梥 
	LD A,#3F	;᫮  ॣ I
	JR #13		;樠 ⥬
----------------------------------------------------------------
 #10. 室  ணࠬ  ᨬ  ॣ A.

#10	JP #3D82
----------------------------------------------------------------
 #13. 樠 ⥬.  DE   設 , ⠭  ,   A 訩  襣     뢠.

#13	LD I,A		;㧪 ॣ I
	JP #1B 		;樠 ⥬
----------------------------------------------------------------
 #18. 室  ணࠬ  ப.

#18	JP #2707
----------------------------------------------------------------
 #1B.  ,   #24.

#1B	NOP
	NOP
	JR #24
----------------------------------------------------------------
 #20. 室  ணࠬ 맮 ணࠬ   ᨪ.  뢠 ணࠬ     ᫥  RST #20. ਬ:
RST #20
DW #0D6B

#20	JP #2F72
----------------------------------------------------------------
 #24. 樠 ⥬.  DE   設 , ⠭  ,   A 訩  襣     뢠.

#24	LD H,D		;ॡ᪠  設   HL
	LD L,E
	JR #2B 		;樠 ⥬
----------------------------------------------------------------
 #28. 롮ઠ  ⥪饣   ⮬ ᤢ,   ॣ C.

#28	JP #2323
----------------------------------------------------------------
 #2B. 樠 ⥬.  DE  HL   設 , ⠭  ,   A 訩  襣     뢠.

#2B	LD (HL),2	;饭  ।  ᫠ 2
	DEC HL		;᫥騩 
	CP H		; ?
	JR NZ,#2B 	;᫨ ,  
	JR #3A		;樠 ⥬
----------------------------------------------------------------
 #38. ࠡ⪠ ᪨㥬 뢠.

#38	EI
	RET
----------------------------------------------------------------
 #3A. 樠 ⥬.  DE   設   HL -  , ⠭  ,  祭   ⮬ 2   뢠.

#3A	OR A		; 䫠 C
	SBC HL,DE	;  ?
	ADD HL,DE
	INC HL		;᫥騩 
	JR NC,#47	;᫨ ,  ⠭ ⥬ ६
	DEC (HL)	;㬥襭   1
	JR Z,#47	;᫨ 稫 0,     ࠡ⠥
	DEC (HL)	;㬥襭   1
	JR Z,#3A	;᫨ 稫 0,    浪
#47	DEC HL		;᫥ ࠢ 
	LD (#5D40),HL	;⠭ P_RAMT
	LD DE,#3EAF	; ᨬ  UDG
	LD BC,#A8	; UDG - #A8 ⮢
	LD A,E
	EX DE,HL	;ॡ᪠  ᨬ  UDG  HL
	LD SP,#6000	;⠭ ६ ⥪
	LD (#5F00),HL	;࠭  ᨬ  UDG
	LD HL,#79	;  #79
	PUSH HL		;饭   ⥪
	LD HL,#3D2F	; ४⥫   TR-DOS
	PUSH HL		;饭   ⥪
	LD HL,#B8ED	;  LDDR
	JR #69		;⠭ UDG
----------------------------------------------------------------
 #66. ணࠬ ࠡ⪨ ᪨㥬 뢠.

#66	JP #2A56
----------------------------------------------------------------
 #69. 믮   .   HL  , ⠭ ॣ (#5F00  HL)    HL  .

#69	LD (#5F10),HL	;饭    
	PUSH AF		;࠭ AF
	LD A,#C9	;  RET
	LD (#5F12),A 	;饭   
	POP AF		;⠭ AF
	LD HL,(#5F00)	;६  ᨬ  UDG
	JP #5F10	;믮   
----------------------------------------------------------------
 #79. 樠 ⥬. ⠭ P_RAMT,  짮⥫,  ,   DE  砫   1   뢠.

#79	EX DE,HL	;㧪  UDG  HL
	INC HL
	LD (#5C7B),HL	;⠭ ६ UDG
	DEC HL		;᫥騩 
	LD BC,#1E40	;⠭ RASP  PIP
	LD (#5C38),BC
	LD (#5CB2),HL	;⠭ RAMTOP
	LD HL,#3C00	;⠭ CHARS
	LD (#5C36),HL
	LD HL,(#5CB2)	;६  RAMTOP
	LD (HL),#3E	;ਧ  ⥪ GO SUB
	DEC HL		;᫥騩 
	LD SP,HL	;⠭ ﭭ ⥪
	DEC HL		;⠭ ERR_SP
	DEC HL
	LD (#5C3D),HL
	LD DE,#1303	; ணࠬ ࠡ⪨ 訡
	PUSH DE		;⠭ 
	IM 1		;⠭ ࢮ ० 뢠
	LD IY,#5C3A	;⠭ ॣ IY
	LD HL,#5CB6	;⠭ CHANS
	LD (#5C4F),HL
	LD DE,#15AF	;  ⥫    ᨪ
	LD BC,#15	;  - #15 
	EX DE,HL
	CALL #117	;७  ⥫   
	EX DE,HL
	DEC HL		;⠭ DATADD
	LD (#5C57),HL
	INC HL		;᫥騩 
	LD (#5C53),HL	;⠭ PROG
	LD (#5C4B),HL	;⠭ VARS
	LD (HL),#80	; 
	INC HL		;᫥騩 
	LD (#5C59),HL	;⠭ E_LINE
	LD (HL),#D	; ப
	INC HL		;᫥騩 
	LD (HL),#80	; 
	INC HL		;᫥騩 
	LD (#5C61),HL	;⠭ WORKSP
	LD (#5C63),HL	;⠭ STKBOT
	LD (#5C65),HL	;⠭ STKEND
	LD A,#38	;ਡ ࠭
	LD (#5C8D),A 	;⠭ ATTR_P
	LD (#5C8F),A 	;⠭ ATTR_T
	LD (#5C48),A 	;⠭ BORDER
	LD HL,#523	;⠭ REPDEL  REPPER
	LD (#5C09),HL
	DEC (IY-#3A)	;  
	DEC (IY-#36)
	LD HL,#15C6	; ⠡ STRMS   ᨪ
	LD DE,#5C10	; ६ STRMS
	LD BC,#18	; ⠡ - #18 
	CALL #117	;७ ⠡  
	SET 1,(IY+1) 	; ⮪ 3
	LD HL,#5CC2	;饭  RET  
	LD (HL),#C9

!!! ⥬ ६ TR-DOS   ,    .

	RST #20		;樠  ਭ  ࠭
	DW #0EDF
	LD HL,#5C6A	; ਭ ᯮ짮
	LD (HL),2
	LD HL,#128B	;  #128B
	PUSH HL
	LD A,#AA	;믮  RUN "boot"
	LD (#5B00),A
	EI		;ࠧ襭 뢠
	JP #3D31	;室  TR-DOS
----------------------------------------------------------------
 #117. 믮  LDIR. ⠭ HL, DE  BC    #C9   #5F12.

#117	LD (#5F00),HL	;࠭ HL
	LD HL,#3D2F	; ४⥫   TR-DOS
	PUSH HL		;饭   ⥪
	LD HL,#B0ED	;  LDIR
	LD (#5F10),HL	;饭   
	LD HL,(#5F00)	;⠭ HL
	JP #5F10	;믮   
----------------------------------------------------------------
 #12A. ࠡ⪠  ப  ணࠬ  ᨪ. ⠭ #5D10  㧨 ணࠬ.

#12A	CALL #20E5	;   㤠 
	CALL #1D97	;⪠ ࠭

,    , ᫨  ணࠬ  ᨪ 㧨 ⠢,  ⥬  ணࠬ  ᨪ.

	LD HL,(#5C59)	;६ ,  ஬ 室 
	INC HL		;ப ⮧᪠ ணࠬ
	LD E,(HL)	;६  
	INC HL
	LD D,(HL)
	LD A,D		; 0?
	OR E
	EX DE,HL	;ॡ᪠   HL
	JR Z,#140	;᫨   0,  ணࠬ ᪠
	XOR A
	LD (#5D10),A
#140	PUSH HL		;࠭  ப 
	CALL #232	;⠭ ண  ணࠬ ࠡ⪨ 訡
	POP HL		;⠭  ப 
	LD (#5C42),HL	;⠭ 
	XOR A		;ப ᪠  ࢮ 
	LD (#5C44),A
	RST #20		;⪠ ࠡ祩  , ⥪    ।
	DW #16B0
	LD HL,(#5C53)	;믮 RESTORE
	DEC HL
	LD (#5C57),HL
	LD SP,(#5C3D)	;⪠ ⥪
	LD A,(#5D10) 	;ணࠬ ᪠?
	OR A
	LD HL,#1B76	; ணࠬ 믮 ணࠬ  ᨪ
	JR Z,#166	;᫨ ,   ணࠬ
	RST #20		;ᮮ饭 O.K.
	DW #1BB0
#166	PUSH HL		;饭  ⥪  ணࠬ 믮 ணࠬ
	 ᨪ
	LD HL,#5CC2	;饭  ⥪  ४⥫   ᨪ
	PUSH HL
	RET		;室  ணࠬ 믮 ணࠬ  ᨪ
----------------------------------------------------------------
 #16C.  ,   #3D1A,   ᮧ ⥬ ६.

#16C	CALL #20F1	; 
	CALL #294A	;ᮧ 
	LD A,#FF	;ᮮ饭  
	LD (#5D15),A
	XOR A		;㫥 #5CF7
	LD (#5CF7),A
	LD A,#AA	;⠢  뢮
	LD (#5D17),A
	LD HL,#201	;  ᨪ
	LD (#5D1A),HL
	LD HL,0		;࠭ SP
	ADD HL,SP
	LD (#5D1C),HL
	DEC HL		;뤥    ணࠬ
	DEC HL		;ࠡ⪨ 訡
	LD SP,HL
	CALL #21D	;⠭  ணࠬ ࠡ⪨ 訡
	LD HL,(#5CB2)	; ப 室  RAMTOP?
	LD DE,(#5C5D)
	SBC HL,DE
	EX DE,HL
	JR NC,#1A5	;᫨ ,   뤥   
	OR A		;६頫
	LD DE,#101
	SBC HL,DE
#1A5	LD (#5C5D),HL
#1A8	CALL #1C7	;᫥騩 ᨬ ப ENTER?
#1AB	JP Z,#1D3	;᫨ ,  襭
	CP #EA		; REM?
	INC HL		;᫥騩 ᨬ
	JR NZ,#1A8	;᫨ ,  ᫥騩 ᨬ
	CALL #1C7	;᫥騩 ᨬ ப ENTER?
	JR Z,#1AB	;᫨ ,  襭
	CP ":"		; 稥?
	JP NZ,#1D3	;᫨ ,  
	INC HL		;᫥騩 ᨬ
	CALL #3048	;ᦠ⨥ ப
	JP #30A		;믮 
----------------------------------------------------------------
 #1C7.  ᨬ    HL  頥     䫠 Z ᫨  0, #D  #80,  NZ.

#1C7	LD A,(HL)	;६   㦭 
	CP #D		; #D?
	RET Z		;᫨ ,  
	CP #80		; #80?
	RET Z		;᫨ ,  
	OR A		;ࠢ   㫥
	RET		;
----------------------------------------------------------------
 #1D3. ணࠬ 襭. 室: ⠭ #5CB6, #5D0C, #5D0F, #5D11, #5D18, #5D1A, #5D1C  #5D1F. 室:  SP   #5D1C,   BC  訡.

#1D3	LD HL,0		; 㡨,  
	LD (#5CF8),HL
	CALL #20E5	;᫨  ,  㡥६ 
	CALL #1D63	;᫨ ,  ⪠ ࠡ祩  
	LD HL,#5D17	;⠢  뢮
	LD (HL),#AA
	LD HL,#5D1F	; 㯨  設 ?
	LD A,(HL)
	OR A
	LD (HL),0	;᫥  㤥   設 
	JR NZ,#1F3	;᫨  뫠   設 , 
	CALL #1E1C	;㤠  ப 5-⮢ ᥫ
	CALL #212	; ண ᨬ   ப
#1F3	LD SP,(#5D1C)	;頥  SP   #5D1C
	LD HL,(#5D1A)	;६  室  ⮩ ணࠬ
	LD BC,(#5D0F)	;頥  BC  訡
	LD B,0
	JP (HL)		;室  祭 
----------------------------------------------------------------
 #201. ஢ઠ  訡. 室: ⠭ #5C3A  #5D13.

#201	CALL #232	;饭  #5C3D   #5D13
	BIT 7,(IY+0) 	;뫠 訡?
	RET NZ		;᫨ ,  
	LD DE,#5CC2	;  RET  
	LD SP,(#5C3D)	;⠭ SP   ⥪
	PUSH DE		;室  ࠡ 訡
	RET
----------------------------------------------------------------
 #212. ண ᨬ   ப. ⠭  #5C5D    ᨬ ப.  室 ⠬ 㤥   ப.

#212	CALL #1D8C	;६ ⥪騩 ᨬ ப
	CP #D		; ENTER?
	RET Z		;᫨ ,  
	CALL #1E2A	;६ ᫥騩 ᨬ ப
	JR #212		;
----------------------------------------------------------------
 #21D. ⠭  ࠡ⪨ 訡. 室:  #5D1C     2  ⮣,  ஬ ࠧ頥  ணࠬ ࠡ⪨ 訡. 室: ஥ ᮤন #5C3D   #5D13,   #5C3D 頥 ,  ஬ 室 ࠧ饭 .

#21D	LD HL,(#5C3D)	;࠭ ண ᮤন #5C3D
	LD (#5D13),HL
	LD HL,(#5D1C)	;६   #5D12
	DEC HL		;६ 㦭  
	DEC HL
	LD (#5C3D),HL	;⠭ #5C3D
	LD DE,#3D16	; ணࠬ ࠡ⪨ 訡
	LD (HL),E	;    祩
	INC HL
	LD (HL),D
	RET		;
----------------------------------------------------------------
 #232. 饭  #5C3D   #5D13. ⠭ #5D13.

#232	LD HL,(#5D13)
	LD (#5C3D),HL
	RET
----------------------------------------------------------------
 #239. 室   . ᯮ ⠪   #27B ( 䠩 "boot").

#239	LD HL,0		;㫥 #5CF7  #5CF8
	LD (#5CF7),HL
	ADD HL,SP	;࠭ SP
	LD (#5D1C),HL
	DEC HL		;뤥    ணࠬ
	DEC HL		;ࠡ⪨ 訡
	LD SP,HL
	CALL #21D	;⠭  ணࠬ ࠡ⪨ 訡
	LD HL,#5D17	;⠢ 뢮?
	LD A,(HL)
	CP #AA
	LD A,0		;訡 
	LD (#5D0F),A
	JP Z,#2CB	;᫨ ⠢  㦭,  室   
	LD (HL),#AA	; ᫥騩 ࠧ ⠢  뢮
	CALL #1D97	;⪠ ࠭
	CALL #1D88	;⨥ ⮪ 2
	LD HL,#360	;뢮 ⥪ ⠢
	RST #18
	CALL #106E	;뢮 梥 
	LD A,(#5CB6) 	;䥩-1 ?
	CP #F4
	JR Z,#271	;᫨ , 
	LD HL,#1000	;뢮 "Interface one fitted"
	RST #18
#271	LD A,(#5B00) 	;䠩 "boot" ᪠?
	CP #AA
	JR NZ,#2CB	;᫨ ,  室   
	CALL #20F1	; 
	LD HL,(#5C59)	;६   
	LD A,#FE	; 饭 䠩 "boot"
	LD (#5D0E),A
	LD (HL),#F7	;  RUN "boot"
	INC HL
	LD (HL),#22
	INC HL
	LD (HL),"b"
	INC HL
	LD (HL),"o"
	INC HL
	LD (HL),"o"
	INC HL
	LD (HL),"t"
	INC HL
	LD (HL),#22
	INC HL
	LD (#5C5B),HL	;⠭  
	LD (HL),#D	;ENTER
	INC HL
	LD (HL),#80	; 
	INC HL
	LD (#5C61),HL	;⠭ ६ WORKSP
	LD (#5C63),HL	;⠭  ⪠ ⥪ 
	LD (#5C65),HL
	SET 3,(IY+1) 	;⠭ ० L
	JR #2EF		;믮 
----------------------------------------------------------------
 #2B0. ७  ⮢   HL   DE.

#2B0	LD B,3		;⢮ ⮢
#2B2	LD A,(HL)	;७ 
	LD (DE),A
	INC HL		; ᫥ ⮢
	INC DE
	DJNZ #2B2 	;  
	RET		;
----------------------------------------------------------------
 #2B9. ⠭ ᪮.  A  祭 ⥬ ॣ.

#2B9	LD B,#20	;#20 
#2BB	PUSH BC		;࠭ ⢠ ஢
	XOR 8		;४祭  3
	OUT (#FF),A	;㧪 ⥬ ॣ
	PUSH AF		;࠭ 祭 ⥬ ॣ
	LD A,5		;প  #462A ⠪
	CALL #3DFF
	POP AF		;⠭ 祭 ⥬ ॣ
	POP BC		; ⢠ ஢
	DJNZ #2BB	;  
	RET		;
----------------------------------------------------------------
 #2CB.  . ᯮ ⠪  ᮢ:
#2EF - ᯮ .       ப;
#30A - ᯮ . ⠭   #1D3, #5D11  㧨  #5D11 HL.

#2CB	LD HL,(#5D1C)	;⪠ ⥪
	DEC HL
	DEC HL
	LD SP,HL
	CALL #20F1	; 
	CALL #1D83	;⨥ ⮪ 0
	LD A,(#5D16) 	;롮 ᪮ D:
	OR 3
	CALL #2B9	;⠭ 
	LD A,(#5D16) 	;⠭ ⥪饣 ᪮
	CALL #2B9
	XOR A		;ᮮ饭  訡 
	LD (#5D15),A
	CALL #2135	;ਭ⨥ 
	CALL #3032	;ᦠ⨥  ப
#2EF	CALL #1D9F	;⪠  ࠭
	LD HL,#2CB	;   
	LD (#5D1A),HL
	XOR A		;訡  뫮
	LD (#5D0F),A
	LD HL,(#5C59)	;६   ப
	PUSH HL		;࠭塞 
	LD DE,#5D20	; 
	CALL #2B0	;࠭   ᨬ ப
	POP HL		;⠭  ப
	LD (#5D11),HL	;⠭   ப
#30A	LD A,(HL)	;६  ᨬ ப
	LD B,A		;࠭塞 
	AND #80		;   #80?
	LD A,B		;⠭ ᨬ
	JR Z,#31A	;᫨    #80,  ᪮  ⠭
	CP #FE		; RETURN?
	JR Z,#31A	;᫨ ,  ᪮  ⠭
	PUSH AF		;࠭ ᨬ
	CALL #3DC8	;⨢ ᪮  㬮砭
	POP AF		;⠭ ᨬ
#31A	LD HL,#2FF3	; ⠡ 
	DEC HL
	LD C,0		;஢ઠ ࢮ 
#320	INC C
	LD D,A		;࠭ ᨬ
	LD A,#15	;ன  ⠡?
	CP C
	JP C,#1D3	;᫨ ,  襭

 뫮  ⠢  JP C,#1D1A  뤠 ᮮ饭 "*ERROR*".

	LD A,D		;⠭ ᨬ
	INC HL		; ᫥饩   ⠡
	CP (HL)		;ᨬ ᮢ?
	JR NZ,#320	;᫨ ,  
	CP #FE		;  RETURN?
	CALL NZ,#294A	;᫨ ,  ᮧ 
	LD A,9		; 䠩   9 ⠬
	LD (#5D06),A
	XOR A		;訡  뫮
	LD (#5D0F),A
	LD (#5CD6),A 	;७ 䠩 ਭ
	LD (#5D10),A 	; 砩 㧪  䨪樨 䠩
	LD HL,#5C3B	;஢ઠ ப  ᨭ⠪
	RES 7,(HL)
	LD B,0		;ॢ    塠 
	LD HL,#3008	; ⠡ ᮢ ணࠬ
	DEC C		;   
	SLA C		;㬭  ணࠬ  2
	ADD HL,BC	;।   ⠡
	LD E,(HL)	;६  ணࠬ
	INC HL
	LD D,(HL)
	EX DE,HL	;७ᨬ   HL
	PUSH HL		;࠭塞 
	LD DE,#359	; 㤥  #359
	PUSH DE
	JP (HL)		;맮 ணࠬ
#359	LD HL,#5C3B	;믮 
	SET 7,(HL)
	POP HL		;⠭  ணࠬ
	JP (HL)		;맮 ணࠬ
----------------------------------------------------------------
 #360.  ⠢ TR-DOS.

#360	DB #16,1,#F
	DB "* TR-DOS Ver 5.04T*"
	DB #D,#D,#7F
	DB " 1986 Technology Research ltd."
	DB #16,5,#B
	DB "(U.K.)"
	DB #16,7,5
	DB "BETA 128"
	DB 0
----------------------------------------------------------------
 #3AC. 襭 뤠 ⠫.

#3AC	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	CALL #3D80	;ॢ ப
	CALL #3D80	; ࠧ
	LD BC,(#5E0A)	;६ ⢮ ᢮ ᥪ஢  ᪥
	CALL #1DA9	; 
	LD HL,#29D2	; FREE
	RST #18
	JP #1D3		;襭
----------------------------------------------------------------
 #3C0. 室  ணࠬ 襭.

#3C0	JP #1D3
----------------------------------------------------------------
 #3C3.  ᮮ饭  訡.  HL ⠭  ᮮ饭,  A -  訡.

#3C3	PUSH AF		;࠭  訡
	LD A,(#5D0E)	;訡 ந諠  ⮧㧪?
	CP #FE
	JR NZ,#3CD	;᫨ ,  ⠭  訡
	POP AF		;⨥  ⥪  訡
	RET		;
#3CD	POP AF		;⠭  訡
	LD (#5D0F),A	;⠭  訡
	LD A,(#5D15)	; ᮮ饭 ࠧ襭?
	OR A
	CALL Z,#2707 	;᫨ ,   ᮮ饭

訡!!! ।    ⮪ 0    ࠭.

	RET		;
----------------------------------------------------------------
 #3E1. 뢮 ᮮ饭 O.K.

#3E1	LD HL,#2766	; ᮮ饭 O.K.
	XOR A		; 訡 - 0
	JP #1C4A	;뤠 ᮮ饭  襭
----------------------------------------------------------------
 #3E8. 㧪 ᥪ 0 ஦ 0  .  #5CCC. ᯮ ⠪  ᮢ:
#3EC - 㧪 ᥪ ஦ 0  . ⠭ #5CCC.
#3F2 - 㧪 ᥪ  ,  ᥪ  E, ஦ ?  D).

#3E8	XOR A		;⥪騩 ᥪ 0
	LD (#5CCC),A
#3EC	LD DE,(#5CCC)	;६  ᥪ
	LD D,0		;஦ 0
#3F2	CALL #294A	;ᮧ 
	LD HL,#5D25	;㦠  
	LD B,1		;1 ᥪ
	JP #1E3D	;㧪 ᥪ
----------------------------------------------------------------
 #3FD. 㧪   ᥪ 8 ஦ 0. ⠭ #5D0C.

#3FD	CALL #294A	;ᮧ , ᫨  
	LD DE,8		;஦ 0, ᥪ 8
	JR #3F2		;㧪 ᥪ  
----------------------------------------------------------------
 #405. ன  .  ६  ⨯ ᪮.

#405	CALL #3FD	;⥭   ᥪ 8 ஦ 0
	LD A,(#5E0C)	;  TR-DOS?
	CP #10
	JR Z,#415	;᫨ ,  ⠭ ⨯ ᪮
	LD HL,#29E2 	; ᮮ饭 DISC ERROR
	RST #18		; ᮮ饭
	JR #3C0		;襭

, 訡!!! ࠢ쭮 ࠡ뢠 訡.  ணࠬ   ⠪:
	LD HL,#29E2
	LD A,7
	JP #1C4A
  ⮬ 砥  ணࠬ    訡,   ࠭ ᮢ襭     DISC ERROR.

	CALL #3E11	;६ ⨯ ᪮
	RES 0,(HL)	;⠭ ⨯ ᪮  ⨯ ᪠
	RES 1,(HL)	; 
	LD A,(#5E08)
	BIT 0,A
	JR NZ,#425
	SET 0,(HL)
#425	BIT 3,A
	RET NZ
	SET 1,(HL)
	RET

訡!!! । ⠭ ⨯   ஢ ᮢ⨬ ᪠  ᪮.
----------------------------------------------------------------
 #42B. ஢ઠ ண ᨬ  ப. 室: ⠭ #5D11.  室 㤥 ⠭ 䫠 Z, ᫨  ENTER  襭, ᫨ .

#42B	LD HL,(#5D11)	;६  砫 ப 
	INC HL		;६   ண ᨬ
	LD A,(HL)	;६  ᨬ
	CP #D		;ࠢ   ENTER
	RET		;
----------------------------------------------------------------
 #433. 믮  CAT. ⠭ #5D11  #5C3B. ᯮ ⠪  :
#479 (뢮 ⠫ ᪠;  A -  ⮪,   - ᥪ 8 ஦ 0).

#433	CALL #42B	;ன ᨬ ப  ENTER?
	LD BC,2		;⠫ 뢮  ⮪ 2
	LD (#5CDB),BC
	JR Z,#46A	;᫨ ன ᨬ ப ENTER,  뢮 ⠫
	CP "#"		;ன ᨬ ப "#"?
	JR NZ,#45D	;᫨ ,  ⠭ ᪮  뢮 ⠫
	LD (#5C5D),HL	;⠭ CH_ADD  ன ᨬ ப
	CALL #1E0B	;⠭  ⮪
	CALL #1D8C	;६ ⥪騩 ᨬ
	CP #D		; ENTER?
	JR Z,#46A	;᫨ ,  뢮 ⠫
	CP ","		; ?
	JP NZ,#1D1A	;᫨ ,  ᨭ⠪᪠ 訡
	CALL #1E2A	;६ ᫥騩 ᨬ
	CALL #1DBD	;饭  ᪮  ⥪ 
	JR #460		;⠭ ᪮  뢮 ⠫
#45D	CALL #1DDF	;⠭ CH_ADD  饭  ᪮  ⥪ 
#460	CALL #1D75	;᫨ ப ஢  ᨭ⠪,  
	CALL #1DB5	;⨥  ᪮  ⥪ 
	EX DE,HL
	CALL #1C81	;⠭ ᪮
#46A	CALL #1D75	;᫨ ஢ઠ  ᨭ⠪,  
	LD A,(#5CF6) 	;饭  ᪮  #5CF9
	LD (#5CF9),A
	CALL #405	;ன  
	LD A,(#5CDB) 	;६  ⮪
#479	CP 2		;뢮  ⮪ 2?
	PUSH AF		;࠭  ⮪
	CALL Z,#1D97	;᫨ 祭 ⮪ 2,  ⪠ ࠭
	POP AF		;⠭  ⮪
	CP #11		;  #10?

訡!!! ᥣ ⮪ #F,   #10.

	JP NC,#1D1A	;᫨ ,  訡
	CALL #1D84	;⨥ ⮪

訡!!!   ஢, 祭  㤠-  ⮪.

	LD A,#FF	;⠭ #5CF8  #FF
	LD (#5CF8),A
	LD HL,#29F7	; TITLE:
	RST #18
	LD HL,#5E1A	;  ᪠
	RST #18
	CALL #3D80	;ॢ ப
	LD A,(#5E09) 	;᫥ ⢠  䠩  ᪥
	LD HL,#5E19
	SUB (HL)
	PUSH HL
	CALL #1DA3	; 
	LD HL,#2A2B	; FILES
	RST #18
	POP HL
	LD C,(HL)	;६ ⢮  䠩
	CALL #1DA4	; 
	LD HL,#2A1D	; DEL.FILES
	RST #18
	CALL #3E8	;㧪   ᥪ 0 ஦ 0
	LD HL,#5D25	;६ 砫 
#4B6	CALL #4F6	;஢ઠ ⨦  ⠫
	CALL #3D80	;ॢ ப
	LD A,(#5CF6) 	;  ᪮
	ADD A,"A"
	RST #10
	LD B,2		;⠥  2   ப
#4C4	CALL #4F6	;᫨ 䠩 ,  ய 
	PUSH BC		;࠭ ⢠  䠩  ப
	LD A,":"	; 
	RST #10
	PUSH HL		;࠭  ⥪饣 ⥫ 䠩  
	CALL #2938	;   ७ 䠩
	LD BC,#D	;᫥ ,  ஬ 室
	POP HL		;ࠧ 䠩  ᥪ
	PUSH HL
	ADD HL,BC
	LD C,(HL)	;६ ࠧ 䠩
	PUSH BC		;࠭ 
	LD A,C		;ॣ㧨   A
	LD B,2		;᫥ ⢠ ஡ । ᫮
	CP #A
	JR C,#4DF
	DEC B
	CP #64
	JR NC,#4E8
#4E3	LD A," "	; ஡
	RST #10
	DJNZ #4E3
#4E8	POP BC		;⠭ ࠧ 䠩
	CALL #1DA9	; 
	POP HL		;⠭  ⥪饣 ⥫ 䠩
	POP BC		;⠭ ⢠  䠩  ப
	LD DE,#10	;᫥騩 ⥫
	ADD HL,DE
	DJNZ #4C4	;᫨ ⠫ ⮫쪮 1 䠩,   ண
	JR #4B6		;᫥ ப
----------------------------------------------------------------
 #4F6. ஢ઠ ६ #5CF9  ஢ઠ ⨦  ⠫   .

#4F6	PUSH HL		;࠭ HL  BC
	PUSH BC
	LD A,(#5CF9) 	;६  ᪮  뤠 ⠫
	LD HL,#5CF6	;祭  ᪮?
	CP (HL)
	CALL NZ,#3D8B	;᫨ ,   ᫥⢨ ⠩  

訡  ணࠬ!!!  ⮬ ᮡ   ⥪.

	POP BC		;⠭ HL  BC
	POP HL
	JP #2FC6	;஢ઠ ⨦  ⠫  

 ᮡ    CALL NZ,#3D8B.  筮 pp  LIST ⮨ CALL NZ,#3DCB.  襬  砥 p 㤥 ।  ணࠬ  ᨬ (  #3D80)  ,  室 2     CALL #3D94. ணࠬ  ⮣  㤥 ⠪:
SUB H
DEC A
CALL #20F1
POP DE
POP BC
POP HL
RET
 ࠧ, ந  , ᫨  ࠧ襭, ⥬  ⥪   3   饭  ॣ  ⥬ ந . ᫥⢨ ᥣ ⮣ । ணࠬ, 맢襩 #4F6.
----------------------------------------------------------------
 #507. ਡ #10  HL.

#507	LD DE,#10
	ADD HL,DE
	RET
----------------------------------------------------------------
 #50C. ஢ઠ  ࠡ⪠ ⨦    ࠡ  ⠫. ⠭ #5CCC    HL ⥪饥  . ᫨ ⨣  ,   HL 㤥 砫     㤥 㦥 ᫥騩 ᥪ ⠫.

#50C	PUSH HL		;࠭ HL  BC
	PUSH BC
	LD BC,#A1DB	;⨣  ?
	ADD HL,BC
	JR C,#517	;᫨ ,  㧪 ᫥饣 ᥪ
	POP BC		;⠭ HL  BC
	POP HL
	RET		;
#517	LD HL,#5CCC	;᫥騩 ᥪ
	INC (HL)
	CALL #3EC	;㧪   
	POP BC		;⠭ BC  HL
	POP HL
	LD HL,#5D25	;饭  HL  砫 
	RET		;
----------------------------------------------------------------
 #524. ᫥  ᪮   .    ,  室 ⠬ 㤥 .

#524	AND #DF		;㪢 
	SBC A,#41	;᫥  ᪮
	JP C,#1D1A 	;᫨   ᨬ  "A",  訡
	CP 4		; 稫  3?
	JP NC,#1D1A	;᫨ ,  訡
	RET		;
----------------------------------------------------------------
 #53A. 믮  NEW. ⠭ #5D11  #5C3B. ᯮ ⠪   #569 ( ଠ樨  䠩;  䠩   ॣ C).

#53A	CALL #1DCD	;ਥ  䠩  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #102E	;ਥ ७ 䠩
	CALL #1CB0	;⠭ ண  䠩
	LD A,(#5CF6)	;६  ᪮
	LD (#5CF8),A	;࠭塞 
	JP NZ,#3D9	;᫨ 䠩  ,  訡
	PUSH BC		;࠭  䠩
	CALL #165D	;㧪 ⥫ 䠩
	CALL #1CB0	;⠭   䠩
	PUSH AF		;࠭ १ ஢ન  䠩
	LD A,(#5CF8)	;   䠩 祭 㣮 ᪮
	LD HL,#5CF6
	CP (HL)
	JP NZ,#1D1A	;᫨ ,  訡
	CALL #405	;ன  
	POP AF		;⠭ १ ஢ન  䠩
	JP Z,#1C50	;᫨ ⠪ 䠩 㦥 ,  訡
	POP BC		;⠭  䠩

#569	CALL #166B	;㧪 ᥪ  ⥫ 䠩   ⥫
	CALL #1E43	;१ ᥪ
	JP #3E1		;ᮮ饭 O.K.
----------------------------------------------------------------
 #572. ஢ઠ ६ #5D10. ⢥⢥ ᮤন 㤥 ⠭ 䫠 Z,  ᠬ ᮤন 㤥  .

#572	LD A,(#5D10)
	OR A
	RET
----------------------------------------------------------------
 #577. ஢ઠ ⢠  䠩. ⠭ #5D11. ᫨ ⠬ 0,  㤥 ᮮ饭 NO FILE,  O.K.

#577	LD A,(#5D11)	;६ ⢮  䠩
	OR A		; ࠢ 0?
	JP Z,#3D9	;᫨ ,  NO FILE
	JP #3E1		; O.K.
----------------------------------------------------------------
 #581.   ࠭ 䠩. ⠭ #5CDD  #5CF6,   ॣ C   䠩.  ⢥ Y 䠩 㤥    䫠 Z,   㤥 몫祭.

#581	PUSH BC		;࠭  䠩
	CALL #1D97	;⪠ ࠭  ⨥ ⮪ 0.
	LD A,(#5CF6)	;६  ᪮
	ADD A,"A"	;塞  ᪮
	CALL #3D82	; 
	LD A,":"	; 
	CALL #3D82
	LD HL,#5CDD 	; ६    ७ 䠩
	CALL #2938	;   ७ 䠩
	LD HL,#2820 	; FILE EXISTS. OVERWRITE?
	CALL #2707
	CALL #1052	; 
	CP "Y"		; "Y"?
	PUSH AF		;࠭ १ ஢ન
	CALL #1D97	;⪠ ࠭
	POP AF		;⠭ AF   䠩
	POP BC
	RET NZ		;᫨  ⢥ N,  
	PUSH BC		;࠭  䠩
	CALL #1D97	;⪠ ࠭
	POP BC		;⠭  䠩
	CALL #781	;࠭ 䠩
	XOR A		;祭 䫠 Z
	RET		;
----------------------------------------------------------------
 #5B4. ஢ઠ  ⢮  䠩  ७ #. ⠭ #5CDD, #5CE5  #5CE6. ᫨     䠩 㣮 ७,  砥 䫠 Z,   㤥 몫祭.

#5B4	LD A,(#5CE5)	;६ ७ 䠩
	CP "#"		; "#"?
	JR Z,#5BD	;᫨ , 
	XOR A		;祭 䫠 Z
	RET		; 
#5BD	LD A,#A		;䠩 饬  #A ⠬
	LD (#5D06),A
	CALL #1CB3	; 䠩
	LD A,9		;䠩 饬  9 ⠬
	LD (#5D06),A
	RET		;
----------------------------------------------------------------
 #5CB. 믮  COPY "*","*".     #5CDD,  -  ⥪   ⠭ #5CF8, #5D23  #5CCF.

#5CB	LD A,(#5CDD)	;६  ᨬ  䠩
	CP "*"		; "*"?
	JP NZ,#3D9	;᫨ ,  NO FILE
	CALL #1DB5	;⨥ ப  ⥪ 
	EX DE,HL
	CALL #1C81	;⠭ ᪮-ਥ
	LD A,(HL)	;६ ᫥騩 ᨬ ப
	CP "*"		; "*"?
	JP NZ,#1D1A	;᫨ ,  訡
	LD A,(#5CF6)	;࠭  ᪮-ਥ
	LD (#5CF9),A
#5F4	LD A,(#5CF9)	;롮 ᪮-ਥ
	CALL #3DCB
	CALL #405	;ன  
	LD A,#FF	;筥  䠩 0
	LD (#5D0D),A
	LD A,(#5CF8)	;롮 ᪮-筨
	CALL #3DCB
	CALL #405	;ன  
	LD A,(#5D0D)	;᫥騩 䠩
	INC A
	LD (#5D0D),A
	LD C,A
	CALL #165D	;⥭  ⥫
	LD A,(#5CDD)	;६  ᨬ  
	CP 0		;  ⠫?
	JP Z,#3E1	;᫨ ,  O.K.
	CP 1		;䠩 ?
	JR NZ,#5F4	;᫨ ,  ᫥騩 䠩
	LD HL,#5CE6 	;࠭  ⥫ 䠩
	LD DE,#5CED
	LD BC,7
	LDIR
	LD A,(#5CF9)	;롮 ᪮-ਥ
	CALL #3DCB
	CALL #1CB3	; 䠩
	JR NZ,#634	;᫨  諨,  ஢ 䠩
	CALL #5B4	;஢ઠ 䠩  ७ "#"
	JR NZ,#634	;᫨  㣮 ,  㥬 
	CALL #581	; OVERWRITE?
	JR NZ,#5F4	;᫨  ⢥ N,  ᫥騩 䠩
#634	CALL #63C	;஢ 䠩
	CALL #1E43	;१ ᥪ  ⥫ 䠩
	JR #5F4		;   ⠫
----------------------------------------------------------------
 #63C. ஢ 䠩   ᪮.  ⥫ 䠩  #5CDD     #5CED.

#63C	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	LD A,(#5E09) 	;६ ⢮ 䠩  ᪥
	CP #80		;㦥  #80 䠩?
	JP Z,#1C45	;᫨ ,  NO SPACE

訡!!!  뢮 DIRECTORY FULL.

	LD HL,#5CED	;⠭ ⥫ 䠩
	LD DE,#5CE6
	LD BC,7
	LDIR
	LD DE,(#5CEA)	;६  䠩  ᥪ
	LD D,0
	OR A
	LD HL,(#5E0A)	;६ ⢮ ᢮ ᥪ஢  ᪥
	SBC HL,DE	;㬥蠥 ᢮ 
	JP C,#1C45	;᫨   墠⨫,  NO SPACE
	LD (#5E0A),HL	;⠭  ⢠ ᢮ ᥪ஢
	LD HL,(#5E06)	;६  ᢮ ࠭⢠  ᪥
	LD (#5CEB),HL	;⠭  䠩  ᪥
	PUSH HL		;࠭ 
	CALL #72F	;஢ 䠩
	POP HL		;⠭  䠩  ᪥
	LD (#5CEB),HL	;⠭ 
	LD HL,(#5CF4)	;६   ᢮   ᪥
	LD (#5E06),HL	;⠭ 
	LD HL,#5E09	;ᠫ 1 䠩
	INC (HL)
	LD C,(HL)	;६  뢠 䠩
	DEC C
	LD B,0
	PUSH BC		;࠭塞 
	LD DE,9		;뢠 ᥪ 8 ஦ 0
	LD (#5CF4),DE
	CALL #1E43	; ᥪ
	POP BC		;⠭  䠩
	CALL #166B	;⠭ ⥫ 䠩
	RET		;
----------------------------------------------------------------
 #690. 믮  COPY. ⠭ #5D11  #5C3B.

#690	LD HL,(#5D11)	;६  ண ᨬ  ப
	INC HL
	LD A,(HL)	;६  ᨬ
	AND #DF		;㪢 
	CP "S"		; "S"?
	JP Z,#1360	;᫨ ,  㥬 1 䠩   ᪮
	CP "B"		; "B"?
	JP Z,#152C	;᫨ ,  ஢ ᥣ ᪠   ᪮
	CALL #1DCD	;ਥ  䠩
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #166F	;뤥   
	CALL #102E	;ਥ ७ 䠩
	CALL #1CB0	;⠭ ண  䠩
	LD A,(#5CF6) 	;࠭  ᪮ - 筨
	LD (#5CF8),A
	JP NZ,#5CB	;᫨ 䠩  ,  ஢ઠ COPY "*","*"

訡!!! COPY "*","*"  ஢ ᥣ,   稨  ᪥ 䠩   "*" ᪮ ⮫쪮  䠩,   楫    ⠪:
LD (#5CF8),A
PUSH AF
CALL #5CB
POP AF
JP NZ,#3D9
  ணࠬ #5CB  JP NZ,#3D9   RET NZ.

	CALL #165D	;⥭ ⥫ 䠩
	LD HL,#5CE6	;࠭  
	LD DE,#5CED
	LD BC,7
	LDIR
	CALL #1CB0	;⠭   䠩
	PUSH AF		;࠭ १ ஢ન
	PUSH BC		;  䠩
	LD A,(#5CF6) 	;࠭  ᪮ - ਥ
	LD (#5CF9),A
	LD A,(#5CF8) 	;롮 ᪮ - 筨
	CALL #3DCB
	CALL #405	;ன  
	LD A,(#5CF9) 	;롮 ᪮ - ਥ
	CALL #3DCB
	CALL #405	;ன  
	POP BC		;⠭  䠩
	POP AF		; १ ஢ન   䠩
	JR NZ,#6F3	;᫨ 䠩  ,  ஢ 䠩
	CALL #5B4	;஢ઠ 䠩  ७ "#"
	JR NZ,#6F3	;᫨  㣮 ,  㥬 
	CALL #581	; OVERWRITE?
	JP NZ,#3E1	;᫨  ⢥ N,  O.K.
#6F3	CALL #63C	;஢ 䠩
	CALL #1E43	;१ ᥪ  ⥫ 䠩
	LD A,(#5CE5) 	;६ ७ 䠩
	CP "#"		; "#"?
	JP NZ,#3E1	;᫨ ,  O.K.
	LD A,#A		;䠩 ᪠  #A ⠬
	LD (#5D06),A

	LD HL,#5CE6	;᫥騩 
	INC (HL)
	LD A,(#5CF8) 	;롮 ᪮ - 筨
	CALL #3DCB
	CALL #5B4	; 
	JP NZ,#3E1	;᫨  諨,  O.K.
	CALL #165D	;⥭  ⥫
	LD HL,#5CE6	;࠭  
	LD DE,#5CED
	LD BC,7
	LDIR
	LD A,(#5CF9) 	;롮 ᪮ - ਥ
	CALL #3DCB
	CALL #405	;ன  
	JR #6F3		;
----------------------------------------------------------------
 #72F. ஢ 䠩   ᪮. ⠭
#5CF1, #5D23, #5CF8, #5CF9, #5CF2, #5CCF  #5CEB.

#72F	LD A,(#5CF1) 	;६ ⢮ ᥪ஢
	OR A		; ᪮஢?
	RET Z		;᫨ ,  
	PUSH HL		;࠭ HL
	LD HL,#5D23	; ६   ࠡ祩  
	SUB (HL)	; 墠?
	POP HL		;⠭ HL
	JR NC,#775	;᫨ ࠡ祩   墠,  㥬  䠩
	LD A,(#5CF1) 	;㥬  ⮪
	LD B,A
	XOR A		;᪮஢ 
	LD (#5CF1),A
#744	PUSH BC		;࠭ ⢠ 㥬 ᥪp
	LD A,(#5CF8) 	;롮 ᪮-筨
	CALL #3DCB
	POP BC		;⠭ ⢠ 㥬 ᥪ஢
	PUSH BC		; ᭮ ࠭ 
	LD HL,(#5CCF)	;६  ࠡ祩  
	PUSH HL		;࠭塞 
	LD DE,(#5CF2)	;६   䠩  ᪥-筨
	CALL #1E3D	;㧪 ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩 㯯 ᥪ஢
	LD (#5CF2),HL	; ᪥-筨
	LD A,(#5CF9) 	;롮 ᪮-ਥ
	CALL #3DCB
	POP HL		;⠭  ࠡ祩  
	POP BC		; ⢠ 㥬 ᥪ஢
	LD DE,(#5CEB)	;६   䠩  ᪥-ਥ
	CALL #1E4D	; ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩 㯯 ᥪ஢
	LD (#5CEB),HL	; ᪥-ਥ
	JR #72F		;
#775	LD (#5CF1),A 	;⠭ ⠢襣 ⢠ ᥪ஢
	PUSH HL		;࠭ HL
	LD HL,#5D23	;㥬 ⮫쪮 ᥪ஢, ᪮쪮
	LD B,(HL)	;  ࠡ 
	POP HL		;⠭ HL
	XOR A		;㫥 
	JR #744		;஢ ᥪ஢
----------------------------------------------------------------
 #781. ࠭ 䠩. 室: ⠭ #5CDD, #5CE5,  ந  䠩. ணࠬ ⠭ #5D08  #5D07.

#781	XOR A		;㫥 ⢠  䠩
	LD (#5D07),A
	JR #7A0		;࠭ 䠩
----------------------------------------------------------------
 #787. 믮  ERASE. ⠭ #5D11  #5C3B.

#787	CALL #1DDF	;ਥ  䠩  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #102E	;ਥ ७ 䠩
	XOR A		; 祣  
	LD (#5D07),A
	CALL #292F	;⠭  ஢ઠ  ࠥ 䠩
	CALL #7A0	;࠭ 䠩
	JP NZ,#577	;᫨ ૨ 䠩    ⠫,  ஢ઠ, ᪮쪮 䠩 ૨
	JP #3E1		;ᮮ饭 O.K.
----------------------------------------------------------------
 #7A0. ࠭ 䠩. 室: ⠭ #5CDD, #5CE5, 㫨 #5D07  ந  䠩. ணࠬ ⠭ #5D08	 #5D07.

#7A0	LD A,(#5CDD) 	;࠭ ࢮ ᨬ  䠩
	LD (#5D08),A
	RET NZ		;᫨ 䠩   ,  
	LD HL,#5D07	;   䠩
	INC (HL)
	PUSH BC		;࠭  䠩
	CALL #3FD	;⥭   ᥪ 8 ஦ 0
	LD A,(#5E09) 	;६ ⢮ 䠩  ᪥
	POP BC		;⠭  䠩
	INC C		; 䠩 ᫥?
	CP C
	JR NZ,#7BC	;᫨ ,  ࠭  浪
	DEC A		; ᪥ ⥯  1 䠩 
	LD (#5E09),A
	XOR A		;ࠥ 䠩   ⠫
#7BC	PUSH AF		;࠭ ਧ ⮤ ࠭
	JR Z,#7C3	;᫨ 䠩    ⠫,
	LD HL,#5E19	; 㢥祭  1 ⢠  䠩
	INC (HL)
#7C3	PUSH BC		;࠭  ࠥ 䠩
	CALL #1E43	;१ ᥪ 8 ஦ 0
	POP BC		;⠭  ࠥ 䠩
	DEC C
	CALL #165D	;㧪 ⥫ 䠩
	POP AF		;⠭ 䫠 ⮤ ࠭
	JP Z,#7D2	;᫨ 䠩   ⠫,   ᨬ  㤥
	CHR$ 0
	LD A,1		;  㤥 CHR$ 1
#7D2	LD (#5CDD),A 	;⠭ ࢮ ᨬ 
	PUSH AF		;࠭ ⮤ ࠭
	CALL #1E40	; ⥫ 䠩
	LD A,(#5D08) 	;⠭ ࢮ ᨬ  䠩
	LD (#5CDD),A
	POP AF		;⠭ ⮤ ࠭
	JR Z,#7E7	;᫨  䠩   ⠫,  ८࣠	⥫ ᪠
	CALL #1CB3	; ᫥饣 䠩  ⠪ 
	JR #7A0		;࠭ , ᫨  
#7E7	CALL #3FD	;⥭ ᥪ 8 ஦ 0
	LD HL,(#5CEB)	;⠭  砫 ᢮ 
	LD (#5E06),HL
	LD DE,(#5CEA)	;⠭  ⢠ ᢮ ᥪ஢
	LD HL,(#5E0A)
	LD D,0
	ADD HL,DE
	LD (#5E0A),HL
	JP #1E43	;१ ᥪ 8 ஦ 0  
----------------------------------------------------------------
 #800. 樮஢  ன ᪮ ६饭 .  䨧᪨  ஦  ॣ ,   樮஢ -  .

#800	AND #FC 	;樮஢  ன ᪮
	JP #3D9A	;뤠    INTRQ
----------------------------------------------------------------
p #806. ଥ  ⮢⥫ TR-DOS ᨨ 5.04T.

#806	DB " Message for hackers: Base version 5.03, High Speed"
	DB ", Turbo Format. "
	DB #7F
	DB "Copyright C.C. 1991"
----------------------------------------------------------------
 #1000.  "Interface one fitted"

#1000	DB #16,9,5

	DB "Interface one fitted"
	DB 0
----------------------------------------------------------------
 #1018. 믮  "*". ⠭ #5D11  #5C3B.

#1018	CALL #1DDF	;⠭ CH_ADD  ਥ  ᪮  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #531	;⨥  ᪮  ⥪ 
	LD A,(DE)	;६  ᨬ 
	CALL #524	;᫥  ᪮
	LD (#5D19),A	;⠭ ᪮  㬮砭
	CALL #3DCB	;롮 ᪮
	JP #3E1		;ᮮ饭 O.K.
----------------------------------------------------------------
 #102E. ਥ ७ 䠩. ⠭ #5C5D  #5CD6.

#102E	LD B,"C"	;७ C
	LD A,(#5CD6)	;७ ਭ?
	OR A
	JR NZ,#104D	;᫨ ,  ⠭ ७ 䠩
	CALL #1D8C	;६ ⥪騩 ᨬ
	CP #AF		; CODE?
	LD B,"C"	;७ C
	JR Z,#104D	;᫨ ,  ⠭ ७ 䠩
	CP #E4		; DATA?
	LD B,"D"	;७ D
	JR Z,#104D	;᫨ ,  ⠭ ७ 䠩
	CP "#"		; #?
	LD B,"#"	;७ #
	JR Z,#104D	;᫨ ,  ⠭ ७ 䠩
	LD B,"B"	;७ B
#104D	LD HL,#5CE5 	; ६  ७ 䠩
	LD (HL),B	;⠭ ७
	RET		;
----------------------------------------------------------------
 #1052.    .

#1052	DI		; 뢠
	PUSH HL		;࠭ ॣ஢
	PUSH BC
	PUSH DE
#1056	RST #20		;।  ⮩ 
	DW #028E
	LD C,0		;०  - C  L
	JR NZ,#1056	;᫨  ᫥  ,  
	RST #20		;।  ⮩ 
	DW #031E
	JR NC,#1056	;᫨ 祣  ,  
	DEC D		;०  - C  L
	LD E,A		;饭    ॣ E
	RST #20		;ࠡ⪠  CAPS SHIFT  SYMBOL SHIFT
	DW #0333
	POP DE		;⠭ ॣ஢
	POP BC
	POP HL
	AND #DF		;㪢 㤥 
	EI		;ࠧ襭 뢠
	RET		;
----------------------------------------------------------------
 #106E. 뢮 梥   ⠢.

#106E	LD HL,#58E5	;  ਡ⮢
	LD B,#A		;⠭ ਡ⮢
#1073	LD (HL),7
	INC HL
	DJNZ #1073
	LD (HL),2
	INC HL
	LD (HL),#16
	INC HL
	LD (HL),#34
	INC HL
	LD (HL),#25
	INC HL
	LD (HL),#28
	INC HL
	LD (HL),7
	LD HL,#40EE	; 孥  ᥫ
	LD B,8		;8  ᥫ  
	XOR A		;㫥 
#108F	PUSH BC		;࠭ ⢠ 
	SCF		;ᤢ ᥫ
	RLA
	PUSH HL		;࠭   ᥫ
	PUSH AF		;   
	LD B,5		;  5 ⮢
#1096	INC HL		; 
	LD (HL),A
	DJNZ #1096
	POP AF		;⠭    ,
	POP HL		; 
	POP BC		; ⢠ 
	LD DE,#100	;६  ᫥饩 
	ADD HL,DE
	DJNZ #108F	;  
	RET		;
----------------------------------------------------------------
 #10A5. 饭  LIST.

#10A5	DB " Del."
#10A9	DB " File(s)"
	DB 0
#10B3	DB "Title:"
	DB #A0
#10BA	DB #17,#11
	DB "Disk Drive: "
	DB 0
#10CA	DB #17,#10," ",0
#10CE	DB " 40 Track S.Side"
	DB 0
#10E2	DB " 80 Track S.Side"
	DB 0
#10F6	DB " 40 Track D.Side"
	DB 0
#110A	DB " 80 Track D.Side"
	DB 0
#111E	DB #17,#10
	DB " Free sector "
	DB 0
#112E	DB #D,#D
	DB "	File Name	Start Length Line"
	DB 0
----------------------------------------------------------------
 #1151. 뤥 #222 ⮢  ࠡ祩 . ⠭ #5CCF.

#1151	LD HL,(#5C61)	;६  ࠡ祩 
	LD (#5CCF),HL	;⠭  ࠭⢠
	LD BC,#222	;뤥 #222 ⮢
	JP #1E23	;뤥   
----------------------------------------------------------------
 #115D.  ᫠  HL  ﬨ.

#115D	XOR A		; ᫥ 0 ⪮ 
	LD DE,#2710
#1161	SBC HL,DE	;⠭  ᫠ 10000
	JR C,#1168	;᫨ 稫 ᫮  10000,  ᫥騩 ࠧ
	INC A		;᫥騩 ⮪ 
	JR #1161	;
#11CC	ADD A,"0"	; ⪮ 
	CALL #11A8
	ADD HL,DE	;⠭ ⪠ ᫠
	XOR A		; ᫥ 0 
#115E	LD DE,#3E8
	SBC HL,DE	;⠭  ᫠ 1000
	JR C,#1179	;᫨ 稫 ᫮  1000,  ᫥騩 ࠧ
	INC A		;᫥ 
	JR #115E	;
#1179	ADD A,"0"	; 
	CALL #11A8
	ADD HL,DE	;⠭ ⪠ ᫠
	XOR A		; ᫥ 0 ⥭
	LD DE,#64
#1183	SBC HL,DE	;⠭  ᫠ 100
	JR C,#118A	;᫨ 稫 ᫮  100,  ᫥騩 ࠧ
	INC A		;᫥ 
	JR #1183	;
#118A	ADD A,"0"	; ⥭
	CALL #11A8
	ADD HL,DE	;⠭ ⪠ ᫠
	XOR A		; ᫥ 0 ⪮
	LD DE,#A
#1194	SBC HL,DE	;⠭  ᫠ 10
	JR C,#119B	;᫨ 稫 ᫮  10,  ᫥騩 ࠧ
	INC A		;᫥騩 ⮪
	JR #1194	;
#119B	ADD A,"0"	; ⪮
	CALL #11A8
	ADD HL,DE	;⠭ ⪠ ᫠
	LD A,L		; 
	ADD A,"0"
	CALL #11A8
	RET		;
----------------------------------------------------------------
 #11A8.  ,   #3D82.

#11A8	PUSH HL		;࠭ HL  DE
	PUSH DE
	CALL #3D82	; ᨬ
	POP DE		;⠭ DE  HL
	POP HL
	RET		;
----------------------------------------------------------------
 #11B0. ஢ઠ ⨦    ࠡ  ⠫. ⠭ #5CF9  #5CCC,   HL  ⥪騩  . ᫨   ⨣,    㧨 ᫥騩 ᥪ ⠫,   HL 㤥 #5D25.

#11B0	PUSH HL		;࠭ HL  BC
	PUSH BC
	LD A,(#5CF9) 	;६  ᪮  #5CF9
	LD HL,#5CF6	;६  ⥪饣 ᪮
	CP (HL)		;祭 㣮 ᪮?
	CALL NZ,#3DCB	;᫨ ,  롮 祭 ᪮
	POP BC		;⠭ HL  BC
	POP HL
	CALL #50C	;஢ઠ ⨦  
	LD A,(HL)	;६  ᨬ  䠩
	OR A		; ⠫?
	JP Z,#1D3	;᫨ ,  襭
	CP 1		;䠩 ?
	CALL Z,#507	;᫨ ,  ய 䠩
	RET NZ		; 
	JR #11B0	;᫨ 䠩  ய饭,  
----------------------------------------------------------------
 #11CE. 믮  LIST. ⠭ #5D11  #5C3B.

#11CE	CALL #42B	;஢ઠ ண ᨬ ப
	LD BC,2		; 㬮砭   ⮪ 2
	LD (#5CDB),BC
	JR Z,#1043	;᫨ ன ᨬ ப ENTER,  뢮 ⠫
	CP "#"		;᫨ ன ᨬ ப "#"?
	JR NZ,#11F8	;᫨ ,  ⠭ ᪮
	LD (#5C5D),HL	;⠭ CH_ADD
	CALL #1E0B	;ਥ  ⮪
	CALL #1D8C	;६ ⥪騩 ᨬ
	CP #D		; ENTER?
	JR Z,#1043	;᫨ ,  뢮 ⠫
	CP ","		; ","?
	JP NZ,#1D1A	;᫨ ,  訡
	CALL #1E2A	;᫥騩 ᨬ
	CALL #1DBD	;ਥ  ᪮  ⥪ 
	JR #11FB	;⠭ ᪮
#11F8	CALL #1DDF	;⠭ CH_ADD  ਥ  ᪮  ⥪ 
#11FB	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #1DB5	;⨥  ᪮  ⥪ 
	EX DE,HL	;ॡ᪠    HL
	CALL #1C81	;⠭ ᪮
#1205	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD A,(#5CF6) 	;㧪  ᪮  #5CF9
	LD (#5CF9),A
	CALL #405	;ன  
	LD A,(#5CDB) 	;६  ⮪
	CP 2		; 2?
	PUSH AF		;࠭塞 
	CALL Z,#1D83	;᫨ ,  ⪠ ࠭
	POP AF		;⠭  ⮪
	CP #11		;  #10?
	JP NC,#1D1A	;᫨ ,  訡
	CALL #1D84	;⨥ ⮪
	LD A,#FF	;  㡨,   
	LD (#5CF8),A
	CALL #1151	;뤥   ࠡ祩 
	LD HL,#5E06	;砫 ⥫ ᪠  
	LD DE,(#5CCF)	;६  WORKSP
	LD BC,#20	; ⥫ ᪠
	LDIR		;࠭ ⥫ ᪠
	CALL #3E8	;㧪   ᥪ 0 ஦ 0
	LD HL,#5D25	; 
	PUSH HL		;࠭ 
#123E	LD HL,#10B3	; ᮮ饭 TITLE:
	PUSH BC		;࠭ BC
	RST #18		; TITLE:
	LD HL,(#5CCF)	;६  WORKSP
	LD BC,#14	;#14- 
	ADD HL,BC
	RST #18		;  ᪠
	LD HL,#10BA	; DISC DRIVE:
	RST #18
	LD A,(#5CF6) 	;६  ᪮
	ADD A,"A"	;᫥  ᪮
	CALL #3D82	; 
	CALL #3D80	;ॢ ப
	LD HL,(#5CCF)	;3-  ⥫ ᪠
	LD BC,3
	ADD HL,BC
	LD A,(HL)	;६ ⢮ 䠩  ᪥
	LD HL,(#5CCF)	;#13- 
	LD BC,#13
	ADD HL,BC
	SUB (HL)	;᫥ ⢠  䠩
	PUSH HL		;࠭  #13-  ⥫ ᪠
	CALL #1DA3	; ⢠  䠩
	LD HL,#10AA	; FILE(S)
	RST #18
	LD HL,(#5CCF)	;2-  ⥫ ᪠
	LD BC,2
	ADD HL,BC
	LD A,(HL)	;६ ⨯ ᪠
	LD HL,#10CE	; ᮮ饭 40 TRACKS, S.SIDE
	CP #19		; #19?
	JR Z,#1292	;᫨ ,   ᮮ饭
	LD HL,#10E2	; ᮮ饭 80 TRACKS, S.SIDE
	CP #18		; #18?
	JR Z,#1292	;᫨ ,   ᮮ饭

	LD HL,#10F6	; ᮮ饭 40 TRACKS, D.SIDE
	CP #17		; #17?
	JR Z,#1292	;᫨ ,   ᮮ饭
	LD HL,#110A	;p ᮮ饭 80 TRACKS, D.SIDE
#1292	RST #18		; ᮮ饭
	POP HL		;⠭  #13-  ⥫ ᪠
	LD C,(HL)	;६ ⢮  䠩
	CALL #1DA4	; 
	LD HL,#10A5	; DEL.FILES
	RST #18
	LD HL,#111E	; FREE SECTORS:
	RST #18
	LD HL,(#5CCF)	;4- 
	LD BC,4
	ADD HL,BC
	LD C,(HL)	;६ ⢮ ᢮ ᥪ஢
	INC HL
	LD B,(HL)
	CALL #1DA9	; 
	LD HL,#112E	; FILE NAME, START, LENGTH, LINE
	RST #18
	POP BC		;⠭ BC  ⥪饣   p
	POP HL
	LD B,#10	; ଠ  #10 䠩
#12B5	CALL #11B0	;஢ઠ ⨦  
	CALL #3D80	;ॢ ப
	PUSH BC		;࠭ ⢠ ⠢ 䠩
	PUSH HL		; ⥪饣   p
	CALL #2938	;   ७ 䠩
	LD BC,#D	;#D-  ⥫ 䠩
	POP HL		;⠭ ⥪饣   
	ADD HL,BC
	LD C,(HL)	;६ ࠧ 䠩  ᥪ
	PUSH BC		;࠭塞 
	LD A,C		;㦠   C
	LD B,2		; 2 ஡ । ᫮
	CP #A		; 䠩  10 ᥪ஢?
	JR C,#12D0	;᫨ ,   ஡
	DEC B		;  ஡
#12D0	CP #64		; 䠩  100 ᥪp?
	JR NC,#12D9	;᫨ ,  ஡  
#12D4	LD A," "	; ஡
	RST #10
	DJNZ #12D4
#12D9	POP BC		;⠭  䠩  ᥪ
	CALL #1DA9	; 
	LD HL,#10CA	;#10 ஡
	RST #18
	POP HL		;⠭  ⥫ 䠩  
	PUSH HL		; ᭮ ࠭ 
	LD BC,9		;9-  ⥫
	ADD HL,BC
	LD E,(HL)	;६  㧪 䠩
	INC HL
	LD D,(HL)
	PUSH HL		;࠭ ⥪饣   ⥫ 䠩
	EX DE,HL	;ॡ᪠  㧪 䠩  HL
	CALL #115D	; 
	LD A," "	;஡
	CALL #3D82
	POP HL		;⠭ ⥪饣   ⥫ 䠩
	INC HL		;᫥騩 

	LD E,(HL)		;६  䠩
	INC HL
	LD D,(HL)
	EX DE,HL	;७   HL
	CALL #115D	; 
	POP HL		;⠭  ⥫ 䠩
	PUSH HL		; ᭮ ࠭ 
	LD BC,8		;8- 
	ADD HL,BC
	LD A,(HL)	;६ ७ 䠩
	CP "B"		; "B"?
	CALL Z,#131B	;᫨ ,   ப ⮧᪠
	POP HL		;⠭  ⥫ 䠩
	POP BC		; 稪 䠩
	LD DE,#10	; ᫥饣 ⥫ 䠩
	ADD HL,DE
	DJNZ #12B5	;  
	PUSH HL		;࠭  ⥫ 䠩
	CALL #3D80	;2 ࠧ ॢ ப
	CALL #3D80
	JP #1298	;  ᠬ 砫
----------------------------------------------------------------
 #131B.  ப  ணp  ᨪ.  HL   ⥫ 䠩  8  ⠭ #5CCF.

#131B	LD BC,5		;६   䠩  ᥪ
	ADD HL,BC
	LD B,(HL)	;६  
	INC HL		;᫥騩   ⥫
	LD E,(HL)	;६  䠩  ᪥
	INC HL
	LD D,(HL)
	DEC B		;㦠 㤥 2 ᥪp
	JR Z,#1335
	DEC B
	JR Z,#1335	;᫨  䠩   2- ᥪ஢,  㧪 ᥪ஢
	LD A,#10	; ஦ #10 ᥪ஢
#132C	INC E		;᫥騩 ᥪ
	CP E		; ஦?
	JR NZ,#1333	;᫨ , 
	LD E,0		;᫥騩 ᥪ 0
	INC D		; ६ ᫥ ஦
#1333	DJNZ #132C	;  
#1335	LD HL,(#5CCF)	;६  ࠡ祩 
	LD BC,#21	;#21  㦥 
	ADD HL,BC
	LD B,2		;㦠 2 ᥪ
	PUSH HL		;࠭  㧪 ᥪ஢
	CALL #1E3D	;㧪 ᥪ஢
	LD A,#80	;㤥 ᪠  ணࠬ
	POP HL		;⠭  ᥪ஢  
	LD BC,#200	;  - #200 ⮢
	CPIR		;  ணࠬ
	LD A,(HL)	;६ ᫥騩 
	CP #AA		; #AA?
	RET NZ		;᫨ ,  
	INC HL		;६  ப 
	LD C,(HL)
	INC HL
	LD B,(HL)
	LD A,B		; 0?
	OR C
	RET Z		;᫨ ,  
	PUSH BC		;࠭  ப 
	LD A," "	; ஡
	CALL #3D82
	POP BC		;⠭  ப 
	CALL #1DA9	; 
	RET		;
----------------------------------------------------------------
 #1360. 믮  COPY S. ⠭ #5D11  #5C3B.

#1360	CALL #1DC5	;⠭ CH_ADD
	CALL #1E2A	;᫥騩 ᨬ
	CALL #1DBD	;ਥ  䠩  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #166F	;१ࢨ஢   
	LD HL,#27AA 	; INSERT SOURCE DISC
	CALL #2707
#1375	CALL #1052	; ᨬ  
	CP "Y"		; "Y"?
	JR NZ,#1375	;᫨ ,  
	CALL #1D9F	;⪠  ࠭
	CALL #102E	;ਥ ७ 䠩
	CALL #1CB0	;⠭  䠩
	JP NZ,#3D9	;᫨ ⠪ 䠩 ,  訡
	CALL #13B7	;஢ 䠩
	LD A,(#5CE5)	;७ 䠩 #?
	CP "#"
	JP NZ,#3E1	;᫨ ,  O.K.
#1393	LD A,#A		;䠩 ᪠  #A ᨬ
	LD (#5D06),A
	LD HL,#5CE6 	;᫥騩 
	INC (HL)
	CALL #1D97	;⪠ ࠭
	LD HL,#27AA 	; INSERT SOURCE DISC
	CALL #2707
#13A5	CALL #1052	; 
	CP "Y"		; "Y"?
	JR NZ,#13A5	;᫨ ,  
	CALL #1CB3	; 
	JP NZ,#3E1	;᫨  諨,  O.K.
	CALL #13B7	;஢ 
	JR #1393	;
----------------------------------------------------------------
 #13B7. ஢ 䠩   ᪮.  䠩   ॣ C.

#13B7	CALL #165D	;⥭ ⥫ 䠩
	LD HL,#5CE6	;࠭  
	LD DE,#5CED
	LD BC,7
	LDIR
	LD A,(#5CF1) 	;⠭ ꥬ 䠩  ᥪ
	LD (#5D10),A
	CALL #405	;ன  
	CALL #3E11	;࠭ ० ᪮
	LD (#5CD9),A
	LD A,#FF	; 室
	LD (#5D21),A

!!!  ६ 㦥 .   ࠭  3 ᨬ  ப.

	CALL #1451	;஢ 䠩
	LD HL,(#5D1F) 	;६  䠩  ᪥ - ਥ
	LD (#5CEB),HL 	;⠭ 
	LD HL,(#5C92) 	;६   ᢮   ᪥
	LD (#5E06),HL 	;⠭ 
	LD HL,#5E09	;ᠫ 1 䠩
	INC (HL)
	LD C,(HL)	;६  䠩
	DEC C
	LD B,0		;ॢ   塠 
	PUSH BC		;࠭塞 
	LD DE,9		;뢠 ᥪ 8 ஦ 0
	LD (#5CF4),DE
	CALL #1E43	; ᥪ
	POP BC		;⠭  䠩
	CALL #166B	;⥭   ⥫ 䠩
	CALL #1E43	; ᥪ  ⥫
	RET		;
----------------------------------------------------------------
 #1403. ஢ઠ  ᢮   ᪥-ਥ   COPY S.  ⥫ 䠩  #5CDD     #5CED  ⠭ #5D10.  ᪮   -ਥ. ணࠬ ⠭ #5CEA, #5CEB  #5D1F.

#1403	XOR A		;  室
	LD (#5D21),A
	CALL #405	;ன  
	CALL #3E11	;६ ० ᪮
	LD (#5CDA),A 	;࠭塞 
	CALL #1CB3	; 䠩
	JP Z,#1C50	;᫨ 諨,  FILE EXISTS
	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	LD A,(#5E09) 	;६ ⢮ 䠩  ᪥
	CP #80		; 128?
	JP Z,#2723	;᫨ ,  DIRECTORY FULL
	LD HL,#5CED	;⠭ ⥫ 䠩
	LD DE,#5CE6
	LD BC,7
	LDIR
	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	LD A,(#5D10) 	;⠭  䠩  ᥪ
	LD (#5CEA),A
	LD DE,(#5CEA)	;ॢ   塠 
	LD D,0
	OR A		; 䫠 C
	LD HL,(#5E0A)	;㬥蠥 ᢮   ᪥
	SBC HL,DE
	JP C,#1C45	;᫨   墠⨫,  NO SPACE
	LD (#5E0A),HL	;⠭  ⢠ ᢮   ᪥
	LD HL,(#5E06)	;६  ᢮   ᪥
	LD (#5CEB),HL	;⠭  䠩  ᪥-ਥ
	LD (#5D1F),HL	;࠭ 

 !!!    ⠪!   ६ - 䫠 ᯮᮡ 맮 TR-DOS.   ⮬ DOS  ࠡ.  -.

	RET		;p
----------------------------------------------------------------
 #1451. ஢ 䠩   ᪮.  ⥫ 䠩  #5CDD     #5CED  ⠭ #5CF1, #5D21, #5D23  #5CCF. ணࠬ ⠭ #5CBB, #5CD9, #5CDA  #5C92.

#1451	LD A,(#5CF1) 	; ᪮஢?
	OR A
	RET Z		;᫨ ,  
	LD A,(#5D21) 	; 室?
	OR A
	JR NZ,#146F	;᫨ ,   - 筨 㦥  ᪮
	CALL #1D97	;⪠ ࠭
	LD HL,#27AA	; INSERT SOURCE DISC
	CALL #2707
#1465	CALL #1052	;  "Y"
	CP "Y"
	JR NZ,#145B
	CALL #1D9F	;⪠  ࠭
#146F	LD A,(#5CF1) 	; ᪮஢?
	OR A
	RET Z		;᫨ ,  
	PUSH HL		;࠭ HL
	LD HL,#5D23	;  䠩
	SUB (HL)
	POP HL		;⠭ HL
	JR NC,#14CB	;᫨   ,    䠩
	LD A,(#5CF1) 	;㥬 ⮪
	LD B,A
	XOR A		;᪮஢ 
	LD (#5CF1),A
#1484	PUSH BC		;࠭ ⢠ 㥬 ᥪ஢
	LD (#5CCE),A 	;㫥 #5CCE
	LD HL,(#5CCF)	;६  ࠡ祣 ࠭⢠
	PUSH HL		;࠭塞 
	LD DE,(#5CF2)	;६  㥬 ⪠ ᪠
	CALL #14D8	;ன ᪮  -筨
	CALL #1E3D	;㧪 ᥪ஢
	LD HL,(#5CF4)	;⠭   ᪥ ᫥饣 ᥪ
	LD (#5CF2),HL
	CALL #1D97	;⪠ ࠭
	LD HL,#2787	; INSERT DESTINATION DISC
	CALL #2707
#14A5	CALL #1052	;  "Y"
	CP "Y"
	JR NZ,#14A6
	CALL #1D9F	;⪠  ࠭
	LD A,(#5D21) 	; 室?
	OR A
	CALL NZ,#1403 	;᫨ ,  ஢ઠ    ᪥
	POP HL		;⠭  ࠡ祣 ࠭⢠
	POP BC		; ⢠ 㥬 ᥪ஢
	LD DE,(#5CEB)	;६  ⥪饣 ⪠ ᪠
	CALL #14E4	;ன ᪮  -ਥ
	CALL #1E4D	; ᥪ஢
	LD HL,(#5CF5)	;⠭   ᪥ ᫥饣 ᥪ
	LD (#5CEB),HL
	JP #1451	;
#14CB	LD (#5CF1),A 	;⠭  ⠢襩  䠩
	PUSH HL		;࠭ HL
	LD HL,#5D23	;६  ࠡ祩 
	LD B,(HL)
	POP HL		;⠭ HL
	XOR A		;㫥 
	JP #1484	;஢
----------------------------------------------------------------
 #14D8. 饭 祭 #5CD9  ६ ० ᪮. ⠭ #5CD9.

#14D8	PUSH HL		;࠭ DE  HL
	PUSH DE
	CALL #3E11	;६  ६  ⨯ ᪮
	LD A,(#5CD9)	;६ ⨯ ᪮  #5CD9
	LD (HL),A	;⠭ ⨯ ᪮
	POP DE		;⠭ DE  HL
	POP HL
	RET		;
----------------------------------------------------------------
 #14E4. 饭 祭 #5CDA  ६ ० ᪮. ⠭ #5CDA.

#14E4	PUSH HL		;࠭ DE  HL
	PUSH DE
	CALL #3E11	;६  ६  ⨯ ᪮
	LD A,(#5CDA)	;६ ⨯ ᪮  #5CD9
	LD (HL),A	;⠭ ⨯ ᪮
	POP DE		;⠭ DE  HL
	POP HL
	RET		;
----------------------------------------------------------------
 #14F0. ஢ઠ    ᪥-ਥ   COPY B. ⠭ #5CDF    ᪮ -ਥ. ⠭ #5CDA, #5CE7, #5CDD   #5D21.

#14F0	XOR A		;㫥 #5D21
	LD (#5D21),A
	CALL #405	;ன  
	CALL #3E11	;६ ० ᪮
	LD (#5CDA),A 	;࠭塞 
	LD A,(#5E08) 	;࠭塞 ⨯ ᪠
	LD (#5CE7),A
	LD HL,#280	;᫥ ⢠ ᥪ஢ 
	CP #19		;᪥-ਥ
	JR Z,#151F
	LD HL,#4EC
	CP #18
	JR Z,#151F
	CP #17
	JR Z,#151F
	LD HL,#A00
	CP #16
	JR Z,#151F
	JP #1D74	;᫨  ⢥ ⨯ ᪠ ⮨ । 祭,	 *ERROR*

 DISC ERROR.

#151F	LD (#5CDD),HL	;࠭ ⢠ ᥪ஢  ᪥-ਥ
	LD BC,(#5CDF)	;६ ⢮ 㥬 ᥪ஢
	SBC HL,BC	; 墠?
	JP C,#1C45	;᫨ ,  NO SPACE
	RET		;
----------------------------------------------------------------
 #152C. 믮  COPY B. ⠭ #5C3B.

#152C	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #166F	;१ࢨ஢   
	LD HL,#2779	; BACKUP DISC
	CALL #2707
	LD HL,#27AA	; INSERT SOURCE DISC
	CALL #2707
#153E	CALL #104D	; 
	CP "Y"		; "Y"?
	JR NZ,#153E	;᫨ ,  
	CALL #1D9F	;⪠  ࠭
	LD A,#FF	; 室
	LD (#5D21),A

!!!  ६ 㦥 .   ࠭  3 ᨬ  ப.

	CALL #405	;ன  
	CALL #3E11	;६ ० ᪮
	LD (#5CD9),A 	;࠭塞 
	LD A,(#5E08) 	;६ ⨯ ᪠
	CP #19		; 40-஦ ஭?
	LD HL,#280	;ᥣ  ᪥ #280 ᥪ஢
	JR Z,#1575	;᫨ ,  ஢
	LD HL,#500	;ᥣ  ᪥ #500 ᥪ஢
	CP #18		; 80-஦ ஭?
	JR Z,#1575	;᫨ ,  ஢
	CP #17		; 40-஦ ஭?
	JR Z,#1575	;᫨ ,  ஢
	LD HL,#A00	;ᥣ  ᪥ #A00 ᥪ஢
	CP #16		; 80-஦ ஭?
	JR Z,#1575	;᫨ ,  ஢
	JP #1D1A	; *ERROR*

!!!  뤠 ᮮ饭 DISC ERROR.

#1575	LD BC,(#5E0A)	;६ ⢮ ᢮ ᥪ஢
	SBC HL,BC	;塞 ⢮  ᥪ஢
	LD (#5CE5),HL	;⠭ ⢠ ᥪ஢
	LD (#5CDF),HL
	LD HL,0		;᪮஢ 0 ᥪ஢
	LD (#5CE1),HL
	LD (#5CE3),HL
	CALL #15B8	;஢ ᥪ஢
	CALL #405	;ன  
	LD A,(#5CE7) 	;⠭  ⨯ ᪠-ਥ
	LD (#5E08),A
	LD HL,(#5CDD)	;६ 饥 ᫮ ᥪ஢  ᪥-ਥ
	LD BC,(#5CDF)	;६ ᫮ ᪮஢ ᥪ஢
	SBC HL,BC	;᫥ ᫠ ᢮ ᥪ஢  ᪥ - ਥ
	LD (#5E0A),HL	;⠭ 
	CALL #14E4	;ன ᪮  -ਥ
	LD DE,9		;뢠 ᥪ 8 ஦ 0
	LD (#5CF4),DE
	CALL #1E43	; ᥪ
	JP #3E1		;O.K.
----------------------------------------------------------------
 #15B2. ஢ઠ ६ #5CE5. ⢥⢥ ᮤন 㤥 ⠭ 䫠 Z,  ᠬ ᮤন 㤥  HL.

#15B2	LD HL,(#5CE5)	;६ ᮤন ६ #5CE5
	LD A,H		;஢ઠ   0
	OR L
	RET		;
----------------------------------------------------------------
 #15B8. ஢ ᥪ஢. ⠭ #5CD9, #5CCF, #5CE5, #5D21, #5D23  #5CDB

#15B8	CALL #15B2	; ᪮஢?
	RET Z		;᫨ ,  
	LD A,(#5D21) 	; 室?
	OR A
	JR NZ,#15DB	;᫨ ,  -筨 㦥  ᪮
	LD HL,#2909	; BACKUP DISC
	CALL #2707
	LD HL,#27AA	; INSERT SOURCE DISC
	CALL #2707
#15D1	CALL #1052	;  "Y"
	CP "Y"
	JR NZ,#15D1
	CALL #1D9F	;⪠  ࠭

#15DB	CALL #15B2	; ᪮஢?
	RET Z		;᫨ ,  
	PUSH BC		;࠭ BC  ⢠ ᥪ஢
	PUSH HL
	LD HL,#5D23	;६  ࠡ祩   ᥪ
	LD C,(HL)
	LD B,0
	POP HL		;⠭ ⢠ ᥪ஢
	SBC HL,BC	;㬥襭 ⢠ ᥪ஢
	POP BC		;⠭ BC
	JP NC,#1644	;᫨ ࠡ祣 ࠭⢠ ,     
	LD BC,(#5CE5)	;६ ⠢襥 ⢮ ᥪ஢
	LD HL,0		; ᪮஢
	LD (#5CE5),HL
#15F8	PUSH BC		;࠭ ⢠ ᥪ஢
	LD HL,(#5CCF)	;६  ࠡ祩 
	PUSH HL		;࠭塞 
	CALL #14D8	;ன ᪮  -筨
	LD DE,(#5CDB)	;६  㯯 ᥪ஢  ᪥-筨
	LD B,C
	CALL #1E3D	;㧪 ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩 㯯 ᥪ஢
	LD (#5CDB),HL	; ᪥-筨
	CALL #1D97	;⪠ ࠭
	LD HL,#2779	; BACKUP DISC
	CALL #2707
	LD HL,#2785	; INSERT DESTINATION DISC
	CALL #2707
#161D	CALL #1052	;  "Y"
	CP "Y"
	JR NZ,#15E1
	CALL #1D9F	;⪠  ࠭
	LD A,(#5D21) 	; 室?
	OR A
	CALL NZ,#14F0 	;᫨ ,  ஢ઠ    ᪥
	POP HL		;⠭  ࠡ祩 
	POP BC		; ⢠ 㥬 ᥪ஢
	LD DE,(#5CE3)	;६  㯯 ᥪ஢  ᪥-ਥ
	LD B,C
	CALL #14E4	;ன ᪮  -ਥ
	CALL #1E4D	; ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩 㯯 ᥪ஢
	LD (#5CE3),HL	; ᪥-ਥ
	JP #15B8	;
#1644	LD (#5D3F),HL	;⠭ ⠢襣 ⢠ ᥪ஢
	PUSH HL		;࠭ 
	LD HL,(#5D23)	;६  ࠡ祩 
	LD C,(HL)	;⮫쪮 ᥪ஢ 㤥 ஢
	LD B,0
	POP HL		;⠭ ⠢襣 ⢠ ᥪ஢
	XOR A		;㫥 
	JP #15F8	;஢
----------------------------------------------------------------
 #1653. ஢ઠ ﭨ 䠩.  䠩   ॣ A. 頥 Z, ᫨ 䠩   NZ, ᫨ ,   A 㤥  ᨬ  䠩.

#1653	CALL #165D	;⥭ ⥫ 䠩
	LD A,(#5CDD)	;६  ᨬ  䠩
	CP 1		;஢ઠ ﭨ 䠩
	RET		;
----------------------------------------------------------------
 #165C. ⥭ ⥫ 䠩.  室  ॣ A   䠩. ⥫ 㤥 㦥   #5CE5. ᯮ ⠪  ᮢ:
#165D -  ,   #165C,   䠩  ॣ C.
#165E -  ,   #17E9,  ࠭  䠩.

#165C	LD C,A		;७  䠩  ॣ. C
#165D	XOR A		;७ᨬ ⥫    
#165E	PUSH BC		;࠭  䠩
	CALL #17E9	;⥭ ᥪ  ⥫  ७ ⥫
	POP BC		;⠭  䠩
	RET		;
----------------------------------------------------------------
 #1664.  ଠ樨  䠩. 室: ⥫ ᯮ   #5CDD,      䠩.

#1664	LD C,A		;७  C  䠩
	CALL #166B	;⥭	 ᥪ   ⥫ 䠩  
	JP #1E43	;१ ᥪ
----------------------------------------------------------------
 #166B. ⥭   ᥪ  ⥫ 䠩   ⥫.  ⥫   #5CDD.

#166B	LD A,#FF	;⥫ ६  ६  
	JR #165E 	; ,   #17E9,   ࠭ BC
----------------------------------------------------------------
 #166F. ࢨ஢   . ⠭ #5CCF  #5D23.

#166F	LD A,#FF	;WORKSP ᯮ짮
	LD (#5D0E),A
	CALL #1680	;᫥ ࠧ 㯭 
	LD HL,(#5C61)	;⠭  ࠡ祩 
	LD (#5CCF),HL
	JP #1E23	;뤥     
----------------------------------------------------------------
 #1680. ᫥ ⢠ ᢮   ᥪ.  ᢮    㤥  BC,   ᥪ ?  #5D23.

#1680	RST #20		;६ ⢮ ᢮   
	DW #1F1A
	LD HL,#FFFF
	SBC HL,BC
	LD A,H		;᢮  16 ᥪ஢?
	CP #10
	JR NC,#168F	;᫨ , 
	LD A,#11	;㤥 뤥 16 ᥪ஢
#168F	DEC A		;1 ᥪ  直 砩
	LD (#5D23),A	;⠭ ࠧ ᢮   ᥪ
	LD B,A		;⠭ ࠧ ᢮   
	LD C,0
	RET		;
----------------------------------------------------------------
 #1697. 頥 HL  #5CD7  #5CDB  ਡ #5CEA (1 )  #5CD9 (2 ).

#1697	LD (#5CD7),HL	;⠭ #5CD7  #5CD9
	LD (#5CDB),HL
	LD DE,(#5CEA)	;᫮ #5CEA  #5CD9
	LD HL,(#5CD9)
	LD D,0
	ADD HL,DE
	LD (#5CD9),HL
	RET		;
----------------------------------------------------------------
 #16AB. 믮  MOVE. ⠭ #5C3B.

#16AB	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #166F	;१ࢨ஢   
	CALL #405	;ன  
	LD A,(#5E19) 	; 䠩  ᪥ ?
	OR A
	JP Z,#3E1	;᫨ ,  ᮮ饭 O.K.
	LD HL,0		; ᢮ 0 ᥪ஢
	LD (#5CD9),HL
	LD C,#FF	;筥  䠩  0
#16C3	INC C		;᫥騩 䠩
	CALL #1653	; ?
	JR NZ,#16C3	;᫨ ,  ᫥騩 䠩
	LD A,C		;࠭  ࠥ 䠩
	LD (#5CD4),A
	LD HL,(#5CEB)	;६  ࠥ 䠩  ᪥
	LD (#5CD5),HL	;࠭塞 
	CALL #1697	;饭 稪 ᢮ ᥪ஢
#16D6	INC C		;᫥騩 䠩
	CALL #1653	; ?
	JR Z,#16D6	;᫨ ,  ᫥騩 䠩
	CP 0		;  ⠫?
	JP NZ,#1710	;᫨ ,  塞 䠩 ⠬
	LD A,(#5CD4) 	;६  ࠥ 䠩
	LD C,A
#16E5	INC C		;᫥騩 䠩
	CALL #1653	;  ⠫?
	CP 0
	JR Z,#176C	;᫨ ,  ८࣠ ⥫ ᪠
	XOR A		; ⠫
	LD (#5CDD),A
	CALL #1E40	; ⥫ 䠩
	CALL #1697	;饭 稪 ᢮ ᥪ஢
	JR #16E5	;
#1710	LD A,(#5CEA) 	;६ ࠧ ६頥 䠩  ᥪ
	LD (#5CD3),A 	;࠭塞 
	LD (#5CD1),A
	LD HL,(#5CEB)	;६  ६頥 䠩  ᪥
	LD (#5CD5),HL	;࠭塞 
	PUSH BC		;࠭  ६頥 䠩
	CALL #17A5	;६饭 䠩
	POP BC		;⠭  ६頥 䠩
	LD HL,(#5CF4)	;६饭 த  ⮣ 
	LD (#5CD5),HL
	LD (#5CEB),HL
	XOR A		;ࠧ ⮣ 䠩 - 0 ᥪ஢
	LD (#5CEA),A
	LD A,(#5CDD) 	;࠭ ࢮ ᨬ  䠩
	PUSH AF
	LD A,1		;䠩 
	LD (#5CDD),A
	CALL #1E40	; ⥫ ⮣ 䠩
	POP AF		;⠭ ࢮ ᨬ  䠩
	LD (#5CDD),A
	LD A,(#5CD4) 	;६  ⮣ 䠩
	LD C,A
	LD HL,(#5CDB)	;⠭   ६饭 䠩
	LD (#5CEB),HL	; ᪥
	LD A,(#5CD1) 	;⠭ ࠧ ६饭 䠩
	LD (#5CEA),A 	; ᪥
	CALL #1E40	; ⥫ ६饭 䠩
	LD A,(#5CD4) 	;६  䠩 ᫥ ६饭
	INC A
	LD C,A
	CALL #165D	;⥭  ⥫
	LD HL,(#5CD5)	;⠭     ᪥
	LD (#5CEB),HL
	CALL #1E40	;  ⥫
	LD A,(#5CD4) 	;६  ६饭 䠩
	LD C,A
	JP #16C3	;
----------------------------------------------------------------
p #176C. ࣠ ⥫ ᪠. ⠭ #5CCF, #5CD9  #5CD5.

#176C	LD HL,(#5CCF)	;६  ࠡ祣 ࠭⢠
	LD BC,#1000	;᮪頥   #1000 ⮢
	CALL #1E2E
	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	LD HL,(#5E0A)	;㢥祭 ⢠ ᢮  
	LD DE,(#5CD9)	;᪥
	ADD HL,DE
	LD (#5E0A),HL
	LD A,(#5E09) 	;㬥襭 ⢠ 䠩  ᪥ 
	LD HL,#5E19	;᫮ 
	SUB (HL)
	LD (#5E09),A
	LD (HL),0	; ᪥    䠩
	LD HL,(#5CD5)	;⠭   ᢮  
	LD (#5E06),HL	;᪥
	PUSH AF		;࠭ ⢠ 䠩  ᪥
	CALL #1E43	; ᥪ 8 ஦ 0
	POP AF		;⠭ ⢠ 䠩  ᪥
	LD C,A
	CALL #165D	;⥭ ⥫ 䠩  ᫥
	XOR A		;  ⠫
	LD (#5CDD),A
	JP #569		; ⥫ 䠩  襭
----------------------------------------------------------------
 #17A5. ६饭 䠩. ⠭ #5CD3, #5D23, #5CCF, #5CD5  #5CD7.

#17A5	LD A,(#5CD3) 	;६饭  䠩?
	OR A
	RET Z		;᫨ ,  
	PUSH HL		;࠭ HL
	LD HL,#5D23	; 墠  ⮪?
	SUB (HL)
	POP HL		;⠭ HL
	JR NC,#17DD	;᫨   墠,  ६頥  䠩
	LD A,(#5CD3) 	;६ ⢮ ⠢ ᥪ஢
	LD B,A
	XOR A		;६⨫ 
	LD (#5CD3),A
#17BA	PUSH BC		;࠭ ⢠ ६頥 ᥪ஢
	LD HL,(#5CCF)	;६  ࠡ祩 
	PUSH HL		;࠭ 
	LD DE,(#5CD5)	;६   ६頥 䠩  ஬ 
	CALL #1E3D	;㧪 ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩  䠩
	LD (#5CD5),HL
	POP HL		;⠭  ࠡ祩 
	POP BC		; ⢠ ६頥 ᥪ஢
	LD DE,(#5CD7)	;६   ६頥 䠩   
	CALL #1E4D	; ᥪ஢
	LD HL,(#5CF4)	;⠭  ᫥饩  䠩
	LD (#5CD7),HL
	JR #17A5	;
#17DD	LD (#5CD3),A 	;⠭ ⢠ ⠢ ᥪ஢
	PUSH HL		;࠭ HL
	LD HL,#5D23	;६  ࠡ祩   ᥪ
	LD B,(HL)
	POP HL		;⠭ HL
	XOR A		;㫥 
	JR #17BA	;६饭 ᥪ஢
----------------------------------------------------------------
 #17E9. 㧪   ᥪ  ⥫ 䠩  ७ ⥫.  ॣ C -  䠩,  A - ࠢ ६饭 (0 -  ६,  -  ⠭ ᥪ).

#17E9	PUSH AF		;࠭ ࠢ ६饭
	LD HL,#5CCC	; ᥪ ⠫ - 0
	LD (HL),0
	LD A,C		;।  ᥪ  ⥫ 䠩
#17F0	SUB #10
	JR C,#17F7
	INC (HL)
	JR #17F0
#17F7	ADD A,#10	;६  ⥫  ᥪ
	LD C,A
	PUSH BC		;࠭ 
	CALL #3EC	;㧪   ᥪ  ⥫
	POP BC		;⠭  ⥫  ᥪ
	POP AF		; ࠢ ६饭
	CALL #1CA4	;।  ⥫ 䠩  
	LD DE,#5CDD	;६ ன   LDIR
	LD BC,#10	;६  ⥫
	OR A		;⠭ ࠢ ६饭
	JR Z,#180D
	EX DE,HL
#180D	LDIR		;७ ⥫ 䠩
	RET		;
----------------------------------------------------------------
 #1810. 믮  VERIFY. ⠭ #5D11  #5C3B. ᯮ ⠪  ᮢ:
#1815 - 믮  LOAD. ⠭ #5D11  #5C3B;
#1818 - 믮  LOAD, PEEK  POKE; ⠭ #5D11, #5C3B  #5D10.

#1810	LD A,#FF	;䨪 䠩
	LD (#5CF9),A
#1815	CALL #1852	;㫥 #5D10
#1818	CALL #1836	;ࠡ⪠ ࠬ஢  㧪 䠩
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD A,#FF	;믮  LOAD
	LD (#5D10),A
	LD A,(#5CF9)	;믮 VERIFY?
	CP #FF
	JP Z,#3E1	;᫨ ,  O.K.
	LD A,(#5CE5)	;७ 䠩 B?
	CP "B"

!!! ᫨ 뫠    ᥪ஬ 䠩,   室 ᨬ  ७.

	JP Z,#12A	;᫨ ,  ࠡ⪠ ப 
	JP #3E1		; O.K.
----------------------------------------------------------------
 #1836. ࠡ⪠ ࠬ஢   LOAD  㧪 䠩. ⠭ #5D11, #5C3B, #5CF9  #5D10.

#1836	CALL #187A	;ਭ⨥ ࠬ஢
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #18AB	;஢ઠ ࠬ஢
	JP #1921	;㧪 䠩  
----------------------------------------------------------------
 #1842. ࠡ⪠ ࠬ஢   LOAD...CODE. ⠭ #5C5D  ७ 䠩.  室 ⠭ #5CD6, #5CD9  #5CDB.

#1842	LD HL,(#5C5D)	;᫥騩 ᨬ ப ENTER?
	INC HL
	LD A,(HL)
	CP #D
	RET Z		;᫨ ,  
	LD A,1		;  㧪
	LD (#5CD6),A
	CALL #1D91	;ਥ    ᥫ
	XOR A		;㫥 #5D10
	LD (#5D10),A
	RET		;
----------------------------------------------------------------
 #1852. 㫥 #5D10.

#1852	XOR A
	LD (#5D10),A
	RET
----------------------------------------------------------------
 #1857. ਥ ࠬ஢   POKE  PEEK. 室: ⠭ #5C5D  ७ 䠩. 室: ⠭ #5CD7, #5CD9, #5CDB  #5D3F.

#1857	CALL #102E	;ਥ ७ 䠩
	LD A,"B"	; "B"?
	CP B
	JR NZ,#1866	;᫨ ,  ६ CH_ADD, ⠪  
	LD HL,(#5C5D)	;ணࠬ  ᨪ ७ 
	DEC HL		;㪠뢠
	LD (#5C5D),HL
#1866	CALL #1DEB	;ਥ ᥫ
	LD HL,(#5CD9)	;⠭  㧪/ ᥪ
	LD (#5CD7),HL
	LD HL,(#5CDB)	;⠭  ᥪ
	LD (#5CD9),HL
	XOR A		;㫥 #5CD6
	LD (#5CD6),A
	RET		;
----------------------------------------------------------------
 #187A. ਭ⨥ ࠬ஢   LOAD. 室: ⠭ #5D11  #5C3B. 室: ⠭ #5CD2, #5CD7, #5CD9, #5CE5  #5CD6  ⠥ ⥫ 䠩.

#187A	CALL #42B	;ன ᨬ  ப ENTER?
	JP Z,#27B	;᫨ ,  室       RUN "boot"

訡!!!  ४⭮, ⠪   訡      TR-DOS,   ୥  ᨪ.

	CALL #1DDF	;饭  䠩  ⥪ 
	CALL #572	;  ᥬ 䠩?
	CALL NZ,#1857	;᫨ ,  ਥ ७   ᥫ
	CALL #1D8C	;६ ⥪騩 ᨬ ப
	CP #AF		; CODE?
	CALL Z,#1842 	;᫨ ,  ਥ ᥫ, ᫨  
	CP #E4		; DATA?
	PUSH AF		;࠭ १ ஢ન
	CALL #572	;  ᥬ 䠩?
	CALL Z,#102E 	;᫨ ,  ਥ ७
	POP AF		;⠭ १ ஢ન
	CALL Z,#1BFC 	;᫨ ᨬ DATA,  ਥ  ᨢ
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #292F	;⠭  䠩   䠩
	JP NZ,#3D9	;᫨ 䠩  ,  NO FILE
	CALL #165D	;⥭ ⥫ 䠩
	RET		;
----------------------------------------------------------------
 #18A4. ⥭ ⥫ 䠩, ᫨   . ⠭ #5CDD, #5CE5  䫠 Z:  Z=1 ந室 ⥭ ⥫,  訡 NO FILE.

#18A4	JP NZ,#3D9	;᫨ । 맮 䠩   ,  訡
	CALL #165D	;㧪 ⥫ 䠩
	RET		;
----------------------------------------------------------------
 #18AB. ࠡ⪠ ࠬ஢  ணࠬ 㧪 䠩.  室 ⠭ #5CD6, #5CD9  #5CDB	; ⠩ ⥫ 㦭  䠩.  室  #5CDB 㤥  䠩  㧪,  #5CD6 0, ᫨  﫠,  3.  HL 㤥  㧪 䠩,  DE -    ᪥,  B - ⢮ ᥪ஢  㧪.  㧪 ᨢ  ணࠬ  ᨪ 㤥 ந ⮢   㧪.

#18AB	LD A,(#5CD6) 	;६ 䫠 㧪
	OR A		;砫     ⠫?
	LD HL,(#5CE6)	;६ 砫 䠩  ⥫
	JR Z,#18B7	;᫨ ࠬ ६   ⠫, 
	LD HL,(#5CD9)	;६ 砫 , 祭 
#18B7	LD DE,(#5CEB)	;६  䠩  ᪥
	CP 3		; ࠬ 祭 짮⥫?
	LD A,(#5CEA) 	;६ ࠧ 䠩  ᥪ
	PUSH DE		;࠭  䠩  ᪥
	LD DE,(#5CE8)	;६  䠩  ⥫
	JR NZ,#18CB	;᫨ 㦭    㤠,  ६
	LD DE,(#5CDB)	; 㧪, 祭 
#18CB	LD B,A		;࠭ ࠧ 䠩  ᥪ
	LD (#5CDB),DE	;⠭  䠩  㧪
	LD A,(#5CE5) 	;७ 䠩 C?
	CP "C"
	LD A,B		;⠭  䠩  ᥪ
	JR NZ,#18FD	;᫨ ७  C,    
	LD A,B		;᫨  䠩   ᮮ⢥ 
	CP D		;ࠧ  ᥪ,   㧪  -
	JR Z,#18F6	;
	DEC A
	CP D
	LD A,B
	JR Z,#18F6
	LD A,(#5CD6) 	; 祭 짮⥫?
	CP 3
	LD A,B		;⠭ ࠧ 䠩  ᥪ
	JR Z,#18F6	;᫨  ᠬ 稫  㧪,    
	XOR A		;㧨 ⮫쪮   ᥪ
	LD (#5CD6),A
	LD D,B		;᫥  䠩     
	LD E,0		; ᥪ
	LD (#5CDB),DE	;⠭  
	JR #18F9
#18F6	CALL #191B	;䠩 㦠 
#18F9	LD A,B		;⠭ ࠧ 䠩  ᥪ
	CALL #1EAC	;᫥ ⢠ ᥪ஢  㧪
	LD B,A		;࠭ 
	LD A,(#5CE5) 	;७ 䠩 C?
	CP "C"
	POP DE		;⠭  䠩  ᪥
	RET Z		;᫨ ७ 䠩 C,  

訡!!! ᫨ 믮 ⥭   ᥪ 䠩,     . - ⮩ 訡     ᥪ 䠩  ७ B  D.

	PUSH DE		;࠭  䠩  ᪥
	CP "B"		;७ B?
	PUSH AF		;࠭ ७ 䠩
	CALL Z,#1A01	;᫨ ७ B,  ⮢  㧪 ணࠬ  ᨪ
	POP AF		;⠭ ७
	CP "D"		;७ D?
	CALL Z,#1A4C	;᫨ ,  ⮢  㧪 ᨢ
	CALL #191B	; 㧪  﫠
	LD A,(#5CDC) 	;६ ⢮ ᥪ஢  㧪
	LD B,A
	POP DE		;⠭  䠩  ᪥
	RET		;
----------------------------------------------------------------
 #191B. 頥 ᫮ 3   #5CD6.

#191B	LD A,3
	LD (#5CD6),A
	RET
----------------------------------------------------------------
 #1921. 㧪/䨪 䠩,  ⠪ 㧪/ ᥪ 䠩. 室: ⠭ #5CF9, #5D10, #5CD7, #5CDB,  HL -  㧪,  DE -  䠩  ᪥,  B - ⢮ ᥪ஢  㧪.

#1921	CALL #572	;믮 㧪  䨪?
	JR Z,#192D	;᫨ ,  믮 権  ᥬ 䠩
	PUSH AF		;࠭ 䫠 樨
	CALL #1A94	;᫥  ᥪ  ᪥
	POP AF		;⠭ 䫠 樨
	CP #FF		;⥭ ᥪ 䠩?
#192D	PUSH AF
	CALL Z,#195C	;᫨ ,  ⥭ ᥪ    䠩
	POP AF
	JR Z,#1937	; 襭 㧪  䨪樨
	JP #1E4D	;  ᥪ  
#1937	LD A,(#5CD6) 	;㦠  䠩?
	CP 3

 㦭 ⮣ !!!  ⠪:
LD A,(#5D10)
OR A
 PEEK 㤥 ࠡ ࠢ쭮.  㤥 㧨  ᫥ 㦥 ᥪ.  ᫨  #5CD6 室 0,  訩   ᥣ ࠢ 0  #1946  㤥 ࠡ.

	CALL Z,#1946	;᫨ ,  㧪  䨪  䠩
	LD HL,(#5C59)	;⬥⪠  ணࠬ  ᨪ
	DEC HL
	LD (HL),#80
	RET		;
----------------------------------------------------------------
 #1946. 㧪  䨪  䠩. ⠭ #5CF4, #5CDB  #5CF9.

#1946	LD A,(#5CF9) 	;䨪?
	CP #FF
	JP NZ,#2FDE	;᫨ ,  㧪  䠩
	LD A,(#5CDB) 	;䠩  ᥪ  ⪠?
	OR A
	RET Z		;᫨ ,  
	LD C,A		;६  ⪠
	LD B,1		;1 ᥪ
	LD DE,(#5CF4)	;⥪饥  ᪠
	JR #196A	;䨪  䠩  
----------------------------------------------------------------
 #195C. 㧪/䨪 䠩,  ⠪ 㧪 ᥪ 䠩. ⠭ #5CF9 , DE   䠩  ᪥,  HL -  䠩  ,  B -  䠩  ᥪ. ᯮ ⠪   #196A  䨪樨  ⢠ ⮢ (  #195C, ஬ #5CF9   B ? ⢮ ⮢).

#195C	LD A,(#5CF9) 	;䨪?
	CP #FF
	JP NZ,#1E3D	;᫨ ,  㧪 ᥪ஢  
	LD (#5CF4),DE	;  䠩  ᪥
	LD C,0		; ᥪ #100 ⮢
#196A	LD A,B		;㥬 0 ᥪ஢?
	OR A
	RET Z		;᫨ ,  
	LD (#5CD7),HL	;࠭  䠩  
	LD (#5CD9),DE	;࠭  䠩  ᪥
#1974	PUSH BC		;࠭ ⢠ ᥪ஢
	LD B,1		;㦠 1 ᥪ
	LD DE,(#5CD9)	; ⥪饣  ᪠
	LD HL,#5D25	; 
	CALL #1E3D	;㧪 ᥪ
	LD HL,(#5CF4)	; ᫥饣 ᥪ  ᪥
	LD (#5CD9),HL
	POP BC		;⠭ ⢠ ᥪ஢
	LD HL,(#5CD7)	;६  䠩  
	LD DE,#5D25	; ᥪ  
#198E	LD A,(DE)	;ࠢ 
	CP (HL)
	JR NZ,#199D	;᫨ ᮢ,  VERIFY ERROR
	INC HL		;᫥騥 
	INC DE
	DEC C
	JR NZ,#198E	;  
	LD (#5CD7),HL	;⠭ ᫥饣 
	DJNZ #1974	;  
	RET		;
#199D	LD HL,#276B	; ᮮ饭 VERIFY ERROR
	LD A,#D		; 訡 - #D
	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #19A5. 믮  PEEK. ⠭ #5D11  #5C3B.

#19A5	LD A,#FF	; 㭪樨 PEEK
	JR #19AB 	;믮 
----------------------------------------------------------------
 #19A9. 믮  POKE. ⠭ #5D11  #5C3B. ᯮ ⠪   #19AB (믮  LOAD, PEEK  POKE; ⠭ #5D11  #5C3B,      㭪樨).

#19A9	LD A,#EE	; 㭪樨 POKE
#19AB	LD (#5D10),A	;⠭  㭪樨
	JP #1818	;믮 
----------------------------------------------------------------
 #19B1. 믮  MERGE. ⠭ #5D11  #5C3B.

#19B1	LD A,#FF	;ᯮ짮 ࠡ 
	LD (#5D1F),A

訡!!!  ﭨ ࠡ祩  室   #5D15.

	CALL #187A	;ࠡ⪠ ࠬ஢
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD A,(#5CE5) 	;७ 䠩 B?
	CP "B"
	JP NZ,#1D1A	;᫨ ,  訡
	LD BC,(#5CE6)	;⠭  䠩  㧪
	LD (#5CDB),BC
	PUSH BC		;࠭ 
	INC BC		;⠢    #80
	RST #20		;뤥   ࠡ祩 
	DW #0030
	LD (HL),#80	;થ  ணࠬ
	EX DE,HL	;ॡ᪠  㧪  HL
	POP DE		;⨥  ⥪  䠩
	PUSH HL		;࠭  㧪
	LD DE,(#5CEB)	;६  䠩  ᪥
	CALL #191B	;㦠  䠩
	LD A,(#5CDC) 	;६  䠩  
	LD B,A
	CALL #1852	;  ᥬ 䠩
	CALL #1921	;㧪 䠩
	POP HL		;⠭  㧪
	LD DE,(#5C53)	;६  ணࠬ  ᨪ
	RST #20		;ꥤ ணࠬ
	DW #08D2
	JP #3E1		;ᮮ饭 O.K.
----------------------------------------------------------------
 #19F2. ஢ઠ     १ࢨ஢  ࠭⢠  ண.  HL -  ,  DE - . ᯮ ⠪  :
#19FD (஢ઠ  ࠭⢠  ;  ࠭⢠    DE).

#19F2	EX DE,HL
	SCF		;᫥ ࠧ 
	SBC HL,DE
	RET C		;᫨    ன,  
	LD DE,#A	;   #A ⮢
	ADD HL,DE
	LD B,H		;ॡ᪠ ࠧ   BC
	LD C,L
#19FD	RST #20		;஢ઠ  ࠭⢠  
	DW #1F05
	RET		;
----------------------------------------------------------------
 #1A01. ⮢  㧪 ணࠬ  ᨪ.

#1A01	LD DE,(#5C53)	;६  砫 ணࠬ  ᨪ
	LD HL,(#5C59)	;६   ணࠬ  ᨪ
	DEC HL
	PUSH HL		;࠭ 砫   ணࠬ
	PUSH DE
	SBC HL,DE	;᫥  ணࠬ  ᨪ
	LD DE,(#5CE6)	;६  ணࠬ  ६묨
	PUSH DE		;࠭塞 
	PUSH HL		;࠭  ன ணࠬ
	LD HL,0		; 䨪?
	LD A,(#5CF9)
	CP #FF
	JR Z,#1A20	;᫨ ,    塞
	LD HL,5		; 㢥稬   5 ⮢
#1A20	ADD HL,DE
	LD (#5CDB),HL	;⠭  㧪
	POP HL		;⠭  ன ணࠬ
	LD A,(#5CF9) 	;䨪?
	CP #FF
	JR NZ,#1A31	;᫨ ,  ⮢ 
	POP DE		;⨥ ॣ஢  ⥪
	POP DE
	POP HL
	JR #1A48	;
#1A31	CALL #19F2	;஢ઠ    ணࠬ
	POP BC		;⠭  ணࠬ  ६묨
	POP DE		;⠭ 砫 ணࠬ
	POP HL		;⠭  ணࠬ
	PUSH BC		;࠭  ணࠬ
	RST #20		;࠭ ன ணࠬ
	DW #19E5
	POP BC		;⠭  ணࠬ
	CALL #1E32	;१ࢨ஢    ணࠬ
	INC HL		;⠭ ६ VARS
	LD BC,(#5CE8)
	ADD HL,BC
	LD (#5C4B),HL
#1A48	LD HL,(#5C53)	;६  㧪 ணࠬ
	RET		;
----------------------------------------------------------------
 #1A4C. ⮢   㧪 ᨢ. ⠭ #5CE8, #5CD7, #5CD9  #5CF9.

#1A4C	LD DE,(#5CE8)	;㦠  䠩
	LD (#5CDB),DE
	LD HL,(#5CD7)	;६  ᨢ  
	LD A,(#5CF9) 	;䨪?
	CP #FF
	RET Z		;᫨ ,  

	LD HL,(#5CD9)	;६  㧪 䠩
	PUSH HL		;࠭塞 
#1A61	CALL #19F2	;஢ઠ    ᨢ
	POP HL		;⠭  㧪 䠩
	LD A,H		; ࠢ 0?
	OR L
	JR Z,#1A79	;᫨ ,   ᨢ  㡨ࠥ

	LD HL,(#5CD7)	;६ 砫 ண ᨢ
	DEC HL
	DEC HL
	DEC HL
	LD BC,(#5CD9)	;६  
	INC BC
	INC BC
	INC BC
	CALL #1E2E	;࠭ ண ᨢ
#1A79	LD HL,(#5C59)	;६ 砫  ६
	DEC HL
	LD BC,(#5CE8)	;६  䠩
	PUSH BC		;࠭塞 
	INC BC
	INC BC
	INC BC
	CALL #1E32	;१ࢨ஢    ᨢ
	INC HL		;⠭  ᨢ
	LD A,(#5CD2)
	LD (HL),A
	INC HL		;⠭  ⠭  ᨢ
	POP DE
	LD (HL),E
	INC HL
	LD (HL),D
	INC HL		;६  ⥫ ᨢ
	RET		;
----------------------------------------------------------------
 #1A94. ᫥  ᥪ 䠩  ᪥     䠩. 室: ⠭ #5CD7  #5CD9    ॣ B  䠩  ᥪ,   DE -  䠩  ᪥. 室:  DE 㤥  ᥪ  ᪥,   B 頥 1.

#1A94	LD A,(#5CD9) 	;६  ᥪ  䠩
	LD C,B
	LD B,A
	LD A,C
	CP B		; , 祬 ⢮ ᥪ஢  䠩?
	JR C,#1AB6	;᫨ ,  訡

, 訡!!!   ᬮ 㧨 ᫥ ᥪ 䠩, ..   ࠢ  ᥪ஢  䠩.

	LD A,B		; ࠢ 0?
	OR A
	JP Z,#1D1A	;᫨ ,  ᨭ⠪᪠ 訡
	DEC B		;  ࠢ 1?
	JR Z,#1AB0	;᫨ ,   ᮬ 㤥  䠩
	LD A,#10	; ஦ 16 ᥪ஢
#1AA7	INC E		;᫥  ᥪ  ᪥
	CP E
	JR NZ,#1AAE
	LD E,0
	INC D
#1AAE	DJNZ #1AA7
#1AB0	LD B,1		;㦠  1 ᥪ
	LD HL,(#5CD7)	;६  㧪 ᥪ
	RET		;
#1AB6	LD HL,#29ED	; ᮮ饭 REC.O/F
	LD A,5		; 訡 - 5
	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #1ABE. ஢ઠ  䠩  ᢮   ⠫.  䠩   ⥪ . ᯮ ⠪   #1AC4 (஢ઠ  ᢮   ⠫ ᪠).

#1ABE	CALL #292F	;⠭    䠩
	JP Z,#1C50	;᫨ 諨,  FILE EXISTS
#1AC4	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	LD A,(#5E09)	; ᪥ 128 䠩?
	CP #80
	JP Z,#2723	;᫨ ,  ᮮ饭 DIRECTORY FULL
	RET		; 
----------------------------------------------------------------
 #1AD0. 믮  SAVE. ⠭ #5C3B  #5D11. ᯮ ⠪  ᮢ:
#1B27 -  ணࠬ  ᨪ. ⠭ #5CDD  #5CE5.
#1B53 -  䠩. ⠭ #5CDD, #5CE5, #5CD7, #5CD9  #5CDB.

#1AD0	CALL #1852	;㫥 #5D10
	LD HL,0		; ᨪ  ந
	LD (#5CD1),HL
	CALL #1DDF	;饭  䠩  ⥪ 
	CALL #1D8C	;६ ⥪騩 ᨬ
	CP #AF		; CODE?
	JR Z,#1B39	;᫨ ,  ਥ 砫  
	CP #CA		; LINE?
	JR NZ,#1AF8	;᫨ ,  ஢ઠ ⠫ ७
	CALL #1E0B	;ਥ ப  ᨪ
	CALL #1D75	;᫨ ஢ઠ  ᨭ⠪,  
	LD HL,(#5CDB)	;⠭ ப  ᨪ
	LD (#5CD1),HL
	LD HL,#5CE5
	JR #1B1F	;室   ᨪ
#1AF8	CP #AA		;⥪騩 ᨬ SCREEN$?
	JR NZ,#1B0D	;᫨ ,  ஢ઠ ७ DATA
	LD HL,#4000	;砫 䠩 - #4000
	LD (#5CD7),HL
	LD HL,#1B00	;  - #1B00 ⮢
	LD (#5CD9),HL
	LD (#5CDB),HL
	JR #1B48	; 䠩  ७ C
#1B0D	CALL #1D75	;᫨ ஢ઠ  ᨭ⠪,  
	CALL #1D8C	;६ ⥪騩 ᨬ
	LD HL,#5CE5
	CP #E4		; DATA?
	JR Z,#1B2C	;᫨ ,   ᨢ
	CP #D		; ENTER?
	JP NZ,#1D1A	;᫨ ,  訡
	LD (HL),"B"	;७ B
	CALL #1ABE	;஢ઠ  ⠪ 䠩  ᢮   ⠫
	CALL #1E1C	;㤠   ப ⨡ ᥫ
#1B27	CALL #1BDE	;⠭ 砫   䠩
	JP #1B53	; 䠩
#1B2C	LD (HL),"D"	;७ D
	CALL #1ABE	;஢ઠ  䠩    ⠫
	CALL #1C0F	;⠭ 砫   䠩
	JR NC,#1B53	;᫨   浪,   䠩
	JP C,#1D1A	; 訡
#1B39	CALL #1DE5	;ਭ⨥ 砫   䠩
	LD HL,(#5CD9)	;⠭ 砫 䠩
	LD (#5CD7),HL
	LD HL,(#5CDB)	;⠭  䠩
	LD (#5CD9),HL
#1B48	CALL #1D75	;᫨ ஢ઠ  ᨭ⠪,  
	LD A,"C"	;७ C
	LD (#5D3F),A
	CALL #1ABE	;஢ઠ  䠩    ⠫
#1B53	CALL #1B59	; 䠩
	JP #569		; ଠ樨  
----------------------------------------------------------------
 #1B59.  䠩. ⠭ #5CD1, #5CD7, #5CD9  #5CDB,    㧨 ᥪ 8 ஦ 0.

#1B59	LD HL,(#5CD7)	;⠭ 砫 䠩
	LD (#5CE6),HL
	EX DE,HL	;ॡ᪠   DE
	LD HL,(#5CD9)	;६  䠩
	LD A,L		; ࠢ 0?
	OR H
	JP Z,#1D1A	;᫨ ,  訡
	LD A,L		;᫥  䠩  ᥪ
	OR A
	JR Z,#1B6D
	INC H
#1B6D	LD A,H		;⠭  䠩  ᥪ
	LD (#5CEA),A
	LD E,A		;᫥  ⢠ ᢮ ᥪ஢
	LD D,0
	LD HL,(#5E0A)
	SBC HL,DE
	JP C,#1C45	;᫨  ᪥  ,  訡
#1B7B	PUSH HL		;࠭  ⢠ ᢮ ᥪ஢
	LD HL,(#5C59)	;  ணࠬ  ᨪ  #AA
	LD (HL),#AA
	INC HL
	LD DE,(#5CD1)	;  ப 
	LD (HL),E
	INC HL
	LD (HL),D
	LD HL,(#5CDB)	;⠭  䠩
	LD (#5CE8),HL
	LD HL,(#5E06)	;⠭  䠩  ᪥
	LD (#5CEB),HL
	EX DE,HL	;ॡ᪠   DE
	LD HL,(#5CE6)	;६ 砫 䠩
	LD A,(#5CEA) 	;६    ᥪ
	LD B,A
	CALL #1E4D	; 䠩
	LD HL,(#5CF4)	;६  ᢮ ࠭⢠ ᪠
	PUSH HL		;࠭塞 
	CALL #3FD	;㧪   ᥪ 8 ஦ 0
	POP HL		;⠭  ᢮   ᪥
	LD (#5E06),HL	;⠭ 
	POP HL		;⠭ ⢠ ᢮ ᥪ஢
	LD (#5E0A),HL	;⠭ 
	LD HL,(#5E09)	;६  䠩
	LD A,(HL)
	LD (#5D1E),A 	;⠭ 
	INC (HL)	;ᠫ  1 䠩
	PUSH HL		;࠭   - 䠩  ᪥
	CALL #1E43	;१ ᥪ 8 ஦ 0
	POP HL		;⠭   - 䠩
	LD C,(HL)	;६  ᠭ 䠩
	DEC C
	LD A,(#5CE5) 	;७ 䠩 B?
	CP "B"
	CALL Z,#1BC8	;᫨ ,  ⠭  ணࠬ  ६
	RET		;
----------------------------------------------------------------
 #1BC8. ⠭  ணࠬ  ᨪ  ६.   ६묨 ணࠬ 頥  #5CE6,   ६ -  #5CE8.

#1BC8	LD HL,(#5C59)	;᫥  ணࠬ  ६묨
	LD DE,(#5C53)
	SCF
	SBC HL,DE
	LD (#5CE6),HL	;⠭ 
	LD HL,(#5C4B)	;᫥  ⮫쪮 ணࠬ
	SBC HL,DE
	LD (#5CE8),HL	;⠭ 
	RET		;
----------------------------------------------------------------
 #1BDE. ⠭ 砫   䠩   ணࠬ  ᨪ.

#1BDE	LD HL,(#5C4B)	;᫥  ணࠬ  ६묨
	LD DE,(#5C53)
	SBC HL,DE
	LD (#5CDB),HL	;⠭  䠩  ⠫
	LD HL,(#5C53)	;⠭ 砫 䠩
	LD (#5CD7),HL
	LD HL,(#5C59)	;᫥  䠩  ࠬࠬ ⮧᪠
	INC HL
	INC HL
	INC HL
	SBC HL,DE
	LD (#5CD9),HL	;⠭ ⢨⥫쭮  䠩
	RET		;
----------------------------------------------------------------
 #1BFC. ਥ  ᨢ   LOAD...DATA. 室: ⠭ #5C5D  ७ 䠩  ⠭ #5CF9. 室: ⠭ #5CD2, #5CD7, #5CD9  #5CDB. ᯮ ⠪   #1C0F ( ,   #1C1B,   ࠡ⪮ 訡).

#1BFC	CALL #1C1B	; ᨢ
	RET NC		;᫨ ᨢ ,  
	LD HL,0		;ண ᨢ 
	LD (#5CD9),HL
	LD A,(#5CF9) 	; 㧪?
	CP #FF
	RET NZ		;᫨ ,  
	JP #1E65	;訡
#1C0F	CALL #1C1B	; ᨢ
	RET NC		;᫨ ᨢ ,  
#1C13	LD A,#E		; 訡 - #E
	LD HL,#27DD	; ᮮ饭 ARRAY NOT FOUND
	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #1C1B.  ᨢ  ࠡ⪨ 訡.  ⠭ #5CD2, #5CD7, #5CD9  #5CDB.  訡 䫠 C 㤥 ⠭,  襭.

#1C1B	CALL #1E2A	;६ ᫥騩 ᨬ
	CALL #1D9B	; ᨢ
	SET 7,C		;⠭  7   
	LD A,C		;⠭  
	LD (#5CD2),A
	JR NC,#1C2B	;᫨ ᨢ ,  ⠭  ࠬ஢
#1C29	SCF		;뫠 訡
	RET		;
#1C2B	JR NZ,#1C29	;᫨ 䫠 Z 襭,  訡
	INC HL		;६  ᨢ
	LD E,(HL)	;⠭  ᨢ
	INC HL
	LD D,(HL)
	INC HL
	LD (#5CD7),HL	;⠭  ⥫ ᨢ
	LD (#5CDB),DE	;⠭  ᨢ
	LD (#5CD9),DE
	CALL #1E2A	;᫥騩 ᨬ
	CP ")"		; ")"?
	JR NZ,#1C2B	;᫨ ,  訡
	RET		;
----------------------------------------------------------------
 #1C45. ࠡ⪠ 訡 NO SPACE. ᯮ ⠪   #1C4A (ࠡ⪠ 訡;  A -  訡,  HL -  ᮮ饭).

#1C45	LD HL,#29BB	; ᮮ饭 NO SPACE
	LD A,3		; 訡 - 3
#1C4A	CALL #3C3	;᫨ ,   ᮮ饭
	JP #1D3		;襭
----------------------------------------------------------------
 #1C50. ࠡ⪠ 訡 FILE EXISTS.

#1C50	LD HL,#29C5	; ᮮ饭 FILE EXISTS
	LD A,2		; 訡 - 2
	JR #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #1C57. ⠭  䠩. ⠭ #5C5D   䠩. 㤥 ࠭ ᪮  ⠭ ६ #5CDD.

#1C57	LD HL,#5CDD	; ६   䠩
	LD B,8		;  - 8 ⮢
#1C5C	LD (HL)," "	;⪠ 
	INC HL
	DJNZ #1DC4
	CALL #531	;⨥ ப  ⥪ 
	EX DE,HL
	CALL #1C81	;⠭ ᪮
	LD A,C		; 䠩 -  ப?
	OR A

訡  ணࠬ!!!    OR B.

	JP Z,#1D1A	;᫨ ,  訡
	CP 9		;  䠩  8 ᨬ
	JR Z,#1C73	;᫨ ,  १ 
	LD C,8

!!!  㤥 ࠡ ࠢ쭮    䠩  #FF ᨬ.

#1C73	LD A,(HL)	;६  ᨬ  䠩
	CP " "		;   #20?
	JP C,#1D1A	;᫨ ,  訡
	LD DE,#5CDD	; ६   䠩
	PUSH BC		;࠭  
	LDIR		;⠭ 
	POP BC		;⠭  
	RET		;
----------------------------------------------------------------
 #1C81. ⠭ ᪮  樨  䠩.  HL  砫  䠩  ASCII ।⠢,   BC ?  . HL ⠭  砫   ᪮,   BC 㤥  .

#1C81	INC HL		;६  ᫥饣 ᨬ 
	LD A,(HL)	;६  ᨬ
	CP ":"		; 稥?
	JR NZ,#1C3E	;᫨ ,  ⨢ ᪮  㬮砭
	DEC HL		;६   ᪮
	LD A,(HL)	;६  ᪮
	CALL #524	;८ࠧ  ᪮   
	PUSH BC		;࠭   䠩
	PUSH HL		;   ᪮
	CALL #3DCB	;롮 ᪮
	POP HL		;⠭   ᪮
	POP BC		;   䠩
	DEC BC		;ᥪ 2 ᨬ
	DEC BC
	INC HL		;६   䠩  ᪮
	INC HL
	RET		;
#1C98	DEC HL		;६   䠩
	LD A,(#5D19)	;६ ᪮  㬮砭
	PUSH BC		;࠭     䠩
	PUSH HL
	CALL #3DCB	;롮 ᪮
	POP HL		;⠭     䠩
	POP BC
	RET		;
----------------------------------------------------------------
 #1CA4. ।  ⥫ 䠩       ᥪ.  C    ⥫  ᥪ.  室  HL 㤥  .

#1CA4	LD L,C		;ॢ  ⥫ 䠩  塠
	LD H,0		;
	ADD HL,HL	;㬭   #10
	ADD HL,HL
	ADD HL,HL
	ADD HL,HL
	LD BC,#5D25	;㥬  砫 
	ADD HL,BC
	RET		;
----------------------------------------------------------------
 #1CB0. ⠭  ஢ઠ  䠩.  䠩   饭  ⥪ . 室: ᫨ 䠩  ⠪  ,  㤥 ⠭ 䫠 Z,   ॣ. C   #5D1E 㤥  ,  ᫨ ⠪ 䠩 ,  䫠 Z . ᯮ ⠪  :
#1CB3 ( 䠩, ⠭ #5CDD  #5CE5, 室    #1CB0).

#1CB0	CALL #1C57	;⠭  䠩
#1CB3	CALL #3E8	;筥  ᥪ 0
	LD B,#80	;ᥣ 128 䠩
	LD C,0		;筥  㫥 ⥫  ᥪ
#1CBA	PUSH BC		;࠭  䠩  稪
	CALL #1CA4	;। 砫 ⥫  
	CALL #50C	;஢ઠ  ࠡ⪠ ⨦  
	POP BC		;⠭  ⥫  ᥪ 
	PUSH BC		;稪 䠩   ⥪
	LD A,C		;ᬮ७  ᥪ?
	CP #10
	JR NZ,#1CCD	;᫨ , 
	POP BC		;⨥  ⥫  稪  ⥪
	LD C,0		;㫥 ⥫  ᥪ
	JR #1CBA	; ஢ન
#1CCD	LD DE,#5CDD 	;६   ⥫  ஢ન
	LD A,(#5D06)	;६  ⮩ 
	LD B,A
	XOR A		; ⠫?
	CP (HL)
	JR NZ,#1CDB	;᫨ ,  室  ஢ ⥫
	POP BC		;⨥  ⥫  稪  ⥪
	JR #1CE4	;室  䫠 NZ
#1CDB	CALL #2713	;ࠢ ⥩ ⥫
	POP BC		;⠭  ⥫  稪
	JR Z,#1CE7	;᫨  ⥫ ᮢ,   室
	INC C		;᫥騩 ⥫
	DJNZ #1CBA	;  
#1CE4	OR #FF		;몫祭 䫠 Z
	RET		;
#1CE7	LD A,#80	;।  䠩
	SUB B
	LD C,A
	LD (#5D1E),A	;饭   #5D1E
	XOR A		; 䫠 Z
	RET Z		;
----------------------------------------------------------------
 #1CF0.  䠩.  ⥫,  ஢થ, ⠭   #5CDD  ⠭ #5D06. ᫨ 䠩  ,  㤥 襭 䫠 Z   #5D0F 㤥 #FF,  ᫨ ,   䫠 Z,   䠩 㤥  ॣ. C   ᠬ #5D0F  #5D1E.

#1CF0	CALL #1CB3	; 䠩
	LD HL,#5D0F
	LD (HL),C	;㧪 ॣ C  #5D0F
	RET Z		;᫨ 䠩 ,  
	LD (HL),#FF	;頥  #5D0F #FF
	RET		;
----------------------------------------------------------------
p #1CFB. 믮  RETURN. ⠭ #5C3B, #5D1C  #5D13.

#1CFB	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #20E5	; 
	RES 3,(IY+1) 	;⠭ ०  "K"
	CALL #232	;⠭ ண ERR_SP
	LD SP,(#5D1C)	;⠭ ⥪
	LD HL,(#5C3D)	;६  । ᮬ  ERR_SP
	DEC HL
	LD A,#12	;⠬ 室 #12?
	CP (HL)
	JR NZ,#1D19	;᫨ ,  
	DEC HL		;⠭ ERR_SP   
	LD (#5C3D),HL
#1D19	RET		;
----------------------------------------------------------------
 #1D1A. ࠡ⪠ ᨭ⠪᪮ 訡. ⠭ #5C3A, #5D0E, #5D15,    ணࠬ #1D3. ᯮ ⠪  :
#1D29 (ࠡ⪠ 訡;  A -  訡,  HL ?  ᮮ饭).

#1D1A	BIT 7,(IY+0)	; 訡 ᨪ 㦥 祭?
	JR Z,#1D25	;᫨ ,  ⠭ 訡
	LD A,#B		;NONSENCE IN BASIC
	LD (#5C3A),A
#1D25	INC A		;祭  訡 DOS
	LD HL,#29B2 	; ᮮ饭 ERROR
#1D29	CALL #3C3	; ᮮ饭, ᫨ 
	JP #1D3		;襭
----------------------------------------------------------------
 #1D2F. ࠡ⪠ 訡, 㯨襩   ᨪ  ⪨ ⥪. ⠭ #5C3A.

#1D2F	LD A,(#5C3A)	;६  訡 ᨪ
	LD HL,#27CA 	; ᮮ饭 *BREAK*
	CP #14		;BREAK INTO PROGRAM?
	JR Z,#1D29	;᫨ ,   ᮮ饭
	CP #C		;BREAK - CONT REPEATS?
	JR Z,#1D29	;᫨ ,   ᮮ饭
	LD HL,#27D2 	; ᮮ饭 OUT OF RAM
	CP 3		;OUT OF MEMORY?
	JR Z,#1D29	;᫨ ,   ᮮ饭
	LD HL,#27DD 	; ᮮ饭 ARRAY NOT FOUND
	CP 1		;VARIABLE NOT FOUND?
	JR Z,#1D29	;᫨ ,   ᮮ饭
	JR #1D1A	; ᮮ饭 *ERROR*
----------------------------------------------------------------
 #1D4D. 믮  RUN. ⠭ #5D11  #5C3B.

#1D4D	CALL #1852	;믮 㧪 䠩
	CALL #1836	;ࠡ⪠ ࠬ஢  㧪 䠩
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD HL,(#5CE6)	;६  㧪 䠩  㬮砭

訡!!!  䠩  㧨   㣮 .  ணࠬ #18AB  ࠭  #5D20 ⢨⥫  㧪 䠩,   ⠭ .

	LD A,(#5CE5) 	;७ 䠩 B?
	CP "B"
	JP Z,#12A	;᫨ ,   ணࠬ  ᨪ
	PUSH HL		; ணࠬ  
	RET

!!!   ⠪ !!! -,  ணࠬ  ᪥    BC; -,  ᮢᥬ   TR-DOS,  ணࠬ   맮 #3D13;  , 㤠 ணࠬ 㤥 ?;  ⢥...  饬,  ⠪ (᫥ CALL #1D75):
	LD A,(#5CE5)
	CP "D"
	JP Z,#1D1A
	CP "B"
	JP Z,#12A
	LD HL,START
	LD (#5D1A),HL
	JP #1D3

START	CALL #232
	LD BC,(#5D20)
	PUSH BC
	RET
----------------------------------------------------------------
 #1D63. ⪠ ࠡ祩  .

#1D63	LD HL,#5D0E	;ࠡ  ?
	LD A,(HL)
	CP #FF
	LD (HL),0	;ࠡ  饭
	RET NZ		;᫨ ࠡ  饭,  
	RST #20		;⪠ ࠡ祩 
	DW #16BF
	RET		;
----------------------------------------------------------------
 #1D70. ஢ઠ,   ஢ઠ ப  ᨭ⠪  믮 . ᫨  믮,  䫠 Z 㤥 襭,  ⠭.

#1D70	BIT 7,(IY+1)
	RET
----------------------------------------------------------------
 #1D75. ᫨  ஢ઠ  ᨭ⠪,    ணࠬ, 맢襩  ணࠬ. ⠭ #5C3B.

#1D75	CALL #1D70	;஢ઠ,  
	RET NZ		;᫨  믮,  
	POP HL		;⨥     ணࠬ
	RET		;  ᫥饬 
----------------------------------------------------------------
 #1D7B. 饭 ᫠  ⥪ . ⠭ #5C5D  ᨬ । ᫮. ᫨ ப ஢  ᨭ⠪,  㤥 ⠭ 䫠 Z,   믮  襭.

#1D7B	CALL #1E2A	;६ ᫥騩 ᨬ ப
	CALL #1DC1	;饭 ᫠  ⥪ 
	JR #1D70	;஢ઠ,  믮  ஢ઠ  
----------------------------------------------------------------
 #1D83. ⨥ ⮪ 0. ᯮ ⠪   #1D84 (⨥ ⮪;   ॣ A).

#1D83	XOR A		; ⮪ - 0
#1D84	RST #20		;⨥ ⮪
	DW #1601
	RET		;
----------------------------------------------------------------
 #1D88. ⨥ ⮪ 2.

#1D88	LD A,2 	; ⮪ - 2
	JR #1D84	;⨥ ⮪
----------------------------------------------------------------
 #1D8C. 롮ઠ ⥪饣 ᨬ ப.     #5C5D.

#1D8C	RST #20
	DW #0018
	RET
----------------------------------------------------------------
 #1D90.  .

#1D90	CALL #1D83 	;⨥ ⮪ 0
	RST #20		;।஢  ப
	DW #0F2C
	RET		;
----------------------------------------------------------------
 #1D97. ⪠ ࠭  ⨥ ⮪ 0.

#1D97	RST #20
	DW #0D6B
	RET
----------------------------------------------------------------
 #1D9B.  ᨢ. ⠭ #5C5D   ᨢ. ᫨ ᨢ ,   HL 㤥  .

#1D9B	RST #20
	DW #28B2
	RET
----------------------------------------------------------------
p #1D9F. ⪠  ࠭.

#1D9F	RST #20
	DW #0D6E
	RET
----------------------------------------------------------------
 #1DA3.  ᫠  ॣ A. ᯮ ⠪  ᮢ:
#1DA4 ( ᫠  ॣ C),
#1DA9 ( ᫠  ॣ BC).

#1DA3	LD C,A		;ॡ᪠ ᫠  C
#1DA4	LD B,0		;ॢ ᫠  塠 
	JP #1DA9	;࠭ !
#1DA9	PUSH BC		;࠭ ᫠
	CALL #20F1 	; 
	POP BC		;⠭ ᫠
	RST #18		; ᫠
	DW #1A1B
	CALL #20F1 	;⠭ 
	RET		;
----------------------------------------------------------------
 #1DB5. ⨥ ப  ⥪ .  DE 㤥  ப,  BC -  .

#1DB5	RST #20
	DW #2BF1
	RET
----------------------------------------------------------------
 #1DBD. 饭 ப  ⥪ . ⠭ #5C5D  砫 ப.

#1DBD	RST #20
	DW #1C8C
	RET
----------------------------------------------------------------
 #1DC1. 饭 ᫠  BC  ⥪ .

#1DC1	RST #20
	DW #1C82
	RET
----------------------------------------------------------------
 #1DC5. ⠭ CH_ADD  ன ᨬ ப. ⠭ #5D11.

#1DC5	LD HL,(#5D11)	;६  ப 
	INC HL		;६   ண ᨬ
	LD (#5C5D),HL	;頥   CH_ADD
	RET		;
----------------------------------------------------------------
 #1DCD. ਭ⨥ 2- ப  ⥪ .   #5D11  ࢮ ப.

#1DCD	CALL #1DDF 	;ਥ ࢮ ப  ⥪ 
	CALL #1D8C 	;६ ⥪騩 ᨬ
	CP ","		; ?
	JP NZ,#1D1A	;᫨ ,  訡
	CALL #1E2A 	;᫥騩 ᨬ
	CALL #1DBD 	;ਥ ன ப  ⥪ 
	RET		;
----------------------------------------------------------------
 #1DDF. ⠭ CH_ADD  饭 ப  ⥪ . ⠭ #5D11.

#1DDF	CALL #1DC5 	;⠭ CH_ADD
	JP #1DBD	;饭 ப  ⥪ 
----------------------------------------------------------------
 #1DE5. ਭ⨥    ᥫ ᫥ ᨬ CODE. ࢮ ᫮ 㤥  #5CD9, ஥ -  #5CDB. ᫨ 뫮  ᫮,   㤥   祩. ᫨ ਭ 2 ᫠,   #5CD6 㤥 3.  室 ⠭ #5C5D  #5C3B. ᯮ ⠪  :
#1E0B (ਭ⨥ ᫠; ⠭ #5C5D  #5C3B; ᫮ 㤥  #5CDB,   #5CD6 㤥 3).

#1DE5	CALL #1D8C	;६ ⥪騩 ᨬ ப
	CP #AF		; CODE?
	RET NZ		;᫨ ,  
	CALL #1D7B	;ਭ⨥ ᫠  ⥪ 
	JR Z,#1DFB	;᫨  ஢ઠ  ᨭ⠪,  쭥 ஢ઠ
	CALL #1DB9	;⨥ ᫠  ⥪ 
	LD (#5CD9),BC	;⠭ ࢮ ᫠
	LD (#5CDB),BC
#1DFB	CALL #1D8C	;६ ⥪騩 ᨬ
	CP ","		; ?
	JR Z,#25DB	;᫨ ,  ਭ⨥ ண ᫠
	CP #D		; ENTER?
	JP NZ,#1D1A	;᫨ ,  訡
	CALL #1D75	;᫨ ப ஢  ᨭ⠪,  
	RET		;
#1E0B	CALL #1D7B	;ਥ ண ᫠  ⥪ 
	RET Z		;᫨ ஢ઠ  ᨭ⠪,  
	CALL #1DB9	;⨥ ᫠  ⥪ 
	LD (#5CDB),BC	;饭   #5CDB
	LD A,3		;ਭ﫨 2 ᫠
	LD (#5CD6),A
	RET		;
----------------------------------------------------------------
 #1E1C.    p ⨡ ᥫ

#1E1C	LD HL,(#5D11)	;६  ப 
	RST #20		;㤠   ⨡ ᥫ
	DW #11A7
	RET		;
----------------------------------------------------------------
 #1E23. 뤥 ࠭⢠  ࠡ祩 .  BC   ॡ㥬 ࠭⢠.

#1E23	LD HL,(#5C61)	;㧪 HL  #5C61
	RST #20		;뤥 ࠭⢠
	DW #0030
	RET		;
----------------------------------------------------------------
 #1E2A. 롮ઠ ᫥饣 ᨬ ப. ⠭ #5C5D.

#1E2A	RST #20
	DW #0020
	RET
----------------------------------------------------------------
 #1E2E.   .  HL  砫 ,  BC - .

#1E2E	RST #20
	DW #19E8
	RET
----------------------------------------------------------------
 #1E36. 㧪 ॣ ஦. ⠭ #5CD1.  室  訡  #5D17 頥 #FF.  ᯮ짮  :
#1E3A  אַ 뢮   #3F.

#1E36	CALL #3EB2	;।  ஦,  ன ⮨ 
	LD A,H		;⠭ ॣ ஦
#1E3A	OUT (#3F),A
	RET		;
----------------------------------------------------------------
 #1E3D. 㧪 ᥪ஢. 室:  HL -  㧪,  D -  ஦,  E -  ᥪ,  B - - ᥪ஢.

#1E3D	XOR A		;ਧ 㧪
	JR #1E64	;室  ணࠬ 㧪/ ᥪ஢
----------------------------------------------------------------
 #1E40.  ଠ樨  䠩.  室  C    䠩. ᯮ ⠪  ᮢ:
#1E43 -  ᥪ  . 室:  #5CF4 ⠭  ᥪ+1,   #5CF5 -  ஦.
#1E4D -  ᥪ஢.  HL - ,  D -  ஦,  E -  ᥪ,  B - - ᥪ஢.
#1E64 - 㧪/ ᥪ஢. ।⥫ ⠭    ।饩 ணࠬ   A ⠭ 0  㧪  - 㣮  .

#1E40	CALL #166B	;⥭ ᥪ  ⥫ 䠩   ⥫
#1E43	LD DE,(#5CF4)	;६  ᥪ  
	DEC DE
	LD B,1		;뢠 1 ᥪ
	LD HL,#5D25	;뢠 㤥  
#1E4D	PUSH HL		;࠭  ᥪ஢  ᪥   
	PUSH DE
	CALL #3E11	;६ ⨯ ᪮
	BIT 7,(HL)	; 40-஦?
	JR Z,#1E60	;᫨ ,  뢠 
	BIT 0,(HL)	;ᯮ㥬 40 ஦  80-஦筮?
	JR NZ,#1E60	;᫨ ,  뢠 
	LD HL,#29D8	; ᮮ饭 READ ONLY
	JP #1D29	;室  ࠡ 訡

, 訡!!!   뫨 ⠭  訡.

#1E60	POP DE		;⠭ ᮢ ᥪ஢
	POP HL
#1E62	LD A,#FF	;ਧ 
#1E64	LD (#5CCE),A 	;⠭ ਧ 樨
#1E67	LD (#5CF4),DE	;⠭  ᥪ஢  ᪥
	PUSH BC		;࠭ ⢠ ᥪ஢
	PUSH HL		;  㧪 / 
	CALL #1E36	;⥭ ᭮  ஦
	POP HL		;⠭  㧪 / 
	POP BC		; ⢠ ᥪ஢
	XOR A		;⢮ ᥪ஢ ࠢ 0?
	OR B
	RET Z		;᫨ ,  
#1E75	PUSH BC		;࠭塞   - ᥪ஢
	PUSH HL
	CALL #3F06	;⠭  㧪 /  ᥪ஢
	LD A,(#5CF4) 	;⠭  ᥪ
	CALL #3F02
	LD A,(#5CF5) 	;樮஢   ஦
	CALL #3E63
	LD A,(#5CCE) 	;६ 䫠 樨
	OR A		;㧪?
	PUSH AF
	CALL Z,#3F0E 	;᫨ ,  㧪 ᥪ
	POP AF
	CALL NZ,#3F0A	;  ᥪ
	POP HL		;६  ᫥饣 ᥪ
	LD DE,#100
	ADD HL,DE
	PUSH HL		;࠭塞 
	LD A,#10	; ஦ 16 ᥪ஢
	LD HL,#5CF4
	INC (HL)	;᫥騩 ᥪ
	CP (HL)		; ஦?
	JR NZ,#1EA7	;᫨ ,   ᫥饣 ᥪ 0
	LD (HL),0
	LD HL,#5CF5	; ६ ᫥ ஦
	INC (HL)
#1EA7	POP HL		;⠭  ᫥饣 ᥪ
	POP BC		; ⢠ ᥪ஢
	DJNZ #1E75	;᫨  ,  
	RET		;
----------------------------------------------------------------
 #1EAC. ᫥ ⢠  ᥪ஢ 䠩     .  A   ⢮ ᥪ஢ 䠩,   DE -  㦠  䠩.

#1EAC	PUSH HL		;࠭ HL
	LD H,A		;६   䠩
	LD L,0
	PUSH HL		;࠭塞 
	SBC HL,DE	;   㧪?
	CALL C,#1EBC	;᫨ ,  㦠  䠩
	POP HL		;⠭   䠩
	LD A,H		;᫥ ⢠  ᥪ஢    䠩
	POP HL		;⠭ HL
	RET C		;᫨   䠩   㧪,
	LD A,D		; ⢮  ᥪ஢ ६   㧪
	RET		;
----------------------------------------------------------------
 #1EBC. 㫥 #5CD6  ⠭ 䫠 C.

#1EBC	XOR A
	LD (#5CD6),A
	SCF
	RET
----------------------------------------------------------------
 #1EC2. 믮  FORMAT. ⠭ #5D11  #5C3B. ᯮ ⠪   #1EDD (७ ଠ஢; ⠭ #5CDD).

#1EC2	LD HL,#FFFF
	LD (#5CD7),HL	;஦  ஢
	LD (#5CD9),HL	;ଠ஢  ஭ ᪠
	LD (#5CD1),HL	;訡  ⥭ ᭮ થ ஢
	CALL #42B	;᫥騩 ᨬ ENTER?
	JP Z,#1D1A	;᫨ ,  訡
	CALL #1DDF	;ਥ  ᪠  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #1C57	;⠭  ᪠
#1EDD	CALL #3200	;롮 ண  筮 ଠ
	AND #80		;᪮ 40-஦?
	LD A,#28	;ଠ஢ 40 ஦
	JR Z,#1EE8	;᫨ ᪮ 80-஦,
	LD A,#50	; ଠ஢ 80 ஦
#1EE8	LD (#5CD7),A 	;⠭ ⢠ ஦
	CALL #3D98	;⠭
	CALL #1FF6	;롮  ஭ ᪠
	CALL #3EA0	;প  3135098 ⠪⮢
	LD E,1		;ଠ஢ ஦  ஬ 1
	CALL #1FFD
	CALL #1FEB	;롮 孥 ஭ ᪠
	LD E,0		;ଠ஢ ஦  ஬ 0
	CALL #1FFD
	LD A,(#5CDD) 	;ଠ஢ ⮫쪮  ஭ ᪠
	CP "$"
	JR Z,#1F1B	;᫨ ,  ଠ஢ ᪠
	CALL #1FF6	;롮  ஭ ᪠
	CALL #3EA0	;প  3135098 ⠪⮢
	CALL #3EB5	;⥭ ᭮ થ
	LD A,H		; ஦ - 1?
	CP 1
	JR NZ,#1F1B	;᫨ ,  ଠ஢ ᪠
	LD A,#80	;ଠ஢  ஭ ᪠
	LD (#5CDA),A
#1F1B	CALL #20BD	;ଠ஢ ᪠
	LD HL,#5D25	; 砫 
	LD (HL),0	;⪠ ࢮ 
	LD DE,#5D26	; ண  
	LD BC,#FF	;⠫  #FF ⮢
	LDIR		;⪠ 
	LD BC,#5CD7	; ६  ⢮ ஦
	LD DE,#5CDA	; ६  ⢮ ஭
	LD A,(BC)	;ଠ஢ 80 ஦?
	CP #50
	JR Z,#1F49	;᫨ ,   80-஦
	LD A,(DE)	;ଠ஢ 2 p?
	CP #80
	JR Z,#1F42	;᫨ ,   40-஦ p
	LD A,#19	; 40-஦ ஭
	LD HL,#270	;᢮ #270 ᥪ
	JR #1F55	;ᮧ ⥫ ᪠
#1F42	LD A,#17	; 40-஦ ஭
#1F44	LD HL,#4F0	;᢮ #4F0 ᥪ
	JR #1F55	;ᮧ ⥫ ᪠
#1F49	LD A,(DE)	;ଠ஢ 2 ஭?
	CP #80
	LD A,#18	;᫨ ,   80-஦ ஭
	JR NZ,#1F44
	LD A,#16	;  80-஦ ஭
	LD HL,#9F0	;᢮ #9F0 ᥪ
#1F55	LD (#5E08),A 	;⠭ ⨯ ᪠
	LD (#5E0A),HL	;⠭ ⢠ ᢮ ᥪ஢
	LD A,1		;ࢠ ᢮ ஦ - 1
	LD (#5E07),A
	LD A,#10	;ਧ ਭ ᪠  TR-DOS
	LD (#5E0C),A
	LD HL,#5E0F	;9 ⮢ #20   #5E0F
	LD DE,#5E10
	LD BC,8
	LD (HL),#20
	LDIR
	LD HL,#5CDD	;⠭  ᪠
	LD DE,#5E1A
	LD BC,8
	LDIR
	CALL #1FEB	;롮 孥 ஭ ᪠
	LD B,1		; 1 ᥪ
	LD DE,8		;ᥪ 8 ஦ 0
	LD HL,#5D25	; 
	CALL #1E62	; ᥪ
	LD A,(#5CD6) 	;६ ⢮ 䥪 ᥪ஢
	PUSH AF		;࠭塞 
	XOR A		;७ - CHR$ 0
	CALL #32C4	;⠭ ७  ⪠  ࠭
	LD HL,(#5E0A)	;६ ⢮ ᢮ ᥪ஢
	LD (#5CD7),HL	;࠭塞 
	LD HL,#5CDD	;  ᪠
	RST #18
	LD A,#D		;ॢ ப
	RST #10
	LD HL,(#5CD7)	;⠭ ⢠ ᢮ ᥪ஢
	POP AF		;⠭ ⢠ 䥪 ᥪ஢
	PUSH HL		;࠭ ⢠ ᢮ ᥪ஢
	LD D,0		;ॢ ⢠ 䥪 ᥪ஢ 
	LD E,A		;塠 
	SBC HL,DE	;᫥ ⢠  ᥪ஢
	LD B,H		;ॡ᪠   BC
	LD C,L
	CALL #1DA9	; 
	LD A,"/"	; "/"
	RST #10
	POP BC		;⠭ ⢠ ᢮ ᥪ஢
	CALL #1DA9	; 
	JP #326B	;  ଠ஢
----------------------------------------------------------------
 #1FB9.  ᥪ஢  ଠ஢ 筮 ᪠. ᯮ ⠪   #1FBA  ஢ન ஦.

#1FB9	DB 1
#1FBA	DB 9,2,#A,3,#B,4,#C,5,#D,6,#E,7,#F,8,#10,1
----------------------------------------------------------------
 #1FCA. । ⢠ ஦ ᪮. 室: ⠭ ६ ६饭  ᪮. 室:  #5CD7  ॣ A 㤥 ⢮ ஦ ᪮.

#1FCA	CALL #3E08	;६ ६ ६饭 
	OR #11		;樮஢  ஦ #32
	LD B,A
	LD A,#32
	CALL #3E44
	LD A,2		;⥬  ஦ 2
	CALL #3E44
	CALL #3DFD	;প  725779 ⠪⮢
	IN A,(#1F)	;  室 ?
	AND 4
	LD A,#50	;᫨ ,   ᪮ 80 ஦
	JR Z,#1FE7
	LD A,#28	; 40
#1FE7	LD (#5CD7),A	;⠭ ⢠ ஦
	RET		;
----------------------------------------------------------------
 #1FEB. 롮 孥 ஭ ᪠. ⠭ #5D16. ᯮ ⠪   #1FF0 (㧪 ⥬ ॣ,  -  ).   ⠪ ᯮ짮  :
#1FF3  אַ 뢮   #FF.

#1FEB	LD A,(#5D16)	;६  ⥬ ॣ
	OR #3C		;ଠ MFM,  ஭, 몫祭   ⮢
#1FF0	LD (#5D16),A	;  ⥬ ॣ
#1FF3	OUT (#FF),A 	;⠭ ⥬ ॣ
	RET		;
----------------------------------------------------------------
 #1FF6. 롮  ஭ ᪠. ⠭ #5D16.

#1FF6	LD A,(#5D16)	;६  ⥬ ॣ
	AND #6F		;ଠ MFM,  ஭, 몫祭   ⮢
	JR #1FF0	;⠭ ⥬ ॣ
----------------------------------------------------------------
 #1FFD. ଠ஢ ஦.  ॣ      ᯮ樮  ᪮.  ६ ⠭ #5CD8, #5CE6, #5CE8  㫨 #5CD6. ᯮ ⠪   #1FC9 (஢ઠ ஦; ⠭ #5CD8, #5CE8  㫨 #5CD6  ᯮ樮 ).

#1FFD	DI		; 뢠
	LD A,#F4	; ஦
	OUT (#1F),A
	LD HL,(#5CE6)	;६  ⠡ ᥪ஢  ଠ஢
	LD C,#7F	; ॣ 
#2007	LD B,#A		;#A ࠧ #4E ( ஡)
	LD D,#4E
	CALL #20B1	;   ᫮ ࠧ
	LD B,#C		;ᨭய஬⮪
	LD D,0
	CALL #20B1
	LD B,3		;ᨭந
	LD D,#F5
	CALL #20B1
	LD D,#FE	;1 ࠧ #FE (᭠ ⪠ 䨪)
	CALL #20AF	;  1 ࠧ
	LD D,E		; ஦
	CALL #20AF
	LD D,0		; ஭ ( TR-DOS ᥣ 0)
	CALL #20AF
	LD D,(HL)	; ᥪ  ⠡
	CALL #20AF
	LD D,1		; ᥪ - #100 ⮢
	CALL #20AF
	LD D,#F7	; ஫쭮 㬬
	CALL #20AF
	LD B,#16	;ன ஡
	LD D,#4E
	CALL #20B1
	LD B,#C		;ᨭய஬⮪
	LD D,0
	CALL #20B1
	LD B,3		;ᨭந
	LD D,#F5
	CALL #20B1
	LD D,#FB	;᭠ ⪠ 
	CALL #20AF
	LD B,0		; (#100 㫥)
	LD D,0
	CALL #20B1
	LD D,#F7	; ஫쭮 㬬
	CALL #20AF
	LD B,#3C	;⨩ ஡
	LD D,#4E
	CALL #20B1
	LD A,(HL)	;६   ᫥饣 ᥪ
	INC HL
	CP #10		; ⠡?
	JR NZ,#2007	;᫨ ,  ଠ஢ ᫥饣 ᥪ
	LD B,0		;஡   ஦
	CALL #20B1
	JP M,#2076
	CALL #20B1
#2076	IN A,(#1F)	;६ ﭨ ஫
	AND #40		; 饭?
	JP NZ,#3F39	;᫨ ,  ᮮ饭 READ ONLY
#207D	LD A,(#5CD8) 	;஦ ஢?
	OR A
	RET NZ		;᫨ ,  

!!! । ⮬  室  訡  ࠧ 뢠.

	LD C,#7F	; ॣ 
	LD A,E		;⠭  ஦
	OUT (#3F),A
	LD HL,(#5CE8)	;६  ⠡ ᥪ஢  ஢ન
#208A	LD B,3		;3 ⪨
	LD A,(HL)	;६  ᥪ  ⠡
	OUT (#5F),A	;⠭ ᥪ
	PUSH HL		;࠭  ⠡ ᥪ஢
#2090	DI		; 뢠
	LD A,#80	;⥭ ᥪ
	OUT (#1F),A
	PUSH BC		;࠭ ⢠ ⮪
	CALL #3FE5	;⥭     HL ( ,  譮)
	IN A,(#1F)	;  浪?
	AND #7F
	POP BC		;⠭ 稪 ⮪
	JR Z,#20A6	;᫨   浪,  ᫥騩 ᥪ
	DJNZ #2090	;᫥ ⪠
	LD HL,#5CD6	; 1  ᥪ
	INC (HL)
#20A6	POP HL		;⠭  ⠡ ᥪ஢
	LD A,(HL)	;६  ⥪饣 ᥪ
	INC HL		;६   ᫥饣 ᥪ
	CP 1		; ⠡?
	JR NZ,#208A	;᫨ ,  
	EI		;ࠧ襭 뢠
	RET		;
----------------------------------------------------------------
 #20AF.   1 p.  ॣ D  ,  C - #7F  뤠    -#5D. ᯮ ⠪   #20B1 (  ᪮쪮 ࠧ;   #20AF   B ⢮ 뤠).

#20AF	LD B,1		; 1 ࠧ
#20B1	IN A,(#FF)	; DRQ  INTRQ
	AND #C0
	JR Z,#20B1
	RET M		;᫨ 㯨 INTRQ,  
	OUT (C),D 	;뤠 
	DJNZ #20B1 	;  
	RET		;
----------------------------------------------------------------
 #20BD. ଠ஢ ᪠. ⠭ #5CDA, #5CD7, #5CE6  #5CE8.

#20BD	LD HL,#5CD7 	;६ ᫮ ଠ㥬 ஦
	LD B,(HL)
	XOR A		;஦ ஢
	INC HL
	LD (HL),A
	LD E,#FF	;筥  ஦ 0
	PUSH BC		;࠭ ⢠ ஦
#20C6	INC E		;᫥ ஦
	LD A,E
	LD B,#1B	;樮஢
	CALL #3E44
	CALL #1FEB	;롮 孥 ஭ ᪠
	CALL #32DD	;  ஦  ଠ஢ 
	LD A,(#5CDA)	;६ 䫠 ⢠ ஭
	CP #80		;ଠ஢ 2 ஭?
	JR NZ,#20E1	;᫨ , 
	CALL #1FF6	;롮  ஭ ᪠
	CALL #330F	;  ஦  ଠ஢ 
#20E1	POP BC		;⠭ ⢠ ஦
	DJNZ #20C6	;᫨   ,  
	RET		;
----------------------------------------------------------------
 #20E5.     .  室 ⠭ ६ #5CB6, #5CF8, #5D0C  #5D18. 室:  #5D18 뢠 #FF,  ᫨  #5D0C  0,  㤠 ⠪ 뫠 #FF. ᯮ ⠪  :
#20F1 ( , ࠡ⠥ ⮫쪮  #5CB6  #5D18).

#20E5	PUSH AF		;࠭ AF
	LD A,(#5CF8)	;祣  ?
	CP #FF
	JR Z,#211C	;᫨ ,  
	POP AF		;⠭ AF
	CALL #2970	;㤠 
#20F1	PUSH AF		;࠭ AF
	LD A,(#5CB6)	; ࠧ襭?
	CP #F4
	JR Z,#211C	;᫨ ,  
	XOR A

	LD HL,#5D18 	;⢥ত ?
	OR (HL)
	LD (HL),#FF 	; ᫥騩 ࠧ ⢥ত 㤥
	JR Z,#211C	;᫨   뫮,  
	LD A,(#5D0C)	; ?
	OR A
	LD HL,#5CC3 	;砫 ࢮ 
	LD DE,#5D33 	;砫 ண 
	JR NZ,#2111	;᫨  ,  ன  ᬥ饭  #101
	LD DE,#5E34 	;⮢
#2111	LD B,#2D	;  - #2D ⮢
#2113	LD C,(HL)	;塞  ⠬
	LD A,(DE)
	LD (HL),A
	LD A,C
	LD (DE),A
	INC HL
	INC DE
	DJNZ #2113
#211C	POP AF		;⠭ AF
	RET		;
----------------------------------------------------------------
 #211E. ⪠  ।.

#211E	LD HL,(#5C59)	;६   ।
	LD (HL),#D	;ENTER
	LD (#5C5B),HL	;⠭ 
	INC HL		; 
	LD (HL),#80
	RET		;
----------------------------------------------------------------
 #212A. ⠭  ப. ⠭ #5D20.

#212A	LD DE,(#5C59)	;ᨬ ७   ।
	LD HL,#5D20	; #5D20
	CALL #2B0	;७ ᨬ
	RET		;
----------------------------------------------------------------
 #2135. ਭ⨥ . ⠭ #5D0F  ᫨ ⠬  0,   #5D20.

#2135	LD A,(#5D0F) 	;訡 뫠?
	OR A
	PUSH AF		;࠭ १ ஢ન
	CALL NZ,#212A 	;᫨ ,  ⠭   ᨬ

  ⮣ !!! COPY     #5D20,   । ᥣ ⠥ 楫.

	POP AF		;⠭ १ ஢ન
	CALL Z,#211E	;᫨ 訡  뫮,  ࠭ ன ப
	LD HL,(#5C59)	;  ⮦  㦭
	CALL #3D80	;ॢ ப
	LD A,(#5D19) 	;६  ᪮  㬮砭
	ADD A,"A"	;  
	RST #10
	LD A,">"	; ">"
	RST #10
	LD HL,#5C3A	; ଠ쭮 室  ।
	LD (HL),#FF
	JP #1D90	;   
----------------------------------------------------------------
 #2158. ਥ ᫠. CH_ADD ⠭  ᨬ । ᫮. ᫮, 㢥祭  1, 㤥 饭  #5CD7,  ᮤন #5CDB 㤥 ᪮஢  #5CD9. ᫮   ࠢ 0.

#2158	CALL #1E2A	;᫥騩 ᨬ
	CALL #1D8C
	CP ","		; ?
	JP NZ,#1D1A	;᫨ ,  訡
	LD HL,(#5CDB)	;࠭ #5CDB
	LD (#5CD9),HL
	CALL #1E0B	;饭 ᫠  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD HL,(#5CDB)	;᫮ p 0?
	LD A,
	OR L
	JP NZ,#1D1A	;᫨ ,  訡
	INC HL		; 㤥  ENTER
	LD (#5CD7),HL	;⠭ ᫠
	LD HL,(#5CD9)	;⠭ #5CDB
	LD (#5CDB),HL
	RET		;
----------------------------------------------------------------
 #2182. 믮  OPEN#. ⠭ #5D11  #5C3B.

#2182	LD HL,(#5D11)	;⠭ CH_ADD
	LD (#5C5D),HL
	CALL #1E0B	;ਭ⨥  ⮪
	CALL #1DD0	;ਭ⨥  䠩  ⥪ 
#218E	CALL #1D8C	;६ ⥪騩 ᨬ
	CP "A"		;  "A"?
	JR NC,#219A	;᫨ ,  ஢ઠ ० 䠩
	CALL #1E2A	;᫥騩 ᨬ
	JR #218E	;
#219A	CP #A5		; RND?
	PUSH AF		;࠭ ᨬ  १ ஢ન
	CALL Z,#2158	;᫨  RND,  ࠡ⪠  
	POP AF		;⠭ ᨬ  १ ஢ન
	JR Z,#21AE	;᫨  RND,  ⨥ ⮪
	AND #DF		;㪢 
	CP "R"		; "R"?
	JR Z,#21AE	;᫨ ,  ⨥ ⮪
	CP "W"		; "W"?
	JP NZ,#1D1A	;᫨ ,  訡
#21AE	LD (#5D09),A 	;࠭ 㪢 ० 䠩
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD A,"#"	;७ 䠩 - "#"
	LD (#5CE5),A
	LD A,0		; 稭   0
	LD (#5CE6),A
	CALL #21DB	; ᫥  䠩
	PUSH AF		;࠭ 䫠 १ ᪠
	CALL #220F	;஢ઠ ⮪
	POP AF		;⠭ 䫠 १ ᪠
	PUSH AF		;࠭ 䫠 १ ᪠
	CALL NZ,#2288 	;᫨ 䠩   ,  ᮧ  0
	POP AF		;⠭ 䫠 १ ᪠
	CALL #2242	;⨥ ⮪
	LD HL,(#5D11)	;४ ६  ᮬ  ப
	LD BC,#124
	ADD HL,BC
	LD (#5D11),HL
	JP #1D3		;襭
----------------------------------------------------------------
 #21DB.   䠩 . 室:   䠩  ⥪ , ⠭ #5CDD  #5D09    #5CE6  ࢮ  䠩. 室: ᫨ 䠩 ,  㤥 ⠭ ⥫ ᫥  ࢮ   ᨬ  #5D09  㫥   ⠭ 䫠 Z;  䫠 Z 㤥 襭,    㤥   #5D09.

#21DB	LD A,#A		; 䠩   #A ⠬
	LD (#5D06),A
	CALL #1CB0	;⠭  䠩   䠩
	PUSH AF		;࠭ १ ᪠
	CALL #405	;ன  
	POP AF		;⠭ १ ᪠
	JR NZ,#2206	;᫨ 䠩  ,  ஢ઠ ० 䠩
	LD A,(#5D09)	;뢠 䠩  ⥭?
	CP "R"
	JR Z,#2201	;᫨ ,  室
#21F1	LD HL,#5CE6 	;᫥騩 
	INC (HL)
	CALL #1CB3	; 
	JR Z,#21F1	;᫨  ,  ᫥騩 
	LD HL,#5CE6
	DEC (HL)	;᫥ 騩 
	CALL #1CB3	;।    ⠫
#2201	CALL #165D	;⥭  ⥫
	XOR A		;㫥   ⠭ 䫠 Z
	RET		;
#2206	LD A,(#5D09)	;뢠 䠩  ⥭?
	CP "R"
	RET NZ		;᫨ ,  
	JP #3D9		;ᮮ饭 NO FILE
----------------------------------------------------------------
 #220F. ஢ઠ  ⮪. 室: ⠭ #5CDB. 室:  HL 㤥   ⠡ STRMS, ⢥饣   ⮪. ᯮ ⠪   #2225 ( ,   #1C4A).

#220F	LD A,(#5CDB)	;६  ⮪
	RST #20		;६ ⭮⥫  ⥫ ⮪, 
	DW #1727	;஬ 祭 
	LD A,B		;⮪ ?
	OR C
	JP NZ,#221B	;᫨ ,  訡
	RET		;
#221B	LD A,#19	; 訡 ᨪ PARAMETER ERROR

!!!  뤠 ᮮ饭 INVALID STREAM.

	LD (#5C3A),A
	LD HL,#2804 	; ᮮ饭 STREAM OPENED
	LD A,#A		; 訡 TR-DOS - #A
#2225	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #2228. ࠡ⪠ 訡 NOT DISC FILE.

#2228	LD A,#B		; 訡 - #B
	LD HL,#2812	; ᮮ饭 NOT DISC FILE
	JR #2225	;ࠡ⪠ 訡
----------------------------------------------------------------
 #222F. 樠 ਧ 䠩 ந쭮 㯠. ⠭ #5CD7  ன  䠩 . ணࠬ 頥  A #7F.

#222F	PUSH HL		;࠭ HL
	LD C,#20	;६  #20-  ⥫ 
	RST #28
	LD A,(#5CD7)	;⠭  
	LD (HL),A
	INC HL
	XOR A
	LD (HL),A	;  砫  - 0
	INC HL
	LD (HL),A	;㤥 ਭ  
	INC HL
	LD (HL),A	;ᥪ ९뢠
	LD A,#7F	;㧪 
	POP HL		;⠭ HL
	RET		;
----------------------------------------------------------------
 #2242.  ⥫   䠩   祭   ⮪. ⠭ #5CDB.

#2242	PUSH AF		;࠭ १ ᪠ 䠩
	CALL #220F	;६   ⠡ STRMS, ⢥饣  ⮪
	EX DE,HL	;࠭ 
	LD HL,(#5C53)	;᫥ ⭮⥫쭮  
	LD BC,(#5C4F)	;⥫ 
	SBC HL,BC
	EX DE,HL	;⠭   ⠡ STRMS
	LD (HL),E	;⠭ ⭮⥫쭮  ⥫
	INC HL		;
	LD (HL),D
	CALL #2276	;ᮧ ⥫ 
	LD A,(#5D09) 	;६ ᯮᮡ  䠩
	CP #A5		; RND?
	CALL Z,#222F	;᫨ ,  樠 ਧ 䠩 ந쭮 㯠
	JR Z,#226B	; ⠭ ਧ ᯮᮡ  䠩
	LD A,(#5D09) 	;६ ᯮᮡ  䠩
	CP "R"		; R?
	LD A,#FF	;᫨ ,  ਧ ᯮᮡ  䠩 -
	JR NZ,#226B	;#FF
	XOR A		;  0
#226B	LD (HL),A	;⠭ ਧ ᯮᮡ  䠩
	POP AF
	JP #2270
#2270	PUSH AF
	LD BC,#14	;६  ࠣ ⥪  ⥫
	ADD HL,BC	;  1
	PUSH HL		;࠭塞 
	CALL #2423	;᫥  ⥪饣 ᥪ 䠩  ᪥
	POP HL		;⠭  ࠣ ⥪  1
	INC HL
	LD B,1		;㦠 1 ᥪp
	POP AF		;⠭ १ ᪠ 䠩
	OR A		; ᮧ  䠩?
	PUSH AF		;࠭ १ ஢ન
	CALL NZ,#1E4D 	;᫨  ᮧ  䠩,   ᥪ
	POP AF		;࠭ १ ஢ન
	CALL Z,#1E3D	;᫨ 䠩 ⢮,  㧪 䠩
	RET		;
----------------------------------------------------------------
 #2288.  㫥  䠩 .

#2288	LD HL,(#5CD7)	;࠭ #5CD7
	PUSH HL
	LD HL,#2000	; 0
	LD (#5CD7),HL
	CALL #229A	;ᮧ 
	POP HL		;⠭ #5CD7
	LD (#5CD7),HL
	RET		;
----------------------------------------------------------------
 #229A.   䠩 . ⠭ #5CD7  #5CDB, #5CDD  #5CE5.

#229A	LD HL,#1000	;  - #1000 ⮢
	LD (#5CD9),HL
	CALL #1AC4	;஢ઠ  ᢮   ᪥
	CAL #1B59	; 䠩
	LD HL,0		; 0 ⮢
	LD (#5CE8),HL
	CALL #166B	; ⥫ 
	JP #1E43	;१ ᥪ  ⥫  

!!! ᫥  ᥪ  ᭮   䠩 , ⠪   訡 뢠 ⮪ 0.
----------------------------------------------------------------
 #22B2.  ⥫   ⨥ ⮪.

#22B2	LD HL,(#5C53)	;⨥ ⮪
	DEC HL
	LD (#5C51),HL
	PUSH HL		;࠭  ⥫ 
	LD BC,#124	;  - #124 
	CALL #1E32	;ᮧ   ⥫ 
	LD A,0		;  ﬨ
	LD B,0		;  - #100 ⮢
#22C4	LD (DE),A	;⪠ 
	DEC DE		;᫥騩 
	DJNZ #22C4	;  
	POP HL		;⠭  ⥫ 
	PUSH HL		; ᭮ ࠭
	LD DE,#3D0E	; ணp 뢮  
	LD (HL),E
	INC HL
	LD (HL),D
	INC HL
	LD DE,#3D06	; ணࠬ   
	LD (HL),E
	INC HL
	LD (HL),D
	INC HL
	LD (HL),"D"	;  - "D"
	INC HL		;ய  ⮢
	INC HL
	INC HL
	INC HL
	INC HL
	LD (HL),#24	; #24
	INC HL
	LD (HL),1	; 1
	INC HL
	LD A,(#5CF6) 	; ᪮
	LD (HL),A
	INC HL
	LD A,(#5D1E) 	; ᫥  䠩
	LD (HL),A
	INC HL
	LD A,(#5D09) 	;䠩 뢠  ⥭?
	CP "R"
	LD (HL),0	;᫨ ,  ன 0 ⮢
	JR Z,#22FC	; ⢮ ன ⮢ ६ 
	LD A,(#5CE8) 	;  ᠭ  䠩
	LD (HL),A
#22FC	INC HL
	LD (HL),B
	JR Z,#2304
	LD A,(#5CE9)
	LD (HL),A
#2304	INC HL
	EX DE,HL	;࠭  #F-  ⥫ 
	POP HL		;⠭  ⥫ 
	PUSH DE
	LD DE,#10	; #10-  ⥫ 
	ADD HL,DE
	EX DE,HL
	LD HL,#5CDD	;⠭ ⥫ 䠩
	LD BC,#10
	LDIR
	POP HL		;⠭  #F-  ⥫ 
	RET		;
----------------------------------------------------------------
p #2317. ᫥  ⥪饣 ᨬ 䠩   ⥫ . ன ⮪, 易  䠩 .  室  ᨬ 㤥  HL.

#231D	LD C,#D		; #D-  ⥫ 
	RST #28
	LD C,(HL)	;६  ⥪饣 ᨬ  ⥪饬 ᥪ 䠩
	RST #28		;᫥ ᬥ饭  ᨬ
	LD BC,#24 	;⥪ 稭  #24-  ⥫ 
	ADD HL,BC	;᫥  ᨬ
	RET		;
----------------------------------------------------------------
 #2321. ᫥  ࠣ ⥪  ⥫ . ன ⮪, 易  䠩 . ᯮ ⠪   #2323 (᫥    ⥫ ⥪饣 ; ன       C;  室  HL 㤥  ).

#2321	LD C,#24	;⥪ 稭  #24- 
#2323	LD B,0		;ॢ    2-  ଠ
	LD HL,(#5C51)	;६  ⥫ ⥪饣 
	ADD HL,BC	;᫥  
	RET		;
----------------------------------------------------------------
 #232A. ஢ઠ ⨦  ᥪ  ⥫ . ன ⮪, 易  䠩 .  ⨦  ᥪ 㤥 㦥 ᫥騩. ᫨ ⨣  ,  ᫥騩 ,   㤥 ᮧ.

#232A	LD C,#D		; #D-  ⥫ 
	RST #28
	INC (HL)	;᫥騩 
	RET NZ		;᫨   ᥪ,  
	PUSH HL		;࠭  #D-  ⥫ 
	CALL #2443	;⠭ ᪮
	CALL #23FC	; ⥪饣 ᥪ
	POP HL		;⠭  #D-  ⥫ 
	INC HL		;#E- 
	INC (HL)	;᫥騩 ᥪ
	PUSH HL		;࠭  #E-  ⥫ 
	CALL #2418	;㧪 ᥪ
	POP HL		;⠭  #E-  ⥫ 
	LD A,#10	;  16 ᥪ஢
	CP (HL)		; ?
	RET NZ		;᫨ ,  
	PUSH HL		;࠭  #E-  ⥫ 
	LD C,#F		;#F- 
	RST #28
	LD A,(HL)	;䠩 אַ 㯠?
	CP #7F
	POP HL		;⠭  #E-  ⥫ 
	JR Z,#2358	;᫨ 䠩 אַ 㯠,  ஢ઠ  ᫥饣 
	LD HL,(#5C51)	;६  ⥫ 
	CALL #26E1	; ⥫ 
	LD C,#E		;#E- 
	RST #28
	JP #2379	;ᮧ ᫥饣  䠩
#2358	CALL #23CF	; ᫥饣  䠩
	PUSH AF		;࠭ १ ᪠
	CALL Z,#2418	;᫨  ,  㧪 ᥪ  
	LD C,#E		;#E- 
	RST #28
	POP AF		;⠭ १ ᪠ 
	CALL NZ,#2370 	;᫨    ,  ᮧ 
	RET		;
----------------------------------------------------------------
 #2367. 饭  D ᫠ #20,  E - ᮤন #19-  ⥫   㫥   , 饭  HL. ன 㦭 .

#2367	LD (HL),0	;㫥 
	LD C,#19	;६  #19-  ⥫ 
	RST #28
	LD D,#20	;饭  ॣ D ᫠ #20
	LD E,(HL)	;饭  E ᫠  #20-  ⥫ 
	RET		;
----------------------------------------------------------------
 #2370.   䠩 . ன ⮪, 易-
  䠩 .

#2370	CALL #2367	;६  ᮧ 
	LD (#5CD7),DE	;⠭ 
	JR #2381	;ᮧ  
----------------------------------------------------------------
 #2379. C  䠩 . ன ⮪, 易  䠩 , ᯮ, ⠪,   #2381 (ᮧ  䠩 ; ⠭ #5CD7  #5CDB, #5CDD  #5CE5).

#2379	CALL #2367	;६  ⥪饣 
	INC E		;᫥騩 
	LD (#5CD7),DE	;⠭  
#2381	CALL #229A	;ᮧ 
	CALL #2970	;㤠 

!!! ᫨ 믮  CAT#  LIST#,  p 㤠 .

	LD C,#10	;६  #10-  ⥫ 
	RST #28
	EX DE,HL	;७   DE
	LD HL,#5CDD 	;७ ⥫   ⥫ 
	LD BC,#10
	LDIR
	LD C,#C		;#C- 
	RST #28
	LD A,(#5D1E)	;⠭    ⠫
	LD (HL),A
	RET		;
----------------------------------------------------------------
 #239B. ஢ઠ ⨦  ᥪ  ⥭ 䠩 . ன ⮪, 易  䠩 .

#239B	LD C,#D		; #10-  ⥫ 
	RST #28
	INC (HL)	;᫥騩  ᥪ
	RET NZ		;᫨   ᥪ,  
	INC HL		;#11- 
	INC (HL)	;᫥騩 ᥪ
	PUSH HL		;࠭  #11-  ⥫ 
	CALL #2443	;⠭ ᪮
	LD C,#23	;#23- 
	RST #28
	LD A,(HL)	; 0?
	OR A
	JR Z,#23B6	;᫨ ,  ᥪ  ९뢠
	POP HL		;⠭  #11-  ⥫ 
	PUSH HL		; ᭮ ࠭ 
	DEC (HL)	;⠭  ⥪饣 ᥪ
	CALL #23FC	; ᥪ
	POP HL		;⠭  #11-  ⥫ 
	PUSH HL		; ᭮ ࠭ 
	INC (HL)	;᫥騩 ᥪ
#23B6	CALL #2418	;㧪 ᥪ
	POP HL		;⠭  #11-  ⥫ 
	LD A,#10	;  16 ᥪ஢
	CP (HL)		; ?
	CALL NZ,#23C1	;᫨ ,  ⨥ ᫥饣
	RET		;
----------------------------------------------------------------
 #23C1. ⨥ ᫥饣  䠩 . ன ⮪, 易  䠩 ,   HL  #E-  ⥫   ⠭ #5D06.

#23C1	CALL #23CF 	; ᫥饣  䠩 
	PUSH AF		;࠭ १ ᪠
	CALL #2970	;㤠 

!!! H ஢ #5D16, ⠪  ᫨ 믮  CAT#,  LIST#,   㤠 .

	POP AF		;⠭ १ ᪠ 
	JP NZ,#2492	;᫨   ,  END OF FILE
	JP #2418	;㧪 ᥪ  
----------------------------------------------------------------
 #23CF.  ᫥饣  䠩 . ன ⮪, 易  䠩 ,   HL p #E-  ⥫   ⠭ #5D06. ᫨  ,  䫠 Z 㤥 祭,  몫祭.

#23CF	LD (HL),0	; ⥪饣 ᥪ - 0
	LD C,#19	;#19-  ⥫ ⮪
	RST #28
	INC (HL)	;᫥騩 
	LD C,#10	;#10- 
	RST #28
	LD DE,#5CDD 	;⠭ ⥫ 
	LD BC,#10
	LDIR
	CALL #1CB3	; 

!!! ᫥ ᪠   ᭮ 뢠 ⮪, 易  䠩 , ⠪   ᪮ 訡 뢠 ⮪ 0.

	RET NZ		;᫨   ,  
	CALL #165D	;⥭ ⥫ 
	LD C,#10	;७   ⥫ 
	RST #28
	EX DE,HL
	LD HL,#5CDD
	LD BC,#10
	LDIR
	LD C,#C		;#C- 
	RST #28
	LD A,(#5D1E)	;⠭    ⠫
	LD (HL),A
	XOR A		;⠭ 䫠 Z
	RET		;
----------------------------------------------------------------
 #23E4. ⨥ .    ⠫   A.

#23E4	CALL #165D	;⥭ ⥫ 

!!! ᫥ ⥭ ⥫  ᭮ 뢠 ⮪, 易  䠩 , ⠪   ᪮ 訡 뢠 ⮪ 0.

	LD C,#10	;६  #10-  ⥫ 
	RST #28
	EX DE,HL	;ॡ᪠   DE
	LD HL,#5CDD 	;७ ⥫   ⥫ 
	LD BC,#10
	LDIR
	LD C,#C		;#C- 
	RST #28
	LD A,(#5D1E)	;⠭    ⠫
	LD (HL),A
	XOR A		;㫥 
	RET		;
----------------------------------------------------------------
 #23FC.  ⥪饣 ᥪ 䠩 . ன ⮪, 易  䠩.

#23FC	CALL #2423	;᫥  ⥪饣 ᥪ 䠩  ᪥
	CALL #2321	;᫥  ⥪饣 ࠣ ⥪  ⥫ 
	LD B,1		;뢠 1 ᥪ
	CALL #1E4D	; ᥪ

!!! ᫥  ᥪ  ᭮ 뢠 ⮪, 易  䠩 , ⠪   ᪮ 訡 뢠 ⮪ 0.

	LD C,#F		;#F-  ⥫ 
	RST #28
	LD A,(HL)	;䠩 אַ 㯠?
	CP #7F
	RET Z		;᫨ ,  
	CALL #2321	;᫥  ⥪饣 ࠣ ⥪  ⥫ 
	XOR A		;ᥪ  ﬨ
	LD B,A		;  - #100 ⮢
#2413	LD (HL),A	;⪠ 
	INC HL		;᫥騩 
	DJNZ #2413	;  
	RET		;
----------------------------------------------------------------
 #2418. 㧪 ⥪饣 ᥪ  ⥫ . ன ⮪, 易  䠩 .

#2418	CALL #2423	;᫥  ⥪饣 ᥪ  ᪥
	CALL #2321	;᫥  ᥪ  ⥫ 
	LD B,1		;㦠 1 ᥪ
	JP #1E3D	;㧪 ᥪ  

!!! ᫥ 㧪 ᥪ  ᭮ 뢠 , 易  䠩 , ⠪   訡 뢠 ⮪ 0.
----------------------------------------------------------------
 #2423. ᫥  ⥪饣 ᥪ 䠩  ᪥. ன ⮪, 易  䠩 .  室  DE 㤥  ᥪ  ᪥.

#2423	LD HL,(#5C51)	;६  #1E-  ⥫ 
	LD BC,#1E
	ADD HL,BC
	LD E,(HL)	;६  䠩  ᪥
	INC HL
	LD D,(HL)
	LD C,#E		;#E- 
	RST #28
	LD B,(HL)	;६  ⥪饣 ᥪ 䠩
	DEC B		; ࠢ 0?
	INC B
	PUSH AF		;࠭ AF
	LD A,#10	; ஦ #10 ᥪ஢
	JR Z,#2441	;᫨  ⥪饣 ᥪ 䠩 p 0,  室
#2438	INC E		;᫥騩 ᥪ
	CP E		; ஦?
	JR NZ,#243F	;᫨ , 
	LD E,0		;ᥪ 0
	INC D		; ᫥ ஦
#243F	DJNZ #2438	;  
#2441	POP AF		;⠭ AF
	RET		;
----------------------------------------------------------------
 #2443. ⠭ ᪮  権  䠩 . ன ⮪, 易  䠩.

#2443	LD C,#B		;६  #B-  ⥫ 
	RST #28
	LD A,(HL)	;६  ᪮,  ஬ 室 䠩
	JP #3DCB 	;롮 ᪮
----------------------------------------------------------------
 #244A. 뢮 ᨬ  䠩 .      ன ⮪, 易  䠩.

#244A	LD HL,#5CC2 	; ४⥫   ᨪ
	PUSH HL		;饭   ⥪
	LD HL,#20F1	; ணࠬ  
	PUSH HL		;饭   ⥪
	PUSH AF		;࠭ ᨬ
	CALL #20F1	; 
	LD A,#A		;䠩 ᪠  #A ⠬ ⥫
	LD (#5D06),A
	POP AF		;⠭ ᨬ
	CALL #24A2	;ࠡ  䠩 אַ 㯠
	PUSH AF		;࠭ ᨬ
	CALL #2650	;䠩 뢠  ⥭?
	JR Z,#249E	;᫨ ,  訡
	POP AF		;⠭ ᨬ
	CALL #2317		;᫥  ⥪饣 ᨬ  ⥪饬 ᥪ
	LD (HL),A		; ᨬ
	JP #232A		;஢ઠ ⨦  ᥪ  ⥫ 
----------------------------------------------------------------
 #246E. ஢ઠ ⨦  . ᯮ ⠪  ᮢ:
#2492 - ࠡ⪠ 訡 END OF FILE १  ᨪ.
#2494 - ࠡ⪠ 訡 १  ᨪ.  訡   .

#246E	LD C,#D		;६  #D-  ⥫ 
	RST #28
	LD A,(HL)	;६ 訩   ன  䠩
	LD BC,#E	;#1B- 
	ADD HL,BC
	CP (HL)		;ࠢ  ⮢  ன  ᠭ ⥩ 
	RET NZ		;᫨   ࠢ,  
	LD C,#E		;筮  訬 ⠬
	RST #28
	LD BC,#E
	ADD HL,BC
	CP (HL)
	RET NZ
	LD HL,#5CB6 	; ६ ࠧp襭  
	LD A,(HL)	;६  祭
	CP #F4		;䥩-1 ?
	JR Z,#2492	;᫨ ,  訡
	BIT 4,(HL)	;믮  LOAD 䥩-1?
	JR Z,#2492	;᫨ ,  訡
	OR 1		; 䫠 C
	POP HL		;⨥  ⥪  
	RET		;  ᫥饬 
#2492	LD A,7		; 訡 END OF FILE
#2494	LD (#5C3A),A	;⠭  訡
	CALL #20E5	; 
	RST #20		;ࠡ⪠ 訡
	DW #0058
----------------------------------------------------------------
 #249D.  RET.

#249D	RET
----------------------------------------------------------------
 #249E. ࠡ⪠ 訡 INVALID I/O DEVICE १  ᨪ.

#249E	LD A,#17	; 訡 - #17
	JR #2494	;ࠡ⪠ 訡 p  ᨪ
----------------------------------------------------------------
 #24A2.   䠩 ந쭮 㯠. । ᨬ   A  ன ⮪, 易  䠩 . ᫨ 祭 ਥ   䠩 ᫥⥫쭮 㯠,  ந室 ⮩ ,  ந室   ணࠬ, 맢襩  ணࠬ.

#24A2	LD D,A		;࠭ ᨬ
	LD C,#F		;६  #D-  ⥫ 
	RST #28
	LD A,(HL)	;䠩 ந쭮 㯠?
	CP #7F
	LD A,D		;⠭ ᨬ
	RET NZ		;᫨ 䠩 ந쭮 㯠,  
	LD BC,#13	;#22- 
	ADD HL,BC
	LD A,(HL)	;ਭ  ?
	OR A
	LD A,D		;⠭ ᨬ
	JR NZ,#24D5	;᫨   ਭ,   ᨬ
	DEC HL		;#21- 
	LD A,(HL)	; 0?
	OR A
	JR NZ,#24C2	;᫨ ,  ࠡ  㦥 
	PUSH BC		;࠭ ᫠ #13,
	PUSH HL		; #21-  ⥫  
	PUSH DE		;ᨬ
	CALL #24F8	;뤥 #10 ⮢  ࠡ祩 
	POP DE		;⠭ ᨬ,
	POP HL		; #21-  ⥫  
	POP BC		;᫠ #13
#24C2	LD C,(HL)	;६ ⭮⥫  ᨬ
	LD A,D		;⠭ ᨬ
	EX DE,HL
	LD HL,(#5CCF)	;६  ࠡ祩 
	ADD HL,BC	;᫥   ᨬ
	CP 6		;ᨬ CHR$ 6?
	LD (HL),A	;饭 ᨬ  ࠡ 
	CALL Z,#2504	;᫨ ᨬ CHR$ 6,    ਭ
	LD C,#21	;#21- 
	RST #28
	INC (HL)	;ᠫ 1 ᨬ
	POP HL		;⨥  ⥪  
	RET		;  ᫥饬 
#24D5	DEC HL		;#21- 
	LD A,(HL)	;६ ⭮⥫  ᨬ
	DEC HL		;#20- 
	INC A		;  ᨬ ENTER
	CP (HL)		; ?
	INC HL		;#21- 
	INC (HL)	;ᠫ 1 ᨬ
	PUSH HL		;࠭  #21-  ⥫
	PUSH AF		;  १ ஢ન    ᨬ
	LD C,#23	;#23- 
	RST #28
	LD (HL),#FF	;ᥪ ९뢠
	POP AF		;⠭ १ ஢ન  
	POP HL		; ᨬ   #21-  ⥫ 
	JR C,#24EE	;᫨   ᨬ ,  ᫥ 
	LD A,D		;⠭ ᨬ
	CP #D		; ENTER?
	JR Z,#24F2	;᫨ ,  ᫥ 
	POP BC		;⨥  ⥪  
	RET		;  ᫥饬 
#24EE	LD A,D		;⠭ ᨬ
	CP #D		; ENTER?
	RET NZ		;᫨ ,  
#24F2	XOR A		;⭮⥫  ᨬ - 0
	LD (HL),A
	INC HL		;#22- 
	LD (HL),A	;㤥 ਭ  
	LD A,D		;⠭ ᨬ
	RET		;
----------------------------------------------------------------
 #24F8. 뤥 #10 ⮢  ࠡ祩  . ⠭ #5CCF.

#24F8	LD HL,(#5C61)	;६  ࠡ祩  
	LD (#5CCF),HL	;⠭ 
	LD BC,#10	;뤥 #10 ⮢
	JP #1E23	;뤥   
----------------------------------------------------------------
p #2504. ࠡ⪠  .        ⥪      #5CCF,   HL   ᫥ ᨬ    1.

#2504	LD (HL),#D	; ப
	LD HL,(#5C5D)	;࠭ CH_ADD
	LD (#5CD7),HL
	LD HL,(#5CCF)	;⠭ CH_ADD   
	LD (#5C5D),HL
	LD HL,#5C3B	;஢ઠ  ᨭ⠪
	RES 7,(HL)
	CALL #1DC1	;ॢ ᫠  5- 
	LD HL,#5C3B	;믮
	SET 7,(HL)
	LD HL,(#5CCF)	;⠭ CH_ADD   
	LD (#5C5D),HL
	CALL #1DC1	;ਥ ᫠  ⥪ 
	CALL #1DB9	;⨥  㤠
	PUSH BC		;७   DE
	POP DE
	LD C,#20	;६  #D-  ⥫ 
	RST #28
	LD B,(HL)	;६  
	XOR A
	LD HL,0		;᫥ ⭮⥫쭮   
	LD (#5CDB),HL	;ᥪ,  ᥪ   
#2538	ADD HL,DE	;,  ,   p⠥
	JR NC,#2544
	PUSH HL
	LD HL,(#5CDB)
	INC HL
	LD (#5CDB),HL
	POP HL
#2544	DJNZ #2538
	LD (#5CD9),HL
	LD A,(#5CDB) 	;  ᥣ 16 ᥪ஢
	LD HL,#5CDA
	AND #F
	LD (#5CDB),A
	LD HL,(#5CD7)	;⠭ CH_ADD
	LD (#5C5D),HL
	CALL #2568	;⨥ 
	LD C,#21	;#21- 
	RST #28
	LD A,#FF	;⭮⥫  ⥪饣 ᨬ 㤥 0
	LD (HL),A
	INC HL		;#22- 
	LD (HL),A	;  ਭ
	RET		;
----------------------------------------------------------------
 #2568. ⨥ . ⠭ #5CD7, #5CD9  #5CDB.

#2568	LD C,#19	;६  #19-  ⥫ 
	RST #28
	LD A,(#5CDA) 	;६  뢠 
	CP (HL)		; 㦥 ?
	JP NZ,#2584	;᫨ ,  ⨥ 
	LD C,#E		;#E- 
	RST #28
	LD A,(#5CDB) 	;६  ᥪ  뢠 
	CP (HL)		;ᥪ 㦥 ⠭?
	JP NZ,#25A7	;᫨ ,  㧪 ᥪ
#25DF	LD C,#D		;#D- 
	RST #28
	LD A,(#5CD9) 	;६ ⭮⥫  뢠 
	LD (HL),A	;⠭ 
	RET		;
#2584	CALL #25CA	;஢ઠ  㫥 #23- 
	CALL NZ,#25C3 	;᫨ ,   ᥪ
	LD A,(#5CDA) 	;६  뢠 
	LD C,#19	;#19- 
	RST #28
	LD (HL),A	;⠭  
	LD C,#10	;#10- 
	RST #28
	LD DE,#5CDD	;⠭ ⥫ 
	LD BC,#10
	LDIR
	CALL #1CB3	; 

訡!!! ᫥ ᪠ 䠩  ᭮ 뢠  䠩 , ⠪   訡 㤥  ⮪ 0.

	JP NZ,#25D2	;᫨   ,  ᮧ 
	CALL #23E4	;⨥ 
	JR #25AD	;㧪 ᥪ  
#25A7	CALL #25CA	;஢ઠ  㫥 #23- 
	CALL NZ,#25C3 	;᫨ ,   ᥪ
#25AD	LD A,(#5CDB) 	;६  뢠 ᥪ
	LD C,#E		;#E- 
	RST #28
	LD (HL),A	;⠭  ᥪ
	PUSH HL		;࠭  #E- 
	CALL #2443	;⠭ ᪮
	CALL #2418	;㧪 ᥪ
	POP HL		;⠭  #E- 
	DEC HL		;#D- 
	LD A,(#5CD9) 	;⠭ ⭮⥫쭮  뢠
	LD (HL),A	;
	JR #257C	;室
----------------------------------------------------------------
 #25C3.  ⥪饣 ᥪ. ன  䠩 .

#25C3	CALL #2443	;⠭ ᪮
	CALL #23FC	; ᥪ
	RET		;
----------------------------------------------------------------
 #25CA. ஢ઠ  㫥 #23-  ⥫ . ⢥⢥ ᮤন 㤥 ⠭ 䫠 Z,  ᠬ ᮤন 㤥  . ன 㦭 .

#25CA	LD C,#23	;६  #23-  ⥫ 
	RST #28
	LD A,(HL)	;६  ᮤন
	OR A		;஢ઠ 
	LD (HL),0	;㫥 
	RET		;
----------------------------------------------------------------
 #25D2.   䠩 . ⠭ #5CD7, #5CD9  #5CDB.

#25D2	LD HL,(#5CDA)	;६  
	LD H,#20
	LD (#5CD7),HL	;⠭ 
	LD HL,(#5CD9)	;࠭ ⭮⥫쭮  뢠
	PUSH HL		;
	LD HL,(#5CDB)	;  ᥪ
	PUSH HL
	CALL #2381	;ᮧ 
	POP HL		;⠭  ᥪ
	LD (#5CDB),HL
	POP HL		; ⭮⥫쭮  뢠 
	LD (#5CD9),HL
	JR #25AD	;㧪 ᥪ  
----------------------------------------------------------------
 #25EF.   䠩 . ன ⮪, 易  䠩 .  맮  ।   ப  ந 室  ।,  頥 ᨬ  䠩  A.

#25EF	CALL #20F1	; 
	LD HL,#5C3C	;p  
	RES 3,(HL)
	LD HL,(#5C3D)	;६  ணࠬ ࠡ⪨ 訡
	LD E,(HL)
	INC HL
	LD D,(HL)
	OR A		; p #107F?
	LD HL,#107F
	SBC HL,DE
	JR NZ,#2626	;᫨ ,  ணࠬ 맢   ।
	LD SP,(#5C3D)	;⪠ ⥪ ।
	POP DE		;⨥  ணࠬ ࠡ⪨ 訡
	POP DE		;⠭   ⥪
	LD (#5C3D),DE	;⠭ 
#260F	CALL #262B	; ᨬ  䠩
	JR C,#261D	;᫨   ᨬ,  뫪    ।
#2614	LD HL,#5CC2	; ४⥫   ᨪ
	PUSH HL		;饭   ⥪
	LD HL,#20E5	; ணࠬ 㤠    
	PUSH HL		;饭   ⥪
	RET		;   
#261D	CP #D		;ᨬ ENTER?
	JR Z,#2614	;᫨ ,  室
	RST #20		; ᨬ   ।
	DW #0F#55
	JR #260F	;
#2626	CALL #262B	; ᨬ  䠩
	JR #2614	;
----------------------------------------------------------------
 #262B.    䠩 .  室  㤥  . ன ⮪, 易  䠩 .

#262B	LD A,#A		;䠩 ᪠  10 ⠬ ⥫
	LD (#5D06),A
	CALL #2650	;䠩   ⥭?
	JR Z,#2642	;᫨ , 
	CP #7F		;䠩 ந쭮 㯠?
	JP NZ,#249E	;᫨ ,  訡
	LD BC,#13	;६  #22-  ⥫ 
	ADD HL,BC
	LD (HL),0	;ணࠬ 뢮 㤥 ਭ  
	JR #2645
#2642	CALL #246E	
#2645	CALL #2317	;᫥  ⥪饣 ᨬ
	LD A,(HL)	;६  ᨬ
	PUSH AF		;࠭塞 
	CALL #239B	;஢ઠ ⨦  ᥪ
	POP AF		;⠭ ᨬ
	SCF		;  ᨬ
	RET		;
----------------------------------------------------------------
 #2650. ஢ઠ #F-  ⥫ ⥪饣 . ⢥⢥  ᮤন ⠭ 䫠 Z,  ᠬ ᮤন 㤥  ॣ A.

#2650	LD C,#F		;६  #F-  ⥫ 
	RST #28
	LD A,(HL)	;६  
	OR A		;஢ઠ   0
	RET		;
----------------------------------------------------------------
 #2656. 믮  CLOSE#. ⠭ #5D11  #5C3B.

#2656	LD HL,(#5D11)	;⠭ CH_ADD
	LD (#5C5D),HL
	CALL #1E0B	;ਥ  ⮪
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	LD A,(#5CDB) 	;६  ⮪
	RST #20		;६ ⭮⥫  ⥫ 
	DW #1727
	LD A,B		;⮪ ?
	OR C
	JP Z,#1D3	;᫨ ,  襭
	PUSH HL		;࠭   STRMS
	LD HL,(#5C4F)	;६   ⥫ 
	ADD HL,BC	;塞  ࢮ  ⥫ 
	LD A,(HL)	;६ 訩   ணࠬ 뢮
	LD HL,#3D0E	; ࠢ #3D?
	CP H
	POP HL		;⠭   STRMS
	JP NZ,#2228	;᫨ 訩   ணࠬ 뢮  ࠢ #3D,
          ; ᮮ饭 NOT DISC FILE
          
檠 ஢ઠ!!!      짮⥫!

	LD (HL),0	;⨥ ⮪
	INC HL
	LD (HL),0
	LD (#5CD9),BC	;࠭ ⭮⥫쭮  ⥫ 
	LD HL,(#5C4F)	;᫥  ⥫ 
	ADD HL,BC
	DEC HL
	LD (#5CD7),HL	;࠭ 
	CALL #26CE	; ⪠ 䠩, ᫨ 㦭
	LD HL,(#5CD7)	;⠭  ⥫ 
	LD BC,#124	;  - #124 
	CALL #1E2E	;㭨⮦  ⥫ 
	LD HL,#5C10	;६ 砫 ⠡ STRMS
	LD B,#10	;ᥣ 16 ⮪
#269D	PUSH BC		;࠭ ⢠ ⮪
	LD BC,(#5CD9)	;६ ⭮⥫  ⥫ 
	LD E,(HL)	;६   ⠡
	INC HL
	LD D,(HL)
	EX DE,HL	;७ᨬ   HL
	SBC HL,BC	;  襣 ?
	EX DE,HL	;ॡ᪠   DE
	JR C,#26BC	;᫨   襣 ,  ᫥騩 
	LD D,(HL)	;᭮ ६   ⠡
	DEC HL
	LD E,(HL)
	INC HL
	PUSH HL		;࠭  ⥪饣  ⠡
	EX DE,HL	;ॡ᪠   ⠡  HL
	LD BC,#124	;४ 
	SBC HL,BC
	EX DE,HL	;७   DE
	POP HL		;⠭  ⥪饣  ⠡
	LD (HL),D	;⠭  
	DEC HL
	LD (HL),E
	INC HL
#26BC	INC HL		;᫥騩 
	POP BC		;⠭ ⢠ ⮢
	DJNZ #269D	;  
	LD HL,(#5D11)	;४   ப
	LD BC,#124
	SBC HL,BC
	LD (#5D11),HL
	JP #1D3		;襭
----------------------------------------------------------------
 #26CE.  ⥪饣 ᥪ 䠩 .   뢠 ⮪, 易  䠩.   HL  #5CD7  ⥫ .

#26CE	LD BC,#F	;६  #F-  ⥫ 
	ADD HL,BC
	LD A,(HL)	;䠩 뢠  ⥭?
	OR A
	RET Z		;᫨ ,  
	LD HL,(#5CD7)	;⨥ ⮪
	LD (#5C51),HL
	CALL #26E1	; ⥫ 
	JP #23FC	; ⥪饣 ᥪ  
----------------------------------------------------------------
p #26E1.  ⥫ ⥪饣  䠩 . ன ⮪, 易  䠩     HL  ⥫ .

#26E1	LD BC,#D	;६  #D-  ⥫ 
	ADD HL,BC
	LD E,(HL)	;६  ன  
	INC HL
	LD D,(HL)
	LD BC,#D	;६  #1A-  ⥫ 
	ADD HL,BC
	LD (HL),E	;⠭  ᠭ  
	INC HL
	LD (HL),D
	LD C,#10	;#10- 
	RST #28
	LD DE,#5CDD	;⠭ ⥫ 
	LD BC,#10
	LDIR
	CALL #2443	;⠭ ᪮
	LD C,#C		;#C- 
	RST #28
	LD C,(HL)	;६    ⠫
	CALL #166B	; ⥫ 
	JP #1E3D	; ᥪ  ⥫  

!!! ᫥  ᥪ  ᭮ 뢠 ⮪, 易  䠩 , ⠪   ᪮ 訡 뢠 ⮪ 0.
----------------------------------------------------------------
 #2707.  ப.  HL   砫. ᫥ ᨬ    CHR$ 0,    ᥤ ⮬.

#2707	LD A,(HL) 	;६ ᨬ  ப
	OR A		; CHR$ 0?
	RET Z		;᫨ ,  
	AND #7F		;  7
	RST #10		; ᨬ
	BIT 7,(HL)	; 7 ⠭?
	RET NZ		;᫨ ,  
	INC HL		;६  ᫥饣 ᨬ
	JR #2707	;
----------------------------------------------------------------
 #2713. ࠢ ⥩ .  HL  DE  砫 ࠢ ⥩,   B -  .  ᮢ 䫠 Z 襭,  祭.

#2713	LD A,(DE) 	;ࠢ ⮢  ⥩
	CP (HL)
	RET NZ		;᫨   ᮢ,  
	INC HL		;᫥騥 
	INC DE
	DJNZ #2713	;  
	RET		;
----------------------------------------------------------------
 #271B. ࠡ⪠ 訡 NO DISC  ⠭ TAPE LOADING ERROR.

#271B	LD HL,#27FC	; ᮮ饭 NO DISC
	LD A,6		; 訡 - 6
	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #2723. ࠡ⪠ 訡 DIRECTORY FULL.

#2723	LD HL,#27ED	; ᮮ饭 DIRECTORY FULL
	LD A,4		; 訡 - 4
	JP #1C4A	;ࠡ⪠ 訡
----------------------------------------------------------------
 #272B. ⠭  訡 TAPE LOADING ERROR   ᨪ.

#272B	LD A,#1A 	; 訡 TAPE LOADING ERROR
	JR #2731	;⠭  訡
----------------------------------------------------------------
 #272F. ⠭  訡 INVALID I/O DEVICE   ᨪ. ᯮ ⠪  :
#2731 (⠭  訡   ᨪ;  訡   A).

#272F	LD A,#12	; 訡 INVALID I/O DEVICE
#2731	LD (#5C3A),A	;⠭  訡
	RET		;
----------------------------------------------------------------
 #2735. ⠭  訡 OUT OF MEMORY   ᨪ.

#2735	LD A,3		; 訡 OUT IF RAM
	JR #2731	;⠭  訡
----------------------------------------------------------------
 #2739. ஢ઠ ஦.  ॣ D  䨧᪨  ஦.  砭  #5CD6  ᫮  ᥪ஢  ஦.

#2739	XOR A		;஦ ஢
	LD (#5CD8),A
	LD (#5CD6),A 	;䥪 ᥪ஢   諨
	IN A,(#1F)	;࠭ ﭨ ஫ ᪮
	LD (#5CCD),A
	LD E,D		;ॣ㧪  ஦  E
	PUSH DE		;࠭  ஦
	LD A,E		;饭  ஦  ॣ 
	OUT (#7F),A
	LD A,#18	;樮஢

	CALL #3D9A
	LD A,(#5CCD) 	;६ ﭨ ஫  樨
	AND #80		;᪮  ⮢?
	CALL NZ,#3EA0	;᫨ ,  প  3135098 ⠪⮢
	POP DE		;⠭  ஦
	CALL #32BB	;஢ઠ ஦  ⠡ ᥪ஢  ண ᪠
	LD A,(#5CD6) 	; ᥪ஢ ?
	OR A
	RET Z		;᫨ ,  
	LD A,7		;᪮ 訡
	LD (#5D0F),A
	RET		;
----------------------------------------------------------------
 #2766. 饭 TR-DOS.

#2766	DB "O.K."
	DB 0
#276B	DB "Verify error."
	DB #8D
#2779	DB "BACKUP DISK"
	DB #8D
#2785	DB "Insert Destination disk"
	DB #D
	DB "then press Y"
	DB 0
#27AA	DB "Insert source disk then press Y"
	DB 0
#27CA	DB "*BREAK*"
	DB #8D
#27D2	DB "Out of RAM"
	DB #8D
#27DD	DB "Array not found"
	DB #8D
#27ED	DB "Directory full"
	DB #8D
#27FC	DB "No disk"
	DB #8D
#2804	DB "Stream opened"
	DB #8D
#2812	DB "Not disk file"
	DB #8D
#2820	DB " file exists"
	DB #D
	DB "over write?(Y/N)"
	DB 0
----------------------------------------------------------------
 #283C. 맮 ணࠬ TR-DOS  設 . 室:  ॣ C  , ⠫쭮 ᮣ᭮ ᠭ.  室  ॣ BC  訡.

#283C	PUSH AF		;࠭ ॣ஢
	PUSH BC
	LD (#5D04),DE
	LD (#5D02),HL
	CALL #20F1	;᫨ 㦭,   
	LD A,#FF
	LD (#5D15),A 	;ᮮ饭  
	LD (#5D1F),A 	; 㯨  設 
	POP BC		;⠭ BC  AF
	POP AF
	LD HL,#201	;    ணࠬ  
	LD (#5D1A),HL	;ᨪ
	LD HL,0		;࠭ SP
	ADD HL,SP
	LD (#5D1C),HL
	DEC HL		;१ࢨ஢     
	DEC HL		;訡  ணࠬ ᨪ
	LD SP,HL
	PUSH AF		;࠭ AF
	CALL #21D	;⠭    訡  ᨪ
	LD HL,#288C	;६  砫 ⠡ 
#2869	LD A,(HL)	;६  
	CP C		; ᮢ  ॡ㥬?
	JR NZ,#287F	;᫨ ,  ६  ᫥饩 
	POP AF		;⠭ AF
	INC HL		;६ ,  ஬ 室  ணࠬ
	LD E,(HL)	;६  ணࠬ
	INC HL
	LD D,(HL)
	LD HL,#1D3	;६  ணࠬ 襭
	PUSH HL		;   ⥪
	PUSH DE		;  ⥪  ணࠬ
	LD HL,(#5D02)	;⠭ HL  DE
	LD DE,(#5D04)
	RET		;室  ணࠬ
#287F	CP #FF		;⨣  ⠡?
	JR NZ,#2887	;᫨ ,  ६   ᫥饩 ணࠬ
	POP AF		;⨥ AF  ⥪ (⮣  뫮  )
	JP #1D3		;室  ணࠬ 襭
#2887	INC HL		;ய  ⮢  ணࠬ
	INC HL
	INC HL
	JR #2869	;
#288C	DB 0		;⠡ ஢  ᮢ ணࠬ
	DW #3D98
	DB 1
	DW #3DCB
	DB 2
	DW #3E63
	DB 3
	DW #3F02
	DB 4
	DW #3F06
	DB 5
	DW #1E3D
	DB 6
	DW #1E4D
	DB 7
	DW #28D8
	DB 8
	DW #165C
	DB 9
	DW #1664
	DB #A
	DW #1CF0
	DB #B
	DW #28FB
	DB #C
	DW #28F2
	DB #D
	DW #1D3
	DB #E
	DW #290F
	DB #F
	DW #1D3
	DB #10
	DW #1D3
	DB #11
	DW #1D3
	DB #12
	DW #2926
	DB #13
	DW #28E0
	DB #14
	DW #28E3
	DB #15
	DW #2739
	DB #16
	DW #1FEB
	DB #17
	DW #1FF6
	DB #18
	DW #405
	DB #FF	;ਧ  ⠡
----------------------------------------------------------------
 #28D8. 뤠 ⠫ ᪠  ன.  室  A   ⮪,   㤥 뢮 ⠫.

#28D8	PUSH AF		;࠭  ⮪
	CALL #405	;ன  
	POP AF		;⠭  ⮪
	JP #479		;뢮 ⠫
----------------------------------------------------------------
 #28E0. ६饭 ⥫ 䠩    #5CDD.  HL   ⥫ 䠩  .

#28E0	XOR A		;६頥  (HL)  #5CDD
	JP #28E5	;६饭 ⥫
----------------------------------------------------------------
 #28E3. ६饭 ⥫ 䠩  #5CDD    , ⠭  HL. ᯮ ⠪   #28E5 (६饭 ⥫ 䠩,  HL -  ⥫  ,  A - ࠢ ६饭: 0 -  ,  -  ).

#28E3	LD A,#FF	;६頥  
#28E5	LD DE,#5CDD	;⠭ ண   LDIR
	LD BC,#10	;⠭  ⥫
	OR A		;⠭ ࠢ ६饭
	JR Z,#28EF
	EX DE,HL
#28EF	LDIR		;६饭 ⥫ 䠩
	RET		;
----------------------------------------------------------------
 #28F2.  ணࠬ  ᨪ. ⠭ #5CD1, #5CDD  #5CE5.

#28F2	CALL #405	;ன  
	CALL #1AC4	;஢ઠ ᢮   ⠫
	JP #1B27	; ணࠬ
----------------------------------------------------------------
 #28FB.  䠩.   ७   #5CDD,   DE, 砫  HL.

#28FB	LD (#5CD7),HL	;⠭ 砫
	LD (#5CD9),DE	;⠭ ⢨⥫쭮  䠩
	LD (#5CDB),DE	;⠭  䠩  ⠫
	CALL #405	;ன  
	CALL #1AC4	;஢ઠ  ᢮   ⠫
	JP #1B53	; 䠩
----------------------------------------------------------------
 #290F. 㧪/䨪 䠩  ⠪ ⥭/ ᥪ 䠩. ⠭ #5CDD, #5CE5, #5CD7 (⮫쪮  ⥭/ ᥪ)  #5CF9;  A  䫠 㧪 ᮣ᭮ ᠭ  #E  HL  DE -    ( ᨬ  ).

#290F	OR A
	LD (#5CD6),A 	;⠭ 䫠 㧪
	LD (#5CD9),HL	;⠭  㧪
	LD (#5CDB),DE	;⠭  㧪
	CALL #1CB3	; 䠩
	CALL #18A4	;᫨ 䠩 ,  ⥭  ⥫
	CALL #18AB	;ࠡ⪠ ࠬ஢ 㧪
	JP #1921	;㧪 䠩
----------------------------------------------------------------
 #2926. ࠭ 䠩. ⠭ #5CDD  #5CE5.  室  ⠭ #5D07  #5D08.

#2926	CALL #405	;ன  
	CALL #1CB3	; 䠩
	JP #7A0		;࠭ 
----------------------------------------------------------------
 #292F. ஢ઠ  䠩.    ⥪   ⠭ #5D06. ᫨ 䠩 ,   ॣ. C   #5D1E  㤥 祭 䫠 Z,  䫠 Z 㤥 襭,   C 㤥 #FF.

#292F	CALL #1C57	;⠭  䠩
	CALL #405	;ன  
	JP #1CB3	; 䠩  
----------------------------------------------------------------
 #2938.   䠩  ७.  HL ⠭    ७.

#2938	PUSH BC		;࠭ BC
	LD B,8		;  䠩 8 ᨬ
#293B	LD A,(HL) 	;६ ᨬ   䠩
	RST #10		; 
	INC HL		; ᫥饣 ᨬ
	DJNZ #293B	;  
	LD A,"<"	; "<"
	RST #10
	LD A,(HL) 	; ७
	RST #10
	LD A,">"	; ">"
	RST #10
	POP BC		;⠭ BC
	RET		;
----------------------------------------------------------------
 #294A.  , ᫨  . ⠭ #5D0C.

#294A	PUSH HL		;࠭ ॣ஢
	PUSH DE
	PUSH BC
	PUSH AF
	LD HL,#5D0C	; ?
	LD A,(HL)
	OR A
	JR Z,#2992	;᫨ ,  ⠭ ॣ஢  
	PUSH HL		;࠭  䫠  
	LD BC,#101	; 
	PUSH BC		;࠭ 
	CALL #19FD	;஢ઠ  뤥 
	POP BC		;⠭  
	POP HL		;⠭   䫠
	LD (HL),0	; 
	LD HL,#5D25	;砫 
	CALL #1E32	;뤥 
	LD HL,(#5D11)	; ப ६⨫  #101 ⮢
	LD BC,#101
	ADD HL,BC
	JR #298F	;⠭    ப  
----------------------------------------------------------------
 #2970.  , ᫨  . ⠭ #5D0C. ᯮ ⠪  ᮢ #298F  #2992 ணࠬ #294A.

#2970	PUSH HL		;࠭ ॣ஢
	PUSH DE
	PUSH BC
	PUSH AF
	LD HL,#5D0C	; ?
	LD A,(HL)
	OR A
	JR NZ,#2992	;᫨ ,  
	LD (HL),#FF	; 
	LD HL,#5D25	;砫 
	LD BC,#101	; 
	CALL #1E2E	;㤠  
	OR A		; ப ६⨫  #101 ⮢
	LD BC,#101	;   
	LD HL,(#5D11)
	SBC HL,BC
#298F	LD (#5D11),HL
#2992	POP AF		;⠭ ॣ஢
	POP BC
	POP DE
	POP HL
	RET		;
----------------------------------------------------------------
 #2997. 믮  "40". ⠭ #5D11  #5C3B. ᯮ ⠪  :
#2998 (믮  ⠭ ⨯ ᪮; ⠭   #2997   A ⨯ ᪮).

#2997	XOR A		;᪮ 40-஦ ஭

訡!!! -, 祬 ᪮ ஭?; -,  ஢  ᯮ짮 ᪮  ॡ㥬 ०.

#2998	LD (#5CD7),A	;࠭ ⨯ ᪮
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #42B	;஢ઠ ண ᨬ ப
	JP Z,#1D1A	;᫨  ENTER,  *ERROR*
	CALL #3E11	;६  祩  ⨯ ᪮
	LD A,(#5CD7)	;⠭ ⨯ ᪮
	LD (HL),A
	JP #3E1		;ᮮ饭 O.K.
----------------------------------------------------------------
 #29AE. 믮  "80". ⠭ #5D11  #5C3B.

#29AE	LD A,#80	;᪮ 80-஦ ஭

訡!!! -, 祬 ᪮ ஭?; -,  ஢  ᯮ짮 ᪮  ॡ㥬 ०.

	JP #2998	;믮 
----------------------------------------------------------------
 #29B2.  ᮮ饭 TR-DOS.

#29B2	DB #D
	DB "*ERROR*"
	DB #8D
#29BB	DB #D
	DB "No space"
	DB #8D
#29C5	DB #D
	DB "File exists"
	DB #8D
#29D2	DB " Free"
	DB #8D
#29D8	DB #D
	DB "Read onl"
	DB #F9
#29E2	DB #D
	DB "Disc erro"
	DB #F2
#29ED	DB #D
	DB "Rec. O/"
	DB #C6
#29F7	DB "Title:"
	DB #A0
#29FE	DB #D
	DB "Retry,Abort,Ignore?"
	DB 0
#2A13	DB #D
	DB "Trk"
	DB #A0
#2A18	DB " Sec"
	DB #A0
#2A1D	DB " Del. File"
	DB #8D
#2A28	DB #D
	DB "No"
#2A2B	DB " File(S)
	DB #8D
----------------------------------------------------------------
 #2A35. ७ ணࠬ । ⥪饣    #4080.

#2A35	LD HL,#2A41	; ணࠬ । ⥪饣 
	LD DE,#4080	;   
	LD BC,#20	;  - #20 
	LDIR		;७ ணࠬ
	RET		;
----------------------------------------------------------------
 #2A41. ணࠬ । ⥪饣 . ⠭ #5C01  砥  48- ᨪ.  ࠡ ணࠬ   ६饭    .  ᯮ짮 ⠪  :
#2A53  אַ 뢮   .

#2A41	LD A,(#3B5)	;६   
	CP #F3		; #F3?
	LD A,#10	;᫨ ,    48- ᨪ
	JR Z,#2A4B
	XOR A		;   128- ᨪ
#2A4B	LD (#5C01),A	;⠭  
	LD BC,#7FFD 	;  䨣樨 ⥬
	LD A,#10	; 48- ᨪ
#2A53	OUT (C),A	;⠭ 
	RET		;
----------------------------------------------------------------
 #2A56.    .

#2A56	PUSH AF		;࠭ ॣ஢
	PUSH BC
	PUSH DE
	PUSH HL
	PUSH IX
	PUSH IY
	EXX
	PUSH BC
	PUSH DE
	PUSH HL
	EX AF,AF'
	PUSH AF
	LD A,I
	PUSH AF
	LD A,R
	PUSH AF
	LD HL,0
	ADD HL,SP		;࠭ SP
	PUSH HL
	LD A,#3C		;롮 ᪮ A  孥 ஭ ᪠
	OUT (#FF),A
	LD A,#3F		;⠭ ॣ I
	LD I,A
	IN A,(#1F)		;६ ﭨ ஫
	AND #80
	RRCA
	RRCA
	RRCA
	LD (#5C01),A 	;࠭ 

訡!!!   .

	CALL #2F65	;⠭
	CALL #3EA0	;প  3135098 ⠪⮢
	CALL #3EA0	; ࠧ
	LD DE,#A	;ᥪ #A
	LD HL,#4000	;뢠   #4000
	PUSH HL		;࠭ ᫠ #4000
	CALL #2D73	; ᥪ
	LD HL,#4100	;뢠   #4100
	LD DE,#B	;ᥪ #B
	CALL #2D73	; ᥪ
	POP HL		;⠭ ᫠ #4000
	PUSH HL		; ᭮ ࠭
	LD DE,8		;ᥪ 8
	CALL #2F1B	;㧪 ᥪ
	LD HL,#40E3	;६ ⨯ ᪠
	LD A,(HL)
	LD (#5C00),A 	;࠭塞 

訡!!!   .

	INC HL		;६ ⢮ 䠩  ᪥
	LD A,(HL)
	INC (HL)	;ᠫ  1 䠩

!!!  ஢ 稥 ᢮   ⠫ ᪠.

	INC HL		;६ ⢮ ᢮   ᪥
	LD E,(HL)
	INC HL
	LD D,(HL)
	OR A		; 䫠 C
	EX DE,HL
	LD DE,#C0	;㬥訬 ⢮   ᪥  #C0
	SBC HL,DE	;ᥪ
	LD (#40E5),HL	;⠭  ⢠ ᢮   ᪥
	LD HL,#4000	;뢠   #4000
	LD DE,8		;ᥪ 8
	CALL #2D73	; ᥪ
	POP HL		;⠭  #4000
	LD DE,(#40E1)	;६  ᢮   ᪥
	PUSH DE		;࠭塞 
	LD DE,#A	;ᥪ #A
	CALL #2F1B	;㧪 ᥪ
	POP DE		;⠭  ᢮   ᪥
	CALL #2D4C	; ᥪ஢
	PUSH DE		;࠭   ᢮   ᪥

	LD A,#3C	;롮 ᪮ A  孥 ஭ ᪠
	OUT (#FF),A
	CALL #2F65	;⠭
	LD HL,#4000	;㧨   #4000
	LD DE,8		;ᥪ 8
	LD B,1
	CALL #2F1B	;㧪 ᥪ
	POP DE		;⠭   ᢮   ᪥
	LD HL,(#40E1)	;६   ᢮   ᪥
	LD (#40E1),DE	;⠭  
	PUSH HL		;࠭ ண 
	LD HL,#4000		;뢠   #4000
	LD DE,8		;ᥪ 8
	LD B,1
	CALL #2D73	; ᥪ
	LD A,(#40E4) 	;६  ᠭ 䠩
	DEC A
	CALL #2CE5	;㧪 ᥪ   ⥫
	LD (HL),"@"	; 䠩 - "@"
	INC HL
	LD B,7		;7 ஡
#2B09	LD (HL)," "
	INC HL
	DJNZ #2B09
	LD (HL),"C"	;७ 䠩 - "C"
	POP DE		;⠭ ண  ᢮   ᪥
	POP BC		; 祭 SP ᫥ ࠭ ॣ஢
	INC HL		;⠭ 祭 SP ᫥ ࠭
	LD (HL),C	;   㧪 䠩
	INC HL
	LD (HL),B
	INC HL		;  䠩 ய᪠
	INC HL
	INC HL
	LD (HL),#C0	; 䠩 - #C0 ᥪ
	INC HL
	LD (HL),E	;⠭  䠩  ᪥
	INC HL
	LD (HL),D
	LD HL,#4000	;뢠   #4000
	LD DE,0
	IN A,(#5F)	;६  ᥪ,  ஬ 室
	DEC A		;⥫ 䠩
	LD E,A
	LD B,1
	CALL #2D73	; ᥪ
	LD HL,0		;࠭ SP
	ADD HL,SP
	LD (#4140),SP
	LD SP,#41FF	;७ ⥪  ࠭
	CALL #2A35	;७  ࠭ ணࠬ । ⥪饣 
	LD HL,#C000	; ࠭ 
	XOR A		;砫 ᫥ ஫쭮 㬬 ࠭
#2B3F	ADD A,(HL)	;ਡ  㬬 । 
	INC HL		; ᫥饣 
	LD B,A		;࠭ ஫쭮 㬬
	LD A,H		;६ 訩  ⥪饣   ࠭
	OR A		; 0?
	LD A,B		;⠭ ஫쭮 㬬
	JR NZ,#2B3F	;᫨ ,  
	LD HL,#4100	;࠭ ஫쭮 㬬 ⥪饩
	LD (HL),A	;࠭
	PUSH HL		;࠭  
	LD HL,#2B58	;  - #2B58
	PUSH HL		;饭   ⥪
	LD HL,#3D2F	; ४⥫   TR-DOS
	PUSH HL		;饭   ⥪
	DI		; 뢠
	JP #4080	;। ⥪饣 
#2B58	POP HL		;⠭  ஫쭮 㬬 ⥪饩 ࠭
	LD BC,#7FFD	;  䨣樨 ⥬
	LD A,#AA	;஫ 
	LD (#4130),A 	;饭   ࠭
	LD D,5		;  5
	LD A,(#5C01) 	;롮 
	OR D
	LD D,A
	OUT (C),A	;롮  
	LD A,(#C130) 	;६  ஫쭮 
	CP #AA		; #AA?
	JP NZ,#2C1B	;᫨ ,  室
	LD A,D		; 0
	AND #F8
	LD D,A
	INC HL		; ६   ⥪饣  
	LD B,8		;ᥣ 8 ࠭
	LD (HL),D	;⠭ 
	OUT (C),D	;롮 
	XOR A		;砫 ᫥ ஫쭮 㬬 ࠭
	LD HL,#C000	; ࠭ 
#2B80	ADD A,(HL)	;ਡ  㬬 । 
	INC HL		; ᫥饣 
	LD E,A		;࠭ ஫쭮 㬬
	LD A,H		;६ 訩  ⥪饣   ࠭
	OR A		; 0?
	LD A,E		;⠭ ஫쭮 㬬
	JR NZ,#2B80	;᫨ ,  
	LD HL,#4100	; ६  ஫쭮 㬬 ⥪饩 ࠭
	CP (HL)		;㬬 ᮢ?
	INC HL		; ६   ⥪饣  
	JR Z,#2B93	;᫨ ,  
	INC D		;᫥ ࠭ 
	DJNZ #2B79	;  
	DEC D		;६  ⥪饣  
#2B93	LD B,8		;ᥣ 8 ࠭
#2B95	PUSH BC		;࠭ ᫠ ࠭
	CALL #2C37	; ࠭
	POP BC		;⠭ ᫠ ࠭
	DJNZ #2B95	;  
	LD C,0		;஦ 0
	CALL #2F3A	;樮஢
	CALL #2D2A	;㧪 ᥪ 8   #4000
	LD A,(#40E4) 	;६ ⢮ 䠩  ᪥
	LD (#4102),A 	;࠭塞 
	INC A		;ᠫ  1 䠩
	LD (#40E4),A 	;⠭  ⢠ 䠩
	LD HL,(#40E5)	;६ ⢮ ᢮   ᪥
	LD DE,1		;㬥蠥   1 ᥪ
	SBC HL,DE
	LD (#40E5),HL	;⠭  ⢠ ᢮   ᪥
	RET C		;᫨   ᪥ ,  

!!! 㤠 ?   設 ⥪ 室 ࠭ ॣ R  F.

	LD HL,(#40E1)	;६  ᢮   ᪥
	LD (#411E),HL	;࠭塞 
	CALL #2D1E	;⠭  䠩
	LD A,"8"	;쬮 䠩
	LD (#2D89),A
	LD A,1		;  - 1 ᥪ
	LD (#411D),A
	LD HL,#4100	; 㧪 - #4100
	LD (#4119),HL
	LD HL,#100	; - #100 ⮢
	LD (#411B),HL
	LD DE,(#40E1)	;६  ᢮   ᪥
	CALL #2F65	;⠭
	LD C,D		;६  ஦
	CALL #2F3A	;樮஢
	LD HL,#4100	;뢠   #4100
	LD B,1		;1 ᥪ
	CALL #2D58	; ᥪ
	LD (#40E1),DE	;⠭   ᢮   ᪥
	LD C,0		;஦ 0
	CALL #2F3A	;樮஢
	CALL #2D34	; ᥪ 8   #4000
	LD A,(#4102) 	;६  ᠭ 䠩
	CALL #2CE5	;㧪 ᥪ   ⥫
	LD DE,#4110	; ⥫ 䠩
	LD BC,#10
	EX DE,HL
	LDIR
	IN A,(#5F)	;६  㦥 ᥪ
	DEC A
	LD E,A
	LD D,0
	LD HL,#4000	;뢠   #4000
	CALL #2D73	; ᥪ
	LD BC,#7FFD	;  䨣樨 ⥬
	LD A,(#4101) 	;६  ⥪饣  
	OUT (C),A	;⠭ 
#2C1B	LD HL,(#4140)	;⠭ SP
	LD SP,HL
	LD HL,#4000	;㦠   #4000
	LD DE,#A	;ᥪ #A
	CALL #2F1B	;㧪 ᥪ
	LD HL,#4100	;㦠   #4100
	LD DE,#B	;ᥪ #B
	CALL #2F1B	;㧪 ᥪ
	LD A,#3C	;饭  ⥪ ᫠ #3C
	PUSH AF
	JP #2EBC	;⠭ ॣ஢  
----------------------------------------------------------------
 #2C37.  ࠭ , ᫨   .   B  ࠭  1  ⠭ #5C00  #4101.

#2C37	LD A,B		;६  ࠭
	DEC A
	LD (#4103),A	;⠭ 
	LD B,A		;࠭ 
	LD A,(#4101)	;६  ⥪饩 ࠭
	AND 7
	CP B		;뢠 ?
	RET Z		;᫨ ,  
	LD A,2		;뢠 ࠭ 2?
	CP B
	RET Z		;᫨ ,  
	LD A,(#4101)	;६  ⥪饣  
	AND 8		;⥪騩 ࠭ 0?
	JR Z,#2C55	;᫨ ,   뢠 ࠭ 5
	LD A,B		;뢠 ࠭ 7?
	CP 7
	RET Z		;᫨ ,  
	JR #2C59	; ࠭
#2C55	LD A,B		;뢠 ࠭ 5?
	CP 5
	RET Z		;᫨ ,  
#2C59	CALL #2C5D	; ࠭
	RET		;
----------------------------------------------------------------
 #2C5D.  ࠭ , ᫨   .   B  ࠭  ⠭ #5C00  #4101.

#2C5D	LD HL,#4101	;६  ⥪饣  
	LD A,(HL)
	AND #F8		;⠢塞 ࠭  
	LD C,A
	LD A,B		;᫥    䨣樨
	OR C		;⥬
	PUSH BC		;࠭  ⥪饣  
	LD BC,#5CD5	;  䨣樨
	OUT (C),A	;⠭  
	POP BC		;⠭  ⥪饣 
	LD HL,#C000	; ࠭
#2C70	LD A,(HL)	;६   ࠭
	OR A		; 0?
	JR NZ,#2C7A	;᫨ ,   ࠭
	INC HL		;᫥騩 
	LD A,H		; ࠭?
	OR A
	JR NZ,#2C70	;᫨ ,  
	RET		;
#2C7A	CALL #2C7E 	; ࠭
	RET		;
----------------------------------------------------------------
 #2C7E.  ࠭ . ⠭ #4103  #5C00.

#2C7E	LD C,0		;஦ 0
	CALL #2F3A	;樮஢
	CALL #2D2A	;㧪 ᥪ 8   #4000
	LD A,(#40E4) 	;६ ⢮ 䠩  ᪥
	LD (#4102),A 	;࠭塞 
	INC A		;ᠫ 1 䠩
	LD (#40E4),A
	LD HL,(#40E5)	;६ ⢮ ᢮   ᪥
	LD DE,#40	;㬥蠥   #40 ᥪ஢
	SBC HL,DE
	LD (#40E5),HL	;⠭  ⢠ ᢮ 
	RET C		;᫨  ,  
	LD HL,(#40E1)	;६  ᢮   ᪥
	LD (#411E),HL	;⠭  䠩  ᪥
	CALL #2D1E	;⠭  䠩
	LD A,#40	;ࠧ 䠩 - #40 ᥪ஢
	LD (#411D),A
	LD HL,#C000	; 㧪 - #C000
	LD (#4119),HL
	LD HL,#4000	; - #4000 
	LD (#411B),HL
	LD DE,(#40E1)	;६  ᢮   ᪥
	CALL #2D3E	; 䠩
	LD (#40E1),DE	;⠭   ᢮ 
	LD C,0		;஦ 0
	CALL #2F3A	;樮஢
	CALL #2D34	; ᥪ 8   #4000
	LD A,(#4102) 	;⠭  䠩
	CALL #2CE5	;㧪 ᥪ  ⥫ 䠩
	LD DE,#4110	; ⥫ 䠩
	LD BC,#10
	EX DE,HL
	LDIR
	IN A,(#5F)	;६  㦥 ᥪ
	DEC A
	LD E,A
	LD D,0
	LD HL,#4000	;뢠   #4000
	CALL #2D73	; ᥪ
	RET		;
----------------------------------------------------------------
 #2CE5. 㧪   #4000  䠩   A.  室  HL 㤥  ⥫ 䠩.

#2CE5	LD C,A		;࠭  䠩
	AND #F0		;᫥  ᥪ  ⥫ 䠩
	RRCA
	RRCA
	RRCA
	RRCA
	LD B,A
	PUSH BC
	LD E,B
	LD D,0
	LD HL,#4000	;㦠   #4000
	PUSH DE		;࠭  ᥪ
	CALL #2F1B 	;㧪 ᥪ
	POP DE		;⠭  ᥪ
	POP BC		;  䠩
	LD B,0
	LD A,C		;᫥ ⭮⥫쭮  ⥫
	AND #F		;䠩  ᥪ
	RLCA
	RLCA
	RLCA
	RLCA
	LD HL,#4000	;᫥ ᮫⭮ 
	ADD A,L
	LD L,A
	RET		;
----------------------------------------------------------------
 #2D09. 饭   ७ 䠩 "@"CODE   #4110.

#2D09	LD HL,#4110 	;  䠩
	LD B,9		;  - 9 ⮢
#2D0E	LD (HL)," " 	;⪠ 
	INC HL
	DJNZ #2D0E
	LD A,"@"	; 䠩 - "@"
	LD (#2D88),A
	LD A,"C"	;७ 䠩 - "C"
	LD (#4118),A
	RET		;
----------------------------------------------------------------
 #2D1E. ⠭  䠩 ࠭. ⠭ #4103.  䠩 㤥 室   #4110.

#2D1E	CALL #2D09	;⠭   䠩
	LD A,(#4103)	;६  ࠭
	ADD A,"0"	;८ࠧ   ᨬ
	LD (#4111),A	;⠭  ࠭
	RET		;
----------------------------------------------------------------
 #2D2A. 㧪 ᥪ 8   #4000. 樮 .

#2D2A	LD HL,#4000	;㧨   #4000
	LD DE,8		;ᥪ 8
	CALL #2F1B 	;㧪 ᥪ
	RET		;
----------------------------------------------------------------
 #2D34.  ᥪ 8   #4000. 樮 .

#2D34	LD HL,#4000	;뢠   #4000
	LD DE,8		;ᥪ 8
	CALL #2D73 	; ᥪ
	RET		;
----------------------------------------------------------------
 #2D3E.  #40- ᥪ஢   #C000. ⠭   #2D4C.

#2D3E	CALL #2F65 	;⠭
	LD C,D		;६  ࢮ ஦
	CALL #2F3A 	;樮஢
	LD HL,#C000	;뢠   #C000
	LD B,#40	;#40 ᥪ஢
	JR #2D58	; ᥪ஢  
----------------------------------------------------------------
 #2D4C.  #C0 ᥪ஢   #4000  ணࠬ MAGIC.  DE    ᪥  ⠭ #5C00. ᯮ ⠪  :
#2D58 ( ᥪ஢;  HL    ,  DE -   ᪥,  B ? ⢮ ᥪ஢, ⠭ #5C00  ᯮ樮    ஦).

#2D4C	CALL #2F65 	;⠭
	LD C,D		;६  ࢮ ஦
	CALL #2F3A 	;樮஢
	LD HL,#4000	;뢠   #4000
	LD B,#C0	;#C0 ᥪ஢
#2D58	PUSH BC		;࠭ ⢠ ᥪ஢
	PUSH DE		;   ᪥
	CALL #2D73 	; ᥪ
	LD DE,#100	; ᫥饣 ᥪ  
	ADD HL,DE
	POP DE		;⠭   ᪥
	INC E		;᫥騩 ᥪ
	LD A,E		; ஦?
	CP #10
	JR NZ,#2D6F	;᫨ , 
	LD E,0		;⥪騩 ᥪ 0,
	INC D		;᫥ ஦,
	LD C,D
	CALL #2F3A 	;樮஢
	POP BC		;⠭ ⢠ ᥪ஢
	DJNZ #2D58 	;  
	RET		;
----------------------------------------------------------------
 #2D73.  ᥪ   GO TO.  HL   ,  E -  ᥪ.

#2D73	LD A,E		;⠭  ᥪ
	OUT (#5F),A
	PUSH HL		;࠭  
	LD D,#14	;20 ⮪
	PUSH DE		;࠭ ᫠ ⮪
#2D7B	DI		; 뢠
	LD C,#7F	; ॣ  ஫
	LD A,#A0	;  ᥪ
	OUT (#1F),A
	CALL #3FCA 	; ⮢
	POP DE		;⠭ ⢠ ⮪
	POP HL		;   ᥪ
	IN A,(#1F)	;६ ﭨ ஫
	AND #7F		;  浪?
	RET Z		;᫨ ,  
	DEC D		;᫥ ⪠
	PUSH HL		;࠭   ᥪ
	PUSH DE		; ⢠ ⮪
	JR NZ,#2D7B	;᫨ ⪨  稫,  

!!!   訡!!!    १    㤥, ᪮॥ ᥣ, ᯮ祭. ஡ ᭥    ZX-P #5F/4  ࠭ #23.

	HALT		;⠭ 
----------------------------------------------------------------
 #2D92. 㧪 ᥪ஢. ⠭ #5CE6, #5CEB  #5CEA.

#2D92	LD HL,(#5CE6)	;६  㧪
	LD DE,(#5CEB)	;६  ᥪ஢  ᪥
	LD A,(#5CEA) 	;६ ⢮ ᥪ஢
	LD B,A
	CALL #1E3D	;㧪 ᥪ஢
	RET		;
----------------------------------------------------------------
 #2DA1. 믮  GO TO. ⠭ #5D11  #5C3B.  ᯮ짮 ⠪   #2E27 (GO TO  48; ࠬ,    #2DA1). ᯮ ⠪   #2EBC    ணࠬ ࠡ⪨ ᪨㥬 뢠.

#2DA1	CALL #1DD9	;ਥ  䠩  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #102E	;ਥ ७ 䠩

祬  㦭?  MAGIC 뢠 䠩 ⮫쪮  ७ C.

	CALL #1C57	;⠭  䠩
	LD (#4020),BC	;࠭   䠩
	LD A,C		; ࠢ 8 ᨬ?
	CP 8
	JR NC,#2DD2	;᫨ ,  ࠡ  48
	CALL #405	;ன  
	CALL #1CB3	; 䠩
	JP NZ,#3D9	;᫨  諨,  NO FILE
	LD HL,#5CDD	;६   䠩
	LD BC,(#4020)	;  

祬  ࠭  ?    䠩  ࠭   㣮 .

	ADD HL,BC	;塞    䠩
	LD (HL),"8"	;ਡ "8"   䠩
	PUSH HL		;࠭  ⮣ ᨬ
	CALL #1CB3	; 䠩
	POP HL		;⠭ ᫥ ᨬ  䠩
	JR Z,#2DD8	;᫨ 䠩 襫,  㧪 ࠭
	LD (HL)," "	;⠭   䠩
#2DD2	CALL #1CB3	; 䠩
	JP #2E33	;㧪 䠩
#2DD8	CALL #165D	;⥭ ⥫ 䠩
	CALL #2D92	;㧪 䠩
	LD SP,#40FF	;७ ⥪
	LD B,8		;ᥣ 8 ࠭
#2DE3	PUSH BC		;࠭  䠩 ࠭
	LD A,B
	LD BC,#7FFD	;  䨣樨 ⥬
	DEC A		;࠭ ⠥  0
	PUSH AF		;࠭  ࠭
	OR #10		;࠭ 0,  1
	OUT (C),A	;⠭ ࠭
	POP AF		;⠭  ࠭
	ADD A,"0"	;᫥ ᫥ ᨬ  䠩 ࠭
	LD HL,#5CDD	;᫥   ⮣ ᨬ
	LD BC,(#4020)
	ADD HL,BC
	LD (HL),A	;⠭ ᫥ ᨬ  䠩 ࠭
	CALL #1CB3	; 䠩
	JR NZ,#2E05	;᫨  諨,  㧪 ᫥饩 ࠭
	CALL #165D	;⥭ ⥫ 䠩
	CALL #2D92	;㧪 䠩

!!!  ⢥ A  p "DISC ERROR. RETRY,ABORT,IGNORE?",  ந  㣮, ᫨ 祭 ERR_SP  #C000, ⠪   ⥪ 㤥  㦠 䠩  室  㣮 ࠭.

#2E05	POP BC		;⠭  䠩 ࠭
	DJNZ #2DE3	;  
	LD A," "	;⠭   䠩
	LD HL,#5CDD
	LD BC,(#4020)
	ADD HL,BC
	LD (HL),A
	CALL #1CB3	; 䠩
	CALL #165D	;⥭ ⥫ 䠩
	PUSH BC		;࠭  䠩
	PUSH AF		; AF
	LD BC,#7FFD	;  䨣樨
	LD A,(#4101) 	;६  祭    䠩 ( 쬮 䠩)
	OUT (C),A	;⠭ ࠡ祣 ﭨ 
	POP AF		;⠭  䠩  AF
	POP BC
	JR #2E39	;㧪  䠩
#2E27	CALL #1DDF	;ਥ  䠩  ⥪ 
	CALL #1D75	;᫨  ஢ઠ  ᨭ⠪,  
	CALL #102E	;ਥ ७ 䠩
	CALL #292F	; 䠩
#2E33	JP NZ,#3D9	;᫨   ,  NO FILE
	CALL #165D	;⥭  ⥫
#2E39	LD A,(#5CDD) 	;६  ᨬ  䠩
	CP "$"		; "$"?
	DI		; 뢠
	JR NZ,#2E43	;᫨ , 
	IM 2		;⠭ ண ० 뢠
#2E43	LD SP,#40F0	;७ ⥪
	CALL #3E11	;६ ⨯ ᪮
	LD (#4010),A 	;࠭塞 
	LD A,(#5D16) 	;࠭  ⥬ ॣ,
	LD (#4011),A
	LD HL,(#5CE6)	; ⥪  ணࠬ,
	PUSH HL
	LD DE,(#5CEB)	;  䠩  ᪥
	PUSH DE
	INC E		; ᥪ 䠩   㦠
	LD A,E
	CP #10
	JR NZ,#2E64
	LD E,0
	INC D
#2E64	LD C,D		;६ ᪨  ஦
	CALL #2F07	;롮 孥 ஭ ᪠
	LD A,(#4010) 	;६ ० ᪮
	AND 2		;᪮ ஭?
	CALL NZ,#2F0F	;᫨ ,  롮 ஭ ᪠
	LD A,C		;६ 䨧᪨  ஦
	CALL #2F50	;樮஢
	LD HL,#4100	;㦠   #4100
	LD B,#BF	;#BF ᥪ஢
#2E79	PUSH BC		;࠭ ⢠ ᥪ஢
	PUSH DE		;  ⥪襣 ᥪ  ᪥
	CALL #2F1B	;㧪 ᥪ
	LD DE,#100	;᫥  㧪 ᫥饣 ᥪ
	ADD HL,DE
	POP DE		;⠭  ⥪襣 ᥪ  ᪥
	INC E		;᫥騩 ᥪ
	LD A,E		; ஦?
	CP #10
	JR NZ,#2E9C	;᫨ ,  த 㧪
	LD E,0		;ᥪ 0
	INC D		;᫥ ஦
	LD C,D
	CALL #2F07	;樮஢ (ᬮ )
	LD A,(#4010)
	AND 2
	CALL NZ,#2F0F
	LD A,C
	CALL #2F50
#2E9C	POP BC		;⠭ ⢠ ᥪ஢
	DJNZ #2E79	;  
	POP DE		;⠭  䠩  ᪥
	POP HL		;  ⥪
	LD SP,HL	;⠭ ⥪
	LD A,(#4011) 	;६  ⥬ ॣ
	PUSH AF		;࠭塞 
	LD C,D		;樮஢ (ᬮ )
	CALL #2F07
	LD A,(#4010)
	AND 2
	CALL NZ,#2F0F
	LD A,C
	CALL #2F50
	LD HL,#4000	; 㧪 ࢮ ᥪ 䠩
	CALL #2F1B	;㧪 ᥪ
#2EBC	POP AF		;⠭  ⥬ ॣ
	EX AF,AF'	; ᭮ ࠭
	POP AF		;⠭ ॣ஢ R  I
	LD R,A
	POP AF
	LD I,A
	DI		; 뢠
	LD A,#FF	;⠭ 䫠 뢠
	JP PO,#2ECC
	LD A,0
#2ECC	LD (#5C00),A
	POP AF		;⠭ ॣ஢
	POP HL
	POP DE
	POP BC
	EXX
	EX AF,AF'
	POP IY
	POP IX
	POP HL
	POP DE
	POP BC
	LD A,(#5C48) 	;⠭ 梥 
	AND #38
	RRA
	RRA
	RRA
	OUT (#FE),A
	LD A,(#5B08) 	;६   #5B08
	CP #EE		;⠬ #EE?
	JR NZ,#2EF7	;᫨ ,  ⥬ ६ 128 

訡!!! ᫮ #EE   #5B08    祬  p.

	PUSH BC		;࠭ BC
	LD BC,#7FFD	;  䨣樨
	LD A,(#5B5C) 	;६ 祭 ६ BANK_M
	OUT (C),A	;⠭ ࠡ祩 ࠭
	POP BC		;⠭ BC
#2EF7	LD A,(#5C00) 	;६ 䫠 뢠
	OR A		;뢠 ࠧ?
	LD A,#C9	;⠭ ४⥫   ᨪ
	LD (#5C00),A
	JR NZ,#2F03	;᫨  #5C00  0, 
	EI		;ࠧ襭 뢠
	POP AF		;⠭ AF
	JP #5C00	; ணࠬ
----------------------------------------------------------------
 #2F07. 롮 孥 ஭ ᪠   GO TO. ⠭ #4011.  ᯮ짮 ⠪  :
#2F0C  אַ 뢮   #FF.

#2F07	LD A,(#4011)	;६  ⥬ ॣ
	OR #3C		;஭ - 
#2F0C	OUT (#FF),A 	;㧪 ⥬ ॣ
	RET		;
----------------------------------------------------------------
 #2F0F. 롮 孥 ஭ ᪠   GO TO. 室: ⠭ #4011,   C ᪨  ஦  롥  ஭ ᪠. 室:  C 㤥 䨧᪨  ஦  ࠭ ஭ ᪠.

#2F0F	LD A,C		;  ஦  2
	RRA
	LD C,A
	RET NC		;᫨ ஦ ⭠,  
	LD A,(#4011)	;६  ⥬ ॣ
	AND #6F		;஭ - 
	JR #2F0C	;㧪 ⥬ ॣ  
----------------------------------------------------------------
p #2F1B. ⥭ ᥪ   GO TO.  HL   㧪,  E -  ᥪ.

#2F1B	LD A,E		;⠭  ᥪ
	OUT (#5F),A
	PUSH HL		;࠭  㧪
	LD D,#14	;20 ⮪
	PUSH DE		;࠭ ᫠ ⮪
#2F23	DI		; 뢠
	LD C,#7F	; ॣ  ஫
	LD A,#80	; ⥭ ᥪ
	OUT (#1F),A
	CALL #3FE5 	;⥭ ⮢
	POP DE		;⠭ ⢠ ⮪
	POP HL		;  㧪 ᥪ
	IN A,(#1F)	;६ ﭨ ஫
	AND #7F		;  浪?
	RET Z		;᫨ ,  
	DEC D		;᫥ ⪠
	PUSH HL		;࠭  㧪 ᥪ
	PUSH DE		; ⢠ ⮪
	JR NZ,#2F23	;᫨ ⪨  稫,  
	HALT		;⠭ 
----------------------------------------------------------------
 #2F3A. 樮஢  ணࠬ MAGIC. ᪨  ஦   C  ⠭ #5C00. ᯮ ⠪  ᮢ:
#2F50 - 樮஢   GO TO.   A 䨧᪨  ஦.
#2F57 - 뤠    INTRQ.    A.

#2F3A	LD A,#3C	;롮 孥 ஭ ᪠
	OUT (#FF),A
	LD A,(#5C00)	;६ ⨯ ᪮
	AND 8		; ஭?
	JR NZ,#2F4F 	;᫨ ,  樮஢
	LD A,C		;  ஦  2
	OR A
	RRA
	LD C,A
	JR NC,#2F4F 	;᫨ ஦ ⭠,  樮஢
	LD A,#2C	;롮  ஭ ᪠
	OUT (#FF),A
#2F4F	LD A,C
#2F50	OUT (#7F),A 	;㧪  ஦  ॣ 
	CALL #3DFD	;প  725779 ⠪⮢
	LD A,#18	; 樮஢
#2F57	OUT (#1F),A
#2F59	IN A,(#FF)	; ᨣ INTRQ
	AND #80
	JR Z,#2F59
	PUSH BC		;࠭ BC
	CALL #3DFD	;প  725779 ⠪⮢
	POP BC		;⠭ BC
	RET		;
----------------------------------------------------------------
 #2F65. ⠭  ணࠬ MAGIC.

#2F65	LD A,8		; ⠭
	JR #2F57	;뤠 ,  INTRQ  
----------------------------------------------------------------
 #2F69. ணࠬ ࠡ⪨ 訡, 㯠   ᨪ. ⠭ #5C3A    ணࠬ #1D3.

#2F69	LD HL,(#5D1C)	;⪠ ⥪
	DEC HL
	DEC HL
	LD SP,HL
	JP #1D2F	;뤠 ᮮ饭  襭
----------------------------------------------------------------
 #2F72. 맮 ணࠬ   ᨪ.      ᫥ CALL #2F72:
CALL #2F72
DW #0D6B

#2F72	LD (#5D02),HL	;࠭ HL  DE
	LD (#5D04),DE
	POP HL		;⨥  ⥪   ⮢  ᮬ ணࠬ
	LD E,(HL)	;६  ணࠬ
	INC HL
	LD D,(HL)
	INC HL
	PUSH HL		;饭  ⥪    ணࠬ, 맢 #2F72
	LD HL,#3D2F	;饭  ⥪  ४⥫   TR-DOS
	PUSH HL
	PUSH DE		;饭  ⥪  뢠 ணࠬ
	LD HL,#5CC2	;饭  ⥪   RET  
	PUSH HL

	LD HL,(#5D02)	;⠭ HL  DE
	LD DE,(#5D04)
	RET		;室   RET  
----------------------------------------------------------------
 #2F90. ⠭ 砫 祭 ⥬ p TR-DOS.  ६ 頥:
 #5CFA - #5CFD, #5CC8 - #5CCB, #5C3A, #5D16, #5D0C - #FF; #5D17 - #5D19, #5D1F - 0; #5CC2 - #C9;  ⥬ ॣ 頥 #FF  믮  뢠. ணࠬ  ᯮ짮 ⠪  :
#2FC3  אַ 뢮   #1F.

#2F90	LD HL,#FFFF
	LD (#5CFA),HL	;⨯ ᪮ 
	LD (#5CFC),HL
	LD (#5CC8),HL	;६ ६饭  ᪮
	LD (#5CCA),HL	;⭮
	XOR A
	LD (#5D17),A 	;⠢ 뢮
	LD (#5D19),A 	;᪮  㬮砭 - A:
	LD (#5D18),A 	;  
	LD (#5D1F),A 	;p⠥   TR-DOS
	LD A,#FF	;㧪 ⥬ ॣ
	OUT (#FF),A
	LD (#5C3A),A 	;訡 
	LD (#5D16),A 	;࠭ 祭 ⥬ ॣ
	LD (#5D0C),A 	; 
	LD A,#C9	;饭    RET
	LD (#5CC2),A
	LD A,#D0	; 뢠
#2FC3	OUT (#1F),A	;뤠 
	RET		;
----------------------------------------------------------------
 #2FC6. ஢ઠ ⨦  ⠫   .

#2FC6	CALL #50C	;஢ઠ  ࠡ⪠ ⨦  
	LD A,(HL)	;६  ᨬ  䠩
	OR A		; ⠫?
	JP Z,#3AC	;᫨ ,  砭 뤠
	CP 1		;䠩 ?
	CALL Z,#507	;᫨ ,  ய 
	RET NZ		; 
	JR #2FC6	;
----------------------------------------------------------------
 #2FD6. 㧪 ᥪ  .  DE   ᥪ  ᪥.

#2FD6	LD B,1		;㦠 1 ᥪ
	LD HL,#5D25	;㦠  
	JP #1E67	;㧪 ᥪ
----------------------------------------------------------------
 #2FDE. 㧪  䠩.  HL -  㧪,  #5CDC - ,  #5CF4 - 㤠 㧨.

#2FDE	PUSH HL		;࠭  㧪
	LD DE,(#5CF4)	;६  ᥪ  ᪥
	CALL #2FD6	;㧪   
	LD A,(#5CDC) 	;६ ⢮ ⮢  㧪
	POP DE		;⠭  㧪
	OR A		;㦠 0 ⮢?
	RET Z		;᫨ ,  
	LD C,A		;ॢ  㦠   塠 
	LD HL,#5D25	;६頥   
	LDIR
	RET		;
----------------------------------------------------------------
 #2FF3.   TR-DOS.

#2FF3	DB #CF,"*",#D0,#D1,#E6,#D2,#EF,#F8,#FE,#BE,#F4,#D5,#F7
	DB #D3,#D4,#FF,"4",#EC,"8",#F0,#D6
----------------------------------------------------------------
 #3008.  ᮢ ணࠬ, 믮  TR-DOS.

#3008	DW #433,#1018,#1EC2,#16AB,#53A,#787,#1815,#1AD0,#1CFB,#19A5
	DW #19A9,#19B1,#1D4D,#2182,#2656,#690,#2997,#2DA1,#29AE,#11CE
	DW #1810
----------------------------------------------------------------
 #3032. ⨥  ப. ப    ।. 頥  #5CD6 #FF  ⠭ #5D11.

#3032	LD HL,(#5C59)	;६   ।
	LD (#5D11),HL	;⠭   ப
	LD (#5CD9),HL	;⠭  ⥪饣 ᨬ
	LD A,#FF	; ﬠ 
	LD (#5CD6),A
	LD HL,#5CDB	; 
	LD (#5CD7),HL
	JR #3057	;ᦠ⨥ ப  
----------------------------------------------------------------
 #3048. ⨥  ப.  HL   ப. ⠭ #5CD6  #5D11. ᯮ ⠪  :
#3057 (ᦠ⨥ ப; ⠭ #5CD6, #5CD7  #5CD9).

#3048	LD (#5D11),HL	;⠭  ப
	LD (#5CD9),HL	;  ⥪饣 祢 ᫮
	CALL #30E1	;஢ઠ,  室 ப
	RET NZ		;᫨ ப  ,  
	INC HL		;᫥    ப
	INC HL
	LD (#5CD7),HL	;⠭    ப
#3057	CALL #30A9	;।  祢 ᫮
	JR NZ,#3087	;᫨   祢 ᫮,  ᫥騩 ᨬ
	EX DE,HL	;ॡ᪠  ᫥ ᨬ 祢 ᫮  DE
	INC DE		;᫥  ᨬ ᫥ 祢 ᫮
	LD B,0		;ॢ  祢 ᫮  2-  
	LD HL,#31C8	; ⠡  祢 ᫮
	ADD HL,BC	;᫥   祢 ᫮
	LD A,(HL)	;६  
	LD HL,(#5CD9)	;६  祢 ᫮
	LD (HL),A	;   ᨬ
	INC HL		;᫥  ண ᨬ 祢 ᫮
	EX DE,HL	;ॡ᪠   DE
	RST #20		;᫥ ⢠ ࠥ ᨬ
	DW #19DD
	PUSH BC		;࠭ 
	RST #20		;㭨⮦ 㦭 ᨬ
	DW #19E8
	POP BC		;⠭ ⢠  ᨬ
	LD A,(#5CD6) 	;ப 室  ணࠬ  ᨪ?
	OR A
	JR NZ,#3087	;᫨ ,      祭
	LD HL,(#5CD7)	;६    ப
	LD E,(HL)	;६  ப
	INC HL
	LD D,(HL)
	EX DE,HL	;ॡᨬ   HL
	OR A
	SBC HL,DE	;᪮४㥬 
	EX DE,HL	;ॡᨬ  DE
	LD (HL),D	; 㧨 ⭮

	INC HL
	LD (HL),E
#3087	LD HL,(#5CD9)	;६  ⥪饣 ᨬ
	LD A,(HL)	;६  ᨬ
	CP #D		; ENTER?
	RET Z		;᫨ ,  
	INC HL		;᫥騩 ᨬ
	LD (#5CD9),HL
	LD A,(HL)	;६ 
	CP #D		; ENTER?
	RET Z		;᫨ ,  
	CP #22		; 窨?
	JR NZ,#3057	;᫨ ,  
#309A	INC HL		;᫥騩 ᨬ
	LD A,(HL)	;६ 
	CP #D		; ENTER?
	RET Z		;᫨ ,  
	CP #22		; 窨?
	JR NZ,#309A	;᫨ ,  ᫥騩 ᨬ
	INC HL		;᫥騩 ᨬ
	LD (#5CD9),HL
	JR #3057	;
----------------------------------------------------------------
 #30A9. ।  祢 ᫮. ⠭ #5CD9. ᫥  ᫨ 䫠 Z ⠭,   C 㤥  祢 ᫮,   HL -  ᫥ ᨬ 祢 ᫮;  祢 ᫮  뫮 ,   HL 㤥   #5CD9.

#30A9	LD HL,(#5CD9)	;६  祢 ᫮  ப
	LD DE,#30FD	; ⠡ 祢 ᫮
	LD C,0		;筥  ᫮ 0
#30B1	LD A,(HL)	;६ ᨬ ᫮  襩 ப
	AND #DF		;㪢 
	LD B,A		;㧪 ᨬ  B
	OR A		; CHR$ 0?
	JR NZ,#30BB	;᫨ , 
	INC HL		;᫥騩 ᨬ
	JR #30B1	; 
#30BB	LD A,(DE)	;६ ᨬ  ⠡
	AND #80		;  7 祭?
	JR NZ,#30C8	;᫨ ,   ᨬ ᫥
	LD A,(DE)	;᭮ ६ ᨬ  ⠡
	CP B		;ࠢ ᨬ
	JR NZ,#30D9	;᫨   ᮢ,  ஢ઠ ᫥饣 ᫮
	INC HL		; ᫥ ᨬ
	INC DE
	JR #30B1	;
#30C8	LD A,(DE)	;६ ᨬ  ⠡
	AND #7F		;뢠  7
	CP B		;ࠢ ᨬ
	RET Z		;᫨  ᮢ,  
#30CD	INC C		; ᫥饣 ᫮
	LD HL,(#5CD9)	;६  祢 ᫮  ப
	INC DE		;᫥騩 ᨬ  ⠡
	LD A,(DE)
	CP #FF		; ⠡?
	JR NZ,#30B1	;᫨ ,  
	OR A		; 䫠 Z
	RET		;
#30D9	INC DE		;᫥騩 ᨬ  ⠡
	LD A,(DE)
	AND #80		;  7 祭?
	JR Z,#30D9	;᫨ ,  ᫥騩 ᨬ
	JR #30CD	;஢ઠ ⨦  ⠡
----------------------------------------------------------------
 #30E1. ஢ઠ ⮭宦 ப. ⠭ #5CD6,   HL 頥    ப  2.

#30E1	LD HL,(#5C45)	;६  믮饩 ப
	INC HL		; ﬠ ?
	INC HL
	LD A,H
	OR L
	JR Z,#30F4	;᫨ ,  ⠭ 䫠
	XOR A		; 室  ப ணࠬ  ᨪ
	LD (#5CD6),A
	DEC HL		;⠭  ப
	DEC HL
	RST #20		;।  ப
	DW #196E
	RET		;
#30F4	LD A,#FF	; ﬠ 
	LD (#5CD6),A
	LD HL,(#5C59)	; 
	RET		;
----------------------------------------------------------------
 #30FD.  祢 ᫮ TR-DOS.

#30FD	DB "SAVE"
	DB #80
	DB "SAV"
	DB #C5
	DB "LOAD"
	DB #80
	DB "LOA"
	DB #C4
	DB "RUN"
	DB #80
	DB "RU"
	DB #CE
	DB "CAT"
	DB #80
	DB "CA"
	DB #D4
	DB "ERASE"
	DB #80
	DB "ERAS"
	DB #C5
	DB "NEW"
	DB #80
	DB "NE"
	DB #D7
	DB "MOVE"
	DB #80
	DB "MOV"
	DB #C5
	DB "MERGE"
	DB #80
	DB "MERG"
	DB #C5
	DB "PEEK"
	DB #80
	DB "PEE"
	DB #CB
	DB "POKE"
	DB #80
	DB "POK"
	DB #C5
	DB "OPEN"
	DB #83
	DB "CLOSE"
	DB #83
	DB "CODE"
	DB #80
	DB "COD"
	DB #C5
	DB "RND"
	DB #80
	DB "RN"
	DB #C5
	DB "DATA"
	DB #80
	DB "DAT"
	DB #C1
	DB "SCREEN"
	DB 4,#84
	DB "SCREEN"
	DB #84
	DB "COPY"
	DB #80
	DB "COP"
	DB #D9
	DB "FORMAT"
	DB #80
	DB "FORMA"
	DB #D4
	DB "GO TO"
	DB #80
	DB "GO T"
	DB #CF
	DB "LIST"
	DB #80
	DB "LIS"
	DB #D4
	DB "LINE"
	DB #80
	DB "LIN"
	DB #C5
	DB "VERIFY"
	DB #80
	DB "VERIF"
	DB #D9
	DB #FF
----------------------------------------------------------------
 #31C8.   祢 ᫮ TR-DOS.

#31C8	DB #F8,#F8,#EF,#EF,#F7,#F7,#CF,#CF,#D2,#D2,#E6,#E6,#D1
	DB #D1,#D5,#D5,#BE,#BE,#F4,#F4,#D3,#D4,#AF,#AF,#A5,#A5
	DB #E4,#E4,#AA,#AA,#FF,#FF,#D0,#D0,#EC,#EC,#F0,#F0,#CA
	DB #CA,#D6,#D6,0
----------------------------------------------------------------
 #31F3. ஢ઠ  ⥬ ६ TR-DOS. ᫨  ,  䫠 C 㤥 襭,  ⠭.

#31F3	LD HL,(#5C4F)	;६   ⥫ 
	OR A		; ࠢ쭮 ⠭
	LD BC,#5D25	;  ⥫   稨 ⥬ ६ TR-DOS.
	SBC HL,BC	;⠭ 䫠 C
	RET		;
----------------------------------------------------------------
 #3200. 롮 ଠ ᪠. ⠭ #5CE6  #5CE8,    頥 ⨯ ᪮.

#3200	LD HL,#322C	; PRESS T FOR TURBO FORMAT,
	RST #18		;OTHER KEY FOR FORMAT
	CALL #1052	; 
	CP "T"		; "T""?
	JR Z,#3217	;᫨ ,   ଠ
	LD HL,#1FB9	; ⠡ ᥪ஢  ଠ஢
	LD (#5CE6),HL	;筮 ᪠
	INC HL		; ⠡ ᥪ஢  ஢ન
	LD (#5CE8),HL	;筮 ᪠
	JR #3221	;த
#3217	LD HL,#325A	; ⠡ ᥪ஢  ଠ஢
	LD (#5CE6),HL	;ண ᪠
	INC HL		; ⠡ ᥪ஢  ஢ન
	LD (#5CE8),HL	;ண ᪠
#3221	RST #20		;⪠  ࠭
	DW #0D6E
	LD HL,#3312	; HEAD 0 CYLINDER 0
	RST #18
	CALL #3E11	;६ ⨯ ᪮
	RET		;
#322C	DB "Press T for TURBO-FORMAT"
	DB #D
	DB "Other key for FORMAT"
	DB 0
#325A	DB 1,2,3,4,5,6,7,8,9,#A,#B,#C,#D,#E,#F,#10,1
----------------------------------------------------------------
 #326B.    ଠ஢.

#326B	LD A,#D		;ॢ ப
	RST #10
	LD HL,#328C	; PRESS R FOR REPEAT FORMAT,OTHER KEY FOR
	RST #18		;TR-DOS
	CALL #1052	; 
	CP "R"		; R?
	JR Z,#327C 	;᫨ ,  p襭
	JP #1D3
#327C	RST #20		;⪠  ࠭
	DW #0D6E
#327F	RST #20		;६  ⮩ 
	DW #028E
	JR NZ,#327F	;᫨  ᫥  ,  
	RST #20		;६  ⮩ 
	DW #031E
	JR C,#327F 	;᫨ - ,  
	JP #1EDD	; ଠ஢
#328C	DB "Press R for repeat FORMAT"
	DB #D
	DB "Other key for TR-D0S"
	DB 0
----------------------------------------------------------------
 #32BB. ஢ઠ ஦  ⠡ ᥪ஢  筮 ᪠. ⠭ #5CD8, 㫨 #5CD6  ᯮ樮 .

#32BB	LD HL,#1FBA	;⠭  ⠡ ᥪ஢
	LD (#5CE8),HL
	JP #207D	;஢ઠ ஦
----------------------------------------------------------------
 #32C4. 饭   #5CE5  ⪠  ࠭.

#32C4	LD (#5CE5),A
	RST #20
	DW #0D6E
	RET
----------------------------------------------------------------
 #32CB. 饭 HEAD  CYLINDER.

#32CB	DB "HEAD "
	DB 0
#32D1	DB "	CYLINDER "
	DB 0
----------------------------------------------------------------
 #32DD.   ஦  孥 ஭  ଠ஢ .  ஦   A, 롥  ஭ ᪠  ⠭   #1FFD. ᯮ ⠪  :
#32DE   ஭  ஦  ଠ஢ ; ⠭   #32DD  䫠 C  㪠뢠  ஭.

#32DD	OR A		; ஭
#32DE	PUSH DE		;࠭  ஦
	PUSH AF		; ஭
	LD A,#16	;  "AT"
	RST #10
	LD A,(#5C6B)	;᫥ ப  ࠭
	DEC A
	RST #10
	LD A,0		; 0
	RST #10
	LD HL,#32CB 	; HEAD
	RST #18
	POP AF		;⠭  ஭
	LD A,"0"	;  ஭
	ADC A,0
	RST #10
	LD HL,#32D1 	; CYLINDER
	RST #18
	POP DE		;⠭
	PUSH DE		; ᭮ ࠭  ஦
	LD C,E		;७   BC
	LD B,0
	CALL #1DA9	; 
	POP DE		;⠭
	PUSH DE		; ᭮ ࠭  ஦
	LD A,E		;  #A?
	CP #A
	JR NC,#330B 	;᫨ , 
	LD A," "	; ஡
	RST #10
#330B	POP DE		;⠭  ஦
	JP #1FFD	;ଠ஢ ஦  
----------------------------------------------------------------
 #330F.   ஦   ஭  ଠ஢ .  ஦   A, 롥  ஭ ᪠  ⠭   #1FFD.

#330F	SCF		; ஭
	JR #32DE	;  ஭  ஦,ଠ஢   
----------------------------------------------------------------
 #3312. 饭 HEAD 0 CYLINDER 0.

#3312	DB "HEAD 0	CYLINDER 0"
	DB 0
----------------------------------------------------------------
 #3C01.  ,   #3D31.

#3C01	JR #3C06
----------------------------------------------------------------
 #3C04.  ,   #3D1A

#3C04	JR #3C09
----------------------------------------------------------------
 #3C06.  ,   #3D31.

#3C06	JP #3D00
----------------------------------------------------------------
 #3C09.  ,   #3D1A.

#3C09	JP #3D03
----------------------------------------------------------------
 #3CFA.  ,   #20F1.

#3CFA	JP #20F1
----------------------------------------------------------------
 #3CFD.  ,   #3D13,   ४砥 .

#3CFD	JP #283C
----------------------------------------------------------------
 #3D00. 室  TR-DOS. ४砥 .

#3D00	NOP
	JR #3D31
----------------------------------------------------------------
 #3D03. 믮  TR-DOS  ᨪ. ⠭ CH_ADD  䨪 :REM: । . 頥  BC  訡. ४砥 .

#3D03	NOP
	JR #3D1A
----------------------------------------------------------------
 #3D06. ணࠬ   䠩 . ४砥 .  맮  ।   ப  ந 室  ।,  頥  A ᨬ  䠩.

#3D06	NOP
	JP #25EF
----------------------------------------------------------------
 #3D0A.  ,   #3D0D,   ४砥 .

#3D0A	JP #244A
----------------------------------------------------------------
 #3D0D. ணࠬ 뢮  䠩 .    . ᯮ ⠪   #3D0E.  窨 室 ४ .

#3D0D	NOP
#3D0E	JR #3D0A
----------------------------------------------------------------
 #3D10.  ,   #20F1. ४砥 .

#3D10	NOP
	JR #3CFA
----------------------------------------------------------------
 #3D13. 室  ணࠬ 맮 ணࠬ TR-DOS  設 .   ४⥫.

#3D13	NOP
	JR #3CFD
----------------------------------------------------------------
 #3D16. 室  ணࠬ ࠡ⪨ 訡.   ४⥫.

#3D16	NOP
	JP #2F69
----------------------------------------------------------------
 #3D1A.  ,   #3D03,   ४砥 .

#3D1A	CALL #3D21	;ᮧ ⥬ ६ TR-DOS
	PUSH HL		;饭  ⥪  ४⥫   ᨪ
	JP #16C		;믮 
----------------------------------------------------------------
 #3D21.   ⥬ ६ TR-DOS, ᫨  .  HL 頥 #5CC2.

#3D21	CALL #31F3	;஢ઠ   ⥬ ६
	NOP
	NOP
	CALL C,#3D4C	;᫨  ,  ᮧ 
	LD HL,#5CC2 	;㧪  HL  ४⥫   ᨪ
	RET		;
----------------------------------------------------------------
 #3D2F. ४祭   TR-DOS  室   .    ⥪.

#3D2F	NOP
	RET
----------------------------------------------------------------
 #3D31. 室  TR-DOS.

#3D31	CALL #3D21	;ᮧ  ⥬ ६
	PUSH HL		;饭  ⥪  ४⥫   ᨪ
	JP #239		;室  TR-DOS
----------------------------------------------------------------
 #3D38. ஢ઠ  䥩-1.  砥  㦥 ந室 ᮧ  ⥬ ६   #5CF1 頥 1.  ࠡ ணࠬ   ६饭    .

#3D38	XOR A		;䥩-1 ?
	OUT (#F7),A
	IN A,(#F7)
	CP #1E
	JR Z,#3D44	;᫨ ,  ᮧ  ⥬ ६
	CP #1F
	RET NZ		;᫨ ,  
#3D44	RST 8		;ᮧ ⥬ ६ 䥩-1
	DB #31
	LD A,1		;  SAVE 뢠 1 
	LD (#5CEF),A
	RET		;
----------------------------------------------------------------
 #3D4C.  ⥬ ६ TR-DOS.  稨 䥩-1 । ᮧ ६ TR-DOS ᮧ  ६   #5CEF 頥 1.  ६ TR-DOS :  #5CFA - #5CFC, #5CC8 - #5CCA, #5C3A, #5D16  #5D0C - #FF;  #5D17, #5D19, #5D18, #5D0F  #5D1F - 0;  #5CC2 - #C9.   ⥬ ॣ 頥 #FF,   93 뤠  뢠. ணࠬ  祩  .

#3D4C	XOR A		;롮 ᪮ A:   93
	OUT (#FF),A
	IN A,(#F6) 	; 祣  
	LD HL,#3D38	; ணࠬ ஢ન  䥩-1
	LD DE,#5C92	; ᢮ , 
	LD BC,#14	; ணࠬ
	LDIR		;७ ணࠬ  
	LD HL,#3D67	;   ணࠬ
	PUSH HL		;饭   ⥪
	LD HL,#3D2F	; ४⥫   TR-DOS
	PUSH HL		;饭   ⥪
	JP #5C92	; ணࠬ
----------------------------------------------------------------
 #3D67.  ⥬ ६ TR-DOS.  ६ :  #5CFA - #5CFD, #5CC8 - #5CCB, #5C3A, #5D16  #5D0C - #FF;  #5D17, #5D19, #5D18, #5D0F  #5D1F - 0;  #5CC2 - #C9.   ⥬ ॣ 頥 #FF,   93 뤠  뢠.

#3D67	LD HL,#2F90 	;    ᨪ
	PUSH HL		;饭   ⥪
	LD HL,#3D2F 	; ४⥫   TR-DOS
	PUSH HL		;饭   ⥪
	LD HL,#1655	; ணࠬ MAKE_ROOM   ᨪ
	PUSH HL		;饭   ⥪
	LD HL,#5BFF 	; ४⥫   ᨪ
	PUSH HL		;饭   ⥪
	LD (HL),#C9 	;饭    RET
	LD HL,#5CDD 	;砫   ⥬ ६
	LD BC,#70	; 
	RET		; ணࠬ MAKE_ROOM
----------------------------------------------------------------
 #3D80. ॢ ப. ᯮ ⠪   #3D82 ( ᨬ  ).   ணࠬ 訡筮 ᯮ   #3D8B ணࠬ #4F6.

#3D80	LD A,#D		;ᨬ ENTER
#3D82	PUSH HL		;࠭ ॣ஢
	PUSH BC
	PUSH DE
	PUSH AF		;࠭ ᨬ
	CALL #20F1 	; 
	POP AF		;⠭ ᨬ
#3D8A	CALL #3D94	; ᨬ
	CALL #20F1 	;⠭ 
	POP DE		;⠭ ॣ஢
	POP BC
	POP HL
	RET		;
----------------------------------------------------------------
 #3D94.  ᨬ   .    .

#3D94	RST #20
	DW #0010
	RET
----------------------------------------------------------------
 #3D98. ⠭   INTRQ. ᯮ ⠪   #3D9A (⤠   ॣ.A   INTRQ).

#3D98	LD A,8		;⠭
#3D9A	OUT (#1F),A
#3D9C	PUSH HL		;࠭ HL
	RST #20		;஢ઠ  BREAK
	DW #1F54
	JR C,#3DA5	;᫨ ,  ᮮ饭 *BREAK*
	RST #20
	DW #1B7B
#3DA5	POP HL		;⠭ HL
	IN A,(#FF)	;INTRQ 㯨?
	AND #80
	JR Z,#3D9C	;᫨ ,  
	RET		;
----------------------------------------------------------------
 #3DAD. ஢ઠ  ᪠  ᪮.  ⠭  ॡ.

#3DAD	LD A,8		; ⠭
	CALL #3D9A 	;뤠    INTRQ
	LD DE,0		; #10000 室  ᨣ  
	IN A,(#1F)	;६  ᨣ  ࠧ
	AND 2
	LD B,A		; 
#3DBA	IN A,(#1F)	;६  ᭮
	AND 2
	CP B		; ?
	RET NZ		;᫨ ,  
	INC DE		;᫥ ⪠
	LD A,E		;⪨ 稫
	OR D
	JR NZ,#3DBA	;᫨ ,  
	JP #3EE7	;ࠡ⪠ 訡 NO DISC
----------------------------------------------------------------
 #3DC8. 롮 ᪮, ।  㬮砭. 室:  ⠭ ६ ६饭   ० ᪮ ᮣ᭮ ᠭ  #01. 室:  ६    ᮣ᭮ ⮬ ᠭ. ᯮ ⠪  ᮢ:
#3DCB - 롮 ᪮.    ॣ.A, ⠫쭮    ।饩 ணࠬ.
#3DFD - প  725779 ⠪⮢.
#3DFF - প  㦭 ⥫쭮.  ॣ.A ⠭ ᫮, ।饥 ⥫쭮 প.

#3DC8	LD A,(#5D19)	;६  ᪮  㬮砭
#3DCB	LD (#5CF6),A	;⠭  ࠭ ᪮
	LD HL,#5D16 	;롮 ᪮
	LD C,A
	LD A,#3C
	OR C
	OUT (#FF),A
	LD (HL),A
	CALL #3E08	;६ ६ ६饭  ᪮
	AND #80		; 7 몫祭?
	JR Z,#3DFA	;᫨ ,  樠  ஢
	CALL #3DAD	;஢ઠ  ᪠  ᪮
	CALL #3E16	;। ६ ६饭  ᪮
	CALL #3E11	;६ ⨯ ᪮
	CP #FF		; ⮩ ६ #FF?
	JR Z,#3DFA	;᫨ ,   ।塞 
	PUSH HL		;࠭塞  ६  ⨯ ᪮
	CALL #1FCA	;। ⢠ ஦ ᪮
	POP HL		;⠭  ६ ⨯
	CP #50		;⠭ ⮩ ६
	LD A,0
	JR NZ,#3DF9
	LD A,#80
#3DF9	LD (HL),A

, 訡!!!  ஢ ⢮ ஭ ᪮  ।,   ஭.

#3DFA	CALL #1E36	;஢ઠ ᭮  ᪠
#3DFD	LD A,#50	;প  327842 ⠪⮢
#3DFF	LD C,#FF
#3E01	DEC C
	JR NZ,#3E01
	DEC A
	JR NZ,#3DFF
	RET		;
----------------------------------------------------------------
 #3E08. 롮ઠ ६ ६饭  ⥪饣 ᪮. ⠭ #5CF6.  室  A 㤥 ६ ६饭  ᪮,   HL - ,  ஬  室. ᯮ ⠪   #3E0B (롮ઠ ࠬ ᪮;  DE   ⠡ ࠬ஢  ⠭ #5CF6;  室  A 㤥 ࠬ,  HL -   祩).

#3E08	LD DE,#5CFA	;६  ⠡ ᪮⥩ ६饭 
#3E0B	LD HL,(#5CF6)	;ᬥ饭 ࠢ  ᪮
	ADD HL,DE	;᫥  祩  ࠬ஬
	LD A,(HL)	;६ 㤠 ࠬ
	RET		;
----------------------------------------------------------------
 #3E11. 롮ઠ ⨯ ᪮. 室: ⠭ #5CF6. 室:  A ⨯ ᪮,  HL -   祩.

#3E11	LD DE,#5CC8	;६  ⠡ ⨯ ᪮
	JR #3E0B	;롮ઠ ࠬ  
----------------------------------------------------------------
 #3E16. । ६ ६饭  ᪮.

#3E16	CALL #3E08 	;६  祩  ६ ६饭 
	LD B,8		;筥  襣
	LD C,4		;4 ⪨
#3E1D	LD (HL),B	;⠭ ६ ६饭 
	LD A,8		;⠭
	CALL #3D9A
	LD A,#20	;樮஢  ஦ #20
	LD B,#B
	CALL #3E44
	LD B,(HL)	;६ ६ ६饭 
	LD A,1		;樮஢  ஦ 1   ६
	CALL #3E44
	IN A,(#1F)	;  ஦ 0?
	AND 4
	JR NZ,#3E3F	;᫨ ,  訡
	XOR A		;樮஢  ஦ 0
	IN A,(#1F)	;  ஦ 0?
	AND 4
	RET NZ		;᫨ ,  
#3E3F	INC B		;㢥祭 ६ ६饭   1
	DEC C		;᫥ ⪠
	RET Z		;᫨ ⪨ 稫,  
	JR #3E1D	;
----------------------------------------------------------------
 #3E44. 樮஢.  A  䨧᪨  ஦,  B - ६ ६饭   롥 ஭.

#3E44	OUT (#7F),A	;饭  ஦  ॣ 
	LD A,B		;祭  樮஢
	OR #18
	JP #800		;樮஢  ன ᪮

!!!  㦭 JP #3D9A, .. #800   ᪮ ६饭  ᪮, ᫥⥫쭮 樮஢ ࠡ⠥ ⮫쪮  ன ᪮.
----------------------------------------------------------------
 #3E4C. 樮஢.  室  A   䨧᪨  ஦,   B - ६ ६饭  ᪮.

#3E4C	OUT (#7F),A	;㧪  ஦  ॣ 
	PUSH BC		;࠭ ६ ६饭  ᪮
	LD B,A		; 㦥 ᯮ樮஢?
	IN A,(#3F)
	CP B
	POP BC		;⠭ ६ ६饭 
	PUSH AF		;࠭ १ ஢ન
	LD A,B		;祭  樮஢
	OR #18
	CALL #800	;८ࠧ  뤠    INTRQ

!!! 樮஢ ⢫ ⮫쪮  ன ᪮ ६饭 , ..  #800 ᯮ AND #FC.  ࠢ 樨  㦭 ⠢ JP #3D9A.

	POP AF		;⠭ १ ஢ન  
	RET Z		;᫨  뫠 ᯮ樮஢,  
	PUSH BC		;࠭ ६ ६饭 ?
	CALL #3DFD 	;প  725779 ⠪⮢
	POP BC		;⠭ ६ ६饭 
	RET		;
----------------------------------------------------------------
 #3E63. 樮஢  ᪮. 室:  ॣ.A ⠭ ᪨  ॡ㥬 ஦  ⠭ #5CCD.  室 #5CCD . ᯮ ⠪  :
#3EA0 (প  3135098 ⠪⮢).

#3E63	LD C,A		;㧪  ஦  ॣ C
	CALL #1FEB	;롮 孥 ஭ ᪠
	CALL #3E11	;६ ⨯ ᪮
	AND 2		;᪮ ஭?
	CALL NZ,#3EAA	;᫨ ,  롮 ஭
	PUSH BC		;࠭  ஦
	BIT 7,(HL)	;᪮ 40-஦?
	JR Z,#3E83	;᫨ ,   ஦  塞
	BIT 0,(HL)	;ᯮ㥬 ⮫쪮 40 ஦?
	JR NZ,#3E83	;᫨ ,   ஦  塞
	IN A,(#3F)	;६  ⥪饩 ஦
	CP C		; 㦥 ᯮ樮஢?
	JR Z,#3E82	;᫨ ,   ஦  塞
	RLCA		;  ⥪饩 ஦  2
	OUT (#3F),A
	LD A,C		;  ॡ㥬 ஦  2
	RLCA
#3E82	LD C,A
#3E83	CALL #3E08	;६ ६ ६饭  ᪮
	LD B,A
	IN A,(#3F)	; 㦥 ᯮ樮஢?
	CP C
	PUSH BC		;࠭  ॡ㥬 ஦
	CALL NZ,#3DFD	;᫨   ᯮ樮஢,  প  725779 ⠪⮢
	POP BC		;⠭  ॡ㥬 ஦
	LD A,C
	CALL #3E4C	;樮஢
	POP BC		;⠭  ॡ㥬 ஦
	LD A,C		;⠭ ॣ ஦
	OUT (#3F),A
	LD A,(#5CCD) 	;㦭 প ᫥ 樨?
	OR A
	RET Z		;᫨ ,  
	XOR A		; ᫥騩 ࠧ প  
	LD (#5CCD),A
#3EA0	LD B,3		;প  3135098 ⠪⮢
#3EA2	LD A,#FF
	CALL #3DFF
	DJNZ #3EA2
	RET		;
----------------------------------------------------------------
 #3EAA. 롮 ஭  樮஢. 室:  C  ᪨  ஦  롥  ஭ ᪠. 室: 㤥 ࠭ ஭,   C 㤥 䨧᪨  ஦.

#3EAA	LD A,C 		;  ஦  2
	OR A
	RRA
	LD C,A
	RET NC 		;᫨  ஦  ,  
	JP #1FF6	; 롮  ஭ ᪠
----------------------------------------------------------------
 #3EB2. ஢ઠ ᭮  ஦. ⠭ #5CD1    B ६ ६饭  ᪮. 롨ࠥ  ஭   訡  #5D17 頥 #FF.  ॣ H 頥  ⥪饩 ஦. ᯮ ⠪  :
#3EE7 (ࠡ⪠ 訡 NO DISC).

#3EB2	CALL #1FEB	;롮 孥 ஭ ᪠
	IN A,(#1F)	;६ ﭨ ஫
	AND #80		;࠭ 䫠 ⮢
	LD (#5CCD),A
	IN A,(#3F)	;६  ⥪饩 ஦
	LD H,A		; 砩 
	CALL #3E44	;८ࠧ  믮   ॣ.B

!!! । CALL #3E44  ॣ B   ६ ६饭  ᪮,  ,  믮 । ஢મ   ᮤন ॣ B  室  ணࠬ  ᫥⢨   쬠 祢묨.

	LD C,#7F	; ॣ 
	LD D,1		;᫮, ।饥 ⢮ ⮪
	DI		; 뢠
	LD A,#C0	;⥭ ᭮ 
	OUT (#1F),A
	PUSH BC		;࠭  ॣ 
	LD B,3		;।塞 ⢮ ⮪
#3ECE	IN A,(#FF)	;६ ﭨ ᨣ DRQ  INTRQ
	AND #C0
	JR NZ,#3F10 	;᫨ - ᨣ 㯨,  砫 ⥭
	INC DE		;᫥ ⪠
	LD A,E
	OR D
	JR NZ,#3ECE
	DJNZ #3ECE	;   ⮪
	POP BC		;⠭  ॣ 
	EI		;ࠧ襭 뢠
	LD A,#D0	;⠭ ஫
	OUT (#1F),A
	LD A,(#5CD1)	;訡 ஢?

訡!!!  LD A,(#5D17).

	CP #FF
	RET Z		;᫨ ,  
#3EE7	CALL #272B	;⠭ TAPE LOADING ERROR
	LD A,#FF	; ᫥騩 ࠧ 訡 ஢
	LD (#5D17),A
	JP #271B	;ࠡ⪠ 訡 NO DISC
#3EF2	POP BC		;⠭  ॣ 
	IN H,(C)	;⥭ ࢮ 
#3EF5	IN A,(#FF)	; - ᨣ
	AND #C0
	JR Z,#3EF5
	EI		; 砩 

訡!!!      ⥭.

	RET M		;᫨ 㯨 INTRQ,  
	DI		; 뢠
	IN A,(#7F)	;⥭ 
	JR #3EF5	;
----------------------------------------------------------------
 #3F02.    㦤.

#3F02	LD (#5CFF),A
	RET
----------------------------------------------------------------
 #3F06. 宦  ।饥.

#3F06	LD (#5D00),HL
	RET
----------------------------------------------------------------
 #3F0A.  ᥪ. 樮   ⠭ #5CFF  #5D00.

#3F0A	LD A,#A0	;  ᥪ
	JR #3F10	;室  ணࠬ ⥭ /  ᥪ
----------------------------------------------------------------
 #3F0E. 㧪 ᥪ. ⠭ #5CFF  #5D00  ᯮ樮 . ᯮ ⠪  :
#3F10 (㧪/ ᥪ; ⠭   #3F0E   A   ⥭   ᥪ).

#3F0E	LD A,#80	; ⥭ ᥪ
#3F10	LD (#5CFE),A 	;⠭ 
#3F13	LD D,#A		;10 ⮪
#3F15	PUSH DE		;࠭ 稪 ⮪
	DI		; 뢠
	LD A,(#5CFF) 	;⠭ ᥪ
	INC A
	OUT (#7F),A
	LD HL,(#5D00)	;६  ⥭/
	LD C,#7F	;६  ॣ 
	LD A,(#5CFE) 	;⤠ 
	OUT (#1F),A
	CP #A0		;뫠   ᥪ?
	PUSH AF
	CALL Z,#3FBA 	;᫨ ,   
	POP AF
	CALL NZ,#3FD5	; ⥭ 
	POP DE		;⠭ 稪 ⮪
	EI		;ࠧ襭 뢠
	IN A,(#1F)	;६ ﭨ ஫
	LD B,A		;࠭塞 
	AND #7F		;  浪?
	RET Z		;᫨ ,  
	LD HL,#29D8	; ᮮ饭 READ ONLY
	AND #40		;饭 ?
	JR NZ,#3F4B	;᫨ ,  室  ࠡ 訡
	LD A,B		;⠭ ﭨ ஫
	AND 4		;뫠  ?
	JR Z,#3FA0	;᫨ ,  ࠡ⪠ ᪮ 訡
	DEC D		;᫥ ⪠
	JR NZ,#3F15	;᫨ ⪨  稫,  
#27D8	LD HL,#29E2	; ᮮ饭 DISC ERROR
#3F4B	LD A,#D0	; 뢠
	OUT (#1F),A
	LD A,B		;⠭ ﭨ ஫
	AND 1		;஫  ?
	JP NZ,#3EE7	;᫨ ,  ࠡ⪠ 樨 NO DISC
	IN A,(#3F)	;᫨ 訡 ந諠  ᥪ #A ஦
	OR A		;0,   (஢)
	JR NZ,#3F5F
	IN A,(#7F)
	CP #A
	RET Z
	PUSH HL		;࠭  ᮮ饭
	CALL #1D97	;⪠ ࠭
	POP HL		;⠭  ᮮ饭
	RST #18		; ᮮ饭
	LD HL,#2A13	; TRK:
	RST #18
	IN A,(#3F)	;  ஦
	CALL #1DA3
	LD HL,#2A18	; SEC:
	RST #18
	IN A,(#5F)	;  ᥪ
	CALL #1DA3
	LD HL,#29FE	; RETRY,ABORT,IGNORE?
	RST #18
#3F7B	CALL #1052	; 
	CP "I"		; I?
	RET Z		;᫨ ,  
	CP "R"		; R?
	JR Z,#3F94	;᫨ ,  ९樮஢  
	CP "A"		; A?
	JR NZ,#3F7B	;᫨ ,    
	CALL #272B	;⠭ TAPE LOADING ERROR
	LD A,7		;᪮ 訡
	LD (#5D0F),A
	JP #1D3		;襭
#3F94	LD A,(#5CF5) 	;९樮஢
	CALL #3E63
	CALL #3EA0	;প  3135098 ⠪⮢
	JP #3F15	;

訡!!!  JP #3F13  ⮣, ⮡  ᫮ ⮪.

#3FA0	DEC D		;᫥ ⪠
	JP Z,#3F48	;᫨ ⪨ 稫,  ࠡ⪠ DISC ERROR
	PUSH DE		;࠭ 稪 ⮪
	CALL #3E08	;६ ६ ६饭  ᪮
	AND 2		; ࠢ #A?
	JR NZ,#3FAD
	INC (HL)	;᫨ ,  㢥祭   1
#3FAD	CALL #3D98	;⠭
	LD A,(#5CF5) 	;९樮஢
	CALL #3E63
	POP DE		;⠭ 稪 ⮪
	JP #3F15	;
----------------------------------------------------------------
 #3FBA.    . ⠭  HL   ,  DE - ᫮, ।饥 ⢮ 横,  ஥   ,  C -  ॣ  ஫  ⤠  . ᯮ ⠪   #3FCA ( ,   #3FBA,   ࠡ⪨ NO DISC).

#3FBA	LD B,4		;⠭ ⢠ ⮪
#3FBC	IN A,(#FF) 	;㯨 - ᨣ?
	AND #C0
	JR NZ,#3FD1	;᫨ ,  稭 
	INC DE		;᫥ ⪠
	LD A,E
	OR D
	JR NZ,#3FBC
	DJNZ #3FBC
	RET		;᫨ ⪨ 稫,  
#3FCA	IN A,(#FF) 	;㯨 - ᨣ?
	AND #C0
	JR Z,#3FCA 	;᫨ ,   
	RET M		;᫨ 㯨 INTRQ,  
#3FD1	OUTI		;뢮   襩   ॣ 
	JR #3FCA	;
----------------------------------------------------------------
 #3FD5. ⥭   ᪠.  ⠭ 筮 ணࠬ #3FBA,  ⤠ 㦭  ⥭. ᯮ ⠪  p #3FE5 ( ,   #3FD5,   ࠡ⪨ NO DISC).

#3FD5	LD B,4		;⠭ ⢠ ⮪
#3FD7	IN A,(#FF) 	;㯨 -?
	AND #C0
	JR NZ,#3FEC	;᫨ ,  稭 
	INC DE		;᫥ ⪠
	LD A,E
	OR D
	JR NZ,#3FD7
	DJNZ #3FD7
	RET		;᫨ ⪨ 稫,  
#3FE5	IN A,(#FF) 	;㯨 - ᨣ?
	AND #C0
	JR Z,#3FE5 	;᫨ ,   
	RET M		;᫨  INTRQ,  
#3FEC	INI		;⥭ 
	JR #3FE5	;
