30 lines
560 B
OpenEdge ABL
30 lines
560 B
OpenEdge ABL
%MACRO LoopCounterTo1 _counter _label
|
|
LD _counter
|
|
SUBI 0x01
|
|
ST _counter
|
|
BGT _label
|
|
%ENDM
|
|
|
|
%MACRO LoopCounterTo0 _counter _label
|
|
LD _counter
|
|
SUBI 0x01
|
|
ST _counter
|
|
BGE _label
|
|
%ENDM
|
|
|
|
%MACRO LutPeek _lut _index
|
|
LDWI _lut
|
|
DEEK
|
|
ADDW _index
|
|
PEEK
|
|
%ENDM
|
|
|
|
%MACRO LutDeek _lut _index _scratch
|
|
LDWI _lut
|
|
DEEK
|
|
STW _scratch
|
|
LDW _index
|
|
LSLW
|
|
ADDW _scratch
|
|
DEEK
|
|
%ENDM |