interpreter. In this respect it has been very successful, especially on microprocessor-based systems. The code is similar to OCODE but has a greater range of instructions to handle objects of differing types. procedure ERROR:(VAL:INTEGER); begin 0: ENT *4 TOTAL := TOTAL* 1; 1: LDO 138 2: LDCI 1 3: ADDI 4: SRO 138 if INDEX >= 9 then begin 5: LDO 139 6: LDCI 9 7: GEQI 8: FJP 17 LIST[10].NUM := 255 9: LAO 140 10: LDCI 10 11: DEC 1 12: IXA 2 13: INC 1 14: LDCI 255 15: STO end else begin 16: UJP 28 INDEX := INDEX+1; 17: LDO 139 18: LDCI 1 19: ADDI 20: SRO 139 LIST[INDEX].NUM := VAL 21: LAO 140 22: LDO 139 23: DEC 1 24: IXA 2 25: INC 1 26: LOD 0, 4 27: STO end; end; 28: RETP