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
|
*= $3400
.incbin "font.dat"
; shoehorn the transmit & receive buffers here
*= $3800
rx_buf ; 512 bytes
*= $3a00
tx_buf ; 512 bytes
*= $3c00
scr_vis_buf ; not used yet
*= $4000
; screen RAM starts at the XE bankswitching window!
; 7 double-height screens, 50 lines each.
scr0_top
*= * + 1000
scr1_top
*= * + 1000
scr2_top
*= * + 1000
edbox_only_dlist
; can't cross a 4K boundary...
*= $5000
scr3_top
*= * + 1000
scr4_top
*= * + 1000
scr5_top
*= * + 1000
scr6_top
*= $6000
scr0_bot
*= * + 1000
scr1_bot
*= * + 1000
scr2_bot
*= * + 1000
*= $7000
scr3_bot
*= * + 1000
scr4_bot
*= * + 1000
scr5_bot
*= * + 1000
scr6_bot
*= * + 1000
dlist_top
*= * + 48
dlist_bot
*= * + 48
*= dlist_top ; used when scrolled up
.byte $70, $70, $30 ; 2 8-line blanks, 1 4-line blank
.byte $42 ; LMS GR.0
dl_top_lms
.word scr0_top
.byte $02, $02, $02, $02, $02, $02, $02, $02
.byte $02, $02, $02, $02, $02, $02, $02, $02
.byte $02, $02, $02, $02, $02, $02, $02, $02 ; 24 GR.0 lines
.byte $41 ; JVB
.word dlist_top
*= dlist_bot ; used when not scrolled up
.byte $70, $70, $30 ; 2 8-line blanks, 1 4-line blank
.byte $42 ; LMS GR.0
dl_bot_lms
.word scr0_bot
.byte $02, $02, $02, $02, $02, $02, $02, $02
.byte $02, $02, $02, $02, $02, $02, $02, $02
.byte $02, $02, $02, $02, $02, $02 ; 22 GR.0 lines
.byte $00
.byte $42 ; LMS GR.0
dl_status_lms
.word scr0_bot+920 ; line 23
.byte $06 ; one GR.1 line
.byte $41 ; JVB
.word dlist_bot
topbot_dlist_done
*= edbox_only_dlist
.byte $70, $70, $30 ; 2 8-line blanks, 1 4-line blank
.byte $70, $70, $70, $70, $70, $70, $70, $70
.byte $42
.word $0600 ; edit_box from addrs.c
.byte $02, $02, $02, $02, $02
.byte $00
.byte $42
.word $a798 ; status_box from addrs.c
.byte $06 ; GR.1
.byte $41
.word edbox_only_dlist
edbox_dlist_done
|
