.nolist
    #include    "ti83plus.inc"
.list
.org    $9D93
.db    t2ByteTok, tAsmCmp
 LD DE,PlotSScreen
 LD BC,756
 LD L,%11111111
 LD H,0
loop:
 LD A,(DE)
 XOR L
 LD (DE),A
 INC DE
 DEC BC
 LD A,H
 CP C
 JP NZ, loop
 CP B
 JP NZ, loop
 
 LD IX,PlotSScreen+11
 LD B,63
 LD DE,12
rightedge:
 RES 0,(IX)
 ADD IX,DE
 DJNZ rightedge

 b_call(_GrBufCpy)
 RET
.end
.end