Directory of image this file is from
This file as a plain text file
DCA OPTION; TAD I (7645; CDF 0 / NUMBER OPTIONS RTL; AND (7760; SNA; JMP .+5 ISZ OPTION; RAL; SNL; JMP .-3 CLA; DCA ERROR; JMP I SAVOPT IFDEF ALBIN < SAVFIL, 0 / CLEAR OPTION BIT 0 IF NON FILE TAD NAM; SNA; TAD NAM+1; SNA CLA CLL CML RAR; CMA; AND OPTION DCA OPTION; JMP I SAVFIL > PAGE EJECT ALRNAM, FILENAME RALGOL.SV FILENAME MACROA.SV CHAIN, DCA PO; JMS GETLNAM / GET FIRST OUTPUT TAD FOBN; CDF 10; DCA I (7620 IFDEF ALBIN < TAD I (7617; DCA OPTION-1 > TAD I (7600; DCA I (7617 DCA I (7621; CDF 0 IFDEF ALBIN < TAD ONAM+1; TAD (-6060; SNA CLA; JMS DELONAM TAD OPTION-1; DCA ONAM ISZ ONAM+4; JMS DELQ / CHECK DELETE OF .AC NOP; TAD OPTION; AND (400; SNA CLA JMP EXOS8 > IFNDEF ALBIN < TAD OPTION; AND (2400; SNA CLA / OPT G OR M? JMP GOS8; TAD OPTION; AND K3000 / M OR MACH CODE? SNA CLA; JMS DELQ; TAD K4 > TAD (ALRNAM; DCA AR1; TAD I PNULOUT K3000, DCA 0 TAD I 0; TAD ERROR / ERRORS? SZA CLA; E14, JMS ERR1 /YES! CLA IAC; JMS LOOKUP; SKP / OK ITS THERE E15, JMS ERR1 TAD AR1; DCA BLOCK CIF 10 JMS I USR 6 / GO CHAIN BLOCK, 0 E16, JMS ERR1 / SHOULD NOT GET HERE! GOS8, JMS DELQ; K4, 4; JMP EXOS8 PNULOUT, NULOUT NULL, TAD I PNULOUT; DCA POUT TAD OPTION; AND (2400; SNA CLA; JMP EXITFH CDF 10; TAD I (7643; AND (7377; TAD (400 DCA I (7643; TAD (7600; DCA 14 CLA IAC; DCA I (7600 TAD (6060; DCA I 14 TAD (6060; DCA I 14 TAD (6060; DCA I 14 CDF 0; TAD (7600; DCA PO JMP LOADON PREROR, TAD ERR0; DCA ERR1; JMP ERR1+2 ERR1, 0 DCA 15 JMS MESAGE; TEXT /OS8 ERROR AT / JMS OUTUSR; CLA CMA; TAD ERR1; JMS OPS EXOS8, JMS KBDCHK; TSF; JMP .-2; JMP 7600 PAGE EJECT STAVE, DCA MEM; TAD (7700; DCA USR; JMS I (7607 4400 / SAVE 4 PAGES IBUFFR 40 / WHERE THEY CAN BE RECALLED E17, HLT TAD GORUN+1 / =DCA MEM ON THAT PAGE DCA FHANDL+1 TAD (FEX; DCA EXITFH+3 CHANGE, NOP / OR JMP FHANDL+2 TAD (7600-1; DCA 14; TAD (-47; DCA CT CDF 10; DCA I 14; ISZ CT; JMP .-2 CDF 0; / THAT SHOULD CLEAR IN-OUT TABLES DCA 201 / ALSO CLEAR ANY RE-ENTRY SAVEX, JMP DISKIT / SET EXTENSION .AC OR .AB AS DEFINED STAVE2, TAD (OEXTN; CDF 10; DCA I (7604 CDF 0; JMS SAVOPT TAD SAVEX; DCA CHANGE; DCA 201; JMP 200 CT, 0 $$$$$$