Project Manhattan

User projects written in or related to FreeBASIC.
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

64-bit memory detection:

Code: Select all

 '64-bit memory detection
 '.:E47B 2A 2A (mem) 47 42 4D 4D 4F  (cr) (cr) (mem)gb ram system
  ' uint64 vr$1163 = fb_GetMemAvail( ((int32)__builtin_nearbyint( *(double*)((uint8*)THIS$1 /
  '   + ((int64)*(uint8*)4808096ll << (3ll & 63ll))) )) );
  ' double vr$1170 = pow( (double)((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)), /
  '   (double)(int64)*(uint8*)4808099ll );
  ' FBSTRING* vr$1173 = fb_ULongintToStr( vr$1163 / ((uint64)__builtin_nearbyint( vr$1170 )) );
  ' fb_StrAssign( (void*)&MEM$1, -1ll, (void*)vr$1173, -1ll, 0 );
  mov(mem, str(int(fre(mem64(peek(ubyte,@nibbles(&B0000))))) idiv (peek(ubyte,@nibbles(&B0100)) _
                         shl peek(ubyte,@nibbles(&B1000)))   expt  peek(ubyte,@nibbles(&B0011))))

  ' int64 vr$1176 = fb_StrLen( (void*)&MEM$1, -1ll );
  ' if( vr$1176 != (int64)*(uint8*)4808097ll ) goto label$228;
  ' goto label$229; 
  cmp len(mem) eq peek(ubyte,@nibbles(&B0001)) jmp L24

  ' int64 vr$1179 = fb_StrLen( (void*)&MEM$1, -1ll );
  ' if( vr$1179 != (int64)*(uint8*)4808098ll ) goto label$231;
  ' goto label$232;
  cmp len(mem) eq peek(ubyte,@nibbles(&B0010)) jmp L25

L24:
  ' label$231:;

  ' label$229:;
  ' uint32 vr$1182 = fb_ASC( (FBSTRING*)&MEM$1, 1ll );
  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) _
  '    + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808107ll) _
  '   << (3ll & 63ll))) + 134217728ll) = (double)vr$1182;
  '                        $49B(1179)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1011))),asc(mem)

  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '    + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808108ll) /
  '   << (3ll & 63ll))) + 134217728ll) = (double)(((int64)*(uint8*)4808100ll /
  '   << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll);
  '                        $49C(1180)      
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1100))),   peek(ubyte,@nibbles(&B0100)) _
                       shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111))
  
  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '    + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808109ll) /
  '   << (3ll & 63ll))) + 134217728ll) = (double)(((int64)*(uint8*)4808100ll /
  '   << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll);
  '                        $49D(1181)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                      add peek(ubyte,@nibbles(&B1001))  shl peek(ubyte,@nibbles(&B0100)) _
                      add peek(ubyte,@nibbles(&B1101))),    peek(ubyte,@nibbles(&B0100)) _
                      shl peek(ubyte,@nibbles(&B0100))  add peek(ubyte,@nibbles(&B0010))

  ' goto label$233;
  jmp L27

L25:
  ' label$232:;
  
  ' FBSTRING* vr$1232 = fb_StrMid( (FBSTRING*)&MEM$1, (int64)*(uint8*)4808097ll, (int64)*(uint8*)4808097ll );
  ' uint32 vr$1233 = fb_ASC( (FBSTRING*)vr$1232, 1ll );
  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '   + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808107ll) /
  '   << (3ll & 63ll))) + 134217728ll) = (double)vr$1233;
  '                        $49B(1179)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1011))),                                _
               asc(mid(mem,peek(ubyte,@nibbles(&B0001)),    peek(ubyte,@nibbles(&B0001))))
  
  ' FBSTRING* vr$1249 = fb_StrMid( (FBSTRING*)&MEM$1, (int64)*(uint8*)4808098ll, (int64)*(uint8*)4808097ll );
  ' uint32 vr$1250 = fb_ASC( (FBSTRING*)vr$1249, 1ll );
  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808108ll) /
  '    << (3ll & 63ll))) + 134217728ll) = (double)vr$1250;
  '                        $49C(1180)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1100))),                                _
               asc(mid(mem,peek(ubyte,@nibbles(&B0010)),    peek(ubyte,@nibbles(&B0001))))

  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808109ll) /
  '    << (3ll & 63ll))) + 134217728ll) = (double)(((int64)*(uint8*)4808100ll /
  '    << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll);
  '                        $49D(1181)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1101))),   peek(ubyte,@nibbles(&B0100)) _
                       shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111))

  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808110ll) /
  '    << (3ll & 63ll))) + 134217728ll) = (double)(((int64)*(uint8*)4808100ll /
  '    << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll);
  '                        $49E(1182)
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1110))),   peek(ubyte,@nibbles(&B0100)) _
                       shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010))

  ' fb_StrAssign( (void*)&MEM$1, -1ll, (void*)" RAM SYSTEM", 12ll, 0 );
  mov(mem, chr(peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100))) _
       add chr(peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010))) _ 'R
       add chr(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001))) _ 'A
       add chr(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101))) _ 'M
       add chr(peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100))) _
       add chr(peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011))) _ 'S
       add chr(peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001))) _ 'Y
       add chr(peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011))) _ 'S
       add chr(peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100))) _ 'T
       add chr(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101))) _ 'E
       add chr(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101))))  'M

  ' *(int64*)4808136ll = (int64)*(uint8*)4808097ll;
  poke ulongint,@i,peek(ubyte,@nibbles(&B0001))
  
L26:
  ' label$234:;
  ' FBSTRING* vr$1301 = fb_StrMid( (FBSTRING*)&MEM$1, *(int64*)4808136ll, (int64)*(uint8*)4808097ll );
  ' uint32 vr$1302 = fb_ASC( (FBSTRING*)vr$1301, 1ll );
  ' *(double*)((uint8*)((uint8*)THIS$1 + ((((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808110ll) /
  '     + *(int64*)4808136ll) << (3ll & 63ll))) + 134217728ll) = (double)vr$1302;
  '                        $49E(1182)          
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1110)) add peek(ulongint,@i)),          _
               asc(mid(mem,peek(ulongint,@i),peek(ubyte,@nibbles(&B0001))))  

  ' *(int64*)4808136ll = *(int64*)4808136ll + (int64)*(uint8*)4808097ll;
  poke ulongint,@i,peek(ulongint,@i) add peek(ubyte,@nibbles(&B0001)) 
   
  ' int64 vr$1319 = fb_StrLen( (void*)&MEM$1, -1ll );
  ' if( *(int64*)4808136ll > vr$1319 ) goto label$236;
  ' goto label$234;
  cmp peek(ulongint,@i) ls len(mem) jmp L26
  
  ' label$236:;
  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808105ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808111ll) /
  '    << (3ll & 63ll))) + 134217728ll) = (double)((int64)*(uint8*)4808098ll /
  '    << ((int64)*(uint8*)4808100ll & 63ll));
  '                   $49F(1183) Replace "@" at E49F with " ".
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B1111))),   peek(ubyte,@nibbles(&B0010)) _
                       shl peek(ubyte,@nibbles(&B0100)) 

  ' *(double*)((uint8*)((uint8*)THIS$1 + (((((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808104ll & 63ll)) /
  '     + ((int64)*(uint8*)4808106ll << ((int64)*(uint8*)4808100ll & 63ll))) + (int64)*(uint8*)4808099ll) /
  '    << (3ll & 63ll))) + 134217728ll) = (double)((int64)*(uint8*)4808098ll /
  '    << ((int64)*(uint8*)4808100ll & 63ll));
  '                   $4A3(1187) Replace "@" at E4A3 with " ".
  poke SYSTEM_TYPE,@kernal(peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B1000)) _
                       add peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) _
                       add peek(ubyte,@nibbles(&B0011))),   peek(ubyte,@nibbles(&B0010)) _
                       shl peek(ubyte,@nibbles(&B0100))
       
  ' goto label$233;
  jmp L27
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

Main Program:

Code: Select all

def kmain(mb_info as multiboot_info ptr)
	poke ulongint,@ticks,peek(ubyte,@nibbles(&B0000))
	poke ulongint,@res,peek(ubyte,@nibbles(&B0000)) 
	do
	  mov(Ticks add, peek(ubyte,@nibbles(&B0001)))
	  if mov(flag,peek(ubyte,@nibbles(&B0001))) then
		computer.cpu->Tick Ticks
		'         pc            pc
	    mov(mem64(49418),(mem64(49418) add 1) mod &HFFFFFFFFFFFFFFFF)
	   '          pc_512        pc_512
	    mov(mem64(49500),(mem64(49500) add 1) mod &HFFFFFFFFFFFFFFFF)
	  else
		computer.cpu->Tick
	  end if
	  ' call ISR after 12,000 ticks
	  if mov(Ticks mod (peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B1100)) add peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B1000)) add peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100))),peek(ubyte,@nibbles(&B0000))) then
		mov(Ticks add,InterruptService(computer.cpu))
		screenlock
		put (peek(ubyte,@nibbles(&B0000)),peek(ubyte,@nibbles(&B0000))),bgimage,pset
	 	put (peek(ubyte,@nibbles(&B0000)),peek(ubyte,@nibbles(&B0000))),fgimage,alpha
		screensync 
		screenunlock		
	    '         RASTR          RASTR
	    mov(mem64(&HD012),(mem64(&HD012) add 1) mod 1079) 
	  end if
	  ' draw to screen every 65,536 ticks
	  'if mov(Ticks mod (peek(ubyte,@nibbles(&B0001)) shl (peek(ubyte,@nibbles(&B0001)) shl  peek(ubyte,@nibbles(&B0100)))),peek(ubyte,@nibbles(&B0000))) then  
	   ' screenlock
		'put (peek(ubyte,@nibbles(&B0000)),peek(ubyte,@nibbles(&B0000))),bgimage,pset
		'put (peek(ubyte,@nibbles(&B0000)),peek(ubyte,@nibbles(&B0000))),fgimage,alpha
		'put (0,0),render,alpha
		'put(0,computer.cpu->mem->mem64(49357)),raster,alpha
	   ' screenunlock
		'computer.cpu->mem->poke64(&H000,&H00)
		'sleep(10,1)
		
	  'end if  
	loop
	free(@mem64(0))
	free(@return_point)
end def
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

Amiga style Hold-and-Modify:

Code: Select all

'        Amiga style Hold-and-Modify - Draw foreground=$C0EE(49390)           
    case peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) add peek(ubyte,@nibbles(&B1110)) _
                                      shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110))
                                              
'                            x0=$C0CB(49355)    
          line fgimage,(peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                    add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                    add peek(ubyte,@nibbles(&B1011)))),_
                    _
                    _'       y0=$C0CC(49356)                    
                        peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                    add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                    add peek(ubyte,@nibbles(&B1100))))_
                   _
          )-(      _
                   _'        x1=$C0CE(49358) 
                        peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                    add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                    add peek(ubyte,@nibbles(&B1110)))),_
                   _
                   _'        y1=$C0CF(49359)
                        peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                    add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                    add peek(ubyte,@nibbles(&B1111))))),_
                   _ 
                   _'        fg_color=$C0C9(49353)
                        peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                    add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                    add peek(ubyte,@nibbles(&B1001)))), BF

'        Amiga style Hold-and-Modify - Draw background=$C0EF(49391)                           '
    case peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) add peek(ubyte,@nibbles(&B1110)) _
                                      shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111))
                                      
'                           x0=$C0CB(49355)
         line fgimage,(peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                   add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                   add peek(ubyte,@nibbles(&B1011)))),_
                  _
                  _'        y0=$C0CC(49356)
                       peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                   add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                   add peek(ubyte,@nibbles(&B1100))))_
                  _
          )-(     _
                  _'        x1=$C0CE(49358)
                       peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                   add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                   add peek(ubyte,@nibbles(&B1110)))),_
                  _
                  _'        y1=$C0CF(49359)
                       peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                   add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                   add peek(ubyte,@nibbles(&B1111))))),_
                  _
                  _'        fg_color=$C0CA(49354)  
                       peek(SYSTEM_TYPE,@mem64(peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B1100)) _
                   add peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) _
                   add peek(ubyte,@nibbles(&B1010)))), BF
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

