{

}

CON
  _CLKMODE      = XTAL1 + PLL16X
  _XINFREQ      = 5_000_000
  _stack        = ($3000 + $3000 + 100) >> 2

  x_tiles       = 16
  y_tiles       = 12

  paramcount    = 14
  bitmap_base   = $2000
  display_base  = $5000


VAR
    long              tv_status                         '0/1/2 = off/visible/invisible                  read-only
    long              tv_enable                         '0/? = off/on                                   write-only
    long              tv_pins                           '%ppmmm = pins                                  write-only
    long              tv_mode                           '%ccinp = chroma,interlace,ntsc/pal,swap        write-only
    long              tv_screen                         'pointer to screen (words)                      write-only
    long              tv_colors                         'pointer to colors (longs)                      write-only
    long              tv_hc                             'horizontal cells                               write-only
    long              tv_vc                             'vertical cells                                 write-only
    long              tv_hx                             'horizontal cell expansion                      write-only
    long              tv_vx                             'vertical cell expansion                        write-only
    long              tv_ho                             'horizontal offset                              write-only
    long              tv_vo                             'vertical offset                                write-only
    long              tv_broadcast                      'broadcast frequency (Hz)                       write-only
    long              tv_auralcog                       'aural fm cog                                   write-only

    word              screen[x_tiles * y_tiles]         'tilemap
    long              colors[64]                        'farbregister



OBJ
    tv    :       "tv"                                  'located in default Library
    gr    :       "graphics"                            'located in default Library


PUB main | i, n, t

  init_subsystem

  repeat

    gr.width(15)
    gr.color(1)
    gr.plot(-128,96)            'ecke links oben
    gr.plot(128,96)             'ecke rechts oben
    gr.plot(0,0)                'zentrum
    gr.plot(-128,-96)           'ecke links unten
    gr.plot(128,-96)            'ecke rechts unten
    gr.color(0)
    gr.plot(-10,0)
    gr.color(2)
    gr.plot(10,0)
    gr.color(3)
    gr.plot(20,0)
'    gr.arc(

    gr.copy(display_base)

PRI init_subsystem | i,dx,dy

  'tv-treiber starten
  longmove(@tv_status, @tvparams, paramcount)
  tv_screen := @screen
  tv_colors := @colors
  tv.start(@tv_status)

' farbtabelle setzen
' PPPP_M_LLL
' ---+ | --+
'    | |   +- 0..1 sync
'    | |      2..6 helligkeit b/w
'    | |      2..6 helligkeit col
'    | |      7    -
'    | +----- 0 - b/w
'    |        1 - col
'    +------- ntsc-palette (blau...grün..rot)
'
' b/w  - 6 helligkeitsstufen    6
' col  - 16color x 5 luma       64
' hsat - 16 highsat-farben      16
'
' $aa_bb_cc_dd
' $aa - color 3
' $bb - color 2
' $cc - color 1
' $dd - color 0 (hintergrund)

  repeat i from 0 to 63
'    colors[i] := %1010_1_101__0000_0_010__0010_1_111__0000_0_111
    colors[i] := %1010_1_101__0000_0_010__0010_1_111__0011_0_111
'    colors[i] := c_hsat(3,0)+c_hsat(2,2)+c_hsat(1,6)+c_hsat(0,8)               'gesättigte farben
'    colors[i] := c_bw(3,1)+c_bw(2,2)+c_bw(1,3)+c_bw(0,4)                       'graustufen
'    colors[i] := c_col(3,0,2)+c_col(2,3,2)+c_col(1,6,2)+c_col(0,9,2)

  'init tile screen
  i := 0
  repeat dy from 0 to tv_vc - 1
    repeat dx from 0 to tv_hc - 1
      screen[i++] := display_base >> 6 + dy + dx * tv_vc + (dy << 10)

  'start and setup graphics
  gr.start
  gr.setup(tv_hc, tv_vc, tv_hc<<3, tv_vc<<3, bitmap_base)

PRI c_hsat(bnr,cnr):col                                 'tool: erzeugt einen gesättigten farbwert
' bnr   : bytenummer
' cnr   : 0..15 farbnummer
  col := (%0000_1_000 + (cnr<<4))<<(bnr*8)

PRI c_bw(bnr,cnr):col                                   'tool: erzeugt einen monochromwert
' bnr   : bytenummer
' cnr   : 0..5 graustufen
  col := (%0000_0_000 + cnr+2)<<(bnr*8)

PRI c_col(bnr,chroma,lumi):col                          'tool: erzeugt einen farbwert
' bnr   : bytenummer
' croma : 0..15 chroma
' lumi  : 0..5  luminanz
  col := (%0000_1_000+(lumi+2)+(chroma<<4))<<(bnr*8)

PRI cos(angle) : x
  x := sin(angle + $800)

PRI sin(angle) : y
  '' Get sine of angle (0-8191)
  y := angle << 1 & $FFE ' address
  if angle & $800
    y := word[$F000 - y]
  else
    y := word[$E000 + y]
  if angle & $1000
    -y


DAT

tvparams                long    0               'status
                        long    1               'enable
                        long    %010_0101       'pins New Board
                        long    %0000           'mode
                        long    0               'screen
                        long    0               'colors
                        long    x_tiles         'hc - horizontale tiles
                        long    y_tiles         'vc - vertikale tiles
                        long    10              'hx
                        long    1               'vx
                        long    0               'ho
                        long    0               'vo
                        long    60_000_000      '_xinfreq<<4 'broadcast
                        long    0               'auralcog