~rabbits/cccc

c324b22bd7c3d7bbc9da467acb53466e9a0ad91d — neauoire 2 months ago 9c14d3f
Migrated to = rune
1 files changed, 86 insertions(+), 86 deletions(-)

M src/cccc.tal
M src/cccc.tal => src/cccc.tal +86 -86
@@ 1140,107 1140,107 @@ JMP2r
@|tables )

@fncpad
	:clear :swp :dup :erase :erase :erase
	:tog-mode :inv :vid :eval :eval :eval
	=clear =swp =dup =erase =erase =erase
	=tog-mode =inv =vid =eval =eval =eval

@numpad
	:put7 :put8 :put9 :putf
	:put4 :put5 :put6 :pute
	:put1 :put2 :put3 :putd
	:put0 :puta :putb :putc
	=put7 =put8 =put9 =putf
	=put4 =put5 =put6 =pute
	=put1 =put2 =put3 =putd
	=put0 =puta =putb =putc

@modpad
	:div :mul :sub :add
	:and :ora :sfl :sfr
	=div =mul =sub =add
	=and =ora =sfl =sfr

@keys
	"~ :clear 09 :tog-mode "? :inv "@ :vid
	"+ :add "- :sub "* :mul "/ :div
	"& :and "| :ora "< :sfl "> :sfr
	20 :eval 08 :erase "% :swp "" :dup
	"7 :put7 "8 :put8 "9 :put9 "f :putf
	"4 :put4 "5 :put5 "6 :put6 "e :pute
	"1 :put1 "2 :put2 "3 :put3 "d :putd
	"0 :put0 "a :puta "b :putb "c :putc
	0d :eval
	"! :erase
	". :print
	1b :clear
	"# :set-hex
	"$ :set-dec
	"~ =clear 09 =tog-mode "? =inv "@ =vid
	"+ =add "- =sub "* =mul "/ =div
	"& =and "| =ora "< =sfl "> =sfr
	20 =eval 08 =erase "% =swp "" =dup
	"7 =put7 "8 =put8 "9 =put9 "f =putf
	"4 =put4 "5 =put5 "6 =put6 "e =pute
	"1 =put1 "2 =put2 "3 =put3 "d =putd
	"0 =put0 "a =puta "b =putb "c =putc
	0d =eval
	"! =erase
	". =print
	1b =clear
	"# =set-hex
	"$ =set-dec
	&end

@layout
	:buttons/clr :clear
	:buttons/mode :tog-mode
	:buttons/7 :put7
	:buttons/8 :put8
	:buttons/9 :put9
	:buttons/f :putf
	:buttons/div :div
	:buttons/and :and
	:buttons/swp :swp
	:buttons/inv :inv
	:buttons/4 :put4
	:buttons/5 :put5
	:buttons/6 :put6
	:buttons/e :pute
	:buttons/mul :mul
	:buttons/ora :ora
	:buttons/dup :dup
	:buttons/vid :vid
	:buttons/1 :put1
	:buttons/2 :put2
	:buttons/3 :put3
	:buttons/d :putd
	:buttons/sub :sub
	:buttons/sfl :sfl
	:buttons/pop :erase
	:buttons/push :eval
	:buttons/0 :put0
	:buttons/a :puta
	:buttons/b :putb
	:buttons/c :putb
	:buttons/add :add
	:buttons/sfr :sfr
	=buttons/clr =clear
	=buttons/mode =tog-mode
	=buttons/7 =put7
	=buttons/8 =put8
	=buttons/9 =put9
	=buttons/f =putf
	=buttons/div =div
	=buttons/and =and
	=buttons/swp =swp
	=buttons/inv =inv
	=buttons/4 =put4
	=buttons/5 =put5
	=buttons/6 =put6
	=buttons/e =pute
	=buttons/mul =mul
	=buttons/ora =ora
	=buttons/dup =dup
	=buttons/vid =vid
	=buttons/1 =put1
	=buttons/2 =put2
	=buttons/3 =put3
	=buttons/d =putd
	=buttons/sub =sub
	=buttons/sfl =sfl
	=buttons/pop =erase
	=buttons/push =eval
	=buttons/0 =put0
	=buttons/a =puta
	=buttons/b =putb
	=buttons/c =putb
	=buttons/add =add
	=buttons/sfr =sfr

