mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-02-06 02:30:15 +00:00
Added a configuration with all 8 ROMs
This commit is contained in:
parent
73940709b1
commit
d4cea3ba9c
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -403,12 +403,49 @@ INITROMS STZ MAXROM ; One sideways ROM only
|
|||||||
LDA USERSEL
|
LDA USERSEL
|
||||||
STA $C003 ; Read aux mem
|
STA $C003 ; Read aux mem
|
||||||
CMP #6 ; Menu entry 7 has two ROMs
|
CMP #6 ; Menu entry 7 has two ROMs
|
||||||
BNE :DONE
|
BNE :S1
|
||||||
LDA #<PASCROM2
|
LDA #<PASCROM2
|
||||||
STA ROMTAB+2
|
STA ROMTAB+2
|
||||||
LDA #>PASCROM2
|
LDA #>PASCROM2
|
||||||
STA ROMTAB+3
|
STA ROMTAB+3
|
||||||
INC MAXROM ; Two ROMs
|
INC MAXROM ; Two ROMs
|
||||||
|
BRA :DONE
|
||||||
|
:S1 CMP #7 ; Menu entry 8
|
||||||
|
BNE :DONE
|
||||||
|
LDA #<PASCROM1
|
||||||
|
STA ROMTAB+0
|
||||||
|
LDA #>PASCROM1
|
||||||
|
STA ROMTAB+1
|
||||||
|
LDA #<PASCROM2
|
||||||
|
STA ROMTAB+2
|
||||||
|
LDA #>PASCROM2
|
||||||
|
STA ROMTAB+3
|
||||||
|
LDA #<LISPROM
|
||||||
|
STA ROMTAB+4
|
||||||
|
LDA #>LISPROM
|
||||||
|
STA ROMTAB+5
|
||||||
|
LDA #<FORTHROM
|
||||||
|
STA ROMTAB+6
|
||||||
|
LDA #>FORTHROM
|
||||||
|
STA ROMTAB+7
|
||||||
|
LDA #<PROLOGROM
|
||||||
|
STA ROMTAB+8
|
||||||
|
LDA #>PROLOGROM
|
||||||
|
STA ROMTAB+9
|
||||||
|
LDA #<BCPLROM
|
||||||
|
STA ROMTAB+10
|
||||||
|
LDA #>BCPLROM
|
||||||
|
STA ROMTAB+11
|
||||||
|
LDA #<COMALROM
|
||||||
|
STA ROMTAB+12
|
||||||
|
LDA #>COMALROM
|
||||||
|
STA ROMTAB+13
|
||||||
|
LDA #<BASICROM
|
||||||
|
STA ROMTAB+14
|
||||||
|
LDA #>BASICROM
|
||||||
|
STA ROMTAB+15
|
||||||
|
LDA #7 ; 8 sideways ROMs
|
||||||
|
STA MAXROM
|
||||||
:DONE LDA #$FF
|
:DONE LDA #$FF
|
||||||
STA $F4 ; Force ROM to load
|
STA $F4 ; Force ROM to load
|
||||||
RTS
|
RTS
|
||||||
|
@ -94,7 +94,7 @@ MSG6 ASC " 6. Acornsoft BCPL"
|
|||||||
MSG7 ASC " 7. Acornsoft ISO Pascal (2 ROMs)"
|
MSG7 ASC " 7. Acornsoft ISO Pascal (2 ROMs)"
|
||||||
DB $00
|
DB $00
|
||||||
|
|
||||||
MSG8 ASC " 8. -"
|
MSG8 ASC " 8. Everything! (8 ROMs)"
|
||||||
DB $00
|
DB $00
|
||||||
|
|
||||||
USERSEL DB $00
|
USERSEL DB $00
|
||||||
|
Loading…
x
Reference in New Issue
Block a user