Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-11-12 18:04:43 +00:00
Code Issues Projects Releases Wiki Activity

cut some bytes

Browse Source
This commit is contained in:
Peter Ferrie 2019-04-23 22:00:34 -07:00
parent c8912f67c1
commit 7d79ba1638
2 changed files with 25 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/analyze.a
View File

@ -81,7 +81,7 @@ IsF7F6
tay
lda #$19
sta nibcount
- jsr .readnib
- jsr ReadNib
cmp #$F7
beq +
.restart iny
@ -91,28 +91,39 @@ IsF7F6
sec
beq .driveoff
+
jsr .readnib
jsr ReadNib
cmp #$F6
bne .restart
jsr .readnib
jsr ReadNib
cmp #$EF
bne .restart
jsr .readnib
jsr ReadNib
cmp #$EE
bne .restart
jsr .readnib
jsr ReadNib
cmp #$AB
bne .restart
clc
.driveoff
lda $C0E8
rts
}
.readnib
ReadNib
- lda $C0EC
bpl -
rts
}
Read4x4
- lda $C0EC
bpl -
sec
rol
sta tmp
- lda $C0EC
bpl -
and tmp
rts
;-------------------------------
; SetupF7F6SecondRound

26
src/id/inspect0.a
View File

@ -366,28 +366,19 @@ VerifyInfocom18
; the issue being that both have a D5 AA AD sequence
+
- lda $C0EC
bpl -
jsr ReadNib
-- cmp #$D5
bne ---
- lda $C0EC
bpl -
jsr ReadNib
cmp #$AA
bne --
- lda $C0EC
bpl -
jsr ReadNib
cmp #$B5 ; 13-sector only
beq .build13
cmp #$AD
bne --
- lda $C0EC
bpl -
nop
nop ; ignore half of 4x4 track number
- lda $C0EC
bpl - ; ignore half of 4x4 track number
jsr Read4x4
lda #$12 ; all 18 sectors when in verify mode
ldx gIsInfocom18
beq .setcount
@ -469,16 +460,13 @@ read13
dex
beq .badread1
+
- lda $C0EC
bpl -
jsr ReadNib
-- cmp #$D5
bne ---
- lda $C0EC
bpl -
jsr ReadNib
cmp #$AA
bne --
- lda $C0EC
bpl -
jsr ReadNib
cmp #$B5
bne +
ldy #$03