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