1 ; define the segment ordering ;AN000;bgb
3 data segment public para 'DATA' ;AN000;bgb
4 data ends ;put this 1st so that the recmsg works ;AN000;bgb
6 code segment public PARA 'CODE' ;AN000;bgb
9 const segment public para 'const' ;AN000;bgb
12 cstack segment stack word 'stack' ;AN000;bgb
13 db (362 - 80h) + 256 dup (?) ; (362 - 80h) == IBM's ROM requirements ;AN000;bgb
14 cstack ends ; (New - Old) == size of growth ;AN005;bgb
16 lastseg segment public para 'last' ;AN005;bgb
17 lastseg ends ;put last because 'table' writes over memory ;AN005;bgb
19 dg group data,const,code,cstack,lastseg ;AN000;bgb
20 assume cs:dg,ds:dg,es:dg,ss:CSTACK ;AN000;bgb