Tolik-Trek/ZX-SP-ROMs
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/ZX-SP-ROMs.git synced 2026-06-15 09:21:45 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity
914bb82468
ZX-SP-ROMs/ProfRom_Disasm/rom3_trdos.a80
Anatoliy Belyanskiy bf811fce1b ...
2024-01-31 23:11:19 +10:00

7188 lines
320 KiB
Plaintext
Executable File
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;€„<E282AC>…‘: #3FF0 ¢ë¢®¤ ¢ ¯®àâ
;€„<E282AC>…‘: #3FF3 ç⥭¨¥ ¯®àâ 
;ˆ‘•Ž„<C5BD>›‰ ’…Š‘’ TR-DOS 5.03 ¤«ï SjASMPlus
;Žá­®¢ ­® ­  ª­¨£¥ "<22>Ž‹HŽ… Ž<>ˆ‘€Hˆ… + <20>Ž‹H›‰ „ˆ‡€‘‘…Œ<E280A6>‹…P <20>‡“ TR-DOS 5.04T (5.03) „‹Ÿ <20><>Ž”…‘‘ˆŽ<CB86>€‹Ž‚, € ’€Š†… „‹Ÿ ’…•, Š’Ž •Ž—…’ ˆŒˆ ‘’€’œ."
;€¢â®à ª­¨£¨: ”¥¤¨­ <20> ¢¥« žà쥢¨ç, 04.04.1996.
;<3B>¥à¥¢®¤ ¢á¥å ç¨á¥« ¢ è¥áâ­ ¤æ â¥à¨ç­ë© ä®à¬ â, ¯¥à¥ä®à¬ â¨à®¢ ­¨¥: Spectre, 19.10.2005
;ˆá¯à ¢«¥­¨¥, ¯¥à¥ä®à¬ â¨à®¢ ­¨¥: Keeper, 21.06.2009
;Š®¤¨à®¢ª : CP-1251
;<3B>à ¢ª  ¯®¤ ¢¥àá¨î Tr-Dos 5.03: PLM, 2022.04.03
DEVICE ZXSPECTRUM48
;€¤à¥á 0. <20>®«­ ï ¨­¨æ¨ «¨§ æ¨ï á¨á⥬ë.
ORG 0
x0000 DI
JP x0844 ;new
LD A,7
JR x0009
;€¤à¥á 8. ˆ­¨æ¨ «¨§ æ¨ï á¨á⥬ë. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ¢¥àè¨­ë ¯ ¬ïâ¨, ¢ A - 7 ¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  9.
x0008 NOP
x0009 NOP
NOP
x000B LD A,#3F
x000D JR x0013
x000F NOP
;€¤à¥á #10. <20>¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ ¯¥ç â¨ ᨬ¢®«  ¨§ ॣ¨áâà  A.
x0010 JP x3D82
;€¤à¥á #13. ˆ­¨æ¨ «¨§ æ¨ï á¨á⥬ë. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ¢¥àè¨­ë ¯ ¬ïâ¨, ãáâ ­®¢¨â¥ ¡¥«ë© ¡®à¤îà, ¯®¬¥áâ¨â¥ ¢ A áâ à訩 ¡ ©â ­¨§è¥£®  ¤à¥á  ¯ ¬ï⨠¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï.
x0013 LD I,A
JP x001B
;€¤à¥á #18. <20>¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ ¯¥ç â¨ áâப¨.
x0018 JP x2707
;€¤à¥á #1B. ’® ¦¥, çâ® ¨ #24.
x001B ld h,d
ld l,e
inc de
JR x0024
;€¤à¥á #20. <20>¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ ¢ë§®¢  ¯®¤¯à®£à ¬¬ ¨§ <20>‡“ ¡¥©á¨ª . €¤à¥á ¢ë§ë¢ ¥¬®© ¯®¤¯à®£à ¬¬ë ¯®¬¥áâ¨â¥ ¢ ¤¢ãå ¡ ©â å ¯®á«¥ ª®¬ ­¤ë RST #20. <20> ¯à¨¬¥à:
x0020 JP x2F72
x0023 RET
;€¤à¥á #24. ˆ­¨æ¨ «¨§ æ¨ï á¨á⥬ë. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ¢¥àè¨­ë ¯ ¬ïâ¨, ãáâ ­®¢¨â¥ ¡¥«ë© ¡®à¤îà, ¯®¬¥áâ¨â¥ ¢ A áâ à訩 ¡ ©â ­¨§è¥£®  ¤à¥á  ¯ ¬ï⨠¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï.
x0024 ld (hl),#00
JR x002B ;¨­¨æ¨ «¨§ æ¨ï á¨á⥬ë
;€¤à¥á #28. ‚롮ઠ  ¤à¥á  ⥪ã饣® ª ­ «  á ãç¥â®¬ ᤢ¨£ , § ¤ ­­®£® ¢ ॣ¨áâॠC.
x0028 JP x2323
;€¤à¥á #2B. ˆ­¨æ¨ «¨§ æ¨ï á¨á⥬ë. ‚ DE ¨ HL ¯®¬¥áâ¨â¥  ¤à¥á ¢¥àè¨­ë ¯ ¬ïâ¨, ãáâ ­®¢¨â¥ ¡¥«ë© ¡®à¤îà, ¯®¬¥áâ¨â¥ ¢ A áâ à訩 ¡ ©â ­¨§è¥£®  ¤à¥á  ¯ ¬ï⨠¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï.
x002B ld bc,#BFFF
jr x003A
x0030 nop
nop
nop
x0033 out (c),a
nop
halt
rst #38
;€¤à¥á #38. Ž¡à ¡®âª  ¬ áª¨à㥬®£® ¯à¥à뢠­¨ï.
x0038 ei
ret
;€¤à¥á #3A. ˆ­¨æ¨ «¨§ æ¨ï á¨á⥬ë. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ¢¥àè¨­ë ¯ ¬ï⨠¢ HL -  ¤à¥á ¤­ , ãáâ ­®¢¨â¥ ¡¥«ë© ¡®à¤îà, § ¯®«­¨â¥ ®¡®§­ ç¥­­ãî ®¡« áâì ¯ ¬ï⨠¡ ©â®¬ 2 ¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï.
x003A ldir
jr x0048
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
x0048 LD (#5CB4),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,x3D2F ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,#B8ED ;ª®¤ ª®¬ ­¤ë LDDR
JR x0069 ;ãáâ ­®¢ª  UDG
;€¤à¥á #66. <20>®¤¯à®£à ¬¬  ®¡à ¡®âª¨ ­¥¬ áª¨à㥬®£® ¯à¥à뢠­¨ï.
x0066 JP x2A56
;€¤à¥á #69. ‚믮«­¥­¨¥ «î¡®© ª®¬ ­¤ë ¯à®æ¥áá®à . <20>®¬¥áâ¨â¥ ¢ HL ª®¤ë ª®¬ ­¤ë, ãáâ ­®¢¨â¥ ॣ¨áâàë (#5F00 ¢¬¥áâ® HL) ¨ ¯®¬¥áâ¨â¥ ¢ HL ª®¤ë ª®¬ ­¤ë.
x0069 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 ¨ § ¯à¥â¨â¥ ¯à¥à뢠­¨ï.
x0079 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 ; ¤à¥á ®¡« á⨠®¯¨á â¥«¥© ª ­ «®¢ ¢ <20>‡“ ¡¥©á¨ª 
LD BC,#15 ;¥¥ ¤«¨­  - #15 ¡ ©â
EX DE,HL
CALL x0117 ;¯¥à¥­®á ®¡« á⨠®¯¨á â¥«¥© ª ­ «®¢ ¢ Ž‡“
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 ¢ <20>‡“ ¡¥©á¨ª 
LD DE,#5C10 ; ¤à¥á ¯¥à¥¬¥­­®© STRMS
LD BC,#0E ;¤«¨­  â ¡«¨æë - #18 ¡ ©â 
CALL x0117 ;¯¥à¥­®á â ¡«¨æë ¢ Ž‡“
SET 1,(IY+1) ;®âªàëâ ¯®â®ª 3
LD HL,#5CC2 ;¯®¬¥é¥­¨¥ ª®¬ ­¤ë RET ¢ Ž‡“
LD (HL),#C9
;‚­¨¬ ­¨¥!!! ‘¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS ¯®ª  ¥é¥ ­¥â, ¨ íâ® ¯®àâ¨â ¯ ¬ïâì.
RST #20 ;¨­¨æ¨ «¨§ æ¨ï ¡ãä¥à  ¯à¨­â¥à  ¨ íªà ­ 
DW #0EDF
LD HL,#5C6B ;¡ãä¥à ¯à¨­â¥à  ¨á¯®«ì§®¢ «áï
LD (HL),2
LD HL,#128B ;¢®§¢à é âìáï ¢ #128B
PUSH HL
LD A,#AA ;¢ë¯®«­ïâì ª®¬ ­¤ã RUN "boot"
LD (#5B00),A
EI ;à §à¥è¥­¨¥ ¯à¥à뢠­¨©
JP x3D31 ;¢å®¤ ¢ TR-DOS
;€¤à¥á #117. ‚믮«­¥­¨¥ ª®¬ ­¤ë LDIR. “áâ ­®¢¨â¥ HL, DE ¨ BC ¨ ¯®¬¥áâ¨â¥ ¡ ©â #C9 ¯®  ¤à¥áã #5F12.
x0117 LD (#5F00),HL ;á®åà ­¥­¨¥ HL
LD HL,x3D2F ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,#B0ED ;ª®¤ë ª®¬ ­¤ë LDIR
LD (#5F10),HL ;¯®¬¥é¥­¨¥ ª®¬ ­¤ë ¢ Ž‡“
LD HL,(#5F00) ;¢®ááâ ­®¢«¥­¨¥ HL
JP #5F10 ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë ¨ ¢®§¢à â
;€¤à¥á #12A. Ž¡à ¡®âª  ­®¬¥à  áâப¨  ¢â®áâ àâ  ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥. “áâ ­®¢¨â¥ #5D10 ¨ § £à㧨⥠¯à®£à ¬¬ã.
x012A CALL x20E5 ;¨§¬¥­¥­¨¥ ¯ ¬ï⨠¨ 㤠«¥­¨¥ ¡ãä¥à 
CALL x1D97 ;®ç¨á⪠ íªà ­ 
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,x0140 ;¥á«¨ íâ® ­¥ 0, â® ¯à®£à ¬¬ã § ¯ã᪠âì
XOR A
LD (#5D10),A
x0140 PUSH HL ;á®åà ­¥­¨¥ ­®¬¥à  áâப¨  ¢â®áâ àâ 
CALL x0232 ;¢®ááâ ­®¢«¥­¨¥ áâ à®£®  ¤à¥á  ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª
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,x0166 ;¥á«¨ ¬®¦­®, â® § ¯ã᪠¯à®£à ¬¬ë
RST #20 ;á®®¡é¥­¨¥ O.K.
DW #1BB0
x0166 PUSH HL ;¯®¬¥é¥­¨¥ ­  á⥪  ¤à¥á  ¯®¤¯à®£à ¬¬ë ¢ë¯®«­¥­¨ï ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
LD HL,#5CC2 ;¯®¬¥é¥­¨¥ ­  á⥪  ¤à¥á  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
PUSH HL
RET ;¯¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ ¢ë¯®«­¥­¨ï ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
;€¤à¥á #16C. ’® ¦¥, çâ® ¨ #3D1A, ­® ­¥ ᮧ¤ ¥â á¨á⥬­ë¥ ¯¥à¥¬¥­­ë¥.
x016C CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
CALL x294A ;ᮧ¤ ­¨¥ ¡ãä¥à 
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 x021D ;ãáâ ­®¢ª   ¤à¥á  ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª
LD HL,(#5CB2) ;ª®¬ ­¤­ ï áâப  ­ å®¤¨âáï ¢ëè¥ RAMTOP?
LD DE,(#5C5D)
SBC HL,DE
EX DE,HL
JR NC,x01A5 ;¥á«¨ ¤ , â® ¯à¨ ¢ë¤¥«¥­¨¨ ¡ãä¥à  ®­  ­¥
OR A ;¯¥à¥¬¥é « áì
LD DE,#101
SBC HL,DE
x01A5 LD (#5C5D),HL
x01A8 CALL x01C7 ;á«¥¤ãî騩 ᨬ¢®« áâப¨ ENTER?
x01AB JP Z,x01D3 ;¥á«¨ ¤ , â® § ¢¥à襭¨¥
CP #EA ;íâ® REM?
INC HL ;á«¥¤ãî騩 ᨬ¢®«
JR NZ,x01A8 ;¥á«¨ ­¥â, â® á«¥¤ãî騩 ᨬ¢®«
CALL x01C7 ;á«¥¤ãî騩 ᨬ¢®« áâப¨ ENTER?
JR Z,x01AB ;¥á«¨ ¤ , â® § ¢¥à襭¨¥
CP ":" ;íâ® ¤¢®¥â®ç¨¥?
JP NZ,x01D3 ;¥á«¨ ­¥â, â® ¢®§¢à â
INC HL ;á«¥¤ãî騩 ᨬ¢®«
CALL x3048 ;ᦠ⨥ áâப¨
LD HL,(#5D11)
JP x030A ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #1C7. ¡¥à¥â ᨬ¢®« ¯®  ¤à¥áã ¨§ HL ¨ ¢®§¢à é ¥â ¥£® ¢  ªªã¬ã«ïâ®à¥ ¯«îá ä« £ Z ¥á«¨ íâ® 0, #D ¨«¨ #80, ¨­ ç¥ NZ.
x01C7 LD A,(HL) ;¡¥à¥¬ ¡ ©â ¯® ­ã¦­®¬ã  ¤à¥áã
CP #D ;íâ® #D?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
CP #80 ;íâ® #80?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
OR A ;áà ¢­¥­¨¥ ¥£® á ­ã«¥¬
RET ;¢®§¢à â
x01D0 CALL x1E43
;€¤à¥á #1D3. <20>®¤¯à®£à ¬¬  § ¢¥à襭¨ï. ‚室: ãáâ ­®¢¨âì #5CB6, #5D0C, #5D0F, #5D11, #5D18, #5D1A, #5D1C ¨ #5D1F. ‚ë室: ¢ SP  ¤à¥á ¨§ #5D1C,   ¢ BC ª®¤ ®è¨¡ª¨.
x01D3 LD HL,0 ;¡ãä¥à 㡨à âì, ¯ ¬ïâì ¨§¬¥­ïâì
LD (#5CF8),HL
CALL x20E5 ;¥á«¨ ¥áâì ¡ãä¥à, ⮠㡥६ ¥£®
CALL x1D63 ;¥á«¨ ­ ¤®, â® ®ç¨á⪠ à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨
LD HL,#5D17 ;§ áâ ¢ªã ­¥ ¢ë¢®¤¨âì
LD (HL),#AA
LD HL,#5D1F ;ª®¬ ­¤  ¯®áâ㯨«  ¨§ ¬ è¨­­®£® ª®¤ ?
LD A,(HL)
OR A
LD (HL),0 ;á«¥¤ãîé ï ª®¬ ­¤  ¡ã¤¥â ­¥ ¨§ ¬ è¨­­®£® ª®¤ 
JR NZ,x01F3 ;¥á«¨ ª®¬ ­¤  ¡ë«  ­¥ ¨§ ¬ è¨­­®£® ª®¤ , â®
CALL x1E1C ;㤠«¥­¨¥ ¨§ áâப¨ 5-¡ ©â®¢ëå ç¨á¥«
CALL x0212 ;¨ ¯à®£®­ ᨬ¢®«®¢ ¤® ª®­æ  áâப¨
x01F3 LD SP,(#5D1C) ;¯®¬¥é ¥¬ ¢ SP  ¤à¥á ¨§ #5D1C
LD HL,(#5D1A) ;¡¥à¥¬  ¤à¥á ¢ë室  ¨§ í⮩ ¯®¤¯à®£à ¬¬ë
LD BC,(#5D0F) ;¯®¬¥é ¥¬ ¢ BC ª®¤ ®è¨¡ª¨
LD B,0
JP (HL) ;¯¥à¥å®¤ ¯® ­ §­ ç¥­­®¬ã  ¤à¥áã
;€¤à¥á #201. <20>஢¥àª  ­  ®è¨¡ªã. ‚室: ãáâ ­®¢¨â¥ #5C3A ¨ #5D13.
x0201 CALL x0232 ;¯®¬¥é¥­¨¥ ¢ #5C3D  ¤à¥á  ¨§ #5D13
BIT 7,(IY+0) ;¡ë«  ®è¨¡ª ?
RET NZ ;¥á«¨ ­¥â, â® ¢®§¢à â
LD DE,#5CC2 ; ¤à¥á ª®¬ ­¤ë RET ¢ Ž‡“
LD SP,(#5C3D) ;ãáâ ­®¢ª  SP ­  ¤­® á⥪ 
PUSH DE ;¯¥à¥å®¤ ­  ®¡à ¡®âªã ®è¨¡®ª
RET
;€¤à¥á #212. <20>ண®­ ᨬ¢®«®¢ ¤® ª®­æ  áâப¨. “áâ ­®¢¨â¥ ¢ #5C5D  ¤à¥á ®¤­®£® ¨§ ᨬ¢®«®¢ áâப¨. <20>  ¢ë室¥ â ¬ ¡ã¤¥â  ¤à¥á ª®­æ  áâப¨.
x0212 CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®« áâப¨
CP #D ;íâ® ENTER?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
CALL x1E2A ;¡¥à¥¬ á«¥¤ãî騩 ᨬ¢®« áâப¨
JR x0212 ;¯®¢â®à
;€¤à¥á #21D. “áâ ­®¢ª   ¤à¥á  ®¡à ¡®âª¨ ®è¨¡®ª. ‚室: ¢ #5D1C ¤®«¦¥­ ¡ëâì  ¤à¥á ­  2 ¡®«ìè¥ â®£®, ¯® ª®â®à®¬ã à §¬¥é ¥â¥  ¤à¥á ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª. ‚ë室: áâ à®¥ ᮤ¥à¦¨¬®¥ #5C3D ª®¯¨àã¥âáï ¢ #5D13,   ¢ #5C3D ¯®¬¥é ¥âáï  ¤à¥á, ¯® ª®â®à®¬ã ­ å®¤¨âáï à §¬¥é¥­­ë©  ¤à¥á.
x021D LD HL,(#5C3D) ;á®åà ­¥­¨¥ áâ à®£® ᮤ¥à¦¨¬®£® #5C3D
LD (#5D13),HL
LD HL,(#5D1C) ;¡¥à¥¬  ¤à¥á ¨§ #5D12
DEC HL ;¡¥à¥¬ ­ã¦­ë© ­ ¬  ¤à¥á
DEC HL
LD (#5C3D),HL ;ãáâ ­®¢ª  #5C3D
LD DE,x3D16 ; ¤à¥á ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª
LD (HL),E ;§ ¯¨áì ¥£® ¢ ­ è¨ ï祩ª¨
INC HL
LD (HL),D
RET ;¢®§¢à â
;€¤à¥á #232. <20>®¬¥é¥­¨¥ ¢ #5C3D  ¤à¥á  ¨§ #5D13. “áâ ­®¢¨â¥ #5D13.
x0232 LD HL,(#5D13)
LD (#5C3D),HL
RET
;€¤à¥á #239. ‚室 ¢ ª®¬ ­¤­ë© ¯à®æ¥áá®à. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #27B (§ ¯ã᪠䠩«  "boot").
x0239 LD HL,0 ;®¡­ã«¥­¨¥ #5CF7 ¨ #5CF8
LD (#5CF7),HL
ADD HL,SP ;á®åà ­¥­¨¥ SP
LD (#5D1C),HL
DEC HL ;¢ë¤¥«¥­¨¥ ¬¥áâ  ¤«ï  ¤à¥á  ¯®¤¯à®£à ¬¬ë
DEC HL ;®¡à ¡®âª¨ ®è¨¡®ª
LD SP,HL
CALL x021D ;ãáâ ­®¢ª   ¤à¥á  ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª
LD HL,#5D17 ;§ áâ ¢ªã ¢ë¢®¤¨âì?
LD A,(HL)
CP #AA
LD A,0 ;®è¨¡®ª ­¥â
LD (#5D0F),A
JP Z,x02CB ;¥á«¨ § áâ ¢ª  ­¥ ­ã¦­ , â® ¯¥à¥å®¤ ª ª®¬ ­¤­®¬ã ¯à®æ¥áá®àã
LD (HL),#AA ;¢ á«¥¤ãî騩 à § § áâ ¢ªã ­¥ ¢ë¢®¤¨âì
CALL x1D97 ;®ç¨á⪠ íªà ­ 
CALL x1D88 ;®âªàë⨥ ¯®â®ª  2
LD HL,x0360 ;¢ë¢®¤ ⥪áâ  § áâ ¢ª¨
RST #18
CALL x106E ;¢ë¢®¤ 梥â­ëå ¯®«®á
LD A,(#5CB6) ;¨­â¥à䥩á-1 ¥áâì?
CP #F4
JR Z,x0271 ;¥á«¨ ¤ , â®
LD HL,x1000 ;¢ë¢®¤ "Interface one fitted"
RST #18
x0271 LD A,(#5B00) ;ä ©« "boot" § ¯ã᪠âì?
CP #AA
JR NZ,x02CB ;¥á«¨ ­¥â, â® ¢å®¤ ¢ ª®¬ ­¤­ë© ¯à®æ¥áá®à
CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
x027B 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 x02EF ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #2B0. <20>¥à¥­®á âà¥å ¡ ©â®¢ ¨§  ¤à¥á  HL ¯®  ¤à¥áã DE.
x02B0 LD B,3 ;ª®«¨ç¥á⢮ ¡ ©â®¢
x02B2 LD A,(HL) ;¯¥à¥­®á ¡ ©â 
LD (DE),A
INC HL ; ¤à¥á  á«¥¤ãîé¨å ¡ ©â®¢
INC DE
DJNZ x02B2 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #2B9. Žáâ ­®¢ª  ¤¨áª®¢®¤ . ‚ A ¯®¬¥áâ¨â¥ §­ ç¥­¨¥ á¨á⥬­®£® ॣ¨áâà .
x02B9 LD B,#20 ;#20 ¯®¢â®à 
x02BB PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ¯®¢â®à®¢
XOR 8 ;¯¥à¥ª«î祭¨¥ ¡¨â  3
OUT (#FF),A ;§ £à㧪  á¨á⥬­®£® ॣ¨áâà 
PUSH AF ;á®åà ­¥­¨¥ §­ ç¥­¨ï á¨á⥬­®£® ॣ¨áâà 
LD A,5 ;§ ¤¥à¦ª  ¢ #462A â ªâ 
CALL x3DFF
POP AF ;¢®ááâ ­®¢«¥­¨¥ §­ ç¥­¨ï á¨á⥬­®£® ॣ¨áâà 
POP BC ;¨ ª®«¨ç¥á⢠ ¯®¢â®à®¢
DJNZ x02BB ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #2CB. Š®¬ ­¤­ë© ¯à®æ¥áá®à. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#2EF - ¨á¯®«­¥­¨¥ ª®¬ ­¤ë. ‘¦ âãî ª®¬ ­¤ã ¯®¬¥áâ¨â¥ ¢ ¡ãä¥à ª®¬ ­¤­®© áâப¨;
;#30A - ¨á¯®«­¥­¨¥ ª®¬ ­¤ë. “áâ ­®¢¨â¥ ¢á¥ ¤«ï #1D3, #5D11 ¨ § £à㧨⥠¨§ #5D11 HL.
x02CB LD HL,(#5D1C) ;®ç¨á⪠ á⥪ 
DEC HL
DEC HL
LD SP,HL
CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
CALL x1D83 ;®âªàë⨥ ¯®â®ª  0
LD A,(#5D16) ;¢ë¡®à ¤¨áª®¢®¤  D:
OR 3
CALL x02B9 ;®áâ ­®¢ª  ¥£®
LD A,(#5D16) ;®áâ ­®¢ª  ⥪ã饣® ¤¨áª®¢®¤ 
CALL x02B9
XOR A ;á®®¡é¥­¨ï ®¡ ®è¨¡ª å ¯¥ç â âì
LD (#5D15),A
CALL x2135 ;¯à¨­ï⨥ ª®¬ ­¤ë
CALL x3032 ;ᦠ⨥ ª®¬ ­¤­®© áâப¨
x02EF CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
LD HL,x02CB ;¢®§¢à é âìáï ¢ ª®¬ ­¤­ë© ¯à®æ¥áá®à
LD (#5D1A),HL
XOR A ;®è¨¡®ª ­¥ ¡ë«®
LD (#5D0F),A
LD HL,(#5C59) ;¡¥à¥¬  ¤à¥á ª®¬ ­¤­®© áâப¨
PUSH HL ;á®å࠭塞 ¥£®
LD DE,#5D20 ; ¤à¥á ¡ãä¥à 
CALL x02B0 ;á®åà ­¥­¨¥ âà¥å ¯¥à¢ëå ᨬ¢®«®¢ áâப¨
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  áâப¨
LD (#5D11),HL ;ãáâ ­®¢ª   ¤à¥á  ª®¬ ­¤­®© áâப¨
x030A LD A,(HL) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« áâப¨
LD B,A ;á®å࠭塞 ¥£®
AND #80 ;¥£® ª®¤ ¬¥­ìè¥ #80?
LD A,B ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
JR Z,x031A ;¥á«¨ ¥£® ª®¤ ¬¥­ìè¥ #80, â® ¤¨áª®¢®¤ ­¥ ãáâ ­ ¢«¨¢ âì
CP #FE ;íâ® RETURN?
JR Z,x031A ;¥á«¨ ¤ , â® ¤¨áª®¢®¤ ­¥ ãáâ ­ ¢«¨¢ âì
PUSH AF ;á®åà ­¥­¨¥ ᨬ¢®« 
CALL x3DC8 ; ªâ¨¢¨§ æ¨ï ¤¨áª®¢®¤  ¯® 㬮«ç ­¨î
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
x031A LD HL,x2FF3 ; ¤à¥á â ¡«¨æë ª®¬ ­¤
DEC HL
LD C,0 ;¯à®¢¥àª  ¯¥à¢®© ª®¬ ­¤ë
x0320 INC C
LD D,A ;á®åà ­¥­¨¥ ᨬ¢®« 
LD A,#15 ;¯à®©¤¥­  ¢áï â ¡«¨æ ?
CP C
JP C,x01D3 ;¥á«¨ ¤ , â® § ¢¥à襭¨¥
;‹ãçè¥ ¡ë«® ¡ë ¯®áâ ¢¨âì §¤¥áì JP C,#1D1A ¤«ï ¢ë¤ ç¨ á®®¡é¥­¨ï "*ERROR*".
LD A,D ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
INC HL ; ¤à¥á á«¥¤ãî饩 ª®¬ ­¤ë ¢ â ¡«¨æ¥
CP (HL) ;ᨬ¢®«ë ᮢ¯ «¨?
JR NZ,x0320 ;¥á«¨ ­¥â, â® ¯®¢â®à
CP #FE ;¢¢¥¤¥­  ª®¬ ­¤  RETURN?
CALL NZ,x294A ;¥á«¨ ­¥â, ⮠ᮧ¤ ­¨¥ ¡ãä¥à 
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,x3008 ; ¤à¥á â ¡«¨æë  ¤à¥á®¢ ¯®¤¯à®£à ¬¬
DEC C ;ª®¬ ­¤ë áç¨â âì á ­ã«ï
SLA C ;㬭®¦¥­¨¥ ­®¬¥à  ¯®¤¯à®£à ¬¬ë ­  2
ADD HL,BC ;®¯à¥¤¥«¥­¨¥  ¤à¥á  ¢ â ¡«¨æ¥
LD E,(HL) ;¡¥à¥¬  ¤à¥á ¯®¤¯à®£à ¬¬ë
INC HL
LD D,(HL)
EX DE,HL ;¯¥à¥­®á¨¬ ¥£® ¢ HL
PUSH HL ;á®å࠭塞 ¥£®
LD DE,x0359 ;¢®§¢à â ¡ã¤¥â ¢ #359
PUSH DE
JP (HL) ;¢ë§®¢ ¯®¤¯à®£à ¬¬ë
x0359 LD HL,#5C3B ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
SET 7,(HL)
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ¯®¤¯à®£à ¬¬ë
JP (HL) ;¢ë§®¢ ¯®¤¯à®£à ¬¬ë
;€¤à¥á #360. ’¥ªáâ § áâ ¢ª¨ TR-DOS.
x0360 DB #16,1,#5
DB "* TR-DOS Ver 5.03 *"
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. ‡ ¢¥à襭¨¥ ¢ë¤ ç¨ ª â «®£ .
x03AC CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
CALL x3D80 ;¥é¥ à §
LD BC,(#5E0A) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᢮¡®¤­ëå ᥪâ®à®¢ ­  ¤¨áª¥
CALL x1DA9 ;¯¥ç âì ¥£®
LD HL,x29D2 ;¯¥ç âì FREE
RST #18
;€¤à¥á #3C0. <20>¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ § ¢¥à襭¨ï.
x03C0 JP x01D3
;€¤à¥á #3C3. <20>¥ç âì á®®¡é¥­¨ï ®¡ ®è¨¡ª¥. ‚ HL ãáâ ­®¢¨â¥  ¤à¥á á®®¡é¥­¨ï, ¢ A - ª®¤ ®è¨¡ª¨.
x03C3 PUSH AF ;á®åà ­¥­¨¥ ª®¤  ®è¨¡ª¨
LD A,(#5D0E) ;®è¨¡ª  ¯à®¨§®è«  ¯à¨  ¢â®§ £à㧪¥?
CP #FE
JR NZ,x03CD ;¥á«¨ ­¥â, â® ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
POP AF ;á­ï⨥ á® á⥪  ª®¤  ®è¨¡ª¨
RET ;¢®§¢à â
x03CD POP AF ;¢®ááâ ­®¢«¥­¨¥ ª®¤  ®è¨¡ª¨
LD (#5D0F),A ;ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
LD A,(#5D15) ;¯¥ç âì á®®¡é¥­¨© à §à¥è¥­ ?
OR A
CALL Z,x2707 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
;Žè¨¡ª !!! <20>¥à¥¤ ¯¥ç âìî ­ ¤® ®âªàëâì ¯®â®ª 0 ¨ ®ç¨áâ¨âì ­¨§ íªà ­ .
RET ;¢®§¢à â
x03D9 LD HL,x2A28
LD A,1
JP x1C4A
;€¤à¥á #3E1. ‚뢮¤ á®®¡é¥­¨ï O.K.
x03E1 LD HL,x2766 ; ¤à¥á á®®¡é¥­¨ï O.K.
XOR A ;ª®¤ ®è¨¡ª¨ - 0
JP x1C4A ;¢ë¤ ç  á®®¡é¥­¨ï ¨ § ¢¥à襭¨¥
;€¤à¥á #3E8. ‡ £à㧪  ᥪâ®à  0 ¤®à®¦ª¨ 0 ¢ ¡ãä¥à. Ž¡­ã«ï¥â #5CCC. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#3EC - § £à㧪  ᥪâ®à  ¤®à®¦ª¨ 0 ¢ ¡ãä¥à. “áâ ­®¢¨â¥ #5CCC.
;#3F2 - § £à㧪  ᥪâ®à  ¢ ¡ãä¥à, ­®¬¥à ᥪâ®à  ¢ E, ¤®à®¦ª¨ ? ¢ D).
x03E8 XOR A ;⥪ã騩 ᥪâ®à 0
LD (#5CCC),A
x03EC LD DE,(#5CCC) ;¡¥à¥¬ ­®¬¥à ᥪâ®à 
LD D,0 ;¤®à®¦ª  0
x03F2 CALL x294A ;ᮧ¤ ­¨¥ ¡ãä¥à 
LD HL,#5D25 ;§ £à㦠âì ¢ ¡ãä¥à
LD B,1 ;1 ᥪâ®à
JP x1E3D ;§ £à㧪  ᥪâ®à 
;€¤à¥á #3FD. ‡ £à㧪  ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0. “áâ ­®¢¨â¥ #5D0C.
x03FD CALL x294A ;ᮧ¤ ­¨¥ ¡ãä¥à , ¥á«¨ ¥£® ­¥â
LD DE,8 ;¤®à®¦ª  0, ᥪâ®à 8
JR x03F2 ;§ £à㧪  ᥪâ®à  ¢ ¡ãä¥à
;€¤à¥á #405. <20> áâனª  ­  ¤¨áª. Œ¥­ï¥â ¯¥à¥¬¥­­ãî á ⨯®¬ ¤¨áª®¢®¤ .
x0405 CALL x03FD ;ç⥭¨¥ ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
LD A,(#5E0C) ;¤¨áª ®â TR-DOS?
CP #10
JR Z,x0415 ;¥á«¨ ¤ , â® ãáâ ­®¢ª  ⨯  ¤¨áª®¢®¤ 
LD HL,x29E2 ; ¤à¥á á®®¡é¥­¨ï DISC ERROR
RST #18 ;¯¥ç âì á®®¡é¥­¨ï
JR x03C0 ;§ ¢¥à襭¨¥
;‚­¨¬ ­¨¥, ®è¨¡ª !!! <20>¥¯à ¢¨«ì­® ®¡à ¡ â뢠¥âáï ®è¨¡ª . ‡¤¥áì ¯à®£à ¬¬  ¤®«¦­  ¡ëâì â ª®©:
; LD HL,#29E2
; LD A,7
; JP #1C4A
;€ ¢ í⮬ á«ãç ¥ ¢ è  ¯à®£à ¬¬  ­¥ ¯®«ãç¨â ª®¤ ®è¨¡ª¨,   ¢­¨§ã íªà ­  ᮢ¥à襭­® ­¥ ª ¬¥áâã ¯®ï¢¨âáï DISC ERROR.
x0415 CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
RES 0,(HL) ;ãáâ ­®¢ª  ⨯  ¤¨áª®¢®¤  ¯®¤ ⨯ ¤¨áª 
RES 1,(HL) ;¨ ¢®§¢à â
LD A,(#5E08)
BIT 0,A
JR NZ,x0425
SET 0,(HL)
x0425 BIT 3,A
RET NZ
SET 1,(HL)
RET
;Žè¨¡ª !!! <20>¥à¥¤ ãáâ ­®¢ª®© ⨯  ­ ¤® ¡ë ¯à®¢¥à¨âì ᮢ¬¥á⨬®áâì ¤¨áª  ¨ ¤¨áª®¢®¤ .
;€¤à¥á #42B. <20>஢¥àª  ¢â®à®£® ᨬ¢®«  ª®¬ ­¤­®© áâப¨. ‚室: ãáâ ­®¢¨â¥ #5D11. <20>  ¢ë室¥ ¡ã¤¥â ãáâ ­®¢«¥­ ä« £ Z, ¥á«¨ íâ® ENTER ¨ á¡à®è¥­, ¥á«¨ ­¥â.
x042B LD HL,(#5D11) ;¡¥à¥¬  ¤à¥á ­ ç «  áâப¨ ª®¬ ­¤ë
INC HL ;¡¥à¥¬  ¤à¥á ¥¥ ¢â®à®£® ᨬ¢®« 
LD A,(HL) ;¡¥à¥¬ íâ®â ᨬ¢®«
CP #D ;áà ¢­¥­¨¥ ¥£® á ENTER
RET ;¢®§¢à â
;€¤à¥á #433. ‚믮«­¥­¨¥ ª®¬ ­¤ë CAT. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#479 (¢ë¢®¤ ª â «®£  ¤¨áª ; ¢ A - ­®¬¥à ¯®â®ª , ¢ ¡ãä¥à¥ - ᥪâ®à 8 ¤®à®¦ª¨ 0).
x0433 CALL x042B ;¢â®à®© ᨬ¢®« áâப¨ ª®¬ ­¤ë ENTER?
LD BC,2 ;ª â «®£ ¢ë¢®¤¨âì ¢ ¯®â®ª 2
LD (#5CDB),BC
JR Z,x046A ;¥á«¨ ¢â®à®© ᨬ¢®« áâப¨ ENTER, â® ¢ë¢®¤ ª â «®£ 
CP "#" ;¢â®à®© ᨬ¢®« áâப¨ "#"?
JR NZ,x045D ;¥á«¨ ­¥â, â® ãáâ ­®¢ª  ¤¨áª®¢®¤  ¨ ¢ë¢®¤ ª â «®£ 
LD (#5C5D),HL ;ãáâ ­®¢ª  CH_ADD ­  ¢â®à®© ᨬ¢®« áâப¨
CALL x1E0B ;ãáâ ­®¢ª  ­®¬¥à  ¯®â®ª 
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP #D ;íâ® ENTER?
JR Z,x046A ;¥á«¨ ¤ , â® ¢ë¢®¤ ª â «®£ 
CP "," ;íâ® § ¯ïâ ï?
JP NZ,x1D1A ;¥á«¨ ­¥â, ⮠ᨭ⠪á¨ç¥áª ï ®è¨¡ª 
CALL x1E2A ;¡¥à¥¬ á«¥¤ãî騩 ᨬ¢®«
CALL x1DBD ;¯®¬¥é¥­¨¥ ¨¬¥­¨ ¤¨áª®¢®¤  ­  á⥪ ª «ìªã«ïâ®à 
JR x0460 ;ãáâ ­®¢ª  ¤¨áª®¢®¤  ¨ ¢ë¢®¤ ª â «®£ 
x045D CALL x1DDF ;ãáâ ­®¢ª  CH_ADD ¨ ¯®¬¥é¥­¨¥ ¨¬¥­¨ ¤¨áª®¢®¤  ­  á⥪ ª «ìªã«ïâ®à 
x0460 CALL x1D75 ;¥á«¨ áâப  ¯à®¢¥àï¥âáï ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x1DB5 ;á­ï⨥ ¨¬¥­¨ ¤¨áª®¢®¤  á® á⥪  ª «ìªã«ïâ®à 
EX DE,HL
CALL x1C81 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
x046A CALL x1D75 ;¥á«¨ ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,(#5CF6) ;¯®¬¥é¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤  ¢ #5CF9
LD (#5CF9),A
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à ¯®â®ª 
x0479 CP 2 ;¢ë¢®¤¨¬ ¢ ¯®â®ª 2?
PUSH AF ;á®åà ­¥­¨¥ ­®¬¥à  ¯®â®ª 
CALL Z,x1D97 ;¥á«¨ ­ §­ ç¥­ ¯®â®ª 2, â® ®ç¨á⪠ íªà ­ 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ¯®â®ª 
CP #11 ;®­ ¡®«ìè¥ #10?
;Žè¨¡ª !!! ‚ᥣ® ¯®â®ª®¢ #F,   ­¥ #10.
JP NC,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
CALL x1D84 ;®âªàë⨥ ¯®â®ª 
;Žè¨¡ª !!! <20> ¤® ¡ë ¯à®¢¥à¨âì, ¯®¤ª«î祭 «¨ ªã¤ -­¨¡ã¤ì íâ®â ¯®â®ª.
LD A,#FF ;ãáâ ­®¢ª  #5CF8 ¢ #FF
LD (#5CF8),A
LD HL,x29F7 ;¯¥ç âì TITLE:
RST #18
LD HL,#5E1A ;¯¥ç âì ¨¬¥­¨ ¤¨áª 
RST #18
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
LD A,(#5E09) ;¢ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ­¥áâ¥àâëå ä ©«®¢ ­  ¤¨áª¥
LD HL,#5E19
SUB (HL)
PUSH HL
CALL x1DA3 ;¯¥ç âì ¥£®
LD HL,x2A2B ;¯¥ç âì FILES
RST #18
POP HL
LD C,(HL) ;¡¥à¥¬ ª®«¨ç¥á⢮ áâ¥àâëå ä ©«®¢
CALL x1DA4 ;¯¥ç âì ¥£®
LD HL,x2A1D ;¯¥ç âì DEL.FILES
RST #18
CALL x03E8 ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  0 ¤®à®¦ª¨ 0
LD HL,#5D25 ;¡¥à¥¬ ­ ç «® ¡ãä¥à 
x04B6 CALL x04F6 ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ª â «®£ 
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
LD A,(#5CF6) ;¯¥ç âì ¨¬¥­¨ ¤¨áª®¢®¤ 
ADD A,"A"
RST #10
LD B,2 ;¯¥ç â ¥¬ ¯® 2 ¨¬¥­¨ ¢ áâப¥
x04C4 CALL x04F6 ;¥á«¨ ä ©« áâ¥àâ, â® ¯à®¯ã᪠¥£®
PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ¨¬¥­ ä ©«®¢ ¢ áâப¥
LD A,":" ;¯¥ç âì ¤¢®¥â®ç¨ï
RST #10
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  ⥪ã饣® ®¯¨á â¥«ï ä ©«  ¢ ¡ãä¥à¥
CALL x2938 ;¯¥ç âì ¨¬¥­¨ ¨ à áè¨à¥­¨ï ä ©« 
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,x04DF
DEC B
x04DF CP #64
JR NC,x04E8
x04E3 LD A," " ;¯¥ç âì ¯à®¡¥«®¢
RST #10
DJNZ x04E3
x04E8 POP BC ;¢®ááâ ­®¢«¥­¨¥ à §¬¥à  ä ©« 
CALL x1DA9 ;¯¥ç âì ¥£®
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ⥪ã饣® ®¯¨á â¥«ï ä ©« 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ¨¬¥­ ä ©«®¢ ¢ áâப¥
LD DE,#10 ;á«¥¤ãî騩 ®¯¨á â¥«ì
ADD HL,DE
DJNZ x04C4 ;¥á«¨ ­ ¯¥ç â «¨ ⮫쪮 1 ä ©«, â® ¯¥ç âì ¢â®à®£®
JR x04B6 ;á«¥¤ãîé ï áâப 
;€¤à¥á #4F6. <20>஢¥àª  ¯¥à¥¬¥­­®© #5CF9 ¨ ¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ª â «®£  ¯à¨ ¥£® ¯¥ç â¨.
x04F6 PUSH HL ;á®åà ­¥­¨¥ HL ¨ BC
PUSH BC
LD A,(#5CF9) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤  ¤«ï ¢ë¤ ç¨ ª â «®£ 
LD HL,#5CF6 ;­ §­ ç¥­ íâ®â ¤¨áª®¢®¤?
CP (HL)
CALL NZ,x3DCB ;¥á«¨ ­¥â, â® ® ¯®á«¥¤á⢨ïå ç¨â ©â¥ ¢ ª®­æ¥
;Žè¨¡ª  ¢ ¯à®£à ¬¬¥!!! Ž¡ í⮬ ®á®¡® ¢ ª®­æ¥ ⥪áâ .
POP BC ;¢®ááâ ­®¢«¥­¨¥ HL ¨ BC
POP HL
JP x2FC6 ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ª â «®£  ¨ ¢®§¢à â
;Ž¡à â¨â¥ ®á®¡®¥ ¢­¨¬ ­¨¥ ­  ª®¬ ­¤ã CALL NZ,#3DCB. ‚  ­ «®£¨ç­®© ¯®¤¯p®£p ¬¬¥ ¤«ï LIST á⮨â CALL NZ,#3DCB. ‚ ­ è¥¬ ¦¥ á«ãç ¥ ã¯p ¢«¥­¨¥ ¡ã¤¥â ¯¥à¥¤ ­® ¢ ¯®¤¯à®£à ¬¬ã ¯¥ç â¨ ᨬ¢®«  (¥¥  ¤à¥á #3D80) ­   ¤à¥á, £¤¥ ­ å®¤ïâáï 2 ¡ ©â   ¤à¥á  ®â ª®¬ ­¤ë CALL #3D94. <20>ணࠬ¬  á í⮣®  ¤à¥á  ¡ã¤¥â â ª®©:
;SUB H
;DEC A
;CALL #20F1
;POP DE
;POP BC
;POP HL
;RET
;’ ª¨¬ ®¡à §®¬, ¯à®¨§®©¤¥â ¨§¬¥­¥­¨¥ ¯ ¬ïâ¨, ¥á«¨ ®­® à §à¥è¥­®, § â¥¬ á® á⥪  ¡ã¤ãâ á­ïâë 3  ¤à¥á  ¨ ¯®¬¥é¥­ë ¢ ॣ¨áâàë ¨ § â¥¬ ¯à®¨§®©¤¥â ¢®§¢à â. <20>®á«¥¤áâ¢¨ï ¢á¥£® í⮣® ®¯à¥¤¥«ïîâáï ¯à®£à ¬¬®©, ¢ë§¢ ¢è¥© #4F6.
;€¤à¥á #507. <20>ਡ ¢«¥­¨¥ #10 ª HL.
x0507 LD DE,#10
ADD HL,DE
RET
;€¤à¥á #50C. <20>஢¥àª  ¨ ®¡à ¡®âª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à  ¯à¨ à ¡®â¥ á ª â «®£®¬. “áâ ­®¢¨â¥ #5CCC ¨ ¯®¬¥áâ¨â¥ ¢ HL ⥪ã饥 ¬¥áâ® ¡ãä¥à . …᫨ ¤®á⨣­ãâ ¥£® ª®­¥æ, â® ¢ HL ¡ã¤¥â ­ ç «® ¡ãä¥à  ¨ ¢ ­¥£® ¡ã¤¥â § £à㦥­ á«¥¤ãî騩 ᥪâ®à ª â «®£ .
x050C PUSH HL ;á®åà ­¥­¨¥ HL ¨ BC
PUSH BC
LD BC,#A1DB ;¤®á⨣­ãâ ª®­¥æ ¡ãä¥à ?
ADD HL,BC
JR C,x0517 ;¥á«¨ ¤ , â® § £à㧪  á«¥¤ãî饣® ᥪâ®à 
POP BC ;¢®ááâ ­®¢«¥­¨¥ HL ¨ BC
POP HL
RET ;¢®§¢à â
x0517 LD HL,#5CCC ;á«¥¤ãî騩 ᥪâ®à
INC (HL)
CALL x03EC ;§ £à㧪  ¥£® ¢ ¡ãä¥à
POP BC ;¢®ááâ ­®¢«¥­¨¥ BC ¨ HL
POP HL
LD HL,#5D25 ;¯®¬¥é¥­¨¥ ¢ HL  ¤à¥á  ­ ç «  ¡ãä¥à 
RET ;¢®§¢à â
;€¤à¥á #524. ‚ëç¨á«¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤  ¯® ¥£® ¨¬¥­¨. ˆ¬ï ¯®¬¥áâ¨â¥ ¢ €, ­  ¢ë室¥ â ¬ ¡ã¤¥â ­®¬¥à.
x0524 AND #DF ;¡ãª¢  § £« ¢­ ï
SBC A,#41 ;¢ëç¨á«¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤ 
JP C,x1D1A ;¥á«¨ ¨¬¥­¥¬ ¡ë« ᨬ¢®« ¬¥­ìè¥ "A", â® ®è¨¡ª 
CP 4 ;­®¬¥à ¯®«ã稫áï ¡®«ìè¥ 3?
JP NC,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
RET ;¢®§¢à â
x0531 CALL x1DB5
LD A,C
CP B
JP Z,x1D1A
RET
;€¤à¥á #53A. ‚믮«­¥­¨¥ ª®¬ ­¤ë NEW. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #569 (§ ¯¨áì ¨­ä®à¬ æ¨¨ ® ä ©«¥; ­®¬¥à ä ©«  § ¤ ©â¥ ¢ ॣ¨áâॠC).
x053A CALL x1DCD ;¯à¨¥¬ ¨¬¥­ ä ©«®¢ ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
CALL x1CB0 ;ãáâ ­®¢ª  áâ à®£® ¨¬¥­¨ ä ©« 
LD A,(#5CF6) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤ 
LD (#5CF8),A ;á®å࠭塞 ¥£®
JP NZ,x03D9 ;¥á«¨ ä ©« ­¥ ­ ©¤¥­, â® ®è¨¡ª 
PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
CALL x165D ;§ £à㧪  ®¯¨á â¥«ï ä ©« 
CALL x1CB0 ;ãáâ ­®¢ª  ­®¢®£® ¨¬¥­¨ ä ©« 
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨ ¨¬¥­¨ ä ©« 
LD A,(#5CF8) ;¢ ­®¢®¬ ¨¬¥­¨ ä ©«  ­ §­ ç¥­ ¤à㣮© ¤¨áª®¢®¤
LD HL,#5CF6
CP (HL)
JP NZ,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
CALL x0405 ;­ áâனª  ­  ¤¨áª
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨ ¨¬¥­¨ ä ©« 
JP Z,x1C50 ;¥á«¨ â ª®© ä ©« 㦥 ¥áâì, â® ®è¨¡ª 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
x0569 CALL x166B ;§ £à㧪  ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©«  ¨ § ¬¥­  ®¯¨á â¥«ï
CALL x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à 
JP x03E1 ;á®®¡é¥­¨¥ O.K.
;€¤à¥á #572. <20>஢¥àª  ¯¥à¥¬¥­­®© #5D10. ‘®®â¢¥âá⢥­­® ᮤ¥à¦¨¬®¬ã ¡ã¤¥â ãáâ ­®¢«¥­ ä« £ Z,   á ¬® ᮤ¥à¦¨¬®¥ ¡ã¤¥â ¢  ªªã¬ã«ïâ®à¥.
x0572 LD A,(#5D10)
OR A
RET
;€¤à¥á #577. <20>஢¥àª  ª®«¨ç¥á⢠ áâ¥àâëå ä ©«®¢. “áâ ­®¢¨â¥ #5D11. …᫨ â ¬ 0, â® ¡ã¤¥â á®®¡é¥­¨¥ NO FILE, ¨­ ç¥ O.K.
x0577 LD A,(#5D07) ;¡¥à¥¬ ª®«¨ç¥á⢮ áâ¥àâëå ä ©«®¢
OR A ;®­® à ¢­® 0?
JP Z,x03D9 ;¥á«¨ ¤ , â® NO FILE
JP x03E1 ;¨­ ç¥ O.K.
;€¤à¥á #581. ‡ ¯à®á ­  áâ¨à ­¨¥ ä ©« . “áâ ­®¢¨â¥ #5CDD ¨ #5CF6,   ¢ ॣ¨áâà C ¯®¬¥áâ¨â¥ ­®¬¥à ä ©« . <20>ਠ®â¢¥â¥ Y ä ©« ¡ã¤¥â áâ¥àâ ¨ ¢ª«îç¨âáï ä« £ Z, ¨­ ç¥ ®­ ¡ã¤¥â ¢ëª«î祭.
x0581 PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
CALL x1D97 ;®ç¨á⪠ íªà ­  ¨ ®âªàë⨥ ¯®â®ª  0.
LD A,(#5CF6) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤ 
ADD A,"A" ;¢ëç¨á«ï¥¬ ¨¬ï ¤¨áª®¢®¤ 
CALL x3D82 ;¯¥ç âì ¥£®
LD A,":" ;¯¥ç âì ¤¢®¥â®ç¨ï
CALL x3D82
LD HL,#5CDD ; ¤à¥á ¯¥à¥¬¥­­®© á ¨¬¥­¥¬ ¨ à áè¨à¥­¨¥¬ ä ©« 
CALL x2938 ;¯¥ç âì ¨¬¥­¨ ¨ à áè¨à¥­¨ï ä ©« 
LD HL,x2820 ;¯¥ç âì FILE EXISTS. OVERWRITE?
CALL x2707
CALL x1052 ;¢¢®¤ ª« ¢¨è¨
CP "Y" ;íâ® "Y"?
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL x1D97 ;®ç¨á⪠ íªà ­ 
POP AF ;¢®ááâ ­®¢«¥­¨¥ AF ¨ ­®¬¥à  ä ©« 
POP BC
RET NZ ;¥á«¨ ¡ë« ®â¢¥â N, â® ¢®§¢à â
PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
CALL x1D97 ;®ç¨á⪠ íªà ­ 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
CALL x0781 ;áâ¨à ­¨¥ ä ©« 
XOR A ;¢ª«î祭¨¥ ä« £  Z
RET ;¢®§¢à â
;€¤à¥á #5B4. <20>஢¥àª  ­  áãé¥á⢮¢ ­¨¥ ¡«®ª  ä ©«  á à áè¨à¥­¨¥¬ #. “áâ ­®¢¨â¥ #5CDD, #5CE5 ¨ #5CE6. …᫨ ¡«®ª ­ ©¤¥­ ¨«¨ ã ä ©«  ¤à㣮¥ à áè¨à¥­¨¥, â® ¢ª«îç ¥âáï ä« £ Z, ¨­ ç¥ ®­ ¡ã¤¥â ¢ëª«î祭.
x05B4 LD A,(#5CE5) ;¡¥à¥¬ à áè¨à¥­¨¥ ä ©« 
CP "#" ;íâ® "#"?
JR Z,x05BD ;¥á«¨ ­¥â, â®
XOR A ;¢ª«î祭¨¥ ä« £  Z
RET ;¨ ¢®§¢à â
x05BD LD A,#A ;ä ©« ¨é¥¬ ¯® #A ¡ ©â ¬
LD (#5D06),A
CALL x1CB3 ;¯®¨áª ä ©« 
LD A,9 ;ä ©« ¨é¥¬ ¯® 9 ¡ ©â ¬
LD (#5D06),A
RET ;¢®§¢à â
;€¤à¥á #5CB. ‚믮«­¥­¨¥ ª®¬ ­¤ë COPY "*","*". <20>¥à¢ãî §¢¥§¤®çªã ¯®¬¥áâ¨â¥ ¢ #5CDD, ¢â®àãî - ­  á⥪ ª «ìªã«ïâ®à  ¨ ãáâ ­®¢¨â¥ #5CF8, #5D23 ¨ #5CCF.
x05CB LD A,(#5CDD) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
CP "*" ;íâ® "*"?
JP NZ,x03D9 ;¥á«¨ ­¥â, â® NO FILE
CALL x1DB5 ;á­ï⨥ áâப¨ á® á⥪  ª «ìªã«ïâ®à 
EX DE,HL
CALL x1C81 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ -¯à¨¥¬­¨ª 
LD A,(HL) ;¡¥à¥¬ á«¥¤ãî騩 ᨬ¢®« áâப¨
CP "*" ;íâ® "*"?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
LD A,(#5CF6) ;á®åà ­¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤ -¯à¨¥¬­¨ª 
LD (#5CF9),A
LD A,(#5CF9) ;¢ë¡®à ¤¨áª®¢®¤ -¯à¨¥¬­¨ª 
CALL x3DCB
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,#FF ;­ ç­¥¬ á ä ©«  0
LD (#5D0D),A
x05F4 LD A,(#5CF8) ;¢ë¡®à ¤¨áª®¢®¤ -¨áâ®ç­¨ª 
CALL x3DCB
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5D0D) ;á«¥¤ãî騩 ä ©«
INC A
LD (#5D0D),A
LD C,A
CALL x165D ;ç⥭¨¥ ¥£® ®¯¨á â¥«ï
LD A,(#5CDD) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¥£® ¨¬¥­¨
CP 0 ;íâ® ª®­¥æ ª â «®£ ?
JP Z,x03E1 ;¥á«¨ ¤ , â® O.K.
CP 1 ;ä ©« áâ¥àâ?
JR Z,x05F4 ;¥á«¨ ¤ , â® á«¥¤ãî騩 ä ©«
LD HL,#5CE6 ;á®åà ­¥­¨¥ ç á⨠®¯¨á â¥«ï ä ©« 
LD DE,#5CED
LD BC,7
LDIR
LD A,(#5CF9) ;¢ë¡®à ¤¨áª®¢®¤ -¯à¨¥¬­¨ª 
CALL x3DCB
CALL x1CB3 ;¯®¨áª ä ©« 
JR NZ,x0634 ;¥á«¨ ­¥ ­ è«¨, â® ª®¯¨à®¢ ­¨¥ ä ©« 
CALL x05B4 ;¯à®¢¥àª  ä ©«  á à áè¨à¥­¨¥¬ "#"
JR NZ,x0634 ;¥á«¨ ª®¯¨àã¥âáï ¤à㣮© ¡«®ª, â® ª®¯¨à㥬 ¥£®
CALL x0581 ;§ ¯à®á OVERWRITE?
JR NZ,x05F4 ;¥á«¨ ¡ë« ®â¢¥â N, â® á«¥¤ãî騩 ä ©«
x0634 CALL x063C ;ª®¯¨à®¢ ­¨¥ ä ©« 
CALL x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©« 
JR x05F4 ;¯®¢â®à ¤® ª®­æ  ª â «®£ 
;€¤à¥á #63C. Š®¯¨à®¢ ­¨¥ ä ©«  ¯à¨ ¤¢ãå ¤¨áª®¢®¤ å. <20>®¬¥áâ¨â¥ ®¯¨á â¥«ì ä ©«  ¢ #5CDD ¨ ¥£® ç áâì ¢ #5CED.
x063C CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
LD A,(#5E09) ;¡¥à¥¬ ª®«¨ç¥á⢮ ä ©«®¢ ­  ¤¨áª¥
CP #80 ;㦥 ¥áâì #80 ä ©«®¢?
JP Z,x1C45 ;¥á«¨ ¤ , â® NO SPACE
;Žè¨¡ª !!! <20> ¤® ¢ë¢®¤¨âì 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,x1C45 ;¥á«¨ ¬¥áâ  ­¥ 墠⨫®, â® NO SPACE
LD (#5E0A),HL ;ãáâ ­®¢ª  ­®¢®£® ª®«¨ç¥á⢠ ᢮¡®¤­ëå ᥪâ®à®¢
LD HL,(#5E06) ;¡¥à¥¬  ¤à¥á ᢮¡®¤­®£® ¯à®áâà ­á⢠ ­  ¤¨áª¥
LD (#5CEB),HL ;ãáâ ­®¢ª   ¤à¥á  ä ©«  ­  ¤¨áª¥
PUSH HL ;á®åà ­¥­¨¥ ¥£®
CALL x072F ;ª®¯¨à®¢ ­¨¥ ä ©« 
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 x1E43 ;§ ¯¨áì ᥪâ®à 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
CALL x166B ;ãáâ ­®¢ª  ®¯¨á â¥«ï ä ©« 
RET ;¢®§¢à â
;€¤à¥á #690. ‚믮«­¥­¨¥ ª®¬ ­¤ë COPY. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x0690 LD HL,(#5D11) ;¡¥à¥¬  ¤à¥á ¢â®à®£® ᨬ¢®«  ª®¬ ­¤­®© áâப¨
INC HL
LD A,(HL) ;¡¥à¥¬ íâ®â ᨬ¢®«
AND #DF ;¡ãª¢  § £« ¢­ ï
CP "S" ;íâ® "S"?
JP Z,x1360 ;¥á«¨ ¤ , â® ª®¯¨à㥬 1 ä ©« ­  ®¤­®¬ ¤¨áª®¢®¤¥
CP "B" ;íâ® "B"?
JP Z,x152C ;¥á«¨ ¤ , â® ª®¯¨à®¢ ­¨¥ ¢á¥£® ¤¨áª  ­  ®¤­®¬ ¤¨áª®¢®¤¥
CALL x1DCD ;¯à¨¥¬ ¨¬¥­ ä ©«®¢
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x166F ;¢ë¤¥«¥­¨¥ ¬¥áâ  ¢ ¯ ¬ïâ¨
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
CALL x1CB0 ;ãáâ ­®¢ª  áâ à®£® ¨¬¥­¨ ä ©« 
LD A,(#5CF6) ;á®åà ­¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤  - ¨áâ®ç­¨ª 
LD (#5CF8),A
JP NZ,x05CB ;¥á«¨ ä ©« ­¥ ­ ©¤¥­, â® ¯à®¢¥àª  COPY "*","*"
;Žè¨¡ª !!! COPY "*","*" ­ ¤® ¯à®¢¥àïâì ¢á¥£¤ , ¨­ ç¥ ¯à¨ ­ «¨ç¨¨ ­  ¤¨áª¥ ä ©«  á ¨¬¥­¥¬ "*" ᪮¯¨àã¥âáï ⮫쪮 íâ®â ä ©«,   ¢ 楫®¬ âãâ ¤®«¦­® ¡ëâì â ª:
;LD (#5CF8),A
;PUSH AF
;CALL #5CB
;POP AF
;JP NZ,#3D9
;€ ¢ ¯®¤¯à®£à ¬¬¥ #5CB ¢¬¥áâ® JP NZ,#3D9 ¤®«¦­® ¡ëâì RET NZ.
CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
LD HL,#5CE6 ;á®åà ­¥­¨¥ ¥£® ç áâ¨
LD DE,#5CED
LD BC,7
LDIR
CALL x1CB0 ;ãáâ ­®¢ª  ­®¢®£® ¨¬¥­¨ ä ©« 
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
PUSH BC ;¨ ­®¬¥à  ä ©« 
LD A,(#5CF6) ;á®åà ­¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤  - ¯à¨¥¬­¨ª 
LD (#5CF9),A
LD A,(#5CF8) ;¢ë¡®à ¤¨áª®¢®¤  - ¨áâ®ç­¨ª 
CALL x3DCB
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5CF9) ;¢ë¡®à ¤¨áª®¢®¤  - ¯à¨¥¬­¨ª 
CALL x3DCB
CALL x0405 ;­ áâனª  ­  ¤¨áª
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
POP AF ;¨ १ã«ìâ â  ¯à®¢¥àª¨ ­®¢®£® ¨¬¥­¨ ä ©« 
JR NZ,x06F3 ;¥á«¨ ä ©« ­¥ ­ ©¤¥­, â® ª®¯¨à®¢ ­¨¥ ä ©« 
CALL x05B4 ;¯à®¢¥àª  ä ©«  á à áè¨à¥­¨¥¬ "#"
JR NZ,x06F3 ;¥á«¨ ª®¯¨àã¥âáï ¤à㣮© ¡«®ª, â® ª®¯¨à㥬 ¥£®
CALL x0581 ;§ ¯à®á OVERWRITE?
JP NZ,x03E1 ;¥á«¨ ¡ë« ®â¢¥â N, â® O.K.
x06F3 CALL x063C ;ª®¯¨à®¢ ­¨¥ ä ©« 
CALL x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©« 
LD A,(#5CE5) ;¡¥à¥¬ à áè¨à¥­¨¥ ä ©« 
CP "#" ;íâ® "#"?
JP NZ,x03E1 ;¥á«¨ ­¥â, â® O.K.
LD A,#A ;ä ©« ¨áª âì ¯® #A ¡ ©â ¬
LD (#5D06),A
LD HL,#5CE6 ;á«¥¤ãî騩 ¡«®ª
INC (HL)
LD A,(#5CF8) ;¢ë¡®à ¤¨áª®¢®¤  - ¨áâ®ç­¨ª 
CALL x3DCB
CALL x05B4 ;¯®¨áª ¡«®ª 
JP NZ,x03E1 ;¥á«¨ ­¥ ­ è«¨, â® O.K.
CALL x165D ;ç⥭¨¥ ¥£® ®¯¨á â¥«ï
LD HL,#5CE6 ;á®åà ­¥­¨¥ ¥£® ç áâ¨
LD DE,#5CED
LD BC,7
LDIR
LD A,(#5CF9) ;¢ë¡®à ¤¨áª®¢®¤  - ¯à¨¥¬­¨ª 
CALL x3DCB
CALL x0405 ;­ áâனª  ­  ¤¨áª
JR x06F3 ;¯®¢â®à
;€¤à¥á #72F. Š®¯¨à®¢ ­¨¥ ä ©«  ¯à¨ ¤¢ãå ¤¨áª®¢®¤ å. “áâ ­®¢¨â¥
;#5CF1, #5D23, #5CF8, #5CF9, #5CF2, #5CCF ¨ #5CEB.
x072F LD A,(#5CF1) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᥪâ®à®¢
OR A ;¢á¥ ᪮¯¨à®¢ «¨?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ; ¤à¥á ¯¥à¥¬¥­­®© á ¤«¨­®© à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨
SUB (HL) ;®¡« á⨠墠â¨â?
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
JR NC,x0775 ;¥á«¨ à ¡®ç¥© ®¡« á⨠­¥ 墠â¨â, â® ª®¯¨à㥬 ç áâì ä ©« 
LD A,(#5CF1) ;ª®¯¨à㥬 ¢¥áì ®áâ â®ª
LD B,A
XOR A ;᪮¯¨à®¢ «¨ ¢á¥
LD (#5CF1),A
x0744 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®p®¢
LD A,(#5CF8) ;¢ë¡®à ¤¨áª®¢®¤ -¨áâ®ç­¨ª 
CALL x3DCB
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®à®¢
PUSH BC ;¨ á­®¢  á®åà ­¥­¨¥ ¥£®
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨
PUSH HL ;á®å࠭塞 ¥£®
LD DE,(#5CF2) ;¡¥à¥¬  ¤à¥á ç á⨠䠩«  ­  ¤¨áª¥-¨áâ®ç­¨ª¥
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 £à㯯ë ᥪâ®à®¢
LD (#5CF2),HL ;­  ¤¨áª¥-¨áâ®ç­¨ª¥
LD A,(#5CF9) ;¢ë¡®à ¤¨áª®¢®¤ -¯à¨¥¬­¨ª 
CALL x3DCB
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨
POP BC ;¨ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®à®¢
LD DE,(#5CEB) ;¡¥à¥¬  ¤à¥á ç á⨠䠩«  ­  ¤¨áª¥-¯à¨¥¬­¨ª¥
CALL x1E4D ;§ ¯¨áì ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 £à㯯ë ᥪâ®à®¢
LD (#5CEB),HL ;­  ¤¨áª¥-¯à¨¥¬­¨ª¥
JR x072F ;¯®¢â®à
x0775 LD (#5CF1),A ;ãáâ ­®¢ª  ®á⠢襣®áï ª®«¨ç¥á⢠ ᥪâ®à®¢
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ;ª®¯¨à㥬 á⮫쪮 ᥪâ®à®¢, ᪮«ìª®
LD B,(HL) ;¯®¬¥áâ¨âáï ¢ à ¡®çãî ®¡« áâì
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
XOR A ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à 
JR x0744 ;ª®¯¨à®¢ ­¨¥ ᥪâ®à®¢
;€¤à¥á #781. ‘â¨à ­¨¥ ä ©«®¢. ‚室: ãáâ ­®¢¨â¥ #5CDD, #5CE5, ¨ ¯à®¨§¢¥¤¨â¥ ¯®¨áª ä ©« . <20>ணࠬ¬  ãáâ ­ ¢«¨¢ ¥â #5D08 ¨ #5D07.
x0781 XOR A ;®¡­ã«¥­¨¥ ª®«¨ç¥á⢠ áâ¥àâëå ä ©«®¢
LD (#5D07),A
JR x07A0 ;áâ¨à ­¨¥ ä ©«®¢
;€¤à¥á #787. ‚믮«­¥­¨¥ ª®¬ ­¤ë ERASE. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x0787 CALL x1DDF ;¯à¨¥¬ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
XOR A ;¯®ª  ­¨ç¥£® ­¥ áâ¥àâ®
LD (#5D07),A
CALL x292F ;ãáâ ­®¢ª  ¨ ¯à®¢¥àª  ¨¬¥­¨ áâ¨à ¥¬®£® ä ©« 
CALL x07A0 ;áâ¨à ­¨¥ ä ©« 
JP NZ,x0577 ;¥á«¨ áâ¥à«¨ ä ©« ­¥ ¢ ª®­æ¥ ª â «®£ , â® ¯à®¢¥àª , ᪮«ìª® ä ©«®¢ áâ¥à«¨
JP x03E1 ;á®®¡é¥­¨¥ O.K.
;€¤à¥á #7A0. ‘â¨à ­¨¥ ä ©«®¢. ‚室: ãáâ ­®¢¨â¥ #5CDD, #5CE5, ®¡­ã«¨â¥ #5D07 ¨ ¯à®¨§¢¥¤¨â¥ ¯®¨áª ä ©« . <20>ணࠬ¬  ãáâ ­ ¢«¨¢ ¥â #5D08 ¨ #5D07.
x07A0 LD A,(#5CDD) ;á®åà ­¥­¨¥ ¯¥à¢®£® ᨬ¢®«  ¨¬¥­¨ ä ©« 
LD (#5D08),A
RET NZ ;¥á«¨ ä ©« ­¥ ¡ë« ­ ©¤¥­, â® ¢®§¢à â
LD HL,#5D07 ;áâ¥àâ ¥é¥ ®¤¨­ ä ©«
INC (HL)
PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
CALL x03FD ;ç⥭¨¥ ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
LD A,(#5E09) ;¡¥à¥¬ ª®«¨ç¥á⢮ ä ©«®¢ ­  ¤¨áª¥
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
INC C ;íâ®â ä ©« ¯®á«¥¤­¨©?
CP C
JR NZ,x07BC ;¥á«¨ ­¥â, â® áâ¨à ­¨¥ ®¡ëç­ë¬ ¯®à浪®¬
DEC A ;­  ¤¨áª¥ ⥯¥àì ­  1 ä ©« ¬¥­ìè¥
LD (#5E09),A
XOR A ;áâ¨à ¥¬ë© ä ©« ¢ ª®­æ¥ ª â «®£ 
x07BC PUSH AF ;á®åà ­¥­¨¥ ¯à¨§­ ª  ¬¥â®¤  áâ¨à ­¨ï
JR Z,x07C3 ;¥á«¨ ä ©« ­¥ ¢ ª®­æ¥ ª â «®£ ,
LD HL,#5E19 ;⮠㢥«¨ç¥­¨¥ ­  1 ª®«¨ç¥á⢠ áâ¥àâëå ä ©«®¢
INC (HL)
x07C3 PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  áâ¨à ¥¬®£® ä ©« 
CALL x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  8 ¤®à®¦ª¨ 0
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  áâ¨à ¥¬®£® ä ©« 
DEC C
CALL x165D ;§ £à㧪  ®¯¨á â¥«ï ä ©« 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ä« £  ¬¥â®¤  áâ¨à ­¨ï
JP Z,x07D2 ;¥á«¨ ä ©« ¢ ª®­æ¥ ª â «®£ , â® ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ¡ã¤¥â CHR$ 0
LD A,1 ;¨­ ç¥ ®­ ¡ã¤¥â CHR$ 1
x07D2 LD (#5CDD),A ;ãáâ ­®¢ª  ¯¥à¢®£® ᨬ¢®«  ¨¬¥­¨
PUSH AF ;á®åà ­¥­¨¥ ¬¥â®¤  áâ¨à ­¨ï
CALL x1E40 ;§ ¯¨áì ®¯¨á â¥«ï ä ©« 
LD A,(#5D08) ;¢®ááâ ­®¢«¥­¨¥ ¯¥à¢®£® ᨬ¢®«  ¨¬¥­¨ ä ©« 
LD (#5CDD),A
POP AF ;¢®ááâ ­®¢«¥­¨¥ ¬¥â®¤  áâ¨à ­¨ï
JR Z,x07E7 ;¥á«¨ áâ¥àâ ä ©« ¢ ª®­æ¥ ª â «®£ , ⮠८࣠­¨§ æ¨ï ®¯¨á â¥«ï ¤¨áª 
CALL x1CB3 ;¯®¨áª á«¥¤ãî饣® ä ©«  á â ª¨¬ ¨¬¥­¥¬
JR x07A0 ;áâ¨à ­¨¥ ¥£®, ¥á«¨ ®­ ¥áâì
x07E7 CALL x03FD ;ç⥭¨¥ ᥪâ®à  8 ¤®à®¦ª¨ 0
LD HL,(#5CEB) ;ãáâ ­®¢ª  ­®¢®£® ­ ç «  ᢮¡®¤­®£® ¬¥áâ 
LD (#5E06),HL
LD DE,(#5CEA) ;ãáâ ­®¢ª  ­®¢®£® ª®«¨ç¥á⢠ ᢮¡®¤­ëå ᥪâ®à®¢
LD HL,(#5E0A)
LD D,0
ADD HL,DE
LD (#5E0A),HL
JP x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  8 ¤®à®¦ª¨ 0 ¨ ¢®§¢à â
;€¤à¥á #800. <20>®§¨æ¨®­¨à®¢ ­¨¥ á ¡ëáâன ᪮à®áâìî ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨. <20>®¬¥áâ¨â¥ 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨ ¢ ॣ¨áâà ¤ ­­ëå,   ª®¬ ­¤ã ¯®§¨æ¨®­¨à®¢ ­¨ï - ¢  ªªã¬ã«ïâ®à.
x0800 and #FC ;¯®§¨æ¨®­¨à®¢ âì á ¡ëáâன ᪮à®áâìî
jp x3D9A ;¢ë¤ ç  ª®¬ ­¤ë ¨ ®¦¨¤ ­¨¥ INTRQ
x0805 db #FF,#FF
;new €¤p¥á #807. ­ ¦ â¨¥ magic
x0807 push af
ld a,r
push af
ld a,#04
push af
inc sp
push bc
ld bc,#1FFD
push hl
ld hl,(#C001)
ex (sp),hl
ld a,#55
ld (#C001),a
cpl
ld (#C002),a
ld a,#12
jp x0033
;new €¤à¥á #826. ‚맮¢ ä㭪樨 rst 8
; a - ­®¬¥à ¤¨áª®¢®¤ 
x0826 ex (sp),hl
push af
ld a,#CF ;rst 8
ld (#5CBF),a
ld a,(hl)
inc hl
ld (#5CC0),a
ld a,#C9
ld (#5CC1),a
pop af
ex (sp),hl
push hl
ld hl,x3D2F
ex (sp), hl
push hl
ld hl,#5CBF
ex (sp),hl
ret
;new €¤à¥á #844.
x0844 ld de,#4000
ld a,#07
jp x000B
;new €¤à¥á #84C.
x084C rst #20
dw #1F54
ret c
rst #20
dw #1B7B
;new €¤à¥á #853.
x0853 ld a,(#5CF6)
ld bc,#7FBA
in c,(c)
cp #01
jr z,x0867
jr nc,x086B
bit 7,c
jr nz,x08A3
jr x086F
x0867 bit 6,c
jr nz,x08A3
x086B cp #04
jr nc,x08A3
x086F ld de,(#5CF4)
ld hl,(#5D00)
ld bc,#0105
ld a,(#5CFE)
cp #A0
jr nz,x0881
inc c
x0881 call x0826
db #81
jr c,x088B
pop hl
pop de
ei
ret
x088B call x0A64
ld b,#40
cp #02
jr z,x089C
ld b,#01
cp #01
jr z,x089C
ld b,#04
x089C ld a,b
pop hl
pop de
ei
jp x3F39
x08A3 ld hl,(#5D00)
ret
;new €¤à¥á #8A7.
x08A7 ld a,(#5CF6)
ld bc,#7FBA
in c,(c)
cp #01
jr z,x08BB
jr nc,x08BF
bit 7,c
jr nz,x08C7
jr x08C3
x08BB bit 6,c
jr nz,x08C7
x08BF cp #04
jr nc,x08C7
x08C3 xor a
jp x3E63
x08C7 jp x3D98
;new €¤à¥á #8CA.
x08CA ld (#5CCA),hl ;¤«ï ¤¨áª®¢®¤®¢ C ¨ D =#00
ld a,#FF
ld (#5CD1),a ;
ld hl,#8282
ret
x08D6 DISPLAY "Free space at ",$,": ",/D,#901-$," byte(s)"
ds #08FF-$,#00
ds #0901-$,#FF
;new €¤à¥á #901.
; a - ­®¬¥à ¤¨áª®¢®¤ 
x0901 ld (#5CF6),a ;­®¬¥à ¤¨áª®¢®¤ 
ld bc,#7FBA
in c,(c)
cp 1 ;¤¨áª®¢®¤ B?
jr z,x0914 ;¥á«¨ ¤ , â® ¯¥à¥å®¤
jr nc,x0917 ;¥á«¨ ¤¨áª®¢®¤ C ¨«¨ D
bit 7,c ;¤¨áª®¢®¤ A
ret nz ;¥á«¨ ॠ«ì­ë© ¤¨áª®¢®¤, ¢ë室
jr x091A
x0914 bit 6,c
ret nz ;¥á«¨ ॠ«ì­ë© ¤¨áª®¢®¤, ¢ë室
x0917 cp #04
ret nc ;¢ë室, ¥á«¨ ¤¨áª®¢®¤ >3
x091A or #80
ld c,#28 ;¯®¤äã­ªæ¨ï #28
call x0826 ;¢ë§®¢ rst 8
db #81
ld a,(#5CF6) ;­®¬¥à ¤¨áª®¢®¤ 
jr nc,x092D ;­¥â ®è¨¡ª¨
cp #02
ret c ;®è¨¡ª 
x092A jp x3EE7 ;®è¨¡ª  no disk
x092D ld hl,#5D16
ld c,a
ld a,%00111100
or c
ld (hl),a
ld a,(#5CF6) ;­®¬¥à ¤¨áª®¢®¤ 
ld c,#01 ;¯®¤äã­ªæ¨ï #01 (¢ë¡®à ⥪ã饣® ¤¨áª®¢®¤ )
call x0826 ;¢ë§®¢ rst 8
db #81
jr c,x092A ;®è¨¡ª  no disk
call x3E08 ;¢ë¡®àª  ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ⥪ã饣® ¤¨áª®¢®¤ 
ld (hl),#00
call x3E11 ;¢ë¡®àª  ⨯  ¤¨áª®¢®¤ 
ld (hl),#83
ld a,#80
ld (#5CCD),a ;£â®¢­®áâì ¤¨áª®¢®¤ 
pop hl
ret
x0951 DISPLAY "Free space at ",$,": ",/D,#A01-$," byte(s)"
ds #09FF-$,#00
ds #0A01-$,#FF
;new €¤à¥á #A01.
x0A01 ld a,(#5CF6)
push bc
ld bc,#7FBA
in c,(c)
cp 1 ;¤¨áª®¢®¤ B?
jr z,x0A16 ;¥á«¨ ¤ , â® ¯¥à¥å®¤
jr nc,x0A1A ;¥á«¨ ¤¨áª®¢®¤ C ¨«¨ D
bit 7,c ;¤¨áª®¢®¤ A
jr nz,x0A2D
jr x0A1E
x0A16 bit 6,c
jr nz,x0A2D ;¥á«¨ ॠ«ì­ë© ¤¨áª®¢®¤
x0A1A cp #04
jr nc,x0A2D ;¥á«¨ ¤¨áª®¢®¤ >3
x0A1E pop bc
ld d,c
push bc
ld c,#02
call x0826
db #81
pop bc
jp c,x3EE7
pop hl
ret
x0A2D pop bc
jp x1FEB
;new €¤à¥á #A31.
x0A31 ld a,(#5CF6)
ld bc,#7FBA
in c,(c)
cp 1 ;¤¨áª®¢®¤ B?
jr z,x0A45 ;¥á«¨ ¤ , â® ¯¥à¥å®¤
jr nc,x0A49 ;¥á«¨ ¤¨áª®¢®¤ C ¨«¨ D
bit 7,c ;¤¨áª®¢®¤ A
jr nz,x0A4F
jr x0A4D
x0A45 bit 6,c
jr nz,x0A4F
x0A49 cp #04
jr nc,x0A4F
x0A4D pop hl
ret
x0A4F jp x3EB2
;new €¤à¥á #A52. —⥭¨¥ ¯¥à¥¬¥­­®© ¬®­¨â®à 
x0A52 push de
push bc
push hl
ld bc,#000D
ld de,#0004
or a
call x0826
db #82
bit 5,a
jr x0A72
;new €¤à¥á #A64. —⥭¨¥ ¯¥à¥¬¥­­®© ¬®­¨â®à 
x0A64 push de
push bc
push hl
ld bc,#001D
ld de,#0004
or a
call x0826
db #82
x0A72 pop hl
pop bc
pop de
ret
;new €¤à¥á #A76.
x0A76 ld a,(#5CF6)
push bc
ld bc,#7FBA
in c,(c)
cp 1 ;¤¨áª®¢®¤ B?
jr z,x0A8B ;¥á«¨ ¤ , â® ¯¥à¥å®¤
jr nc,x0A8F ;¥á«¨ ¤¨áª®¢®¤ C ¨«¨ D
bit 7,c ;¤¨áª®¢®¤ A
jr nz,x0A97
jr x0A93
x0A8B bit 6,c
jr nz,x0A97
x0A8F cp #04
jr nc,x0A97
x0A93 pop bc
xor a
inc a
ret
x0A97 pop bc
xor a
ret
x0A9A DISPLAY "Free space at ",$,": ",/D,#B01-$," byte(s)"
ds #0AFF-$,#00
ds #0B01-$,#FF
;new €¤à¥á #B01.
x0B01 call x0A76
jp z,x1FF6
pop hl
jp x1F16
;new €¤à¥á #B0B.
x0B0B call x0A76
ld hl,#5CD7
ret z
inc hl
ld (hl),#00
pop hl
ld hl,#5D25
ld (hl),#00
ld de,#5D26
ld bc,#00FF
ldir
ld d,#00
x0B25 ld e,#00
x0B27 call x084C
ld hl,#5D25
ld bc,#0106
push de
call x0826
db #81
jr nc,x0B44
call x0A64
ld c,a
ld b,#00
call x1DA9
ld hl,#5CD6
inc (hl)
x0B44 pop de
inc e
bit 4,e
jr z,x0B27
ld a,#2B
rst #10
xxx inc d
ld a,d
cp #A0
jr nz,x0B25
ret
;new €¤à¥á #B54.
x0B54 call x0A76
jp z,x1FEB
ret
x0B5B DISPLAY "Free space at ",$,": ",/D,#C01-$," byte(s)"
ds #0BFF-$,#00
ds #0C01-$,#FF
;new €¤à¥á #C01.
x0C01 ld bc,#7FBA
in a,(c)
and %00000100
jr z,x0C1C
ld bc,#047F
x0C0D in a,(#FF)
and #C0
jp nz,x3FD1
inc de
ld a,e
or d
jr nz,x0C0D
djnz x0C0D
ret
x0C1C ret
;new €¤à¥á #C1D.
x0C1D ld bc,#7FBA
in a,(c)
and %00000100
jr z,x0C38
ld bc,#047F
x0C29 in a,(#FF)
and #C0
jp nz,x3FEC
inc de
ld a,e
or d
jr nz,x0C29
djnz x0C29
ret
x0C38 ret
x0C39 DISPLAY "Free space at ",$,": ",/D,#FF3-$," byte(s)"
ds #0CFF-$,#00
ds #0D01-$,#FF
ds #0DFF-$,#00
ds #0E01-$,#FF
ds #0EFF-$,#00
ds #0F01-$,#FF
ds #0FF3-$,#00
x0FF3 push af
push bc
push de
jp x2A59
x0FF9 DISPLAY "Free space at ",$,": ",/D,#1000-$," byte(s)"
ds #FFF-$,#00
ds #1000-$,#FF
DISPLAY "Free space at ",$,": ",/D,#1000-$," byte(s)"
DS #1000-$,#FF
;€¤à¥á #1000. ’¥ªáâ "Interface one fitted"
x1000 DB #16,9,5
DB "Interface one fitted"
DB 0
;€¤à¥á #1018. ‚믮«­¥­¨¥ ª®¬ ­¤ë "*". “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x1018 CALL x1DDF ;ãáâ ­®¢ª  CH_ADD ¨ ¯à¨¥¬ ¨¬¥­¨ ¤¨áª®¢®¤  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x0531 ;á­ï⨥ ¨¬¥­¨ ¤¨áª®¢®¤  á® á⥪  ª «ìªã«ïâ®à 
LD A,(DE) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨
CALL x0524 ;¢ëç¨á«¥­¨¥ ­®¬¥à  ¤¨áª®¢®¤ 
LD (#5D19),A ;ãáâ ­®¢ª  ¤¨áª®¢®¤  ¯® 㬮«ç ­¨î
CALL x3DCB ;¢ë¡®à ¤¨áª®¢®¤ 
JP x03E1 ;á®®¡é¥­¨¥ O.K.
;€¤à¥á #102E. <20>ਥ¬ à áè¨à¥­¨ï ä ©« . “áâ ­®¢¨â¥ #5C5D ¨ #5CD6.
x102E LD B,"C" ;à áè¨à¥­¨¥ C
LD A,(#5CD6) ;à áè¨à¥­¨¥ ¯à¨­¨¬ âì?
OR A
JR NZ,x104D ;¥á«¨ ­¥â, â® ãáâ ­®¢ª  à áè¨à¥­¨ï ä ©« 
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP #AF ;íâ® CODE?
LD B,"C" ;à áè¨à¥­¨¥ C
JR Z,x104D ;¥á«¨ ¤ , â® ãáâ ­®¢ª  à áè¨à¥­¨ï ä ©« 
CP #E4 ;íâ® DATA?
LD B,"D" ;à áè¨à¥­¨¥ D
JR Z,x104D ;¥á«¨ ¤ , â® ãáâ ­®¢ª  à áè¨à¥­¨ï ä ©« 
CP "#" ;íâ® #?
LD B,"#" ;à áè¨à¥­¨¥ #
JR Z,x104D ;¥á«¨ ¤ , â® ãáâ ­®¢ª  à áè¨à¥­¨ï ä ©« 
LD B,"B" ;à áè¨à¥­¨¥ B
x104D LD HL,#5CE5 ; ¤à¥á ¯¥à¥¬¥­­®© á à áè¨à¥­¨¥¬ ä ©« 
LD (HL),B ;ãáâ ­®¢ª  à áè¨à¥­¨ï
RET ;¢®§¢à â
;€¤à¥á #1052. ‚¢®¤ ª« ¢¨è¨ á ®¦¨¤ ­¨¥¬.
x1052 DI ;§ ¯à¥â ¯à¥à뢠­¨©
PUSH HL ;á®åà ­¥­¨¥ ॣ¨áâ஢
PUSH BC
PUSH DE
x1056 RST #20 ;®¯à¥¤¥«¥­¨¥ ­®¬¥à  ­ ¦ â®© ª« ¢¨è¨
DW #028E
LD C,0 ;०¨¬ ª« ¢¨ âãàë - C ¨«¨ L
JR NZ,x1056 ;¥á«¨ ­ ¦ â  ¡¥áá¬ëá«¥­­ ï ª®¬¡¨­ æ¨ï ª« ¢¨è, â® ¯®¢â®à
RST #20 ;®¯à¥¤¥«¥­¨¥ ª®¤  ­ ¦ â®© ª« ¢¨è¨
DW #031E
JR NC,x1056 ;¥á«¨ ­¨ç¥£® ­¥ ­ ¦ â®, â® ¯®¢â®à
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. ‚뢮¤ 梥â­ëå ¯®«®á ¤«ï § áâ ¢ª¨.
x106E LD HL,#58E5 ; ¤à¥á «¨­¨¨  âਡã⮢
LD B,#A ;ãáâ ­®¢ª   âਡã⮢
x1073 LD (HL),7
INC HL
DJNZ x1073
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 ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à 
x108F PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ «¨­¨©
SCF ;ᤢ¨£ ¯¨ªá¥«¥©
RLA
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  «¨­¨¨ ¯¨ªá¥«¥©
PUSH AF ;¨ ¡ ©â  ¤«ï § ¯®«­¥­¨ï
LD B,5 ;¢ «¨­¨¨ 5 ¡ ©â®¢
x1096 INC HL ;§ ¯®«­¥­¨¥ «¨­¨¨
LD (HL),A
DJNZ x1096
POP AF ;¢®ááâ ­®¢«¥­¨¥ ¡ ©â  ¤«ï § ¯®«­¥­¨ï «¨­¨¨,
POP HL ; ¤à¥á  «¨­¨¨
POP BC ;¨ ª®«¨ç¥á⢠ «¨­¨©
LD DE,#100 ;¡¥à¥¬  ¤à¥á á«¥¤ãî饩 «¨­¨¨
ADD HL,DE
DJNZ x108F ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
x10A4 RET
;€¤à¥á #10A5. ‘®®¡é¥­¨ï ª®¬ ­¤ë LIST.
x10A5 DB " Del."
x10AA DB " File(s)"
DB 0
x10B3 DB "Title:"
DB #A0
x10BA DB #17,#11
DB " Disk Drive: "
DB 0
x10CA DB #17,#10," ",0
x10CE DB #17,#10," 40 Track S. Side"
DB 0
x10E2 DB #17,#10," 80 Track S. Side"
DB 0
x10F6 DB #17,#10," 40 Track D. Side"
DB 0
x110A DB #17,#10," 80 Track D. Side"
DB 0
x111E DB #17,#10
DB " Free Sector "
DB 0
x112E DB #D,#D
DB " File Name Start Length Line"
DB 0
;€¤à¥á #1151. ‚뤥«¥­¨¥ #222 ¡ ©â®¢ ¢ à ¡®ç¥© ®¡« áâ¨. “áâ ­ ¢«¨¢ ¥â #5CCF.
x1151 LD HL,(#5C61) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« áâ¨
LD (#5CCF),HL ;ãáâ ­®¢ª   ¤à¥á  ¯à®áâà ­á⢠
LD BC,#222 ;¢ë¤¥«ïâì #222 ¡ ©â®¢
JP x1E23 ;¢ë¤¥«¥­¨¥ ®¡« á⨠¨ ¢®§¢à â
;€¤à¥á #115D. <20>¥ç âì ç¨á«  ¨§ HL á ­ã«ï¬¨.
x115D XOR A ;¢ ç¨á«¥ 0 ¤¥áï⪮¢ âëáïç
LD DE,#2710
x1161 SBC HL,DE ;¢ëç¨â ­¨¥ ¨§ ç¨á«  10000
JR C,x1168 ;¥á«¨ ¯®«ã稫®áì ç¨á«® ¬¥­ìè¥ 10000, â® á«¥¤ãî騩 à §àï¤
INC A ;á«¥¤ãî騩 ¤¥áï⮪ âëáïç
JR x1161 ;¯®¢â®à
x1168 ADD A,"0" ;¯¥ç âì ¤¥áï⪮¢ âëáïç
CALL x11A8
ADD HL,DE ;¢®ááâ ­®¢«¥­¨¥ ®áâ âª  ç¨á« 
XOR A ;¢ ç¨á«¥ 0 âëáïç
x116F LD DE,#3E8
x1172 SBC HL,DE ;¢ëç¨â ­¨¥ ¨§ ç¨á«  1000
JR C,x1179 ;¥á«¨ ¯®«ã稫®áì ç¨á«® ¬¥­ìè¥ 1000, â® á«¥¤ãî騩 à §àï¤
INC A ;á«¥¤ãîé ï âëáïç 
JR x1172 ;¯®¢â®à
x1179 ADD A,"0" ;¯¥ç âì âëáïç
CALL x11A8
ADD HL,DE ;¢®ááâ ­®¢«¥­¨¥ ®áâ âª  ç¨á« 
XOR A ;¢ ç¨á«¥ 0 á®â¥­
LD DE,#64
x1183 SBC HL,DE ;¢ëç¨â ­¨¥ ¨§ ç¨á«  100
JR C,x118A ;¥á«¨ ¯®«ã稫®áì ç¨á«® ¬¥­ìè¥ 100, â® á«¥¤ãî騩 à §àï¤
INC A ;á«¥¤ãîé ï á®â­ï
JR x1183 ;¯®¢â®à
x118A ADD A,"0" ;¯¥ç âì á®â¥­
CALL x11A8
ADD HL,DE ;¢®ááâ ­®¢«¥­¨¥ ®áâ âª  ç¨á« 
XOR A ;¢ ç¨á«¥ 0 ¤¥áï⪮¢
LD DE,#A
x1194 SBC HL,DE ;¢ëç¨â ­¨¥ ¨§ ç¨á«  10
JR C,x119B ;¥á«¨ ¯®«ã稫®áì ç¨á«® ¬¥­ìè¥ 10, â® á«¥¤ãî騩 à §àï¤
INC A ;á«¥¤ãî騩 ¤¥áï⮪
JR x1194 ;¯®¢â®à
x119B ADD A,"0" ;¯¥ç âì ¤¥áï⪮¢
CALL x11A8
ADD HL,DE ;¢®ááâ ­®¢«¥­¨¥ ®áâ âª  ç¨á« 
LD A,L ;¯¥ç âì ¥¤¨­¨æ
ADD A,"0"
CALL x11A8
RET ;¢®§¢à â
;€¤à¥á #11A8. ’® ¦¥, çâ® ¨ #3D82.
x11A8 PUSH HL ;á®åà ­¥­¨¥ HL ¨ DE
PUSH DE
CALL x3D82 ;¯¥ç âì ᨬ¢®« 
POP DE ;¢®ááâ ­®¢«¥­¨¥ DE ¨ HL
POP HL
RET ;¢®§¢à â
;€¤à¥á #11B0. <20>஢¥àª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à  ¯à¨ à ¡®â¥ á ª â «®£®¬. “áâ ­®¢¨â¥ #5CF9 ¨ #5CCC,   ¢ HL ¯®¬¥áâ¨â¥ ⥪ã騩  ¤à¥á ¡ãä¥à . …᫨ ª®­¥æ ¡ãä¥à  ¤®á⨣­ãâ, â® ¢ ¡ãä¥à § £à㧨âáï á«¥¤ãî騩 ᥪâ®à ª â «®£ ,   ¢ HL ¡ã¤¥â #5D25.
x11B0 PUSH HL ;á®åà ­¥­¨¥ HL ¨ BC
PUSH BC
LD A,(#5CF9) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤  ¨§ #5CF9
LD HL,#5CF6 ;¡¥à¥¬ ­®¬¥à ⥪ã饣® ¤¨áª®¢®¤ 
CP (HL) ;­ §­ ç¥­ ¤à㣮© ¤¨áª®¢®¤?
CALL NZ,x3DCB ;¥á«¨ ¤ , â® ¢ë¡®à ­ §­ ç¥­­®£® ¤¨áª®¢®¤ 
POP BC ;¢®ááâ ­®¢«¥­¨¥ HL ¨ BC
POP HL
CALL x050C ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à 
LD A,(HL) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
OR A ;ª®­¥æ ª â «®£ ?
JP Z,x01D3 ;¥á«¨ ¤ , â® § ¢¥à襭¨¥
CP 1 ;ä ©« áâ¥àâ?
CALL Z,x0507 ;¥á«¨ ¤ , â® ¯à®¯ã᪠䠩« 
RET NZ ;¨­ ç¥ ¢®§¢à â
JR x11B0 ;¥á«¨ ä ©« ¡ë« ¯à®¯ã饭, â® ¯®¢â®à
;€¤à¥á #11CE. ‚믮«­¥­¨¥ ª®¬ ­¤ë LIST. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x11CE CALL x042B ;¯à®¢¥àª  ¢â®à®£® ᨬ¢®«  áâப¨
LD BC,2 ;¯® 㬮«ç ­¨î ¯¥ç â âì ¢ ¯®â®ª 2
LD (#5CDB),BC
JR Z,x1205 ;¥á«¨ ¢â®à®© ᨬ¢®« áâப¨ ENTER, â® ¢ë¢®¤ ª â «®£ 
CP "#" ;¥á«¨ ¢â®à®© ᨬ¢®« áâப¨ "#"?
JR NZ,x11F8 ;¥á«¨ ­¥â, â® ãáâ ­®¢ª  ¤¨áª®¢®¤ 
LD (#5C5D),HL ;ãáâ ­®¢ª  CH_ADD
CALL x1E0B ;¯à¨¥¬ ­®¬¥à  ¯®â®ª 
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP #D ;íâ® ENTER?
JR Z,x1205 ;¥á«¨ ¤ , â® ¢ë¢®¤ ª â «®£ 
CP "," ;íâ® ","?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
CALL x1DBD ;¯à¨¥¬ ¨¬¥­¨ ¤¨áª®¢®¤  ­  á⥪ ª «ìªã«ïâ®à 
JR x11FB ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
x11F8 CALL x1DDF ;ãáâ ­®¢ª  CH_ADD ¨ ¯à¨¥¬ ¨¬¥­¨ ¤¨áª®¢®¤  ­  á⥪ ª «ìªã«ïâ®à 
x11FB CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x1DB5 ;á­ï⨥ ¨¬¥­¨ ¤¨áª®¢®¤  á® á⥪  ª «ìªã«ïâ®à 
EX DE,HL ;¯¥à¥¡à®áª  ¥£®  ¤à¥á  ¢ HL
CALL x1C81 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
x1205 CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,(#5CF6) ;§ £à㧪  ¨¬¥­¨ ¤¨áª®¢®¤  ¢ #5CF9
LD (#5CF9),A
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à ¯®â®ª 
CP 2 ;íâ® 2?
PUSH AF ;á®å࠭塞 ¥£®
CALL Z,x1D97 ;¥á«¨ ¤ , â® ®ç¨á⪠ íªà ­ 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ¯®â®ª 
CP #11 ;®­ ¡®«ìè¥ #10?
JP NC,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
CALL x1D84 ;®âªàë⨥ ¯®â®ª 
LD A,#FF ;¡ãä¥à ­¥ 㡨à âì, ¯ ¬ïâì ­¥ ¨§¬¥­ïâì
LD (#5CF8),A
CALL x1151 ;¢ë¤¥«¥­¨¥ ¯ ¬ï⨠¢ à ¡®ç¥© ®¡« áâ¨
LD HL,#5E06 ;­ ç «® ®¯¨á â¥«ï ¤¨áª  ¢ ¡ãä¥à¥
LD DE,(#5CCF) ;¡¥à¥¬  ¤à¥á WORKSP
LD BC,#20 ;¤«¨­  ®¯¨á â¥«ï ¤¨áª 
LDIR ;á®åà ­¥­¨¥ ®¯¨á â¥«ï ¤¨áª 
CALL x03E8 ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  0 ¤®à®¦ª¨ 0
LD HL,#5D25 ; ¤à¥á ¡ãä¥à 
PUSH HL ;á®åà ­¥­¨¥ ¥£®
x123E LD HL,x10B3 ; ¤à¥á á®®¡é¥­¨ï TITLE:
PUSH BC ;á®åà ­¥­¨¥ BC
RST #18 ;¯¥ç âì TITLE:
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á WORKSP
LD BC,#14 ;#14-© ¡ ©â
ADD HL,BC
RST #18 ;¯¥ç âì ¨¬¥­¨ ¤¨áª 
LD HL,x10BA ;¯¥ç âì DISC DRIVE:
RST #18
LD A,(#5CF6) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤ 
ADD A,"A" ;¢ëç¨á«¥­¨¥ ¨¬¥­¨ ¤¨áª®¢®¤ 
CALL x3D82 ;¯¥ç âì ¥£®
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
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 x1DA3 ;¯¥ç âì ª®«¨ç¥á⢠ ­¥áâ¥àâëå ä ©«®¢
LD HL,x10AA ;¯¥ç âì FILE(S)
RST #18
LD HL,(#5CCF) ;2-© ¡ ©â ®¯¨á â¥«ï ¤¨áª 
LD BC,2
ADD HL,BC
LD A,(HL) ;¡¥à¥¬ ⨯ ¤¨áª 
LD HL,x10CE ; ¤à¥á á®®¡é¥­¨ï 40 TRACKS, S.SIDE
CP #19 ;íâ® #19?
JR Z,x1292 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
LD HL,x10E2 ; ¤à¥á á®®¡é¥­¨ï 80 TRACKS, S.SIDE
CP #18 ;íâ® #18?
JR Z,x1292 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
LD HL,x10F6 ; ¤à¥á á®®¡é¥­¨ï 40 TRACKS, D.SIDE
CP #17 ;íâ® #17?
JR Z,x1292 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
LD HL,x110A ; ¤p¥á á®®¡é¥­¨ï 80 TRACKS, D.SIDE
x1292 RST #18 ;¯¥ç âì á®®¡é¥­¨ï
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #13-£® ¡ ©â  ®¯¨á â¥«ï ¤¨áª 
LD C,(HL) ;¡¥à¥¬ ª®«¨ç¥á⢮ áâ¥àâëå ä ©«®¢
CALL x1DA4 ;¯¥ç âì ¥£®
LD HL,x10A5 ;¯¥ç âì DEL.FILES
RST #18
LD HL,x111E ;¯¥ç âì FREE SECTORS:
RST #18
LD HL,(#5CCF) ;4-© ¡ ©â
LD BC,4
ADD HL,BC
LD C,(HL) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᢮¡®¤­ëå ᥪâ®à®¢
INC HL
LD B,(HL)
CALL x1DA9 ;¯¥ç âì ¥£®
LD HL,x112E ;¯¥ç âì FILE NAME, START, LENGTH, LINE
RST #18
POP BC ;¢®ááâ ­®¢«¥­¨¥ BC ¨ ⥪ã饣®  ¤à¥á  ¢ ¡ãä¥p¥
POP HL
LD B,#10 ;¯¥ç â âì ¨­ä®à¬ æ¨î ® #10 ä ©« å
x12B5 CALL x11B0 ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à 
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ®áâ ¢è¨åáï ä ©«®¢
PUSH HL ;¨ ⥪ã饣®  ¤à¥á  ¢ ¡ãä¥p¥
CALL x2938 ;¯¥ç âì ¨¬¥­¨ ¨ à áè¨à¥­¨ï ä ©« 
LD BC,#D ;#D-© ¡ ©â ®¯¨á â¥«ï ä ©« 
POP HL ;¢®ááâ ­®¢«¥­¨¥ ⥪ã饣®  ¤à¥á  ¢ ¡ãä¥à¥
PUSH HL
ADD HL,BC
LD C,(HL) ;¡¥à¥¬ à §¬¥à ä ©«  ¢ ᥪâ®à å
PUSH BC ;á®å࠭塞 ¥£®
LD A,C ;§ £à㦠¥¬ ¥£® ¢ C
LD B,2 ;¯¥ç â âì 2 ¯à®¡¥«  ¯¥à¥¤ ç¨á«®¬
CP #A ;¤«¨­  ä ©«  ¬¥­ìè¥ 10 ᥪâ®à®¢?
JR C,x12D0 ;¥á«¨ ¤ , â® ¯¥ç âì ¯à®¡¥«®¢
DEC B ;¯¥ç â âì ®¤¨­ ¯à®¡¥«
x12D0 CP #64 ;¤«¨­  ä ©«  ¬¥­ìè¥ 100 ᥪâ®p®¢?
JR NC,x12D9 ;¥á«¨ ­¥â, â® ¯à®¡¥«ë ­¥ ¯¥ç â âì
x12D4 LD A," " ;¯¥ç âì ¯à®¡¥«®¢
RST #10
DJNZ x12D4
x12D9 POP BC ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ä ©«  ¢ ᥪâ®à å
CALL x1DA9 ;¯¥ç âì ¥¥
LD HL,x10CA ;#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 x115D ;¯¥ç âì ¥£®
LD A," " ;¯à®¡¥«
CALL x3D82
POP HL ;¢®ááâ ­®¢«¥­¨¥ ⥪ã饣®  ¤à¥á  ¢ ®¯¨á â¥«¥ ä ©« 
INC HL ;á«¥¤ãî騩  ¤à¥á
LD E,(HL) ;¡¥à¥¬ ¤«¨­ã ä ©« 
INC HL
LD D,(HL)
EX DE,HL ;¯¥à¥­®á ¥¥ ¢ HL
CALL x115D ;¯¥ç âì ¥¥
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ä ©« 
PUSH HL ;¨ á­®¢  á®åà ­¥­¨¥ ¥£®
LD BC,8 ;8-© ¡ ©â
ADD HL,BC
LD A,(HL) ;¡¥à¥¬ à áè¨à¥­¨¥ ä ©« 
CP "B" ;íâ® "B"?
CALL Z,x131B ;¥á«¨ ¤ , â® ¯¥ç âì áâப¨  ¢â®§ ¯ã᪠
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ä ©« 
POP BC ;¨ áç¥â稪  ä ©«®¢
LD DE,#10 ; ¤à¥á á«¥¤ãî饣® ®¯¨á â¥«ï ä ©« 
ADD HL,DE
DJNZ x12B5 ;¯®¢â®à ¤® ª®­æ 
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ä ©« 
CALL x3D80 ;2 à §  ¯¥à¥¢®¤ áâப¨
CALL x3D80
JP x123E ;¯®¢â®à á á ¬®£® ­ ç « 
;€¤à¥á #131B. <20>¥ç âì áâப¨  ¢â®áâ àâ  ¯à®£p ¬¬ë ­  ¡¥©á¨ª¥. ‚ HL ¯®¬¥áâ¨â¥  ¤à¥á ®¯¨á â¥«ï ä ©«  ¯«îá 8 ¨ ãáâ ­®¢¨â¥ #5CCF.
x131B 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,x1335
DEC B
JR Z,x1335 ;¥á«¨ ¤«¨­  ä ©«  ­¥ ¡®«ìè¥ 2-å ᥪâ®à®¢, â® § £à㧪  ᥪâ®à®¢
LD A,#10 ;­  ¤®à®¦ª¥ #10 ᥪâ®à®¢
x132C INC E ;á«¥¤ãî騩 ᥪâ®à
CP E ;ª®­¥æ ¤®à®¦ª¨?
JR NZ,x1333 ;¥á«¨ ¤ , â®
LD E,0 ;á«¥¤ãî騩 ᥪâ®à 0
INC D ;¨ ¡¥à¥¬ á«¥¤ãîéãî ¤®à®¦ªã
x1333 DJNZ x132C ;¯®¢â®à ¤® ª®­æ 
x1335 LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« áâ¨
LD BC,#21 ;#21 ¡ ©â 㦥 § ­ïâ®
ADD HL,BC
LD B,2 ;§ £à㦠âì 2 ᥪâ®à 
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § £à㧪¨ ᥪâ®à®¢
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
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 x3D82
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  áâப¨  ¢â®áâ àâ 
CALL x1DA9 ;¯¥ç âì ¥£®
RET ;¢®§¢à â
;€¤à¥á #1360. ‚믮«­¥­¨¥ ª®¬ ­¤ë COPY S. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x1360 CALL x1DC5 ;ãáâ ­®¢ª  CH_ADD
CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
CALL x1DBD ;¯à¨¥¬ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x166F ;१¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¢ ¯ ¬ïâ¨
LD HL,x27AA ;¯¥ç âì INSERT SOURCE DISC
CALL x2707
x1375 CALL x1052 ;¢¢®¤ ᨬ¢®«  á ª« ¢¨ âãàë
CP "Y" ;íâ® "Y"?
JR NZ,x1375 ;¥á«¨ ­¥â, â® ¯®¢â®à
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
CALL x1CB0 ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
JP NZ,x03D9 ;¥á«¨ â ª®£® ä ©«  ­¥â, â® ®è¨¡ª 
CALL x13B7 ;ª®¯¨à®¢ ­¨¥ ä ©« 
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  #?
CP "#"
JP NZ,x03E1 ;¥á«¨ ­¥â, â® O.K.
x1393 LD A,#A ;ä ©« ¨áª âì ¯® #A ᨬ¢®« ¬
LD (#5D06),A
LD HL,#5CE6 ;á«¥¤ãî騩 ¡«®ª
INC (HL)
CALL x1D97 ;®ç¨á⪠ íªà ­ 
LD HL,x27AA ;¯¥ç âì INSERT SOURCE DISC
CALL x2707
x13A5 CALL x1052 ;¢¢®¤ ª« ¢¨è¨
CP "Y" ;íâ® "Y"?
JR NZ,x13A5 ;¥á«¨ ¤ , â® ¯®¢â®à
CALL x1CB3 ;¯®¨áª ¡«®ª 
JP NZ,x03E1 ;¥á«¨ ­¥ ­ è«¨, â® O.K.
CALL x13B7 ;ª®¯¨à®¢ ­¨¥ ¡«®ª 
JR x1393 ;¯®¢â®à
;€¤à¥á #13B7. Š®¯¨à®¢ ­¨¥ ä ©«  ¯à¨ ®¤­®¬ ¤¨áª®¢®¤¥. <20>®¬¥à ä ©«  ¯®¬¥áâ¨â¥ ¢ ॣ¨áâà C.
x13B7 CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
LD HL,#5CE6 ;á®åà ­¥­¨¥ ¥£® ç áâ¨
LD DE,#5CED
LD BC,7
LDIR
LD A,(#5CF1) ;ãáâ ­®¢ª  ®¡ê¥¬  ä ©«  ¢ ᥪâ®à å
LD (#5D10),A
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x3E11 ;á®åà ­¥­¨¥ ०¨¬  ¤¨áª®¢®¤ 
LD (#5CD9),A
LD A,#FF ;¯¥à¢ë© ¯à®å®¤
LD (#5D21),A
;‚­¨¬ ­¨¥!!! <20>â  ¯¥à¥¬¥­­ ï 㦥 § ­ïâ . ‚ ­¥© åà ­ïâáï ¯¥à¢ë¥ 3 ᨬ¢®«  ª®¬ ­¤­®© áâப¨.
CALL x1451 ;ª®¯¨à®¢ ­¨¥ ä ©« 
LD HL,(#5D1F) ;¡¥à¥¬  ¤à¥á ä ©«  ­  ¤¨áª¥ - ¯à¨¥¬­¨ª¥
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 x1E43 ;§ ¯¨áì ᥪâ®à 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
CALL x166B ;ç⥭¨¥ ¨ § ¬¥­  ®¯¨á â¥«ï ä ©« 
CALL x1E43 ;§ ¯¨áì ᥪâ®à  á ®¯¨á â¥«¥¬
RET ;¢®§¢à â
;€¤à¥á #1403. <20>஢¥àª  ­ «¨ç¨ï ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥-¯à¨¥¬­¨ª¥ ¤«ï ª®¬ ­¤ë COPY S. <20>®¬¥áâ¨â¥ ®¯¨á â¥«ì ä ©«  ¢ #5CDD ¨ ¥£® ç áâì ¢ #5CED ¨ ãáâ ­®¢¨â¥ #5D10. ‚ ¤¨áª®¢®¤¥ ¤®«¦¥­ ¡ëâì ¤¨áª-¯à¨¥¬­¨ª. <20>®¤¯à®£à ¬¬  ãáâ ­ ¢«¨¢ ¥â #5CEA, #5CEB ¨ #5D1F.
x1403 XOR A ;­¥ ¯¥à¢ë© ¯à®å®¤
LD (#5D21),A
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x3E11 ;¡¥à¥¬ ०¨¬ ¤¨áª®¢®¤ 
LD (#5CDA),A ;á®å࠭塞 ¥£®
CALL x1CB3 ;¯®¨áª ä ©« 
JP Z,x1C50 ;¥á«¨ ­ è«¨, â® FILE EXISTS
CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
LD A,(#5E09) ;¡¥à¥¬ ª®«¨ç¥á⢮ ä ©«®¢ ­  ¤¨áª¥
CP #80 ;¨å 128?
JP Z,x2723 ;¥á«¨ ¤ , â® DIRECTORY FULL
LD HL,#5CED ;¢®ááâ ­®¢«¥­¨¥ ®¯¨á â¥«ï ä ©« 
LD DE,#5CE6
LD BC,7
LDIR
CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  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,x1C45 ;¥á«¨ ¥£® ­¥ 墠⨫®, â® NO SPACE
LD (#5E0A),HL ;ãáâ ­®¢ª  ­®¢®£® ª®«¨ç¥á⢠ ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD HL,(#5E06) ;¡¥à¥¬  ¤à¥á ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD (#5CEB),HL ;ãáâ ­®¢ª   ¤à¥á  ä ©«  ­  ¤¨áª¥-¯à¨¥¬­¨ª¥
LD (#5D1F),HL ;á®åà ­¥­¨¥ ¥£®
;<3B>®¦¥ ¬®©!!! <20>ã çâ® íâ® â ª®¥! ‚¥¤ì íâ  ¯¥à¥¬¥­­ ï - ä« £ ᯮᮡ  ¢ë§®¢  TR-DOS. ˆ ­  í⮬ DOS ¢á¥ à ¡®â îâ. “¦ á ª ª®©-â®.
RET ;¢®§¢p â
;€¤à¥á #1451. Š®¯¨à®¢ ­¨¥ ä ©«  ­  ®¤­®¬ ¤¨áª®¢®¤¥. <20>®¬¥áâ¨â¥ ®¯¨á â¥«ì ä ©«  ¢ #5CDD ¨ ¥£® ç áâì ¢ #5CED ¨ ãáâ ­®¢¨â¥ #5CF1,
; #5D21, #5D23 ¨ #5CCF. <20>®¤¯à®£à ¬¬  ãáâ ­ ¢«¨¢ ¥â #5CBB, #5CD9, #5CDA ¨ #5C92.
x1451 LD A,(#5CF1) ;¢á¥ ᪮¯¨à®¢ «¨?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD A,(#5D21) ;¯¥à¢ë© ¯à®å®¤?
OR A
JR NZ,x146F ;¥á«¨ ¤ , â® ¤¨áª - ¨áâ®ç­¨ª 㦥 ¢ ¤¨áª®¢®¤¥
CALL x1D97 ;®ç¨á⪠ íªà ­ 
LD HL,x27AA ;¯¥ç âì INSERT SOURCE DISC
CALL x2707
x1465 CALL x1052 ;®¦¨¤ ­¨¥ ª« ¢¨è¨ "Y"
CP "Y"
JR NZ,x1465
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
x146F LD A,(#5CF1) ;¢á¥ ᪮¯¨à®¢ «¨?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ;ª®¯¨àã¥âáï ç áâì ä ©« 
SUB (HL)
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
JR NC,x14CB ;¥á«¨ ¥é¥ ­¥ ª®­¥æ, â® ª®¯¨àã¥âáï ç áâì ä ©« 
LD A,(#5CF1) ;ª®¯¨à㥬 ®áâ â®ª
LD B,A
XOR A ;᪮¯¨à®¢ «¨ ¢á¥
LD (#5CF1),A
x1484 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®à®¢
LD (#5CCE),A ;®¡­ã«¥­¨¥ #5CCE
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥£® ¯à®áâà ­á⢠
PUSH HL ;á®å࠭塞 ¥£®
LD DE,(#5CF2) ;¡¥à¥¬  ¤à¥á ª®¯¨à㥬®£® ãç á⪠ ¤¨áª 
CALL x14D8 ;­ áâனª  ¤¨áª®¢®¤  ¯®¤ ¤¨áª-¨áâ®ç­¨ª
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  ­  ¤¨áª¥ á«¥¤ãî饣® ᥪâ®à 
LD (#5CF2),HL
CALL x1D97 ;®ç¨á⪠ íªà ­ 
LD HL,x2785 ;¯¥ç âì INSERT DESTINATION DISC
CALL x2707
x14A5 CALL x1052 ;®¦¨¤ ­¨¥ ª« ¢¨è¨ "Y"
CP "Y"
JR NZ,x14A5
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
LD A,(#5D21) ;¯¥à¢ë© ¯à®å®¤?
OR A
CALL NZ,x1403 ;¥á«¨ ¤ , â® ¯à®¢¥àª  ­ «¨ç¨ï ¬¥áâ  ­  ¤¨áª¥
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  à ¡®ç¥£® ¯à®áâà ­á⢠
POP BC ;¨ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®à®¢
LD DE,(#5CEB) ;¡¥à¥¬  ¤à¥á ⥪ã饣® ãç á⪠ ¤¨áª 
CALL x14E4 ;­ áâனª  ¤¨áª®¢®¤  ¯®¤ ¤¨áª-¯à¨¥¬­¨ª
CALL x1E4D ;§ ¯¨áì ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  ­  ¤¨áª¥ á«¥¤ãî饣® ᥪâ®à 
LD (#5CEB),HL
JP x1451 ;¯®¢â®à
x14CB LD (#5CF1),A ;ãáâ ­®¢ª  ¤«¨­ë ®á⠢襩áï ç á⨠䠩« 
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ;¡¥à¥¬ ¤«¨­ã à ¡®ç¥© ®¡« áâ¨
LD B,(HL)
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
XOR A ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à 
JP x1484 ;ª®¯¨à®¢ ­¨¥
;€¤à¥á #14D8. <20>®¬¥é¥­¨¥ §­ ç¥­¨ï #5CD9 ¢ ¯¥à¥¬¥­­ãî ०¨¬  ¤¨áª®¢®¤ . “áâ ­®¢¨â¥ #5CD9.
x14D8 PUSH HL ;á®åà ­¥­¨¥ DE ¨ HL
PUSH DE
CALL x3E11 ;¡¥à¥¬  ¤à¥á ¯¥à¥¬¥­­®© á ⨯®¬ ¤¨áª®¢®¤ 
LD A,(#5CD9) ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤  ¨§ #5CD9
LD (HL),A ;ãáâ ­®¢ª  ⨯  ¤¨áª®¢®¤ 
POP DE ;¢®ááâ ­®¢«¥­¨¥ DE ¨ HL
POP HL
RET ;¢®§¢à â
;€¤à¥á #14E4. <20>®¬¥é¥­¨¥ §­ ç¥­¨ï #5CDA ¢ ¯¥à¥¬¥­­ãî ०¨¬  ¤¨áª®¢®¤ . “áâ ­®¢¨â¥ #5CDA.
x14E4 PUSH HL ;á®åà ­¥­¨¥ DE ¨ HL
PUSH DE
CALL x3E11 ;¡¥à¥¬  ¤à¥á ¯¥à¥¬¥­­®© á ⨯®¬ ¤¨áª®¢®¤ 
LD A,(#5CDA) ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤  ¨§ #5CD9
LD (HL),A ;ãáâ ­®¢ª  ⨯  ¤¨áª®¢®¤ 
POP DE ;¢®ááâ ­®¢«¥­¨¥ DE ¨ HL
POP HL
RET ;¢®§¢à â
;€¤à¥á #14F0. <20>஢¥àª  ­ «¨ç¨ï ¬¥áâ  ­  ¤¨áª¥-¯à¨¥¬­¨ª¥ ¤«ï ª®¬ ­¤ë COPY B. “áâ ­®¢¨â¥ #5CDF ¨ ¯®¬¥áâ¨â¥ ¢ ¤¨áª®¢®¤ ¤¨áª-¯à¨¥¬­¨ª. “áâ ­ ¢«¨¢ ¥â #5CDA, #5CE7, #5CDD ¨ ®¡­ã«ï¥â #5D21.
x14F0 XOR A ;®¡­ã«¥­¨¥ #5D21
LD (#5D21),A
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x3E11 ;¡¥à¥¬ ०¨¬ ¤¨áª®¢®¤ 
LD (#5CDA),A ;á®å࠭塞 ¥£®
LD A,(#5E08) ;á®å࠭塞 ⨯ ¤¨áª 
LD (#5CE7),A
LD HL,#280 ;¢ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢ ­ 
CP #19 ;¤¨áª¥-¯à¨¥¬­¨ª¥
JR Z,x151F
LD HL,#500
CP #18
JR Z,x151F
CP #17
JR Z,x151F
LD HL,#A00
CP #16
JR Z,x151F
JP x1D1A ;¥á«¨ ¢ ª ç¥á⢥ ⨯  ¤¨áª  á⮨⠭¥®¯à¥¤¥«¥­­®¥ §­ ç¥­¨¥, â® *ERROR*
;‹ãçè¥ DISC ERROR.
x151F LD (#5CDD),HL ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢ ­  ¤¨áª¥-¯à¨¥¬­¨ª¥
LD BC,(#5CDF) ;¡¥à¥¬ ª®«¨ç¥á⢮ ª®¯¨à㥬ëå ᥪâ®à®¢
SBC HL,BC ;¬¥áâ  å¢ â¨â?
JP C,x1C45 ;¥á«¨ ­¥â, â® NO SPACE
RET ;¢®§¢à â
;€¤à¥á #152C. ‚믮«­¥­¨¥ ª®¬ ­¤ë COPY B. “áâ ­®¢¨â¥ #5C3B.
x152C CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x166F ;१¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¢ ¯ ¬ïâ¨
LD HL,x2779 ;¯¥ç âì BACKUP DISC
CALL x2707
LD HL,x27AA ;¯¥ç âì INSERT SOURCE DISC
CALL x2707
x153E CALL x1052 ;¢¢®¤ ª« ¢¨è¨
CP "Y" ;íâ® "Y"?
JR NZ,x153E ;¥á«¨ ¤ , â® ¯®¢â®à
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
LD A,#FF ;¯¥à¢ë© ¯à®å®¤
LD (#5D21),A
;‚­¨¬ ­¨¥!!! <20>â  ¯¥à¥¬¥­­ ï 㦥 § ­ïâ . ‚ ­¥© åà ­ïâáï ¯¥à¢ë¥ 3 ᨬ¢®«  ª®¬ ­¤­®© áâப¨.
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x3E11 ;¡¥à¥¬ ०¨¬ ¤¨áª®¢®¤ 
LD (#5CD9),A ;á®å࠭塞 ¥£®
LD A,(#5E08) ;¡¥à¥¬ ⨯ ¤¨áª 
CP #19 ;¤¨áª 40-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©?
LD HL,#280 ;¢á¥£® ­  ¤¨áª¥ #280 ᥪâ®à®¢
JR Z,x1575 ;¥á«¨ ¤ , â® ª®¯¨à®¢ ­¨¥
LD HL,#500 ;¢á¥£® ­  ¤¨áª¥ #500 ᥪâ®à®¢
CP #18 ;¤¨áª 80-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©?
JR Z,x1575 ;¥á«¨ ¤ , â® ª®¯¨à®¢ ­¨¥
CP #17 ;¤¨áª 40-¤®à®¦¥ç­ë© ¤¢ãåáâ®à®­­¨©?
JR Z,x1575 ;¥á«¨ ¤ , â® ª®¯¨à®¢ ­¨¥
LD HL,#A00 ;¢á¥£® ­  ¤¨áª¥ #A00 ᥪâ®à®¢
CP #16 ;¤¨áª 80-¤®à®¦¥ç­ë© ¤¢ãåáâ®à®­­¨©?
JR Z,x1575 ;¥á«¨ ¤ , â® ª®¯¨à®¢ ­¨¥
JP x1D1A ;¨­ ç¥ *ERROR*
;‚­¨¬ ­¨¥!!! ‹ãçè¥ ¢ë¤ ¢ âì á®®¡é¥­¨¥ DISC ERROR.
x1575 LD BC,(#5E0A) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᢮¡®¤­ëå ᥪâ®à®¢
SBC HL,BC ;¢ëç¨á«ï¥¬ ª®«¨ç¥á⢮ § ­ïâëå ᥪâ®à®¢
LD (#5CE5),HL ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ᥪâ®à®¢
LD (#5CDF),HL
LD HL,0 ;᪮¯¨à®¢ ­® 0 ᥪâ®à®¢
LD (#5CE1),HL
LD (#5CE3),HL
CALL x15B8 ;ª®¯¨à®¢ ­¨¥ ᥪâ®à®¢
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5CE7) ;ãáâ ­®¢ª  ­®¢®£® ⨯  ¤¨áª -¯à¨¥¬­¨ª 
LD (#5E08),A
LD HL,(#5CDD) ;¡¥à¥¬ ®¡é¥¥ ç¨á«® ᥪâ®à®¢ ­  ¤¨áª¥-¯à¨¥¬­¨ª¥
LD BC,(#5CDF) ;¡¥à¥¬ ç¨á«® ᪮¯¨à®¢ ­­ëå ᥪâ®à®¢
SBC HL,BC ;¢ëç¨á«¥­¨¥ ç¨á«  ᢮¡®¤­ëå ᥪâ®à®¢ ­  ¤¨áª¥ - ¯à¨¥¬­¨ª¥
LD (#5E0A),HL ;ãáâ ­®¢ª  ¥£®
CALL x14E4 ;­ áâனª  ¤¨áª®¢®¤  ¯®¤ ¤¨áª-¯à¨¥¬­¨ª
LD DE,9 ;§ ¯¨á뢠«¨ ᥪâ®à 8 ¤®à®¦ª¨ 0
LD (#5CF4),DE
CALL x1E43 ;§ ¯¨áì ᥪâ®à 
JP x03E1 ;O.K.
;€¤à¥á #15B2. <20>஢¥àª  ¯¥à¥¬¥­­®© #5CE5. ‘®®â¢¥âá⢥­­® ᮤ¥à¦¨¬®¬ã ¡ã¤¥â ãáâ ­®¢«¥­ ä« £ Z,   á ¬® ᮤ¥à¦¨¬®¥ ¡ã¤¥â ¢ HL.
x15B2 LD HL,(#5CE5) ;¡¥à¥¬ ᮤ¥à¦¨¬®¥ ¯¥à¥¬¥­­®© #5CE5
LD A,H ;¯à®¢¥àª  ¥£® ­  0
OR L
RET ;¢®§¢à â
;€¤à¥á #15B8. Š®¯¨à®¢ ­¨¥ ᥪâ®à®¢. “áâ ­®¢¨â¥ #5CD9, #5CCF, #5CE5, #5D21, #5D23 ¨ #5CDB
x15B8 CALL x15B2 ;¢á¥ ᪮¯¨à®¢ «¨?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD A,(#5D21) ;¯¥à¢ë© ¯à®å®¤?
OR A
JR NZ,x15DB ;¥á«¨ ¤ , â® ¤¨áª-¨áâ®ç­¨ª 㦥 ¢ ¤¨áª®¢®¤¥
CALL x1D97
LD HL,x2779 ;¯¥ç âì BACKUP DISC
CALL x2707
LD HL,x27AA ;¯¥ç âì INSERT SOURCE DISC
CALL x2707
x15D1 CALL x1052 ;®¦¨¤ ­¨¥ ­ ¦ â¨ï "Y"
CP "Y"
JR NZ,x15D1
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
x15DB CALL x15B2 ;¢á¥ ᪮¯¨à®¢ «¨?
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,x1644 ;¥á«¨ à ¡®ç¥£® ¯à®áâà ­á⢠ ¬ «®, â® íâ® ¥é¥ ­¥ ª®­¥æ
LD BC,(#5CE5) ;¡¥à¥¬ ®á⠢襥áï ª®«¨ç¥á⢮ ᥪâ®à®¢
LD HL,0 ;¢á¥ ᪮¯¨à®¢ «¨
LD (#5CE5),HL
x15F8 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« áâ¨
PUSH HL ;á®å࠭塞 ¥£®
CALL x14D8 ;­ áâனª  ¤¨áª®¢®¤  ¯®¤ ¤¨áª-¨áâ®ç­¨ª
LD DE,(#5CE1) ;¡¥à¥¬  ¤à¥á £à㯯ë ᥪâ®à®¢ ­  ¤¨áª¥-¨áâ®ç­¨ª¥
LD B,C
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 £à㯯ë ᥪâ®à®¢
LD (#5CE1),HL ;­  ¤¨áª¥-¨áâ®ç­¨ª¥
CALL x1D97 ;®ç¨á⪠ íªà ­ 
LD HL,x2779 ;¯¥ç âì BACKUP DISC
CALL x2707
LD HL,x2785 ;¯¥ç âì INSERT DESTINATION DISC
CALL x2707
x161D CALL x1052 ;®¦¨¤ ­¨¥ ­ ¦ â¨ï "Y"
CP "Y"
JR NZ,x161D
CALL x1D9F ;®ç¨á⪠ ­¨§  íªà ­ 
LD A,(#5D21) ;¯¥à¢ë© ¯à®å®¤?
OR A
CALL NZ,x14F0 ;¥á«¨ ¤ , â® ¯à®¢¥àª  ­ «¨ç¨ï ¬¥áâ  ­  ¤¨áª¥
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  à ¡®ç¥© ®¡« áâ¨
POP BC ;¨ ª®«¨ç¥á⢠ ª®¯¨à㥬ëå ᥪâ®à®¢
LD DE,(#5CE3) ;¡¥à¥¬  ¤à¥á £à㯯ë ᥪâ®à®¢ ­  ¤¨áª¥-¯à¨¥¬­¨ª¥
LD B,C
CALL x14E4 ;­ áâனª  ¤¨áª®¢®¤  ¯®¤ ¤¨áª-¯à¨¥¬­¨ª
CALL x1E4D ;§ ¯¨áì ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 £à㯯ë ᥪâ®à®¢
LD (#5CE3),HL ;­  ¤¨áª¥-¯à¨¥¬­¨ª¥
JP x15B8 ;¯®¢â®à
x1644 LD (#5CE5),HL ;ãáâ ­®¢ª  ®á⠢襣®áï ª®«¨ç¥á⢠ ᥪâ®à®¢
PUSH HL ;á®åà ­¥­¨¥ ¥£®
LD HL,#5D23 ;¡¥à¥¬ ¤«¨­ã à ¡®ç¥© ®¡« áâ¨
LD C,(HL) ;á⮫쪮 ᥪâ®à®¢ ¡ã¤¥¬ ª®¯¨à®¢ âì
LD B,0
POP HL ;¢®ááâ ­®¢«¥­¨¥ ®á⠢襣®áï ª®«¨ç¥á⢠ ᥪâ®à®¢
XOR A ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à 
JP x15F8 ;ª®¯¨à®¢ ­¨¥
;€¤à¥á #1653. <20>஢¥àª  á®áâ®ï­¨ï ä ©« . <20>®¬¥à ä ©«  § ¤ ©â¥ ¢ ॣ¨áâॠA. ‚®§¢à é ¥â Z, ¥á«¨ ä ©« áâ¥àâ ¨ NZ, ¥á«¨ ­¥â,   ¢ A ¡ã¤¥â ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« .
x1653 CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
LD A,(#5CDD) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
CP 1 ;¯à®¢¥àª  á®áâ®ï­¨ï ä ©« 
RET ;¢®§¢à â
;€¤à¥á #165C. —⥭¨¥ ®¯¨á â¥«ï ä ©« . <20>  ¢å®¤¥ ¢ ॣ¨áâà A ¯®¬¥áâ¨â¥ ­®¬¥à ä ©« . Ž¯¨á â¥«ì ¡ã¤¥â § £à㦥­ ¯®  ¤à¥áã #5CE5. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#165D - â® ¦¥, çâ® ¨ #165C, ­® ­®¬¥à ä ©«  ¢ ॣ¨áâॠC.
;#165E - â® ¦¥, çâ® ¨ #17E9, ­® á®åà ­ï¥â ­®¬¥à ä ©« .
x165C LD C,A ;¯¥à¥­®á ­®¬¥à  ä ©«  ¢ ॣ. C
x165D XOR A ;¯¥à¥­®á¨¬ ®¯¨á â¥«ì ¨§ ¡ãä¥à  ¢ ¯ ¬ïâì
x165E PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
CALL x17E9 ;ç⥭¨¥ ᥪâ®à  á ®¯¨á â¥«¥¬ ¨ ¯¥à¥­®á ®¯¨á â¥«ï
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
RET ;¢®§¢à â
;€¤à¥á #1664. § ¯¨áì ¨­ä®à¬ æ¨¨ ® ä ©«¥. ‚室: ®¯¨á â¥«ì à á¯®«®¦¨âì ¯®  ¤à¥áã #5CDD,   ¢  ªªã¬ã«ïâ®à ¯®¬¥áâ¨âì ­®¬¥à ä ©« .
x1664 LD C,A ;¯¥à¥­®á ¢ C ­®¬¥à  ä ©« 
CALL x166B ;ç⥭¨¥ ᥪâ®à  ¨ § ¬¥­  ®¯¨á â¥«ï ä ©«  ¢ ­¥¬
JP x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à 
;€¤à¥á #166B. —⥭¨¥ ¢ ¡ãä¥à ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©«  ¨ § ¬¥­  ®¯¨á â¥«ï. <20>®¬¥áâ¨â¥ ®¯¨á â¥«ì ¯®  ¤à¥áã #5CDD.
x166B LD A,#FF ;®¯¨á â¥«ì ¯¥à¥¬¥é âì ¨§ ¯¥à¥¬¥­­ëå ¢ ¡ãä¥à
JR x165E ;â® ¦¥, çâ® ¨ #17E9, ­® á á®åà ­¥­¨¥¬ BC
;€¤à¥á #166F. <20>¥§¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¢ ¯ ¬ïâ¨. “áâ ­ ¢«¨¢ ¥â #5CCF ¨ #5D23.
x166F LD A,#FF ;WORKSP ¨á¯®«ì§®¢ « áì
LD (#5D0E),A
CALL x1680 ;¢ëç¨á«¥­¨¥ à §¬¥à  ¤®áâ㯭®© ¯ ¬ïâ¨
LD HL,(#5C61) ;ãáâ ­®¢ª   ¤à¥á  à ¡®ç¥© ®¡« áâ¨
LD (#5CCF),HL
JP x1E23 ;¢ë¤¥«¥­¨¥ ¬¥áâ  ¢ ¯ ¬ï⨠¨ ¢®§¢à â
;€¤à¥á #1680. ‚ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ᢮¡®¤­®© ¯ ¬ï⨠¢ ᥪâ®à å. <20> §¬¥à ᢮¡®¤­®© ¯ ¬ï⨠¢ ¡ ©â å ¡ã¤¥â ¢ BC,   ¢ ᥪâ®à å ? ¢ #5D23.
x1680 RST #20 ;¡¥à¥¬ ª®«¨ç¥á⢮ ᢮¡®¤­®© ¯ ¬ï⨠¢ ¡ ©â å
DW #1F1A
LD HL,#FFFF
SBC HL,BC
LD A,H ;᢮¡®¤­® ¬¥­ìè¥ 16 ᥪâ®à®¢?
CP #10
JR NC,x168F ;¥á«¨ ¤ , â®
LD A,#11 ;¡ã¤¥¬ ¢ë¤¥«ïâì 16 ᥪâ®à®¢
x168F DEC A ;1 ᥪâ®à ­  ¢á直© á«ãç ©
LD (#5D23),A ;ãáâ ­®¢ª  à §¬¥à  ᢮¡®¤­®© ¯ ¬ï⨠¢ ᥪâ®à å
LD B,A ;ãáâ ­®¢ª  à §¬¥à  ᢮¡®¤­®© ¯ ¬ï⨠¢ ¡ ©â å
LD C,0
RET ;¢®§¢à â
;€¤à¥á #1697. <20>®¬¥é ¥â HL ¢ #5CD7 ¨ #5CDB ¨ ¯à¨¡ ¢«ï¥â #5CEA (1 ¡ ©â) ª #5CD9 (2 ¡ ©â ).
x1697 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.
x16AB CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x166F ;१¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¢ ¯ ¬ïâ¨
CALL x0405 ;­ áâனª  ­  ¤¨áª
LD A,(#5E19) ;áâ¥àâë¥ ä ©«ë ­  ¤¨áª¥ ¥áâì?
OR A
JP Z,x03E1 ;¥á«¨ ­¥â, â® á®®¡é¥­¨¥ O.K.
LD HL,0 ;¯®ª  ®á¢®¡®¤¨«®áì 0 ᥪâ®à®¢
LD (#5CD9),HL
LD C,#FF ;­ ç­¥¬ á ä ©«  ­®¬¥à 0
x16C3 INC C ;á«¥¤ãî騩 ä ©«
CALL x1653 ;®­ áâ¥àâ?
JR NZ,x16C3 ;¥á«¨ ­¥â, â® á«¥¤ãî騩 ä ©«
LD A,C ;á®åà ­¥­¨¥ ­®¬¥à  áâ¨à ¥¬®£® ä ©« 
LD (#5CD4),A
LD HL,(#5CEB) ;¡¥à¥¬  ¤à¥á áâ¨à ¥¬®£® ä ©«  ­  ¤¨áª¥
LD (#5CD5),HL ;á®å࠭塞 ¥£®
CALL x1697 ;¯à¨à é¥­¨¥ áç¥â稪  ®á¢®¡®¤¨¢è¨åáï ᥪâ®à®¢
x16D6 INC C ;á«¥¤ãî騩 ä ©«
CALL x1653 ;®­ áâ¥àâ?
JR Z,x16D6 ;¥á«¨ ¤ , â® á«¥¤ãî騩 ä ©«
CP 0 ;íâ® ª®­¥æ ª â «®£ ?
JP NZ,x1710 ;¥á«¨ ­¥â, â® ¬¥­ï¥¬ ä ©«ë ¬¥áâ ¬¨
LD A,(#5CD4) ;¡¥à¥¬ ­®¬¥à áâ¨à ¥¬®£® ä ©« 
LD C,A
x16E5 INC C ;á«¥¤ãî騩 ä ©«
CALL x1653 ;íâ® ª®­¥æ ª â «®£ ?
CP 0
JR Z,x176C ;¥á«¨ ¤ , ⮠८࣠­¨§ æ¨ï ®¯¨á â¥«ï ¤¨áª 
XOR A ;ª®­¥æ ª â «®£ 
LD (#5CDD),A
CALL x1E40 ;§ ¯¨áì ®¯¨á â¥«ï ä ©« 
CALL x1697 ;¯à¨à é¥­¨¥ áç¥â稪  ®á¢®¡®¤¨¢è¨åáï ᥪâ®à®¢
JR x16E5 ;¯®¢â®à
x16F9 call x1701
ret nz
jr x170D
x16FF db #FF,#FF
x1701 in a,(#1F)
and #02
cp b
ret nz
inc de
ld a,e
or d
jr nz,x1701
ret
x170D jp x3EE7
x1710 LD A,(#5CEA) ;¡¥à¥¬ à §¬¥à ¯¥à¥¬¥é ¥¬®£® ä ©«  ¢ ᥪâ®à å
LD (#5CD3),A ;á®å࠭塞 ¥£®
LD (#5CD1),A
LD HL,(#5CEB) ;¡¥à¥¬  ¤à¥á ¯¥à¥¬¥é ¥¬®£® ä ©«  ­  ¤¨áª¥
LD (#5CD5),HL ;á®å࠭塞 ¥£®
PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ¯¥à¥¬¥é ¥¬®£® ä ©« 
CALL x17A5 ;¯¥à¥¬¥é¥­¨¥ ä ©« 
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 x1E40 ;§ ¯¨áì ®¯¨á â¥«ï áâ¥à⮣® ä ©« 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ¯¥à¢®£® ᨬ¢®«  ¨¬¥­¨ ä ©« 
LD (#5CDD),A
LD A,(#5CD4) ;¡¥à¥¬ ­®¬¥à áâ¥à⮣® ä ©« 
LD C,A
LD HL,(#5CDB) ;ãáâ ­®¢ª  ­®¢®£®  ¤à¥á  ¯¥à¥¬¥é¥­­®£® ä ©« 
LD (#5CEB),HL ;­  ¤¨áª¥
LD A,(#5CD1) ;¢®ááâ ­®¢«¥­¨¥ à §¬¥à  ¯¥à¥¬¥é¥­­®£® ä ©« 
LD (#5CEA),A ;­  ¤¨áª¥
CALL x1E40 ;§ ¯¨áì ®¯¨á â¥«ï ¯¥à¥¬¥é¥­­®£® ä ©« 
LD A,(#5CD4) ;¡¥à¥¬ ­®¬¥à ä ©«  ¯®á«¥ ¯¥à¥¬¥é¥­­®£®
INC A
LD C,A
CALL x165D ;ç⥭¨¥ ¥£® ®¯¨á â¥«ï
LD HL,(#5CD5) ;ãáâ ­®¢ª  ¥£® ­®¢®£®  ¤à¥á  ­  ¤¨áª¥
LD (#5CEB),HL
CALL x1E40 ;§ ¯¨áì ¥£® ®¯¨á â¥«ï
LD A,(#5CD4) ;¡¥à¥¬ ­®¬¥à ¯¥à¥¬¥é¥­­®£® ä ©« 
LD C,A
JP x16C3 ;¯®¢â®à
;€¤p¥á #176C. <20>¥®à£ ­¨§ æ¨ï ®¯¨á â¥«ï ¤¨áª . “áâ ­®¢¨â¥ #5CCF, #5CD9 ¨ #5CD5.
x176C LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥£® ¯à®áâà ­á⢠
LD BC,#1000 ;᮪à é ¥¬ ¥£® ­  #1000 ¡ ©â®¢
CALL x1E2E
CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  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 x1E43 ;§ ¯¨áì ᥪâ®à  8 ¤®à®¦ª¨ 0
POP AF ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ä ©«®¢ ­  ¤¨áª¥
LD C,A
CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©«  §  ¯®á«¥¤­¨¬
XOR A ;íâ® ª®­¥æ ª â «®£ 
LD (#5CDD),A
JP x0569 ;§ ¯¨áì ®¯¨á â¥«ï ä ©«  ¨ § ¢¥à襭¨¥
;€¤à¥á #17A5. <20>¥à¥¬¥é¥­¨¥ ä ©« . “áâ ­®¢¨â¥ #5CD3, #5D23, #5CCF, #5CD5 ¨ #5CD7.
x17A5 LD A,(#5CD3) ;¯¥à¥¬¥é¥­ ¢¥áì ä ©«?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ;¡ãä¥à  墠â¨â ­  ®áâ â®ª?
SUB (HL)
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
JR NC,x17DD ;¥á«¨ ¡ãä¥à  ­¥ 墠â¨â, â® ¯¥à¥¬¥é ¥¬ ç áâì ä ©« 
LD A,(#5CD3) ;¡¥à¥¬ ª®«¨ç¥á⢮ ®áâ ¢è¨åáï ᥪâ®à®¢
LD B,A
XOR A ;¯¥à¥¬¥á⨫¨ ¢á¥
LD (#5CD3),A
x17BA PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ¯¥à¥¬¥é ¥¬ëå ᥪâ®à®¢
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« áâ¨
PUSH HL ;á®åà ­¥­¨¥ ¥£®
LD DE,(#5CD5) ;¡¥à¥¬  ¤à¥á ç á⨠¯¥à¥¬¥é ¥¬®£® ä ©«  ­  áâ à®¬ ¬¥áâ¥
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 ç á⨠䠩« 
LD (#5CD5),HL
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  à ¡®ç¥© ®¡« áâ¨
POP BC ;¨ ª®«¨ç¥á⢠ ¯¥à¥¬¥é ¥¬ëå ᥪâ®à®¢
LD DE,(#5CD7) ;¡¥à¥¬  ¤à¥á ç á⨠¯¥à¥¬¥é ¥¬®£® ä ©«  ­  ­®¢®¬ ¬¥áâ¥
CALL x1E4D ;§ ¯¨áì ᥪâ®à®¢
LD HL,(#5CF4) ;ãáâ ­®¢ª   ¤à¥á  á«¥¤ãî饩 ç á⨠䠩« 
LD (#5CD7),HL
JR x17A5 ;¯®¢â®à
x17DD LD (#5CD3),A ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ®áâ ¢è¨åáï ᥪâ®à®¢
PUSH HL ;á®åà ­¥­¨¥ HL
LD HL,#5D23 ;¡¥à¥¬ ¤«¨­ã à ¡®ç¥© ®¡« á⨠¢ ᥪâ®à å
LD B,(HL)
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
XOR A ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à 
JR x17BA ;¯¥à¥¬¥é¥­¨¥ ᥪâ®à®¢
;€¤à¥á #17E9. ‡ £à㧪  ¢ ¡ãä¥à ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©«  ¨ ¯¥à¥­®á ®¯¨á â¥«ï. ‚ ॣ¨áâॠC - ­®¬¥à ä ©« , ¢ A - ­ ¯à ¢«¥­¨¥ ¯¥à¥¬¥é¥­¨ï (0 - ¢ ¯¥à¥¬¥­­ë¥, ¨­ ç¥ - ¢ ¯à®ç¨â ­­ë© ᥪâ®à).
x17E9 PUSH AF ;á®åà ­¥­¨¥ ­ ¯à ¢«¥­¨ï ¯¥à¥¬¥é¥­¨ï
LD HL,#5CCC ;¯¥à¢ë© ᥪâ®à ª â «®£  - 0
LD (HL),0
LD A,C ;®¯à¥¤¥«¥­¨¥ ­®¬¥à  ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©« 
x17F0 SUB #10
JR C,x17F7
INC (HL)
JR x17F0
x17F7 ADD A,#10 ;¡¥à¥¬ ­®¬¥à ®¯¨á â¥«ï ¢ ᥪâ®à¥
LD C,A
PUSH BC ;á®åà ­¨¬ ¥£®
CALL x03EC ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  á ®¯¨á â¥«¥¬
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ®¯¨á â¥«ï ¢ ᥪâ®à¥
POP AF ;¨ ­ ¯à ¢«¥­¨¥ ¯¥à¥¬¥é¥­¨ï
CALL x1CA4 ;®¯à¥¤¥«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ä ©«  ¢ ¡ãä¥à¥
LD DE,#5CDD ;¡¥à¥¬ ¢â®à®©  ¤à¥á ¤«ï LDIR
LD BC,#10 ;¡¥à¥¬ ¤«¨­ã ®¯¨á â¥«ï
OR A ;ãáâ ­®¢ª  ­ ¯à ¢«¥­¨ï ¯¥à¥¬¥é¥­¨ï
JR Z,x180D
EX DE,HL
x180D LDIR ;¯¥à¥­®á ®¯¨á â¥«ï ä ©« 
RET ;¢®§¢à â
;€¤à¥á #1810. ‚믮«­¥­¨¥ ª®¬ ­¤ë VERIFY. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#1815 - ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë LOAD. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B;
;#1818 - ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë LOAD, PEEK ¨«¨ POKE; “áâ ­®¢¨â¥ #5D11, #5C3B ¨ #5D10.
x1810 LD A,#FF ;¢¥à¨ä¨ª æ¨ï ä ©« 
LD (#5CF9),A
x1815 CALL x1852 ;®¡­ã«¥­¨¥ #5D10
x1818 CALL x1836 ;®¡à ¡®âª  ¯ à ¬¥â஢ ¨ § £à㧪  ä ©« 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,#FF ;¢ë¯®«­ï¥âáï ª®¬ ­¤  LOAD
LD (#5D10),A
LD A,(#5CF9) ;¢ë¯®«­ï¥âáï VERIFY?
CP #FF
JP Z,x03E1 ;¥á«¨ ¤ , â® O.K.
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  B?
CP "B"
;‚­¨¬ ­¨¥!!! …᫨ ¡ë«  ®¯¥à æ¨ï á ®¤­¨¬ ᥪâ®à®¬ ä ©« , â® ­ ¤® ¢ë室¨âì ­¥§ ¢¨á¨¬® ®â à áè¨à¥­¨ï.
JP Z,x012A ;¥á«¨ ¤ , â® ®¡à ¡®âª  áâப¨  ¢â®áâ àâ 
JP x03E1 ;¨­ ç¥ O.K.
;€¤à¥á #1836. Ž¡à ¡®âª  ¯ à ¬¥â஢ ¤«ï ª®¬ ­¤ë LOAD ¨ § £à㧪  ä ©« . “áâ ­®¢¨â¥ #5D11, #5C3B, #5CF9 ¨ #5D10.
x1836 CALL x187A ;¯à¨­ï⨥ ¯ à ¬¥â஢
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x18AB ;¯à®¢¥àª  ¯ à ¬¥â஢
JP x1921 ;§ £à㧪  ä ©«  ¨ ¢®§¢à â
;€¤à¥á #1842. Ž¡à ¡®âª  ¯ à ¬¥â஢ ¤«ï ª®¬ ­¤ë LOAD...CODE. “áâ ­®¢¨â¥ #5C5D ­  à áè¨à¥­¨¥ ä ©« . <20>  ¢ë室¥ ãáâ ­ ¢«¨¢ ¥â #5CD6, #5CD9 ¨ #5CDB.
x1842 LD HL,(#5C5D) ;á«¥¤ãî騩 ᨬ¢®« áâப¨ ENTER?
INC HL
LD A,(HL)
CP #D
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD A,1 ;§ ¤ ­  ¤à¥á § £à㧪¨
LD (#5CD6),A
CALL x1DEB ;¯à¨¥¬ ®¤­®£® ¨«¨ ¤¢ãå ç¨á¥«
x1852 XOR A ;®¡­ã«¥­¨¥ #5D10
LD (#5D10),A
RET ;¢®§¢à â
x1857 CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
LD A,"B" ;íâ® "B"?
CP B
JR NZ,x1866 ;¥á«¨ ¤ , â® ¤¥ªà¥¬¥­â CH_ADD, â ª ª ª ¤«ï
LD HL,(#5C5D) ;¯à®£à ¬¬ë ­  ¡¥©á¨ª¥ à áè¨à¥­¨¥ ­¥
DEC HL ;㪠§ë¢ ¥âáï
LD (#5C5D),HL
x1866 CALL x1DEB ;¯à¨¥¬ ç¨á¥«
LD HL,(#5CD9) ;ãáâ ­®¢ª   ¤à¥á  § £à㧪¨/§ ¯¨á¨ ᥪâ®à 
LD (#5CD7),HL
LD HL,(#5CDB) ;ãáâ ­®¢ª  ­®¬¥à  ᥪâ®à 
LD (#5CD9),HL
XOR A ;®¡­ã«¥­¨¥ #5CD6
LD (#5CD6),A
RET ;¢®§¢à â
;€¤à¥á #187A. <20>ਭï⨥ ¯ à ¬¥â஢ ¤«ï ª®¬ ­¤ë LOAD. ‚室: ãáâ ­®¢¨â¥ #5D11 ¨ #5C3B. ‚ë室: ãáâ ­ ¢«¨¢ ¥â #5CD2, #5CD7, #5CD9, #5CE5 ¨ #5CD6 ¨ ç¨â ¥â ®¯¨á â¥«ì ä ©« .
x187A CALL x042B ;¢â®à®© ᨬ¢®« ª®¬ ­¤­®© áâப¨ ENTER?
JP Z,x027B ;¥á«¨ ¤ , â® ¢å®¤ ¢ ª®¬ ­¤­ë© ¯à®æ¥áá®à á ¢¢®¤®¬ ª®¬ ­¤ë RUN "boot"
;Žè¨¡ª !!! íâ® ­¥ª®à४⭮, â ª ª ª ¯à¨ ®è¨¡ª¥ ¢ë ¯®¯ ¤¥â¥ ¢ ª®¬ ­¤­ë© ¯à®æ¥áá®à TR-DOS,   ­¥ ¢¥à­¥â¥áì ¢ ¡¥©á¨ª.
CALL x1DDF ;¯®¬¥é¥­¨¥ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x0572 ;®¯¥à æ¨ï á® ¢á¥¬ ä ©«®¬?
CALL NZ,x1857 ;¥á«¨ ­¥â, â® ¯à¨¥¬ à áè¨à¥­¨ï ¨ ¤¢ãå ç¨á¥«
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®« áâப¨
CP #AF ;íâ® CODE?
CALL Z,x1842 ;¥á«¨ ¤ , â® ¯à¨¥¬ ç¨á¥«, ¥á«¨ ®­¨ ¥áâì
CP #E4 ;íâ® DATA?
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL x0572 ;®¯¥à æ¨ï á® ¢á¥¬ ä ©«®¬?
CALL Z,x102E ;¥á«¨ ¤ , â® ¯à¨¥¬ à áè¨à¥­¨ï
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL Z,x1BFC ;¥á«¨ ᨬ¢®« DATA, â® ¯à¨¥¬ ¨¬¥­¨ ¬ áᨢ 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x292F ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©«  ¨ ¯®¨áª ä ©« 
;€¤à¥á #18A4. —⥭¨¥ ®¯¨á â¥«ï ä ©« , ¥á«¨ ®­ ¡ë« ­ ©¤¥­. “áâ ­®¢¨â¥ #5CDD, #5CE5 ¨ ä« £ Z: ¯à¨ Z=1 ¯à®¨á室¨â ç⥭¨¥ ®¯¨á â¥«ï, ¨­ ç¥ ®è¨¡ª  NO FILE.
x18A4 JP NZ,x03D9 ;¥á«¨ ä ©« ­¥ ­ ©¤¥­, â® NO FILE
CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
RET ;¢®§¢à â
;€¤à¥á #18AB. Ž¡à ¡®âª  ¯ à ¬¥â஢ ¤«ï ¯®¤¯à®£à ¬¬ë § £à㧪¨ ä ©« . <20>  ¢å®¤¥ ãáâ ­®¢¨â¥ #5CD6, #5CD9 ¨ #5CDB ; áç¨â ©â¥ ®¯¨á â¥«ì ­ã¦­®£® ¢ ¬ ä ©« . <20>  ¢ë室¥ ¢ #5CDB ¡ã¤¥â ¤«¨­  ä ©«  ¤«ï § £à㧪¨, ¢ #5CD6 0, ¥á«¨ ¤«¨­  ¬¥­ï« áì, ¨­ ç¥ 3. ‚ HL ¡ã¤¥â  ¤à¥á § £à㧪¨ ä ©« , ¢ DE - ¥£®  ¤à¥á ­  ¤¨áª¥, ¢ B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï § £à㧪¨. <20>ਠ§ £à㧪¥ ¬ áᨢ  ¨«¨ ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥ ¡ã¤¥â ¯à®¨§¢¥¤¥­  ¯®¤£®â®¢ª  ¯ ¬ï⨠ª § £à㧪¥.
x18AB LD A,(#5CD6) ;¡¥à¥¬ ä« £ § £à㧪¨
OR A ;­ ç «® ¨ ¤«¨­ã ¡à âì ¨§ ª â «®£ ?
LD HL,(#5CE6) ;¡¥à¥¬ ­ ç «® ä ©«  ¨§ ®¯¨á â¥«ï
JR Z,x18B7 ;¥á«¨ ¯ à ¬¥âàë ¡¥à¥¬ ­¥ ¨§ ª â «®£ , â®
LD HL,(#5CD9) ;¡¥à¥¬ ­ ç «ì­ë©  ¤à¥á, ­ §­ ç¥­­ë© ­ ¬¨
x18B7 LD DE,(#5CEB) ;¡¥à¥¬  ¤à¥á ä ©«  ­  ¤¨áª¥
CP 3 ;¢á¥ ¯ à ¬¥âàë ­ §­ ç¥­ë ¯®«ì§®¢ â¥«¥¬?
LD A,(#5CEA) ;¡¥à¥¬ à §¬¥à ä ©«  ¢ ᥪâ®à å
PUSH DE ;á®åà ­¥­¨¥  ¤à¥á  ä ©«  ­  ¤¨áª¥
LD DE,(#5CE8) ;¡¥à¥¬ ¤«¨­ã ä ©«  ¨§ ®¯¨á â¥«ï
JR NZ,x18CB ;¥á«¨ ­ã¦­® ¡à âì ¥¥ ­¥ ®ââ㤠, â® ¡¥à¥¬
LD DE,(#5CDB) ;¤«¨­ã § £à㧪¨, ­ §­ ç¥­­ãî ­ ¬¨
x18CB LD B,A ;á®åà ­¥­¨¥ à §¬¥à  ä ©«  ¢ ᥪâ®à å
LD (#5CDB),DE ;ãáâ ­®¢ª  ¤«¨­ë ä ©«  ¤«ï § £à㧪¨
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  C?
CP "C"
LD A,B ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ä ©«  ¢ ᥪâ®à å
JR NZ,x18FD ;¥á«¨ à áè¨à¥­¨¥ ­¥ C, â® ¤«¨­ã ­¥ ¬¥­ïâì
LD A,B ;¥á«¨ ¤«¨­  ä ©«  ¢ ¡ ©â å ᮮ⢥âáâ¢ã¥â ¥£®
CP D ;à §¬¥àã ¢ ᥪâ®à å, â® ¤«¨­  § £à㧪¨ ­¥ ¬¥­ï¥âáï
JR Z,x18F6
DEC A
CP D
LD A,B
JR Z,x18F6
LD A,(#5CD6) ;¤«¨­  ­ §­ ç¥­  ¯®«ì§®¢ â¥«¥¬?
CP 3
LD A,B ;¢®ááâ ­®¢«¥­¨¥ à §¬¥à  ä ©«  ¢ ᥪâ®à å
JR Z,x18F6 ;¥á«¨ ¬ë á ¬¨ ­ §­ ç¨«¨ ¤«¨­ã § £à㧪¨, â® ®­  ­¥ ¬¥­ï¥âáï
XOR A ;£à㧨âì ⮫쪮 ¯®«­®áâìî § ¯®«­¥­­ë¥ ᥪâ®à 
LD (#5CD6),A
LD D,B ;¢ëç¨á«¥­¨¥ ¤«¨­ë ä ©«  ¢ ¡ ©â å ¨§ ¥£® ¤«¨­ë
LD E,0 ;¢ ᥪâ®à å
LD (#5CDB),DE ;ãáâ ­®¢ª  ­®¢®© ¤«¨­ë
JR x18F9
x18F6 CALL x191B ;ä ©« § £à㦠âì ¢¥áì
x18F9 LD A,B ;¢®ááâ ­®¢«¥­¨¥ à §¬¥à  ä ©«  ¢ ᥪâ®à å
CALL x1EAC ;¢ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢ ¤«ï § £à㧪¨
x18FD 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,x1A01 ;¥á«¨ à áè¨à¥­¨¥ B, â® ¯®¤£®â®¢ª  ª § £à㧪¥ ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
POP AF ;¢®ááâ ­®¢«¥­¨¥ à áè¨à¥­¨ï
CP "D" ;à áè¨à¥­¨¥ D?
CALL Z,x1A4C ;¥á«¨ ¤ , â® ¯®¤£®â®¢ª  ª § £à㧪¥ ¬ áᨢ 
CALL x191B ;¤«¨­  § £à㧪¨ ­¥ ¬¥­ï« áì
LD A,(#5CDC) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï § £à㧪¨
LD B,A
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ä ©«  ­  ¤¨áª¥
RET ;¢®§¢à â
;€¤à¥á #191B. <20>®¬¥é ¥â ç¨á«® 3 ¯®  ¤à¥áã #5CD6.
x191B LD A,3
LD (#5CD6),A
RET
;€¤à¥á #1921. ‡ £à㧪 /¢¥à¨ä¨ª æ¨ï ä ©« ,   â ª¦¥ § £à㧪 /§ ¯¨áì ᥪâ®à  ä ©« . ‚室: ãáâ ­®¢¨â¥ #5CF9, #5D10, #5CD7, #5CDB, ¢ HL -  ¤à¥á § £à㧪¨, ¢ DE -  ¤à¥á ä ©«  ­  ¤¨áª¥, ¢ B - ª®«¨ç¥á⢮ ᥪâ®à®¢ ¤«ï § £à㧪¨.
x1921 CALL x0572 ;¢ë¯®«­ï¥âáï § £à㧪  ¨«¨ ¢¥à¨ä¨ª æ¨ï?
JR Z,x192D ;¥á«¨ ¤ , â® ¢ë¯®«­¥­¨¥ ®¯¥à æ¨© á® ¢á¥¬ ä ©«®¬
PUSH AF ;á®åà ­¥­¨¥ ä« £  ®¯¥à æ¨¨
CALL x1A94 ;¢ëç¨á«¥­¨¥  ¤à¥á  ᥪâ®à  ­  ¤¨áª¥
POP AF ;¢®ááâ ­®¢«¥­¨¥ ä« £  ®¯¥à æ¨¨
CP #FF ;ç⥭¨¥ ᥪâ®à  ä ©« ?
x192D PUSH AF
CALL Z,x195C ;¥á«¨ ¤ , â® ç⥭¨¥ ᥪâ®à  ¨«¨ ®¯¥à æ¨ï á ä ©«®¬
POP AF
JR Z,x1937 ;¨ § ¢¥à襭¨¥ § £à㧪¨ ¨«¨ ¢¥à¨ä¨ª æ¨¨
JP x1E4D ;¨­ ç¥ § ¯¨áì ᥪâ®à  ¨ ¢®§¢à â
x1937 LD A,(#5CD6) ;§ £à㦠âì ¢¥áì ä ©«?
CP 3
;<3B>¥ ­ã¦­® í⮣® ¤¥« âì!!! ‹ãçè¥ â ª:
;LD A,(#5D10)
;OR A
;¨ PEEK ¡ã¤¥â à ¡®â âì ¯à ¢¨«ì­®. <20>¥ ¡ã¤¥â £à㧨âáï ¬ãá®à ¯®á«¥ § £à㦥­­®£® ᥪâ®à . ¢¥¤ì ¥á«¨ ¢ #5CD6 ­ å®¤¨âáï 0, â® ¬« ¤è¨© ¡ ©â ¤«¨­ë ¢á¥£¤  à ¢¥­ 0 ¨ #1946 ­¥ ¡ã¤¥â à ¡®â âì.
CALL Z,x1946 ;¥á«¨ ¤ , â® § £à㧪  ¨«¨ ¢¥à¨ä¨ª æ¨ï ª®­æ  ä ©« 
LD HL,(#5C59) ;®â¬¥âª  ª®­æ  ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
DEC HL
LD (HL),#80
RET ;¢®§¢à â
;€¤à¥á #1946. ‡ £à㧪  ¨«¨ ¢¥à¨ä¨ª æ¨ï ª®­æ  ä ©« . “áâ ­®¢¨â¥ #5CF4, #5CDB ¨ #5CF9.
x1946 LD A,(#5CF9) ;¢¥à¨ä¨ª æ¨ï?
CP #FF
JP NZ,x2FDE ;¥á«¨ ­¥â, â® § £à㧪  ª®­æ  ä ©« 
LD A,(#5CDB) ;ä ©« § ­¨¬ ¥â ᥪâ®à  ¡¥§ ®áâ âª ?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD C,A ;¡¥à¥¬ ¤«¨­ã ®áâ âª 
LD B,1 ;1 ᥪâ®à
LD DE,(#5CF4) ;⥪ã饥 ¬¥áâ® ¤¨áª 
JR x196A ;¢¥à¨ä¨ª æ¨ï ª®­æ  ä ©«  ¨ ¢®§¢à â
;€¤à¥á #195C. ‡ £à㧪 /¢¥à¨ä¨ª æ¨ï ä ©« ,   â ª¦¥ § £à㧪  ᥪâ®à  ä ©« . “áâ ­®¢¨â¥ #5CF9 ,¢ DE ¯®¬¥áâ¨â¥  ¤à¥á ä ©«  ­  ¤¨áª¥, ¢ HL -  ¤à¥á ä ©«  ¢ ¯ ¬ïâ¨, ¢ B - ¤«¨­ã ä ©«  ¢ ᥪâ®à å. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #196A ¤«ï ¢¥à¨ä¨ª æ¨¨ § ¤ ­­®£® ª®«¨ç¥á⢠ ¡ ©â®¢ (¢á¥ ¤«ï #195C, ªà®¬¥ #5CF9 ¯«îá ¢ B ? ª®«¨ç¥á⢮ ¡ ©â®¢).
x195C LD A,(#5CF9) ;¢¥à¨ä¨ª æ¨ï?
CP #FF
JP NZ,x1E3D ;¥á«¨ ­¥â, â® § £à㧪  ᥪâ®à®¢ ¨ ¢®§¢à â
LD (#5CF4),DE ;§ ¯®¬­¨¬  ¤à¥á ä ©«  ­  ¤¨áª¥
LD C,0 ;¢ ᥪâ®à¥ #100 ¡ ©â®¢
x196A LD A,B ;¢¥à¨ä¨æ¨à㥬 0 ᥪâ®à®¢?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD (#5CD7),HL ;á®åà ­¥­¨¥  ¤à¥á  ä ©«  ¢ ¯ ¬ïâ¨
LD (#5CD9),DE ;á®åà ­¥­¨¥  ¤à¥á  ä ©«  ­  ¤¨áª¥
x1974 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
LD B,1 ;§ £à㦠âì 1 ᥪâ®à
LD DE,(#5CD9) ;á ⥪ã饣® ¬¥áâ  ¤¨áª 
LD HL,#5D25 ;¢ ¡ãä¥à
CALL x1E3D ;§ £à㧪  ᥪâ®à 
LD HL,(#5CF4) ; ¤à¥á á«¥¤ãî饣® ᥪâ®à  ­  ¤¨áª¥
LD (#5CD9),HL
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
LD HL,(#5CD7) ;¡¥à¥¬  ¤à¥á ä ©«  ¢ ¯ ¬ïâ¨
LD DE,#5D25 ; ¤à¥á ᥪâ®à  ¢ ¡ãä¥à¥
x198E LD A,(DE) ;áà ¢­¥­¨¥ ¨å
CP (HL)
JR NZ,x199D ;¥á«¨ ­¥á®¢¯ ¤¥­¨¥, â® VERIFY ERROR
INC HL ;á«¥¤ãî騥 ¡ ©âë
INC DE
DEC C
JR NZ,x198E ;¯®¢â®à ¤® ª®­æ 
LD (#5CD7),HL ;ãáâ ­®¢ª  á«¥¤ãî饣®  ¤à¥á 
DJNZ x1974 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
x199D LD HL,x276B ; ¤à¥á á®®¡é¥­¨ï VERIFY ERROR
LD A,#D ;ª®¤ ®è¨¡ª¨ - #D
JP x1C4A ;®¡à ¡®âª  ®è¨¡®ª
;€¤à¥á #19A5. ‚믮«­¥­¨¥ ª®¬ ­¤ë PEEK. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x19A5 LD A,#FF ;ª®¤ ä㭪樨 PEEK
JR x19AB ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #19A9. ‚믮«­¥­¨¥ ª®¬ ­¤ë POKE. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #19AB (¢ë¯®«­¥­¨¥ ª®¬ ­¤ë LOAD, PEEK ¨«¨ POKE; “áâ ­®¢¨â¥ #5D11 ¨ #5C3B,   ¢  ªªã¬ã«ïâ®à ¯®¬¥áâ¨â¥ ª®¤ ä㭪樨).
x19A9 LD A,#EE ;ª®¤ ä㭪樨 POKE
x19AB LD (#5D10),A ;ãáâ ­®¢ª  ª®¤  ä㭪樨
JP x1818 ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #19B1. ‚믮«­¥­¨¥ ª®¬ ­¤ë MERGE. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x19B1 LD A,#FF ;¨á¯®«ì§®¢ « áì à ¡®ç ï ®¡« áâì
LD (#5D1F),A
;Žè¨¡ª !!! ”« £ á®áâ®ï­¨ï à ¡®ç¥© ®¡« á⨠­ å®¤¨âáï ¯®  ¤à¥áã #5D15.
CALL x187A ;®¡à ¡®âª  ¯ à ¬¥â஢
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  B?
CP "B"
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
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 x191B ;§ £à㦠âì ¢¥áì ä ©«
LD A,(#5CDC) ;¡¥à¥¬ ¤«¨­ã ä ©«  ¢ ¡«®ª å
LD B,A
CALL x1852 ;®¯¥à æ¨ï á® ¢á¥¬ ä ©«®¬
CALL x1921 ;§ £à㧪  ä ©« 
POP HL ;¢®ááâ ­ ¢«¨¢ ¥¬  ¤à¥á § £à㧪¨
LD DE,(#5C53) ;¡¥à¥¬  ¤à¥á ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
RST #20 ;®¡ê¥¤¨­¥­¨¥ ¯à®£à ¬¬
DW #08D2
JP x03E1 ;á®®¡é¥­¨¥ O.K.
;€¤à¥á #19F2. <20>஢¥àª  ¬¥áâ  ¢ ¯ ¬ï⨠¤«ï १¥à¢¨à®¢ ­¨ï ­®¢®£® ¯à®áâà ­á⢠ ¢¬¥áâ® áâ à®£®. ‚ HL - áâ à ï ¤«¨­ , ¢ DE - ­®¢ ï. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#19FD (¯à®¢¥àª  ­ «¨ç¨ï ¯à®áâà ­á⢠ ¢ ¯ ¬ïâ¨; ¤«¨­  ¯à®áâà ­á⢠ ¤®«¦­  ¡ëâì ¢ DE).
x19F2 EX DE,HL
SCF ;¢ëç¨á«¥­¨¥ à §­®á⨠¤«¨­
SBC HL,DE
RET C ;¥á«¨ ­®¢ ï ¤«¨­  ¬¥­ìè¥ áâ à®©, â® ¢®§¢à â
LD DE,#A ;¤®«¦­® ®áâ âìáï ¥é¥ #A ¡ ©â®¢
ADD HL,DE
LD B,H ;¯¥à¥¡à®áª  à §­®á⨠¤«¨­ ¢ BC
LD C,L
x19FD RST #20 ;¯à®¢¥àª  ­ «¨ç¨ï ¯à®áâà ­á⢠ ¢ ¯ ¬ïâ¨
DW #1F05
RET ;¢®§¢à â
;€¤à¥á #1A01. <20>®¤£®â®¢ª  ª § £à㧪¥ ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥.
x1A01 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,x1A20 ;¥á«¨ ¤ , â® ¤«¨­ã ­¥ ¬¥­ï¥¬
LD HL,5 ;¨­ ç¥ 㢥«¨ç¨¬ ¥¥ ­  5 ¡ ©â®¢
x1A20 ADD HL,DE
LD (#5CDB),HL ;ãáâ ­®¢ª  ¤«¨­ë § £à㧪¨
POP HL ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë áâ à®© ¯à®£à ¬¬ë
LD A,(#5CF9) ;¢¥à¨ä¨ª æ¨ï?
CP #FF
JR NZ,x1A31 ;¥á«¨ ­¥â, â® ¯®¤£®â®¢ª  ¯ ¬ïâ¨
POP DE ;á­ï⨥ ॣ¨áâ஢ á® á⥪ 
POP DE
POP HL
JR x1A48 ;¢®§¢à â
x1A31 CALL x19F2 ;¯à®¢¥àª  ­ «¨ç¨ï ¬¥áâ  ¤«ï ¯à®£à ¬¬ë
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ¯à®£à ¬¬ë á ¯¥à¥¬¥­­ë¬¨
POP DE ;¢®ááâ ­®¢«¥­¨¥ ­ ç «  ¯à®£à ¬¬ë
POP HL ;¢®ááâ ­®¢«¥­¨¥ ª®­æ  ¯à®£à ¬¬ë
PUSH BC ;á®åà ­¥­¨¥ ¤«¨­ë ¯à®£à ¬¬ë
RST #20 ;áâ¨à ­¨¥ áâ à®© ¯à®£à ¬¬ë
DW #19E5
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ¯à®£à ¬¬ë
CALL x1E32 ;१¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¤«ï ­®¢®© ¯à®£à ¬¬ë
INC HL ;ãáâ ­®¢ª  ¯¥à¥¬¥­­®© VARS
LD BC,(#5CE8)
ADD HL,BC
LD (#5C4B),HL
x1A48 LD HL,(#5C53) ;¡¥à¥¬  ¤à¥á § £à㧪¨ ¯à®£à ¬¬ë
RET ;¢®§¢à â
;€¤à¥á #1A4C. <20>®¤£®â®¢ª  ¯ ¬ï⨠ª § £à㧪¥ ¬ áᨢ . “áâ ­®¢¨â¥ #5CE8, #5CD7, #5CD9 ¨ #5CF9.
x1A4C LD DE,(#5CE8) ;§ £à㦠âì ¢¥áì ä ©«
LD (#5CDB),DE
LD HL,(#5CD7) ;¡¥à¥¬  ¤à¥á ¬ áᨢ  ¢ ¯ ¬ïâ¨
LD A,(#5CF9) ;¢¥à¨ä¨ª æ¨ï?
CP #FF
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD HL,(#5CD9) ;¡¥à¥¬  ¤à¥á § £à㧪¨ ä ©« 
PUSH HL ;á®å࠭塞 ¥£®
x1A61 CALL x19F2 ;¯à®¢¥àª  ­ «¨ç¨ï ¬¥áâ  ¤«ï ¬ áᨢ 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  § £à㧪¨ ä ©« 
LD A,H ;®­ à ¢¥­ 0?
OR L
JR Z,x1A79 ;¥á«¨ ¤ , â® áâ àë© ¬ áᨢ ­¥ 㡨ࠥ¬
LD HL,(#5CD7) ;¡¥à¥¬ ­ ç «® áâ à®£® ¬ áᨢ 
DEC HL
DEC HL
DEC HL
LD BC,(#5CD9) ;¡¥à¥¬ ¥£® ¤«¨­ã
INC BC
INC BC
INC BC
CALL x1E2E ;áâ¨à ­¨¥ áâ à®£® ¬ áᨢ 
x1A79 LD HL,(#5C59) ;¡¥à¥¬ ­ ç «® ®¡« á⨠¯¥à¥¬¥­­ëå
DEC HL
LD BC,(#5CE8) ;¡¥à¥¬ ¤«¨­ã ä ©« 
PUSH BC ;á®å࠭塞 ¥¥
INC BC
INC BC
INC BC
CALL x1E32 ;१¥à¢¨à®¢ ­¨¥ ¬¥áâ  ¤«ï ­®¢®£® ¬ áᨢ 
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.
x1A94 LD A,(#5CD9) ;¡¥à¥¬ ­®¬¥à ᥪâ®à  ¢ ä ©«¥
LD C,B
LD B,A
LD A,C
CP B ;®­ ¬¥­ìè¥, 祬 ª®«¨ç¥á⢮ ᥪâ®à®¢ ¢ ä ©«¥?
JR C,x1AB6 ;¥á«¨ ­¥â, â® ®è¨¡ª 
;‚­¨¬ ­¨¥, ®è¨¡ª !!! ‚ë ­¥ ᬮ¦¥â¥ § £à㧨âì ¯®á«¥¤­¨© ᥪâ®à ä ©« , â.ª. ¥£® ­®¬¥à à ¢¥­ ª®«¨ç¥áâ¢ã ᥪâ®à®¢ ¢ ä ©«¥.
LD A,B ;®­ à ¢¥­ 0?
OR A
JP Z,x1D1A ;¥á«¨ ¤ , ⮠ᨭ⠪á¨ç¥áª ï ®è¨¡ª 
DEC B ;®­ ¡ë« à ¢¥­ 1?
JR Z,x1AB0 ;¥á«¨ ¤ , â® ¥£®  ¤à¥á®¬ ¡ã¤¥â  ¤à¥á ä ©« 
LD A,#10 ;­  ¤®à®¦ª¥ 16 ᥪâ®à®¢
x1AA7 INC E ;¢ëç¨á«¥­¨¥  ¤à¥á  ᥪâ®à  ­  ¤¨áª¥
CP E
JR NZ,x1AAE
LD E,0
INC D
x1AAE DJNZ x1AA7
x1AB0 LD B,1 ;§ £à㦠âì ­ ¤® 1 ᥪâ®à
LD HL,(#5CD7) ;¡¥à¥¬  ¤à¥á § £à㧪¨ ᥪâ®à 
RET ;¢®§¢à â
x1AB6 LD HL,x29ED ; ¤à¥á á®®¡é¥­¨ï REC.O/F
LD A,5 ;ª®¤ ®è¨¡ª¨ - 5
JP x1C4A ;®¡à ¡®âª  ®è¨¡ª¨
;€¤à¥á #1ABE. <20>஢¥àª  ­ «¨ç¨ï ä ©«  ¨ ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥. ˆ¬ï ä ©«  ¯®¬¥áâ¨â¥ ­  á⥪ ª «ìªã«ïâ®à . ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1AC4 (¯à®¢¥àª  ­ «¨ç¨ï ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥ ¤¨áª ).
x1ABE CALL x292F ;ãáâ ­®¢ª  ¨¬¥­¨ ¨ ¯®¨áª ä ©« 
JP Z,x1C50 ;¥á«¨ ­ è«¨, â® FILE EXISTS
x1AC4 CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  8 ¤®à®¦ª¨ 0
LD A,(#5E09) ;­  ¤¨áª¥ 128 ä ©«®¢?
CP #80
JP Z,x2723 ;¥á«¨ ¤ , â® á®®¡é¥­¨¥ DIRECTORY FULL
RET ;¨­ ç¥ ¢®§¢à â
;€¤à¥á #1AD0. ‚믮«­¥­¨¥ ª®¬ ­¤ë SAVE. “áâ ­®¢¨â¥ #5C3B ¨ #5D11. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#1B27 - § ¯¨áì ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥. “áâ ­®¢¨â¥ #5CDD ¨ #5CE5.
;#1B53 - § ¯¨áì ä ©« . “áâ ­®¢¨â¥ #5CDD, #5CE5, #5CD7, #5CD9 ¨ #5CDB.
x1AD0 CALL x1852 ;®¡­ã«¥­¨¥ #5D10
LD HL,0 ; ¢â®áâ àâ ¡¥©á¨ª  ­¥ ¯à®¨§¢®¤¨âì
LD (#5CD1),HL
CALL x1DDF ;¯®¬¥é¥­¨¥ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP #AF ;íâ® CODE?
JR Z,x1B39 ;¥á«¨ ¤ , â® ¯à¨¥¬ ­ ç «  ¨ ¤«¨­ë
CP #CA ;íâ® LINE?
JR NZ,x1AF8 ;¥á«¨ ­¥â, â® ¯à®¢¥àª  ®áâ «ì­ëå à áè¨à¥­¨©
CALL x1E0B ;¯à¨¥¬ áâப¨  ¢â®áâ àâ  ¡¥©á¨ª 
CALL x1D75 ;¥á«¨ ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD HL,(#5CDB) ;ãáâ ­®¢ª  áâப¨  ¢â®áâ àâ  ¡¥©á¨ª 
LD (#5CD1),HL
LD HL,#5CE5
JR x1B1F ;¯¥à¥å®¤ ­  § ¯¨áì ¡¥©á¨ª 
x1AF8 CP #AA ;⥪ã騩 ᨬ¢®« SCREEN$?
JR NZ,x1B0D ;¥á«¨ ­¥â, â® ¯à®¢¥àª  à áè¨à¥­¨ï DATA
LD HL,#4000 ;­ ç «® ä ©«  - #4000
LD (#5CD7),HL
LD HL,#1B00 ;¥£® ¤«¨­  - #1B00 ¡ ©â®¢
LD (#5CD9),HL
LD (#5CDB),HL
JR x1B48 ;§ ¯¨áì ä ©«  á à áè¨à¥­¨¥¬ C
x1B0D CALL x1D75 ;¥á«¨ ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
LD HL,#5CE5
CP #E4 ;íâ® DATA?
JR Z,x1B2C ;¥á«¨ ¤ , â® § ¯¨áì ¬ áᨢ 
CP #D ;íâ® ENTER?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
x1B1F LD (HL),"B" ;à áè¨à¥­¨¥ B
CALL x1ABE ;¯à®¢¥àª  ­ «¨ç¨ï â ª®£® ä ©«  ¨ ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥
CALL x1E1C ;㤠«¥­¨¥ ¨§ ª®¬ ­¤­®© áâப¨ ¯ï⨡ ©â­ëå ç¨á¥«
x1B27 CALL x1BDE ;ãáâ ­®¢ª  ­ ç «  ¨ ¤«¨­ë ä ©« 
JR x1B53 ;§ ¯¨áì ä ©« 
x1B2C LD (HL),"D" ;à áè¨à¥­¨¥ D
CALL x1ABE ;¯à®¢¥àª  ­ «¨ç¨ï ä ©«  ¨ ¬¥áâ  ¢ ª â «®£¥
CALL x1C0F ;ãáâ ­®¢ª  ­ ç «  ¨ ¤«¨­ë ä ©« 
JR NC,x1B53 ;¥á«¨ ¢á¥ ¢ ¯®à浪¥, â® § ¯¨áì ä ©« 
JP C,x1D1A ;¨­ ç¥ ®è¨¡ª 
x1B39 CALL x1DE5 ;¯à¨­ï⨥ ­ ç «  ¨ ¤«¨­ë ä ©« 
LD HL,(#5CD9) ;ãáâ ­®¢ª  ­ ç «  ä ©« 
LD (#5CD7),HL
LD HL,(#5CDB) ;ãáâ ­®¢ª  ¤«¨­ë ä ©« 
LD (#5CD9),HL
x1B48 CALL x1D75 ;¥á«¨ ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,"C" ;à áè¨à¥­¨¥ C
LD (#5CE5),A
CALL x1ABE ;¯à®¢¥àª  ­ «¨ç¨ï ä ©«  ¨ ¬¥áâ  ¢ ª â «®£¥
x1B53 CALL x1B59 ;§ ¯¨áì ä ©« 
JP x0569 ;§ ¯¨áì ¨­ä®à¬ æ¨¨ ® ­¥¬
;€¤à¥á #1B59. ‡ ¯¨áì ä ©« . “áâ ­®¢¨â¥ #5CD1, #5CD7, #5CD9 ¨ #5CDB,   ¢ ¡ãä¥à § £à㧨⥠ᥪâ®à 8 ¤®à®¦ª¨ 0.
x1B59 LD HL,(#5CD7) ;ãáâ ­®¢ª  ­ ç «  ä ©« 
LD (#5CE6),HL
EX DE,HL ;¯¥à¥¡à®áª  ¥£® ¢ DE
LD HL,(#5CD9) ;¡¥à¥¬ ¤«¨­ã ä ©« 
LD A,L ;®­  à ¢­  0?
OR H
JP Z,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
LD A,L ;¢ëç¨á«¥­¨¥ ¤«¨­ë ä ©«  ¢ ᥪâ®à å
OR A
JR Z,x1B6D
INC H
x1B6D LD A,H ;ãáâ ­®¢ª  ¤«¨­ë ä ©«  ¢ ᥪâ®à å
LD (#5CEA),A
LD E,A ;¢ëç¨á«¥­¨¥ ­®¢®£® ª®«¨ç¥á⢠ ᢮¡®¤­ëå ᥪâ®à®¢
LD D,0
LD HL,(#5E0A)
SBC HL,DE
JP C,x1C45 ;¥á«¨ ­  ¤¨áª¥ ­¥â ¬¥áâ , â® ®è¨¡ª 
x1B7B 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 x1E4D ;§ ¯¨áì ä ©« 
LD HL,(#5CF4) ;¡¥à¥¬  ¤à¥á ᢮¡®¤­®£® ¯à®áâà ­á⢠ ¤¨áª 
PUSH HL ;á®å࠭塞 ¥£®
CALL x03FD ;§ £à㧪  ¢ ¡ãä¥à ᥪâ®à  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 x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  8 ¤®à®¦ª¨ 0
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  á ª®«-¢®¬ ä ©«®¢
LD C,(HL) ;¡¥à¥¬ ­®¬¥à § ¯¨á ­­®£® ä ©« 
DEC C
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  B?
CP "B"
CALL Z,x1BC8 ;¥á«¨ ¤ , â® ãáâ ­®¢ª  ¤«¨­ë ¯à®£à ¬¬ë ¡¥§ ¯¥à¥¬¥­­ëå
RET ;¢®§¢à â
;€¤à¥á #1BC8. “áâ ­®¢ª  ¤«¨­ë ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥ ¡¥§ ¯¥à¥¬¥­­ëå. „«¨­ã á ¯¥à¥¬¥­­ë¬¨ ¯à®£à ¬¬  ¯®¬¥é ¥â ¢ #5CE6, ¤«¨­ã ¡¥§ ¯¥à¥¬¥­­ëå - ¢ #5CE8.
x1BC8 LD HL,(#5C59) ;¢ëç¨á«¥­¨¥ ¤«¨­ë ¯à®£à ¬¬ë á ¯¥à¥¬¥­­ë¬¨
LD DE,(#5C53)
SCF
SBC HL,DE
LD (#5CE6),HL ;ãáâ ­®¢ª  ¥¥
LD HL,(#5C4B) ;¢ëç¨á«¥­¨¥ ¤«¨­ë ⮫쪮 ¯à®£à ¬¬ë
SBC HL,DE
LD (#5CE8),HL ;ãáâ ­®¢ª  ¥¥
RET ;¢®§¢à â
;€¤à¥á #1BDE. “áâ ­®¢ª  ­ ç «  ¨ ¤«¨­ë ä ©«  ¤«ï § ¯¨á¨ ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥.
x1BDE 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. <20>ਥ¬ ¨¬¥­¨ ¬ áᨢ  ¤«ï ª®¬ ­¤ë LOAD...DATA. ‚室: ãáâ ­®¢¨â¥ #5C5D ­  à áè¨à¥­¨¥ ä ©«  ¨ ãáâ ­®¢¨â¥ #5CF9. ‚ë室: ãáâ ­ ¢«¨¢ ¥â #5CD2, #5CD7, #5CD9 ¨ #5CDB. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1C0F (â® ¦¥, çâ® ¨ #1C1B, ­® á ®¡à ¡®âª®© ®è¨¡®ª).
x1BFC CALL x1C1B ;¯®¨áª ¬ áᨢ 
RET NC ;¥á«¨ ¬ áᨢ ­ ©¤¥­, â® ¢®§¢à â
LD HL,0 ;áâ à®£® ¬ áᨢ  ­¥â
LD (#5CD9),HL
LD A,(#5CF9) ;¨¤¥â § £à㧪 ?
CP #FF
RET NZ ;¥á«¨ ¤ , â® ¢®§¢à â
JP x1C13 ;®è¨¡ª 
x1C0F CALL x1C1B ;¯®¨áª ¬ áᨢ 
RET NC ;¥á«¨ ¬ áᨢ ­ ©¤¥­, â® ¢®§¢à â
x1C13 LD A,#E ;ª®¤ ®è¨¡ª¨ - #E
LD HL,x27DD ; ¤à¥á á®®¡é¥­¨ï ARRAY NOT FOUND
JP x1C4A ;®¡à ¡®âª  ®è¨¡®ª
;€¤à¥á #1C1B. <20>®¨áª ¬ áᨢ  ¡¥§ ®¡à ¡®âª¨ ®è¨¡®ª. <20>ã¤ãâ ãáâ ­®¢«¥­ë #5CD2, #5CD7, #5CD9 ¨ #5CDB. <20>ਠ®è¨¡ª¥ ä« £ C ¡ã¤¥â ãáâ ­®¢«¥­, ¨­ ç¥ á¡à®è¥­.
x1C1B CALL x1E2A ;¡¥à¥¬ á«¥¤ãî騩 ᨬ¢®«
CALL x1D9B ;¯®¨áª ¬ áᨢ 
SET 7,C ;ãáâ ­®¢ª  ¡¨â  7 ¢ ¥£® ¨¬¥­¨
LD A,C ;ãáâ ­®¢ª  ¥£® ¨¬¥­¨
LD (#5CD2),A
JR NC,x1C2B ;¥á«¨ ¬ áᨢ ­ ©¤¥­, â® ãáâ ­®¢ª  ¥£® ¯ à ¬¥â஢
x1C29 SCF ;¡ë«  ®è¨¡ª 
RET ;¢®§¢à â
x1C2B JR NZ,x1C29 ;¥á«¨ ä« £ Z á¡à®è¥­, â® ®è¨¡ª 
INC HL ;¡¥à¥¬ ¤«¨­ã ¬ áᨢ 
LD E,(HL) ;ãáâ ­®¢ª  ¤«¨­ë ¬ áᨢ 
INC HL
LD D,(HL)
INC HL
LD (#5CD7),HL ;ãáâ ­®¢ª   ¤à¥á  ⥫  ¬ áᨢ 
LD (#5CDB),DE ;ãáâ ­®¢ª  ¤«¨­ë ¬ áᨢ 
LD (#5CD9),DE
CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
CP ")" ;íâ® ")"?
JR NZ,x1C2B ;¥á«¨ ­¥â, â® ®è¨¡ª 
RET ;¢®§¢à â
;€¤à¥á #1C45. Ž¡à ¡®âª  ®è¨¡ª¨ NO SPACE. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1C4A (®¡à ¡®âª  ®è¨¡®ª; ¢ A - ª®¤ ®è¨¡ª¨, ¢ HL -  ¤à¥á á®®¡é¥­¨ï).
x1C45 LD HL,x29BB ; ¤à¥á á®®¡é¥­¨ï NO SPACE
LD A,3 ;ª®¤ ®è¨¡ª¨ - 3
x1C4A CALL x03C3 ;¥á«¨ ­ ¤®, â® ¯¥ç âì á®®¡é¥­¨ï
JP x01D3 ;§ ¢¥à襭¨¥
;€¤à¥á #1C50. Ž¡à ¡®âª  ®è¨¡ª¨ FILE EXISTS.
x1C50 LD HL,x29C5 ; ¤à¥á á®®¡é¥­¨ï FILE EXISTS
LD A,2 ;ª®¤ ®è¨¡ª¨ - 2
JR x1C4A ;®¡à ¡®âª  ®è¨¡®ª
;€¤à¥á #1C57. “áâ ­®¢ª  ¨¬¥­¨ ä ©« . “áâ ­®¢¨â¥ #5C5D ­  ¨¬ï ä ©« . <20>㤥⠢ë¡à ­ ¤¨áª®¢®¤ ¨ ãáâ ­®¢«¥­  ¯¥à¥¬¥­­ ï #5CDD.
x1C57 LD HL,#5CDD ; ¤à¥á ¯¥à¥¬¥­­®© á ¨¬¥­¥¬ ä ©« 
LD B,8 ;¥¥ ¤«¨­  - 8 ¡ ©â®¢
x1C5C LD (HL)," " ;®ç¨á⪠ ¥¥
INC HL
DJNZ x1C5C
CALL x0531 ;á­ï⨥ áâப¨ á® á⥪  ª «ìªã«ïâ®à 
EX DE,HL
CALL x1C81 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
LD A,C ;¨¬ï ä ©«  - ¯ãáâ ï áâப ?
OR A
;Žè¨¡ª  ¢ ¯à®£à ¬¬¥!!! ‡¤¥áì ¤®«¦­® ¡ëâì OR B.
JP Z,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
CP 9 ;¢ ¨¬¥­¨ ä ©«  ¡®«ìè¥ 8 ᨬ¢®«®¢
JR C,x1C73 ;¥á«¨ ¤ , â® ®¡à¥§ ¥¬ ¥£®
LD C,8
;‚­¨¬ ­¨¥!!! <20>â® ¡ã¤¥â à ¡®â âì ­¥¯à ¢¨«ì­® ¯à¨ ¤«¨­¥ ¨¬¥­¨ ä ©«  ¡®«ìè¥ #FF ᨬ¢®«®¢.
x1C73 LD A,(HL) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
CP " " ;¥£® ª®¤ ¬¥­ìè¥ #20?
JP C,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
LD DE,#5CDD ; ¤à¥á ¯¥à¥¬¥­­®© á ¨¬¥­¥¬ ä ©« 
PUSH BC ;á®åà ­¥­¨¥ ¤«¨­ë ¨¬¥­¨
LDIR ;ãáâ ­®¢ª  ¨¬¥­¨
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ¨¬¥­¨
RET ;¢®§¢à â
;€¤à¥á #1C81. “áâ ­®¢ª  ¤¨áª®¢®¤  ¤«ï ®¯¥à æ¨¨ á ä ©«®¬. ‚ HL ¯®¬¥áâ¨â¥ ­ ç «® ¨¬¥­¨ ä ©«  ¢ ASCII ¯à¥¤áâ ¢«¥­¨¨,   ¢ BC ? ¥£® ¤«¨­ã. HL ãáâ ­®¢¨âáï ­  ­ ç «® ¨¬¥­¨ ¡¥§ ¤¨áª®¢®¤ ,   ¢ BC ¡ã¤¥â ¥£® ¤«¨­ .
x1C81 INC HL ;¡¥à¥¬  ¤à¥á á«¥¤ãî饣® ᨬ¢®«  ¨¬¥­¨
LD A,(HL) ;¡¥à¥¬ íâ®â ᨬ¢®«
CP ":" ;íâ® ¤¢®¥â®ç¨¥?
JR NZ,x1C98 ;¥á«¨ ­¥â, â®  ªâ¨¢¨§ æ¨ï ¤¨áª®¢®¤  ¯® 㬮«ç ­¨î
DEC HL ;¡¥à¥¬  ¤à¥á ¨¬¥­¨ ¤¨áª®¢®¤ 
LD A,(HL) ;¡¥à¥¬ ¨¬ï ¤¨áª®¢®¤ 
CALL x0524 ;¯à¥®¡à §®¢ ­¨¥ ¨¬¥­¨ ¤¨áª®¢®¤  ¢ ¥£® ­®¬¥à
PUSH BC ;á®åà ­¥­¨¥ ¤«¨­ë ¨¬¥­¨ ä ©« 
PUSH HL ;¨  ¤à¥á  ¨¬¥­¨ ¤¨áª®¢®¤ 
CALL x3DCB ;¢ë¡®à ¤¨áª®¢®¤ 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ¨¬¥­¨ ¤¨áª®¢®¤ 
POP BC ;¨ ¤«¨­ë ¨¬¥­¨ ä ©« 
DEC BC ;®âᥪ«¨ 2 ᨬ¢®« 
DEC BC
INC HL ;¡¥à¥¬  ¤à¥á ¨¬¥­¨ ä ©«  ¡¥§ ¤¨áª®¢®¤ 
INC HL
RET ;¢®§¢à â
x1C98 DEC HL ;¡¥à¥¬  ¤à¥á ¨¬¥­¨ ä ©« 
LD A,(#5D19) ;¡¥à¥¬ ¤¨áª®¢®¤ ¯® 㬮«ç ­¨î
PUSH BC ;á®åà ­¥­¨¥ ¤«¨­ë ¨  ¤à¥á  ¨¬¥­¨ ä ©« 
PUSH HL
CALL x3DCB ;¢ë¡®à ¤¨áª®¢®¤ 
POP HL ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ¨  ¤à¥á  ¨¬¥­¨ ä ©« 
POP BC
RET ;¢®§¢à â
;€¤à¥á #1CA4. Ž¯à¥¤¥«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ä ©«  ¢ ¡ãä¥à¥ ¯® ¥£® ­®¬¥àã ¢ ᥪâ®à¥. ‚ C ¤®«¦¥­ ¡ëâì ­®¬¥à ®¯¨á â¥«ï ¢ ᥪâ®à¥. <20>  ¢ë室¥ ¢ HL ¡ã¤¥â ¥£®  ¤à¥á.
x1CA4 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).
x1CB0 CALL x1C57 ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
x1CB3 CALL x03E8 ;­ ç­¥¬ á ᥪâ®à  0
LD B,#80 ;¢á¥£® 128 ä ©«®¢
LD C,0 ;­ ç­¥¬ á ­ã«¥¢®£® ®¯¨á â¥«ï ¢ ᥪâ®à¥
x1CBA PUSH BC ;á®åà ­¨¬ ­®¬¥à ä ©«  ¨ áç¥â稪
CALL x1CA4 ;®¯à¥¤¥«¨¬ ­ ç «® ®¯¨á â¥«ï ¢ ¡ãä¥à¥
CALL x050C ;¯à®¢¥àª  ¨ ®¡à ¡®âª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ®¯¨á â¥«ï ¢ ᥪâ®à¥ ¨
PUSH BC ;áç¥â稪  ä ©«®¢ ¡¥§ ¨§¬¥­¥­¨ï á⥪ 
LD A,C ;¯à®á¬®â७ ¢¥áì ᥪâ®à?
CP #10
JR NZ,x1CCD ;¥á«¨ ¤ , â®
POP BC ;á­ï⨥ ­®¬¥à  ®¯¨á â¥«ï ¨ áç¥â稪  á® á⥪ 
LD C,0 ;­ã«¥¢®© ®¯¨á â¥«ì ¢ ᥪâ®à¥
JR x1CBA ;¯®¢â®à ¯à®¢¥àª¨
x1CCD LD DE,#5CDD ;¡¥à¥¬  ¤à¥á ç á⨠®¯¨á â¥«ï ¤«ï ¯à®¢¥àª¨
LD A,(#5D06) ;¡¥à¥¬ ¤«¨­ã í⮩ ç áâ¨
LD B,A
XOR A ;ª®­¥æ ª â «®£ ?
CP (HL)
JR NZ,x1CDB ;¥á«¨ ­¥â, â® ¯¥à¥å®¤ ­  ¯à®¢¥àªã ®¯¨á â¥«ï
POP BC ;á­ï⨥ ­®¬¥à  ®¯¨á â¥«ï ¨ áç¥â稪  á® á⥪ 
JR x1CE4 ;¢ë室 á ä« £®¬ NZ
x1CDB CALL x2713 ;áà ¢­¥­¨¥ ç á⥩ ®¯¨á â¥«¥©
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ®¯¨á â¥«ï ¨ áç¥â稪 
JR Z,x1CE7 ;¥á«¨ ç á⨠®¯¨á â¥«¥© ᮢ¯ «¨, â® ­  ¢ë室
INC C ;á«¥¤ãî騩 ®¯¨á â¥«ì
DJNZ x1CBA ;¯®¢â®à ¤® ª®­æ 
x1CE4 OR #FF ;¢ëª«î祭¨¥ ä« £  Z
RET ;¢®§¢à â
x1CE7 LD A,#80 ;®¯à¥¤¥«¥­¨¥ ­®¬¥à  ä ©« 
SUB B
LD C,A
LD (#5D1E),A ;¯®¬¥é¥­¨¥ ¥£® ¢ #5D1E
XOR A ;á¡à®á ä« £  Z
RET Z ;¢®§¢à â
;€¤à¥á #1CF0. <20>®¨áª ä ©« . — áâì ®¯¨á â¥«ï, ¯®¤«¥¦ éãî ¯à®¢¥àª¥, ãáâ ­®¢¨â¥ ¯®  ¤à¥áã #5CDD ¨ ãáâ ­®¢¨â¥ #5D06. …᫨ ä ©« ­¥ ­ ©¤¥­, â® ¡ã¤¥â á¡à®è¥­ ä« £ Z ¨ ¢ #5D0F ¡ã¤¥â #FF,   ¥á«¨ ­ ©¤¥­, â® ¢ª«îç¨âáï ä« £ Z,   ­®¬¥à ä ©«  ¡ã¤¥â ¢ ॣ. C ¨ ¯®  ¤à¥á ¬ #5D0F ¨ #5D1E.
x1CF0 CALL x1CB3 ;¯®¨áª ä ©« 
LD HL,#5D0F
LD (HL),C ;§ £à㧪  ॣ¨áâà  C ¢ #5D0F
RET Z ;¥á«¨ ä ©« ­ ©¤¥­, â® ¢®§¢à â
LD (HL),#FF ;¯®¬¥é ¥¬ ¢ #5D0F #FF
RET ;¢®§¢à â
;€¤p¥á #1CFB. ‚믮«­¥­¨¥ ª®¬ ­¤ë RETURN. “áâ ­®¢¨â¥ #5C3B, #5D1C ¨ #5D13.
x1CFB CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x20E5 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
RES 3,(IY+1) ;ãáâ ­®¢ª  ०¨¬  ¢¢®¤  "K"
CALL x0232 ;¢®ááâ ­®¢«¥­¨¥ áâ à®£® ERR_SP
LD SP,(#5D1C) ;¢®ááâ ­®¢«¥­¨¥ á⥪ 
LD HL,(#5C3D) ;¡¥à¥¬  ¤à¥á ¯¥à¥¤  ¤à¥á®¬ ¨§ ERR_SP
DEC HL
LD A,#12 ;â ¬ ­ å®¤¨âáï #12?
CP (HL)
JR NZ,x1D19 ;¥á«¨ ­¥â, â® ¢®§¢à â
DEC HL ;ãáâ ­®¢ª  ERR_SP ­   ¤à¥á ­¨¦¥
LD (#5C3D),HL
x1D19 RET ;¢®§¢à â
;€¤à¥á #1D1A. Ž¡à ¡®âª  ᨭ⠪á¨ç¥áª®© ®è¨¡ª¨. “áâ ­®¢¨â¥ #5C3A, #5D0E, #5D15, ¨ ¢á¥ ¤«ï ¯®¤¯à®£à ¬¬ë #1D3. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#1D29 (®¡à ¡®âª  ®è¨¡®ª; ¢ A - ª®¤ ®è¨¡ª¨, ¢ HL ?  ¤à¥á á®®¡é¥­¨ï).
x1D1A BIT 7,(IY+0) ;ª®¤ ®è¨¡ª¨ ¡¥©á¨ª  㦥 ­ §­ ç¥­?
JR Z,x1D25 ;¥á«¨ ­¥â, â® ãáâ ­®¢ª  ®è¨¡ª¨
LD A,#B ;NONSENCE IN BASIC
LD (#5C3A),A
x1D25 INC A ;¯®«ã祭¨¥ ª®¤  ®è¨¡ª¨ DOS
LD HL,x29B2 ; ¤à¥á á®®¡é¥­¨ï ERROR
x1D29 CALL x03C3 ;¯¥ç âì á®®¡é¥­¨ï, ¥á«¨ ¬®¦­®
JP x01D3 ;§ ¢¥à襭¨¥
;€¤à¥á #1D2F. Ž¡à ¡®âª  ®è¨¡ª¨, ¯®áâ㯨¢è¥© ¨§ ¯§ã ¡¥©á¨ª  ¡¥§ ®ç¨á⪨ á⥪ . “áâ ­®¢¨â¥ #5C3A.
x1D2F LD A,(#5C3A) ;¡¥à¥¬ ª®¤ ®è¨¡ª¨ ¡¥©á¨ª 
LD HL,x27CA ; ¤à¥á á®®¡é¥­¨ï *BREAK*
CP #14 ;BREAK INTO PROGRAM?
JR Z,x1D29 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
CP #C ;BREAK - CONT REPEATS?
JR Z,x1D29 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
LD HL,x27D2 ; ¤à¥á á®®¡é¥­¨ï OUT OF RAM
CP 3 ;OUT OF MEMORY?
JR Z,x1D29 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
LD HL,x27DD ; ¤à¥á á®®¡é¥­¨ï ARRAY NOT FOUND
CP 1 ;VARIABLE NOT FOUND?
JR Z,x1D29 ;¥á«¨ ¤ , â® ¯¥ç âì á®®¡é¥­¨ï
JR x1D1A ;¨­ ç¥ á®®¡é¥­¨¥ *ERROR*
;€¤à¥á #1D4D. ‚믮«­¥­¨¥ ª®¬ ­¤ë RUN. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x1D4D CALL x1852 ;¢ë¯®«­ïâì § £à㧪ã ä ©« 
CALL x1836 ;®¡à ¡®âª  ¯ à ¬¥â஢ ¨ § £à㧪  ä ©« 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD HL,(#5CE6) ;¡¥à¥¬  ¤à¥á § £à㧪¨ ä ©«  ¯® 㬮«ç ­¨î
;Žè¨¡ª !!! ‚¥¤ì ä ©« ¬®£«¨ § £à㧨âì ¨ ¯® ¤à㣮¬ã  ¤à¥áã. ‚ ¯®¤¯à®£à ¬¬¥ #18AB ­ ¤® á®åà ­ïâì ¢ #5D20 ¤¥©á⢨⥫ì­ë©  ¤à¥á § £à㧪¨ ä ©« ,   §¤¥áì ¢®ááâ ­ ¢«¨¢ âì ¥£®.
LD A,(#5CE5) ;à áè¨à¥­¨¥ ä ©«  B?
CP "B"
JP Z,x012A ;¥á«¨ ¤ , â® § ¯ã᪠¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
PUSH HL ;§ ¯ã᪠¯à®£à ¬¬ë ¢ ª®¤ å
RET
;<3B>®¦¥!!! <20>㠪⮠⠪ ¤¥« ¥â!!! ‚®-¯¥à¢ëå,  ¤à¥á ¯à®£à ¬¬ë ¯à¨ § ¯ã᪥ ¤®«¦¥­ ¡ëâì ¢ 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. Žç¨á⪠ à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨.
x1D63 LD HL,#5D0E ;à ¡®çãî ®¡« áâì ®ç¨é âì?
LD A,(HL)
CP #FF
LD (HL),0 ;à ¡®ç ï ®¡« áâì ®ç¨é¥­ 
RET NZ ;¥á«¨ à ¡®ç ï ®¡« áâì ®ç¨é¥­ , â® ¢®§¢à â
RST #20 ;®ç¨á⪠ à ¡®ç¥© ®¡« áâ¨
DW #16BF
RET ;¢®§¢à â
;€¤à¥á #1D70. <20>஢¥àª , ¨¤¥â «¨ ¯à®¢¥àª  áâப¨ ­  ᨭ⠪á¨á ¨«¨ ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë. …᫨ ¨¤¥â ¢ë¯®«­¥­¨¥, â® ä« £ Z ¡ã¤¥â á¡à®è¥­, ¨­ ç¥ ãáâ ­®¢«¥­.
x1D70 BIT 7,(IY+1)
RET
;€¤à¥á #1D75. …᫨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â ¨§ ¯à®£à ¬¬ë, ¢ë§¢ ¢è¥© íâã ¯®¤¯à®£à ¬¬ã. “áâ ­®¢¨â¥ #5C3B.
x1D75 CALL x1D70 ;¯à®¢¥àª , çâ® ¤¥« ¥âáï
RET NZ ;¥á«¨ ¨¤¥â ¢ë¯®«­¥­¨¥, â® ¢®§¢à â
POP HL ;á­ï⨥  ¤à¥á  ¢®§¢à â  ¢ ¢ è㠯ணࠬ¬ã
RET ;¢®§¢à â ¯® á«¥¤ãîé¥¬ã  ¤à¥áã
;€¤à¥á #1D7B. <20>®¬¥é¥­¨¥ ç¨á«  ­  á⥪ ª «ìªã«ïâ®à . “áâ ­®¢¨â¥ #5C5D ­  ᨬ¢®« ¯¥à¥¤ ç¨á«®¬. …᫨ áâப  ¯à®¢¥àï¥âáï ­  ᨭ⠪á¨á, â® ¡ã¤¥â ãáâ ­®¢«¥­ ä« £ Z,   ¯à¨ ¢ë¯®«­¥­¨¨ ®­ á¡à®è¥­.
x1D7B CALL x1E2A ;¡¥à¥¬ á«¥¤ãî騩 ᨬ¢®« áâப¨
CALL x1DC1 ;¯®¬¥é¥­¨¥ ç¨á«  ­  á⥪ ª «ìªã«ïâ®à 
JR x1D70 ;¯à®¢¥àª , ¨¤¥â ¢ë¯®«­¥­¨¥ ¨«¨ ¯à®¢¥àª  ¨ ¢®§¢à â
;€¤à¥á #1D83. Žâªàë⨥ ¯®â®ª  0. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1D84 (®âªàë⨥ ¯®â®ª ; ­®¬¥à ¢ ॣ¨áâॠA).
x1D83 XOR A ;­®¬¥à ¯®â®ª  - 0
x1D84 RST #20 ;®âªàë⨥ ¯®â®ª 
DW #1601
RET ;¢®§¢à â
;€¤à¥á #1D88. Žâªàë⨥ ¯®â®ª  2.
x1D88 LD A,2 ;­®¬¥à ¯®â®ª  - 2
JR x1D84 ;®âªàë⨥ ¯®â®ª 
;€¤à¥á #1D8C. ‚롮ઠ ⥪ã饣® ᨬ¢®«  áâப¨. <20>®¬¥áâ¨â¥ ¥£®  ¤à¥á ¢ #5C5D.
x1D8C RST #20
DW #0018
RET
;€¤à¥á #1D90. ‚¢®¤ ª®¬ ­¤ë.
x1D90 CALL x1D83 ;®âªàë⨥ ¯®â®ª  0
RST #20 ;। ªâ¨à®¢ ­¨¥ ª®¬ ­¤­®© áâப¨
DW #0F2C
RET ;¢®§¢à â
;€¤à¥á #1D97. Žç¨á⪠ íªà ­  ¨ ®âªàë⨥ ¯®â®ª  0.
x1D97 RST #20
DW #0D6B
RET
;€¤à¥á #1D9B. <20>®¨áª ¬ áᨢ . “áâ ­®¢¨â¥ #5C5D ­  ¨¬ï ¬ áᨢ . …᫨ ¬ áᨢ ­ ©¤¥­, â® ¢ HL ¡ã¤¥â ¥£®  ¤à¥á.
x1D9B RST #20
DW #28B2
RET
;€¤p¥á #1D9F. Žç¨á⪠ ­¨§  íªà ­ .
x1D9F RST #20
DW #0D6E
RET
;€¤à¥á #1DA3. <20>¥ç âì ç¨á«  ¨§ ॣ¨áâà  A. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#1DA4 (¯¥ç âì ç¨á«  ¨§ ॣ¨áâà  C),
;#1DA9 (¯¥ç âì ç¨á«  ¨§ ॣ¨áâà  BC).
x1DA3 LD C,A ;¯¥à¥¡à®áª  ç¨á«  ¢ C
x1DA4 LD B,0 ;¯¥à¥¢®¤ ç¨á«  ¢ ¤¢ãå¡ ©â­ãî ä®à¬ã
JP x1DA9 ;áâà ­­ ï ª®¬ ­¤ !
x1DA9 PUSH BC ;á®åà ­¥­¨¥ ç¨á« 
CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
POP BC ;¢®ááâ ­®¢«¥­¨¥ ç¨á« 
RST #20 ;¯¥ç âì ç¨á« 
DW #1A1B
CALL x20F1 ;¢®ááâ ­®¢«¥­¨¥ ¯ ¬ïâ¨
RET ;¢®§¢à â
;€¤à¥á #1DB5. ‘­ï⨥ áâப¨ á® á⥪  ª «ìªã«ïâ®à . ‚ DE ¡ã¤¥â  ¤à¥á áâப¨, ¢ BC - ¥¥ ¤«¨­ .
x1DB5 RST #20
DW #2BF1
RET
x1DB9 RST #20
DW #1E99
RET
;€¤à¥á #1DBD. <20>®¬¥é¥­¨¥ áâப¨ ­  á⥪ ª «ìªã«ïâ®à . “áâ ­®¢¨â¥ #5C5D ­  ­ ç «® áâப¨.
x1DBD RST #20
DW #1C8C
RET
;€¤à¥á #1DC1. <20>®¬¥é¥­¨¥ ç¨á«  ¨§ BC ­  á⥪ ª «ìªã«ïâ®à .
x1DC1 RST #20
DW #1C82
RET
;€¤à¥á #1DC5. “áâ ­®¢ª  CH_ADD ­  ¢â®à®© ᨬ¢®« áâப¨. “áâ ­®¢¨â¥ #5D11.
x1DC5 LD HL,(#5D11) ;¡¥à¥¬  ¤à¥á áâப¨ ª®¬ ­¤ë
INC HL ;¡¥à¥¬  ¤à¥á ¥¥ ¢â®à®£® ᨬ¢®« 
LD (#5C5D),HL ;¯®¬¥é ¥¬ ¥£® ¢ CH_ADD
RET ;¢®§¢à â
;€¤à¥á #1DCD. <20>ਭï⨥ 2-å áâப ­  á⥪ ª «ìªã«ïâ®à . <20>®¬¥áâ¨â¥ ¢ #5D11  ¤à¥á ¯¥à¢®© áâப¨.
x1DCD CALL x1DDF ;¯à¨¥¬ ¯¥à¢®© áâப¨ ­  á⥪ ª «ìªã«ïâ®à 
x1DD0 CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP "," ;íâ® § ¯ïâ ï?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
CALL x1DBD ;¯à¨¥¬ ¢â®à®© áâப¨ ­  á⥪ ª «ìªã«ïâ®à 
RET ;¢®§¢à â
;€¤à¥á #1DDF. “áâ ­®¢ª  CH_ADD ¨ ¯®¬¥é¥­¨¥ áâப¨ ­  á⥪ ª «ìªã«ïâ®à . “áâ ­®¢¨â¥ #5D11.
x1DDF CALL x1DC5 ;ãáâ ­®¢ª  CH_ADD
JP x1DBD ;¯®¬¥é¥­¨¥ áâப¨ ­  á⥪ ª «ìªã«ïâ®à 
;€¤à¥á #1DE5. <20>ਭï⨥ ®¤­®£® ¨«¨ ¤¢ãå ç¨á¥« ¯®á«¥ ᨬ¢®«  CODE. <20>¥à¢®¥ ç¨á«® ¡ã¤¥â ¢ #5CD9, ¢â®à®¥ - ¢ #5CDB. …᫨ ¡ë«® ®¤­® ç¨á«®, â® ®­® ¡ã¤¥â ¢ ®¡¥¨å ï祩ª å. …᫨ ¯à¨­ïâ® 2 ç¨á« , â® ¢ #5CD6 ¡ã¤¥â 3. <20>  ¢å®¤¥ ãáâ ­®¢¨â¥ #5C5D ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#1E0B (¯à¨­ï⨥ ç¨á« ; ãáâ ­®¢¨â¥ #5C5D ¨ #5C3B; ç¨á«® ¡ã¤¥â ¢ #5CDB,   ¢ #5CD6 ¡ã¤¥â 3).
x1DE5 CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®« áâப¨
CP #AF ;íâ® CODE?
RET NZ ;¥á«¨ ­¥â, â® ¢®§¢à â
x1DEB CALL x1D7B ;¯à¨­ï⨥ ç¨á«  ­  á⥪ ª «ìªã«ïâ®à 
JR Z,x1DFB ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¤ «ì­¥©è ï ¯à®¢¥àª 
CALL x1DB9 ;á­ï⨥ ç¨á«  á® á⥪  ª «ìªã«ïâ®à 
LD (#5CD9),BC ;ãáâ ­®¢ª  ¯¥à¢®£® ç¨á« 
LD (#5CDB),BC
x1DFB CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP "," ;íâ® § ¯ïâ ï?
JR Z,x1E0B ;¥á«¨ ¤ , â® ¯à¨­ï⨥ ¢â®à®£® ç¨á« 
CP #D ;íâ® ENTER?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
CALL x1D75 ;¥á«¨ áâப  ¯à®¢¥àï¥âáï ­  ᨭ⠪á¨á, â® ¢®§¢à â
RET ;¢®§¢à â
x1E0B CALL x1D7B ;¯à¨¥¬ ¢â®à®£® ç¨á«  ­  á⥪ ª «ìªã«ïâ®à 
RET Z ;¥á«¨ ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x1DB9 ;á­ï⨥ ç¨á«  á® á⥪  ª «ìªã«ïâ®à 
LD (#5CDB),BC ;¯®¬¥é¥­¨¥ ¥£® ¢ #5CDB
LD A,3 ;¯à¨­ï«¨ 2 ç¨á« 
LD (#5CD6),A
RET ;¢®§¢à â
;€¤à¥á #1E1C. “¤ «¥­¨¥ ¨§ ª®¬ ­¤­®© áâp®ª¨ ¯ï⨡ ©â­ëå ç¨á¥«
x1E1C LD HL,(#5D11) ;¡¥à¥¬  ¤à¥á áâப¨ ª®¬ ­¤ë
RST #20 ;㤠«¥­¨¥ ¨§ ­¥¥ ¯ï⨡ ©â­ëå ç¨á¥«
DW #11A7
RET ;¢®§¢à â
;€¤à¥á #1E23. ‚뤥«¥­¨¥ ¯à®áâà ­á⢠ ¢ à ¡®ç¥© ®¡« áâ¨. ‚ BC ¯®¬¥áâ¨â¥ ¤«¨­ã âॡ㥬®£® ¯à®áâà ­á⢠.
x1E23 LD HL,(#5C61) ;§ £à㧪  HL ¨§ #5C61
RST #20 ;¢ë¤¥«¥­¨¥ ¯à®áâà ­á⢠
DW #0030
RET ;¢®§¢à â
;€¤à¥á #1E2A. ‚롮ઠ á«¥¤ãî饣® ᨬ¢®«  áâப¨. “áâ ­®¢¨â¥ #5C5D.
x1E2A RST #20
DW #0020
RET
;€¤à¥á #1E2E. “¤ «¥­¨¥ ®¡« á⨠¯ ¬ïâ¨. ‚ HL ¯®¬¥áâ¨â¥ ­ ç «® ®¡« áâ¨, ¢ BC - ¤«¨­ã.
x1E2E RST #20
DW #19E8
RET
x1E32 RST #20
DW #1655
RET
;€¤à¥á #1E36. ‡ £à㧪  ॣ¨áâà  ¤®à®¦ª¨. “áâ ­®¢¨â¥ #5CD1. <20>ਠ¢ë室¥ ¯® ®è¨¡ª¥ ¢ #5D17 ¯®¬¥é ¥âáï #FF. Œ®¦­® ¨á¯®«ì§®¢ âì á  ¤à¥á :
;#1E3A ¤«ï ¯àאַ£® ¢ë¢®¤  ¢ ¯®àâ #3F.
x1E36 CALL x0A31 ;new ®¯à¥¤¥«¥­¨¥ ­®¬¥à  ¤®à®¦ª¨, ­  ª®â®à®© á⮨⠣®«®¢ª 
LD A,H ;ãáâ ­®¢ª  ॣ¨áâà  ¤®à®¦ª¨
x1E3A OUT (#3F),A
RET ;¢®§¢à â
;€¤à¥á #1E3D. ‡ £à㧪  ᥪâ®à®¢. ‚室: ¢ HL -  ¤à¥á § £à㧪¨, ¢ D - ­®¬¥à ¤®à®¦ª¨, ¢ E - ­®¬¥à ᥪâ®à , ¢ B - ª®«-¢® ᥪâ®à®¢.
x1E3D XOR A ;¯à¨§­ ª § £à㧪¨
JR x1E64 ;¯¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ § £à㧪¨/§ ¯¨á¨ ᥪâ®à®¢
;€¤à¥á #1E40. ‡ ¯¨áì ¨­ä®à¬ æ¨¨ ® ä ©«¥. <20>  ¢å®¤¥ ¢ C ¤®«¦¥­ ¡ëâì ­®¬¥à ä ©« . ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#1E43 - § ¯¨áì ᥪâ®à  ¨§ ¡ãä¥à . ‚室: ¢ #5CF4 ãáâ ­®¢¨â¥ ­®¬¥à ᥪâ®à +1,   ¢ #5CF5 - ­®¬¥à ¤®à®¦ª¨.
;#1E4D - § ¯¨áì ᥪâ®à®¢. ‚ HL -  ¤à¥á, ¢ D - ­®¬¥à ¤®à®¦ª¨, ¢ E - ­®¬¥à ᥪâ®à , ¢ B - ª®«-¢® ᥪâ®à®¢.
;#1E64 - § £à㧪 /§ ¯¨áì ᥪâ®à®¢. <20>।¢ à¨â¥«ì­ë¥ ãáâ ­®¢ª¨ ª ª ¨ ¤«ï ¯à¥¤ë¤ã饩 ¯®¤¯à®£à ¬¬ë ¯«îá ¢ A ãáâ ­®¢¨â¥ 0 ¤«ï § £à㧪¨ ¨«¨ çâ®-­¨¡ã¤ì ¤à㣮¥ ¤«ï § ¯¨á¨.
x1E40 CALL x166B ;ç⥭¨¥ ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©«  ¨ § ¬¥­  ®¯¨á â¥«ï
x1E43 LD DE,(#5CF4) ;¡¥à¥¬ ­®¬¥à ᥪâ®à  ¤«ï § ¯¨á¨
DEC DE
LD B,1 ;§ ¯¨á뢠âì 1 ᥪâ®à
LD HL,#5D25 ;§ ¯¨á뢠âì ¡ã¤¥¬ ¨§ ¡ãä¥à 
x1E4D PUSH HL ;á®åà ­¨¬  ¤à¥á ᥪâ®à®¢ ­  ¤¨áª¥ ¨ ¢ ¯ ¬ïâ¨
PUSH DE
CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
BIT 7,(HL) ;®­ 40-¤®à®¦¥ç­ë©?
JR Z,x1E60 ;¥á«¨ ¤ , â® § ¯¨á뢠âì ¬®¦­®
BIT 0,(HL) ;¨á¯®«ì§ã¥¬ 40 ¤®à®¦¥ª ­  80-¤®à®¦¥ç­®¬?
JR NZ,x1E60 ;¥á«¨ ­¥â, â® § ¯¨á뢠âì ¬®¦­®
LD HL,x29D8 ; ¤à¥á á®®¡é¥­¨ï READ ONLY
JP x1D29 ;¯¥à¥å®¤ ­  ®¡à ¡®âªã ®è¨¡®ª
;‚­¨¬ ­¨¥, ®è¨¡ª !!! ‚  ªªã¬ã«ïâ®à¥ § ¡ë«¨ ãáâ ­®¢¨âì ª®¤ ®è¨¡ª¨.
x1E60 POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á®¢ ᥪâ®à®¢
POP HL
x1E62 LD A,#FF ;¯à¨§­ ª § ¯¨á¨
x1E64 LD (#5CCE),A ;ãáâ ­®¢ª  ¯à¨§­ ª  ®¯¥à æ¨¨
x1E67 LD (#5CF4),DE ;ãáâ ­®¢ª   ¤à¥á  ᥪâ®à®¢ ­  ¤¨áª¥
PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
PUSH HL ;¨  ¤à¥á  § £à㧪¨ / § ¯¨á¨
CALL x1E36 ;ç⥭¨¥ ¨­¤¥ªá­®© ®¡« á⨠¤®à®¦ª¨
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  § £à㧪¨ / § ¯¨á¨
POP BC ;¨ ª®«¨ç¥á⢠ ᥪâ®à®¢
XOR A ;ª®«¨ç¥á⢮ ᥪâ®à®¢ à ¢­® 0?
OR B
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
x1E75 PUSH BC ;á®å࠭塞  ¤à¥á ¨ ª®«-¢® ᥪâ®à®¢
PUSH HL
CALL x3F06 ;ãáâ ­®¢ª   ¤à¥á  § £à㧪¨ / § ¯¨á¨ ᥪâ®à®¢
LD A,(#5CF4) ;ãáâ ­®¢ª  ­®¬¥à  ᥪâ®à 
CALL x3F02
LD A,(#5CF5) ;¯®§¨æ¨®­¨à®¢ ­¨¥ £®«®¢ª¨ ­  ¤®à®¦ªã
CALL x3E63
LD A,(#5CCE) ;¡¥à¥¬ ä« £ ®¯¥à æ¨¨
OR A ;§ £à㧪 ?
PUSH AF
CALL Z,x3F0E ;¥á«¨ ¤ , â® § £à㧪  ᥪâ®à 
POP AF
CALL NZ,x3F0A ;¨­ ç¥ § ¯¨áì ᥪâ®à 
POP HL ;¡¥à¥¬  ¤à¥á á«¥¤ãî饣® ᥪâ®à 
LD DE,#100
ADD HL,DE
PUSH HL ;á®å࠭塞 ¥£®
LD A,#10 ;­  ¤®à®¦ª¥ 16 ᥪâ®à®¢
LD HL,#5CF4
INC (HL) ;á«¥¤ãî騩 ᥪâ®à
CP (HL) ;ª®­¥æ ¤®à®¦ª¨?
JR NZ,x1EA7 ;¥á«¨ ¤ , â® ­®¬¥à á«¥¤ãî饣® ᥪâ®à  0
LD (HL),0
LD HL,#5CF5 ;¨ ¡¥à¥¬ á«¥¤ãîéãî ¤®à®¦ªã
INC (HL)
x1EA7 POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  á«¥¤ãî饣® ᥪâ®à 
POP BC ;¨ ª®«¨ç¥á⢠ ᥪâ®à®¢
DJNZ x1E75 ;¥á«¨ ­¥ ¢á¥, â® ¯®¢â®à
RET ;¢®§¢à â
;€¤à¥á #1EAC. ‚ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ¯®«­ëå ᥪâ®à®¢ ä ©«  ¨§ ¥£® ¤«¨­ë ¢ ¡ ©â å. ‚ A ¤®«¦­® ¡ëâì ª®«¨ç¥á⢮ ᥪâ®à®¢ ä ©« ,   ¢ DE - ¤«¨­  § £à㦠¥¬®© ç á⨠䠩« .
x1EAC PUSH HL ;á®åà ­¥­¨¥ HL
LD H,A ;¡¥à¥¬ ¯®«­ãî ¤«¨­ã ä ©« 
LD L,0
PUSH HL ;á®å࠭塞 ¥¥
SBC HL,DE ;®­  ¬¥­ìè¥ ¤«¨­ë § £à㧪¨?
CALL C,x1EBC ;¥á«¨ ¤ , â® § £à㦠âì ¢¥áì ä ©«
POP HL ;¢®ááâ ­®¢«¥­¨¥ ¯®«­®© ¤«¨­ë ä ©« 
LD A,H ;¢ëç¨á«¥­¨¥ ª®«¨ç¥á⢠ ¯®«­ëå ᥪâ®à®¢ ¨§ ¯®«­®© ¤«¨­ë ä ©« 
POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
RET C ;¥á«¨ ¯®«­ ï ¤«¨­  ä ©«  ¡®«ìè¥ ¤«¨­ë § £à㧪¨,
LD A,D ;â® ª®«¨ç¥á⢮ ¯®«­ëå ᥪâ®à®¢ ¡¥à¥¬ ¨§ ¤«¨­ë § £à㧪¨
RET ;¢®§¢à â
;€¤à¥á #1EBC. Ž¡­ã«¥­¨¥ #5CD6 ¨ ãáâ ­®¢ª  ä« £  C.
x1EBC XOR A
LD (#5CD6),A
SCF
RET
;€¤à¥á #1EC2. ‚믮«­¥­¨¥ ª®¬ ­¤ë FORMAT. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1EDD (¯®¢â®à¥­¨¥ ä®à¬ â¨à®¢ ­¨ï; ãáâ ­®¢¨â¥ #5CDD).
x1EC2 LD HL,#FFFF
LD (#5CD7),HL ;¤®à®¦ª¨ ­¥ ¯à®¢¥àïâì
LD (#5CD9),HL ;ä®à¬ â¨à®¢ âì ®¤­ã áâ®à®­ã ¤¨áª 
LD (#5CD1),HL ;®è¨¡ªã ¯à¨ ç⥭¨¨  ¤à¥á­®£® ¬ àª¥à  ¨£­®à¨à®¢ âì
CALL x042B ;á«¥¤ãî騩 ᨬ¢®« ENTER?
JP Z,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
CALL x1DDF ;¯à¨¥¬ ¨¬¥­¨ ¤¨áª  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x1C57 ;ãáâ ­®¢ª  ¨¬¥­¨ ¤¨áª 
x1EDD CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
AND #80 ;¤¨áª®¢®¤ 40-¤®à®¦¥ç­ë©?
LD A,#28 ;ä®à¬ â¨à®¢ âì 40 ¤®à®¦¥ª
JR Z,x1EE8 ;¥á«¨ ¤¨áª®¢®¤ 80-¤®à®¦¥ç­ë©,
LD A,#50 ;â® ä®à¬ â¨à®¢ âì 80 ¤®à®¦¥ª
x1EE8 LD (#5CD7),A ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ¤®à®¦¥ª
CALL x08A7 ;new ¢®ááâ ­®¢«¥­¨¥
CALL x0B01 ;new ¢ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª 
CALL x3EA0 ;§ ¤¥à¦ª  ¢ 3135098 ⠪⮢
LD E,1 ;ä®à¬ â¨à®¢ ­¨¥ ¤®à®¦ª¨ á ­®¬¥à®¬ 1
CALL x1FFD
CALL x1FEB ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
LD E,0 ;ä®à¬ â¨à®¢ ­¨¥ ¤®à®¦ª¨ á ­®¬¥à®¬ 0
CALL x1FFD
LD A,(#5CDD) ;ä®à¬ â¨à®¢ âì ⮫쪮 ®¤­ã áâ®à®­ã ¤¨áª 
CP "$"
JR Z,x1F1B ;¥á«¨ ¤ , â® ä®à¬ â¨à®¢ ­¨¥ ¤¨áª 
CALL x1FF6 ;¢ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª 
CALL x3EA0 ;§ ¤¥à¦ª  ¢ 3135098 ⠪⮢
CALL x3EB5 ;ç⥭¨¥  ¤à¥á­®£® ¬ àª¥à 
LD A,H ;­®¬¥à ¤®à®¦ª¨ - 1?
CP 1
JR NZ,x1F1B ;¥á«¨ ­¥â, â® ä®à¬ â¨à®¢ ­¨¥ ¤¨áª 
x1F16 LD A,#80 ;ä®à¬ â¨à®¢ âì ®¡¥ áâ®à®­ë ¤¨áª 
LD (#5CDA),A
x1F1B CALL x20BD ;ä®à¬ â¨à®¢ ­¨¥ ¤¨áª 
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,x1F49 ;¥á«¨ ¤ , â® ¤¨áª 80-¤®à®¦¥ç­ë©
LD A,(DE) ;ä®à¬ â¨à®¢ «¨ 2 áâ®p®­ë?
CP #80
JR Z,x1F42 ;¥á«¨ ¤ , â® ¤¨áª 40-¤®à®¦¥ç­ë© ¤¢ãåáâ®p®­­¨©
LD A,#19 ;¤¨áª 40-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©
LD HL,#270 ;᢮¡®¤­® #270 ᥪâ®à 
JR x1F55 ;ᮧ¤ ­¨¥ ®¯¨á â¥«ï ¤¨áª 
x1F42 LD A,#17 ;¤¨áª 40-¤®à®¦¥ç­ë© ¤¢ãåáâ®à®­­¨©
x1F44 LD HL,#4F0 ;᢮¡®¤­® #4F0 ᥪâ®à 
JR x1F55 ;ᮧ¤ ­¨¥ ®¯¨á â¥«ï ¤¨áª 
x1F49 LD A,(DE) ;ä®à¬ â¨à®¢ «¨ 2 áâ®à®­ë?
CP #80
LD A,#18 ;¥á«¨ ­¥â, â® ¤¨áª 80-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©
JR NZ,x1F44
LD A,#16 ;¨­ ç¥ ¤¨áª 80-¤®à®¦¥ç­ë© ¤¢ãåáâ®à®­­¨©
LD HL,#9F0 ;᢮¡®¤­® #9F0 ᥪâ®à 
x1F55 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 x0B54 ;new ¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
LD B,1 ;§ ¯¨á âì 1 ᥪâ®à
LD DE,8 ;ᥪâ®à 8 ¤®à®¦ª¨ 0
LD HL,#5D25 ;¨§ ¡ãä¥à 
CALL x1E62 ;§ ¯¨áì ᥪâ®à 
LD A,(#5CD6) ;¡¥à¥¬ ª®«¨ç¥á⢮ ¤¥ä¥ªâ­ëå ᥪâ®à®¢
PUSH AF ;á®å࠭塞 ¥£®
XOR A ;à áè¨à¥­¨¥ - CHR$ 0
LD (#5CE5),A ;ãáâ ­®¢ª  à áè¨à¥­¨ï
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 x1DA9 ;¯¥ç âì ¥£®
LD A,"/" ;¯¥ç âì "/"
RST #10
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ᢮¡®¤­ëå ᥪâ®à®¢
CALL x1DA9 ;¯¥ç âì ¥£®
JP x01D3
;€¤à¥á #1FB9. ’ ¡«¨æ  ᥪâ®à®¢ ¤«ï ä®à¬ â¨à®¢ ­¨ï ®¡ëç­®£® ¤¨áª . ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1FBA ¤«ï ¯à®¢¥àª¨ ¤®à®¦ª¨.
x1FB9 DB 1
x1FBA DB 9,2,#A,3,#B,4,#C,5,#D,6,#E,7,#F,8,#10,1
;€¤à¥á #1FCA. Ž¯à¥¤¥«¥­¨¥ ª®«¨ç¥á⢠ ¤®à®¦¥ª ¤¨áª®¢®¤ . ‚室: ãáâ ­®¢¨â¥ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ . ‚ë室: ¢ #5CD7 ¨ ॣ¨áâॠA ¡ã¤¥â ª®«¨ç¥á⢮ ¤®à®¦¥ª ¤¨áª®¢®¤ .
x1FCA CALL x3E08 ;¡¥à¥¬ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
OR #11 ;¯®§¨æ¨®­¨à®¢ ­¨¥ ­  ¤®à®¦ªã #32
LD B,A
LD A,#32
CALL x3E44
LD A,2 ;§ â¥¬ ­  ¤®à®¦ªã 2
CALL x3E44
CALL x3DFD ;§ ¤¥à¦ª  ¢ 725779 ⠪⮢
IN A,(#1F) ;£®«®¢ª  ¢ ¨á室­®¬ ¯®«®¦¥­¨¨?
AND 4
LD A,#50 ;¥á«¨ ­¥â, â® ã ¤¨áª®¢®¤  80 ¤®à®¦¥ª
JR Z,x1FE7
LD A,#28 ;¨­ ç¥ 40
x1FE7 LD (#5CD7),A ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ¤®à®¦¥ª
RET ;¢®§¢à â
;€¤à¥á #1FEB. ‚ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª . “áâ ­®¢¨â¥ #5D16. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1FF0 (§ £à㧪  á¨á⥬­®£® ॣ¨áâà , ª®¤ - ¢  ªªã¬ã«ïâ®à¥). ‚ë ¬®¦¥â¥ â ª¦¥ ¨á¯®«ì§®¢ âì á  ¤à¥á :
;#1FF3 ¤«ï ¯àאַ£® ¢ë¢®¤  ¢ ¯®àâ #FF.
x1FEB LD A,(#5D16) ;¡¥à¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
OR #3C ;ä®à¬ â MFM, ¢¥àå­ïï áâ®à®­ , ¢ëª«î祭¨¥ á¡à®á  ¨ £®â®¢­®áâ¨
x1FF0 LD (#5D16),A ;§ ¯®¬¨­ ¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
x1FF3 OUT (#FF),A ;ãáâ ­®¢ª  á¨á⥬­®£® ॣ¨áâà 
RET ;¢®§¢à â
;€¤à¥á #1FF6. ‚ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª . “áâ ­®¢¨â¥ #5D16.
x1FF6 LD A,(#5D16) ;¡¥à¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
AND #6F ;ä®à¬ â MFM, ­¨¦­ïï áâ®à®­ , ¢ëª«î祭¨¥ á¡à®á  ¨ £®â®¢­®áâ¨
JR x1FF0 ;ãáâ ­®¢ª  á¨á⥬­®£® ॣ¨áâà 
;€¤à¥á #1FFD. ”®à¬ â¨à®¢ ­¨¥ ¤®à®¦ª¨. ‚ ॣ¨áâà … ¯®¬¥áâ¨â¥ ¥¥ ­®¬¥à ¨ ᯮ§¨æ¨®­¨àã©â¥ £®«®¢ªã ¤¨áª®¢®¤ . ˆ§ ¯¥à¥¬¥­­ëå ãáâ ­®¢¨â¥ #5CD8, #5CE6, #5CE8 ¨ ®¡­ã«¨â¥ #5CD6. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #1FC9 (¯à®¢¥àª  ¤®à®¦ª¨; ãáâ ­®¢¨â¥ #5CD8, #5CE8 ¨ ®¡­ã«¨â¥ #5CD6 ¨ ᯮ§¨æ¨®­¨àã©â¥ £®«®¢ªã).
x1FFD DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD A,#F4 ;§ ¯¨áì ¤®à®¦ª¨
OUT (#1F),A
LD HL,#1FB9 ;¡¥à¥¬  ¤à¥á â ¡«¨æë ᥪâ®à®¢ ¤«ï ä®à¬ â¨à®¢ ­¨ï
LD C,#7F ; ¤à¥á ॣ¨áâà  ¤ ­­ëå
x2007 LD B,#A ;#A à § #4E (¯¥à¢ë© ¯à®¡¥«)
LD D,#4E
CALL x20B1 ;§ ¯¨áì ¡ ©â  § ¤ ­­®¥ ç¨á«® à §
LD B,#C ;ᨭåய஬¥¦ã⮪
LD D,0
CALL x20B1
LD B,3 ;ᨭåந¬¯ã«ìá
LD D,#F5
CALL x20B1
LD D,#FE ;1 à § #FE ( ¤à¥á­ ï ¬¥âª  ¨¤¥­â¨ä¨ª â®à )
CALL x20AF ;§ ¯¨áì ¡ ©â  1 à §
LD D,E ;­®¬¥à ¤®à®¦ª¨
CALL x20AF
LD D,0 ;­®¬¥à áâ®à®­ë (¢ TR-DOS ¢á¥£¤  0)
CALL x20AF
LD D,(HL) ;­®¬¥à ᥪâ®à  ¨§ â ¡«¨æë
CALL x20AF
LD D,1 ;¤«¨­  ᥪâ®à  - #100 ¡ ©â®¢
CALL x20AF
LD D,#F7 ;§ ¯¨áì ª®­â஫쭮© á㬬ë
CALL x20AF
LD B,#16 ;¢â®à®© ¯à®¡¥«
LD D,#4E
CALL x20B1
LD B,#C ;ᨭåய஬¥¦ã⮪
LD D,0
CALL x20B1
LD B,3 ;ᨭåந¬¯ã«ìá
LD D,#F5
CALL x20B1
LD D,#FB ; ¤à¥á­ ï ¬¥âª  ¤ ­­ëå
CALL x20AF
LD B,0 ;¤ ­­ë¥ (#100 ­ã«¥©)
LD D,0
CALL x20B1
LD D,#F7 ;§ ¯¨áì ª®­â஫쭮© á㬬ë
CALL x20AF
LD B,#32 ;âà¥â¨© ¯à®¡¥«
LD D,#4E
CALL x20B1
LD A,(HL) ;¡¥à¥¬  ¤à¥á ­®¬¥à  á«¥¤ãî饣® ᥪâ®à 
INC HL
CP #10 ;ª®­¥æ â ¡«¨æë?
JR NZ,x2007 ;¥á«¨ ­¥â, â® ä®à¬ â¨à®¢ ­¨¥ á«¥¤ãî饣® ᥪâ®à 
LD B,0 ;¯à®¡¥« ¤® ª®­æ  ¤®à®¦ª¨
CALL x20B1
JP M,x2076
CALL x20B1
x2076 IN A,(#1F) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à 
AND #40 ;§ ¯¨áì § ¯à¥é¥­ ?
JP NZ,x3F39 ;¥á«¨ ¤ , â® á®®¡é¥­¨¥ READ ONLY
x207D LD A,(#5CD8) ;¤®à®¦ªã ¯à®¢¥àïâì?
OR A
RET NZ ;¥á«¨ ­¥â, â® ¢®§¢à â
;‚­¨¬ ­¨¥!!! <20>¥à¥¤ ¢®§¢à â®¬ ¨«¨ ¢ë室®¬ ¯® ®è¨¡ª¥ ­ ¤® à §à¥è âì ¯à¥à뢠­¨ï.
LD C,#7F ; ¤à¥á ॣ¨áâà  ¤ ­­ëå
LD A,E ;ãáâ ­®¢ª  ­®¬¥à  ¤®à®¦ª¨
OUT (#3F),A
LD HL,#1FBA ;¡¥à¥¬  ¤à¥á â ¡«¨æë ᥪâ®à®¢ ¤«ï ¯à®¢¥àª¨
x208A LD B,3 ;3 ¯®¯ë⪨
LD A,(HL) ;¡¥à¥¬ ­®¬¥à ᥪâ®à  ¨§ â ¡«¨æë
OUT (#5F),A ;ãáâ ­®¢ª  ᥪâ®à 
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  â ¡«¨æë ᥪâ®à®¢
x2090 DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD A,#80 ;ç⥭¨¥ ᥪâ®à 
OUT (#1F),A
PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ¯®¯ë⮪
CALL x3FE5 ;ç⥭¨¥ ¤ ­­ëå ¯®  ¤à¥áã ¨§ HL (¢ ¯§ã, ­¥ áâà è­®)
IN A,(#1F) ;¢á¥ ¢ ¯®à浪¥?
AND #7F
POP BC ;¢®ááâ ­®¢«¥­¨¥ áç¥â稪  ¯®¯ë⮪
JR Z,x20A6 ;¥á«¨ ¢á¥ ¢ ¯®à浪¥, â® á«¥¤ãî騩 ᥪâ®à
DJNZ x2090 ;á«¥¤ãîé ï ¯®¯ë⪠
LD HL,#5CD6 ;¥áâì 1 ¡¨âë© á¥ªâ®à
INC (HL)
x20A6 POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  â ¡«¨æë ᥪâ®à®¢
LD A,(HL) ;¡¥à¥¬ ­®¬¥à ⥪ã饣® ᥪâ®à 
INC HL ;¡¥à¥¬  ¤à¥á ­®¬¥à  á«¥¤ãî饣® ᥪâ®à 
CP 1 ;ª®­¥æ â ¡«¨æë?
JR NZ,x208A ;¥á«¨ ­¥â, â® ¯®¢â®à
EI ;à §à¥è¥­¨¥ ¯à¥à뢠­¨©
RET ;¢®§¢à â
;€¤à¥á #20AF. ‡ ¯¨áì ¡ ©â  1 p §. ‚ ॣ¨áâà D ¯®¬¥áâ¨â¥ ¡ ©â, ¢ C - #7F ¨ ¢ë¤ ©â¥ ª®¬ ­¤ã § ¯¨á¨ ­  ¢£-#5D. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #20B1 (§ ¯¨áì ¡ ©â  ­¥áª®«ìª® à §; ¢á¥ ¤«ï #20AF ¯«îá ¢ B ª®«¨ç¥á⢮ ¢ë¤ ç).
x20AF LD B,1 ;§ ¯¨áì 1 à §
x20B1 IN A,(#FF) ;®¦¨¤ ­¨¥ DRQ ¨«¨ INTRQ
AND #C0
JR Z,x20B1
RET M ;¥á«¨ ¯®áâ㯨« INTRQ, â® ¢®§¢à â
OUT (C),D ;¢ë¤ ç  ¡ ©â 
DJNZ x20B1 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #20BD. ”®à¬ â¨à®¢ ­¨¥ ¤¨áª . “áâ ­®¢¨â¥ #5CDA, #5CD7, #5CE6 ¨ #5CE8.
x20BD call x0B0B ;¡¥à¥¬ ç¨á«® ä®à¬ â¨à㥬ëå ¤®à®¦¥ª
LD B,(HL)
XOR A ;¤®à®¦ª¨ ¯à®¢¥àïâì
INC HL
LD (HL),A
LD E,#FF ;­ ç­¥¬ á ¤®à®¦ª¨ 0
x20C6 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ¤®à®¦¥ª
INC E ;á«¥¤ãîé ï ¤®à®¦ª 
LD A,E
LD B,#1B ;¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x3E44
CALL x1FEB ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
CALL x1FFD ;ä®à¬ â¨à®¢ ­¨¥ ¤®à®¦ª¨ ¨ ¢®§¢à â
LD A,(#5CDA) ;¡¥à¥¬ ä« £ ª®«¨ç¥á⢠ áâ®à®­
CP #80 ;ä®à¬ â¨à®¢ âì 2 áâ®à®­ë?
JR NZ,x20E1 ;¥á«¨ ¤ , â®
CALL x1FF6 ;¢ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª 
CALL x1FFD ;ä®à¬ â¨à®¢ ­¨¥ ¤®à®¦ª¨ ¨ ¢®§¢à â
x20E1 POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ¤®à®¦¥ª
DJNZ x20C6 ;¥á«¨ ¥é¥ ­¥ ¢á¥, â® ¯®¢â®à
RET ;¢®§¢à â
;€¤à¥á #20E5. “¤ «¥­¨¥ ¡ãä¥à  á ¨§¬¥­¥­¨¥¬ ¯ ¬ïâ¨. <20>  ¢å®¤¥ ãáâ ­®¢¨â¥ ¯¥à¥¬¥­­ë¥ #5CB6, #5CF8, #5D0C ¨ #5D18. ‚ë室: ¢ #5D18 § ¯¨á뢠¥âáï #FF,   ¥á«¨ ¢ #5D0C ¢ë« 0, â® â㤠 â ª¦¥ § áë« ¥âáï #FF. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#20F1 (¨§¬¥­¥­¨¥ ¯ ¬ïâ¨, à ¡®â ¥â ⮫쪮 á #5CB6 ¨ #5D18).
x20E5 PUSH AF ;á®åà ­¥­¨¥ AF
LD A,(#5CF8) ;­¨ç¥£® ­¥ ¤¥« âì?
CP #FF
JR Z,x211C ;¥á«¨ ¤ , â® ¢®§¢à â
POP AF ;¢®ááâ ­®¢«¥­¨¥ AF
CALL x2970 ;㤠«¥­¨¥ ¡ãä¥à 
x20F1 PUSH AF ;á®åà ­¥­¨¥ AF
LD A,(#5CB6) ;¨§¬¥­¥­¨¥ à §à¥è¥­®?
CP #F4
JR Z,x211C ;¥á«¨ ­¥â, â® ¢®§¢à â
XOR A
LD HL,#5D18 ;¯®¤â¢¥à¦¤¥­¨¥ ¥áâì?
OR (HL)
LD (HL),#FF ;¢ á«¥¤ãî騩 à § ¯®¤â¢¥à¦¤¥­¨¥ ¡ã¤¥â
JR Z,x211C ;¥á«¨ ¥£® ­¥ ¡ë«®, â® ¢®§¢à â
LD A,(#5D0C) ;¡ãä¥à ¥áâì?
OR A
LD HL,#5CC3 ;­ ç «® ¯¥à¢®£® ¡«®ª 
LD DE,#5D33 ;­ ç «® ¢â®à®£® ¡«®ª 
JR NZ,x2111 ;¥á«¨ ¥áâì ¡ãä¥à, â® ¢â®à®© ¡«®ª ᬥ饭 ­  #101
LD DE,#5E34 ;¡ ©â®¢
x2111 LD B,#2D ;¤«¨­  ¡«®ª®¢ - #2D ¡ ©â®¢
x2113 LD C,(HL) ;¬¥­ï¥¬ ¡«®ª¨ ¬¥áâ ¬¨
LD A,(DE)
LD (HL),A
LD A,C
LD (DE),A
INC HL
INC DE
DJNZ x2113
x211C POP AF ;¢®ááâ ­®¢«¥­¨¥ AF
RET ;¢®§¢à â
;€¤à¥á #211E. Žç¨á⪠ ¡ãä¥à  । ªâ®à .
x211E LD HL,(#5C59) ;¡¥à¥¬  ¤à¥á ¡ãä¥à  । ªâ®à 
LD (HL),#D ;ENTER
LD (#5C5B),HL ;ãáâ ­®¢ª  ªãàá®à 
INC HL ;ª®­¥æ ®¡« áâ¨
LD (HL),#80
RET ;¢®§¢à â
;€¤à¥á #212A. ‚®ááâ ­®¢«¥­¨¥ ª®¬ ­¤­®© áâப¨. “áâ ­®¢¨â¥ #5D20.
x212A LD DE,(#5C59) ;ᨬ¢®«ë ¯¥à¥­®á¨âì ¢ ¡ãä¥à । ªâ®à 
LD HL,#5D20 ;¨§ #5D20
CALL x02B0 ;¯¥à¥­®á ᨬ¢®«®¢
RET ;¢®§¢à â
;€¤à¥á #2135. <20>ਭï⨥ ª®¬ ­¤ë. “áâ ­®¢¨â¥ #5D0F ¨ ¥á«¨ â ¬ ­¥ 0, â® ¨ #5D20.
x2135 LD A,(#5D0F) ;®è¨¡ª  ¡ë« ?
OR A
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL NZ,x212A ;¥á«¨ ¤ , â® ¢®ááâ ­®¢«¥­¨¥ ¯¥à¢ëå âà¥å ᨬ¢®«®¢
;<3B>¥ ­ ¤® í⮣® ¤¥« âì!!! COPY ¯®àâ¨â ¡ãä¥à ¯®  ¤à¥áã #5D20,   ¡ãä¥à । ªâ®à  ¢á¥£¤  ®áâ ¥âáï 楫.
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL Z,x211E ;¥á«¨ ®è¨¡ª¨ ­¥ ¡ë«®, â® áâ¨à ­¨¥ áâ à®© áâப¨
LD HL,(#5C59) ;íâ  ª®¬ ­¤  ⮦¥ ­¥ ­ã¦­ 
CALL x3D80 ;¯¥à¥¢®¤ áâப¨
LD A,(#5D19) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤  ¯® 㬮«ç ­¨î
ADD A,"A" ;¯¥ç âì ¥£® ¨¬¥­¨
RST #10
LD A,">" ;¯¥ç âì ">"
RST #10
LD HL,#5C3A ;¤«ï ­®à¬ «ì­®£® ¢ë室  ¨§ । ªâ®à 
LD (HL),#FF
JP x1D90 ;¢¢®¤ ª®¬ ­¤ë ¨ ¢®§¢à â
;€¤à¥á #2158. <20>ਥ¬ ç¨á« . CH_ADD ãáâ ­®¢¨â¥ ­  ᨬ¢®« ¯¥à¥¤ ç¨á«®¬. —¨á«®, 㢥«¨ç¥­­®¥ ­  1, ¡ã¤¥â ¯®¬¥é¥­® ¢ #5CD7,   ᮤ¥à¦¨¬®¥ #5CDB ¡ã¤¥â ᪮¯¨à®¢ ­® ¢ #5CD9. —¨á«® ­¥ ¤®«¦­® à ¢­ïâìáï 0.
x2158 CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
CALL x1D8C
CP "," ;íâ® § ¯ïâ ï?
JP NZ,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
LD HL,(#5CDB) ;á®åà ­¥­¨¥ #5CDB
LD (#5CD9),HL
CALL x1E0B ;¯®¬¥é¥­¨¥ ç¨á«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD HL,(#5CDB) ;ç¨á«® p ¢­® 0?
LD A,H
OR A
JP NZ,x1D1A ;¥á«¨ ¤ , â® ®è¨¡ª 
INC HL ;¥é¥ ¡ã¤¥â ¡ ©â ENTER
LD (#5CD7),HL ;ãáâ ­®¢ª  ç¨á« 
LD HL,(#5CD9) ;¢®ááâ ­®¢«¥­¨¥ #5CDB
LD (#5CDB),HL
RET ;¢®§¢à â
;€¤à¥á #2182. ‚믮«­¥­¨¥ ª®¬ ­¤ë OPEN#. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x2182 LD HL,(#5D11) ;ãáâ ­®¢ª  CH_ADD
LD (#5C5D),HL
CALL x1E0B ;¯à¨­ï⨥ ­®¬¥à  ¯®â®ª 
CALL x1DD0 ;¯à¨­ï⨥ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
x218E CALL x1D8C ;¡¥à¥¬ ⥪ã騩 ᨬ¢®«
CP "A" ;®­ ¬¥­ìè¥ "A"?
JR NC,x219A ;¥á«¨ ­¥â, â® ¯à®¢¥àª  ०¨¬  ä ©« 
CALL x1E2A ;á«¥¤ãî騩 ᨬ¢®«
JR x218E ;¯®¢â®à
x219A CP #A5 ;íâ® RND?
PUSH AF ;á®åà ­¥­¨¥ ᨬ¢®«  ¨ १ã«ìâ â  ¯à®¢¥àª¨
CALL Z,x2158 ;¥á«¨ íâ® RND, â® ®¡à ¡®âª  ¤«¨­ë § ¯¨á¨
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®«  ¨ १ã«ìâ â  ¯à®¢¥àª¨
JR Z,x21AE ;¥á«¨ íâ® RND, â® ®âªàë⨥ ¯®â®ª 
AND #DF ;¡ãª¢  § £« ¢­ ï
CP "R" ;íâ® "R"?
JR Z,x21AE ;¥á«¨ ¤ , â® ®âªàë⨥ ¯®â®ª 
CP "W" ;íâ® "W"?
JP NZ,x1D1A ;¥á«¨ ­¥â, â® ®è¨¡ª 
x21AE LD (#5D09),A ;á®åà ­¥­¨¥ ¡ãª¢ë ०¨¬  ä ©« 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,"#" ;à áè¨à¥­¨¥ ä ©«  - "#"
LD (#5CE5),A
LD A,0 ;¯®¨áª ­ ç¨­ âì á ¡«®ª  0
LD (#5CE6),A
CALL x21DB ;¯®¨áª ¯®á«¥¤­¥£® ¡«®ª  ä ©« 
PUSH AF ;á®åà ­¥­¨¥ ä« £  १ã«ìâ â  ¯®¨áª 
CALL x220F ;¯à®¢¥àª  ¯®â®ª 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ä« £  १ã«ìâ â  ¯®¨áª 
PUSH AF ;á®åà ­¥­¨¥ ä« £  १ã«ìâ â  ¯®¨áª 
CALL NZ,x2288 ;¥á«¨ ä ©« ­¥ ¡ë« ­ ©¤¥­, ⮠ᮧ¤ ­¨¥ ¡«®ª  0
POP AF ;¢®ááâ ­®¢«¥­¨¥ ä« £  १ã«ìâ â  ¯®¨áª 
CALL x2242 ;®âªàë⨥ ¯®â®ª 
LD HL,(#5D11) ;ª®à४æ¨ï ¯¥à¥¬¥­­®© á  ¤à¥á®¬ ª®¬ ­¤­®© áâப¨
LD BC,#124
ADD HL,BC
LD (#5D11),HL
JP x01D3 ;§ ¢¥à襭¨¥
;€¤à¥á #21DB. <20>®¨áª ¡«®ª  ä ©«  ¤ ­­ëå. ‚室: ¯®¬¥áâ¨â¥ ¨¬ï ä ©«  ­  á⥪ ª «ìªã«ïâ®à , ãáâ ­®¢¨â¥ #5CDD ¨ #5D09 ¨ ¯®¬¥áâ¨â¥ ¢ #5CE6 ­®¬¥à ¯¥à¢®£® ¡«®ª  ä ©« . ‚ë室: ¥á«¨ ä ©« ­ ©¤¥­, â® ¡ã¤¥â áç¨â ­ ®¯¨á â¥«ì ¯®á«¥¤­¥£® ¨«¨ ¯¥à¢®£® ¡«®ª  ¢ § ¢¨á¨¬®á⨠®â #5D09 ¨ ®¡­ã«¥­  ªªã¬ã«ïâ®à ¨ ãáâ ­®¢«¥­ ä« £ Z; ¨­ ç¥ ä« £ Z ¡ã¤¥â á¡à®è¥­,   ¢  ªªã¬ã«ïâ®à¥ ¡ã¤¥â ¡ ©â ¨§ #5D09.
x21DB LD A,#A ;¯®¨áª ä ©«  ¢¥¤¥¬ ¯® #A ¡ ©â ¬
LD (#5D06),A
CALL x1CB0 ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©«  ¨ ¯®¨áª ä ©« 
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯®¨áª 
CALL x0405 ;­ áâனª  ­  ¤¨áª
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯®¨áª 
JR NZ,x2206 ;¥á«¨ ä ©« ­¥ ­ ©¤¥­, â® ¯à®¢¥àª  ०¨¬  ä ©« 
LD A,(#5D09) ;®âªà뢠¥¬ ä ©« ¤«ï ç⥭¨ï?
CP "R"
JR Z,x2201 ;¥á«¨ ¤ , â® ¢ë室
x21F1 LD HL,#5CE6 ;á«¥¤ãî騩 ¡«®ª
INC (HL)
CALL x1CB3 ;¯®¨áª ¡«®ª 
JR Z,x21F1 ;¥á«¨ ¡«®ª ­ ©¤¥­, â® á«¥¤ãî騩 ¡«®ª
LD HL,#5CE6
DEC (HL) ;¯®á«¥¤­¨© áãé¥áâ¢ãî騩 ¡«®ª
CALL x1CB3 ;®¯à¥¤¥«¥­¨¥ ¥£® ­®¬¥à  ¢ ª â «®£¥
x2201 CALL x165D ;ç⥭¨¥ ¥£® ®¯¨á â¥«ï
XOR A ;®¡­ã«¥­¨¥  ªªã¬ã«ïâ®à  ¨ ãáâ ­®¢ª  ä« £  Z
RET ;¢®§¢à â
x2206 LD A,(#5D09) ;®âªà뢠¥¬ ä ©« ¤«ï ç⥭¨ï?
CP "R"
RET NZ ;¥á«¨ ¤ , â® ¢®§¢à â
JP x03D9 ;á®®¡é¥­¨¥ NO FILE
;€¤à¥á #220F. <20>஢¥àª  § ­ïâ®á⨠¯®â®ª . ‚室: ãáâ ­®¢¨â¥ #5CDB. ‚ë室: ¢ HL ¡ã¤¥â  ¤à¥á í«¥¬¥­â  â ¡«¨æë STRMS, ®â¢¥ç î饣® §  ¤ ­­ë© ¯®â®ª. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #2225 (â® ¦¥, çâ® ¨ #1C4A).
x220F LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à ¯®â®ª 
RST #20 ;¡¥à¥¬ ®â­®á¨â¥«ì­ë©  ¤à¥á ®¯¨á â¥«ï ¯®â®ª , ª
DW #1727 ;ª®â®à®¬ã ¯®¤ª«î祭 ª ­ «
LD A,B ;¯®â®ª § ­ïâ?
OR C
JP NZ,x221B ;¥á«¨ ¤ , â® ®è¨¡ª 
RET ;¢®§¢à â
x221B LD A,#19 ;ª®¤ ®è¨¡ª¨ ¡¥©á¨ª  PARAMETER ERROR
;‚­¨¬ ­¨¥!!! ‹ãçè¥ ¢ë¤ ¢ âì á®®¡é¥­¨¥ INVALID STREAM.
LD (#5C3A),A
LD HL,x2804 ; ¤à¥á á®®¡é¥­¨ï STREAM OPENED
LD A,#A ;ª®¤ ®è¨¡ª¨ TR-DOS - #A
x2225 JP x1C4A ;®¡à ¡®âª  ®è¨¡ª¨
;€¤à¥á #2228. Ž¡à ¡®âª  ®è¨¡ª¨ NOT DISC FILE.
x2228 LD A,#B ;ª®¤ ®è¨¡ª¨ - #B
LD HL,x2812 ; ¤à¥á á®®¡é¥­¨ï NOT DISC FILE
JR x2225 ;®¡à ¡®âª  ®è¨¡ª¨
;€¤à¥á #222F. ˆ­¨æ¨ «¨§ æ¨ï ¯à¨§­ ª®¢ ä ©«  ¯à®¨§¢®«ì­®£® ¤®áâ㯠. “áâ ­®¢¨â¥ #5CD7 ¨ ®âªà®©â¥ ª ­ « ä ©«  ¤ ­­ëå. <20>®¤¯à®£à ¬¬  ¯®¬¥é ¥â ¢ A #7F.
x222F 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.
x2242 PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯®¨áª  ä ©« 
CALL x220F ;¡¥à¥¬  ¤à¥á í«¥¬¥­â  â ¡«¨æë 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 x22B2 ;ᮧ¤ ­¨¥ ®¯¨á â¥«ï ª ­ « 
LD A,(#5D09) ;¡¥à¥¬ ᯮᮡ ®âªàëâ¨ï ä ©« 
CP #A5 ;íâ® RND?
CALL Z,x222F ;¥á«¨ ¤ , â® ¨­¨æ¨ «¨§ æ¨ï ¯à¨§­ ª®¢ ä ©«  ¯à®¨§¢®«ì­®£® ¤®áâ㯠
JR Z,x226B ;¨ ãáâ ­®¢ª  ¯à¨§­ ª  ᯮᮡ  ®âªàëâ¨ï ä ©« 
LD A,(#5D09) ;¡¥à¥¬ ᯮᮡ ®âªàëâ¨ï ä ©« 
CP "R" ;íâ® R?
LD A,#FF ;¥á«¨ ¤ , â® ¯à¨§­ ª ᯮᮡ  ®âªàëâ¨ï ä ©«  -
JR NZ,x226B ;#FF
XOR A ;¨­ ç¥ íâ® 0
x226B LD (HL),A ;ãáâ ­®¢ª  ¯à¨§­ ª  ᯮᮡ  ®âªàëâ¨ï ä ©« 
POP AF
JP x2270
x2270 PUSH AF
LD BC,#14 ;¡¥à¥¬  ¤à¥á äà £¬¥­â  ⥪áâ  ¢ ®¯¨á â¥«¥
ADD HL,BC ;ª ­ «  ¬¨­ãá 1
PUSH HL ;á®å࠭塞 ¥£®
CALL x2423 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᥪâ®à  ä ©«  ­  ¤¨áª¥
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  äà £¬¥­â  ⥪áâ  ¬¨­ãá 1
INC HL
LD B,1 ;§ £à㦠âì 1 ᥪâ®p
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯®¨áª  ä ©« 
OR A ;¡ë« ᮧ¤ ­ ­®¢ë© ä ©«?
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL NZ,x1E4D ;¥á«¨ ¡ë« ᮧ¤ ­ ­®¢ë© ä ©«, â® § ¯¨áì ᥪâ®à 
POP AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
CALL Z,x1E3D ;¥á«¨ ä ©« áãé¥á⢮¢ «, â® § £à㧪  ä ©« 
RET ;¢®§¢à â
;€¤à¥á #2288. ‘®§¤ ­¨¥ ­ã«¥¢®£® ¡«®ª  ä ©«  ¤ ­­ëå.
x2288 LD HL,(#5CD7) ;á®åà ­¥­¨¥ #5CD7
PUSH HL
LD HL,#2000 ;¡«®ª 0
LD (#5CD7),HL
CALL x229A ;ᮧ¤ ­¨¥ ¡«®ª 
POP HL ;¢®ááâ ­®¢«¥­¨¥ #5CD7
LD (#5CD7),HL
RET ;¢®§¢à â
;€¤à¥á #229A. ‘®§¤ ­¨¥ ¡«®ª  ä ©«  ¤ ­­ëå. “áâ ­®¢¨â¥ #5CD7 ¨ #5CDB, #5CDD ¨ #5CE5.
x229A LD HL,#1000 ;¤«¨­  ¡«®ª  - #1000 ¡ ©â®¢
LD (#5CD9),HL
CALL x1AC4 ;¯à®¢¥àª  ­ «¨ç¨ï ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
CALL x1B59 ;§ ¯¨áì ä ©« 
LD HL,0 ;§ ¯®«­¥­® 0 ¡ ©â®¢
LD (#5CE8),HL
CALL x166B ;§ ¬¥­  ®¯¨á â¥«ï ¡«®ª 
JP x1E43 ;¯¥à¥§ ¯¨áì ᥪâ®à  á ®¯¨á â¥«¥¬ ¨ ¢®§¢à â
;‚­¨¬ ­¨¥!!! <20>®á«¥ § ¯¨á¨ ᥪâ®à  ­ ¤® á­®¢  ®âªàëâì ª ­ « ä ©«  ¤ ­­ëå, â ª ª ª ¯à¨ ®è¨¡ª¥ ®âªà뢠¥âáï ¯®â®ª 0.
;€¤à¥á #22B2. ‘®§¤ ­¨¥ ®¯¨á â¥«ï ª ­ «  ¨ ®âªàë⨥ ¯®â®ª .
x22B2 LD HL,(#5C53) ;®âªàë⨥ ¯®â®ª 
DEC HL
LD (#5C51),HL
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ª ­ « 
LD BC,#124 ;¥£® ¤«¨­  - #124 ¡ ©â 
CALL x1E32 ;ᮧ¤ ­¨¥ ®¡« á⨠¤«ï ®¯¨á â¥«ï ª ­ « 
LD A,0 ;§ ¯®«­ïâì ®¡« áâì ­ã«ï¬¨
LD B,0 ;¤«¨­  ®¡« á⨠- #100 ¡ ©â®¢
x22C4 LD (DE),A ;®ç¨á⪠ ¡ ©â 
DEC DE ;á«¥¤ãî騩  ¤à¥á
DJNZ x22C4 ;¯®¢â®à ¤® ª®­æ 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ª ­ « 
PUSH HL ;¨ á­®¢  á®åà ­¥­¨¥
LD DE,x3D0E ; ¤à¥á ¯®¤¯à®£p ¬¬ë ¢ë¢®¤  ¢ ª ­ «
LD (HL),E
INC HL
LD (HL),D
INC HL
LD DE,x3D06 ; ¤à¥á ¯®¤¯à®£à ¬¬ë ¢¢®¤  ¨§ ª ­ « 
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,x22FC ;¨­ ç¥ ª®«¨ç¥á⢮ ¯à®©¤¥­­ëå ¡ ©â®¢ ¡¥à¥¬ ¨§
LD A,(#5CE8) ;¯®«ï ¤«¨­ë § ¯¨á ­­®© ç á⨠䠩« 
LD (HL),A
x22FC INC HL
LD (HL),B
JR Z,x2304
LD A,(#5CE9)
LD (HL),A
x2304 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. ‚ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᨬ¢®«  ä ©«  ¤ ­­ëå ¢ ®¯¨á â¥«¥ ª ­ « . Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. <20>  ¢ë室¥  ¤à¥á ᨬ¢®«  ¡ã¤¥â ¢ HL.
x2317 LD C,#D ; ¤à¥á #D-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD C,(HL) ;¡¥à¥¬ ­®¬¥à ⥪ã饣® ᨬ¢®«  ¢ ⥪ã饬 ᥪâ®à¥ ä ©« 
RST #28 ;¢ëç¨á«¥­¨¥ ᬥ饭¨ï ¤® ᨬ¢®« 
LD BC,#24 ;⥪áâ ­ ç¨­ ¥âáï á #24-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
ADD HL,BC ;¢ëç¨á«¥­¨¥  ¤à¥á  ᨬ¢®« 
RET ;¢®§¢à â
;€¤à¥á #2321. ‚ëç¨á«¥­¨¥  ¤à¥á  äà £¬¥­â  ⥪áâ  ¢ ®¯¨á â¥«¥ ª ­ « . Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #2323 (¢ëç¨á«¥­¨¥  ¤à¥á  ¡ ©â  ¢ ®¯¨á â¥«¥ ⥪ã饣® ª ­ « ; ®âªà®©â¥ ª ­ « ¨ ¯®¬¥áâ¨â¥ ­®¬¥à ¡ ©â  ¢ C; ­  ¢ë室¥ ¢ HL ¡ã¤¥â  ¤à¥á ¡ ©â ).
x2321 LD C,#24 ;⥪áâ ­ ç¨­ ¥âáï á #24-£® ¡ ©â 
x2323 LD B,0 ;¯¥à¥¢®¤ ­®¬¥à  ¡ ©â  ¢ 2-å ¡ ©â­ë© ä®à¬ â
LD HL,(#5C51) ;¡¥à¥¬  ¤à¥á ®¯¨á â¥«ï ⥪ã饣® ª ­ « 
ADD HL,BC ;¢ëç¨á«¥­¨¥  ¤à¥á  ¡ ©â 
RET ;¢®§¢à â
;€¤à¥á #232A. <20>஢¥àª  ¤®á⨦¥­¨ï ª®­æ  ᥪâ®à  ¢ ®¯¨á â¥«¥ ª ­ « . Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. <20>ਠ¤®á⨦¥­¨¨ ª®­æ  ᥪâ®à  ¡ã¤¥â § £à㦥­ á«¥¤ãî騩. …᫨ ¤®á⨣­ãâ ª®­¥æ ¡«®ª ,   á«¥¤ãî騩 ®âáãâáâ¢ã¥â, â® ®­ ¡ã¤¥â ᮧ¤ ­.
x232A LD C,#D ; ¤à¥á #D-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
INC (HL) ;á«¥¤ãî騩 ¡ ©â
RET NZ ;¥á«¨ ­¥ ª®­¥æ ᥪâ®à , â® ¢®§¢à â
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  #D-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
CALL x2443 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
CALL x23FC ;§ ¯¨áì ⥪ã饣® ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #D-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
INC HL ;#E-ë© ¡ ©â
INC (HL) ;á«¥¤ãî騩 ᥪâ®à
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  #E-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
CALL x2418 ;§ £à㧪  ᥪâ®à 
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,x2358 ;¥á«¨ ä ©« ¯àאַ£® ¤®áâ㯠, â® ¯à®¢¥àª  ­ «¨ç¨ï á«¥¤ãî饣® ¡«®ª 
LD HL,(#5C51) ;¡¥à¥¬  ¤à¥á ®¯¨á â¥«ï ª ­ « 
CALL x26E1 ;§ ¯¨áì ®¯¨á â¥«ï ¡«®ª 
LD C,#E ;#E-ë© ¡ ©â
RST #28
JP x2379 ;ᮧ¤ ­¨¥ á«¥¤ãî饣® ¡«®ª  ä ©« 
x2358 CALL x23CF ;¯®¨áª á«¥¤ãî饣® ¡«®ª  ä ©« 
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯®¨áª 
CALL Z,x2418 ;¥á«¨ ¡«®ª ­ ©¤¥­, â® § £à㧪  ᥪâ®à  ¨§ ¡«®ª 
LD C,#E ;#E-ë© ¡ ©â
RST #28
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯®¨áª  ¡«®ª 
CALL NZ,x2370 ;¥á«¨ ¡«®ª ­¥ ¡ë« ­ ©¤¥­, ⮠ᮧ¤ ­¨¥ ¥£®
RET ;¢®§¢à â
;€¤à¥á #2367. <20>®¬¥é¥­¨¥ ¢ D ç¨á«  #20, ¢ E - ᮤ¥à¦¨¬®£® #19-£® ¡ ©â  ®¯¨á â¥«ï ª ­ «  ¨ ®¡­ã«¥­¨¥ ¡ ©â  ¯®  ¤à¥áã, ¯®¬¥é¥­­®¬ã ¢ HL. Žâªà®©â¥ ­ã¦­ë© ª ­ «.
x2367 LD (HL),0 ;®¡­ã«¥­¨¥ ¡ ©â 
LD C,#19 ;¡¥à¥¬  ¤à¥á #19-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD D,#20 ;¯®¬¥é¥­¨¥ ¢ ॣ¨áâà D ç¨á«  #20
LD E,(HL) ;¯®¬¥é¥­¨¥ ¢ E ç¨á«  ¨§ #20-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RET ;¢®§¢à â
;€¤à¥á #2370. ‘®§¤ ­¨¥ ¡«®ª  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå.
x2370 CALL x2367 ;¡¥à¥¬ ­®¬¥à ᮧ¤ ¢ ¥¬®£® ¡«®ª 
LD (#5CD7),DE ;ãáâ ­®¢ª  ¥£®
JR x2381 ;ᮧ¤ ­¨¥ ¨ ¢®§¢à â
;€¤à¥á #2379. C®§¤ ­¨¥ ¡«®ª  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, ¨á¯®«ì§ã¥âáï, â ª¦¥, á  ¤à¥á  #2381 (ᮧ¤ ­¨¥ ¡«®ª  ä ©«  ¤ ­­ëå; ãáâ ­®¢¨â¥ #5CD7 ¨ #5CDB, #5CDD ¨ #5CE5).
x2379 CALL x2367 ;¡¥à¥¬ ­®¬¥à ⥪ã饣® ¡«®ª 
INC E ;á«¥¤ãî騩 ¡«®ª
LD (#5CD7),DE ;ãáâ ­®¢ª  ­®¬¥à  ¡«®ª 
x2381 CALL x229A ;ᮧ¤ ­¨¥ ¡«®ª 
CALL x2970 ;㤠«¥­¨¥ ¡ãä¥à 
;‚­¨¬ ­¨¥!!! …᫨ ¢ë¯®«­ï¥âáï ª®¬ ­¤  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. <20>஢¥àª  ¤®á⨦¥­¨ï ª®­æ  ᥪâ®à  ¯à¨ ç⥭¨¨ ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå.
x239B LD C,#D ; ¤à¥á #10-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
INC (HL) ;á«¥¤ãî騩 ¡ ©â ᥪâ®à 
RET NZ ;¥á«¨ ­¥ ª®­¥æ ᥪâ®à , â® ¢®§¢à â
INC HL ;#11-ë© ¡ ©â
INC (HL) ;á«¥¤ãî騩 ᥪâ®à
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  #11-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
CALL x2443 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
LD C,#23 ;#23-ë© ¡ ©â
RST #28
LD A,(HL) ;íâ® 0?
OR A
JR Z,x23B6 ;¥á«¨ ¤ , ⮠ᥪâ®à ­¥ ¯¥à¥¯¨á뢠âì
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #11-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
PUSH HL ;¨ á­®¢  á®åà ­¥­¨¥ ¥£®
DEC (HL) ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ⥪ã饣® ᥪâ®à 
CALL x23FC ;§ ¯¨áì ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #11-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
PUSH HL ;¨ á­®¢  á®åà ­¥­¨¥ ¥£®
INC (HL) ;á«¥¤ãî騩 ᥪâ®à
x23B6 CALL x2418 ;§ £à㧪  ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #11-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
LD A,#10 ;¢ ¡«®ª¥ 16 ᥪâ®à®¢
CP (HL) ;ª®­¥æ ¡«®ª ?
CALL Z,x23C1 ;¥á«¨ ¤ , â® ®âªàë⨥ á«¥¤ãî饣®
RET ;¢®§¢à â
;€¤à¥á #23C1. Žâªàë⨥ á«¥¤ãî饣® ¡«®ª  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, ¯®¬¥áâ¨â¥ ¢ HL  ¤à¥á #E-£® ¡ ©â  ®¯¨á â¥«ï ª ­ «  ¨ ãáâ ­®¢¨â¥ #5D06.
x23C1 CALL x23CF ;¯®¨áª á«¥¤ãî饣® ¡«®ª  ä ©«  ¤ ­­ëå
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯®¨áª 
CALL x2970 ;㤠«¥­¨¥ ¡ãä¥à 
;‚­¨¬ ­¨¥!!! H ¤® ¯à®¢¥àïâì #5D16, â ª ª ª ¥á«¨ ¢ë¯®«­ï¥âáï ª®¬ ­¤  CAT#, ¨«¨ LIST#, â® ¡ãä¥à 㤠«ïâì ­¥«ì§ï.
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯®¨áª  ¡«®ª 
JP NZ,x2492 ;¥á«¨ ¡«®ª ­¥ ­ ©¤¥­, â® END OF FILE
JP x2418 ;§ £à㧪  ᥪâ®à  ¨§ ¡«®ª 
;€¤à¥á #23CF. <20>®¨áª á«¥¤ãî饣® ¡«®ª  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, ¯®¬¥áâ¨â¥ ¢ HL  ¤p¥á #E-£® ¡ ©â  ®¯¨á â¥«ï ª ­ «  ¨ ãáâ ­®¢¨â¥ #5D06. …᫨ ¡«®ª ­ ©¤¥­, â® ä« £ Z ¡ã¤¥â ¢ª«î祭, ¨­ ç¥ ¢ëª«î祭.
x23CF 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 x1CB3 ;¯®¨áª ¡«®ª 
;‚­¨¬ ­¨¥!!! <20>®á«¥ ¯®¨áª  ¡«®ª  ­ ¤® á­®¢  ®âªà뢠âì ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, â ª ª ª ¯à¨ ¤¨áª®¢ëå ®è¨¡ª å ®âªà뢠¥âáï ¯®â®ª 0.
RET NZ ;¥á«¨ ¡«®ª ­¥ ­ ©¤¥­, â® ¢®§¢à â
;€¤à¥á #23E4. Žâªàë⨥ ¡«®ª . <20>®¬¥à ¡«®ª  ¢ ª â «®£¥ ¯®¬¥áâ¨â¥ ¢ A.
x23E4 CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ¡«®ª 
;‚­¨¬ ­¨¥!!! <20>®á«¥ ç⥭¨ï ®¯¨á â¥«ï ­ ¤® á­®¢  ®âªà뢠âì ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, â ª ª ª ¯à¨ ¤¨áª®¢ëå ®è¨¡ª å ®âªà뢠¥âáï ¯®â®ª 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. ‡ ¯¨áì ⥪ã饣® ᥪâ®à  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬.
x23FC CALL x2423 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᥪâ®à  ä ©«  ­  ¤¨áª¥
CALL x2321 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® äà £¬¥­â  ⥪áâ  ¢ ®¯¨á â¥«¥ ª ­ « 
LD B,1 ;§ ¯¨á뢠âì 1 ᥪâ®à
CALL x1E4D ;§ ¯¨áì ᥪâ®à 
;‚­¨¬ ­¨¥!!! <20>®á«¥ § ¯¨á¨ ᥪâ®à  ­ ¤® á­®¢  ®âªà뢠âì ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, â ª ª ª ¯à¨ ¤¨áª®¢®© ®è¨¡ª¥ ®âªà뢠¥âáï ¯®â®ª 0.
LD C,#F ;#F-ë© ¡ ©â ®¯¨á â¥«ï ª ­ « 
RST #28
LD A,(HL) ;ä ©« ¯àאַ£® ¤®áâ㯠?
CP #7F
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
CALL x2321 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® äà £¬¥­â  ⥪áâ  ¢ ®¯¨á â¥«¥ ª ­ « 
XOR A ;ᥪâ®à § ¯®«­ïâì ­ã«ï¬¨
LD B,A ;¤«¨­  ¥£® - #100 ¡ ©â®¢
x2413 LD (HL),A ;®ç¨á⪠ ¡ ©â 
INC HL ;á«¥¤ãî騩 ¡ ©â
DJNZ x2413 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #2418. ‡ £à㧪  ⥪ã饣® ᥪâ®à  ¢ ®¯¨á â¥«ì ª ­ « . Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå.
x2418 CALL x2423 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᥪâ®à  ­  ¤¨áª¥
CALL x2321 ;¢ëç¨á«¥­¨¥  ¤à¥á  ᥪâ®à  ¢ ®¯¨á â¥«¥ ª ­ « 
LD B,1 ;§ £à㦠âì 1 ᥪâ®à
JP x1E3D ;§ £à㧪  ᥪâ®à  ¨ ¢®§¢à â
;‚­¨¬ ­¨¥!!! <20>®á«¥ § £à㧪¨ ᥪâ®à  ­ ¤® á­®¢  ®âªà뢠âì ª ­ «, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, â ª ª ª ¯à¨ ®è¨¡ª å ®âªà뢠¥âáï ¯®â®ª 0.
;€¤à¥á #2423. ‚ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᥪâ®à  ä ©«  ­  ¤¨áª¥. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. <20>  ¢ë室¥ ¢ DE ¡ã¤¥â  ¤à¥á ᥪâ®à  ­  ¤¨áª¥.
x2423 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,x2441 ;¥á«¨ ­®¬¥à ⥪ã饣® ᥪâ®à  ä ©«  p ¢¥­ 0, â® ¢ë室
x2438 INC E ;á«¥¤ãî騩 ᥪâ®à
CP E ;ª®­¥æ ¤®à®¦ª¨?
JR NZ,x243F ;¥á«¨ ¤ , â®
LD E,0 ;ᥪâ®à 0
INC D ;¨ á«¥¤ãîé ï ¤®à®¦ª 
x243F DJNZ x2438 ;¯®¢â®à ¤® ª®­æ 
x2441 POP AF ;¢®ááâ ­®¢«¥­¨¥ AF
RET ;¢®§¢à â
;€¤à¥á #2443. “áâ ­®¢ª  ¤¨áª®¢®¤  ¤«ï ®¯¥à æ¨© á ä ©«®¬ ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬.
x2443 LD C,#B ;¡¥à¥¬  ¤à¥á #B-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD A,(HL) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤ , ­  ª®â®à®¬ ­ å®¤¨âáï ä ©«
JP x3DCB ;¢ë¡®à ¤¨áª®¢®¤ 
;€¤à¥á #244A. ‚뢮¤ ᨬ¢®«  ¢ ä ©« ¤ ­­ëå. ‘¨¬¢®« ¯®¬¥áâ¨â¥ ¢  ªªã¬ã«ïâ®à ¨ ®âªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬.
x244A LD HL,#5CC2 ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,x20F1 ; ¤à¥á ¯®¤¯à®£à ¬¬ë ¨§¬¥­¥­¨ï ¯ ¬ïâ¨
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
PUSH AF ;á®åà ­¥­¨¥ ᨬ¢®« 
CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
LD A,#A ;ä ©« ¨áª âì ¯® #A ¡ ©â ¬ ®¯¨á â¥«ï
LD (#5D06),A
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
CALL x24A2 ;à ¡®â  á ä ©«®¬ ¯àאַ£® ¤®áâ㯠
PUSH AF ;á®åà ­¥­¨¥ ᨬ¢®« 
CALL x2650 ;ä ©« ®âªà뢠«áï ¤«ï ç⥭¨ï?
JP Z,x249E ;¥á«¨ ¤ , â® ®è¨¡ª 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
CALL x2317 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᨬ¢®«  ¢ ⥪ã饬 ᥪâ®à¥
LD (HL),A ;§ ¯¨áì ᨬ¢®« 
JP x232A ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ᥪâ®à  ¢ ®¯¨á â¥«¥ ª ­ « 
;€¤à¥á #246E. <20>஢¥àª  ¤®á⨦¥­¨ï ª®­æ  ¡«®ª . ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#2492 - ®¡à ¡®âª  ®è¨¡ª¨ END OF FILE ç¥à¥§ <20>‡“ ¡¥©á¨ª .
;#2494 - ®¡à ¡®âª  ®è¨¡®ª ç¥à¥§ <20>‡“ ¡¥©á¨ª . Š®¤ ®è¨¡ª¨ ¯®¬¥áâ¨â¥ ¢  ªªã¬ã«ïâ®à.
x246E 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 A,(HL)
LD BC,#E
ADD HL,BC
CP (HL)
RET NZ
LD HL,#5CB6 ; ¤à¥á ¯¥à¥¬¥­­®© à §p¥è¥­¨ï ¨§¬¥­¥­¨ï ¯ ¬ïâ¨
LD A,(HL) ;¡¥à¥¬ ¥¥ §­ ç¥­¨¥
CP #F4 ;¨­â¥à䥩á-1 ¥áâì?
JR Z,x2492 ;¥á«¨ ­¥â, â® ®è¨¡ª 
BIT 4,(HL) ;¢ë¯®«­ï¥âáï ª®¬ ­¤  LOAD ¨­â¥à䥩á -1?
JR Z,x2492 ;¥á«¨ ¤ , â® ®è¨¡ª 
OR 1 ;á¡à®á ä« £  C
POP HL ;á­ï⨥ á® á⥪   ¤à¥á  ¢®§¢à â 
RET ;¢®§¢à â ¯® á«¥¤ãîé¥¬ã  ¤à¥áã
x2492 LD A,7 ;ª®¤ ®è¨¡ª¨ END OF FILE
x2494 LD (#5C3A),A ;ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
CALL x20E5 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
RST #20 ;®¡à ¡®âª  ®è¨¡ª¨
DW #0058
;€¤à¥á #249D. Š®¬ ­¤  RET.
x249D RET
;€¤à¥á #249E. Ž¡à ¡®âª  ®è¨¡ª¨ INVALID I/O DEVICE ç¥à¥§ <20>‡“ ¡¥©á¨ª .
x249E LD A,#17 ;ª®¤ ®è¨¡ª¨ - #17
JR x2494 ;®¡à ¡®âª  ®è¨¡ª¨ ç¥p¥§ <20>‡“ ¡¥©á¨ª 
;€¤à¥á #24A2. <20> ¡®â  á ä ©«®¬ ¯à®¨§¢®«ì­®£® ¤®áâ㯠. Žç¥à¥¤­®© ᨬ¢®« ¯®¬¥áâ¨â¥ ¢ A ¨ ®âªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. …᫨ ®ª®­ç¥­ ¯à¨¥¬ § ¯¨á¨ ¨«¨ ä ©« ¯®á«¥¤®¢ â¥«ì­®£® ¤®áâ㯠, â® ¯à®¨á室¨â ¯à®á⮩ ¢®§¢à â, ¨­ ç¥ ¯à®¨á室¨â ¢®§¢à â ¨§ ¯à®£à ¬¬ë, ¢ë§¢ ¢è¥© íâã ¯®¤¯à®£à ¬¬ã.
x24A2 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,x24D5 ;¥á«¨ ­®¬¥à § ¯¨á¨ ¯à¨­ïâ, â® § ¯¨áì ᨬ¢®« 
DEC HL ;#21-¨© ¡ ©â
LD A,(HL) ;íâ® 0?
OR A
JR NZ,x24C2 ;¥á«¨ ­¥â, â® à ¡®ç ï ®¡« áâì 㦥 ¥áâì
PUSH BC ;á®åà ­¥­¨¥ ç¨á«  #13,
PUSH HL ; ¤à¥á  #21-£® ¡ ©â  ®¯¨á â¥«ï ª ­ «  ¨
PUSH DE ;ᨬ¢®« 
CALL x24F8 ;¢ë¤¥«¥­¨¥ #10 ¡ ©â®¢ ¢ à ¡®ç¥© ®¡« áâ¨
POP DE ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« ,
POP HL ; ¤à¥á  #21-£® ¡ ©â  ®¯¨á â¥«ï ª ­ «  ¨
POP BC ;ç¨á«  #13
x24C2 LD C,(HL) ;¡¥à¥¬ ®â­®á¨â¥«ì­ë©  ¤à¥á ᨬ¢®« 
LD A,D ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
EX DE,HL
LD HL,(#5CCF) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« áâ¨
ADD HL,BC ;¢ëç¨á«¥­¨¥  ¤à¥á  ¤«ï ᨬ¢®« 
CP 6 ;ᨬ¢®« CHR$ 6?
LD (HL),A ;¯®¬¥é¥­¨¥ ᨬ¢®«  ¢ à ¡®çãî ®¡« áâì
CALL Z,x2504 ;¥á«¨ ᨬ¢®« CHR$ 6, â® ­®¬¥à § ¯¨á¨ ¯à¨­ïâ
LD C,#21 ;#21-¨© ¡ ©â
RST #28
INC (HL) ;§ ¯¨á «¨ 1 ᨬ¢®«
POP HL ;á­ï⨥ á® á⥪   ¤à¥á  ¢®§¢à â 
RET ;¢®§¢à â ¯® á«¥¤ãîé¥¬ã  ¤à¥áã
x24D5 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,x24EE ;¥á«¨ ¬¥áâ  ¤«ï ᨬ¢®«  ­¥â, â® á«¥¤ãîé ï § ¯¨áì
LD A,D ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
CP #D ;íâ® ENTER?
JR Z,x24F2 ;¥á«¨ ¤ , â® á«¥¤ãîé ï § ¯¨áì
POP BC ;á­ï⨥ á® á⥪   ¤à¥á  ¢®§¢à â 
RET ;¢®§¢à â ¯® á«¥¤ãîé¥¬ã  ¤à¥áã
x24EE LD A,D ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
CP #D ;íâ® ENTER?
RET NZ ;¥á«¨ ­¥â, â® ¢®§¢à â
x24F2 XOR A ;®â­®á¨â¥«ì­ë©  ¤à¥á ᨬ¢®«  - 0
LD (HL),A
INC HL ;#22-ë© ¡ ©â
LD (HL),A ;¡ã¤¥¬ ¯à¨­¨¬ âì ­®¬¥à § ¯¨á¨
LD A,D ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
RET ;¢®§¢à â
;€¤à¥á #24F8. ‚뤥«¥­¨¥ #10 ¡ ©â®¢ ¢ à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨. “áâ ­ ¢«¨¢ ¥â #5CCF.
x24F8 LD HL,(#5C61) ;¡¥à¥¬  ¤à¥á à ¡®ç¥© ®¡« á⨠¯ ¬ïâ¨
LD (#5CCF),HL ;ãáâ ­®¢ª  ¥£®
LD BC,#10 ;¢ë¤¥«ïâì #10 ¡ ©â®¢
JP x1E23 ;¢ë¤¥«¥­¨¥ ®¡« á⨠¨ ¢®§¢à â
;€¤p¥á #2504. Ž¡à ¡®âª  ­®¬¥à  § ¯¨á¨. <20>®¬¥áâ¨â¥ ¢ ¯ ¬ïâì ­®¬¥à § ¯¨á¨ ¢ ¢¨¤¥ ⥪áâ  ¨ ¯®¬¥áâ¨â¥ ¥£®  ¤à¥á ¢ #5CCF,   ¢ HL ¯®¬¥áâ¨â¥  ¤à¥á ¯®á«¥¤­¥£® ᨬ¢®«  ­®¬¥à  § ¯¨á¨ ¯«îá 1.
x2504 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 x1DC1 ;¯¥à¥¢®¤ ç¨á«  ¢ 5-¡ ©â­ãî ä®à¬ã
LD HL,#5C3B ;¢ë¯®«­¥­¨¥
SET 7,(HL)
LD HL,(#5CCF) ;ãáâ ­®¢ª  CH_ADD ­  ­®¬¥à § ¯¨á¨
LD (#5C5D),HL
CALL x1DC1 ;¯à¨¥¬ ç¨á«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1DB9 ;á­ï⨥ ¥£® ®ââ㤠
PUSH BC ;¯¥à¥­®á ¥£® ¢ DE
POP DE
LD C,#20 ;¡¥à¥¬  ¤à¥á #D-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD B,(HL) ;¡¥à¥¬ ¤«¨­ã § ¯¨á¨
XOR A
LD HL,0 ;¢ëç¨á«¥­¨¥ ®â­®á¨â¥«ì­®£®  ¤à¥á  § ¯¨á¨ ¢
LD (#5CDB),HL ;ᥪâ®à¥, ­®¬¥à  ᥪâ®à  ¨ ­®¬¥à  ¡«®ª 
x2538 ADD HL,DE ;¨§¢¨­¨â¥, ­¥ ¯®­ï«, ª ª íâ® p ¡®â ¥â
JR NC,x2544
PUSH HL
LD HL,(#5CDB)
INC HL
LD (#5CDB),HL
POP HL
x2544 DJNZ x2538
LD (#5CD9),HL
LD A,(#5CDB) ;¢ ¡«®ª¥ ¢á¥£® 16 ᥪâ®à®¢
LD HL,#5CDA
RRD
AND #F
LD (#5CDB),A
LD HL,(#5CD7) ;¢®ááâ ­®¢«¥­¨¥ CH_ADD
LD (#5C5D),HL
CALL x2568 ;®âªàë⨥ § ¯¨á¨
LD C,#21 ;#21-¨© ¡ ©â
RST #28
LD A,#FF ;®â­®á¨â¥«ì­ë©  ¤à¥á ⥪ã饣® ᨬ¢®«  ¡ã¤¥â 0
LD (HL),A
INC HL ;#22-ë© ¡ ©â
LD (HL),A ;­®¬¥à § ¯¨á¨ ¯à¨­ïâ
RET ;¢®§¢à â
;€¤à¥á #2568. Žâªàë⨥ § ¯¨á¨. “áâ ­®¢¨â¥ #5CD7, #5CD9 ¨ #5CDB.
x2568 LD C,#19 ;¡¥à¥¬  ¤à¥á #19-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD A,(#5CDA) ;¡¥à¥¬ ­®¬¥à ®âªà뢠¥¬®£® ¡«®ª 
CP (HL) ;¡«®ª 㦥 ®âªàëâ?
JP NZ,x2584 ;¥á«¨ ­¥â, â® ®âªàë⨥ ¡«®ª 
LD C,#E ;#E-ë© ¡ ©â
RST #28
LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à ᥪâ®à  ¢ ®âªà뢠¥¬®¬ ¡«®ª¥
CP (HL) ;ᥪâ®à 㦥 áç¨â ­?
JP NZ,x25A7 ;¥á«¨ ­¥â, â® § £à㧪  ᥪâ®à 
x257C LD C,#D ;#D-ë© ¡ ©â
RST #28
LD A,(#5CD9) ;¡¥à¥¬ ®â­®á¨â¥«ì­ë©  ¤à¥á ®âªà뢠¥¬®© § ¯¨á¨
LD (HL),A ;ãáâ ­®¢ª  ¥£®
RET ;¢®§¢à â
x2584 CALL x25CA ;¯à®¢¥àª  ¨ ®¡­ã«¥­¨¥ #23-£® ¡ ©â 
CALL NZ,x25C3 ;¥á«¨ ­ ¤®, â® § ¯¨áì ᥪâ®à 
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 x1CB3 ;¯®¨áª ¡«®ª 
;Žè¨¡ª !!! <20>®á«¥ ¯®¨áª  ä ©«  ­ ¤® á­®¢  ®âªà뢠âì ª ­ « ä ©«  ¤ ­­ëå, â ª ª ª ¯à¨ ®è¨¡ª¥ ¡ã¤¥â ®âªàëâ ¯®â®ª 0.
JP NZ,x25D2 ;¥á«¨ ¡«®ª ­¥ ­ ©¤¥­, ⮠ᮧ¤ ­¨¥ ¡«®ª 
CALL x23E4 ;®âªàë⨥ ¡«®ª 
JR x25AD ;§ £à㧪  ᥪâ®à  ¨§ ¡«®ª 
x25A7 CALL x25CA ;¯à®¢¥àª  ¨ ®¡­ã«¥­¨¥ #23-£® ¡ ©â 
CALL NZ,x25C3 ;¥á«¨ ­ ¤®, â® § ¯¨áì ᥪâ®à 
x25AD LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à áç¨â뢠¥¬®£® ᥪâ®à 
LD C,#E ;#E-ë© ¡ ©â
RST #28
LD (HL),A ;ãáâ ­®¢ª  ­®¬¥à  ᥪâ®à 
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  #E-£® ¡ ©â 
CALL x2443 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
CALL x2418 ;§ £à㧪  ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #E-£® ¡ ©â 
DEC HL ;#D-ë© ¡ ©â
LD A,(#5CD9) ;ãáâ ­®¢ª  ®â­®á¨â¥«ì­®£®  ¤à¥á  ®âªà뢠¥¬®©
LD (HL),A ;§ ¯¨á¨
JR x257C ;¢ë室
;€¤à¥á #25C3. ‡ ¯¨áì ⥪ã饣® ᥪâ®à . Žâªà®©â¥ ª ­ « ä ©«  ¤ ­­ëå.
x25C3 CALL x2443 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
CALL x23FC ;§ ¯¨áì ᥪâ®à 
RET ;¢®§¢à â
;€¤à¥á #25CA. <20>஢¥àª  ¨ ®¡­ã«¥­¨¥ #23-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « . ‘®®â¢¥âá⢥­­® ᮤ¥à¦¨¬®¬ã ¡ã¤¥â ãáâ ­®¢«¥­ ä« £ Z,   á ¬® ᮤ¥à¦¨¬®¥ ¡ã¤¥â ¢  ªªã¬ã«ïâ®à¥. Žâªà®©â¥ ­ã¦­ë© ª ­ «.
x25CA LD C,#23 ;¡¥à¥¬  ¤à¥á #23-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD A,(HL) ;¡¥à¥¬ ¥£® ᮤ¥à¦¨¬®¥
OR A ;¯à®¢¥àª  ¥£®
LD (HL),0 ;®¡­ã«¥­¨¥ ¡ ©â 
RET ;¢®§¢à â
;€¤à¥á #25D2. ‘®§¤ ­¨¥ ¡«®ª  ä ©«  ¤ ­­ëå. “áâ ­®¢¨â¥ #5CD7, #5CD9 ¨ #5CDB.
x25D2 LD HL,(#5CDA) ;¡¥à¥¬ ­®¬¥à ¡«®ª 
LD H,#20
LD (#5CD7),HL ;ãáâ ­®¢ª  ¥£®
LD HL,(#5CD9) ;á®åà ­¥­¨¥ ®â­®á¨â¥«ì­®£®  ¤à¥á  ®âªà뢠¥¬®©
PUSH HL ;§ ¯¨á¨
LD HL,(#5CDB) ;¨ ­®¬¥à  ᥪâ®à 
PUSH HL
CALL x2381 ;ᮧ¤ ­¨¥ ¡«®ª 
POP HL ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ᥪâ®à 
LD (#5CDB),HL
POP HL ;¨ ®â­®á¨â¥«ì­®£®  ¤à¥á  ®âªà뢠¥¬®© § ¯¨á¨
LD (#5CD9),HL
JR x25AD ;§ £à㧪  ᥪâ®à  ¨§ ¡«®ª 
;€¤à¥á #25EF. ‚¢®¤ ¨§ ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå. <20>ਠ¢ë§®¢¥ ¨§ । ªâ®à  ¢¢®¤¨â ¢áî áâப㠨 ¯à®¨§¢®¤¨â ¢ë室 ¨§ । ªâ®à , ¨­ ç¥ ¢®§¢à é ¥â ᨬ¢®« ¨§ ä ©«  ¢ A.
x25EF CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
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,x2626 ;¥á«¨ ­¥â, â® ¯®¤¯à®£à ¬¬  ¢ë§¢ ­  ­¥ ¨§ । ªâ®à 
LD SP,(#5C3D) ;®ç¨á⪠ á⥪  । ªâ®à 
POP DE ;á­ï⨥  ¤à¥á  ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ®è¨¡®ª
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ¤­  á⥪ 
LD (#5C3D),DE ;ãáâ ­®¢ª  ¥£®
x260F CALL x262B ;¢¢®¤ ᨬ¢®«  ¨§ ä ©« 
JR C,x261D ;¥á«¨ ¡ë« ¢¢¥¤¥­ ᨬ¢®«, â® ¯®á뫪  ¥£® ¢ ¡ãä¥à । ªâ®à 
x2614 LD HL,#5CC2 ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,x20E5 ; ¤à¥á ¯®¤¯à®£à ¬¬ë 㤠«¥­¨ï ¡ãä¥à  ¨ ¨§¬¥­¥­¨ï ¯ ¬ïâ¨
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
RET ;¨§¬¥­¥­¨¥ ¯ ¬ï⨠¨ ¢®§¢à â
x261D CP #D ;ᨬ¢®« ENTER?
JR Z,x2614 ;¥á«¨ ¤ , â® ¢ë室
RST #20 ;¢¢®¤ ᨬ¢®«  ¢ ¡ãä¥à । ªâ®à 
DW #0F85
JR x260F ;¯®¢â®à
x2626 CALL x262B ;¢¢®¤ ᨬ¢®«  ¨§ ä ©« 
JR x2614 ;¢®§¢à â
;€¤à¥á #262B. ‚¢®¤ ¡ ©â  ¨§ ä ©«  ¤ ­­ëå. <20>  ¢ë室¥ ¡ ©â ¡ã¤¥â ¢  ªªã¬ã«ïâ®à¥. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå.
x262B LD A,#A ;ä ©« ¨áª âì ¯® 10 ¡ ©â ¬ ®¯¨á â¥«ï
LD (#5D06),A
CALL x2650 ;ä ©« ®âªàëâ ¤«ï ç⥭¨ï?
JR Z,x2642 ;¥á«¨ ¤ , â®
CP #7F ;ä ©« ¯à®¨§¢®«ì­®£® ¤®áâ㯠?
JP NZ,x249E ;¥á«¨ ­¥â, â® ®è¨¡ª 
LD BC,#13 ;¡¥à¥¬  ¤à¥á #22-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
ADD HL,BC
LD (HL),0 ;¯®¤¯à®£à ¬¬  ¢ë¢®¤  ¡ã¤¥â ¯à¨­¨¬ âì ­®¬¥à § ¯¨á¨
JR x2645
x2642 CALL x246E
x2645 CALL x2317 ;¢ëç¨á«¥­¨¥  ¤à¥á  ⥪ã饣® ᨬ¢®« 
LD A,(HL) ;¡¥à¥¬ íâ®â ᨬ¢®«
PUSH AF ;á®å࠭塞 ¥£®
CALL x239B ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  ᥪâ®à 
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
SCF ;¡ë« ¢¢¥¤¥­ ᨬ¢®«
RET ;¢®§¢à â
;€¤à¥á #2650. <20>஢¥àª  #F-£® ¡ ©â  ®¯¨á â¥«ï ⥪ã饣® ª ­ « . ‘®®â¢¥âá⢥­­® ¥£® ᮤ¥à¦¨¬®¬ã ãáâ ­®¢¨âáï ä« £ Z,   á ¬® ᮤ¥à¦¨¬®¥ ¡ã¤¥â ¢ ॣ¨áâॠA.
x2650 LD C,#F ;¡¥à¥¬  ¤à¥á #F-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
RST #28
LD A,(HL) ;¡¥à¥¬ íâ®â ¡ ©â
OR A ;¯à®¢¥àª  ¥£® ­  0
RET ;¢®§¢à â
;€¤à¥á #2656. ‚믮«­¥­¨¥ ª®¬ ­¤ë CLOSE#. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x2656 LD HL,(#5D11) ;ãáâ ­®¢ª  CH_ADD
LD (#5C5D),HL
CALL x1E0B ;¯à¨¥¬ ­®¬¥à  ¯®â®ª 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
LD A,(#5CDB) ;¡¥à¥¬ ­®¬¥à ¯®â®ª 
RST #20 ;¡¥à¥¬ ®â­®á¨â¥«ì­ë©  ¤à¥á ®¯¨á â¥«ï ª ­ « 
DW #1727
LD A,B ;¯®â®ª § ªàëâ?
OR C
JP Z,x01D3 ;¥á«¨ ¤ , â® § ¢¥à襭¨¥
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  í«¥¬¥­â  STRMS
LD HL,(#5C4F) ;¡¥à¥¬  ¤à¥á ®¡« á⨠®¯¨á â¥«¥© ª ­ «®¢
ADD HL,BC ;¢ëç¨á«ï¥¬  ¤à¥á ¯¥à¢®£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
LD A,(HL) ;¡¥à¥¬ áâ à訩 ¡ ©â  ¤à¥á  ¯®¤¯à®£à ¬¬ë ¢ë¢®¤ 
LD HL,x3D0E ;®­ à ¢¥­ #3D?
CP H
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  í«¥¬¥­â  STRMS
JP NZ,x2228 ;¥á«¨ áâ à訩 ¡ ©â  ¤à¥á  ¯®¤¯à®£à ¬¬ë ¢ë¢®¤  ­¥ à ¢¥­ #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 x26CE ;§ ¯¨áì ®áâ âª  ä ©« , ¥á«¨ ­ã¦­®
LD HL,(#5CD7) ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ®¯¨á â¥«ï ª ­ « 
LD BC,#124 ;¥£® ¤«¨­  - #124 ¡ ©â 
CALL x1E2E ;ã­¨ç⮦¥­¨¥ ®¡« á⨠®¯¨á â¥«ï ª ­ « 
LD HL,#5C10 ;¡¥à¥¬ ­ ç «® â ¡«¨æë STRMS
LD B,#10 ;¢á¥£® 16 ¯®â®ª®¢
x269D 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,x26BC ;¥á«¨ ®­ ¬¥­ìè¥ ­ è¥£®  ¤à¥á , â® á«¥¤ãî騩 í«¥¬¥­â
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
x26BC INC HL ;á«¥¤ãî騩 í«¥¬¥­â
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ í«¥¬¥­â®¢
DJNZ x269D ;¯®¢â®à ¤® ª®­æ 
LD HL,(#5D11) ;ª®à४æ¨ï  ¤à¥á  ª®¬ ­¤­®© áâப¨
LD BC,#124
SBC HL,BC
LD (#5D11),HL
JP x01D3 ;§ ¢¥à襭¨¥
;€¤à¥á #26CE. ‡ ¯¨áì ⥪ã饣® ᥪâ®à  ä ©«  ¤ ­­ëå. <20>ਠ§ ¯¨á¨ ®âªà뢠¥â ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬. <20>®¬¥áâ¨â¥ ¢ HL ¨ #5CD7  ¤à¥á ®¯¨á â¥«ï ª ­ « .
x26CE LD BC,#F ;¡¥à¥¬  ¤à¥á #F-£® ¡ ©â  ®¯¨á â¥«ï ª ­ « 
ADD HL,BC
LD A,(HL) ;ä ©« ®âªà뢠«áï ¤«ï ç⥭¨ï?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD HL,(#5CD7) ;®âªàë⨥ ¯®â®ª 
LD (#5C51),HL
CALL x26E1 ;§ ¯¨áì ®¯¨á â¥«ï ¡«®ª 
JP x23FC ;§ ¯¨áì ⥪ã饣® ᥪâ®à  ¨ ¢®§¢à â
;€¤p¥á #26E1. ‡ ¯¨áì ®¯¨á â¥«ï ⥪ã饣® ¡«®ª  ä ©«  ¤ ­­ëå. Žâªà®©â¥ ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå ¨ ¯®¬¥áâ¨â¥ ¢ HL  ¤à¥á ®¯¨á â¥«ï ª ­ « .
x26E1 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 x2443 ;ãáâ ­®¢ª  ¤¨áª®¢®¤ 
LD C,#C ;#C-ë© ¡ ©â
RST #28
LD C,(HL) ;¡¥à¥¬ ­®¬¥à ¡«®ª  ¢ ª â «®£¥
CALL x166B ;§ ¬¥­  ®¯¨á â¥«ï ¡«®ª 
JP x1E43 ;§ ¯¨áì ᥪâ®à  á ®¯¨á â¥«¥¬ ¨ ¢®§¢à â
;‚­¨¬ ­¨¥!!! <20>®á«¥ § ¯¨á¨ ᥪâ®à  ­ ¤® á­®¢  ®âªà뢠âì ¯®â®ª, á¢ï§ ­­ë© á ä ©«®¬ ¤ ­­ëå, â ª ª ª ¯à¨ ¤¨áª®¢®© ®è¨¡ª¥ ®âªà뢠¥âáï ¯®â®ª 0.
;€¤à¥á #2707. <20>¥ç âì áâப¨. ‚ HL ¯®¬¥áâ¨â¥ ¥¥ ­ ç «®. <20>®á«¥¤­¨© ᨬ¢®« ¤®«¦¥­ ¡ëâì «¨¡® CHR$ 0, «¨¡® á ¯®¤­ïâë¬ á¥¤ì¬ë¬ ¡¨â®¬.
x2707 LD A,(HL) ;¡¥à¥¬ ᨬ¢®« ¨§ áâப¨
OR A ;íâ® CHR$ 0?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
AND #7F ;á¡à®á ¡¨â  7
RST #10 ;¯¥ç âì ᨬ¢®« 
BIT 7,(HL) ;¡¨â 7 ãáâ ­®¢«¥­?
RET NZ ;¥á«¨ ¤ , â® ¢®§¢à â
INC HL ;¡¥à¥¬  ¤à¥á á«¥¤ãî饣® ᨬ¢®« 
JR x2707 ;¯®¢â®à
;€¤à¥á #2713. ‘à ¢­¥­¨¥ ®¡« á⥩ ¯ ¬ïâ¨. ‚ HL ¨ DE ¯®¬¥áâ¨â¥ ­ ç «  áà ¢­¨¢ ¥¬ëå ®¡« á⥩,   ¢ B - ¨å ¤«¨­ã. <20>ਠ­¥á®¢¯ ¤¥­¨¨ ä« £ Z á¡à®è¥­, ¨­ ç¥ ¢ª«î祭.
x2713 LD A,(DE) ;áà ¢­¥­¨¥ ¡ ©â®¢ ¨§ ®¡« á⥩
CP (HL)
RET NZ ;¥á«¨ ®­¨ ­¥ ᮢ¯ «¨, â® ¢®§¢à â
INC DE ;á«¥¤ãî騥 ¡ ©âë
INC HL
DJNZ x2713 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #271B. Ž¡à ¡®âª  ®è¨¡ª¨ NO DISC ¡¥§ ãáâ ­®¢ª¨ TAPE LOADING ERROR.
x271B LD HL,x27FC ; ¤à¥á á®®¡é¥­¨ï NO DISC
LD A,6 ;ª®¤ ®è¨¡ª¨ - 6
JP x1C4A ;®¡à ¡®âª  ®è¨¡ª¨
;€¤à¥á #2723. Ž¡à ¡®âª  ®è¨¡ª¨ DIRECTORY FULL.
x2723 LD HL,x27ED ; ¤à¥á á®®¡é¥­¨ï DIRECTORY FULL
LD A,4 ;ª®¤ ®è¨¡ª¨ - 4
JP x1C4A ;®¡à ¡®âª  ®è¨¡ª¨
;€¤à¥á #272B. “áâ ­®¢ª  ª®¤  ®è¨¡ª¨ TAPE LOADING ERROR ¤«ï <20>‡“ ¡¥©á¨ª .
x272B LD A,#1A ;ª®¤ ®è¨¡ª¨ TAPE LOADING ERROR
JR x2731 ;ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
;€¤à¥á #272F. “áâ ­®¢ª  ª®¤  ®è¨¡ª¨ INVALID I/O DEVICE ¤«ï <20>‡“ ¡¥©á¨ª . ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#2731 (ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨ ¤«ï ¯§ã ¡¥©á¨ª ; ª®¤ ®è¨¡ª¨ ¯®¬¥áâ¨â¥ ¢ A).
x272F LD A,#12 ;ª®¤ ®è¨¡ª¨ INVALID I/O DEVICE
x2731 LD (#5C3A),A ;ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
RET ;¢®§¢à â
;€¤à¥á #2735. “áâ ­®¢ª  ª®¤  ®è¨¡ª¨ OUT OF MEMORY ¤«ï <20>‡“ ¡¥©á¨ª .
x2735 LD A,3 ;ª®¤ ®è¨¡ª¨ OUT IF RAM
JR x2731 ;ãáâ ­®¢ª  ª®¤  ®è¨¡ª¨
;€¤à¥á #2739. <20>஢¥àª  ¤®à®¦ª¨. ‚ ॣ¨áâॠD § ¤ ©â¥ 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨. <20>® ®ª®­ç ­¨¨ ¢ #5CD6 ¯®«ãç¨â¥ ç¨á«® ¡¨âëå ᥪâ®à®¢ ­  ¤®à®¦ª¥.
x2739 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 x3D9A
LD A,(#5CCD) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à  ¤® ®¯¥à æ¨¨
AND #80 ;¤¨áª®¢®¤ ¡ë« £®â®¢?
CALL NZ,x3EA0 ;¥á«¨ ­¥â, â® § ¤¥à¦ª  ¢ 3135098 ⠪⮢
POP DE ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ¤®à®¦ª¨
CALL x207D ;¯à®¢¥àª  ¤®à®¦ª¨
LD A,(#5CD6) ;¡¨âëå ᥪâ®à®¢ ­¥â?
OR A
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD A,7 ;¤¨áª®¢ ï ®è¨¡ª 
LD (#5D0F),A
RET ;¢®§¢à â
;€¤à¥á #2766. ‘®®¡é¥­¨ï TR-DOS.
x2766 DB "O.K."
DB 0
x276B DB "Verify Error."
DB #8D
x2779 DB "BACKUP DISK"
DB #8D
x2785 DB "Insert Destination disk"
DB #D
DB "then press Y"
DB 0
x27AA DB "Insert Source disk then press Y"
DB 0
x27CA DB "*BREAK*"
DB #8D
x27D2 DB "Out of RAM"
DB #8D
x27DD DB "Array not found"
DB #8D
x27ED DB "Directory full"
DB #8D
x27FC DB "No disk"
DB #8D
x2804 DB "Stream opened"
DB #8D
x2812 DB "Not disk file"
DB #8D
x2820 DB "File exists"
DB #D
DB "Over write?(Y/N"
x283B XOR C
;€¤à¥á #283C. ‚맮¢ ¯®¤¯à®£à ¬¬ TR-DOS ¨§ ¬ è¨­­®£® ª®¤ . ‚室: ¢ ॣ¨áâॠC ª®¤ ª®¬ ­¤ë, ®áâ «ì­®¥ ᮣ« á­® ®¯¨á ­¨î. <20>  ¢ë室¥ ¢ ॣ¨áâॠBC ª®¤ ®è¨¡ª¨.
x283C PUSH AF ;á®åà ­¥­¨¥ ॣ¨áâ஢
PUSH BC
LD (#5D04),DE
LD (#5D02),HL
CALL x20F1 ;¥á«¨ ­ã¦­®, â® ¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
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 x021D ;ãáâ ­®¢ª   ¤à¥á  ¢®§¢à â  ¯® ®è¨¡ª¥ ¨§ ¡¥©á¨ª 
LD HL,x288C ;¡¥à¥¬  ¤à¥á ­ ç «  â ¡«¨æë ª®¬ ­¤
x2869 LD A,(HL) ;¡¥à¥¬ ª®¤ ª®¬ ­¤ë
CP C ;®­ ᮢ¯ « á âॡ㥬ë¬?
JR NZ,x287F ;¥á«¨ ­¥â, â® ¡¥à¥¬ ª®¤ á«¥¤ãî饩 ª®¬ ­¤ë
POP AF ;¢®ááâ ­®¢«¥­¨¥ AF
INC HL ;¡¥à¥¬  ¤à¥á, ¯® ª®â®à®¬ã ­ å®¤¨âáï  ¤à¥á ¯®¤¯à®£à ¬¬ë
LD E,(HL) ;¡¥à¥¬  ¤à¥á ¯®¤¯à®£à ¬¬ë
INC HL
LD D,(HL)
LD HL,x01D3 ;¡¥à¥¬  ¤à¥á ¯®¤¯à®£à ¬¬ë § ¢¥à襭¨ï
PUSH HL ;ª« ¤¥¬ ¥£® ­  á⥪
PUSH DE ;ª« ¤¥¬ ­  á⥪  ¤à¥á ¯®¤¯à®£à ¬¬ë
LD HL,(#5D02) ;¢®ááâ ­®¢«¥­¨¥ HL ¨ DE
LD DE,(#5D04)
RET ;¯¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥
x287F CP #FF ;¤®á⨣­ãâ ª®­¥æ â ¡«¨æë?
JR NZ,x2887 ;¥á«¨ ­¥â, â® ¡¥à¥¬  ¤à¥á ­®¬¥à  á«¥¤ãî饩 ¯®¤¯à®£à ¬¬ë
POP AF ;á­ï⨥ AF á® á⥪  (í⮣® ¬®¦­® ¡ë«® ­¥ ¤¥« âì)
JP x01D3 ;¯¥à¥å®¤ ­  ¯®¤¯à®£à ¬¬ã § ¢¥à襭¨ï
x2887 INC HL ;¯à®¯ã᪠¤¢ãå ¡ ©â®¢  ¤à¥á  ¯®¤¯à®£à ¬¬ë
INC HL
INC HL
JR x2869 ;¯®¢â®à
x288C DB 0 ;â ¡«¨æ  ­®¬¥à®¢ ¨  ¤à¥á®¢ ¯®¤¯à®£à ¬¬
DW x08A7 ;new ¡ë«® x3D98
DB 1
DW x3DCB
DB 2
DW x3E63
DB 3
DW x3F02
DB 4
DW x3F06
DB 5
DW x1E3D
DB 6
DW x1E4D
DB 7
DW x28D8
DB 8
DW x165C
DB 9
DW x1664
DB #A
DW x1CF0
DB #B
DW x28FB
DB #C
DW x28F2
DB #D
DW x01D3
DB #E
DW x290F
DB #F
DW x01D3
DB #10
DW x01D3
DB #11
DW x01D3
DB #12
DW x2926
DB #13
DW x28E0
DB #14
DW x28E3
DB #15
DW x2739
DB #16
DW x1FEB
DB #17
DW x1FF6
DB #18
DW x0405
DB #FF ;¯à¨§­ ª ª®­æ  â ¡«¨æë
;€¤à¥á #28D8. ‚ë¤ ç  ª â «®£  ¤¨áª  á ­ áâனª®©. <20>  ¢å®¤¥ ¢ A § ¤ ©â¥ ­®¬¥à ¯®â®ª , ¢ ª®â®àë© ¡ã¤¥â¥ ¢ë¢®¤¨âì ª â «®£.
x28D8 PUSH AF ;á®åà ­¥­¨¥ ­®¬¥à  ¯®â®ª 
CALL x0405 ;­ áâனª  ­  ¤¨áª
POP AF ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ¯®â®ª 
JP x0479 ;¢ë¢®¤ ª â «®£ 
;€¤à¥á #28E0. <20>¥à¥¬¥é¥­¨¥ ®¯¨á â¥«ï ä ©«  ¨§ ¯ ¬ï⨠¢ #5CDD. ‚ HL § ¤ ©â¥  ¤à¥á ®¯¨á â¥«ï ä ©«  ¢ ¯ ¬ïâ¨.
x28E0 XOR A ;¯¥à¥¬¥é ¥¬ ¨§ (HL) ¢ #5CDD
JR x28E5 ;¯¥à¥¬¥é¥­¨¥ ®¯¨á â¥«ï
;€¤à¥á #28E3. <20>¥à¥¬¥é¥­¨¥ ®¯¨á â¥«ï ä ©«  ¨§ #5CDD ¢ ¯ ¬ïâì ¯®  ¤à¥áã, ãáâ ­®¢«¥­­®¬ã ¢ HL. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #28E5 (¯¥à¥¬¥é¥­¨¥ ®¯¨á â¥«ï ä ©« , ¢ HL -  ¤à¥á ®¯¨á â¥«ï ¢ ¯ ¬ïâ¨, ¢ A - ­ ¯à ¢«¥­¨¥ ¯¥à¥¬¥é¥­¨ï: 0 - ¨§ ¯ ¬ïâ¨, ¨­ ç¥ - ¢ ¯ ¬ïâì).
x28E3 LD A,#FF ;¯¥à¥¬¥é ¥¬ ¢ ¯ ¬ïâì
x28E5 LD DE,#5CDD ;ãáâ ­®¢ª  ¢â®à®£®  ¤à¥á  ¤«ï LDIR
LD BC,#10 ;ãáâ ­®¢ª  ¤«¨­ë ®¯¨á â¥«ï
OR A ;ãáâ ­®¢ª  ­ ¯à ¢«¥­¨ï ¯¥à¥¬¥é¥­¨ï
JR Z,x28EF
EX DE,HL
x28EF LDIR ;¯¥à¥¬¥é¥­¨¥ ®¯¨á â¥«ï ä ©« 
RET ;¢®§¢à â
;€¤à¥á #28F2. ‡ ¯¨áì ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥. “áâ ­®¢¨â¥ #5CD1, #5CDD ¨ #5CE5.
x28F2 CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x1AC4 ;¯à®¢¥àª  ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥
JP x1B27 ;§ ¯¨áì ¯à®£à ¬¬ë
;€¤à¥á #28FB. ‡ ¯¨áì ä ©« . ˆ¬ï á à áè¨à¥­¨¥¬ ¯®¬¥áâ¨â¥ ¢ #5CDD, ¤«¨­ã ¢ DE, ­ ç «® ¢ HL.
x28FB LD (#5CD7),HL ;ãáâ ­®¢ª  ­ ç « 
LD (#5CD9),DE ;ãáâ ­®¢ª  ¤¥©á⢨⥫쭮© ¤«¨­ë ä ©« 
LD (#5CDB),DE ;ãáâ ­®¢ª  ¤«¨­ë ä ©«  ¤«ï ª â «®£ 
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x1AC4 ;¯à®¢¥àª  ­ «¨ç¨ï ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥
JP x1B53 ;§ ¯¨áì ä ©« 
;€¤à¥á #290F. ‡ £à㧪 /¢¥à¨ä¨ª æ¨ï ä ©«    â ª¦¥ ç⥭¨¥/§ ¯¨áì ᥪâ®à  ä ©« . “áâ ­®¢¨â¥ #5CDD, #5CE5, #5CD7 (⮫쪮 ¤«ï ç⥭¨ï/§ ¯¨á¨ ᥪâ®à ) ¨ #5CF9; ¢ A ¯®¬¥áâ¨â¥ ä« £ § £à㧪¨ ᮣ« á­® ®¯¨á ­¨î ª®¬ ­¤ë #E ¢ HL ¨ DE - áâ àâ ¨ ¤«¨­ã (¢ § ¢¨á¨¬®á⨠®â  ªªã¬ã«ïâ®à ).
x290F OR A
LD (#5CD6),A ;ãáâ ­®¢ª  ä« £  § £à㧪¨
LD (#5CD9),HL ;ãáâ ­®¢ª   ¤à¥á  § £à㧪¨
LD (#5CDB),DE ;ãáâ ­®¢ª  ¤«¨­ë § £à㧪¨
CALL x1CB3 ;¯®¨áª ä ©« 
CALL x18A4 ;¥á«¨ ä ©« ­ ©¤¥­, â® ç⥭¨¥ ¥£® ®¯¨á â¥«ï
CALL x18AB ;®¡à ¡®âª  ¯ à ¬¥â஢ § £à㧪¨
JP x1921 ;§ £à㧪  ä ©« 
;€¤à¥á #2926. ‘â¨à ­¨¥ ä ©« . “áâ ­®¢¨â¥ #5CDD ¨ #5CE5. <20>  ¢ë室¥ ¡ã¤ãâ ãáâ ­®¢«¥­ë #5D07 ¨ #5D08.
x2926 CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x1CB3 ;¯®¨áª ä ©« 
JP x07A0 ;áâ¨à ­¨¥ ¥£®
;€¤à¥á #292F. <20>஢¥àª  ­ «¨ç¨ï ä ©« . ˆ¬ï ¯®¬¥áâ¨â¥ ­  á⥪ ª «ìªã«ïâ®à  ¨ ãáâ ­®¢¨â¥ #5D06. …᫨ ä ©« ­ ©¤¥­, â® ¢ ॣ. C ¨ ¢ #5D1E ¨ ¡ã¤¥â ¢ª«î祭 ä« £ Z, ¨­ ç¥ ä« £ Z ¡ã¤¥â á¡à®è¥­,   ¢ C ¡ã¤¥â #FF.
x292F CALL x1C57 ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
CALL x0405 ;­ áâனª  ­  ¤¨áª
JP x1CB3 ;¯®¨áª ä ©«  ¨ ¢®§¢à â
;€¤à¥á #2938. <20>¥ç âì ¨¬¥­¨ ä ©«  á à áè¨à¥­¨¥¬. ‚ HL ãáâ ­®¢¨â¥  ¤à¥á ¨¬¥­¨ á à áè¨à¥­¨¥¬.
x2938 PUSH BC ;á®åà ­¥­¨¥ BC
LD B,8 ;¢ ¨¬¥­¨ ä ©«  8 ᨬ¢®«®¢
x293B LD A,(HL) ;¡¥à¥¬ ᨬ¢®« ¨§ ¨¬¥­¨ ä ©« 
RST #10 ;¯¥ç âì ¥£®
INC HL ; ¤à¥á á«¥¤ãî饣® ᨬ¢®« 
DJNZ x293B ;¯®¢â®à ¤® ª®­æ 
LD A,"<" ;¯¥ç âì "<"
RST #10
LD A,(HL) ;¯¥ç âì à áè¨à¥­¨ï
RST #10
LD A,">" ;¯¥ç âì ">"
RST #10
POP BC ;¢®ááâ ­®¢«¥­¨¥ BC
RET ;¢®§¢à â
;€¤à¥á #294A. ‘®§¤ ­¨¥ ¡ãä¥à , ¥á«¨ ¥£® ­¥â. “áâ ­®¢¨â¥ #5D0C.
x294A PUSH HL ;á®åà ­¥­¨¥ ॣ¨áâ஢
PUSH DE
PUSH BC
PUSH AF
LD HL,#5D0C ;¡ãä¥à ¥áâì?
LD A,(HL)
OR A
JR Z,x2992 ;¥á«¨ ¤ , â® ¢®ááâ ­®¢«¥­¨¥ ॣ¨áâ஢ ¨ ¢®§¢à â
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  ä« £  ­ «¨ç¨ï ¡ãä¥à 
LD BC,#101 ;¤«¨­  ¡ãä¥à 
PUSH BC ;á®åà ­¥­¨¥ ¥¥
CALL x19FD ;¯à®¢¥àª  ¢®§¬®¦­®á⨠¢ë¤¥«¥­¨ï ¡ãä¥à 
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¤«¨­ë ¡ãä¥à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ¥£® ä« £ 
LD (HL),0 ;¡ãä¥à ¥áâì
LD HL,#5D25 ;­ ç «® ¡ãä¥à 
CALL x1E32 ;¢ë¤¥«¥­¨¥ ¡ãä¥à 
LD HL,(#5D11) ;ª®¬ ­¤­ ï áâப  ¯¥à¥¬¥á⨫ áì ­  #101 ¡ ©â®¢
LD BC,#101
ADD HL,BC
JR x298F ;ãáâ ­®¢ª  ­®¢®£®  ¤à¥á  ª®¬ ­¤­®© áâப¨ ¨ ¢®§¢à â
;€¤à¥á #2970. “¤ «¥­¨¥ ¡ãä¥à , ¥á«¨ ®­ ¥áâì. “áâ ­®¢¨â¥ #5D0C. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢ #298F ¨ #2992 ¯®¤¯à®£à ¬¬®© #294A.
x2970 PUSH HL ;á®åà ­¥­¨¥ ॣ¨áâ஢
PUSH DE
PUSH BC
PUSH AF
LD HL,#5D0C ;¡ãä¥à  ­¥â?
LD A,(HL)
OR A
JR NZ,x2992 ;¥á«¨ ¤ , â® ¢®§¢à â
LD (HL),#FF ;¡ãä¥à  ­¥â
LD HL,#5D25 ;­ ç «® ¡ãä¥à 
LD BC,#101 ;¥£® ¤«¨­ 
CALL x1E2E ;㤠«¥­¨¥ ®¡« á⨠¯ ¬ïâ¨
OR A ;ª®¬ ­¤­ ï áâப  ¯¥à¥¬¥á⨫ áì ­  #101 ¡ ©â®¢
LD BC,#101 ;­ ¤® ¯®¬¥­ïâì ¥¥  ¤à¥á
LD HL,(#5D11)
SBC HL,BC
x298F LD (#5D11),HL
x2992 POP AF ;¢®ááâ ­®¢«¥­¨¥ ॣ¨áâ஢
POP BC
POP DE
POP HL
RET ;¢®§¢à â
;€¤à¥á #2997. ‚믮«­¥­¨¥ ª®¬ ­¤ë "40". “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#2998 (¢ë¯®«­¥­¨¥ ª®¬ ­¤ë ãáâ ­®¢ª¨ ⨯  ¤¨áª®¢®¤ ; ãáâ ­®¢¨â¥ ¢á¥ ¤«ï #2997 ¯«îá ¢ A ⨯ ¤¨áª®¢®¤ ).
x2997 XOR A ;¤¨áª®¢®¤ 40-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©
;Žè¨¡ª !!! ‚®-¯¥à¢ëå, ¯®ç¥¬ã ¤¨áª®¢®¤ ®¤­®áâ®à®­­¨©?; ¢®-¢â®àëå, ­ ¤® ¯à®¢¥àïâì ¢®§¬®¦­®áâì ¨á¯®«ì§®¢ ­¨ï ¤¨áª®¢®¤  ¢ âॡ㥬®¬ ०¨¬¥.
x2998 LD (#5CD7),A ;á®åà ­¥­¨¥ ⨯  ¤¨áª®¢®¤ 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x042B ;¯à®¢¥àª  ¢â®à®£® ᨬ¢®«  áâப¨
JP Z,x1D1A ;¥á«¨ íâ® ENTER, â® *ERROR*
CALL x3E11 ;¡¥à¥¬  ¤à¥á ï祩ª¨ á ⨯®¬ ¤¨áª®¢®¤ 
LD A,(#5CD7) ;ãáâ ­®¢ª  ⨯  ¤¨áª®¢®¤ 
LD (HL),A
JP x03E1 ;á®®¡é¥­¨¥ O.K.
;€¤à¥á #29AE. ‚믮«­¥­¨¥ ª®¬ ­¤ë "80". “áâ ­®¢¨â¥ #5D11 ¨ #5C3B.
x29AE LD A,#80 ;¤¨áª®¢®¤ 80-¤®à®¦¥ç­ë© ®¤­®áâ®à®­­¨©
;Žè¨¡ª !!! ‚®-¯¥à¢ëå, ¯®ç¥¬ã ¤¨áª®¢®¤ ®¤­®áâ®à®­­¨©?; ¢®-¢â®àëå, ­ ¤® ¯à®¢¥àïâì ¢®§¬®¦­®áâì ¨á¯®«ì§®¢ ­¨ï ¤¨áª®¢®¤  ¢ âॡ㥬®¬ ०¨¬¥.
JR x2998 ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #29B2. ’¥ªáâë á®®¡é¥­¨© TR-DOS.
x29B2 DB #D
DB "*ERROR*"
DB #8D
x29BB DB #D
DB "No space"
DB #8D
x29C5 DB #D
DB "File exists"
DB #8D
x29D2 DB " Free"
DB #8D
x29D8 DB #D
DB "Read Onl"
DB #F9
x29E2 DB #D
DB "Disc Erro"
DB #F2
x29ED DB #D
DB "Rec. O/"
DB #C6
x29F7 DB "Title:"
DB #A0
x29FE DB #D
DB "Retry,Abort,Ignore?"
DB 0
x2A13 DB #D
DB "Trk"
DB #A0
x2A18 DB " sec"
DB #A0
x2A1D DB " Del. File"
DB #8D
x2A28 DB #D
DB "No"
x2A2B DB " File(s)"
DB #8D,#00
;€¤à¥á #2A35. <20>¥à¥­®á ¯®¤¯à®£à ¬¬ë ®¯à¥¤¥«¥­¨¥ ⥪ã饣® <20>‡“ ¯®  ¤à¥áã #4080.
x2A35 LD HL,x2A41 ; ¤à¥á ¯®¤¯à®£à ¬¬ë ®¯à¥¤¥«¥­¨¥ ⥪ã饣® <20>‡“
LD DE,#4080 ;¥¥  ¤à¥á ¢ Ž‡“
LD BC,#20 ;¥¥ ¤«¨­  - #20 ¡ ©â 
LDIR ;¯¥à¥­®á ¯®¤¯à®£à ¬¬ë
RET ;¢®§¢à â
;€¤à¥á #2A41. <20>®¤¯à®£à ¬¬  ®¯à¥¤¥«¥­¨ï ⥪ã饣® <20>‡“. “áâ ­ ¢«¨¢ ¥â #5C01 ¨ ¯®¤ª«îç ¥â <20>‡“ 48-£® ¡¥©á¨ª . „«ï à ¡®âë ¯®¤¯à®£à ¬¬  ¤®«¦­  ¡ëâì ¯¥à¥¬¥é¥­  ¢ «î¡®¥ ¬¥áâ® Ž‡“. Œ®¦­® ¨á¯®«ì§®¢ âì â ª¦¥ á  ¤à¥á :
;#2A53 ¤«ï ¯àאַ£® ¢ë¢®¤  ¢ «î¡®© ¯®àâ.
x2A41 LD A,(#3B5) ;¡¥à¥¬ ¡ ©â ¨§ <20>‡“
CP #F3 ;íâ® #F3?
LD A,#10 ;¥á«¨ ¤ , â® íâ® <20>‡“ 48-£® ¡¥©á¨ª 
JR Z,x2A4B
XOR A ;¨­ ç¥ íâ® <20>‡“ 128-£® ¡¥©á¨ª 
x2A4B LD (#5C01),A ;ãáâ ­®¢ª  ­®¬¥à  <20>‡“
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨ á¨á⥬ë
LD A,#10 ;<3B>‡“ 48-£® ¡¥©á¨ª 
x2A53 OUT (C),A ;ãáâ ­®¢ª  <20>‡“
RET ;¢®§¢à â
;€¤à¥á #2A56. ‡ ¯¨áì ¯ ¬ï⨠­  ¤¨áª.
x2A56 jp x0807 ;new
; PUSH AF ;á®åà ­¥­¨¥ ॣ¨áâ஢
; PUSH BC
; PUSH DE
x2A59 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 ;á®åà ­¥­¨¥ ¥£®
;Žè¨¡ª !!! <20>¥«ì§ï ¯®àâ¨âì ¯ ¬ïâì.
CALL x2F65 ;¢®ááâ ­®¢«¥­¨¥
CALL x3EA0 ;§ ¤¥à¦ª  ¢ 3135098 ⠪⮢
CALL x3EA0 ;¥é¥ à §
LD DE,#A ;ᥪâ®à #A
LD HL,#4000 ;§ ¯¨á뢠âì á  ¤à¥á  #4000
PUSH HL ;á®åà ­¥­¨¥ ç¨á«  #4000
CALL x2D73 ;§ ¯¨áì ᥪâ®à 
LD HL,#4100 ;§ ¯¨á뢠âì á  ¤à¥á  #4100
LD DE,#B ;ᥪâ®à #B
CALL x2D73 ;§ ¯¨áì ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥ ç¨á«  #4000
PUSH HL ;¨ á­®¢  á®åà ­¥­¨¥
LD DE,8 ;ᥪâ®à 8
CALL x2F1B ;§ £à㧪  ᥪâ®à 
LD HL,#40E3 ;¡¥à¥¬ ⨯ ¤¨áª 
LD A,(HL)
LD (#5C00),A ;á®å࠭塞 ¥£®
;Žè¨¡ª !!! Ž¯ïâì ¯®àç  ¯ ¬ïâ¨.
INC HL ;¡¥à¥¬ ª®«¨ç¥á⢮ ä ©«®¢ ­  ¤¨áª¥
LD A,(HL)
INC (HL) ;§ ¯¨á «¨ ¥é¥ 1 ä ©«
;‚­¨¬ ­¨¥!!! <20>¥ ¯à®¢¥àï¥âáï ­ «¨ç¨¥ ᢮¡®¤­®£® ¬¥áâ  ¢ ª â «®£¥ ¤¨áª .
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 x2D73 ;§ ¯¨áì ᥪâ®à 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  #4000
LD DE,(#40E1) ;¡¥à¥¬  ¤à¥á ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
PUSH DE ;á®å࠭塞 ¥£®
LD DE,#A ;ᥪâ®à #A
CALL x2F1B ;§ £à㧪  ᥪâ®à 
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
CALL x2D4C ;§ ¯¨áì ᥪâ®à®¢
PUSH DE ;á®åà ­¥­¨¥ ­®¢®£®  ¤à¥á  ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD A,#3C ;¢ë¡®à ¤¨áª®¢®¤  A ¨ ¢¥àå­¥© áâ®à®­ë ¤¨áª 
OUT (#FF),A
CALL x2F65 ;¢®ááâ ­®¢«¥­¨¥
LD HL,#4000 ;£à㧨âì á  ¤à¥á  #4000
LD DE,8 ;ᥪâ®à 8
LD B,1
CALL x2F1B ;§ £à㧪  ᥪâ®à 
POP DE ;¢®ááâ ­®¢«¥­¨¥ ­®¢®£®  ¤à¥á  ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD HL,(#40E1) ;¡¥à¥¬ áâ àë©  ¤à¥á ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD (#40E1),DE ;ãáâ ­®¢ª  ­®¢®£®  ¤à¥á 
PUSH HL ;á®åà ­¥­¨¥ áâ à®£®  ¤à¥á 
LD HL,#4000 ;§ ¯¨á뢠âì á  ¤à¥á  #4000
LD DE,8 ;ᥪâ®à 8
LD B,1
CALL x2D73 ;§ ¯¨áì ᥪâ®à 
LD A,(#40E4) ;¡¥à¥¬ ­®¬¥à § ¯¨á ­­®£® ä ©« 
DEC A
CALL x2CE5 ;§ £à㧪  ᥪâ®à  á ¥£® ®¯¨á â¥«¥¬
LD (HL),"@" ;¨¬ï ä ©«  - "@"
INC HL
LD B,7 ;7 ¯à®¡¥«®¢
x2B09 LD (HL)," "
INC HL
DJNZ x2B09
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 x2D73 ;§ ¯¨áì ᥪâ®à 
LD HL,0 ;á®åà ­¥­¨¥ SP
ADD HL,SP
LD (#4140),HL
LD SP,#41FF ;¯¥à¥­®á á⥪  ¢ íªà ­
CALL x2A35 ;¯¥à¥­®á ¢ íªà ­ ¯®¤¯à®£à ¬¬ë ®¯à¥¤¥«¥­¨ï ⥪ã饣® <20>‡“
LD HL,#C000 ; ¤à¥á áâà ­¨æ Ž‡“
XOR A ;­ ç «® ¢ëç¨á«¥­¨ï ª®­â஫쭮© á㬬ë áâà ­¨æë
x2B3F ADD A,(HL) ;¯à¨¡ ¢«¥­¨¥ ª á㬬¥ ®ç¥à¥¤­®£® ¡ ©â 
INC HL ; ¤à¥á á«¥¤ãî饣® ¡ ©â 
LD B,A ;á®åà ­¥­¨¥ ª®­â஫쭮© á㬬ë
LD A,H ;¡¥à¥¬ áâ à訩 ¡ ©â ⥪ã饣®  ¤à¥á  ¢ áâà ­¨æ¥
OR A ;íâ® 0?
LD A,B ;¢®ááâ ­®¢«¥­¨¥ ª®­â஫쭮© á㬬ë
JR NZ,x2B3F ;¥á«¨ ­¥â, â® ¯®¢â®à
LD HL,#4100 ;á®åà ­¥­¨¥ ª®­â஫쭮© á㬬ë ⥪ã饩
LD (HL),A ;áâà ­¨æë
PUSH HL ;á®åà ­¥­¨¥ ¥¥  ¤à¥á 
LD HL,x2B58 ; ¤à¥á ¢®§¢à â  - #2B58
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,x3D2F ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
DI ;§ ¯à¥â ¯à¥à뢠­¨©
JP #4080 ;®¯à¥¤¥«¥­¨¥ ⥪ã饣® <20>‡“
x2B58 POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ª®­â஫쭮© á㬬ë ⥪ã饩 áâà ­¨æë
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨ á¨á⥬ë
LD A,#AA ;ª®­â஫ì­ë© ¡ ©â
LD (#4130),A ;¯®¬¥é¥­¨¥ ¥£® ¢ íªà ­
LD D,5 ;¡ ­ª Ž‡“ 5
LD A,(#5C01) ;¢ë¡®à <20>‡“
OR D
LD D,A
OUT (C),D ;¢ë¡®à ¡ ­ª  ¯ ¬ïâ¨
LD A,(#C130) ;¡¥à¥¬  ¤à¥á ª®­â஫쭮£® ¡ ©â 
CP #AA ;íâ® #AA?
JP NZ,x2C1B ;¥á«¨ ­¥â, â® ¢ë室
LD A,D ;Ž‡“ 0
AND #F8
LD D,A
INC HL ; ¤à¥á ¯¥à¥¬¥­­®© á ª®¤®¬ ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
LD B,8 ;¢á¥£® 8 áâà ­¨æ
x2B79 LD (HL),D ;ãáâ ­®¢ª  ¡ ­ª 
OUT (C),D ;¢ë¡®à ¡ ­ª 
XOR A ;­ ç «® ¢ëç¨á«¥­¨ï ª®­â஫쭮© á㬬ë áâà ­¨æë
LD HL,#C000 ; ¤à¥á áâà ­¨æ Ž‡“
x2B80 ADD A,(HL) ;¯à¨¡ ¢«¥­¨¥ ª á㬬¥ ®ç¥à¥¤­®£® ¡ ©â 
INC HL ; ¤à¥á á«¥¤ãî饣® ¡ ©â 
LD E,A ;á®åà ­¥­¨¥ ª®­â஫쭮© á㬬ë
LD A,H ;¡¥à¥¬ áâ à訩 ¡ ©â ⥪ã饣®  ¤à¥á  ¢ áâà ­¨æ¥
OR A ;íâ® 0?
LD A,E ;¢®ááâ ­®¢«¥­¨¥ ª®­â஫쭮© á㬬ë
JR NZ,x2B80 ;¥á«¨ ­¥â, â® ¯®¢â®à
LD HL,#4100 ; ¤à¥á ¯¥à¥¬¥­­®© á ª®­â஫쭮© á㬬®© ⥪ã饩 áâà ­¨æë
CP (HL) ;á㬬ë ᮢ¯ ¤ îâ?
INC HL ; ¤à¥á ¯¥à¥¬¥­­®© á ª®¤®¬ ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
JR Z,x2B93 ;¥á«¨ ¤ , â® ¢á¥
INC D ;á«¥¤ãîé ï áâà ­¨æ  Ž‡“
DJNZ x2B79 ;¯®¢â®à ¤® ª®­æ 
DEC D ;¡¥à¥¬ ª®¤ ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
x2B93 LD B,8 ;¢á¥£® 8 áâà ­¨æ
x2B95 PUSH BC ;á®åà ­¥­¨¥ ç¨á«  áâà ­¨æ
CALL x2C37 ;§ ¯¨áì áâà ­¨æë
POP BC ;¢®ááâ ­®¢«¥­¨¥ ç¨á«  áâà ­¨æ
DJNZ x2B95 ;¯®¢â®à ¤® ª®­æ 
LD C,0 ;¤®à®¦ª  0
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x2D2A ;§ £à㧪  ᥪâ®à  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 x2D1E ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
LD A,"8" ;¢®á쬮© ä ©«
LD (#4111),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 x2F65 ;¢®ááâ ­®¢«¥­¨¥
LD C,D ;¡¥à¥¬ ­®¬¥à ¤®à®¦ª¨
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
LD HL,#4100 ;§ ¯¨á뢠âì á  ¤à¥á  #4100
LD B,1 ;1 ᥪâ®à
CALL x2D58 ;§ ¯¨áì ᥪâ®à 
LD (#40E1),DE ;ãáâ ­®¢ª  ­®¢®£®  ¤à¥á  ᢮¡®¤­®£® ¬¥áâ  ­  ¤¨áª¥
LD C,0 ;¤®à®¦ª  0
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x2D34 ;§ ¯¨áì ᥪâ®à  8 á  ¤à¥á  #4000
LD A,(#4102) ;¡¥à¥¬ ­®¬¥à § ¯¨á ­­®£® ä ©« 
CALL x2CE5 ;§ £à㧪  ᥪâ®à  á ¥£® ®¯¨á â¥«¥¬
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 x2D73 ;§ ¯¨áì ᥪâ®à 
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨ á¨á⥬ë
LD A,(#4101) ;¡¥à¥¬ ª®¤ ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
OUT (C),A ;ãáâ ­®¢ª  ¥£®
x2C1B LD HL,(#4140) ;¢®ááâ ­®¢«¥­¨¥ SP
LD SP,HL
LD HL,#4000 ;§ £à㦠âì á  ¤à¥á  #4000
LD DE,#A ;ᥪâ®à #A
CALL x2F1B ;§ £à㧪  ᥪâ®à 
LD HL,#4100 ;§ £à㦠âì á  ¤à¥á  #4100
LD DE,#B ;ᥪâ®à #B
CALL x2F1B ;§ £à㧪  ᥪâ®à 
LD A,#3C ;¯®¬¥é¥­¨¥ ­  á⥪ ç¨á«  #3C
PUSH AF
JP x2EBC ;¢®ááâ ­®¢«¥­¨¥ ॣ¨áâ஢ ¨ ¢®§¢à â
;€¤à¥á #2C37. ‡ ¯¨áì áâà ­¨æë Ž‡“, ¥á«¨ ®­  ­¥ ¯ãáâ ï. <20>®¬¥áâ¨â¥ ¢ B ­®¬¥à áâà ­¨æë ¯«îá 1 ¨ ãáâ ­®¢¨â¥ #5C00 ¨ #4101.
x2C37 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,x2C55 ;¥á«¨ ¤ , â® ­¥ § ¯¨á뢠¥¬ áâà ­¨æã 5
LD A,B ;§ ¯¨á뢠¥¬ áâà ­¨æã 7?
CP 7
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
JR x2C59 ;§ ¯¨áì áâà ­¨æë
x2C55 LD A,B ;§ ¯¨á뢠¥¬ áâà ­¨æã 5?
CP 5
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
x2C59 CALL x2C5D ;§ ¯¨áì áâà ­¨æë
RET ;¢®§¢à â
;€¤à¥á #2C5D. ‡ ¯¨áì áâà ­¨æë Ž‡“, ¥á«¨ ®­  ­¥ ¯ãáâ ï. <20>®¬¥áâ¨â¥ ¢ B ­®¬¥à áâà ­¨æë ¨ ãáâ ­®¢¨â¥ #5C00 ¨ #4101.
x2C5D LD HL,#4101 ;¡¥à¥¬ ª®¤ ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
LD A,(HL)
AND #F8 ;®áâ ¢«ï¥¬ íªà ­ ¨ <20>‡“
LD C,A
LD A,B ;¢ëç¨á«¥­¨¥ ¡ ©â  ¤«ï ¯®àâ  ª®­ä¨£ãà æ¨¨
OR C ;á¨á⥬ë
PUSH BC ;á®åà ­¥­¨¥ ª®¤  ⥪ã饣® ¡ ­ª  ¯ ¬ïâ¨
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨
OUT (C),A ;ãáâ ­®¢ª  ¡ ­ª  ¯ ¬ïâ¨
POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®¤  ⥪ã饣® ¡ ­ª 
LD HL,#C000 ; ¤à¥á áâà ­¨æë
x2C70 LD A,(HL) ;¡¥à¥¬ ¡ ©â ¨§ áâà ­¨æë
OR A ;íâ® 0?
JR NZ,x2C7A ;¥á«¨ ­¥â, â® § ¯¨áì áâà ­¨æë
INC HL ;á«¥¤ãî騩 ¡ ©â
LD A,H ;ª®­¥æ áâà ­¨æë?
OR A
JR NZ,x2C70 ;¥á«¨ ­¥â, â® ¯®¢â®à
RET ;¢®§¢à â
x2C7A CALL x2C7E ;§ ¯¨áì áâà ­¨æë
RET ;¢®§¢à â
;€¤à¥á #2C7E. ‡ ¯¨áì áâà ­¨æë Ž‡“. “áâ ­®¢¨â¥ #4103 ¨ #5C00.
x2C7E LD C,0 ;¤®à®¦ª  0
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x2D2A ;§ £à㧪  ᥪâ®à  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 x2D1E ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
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 x2D3E ;§ ¯¨áì ä ©« 
LD (#40E1),DE ;ãáâ ­®¢ª  ­®¢®£®  ¤à¥á  ᢮¡®¤­®£® ¬¥áâ 
LD C,0 ;¤®à®¦ª  0
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x2D34 ;§ ¯¨áì ᥪâ®à  8 á  ¤à¥á  #4000
LD A,(#4102) ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©« 
CALL x2CE5 ;§ £à㧪  ᥪâ®à  á ®¯¨á â¥«¥¬ ä ©« 
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 x2D73 ;§ ¯¨áì ᥪâ®à 
RET ;¢®§¢à â
;€¤à¥á #2CE5. ‡ £à㧪  ¯®  ¤à¥áã #4000 <20>®¬¥à ä ©«  ¯®¬¥áâ¨â¥ ¢ A. <20>  ¢ë室¥ ¢ HL ¡ã¤¥â  ¤à¥á ®¯¨á â¥«ï ä ©« .
x2CE5 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 x2F1B ;§ £à㧪  ᥪâ®à 
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. <20>®¬¥é¥­¨¥ ¨¬¥­¨ ¨ à áè¨à¥­¨ï ä ©«  "@"CODE ¯®  ¤à¥áã #4110.
x2D09 LD HL,#4110 ; ¤à¥á ¨¬¥­¨ ä ©« 
LD B,9 ;¤«¨­  ®¡« á⨠- 9 ¡ ©â®¢
x2D0E LD (HL)," " ;®ç¨á⪠ ®¡« áâ¨
INC HL
DJNZ x2D0E
LD A,"@" ;¨¬ï ä ©«  - "@"
LD (#4110),A
LD A,"C" ;à áè¨à¥­¨¥ ä ©«  - "C"
LD (#4118),A
RET ;¢®§¢à â
;€¤à¥á #2D1E. “áâ ­®¢ª  ¨¬¥­¨ ä ©«  áâà ­¨æë. “áâ ­®¢¨â¥ #4103. ˆ¬ï ä ©«  ¡ã¤¥â ­ å®¤¨âìáï ¯®  ¤à¥áã #4110.
x2D1E CALL x2D09 ;ãáâ ­®¢ª  ¨¬¥­¨ £« ¢­®£® ä ©« 
LD A,(#4103) ;¡¥à¥¬ ­®¬¥à áâà ­¨æë
ADD A,"0" ;¯à¥®¡à §®¢ ­¨¥ ¥£® ¢ ᨬ¢®«
LD (#4111),A ;ãáâ ­®¢ª  ­®¬¥à  áâà ­¨æë
RET ;¢®§¢à â
;€¤à¥á #2D2A. ‡ £à㧪  ᥪâ®à  8 ¯®  ¤à¥áã #4000. ‘¯®§¨æ¨®­¨àã©â¥ £®«®¢ªã.
x2D2A LD HL,#4000 ;£à㧨âì ¯®  ¤à¥áã #4000
LD DE,8 ;ᥪâ®à 8
CALL x2F1B ;§ £à㧪  ᥪâ®à 
RET ;¢®§¢à â
;€¤à¥á #2D34. ‡ ¯¨áì ᥪâ®à  8 á  ¤à¥á  #4000. ‘¯®§¨æ¨®­¨àã©â¥ £®«®¢ªã.
x2D34 LD HL,#4000 ;§ ¯¨á뢠âì á  ¤à¥á  #4000
LD DE,8 ;ᥪâ®à 8
CALL x2D73 ;§ ¯¨áì ᥪâ®à 
RET ;¢®§¢à â
;€¤à¥á #2D3E. ‡ ¯¨áì #40-å ᥪâ®à®¢ á  ¤à¥á  #C000. “áâ ­®¢¨â¥ ¢á¥ ¤«ï #2D4C.
x2D3E CALL x2F65 ;¢®ááâ ­®¢«¥­¨¥
LD C,D ;¡¥à¥¬ ­®¬¥à ¯¥à¢®© ¤®à®¦ª¨
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
LD HL,#C000 ;§ ¯¨á뢠âì á  ¤à¥á  #C000
LD B,#40 ;#40 ᥪâ®à®¢
JR x2D58 ;§ ¯¨áì ᥪâ®à®¢ ¨ ¢®§¢à â
;€¤à¥á #2D4C. ‡ ¯¨áì #C0 ᥪâ®à®¢ á  ¤à¥á  #4000 ¤«ï ¯®¤¯à®£à ¬¬ë MAGIC. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ­  ¤¨áª¥ ¨ ãáâ ­®¢¨â¥ #5C00. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#2D58 (§ ¯¨áì ᥪâ®à®¢; ¢ HL ¯®¬¥áâ¨â¥  ¤à¥á ¢ ¯ ¬ïâ¨, ¢ DE -  ¤à¥á ­  ¤¨áª¥, ¢ B ? ª®«¨ç¥á⢮ ᥪâ®à®¢, ãáâ ­®¢¨â¥ #5C00 ¨ ᯮ§¨æ¨®­¨àã©â¥ £®«®¢ªã ­  ¯¥à¢ãî ¤®à®¦ªã).
x2D4C CALL x2F65 ;¢®ááâ ­®¢«¥­¨¥
LD C,D ;¡¥à¥¬ ­®¬¥à ¯¥à¢®© ¤®à®¦ª¨
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
LD HL,#4000 ;§ ¯¨á뢠âì á  ¤à¥á  #4000
LD B,#C0 ;#C0 ᥪâ®à®¢
x2D58 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
PUSH DE ;¨  ¤à¥á  ­  ¤¨áª¥
CALL x2D73 ;§ ¯¨áì ᥪâ®à 
LD DE,#100 ; ¤à¥á á«¥¤ãî饣® ᥪâ®à  ¢ ¯ ¬ïâ¨
ADD HL,DE
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ­  ¤¨áª¥
INC E ;á«¥¤ãî騩 ᥪâ®à
LD A,E ;ª®­¥æ ¤®à®¦ª¨?
CP #10
JR NZ,x2D6F ;¥á«¨ ¤ , â®
LD E,0 ;⥪ã騩 ᥪâ®à 0,
INC D ;á«¥¤ãîé ï ¤®à®¦ª ,
LD C,D
CALL x2F3A ;¯®§¨æ¨®­¨à®¢ ­¨¥
x2D6F POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
DJNZ x2D58 ;¯®¢â®à ¤® ª®­æ 
RET ;¢®§¢à â
;€¤à¥á #2D73. ‡ ¯¨áì ᥪâ®à  ¤«ï ª®¬ ­¤ë GO TO. ‚ HL ¯®¬¥áâ¨â¥  ¤à¥á § ¯¨á¨, ¢ E - ­®¬¥à ᥪâ®à .
x2D73 LD A,E ;ãáâ ­®¢ª  ­®¬¥à  ᥪâ®à 
INC A
OUT (#5F),A
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § ¯¨á¨
LD D,#14 ;20 ¯®¯ë⮪
PUSH DE ;á®åà ­¥­¨¥ ç¨á«  ¯®¯ë⮪
x2D7B DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD C,#7F ; ¤à¥á ॣ¨áâà  ¤ ­­ëå ª®­â஫«¥à 
LD A,#A0 ;ª®¬ ­¤  § ¯¨á¨ ᥪâ®à 
OUT (#1F),A
CALL x3FCA ;§ ¯¨áì ¡ ©â®¢
POP DE ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ¯®¯ë⮪
POP HL ;¨  ¤à¥á  § ¯¨á¨ ᥪâ®à 
IN A,(#1F) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à 
AND #7F ;¢á¥ ¢ ¯®à浪¥?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
DEC D ;á«¥¤ãîé ï ¯®¯ë⪠
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § ¯¨á¨ ᥪâ®à 
PUSH DE ;¨ ª®«¨ç¥á⢠ ¯®¯ë⮪
JR NZ,x2D7B ;¥á«¨ ¯®¯ë⪨ ­¥ ª®­ç¨«¨áì, â® ¯®¢â®à
;‚­¨¬ ­¨¥!!! ‘ ¬ ï ¡®«ìè ï ®è¨¡ª !!! „¨áª á § ª«¥¥­­®© ¯à®à¥§ìî § é¨âë ®â § ¯¨á¨ ¡ã¤¥â, ᪮॥ ¢á¥£®, ¨á¯®à祭. <20>®¤à®¡­®¥ ®¡êïá­¥­¨¥ ¢ë ­ ©¤¥â¥ ¢ ZX-P…‚ž #5F/4 ­  áâà ­¨æ¥ #23.
HALT ;®áâ ­®¢ª  ¯à®æ¥áá®à 
;€¤à¥á #2D92. ‡ £à㧪  ᥪâ®à®¢. “áâ ­®¢¨â¥ #5CE6, #5CEB ¨ #5CEA.
x2D92 LD HL,(#5CE6) ;¡¥à¥¬  ¤à¥á § £à㧪¨
LD DE,(#5CEB) ;¡¥à¥¬  ¤à¥á ᥪâ®à®¢ ­  ¤¨áª¥
LD A,(#5CEA) ;¡¥à¥¬ ª®«¨ç¥á⢮ ᥪâ®à®¢
LD B,A
CALL x1E3D ;§ £à㧪  ᥪâ®à®¢
RET ;¢®§¢à â
;€¤à¥á #2DA1. ‚믮«­¥­¨¥ ª®¬ ­¤ë GO TO. “áâ ­®¢¨â¥ #5D11 ¨ #5C3B. Œ®¦­® ¨á¯®«ì§®¢ âì â ª¦¥ á  ¤à¥á  #2E27 (GO TO ¤«ï 48Š; ¯ à ¬¥âàë, ª ª ¨ ¤«ï #2DA1). ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #2EBC ¤«ï ¢®§¢à â  ¨§ ¯®¤¯à®£à ¬¬ë ®¡à ¡®âª¨ ­¥¬ áª¨à㥬®£® ¯à¥à뢠­¨ï.
x2DA1 CALL x1DDF ;¯à¨¥¬ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
;‡ ç¥¬ íâ® ­ã¦­®? ‚¥¤ì MAGIC § ¯¨á뢠¥â ä ©«ë ⮫쪮 á à áè¨à¥­¨¥¬ C.
CALL x1C57 ;ãáâ ­®¢ª  ¨¬¥­¨ ä ©« 
LD (#4020),BC ;á®åà ­¥­¨¥ ¤«¨­ë ¨¬¥­¨ ä ©« 
LD A,C ;®­  à ¢­  8 ᨬ¢®« ¬?
CP 8
JR NC,x2DD2 ;¥á«¨ ¤ , â® à ¡®â  á 48Š
CALL x0405 ;­ áâனª  ­  ¤¨áª
CALL x1CB3 ;¯®¨áª ä ©« 
JP NZ,x03D9 ;¥á«¨ ­¥ ­ è«¨, â® NO FILE
LD HL,#5CDD ;¡¥à¥¬  ¤à¥á ¨¬¥­¨ ä ©« 
LD BC,(#4020) ;¨ ¥£® ¤«¨­ã
;‡ ç¥¬ ¯®àâ¨âì íªà ­ ¡¥§ ­ ¤®¡­®áâ¨? ‚¥¤ì ¤«¨­ã ¨¬¥­¨ ä ©«  ¬®¦­® á®åà ­ïâì ¨ ¢ ¤à㣮¬ ¬¥áâ¥.
ADD HL,BC ;¢ëç¨á«ï¥¬  ¤à¥á ª®­æ  ¨¬¥­¨ ä ©« 
LD (HL),"8" ;¯à¨¡ ¢«¥­¨¥ "8" ª ¨¬¥­¨ ä ©« 
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  í⮣® ᨬ¢®« 
CALL x1CB3 ;¯®¨áª ä ©« 
POP HL ;¢®ááâ ­®¢«¥­¨¥ ¯®á«¥¤­¥£® ᨬ¢®«  ¨¬¥­¨ ä ©« 
JR Z,x2DD8 ;¥á«¨ ä ©« ­ è¥«áï, â® § £à㧪  áâà ­¨æ
LD (HL)," " ;¢®ááâ ­®¢«¥­¨¥ ¨¬¥­¨ £« ¢­®£® ä ©« 
x2DD2 CALL x1CB3 ;¯®¨áª ä ©« 
JP x2E33 ;§ £à㧪  ä ©« 
x2DD8 CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
CALL x2D92 ;§ £à㧪  ä ©« 
LD SP,#40FF ;¯¥à¥­®á á⥪ 
LD B,8 ;¢á¥£® 8 áâà ­¨æ
x2DE3 PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©«  áâà ­¨æë
LD A,B
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨ á¨á⥬ë
DEC A ;áâà ­¨æë áç¨â ¥¬ á 0
PUSH AF ;á®åà ­¥­¨¥ ­®¬¥à  áâà ­¨æë
OR #10 ;íªà ­ 0, <20>‡“ 1
OUT (C),A ;ãáâ ­®¢ª  áâà ­¨æë
POP AF ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  áâà ­¨æë
ADD A,"0" ;¢ëç¨á«¥­¨¥ ¯®á«¥¤­¥£® ᨬ¢®«  ¨¬¥­¨ ä ©«  áâà ­¨æë
LD HL,#5CDD ;¢ëç¨á«¥­¨¥  ¤à¥á  ¤«ï í⮣® ᨬ¢®« 
LD BC,(#4020)
ADD HL,BC
LD (HL),A ;ãáâ ­®¢ª  ¯®á«¥¤­¥£® ᨬ¢®«  ¨¬¥­¨ ä ©«  áâà ­¨æë
CALL x1CB3 ;¯®¨áª ä ©« 
JR NZ,x2E05 ;¥á«¨ ­¥ ­ è«¨, â® § £à㧪  á«¥¤ãî饩 áâà ­¨æë
CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
CALL x2D92 ;§ £à㧪  ä ©« 
;‚­¨¬ ­¨¥!!! <20>ਠ®â¢¥â¥ A ­  ¢®¯p®á "DISC ERROR. RETRY,ABORT,IGNORE?", ¬®¦¥â ¯à®¨§®©â¨ ç⮠㣮¤­®, ¥á«¨ §­ ç¥­¨¥ ERR_SP ¡®«ìè¥ #C000, â ª ª ª áâ àë© á⥪ ¡ã¤¥â § â¨à âìáï § £à㦠¥¬ë¬ ä ©«®¬ ¨«¨ ­ å®¤¨âìáï ¢ ¤à㣮© áâà ­¨æ¥.
x2E05 POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  ä ©«  áâà ­¨æë
DJNZ x2DE3 ;¯®¢â®à ¤® ª®­æ 
LD A," " ;¢®ááâ ­®¢«¥­¨¥ ¨¬¥­¨ £« ¢­®£® ä ©« 
LD HL,#5CDD
LD BC,(#4020)
ADD HL,BC
LD (HL),A
CALL x1CB3 ;¯®¨áª ä ©« 
CALL x165D ;ç⥭¨¥ ®¯¨á â¥«ï ä ©« 
PUSH BC ;á®åà ­¥­¨¥ ­®¬¥à  ä ©« 
PUSH AF ;¨ AF
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨
LD A,(#4101) ;¡¥à¥¬ ¥£® §­ ç¥­¨¥ ¢ ¬®¬¥­â § ¯¨á¨ ä ©«  (¨§ ¢®á쬮£® ä ©« )
OUT (C),A ;ãáâ ­®¢ª  à ¡®ç¥£® á®áâ®ï­¨ï ¯®àâ 
POP AF ;¢®áâ ­®¢«¥­¨¥ ­®¬¥à  ä ©«  ¨ AF
POP BC
JR x2E39 ;§ £à㧪  £« ¢­®£® ä ©« 
x2E27 CALL x1DDF ;¯à¨¥¬ ¨¬¥­¨ ä ©«  ­  á⥪ ª «ìªã«ïâ®à 
CALL x1D75 ;¥á«¨ ¨¤¥â ¯à®¢¥àª  ­  ᨭ⠪á¨á, â® ¢®§¢à â
CALL x102E ;¯à¨¥¬ à áè¨à¥­¨ï ä ©« 
CALL x292F ;¯®¨áª ä ©« 
x2E33 JP NZ,x03D9 ;¥á«¨ ®­ ­¥ ­ ©¤¥­, â® NO FILE
CALL x165D ;ç⥭¨¥ ¥£® ®¯¨á â¥«ï
x2E39 LD A,(#5CDD) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
CP "$" ;íâ® "$"?
DI ;§ ¯à¥â ¯à¥à뢠­¨©
JR NZ,x2E43 ;¥á«¨ ¤ , â®
IM 2 ;ãáâ ­®¢ª  ¢â®à®£® ०¨¬  ¯à¥à뢠­¨©
x2E43 LD SP,#40F0 ;¯¥à¥­®á á⥪ 
CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
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,x2E64
LD E,0
INC D
x2E64 LD C,D ;¡¥à¥¬ «®£¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨
CALL x2F07 ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
LD A,(#4010) ;¡¥à¥¬ ०¨¬ ¤¨áª®¢®¤ 
AND 2 ;¤¨áª®¢®¤ ¤¢ãåáâ®à®­­¨©?
CALL NZ,x2F0F ;¥á«¨ ¤ , â® ¢ë¡®à áâ®à®­ë ¤¨áª 
LD A,C ;¡¥à¥¬ 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨
CALL x2F50 ;¯®§¨æ¨®­¨à®¢ ­¨¥
LD HL,#4100 ;§ £à㦠âì á  ¤à¥á  #4100
LD B,#BF ;#BF ᥪâ®à®¢
x2E79 PUSH BC ;á®åà ­¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
PUSH DE ;¨  ¤à¥á  ⥪ã襣® ᥪâ®à  ­  ¤¨áª¥
CALL x2F1B ;§ £à㧪  ᥪâ®à 
LD DE,#100 ;¢ëç¨á«¥­¨¥  ¤à¥á  § £à㧪¨ á«¥¤ãî饣® ᥪâ®à 
ADD HL,DE
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ⥪ã襣® ᥪâ®à  ­  ¤¨áª¥
INC E ;á«¥¤ãî騩 ᥪâ®à
LD A,E ;ª®­¥æ ¤®à®¦ª¨?
CP #10
JR NZ,x2E9C ;¥á«¨ ­¥â, â® ¯à®¤®«¦¥­¨¥ § £à㧪¨
LD E,0 ;ᥪâ®à 0
INC D ;á«¥¤ãîé ï ¤®à®¦ª 
LD C,D
CALL x2F07 ;¯®§¨æ¨®­¨à®¢ ­¨¥ (ᬮâà¨â¥ ¢ëè¥)
LD A,(#4010)
AND 2
CALL NZ,x2F0F
LD A,C
CALL x2F50
x2E9C POP BC ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ᥪâ®à®¢
DJNZ x2E79 ;¯®¢â®à ¤® ª®­æ 
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ä ©«  ­  ¤¨áª¥
POP HL ;¨  ¤à¥á  á⥪ 
LD SP,HL ;ãáâ ­®¢ª  á⥪ 
LD A,(#4011) ;¡¥à¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
PUSH AF ;á®å࠭塞 ¥¥
LD C,D ;¯®§¨æ¨®­¨à®¢ ­¨¥ (ᬮâà¨â¥ ¢ëè¥)
CALL x2F07
LD A,(#4010)
AND 2
CALL NZ,x2F0F
LD A,C
CALL x2F50
LD HL,#4000 ; ¤à¥á § £à㧪¨ ¯¥à¢®£® ᥪâ®à  ä ©« 
CALL x2F1B ;§ £à㧪  ᥪâ®à 
x2EBC POP AF ;¢®áâ ­®¢«¥­¨¥ ª®¯¨¨ á¨á⥬­®£® ॣ¨áâà 
EX AF,AF' ;¨ á­®¢  á®åà ­¥­¨¥
POP AF ;¢®ááâ ­®¢«¥­¨¥ ॣ¨áâ஢ R ¨ I
LD R,A
POP AF
LD I,A
DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD A,#FF ;ãáâ ­®¢ª  ä« £  ¯à¥à뢠­¨©
JP PO,x2ECC
LD A,0
x2ECC 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
RRCA
RRCA
RRCA
nop ;new
nop ;new
; OUT (#FE),A
LD A,(#5B08) ;¡¥à¥¬ ¡ ©â ¨§ #5B08
CP #EE ;â ¬ #EE?
JR NZ,x2EF7 ;¥á«¨ ­¥â, â® á¨á⥬­ëå ¯¥à¥¬¥­­ëå 128Š ­¥â
;Žè¨¡ª !!! —¨á«® #EE ¯®  ¤à¥áã #5B08 ¥é¥ ­¨ ® 祬 ­¥ £®¢®p¨â.
PUSH BC ;á®åà ­¥­¨¥ BC
LD BC,#7FFD ; ¤à¥á ¯®àâ  ª®­ä¨£ãà æ¨¨
LD A,(#5B5C) ;¡¥à¥¬ §­ ç¥­¨¥ ¯¥à¥¬¥­­®© BANK_M
OUT (C),A ;ãáâ ­®¢ª  à ¡®ç¥© áâà ­¨æë
POP BC ;¢®ááâ ­®¢«¥­¨¥ BC
x2EF7 LD A,(#5C00) ;¡¥à¥¬ ä« £ ¯à¥à뢠­¨©
OR A ;¯à¥à뢠­¨ï à §à¥è âì?
LD A,#C9 ;ãáâ ­®¢ª  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
LD (#5C00),A
JR NZ,x2F03 ;¥á«¨ ¢ #5C00 ¡ë« 0, â®
EI ;à §à¥è¥­¨¥ ¯à¥à뢠­¨©
x2F03 POP AF ;¢®ááâ ­®¢«¥­¨¥ AF
JP #5C00 ;§ ¯ã᪠¯à®£à ¬¬ë
;€¤à¥á #2F07. ‚ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª  ¤«ï ª®¬ ­¤ë GO TO. “áâ ­®¢¨â¥ #4011. Œ®¦­® ¨á¯®«ì§®¢ âì â ª¦¥ á  ¤à¥á :
;#2F0C ¤«ï ¯àאַ£® ¢ë¢®¤  ¢ ¯®àâ #FF.
x2F07 LD A,(#4011) ;¡¥à¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
OR #3C ;áâ®à®­  - ¢¥àå­ïï
x2F0C OUT (#FF),A ;§ £à㧪  á¨á⥬­®£® ॣ¨áâà 
RET ;¢®§¢à â
;€¤à¥á #2F0F. ‚ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª  ¤«ï ª®¬ ­¤ë GO TO. ‚室: ãáâ ­®¢¨â¥ #4011, ¯®¬¥áâ¨â¥ ¢ C «®£¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨ ¨ ¢ë¡¥à¨â¥ ¢¥àå­îî áâ®à®­ã ¤¨áª . ‚ë室: ¢ C ¡ã¤¥â 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨ ¨ ¢ë¡à ­  áâ®à®­  ¤¨áª .
x2F0F LD A,C ;¤¥«¥­¨¥ ­®¬¥à  ¤®à®¦ª¨ ­  2
OR A
RRA
LD C,A
RET NC ;¥á«¨ ¤®à®¦ª  ç¥â­ ï, â® ¢®§¢à â
LD A,(#4011) ;¡¥à¥¬ ª®¯¨î á¨á⥬­®£® ॣ¨áâà 
AND #6F ;áâ®à®­  - ­¨¦­ïï
JR x2F0C ;§ £à㧪  á¨á⥬­®£® ॣ¨áâà  ¨ ¢®§¢à â
;€¤p¥á #2F1B. —⥭¨¥ ᥪâ®à  ¤«ï ª®¬ ­¤ë GO TO. ‚ HL ¯®¬¥áâ¨â¥  ¤à¥á § £à㧪¨, ¢ E - ­®¬¥à ᥪâ®à .
x2F1B LD A,E ;ãáâ ­®¢ª  ­®¬¥à  ᥪâ®à 
INC A
OUT (#5F),A
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § £à㧪¨
LD D,#14 ;20 ¯®¯ë⮪
PUSH DE ;á®åà ­¥­¨¥ ç¨á«  ¯®¯ë⮪
x2F23 DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD C,#7F ; ¤à¥á ॣ¨áâà  ¤ ­­ëå ª®­â஫«¥à 
LD A,#80 ;ª®¬ ­¤  ç⥭¨ï ᥪâ®à 
OUT (#1F),A
CALL x3FE5 ;ç⥭¨¥ ¡ ©â®¢
POP DE ;¢®ááâ ­®¢«¥­¨¥ ª®«¨ç¥á⢠ ¯®¯ë⮪
POP HL ;¨  ¤à¥á  § £à㧪¨ ᥪâ®à 
IN A,(#1F) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à 
AND #7F ;¢á¥ ¢ ¯®à浪¥?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
DEC D ;á«¥¤ãîé ï ¯®¯ë⪠
PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § £à㧪¨ ᥪâ®à 
PUSH DE ;¨ ª®«¨ç¥á⢠ ¯®¯ë⮪
JR NZ,x2F23 ;¥á«¨ ¯®¯ë⪨ ­¥ ª®­ç¨«¨áì, â® ¯®¢â®à
HALT ;®áâ ­®¢ª  ¯à®æ¥áá®à 
;€¤à¥á #2F3A. <20>®§¨æ¨®­¨à®¢ ­¨¥ ¤«ï ¯®¤¯à®£à ¬¬ë MAGIC. ‹®£¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨ ¯®¬¥áâ¨â¥ ¢ C ¨ ãáâ ­®¢¨â¥ #5C00. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#2F50 - ¯®§¨æ¨®­¨à®¢ ­¨¥ ¤«ï ª®¬ ­¤ë GO TO. <20>®¬¥áâ¨â¥ ¢ A 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨.
;#2F57 - ¢ë¤ ç  ª®¬ ­¤ë ¨ ®¦¨¤ ­¨¥ INTRQ. Š®¬ ­¤ã ¯®¬¥áâ¨â¥ ¢ A.
x2F3A LD A,#3C ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
OUT (#FF),A
LD A,(#5C00) ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
AND 8 ;®­ ¤¢ãåáâ®à®­­¨©?
JR NZ,x2F4F ;¥á«¨ ­¥â, â® ¯®§¨æ¨®­¨à®¢ ­¨¥
LD A,C ;¤¥«¥­¨¥ ­®¬¥à  ¤®à®¦ª¨ ­  2
OR A
RRA
LD C,A
JR NC,x2F4F ;¥á«¨ ¤®à®¦ª  ç¥â­ ï, â® ¯®§¨æ¨®­¨à®¢ ­¨¥
LD A,#2C ;¢ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª 
OUT (#FF),A
x2F4F LD A,C
x2F50 OUT (#7F),A ;§ £à㧪  ­®¬¥à  ¤®à®¦ª¨ ¢ ॣ¨áâà ¤ ­­ëå
CALL x3DFD ;§ ¤¥à¦ª  ¢ 725779 ⠪⮢
LD A,#18 ;new ª®¬ ­¤  ¯®§¨æ¨®­¨à®¢ ­¨ï
x2F57 OUT (#1F),A
x2F59 IN A,(#FF) ;®¦¨¤ ­¨¥ ᨣ­ «  INTRQ
AND #80
JR Z,x2F59
PUSH BC ;á®åà ­¥­¨¥ BC
CALL x3DFD ;§ ¤¥à¦ª  ¢ 725779 ⠪⮢
POP BC ;¢®ááâ ­®¢«¥­¨¥ BC
RET ;¢®§¢à â
;€¤à¥á #2F65. ‚®ááâ ­®¢«¥­¨¥ ¤«ï ¯®¤¯à®£à ¬¬ë MAGIC.
x2F65 LD A,#08 ;new ª®¬ ­¤  ¢®ááâ ­®¢«¥­¨ï
JR x2F57 ;¢ë¤ ç  ª®¬ ­¤ë, ®¦¨¤ ­¨¥ INTRQ ¨ ¢®§¢à â
;€¤à¥á #2F69. <20>®¤¯à®£à ¬¬  ®¡à ¡®âª¨ ®è¨¡®ª, ¯®áâ㯠îé¨å ¨§ <20>‡“ ¡¥©á¨ª . “áâ ­®¢¨â¥ #5C3A ¨ ¢á¥ ¤«ï ¯®¤¯à®£à ¬¬ë #1D3.
x2F69 LD HL,(#5D1C) ;®ç¨á⪠ á⥪ 
DEC HL
DEC HL
LD SP,HL
JP x1D2F ;¢ë¤ ç  á®®¡é¥­¨ï ¨ § ¢¥à襭¨¥
;€¤à¥á #2F72. ‚맮¢ ¯®¤¯à®£à ¬¬ ¨§ <20>‡“ ¡¥©á¨ª . €¤à¥á § ¤ ©â¥ ¢ ¤¢ãå ¡ ©â å ¯®á«¥ CALL #2F72:
;CALL #2F72
;DW #0D6B
x2F72 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,x3D2F ;¯®¬¥é¥­¨¥ ­  á⥪  ¤à¥á  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  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 ¨ ¢ë¯®«­ï¥âáï ª®¬ ­¤  ¯à¥à뢠­¨ï. <20>®¤¯à®£à ¬¬  ¬®¦¥â ¨á¯®«ì§®¢ âìáï â ª¦¥ á  ¤à¥á :
;#2FC3 ¤«ï ¯àאַ£® ¢ë¢®¤  ¢ ¯®àâ #1F.
x2F90 LD HL,#0000 ;new ¡ë«® #FFFF
LD (#5CFA),HL ;â¨¯ë ¤¨áª®¢®¤®¢ ­¥¨§¢¥áâ­ë
LD (#5CFC),HL
call x08CA ;new
LD (#5CC8),HL ;¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢®ª ¤¨áª®¢®¤®¢
; LD (#5CCA),HL ;­¥¨§¢¥áâ­®
XOR A
LD (#5D17),A ;§ áâ ¢ªã ¢ë¢®¤¨âì
LD (#5D19),A ;¤¨áª®¢®¤ ¯® 㬮«ç ­¨î - A:
LD (#5D18),A ;¯ ¬ïâì ­¥ ¨§¬¥­ïâì
LD (#5D0F),A ;p ¡®â ¥â ª®¬ ­¤­ë© ¯à®æ¥áá®à TR-DOS
LD (#5D1F),A
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 ;ª®¬ ­¤  ¯à¥à뢠­¨ï
x2FC3 OUT (#1F),A ;¢ë¤ ç  ª®¬ ­¤ë
RET ;¢®§¢à â
;€¤à¥á #2FC6. <20>஢¥àª  ¤®á⨦¥­¨ï ª®­æ  ª â «®£  ¯à¨ ¥£® ¯¥ç â¨.
x2FC6 CALL x050C ;¯à®¢¥àª  ¨ ®¡à ¡®âª  ¤®á⨦¥­¨ï ª®­æ  ¡ãä¥à 
LD A,(HL) ;¡¥à¥¬ ¯¥à¢ë© ᨬ¢®« ¨¬¥­¨ ä ©« 
OR A ;ª®­¥æ ª â «®£ ?
JP Z,x03AC ;¥á«¨ ¤ , â® ®ª®­ç ­¨¥ ¢ë¤ ç¨
CP 1 ;ä ©« áâ¥àâ?
CALL Z,x0507 ;¥á«¨ ¤ , â® ¯à®¯ã᪠¥£®
RET NZ ;¨­ ç¥ ¢®§¢à â
JR x2FC6 ;¯®¢â®à
;€¤à¥á #2FD6. ‡ £à㧪  ᥪâ®à  ¢ ¡ãä¥à. ‚ DE ¯®¬¥áâ¨â¥  ¤à¥á ᥪâ®à  ­  ¤¨áª¥.
x2FD6 LD B,1 ;§ £à㦠âì 1 ᥪâ®à
LD HL,#5D25 ;§ £à㦠âì ¢ ¡ãä¥à
JP x1E67 ;§ £à㧪  ᥪâ®à 
;€¤à¥á #2FDE. ‡ £à㧪  ª®­æ  ä ©« . ‚ HL -  ¤à¥á § £à㧪¨, ¢ #5CDC - ¤«¨­ , ¢ #5CF4 - ®âªã¤  £à㧨âì.
x2FDE PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  § £à㧪¨
LD DE,(#5CF4) ;¡¥à¥¬  ¤à¥á ᥪâ®à  ­  ¤¨áª¥
CALL x2FD6 ;§ £à㧪  ¥£® ¢ ¡ãä¥à
LD A,(#5CDB) ;¡¥à¥¬ ª®«¨ç¥á⢮ ¡ ©â®¢ ¤«ï § £à㧪¨
POP DE ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  § £à㧪¨
OR A ;§ £à㦠¥¬ 0 ¡ ©â®¢?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
LD C,A ;¯¥à¥¢®¤ ¤«¨­ë § £à㦠¥¬®© ç á⨠¢ ¤¢ãå¡ ©â­ãî ä®à¬ã
LD HL,#5D25 ;¯¥à¥¬¥é ¥¬ ¡ ©âë ¨§ ¡ãä¥à 
LDIR
RET ;¢®§¢à â
;€¤à¥á #2FF3. ’ ¡«¨æ  ª®¬ ­¤ TR-DOS.
x2FF3 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.
x3008 DW x0433,x1018,x1EC2,x16AB,x053A,x0787,x1815,x1AD0,x1CFB,x19A5
DW x19A9,x19B1,x1D4D,x2182,x2656,x0690,x2997,x2DA1,x29AE,x11CE
DW x1810
;€¤à¥á #3032. ‘¦ â¨¥ ª®¬ ­¤­®© áâப¨. ‘âப㠯®¬¥áâ¨â¥ ¢ ¡ãä¥à । ªâ®à . <20>®¬¥é ¥â ¢ #5CD6 #FF ¨ ãáâ ­ ¢«¨¢ ¥â #5D11.
x3032 LD HL,(#5C59) ;¡¥à¥¬  ¤à¥á ¡ãä¥à  । ªâ®à 
LD (#5D11),HL ;ãáâ ­®¢ª   ¤à¥á  ª®¬ ­¤­®© áâப¨
LD (#5CD9),HL ;ãáâ ­®¢ª   ¤à¥á  ⥪ã饣® ᨬ¢®« 
LD A,#FF ;¯®¤ ­  ¯àï¬ ï ª®¬ ­¤ 
LD (#5CD6),A
LD HL,#5CDB ;«î¡®©  ¤à¥á
LD (#5CD7),HL
JR x3057 ;ᦠ⨥ áâப¨ ¨ ¢®§¢à â
;€¤à¥á #3048. ‘¦ â¨¥ ª®¬ ­¤­®© áâப¨. ‚ HL ¯®¬¥áâ¨â¥  ¤à¥á áâப¨. “áâ ­ ¢«¨¢ ¥â #5CD6 ¨ #5D11. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#3057 (ᦠ⨥ áâப¨; ãáâ ­®¢¨â¥ #5CD6, #5CD7 ¨ #5CD9).
x3048 LD (#5D11),HL ;ãáâ ­®¢ª   ¤à¥á  áâப¨
LD (#5CD9),HL ;¨  ¤à¥á  ⥪ã饣® ª«î祢®£® á«®¢ 
CALL x30E1 ;¯à®¢¥àª , £¤¥ ­ å®¤¨âáï áâப 
RET NZ ;¥á«¨ áâப  ­¥ ­ ©¤¥­ , â® ¢®§¢à â
INC HL ;¢ëç¨á«¥­¨¥  ¤à¥á  ¯®«ï ¤«¨­ë áâப¨
INC HL
LD (#5CD7),HL ;ãáâ ­®¢ª   ¤à¥á  ¯®«ï ¤«¨­ë áâப¨
x3057 CALL x30A9 ;®¯à¥¤¥«¥­¨¥ ­®¬¥à  ª«î祢®£® á«®¢ 
JR NZ,x3087 ;¥á«¨ íâ® ­¥ ª«î祢®¥ á«®¢®, â® á«¥¤ãî騩 ᨬ¢®«
EX DE,HL ;¯¥à¥¡à®áª   ¤à¥á  ¯®á«¥¤­¥£® ᨬ¢®«  ª«î祢®£® á«®¢  ¢ DE
INC DE ;¢ëç¨á«¥­¨¥  ¤à¥á  ᨬ¢®«  ¯®á«¥ ª«î祢®£® á«®¢ 
LD B,0 ;¯¥à¥¢®¤ ­®¬¥à  ª«î祢®£® á«®¢  ¢ 2-å ¡ ©â­ãî ä®à¬ã
LD HL,x31C8 ; ¤à¥á â ¡«¨æë ª®¤®¢ ª«î祢ëå á«®¢
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,x3087 ;¥á«¨ ­¥â, â® ¥¥ ¤«¨­  ­¨£¤¥ ­¥ ®¡®§­ ç¥­ 
LD HL,(#5CD7) ;¡¥à¥¬  ¤à¥á ¯®«ï ¤«¨­ë áâப¨
LD E,(HL) ;¡¥à¥¬ ¤«¨­ã áâப¨
INC HL
LD D,(HL)
EX DE,HL ;¯¥à¥¡à®á¨¬ ¥¥ ¢ HL
OR A
SBC HL,BC ;᪮à४â¨à㥬 ¥¥
EX DE,HL ;¯¥à¥¡à®á¨¬ ¢ DE
LD (HL),D ;¨ § £à㧨¬ ®¡à â­®
DEC HL
LD (HL),E
x3087 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,x3057 ;¥á«¨ ­¥â, â® ¯®¢â®à
x309A INC HL ;á«¥¤ãî騩 ᨬ¢®«
LD A,(HL) ;¡¥à¥¬ ¥£®
CP #D ;íâ® ENTER?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
CP #22 ;íâ® ª ¢ë窨?
JR NZ,x309A ;¥á«¨ ­¥â, â® á«¥¤ãî騩 ᨬ¢®«
INC HL ;á«¥¤ãî騩 ᨬ¢®«
LD (#5CD9),HL
JR x3057 ;¯®¢â®à
;€¤à¥á #30A9. Ž¯à¥¤¥«¥­¨¥ ­®¬¥à  ª«î祢®£® á«®¢ . “áâ ­®¢¨â¥ #5CD9. <20>®á«¥ ¢®§¢à â  ¥á«¨ ä« £ Z ãáâ ­®¢«¥­, â® ¢ C ¡ã¤¥â ­®¬¥à ª«î祢®£® á«®¢ ,   ¢ HL -  ¤à¥á ¯®á«¥¤­¥£® ᨬ¢®«  ª«î祢®£® á«®¢ ; ¨­ ç¥ ª«î祢®¥ á«®¢® ­¥ ¡ë«® ®¯®§­ ­®,   ¢ HL ¡ã¤¥â  ¤à¥á ¨§ #5CD9.
x30A9 LD HL,(#5CD9) ;¡¥à¥¬  ¤à¥á ª«î祢®£® á«®¢  ¢ áâப¥
LD DE,x30FD ; ¤à¥á â ¡«¨æë ª«î祢ëå á«®¢
LD C,0 ;­ ç­¥¬ á® á«®¢  0
x30B1 LD A,(HL) ;¡¥à¥¬ ᨬ¢®« á«®¢  ¨§ ­ è¥© áâப¨
AND #DF ;¡ãª¢  § £« ¢­ ï
LD B,A ;§ £à㧪  ᨬ¢®«  ¢ B
OR A ;íâ® CHR$ 0?
JR NZ,x30BB ;¥á«¨ ¤ , â®
INC HL ;á«¥¤ãî騩 ᨬ¢®«
JR x30B1 ;¨ ¯®¢â®à
x30BB LD A,(DE) ;¡¥à¥¬ ᨬ¢®« ¨§ â ¡«¨æë
AND #80 ;¥£® ¡¨â 7 ¢ª«î祭?
JR NZ,x30C8 ;¥á«¨ ¤ , â® íâ®â ᨬ¢®« ¯®á«¥¤­¨©
LD A,(DE) ;á­®¢  ¡¥à¥¬ ᨬ¢®« ¨§ â ¡«¨æë
CP B ;áà ¢­¥­¨¥ ᨬ¢®«®¢
JR NZ,x30D9 ;¥á«¨ ®­¨ ­¥ ᮢ¯ ¤ îâ, â® ¯à®¢¥àª  á«¥¤ãî饣® á«®¢ 
INC HL ; ¤à¥á  á«¥¤ãîé¨å ᨬ¢®«®¢
INC DE
JR x30B1 ;¯®¢â®à
x30C8 LD A,(DE) ;¡¥à¥¬ ᨬ¢®« ¨§ â ¡«¨æë
AND #7F ;á¡à á뢠¥¬ ¡¨â 7
CP B ;áà ¢­¨¢ ¥¬ ᨬ¢®«ë
RET Z ;¥á«¨ ®­¨ ᮢ¯ «¨, â® ¢®§¢à â
x30CD INC C ;­®¬¥à á«¥¤ãî饣® á«®¢ 
LD HL,(#5CD9) ;¡¥à¥¬  ¤à¥á ª«î祢®£® á«®¢  ¢ áâப¥
INC DE ;á«¥¤ãî騩 ᨬ¢®« ¨§ â ¡«¨æë
LD A,(DE)
CP #FF ;ª®­¥æ â ¡«¨æë?
JR NZ,x30B1 ;¥á«¨ ­¥â, â® ¯®¢â®à
OR A ;á¡à®á ä« £  Z
RET ;¢®§¢à â
x30D9 INC DE ;á«¥¤ãî騩 ᨬ¢®« ¨§ â ¡«¨æë
LD A,(DE)
AND #80 ;¥£® ¡¨â 7 ¢ª«î祭?
JR Z,x30D9 ;¥á«¨ ¤ , â® á«¥¤ãî騩 ᨬ¢®«
JR x30CD ;¯à®¢¥àª  ¤®á⨦¥­¨ï ª®­æ  â ¡«¨æë
;€¤à¥á #30E1. <20>஢¥àª  ¬¥áâ®­ å®¦¤¥­¨ï áâப¨. “áâ ­ ¢«¨¢ ¥â #5CD6,   ¢ HL ¯®¬¥é ¥â  ¤à¥á ¯®«ï ¤«¨­ë áâப¨ ¬¨­ãá 2.
x30E1 LD HL,(#5C45) ;¡¥à¥¬ ­®¬¥à ¢ë¯®«­ïî饩áï áâப¨
INC HL ;¯®¤ ­  ¯àï¬ ï ª®¬ ­¤ ?
INC HL
LD A,H
OR L
JR Z,x30F4 ;¥á«¨ ¤ , â® ãáâ ­®¢ª  ä« £ 
XOR A ;ª®¬ ­¤  ­ å®¤¨âáï ¢ áâப¥ ¯à®£à ¬¬ë ­  ¡¥©á¨ª¥
LD (#5CD6),A
DEC HL ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  áâப¨
DEC HL
RST #20 ;®¯à¥¤¥«¥­¨¥  ¤à¥á  áâப¨
DW #196E
RET ;¢®§¢à â
x30F4 LD A,#FF ;¯®¤ ­  ¯àï¬ ï ª®¬ ­¤ 
LD (#5CD6),A
LD HL,(#5C59) ;«î¡®©  ¤à¥á
RET ;¢®§¢à â
;€¤à¥á #30FD. ’ ¡«¨æ  ª«î祢ëå á«®¢ TR-DOS.
x30FD 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 #C4
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 "GOTO"
DB #80
DB "GOT"
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,#FF
;€¤à¥á #31C8. ’ ¡«¨æ  ª®¤®¢ ª«î祢ëå á«®¢ TR-DOS.
x31C8 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. <20>஢¥àª  ­ «¨ç¨ï á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS. …᫨ ®­¨ ¥áâì, â® ä« £ C ¡ã¤¥â á¡à®è¥­, ¨­ ç¥ ãáâ ­®¢«¥­.
x31F3 LD HL,(#5C4F) ;¡¥à¥¬  ¤à¥á ®¡« á⨠®¯¨á â¥«¥© ª ­ «®¢
OR A ;¤«ï ¯à ¢¨«ì­®£® ¢ëç¨â ­¨ï
LD BC,#5D25 ; ¤à¥á ®¡« á⨠®¯¨á â¥«¥© ª ­ «®¢ ¯à¨ ­ «¨ç¨¨ á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS.
SBC HL,BC ;ãáâ ­®¢ª  ä« £  C
RET ;¢®§¢à â
x31FD DISPLAY "Free space at ",$,": ",/D,#3201-$," byte(s)"
DS #3201-$,#FF
x3201 ld hl,x3219
ld de,#FCA0
ld bc,#0318
ld a,#FF
jr x3210
x320E inc hl
inc hl
x3210 cp l
jr z,x320E
ldi
jp pe,x3210
ret
;èà¨äâ
x3219 db #00,#00,#00,#00,#00,#00,#00,#00
db #00,#20,#20,#20,#20,#20,#00,#20
db #00,#50,#50,#00,#00,#00,#00,#00
db #00,#00,#50,#F8,#50,#F8,#50,#00
db #00,#20,#70,#A0,#70,#28,#70,#20
db #00,#40,#48,#10,#20,#48,#08,#00
db #00,#20,#50,#50,#60,#A8,#90,#68
db #00,#20,#40,#00,#00,#00,#00,#00
db #00,#08,#10,#10,#10,#10,#10,#08
db #00,#40,#20,#20,#20,#20,#20,#40
db #00,#00,#50,#20,#F8,#20,#50,#00
db #00,#00,#20,#20,#F8,#20,#20,#00
db #00,#00,#00,#00,#00,#60,#20,#40
db #00,#00,#00,#00,#F8,#00,#00,#00
db #00,#00,#00,#00,#00,#00,#60,#60
db #00,#00,#08,#10,#20,#40,#80,#00
db #00,#70,#88,#98,#A8,#C8,#88,#70
db #00,#20,#60,#A0,#20,#20,#20,#F8
db #00,#70,#88,#08,#30,#40,#80,#F8
db #00,#70,#88,#08,#30,#08,#88,#70
db #00,#18,#28,#48,#88,#F8,#08,#08
db #00,#F8,#80,#F0,#08,#08,#08,#F0
db #00,#70,#80,#F0,#88,#88,#88,#70
db #00,#F8,#08,#10,#20,#40,#80,#80
db #00,#70,#88,#88,#70,#88,#88,#70
db #00,#70,#88,#88,#88,#78,#08,#70
db #00,#00,#60,#60,#00,#00,#60,#60
db #00,#00,#60,#60,#00,#60,#20,#40
x32F9 db #00,#00,#10,#20,#40,#20
x32FF dw #FFFF
x3301 db #10,#00
x3203 db #00,#00,#00,#F8,#00,#F8,#00,#00
db #00,#00,#40,#20,#10,#20,#40,#00
db #00,#70,#88,#08,#10,#20,#00,#20
db #00,#70,#88,#B8,#A8,#B8,#80,#78
db #00,#70,#88,#88,#88,#F8,#88,#88
db #00,#F0,#88,#88,#F0,#88,#88,#F0
db #00,#70,#88,#80,#80,#80,#88,#70
db #00,#E0,#90,#88,#88,#88,#90,#E0
db #00,#F8,#80,#80,#F0,#80,#80,#F8
db #00,#F8,#80,#80,#F0,#80,#80,#80
db #00,#70,#88,#80,#B8,#88,#88,#70
db #00,#88,#88,#88,#F8,#88,#88,#88
db #00,#F8,#20,#20,#20,#20,#20,#F8
db #00,#38,#10,#10,#10,#90,#90,#60
db #00,#88,#90,#A0,#C0,#A0,#90,#88
db #00,#80,#80,#80,#80,#80,#80,#F8
db #00,#88,#D8,#A8,#88,#88,#88,#88
db #00,#88,#88,#C8,#A8,#98,#88,#88
db #00,#70,#88,#88,#88,#88,#88,#70
db #00,#F0,#88,#88,#88,#F0,#80,#80
db #00,#70,#88,#88,#88,#A8,#90,#68
db #00,#F0,#88,#88,#88,#F0,#90,#88
db #00,#70,#88,#80,#70,#08,#88,#70
db #00,#F8,#20,#20,#20,#20,#20,#20
db #00,#88,#88,#88,#88,#88,#88,#70
db #00,#88,#88,#88,#88,#88,#50,#20
db #00,#88,#88,#88,#88,#88,#A8,#50
db #00,#88,#88,#50,#20,#50,#88,#88
db #00,#88,#88,#50,#20,#20,#20,#20
db #00,#F8,#08,#10,#20,#40,#80,#F8
db #00,#38,#20,#20,#20,#20,#20,#38
x33FB db #00,#00,#80,#40
x33FF dw #FFFF
x3401 db #20,#10,#08,#00
x3405 db #00,#E0,#20,#20,#20,#20,#20,#E0
db #00,#20,#70,#A8,#20,#20,#20,#20
db #00,#00,#00,#00,#00,#00,#00,#FC
db #00,#40,#20,#00,#00,#00,#00,#00
db #00,#00,#60,#10,#70,#90,#90,#68
db #00,#80,#80,#80,#E0,#90,#90,#E0
db #00,#00,#60,#90,#80,#80,#90,#60
db #00,#10,#10,#10,#70,#90,#90,#70
db #00,#00,#60,#90,#90,#E0,#80,#70
db #00,#18,#20,#20,#70,#20,#20,#20
db #00,#00,#70,#90,#90,#70,#10,#60
db #00,#80,#80,#80,#E0,#90,#90,#90
db #00,#40,#00,#40,#40,#40,#40,#30
db #00,#20,#00,#20,#20,#20,#20,#C0
db #00,#80,#90,#A0,#C0,#A0,#90,#88
db #00,#40,#40,#40,#40,#40,#40,#30
db #00,#00,#D0,#A8,#A8,#A8,#A8,#A8
db #00,#00,#E0,#90,#90,#90,#90,#90
db #00,#00,#60,#90,#90,#90,#90,#60
db #00,#00,#E0,#90,#90,#E0,#80,#80
db #00,#00,#70,#90,#90,#70,#18,#10
db #00,#00,#90,#A8,#C0,#80,#80,#80
db #00,#00,#60,#80,#60,#10,#10,#E0
db #00,#40,#40,#E0,#40,#40,#40,#30
db #00,#00,#90,#90,#90,#90,#90,#60
db #00,#00,#88,#88,#88,#50,#50,#20
db #00,#00,#88,#88,#A8,#A8,#A8,#50
db #00,#00,#00,#88,#50,#20,#50,#88
db #00,#00,#90,#90,#90,#70,#10,#E0
db #00,#00,#F0,#10,#20,#40,#80,#F0
db #00,#20,#40,#40,#80,#40,#40,#20
x34FD db #00,#20
x34FF dw #FFFF
x3501 db #20,#20,#20,#20,#20,#20
x3507 db #00,#20,#10,#10,#08,#10,#10,#20
db #00,#00,#A8,#50,#00,#00,#00,#00
db #00,#78,#84,#B4,#A4,#B4,#84,#78
db #00,#FC,#FC,#FC,#FC,#FC,#FC,#FC
db #00,#00,#00,#00,#FC,#FC,#FC,#FC
db #00,#60,#F0,#78,#3C,#78,#F0,#60
x3537 DISPLAY "Free space at ",$,": ",/D,#35FF-$," byte(s)"
ds #35FF-$,#00
dw #FFFF
x3601 DISPLAY "Free space at ",$,": ",/D,#36FF-$," byte(s)"
ds #36FF-$,#00
dw #FFFF
x3701 DISPLAY "Free space at ",$,": ",/D,#37FF-$," byte(s)"
ds #37FF-$,#00
dw #FFFF
x3801 DISPLAY "Free space at ",$,": ",/D,#38FF-$," byte(s)"
ds #38FF-$,#00
dw #FFFF
x3901 DISPLAY "Free space at ",$,": ",/D,#39FF-$," byte(s)"
ds #39FF-$,#00
dw #FFFF
x3A01 DISPLAY "Free space at ",$,": ",/D,#3AFF-$," byte(s)"
ds #3AFF-$,#00
dw #FFFF
x3B01 DISPLAY "Free space at ",$,": ",/D,#3BFF-$," byte(s)"
ds #3BFF-$,#00
dw #FFFF
;€¤à¥á #3C01. ’® ¦¥, çâ® ¨ #3D31.
x3C01 JR x3C06
x3C03 DB #FF
;€¤à¥á #3C04. ’® ¦¥, çâ® ¨ #3D1A
x3C04 JR x3C09
;€¤à¥á #3C06. ’® ¦¥, çâ® ¨ #3D31.
x3C06 JP x3D00
;€¤à¥á #3C09. ’® ¦¥, çâ® ¨ #3D1A.
x3C09 JP x3D03
x3C0C ret
x3C0D push af
push hl
push de
call x3E08
ld b,a
pop de
pop hl
pop af
jp x3E44
x3C1A DISPLAY "Free space at ",$,": ",/D,#3C30-$," byte(s)"
ds #3C30-$,#00
x3C30 in a,(#1F)
ret
x3C33 DISPLAY "Free space at ",$,": ",/D,#3CFA-$," byte(s)"
ds #3CFA-$,#00
;€¤à¥á #3CFA. ’® ¦¥, çâ® ¨ #20F1.
x3CFA JP x20F1
;€¤à¥á #3CFD. ’® ¦¥, çâ® ¨ #3D13, ­® ­¥ ¯¥à¥ª«îç ¥â <20>‡“.
x3CFD JP x283C
;€¤à¥á #3D00. ‚室 ¢ TR-DOS. <20>¥à¥ª«îç ¥â <20>‡“.
x3D00 NOP
JR x3D31
;€¤à¥á #3D03. ‚믮«­¥­¨¥ ª®¬ ­¤ TR-DOS ¨§ ¡¥©á¨ª . “áâ ­®¢¨â¥ CH_ADD ­  ¯à¥ä¨ªá :REM: ¯¥à¥¤ ª®¬ ­¤®©. ‚®§¢à é ¥â ¢ BC ª®¤ ®è¨¡ª¨. <20>¥à¥ª«îç ¥â <20>‡“.
x3D03 NOP
JR x3D1A
;€¤à¥á #3D06. <20>®¤¯à®£à ¬¬  ¢¢®¤  ¨§ ä ©«  ¤ ­­ëå. <20>¥à¥ª«îç ¥â <20>‡“. <20>ਠ¢ë§®¢¥ ¨§ । ªâ®à  ¢¢®¤¨â ¢áî áâப㠨 ¯à®¨§¢®¤¨â ¢ë室 ¨§ । ªâ®à , ¨­ ç¥ ¢®§¢à é ¥â ¢ A ᨬ¢®« ¨§ ä ©« .
x3D06 NOP
JP x25EF
;€¤à¥á #3D0A. ’® ¦¥, çâ® ¨ #3D0D, ­® ­¥ ¯¥à¥ª«îç ¥â <20>‡“.
x3D0A JP x244A
;€¤à¥á #3D0D. <20>®¤¯à®£à ¬¬  ¢ë¢®¤  ¢ ä ©« ¤ ­­ëå. ‘¨¬¢®« ¯®¬¥áâ¨â¥ ¢  ªªã¬ã«ïâ®à. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #3D0E. Ž¡¥ â®çª¨ ¢å®¤  ¯¥à¥ª«îç îâ <20>‡“.
x3D0D NOP
x3D0E JR x3D0A
;€¤à¥á #3D10. ’® ¦¥, çâ® ¨ #20F1. <20>¥à¥ª«îç ¥â <20>‡“.
x3D10 NOP
JR x3CFA
;€¤à¥á #3D13. <20>¥à¥å®¤ ­  ¯®¤¯à®£à ¬¬ã ¢ë§®¢  ¯®¤¯à®£à ¬¬ TR-DOS ¨§ ¬ è¨­­®£® ª®¤ . €¤à¥á ï¥âáï ¯¥à¥ª«îç â¥«¥¬.
x3D13 NOP
JR x3CFD
;€¤à¥á #3D16. <20>¥à¥å®¤ ­  ¯®¤¯à®£à ¬¬ã ®¡à ¡®âª¨ ®è¨¡®ª. €¤à¥á ï¥âáï ¯¥à¥ª«îç â¥«¥¬.
x3D16 NOP
JP x2F69
;€¤à¥á #3D1A. ’® ¦¥, çâ® ¨ #3D03, ­® ­¥ ¯¥à¥ª«îç ¥â <20>‡“.
x3D1A CALL x3D21 ;ᮧ¤ ­¨¥ á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ­  á⥪  ¤à¥á  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
JP x016C ;¢ë¯®«­¥­¨¥ ª®¬ ­¤ë
;€¤à¥á #3D21. ‘®§¤ ­¨¥ ®¡« á⨠á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS, ¥á«¨ ¥¥ ­¥â. ‚ HL ¯®¬¥é ¥âáï #5CC2.
x3D21 CALL x31F3 ;¯à®¢¥àª  ­ «¨ç¨ï ®¡« á⨠á¨á⥬­ëå ¯¥à¥¬¥­­ëå
NOP
NOP
CALL C,x3D4C ;¥á«¨ ¥¥ ­¥â, ⮠ᮧ¤ ­¨¥ ¥¥
LD HL,#5CC2 ;§ £à㧪  ¢ HL  ¤à¥á  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
RET ;¢®§¢à â
NOP
NOP
;€¤à¥á #3D2F. <20>¥à¥ª«î祭¨¥ ¯§ã ­  TR-DOS ¨ ¯¥à¥å®¤ ­  «î¡®©  ¤à¥á. €¤à¥á ¯®¬¥áâ¨â¥ ­  á⥪.
x3D2F NOP
RET
;€¤à¥á #3D31. ‚室 ¢ TR-DOS.
x3D31 CALL x3D21 ;ᮧ¤ ­¨¥ ®¡« á⨠á¨á⥬­ëå ¯¥à¥¬¥­­ëå
PUSH HL ;¯®¬¥é¥­¨¥ ­  á⥪  ¤à¥á  ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
JP x0239 ;¢å®¤ ¢ TR-DOS
;€¤à¥á #3D38. <20>஢¥àª  ­ «¨ç¨ï ¨­â¥à䥩á -1. ‚ á«ãç ¥ ¥£® ®¡­ à㦥­¨ï ¯à®¨á室¨â ᮧ¤ ­¨¥ ¥£® á¨á⥬­ëå ¯¥à¥¬¥­­ëå ¨ ¢ #5CF1 ¯®¬¥é ¥âáï 1. „«ï à ¡®âë ¯®¤¯à®£à ¬¬  ¤®«¦­  ¡ëâì ¯¥à¥¬¥é¥­  ¢ «î¡®¥ ¬¥áâ® Ž‡“.
x3D38 XOR A ;¨­â¥à䥩á-1 ¥áâì?
OUT (#F7),A
IN A,(#F7)
CP #1E
JR Z,x3D44 ;¥á«¨ ¤ , ⮠ᮧ¤ ­¨¥ ¥£® á¨á⥬­ëå ¯¥à¥¬¥­­ëå
CP #1F
RET NZ ;¥á«¨ ­¥â, â® ¢®§¢à â
x3D44 RST 8 ;ᮧ¤ ­¨¥ á¨á⥬­ëå ¯¥à¥¬¥­­ëå ¨­â¥à䥩á -1
DB #31
LD A,1 ;¯® ª®¬ ­¤¥ SAVE § ¯¨á뢠âì 1 ª®¯¨î
LD (#5CEF),A
RET ;¢®§¢à â
;€¤à¥á #3D4C. ‘®§¤ ­¨¥ á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS. <20>ਠ­ «¨ç¨¨ ¨­â¥à䥩á -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 ¢ë¤ ¥âáï ª®¬ ­¤  ¯à¥à뢠­¨ï. <20>®¤¯à®£à ¬¬  ¯®àâ¨â ï祩ª¨ ¯ ¬ï⨠ª «ìªã«ïâ®à .
x3D4C XOR A ;¢ë¡®à ¤¨áª®¢®¤  A: ¨ á¡à®á ‚ƒ93
OUT (#FF),A
IN A,(#F6) ;íâ® ­¨ç¥£® ­¥ ¤ ¥â
LD HL,x3D38 ; ¤à¥á ¯®¤¯à®£à ¬¬ë ¯à®¢¥àª¨ ­ «¨ç¨ï ¨­â¥à䥩á -1
LD DE,#5C92 ;«î¡®© ᢮¡®¤­ë©  ¤à¥á, Ž‡“
LD BC,#14 ;¤«¨­  ¯®¤¯à®£à ¬¬ë
LDIR ;¯¥à¥­®á ¯®¤¯à®£à ¬¬ë ¢ Ž‡“
LD HL,x3D67 ; ¤à¥á ¢®§¢à â  ¨§ ¯®¤¯à®£à ¬¬ë
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,x3D2F ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
JP #5CA5 ;new § ¯ã᪠¯®¤¯à®£à ¬¬ë (¯¥à¥å®¤ ­  ret)
;€¤à¥á #3D67. ‘®§¤ ­¨¥ á¨á⥬­ëå ¯¥à¥¬¥­­ëå TR-DOS. ‚ ¯¥à¥¬¥­­ë¥ ¯®¬¥é îâáï: ¢ #5CFA - #5CFD, #5CC8 - #5CCB, #5C3A, #5D16 ¨ #5D0C - #FF; ¢ #5D17, #5D19, #5D18, #5D0F ¨ #5D1F - 0; ¢ #5CC2 - #C9. ’ ª¦¥ ¢ á¨á⥬­ë© ॣ¨áâà ¯®¬¥é ¥âáï #FF,   ­  ‚ƒ93 ¢ë¤ ¥âáï ª®¬ ­¤  ¯à¥à뢠­¨ï.
x3D67 LD HL,x2F90 ; ¤à¥á ¢®§¢à â  ¨§ ¯§ã ¡¥©á¨ª 
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,x3D2F ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  TR-DOS
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,#1655 ; ¤à¥á ¯®¤¯à®£à ¬¬ë MAKE_ROOM ¨§ <20>‡“ ¡¥©á¨ª 
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD HL,#5BFF ; ¤à¥á ¯¥à¥ª«îç â¥«ï <20>‡“ ­  ¡¥©á¨ª
PUSH HL ;¯®¬¥é¥­¨¥ ¥£® ­  á⥪
LD (HL),#C9 ;¯®¬¥é¥­¨¥ ¢ ®§ã ª®¬ ­¤ë RET
LD HL,#5CB5 ;­ ç «ì­ë©  ¤à¥á ®¡« á⨠á¨á⥬­ëå ¯¥à¥¬¥­­ëå
LD BC,#70 ;¤«¨­  ¥¥
RET ;§ ¯ã᪠¯®¤¯à®£à ¬¬ë MAKE_ROOM
;€¤à¥á #3D80. <20>¥à¥¢®¤ áâப¨. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #3D82 (¯¥ç âì ᨬ¢®«  ¨§  ªªã¬ã«ïâ®à ). ’ ª¦¥ íâ  ¯®¤¯à®£à ¬¬  ®è¨¡®ç­® ¨á¯®«ì§ã¥âáï á  ¤à¥á  #3D8B ¯®¤¯à®£à ¬¬®© #4F6.
x3D80 LD A,#D ;ᨬ¢®« ENTER
x3D82 PUSH HL ;á®åà ­¥­¨¥ ॣ¨áâ஢
PUSH BC
PUSH DE
PUSH AF ;á®åà ­¥­¨¥ ᨬ¢®« 
CALL x20F1 ;¨§¬¥­¥­¨¥ ¯ ¬ïâ¨
POP AF ;¢®ááâ ­®¢«¥­¨¥ ᨬ¢®« 
x3D8A CALL x3D94 ;¯¥ç âì ᨬ¢®« 
CALL x20F1 ;¢®ááâ ­®¢«¥­¨¥ ¯ ¬ïâ¨
POP DE ;¢®ááâ ­®¢«¥­¨¥ ॣ¨áâ஢
POP BC
POP HL
RET ;¢®§¢à â
;€¤à¥á #3D94. <20>¥ç âì ᨬ¢®«  ¡¥§ ¨§¬¥­¥­¨ï ¯ ¬ïâ¨. ‘¨¬¢®« ¯®¬¥áâ¨â¥ ¢  ªªã¬ã«ïâ®à.
x3D94 RST #20
DW #0010
RET
;€¤à¥á #3D98. ‚®ááâ ­®¢«¥­¨¥ á ®¦¨¤ ­¨¥¬ INTRQ. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #3D9A (®â¤ ç  ª®¬ ­¤ë ¨§ ॣ.A á ®¦¨¤ ­¨¥¬ INTRQ).
x3D98 LD A,#08 ;new ¢®ááâ ­®¢«¥­¨¥
x3D9A OUT (#1F),A
x3D9C PUSH HL ;á®åà ­¥­¨¥ HL
RST #20 ;¯à®¢¥àª  ­ ¦ â¨ï BREAK
DW #1F54
JR C,x3DA5 ;¥á«¨ ­ ¦ â®, â® á®®¡é¥­¨¥ *BREAK*
RST #20
DW #1B7B
x3DA5 POP HL ;¢®ááâ ­®¢«¥­¨¥ HL
IN A,(#FF) ;INTRQ ¯®áâ㯨«?
AND #80
JR Z,x3D9C ;¥á«¨ ­¥â, â® ¯®¢â®à
RET ;¢®§¢à â
;€¤à¥á #3DAD. <20>஢¥àª  ­ «¨ç¨ï ¤¨áª  ¢ ¤¨áª®¢®¤¥. <20>¨ª ª¨å ãáâ ­®¢®ª ­¥ âॡã¥âáï.
x3DAD LD A,#08 ;new ª®¬ ­¤  ¢®ááâ ­®¢«¥­¨ï
CALL x3D9A ;¢ë¤ ç  ª®¬ ­¤ë ¨ ®¦¨¤ ­¨¥ INTRQ
LD DE,0 ;§  #10000 ¯à®å®¤®¢ ¨­¤¥ªá­ë© ᨣ­ « ¤®«¦¥­ ¨§¬¥­¨âìáï
IN A,(#1F) ;¡¥à¥¬ ¨­¤¥ªá­ë© ᨣ­ « ¤«ï ®¡à §æ 
AND 2
LD B,A ;§ ¯®¬¨­ ¥¬ ¥£®
x3DBA IN A,(#1F) ;¡¥à¥¬ ¥£® á­®¢ 
AND 2
CP B ;®­ ¨§¬¥­¨«áï?
RET NZ ;¥á«¨ ¤ , â® ¢®§¢à â
INC DE ;á«¥¤ãîé ï ¯®¯ë⪠
LD A,E ;¯®¯ë⪨ ª®­ç¨«¨áì
OR D
JR NZ,x3DBA ;¥á«¨ ­¥â, â® ¯®¢â®à
JP x16F9 ;®¡à ¡®âª  ®è¨¡ª¨ NO DISC
;€¤à¥á #3DC8. ‚ë¡®à ¤¨áª®¢®¤ , ®¯à¥¤¥«¥­­®£® ¯® 㬮«ç ­¨î. ‚室: ¬®¦­® ãáâ ­®¢¨âì ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¨ ०¨¬ ¤¨áª®¢®¤  ᮣ« á­® ®¯¨á ­¨î ª®¬ ­¤ë #01. ‚ë室: í⨠¯¥à¥¬¥­­ë¥ ¬®£ãâ ¡ëâì ¨§¬¥­¥­ë ᮣ« á­® í⮬㠮¯¨á ­¨î. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á®¢:
;#3DCB - ¢ë¡®à ¤¨áª®¢®¤ . <20>®¬¥à § ¤ ©â¥ ¢ ॣ.A, ®áâ «ì­®¥ ª ª ¨ ¤«ï ¯à¥¤ë¤ã饩 ¯®¤¯à®£à ¬¬ë.
;#3DFD - § ¤¥à¦ª  ¢ 725779 ⠪⮢.
;#3DFF - § ¤¥à¦ª  «î¡®© ­ã¦­®© ¤«¨â¥«ì­®áâ¨. ‚ ॣ.A ãáâ ­®¢¨â¥ ç¨á«®, ®¯à¥¤¥«ïî饥 ¤«¨â¥«ì­®áâì § ¤¥à¦ª¨.
x3DC8 LD A,(#5D19) ;¡¥à¥¬ ­®¬¥à ¤¨áª®¢®¤  ¯® 㬮«ç ­¨î
x3DCB call x0901
; LD (#5CF6),A ;ãáâ ­®¢ª  ­®¬¥à  ¢ë¡à ­­®£® ¤¨áª®¢®¤ 
LD HL,#5D16 ;¢ë¡®à ¤¨áª®¢®¤ 
LD C,A
LD A,#3C
OR C
OUT (#FF),A
LD (HL),A
CALL x3E08 ;¡¥à¥¬ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ 
AND #80 ;¡¨â 7 ¢ëª«î祭?
JR Z,x3DFA ;¥á«¨ ¤ , â® ¨­¨æ¨ «¨§ æ¨î ­¥ ¯à®¢®¤¨¬
CALL x3DAD ;¯à®¢¥àª  ­ «¨ç¨ï ¤¨áª  ¢ ¤¨áª®¢®¤¥
CALL x3E16 ;®¯à¥¤¥«¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ 
CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
CP #82 ;new ¢ í⮩ ¯¥à¥¬¥­­®© #FF?
JR Z,x3DFA ;new ¥á«¨ ¤ , â® ­¥ ®¯à¥¤¥«ï¥¬ ¥£®
PUSH HL ;á®å࠭塞  ¤à¥á ¯¥à¥¬¥­­®© á ⨯®¬ ¤¨áª®¢®¤ 
CALL x1FCA ;®¯à¥¤¥«¥­¨¥ ª®«¨ç¥á⢠ ¤®à®¦¥ª ¤¨áª®¢®¤ 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ¯¥à¥¬¥­­®© ⨯ 
CP #50 ;ãáâ ­®¢ª  í⮩ ¯¥à¥¬¥­­®©
LD A,0
JR NZ,x3DF9
LD A,#80
x3DF9 LD (HL),A
;‚­¨¬ ­¨¥, ®è¨¡ª !!! <20>¥ ¯à®¢¥àï¥âáï ª®«¨ç¥á⢮ áâ®à®­ ¤¨áª®¢®¤  ¨ ¯à¥¤¯®« £ ¥âáï, çâ® ®­ ®¤­®áâ®à®­­¨©.
x3DFA CALL x1E36 ;¯à®¢¥àª  ¨­¤¥ªá­®© ®¡« á⨠¤¨áª 
x3DFD LD A,#50 ;§ ¤¥à¦ª  ¢ 327842 ⠪⮢
x3DFF LD C,#FF
x3E01 DEC C
JR NZ,x3E01
DEC A
JR NZ,x3DFF
RET ;¢®§¢à â
;€¤à¥á #3E08. ‚롮ઠ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ⥪ã饣® ¤¨áª®¢®¤ . “áâ ­®¢¨â¥ #5CF6. <20>  ¢ë室¥ ¢ A ¡ã¤¥â ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ ,   ¢ HL -  ¤à¥á, ¯® ª®â®à®¬ã ®­® ­ å®¤¨âáï. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #3E0B (¢ë¡®àª  ¯ à ¬¥âà  ¤¨áª®¢®¤ ; ¢ DE ¯®¬¥áâ¨â¥  ¤à¥á â ¡«¨æë ¯ à ¬¥â஢ ¨ ãáâ ­®¢¨â¥ #5CF6; <20>  ¢ë室¥ ¢ A ¡ã¤¥â ¯ à ¬¥âà, ¢ HL -  ¤à¥á ¥£® ï祩ª¨).
x3E08 LD DE,#5CFA ;¡¥à¥¬  ¤à¥á â ¡«¨æë ᪮à®á⥩ ¯¥à¥¬¥é¥­¨ï £®«®¢®ª
x3E0B LD HL,(#5CF6) ;ᬥ饭¨¥ à ¢­® ­®¬¥àã ¤¨áª®¢®¤ 
ADD HL,DE ;¢ëç¨á«¥­¨¥  ¤à¥á  ï祩ª¨ á ¯ à ¬¥â஬
LD A,(HL) ;¡¥à¥¬ ®ââ㤠 ¯ à ¬¥âà
RET ;¢®§¢à â
;€¤à¥á #3E11. ‚롮ઠ ⨯  ¤¨áª®¢®¤ . ‚室: ãáâ ­®¢¨â¥ #5CF6. ‚ë室: ¢ A ⨯ ¤¨áª®¢®¤ , ¢ HL -  ¤à¥á ¥£® ï祩ª¨.
x3E11 LD DE,#5CC8 ;¡¥à¥¬  ¤à¥á â ¡«¨æë ⨯®¢ ¤¨áª®¢®¤®¢
JR x3E0B ;¢ë¡®àª  ¯ à ¬¥âà  ¨ ¢®§¢à â
;€¤à¥á #3E16. Ž¯à¥¤¥«¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ .
x3E16 CALL x3E08 ;¡¥à¥¬  ¤à¥á ï祩ª¨ á® ¢à¥¬¥­¥¬ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
LD B,8 ;­ ç­¥¬ á ­ ¨¬¥­ì襣®
LD C,4 ;4 ¯®¯ë⪨
x3E1D LD (HL),B ;ãáâ ­®¢ª  ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
LD A,#08 ;new ¢®ááâ ­®¢«¥­¨¥
CALL x3D9A
LD A,#20 ;¯®§¨æ¨®­¨à®¢ ­¨¥ ­  ¤®à®¦ªã #20
LD B,#B
CALL x3E44
LD B,(HL) ;¡¥à¥¬ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
LD A,1 ;¯®§¨æ¨®­¨à®¢ ­¨¥ ­  ¤®à®¦ªã 1 á § ¤ ­­ë¬ ¢à¥¬¥­¥¬
CALL x3E44
IN A,(#1F) ;£®«®¢ª  ­  ¤®à®¦ª¥ 0?
AND 4
JR NZ,x3E3F ;¥á«¨ ¤ , â® ®è¨¡ª 
XOR A ;¯®§¨æ¨®­¨à®¢ ­¨¥ ­  ¤®à®¦ªã 0
CALL x3E44
IN A,(#1F) ;£®«®¢ª  ­  ¤®à®¦ª¥ 0?
AND 4
RET NZ ;¥á«¨ ¤ , â® ¢®§¢à â
x3E3F INC B ;㢥«¨ç¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ­  1
DEC C ;á«¥¤ãîé ï ¯®¯ë⪠
RET Z ;¥á«¨ ¯®¯ë⪨ ª®­ç¨«¨áì, â® ¢®§¢à â
JR x3E1D ;¯®¢â®à
;€¤à¥á #3E44. <20>®§¨æ¨®­¨à®¢ ­¨¥. ‚ A ¯®¬¥áâ¨â¥ 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨, ¢ B - ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¨ ¢ë¡¥à¨â¥ áâ®à®­ã.
x3E44 OUT (#7F),A ;¯®¬¥é¥­¨¥ ­®¬¥à  ¤®à®¦ª¨ ¢ ॣ¨áâà ¤ ­­ëå
LD A,B ;¯®«ã祭¨¥ ª®¬ ­¤ë ¯®§¨æ¨®­¨à®¢ ­¨ï
OR #18
JP x0800 ;®â¤ ç  ª®¬ ­¤ë ¨§ ॣ.A á ®¦¨¤ ­¨¥¬ INTRQ
;‚­¨¬ ­¨¥!!! ‡¤¥áì ­ã¦­® JP #3D9A, â.ª. #800 £ á¨â ¡¨âë ᪮à®á⨠¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ , á«¥¤®¢ â¥«ì­® ¯®§¨æ¨®­¨à®¢ ­¨¥ à ¡®â ¥â ⮫쪮 á ¡ëáâன ᪮à®áâìî.
;€¤à¥á #3E4C. <20>®§¨æ¨®­¨à®¢ ­¨¥. <20>  ¢å®¤¥ ¢ A ¤®«¦¥­ ¡ëâì 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨,   ¢ B - ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ .
x3E4C OUT (#7F),A ;§ £à㧪  ­®¬¥à  ¤®à®¦ª¨ ¢ ॣ¨áâà ¤ ­­ëå
PUSH BC ;á®åà ­¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ 
LD B,A ;£®«®¢ª  㦥 ᯮ§¨æ¨®­¨à®¢ ­ ?
IN A,(#3F)
CP B
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
PUSH AF ;á®åà ­¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨
LD A,B ;¯®«ã祭¨¥ ª®¬ ­¤ë ¯®§¨æ¨®­¨à®¢ ­¨ï
OR #18
CALL x0800 ;®â¤ ç  ª®¬ ­¤ë ¨§ ॣ.A á ®¦¨¤ ­¨¥¬ INTRQ
;‚­¨¬ ­¨¥!!! <20>®§¨æ¨®­¨à®¢ ­¨¥ ®áãé¥á⢫ï¥âáï ⮫쪮 á ¡ëáâன ᪮à®áâìî ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨, â.ª. ¢ #800 ¨á¯®«ì§ã¥âáï AND #FC. „«ï ¨á¯à ¢«¥­¨ï á¨âã æ¨¨ §¤¥áì ­ã¦­® ¯®áâ ¢¨âì JP #3D9A.
POP AF ;¢®ááâ ­®¢«¥­¨¥ १ã«ìâ â  ¯à®¢¥àª¨ ¯®«®¦¥­¨ï £®«®¢ª¨
RET Z ;¥á«¨ £®«®¢ª  ¡ë«  ᯮ§¨æ¨®­¨à®¢ ­ , â® ¢®§¢à â
PUSH BC ;á®åà ­¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨?
CALL x3DFD ;§ ¤¥à¦ª  ¢ 725779 ⠪⮢
POP BC ;¢®ááâ ­®¢«¥­¨¥ ¢à¥¬¥­¨ ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨
RET ;¢®§¢à â
;€¤à¥á #3E63. <20>®§¨æ¨®­¨à®¢ ­¨¥ £®«®¢ª¨ ¤¨áª®¢®¤ . ‚室: ¢ ॣ.A ãáâ ­®¢¨â¥ «®£¨ç¥áª¨© ­®¬¥à âॡ㥬®© ¤®à®¦ª¨ ¨ ãáâ ­®¢¨â¥ #5CCD. <20>  ¢ë室¥ #5CCD ®¡­ã«ï¥âáï. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#3EA0 (§ ¤¥à¦ª  ¢ 3135098 ⠪⮢).
x3E63 LD C,A ;§ £à㧪  ­®¬¥à  ¤®à®¦ª¨ ¢ ॣ¨áâà C
CALL x0A01 ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
CALL x3E11 ;¡¥à¥¬ ⨯ ¤¨áª®¢®¤ 
AND 2 ;¤¨áª®¢®¤ ¤¢ãåáâ®à®­­¨©?
CALL NZ,x3EAA ;¥á«¨ ¤ , â® ¢ë¡®à áâ®à®­ë
PUSH BC ;á®åà ­¨¬ ­®¬¥à ¤®à®¦ª¨
BIT 7,(HL) ;¤¨áª®¢®¤ 40-¤®à®¦¥ç­ë©?
JR Z,x3E83 ;¥á«¨ ¤ , â® ­®¬¥à  ¤®à®¦¥ª ­¥ ¬¥­ï¥¬
BIT 0,(HL) ;¨á¯®«ì§ã¥¬ ⮫쪮 40 ¤®à®¦¥ª?
JR NZ,x3E83 ;¥á«¨ ­¥â, â® ­®¬¥à  ¤®à®¦¥ª ­¥ ¬¥­ï¥¬
IN A,(#3F) ;¡¥à¥¬ ­®¬¥à ⥪ã饩 ¤®à®¦ª¨
CP C ;£®«®¢ª  㦥 ᯮ§¨æ¨®­¨à®¢ ­ ?
JR Z,x3E82 ;¥á«¨ ¤ , â® ­®¬¥à  ¤®à®¦¥ª ­¥ ¬¥­ï¥¬
RLCA ;¤¥«¨¬ ­®¬¥à ⥪ã饩 ¤®à®¦ª¨ ­  2
OUT (#3F),A
LD A,C ;¤¥«¨¬ ­®¬¥à âॡ㥬®© ¤®à®¦ª¨ ­  2
RLCA
x3E82 LD C,A
x3E83 CALL x3E08 ;¡¥à¥¬ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ 
LD B,A
IN A,(#3F) ;£®«®¢ª  㦥 ᯮ§¨æ¨®­¨à®¢ ­ ?
CP C
PUSH BC ;á®åà ­¨¬ ­®¬¥à âॡ㥬®© ¤®à®¦ª¨
CALL NZ,x3DFD ;¥á«¨ £®«®¢ª  ­¥ ᯮ§¨æ¨®­¨à®¢ ­ , â® § ¤¥à¦ª  ¢ 725779 ⠪⮢
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  âॡ㥬®© ¤®à®¦ª¨
LD A,C
CALL x3E4C ;¯®§¨æ¨®­¨à®¢ ­¨¥
POP BC ;¢®ááâ ­®¢«¥­¨¥ ­®¬¥à  âॡ㥬®© ¤®à®¦ª¨
LD A,C ;ãáâ ­®¢ª  ॣ¨áâà  ¤®à®¦ª¨
OUT (#3F),A
LD A,(#5CCD) ;­ã¦­  § ¤¥à¦ª  ¯®á«¥ ®¯¥à æ¨¨?
OR A
RET Z ;¥á«¨ ­¥â, â® ¢®§¢à â
XOR A ;¢ á«¥¤ãî騩 à § § ¤¥à¦ª  ­¥ ¯®­ ¤®¡¨âáï
LD (#5CCD),A
x3EA0 LD B,3 ;§ ¤¥à¦ª  ¢ 3135098 ⠪⮢
x3EA2 LD A,#FF
CALL x3DFF
DJNZ x3EA2
RET ;¢®§¢à â
;€¤à¥á #3EAA. ‚ë¡®à áâ®à®­ë ¯à¨ ¯®§¨æ¨®­¨à®¢ ­¨¨. ‚室: ¢ C ¯®¬¥áâ¨â¥ «®£¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨ ¨ ¢ë¡¥à¨â¥ ¢¥àå­îî áâ®à®­ã ¤¨áª . ‚ë室: ¡ã¤¥â ¢ë¡à ­  áâ®à®­ ,   ¢ C ¡ã¤¥â 䨧¨ç¥áª¨© ­®¬¥à ¤®à®¦ª¨.
x3EAA LD A,C ;¤¥«¥­¨¥ ­®¬¥à  ¤®à®¦ª¨ ­  2
OR A
RRA
LD C,A
RET NC ;¥á«¨ ­®¬¥à ¤®à®¦ª¨ ¡ë« ç¥â­ë©, â® ¢®§¢à â
JP x1FF6 ;¨­ ç¥ ¢ë¡®à ­¨¦­¥© áâ®à®­ë ¤¨áª 
;€¤à¥á #3EB2. <20>஢¥àª  ¨­¤¥ªá­®© ®¡« á⨠¤®à®¦ª¨. “áâ ­®¢¨â¥ #5CD1 ¨ ¯®¬¥áâ¨â¥ ¢ B ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ . ‚롨ࠥâáï ¢¥àå­ïï áâ®à®­  ¨ ¯à¨ ®è¨¡ª¥ ¢ #5D17 ¯®¬¥é ¥âáï #FF. ‚ ॣ¨áâà H ¯®¬¥é ¥âáï ­®¬¥à ⥪ã饩 ¤®à®¦ª¨. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#3EE7 (®¡à ¡®âª  ®è¨¡ª¨ NO DISC).
x3EB2 CALL x1FEB ;¢ë¡®à ¢¥àå­¥© áâ®à®­ë ¤¨áª 
x3EB5 IN A,(#1F) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à 
AND #80 ;á®åà ­¥­¨¥ ä« £  £®â®¢­®áâ¨
LD (#5CCD),A
IN A,(#3F) ;¡¥à¥¬ ­®¬¥à ⥪ã饩 ¤®à®¦ª¨
LD H,A ;­  á«ãç © ¢®§¢à â 
CALL x3C0D ;¯à¥®¡à §®¢ ­¨¥ ¨ ¢ë¯®«­¥­¨¥ ª®¬ ­¤ë ¨§ ॣ.B
;‚­¨¬ ­¨¥!!! <20>¥à¥¤ CALL #3E44 ¢ ॣ¨áâà B ­ ¤® ¯®¬¥áâ¨âì ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ , ¨­ ç¥ ª®¬ ­¤ , ª®â®à ï ¢ë¯®«­¨âáï ¯¥à¥¤ ¯à®¢¥àª®© § ¢¨á¨â ®â ᮤ¥à¦¨¬®£® ॣ¨áâà  B ­  ¢å®¤¥ ¢ ¯®¤¯à®£à ¬¬ã ¨ ¯®á«¥¤áâ¢¨ï ¬®£ãâ ¡ëâì ¢¥á쬠 ¯« ç¥¢­ë¬¨.
LD C,#7F ; ¤à¥á ॣ¨áâà  ¤ ­­ëå
LD D,1 ;ç¨á«®, ®¯à¥¤¥«ïî饥 ª®«¨ç¥á⢮ ¯®¯ë⮪
DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD A,#C0 ;ç⥭¨¥ ¨­¤¥ªá­®© ®¡« áâ¨
OUT (#1F),A
PUSH BC ;á®åà ­¥­¨¥  ¤à¥á  ॣ¨áâà  ¤ ­­ëå
LD B,3 ;®¯à¥¤¥«ï¥¬ ª®«¨ç¥á⢮ ¯®¯ë⮪
x3ECE IN A,(#FF) ;¡¥à¥¬ á®áâ®ï­¨¥ ᨣ­ «®¢ DRQ ¨ INTRQ
AND #C0
JR NZ,x3EF2 ;¥á«¨ ª ª®©-­¨¡ã¤ì ᨣ­ « ¯®áâ㯨«, â® ­ ç «® ç⥭¨ï
INC DE ;á«¥¤ãîé ï ¯®¯ë⪠
LD A,E
OR D
JR NZ,x3ECE
DJNZ x3ECE ;¯®¢â®à ¤® ª®­æ  ¯®¯ë⮪
POP BC ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ॣ¨áâà  ¤ ­­ëå
EI ;à §à¥è¥­¨¥ ¯à¥à뢠­¨©
LD A,#D0 ;®áâ ­®¢ª  ª®­â஫«¥à 
OUT (#1F),A
LD A,(#5CD1) ;®è¨¡ªã ¨£­®à¨à®¢ âì?
;Žè¨¡ª !!! <20> ¤® LD A,(#5D17).
CP #FF
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
x3EE7 CALL x272B ;ãáâ ­®¢ª  TAPE LOADING ERROR
LD A,#FF ;¢ á«¥¤ãî騩 à § ®è¨¡ªã ¨£­®à¨à®¢ âì
LD (#5D17),A
JP x271B ;®¡à ¡®âª  ®è¨¡ª¨ NO DISC
x3EF2 POP BC ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  ॣ¨áâà  ¤ ­­ëå
IN H,(C) ;ç⥭¨¥ ¯¥à¢®£® ¡ ©â 
x3EF5 IN A,(#FF) ;®¦¨¤ ­¨¥ ª ª®£®-­¨¡ã¤ì ᨣ­ « 
AND #C0
JR Z,x3EF5
EI ;­  á«ãç © ¢®§¢à â 
;Žè¨¡ª !!! ’ ª ¬®¦­® ¯®â¥àïâì ¡ ©â ¯à¨ ç⥭¨¨.
RET M ;¥á«¨ ¯®áâ㯨« INTRQ, â® ¢®§¢à â
DI ;§ ¯à¥â ¯à¥à뢠­¨©
IN A,(#7F) ;ç⥭¨¥ ¡ ©â 
JR x3EF5 ;¯®¢â®à
;€¤à¥á #3F02. ‚ ª®¬¬¥­â à¨ïå ­¥ ­ã¦¤ ¥âáï.
x3F02 LD (#5CFF),A
RET
;€¤à¥á #3F06. <20>®å®¦¥ ­  ¯à¥¤ë¤ã饥.
x3F06 LD (#5D00),HL
RET
;€¤à¥á #3F0A. ‡ ¯¨áì ᥪâ®à . ‘¯®§¨æ¨®­¨àã©â¥ £®«®¢ªã ¨ ãáâ ­®¢¨â¥ #5CFF ¨ #5D00.
x3F0A LD A,#A0 ;ª®¬ ­¤  § ¯¨á¨ ᥪâ®à 
JR x3F10 ;¯¥à¥å®¤ ª ¯®¤¯à®£à ¬¬¥ ç⥭¨ï / § ¯¨á¨ ᥪâ®à 
;€¤à¥á #3F0E. ‡ £à㧪  ᥪâ®à . “áâ ­®¢¨â¥ #5CFF ¨ #5D00 ¨ ᯮ§¨æ¨®­¨àã©â¥ £®«®¢ªã. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á :
;#3F10 (§ £à㧪 /§ ¯¨áì ᥪâ®à ; ãáâ ­®¢¨â¥ ¢á¥ ¤«ï #3F0E ¯«îá ¢ A ¯®¬¥áâ¨â¥ ª®¬ ­¤ã ç⥭¨ï ¨«¨ § ¯¨á¨ ᥪâ®à ).
x3F0E LD A,#80 ;ª®¬ ­¤  ç⥭¨ï ᥪâ®à 
x3F10 LD (#5CFE),A ;ãáâ ­®¢ª  ª®¬ ­¤ë
x3F13 LD D,#A ;10 ¯®¯ë⮪
x3F15 PUSH DE ;á®åà ­¥­¨¥ áç¥â稪  ¯®¯ë⮪
DI ;§ ¯à¥â ¯à¥à뢠­¨©
LD A,(#5CFF) ;ãáâ ­®¢ª  ᥪâ®à 
INC A
OUT (#5F),A
call x0853
; LD HL,(#5D00) ;¡¥à¥¬  ¤à¥á ç⥭¨ï/§ ¯¨á¨
LD C,#7F ;¡¥à¥¬  ¤à¥á ॣ¨áâà  ¤ ­­ëå
LD A,(#5CFE) ;®â¤ ¥¬ ª®¬ ­¤ã
OUT (#1F),A
CP #A0 ;¡ë«  ª®¬ ­¤  § ¯¨á¨ ᥪâ®à ?
PUSH AF
CALL Z,x3FBA ;¥á«¨ ¤ , â® § ¯¨áì ¤ ­­ëå
POP AF
CALL NZ,x3FD5 ;¨­ ç¥ ç⥭¨¥ ¤ ­­ëå
POP DE ;¢®ááâ ­®¢«¥­¨¥ áç¥â稪  ¯®¯ë⮪
EI ;à §à¥è¥­¨¥ ¯à¥à뢠­¨©
IN A,(#1F) ;¡¥à¥¬ á®áâ®ï­¨¥ ª®­â஫«¥à 
LD B,A ;á®å࠭塞 ¥£®
AND #7F ;¢á¥ ¢ ¯®à浪¥?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
x3F39 LD HL,x29D8 ; ¤à¥á á®®¡é¥­¨ï READ ONLY
AND #40 ;§ ¯à¥é¥­  § ¯¨áì?
JR NZ,x3F4B ;¥á«¨ ¤ , â® ¯¥à¥å®¤ ­  ®¡à ¡®âªã ®è¨¡ª¨
LD A,B ;¢®ááâ ­®¢«¥­¨¥ á®áâ®ï­¨ï ª®­â஫«¥à 
AND 4 ;¡ë«  ¯®â¥àï ¤ ­­ëå?
JR Z,x3FA0 ;¥á«¨ ­¥â, â® ®¡à ¡®âª  ¤¨áª®¢ëå ®è¨¡®ª
DEC D ;á«¥¤ãîé ï ¯®¯ë⪠
JR NZ,x3F15 ;¥á«¨ ¯®¯ë⪨ ­¥ ª®­ç¨«¨áì, â® ¯®¢â®à
x3F48 LD HL,x29E2 ; ¤à¥á á®®¡é¥­¨ï DISC ERROR
x3F4B LD A,#D0 ;ª®¬ ­¤  ¯à¥à뢠­¨ï
OUT (#1F),A
LD A,B ;¢®ááâ ­®¢«¥­¨¥ á®áâ®ï­¨ï ª®­â஫«¥à 
AND 1 ;ª®­â஫«¥à ¡ë« § ­ïâ?
JP NZ,x3EE7 ;¥á«¨ ¤ , â® ®¡à ¡®âª  á¨âã æ¨¨ NO DISC
IN A,(#3F) ;¥á«¨ ®è¨¡ª  ¯à®¨§®è«  ¢ ᥪâ®à¥ #A ¤®à®¦ª¨
OR A ;0, â® ¢®§¢à â (¨£­®à¨à®¢ ­¨¥)
JR NZ,x3F5F
IN A,(#5F)
CP #A
RET Z
x3F5F PUSH HL ;á®åà ­¥­¨¥  ¤à¥á  á®®¡é¥­¨ï
CALL x1D97 ;®ç¨á⪠ íªà ­ 
POP HL ;¢®ááâ ­®¢«¥­¨¥  ¤à¥á  á®®¡é¥­¨ï
RST #18 ;¯¥ç âì á®®¡é¥­¨ï
LD HL,x2A13 ;¯¥ç âì TRK:
RST #18
IN A,(#3F) ;¯¥ç âì ­®¬¥à  ¤®à®¦ª¨
CALL x1DA3
LD HL,x2A18 ;¯¥ç âì SEC:
RST #18
IN A,(#5F) ;¯¥ç âì ­®¬¥à  ᥪâ®à 
CALL x1DA3
LD HL,x29FE ;¯¥ç âì RETRY,ABORT,IGNORE?
RST #18
x3F7B CALL x1052 ;¢¢®¤ ª« ¢¨è¨
CP "I" ;­ ¦ â® I?
RET Z ;¥á«¨ ¤ , â® ¢®§¢à â
CP "R" ;­ ¦ â® R?
JR Z,x3F94 ;¥á«¨ ¤ , â® ¯¥à¥¯®§¨æ¨®­¨à®¢ ­¨¥ ¨ ¯®¢â®à
CP "A" ;­ ¦ â® A?
JR NZ,x3F7B ;¥á«¨ ­¥â, â® ¯®¢â®à ¢¢®¤  ª« ¢¨è¨
CALL x272B ;ãáâ ­®¢ª  TAPE LOADING ERROR
LD A,7 ;¤¨áª®¢ ï ®è¨¡ª 
LD (#5D0F),A
JP x01D3 ;§ ¢¥à襭¨¥
x3F94 LD A,(#5CF5) ;¯¥à¥¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x3E63
CALL x3EA0 ;§ ¤¥à¦ª  ¢ 3135098 ⠪⮢
JP x3F13 ;¯®¢â®à
;Žè¨¡ª !!! <20> ¤® JP #3F13 ¤«ï ⮣®, çâ®¡ë ®¡­®¢¨âì ç¨á«® ¯®¯ë⮪.
x3FA0 DEC D ;á«¥¤ãîé ï ¯®¯ë⪠
JP Z,x3F48 ;¥á«¨ ¯®¯ë⪨ ª®­ç¨«¨áì, â® ®¡à ¡®âª  DISC ERROR
PUSH DE ;á®åà ­¥­¨¥ áç¥â稪  ¯®¯ë⮪
CALL x3E08 ;¡¥à¥¬ ¢à¥¬ï ¯¥à¥¬¥é¥­¨ï £®«®¢ª¨ ¤¨áª®¢®¤ 
AND 2 ;®­® à ¢­® #A?
JR NZ,x3FAD
INC (HL) ;¥á«¨ ­¥â, ⮠㢥«¨ç¥­¨¥ ¥£® ­  1
x3FAD CALL x08A7 ;¢®ááâ ­®¢«¥­¨¥
LD A,(#5CF5) ;¯¥à¥¯®§¨æ¨®­¨à®¢ ­¨¥
CALL x3E63
POP DE ;¢®ááâ ­®¢«¥­¨¥ áç¥â稪  ¯®¯ë⮪
JP x3F15 ;¯®¢â®à
;€¤à¥á #3FBA. ‡ ¯¨áì ¤ ­­ëå ­  ¤¨áª. “áâ ­®¢¨â¥ ¢ HL  ¤à¥á ¡«®ª  ¤ ­­ëå, ¢ DE - ç¨á«®, ®¯à¥¤¥«ïî饥 ª®«¨ç¥á⢮ 横«®¢, §  ª®â®à®¥ ¤®«¦­  ­ ç âìáï § ¯¨áì, ¢ C -  ¤à¥á ॣ¨áâà  ¤ ­­ëå ª®­â஫«¥à  ¨ ®â¤ ©â¥ ª®¬ ­¤ã § ¯¨á¨. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤à¥á  #3FCA (â® ¦¥, çâ® ¨ #3FBA, ­® ¡¥§ ®¡à ¡®âª¨ NO DISC).
x3FBA LD B,4 ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ¯®¯ë⮪
x3FBC IN A,(#FF) ;¯®áâ㯨« ª ª®©-­¨¡ã¤ì ᨣ­ «?
AND #C0
JR NZ,x3FD1 ;¥á«¨ ¤ , â® ­ ç¨­ ¥¬ § ¯¨áì
INC DE ;á«¥¤ãîé ï ¯®¯ë⪠
LD A,E
OR D
JR NZ,x3FBC
DJNZ x3FBC
RET ;¥á«¨ ¯®¯ë⪨ ª®­ç¨«¨áì, â® ¢®§¢à â
x3FCA IN A,(#FF) ;¯®áâ㯨« ª ª®©-­¨¡ã¤ì ᨣ­ «?
AND #C0
JR Z,x3FCA ;¥á«¨ ­¥â, â® ®¦¨¤ ­¨¥ ¥£®
RET M ;¥á«¨ ¯®áâ㯨« INTRQ, â® ¢®§¢à â
x3FD1 OUTI ;¢ë¢®¤ ¡ ©â  ¨§ ¢ è¥© ®¡« á⨠¢ ॣ¨áâà ¤ ­­ëå
JR x3FCA ;¯®¢â®à
;€¤à¥á #3FD5. —⥭¨¥ ¤ ­­ëå á ¤¨áª . ‚ᥠãáâ ­®¢ª¨  ­ «®£¨ç­® ¯®¤¯à®£à ¬¬¥ #3FBA, ­® ®â¤ âì ­ã¦­® ª®¬ ­¤ã ç⥭¨ï. ˆá¯®«ì§ã¥âáï â ª¦¥ á  ¤p¥á  #3FE5 (â® ¦¥, çâ® ¨ #3FD5, ­® ¡¥§ ®¡à ¡®âª¨ NO DISC).
x3FD5 LD B,4 ;ãáâ ­®¢ª  ª®«¨ç¥á⢠ ¯®¯ë⮪
x3FD7 IN A,(#FF) ;¯®áâ㯨«® çâ®-­¨¡ã¤ì?
AND #C0
JR NZ,x3FEC ;¥á«¨ ¤ , â® ­ ç¨­ ¥¬ ç¨â âì
INC DE ;á«¥¤ãîé ï ¯®¯ë⪠
LD A,E
OR D
JR NZ,x3FD7
DJNZ x3FD7
RET ;¥á«¨ ¯®¯ë⪨ ª®­ç¨«¨áì, â® ¢®§¢à â
x3FE5 IN A,(#FF) ;¯®áâ㯨« ª ª®©-­¨¡ã¤ì ᨣ­ «?
AND #C0
JR Z,x3FE5 ;¥á«¨ ­¥â, â® ¦¤¥¬ ¥£®
RET M ;¥á«¨ íâ® INTRQ, â® ¢®§¢à â
x3FEC INI ;ç⥭¨¥ ¡ ©â 
JR x3FE5 ;¯®¢â®à
;€„<E282AC>…‘: #3FF0 ¢ë¢®¤ ¢ ¯®àâ
x3FF0 out (c),a
ret
;€„<E282AC>…‘: #3FF3 ç⥭¨¥ ¯®àâ 
x3FF3 in a,(c)
ret
x3FF6 DISPLAY "Free space at ",$,": ",/D,#4000-$," byte(s)"
ds #4000-$,#FF
SAVEBIN "../Build/scorp/NewROM3_Tr-Dos.bin",#0000,#4000
Reference in New Issue View Git Blame Copy Permalink