Added "popptr1" which is of common use to save some bytes.
This commit is contained in:
@@ -5,7 +5,7 @@
|
||||
;
|
||||
|
||||
.export _getdevicedir
|
||||
.import popax, popa
|
||||
.import popptr1, popa
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
@@ -17,9 +17,7 @@ _getdevicedir:
|
||||
stx ptr2+1
|
||||
|
||||
; Save buf
|
||||
jsr popax
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
jsr popptr1
|
||||
|
||||
; Set buf
|
||||
sta mliparam + MLI::ON_LINE::DATA_BUFFER
|
||||
|
||||
@@ -8,7 +8,7 @@
|
||||
.constructor initiobuf
|
||||
.export iobuf_alloc, iobuf_free
|
||||
.import __STARTUP_RUN__
|
||||
.import incsp2, popax
|
||||
.import incsp2, popptr1
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
@@ -41,9 +41,7 @@ initiobuf:
|
||||
iobuf_alloc:
|
||||
; Get and save "memptr"
|
||||
jsr incsp2
|
||||
jsr popax
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
jsr popptr1
|
||||
|
||||
; Search table for free entry
|
||||
ldx #$00
|
||||
|
||||
@@ -5,7 +5,7 @@
|
||||
;
|
||||
|
||||
.export _lseek
|
||||
.import popax
|
||||
.import popax, popptr1
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
@@ -18,9 +18,7 @@ _lseek:
|
||||
stx tmp2
|
||||
|
||||
; Get and save offset
|
||||
jsr popax
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
jsr popptr1
|
||||
jsr popax
|
||||
sta ptr2
|
||||
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
;
|
||||
|
||||
.export rwprolog, rwcommon, rwepilog
|
||||
.import popax
|
||||
.import popax, popptr1
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
@@ -17,9 +17,7 @@ rwprolog:
|
||||
stx ptr2+1
|
||||
|
||||
; Get and save buf
|
||||
jsr popax
|
||||
sta ptr1
|
||||
stx ptr1+1
|
||||
jsr popptr1
|
||||
|
||||
; Get and process fd
|
||||
jsr popax
|
||||
|
||||
Reference in New Issue
Block a user