Initial POC of in-game help

1 files changed, 156 insertions, 0 deletions

diff --git a/gamehelp.s b/gamehelp.s
new file mode 100644
index 0000000..092e256
--- /dev/null
+++ b/gamehelp.s
@@ -0,0 +1,156 @@
+ .include "atari.inc"
+
+ .import _print_msg, _clrtoeol
+
+ .import _M_help_avail_hk
+ .import _M_help_avail_hk_retire
+ .import _M_help_buy_sell
+ .import _M_help_change_orders
+ .import _M_help_doesnt_affect
+ .import _M_help_each_gun
+ .import _M_help_enter_firm
+ .import _M_help_fight
+ .import _M_help_for_fun
+ .import _M_help_ftr_any
+ .import _M_help_if_debt
+ .import _M_help_loan_shark
+ .import _M_help_may_loan
+ .import _M_help_million
+ .import _M_help_only_if_total
+ .import _M_help_press_a
+ .import _M_help_press_m
+ .import _M_help_press_k
+ .import _M_help_press_ret_done
+ .import _M_help_quit_trading
+ .import _M_help_press_ret_alone
+ .import _M_help_run
+ .import _M_help_throw
+ .import _M_help_to_sail_to
+ .import _M_help_transferred_to
+ .import _M_help_turbo
+ .import _M_help_type_amount
+ .import _M_help_type_letter
+ .import _M_help_type_number
+ .import _M_help_under_attack
+ .import _M_help_wh_bank_only
+ .import _M_help_y_or_n
+
+ .export _print_game_help, _game_help
+ .export _get_amount_help, _port_choices_help, _port_stat_help_nonhk
+ .export _port_stat_help_hk, _name_firm_help, _sea_battle_help
+ .export _wu_help, _new_gun_help, _new_ship_help
+
+ ;;; use temps that won't get stepped on by print_msg, cputs, cputc, etc.
+ tblptr = FR1+2 ; and +3
+ ystash = FR1+4
+
+ .ifdef CART_TARGET
+  .segment "HIGHCODE"
+ .else
+  .code
+ .endif
+
+;;; extern void __fastcall__ print_game_help(const char *entry);
+;
+; Print entire help screen. Caller must ensure the screen gets refreshed
+; afterwards (e.g. by calling port_stats()).
+
+ .import _cprintuint
+
+_print_game_help:
+ ldx _game_help+1
+ beq @ldone
+ lda _game_help
+ sta tblptr
+ stx tblptr+1
+ lda #0
+ sta ROWCRS
+ sta COLCRS
+ sta ystash
+@loop:
+ jsr _clrtoeol
+ ldy ystash
+ lda (tblptr),y ; high byte!
+ beq @ldone
+ tax
+ iny
+ lda (tblptr),y
+ iny
+ sty ystash
+ jsr _print_msg
+ jmp @loop
+@ldone:
+rts
+
+; extern char *game_help;
+; set to one of the _<whatever>_help addresses below, or NULL
+; if there's no help for the current screen.
+ .data
+_game_help: .res 2
+
+ .rodata
+
+_get_amount_help:
+ .dbyt _M_help_type_amount
+ .dbyt _M_help_press_a
+ .dbyt _M_help_press_k
+ .dbyt _M_help_press_m
+ .dbyt _M_help_press_ret_alone
+ .byte $00
+
+_port_choices_help:
+ .dbyt _M_help_type_number
+ .dbyt _M_help_to_sail_to
+ .byte $00
+
+_port_stat_help_nonhk:
+ .dbyt _M_help_type_letter
+ .dbyt _M_help_buy_sell
+ .dbyt _M_help_quit_trading
+ .dbyt _M_help_wh_bank_only
+ .dbyt _M_help_avail_hk
+ .byte $00
+
+_port_stat_help_hk:
+ .dbyt _M_help_type_letter
+ .dbyt _M_help_buy_sell
+ .dbyt _M_help_quit_trading
+ .dbyt _M_help_wh_bank_only
+ .dbyt _M_help_avail_hk_retire
+ .dbyt _M_help_only_if_total
+ .dbyt _M_help_million
+ .byte $00
+
+_name_firm_help:
+ .dbyt _M_help_enter_firm
+ .dbyt _M_help_doesnt_affect
+ .dbyt _M_help_for_fun
+ .dbyt _M_help_press_ret_done
+ .byte $00
+
+_sea_battle_help:
+ .dbyt _M_help_under_attack
+ .dbyt _M_help_fight
+ .dbyt _M_help_throw
+ .dbyt _M_help_run
+ .dbyt _M_help_turbo
+ .dbyt _M_help_ftr_any
+ .dbyt _M_help_change_orders
+ .byte $00
+
+_wu_help:
+ .dbyt _M_help_loan_shark
+ .dbyt _M_help_if_debt
+ .dbyt _M_help_may_loan
+ .byte $00
+
+_new_gun_help:
+ .dbyt _M_help_y_or_n
+ .dbyt _M_help_each_gun
+ .byte $00
+
+_new_ship_help:
+ .dbyt _M_help_y_or_n
+ .dbyt _M_help_transferred_to
+ .byte $00
+