mirror of
https://github.com/Tolik-Trek/ZX-SP-ROMs.git
synced 2026-06-15 09:21:45 +03:00
10230 lines
216 KiB
Plaintext
Executable File
10230 lines
216 KiB
Plaintext
Executable File
DEVICE ZXSPECTRUM128
|
||
; INCLUDE "!AllConst.asm"
|
||
; INCLUDE "!ram8.asm"
|
||
ORG #0000
|
||
|
||
x5B00 equ #5B00 ; ¯/¯ ¯¥à¥ª«î票ï áâà ¨æ rom0/1 (=x006B)
|
||
x5B14 equ #5B14 ; ¯/¯ ¢®§¢à â ¨§ basic48 (=x007F)
|
||
x5B1D equ #5B1D ; ¯/¯ on error
|
||
x5B2F equ #5B2F ; ¯/¯ ¢¢®¤ rs232
|
||
x5B34 equ #5B34 ; ¯/¯ ¢ë¢®¤ rs232
|
||
x5B4A equ #5B4A ; ¯/¯ ¢ª«îç¥¨ï ¯à¥¤ë¤ã饣® rom bacic48/128 (=x00B5)
|
||
; rs232 ¢ë¢®¤ ᨬ¢®«®¢
|
||
x5B58 equ #5B58 ;2 ¤à¥á ¢ë§ë¢ ¥¬®© ¯/¯ ¨§ basic48
|
||
x5B5A equ #5B5A ;2 ¤à¥á ¢®§¢à â ¢ basic128
|
||
x5B5C equ #5B5C ;1 ᮤ¥à¦¨¬®¥ ¯®àâ #7FFD
|
||
x5B5D equ #5B5D ;1 =#CF rst 8
|
||
x5B5E equ #5B5E ;1 ª®¤ ®è¨¡ª¨ ¤«ï rst 8 basic48
|
||
x5B5F equ #5B5F ;2 rs232 ¡¨âë© ¯¥à¨®¤
|
||
x5B61 equ #5B61 ;2 ä« £ á®áâ®ï¨ï ¢â®à®£® ¯à¨¨¬ ¥¬®£® ᨬ¢®« ¨ ¤ ë¥
|
||
x5B63 equ #5B63 ;1 ⥪ãé ï ª®«®ª
|
||
x5B64 equ #5B64 ;1 è¨à¨ ¯¥ç ⮩ áâà ¨æë
|
||
x5B65 equ #5B65 ;1 ®¬¥à ¯ à ¬¥âà ®¦¨¤ ¥¬®£® rs232
|
||
x5B66 equ #5B66 ;1 ä« £¨
|
||
x5B67 equ #5B67 ;10 ¨¬ï ä ©«
|
||
x5B71 equ #5B71 ;1 ⨯ ä ©«
|
||
x5B72 equ #5B72 ;2 ¤«¨ ¡«®ª
|
||
x5B74 equ #5B74 ;2 ç «ìë© ¤à¥á ¡«®ª
|
||
x5B76 equ #5B76 ;2 ¤«¨ ¯à®£à ¬¬ë
|
||
x5B78 equ #5B78 ;2 ®¬¥à áâப¨
|
||
x5B7A equ #5B7A ;1 ⨯ ä ©«
|
||
x5B7B equ #5B7B ;???
|
||
x5B7E equ #5B7E ;??? 2 ¤«¨ ¡«®ª
|
||
x5B7F equ #5B7F ;2 ¤«¨ ¯à®£à ¬¬ë
|
||
x5B81 equ #5B81 ;2 áâ àë© SP ¯à¨ ¨á¯®«ì§®¢ ¨¨ TSTACK
|
||
x5B83 equ #5B83 ;2 ¯®¨â¥à ᢮¡®¤®£®¬¥áâ ¢ directory
|
||
x5B85 equ #5B85 ;3 ª®«¨ç¥á⢮ ᢮¡®¤ë© ¡ ©â
|
||
x5B88 equ #5B88 ;1
|
||
x5B89 equ #5B89 ;1
|
||
x5B8A equ #5B8A ;1
|
||
x5B8B equ #5B8B ;2 ¢®§¢à â ¤à¥á ¤«ï on err 32768
|
||
x5B8D equ #5B8D ;5 ¯®á«¥¤ïï ¤«¨ , ¢ë¢®¤¨¬ ï ¯à¨ ¢ëç¨á«¥¨ïå
|
||
x5B92 equ #5B92 ;2 ®¬¥à áâப¨ ¤«ï renumber
|
||
x5B94 equ #5B94 ;2 ®¢ë© ®¬¥à áâப¨ ç « ¯à¨ ¯¥à¥ã¬¥à 樨
|
||
x5B96 equ #5B96 ;2 ¯à¨à 饨¥ ®¬¥à áâப¨ ¤«ï ¯¥à¥ã¬¥à 樨
|
||
x5B98 equ #5B98 ;8 STRIP1
|
||
x5BA0 equ #5BA0 ;8 STRIP2
|
||
x5BA8 equ #5BA8 ;áâíª
|
||
x5BFF equ #5BFF ;¢¥àè¨ áâíª
|
||
|
||
;Ram7.
|
||
;#EC0C - 1 ®¬¥à ⥪ã饩 ®¯æ¨¨ ¬¥î basic128
|
||
;#EC0D - 1 ä« £¨
|
||
; 1,=1 ⥪ã饥 ¬¥î: ®á®¢®¥ ¬¥î basic128
|
||
;#EC0E - 1 ???
|
||
;#EC0F - 2 ¯®áâ®ïë¥ âਡãâë íªà ¤«ï 128 TR-DOS
|
||
;#EC11 - 2 ¢à¥¬¥ë¥ âਡãâë íªà ¤«ï 128 TR-DOS
|
||
;#EC13 - 1 ¯ à ¬¥âàë ¢ë¢®¤ íªà ¤«ï 128 TR-DOS
|
||
;#F6EC - 2 ¤à¥á ᯨ᪠®¯æ¨© ¬¥î
|
||
|
||
Rom1.x0010 equ #0010 ;¯¥ç âì ᨬ¢®« ¨§ A
|
||
Rom1.x0013 equ #0013 ; ¤à¥á á ¡ ©â®¬ #FF ¢ rom 1
|
||
Rom1.x0018 equ #0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
Rom1.x0020 equ #0020 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
Rom1.x0028 equ #0028 ;¢ë§®¢ ª «ìªã«ïâ®à
|
||
Rom1.x0030 equ #0030 ;१¥à¢¨à®¢ ¨¥ ¯ ¬ïâ¨
|
||
Rom1.x0038 equ #0038 ;®¡à ¡®â稪 ¯à¥àë¢ ¨©
|
||
Rom1.x0095 equ #0095 ;⮪¥ë ¡¥©á¨ª
|
||
Rom1.x03B5 equ #03B5 ;beep
|
||
Rom1.x0761 equ #0761 ;LOAD/MERGE/VERIFY
|
||
Rom1.x08CE equ #08CE ;MERGE
|
||
Rom1.x0970 equ #0970 ;SAVE
|
||
Rom1.x0B52 equ #0B52 ;¯¥ç âì ⮪¥
|
||
Rom1.x0C0A equ #0C0A ;¯¥ç âì á®®¡é¥¨ï
|
||
Rom1.x0D4D equ #0D4D ;ª®¯¨à ¢®¨¥ âਡã⮢
|
||
Rom1.x0D6B equ #0D6B ;CLS
|
||
Rom1.x0D6E equ #0D6E ;®âªàëâì ª «
|
||
Rom1.x0DAF equ #0DAF ;®ç¨áâ¨âì íªà
|
||
Rom1.x0E88 equ #0E88 ;à áç¥â ¤à¥á ¢ âਡãâ å ¯® ª®®à¤¨ â ¬
|
||
Rom1.x0E9B equ #0E9B ;à áç¥â ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
Rom1.x0F85 equ #0F85 ;¤®¡ ¢¨âì ª®¤ ¢ áâபã
|
||
Rom1.x107F equ #107F
|
||
Rom1.x1097 equ #1097 ;®ç¨á⪠¯ ¬ïâ¨
|
||
Rom1.x10DB equ #10DB ;®¡à ¡®âª ª®¤ ª« ¢¨è¨
|
||
Rom1.x1303 equ #1303 ;®á®¢®© 横« basic 48
|
||
Rom1.x1391 equ #1391
|
||
Rom1.x1536 equ #1536
|
||
Rom1.x15EF equ #15EF ;¯¥ç âì ᨬ¢®« ¨§ a
|
||
Rom1.x1601 equ #1601 ;®âªàëâì ª «
|
||
Rom1.x1615 equ #1615 ;ãáâ ®¢ª ä« £®¢ ª « (¢®§¢à ⠯।ë¤ã饣® ª « )
|
||
Rom1.x1655 equ #1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
Rom1.x1661 equ #1661 ;lddr, ret
|
||
Rom1.x1664 equ #1664 ;®¡®¢«¥¨¥ á¨á⥬ëå ¯¥à¥¬¥ëå
|
||
Rom1.x1695 equ #1695 ;¯®«ãç¨âì ¤à¥á ¯¥à¢®© áâப¨ ¯à®£à ¬¬ë
|
||
Rom1.x16B0 equ #16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
Rom1.x16BF equ #16BF ;®ç¨áâª à ¡®ç¥£® ¡ãä¥à
|
||
Rom1.x16C5 equ #16C5 ;¢®ááâ ®¢«¥¨¥ áâíª
|
||
Rom1.x1825 equ #1825 ;LIST-5
|
||
Rom1.x18B6 equ #18B6 ;¯à®¯ã᪠âãà «ì®£® ç¨á«
|
||
Rom1.x196E equ #196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
Rom1.x198B equ #198B ;¯®¨áª ª®¬ ¤ë ¢ áâப¥
|
||
Rom1.x19B8 equ #19B8 ;¯®¨áª ¤à¥á ç « á«¥¤ãî饩 áâப¨ ¯à®£à ¬¬ë
|
||
Rom1.x19E5 equ #19E5 ;㤠«¨âì ¯¥à¥¬¥ë¥
|
||
Rom1.x19E8 equ #19E8 ;㤠«¨âì ¬ áᨢ DIM
|
||
Rom1.x19FB equ #19FB ;¯®«ãç¨âì ®¬¥à । ªâ¨à¥¬®© áâப¨
|
||
Rom1.x1A1B equ #1A1B ;¯¥ç âì ®¬¥à áâப¨
|
||
Rom1.x1C1F equ #1C1F ;®¡à ¡®âª ª« áá #01
|
||
Rom1.x1C56 equ #1C56 ;¯®«ªç¨âì § 票¥ ¯ à ¬¥âà
|
||
Rom1.x1C6C equ #1C6C ;FOR i
|
||
Rom1.x1C7A equ #1C7A ;¯®«ã票¥ ¤¢ãå § 票©
|
||
Rom1.x1C82 equ #1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
Rom1.x1C8C equ #1C8C ;¯ à ¬¥âà - áâப
|
||
Rom1.x1CBE equ #1CBE ;ãáâ ®¢ª ¥®¡ï§ ⥫ìëå âਡã⮢ ¤«ï ¯¥ç â¨
|
||
Rom1.x1CDE equ #1CDE ;¯®«ã票¥ ¯ à ¬¥âà -ç¨á«
|
||
Rom1.x1CE6 equ #1CE6 ;®«ì áâíª ª «ìªã«ïâ®à
|
||
Rom1.x1D16 equ #1D16 ;
|
||
Rom1.x1D86 equ #1D86 ;¯®¨áª ®¯¥à â®à
|
||
Rom1.x1E39 equ #1E39 ;¯à®¢¥à¨âì ¨áâàãªæ¨î DATA ¨«¨ DEF FN
|
||
Rom1.x1E45 equ #1E45
|
||
Rom1.x1E67 equ #1E67 ;ª®¬ ¤ GO TO
|
||
Rom1.x1E99 equ #1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
Rom1.x1F05 equ #1F05 ;¯à®¢¥àª «¨ç¨ï ᢮¡®¤®© ¯ ¬ïâ¨
|
||
Rom1.x1FDF equ #1FDF ;PRINT_2
|
||
Rom1.x2048 equ #2048 ;PR-ST-END
|
||
Rom1.x2070 equ #2070 ;㦮 «¨ ¨§¬¥ïâì ¯®â®ª?
|
||
Rom1.x20A0 equ #20A0 ;¢¢®¤ á ª« ¢¨ âãàë
|
||
Rom1.x20C1 equ #20C1 ;¢¢®¤ ¤ ëå ¯® input
|
||
Rom1.x21FC equ #21FC ;¨§¬¥¥¨¥ ¢à¥¬¥ëå âਡã⮢
|
||
Rom1.x22AA equ #22AA ;à ááç¨â âì ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
Rom1.x22E9 equ #22E9 ;¯¥ç âì â®çª¨
|
||
Rom1.x232D equ #232D ;¯¥ç âì ®ªà㦮áâ¨
|
||
Rom1.x2394 equ #2394 ;¯¥ç âì «¨¨¨
|
||
Rom1.x2477 equ #2477 ;¯¥ç âì «¨¨¨
|
||
Rom1.x24FB equ #24FB ;¨é¥¬ á«¥¤ãî饥 ¢ëà ¦¥¨¥
|
||
Rom1.x2530 equ #2530 ;¯à®¢¥àª ä« £ ¯à®¢¥àª /¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
Rom1.x28B2 equ #28B2 ;LOOK-VARS
|
||
Rom1.x2996 equ #2996 ;¯à®¢¥àª ¥ á¨â ªá¨á ¢ëà ¦¥¨ï, § ª«î祮£® ¢ ᪮¡ª¨
|
||
Rom1.x2BF1 equ #2BF1 ;¯à®ç¨â âì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
Rom1.x2C15 equ #2C15 ;D-RUN
|
||
Rom1.x2C8D equ #2C8D ;íâ® ¡ãª¢ ?
|
||
Rom1.x2D1B equ #2D1B ;íâ® æ¨äà ?
|
||
Rom1.x2D2B equ #2D2B ;bc áâíª ª «ìªã«ïâ®à
|
||
Rom1.x2DA2 equ #2DA2 ;¨§¢«¥çì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
Rom1.x2DE3 equ #2DE3 ;¯¥ç âì ç¨á« á ¯« ¢ î饩 â®çª®©
|
||
Rom1.x30A9 equ #30A9 ;hl=hl*de
|
||
Rom1.x33B4 equ #33B4 ;¯®¬¥áâ¨âì ç¨á«® á¬íª ª «ìªã«ïâ®à
|
||
Rom1.x34E9 equ #34E9 ;¯à®¢¥àª § ç¥¨ï ®«ì
|
||
Rom1.x3B01 equ #3B01 ;
|
||
Rom1.x3C04 equ #3C04 ;¯à®¢¥àª Break ¨ ¢ë§®¢ â¥áâ íªà
|
||
|
||
Rom1.x03F8 equ #03F8 ; BEEP routine in ROM 1.
|
||
;Rom1.x0D6B equ #0D6B ; CLS routine in ROM 1
|
||
Rom1.x16E5 equ #16E5 ; CLOSE # routine in ROM 1
|
||
Rom1.x1736 equ #1736 ; OPEN # routine in ROM 1
|
||
Rom1.x1A0D equ #1A0D ; CLEAR routine in ROM 0
|
||
Rom1.x1CEE equ #1CEE ; STOP routine in ROM 1
|
||
Rom1.x1DAB equ #1DAB ; NEXT routine in ROM 1
|
||
Rom1.x1E42 equ #1E42 ; RESTORE routine in ROM 1
|
||
Rom1.x1E4F equ #1E4F ; RANDOMIZE routine in ROM 1
|
||
Rom1.x1E5F equ #1E5F ; CONTINUE routine in ROM 1
|
||
;Rom1.x1E67 equ #1E67 ; GO TO routine in ROM 1
|
||
Rom1.x1E7A equ #1E7A ; OUT routine in ROM 1
|
||
Rom1.x1E80 equ #1E80 ; POKE routine in ROM 1
|
||
Rom1.x1F3A equ #1F3A ; PAUSE routine in ROM 1
|
||
Rom1.x2294 equ #2294 ; BORDER routine in ROM 1
|
||
Rom1.x22DC equ #22DC ; PLOT routine in ROM 1
|
||
|
||
|
||
|
||
;#0000 ¢ª«î票¥ ª®¬¯ìîâ¥à /"宫®¤ë©" áâ àâ
|
||
;#0004 ¢å®¤ ¢ ¬®¨â®à NMI/rst 8
|
||
;#0008 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
;#000D ¢®§¢à â ¨§ ¬®¨â®à
|
||
;#0010 rst #10 ¯¥ç âì ᨬ¢®« ¨§ A
|
||
;#0014 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
;#0018 ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
;#001C ¯¥à¥å®¤ ¢ rom2 ¯à¨ à¥á¥â¥
|
||
;#0020 ¯®«ã票¥ á«¥¤ãî饣® ᨬ¢®« ¨§ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#0024 ¯¥à¥å®¤ ¢ rom2 ¯à¨ rst #08
|
||
;#0028 ¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
;#0038 ®¡à ¡®â稪 ¯à¥àë¢ ¨©
|
||
;#004A ®¡à ¡®â稪 ®è¨¡®ª basic 128
|
||
;#005C ¢ë§®¢ ¯à®æ¥¤ãàë (¯à®¤®«¦¥¨¥ rst #28)
|
||
;#006B ¯/¯ ¯¥à¥ª«î票ï áâà ¨æ rom0/1 ª®¯¨àã¥âáï ( ¤à¥á x5B00)
|
||
;#007F áî¤ ¢®§¢à â ¯®á«¥ ®âà ¡®âª¨ ¯/¯ ¯® rst #28 (=#5B14)
|
||
;#0088 ®¡à ¡®â稪 ®è¨¡®ª basic 128k
|
||
;#009A ¢¢®¤ ¨§ ª « "P"
|
||
;#009F ¢ë¢®¤ ¢ ª « "P"
|
||
;#00B5 ¢ë室 ¨§ ¯à®æ¥¤ãàë ¢¢®¤ /¢ë¢®¤ ¢ ª « "P" (¢ª«î票¥ ¯à¥¤ë¤ã饣® rom basic48/128)
|
||
;#00C3 ®¡à ¡®â稪 ®è¨¡®ª basic 128k
|
||
;#00C7 ¢å®¤ ¨§ ¬®¨â®à ¯®á«¥ "宫®¤®£® áâ àâ "
|
||
;#00ED ¢å®¤ ¨§ ¬®¨â®à ¯®á«¥ "⥯«®£® áâ àâ "
|
||
;#0100 !!!NOT USED!!! ª¥à «ì ¯à®æ¥¤ãà
|
||
;#0131 ®è¡ª ¯à®¢¥àª¨ ¯ ¬ï⨠(¡¨â ï ¯ ¬ïâì)
|
||
;#0137 ¨¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥ëå ¨ ¯¥ç âì ¬¥î 128k
|
||
;#019D ª®¬ ¤ NEW
|
||
;#026B ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
;#02BA áî¤ ¢®§¢à é ¥¬áï ¯®á«¥ ¯à®¢¥àª¨ á¨â ªá¨á ¡¥©á¨ª
|
||
;#0321 ®¡à ¡®â稪 ®è¨¡®ª
|
||
;#03EF ®¡à ¡®â稪 ®è¨¡®ª
|
||
;#03F7 ¢áâ ¢ª áâப¨ ¯à®£à ¬¬ë
|
||
;#046C ¤à¥á á®®¡é¥¨© ®¡ ®è¨¡ª å
|
||
;#048C á®®¡é¥¨ï ®¡ ®è¨¡ª å
|
||
;#057D ¯¥ç âì áâப¨ ¨§ de
|
||
;#0589 ¨ä®à¬ æ¨ï ® ª « å
|
||
;#059E ¨ä®à¬ æ¨ï ® ¯®â®ª å
|
||
;#05AC ®¡à ¡®âª ®è¨¡ª¨
|
||
;#05D6 ¯à®¢¥àª ¦ â¨ï break ¨ ¯¥ç âì á®®¡é¥¨ï
|
||
;#05E6 RS232 ¢¢®¤ ¨ ¢ë¢®¤
|
||
;#0641 ª®¬ ¤ FORMAT
|
||
;#06D8 ¯à®æ¥¤ãà ¢¢®¤ ¨§ RS232
|
||
;#06E5 ç⥨¥ ¡ ©â ¨§ RS232
|
||
;#07CA ¯à®æ¥¤ãà ¢ë¢®¤ ¢ RS232
|
||
;#0822 ¯¥à¥¢®¤ áâப¨ ¯à¨â¥à¥
|
||
;#082B !!!NOT USED!!! ¢§¢à â ª à¥âª¨ ¯à¨â¥à¥
|
||
;#0830 ¯à®¤®«¦¥¨¥ x07CA ¯à®æ¥¤ãà ¢ë¢®¤ ¢ RS232
|
||
;#08A3 ¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
;#08B1 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
;#08D1 ¢ª«î票¥ ª®¬¯ìîâ¥à /"宫®¤ë©" áâ àâ
|
||
;#08E1 !!!NOT USED!!! ¢å®¤ ªã¤ -â®
|
||
;#08EE ¢®§¢à â ¨§ x08A3
|
||
;#08F0 ª®¬ ¤ COPY
|
||
;#0915 ¯¥ç âì ¯®«®¢¨ë áâப¨
|
||
;#095F ¯¥à¥¤ ç ¯à¨â¥à ã¯à ¢«ïî饣® ª®¤
|
||
;#096D ¯à®¢¥à¨âì ¯¨ªá¥«ì íªà ¥
|
||
;#0979 ã¯à ¢«ïî騥 ª®¤ë ¯à¨â¥à Epson
|
||
;#0985 ª®¬ ¤ PLAY
|
||
;!!!not used!!! #0E89 ç⥨¥ ॣ¨áâà AY
|
||
;#0E93 £ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
;#11EB ª®¬ ¤ SAVE
|
||
;#11F2 ª®¬ ¤ LOAD
|
||
;#11F2 ª®¬ ¤ VERIFY
|
||
;#1200 ª®¬ ¤ MERGE
|
||
;#1219 ®è¨¡ª C Nonsense in BASIC
|
||
;#121D à ¡®â á RAM ¤¨áª®¬
|
||
;#137E § £à㧪 ¤ ëå á RAM ¤¨áª
|
||
;#1385 ¯®«ãç¨âì ¢ëà ¦¥¨ï ¨§ áâப¨ ¡¥©á¨ª
|
||
;#1393 ¯à®¢¥àª ¨ ª®¯¨à®¢ ¨¥ ¨¬¥¨ ä ©«
|
||
;#13BE à ¡®â á «¥â®©/RAM ¤¨áª®¬
|
||
;#152F ¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
;#1630 ®ç¨á⪠®ª । ªâ¨à®¢ ¨ï
|
||
;#1639 ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¥àå ¨ ®¡®¢«¥¨¥ íªà
|
||
;#1648 ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¥àå ¨ ®¡®¢«¥¨¥ íªà
|
||
;#166F ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
;#1675 ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
;#16AC ¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#16C1 ¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï ᮠᤢ¨£®¬ ¢«¥¢®
|
||
;#16DC á¬¥é¥¨ï ¤® ¯ à ¬¥â஢ ª®¬ ¤ë
|
||
;#170E á¨â ªá¨ç¥áª¨¥ ¯ à ¬¥âàë ª®¬ ¤ ( «®£¨ç® basic 48 #1A7A)
|
||
;#17AF «¨§ ¨ ¢ë¯®«¥¨¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#18B5 â ¡«¨æ ᬥ饨© ¤® ¯à®æ¥¤ãà ®¡à ¡®âª¨ ª« áá ®¯¥à â®à
|
||
;#18C4 ¯à®æ¥¤ãàë ®¡à ¡®âª¨ ª« áᮢ
|
||
;#1967 ¯à®æ¥¤ãàë ®¡à ¡®âª¨ ª®¬ ¤ ¡¥©á¨ª
|
||
;#1AF1 ¯ãªâ ¬¥î Tape Loader
|
||
;#1B11 «¨§ ¨ ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
;#1B14 ¯ãªâ ¬¥î । ªâ®à Print (¯¥ç âì ¯à¨â¥à)
|
||
;#1B2B ª®¬ ¤ SPECTRUM
|
||
;#1B47 ¯ãâ ¬¥î BASIC 48. ¢ª«î票¥ basic48, ¡«®ª¨à®¢ª #7FFD ¨ ¯¥à¥å®¤ ¤à¥á #0000
|
||
;#1B4A ¢ª«î票¥ basic48, ¡«®ª¨à®¢ª #7FFD ¨ ¯¥à¥å®¤ ¤à¥á ¢ hl
|
||
;#1B53 ãáâ ®¢ª ª « 'P'
|
||
;#1B6E ¤ ë¥ ¤«ï ª®¬ ¤ë LOAD ""
|
||
;#1B71 ª®¬ ¤ LIST
|
||
;#1B75 ª®¬ ¤ LIST
|
||
;#1BAD ª®¬ ¤ RAM disk SAVE!
|
||
;#1BE5 ª®¬ ¤ RAM disk CAT!
|
||
;#1C0C ª®¬ ¤ RAM disk EARSE!
|
||
;#1C2E § £à㧪 § £®«®¢ª ä ©« ¨§ RAM ¤¨áª
|
||
;#1C4B § £à㧪 ¨§ RAM ¤¨áª
|
||
;#1C64 ¢ª«î票¥ «®£¨ç¥áª®© áâà ¨æë ¢ A
|
||
;#1C87 áà ¢¥¨¥ ¨¬¥¨ ä ©« á § ¤ ë¬
|
||
;#1C97 ᮧ¤ ¨¥ ®¢®© § ¯¨á¨ ¢ ª â «®£¥ RAM-¤¨áª
|
||
;#1CF3 ª®à४æ¨ï ᢮¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
;#1D12 ¯®¨áª ¨¬¥¨ ä ©« ¢ ª â «®£¥
|
||
;#1D35 ¯®¨áª ä ©« RAM ¤¨áª¥
|
||
;#1D56 ®¡®¢«¥¨¥ § ¯¨á¨ ª â «®£
|
||
;#1DAC á®åà ¥¨¥ ¤ ëå RAM ¤¨áª¥
|
||
;#1E37 § £à㧪 ¤ ëå á RAM ¤¨áª
|
||
;#1ECF !!!NOT USED!!! § ¯¨áì ¤ ëå ¢ RAM 7
|
||
;#1F04 !!!NOT USED!!! ç⥨¥ ¤ ëå ¨§ RAM 7
|
||
;#1F20 ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
;#1F3A ¢ª«î票¥ áâà ¨æë ram
|
||
;#1F45 ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
;#1F5F 㤠«¥¨¥ ä ©« ¨§ RAM ¤¨áª
|
||
;#20D2 ¯¥ç âì ª â «®£ RAM ¤¨áª
|
||
;#2135 ¯¥ç âì ®¤®© § ¯¨á¨ ª â «®£ RAM ¤¨áª
|
||
;#2174 ª®¬ ¤ LPRINT
|
||
;#2178 ª®¬ ¤ PRINT
|
||
;#218C ª®¬ ¤ INPUT
|
||
;#21A7 ª®¬ ¤ COPY
|
||
;#21AA ª®¬ ¤ NEW
|
||
;#21AE ª®¬ ¤ CIRCLE
|
||
;#21BE ª®¬ ¤ DRAW
|
||
;#21D5 ª®¬ ¤ DIM
|
||
;#21EF ®ç¨á⪠íªà
|
||
;#21F8 ¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
;#226F ®¡à ¡®âª ¦ ⮩ ª« ¢¨è¨
|
||
;#228E ¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
;#2297 ¯à®¢¥àª íâ® ª®¬ ¤ LET? (ª «ìªã«ïâ®à basic 128)
|
||
;#22AB ¯à®¢¥àª íâ® ®¯¥à â®à?
|
||
;#22BD ᯨ᮪ ⮪¥®¢ ®¯¥à â®à®¢
|
||
;#22CB ¯à®¢¥àª í⮠⮪¥?
|
||
;#22E0 ¯à®¢¥àª íâ® ç¨á«® ¨«¨ äãªæ¨ï
|
||
;#230A ¯à®¢¥àª íâ® æ¨äà ¨«¨ ¥â
|
||
;#2317 ª®¬ ¤ PLAY
|
||
;#2336 !!!NOT USED!!! ¢®§¢à â ¢ । ªâ®à
|
||
;#2342 !!!NOT USED!!! bc=hl-de
|
||
;#234A !!!NOT USED!!! § १¥à¢¨à®¢ âì ¯ ¬ïâì 1 ¡ ©â
|
||
;#2358 !!!NOT USED!!! ¯à®¢¥àª ¤®áâ㯮á⨠¬¥áâ ¢ ¯ ¬ïâ¨ à §¬¥à®¬ ¢ bc
|
||
;#236F !!!NOT USED!!! hl=a*#20
|
||
;#2371 !!!NOT USED!!! hl=a*#08
|
||
;#2378 !!!NOT USED!!! à áç¥â ᢮¡®¤®£® ¬¥áâ
|
||
;#2384 !!!NOT USED!!! ¯¥ç âì íªà ¥ áâப¨ ¨§ ¡ãä¥à
|
||
;#23B8 !!!NOT USED!!! ¯¥ç âì ¢ ¡ãä¥à¥ #FF
|
||
;#23CB !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¡ãä¥à íªà
|
||
;#23E1 !!!NOT USED!!! ¯¥ç âì ᨬ¢®«®¢ ¨§ ¡ãä¥à íªà ¥
|
||
;#2456 !!!NOT USED!!! ¯¥à¥ª«î票¥ áâà ¨æ rom 0/1
|
||
;#2464 !!!NOT USED!!! ¯¥à¥ª«î票¥ áâà ¨æ rom 0/1
|
||
;#246F !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¯/¯ ¢ ram 7
|
||
;#2488 !!!NOT USED!!! ãáâ ®¢ª âਡã⮢ ¨§ ¡ãä¥à íªà
|
||
;#249B !!!NOT USED!!! ãáâ ®¢ª âਡã⮢ ¨§ ¡ãä¥à íªà
|
||
;#2513 !!!NOT USED!!! ¯®¬¥ïâì ¬¥áâ ¬¨ ink ¨ paper
|
||
;#2537 â ¡«¨æ ¤à¥á®¢ ®¡à ¡®âª¨ ¦ ⨩ ¢ ०¨¬¥ । ªâ¨à®¢ ¨ï
|
||
;#2577 â ¡«¨æ ¤à¥á®¢ ®¡à ¡®âª¨ ¦ ⨩ ¢ ®á®¢®¬ ¬¥î basic 128k
|
||
;#2584 ¯®¤£®â®¢ª ¯¥à¥¬¥ëå
|
||
;#259F ¯¥ç âì £« ¢®£® ¬¥î basic 128 ¨ ¢ë¡®à ®¯æ¨¨
|
||
;#25CB ¢®§¢à â ¢ । ªâ®à/ª «ìªã«ïâ®à/¬¥î ¯®á«¥ ®¡à ¡®âª¨ ®è¨¡ª¨
|
||
;#2653 ®á®¢®© 横« ¢ basic128/ª «ìªã«ïâ®à
|
||
;#2669 ®¡à ¡®âª ¦ â¨ï ª« ¢¨è¨
|
||
;#269B ext+ss+8/Graph+Z ¯¥à¥ª«î票¥ ¬¥¦¤ã । ªâ¨à®¢ ¨¥¬ ¢¨§ã ¨ ¢¢¥àåã
|
||
;#26BB ¢ë¡®à ¨¦¥£® íªà
|
||
;#26CE ¢ë¡®à ¢¥à奣® íªà
|
||
;#26E7 §¢ãª®¢®© ᨣ «
|
||
;#26EC §¢ãª®¢®© ᨣ «
|
||
;#26FA §¢ãª®¢®© ᨣ «
|
||
;#2704 cs+1 ¢ë§®¢ ¬¥î
|
||
;#2717 ¦ ⨥ cs+1/enter ¢ £« ¢®¬ ¬¥î
|
||
;#272E ªãàá®à ¢¢¥àå ¢ £« ¢®¬ ¬¥î
|
||
;#2731 ªãàá®à ¢¨§ ¢ £« ¢®¬ ¬¥î
|
||
;#2744 ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ®á®¢®£® ¬¥î basic 128k
|
||
;#2754 ⥪á⠮ᮢ®£® ¬¥î basic 128k
|
||
;#278D !!!NOT USED!!!
|
||
;#2790 ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ¬¥î ¢ । ªâ®à¥ basic 128
|
||
;#27A0 ⥪áâ ¬¥î ¢ । ªâ®à¥ basic 128
|
||
;#27CB ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ¬¥î ¢ ª «ìªã«ïâ®à¥
|
||
;#27D2 ⥪áâ ¬¥î ¢ ª «ìªã«ïâ®à¥
|
||
;#27EB !!!NOT USED!!!
|
||
;#2811 ᬥ ®¡« á⨠। ªâ¨à®¢ ¨ï ¨§/¢¥àå
|
||
;#2816 ¢ë¡®à ®¯æ¨¨ 128 TR-DOS
|
||
;#281‘ ¢ë室 ¨§ । ªâ®à /ª «ìªã«ïâ®à ¢ £« ¢®¥ ¬¥î
|
||
;#2831 ¢ë¡®à ®¯æ¨¨ 48 TR-DOS (¢å®¤ ¢ Tr-Dos 48k)
|
||
;#283E !!!NOT USED!!!
|
||
;#2851 ¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
;#2862 ¯¥ç âì ¯à®£à ¬¬ë ¯à¨â¥à¥
|
||
;#286C ¢ë¡®à ®¯æ¨¨ 128 BASIC
|
||
;#2885 ¢ë¡®à ®¯æ¨¨ ª «ìªã«ïâ®à
|
||
;#28BE ¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
;#28C7 ¢®§¢à â ¢ £« ¢®¥ ¬¥î
|
||
;#28DF ¨¨æ¨ «¨§ æ¨ï áâ஥ª ¨¦¥£® ®ª
|
||
;#28E8 ¨¨æ¨ «¨§ æ¨ï áâ஥ª ¢¥à奣® ®ª
|
||
;#28F1 ®¡à ¡®âª ¦ â¨ï ᨬ¢®«ì®© ª« ¢¨è¨
|
||
;#291B ext+ss+K 㤠«¥¨¥ ᨬ¢®« á¯à ¢ ®â ªãàá®à
|
||
;#292B delete 㤠«¥¨¥ ᨬ¢®« á«¥¢ ®â ªãàá®à
|
||
;#2944 enter ¢¢®¤ áâப¨
|
||
;#2983 ext+N/Graph+W ¯¥à¥å®¤ ª ¯¥à¢®© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#29AB ext+T/Graph+V ¯¥à¥å®¤ ª ¯®á«¥¤¥© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#29D4 ext+I ¯¥à¥å®¤ ª ç «ã ⥪ã饣® á«®¢
|
||
;#29E1 ext+shift+J ¯¥à¥å®¤ ª ç «ã á«¥¤ãî饣® á«®¢
|
||
;#29EC 㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
;#29F2 ¯¥ç â âì ªãàá®à
|
||
;#29F8 ¯¥ç â âì ªãàá®à
|
||
;#2A07 ¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
;#2A11 á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
;#2A1A ¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#2A25 ss+I ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2A4F ext+P ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2A7A ext+M/graph+X ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢ ª®¥æ áâப¨ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2A87 ext+ss+2/Graph+Y ¯¥à¥å®¤ ª ç «ã áâப¨ । ªâ¨à®¢ ¨ï
|
||
;#2A94 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2AB5 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2AD7 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢«¥¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2AE3 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¯à ¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
;#2AF9 ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
;#2B02 ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
;#2B0B ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨ ¢ ¡ãä¥à¥ ¢¨§ ¨ ®¡®¢¨âì í¥ªà
|
||
;#2B30 ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨ ¢ ¡ãä¥à¥ ¢¢¥àå ¨ ®¡®¢¨âì í¥ªà
|
||
;#2B5B ¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
;#2B78 ¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
;#2BD4 ¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
;#2BDF ¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
;#2BEA ¯®¨áª ç « á«®¢ á«¥¢ ®â ªãàá®à
|
||
;#2C09 ¯®¨áª ç « á«®¢ á¯à ¢ ®â ªãàá®à
|
||
;#2C31 ¯®¨áª ç « áâப¨ । ªâ¨à®¢ ¨ï ¢ ¡ãä¥à¥
|
||
;#2C4C ¯®¨áª ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#2C68 ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
;#2C7C ¢áâ ¢¨âì áâப㠢 ¡¥©á¨ª ¯à®£à ¬¬ã, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
;#2C8E ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#2D54 ¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#2D8F ¯®«ãç¨âì ᨬ¢®« ¨§ ⥪ã饩 ¯®§¨æ¨¨ ªãàá®à ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#2E0E ¯®«ãç¨âì ᨬ¢®« ¨§ áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#2E1F á¡à®á ¢¥à奣® ®ª । ªâ¨à®¢ ¨ï
|
||
;#2E2D á¡à®á ¨¦¥£® ®ª । ªâ¨à®¢ ¨ï
|
||
;#2E41 ¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
;#2E63 ¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
;#2E7B ç⥨¥ ᨬ¢®« ¨§ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#2E81 ¢áâ ¢ª ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#2ECE ¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#2ED3 ¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#2F12 㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#2F80 ᤢ¨£ áâப ¢¢¥àå ¢ ¡ãä¥à¥ ¯à¨ 㤠«¥¨¨ áâப¨
|
||
;#2FBC ext+E 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « ⥪ã饣® á«®¢
|
||
;#3017 ext+W 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « á«¥¤ãî饣® á«®¢
|
||
;#303E ext+K 㤠«¥¨¥ ᨬ¢®«®¢ ¤® « áâப¨
|
||
;#3072 ext+J 㤠«¥¨¥ ᨬ¢®«®¢ ¤® ª®æ áâப¨
|
||
;#3084 㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
;#3095 ¯à®¢¥àª «¨ç¨ï ¯à¥¤ë¤ã饣® ᨬ¢®« ¢ ¡ãä¥à¥
|
||
;#30B4 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#30C6 !!!NOT USED!!!
|
||
;#30D0 ¯ à ¬¥âàë ¤«ï ãáâ ®¢ª¨ ¡ãä¥à । ªâ¨à®¢ ¨ï áâப¨ ¢¨§ã íªà
|
||
;#30D6 ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ã íªà
|
||
;#30DF ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
;#311E ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¨§
|
||
;#316E ¢áâ ¢ª ᨬ¢®« ¢ ¨¦¨© ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#31C3 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#31C9 㤠«¥¨¥ ᨬ¢®« ¢ ¨¦¥¬ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#321E ¯ à ¬¥âàë ¤«ï ãáâ ®¢ª¨ ¡ãä¥à । ªâ¨à®¢ ¨ï áâப¨ ¢¢¥àåã íªà
|
||
;#3222 ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢ ¢¥àåã íªà
|
||
;#322B ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¢¥à奬 ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#326A ª®¯¨à®¢ ¨¥ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¢¥à§ã íªà
|
||
;#32B7 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#32BD â ¡«¨æ ®¡à ¡®âª¨ ã¯à ¢«ïîé¨å ª®¤®¢ ¯à¨ । ªâ¨à®¢ ¨¨ áâப¨
|
||
;#32D6 ª®¯¨à®¢ ¨¥ áâப¨ ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#3331 ¯¥à¥®á ç á⨠áâப¨ á«¥¤ãîéãî áâபã
|
||
;#334A ¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#3352 ¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
;#335A ¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
;#335F ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
;#3374 ª®¯¨à®¢ ¨¥ ⮪¥ ¢ ¡ãä¥à ⮪¥®¢ (=#FCAE)
|
||
;#33C3 ª®¯¨à®¢ ¨¥ ⮪¥ (=#FCFD)
|
||
;#33F4 à ᯮ§ ¢ ¨¥ ⮪¥ (=#FD2E)
|
||
;#3430 ¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
;#3495 ¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
;#34B6 ¯®¨áª ¤à¥á áâப¨ ¯à®£à ¬¬ë á § ¤ ë¬ ®¬¥à®¬ ¨«¨ á«¥¤ã饩 áâப¨, ¥á«¨ áâப á § ¤ ë¬ ®¬¥à®¬ ¥ áãé¥áâ¢ã¥â
|
||
;#34CF à áç¥â ¤à¥á á«¥¤ã饩 áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#34D9 ¯à®¢¥àª ª®¥æ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#34E0 áà ¢¥¨¥ ®¬¥à áâப¨ á § ¤ ë¬
|
||
;#34EA ®¡ã«¥¨¥ 㪠§ ⥫¥© ¢ ¡¥©á¨ª áâப¥
|
||
;#34F6 ¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¯ ¬ïâ¨
|
||
;#3517 ¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
;#3594 ⮪¥ë basic128
|
||
;#35BC ãáâ ®¢ª ¯ à ¬¥â஢ ®âáâã¯
|
||
;#35C5 á®åà ¨âì ᨬ¢®« ¢ 㪠§ ®¬ á⮫¡æ¥ ⥪ã饩 áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#35CC ¯à®æ¥¤ãà ®¡à ¡®âª¨ ¦ â¨ï 'enter' ¢ áâப¥
|
||
;#35DA ¯à®æ¥¤ãà ®¡à ¡®âª¨ § ã«¥¨ï ¤® ª®æ áâப¨
|
||
;#35E6 § ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#35F4 ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#3604 ¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à , ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
;#3618 ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
;#362C ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
;#3640 ¯¥ç âì âਡã⮢ ªãàá®à
|
||
;#364F ¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
;#365E ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
;#367F ®¦¨¤ ¨¥ ¦ â¨ï ª« ¢¨è¨
|
||
;#36A8 ¯¥ç âì ¬¥î basic 128k
|
||
;#3719 ¯¥ç âì ®¤®© «¨¨¨ ¢®ªà㣠¬¥î
|
||
;#372B ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
;#3733 ¯¥ç âì áâப¨ ¨§ hl
|
||
;#373B á®åà ¥¨¥ ®ª íªà 14*12 ¢ ¡ãä¥à¥
|
||
;#373E ¢®ááâ ®¢«¥¨¥ ®ª íªà 14*12 ¨§ ¡ãä¥à
|
||
;#377E á®åà ¥¨¥/¢®ááâ ®¢«¥¨¥ 14 § ª®¬¥áâ íª ¢ ¡ãä¥à¥
|
||
;#37A7 ª« ¢¨è ¢¢¥àå ¢ ¬¥î basic128
|
||
;#37B6 ª« ¢¨è ¢¨§ ¢ ¬¥î basic128
|
||
;#37CA ¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
;#37EC ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
;#37FA ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
;#3802 ¤ ë¥ ¯®â®ª®¢ ¤«ï ¯¥ç â¨ í¬¡«¥¬ë
|
||
;#3812 ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠ª®áëå ¯®«®á ¢ ¬¥î
|
||
;#3822 ¯¥ç âì í¬¡«¥¬ë ZX (ª®áë¥ æ¢¥âë¥ ¯®«®áë) ¢ ¬¥î
|
||
;#3848 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 BASIC
|
||
;#384D ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ Calculator
|
||
;#3852 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 48 TR-DOS
|
||
;#3857 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 TR-DOS
|
||
;#3881 ®ç¨á⪠¤¢ãå ¨¦¨å áâப íªà
|
||
;#3888 ¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
;#390E «¨§ áâப¨ ¨ ¯¥à¥ã¬¥à®¢ ¨¥ ááë«®ª ®¬¥à áâப
|
||
;#3A05 ¯®¤áç¥â ª®«¨ç¥á⢠áâப ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
;#3A35 ¯à®¯ã᪠¯à®¡¥«®¢ ¢ áâப¥
|
||
;#3A3C ®¬¥à áâப¨ ¢ ASCII
|
||
;#3A60 ¯®«ãç¨âì ®¤¨ à §àï ç¨á« ¢ ASCII
|
||
;#3A7F ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
;#3A88 ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¨¦¥£® ®ª
|
||
;#3A91 !!!NOT USED!!!
|
||
;#3A96 á®åà ¨âì âਡãâë ªãàá®à
|
||
;#3A9D ¯¥ç âì âਡã⮢ ªãàá®à
|
||
;#3AB2 ¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
;#3ABF ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#3AC6 ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;#3B1E ¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à
|
||
;#3B5E ®ç¨á⪠áâப íªà
|
||
;#3B94 à áç¥â ª®«¨ç¥á⢠áâப ¨ á⮫殢 ¤® ª®æ íªà
|
||
;#3B98 à áç¥â ª®«¨ç¥á⢠áâப ®â § ¤ ®© ¤® ¨§ íªà
|
||
;#3BA0 à áç¥â ¤à¥á âਡã⮢
|
||
;#3BB8 ®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
;#3BE9 § ¯ã᪠ª®¬ ¤ë randomize 15619: rem: load "boot"
|
||
;#3C1C !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¨ ¢ë¯®«¥¥¨¥ ¡¥©á¨ª áâப¨
|
||
;#3C20 !!!NOT USED!!! ¡¥©á¨ª áâப
|
||
;#3C35 ¢®§¢à â ¨§ ¬®â®à
|
||
;#3C4A !!!NOT USED!!! ¢å®¤ ¢ ¬®¨â®à (¯à®¤®«¦¥¨¥ x08E1)
|
||
;#3C56 ¯ 㧠25 ä३¬®¢
|
||
;#3C63 ⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë á á¨â ªá¨ç¥áª®© ®è¨¡ª®©
|
||
;#3C67 ⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#3D9D ¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¨ ®¯à¥¤¥«¨âì ¥£® ⨯
|
||
;#3DC6 ¯à®¢¥àª ᨬ¢®« ¯à¨ ¤«¥¦®áâì ª ¡ãª¢ ¬ ¨¦¥£® ॣ¨áâà
|
||
;#3DCD ª®¯¨à®¢ ¨¥ á«®¢ ¨§ ¡ãä¥à ¢ áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#3DE9 ¢áâ ¢¨âì ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;#3E16 ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
;#3E64 ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª® REM ¨ ª ¢ë祪
|
||
;#3E9C ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ¨£®à¨à®¢ ¨¥¬ ¯à®¡¥«®¢
|
||
;#3EFB ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
;#3F66 ¯à®¢¥àª «¨ç¨ï ᢮¡®¤®£® ¬¥áâ ¢ ¯ ¬ïâ¨
|
||
;#3F7E à ᯮ§ ¢ ¨¥ ⮪¥
|
||
;#3FBA ª®¯¨à®¢ ¨¥ áâப¨ ¨§ hl ¢ de ¢ (hl+0) ª®«-¢® ¡ ©â
|
||
;#3FC3 !!!NOT USED!!! ¯à¥®¡à §®¢ ¨¥ ASCII ¢ æ¨äàã
|
||
;#3FCE ®¡à ¡®âª ¦ ⮩ ã¯à ¢«ïî饩 ª« ¢¨è¨
|
||
;#3FEE ¢ë§®¢ call (hl)
|
||
;#3FEF ¨¨æ¨ «ë ¯à®£à ¬¬¨á⮢
|
||
;#4000
|
||
|
||
|
||
|
||
|
||
;€„<E282AC>…‘: #0000 ¢ª«î票¥ ª®¬¯ìîâ¥à /"宫®¤ë©" áâ àâ
|
||
x0000 di
|
||
jp x08D1
|
||
|
||
;€„<E282AC>…‘: #0004 ¢å®¤ ¢ ¬®¨â®à
|
||
x0004 out (c),a
|
||
nop
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #0008 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
x0008 jp x0014
|
||
nop
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #000D ¢®§¢à â ¨§ ¬®¨â®à
|
||
x000D jp x3C35
|
||
|
||
;€„<E282AC>…‘: #0010 rst #10 ¯¥ç âì ᨬ¢®« ¨§ A
|
||
x0010 rst #28 ;¢ë§®¢ ¯/¯ ¨§ basic 48k
|
||
dw Rom1.x0010
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0014 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
x0014 jp x08B1
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #0018 ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
x0018 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0018
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #001C ¯¥à¥å®¤ ¢ rom2 ¯à¨ à¥á¥â¥
|
||
x001C out (c),a
|
||
nop
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #0020 ¯®«ã票¥ á«¥¤ãî饣® ᨬ¢®« ¨§ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x0020 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0020
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0024 ¯¥à¥å®¤ ¢ rom2 ¯à¨ rst #08
|
||
x0024 out (c),a
|
||
nop
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #0028 ¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
x0028 ex (sp),hl
|
||
push af
|
||
ld a,(hl)
|
||
inc hl
|
||
inc hl
|
||
ld (x5B5A),hl
|
||
dec hl
|
||
ld h,(hl)
|
||
ld l,a
|
||
pop af
|
||
jp x005C
|
||
nop ;not use
|
||
|
||
;€„<E282AC>…‘: #0038 ®¡à ¡®â稪 ¯à¥àë¢ ¨©
|
||
x0038 push hl
|
||
ld hl,x0048
|
||
push hl
|
||
ld hl,x5B00
|
||
push hl
|
||
ld hl,Rom1.x0038
|
||
push hl
|
||
jp x5B00
|
||
x0048 pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #004A ®¡à ¡®â稪 ®è¨¡®ª basic 128
|
||
x004A ld bc,#7FFD
|
||
xor a
|
||
di
|
||
out (c),a ;rom 0(128k), ram 0, scr 5, 128k
|
||
ld (x5B5C),a
|
||
ei
|
||
dec a
|
||
ld (iy+#00),a ;no error
|
||
jp x0321
|
||
|
||
;€„<E282AC>…‘: #005C ¢ë§®¢ ¯à®æ¥¤ãàë (¯à®¤®«¦¥¨¥ rst #28)
|
||
x005C ld (x5B58),hl
|
||
ld hl,x5B14
|
||
ex (sp),hl
|
||
push hl
|
||
ld hl,(x5B58)
|
||
ex (sp),hl
|
||
jp x5B00
|
||
|
||
;€„<E282AC>…‘: #006B ¯/¯ ¯¥à¥ª«î票ï áâà ¨æ rom0/1 ª®¯¨àã¥âáï ¢ ¤à¥á x5B00
|
||
x006B push af
|
||
push bc
|
||
ld bc,#7FFD
|
||
ld a,(x5B5C)
|
||
xor #10
|
||
di
|
||
ld (x5B5C),a
|
||
out (c),a
|
||
ei
|
||
pop bc
|
||
pop af
|
||
ret
|
||
;€„<E282AC>…‘: #007F áî¤ ¢®§¢à â ¯®á«¥ ®âà ¡®âª¨ ¯/¯ ¯® rst #28 (=#5B14)
|
||
x007F call x5B00
|
||
push hl
|
||
ld hl,(x5B5A) ; ¤à¥á ¢®§¢à â ¢ ¯à®æ¥¤ãà㠯ਠ¢ë§®¢¥ rst #28
|
||
ex (sp),hl
|
||
ret
|
||
;€„<E282AC>…‘: #0088 ®¡à ¡®â稪 ®è¨¡®ª basic 128k
|
||
x0088 di
|
||
ld a,(x5B5C)
|
||
and #EF
|
||
ld (x5B5C),a
|
||
ld bc,#7FFD
|
||
out (c),a
|
||
ei
|
||
jp x00C3
|
||
;€„<E282AC>…‘: #009A ¢¢®¤ ¨§ ª « "P"
|
||
x009A ld hl,x06D8
|
||
jr x00A2
|
||
;€„<E282AC>…‘: #009F ¢ë¢®¤ ¢ ª « "P"
|
||
x009F ld hl,x07CA
|
||
x00A2 ex af,af'
|
||
ld bc,#7FFD
|
||
ld a,(x5B5C)
|
||
push af
|
||
and #EF
|
||
di
|
||
ld (x5B5C),a
|
||
out (c),a
|
||
jp x05E6 ;RS232 ¢¢®¤ ¨ ¢ë¢®¤
|
||
;€„<E282AC>…‘: #00B5 ¢ë室 ¨§ ¯à®æ¥¤ãàë ¢¢®¤ /¢ë¢®¤ ¢ ª « "P"
|
||
; (¢ª«î票¥ ¯à¥¤ë¤ã饣® rom basic48/128)
|
||
x00B5 ex af,af'
|
||
pop af
|
||
ld bc,#7FFD
|
||
di
|
||
ld (x5B5C),a
|
||
out (c),a
|
||
ei
|
||
ex af,af'
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #00C3 ®¡à ¡®â稪 ®è¨¡®ª basic 128k
|
||
x00C3 ld hl,(#5B8B)
|
||
jp (hl)
|
||
|
||
;€„<E282AC>…‘: #00C7 ¢å®¤ ¨§ ¬®¨â®à ¯®á«¥ "宫®¤®£® áâ àâ "
|
||
x00C7 ld b,#08
|
||
x00C9 ld a,b ;¯à®¢¥àª ¨ § ã«¥¨¥ ¢á¥å áâà ¨æ[0..7] ¯ ¬ïâ¨
|
||
exx
|
||
dec a
|
||
ld bc,#7FFD
|
||
out (c),a
|
||
ld hl,#C000
|
||
ld de,#C001
|
||
ld bc,#3FFF
|
||
ld a,#FF
|
||
ld (hl),a
|
||
cp (hl)
|
||
jr nz,x0131 ;¡¨â ï ¯ ¬ïâì
|
||
xor a
|
||
ld (hl),a
|
||
cp (hl)
|
||
jr nz,x0131 ;¡¨â ï ¯ ¬ïâì
|
||
ldir
|
||
exx
|
||
djnz x00C9
|
||
ld (x5B88),a
|
||
|
||
;€„<E282AC>…‘: #00ED ¢å®¤ ¨§ ¬®¨â®à ¯®á«¥ "⥯«®£® áâ àâ "
|
||
x00ED ld c,#FD
|
||
ld d,#FF
|
||
ld e,#BF
|
||
ld b,d
|
||
ld a,#0E ;ॣ¨áâà AY #0E
|
||
out (c),a ;bc=#FFFD
|
||
ld b,e ;bc=#BFFD
|
||
ld a,#FF
|
||
out (c),a
|
||
jr x0137
|
||
x00FF nop ;not used
|
||
|
||
;€„<E282AC>…‘: #0100 !!!NOT USED!!! ª¥à «ì ¯à®æ¥¤ãà
|
||
x0100 jp x17AF ;¯ àá¥à ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
jp x1838 ;¢ë¯®«¥¨¥ ª®¬ ¤ë ¨§ áâப¨ । ªâ¨à®¢ ¨ï
|
||
jp x1ECF ;§ ¯¨áì ¤ ëå ¢ RAM 7
|
||
jp x1F04 ;ç⥨¥ ¤ ëå ¨§ RAM 7
|
||
jp x004A ;®¡à ¡®â稪 ®è¨¡®ª basic 128
|
||
jp x03A2 ;®¡à ¡®â稪 ®è¨¡®ª
|
||
jp x182A ;RETURN
|
||
jp x18A8 ;NEXT
|
||
jp x012D ;®¯à®á ª« ¢¨ âãàë
|
||
jp x0A05 ;ª®¬ ¤ PLAY
|
||
jp x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
jp x06D8 ;¯à®æ¥¤ãà ¢¢®¤ ¨§ RS232
|
||
jp x07CA ;¯à®æ¥¤ãà ¢ë¢®¤ ¢ RS232
|
||
jp x08A3 ;¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
jp x08F0 ;ª®¬ ¤ COPY
|
||
x012D rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x3B01 ;®¯à®á ª« ¢¨ âãàë
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0131 ®è¡ª ¯à®¢¥àª¨ ¯ ¬ï⨠(¡¨â ï ¯ ¬ïâì)
|
||
x0131 exx
|
||
ld a,b
|
||
out (#FE),a
|
||
jr $
|
||
|
||
;€„<E282AC>…‘: #0137 ¨¨æ¨ «¨§ æ¨ï ¯¥à¥¬¥ëå ¨ ¯¥ç âì ¬¥î 128k
|
||
; de=#FFBF
|
||
; c=#FD
|
||
x0137 ld b,d ;ãáâ ®¢ª ॣ¨áâà #07 AY
|
||
ld a,#07
|
||
out (c),a
|
||
ld b,e
|
||
ld a,#FF
|
||
out (c),a ;¢ëª«î稬 §¢ãª ¢ AY
|
||
ld de,#5B00
|
||
ld hl,x006B ;¯/¯ ¯¥à¥ª«î票ï áâà ¨æ ¯ ¬ïâ¨
|
||
ld bc,#0058
|
||
ldir
|
||
ld a,#CF ;®¡à ¡®â稪 ®è¨¡®ª basic 48
|
||
ld (x5B5D),a
|
||
ld sp,#5BFF
|
||
ld a,#04
|
||
call x1C64 ;¢ª«î稬 ram 7
|
||
ld ix,#EBEC ; ¤à¥á ç « ª â «®£ rom-disk
|
||
ld (x5B83),ix
|
||
ld (ix+#0A),#00
|
||
ld (ix+#0B),#C0
|
||
ld (ix+#0C),#00
|
||
ld hl,#2BEC ;᢮¡®¤®¥ ¬¥áâ® rom-disk
|
||
ld a,#01
|
||
ld (x5B85),hl
|
||
ld (x5B85+2),a
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld hl,#FFFF ; ¤à¥á ¯®á«¥¤¥£® ¡ ©â 䨧¨ç¥áª®£® Ž‡“
|
||
ld (#5CB4),hl
|
||
ld de,#3D00+#01AF ; ¤à¥á ¯®á«¥¤¥£® ¡ ©â ᨬ¢®« "U" ¢ basic 48
|
||
ld bc,#00A8 ;ª®¯¨à®¢ ¨¥ ᨬ¢®«®¢ èà¨äâ [A..U]
|
||
ex de,hl
|
||
rst #28 ;¢ë§®¢ ¯/¯ ¨§ basic 48k
|
||
dw Rom1.x1661 ;lddr, ret
|
||
ex de,hl
|
||
inc hl
|
||
ld (#5C7B),hl ; ¤à¥á ç « ®¯à¥¤¥«ï¥¬ëå ¯®«ì§®¢ ⥫¥¬ ᨬ¢®«®¢
|
||
dec hl
|
||
ld bc,#0040
|
||
ld (#5C38),bc
|
||
ld (#5CB2),hl ;¯®á«¥¤¨© ¤à¥á ¢ Ž‡“ à §à¥è¥ë© ¤«ï basic
|
||
|
||
;€„<E282AC>…‘: #019D ª®¬ ¤ NEW
|
||
x019D ld hl,#3D00-#100 ; ¤à¥á ᨬ¢®«ì®£® ¡®à
|
||
ld (#5C36),hl
|
||
ld hl,(#5CB2) ;<3B>®á«¥¤¨© ¤à¥á ¢ Ž‡“, à §à¥è¥ë© ª ¨á¯®«ì§®¢ ¨î ¨â¥à¯à¥â â®à®¬ <20>¥©á¨ª
|
||
inc hl
|
||
ld sp,hl
|
||
im 1
|
||
ld iy,#5C3A
|
||
set 4,(iy+#01) ;०¨¬ 128k
|
||
ei
|
||
ld hl,#000B
|
||
ld (x5B5F),hl ;᪮à®áâì ¯à¨â¥à 9600 ¡®¤
|
||
xor a
|
||
ld (x5B61),a
|
||
ld (x5B63),a
|
||
ld (x5B65),a
|
||
ld hl,#EC00 ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¯¨á âìáï ¢ rqm 7
|
||
ld (#FF24),hl
|
||
ld a,#50 ;è¨à ¯¥ç ⨠80 ᨬ¢®«®¢
|
||
ld (x5B64),a
|
||
ld hl,#000A
|
||
ld (x5B94),hl
|
||
ld (x5B96),hl
|
||
ld hl,#5CB6 ;ª®¯¨à㥬 ä®à¬ æ¨î ® ª « å
|
||
ld (#5C4F),hl
|
||
ld de,x0589
|
||
ld bc,#0015
|
||
ex de,hl
|
||
ldir
|
||
ex de,hl
|
||
dec hl
|
||
ld (#5C57),hl ;€¤à¥á ç « á«¥¤ãî饩 áâப¨ ¡¥©á¨ª-¯à®£à ¬¬ë
|
||
inc hl
|
||
ld (#5C53),hl ;€¤à¥á ç « ¡¥©á¨ª-¯à®£à ¬¬ë
|
||
ld (#5C4B),hl ;€¤à¥á ç « ®¡« á⨠¯¥à¥¬¥ëå ¡¥©á¨ª-¯à®£à ¬¬ë
|
||
ld (hl),#80 ;¯à¨§ ª ª®æ ¯¥à¥¬¥ëå ¡¥©á¨ª
|
||
inc hl
|
||
ld (#5C59),hl ;€¤à¥á ç « । ªâ¨à㥬®© áâப¨
|
||
ld (hl),#0D
|
||
inc hl
|
||
ld (hl),#80
|
||
inc hl
|
||
ld (#5C61),hl ;€¤à¥á ç « à ¡®ç¥© ®¡« á⨠¡¥©á¨ª-¯à®£à ¬¬ë
|
||
ld (#5C63),hl ;€¤à¥á ç « á⥪ ª «ìªã«ïâ®à
|
||
ld (#5C65),hl ;€¤à¥á ¢¥àè¨ë á⥪ ª «ìªã«ïâ®à
|
||
ld a,#38
|
||
ld (#5C8D),a ;<3B>®áâ®ïë¥ âਡãâë íªà
|
||
ld (#5C8F),a ;‚६¥ë¥ âਡãâë, ¨á¯®«ì§ã¥¬ë¥ ¯à¨ ¢ë¢®¤¥ íªà
|
||
ld (#5C48),a ;€âਡãâë á«ã¦¥¡®£® íªà
|
||
xor a
|
||
ld (#EC13),a ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¯¨á âìáï ¢ rqm 7
|
||
ld a,#07
|
||
out (#FE),a ;¡®à¤îà
|
||
ld hl,#0523 ; ¢â®¯®¢â®à ¨ ¯¥à¨®¤ § ¤¥à¦ª¨
|
||
ld (#5C09),hl
|
||
dec (iy-#3A) ;x5C00
|
||
dec (iy-#36) ;x5C04
|
||
ld hl,x059E
|
||
ld de,#5C10 ;Ž¡« áâì åà ¥¨ï ¨ä®à¬ 樨 ® ¯®â®ª å
|
||
ld bc,#000E
|
||
ldir
|
||
res 1,(iy+#01)
|
||
ld (iy+#00),#FF ;no error
|
||
ld (iy+#31),#02 ;Š®«¨ç¥á⢮ áâப ¢ á«ã¦¥¡®¬ íªà ¥
|
||
rst #28 ;¢ë§®¢ ¯/¯ x0D6B ¨§ basic 48k
|
||
dw Rom1.x0D6B ;CLS
|
||
rst #28 ;¢ë§®¢ ¯/¯ ¨§ basic 48k
|
||
dw Rom1.x3C04 ;¯à®¢¥àª Break ¨ ¢ë§®¢ â¥áâ íªà
|
||
ld de,x0561 ;1992-94 Scorpion ZS 256
|
||
call x057D ;¯¥ç âì áâப¨ ¨§ de
|
||
ld (iy+#31),#02 ;Š®«¨ç¥á⢮ áâப ¢ á«ã¦¥¡®¬ íªà ¥
|
||
set 5,(iy+#02)
|
||
ld hl,x5BFF
|
||
ld (x5B81),hl
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,#38
|
||
ld (#EC11),a
|
||
ld (#EC0F),a
|
||
call x2584 ;¯®¤£®â®¢ª ¯¥à¥¬¥ëå 2-3,1=%11
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #08 ;¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
db #8C ; ¦ ⨥ Enter ¨ ¯¥à¥å®¤ rom 0: #259F
|
||
nop
|
||
|
||
;€„<E282AC>…‘: #026B ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
x026B ld hl,x5B66 ;ä« £¨
|
||
set 0,(hl) ;०¨¬
|
||
ld (iy+#00),#FF ;ª®¤ ®è¨¡ª¨
|
||
ld (iy+#31),#02 ;ª®«¨ç¥á⢮ áâப ¢ á«ã¦¥¡®¬ íªà ¥
|
||
ld hl,x5B1D ;áî¤ ¢¥à¥¬áï ¯à¨ ®è¨¡ª¥
|
||
push hl
|
||
ld (#5C3D),sp
|
||
ld hl,x02BA
|
||
ld (x5B8B),hl ;áî¤ ¢¥à¥¬áï ¯à¨ ®è¨¡ª¥
|
||
call x228E ;¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
call x22CB ;¯à®¢¥àª ⮪¥
|
||
jp z,x21F8 ;¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
cp "("
|
||
jp z,x21F8 ;¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
cp "-"
|
||
jp z,x21F8 ;¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
cp "+"
|
||
jp z,x21F8 ;¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
call x22E0 ;¯à®¢¥àª íâ® ç¨á«® ¨«¨ äãªæ¨ï
|
||
jp z,x21F8 ;¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,(#EC0E)
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
cp #04
|
||
jp nz,x17AF ; «¨§ ¨ ¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
call x2297 ;¯à®¢¥àª íâ® ª®¬ ¤ LET? (ª «ìªã«ïâ®à basic 128)
|
||
jp z,x17AF ; «¨§ ¨ ¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #02BA áî¤ ¢®§¢à é ¥¬áï ¯®á«¥ ¯à®¢¥àª¨ á¨â ªá¨á ¡¥©á¨ª
|
||
x02BA bit 7,(iy+#00)
|
||
jr nz,x02C1
|
||
ret ;®è¨¡®ª ¥ ¡ë«®
|
||
x02C1 ld hl,(#5C59)
|
||
ld (#5C5D),hl
|
||
rst #28
|
||
dw Rom1.x19FB ;¯®«ãç¨âì ®¬¥à । ªâ¨à¥¬®© áâப¨
|
||
ld a,b
|
||
or c
|
||
jp nz,x03F7
|
||
rst #18 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp #0D
|
||
ret z
|
||
call x21EF ;®ç¨á⪠íªà
|
||
bit 6,(iy+#02)
|
||
jr nz,x02DF
|
||
rst #28
|
||
dw Rom1.x0D6E ;®âªàëâì ª «
|
||
x02DF res 6,(iy+#02)
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld hl,#EC0D
|
||
bit 6,(hl)
|
||
jr nz,x02F4
|
||
inc hl
|
||
ld a,(hl)
|
||
cp #00
|
||
call z,x3881 ;®ç¨á⪠¤¢ãå ¨¦¨å áâப íªà
|
||
x02F4 call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
ld hl,#5C3C
|
||
res 3,(hl)
|
||
ld a,#19
|
||
sub (iy+#4F)
|
||
ld (#5C8C),a
|
||
set 7,(iy+#01)
|
||
ld (iy+#0A),#01 ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld hl,#3E00
|
||
push hl
|
||
ld hl,x5B1D
|
||
push hl
|
||
ld (#5C3D),sp
|
||
ld hl,x0321
|
||
ld (x5B8B),hl
|
||
jp x1838 ;¢ë¯®«¥¨¥ ª®¬ ¤ë ¨§ áâப¨ । ªâ¨à®¢ ¨ï
|
||
|
||
;€„<E282AC>…‘: #0321 ®¡à ¡®â稪 ®è¨¡®ª
|
||
x0321 ld sp,(#5CB2)
|
||
inc sp
|
||
ld hl,x5BFF
|
||
ld (x5B81),hl
|
||
halt
|
||
res 5,(iy+#01)
|
||
ld hl,x5B66
|
||
bit 2,(hl)
|
||
jr z,x034A
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld ix,(x5B83)
|
||
ld bc,#0014
|
||
add ix,bc
|
||
call x1D56 ;®¡®¢«¥¨¥ § ¯¨á¨ ª â «®£
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
x034A ld a,(#5C3A)
|
||
inc a
|
||
x034E push af
|
||
ld hl,#0000
|
||
ld (iy+#37),h
|
||
ld (iy+#26),h
|
||
ld (#5C0B),hl
|
||
ld hl,#0001
|
||
ld (#5C16),hl
|
||
rst #28
|
||
dw Rom1.x16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
res 5,(iy+#37)
|
||
rst #28
|
||
dw Rom1.x0D6E ;®âªàëâì ª «
|
||
set 5,(iy+#02)
|
||
pop af
|
||
ld b,a
|
||
cp #0A
|
||
jr c,x037F
|
||
cp #1D
|
||
jr c,x037D
|
||
add a,#14
|
||
jr x037F
|
||
x037D add a,#07
|
||
x037F rst #28
|
||
dw Rom1.x15EF ;¯¥ç âì ᨬ¢®« ¨§ a
|
||
ld a," "
|
||
rst #10
|
||
ld a,b
|
||
cp #1D
|
||
jr c,x039C
|
||
sub #1D
|
||
ld b,#00
|
||
ld c,a
|
||
ld hl,x046C
|
||
add hl,bc
|
||
add hl,bc
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
call x057D ;¯¥ç âì áâப¨ ¨§ de
|
||
jr x03A2
|
||
x039C ld de,Rom1.x1391
|
||
rst #28
|
||
dw Rom1.x0C0A ;¯¥ç âì á®®¡é¥¨ï
|
||
x03A2 xor a
|
||
ld de,Rom1.x1536
|
||
rst #28
|
||
dw Rom1.x0C0A ;¯¥ç âì á®®¡é¥¨ï
|
||
ld bc,(#5C45)
|
||
rst #28
|
||
dw Rom1.x1A1B ;¯¥ç âì ®¬¥à áâப¨
|
||
ld a,":"
|
||
rst #10
|
||
ld c,(iy+#0D)
|
||
ld b,#00
|
||
rst #28
|
||
dw Rom1.x1A1B ;¯¥ç âì ®¬¥à áâப¨
|
||
rst #28
|
||
dw Rom1.x1097 ;®ç¨á⪠¯ ¬ïâ¨
|
||
ld a,(#5C3A)
|
||
inc a
|
||
jr z,x03DF
|
||
cp #09
|
||
jr z,x03CC
|
||
cp #15
|
||
jr nz,x03CF
|
||
x03CC inc (iy+#0D)
|
||
x03CF ld bc,#0003
|
||
ld de,#5C70
|
||
ld hl,#5C44
|
||
bit 7,(hl)
|
||
jr z,x03DD
|
||
add hl,bc
|
||
x03DD lddr
|
||
x03DF ld (iy+#0A),#FF
|
||
res 3,(iy+#01)
|
||
ld hl,x5B66
|
||
res 0,(hl)
|
||
jp x25CB
|
||
|
||
;€„<E282AC>…‘: #03EF ®¡à ¡®â稪 ®è¨¡®ª
|
||
x03EF ld a,#10
|
||
ld bc,#0000
|
||
jp x034E
|
||
|
||
;€„<E282AC>…‘: #03F7 ¢áâ ¢ª áâப¨ ¯à®£à ¬¬ë
|
||
x03F7 ld (#5C49),bc
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,b
|
||
or c
|
||
jr z,x040A
|
||
ld (#5C49),bc
|
||
ld (#EC08),bc
|
||
x040A call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
ld hl,(#5C5D)
|
||
ex de,hl
|
||
ld hl,x03EF
|
||
push hl
|
||
ld hl,(#5C61)
|
||
scf
|
||
sbc hl,de
|
||
push hl
|
||
ld h,b
|
||
ld l,c
|
||
rst #28
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
jr nz,x0429
|
||
rst #28
|
||
dw Rom1.x19B8 ;¯®¨áª ¤à¥á ç « á«¥¤ãî饩 áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x19E8 ;㤠«¨âì ¬ áᨢ DIM
|
||
x0429 pop bc
|
||
ld a,c
|
||
dec a
|
||
or b
|
||
jr nz,x0442
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
push hl
|
||
ld hl,(#5C49)
|
||
call x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld (#5C49),hl
|
||
pop hl
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
jr x046A
|
||
x0442 push bc
|
||
inc bc
|
||
inc bc
|
||
inc bc
|
||
inc bc
|
||
x0447 dec hl
|
||
ld de,(#5C53)
|
||
push de
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
pop hl
|
||
ld (#5C53),hl
|
||
pop bc
|
||
push bc
|
||
inc de
|
||
ld hl,(#5C61)
|
||
dec hl
|
||
dec hl
|
||
lddr
|
||
ld hl,(#5C49)
|
||
ex de,hl
|
||
pop bc
|
||
ld (hl),b
|
||
dec hl
|
||
ld (hl),c
|
||
dec hl
|
||
ld (hl),e
|
||
dec hl
|
||
ld (hl),d
|
||
x046A pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #046C ¤à¥á á®®¡é¥¨© ®¡ ®è¨¡ª å
|
||
x046C dw x048C
|
||
dw x0497
|
||
dw x04A6
|
||
dw x04B0
|
||
dw x04C1
|
||
dw x04D4
|
||
dw x04E0
|
||
dw x04E0
|
||
dw x04F3
|
||
dw x0501
|
||
dw x0512
|
||
dw x0523
|
||
dw x0531
|
||
dw x0542
|
||
dw x054E
|
||
dw x0561
|
||
|
||
;€„<E282AC>…‘: #048C á®®¡é¥¨ï ®¡ ®è¨¡ª å
|
||
x048C dc "MERGE error"
|
||
x0497 dc "Wrong file type"
|
||
x04A6 dc "CODE error"
|
||
x04B0 dc "Too many brackets"
|
||
x04C1 dc "File already exists"
|
||
x04D4 dc "Invalid name"
|
||
x04E0 dc "File does not exist"
|
||
x04F3 dc "Invalid device"
|
||
x0501 dc "Invalid baud rate"
|
||
x0512 dc "Invalid note name"
|
||
x0523 dc "Number too big"
|
||
x0531 dc "Note out of range"
|
||
x0542 dc "Out of range"
|
||
x054E dc "Too many tied notes"
|
||
x0561 dc " 1992-94 Scorpion ZS 256 "
|
||
|
||
;€„<E282AC>…‘: #057D ¯¥ç âì áâப¨ ¨§ de
|
||
;¢å: de - ¤à¥á áâப¨ ¤«ï ¯¥ç â¨
|
||
x057D ld a,(de)
|
||
and #7F
|
||
push de
|
||
rst #10 ;¯¥ç âì ᨬ¢®« ¨§ A
|
||
pop de
|
||
ld a,(de)
|
||
inc de
|
||
add a,a
|
||
jr nc,x057D
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0589 ¨ä®à¬ æ¨ï ® ª « å
|
||
x0589 dw #09F4,#10A8: db "K"
|
||
dw #09F4,#15C4: db "S"
|
||
dw #0F81,#15C4: db "R"
|
||
dw x5B34,x5B2F: db "P"
|
||
db #80
|
||
|
||
;€„<E282AC>…‘: #059E ¨ä®à¬ æ¨ï ® ¯®â®ª å
|
||
x059E db #01,#00 ;
|
||
db #06,#00
|
||
db #0B,#00
|
||
db #01,#00
|
||
db #01,#00
|
||
db #06,#00
|
||
db #10,#00
|
||
|
||
;€„<E282AC>…‘: #05AC ®¡à ¡®âª ®è¨¡ª¨
|
||
x05AC pop hl
|
||
ld bc,#7FFD
|
||
xor a
|
||
di
|
||
ld (x5B5C),a
|
||
out (c),a ;rom 0, ram 0, scr 5
|
||
ei
|
||
ld sp,(#5C3D)
|
||
ld a,(hl) ;ª®¤ ®è¨¡ª¨
|
||
ld (x5B5E),a ;ª®¤ á®®¡é¥¨ï ¤«ï rst 8 basic48
|
||
inc a
|
||
cp #1E ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì cp #1D
|
||
jr nc,x05C8
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw #5B5D
|
||
x05C8 dec a
|
||
ld (iy+#00),a ;ª®¤ ®è¨¡ª¨
|
||
ld hl,(#5C5D) ; ¤à¥á á«¥¤ã饣® ᨬ¢®« ¢ ¡¥©á¨ª-¯à®£à ¬¬¥
|
||
ld (#5C5F),hl ; ¤à¥á á¨â ªá¨ç¥áª®© ®è¨¡ª¨
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x16C5 ;¢®ááâ ®¢«¥¨¥ áâíª
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #05D6 ¯à®¢¥àª ¦ â¨ï break ¨ ¯¥ç âì á®®¡é¥¨ï
|
||
x05D6 ld a,#7F
|
||
x05D8 in a,(#FE)
|
||
rra
|
||
ret c ;¯à®¡¥« ¥ ¦ â
|
||
ld a,#FE
|
||
in a,(#FE)
|
||
rra
|
||
ret c ;cs ¥ ¦ â
|
||
call x05AC ;¡¥§ ¢®§¢à â
|
||
db #14 ;L BREAK into program, n:m
|
||
|
||
;€„<E282AC>…‘: #05E6 RS232 ¢¢®¤ ¨ ¢ë¢®¤
|
||
x05E6 ei
|
||
ex af,af'
|
||
ld de,x5B4A ;¯/¯ ¢ª«îç¥¨ï ¯à¥¤ë¤ã饣® rom bacic48/128
|
||
push de
|
||
res 3,(iy+#02) ;¯à®¢¥àª ०¨¬ ¢ë¢®¤ ¥ íªà ¥ âॡã¥âáï
|
||
push hl
|
||
ld hl,(#5C3D) ; ¤à¥á áâíª ¯à¨ § ¯ã᪥ ®¡à ¡®âª¨ ®è¨¡®ª
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
and a
|
||
ld hl,Rom1.x107F
|
||
sbc hl,de
|
||
jr nz,x0637 ;®¡à ¡®â稪 ®è¨¡®ª ¢ basic128
|
||
pop hl
|
||
ld sp,(#5C3D)
|
||
pop de
|
||
pop de
|
||
ld (#5C3D),de
|
||
x060A push hl
|
||
ld de,x0610
|
||
push de
|
||
jp (hl)
|
||
x0610 jr c,x061B
|
||
jr z,x0618
|
||
x0614 call x05AC ;¡¥§ ¢®§¢à â
|
||
db #07 ;8 End of file, n:m
|
||
x0618 pop hl
|
||
jr x060A
|
||
x061B cp #0D
|
||
jr z,x062D
|
||
ld hl,(x5B5A) ; ¤à¥á ¢®§¢à â ¢ basic128
|
||
push hl
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0F85 ;¤®¡ ¢¨âì ª®¤ ¢ áâபã
|
||
pop hl
|
||
ld (x5B5A),hl
|
||
pop hl
|
||
jr x060A
|
||
x062D pop hl
|
||
ld a,(x5B5C)
|
||
or #10
|
||
push af
|
||
jp x5B4A ;¢ª«î票¥ basic48
|
||
x0637 pop hl
|
||
ld de,x063D
|
||
push de
|
||
jp (hl)
|
||
x063D ret c
|
||
ret z
|
||
jr x0614
|
||
|
||
;€„<E282AC>…‘: #0641 ª®¬ ¤ FORMAT
|
||
; FORMAT "P";9600
|
||
x0641 rst #28
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x1C8C ;¯ à ¬¥âà - áâப
|
||
bit 7,(iy+#01)
|
||
jr z,x0661 ;¯à®¢¥àª á¨â ªá¨á
|
||
rst #28
|
||
dw Rom1.x2BF1 ;¯à®ç¨â âì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
ld a,c
|
||
dec a
|
||
or b
|
||
jr z,x0659 ;¤«¨ áâப¨ 1 ¡ ©â
|
||
call x05AC ;®è¨¡ª
|
||
db #24 ;i Invalid device
|
||
x0659 ld a,(de)
|
||
and #DF
|
||
cp "P"
|
||
jp nz,x1912 ;®è¨¡ª C Nonsense in BASIC
|
||
x0661 ld hl,(#5C5D)
|
||
ld a,(hl)
|
||
cp ";"
|
||
jp nz,x1912 ;®è¨¡ª C Nonsense in BASIC
|
||
rst #28
|
||
dw Rom1.x0020 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
x066D rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
bit 7,(iy+#01)
|
||
jr z,x067D ;¯à®¢¥àª á¨â ªá¨á
|
||
rst #28
|
||
dw Rom1.x1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
ld (x5B71),bc
|
||
x067D rst #28
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp #0D
|
||
jr z,x0689
|
||
cp ":"
|
||
jp nz,x1912 ;®è¨¡ª C Nonsense in BASIC
|
||
x0689 call x18A1
|
||
ld bc,(x5B71)
|
||
ld a,b
|
||
or c
|
||
jr nz,x0698
|
||
call x05AC ;®è¨¡ª
|
||
db #25 ;j invalid baud rate
|
||
x0698 ld hl,x06B8
|
||
x069B ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
inc hl
|
||
ex de,hl
|
||
ld a,h
|
||
cp #25
|
||
jr nc,x06AF
|
||
and a
|
||
sbc hl,bc
|
||
jr nc,x06AF
|
||
ex de,hl
|
||
inc hl
|
||
inc hl
|
||
jr x069B
|
||
x06AF ex de,hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ld (x5B5F),de
|
||
ret
|
||
x06B8 dw #0032,#0AA5 ;Baud=50.
|
||
dw #006E,#04D4 ;Baud=110.
|
||
dw #012C,#01C3 ;Baud=300.
|
||
dw #0258,#00E0 ;Baud=600.
|
||
dw #04B0,#006E ;Baud=1200.
|
||
dw #0960,#0036 ;Baud=2400.
|
||
dw #12C0,#0019 ;Baud=4800.
|
||
dw #2580,#000B ;Baud=9600.
|
||
|
||
;€„<E282AC>…‘: #06D8 ¯à®æ¥¤ãà ¢¢®¤ ¨§ RS232
|
||
x06D8 ld hl,x5B61
|
||
ld a,(hl)
|
||
and a
|
||
jr z,x06E5
|
||
ld (hl),#00
|
||
inc hl
|
||
ld a,(hl)
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #06E5 ç⥨¥ ¡ ©â ¨§ RS232
|
||
x06E5 call x05D6 ;¯à®¢¥àª ¦ â¨ï break ¨ ¯¥ç âì á®®¡é¥¨ï
|
||
di
|
||
exx
|
||
ld de,(x5B5F)
|
||
ld hl,(x5B5F)
|
||
srl h
|
||
rr l
|
||
or a
|
||
ld b,#FA
|
||
exx
|
||
ld c,#FD
|
||
ld d,#FF
|
||
ld e,#BF
|
||
ld b,d
|
||
ld a,#0E
|
||
out (c),a ;¢ë¡®à 14 ॣ¨áâà AY
|
||
in a,(c)
|
||
or #F0
|
||
and #FB
|
||
ld b,e
|
||
out (c),a
|
||
ld h,a
|
||
x070E ld b,d
|
||
in a,(c)
|
||
and #80
|
||
jr z,x071E ;áâ àâ®¢ë© ¡¨â ¯®«ãç¥
|
||
x0715 exx
|
||
dec b
|
||
exx
|
||
jr nz,x070E
|
||
xor a
|
||
push af
|
||
jr x0757 ;¢ë室 ¯® â ©¨ ãâã
|
||
x071E in a,(c)
|
||
and #80
|
||
jr nz,x0715
|
||
in a,(c)
|
||
and #80
|
||
jr nz,x0715
|
||
exx
|
||
ld bc,#FFFD
|
||
ld a,#80
|
||
ex af,af'
|
||
x0731 add hl,de
|
||
nop
|
||
nop
|
||
nop
|
||
nop
|
||
x0736 dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x0736
|
||
in a,(c)
|
||
and #80
|
||
jp z,x074B
|
||
ex af,af'
|
||
scf
|
||
rra
|
||
jr c,x0754
|
||
ex af,af'
|
||
jp x0731
|
||
x074B ex af,af'
|
||
or a
|
||
rra
|
||
jr c,x0754
|
||
ex af,af'
|
||
jp x0731
|
||
x0754 scf
|
||
push af
|
||
exx
|
||
x0757 ld a,h
|
||
or #04
|
||
ld b,e
|
||
out (c),a
|
||
exx
|
||
ld h,d
|
||
ld l,e
|
||
ld bc,#0007
|
||
or a
|
||
sbc hl,bc
|
||
x0766 dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x0766
|
||
ld bc,#FFFD
|
||
add hl,de
|
||
add hl,de
|
||
add hl,de
|
||
x0771 in a,(c)
|
||
and #80
|
||
jr z,x077F
|
||
dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x0771
|
||
pop af
|
||
ei
|
||
ret
|
||
x077F in a,(c)
|
||
and #80
|
||
jr nz,x0771
|
||
in a,(c)
|
||
and #80
|
||
jr nz,x0771
|
||
ld h,d
|
||
ld l,e
|
||
ld bc,#0002
|
||
srl h
|
||
rr l
|
||
or a
|
||
sbc hl,bc
|
||
ld bc,#FFFD
|
||
ld a,#80
|
||
ex af,af'
|
||
x079D nop
|
||
nop
|
||
nop
|
||
nop
|
||
add hl,de
|
||
x07A2 dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x07A2
|
||
in a,(c)
|
||
and #80
|
||
jp z,x07B7
|
||
ex af,af'
|
||
scf
|
||
rra
|
||
jr c,x07C0
|
||
ex af,af'
|
||
jp x079D
|
||
x07B7 ex af,af'
|
||
or a
|
||
rra
|
||
jr c,x07C0
|
||
ex af,af'
|
||
jp x079D
|
||
x07C0 ld hl,x5B61
|
||
ld (hl),#01
|
||
inc hl
|
||
ld (hl),a
|
||
pop af
|
||
ei
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #07CA ¯à®æ¥¤ãà ¢ë¢®¤ ¢ RS232
|
||
x07CA push af
|
||
ld a,(x5B65)
|
||
or a
|
||
jr z,x07E0
|
||
dec a
|
||
ld (x5B65),a
|
||
jr nz,x07DB
|
||
pop af
|
||
jp x0872
|
||
x07DB pop af
|
||
ld (#5C0F),a
|
||
ret
|
||
x07E0 pop af
|
||
cp #A3 ;SPECTRUM?
|
||
jr c,x07F2 ;¥ ⮪¥
|
||
ld hl,(x5B5A)
|
||
push hl
|
||
rst #28
|
||
dw Rom1.x0B52 ;¯¥ç âì ⮪¥
|
||
pop hl
|
||
ld (x5B5A),hl
|
||
scf
|
||
ret
|
||
x07F2 ld hl,#5C3B
|
||
res 0,(hl)
|
||
cp #20
|
||
jr nz,x07FD
|
||
set 0,(hl)
|
||
x07FD cp #7F
|
||
jr c,x0803
|
||
ld a,"?"
|
||
x0803 cp " "
|
||
jr c,x081E
|
||
push af
|
||
ld hl,x5B63
|
||
inc (hl)
|
||
ld a,(x5B64)
|
||
cp (hl)
|
||
jr nc,x081A
|
||
call x0822 ;¯¥à¥¢®¤ áâப¨
|
||
ld a,#01
|
||
ld (x5B63),a
|
||
x081A pop af
|
||
jp x08A3 ;¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
x081E cp #0D
|
||
jr nz,x0830
|
||
|
||
;€„<E282AC>…‘: #0822 ¯¥à¥¢®¤ áâப¨ ¯à¨â¥à¥
|
||
x0822 xor a
|
||
ld (x5B63),a
|
||
ld a,#0D
|
||
jp x08A3
|
||
|
||
;€„<E282AC>…‘: #082B !!!NOT USED!!! ¢§¢à â ª à¥âª¨ ¯à¨â¥à¥
|
||
x082B ld a,#0A
|
||
jp x08A3
|
||
|
||
;€„<E282AC>…‘: #0830 ¯à®¤®«¦¥¨¥ x07CA ¯à®æ¥¤ãà ¢ë¢®¤ ¢ RS232
|
||
x0830 cp #06
|
||
jr nz,x0853
|
||
ld bc,(x5B63)
|
||
ld e,#00
|
||
x083A inc e
|
||
inc c
|
||
ld a,c
|
||
cp b
|
||
jr z,x0848
|
||
x0840 sub #08
|
||
jr z,x0848
|
||
jr nc,x0840
|
||
jr x083A
|
||
x0848 push de
|
||
ld a," "
|
||
call x07CA ;¢ë¢®¤ ¢ RS232
|
||
pop de
|
||
dec e
|
||
ret z
|
||
jr x0848
|
||
x0853 cp #16
|
||
jr z,x0860
|
||
cp #17
|
||
jr z,x0860
|
||
cp #10
|
||
ret c
|
||
jr x0869
|
||
x0860 ld (#5C0E),a
|
||
ld a,#02
|
||
ld (x5B65),a
|
||
ret
|
||
x0869 ld (#5C0E),a
|
||
ld a,#02
|
||
ld (x5B65),a
|
||
ret
|
||
x0872 ld d,a
|
||
ld a,(#5C0E)
|
||
cp #16
|
||
jr z,x0882
|
||
cp #17
|
||
ccf
|
||
ret nz
|
||
ld a,(#5C0F)
|
||
ld d,a
|
||
x0882 ld a,(x5B64)
|
||
cp d
|
||
jr z,x088A
|
||
jr nc,x0890
|
||
x088A ld b,a
|
||
ld a,d
|
||
sub b
|
||
ld d,a
|
||
jr x0882
|
||
x0890 ld a,d
|
||
or a
|
||
jp z,x0822
|
||
x0895 ld a,(x5B63)
|
||
cp d
|
||
ret z
|
||
push de
|
||
ld a," "
|
||
call x07CA ;¢ë¢®¤ ¢ RS232
|
||
pop de
|
||
jr x0895
|
||
|
||
;€„<E282AC>…‘: #08A3 ¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
x08A3 push hl
|
||
ld hl,x08EE
|
||
ex (sp),hl
|
||
push af
|
||
ld a,r
|
||
di
|
||
push af
|
||
ld a,#80
|
||
jr x08B8
|
||
|
||
;€„<E282AC>…‘: #08B1 rst #08 ¢ë§®¢ äãªæ¨¨ ¬®¨â®à
|
||
x08B1 push af
|
||
ld a,r
|
||
di
|
||
push af
|
||
ld a,#01
|
||
x08B8 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 x0024 ;¯¥à¥å®¤ ¢ rom 2
|
||
|
||
;€„<E282AC>…‘: #08D1 ¢ª«î票¥ ª®¬¯ìîâ¥à /"宫®¤ë©" áâ àâ
|
||
x08D1 ld bc,#692B
|
||
x08D4 dec bc ;¯ ã§
|
||
ld a,c
|
||
or b
|
||
jr nz,x08D4
|
||
ld bc,#1FFD
|
||
ld a,#12
|
||
jp x001C ;¯¥à¥å®¤ ¢ rom2: monitor (¨¨æ¨ «¨§ æ¨ï)
|
||
|
||
;€„<E282AC>…‘: #08E1 !!!NOT USED!!! ¢å®¤ ªã¤ -â®
|
||
x08E1 ld bc,#1FFD
|
||
push hl
|
||
ld hl,(#C001)
|
||
ex (sp),hl
|
||
ld a,#55
|
||
jp x3C4A
|
||
|
||
;€„<E282AC>…‘: #08EE ¢®§¢à â ¨§ x08A3
|
||
x08EE ei
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #08F0 ª®¬ ¤ COPY
|
||
x08F0 ld hl,x5B72
|
||
ld (hl),#2B
|
||
x08F5 ld hl,x0979
|
||
call x095F ;¯¥à¥¤ ç ¯à¨â¥à ã¯à ¢«ïî饣® ª®¤
|
||
call x0915 ;¯¥ç âì ¯®«®¢¨ë áâப¨
|
||
ld hl,x0980 ;!!!not used
|
||
call x0822 ;¯¥à¥¢®¤ áâப¨
|
||
ld hl,x5B72
|
||
xor a
|
||
cp (hl)
|
||
jr z,x090E
|
||
dec (hl)
|
||
jr x08F5
|
||
x090E ld hl,x0982
|
||
call x095F ;¯¥à¥¤ ç ¯à¨â¥à ã¯à ¢«ïî饣® ª®¤
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0915 ¯¥ç âì ¯®«®¢¨ë áâப¨
|
||
x0915 ld hl,x5B71
|
||
ld (hl),#FF
|
||
x091A call x0926 ;¯¥ç âì á⮫¡æ ¯¨ªá¥«¥© (á ¤¢®©®© ¢ëá®â®©)
|
||
ld hl,x5B71
|
||
xor a
|
||
cp (hl)
|
||
ret z
|
||
dec (hl)
|
||
jr x091A
|
||
;¯¥ç âì á⮫¡æ ¯¨ªá¥«¥© (á ¤¢®©®© ¢ëá®â®©)
|
||
x0926 ld de,#C000
|
||
ld bc,(x5B71)
|
||
scf
|
||
rl b
|
||
scf
|
||
rl b
|
||
ld a,c
|
||
cpl
|
||
ld c,a
|
||
xor a
|
||
push af
|
||
push de
|
||
push bc
|
||
x093A call x096D ;¯à®¢¥à¨âì ¯¨ªá¥«ì íªà ¥
|
||
pop bc
|
||
pop de
|
||
ld e,#00
|
||
jr z,x0944
|
||
ld e,d
|
||
x0944 pop af
|
||
or e
|
||
push af
|
||
dec b
|
||
srl d
|
||
srl d
|
||
push de
|
||
push bc
|
||
jr nc,x093A
|
||
pop bc
|
||
pop de
|
||
pop af
|
||
ld b,#03
|
||
x0955 push bc
|
||
push af
|
||
call x08A3 ;¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
pop af
|
||
pop bc
|
||
djnz x0955
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #095F ¯¥à¥¤ ç ¯à¨â¥à ã¯à ¢«ïî饣® ª®¤
|
||
x095F ld b,(hl)
|
||
inc hl
|
||
x0961 ld a,(hl)
|
||
push hl
|
||
push bc
|
||
call x08A3 ;¯¥à¥¤ ç ¡ ©â ¯à¨â¥à
|
||
pop bc
|
||
pop hl
|
||
inc hl
|
||
djnz x0961
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #096D ¯à®¢¥à¨âì ¯¨ªá¥«ì íªà ¥
|
||
;¢ëå: a =#00 ¯¨ªá¥«ï ¥â
|
||
x096D rst #28
|
||
dw Rom1.x22AA ;à ááç¨â âì ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
ld b,a
|
||
inc b
|
||
xor a
|
||
scf
|
||
x0974 rra
|
||
djnz x0974
|
||
and (hl)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0979 ã¯à ¢«ïî騥 ª®¤ë ¯à¨â¥à Epson
|
||
x0979 db #06 ;à §¬¥à ¢ ¡ ©â å
|
||
db #1B,#31 ;ESC '1' - 7/72 ¤î©¬ ¨â¥à¢ « ¬¥¦¤ã áâப ¬¨
|
||
db #1B,#4C,#00,#03 ;ESC 'L' 0 3 - ¤¢®© ï ¯«®â®áâì (768 ¡ ©â áâபã)
|
||
x0980 db #01 ;à §¬¥à ¢ ¡ ©â å
|
||
db #0A ;ª®¤ ¯¥à¥¢®¤ áâப¨ LF
|
||
x0982 db #02 ;à §¬¥à ¢ ¡ ©â å
|
||
db #1B,#32 ;ESC '2' - 1/6 ¤î©¬ ¨â¥à¢ « ¬¥¦¤ã áâப ¬¨
|
||
|
||
;€„<E282AC>…‘: #0985 ª®¬ ¤ PLAY
|
||
x0985 di
|
||
push bc
|
||
ld de,#0037
|
||
ld hl,#003C
|
||
x098D add hl,de ;hl=#003C + (#0037 * b).
|
||
djnz x098D
|
||
ld c,l
|
||
ld b,h
|
||
rst #28
|
||
dw Rom1.x0030 ;१¥à¢¨à®¢ ¨¥ ¯ ¬ïâ¨
|
||
di
|
||
push de
|
||
pop iy
|
||
push hl
|
||
pop ix
|
||
ld (iy+#10),#FF
|
||
x09A0 ld bc,#FFC9 ;-#37
|
||
add ix,bc
|
||
ld (ix+#03),#3C
|
||
ld (ix+#01),#FF
|
||
ld (ix+#04),#0F
|
||
ld (ix+#05),#05
|
||
ld (ix+#21),#00
|
||
ld (ix+#0A),#00
|
||
ld (ix+#0B),#00
|
||
ld (ix+#16),#FF
|
||
ld (ix+#17),#00
|
||
ld (ix+#18),#00
|
||
rst #28 ;!!!®è¨¡ª !!!
|
||
dw Rom1.x2BF1 ;¯à®ç¨â âì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
di
|
||
ld (ix+#06),e
|
||
ld (ix+#07),d
|
||
ld (ix+#0C),e
|
||
ld (ix+#0D),d
|
||
ex de,hl
|
||
add hl,bc
|
||
ld (ix+#08),l
|
||
ld (ix+#09),h
|
||
pop bc
|
||
push bc
|
||
dec b
|
||
ld c,b
|
||
ld b,#00
|
||
sla c
|
||
push iy
|
||
pop hl
|
||
add hl,bc
|
||
push ix
|
||
pop bc
|
||
x09F4 ld (hl),c
|
||
inc hl
|
||
ld (hl),b
|
||
or a
|
||
rl (iy+#10)
|
||
pop bc
|
||
dec b
|
||
push bc
|
||
ld (ix+#02),b
|
||
jr nz,x09A0
|
||
pop bc
|
||
x0A05 ld (iy+#27),#1A
|
||
ld (iy+#28),#0B
|
||
push iy
|
||
pop hl
|
||
ld bc,#002B
|
||
add hl,bc
|
||
ex de,hl
|
||
ld hl,x0A31
|
||
ld bc,#000D
|
||
ldir
|
||
ld d,#07
|
||
ld e,#F8
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ld d,#0B
|
||
ld e,#FF
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
inc d
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
jr x0A7D
|
||
|
||
;€„<E282AC>…‘: #0A31 à áç¥â § ¤¥à¦ª¨
|
||
x0A31 rst #28
|
||
db #A4 ; stk-ten. = x, 10
|
||
db #01 ; exchange. = 10, x
|
||
db #05 ; division. = 10/x
|
||
db #34 ; stk-data. = 10/x, 7.33e-6
|
||
db #DF ; - exponent $6F (floating point number 7.33e-6).
|
||
db #75 ; - mantissa byte 1
|
||
db #F4 ; - mantissa byte 2
|
||
db #38 ; - mantissa byte 3
|
||
db #75 ; - mantissa byte 4
|
||
db #05 ; division. = (10/x)/7.33e-6
|
||
db #38 ; end-calc.
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0A3E ®¯à®á ª« ¢¨è¨ Break
|
||
x0A3E ld a,#7F
|
||
in a,(#FE)
|
||
rra
|
||
ret c
|
||
ld a,#FE
|
||
in a,(#FE)
|
||
rra
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0A4A ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0A4A ld bc,#0011
|
||
jr x0A52
|
||
|
||
;€„<E282AC>…‘: #0A4F ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0A4F ld bc,#0000
|
||
x0A52 push iy
|
||
pop hl
|
||
add hl,bc
|
||
ld (iy+#23),l
|
||
ld (iy+#24),h
|
||
ld a,(iy+#10)
|
||
ld (iy+#22),a
|
||
ld (iy+#21),#01
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0A67 ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
x0A67 ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
push de
|
||
pop ix
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0A6E á«¥¤ãî騩 ª «
|
||
x0A6E ld l,(iy+#23)
|
||
ld h,(iy+#24)
|
||
inc hl
|
||
inc hl
|
||
ld (iy+#23),l
|
||
ld (iy+#24),h
|
||
ret
|
||
|
||
x0A7D call x0A4F ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0A80 rr (iy+#22)
|
||
jr c,x0A8C
|
||
call x0A67 ;ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
call x0B5C ; ©â¨ á«¥¤ãîéãî ®âã
|
||
x0A8C sla (iy+#21)
|
||
jr c,x0A97
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jr x0A80
|
||
x0A97 call x0F91 ; ©â¨ ¨¬¥ìèãî ¤«¨â¥«ì®áâì
|
||
push de
|
||
call x0F42 ;¯à®¨£à âì ®âë ¢® ¢á¥å ª « å
|
||
pop de
|
||
x0A9F ld a,(iy+#10)
|
||
cp #FF
|
||
jr nz,x0AAB
|
||
call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
ret
|
||
x0AAB dec de
|
||
call x0F76 ;®¦¨¤ ¨¥
|
||
call x0FC1 ;¯à®¨£à âì ®âë ¢® ¢á¥å ª « å
|
||
call x0F91 ; ©â¨ ¨¬¥ìèãî ¤«¨â¥«ì®áâì
|
||
jr x0A9F
|
||
|
||
;€„<E282AC>…‘: #0AB7 ᯨ᮪ ª®¬ ¤
|
||
x0AB7 db "HZYXWUVMT)(NO!"
|
||
|
||
;€„<E282AC>…‘: #0AC5 ¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï á ¨ªà¥¬¥â®¬
|
||
;¢ëå: cy=1 ¤ ëå ¡®«ìè¥ ¥â
|
||
x0AC5 call x0EE3 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï
|
||
ret c ;¥â ¤ ëå
|
||
inc (ix+#06)
|
||
ret nz
|
||
inc (ix+#07)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0AD1 ¯®«ãç¨âì ®âã ¢ ¯®«ãâ® å
|
||
x0AD1 push hl
|
||
ld c,#00
|
||
x0AD4 call x0AC5 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï á ¨ªà¥¬¥â®¬
|
||
jr c,x0AE1
|
||
cp "&"
|
||
jr nz,x0AEC
|
||
ld a,#80
|
||
x0ADF pop hl
|
||
ret
|
||
x0AE1 ld a,(iy+#21)
|
||
or (iy+#10)
|
||
ld (iy+#10),a
|
||
jr x0ADF
|
||
x0AEC cp "#"
|
||
jr nz,x0AF3
|
||
inc c
|
||
jr x0AD4
|
||
x0AF3 cp "$"
|
||
jr nz,x0AFA
|
||
dec c
|
||
jr x0AD4
|
||
x0AFA bit 5,a
|
||
jr nz,x0B04
|
||
push af
|
||
ld a,#0C
|
||
add a,c
|
||
ld c,a
|
||
pop af
|
||
x0B04 and #DF
|
||
sub "A"
|
||
jp c,x0F22 ;k Invalid note name
|
||
cp #07
|
||
jp nc,x0F22 ;k Invalid note name
|
||
push bc
|
||
ld b,#00
|
||
ld c,a
|
||
ld hl,x0DF9
|
||
add hl,bc
|
||
ld a,(hl)
|
||
pop bc
|
||
add a,c
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0B1D ¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
x0B1D push hl
|
||
push de
|
||
ld l,(ix+#06)
|
||
ld h,(ix+#07)
|
||
ld de,#0000
|
||
x0B28 ld a,(hl)
|
||
cp "0"
|
||
jr c,x0B45
|
||
cp "9"+1
|
||
jr nc,x0B45
|
||
inc hl
|
||
push hl
|
||
call x0B50 ;㬮¦¥¨¥ de=de*10
|
||
sub #30
|
||
ld h,#00
|
||
ld l,a
|
||
add hl,de
|
||
jr c,x0B42 ;¯¥à¥¯®«¥¨¥
|
||
ex de,hl
|
||
pop hl
|
||
jr x0B28
|
||
x0B42 jp x0F1A ;l number too big
|
||
x0B45 ld (ix+#06),l
|
||
ld (ix+#07),h
|
||
push de
|
||
pop bc
|
||
pop de
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0B50 㬮¦¥¨¥ de=de*10
|
||
x0B50 ld hl,#0000
|
||
ld b,#0A
|
||
x0B55 add hl,de
|
||
jr c,x0B42 ;¯¥à¥¯®«¥¨¥
|
||
djnz x0B55
|
||
ex de,hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0B5C ©â¨ á«¥¤ãîéãî ®âã
|
||
x0B5C call x0A3E ;®¯à®á ª« ¢¨è¨ Break
|
||
jr c,x0B69 ;¥ ¦ â
|
||
call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #14 ;L Break into program
|
||
x0B69 call x0AC5 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï á ¨ªà¥¬¥â®¬
|
||
jp c,x0DA2 ;¥â ¤ ëå
|
||
call x0DF0 ;¨¤¥â¨ä¨ª æ¨ï ª®¬ ¤ë
|
||
ld b,#00
|
||
sla c
|
||
ld hl,x0DCA
|
||
add hl,bc
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ex de,hl
|
||
call x0B84 ;call (hl)
|
||
jr x0B5C
|
||
x0B83 ret
|
||
x0B84 jp (hl)
|
||
|
||
;€„<E282AC>…‘: #0B85 ª®¬ ¤ ! (ª®¬¥â ਩)
|
||
x0B85 call x0AC5 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï á ¨ªà¥¬¥â®¬
|
||
jp c,x0DA1 ;ª®¥æ áâப¨
|
||
cp "!"
|
||
ret z
|
||
jr x0B85
|
||
|
||
;€„<E282AC>…‘: #0B85 ª®¬ ¤ O (®ªâ ¢ )
|
||
x0B90 call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
cp #09
|
||
jp nc,x0F12 ;n Out of range
|
||
sla a
|
||
sla a
|
||
ld b,a
|
||
sla a
|
||
add a,b
|
||
ld (ix+#03),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0BA5 ª®¬ ¤ N (à §¤¥«¨â¥«ì)
|
||
x0BA5 ret
|
||
|
||
;€„<E282AC>…‘: #0BA6 ª®¬ ¤ ( ( ç «® 横« )
|
||
x0BA6 ld a,(ix+#0B)
|
||
inc a
|
||
cp #05
|
||
jp z,x0F2A ;d Too many brackets
|
||
ld (ix+#0B),a
|
||
ld de,#000C
|
||
call x0C27 ;¯®«ãç¨âì ¤à¥á 㪠§ ⥫ï
|
||
ld a,(ix+#06)
|
||
ld (hl),a
|
||
inc hl
|
||
ld a,(ix+#07)
|
||
ld (hl),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0BC2 ª®¬ ¤ ) (ª®¥æ 横« )
|
||
x0BC2 ld a,(ix+#16)
|
||
ld de,#0017
|
||
or a
|
||
jp m,x0BF0
|
||
call x0C27 ;¯®«ãç¨âì ¤à¥á 㪠§ ⥫ï
|
||
ld a,(ix+#06)
|
||
cp (hl)
|
||
jr nz,x0BF0
|
||
inc hl
|
||
ld a,(ix+#07)
|
||
cp (hl)
|
||
jr nz,x0BF0
|
||
dec (ix+#16)
|
||
ld a,(ix+#16)
|
||
or a
|
||
ret p
|
||
bit 0,(ix+#0A)
|
||
ret z
|
||
ld (ix+#16),#00
|
||
xor a
|
||
jr x0C0B
|
||
x0BF0 ld a,(ix+#16)
|
||
inc a
|
||
cp #05
|
||
jp z,x0F2A ;d Too many brackets
|
||
ld (ix+#16),a
|
||
call x0C27 ;¯®«ãç¨âì ¤à¥á 㪠§ ⥫ï
|
||
ld a,(ix+#06)
|
||
ld (hl),a
|
||
inc hl
|
||
ld a,(ix+#07)
|
||
ld (hl),a
|
||
ld a,(ix+#0B)
|
||
x0C0B ld de,#000C
|
||
call x0C27 ;¯®«ãç¨âì ¤à¥á 㪠§ ⥫ï
|
||
ld a,(hl)
|
||
ld (ix+#06),a
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (ix+#07),a
|
||
dec (ix+#0B)
|
||
ret p
|
||
ld (ix+#0B),#00
|
||
set 0,(ix+#0A)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0C27 ¯®«ãç¨âì ¤à¥á 㪠§ ⥫ï
|
||
x0C27 push ix
|
||
pop hl
|
||
add hl,de
|
||
ld b,#00
|
||
ld c,a
|
||
sla c
|
||
add hl,bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0C32 ª®¬ ¤ T (⥬¯)
|
||
x0C32 call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,b
|
||
or a
|
||
jp nz,x0F12 ;n Out of range
|
||
ld a,c
|
||
cp #3C
|
||
jp c,x0F12 ;n Out of range
|
||
cp #F1
|
||
jp nc,x0F12 ;n Out of range
|
||
ld a,(ix+#02)
|
||
or a
|
||
ret nz
|
||
ld b,#00
|
||
push bc
|
||
pop hl
|
||
add hl,hl
|
||
add hl,hl
|
||
push hl
|
||
pop bc
|
||
push iy
|
||
rst #28
|
||
dw Rom1.x2D2B ;bc áâíª ª «ìªã«ïâ®à
|
||
di
|
||
pop iy
|
||
push iy
|
||
push iy
|
||
pop hl
|
||
ld bc,#002B
|
||
add hl,bc
|
||
ld iy,#5C3A
|
||
push hl
|
||
ld hl,x0C76
|
||
ld (x5B5A),hl
|
||
ld hl,x5B14
|
||
ex (sp),hl
|
||
push hl
|
||
jp x5B00
|
||
x0C76 di
|
||
rst #28
|
||
dw Rom1.x2DA2 ;¨§¢«¥çì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
di
|
||
pop iy
|
||
ld (iy+#27),c
|
||
ld (iy+#28),b
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0C84 ª®¬ ¤ M (¬¨ªè¥à)
|
||
x0C84 call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
cp #40
|
||
jp nc,x0F12 ;n Out of range
|
||
cpl
|
||
ld e,a
|
||
ld d,#07
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0C95 ª®¬ ¤ V (£à®¬ª®áâì)
|
||
x0C95 call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
cp #10
|
||
jp nc,x0F12 ;n Out of range
|
||
ld (ix+#04),a ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld e,(ix+#02)
|
||
ld a,#08
|
||
add a,e
|
||
ld d,a
|
||
ld e,c
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CAD ª®¬ ¤ U (íä䥪âë)
|
||
x0CAD ld e,(ix+#02)
|
||
ld a,#08
|
||
add a,e
|
||
ld d,a
|
||
ld e,#1F
|
||
ld (ix+#04),e
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CBA ª®¬ ¤ W (íä䥪âë)
|
||
x0CBA call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
cp #08
|
||
jp nc,x0F12 ;n Out of range
|
||
ld b,#00
|
||
ld hl,x0DE8
|
||
add hl,bc
|
||
ld a,(hl)
|
||
ld (iy+#29),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CCE ª®¬ ¤ X (íä䥪âë)
|
||
x0CCE call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld d,#0B
|
||
ld e,c
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
inc d
|
||
ld e,b
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CDD ª®¬ ¤ Y (MIDI ª «)
|
||
x0CDD call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
dec a
|
||
jp m,x0F12 ;n Out of range
|
||
cp #10
|
||
jp nc,x0F12 ;n Out of range
|
||
ld (ix+#01),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CEE ª®¬ ¤ Z (MIDI ª®¤)
|
||
x0CEE call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CF6 ª®¬ ¤ H (á⮯)
|
||
x0CF6 ld (iy+#10),#FF
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0CFB ª®¬ ¤ë 'a'..'g', 'A'..'G', '1'.."12", '&', '_'
|
||
x0CFB call x0E19 ;íâ® æ¨äà ?
|
||
jp c,x0D81 ;¥â
|
||
call x0DAC ;à áç¥â 㪠§ â¥«ï ¤«¨â¥«ì®áâì
|
||
call x0DB4 ;ãáâ ®¢ª ¤«¨â¥«ì®áâ¨
|
||
xor a
|
||
ld (ix+#21),a
|
||
call x0EC8 ;¯®«ã票¥ ¯à¥¤ë¤ã饣® ¯ à ¬ âà
|
||
call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
or a
|
||
jp z,x0F12 ;n Out of range
|
||
cp #0D
|
||
jp nc,x0F12 ;n Out of range
|
||
cp #0A
|
||
jr c,x0D32
|
||
call x0E00 ;¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
call x0D74 ;㢥«¨ç¥¨¥ áç¥â稪 ®â
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
x0D28 call x0D74 ;㢥«¨ç¥¨¥ áç¥â稪 ®â
|
||
inc hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
inc hl
|
||
jr x0D38
|
||
x0D32 ld (ix+#05),c
|
||
call x0E00 ;¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
x0D38 call x0D74 ;㢥«¨ç¥¨¥ áç¥â稪 ®â
|
||
x0D3B call x0EE3 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï
|
||
cp "_"
|
||
jr nz,x0D6E
|
||
call x0AC5 ;¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï á ¨ªà¥¬¥â®¬
|
||
call x0B1D ;¯®«ãç¨âì ç¨á«®¢®¥ § 票¥ ¯ à ¬¥âà
|
||
ld a,c
|
||
cp #0A
|
||
jr c,x0D5F
|
||
push hl
|
||
push de
|
||
call x0E00 ;¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
pop hl
|
||
add hl,de
|
||
ld c,e
|
||
ld b,d
|
||
ex de,hl
|
||
pop hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
ld e,c
|
||
ld d,b
|
||
jr x0D28
|
||
x0D5F ld (ix+#05),c
|
||
push hl
|
||
push de
|
||
call x0E00 ;¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
pop hl
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
jp x0D3B
|
||
x0D6E ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
jp x0D9C
|
||
|
||
;€„<E282AC>…‘: #0D74 㢥«¨ç¥¨¥ áç¥â稪 ®â
|
||
x0D74 ld a,(ix+#21)
|
||
inc a
|
||
cp #0B
|
||
jp z,x0F3A ;o Too many tied notes
|
||
ld (ix+#21),a
|
||
ret
|
||
|
||
x0D81 call x0EC8 ;¯®«ã票¥ ¯à¥¤ë¤ã饣® ¯ à ¬ âà
|
||
ld (ix+#21),#01
|
||
call x0DAC ;à áç¥â 㪠§ â¥«ï ¤«¨â¥«ì®áâì
|
||
call x0DB4 ;ãáâ ®¢ª ¤«¨â¥«ì®áâ¨
|
||
ld c,(ix+#05)
|
||
push hl
|
||
call x0E00 ;¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
pop hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
jp x0D9C ;!!!¬®¦® ã¡à âì
|
||
x0D9C pop hl
|
||
inc hl
|
||
inc hl
|
||
push hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0DA1 ª®¥æ áâப¨
|
||
x0DA1 pop hl
|
||
x0DA2 ld a,(iy+#21)
|
||
or (iy+#10)
|
||
ld (iy+#10),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0DAC à áç¥â 㪠§ â¥«ï ¤«¨â¥«ì®áâì
|
||
x0DAC push ix
|
||
pop hl
|
||
ld bc,#0022
|
||
add hl,bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0DB4 ãáâ ®¢ª ¤«¨â¥«ì®áâ¨
|
||
x0DB4 push hl
|
||
push iy
|
||
pop hl
|
||
ld bc,#0011
|
||
add hl,bc
|
||
ld b,#00
|
||
ld c,(ix+#02)
|
||
sla c
|
||
add hl,bc
|
||
pop de
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
ex de,hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0DCA â ¡«¨æ ¤à¥á®¢ ®¡à ¡®âª¨ ª®¬ ¤
|
||
x0DCA dw x0CFB ;¯à®ç¨¥ ª®¬ ¤ë
|
||
dw x0B85 ; '!'
|
||
dw x0B90 ; 'O'
|
||
dw x0BA5 ; 'N'
|
||
dw x0BA6 ; '('
|
||
dw x0BC2 ; ')'
|
||
dw x0C32 ; 'T'
|
||
dw x0C84 ; 'M'
|
||
dw x0C95 ; 'V'
|
||
dw x0CAD ; 'U'
|
||
dw x0CBA ; 'W'
|
||
dw x0CCE ; 'X'
|
||
dw x0CDD ; 'Y'
|
||
dw x0CEE ; 'Z'
|
||
dw x0CF6 ; 'H'
|
||
|
||
;â ¡«¨æ ®£¨¡ îé¨å
|
||
x0DE8 db #00 ; W0 - Single decay then off. (Continue off, attack off, alternate off, hold off)
|
||
db #04 ; W1 - Single attack then off. (Continue off, attack on, alternate off, hold off)
|
||
db #0B ; W2 - Single decay then hold. (Continue on, attack off, alternate on, hold on)
|
||
db #0D ; W3 - Single attack then hold. (Continue on, attack on, alternate off, hold on)
|
||
db #08 ; W4 - Repeated decay. (Continue on, attack off, alternate off, hold off)
|
||
db #0C ; W5 - Repeated attack. (Continue on, attack on, alternate off, hold off)
|
||
db #0E ; W6 - Repeated attack-decay. (Continue on, attack on, alternate on, hold off)
|
||
db #0A ; W7 - Repeated decay-attack. (Continue on, attack off, alternate on, hold off)
|
||
|
||
;€„<E282AC>…‘: #0DF0 ¨¤¥â¨ä¨ª æ¨ï ª®¬ ¤ë
|
||
;¢ëå: z - ª®¬ ¤ ©¤¥
|
||
x0DF0 ld bc,#000F
|
||
ld hl,x0AB7
|
||
cpir
|
||
ret
|
||
|
||
;â ¡«¨æ ¯®«ãâ®®¢
|
||
x0DF9 db #09 ; 'A'
|
||
db #0B ; 'B'
|
||
db #00 ; 'C'
|
||
db #02 ; 'D'
|
||
db #04 ; 'E'
|
||
db #05 ; 'F'
|
||
db #07 ; 'G'
|
||
|
||
;€„<E282AC>…‘: #0E00 ¯®«ãç¨âì ¤«¨â¥«ì®áâì ®âë
|
||
x0E00 push hl
|
||
ld b,#00
|
||
ld hl,x0E0C
|
||
add hl,bc
|
||
ld d,#00
|
||
ld e,(hl)
|
||
pop hl
|
||
ret
|
||
;¤«¨â¥«ì®áâì ®â
|
||
x0E0C db #80 ; Rest [Not used since table is always indexed into with a value of 1 or more]
|
||
db #06 ; Semi-quaver (sixteenth note).
|
||
db #09 ; Dotted semi-quaver (3/32th note).
|
||
db #0C ; Quaver (eighth note).
|
||
db #12 ; Dotted quaver (3/16th note).
|
||
db #18 ; Crotchet (quarter note).
|
||
db #24 ; Dotted crotchet (3/8th note).
|
||
db #30 ; Minim (half note).
|
||
db #48 ; Dotted minim (3/4th note).
|
||
db #60 ; Semi-breve (whole note).
|
||
db #04 ; Triplet semi-quaver (1/24th note).
|
||
db #08 ; Triplet quaver (1/12th note).
|
||
db #10 ; Triplet crochet (1/6th note).
|
||
|
||
;€„<E282AC>…‘: #0E19 íâ® æ¨äà ?
|
||
;¢ëå: cy=0 íâ® æ¨äà
|
||
x0E19 cp "0"
|
||
ret c
|
||
cp "9"+1
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0E20 ¯à®¨£à âì ®âã ¢ ª «¥
|
||
x0E20 ld c,a
|
||
ld a,(ix+#03)
|
||
add a,c
|
||
cp #80
|
||
jp nc,x0F32 ;m Note out of range
|
||
ld c,a
|
||
ld a,(ix+#02)
|
||
or a
|
||
jr nz,x0E3F
|
||
ld a,c
|
||
cpl
|
||
and #7F
|
||
srl a
|
||
srl a
|
||
ld d,#06
|
||
ld e,a
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
x0E3F ld (ix+#00),c
|
||
ld a,(ix+#02)
|
||
cp #03
|
||
ret nc
|
||
ld hl,x1096
|
||
ld b,#00
|
||
ld a,c
|
||
sub #15
|
||
jr nc,x0E57
|
||
ld de,#0FBF
|
||
jr x0E5E
|
||
x0E57 ld c,a
|
||
sla c
|
||
add hl,bc
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
x0E5E ex de,hl
|
||
ld d,(ix+#02)
|
||
sla d
|
||
ld e,l
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
inc d
|
||
ld e,h
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
bit 4,(ix+#04)
|
||
ret z
|
||
ld d,#0D
|
||
ld a,(iy+#29)
|
||
ld e,a
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0E7C ¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
x0E7C push bc
|
||
ld bc,#FFFD
|
||
out (c),d
|
||
ld bc,#BFFD
|
||
out (c),e
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0E89 ç⥨¥ ॣ¨áâà AY
|
||
x0E89 push bc
|
||
ld bc,#FFFD
|
||
out (c),a
|
||
in a,(c)
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0E93 £ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
x0E93 ld d,#07
|
||
ld e,#FF
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
ld d,#08
|
||
ld e,#00
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
inc d
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
inc d
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
call x0A4F ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0EAC rr (iy+#22)
|
||
jr c,x0EB8
|
||
call x0A67 ;ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
call x118D ;£ ᨬ §¢ãª ¢ ª «¥ MIDI
|
||
x0EB8 sla (iy+#21)
|
||
jr c,x0EC3
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jr x0EAC
|
||
x0EC3 ld iy,#5C3A
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0EC8 ¯®«ã票¥ ¯à¥¤ë¤ã饣® ¯ à ¬ âà
|
||
x0EC8 push hl
|
||
push de
|
||
ld l,(ix+#06)
|
||
ld h,(ix+#07)
|
||
x0ED0 dec hl
|
||
ld a,(hl)
|
||
cp " "
|
||
jr z,x0ED0
|
||
cp #0D
|
||
jr z,x0ED0
|
||
ld (ix+#06),l
|
||
ld (ix+#07),h
|
||
pop de
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0EE3 ¯à®ç¨â âì ⥪ã騩 ᨬ¢®« ¨§ áâப¨ ¢®á¯à®¨§¢¥¤¥¨ï
|
||
;¢ëå: cy=1 ¤ ëå ¡®«ìè¥ ¥â
|
||
x0EE3 push hl
|
||
push de
|
||
push bc
|
||
ld l,(ix+#06)
|
||
ld h,(ix+#07)
|
||
x0EEC ld a,h
|
||
cp (ix+#09)
|
||
jr nz,x0EFB
|
||
ld a,l
|
||
cp (ix+#08)
|
||
jr nz,x0EFB
|
||
scf
|
||
jr x0F05
|
||
x0EFB ld a,(hl)
|
||
cp " "
|
||
jr z,x0F09
|
||
cp #0D
|
||
jr z,x0F09
|
||
or a
|
||
x0F05 pop bc
|
||
pop de
|
||
pop hl
|
||
ret
|
||
x0F09 inc hl
|
||
ld (ix+#06),l
|
||
ld (ix+#07),h
|
||
jr x0EEC
|
||
|
||
;€„<E282AC>…‘: #0F12 ®¡à ¡®âª ®è¨¡®ª
|
||
x0F12 call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #29 ;n Out of range
|
||
x0F1A call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #27 ;l Number too big
|
||
x0F22 call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #26 ;k Invalid note name
|
||
x0F2A call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #1F ;d Too many brackets
|
||
x0F32 call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #28 ;m Note out of range
|
||
x0F3A call x0E93 ;£ ᨬ §¢ãª¨ ¢® ¢á¥å ª « å
|
||
ei
|
||
call x05AC
|
||
db #2A ;o Too many tied notes
|
||
|
||
;€„<E282AC>…‘: #0F42 ¯à®¨£à âì ®âë ¢® ¢á¥å ª « å
|
||
x0F42 call x0A4F ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0F45 rr (iy+#22)
|
||
jr c,x0F6C
|
||
call x0A67 ;ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
call x0AD1 ;¯®«ãç¨âì ®âã ¢ ¯®«ãâ® å
|
||
cp #80
|
||
jr z,x0F6C
|
||
call x0E20 ;¯à®¨£à âì ®âã ¢ ª «¥
|
||
ld a,(ix+#02)
|
||
cp #03
|
||
jr nc,x0F69
|
||
ld d,#08
|
||
add a,d
|
||
ld d,a
|
||
ld e,(ix+#04)
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
x0F69 call x116E ;¯à®¨£à âì ®âã ¢ ª «¥ MIDI
|
||
x0F6C sla (iy+#21)
|
||
ret c
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jr x0F45
|
||
|
||
;€„<E282AC>…‘: #0F76 ®¦¨¤ ¨¥
|
||
x0F76 push hl
|
||
ld l,(iy+#27)
|
||
ld h,(iy+#28)
|
||
ld bc,#0064
|
||
or a
|
||
sbc hl,bc
|
||
push hl
|
||
pop bc
|
||
pop hl
|
||
x0F86 dec bc
|
||
ld a,b
|
||
or c
|
||
jr nz,x0F86
|
||
dec de
|
||
ld a,d
|
||
or e
|
||
jr nz,x0F76
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0F91 ©â¨ ¨¬¥ìèãî ¤«¨â¥«ì®áâì
|
||
x0F91 ld de,#FFFF
|
||
call x0A4A ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0F97 rr (iy+#22)
|
||
jr c,x0FAF
|
||
push de
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ex de,hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
push de
|
||
pop hl
|
||
pop bc
|
||
or a
|
||
sbc hl,bc
|
||
jr c,x0FAF
|
||
push bc
|
||
pop de
|
||
x0FAF sla (iy+#21)
|
||
jr c,x0FBA
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jr x0F97
|
||
x0FBA ld (iy+#25),e
|
||
ld (iy+#26),d
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #0FC1 ¯à®¨£à âì ®âë ¢® ¢á¥å ª « å
|
||
x0FC1 xor a
|
||
ld (iy+#2A),a
|
||
call x0A4F ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x0FC8 rr (iy+#22)
|
||
jp c,x105A
|
||
call x0A67 ;ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
push iy
|
||
pop hl
|
||
ld bc,#0011
|
||
add hl,bc
|
||
ld b,#00
|
||
ld c,(ix+#02)
|
||
sla c
|
||
add hl,bc
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ex de,hl
|
||
push hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ex de,hl
|
||
ld e,(iy+#25)
|
||
ld d,(iy+#26)
|
||
or a
|
||
sbc hl,de
|
||
ex de,hl
|
||
pop hl
|
||
jr z,x0FFC
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
jr x105A
|
||
x0FFC ld a,(ix+#02)
|
||
cp #03
|
||
jr nc,x100C
|
||
ld d,#08
|
||
add a,d
|
||
ld d,a
|
||
ld e,#00
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
x100C call x118D ;£ ᨬ §¢ãª ¢ ª «¥ MIDI
|
||
push ix
|
||
pop hl
|
||
ld bc,#0021
|
||
add hl,bc
|
||
dec (hl)
|
||
jr nz,x1026
|
||
call x0B5C ; ©â¨ á«¥¤ãîéãî ®âã
|
||
ld a,(iy+#21)
|
||
and (iy+#10)
|
||
jr nz,x105A
|
||
jr x103D
|
||
x1026 push iy
|
||
pop hl
|
||
ld bc,#0011
|
||
add hl,bc
|
||
ld b,#00
|
||
ld c,(ix+#02)
|
||
sla c
|
||
add hl,bc
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
inc de
|
||
inc de
|
||
ld (hl),d
|
||
dec hl
|
||
ld (hl),e
|
||
x103D call x0AD1 ;¯®«ãç¨âì ®âã ¢ ¯®«ãâ® å
|
||
ld c,a
|
||
ld a,(iy+#21)
|
||
and (iy+#10)
|
||
jr nz,x105A
|
||
ld a,c
|
||
cp #80
|
||
jr z,x105A
|
||
call x0E20 ;¯à®¨£à âì ®âã ¢ ª «¥
|
||
ld a,(iy+#21)
|
||
or (iy+#2A)
|
||
ld (iy+#2A),a
|
||
x105A sla (iy+#21)
|
||
jr c,x1066
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jp x0FC8
|
||
x1066 ld de,#0001
|
||
call x0F76 ;®¦¨¤ ¨¥
|
||
call x0A4F ;ãáâ ®¢ª 㪠§ â¥«ï ¤ ë¥ ¤«ï ª « AY
|
||
x106F rr (iy+#2A)
|
||
jr nc,x108C
|
||
call x0A67 ;ãáâ ®¢¨âì ¤à¥á ¡«®ª ¤ ëå ª «
|
||
ld a,(ix+#02)
|
||
cp #03
|
||
jr nc,x1089
|
||
ld d,#08
|
||
add a,d
|
||
ld d,a
|
||
ld e,(ix+#04)
|
||
call x0E7C ;¢ë¢®¤ § ç¥¨ï ¢ ॣ¨áâà AY
|
||
x1089 call x116E ;¯à®¨£à âì ®âã ¢ ª «¥ MIDI
|
||
x108C sla (iy+#21)
|
||
ret c
|
||
call x0A6E ;á«¥¤ãî騩 ª «
|
||
jr x106F
|
||
|
||
;â ¡«¨æ ®â
|
||
x1096 dw #0FBF; Octave 1, Note 21 - A (27.50 Hz, Ideal=27.50 Hz, Error=-0.01%) C0
|
||
dw #0EDC; Octave 1, Note 22 - A# (29.14 Hz, Ideal=29.16 Hz, Error=-0.08%)
|
||
dw #0E07; Octave 1, Note 23 - B (30.87 Hz, Ideal=30.87 Hz, Error=-0.00%)
|
||
|
||
dw #0D3D; Octave 2, Note 24 - C (32.71 Hz, Ideal=32.70 Hz, Error=+0.01%) C1
|
||
dw #0C7F; Octave 2, Note 25 - C# (34.65 Hz, Ideal=34.65 Hz, Error=-0.00%)
|
||
dw #0BCC; Octave 2, Note 26 - D (36.70 Hz, Ideal=36.71 Hz, Error=-0.01%)
|
||
dw #0B22; Octave 2, Note 27 - D# (38.89 Hz, Ideal=38.89 Hz, Error=+0.01%)
|
||
dw #0A82; Octave 2, Note 28 - E (41.20 Hz, Ideal=41.20 Hz, Error=+0.00%)
|
||
dw #09EB; Octave 2, Note 29 - F (43.66 Hz, Ideal=43.65 Hz, Error=+0.00%)
|
||
dw #095D; Octave 2, Note 30 - F# (46.24 Hz, Ideal=46.25 Hz, Error=-0.02%)
|
||
dw #08D6; Octave 2, Note 31 - G (49.00 Hz, Ideal=49.00 Hz, Error=+0.00%)
|
||
dw #0857; Octave 2, Note 32 - G# (51.92 Hz, Ideal=51.91 Hz, Error=+0.01%)
|
||
dw #07DF; Octave 2, Note 33 - A (55.01 Hz, Ideal=55.00 Hz, Error=+0.01%)
|
||
dw #076E; Octave 2, Note 34 - A# (58.28 Hz, Ideal=58.33 Hz, Error=-0.08%)
|
||
dw #0703; Octave 2, Note 35 - B (61.75 Hz, Ideal=61.74 Hz, Error=+0.02%)
|
||
|
||
dw #069F; Octave 3, Note 36 - C ( 65.39 Hz, Ideal= 65.41 Hz, Error=-0.02%) C2
|
||
dw #0640; Octave 3, Note 37 - C# ( 69.28 Hz, Ideal= 69.30 Hz, Error=-0.04%)
|
||
dw #05E6; Octave 3, Note 38 - D ( 73.40 Hz, Ideal= 73.42 Hz, Error=-0.01%)
|
||
dw #0591; Octave 3, Note 39 - D# ( 77.78 Hz, Ideal= 77.78 Hz, Error=+0.01%)
|
||
dw #0541; Octave 3, Note 40 - E ( 82.41 Hz, Ideal= 82.41 Hz, Error=+0.00%)
|
||
dw #04F6; Octave 3, Note 41 - F ( 87.28 Hz, Ideal= 87.31 Hz, Error=-0.04%)
|
||
dw #04AE; Octave 3, Note 42 - F# ( 92.52 Hz, Ideal= 92.50 Hz, Error=+0.02%)
|
||
dw #046B; Octave 3, Note 43 - G ( 98.00 Hz, Ideal= 98.00 Hz, Error=+0.00%)
|
||
dw #042C; Octave 3, Note 44 - G# (103.78 Hz, Ideal=103.83 Hz, Error=-0.04%)
|
||
dw #03F0; Octave 3, Note 45 - A (109.96 Hz, Ideal=110.00 Hz, Error=-0.04%)
|
||
dw #03B7; Octave 3, Note 46 - A# (116.55 Hz, Ideal=116.65 Hz, Error=-0.08%)
|
||
dw #0382; Octave 3, Note 47 - B (123.43 Hz, Ideal=123.47 Hz, Error=-0.03%)
|
||
|
||
dw #034F; Octave 4, Note 48 - C (130.86 Hz, Ideal=130.82 Hz, Error=+0.04%) C3
|
||
dw #0320; Octave 4, Note 49 - C# (138.55 Hz, Ideal=138.60 Hz, Error=-0.04%)
|
||
dw #02F3; Octave 4, Note 50 - D (146.81 Hz, Ideal=146.83 Hz, Error=-0.01%)
|
||
dw #02C8; Octave 4, Note 51 - D# (155.68 Hz, Ideal=155.55 Hz, Error=+0.08%)
|
||
dw #02A1; Octave 4, Note 52 - E (164.70 Hz, Ideal=164.82 Hz, Error=-0.07%)
|
||
dw #027B; Octave 4, Note 53 - F (174.55 Hz, Ideal=174.62 Hz, Error=-0.04%)
|
||
dw #0257; Octave 4, Note 54 - F# (185.04 Hz, Ideal=185.00 Hz, Error=+0.02%)
|
||
dw #0236; Octave 4, Note 55 - G (195.83 Hz, Ideal=196.00 Hz, Error=-0.09%)
|
||
dw #0216; Octave 4, Note 56 - G# (207.57 Hz, Ideal=207.65 Hz, Error=-0.04%)
|
||
dw #01F8; Octave 4, Note 57 - A (219.92 Hz, Ideal=220.00 Hz, Error=-0.04%)
|
||
dw #01DC; Octave 4, Note 58 - A# (232.86 Hz, Ideal=233.30 Hz, Error=-0.19%)
|
||
dw #01C1; Octave 4, Note 59 - B (246.86 Hz, Ideal=246.94 Hz, Error=-0.03%)
|
||
|
||
dw #01A8; Octave 5, Note 60 - C (261.42 Hz, Ideal=261.63 Hz, Error=-0.08%) C4 Middle C
|
||
dw #0190; Octave 5, Note 61 - C# (277.10 Hz, Ideal=277.20 Hz, Error=-0.04%)
|
||
dw #0179; Octave 5, Note 62 - D (294.01 Hz, Ideal=293.66 Hz, Error=+0.12%)
|
||
dw #0164; Octave 5, Note 63 - D# (311.35 Hz, Ideal=311.10 Hz, Error=+0.08%)
|
||
dw #0150; Octave 5, Note 64 - E (329.88 Hz, Ideal=329.63 Hz, Error=+0.08%)
|
||
dw #013D; Octave 5, Note 65 - F (349.65 Hz, Ideal=349.23 Hz, Error=+0.12%)
|
||
dw #012C; Octave 5, Note 66 - F# (369.47 Hz, Ideal=370.00 Hz, Error=-0.14%)
|
||
dw #011B; Octave 5, Note 67 - G (391.66 Hz, Ideal=392.00 Hz, Error=-0.09%)
|
||
dw #010B; Octave 5, Note 68 - G# (415.13 Hz, Ideal=415.30 Hz, Error=-0.04%)
|
||
dw #00FC; Octave 5, Note 69 - A (439.84 Hz, Ideal=440.00 Hz, Error=-0.04%)
|
||
dw #00EE; Octave 5, Note 70 - A# (465.72 Hz, Ideal=466.60 Hz, Error=-0.19%)
|
||
dw #00E0; Octave 5, Note 71 - B (494.82 Hz, Ideal=493.88 Hz, Error=+0.19%)
|
||
|
||
dw #00D4; Octave 6, Note 72 - C (522.83 Hz, Ideal=523.26 Hz, Error=-0.08%) C5
|
||
dw #00C8; Octave 6, Note 73 - C# (554.20 Hz, Ideal=554.40 Hz, Error=-0.04%)
|
||
dw #00BD; Octave 6, Note 74 - D (586.46 Hz, Ideal=587.32 Hz, Error=-0.15%)
|
||
dw #00B2; Octave 6, Note 75 - D# (622.70 Hz, Ideal=622.20 Hz, Error=+0.08%)
|
||
dw #00A8; Octave 6, Note 76 - E (659.77 Hz, Ideal=659.26 Hz, Error=+0.08%)
|
||
dw #009F; Octave 6, Note 77 - F (697.11 Hz, Ideal=698.46 Hz, Error=-0.19%)
|
||
dw #0096; Octave 6, Note 78 - F# (738.94 Hz, Ideal=740.00 Hz, Error=-0.14%)
|
||
dw #008D; Octave 6, Note 79 - G (786.10 Hz, Ideal=784.00 Hz, Error=+0.27%)
|
||
dw #0085; Octave 6, Note 80 - G# (833.39 Hz, Ideal=830.60 Hz, Error=+0.34%)
|
||
dw #007E; Octave 6, Note 81 - A (879.69 Hz, Ideal=880.00 Hz, Error=-0.04%)
|
||
dw #0077; Octave 6, Note 82 - A# (931.43 Hz, Ideal=933.20 Hz, Error=-0.19%)
|
||
dw #0070; Octave 6, Note 83 - B (989.65 Hz, Ideal=987.76 Hz, Error=+0.19%)
|
||
|
||
dw #006A; Octave 7, Note 84 - C (1045.67 Hz, Ideal=1046.52 Hz, Error=-0.08%) C6
|
||
dw #0064; Octave 7, Note 85 - C# (1108.41 Hz, Ideal=1108.80 Hz, Error=-0.04%)
|
||
dw #005E; Octave 7, Note 86 - D (1179.16 Hz, Ideal=1174.64 Hz, Error=+0.38%)
|
||
dw #0059; Octave 7, Note 87 - D# (1245.40 Hz, Ideal=1244.40 Hz, Error=+0.08%)
|
||
dw #0054; Octave 7, Note 88 - E (1319.53 Hz, Ideal=1318.52 Hz, Error=+0.08%)
|
||
dw #004F; Octave 7, Note 89 - F (1403.05 Hz, Ideal=1396.92 Hz, Error=+0.44%)
|
||
dw #004B; Octave 7, Note 90 - F# (1477.88 Hz, Ideal=1480.00 Hz, Error=-0.14%)
|
||
dw #0047; Octave 7, Note 91 - G (1561.14 Hz, Ideal=1568.00 Hz, Error=-0.44%)
|
||
dw #0043; Octave 7, Note 92 - G# (1654.34 Hz, Ideal=1661.20 Hz, Error=-0.41%)
|
||
dw #003F; Octave 7, Note 93 - A (1759.38 Hz, Ideal=1760.00 Hz, Error=-0.04%)
|
||
dw #003B; Octave 7, Note 94 - A# (1878.65 Hz, Ideal=1866.40 Hz, Error=+0.66%)
|
||
dw #0038; Octave 7, Note 95 - B (1979.30 Hz, Ideal=1975.52 Hz, Error=+0.19%)
|
||
|
||
dw #0035; Octave 8, Note 96 - C (2091.33 Hz, Ideal=2093.04 Hz, Error=-0.08%) C7
|
||
dw #0032; Octave 8, Note 97 - C# (2216.81 Hz, Ideal=2217.60 Hz, Error=-0.04%)
|
||
dw #002F; Octave 8, Note 98 - D (2358.31 Hz, Ideal=2349.28 Hz, Error=+0.38%)
|
||
dw #002D; Octave 8, Note 99 - D# (2463.13 Hz, Ideal=2488.80 Hz, Error=-1.03%)
|
||
dw #002A; Octave 8, Note 100 - E (2639.06 Hz, Ideal=2637.04 Hz, Error=+0.08%)
|
||
dw #0028; Octave 8, Note 101 - F (2771.02 Hz, Ideal=2793.84 Hz, Error=-0.82%)
|
||
dw #0025; Octave 8, Note 102 - F# (2995.69 Hz, Ideal=2960.00 Hz, Error=+1.21%)
|
||
dw #0023; Octave 8, Note 103 - G (3166.88 Hz, Ideal=3136.00 Hz, Error=+0.98%)
|
||
dw #0021; Octave 8, Note 104 - G# (3358.81 Hz, Ideal=3322.40 Hz, Error=+1.10%)
|
||
dw #001F; Octave 8, Note 105 - A (3575.50 Hz, Ideal=3520.00 Hz, Error=+1.58%)
|
||
dw #001E; Octave 8, Note 106 - A# (3694.69 Hz, Ideal=3732.80 Hz, Error=-1.02%)
|
||
dw #001C; Octave 8, Note 107 - B (3958.59 Hz, Ideal=3951.04 Hz, Error=+0.19%)
|
||
|
||
dw #001A; Octave 9, Note 108 - C (4263.10 Hz, Ideal=4186.08 Hz, Error=+1.84%) C8
|
||
dw #0019; Octave 9, Note 109 - C# (4433.63 Hz, Ideal=4435.20 Hz, Error=-0.04%)
|
||
dw #0018; Octave 9, Note 110 - D (4618.36 Hz, Ideal=4698.56 Hz, Error=-1.71%)
|
||
dw #0016; Octave 9, Note 111 - D# (5038.21 Hz, Ideal=4977.60 Hz, Error=+1.22%)
|
||
dw #0015; Octave 9, Note 112 - E (5278.13 Hz, Ideal=5274.08 Hz, Error=+0.08%)
|
||
dw #0014; Octave 9, Note 113 - F (5542.03 Hz, Ideal=5587.68 Hz, Error=-0.82%)
|
||
dw #0013; Octave 9, Note 114 - F# (5833.72 Hz, Ideal=5920.00 Hz, Error=-1.46%)
|
||
dw #0012; Octave 9, Note 115 - G (6157.81 Hz, Ideal=6272.00 Hz, Error=-1.82%)
|
||
dw #0011; Octave 9, Note 116 - G# (6520.04 Hz, Ideal=6644.80 Hz, Error=-1.88%)
|
||
dw #0010; Octave 9, Note 117 - A (6927.54 Hz, Ideal=7040.00 Hz, Error=-1.60%)
|
||
dw #000F; Octave 9, Note 118 - A# (7389.38 Hz, Ideal=7465.60 Hz, Error=-1.02%)
|
||
dw #000E; Octave 9, Note 119 - B (7917.19 Hz, Ideal=7902.08 Hz, Error=+0.19%)
|
||
|
||
dw #000D; Octave 10, Note 120 - C ( 8526.20 Hz, Ideal= 8372.16 Hz, Error=+1.84%) C9
|
||
dw #000C; Octave 10, Note 121 - C# ( 9236.72 Hz, Ideal= 8870.40 Hz, Error=+4.13%)
|
||
dw #000C; Octave 10, Note 122 - D ( 9236.72 Hz, Ideal= 9397.12 Hz, Error=-1.71%)
|
||
dw #000B; Octave 10, Note 123 - D# (10076.42 Hz, Ideal= 9955.20 Hz, Error=+1.22%)
|
||
dw #000B; Octave 10, Note 124 - E (10076.42 Hz, Ideal=10548.16 Hz, Error=-4.47%)
|
||
dw #000A; Octave 10, Note 125 - F (11084.06 Hz, Ideal=11175.36 Hz, Error=-0.82%)
|
||
dw #0009; Octave 10, Note 126 - F# (12315.63 Hz, Ideal=11840.00 Hz, Error=+4.02%)
|
||
dw #0009; Octave 10, Note 127 - G (12315.63 Hz, Ideal=12544.00 Hz, Error=-1.82%)
|
||
dw #0008; Octave 10, Note 128 - G# (13855.08 Hz, Ideal=13289.60 Hz, Error=+4.26%)
|
||
|
||
;€„<E282AC>…‘: #116E ¯à®¨£à âì ®âã ¢ ª «¥ MIDI
|
||
x116E ld a,(ix+#01)
|
||
or a
|
||
ret m
|
||
or #90
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ld a,(ix+#00)
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ld a,(ix+#04)
|
||
res 4,a
|
||
sla a
|
||
sla a
|
||
sla a
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #118D £ ᨬ §¢ãª ¢ ª «¥ MIDI
|
||
x118D ld a,(ix+#01)
|
||
or a
|
||
ret m
|
||
or #80
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ld a,(ix+#00)
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ld a,#40
|
||
call x11A3 ;§ £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
ret ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
|
||
;€„<E282AC>…‘: #11A3 § £à㧪 ¡ ©â ¢ ¯®àâ MIDI
|
||
x11A3 ld l,a
|
||
ld bc,#FFFD
|
||
ld a,#0E
|
||
out (c),a
|
||
ld bc,#BFFD
|
||
ld a,#FA ;Set RS232 'RXD' transmit line to 0
|
||
out (c),a
|
||
ld e,#03 ;§ ¤¥à¦ª 113 ⠪⮢
|
||
x11B4 dec e
|
||
jr nz,x11B4
|
||
nop
|
||
nop
|
||
nop
|
||
nop
|
||
ld a,l
|
||
ld d,#08
|
||
x11BE rra
|
||
ld l,a
|
||
jp nc,x11C9
|
||
ld a,#FE ;Set RS232 'RXD' transmit line to 1
|
||
out (c),a
|
||
jr x11CF
|
||
x11C9 ld a,#FA ;Set RS232 'RXD' transmit line to 0
|
||
out (c),a
|
||
jr x11CF
|
||
x11CF ld e,#02
|
||
x11D1 dec e
|
||
jr nz,x11D1
|
||
nop
|
||
add a,#00
|
||
ld a,l
|
||
dec d
|
||
jr nz,x11BE
|
||
nop
|
||
nop
|
||
add a,#00
|
||
nop
|
||
nop
|
||
ld a,#FE ;Set RS232 'RXD' transmit line to 0
|
||
out (c),a
|
||
ld e,#06
|
||
x11E7 dec e
|
||
jr nz,x11E7
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #11EB ª®¬ ¤ SAVE
|
||
x11EB ld hl,x5B66
|
||
set 5,(hl)
|
||
jr x1205
|
||
|
||
;€„<E282AC>…‘: #11F2 ª®¬ ¤ LOAD
|
||
x11F2 ld hl,x5B66
|
||
set 4,(hl)
|
||
jr x1205
|
||
|
||
;€„<E282AC>…‘: #11F2 ª®¬ ¤ VERIFY
|
||
x11F9 ld hl,x5B66
|
||
set 7,(hl)
|
||
jr x1205
|
||
|
||
;€„<E282AC>…‘: #1200 ª®¬ ¤ MERGE
|
||
x1200 ld hl,x5B66
|
||
set 6,(hl)
|
||
x1205 ld hl,x5B66 ;!!!«¨è¥¥
|
||
res 3,(hl)
|
||
rst #18 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp "!"
|
||
jp nz,x13BE ;à ¡®â á «¥â®©
|
||
ld hl,x5B66
|
||
set 3,(hl)
|
||
rst #20 ;¯®«ã票¥ á«¥¤ãî饣® ᨬ¢®« ¨§ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
jp x13BE ;à ¡®â á RAM ¤¨áª®¬
|
||
|
||
;€„<E282AC>…‘: #1219 ®è¨¡ª C Nonsense in BASIC
|
||
x1219 call x05AC
|
||
db #0B ;C Nonsense in BASIC
|
||
|
||
;€„<E282AC>…‘: #121D à ¡®â á RAM ¤¨áª®¬
|
||
x121D ld (x5B74),hl
|
||
ld a,(ix+#00)
|
||
ld (x5B71),a
|
||
ld l,(ix+#0B)
|
||
ld h,(ix+#0C)
|
||
ld (x5B72),hl
|
||
ld l,(ix+#0D)
|
||
ld h,(ix+#0E)
|
||
ld (x5B78),hl
|
||
ld l,(ix+#0F)
|
||
ld h,(ix+#10)
|
||
ld (x5B76),hl
|
||
or a
|
||
jr z,x124E ;BASIC
|
||
cp #03
|
||
jr z,x124E ;CODE/SCREEN$
|
||
ld a,(ix+#0E) ;DATA
|
||
ld (x5B76),a
|
||
x124E push ix
|
||
pop hl
|
||
inc hl
|
||
ld de,x5B67
|
||
ld bc,#000A
|
||
ldir
|
||
ld hl,x5B66
|
||
bit 5,(hl)
|
||
jp nz,x1BAD ;SAVE
|
||
ld hl,x5B71
|
||
ld de,x5B7A
|
||
ld bc,#0007
|
||
ldir
|
||
call x1C2E ;§ £à㧪 § £®«®¢ª ä ©« ¨§ RAM ¤¨áª
|
||
ld a,(x5B7A)
|
||
ld b,a
|
||
ld a,(x5B71)
|
||
cp b
|
||
jr nz,x1280 ;b Wrong file type
|
||
cp #03
|
||
jr z,x1290
|
||
jr c,x1284
|
||
x1280 call x05AC
|
||
db #1D ;b Wrong file type
|
||
x1284 ld a,(x5B66)
|
||
bit 6,a
|
||
jr nz,x12C5
|
||
bit 7,a
|
||
jp z,x12DB
|
||
x1290 ld a,(x5B66)
|
||
bit 6,a
|
||
jr z,x129B
|
||
call x05AC
|
||
db #1C ;a MERGE error
|
||
x129B ld hl,(x5B7B)
|
||
ld de,(x5B72)
|
||
ld a,h
|
||
or l
|
||
jr z,x12AE
|
||
sbc hl,de
|
||
jr nc,x12AE
|
||
call x05AC
|
||
db #1E ;c CODE error
|
||
x12AE ld hl,(x5B7B+2)
|
||
ld a,h
|
||
or l
|
||
jr nz,x12B8
|
||
ld hl,(x5B74)
|
||
x12B8 ld a,(x5B71)
|
||
and a
|
||
jr nz,x12C1
|
||
ld hl,(#5C53)
|
||
x12C1 call x137E ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
ret
|
||
x12C5 ld bc,(x5B72)
|
||
push bc
|
||
inc bc
|
||
rst #28
|
||
dw Rom1.x0030 ;१¥à¢¨à®¢ ¨¥ ¯ ¬ïâ¨
|
||
x12CE ld (hl),#80
|
||
ex de,hl
|
||
pop de
|
||
push hl
|
||
call x137E ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
pop hl
|
||
rst #28
|
||
dw Rom1.x08CE ;MERGE
|
||
ret
|
||
x12DB ld de,(x5B72)
|
||
ld hl,(x5B7B+2)
|
||
push hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x12ED
|
||
inc de
|
||
inc de
|
||
inc de
|
||
ex de,hl
|
||
jr x12F6
|
||
x12ED ld hl,(x5B7B)
|
||
ex de,hl
|
||
scf
|
||
sbc hl,de
|
||
jr c,x12FF
|
||
x12F6 ld de,#0005
|
||
add hl,de
|
||
ld b,h
|
||
ld c,l
|
||
rst #28
|
||
dw Rom1.x1F05 ;¯à®¢¥àª «¨ç¨ï ᢮¡®¤®© ¯ ¬ïâ¨
|
||
x12FF pop hl
|
||
ld a,(x5B71)
|
||
and a
|
||
jr z,x1335
|
||
ld a,h
|
||
or l
|
||
jr z,x1315
|
||
dec hl
|
||
ld b,(hl)
|
||
dec hl
|
||
ld c,(hl)
|
||
dec hl
|
||
inc bc
|
||
inc bc
|
||
inc bc
|
||
rst #28
|
||
dw Rom1.x19E8 ;㤠«¨âì ¬ áᨢ DIM
|
||
x1315 ld hl,(#5C59)
|
||
dec hl
|
||
ld bc,(x5B72)
|
||
push bc
|
||
inc bc
|
||
inc bc
|
||
inc bc
|
||
ld a,(x5B7F)
|
||
push af
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
inc hl
|
||
pop af
|
||
ld (hl),a
|
||
pop de
|
||
inc hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
inc hl
|
||
x1331 call x137E ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
ret
|
||
x1335 ld hl,x5B66
|
||
res 1,(hl)
|
||
ld de,(#5C53)
|
||
ld hl,(#5C59)
|
||
dec hl
|
||
rst #28
|
||
dw Rom1.x19E5 ;㤠«¨âì ¯¥à¥¬¥ë¥
|
||
ld bc,(x5B72)
|
||
ld hl,(#5C53)
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
inc hl
|
||
ld bc,(x5B76)
|
||
add hl,bc
|
||
ld (#5C4B),hl
|
||
ld a,(x5B78+1)
|
||
ld h,a
|
||
and #C0
|
||
jr nz,x1370
|
||
ld a,(x5B78)
|
||
ld l,a
|
||
ld (#5C42),hl
|
||
ld (iy+#0A),#00
|
||
ld hl,x5B66
|
||
set 1,(hl)
|
||
x1370 ld hl,(#5C53)
|
||
ld de,(x5B72)
|
||
dec hl
|
||
ld (#5C57),hl
|
||
inc hl
|
||
jr x1331 ;!!!¬®¦® 㤠«¨âì
|
||
|
||
;€„<E282AC>…‘: #137E § £à㧪 ¤ ëå á RAM ¤¨áª
|
||
x137E ld a,d
|
||
or e
|
||
ret z
|
||
call x1C4B ;§ £à㧪 ¨§ RAM ¤¨áª
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1385 ¯®«ãç¨âì ¢ëà ¦¥¨ï ¨§ áâப¨ ¡¥©á¨ª
|
||
x1385 rst #28
|
||
dw Rom1.x1C8C ;¯ à ¬¥âà - áâப
|
||
bit 7,(iy+#01)
|
||
ret z ;¯à®¢¥àª á¨â ªá¨á
|
||
push af
|
||
rst #28
|
||
dw Rom1.x2BF1 ;¯à®ç¨â âì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1393 ¯à®¢¥àª ¨ ª®¯¨à®¢ ¨¥ ¨¬¥¨ ä ©«
|
||
x1393 rst #20
|
||
call x1385 ;¯®«ãç¨âì ¢ëà ¦¥¨ï ¨§ áâப¨ ¡¥©á¨ª
|
||
ret z ;¯à®¢¥àª á¨â ªá¨á
|
||
push af
|
||
ld a,c
|
||
or b
|
||
jr z,x13BA ;®è¨¡ª ¢ ¨¬¥¨ ä ©«
|
||
ld hl,#000A
|
||
sbc hl,bc
|
||
jr c,x13BA ;®è¨¡ª ¢ ¨¬¥¨ ä ©«
|
||
push de
|
||
push bc
|
||
ld hl,x5B67
|
||
ld b,#0A
|
||
ld a," "
|
||
x13AD ld (hl),a
|
||
inc hl
|
||
djnz x13AD
|
||
pop bc
|
||
pop hl
|
||
ld de,x5B67
|
||
ldir
|
||
pop af
|
||
ret
|
||
x13BA call x05AC
|
||
db #21 ;f Invalid name
|
||
|
||
;€„<E282AC>…‘: #13BE à ¡®â á «¥â®©/RAM ¤¨áª®¬
|
||
x13BE rst #28
|
||
dw Rom1.x1C8C ;¯ à ¬¥âà - áâப
|
||
bit 7,(iy+#01)
|
||
jr z,x1407 ;¯à®¢¥àª á¨â ªá¨á
|
||
ld bc,#0011
|
||
ld a,(#5C74)
|
||
and a
|
||
jr z,x13D2 ;SAVE
|
||
ld c,#22 ;"
|
||
x13D2 rst #28
|
||
dw Rom1.x0030 ;१¥à¢¨à®¢ ¨¥ ¯ ¬ïâ¨
|
||
push de
|
||
pop ix
|
||
ld b,#0B
|
||
ld a," "
|
||
x13DC ld (de),a
|
||
inc de
|
||
djnz x13DC
|
||
ld (ix+#01),#FF
|
||
rst #28
|
||
dw Rom1.x2BF1 ;¯à®ç¨â âì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
ld hl,-10
|
||
dec bc
|
||
add hl,bc
|
||
inc bc
|
||
jr nc,x1400
|
||
ld a,(#5C74)
|
||
and a
|
||
jr nz,x13F9 ;¥ SAVE
|
||
call x05AC ;®è¨¡ª
|
||
db #0E ;F Invalid file name
|
||
x13F9 ld a,b
|
||
or c
|
||
jr z,x1407
|
||
ld bc,#000A
|
||
x1400 push ix
|
||
pop hl
|
||
inc hl
|
||
ex de,hl
|
||
ldir
|
||
x1407 rst #18 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp #E4 ;íâ® DATA?
|
||
jr nz,x145F ;¥â
|
||
ld a,(#5C74) ; 'xxx' "name" DATA
|
||
cp #03 ;íâ® MERGE?
|
||
jp z,x1219 ;C Nonsense in BASIC
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x28B2 ;LOOK-VARS
|
||
jr nc,x142F
|
||
ld hl,#0000
|
||
bit 6,(iy+#01)
|
||
jr z,x1425
|
||
set 7,c
|
||
x1425 ld a,(#5C74)
|
||
dec a
|
||
jr z,x1444
|
||
call x05AC ;®è¨¡ª § ¯¨áì ¨«¨ ¯à®¢¥àª ¯ãá⮣® ¬ áᨢ
|
||
db #01 ;2 Variable not found
|
||
x142F jp nz,x1219 ;C Nonsense in BASIC
|
||
bit 7,(iy+#01)
|
||
jr z,x1451 ;¯à®¢¥àª á¨â ªá¨á
|
||
ld c,(hl)
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (ix+#0B),a
|
||
inc hl
|
||
ld a,(hl)
|
||
ld (ix+#0C),a
|
||
inc hl
|
||
x1444 ld (ix+#0E),c
|
||
ld a,#01 ;ç¨á«®¢®© ¬ áᨢ
|
||
bit 6,c
|
||
jr z,x144E
|
||
inc a ;ᨬ¢®«ìë© ¬ áᨢ
|
||
x144E ld (ix+#00),a
|
||
x1451 ex de,hl
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp ")"
|
||
jr nz,x142F
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
call x18A1
|
||
ex de,hl
|
||
jp x1519
|
||
x145F cp #AA ;SCREEN$ ?
|
||
jr nz,x1482 ;¥â
|
||
ld a,(#5C74) ; 'xxx' "name" SCREEN$
|
||
cp #03 ;íâ® MERGE?
|
||
jp z,x1219 ;C Nonsense in BASIC
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
call x18A1
|
||
ld (ix+#0B),#00
|
||
ld (ix+#0C),#1B
|
||
ld hl,#4000
|
||
ld (ix+#0D),l
|
||
ld (ix+#0E),h
|
||
jr x14CF
|
||
x1482 cp #AF ;CODE ?
|
||
jr nz,x14D5 ;¥â
|
||
ld a,(#5C74) ; 'xxx' "name" CODE
|
||
cp #03 ;íâ® MERGE?
|
||
jp z,x1219 ;C Nonsense in BASIC
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x2048 ;PR-ST-END
|
||
jr nz,x14A0
|
||
ld a,(#5C74)
|
||
and a
|
||
jp z,x1219 ;C Nonsense in BASIC
|
||
rst #28
|
||
dw Rom1.x1CE6 ;®«ì áâíª ª «ìªã«ïâ®à
|
||
jr x14AF
|
||
x14A0 rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
rst #18 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp ","
|
||
jr z,x14B4
|
||
ld a,(#5C74)
|
||
and a
|
||
jp z,x1219 ;C Nonsense in BASIC
|
||
x14AF rst #28
|
||
dw Rom1.x1CE6 ;®«ì áâíª ª «ìªã«ïâ®à
|
||
jr x14B8
|
||
x14B4 rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
x14B8 call x18A1
|
||
rst #28
|
||
dw Rom1.x1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
ld (ix+#0B),c
|
||
ld (ix+#0C),b
|
||
rst #28
|
||
dw Rom1.x1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
ld (ix+#0D),c
|
||
ld (ix+#0E),b
|
||
ld h,b
|
||
ld l,c
|
||
x14CF ld (ix+#00),#03
|
||
jr x1519
|
||
x14D5 cp #CA ;LINE ?
|
||
jr z,x14E2 ;¤
|
||
call x18A1 ;'xxx "name"' / 'SAVE "name" LINE'
|
||
ld (ix+#0E),#80
|
||
jr x14F9
|
||
x14E2 ld a,(#5C74)
|
||
and a ;SAVE ?
|
||
jp nz,x1219 ;C Nonsense in BASIC
|
||
rst #20 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
call x18A1
|
||
rst #28
|
||
dw Rom1.x1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
ld (ix+#0D),c
|
||
ld (ix+#0E),b
|
||
x14F9 ld (ix+#00),#00
|
||
ld hl,(#5C59)
|
||
ld de,(#5C53)
|
||
scf
|
||
sbc hl,de
|
||
ld (ix+#0B),l
|
||
ld (ix+#0C),h
|
||
ld hl,(#5C4B)
|
||
sbc hl,de
|
||
ld (ix+#0F),l
|
||
ld (ix+#10),h
|
||
ex de,hl
|
||
x1519 ld a,(x5B66)
|
||
bit 3,a
|
||
jp nz,x121D ;®¯¥à æ¨ï á RAM ¤¨áª®¬
|
||
ld a,(#5C74)
|
||
and a ;íâ® SAVE ?
|
||
jr nz,x152B ;¥â
|
||
rst #28
|
||
dw Rom1.x0970 ;SAVE
|
||
ret
|
||
x152B rst #28
|
||
dw Rom1.x0761 ;LOAD/MERGE/VERIFY
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #152F ¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
x152F ld hl,#EEF5
|
||
res 0,(hl)
|
||
set 1,(hl)
|
||
x1536 ld hl,(#5C49) ;®¬¥à áâப¨
|
||
ld a,h
|
||
or l
|
||
jr nz,x1540
|
||
ld (#EC06),hl
|
||
x1540 ld a,(#F9DB)
|
||
push af
|
||
ld hl,(#FC9A)
|
||
call x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld (#F9D7),hl
|
||
call x3222 ;ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢ ¢¥àåã íªà
|
||
call x30D6 ;ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ã íªà
|
||
pop af
|
||
x1554 or a
|
||
jr z,x1563
|
||
push af
|
||
call x30DF ;ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
ex de,hl
|
||
call x326A ;ª®¯¨à®¢ ¨¥ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¢¥à§ã íªà
|
||
pop af
|
||
dec a
|
||
jr x1554
|
||
x1563 ld c,#00
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld b,c
|
||
ld a,(#EC15)
|
||
ld c,a
|
||
push bc
|
||
push de
|
||
x156F call x30DF ;ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
ld a,(#EEF5)
|
||
bit 1,a
|
||
jr z,x1596
|
||
push de
|
||
push hl
|
||
ld de,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
jr z,x1594
|
||
inc hl
|
||
ld d,(hl)
|
||
inc hl
|
||
ld e,(hl)
|
||
or a
|
||
ld hl,(#5C49)
|
||
sbc hl,de
|
||
jr nz,x1594
|
||
ld hl,#EEF5
|
||
set 0,(hl)
|
||
x1594 pop hl
|
||
pop de
|
||
x1596 push bc
|
||
push hl
|
||
ld bc,#0023
|
||
ldir
|
||
pop hl
|
||
pop bc
|
||
push de
|
||
push bc
|
||
ex de,hl
|
||
ld hl,#EEF5
|
||
bit 0,(hl)
|
||
jr z,x15D3
|
||
ld b,#00
|
||
x15AB ld hl,(#EC06)
|
||
ld a,h
|
||
or l
|
||
jr z,x15C0
|
||
push hl ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop hl
|
||
jr nc,x15CB
|
||
dec hl
|
||
inc b
|
||
ld (#EC06),hl
|
||
jr x15AB
|
||
x15C0 call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
call nc,x2E63 ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
ld hl,#EEF5
|
||
ld (hl),#00
|
||
x15CB ld a,b
|
||
pop bc
|
||
push bc
|
||
ld c,b
|
||
ld b,a
|
||
call x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
x15D3 pop bc
|
||
pop de
|
||
ld a,c
|
||
inc b
|
||
cp b
|
||
jr nc,x156F
|
||
ld a,(#EEF5)
|
||
bit 1,a
|
||
jr z,x1602
|
||
bit 0,a
|
||
jr nz,x1602
|
||
ld hl,(#5C49)
|
||
ld a,h
|
||
or l
|
||
jr z,x15F4
|
||
ld (#FC9A),hl
|
||
call x3222 ;ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢ ¢¥àåã íªà
|
||
jr x15FD
|
||
x15F4 ld (#FC9A),hl
|
||
call x3352 ;¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
ld (#5C49),hl
|
||
x15FD pop de
|
||
pop bc
|
||
jp x1536
|
||
x1602 pop de
|
||
pop bc
|
||
cp a
|
||
x1605 push af
|
||
ld a,c
|
||
ld c,b
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ex de,hl
|
||
x160C push af
|
||
call x3604 ;¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à
|
||
pop af
|
||
ld de,#0023
|
||
add hl,de
|
||
inc c
|
||
cp c
|
||
jr nc,x160C
|
||
pop af
|
||
ret z
|
||
call x2A07 ;¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
x161E call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
ld hl,(#EC06)
|
||
dec hl
|
||
ld a,h
|
||
or l
|
||
ld (#EC06),hl
|
||
jr nz,x161E
|
||
jp x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
ret ;!!!¥ ¨á¯®«ì§ã¥âáï!!!
|
||
|
||
;€„<E282AC>…‘: #1630 ®ç¨á⪠®ª । ªâ¨à®¢ ¨ï
|
||
x1630 ld b,#00
|
||
ld a,(#EC15)
|
||
ld d,a
|
||
jp x3B5E ;®ç¨á⪠áâப íªà
|
||
|
||
;€„<E282AC>…‘: #1639 ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¥àå ¨ ®¡®¢«¥¨¥ íªà
|
||
x1639 ld b,#00
|
||
push hl
|
||
ld c,b
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x326A ;ª®¯¨à®¢ ¨¥ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¢¥à§ã íªà
|
||
pop hl
|
||
ret nc
|
||
call x30DF ;ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
x1648 push bc
|
||
push hl
|
||
ld hl,#0023
|
||
add hl,de
|
||
ld a,(#EC15)
|
||
ld c,a
|
||
cp b
|
||
jr z,x1663
|
||
push bc
|
||
x1656 push bc
|
||
ld bc,#0023
|
||
ldir
|
||
pop bc
|
||
ld a,c
|
||
inc b
|
||
cp b
|
||
jr nz,x1656
|
||
pop bc
|
||
x1663 pop hl
|
||
call x3618 ;ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
ld bc,#0023
|
||
ldir
|
||
scf
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #166F ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
x166F ld b,#00
|
||
call x322B ;¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¢¥à奬 ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ret nc
|
||
|
||
;€„<E282AC>…‘: #1675 ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
;¢ëå: cy=0 ¡ãä¥à ¯¥à¥¯®«¥
|
||
; b - ¯®á«¥¤ïï áâப
|
||
x1675 push bc
|
||
push hl
|
||
;ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ ¢¨§
|
||
ld a,(#EC15) ;®¬¥à áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld c,a
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x311E ;ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¨§
|
||
jr nc,x16A9 ;¡ãä¥à ¯¥à¥¯®«¥
|
||
dec de
|
||
ld hl,#0023
|
||
add hl,de
|
||
ex de,hl
|
||
push bc
|
||
ld a,b
|
||
cp c
|
||
jr z,x169A
|
||
x168E push bc
|
||
ld bc,#0023
|
||
lddr
|
||
pop bc
|
||
ld a,b
|
||
dec c
|
||
cp c
|
||
jr c,x168E
|
||
;¢á¥ áâப¨ ᤢ¨ãâë ¢¨§
|
||
x169A ex de,hl
|
||
inc de
|
||
pop bc ;c - ®¬¥à áâப¨
|
||
pop hl ; ¤à¥á á«¥¤ãîî饩 áâப¨
|
||
call x362C ;ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
ld bc,#0023
|
||
ldir
|
||
scf
|
||
pop bc
|
||
ret
|
||
;¡ãä¥à ¯¥à¥¯®«¥
|
||
x16A9 pop hl
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #16AC ¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: de - ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥
|
||
; a - ª®¤ ᨬ¢®«
|
||
; b - crd X
|
||
;¢ëå: a - ª®¤ ¯®á«¥¤¥£® ᨬ¢®« áâப¨
|
||
; z - ᦤ¢¨£ âì ¡®«ìè¥ ¥ç¥£®
|
||
x16AC push de
|
||
ld h,#00
|
||
ld l,b
|
||
add hl,de ; ¤à¥á ᨬ¢®« ¢ ¡ãä¥à¥
|
||
ld d,a
|
||
ld a,b
|
||
x16B3 ld e,(hl)
|
||
ld (hl),d
|
||
ld d,e
|
||
inc hl
|
||
inc a
|
||
cp #20
|
||
jr c,x16B3
|
||
ld a,e
|
||
cp #00
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #16C1 ¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï ᮠᤢ¨£®¬ ¢«¥¢®
|
||
x16C1 push de
|
||
ld hl,#0020
|
||
add hl,de
|
||
push hl
|
||
ld d,a
|
||
ld a,#1F
|
||
jr x16D3
|
||
x16CC ld e,(hl)
|
||
ld (hl),d
|
||
ld d,e
|
||
cp b
|
||
jr z,x16D6
|
||
dec a
|
||
x16D3 dec hl
|
||
jr x16CC
|
||
x16D6 ld a,e
|
||
cp #00
|
||
pop hl
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #16DC á¬¥é¥¨ï ¤® ¯ à ¬¥â஢ ª®¬ ¤ë
|
||
x16DC db #B1 ; DEF FN -> #178D (ROM 0)
|
||
db #C9 ; CAT -> #17A6 (ROM 0)
|
||
db #BC ; FORMAT -> #179A (ROM 0)
|
||
db #BE ; MOVE -> #179D (ROM 0)
|
||
db #C3 ; ERASE -> #17A3 (ROM 0)
|
||
db #AF ; OPEN # -> #1790 (ROM 0)
|
||
db #B4 ; CLOSE # -> #1796 (ROM 0)
|
||
db #93 ; MERGE -> #1776 (ROM 0)
|
||
db #91 ; VERIFY -> #1775 (ROM 0)
|
||
db #92 ; BEEP -> #1777 (ROM 0)
|
||
db #95 ; CIRCLE -> #177B (ROM 0)
|
||
db #98 ; INK -> #177F (ROM 0)
|
||
db #98 ; PAPER -> #1780 (ROM 0)
|
||
db #98 ; FLASH -> #1781 (ROM 0)
|
||
db #98 ; BRIGHT -> #1782 (ROM 0)
|
||
db #98 ; INVERSE -> #1783 (ROM 0)
|
||
db #98 ; OVER -> #1784 (ROM 0)
|
||
db #98 ; OUT -> #1785 (ROM 0)
|
||
db #7F ; LPRINT -> #176D (ROM 0)
|
||
db #81 ; LLIST -> #1770 (ROM 0)
|
||
db #2E ; STOP -> #171E (ROM 0)
|
||
db #6C ; READ -> #175D (ROM 0)
|
||
db #6E ; DATA -> #1760 (ROM 0)
|
||
db #70 ; RESTORE -> #1763 (ROM 0)
|
||
db #48 ; NEW -> #173C (ROM 0)
|
||
db #94 ; BORDER -> #1789 (ROM 0)
|
||
db #56 ; CONTINUE -> #174C (ROM 0)
|
||
db #3F ; DIM -> #1736 (ROM 0)
|
||
db #41 ; REM -> #1739 (ROM 0)
|
||
db #2B ; FOR -> #1724 (ROM 0)
|
||
db #17 ; GO TO -> #1711 (ROM 0)
|
||
db #1F ; GO SUB -> #171A (ROM 0)
|
||
db #37 ; INPUT -> #1733 (ROM 0)
|
||
db #77 ; LOAD -> #1774 (ROM 0)
|
||
db #44 ; LIST -> #1742 (ROM 0)
|
||
db #0F ; LET -> #170E (ROM 0)
|
||
db #59 ; PAUSE -> #1759 (ROM 0)
|
||
db #2B ; NEXT -> #172C (ROM 0)
|
||
db #43 ; POKE -> #1745 (ROM 0)
|
||
db #2D ; PRINT -> #1730 (ROM 0)
|
||
db #51 ; PLOT -> #1755 (ROM 0)
|
||
db #3A ; RUN -> #173F (ROM 0)
|
||
db #6D ; SAVE -> #1773 (ROM 0)
|
||
db #42 ; RANDOMIZE -> #1749 (ROM 0)
|
||
db #0D ; IF -> #1715 (ROM 0)
|
||
db #49 ; CLS -> #1752 (ROM 0)
|
||
db #5C ; DRAW -> #1766 (ROM 0)
|
||
db #44 ; CLEAR -> #174F (ROM 0)
|
||
db #15 ; RETURN -> #1721 (ROM 0)
|
||
db #5D ; COPY -> #176A (ROM 0)
|
||
|
||
;€„<E282AC>…‘: #170E á¨â ªá¨ç¥áª¨¥ ¯ à ¬¥âàë ª®¬ ¤ ( «®£¨ç® basic 48 #1A7A)
|
||
; CLASS-00 - ¡®«ìè¥ ¥â ®¯¥à ¤®¢
|
||
; CLASS-01 - ¨á¯®«ì§ã¥âáï ¢ LET. âॡã¥âáï ¯¥à¥¬¥ ï
|
||
; CLASS-02 - ¨á¯®«ì§ã¥âáï ¢ LET. § ¨¬ ¢ëà ¦¥¨¥ ç¨á«®¢®¥ ¨«¨ áâப®¢®¥
|
||
; CLASS-03 - § í⨬ á«¥¤ã¥â ç¨á«®¢®¥ ¢ëà ¦¥¨¥ (=0 ¯à¨ ®âáãâá⢨¨)
|
||
; CLASS-04 - § í⨬ á«¥¤ã¥â ®¤®á¨¬¢®«ì ï ¯¥à¥¬¥ ï
|
||
; CLASS-05 -
|
||
; CLASS-06 - § í⨬ á«¥¤ã¥â ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
; CLASS-07 - à ¡®â á âਡãâ ¬¨
|
||
; CLASS-08 - ¤¢ ç¨á« ç¥à¥§ § ¯ïâãî
|
||
; CLASS-09 - ¤¢ ç¨á« ç¥à¥§ § ¯ïâãî (¬®£ãâ ¡ëâì ã¯à «ïî騥 梥⮬ ª®¤ë)
|
||
; CLASS-0A - áâப
|
||
; CLASS-0B - ¤«ï à ¡®âë á ª áá¥â®©/RAM-¤¨áª®¬
|
||
; CLASS-0C - â® ¦¥ çâ® ¨ CLASS-00, ® ¢ë§ë¢ ¥âáï ¨§ ROM 0
|
||
; CLASS-0D - â® ¦¥ çâ® ¨ CLASS-06, ® ¢ë§ë¢ ¥âáï ¨§ ROM 0
|
||
; CLASS-0E - ®¡à ¡ âë¢ ¥âáï ¢ ROM 0
|
||
x170E db #01 ; CLASS-01 LET
|
||
db "=" ; =
|
||
db #02 ; CLASS-02
|
||
x1711 db #06 ; CLASS-06 GO TO
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1E67 ; GO TO routine in ROM 1
|
||
x1715 db #06 ; CLASS-06 IF
|
||
db #CB ; 'THEN'
|
||
db #0E ; CLASS-0E
|
||
dw x1967 ; IF routine in ROM 0
|
||
x171A db #06 ; CLASS-06 GO SUB
|
||
db #0C ; CLASS-0C
|
||
dw x1A53 ; GO SUB routine in ROM 0
|
||
x171E db #00 ; CLASS-00 STOP
|
||
dw Rom1.x1CEE ; STOP routine in ROM 1
|
||
x1721 db #0C ; CLASS-0C RETURN
|
||
dw x1A6F ; RETURN routine in ROM 0
|
||
x1724 db #04 ; CLASS-04 FOR
|
||
db "=" ; '='
|
||
db #06 ; CLASS-06
|
||
db #CC ; 'TO'
|
||
db #06 ; CLASS-06
|
||
db #0E ; CLASS-0E
|
||
dw x1981 ; FOR routine in ROM 0
|
||
x172C db #04 ; CLASS-04 NEXT
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1DAB ; NEXT routine in ROM 1
|
||
x1730 db #0E ; CLASS-0E PRINT
|
||
dw x2178 ; PRINT routine in ROM 0
|
||
x1733: db #0E ; CLASS-0E INPUT
|
||
dw x218C ; INPUT routine in ROM 0
|
||
x1736 db #0E ; CLASS-0E DIM
|
||
dw x21D5 ; DIM routine in ROM 0
|
||
x1739 db #0E ; CLASS-0E REM
|
||
dw x1862 ; REM routine in ROM 0
|
||
x173C db #0C ; CLASS-0C NEW
|
||
dw x21AA ; NEW routine in ROM 0
|
||
x173F db #0D ; CLASS-0D RUN
|
||
dw x1A02 ; RUN routine in ROM 0
|
||
x1742 db #0E ; CLASS-0E LIST
|
||
dw x1B75 ; LIST routine in ROM 0
|
||
x1745 db #08 ; CLASS-08 POKE
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1E80 ; POKE routine in ROM 1
|
||
x1749 db #03 ; CLASS-03 RANDOMIZE
|
||
dw Rom1.x1E4F ; RANDOMIZE routine in ROM 1
|
||
x174C db #00 ; CLASS-00 CONTINUE
|
||
dw Rom1.x1E5F ; CONTINUE routine in ROM 1
|
||
x174F db #0D ; CLASS-0D CLEAR
|
||
dw Rom1.x1A0D ; CLEAR routine in ROM 0
|
||
x1752 db #00 ; CLASS-00 CLS
|
||
dw Rom1.x0D6B ; CLS routine in ROM 1
|
||
x1755 db #09 ; CLASS-09 PLOT
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x22DC ; PLOT routine in ROM 1
|
||
x1759 db #06 ; CLASS-06 PAUSE
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1F3A ; PAUSE routine in ROM 1
|
||
x175D db #0E ; CLASS-0E READ
|
||
dw x19AB ; READ routine in ROM 0
|
||
x1760 db #0E ; CLASS-0E DATA
|
||
dw x19EB ; DATA routine in ROM 0
|
||
x1763 db #03 ; CLASS-03 RESTORE
|
||
dw Rom1.x1E42 ; RESTORE routine in ROM 1
|
||
x1766 db #09 ; CLASS-09 DRAW
|
||
db #0E ; CLASS-0E
|
||
dw x21BE ; DRAW routine in ROM 0
|
||
x176A db #0C ; CLASS-0C COPY
|
||
dw x21A7 ; New COPY routine in ROM 0.
|
||
x176D db #0E ; CLASS-0E LPRINT
|
||
dw x2174 ; LPRINT routine in ROM 0
|
||
x1770 db #0E ; CLASS-0E LLIST
|
||
dw x1B71 ; LLIST routine in ROM 0
|
||
x1773 db #0B ; CLASS-0B SAVE
|
||
x1774 db #0B ; CLASS-0B LOAD
|
||
x1775 db #0B ; CLASS-0B VERIFY
|
||
x1776 db #0B ; CLASS-0B MERGE
|
||
x1777 db #08 ; CLASS-08 BEEP
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x03F8 ; BEEP routine in ROM 1
|
||
x177B db #09 ; CLASS-09 CIRCLE
|
||
db #0E ; CLASS-0E
|
||
dw x21AE ; CIRCLE routine in ROM 0
|
||
x177F db #07 ; CLASS-07 INK
|
||
x1780 db #07 ; CLASS-07 PAPER
|
||
x1781 db #07 ; CLASS-07 FLASH
|
||
x1782 db #07 ; CLASS-07 BRIGHT
|
||
x1783 db #07 ; CLASS-07 INVERSE
|
||
x1784 db #07 ; CLASS-07 OVER
|
||
x1785 db #08 ; CLASS-08 OUT
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1E7A ; OUT routine in ROM 1
|
||
x1789 db #06 ; CLASS-06 BORDER
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x2294 ; BORDER routine in ROM 1
|
||
x178D db #0E ; CLASS-0E DEF FN
|
||
dw x1A8C ; DEF FN routine in ROM 0
|
||
x1790 db #06 ; CLASS-06 OPEN #
|
||
db "," ; ','
|
||
db #0A ; CLASS-0A
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x1736 ; OPEN # routine in ROM 1
|
||
x1796 db #06 ; CLASS-06 CLOSE #
|
||
db #00 ; CLASS-00
|
||
dw Rom1.x16E5 ; CLOSE # routine in ROM 1
|
||
x179A db #0E ; CLASS-0E FORMAT
|
||
dw x0641 ; FORMAT routine in ROM 0
|
||
x179D db #0A ; CLASS-0A MOVE
|
||
db "," ; ','
|
||
db #0A ; CLASS-0A
|
||
db #0C ; CLASS-0C
|
||
dw x1AF0 ; Just execute a RET
|
||
x17A3 db #0E ; CLASS-0E ERASE
|
||
dw x1C0C ; ERASE routine in ROM 0
|
||
x17A6 db #0E ; CLASS-0E CAT
|
||
dw x1BE5 ; CAT routine in ROM 0
|
||
x17A9 db #0C ; CLASS-0C SPECTRUM
|
||
dw x1B2B ; SPECTRUM routine in ROM 0
|
||
x17AC: db #0E ; CLASS-0E PLAY
|
||
dw x2317 ; PLAY routine in ROM 0
|
||
|
||
;€„<E282AC>…‘: #17AF «¨§ ¨ ¢ë¯®«¥¨¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x17AF res 7,(iy+#01)
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x19FB ;¯®«ãç¨âì ®¬¥à । ªâ¨à¥¬®© áâப¨
|
||
xor a
|
||
ld (#5C47),a
|
||
dec a
|
||
ld (#5C3A),a
|
||
jr x17C1
|
||
x17C0 rst #20 ;¯®«ãç¨âì á«¥¤ãî騩 ᨬ¢®«
|
||
x17C1 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x16BF ;®ç¨áâª à ¡®ç¥£® ¡ãä¥à
|
||
inc (iy+#0D) ;®¬¥à ®¯¥à â®à ¢ áâப¥
|
||
jp m,x1912 ;᫨誮¬ ¬®£® ®¯¥à â®à®¢. ®è¨¡ª
|
||
rst #18 ;¯®«ã票¥ ª®¤ ᨬ¢®«
|
||
ld b,#00
|
||
cp #0D
|
||
jp z,x1863 ;íâ® enter - ª®¥æ áâப¨
|
||
cp ":"
|
||
jr z,x17C0 ;á«¥¤ãîé ï ª®¬ ¤
|
||
ld hl,x1821 ;áî¤ ¢¥à¥¬áï
|
||
push hl
|
||
ld c,a
|
||
rst #20 ;¯®«ãç¨âì á«¥¤ãî騩 ᨬ¢®«
|
||
ld a,c
|
||
sub #CE
|
||
jr nc,x17F4 ;íâ® DEF FN ¨ ¤ «ìè¥
|
||
add a,#CE
|
||
ld hl,x17A9
|
||
cp #A3
|
||
jr z,x1800 ;íâ® SPECTRUM
|
||
ld hl,x17AC
|
||
cp #A4
|
||
jr z,x1800 ;íâ® PLAY
|
||
jp x1912 ;®è¨¡ª
|
||
x17F4 ld c,a
|
||
ld hl,x16DC
|
||
add hl,bc
|
||
ld c,(hl)
|
||
add hl,bc
|
||
jr x1800
|
||
x17FD ld hl,(#5C74)
|
||
;¢ë§®¢ ¯/¯ ®¡à ¡®âª¨ ª®¬ ¤ë
|
||
x1800 ld a,(hl)
|
||
inc hl
|
||
ld (#5C74),hl
|
||
ld bc,x17FD ;áî¤ ¢¥à¥¬áï
|
||
push bc
|
||
ld c,a
|
||
cp #20
|
||
jr nc,x181A ;íâ® à §¤¥«¨â¥«ì
|
||
ld hl,x18B5
|
||
ld b,#00
|
||
add hl,bc
|
||
ld c,(hl)
|
||
add hl,bc
|
||
push hl ;¯/¯ ®¡à ¡®âª¨ ª« áá
|
||
rst #18 ;ç¨â ¥¬ ª®¤ ª®¬ ¤ë
|
||
dec b
|
||
ret
|
||
x181A rst #18 ;ç¨â ¥¬ ª®¤ ª®¬ ¤ë
|
||
cp c
|
||
jp nz,x1912
|
||
rst #20 ;ç¨â ¥¬ ª®¤ á«¥¤ãî饩 ª®¬ ¤ë
|
||
ret
|
||
x1821 call x05D6 ;¯à®¢¥àª ¦ â¨ï break ¨ ¯¥ç âì á®®¡é¥¨ï
|
||
jr c,x182A
|
||
call x05AC ;®¡à ¡®âª ®è¨¡ª¨ ¡¥§ ¢®§¢à â
|
||
db #14 ;L Break into program
|
||
x182A bit 7,(iy+#0A)
|
||
jp nz,x18A8
|
||
ld hl,(#5C42) ;®¬¥à áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
bit 7,h
|
||
jr z,x184C ;íâ® áâப ¯à®£à ¬¬ë
|
||
x1838 ld hl,#FFFE ;¢ë¯®«¥¨¥ ª®¬ ¤ë ¨§ áâப¨ । ªâ¨à®¢ ¨ï
|
||
ld (#5C45),hl
|
||
ld hl,(#5C61)
|
||
dec hl
|
||
ld de,(#5C59)
|
||
dec de
|
||
ld a,(#5C44)
|
||
jr x1882 ;á«¥¤ãîé ï áâப ¯à®£à ¬¬ë
|
||
|
||
;®¢ ï áâப ¯à®£à ¬¬ë
|
||
x184C rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
ld a,(#5C44)
|
||
jr z,x1870 ;¯®¨áª á«¥¤ãî饩 áâப¨
|
||
and a
|
||
jr nz,x189D ;N Statement lost
|
||
ld b,a
|
||
ld a,(hl)
|
||
and #C0
|
||
ld a,b
|
||
jr z,x1870 ;¥é¥ ¥ ª®¥æ ¯à®£à ¬¬ë
|
||
call x05AC ;®¡à ¡®âª ®è¨¡ª¨ ¡¥§ ¢®§¢à â
|
||
db #FF ;0 OK
|
||
;®¡à ¡®âª ª®¬ ¤ë: REM
|
||
x1862 pop bc
|
||
;®¡à ¡®âª ª®æ áâப¨ ¯à®£à ¬¬ë
|
||
x1863 bit 7,(iy+#01)
|
||
ret z ;íâ® ¯à®¢¥àª á¨â ªá¨á
|
||
ld hl,(#5C55) ; ¤à¥á á«¥¤ãî饩 áâப¨ ¯à®£à ¬¬ë
|
||
ld a,#C0
|
||
and (hl)
|
||
ret nz ;á«¥¤ãîé ï áâப ¯à®£à ¬¬ë ¢ RAM
|
||
xor a
|
||
;¯®¨áª á«¥¤ãî饩 áâப¨
|
||
x1870 cp #01
|
||
adc a,#00
|
||
ld d,(hl)
|
||
inc hl
|
||
ld e,(hl) ;®¬¥à áâப¨ ¯à®£à ¬¬ë
|
||
ld (#5C45),de
|
||
inc hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl) ;¤«¨ áâப¨ ¯à®£à ¬¬ë
|
||
ex de,hl
|
||
add hl,de
|
||
inc hl
|
||
;á«¥¤ãîé ï áâப ¯à®£à ¬¬ë
|
||
x1882 ld (#5C55),hl ; ¤à¥á á«¥¤ãî饩 áâப¨
|
||
ex de,hl
|
||
ld (#5C5D),hl
|
||
ld d,a
|
||
ld e,#00
|
||
ld (iy+#0A),#FF ;®¬¥à á«¥¤ãî饣® ®¯¥à â®à ¢ áâப¥
|
||
dec d
|
||
ld (iy+#0D),d ;®¬¥à ¢ë¯®«ï¥¬®£® ®¯¥à â®à
|
||
jp z,x17C0 ;¯¥à¢ ï ª®¬ ¤ ¢ áâப¥
|
||
inc d
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x198B ;¯®¨áª ª®¬ ¤ë ¢ áâப¥
|
||
jr z,x18A8 ;ª®¬ ¤ ©¤¥
|
||
x189D call x05AC
|
||
db #16 ;N Statement lost
|
||
;á«¥¤ãîé ï áâப ¯à®£à ¬¬ë
|
||
x18A1 bit 7,(iy+#01)
|
||
ret nz ;¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
pop bc
|
||
pop bc
|
||
;á«¥¤ãîé ï ª®¬ ¤ ¢ áâப¥ ¯à®£à ¬¬ë
|
||
x18A8 rst #18 ;ç¨â ¥¬ ᨬ¢®« ¨§ áâப¨
|
||
cp #0D
|
||
jr z,x1863 ;ª®¥æ áâப¨
|
||
cp ":"
|
||
jp z,x17C0 ;á«¥¤ãîé ï ª®¬ ¤
|
||
jp x1912 ;®è¨¡ª : noncens in basic
|
||
|
||
;€„<E282AC>…‘: #18B5 â ¡«¨æ ᬥ饨© ¤® ¯à®æ¥¤ãà ®¡à ¡®âª¨ ª« áá ®¯¥à â®à
|
||
x18B5 db x18D9-$ ;CLASS-00 -> x18D9 = #24
|
||
db x18F9-$ ;CLASS-01 -> x18F9 = #43
|
||
db x18FD-$ ;CLASS-02 -> x18FD = #46
|
||
db x18D6-$ ;CLASS-03 -> x18D6 = #1E
|
||
db x1905-$ ;CLASS-04 -> x1905 = #4C
|
||
db x18DA-$ ;CLASS-05 -> x18DA = #20
|
||
db x190E-$ ;CLASS-06 -> x190E = #53
|
||
db x191A-$ ;CLASS-07 -> x191A = #5E
|
||
db x190A-$ ;CLASS-08 -> x190A = #4D
|
||
db x1944-$ ;CLASS-09 -> x1944 = #86
|
||
db x1916-$ ;CLASS-0A -> x1916 = #57
|
||
db x1948-$ ;CLASS-0B -> x1948 = #88
|
||
db x18C7-$ ;CLASS-0C -> x18C7 = #06
|
||
db x18C4-$ ;CLASS-0D -> x18C4 = #02
|
||
db x18C8-$ ;CLASS-0E -> x18C8 = #05
|
||
|
||
;€„<E282AC>…‘: #18C4 ª« ááë #0C,#0D,#0E
|
||
x18C4 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1CDE ;¯®«ã票¥ ¯ à ¬¥âà -ç¨á«
|
||
x18C7 cp a
|
||
x18C8 pop bc
|
||
call z,x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ex de,hl
|
||
ld hl,(#5C74)
|
||
ld c,(hl)
|
||
inc hl
|
||
ld b,(hl)
|
||
ex de,hl
|
||
push bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #18D6 ª« ááë #00,#03,#05
|
||
x18D6 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1CDE ;¯®«ã票¥ ¯ à ¬¥âà -ç¨á«
|
||
x18D9 cp a
|
||
x18DA pop bc
|
||
call z,x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ex de,hl
|
||
ld hl,(#5C74)
|
||
ld c,(hl)
|
||
inc hl
|
||
ld b,(hl)
|
||
ex de,hl
|
||
push hl
|
||
ld hl,x18F8 ;áî¤ ¢¥à¥¬áï
|
||
ld (x5B5A),hl
|
||
ld hl,x5B14
|
||
ex (sp),hl
|
||
push hl
|
||
ld h,b
|
||
ld l,c
|
||
ex (sp),hl
|
||
jp x5B00
|
||
x18F8 ret
|
||
|
||
;€„<E282AC>…‘: #18F9 ª« áá #01
|
||
x18F9 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C1F ;¨¤¥â¨ä¨ª æ¨ï ¯¥à¥¬¥®©
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #18FD ª« áá #02
|
||
x18FD pop bc
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C56 ;¯®«ãç¨âì § 票¥ ¯ à ¬¥âà
|
||
call x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1905 ª« áá #04 FOR/NEXT
|
||
x1905 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C6C ;FOR i
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1909 ª« áá #08
|
||
x1909 rst #20
|
||
x190A rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C7A ;¯®«ã票¥ ¤¢ãå § 票©
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #190E ª« áá #06
|
||
x190E rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1912 ®è¨¡ª C Nonsense in BASIC
|
||
x1912 call x05AC
|
||
db #0B ;C Nonsense in BASIC
|
||
|
||
;€„<E282AC>…‘: #1916 ª« áá #0A
|
||
x1916 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1C8C ;¯ à ¬¥âà - áâப
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #191A ª« áá #07
|
||
x191A bit 7,(iy+#01)
|
||
res 0,(iy+#02)
|
||
jr z,x1927 ;¯à®¢¥àª á¨â ªá¨á
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0D4D ;ª®¯¨à®¢ ¨¥ âਡã⮢
|
||
x1927 pop af
|
||
ld a,(#5C74)
|
||
sub #28+(low x177F) ;#A7
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x21FC ;¨§¬¥¥¨¥ ¢à¥¬¥ëå âਡã⮢
|
||
call x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ld hl,(#5C8F) ;ATTR_T
|
||
ld (#5C8D),hl ;ATTR_P
|
||
ld hl,#5C91 ;P_FLAG
|
||
ld a,(hl)
|
||
rlca
|
||
xor (hl)
|
||
and #AA
|
||
xor (hl)
|
||
ld (hl),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1944 ª« áá #09
|
||
x1944 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1CBE ;ãáâ ®¢ª ¥®¡ï§ ⥫ìëå âਡã⮢ ¤«ï ¯¥ç â¨
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1948 ª« áá #0B
|
||
x1948 pop af
|
||
ld a,(x5B66)
|
||
and #0F
|
||
ld (x5B66),a
|
||
ld a,(#5C74)
|
||
sub 1+(low x1773) ;#74
|
||
ld (#5C74),a
|
||
jp z,x11EB ;SAVE
|
||
dec a
|
||
jp z,x11F2 ;LOAD
|
||
dec a
|
||
jp z,x11F9 ;VERIFY
|
||
jp x1200 ;MERGE
|
||
|
||
;€„<E282AC>…‘: #1967 ª®¬ ¤ IF
|
||
x1967 pop bc
|
||
bit 7,(iy+#01)
|
||
jr z,x197E ;¯à®¢¥àª á¨â ªá¨á
|
||
ld hl,(#5C65)
|
||
ld de,-5
|
||
add hl,de
|
||
ld (#5C65),hl
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x34E9 ;¯à®¢¥àª § ç¥¨ï ®«ì
|
||
jp c,x1863 ;¥á«¨ ¥ ®«ì ¯¥à¥å®¤ á«¥¤ãîéãî áâபã
|
||
x197E jp x17C1 ;¯¥à¥å¤ á«¥¤ãîéãî ª®¬ ¤ã (THEN)
|
||
|
||
;€„<E282AC>…‘: #1981 ª®¬ ¤ FOR
|
||
x1981 cp #CD
|
||
jr nz,x198E ;¨é¥¬ ®¯¥à â®à STEP
|
||
rst #20
|
||
call x190E ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
call x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
jr x19A6
|
||
x198E call x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ld hl,(#5C65)
|
||
ld (hl),#00 ;¯®¬¥á⨬ § 票¥ áâíª ª «ìªã«ïâ®à
|
||
inc hl
|
||
ld (hl),#00
|
||
inc hl
|
||
ld (hl),#01
|
||
inc hl
|
||
ld (hl),#00
|
||
inc hl
|
||
ld (hl),#00
|
||
inc hl
|
||
ld (#5C65),hl
|
||
x19A6 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1D16
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #19AA ª®¬ ¤ READ
|
||
x19AA rst #20
|
||
x19AB call x18F9 ;¨¤¥â¨ä¨ª æ¨ï ¯¥à¥¬¥®©
|
||
bit 7,(iy+#01)
|
||
jr z,x19E2 ;¯à®¢¥àª á¨â ªá¨á
|
||
rst #18
|
||
ld (#5C5F),hl
|
||
ld hl,(#5C57)
|
||
ld a,(hl)
|
||
cp ","
|
||
jr z,x19CB
|
||
ld e,#E4 ;¯®¨áª ®¯¥à â®à DATA
|
||
rst #28
|
||
dw Rom1.x1D86 ;¯®¨áª ®¯¥à â®à
|
||
jr nc,x19CB ;®¯¥à â®à ©¤¥
|
||
call x05AC
|
||
db #0D ;E Out of Data
|
||
x19CB inc hl
|
||
ld (#5C5D),hl
|
||
ld a,(hl)
|
||
rst #28
|
||
dw Rom1.x1C56 ;¨§¢«¥çì § 票¥
|
||
rst #18
|
||
ld (#5C57),hl
|
||
ld hl,(#5C5F)
|
||
ld (iy+#26),#00
|
||
ld (#5C5D),hl
|
||
ld a,(hl)
|
||
x19E2 rst #18
|
||
cp ","
|
||
jr z,x19AA
|
||
call x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #19EB ª®¬ ¤ DATA
|
||
x19EB bit 7,(iy+#01)
|
||
jr nz,x19FC ;¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
x19F1 rst #28
|
||
dw Rom1.x24FB ;¨é¥¬ á«¥¤ãî饥 ¢ëà ¦¥¨¥
|
||
cp ","
|
||
call nz,x18A1 ;¥á«¨ ¯à®¢¥àª á¨â ªá¨á , ¯¥à¥å®¤ ª á«¥¤ãî饩 ª®¬ ¤¥
|
||
rst #20
|
||
jr x19F1
|
||
x19FC ld a,#E4
|
||
x19FE rst #28
|
||
dw Rom1.x1E39 ;¯à®¢¥à¨âì ¨áâàãªæ¨î DATA ¨«¨ DEF FN
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1A02 ª®¬ ¤ RUN
|
||
x1A02 rst #28
|
||
dw Rom1.x1E67 ;ª®¬ ¤ GO TO
|
||
ld bc,#0000
|
||
rst #28
|
||
dw Rom1.x1E45
|
||
jr x1A10
|
||
|
||
;€„<E282AC>…‘: #1A0D ª®¬ ¤ CLEAR
|
||
x1A0D rst #28
|
||
dw Rom1.x1E99 ;¨§¢«¥çì ®¯¥à ¤
|
||
x1A10 ld a,b
|
||
or c
|
||
jr nz,x1A18
|
||
ld bc,(#5CB2)
|
||
x1A18 push bc
|
||
ld de,(#5C4B)
|
||
ld hl,(#5C59)
|
||
dec hl
|
||
rst #28
|
||
dw Rom1.x19E5 ;㤠«¨âì ¯¥à¥¬¥ë¥
|
||
rst #28
|
||
dw Rom1.x0D6B ;CLS
|
||
ld hl,(#5C65)
|
||
ld de,#0032
|
||
add hl,de
|
||
pop de
|
||
sbc hl,de
|
||
jr nc,x1A3B
|
||
ld hl,(#5CB4)
|
||
and a
|
||
sbc hl,de
|
||
jr nc,x1A3F
|
||
x1A3B call x05AC
|
||
db #15 ;M Ramtop no good
|
||
x1A3F ld (#5CB2),de
|
||
pop de
|
||
pop hl
|
||
pop bc
|
||
ld sp,(#5CB2)
|
||
inc sp
|
||
push bc
|
||
push hl
|
||
ld (#5C3D),sp
|
||
push de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1A53 ª®¬ ¤ GO SUB
|
||
x1A53 pop de
|
||
ld h,(iy+#0D)
|
||
inc h
|
||
ex (sp),hl
|
||
inc sp
|
||
ld bc,(#5C45)
|
||
push bc
|
||
push hl
|
||
ld (#5C3D),sp
|
||
push de
|
||
rst #28
|
||
dw Rom1.x1E67 ;ª®¬ ¤ GO TO
|
||
ld bc,#0014
|
||
rst #28
|
||
dw Rom1.x1F05 ;¯à®¢¥àª «¨ç¨ï ᢮¡®¤®© ¯ ¬ïâ¨
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1A6F ª®¬ ¤ RETURN
|
||
x1A6F pop bc
|
||
pop hl
|
||
pop de
|
||
ld a,d
|
||
cp #3E
|
||
jr z,x1A86
|
||
dec sp
|
||
ex (sp),hl
|
||
ex de,hl
|
||
ld (#5C3D),sp
|
||
push bc
|
||
ld (#5C42),hl
|
||
ld (iy+#0A),d
|
||
ret
|
||
x1A86 push de
|
||
push hl
|
||
call x05AC
|
||
db #06 ;7 RETURN without GO SUB
|
||
|
||
;€„<E282AC>…‘: #1A8C ª®¬ ¤ DEF FN
|
||
x1A8C bit 7,(iy+#01)
|
||
jr z,x1A97 ;¯à®¢¥àª á¨â ªá¨á
|
||
ld a,#CE
|
||
jp x19FE
|
||
x1A97 set 6,(iy+#01)
|
||
rst #28
|
||
dw Rom1.x2C8D ;íâ® ¡ãª¢ ?
|
||
jr nc,x1AB6 ;¥â
|
||
rst #20
|
||
cp "$"
|
||
jr nz,x1AAA
|
||
res 6,(iy+#01)
|
||
rst #20
|
||
x1AAA cp "("
|
||
jr nz,x1AEA
|
||
rst #20
|
||
cp ")"
|
||
jr z,x1AD3
|
||
x1AB3 rst #28
|
||
dw Rom1.x2C8D ;íâ® ¡ãª¢ ?
|
||
x1AB6 jp nc,x1912 ;®è¨¡ª
|
||
ex de,hl
|
||
rst #20
|
||
cp "$"
|
||
jr nz,x1AC1
|
||
ex de,hl
|
||
rst #20
|
||
x1AC1 ex de,hl
|
||
ld bc,#0006
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
inc hl
|
||
inc hl
|
||
ld (hl),#0E
|
||
cp ","
|
||
jr nz,x1AD3
|
||
rst #20
|
||
jr x1AB3
|
||
x1AD3 cp ")"
|
||
jr nz,x1AEA
|
||
rst #20
|
||
cp "="
|
||
jr nz,x1AEA
|
||
rst #20
|
||
ld a,(#5C3B)
|
||
push af
|
||
rst #28
|
||
dw Rom1.x24FB ;¨é¥¬ á«¥¤ãî饥 ¢ëà ¦¥¨¥
|
||
pop af
|
||
xor (iy+#01)
|
||
and #40
|
||
x1AEA jp nz,x1912 ;®è¨¡ª
|
||
call x18A1
|
||
|
||
;€„<E282AC>…‘: #1AF0 ª®¬ ¤ MOVE
|
||
x1AF0 ret
|
||
|
||
;€„<E282AC>…‘: #1AF1 ¯ãªâ ¬¥î Tape Loader
|
||
x1AF1 ld hl,#EC0E
|
||
ld (hl),#FF
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28
|
||
dw Rom1.x16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
ld hl,(#5C59)
|
||
ld bc,#0003
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
ld hl,x1B6E
|
||
ld de,(#5C59)
|
||
ld bc,#0003
|
||
x1B0F ldir
|
||
|
||
;€„<E282AC>…‘: #1B11 «¨§ ¨ ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
x1B11 call x026B ; «¨§ ¨ ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
|
||
;€„<E282AC>…‘: #1B14 ¯ãªâ ¬¥î । ªâ®à Print (¯¥ç âì ¯à¨â¥à)
|
||
x1B14 call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
ld hl,(#5C59) ; ¤à¥á ç « । ªâ¨à㥬®© áâப¨
|
||
ld bc,#0001
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
ld hl,(#5C59) ; ¤à¥á ç « । ªâ¨à㥬®© áâப¨
|
||
ld (hl),#E1 ;ª®¬ ¤ LLIST
|
||
call x026B ;¨á¯®«¥¨¥ ª®¬ ¤ë (¡¥§ ¢®§¢à â )
|
||
|
||
;€„<E282AC>…‘: #1B2B ª®¬ ¤ SPECTRUM
|
||
x1B2B call x1B53 ;ãáâ ®¢ª ª « 'P'
|
||
ld sp,(#5C3D)
|
||
pop hl
|
||
ld hl,Rom1.x1303 ;®á®¢®© 横« basic 48
|
||
push hl
|
||
ld hl,Rom1.x0013 ; ¤à¥á á ¡ ©â®¬ #FF ¢ rom 1
|
||
push hl
|
||
ld hl,x0008 ;®¡à ¡®â稪 ®è¨¡®ª
|
||
push hl ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld a,#20 ;basic48, ¡«®ª¨à®¢ª #7FFD, ram 0
|
||
ld (x5B5C),a
|
||
jp x5B00
|
||
|
||
;€„<E282AC>…‘: #1B47 ¯ãâ ¬¥î BASIC 48. ¢ª«î票¥ basic48, ¡«®ª¨à®¢ª #7FFD ¨ ¯¥à¥å®¤ ¤à¥á #0000
|
||
x1B47 ld hl,#0000
|
||
|
||
;€„<E282AC>…‘: #1B4A ¢ª«î票¥ basic48, ¡«®ª¨à®¢ª #7FFD ¨ ¯¥à¥å®¤ ¤à¥á ¢ hl
|
||
x1B4A push hl
|
||
ld a,#20
|
||
ld (x5B5C),a
|
||
jp x5B00
|
||
|
||
;€„<E282AC>…‘: #1B53 ãáâ ®¢ª ª « 'P'
|
||
x1B53 ld hl,(#5C4F) ; ¤à¥á ç « ®¡« á⨠¨ä®à¬ 樨 ® ª « å
|
||
ld de,#0005
|
||
add hl,de ;ª « S
|
||
ld de,#000A
|
||
ex de,hl
|
||
add hl,de
|
||
ex de,hl ;ª « P
|
||
ld bc,#0004
|
||
ldir
|
||
res 3,(iy+#30) ;ªãàá®à L
|
||
res 4,(iy+#01) ;०¨¬ zx-48
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1B6E ¤ ë¥ ¤«ï ª®¬ ¤ë LOAD ""
|
||
x1B6E db #EF,#22,#22 ;load ""
|
||
|
||
;€„<E282AC>…‘: #1B71 ª®¬ ¤ LLIST
|
||
x1B71 ld a,#03
|
||
jr x1B77
|
||
|
||
;€„<E282AC>…‘: #1B75 ª®¬ ¤ LIST
|
||
x1B75 ld a,#02
|
||
x1B77 ld (iy+#02),#00
|
||
rst #28
|
||
dw Rom1.x2530 ;¯à®¢¥àª ä« £ ¯à®¢¥àª /¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
jr z,x1B83 ;¯à®¢¥àª
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
x1B83 rst #28 ;!!!¬®¦® rst #18
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
x1B86 rst #28
|
||
dw Rom1.x2070 ;㦮 «¨ ¨§¬¥ïâì ¯®â®ª?
|
||
jr c,x1BA3 ;¥ 㦮
|
||
rst #28 ;!!!¬®¦® rst #18
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
x1B8E cp ";"
|
||
jr z,x1B96
|
||
cp ","
|
||
jr nz,x1B9E
|
||
x1B96 rst #28
|
||
dw Rom1.x0020 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
x1B99 call x190E ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
jr x1BA6
|
||
x1B9E rst #28
|
||
dw Rom1.x1CE6 ;®«ì áâíª ª «ìªã«ïâ®à
|
||
jr x1BA6
|
||
x1BA3 rst #28
|
||
dw Rom1.x1CDE ;¯®«ã票¥ ¯ à ¬¥âà -ç¨á«
|
||
x1BA6 call x18A1
|
||
rst #28
|
||
dw Rom1.x1825 ;LIST-5+3
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1BAD ª®¬ ¤ RAM disk SAVE!
|
||
x1BAD ld (x5B81),sp
|
||
ld sp,x5BFF
|
||
call x1C97 ;ᮧ¤ ¨¥ ®¢®© § ¯¨á¨ ¢ ª â «®£¥ RAM-¤¨áª
|
||
ld bc,(x5B72)
|
||
ld hl,-9
|
||
or #FF
|
||
sbc hl,bc
|
||
call x1CF3 ;ª®à४æ¨ï ᢮¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
ld bc,#0009
|
||
ld hl,x5B71
|
||
call x1DAC ;á®åà ¥¨¥ ¤ ëå RAM ¤¨áª¥
|
||
ld hl,(x5B74)
|
||
ld bc,(x5B72)
|
||
call x1DAC ;á®åà ¥¨¥ ¤ ëå RAM ¤¨áª¥
|
||
call x1D56 ;®¡®¢«¥¨¥ § ¯¨á¨ ª â «®£
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld sp,(x5B81)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1BE5 ª®¬ ¤ RAM disk CAT!
|
||
x1BE5 rst #28
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp "!"
|
||
jp nz,x1912 ;®è¨¡ª
|
||
rst #28
|
||
dw Rom1.x0020 ;ç⥨¥ á«¥¤ãî饣® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
call x18A1
|
||
ld a,#02 ;ª « #02
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
ld (x5B81),sp
|
||
ld sp,x5BFF
|
||
call x20D2 ;¯¥ç âì ª â «®£ RAM ¤¨áª
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld sp,(x5B81)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1C0C ª®¬ ¤ RAM disk EARSE!
|
||
x1C0C rst #28
|
||
dw Rom1.x0018 ;ç⥨¥ ®ç¥à¥¤®£® ᨬ¢®« áâப¨ ¯à®£à ¬¬ë
|
||
cp "!"
|
||
jp nz,x1912 ;®è¨¡ª
|
||
call x1393 ;¯à®¢¥àª ¨ ª®¯¨à®¢ ¨¥ ¨¬¥¨ ä ©«
|
||
call x18A1
|
||
ld (x5B81),sp
|
||
ld sp,x5BFF
|
||
call x1F5F ;㤠«¥¨¥ ä ©« ¨§ RAM ¤¨áª
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld sp,(x5B81)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1C2E § £à㧪 § £®«®¢ª ä ©« ¨§ RAM ¤¨áª
|
||
x1C2E ld (x5B81),sp
|
||
ld sp,x5BFF
|
||
call x1D35 ;¯®¨áª ä ©« RAM ¤¨áª¥
|
||
ld hl,x5B71
|
||
ld bc,#0009
|
||
call x1E37 ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld sp,(x5B81)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1C4B § £à㧪 ¨§ RAM ¤¨áª
|
||
x1C4B ld (x5B81),sp
|
||
ld sp,x5BFF
|
||
ld b,d
|
||
ld c,e
|
||
call x1E37 ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
call x1D56 ;®¡®¢«¥¨¥ § ¯¨á¨ ª â «®£
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ld sp,(x5B81)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1C64 ¢ª«î票¥ «®£¨ç¥áª®© áâà ¨æë ¢ A
|
||
x1C64 push hl
|
||
push bc
|
||
ld hl,x1C81
|
||
ld b,#00
|
||
ld c,a
|
||
add hl,bc
|
||
ld c,(hl)
|
||
di
|
||
ld a,(x5B5C)
|
||
and #F8
|
||
or c
|
||
ld (x5B5C),a
|
||
ld bc,#7FFD
|
||
out (c),a
|
||
ei
|
||
pop bc
|
||
pop hl
|
||
ret
|
||
x1C81 db #01,#03,#04,#06,#07,#00
|
||
|
||
;€„<E282AC>…‘: #1C87 áà ¢¥¨¥ ¨¬¥¨ ä ©« á § ¤ ë¬
|
||
;¢ëå: z - ¨¬¥ ᮢ¯ ¤ îâ
|
||
x1C87 ld de,x5B67
|
||
x1C8A push ix
|
||
pop hl
|
||
ld b,#0A
|
||
x1C8F ld a,(de)
|
||
inc de
|
||
cp (hl)
|
||
inc hl
|
||
ret nz
|
||
djnz x1C8F
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1C97 ᮧ¤ ¨¥ ®¢®© § ¯¨á¨ ¢ ª â «®£¥ RAM-¤¨áª
|
||
x1C97 call x1D12 ;¯®¨áª ¨¬¥¨ ä ©« ¢ ª â «®£¥
|
||
jr z,x1CA0 ;¨¬ï ¥ ©¤¥®
|
||
call x05AC
|
||
db #20 ;e File already exists
|
||
x1CA0 push ix
|
||
ld bc,#3FEC ;¬ ªá¨¬ «ìë© à §¬¥à ª â «®£
|
||
add ix,bc
|
||
pop ix
|
||
jr nc,x1D0E ;¥å¢ ⠥⠯ ¬ïâ¨
|
||
ld hl,-20
|
||
ld a,#FF
|
||
call x1CF3 ;ª®à४æ¨ï ᢮¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
ld hl,x5B66
|
||
set 2,(hl)
|
||
push ix ;ª®¯¨à㥬 ¨¬ï ä ©«
|
||
pop de
|
||
ld hl,x5B67
|
||
ld bc,#000A
|
||
ldir
|
||
set 0,(ix+#13) ;§ ¯¨áì ®¡®¢«¥
|
||
ld a,(ix+#0A) ; ¤à¥á ç « ä ©« = ¤à¥á ª®æ ä ©«
|
||
ld (ix+#10),a
|
||
ld a,(ix+#0B)
|
||
ld (ix+#11),a
|
||
ld a,(ix+#0C)
|
||
ld (ix+#12),a
|
||
xor a
|
||
ld (ix+#0D),a ;¤«¨ ä ©« =#000000
|
||
ld (ix+#0E),a
|
||
ld (ix+#0F),a
|
||
ld a,#05
|
||
call x1C64 ;ram 0
|
||
push ix
|
||
pop hl
|
||
ld bc,-20
|
||
add hl,bc
|
||
ld (x5B83),hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1CF3 ª®à४æ¨ï ᢮¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
x1CF3 ld de,(x5B85)
|
||
ex af,af'
|
||
ld a,(x5B85+2)
|
||
ld c,a
|
||
ex af,af'
|
||
bit 7,a
|
||
jr nz,x1D0A
|
||
add hl,de
|
||
adc a,c
|
||
x1D03 ld (x5B85),hl
|
||
ld (x5B85+2),a
|
||
ret
|
||
x1D0A add hl,de
|
||
adc a,c
|
||
jr c,x1D03
|
||
x1D0E call x05AC
|
||
db #03 ;4 Out of memory
|
||
|
||
;€„<E282AC>…‘: #1D12 ¯®¨áª ¨¬¥¨ ä ©« ¢ ª â «®£¥
|
||
;¢ëå: z - ä ©« ¥ ©¤¥
|
||
; nz - ä ©« ¤¥ -> ix - ¤à¥á ¤¥áªà¨¯â®à
|
||
x1D12 ld a,#04 ;ram 7
|
||
call x1C64
|
||
ld ix,#EBEC ; ¤à¥á ¯¥à¢®© § ¯¨á¨ ¢ ª â «®£¥
|
||
x1D1B ld de,(x5B83)
|
||
or a
|
||
push ix
|
||
pop hl
|
||
sbc hl,de
|
||
ret z
|
||
call x1C87 ;áà ¢¥¨¥ ¨¬¥¨ ä ©« á § ¤ ë¬
|
||
jr nz,x1D2E ;¨¬ï ¥ ᮢ¯ «®
|
||
or #FF
|
||
ret
|
||
x1D2E ld bc,-20
|
||
add ix,bc
|
||
jr x1D1B
|
||
|
||
;€„<E282AC>…‘: #1D35 ¯®¨áª ä ©« RAM ¤¨áª¥
|
||
x1D35 call x1D12 ;¯®¨áª ¨¬¥¨ ä ©« ¢ ª â «®£¥
|
||
jr nz,x1D3E ; ©¤¥
|
||
call x05AC
|
||
db #23 ;h File does not exist
|
||
x1D3E ld a,(ix+#0A)
|
||
ld (ix+#10),a
|
||
ld a,(ix+#0B)
|
||
ld (ix+#11),a
|
||
ld a,(ix+#0C)
|
||
ld (ix+#12),a
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1D56 ®¡®¢«¥¨¥ § ¯¨á¨ ª â «®£
|
||
x1D56 ld a,#04 ;ram 7
|
||
call x1C64
|
||
bit 0,(ix+#13)
|
||
ret z ;®¡®¢«ïâì ¥ ¤®
|
||
res 0,(ix+#13)
|
||
ld hl,x5B66
|
||
res 2,(hl)
|
||
ld l,(ix+#10)
|
||
ld h,(ix+#11)
|
||
ld a,(ix+#12)
|
||
ld e,(ix+#0A)
|
||
ld d,(ix+#0B)
|
||
ld b,(ix+#0C)
|
||
or a
|
||
sbc hl,de
|
||
sbc a,b
|
||
rl h
|
||
rl h
|
||
sra a
|
||
rr h
|
||
sra a
|
||
rr h
|
||
ld (ix+#0D),l
|
||
ld (ix+#0E),h
|
||
ld (ix+#0F),a
|
||
ld l,(ix+#10)
|
||
ld h,(ix+#11)
|
||
ld a,(ix+#12)
|
||
ld bc,-20
|
||
add ix,bc
|
||
ld (ix+#0A),l
|
||
ld (ix+#0B),h
|
||
ld (ix+#0C),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1DAC á®åà ¥¨¥ ¤ ëå RAM ¤¨áª¥
|
||
;¢å: hl - ®âªã¤
|
||
; bc - ᪮«ìª®
|
||
x1DAC ld a,b
|
||
or c
|
||
ret z
|
||
push hl
|
||
ld de,#C000
|
||
ex de,hl
|
||
sbc hl,de
|
||
jr z,x1DD5
|
||
jr c,x1DD5
|
||
push hl
|
||
sbc hl,bc
|
||
jr nc,x1DCC
|
||
ld h,b
|
||
ld l,c
|
||
pop bc
|
||
or a
|
||
sbc hl,bc
|
||
ex (sp),hl
|
||
ld de,#C000
|
||
push de
|
||
jr x1DF4
|
||
x1DCC pop hl
|
||
pop hl
|
||
ld de,#0000
|
||
push de
|
||
push de
|
||
jr x1DF4
|
||
x1DD5 ld h,b
|
||
ld l,c
|
||
ld de,#0020
|
||
or a
|
||
sbc hl,de
|
||
jr c,x1DE4
|
||
ex (sp),hl
|
||
ld b,d
|
||
ld c,e
|
||
jr x1DE9
|
||
x1DE4 pop hl
|
||
ld de,#0000
|
||
push de
|
||
x1DE9 push bc
|
||
ld de,x5B98
|
||
ldir
|
||
pop bc
|
||
push hl
|
||
ld hl,x5B98
|
||
x1DF4 ld a,#04
|
||
call x1C64 ;ram 7
|
||
ld e,(ix+#10)
|
||
ld d,(ix+#11)
|
||
ld a,(ix+#12)
|
||
call x1C64
|
||
x1E05 ldi
|
||
ld a,d
|
||
or e
|
||
jr z,x1E24
|
||
x1E0B ld a,b
|
||
or c
|
||
jp nz,x1E05
|
||
ld a,#04 ;ram 7
|
||
call x1C64
|
||
ld (ix+#10),e
|
||
ld (ix+#11),d
|
||
ld a,#05 ;ram 0
|
||
call x1C64
|
||
pop hl
|
||
pop bc
|
||
jr x1DAC
|
||
x1E24 ld a,#04 ;ram 7
|
||
call x1C64
|
||
inc (ix+#12)
|
||
ld a,(ix+#12)
|
||
ld de,#C000
|
||
call x1C64
|
||
jr x1E0B
|
||
|
||
;€„<E282AC>…‘: #1E37 § £à㧪 ¤ ëå á RAM ¤¨áª
|
||
;¢å: hl - ªã¤
|
||
; bc - ᪮«ìª®
|
||
x1E37 ld a,b
|
||
or c
|
||
ret z
|
||
push hl
|
||
ld de,#C000
|
||
ex de,hl
|
||
sbc hl,de
|
||
jr z,x1E67
|
||
jr c,x1E67
|
||
push hl
|
||
sbc hl,bc
|
||
jr nc,x1E5C
|
||
ld h,b
|
||
ld l,c
|
||
pop bc
|
||
or a
|
||
sbc hl,bc
|
||
ex (sp),hl
|
||
ld de,#0000
|
||
push de
|
||
ld de,#C000
|
||
push de
|
||
ex de,hl
|
||
jr x1E80
|
||
x1E5C pop hl
|
||
pop hl
|
||
ld de,#0000
|
||
push de
|
||
push de
|
||
push de
|
||
ex de,hl
|
||
jr x1E80
|
||
x1E67 ld h,b
|
||
ld l,c
|
||
ld de,#0020
|
||
or a
|
||
sbc hl,de
|
||
jr c,x1E76
|
||
ex (sp),hl
|
||
ld b,d
|
||
ld c,e
|
||
jr x1E7B
|
||
x1E76 pop hl
|
||
ld de,#0000
|
||
push de
|
||
x1E7B push bc
|
||
push hl
|
||
ld de,x5B98
|
||
x1E80 ld a,#04 ;ram 7
|
||
call x1C64
|
||
ld l,(ix+#10)
|
||
ld h,(ix+#11)
|
||
ld a,(ix+#12)
|
||
call x1C64
|
||
x1E91 ldi
|
||
ld a,h
|
||
or l
|
||
jr z,x1EBC
|
||
x1E97 ld a,b
|
||
or c
|
||
jp nz,x1E91
|
||
ld a,#04 ;ram 0
|
||
call x1C64
|
||
ld (ix+#10),l
|
||
ld (ix+#11),h
|
||
ld a,#05 ;ram 7
|
||
call x1C64
|
||
pop de
|
||
pop bc
|
||
ld hl,x5B98
|
||
ld a,b
|
||
or c
|
||
jr z,x1EB7
|
||
ldir
|
||
x1EB7 ex de,hl
|
||
pop bc
|
||
jp x1E37
|
||
x1EBC ld a,#04 ;ram 0
|
||
call x1C64
|
||
inc (ix+#12)
|
||
ld a,(ix+#12)
|
||
ld hl,#C000
|
||
call x1C64
|
||
jr x1E97
|
||
|
||
;€„<E282AC>…‘: #1ECF !!!NOT USED!!! § ¯¨áì ¤ ëå ¢ RAM 7
|
||
;¢å: hl - ®âªã¤
|
||
; de - ªã¤
|
||
; bc - ᪮«ìª®
|
||
x1ECF push af
|
||
ld a,(x5B5C)
|
||
push af
|
||
push hl
|
||
push de
|
||
push bc
|
||
ld ix,x5B67+3 ;x5B6A
|
||
ld (ix+#10),e
|
||
ld (ix+#11),d
|
||
ld (ix+#12),#04
|
||
call x1DAC ;á®åà ¥¨¥ ¤ ëå RAM ¤¨áª¥
|
||
x1EE8 ld a,#05 ;ram 0
|
||
call x1C64
|
||
pop bc
|
||
pop de
|
||
pop hl
|
||
add hl,bc
|
||
ex de,hl
|
||
add hl,bc
|
||
ex de,hl
|
||
pop af
|
||
ld bc,#7FFD
|
||
di
|
||
out (c),a
|
||
ld (x5B5C),a
|
||
ei
|
||
ld bc,#0000
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1F04 !!!NOT USED!!! ç⥨¥ ¤ ëå ¨§ RAM 7
|
||
x1F04 push af
|
||
ld a,(x5B5C)
|
||
push af
|
||
push hl
|
||
push de
|
||
push bc
|
||
ld ix,x5B67+3 ;x5B6A
|
||
ld (ix+#10),l
|
||
ld (ix+#11),h
|
||
ld (ix+#12),#04
|
||
ex de,hl
|
||
call x1E37 ;§ £à㧪 ¤ ëå á RAM ¤¨áª
|
||
jr x1EE8
|
||
|
||
;€„<E282AC>…‘: #1F20 ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
x1F20 ex af,af'
|
||
ld a,#00
|
||
di
|
||
call x1F3A ;¢ª«î票¥ áâà ¨æë ram 0
|
||
pop af
|
||
ld (x5B58),hl
|
||
ld hl,(x5B81)
|
||
ld (x5B81),sp
|
||
ld sp,hl
|
||
ei
|
||
ld hl,(x5B58)
|
||
push af
|
||
ex af,af'
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1F3A ¢ª«î票¥ 䨧¨ç¥áª®© áâà ¨æë ram
|
||
;¢å: a - ®¬¥à áâà ¨æë
|
||
x1F3A push bc
|
||
ld bc,#7FFD
|
||
out (c),a
|
||
ld (x5B5C),a
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1F45 ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
;¢å: (x5B81) - ¤à¥á ¤à㣮£® áâíª
|
||
x1F45 ex af,af'
|
||
di
|
||
pop af
|
||
ld (x5B58),hl
|
||
ld hl,(x5B81)
|
||
ld (x5B81),sp
|
||
ld sp,hl
|
||
ld hl,(x5B58)
|
||
push af
|
||
ld a,#07
|
||
call x1F3A ;¢ª«î票¥ áâà ¨æë ram
|
||
ei
|
||
ex af,af'
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #1F5F 㤠«¥¨¥ ä ©« ¨§ RAM ¤¨áª
|
||
x1F5F call x1D12 ;¯®¨áª ¨¬¥¨ ä ©« ¢ ª â «®£¥
|
||
jr nz,x1F68 ;ä ©« ©¤¥
|
||
call x05AC
|
||
db #23 ;h File does not exist
|
||
x1F68 ld l,(ix+#0D)
|
||
ld h,(ix+#0E)
|
||
ld a,(ix+#0F)
|
||
call x1CF3 ;ª®à४æ¨ï ᢮¡®¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
push iy
|
||
ld iy,(x5B83)
|
||
ld bc,-20
|
||
add ix,bc
|
||
ld l,(iy+#0A)
|
||
ld h,(iy+#0B)
|
||
ld a,(iy+#0C)
|
||
pop iy
|
||
ld e,(ix+#0A)
|
||
ld d,(ix+#0B)
|
||
ld b,(ix+#0C)
|
||
or a
|
||
sbc hl,de
|
||
sbc a,b
|
||
rl h
|
||
rl h
|
||
sra a
|
||
rr h
|
||
sra a
|
||
rr h
|
||
ld bc,#0014
|
||
add ix,bc
|
||
ld (ix+#10),l
|
||
ld (ix+#11),h
|
||
ld (ix+#12),a
|
||
ld bc,-20
|
||
add ix,bc
|
||
ld l,(ix+#0A)
|
||
ld h,(ix+#0B)
|
||
ld d,(ix+#0C)
|
||
ld bc,#0014
|
||
add ix,bc
|
||
ld a,d
|
||
call x1C64
|
||
ld a,(x5B5C)
|
||
ld e,a
|
||
ld bc,#7FFD
|
||
ld a,#07 ;rom 0, ram 7
|
||
di
|
||
out (c),a
|
||
exx
|
||
ld l,(ix+#0A)
|
||
ld h,(ix+#0B)
|
||
ld d,(ix+#0C)
|
||
ld a,d
|
||
call x1C64
|
||
ld a,(x5B5C)
|
||
ld e,a
|
||
ld bc,#7FFD
|
||
exx
|
||
x1FEA ld a,#07 ;rom 0, ram 7
|
||
di
|
||
out (c),a
|
||
ld a,(ix+#10)
|
||
sub #01
|
||
ld (ix+#10),a
|
||
jr nc,x200D
|
||
ld a,(ix+#11)
|
||
sub #01
|
||
ld (ix+#11),a
|
||
jr nc,x200D
|
||
ld a,(ix+#12)
|
||
sub #01
|
||
ld (ix+#12),a
|
||
jr c,x203E
|
||
x200D out (c),e
|
||
ld a,(hl)
|
||
inc l
|
||
jr nz,x2024
|
||
inc h
|
||
jr nz,x2024
|
||
ex af,af'
|
||
inc d
|
||
ld a,d
|
||
call x1C64
|
||
ld a,(x5B5C)
|
||
ld e,a
|
||
ld hl,#C000
|
||
ex af,af'
|
||
x2024 exx
|
||
di
|
||
out (c),e
|
||
ld (hl),a
|
||
inc l
|
||
jr nz,x203B
|
||
inc h
|
||
jr nz,x203B
|
||
inc d
|
||
ld a,d
|
||
call x1C64
|
||
ld a,(x5B5C)
|
||
ld e,a
|
||
ld hl,#C000
|
||
x203B exx
|
||
jr x1FEA
|
||
x203E ld a,#04
|
||
call x1C64
|
||
ld a,#00
|
||
ld hl,#0014
|
||
call x1CF3 ;ª®à४æ¨ï ᢮¡®¤®£® ¬¥áâ RAM ¤¨áª¥
|
||
ld e,(ix+#0D)
|
||
ld d,(ix+#0E)
|
||
ld c,(ix+#0F)
|
||
ld a,d
|
||
rlca
|
||
rl c
|
||
rlca
|
||
rl c
|
||
ld a,d
|
||
and #3F
|
||
ld d,a
|
||
push ix
|
||
x2061 push de
|
||
ld de,-20
|
||
add ix,de
|
||
pop de
|
||
ld l,(ix+#0A)
|
||
ld h,(ix+#0B)
|
||
ld a,(ix+#0C)
|
||
or a
|
||
sbc hl,de
|
||
sub c
|
||
bit 6,h
|
||
jr nz,x207C
|
||
set 6,h
|
||
dec a
|
||
x207C ld (ix+#0A),l
|
||
ld (ix+#0B),h
|
||
ld (ix+#0C),a
|
||
ld l,(ix+#10)
|
||
ld h,(ix+#11)
|
||
ld a,(ix+#12)
|
||
or a
|
||
sbc hl,de
|
||
sub c
|
||
bit 6,h
|
||
jr nz,x2099
|
||
set 6,h
|
||
dec a
|
||
x2099 ld (ix+#10),l
|
||
ld (ix+#11),h
|
||
ld (ix+#12),a
|
||
push ix
|
||
pop hl
|
||
push de
|
||
ld de,(x5B83)
|
||
or a
|
||
sbc hl,de
|
||
pop de
|
||
jr nz,x2061
|
||
ld de,(x5B83)
|
||
pop hl
|
||
push hl
|
||
or a
|
||
sbc hl,de
|
||
ld b,h
|
||
ld c,l
|
||
pop hl
|
||
push hl
|
||
ld de,#0014
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
dec de
|
||
dec hl
|
||
lddr
|
||
ld hl,(x5B83)
|
||
ld de,#0014
|
||
add hl,de
|
||
ld (x5B83),hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #20D2 ¯¥ç âì ª â «®£ RAM ¤¨áª
|
||
x20D2 ld a,#04 ;ram 7
|
||
call x1C64
|
||
ld hl,x2121
|
||
x20DA ld bc,x212B
|
||
ld ix,#EBEC
|
||
x20E1 call x05D6 ;¯à®¢¥àª ¦ â¨ï break ¨ ¯¥ç âì á®®¡é¥¨ï
|
||
push ix
|
||
ex (sp),hl
|
||
ld de,(x5B83)
|
||
or a
|
||
sbc hl,de
|
||
pop hl
|
||
jr z,x2111
|
||
ld d,h
|
||
ld e,l
|
||
push hl
|
||
push bc
|
||
call x1C8A ;áà ¢¥¨¥ ¨¬¥¨ ä ©« á § ¤ ë¬
|
||
pop bc
|
||
pop hl
|
||
jr nc,x210A
|
||
ld d,b
|
||
ld e,c
|
||
push hl
|
||
push bc
|
||
call x1C8A ;áà ¢¥¨¥ ¨¬¥¨ ä ©« á § ¤ ë¬
|
||
pop bc
|
||
pop hl
|
||
jr c,x210A
|
||
push ix
|
||
pop bc
|
||
x210A ld de,-20
|
||
add ix,de
|
||
jr x20E1
|
||
x2111 push hl
|
||
ld hl,x212B
|
||
or a
|
||
sbc hl,bc
|
||
pop hl
|
||
ret z
|
||
ld h,b
|
||
ld l,c
|
||
call x2135 ;¯¥ç âì ®¤®© § ¯¨á¨ ª â «®£ RAM ¤¨áª
|
||
jr x20DA
|
||
x2121 ds #0A,#00
|
||
x212B ds #0A,#FF
|
||
|
||
;€„<E282AC>…‘: #2135 ¯¥ç âì ®¤®© § ¯¨á¨ ª â «®£ RAM ¤¨áª
|
||
x2135 push hl
|
||
push bc
|
||
pop hl
|
||
ld de,x5B67
|
||
ld bc,#000A
|
||
ldir
|
||
ld a,#05
|
||
call x1C64 ;rom 0
|
||
ld hl,(x5B81)
|
||
ld (x5B81),sp
|
||
ld sp,hl
|
||
ld hl,x5B67
|
||
ld b,#0A
|
||
x2152 ld a,(hl)
|
||
push hl
|
||
push bc
|
||
rst #28
|
||
dw Rom1.x0010 ;¯¥ç âì ᨬ¢®« ¨§ A
|
||
pop bc
|
||
pop hl
|
||
inc hl
|
||
djnz x2152
|
||
ld a,#0D
|
||
rst #28
|
||
dw Rom1.x0010 ;¯¥à¥¢®¤ áâப¨
|
||
rst #28
|
||
dw Rom1.x0D4D ;ª®¯¨à ¢®¨¥ âਡã⮢
|
||
ld hl,(x5B81)
|
||
ld (x5B81),sp
|
||
ld sp,hl
|
||
ld a,#04 ;ram 7
|
||
call x1C64
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2174 ª®¬ ¤ LPRINT
|
||
x2174 ld a,#03
|
||
jr x217A
|
||
|
||
;€„<E282AC>…‘: #2178 ª®¬ ¤ PRINT
|
||
x2178 ld a,#02
|
||
x217A rst #28
|
||
dw Rom1.x2530 ;¯à®¢¥àª ä« £ ¯à®¢¥àª /¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
jr z,x2182
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
x2182 rst #28
|
||
dw Rom1.x0D4D ;ª®¯¨à ¢®¨¥ âਡã⮢
|
||
rst #28
|
||
dw Rom1.x1FDF ;PRINT_2
|
||
call x18A1
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #218C ª®¬ ¤ INPUT
|
||
x218C rst #28
|
||
dw Rom1.x2530 ;¯à®¢¥àª ä« £ ¯à®¢¥àª /¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
jr z,x2199
|
||
ld a,#01
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
rst #28 ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
dw Rom1.x0D6E
|
||
x2199 ld (iy+#02),#01
|
||
rst #28
|
||
dw Rom1.x20C1 ;¢¢®¤ ¤ ëå ¯® input
|
||
call x18A1
|
||
rst #28
|
||
dw Rom1.x20A0 ;¢¢®¤ á ª« ¢¨ âãàë
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #21A7 ª®¬ ¤ COPY
|
||
x21A7 jp x08F0
|
||
|
||
;€„<E282AC>…‘: #21AA ª®¬ ¤ NEW
|
||
x21AA di
|
||
jp x019D
|
||
|
||
;€„<E282AC>…‘: #21AE ª®¬ ¤ CIRCLE
|
||
x21AE rst #18
|
||
cp ","
|
||
jr nz,x21EB ;®è¨¡ª
|
||
rst #20
|
||
rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
call x18A1
|
||
rst #28
|
||
dw Rom1.x232D ;¯¥ç âì ®ªà㦮áâ¨
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #21BE ª®¬ ¤ DRAW
|
||
x21BE rst #18
|
||
cp ","
|
||
jr z,x21CA
|
||
call x18A1
|
||
rst #28
|
||
dw Rom1.x2477 ;¯¥ç âì «¨¨¨
|
||
ret
|
||
x21CA rst #20
|
||
rst #28
|
||
dw Rom1.x1C82 ;¯®«ã票¥ ç¨á«®¢®£® § 票ï
|
||
call x18A1
|
||
rst #28
|
||
dw Rom1.x2394 ;¯¥ç âì «¨¨¨
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #21D5 ª®¬ ¤ DIM
|
||
x21D5 rst #28
|
||
dw Rom1.x28B2 ;LOOK-VARS
|
||
jr nz,x21EB
|
||
rst #28
|
||
dw Rom1.x2530 ;¯à®¢¥àª ä« £ ¯à®¢¥àª /¨á¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
jr nz,x21E7
|
||
res 6,c
|
||
rst #28
|
||
dw Rom1.x2996 ;¯à®¢¥àª ¥ á¨â ªá¨á ¢ëà ¦¥¨ï, § ª«î祮£® ¢ ᪮¡ª¨
|
||
call x18A1
|
||
x21E7 rst #28
|
||
dw Rom1.x2C15 ;D-RUN
|
||
ret
|
||
|
||
x21EB call x05AC
|
||
db #0B ;C Nonsense in BASIC
|
||
|
||
;€„<E282AC>…‘: #21EF ®ç¨á⪠íªà
|
||
x21EF bit 0,(iy+#30)
|
||
ret z
|
||
rst #28
|
||
dw Rom1.x0DAF ;®ç¨áâ¨âì íªà
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #21F8 ¢ëç¨á«¨çâì ç¨á«®¢®¥ ¢ëà ¦¥¨¥
|
||
x21F8 ld hl,#FFFE
|
||
ld (#5C45),hl ;¢ë¯®«¥¨¥ ®¯¥à â®à ¢ ¥¯®á।á⢥®¬ ०¨¬¥
|
||
res 7,(iy+#01) ;¯à®¢¥àª á¨â ªá¨á
|
||
call x228E ;¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x24FB ; «¨§ áâப¨
|
||
bit 6,(iy+#01)
|
||
jr z,x223A ;®¡à ¡®âª ᨬ¢®«ì®£® ¢ëà ¦¥¨ï
|
||
rst #18 ;¯®«ãç¨âì ᨬ¢®«
|
||
cp #0D
|
||
jr nz,x223A
|
||
set 7,(iy+#01) ;¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
|
||
call x228E ;¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
ld hl,x0321 ; ¤à¥á ¢®§¢à ⠯ਠ®è¨¡ª¥
|
||
ld (x5B8B),hl
|
||
rst #28
|
||
dw Rom1.x24FB ; «¨§ áâப¨
|
||
bit 6,(iy+#01)
|
||
jr z,x223A ;®¡à ¡®âª ᨬ¢®«ì®£® ¢ëà ¦¥¨ï
|
||
ld de,x5B8D ; ¤à¥á ¯®á«¥¤¥© ¤«¨ë, ¢ë¢®¤¨¬®© ¯à¨ ¢ëç¨á«¥¨ïå
|
||
ld hl,(#5C65) ; ¤à¥á ¢¥àè¨ë áâíª ª «ìªã«ïâ®à
|
||
ld bc,#0005
|
||
or a
|
||
sbc hl,bc
|
||
ldir
|
||
jp x223E
|
||
x223A call x05AC ;¡¥§ ¢®§¢à â
|
||
db #19 ;Q Parameter error, n:m
|
||
x223E ld a,#0D
|
||
call x226F ;®¡à ¡®âª ¦ ⮩ ª« ¢¨è¨
|
||
ld bc,#0001
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0030 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ
|
||
x2249 ld (#5C5B),hl ; ¤à¥á ᨬ¢®« । ªâ¨à㥬®© áâப¨
|
||
push hl
|
||
ld hl,(#5C51) ; ¤à¥á ®¯¨á ⥫ï ⥪ã饣® ª «
|
||
push hl
|
||
ld a,#FF ;ª « -1
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x2DE3 ;¯¥ç âì ç¨á« á ¯« ¢ î饩 â®çª®©
|
||
pop hl
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1615 ;ãáâ ®¢ª ä« £®¢ ª « (¢®§¢à ⠯।ë¤ã饣® ª « )
|
||
pop de
|
||
ld hl,(#5C5B) ; ¤à¥á ᨬ¢®« । ªâ¨à㥬®© áâப¨
|
||
and a
|
||
sbc hl,de
|
||
x2264 ld a,(de)
|
||
call x226F ;®¡à ¡®âª ¦ ⮩ ª« ¢¨è¨
|
||
inc de
|
||
dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x2264
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #226F ®¡à ¡®âª ¦ ⮩ ª« ¢¨è¨
|
||
;¢å: a - ª®¤ ª« ¢¨è¨
|
||
x226F push hl
|
||
push de
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld hl,#EC0D
|
||
res 3,(hl)
|
||
push af
|
||
ld a,#02
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª « #02
|
||
pop af
|
||
call x2669 ;®¡à ¡®âª ¦ â¨ï ª« ¢¨è¨
|
||
ld hl,#EC0D
|
||
res 3,(hl)
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
pop de
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #228E ¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
x228E ld hl,(#5C59)
|
||
dec hl
|
||
ld (#5C5D),hl
|
||
rst #20 ;¯®«ã票¥ á«¥¤ãî饣® ᨬ¢®« ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2297 ¯à®¢¥àª íâ® ª®¬ ¤ LET? (ª «ìªã«ïâ®à basic 128)
|
||
;¢ëå: z - í⮠⮫쪮 ª®¬ ¤ LET
|
||
x2297 call x228E ;¯®¨áª ç « ¡¥©á¨ª ª®¬ ¤ë
|
||
cp #F1 ;LET ?
|
||
ret nz
|
||
ld hl,(#5C5D)
|
||
x22A0 ld a,(hl)
|
||
inc hl
|
||
cp #0D
|
||
ret z
|
||
cp ":"
|
||
jr nz,x22A0
|
||
or a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #22AB ¯à®¢¥àª íâ® ®¯¥à â®à?
|
||
x22AB ld b,a
|
||
ld hl,x22BD
|
||
x22AF ld a,(hl)
|
||
inc hl
|
||
or a
|
||
jr z,x22B9
|
||
cp b
|
||
jr nz,x22AF
|
||
ld a,b
|
||
ret
|
||
x22B9 or #FF
|
||
ld a,b
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #22BD ᯨ᮪ ⮪¥®¢ ®¯¥à â®à®¢
|
||
x22BD db #2B,#2D,#2A ; '+', '-', '*'
|
||
db #2F,#5E,#3D ; '/', '^', '='
|
||
db #3E,#3C,#C7 ; '>', '<', '<='
|
||
db #C8,#C9,#C5 ; '>=', '<>', 'OR'
|
||
db #C6 ; 'AND'
|
||
db #00 ;¬ àª¥à ª®æ â ¡«¨æë
|
||
|
||
;€„<E282AC>…‘: #22CB ¯à®¢¥àª í⮠⮪¥?
|
||
;¢ëå: z - í⮠⮪¥
|
||
x22CB cp #A5
|
||
jr c,x22DD
|
||
cp #C4
|
||
jr nc,x22DD
|
||
cp #AC
|
||
jr z,x22DD
|
||
cp #AD
|
||
jr z,x22DD
|
||
cp a
|
||
ret
|
||
x22DD cp #A5
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #22E0 ¯à®¢¥àª íâ® ç¨á«® ¨«¨ äãªæ¨ï?
|
||
x22E0 ld b,a
|
||
or #20
|
||
cp "a"
|
||
jr c,x22ED ;íâ® ¥ ¡ãª¢
|
||
cp "z"+1
|
||
jr nc,x22ED ;íâ® ¥ ¡ãª¢
|
||
cp a
|
||
ret
|
||
x22ED ld a,b
|
||
cp "."
|
||
ret z
|
||
call x230A ;¯à®¢¥àª íâ® æ¨äà ¨«¨ ¥â
|
||
jr nz,x2307 ;¥ æ¨äà
|
||
x22F6 rst #20 ;ç¨â ¥¬ á«¥¤ãî騩 ᨬ¢¢®«
|
||
call x230A ;¯à®¢¥àª íâ® æ¨äà ¨«¨ ¥â
|
||
jr z,x22F6 ;íâ® æ¨äà
|
||
cp "."
|
||
ret z
|
||
cp "E"
|
||
ret z
|
||
cp "e"
|
||
ret z
|
||
jr x22AB ;¯à®¢¥àª íâ® ®¯¥à â®à?
|
||
x2307 or #FF
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #230A ¯à®¢¥àª íâ® æ¨äà ¨«¨ ¥â
|
||
;¢ëå: z - íâ® æ¨äà
|
||
x230A cp "0"
|
||
jr c,x2314 ;íâ® ¥ æ¨äà
|
||
cp "9"+1
|
||
jr nc,x2314 ;íâ® ¥ æ¨äà
|
||
cp a
|
||
ret
|
||
x2314 cp "0"
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2317 ª®¬ ¤ PLAY
|
||
x2317 ld b,#00
|
||
rst #18
|
||
x231A push bc
|
||
rst #28
|
||
dw Rom1.x1C8C ;¯ à ¬¥âà - áâப
|
||
pop bc
|
||
inc b
|
||
cp ","
|
||
jr nz,x2327
|
||
rst #20
|
||
jr x231A
|
||
x2327 ld a,b
|
||
cp #09
|
||
jr c,x2330
|
||
call x05AC
|
||
db #2B ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
x2330 call x18A1
|
||
jp x0985
|
||
|
||
;€„<E282AC>…‘: #2336 !!!NOT USED!!! ¢®§¢à â ¢ । ªâ®à
|
||
x2336 ld hl,x5BFF
|
||
ld (x5B81),hl
|
||
call x1F45
|
||
jp x25CB
|
||
|
||
;€„<E282AC>…‘: #2342 !!!NOT USED!!! bc=hl-de
|
||
x2342 and a
|
||
sbc hl,de
|
||
ld b,h
|
||
ld c,l
|
||
add hl,de
|
||
ex de,hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #234A !!!NOT USED!!! § १¥à¢¨à®¢ âì ¯ ¬ïâì 1 ¡ ©â
|
||
x234A ld bc,#0001
|
||
push hl
|
||
push de
|
||
call x2358
|
||
pop de
|
||
pop hl
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2358 !!!NOT USED!!! ¯à®¢¥àª ¤®áâ㯮á⨠¬¥áâ ¢ ¯ ¬ïâ¨ à §¬¥à®¬ ¢ bc
|
||
x2358 ld hl,(#5C65)
|
||
add hl,bc
|
||
jr c,x2368
|
||
ex de,hl
|
||
ld hl,#0082
|
||
add hl,de
|
||
jr c,x2368
|
||
sbc hl,sp
|
||
ret c
|
||
x2368 ld (iy+#00),#03 ;4 Out of Memory
|
||
jp x0321
|
||
|
||
;€„<E282AC>…‘: #236F !!!NOT USED!!! hl=a*#20
|
||
x236F add a,a
|
||
add a,a
|
||
|
||
;€„<E282AC>…‘: #2371 !!!NOT USED!!! hl=a*#08
|
||
x2371 ld l,a
|
||
ld h,#00
|
||
add hl,hl
|
||
add hl,hl
|
||
add hl,hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2378 !!!NOT USED!!! à áç¥â ᢮¡®¤®£® ¬¥áâ
|
||
x2378 ld hl,#0000
|
||
add hl,sp
|
||
ld de,(#5C65)
|
||
or a
|
||
sbc hl,de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2384 !!!NOT USED!!! ¯¥ç âì íªà ¥ áâப¨ ¨§ ¡ãä¥à
|
||
x2384 res 0,(iy-#39)
|
||
call x236F
|
||
push hl
|
||
ld de,(#FF24)
|
||
add hl,de
|
||
ld d,h
|
||
ld e,l
|
||
ex (sp),hl
|
||
push hl
|
||
push de
|
||
ld de,#5800
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
ld bc,#0020
|
||
ld a,(#5C8F)
|
||
call x249B
|
||
pop hl
|
||
ld a,h
|
||
ld h,#00
|
||
add a,a
|
||
add a,a
|
||
add a,a
|
||
add a,#40
|
||
ld d,a
|
||
ld e,h
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
ld b,#20
|
||
jp x23E1
|
||
|
||
;€„<E282AC>…‘: #23B8 !!!NOT USED!!! ¯¥ç âì ¢ ¡ãä¥à¥ #FF
|
||
x23B8 ld d,#FF
|
||
call x236F
|
||
ld a,d
|
||
ld de,(#FF24)
|
||
add hl,de
|
||
ld e,l
|
||
ld d,h
|
||
inc de
|
||
ld (hl),a
|
||
dec bc
|
||
ldir
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #23CB !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¡ãä¥à íªà
|
||
x23CB call x2488
|
||
ld de,#4000
|
||
ld hl,(#FF24)
|
||
ld b,e
|
||
call x23E1
|
||
ld d,#48
|
||
call x23E1
|
||
ld d,#50
|
||
ld b,#C0
|
||
|
||
;€„<E282AC>…‘: #23E1 !!!NOT USED!!! ¯¥ç âì ᨬ¢®«®¢ ¨§ ¡ãä¥à íªà ¥
|
||
x23E1 ld a,(hl)
|
||
push hl
|
||
push de
|
||
cp #FE
|
||
jr c,x23EC
|
||
sub #FE
|
||
jr x2422
|
||
x23EC cp #20
|
||
jr nc,x23F7
|
||
ld hl,x2527
|
||
and a
|
||
ex af,af'
|
||
jr x242B
|
||
x23F7 cp #80
|
||
jr nc,x2409
|
||
call x2371
|
||
ld de,(#5C36)
|
||
add hl,de
|
||
pop de
|
||
call #FF28
|
||
jr x2450
|
||
x2409 cp #90
|
||
jr nc,x2411
|
||
sub #7F
|
||
jr x2422
|
||
x2411 sub #90
|
||
call x2371
|
||
pop de
|
||
call x1F20
|
||
push de
|
||
ld de,(#5C7B)
|
||
scf
|
||
jr x2429
|
||
x2422 ld de,x252F
|
||
call x2371
|
||
and a
|
||
x2429 ex af,af'
|
||
add hl,de
|
||
x242B pop de
|
||
x242C ld c,d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
inc hl
|
||
inc d
|
||
ld a,(hl)
|
||
ld (de),a
|
||
ld d,c
|
||
ex af,af'
|
||
call c,x1F45
|
||
x2450 pop hl
|
||
inc hl
|
||
inc de
|
||
djnz x23E1
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2456 !!!NOT USED!!! ¯¥à¥ª«î票¥ áâà ¨æ rom 0/1
|
||
x2456 push bc
|
||
di
|
||
ld bc,#7FFD
|
||
ld a,(x5B5C)
|
||
xor #10
|
||
out (c),a
|
||
ei
|
||
ex af,af'
|
||
|
||
;€„<E282AC>…‘: #2464 !!!NOT USED!!! ¯¥à¥ª«î票¥ áâà ¨æ rom 0/1
|
||
x2464 ex af,af'
|
||
di
|
||
ld c,#FD
|
||
xor #10
|
||
out (c),a
|
||
ei
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #246F !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¯/¯ ¢ ram 7
|
||
x246F ld hl,x2456
|
||
ld de,#FF28
|
||
ld bc,#000E
|
||
ldir
|
||
push hl
|
||
ld hl,x242C
|
||
ld c,#20
|
||
ldir
|
||
pop hl
|
||
ld c,#0B
|
||
ldir
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2488 !!!NOT USED!!! ãáâ ®¢ª âਡã⮢ ¨§ ¡ãä¥à íªà
|
||
x2488 res 0,(iy-#39)
|
||
ld de,#5800
|
||
ld bc,#02C0
|
||
ld hl,(#FF24)
|
||
ld a,(#5C8D)
|
||
ld (#5C8F),a
|
||
|
||
;€„<E282AC>…‘: #249B !!!NOT USED!!! ãáâ ®¢ª âਡã⮢ ¨§ ¡ãä¥à íªà
|
||
x249B ex af,af'
|
||
x249C push bc
|
||
ld a,(hl)
|
||
cp #FF
|
||
jr nz,x24AA
|
||
ld a,(#5C8D)
|
||
ld (de),a
|
||
inc hl
|
||
inc de
|
||
jr x2507
|
||
x24AA ex af,af'
|
||
ld (de),a
|
||
inc de
|
||
ex af,af'
|
||
inc hl
|
||
cp #15
|
||
jr nc,x2507
|
||
cp #10
|
||
jr c,x2507
|
||
dec hl
|
||
jr nz,x24C2
|
||
inc hl
|
||
ld a,(hl)
|
||
ld c,a
|
||
ex af,af'
|
||
and #F8
|
||
jr x2505
|
||
x24C2 cp #11
|
||
jr nz,x24D1
|
||
inc hl
|
||
ld a,(hl)
|
||
add a,a
|
||
add a,a
|
||
add a,a
|
||
ld c,a
|
||
ex af,af'
|
||
and #C7
|
||
jr x2505
|
||
x24D1 cp #12
|
||
jr nz,x24DE
|
||
inc hl
|
||
ld a,(hl)
|
||
rrca
|
||
ld c,a
|
||
ex af,af'
|
||
and #7F
|
||
jr x2505
|
||
x24DE cp #13
|
||
jr nz,x24EC
|
||
inc hl
|
||
ld a,(hl)
|
||
rrca
|
||
rrca
|
||
ld c,a
|
||
ex af,af'
|
||
and #BF
|
||
jr x2505
|
||
x24EC cp #14
|
||
inc hl
|
||
jr nz,x2507
|
||
ld c,(hl)
|
||
ld a,(#5C01)
|
||
xor c
|
||
rra
|
||
jr nc,x2507
|
||
ld a,#01
|
||
xor (iy-#39)
|
||
ld (#5C01),a
|
||
ex af,af'
|
||
call x2513
|
||
x2505 or c
|
||
ex af,af'
|
||
x2507 pop bc
|
||
dec bc
|
||
ld a,b
|
||
or c
|
||
jp nz,x249C
|
||
ex af,af'
|
||
ld (#5C8F),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2513 !!!NOT USED!!! ¯®¬¥ïâì ¬¥áâ ¬¨ ink ¨ paper
|
||
x2513 ld b,a
|
||
and #C0
|
||
ld c,a
|
||
ld a,b
|
||
add a,a
|
||
add a,a
|
||
add a,a
|
||
and #38
|
||
or c
|
||
ld c,a
|
||
ld a,b
|
||
rra
|
||
rra
|
||
rra
|
||
and #07
|
||
or c
|
||
ret
|
||
|
||
x2527 db %00000000 ;
|
||
db %00111100 ; XXXX
|
||
db %01100010 ; XX X
|
||
db %01100000 ; XX
|
||
db %01101110 ; XX XXX
|
||
db %01100010 ; XX X
|
||
db %00111110 ; XXXX
|
||
db %00000000 ;
|
||
|
||
x252F db %00000000 ;
|
||
db %01101100 ; XX XX
|
||
db %00010000 ; X
|
||
db %01010100 ; X X X
|
||
db %10111010 ; X XXX X
|
||
db %00111000 ; XXX
|
||
db %01010100 ; X X X
|
||
db %10000010 ; X X
|
||
|
||
;€„<E282AC>…‘: #2537 â ¡«¨æ ¤à¥á®¢ ®¡à ¡®âª¨ ¦ ⨩ ¢ ०¨¬¥ । ªâ¨à®¢ ¨ï
|
||
x2537 db #15 ;à §¬¥à â ¡«¨æë
|
||
db #0B: dw #2A94 ;¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #0A: dw #2AB5 ;¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #08: dw #2AD7 ;¯¥à¥¬¥é¥¨¥ ªãàá®à ¢«¥¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #09: dw #2AE3 ;¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¯à ¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #AD: dw #2A4F ;ext+P ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #AC: dw #2A25 ;ss+I ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #AF: dw #29D4 ;ext+I ¯¥à¥å®¤ ª ç «ã ⥪ã饣® á«®¢
|
||
db #AE: dw #29E1 ;ext+shift+J ¯¥à¥å®¤ ª ç «ã á«¥¤ãî饣® á«®¢
|
||
db #A6: dw #2983 ;ext+N/Graph+W ¯¥à¥å®¤ ª ¯¥à¢®© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
db #A5: dw #29AB ;ext+T/Graph+V ¯¥à¥å®¤ ª ¯®á«¥¤¥© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
db #A8: dw #2A87 ;ext+ss+2/Graph+Y ¯¥à¥å®¤ ª ç «ã áâப¨ । ªâ¨à®¢ ¨ï
|
||
db #A7: dw #2A7A ;ext+M/graph+X ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢ ª®¥æ áâப¨ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
db #AA: dw #291B ;ext+ss+K 㤠«¥¨¥ ᨬ¢®« á¯à ¢ ®â ªãàá®à
|
||
db #0C: dw #292B ;delete 㤠«¥¨¥ ᨬ¢®« á«¥¢ ®â ªãàá®à
|
||
db #B3: dw #3017 ;ext+W 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « á«¥¤ãî饣® á«®¢
|
||
db #B4: dw #2FBC ;ext+E 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « ⥪ã饣® á«®¢
|
||
db #B0: dw #3072 ;ext+J 㤠«¥¨¥ ᨬ¢®«®¢ ¤® ª®æ áâப¨
|
||
db #B1: dw #303E ;ext+K 㤠«¥¨¥ ᨬ¢®«®¢ ¤® « áâப¨
|
||
db #0D: dw #2944 ;enter ¢¢®¤ áâப¨
|
||
db #A9: dw #269B ;ext+ss+8/Graph+Z ¯¥à¥ª«î票¥ ¬¥¦¤ã । ªâ¨à®¢ ¨¥¬ ¢¨§ã ¨ ¢¢¥àåã
|
||
db #07: dw #2704 ;cs+1 ¢ë§®¢ ¬¥î
|
||
|
||
;€„<E282AC>…‘: #2577 â ¡«¨æ ¤à¥á®¢ ®¡à ¡®âª¨ ¦ ⨩ ¢ ®á®¢®¬ ¬¥î basic 128k
|
||
x2577 db #04 ;à §¬¥à â ¡«¨æë
|
||
db #0B: dw x272E ;¢¢¥àå
|
||
db #0A: dw x2731 ;¢¨§
|
||
db #07: dw x2717 ;cs+1
|
||
db #0D: dw x2717 ;enter
|
||
|
||
;€„<E282AC>…‘: #2584 ¯®¤£®â®¢ª ¯¥à¥¬¥ëå
|
||
x2584 call x28BE ;¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
ld hl,#0000
|
||
ld (#FC9A),hl
|
||
ld a,#82
|
||
ld (#EC0D),a
|
||
ld hl,#0000
|
||
ld (#5C49),hl ;<3B>®¬¥à áâப¨ ¡¥©á¨ª-¯à®£à ¬¬ë, ®â¬¥ç¥®© ªãàá®à®¬
|
||
call x35BC ;ãáâ ®¢ª ¯ à ¬¥â஢ ®âáâã¯
|
||
call x365E ;ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #259F ¯¥ç âì £« ¢®£® ¬¥î basic 128 ¨ ¢ë¡®à ®¯æ¨¨
|
||
x259F ld hl,x5BFF
|
||
ld (x5B81),hl
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,#02 ;ª « #02 (®á®¢®© íªà )
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
x25AD ld hl,x2744 ;¯/¯ ®¡à ¡®âª¨ £« ¢®£® ¬¥î
|
||
ld (#F6EA),hl
|
||
ld hl,x2754 ;⥪á⠮ᮢ®£® ¬¥î basic 128k
|
||
ld (#F6EC),hl
|
||
push hl
|
||
ld hl,#EC0D
|
||
set 1,(hl) ; ®â®¡à ¦¥® ¬¥î
|
||
res 4,(hl) ;¢®§¢à â ¢ £« ¢®¥ ¬¥î
|
||
dec hl
|
||
ld (hl),#00 ;®¬¥à ®¯æ¨¨ ¬¥î
|
||
pop hl
|
||
call x36A8 ;¯¥ç âì £« ¢®£® ¬¥î basic 128k
|
||
jp x2653 ;®á®¢®© 横« ¢ basic128/ª «ìªã«ïâ®à
|
||
|
||
;€„<E282AC>…‘: #25CB ¢®§¢à â ¢ । ªâ®à/ª «ìªã«ïâ®à/¬¥î ¯®á«¥ ®¡à ¡®âª¨ ®è¨¡ª¨
|
||
x25CB ld ix,#FD6C
|
||
ld hl,x5BFF
|
||
ld (x5B81),hl
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,#02
|
||
rst #28
|
||
dw Rom1.x1601 ;®âªàëâì ª «
|
||
call x3668 ;ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
ld hl,#5C3B
|
||
x25E3 bit 5,(hl)
|
||
jr z,x25E3
|
||
ld hl,#EC0D
|
||
res 3,(hl)
|
||
bit 6,(hl)
|
||
jr nz,x2604
|
||
ld a,(#EC0E)
|
||
cp #04
|
||
jr z,x2601 ;íâ® ª «ìªã«ïâ®à
|
||
cp #00
|
||
jp nz,x28C7
|
||
call x3848 ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 BASIC
|
||
jr x2604
|
||
x2601 call x384D ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ Calculator
|
||
x2604 call x30D6 ;ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ã íªà
|
||
call x3222 ;ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢ ¢¥àåã íªà
|
||
ld a,(#EC0E)
|
||
cp #04
|
||
jr z,x2653 ;ª «ìªã«ïâ®à
|
||
ld hl,(#5C49)
|
||
ld a,h
|
||
or l
|
||
jr nz,x262D
|
||
ld hl,(#5C53)
|
||
ld bc,(#5C4B)
|
||
and a
|
||
sbc hl,bc
|
||
jr nz,x262A
|
||
ld hl,#0000
|
||
ld (#EC08),hl
|
||
x262A ld hl,(#EC08)
|
||
x262D call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x1695 ;¯®«ãç¨âì ¤à¥á ¯¥à¢®© áâப¨ ¯à®£à ¬¬ë
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld (#5C49),de
|
||
ld hl,#EC0D
|
||
bit 5,(hl)
|
||
jr nz,x2653
|
||
ld hl,#0000
|
||
ld (#EC06),hl
|
||
call x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
call x29F2 ; ¯¥ç â âì ªãàá®à
|
||
call x2944 ;enter ¢¢®¤ áâப¨
|
||
|
||
;€„<E282AC>…‘: #2653 ®á®¢®© 横« ¢ basic128/ª «ìªã«ïâ®à
|
||
x2653 ld sp,#5BFF
|
||
call x3668 ;ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
call x367F ;®¦¨¤ ¨¥ ¦ â¨ï ª« ¢¨è¨
|
||
push af ;ª®¤ ª« ¢¨è¨
|
||
ld a,(#5C39) ;§¢ãª ¦ â¨ï ª« ¢¨èã
|
||
call x26EC ;§¢ãª®¢®© ᨣ «
|
||
pop af
|
||
call x2669 ;®¡à ¡®âª ¦ â¨ï ª« ¢¨è¨
|
||
jr x2653 ;®á®¢®© 横« ¢ basic128/ª «ìªã«ïâ®à
|
||
|
||
;€„<E282AC>…‘: #2669 ®¡à ¡®âª ¦ â¨ï ª« ¢¨è¨
|
||
;¢å: a - ª®¤ ª« ¢¨è¨
|
||
;¢ëå: z - ®â®¡à ¦¥® ¬¥î
|
||
x2669 ld hl,#EC0D
|
||
bit 1,(hl)
|
||
push af
|
||
ld hl,x2577 ;®á®¢®¥ ¬¥î basic 128k
|
||
jr nz,x2677 ;®â®¡à ¦¥® ¬¥î
|
||
ld hl,x2537 ;ª« ¢¨è¨ ¤«ï ०¨¬ । ªâ¨à®¢ ¨ï
|
||
x2677 call x3FCE ;®¡à ¡®âª ¦ ⮩ ã¯à ¢«ïî饩 ª« ¢¨è¨ ¢ ¬¥î
|
||
jr nz,x2681 ;¥ ©¤¥ ®¡à ¡®â稪 ª« ¢¨è¨
|
||
call nc,x26E7 ;§¢ãª®¢®© ᨣ «
|
||
pop af
|
||
ret
|
||
;¥ ©¤¥ ®¡à ¡®â稪 ª« ¢¨è¨
|
||
x2681 pop af
|
||
jr z,x2689 ;í⮠०¨¬ । ªâ¨à®¢ ¨ï
|
||
xor a ;ªãàá®à K,L ¨«¨ C
|
||
ld (#5C41),a
|
||
ret
|
||
x2689 ld hl,#EC0D
|
||
bit 0,(hl)
|
||
jr z,x2694 ;¡ãä¥à । ªâ¨à®¢ ¨ï ¥ ¯¥à¥¯®«¥
|
||
call x26E7 ;§¢ãª®¢®© ᨣ «
|
||
ret ;!!!âãâ ¬®¦® ᮪à â¨âì!!!
|
||
x2694 cp #A3
|
||
jr nc,x2653 ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì ret nc
|
||
jp x28F1 ;®¡à ¡®ª ¦ â¨ï ᨬ¢®«ì®© ª« ¢¨è¨
|
||
|
||
;€„<E282AC>…‘: #269B ext+ss+8/Graph+Z ¯¥à¥ª«î票¥ ¬¥¦¤ã । ªâ¨à®¢ ¨¥¬ ¢¨§ã ¨ ¢¢¥àåã
|
||
x269B ld a,(#EC0E)
|
||
cp #04
|
||
ret z ;íâ® ª «ìªã«ïâ®à
|
||
call x1630 ;®ç¨á⪠®ª । ªâ¨à®¢ ¨ï
|
||
ld hl,#EC0D
|
||
res 3,(hl)
|
||
ld a,(hl)
|
||
xor #40
|
||
ld (hl),a
|
||
and #40
|
||
jr z,x26B6
|
||
call x26BB ;¢ë¡®à ¨¦¥£® íªà
|
||
jr x26B9
|
||
x26B6 call x26CE ;¢ë¡®à ¢¥à奣® íªà
|
||
x26B9 scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #26BB ¢ë¡®à ¨¦¥£® íªà
|
||
x26BB call x3881 ;®ç¨á⪠¤¢ãå ¨¦¨å áâப íªà
|
||
ld hl,#EC0D
|
||
set 6,(hl)
|
||
call x2E2D ;á¡à®á ¨¦¥£® ®ª । ªâ¨à®¢ ¨ï
|
||
call x3A88 ;ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¨¦¥£® ®ª
|
||
call x28DF ;¨¨æ¨ «¨§ æ¨ï áâ஥ª ¨¦¥£® ®ª
|
||
jr x26D9
|
||
|
||
;€„<E282AC>…‘: #26CE ¢ë¡®à ¢¥à奣® íªà
|
||
x26CE ld hl,#EC0D
|
||
res 6,(hl)
|
||
call x28BE ;¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
call x3848 ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 BASIC
|
||
x26D9 ld hl,(#FC9A)
|
||
ld a,h
|
||
or l
|
||
call nz,x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
call x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #26E7 §¢ãª®¢®© ᨣ «
|
||
x26E7 ld a,(#5C38) ;§ ¯®«¥¨¥ ¡ãä¥à । ªâ®à
|
||
srl a
|
||
|
||
;€„<E282AC>…‘: #26EC §¢ãª®¢®© ᨣ «
|
||
x26EC push ix
|
||
ld d,#00
|
||
ld e,a
|
||
ld hl,#0C80
|
||
x26F4 rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x03B5 ;beep
|
||
pop ix
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #26FA §¢ãª®¢®© ᨣ «
|
||
x26FA push ix
|
||
ld de,#0030
|
||
ld hl,#0300
|
||
jr x26F4
|
||
|
||
;€„<E282AC>…‘: #2704 cs+1 ¢ë§®¢ ¬¥î
|
||
x2704 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld hl,#EC0D
|
||
set 1,(hl)
|
||
dec hl
|
||
ld (hl),#00
|
||
ld hl,(#F6EC)
|
||
call x36A8 ;¯¥ç âì ¬¥î basic 128k
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2717 ¦ ⨥ cs+1/enter ¢ £« ¢®¬ ¬¥î
|
||
x2717 ld hl,#EC0D
|
||
res 1,(hl)
|
||
dec hl
|
||
ld a,(hl)
|
||
ld hl,(#F6EA)
|
||
push hl
|
||
push af
|
||
call x373E ;¢®ááâ ®¢«¥¨¥ ®ª íªà 14*12 ¨§ ¡ãä¥à
|
||
pop af
|
||
pop hl
|
||
call x3FCE ;®¡à ¡®âª ¦ ⮩ ã¯à ¢«ïî饩 ª« ¢¨è¨ ¢ ¬¥î
|
||
jp x29F2
|
||
|
||
;€„<E282AC>…‘: #272E ªãàá®à ¢¢¥àå ¢ £« ¢®¬ ¬¥î
|
||
x272E scf
|
||
jr x2732
|
||
|
||
;€„<E282AC>…‘: #2731 ªãàá®à ¢¨§ ¢ £« ¢®¬ ¬¥î
|
||
x2731 and a
|
||
x2732 ld hl,#EC0C
|
||
ld a,(hl)
|
||
push hl
|
||
ld hl,(#F6EC) ; ¤à¥á ᯨ᪠®¯æ¨© ¬¥î
|
||
call c,x37A7 ;¢¢¥àå
|
||
call nc,x37B6 ;¢¨§
|
||
pop hl
|
||
ld (hl),a
|
||
x2742 scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2744 ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ®á®¢®£® ¬¥î basic 128k
|
||
x2744 db #05 ;ª®«-¢® ®¯æ¨©
|
||
db #00: dw x2816 ;¢ë¡®à ®¯æ¨¨ 128 TR-DOS
|
||
db #01: dw x286C ;¢ë¡®à ®¯æ¨¨ 128 BASIC
|
||
db #02: dw x2885 ;¢ë¡®à ®¯æ¨¨ ª «ìªã«ïâ®à
|
||
db #03: dw x1B47 ;¢ë¡®à ®¯æ¨¨ 48 BASIC
|
||
db #04: dw x2831 ;¢ë¡®à ®¯æ¨¨ 48 TR-DOS (¢å®¤ ¢ Tr-Dos 48k)
|
||
|
||
;€„<E282AC>…‘: #2754 ⥪á⠮ᮢ®£® ¬¥î basic 128k
|
||
x2754 db #06 ;ª®«-¢® áâப
|
||
db "128 ",#FF
|
||
x275E dc "128 TR-DOS"
|
||
x2768 dc "128 BASIC"
|
||
x2771 dc "Calculator"
|
||
dc "48 BASIC"
|
||
x2783 dc "48 TR-DOS"
|
||
dc " " ;¯à¨§ ª ®ª®ç ¨ï
|
||
|
||
;€„<E282AC>…‘: #278D !!!NOT USED!!!
|
||
x278D db #20,#80,#A0
|
||
|
||
;€„<E282AC>…‘: #2790 ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ¬¥î ¢ । ªâ®à¥ basic 128
|
||
x2790 db #05 ;ª®«-¢® ®¯æ¨©
|
||
db #00: dw x2742 ;¢®§¢à â ª । ªâ¨à®¢ ¨î
|
||
db #01: dw x2851 ;¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
db #02: dw x2811 ;ᬥ ®¡« á⨠। ªâ¨à®¢ ¨ï ¨§/¢¥àå
|
||
db #03: dw x2862 ;¯¥ç âì ¯à®£à ¬¬ë ¯à¨â¥à¥
|
||
db #04: dw x281C ;¢ë室 ¨§ । ªâ®à
|
||
|
||
;€„<E282AC>…‘: #27A0 ⥪áâ ¬¥î ¢ । ªâ®à¥ basic 128
|
||
x27A0 db #06
|
||
db "Options ",#FF
|
||
dc "128 BASIC"
|
||
dc "Renumber"
|
||
dc "Screen"
|
||
dc "Print"
|
||
dc "Exit"
|
||
dc " " ;¯à¨§ ª ®ª®ç ¨ï
|
||
|
||
;€„<E282AC>…‘: #27CB ¤à¥á ¯à®æ¥¤ãà ®¡à ¡®âª¨ ®¯æ¨© ¬¥î ¢ ª «ìªã«ïâ®à¥
|
||
x27CB db #02
|
||
db #00: dw x2742 ;¢®§¢à â ª । ªâ¨à®¢ ¨î
|
||
db #01: dw x281C ;¢ë室 ¢ £« ¢®¥ ¬¥î
|
||
|
||
;€„<E282AC>…‘: #27D2 ⥪áâ ¬¥î ¢ ª «ìªã«ïâ®à¥
|
||
x27D2 db #03
|
||
db "Options ",#FF
|
||
dc "Calculator"
|
||
dc "Exit"
|
||
dc " " ;¯à¨§ ª ®ª®ç ¨ï
|
||
|
||
;€„<E282AC>…‘: #27EB !!!NOT USED!!!
|
||
x27EB db #16,#01,#00 ;AT 1,0
|
||
db #10,#00 ;ink 0
|
||
db #11,#07 ;paper 7
|
||
db #13,#00 ;bright 0
|
||
dc "To cancel - press BREAK twice"
|
||
|
||
;€„<E282AC>…‘: #2811 ᬥ ®¡« á⨠। ªâ¨à®¢ ¨ï ¨§/¢¥àå
|
||
x2811 call x269B ;ext+ss+8/Graph+Z ¯¥à¥ª«î票¥ ¬¥¦¤ã । ªâ¨à®¢ ¨¥¬ ¢¨§ã ¨ ¢¢¥àåã
|
||
jr x2874 ;
|
||
|
||
;€„<E282AC>…‘: #2816 ¢ë¡®à ®¯æ¨¨ 128 TR-DOS
|
||
x2816 call x3857 ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 TR-DOS
|
||
call x3BE9 ;§ ¯ã᪠ª®¬ ¤ë randomize 15619: rem: load "boot"
|
||
|
||
;€„<E282AC>…‘: #281‘ ¢ë室 ¨§ । ªâ®à /ª «ìªã«ïâ®à ¢ £« ¢®¥ ¬¥î
|
||
x281C ld hl,#EC0D
|
||
res 6,(hl)
|
||
call x28BE ;¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
ld b,#00
|
||
ld d,#17
|
||
call x3B5E ;®ç¨á⪠áâப íªà
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
jp x259F ;¯¥ç âì £« ¢®£® ¬¥î basic 128 ¨ ¢ë¡®à ®¯æ¨¨
|
||
|
||
;€„<E282AC>…‘: #2831 ¢ë¡®à ®¯æ¨¨ 48 TR-DOS (¢å®¤ ¢ Tr-Dos 48k)
|
||
x2831 call x3852 ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 48 TR-DOS
|
||
ld hl,#0000
|
||
push hl
|
||
ld hl,#3D30
|
||
jp x1B4A ;¢ª«î票¥ basic48, ¡«®ª¨à®¢ª #7FFD ¨ ¯¥à¥å®¤ ¤à¥á ¢ hl
|
||
|
||
;€„<E282AC>…‘: #283E !!!NOT USED!!!
|
||
x283E dec b
|
||
res 0,(hl)
|
||
set 6,(hl)
|
||
ld a,#07
|
||
ld (#EC0E),a
|
||
ld bc,#0000
|
||
call x372B
|
||
jp x1AF1
|
||
|
||
;€„<E282AC>…‘: #2851 ¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
x2851 call x3888 ;¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
call nc,x26E7 ;§¢ãª®¢®© ᨣ «
|
||
ld hl,#0000
|
||
ld (#5C49),hl
|
||
ld (#EC08),hl
|
||
jr x2865
|
||
|
||
;€„<E282AC>…‘: #2862 ¯¥ç âì ¯à®£à ¬¬ë ¯à¨â¥à¥
|
||
x2862 call x1B14 ;¯ãªâ ¬¥î । ªâ®à Print (¯¥ç âì ¯à¨â¥à)
|
||
x2865 ld hl,#EC0D
|
||
bit 6,(hl)
|
||
jr nz,x2874
|
||
|
||
;€„<E282AC>…‘: #286C ¢ë¡®à ®¯æ¨¨ 128 BASIC
|
||
x286C ld hl,#5C3C
|
||
res 0,(hl)
|
||
call x3848 ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 BASIC
|
||
x2874 ld hl,#EC0D
|
||
res 5,(hl)
|
||
res 4,(hl)
|
||
ld a,#00
|
||
ld hl,x2790
|
||
ld de,x27A0
|
||
jr x28B1
|
||
|
||
;€„<E282AC>…‘: #2885 ¢ë¡®à ®¯æ¨¨ ª «ìªã«ïâ®à
|
||
x2885 ld hl,#EC0D
|
||
set 5,(hl)
|
||
set 4,(hl)
|
||
res 6,(hl)
|
||
call x28BE ;¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
call x384D ;¯¥ç âì ¨ä®à¬ 樮®© áâப¨ Calculator
|
||
ld a,#04
|
||
ld (#EC0E),a
|
||
ld hl,#0000
|
||
ld (#5C49),hl
|
||
call x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
ld bc,#0000
|
||
ld a,b
|
||
call x29F8 ; ¯¥ç â âì ªãàá®à
|
||
ld a,#04
|
||
ld hl,x27CB
|
||
ld de,x27D2
|
||
x28B1 ld (#EC0E),a
|
||
ld (#F6EA),hl
|
||
ld (#F6EC),de
|
||
jp x2604
|
||
|
||
;€„<E282AC>…‘: #28BE ¨¨æ¨ «¨§ æ¨ï ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
x28BE call x2E1F ;á¡à®á ¢¥à奣® ®ª । ªâ¨à®¢ ¨ï
|
||
call x3A7F ;ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
jp x28E8 ;¨¨æ¨ «¨§ æ¨ï áâ஥ª ¢¥à奣® ®ª
|
||
|
||
;€„<E282AC>…‘: #28C7 ¢®§¢à â ¢ £« ¢®¥ ¬¥î
|
||
x28C7 ld b,#00
|
||
ld d,#17
|
||
call x3B5E ;®ç¨á⪠áâப íªà
|
||
jp x25AD
|
||
|
||
; áâனª¨ ¢¥à奣® ®ª
|
||
x28D1 db #06
|
||
db #00,#00,#00,#04,#10,#14
|
||
|
||
; áâனª¨ ¨¦¥£® ®ª
|
||
x28D8 db #06
|
||
db #00,#00,#00,#00,#01,#01
|
||
|
||
;€„<E282AC>…‘: #28DF ¨¨æ¨ «¨§ æ¨ï áâ஥ª ¨¦¥£® ®ª
|
||
x28DF ld hl,x28D8
|
||
ld de,#F6EE
|
||
jp x3FBA ;ª®¯¨à®¢ ¨¥ áâப¨ ¨§ hl ¢ de ¢ (hl+0) ª®«-¢® ¡ ©â
|
||
|
||
;€„<E282AC>…‘: #28E8 ¨¨æ¨ «¨§ æ¨ï áâ஥ª ¢¥à奣® ®ª
|
||
x28E8 ld hl,x28D1
|
||
ld de,#F6EE
|
||
jp x3FBA
|
||
|
||
;€„<E282AC>…‘: #28F1 ®¡à ¡®âª ¦ â¨ï ᨬ¢®«ì®© ª« ¢¨è¨
|
||
x28F1 ld hl,#EC0D
|
||
or a ;!!!‹ˆ˜<CB86>……!!!
|
||
or a ;!!!‹ˆ˜<CB86>……!!!
|
||
bit 0,(hl)
|
||
jp nz,x29F2
|
||
res 7,(hl)
|
||
set 3,(hl)
|
||
push hl
|
||
push af
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
pop af
|
||
push af
|
||
call x2E81 ;¢áâ ¢ª ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
ld a,b
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
pop hl
|
||
set 7,(hl)
|
||
jp nc,x29F2
|
||
ld a,b
|
||
jp c,x29F8
|
||
jp x29F2
|
||
|
||
;€„<E282AC>…‘: #291B ext+ss+K 㤠«¥¨¥ ᨬ¢®« á¯à ¢ ®â ªãàá®à
|
||
x291B ld hl,#EC0D
|
||
set 3,(hl)
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
scf
|
||
ld a,b
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #292B delete 㤠«¥¨¥ ᨬ¢®« á«¥¢ ®â ªãàá®à
|
||
x292B ld hl,#EC0D
|
||
res 0,(hl)
|
||
set 3,(hl)
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
ccf
|
||
jp c,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
scf
|
||
ld a,b
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2944 enter ¢¢®¤ áâப¨
|
||
x2944 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
push af
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push bc
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop bc
|
||
jr c,x295E
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld a,(hl)
|
||
cpl
|
||
and #09
|
||
jr z,x297A
|
||
x295E ld a,(#EC0D)
|
||
bit 3,a
|
||
jr z,x296A
|
||
call x2C8E ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr nc,x297F
|
||
x296A call x2C4C ;¯®¨áª ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
call x2ECE ;¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
ld b,#00
|
||
pop af
|
||
scf
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
x297A pop af
|
||
scf
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
x297F pop af
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2983 ext+N/Graph+W ¯¥à¥å®¤ ª ¯¥à¢®© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x2983 ld a,(#EC0E)
|
||
cp #04
|
||
ret z ;íâ® ª «ìªã«ïâ®à
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld hl,#0000
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
rst #28
|
||
dw Rom1.x1695 ;¯®«ãç¨âì ¤à¥á ¯¥à¢®© áâப¨ ¯à®£à ¬¬ë
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld (#5C49),de
|
||
ld a,#0F
|
||
call x3A96 ;á®åà ¨âì âਡãâë ªãàá®à
|
||
call x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
scf
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #29AB ext+T/Graph+V ¯¥à¥å®¤ ª ¯®á«¥¤¥© áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x29AB ld a,(#EC0E)
|
||
cp #04
|
||
ret z ;íâ® ª «ìªã«ïâ®à
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld hl,#270F ;9999
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
ex de,hl
|
||
rst #28
|
||
dw Rom1.x1695 ;¯®«ãç¨âì ¤à¥á ¯¥à¢®© áâப¨ ¯à®£à ¬¬ë
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld (#5C49),de
|
||
ld a,#0F
|
||
call x3A96 ;á®åà ¨âì âਡãâë ªãàá®à
|
||
call x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
scf
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #29D4 ext+I ¯¥à¥å®¤ ª ç «ã ⥪ã饣® á«®¢
|
||
x29D4 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2BEA ;¯®¨áª ç « á«®¢ á«¥¢ ®â ªãàá®à
|
||
jp nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,b
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #29E1 ext+shift+J ¯¥à¥å®¤ ª ç «ã á«¥¤ãî饣® á«®¢
|
||
x29E1 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2C09 ;¯®¨áª ç « á«®¢ á¯à ¢ ®â ªãàá®à
|
||
jr nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,b
|
||
jr x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #29EC 㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
x29EC call x2A07 ;¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
jp x364F ;¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
|
||
;€„<E282AC>…‘: #29F2 ¯¥ç â âì ªãàá®à
|
||
x29F2 call x2A07 ;¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
jp x3640 ;¯¥ç âì âਡã⮢ ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #29F8 ¯¥ç â âì ªãàá®à
|
||
x29F8 call x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
push af
|
||
push bc
|
||
ld a,#0F ;paper 1, ink 7
|
||
call x3A96 ;á®åà ¨âì âਡãâë ªãàá®à
|
||
pop bc
|
||
pop af
|
||
jp x3640 ;¯¥ç âì âਡã⮢ ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2A07 ¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
;¢ëå: c - ®¬¥à áâப¨
|
||
; b - ®¬¥à á⮫¡æ
|
||
; a - ¯à¥¤¯®çâ¨â¥«ìë© ®¬¥à á⮫¡æ
|
||
x2A07 ld hl,#F6EE
|
||
ld c,(hl)
|
||
inc hl
|
||
ld b,(hl)
|
||
inc hl
|
||
ld a,(hl)
|
||
inc hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2A11 á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
x2A11 ld hl,#F6EE
|
||
ld (hl),c
|
||
inc hl
|
||
ld (hl),b
|
||
inc hl
|
||
ld (hl),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2A1A ¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2A1A push hl
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld h,#00
|
||
ld l,b
|
||
add hl,de
|
||
ld a,(hl)
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2A25 ss+I ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2A25 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld e,a
|
||
ld d,#0A
|
||
x2A2B push de
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
jr nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,e
|
||
call x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
ld b,e
|
||
call x2AF9 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
jr nc,x2A42
|
||
dec d
|
||
jr nz,x2A2B
|
||
ld a,e
|
||
jr c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
x2A42 push de
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
ld b,e
|
||
call x2AF9 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
ld a,e
|
||
or a
|
||
jr x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2A4F ext+P ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå 10 áâப ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2A4F call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld e,a
|
||
ld d,#0A
|
||
x2A55 push de
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
jr nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,e
|
||
call x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
ld b,e
|
||
call x2B02 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
jr nc,x2A6D
|
||
dec d
|
||
jr nz,x2A55
|
||
ld a,e
|
||
jp c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
x2A6D push af
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld b,#00
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
pop af
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2A7A ext+M/graph+X ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢ ª®¥æ áâப¨ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2A7A call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2C4C ;¯®¨áª ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
jp nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,b
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2A87 ext+ss+2/Graph+Y ¯¥à¥å®¤ ª ç «ã áâப¨ । ªâ¨à®¢ ¨ï
|
||
x2A87 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2C31 ;¯®¨áª ç « áâப¨ । ªâ¨à®¢ ¨ï ¢ ¡ãä¥à¥
|
||
jp nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld a,b
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2A94 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2A94 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld e,a
|
||
push de
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
jp nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld b,e
|
||
call x2B02 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
ld a,e
|
||
jp c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
push af
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld b,#00
|
||
call x2AF9 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
pop af
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2AB5 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¨§ ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2AB5 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld e,a
|
||
push de
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
jp nc,x29F2 ; ¯¥ç â âì ªãàá®à
|
||
ld b,e
|
||
call x2B02 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
ld a,e
|
||
jp c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
push de
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
ld b,e
|
||
call x2AF9 ; ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
ld a,e
|
||
or a
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2AD7 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢«¥¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2AD7 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jp c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
jp x29F2 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2AE3 ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¯à ¢® ¢ ¯®«¥ । ªâ¨à®¢ ¨ï
|
||
x2AE3 call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jp c,x29F8 ; ¯¥ç â âì ªãàá®à
|
||
push af
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld b,#1F
|
||
call x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop af
|
||
jp x29F8 ; ¯¥ç â âì ªãàá®à
|
||
|
||
;€„<E282AC>…‘: #2AF9 ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
x2AF9 push de
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
call nc,x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2B02 ©â¨ ¢ áâப¥ ¡«¨¦ ©èãî । ªâ¨à㥬ãî ¯®§¨æ¨î
|
||
x2B02 push de
|
||
call x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
call nc,x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2B0B ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨
|
||
; ¢ ¡ãä¥à¥ ¢¨§ ¨ ®¡®¢¨âì íªà
|
||
x2B0B call x2C7C ;¢áâ ¢¨âì áâப㠢 ¡¥©á¨ª ¯à®£à ¬¬ã, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
jr nc,x2B2F
|
||
push bc
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
call nc,x2F80 ;ᤨ¢£ áâப ¢¢¥àå ¢ ¡ãä¥à¥ ¯à¨ 㤠«¥¨¨ áâப¨
|
||
pop bc
|
||
ld hl,#F6F1
|
||
ld a,(hl)
|
||
cp c
|
||
jr c,x2B2D
|
||
push bc
|
||
call x166F ;ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
pop bc
|
||
ret c
|
||
ld a,c
|
||
or a
|
||
ret z
|
||
x2B2D dec c
|
||
scf
|
||
x2B2F ret
|
||
|
||
;€„<E282AC>…‘: #2B30 ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨
|
||
; ¢ ¡ãä¥à¥ ¢¢¥àå ¨ ®¡®¢¨âì íªà
|
||
x2B30 push bc
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop bc
|
||
jr c,x2B3F ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
jp x2F80
|
||
x2B3F call x2C68 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
jr nc,x2B5A
|
||
ld hl,#F6F1
|
||
inc hl
|
||
ld a,c
|
||
cp (hl)
|
||
jr c,x2B58
|
||
push bc
|
||
push hl
|
||
call x1639 ;ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¥àå ¨ ®¡®¢«¥¨¥ íªà
|
||
pop hl
|
||
pop bc
|
||
ret c
|
||
inc hl
|
||
ld a,(hl)
|
||
cp c
|
||
ret z
|
||
x2B58 inc c
|
||
scf
|
||
x2B5A ret
|
||
|
||
;€„<E282AC>…‘: #2B5B ¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
x2B5B ld d,a
|
||
dec b
|
||
jp m,x2B66
|
||
ld e,b
|
||
call x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
ld a,e
|
||
ret c
|
||
x2B66 push de
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨ ¢ ¡ãä¥à¥ ¢¨§ ¨ ®¡®¢¨âì í¥ªà
|
||
pop de
|
||
ld a,e
|
||
ret nc
|
||
ld b,#1F
|
||
call x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
ld a,b
|
||
ret c
|
||
ld a,d
|
||
ld b,#00
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2B78 ¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
;¢å: b - ®¬¥à á⮫¡æ
|
||
; c - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 á¯à ¢ ¥áâì ᨬ¢®«
|
||
; b - ®¬¥à á⮫¡æ á ᨬ¢®«®¬
|
||
; a - ®¢ë© ®¬¥à á⮫¡æ
|
||
; hl - ¤à¥á ®®¢£® । ªâ¨à㥬®£® ᨬ¢®«
|
||
x2B78 ld d,a
|
||
inc b
|
||
ld a,#1F
|
||
cp b
|
||
jr c,x2B85
|
||
ld e,b
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
ld a,e
|
||
ret c
|
||
;¯¥à¥å®¤ ª á«¥¤ãî饩 áâப¥
|
||
x2B85 dec b
|
||
push bc
|
||
push hl
|
||
ld hl,#EC0D
|
||
bit 7,(hl)
|
||
jr nz,x2BC0 ;ª« ¢¨è ¥ ¦ â
|
||
; ¦ â ª« ¢¨è . ¢áâ ¢¨¬ ®¢ãî áâபã
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld a,(hl)
|
||
bit 1,a
|
||
jr nz,x2BC0
|
||
set 1,(hl)
|
||
res 3,(hl)
|
||
ld hl,#0023
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
pop bc
|
||
push af
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨ ¢ ¡ãä¥à¥ ¢¢¥àå ¨ ®¡®¢¨âì í¥ªà
|
||
pop af
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0023
|
||
add hl,de
|
||
ex de,hl
|
||
res 0,a
|
||
set 3,a
|
||
call x2ED3 ;¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
call x35F4 ;ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld a,b
|
||
scf
|
||
ret
|
||
x2BC0 pop hl
|
||
pop bc
|
||
push de
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ âॡã¥âáï ᤢ¨ãâì áâப¨ ¢ ¡ãä¥à¥ ¢¢¥àå ¨ ®¡®¢¨âì í¥ªà
|
||
pop de
|
||
ld a,b
|
||
ret nc
|
||
ld b,#00
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
ld a,b
|
||
ret c
|
||
ld a,e
|
||
ld b,#00
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2BD4 ¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
;¢å: b - ®¬¥à á⮫¡æ
|
||
; c - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 á¯à ¢ ¥áâì ᨬ¢®«
|
||
; b - ®¬¥à á⮫¡æ á ᨬ¢®«®¬
|
||
x2BD4 push de
|
||
push hl
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
jp x2C65
|
||
|
||
;€„<E282AC>…‘: #2BDF ¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
x2BDF push de
|
||
push hl
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x2E63 ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
jp x2C65
|
||
|
||
;€„<E282AC>…‘: #2BEA ¯®¨áª ç « á«®¢ á«¥¢ ®â ªãàá®à
|
||
x2BEA push de
|
||
push hl
|
||
x2BEC call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jr nc,x2C07
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
jr z,x2BEC
|
||
x2BF8 call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jr nc,x2C07
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
jr nz,x2BF8
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
x2C07 jr x2C65
|
||
|
||
;€„<E282AC>…‘: #2C09 ¯®¨áª ç « á«®¢ á¯à ¢ ®â ªãàá®à
|
||
x2C09 push de
|
||
push hl
|
||
x2C0B call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jr nc,x2C2B
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
jr nz,x2C0B
|
||
x2C17 call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jr nc,x2C2B
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
jr nc,x2C2B
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
jr z,x2C17
|
||
scf
|
||
jr x2C65
|
||
x2C2B call nc,x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
or a
|
||
jr x2C65
|
||
|
||
;€„<E282AC>…‘: #2C31 ¯®¨áª ç « áâப¨ । ªâ¨à®¢ ¨ï ¢ ¡ãä¥à¥
|
||
x2C31 push de
|
||
push hl
|
||
x2C33 call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
jr nz,x2C45
|
||
call x2B0B ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr c,x2C33
|
||
jr x2C65
|
||
x2C45 ld b,#00
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
jr x2C65
|
||
|
||
;€„<E282AC>…‘: #2C4C ¯®¨áª ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2C4C push de
|
||
push hl
|
||
x2C4E call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 3,(hl)
|
||
jr nz,x2C60
|
||
call x2B30 ;¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr c,x2C4E
|
||
jr x2C65
|
||
x2C60 ld b,#1F
|
||
call x2BDF ;¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
x2C65 pop hl
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2C68 ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: cy=0 áâப ¢áâ ¢«¥
|
||
x2C68 ld a,(#EC0D)
|
||
bit 3,a
|
||
scf
|
||
ret z ;¨§¬¥¥¨© ¥ ¡ë«®
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 3,(hl)
|
||
scf
|
||
ret z
|
||
jr x2C8E
|
||
|
||
;€„<E282AC>…‘: #2C7C ¢áâ ¢¨âì áâப㠢 ¡¥©á¨ª ¯à®£à ¬¬ã, ¥á«¨ ¡ë«¨ ¨§¬¥¥¨ï
|
||
x2C7C ld a,(#EC0D)
|
||
bit 3,a
|
||
scf
|
||
ret z
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
scf
|
||
ret z
|
||
|
||
;€„<E282AC>…‘: #2C8E ¢áâ ¢¨âì áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: cy=0 á¨â ªá¨ç¥áª ï ®è¨¡ª
|
||
; cy=1 áâப ¢áâ ¢«¥
|
||
; bc - ª®®à¤¨ âë ªãàá®à
|
||
; a - ®¬¥à á⮫¡æ
|
||
x2C8E ld a,#02
|
||
x2C90 call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
jr nz,x2CA3 ;íâ® ¯¥à¢ ï áâப
|
||
dec c
|
||
jp p,x2C90
|
||
ld c,#00
|
||
ld a,#01
|
||
x2CA3 ld hl,#EC00
|
||
ld de,#EC03
|
||
or #80
|
||
ld (hl),a
|
||
ld (de),a
|
||
inc hl
|
||
inc de
|
||
ld a,#00 ;!!!¬®¦® § ¯¨á âì xor a
|
||
ld (hl),a
|
||
ld (de),a
|
||
inc hl
|
||
inc de
|
||
ld a,c
|
||
ld (hl),a
|
||
ld (de),a
|
||
ld hl,#0000
|
||
ld (#EC06),hl
|
||
call x335F ;ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
call x3C67 ;⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
push ix
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
call x026B ;¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
pop ix
|
||
ld a,(#5C3A)
|
||
inc a
|
||
jr nz,x2CEF ;¥áâì ®è¨¡ª
|
||
ld hl,#EC0D
|
||
res 3,(hl)
|
||
call x365E ;ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
ld a,(#EC0E)
|
||
cp #04
|
||
call nz,x152F ;¯¥ç âì ¡¥©á¨ª ¯à®£à ¬¬ë ®â ⥪ã饩 áâப¨
|
||
call x26FA ;§¢ãª®¢®© ᨣ «
|
||
call x2A07 ;¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
scf
|
||
ret
|
||
x2CEF ld hl,#EC00
|
||
ld de,#EC03
|
||
ld a,(de)
|
||
res 7,a
|
||
ld (hl),a
|
||
inc hl
|
||
inc de
|
||
ld a,(de)
|
||
ld (hl),a
|
||
inc hl
|
||
inc de
|
||
ld a,(de)
|
||
ld (hl),a
|
||
call x3C63 ;⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë á á¨â ªá¨ç¥áª®© ®è¨¡ª®©
|
||
jr c,x2D0A
|
||
ld bc,(#EC06)
|
||
x2D0A ld hl,(#EC06)
|
||
or a
|
||
sbc hl,bc
|
||
push af
|
||
push hl
|
||
call x2A07 ;¯®«ã票¥ ¯®§¨æ¨¨ ªãàá®à
|
||
pop hl
|
||
pop af
|
||
jr c,x2D2A
|
||
jr z,x2D45
|
||
x2D1B push hl
|
||
ld a,b
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
pop hl
|
||
jr nc,x2D45
|
||
dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x2D1B
|
||
jr x2D45
|
||
x2D2A push hl
|
||
ld hl,#EC0D
|
||
res 7,(hl)
|
||
pop hl
|
||
ex de,hl
|
||
ld hl,#0000
|
||
or a
|
||
sbc hl,de
|
||
x2D38 push hl
|
||
ld a,b
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
pop hl
|
||
jr nc,x2D45
|
||
dec hl
|
||
ld a,h
|
||
or l
|
||
jr nz,x2D38
|
||
x2D45 ld hl,#EC0D
|
||
set 7,(hl)
|
||
call x2A11 ;á®åà ¨âì ¯®§¨æ¨î ªãàá®à
|
||
ld a,#17 ;paper 2, ink 7
|
||
call x3A96 ;á®åà ¨âì âਡãâë ªãàá®à
|
||
or a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2D54 ¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢ëå: a - ª®¤ ᨬ¢®«
|
||
x2D54 ld hl,#EC00
|
||
bit 7,(hl)
|
||
jr z,x2D62
|
||
ld hl,(#EC06) ;㢥«¨ç¨¬ ª®«¨ç¥á⢮ । ªâ¨à㥬ëå ᨬ¢®«®¢ ¢ áâப¥
|
||
inc hl
|
||
ld (#EC06),hl
|
||
x2D62 ld hl,#EC00
|
||
ld a,(hl) ;ä« £¨
|
||
inc hl
|
||
ld b,(hl) ;á⮫¡¥æ
|
||
inc hl
|
||
ld c,(hl) ;áâப
|
||
push hl
|
||
and #0F
|
||
ld hl,x2D85 ;â ¡«¨æ ¤à¥á®¢ ¯à®æ¥¤ãà
|
||
call x3FCE ;®¡à ¡®âª ã¯à ¢«ïî饣® ª®¤
|
||
ld e,l
|
||
pop hl
|
||
jr z,x2D79
|
||
ld a,#0D
|
||
x2D79 ld (hl),c
|
||
dec hl
|
||
ld (hl),b
|
||
dec hl
|
||
push af
|
||
ld a,(hl)
|
||
and #F0
|
||
or e
|
||
ld (hl),a
|
||
pop af
|
||
ret
|
||
;â ¡«¨æ ¤à¥á®¢ ¯à®æ¥¤ãà
|
||
x2D85 db #03 ;à §¬¥à â ¡«¨æë
|
||
db #02: dw x2DAC
|
||
db #04: dw x2DE9
|
||
db #01: dw x2D8F
|
||
|
||
;€„<E282AC>…‘: #2D8F ¯®«ãç¨âì ᨬ¢®« ¨§ ⥪ã饩 ¯®§¨æ¨¨ ªãàá®à ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: l=#01 -> a - ª®¤ ᨬ¢®« ¨§ ¢¥à奣® ¡ãä¥à
|
||
; =#02 -> a - ª®¤ ᨬ¢®« ¨§ ¡ãä¥à
|
||
; =#04 -> a - ª®¤ ᨬ¢®« ¨§ ¨¦¥£® ¡ãä¥à
|
||
; =#08 -> a - =#0D ª®¥æ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
x2D8F call x32B7 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2D92 call x2E0E ;¯®«ãç¨âì ᨬ¢®« ¨§ áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr nc,x2D9E ;¢¥ ¯à¥¤¥«®¢ áâப¨
|
||
cp #00
|
||
jr z,x2D92 ;¥â ᨬ¢®«
|
||
ld l,#01
|
||
ret
|
||
x2D9E inc c ;á«¥¤ãîé ï áâப
|
||
ld b,#00
|
||
ld hl,(#F9DB) ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì ld hl,#F9DB
|
||
ld a,c
|
||
cp (hl)
|
||
jr c,x2D8F
|
||
ld b,#00
|
||
ld c,#00
|
||
; ®â®¡à ¦ ¥¬®© áâà®çª¥ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x2DAC push hl
|
||
ld hl,#F6EE
|
||
ld a,(hl)
|
||
cp c
|
||
jr nz,x2DBE
|
||
inc hl
|
||
ld a,(hl)
|
||
cp b
|
||
jr nz,x2DBE
|
||
ld hl,#EC00
|
||
res 7,(hl)
|
||
x2DBE pop hl
|
||
x2DBF call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x2E0E ;¯®«ãç¨âì ᨬ¢®« ¨§ áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr nc,x2DCE ;¢¥ ¯à¥¤¥«®¢ áâப¨
|
||
cp #00
|
||
jr z,x2DAC
|
||
ld l,#02
|
||
ret
|
||
x2DCE ld hl,#0020
|
||
add hl,de
|
||
bit 3,(hl)
|
||
jr z,x2DDB
|
||
ld l,#08
|
||
ld a,#0D
|
||
ret
|
||
x2DDB ld hl,#F6F3
|
||
inc c
|
||
ld a,(hl)
|
||
cp c
|
||
ld b,#00
|
||
jr nc,x2DBF
|
||
ld b,#00
|
||
ld c,#01
|
||
;¨á¯®«ì§ã¥âáï ¨¦¨© íªà
|
||
x2DE9 call x31C3 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2DEC call x2E0E ;¯®«ãç¨âì ᨬ¢®« ¨§ áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr nc,x2DF8 ;¢¥ ¯à¥¤¥«®¢ áâப¨
|
||
cp #00
|
||
jr z,x2DEC
|
||
ld l,#04
|
||
ret
|
||
x2DF8 ld hl,#0020
|
||
add hl,de
|
||
bit 3,(hl)
|
||
jr nz,x2E09
|
||
inc c
|
||
ld b,#00
|
||
ld a,(#F6F5)
|
||
cp c
|
||
jr nc,x2DE9
|
||
x2E09 ld l,#08
|
||
ld a,#0D
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2E0E ¯®«ãç¨âì ᨬ¢®« ¨§ áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: b - ®¬¥à á⮫¡æ
|
||
; de - ¤à¥á ç « áâப¨
|
||
;¢ëå: cy=1 ᨬ¢®« ¯®«ãç¥ -> a - ª®¤ ᨬ¢®«
|
||
x2E0E ld a,#1F
|
||
cp b
|
||
ccf
|
||
ret nc
|
||
ld l,b
|
||
ld h,#00
|
||
add hl,de
|
||
ld a,(hl)
|
||
inc b
|
||
scf
|
||
ret
|
||
|
||
; áâனª¨ ¢¥à奣® ®ª । ªâ¨à®¢ ¨ï
|
||
x2E1B db #01 ;ª®«¨ç¥á⢮ ¡ ©â
|
||
db #14 ;ª®«¨ç¥á⢮ । ªâ¨à㥬ëå áâப
|
||
|
||
; áâனª¨ ¨¦¥£® ®ª । ªâ¨à®¢ ¨ï
|
||
x2E1D db #01 ;ª®«¨ç¥á⢮ ¡ ©â
|
||
db #01 ;ª®«¨ç¥á⢮ । ªâ¨à㥬ëå áâப
|
||
|
||
;€„<E282AC>…‘: #2E1F á¡à®á ¢¥à奣® ®ª । ªâ¨à®¢ ¨ï
|
||
x2E1F ld hl,#5C3C
|
||
res 0,(hl) ;¢ë¢®¤ ®á®¢®© íªà
|
||
ld hl,x2E1B
|
||
ld de,#EC15
|
||
jp x3FBA ;ª®¯¨à®¢ ¨¥ áâப¨ ¨§ hl ¢ de ¢ (hl+0) ª®«-¢® ¡ ©â
|
||
|
||
;€„<E282AC>…‘: #2E2D á¡à®á ¨¦¥£® ®ª । ªâ¨à®¢ ¨ï
|
||
x2E2D ld hl,#5C3C
|
||
set 0,(hl)
|
||
ld bc,#0000
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
ld hl,x2E1D
|
||
ld de,#EC15
|
||
jp x3FBA ;ª®¯¨à®¢ ¨¥ áâப¨ ¨§ hl ¢ de ¢ (hl+0) ª®«-¢® ¡ ©â
|
||
|
||
;€„<E282AC>…‘: #2E41 ¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
;¢å: b - ®¬¥à á⮫¡æ , á ª®â®à®£® á«¥¤ã¥â ç âì ¯®¨áª
|
||
; de - ç «® áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: cy=1 ᨬ¢®« ©¤¥
|
||
; hl - ¤à¥á । ªâ¨à㥬®© ¯®§¨æ¨¨
|
||
; b - ®¬¥à á⮫¡æ
|
||
x2E41 ld h,#00 ;!!!¬®¦® ᮪à â¨âì!!! call x2E7B
|
||
ld l,b
|
||
add hl,de
|
||
ld a,(hl)
|
||
cp #00
|
||
scf
|
||
ret nz
|
||
ld a,b
|
||
or a
|
||
jr z,x2E5B
|
||
push hl
|
||
dec hl
|
||
ld a,(hl)
|
||
cp #00
|
||
scf
|
||
pop hl
|
||
ret nz
|
||
x2E56 ld a,(hl)
|
||
cp #00
|
||
scf
|
||
ret nz
|
||
x2E5B inc hl
|
||
inc b
|
||
ld a,b
|
||
cp #1F
|
||
jr c,x2E56
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2E63 ¯®¨áª ¢ áâப¥ ¢«¥¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
;¢å: b - ®¬¥à á⮫¡æ , á ª®â®à®£® á«¥¤ã¥â ç âì ¯®¨áª
|
||
; de - ç «® áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: cy=1 ᨬ¢®« ©¤¥
|
||
; hl - ¤à¥á । ªâ¨à㥬®© ¯®§¨æ¨¨
|
||
; b - ®¬¥à á⮫¡æ
|
||
x2E63 ld h,#00 ;!!!¬®¦® ᮪à â¨âì!!! call x2E7B
|
||
ld l,b
|
||
add hl,de
|
||
ld a,(hl)
|
||
cp #00
|
||
scf
|
||
ret nz
|
||
x2E6C ld a,(hl)
|
||
cp #00
|
||
jr nz,x2E78
|
||
ld a,b
|
||
or a
|
||
ret z
|
||
dec hl
|
||
dec b
|
||
jr x2E6C
|
||
x2E78 inc b
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2E7B ç⥨¥ ᨬ¢®« ¨§ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: b - ®¬¥à á⮫¡æ
|
||
; de - ç «® áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: a - ᨬ¢®« ¯® § ¤ ®¬ã ¤à¥áã
|
||
x2E7B ld h,#00
|
||
ld l,b
|
||
add hl,de
|
||
ld a,(hl)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2E81 ¢áâ ¢ª ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: a - ª®¤ ᨬ¢®«
|
||
; bc - ª®®à¤¨ âë ªãàá®à
|
||
x2E81 ld hl,#EC0D
|
||
or a ;!!!‹ˆ˜<CB86>……!!!
|
||
bit 0,(hl)
|
||
ret nz ;¡ãä¥à áâப¨ ¯¥à¥¯®«¥
|
||
push bc
|
||
push af
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
x2E8E call x16AC ;¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï
|
||
push af
|
||
ex de,hl
|
||
call x3604 ;¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à
|
||
ex de,hl
|
||
pop af
|
||
ccf
|
||
jr z,x2ECC ;¡ãä¥à ¡¥«ìè¥ ¥ ¤® à §¤¢¨£ âì
|
||
push af
|
||
ld b,#00
|
||
inc c
|
||
ld a,(#EC15)
|
||
cp c
|
||
jr c,x2EC8
|
||
ld a,(hl)
|
||
ld e,a
|
||
and #D7
|
||
cp (hl)
|
||
ld (hl),a
|
||
ld a,e
|
||
set 1,(hl)
|
||
push af
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
jr z,x2EC2
|
||
res 0,a
|
||
call x2ED3 ;¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr nc,x2ECC ;¡ãä¥à ¯¥à¥¯®«¥
|
||
call x35F4 ;ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
jr x2E8E
|
||
x2EC2 call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop af
|
||
jr x2E8E
|
||
x2EC8 pop af
|
||
call x316E ;¢áâ ¢ª ᨬ¢®« ¢ ¨¦¨© ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
x2ECC pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2ECE ¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
x2ECE call x30B4
|
||
ld a,#09
|
||
|
||
;€„<E282AC>…‘: #2ED3 ¢áâ ¢ª ¯ãá⮩ áâப¨ ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: de - ¤à¥á áâப¨ ¢ ¡¥ä¥à¥ । ªâ¨à®¢ ¨ï
|
||
; a - ä« £¨
|
||
; c - ®¬¥à áâப¨ ¤«ï ¢áâ ¢ª¨
|
||
x2ED3 push bc
|
||
push de
|
||
ld b,c
|
||
ld hl,x2EEF ;¯ãáâ ï áâப
|
||
ld c,a
|
||
push bc
|
||
call x1675 ;ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ á ®¡®¢«¥¨¥¬ íªà
|
||
pop bc
|
||
ld a,c
|
||
jr nc,x2EEC ;¡ãä¥à ¯¥à¥¯®«¥
|
||
ld c,b
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld (hl),a
|
||
scf
|
||
x2EEC pop de
|
||
pop bc
|
||
ret
|
||
x2EEF ds #20,#00
|
||
db #09: dw #0000
|
||
|
||
;€„<E282AC>…‘: #2F12 㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2F12 push bc
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push bc
|
||
x2F17 ld hl,#0020
|
||
add hl,de
|
||
bit 1,(hl)
|
||
ld a,#00
|
||
jr z,x2F31
|
||
inc c
|
||
ld hl,#0023
|
||
add hl,de
|
||
ex de,hl
|
||
ld a,(#EC15)
|
||
cp c
|
||
jr nc,x2F17
|
||
dec c
|
||
call x31C9 ;㤠«¥¨¥ ᨬ¢®« ¢ ¨¦¥¬ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2F31 pop hl
|
||
x2F32 push hl
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
ld b,a
|
||
ld a,c
|
||
cp l
|
||
ld a,b
|
||
push af
|
||
jr nz,x2F41
|
||
ld b,h
|
||
jr x2F4A
|
||
x2F41 push af
|
||
push hl
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop hl
|
||
pop af
|
||
x2F4A push hl
|
||
ld hl,#F6F4
|
||
set 0,(hl)
|
||
jr z,x2F54
|
||
res 0,(hl)
|
||
x2F54 call x16C1 ;¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï ᮠᤢ¨£®¬ ¢«¥¢®
|
||
push af
|
||
push bc
|
||
push de
|
||
ld hl,#F6F4
|
||
bit 0,(hl)
|
||
jr nz,x2F6F
|
||
ld b,#00
|
||
call x2BD4 ;¯®¨áª । ªâ¨à㥬®£® ᨬ¢®« ¢ áâப¥ á¯à ¢ ®â ªãàá®à
|
||
jr c,x2F6F
|
||
call x2F80 ;ᤨ¢£ áâப ¢¢¥àå ¢ ¡ãä¥à¥ ¯à¨ 㤠«¥¨¨ áâப¨
|
||
pop de
|
||
pop bc
|
||
jr x2F74
|
||
x2F6F pop hl
|
||
pop bc
|
||
call x3604 ;¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à , ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
x2F74 pop af
|
||
dec c
|
||
ld b,a
|
||
pop hl
|
||
pop af
|
||
ld a,b
|
||
jp nz,x2F32
|
||
scf
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #2F80 ᤨ¢£ áâப ¢¢¥àå ¢ ¡ãä¥à¥ ¯à¨ 㤠«¥¨¨ áâப¨
|
||
x2F80 ld hl,#0020
|
||
add hl,de
|
||
ld a,(hl)
|
||
bit 0,(hl)
|
||
jr nz,x2FB2
|
||
push af
|
||
push bc
|
||
ld a,c
|
||
or a
|
||
jr nz,x2FA4
|
||
push bc
|
||
ld hl,(#FC9A)
|
||
call x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld (#FC9A),hl
|
||
ld a,(#F9DB)
|
||
ld c,a
|
||
dec c
|
||
call x32B7 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop bc
|
||
jr x2FA8
|
||
x2FA4 dec c
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x2FA8 pop bc
|
||
pop af
|
||
ld hl,#0020
|
||
add hl,de
|
||
res 1,(hl)
|
||
or (hl)
|
||
ld (hl),a
|
||
x2FB2 ld b,c
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
call x30DF ;ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
jp x1648 ;ᤢ¨£ ¢á¥å áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¥àå ¨ ®¡®¢«¥¨¥ íªà
|
||
|
||
;€„<E282AC>…‘: #2FBC ext+E 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « ⥪ã饣® á«®¢
|
||
x2FBC call x3084 ;㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
x2FBF push hl
|
||
call x3095 ;¯à®¢¥àª «¨ç¨ï ¯à¥¤ë¤ã饣® ᨬ¢®« ¢ ¡ãä¥à¥
|
||
jr z,x2FF7
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
pop hl
|
||
jr nc,x2FF8
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push af
|
||
push hl
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
pop af
|
||
cp " "
|
||
jr z,x2FBF
|
||
x2FD9 push hl
|
||
call x3095 ;¯à®¢¥àª «¨ç¨ï ¯à¥¤ë¤ã饣® ᨬ¢®« ¢ ¡ãä¥à¥
|
||
jr z,x2FF7
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
pop hl
|
||
jr nc,x2FF8
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
jr z,x2FF3
|
||
push hl
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
jr x2FD9
|
||
x2FF3 push hl
|
||
call x2B78 ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á¯à ¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
x2FF7 pop hl
|
||
x2FF8 ld a,b
|
||
push af
|
||
push hl
|
||
ld hl,#EEF5
|
||
res 2,(hl)
|
||
ld a,(#EC15)
|
||
push bc
|
||
ld b,#00
|
||
ld c,a
|
||
cp a
|
||
call x1605 ;¯¥ç âì ¡ãä¥à । ªâ¨à®¢ ¨ï íªà ¥
|
||
pop bc
|
||
ld hl,#EC0D
|
||
set 3,(hl)
|
||
pop hl
|
||
call x29F8 ; ¯¥ç â âì ªãàá®à
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3017 ext+W 㤠«¥¨¥ ᨬ¢®«®¢ ®â ªãàá®à ¤® ç « á«¥¤ãî饣® á«®¢
|
||
x3017 call x3084 ;㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
x301A push hl
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
cp #00
|
||
scf
|
||
jr z,x2FF8
|
||
push af
|
||
push hl
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
pop af
|
||
cp " "
|
||
jr nz,x301A
|
||
x302F call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp " "
|
||
scf
|
||
jr nz,x2FF8
|
||
push hl
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
jr x302F
|
||
|
||
;€„<E282AC>…‘: #303E ext+K 㤠«¥¨¥ ᨬ¢®«®¢ ¤® « áâப¨
|
||
x303E call x3084 ;㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
x3041 push hl
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
jr nz,x3059
|
||
call x2B5B ;¯®¨áª । ªâ¨à㥬®© ¯®§¨æ¨¨ á«¥¢ ®â ªãàá®à ¢® ¢á¥¬ ¡ãä¥à¥
|
||
jr nc,x306D
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
jr x3041
|
||
push hl ;!!!¥ ¨á¯®«ì§ã¥âáï!!!
|
||
x3059 ld a,b
|
||
cp #00
|
||
jr z,x306D
|
||
dec b
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
inc b
|
||
cp #00
|
||
jr z,x306D
|
||
dec b
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
jr x3059
|
||
x306D pop hl
|
||
x306E scf
|
||
jp x2FF8
|
||
|
||
;€„<E282AC>…‘: #3072 ext+J 㤠«¥¨¥ ᨬ¢®«®¢ ¤® ª®æ áâப¨
|
||
x3072 call x3084 ;㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
x3075 call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
cp #00
|
||
scf
|
||
jr z,x306E
|
||
push hl
|
||
call x2F12 ;㤠«¥¨¥ ᨬ¢®« ¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
jr x3075
|
||
|
||
;€„<E282AC>…‘: #3084 㤠«¥¨¥ ªãàá®à ¨ § ¯à¥â ®¡®¢«¥¨¥ íªà
|
||
x3084 ld hl,#EC0D
|
||
res 0,(hl)
|
||
call x29EC ;㤠«¥¨¥ ªãàá®à , ¢®ááâ ®¢«¥¨¥ âਡã⮢
|
||
ld hl,#EEF5
|
||
set 2,(hl)
|
||
ld hl,#F6F1
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3095 ¯à®¢¥àª «¨ç¨ï ¯à¥¤ë¤ã饣® ᨬ¢®« ¢ ¡ãä¥à¥
|
||
x3095 call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld hl,#0020
|
||
add hl,de
|
||
bit 0,(hl)
|
||
jr z,x30AE
|
||
ld a,b
|
||
cp #00
|
||
jr z,x30B2
|
||
dec b
|
||
call x2A1A ;¯®«ã票¥ ⥪ã饣® ᨬ¢®« ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
inc b
|
||
cp #00
|
||
jr z,x30B2
|
||
x30AE ld a,#01
|
||
or a
|
||
ret
|
||
x30B2 xor a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #30B4 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: de - ¤à¥á ç « áâப¨
|
||
x30B4 ld hl,#EC16 ;¡ãä¥à । ªâ¨à㥬®© áâப¨
|
||
x30B7 push af
|
||
ld a,c
|
||
ld de,#0023
|
||
x30BC or a
|
||
jr z,x30C3
|
||
add hl,de
|
||
dec a
|
||
jr x30BC
|
||
x30C3 ex de,hl
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #30C6 !!!NOT USED!!!
|
||
x30C6 push de
|
||
call x30B4
|
||
ld h,#00
|
||
ld l,b
|
||
add hl,de
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #30D0 ¯ à ¬¥âàë ¤«ï ãáâ ®¢ª¨ ¡ãä¥à । ªâ¨à®¢ ¨ï áâப¨ ¢¨§ã íªà
|
||
x30D0 db #05
|
||
db #00
|
||
dw #0000
|
||
dw #F6F8
|
||
|
||
;€„<E282AC>…‘: #30D6 ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¨§ã íªà
|
||
x30D6 ld hl,x30D0
|
||
ld de,#F6F5
|
||
jp x3FBA
|
||
|
||
;€„<E282AC>…‘: #30DF ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¢¥àå
|
||
x30DF push bc
|
||
push de
|
||
ld hl,#F6F5 ;ª®«¢® áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push hl
|
||
ld a,(hl) ;ª®«-¢® áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
or a
|
||
jr nz,x3101
|
||
push hl
|
||
call x335F ;ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
ld hl,(#F9D7) ;®¬¥à áâப¨ ¢ । ªâ¨à㥬®© áâப¥ ¯à®£à ¬¬ë
|
||
call x3352 ;¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
jr nc,x30F8 ;áâப ¥ áãé¥áâ¢ã¥â
|
||
ld (#F9D7),hl ;á®åà ¨¬ ®¬¥à áâப¨
|
||
x30F8 ld b,h
|
||
ld c,l
|
||
pop hl
|
||
call x32D6 ;ª®¯¨à®¢ ¨¥ áâப¨ ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
dec a
|
||
jr x3116
|
||
x3101 ld hl,#EC0D ;ᤢ¨£ ¢á¥å áâப ¢¢¥àå
|
||
res 0,(hl)
|
||
ld hl,#F6F8
|
||
ld d,h
|
||
ld e,l
|
||
ld bc,#0023
|
||
add hl,bc
|
||
ld bc,#02BC
|
||
ldir
|
||
dec a
|
||
scf
|
||
x3116 pop de
|
||
ld (de),a
|
||
ld hl,#F6F8
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #311E ᤢ¨£ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¢¨§
|
||
;¢å: de - ¤à¥á ¯®á«¥¤¥© áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: cy=0 ¡ãä¥à ¯¥à¥¯®«¥
|
||
; a - ª®«¨ç¥á⢮ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
; hl - f¤à¥á ¯¥à¢®© áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x311E push bc
|
||
push de
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld a,(hl)
|
||
cpl
|
||
and #11
|
||
jr nz,x313F ;íâ® ¥ ¯¥à¢ ï áâப
|
||
push hl
|
||
push de
|
||
inc hl
|
||
ld d,(hl)
|
||
inc hl
|
||
ld e,(hl) ;de ®¬¥à áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
push de
|
||
call x335F ;ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
pop hl
|
||
call x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr nc,x313D ;áâப ¥ áãé¥áâ¢ã¥â
|
||
ld (#F9D7),hl
|
||
x313D pop de
|
||
pop hl
|
||
x313F bit 0,(hl)
|
||
ld hl,#F6F5
|
||
push hl
|
||
jr z,x314C ;íâ® ¥ ¯¥à¢ ï áâப ¢ ¡ãä¥à¥
|
||
ld a,#00
|
||
scf
|
||
jr x3116
|
||
x314C ld a,(hl)
|
||
cp #14
|
||
jr z,x3116 ;íâ® ª®¥æ ¡ãä¥à
|
||
ld bc,#0023
|
||
ld hl,#F6F8
|
||
ex de,hl
|
||
ldir
|
||
ld hl,#F9D6
|
||
ld d,h
|
||
ld e,l
|
||
ld bc,#0023
|
||
or a
|
||
sbc hl,bc
|
||
ld bc,#02BC
|
||
lddr
|
||
inc a
|
||
scf
|
||
jr x3116
|
||
|
||
;€„<E282AC>…‘: #316E ¢áâ ¢ª ᨬ¢®« ¢ ¨¦¨© ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: hl - ¤à¥á ä« £ ⥪ã饩 áâப¨
|
||
; a - ª®¤ ᨬ¢®« ¤«ï ¢áâ ¢ª¨ ¢ ¡ãä¥à
|
||
x316E push bc
|
||
push de
|
||
push af
|
||
ld b,#00
|
||
ld c,#01
|
||
push hl
|
||
call x31C3 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop hl
|
||
bit 3,(hl)
|
||
res 3,(hl)
|
||
jr nz,x31A0
|
||
x3180 call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop af
|
||
x3184 call x16AC ;¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr z,x31BA
|
||
push af
|
||
ld b,#00
|
||
inc c
|
||
ld a,c
|
||
cp #15
|
||
jr c,x31A0
|
||
dec hl
|
||
ld a,(hl)
|
||
inc hl
|
||
cp #00
|
||
jr z,x31A0
|
||
push hl
|
||
ld hl,#EC0D
|
||
set 0,(hl) ;¡ãä¥à § ¯®«¥
|
||
pop hl
|
||
x31A0 bit 1,(hl)
|
||
set 1,(hl)
|
||
res 3,(hl)
|
||
call x31C3 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
jr nz,x3180
|
||
push bc
|
||
push de
|
||
call x35E6 ;§ ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld (hl),#08
|
||
pop de
|
||
pop bc
|
||
call x35F4 ;ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
jr x3184
|
||
x31BA ld a,c
|
||
ld (#F6F5),a
|
||
set 3,(hl)
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #31C3 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: de - ¤à¥á ç « áâப¨
|
||
x31C3 ld hl,#F6F8
|
||
jp x30B7
|
||
|
||
;€„<E282AC>…‘: #31C9 㤠«¥¨¥ ᨬ¢®« ¢ ¨¦¥¬ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x31C9 push bc
|
||
push de
|
||
ld hl,#EC0D
|
||
res 0,(hl)
|
||
ld a,(#F6F5)
|
||
ld c,a
|
||
or a
|
||
ld a,#00
|
||
jr z,x321B
|
||
x31D9 call x31C3 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push af
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
jr nc,x31F2
|
||
pop af
|
||
call x16C1 ;¢áâ ¢ª ᨬ¢®« ¢ áâப㠡ãä¥à । ªâ¨à®¢ ¨ï ᮠᤢ¨£®¬ ¢«¥¢®
|
||
push af
|
||
push bc
|
||
ld b,#00
|
||
call x2E41 ;¯®¨áª ¢ áâப¥ ¢¯à ¢® ®â ªãàá®à । ªâ¨à㥬®£® ᨬ¢®«
|
||
pop bc
|
||
jr c,x3216
|
||
x31F2 inc hl
|
||
ld a,(hl)
|
||
push af
|
||
push bc
|
||
ld a,c
|
||
cp #01
|
||
jr nz,x3204
|
||
ld a,(#EC15)
|
||
ld c,a
|
||
call x30B4 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
jr x3208
|
||
x3204 dec c
|
||
call x31C3 ;à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x3208 pop bc
|
||
pop af
|
||
ld hl,#0020
|
||
add hl,de
|
||
res 1,(hl)
|
||
or (hl)
|
||
ld (hl),a
|
||
ld hl,#F6F5
|
||
dec (hl)
|
||
x3216 pop af
|
||
dec c
|
||
jr nz,x31D9
|
||
scf
|
||
x321B pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #321E ¯ à ¬¥âàë ¤«ï ãáâ ®¢ª¨ ¡ãä¥à । ªâ¨à®¢ ¨ï áâப¨ ¢¢¥àåã íªà
|
||
x321E db #03
|
||
db #00: dw #F9DE
|
||
|
||
;€„<E282AC>…‘: #3222 ãáâ ®¢ª ¡ãä¥à । ªâ¨à®¢ ¨ï ¢ ¢¥àåã íªà
|
||
x3222 ld hl,x321E
|
||
ld de,#F9DB
|
||
jp x3FBA
|
||
|
||
;€„<E282AC>…‘: #322B ¯¥à¥¬¥é¥¨¥ ªãàá®à ¢¢¥àå ¢ ¢¥à奬 ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x322B push bc
|
||
push de
|
||
ld hl,#F9DB
|
||
push hl
|
||
ld a,(hl)
|
||
or a
|
||
jr nz,x3253
|
||
push hl
|
||
call x335F ;ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
ld hl,(#FC9A)
|
||
call x334A ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr nc,x3244
|
||
ld (#FC9A),hl
|
||
x3244 ld b,h
|
||
ld c,l
|
||
pop hl
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
jr nc,x325D ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
call x32D6 ;ª®¯¨à®¢ ¨¥ áâப¨ ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
dec a
|
||
ex de,hl
|
||
jr x325D
|
||
x3253 ld hl,(#F9DC)
|
||
ld bc,#0023
|
||
sbc hl,bc
|
||
scf
|
||
dec a
|
||
x325D ex de,hl
|
||
pop hl
|
||
jr nc,x3262
|
||
ld (hl),a
|
||
x3262 inc hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
ex de,hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #326A ª®¯¨à®¢ ¨¥ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï ¢¢¥à§ã íªà
|
||
x326A push bc
|
||
push de
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld a,(hl)
|
||
cpl
|
||
and #11
|
||
jr nz,x3282
|
||
push de
|
||
push hl
|
||
inc hl
|
||
ld d,(hl)
|
||
inc hl
|
||
ld e,(hl)
|
||
ld (#FC9A),de
|
||
pop hl
|
||
pop de
|
||
x3282 bit 3,(hl)
|
||
ld hl,#F9DB
|
||
push hl
|
||
jr z,x32A0
|
||
push hl
|
||
call x335F ;ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
ld hl,(#FC9A)
|
||
call x3352 ;¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
ld (#FC9A),hl
|
||
pop hl
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
ld a,#00
|
||
scf
|
||
jr x325D
|
||
x32A0 ld a,(hl)
|
||
cp #14
|
||
jr z,x32B3
|
||
inc a
|
||
ld hl,(#F9DC)
|
||
ld bc,#0023
|
||
ex de,hl
|
||
ldir
|
||
ex de,hl
|
||
scf
|
||
jr x325D
|
||
x32B3 pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #32B7 à áç¥â ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: c - ®¬¥à áâப¨
|
||
;¢ëå: de - ¤à¥á ç « áâப¨
|
||
x32B7 ld hl,#F9DE
|
||
jp x30B7
|
||
|
||
;€„<E282AC>…‘: #32DB â ¡«¨æ ®¡à ¡®âª¨ ã¯à ¢«ïîé¨å ª®¤®¢ ¯à¨ । ªâ¨à®¢ ¨¨ áâப¨
|
||
x32BD db #08 ;¢á¥£® äãªæ¨©
|
||
db #0D: dw x35CC ;enter
|
||
db #01: dw x35DA ;null
|
||
db #12: dw x335A ;flash
|
||
db #13: dw x335A ;bright
|
||
db #14: dw x335A ;inverse
|
||
db #15: dw x335A ;over
|
||
db #10: dw x335A ;ink
|
||
db #11: dw x335A ;paper
|
||
|
||
;€„<E282AC>…‘: #32D6 ª®¯¨à®¢ ¨¥ áâப¨ ¯à®£à ¬¬ë ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: hl - ¤à¥á ä« £®¢ ¯à¥¤ë¤ã饩 áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
; bc - ®¬¥à । ªâ¨à㥬®© áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: a - ª®«¨ç¥á⢮ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
; hl - ¤à¥á ¯¥à¢®© áâப¨
|
||
; de - ¤à¥á ¯®á«¥¤¥© áâப¨
|
||
x32D6 ld d,h
|
||
ld e,l
|
||
inc de
|
||
inc de
|
||
inc de ; ¤à¥á । ªâ¨à㥬®© áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
push de
|
||
ld hl,#0020
|
||
add hl,de ; ¤à¥á ä« £®¢ । ªâ¨à㥬®© áâப¨
|
||
ld (hl),#01 ;¯¥à¢ ï áâப
|
||
inc hl
|
||
ld (hl),b
|
||
inc hl
|
||
ld (hl),c ;®¬¥à áâப¨
|
||
ld c,#01 ;áâப 1
|
||
ld b,#00 ;ª®«®ª 0
|
||
x32EA push bc
|
||
push de
|
||
ld a,(#EC0E)
|
||
cp #04 ;í⮠०¨¬ ª «ìªã«ïâ®à
|
||
call nz,x3517 ;¥â. ¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
pop de
|
||
pop bc
|
||
jr c,x3307 ;⮪¥ ¯à¥®¡à §®¢
|
||
ld a,c
|
||
cp #01
|
||
ld a,#0D
|
||
jr nz,x3307 ;íâ® ¥ 'enter'
|
||
ld a,b
|
||
or a
|
||
ld a,#01
|
||
jr z,x3307
|
||
ld a,#0D
|
||
x3307 ld hl,x32BD
|
||
call x3FCE ;®¡à ¡®âª ã¯à ¢«ïî饣® ª®¤
|
||
jr c,x332C ;ª®¤ ®¡à ¡®â
|
||
jr z,x32EA ;á«¥¤ãî騩 ᨬ¢®«
|
||
push af
|
||
ld a,#1F
|
||
cp b
|
||
jr nc,x3326
|
||
ld a,#12
|
||
call x3331 ;¯¥à¥®á ç á⨠áâப¨ á«¥¤ãîéãî áâபã
|
||
jr c,x3323
|
||
pop af
|
||
ld a,#0D
|
||
jr x3307
|
||
x3323 call x35F4 ;ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x3326 pop af
|
||
call x35C5 ;á®åà ¨âì ᨬ¢®« ¢ 㪠§ ®¬ á⮫¡æ¥ ⥪ã饩 áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr x32EA
|
||
x332C pop hl
|
||
ld a,c
|
||
ret z
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3331 ¯¥à¥®á ç á⨠áâப¨ á«¥¤ãîéãî áâபã
|
||
;¢å: de - ¤à¥á ç « áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï áâப¨
|
||
; b - ®¬¥à á⮫¡æ
|
||
; c - ®¬¥à áâப¨
|
||
; a - ®¢®¥ § 票¥ ¡ ©â ä« £
|
||
;¢ëå: cy=0 - ¨¦ïï áâப ¢ ¡ãä¥à¥
|
||
; hl - ¤à¥á ¡ ©â ä« £ ¤«ï ®¢®© áâப¨
|
||
x3331 push af
|
||
call x35E6 ;§ ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
pop af
|
||
xor (hl)
|
||
ld (hl),a
|
||
ld a,c
|
||
cp #14
|
||
ret nc
|
||
inc c
|
||
ld hl,#0023
|
||
add hl,de
|
||
ex de,hl
|
||
ld hl,#0020
|
||
add hl,de
|
||
ld (hl),#00
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #334A ¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢å: hl - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 áâப áãé¥áâ¢ã¥â
|
||
; de - ¤à¥á ¯¥à¢®© ª®¬ ¤ë ¢ áâப¥
|
||
x334A call x34B6 ;¯®¨áª ¤à¥á áâப¨ ¯à®£à ¬¬ë á § ¤ ë¬ ®¬¥à®¬
|
||
ret c
|
||
ld hl,#0000
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3352 ¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
;¢å: hl - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 áâப áãé¥áâ¢ã¥â
|
||
; de - ¤à¥á ç « ª®¬ ¤ ¢ áâப¥
|
||
; hl - ®¬¥à áâப¨ (=#0000 áâப ¥ áãé¥áâ¢ã¥â)
|
||
x3352 call x3430 ;¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
ret c
|
||
ld hl,#0000
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #335A ¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
;¢ëå: cy=0 ⮪¥ ¯à¥®¡à §®¢
|
||
x335A call x3517 ;¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
ccf
|
||
ret nc ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì ret???
|
||
|
||
;€„<E282AC>…‘: #335F ª®¯¨à®¢ ¨¥ ¯à®æ¥¤ãà ¢ ram
|
||
x335F ld hl,#0000
|
||
ld (#FC9F),hl ; ¤à¥á á«¥¤ãî饣® ᨬ¢®« ¢ áâப¥ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld (#FCA1),hl ; ¤à¥á á«¥¤ãî饣® ᨬ¢®« ¢ ¡ãä¥à¥ ª«î祢£® á«®¢
|
||
ld hl,x3374
|
||
ld de,#FCAE
|
||
ld bc,#00BC
|
||
ldir
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3374 ª®¯¨à®¢ ¨¥ ⮪¥ ¢ ¡ãä¥à ⮪¥®¢ (=#FCAE)
|
||
;¢å: a - ®¬¥à ⮪¥ -#A5
|
||
; de - ¤à¥á ¢ ¡ãä¥à¥
|
||
x3374 di
|
||
ld bc,#7FFD
|
||
ld d,#17 ;rom 0, ram 7, scr 5
|
||
out (c),d
|
||
cp #50
|
||
jr nc,x33B1 ;⮪¥ =>#F5
|
||
cp #40
|
||
jr nc,x33AA ;⮪¥ =>#E5
|
||
cp #30
|
||
jr nc,x33A3 ;⮪¥ =>#D5
|
||
cp #20
|
||
jr nc,x339C ;⮪¥ =>#C5
|
||
cp #10
|
||
jr nc,x3395 ;⮪¥ =>#B5
|
||
ld hl,Rom1.x0095+#01
|
||
jr x33B6
|
||
x3395 sub #10
|
||
ld hl,Rom1.x0095+#3A
|
||
jr x33B6
|
||
x339C sub #20
|
||
ld hl,Rom1.x0095+#6B
|
||
jr x33B6
|
||
x33A3 sub #30
|
||
ld hl,Rom1.x0095+#A9
|
||
jr x33B6
|
||
x33AA sub #40
|
||
ld hl,Rom1.x0095+#F6
|
||
jr x33B6
|
||
x33B1 sub #50
|
||
ld hl,Rom1.x0095+#13F
|
||
x33B6 ld b,a
|
||
or a
|
||
x33B8 jr z,x33C3
|
||
x33BA ld a,(hl)
|
||
inc hl
|
||
and #80
|
||
jr z,x33BA
|
||
dec b
|
||
jr x33B8
|
||
|
||
;€„<E282AC>…‘: #33C3 ª®¯¨à®¢ ¨¥ ⮪¥ (=#FCFD)
|
||
;¢å: - ¤à¥á ⮪¥ ¢ rom 1
|
||
x33C3 ld de,#FCA3
|
||
ld (#FCA1),de
|
||
ld a,(#FC9E)
|
||
or a
|
||
ld a,#00
|
||
ld (#FC9E),a
|
||
jr nz,x33D9
|
||
ld a," "
|
||
ld (de),a
|
||
inc de
|
||
x33D9 ld a,(hl)
|
||
ld b,a
|
||
inc hl
|
||
ld (de),a
|
||
inc de
|
||
and #80
|
||
jr z,x33D9
|
||
ld a,b
|
||
and #7F
|
||
dec de
|
||
ld (de),a
|
||
inc de
|
||
ld a," "+#80
|
||
ld (de),a
|
||
ld a,#07 ;rom 0, ram 7, scr 5
|
||
ld bc,#7FFD
|
||
out (c),a
|
||
ei
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #33F4 à ᯮ§ ¢ ¨¥ ⮪¥ (=#FD2E)
|
||
;¢ëå: cy=1 ⮪¥ ©¤¥ -> a - ª®¤ ⮪¥
|
||
x33F4 di
|
||
ld bc,#7FFD
|
||
ld d,#17 ;rom 0, ram 7, scr 5
|
||
out (c),d
|
||
ld hl,Rom1.x0095+#01
|
||
ld b,#A5
|
||
x3401 ld de,#FD74 ; ¤à¥á á«®¢
|
||
x3404 ld a,(de)
|
||
and #7F
|
||
cp #61
|
||
ld a,(de)
|
||
jr c,x340E
|
||
and #DF ;¢ ¢¥à娩 ॣ¨áâà
|
||
x340E cp (hl)
|
||
jr nz,x341A ;¥ ᮢ¯ ¤ ¥â
|
||
inc hl
|
||
inc de
|
||
and #80
|
||
jr z,x3404 ;ᮢ¯ ¤ ¥â, á«¥¤ãî騩 ᨬ¢®«
|
||
scf
|
||
jr x3426 ;⮪¥ ©¤¥
|
||
x341A inc b
|
||
jr z,x3425
|
||
x341D ld a,(hl) ;¨é¥¬ á«¥¤ãî騩 ⮪¥
|
||
and #80
|
||
inc hl
|
||
jr z,x341D
|
||
jr x3401
|
||
x3425 or a
|
||
x3426 ld a,b
|
||
ld d,#07 ;rom 0, ram 7, scr 5
|
||
ld bc,#7FFD
|
||
out (c),d
|
||
ei
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3430 ¯à¥®¡à §®¢ ¨¥ ®¬¥à áâப¨ ¢ ASCII ¨ ¯®¬¥é¥¨¥ ¢ ¡ãä¥à
|
||
;¢å: hl - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 áâப áãé¥áâ¢ã¥â
|
||
; de - ¤à¥á ç « ª®¬ ¤ ¢ áâப¥
|
||
; hl - ®¬¥à áâப¨
|
||
x3430 call x34EA ;®¡ã«¥¨¥ 㪠§ ⥫¥© ¢ ¡¥©á¨ª áâப¥
|
||
or a ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì xor a
|
||
ld (#FC9E),a
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
call x34F6 ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¯ ¬ïâ¨
|
||
jr nc,x3491 ;áâப ¥ ©¤¥
|
||
jr nz,x344D ;áâப ¥ ©¤¥ , ® ¥áâì á«¥¤ãîé ï
|
||
ld a,b
|
||
or c
|
||
jr z,x344D ;íâ® ¯¥à¢ ï áâப¨ ¯à®£à ¬¬ë
|
||
call x34CF ;à áç¥â ¤à¥á á«¥¤ã饩 áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
call x34D9 ;¯à®¢¥àª ª®¥æ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
jr nc,x3491 ;íâ® ¯®á«¥¤ïï áâப ¯à®£à ¬¬ë
|
||
x344D ld d,(hl)
|
||
inc hl
|
||
ld e,(hl) ;de - ®¬¥à áâப¨
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
push de
|
||
push hl
|
||
push ix
|
||
ld ix,#FCA3 ;¡ãä¥à ⮪¥
|
||
ld (#FCA1),ix
|
||
ex de,hl
|
||
ld b,#00
|
||
ld de,-1000
|
||
call x3495 ;¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
ld de,-100
|
||
call x3495 ;¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
ld de,-10
|
||
call x3495 ;¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
ld de,-1
|
||
call x3495 ;¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
dec ix ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì set 7,(ix-1)
|
||
ld a,(ix+#00) ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
or #80 ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
ld (ix+#00),a ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
pop ix
|
||
pop hl
|
||
pop de
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
ld (#FC9F),hl
|
||
ex de,hl
|
||
scf
|
||
ret
|
||
x3491 call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3495 ¢ë¤¥«¥¨¥ à §àï¤ ç¨á« ¨ § ¥á¥¨¥ ¥£® ¢ ¡ãä¥à
|
||
;¢å: de - ¤¥«¨â¥«ì
|
||
; hl - ®¬¥à áâப¨
|
||
; ix - ¤à¥á ¢ ¡ãä¥à¥ ¤«ï § ¯¨á¨ ®¬¥à áâப¨ ¢ ASCII
|
||
; b =#00 áâ à訩 à §àï¤ ç¨á« ¥é¥ ¥ ©¤¥
|
||
;¢ëå: ix - á«¥¤ãî騩 ¤à¥á ¢ ¡ãä¥à¥
|
||
; b =#01 áâ à訩 à §àï¤ ç¨á« ©¤¥
|
||
x3495 xor a
|
||
x3496 add hl,de
|
||
inc a
|
||
jr c,x3496
|
||
sbc hl,de
|
||
dec a
|
||
add a,#30
|
||
ld (ix+#00),a
|
||
cp "0"
|
||
jr nz,x34B1
|
||
ld a,b
|
||
or a
|
||
jr nz,x34B3
|
||
ld a,#00
|
||
ld (ix+#00),a
|
||
jr x34B3
|
||
x34B1 ld b,#01
|
||
x34B3 inc ix
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #34B6 ¯®¨áª ¤à¥á áâப¨ ¯à®£à ¬¬ë á § ¤ ë¬ ®¬¥à®¬ ¨«¨ á«¥¤ã饩
|
||
; áâப¨, ¥á«¨ áâப á § ¤ ë¬ ®¬¥à®¬ ¥ áãé¥áâ¢ã¥â
|
||
;¢å: hl - ®¬¥à áâப¨
|
||
;¢ëå: cy=1 áâப ©¤¥
|
||
; de - ¤à¥á ç « ª®¬ ¤ ¢ áâப¥
|
||
; hl - ®¬¥à áâப¨
|
||
x34B6 call x34EA ;®¡ã«¥¨¥ 㪠§ ⥫¥© ¢ ¡¥©á¨ª áâப¥
|
||
or a ;!!!Ž˜ˆ<CB9C>Š€!!! ¤®«¦® ¡ëâì xor a
|
||
ld (#FC9E),a
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
call x34F6 ;¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¯ ¬ïâ¨
|
||
jr nc,x3491 ;áâப ¥ áãé¥áâ¢ã¥â
|
||
ex de,hl
|
||
ld a,l
|
||
or h
|
||
scf
|
||
jp nz,x344D
|
||
ccf
|
||
jr x3491
|
||
|
||
;€„<E282AC>…‘: #34CF à áç¥â ¤à¥á á«¥¤ã饩 áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢å: hl - ¤à¥á ⥪ã饩 áâப¨
|
||
;¢ëå: de - ¤à¥á ⥪ã饩 áâப¨
|
||
; hl - ¤à¥á á«¥¤ãî饩 áâப¨
|
||
x34CF push hl
|
||
inc hl
|
||
inc hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
inc hl
|
||
add hl,de
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #34D9 ¯à®¢¥àª ª®¥æ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢å: hl - ¤à¥á ¢ áâப¥
|
||
;¢ëå: cy=0 - íâ® ª®¥æ áâப¨
|
||
x34D9 ld a,(hl)
|
||
and #C0
|
||
scf
|
||
ret z
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #34E0 áà ¢¥¨¥ ®¬¥à áâப¨ á § ¤ ë¬
|
||
;¢å: hl - ¤à¥á ®¬¥à áâப¨ ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
; bc - ®¬¥à áâப¨
|
||
;¢ëå: z, cy=1 - áâப ©¤¥
|
||
; nz, cy=1 - bc<(hl)
|
||
; nz, cy=0 - bc>(hl)
|
||
x34E0 ld a,b
|
||
cp (hl)
|
||
ret nz
|
||
ld a,c
|
||
inc hl
|
||
cp (hl)
|
||
dec hl
|
||
ret nz
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #34EA ®¡ã«¥¨¥ 㪠§ ⥫¥© ¢ ¡¥©á¨ª áâப¥
|
||
x34EA push hl
|
||
ld hl,#0000
|
||
ld (#FCA1),hl
|
||
ld (#FC9F),hl
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #34F6 ¯®¨áª ¤à¥á áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¢ ¯ ¬ïâ¨
|
||
;¢å: hl - ®¬¥à áâப¨ (=#0000 ¯¥à¢ ï áâப )
|
||
;¢ëå: cy=1 - ¨áª®¬ ï ¨«¨ á«¥¤ãîé ï áâப áãé¥áâ¢ã¥â
|
||
; nz - áâப ¥ ©¤¥
|
||
; hl - ¤à¥á áâப¨ ¯à®£à ¬¬ë (=#0000 áâப ¥ áãé¥áâ¢ã¥â)
|
||
; de - ¤à¥á ¯à¥¤ë¤ã饩 áâப¨ ¯à®£à ¬¬ë (=#0000 áâப ¥ áãé¥áâ¢ã¥â)
|
||
; bc - ®¬¥à áâப¨ (=#0000 ¯¥à¢ ï áâப )
|
||
x34F6 push hl
|
||
pop bc
|
||
ld de,#0000
|
||
ld hl,(#5C53)
|
||
call x34D9 ;¯à®¢¥àª ª®¥æ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ret nc ;ª®¥æ ¯à®£à ¬¬ë
|
||
call x34E0 ;áà ¢¥¨¥ ®¬¥à áâப¨ á § ¤ ë¬
|
||
ret c
|
||
ld a,b
|
||
or c
|
||
scf
|
||
ret z ;㦠¯¥à¢ ï áâப
|
||
x350A call x34CF ;à áç¥â ¤à¥á á«¥¤ã饩 áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
call x34D9 ;¯à®¢¥àª ª®¥æ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ret nc ;íâ® ª®¥æ ¯à®£à ¬¬ë
|
||
call x34E0 ;áà ¢¥¨¥ ®¬¥à áâப¨ á § ¤ ë¬
|
||
jr nc,x350A ;¥ â áâப , ¨é¥¬ ¤ «ìè¥
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3517 ¯à¥®¡à §®¢ ¨¥ ⮪¥ ¢ ⥪áâ
|
||
;¢ëå: cy=1 ⮪¥ ¯à¥®¡à §®¢
|
||
x3517 ld hl,(#FCA1) ; ¤à¥á á«¥¤ãî饣® ᨬ¢®«
|
||
ld a,l
|
||
or h
|
||
jr z,x353C ;¥â ᨬ¢®«
|
||
ld a,(hl)
|
||
inc hl
|
||
cp " "+#80
|
||
ld b,a
|
||
ld a,#00
|
||
jr nz,x3529 ;¥ ¯®á«¥¤¨© ᨬ¢®«
|
||
ld a,#FF
|
||
x3529 ld (#FC9E),a ;ä« £
|
||
ld a,b
|
||
bit 7,a
|
||
jr z,x3534 ;¥ ¯®á«¥¤¨© ᨬ¢®«
|
||
x3531 ld hl,#0000
|
||
x3534 ld (#FCA1),hl
|
||
and #7F
|
||
jp x358F
|
||
x353C ld hl,(#FC9F)
|
||
ld a,l
|
||
or h
|
||
jp z,x3591 ;¡®«ìè¥ ¥ç¥£® ®¡à ¡ âë¢ âì
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
x3547 ld a,(hl)
|
||
cp #0E
|
||
jr nz,x3554 ;íâ® ¥ ç¨á«® á ¯« ¢ î饩 â®çª®©
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
inc hl
|
||
jr x3547
|
||
x3554 call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
inc hl
|
||
ld (#FC9F),hl
|
||
cp #A5 ;'RND'
|
||
jr c,x3567 ;¥ ⮪¥ basic48
|
||
sub #A5 ;!!!Ž˜ˆ<CB9C>Š€
|
||
call #FCAE ;x335F ª®¯¨à®¢ ¨¥ ⮪¥ ¢ ¡ãä¥à
|
||
jp x3517
|
||
x3567 cp #A3 ;⮪¥ë basic128: SPECTRUM ¨«¨ PLAY
|
||
jr c,x357B
|
||
jr nz,x3572 ;PLAY
|
||
ld hl,x3594
|
||
jr x3575
|
||
x3572 ld hl,x359C ;SPECTRUM
|
||
x3575 call #FCFD ;x33C3 ª®¯¨à®¢ ¨¥ ⮪¥
|
||
jp x3517
|
||
x357B push af
|
||
ld a,#00
|
||
ld (#FC9E),a
|
||
pop af
|
||
cp #0D
|
||
jr nz,x358F
|
||
ld hl,#0000 ;ª®¥æ áâப¨
|
||
ld (#FCA1),hl
|
||
ld (#FC9F),hl
|
||
x358F scf
|
||
ret
|
||
x3591 scf
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3594 ⮪¥ë basic128
|
||
x3594 dc "SPECTRUM"
|
||
x359C dc "PLAY"
|
||
x35A0 dc "GOTO"
|
||
x35A4 dc "GOSUB"
|
||
x35A9 dc "DEFFN"
|
||
x35AE dc "OPEN#"
|
||
x35B3 dc "CLOSE#"
|
||
|
||
;€„<E282AC>…‘: #35BC ãáâ ®¢ª ¯ à ¬¥â஢ ®âáâã¯
|
||
x35B9 db #02
|
||
db #01,#05
|
||
x35BC ld hl,x35B9
|
||
ld de,#FD6A
|
||
jp x3FBA
|
||
|
||
;€„<E282AC>…‘: #35C5 á®åà ¨âì ᨬ¢®« ¢ 㪠§ ®¬ á⮫¡æ¥ ⥪ã饩 áâப¨ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: b - ®¬¥à á⮫¡æ
|
||
; de - ç «ìë© ¤à¥á áâப¨
|
||
; a - ª®¤ ᨬ¢®«
|
||
;¢ëå: b - ®¬¥à á«¥¤ãî饣® á⮫¡æ
|
||
x35C5 ld l,b
|
||
ld h,#00
|
||
add hl,de
|
||
ld (hl),a
|
||
inc b
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #35CC ¯à®æ¥¤ãà ®¡à ¡®âª¨ ¦ â¨ï 'enter' ¢ áâப¥
|
||
;¢ëå: cy=1
|
||
x35CC call x35E6 ;§ ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
ld a,(hl)
|
||
or #18
|
||
ld (hl),a
|
||
ld hl,#FD6A
|
||
set 0,(hl)
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #35DA ¯à®æ¥¤ãà ®¡à ¡®âª¨ § ã«¥¨ï ¤® ª®æ áâப¨
|
||
;¢ëå: cy=1
|
||
x35DA call x35E6 ;§ ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
set 3,(hl)
|
||
ld hl,#FD6A ;!!!¬®¦® ᮪à â¨âì jr x35CC+nn
|
||
set 0,(hl)
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #35E6 § ã«¥¨¥ ¤® ª®æ áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: b - ®¬¥à ¯¥à¢®£® á⮫¡æ
|
||
; de - ¤à¥á ç « áâப¨ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: hl - ¤à¥á ¡ ©â ä« £ áâப¨
|
||
x35E6 ld l,b
|
||
ld h,#00
|
||
add hl,de
|
||
ld a," "
|
||
x35EC cp b
|
||
ret z
|
||
ld (hl),#00
|
||
inc hl
|
||
inc b
|
||
jr x35EC
|
||
|
||
;€„<E282AC>…‘: #35F4 ᮧ¤ ¨¥ ®âáâ㯠¢ áâப¥ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: de - ¤à¥á áâப¨ ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢ëå: b - ¯¥à¢ë© ¨á¯®«ì§ã¥¬ë© ®¬¥à á⮫¡æ ¢ áâப¥
|
||
x35F4 ld a,(#FD6B)
|
||
ld b,#00
|
||
x35F9 ld h,#00
|
||
ld l,b
|
||
add hl,de
|
||
ld (hl),#00
|
||
inc b
|
||
dec a
|
||
jr nz,x35F9
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3604 ¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à , ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
x3604 push bc
|
||
push de
|
||
push hl
|
||
push hl
|
||
ld hl,#EEF5
|
||
bit 2,(hl)
|
||
pop hl
|
||
jr nz,x3614 ;®¡®¢«ïâì íªà ¥ ¤®
|
||
ld b,c
|
||
call x3B1E ;¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à
|
||
x3614 pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3618 ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
;¢å: hl - ¤à¥á ¯¥à¢®© áâப¨ ¢ ¡ãä¥à¥
|
||
; c - ª®«¨ç¥á⢮ áâப
|
||
; b - ®¬¥à áâப¨ ®â ª®â®à®© ¡ã¤¥â ᤢ¨£
|
||
x3618 push bc
|
||
push de
|
||
push hl
|
||
push hl
|
||
ld hl,#EEF5
|
||
bit 2,(hl)
|
||
pop hl
|
||
jr nz,x3628
|
||
ld e,c
|
||
call x3ABF ;ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x3628 pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #362C ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï ¯à¨ ¥®¡å®¤¨¬®áâ¨
|
||
;¢å: hl - ¤à¥á ¯¥à¢®© áâப¨ ¢ ¡ãä¥à¥
|
||
; c - ª®«¨ç¥á⢮ áâப
|
||
; b - ®¬¥à áâப¨ ®â ª®â®à®© ¡ã¤¥â ᤢ¨£
|
||
x362C push bc
|
||
push de
|
||
push hl
|
||
push hl
|
||
ld hl,#EEF5
|
||
bit 2,(hl)
|
||
pop hl
|
||
jr nz,x363C
|
||
ld e,c
|
||
call x3AC6 ;ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
x363C pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3640 ¯¥ç âì âਡã⮢ ªãàá®à
|
||
;¢å: c - ®¬¥à áâப¨
|
||
; b - ®¬¥à á⮫¡æ
|
||
x3640 push af
|
||
push bc
|
||
push de
|
||
push hl
|
||
ld a,b
|
||
ld b,c
|
||
ld c,a
|
||
call x3A9D ;¯¥ç âì âਡã⮢ ªãàá®à
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #364F ¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
;¢å: c - crd Y, b - crd X
|
||
x364F push af
|
||
push bc
|
||
push de
|
||
push hl
|
||
ld a,b
|
||
ld b,c
|
||
ld c,a
|
||
call x3AB2 ;¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #365E ãáâ ®¢ª ¯¥à¥¬¥ëå ¤«ï ¢¢®¤ ᨬ¢®«
|
||
x365E ld a,#00
|
||
ld (#5C41),a ;—¨á«®, ®¯à¥¤¥«ïî饥 ०¨¬ ¢¢®¤ á ª« ¢¨ âãàë
|
||
ld a,#02
|
||
ld (#5C0A),a ;<3B>¥à¨®¤ ¢â®¯®¢â®à
|
||
x3668 ld hl,#5C3B
|
||
ld a,(hl)
|
||
or #0C
|
||
ld (hl),a ;¢¢®¤ ᨬ¢®«
|
||
ld hl,#EC0D
|
||
bit 4,(hl)
|
||
ld hl,x5B66
|
||
jr nz,x367C
|
||
res 0,(hl)
|
||
ret
|
||
x367C set 0,(hl)
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #367F ®¦¨¤ ¨¥ ¦ â¨ï ª« ¢¨è¨
|
||
;¢ëå: a - ª®¤ ª« ¢¨è¨
|
||
x367F push hl
|
||
x3680 ld hl,#5C3B
|
||
x3683 bit 5,(hl)
|
||
jr z,x3683 ;ª« ¢¨è ¥ ¦ â
|
||
res 5,(hl)
|
||
ld a,(#5C08) ;Š®¤ ¦ ⮩ ª« ¢¨è¨
|
||
ld hl,#5C41
|
||
res 0,(hl)
|
||
cp #20
|
||
jr nc,x36A2 ;ᨬ¢®«ì ï ª« ¢¨è
|
||
cp #10
|
||
jr nc,x3680 ;¥â ॠªæ¨¨
|
||
cp #06
|
||
jr c,x3680
|
||
call x36A4
|
||
jr nc,x3680
|
||
x36A2 pop hl
|
||
ret
|
||
x36A4 rst #28 ;¢ë§®¢ ¯/¯ ¨§ basic 48
|
||
dw Rom1.x10DB ;®¡à ¡®âª ª®¤ ª« ¢¨è¨
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #36A8 ¯¥ç âì ¬¥î basic 128k
|
||
;¢å: hl - ¤à¥á ®¯¨á ¨ï ¬¥î
|
||
x36A8 push hl
|
||
call x373B ;á®åà ¥¨¥ ®ª íªà 14*12 ¢ ¡ãä¥à¥
|
||
ld hl,#5C3C
|
||
res 0,(hl)
|
||
pop hl
|
||
ld e,(hl)
|
||
inc hl
|
||
push hl
|
||
ld hl,x37EC ;ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
call x3733 ;¯¥ç âì áâப¨ ¨§ hl
|
||
pop hl
|
||
call x3733
|
||
push hl
|
||
call x3822 ;¯¥ç âì í¬¡«¥¬ë ZX (ª®áë¥ æ¢¥âë¥ ¯®«®áë) ¢ ¬¥î
|
||
ld hl,x37FA ;ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
call x3733 ;¯¥ç âì áâப¨ ¨§ hl
|
||
pop hl
|
||
;¯¥ç âì áâà®ç¥ª ¬¥î
|
||
push de
|
||
ld bc,#0807
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
x36D1 push bc
|
||
ld b,#0C
|
||
ld a,#20
|
||
rst #10 ;¯à®¡¥«
|
||
x36D7 ld a,(hl) ;¯¥ç âì áâà®çª¨ ¬¥î
|
||
inc hl
|
||
cp #80
|
||
jr nc,x36E0
|
||
rst #10
|
||
djnz x36D7
|
||
x36E0 and #7F
|
||
rst #10
|
||
x36E3 ld a,#20 ;¤®¯®«ï¥¬ ¯à®¡¥« ¬¨
|
||
rst #10
|
||
djnz x36E3
|
||
pop bc
|
||
inc b
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
dec e
|
||
jr nz,x36D1
|
||
ld hl,#6F38
|
||
pop de
|
||
;¯¥ç âì à ¬ª¨ ¢®ªà㣠¬¥î
|
||
sla e
|
||
sla e
|
||
sla e
|
||
ld d,e
|
||
dec d
|
||
ld e,#6F
|
||
ld bc,#FF00
|
||
ld a,d
|
||
call x3719 ;¯¥ç âì ®¤®© «¨¨¨ ¢®ªà㣠¬¥î
|
||
ld bc,#0001
|
||
ld a,e
|
||
call x3719 ;¯¥ç âì ®¤®© «¨¨¨ ¢®ªà㣠¬¥î
|
||
ld bc,#0100
|
||
ld a,d
|
||
inc a
|
||
call x3719 ;¯¥ç âì ®¤®© «¨¨¨ ¢®ªà㣠¬¥î
|
||
xor a
|
||
call x37CA ; âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3719 ¯¥ç âì ®¤®© «¨¨¨ ¢®ªà㣠¬¥î
|
||
;¢å: hl - ª®®à¤¨ âë
|
||
; bc - ¯à¨à 饨¥ ª®®à¤¨ â
|
||
x3719 push af
|
||
push hl
|
||
push de
|
||
push bc
|
||
ld b,h
|
||
ld c,l
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x22E9 ;¯¥ç âì â®çª¨
|
||
pop bc
|
||
pop de
|
||
pop hl
|
||
pop af
|
||
add hl,bc
|
||
dec a
|
||
jr nz,x3719
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #372B ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
;¢å: bc - ª®®à¤¨ âë ¯¥ç â¨
|
||
x372B ld a,#16
|
||
rst #10
|
||
ld a,b
|
||
rst #10
|
||
ld a,c
|
||
rst #10
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3733 ¯¥ç âì áâப¨ ¨§ hl
|
||
;¢å: hl - ¤à¥á áâப¨
|
||
x3733 ld a,(hl)
|
||
inc hl
|
||
cp #FF
|
||
ret z
|
||
rst #10 ;¯¥ç âì ᨬ¢®« ¨§ A
|
||
jr x3733
|
||
|
||
;€„<E282AC>…‘: #373B á®åà ¥¨¥ ®ª íªà 14*12 ¢ ¡ãä¥à¥
|
||
x373B scf
|
||
jr x373F
|
||
|
||
;€„<E282AC>…‘: #373E ¢®ááâ ®¢«¥¨¥ ®ª íªà 14*12 ¨§ ¡ãä¥à
|
||
x373E and a
|
||
x373F ld de,#EEF6
|
||
ld hl,#5C3C
|
||
jr c,x3748
|
||
ex de,hl
|
||
x3748 ldi
|
||
jr c,x374D
|
||
ex de,hl
|
||
x374D ld hl,#5C7D ;Š®®à¤¨ âë X ¨ Y ¯®á«¥¤¥© ¨§®¡à ¦¥®© íªà ¥ â®çª¨
|
||
jr c,x3753
|
||
ex de,hl
|
||
x3753 ld bc,#0014
|
||
ldir
|
||
jr c,x375B
|
||
ex de,hl
|
||
x375B ex af,af'
|
||
ld bc,#0707
|
||
call x3B94
|
||
ld a,(ix+#01)
|
||
add a,b
|
||
ld b,a
|
||
ld a,#0C
|
||
x3769 push bc
|
||
push af
|
||
push de
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E9B ;à áç¥â ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
ld bc,#0007
|
||
add hl,bc
|
||
pop de
|
||
call x377E ;á®åà ¥¨¥/¢®ááâ ®¢«¥¨¥ 14 § ª®¬¥áâ íª ¢ ¡ãä¥à¥
|
||
pop af
|
||
pop bc
|
||
dec b
|
||
dec a
|
||
jr nz,x3769
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #377E á®åà ¥¨¥/¢®ááâ ®¢«¥¨¥ 14 § ª®¬¥áâ íª ¢ ¡ãä¥à¥
|
||
;¢å: cy' =1 á®åà ¥¨¥ ç á⨠íªà ¢ ¡ãä¥à¥
|
||
; =0 ¢®ááâ ®¢«¥¨¥ ç á⨠íªà ¨§ ¡ãä¥à
|
||
; hl - ¤à¥á íªà ¥
|
||
; de - ¤à¥á ¢ ¡ãä¥à¥
|
||
x377E ld bc,#080E
|
||
x3781 push bc
|
||
ld b,#00
|
||
push hl
|
||
ex af,af'
|
||
jr c,x3789
|
||
ex de,hl
|
||
x3789 ldir
|
||
jr c,x378E
|
||
ex de,hl
|
||
x378E ex af,af'
|
||
pop hl
|
||
inc h
|
||
pop bc
|
||
djnz x3781
|
||
push bc
|
||
push de
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E88 ;à áç¥â ¤à¥á ¢ âਡãâ å ¯® ª®®à¤¨ â ¬
|
||
ex de,hl
|
||
pop de
|
||
pop bc
|
||
ex af,af'
|
||
jr c,x37A0
|
||
ex de,hl
|
||
x37A0 ldir
|
||
jr c,x37A5
|
||
ex de,hl
|
||
x37A5 ex af,af'
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #37A7 ª« ¢¨è ¢¢¥àå ¢ ¬¥î basic128
|
||
;¢å: a - ®¬¥à ®¯æ¨¨
|
||
; hl - ¤à¥á ᯨ᪠®¯æ¨© ¬¥î
|
||
x37A7 call x37CA ;¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
dec a
|
||
jp p,x37B1
|
||
ld a,(hl)
|
||
dec a
|
||
dec a
|
||
x37B1 call x37CA ;¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #37B6 ª« ¢¨è ¢¨§ ¢ ¬¥î basic128
|
||
;¢å: a - ®¬¥à ®¯æ¨¨
|
||
; hl - ¤à¥á ᯨ᪠®¯æ¨© ¬¥î
|
||
x37B6 push de
|
||
call x37CA ;¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
inc a
|
||
ld d,a
|
||
ld a,(hl)
|
||
dec a
|
||
dec a
|
||
cp d
|
||
ld a,d
|
||
jp p,x37C5
|
||
xor a
|
||
x37C5 call x37CA ;¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
pop de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #37CA ¨¢¥àâ¨à®¢ ¨¥ âਡã⮢ ®¯æ¨¨ ¬¥î
|
||
;¢å: a - ®¬¥à ®¯æ¨¨
|
||
x37CA push af
|
||
push hl
|
||
push de
|
||
ld hl,#5907
|
||
ld de,#0020
|
||
and a
|
||
jr z,x37DA
|
||
x37D6 add hl,de
|
||
dec a
|
||
jr nz,x37D6
|
||
x37DA ld a,%01111000 ;bright 1, paper 7, ink 0
|
||
cp (hl)
|
||
jr nz,x37E1
|
||
ld a,%01101000 ;bright 1, paper 5, ink 0
|
||
;¯¥ç âì âਡã⮢ ®¯æ¨¨
|
||
x37E1 ld d,#0E
|
||
x37E3 ld (hl),a
|
||
inc hl
|
||
dec d
|
||
jr nz,x37E3
|
||
pop de
|
||
pop hl
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #37EC ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
x37EC db #16,#07,#07 ;ª®®à¤¨ âë
|
||
db #15,#00 ;over 0
|
||
db #14,#00 ;inverse 0
|
||
db #10,#07 ;ink 7
|
||
db #11,#00 ;paper 0
|
||
db #13,#01 ;bright 1
|
||
db #FF
|
||
|
||
;€„<E282AC>…‘: #37FA ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
x37FA db #11,#00,#20 ;paper 0
|
||
db #11,#07 ;paper 7
|
||
db #10,#00 ;ink 0
|
||
db #FF
|
||
|
||
;€„<E282AC>…‘: #3802 ¤ ë¥ ¯®â®ª®¢ ¤«ï ¯¥ç â¨ í¬¡«¥¬ë
|
||
x3802 db #01,#03,#07,#0F,#1F,#3F,#7F,#FF
|
||
db #FE,#FC,#F8,#F0,#E0,#C0,#80,#00
|
||
|
||
;€„<E282AC>…‘: #3812 ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠ª®áëå ¯®«®á ¢ ¬¥î
|
||
x3812 db #10,#02,#20 ;ink 2
|
||
db #11,#06,#21 ;paper 6
|
||
db #10,#04,#20 ;ink 4
|
||
db #11,#05,#21 ;paper 5
|
||
db #10,#00,#20 ;ink 0
|
||
db #FF
|
||
|
||
;€„<E282AC>…‘: #3822 ¯¥ç âì í¬¡«¥¬ë ZX (ª®áë¥ æ¢¥âë¥ ¯®«®áë) ¢ ¬¥î
|
||
x3822 push bc
|
||
push de
|
||
push hl
|
||
ld hl,x3802
|
||
ld de,x5B98
|
||
ld bc,#0010
|
||
ldir
|
||
ld hl,(#5C36)
|
||
push hl
|
||
ld hl,#5A98
|
||
ld (#5C36),hl
|
||
ld hl,x3812 ;ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠ª®áëå ¯®«®á ¢ ¬¥î
|
||
call x3733 ;¯¥ç âì áâப¨ ¨§ hl
|
||
pop hl
|
||
ld (#5C36),hl
|
||
pop hl
|
||
pop de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3848 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 BASIC
|
||
x3848 ld hl,x2768
|
||
jr x385A
|
||
|
||
;€„<E282AC>…‘: #384D ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ Calculator
|
||
x384D ld hl,x2771
|
||
jr x385A
|
||
|
||
;€„<E282AC>…‘: #3852 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 48 TR-DOS
|
||
x3852 ld hl,x2783
|
||
jr x385A
|
||
|
||
;€„<E282AC>…‘: #3857 ¯¥ç âì ¨ä®à¬ 樮®© áâப¨ 128 TR-DOS
|
||
x3857 ld hl,x275E ;á®®¡é¥¨¥ "128 TR-DOS"
|
||
x385A push hl
|
||
call x3881 ;®ç¨á⪠¤¢ãå ¨¦¨å áâப íªà
|
||
ld hl,#5AA0 ;ãáâ ®¢ª âਡã⮢ ¢ áâப¥
|
||
ld b,#20
|
||
ld a,#40 ;bright 1, paper 0, ink 0
|
||
x3865 ld (hl),a
|
||
inc hl
|
||
djnz x3865
|
||
ld hl,x37EC ;ã¯à ¢«ïî騥 ª®¤ë ¤«ï ¯¥ç ⨠¬¥î
|
||
call x3733 ;¯¥ç âì áâப¨ ¨§ hl
|
||
ld bc,#1500
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
pop de
|
||
call x057D ;¯¥ç âì áâப¨ ¨§ de
|
||
ld c,#1A
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
jp x3822 ;¯¥ç âì í¬¡«¥¬ë ZX (ª®áë¥ æ¢¥âë¥ ¯®«®áë) ¢ ¬¥î
|
||
|
||
;€„<E282AC>…‘: #3881 ®ç¨á⪠¤¢ãå ¨¦¨å áâப íªà
|
||
x3881 ld b,#15
|
||
ld d,#17
|
||
jp x3B5E
|
||
|
||
;€„<E282AC>…‘: #3888 ¯¥à¥ã¬¥à æ¨ï áâப ¯à®£à ¬¬ë
|
||
x3888 call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
call x3A05 ;¯®¤áç¥â ª®«¨ç¥á⢠áâப ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
ld a,d
|
||
or e
|
||
jp z,x39C0
|
||
ld hl,(x5B96)
|
||
rst #28 ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
dw Rom1.x30A9 ;hl=hl*de
|
||
ex de,hl
|
||
ld hl,(x5B94)
|
||
add hl,de
|
||
ld de,10000
|
||
or a
|
||
sbc hl,de
|
||
jp nc,x39C0
|
||
ld hl,(#5C53)
|
||
x38AA rst #28
|
||
dw Rom1.x19B8 ;¯®¨áª ¤à¥á ç « á«¥¤ãî饩 áâப¨ ¯à®£à ¬¬ë
|
||
inc hl
|
||
inc hl
|
||
ld (x5B92),hl
|
||
inc hl
|
||
inc hl
|
||
ld (x5B67+4),de
|
||
x38B8 ld a,(hl)
|
||
rst #28
|
||
dw Rom1.x18B6 ;¯à®¯ã᪠âãà «ì®£® ç¨á«
|
||
cp #0D
|
||
jr z,x38C5
|
||
call x390E ; «¨§ áâப¨ ¨ ¯¥à¥ã¬¥à®¢ ¨¥ ááë«®ª ®¬¥à áâப
|
||
jr x38B8
|
||
x38C5 ld de,(x5B67+4)
|
||
ld hl,(#5C4B)
|
||
and a
|
||
sbc hl,de
|
||
ex de,hl
|
||
jr nz,x38AA
|
||
x38D2 call x3A05 ;¯®¤áç¥â ª®«¨ç¥á⢠áâப ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
ld b,d
|
||
ld c,e
|
||
ld de,#0000
|
||
ld hl,(#5C53)
|
||
x38DD push bc
|
||
push de
|
||
push hl
|
||
ld hl,(x5B96)
|
||
rst #28
|
||
dw Rom1.x30A9 ;hl=hl*de
|
||
ld de,(x5B94)
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
ld (hl),d
|
||
inc hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld c,(hl)
|
||
inc hl
|
||
ld b,(hl)
|
||
inc hl
|
||
add hl,bc
|
||
pop de
|
||
inc de
|
||
pop bc
|
||
dec bc
|
||
ld a,b
|
||
or c
|
||
jr nz,x38DD
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld (x5B92),bc
|
||
scf
|
||
ret
|
||
|
||
;⮪¥ë, ¨á¯®«ì§ãî騥 áá뫪¨ áâப¨
|
||
x3907 db #CA ;LINE
|
||
db #F0 ;LIST
|
||
db #E1 ;LLIST
|
||
db #EC ;GO TO
|
||
db #ED ;GO SUB
|
||
db #E5 ;RESTORE
|
||
db #F7 ;RUN
|
||
|
||
;€„<E282AC>…‘: #390E «¨§ áâப¨ ¨ ¯¥à¥ã¬¥à®¢ ¨¥ ááë«®ª ®¬¥à áâப
|
||
x390E inc hl
|
||
ld (x5B78+1),hl
|
||
ex de,hl
|
||
ld bc,#0007
|
||
ld hl,x3907
|
||
x3919 cpir
|
||
ex de,hl
|
||
ret nz
|
||
ld c,#00
|
||
x391F ld a,(hl)
|
||
cp " "
|
||
jr z,x393F
|
||
rst #28
|
||
dw Rom1.x2D1B ;íâ® æ¨äà ?
|
||
jr nc,x393F
|
||
cp "."
|
||
jr z,x393F
|
||
cp #0E
|
||
jr z,x3943
|
||
or #20
|
||
cp "e"
|
||
jr nz,x393B
|
||
ld a,b
|
||
or c
|
||
jr nz,x393F
|
||
x393B ld hl,(x5B78+1)
|
||
ret
|
||
x393F inc bc
|
||
inc hl
|
||
jr x391F
|
||
x3943 ld (x5B71),bc
|
||
push hl
|
||
rst #28
|
||
dw Rom1.x18B6 ;¯à®¯ã᪠âãà «ì®£® ç¨á«
|
||
call x3A36 ;¯à®¯ã᪠¯à®¡¥«®¢ ¢ áâப¥
|
||
ld a,(hl)
|
||
pop hl
|
||
cp ":"
|
||
jr z,x3957
|
||
cp #0D
|
||
ret nz
|
||
x3957 inc hl
|
||
rst #28
|
||
dw Rom1.x33B4 ;¯®¬¥áâ¨âì ç¨á«® á¬íª ª «ìªã«ïâ®à
|
||
rst #28
|
||
dw Rom1.x2DA2 ;¨§¢«¥çì § 票¥ á® áâíª ª «ìªã«ïâ®à
|
||
ld h,b
|
||
ld l,c
|
||
rst #28
|
||
dw Rom1.x196E ;¯®«ãç¨âì ç «ìë© ¤à¥á áâப¨ ¯à®£à ¬¬ë
|
||
jr z,x396F
|
||
ld a,(hl)
|
||
cp #80
|
||
jr nz,x396F
|
||
ld hl,#270F ;9999
|
||
jr x3980
|
||
x396F ld (x5B76+1),hl
|
||
call x3A0B ;¯®¤áç¥â ª®«¨ç¥á⢠áâப
|
||
ld hl,(x5B96)
|
||
rst #28
|
||
dw Rom1.x30A9 ;hl=hl*de
|
||
ld de,(x5B94)
|
||
add hl,de
|
||
x3980 ld de,x5B72+1
|
||
push hl
|
||
call x3A3C ;®¬¥à áâப¨ ¢ ASCII
|
||
ld e,b
|
||
inc e
|
||
ld d,#00
|
||
push de
|
||
push hl
|
||
ld l,e
|
||
ld h,#00
|
||
ld bc,(x5B71)
|
||
or a
|
||
sbc hl,bc
|
||
ld (x5B71),hl
|
||
jr z,x39CF
|
||
jr c,x39C5
|
||
ld b,h
|
||
ld c,l
|
||
ld hl,(x5B78+1)
|
||
push hl
|
||
push de
|
||
ld hl,(#5C65)
|
||
add hl,bc
|
||
jr c,x39BE
|
||
ex de,hl
|
||
ld hl,#0082
|
||
add hl,de
|
||
jr c,x39BE
|
||
sbc hl,sp
|
||
ccf
|
||
jr c,x39BE
|
||
pop de
|
||
pop hl
|
||
rst #28
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
jr x39CF
|
||
x39BE pop de
|
||
pop hl
|
||
x39C0 call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
and a
|
||
ret
|
||
x39C5 dec bc
|
||
dec e
|
||
jr nz,x39C5
|
||
ld hl,(x5B78+1)
|
||
rst #28
|
||
dw Rom1.x19E8 ;㤠«¨âì ¬ áᨢ DIM
|
||
x39CF ld de,(x5B78+1)
|
||
pop hl
|
||
pop bc
|
||
ldir
|
||
ex de,hl
|
||
ld (hl),#0E
|
||
pop bc
|
||
inc hl
|
||
push hl
|
||
rst #28
|
||
dw Rom1.x2D2B ;bc áâíª ª «ìªã«ïâ®à
|
||
pop de
|
||
ld bc,#0005
|
||
ldir
|
||
ex de,hl
|
||
push hl
|
||
ld hl,(x5B92)
|
||
push hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
ld hl,(x5B71)
|
||
add hl,de
|
||
ex de,hl
|
||
pop hl
|
||
ld (hl),e
|
||
inc hl
|
||
ld (hl),d
|
||
ld hl,(x5B67+4)
|
||
ld de,(x5B71)
|
||
add hl,de
|
||
ld (x5B67+4),hl
|
||
pop hl
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A05 ¯®¤áç¥â ª®«¨ç¥á⢠áâப ¢ ¡¥©á¨ª ¯à®£à ¬¬¥
|
||
x3A05 ld hl,(#5C4B)
|
||
ld (x5B76+1),hl
|
||
x3A0B ld hl,(#5C53)
|
||
ld de,(x5B76+1)
|
||
or a
|
||
sbc hl,de
|
||
jr z,x3A31
|
||
ld hl,(#5C53)
|
||
ld bc,#0000
|
||
x3A1D push bc
|
||
rst #28
|
||
dw Rom1.x19B8 ;¯®¨áª ¤à¥á ç « á«¥¤ãî饩 áâப¨ ¯à®£à ¬¬ë
|
||
ld hl,(x5B76+1)
|
||
and a
|
||
sbc hl,de
|
||
jr z,x3A2E
|
||
ex de,hl
|
||
pop bc
|
||
inc bc
|
||
jr x3A1D
|
||
x3A2E pop de
|
||
inc de
|
||
ret
|
||
x3A31 ld de,#0000
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A35 ¯à®¯ã᪠¯à®¡¥«®¢ ¢ áâப¥
|
||
x3A35 inc hl
|
||
x3A36 ld a,(hl)
|
||
cp " "
|
||
jr z,x3A35
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A3C ®¬¥à áâப¨ ¢ ASCII
|
||
x3A3C push de
|
||
ld bc,-1000
|
||
call x3A60 ;¯®«ãç¨âì ®¤¨ à §àï ç¨á« ¢ ASCII
|
||
ld bc,-100
|
||
call x3A60 ;¯®«ãç¨âì ®¤¨ à §àï ç¨á« ¢ ASCII
|
||
ld c,-10
|
||
call x3A60 ;¯®«ãç¨âì ®¤¨ à §àï ç¨á« ¢ ASCII
|
||
ld a,l
|
||
add a,"0"
|
||
ld (de),a
|
||
inc de
|
||
ld b,#03
|
||
pop hl
|
||
x3A56 ld a,(hl)
|
||
cp "0"
|
||
ret nz
|
||
ld (hl)," "
|
||
inc hl
|
||
djnz x3A56
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A60 ¯®«ãç¨âì ®¤¨ à §àï ç¨á« ¢ ASCII
|
||
x3A60 xor a
|
||
x3A61 add hl,bc
|
||
inc a
|
||
jr c,x3A61
|
||
sbc hl,bc
|
||
dec a
|
||
add a,"0"
|
||
ld (de),a
|
||
inc de
|
||
ret
|
||
|
||
; áâனª¨ ªãàá®à
|
||
x3A6D db #08
|
||
db #00,#00,#14,#00,#00,#00,#0F,#00
|
||
|
||
; áâனª¨ ªãàá®à
|
||
x3A76 db #08
|
||
db #00,#16,#01,#00,#00,#00,#0F,#00
|
||
|
||
;€„<E282AC>…‘: #3A7F ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¢¥à奣® ®ª
|
||
x3A7F ld ix,#FD6C
|
||
ld hl,x3A6D
|
||
jr x3A8B
|
||
|
||
;€„<E282AC>…‘: #3A88 ãáâ ®¢ª áâ஥ª ªãàá®à ¤«ï ¨¦¥£® ®ª
|
||
x3A88 ld hl,x3A76
|
||
x3A8B ld de,#FD6C
|
||
jp x3FBA
|
||
|
||
;€„<E282AC>…‘: #3A91 !!!NOT USED!!!
|
||
x3A91 rst #10
|
||
ld a,d
|
||
rst #10
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A96 á®åà ¨âì âਡãâë ªãàá®à
|
||
x3A96 and #3F
|
||
ld (ix+#06),a
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3A9D ¯¥ç âì âਡã⮢ ªãàá®à
|
||
;¢å: b - ®¬¥à áâப¨
|
||
; c - ®¬¥à á⮫¡æ
|
||
; ix - ¤à¥á ¤¥áªà¨¯â®à ªãàá®à
|
||
x3A9D ld a,(ix+#01)
|
||
add a,b
|
||
ld b,a
|
||
call x3BA0 ;à áç¥â ¤à¥á âਡã⮢
|
||
ld a,(hl)
|
||
ld (ix+#07),a ;á®åà ¨¬ âਡãâë
|
||
cpl
|
||
and #C0
|
||
or (ix+#06)
|
||
ld (hl),a
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3AB2 ¢®ááâ ®¢«¥¨¥ âਡã⮢ ¯®¤ ªãàá®à®¬
|
||
;¢å: b - crd Y
|
||
; c - crd X
|
||
; ix - ¤à¥á ®¯¨á ¨ï ªãàá®à
|
||
x3AB2 ld a,(ix+#01)
|
||
add a,b
|
||
ld b,a
|
||
call x3BA0 ;à áç¥â ¤à¥á âਡã⮢
|
||
ld a,(ix+#07)
|
||
ld (hl),a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3ABF ᤢ¨£ ¢¢¥àå áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: hl - ¤à¥á ¯¥à¢®© áâப¨ ¢ ¡ãä¥à¥
|
||
; e - ª®«¨ç¥á⢮ áâப
|
||
; b - ®¬¥à áâப¨ ®â ª®â®à®© ¡ã¤¥â ᤢ¨£
|
||
x3ABF push hl
|
||
ld h,#00 ;ᤢ¨£ ¢¢¥àå
|
||
ld a,e
|
||
sub b ;a - ª®«¨ç¥á⢮ áâப ¤«ï ᤢ¨£
|
||
jr x3ACD
|
||
|
||
;€„<E282AC>…‘: #3AC6 ᤢ¨£ ¢¨§ áâப ¢ ¡ãä¥à¥ । ªâ¨à®¢ ¨ï
|
||
;¢å: hl - ¤à¥á ¯¥à¢®© áâப¨ ¢ ¡ãä¥à¥
|
||
; e - ª®«¨ç¥á⢮ áâப
|
||
; b - ®¬¥à áâப¨ ®â ª®â®à®© ¡ã¤¥â ᤢ¨£
|
||
x3AC6 push hl
|
||
ld a,e
|
||
ld e,b
|
||
ld b,a
|
||
sub e ;a - ª®«¨ç¥á⢮ áâப ¤«ï ᤢ¨£
|
||
ld h,#FF ;ᤢ¨£ ¢¨§
|
||
|
||
;ᤢ¨£ áâப
|
||
x3ACD ld c,a
|
||
ld a,b
|
||
cp e
|
||
jr z,x3B1D ;ᤢ¨£ âì ¥ ¤®
|
||
push de
|
||
call x3B98 ;à áç¥â ª®«¨ç¥á⢠áâப ®â § ¤ ®© ¤® ¨§ íªà
|
||
x3AD6 push bc
|
||
ld c,h
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E9B ;à áç¥â ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
ex de,hl
|
||
xor a
|
||
or c
|
||
jr z,x3AE3 ;¢¢¥àå
|
||
inc b ;¢¨§
|
||
jr x3AE4
|
||
x3AE3 dec b
|
||
x3AE4 push de
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E9B ;à áç¥â ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
pop de
|
||
ld a,c
|
||
ld c,#20
|
||
ld b,#08
|
||
x3AEE push bc ;áªà®«« § ª®¬¥á⮩ áâப¨
|
||
push hl
|
||
push de
|
||
ld b,#00
|
||
ldir
|
||
pop de
|
||
pop hl
|
||
pop bc
|
||
inc h
|
||
inc d
|
||
djnz x3AEE
|
||
push af ;áªà®«« âਡã⮩ áâப¨
|
||
push de
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E88 ;à áç¥â ¤à¥á ¢ âਡãâ å ¯® ª®®à¤¨ â ¬
|
||
ex de,hl
|
||
ex (sp),hl
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E88 ;à áç¥â ¤à¥á ¢ âਡãâ å ¯® ª®®à¤¨ â ¬
|
||
ex de,hl
|
||
ex (sp),hl
|
||
pop de
|
||
ld bc,#0020
|
||
ldir
|
||
pop af
|
||
pop bc
|
||
and a
|
||
jr z,x3B16 ;¢¢¥àå
|
||
inc b
|
||
jr x3B17
|
||
x3B16 dec b
|
||
x3B17 dec c
|
||
ld h,a
|
||
jr nz,x3AD6
|
||
pop de
|
||
ld b,e
|
||
x3B1D pop hl
|
||
|
||
;€„<E282AC>…‘: #3B1E ¯¥ç âì áâப¨ । ªâ¨à㥬®£® ¡ãä¥à
|
||
;¢å: b - ª®®à¤¨ â ¯¥ç ⨠Y
|
||
; hl - ¤à¥á ç « áâப¨
|
||
x3B1E call x3BB8 ;®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
ex de,hl
|
||
ld a,(#5C3C) ;TVFLAG
|
||
push af
|
||
ld hl,#EC0D
|
||
bit 6,(hl) ;¢ ª ª®© ®¡« á⨠¨¤¥â । ªâ¨à®¢ ¨¥ ¡ãä¥à
|
||
res 0,a
|
||
jr z,x3B31
|
||
set 0,a
|
||
x3B31 ld (#5C3C),a
|
||
ld c,#00
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
ex de,hl
|
||
ld b,#20
|
||
x3B3C ld a,(hl)
|
||
and a
|
||
jr nz,x3B42
|
||
ld a,#20
|
||
x3B42 cp #90
|
||
jr nc,x3B55
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0010 ;!!!¬®¦® § ¬¥¨âì rst #10!!!
|
||
x3B49 inc hl
|
||
djnz x3B3C
|
||
pop af
|
||
ld (#5C3C),a
|
||
call x3BB8 ;®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
scf ;!!!‹ˆ˜<CB86>……!!!
|
||
ret ;!!!⮦¥ ⮣¤ ã¡à âì!!!
|
||
x3B55 call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #10
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
jr x3B49
|
||
|
||
;€„<E282AC>…‘: #3B5E ®ç¨á⪠áâப íªà
|
||
;¢å: b - ®¬¥à ¯¥à¢®© áâப¨ íªà
|
||
; d - ®¬¥à ¯®á«¥¤¥© áâப¨ íªà
|
||
x3B5E call x3BB8 ;®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
ld a,d
|
||
sub b
|
||
inc a
|
||
ld c,a ;ª®«¨ç¥á⢮ áâப
|
||
call x3B98 ;b - ®¬¥à ç «ì®© áâப¨ íªà
|
||
x3B68 push bc ;c - ª®«-¢® áâப
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E9B ;à áç¥â ¤à¥á íªà ¥ ¯® ª®®à¤¨ â ¬
|
||
ld c,#08 ;§ 㫨¬ áâப㠧 ª®¬¥áâ
|
||
x3B6E push hl
|
||
ld b,#20 ;§ 㫨¬ áâப㠯¨ªá¥«¥©
|
||
xor a
|
||
x3B72 ld (hl),a
|
||
inc hl
|
||
djnz x3B72
|
||
pop hl
|
||
inc h
|
||
dec c
|
||
jr nz,x3B6E
|
||
ld b,#20
|
||
push bc
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x0E88 ;à áç¥â ¤à¥á ¢ âਡãâ å ¯® ª®®à¤¨ â ¬
|
||
ex de,hl
|
||
pop bc
|
||
ld a,(#5C8D) ;ãáâ ®¢¨¬ âਡãâë áâப¨
|
||
x3B86 ld (hl),a
|
||
inc hl
|
||
djnz x3B86
|
||
pop bc
|
||
dec b
|
||
dec c
|
||
jr nz,x3B68
|
||
call x3BB8 ;®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3B94 à áç¥â ª®«¨ç¥á⢠áâப ¨ á⮫殢 ¤® ª®æ íªà
|
||
x3B94 ld a,#21
|
||
sub c
|
||
ld c,a
|
||
|
||
;€„<E282AC>…‘: #3B98 à áç¥â ª®«¨ç¥á⢠áâப ®â § ¤ ®© ¤® ¨§ íªà
|
||
;¢å: b - ®¬¥à áâப¨
|
||
; ix - ¤à¥á ®¯¨á â¥«ï ªãàá®à
|
||
;¢ëå: b - ª®«¨ç¥á⢮ áâப ¤® ¨§ íªà
|
||
x3B98 ld a,#18
|
||
sub b
|
||
sub (ix+#01)
|
||
ld b,a
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3BA0 à áç¥â ¤à¥á âਡã⮢
|
||
;¢å: b - crd Y
|
||
; c - crd X
|
||
;¢ëå: hl - ¤à¥á âਡã⮢
|
||
x3BA0 push bc
|
||
xor a
|
||
ld d,b
|
||
ld e,a
|
||
rr d
|
||
rr e
|
||
rr d
|
||
rr e
|
||
rr d
|
||
rr e
|
||
ld hl,#5800
|
||
ld b,a
|
||
add hl,bc
|
||
add hl,de
|
||
pop bc
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3BB8 ®¡¬¥ âਡã⮢ basic 128 á ®á®¢ë¬¨ âਡãâ ¬¨
|
||
x3BB8 push af
|
||
push hl
|
||
push de
|
||
ld hl,(#5C8D) ;¯®áâ®ïë¥ âਡãâë íªà
|
||
ld de,(#5C8F) ;¢à¥¬¥ë¥ âਡãâë íªà
|
||
exx
|
||
ld hl,(#EC0F)
|
||
ld de,(#EC11)
|
||
ld (#5C8D),hl
|
||
ld (#5C8F),de
|
||
exx
|
||
ld (#EC0F),hl
|
||
ld (#EC11),de
|
||
ld hl,#EC13
|
||
ld a,(#5C91) ;¯ à ¬¥âàë ¢ë¢®¤ íªà
|
||
ld d,(hl)
|
||
ld (hl),a
|
||
ld a,d
|
||
ld (#5C91),a
|
||
pop de
|
||
pop hl
|
||
pop af
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3BE9 § ¯ã᪠ª®¬ ¤ë randomize 15619: rem: load "boot"
|
||
x3BE9 call x3C56 ;¯ 㧠25 ä३¬®¢
|
||
set 6,(iy+#02)
|
||
res 0,(iy+#02) ;¢ë¢®¤ ®á®¢®© íªà
|
||
rst #08
|
||
db #8D
|
||
ld (#EC0E),a ;a=#07
|
||
ld bc,#0000
|
||
call x372B ;ãáâ ®¢ª ª®®à¤¨ â ¯¥ç ⨠¨§ bc
|
||
ld hl,#EC0E
|
||
ld (hl),#FF
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
ld hl,(#5C59) ; ¤à¥á ç « áâப¨ basic
|
||
ld a,#08
|
||
rst #08
|
||
db #8C ;bc - ¤«¨ ¡¥©á¨ª-áâப¨ ¤«ï ¢â®áâ àâ
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1655 ;१¥à¢¨à®¢ ¨¥ ¬¥áâ (¤«¨ ¢ bc)
|
||
ld de,(#5C59) ; ¤à¥á ç « áâப¨ basic
|
||
ld a,#04
|
||
rst #08 ;ª®¯¨à®¢ ¨¥ áâப¨ ¢â®áâ àâ ¯® ¤à¥áã ¢ de
|
||
db #8C ; ¨ ¯¥à¥å®¤ rom 0: #1B11
|
||
; «¨§ ¨ ¢ë¯®«¥¥¨¥ ¢¢¥¤¥®© áâப¨
|
||
;€„<E282AC>…‘: #3C1C !!!NOT USED!!! ª®¯¨à®¢ ¨¥ ¨ ¢ë¯®«¥¥¨¥ ¡¥©á¨ª áâப¨
|
||
x3C1C nop
|
||
jp x1B0F
|
||
|
||
;€„<E282AC>…‘: #3C20 !!!NOT USED!!! ¡¥©á¨ª áâப
|
||
x3C20 db #F9 ;RANDOMIZE
|
||
db #C0 ;USR
|
||
db #B0 ;VAL
|
||
db '"15619":'
|
||
db #EA ;REM
|
||
db ":"
|
||
db #F7 ;RUN
|
||
db "92,3MOA"
|
||
|
||
;€„<E282AC>…‘: #3C35 ¢®§¢à â ¨§ ¬®â®à
|
||
x3C35 out (c),d
|
||
ld b,#7F
|
||
out (c),e
|
||
pop de
|
||
pop bc
|
||
inc sp
|
||
pop af
|
||
ld r,a
|
||
jp po,x3C47
|
||
pop af
|
||
ei
|
||
ret
|
||
x3C47 pop af
|
||
di
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3C4A !!!NOT USED!!! ¢å®¤ ªã¤ -â® (¯à®¤®«¦¥¨¥ x08E1)
|
||
x3C4A ld (#C001),a
|
||
cpl
|
||
ld (#C002),a
|
||
ld a,#04
|
||
jp x0004
|
||
|
||
;€„<E282AC>…‘: #3C56 ¯ 㧠25 ä३¬®¢
|
||
x3C56 ei
|
||
ld b,#19
|
||
x3C59 halt
|
||
djnz x3C59
|
||
ld hl,#5C3B
|
||
res 5,(hl) ;ª« ¢¨è ¥ ¦ â
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3C63 ⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë á á¨â ªá¨ç¥áª®© ®è¨¡ª®©
|
||
x3C63 ld a,#01
|
||
jr x3C69
|
||
|
||
;€„<E282AC>…‘: #3C67 ⮪¥¨§ æ¨ï áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
x3C67 ld a,#00 ;!!! ¬®¦® xor a
|
||
x3C69 ld (#FD8A),a
|
||
ld hl,#0000
|
||
ld (#FD85),hl
|
||
ld (#FD87),hl
|
||
add hl,sp
|
||
ld (#FD8B),hl
|
||
call x34EA ;®¡ã«¥¨¥ 㪠§ ⥫¥© ¢ ¡¥©á¨ª áâப¥
|
||
ld a,#00 ;!!! ¬®¦® xor a
|
||
ld (#FD84),a
|
||
ld hl,#FD74
|
||
ld (#FD7D),hl
|
||
call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x16B0 ;®ç¨áâª à §«¨çëå ®¡« á⥩ ¯ ¬ïâ¨
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld a,#00 ;!!! ¬®¦® xor a
|
||
ld (#FD81),a
|
||
ld hl,(#5C59)
|
||
ld (#FD82),hl
|
||
ld hl,#0000 ;!!! ¬®¦® ld h,a: ld l,a
|
||
ld (#FD7F),hl
|
||
x3CA1 ld hl,(#FD85)
|
||
inc hl
|
||
ld (#FD85),hl
|
||
call x3D9D ;¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¨ ®¯à¥¤¥«¨âì ¥£® ⨯
|
||
ld c,a
|
||
ld a,(#FD81)
|
||
cp #00
|
||
jr nz,x3CF4
|
||
x3CB3 ld a,c
|
||
and #04
|
||
jr z,x3CED ;íâ® ¥ ¡ãª¢
|
||
x3CB8 call x3DE9 ;!!!Ž˜ˆ<CB9C>Š€
|
||
jr nc,x3CC4 ;¢ ¡ãä¥à¥ ¥â ¬¥áâ
|
||
ld a,#01
|
||
ld (#FD81),a
|
||
jr x3CA1
|
||
x3CC4 ld hl,(#FD7F)
|
||
ld a,l
|
||
or h
|
||
jp nz,x3D1E ;!!! ¬«¦® jr
|
||
x3CCC push bc
|
||
call x3DCD ;ª®¯¨à®¢ ¨¥ á«®¢ ¨§ ¡ãä¥à ¢ áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop bc
|
||
ld a,#00
|
||
ld (#FD81),a
|
||
x3CD6 ld a,c
|
||
and #01
|
||
jr nz,x3CB3
|
||
ld a,b
|
||
call x3E16 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
ret nc
|
||
ld hl,(#FD85)
|
||
inc hl
|
||
ld (#FD85),hl
|
||
call x3D9D ;¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¨ ®¯à¥¤¥«¨âì ¥£® ⨯
|
||
ld c,a
|
||
jr x3CD6
|
||
x3CED ld a,b
|
||
call x3E16 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
ret nc
|
||
jr x3CA1
|
||
x3CF4 cp #01
|
||
jr nz,x3CED
|
||
ld a,c
|
||
and #01
|
||
jr z,x3CB8
|
||
push bc
|
||
x3CFE call x3F7E ;à ᯮ§ ¢ ¨¥ ⮪¥
|
||
pop bc
|
||
jr c,x3D7D ;⮪¥ à ᯮ§
|
||
ld hl,(#FD7F)
|
||
ld a,h
|
||
or l
|
||
jr nz,x3D1E
|
||
ld a,c
|
||
and #02
|
||
jr z,x3CCC
|
||
call x3DE9 ;¢áâ ¢¨âì ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
jr nc,x3CC4 ;¥â ¬¥áâ ¢ ¯ ¬ïâ¨
|
||
ld hl,(#FD7D)
|
||
dec hl
|
||
ld (#FD7F),hl
|
||
jr x3CA1
|
||
x3D1E push bc
|
||
ld hl,#FD74
|
||
ld de,(#FD7F)
|
||
ld a,d ;!!!¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
cp h
|
||
jr nz,x3D2F
|
||
ld a,e
|
||
cp l
|
||
jr nz,x3D2F
|
||
inc de
|
||
x3D2F dec de
|
||
jr x3D33
|
||
x3D32 inc hl
|
||
x3D33 ld a,(hl)
|
||
and #7F
|
||
push hl
|
||
push de
|
||
call x3E16 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
pop de
|
||
pop hl
|
||
ld a,h
|
||
cp d
|
||
jr nz,x3D32
|
||
ld a,l
|
||
cp e
|
||
jr nz,x3D32
|
||
ld de,(#FD7F)
|
||
ld hl,#FD74
|
||
ld (#FD7F),hl
|
||
ld bc,(#FD7D)
|
||
dec bc
|
||
ld a,d
|
||
cp h
|
||
jr nz,x3D70
|
||
ld a,e
|
||
cp l
|
||
jr nz,x3D70
|
||
inc de
|
||
push hl
|
||
ld hl,#0000
|
||
ld (#FD7F),hl
|
||
pop hl
|
||
ld a,b
|
||
cp h
|
||
jr nz,x3D70
|
||
ld a,c
|
||
cp l
|
||
jr nz,x3D70
|
||
pop bc
|
||
jr x3D8F
|
||
x3D70 ld a,(de)
|
||
ld (hl),a
|
||
inc hl
|
||
inc de
|
||
and #80
|
||
jr z,x3D70
|
||
ld (#FD7D),hl
|
||
jr x3CFE
|
||
x3D7D push bc
|
||
call x3E16 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
pop bc
|
||
ld hl,#0000
|
||
ld (#FD7F),hl
|
||
ld a,(#FD81)
|
||
cp #04
|
||
jr z,x3D94
|
||
x3D8F ld a,#00
|
||
ld (#FD81),a
|
||
x3D94 ld hl,#FD74
|
||
ld (#FD7D),hl
|
||
jp x3CB3
|
||
|
||
;€„<E282AC>…‘: #3D9D ¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë ¨ ®¯à¥¤¥«¨âì ¥£® ⨯
|
||
;¢ëå: b - ª®¤ ᨬ¢®«
|
||
; a=#01 - ¯à®ç¨¥ ᨬ¢®«ë
|
||
; a=#02 - íâ® # ¨«¨ $
|
||
; a=#03 - íâ® ¯à®¡¥«
|
||
; a=#06 - íâ® ¡ãª¢
|
||
x3D9D call x2D54 ;¯®«ãç¨âì ®ç¥à¥¤®© ᨬ¢®« ¨§ áâப¨ ¡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld b,a
|
||
cp #3F
|
||
jr c,x3DAF
|
||
or #20
|
||
call x3DC6 ;¯à®¢¥àª ᨬ¢®« ¯à¨ ¤«¥¦®áâì ª ¡ãª¢ ¬ ¨¦¥£® ॣ¨áâà
|
||
jr c,x3DC3 ;íâ® ¡ãª¢
|
||
x3DAC ld a,#01 ;¯à®ç¥¥
|
||
ret
|
||
x3DAF cp #20
|
||
jr z,x3DC0 ;íâ® ¯à®¡¥«
|
||
cp "#"
|
||
jr z,x3DBD
|
||
jr c,x3DAC
|
||
cp "$"
|
||
jr nz,x3DAC
|
||
x3DBD ld a,#02 ;íâ® # ¨«¨ $
|
||
ret
|
||
x3DC0 ld a,#03 ;íâ® ¯à®¡¥«
|
||
ret
|
||
x3DC3 ld a,#06 ;íâ® ¡ãª¢
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3DC6 ¯à®¢¥àª ᨬ¢®« ¯à¨ ¤«¥¦®áâì ª ¡ãª¢ ¬ ¨¦¥£® ॣ¨áâà
|
||
;¢å: a - ª«®¤ ᨬ¢®«
|
||
;¢ëå: cy=1 ᨬ¢®« íâ® ¡ãª¢ ¢ ¨¦¥¬ ॣ¨áâà¥
|
||
x3DC6 cp #7B
|
||
ret nc
|
||
cp #61
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3DCD ª®¯¨à®¢ ¨¥ á«®¢ ¨§ ¡ãä¥à ¢ áâப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
x3DCD ld hl,#FD74
|
||
ld (#FD7D),hl
|
||
sub a
|
||
ld (#FD7F),a
|
||
ld (#FD80),a
|
||
x3DDA ld a,(hl)
|
||
and #7F
|
||
push hl
|
||
call x3E9C ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ¨£®à¨à®¢ ¨¥¬ ¯à®¡¥«®¢
|
||
pop hl
|
||
ld a,(hl)
|
||
and #80
|
||
ret nz
|
||
inc hl
|
||
jr x3DDA
|
||
|
||
;€„<E282AC>…‘: #3DE9 ¢áâ ¢¨âì ᨬ¢®« ¢ ¡ãä¥à । ªâ¨à®¢ ¨ï
|
||
;¢å: b - ª®¤ ᨬ¢®«
|
||
; cy=0 ¥â ¬¥áâ ¢ ¡ãä¥à¥
|
||
x3DE9 ld hl,(#FD7D)
|
||
ld de,#FD7D
|
||
ld a,d
|
||
cp h
|
||
jr nz,x3DF8
|
||
ld a,e
|
||
cp l
|
||
jp z,x3E13 ;!!!¬®¦® jr
|
||
x3DF8 ld de,#FD74
|
||
ld a,d
|
||
cp h
|
||
jr nz,x3E03
|
||
ld a,e
|
||
cp l
|
||
jr z,x3E09
|
||
x3E03 dec hl
|
||
ld a,(hl)
|
||
and #7F
|
||
ld (hl),a
|
||
inc hl
|
||
x3E09 ld a,b
|
||
or #80
|
||
ld (hl),a
|
||
inc hl
|
||
ld (#FD7D),hl
|
||
scf
|
||
ret
|
||
x3E13 scf
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3E16 ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª®© < ¨ >
|
||
;¢å: a - ª®¤ ᨬ¢®«
|
||
x3E16 push af ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld a,(#FD89)
|
||
or a
|
||
jr nz,x3E2F
|
||
pop af
|
||
cp ">"
|
||
jr z,x3E2A
|
||
cp "<"
|
||
jr z,x3E2A
|
||
x3E26 call x3E64 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª® REM ¨ ª ¢ë祪
|
||
ret ;!!!¬®¦® ᮪à â¨âì
|
||
x3E2A ld (#FD89),a
|
||
scf
|
||
ret
|
||
x3E2F cp "<"
|
||
ld a,#00
|
||
ld (#FD89),a
|
||
jr nz,x3E52
|
||
pop af
|
||
cp ">"
|
||
jr nz,x3E41
|
||
ld a,#C9 ;⮪¥ <>
|
||
jr x3E26
|
||
x3E41 cp "="
|
||
jr nz,x3E49
|
||
ld a,#C7 ;⮪¥ <=
|
||
jr x3E26
|
||
x3E49 push af
|
||
ld a,"<"
|
||
call x3E64 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª® REM ¨ ª ¢ë祪
|
||
pop af
|
||
jr x3E26
|
||
x3E52 pop af
|
||
cp "="
|
||
jr nz,x3E5B
|
||
ld a,#C8 ;⮪¥ >=
|
||
jr x3E26
|
||
x3E5B push af
|
||
ld a,">"
|
||
call x3E64 ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª® REM ¨ ª ¢ë祪
|
||
pop af
|
||
jr x3E26
|
||
|
||
;€„<E282AC>…‘: #3E64 ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ®¡à ¡®âª® REM ¨ ª ¢ë祪
|
||
;¢å: a - ª®¤ ᨬ¢®«
|
||
x3E64 cp #0D
|
||
jr z,x3E88 ;íâ® enter
|
||
cp #EA
|
||
ld b,a
|
||
jr nz,x3E74 ;íâ® ¥ REM
|
||
ld a,#04
|
||
ld (#FD81),a
|
||
jr x3E82
|
||
x3E74 cp #22 ;"
|
||
jr nz,x3E82 ;íâ® ¥ "
|
||
ld a,(#FD81)
|
||
and #FE
|
||
xor #02
|
||
ld (#FD81),a
|
||
x3E82 ld a,b
|
||
call x3E9C ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ¨£®à¨à®¢ ¨¥¬ ¯à®¡¥«®¢
|
||
scf
|
||
ret
|
||
x3E88 ld a,(#FD8A)
|
||
cp #00
|
||
jr z,x3E99
|
||
ld bc,(#FD85) ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld hl,(#FD8B)
|
||
ld sp,hl
|
||
scf
|
||
ret
|
||
x3E99 scf
|
||
ccf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3E9C ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë á ¨£®à¨à®¢ ¨¥¬ ¯à®¡¥«®¢
|
||
;¢å: a - ª®¤ ᨬ¢®«
|
||
;¢ëå: a - ®¢ë¥ ä« £¨ áâப¨
|
||
x3E9C ld e,a
|
||
ld a,(#FD84)
|
||
ld d,a
|
||
ld a,e
|
||
cp " "
|
||
jr nz,x3EC6 ;íâ® ¥ ¯à®¡¥«
|
||
ld a,d
|
||
and #01
|
||
jr nz,x3EBF ;¯à¥¤ë¤ã騩 ᨬ¢®« ¡ë« ⮪¥®¬
|
||
ld a,d
|
||
and #02
|
||
jr nz,x3EB7 ;¯à¥¤ë¤ã騩 ᨬ¢®« ¡ë« ¯à®¡¥«®¬
|
||
ld a,d
|
||
or #02
|
||
ld (#FD84),a
|
||
ret
|
||
x3EB7 ld a,e
|
||
call x3EFB ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ld a,(#FD84)
|
||
ret
|
||
x3EBF ld a,d
|
||
and #FE
|
||
ld (#FD84),a
|
||
ret
|
||
x3EC6 cp #A3
|
||
jr nc,x3EEE ;í⮠⮪¥
|
||
ld a,d
|
||
and #02
|
||
jr nz,x3EDA ;¯®á«¥¤¨© ᨬ¢®« ¡ë« ¯à®¡¥«®¬
|
||
ld a,d
|
||
and #FE
|
||
ld (#FD84),a
|
||
ld a,e
|
||
call x3EFB ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ret ;!!!¬®¦® ᮪à â¨âì
|
||
x3EDA push de
|
||
ld a," "
|
||
call x3EFB ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
pop de
|
||
ld a,d
|
||
and #FE ;!!!¬®¦® ᮪à â¨âì
|
||
and #FD
|
||
ld (#FD84),a
|
||
ld a,e ;!!!¬®¦® ᮪à â¨âì jr x3ED2
|
||
call x3EFB ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ret ;!!!¬®¦® ᮪à â¨âì
|
||
x3EEE ld a,d
|
||
and #FD
|
||
or #01
|
||
ld (#FD84),a ;!!!¬®¦® ᮪à â¨âì jr x3ECF
|
||
ld a,e
|
||
call x3EFB ;¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3EFB ¢áâ ¢ª ᨬ¢®« ¢ áப㠡¥©á¨ª ¯à®£à ¬¬ë
|
||
;¢å: a - ª®¤ ᨬ¢®«
|
||
; de - ¤à¥á ¢ áâப¥ ¤«ï ¢áâ ¢ª¨
|
||
x3EFB ld hl,(#FD87)
|
||
inc hl
|
||
ld (#FD87),hl
|
||
ld hl,(#FD82) ; ¤à¥á ¢ áâப¥ ¤«ï á«¥¤ãî饩 ¢áâ ¢ª¨
|
||
ld b,a
|
||
ld a,(#FD8A)
|
||
cp #00 ;!!! ¬®¦® or a
|
||
ld a,b
|
||
jr z,x3F33
|
||
ld de,(#5C5F) ; ¤à¥á ᨬ¢®« ¯®á«¥ ¬ àª¥à ®è¨¡ª¨
|
||
ld a,h ;!!! ¬®¦® ®¯â¨¬¨§¨à®¢ âì
|
||
cp d
|
||
jr nz,x3F30
|
||
ld a,l
|
||
cp e
|
||
jr nz,x3F30
|
||
ld bc,(#FD85) ;!!!Ž˜ˆ<CB9C>Š€!!!
|
||
ld hl,(#FD87)
|
||
and a
|
||
sbc hl,bc
|
||
jr nc,x3F2A
|
||
ld bc,(#FD87)
|
||
x3F2A ld hl,(#FD8B)
|
||
ld sp,hl
|
||
scf
|
||
ret
|
||
x3F30 scf
|
||
jr x3F35
|
||
x3F33 scf
|
||
ccf
|
||
x3F35 call x1F20 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 0
|
||
jr nc,x3F47
|
||
ld a,(hl) ;!!!Ž˜ˆ<CB9C>Š€!!! inc hl:ld a,(hl):dec hl
|
||
ex de,hl
|
||
cp #0E
|
||
jr nz,x3F5D ;¥ ç¨á«®
|
||
inc de
|
||
inc de
|
||
inc de
|
||
inc de
|
||
inc de
|
||
jr x3F5D
|
||
x3F47 push af
|
||
ld bc,#0001
|
||
push hl
|
||
push de
|
||
call x3F66 ;¯à®¢¥àª «¨ç¨ï ᢮¡®¤®£® ¬¥áâ ¢ ¯ ¬ïâ¨
|
||
pop de
|
||
pop hl
|
||
rst #28 ;¢ë§®¢ ¯à®æ¥¤ãàë ¨§ basic 48k
|
||
dw Rom1.x1664 ;®¡®¢«¥¨¥ á¨á⥬ëå ¯¥à¥¬¥ëå
|
||
ld hl,(#5C65)
|
||
ex de,hl
|
||
lddr
|
||
pop af
|
||
ld (de),a
|
||
x3F5D inc de
|
||
call x1F45 ;ãáâ ®¢ª ¤à㣮£® áâíª ¨ ram 7
|
||
ld (#FD82),de
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3F66 ¯à®¢¥àª «¨ç¨ï ᢮¡®¤®£® ¬¥áâ ¢ ¯ ¬ïâ¨
|
||
;¢å: bc - ª®«¨ç¥á⢮ ¡ ©â
|
||
;¢ëå: ¥á«¨ ¬¥áâ ¢ ¯ ¬ï⨠¥â, ¯¥à¥å®¤ ®¡à ¡®âªã ®è¨¡ª¨: 4 Out of memory
|
||
x3F66 ld hl,(#5C65)
|
||
add hl,bc
|
||
jr c,x3F76
|
||
ex de,hl
|
||
ld hl,#0082
|
||
add hl,de
|
||
jr c,x3F76
|
||
sbc hl,sp
|
||
ret c
|
||
x3F76 ld a,#03
|
||
ld (#5C3A),a
|
||
jp x0321
|
||
|
||
;€„<E282AC>…‘: #3F7E à ᯮ§ ¢ ¨¥ ⮪¥
|
||
;¢ëå: cy=1 ⮪¥ à ᯮ§ -> a - ª®¤ ⮪¥
|
||
x3F7E call #FD2E ;à ᯮ§ ¢ ¨¥ ⮪¥ (x33F4)
|
||
ret c ;⮪¥ ¥ à ᯮ§
|
||
ld b,#F9
|
||
ld de,#FD74
|
||
ld hl,x3594 ;⮪¥ë basic 128
|
||
call #FD3B ;à ᯮ§ ¢ ¨¥ ⮪¥ (x3401)
|
||
ret nc ;⮪¥ ¥ à ᯮ§
|
||
cp #FF ;íâ® CLOSE# ?
|
||
jr nz,x3F96
|
||
ld a,#D4 ;CLOSE #
|
||
jr x3FB8
|
||
x3F96 cp #FE ;íâ® OPEN# ?
|
||
jr nz,x3F9E
|
||
ld a,#D3 ;OPEN #
|
||
jr x3FB8
|
||
x3F9E cp #FD ;íâ® DEFFN ?
|
||
jr nz,x3FA6
|
||
ld a,#CE ;DEF FN
|
||
jr x3FB8
|
||
x3FA6 cp #FC ;íâ® GOSUB ?
|
||
jr nz,x3FAE
|
||
ld a,#ED ;GO SUB
|
||
jr x3FB8
|
||
x3FAE cp #FB ;íâ® GOTO ?
|
||
jr nz,x3FB6
|
||
ld a,#EC ;GO TO
|
||
jr x3FB8
|
||
x3FB6 sub #56
|
||
x3FB8 scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3FBA ª®¯¨à®¢ ¨¥ áâப¨ ¨§ hl ¢ de ¢ (hl+0) ª®«-¢® ¡ ©â
|
||
x3FBA ld b,(hl)
|
||
inc hl
|
||
x3FBC ld a,(hl)
|
||
ld (de),a
|
||
inc de
|
||
inc hl
|
||
djnz x3FBC
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3FC3 !!!NOT USED!!! ¯à¥®¡à §®¢ ¨¥ ASCII ¢ æ¨äàã
|
||
x3FC3 cp "0"
|
||
ccf
|
||
ret nc
|
||
cp "9"+1
|
||
ret nc
|
||
sub #30
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3FCE ®¡à ¡®âª ¦ ⮩ ã¯à ¢«ïî饩 ª« ¢¨è¨
|
||
;¢ëå: cy=0, nz - ¥ ©¤¥ ®¡à ¡®â稪 ª« ¢¨è¨
|
||
; cy=0, z - ª« ¢¨è ®¡à ¡®â , 㦥 §¢ãª®¢®© ᨣ «
|
||
; cy=1, z - ª« ¢¨è ®¡à ¡®â §¢ãª®¢®© ᨣ « ¥ 㦥
|
||
x3FCE push bc
|
||
push de
|
||
ld b,(hl)
|
||
inc hl
|
||
x3FD2 cp (hl)
|
||
inc hl
|
||
ld e,(hl)
|
||
inc hl
|
||
ld d,(hl)
|
||
jr z,x3FE1 ;ª« ¢¨è ©¤¥ . ¢ de ¤à¥á
|
||
inc hl
|
||
djnz x3FD2
|
||
scf
|
||
ccf
|
||
pop de
|
||
pop bc
|
||
ret
|
||
x3FE1 ex de,hl
|
||
pop de
|
||
pop bc
|
||
call x3FEE ;call (hl)
|
||
jr c,x3FEB
|
||
cp a
|
||
ret
|
||
x3FEB cp a
|
||
scf
|
||
ret
|
||
|
||
;€„<E282AC>…‘: #3FEE ¢ë§®¢ call (hl)
|
||
x3FEE jp (hl)
|
||
|
||
;€„<E282AC>…‘: #3FEF ¨¨æ¨ «ë ¯à®£à ¬¬¨á⮢
|
||
x3FEF db #00,"MB" ;Martin Brennan
|
||
db #00,"SB" ;Steve Berry
|
||
db #00,"AC" ;Andrew Cummins
|
||
db #00,"RG" ;Rupert Goodwins
|
||
db #00,"KM" ;Kevin Males
|
||
db #00,#01 ;end of rom marker
|
||
|
||
SAVEBIN "../Build/scorp/NewROM0.bin",#0000,#4000
|
||
|