mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-15 13:05:18 +00:00
87 lines
1.8 KiB
ArmAsm
87 lines
1.8 KiB
ArmAsm
*
|
|
* Ultima II: The Revenge of the Enchanteress
|
|
*
|
|
* (c) 1982, Sierra On-Line
|
|
* (s) 2020, John Disam
|
|
*
|
|
|
|
TYP BIN
|
|
ORG $8900
|
|
MX %11
|
|
LST OFF
|
|
|
|
*----------------------------
|
|
|
|
UPDATE = $0240
|
|
PRINTSTR = $402C
|
|
|
|
*----------------------------
|
|
|
|
L8900 JSR PRINTSTR
|
|
ASC 8D8D
|
|
ASC " MINAX IS DEAD!!"8D
|
|
ASC "ALL HER WORKS SHALL DIE!"8D00
|
|
LDA #$40
|
|
STA $F0
|
|
L8938 JSR $4408
|
|
LDA #$40
|
|
STA $F1
|
|
L893F JSR $4592
|
|
AND #$3F
|
|
STA $F4
|
|
JSR $4592
|
|
AND #$3F
|
|
STA $F5
|
|
JSR $437B
|
|
LDA #$74
|
|
STA ($06),Y
|
|
INC $4E
|
|
INC $4E
|
|
INC $4E
|
|
DEC $F1
|
|
BNE L893F
|
|
JSR UPDATE
|
|
LDA $4F
|
|
ADC #$09
|
|
STA $4F
|
|
DEC $F0
|
|
BNE L8938
|
|
JSR PRINTSTR
|
|
ASC 8D
|
|
ASC "YOU FEEL A STRANGE FORCE!"00
|
|
JSR $442A
|
|
JSR PRINTSTR
|
|
ASC 8D
|
|
ASC 04
|
|
ASC "BLOAD MAP 30"8D00
|
|
JSR $442A
|
|
JSR PRINTSTR
|
|
ASC 8D8D
|
|
ASC "YOU HAVE SAVED THE UNIVERSE,"8D
|
|
ASC "AND COMPLETED ULTIMA ][! SEEK"8D
|
|
ASC "NOW TO CONQUER WICKED EXODUS,"8D00
|
|
JSR PRINTSTR
|
|
ASC "FOUND IN ULTIMA ]I[-D ]II[-P!"00
|
|
LDA #$FF
|
|
STA $10
|
|
LDA #$28
|
|
STA $11
|
|
LDA #$00
|
|
STA $00
|
|
STA $01
|
|
L8A30 CLC
|
|
LDA $01
|
|
ADC #$01
|
|
AND #$3F
|
|
STA $01
|
|
LSR
|
|
BCS L8A47
|
|
LSR
|
|
BCS L8A47
|
|
LDA $00
|
|
ADC #$01
|
|
AND #$3F
|
|
STA $00
|
|
L8A47 JSR UPDATE
|
|
JMP L8A30
|