diff --git a/src/manifest.tal b/src/manifest.tal index b8e0be2..4e30fd5 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -88,7 +88,7 @@ JMP2r @menu-select ( cat -- ) - DUP ;draw-cat/sel STA + ;draw-cat/sel STA ;draw-cat JSR2 ;draw-sub JSR2 @@ -142,7 +142,41 @@ JMP2r JMP2r -@draw-sub ( cat -- ) +@draw-sub ( -- ) + + #01 .Screen/auto DEO + ;manifest/menu + LDAk STH INC2 ;skip-str JSR2 + STHr #00 + &subcat + #0000 .Screen/x DEO2 + #00 OVR INC #30 SFT2 .Screen/y DEO2 + SWP2 #0004 ADD2 ;draw-str JSR2 SWP2 + INC GTHk ,&subcat JCN + POP2 POP2 + +JMP2r + +@get-sub ( cat -- ) + + ( STH + ;manifest/menu + &cat + LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO + STHr #00 + &subcat + SWP2 #0004 ADD2 ;skip-str JSR2 SWP2 + INC GTHk ,&subcat JCN + POP2 + ,&cat-id LDR INC ,&cat-id STR + LDAk ,&cat JCN + POP2 ) + +JMP2r + +@next-sub ( sub* -- sub* ) + + JMP2r