perm filename GOGOL.SRC[10X,AIL] blob
sn#145759 filedate 1975-02-15 generic text, type T, neo UTF8
1) GOGOL vs. 2) GOGOL[S,AIL] SRCCOM 02-15-75 15:07 PAGES 1,1
******** GOGOL **** PAGE 1 LINE 1
1) COMMENT ⊗ VALID 00062 PAGES VERSION 18-1(13)
1) RECORD PAGE DESCRIPTION
*** GOGOL[S,AIL] *** PAGE 1 LINE 1
2) COMMENT ⊗ VALID 00062 PAGES VERSION 18-1(12)
2) RECORD PAGE DESCRIPTION
******** GOGOL **** PAGE 1 LINE 5
1) 00021 00003 Command File Descriptions
1) 00023 00004 Conditional Assembly Switches, Macros
1) 00027 00005 Titles, Versions
1) 00028 00006 AC Definitions
1) 00029 00007 CDB, SIMIO Indices For IOSER, OTHER INDICES
1) 00034 00008 Base (Low Segment) Data Descriptions -- Macros, Compil spec
1) 00036 00009 Base (Low Segment) Data Descriptions - Params, Links, Size specs
1) 00048 00010 Initialization Routines, Data
1) 00050 00011 Sailor, Reent -- Allocation, Main Program Control
1) 00053 00012 .SEG2. -- Get a second segment
1) 00056 00013
1) 00059 00014
1) 00064 00015
1) 00065 00016 Segment-Fetching Data
1) 00071 00017
1) 00072 00018 %ALLOC -- Main Allocation Routine
1) 00078 00019
1) 00086 00020
1) 00091 00021
1) 00098 00022 Utility Subroutines for allocation
1) 00100 00023 %UUOLNK -- UUO Handler (Dispatch Vector Just Below)
1) 00103 00024 RUUO -- RECORD HANDLER UUO ROUTINE
1) 00106 00025 DSCR OCTPNT, DECPNT UUO'S
1) 00109 00026 DSCR PRINIT -- INTERFACE TO SYSTEM PRINTING FACILITIES
1) 00114 00027 DSCR ERROR UUOS
1) 00121 00028 DSCR CALLEDFROM -- PRINTS 'CALLED FROM' XXX 'LAST SAIL CALL AT'
1) 00130 00029 Special Printing Routines For Error Handler
1) 00135 00030 DSCR USERERR(VALUE,CODE,"MSG","RESPONSE")
1) 00139 00031 Code to Handle Linkage to Editors
1) 00142 00032 EXPORT VERSION OF EDITOR-INTERFACE
1) 00147 00033 SAVE, RESTR, INSET -- General Utility Routines
1) 00151 00034 Core Service Routines -- General Description
1) 00156 00035 Special AC Declarations
1) 00157 00036 Utility Routines
1) 00163 00037
1) 00168 00038 CORGET
1) 00174 00039
1) 00178 00040 CORINC, CANINC
1) 00184 00041 CORREL
1) GOGOL vs. 2) GOGOL[S,AIL] SRCCOM 02-15-75 15:07 PAGES 1,1
1) 00191 00042 CORPRT, CORBIG
1) 00202 00043 DSCR STRGC (REQUEST)
1) 00208 00044 STRGC, Definitions
1) 00212 00045 STRNGC -- Init, CALSGL, SGSWEP -- main loop through space sorting
1) 00217 00046 STRNGC -- SWPLUP -- main sweep (string moving) loop
1) 00219 00047 STRNGC -- SWPDUN -- expansion/contraction, parameter update
1) 00224 00048 STRNGC -- STSTAT -- Finish Up, collect statistics
1) 00227 00049 STRNGC Service routines -- SGSORT
1) 00231 00050 STRNGC Service routines -- SPGC,STRMRK, etc. -- Descriptor providing routines
1) 00236 00051 STRNGC Service routines -- SRTSPC -- space sorter
1) 00240 00052 STRNGC Service routines -- SOURCE and DEST
1) 00244 00053
1) 00251 00054 STRNGC Service routines -- SGINS and SGREM
1) 00253 00055 STRNGC Service routines -- STCLER and RESCLR
1) 00255 00056 Some Runtime Routines Which Could Go Nowhere Else
1) 00256 00057 Kounter Routines
1) 00258 00058
1) 00267 00059 DSCR POW, FPOW, LOGS, FLOGS. BOTH RETURN REALS.
1) 00272 00060 DSCR EXP,ALOG -- FOR USE BY EXPONENTIATION ROUTINES & WORLD
1) 00280 00061 Usercon
1) 00282 00062 DSCR VAL←CODE(OCTAL COMMAND, REFERENCE ARG)
1) 00284 ENDMK
1) ⊗;
*** GOGOL[S,AIL] *** PAGE 1 LINE 5
2) 00020 00003 Command File Descriptions
2) 00022 00004 Conditional Assembly Switches, Macros
2) 00026 00005 Titles, Versions
2) 00027 00006 AC Definitions
2) 00028 00007 CDB, SIMIO Indices For IOSER, OTHER INDICES
2) 00033 00008 Base (Low Segment) Data Descriptions -- Macros, Compil spec
2) 00035 00009 Base (Low Segment) Data Descriptions - Params, Links, Size specs
2) 00047 00010 Initialization Routines, Data
2) 00049 00011 Sailor, Reent -- Allocation, Main Program Control
2) 00052 00012 .SEG2. -- Get a second segment
2) 00055 00013
2) 00058 00014
2) 00063 00015
2) 00064 00016 Segment-Fetching Data
2) 00070 00017
2) 00071 00018 %ALLOC -- Main Allocation Routine
2) 00077 00019
2) 00085 00020
2) 00090 00021
2) 00097 00022 Utility Subroutines for allocation
2) 00099 00023 %UUOLNK -- UUO Handler (Dispatch Vector Just Below)
2) 00102 00024 RUUO -- RECORD HANDLER UUO ROUTINE
2) 00105 00025 DSCR OCTPNT, DECPNT UUO'S
2) 00108 00026 DSCR PRINIT -- INTERFACE TO SYSTEM PRINTING FACILITIES
1) GOGOL vs. 2) GOGOL[S,AIL] SRCCOM 02-15-75 15:07 PAGES 1,1
2) 00113 00027 DSCR ERROR UUOS
2) 00120 00028 DSCR CALLEDFROM -- PRINTS 'CALLED FROM' XXX 'LAST SAIL CALL AT'
2) 00129 00029 Special Printing Routines For Error Handler
2) 00134 00030 DSCR USERERR(VALUE,CODE,"MSG","RESPONSE")
2) 00138 00031 Code to Handle Linkage to Editors
2) 00141 00032 EXPORT VERSION OF EDITOR-INTERFACE
2) 00146 00033 SAVE, RESTR, INSET -- General Utility Routines
2) 00150 00034 Core Service Routines -- General Description
2) 00155 00035 Special AC Declarations
2) 00156 00036 Utility Routines
2) 00162 00037
2) 00167 00038 CORGET
2) 00173 00039
2) 00177 00040 CORINC, CANINC
2) 00183 00041 CORREL
2) 00190 00042 CORPRT, CORBIG
2) 00201 00043 DSCR STRGC (REQUEST)
2) 00207 00044 STRGC, Definitions
2) 00211 00045 STRNGC -- Init, CALSGL, SGSWEP -- main loop through space sorting
2) 00216 00046 STRNGC -- SWPLUP -- main sweep (string moving) loop
2) 00218 00047 STRNGC -- SWPDUN -- expansion/contraction, parameter update
2) 00223 00048 STRNGC -- STSTAT -- Finish Up, collect statistics
2) 00226 00049 STRNGC Service routines -- SGSORT
2) 00229 00050 STRNGC Service routines -- SPGC,STRMRK, etc. -- Descriptor providing routines
2) 00234 00051 STRNGC Service routines -- SRTSPC -- space sorter
2) 00238 00052 STRNGC Service routines -- SOURCE and DEST
2) 00242 00053
2) 00249 00054 STRNGC Service routines -- SGINS and SGREM
2) 00251 00055 STRNGC Service routines -- STCLER and RESCLR
2) 00253 00056 Some Runtime Routines Which Could Go Nowhere Else
2) 00254 00057 Kounter Routines
2) 00256 00058
2) 00265 00059 DSCR POW, FPOW, LOGS, FLOGS. BOTH RETURN REALS.
2) 00270 00060 DSCR EXP,ALOG -- FOR USE BY EXPONENTIATION ROUTINES & WORLD
2) 00278 00061 Usercon
2) 00280 00062 DSCR VAL←CODE(OCTAL COMMAND, REFERENCE ARG)
2) 00282 ENDMK
2) ⊗;
******** GOGOL **** PAGE 2 LINE 3
1) 031 102200000015 ⊗;
1) DEFINE .VERSION <102200000015>
1) COMMENT ⊗
1) VERSION 18-1(13) 2-15-75 BY RLS BUG #UA# CHECK FOR 010700,,BUF-1 KIND OF BP IN STRING GC
1) VERSION 18-1(12) 2-1-75 BY RLS ADD TENEX PSI SYSTEM
*** GOGOL[S,AIL] *** PAGE 2 LINE 3
2) 031 102200000014 ⊗;
1) GOGOL vs. 2) GOGOL[S,AIL] SRCCOM 02-15-75 15:07 PAGES 2,2
2) DEFINE .VERSION <102200000014>
2) COMMENT ⊗
2) VERSION 18-1(12) 2-1-75 BY RLS ADD TENEX PSI SYSTEM
******** GOGOL **** PAGE 49 LINE 17
1) ;;#UA# (1 OF 2) CHECK BP FOR 010700,,BUF-1
1) SGRTY:
1) HRRZ TEMP,1(A)
*** GOGOL[S,AIL] *** PAGE 49 LINE 17
2) HRRZ TEMP,1(A)
******** GOGOL **** PAGE 49 LINE 45
1) JUMPE B,SGZAP ;& do the right thing
1) ;;#tc#
1) ;;#UA# (2 OF 2) RLS CHECK FOR 010700,BUF-1 BP-- LABEL SGZAP ADDED ABOVE & BELOW
1) HLRZ B,1(A) ;Get lh of the byte-pointer
1) CAIE B,010700 ;does the address field point to previous word
1) JRST NORNG1 ;no, really is out of bounds
1) HRRZI B,440700 ;make other kind of bp
1) HRLM B,1(A)
1) AOS 1(A)
1) JRST SGRTY ;AND TRY AGAIN
1) NORNG1:
1) ;;#UA# (2 OF 2)
1) MOVE A,A ;String not in range, complain, NULL it,
1) ERR <String GC: Descriptor byte ptr. out of bounds, Addr. is >,7
1) SGZAP: SETZM (A) ; and go on.
1) SGRST: ADDI A,2 ;Auto-increment descriptor index
*** GOGOL[S,AIL] *** PAGE 49 LINE 43
2) JUMPE B,.+3 ;& do the right thing
2) ;;#tc#
2) MOVE A,A ;String not in range, complain, NULL it,
2) ERR <String GC: Descriptor byte ptr. out of bounds, Addr. is >,7
2) SETZM (A) ; and go on.
2) SGRST: ADDI A,2 ;Auto-increment descriptor index