DEFINITION MODULE FILLING;
PROCEDURE FILL(X,Y:CARDINAL);
END FILLING.
IMPLEMENTATION MODULE FILLING;
FROM GRAPH0 IMPORT SCRDOT;
 
PROCEDURE FILL(X,Y:CARDINAL);
HEX
DD E1 D1 C1 C5 D5 DD E5 3E BF 93 5F 51 CD (@SCRDOT)
4A E5 C5 CD (@LPF0) D9 C1 E1 CD (@RPF0+6) E5 C5 D9 E5
C5 CD (@FILLUP) C1 E1 D9 C1 E1 D9 END FILL;
PROCEDURE FILLDOWN;HEX
54 5D 24 7C E6 07 20 0A 7D C6 20 6F 38 04 7C D6
08 67 DD 21 (@FILLUP) CD (@LMOV) 28 E5 D9 54 5D 24 7C
E6 07 20 0A 7D C6 20 6F 38 04 7C D6 08 67 CD (@RMOV)
   28 E9 DD 21 (@FILLDOWN) 18 37 END FILLDOWN;
PROCEDURE FILLUP;HEX
54 5D 7C E6 07 20 0A 7D D6 20 6F 38 04 7C C6 08
67 25 DD 21 (@FILLDOWN) CD (@LMOV) 28 E5 D9 54 5D 7C E6
07 20 0A 7D D6 20 6F 38 04 7C C6 08 67 25 CD (@RMOV)
   28 E9 DD 21 (@FILLUP) D9 CD (@COMP) F0 E5 C5 CD (@RPF0+6)
   CD (@COMP) 28 16 D9 D1 E3 C5 4B D9 E5 C5 D9 CD
F4 03 C1 E1 CD (LMOV+8) D9 C1 E1 18 DB C1 E1 DD E9
END FILLUP;
 
PROCEDURE LMOV;HEX
79 0F 38 0D A6 28 0F 4F CD (@RP0+3) CB 01 D0 2D B1
C9 2C A6 20 F2 2D 79 A6 C0 CB 01 30 02 2D 1D 79
A6 C0 1A A1 20 F3 D5 C5 CB 09 30 01 1C EB D9 D1
E3 C5 4B CD (@LPF0) E5 C5 18 39 END LMOV;
 
PROCEDURE RMOV;HEX
79 07 38 0D A6 28 0F 4F CD (@LP0+3) CB 09 D0 2C B1
C9 2D A6 20 F2 2C 79 A6 C0 CB 09 30 02 2C 1C 79
A6 C0 1A A1 20 F3 D5 C5 CB 01 30 01 1D EB D9 D1
E3 C5 4B CD (@RPF0) E5 C5 D9 CD F4 03 C1 E1 D9 C1
E1 D9 BF C9 END RMOV;
 
PROCEDURE RPF0;HEX
7E A1 C0 79 B6 77 CB 09 30 F6 2C 7E A7 20 F2 36
FF 18 F7 END RPF0;
PROCEDURE RP0;HEX
7E A1 C8 CB 09 30 F9 2C E8 7E 3C 28 FA 18 F1 END RP0;
 
PROCEDURE LPF0;HEX
7E A1 C0 79 B6 77 CB 01 30 F6 2D 7E A7 20 F2 36
FF 18 F7 END LPF0;
PROCEDURE LP0;HEX
7E A1 C8 CB 01 30 F9 2D E8 7E 3C 28 FA 18 F1 END LP0;
 
PROCEDURE COMP;HEX
7D D9 95 EA (@COMP+11) 79 D9 C0 B9 C9 ED 44 D9 C9 END COMP;
 
END FILLING.
