From b5cef4fd9c57a7fe89b966939354f1dbbeef2f30 Mon Sep 17 00:00:00 2001 From: d_m Date: Sun, 14 Jul 2024 00:03:28 -0400 Subject: [PATCH] improve stack comments a bit --- kodiak.tal | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/kodiak.tal b/kodiak.tal index 2d41e17..88e78ce 100644 --- a/kodiak.tal +++ b/kodiak.tal @@ -266,18 +266,18 @@ &no2 POPr &no1 #00 JMP2r @maybe-select-tableau ( -> bool^ ) - .Mouse/y DEI2 #0024 LTH2 ?&no1 - .Mouse/x DEI2 #0030 LTH2 ?&no1 - .Mouse/x DEI2 #00cf GTH2 ?&no1 - - #0040 LIT2r 0700 - &loop - .Mouse/x DEI2 OVR2 LTH2 ?&col #0008 ADD2 - .Mouse/x DEI2 OVR2 LTH2 ?&no2 - #0010 ADD2 INCr GTHkr STHr ?&loop - &no2 POP2 POP2r &no1 #00 JMP2r - - &col + .Mouse/y DEI2 #0024 LTH2 ?&no1 ( ) + .Mouse/x DEI2 #0030 LTH2 ?&no1 ( ) + .Mouse/x DEI2 #00cf GTH2 ?&no1 ( ) + #0040 LIT2r 0700 ( 64* [7^ 0^] ) + &loop ( y* [lim^ i^] ) + .Mouse/x DEI2 OVR2 LTH2 ?&col ( y* [lim^ i^] ) + #0008 ADD2 ( y1=y+8* [lim^ i^] ) + .Mouse/x DEI2 OVR2 LTH2 ?&no2 ( y1* [lim^ i^] ) + #0010 ADD2 ( y2=y1+16* [lim^ i^] ) + INCr GTHkr STHr ?&loop ( y2 [lim i+1^] ) + &no2 POP2 POP2r &no1 #00 JMP2r ( 0^ ) + &col ( i^ ) POP2 NIPr STHr ( i^ ) DUPk top-column STHk SWP bot-column ( i^ top^ bot^ [top^] ) SUB #00 SWP ( i^ count* [top^] )