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
|
.bank
*= $3400
.incbin "font.dat"
.bank
*= $3360
dlist_vis
.byte $70, $70, $30 ; 2 8-line blanks, 1 4-line blank
.byte $42 ; LMS GR.0
dl_bot_lms
.word scr_vis_buf
.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 status_box ; line 23
.byte $06 ; one GR.1 line
.byte $41 ; JVB
.word dlist_vis
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 status_box ; status_box from addrs.c
.byte $06 ; GR.1
.byte $41
.word edbox_only_dlist
status_box
.rept 60
.byte 0
.endr
status_box_end = status_box + 60
; $3400 - $37ff is the font!
; shoehorn the transmit & receive buffers here
.bank
*= $3800
rx_buf ; 512 bytes
.bank
*= $3a00
tx_buf ; 512 bytes
.bank
*= $3c00
scr_vis_buf ; not used yet
.bank
*= $3fa0
end_marker ; a line_t (42 bytes)
.byte <end_marker ; points to
.byte >end_marker ; itself!
.byte $fe ; inverse ~
.rept 39
.byte 0 ; rest of the line is nulls (look like spaces)
.endr
.bank
*= $4000
; screen RAM starts at the XE bankswitching window!
scr_main_mem
.bank
*= $7fff
scr_main_mem_end
|
