INS 19/1 ;07C1 ;JEH 09-JUN-83 [1472] fix DIVIDE literal INTO DN1, DN2, etc. REP 29/36 ;07C2 MOVE TE,[EBASEB,,ESAVDV##] WIT DIVX5S: MOVE TE,[EBASEB,,ESAVDV##] ;[1472] INS 47/40 ;07C3 IFN ANS74,< SKIPE DIVSRS ;[1472] IS IT DIVIDE SERIES? SKIPE DIVTMP ;[1472] AND "B" NOT SAVED YET? SKIPA ;[1472] NO JRST DIVX5S ;[1472] YES > ;[1472] SUM 57090