Added "popptr1" which is of common use to save some bytes.

This commit is contained in:
IrgendwerA8
2018-05-20 15:30:18 +02:00
parent 3a6430b13d
commit c95ed4b8b5
35 changed files with 113 additions and 151 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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