.MACRO ALODF$ L,B .asect .=0 s.stat'L': .blkw 1 ;status bits and relative disk address s.addr'L': .blkw 1 ;load address s.size'L': .blkw 1 ;segment length in bytes s.lkup'L': .blkw 1 ;link to next higher level (from root) s.lkdn'L': .blkw 1 ;link to next lower level (toward root) s.lknt'L': .blkw 1 ;link to neighbor on same level s.name'L': .blkw 2 ;segment name in radix-50 s.pwdb'L': .blkw 1 ;window descriptor address (if required) s.lgth'L': ;total length of the descriptor .=0 ; ; Bit and field definitions for the segment status word s.stat ; ss.rda 'B'= ^b0000111111111111 ;relative disk address field ss.nld 'B'= ^b0001000000000000 ;segment is not loaded and/or not mapped ss.dsk 'B'= ^b0010000000000000 ;segment has been loaded from disk ss.nal 'B'= ^b0100000000000000 ;segment has no disk allocation .psect .MACRO ALODF$ X,Y .ENDM .ENDM ALODF$