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

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.7/] [tools/] [asm-11/] [w11/] [sys/] [dl11/] [simple_out.mac] - Blame information for rev 33

Details | Compare with Previous | View Log


; $Id: simple_out.mac 503 2013-04-06 19:44:13Z mueller $
;
; simple output test for DL11 interface
;
        RCSR = 177560
        RBUF = 177562
        XCSR = 177564
        XBUF = 177566
;
        CR = 015
        LF = 012
;
; transfer vector
;
        .asect
        . = 200
        jmp     start
;
; test code
;
        . = 1000
;
start:  mov     #start,sp
        mov     #hw, r0
1$:     tstb    (r0)
        beq     start
2$:     tstb    @#XCSR
        bpl     2$
        movb    (r0)+,@#XBUF
        br      1$
;
hw:     .asciz  /Hello world!/
;
        .end

Line No.	Rev	Author	Line
1	19	wfjm	`; $Id: simple_out.mac 503 2013-04-06 19:44:13Z mueller $`
2			`;`
3			`; simple output test for DL11 interface`
4			`;`
5			`RCSR = 177560`
6			`RBUF = 177562`
7			`XCSR = 177564`
8			`XBUF = 177566`
9			`;`
10			`CR = 015`
11			`LF = 012`
12			`;`
13			`; transfer vector`
14			`;`
15			`.asect`
16			`. = 200`
17			`jmp start`
18			`;`
19			`; test code`
20			`;`
21			`. = 1000`
22			`;`
23			`start: mov #start,sp`
24			`mov #hw, r0`
25			`1$: tstb (r0)`
26			`beq start`
27			`2$: tstb @#XCSR`
28			`bpl 2$`
29			`movb (r0)+,@#XBUF`
30			`br 1$`
31			`;`
32			`hw: .asciz /Hello world!/`
33			`;`
34			`.end`

Browse

Tools

Subversion Repositories w11

[/] [w11/] [tags/] [w11a_V0.7/] [tools/] [asm-11/] [w11/] [sys/] [dl11/] [simple_out.mac] - Blame information for rev 33