adjust RELBASE

This commit is contained in:
4am 2017-09-05 14:26:16 -04:00
parent 8062a6cc2b
commit bdda0f89ea
2 changed files with 43 additions and 1 deletions

View File

@ -102,7 +102,7 @@ flag = $FF ; byte
}
; Application constants (not zero addresses)
RELBASE = $5900 ; address to move Passport code
RELBASE = $5800 ; address to move Passport code
; so that it's out of the way
LOWPOINT = $4300 ; lowest available address for code
BASEPAGE = $10 ; Special Delivery tracer assumes

View File

@ -0,0 +1,42 @@
;-------------------------------
; #DOS32JMPB4BB
; boot2 jumps to $B4BB for a
; nibble check (13-sector variant)
; e.g. Bellhop
;-------------------------------
!zone {
lda gIsDOS32 ; if DOS 3.2
bne .exit
lda gTrack
cmp #$01
bne .exit
lda #$00
sta gDisplayBytes
ldx #$84
ldy #$03
jsr compare ; and T01,S00,$84 ==
!byte $4C,$BB,$B4
bcs .exit
lda #s_jmpb4bb
jsr PrintByID
lda #$00
ldx #$84
ldy #$03
jsr modify ; then set T01,S00,$84 =
!byte $AD,$E9,$37
;
; also check a variant that redirects the DOS input
; vector through code that is only loaded by the
; protection check we just bypassed
;
lda #$01
ldx #$BA
ldy #$03
jsr compare ; if T01,S01,$BA ==
!byte $4C,$0B,$37
bcs .exit
ldy #$03
jsr modify ; then set T01,S01,$BA =
!byte $6C,$38,00
.exit
}