cc65/libsrc/cbm510/kudtim.s

;
; Ullrich von Bassewitz, 13.09.2001
;
; udtim routine for the 510. We will not check for the stop key here, since
; C programs will not use it.
;

      	.export	    	UDTIM
	.importzp	time


.proc	UDTIM

	inc	time
	bne	L9
	inc	time+1
	bne	L9
	inc	time+2
	bne	L9
	inc	time+3
L9:	rts

.endproc
Started to add support for the P500 aka CBM510 git-svn-id: svn://svn.cc65.org/cc65/trunk@911 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-09-13 21:09:19 +00:00			`;`
			`; Ullrich von Bassewitz, 13.09.2001`
			`;`
			`; udtim routine for the 510. We will not check for the stop key here, since`
			`; C programs will not use it.`
			`;`

Use external symbols for the CBM kernal jump table functions. This allows to emulate these functions on platforms where one or more of these functions are not available (PET, CBM-II). git-svn-id: svn://svn.cc65.org/cc65/trunk@1544 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-19 23:02:47 +00:00			`.export UDTIM`
Started to add support for the P500 aka CBM510 git-svn-id: svn://svn.cc65.org/cc65/trunk@911 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-09-13 21:09:19 +00:00			`.importzp time`


Use external symbols for the CBM kernal jump table functions. This allows to emulate these functions on platforms where one or more of these functions are not available (PET, CBM-II). git-svn-id: svn://svn.cc65.org/cc65/trunk@1544 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-19 23:02:47 +00:00			`.proc UDTIM`
Started to add support for the P500 aka CBM510 git-svn-id: svn://svn.cc65.org/cc65/trunk@911 b7a2c559-68d2-44c3-8de9-860c34a00d81 2001-09-13 21:09:19 +00:00
			`inc time`
			`bne L9`
			`inc time+1`
			`bne L9`
			`inc time+2`
			`bne L9`
			`inc time+3`
			`L9: rts`

			`.endproc`


Use external symbols for the CBM kernal jump table functions. This allows to emulate these functions on platforms where one or more of these functions are not available (PET, CBM-II). git-svn-id: svn://svn.cc65.org/cc65/trunk@1544 b7a2c559-68d2-44c3-8de9-860c34a00d81 2002-11-19 23:02:47 +00:00