2021-09-07 02:28:07 +00:00
|
|
|
* MAINMEM.MENU.S
|
2021-08-10 19:10:15 +00:00
|
|
|
* (c) Bobbi 2021 GPL3
|
|
|
|
|
*
|
2021-09-07 02:28:07 +00:00
|
|
|
* Applecorn ROM menu. Runs in main memory.
|
2021-08-10 19:10:15 +00:00
|
|
|
|
2021-08-18 00:13:51 +00:00
|
|
|
ROMMENU JSR HOME ; Clear screen
|
|
|
|
|
LDA #<TITLE1 ; Print title
|
2021-08-10 19:10:15 +00:00
|
|
|
STA A1L
|
|
|
|
|
LDA #>TITLE1
|
|
|
|
|
STA A1H
|
|
|
|
|
JSR PRSTRA1
|
|
|
|
|
JSR CROUT
|
|
|
|
|
JSR CROUT
|
|
|
|
|
LDA #<TITLE2
|
|
|
|
|
STA A1L
|
|
|
|
|
LDA #>TITLE2
|
|
|
|
|
STA A1H
|
|
|
|
|
JSR PRSTRA1
|
|
|
|
|
JSR CROUT
|
|
|
|
|
JSR CROUT
|
|
|
|
|
JSR CROUT
|
|
|
|
|
|
|
|
|
|
LDX #$00 ; Print menu
|
|
|
|
|
:L1 LDA MSGTBL,X
|
|
|
|
|
STA A1L
|
|
|
|
|
INX
|
|
|
|
|
LDA MSGTBL,X
|
|
|
|
|
STA A1H
|
|
|
|
|
INX
|
|
|
|
|
JSR PRSTRA1
|
|
|
|
|
JSR CROUT
|
|
|
|
|
JSR CROUT
|
|
|
|
|
CPX #8*2
|
|
|
|
|
BEQ :KEYIN
|
|
|
|
|
BRA :L1
|
|
|
|
|
|
|
|
|
|
:KEYIN LDA $C000 ; Kdb data / strobe
|
|
|
|
|
BPL :KEYIN ; Wait for keystroke
|
|
|
|
|
STA $C010 ; Clear strobe
|
|
|
|
|
AND #$7F
|
|
|
|
|
SEC
|
|
|
|
|
SBC #'1' ; '1'->0, '2'->1 etc.
|
|
|
|
|
CMP #8
|
|
|
|
|
BCC :KEYOK
|
|
|
|
|
JSR BELL ; Invalid - beep
|
|
|
|
|
BRA :KEYIN ; Go again
|
2021-10-24 21:02:12 +00:00
|
|
|
:KEYOK STA USERSEL ; Record selection
|
2021-08-10 19:10:15 +00:00
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
* Print a string pointed to by A1L/A1H
|
|
|
|
|
* Trashes A, preserves X and Y
|
|
|
|
|
PRSTRA1 PHY
|
|
|
|
|
LDY #$00
|
|
|
|
|
:L1 LDA (A1L),Y
|
|
|
|
|
BEQ :NULL
|
|
|
|
|
JSR COUT1
|
|
|
|
|
INY
|
|
|
|
|
BRA :L1
|
|
|
|
|
:NULL PLY
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
TITLE1 ASC "** APPLECORN **"
|
|
|
|
|
DB $00
|
|
|
|
|
TITLE2 ASC "Choose a BBC Micro ROM:"
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
MSGTBL DW MSG1
|
|
|
|
|
DW MSG2
|
|
|
|
|
DW MSG3
|
|
|
|
|
DW MSG4
|
|
|
|
|
DW MSG5
|
|
|
|
|
DW MSG6
|
|
|
|
|
DW MSG7
|
|
|
|
|
DW MSG8
|
|
|
|
|
|
|
|
|
|
MSG1 ASC " 1. BBC BASIC"
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
MSG2 ASC " 2. Acornsoft COMAL"
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
MSG3 ASC " 3. Acornsoft Lisp"
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
MSG4 ASC " 4. Acornsoft Forth"
|
|
|
|
|
DB $00
|
|
|
|
|
|
|
|
|
|
MSG5 ASC " 5. Acornsoft MicroProlog"
|
|
|
|
|
DB $00
|
|
|
|
|
|
2021-08-21 02:17:21 +00:00
|
|
|
MSG6 ASC " 6. Acornsoft BCPL"
|
2021-08-10 19:10:15 +00:00
|
|
|
DB $00
|
|
|
|
|
|
2021-10-24 22:10:12 +00:00
|
|
|
MSG7 ASC " 7. Acornsoft ISO Pascal (2 ROMs)"
|
2021-08-10 19:10:15 +00:00
|
|
|
DB $00
|
|
|
|
|
|
2021-10-25 00:04:22 +00:00
|
|
|
MSG8 ASC " 8. Everything! (8 ROMs)"
|
2021-08-10 19:10:15 +00:00
|
|
|
DB $00
|
2021-09-10 20:11:57 +00:00
|
|
|
|
2021-10-24 21:02:12 +00:00
|
|
|
USERSEL DB $00
|
2021-09-10 18:53:24 +00:00
|
|
|
|
2021-10-25 00:38:32 +00:00
|
|
|
|
|
|
|
|
|
