mirror of
https://github.com/bobbimanners/emailler.git
synced 2025-02-07 14:30:53 +00:00
Added VT100 SCS (Select Character Set) capability.
Apple II: The MouseText chars only allow for a partial representation of the VT100 Special Graphics glyphs. Additionally the MouseText chars are not available for reversed video. C64: The VT100 Special Graphics repurposes the ASCII(!) code points $60-$7f. And the C64 custom font used places them on the same code points. Therefore it makes sense to "tunnel" them through the usual ASCII->PETSCII->ScreenCode processing pipeline by moving them as-is to otherwise unused PETSCII code points ($80-$9f).
This commit is contained in:
Oliver Schmidt
parent
dabb02c638
commit
ec848d7369
@ -73,6 +73,8 @@ vVector = ptr3
|
||||
; --- esc mode ---
|
||||
; $00 = normal
|
||||
; $0f = esc mode
|
||||
; $fd = esc ( mode
|
||||
; $fe = esc ) mode
|
||||
; $ff = esc [ mode
|
||||
; $f0 = ignore one char
|
||||
EMode .res 1
|
||||
@ -99,11 +101,20 @@ SRE .res 1 ; last line number
|
||||
; bit 2 = underline
|
||||
Font: .res 1
|
||||
|
||||
; --- line drawing ---
|
||||
; contains four bits
|
||||
; bit 0 = G0 is line drawing
|
||||
; bit 1 = G1 is iine drawing
|
||||
; bit 6 = do line drawing
|
||||
; bit 7 = G1 is invoked
|
||||
Draw: .res 1
|
||||
|
||||
; --- crsr save area ---
|
||||
; here is crsr info saved with ESC 7
|
||||
; and restored from with ESC 8
|
||||
SaveF .res 1 ; font
|
||||
SaveR .res 1 ; reverse mode
|
||||
SaveD .res 1 ; line drawing
|
||||
SaveRow .res 1 ; row
|
||||
SaveCol .res 1 ; column
|
||||
|
||||
@ -240,8 +251,22 @@ D5a tay ; col to y
|
||||
ldx CV ; line to x
|
||||
jsr CPlot ; set crsr
|
||||
rts
|
||||
; --- SO ---
|
||||
D6 cmp #$0e ; SO?
|
||||
bne D7
|
||||
asl Draw
|
||||
sec ; set G1 invoked
|
||||
ror Draw
|
||||
jmp SLD
|
||||
; --- SI ---
|
||||
D7 cmp #$0f ; SI?
|
||||
bne D8
|
||||
asl Draw
|
||||
clc ; clear G1 invoked
|
||||
ror Draw
|
||||
jmp SLD
|
||||
|
||||
D6 rts
|
||||
D8 rts
|
||||
|
||||
; -------------------------------------
|
||||
; esc mode
|
||||
@ -282,11 +307,15 @@ SEsc tya ; restore char
|
||||
; --- ( ---
|
||||
E2 cmp #$28 ; ( ?
|
||||
bne E3
|
||||
jmp sThrow
|
||||
lda #$fd ; set esc ( mode
|
||||
sta EMode
|
||||
rts
|
||||
; --- ) ---
|
||||
E3 cmp #$29 ; ) ?
|
||||
bne E4
|
||||
jmp sThrow
|
||||
lda #$fe ; set esc ) mode
|
||||
sta EMode
|
||||
rts
|
||||
; --- # ---
|
||||
E4 cmp #$23 ; # ?
|
||||
bne E5
|
||||
@ -325,6 +354,8 @@ E8 cmp #$37 ; 7 ?
|
||||
sta SaveF
|
||||
lda INVFLG ; save reverse mode
|
||||
sta SaveR
|
||||
lda Draw ; save line drawing
|
||||
sta SaveD
|
||||
ldx CV ; save position
|
||||
ldy CH
|
||||
stx SaveRow
|
||||
@ -337,6 +368,8 @@ E9 cmp #$38 ; 8 ?
|
||||
ldx SaveRow ; restore pos
|
||||
ldy SaveCol
|
||||
jsr CPlot
|
||||
lda SaveD ; restore line drawing
|
||||
sta Draw
|
||||
lda SaveR ; restore ..
|
||||
sta INVFLG ; .. reverse mode
|
||||
ldx SaveF ; restore font
|
||||
@ -357,12 +390,17 @@ sThrow lda #$f0 ; set esc mode $f0
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; [ esc mode
|
||||
; [ or ( or ) esc modes
|
||||
;
|
||||
; EMode = $ff
|
||||
; EMode = $ff or $fd or $fe
|
||||
; -------------------------------------
|
||||
|
||||
LEsc tya ; restore char
|
||||
LEsc lda EMode
|
||||
cmp #$ff
|
||||
beq LE1b
|
||||
jmp SCS ; ( esc or ) esc
|
||||
|
||||
LE1b tya ; restore char
|
||||
|
||||
ldy EBufL
|
||||
sta EBuf,y ; store char
|
||||
@ -674,6 +712,43 @@ LEend lda #$00
|
||||
sta EMode ; reset esc mode
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; ( or ) esc modes (select char set)
|
||||
;
|
||||
; EMode = $fd or $fe in A
|
||||
; -------------------------------------
|
||||
|
||||
SCS and #$03 ; $01 or $02
|
||||
cpy #'0' ; line drawing?
|
||||
bne SCS1
|
||||
ora Draw ; set Gx line drawing
|
||||
jmp SCS2
|
||||
SCS1 eor #$ff ; $fe or $fd
|
||||
and Draw ; clear Gx line drawing
|
||||
SCS2 sta Draw
|
||||
jsr SLD
|
||||
jmp LEend
|
||||
|
||||
; -------------------------------------
|
||||
; SLD - set line drawing
|
||||
;
|
||||
; set bit 6 based on bits 0, 1, 7
|
||||
;--------------------------------------
|
||||
|
||||
SLD lda Draw
|
||||
bmi SLD1 ; G1 is invoked?
|
||||
and #$01 ; no -> G0..
|
||||
jmp SLD2
|
||||
SLD1 and #$02 ; yes -> G1..
|
||||
SLD2 beq SLD3 ; ..is line drawing?
|
||||
lda #$40 ; yes -> set..
|
||||
ora Draw ; ..line drawing
|
||||
jmp SLD4
|
||||
SLD3 lda #$bf ; no -> clear..
|
||||
and Draw ; ..line drawing
|
||||
SLD4 sta Draw
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; GetNum - get decimal number from
|
||||
; esc sequence
|
||||
@ -1038,9 +1113,19 @@ PrnChr sta xVector ; save char
|
||||
; -- $80-$ff -- non-ASCII
|
||||
bmi PCend ; no output
|
||||
|
||||
; -- handle line drawing --
|
||||
bit Draw ; line drawing?
|
||||
bvc PCrvs
|
||||
cmp #$60 ; line drawing char?
|
||||
bcc PCrvs
|
||||
and INVFLG ; normal:$ff, reverse:$3f
|
||||
tax
|
||||
lda ltsc,x ; line drawing to ScreenCode
|
||||
jmp PCput
|
||||
|
||||
; -- handle reverse mode --
|
||||
ldx INVFLG ; reverse mode?
|
||||
bmi PC1 ; normal:$ff, reverse:$3f
|
||||
PCrvs ldx INVFLG ; normal:$ff, reverse:$3f
|
||||
bmi PC1 ; reverse mode?
|
||||
tax
|
||||
lda rtsc,x ; reverse to ScreenCode
|
||||
jmp PCput
|
||||
@ -1406,8 +1491,10 @@ InitVar lda #$00
|
||||
sta EBufL
|
||||
sta SRS
|
||||
sta Font
|
||||
sta Draw
|
||||
sta SaveF
|
||||
sta SaveR
|
||||
sta SaveD
|
||||
sta SaveRow
|
||||
sta SaveCol
|
||||
sta lbPending
|
||||
@ -1493,14 +1580,47 @@ rtsc;_0 _1 _2 _3 _4 _5 _6 _7 _8 _9 _a _b _c _d _e _f
|
||||
.byt $20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2a,$2b,$2c,$2d,$2e,$2f ; 2_
|
||||
.byt $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3a,$3b,$3c,$3d,$3e,$3f ; 3_
|
||||
|
||||
; --- capital letters ----------------------------------------------
|
||||
.byt $00,$01,$02,$03,$04,$05,$06,$07,$07,$09,$0a,$0b,$0c,$0d,$0e,$0f ; 4_
|
||||
; --- upper case letters ----------------------------------------------
|
||||
.byt $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f ; 4_
|
||||
.byt $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1a,$1b,$1c,$1d,$1e,$1f ; 5_
|
||||
|
||||
; --- lower case letters -------------------------------------------
|
||||
.byt $60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6a,$6b,$6c,$6d,$6e,$6f ; 6_
|
||||
.byt $70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c,$7d,$7e,$7f ; 7_
|
||||
|
||||
; -------------------------------------
|
||||
; table line drawing to ScreenCode
|
||||
;
|
||||
; This tabel is used to convert incoming
|
||||
; line drawing chars.
|
||||
; -------------------------------------
|
||||
|
||||
ltsc;_0 _1 _2 _3 _4 _5 _6 _7 _8 _9 _a _b _c _d _e _f
|
||||
|
||||
; --- unused -------------------------------------------------------
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ; 0_
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ; 1_
|
||||
|
||||
; --- reverse ------------------------------------------------------
|
||||
; ◆ ▒ ␉ ␌ ␍ ␊ ° ±  ␋ ┘ ┐ ┌ └ ┼ ⎺
|
||||
; ' ' ▒ ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' | ' ' ' ' | | _
|
||||
.byt $20,$57,$20,$20,$20,$20,$20,$20,$20,$20,$7c,$20,$20,$7c,$7c,$1f ; 2_
|
||||
; ⎻ ─ ⎼ ⎽ ├ ┤ ┴ ┬ │ ≤ ≥ π ≠ £ · ' '
|
||||
; _ _ _ _ | | _ _ | ' ' ' ' ' ' ' ' ' ' ' ' ' '
|
||||
.byt $1f,$1f,$1f,$1f,$7c,$7c,$1f,$1f,$7c,$20,$20,$20,$20,$20,$20,$20 ; 3_
|
||||
|
||||
; --- unused -------------------------------------------------------
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ; 4_
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ; 5_
|
||||
|
||||
; --- normal -------------------------------------------------------
|
||||
; ◆ ▒ ␉ ␌ ␍ ␊ ° ±  ␋ ┘ ┐ ┌ └ ┼ ⎺
|
||||
; ◆ ▒ ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ┘ ' ' _ ⎿ ⎿ ⎺
|
||||
.byt $5b,$56,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$a0,$5f,$a0,$9f,$54,$54,$4c ; 6_
|
||||
; ⎻ ─ ⎼ ⎽ ├ ┤ ┴ ┬ │ ≤ ≥ π ≠ £ · ' '
|
||||
; ─ _ _ _ ├ ⎸ ⎿ _ ⎸ ' ' ' ' ' ' ' ' ' ' ' ' ' '
|
||||
.byt $53,$9f,$9f,$9f,$54,$5f,$54,$9f,$5f,$a0,$a0,$a0,$a0,$a0,$a0,$a0 ; 7_
|
||||
|
||||
; -------------------------------------
|
||||
; table keyboard to ASCII
|
||||
;
|
||||
|
||||
@ -169,6 +169,8 @@ vVector = tmp1
|
||||
; --- esc mode ---
|
||||
; $00 = normal
|
||||
; $0f = esc mode
|
||||
; $fd = esc ( mode
|
||||
; $fe = esc ) mode
|
||||
; $ff = esc [ mode
|
||||
; $f0 = ignore one char
|
||||
EMode .res 1
|
||||
@ -201,11 +203,20 @@ AFore .res 1
|
||||
; background
|
||||
ABack .res 1
|
||||
|
||||
; --- line drawing ---
|
||||
; contains four bits
|
||||
; bit 0 = G0 is line drawing
|
||||
; bit 1 = G1 is iine drawing
|
||||
; bit 6 = do line drawing
|
||||
; bit 7 = G1 is invoked
|
||||
Draw: .res 1
|
||||
|
||||
; --- crsr save area ---
|
||||
; here is crsr info saved with ESC 7
|
||||
; and restored from with ESC 8
|
||||
SaveF .res 1 ; font
|
||||
SaveR .res 1 ; reverse mode
|
||||
SaveD .res 1 ; line drawing
|
||||
SaveRow .res 1 ; row
|
||||
SaveCol .res 1 ; column
|
||||
|
||||
@ -263,9 +274,15 @@ ExitTerminal
|
||||
|
||||
ProcIn lda EMode ; handle esc mode
|
||||
bne PIEsc
|
||||
tya ; set 6502 N flag
|
||||
tya
|
||||
bmi PIrts ; ignore non-ASCII
|
||||
lda atp,y ; ASCII to PETSCII
|
||||
bit Draw ; line drawing?
|
||||
bvc PI1 ; no
|
||||
cmp #$60 ; line drawing char?
|
||||
bcc PI1 ; no
|
||||
eor #$e0 ; $60-$7f -> $80-$9f
|
||||
tay
|
||||
PI1 lda atp,y ; ASCII to PETSCII
|
||||
beq PIrts ; ignore $00
|
||||
cmp #$01 ; something special?
|
||||
beq Special
|
||||
@ -342,8 +359,22 @@ D5a tay ; col to y
|
||||
ldx sRow ; line to x
|
||||
jsr CPlot ; set crsr
|
||||
rts
|
||||
; --- SO ---
|
||||
D6 cmp #$0e ; SO?
|
||||
bne D7
|
||||
asl Draw
|
||||
sec ; set G1 invoked
|
||||
ror Draw
|
||||
jmp SLD
|
||||
; --- SI ---
|
||||
D7 cmp #$0f ; SI?
|
||||
bne D8
|
||||
asl Draw
|
||||
clc ; clear G1 invoked
|
||||
ror Draw
|
||||
jmp SLD
|
||||
|
||||
D6 rts
|
||||
D8 rts
|
||||
|
||||
; -------------------------------------
|
||||
; esc mode
|
||||
@ -384,11 +415,15 @@ SEsc tya ; restore char
|
||||
; --- ( ---
|
||||
E2 cmp #$28 ; ( ?
|
||||
bne E3
|
||||
jmp sThrow
|
||||
lda #$fd ; set esc ( mode
|
||||
sta EMode
|
||||
rts
|
||||
; --- ) ---
|
||||
E3 cmp #$29 ; ) ?
|
||||
bne E4
|
||||
jmp sThrow
|
||||
lda #$fe ; set esc ) mode
|
||||
sta EMode
|
||||
rts
|
||||
; --- # ---
|
||||
E4 cmp #$23 ; # ?
|
||||
bne E5
|
||||
@ -427,6 +462,8 @@ E8 cmp #$37 ; 7 ?
|
||||
sta SaveF
|
||||
lda Rvs ; save reverse mode
|
||||
sta SaveR
|
||||
lda Draw ; save line drawing
|
||||
sta SaveD
|
||||
ldx sRow ; save position
|
||||
ldy sCol
|
||||
stx SaveRow
|
||||
@ -439,6 +476,8 @@ E9 cmp #$38 ; 8 ?
|
||||
ldx SaveRow ; restore pos
|
||||
ldy SaveCol
|
||||
jsr CPlot
|
||||
lda SaveD ; restore line drawing
|
||||
sta Draw
|
||||
lda SaveR ; restore ..
|
||||
sta Rvs ; .. reverse mode
|
||||
ldx SaveF ; restore font
|
||||
@ -461,12 +500,17 @@ sThrow lda #$f0 ; set esc mode $f0
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; [ esc mode
|
||||
; [ or ( or ) esc modes
|
||||
;
|
||||
; EMode = $ff
|
||||
; EMode = $ff or $fd or $fe
|
||||
; -------------------------------------
|
||||
|
||||
LEsc tya ; restore char
|
||||
LEsc lda EMode
|
||||
cmp #$ff
|
||||
beq LE1b
|
||||
jmp SCS ; ( esc or ) esc
|
||||
|
||||
LE1b tya ; restore char
|
||||
|
||||
ldy EBufL
|
||||
sta EBuf,y ; store char
|
||||
@ -837,6 +881,43 @@ LEend lda #$00
|
||||
sta EMode ; reset esc mode
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; ( or ) esc modes (select char set)
|
||||
;
|
||||
; EMode = $fd or $fe in A
|
||||
; -------------------------------------
|
||||
|
||||
SCS and #$03 ; $01 or $02
|
||||
cpy #'0' ; line drawing?
|
||||
bne SCS1
|
||||
ora Draw ; set Gx line drawing
|
||||
jmp SCS2
|
||||
SCS1 eor #$ff ; $fe or $fd
|
||||
and Draw ; clear Gx line drawing
|
||||
SCS2 sta Draw
|
||||
jsr SLD
|
||||
jmp LEend
|
||||
|
||||
; -------------------------------------
|
||||
; SLD - set line drawing
|
||||
;
|
||||
; set bit 6 based on bits 0, 1, 7
|
||||
;--------------------------------------
|
||||
|
||||
SLD lda Draw
|
||||
bmi SLD1 ; G1 is invoked?
|
||||
and #$01 ; no -> G0..
|
||||
jmp SLD2
|
||||
SLD1 and #$02 ; yes -> G1..
|
||||
SLD2 beq SLD3 ; ..is line drawing?
|
||||
lda #$40 ; yes -> set..
|
||||
ora Draw ; ..line drawing
|
||||
jmp SLD4
|
||||
SLD3 lda #$bf ; no -> clear..
|
||||
and Draw ; ..line drawing
|
||||
SLD4 sta Draw
|
||||
rts
|
||||
|
||||
; -------------------------------------
|
||||
; GetNum - get decimal number from
|
||||
; esc sequence
|
||||
@ -1283,10 +1364,11 @@ PC1 cmp #$a0
|
||||
and #$3f
|
||||
ora #$40
|
||||
jmp PCrvs
|
||||
; -- $80-$9f -- upper control
|
||||
PC2 cmp #$80 ; no output
|
||||
; -- $80-$9f -- line drawing (moved from $60-$7f)
|
||||
PC2 cmp #$80
|
||||
bcc PC3
|
||||
jmp PCend
|
||||
eor #$e0 -> $60-$7f in custom font
|
||||
jmp PCrvs
|
||||
; -- $60-$7f -- lower capital
|
||||
PC3 cmp #$60 ; for string constants
|
||||
bcc PC4
|
||||
@ -1817,9 +1899,9 @@ ExitScr
|
||||
atp ;_0 _1 _2 _3 _4 _5 _6 _7 _8 _9 _a _b _c _d _e _f
|
||||
|
||||
; --- Control chars ------------------------------------------------
|
||||
; NUL ACK BEL BS TAB LF CR
|
||||
; C C C C C
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$00,$00,$01,$00,$00 ; 0_
|
||||
; NUL ACK BEL BS TAB LF CR SO SI
|
||||
; C C C C C C C
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$01,$01,$01,$01,$00,$00,$01,$01,$01 ; 0_
|
||||
; NAK ESC
|
||||
; C
|
||||
.byt $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01,$00,$00,$00,$00 ; 1_
|
||||
@ -1846,6 +1928,12 @@ atp ;_0 _1 _2 _3 _4 _5 _6 _7 _8 _9 _a _b _c _d _e _f
|
||||
; / / / / / / / / / / / / / / /
|
||||
.byt $50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5a,$db,$dc,$dd,$de,$00 ; 7_
|
||||
|
||||
; --- line drawing (moved from $60-$7f) ----------------------------
|
||||
; ◆ ▒ ␉ ␌ ␍ ␊ ° ±  ␋ ┘ ┐ ┌ └ ┼ ⎺
|
||||
.byt $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f ; 8_
|
||||
; ⎻ ─ ⎼ ⎽ ├ ┤ ┴ ┬ │ ≤ ≥ π ≠ £ · ' '
|
||||
.byt $90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9a,$9b,$9c,$9d,$9e,$9f ; 9_
|
||||
|
||||
; -------------------------------------
|
||||
; table PETSCII to ASCII
|
||||
;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user