75 lines
1.6 KiB
OpenEdge ABL
75 lines
1.6 KiB
OpenEdge ABL
%MACRO fill32 colour
|
|
LDI colour
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
POKE vbase
|
|
INC vbase
|
|
LD vbase
|
|
BNE skip
|
|
|
|
LD vbase+1
|
|
ADDI 0x01
|
|
ST vbase+1
|
|
skip LDI 0x00
|
|
%ENDM
|