Renders GLSL scene in 32-bit 90 columns text mode using PETSCII graphics:

Code: Select all

def MEMORY_T.EXEC_GLSL_90()
	' fg_color=$C0C9(49353)
	' alpha   =$C005(49157)
	' red     =$C002(49154)
	' green   =$C003(49155) 
	' blue    =$C003(49156)                 	     
	' r0      =$C9D1(49361) x
	' r1      =$C0D2(49362) y
	' r2      =$C0D3(49363)
	' r3      =$C0D4(49364) Number of frames to display
	' r4      =$C0D5(49365)
	' r5      =$C0D6(49366)
	' r6      =$C0D7(49367)
	' r7      =$COD8(49368)
	' main
	'
	'#define USE_PAGES

	dim as ulongint frames,mx,my,mb

	'screeninfo scr_w,scr_h : scr_w*=.5 : scr_h*=.5

	'scr_w=64*5 : scr_h=48*5
     scr_w=90:scr_h=60

	#ifdef USE_PAGES
	screenres  scr_w,scr_h,32,2
	screenset 1,0

	pitch shr=2
	#else
	'screenres  scr_w,scr_h,32
	#endif

	' global shader uniform's
	iResolution.x=scr_w
	iResolution.y=scr_h
	iResolution.z=iResolution.x/iResolution.y

	dim as vector2 fragCoord
	dim as vector4 fragColor
	'dim as double tShaderStart=timer()
	dim as float tFrameStart=0 'tShaderStart
	dim as ulongint colour
	'                                                      r3
	do until mov(peek(ulongint,@frames),peek(SYSTEM_TYPE,@mem64(49364)))
	  fragCoord.y=scr_h-1 ' OpenGL draws from bottom to top
	  #ifdef USE_PAGES
	  dim as ulong ptr row = ScreenPtr()
	  #endif
	  for in range(mov(y as ulongint,0), scr_h subt 1)
		#ifdef USE_PAGES
		dim as ulong ptr pixel=fgimage
		#else
		screenlock
		#endif
		for in range(mov(x as ulongint,0), scr_w subt 1)
		  fragCoord.x=x
		  ' call for every pixel the fragment shader
		  mainImage(fragColor, fragCoord)
		  '                 r0
		  poke float,@mem64(49361),peek(ulongint,@x)
		  '                 r1
		  poke float,@mem64(49362),peek(ulongint,@y)
		  '               fg_color
		  poke float,@mem64(49353),fragColor
		  ' Draw pixel
		  poke64(49644,0)
		  #ifdef USE_PAGES
		  pixel[x] = colour
		  #else
		  'pset fgimage,(x,y),peek(SYSTEM_TYPE,@mem64(49353))
		  #endif
		next
		' next row
		#ifdef USE_PAGES
		row+=pitch  : flip
		#else
		screenunlock y,y
		sleep 1
		#endif
		fragCoord.y-=1
	      	  '   RASTR          RASTR
	    mov(mem64(&HD012),(mem64(&HD012) add 1) mod 1079) 		   
	  next
	  put (0,0),fgimage,alpha
	  iGlobalTime+= 1/24 '=timer()
	  var FPS = 1/(iGlobalTime-tFrameStart)
	  windowtitle "frame: " & frames add 1
	  tFrameStart=iGlobalTime

	  'iGlobalTime-=tShaderStart
	  frames+=1
     loop	
end def
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

Renders GLSL scene in 32-bit 90 columns text mode using PETSCII graphics:

Code: Select all

def MEMORY_T.EXEC_GLSL_120()
	' fg_color=$C0C9(49353)
	' alpha   =$C005(49157)
	' red     =$C002(49154)
	' green   =$C003(49155) 
	' blue    =$C003(49156)                 	     
	' r0      =$C9D1(49361) x
	' r1      =$C0D2(49362) y
	' r2      =$C0D3(49363)
	' r3      =$C0D4(49364) Number of frames to display
	' r4      =$C0D5(49365)
	' r5      =$C0D6(49366)
	' r6      =$C0D7(49367)
	' r7      =$COD8(49368)
	' main
	'
	'#define USE_PAGES

	dim as ulongint frames,mx,my,mb

	'screeninfo scr_w,scr_h : scr_w*=.5 : scr_h*=.5

	'scr_w=64*5 : scr_h=48*5
     scr_w=120:scr_h=60

	#ifdef USE_PAGES
	screenres  scr_w,scr_h,32,2
	screenset 1,0

	pitch shr=2
	#else
	'screenres  scr_w,scr_h,32
	#endif

	' global shader uniform's
	iResolution.x=scr_w
	iResolution.y=scr_h
	iResolution.z=iResolution.x/iResolution.y

	dim as vector2 fragCoord
	dim as vector4 fragColor
	'dim as double tShaderStart=timer()
	dim as float tFrameStart=0 'tShaderStart
	dim as ulongint colour
	'                                                      r3
	do until mov(peek(ulongint,@frames),peek(SYSTEM_TYPE,@mem64(49364)))
	  fragCoord.y=scr_h-1 ' OpenGL draws from bottom to top
	  #ifdef USE_PAGES
	  dim as ulong ptr row = ScreenPtr()
	  #endif
	  for in range(mov(y as ulongint,0), scr_h subt 1)
		#ifdef USE_PAGES
		dim as ulong ptr pixel=fgimage
		#else
		screenlock
		#endif
		for in range(mov(x as ulongint,0), scr_w subt 1)
		  fragCoord.x=x
		  ' call for every pixel the fragment shader
		  mainImage(fragColor, fragCoord)
		  '                       r0
		  poke SYSTEM_TYPE,@mem64(49361),peek(ulongint,@x)
		  '                       r1
		  poke SYSTEM_TYPE,@mem64(49362),peek(ulongint,@y)
		  '                       fg_color
		  poke SYSTEM_TYPE,@mem64(49353),fragColor
		  'Draw Pixel
		  Poke64(49645,0)
		  #ifdef USE_PAGES
		  pixel[x] = colour
		  #else
		  'pset fgimage,(x,y),peek(SYSTEM_TYPE,@mem64(49353))
		  #endif
		next
		' next row
		#ifdef USE_PAGES
		row+=pitch  : flip
		#else
		screenunlock y,y
		sleep 1
		#endif
		fragCoord.y-=1
	      	  '   RASTR          RASTR
	    mov(mem64(&HD012),(mem64(&HD012) add 1) mod 1079) 		   
	  next
	  put (0,0),fgimage,alpha
	  iGlobalTime+= 1/24 '=timer()
	  var FPS = 1/(iGlobalTime-tFrameStart)
	  windowtitle "frame: " & frames add 1
	  tFrameStart=iGlobalTime

	  'iGlobalTime-=tShaderStart
	  frames+=1
     loop	
end def
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

fg_color.bi - part 1

