'**************************************** '* NTSC 640 x 480 x 8bpp-lut * '* Original 256x192x8 by Chip Gracey * '* Modified by Jim Bagley to be 640x480 * '**************************************** 'serial routines added as per various contributors... other than me:) 'back to 320 by 240 :)rjo 'serial routines by MindRobots et al. 'uses part of Chip's sin cos demo to load up cog0's lut to start with CON Sys_CLK = 80_000_000 BAUD_RATE = 1_225_000 ' BAUD_RATE = 1_160_000 ' BAUD_RATE = 1_040_000 ' BAUD_RATE =800_000 ' BAUD_RATE =921_600 ' BAUD_RATE =806_400 ' BAUD_RATE =691_200 ' BAUD_RATE =576_000 ' BAUD_RATE =460_800 ' BAUD_RATE =230_400 ' BAUD_RATE=115_200 Rx_PIN = 63 Tx_PIN = 62 lutstart = 0 bufferstart=$1000-$400 _I2C_CLOCK_PIN = 29 ' I2C bus pins. Must use 4.7K pullups to 3.3v _I2C_DATA_PIN = 27 _CAM_VSYNC_PIN = 25 _CAM_HREF_PIN =23 _CAM_PCLK_PIN = 21 _CAM_XCLK_PIN = 19 _SCREEN_BUFFER = $2000 _CAPTURE_WIDTH =320 _capture_height=240 _Buffer_Size = _CAPTURE_WIDTH*_capture_height _Off_Screen_Buffer=_SCREEN_BUFFER+_Buffer_Size _Off_Screen_Buffer2=_Off_Screen_Buffer+_Buffer_Size _Off_Screen_Buffer3=_Off_Screen_Buffer2+_Buffer_Size _Computed_Distances=_Off_Screen_Buffer3+_Buffer_Size _Y_Table = _Computed_Distances + _Buffer_Size + _Buffer_Size _CCC_Divz_Table= _Y_Table+ 240 _CCC_Multz_Table= _CCC_Divz_Table + 32000 _skip_start_lines=2 _skip_lines = 0 _skip_pixels = 0 _bytes_per_pixel =2 _LUT_START = 0 _COG_COM = 10_000 _HUB_LUT_COPY = 28_000 _LINE_BUFFER = 24_000 _CCC = 365 _MAIL=1_000_000 _bitloc = 999_000 '--------------------------------------- ' ResX = 320 ResY =240 '_OffScreen_buffer=_SCREEN_BUFFER+(ResX*ResY) linelen =320 draw_line = $1000 '--------------------------------------- XSCALER = (ResX/321) ' pixel scaler 0 for 320 or 256 pixel mode, 1 for 640 or 512 pixel mode XSCALER1 = XSCALER+1 INTERLACED = (ResY/241)+1 ' 1 = non-interlaced ( 192 200 or 240 lines ), 2 = interlaced ( 384,400 or 480 lines ) '--------------------------------------- s = 84 'scales DAC output (s = 0..128) r = s * 78 / 128 'adjusts for modulator expansion f_color = 3_579_545.0 'colorburst frequency f_scanline = f_color / 227.5 'scanline frequency f_pixel = f_scanline * float(400<