        Z80ASM - ஠ᥬ  ZX-Spectrum   IBM PC
            (C) Copyright 1998, . , -

                            ( 1.02)

                             
                             ==========



   

 
  ⪨
  ⠭
  ६





 
  ४⨢ ORG  LIB
  ४⨢ MODULE
  ४⨢ PUBLIC  EXTRN
  ४⨢ IF, IF1, IF2, IFDEF, IFNDEF, IFB, IFNB, IFIDN, IFDIF, ELSE, ENDIF
  ४⨢ IF
  ४⨢ IF1  IF2
  ४⨢ IFDEF  IFNDEF
  ४⨢ IFB  IFNB
  ४⨢ IFIDN  IFDIF
  ४⨢ COMMENT
  ४⨢ INCLUDE
  ४⨢ INCLUDEBIN
  ४⨢ INCLUDELIB
  ४⨢ LOCALS  NOLOCALS
  ४⨢ PROC  ENDP
  ४⨢ NAME
  ४⨢ END
  ४⨢ DEFB, DB, DEFW, DW, DEFS, DEFM   DUP
  ४⨢ MAC  ENDM
  ४⨢ LOCAL
  ४⨢ REPT  ENDREP
  ४⨢ ECHO  USERERR

  STKDATA  FLOAT

 

 

 

 I.  

 II.   () SPECTRUM-






   ⮬ 䠩 ᮤঠ ᭮ ᢥ  ᥬ Z80ASM, 
 ᢮  ணࠬ ।⢠ ᨮ ணࠬ⮬,
ᮡ, 饣  ࠡ  ᥬࠬ GENS  HiSoft.  
Z80ASM  㭠᫥   ⮣ ᥬ -  ᤥ  ⮣,
⮡ ⥪, ᮧ  GENS 室    ஢
 ७    . 筮, ⮡  