Code: Select all

  ' label$787:;
  ' goto label$789;
  ' label$788:;
  ' if( V$1 != (double)(int64)*(uint8*)4808096ll ) goto label$791;
  ' goto label$792;
   cmp v eq peek(ubyte,@nibbles(&B0000)) jmp L675
  ' label$791:;
  ' if( V$1 != (double)(int64)*(uint8*)4808097ll ) goto label$794;
  ' goto label$795; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) jmp L676
  ' label$794:;
  ' if( V$1 != (double)(int64)*(uint8*)4808098ll ) goto label$797;
  ' goto label$798; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) jmp L677
  ' label$797:;
  ' if( V$1 != (double)(int64)*(uint8*)4808099ll ) goto label$800;
  ' goto label$801; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) jmp L678
  ' label$800:;
  ' if( V$1 != (double)(int64)*(uint8*)4808100ll ) goto label$803;
  ' goto label$804; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) jmp L679
  ' label$803:;
  ' if( V$1 != (double)(int64)*(uint8*)4808101ll ) goto label$806;
  ' goto label$807; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) jmp L680
  ' label$806:;
  ' if( V$1 != (double)(int64)*(uint8*)4808102ll ) goto label$809;
  ' goto label$810; 
   cmp v eq peek(ubyte,@nibbles(&B0110)) jmp L681
  ' label$809:;
  ' if( V$1 != (double)(int64)*(uint8*)4808103ll ) goto label$812;
  ' goto label$813;
   cmp v eq peek(ubyte,@nibbles(&B0111)) jmp L682
  ' label$812:;
  ' if( V$1 != (double)(int64)*(uint8*)4808104ll ) goto label$815;
  ' goto label$816; 
   cmp v eq peek(ubyte,@nibbles(&B1000)) jmp L683
  ' label$815:;
  ' if( V$1 != (double)(int64)*(uint8*)4808105ll ) goto label$818;
  ' goto label$819; 
   cmp v eq peek(ubyte,@nibbles(&B1001)) jmp L684
  ' label$818:;
  ' if( V$1 != (double)(int64)*(uint8*)4808106ll ) goto label$821;
  ' goto label$822; 
   cmp v eq peek(ubyte,@nibbles(&B1010)) jmp L685
  ' label$821:;
  ' if( V$1 != (double)(int64)*(uint8*)4808107ll ) goto label$824;
  ' goto label$825; 
   cmp v eq peek(ubyte,@nibbles(&B1011)) jmp L686
  ' label$824:;
  ' if( V$1 != (double)(int64)*(uint8*)4808108ll ) goto label$827;
  ' goto label$828; 
   cmp v eq peek(ubyte,@nibbles(&B1100)) jmp L687
  ' label$827:;
  ' if( V$1 != (double)(int64)*(uint8*)4808109ll ) goto label$830;
  ' goto label$831; 
   cmp v eq peek(ubyte,@nibbles(&B1101)) jmp L688
  ' label$830:;
  ' if( V$1 != (double)(int64)*(uint8*)4808110ll ) goto label$833;
  ' goto label$834; 
   cmp v eq peek(ubyte,@nibbles(&B1110)) jmp L689
  ' label$833:;
  ' if( V$1 != (double)(int64)*(uint8*)4808111ll ) goto label$836;
  ' goto label$837;
   cmp v eq peek(ubyte,@nibbles(&B1111)) jmp L690
  ' label$836:;
  ' if( V$1 != (double)((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) ) goto label$839;
  ' goto label$840; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) jmp L691
  ' label$839:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808097ll) ) goto label$842;
  ' goto label$843; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L692
  ' label$842:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll) ) goto label$845;
  ' goto label$846; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L693
  ' label$845:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808099ll) ) goto label$848;
  ' goto label$849; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L694
  ' label$848:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808100ll) ) goto label$851;
  ' goto label$852; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L695
  ' label$851:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808101ll) ) goto label$854;
  ' goto label$855; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L696
  ' label$854:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808102ll) ) goto label$857;
  ' goto label$858; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L697
  ' label$857:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll) ) goto label$860;
  ' goto label$861; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L698
  ' label$860:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808104ll) ) goto label$863;
  ' goto label$864; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L699
  ' label$863:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808105ll) ) goto label$866;
  ' goto label$867; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L700
  ' label$866:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808106ll) ) goto label$869;
  ' goto label$870; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L701
  ' label$869:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808107ll) ) goto label$872;
  ' goto label$873; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L702
  ' label$872:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808108ll) ) goto label$875;
  ' goto label$876; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L703
  ' label$875:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808109ll) ) goto label$878;
  ' goto label$879; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L704
  ' label$878:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808110ll) ) goto label$881;
  ' goto label$882; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L705
  ' label$881:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808097ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808111ll) ) goto label$884;
  ' goto label$885; 
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L706
  ' label$884:;
  ' if( V$1 != (double)((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) ) goto label$887;
  ' goto label$888;  
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) jmp L707
  ' label$887:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808097ll) ) goto label$890;
  ' goto label$891; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L708
  ' label$890:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll) ) goto label$893;
  ' goto label$894; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L709
  ' label$893:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808099ll) ) goto label$896;
  ' goto label$897; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L710
  ' label$896:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808100ll) ) goto label$899;
  ' goto label$900; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L711
  ' label$899:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808101ll) ) goto label$902;
  ' goto label$903; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L712
  ' label$902:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808102ll) ) goto label$905;
  ' goto label$906; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L713
  ' label$905:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll) ) goto label$908;
  ' goto label$909; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L714
  ' label$908:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808104ll) ) goto label$911;
  ' goto label$912; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L715
  ' label$911:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808105ll) ) goto label$914;
  ' goto label$915; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L716
  ' label$914:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808106ll) ) goto label$917;
  ' goto label$918; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L717
  ' label$917:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808107ll) ) goto label$920;
  ' goto label$921; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L718
  ' label$920:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808108ll) ) goto label$923;
  ' goto label$924; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L719
  ' label$923:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808109ll) ) goto label$926;
  ' goto label$927; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L720
  ' label$926:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808110ll) ) goto label$929;
  ' goto label$930; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L721
  ' label$929:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808098ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808111ll) ) goto label$932;
  ' goto label$933; 
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L722
  ' label$932:;
  ' if( V$1 != (double)((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) ) goto label$935;
  ' goto label$936; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) jmp L723
  ' label$935:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808097ll) ) goto label$938;
  ' goto label$939; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L724
  ' label$938:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll) ) goto label$941;
  ' goto label$942; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L725
  ' label$941:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808099ll) ) goto label$944;
  ' goto label$945; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L726
  ' label$944:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808100ll) ) goto label$947;
  ' goto label$948; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L727
  ' label$947:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808101ll) ) goto label$950;
  ' goto label$951; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L728
  ' label$950:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808102ll) ) goto label$953;
  ' goto label$954; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L729
  ' label$953:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll) ) goto label$956;
  ' goto label$957; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L730
  ' label$956:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808104ll) ) goto label$959;
  ' goto label$960; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L731
  ' label$959:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808105ll) ) goto label$962;
  ' goto label$963; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L732
  ' label$962:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808106ll) ) goto label$965;
  ' goto label$966; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L733
  '  label$965:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808107ll) ) goto label$968;
  ' goto label$969; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L734
  ' label$968:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808108ll) ) goto label$971;
  ' goto label$972; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L735
  ' label$971:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808109ll) ) goto label$974;
  ' goto label$975; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L736
  ' label$974:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808110ll) ) goto label$977;
  ' goto label$978; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L737
  ' label$977:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808099ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808111ll) ) goto label$980;
  ' goto label$981; 
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L738
  ' label$980:;
  ' if( V$1 != (double)((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) ) goto label$983;
  ' goto label$984; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100))jmp L739
  ' label$983:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808097ll) ) goto label$986;
  ' goto label$987; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L740
  ' label$986:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll) ) goto label$989;
  ' goto label$990; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L741
  ' label$989:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808099ll) ) goto label$992;
  ' goto label$993; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L742
  ' label$992:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808100ll) ) goto label$995;
  ' goto label$996; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L743
  ' label$995:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808101ll) ) goto label$998;
  ' goto label$999; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L744
  ' label$998:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808102ll) ) goto label$1001;
  ' goto label$1002; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L745
  ' label$1001:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll) ) goto label$1004;
  ' goto label$1005; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L746
  ' label$1004:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808104ll) ) goto label$1007;
  ' goto label$1008;
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L747
  ' label$1007:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808105ll) ) goto label$1010;
  ' goto label$1011; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L748
  ' label$1010:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808106ll) ) goto label$1013;
  ' goto label$1014; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L749
  ' label$1013:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808107ll) ) goto label$1016;
  ' goto label$1017; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L750
  ' label$1016:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808108ll) ) goto label$1019;
  ' goto label$1020; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L751
  ' label$1019:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808109ll) ) goto label$1022;
  ' goto label$1023; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L752
  ' label$1022:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808110ll) ) goto label$1025;
  ' goto label$1026; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L753
  ' label$1025:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808100ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808111ll) ) goto label$1028;
  ' goto label$1029; 
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L754
  ' label$1028:;
  ' if( V$1 != (double)((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) ) goto label$1031;
  ' goto label$1032; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) jmp L755
  ' label$1031:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808097ll) ) goto label$1034;
  ' goto label$1035; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L756
  ' label$1034:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808098ll) ) goto label$1037;
  ' goto label$1038; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L757
  ' label$1037:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808099ll) ) goto label$1040;
  ' goto label$1041;
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L758
  ' label$1040:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808100ll) ) goto label$1043;
  ' goto label$1044; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L759
  ' label$1043:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808101ll) ) goto label$1046;
  ' goto label$1047; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L760
  ' label$1046:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808102ll) ) goto label$1049;
  ' goto label$1050; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L761
  ' label$1049:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808103ll) ) goto label$1052;
  ' goto label$1053; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L762
  ' label$1052:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808104ll) ) goto label$1055;
  ' goto label$1056; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L763
  ' label$1055:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808105ll) ) goto label$1058;
  ' goto label$1059; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L764
  ' label$1058:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808106ll) ) goto label$1061;
  ' goto label$1062; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L765
  ' label$1061:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808107ll) ) goto label$1064;
  ' goto label$1065; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L766
  ' label$1064:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808108ll) ) goto label$1067;
  ' goto label$1068; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L767
  ' label$1067:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808109ll) ) goto label$1070;
  ' goto label$1071; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L768
  ' label$1070:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808110ll) ) goto label$1073;
  ' goto label$1074; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L769
  ' label$1073:;
  ' if( V$1 != (double)(((int64)*(uint8*)4808101ll << ((int64)*(uint8*)4808100ll & 63ll)) + (int64)*(uint8*)4808111ll) ) goto label$1076;
  ' goto label$1077; 
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L770
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

fg_color.bi - part 2

Code: Select all

L1076:   
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) jmp L771
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L772
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L773
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L774
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L775
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L776
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L777
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L778
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L779
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L780
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L781
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L782
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L783
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L784
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L785
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L786
   cmp v eq peek(ubyte,@nibbles(&B0111)) jmp L787
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L788
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L789
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L790
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L791
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L792
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L793
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L794
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L795
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L796
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L797
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L798
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L799
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L800
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L801
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L802
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) jmp L803
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L804
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L805
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L806
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L807
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L808
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L809
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L810
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L811
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L812
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L813
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L814
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L815
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L816
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L817
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L818
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) jmp L819
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L820
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L821
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L822
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L823
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L824
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L825
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L826
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L827
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L828
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L829
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L830
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L831
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L832
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L833
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L834
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) jmp L835
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L836
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L837
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L838
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L839
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L840
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L841
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L842
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L843
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L844
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L845
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L846
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L847
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L848
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L849
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L850
   cmp v eq peek(ubyte,@nibbles(&B1011)) jmp L851
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L852
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L853
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L854
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L855
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L856
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L857
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L858
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L859
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L860
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L861
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L862
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L863
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L864
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L865
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L866
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) jmp L867
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L868
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L869
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L870
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L871
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L872
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L873
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L874
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L875
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L876
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L877
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L878
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L879
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L880
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L881
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L882
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) jmp L883
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L884
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L885
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L886
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L887
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L888
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L889
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L890
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L891
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L892
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L893
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L894
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L895
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L896
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L897
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L898
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) jmp L899
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L900
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L901
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L902
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L903
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L904
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L905
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L906
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L907
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L908
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L909
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L910
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L911
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L912
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L913
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L914
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) jmp L915
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L916
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L917
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L918
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L919
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L920
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L921
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L922
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L923
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L924
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L925
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L926
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L927
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L928
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L929
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L930
   jmp L931
L675:'000
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L676:'001
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L677:'002
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L678:'003
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L679:'004
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L680:'005
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L681:'006
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L682:'007
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L683:'008
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L684:'009
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L685:'010
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L686:'011
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L687:'012
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L688:'013
'         Red                 Green                Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L689:'014
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L690:'015
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L691:'016
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L692:'017
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L693:'018
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L694:'019
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L695:'020
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L696:'021
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&H99)
   jmp L931
L697:'022
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L698:'023
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L699:'024
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L700:'025
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L701:'026
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L702:'027
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L703:'028
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L704:'029
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L705:'030
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L706:'031
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L707:'032
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L708:'033
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L709:'034
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L710:'035
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L711:'036
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L712:'037
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L713:'038
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L714:'039
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L715:'040
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L716:'041
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L717:'042
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L718:'043
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L719:'044
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L720:'045
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L721:'046
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L722:'047
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L723:'048
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L724:'049
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L725:'050
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L726:'051
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L727:'052
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L728:'053
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L729:'054
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L730:'055
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L731:'056
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L732:'057
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&H99)
   jmp L931
L733:'058
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L734:'059
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L735:'060
'         Red                 Green               Blue   
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L736:'061
'         Red                 Green               Blue   
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L737:'062
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L738:'063
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L739:'064
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L740:'065
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L741:'066
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L742:'067
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L743:'068
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L744:'069
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L745:'070
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L746:'071
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L747:'072
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L748:'073
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L749:'074
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L750:'075
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L751:'076
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L752:'077
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L753:'078
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L754:'079
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L755:'080
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L756:'081
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L757:'82
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L758:'083
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L759:'084
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L760:'085
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L761:'086
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L762:'087
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L763:'088
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L764:'089
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L765:'090
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L766:'091
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L767:'092
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L768:'093
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L769:'094
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L770:'095
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L771:'096
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L772:'097
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L773:'098
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L774:'099
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L775:'100
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L776:'101
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L777:'102
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L778:'103
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L779:'104
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L780:'105
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L781:'106
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L782:'107
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L783:'198
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L784:'109
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L785:'110
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L786:'111
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L787:'112
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L788:'113
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L789:'114
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L790:'115
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L791:'116
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L792:'117
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L793:'118
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L794:'119
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L795:'120
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L796:'121
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L797:'122
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L798:'123
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L799:'124
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L800:'125
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L801:'126
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L802:'127
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L803:'128
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&H99)
   jmp L931
L804:'129
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L805:'130
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L806:'131
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L807:'132
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L808:'133
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L809:'134
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L810:'135
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L811:'136
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L812:'137
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L813:'138
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L814:'139
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L815:'140
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L816:'141
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L817:'142
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L818:'143
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L819:'144
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L820:'145
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L821:'146
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L822:'147
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L823:'148
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L824:'149
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L825:'150
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L826:'151
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L827:'152
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L828:'153
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L829:'154
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L830:'155
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L831:'156
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L832:'157
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L833:'158
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L834:'159
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L835:'160
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L836:'161
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L837:'162
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L838:'163
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L839:'164
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&H99)
   jmp L931
L840:'165
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L841:'166
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L842:'167
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L843:'168
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L844:'169
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L845:'170
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L846:'171
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L847:'172
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L848:'173
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L849:'174
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L850:'175
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L851:'176
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L852:'177
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L853:'178
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L854:'179
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L855:'180
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L856:'181
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L857:'182
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L858:'183
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L859:'184
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L860:'185
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L861:'186
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&H33)
   jmp L931
L862:'187
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&H66)
   jmp L931
L863:'188
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&H99)
   jmp L931
L864:'189
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L865:'190
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H33):poke64(49156,&HFF)
   jmp L931
L866:'191
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L867:'192
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&H33)
   jmp L931
L868:'193
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&H66)
   jmp L931
L869:'194
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L870:'195
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&HCC)
   jmp L931
L871:'196
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H66):poke64(49156,&HFF)
   jmp L931
L872:'197
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L873:'198
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&H33)
   jmp L931
L874:'199
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L875:'200
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&H99)
   jmp L931
L876:'201
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&HCC)
   jmp L931
L877:'202
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H99):poke64(49156,&HFF)
   jmp L931
L878:'203
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L879:'204
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L880:'205
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&H66)
   jmp L931
L881:'206
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&H99)
   jmp L931
L882:'207
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&HCC)
   jmp L931
L883:'208
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&HFF)
   jmp L931
L884:'209
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L885:'210
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L886:'211
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L887:'212
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&H99)
   jmp L931
L888:'213
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&HCC)
   jmp L931
L889:'214
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HFF):poke64(49156,&HFF)
   jmp L931
