239 lines
8.5 KiB
Plaintext
239 lines
8.5 KiB
Plaintext
{
|
|
|
|
}
|
|
|
|
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 : "bel-tv" 'located in default Library
|
|
gr : "bel-graphics" 'located in default Library
|
|
kb : "bel-keyb"
|
|
|
|
|
|
PUB main | x,y,j
|
|
|
|
init_subsystem
|
|
|
|
repeat
|
|
gr.clear
|
|
gr.colorwidth(1, 1)
|
|
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+64, j*5+100-(cnt>>23), 200-j*40, cnt>>16, @vecdef1)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+64, j*5+200-(cnt>>23), 200-j*40, cnt>>16, @vecdef2)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+64, j*5+300-(cnt>>23), 200-j*40, cnt>>16, @vecdef3)
|
|
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+128, j*5+100-(cnt>>23), 200-j*40, cnt>>16, @vecdef3)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+128, j*5+200-(cnt>>23), 200-j*40, cnt>>16, @vecdef1)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+128, j*5+300-(cnt>>23), 200-j*40, cnt>>16, @vecdef2)
|
|
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+192, j*5+100-(cnt>>23), 200-j*40, cnt>>16, @vecdef2)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+192, j*5+200-(cnt>>23), 200-j*40, cnt>>16, @vecdef3)
|
|
repeat j from 0 to 5
|
|
gr.vec(j*2+192, j*5+300-(cnt>>23), 200-j*40, cnt>>16, @vecdef1)
|
|
|
|
gr.copy(display_base)
|
|
ifexit
|
|
|
|
CON
|
|
|
|
#16, BEL_KEYBC,BEL_KEYBD 'keyboard-signale
|
|
#18, BEL_MOUSEC,BEL_MOUSED 'maus-signale
|
|
|
|
PRI ifexit
|
|
|
|
if kb.key == kb#Esc
|
|
reboot
|
|
|
|
PRI init_subsystem | i,dx,dy
|
|
|
|
kb.start(BEL_KEYBD, BEL_KEYBC) 'tastaturport starten
|
|
|
|
'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)
|
|
colors[i] := $00001010 * (i<<1+4) & $F + $0D060D02
|
|
|
|
'init tile screen
|
|
repeat dx from 0 to tv_hc - 1
|
|
repeat dy from 0 to tv_vc - 1
|
|
screen[dy * tv_hc + dx] := display_base >> 6 + dy + dx * tv_vc + ((dy & $3F) << 10)
|
|
{
|
|
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, 0, 0, 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 'tv-parameter
|
|
|
|
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
|
|
|
|
DAT 'vektorobjekte
|
|
|
|
vecdef1 word $4000+$2000/3*0 'triangle
|
|
word 50
|
|
word $8000+$2000/3*1+1
|
|
word 50
|
|
word $8000+$2000/3*2-1
|
|
word 50
|
|
word $8000+$2000/3*0
|
|
word 50
|
|
word 0
|
|
|
|
vecdef2 word $4000+$2000/12*0 'star
|
|
word 50
|
|
word $8000+$2000/12*1
|
|
word 20
|
|
word $8000+$2000/12*2
|
|
word 50
|
|
word $8000+$2000/12*3
|
|
word 20
|
|
word $8000+$2000/12*4
|
|
word 50
|
|
word $8000+$2000/12*5
|
|
word 20
|
|
word $8000+$2000/12*6
|
|
word 50
|
|
word $8000+$2000/12*7
|
|
word 20
|
|
word $8000+$2000/12*8
|
|
word 50
|
|
word $8000+$2000/12*9
|
|
word 20
|
|
word $8000+$2000/12*10
|
|
word 50
|
|
word $8000+$2000/12*11
|
|
word 20
|
|
word $8000+$2000/12*0
|
|
word 50
|
|
word 0
|
|
|
|
vecdef3 word $4000+$2000/4*0 'box
|
|
word 50
|
|
word $8000+$2000/4*1
|
|
word 30
|
|
word $8000+$2000/4*2
|
|
word 50
|
|
word $8000+$2000/4*3
|
|
word 30
|
|
word $8000+$2000/4*0
|
|
word 50
|
|
word 0
|
|
|