cda - improve ssc register display
This commit is contained in:
parent
e1639db6e4
commit
279f424cee
183
vt100.cda.S
183
vt100.cda.S
|
@ -290,7 +290,7 @@ decanm
|
||||||
:100 ldx #:vt100
|
:100 ldx #:vt100
|
||||||
jmp print_xy_str
|
jmp print_xy_str
|
||||||
|
|
||||||
:str asc "DECANM: ",00
|
:str asc "DECANM: ",00
|
||||||
:vt100 asc "vt100",00
|
:vt100 asc "vt100",00
|
||||||
:vt52 asc "vt52",00
|
:vt52 asc "vt52",00
|
||||||
|
|
||||||
|
@ -304,7 +304,7 @@ dectm
|
||||||
inc
|
inc
|
||||||
jmp print_number
|
jmp print_number
|
||||||
|
|
||||||
:str asc "DECTM: ",00
|
:str asc "DECTM: ",00
|
||||||
|
|
||||||
decbm
|
decbm
|
||||||
mx %10
|
mx %10
|
||||||
|
@ -315,7 +315,7 @@ decbm
|
||||||
inc
|
inc
|
||||||
jmp print_number
|
jmp print_number
|
||||||
|
|
||||||
:str asc "DECBM: ",00
|
:str asc "DECBM: ",00
|
||||||
|
|
||||||
|
|
||||||
decom
|
decom
|
||||||
|
@ -326,7 +326,7 @@ decom
|
||||||
lda DPAGE+DECOM
|
lda DPAGE+DECOM
|
||||||
jmp print_on_off
|
jmp print_on_off
|
||||||
|
|
||||||
:str asc "DECOM: ",00
|
:str asc "DECOM: ",00
|
||||||
|
|
||||||
deckpam
|
deckpam
|
||||||
mx %10
|
mx %10
|
||||||
|
@ -346,7 +346,7 @@ decckm
|
||||||
lda DPAGE+DECCKM
|
lda DPAGE+DECCKM
|
||||||
jmp print_on_off
|
jmp print_on_off
|
||||||
|
|
||||||
:str asc "DECCKM: ",00
|
:str asc "DECCKM: ",00
|
||||||
|
|
||||||
|
|
||||||
decawm
|
decawm
|
||||||
|
@ -357,7 +357,7 @@ decawm
|
||||||
lda DPAGE+DECAWM
|
lda DPAGE+DECAWM
|
||||||
jmp print_on_off
|
jmp print_on_off
|
||||||
|
|
||||||
:str asc "DECAWM: ",00
|
:str asc "DECAWM: ",00
|
||||||
|
|
||||||
|
|
||||||
decscnm
|
decscnm
|
||||||
|
@ -379,19 +379,19 @@ lnm
|
||||||
lda DPAGE+LNM
|
lda DPAGE+LNM
|
||||||
jmp print_on_off
|
jmp print_on_off
|
||||||
|
|
||||||
:str asc "LNM: ",00
|
:str asc "LNM: ",00
|
||||||
|
|
||||||
|
|
||||||
sgr
|
sgr
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_12+4
|
ldy #line_13+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda DPAGE+SGR
|
lda DPAGE+SGR
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
|
|
||||||
:str asc "SGR: ",00
|
:str asc "SGR: ",00
|
||||||
|
|
||||||
|
|
||||||
print_xy_str
|
print_xy_str
|
||||||
|
@ -608,17 +608,18 @@ ssc_registers
|
||||||
xba
|
xba
|
||||||
* sei
|
* sei
|
||||||
ldx #0
|
ldx #0
|
||||||
lda SCCBREG ; sync
|
|
||||||
lda SCCAREG ; sync
|
lda SCCAREG ; sync
|
||||||
|
lda SCCBREG ; sync
|
||||||
|
|
||||||
stx SCCBREG
|
stx SCCAREG
|
||||||
lda SCCBREG
|
lda SCCAREG
|
||||||
sta ssc_data+0
|
sta ssc_data+0
|
||||||
inx ;1
|
|
||||||
stx SCCBREG
|
stx SCCBREG
|
||||||
lda SCCBREG
|
lda SCCBREG
|
||||||
sta ssc_data+1
|
sta ssc_data+1
|
||||||
inx ;2 - A and B both needed.
|
|
||||||
|
inx ;1
|
||||||
|
|
||||||
stx SCCAREG
|
stx SCCAREG
|
||||||
lda SCCAREG
|
lda SCCAREG
|
||||||
sta ssc_data+2
|
sta ssc_data+2
|
||||||
|
@ -626,34 +627,69 @@ ssc_registers
|
||||||
lda SCCBREG
|
lda SCCBREG
|
||||||
sta ssc_data+3
|
sta ssc_data+3
|
||||||
|
|
||||||
inx ;3 - A only
|
inx ;2
|
||||||
|
|
||||||
stx SCCAREG
|
stx SCCAREG
|
||||||
lda SCCAREG
|
lda SCCAREG
|
||||||
sta ssc_data+4
|
sta ssc_data+4
|
||||||
ldx #10
|
|
||||||
stx SCCBREG
|
stx SCCBREG
|
||||||
lda SCCBREG
|
lda SCCBREG
|
||||||
sta ssc_data+5
|
sta ssc_data+5
|
||||||
ldx #12
|
|
||||||
stx SCCBREG
|
inx ;3
|
||||||
lda SCCBREG
|
|
||||||
|
stx SCCAREG
|
||||||
|
lda SCCAREG
|
||||||
sta ssc_data+6
|
sta ssc_data+6
|
||||||
inx ; 13
|
|
||||||
stx SCCBREG
|
stx SCCBREG
|
||||||
lda SCCBREG
|
lda SCCBREG
|
||||||
sta ssc_data+7
|
sta ssc_data+7
|
||||||
ldx #15
|
|
||||||
|
|
||||||
|
ldx #10 ; 10
|
||||||
|
|
||||||
|
stx SCCAREG
|
||||||
|
lda SCCAREG
|
||||||
|
sta ssc_data+8
|
||||||
stx SCCBREG
|
stx SCCBREG
|
||||||
lda SCCBREG
|
lda SCCBREG
|
||||||
sta ssc_data+8
|
sta ssc_data+9
|
||||||
|
|
||||||
|
|
||||||
|
ldx #12 ; 12
|
||||||
|
|
||||||
|
stx SCCAREG
|
||||||
|
lda SCCAREG
|
||||||
|
sta ssc_data+10
|
||||||
|
stx SCCBREG
|
||||||
|
lda SCCBREG
|
||||||
|
sta ssc_data+11
|
||||||
|
|
||||||
|
inx ; 13
|
||||||
|
|
||||||
|
stx SCCAREG
|
||||||
|
lda SCCAREG
|
||||||
|
sta ssc_data+12
|
||||||
|
stx SCCBREG
|
||||||
|
lda SCCBREG
|
||||||
|
sta ssc_data+13
|
||||||
|
|
||||||
|
ldx #15 ; 15
|
||||||
|
|
||||||
|
stx SCCAREG
|
||||||
|
lda SCCAREG
|
||||||
|
sta ssc_data+14
|
||||||
|
stx SCCBREG
|
||||||
|
lda SCCBREG
|
||||||
|
sta ssc_data+15
|
||||||
|
|
||||||
|
|
||||||
cli
|
cli
|
||||||
rep #$10 ; long x
|
rep #$10 ; long x
|
||||||
mx %10
|
mx %10
|
||||||
jsr rr0
|
jsr rr0
|
||||||
jsr rr1
|
jsr rr1
|
||||||
jsr rr2a
|
jsr rr2
|
||||||
jsr rr2b
|
|
||||||
jsr rr3 ; only exists in channel A.
|
jsr rr3 ; only exists in channel A.
|
||||||
jsr rr10
|
jsr rr10
|
||||||
jsr rr12 ; baud low
|
jsr rr12 ; baud low
|
||||||
|
@ -662,7 +698,7 @@ ssc_registers
|
||||||
plp
|
plp
|
||||||
rts
|
rts
|
||||||
|
|
||||||
ssc_data ds 10
|
ssc_data ds 16
|
||||||
|
|
||||||
rr0
|
rr0
|
||||||
mx %10
|
mx %10
|
||||||
|
@ -670,83 +706,122 @@ rr0
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+0
|
lda ssc_data+0
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+1
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 0: ",00
|
:str asc "RR 0: ",00
|
||||||
|
|
||||||
rr1
|
rr1
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_6+4
|
ldy #line_6+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+1
|
lda ssc_data+2
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+3
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 1: ",00
|
:str asc "RR 1: ",00
|
||||||
|
|
||||||
rr2a
|
rr2
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_7+4
|
ldy #line_7+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+2
|
lda ssc_data+4
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+5
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 2A: ",00
|
:str asc "RR 2: ",00
|
||||||
|
|
||||||
rr2b
|
rr3
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_8+4
|
ldy #line_8+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+3
|
lda ssc_data+6
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+7
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 2B: ",00
|
:str asc "RR 3: ",00
|
||||||
|
|
||||||
rr3
|
rr10
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_9+4
|
ldy #line_9+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+4
|
lda ssc_data+8
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+9
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 3: ",00
|
:str asc "RR 10: ",00
|
||||||
|
|
||||||
rr10
|
|
||||||
mx %10
|
|
||||||
ldy #line_10+4
|
|
||||||
ldx #:str
|
|
||||||
jsr print_xy_str
|
|
||||||
lda ssc_data+5
|
|
||||||
jmp print_binary
|
|
||||||
|
|
||||||
:str asc "reg 10: ",00
|
|
||||||
|
|
||||||
* 12/13 are baud
|
* 12/13 are baud
|
||||||
|
|
||||||
rr12
|
rr12
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_11+4
|
ldy #line_10+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+7
|
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
|
||||||
|
lda ssc_data+12
|
||||||
jsr print_hex
|
jsr print_hex
|
||||||
lda ssc_data+6
|
lda ssc_data+10
|
||||||
|
jsr print_hex
|
||||||
|
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
|
||||||
|
lda ssc_data+13
|
||||||
|
jsr print_hex
|
||||||
|
lda ssc_data+11
|
||||||
jmp print_hex
|
jmp print_hex
|
||||||
|
|
||||||
:str asc "reg 12/13: ",00
|
|
||||||
|
:str asc "RR 12: ",00
|
||||||
|
|
||||||
|
|
||||||
rr15
|
rr15
|
||||||
mx %10
|
mx %10
|
||||||
ldy #line_12+4
|
ldy #line_11+4
|
||||||
ldx #:str
|
ldx #:str
|
||||||
jsr print_xy_str
|
jsr print_xy_str
|
||||||
lda ssc_data+8
|
|
||||||
|
lda ssc_data+14
|
||||||
|
jsr print_binary
|
||||||
|
iny
|
||||||
|
iny
|
||||||
|
lda ssc_data+15
|
||||||
jmp print_binary
|
jmp print_binary
|
||||||
|
|
||||||
:str asc "reg 15: ",00
|
:str asc "RR 15: ",00
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
text
|
text
|
||||||
dw $0400
|
dw $0400
|
||||||
|
|
Loading…
Reference in New Issue