L890:'215
'         Red                 Green               Blue
   poke64(49154,&HE0):poke64(49155,&HE0):poke64(49156,&HE0)
   jmp L931
L891:'216
'         Red                 Green               Blue
   poke64(49154,&HC1):poke64(49155,&HC1):poke64(49156,&HC1)
   jmp L931
L892:'217
'         Red                 Green               Blue
   poke64(49154,&HA2):poke64(49155,&HA2):poke64(49156,&HA2)
   jmp L931
L893:'218
'         Red                 Green               Blue
   poke64(49154,&H83):poke64(49155,&H83):poke64(49156,&H83)
   jmp L931
L894:'219
'         Red                 Green               Blue
   poke64(49154,&H64):poke64(49155,&H64):poke64(49156,&H64)
   jmp L931
L895:'220
'         Red                 Green               Blue
   poke64(49154,&H45):poke64(49155,&H45):poke64(49156,&H45)
   jmp L931
L896:'221
'         Red                 Green               Blue
   poke64(49154,&H26):poke64(49155,&H26):poke64(49156,&H26)
   jmp L931
L897:'222
'         Red                 Green               Blue
   poke64(49154,&H07):poke64(49155,&H07):poke64(49156,&H07)
   jmp L931
L898:'223
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L899:'224
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L900:'225
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L901:'226
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L902:'227
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L903:'228
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L904:'229
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L905:'230
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L906:'231
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L907:'232
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L908:'233
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L909:'234
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HCC):poke64(49156,&H33)
   jmp L931
L910:'235
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H99):poke64(49156,&H66)
   jmp L931
L911:'236
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H66):poke64(49156,&H99)
   jmp L931
L912:'237
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H33):poke64(49156,&HCC)
   jmp L931
L913:'238
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&H00):poke64(49156,&HFF)
   jmp L931
L914:'239
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&H00):poke64(49156,&HCC)
   jmp L931
L915:'240
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H00):poke64(49156,&H99)
   jmp L931
L916:'241
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H00):poke64(49156,&H66)
   jmp L931
L917:'242
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H00):poke64(49156,&H33)
   jmp L931
L918:'243
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&H00):poke64(49156,&H00)
   jmp L931
L919:'244:
'         Red                 Green               Blue
   poke64(49154,&HCC):poke64(49155,&H33):poke64(49156,&H00)
   jmp L931
L920:'245
'         Red                 Green               Blue
   poke64(49154,&H99):poke64(49155,&H66):poke64(49156,&H00)
   jmp L931
L921:'246
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&H99):poke64(49156,&H00)
   jmp L931
L922:'247
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
'Monochrome Terminal Colors:   
L923:'248
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HBB):poke64(49156,&H00)
   jmp L931
L924:'249
'         Red                 Green               Blue
   poke64(49154,&HFF):poke64(49155,&HCC):poke64(49156,&H00)
   jmp L931
L925:'250
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H00)
   jmp L931
L926:'251
'         Red                 Green               Blue
   poke64(49154,&H33):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L927:'252
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H33)
   jmp L931
L928:'253
'         Red                 Green               Blue
   poke64(49154,&H66):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L929:'254
'         Red                 Green               Blue
   poke64(49154,&H00):poke64(49155,&HFF):poke64(49156,&H66)
   jmp L931
L930:'255
'         Red                 Green               Blue
   poke64(49154,&H28):poke64(49155,&H28):poke64(49156,&H28)
   jmp L931
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

bg_color.bi -part 1

Code: Select all

   cmp v eq peek(ubyte,@nibbles(&B0000)) jmp L1830
   cmp v eq peek(ubyte,@nibbles(&B0001)) jmp L1831
   cmp v eq peek(ubyte,@nibbles(&B0010)) jmp L1832
   cmp v eq peek(ubyte,@nibbles(&B0011)) jmp L1833
   cmp v eq peek(ubyte,@nibbles(&B0100)) jmp L1834
   cmp v eq peek(ubyte,@nibbles(&B0101)) jmp L1835
   cmp v eq peek(ubyte,@nibbles(&B0110)) jmp L1836
   cmp v eq peek(ubyte,@nibbles(&B0111)) jmp L1837
   cmp v eq peek(ubyte,@nibbles(&B1000)) jmp L1838
   cmp v eq peek(ubyte,@nibbles(&B1001)) jmp L1839
   cmp v eq peek(ubyte,@nibbles(&B1010)) jmp L1840
   cmp v eq peek(ubyte,@nibbles(&B1011)) jmp L1841
   cmp v eq peek(ubyte,@nibbles(&B1100)) jmp L1842
   cmp v eq peek(ubyte,@nibbles(&B1101)) jmp L1843
   cmp v eq peek(ubyte,@nibbles(&B1110)) jmp L1844
   cmp v eq peek(ubyte,@nibbles(&B1111)) jmp L1845
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) jmp L1846
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1847
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1848
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1849
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1850
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1851
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1852
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1853
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1854
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1855
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1856
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1857
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1858
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1859
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1860
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1861
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) jmp L1862
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1863
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1864
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1865
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1866
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1867
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1868
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1869
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1870
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1871
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1872
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1873
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1874
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1875
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1876
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1877
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) jmp L1878
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1879
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1880
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1881
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1882
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1883
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1884
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1885
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1886
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1887
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1888
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1889
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1890
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1891
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1892
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1893
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) jmp L1894
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1895
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1896
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1897
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1898
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1899
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1900
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1901
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1902
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1903
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1904
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1905
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1906
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1907
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1908
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1909
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) jmp L1910
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1911
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1912
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1913
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1914
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1915
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1916
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1917
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1918
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1919
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1920
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1921
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1922
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1923
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1924
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1925
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) jmp L1926
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1927
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1928
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1929
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1930
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1931
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1932
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1933
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1934
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1935
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1936
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1937
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1938
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1939
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1940
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1941
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) jmp L1942
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1943
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1944
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1945
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1946
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1947
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1948
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1949
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1950
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1951
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1952
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1953
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1954
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1955
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1956
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1957
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) jmp L1958
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1959
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1960
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1961
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1962
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1963
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1964
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1965
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1966
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1967
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1968
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1969
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1970
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1971
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1972
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1973
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) jmp L1974
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1975
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1976
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1977
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1978
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1979
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1980
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1981
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1982
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1983
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1984
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1985
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1986
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1987
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1988
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1989
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) jmp L1990
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1991
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1992
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1993
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1994
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1995
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1996
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1997
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1998
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1999
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2000
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2001
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2002
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2003
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2004
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2005
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) jmp L2006
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L2007
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L2008
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L2009
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L2010
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L2011
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L2012
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L2013
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L2014
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L2015
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2016
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2017
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2018
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2019
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2020
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2021
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) jmp L2022
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L2023
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L2024
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L2025
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L2026
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L2027
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L2028
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L2029
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L2030
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L2031
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2032
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2033
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2034
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2035
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2036
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2037
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) jmp L2038
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L2039
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L2040
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L2041
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L2042
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L2043
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L2044
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L2045
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L2046
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L2047
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2048
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2049
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2050
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2051
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2052
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2053
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) jmp L2054
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L2055
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L2056
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L2057
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L2058
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L2059
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L2060
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L2061
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L2062
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L2063
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2064
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2065
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2066
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2067
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2068
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2069
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) jmp L2070
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L2071
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L2072
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L2073
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L2074
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L2075
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L2076
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L2077
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L2078
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L2079
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L2080
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L2081
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L2082
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L2083
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L2084
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L2085
   jmp L2086
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

bg_color.bi -part 2

Code: Select all

L1830:'000
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L1831:'001
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L1832:'002
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L1833:'003
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L1834:'004
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L1835:'005
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L1836:'006
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L1837:'007
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L1838:'008
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L1839:'009
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L1840:'010
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L1841:'011
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L1842:'012
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L1843:'013
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L1844:'014
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L1845:'015
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L1846:'016
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L1847:'017
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L1848:'018
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L1849:'019
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L1850:'020
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L1851:'021
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L1852:'022
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&HCC)
   jmp L2086
L1853:'023
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L1854:'024
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L1855:'025
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L1856:'026
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L1857:'027
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L1858:'028
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L1859:'029
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L1860:'030
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L1861:'031
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L1862:'032
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L1863:'033
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L1864:'034
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L1865:'035
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L1866:'036
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L1867:'037
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L1868:'038
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L1869:'039
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L1870:'040
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L1871:'041
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L1872:'042
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L1873:'043
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L1874:'044
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L1875:'045
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L1876:'046
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L1877:'047
   poke64(49158,&H33):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L1878:'048
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L1879:'049
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L1880:'050
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L1881:'051
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L1882:'052
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L1883:'053
   poke64(49158,&H33):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L1884:'054
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L1885:'055
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L1886:'056
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L1887:'057
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L1888:'058
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&HCC)
   jmp L2086
L1889:'059
   poke64(49158,&H33):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L1890:'060
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L1891:'061
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L1892:'062
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L1893:'063
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L1894:'064
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L1895:'065
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L1896:'066
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L1897:'067
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L1898:'068
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L1899:'069
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L1900:'070
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L1901:'071
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L1902:'072
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L1903:'073
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L1904:'074
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L1905:'075
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L1906:'076
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L1907:'077
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L1908:'078
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L1909:'079
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L1910:'080
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L1911:'081
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L1912:'082
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L1913:'083
   poke64(49158,&H66):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L1914:'084
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L1915:'085
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L1916:'086
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L1917:'087
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L1918:'088
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L1919:'089
   poke64(49158,&H66):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L1920:'090
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L1921:'091
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L1922:'092
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L1923:'093
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L1924:'094
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L1925:'095
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L1926:'096
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L1927:'097
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L1928:'098
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L1929:'099
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L1930:'100
   poke64(49158,&H66):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L1931:'101
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L1932:'102
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L1933:'103
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L1934:'104
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L1935:'105
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L1936:'106
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L1937:'107
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L1938:'108
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L1939:'109
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L1940:'110
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L1941:'111
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L1942:'112
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L1943:'113
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L1944:'114
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L1945:'115
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L1946:'116
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L1947:'117
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L1948:'118
   poke64(49158,&H99):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L1949:'119
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L1950:'120
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L1951:'121
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L1952:'122
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L1953:'123
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L1954:'124
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L1955:'125
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L1956:'126
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L1957:'127
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L1958:'128
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L1959:'129
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&HCC)
   jmp L2086
L1960:'130
   poke64(49158,&H99):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L1961:'131
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L1962:'132
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L1963:'133
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L1964:'134
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L1965:'135
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L1966:'136
   poke64(49158,&H99):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L1967:'137
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L1968:'138
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L1969:'139
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L1970:'140
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L1971:'141
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L1972:'142
   poke64(49158,&H99):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L1973:'143
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L1974:'144
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L1975:'144
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L1976:'146
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L1977:'147
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L1978:'148
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L1979:'149
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L1980:'150
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L1981:'151
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L1982:'152
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L1983:'153
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L1984:'154
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L1985:'155
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L1986:'156
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L1987:'157
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L1988:'158
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L1989:'159
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L1990:'160
   poke64(49158,&HCC):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L1991:'161
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L1992:'162
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L1993:'163
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L1994:'164
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L1995:'165
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&HCC)
   jmp L2086
L1996:'166
   poke64(49158,&HCC):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L1997:'167
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L1998:'168
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L1999:'169
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L2000:'170
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L2001:'171
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L2002:'172
   poke64(49158,&HCC):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L2003:'173
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L2004:'174
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L2005:'175
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L2006:'176
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L2007:'177
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L2008:'178
   poke64(49158,&HCC):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L2009:'179
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2010:'180
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L2011:'181
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L2012:'182
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L2013:'183
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L2014:'184
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L2015:'185
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L2016:'186
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&H33)
   jmp L2086
L2017:'187
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&H66)
   jmp L2086
L2018:'188
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&H99)
   jmp L2086
L2019:'189
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L2020:'190
   poke64(49158,&HFF):poke64(49159,&H33):poke64(49160,&HFF)
   jmp L2086
L2021:'191
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L2022:'192
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&H33)
   jmp L2086
L2023:'193
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&H66)
   jmp L2086
