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

improve stack comments a bit

This commit is contained in:
~d6 2024-07-14 00:03:28 -04:00
parent e3d5fceba6
commit b5cef4fd9c
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
kodiak.tal
View File

@ -266,18 +266,18 @@
&no2 POPr &no1 #00 JMP2r &no2 POPr &no1 #00 JMP2r
@maybe-select-tableau ( -> bool^ ) @maybe-select-tableau ( -> bool^ )
.Mouse/y DEI2 #0024 LTH2 ?&no1 .Mouse/y DEI2 #0024 LTH2 ?&no1 ( )
.Mouse/x DEI2 #0030 LTH2 ?&no1 .Mouse/x DEI2 #0030 LTH2 ?&no1 ( )
.Mouse/x DEI2 #00cf GTH2 ?&no1 .Mouse/x DEI2 #00cf GTH2 ?&no1 ( )
#0040 LIT2r 0700 ( 64* [7^ 0^] )
#0040 LIT2r 0700 &loop ( y* [lim^ i^] )
&loop .Mouse/x DEI2 OVR2 LTH2 ?&col ( y* [lim^ i^] )
.Mouse/x DEI2 OVR2 LTH2 ?&col #0008 ADD2 #0008 ADD2 ( y1=y+8* [lim^ i^] )
.Mouse/x DEI2 OVR2 LTH2 ?&no2 .Mouse/x DEI2 OVR2 LTH2 ?&no2 ( y1* [lim^ i^] )
#0010 ADD2 INCr GTHkr STHr ?&loop #0010 ADD2 ( y2=y1+16* [lim^ i^] )
&no2 POP2 POP2r &no1 #00 JMP2r INCr GTHkr STHr ?&loop ( y2 [lim i+1^] )
&no2 POP2 POP2r &no1 #00 JMP2r ( 0^ )
&col &col ( i^ )
POP2 NIPr STHr ( i^ ) POP2 NIPr STHr ( i^ )
DUPk top-column STHk SWP bot-column ( i^ top^ bot^ [top^] ) DUPk top-column STHk SWP bot-column ( i^ top^ bot^ [top^] )
SUB #00 SWP ( i^ count* [top^] ) SUB #00 SWP ( i^ count* [top^] )