

*DEFINE (OsSubLab ( n, pName ))
(SSEVAL(N8)   SEGMENT AT (0FFFFh(16*(N8)))
        ORG     (230h+(100h*(N8))+2*N10h*(N8))
PUBLIC  Prefix(pName)
Prefix(pName)  EQU     THIS BYTE
        SSEVAL(N8)   ENDS
)

*DEFINE (Same( original , copy ))(
PUBLIC Prefix(copy)
Prefix(copy) EQU Prefix(original)
)

IF (not(*Isdef(Prefix))) THEN ('
DEFINE(Prefix)()' No prefix, names are asis
)FI

o0	__PP	