742 lines
41 KiB
Plaintext
742 lines
41 KiB
Plaintext
{{
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ Autor: Ingo Kripahle │
|
|
│ Copyright (c) 2010 Ingo Kripahle │
|
|
│ See end of file for terms of use. │
|
|
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com
|
|
System : TriOS
|
|
Name : g0test
|
|
Chip : Regnatix
|
|
Typ : Programm
|
|
Version :
|
|
Subversion :
|
|
Funktion :
|
|
Komponenten : -
|
|
COG's : -
|
|
Logbuch :
|
|
Kommandoliste :
|
|
Notizen :
|
|
|
|
}}
|
|
|
|
OBJ
|
|
ios: "reg-ios"
|
|
|
|
CON
|
|
|
|
_CLKMODE = XTAL1 + PLL16X
|
|
_XINFREQ = 5_000_000
|
|
|
|
XMAX = 256
|
|
YMAX = 192
|
|
|
|
x_tiles = 16
|
|
y_tiles = 12
|
|
|
|
bit_base = $2000
|
|
disp_base = $5000
|
|
len_colblk = (x_tiles * y_tiles) * 2 + 256
|
|
|
|
'ademo1
|
|
lines = 5
|
|
thickness = 2
|
|
s_obj = 200 'scale
|
|
d_obj = 64 'durchmesser
|
|
r_obj = d_obj/2 'radius
|
|
rotvar = 14 'rotationsvarianz
|
|
|
|
VAR
|
|
|
|
'achtung, folgende reihenfolge darf nicht verändert werden!
|
|
word screen[x_tiles * y_tiles] 'tilemap
|
|
long colortab[64] 'farbregister
|
|
|
|
long heap_len
|
|
long heap_use
|
|
|
|
PUB main|i,x,y,n,len
|
|
|
|
ios.start
|
|
|
|
'g0-code laden
|
|
ios.g0_load
|
|
|
|
screenset1 'farben und tiles setzen
|
|
|
|
ios.g0_static
|
|
heap_len := ios.g0_datlen
|
|
heap_use := @grdatend - @grdat
|
|
ios.g0_datblk(@grdat,0,heap_len) 'heapdaten senden
|
|
repeat
|
|
|
|
' -------------------------------------------------------------------------- heap
|
|
ios.g0_static
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(2,0)
|
|
ios.g0_textmode(2,2,6,0)
|
|
ios.g0_text(10,100,@string3 - @grdat)
|
|
ios.g0_printdec(150,100,heap_len,4,@strstart,@strstart - @grdat)
|
|
ios.g0_text(10, 70,@string4 - @grdat)
|
|
ios.g0_printdec(150, 70,heap_use,4,@strstart,@strstart - @grdat)
|
|
esc_key
|
|
waitcnt(cnt+clkfreq*5)
|
|
|
|
' -------------------------------------------------------------------------- plot
|
|
ios.g0_clear
|
|
repeat 2000
|
|
ios.g0_width(?n&%11111)
|
|
ios.g0_color(?n&%0011)
|
|
ios.g0_plot(?n&$ff,?n&$ff)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- line
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000
|
|
ios.g0_color(?n&%0011)
|
|
ios.g0_line(?n&$ff,?n&$ff)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- arc
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000
|
|
ios.g0_color(?n&%0011)
|
|
'ios.g0_arc(x,y,xr,yr,angle,anglestep,steps,arcmode)
|
|
ios.g0_arc(?n&$ff,?n&$ff,?n&$1f,?n&$1f,?n&$1fff,?n&$1fff,?n&$1f,?n&%0011)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- tri
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000
|
|
ios.g0_colorwidth(?n&%0011,?n&%11111)
|
|
ios.g0_tri(?n&$ff,?n&$ff,?n&$ff,?n&$ff,?n&$ff,?n&$ff)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- box
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000
|
|
ios.g0_colorwidth(?n&%0011,?n&%11111)
|
|
ios.g0_box(?n&$ff,?n&$ff,?n&$ff,?n&$ff)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- vec
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000 'stern
|
|
ios.g0_color(?n&%0011)
|
|
'ios.g0_vec(x, y, vecscale, vecangle, vecdef_ptr)
|
|
ios.g0_vec(?n&$ff,?n&$ff,?n&$ff,cnt>>14,@star - @grdat)
|
|
'ios.g0_vec(100,100,200,0,0)
|
|
esc_key
|
|
|
|
ios.g0_clear
|
|
repeat 2000 'rombus
|
|
ios.g0_color(?n&%0011)
|
|
ios.g0_vec(?n&$ff,?n&$ff,?n&$ff,cnt>>14,@rombus - @grdat)
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- vecarc
|
|
ios.g0_clear
|
|
ios.g0_width(0)
|
|
repeat 2000
|
|
ios.g0_color(?n&%0011)
|
|
'vecarc(x, y, xr, yr, angle, vecscale, vecangle, vecdef_ptr)
|
|
ios.g0_vecarc(XMAX/2,YMAX/2,70,70,cnt>>4,100,cnt>>14,@rombus - @grdat )
|
|
esc_key
|
|
|
|
' -------------------------------------------------------------------------- pix
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(2,1)
|
|
ios.g0_pix(XMAX/2,YMAX/2,0,@oldbit1 - @grdat)
|
|
waitcnt(cnt+clkfreq*2)
|
|
ios.g0_colorwidth(2,0)
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 5
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10,y*30+10,0,@oldbit1 - @grdat)
|
|
esc_key
|
|
waitcnt(cnt+clkfreq*2)
|
|
|
|
|
|
ios.g0_dynamic
|
|
n := 0
|
|
repeat 400
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(2,1)
|
|
ios.g0_pixarc(XMAX/2,YMAX/2,50,50,cnt>>14,0,@oldbit1 - @grdat)
|
|
'ios.g0_pix(XMAX/2,YMAX/2,0,@oldbit1 - @grdat)
|
|
ios.g0_colorwidth(2,0)
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 5
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10+n*y,y*30+10,0,@oldbit1 - @grdat)
|
|
ios.g0_copy
|
|
n++
|
|
esc_key
|
|
|
|
|
|
|
|
ios.g0_dynamic
|
|
ios.g0_colorwidth(2,1)
|
|
repeat 10
|
|
ios.g0_clear
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 5
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10,y*30+10,0,@monkey1 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
waitcnt(cnt+clkfreq/3)
|
|
ios.g0_clear
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 5
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10,y*30+10,0,@monkey2 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
waitcnt(cnt+clkfreq/3)
|
|
|
|
repeat i from 0 to 31
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(1,i)
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(60,70,0,@monkey1 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
waitcnt(cnt+clkfreq/7)
|
|
|
|
ios.g0_static
|
|
|
|
' -------------------------------------------------------------------------- pixarc
|
|
ios.g0_dynamic
|
|
ios.g0_colorwidth(2,1)
|
|
repeat 1000
|
|
ios.g0_clear
|
|
'ios.g0_pixarc(x, y, xr, yr, angle, pixrot, pixdef_ptr)
|
|
ios.g0_pixarc(XMAX/2,YMAX/2,50,50,cnt>>14,0,@monkey1 - @grdat)
|
|
ios.g0_copy
|
|
ios.g0_clear
|
|
'ios.g0_pixarc(x, y, xr, yr, angle, pixrot, pixdef_ptr)
|
|
ios.g0_pixarc(XMAX/2,YMAX/2,50,50,cnt>>14,0,@monkey2 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
ios.g0_static
|
|
|
|
' -------------------------------------------------------------------------- text
|
|
ios.g0_dynamic
|
|
'ios.g0_textmode(x_scale, y_scale, spacing, justification)
|
|
repeat 150
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(2,1)
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 3
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10,y*30+70,0,@monkey1 - @grdat)
|
|
ios.g0_colorwidth(2,8)
|
|
ios.g0_textmode(5,5,6,0)
|
|
ios.g0_text(700 - (cnt>>20 & $fff),60,@string1 - @grdat)
|
|
ios.g0_colorwidth(1,6)
|
|
ios.g0_textmode(5,4,6,0)
|
|
ios.g0_text(700 - (cnt>>24 & $fff),0,@string2 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
ios.g0_static
|
|
|
|
' -------------------------------------------------------------------------- textarc
|
|
ios.g0_dynamic
|
|
ios.g0_colorwidth(2,1)
|
|
repeat 150
|
|
ios.g0_clear
|
|
ios.g0_colorwidth(2,1)
|
|
repeat x from 0 to 7
|
|
repeat y from 0 to 5
|
|
'ios.g0_pix(x, y, pixrot, pixdef_ptr)
|
|
ios.g0_pix(x*30+10,y*30+10,0,@monkey1 - @grdat)
|
|
ios.g0_colorwidth(0,8)
|
|
ios.g0_textmode(5,5,6,0)
|
|
'ios.g0_textarc(x, y, xr, yr, angle, string_ptr)
|
|
ios.g0_textarc(XMAX/4,YMAX/4,50,50,cnt>>14,@string1 - @grdat)
|
|
ios.g0_copy
|
|
esc_key
|
|
ios.g0_static
|
|
|
|
' -------------------------------------------------------------------------- animation
|
|
ademo1
|
|
ademo2
|
|
|
|
' -------------------------------------------------------------------------- colorset
|
|
ios.g0_clear
|
|
screenset2
|
|
|
|
'draw color samples
|
|
ios.g0_width(29)'(29)
|
|
|
|
'draw saturated samples
|
|
ios.g0_color(3)
|
|
repeat x from 0 to 15
|
|
ios.g0_plot(x << 4 + 7, 183)
|
|
|
|
'draw gradient samples
|
|
repeat y from 2 to 6
|
|
ios.g0_color(y & 1 | 2)
|
|
repeat x from 0 to 15
|
|
ios.g0_plot(x << 4 + 7, 183 - y << 4)
|
|
|
|
'draw monochrome samples
|
|
ios.g0_color(3)
|
|
repeat x from 5 to 10
|
|
ios.g0_plot(x << 4 + 7, 55)
|
|
|
|
esc_key
|
|
waitcnt(cnt + clkfreq * 2)
|
|
screenset1
|
|
PUB esc_key
|
|
|
|
if ios.g0_keystat
|
|
ios.g0_reboot
|
|
ios.stop
|
|
repeat
|
|
|
|
PUB screenset1|i,tx,ty
|
|
|
|
'tilescreen setzen
|
|
repeat tx from 0 to x_tiles - 1
|
|
repeat ty from 0 to y_tiles - 1
|
|
screen[ty * x_tiles + tx] := disp_base >> 6 + ty + tx * y_tiles + ((ty & $3F) << 10)
|
|
|
|
'farbtabelle füllen
|
|
repeat i from 0 to 63
|
|
colortab[i] := $00001010 * (i<<1+4) & $F + $0D060D02
|
|
|
|
ios.g0_colortab(@colortab)
|
|
ios.g0_screen(@screen)
|
|
|
|
PUB screenset2|x, y, i, c
|
|
|
|
'init colors
|
|
repeat i from $00 to $0F
|
|
case i
|
|
5..10 : c := $01000000 * (i - 5) + $02020507
|
|
other : c := $07020504
|
|
colortab[i] := c
|
|
repeat i from $10 to $1F
|
|
colortab[i] := $10100000 * (i & $F) + $0B0A0507
|
|
repeat i from $20 to $2F
|
|
colortab[i] := $10100000 * (i & $F) + $0D0C0507
|
|
repeat i from $30 to $3F
|
|
colortab[i] := $10100000 * (i & $F) + $080E0507
|
|
|
|
'init tile screen
|
|
repeat x from 0 to x_tiles - 1
|
|
repeat y from 0 to y_tiles - 1
|
|
case y
|
|
0, 2 : i := $30 + x
|
|
3..4 : i := $20 + x
|
|
5..6 : i := $10 + x
|
|
8 : i := x
|
|
other: i := 0
|
|
screen[x + y * x_tiles] := i << 10 + disp_base >> 6 + x * y_tiles + y
|
|
|
|
ios.g0_colortab(@colortab)
|
|
ios.g0_screen(@screen)
|
|
|
|
|
|
PUB ademo1 | x,y,i,j,k,kk,dx,dy,pp,pq,rr,numx,numchr
|
|
|
|
x := XMAX/2
|
|
y := YMAX/2
|
|
dx := 1
|
|
dy := 1
|
|
k := 0
|
|
|
|
ios.g0_dynamic
|
|
|
|
repeat 500
|
|
|
|
'clear bitmap
|
|
ios.g0_clear
|
|
|
|
'draw spinning triangles
|
|
ios.g0_colorwidth(1,0)
|
|
repeat i from 1 to 16
|
|
ios.g0_vec(XMAX/2 + k & $FF, YMAX/2, s_obj-i*60, k << 6 + i << 8, @triangle - @grdat)
|
|
|
|
'draw expanding pixel halo
|
|
ios.g0_colorwidth(1,k)
|
|
ios.g0_arc(XMAX/2, YMAX/2,80,30,-k<<5,$2000/9,10,0)
|
|
|
|
'draw boing-star
|
|
ios.g0_colorwidth(1, 1)
|
|
repeat j from 0 to 5
|
|
ios.g0_vec(x+j*2, y+j*5, s_obj-j*40, cnt>>rotvar,@star - @grdat)
|
|
|
|
'kollisionsabfrage
|
|
if (x + dx - r_obj) < 0
|
|
dx := dx * -1
|
|
else
|
|
if (x + dx + r_obj + 5) > XMAX
|
|
dx := dx * -1
|
|
if (y + dy - r_obj) < 0
|
|
dy := dy * -1
|
|
else
|
|
if (y + dy + r_obj + 5) > YMAX
|
|
dy := dy * -1
|
|
|
|
x += dx
|
|
y += dy
|
|
|
|
|
|
'draw spinning stars and revolving crosshairs and dogs
|
|
ios.g0_colorwidth(2,0)
|
|
repeat i from 0 to 7
|
|
ios.g0_vecarc(40,50,30,30,-(i<<10+k<<6),$40,-(k<<7),@star - @grdat)
|
|
ios.g0_pixarc(190,140,30,30,i<<10+k<<6,0,@monkey1 - @grdat)
|
|
ios.g0_pixarc(190,140,20,20,-(i<<10+k<<6),0,@monkey1 - @grdat)
|
|
|
|
'draw text
|
|
ios.g0_textmode(5,5,6,0)
|
|
ios.g0_colorwidth(1,8)
|
|
ios.g0_text(5,120,@string1 - @grdat)
|
|
|
|
'draw text
|
|
'ios.g0_colorwidth(2,0)
|
|
'ios.g0_textmode(5,5,6,0)
|
|
'ios.g0_text(150,5,@string1 - @grdat)
|
|
|
|
'draw counter
|
|
ios.g0_colorwidth(2,16-k&$f)
|
|
ios.g0_textmode(3,3,6,0)
|
|
ios.g0_printdec(160,10,k,4,@strstart,@strstart - @grdat)
|
|
|
|
'copy bitmap to display
|
|
ios.g0_copy
|
|
|
|
'increment counter that makes everything change
|
|
k++
|
|
esc_key
|
|
|
|
ios.g0_static
|
|
|
|
PUB ademo2 | i,k,x,y,dx,dy,rad
|
|
|
|
x := XMAX/2
|
|
y := YMAX/2
|
|
dx := 6
|
|
dy := 6
|
|
rad := 8
|
|
k := 0
|
|
|
|
ios.g0_dynamic
|
|
|
|
repeat 500
|
|
|
|
'clear bitmap
|
|
ios.g0_clear
|
|
|
|
'draw spinning triangles
|
|
ios.g0_colorwidth(1,0)
|
|
repeat i from 1 to 8
|
|
ios.g0_vec(k & $FF, 32+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 64 & $FF, 32+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 128 & $FF, 32+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 192 & $FF, 32+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
repeat i from 1 to 8
|
|
ios.g0_vec(k + 32 & $FF, 96+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 96 & $FF, 96+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 160 & $FF, 96+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 224 & $FF, 96+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
repeat i from 1 to 8
|
|
ios.g0_vec(k & $FF,160+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 64 & $FF,160+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 128 & $FF,160+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
ios.g0_vec(k + 192 & $FF,160+k, s_obj-i*60, k << 6 + i << 8, @star - @grdat)
|
|
|
|
ios.g0_colorwidth(2,15)
|
|
ios.g0_plot(x,y)
|
|
|
|
'kollisionsabfrage
|
|
if (x + dx - rad) < 0
|
|
dx := dx * -1
|
|
ios.sfx_fire($f1,0)
|
|
else
|
|
if (x + dx + rad + 5) > XMAX
|
|
dx := dx * -1
|
|
ios.sfx_fire($f1,0)
|
|
if (y + dy - rad) < 0
|
|
dy := dy * -1
|
|
ios.sfx_fire($f1,0)
|
|
else
|
|
if (y + dy + rad + 5) > YMAX
|
|
dy := dy * -1
|
|
ios.sfx_fire($f1,0)
|
|
|
|
x += dx
|
|
y += dy
|
|
|
|
'copy bitmap to display
|
|
ios.g0_copy
|
|
|
|
'increment counter that makes everything change
|
|
k++
|
|
esc_key
|
|
|
|
ios.g0_static
|
|
|
|
|
|
DAT 'heap-daten
|
|
|
|
grdat
|
|
|
|
strstart 'stringpuffer für zahlenausgabe
|
|
byte "00000000",0 '8 digits
|
|
byte 0 'wichtig: auf wortgrenze auffüllen!
|
|
strend
|
|
|
|
star
|
|
byte word $4000+$2000/12*0 'star
|
|
byte word 50
|
|
byte word $8000+$2000/12*1
|
|
byte word 20
|
|
byte word $8000+$2000/12*2
|
|
byte word 50
|
|
byte word $8000+$2000/12*3
|
|
byte word 20
|
|
byte word $8000+$2000/12*4
|
|
byte word 50
|
|
byte word $8000+$2000/12*5
|
|
byte word 20
|
|
byte word $8000+$2000/12*6
|
|
byte word 50
|
|
byte word $8000+$2000/12*7
|
|
byte word 20
|
|
byte word $8000+$2000/12*8
|
|
byte word 50
|
|
byte word $8000+$2000/12*9
|
|
byte word 20
|
|
byte word $8000+$2000/12*10
|
|
byte word 50
|
|
byte word $8000+$2000/12*11
|
|
byte word 20
|
|
byte word $8000+$2000/12*0
|
|
byte word 50
|
|
byte word 0
|
|
|
|
triangle
|
|
byte word $4000+$2000/3*0 'triangle
|
|
byte word 50
|
|
byte word $8000+$2000/3*1+1
|
|
byte word 50
|
|
byte word $8000+$2000/3*2-1
|
|
byte word 50
|
|
byte word $8000+$2000/3*0
|
|
byte word 50
|
|
byte word 0
|
|
|
|
rombus
|
|
byte word $4000+$2000/4*0 'rombus
|
|
byte word 50
|
|
byte word $8000+$2000/4*1
|
|
byte word 30
|
|
byte word $8000+$2000/4*2
|
|
byte word 50
|
|
byte word $8000+$2000/4*3
|
|
byte word 30
|
|
byte word $8000+$2000/4*0
|
|
byte word 50
|
|
byte word 0
|
|
|
|
oldbit1
|
|
byte 3,24,12,12
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%12222212
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%12222212
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%12222212
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00110000
|
|
byte word %%00000111
|
|
byte word %%11110000
|
|
byte word %%00110000
|
|
byte word %%00111001
|
|
byte word %%12330000
|
|
byte word %%00110001
|
|
byte word %%11113300
|
|
byte word %%11120000
|
|
byte word %%00100011
|
|
byte word %%11111230
|
|
byte word %%11110000
|
|
byte word %%00100011
|
|
byte word %%11111120
|
|
byte word %%00010000
|
|
byte word %%00100011
|
|
byte word %%11111110
|
|
byte word %%13000000
|
|
byte word %%00100011
|
|
byte word %%11001110
|
|
byte word %%11013233
|
|
byte word %%00100011
|
|
byte word %%00110110
|
|
byte word %%11011111
|
|
byte word %%00100011
|
|
byte word %%00230110
|
|
byte word %%11000000
|
|
byte word %%00100011
|
|
byte word %%00110110
|
|
byte word %%00010000
|
|
byte word %%00100011
|
|
byte word %%10000110
|
|
byte word %%11110000
|
|
byte word %%00110001
|
|
byte word %%11111100
|
|
byte word %%11110000
|
|
byte word %%00110000
|
|
byte word %%00111001
|
|
byte word %%11110000
|
|
byte word %%00110000
|
|
byte word %%00000011
|
|
byte word %%11110000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%00000000
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%22121212
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%22121212
|
|
byte word %%12121212
|
|
byte word %%12121212
|
|
byte word %%22121212
|
|
|
|
monkey1
|
|
'byte 2,11,3,3
|
|
'word %%00011111,%%00000000
|
|
'word %%00321112,%%23000000
|
|
'word %%00322112,%%21110000
|
|
'word %%02222211,%%11111000
|
|
'word %%03222111,%%11111100
|
|
'word %%00000111,%%11111110
|
|
'word %%00000111,%%11111110
|
|
'word %%00000111,%%11111110
|
|
'word %%00000111,%%11111110
|
|
'word %%00002120,%%01111200
|
|
'word %%00001220,%%22222100
|
|
|
|
byte 2,11,3,3
|
|
byte word %%00011111
|
|
byte word %%00000000
|
|
byte word %%00321112
|
|
byte word %%23000000
|
|
byte word %%00322112
|
|
byte word %%21110000
|
|
byte word %%02222211
|
|
byte word %%11111000
|
|
byte word %%03222111
|
|
byte word %%11111100
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00002120
|
|
byte word %%01111200
|
|
byte word %%00001220
|
|
byte word %%22222100
|
|
|
|
monkey2
|
|
'byte 2,11,3,3
|
|
'word %%00011111,%%00000000
|
|
'word %%00321112,%%23000000
|
|
'word %%00322112,%%21110000
|
|
'word %%02222211,%%11111000
|
|
'word %%03222111,%%11111100
|
|
'word %%00000111,%%11111110
|
|
'word %%00000111,%%11111110
|
|
'word %%00000111,%%11111110
|
|
'word %%00001110,%%11111110
|
|
'word %%00021200,%%01111200
|
|
'word %%00122000,%%00222220
|
|
|
|
byte 2,11,3,3
|
|
byte word %%00011111
|
|
byte word %%00000000
|
|
byte word %%00321112
|
|
byte word %%23000000
|
|
byte word %%00322112
|
|
byte word %%21110000
|
|
byte word %%02222211
|
|
byte word %%11111000
|
|
byte word %%03222111
|
|
byte word %%11111100
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00000111
|
|
byte word %%11111110
|
|
byte word %%00001110
|
|
byte word %%11111110
|
|
byte word %%00021200
|
|
byte word %%01111200
|
|
byte word %%00122000
|
|
byte word %%00222220
|
|
|
|
string1
|
|
byte "HIVE",0
|
|
|
|
string2
|
|
byte "abcdefghijklmnopqrstuvwxyz 0123456789",0
|
|
|
|
string3
|
|
byte "heap-len : ",0
|
|
|
|
string4
|
|
byte "heap-use : ",0
|
|
|
|
grdatend
|
|
|
|
|
|
|
|
DAT
|
|
|
|
{{
|
|
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ TERMS OF USE: MIT License │
|
|
├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤
|
|
│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │
|
|
│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │
|
|
│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│
|
|
│is furnished to do so, subject to the following conditions: │
|
|
│ │
|
|
│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│
|
|
│ │
|
|
│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │
|
|
│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │
|
|
│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │
|
|
│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|