User Tools

Site Tools


base:3d_dot_scroll

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

base:3d_dot_scroll [2015-04-17 04:30] (current)
Line 1: Line 1:
  
 +{{:​base:​3ddotscroll.jpg?​200|}}
 +
 +
 +Executable prg file {{:​base:​3ddotscroll.zip|}}
 +
 +<​code>​
 +;USED ASSEMBLER 64tass v1.45
 +
 +;THIS IS THE EXAMPLE CODE OF 3D DOT SCROLL ON THE C64
 +;NO IRQ, WITHOUT MSX, NO DOUBBLE BUFFERING THIS IS ONLY SAMPLE
 +;I VERY LIKE THIS ART ON THIS COMPUTER
 +;THE RULE IS SIMPLE - ON THE 3D TRAJECTORY DATA OF CHARSET ARE WRITTING
 +;THE TRAJECTORY WAS PREPARED IN MY PROGRAM CREATED IN DELPHI
 +
 +;​=======================
 +;= C64 3D DOT SCROLL ​  =
 +;= BY WEGI /BS/SMR/FTM =
 +;​=======================
 +
 +         *= $0801
 +
 +;BASIC LINE START
 +         .BYTE $0B,​$08,​$90,​$06,​$9E,​$32
 +         .BYTE $30,​$34,​$39,​$00,​$A0,​$00
 +
 +;--------
 +COUNTLINES = 8 ;8 LINES IN CHAR
 +COUNTCHAR = 16 ;16 CHARS TO SHIFT
 +LENLOOP = $62  ;LENGTH LOOP FOR SPEEDCODE ITERATION
 +
 +
 +STOREPLOT = $04  ;4 VECTOR FOR STORE MISC DATA
 +VECTR1 ​   = $06
 +VECTR2 ​   = $08
 +VECTR3 ​   = $0A
 +
 +SCREEN ​   = $2000 ;SCREEN ADDRES
 +SPEEDCODE = $4000 ;UNROLED CODE ADDRES FOR DISPLAY DATA
 +SPEEDCLEAR = SPEEDCODE + ( COUNTCHAR * LENLOOP * COUNTLINES)+1
 +;SPEED CLEAR ALL 1024 PLOT
 +
 +CHAR1     = $20  ;CHAR TO SHIFT (ON ZP)
 +CHAR2     = CHAR1  + COUNTCHAR
 +CHAR3     = CHAR2  + COUNTCHAR
 +CHAR4     = CHAR3  + COUNTCHAR
 +CHAR5     = CHAR4  + COUNTCHAR
 +CHAR6     = CHAR5  + COUNTCHAR
 +CHAR7     = CHAR6  + COUNTCHAR
 +CHAR8     = CHAR7  + COUNTCHAR
 +CSET2     = CHAR8  + COUNTCHAR
 +
 +;---
 +START
 +         SEI
 +         CLD
 +         LDX #$FB
 +         TXS
 +         LDA #$37
 +         STA $01
 +         JSR $FDA3
 +         JSR $FD15
 +         JSR $E3BF
 +         JSR $FF5B
 +         SEI
 +         LDA #<DRAW
 +         STA $0318
 +         STA $FFFA
 +         STA $FFFE
 +         LDA #>DRAW
 +         STA $0319
 +         STA $FFFB
 +         STA $FFFF
 +         JSR INITGRAPH ;ENABLE HIRES ETC.
 +         JSR FILLCHAR ​ ;FILL CHAR
 +         JSR SETTBADR ​ ;HELP PROC. FOR PREPARE DATA
 +         JSR MAKESPEEDCODE ;MAKE LONG AND BORNING CODE FOR DOTSCROLL
 +                           ;AND SETTING PLOTS FOR WAIT LOOK
 +         JSR SPEEDCODE ;NOW PLOTS WILL BE CLEAR
 +         JSR CLEARCHAR ;NOW CHAR BE CLEAR
 +         JSR MAKESPEEDCLEAR ;LIKE BEFORE FOR CLEAR PLOTS AND SET PLOTS
 +         JSR SPEEDCLEAR ;OK NOW CLEAR PLOTS
 +
 +;==========
 +;HERE IS IRQ NMI AND BRK FOR NEVERENDING LOOP
 +;IN THIS SAMPLE WE DON'T WORK IN THE IRQ
 +;​========== ​        
 +DRAW
 +
 +         SEI
 +         CLD
 +         LDX #$FB  ;STACK INIT
 +         TXS
 +         LDA #$38  ;SHOW ALL 64 RAM (IN THIS SAMPLE NOT NECESSARY)
 +         STA $01
 +         JSR CLEARCHAR ​
 +         JSR SPEEDCLEAR ;CLEAR PLOTS
 +         STA POSSCROLL ​ ;START SCROL FROM ZERO POS.
 +
 +
 +;AFTER INIT AND MAKE SPEEDCODE HERE IS MAINLOP
 +;AND ALL NECESSARY ROUTINES TO WORK DOT SCROLL
 +;REALLY NOT THAT BIG ;-)
 +;FROM $0801 TO $0A29
 +;OF COURSE SPEEDCODE FROM $4000 TO $7D03 STILL OVER HERE         
 +
 +MAINLOOP
 +         JSR ROLCHAR ;SHIFT DATA FOR DOT SCROLL
 +         LDA #$35    ;SHOW I/O
 +         STA $01
 +         
 +         LDX #$C8
 +         CPX $D012
 +         BNE *-3
 +
 +         INC $D020
 +         LDA #$38  ;SHOW ALL RAM
 +         STA $01
 +         JSR SPEEDCLEAR ;CLEAR PLOTS ON THE BITMAP
 +         JSR SPEEDCODE ​ ;DISPLAY PLOTS OF CHARS ON 3D TRAJECTORY
 +         LDA #$35       ;SHOW I/O VIC ETC.
 +         STA $01
 +         DEC $D020
 +
 +         LDA #$EF
 +         CMP $DC01 ;SPACE?
 +         BNE MAINLOOP
 +         CMP $DC01
 +         BEQ *-3
 +         LDA #$38
 +         STA $01
 +         BRK ;GO TO DRAW OF COURSE
 +
 +;​==============
 +;CLEAR OR FILL CHAR DATA
 +;​==============
 +CLEARCHAR
 +         LDA #$00
 +         .BYTE $2C
 +FILLCHAR ​        
 +         LDA #$FF
 +INITCHAR
 +         LDX #$00
 +
 +         -
 +         STA CHAR1,X
 +         INX
 +         CPX #​COUNTCHAR*8+8
 +         BCC -
 +
 +         RTS
 +;​================ ​        
 +ROLCHAR
 +;=======
 +;SHIFT ALL BITS FOR DOT SCROLL
 +;DATA ON ZERO PAGE FOR SPEED
 +;=======
 +
 +      ASL CSET2    ​
 +           
 +      ROL  CHAR1  + COUNTCHAR-1
 +      ROL  CHAR1  + COUNTCHAR-2
 +      ROL  CHAR1  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR1  + COUNTCHAR-4
 +      ROL  CHAR1  + COUNTCHAR-5
 +      ROL  CHAR1  + COUNTCHAR-6
 +      ROL  CHAR1  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR1  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR1  + COUNTCHAR-9
 +      ROL  CHAR1  + COUNTCHAR-10
 +      ROL  CHAR1  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR1  + COUNTCHAR-12
 +      ROL  CHAR1  + COUNTCHAR-13
 +      ROL  CHAR1  + COUNTCHAR-14
 +      ROL  CHAR1  + COUNTCHAR-15 ​          
 +      ROL  CHAR1       
 +      ​
 +      ASL CSET2+1 ​   ​
 +           
 +      ROL  CHAR2  + COUNTCHAR-1
 +      ROL  CHAR2  + COUNTCHAR-2
 +      ROL  CHAR2  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR2  + COUNTCHAR-4
 +      ROL  CHAR2  + COUNTCHAR-5
 +      ROL  CHAR2  + COUNTCHAR-6
 +      ROL  CHAR2  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR2  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR2  + COUNTCHAR-9
 +      ROL  CHAR2  + COUNTCHAR-10
 +      ROL  CHAR2  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR2  + COUNTCHAR-12
 +      ROL  CHAR2  + COUNTCHAR-13
 +      ROL  CHAR2  + COUNTCHAR-14
 +      ROL  CHAR2  + COUNTCHAR-15 ​          
 +      ROL  CHAR2       
 +
 +      ASL CSET2+2 ​   ​
 +           
 +      ROL  CHAR3  + COUNTCHAR-1
 +      ROL  CHAR3  + COUNTCHAR-2
 +      ROL  CHAR3  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR3  + COUNTCHAR-4
 +      ROL  CHAR3  + COUNTCHAR-5
 +      ROL  CHAR3  + COUNTCHAR-6
 +      ROL  CHAR3  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR3  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR3  + COUNTCHAR-9
 +      ROL  CHAR3  + COUNTCHAR-10
 +      ROL  CHAR3  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR3  + COUNTCHAR-12
 +      ROL  CHAR3  + COUNTCHAR-13
 +      ROL  CHAR3  + COUNTCHAR-14
 +      ROL  CHAR3  + COUNTCHAR-15 ​          
 +      ROL  CHAR3       
 +
 +      ASL CSET2+3
 +           
 +      ROL  CHAR4  + COUNTCHAR-1
 +      ROL  CHAR4  + COUNTCHAR-2
 +      ROL  CHAR4  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR4  + COUNTCHAR-4
 +      ROL  CHAR4  + COUNTCHAR-5
 +      ROL  CHAR4  + COUNTCHAR-6
 +      ROL  CHAR4  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR4  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR4  + COUNTCHAR-9
 +      ROL  CHAR4  + COUNTCHAR-10
 +      ROL  CHAR4  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR4  + COUNTCHAR-12
 +      ROL  CHAR4  + COUNTCHAR-13
 +      ROL  CHAR4  + COUNTCHAR-14
 +      ROL  CHAR4  + COUNTCHAR-15 ​          
 +      ROL  CHAR4       
 +
 +      ASL CSET2+4
 +           
 +      ROL  CHAR5  + COUNTCHAR-1
 +      ROL  CHAR5  + COUNTCHAR-2
 +      ROL  CHAR5  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR5  + COUNTCHAR-4
 +      ROL  CHAR5  + COUNTCHAR-5
 +      ROL  CHAR5  + COUNTCHAR-6
 +      ROL  CHAR5  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR5  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR5  + COUNTCHAR-9
 +      ROL  CHAR5  + COUNTCHAR-10
 +      ROL  CHAR5  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR5  + COUNTCHAR-12
 +      ROL  CHAR5  + COUNTCHAR-13
 +      ROL  CHAR5  + COUNTCHAR-14
 +      ROL  CHAR5  + COUNTCHAR-15 ​          
 +      ROL  CHAR5       
 +
 +      ASL CSET2+5 ​   ​
 +           
 +      ROL  CHAR6  + COUNTCHAR-1
 +      ROL  CHAR6  + COUNTCHAR-2
 +      ROL  CHAR6  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR6  + COUNTCHAR-4
 +      ROL  CHAR6  + COUNTCHAR-5
 +      ROL  CHAR6  + COUNTCHAR-6
 +      ROL  CHAR6  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR6  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR6  + COUNTCHAR-9
 +      ROL  CHAR6  + COUNTCHAR-10
 +      ROL  CHAR6  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR6  + COUNTCHAR-12
 +      ROL  CHAR6  + COUNTCHAR-13
 +      ROL  CHAR6  + COUNTCHAR-14
 +      ROL  CHAR6  + COUNTCHAR-15 ​          
 +      ROL  CHAR6       
 +
 +      ASL CSET2+6
 +           
 +      ROL  CHAR7  + COUNTCHAR-1
 +      ROL  CHAR7  + COUNTCHAR-2
 +      ROL  CHAR7  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR7  + COUNTCHAR-4
 +      ROL  CHAR7  + COUNTCHAR-5
 +      ROL  CHAR7  + COUNTCHAR-6
 +      ROL  CHAR7  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR7  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR7  + COUNTCHAR-9
 +      ROL  CHAR7  + COUNTCHAR-10
 +      ROL  CHAR7  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR7  + COUNTCHAR-12
 +      ROL  CHAR7  + COUNTCHAR-13
 +      ROL  CHAR7  + COUNTCHAR-14
 +      ROL  CHAR7  + COUNTCHAR-15 ​          
 +      ROL  CHAR7
 +             
 +      ASL CSET2+7
 +           
 +      ROL  CHAR8  + COUNTCHAR-1
 +      ROL  CHAR8  + COUNTCHAR-2
 +      ROL  CHAR8  + COUNTCHAR-3 ​     ​
 +      ROL  CHAR8  + COUNTCHAR-4
 +      ROL  CHAR8  + COUNTCHAR-5
 +      ROL  CHAR8  + COUNTCHAR-6
 +      ROL  CHAR8  + COUNTCHAR-7 ​           ​
 +      ROL  CHAR8  + COUNTCHAR-8 ​     ​
 +      ROL  CHAR8  + COUNTCHAR-9
 +      ROL  CHAR8  + COUNTCHAR-10
 +      ROL  CHAR8  + COUNTCHAR-11 ​     ​
 +      ROL  CHAR8  + COUNTCHAR-12
 +      ROL  CHAR8  + COUNTCHAR-13
 +      ROL  CHAR8  + COUNTCHAR-14
 +      ROL  CHAR8  + COUNTCHAR-15 ​          
 +      ROL  CHAR8
 +       
 +      INC CNTROL
 +      LDA CNTROL
 +      AND #$07     ;IF ALL CHAR WAS SHIFTED THEN SCROLL NEXT CHAR
 +      BEQ MYSCROL
 +      RTS
 +;​=================
 +MYSCROL ​     ​
 +;​===========
 +;SIMPLE SCROLL ROUTINE (MAX 256 CHAR!!!)
 +;​===========
 +      LDX POSSCROLL
 +      LDA TXTSCROL,X
 +      BNE +
 +      STA POSSCROLL
 +      LDA TXTSCROL
 +      +
 +      AND #$3F
 +      ASL
 +      ASL
 +      ASL        ;CHAR MULTIPLY 8 FOR ADDRES IN THE CHARGEN
 +      STA VECTR1
 +      LDA #$00
 +      ADC #$D0
 +      STA VECTR1+1 ​     ​
 +      PHP        ;STATUS REGISTER SAVE
 +      LDY #$07
 +      SEI
 +      LDA $01
 +      PHA      ;SAVE $01
 +      LDA #$33 ;HERE IS USED CHARGEN FROM C64 ROM
 +      STA $01  ;YOU CAN USED SOMETHING OWN
 +      -
 +      LDA (VECTR1),Y
 +      STA CSET2,Y
 +      DEY
 +      BPL -
 +            ​
 +      PLA     ;​RECALL $01
 +      STA $01
 +      PLP     ;​RECALL STATUS REGISTER FOR "​I"​ (INTERRUPTS WAS BLOCKED?)
 +      INC POSSCROLL
 +      RTS
 +
 +
 +;​==============
 +POSSCROLL ​ .BYTE 0
 +CNTROL ​   .BYTE 0
 +TXTSCROL ​ .TEXT "​_________ ​   C64 3D DOT SCROLLER ​               "
 +          .BYTE 0
 +;​==============
 +;​======================================================
 +;AFTER INIT ALL DATA AND PROC. BELOW CAN BE ERASE
 +;​======================================================
 +*= $1000
 +INITGRAPH
 +;​==============
 +;ENABLE HIRES, FILL COLLOR, CLEAR BITMAP
 +;​==============
 +         
 +         LDA #$18
 +         STA $D018
 +
 +         LDA $D011
 +         ORA #$20
 +         STA $D011
 +
 +
 +         LDX #$00
 +         LDA #246
 +         
 +-
 +         STA $0400,X
 +         STA $0500,X
 +         STA $0600,X
 +         STA $06F8,X
 +         INX
 +         BNE -
 +         STX POSSCROLL
 +
 +         LDX #>SCREEN
 +         STX VECTR1+1
 +         LDY #$00
 +         STY VECTR1
 +
 +
 +         LDA #$00
 +-
 +         STA (VECTR1),Y
 +         INY
 +         BNE -
 +         INC VECTR1+1
 +         DEX
 +         BNE -
 +         RTS
 +;​===========
 +;CALCULATE TB ROW ADDRESS IN THE BITMAP
 +;​===========
 +SETTBADR
 +         LDX #$00
 +         LDA #>SCREEN
 +         STX VECTR1
 +         STA VECTR1+1
 +-
 +         LDA VECTR1
 +         STA TBADLO,X
 +         LDA VECTR1+1
 +         STA TBADHI,X
 +
 +         LDA VECTR1
 +         CLC
 +         ADC #$40
 +         STA VECTR1
 +
 +         LDA VECTR1+1
 +         ADC #$01
 +         STA VECTR1+1
 +         INX
 +         CPX #25
 +         BCC -
 +         RTS
 +;--------
 +TBBIT
 +         .BYTE %10000000
 +         .BYTE %01000000
 +         .BYTE %00100000
 +         .BYTE %00010000
 +         .BYTE %00001000
 +         .BYTE %00000100
 +         .BYTE %00000010
 +         .BYTE %00000001
 +;---
 +TBADLO
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +;---
 +TBADHI
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +         .BYTE 0,0,0,0,0
 +;--------
 +XPOSS       .BYTE 0,0
 +YPOSS       .BYTE 0
 +;--------
 +CALCPLOTADD
 +;​==============================
 +;CONVERT DATA FROM XPOSS LO HI AND YPOS (BITMAP POSS.) AND RETURN
 +;TO ACC #<PLOT ADDRES, YREG #>PLOT ADDRES, XREG BIT POSS.
 +;​==============================
 +         LDA YPOSS
 +         LSR A
 +         LSR A
 +         LSR A
 +         TAX
 +
 +         LDA YPOSS
 +         AND #$07
 +         TAY
 +
 +         LDA XPOSS
 +         AND #$F8
 +         CLC
 +         ADC TBADLO,X
 +         STA STOREPLOT
 +
 +         LDA TBADHI,X
 +         ADC XPOSS+1
 +         STA STOREPLOT+1
 +
 +         LDA XPOSS
 +         AND #$07
 +         TAX
 +
 +;SET PLOT THIS IS NOT NECESSARY ONLY FOR WAIT LOOK
 +         LDA (STOREPLOT),​Y
 +         EOR TBBIT,X
 +         STA (STOREPLOT),​Y
 +;        RTS
 +;OR THIS IS ONLY EOR PLOT PROCEDURE
 +         TYA
 +         CLC
 +         ADC STOREPLOT
 +         STA STOREPLOT
 +         BCC +
 +         INC STOREPLOT+1
 +         +
 +         LDA TBBIT,X
 +         TAX
 +         LDA STOREPLOT
 +         LDY STOREPLOT+1
 +;IN ACC #<PLOT ADDRES, YREG #>PLOT ADDRES, XREG BIT POSS.         
 +         RTS
 +;​===========================
 +MAKESPEEDCODE
 +;​===========================
 +;ITERATOR FOR GENERATE UNROLLED CODE
 +;FROM SPEEDCODE BASE
 +;​===========================
 +          LDA #<​SPEEDCODE
 +          STA VECTR3
 +          LDA #>​SPEEDCODE
 +          STA VECTR3+1
 +          ​
 +
 +          LDY #$00
 +          STY CNTRCOLUMN
 +          ​
 +          ​
 +          LDA #<CHAR1
 +          STA CNTCHAR  ​
 +
 +MCOD0            ​
 +          LDA #<PLOTS
 +          STA VECTR1
 +          LDA #>PLOTS
 +          STA VECTR1+1
 +          LDA CNTRCOLUMN
 +          ASL
 +          ADC CNTRCOLUMN
 +          ADC VECTR1
 +          STA VECTR1
 +          BCC +
 +          INC VECTR1+1
 +          +
 +          LDY #$00
 +          STY CNTRLINES
 +          JSR STOREDATA
 +          ​
 +MCOD1          ​
 +
 +          JSR CALCPLOTADD ;IN ACC #<PLOT ADDRES, YREG #>PLOT ADDRES, XREG BIT POSS.
 +          STA DOT8
 +          STA DOT8+5
 +          STY DOT8+1
 +          STY DOT8+6
 +          STX DOT8+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT7
 +          STA DOT7+5
 +          STY DOT7+1
 +          STY DOT7+6
 +          STX DOT7+3
 +
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT6
 +          STA DOT6+5
 +          STY DOT6+1
 +          STY DOT6+6
 +          STX DOT6+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT5
 +          STA DOT5+5
 +          STY DOT5+1
 +          STY DOT5+6
 +          STX DOT5+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT4
 +          STA DOT4+5
 +          STY DOT4+1
 +          STY DOT4+6
 +          STX DOT4+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT3
 +          STA DOT3+5
 +          STY DOT3+1
 +          STY DOT3+6
 +          STX DOT3+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT2
 +          STA DOT2+5
 +          STY DOT2+1
 +          STY DOT2+6
 +          STX DOT2+3
 +          ​
 +          JSR NEXTROW
 +          JSR CALCPLOTADD
 +          STA DOT1
 +          STA DOT1+5
 +          STY DOT1+1
 +          STY DOT1+6
 +          STX DOT1+3
 +          ​
 +          JSR NEXTROW
 +          LDA CNTCHAR
 +          STA LITERA1
 +          INC CNTCHAR
 +
 +          ​
 +          LDY #$00
 +          -
 +          LDA FCOD,Y
 +          STA (VECTR3),Y
 +          INY
 +          CPY #LENLOOP+1
 +          BNE -
 +          LDA VECTR3
 +          CLC
 +          ADC #LENLOOP
 +          STA VECTR3
 +          BCC +
 +          INC VECTR3+1
 +          +
 +          ​
 +          ​
 +          ​
 +          INC CNTRLINES
 +          LDA CNTRLINES
 +          CMP #COUNTCHAR
 +          BEQ +
 +          JMP MCOD1
 +          +
 +          INC CNTRCOLUMN
 +          LDA CNTRCOLUMN
 +          CMP #COUNTLINES
 +          BEQ +
 +          JMP MCOD0
 +          +
 +          RTS          ​
 +;​=================
 +;MAKE STA $ADDRESS PLOT FOR FAST CLEAR ALL 1024 BITS
 +;NOT SUPER OPTIMIZE!!! COS DON'T ELLIMINATED THIS SAME ADDRES FOR
 +;ANY PLOTS          ​
 +;​=================
 +MAKESPEEDCLEAR
 +          ​
 +          LDA #<​SPEEDCLEAR
 +          STA VECTR3
 +          LDA #>​SPEEDCLEAR
 +          STA VECTR3+1
 +          ​
 +          LDA #<PLOTS
 +          STA VECTR1
 +          LDA #>PLOTS
 +          STA VECTR1+1
 +          ​
 +          LDA #$A9
 +          LDY #$00
 +          STA (VECTR3),Y
 +          TYA
 +          INY
 +          STA (VECTR3),Y
 +          LDA VECTR3
 +          CLC
 +          ADC #$02
 +          STA VECTR3
 +          BCC +
 +          INC VECTR3+1
 +          +
 +-          ​
 +          LDY #$00
 +          LDA #$8D
 +          STA (VECTR3),Y
 +          LDY #$03
 +          LDA #$60
 +          STA (VECTR3),Y
 +          ​
 +          JSR STOREDATA
 +          JSR CALCPLOTADD
 +          TAX
 +          TYA
 +          LDY #$02
 +          STA (VECTR3),Y
 +          TXA
 +          DEY
 +          STA (VECTR3),Y
 +          LDA VECTR1
 +          CLC
 +          ADC #$03
 +          STA VECTR1
 +          BCC +
 +          INC VECTR1+1
 +          +
 +          LDA VECTR3
 +          CLC
 +          ADC #$03
 +          STA VECTR3
 +          BCC +
 +          INC VECTR3+1
 +          +
 +
 +          LDA VECTR1+1
 +          CMP #>EPLOT
 +          BNE -
 +          LDA VECTR1
 +          CMP #<EPLOT
 +          BNE - 
 +          ​
 +          RTS 
 +;===
 +;NEXT 8 DOT'S
 +;========
 +NEXTROW
 +          LDA VECTR1
 +          CLC
 +          ADC #24
 +          STA VECTR1
 +          BCC +
 +          INC VECTR1+1
 +          +
 +STOREDATA
 +          LDY #$00
 +          LDA (VECTR1),Y
 +          STA XPOSS
 +          INY
 +          LDA (VECTR1),Y
 +          STA YPOSS
 +          INY
 +          LDA (VECTR1),Y
 +          STA XPOSS+1
 +          RTS
 +;​===========================
 +CNTRLINES ​  .BYTE 0
 +CNTRCOLUMN ​ .BYTE 0
 +CNTCHAR ​    .BYTE 0
 +;​===========================
 +;BELOW IS THE SPEEDCODE BASE FOR ITERATION
 +;​===========================
 + 
 +FCOD
 +LITERA1 = *+1
 +
 + LDA $77
 + ASL        ;WHY ASL AND TAX? COS LOWEST BIT IN NYBBLES NOT WORKING
 + TAX        ;IN ILLEGAL OPCODE $8B (ANE... ANX) SO AFTER ASL
 + AND #$10   ;HI BIT IN CARRY LOWEST BIT IS SECOND SAVE ACC TO XREG
 + BEQ +      ;AND CHECK THE LOWEST BIT IN HI NYBBLE (AND #$10)
 +
 +DOT4 = *+1 
 + LDA $1000  ;HERE WILL BE OVERWRITE ADDRES OF PLOT
 + EOR #$10   ;AND HERE BIT POSS. OF PLOT
 + STA $1000
 + +
 + BCC +
 +DOT8 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++
 + .BYTE $8B , $80 ;ANX #$80
 + BEQ +
 +DOT7 = *+1
 + LDA $1000   ;AND LIKE BEFORE...
 + EOR #$10
 + STA $1000
 ++
 + .BYTE $8B , $40 ;ANX #$40 YOU UNDERSTAND I HOPPE
 + BEQ +
 +DOT6 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++
 + .BYTE $8B , $20
 + BEQ +           ;IF BIT IS SET SO SET BIT ON THE BITMAP
 +DOT5 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++
 + .BYTE $8B , $08  ;IF BIT IS NOT SET GO TO THE NEXT 
 + BEQ +
 +DOT3 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++
 + .BYTE $8B , $04
 + BEQ +
 +DOT2 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++     
 + .BYTE $8B , $02
 + BEQ +
 +DOT1 = *+1
 + LDA $1000
 + EOR #$10
 + STA $1000
 ++
 +     RTS
 +;​==============
 +;MAIN TRAJECTORY 1024 PLOT POSS. IN THE HIRES SCREEN
 +;​==============
 +PLOTS
 +
 + ; LOW X POS, Y POS, HI X POS ...
 + .BYTE 13 , 56 , 0 , 13 , 57 , 0 , 13 , 58 , 0 , 13 , 59 , 0 , 13 , 61 , 0 , 13 , 62 , 0 , 13 , 63 , 0 , 13 , 64 , 0
 + .BYTE 14 , 56 , 0 , 14 , 57 , 0 , 14 , 58 , 0 , 14 , 59 , 0 , 14 , 61 , 0 , 14 , 62 , 0 , 14 , 63 , 0 , 14 , 64 , 0
 + .BYTE 15 , 56 , 0 , 15 , 57 , 0 , 15 , 58 , 0 , 15 , 59 , 0 , 15 , 60 , 0 , 15 , 62 , 0 , 15 , 63 , 0 , 15 , 64 , 0
 + .BYTE 16 , 55 , 0 , 16 , 57 , 0 , 16 , 58 , 0 , 16 , 59 , 0 , 16 , 60 , 0 , 16 , 62 , 0 , 16 , 63 , 0 , 16 , 64 , 0
 + .BYTE 18 , 55 , 0 , 18 , 57 , 0 , 18 , 58 , 0 , 18 , 59 , 0 , 18 , 60 , 0 , 18 , 61 , 0 , 18 , 63 , 0 , 18 , 64 , 0
 + .BYTE 19 , 55 , 0 , 19 , 56 , 0 , 19 , 58 , 0 , 19 , 59 , 0 , 19 , 60 , 0 , 19 , 61 , 0 , 19 , 63 , 0 , 19 , 64 , 0
 + .BYTE 20 , 55 , 0 , 20 , 56 , 0 , 20 , 57 , 0 , 20 , 59 , 0 , 20 , 60 , 0 , 20 , 61 , 0 , 20 , 62 , 0 , 20 , 64 , 0
 + .BYTE 21 , 55 , 0 , 21 , 56 , 0 , 21 , 57 , 0 , 21 , 58 , 0 , 21 , 60 , 0 , 21 , 61 , 0 , 21 , 62 , 0 , 21 , 63 , 0
 + .BYTE 22 , 54 , 0 , 22 , 56 , 0 , 22 , 57 , 0 , 22 , 58 , 0 , 22 , 59 , 0 , 22 , 61 , 0 , 22 , 62 , 0 , 22 , 63 , 0
 + .BYTE 23 , 54 , 0 , 23 , 55 , 0 , 23 , 57 , 0 , 23 , 58 , 0 , 23 , 59 , 0 , 23 , 60 , 0 , 23 , 62 , 0 , 23 , 63 , 0
 + .BYTE 24 , 54 , 0 , 24 , 55 , 0 , 24 , 56 , 0 , 24 , 58 , 0 , 24 , 59 , 0 , 24 , 60 , 0 , 24 , 61 , 0 , 24 , 63 , 0
 + .BYTE 24 , 54 , 0 , 24 , 55 , 0 , 24 , 56 , 0 , 24 , 57 , 0 , 24 , 59 , 0 , 24 , 60 , 0 , 24 , 61 , 0 , 24 , 62 , 0
 + .BYTE 25 , 53 , 0 , 25 , 54 , 0 , 25 , 56 , 0 , 25 , 57 , 0 , 25 , 58 , 0 , 25 , 60 , 0 , 25 , 61 , 0 , 25 , 62 , 0
 + .BYTE 26 , 53 , 0 , 26 , 54 , 0 , 26 , 55 , 0 , 26 , 57 , 0 , 26 , 58 , 0 , 26 , 59 , 0 , 26 , 60 , 0 , 26 , 62 , 0
 + .BYTE 27 , 52 , 0 , 27 , 54 , 0 , 27 , 55 , 0 , 27 , 56 , 0 , 27 , 58 , 0 , 27 , 59 , 0 , 27 , 60 , 0 , 27 , 61 , 0
 + .BYTE 28 , 52 , 0 , 28 , 53 , 0 , 28 , 55 , 0 , 28 , 56 , 0 , 28 , 57 , 0 , 28 , 58 , 0 , 28 , 60 , 0 , 28 , 61 , 0
 + .BYTE 29 , 52 , 0 , 29 , 53 , 0 , 29 , 54 , 0 , 29 , 55 , 0 , 29 , 57 , 0 , 29 , 58 , 0 , 29 , 59 , 0 , 29 , 61 , 0
 + .BYTE 30 , 51 , 0 , 30 , 52 , 0 , 30 , 54 , 0 , 30 , 55 , 0 , 30 , 56 , 0 , 30 , 58 , 0 , 30 , 59 , 0 , 30 , 60 , 0
 + .BYTE 31 , 51 , 0 , 31 , 52 , 0 , 31 , 53 , 0 , 31 , 54 , 0 , 31 , 56 , 0 , 31 , 57 , 0 , 31 , 58 , 0 , 31 , 60 , 0
 + .BYTE 31 , 50 , 0 , 31 , 51 , 0 , 31 , 53 , 0 , 31 , 54 , 0 , 31 , 55 , 0 , 31 , 57 , 0 , 31 , 58 , 0 , 31 , 59 , 0
 + .BYTE 32 , 49 , 0 , 32 , 51 , 0 , 32 , 52 , 0 , 32 , 53 , 0 , 32 , 55 , 0 , 32 , 56 , 0 , 32 , 57 , 0 , 32 , 59 , 0
 + .BYTE 33 , 49 , 0 , 33 , 50 , 0 , 33 , 52 , 0 , 33 , 53 , 0 , 33 , 54 , 0 , 33 , 56 , 0 , 33 , 57 , 0 , 33 , 58 , 0
 + .BYTE 34 , 48 , 0 , 34 , 50 , 0 , 34 , 51 , 0 , 34 , 52 , 0 , 34 , 54 , 0 , 34 , 55 , 0 , 34 , 57 , 0 , 34 , 58 , 0
 + .BYTE 35 , 48 , 0 , 35 , 49 , 0 , 35 , 51 , 0 , 35 , 52 , 0 , 35 , 53 , 0 , 35 , 55 , 0 , 35 , 56 , 0 , 35 , 57 , 0
 + .BYTE 35 , 47 , 0 , 35 , 49 , 0 , 35 , 50 , 0 , 35 , 51 , 0 , 35 , 53 , 0 , 35 , 54 , 0 , 35 , 56 , 0 , 35 , 57 , 0
 + .BYTE 36 , 47 , 0 , 36 , 48 , 0 , 36 , 49 , 0 , 36 , 51 , 0 , 36 , 52 , 0 , 36 , 54 , 0 , 36 , 55 , 0 , 36 , 56 , 0
 + .BYTE 37 , 46 , 0 , 37 , 47 , 0 , 37 , 49 , 0 , 37 , 50 , 0 , 37 , 52 , 0 , 37 , 53 , 0 , 37 , 55 , 0 , 37 , 56 , 0
 + .BYTE 38 , 45 , 0 , 38 , 47 , 0 , 38 , 48 , 0 , 38 , 50 , 0 , 38 , 51 , 0 , 38 , 53 , 0 , 38 , 54 , 0 , 38 , 56 , 0
 + .BYTE 39 , 45 , 0 , 39 , 46 , 0 , 39 , 48 , 0 , 39 , 49 , 0 , 39 , 51 , 0 , 39 , 52 , 0 , 39 , 54 , 0 , 39 , 55 , 0
 + .BYTE 39 , 44 , 0 , 39 , 46 , 0 , 39 , 47 , 0 , 39 , 49 , 0 , 39 , 50 , 0 , 39 , 52 , 0 , 39 , 53 , 0 , 39 , 55 , 0
 + .BYTE 40 , 44 , 0 , 40 , 45 , 0 , 40 , 47 , 0 , 40 , 48 , 0 , 40 , 50 , 0 , 40 , 51 , 0 , 40 , 53 , 0 , 40 , 54 , 0
 + .BYTE 41 , 43 , 0 , 41 , 45 , 0 , 41 , 46 , 0 , 41 , 48 , 0 , 41 , 49 , 0 , 41 , 51 , 0 , 41 , 52 , 0 , 41 , 54 , 0
 + .BYTE 42 , 43 , 0 , 42 , 44 , 0 , 42 , 46 , 0 , 42 , 47 , 0 , 42 , 49 , 0 , 42 , 50 , 0 , 42 , 52 , 0 , 42 , 53 , 0
 + .BYTE 43 , 42 , 0 , 43 , 44 , 0 , 43 , 45 , 0 , 43 , 47 , 0 , 43 , 48 , 0 , 43 , 50 , 0 , 43 , 51 , 0 , 43 , 53 , 0
 + .BYTE 44 , 41 , 0 , 44 , 43 , 0 , 44 , 45 , 0 , 44 , 46 , 0 , 44 , 48 , 0 , 44 , 49 , 0 , 44 , 51 , 0 , 44 , 53 , 0
 + .BYTE 44 , 41 , 0 , 44 , 43 , 0 , 44 , 44 , 0 , 44 , 46 , 0 , 44 , 47 , 0 , 44 , 49 , 0 , 44 , 51 , 0 , 44 , 52 , 0
 + .BYTE 45 , 40 , 0 , 45 , 42 , 0 , 45 , 44 , 0 , 45 , 45 , 0 , 45 , 47 , 0 , 45 , 49 , 0 , 45 , 50 , 0 , 45 , 52 , 0
 + .BYTE 46 , 40 , 0 , 46 , 42 , 0 , 46 , 43 , 0 , 46 , 45 , 0 , 46 , 47 , 0 , 46 , 48 , 0 , 46 , 50 , 0 , 46 , 52 , 0
 + .BYTE 47 , 39 , 0 , 47 , 41 , 0 , 47 , 43 , 0 , 47 , 45 , 0 , 47 , 46 , 0 , 47 , 48 , 0 , 47 , 50 , 0 , 47 , 51 , 0
 + .BYTE 48 , 39 , 0 , 48 , 41 , 0 , 48 , 42 , 0 , 48 , 44 , 0 , 48 , 46 , 0 , 48 , 48 , 0 , 48 , 49 , 0 , 48 , 51 , 0
 + .BYTE 49 , 39 , 0 , 49 , 40 , 0 , 49 , 42 , 0 , 49 , 44 , 0 , 49 , 46 , 0 , 49 , 47 , 0 , 49 , 49 , 0 , 49 , 51 , 0
 + .BYTE 50 , 38 , 0 , 50 , 40 , 0 , 50 , 42 , 0 , 50 , 44 , 0 , 50 , 45 , 0 , 50 , 47 , 0 , 50 , 49 , 0 , 50 , 51 , 0
 + .BYTE 51 , 38 , 0 , 51 , 40 , 0 , 51 , 42 , 0 , 51 , 43 , 0 , 51 , 45 , 0 , 51 , 47 , 0 , 51 , 49 , 0 , 51 , 51 , 0
 + .BYTE 52 , 38 , 0 , 52 , 40 , 0 , 52 , 41 , 0 , 52 , 43 , 0 , 52 , 45 , 0 , 52 , 47 , 0 , 52 , 49 , 0 , 52 , 51 , 0
 + .BYTE 53 , 38 , 0 , 53 , 39 , 0 , 53 , 41 , 0 , 53 , 43 , 0 , 53 , 45 , 0 , 53 , 47 , 0 , 53 , 49 , 0 , 53 , 51 , 0
 + .BYTE 55 , 37 , 0 , 55 , 39 , 0 , 55 , 41 , 0 , 55 , 43 , 0 , 55 , 45 , 0 , 55 , 47 , 0 , 55 , 49 , 0 , 55 , 51 , 0
 + .BYTE 56 , 37 , 0 , 56 , 39 , 0 , 56 , 41 , 0 , 56 , 43 , 0 , 56 , 45 , 0 , 56 , 47 , 0 , 56 , 49 , 0 , 56 , 51 , 0
 + .BYTE 57 , 37 , 0 , 57 , 39 , 0 , 57 , 41 , 0 , 57 , 43 , 0 , 57 , 45 , 0 , 57 , 47 , 0 , 57 , 49 , 0 , 57 , 51 , 0
 + .BYTE 58 , 37 , 0 , 58 , 39 , 0 , 58 , 41 , 0 , 58 , 43 , 0 , 58 , 45 , 0 , 58 , 48 , 0 , 58 , 50 , 0 , 58 , 52 , 0
 + .BYTE 60 , 37 , 0 , 60 , 40 , 0 , 60 , 42 , 0 , 60 , 44 , 0 , 60 , 46 , 0 , 60 , 48 , 0 , 60 , 50 , 0 , 60 , 52 , 0
 + .BYTE 61 , 38 , 0 , 61 , 40 , 0 , 61 , 42 , 0 , 61 , 44 , 0 , 61 , 46 , 0 , 61 , 48 , 0 , 61 , 50 , 0 , 61 , 53 , 0
 + .BYTE 63 , 38 , 0 , 63 , 40 , 0 , 63 , 42 , 0 , 63 , 44 , 0 , 63 , 47 , 0 , 63 , 49 , 0 , 63 , 51 , 0 , 63 , 53 , 0
 + .BYTE 64 , 38 , 0 , 64 , 41 , 0 , 64 , 43 , 0 , 64 , 45 , 0 , 64 , 47 , 0 , 64 , 49 , 0 , 64 , 52 , 0 , 64 , 54 , 0
 + .BYTE 66 , 39 , 0 , 66 , 41 , 0 , 66 , 43 , 0 , 66 , 46 , 0 , 66 , 48 , 0 , 66 , 50 , 0 , 66 , 52 , 0 , 66 , 55 , 0
 + .BYTE 68 , 39 , 0 , 68 , 42 , 0 , 68 , 44 , 0 , 68 , 46 , 0 , 68 , 49 , 0 , 68 , 51 , 0 , 68 , 53 , 0 , 68 , 56 , 0
 + .BYTE 69 , 40 , 0 , 69 , 42 , 0 , 69 , 45 , 0 , 69 , 47 , 0 , 69 , 50 , 0 , 69 , 52 , 0 , 69 , 54 , 0 , 69 , 57 , 0
 + .BYTE 71 , 41 , 0 , 71 , 43 , 0 , 71 , 46 , 0 , 71 , 48 , 0 , 71 , 51 , 0 , 71 , 53 , 0 , 71 , 55 , 0 , 71 , 58 , 0
 + .BYTE 73 , 42 , 0 , 73 , 44 , 0 , 73 , 47 , 0 , 73 , 49 , 0 , 73 , 52 , 0 , 73 , 54 , 0 , 73 , 57 , 0 , 73 , 59 , 0
 + .BYTE 75 , 43 , 0 , 75 , 45 , 0 , 75 , 48 , 0 , 75 , 50 , 0 , 75 , 53 , 0 , 75 , 56 , 0 , 75 , 58 , 0 , 75 , 61 , 0
 + .BYTE 78 , 44 , 0 , 78 , 46 , 0 , 78 , 49 , 0 , 78 , 52 , 0 , 78 , 54 , 0 , 78 , 57 , 0 , 78 , 60 , 0 , 78 , 62 , 0
 + .BYTE 80 , 45 , 0 , 80 , 48 , 0 , 80 , 50 , 0 , 80 , 53 , 0 , 80 , 56 , 0 , 80 , 59 , 0 , 80 , 61 , 0 , 80 , 64 , 0
 + .BYTE 83 , 46 , 0 , 83 , 49 , 0 , 83 , 52 , 0 , 83 , 55 , 0 , 83 , 58 , 0 , 83 , 60 , 0 , 83 , 63 , 0 , 83 , 66 , 0
 + .BYTE 85 , 48 , 0 , 85 , 51 , 0 , 85 , 54 , 0 , 85 , 57 , 0 , 85 , 59 , 0 , 85 , 62 , 0 , 85 , 65 , 0 , 85 , 68 , 0
 + .BYTE 88 , 50 , 0 , 88 , 53 , 0 , 88 , 56 , 0 , 88 , 59 , 0 , 88 , 61 , 0 , 88 , 64 , 0 , 88 , 67 , 0 , 88 , 70 , 0
 + .BYTE 91 , 52 , 0 , 91 , 55 , 0 , 91 , 58 , 0 , 91 , 61 , 0 , 91 , 64 , 0 , 91 , 67 , 0 , 91 , 70 , 0 , 91 , 73 , 0
 + .BYTE 94 , 54 , 0 , 94 , 57 , 0 , 94 , 60 , 0 , 94 , 63 , 0 , 94 , 66 , 0 , 94 , 69 , 0 , 94 , 72 , 0 , 94 , 75 , 0
 + .BYTE 97 , 56 , 0 , 97 , 59 , 0 , 97 , 62 , 0 , 97 , 65 , 0 , 97 , 68 , 0 , 97 , 72 , 0 , 97 , 75 , 0 , 97 , 78 , 0
 + .BYTE 101 , 58 , 0 , 101 , 61 , 0 , 101 , 65 , 0 , 101 , 68 , 0 , 101 , 71 , 0 , 101 , 74 , 0 , 101 , 78 , 0 , 101 , 81 , 0
 + .BYTE 105 , 60 , 0 , 105 , 64 , 0 , 105 , 67 , 0 , 105 , 71 , 0 , 105 , 74 , 0 , 105 , 77 , 0 , 105 , 81 , 0 , 105 , 84 , 0
 + .BYTE 108 , 63 , 0 , 108 , 67 , 0 , 108 , 70 , 0 , 108 , 74 , 0 , 108 , 77 , 0 , 108 , 80 , 0 , 108 , 84 , 0 , 108 , 87 , 0
 + .BYTE 112 , 66 , 0 , 112 , 69 , 0 , 112 , 73 , 0 , 112 , 77 , 0 , 112 , 80 , 0 , 112 , 84 , 0 , 112 , 87 , 0 , 112 , 91 , 0
 + .BYTE 117 , 69 , 0 , 117 , 73 , 0 , 117 , 76 , 0 , 117 , 80 , 0 , 117 , 84 , 0 , 117 , 87 , 0 , 117 , 91 , 0 , 117 , 95 , 0
 + .BYTE 121 , 72 , 0 , 121 , 76 , 0 , 121 , 80 , 0 , 121 , 83 , 0 , 121 , 87 , 0 , 121 , 91 , 0 , 121 , 95 , 0 , 121 , 98 , 0
 + .BYTE 126 , 75 , 0 , 126 , 79 , 0 , 126 , 83 , 0 , 126 , 87 , 0 , 126 , 91 , 0 , 126 , 95 , 0 , 126 , 98 , 0 , 126 , 102 , 0
 + .BYTE 131 , 79 , 0 , 131 , 83 , 0 , 131 , 87 , 0 , 131 , 91 , 0 , 131 , 95 , 0 , 131 , 98 , 0 , 131 , 102 , 0 , 131 , 106 , 0
 + .BYTE 136 , 82 , 0 , 136 , 86 , 0 , 136 , 90 , 0 , 136 , 94 , 0 , 136 , 98 , 0 , 136 , 103 , 0 , 136 , 107 , 0 , 136 , 111 , 0
 + .BYTE 141 , 86 , 0 , 141 , 90 , 0 , 141 , 94 , 0 , 141 , 98 , 0 , 141 , 103 , 0 , 141 , 107 , 0 , 141 , 111 , 0 , 141 , 115 , 0
 + .BYTE 147 , 90 , 0 , 147 , 94 , 0 , 147 , 98 , 0 , 147 , 102 , 0 , 147 , 107 , 0 , 147 , 111 , 0 , 147 , 115 , 0 , 147 , 120 , 0
 + .BYTE 153 , 93 , 0 , 153 , 98 , 0 , 153 , 102 , 0 , 153 , 107 , 0 , 153 , 111 , 0 , 153 , 115 , 0 , 153 , 120 , 0 , 153 , 124 , 0
 + .BYTE 159 , 97 , 0 , 159 , 102 , 0 , 159 , 106 , 0 , 159 , 111 , 0 , 159 , 115 , 0 , 159 , 120 , 0 , 159 , 124 , 0 , 159 , 129 , 0
 + .BYTE 165 , 101 , 0 , 165 , 106 , 0 , 165 , 110 , 0 , 165 , 115 , 0 , 165 , 120 , 0 , 165 , 124 , 0 , 165 , 129 , 0 , 165 , 134 , 0
 + .BYTE 171 , 105 , 0 , 171 , 110 , 0 , 171 , 115 , 0 , 171 , 119 , 0 , 171 , 124 , 0 , 171 , 129 , 0 , 171 , 134 , 0 , 171 , 138 , 0
 + .BYTE 178 , 109 , 0 , 178 , 114 , 0 , 178 , 119 , 0 , 178 , 124 , 0 , 178 , 128 , 0 , 178 , 133 , 0 , 178 , 138 , 0 , 178 , 143 , 0
 + .BYTE 185 , 113 , 0 , 185 , 118 , 0 , 185 , 123 , 0 , 185 , 128 , 0 , 185 , 133 , 0 , 185 , 138 , 0 , 185 , 143 , 0 , 185 , 147 , 0
 + .BYTE 191 , 117 , 0 , 191 , 122 , 0 , 191 , 127 , 0 , 191 , 132 , 0 , 191 , 137 , 0 , 191 , 142 , 0 , 191 , 147 , 0 , 191 , 152 , 0
 + .BYTE 198 , 121 , 0 , 198 , 126 , 0 , 198 , 131 , 0 , 198 , 136 , 0 , 198 , 141 , 0 , 198 , 146 , 0 , 198 , 151 , 0 , 198 , 156 , 0
 + .BYTE 205 , 124 , 0 , 205 , 129 , 0 , 205 , 135 , 0 , 205 , 140 , 0 , 205 , 145 , 0 , 205 , 150 , 0 , 205 , 155 , 0 , 205 , 161 , 0
 + .BYTE 212 , 128 , 0 , 212 , 133 , 0 , 212 , 138 , 0 , 212 , 143 , 0 , 212 , 149 , 0 , 212 , 154 , 0 , 212 , 159 , 0 , 212 , 164 , 0
 + .BYTE 219 , 131 , 0 , 219 , 136 , 0 , 219 , 141 , 0 , 219 , 147 , 0 , 219 , 152 , 0 , 219 , 157 , 0 , 219 , 163 , 0 , 219 , 168 , 0
 + .BYTE 226 , 134 , 0 , 226 , 139 , 0 , 226 , 144 , 0 , 226 , 150 , 0 , 226 , 155 , 0 , 226 , 161 , 0 , 226 , 166 , 0 , 226 , 171 , 0
 + .BYTE 233 , 136 , 0 , 233 , 142 , 0 , 233 , 147 , 0 , 233 , 153 , 0 , 233 , 158 , 0 , 233 , 164 , 0 , 233 , 169 , 0 , 233 , 174 , 0
 + .BYTE 240 , 138 , 0 , 240 , 144 , 0 , 240 , 150 , 0 , 240 , 155 , 0 , 240 , 161 , 0 , 240 , 166 , 0 , 240 , 172 , 0 , 240 , 177 , 0
 + .BYTE 246 , 140 , 0 , 246 , 146 , 0 , 246 , 152 , 0 , 246 , 157 , 0 , 246 , 163 , 0 , 246 , 168 , 0 , 246 , 174 , 0 , 246 , 179 , 0
 + .BYTE 253 , 142 , 0 , 253 , 148 , 0 , 253 , 153 , 0 , 253 , 159 , 0 , 253 , 164 , 0 , 253 , 170 , 0 , 253 , 175 , 0 , 253 , 181 , 0
 + .BYTE 3 , 143 , 1 , 3 , 149 , 1 , 3 , 154 , 1 , 3 , 160 , 1 , 3 , 166 , 1 , 3 , 171 , 1 , 3 , 177 , 1 , 3 , 182 , 1
 + .BYTE 9 , 144 , 1 , 9 , 149 , 1 , 9 , 155 , 1 , 9 , 161 , 1 , 9 , 166 , 1 , 9 , 172 , 1 , 9 , 177 , 1 , 9 , 183 , 1
 + .BYTE 14 , 144 , 1 , 14 , 150 , 1 , 14 , 155 , 1 , 14 , 161 , 1 , 14 , 167 , 1 , 14 , 172 , 1 , 14 , 178 , 1 , 14 , 183 , 1
 + .BYTE 19 , 144 , 1 , 19 , 150 , 1 , 19 , 155 , 1 , 19 , 161 , 1 , 19 , 166 , 1 , 19 , 172 , 1 , 19 , 178 , 1 , 19 , 183 , 1
 + .BYTE 24 , 144 , 1 , 24 , 149 , 1 , 24 , 155 , 1 , 24 , 160 , 1 , 24 , 166 , 1 , 24 , 171 , 1 , 24 , 177 , 1 , 24 , 182 , 1
 + .BYTE 28 , 143 , 1 , 28 , 148 , 1 , 28 , 154 , 1 , 28 , 159 , 1 , 28 , 165 , 1 , 28 , 170 , 1 , 28 , 176 , 1 , 28 , 181 , 1
 + .BYTE 32 , 141 , 1 , 32 , 147 , 1 , 32 , 152 , 1 , 32 , 158 , 1 , 32 , 163 , 1 , 32 , 169 , 1 , 32 , 174 , 1 , 32 , 179 , 1
 + .BYTE 35 , 139 , 1 , 35 , 145 , 1 , 35 , 150 , 1 , 35 , 156 , 1 , 35 , 161 , 1 , 35 , 166 , 1 , 35 , 172 , 1 , 35 , 177 , 1
 + .BYTE 38 , 137 , 1 , 38 , 143 , 1 , 38 , 148 , 1 , 38 , 153 , 1 , 38 , 159 , 1 , 38 , 164 , 1 , 38 , 169 , 1 , 38 , 175 , 1
 + .BYTE 41 , 135 , 1 , 41 , 140 , 1 , 41 , 145 , 1 , 41 , 151 , 1 , 41 , 156 , 1 , 41 , 161 , 1 , 41 , 166 , 1 , 41 , 172 , 1
 + .BYTE 43 , 132 , 1 , 43 , 137 , 1 , 43 , 142 , 1 , 43 , 148 , 1 , 43 , 153 , 1 , 43 , 158 , 1 , 43 , 163 , 1 , 43 , 168 , 1
 + .BYTE 45 , 129 , 1 , 45 , 134 , 1 , 45 , 139 , 1 , 45 , 144 , 1 , 45 , 149 , 1 , 45 , 155 , 1 , 45 , 160 , 1 , 45 , 165 , 1
 + .BYTE 46 , 126 , 1 , 46 , 131 , 1 , 46 , 136 , 1 , 46 , 141 , 1 , 46 , 146 , 1 , 46 , 151 , 1 , 46 , 156 , 1 , 46 , 161 , 1
 + .BYTE 47 , 122 , 1 , 47 , 127 , 1 , 47 , 132 , 1 , 47 , 137 , 1 , 47 , 142 , 1 , 47 , 147 , 1 , 47 , 152 , 1 , 47 , 157 , 1
 + .BYTE 47 , 119 , 1 , 47 , 123 , 1 , 47 , 128 , 1 , 47 , 133 , 1 , 47 , 138 , 1 , 47 , 143 , 1 , 47 , 147 , 1 , 47 , 152 , 1
 + .BYTE 48 , 115 , 1 , 48 , 119 , 1 , 48 , 124 , 1 , 48 , 129 , 1 , 48 , 134 , 1 , 48 , 138 , 1 , 48 , 143 , 1 , 48 , 148 , 1
 + .BYTE 47 , 111 , 1 , 47 , 115 , 1 , 47 , 120 , 1 , 47 , 125 , 1 , 47 , 129 , 1 , 47 , 134 , 1 , 47 , 139 , 1 , 47 , 143 , 1
 + .BYTE 47 , 107 , 1 , 47 , 111 , 1 , 47 , 116 , 1 , 47 , 120 , 1 , 47 , 125 , 1 , 47 , 129 , 1 , 47 , 134 , 1 , 47 , 138 , 1
 + .BYTE 46 , 103 , 1 , 46 , 107 , 1 , 46 , 112 , 1 , 46 , 116 , 1 , 46 , 120 , 1 , 46 , 125 , 1 , 46 , 129 , 1 , 46 , 134 , 1
 + .BYTE 46 , 99 , 1 , 46 , 103 , 1 , 46 , 107 , 1 , 46 , 112 , 1 , 46 , 116 , 1 , 46 , 120 , 1 , 46 , 124 , 1 , 46 , 129 , 1
 + .BYTE 44 , 95 , 1 , 44 , 99 , 1 , 44 , 103 , 1 , 44 , 107 , 1 , 44 , 111 , 1 , 44 , 116 , 1 , 44 , 120 , 1 , 44 , 124 , 1
 + .BYTE 43 , 91 , 1 , 43 , 95 , 1 , 43 , 99 , 1 , 43 , 103 , 1 , 43 , 107 , 1 , 43 , 111 , 1 , 43 , 115 , 1 , 43 , 119 , 1
 + .BYTE 42 , 87 , 1 , 42 , 91 , 1 , 42 , 95 , 1 , 42 , 99 , 1 , 42 , 102 , 1 , 42 , 106 , 1 , 42 , 110 , 1 , 42 , 114 , 1
 + .BYTE 40 , 83 , 1 , 40 , 87 , 1 , 40 , 90 , 1 , 40 , 94 , 1 , 40 , 98 , 1 , 40 , 102 , 1 , 40 , 106 , 1 , 40 , 110 , 1
 + .BYTE 38 , 79 , 1 , 38 , 83 , 1 , 38 , 86 , 1 , 38 , 90 , 1 , 38 , 94 , 1 , 38 , 98 , 1 , 38 , 101 , 1 , 38 , 105 , 1
 + .BYTE 37 , 75 , 1 , 37 , 79 , 1 , 37 , 82 , 1 , 37 , 86 , 1 , 37 , 90 , 1 , 37 , 93 , 1 , 37 , 97 , 1 , 37 , 101 , 1
 + .BYTE 35 , 71 , 1 , 35 , 75 , 1 , 35 , 79 , 1 , 35 , 82 , 1 , 35 , 86 , 1 , 35 , 89 , 1 , 35 , 93 , 1 , 35 , 96 , 1
 + .BYTE 33 , 68 , 1 , 33 , 71 , 1 , 33 , 75 , 1 , 33 , 78 , 1 , 33 , 82 , 1 , 33 , 85 , 1 , 33 , 89 , 1 , 33 , 92 , 1
 + .BYTE 31 , 65 , 1 , 31 , 68 , 1 , 31 , 71 , 1 , 31 , 75 , 1 , 31 , 78 , 1 , 31 , 81 , 1 , 31 , 85 , 1 , 31 , 88 , 1
 + .BYTE 29 , 61 , 1 , 29 , 65 , 1 , 29 , 68 , 1 , 29 , 71 , 1 , 29 , 74 , 1 , 29 , 78 , 1 , 29 , 81 , 1 , 29 , 84 , 1
 + .BYTE 27 , 58 , 1 , 27 , 61 , 1 , 27 , 65 , 1 , 27 , 68 , 1 , 27 , 71 , 1 , 27 , 74 , 1 , 27 , 77 , 1 , 27 , 81 , 1
 + .BYTE 25 , 55 , 1 , 25 , 58 , 1 , 25 , 61 , 1 , 25 , 65 , 1 , 25 , 68 , 1 , 25 , 71 , 1 , 25 , 74 , 1 , 25 , 77 , 1
 + .BYTE 23 , 52 , 1 , 23 , 55 , 1 , 23 , 58 , 1 , 23 , 61 , 1 , 23 , 64 , 1 , 23 , 68 , 1 , 23 , 71 , 1 , 23 , 74 , 1
 + .BYTE 21 , 50 , 1 , 21 , 53 , 1 , 21 , 56 , 1 , 21 , 59 , 1 , 21 , 61 , 1 , 21 , 64 , 1 , 21 , 67 , 1 , 21 , 70 , 1
 +
 +
 +
 +EPLOT
 +
 +.TEXT "END OF DATA"
 +</​code>​
base/3d_dot_scroll.txt ยท Last modified: 2015-04-17 04:30 (external edit)