prevent DOS 3.3P escape

This commit is contained in:
Peter Ferrie 2019-05-04 21:12:10 -07:00
parent 5fc2c6fc96
commit e8eb90f592
2 changed files with 13 additions and 11 deletions

View File

@ -59,18 +59,20 @@ TraceSpecDel3
lda $1212 lda $1212
cmp #$D8 cmp #$D8
bne SDfail bne SDfail
lda #$4C ldy #$00
sta $10D5 lda $10D1
cmp #$A2
beq +
ldy #$04
+ lda #$4C
sta $10D1,Y
sta $10EC,Y
lda #<TraceSpecDel4 lda #<TraceSpecDel4
sta $10D6 sta $10D2,Y
sta $10ED,Y
lda #>TraceSpecDel4 lda #>TraceSpecDel4
sta $10D7 sta $10D3,Y
lda #$4C sta $10EE,Y
sta $10F0
lda #<TraceSpecDel4
sta $10F1
lda #>TraceSpecDel4
sta $10F2
jmp $1212 jmp $1212
TraceSpecDel4 TraceSpecDel4

View File

@ -280,7 +280,7 @@ StringTableHigh
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2019-05-03",$00 !text "Passport by 4am 2019-05-04",$00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "