cc65/libsrc/c64/get_ostype.s

;
; Stefan Haubenthal, Jul 10 2003
;
; unsigned char get_ostype(void)
;
; $AA US
; $64 PET-64
; $43 SX-64
; $03 EU_NEW
; $00 EU_OLD
;

	.export		_get_ostype

.proc	_get_ostype

        ldx     #$00            ; Clear high byte
	lda	$ff80
	rts

.endproc
Added get_ostype.s git-svn-id: svn://svn.cc65.org/cc65/trunk@2289 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-08-12 17:42:03 +00:00			`;`
			`; Stefan Haubenthal, Jul 10 2003`
			`;`
			`; unsigned char get_ostype(void)`
			`;`
			`; $AA US`
			`; $64 PET-64`
			`; $43 SX-64`
			`; $03 EU_NEW`
			`; $00 EU_OLD`
			`;`

			`.export _get_ostype`

			`.proc _get_ostype`

Clear high byte of returned value git-svn-id: svn://svn.cc65.org/cc65/trunk@2689 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-11-28 15:53:24 +00:00			`ldx #$00 ; Clear high byte`
Added get_ostype.s git-svn-id: svn://svn.cc65.org/cc65/trunk@2289 b7a2c559-68d2-44c3-8de9-860c34a00d81 2003-08-12 17:42:03 +00:00			`lda $ff80`
			`rts`

			`.endproc`