diff --git a/kodiak.tal b/kodiak.tal index 95ac983..842889c 100644 --- a/kodiak.tal +++ b/kodiak.tal @@ -92,7 +92,7 @@ #0231 #0580 ;triangle #0004 #75 .Audio3 setup-audio #011f #00b0 ;noise #0200 #44 .Audio4 setup-audio -( start-audio ) + start-audio reset BRK @setup-audio ( adsr* sample* slen* dur* vol^ dev^ -> ) @@ -288,7 +288,6 @@ #00 !maybe-draw-c ( ) @draw-waste ( -> ) - #010e DEO #001c ,&x STR2 ( ; x0<-28 ) .waste #18 OVR ADD SWP ( waste+24^ waste^ ) &loop LDZk DUP ?&ok !&done ( lim^ zp^ c^ ) @@ -470,7 +469,6 @@ .audio/pos STZ2 JMP2r ( ) @on-audio ( -> brk ) -( #010e DEO ) .audio LDZ ?{ BRK } play-audio BRK @on-refresh ( -> brk ) @@ -704,7 +702,7 @@ 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 ) - &done POP2 POPr ( #010e DEO #0a18 DEO ) JMP2r ( ) + &done POP2 POPr JMP2r ( ) @maybe-select-stock ( -> bool^ ) .Mouse/x DEI2 #0008 LTH2 ?&no ( ; x<8 )