ᥬ 諮 -     ࠩ  ४⨢,
ਡ Z80ASM  㭪樮쭮  ⠪  ᥬࠬ,  TASM
(Turbo,   Table)  Borland  MASM ௮樨 Microsoft, ᯮ㥬
 IBM-ᮢ⨬ . ,      
 맮 ࠧࠦ   ᠬ  ਢথ楢 GENS.

  ᥬ Z80ASM :

  - ᯮ짮  室 ⥪ ࠤ樮  ZX-Spectrum ᨭ⠪
    ணࠬ  몥 ᥬ ( ⫨稥  ᫥ ⨯ଭ
    cross-  table-ᥬ஢)   直 䠩 ᨭ (!)
  - ࠢ ࠭樥 ।⢮ ਬ ୮  ४⨢
    ᫮ ࠭樨 (ࠪ᪨   砨 )
  -  ᯮ塞 䠩  ࠧ ଠ, ਣ  
    ᯮ짮  , ⠪   ७  "" 
  - 짮 ࠭ ⮢묨 ⥪ ꥪ  (⠪
           cross-table')  ⮬᪨ ⡮஬
    ⮫쪮 ᯮ㥬  ணࠬ 㫥 (祭 ᮦ,   ᨨ
    SHAREWARE   ᪫祭)
  -   ꥪ  ࠣ   䠩
  - ᯮ짮 ப   ᮧ ⨭  
    㭨ᠫ ᮢ  ६ ⢮  ந ᮤন
    ࠬ஢,  ⠪  ७ ⪠
  - ஢ ⥪⮢ ப  ந ஢ ( ࠩ
      ᮧ "᪮" ணࠬ)
  - ਬ ஥   ॢ  ᥫ  饩
    窮  ਭ⮥  㬥 ⨡⮢ ।⠢  
    㯠 , ᯮ㥬 ணࠬ 
  - ᯮ짮  ⪨  ।   ⢨
  -    㣮,  祬 㤥 ᪠ 

  ᥬ Z80ASM ࠡ⠥  ⭮ ०. ० ᥣ 室
ᮧ 室 䠩 ணࠬ  몥 ᥬ  - ⥪⮢
।  ஢  ⥪⮢ ଠ IBM-ᮢ⨬ ஢
䠩, ।祭  ᥬ GENS ( 㣮). ⥬  
ப DOS 㦭   

Z80ASM[.EXE] [[४⥫][室_䠩 [室_䠩 [䠩_⨭]]]]

樨   ᪮  易⥫묨. ᫨  ணࠬ
Z80ASM   ࠬ஢,  ࠭ 뢮 ᪠.
  ४⥫    ࠡ Z80ASM  㦠  ⨢
 ᫮ ࠭樨  ࠢ 室 䠩.  ४⥫
।⠢ ᮡ 㪢 ᮪饭, ।塞 ᨬ "-"  "/".
। :

  -L  /L   - ࠧ 뢮 ⨭ ࠭樨  䠩 (⮫쪮 
                ᯮ塞 䠩,  ⥪  ᮧ)
  -N  /N   -  䠩 ⨭ 뢮 ⮫쪮 祭 ᨬ 
                (४⥫ -L 㪠뢠  易⥫쭮)
  -E  /E   -  ᨬ쭮 ⨬ ᫮ 訡,  ⨦
                ண ࠭ ४頥; ᫥  ४⥫
                㪠뢠 筮 ᫮, ਬ -e20 ( 㬮砭
                뢮 10 ᮮ饭  訡)
  -C  /C   - ⪫ ஫ 祭 ࠭ 64K
  -T  /T   - ࠭ ᯮ塞   ଠ 䠩 ࠧ
                䮭    (  㬮砭)
  -H  /H   - ࠭ ᯮ塞   ଠ ணࠬ HoBeta
  -B  /B   - ࠭ ᯮ塞   ଠ,   䠩

  ᫨   室 䠩  㪠 ७,  㬮砭 ਭ
७ ".ZA". ७ 室 䠩 㪠뢠  㦭, ⠪  
砥 ணࠬ ⮬᪨  ᨬ  ॡ ଠ
१饣 䠩. ଠ 䠩 ࠧ 䮭   ஢
 ७ ".TAP", 䠩 ணࠬ HoBeta, ࠡ饩  ᪠ TR-DOS,
ਭ ७ ".$C" (᪮ ᮧ ᯥ㬮᪨ 䠩 
⨯ CODE),  䠩 ࠤ樮 ਤ ७ ".BIN" , ,
䠩 ⥪ ꥪ⭮  砥 ७ ".ZL". ᫨ 
室 䠩  㪠, ᫥  室 䠩.  ᯮ짮
 -L 㤥 ᮧ (᫨ ᥬ஢ 諮 ᯥ譮,  ࠩ ,
 ࢮ 室) 䠩 ⨭ ࠭樨  ࠤ樮 ७ ".LST".
    㬮砭 ᫥   室 䠩.

  ࠭ 믮   室.  ࢮ ⠢ ⪨,
 祭 ⠭,   뫮 ।  
ॡ ⥪.  ஬ 室  ꥪ ,
 ⠢訥 ।묨 ⠭  뢮 
ᯥ஢ 䠩 (᫨  뫮 ࠧ襭 㪠 ४⥫ -L
 -N   ப) ⨭ ࠭樨.   ண 室
祭 ꥪ  㫥 ᮡ  ⥪  
 ᯮ塞 .


   


  ⮡ ࠭ 䠩   ᯥ譮 믮   﫨
ࠧ㬨⥫ ᮮ饭  ᥢ 訡, ᫥ ண
ਤন ॡ  ଠ 室 ⥪. Z80ASM ᯮ
ᮢ襭 ࠤ樮 ଠ  ४⨢  権 ᥬ,
⮬  ᮡ 㦤 ஡ ⠭  ⮬ . 
⮫쪮,    뢠  ⤥쭮 ப  
ப   ,   :

     ⮪    ࠭  ਥ
   Ŀ
    LABEL      LD            HL,#4000       ;  砫 

        ய饭,  ᪠  
浪  ᫥,  , ਬ, ⪠    ᠭ
᫥ . ஬ ⮣, ࠭      ᫠.
  ⤥   㣠  ⢮ ஡  㣨
஡ ᨬ (ਬ, ᨬ ⠡樨).
    ப  ᯮ짮  , ⠪  ய 㪢,
᪮ । ࠭樥 ᥬ ॢ  㪢,  ᪫祭
ப, 祭     窨,  孨 ॣ.


 


   ᯮ  ⢥ ⮪, ६  ⠭.  
砥    ।  ।⢥  塞
 室 ࠭樨 祭.   ।⠢ ᮡ ᫥⥫쭮
⨭᪨ 㪢 (  ॣ),   ᫥ ᯥ樠 ᨬ:

  !  #  $  %  ?  @  ^  _  ~  \  |  `

 ⠢  㦭  ᫥騥 ࠢ:

  -    稭    ᨬ '#', '%', '$'
  -    ⨣ 32 ᨬ,    १
  -    㭨 (஬ ६),     
    ।   ࠧ
  -    㡫஢  権, ४⨢ ᥬ,
      १ࢨ஢ ᫮, ।⠢騥 ᮡ 
    ॣ஢  祭 ᫮ (   ਢ  ਫ I)

  ⪨
  -----
  ᨭ⠪:
	[:]

   ࠢ, ⪨ ᯮ  ।  ࢮ 
ணࠬ  ࢮ   (,    㣨 ਬ)
 祭  饭  ⮩ ணࠬ    ᨬ쭮
. 設⢮ ᥬ஢ ॡ ⠭ ᫥  
 ਧ ⪨,   GENS  ࠢ  . ⮬  楫
ᮢ⨬  GENS  ᥬ Z80ASM 稥 ᫥  ⪨ 
 易⥫. , ⮡   ࠧ㬥, 
  ᮧ ⥪ ⠭  ᫥  ⮪  
४.

  ⠭
  ---------
  ᨭ⠪:
	 EQU 祭

  㣨 ᯮᮡ । 祭 ᨬ   ᯮ짮
⠭.  ࠭樨  ⠭    ꥪ ,
 ⠭  ᯮ짮  祭  ࠭ 権
ᥬ   樨 . ८। 祭 ⠭
 Z80ASM  ᪠.
  祭   ।⢥ ᫮, 㣨 ᨬ 
 ࠦ. ४⨢ EQU ᪠ ।   ࢮ
室 ࠭樨,  ᫨   ஬ 室   ᬮ 
᫥,  ᮮ饭  訡.  ਢ ਬ ⠪
"⮢" 樨:

	Label:
	Name1	EQU	Name2
	Name2	EQU	Name3
	Name3	EQU	Label

   ⮬ ਬ  ࢮ 室   । ⮫쪮  Name3.
 ஬ 室   ᫥ 祭  Name2,  Name1 ⠪
 ⠭ ।,   ਢ   ᮮ饭
 訡.

  ६
  ----------
  ᨭ⠪:
	 = 祭

   । ᨬ 祭 ஬ ⠭  ᯮ짮
६.  ,   ⠭,     ꥪ  
   १ࢨ . ⫨稥 ६  ⠭ 砥
 ⮬,   祭      ८। , ஬
⮣, ࠦ, 饥 祭 ६,   । 㦥
 ࢮ 室 (   ࠦ  ᪠ ᯮ짮 뫮
।).





    ,  ॡ 㪠 ᫮ 祭 ( ⠪
樨 ᥬ,  BIT, SET, RES, RST  IM,  ᫮ ࠭,
 ,   塞묨,  ।⠢ ᮡ 
ਭ)  ᯮ짮 ࠦ. ࠦ  
ந쭮 ⢮ 権,  㦭 ,  ਮ⭮
믮  権 (஬ 㭠) Z80ASM  ন  ᪮
  浪 ᫥ ᯮ짮   (᪮ 㣫
᪮   Z80  ਧ 樨).
   ࠦ  ਬ ᫥騥 :

   (믮騥   ࠭)
	HIGH	訩  ᫠
	LOW	訩  ᫠
	+	 ᫠ ⠥ 
	-	 ᫠   ⨢
	NOT	栭 (஢ ⮢)

( HIGH  LOW  訬 ਮ⮬  ࠢ  +, -  NOT.)

   (믮  ன ࠭)
	+	᫮
	-	⠭
	*	㬭
	/	 楫
	MOD	⮪  , A MOD B = A - (A / B) * B
	AND	ࠧ來 
	OR	ࠧ來 
	XOR	ࠧ來 ᪫饥 
	SHL	ᤢ ⮢ 
	SHR	ᤢ ⮢ ࠢ

( ᯮ짮 ஢ ᤢ , 室騥  । ࠧ來
⪨, 稢.)

  ᪨ (᫨ ᫮ 믮, १⮬ 㤥 1,  0)
	=	ࠢ
	<	
	>	
	<=	  ࠢ
	>=	  ࠢ
	<>	 ࠢ

 "?", "&", "@"  "!", ᯮ㥬묨  ᥬ GENS  祭
஢ MOD, AND, OR  XOR, 諮 ⢮, ᪮   
뫮  ਬ  ⢥ ࢮ ᨬ  (஬ ᠭ),  祭
 ⥫  ⠪ .  ᠥ ᠭ,  
ᯮ   ⥭樨 - (. ᫥騩 ࠧ "").

  ᫮ 祭  ࠦ  㬮砭   筮 ଠ,
  ⭠筮 ᫠ ।  室 ⠢  "#",
  ⠭ । ᨬ "%". 祭  
⠪ ᨬ묨 ப, 祭묨     窨.
砥  ⮬ 稭  ᮮ⢥⢮ ASCII- ᨬ
ப (ਬ, '0' ࠢ #30,  '01' - #3031).
   ⢥ ࠭ ࠦ  ⠪ ᯮ짮 ᨬ .
   ⪨, ⠭, ६   楤.  ᪠
ᯮ짮  ࠦ ⮫쪮  ᮢ  㫥, ᪮ 
  頥  ᫮ 祭,     ᪨.
   祭 ⥪饣  ࠭樨  ਬ ᨬ "$". 
ᥬ஢  ॢ頥   ࢮ  ⥪饩 樨
 ᪫祭 । DEFB (DB)  DEFW (DW),   㪠뢠  
ࠧ饭 ⥪饣   ᫮.





   ᫥  䬥᪨  ᪨ ஢ 
 ம.   , ᠭ (&), 㦨  ⥭樨
ᨬ ப  ᯮ २⢥  . ਬ,
᫨ । 

	CreateLabel	MAC	suffix
		Label&suffix:
			ENDM

  ⨬ ᫥ 맮

	CreateLabel First

  १  ⪠   LabelFirst.
  ⭮  ம஬ ⥭樨  ᯮ짮 
᫮ 祭 %, ॢ騩 ᫥   ᥬ   ᫮
筮 ।⠢. ਬ, ࠣ 

	num = 1
		REPT 3
		cp	&%num
		jp	z,Label&%num
	num = num + 1
		ENDREP

 ࠭樨 ॢ  ⠪ ᫥⥫쭮 :

		cp	1
		jp	z,Label1
		cp	2
		jp	z,Label2
		cp	3
		jp	z,Label3

   ᯮ짮  ᫮ 祭 㦭 , -, 
 易⥫쭮  ᫥  ᠭ (  ਭ 
 ᨬ  ,   ਧ 筮 ᫠),  -, 
, 㪠 ᫥ ᨬ 業,   । 㦥  ࢮ
室 ࠭樨.
  ம &  &% ᪠ ᯮ짮   ப, 祭
    窨. ᫨  ப  ᮤঠ ᠭ
( ᠭ  業⮬)   ᨬ,  㦭 㤢, ᠢ '&&'
( '&&%').


 


  ४⨢ ORG  LIB
  -------------------
	ᨭ⠪:
		ORG ࠦ
		LIB

    ४⨢ 㦠  㪠 ⨯ ᮧ 室 䠩.
 ᯮ짮 ४⨢ LIB 㤥 ᮧ ⥪,  ꥪ
 ।  室 䠩 㫥.  ᫥饬 ⠪ ⥪
  祭   ணࠬ  室 ୮ ࠭樨
(筥, 室 ⥪  ⥪ ᮤন  ।ᥬ஢ 
   ࠭᫨஢ ⥫쭮 ॥). ,  
SHAREWARE ᯮ짮 ⥪  .
  ४⨢ ORG ।뢠 ᥬ ࠭᫨஢ 室 ⥪ 
ᯮ塞 . ஬ ⮣,  ⮩  ४⨢ ।  樨
ணࠬ,  ⠪ ࠦ, ஥   
᫥.  室 ⥪  稭     
४⨢,   ⢨ ᥬ  ᬮ  ࠭  뤠
ᮮ饭  ⠫쭮 訡.   ४⨢ ORG  LIB  
। ᮢ,  ⠪ ᯮ짮 ४⨢ ᫮ ࠭樨,
INCLUDE  INCLUDELIB. ᫮, ᪠  ਨ. ४⨢ ORG
   祭 -   ࠧ । 砫 
 १ࢨ஢  "MAIN".    ⮩ 稭,   ⪠,
⠭  ६   ਢ易  - ,  
 室 ⥪ ४⨢ ORG (     ⥪)
 । .
    ४⨢    室 ⥪ ⮫쪮 ⭮.

  ४⨢ MODULE
  ----------------
	ᨭ⠪:
		MODULE 

   ४⨢ ᯮ  ᮧ ⥪.  । 砫
⥪饣    . 稢    ᫥饩 ४⨢
MODULE,    ᭮ (  砥) 室 ⥪.
  祭 㫥 ᢮  ⮬, ⮡, -,  
ᯮ塞     ⥪,  ⮫쪮 ⢨⥫쭮
ᯮ㥬  ணࠬ ࠣ,  -, 㫨 ࠭稢 
⢨    ᪫祭 ᮡ ७ (. ᠭ ४⨢
PUBLIC  EXTRN ).

  ४⨢ PUBLIC  EXTRN
  ------------------------
	ᨭ⠪:
		PUBLIC _1, _2, _3,...
		EXTRN  _1, _2, _3,...

   ⨬  ४⨢ ⢫   ࠧ묨
ﬨ ணࠬ. , ।  ४⨢ PUBLIC,  
ᯮ짮    ணࠬ,   祭 㯠   
    ᮮ⢥饬 㫥   ४⨢ EXTRN.
  ਬ:

	MODULE	Module1	;  "Module1"
	PUBLIC	Proc1	; 楤 "Proc1"   饤㯭
	Proc1	PROC	; 砫 楤 "Proc1"
	.............
	MODULE	Module2	;  "Module2"
	EXTRN	Proc1	; ⢫ 㯠   "Proc1"
	CALL	Proc1	; 맮 楤 "Proc1"
	.............

   ᮧ ⥪ ᫥ 뢠,    㫥   
    ४⨢ PUBLIC,     㤥
祭  ᯮ塞 . ४⨢ PUBLIC  ⢮ ⮫쪮
 㫥 "MAIN" - ᭮ 㫥 ᯮ塞 , ⠪   砥
  砥.

  ४⨢ IF, IF1, IF2, IFDEF, IFNDEF, IFB, IFNB, IFIDN, IFDIF, ELSE, ENDIF
  ---------------------------------------------------------------------------
  ᫥ ४⨢  ⢫ ᫮ ࠭   ᫥
:

	IFxxx ᫮
	  _1
	[ELSE
	  _2]
	ENDIF

   ᪮   易⥫쭮.
  ࠭ "஢_1" ᯥ稢  砥 ᫨ "᫮", 
ᮮ⢥饩 ४⨢, 業  ⨭ (TRUE),  ⨢
砥 ࠭᫨ "_2". ᫮ ४⨢   묨
ࠪ᪨  ࠭祭 ஢ .  ⮬ ४⨢ ELSE ᥣ
⭮  襩 ।饩 ४⨢ IFxxx.

  ४⨢ IF
  ------------
	ᨭ⠪:
		IF ࠦ

   ४⨢ 믮 ஢ 㪠 ࠦ  ᯥ稢
࠭  砥, ᫨  祭  ࠢ 0.

  ४⨢ IF1  IF2
  -------------------
	ᨭ⠪:
		IF1
		IF2

  ४⨢ IF1 ࠧ蠥 ࠭  ࢮ 室 ᥬ஢, 
IF2 -  ஬. 筮  ४⨢ ᯮ  ஢ન 
᫮  ⭮ 室  뤠 짮⥫᪨ ᮮ饭 
訡   ᮡ.  ਢ, ᪠, ⠪ ਬ:

	IF2
	  IFNDEF Buffer
	    ECHO '!  "BUFFER"   ।'
	    ECHO ' 㬮砭  㤥 ᯮ ᫥  ᯮ塞 '
	    Buffer	EQU	END
	  ENDIF
	ENDIF

    ஬ 室 ࠭樨 ஢,    ணࠬ
। ⮯ ண ,  ᫨ ⠪ 譮 饭,
㤥 뤠 ।०,   ᯮ   ᯮ塞 .
  ⨬ ४⨢ ᫥ 짮  让 ஦, ⠪  
㬥⭮ ਬ  ਢ  ।᪠㥬 ᫥⢨. ,
ਬ, ⥣᪨  ᪠ ⪨ । ᮢ 
஬ 室 -   - 맢 ᠭ !

  ४⨢ IFDEF  IFNDEF
  ------------------------
	ᨭ⠪:
		IFDEF  
		IFDNEF 

   ४⨢ ஢, 뫮  । 㪠 . IFDEF ࠧ蠥
࠭, ᫨  뫮 ।   ஢ન,  IFNDEF - ᫨
  ࠭  ।﫮.

  ४⨢ IFB  IFNB
  --------------------
	ᨭ⠪:
		IFB  {㬥}
		IFNB {㬥}

   ४⨢ ஢,   㬥, 祭  䨣
᪮ ⮩ ப. IFB ᯥ稢 ᥬ஢, ᫨  䨣
᪮ ,  IFNB, ⨢, - ᫨ 㬥 ।⠢ ᮡ 
ப ᨬ.  ᪮  㪠뢠 易⥫쭮.
   ४⨢   ਬ ᪫⥫쭮  , ⠪ 
 ⮬ 砥     ࠢ ࠭樥, ஢,  
। ଠ ࠬ.

  ४⨢ IFIDN  IFDIF
  -----------------------
	ᨭ⠪:
		IFIDN {㬥_1}, {㬥_2}
		IFDIF {㬥_1}, {㬥_2}

   ४⨢ ⠪ ।祭  ᯮ짮  . 
ᨬ쭮 ࠢ 祭 㬥_1  㬥_2 (ॣ 㪢
뢠 ⮫쪮   ⠭). ४⨢ IFIDN ࠧ蠥
࠭, ᫨ 祭 ,  IFDIF -  ᮢ 祭.

  ४⨢ COMMENT
  -----------------
	ᨭ⠪:
		COMMENT ᨬ

   ४⨢  ⠢  室 ⥪ 殮 ਨ,
騥 ந쭮 ⢮ ப. ᫥ 㪠 ४⨢ COMMENT
 ᫥騩 ⥪ 㤥 ਭ  ਩,  
 ஡ ᨬ  । ப  㤥 ᨬ, 㪠  ⮩
४⨢. ᫥ ப 殮  ⠪  ࠭᫨.

  ४⨢ INCLUDE
  -----------------
	ᨭ⠪:
		INCLUDE _䠩

   ᮧ  ணࠬ 室 ⥪   ᪮쪮 ⥭
. ਥ஢  ⥪⮢ 䠩 ⠪ ࠧ 뢠 ࠩ
㤭⥫쭮,   㦥  ⮬,    ⥪⮢ । 
ࠡ  ⮫ 묨 䠩.  १  室 
ࠧ 室 ⥪     䠩. ⮡ ࠭᫨஢
  䠩   楫 㦨 ४⨢ INCLUDE.   ⮩
४⨢ ࠭ 㤥 த  砫 㪠 䠩  
⨦    ४⨢ END ᥬ ୥  ࠭樨
맢襣 䠩  ࢠ ४⨢ INCLUDE .
  砥 ४⨢ INCLUDE 䠩   묨,    
䠩 ⠪   ४⨢ INCLUDE.  ⮫쪮 
४ᨢ , ⠪  ᫨  ⮬  ।ᬮ७ ᫮ 襭
४ᨨ, ந 横, ஥   ᫥ ॢ襭
ꥪ  ࠧ  48K,    㤥 ௠ 㯭 ,
   㣮  訡   訡 믮
ணࠬ (Runtime error).
   㬮砭 ७  砥 䠩 ਭ ".ZA".
    㦭 䠩  ।  ᯮ짮 ᥢ६
PROGRAMPATH,   ⠫ ᯮ ᯮ塞 䠩
Z80ASM.EXE. ਬ, ᫨ Z80ASM ᯮ  ४ਨ C:\Z80ASM\,
  ࠭  ⠫ C:\Z80ASM\MAC\,   祭 䠩
MYMACRO.MAC  ᯮ짮 ४⨢

	INCLUDE ProgramPath\MAC\MyMacro.mac

 室  樨  ।⠢  , 祬
ᯮ짮 䠫 樠樨  । ᯮ ࠧ
⨯ 䠩   祭 ⮩   ४⨢ 㯯 INCLUDE.
 类 砥,  ⥫쭮 頥  ⠫樨  २⠫樨
ணࠬ.

  ४⨢ INCLUDEBIN
  --------------------
	ᨭ⠪:
		INCLUDEBIN _䠩

   ४⨢  ⠢  ꥪ  ᯮ塞  
 譨 䠩 --.  ࠧ  ⠢  ணࠬ,
ਬ,  ᨬ쭮   ࠭ 䠩  室
஢   ⥪⮢ ଠ  ४⨢ DB  ᫥饩
࠭樨     ⤥    㧪 
ᯮ塞  ணࠬ.   ।⥫쭮 ࠭᫨஢
 ४⥫ -B   ணࠬ,  ॡ騥 樨
(   騥 ⭮⥫ 뫮 ஬ ७ 権 JR
 DJNZ).   筮 䠩  ⠢   
४⨢ INCLUDEBIN.
   㬮砭 ७  砥 䠩 ਭ ".BIN".
    㦭 䠩  ।  ᯮ짮 ᥢ६
PROGRAMPATH,   ⠫ ᯮ ᯮ塞 䠩
Z80ASM.EXE (. ᠭ ४⨢ INCLUDE).

  ४⨢ INCLUDELIB
  --------------------
	ᨭ⠪:
		INCLUDELIB _䠩

   ४⨢ 㦨  祭  ᯮ塞  ᮧ 
ਬ ४⨢ LIB  䠩.  ᯮ ४⨢
INCLUDELIB  ࠥ  祭 -    ᠭ  ᠬ
砫, ।    室 䠩,   砥 ꥪ
 ⥪ ࠧ ᫥ ᭮ . ᪠ 㪠
祭   ⮣  䠩  ࠧ 室 䠩   㣨
⥪, 㡫஢   ⮣    ⮬  ந.
   㬮砭 ७  筮 䠩 ਭ ".ZL".
    㦭 䠩  ।  ᯮ짮 ᥢ६
PROGRAMPATH,   ⠫ ᯮ ᯮ塞 䠩
Z80ASM.EXE (. ᠭ ४⨢ INCLUDE).

  ४⨢ LOCALS  NOLOCALS
  ---------------------------
	ᨭ⠪:
		LOCALS ᨬ
		NOLOCALS

  ४⨢ LOCALS 㦨  । ᨬ, ᯮ㥬  ⢥
ਧ 쭮 ⮪. ᫥ 㪠 ⮩ ४⨢ 쭮 㤥
 ⪠,  ன 稭    ⢥ ࠬ
ᨬ.  ⢨  ⮪ ࠭ ⮫쪮  ⥪
楤 (. ४⨢ PROC  ENDP)   쭮 ⪨  ।
楤 ਢ  訡 ࠭樨.
   ਧ  ⮪     ८। 㪠
। ४⨢ LOCALS. ஬ ⮣, ᯮ짮  ⮪ 
 饭   ४⨢ NOLOCALS. ⠭,  ४⨢
LOCALS,  ⮫쪮  ⥪饬 㫥.

  ४⨢ PROC  ENDP
  ---------------------
	ᨭ⠪:
		 PROC
		 ENDP

  ࠣ 室 ⥪, 祭  ४⨢ PROC  ENDP
뢠 楤ன. 楤  ᥬ Z80ASM 㦠 ⢥
楫 -  ।  ⢨  ⮪.  ⠫쭮 楤
祬  ⫨  ணࠬ    맢  . 
楤    ⢮   ⪨. 
楤  ᪠, ४⨢ PROC  ENDP 易⥫쭮  
묨  㪠     ᮢ.

  ४⨢ NAME
  --------------
	ᨭ⠪:
		NAME ᫥⥫쭮

  ᫨ ᯮ塞  । ࠭  ଠ ணࠬ HoBeta
  TAP-ଠ, 室 ।  䠩  㧪  Speccy.
 㬮砭   㤥 ᮢ   室 䠩  筮
 ॣ 㪢. ,  ⭮,   ᯥ㬮᪨ 䠩
᪠ ᯮ짮  ᨬ    0  255,  
䠩  䮭    10 .    ᤥ
 㪠    ᯥ㬮᪮ 䠩  
ப DOS.   㤭  ४⨢ NAME.
   ⢥ ᫥⥫쭮, 㪠뢠  ४⨢ NAME  㦨
⥪⮢ ப, 祭     窨, ⮪ ᨪ
 䨣 ᪮, ४⨢  ਡ⮢  樮஢ 
(AT, TAB, INK, PAPER, BRIGHT, FLASH, OVER  INVERSE),  ⠪  
, ࠦ   㭪樨 CHR$. ᫥  
⠢ ᫥⥫쭮   ⠭, ᯥ樠 ࠧ⥫
(஬ ⮩, ࠧ饩 ࠬ  ४⨢ AT)  ।ᬮ७, 
 來  ᯮ짮 ஡.  ਢ  ਬ
४⨢ NAME  TAP-䠩.

	NAME	INK 2 BRIGHT 1 FLASH 1 {RUN} INVERSE 1 {OUT}
	NAME	AT 8, 13 'LOADING'
	NAME	"DO'NT " {COPY} 'ME'

  祢 ᫮ ᨪ  易⥫쭮 뢠  ய묨 㪢,
  ਢ ਬ,  ᮡ 筮 ᠭ. ਬ, 
GO TO    ᠭ  {GOTO}, {GO   TO}  { GO TO } - 
।  ⮪ 뢠  ᨬ  䨣 ᪮.
 ਫ II ᮤন  ᯨ᮪  祢 ᫮ ᨪ.

  ४⨢ END
  -------------
	ᨭ⠪:
		END

   ᥬ Z80ASM ४⨢ END ࠥ  祭. -, 
 ࠤ樨 ⬥砥 䠪᪨  室 ⥪   ᫥騩
⥪  ࠭樨 ,   ⮬ ᫥  ⢨ 
室 䠩   易⥫쭮. -, ४⨢ END 
ᯮ짮  ࠦ  祭  ࢮ ᢮ 
᫥  ᯮ塞 ( ᯮ塞,   ꥪ!) .  ⮬
᫥ ४⨢ END   室 ⥪ ᥣ,  ᫨ 
   㪠.

  ४⨢ DEFB, DB, DEFW, DW, DEFS, DEFM   DUP
  -------------------------------------------------------
	ᨭ⠪:
		[⪠] DEFB 祭1[, 祭2, ...]
		[⪠] DB   祭1[, 祭2, ...]
		[⪠] DEFW 祭1[, 祭2, ...]
		[⪠] DW   祭1[, 祭2, ...]
		[⪠] DEFS 祭
		[⪠] DEFM ப
		 DUP (祭)

  ᫥ ४⨢ ᯮ  ।  ࠧ ⨯.
, ᥬ Z80ASM,   GENS,  ন ண ⨯ 
 祭,   ,   ⠭  ᫮  .
⮬ ४⨢ ।  㪠뢠 ࠭ ⮫쪮  ꥬ
,  ॡ १ࢨ஢. ४⨢ DEFB  DB ।
᫥⥫쭮 ⮢.    䨣஢ ࠦ, 頥 
।⢥ ᫮ 祭  ⥪⮢ ப.  ᫥ 砥
  ᨬ ப १ࢨ   .  ⢥ ࢮ
࠭ ࠦ  ᯮ짮 ⠪  ᨬ ⠭,  
ப,    ॢ蠥  ᨬ. ४⨢ DEFW  DW 
᫥⥫쭮 ᫮ (塠⮢ 祭).  㪠  
ࠦ   ⢥ ᫮ 祭. ४⨢ DEFS
१ࢨ 㪠 ᫮   樠  㫥묨 祭ﬨ.
४⨢ DEFM  ᪫⥫쭮  ᮮࠦ ᮢ⨬  GENS 
।祭  । ⮫쪮 ⥪⮢ ப.
   DUP ᯮ  ४⨢ DEFB (DB)  DEFW (DW)  ᮪饭
,      祭 ॡ   ᫮ ࠧ.
ਬ, ४⨢

	DB	8 DUP (#FE)

ࠢ業 

	DB	#FE, #FE, #FE, #FE, #FE, #FE, #FE, #FE

  ᫨  ।    ४⨢ DEFB (DB)  DEFW (DW)
 ࠦ ᯮ ࠭ $,  ᫥ ,   㤥
⥭   ࢮ,  ⥪饣 祭 (  ஬ DUP
祭  㤥  த㡫஢).

  ४⨢ MAC  ENDM
  --------------------
	ᨭ⠪:
		 MAC [ࠬ1[, ࠬ2, ...]]
		    ENDM

  ⮡ ᮪ 室 ⥪ ணࠬ  ᥬ  ᤥ  
來,  ᯮ짮 ம। ( ). 
।⠢ ᮡ ࠣ 室 ⥪, ࠭祭 ४⨢
MAC  ENDM.  ४⨢ MAC     㪠  ଠ
ࠬ஢.  맮   ᭮ ⥪ ணࠬ (뢠 
ய⠭) ந室 ⠢ ⥫    맮  
ଠ ࠬ஢ 䠪᪨. ਬ, 

	Open	MAC	Chan
		LD	A,Chan
		CALL	5633
		ENDM

 맮

		Open 2

ࠧ୥  ᫥⥫쭮 権

		LD	A,2
		CALL	5633

   ଠ ࠬ Chan   ᫮ 2.   ⢥
ࠬ஢  㦨  ⮫쪮 ᫠,     ப ᨬ,
।⠢騥 ᮡ  ᪨ .  ,  ࠬ
    ᥡ ஡ ᨬ,  (ࠧ⥫ ࠬ஢)
     窨.  ப 㤥 ⠢ 
 ଠ쭮 ࠬ   ⮬ ,   뫠 ᠭ 
। 䠪᪮ ࠬ.
   맮 ᮢ    䠪᪨ ࠬ   ய饭.
 ⮫쪮 ᮡ ࠢ 冷 ᫥ ࠬ஢,  ᫨ ⮩
ࠬ  ᫥  ᫥, 室 ⠢ 㦭 ⢮
. ਬ, ᫨ ।   

	Macro	MAC param1, param2, param3

 ᫨ 室 맢   ய饭 ࠬ஬ param2,  饭
㤥 룫拉, ਬ, ⠪:

		Macro 100, , -10

  ம।    묨,     
   ᠭ 㣮.      맮
㣨 ᮢ,  ⮬ ᫥, ᪠ ४ (맮 ᮬ ᠬ
ᥡ). ࠢ, 㡨  ய⠭  ⢮ 蠣
४ᨨ ࠭祭 ࠧࠬ ⥪.  ࠢ,  뢠
믮 ᨬ 30 ,   襩 㡨  訡
믮 ணࠬ (Runtime error).
   ४⨢ MAC      64 ࠬ஢,   
ଠ, ⠪  䠪᪨ ࠬ஢   ॢ 32 ᨬ.
 ம। ࠪ᪨ ࠭祭, ⥮᪨    
  64000  (᫨  筮 ᢮ ). , 筮,
ம।  楫 ᯮ  ।  室
䠩.  室  ம।  ᯮ짮 ४⨢
INCLUDE.     ᪠ ᯮ짮  ४⨢ ᥬ
஬ ORG, LIB, MAC, END, REPT  ENDREP.

  ४⨢ LOCAL
  ---------------
	ᨭ⠪:
		LOCAL ⪠_1[, ⪠_2, ...]

    ᮢ ।  室  ⠭ ⮪
 ࣠樨 横  । .  ᫨  뢠 
᭮ ணࠬ ⭮,   ⪨  த㡫஢
 ᥬ ⥪騬  ⮣ ᫥⢨ﬨ. ४⨢ LOCAL 
।      । . ⪨,
᫥  ⮩ ४⨢,  ய⠭   㪢 "l"
 ⮭ 騬 ᫮. ,   ᨬ  
 筮 㪢, ࠭ 㭨쭮 ᣥ஢ ⪨ 
,   ᨬ   ਧ 쭮 ⪨  楤.
   ᯮ짮 ४⨢ LOCAL 室 ,   易⥫쭮
 ᫥ ।⢥   ம।. 
  ⮩ ४⨢     ਥ   ப.
   㬥   ப       64.

  ४⨢ REPT  ENDREP
  -----------------------
	ᨭ⠪:
		REPT 
		ENDREP

   ୠ⨢ ᠬ  ᮪饭 室 ⥪ ணࠬ 
ᯮ짮  REPT..ENDREP.  ४⨢ ⠢ ᥬ
 ࠭ 祭   ⥪  ᫮ ࠧ.
ᯮ ४⨢ ᫮ ࠭樨  ६,   ᫥饩
樨 横   ࠧ ꥪ . ⨬ 祭
ࠬ ४⨢ REPT 室  ஬⪥ 1..32767.   
묨,   稭      ⮬  䠩.
ਬ  ४⨢    ࠧ蠥.

  ४⨢ ECHO  USERERR
  ------------------------
	ᨭ⠪:
		ECHO    ப
		USERERR ப

  ४⨢ ECHO 㦨  뢮  ࠭   䠩 ⨭ 짮⥫᪨
ᮮ饭,  USERERR, ஬ ⮣,  訡. ப 砥 
   窨   ᮤঠ  ᨬ.


  STKDATA  FLOAT


   ᠭ ணࠬ  ᥬ ⥫ 㤭  맢
饭  ணࠬ  (RST #28) - ᫮ ॢ
 ᥫ  饩 窮  5-⮢ ।⠢  
㯠 ଠ. ⮬⨧஢    ᮢ ⮦
।⠢ 祩   .  裡  ⨬ ᥬ Z80ASM
।  ஥ : STKDATA  FLOAT.
   STKDATA  ᫥⥫쭮 ⮢,   
ࠢ #34 - ࠫ  STK_DATA (⮡ࠦ ஬ Mon2
 NUMBER).   ᫥  ⮢ 筮 ᫠  㯠
. ⠪ 맮  ᫥騩:

	STKDATA	ப

 ப -  ᨬ쭠  ᫠  "筮" , 祭
    窨. ਬ, ࠣ ணࠬ

	RST	40
	STKDATA	'1.2345E+2'		;  STKDATA '123.45'
	DB	#38

ࠢ業 

	RST	40			; 饭  ணࠬ 
	DB	#34			; ࠫ STK_DATA
	DB	#F7, #76, #E6, #66, #66	; ᫮ 1.2345E+2  㯠 
	DB	#38			; 室  

   FLOAT    ꥪ⭮ .  ⮫쪮 ।
 ६ 祭ﬨ   筮 ᫠  ⥣ࠫ쭮 
⨡⮢ ।⠢ (  ⠪  ᫠ ࠧ  ⥪
   ணࠬ  ᨪ).  쭥襬 । ᮬ
६  ᯮ짮  㧪 ॣ஢, 樠樨
   .. ⠪ 맮  ᫥騩:

	FLOAT	ப, ६_1, ..., ६_5

 ਬ ࠣ ணࠬ,  ஬ 筮 ᫮  饩
窮 ࠧ頥  設 ⥪ ,  ⥬ 뢮 
࠭ ( ᫮  ⮪ "S"):

	FLOAT	'123.45', byte1, byte2, byte3, byte4, byte5
	LD	A,byte1
	LD	DE,byte3 * 256 + byte2
	LD	BC,byte5 * 256 + byte4
	CALL	10934
	CALL	11747

 १    ᠬ,    砥 

	LD	A,#87		; ᫮ 123.45  ⨡⮢ ।⠢:
	LD	DE,#E676	; #87, #76, #E6, #66, #66
	LD	BC,#6666
	CALL	10934		; ࠧ  設 ⥪
	CALL	11747		; 뢥 ᫮  ࠭

:  ᠬ   ॢ ᥫ  ⨡⮢ ।⠢
    㯠 ଠ ᪮쪮 ⫨砥  ⮣,  ॠ 
  ZX-Spectrum,     ਬ ᫥  ᫠  
   #66,  #67,   ࠪ⨪   ਢ  訡 १⠬
    ࠭  ࠢ  ᫮ 123.45.   ⮫쪮
  -  ⮬  ᫥ 窨 (  ),  Spectrum  ࠢ
    ﭨ ࠡ뢠 ᫠  ⠪ 筮, ⠪   ࠧ稥
   饬 設⢥ 砥   ਭ  .


 


   $C+  $C- ᮮ⢥⢥   몫 ஫ 祭
१騬 設  ࠭ 64K.  㬮砭 ஢ઠ ७
믮,    쭮 ⪫祭 ४⥫ -C  
ப.  ⮬ 砥 ⠭ ஢   $C+.

   $S+  $S- ᮮ⢥⢥ ࠧ   ஢
 ⠭  ᮮ⢥⢨  ⠡楩 ४஢  䠩 Symbol.cnv.
 㬮砭 ஢  ந,    祭  㦭
  $S+,   室  ८ࠧ ⯠, ᭮
몫祭  $S-.

   $L+  $L- ࠢ 뢮 ⨭  䠩, 㪠  
ப. $L- 뢠 ਮ⠭ 뢮 ⨭,  $L+  뢮.
 $L+  $L-  뢠  ﭨ  뢮 ⨭, ᫨ 
 ப   㪠 ४⥫ -L.


 


  ⭮,  樮 ⥬ ZX-Spectrum  뢮 ᨬ 
祭 ஢ ASCII,  㤭 䨪 .  
 128..255 (#80..#FF) ਬ  뢮 ᣥ஢
ᥢ䨪, UDG (।塞 짮⥫ ᨬ)  祢 ᫮
ᨪ.  0..31 筮 㦠  ࠢ 뢮, 筮 
ᯮ. ⠥ 96   祭 㪢, ,  ९
 ᯥ樠 ᨬ.  䨪樨 । ᯮ ⥫
   96 ᨬ   室 ந ४祭
 ⨭᪮  ᪨   .  ⮬ ᪨ 㪢 
⨭᪨ 筮   䠢,   ᮧ. ஬ ⮣, ᪨ 㪢
, 祬 ⨭᪨, ⮬  㪢  । ᯮ㥬
ᯥ樠 ᨬ.  १ ᪨   室 ⥪ 
룫拉 쬠 筮, ਬ: "Konec igry"   "Wys{ij s~et".
   ࠢ ⮩ 樨  ᥬ Z80ASM ।ᬮ७ 
⠭ ᨬ. ⮡  ᯮ짮, 㦭 ।⥫쭮
⠢ ⠡ ४஢  ࠭   䠩 Symbol.cnv.  
⥪⮢ 䠩,    ப ᠭ   ᨬ, ࠧ
஡.  ࢮ  뢠 ᪠ 㪢,    룫拉
 室 䠩,  ᫥   - ᨬ,    ᣥ஢
 ࠭樨. ஢ ਬ ⮫쪮  ⥪⮢ ப 
 ᨬ, 祭  窨,   ᯮ짮
 ࠦ.  㬮砭 ஢  ந  砥
᫥ 㪠  室 ⥪  $S+. ⬥ ० ஢
  $S-.
   ४஢ Symbol.cnv   ᪮쪮. 砫 믮
 ⮣ 䠩  ⥪饩 ४ਨ,    ⢨ -  ४ਨ
ᯮ ᯮ塞 䠩 Z80ASM. ᫨  ⠬   ,
ᥬ ᮧ 䠩 ४஢  㬮砭  ࠭   ᢮
४ਨ.


 


  室 ᪠ ᪮쪮 ᫮ ⭮⥫쭮 ᮡ⥩  
権 ᥬ  Z80ASM.   ।  ᠥ 㯯 
⠭    .  ࠢ, । ମ Zilog, 
ॣ A    易⥫쭮  㪠뢠,  ⫨稥 
 ᫮  ⠭,   ⮫쪮  ⨥ .
 ன    ᠭ     SBC reg. ⮬
ᥬ Z80ASM ᯮ  ᯮᮡ  , ਬ, 樨 SBC B 
SBC A,B  묨.
   ᠥ  ॣ஢,  ᫨ ᬥ饭 ࠢ ,  
  㪠뢠.  LD (IX+0),E  LD (IX),E ࠢ業.
   㦥 ਫ ,   BIT, SET, RES, RST  IM  
᫮ ࠭ ᪠ ᯮ짮 ࠦ.   , 
ਤ ⥫ 㤮⢠.  ⮬ , ਬ, ⠪
 "ࠧ⮣ 横"   ⠭ ⮢:

	BitNumber = 0
		LD	E,0
		REPT 8
		BIT	BitNumber,A
	BitNumber = BitNumber + 1
		JR	Z,$+3
		INC	E
		ENDREP

  ᪮  ᠭ 㬥஢     
ࠧ, 㤥 譨 㪠,     
ᯮ짮  室 ⥪      ࠧ砥 ᥬ
Z80ASM.
   Z80ASM ॠ   㬥஢ ,  ⮫쪮 
"" (᪮ 㬥஢  ᫨誮   
    㡫 "" 樨).    権
   ॣ஢   ᤢ ⮢   
᢮  ࠧ冷 楩.
    ॣ஢ 뢠  祭 IXH (訩 
ॣ IX), IXL (訩  ॣ IX), IYH (訩  IY)  IYL
(訩  IY). ਬ:

	LD	A,IXL

	INC	IYH

  㬥஢  ᤢ 뢠   SLL ( ⠪
    ⮡ࠦ -⫠稪 Mon2).


 I.  


   ਢ ᯨ᮪ १ࢨ஢ ,    ᯮ짮
 ⢥ ।塞 짮⥫ ᨬ .

 ॣ஢:
  A  B  C  D  E  H  L  I  R  AF  BC  DE  HL  SP  IX  IY  IXH  IXL  IYH  IYL

饭 ᫮:
  NC  Z  NZ  P  M  PO  PE ( ᭮ C)

 権 ᥬ:
  ADC   ADD   AND   BIT   CALL  CCF   CP    CPD   CPDR  CPI   CPIR  CPL
  DAA   DEC   DI    DJNZ  EI    EX    EXX   HALT  IM    IN    INC   IND
  INDR  INI   INIR  JP    JR    LD    LDD   LDDR  LDI   LDIR  NEG   NOP
  OR    OTDR  OTIR  OUT   OUTD  OUTI  POP   PUSH  RES   RET   RETI  RETN
  RL    RLA   RLC   RLCA  RLD   RR    RRA   RRC   RRCA  RRD   RST   SBC
  SCF   SET   SLA   SLL   SRA   SRL   SUB   XOR

४⨢:
  IF  IF1  IF2  IFDEF  IFNDEF  IFB  IFNB  IFIDN  IFDIF  ELSE  ENDIF
  REPT  ENDREP  MAC  ENDM  LOCAL  ECHO  USERERR  COMMENT
  INCLUDE  INCLUDEBIN  INCLUDELIB  ORG  LIB  MODULE  END  EXTRN  PUBLIC
  DEFB  DB  DEFW  DW  DEFS  DEFM  EQU  PROC  ENDP  LOCALS  NAME
  STKDATA  FLOAT

:
  NOT  HIGH  LOW  MOD  SHR  SHL  OR  XOR  AND  DUP

஬ ⮣,      祭  "MAIN", ⠪  
१ࢨ஢  ᭮  ᯮ塞  ( ⢥ ᨬ쭮
     ᯮ짮).


 II.   () SPECTRUM-


  {RND}        {INKEY$}    {PI}       {FN}      {POINT}    {SCREEN$}
  {ATTR}       {AT}        {TAB}      {VAL$}    {CODE}     {VAL}
  {LEN}        {SIN}       {COS}      {TAN}     {ASN}      {ACS}
  {ATN}        {LN}        {EXP}      {INT}     {SQR}      {SGN}
  {ABS}        {PEEK}      {IN}       {USR}     {STR$}     {CHR$}
  {NOT}        {BIN}       {OR}       {AND}     {<=}       {>=}
  {<>}         {LINE}      {THEN}     {TO}      {STEP}     {DEF FN}
  {CAT}        {FORMAT}    {MOVE}     {ERASE}   {OPEN #}   {CLOSE #}
  {MERGE}      {VERIFY}    {BEEP}     {CIRCLE}  {INK}      {PAPER}
  {FLASH}      {BRIGHT}    {INVERSE}  {OVER}    {OUT}      {LPRINT}
  {LLIST}      {STOP}      {READ}     {DATA}    {RESTORE}  {NEW}
  {BORDER}     {CONTINUE}  {DIM}      {REM}     {FOR}      {GO TO}
  {GO SUB}     {INPUT}     {LOAD}     {LIST}    {LET}      {PAUSE}
  {NEXT}       {POKE}      {PRINT}    {PLOT}    {RUN}      {SAVE}
  {RANDOMIZE}  {IF}        {CLS}      {DRAW}    {CLEAR}    {RETURN}
  {COPY}
