hex \ h# 050 c, \ CR0 0000.... 24-bit RGB \ h# 008 c, \ CR1 ....8b.. 8-color, bypass RAM \ h# 0f0 c, \ CR2 .....r00 reset device, 00=normal YC \ h# 000 c, \ CR3 NTSC, Nocolor, colorBars, Limit bypass \ h# 020 c, \ CR4 misc \ h# 000 c, \ reserved \ h# 04a c, \ P1 lo \ h# 002 c, \ P1 hi \ h# 088 c, \ P2 lo \ h# 007 c, \ P2 hi \ h# 000 c, \ phase lo (not needed) \ h# 000 c, \ phase hi (not needed) \ h# 01a c, \ HCOUNT lo \ h# 003 c, \ HCOUNT hi \ h# 0ff c, \ color key (not needed) \ h# 0ff c, \ color mask (not needed) 6 constant p1-lo 7 constant p1-hi 8 constant p2-lo 9 constant p2-hi c constant hc-lo d constant hc-hi : data! bt858-data25 + c! ; : p2! dup ff and p2-lo data! 100 / p2-hi data! ; : hc! dup ff and hc-lo data! 100 / hc-hi data! ; : c3! 3 data! ; 5dd p2! 8 constant nocolor 0 constant color nocolor c3! decimal