diff options
| author | Leo C | 2014-07-02 14:33:22 +0200 |
|---|---|---|
| committer | Leo C | 2014-07-02 14:33:22 +0200 |
| commit | f4d5b4febbffab80cb06bd18564d4c326756fad7 (patch) | |
| tree | f5d1a49865afb04c519da4bc9c47077369af7fdb /Z180/msgbuf.180 | |
| parent | 78a3a76d0da08b39b370efc45e9c0ba1ee6bef26 (diff) | |
| download | z180-stamp-f4d5b4febbffab80cb06bd18564d4c326756fad7.zip | |
Rename dir Z180 --> z180
Diffstat (limited to 'Z180/msgbuf.180')
| -rw-r--r-- | Z180/msgbuf.180 | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/Z180/msgbuf.180 b/Z180/msgbuf.180 deleted file mode 100644 index 2c67527..0000000 --- a/Z180/msgbuf.180 +++ /dev/null @@ -1,129 +0,0 @@ - page 255
- .z80
-
- global msg_fifo
- global msginit
- global msg.out,msg.sout,msg.co
-
- extrn buf.init
-
- include config.inc
- include z180reg.inc
-
-;--------------------------------------------------------------
-
- dseg
-
- mkbuf msg_fifo, 0
-
-
-;--------------------------------------------------------------
-
- cseg
-
-;
-; Init buffer
-;
-
-msginit:
- ld ix,msg_fifo
- ld a,msg_fb_len-1
- jp buf.init
-
-
-;--------------------------------------------------------------
-
-msg.sts:
- push ix
- ld ix,msg_fifo ;
-
- ld a,(ix+o.in_idx) ;
- inc a
- and (ix+o.mask)
- sub (ix+o.out_idx) ;
- pop ix
- ret z
- or 0ffh
- ret
-
-;--------------------------------------------------------------
-
-msg.out:
- push ix
- ld ix,msg_fifo ;
-
- push bc
- ld b,a ;save char
- ld a,(ix+o.in_idx) ;
- inc a
- and (ix+o.mask)
-bp.wait:
- cp (ix+o.out_idx) ;
- jr z,bp.wait
- ld c,a
- ld a,b
- out (PMSG),a
- ld (ix+o.in_idx),c
-
- pop bc
- pop ix
- ret
-
-;--------------------------------------------------------------
-;
-; (hl): data
-
-msg.sout:
- push ix
- ld ix,msg_fifo ;
- push bc
-
- ld b,(hl) ;count
- inc hl
-obs_1:
- ld a,(ix+o.out_idx) ;
- sub (ix+o.in_idx) ;
- dec a
- and (ix+o.mask)
- cp b
- jr c,obs_1
-
- ld c,(hl) ;port address
- inc hl
- ld a,b
- otir
- add (ix+o.in_idx)
- and (ix+o.mask)
- ld (ix+o.in_idx),a
- pop bc
- pop ix
- ret
-
-;----------------------------------------------------------------------
-
-msg.co:
- push af
- push hl
- ld (buf_char),a
- ld hl,buf
- call msg.sout
- pop hl
- pop af
- ret
-
-
-buf:
- db buf_end - $ - 2 ;output string length
- db PMSG ;output port
- db 081h ; message start token
- db buf_end - $ - 1 ; message length
- db 1 ; command
- db 1 ; subcommand
-buf_char:
- db 0 ; pay load
-buf_end:
-
-;----------------------------------------------------------------------
-
- end
-
|