skip held cards in waste

2024-07-16 22:03:21 -04:00 · 2024-07-16 22:03:21 -04:00 · 20ea46db9a
parent bbef62b908
commit 20ea46db9a
1 changed files with 1 additions and 0 deletions
--- a/kodiak.tal
+++ b/kodiak.tal
@ -140,6 +140,7 @@
    &ok                               ( lim^ zp^ c^ )
        #0008 .Screen/y DEO2          ( lim^ zp^ c^ ; y<-8 )
        LIT2 [ &x $2 ] .Screen/x DEO2 ( lim^ zp^ c^ ; x<- )
+        DUP #80 AND ?&done            ( lim^ zp^ c^ )
        draw-c                        ( lim^ zp^ ; draw c )
    ,&x LDR2 #0008 ADD2 ,&x STR2      ( lim^ zp^ ; x<-x+8 )
    INC GTHk ?&loop                   ( lim^ zp+1^ )