URL https://opencores.org/ocsvn/w11/w11/trunk

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.74/] [tools/] [asm-11/] [lib/] [kprchr.mac] - Blame information for rev 30

Go to most recent revision | Details | Compare with Previous | View Log


; $Id: kprchr.mac 503 2013-04-06 19:44:13Z mueller $
; Copyright 2013- by Walter F.J. Mueller 
; License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory
;
; synchronous (polling) console print: single character
; Call:
;   jsr  pc, kprchr
; Arguments:
;   r0: character to be printed
;
; All registers preserved
;
 
        XCSR = 177564
        XBUF = 177566
 
kprchr: tstb    @#XCSR
        bpl     kprchr
        movb    r0,@#XBUF
1$:     tstb    @#XCSR
        bpl     1$
        rts     pc

Line No.	Rev	Author	Line
1	30	wfjm	`; $Id: kprchr.mac 503 2013-04-06 19:44:13Z mueller $`
2			`; Copyright 2013- by Walter F.J. Mueller`
3			`; License disclaimer see LICENSE_gpl_v2.txt in $RETROBASE directory`
4			`;`
5			`; synchronous (polling) console print: single character`
6			`; Call:`
7			`; jsr pc, kprchr`
8			`; Arguments:`
9			`; r0: character to be printed`
10			`;`
11			`; All registers preserved`
12			`;`
13
14			`XCSR = 177564`
15			`XBUF = 177566`
16
17			`kprchr: tstb @#XCSR`
18			`bpl kprchr`
19			`movb r0,@#XBUF`
20			`1$: tstb @#XCSR`
21			`bpl 1$`
22			`rts pc`

Browse

Tools

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.74/] [tools/] [asm-11/] [lib/] [kprchr.mac] - Blame information for rev 30