d6
/
kodiak
mirror of https://git.phial.org/d6/kodiak.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove debugging

This commit is contained in:
d_m 2024-08-03 00:45:44 -04:00
parent cf790de191
commit 453880fcc4
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
kodiak.tal
View File

@ -92,7 +92,7 @@
#0231 #0580 ;triangle #0004 #75 .Audio3 setup-audio #0231 #0580 ;triangle #0004 #75 .Audio3 setup-audio
#011f #00b0 ;noise #0200 #44 .Audio4 setup-audio #011f #00b0 ;noise #0200 #44 .Audio4 setup-audio
( start-audio ) start-audio
reset BRK reset BRK
@setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> ) @setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> )
@ -288,7 +288,6 @@
#00 !maybe-draw-c ( ) #00 !maybe-draw-c ( )
@draw-waste ( -> ) @draw-waste ( -> )
#010e DEO
#001c ,&x STR2 ( ; x0<-28 ) #001c ,&x STR2 ( ; x0<-28 )
.waste #18 OVR ADD SWP ( waste+24^ waste^ ) .waste #18 OVR ADD SWP ( waste+24^ waste^ )
&loop LDZk DUP ?&ok !&done ( lim^ zp^ c^ ) &loop LDZk DUP ?&ok !&done ( lim^ zp^ c^ )
@ -470,7 +469,6 @@
.audio/pos STZ2 JMP2r ( ) .audio/pos STZ2 JMP2r ( )
@on-audio ( -> brk ) @on-audio ( -> brk )
( #010e DEO )
.audio LDZ ?{ BRK } play-audio BRK .audio LDZ ?{ BRK } play-audio BRK
@on-refresh ( -> brk ) @on-refresh ( -> brk )
@ -704,7 +702,7 @@
EQUk ?&done #01 SUB INCr ( root^ src-2^ [dst+2] ) EQUk ?&done #01 SUB INCr ( root^ src-2^ [dst+2] )
LDZk #40 EOR STHkr STZ #00 OVR STZ ( root^ src-2^ [dst+2^] ; dst+2<-src-2, src-2<-0 ) LDZk #40 EOR STHkr STZ #00 OVR STZ ( root^ src-2^ [dst+2^] ; dst+2<-src-2, src-2<-0 )
&done POP2 POPr ( #010e DEO #0a18 DEO ) JMP2r ( ) &done POP2 POPr JMP2r ( )
@maybe-select-stock ( -> bool^ ) @maybe-select-stock ( -> bool^ )
.Mouse/x DEI2 #0008 LTH2 ?&no ( ; x<8 ) .Mouse/x DEI2 #0008 LTH2 ?&no ( ; x<8 )