; ---------------------------------------------------------------------------
; display.s
;
; for Sym-1
;
; Wayne Parham
;
; wayne@parhamdata.com
; ---------------------------------------------------------------------------

.include        "sym1.inc"

.export         _fdisp,  _set_D0, _get_D0
.export         _set_D1, _get_D1, _set_D2, _get_D2
.export         _set_D3, _get_D3, _set_D4, _get_D4
.export         _set_D5, _get_D5, _set_D6, _get_D6

.segment        "CODE"

.proc _fdisp:   near
; ---------------------------------------------------------------------------
        jsr     SCAND            ;  Flash Display
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc


.proc _set_D0:  near
; ---------------------------------------------------------------------------
        sta     DISBUF0          ;  Write Digit 0
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D0:  near
; ---------------------------------------------------------------------------
        lda     DISBUF0          ;  Read Digit 0
        ldx     #$00             ;
        rts                      ;  Return DISBUF0
; ---------------------------------------------------------------------------
.endproc


.proc _set_D1:  near
; ---------------------------------------------------------------------------
        sta     DISBUF1          ;  Write Digit 1
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D1:  near
; ---------------------------------------------------------------------------
        lda     DISBUF1          ;  Read Digit 1
        ldx     #$00             ;
        rts                      ;  Return DISBUF1
; ---------------------------------------------------------------------------
.endproc


.proc _set_D2:  near
; ---------------------------------------------------------------------------
        sta     DISBUF2          ;  Write Digit 2
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D2:  near
; ---------------------------------------------------------------------------
        lda     DISBUF2          ;  Read Digit 2
        ldx     #$00             ;
        rts                      ;  Return DISBUF2
; ---------------------------------------------------------------------------
.endproc


.proc _set_D3:  near
; ---------------------------------------------------------------------------
        sta     DISBUF3          ;  Write Digit 3
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D3:  near
; ---------------------------------------------------------------------------
        lda     DISBUF3          ;  Read Digit 3
        ldx     #$00             ;
        rts                      ;  Return DISBUF3
; ---------------------------------------------------------------------------
.endproc


.proc _set_D4:  near
; ---------------------------------------------------------------------------
        sta     DISBUF4          ;  Write Digit 4
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D4:  near
; ---------------------------------------------------------------------------
        lda     DISBUF4          ;  Read Digit 4
        ldx     #$00             ;
        rts                      ;  Return DISBUF4
; ---------------------------------------------------------------------------
.endproc


.proc _set_D5:  near
; ---------------------------------------------------------------------------
        sta     DISBUF5          ;  Write Digit 5
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D5:  near
; ---------------------------------------------------------------------------
        lda     DISBUF5          ;  Read Digit 5
        ldx     #$00             ;
        rts                      ;  Return DISBUF5
; ---------------------------------------------------------------------------
.endproc


.proc _set_D6:  near
; ---------------------------------------------------------------------------
        sta     DISBUF6          ;  Write byte to the right of display
        lda     #$00             ;
        ldx     #$00             ;
        rts                      ;  Return 0000
; ---------------------------------------------------------------------------
.endproc

.proc _get_D6:  near
; ---------------------------------------------------------------------------
        lda     DISBUF6          ;  Read byte to the right of display
        ldx     #$00             ;
        rts                      ;  Return DISBUF6
; ---------------------------------------------------------------------------
.endproc