The paper includes this pretty pattern from @viznut

@pixel ( x y -- )
ADDk STH SUB STHr AND #18 DIVk MUL SUB #09 GTH .Screen/pixel DEO
JMP2r