Some minor cleanups.
This commit is contained in:
@@ -17,14 +17,14 @@
|
|||||||
.export _dio_log_to_phys
|
.export _dio_log_to_phys
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
.importzp ptr1,ptr2,ptr3
|
.importzp ptr1,ptr2,ptr3
|
||||||
.import popax, popptr1, __oserror
|
.import popax,popptr1,__oserror
|
||||||
|
|
||||||
.proc _dio_log_to_phys
|
.proc _dio_log_to_phys
|
||||||
|
|
||||||
sta ptr2
|
sta ptr2
|
||||||
stx ptr2+1 ; pointer to output structure
|
stx ptr2+1 ; pointer to output structure
|
||||||
|
|
||||||
jsr popptr1 ; save pointer to input data
|
jsr popptr1 ; save pointer to input data
|
||||||
|
|
||||||
jsr popax
|
jsr popax
|
||||||
sta ptr3
|
sta ptr3
|
||||||
|
|||||||
@@ -16,7 +16,7 @@
|
|||||||
|
|
||||||
.export __sio_call
|
.export __sio_call
|
||||||
.include "atari.inc"
|
.include "atari.inc"
|
||||||
.import popa, popax, popptr1
|
.import popa,popax,popptr1
|
||||||
.import sectsizetab,__oserror
|
.import sectsizetab,__oserror
|
||||||
.importzp ptr1
|
.importzp ptr1
|
||||||
|
|
||||||
|
|||||||
@@ -8,16 +8,12 @@
|
|||||||
.import incsp2
|
.import incsp2
|
||||||
.importzp sp, ptr1
|
.importzp sp, ptr1
|
||||||
|
|
||||||
.macpack cpu
|
.proc popptr1 ; 14 bytes (four usages = at least 2 bytes saved)
|
||||||
|
|
||||||
.proc popptr1 ; 14 bytes (four usages = at least 2 bytes saved)
|
|
||||||
ldy #1
|
ldy #1
|
||||||
lda (sp),y ; get hi byte
|
lda (sp),y ; get hi byte
|
||||||
sta ptr1+1 ; into ptr hi
|
sta ptr1+1 ; into ptr hi
|
||||||
dey ; no optimization for 65C02 here to have Y=0 at exit!
|
dey ; no optimization for 65C02 here to have Y=0 at exit!
|
||||||
lda (sp),y ; get lo byte
|
lda (sp),y ; get lo byte
|
||||||
sta ptr1 ; to ptr lo
|
sta ptr1 ; to ptr lo
|
||||||
jmp incsp2
|
jmp incsp2
|
||||||
.endproc
|
.endproc
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user