Datapoint's Advanced System Language.
A cross between C and Pascal by Gene Hughes with custom features for Datapoint hardware (no stack). It is used internally by Datapoint.