Translate to 6502 assembler code

X from 0 to 319 Y from 0 to 239 Color from 0 to 255 void PutPixel( int X, int Y, unsigned char Color) { unsigned char quot = X / 8; unsigned char rem = X % 8; if ( Color ) VideoA[(Y * 40) + quot] |= (1<<rem); else VideoA[(Y * 40) + quot] &= ~(1<<rem); }