M src/assets.tal => src/assets.tal +96 -96
@@ 49,102 49,102 @@
01 ( 7 io )
@op-ascii
- ( 20 _ ) :op-null
- ( 21 ! ) :op-null
- ( 22 " ) :op-null
- ( 23 # ) :op-comment
- ( 24 $ ) :op-self
- ( 25 % ) :op-null
- ( 26 & ) :op-null
- ( 27 ' ) :op-null
- ( 28 _ ) :op-null
- ( 29 _ ) :op-null
- ( 2A * ) :op-bang
- ( 2B + ) :op-null
- ( 2C , ) :op-null
- ( 2D - ) :op-null
- ( 2E . ) :op-null
- ( 2F / ) :op-byte
- ( 30 0 ) :op-null
- ( 31 1 ) :op-null
- ( 32 2 ) :op-null
- ( 33 3 ) :op-null
- ( 34 4 ) :op-null
- ( 35 5 ) :op-null
- ( 36 6 ) :op-null
- ( 37 7 ) :op-null
- ( 38 8 ) :op-null
- ( 39 9 ) :op-null
- ( 3A : ) :op-midi
- ( 3B ; ) :op-pitch
- ( 3C < ) :op-null
- ( 3D = ) :op-synth
- ( 3E > ) :op-null
- ( 3F ? ) :op-null
- ( 40 @ ) :op-null
- ( 41 A ) :op-a
- ( 42 B ) :op-b
- ( 43 C ) :op-c
- ( 44 D ) :op-d
- ( 45 E ) :op-e
- ( 46 F ) :op-f
- ( 47 G ) :op-g
- ( 48 H ) :op-h
- ( 49 I ) :op-i
- ( 4A J ) :op-j
- ( 4B K ) :op-k
- ( 4C L ) :op-l
- ( 4D M ) :op-m
- ( 4E N ) :op-n
- ( 4F O ) :op-o
- ( 50 P ) :op-p
- ( 51 Q ) :op-q
- ( 52 R ) :op-r
- ( 53 S ) :op-s
- ( 54 T ) :op-t
- ( 55 U ) :op-u
- ( 56 V ) :op-v
- ( 57 W ) :op-w
- ( 58 X ) :op-x
- ( 59 Y ) :op-y
- ( 5A Z ) :op-z
- ( 5B [ ) :op-null
- ( 5C \ ) :op-null
- ( 5D ] ) :op-null
- ( 5E ^ ) :op-null
- ( 5F _ ) :op-null
- ( 60 ` ) :op-null
- ( 61 a ) :op-a-lc
- ( 62 b ) :op-b-lc
- ( 63 c ) :op-c-lc
- ( 64 d ) :op-d-lc
- ( 65 e ) :op-e-lc
- ( 66 f ) :op-f-lc
- ( 67 g ) :op-g-lc
- ( 68 h ) :op-h-lc
- ( 69 i ) :op-i-lc
- ( 6A j ) :op-j-lc
- ( 6B k ) :op-k-lc
- ( 6C l ) :op-l-lc
- ( 6D m ) :op-m-lc
- ( 6E n ) :op-n-lc
- ( 6F o ) :op-o-lc
- ( 70 p ) :op-p-lc
- ( 71 q ) :op-q-lc
- ( 72 r ) :op-r-lc
- ( 73 s ) :op-s-lc
- ( 74 t ) :op-t-lc
- ( 75 u ) :op-u-lc
- ( 76 v ) :op-v-lc
- ( 77 w ) :op-w-lc
- ( 78 x ) :op-x-lc
- ( 79 y ) :op-y-lc
- ( 7A z ) :op-z-lc
- ( 7B { ) :op-null
- ( 7C | ) :op-null
- ( 7D } ) :op-null
- ( 7E ~ ) :op-null
- ( 7F _ ) :op-null
+ ( 20 _ ) =op-null
+ ( 21 ! ) =op-null
+ ( 22 " ) =op-null
+ ( 23 # ) =op-comment
+ ( 24 $ ) =op-self
+ ( 25 % ) =op-null
+ ( 26 & ) =op-null
+ ( 27 ' ) =op-null
+ ( 28 _ ) =op-null
+ ( 29 _ ) =op-null
+ ( 2A * ) =op-bang
+ ( 2B + ) =op-null
+ ( 2C , ) =op-null
+ ( 2D - ) =op-null
+ ( 2E . ) =op-null
+ ( 2F / ) =op-byte
+ ( 30 0 ) =op-null
+ ( 31 1 ) =op-null
+ ( 32 2 ) =op-null
+ ( 33 3 ) =op-null
+ ( 34 4 ) =op-null
+ ( 35 5 ) =op-null
+ ( 36 6 ) =op-null
+ ( 37 7 ) =op-null
+ ( 38 8 ) =op-null
+ ( 39 9 ) =op-null
+ ( 3A : ) =op-midi
+ ( 3B ; ) =op-pitch
+ ( 3C < ) =op-null
+ ( 3D = ) =op-synth
+ ( 3E > ) =op-null
+ ( 3F ? ) =op-null
+ ( 40 @ ) =op-null
+ ( 41 A ) =op-a
+ ( 42 B ) =op-b
+ ( 43 C ) =op-c
+ ( 44 D ) =op-d
+ ( 45 E ) =op-e
+ ( 46 F ) =op-f
+ ( 47 G ) =op-g
+ ( 48 H ) =op-h
+ ( 49 I ) =op-i
+ ( 4A J ) =op-j
+ ( 4B K ) =op-k
+ ( 4C L ) =op-l
+ ( 4D M ) =op-m
+ ( 4E N ) =op-n
+ ( 4F O ) =op-o
+ ( 50 P ) =op-p
+ ( 51 Q ) =op-q
+ ( 52 R ) =op-r
+ ( 53 S ) =op-s
+ ( 54 T ) =op-t
+ ( 55 U ) =op-u
+ ( 56 V ) =op-v
+ ( 57 W ) =op-w
+ ( 58 X ) =op-x
+ ( 59 Y ) =op-y
+ ( 5A Z ) =op-z
+ ( 5B [ ) =op-null
+ ( 5C \ ) =op-null
+ ( 5D ] ) =op-null
+ ( 5E ^ ) =op-null
+ ( 5F _ ) =op-null
+ ( 60 ` ) =op-null
+ ( 61 a ) =op-a-lc
+ ( 62 b ) =op-b-lc
+ ( 63 c ) =op-c-lc
+ ( 64 d ) =op-d-lc
+ ( 65 e ) =op-e-lc
+ ( 66 f ) =op-f-lc
+ ( 67 g ) =op-g-lc
+ ( 68 h ) =op-h-lc
+ ( 69 i ) =op-i-lc
+ ( 6A j ) =op-j-lc
+ ( 6B k ) =op-k-lc
+ ( 6C l ) =op-l-lc
+ ( 6D m ) =op-m-lc
+ ( 6E n ) =op-n-lc
+ ( 6F o ) =op-o-lc
+ ( 70 p ) =op-p-lc
+ ( 71 q ) =op-q-lc
+ ( 72 r ) =op-r-lc
+ ( 73 s ) =op-s-lc
+ ( 74 t ) =op-t-lc
+ ( 75 u ) =op-u-lc
+ ( 76 v ) =op-v-lc
+ ( 77 w ) =op-w-lc
+ ( 78 x ) =op-x-lc
+ ( 79 y ) =op-y-lc
+ ( 7A z ) =op-z-lc
+ ( 7B { ) =op-null
+ ( 7C | ) =op-null
+ ( 7D } ) =op-null
+ ( 7E ~ ) =op-null
+ ( 7F _ ) =op-null
(
@|spritesheet )
M src/library.tal => src/library.tal +6 -6
@@ 1,11 1,11 @@
@op-table
&docs
- :op-a/? :op-b/? :op-c/? :op-d/? :op-e/? :op-f/? :op-g/? :op-h/?
- :op-i/? :op-j/? :op-k/? :op-l/? :op-m/? :op-n/? :op-o/? :op-p/?
- :op-q/? :op-r/? :op-s/? :op-t/? :op-u/? :op-v/? :op-w/? :op-x/?
- :op-y/? :op-z/?
- :op-bang/? :op-comment/? :op-synth/?
- :op-midi/? :op-pitch/? :op-byte/? :op-self/?
+ =op-a/? =op-b/? =op-c/? =op-d/? =op-e/? =op-f/? =op-g/? =op-h/?
+ =op-i/? =op-j/? =op-k/? =op-l/? =op-m/? =op-n/? =op-o/? =op-p/?
+ =op-q/? =op-r/? =op-s/? =op-t/? =op-u/? =op-v/? =op-w/? =op-x/?
+ =op-y/? =op-z/?
+ =op-bang/? =op-comment/? =op-synth/?
+ =op-midi/? =op-pitch/? =op-byte/? =op-self/?
@op-a-lc ;get-bang JSR2 ,&* JCN POP2 JMP2r &*
@op-a ( add )
M src/manifest.tal => src/manifest.tal +1 -1
@@ 223,7 223,7 @@ JMP2r
#0010 .Screen/x DEO2
#0004 .Screen/y DEO2
#00 ,&id STR
- [ LIT2 &manifest :manifest ]
+ [ LIT2 &manifest =manifest ]
&cat
#0401 [ LIT &sel ff ] [ LIT &id $1 ] EQU [ JMP SWP POP ] ;draw-chr/color STA
INC2k ;draw-str JSR2 POP2 #20 ;draw-chr JSR2
M src/orca.tal => src/orca.tal +18 -18
@@ 134,28 134,28 @@ BRK
&menu
05 "Orca $1
- 01 "n :file-new "New $1
- 01 "r :trap "Rename $1
- 01 "o :file-open "Open $1
- 01 "s :file-save "Save $1
- 01 "q :exit "Exit $1
+ 01 "n =file-new "New $1
+ 01 "r =trap "Rename $1
+ 01 "o =file-open "Open $1
+ 01 "s =file-save "Save $1
+ 01 "q =exit "Exit $1
06 "Edit $1
- 01 "c :edit-copy "Copy $1
- 01 "v :edit-paste "Paste $1
- 01 "x :edit-cut "Cut $1
- 01 "i :toggle-insert "Insert $1
- 00 08 :edit-erase "Erase $1
- 01 "b :edit-comment "Comment $1
+ 01 "c =edit-copy "Copy $1
+ 01 "v =edit-paste "Paste $1
+ 01 "x =edit-cut "Cut $1
+ 01 "i =toggle-insert "Insert $1
+ 00 08 =edit-erase "Erase $1
+ 01 "b =edit-comment "Comment $1
03 "Play $1
- 00 20 :play-toggle "Pause $1
- 01 ", :play-decr "Decr $1
- 01 ". :play-incr "Incr $1
+ 00 20 =play-toggle "Pause $1
+ 01 ", =play-decr "Decr $1
+ 01 ". =play-incr "Incr $1
02 "View $1
- 01 "g :toggle-guide "Guide $1
- 01 "h :toggle-grid "Grid $1
+ 01 "g =toggle-guide "Guide $1
+ 01 "h =toggle-grid "Grid $1
02 "Select $1
- 00 1b :set-sel-reset "Reset $1
- 01 "a :set-sel-all "All $1
+ 00 1b =set-sel-reset "Reset $1
+ 01 "a =set-sel-all "All $1
$1
(