L2024:'194
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L2025:'195
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&HCC)
   jmp L2086
L2026:'196
   poke64(49158,&HFF):poke64(49159,&H66):poke64(49160,&HFF)
   jmp L2086
L2027:'197
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L2028:'198
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&H33)
   jmp L2086
L2029:'199
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L2030:'200
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&H99)
   jmp L2086
L2031:'201
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&HCC)
   jmp L2086
L2032:'202
   poke64(49158,&HFF):poke64(49159,&H99):poke64(49160,&HFF)
   jmp L2086
L2033:'203
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L2034:'204
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L2035:'205
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&H66)
   jmp L2086
L2036:'206
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&H99)
   jmp L2086
L2037:'207
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&HCC)
   jmp L2086
L2038:'208
   poke64(49158,&HFF):poke64(49159,&HCC):poke64(49160,&HFF)
   jmp L2086
L2039:'209
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L2040:'210
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L2041:'211
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L2042:'212
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&H99)
   jmp L2086
L2043:'213
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&HCC)
   jmp L2086
L2044:'214
   poke64(49158,&HFF):poke64(49159,&HFF):poke64(49160,&HFF)
   jmp L2086
L2045:'215
   poke64(49158,&HE0):poke64(49159,&HE0):poke64(49160,&HE0)
   jmp L2086
L2046:'216
   poke64(49158,&HC1):poke64(49159,&HC1):poke64(49160,&HC1)
   jmp L2086
L2047:'217
   poke64(49158,&HA2):poke64(49159,&HA2):poke64(49160,&HA2)
   jmp L2086
L2048:'218
   poke64(49158,&H83):poke64(49159,&H83):poke64(49160,&H83)
   jmp L2086
L2049:'219
   poke64(49158,&H64):poke64(49159,&H64):poke64(49160,&H64)
   jmp L2086
L2050:'220
   poke64(49158,&H45):poke64(49159,&H45):poke64(49160,&H45)
   jmp L2086
L2051:'221
   poke64(49158,&H26):poke64(49159,&H26):poke64(49160,&H26)
   jmp L2086
L2052:'222
   poke64(49158,&H07):poke64(49159,&H07):poke64(49160,&H07)
   jmp L2086
L2053:'223
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2054:'224
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2055:'225
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2056:'226
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2057:'227
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2058:'228
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2059:'229
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L2060:'230
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L2061:'231
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L2062:'232
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
L2063:'233
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L2064:'234
   poke64(49158,&H00):poke64(49159,&HCC):poke64(49160,&H33)
   jmp L2086
L2065:'235
   poke64(49158,&H00):poke64(49159,&H99):poke64(49160,&H66)
   jmp L2086
L2066:'236
   poke64(49158,&H00):poke64(49159,&H66):poke64(49160,&H99)
   jmp L2086
L2067:'237
   poke64(49158,&H00):poke64(49159,&H33):poke64(49160,&HCC)
   jmp L2086
L2068:'238
   poke64(49158,&H00):poke64(49159,&H00):poke64(49160,&HFF)
   jmp L2086
L2069:'239
   poke64(49158,&H33):poke64(49159,&H00):poke64(49160,&HCC)
   jmp L2086
L2070:'240
   poke64(49158,&H66):poke64(49159,&H00):poke64(49160,&H99)
   jmp L2086
L2071:'241
   poke64(49158,&H99):poke64(49159,&H00):poke64(49160,&H66)
   jmp L2086
L2072:'242
   poke64(49158,&HCC):poke64(49159,&H00):poke64(49160,&H33)
   jmp L2086
L2073:'243
   poke64(49158,&HFF):poke64(49159,&H00):poke64(49160,&H00)
   jmp L2086
L2074:'244
   poke64(49158,&HCC):poke64(49159,&H33):poke64(49160,&H00)
   jmp L2086
L2075:'245
   poke64(49158,&H99):poke64(49159,&H66):poke64(49160,&H00)
   jmp L2086
L2076:'246
   poke64(49158,&H66):poke64(49159,&H99):poke64(49160,&H00)
   jmp L2086
L2077:'247
   poke64(49158,&H33):poke64(49159,&HCC):poke64(49160,&H00)
   jmp L2086
'Monochrome Terminal Colors:   
L2078:'248
   poke64(49158,&HFF):poke64(49159,&HB0):poke64(49160,&H00)
   jmp L2086
L2079:'249
   poke64(49158,&HFF):poke64(49159,&HC0):poke64(49160,&H00)
   jmp L2086
L2080:'250
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H00)
   jmp L2086
L2081:'251
   poke64(49158,&H33):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L2082:'252
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H33)
   jmp L2086
L2083:'253
   poke64(49158,&H66):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L2084:'254
   poke64(49158,&H00):poke64(49159,&HFF):poke64(49160,&H66)
   jmp L2086
L2085:'255
   poke64(49158,&H28):poke64(49159,&H28):poke64(49160,&H28)
   jmp L2086
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

bd_color.bi -part 1

Code: Select all

   cmp v eq peek(ubyte,@nibbles(&B0000)) jmp L1570
   cmp v eq peek(ubyte,@nibbles(&B0001)) jmp L1571
   cmp v eq peek(ubyte,@nibbles(&B0010)) jmp L1572
   cmp v eq peek(ubyte,@nibbles(&B0011)) jmp L1573
   cmp v eq peek(ubyte,@nibbles(&B0100)) jmp L1574
   cmp v eq peek(ubyte,@nibbles(&B0101)) jmp L1575
   cmp v eq peek(ubyte,@nibbles(&B0110)) jmp L1576
   cmp v eq peek(ubyte,@nibbles(&B0111)) jmp L1577
   cmp v eq peek(ubyte,@nibbles(&B1000)) jmp L1578
   cmp v eq peek(ubyte,@nibbles(&B1001)) jmp L1579
   cmp v eq peek(ubyte,@nibbles(&B1010)) jmp L1580
   cmp v eq peek(ubyte,@nibbles(&B1011)) jmp L1581
   cmp v eq peek(ubyte,@nibbles(&B1100)) jmp L1582
   cmp v eq peek(ubyte,@nibbles(&B1101)) jmp L1583
   cmp v eq peek(ubyte,@nibbles(&B1110)) jmp L1584
   cmp v eq peek(ubyte,@nibbles(&B1111)) jmp L1585
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) jmp L1586
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1587
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1588
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1589
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1590
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1591
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1592
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1593
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1594
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1595
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1596
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1597
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1598
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1599
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1600
   cmp v eq peek(ubyte,@nibbles(&B0001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1601
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) jmp L1602
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1603
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1604
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1605
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1606
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1607
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1608
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1609
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1610
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1611
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1612
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1613
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1614
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1615
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1616
   cmp v eq peek(ubyte,@nibbles(&B0010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1617
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) jmp L1618
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1619
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1620
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1621
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1622
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1623
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1624
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1625
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1626
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1627
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1628
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1629
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1630
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1631
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1632
   cmp v eq peek(ubyte,@nibbles(&B0011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1633
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) jmp L1634
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1635
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1636
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1637
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1638
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1639
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1640
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1641
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1642
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1643
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1644
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1645
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1646
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1647
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1648
   cmp v eq peek(ubyte,@nibbles(&B0100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1649
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) jmp L1650
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1651
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1652
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1653
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1654
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1655
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1656
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1657
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1658
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1659
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1660
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1661
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1662
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1663
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1664
   cmp v eq peek(ubyte,@nibbles(&B0101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1665
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) jmp L1666
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1667
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1668
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1669
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1670
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1671
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1672
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1673
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1674
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1675
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1676
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1677
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1678
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1679
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1680
   cmp v eq peek(ubyte,@nibbles(&B0110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1681
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) jmp L1682
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1683
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1684
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1685
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1686
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1687
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1688
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1689
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1690
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1691
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1692
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1693
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1694
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1695
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1696
   cmp v eq peek(ubyte,@nibbles(&B0111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1697
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) jmp L1698
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1699
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1700
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1701
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1702
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1703
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1704
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1705
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1706
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1707
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1708
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1709
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1710
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1711
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1712
   cmp v eq peek(ubyte,@nibbles(&B1000)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1713
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) jmp L1714
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1715
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1716
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1717
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1718
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1719
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1720
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1721
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1722
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1723
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1724
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1725
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1726
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1727
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1728
   cmp v eq peek(ubyte,@nibbles(&B1001)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1729
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) jmp L1730
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1731
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1732
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1733
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1734
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1735
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1736
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1737
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1738
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1739
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1740
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1741
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1742
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1743
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1744
   cmp v eq peek(ubyte,@nibbles(&B1010)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1745
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) jmp L1746
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1747
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1748
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1749
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1750
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1751
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1752
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1753
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1754
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1755
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1756
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1757
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1758
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1759
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1760
   cmp v eq peek(ubyte,@nibbles(&B1011)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1761
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) jmp L1762
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1763
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1764
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1765
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1766
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1767
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1768
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1769
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1770
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1771
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1772
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1773
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1774
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1775
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1776
   cmp v eq peek(ubyte,@nibbles(&B1100)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1777
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) jmp L1778
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1779
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1780
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1781
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1782
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1783
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1784
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1785
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1786
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1787
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1788
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1789
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1790
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1791
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1792
   cmp v eq peek(ubyte,@nibbles(&B1101)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1793
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) jmp L1794
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1795
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1796
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1797
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1798
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1799
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1800
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1801
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1802
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1803
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1804
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1805
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1806
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1807
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1808
   cmp v eq peek(ubyte,@nibbles(&B1110)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1809
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) jmp L1810
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0001)) jmp L1811
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0010)) jmp L1812
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0011)) jmp L1813
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0100)) jmp L1814
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0101)) jmp L1815
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0110)) jmp L1816
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B0111)) jmp L1817
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1000)) jmp L1818
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1001)) jmp L1819
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1010)) jmp L1820
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1011)) jmp L1821
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1100)) jmp L1822
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1101)) jmp L1823
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1110)) jmp L1824
   cmp v eq peek(ubyte,@nibbles(&B1111)) shl peek(ubyte,@nibbles(&B0100)) add peek(ubyte,@nibbles(&B1111)) jmp L1825
   jmp L2086
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

bd_color.bi - part 2

Code: Select all

L1570:'000
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H000000)
   jmp L1826
L1571:'001
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H000033)
   jmp L1826
L1572:'002
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H000066)
   jmp L1826
L1573:'003
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H000099)
   jmp L1826
L1574:'004
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0000CC)
   jmp L1826
L1575:'005
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0000FF)
   jmp L1826
L1576:'006
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H003300)
   jmp L1826
L1577:'007
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H003333)
   jmp L1826
L1578:'008
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H003366)
   jmp L1826
L1579:'009
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H003399)
   jmp L1826
L1580:'010
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0033CC)
   jmp L1826
L1581:'011
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0033FF)
   jmp L1826
L1582:'012
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H006600)
   jmp L1826
L1583:'013
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H006633)
   jmp L1826
L1584:'014
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H006666)
   jmp L1826
L1585:'015
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H006699)
   jmp L1826
L1586:'016
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0066CC)
   jmp L1826
L1587:'017
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0066FF)
   jmp L1826
L1588:'018
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H009900)
   jmp L1826
L1589:'019
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H009933)
   jmp L1826
L1590:'020
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H009966)
   jmp L1826
L1591:'021
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H009999)
   jmp L1826
L1592:'022
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0099CC)
   jmp L1826
L1593:'023
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0099FF)
   jmp L1826
L1594:'024
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CC00)
   jmp L1826
L1595:'025
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CC33)
   jmp L1826
L1596:'026
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CC66)
   jmp L1826
L1597:'027
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CC99)
   jmp L1826
L1598:'028
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CCCC)
   jmp L1826
L1599:'029
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CCFF)
   jmp L1826
L1600:'030
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF00)
   jmp L1826
L1601:'031
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF33)
   jmp L1826
L1602:'032
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF66)
   jmp L1826
L1603:'033
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF99)
   jmp L1826
L1604:'034
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FFCC)
   jmp L1826
L1605:'035
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FFFF)
   jmp L1826
L1606:'036
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H330000)
   jmp L1826
