Prev: A799 Up: Map Next: AB87
A7A0: Café
Used by the routine at LAC90.
Input
Output
LA7A0 A7A0 CALL LA1F0
A7A3 CALL LA215
A7A6 CALL LA770
A7A9 LD HL,$3031
A7AC LD ($C338),HL
A7AF LD A,$01
A7B1 LD ($AB87),A
LA7A0_0 A7B4 LD A,$00
A7B6 LD ($5C08),A
A7B9 LD E,$05
LA7A0_1 A7BB LD C,$00
LA7A0_2 A7BD LD B,$00
LA7A0_3 A7BF LD A,($5C08)
A7C2 CP $73
A7C4 JP Z,LA7A0_34
A7C7 DJNZ LA7A0_3
A7C9 DEC C
A7CA JR NZ,LA7A0_2
A7CC DEC E
A7CD JR NZ,LA7A0_1
A7CF CALL LA770
A7D2 CALL random1
A7D5 LD A,($C34A)
A7D8 CP $00
A7DA JP Z,LA7A0_4
A7DD JP LA7A0_0
LA7A0_4 A7E0 CALL random1
A7E3 LD A,($C34A)
A7E6 CP $02
A7E8 JP Z,LA7A0_33
A7EB CALL LA430
A7EE LD A,$11
A7F0 RST $10
A7F1 LD A,$00
A7F3 RST $10
A7F4 LD D,$05
A7F6 LD E,$13
A7F8 LD L,$04
A7FA LD C,$04
A7FC CALL LA6FE
A7FF LD HL,$ABC3
A802 CALL desenhaFrameHL
A805 LD A,($C33C)
A808 CP $00
A80A JP Z,LA7A0_12
A80D LD A,($C33D)
A810 CP $00
A812 JP Z,LA7A0_18
A815 LD A,($C337)
A818 CP $00
A81A JP Z,LA7A0_24
A81D LD A,$03
A81F CALL delay_em_A
A822 LD DE,$E9F9
A825 CALL de_to_chars
A828 LD HL,$ABFA
A82B CALL desenhaFrameHL
A82E LD A,$0A
A830 CALL delay_em_A
A833 LD DE,$E899
A836 CALL de_to_chars
A839 LD HL,$ABFA
A83C CALL desenhaFrameHL
A83F CALL random1
A842 LD B,$0A
A844 LD A,($C34A)
A847 CP $01
A849 JP Z,LA7A0_10
A84C CP $02
A84E JP Z,LA7A0_11
LA7A0_5 A851 PUSH BC
A852 LD A,$00
A854 LD ($C34C),A
LA7A0_6 A857 CALL espera_por_keypress
A85A LD A,($C34C)
A85D CP $73
A85F JP Z,LA7A0_7
A862 CP $6E
A864 JP Z,LA7A0_9
A867 JP LA7A0_6
LA7A0_7 A86A LD DE,$E659
A86D CALL de_to_chars
A870 LD HL,$ABCE
A873 CALL desenhaFrameHL
A876 LD A,$00
A878 LD ($C337),A
A87B POP BC
A87C CALL LBA4E
LA7A0_8 A87F CALL random1
A882 LD A,$02
A884 CALL delay_em_A
A887 LD HL,$AC11
A88A CALL desenhaFrameHL
A88D LD A,$05
A88F CALL delay_em_A
A892 LD HL,$ABE5
A895 CALL desenhaFrameHL
A898 CALL LA770
A89B CALL LA589
A89E LD HL,$AC52
A8A1 CALL desenhaFrameHL
A8A4 JP LA7A0_0
LA7A0_9 A8A7 LD DE,$E6B9
A8AA CALL de_to_chars
A8AD LD HL,$ABCE
A8B0 CALL desenhaFrameHL
A8B3 LD HL,$AC11
A8B6 CALL desenhaFrameHL
A8B9 CALL LA770
A8BC POP BC
A8BD LD A,$04
A8BF CALL delay_em_A
A8C2 LD HL,$ABE5
A8C5 CALL desenhaFrameHL
A8C8 JP LA7A0_8
LA7A0_10 A8CB LD A,$16
A8CD RST $10
A8CE LD A,$07
A8D0 RST $10
A8D1 LD A,$17
A8D3 RST $10
A8D4 LD A,$2C
A8D6 RST $10
A8D7 LD B,$0F
A8D9 JP LA7A0_5
LA7A0_11 A8DC LD A,$16
A8DE RST $10
A8DF LD A,$07
A8E1 RST $10
A8E2 LD A,$17
A8E4 RST $10
A8E5 LD A,$2D
A8E7 RST $10
A8E8 LD B,$14
A8EA JP LA7A0_5
LA7A0_12 A8ED LD DE,$E7D9
A8F0 CALL de_to_chars
A8F3 LD HL,$ABFA
A8F6 CALL desenhaFrameHL
A8F9 LD A,$09
A8FB CALL delay_em_A
A8FE LD DE,$E909
A901 CALL de_to_chars
A904 LD HL,$ABFA
A907 CALL desenhaFrameHL
A90A CALL random1
A90D LD B,$0A
A90F LD DE,$3130
A912 LD A,($C34A)
A915 CP $01
A917 JP Z,LA7A0_16
A91A CP $02
A91C JP Z,LA7A0_17
LA7A0_13 A91F PUSH BC
A920 CALL LC27A
A923 LD A,($C33B)
A926 CP $00
A928 CALL Z,LAB88_0
A92B LD A,($C33B)
A92E CP $00
A930 JP Z,LA7A0_8
A933 LD A,$00
A935 LD ($C34C),A
LA7A0_14 A938 CALL espera_por_keypress
A93B LD A,($C34C)
A93E CP $73
A940 JP Z,LA7A0_15
A943 CP $6E
A945 JP Z,LA7A0_9
A948 JR LA7A0_14
LA7A0_15 A94A LD DE,$E659
A94D CALL de_to_chars
A950 LD HL,$ABCE
A953 CALL desenhaFrameHL
A956 LD A,$01
A958 LD ($C33C),A
A95B POP BC
A95C CALL LBA8F
A95F CALL LA770
A962 JP LA7A0_8
LA7A0_16 A965 LD A,$16
A967 RST $10
A968 LD A,$07
A96A RST $10
A96B LD A,$17
A96D RST $10
A96E LD A,$2C
A970 RST $10
A971 LD DE,$3038
A974 LD B,$08
A976 JP LA7A0_13
LA7A0_17 A979 LD A,$16
A97B RST $10
A97C LD A,$07
A97E RST $10
A97F LD A,$17
A981 RST $10
A982 LD A,$2D
A984 RST $10
A985 LD DE,$3033
A988 LD B,$03
A98A JP LA7A0_13
LA7A0_18 A98D LD DE,$E839
A990 CALL de_to_chars
A993 LD HL,$ABFA
A996 CALL desenhaFrameHL
A999 LD A,$09
A99B CALL delay_em_A
A99E LD DE,$E909
A9A1 CALL de_to_chars
A9A4 LD HL,$ABFA
A9A7 CALL desenhaFrameHL
A9AA CALL random1
A9AD CALL L9C30
A9B0 LD B,$0A
A9B2 LD DE,$3130
A9B5 LD A,($C34A)
A9B8 CP $01
A9BA JP Z,LA7A0_22
A9BD CP $02
A9BF JP Z,LA7A0_23
LA7A0_19 A9C2 PUSH BC
A9C3 CALL LC27A
A9C6 LD A,($C33B)
A9C9 CP $00
A9CB JP Z,LAB88_0
A9CE LD A,($C33B)
A9D1 JP Z,LA7A0_8
A9D4 LD A,$00
A9D6 LD ($C34C),A
LA7A0_20 A9D9 CALL espera_por_keypress
A9DC LD A,($C34C)
A9DF CP $73
A9E1 JP Z,LA7A0_21
A9E4 CP $6E
A9E6 JP Z,LA7A0_9
A9E9 JR LA7A0_20
LA7A0_21 A9EB LD DE,$E659
A9EE CALL de_to_chars
A9F1 LD HL,$ABCE
A9F4 CALL desenhaFrameHL
A9F7 LD A,$01 Activar a arma!
A9F9 LD ($C33D),A
A9FC POP BC
A9FD CALL LBA8F
AA00 JP LA7A0_8
LA7A0_22 AA03 LD A,$16
AA05 RST $10
AA06 LD A,$07
AA08 RST $10
AA09 LD A,$17
AA0B RST $10
AA0C LD A,$2C
AA0E RST $10
AA0F LD B,$08
AA11 LD DE,$3038
AA14 JP LA7A0_19
LA7A0_23 AA17 LD A,$16
AA19 RST $10
AA1A LD A,$07
AA1C RST $10
AA1D LD A,$17
AA1F RST $10
AA20 LD A,$2D
AA22 RST $10
AA23 LD B,$03
AA25 LD DE,$3033
AA28 JP LA7A0_19
LA7A0_24 AA2B CALL random1
AA2E LD DE,$E979
AA31 CALL de_to_chars
AA34 LD HL,$ABFA
AA37 CALL desenhaFrameHL
AA3A LD A,($C34A)
AA3D CP $01
AA3F JP Z,LA7A0_31
AA42 CP $02
AA44 JP Z,LA7A0_32
LA7A0_25 AA47 LD A,$08
AA49 CALL delay_em_A
AA4C LD DE,$E909
AA4F CALL de_to_chars
AA52 LD HL,$ABFA
AA55 CALL desenhaFrameHL
AA58 CALL random1
AA5B LD B,$0A
AA5D LD DE,$3130
AA60 LD A,($C34A)
AA63 CP $01
AA65 JP Z,LA7A0_29
AA68 CP $02
AA6A JP Z,LA7A0_30
LA7A0_26 AA6D PUSH BC
AA6E CALL LC27A
AA71 LD A,($C33B)
AA74 CP $00
AA76 JP Z,LAB88_0
AA79 LD A,($C33B)
AA7C CP $00
AA7E JP Z,LA7A0_8
AA81 LD A,$00
AA83 LD ($C34C),A
LA7A0_27 AA86 CALL espera_por_keypress
AA89 LD A,($C34C)
AA8C CP $73
AA8E JP Z,LA7A0_28
AA91 CP $6E
AA93 JP Z,LA7A0_9
AA96 JP LA7A0_27
LA7A0_28 AA99 LD DE,$E659
AA9C CALL de_to_chars
AA9F LD HL,$ABCE
AAA2 CALL desenhaFrameHL
AAA5 POP BC
AAA6 CALL LBA8F
AAA9 LD A,$01
AAAB LD ($C337),A
AAAE JP LA7A0_8
LA7A0_29 AAB1 LD A,$16
AAB3 RST $10
AAB4 LD A,$07
AAB6 RST $10
AAB7 LD A,$17
AAB9 RST $10
AABA LD A,$2C
AABC RST $10
AABD LD B,$08
AABF LD DE,$3038
AAC2 JP LA7A0_26
LA7A0_30 AAC5 LD A,$16
AAC7 RST $10
AAC8 LD A,$07
AACA RST $10
AACB LD A,$17
AACD RST $10
AACE LD A,$2D
AAD0 RST $10
AAD1 LD B,$03
AAD3 LD DE,$3033
AAD6 JP LA7A0_26
LA7A0_31 AAD9 LD A,$16
AADB RST $10
AADC LD A,$06
AADE RST $10
AADF LD A,$1A
AAE1 RST $10
AAE2 LD A,$2C
AAE4 RST $10
AAE5 LD A,$2D
AAE7 RST $10
AAE8 JP LA7A0_25
LA7A0_32 AAEB LD A,$16
AAED RST $10
AAEE LD A,$06
AAF0 RST $10
AAF1 LD A,$1A
AAF3 RST $10
AAF4 LD A,$2E
AAF6 RST $10
AAF7 LD A,$2F
AAF9 RST $10
AAFA JP LA7A0_25
LA7A0_33 AAFD CALL LA360
AB00 LD A,$16
AB02 RST $10
AB03 LD A,$09
AB05 RST $10
AB06 LD A,$09
AB08 RST $10
AB09 LD A,$11
AB0B RST $10
AB0C LD A,$00
AB0E RST $10
AB0F LD A,$80
AB11 RST $10
AB12 LD A,$16
AB14 RST $10
AB15 LD A,$0A
AB17 RST $10
AB18 LD A,$09
AB1A RST $10
AB1B LD A,$80
AB1D RST $10
AB1E LD A,$08
AB20 CALL delay_em_A
AB23 CALL LA5B5
AB26 LD A,$02
AB28 CALL delay_em_A
AB2B CALL LA710
AB2E CALL LA770
AB31 LD A,$03
AB33 CALL delay_em_A
AB36 CALL LB755
AB39 LD A,($AB87)
AB3C INC A
AB3D LD ($AB87),A
AB40 CALL LA6B7
AB43 CALL desenha_despesa
AB46 JP LA7A0_0
LA7A0_34 AB49 CALL LA5B5
AB4C LD DE,$E779
AB4F CALL de_to_chars
AB52 LD HL,$AC26
AB55 CALL desenhaFrameHL
AB58 LD A,$05
AB5A CALL delay_em_A
AB5D CALL LA770
AB60 LD DE,($C338)
AB64 CALL LC27A
AB67 LD A,($C33B)
AB6A CP $00
AB6C JP Z,LAB88
AB6F LD A,($AB87)
AB72 LD B,A
AB73 CALL LBA8F
AB76 LD HL,$AC3D
AB79 CALL desenhaFrameHL
AB7C CALL LA6B7
AB7F LD A,$04
AB81 CALL delay_em_A
AB84 JP main
Prev: A799 Up: Map Next: AB87