Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-29 11:30:55 +00:00
Code Issues Projects Releases Wiki Activity
da5901cae1
antoine-source/ultima2/CREATE.S
Antoine Vignau f01d3d6876 relocatable
2024-08-03 08:56:22 +02:00

492 lines
9.8 KiB
ArmAsm
Raw Blame History

*
* Ultima II: The Revenge of the Enchanteress
*
* (c) 1982, Sierra On-Line
* (s) 2020, John Disam
*
TYP BIN
ORG $6000
MX %11
LST OFF
*----------------------------
KBD EQU $C000
KBDSTROBE EQU $C010
VTAB EQU $FC22
HOME EQU $FC58
RDKEY EQU $FD0C
PRBYTE EQU $FDDA
COUT EQU $FDED
SETINV EQU $FE80
SETNORM EQU $FE84
L4E00 EQU $4E00
*----------------------------
JSR HOME
LDX #$06
LDY #$0C
JSR L6665
JSR L65BA
ASC "(INSERT A BLANK PLAYER DISK)"0D00
L602B LDA KBD
CMP #$9B
BNE L602B
BIT KBDSTROBE
JSR L65BA
ASC 0D
ASC 04
ASC "NOMONIOC"0D
ASC 04
ASC "BLOAD PLAYER"0D00
LDA L4E00+$00
BEQ L6089
JSR HOME
LDY #$0B
LDX #$0E
JSR L6665
JSR L65BA
ASC "NOT A BLANK"00
LDY #$0D
LDX #$0E
JSR L6665
JSR L65BA
ASC "PLAYER DISK"00
JMP L65B7
L6089 JSR HOME
JSR L65BA
ASC " PLAYER GENERATION :"00
JSR L65BA
ASC 0D0A
ASC " POINTS LEFT TO DISTRIBUTE : "00
JSR SETINV
LDA #$90
STA $FA
JSR PRBYTE
JSR SETNORM
JSR L65BA
ASC 0D0A
ASC " STRENGTH......."0D
ASC " AGILITY........"0D
ASC " STAMINA........"0D
ASC " CHARISMA......."0D
ASC " WISDOM........."0D
ASC " INTELLIGENCE..."0D0A
ASC " M/F-"0D
ASC " RACE-"0D
ASC " TYPE-"0D
ASC " NAME-"0D0A
ASC " SATISFACTORY (Y/N)-"0D0A
ASC " RACES: TYPES:"0D
ASC " 1-HUMAN 1-FIGHTER"0D
ASC " 2-ELF 2-CLERIC"0D
ASC " 3-DWARF 3-WIZARD"0D
ASC " 4-HOBBIT 4-THIEF"00
LDY #$04
LDX #$1A
JSR L6665
JSR L65E7
STA L4E00+$15
JSR L6635
LDY #$05
LDX #$1A
JSR L6665
JSR L65E7
STA L4E00+$16
JSR L6635
LDX #$1A
LDY #$06
JSR L6665
JSR L65E7
STA L4E00+$17
JSR L6635
LDY #$07
LDX #$1A
JSR L6665
JSR L65E7
STA L4E00+$18
JSR L6635
LDX #$1A
LDY #$08
JSR L6665
JSR L65E7
STA L4E00+$19
JSR L6635
LDX #$1A
LDY #$09
JSR L6665
JSR L65E7
STA L4E00+$1A
JSR L6635
LDX #$14
LDY #$0B
JSR L6665
L6306 JSR RDKEY
STA L4E00+$10
CMP #$CD ; M
BNE L6333
JSR L65BA
ASC "MALE"00
LDA L4E00+$15
SED
CLC
ADC #$05
CLD
STA L4E00+$15
LDX #$1A
LDY #$04
JSR L6665
LDA L4E00+$15
JSR PRBYTE
JMP L6359
L6333 CMP #$C6 ; F
BNE L6306
JSR L65BA
ASC "FEMALE"00
LDA L4E00+$18
SED
CLC
ADC #$10
CLD
STA L4E00+$18
LDX #$1A
LDY #$07
JSR L6665
LDA L4E00+$18
JSR PRBYTE
L6359 LDX #$14
LDY #$0C
JSR L6665
JSR RDKEY
STA L4E00+$12
CMP #$B1
BNE L638E
JSR L65BA
ASC "HUMAN"00
LDA L4E00+$1A
SED
CLC
ADC #$05
CLD
STA L4E00+$1A
LDX #$1A
LDY #$09
JSR L6665
LDA L4E00+$1A
JSR PRBYTE
JMP L6405
L638E CMP #$B2
BNE L63B4
JSR L65BA
ASC "ELF"00
LDA L4E00+$16
SED
CLC
ADC #$05
CLD
STA L4E00+$16
LDX #$1A
LDY #$05
JSR L6665
LDA L4E00+$16
JSR PRBYTE
JMP L6405
L63B4 CMP #$B3
BNE L63DC
JSR L65BA
ASC "DWARF"00
LDA L4E00+$15
SED
CLC
ADC #$05
CLD
STA L4E00+$15
LDX #$1A
LDY #$04
JSR L6665
LDA L4E00+$15
JSR PRBYTE
JMP L6405
L63DC CMP #$B4
BEQ L63E3
JMP L6359
L63E3 JSR L65BA
ASC "HOBBIT"00
LDA L4E00+$19
SED
CLC
ADC #$10
CLD
STA L4E00+$19
LDX #$1A
LDY #$08
JSR L6665
LDA L4E00+$19
JSR PRBYTE
L6405 CLC
LDA L4E00+$12
SBC #$B0
STA L4E00+$12
LDY #$0D
LDX #$14
JSR L6665
JSR RDKEY
STA L4E00+$11
CMP #$B1
BNE L6445
JSR L65BA
ASC "FIGHTER"00
LDA L4E00+$15
SED
CLC
ADC #$15
CLD
STA L4E00+$15
LDX #$1A
LDY #$04
JSR L6665
LDA L4E00+$15
JSR PRBYTE
JMP L64BF
L6445 CMP #$B2
BNE L646E
JSR L65BA
ASC "CLERIC"00
LDA L4E00+$19
SED
CLC
ADC #$10
CLD
STA L4E00+$19
LDX #$1A
LDY #$08
JSR L6665
LDA L4E00+$19
JSR PRBYTE
JMP L64BF
L646E CMP #$B3
BNE L6497
JSR L65BA
ASC "WIZARD"00
LDA L4E00+$1A
SED
CLC
ADC #$10
CLD
STA L4E00+$1A
LDX #$1A
LDY #$09
JSR L6665
LDA L4E00+$1A
JSR PRBYTE
JMP L64BF
L6497 CMP #$B4
BEQ L649E
JMP L6405
L649E JSR L65BA
ASC "THIEF"00
LDA L4E00+$16
SED
CLC
ADC #$10
CLD
STA L4E00+$16
LDX #$1A
LDY #$05
JSR L6665
LDA L4E00+$16
JSR PRBYTE
L64BF CLC
LDA L4E00+$11
SBC #$B0
STA L4E00+$11
L64C8 LDY #$0E
LDX #$14
JSR L6665
JSR L65BA
ASC " "00
LDX #$14
LDY #$0E
JSR L6665
LDX #$0E
LDA #$00
L64ED STA L4E00+$00,X
DEX
BNE L64ED
LDX #$00
L64F5 JSR RDKEY
CMP #$88
BEQ L64C8
CMP #$8D
BEQ L650B
JSR COUT
STA L4E00+$00,X
INX
CPX #$0C
BCC L64F5
L650B LDY #$10
LDX #$1D
JSR L6665
JSR RDKEY
JSR COUT
CMP #$CE ; N
BNE L651F
JMP L6089
L651F CMP #$D9 ; Y
BNE L650B
LDA #$14
STA L4E00+$24
LDA #$14
STA L4E00+$25
LDA #$02
STA L4E00+$13
LDA #$04
STA L4E00+$1B
STA L4E00+$1D
STA L4E00+$22
JSR L65BA
ASC 0D
ASC 04
ASC "BSAVE PLAYER,A$4E00,L$100"0D00
JSR HOME
LDY #$0B
LDX #$0B
JSR L6665
JSR L65BA
ASC "TO PLAY ULTIMA ]["00
LDY #$0D
LDX #$09
JSR L6665
JSR L65BA
ASC "INSERT PROGRAM MASTER"00
L659C LDA KBD
CMP #$9B
BNE L659C
BIT KBDSTROBE
JSR L65BA
ASC 8D
ASC 04
ASC "BRUN HELLO"8D00
L65B7 JMP L65B7
L65BA PLA
STA $FE
PLA
STA $FF
LDY #$00
L65C2 INC $FE
BNE L65C8
INC $FF
L65C8 LDA ($FE),Y
BEQ L65D4
ORA #$80
JSR COUT
JMP L65C2
L65D4 LDA $FF
PHA
LDA $FE
PHA
RTS
CMP #$00
BEQ L65E6
BPL L65E4
LDA #$FF
RTS
L65E4 LDA #$01
L65E6 RTS
L65E7 JSR RDKEY
CMP #$B0
BCC L65E7
CMP #$BA
BCS L65E7
JSR COUT
SEC
SBC #$B0
ASL
ASL
ASL
ASL
STA $FC
L65FE JSR RDKEY
CMP #$88
BNE L660B
JSR COUT
JMP L65E7
L660B CMP #$B0
BCC L65FE
CMP #$BA
BCS L65FE
JSR COUT
SEC
SBC #$B0
CLC
ADC $FC
STA $FC
L661E JSR RDKEY
CMP #$88
BNE L662E
JSR COUT
JSR COUT
JMP L65E7
L662E CMP #$8D
BNE L661E
LDA $FC
RTS
L6635 STA $FB
CMP #$0A
BCC L6659
LDA $FA
SEC
SED
SBC $FB
CLD
BCC L6659
JSR SETINV
STA $FA
LDY #$02
LDX #$21
JSR L6665
LDA $FA
JSR PRBYTE
JSR SETNORM
RTS
L6659 JSR L65BA
ASC 07070700
PLA
PLA
JMP L6089
L6665 STX $24
STY $25
JSR VTAB
RTS
LDA $4E
ADC $4F
LDX $4F
STX $4E
STA $4F
RTS
Reference in New Issue View Git Blame Copy Permalink