Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-11-19 03:06:34 +00:00
Code Issues Projects Releases Wiki Activity

more efficient comparison

Browse Source
This commit is contained in:
Peter Ferrie 2017-07-12 07:28:22 -07:00
parent 42e07830e3
commit 5dd679230e
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/id/dos33.a
View File

@ -29,7 +29,7 @@ IDDOS33
; ;
+ lda #$00 + lda #$00
ldx #$00 ldx #$00
ldy #$4A ldy #$3F
jsr compare ; if T00,S00,$00 == jsr compare ; if T00,S00,$00 ==
!byte $01 !byte $01
!byte $A5,$27 !byte $A5,$27
@ -62,10 +62,6 @@ IDDOS33
!byte $6C,$3E,$00 !byte $6C,$3E,$00
!byte $EE,$FE,$08 !byte $EE,$FE,$08
!byte $EE,$FE,$08 !byte $EE,$FE,$08
!byte WILDCARD,WILDCARD,WILDCARD
!byte WILDCARD,WILDCARD,WILDCARD
!byte WILDCARD,WILDCARD,WILDCARD
!byte $A6,$2B
bcs .exit bcs .exit
; ;
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F ; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
@ -75,19 +71,21 @@ IDDOS33
; ;
lda #$00 lda #$00
ldx #$3F ldx #$3F
ldy #$09 ldy #$0B
jsr compare ; if T00,S00,$3F == jsr compare ; if T00,S00,$3F ==
!byte $20,$89,$FE !byte $20,$89,$FE
!byte $20,$93,$FE !byte $20,$93,$FE
!byte $20,$2F,$FB !byte $20,$2F,$FB
!byte $A6,$2B
bcc + bcc +
lda #$00 lda #$00
ldx #$3F ldx #$3F
ldy #$09 ldy #$0B
jsr compare ; if T00,S00,$3F == jsr compare ; if T00,S00,$3F ==
!byte $8D,$50,$C0 !byte $8D,$50,$C0
!byte $8D,$57,$C0 !byte $8D,$57,$C0
!byte $8D,$55,$C0 !byte $8D,$55,$C0
!byte $A6,$2B
+ +
; ;