Browse code
(calc.tal) Better ampersand glyph
neauoire authored on 18/02/2022 21:48:03
Showing 1 changed files
| ... | ... |
@@ -83,10 +83,10 @@ |
| 83 | 83 |
;on-button .Controller/vector DEO2 |
| 84 | 84 |
|
| 85 | 85 |
( setup synth ) |
| 86 |
- #0010 .Audio0/adsr DEO2 |
|
| 86 |
+ #0112 .Audio0/adsr DEO2 |
|
| 87 | 87 |
;sin-pcm .Audio0/addr DEO2 |
| 88 | 88 |
#0100 .Audio0/length DEO2 |
| 89 |
- #dd .Audio0/volume DEO |
|
| 89 |
+ #88 .Audio0/volume DEO |
|
| 90 | 90 |
|
| 91 | 91 |
( center ) |
| 92 | 92 |
.Screen/width DEI2 2// .center/x STZ2 |
| ... | ... |
@@ -658,18 +658,6 @@ RTN |
| 658 | 658 |
|
| 659 | 659 |
RTN |
| 660 | 660 |
|
| 661 |
-@print-hex ( value* -- ) |
|
| 662 |
- |
|
| 663 |
- SWP ,&byte JSR |
|
| 664 |
- &byte ( byte -- ) |
|
| 665 |
- STHk #04 SFT ,&parse JSR #18 DEO |
|
| 666 |
- STHr #0f AND ,&parse JSR #18 DEO |
|
| 667 |
- JMP2r |
|
| 668 |
- &parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r |
|
| 669 |
- &above #57 ADD JMP2r |
|
| 670 |
- |
|
| 671 |
-JMP2r |
|
| 672 |
- |
|
| 673 | 661 |
( assets ) |
| 674 | 662 |
|
| 675 | 663 |
@keypad |
| ... | ... |
@@ -726,7 +714,7 @@ JMP2r |
| 726 | 714 |
0000 0000 fe00 0000 |
| 727 | 715 |
0082 4428 1028 4482 |
| 728 | 716 |
0002 0408 1020 4080 |
| 729 |
- 0078 8484 4836 8876 |
|
| 717 |
+ 0070 8888 728a 847a |
|
| 730 | 718 |
0010 1010 1010 1010 |
| 731 | 719 |
0000 1028 4482 0000 |
| 732 | 720 |
0000 0060 920c 0000 |