1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
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
|
