ZXNet эхоконференция «zxnet.pc»

Hello, boo_boo

макросы, продолжение:
┌─- CODE ───

//*****************************************************************************
*
Delay MACRO Time, Mem, Temp=D
.IF MultiColor
.IF AntiSlowDown
CMP EDI, 71690
JB @@Delay1_&&
.IF &Time > 1
ADD EDI, &Time
.ELSEIF &Time = 1
INC EDI
.ENDIF
JMP SHORT @@DelayEnd&&
@@Delay1_&&:
.ENDIF
.IF NoDelay = 0
MOVZX E&Temp.X, &Mem.H
MOV &Temp.H, [&ZX].CurRAMBank
MOVZX E&Temp.X, B[E&Temp.X+MC_Contended_Mem_Table]
ADD EDI, D[EDI*8+E&Temp.X+MC_Contended_Delay_Table]
.IF &Time > 2
ADD EDI, &Time-1
.ELSEIF &Time = 2
INC EDI
.ENDIF
.ELSE NoDelay
.IF &Time > 1
ADD EDI, &Time
.ELSEIF &Time = 1
INC EDI
.ENDIF
.ENDIF
.IF AntiSlowDown
@@DelayEnd&&:
.ENDIF
.ENDIF
END //MACRO Delay

//*****************************************************************************
*
DelayMore MACRO Time=1, Temp=D, Count=1
.IF MultiColor
.IF AntiSlowDown
CMP EDI, 71690
JB @@DelayMore1_&&
.IF &Time * &Count > 1
ADD EDI, &Time * &Count
.ELSEIF &Time * &Count = 1
INC EDI
.ENDIF
JMP SHORT @@DelayMoreEnd&&
@@DelayMore1_&&:
.ENDIF
.IF NoDelay = 0
.REPEAT &Count
ADD EDI, D[EDI*8+E&Temp.X+MC_Contended_Delay_Table]
.IF &Time > 2
ADD EDI, &Time-1
.ELSEIF &Time = 2
INC EDI
.ENDIF
.ENDREP
.ELSE NoDelay
.IF &Time * &Count > 1
ADD EDI, &Time * &Count
.ELSEIF &Time * &Count = 1
INC EDI
.ENDIF
.ENDIF
.IF AntiSlowDown
@@DelayMoreEnd&&:
.ENDIF
.ENDIF
END //MACRO DelayMore

//*****************************************************************************
*
outDelay MACRO Port, Temp=D, io=
.IF MultiColor
.IF NoDelay = 0
.IF "&io" = ""
//--------------
MOVZX EDX, &Port.H
MOV &Temp.H, [&ZX].CurRAMBank
MOVZX E&Temp.X, B[E&Temp.X+MC_Contended_Mem_Table]
TEST &Port.L, 1
JZ SHORT @@_outFE&&
// N:4 or C:1 C:1 C:1 C:1
XOR &Temp.L, 4
JNZ SHORT @@_outN4&&

.IF AntiSlowDown
CMP EDI, 71690
JB @@outDelay1_&&
ADD EDI, 4
JMP SHORT @@_outN4&&
@@outDelay1_&&:
.ENDIF
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]

@@_outN4&&:
ADD EDI, E&Temp.X
JMP SHORT @@_end_out_contention&&

@@_outFE&&:
xor &Temp.L, 4
JNZ SHORT @@_outN1C3_&&
.IF AntiSlowDown
CMP EDI, 71690
JAE @@_outN1C3_&&
.ENDIF
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
DEC EDI
@@_outN1C3_&&:
INC EDI
.IF AntiSlowDown
CMP EDI, 71690
JB @@outDelay3_&&
ADD EDI, 3
JMP SHORT @@_end_out_contention&&
@@outDelay3_&&:
.ENDIF
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, 3-1
@@_end_out_contention&&:
//--------------
.ELSE
//--------------
.IF AntiSlowDown
CMP EDI, 71690
JAE @@outDelay5&&
.ENDIF
MOVZX E&Temp.X, &Port.H
MOV &Temp.H, [&ZX].CurRAMBank
MOVZX E&Temp.X, B[E&Temp.X+MC_Contended_Mem_Table]
TEST &Port.L, 1
JNZ SHORT @@outDelay4&&
MOV &Temp.L, 4
@@outDelay4&&:
ADD EDI, D[EDI*8+E&Temp.X+MC_Contended_Delay_Table]
ADD EDI, &io-1
@@outDelay5&&:
//--------------
.ENDIF
.ELSE NoDelay
.IF "&io" = ""
ADD EDI, 4
.ELSEIF &io > 1
ADD EDI, &io
.ELSEIF &io = 1
INC EDI
.ENDIF
.ENDIF
.ENDIF //MultiColor
END //MACRO outDelay

//*****************************************************************************
*
inDelay MACRO Port, Temp=D
.IF MultiColor <> 0
.IF NoDelay = 0
MOVZX E&Temp.X, &Port.H
MOV &Temp.H, [&ZX].CurRAMBank
MOVZX E&Temp.X, B[E&Temp.X+MC_Contended_Mem_Table]
TEST &Port.L, 1
JZ SHORT @@_inFE&&
// bit 0 of port addr set - N:4 or C:1 C:1 C:1 C:1
XOR &Temp.L, 4
JNZ SHORT @@_inN4&&

.IF AntiSlowDown
CMP EDI, 71690
JB @@inDelay1_&&
ADD EDI, 4
JMP SHORT @@_inN4&&
@@inDelay1_&&:
.ENDIF
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
@@_inN4&&:
ADD EDI, E&Temp.X
JMP SHORT @@_end_in_contention&&

@@_inFE&&:
.IF AntiSlowDown
CMP EDI, 71690
JAE @@_end_in_contention&&
.ENDIF
XOR &Temp.L, 4
JnZ SHORT @@_inN1C3_&&
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
DEC EDI
@@_inN1C3_&&:
INC EDI
ADD EDI, D[EDI*8+4+MC_Contended_Delay_Table]
ADD EDI, 3-1
@@_end_in_contention&&:
.ELSE NoDelay
ADD EDI, 4
.ENDIF
.ENDIF //MultiColor
//--------------
END //MACRO inDelay

//*****************************************************************************
*

ioDelay MACRO Port, Temp
.IF MultiColor
.IF NoDelay = 0
.IF AntiSlowDown
CMP EDI, 71690
JAE @@ioDelayEnd&&
.ENDIF
MOVZX E&Temp.X, &Port.H
MOV &Temp.H, [&ZX].CurRAMBank
MOVZX E&Temp.X, B[E&Temp.X+MC_Contended_Mem_Table]
TEST &Port.L, 1
JNZ SHORT @@ioDelay1_&&
MOV &Temp.L, 4
@@ioDelay1_&&:
ADD EDI, D[EDI*8+ECX+MC_Contended_Delay_Table]
.IF AntiSlowDown
@@ioDelayEnd&&:
.ENDIF
.ELSE NoDelay
//ADD EDI, 4
.ENDIF

.ENDIF
END //MACRO ioDelay


└── CODE ───
и еще чуть-чуть...