L1607:'037
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H330033)
   jmp L1826
L1608:'038
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H330066)
   jmp L1826
L1609:'039
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H330099)
   jmp L1826
L1610:'040
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3300CC)
   jmp L1826
L1611:'041
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3300FF)
   jmp L1826
L1612:'042
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H333300)
   jmp L1826
L1613:'043
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H333333)
   jmp L1826
L1614:'044
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H333366)
   jmp L1826
L1615:'045
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H333399)
   jmp L1826
L1616:'046
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3333CC)
   jmp L1826
L1617:'047
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3333FF)
   jmp L1826
L1618:'048
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H336600)
   jmp L1826
L1619:'049
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H336633)
   jmp L1826
L1620:'050
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H336666)
   jmp L1826
L1621:'051
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H336699)
   jmp L1826
L1622:'052
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3366CC)
   jmp L1826
L1623:'053
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3366FF)
   jmp L1826
L1624:'054
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H339900)
   jmp L1826
L1625:'055
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H339933)
   jmp L1826
L1626:'056
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H339966)
   jmp L1826
L1627:'057
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H339999)
   jmp L1826
L1628:'058
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3399CC)
   jmp L1826
L1629:'059
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3399FF)
   jmp L1826
L1630:'060
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC00)
   jmp L1826
L1631:'061
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC33)
   jmp L1826
L1632:'062
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC66)
   jmp L1826
L1633:'063
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC99)
   jmp L1826
L1634:'064
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CCCC)
   jmp L1826
L1635:'065
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CCFF)
   jmp L1826
L1636:'066
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF00)
   jmp L1826
L1637:'067
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF33)
   jmp L1826
L1638:'068
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF66)
   jmp L1826
L1639:'069
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF99)
   jmp L1826
L1640:'070
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FFCC)
   jmp L1826
L1641:'071
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FFFF)
   jmp L1826
L1642:'072
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660000)
   jmp L1826
L1643:'073
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660033)
   jmp L1826
L1644:'074
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660066)
   jmp L1826
L1645:'075
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660099)
   jmp L1826
L1646:'076
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6600CC)
   jmp L1826
L1647:'077
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6600FF)
   jmp L1826
L1648:'078
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H663300)
   jmp L1826
L1649:'079
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H663333)
   jmp L1826
L1650:'080
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H663366)
   jmp L1826
L1651:'081
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H663399)
   jmp L1826
L1652:'082
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6633CC)
   jmp L1826
L1653:'083
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6633FF)
   jmp L1826
L1654:'084
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H666600)
   jmp L1826
L1655:'085
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H666633)
   jmp L1826
L1656:'086
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H666666)
   jmp L1826
L1657:'087
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H666699)
   jmp L1826
L1658:'088
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6666CC)
   jmp L1826
L1659:'089
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6666FF)
   jmp L1826
L1660:'090
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669900)
   jmp L1826
L1661:'091
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669933)
   jmp L1826
L1662:'092
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669966)
   jmp L1826
L1663:'093
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669999)
   jmp L1826
L1664:'094
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H6699FF)
   jmp L1826
L1665:'095
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CC00)
   jmp L1826
L1666:'096
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CC33)
   jmp L1826
L1667:'097
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CC66)
   jmp L1826
L1668:'098
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CC99)
   jmp L1826
L1669:'099
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CCCC)
   jmp L1826
L1670:'100
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66CCFF)
   jmp L1826
L1671:'101
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FF00)
   jmp L1826
L1672:'102
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FF33)
   jmp L1826
L1673:'103
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FF66)
   jmp L1826
L1674:'104
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FF99)
   jmp L1826
L1675:'105
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FFCC)
   jmp L1826
L1676:'106
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FFFF)
   jmp L1826
L1677:'107
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990000)
   jmp L1826
L1678:'108
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990033)
   jmp L1826
L1679:'109
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990066)
   jmp L1826
L1680:'110
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990099)
   jmp L1826
L1681:'111
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9900CC)
   jmp L1826
L1682:'112
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9900FF)
   jmp L1826
L1683:'113
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H993300)
   jmp L1826
L1684:'114
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H993333)
   jmp L1826
L1685:'115
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H993366)
   jmp L1826
L1686:'116
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H993399)
   jmp L1826
L1687:'117
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9933CC)
   jmp L1826
L1688:'118
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9933FF)
   jmp L1826
L1689:'119
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996600)
   jmp L1826
L1690:'120
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996633)
   jmp L1826
L1691:'121
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996666)
   jmp L1826
L1692:'122
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996699)
   jmp L1826
L1693:'123
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9966CC)
   jmp L1826
L1694:'124
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9966FF)
   jmp L1826
L1695:'125
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H999900)
   jmp L1826
L1696:'126
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H999933)
   jmp L1826
L1697:'127
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H999966)
   jmp L1826
L1698:'128
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H999999)
   jmp L1826
L1699:'129
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9999CC)
   jmp L1826
L1700:'130
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H9999FF)
   jmp L1826
L1701:'131
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CC00)
   jmp L1826
L1702:'132
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CC33)
   jmp L1826
L1703:'133
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CC66)
   jmp L1826
L1704:'134
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CC99)
   jmp L1826
L1705:'135
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CCCC)
   jmp L1826
L1706:'136
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99CCFF)
   jmp L1826
L1707:'137
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FF00)
   jmp L1826
L1708:'138
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FF33)
   jmp L1826
L1709:'139
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FF66)
   jmp L1826
L1710:'140
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FF99)
   jmp L1826
L1711:'141
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FFCC)
   jmp L1826
L1712:'142
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H99FFFF)
   jmp L1826
L1713:'143
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0000)
   jmp L1826
L1714:'144
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0033)
   jmp L1826
L1715:'145
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0066)
   jmp L1826
L1716:'146
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0099)
   jmp L1826
L1717:'147
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC00CC)
   jmp L1826
L1718:'148
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC00FF)
   jmp L1826
L1719:'149
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3300)
   jmp L1826
L1720:'150
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3333)
   jmp L1826
L1721:'151
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3366)
   jmp L1826
L1722:'152
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3399)
   jmp L1826
L1723:'153
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC33CC)
   jmp L1826
L1724:'154
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC33FF)
   jmp L1826
L1725:'155
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC6600)
   jmp L1826
L1726:'156
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC6633)
   jmp L1826
L1727:'157
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC6666)
   jmp L1826
L1728:'158
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC6699)
   jmp L1826
L1729:'159
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC66CC)
   jmp L1826
L1730:'160
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC66FF)
   jmp L1826
L1731:'161
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC9900)
   jmp L1826
L1732:'162
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC9933)
   jmp L1826
L1733:'163
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC9966)
   jmp L1826
L1734:'164
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC9999)
   jmp L1826
L1735:'165
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC99CC)
   jmp L1826
L1736:'166
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC99FF)
   jmp L1826
L1737:'167
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCC00)
   jmp L1826
L1738:'168
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCC33)
   jmp L1826
L1739:'169
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCC66)
   jmp L1826
L1740:'170
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCC99)
   jmp L1826
L1741:'171
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCCCC)
   jmp L1826
L1742:'172
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCCCFF)
   jmp L1826
L1743:'173
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFF00)
   jmp L1826
L1744:'174
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFF33)
   jmp L1826
L1745:'175
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFF66)
   jmp L1826
L1746:'176
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFF99)
   jmp L1826
L1747:'177
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFFCC)
   jmp L1826
L1748:'178
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCCFFFF)
   jmp L1826
L1749:'179
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0000)
   jmp L1826
L1750:'180
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0033)
   jmp L1826
L1751:'181
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0066)
   jmp L1826
L1752:'182
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0099)
   jmp L1826
L1753:'183
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF00CC)
   jmp L1826
L1754:'184
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF00FF)
   jmp L1826
L1755:'185
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF3300)
   jmp L1826
L1756:'186
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF3333)
   jmp L1826
L1757:'187
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF3366)
   jmp L1826
L1758:'188
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF3399)
   jmp L1826
L1759:'189
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF33CC)
   jmp L1826
L1760:'190
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF33FF)
   jmp L1826
L1761:'191
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF6600)
   jmp L1826
L1762:'192
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF6633)
   jmp L1826
L1763:'193
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF6666)
   jmp L1826
L1764:'194
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF6699)
   jmp L1826
L1765:'195
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF66CC)
   jmp L1826
L1766:'196
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF66FF)
   jmp L1826
L1767:'197
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF9900)
   jmp L1826
L1768:'198
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF9933)
   jmp L1826
L1769:'199
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF9966)
   jmp L1826
L1770:'200
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF9999)
   jmp L1826
L1771:'201
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF99CC)
   jmp L1826
L1772:'203
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCC00)
   jmp L1826
L1773:'204
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCC33)
   jmp L1826
L1774:'205
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCC66)
   jmp L1826
L1775:'206
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCC99)
   jmp L1826
L1776:'207
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCCCC)
   jmp L1826
L1777:'208
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFCCFF)
   jmp L1826
L1778:'209
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFF00)
   jmp L1826
L1779:'210
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFF33)
   jmp L1826
L1780:'211
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFF66)
   jmp L1826
L1781:'212
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFF99)
   jmp L1826
L1782:'213
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFFCC)
   jmp L1826
L1783:'214
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFFFFF)
   jmp L1826
L1784:'215
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HE0E0E0)
   jmp L1826
L1785:'216
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HC1C1C1)
   jmp L1826
L1786:'217
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HA2A2A2)
   jmp L1826
L1787:'218
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H838383)
   jmp L1826
L1788:'219
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H646464)
   jmp L1826
L1789:'220
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H454545)
   jmp L1826
L1790:'221
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H464646)
   jmp L1826
L1791:'222
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H070707)
   jmp L1826
L1792:'223
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H330000)
   jmp L1826
L1793:'224
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H000000)
   jmp L1826
L1794:'225
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660000)
   jmp L1826
L1795:'226
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990000)
   jmp L1826
L1796:'227
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0000)
   jmp L1826
L1797:'228
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0000)
   jmp L1826
L1798:'229
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3300)
   jmp L1826
L1799:'230
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996600)
   jmp L1826
L1800:'231
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669900)
   jmp L1826
L1801:'232
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC00)
   jmp L1826
L1802:'233
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF00)
   jmp L1826
L1803:'234
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00CC33)
   jmp L1826
L1804:'235
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H009966)
   jmp L1826
L1805:'236
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H006699)
   jmp L1826
L1806:'237
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0033CC)
   jmp L1826
L1807:'238
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H0000FF)
   jmp L1826
L1808:'239
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H3300CC)
   jmp L1826
L1809:'240
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H660099)
   jmp L1826
L1810:'241
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H990066)
   jmp L1826
L1811:'242
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC0033)
   jmp L1826
L1812:'243
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFF0000)
   jmp L1826
L1813:'244
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HCC3300)
   jmp L1826
L1814:'245
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H996600)
   jmp L1826
L1815:'246
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H669900)
   jmp L1826
L1816:'247
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33CC00)
   jmp L1826
'Monochrome Terminal Colors:
L1817:'248
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFB000)
   jmp L1826
L1818:'249
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &HFFC000)
   jmp L1826
L1819:'250
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF00)
   jmp L1826
L1820:'251
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H33FF33)
   jmp L1826
L1821:'252
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF33)
   jmp L1826
L1822:'253
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H66FF66)
   jmp L1826
L1823:'254
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H00FF66)
   jmp L1826
L1824:'255
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H282828)
   jmp L1826
L1825:'256
'            bd_color      alpha              Color Code
   mov(mem64(49457),mem64(49456) shl 24 add &H282828)
   jmp L1826
L1826:
 '                                           bd_color
    line bgimage,(0d,0)-(1919d,1079),mem64(49457),bf
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

512-bit CPU emulation:

Code: Select all

    case 49459 ' ld adr0_512
'                           adr0_512     adr0_512d7              adr0_512d6              adr0_512d5
                  mov(mem64(49460),mem64(49461) shl 56 add mem64(49462) shl 48 add mem64(49463) shl 40 add _
                                    mem64(49464) shl 32 add mem64(49465) shl 24 add mem64(49466) shl 16 add _
                                    mem64(49467) shl 08 add mem64(49468)) '               adr0_512d2
