Boot into BASIC
BASIC command to switch to WOZMON
This commit is contained in:
1 parent
deef96a6bc
commit
7033104799
3 files changed
+8
-7
No files matched your search
+5
-6
@@ -9,21 +9,20 @@ SAVE:
|
||||
ISCNTC:
|
||||
lda $BC01
|
||||
cmp #$03
|
||||
beq @break
|
||||
beq :+
|
||||
rts
|
||||
@break:
|
||||
:
|
||||
jmp STOP
|
||||
|
||||
MONRDKEY:
|
||||
lda $BC01
|
||||
bmi @skipped
|
||||
bmi :+
|
||||
sta $BC00 ; echo
|
||||
@skipped:
|
||||
:
|
||||
rts
|
||||
|
||||
MONCOUT:
|
||||
sta $BC00
|
||||
|
||||
rts
|
||||
|
||||
.segment "WOZMON"
|
||||
@@ -31,5 +30,5 @@ MONCOUT:
|
||||
|
||||
.segment "RESETVEC"
|
||||
.word $0000 ; NMI vector
|
||||
.word RESET ; RESET vector
|
||||
.word COLD_START ; RESET vector
|
||||
.word $0000 ; IRQ vector
|
||||
@@ -1,5 +1,7 @@
|
||||
init_token_tables
|
||||
|
||||
keyword_rts "WOZMON", RESET
|
||||
|
||||
keyword_rts "END", END
|
||||
keyword_rts "FOR", FOR
|
||||
keyword_rts "NEXT", NEXT
|
||||
|
||||
+1
-1
@@ -46,7 +46,7 @@ int main(void) {
|
||||
|
||||
printf("6502PC Emulator with MS Basic\n");
|
||||
printf("CTRL + G to exit\n");
|
||||
printf("DF6AR to jump to BASIC\n");
|
||||
printf("WOZMON available, BASIC at DF6A\n");
|
||||
|
||||
clock_gettime(CLOCK_MONOTONIC, &emulationStart);
|
||||
|
||||
|
||||
Reference in new issue
Block a user