6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-24 11:31:31 +00:00
Code Issues Projects Releases Wiki Activity
a2d722639f
cc65/libsrc/conio/cputs.s

54 lines
1.4 KiB
ArmAsm
Raw Normal View History

This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
;
; Ullrich von Bassewitz, 06.08.1998
;
Make some arrays const.
2017-06-28 18:43:31 +00:00
; void cputsxy (unsigned char x, unsigned char y, const char* s);
; void cputs (const char* s);
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
;
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
.export _cputsxy, _cputs
Introduced internal gotoxy that pops both parameters. About all CONIO functions offering a <...>xy variant call popa _gotoxy By providing an internal gotoxy variant that starts with a popa all those CONIO function can be shortened by 3 bytes. As soon as program calls more than one CONIO function this means an overall code size reduction.
2016-06-05 12:58:38 +00:00
.import gotoxy, _cputc
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
.importzp ptr1, tmp1
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
.macpack cpu
remove dangling spaces
2022-04-17 14:06:22 +00:00
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
_cputsxy:
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
sta ptr1 ; Save s for later
stx ptr1+1
Introduced internal gotoxy that pops both parameters. About all CONIO functions offering a <...>xy variant call popa _gotoxy By providing an internal gotoxy variant that starts with a popa all those CONIO function can be shortened by 3 bytes. As soon as program calls more than one CONIO function this means an overall code size reduction.
2016-06-05 12:58:38 +00:00
jsr gotoxy ; Set cursor, pop x and y
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
.if (.cpu .bitand CPU_ISET_65SC02)
bra L0 ; Same as cputs...
.else
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
jmp L0 ; Same as cputs...
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
.endif
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
_cputs: sta ptr1 ; Save s
stx ptr1+1
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
.if (.cpu .bitand CPU_ISET_65SC02)
L0: lda (ptr1) ; (5)
beq L9 ; (7) Jump if done
jsr _cputc ; (13) Output char, advance cursor
inc ptr1 ; (18) Bump low byte
bne L0 ; (20) Next char
inc ptr1+1 ; (25) Bump high byte
bne L0
.else
L0: ldy #0 ; (2)
L1: lda (ptr1),y ; (7)
beq L9 ; (9) Jump if done
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
iny
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
sty tmp1 ; (14) Save offset
jsr _cputc ; (20) Output char, advance cursor
ldy tmp1 ; (23) Get offset
bne L1 ; (25) Next char
inc ptr1+1 ; (30) Bump high byte
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
bne L1
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
Conio: 65c02 optimisations cputc: -2 cycles per char, -2 cycles per carriage return cputs: -5 cycles per char, -3 cycles on cputsxy vcprintf: -6 cycles per char
2023-09-02 09:08:15 +00:00
.endif
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
; Done
Removed (pretty inconsistently used) tab chars from source code base.
2013-05-09 11:56:54 +00:00
L9: rts
Reference in New Issue Copy Permalink