'                                        adr0_512d1               adr0_512d0
    case 49469 ' ld adr1_512
'                           adr1_512     adr1_512d7              adr1_512d6              adr1_512d5
                  mov(mem64(49470),mem64(49471) shl 56 add mem64(49472) shl 48 add mem64(49473) shl 40 add _
                                    mem64(49474) shl 32 add mem64(49475) shl 24 add mem64(49476) shl 16 add _
                                    mem64(49477) shl 08 add mem64(49478)) '               adr1_512d2
'                                         adr1_512d1              adr1_512d0
    case 49479 ' ld adr2_512
'                           adr3_512     adr3_512d7              adr3_512d6              adr3_512d5
                  mov(mem64(49480),mem64(49481) shl 56 add mem64(49482) shl 48 add mem64(49483) shl 40 add _
                                    mem64(49484) shl 32 add mem64(49485) shl 24 add mem64(49486) shl 16 add _
                                    mem64(49487) shl 08 add mem64(49488)) '               adr3_512d2
'                                        adr3_512d1               adr3_512d0
    case 49489 ' ld adr3_512
'                           adr3_512     adr3_512d7              adr3_512d6              adr3_512d5
                  mov(mem64(49490),mem64(49491) shl 56 add mem64(49492) shl 48 add mem64(49493) shl 40 add _
                                    mem64(49494) shl 32 add mem64(49495) shl 24 add mem64(49496) shl 16 add _
                                    mem64(49497) shl 08 add mem64(49498)) '               adr3_512d2
'                                         adr3_512d1              adr3_512d0
    case 49499 ' ld pc_512
'                          pc_512        pc_512d7                pc_512d6                pc_512d5
                  mov(mem64(49500),mem64(49501) shl 56 add mem64(49502) shl 48 add mem64(49503) shl 40 add _
                                    mem64(49504) shl 32 add mem64(49505) shl 24 add mem64(49506) shl 16 add _
                                    mem64(49507) shl 08 add mem64(49508)) '               pc_512d2
'                                         pc_512d1                pc_512d0
    case 49509 ' ld pc_status_512
    
'                     pc_status_512 pc_status_512d7         pc_status_512d6        pc_status_512d5
                  mov(mem64(49510),mem64(49511) shl 56 add mem64(49512) shl 48 add mem64(49513) shl 40 add _
                                    mem64(49514) shl 32 add mem64(49515) shl 24 add mem64(49516) shl 16 add _
                                    mem64(49517) shl 08 add mem64(49518)) '         pc_status_512d2
'                                   pc_status_512d1         pc_status_512d0

'                          pc_512        r0                    pc_512         r0   
    case 49519: mov(mem64(49500),mem64(49361)) ' move mem64(49500), mem64(49361)
'                          pc_512        r1                    pc_512         r1   
    case 49520: mov(mem64(49500),mem64(49362)) ' move mem64(49500), mem64(49362)
'                          pc_512        r2                    pc_512         r2   
    case 49521: mov(mem64(49500),mem64(49363)) ' move mem64(49500), mem64(49363)
'                          adr0_512      r0                    adr0_512       r0 
    case 49522: mov(mem64(49460),mem64(49361)) ' move mem64(49460), mem64(49361)
'                          adr0_512      r1                    adr0_512       r1   
    case 49523: mov(mem64(49460),mem64(49362)) ' move mem64(49460), mem64(49362)
'                          adr0_512      r2                    adr0_512       r2   
    case 49524: mov(mem64(49460),mem64(49363)) ' move mem64(49460), mem64(49363)
'                          adr1_512      r0                    adr1_512       r0   
    case 49525: mov(mem64(49470),mem64(49361)) ' move mem64(49470), mem64(49361)
'                          adr1_512      r1                    adr1_512       r1    
    case 49526: mov(mem64(49470),mem64(49362)) ' move mem64(49470), mem64(49362)
'                          adr1_512      r2                    adr1_512       r2   
    case 49527: mov(mem64(49470),mem64(49363)) ' move mem64(49470), mem64(49363)
'                          adr2_512      r0                    adr2_512       r0     
    case 49528: mov(mem64(49490),mem64(49361)) ' move mem64(49490), mem64(49361)
   
    case 49529
     select case peek(SYSTEM_TYPE,@v)
       case peek(ubyte,@nibbles(&B0000))
'                    adr2_512     r1                   adr2_512      r1
           mov(mem64(49490),mem64(49390)) ' move mem64(49490), mem64(49362)
       case peek(ubyte,@nibbles(&B0001))
'                    adr2_512     r2                   adr2_512      r2  
           mov(mem64(49490),mem64(49363)) ' move mem64(49490), mem64(49363)
    end select       
'                          red           adr0_512              red           adr0_512   
    case 49530: mov(mem64(49154),mem64(49460)) ' move mem64(49154), mem64(49460)
'                          red           adr0_512              red           adr0_512   
    case 49531: mov(mem64(49154),mem64(49460)) ' move mem64(49154), mem64(49460)
'                          red           adr0_512              red           adr0_512   
    case 49532: mov(mem64(49154),mem64(49460)) ' move mem64(49154), mem64(49460)
'                          green         adr0_512              green         adr0_512    
    case 49533: mov(mem64(49155),mem64(49460)) ' move mem64(49155), mem64(49460)
'                          green         adr0_512              green         adr0_512   
    case 49534: mov(mem64(49155),mem64(49460)) ' move mem64(49155), mem64(49460)
'                          green         adr0_512              green         adr0_512   
    case 49535: mov(mem64(49155),mem64(49460)) ' move mem64(49155), mem64(49460)
'                          blue          adr0_512              blue          adr0_512    
    case 49536: mov(mem64(49156),mem64(49460)) ' move mem64(49156), mem64(49460)
'                          blue          adr0_512              blue          adr0_512   
    case 59537: mov(mem64(49156),mem64(49460)) ' move mem64(49156), mem64(49460)
'                          blue          adr0_512              blue          adr0_512   
    case 49538: mov(mem64(49156),mem64(49460)) ' move mem64(49156), mem64(49460)
'                          alpha         adr0_512              alpha         adr0_512   
    case 49539: mov(mem64(49157),mem64(49460)) ' move mem64(49157), mem64(49460)
'                          alpha         adr0_512              alpha         adr0_512
    case 49540: mov(mem64(49157),mem64(49460)) ' move mem64(49157), mem64(49460)
'                          alpha         adr0_512              alpha         adr0_512   
    case 49541: mov(mem64(49157),mem64(49460)) ' move mem64(49157), mem64(49460)
'                          x0            adr0_512              x0            adr0_512      
    case 49542: mov(mem64(49355),mem64(49460)) ' move mem64(49355), mem64(49460)
'                          x1            adr0_512              x1            adr0_512   
    case 49543: mov(mem64(49358),mem64(49460)) ' move mem64(49358), mem64(49460)
'                          y0            adr0_512              y0            adr0_512   
    case 49544: mov(mem64(49356),mem64(49460)) ' move mem64(49356), mem64(49460)
'                          y1            adr0_512              y1            adr0_512   
    case 49545: mov(mem64(49359),mem64(49460)) ' move mem64(49359), mem64(49460)
'                          z0            adr0_512              z0            adr0_512   
    case 49546: mov(mem64(49357),mem64(49460)) ' move mem64(49357), mem64(49460)
'                          z1            adr0_512              z1            adr0_512   
    case 49547: mov(mem64(49360),mem64(49460)) ' move mem64(49360), mem64(49460)
'                          fg_color      adr0_512              fg_color      adr0_512   
    case 49548: mov(mem64(49353),mem64(49460)) ' move mem64(49353), mem64(49460)
'                          bg_color      adr0_512              bg_color      adr0_512   
    case 49549: mov(mem64(49354),mem64(49460)) ' move mem64(49354), mem64(49460)
'                          adr0_512      x0                    adr0_512      x0
    case 49550: mov(mem64(49460),mem64(49355)) ' move mem64(49460), mem64(49355)
'                          x0            adr0_512              x0            adr0_512  
    case 49551: mov(mem64(49355),mem64(49460)) ' move mem64(49355), mem64(49460)
'                          adr0_512      y0                    adr0_512      y0
    case 49552: mov(mem64(49460),mem64(49356)) ' move mem64(49460), mem64(49356)
'                          x0            adr0_512              x0            adr0_512   
    case 49553: mov(mem64(49356),mem64(49460)) ' move mem64(49356), mem64(49460)
'                          adr0_512      z0                    adr0_512      z0   
    case 49554: mov(mem64(49460),mem64(49357)) ' move mem64(49460), mem64(49357)
'                          adr0_512      x1                    adr0_512      x1 
    case 49555: mov(mem64(49460),mem64(49358)) ' move mem64(49460), mem64(49358)
'                          adr0_512      y1                    adr0_512      y1
    case 49556: mov(mem64(49460),mem64(49359)) ' move mem64(49460), mem64(49359)
'                          adr0_512      z1                    adr0_512      z1
    case 49557: mov(mem64(49460),mem64(49360)) ' move mem64(49460), mem64(49360)
'                          z1            adr0_512              z1            adr0_512   
    case 49558: mov(mem64(49360),mem64(49460)) ' move mem64(49460), mem64(49460)
'                          adr0_512      y1                    adr0_512       y1
    case 49559: mov(mem64(49460),mem64(49359)) ' move mem64(49460), mem64(49359)
'                          adr0_512      z1                    adr0_512       z1
    case 49560: mov(mem64(49460),mem64(49360)) ' move mem64(49460), mem64(49360) 
'                          adr0_512      z1                    adr0_512       z1
    case 49561: mov(mem64(49460),mem64(49360)) ' move mem64(49460), mem64(49360)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512    
    case 49562: mov(mem64(49460),mem64(49470) add  mem64(49480)) ' add mem64(49470), mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512   
    case 49563: mov(mem64(49460),mem64(49470) subt mem64(49480)) ' sub mem64(49470), mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512   
    case 49564: mov(mem64(49460),mem64(49470) mul  mem64(49480)) ' mul mem64(49470), mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512   
    case 49565: mov(mem64(49460),mem64(49470) ndiv mem64(49480)) ' div mem64(49470), mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512  
    case 49566: mov(mem64(49460),mem64(49470) idiv mem64(49480)) ' idiv mem64(49470),mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512   
    case 49567: mov(mem64(49460),mem64(49470) expt mem64(49480)) ' exp mem64(49470), mem64(49480)
'                          adr0_512      adr1_512          adr2_512             adr1_512      adr2_512   
    case 49568: mov(mem64(49460),modulo(mem64(49470),mem64(49480))) ' mod mem64(49470), mem64(49480)
'                          adr0_512          adr0_512                           adr0_512    
    case 49569: mov(mem64(49460), neg mem64(49460))              ' neg mem64(49460)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49570: mov(mem64(49460),mem64(49470) shl  mem64(49480)) ' shl mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49571: mov(mem64(49460),mem64(49470) shr  mem64(49480)) ' shr mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49572: mov(mem64(49460),mem64(49470) eq   mem64(49480)) ' equ mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49573: mov(mem64(49460),mem64(49470) ne   mem64(49480)) ' ne  mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49574: mov(mem64(49460),mem64(49470) lt   mem64(49480)) ' lt  mem64(49470), mem64(49480)   
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49575: mov(mem64(49460),mem64(49470) ls   mem64(49480)) ' lte mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49576: mov(mem64(49460),mem64(49470) gs   mem64(49480)) ' gte mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512      
    case 49577: mov(mem64(49460),mem64(49470) gt   mem64(49480)) ' gt  mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512    
    case 49578: mov(mem64(49460),mem64(49470) and  mem64(49480)) ' and mem64(494670),mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49579: mov(mem64(49460),mem64(49370) eqv  mem64(49380)) ' eqv mem64(49370), mem64(49380)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49580: mov(mem64(49460),mem64(49370) imp  mem64(49380)) ' imp mem64(49370), mem64(49380)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49581: mov(mem64(49460),mem64(49470) or   mem64(49480)) ' or  mem64(49470), mem64(49480)
