DEFINITION MODULE SETOPS;
PROCEDURE UNION(S1,S2,SOUT:ARRAY OF WORD);
PROCEDURE INTERSECT(S1,S2,SOUT:ARRAY OF WORD);
PROCEDURE DIFFER(S1,S2,SOUT:ARRAY OF WORD);
PROCEDURE SDIFF(S1,S2,SOUT:ARRAY OF WORD);
PROCEDURE COUNT(S:ARRAY OF WORD):CARDINAL;
END SETOPS.
IMPLEMENTATION MODULE SETOPS;
PROCEDURE SPREP;HEX
E1 D1 D9 D1 C1 E1 E3 A7 ED 42 30 03 09 44 4D E1
D9 E5 E5 E5 E5 D5 E9 END SPREP;
 
PROCEDURE UNITE(S1,S2,SOUT:ARRAY OF WORD);HEX
CD (@SPREP) 1A B6 77 13 ED A1 E0 18 F8 END UNITE;
 
PROCEDURE INTERSECT(S1,S2,SOUT:ARRAY OF WORD);HEX
CD (@SPREP) 1A A6 77 13 ED A1 E0 18 F8 END INTERSECT;
 
PROCEDURE DIFFER(S1,S2,SOUT:ARRAY OF WORD);HEX
CD (@SPREP) 1A A6 BE 77 13 ED A1 E0 18 F7 END DIFFER;
 
PROCEDURE SDIFF(S1,S2,SOUT:ARRAY OF WORD);HEX
CD (@SPREP) 1A BE 77 13 ED A1 E0 18 F8 END SDIFF;
 
PROCEDURE COUNT(S:ARRAY OF WORD):CARDINAL;HEX
D9 AF 57 5F 67 6F 0E 08 D9 7E D9 41 07 ED 5A 10
FC D9 ED A1 E2 (@COUNT+9) D9 C9 END COUNT
 
END SETOPS;