@buttons ( x* y* icon* size* state )
	&ctl
	&clr  0010 0078 :ctl-icns/clr :draw-button-clr 00
	&swp  0010 0088 :wst-icns/swp :draw-button-small 00
	&dup  0010 0098 :wst-icns/dup :draw-button-small 00
	&pop  0010 00a8 :wst-icns/pop :draw-button-tall 00
	&clr  0010 0078 =ctl-icns/clr =draw-button-clr 00
	&swp  0010 0088 =wst-icns/swp =draw-button-small 00
	&dup  0010 0098 =wst-icns/dup =draw-button-small 00
	&pop  0010 00a8 =wst-icns/pop =draw-button-tall 00
	&wst
	&mode 0028 0078 :ctl-icns/mode :draw-button-small 00
	&inv  0028 0088 :ctl-icns/inv :draw-button-small 00
	&vid  0028 0098 :ctl-icns/vid :draw-button-small 00
	&push 0028 00a8 :wst-icns/push :draw-button-tall 00
	&mode 0028 0078 =ctl-icns/mode =draw-button-small 00
	&inv  0028 0088 =ctl-icns/inv =draw-button-small 00
	&vid  0028 0098 =ctl-icns/vid =draw-button-small 00
	&push 0028 00a8 =wst-icns/push =draw-button-tall 00
	&num
	&7   0040 0078 :num-icns/7 :draw-button 00
	&8   0058 0078 :num-icns/8 :draw-button 00
	&9   0070 0078 :num-icns/9 :draw-button 00
	&f   0088 0078 :num-icns/f :draw-button-hex 00
	&4   0040 0090 :num-icns/4 :draw-button 00
	&5   0058 0090 :num-icns/5 :draw-button 00
	&6   0070 0090 :num-icns/6 :draw-button 00
	&e   0088 0090 :num-icns/e :draw-button-hex 00
	&1   0040 00a8 :num-icns/1 :draw-button 00
	&2   0058 00a8 :num-icns/2 :draw-button 00
	&3   0070 00a8 :num-icns/3 :draw-button 00
	&d   0088 00a8 :num-icns/d :draw-button-hex 00
	&0   0040 00c0 :num-icns/0 :draw-button 00
	&a   0058 00c0 :num-icns/a :draw-button-hex 00
	&b   0070 00c0 :num-icns/b :draw-button-hex 00
	&c   0088 00c0 :num-icns/c :draw-button-hex 00
	&7   0040 0078 =num-icns/7 =draw-button 00
	&8   0058 0078 =num-icns/8 =draw-button 00
	&9   0070 0078 =num-icns/9 =draw-button 00
	&f   0088 0078 =num-icns/f =draw-button-hex 00
	&4   0040 0090 =num-icns/4 =draw-button 00
	&5   0058 0090 =num-icns/5 =draw-button 00
	&6   0070 0090 =num-icns/6 =draw-button 00
	&e   0088 0090 =num-icns/e =draw-button-hex 00
	&1   0040 00a8 =num-icns/1 =draw-button 00
	&2   0058 00a8 =num-icns/2 =draw-button 00
	&3   0070 00a8 =num-icns/3 =draw-button 00
	&d   0088 00a8 =num-icns/d =draw-button-hex 00
	&0   0040 00c0 =num-icns/0 =draw-button 00
	&a   0058 00c0 =num-icns/a =draw-button-hex 00
	&b   0070 00c0 =num-icns/b =draw-button-hex 00
	&c   0088 00c0 =num-icns/c =draw-button-hex 00
	&mod
	&div 00a0 0078 :mod-icns/div :draw-button 00
	&mul 00a0 0090 :mod-icns/mul :draw-button 00
	&sub 00a0 00a8 :mod-icns/sub :draw-button 00
	&add 00a0 00c0 :mod-icns/add :draw-button 00
	&and 00b8 0078 :mod-icns/and :draw-button 00
	&ora 00b8 0090 :mod-icns/ora :draw-button 00
	&sfl 00b8 00a8 :mod-icns/sfl :draw-button 00
	&sfr 00b8 00c0 :mod-icns/sfr :draw-button 00
	&div 00a0 0078 =mod-icns/div =draw-button 00
	&mul 00a0 0090 =mod-icns/mul =draw-button 00
	&sub 00a0 00a8 =mod-icns/sub =draw-button 00
	&add 00a0 00c0 =mod-icns/add =draw-button 00
	&and 00b8 0078 =mod-icns/and =draw-button 00
	&ora 00b8 0090 =mod-icns/ora =draw-button 00
	&sfl 00b8 00a8 =mod-icns/sfl =draw-button 00
	&sfr 00b8 00c0 =mod-icns/sfr =draw-button 00
	&end

(