cc65/libsrc/runtime/rsub.s

;
; Ullrich von Bassewitz, 05.08.1998
;
; CC65 runtime: sub ints reversed
;

        .export         tosrsuba0, tosrsubax
        .import         addysp1
        .importzp       sp, tmp1

;
; AX = AX - TOS
;

tosrsuba0:
        ldx     #0
tosrsubax:
        ldy     #0
        sec
        sbc     (sp),y          ; lo byte
        sta     tmp1            ; save lo byte
        txa
        iny
        sbc     (sp),y          ; hi byte
        tax
        lda     tmp1
        jmp     addysp1         ; drop TOS, set condition codes
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, 05.08.1998`
			`;`
			`; CC65 runtime: sub ints reversed`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export tosrsuba0, tosrsubax`
			`.import addysp1`
			`.importzp sp, tmp1`
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
			`;`
			`; AX = AX - TOS`
			`;`

			`tosrsuba0:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldx #0`
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			`tosrsubax:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`ldy #0`
			`sec`
			`sbc (sp),y ; lo byte`
			`sta tmp1 ; save lo byte`
			`txa`
			`iny`
			`sbc (sp),y ; hi byte`
			`tax`
			`lda tmp1`
			`jmp addysp1 ; drop TOS, set condition codes`
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