@@ 185,37 185,6 @@ JMP2r
JMP2r
-@draw-menu ( -- )
-
- #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
- #01 .Screen/auto DEO
- #00 ,&cat-id STR
- ;manifest/menu
- &cat
- [ LIT &cat-sel $1 ] [ LIT &cat-id $1 ] EQU #02 ADD ;draw-chr/color STA
- #0000 .Screen/y DEO2
- .Screen/x DEI2 ,&col STR2
- LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO
- .Screen/x DEI2 ,&anchor STR2
- STHr #00
- &subcat
- DUP [ LIT &sub-sel $1 ] EQU #04 MUL #07 ADD
- ,&cat-sel LDR ,&cat-id LDR EQU MUL ;draw-chr/color STA
- #00 OVR INC #30 SFT2 .Screen/y DEO2
- [ LIT2 &col $2 ] .Screen/x DEO2
- SWP2
- #0004 ADD2 ;draw-str JSR2
- SWP2
- INC GTHk ,&subcat JCN
- POP2
- ( restore-x ) [ LIT2 &anchor $2 ] .Screen/x DEO2
- ,&cat-id LDR INC ,&cat-id STR
- LDAk ,&cat JCN
- POP2
- #00 .Screen/auto DEO
-
-JMP2r
-
@draw-str ( str* -- str* )
&while