shave some bytes

This commit is contained in:
4am 2021-06-11 14:46:28 -04:00
parent 7d2c1bb12b
commit a2d5b46b06
4 changed files with 28 additions and 28 deletions

View File

@ -327,26 +327,6 @@ IDBootloader
+ jmp UseUniversal
}
!zone {
PrereadT00
lda #$0F
PrereadT00Partial
sta gSector
clc
adc #BASEPAGE
sta gAddress+1
lda #$00
sta gTrack
sta gAddress
- jsr ReadSector
bcs .exit
dec gAddress+1
dec gSector
bne -
.exit
rts
}
;-------------------------------
; IDBootFailure
; main entry point to identify the bootloader
@ -716,3 +696,23 @@ read13
lda $C0E8
rts
}
!zone {
PrereadT00
lda #$0F
PrereadT00Partial
sta gSector
clc
adc #BASEPAGE
sta gAddress+1
lda #$00
sta gTrack
sta gAddress
- jsr ReadSector
bcs .exit
dec gAddress+1
dec gSector
bne -
.exit
rts
}

View File

@ -148,10 +148,10 @@ _jmpbbfe
!byte $00,$00,$00,$00,$00
bcc .exit ; passport-test-suite/Quadrilaterals.woz [C=1] here
sta gDisplayBytes+5
sta gDisplayBytes
ldy #4
- lda $1560, y
sta gDisplayBytes, y
sta gDisplayBytes+1, y
lda #0
sta $1560, y
dey

View File

@ -70,7 +70,7 @@
++
stx .serial+2
stx .serialb+2
sta gDisplayBytes+3
sta gDisplayBytes
lda #$C5
sta .serial+1
sta .serialb+1
@ -80,7 +80,7 @@
tax
jsr .serial
jsr .XA2byte
sta gDisplayBytes,y
sta gDisplayBytes+1,y
iny
cpy #$03
bne .serialloop

View File

@ -350,7 +350,7 @@ StringTableHigh
.passport
!text "Passport ",$00
.header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-10",$00
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-11",$00
.bar9
!text "_________",$00
.bar18
@ -421,7 +421,7 @@ StringTableHigh
.addressepilogue
!text "address epilogue ",$00
.erasingserialnumber
!text "Erasing serial number ",$00
!text "T%t,S%0 Erasing serial number %1%2%3",$00
.lockitup
!text "@",s_found,"Lock-It-Up protection",$8D
!text "T00,S0A @",s_maybeunreadable,$8D,$00
@ -588,9 +588,9 @@ StringTableHigh
.decryptrwts
!text "T00 Decrypting RWTS before writing",$8D,$00
.protserial
!text "T%t,S%3 @",s_erasingserialnumber,"%0%1%2",$8D,$00
!text "@",s_erasingserialnumber,$8D,$00
.lockitupserial
!text "T%t,S%5 @",s_erasingserialnumber,"%0%1%2%3%4",$00
!text "@",s_erasingserialnumber,"%4%5",$00
.fbff
!text "@",s_found,"FBFF @",s_protectioncheck,$8D,$00
.encoded44