mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
155 lines
5.5 KiB
ArmAsm
155 lines
5.5 KiB
ArmAsm
; ---------------------------------------------------------------------------
|
|
; 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
|
|
|