7  assem: pl(X%,Y%):A%=0:plot: ((set: A=0 24:31,0,A,145::30: 2plot(X,Y) < X<0 X>77 Y<0 Y>75 F addr,byte P$addr=X 2+40*(24-(Y 3))+&7C01 Z8byte=160+"166404080102",2*((X 1)+2*(Y 3))+1,2) d?addr=?addr byte: n: x: : : assem Xstore=&A8:Ystore=&A9 addr=&AA:remainder=&AC sc_start=&350 P=0 1 P%=&900 [OPT P*3 .plot CPX #78:BCS plot_exit CPY #76:BCS plot_exit PHA STX Xstore:STY Ystore LDA #75:SEC:SBC Ystore LDY #0:STY addr+1 " .div3 ,INY:SEC:SBC #3:BPL div3 6DEY:STA remainder:TYA @ STA addr JASL A:ASL A TCLC:ADC addr ^ ASL A hASL A:ROL addr+1 rASL A:ROL addr+1 | STA addr LDA Xstore:LSR A CLC:ADC addr:STA addr  LDA addr+1:ADC #0:STA addr+1 CLC "LDA sc_start:ADC addr:STA addr LDA sc_start+1:ADC addr+1 CMP #&80:BCC plot2 SEC:SBC #&04  .plot2 STA addr+1 LDY #0:LDA (addr),Y  #&20:BEQ plot_exit ASL remainder LDA Xstore: #1 A remainder CLC:ADC #6:TAX &LDA plot_bytes,X:TAX 0 PLA:PHA :CMP #3:BCC plot_or DBEQ plot_inv N%CMP #4:BEQ plot_eor:BCS plot_exit X .plot_or bTXA:A (addr),Y l .plot_go vSTA (addr),Y .plot_exit LDX Xstore:LDY Ystore PLA RTS  .plot_eor TXA: (addr),Y:JMP plot_go  .plot_inv TXA: #255: (addr),Y JMP plot_go .plot_bytes EQUB 1:EQUB 2:EQUB 4:EQUB 8 EQUB 16:EQUB 64 ]