1 2 /EAE OVERLAY FOR ROGALGOL INTEGER OPERATING SYSTEM 3 4 POP=JMS 37 5 T4=72 6 OR=655 7 MUL=447 8 DIV=457 9 PNEXT=43 10 PC=10 11 SET1=735 12 T1=67 13 WORD=26 14 PRINT=1075 15 SP=30 16 XNEXT6=201 17 NEXA=236 18 PSDMUY=1254 19 PSDDVI=1220 20 SUDOMQ=47 21 22 FIELD 0 23 24 000216 7417 *XNEXT6+15; LSR; 5; JMP I XNEXT6 000217 0005 000220 5601 25 26 *NEXA+7 27 000245 7417 LSR; 5; TAD .+3; DCA .+1; HLT; JMP I 100 000246 0005 000247 1252 000250 3251 000251 7402 000252 5500 28 29 000447 3072 *MUL; DCA T4; JMS SIGN1; DCA M1; JMS SIGN1 000450 4274 000451 3254 000452 4274 30 000453 7425 MQL MUY 31 000454 0000 M1, 0; JMP SIGN2 000455 5265 32 33 000457 3072 *DIV; DCA T4; JMS SIGN1; DCA D1; JMS SIGN1 000460 4274 000461 3264 000462 4274 34 000463 7427 MQL DVI 35 000464 0000 D1, 0 36 000465 7200 SIGN2, CLA; TAD T4; RAR 000466 1072 000467 7010 37 000470 7701 CLA MQA; SZL; CIA; JMP I PNEXT+1 000471 7430 000472 7041 000473 5444 38 000474 0000 SIGN1, 0; ISZ SP; TAD I SP; SPA; ISZ T4; SPA; CIA; JMP I SIGN1 000475 2030 000476 1430 000477 7510 000500 2072 000501 7510 000502 7041 000503 5674 39 40 001101 7421 *PRINT+4; MQL 41 001107 7407 *PRINT+12; DVI 42 001112 7407 *PRINT+15; DVI 43 001115 7407 *PRINT+20; DVI 44 001120 7501 *PRINT+23; MQA 45 46 *PSDDVI 47 001220 0000 0; DCA PSD1; TAD I PSDDVI; ISZ PSDDVI; DCA PSD2 001221 3237 001222 1620 001223 2220 001224 3231 48 001225 1047 TAD SUDOMQ; MQL; TAD PSD1; DVI 001226 7421 001227 1237 001230 7407 49 001231 0000 PSD2, 0; DCA PSD1; MQA; DCA SUDOMQ; TAD PSD1; JMP I PSDDVI 001232 3237 001233 7501 001234 3047 001235 1237 001236 5620 50 001237 0000 PSD1, 0 51 52 *PSDMUY 53 001254 0000 0; DCA PSM1; TAD I PSDMUY; ISZ PSDMUY; DCA PSM2 001255 3273 001256 1654 001257 2254 001260 3265 54 001261 1047 TAD SUDOMQ; MQL; TAD PSM1; MUY 001262 7421 001263 1273 001264 7405 55 001265 0000 PSM2, 0; DCA PSM1; MQA; DCA SUDOMQ; TAD PSM1; JMP I PSDMUY 001266 3273 001267 7501 001270 3047 001271 1273 001272 5654 56 001273 0000 PSM1, 0 57 58 *OR 59 000655 4037 POP; MQL; POP; MQA; JMP PNEXT 000656 7421 000657 4037 000660 7501 000661 5043 60 61 *SET1 62 000735 1026 TAD WORD; DCA T1 /HAS MS BITS 000736 3067 63 000737 6211 CDF 10; TAD I PC; CDF; DCA WORD 000740 1410 000741 6201 000742 3026 64 000743 1026 TAD WORD; MQL; TAD T1 000744 7421 000745 1067 65 000746 7413 SHL; 5; JMP I PNEXT+1 000747 0005 000750 5444 66 $ D1 0464 DIV 0457 M1 0454 MUL 0447 NEXA 0236 OR 0655 PC 0010 PNEXT 0043 POP 4037 PRINT 1075 PSD1 1237 PSD2 1231 PSDDVI 1220 PSDMUY 1254 PSM1 1273 PSM2 1265 SET1 0735 SIGN1 0474 SIGN2 0465 SP 0030 SUDOMQ 0047 T1 0067 T4 0072 WORD 0026 XNEXT6 0201