(NUMBER) "PER BRINCH HANSEN INFORMATION SCIENCE CALIFORNIA INSTITUTE OF TECHNOLOGY UTILITY PROGRAMS FOR THE SOLO SYSTEM 18 MAY 1975" "########### # PREFIX # ###########" CONST NL = '(:10:)'; FF = '(:12:)'; CR = '(:13:)'; EM = '(:25:)'; CONST PAGELENGTH = 512; TYPE PAGE = ARRAY (.1..PAGELENGTH.) OF CHAR; CONST LINELENGTH = 132; TYPE LINE = ARRAY (.1..LINELENGTH.) OF CHAR; CONST IDLENGTH = 12; TYPE IDENTIFIER = ARRAY (.1..IDLENGTH.) OF CHAR; TYPE FILE = 1..2; TYPE FILEKIND = (EMPTY, SCRATCH, ASCII, SEQCODE, CONCODE); TYPE FILEATTR = RECORD KIND: FILEKIND; ADDR: INTEGER; PROTECTED: BOOLEAN; NOTUSED: ARRAY (.1..5.) OF INTEGER END; TYPE IODEVICE = (TYPEDEVICE, DISKDEVICE, TAPEDEVICE, PRINTDEVICE, CARDDEVICE); TYPE IOOPERATION = (INPUT, OUTPUT, MOVE, CONTROL); TYPE IOARG = (WRITEEOF, REWIND, UPSPACE, BACKSPACE); TYPE IORESULT = (COMPLETE, INTERVENTION, TRANSMISSION, FAILURE, ENDFILE, ENDMEDIUM, STARTMEDIUM); TYPE IOPARAM = RECORD OPERATION: IOOPERATION; STATUS: IORESULT; ARG: IOARG END; TYPE TASKKIND = (INPUTTASK, JOBTASK, OUTPUTTASK); TYPE ARGTAG = (NILTYPE, BOOLTYPE, INTTYPE, IDTYPE, PTRTYPE); TYPE POINTER = @BOOLEAN; TYPE ARGTYPE = RECORD CASE TAG: ARGTAG OF NILTYPE, BOOLTYPE: (BOOL: BOOLEAN); INTTYPE: (INT: INTEGER); IDTYPE: (ID: IDENTIFIER); PTRTYPE: (PTR: POINTER) END; CONST MAXARG = 10; TYPE ARGLIST = ARRAY (.1..MAXARG.) OF ARGTYPE; TYPE ARGSEQ = (INP, OUT); TYPE PROGRESULT = (TERMINATED, OVERFLOW, POINTERERROR, RANGEERROR, VARIANTERROR, HEAPLIMIT, STACKLIMIT, CODELIMIT, TIMELIMIT, CALLERROR); PROCEDURE READ(VAR C: CHAR); PROCEDURE WRITE(C: CHAR); PROCEDURE OPEN(F: FILE; ID: IDENTIFIER; VAR FOUND: BOOLEAN); PROCEDURE CLOSE(F: FILE); PROCEDURE GET(F: FILE; P: INTEGER; VAR BLOCK: UNIV PAGE); PROCEDURE PUT(F: FILE; P: INTEGER; VAR BLOCK: UNIV PAGE); FUNCTION LENGTH(F: FILE): INTEGER; PROCEDURE MARK(VAR TOP: INTEGER); PROCEDURE RELEASE(TOP: INTEGER); PROCEDURE IDENTIFY(HEADER: LINE); PROCEDURE ACCEPT(VAR C: CHAR); PROCEDURE DISPLAY(C: CHAR); PROCEDURE READPAGE(VAR BLOCK: UNIV PAGE; VAR EOF: BOOLEAN); PROCEDURE WRITEPAGE(BLOCK: UNIV PAGE; EOF: BOOLEAN); PROCEDURE READLINE(VAR TEXT: UNIV LINE); PROCEDURE WRITELINE(TEXT: UNIV LINE); PROCEDURE READARG(S: ARGSEQ; VAR ARG: ARGTYPE); PROCEDURE WRITEARG(S: ARGSEQ; ARG: ARGTYPE); PROCEDURE LOOKUP(ID: IDENTIFIER; VAR ATTR: FILEATTR; VAR FOUND: BOOLEAN); PROCEDURE IOTRANSFER (DEVICE: IODEVICE; VAR PARAM: IOPARAM; VAR BLOCK: UNIV PAGE); PROCEDURE IOMOVE(DEVICE: IODEVICE; VAR PARAM: IOPARAM); FUNCTION TASK: TASKKIND; PROCEDURE RUN(ID: IDENTIFIER; VAR PARAM: ARGLIST; VAR LINE: INTEGER; VAR RESULT: PROGRESULT); PROGRAM P(VAR PARAM: ARGLIST); "############# # MAKETEMP # #############" "INSERT PREFIX HERE" TYPE FILEMAP = RECORD LENGTH: INTEGER; PAGESET: ARRAY (.1..255.) OF INTEGER END; VAR OK: BOOLEAN; MAPADDR1, MAPADDR2: INTEGER; OLDMAP1, NEWMAP1, OLDMAP2, NEWMAP2: FILEMAP; PROCEDURE WRITETEXT(TEXT: LINE); VAR I: INTEGER; C: CHAR; BEGIN I:= 0; REPEAT I:= I + 1; C:= TEXT(.I.); DISPLAY(C); UNTIL C = NL; END; PROCEDURE TRANSFER(HOW: IOOPERATION; ADDR: UNIV IOARG; VAR MAP: FILEMAP); VAR PARAM: IOPARAM; RESPONSE: CHAR; BEGIN WITH PARAM DO BEGIN OPERATION:= HOW; ARG:= ADDR; IOTRANSFER(DISKDEVICE, PARAM, MAP); WHILE STATUS <> COMPLETE DO BEGIN WRITETEXT('DISK ERROR (:10:)'); REPEAT ACCEPT(RESPONSE) UNTIL RESPONSE = NL; IOTRANSFER(DISKDEVICE, PARAM, MAP); END; END; END; PROCEDURE MAKEFILE(TEMP: IDENTIFIER); VAR LINE: INTEGER; RESULT: PROGRESULT; LIST: ARGLIST; BEGIN WITH LIST(.1.) DO BEGIN TAG:= BOOLTYPE; BOOL:= FALSE END; WITH LIST(.2.) DO BEGIN TAG:= IDTYPE; ID:= 'CREATE ' END; WITH LIST(.3.) DO BEGIN TAG:= IDTYPE; ID:= TEMP END; WITH LIST(.4.) DO BEGIN TAG:= INTTYPE; INT:= 255 END; WITH LIST(.5.) DO BEGIN TAG:= IDTYPE; ID:= 'SCRATCH ' END; WITH LIST(.6.) DO BEGIN TAG:= BOOLTYPE; BOOL:= TRUE END; RUN('FILE ', LIST, LINE, RESULT); IDENTIFY('MAKETEMP:(:10:)'); IF (RESULT <> TERMINATED) OR NOT LIST(.1.).BOOL THEN BEGIN WRITETEXT('FILE LOST(:10:)'); OK:= FALSE; END; END; PROCEDURE GETFILE(ID: IDENTIFIER; VAR ADDR: INTEGER); VAR ATTR: FILEATTR; FOUND: BOOLEAN; BEGIN LOOKUP(ID, ATTR, FOUND); IF FOUND THEN BEGIN WRITETEXT('FILE ALREADY EXISTS(:10:)'); OK:= FALSE; END ELSE BEGIN MAKEFILE(ID); LOOKUP(ID, ATTR, FOUND); ADDR:= ATTR.ADDR; END; END; PROCEDURE INITIALIZE; BEGIN IDENTIFY('MAKETEMP:(:10:)'); OK:= TRUE; GETFILE('TEMP1 ', MAPADDR1); GETFILE('TEMP2 ', MAPADDR2); IF OK THEN BEGIN TRANSFER(INPUT, MAPADDR1, OLDMAP1); TRANSFER(INPUT, MAPADDR2, OLDMAP2); END; END; PROCEDURE INTERLEAVE; VAR I: INTEGER; BEGIN FOR I:= 1 TO 128 DO NEWMAP1.PAGESET(.I.):= OLDMAP1.PAGESET(.2*I - 1.); FOR I:= 129 TO 255 DO NEWMAP1.PAGESET(.I.):= OLDMAP2.PAGESET(.2*I - 256.); FOR I:= 1 TO 127 DO NEWMAP2.PAGESET(.I.):= OLDMAP1.PAGESET(.2*I.); FOR I:= 128 TO 255 DO NEWMAP2.PAGESET(.I.):= OLDMAP2.PAGESET(.2*I - 255.); NEWMAP1.LENGTH:= 255; NEWMAP2.LENGTH:= 255; END; PROCEDURE TERMINATE; BEGIN IF OK THEN BEGIN TRANSFER(OUTPUT, MAPADDR1, NEWMAP1); TRANSFER(OUTPUT, MAPADDR2, NEWMAP2); END; WITH PARAM(.1.) DO BEGIN TAG:= BOOLTYPE; BOOL:= OK END; END; BEGIN IF TASK = JOBTASK THEN BEGIN INITIALIZE; IF OK THEN INTERLEAVE; TERMINATE; END; END.