ORG 000 BUN PRG ORG 100 PRG CLA STA SUM LDA VAD STA VPT LDA MSX STA TOX LOP LDA VPT I ADD SUM STA SUM ISZ VPT ISZ TOX BUN LOP HLT ORG 200 // The vector VEC DEC 105 DEC 107 DEC 256 DEC 2000 DEC 563 DEC -199 DEC 305 DEC 1 DEC -15 DEC 130 // the result SUM HEX 0 // temporary variables VPT HEX 0 TOX HEX 0 // constants VAD HEX 200 MSX DEC -10 END