We can now discard the _DISCARD segment - yay, another 1K
; when they are first seen.
.area _CODE
.area _CODE2
- .area _DISCARD ; not discarded yet
.area _CONST
.area _DATA
.area _INITIALIZED
.area _INITIALIZER
.area _GSINIT
.area _GSFINAL
+ .area _DISCARD
.area _COMMONMEM
; imported symbols
.globl s__INITIALIZER
.globl s__COMMONMEM
.globl l__COMMONMEM
+ .globl s__DISCARD
+ .globl l__DISCARD
.globl s__DATA
.globl l__DATA
.globl kstack_top
ld de, #s__COMMONMEM
ld bc, #l__COMMONMEM
ldir
+ ; and the discard
+ ld de, #s__DISCARD
+ ld bc, #l__DISCARD
+ ldir
; then zero the data area
ld hl, #s__DATA
ld de, #s__DATA + 1