-
Notifications
You must be signed in to change notification settings - Fork 85
/
ed7.src
140 lines (113 loc) · 5.44 KB
/
ed7.src
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
.page
.subttl ed7 tables & data (08/15/85)
coltab .byte $90,$05,$1c,$9f,$9c,$1e,$1f,$9e ;color key codes
.byte $81,$95,$96,$97,$98,$99,$9a,$9b
coladj .byte $00,$0f,$08,$07,$0b,$04,$02,$0d ;convert rgbi to c64 colors
.byte $0a,$0c,$09,$06,$01,$05,$03,$0e
bits .byte $80,$40,$20,$10,$08,$04,$02,$01
localzp .byte $00,$04,$00,$d8,$18,$00,$00,$27 ;local variable init table
.byte $00,$00,$00,$00,$00,$18,$27,$00 ;(vic screen)
.byte $00,$0d,$0d,$00,$00,$00,$00,$00
.byte $00,$00
localabs
.byte $00,$00,$00,$08,$18,$00,$00,$4f ;absolute var init table
.byte $00,$00,$00,$00,$00,$18,$4f,$00 ;(8563 screen)
.byte $00,$07,$07,$00,$00,$00,$00,$00
.byte $00,$00
.page
pkytbl ;pre-programmed function key definitions
.byte pky2-pky1
.byte pky3-pky2
.byte pky4-pky3
.byte pky5-pky4
.byte pky6-pky5
.byte pky7-pky6
.byte pky8-pky7
.byte runtb-pky8
.byte helptb-runtb ;<shift><run> is a non-programmable function key
.byte pkyend-helptb ;<help> is too
pky1 .byte 'GRAPHIC'
pky2 .byte 'DLOAD"'
pky3 .byte 'DIRECTORY',cr
pky4 .byte 'SCNCLR',cr
pky5 .byte 'DSAVE"'
pky6 .byte 'RUN',cr
pky7 .byte 'LIST',cr
pky8 .byte 'MONITOR',cr
runtb .byte $44,$cc,$22,$2a,cr,'RUN',cr ;dL"* <cr> run <cr>
helptb .byte 'HELP',cr
pkyend
.page
.editor_check_mid1
* = $fa80
.editor_check_mid2
mode1 ;normal keys
.byte $14,$0d,$1d,$88,$85,$86,$87,$11 ;del ret rt f7 f1 f3 f5 dn
.byte $33,$57,$41,$34,$5a,$53,$45,$01 ; 3 w a 4 z s e shf
.byte $35,$52,$44,$36,$43,$46,$54,$58 ; 5 r d 6 c f t x
.byte $37,$59,$47,$38,$42,$48,$55,$56 ; 7 y g 8 b h u v
.byte $39,$49,$4a,$30,$4d,$4b,$4f,$4e ; 9 i j 0 m k o n
.byte $2b,$50,$4c,$2d,$2e,$3a,$40,$2c ; + p l - . : @ ,
.byte $5c,$2a,$3b,$13,$01,$3d,$5e,$2f ;lb. * ; hom shf = ^ /
.byte $31,$5f,$04,$32,$20,$02,$51,$03 ; 1 <-- ctl 2 spc C= q stop
.byte $84,$38,$35,$09,$32,$34,$37,$31 ;hlp (8) (5) tab (2) (4) (7) (1)
.byte $1b,$2b,$2d,$0a,$0d,$36,$39,$33 ;esc (+) (-) lf ent (6) (9) (3)
.byte $08,$30,$2e,$91,$11,$9d,$1d,$ff ;alt (0) (.) /up /dn /lf /rt scl
.byte $ff
.page
mode2 ;shifted keys (right keycap graphics)
.byte $94,$8d,$9d,$8c,$89,$8a,$8b,$91 ;ins RTN lft f8 f2 f4 f6 up
.byte $23,$d7,$c1,$24,$da,$d3,$c5,$01 ; # W A $ Z S E shf
.byte $25,$d2,$c4,$26,$c3,$c6,$d4,$d8 ; % R D & C F T X
.byte $27,$d9,$c7,$28,$c2,$c8,$d5,$d6 ; ' Y G ( B H U V
.byte $29,$c9,$ca,$30,$cd,$cb,$cf,$ce ; ) I J 0 M K O N
.byte $db,$d0,$cc,$dd,$3e,$5b,$ba,$3c ;+gr P L -gr > [ @gr <
.byte $a9,$c0,$5d,$93,$01,$3d,$de,$3f ;lbg *gr ] clr shf = pi ?
.byte $21,$5f,$04,$22,$a0,$02,$d1,$83 ; ! <-- ctl " SPC C= Q run
.byte $84,$38,$35,$18,$32,$34,$37,$31 ;hlp (8) (5) TAB (2) (4) (7) (1)
.byte $1b,$2b,$2d,$0a,$8d,$36,$39,$33 ;esc (+) (-) lf ENT (6) (9) (3)
.byte $08,$30,$2e,$91,$11,$9d,$1d,$ff ;alt (0) (.) /up /dn /lf /rt scl
.byte $ff
.page
mode3 ;C= keys (left keycap graphics)
.byte $94,$8d,$9d,$8c,$89,$8a,$8b,$91 ;ins RTN lft f8 f2 f4 f6 up
.byte $96,$b3,$b0,$97,$ad,$ae,$b1,$01 ;red W A cyn Z S E shf
.byte $98,$b2,$ac,$99,$bc,$bb,$a3,$bd ;pur R D grn C F T X
.byte $9a,$b7,$a5,$9b,$bf,$b4,$b8,$be ;blu Y G yel B H U V
.byte $29,$a2,$b5,$30,$a7,$a1,$b9,$aa ; ) I J 0 M K O N
.byte $a6,$af,$b6,$dc,$3e,$5b,$a4,$3c ;+gr P L -gr > [ @gr <
.byte $a8,$df,$5d,$93,$01,$3d,$de,$3f ;lbg *gr ] clr shf = pi ?
.byte $81,$5f,$04,$95,$a0,$02,$ab,$03 ;blk <-- ctl wht spc C= Q run
.byte $84,$38,$35,$18,$32,$34,$37,$31 ;hlp (8) (5) TAB (2) (4) (7) (1)
.byte $1b,$2b,$2d,$0a,$8d,$36,$39,$33 ;esc (+) (-) lf ENT (6) (9) (3)
.byte $08,$30,$2e,$91,$11,$9d,$1d,$ff ;alt (0) (.) /up /dn /lf /rt scl
.byte $ff
.page
mode4 ;control keys
.byte $ff,$ff,$ff,$ff,$ff,$ff,$ff,$ff ; ~ ~ ~ ~ ~ ~ ~ ~
.byte $1c,$17,$01,$9f,$1a,$13,$05,$ff ;red /w /a cyn /z /s /e ~
.byte $9c,$12,$04,$1e,$03,$06,$14,$18 ;pur /r /d grn /c /f /t /x
.byte $1f,$19,$07,$9e,$02,$08,$15,$16 ;yel /y /g yel /b /h /u /v
.byte $12,$09,$0a,$92,$0d,$0b,$0f,$0e ;ron /i /j rof /m /k /o /n
.byte $ff,$10,$0c,$ff,$ff,$1b,$00,$ff ; ~ /p /l ~ ~ /[ /@ ~
.byte $1c,$ff,$1d,$ff,$ff,$1f,$1e,$ff ;/lb ~ /] ~ ~ /= /pi ~
.byte $90,$06,$ff,$05,$ff,$ff,$11,$ff ;blk /<- ~ wht ~ ~ /q ~
.byte $84,$38,$35,$18,$32,$34,$37,$31 ;hlp (8) (5) TAB (2) (4) (7) (1)
.byte $1b,$2b,$2d,$0a,$8d,$36,$39,$33 ;esc (+) (-) lf ENT (6) (9) (3)
.byte $08,$30,$2e,$91,$11,$9d,$1d,$ff ;alt (0) (.) /up /dn /lf /rt scl
.byte $ff
.page
mode5 ;caps lock mode
.byte $14,$0d,$1d,$88,$85,$86,$87,$11 ;del ret rt f7 f1 f3 f5 dn
.byte $33,$d7,$c1,$34,$da,$d3,$c5,$01 ; 3 w a 4 z s e shf
.byte $35,$d2,$c4,$36,$c3,$c6,$d4,$d8 ; 5 r d 6 c f t x
.byte $37,$d9,$c7,$38,$c2,$c8,$d5,$d6 ; 7 y g 8 b h u v
.byte $39,$c9,$ca,$30,$cd,$cb,$cf,$ce ; 9 i j 0 m k o n
.byte $2b,$d0,$cc,$2d,$2e,$3a,$40,$2c ; + p l - . : @ ,
.byte $5c,$2a,$3b,$13,$01,$3d,$5e,$2f ;lb. * ; hom shf = ^ /
.byte $31,$5f,$04,$32,$20,$02,$d1,$03 ; 1 <-- ctl 2 spc C= q stop
.byte $84,$38,$35,$09,$32,$34,$37,$31 ;hlp (8) (5) tab (2) (4) (7) (1)
.byte $1b,$2b,$2d,$0a,$0d,$36,$39,$33 ;esc (+) (-) lf ent (6) (9) (3)
.byte $08,$30,$2e,$91,$11,$9d,$1d,$ff ;alt (0) (.) /up /dn /lf /rt scl
.byte $ff
;.end