.MACRO $GKS .MCALL $ALLOC, $FORALLWS .MCALL $ENDFOR .WSBEG = 0 .WSEND = 0 LST$$ = 1 .ENDM .MACRO $ALLOC NBYTES,ADDRES,?NEXT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT .EMIT ; Can't go on. .EMITL .ENDM .MACRO $FORALLWS .EMIT .EMIT < ; list.> .EMIT .WSBEG = .WSBEG + 1 ..TAG \.WSBEG,BWS .EMIT ..BRAN BLT,\.WSEND,EWS .EMIT .EMIT .ENDM .MACRO $ENDFOR .EMIT ..BRAN BR,\.WSBEG,BWS ..TAG \.WSEND,EWS .WSEND = .WSEND+1 .EMIT .ENDM