Apple-2gs-SW/ORCALib
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCALib.git synced 2025-02-06 13:30:40 +00:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary instructions.

Browse Source
This commit is contained in:
Stephen Heumann 2022-07-13 18:27:24 -05:00
parent 7b6cb049b7
commit ad273126dd
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fcntl.asm
View File

@ -148,7 +148,6 @@ err equ 1 error return code
stz err err = 0 {no error} stz err err = 0 {no error}
lda filds error if there are too many open files lda filds error if there are too many open files
bmi lb2
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb2 bge lb2
asl A get the file reference number asl A get the file reference number
@ -280,7 +279,6 @@ flags equ 5 file flags
bra lb7 bra lb7
lb1 lda filds error if there are too many open files lb1 lda filds error if there are too many open files
bmi lb2
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb2 bge lb2
asl A get the file reference number asl A get the file reference number
@ -297,7 +295,6 @@ lb3 sta refnum
sta flags sta flags
lda arg find a new filds lda arg find a new filds
bmi lb5
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb5 bge lb5
asl A asl A
@ -376,7 +373,6 @@ mark equ 1 new file mark
sta mark sta mark
sta mark+2 sta mark+2
lda filds get the file refnum lda filds get the file refnum
bmi lb1
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb1 bge lb1
asl A asl A
@ -634,7 +630,6 @@ err equ 1 error return code
phk phk
plb plb
lda filds error if the file has not been opened lda filds error if the file has not been opened
bmi lb0
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb0 bge lb0
asl A get the file reference number asl A get the file reference number
@ -797,7 +792,6 @@ nbuff equ 3 new buffer pointer
phk phk
plb plb
lda filds error if the file has not been opened lda filds error if the file has not been opened
bmi lb0
cmp #OPEN_MAX cmp #OPEN_MAX
bge lb0 bge lb0
asl A get the file reference number asl A get the file reference number