/EAE OVERLAY FOR ROGALGOL OPERATING SYSTEM POP=JMS I 72 T4=4 MUL=704 DIV=714 PNEXT=35 SUBSA3=1625 SUBSA2=1637 XNEXT6=200 PSDMUY=1537 PSDDVI=1270 SUDOMQ=33 FIELD 1 *XNEXT6+15; LSR; 5; JMP I XNEXT6 *MUL; CLA CLL CMA RAL; DCA T4; JMS SIGN1; DCA M1; JMS SIGN1 MQL MUY M1, 0; JMP SIGN2 *DIV; CLA CLL CMA RAL; DCA T4; JMS SIGN1; DCA D1; JMS SIGN1 MQL DVI D1, 0 SIGN2, CLA MQA; ISZ T4; SKP; CIA; JMP I PNEXT SIGN1, 0; POP; SPA; ISZ T4; NOP SPA; CIA; JMP I SIGN1 *PSDDVI 0; DCA PSD1; TAD I PSDDVI; ISZ PSDDVI; DCA PSD2 TAD SUDOMQ; MQL; TAD PSD1; DVI PSD2, 0; DCA PSD1; MQA; DCA SUDOMQ; TAD PSD1; JMP I PSDDVI PSD1, 0 *PSDMUY 0; DCA PSM1; TAD I PSDMUY; ISZ PSDMUY; DCA PSM2 TAD SUDOMQ; MQL; TAD PSM1; MUY PSM2, 0; DCA PSM1; MQA; DCA SUDOMQ; TAD PSM1; JMP I PSDMUY PSM1, 0 *SUBSA3+4; MQL *SUBSA2-1; MUY; 0; CLA MQA $