'                          adr0_512      adr1_512         adr2_512              adr1_512       adr2_512   
    case 49582: mov(mem64(49460),mem64(49470) xor  mem64(49480)) ' xor mem64(49470), mem64(49480)
'                          adr1_512      adr0_512                               adr1_512       adr2_512   
    case 49583: mov(mem64(49470),mem64(49460))                    ' move mem64(49470), mem64(49460)
'                          adr2_512      adr0_512                               adr2_512       adr0_512   
    case 49584: mov(mem64(49480),mem64(49460))                    ' move mem64(49480), mem64(49460)
'                          adr0_512      adr0_512                               adr0_512   
    case 49585: mov(mem64(49460),mem64(49460) add 1)              ' inc mem64(49460)
'                          adr1_512      adr1_512                               adr1_512   
    case 49586: mov(mem64(49470),mem64(49470) add 1)              ' inc mem64(49470)
'                          adr2_512      adr2_512                               adr2_512
    case 49587: mov(mem64(49480),mem64(49480) add 1)              ' inc mem64(49480)
'                          adr0_512      adr0_512                               adr0_512   
    case 49588: mov(mem64(49460),mem64(49460) subt 1)             ' dec mem64(49460)
'                          adr1_512      adr1_512                               adr1_512   
    case 49589: mov(mem64(49470),mem64(49470) subt 1)             ' dec mem64(49470)
'                          adr2_512      adr2_512                               adr2_512   
    case 49590: mov(mem64(49480),mem64(49480) subt 1)             ' dec mem64(49480)
    case 49591:                  ' be  [address]
'             adr1_512        adr2_512                  pc_512     
     if (mem64(49470) eq mem64(49480)) then mov(mem64(49500),v)
    case 49592:                  ' bne [address]
'             adr1_512        adr2_512                  pc_512   
     if (mem64(49470) ne mem64(49480)) then mov(mem64(49500),v)
    case 49593:                  ' bg  [address]
'             adr1_512        adr2_512             pc_512   
     if (mem64(49470) gt mem64(49480)) then mov(mem64(49500),v)          
    case 49594:                  ' bge [address]
'             adr1_512        adr2_512             pc_512   
     if (mem64(49470) gs mem64(49480)) then mov(mem64(49500),v)
    case 49595:                  ' ble [address]
'             adr1_512        adr2_512             pc_512   
     if (mem64(49470) ls mem64(49480)) then mov(mem64(49500),v)
    case 49596:                  ' bl  [address]
'             adr1_512        adr2_512             pc_512 
     if (mem64(49470) gt mem64(49480)) then mov(mem64(49500),v)
    case 49597:                  ' jmp [address]
'         pc_512
     mem64(49500) = v 

'                                              adr0_512
    case 49598:                  ' move.b mem64(49460), [address]
'              adr0_512
     mov(mem64(49460), peekb(v)) 

'                                                         adr0_512
    case 49599:                  ' move.b [address], mem64(49461)
'                  adr0_512   
     pokeb v, mem64(49460)
    case 49600                   ' loop [start],[stop],[times]
    
'                                          old_pc       pc_512   
     dim as ulongint tmp, times: mov(mem64(49630),mem64(49500))
'            adr0_512             pc_512                                pc_512
	 mov(mem64(49460),mem64(mem64(49500) add 1) shl 32 add mem64(mem64(49500) add 2) shl 24 add _
	                   mem64(mem64(49500) add 3) shl 16 add mem64(mem64(49500) add 4) shl 08 add _ 
	                   mem64(mem64(49500) add 5)) '                    pc_512
'                                 pc_512        

'	         adr1_512             pc_512                                pc_512 
	 mov(mem64(49470),mem64(mem64(49500) add 6) shl 32 add mem64(mem64(49500) add 7) shl 24 add _
	                   mem64(mem64(49500) add 8) shl 16 add mem64(mem64(49500) add 9) shl 08 add _
	                   mem64(mem64(49500) add 10)) '                   pc_512
'                                 pc_512

'         times                   pc_512                                pc_512	        
	 mov(mem64(49621),mem64(mem64(49500) add 11) shl 32 add mem64(mem64(49500) add 12) shl 24 add _
	                   mem64(mem64(49500) add 13) shl 16 add mem64(mem64(49500) add 14) shl 08 add _
	                   mem64(mem64(49418) add 15)) '                   pc_512
'                                 pc_512

'                           times        		       
     do until mov(tmp,mem64(49621))
'                               adr1_512        adr2_512     
      for in range(mov(pc ,mem64(49460)), mem64(49470))
       poke64 mem64(pc), 0                         
      next pc
'                                  times
      mov(tmp,(tmp add 1) mod mem64(49621))
    loop
    
   case 49601 ' ld times
    
'            times         timesd7                   timesd6                   timesd5
    mov(mem64(49621),mem64(49622) shl 56d add mem64(49623) shl 48d add mem64(49624) shl 40d add _
                      mem64(49625) shl 32d add mem64(49626) shl 24d add mem64(49627) shl 16d add _
                      mem64(49628) shl 08d add mem64(49629)) '               timesd2
'                          timesd1                   timesd0

   case 49602 'ld old_pc
'            old_pc        old_pcd7                   old_pcd6                 old_pcd5
    mov(mem64(49630),mem64(49631) shl 56d add mem64(49631) shl 48d add mem64(49633) shl 40d add _
                      mem64(49634) shl 32d add mem64(49635) shl 24d add mem64(49636) shl 16d add _
                      mem64(49637) shl 08d add mem64(49638)) '               old_pcd2
'                          old_pcd1                   old_pcd0

'            pc_512       pc_512
   mov(mem64(49500),mem64(49500) mod &HFFFFFFFFFFFFFFFF)
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

Blender terminal

Code: Select all

	   case peek(ubyte,@nibbles(&B0000)) ' 000 Blender terminal
	   	 ScreenRes 640, 480, 32, 0: Cls ', GFX_FULLSCREEN: 'OR GFX_ALPHA_PRIMITIVES: Cls
		 shell "blender --version > err.txt"
		 open "err.txt" for input as #peek(ubyte,@nibbles(&B0010))
			do until eof(peek(ubyte,@nibbles(&B0010)))
				line input #peek(ubyte,@nibbles(&B0010)), strCode
				print strCode
			loop	
		 close #peek(ubyte,@nibbles(&B0010))
		 open "tmp.py" for output as #peek(ubyte,@nibbles(&B0010))
		    print #peek(ubyte,@nibbles(&B0010)), "# Start of file"
		    print #peek(ubyte,@nibbles(&B0010)), "import bpy,math,mathutils,bmesh,bgl,blf"
		    print #peek(ubyte,@nibbles(&B0010)), "from math import radians"
		    print #peek(ubyte,@nibbles(&B0010)), "from random import randint"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.engine = 'CYCLES'"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.resolution_x = 640"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.resolution_y = 480"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.resolution_percentage = 100"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.image_settings.file_format = 'BMP'"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.tile_x = 32"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.tile_y = 32"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.preview_samples = 1"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.use_persistent_data = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.use_progressive_refine = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.use_save_buffers = True" 
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.render.use_border = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.device = 'CPU'"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.max_bounces = 3"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.min_bounces = 0"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.diffuse_bounces = 3"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.glossy_bounces = 3"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.transmission_bounces = 1"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.transparent_max_bounces = 4"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.transparent_min_bounces = 0"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.caustics_reflective = False"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.caustics_refractive = False"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.use_square_samples = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.samples = 4"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.debug_use_spatial_splits = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.world.cycles.max_bounces = 1"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.volume_bounces = 0"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.object.data.cycles.is_portal = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.debug_use_hair_bvh = False"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.scene.cycles.shading_system = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.data.objects['Light'].select_set(True)"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.view_layer.objects.active = bpy.data.objects['Light']"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.object.data.type = 'SUN'"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.object.data.energy = 1"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.object.data.use_shadow = True"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.data.objects['Cube'].select_set(True)"
		    print #peek(ubyte,@nibbles(&B0010)), "bpy.context.view_layer.objects.active = bpy.data.objects['Cube']"
		    print #peek(ubyte,@nibbles(&B0010)), "scene = bpy.data.scenes["+chr(34)+"Scene"+chr(34)+"]"		 
			do 
				line input "BLENDER:\> ", strCode
				if strCode <> "" then print #peek(ubyte,@nibbles(&B0010)), strCode else exit do
			loop
			print #peek(ubyte,@nibbles(&B0010)), "bpy.data.scenes['Scene'].render.filepath = './tmp'"
			print #peek(ubyte,@nibbles(&B0010)), "bpy.ops.render.render(use_viewport = True, write_still=True)"
			print #peek(ubyte,@nibbles(&B0010)), "# End of file"			
		 close #peek(ubyte,@nibbles(&B0010)): Cls
		 shell "blender -b -P tmp.py"
		 bload "tmp.bmp", 0
		 shell "rm tmp.py tmp.bmp"
		 locate 60,1: print "Press any key to continue."
		 sleep
		 ScreenRes 1920,1080, 32, 0: Cls ' GFX_FULLSCREEN: Cls 'OR GFX_ALPHA_PRIMITIVES: Cls   
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

COBOL terminal

Code: Select all

	   case peek(ubyte,@nibbles(&B0001)) ' 001 COBOL terminal
	     ScreenRes 640, 480, 32, 0: Cls ', GFX_FULLSCREEN: Cls ' OR GFX_ALPHA_PRIMITIVES: Cls
		 shell "cobc -V > err.txt"
		 open "err.txt" for input as #peek(ubyte,@nibbles(&B0010))
			do until eof(peek(ubyte,@nibbles(&B0010)))
				line input #peek(ubyte,@nibbles(&B0010)), strCode
				print strCode
			loop
		 close #peek(ubyte,@nibbles(&B0010))
		 open "tmp.cob" for output as #2
			do 
				line input "COBOL:\> ", strCode
				if strCode <> "" then print #peek(ubyte,@nibbles(&B0010)), strCode else exit do
			loop
		 close #peek(ubyte,@nibbles(&B0010)): Cls
		 shell "cobc -x -free tmp.cob -o tmp"
		 shell "./tmp > tmp.txt"
		 open "tmp.txt" for input as #2
			do until eof(peek(ubyte,@nibbles(&B0010)))
				line input #2, strCode
				print strCode
			loop
		 close #peek(ubyte,@nibbles(&B0010))
		 shell "rm tmp tmp.cob tmp.txt err.txt"
		 print "Press any key to continue."
		 sleep
		 ScreenRes 1920,1080, 32, 0: Cls ' GFX_FULLSCREEN: Cls 'OR GFX_ALPHA_PRIMITIVES: Cls
fatman2021
Posts: 214
Joined: Dec 14, 2013 0:43

Re: Project Manhattan

Post by fatman2021 »

POV-Ray terminal

Code: Select all

	   case peek(ubyte,@nibbles(&B0010)) ' 002 POV-Ray terminal
	     ScreenRes 800, 600, 32, 0: Cls ', GFX_FULLSCREEN: 'OR GFX_ALPHA_PRIMITIVES: Cls
         print "Persistence of Vision(tm) Ray Tracer 3.7.0.9"
         print "POV-Ray is based on DKBTrace 2.12 by David K. Buck & Aaron A. Collins"
         print "(C) 1991-2013 Persistence of Vision Raytracer Pty. Ltd."
		 open "tmp.pov" for output as #peek(ubyte,@nibbles(&B0010))
			do 
				line input "POVRAY:\> ", strCode
				if strCode <> "" then print #peek(ubyte,@nibbles(&B0010)), strCode else exit do
			loop
		 close #peek(ubyte,@nibbles(&B0010))
		 shell "povray tmp.pov"
		 shell "convert tmp.png 0.bmp"
		 shell "mv 0.bmp ./vram/0.bmp"
		 bload "./vram/0.bmp", 0
		 'shell "rm tmp.pov tmp.png"
		 locate 60,1: print "Press any key to continue."
		 sleep
		 ScreenRes 1920,1080, 32, 0: Cls: ' GFX_FULLSCREEN OR GFX_ALPHA_PRIMITIVES: Cls
Post Reply