d6
/
kodiak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 5 Wiki Activity

fix syntax error (thanks zzo38)

This commit is contained in:
~d6 2024-07-28 00:05:06 -04:00
parent 21878c3a78
commit 90a82691f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kodiak.tal
View File

@ -178,7 +178,7 @@
#00 OVR STZ ( d^ s^ [-c^] ; s<-0 ) #00 OVR STZ ( d^ s^ [-c^] ; s<-0 )
#01 SUB SWP INC SWP ( d+1^ s-1^ [-c^] ) #01 SUB SWP INC SWP ( d+1^ s-1^ [-c^] )
INCr !&loop ( d+1^ s-1^ [-c+1^] ) INCr !&loop ( d+1^ s-1^ [-c+1^] )
&done POPr SWP ( s^ d^) &done POPr SWP ( s^ d^ )
OVR LDZ #bf AND SWP STZ ( s^ ; d<-s ) OVR LDZ #bf AND SWP STZ ( s^ ; d<-s )
#00 OVR STZ ( s^ ; s<-0 ) #00 OVR STZ ( s^ ; s<-0 )
#01 SUB JMP2r ( s-1^ ) #01 SUB JMP2r ( s-1^ )