support ctrl-Q to quit

This commit is contained in:
4am 2017-07-07 14:12:50 -04:00
parent bcb7a1d1eb
commit bbc8fec036
2 changed files with 4 additions and 2 deletions

View File

@ -221,7 +221,9 @@ MainMenu
jsr EnterCFFAIfAvailable jsr EnterCFFAIfAvailable
bcc ResetVector bcc ResetVector
bcs .getkey bcs .getkey
+ cmp #$9B + cmp #$9B ; esc
beq .jmptoexit
cmp #$91 ; ctrl-Q
beq .jmptoexit beq .jmptoexit
cmp #k_quit cmp #k_quit
bne + bne +

View File

@ -220,7 +220,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2017-07-05",00 !text "Passport by 4am 2017-07-07",00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "