Sprite list test

src/libsrc/apple/hgrlib.pla

@@ -257,6 +257,19 @@ export def hgrXorSrc(ofst, y, w, h, srcptr)#0
         srcptr = srcptr + w
     next
 end
+export def hgrOrSrc(ofst, y, w, h, srcptr)#0
+    word j, dstptr
+    byte i
+
+    ofst = ofst + drawbuff
+    for j = y to y + h - 1
+        dstptr = hgrscan[j] + ofst
+        for i = 0 to w - 1
+            dstptr->[i] = dstptr->[i] ^ srcptr->[i]
+        next
+        srcptr = srcptr + w
+    next
+end
 export def hgrBLT(x, y, w, h, srcptr)#0
     word i, j
     word saveclr