Код:
MACROS_MAC_INCLUDED
MACRO PUSHA : PUSH AF,BC,DE,HL : ENDM
MACRO POPA : POP HL,DE,BC,AF : ENDM
;ISR_ENTER OLD_SP,JUMP_ADR,ISR_SP
MACRO ISR_ENTER OLD_SP_, JUMP_ADR_, ISR_SP_
EX (SP),HL : LD (OLD_SP_),HL : EX (SP),HL : INC SP: INC SP : LD (JUMP_ADR_),SP
LD SP,ISR_SP_ : PUSH AF : EXX : EXA : PUSHA : PUSH IX,IY : LD A,(PAGE) : PUSH AF
ENDM
;ISR_LEAVE
MACRO ISR_LEAVE : POP AF : CALL LKL : POP IY,IX : POPA : EXX : EXA : POPA : ENDM
MACRO GETA : DEC SP : POP AF : ENDM
MACRO NEGHL : XOR A : SUB L : LD L,A : SBC A,H : SUB L : LD H,A : ENDM
MACRO NEGDE : XOR A : SUB E : LD E,A : SBC A,D : SUB E : LD D,A : ENDM
MACRO NEGBC : XOR A : SUB C : LD C,A : SBC A,B : SUB C : LD B,A : ENDM
MACRO STA : LD (HL),A : INC HL : ENDM
MACRO STDE : LD (HL),E : INC HL : LD (HL),D : INC HL : ENDM
MACRO STBC : LD (HL),C : INC HL : LD (HL),B : INC HL : ENDM
MACRO STB b1 : LD (HL),b1 : INC HL : ENDM
MACRO STW w1 : STB low w1 : STB high w1 : ENDM
MACRO LODBC : LD C,(HL) : INC HL : LD B,(HL) : INC HL : ENDM
MACRO LODDE : LD E,(HL) : INC HL : LD D,(HL) : INC HL : ENDM
MACRO LODA : LD A,(HL) : INC HL : ENDM
MACRO GENASN h1 : LD D, high h1 : CALL GENASN_ : ENDM
MACRO GENXX h1 : LD D, high h1 : CALL GENXX_ : ENDM
MACRO INISIN h1 : LD D, high h1 : CALL INISIN_ : ENDM
MACRO POPLD : POP HL : LD (#2222),HL : ENDM
MACRO DEPSCRA a1, a2 ;, a3 :
LD HL,a1 : LD DE,a2 ; : LD BC,a3 :
SCF : CALL _DEPSCR : ENDM
MACRO DEPSCR a1, a2 ;, a3 :
LD HL,a1 : LD DE,a2 ; : LD BC,a3 :
OR A : CALL _DEPSCR : ENDM
MACRO LDHLDE : LD H,D : LD L,E : ENDM
MACRO LDDEHL : LD D,H : LD E,L : ENDM
MACRO LDCOUNT a1 : LD BC, ( low a1 )*256+( high (( low a1 )+255)+(high a1) :ENDM
MACRO LOOP retadr : DJNZ retadr : DEC C : JRNZ retadr : ENDM