LISP 1.5 System Listing

What is this?

This is a hyperlinked, marked-up version of the source code of the first Lisp implementation, LISP 1.5 for the IBM 704/709/7090/7094 computers. The code is ultimately derived from a 1961 listing of the system, whose text has been reconstructed by some intrepid retrocomputerists (Pascal Bourguignon, Rich Cornwell, and Bob Abeles).

The code is written in the syntax of a series of assemblers, beginning with SAP [Symbolic (later SHARE) Assembly Program] (manual), followed by FAP (FORTRAN Assembly Program) (several manuals), then MAP (Macro Assembly Program) (ditto). These languages are mostly compatible, later versions maintaining obsolete features of previous iterations. Luckily, the LISP 1.5 source tends to stick to a SAP subset, using only a handful of the more advanced capabilities of FAP and MAP.

As for the machines themselves, you can read the official documentation on Bitsavers (704, 709, 7090, 7094) or Jack Harper's website (presently offline, unfortunately). Wikipedia's article on the 704 summarizes some key details that will help understanding LISP 1.5. Briefly, this series of machines (all shared the same basic “architecture”) had thirty-six-bit words with a fifteen-bit address space (32768₁₀, or rather 10000₈—get used to octal). Negative integers were represented using sign–magnitude. To make self-modifying code easier, two address-sized subfields of words could conveniently be manipulated, because they were used for operands in common instructions. These fields, as you might know, were called the address and decrements, hence car and cdr, etc. The system had two general-purpose registers, conventionally called “AC” (for “Accumulator”) and “MQ” (for “Multiplier-Quotient”), and three (seven on the 7094) fifteen-bit index registers known as “IR1”, “IR2”, and “IR4” (the missing numbers filled in for the 7094). When an instruction had an index register specified, that index register's contents was subtracted from the instruction (not from the address accessed by the instruction!). By placing the two's complement of a number in an index register, the effect of adding that number may be obtained. There was nothing like a hardware stack.

There are two kinds of line in the listing below: comment lines (“remarks”) and code lines. Every line is numbered, and you can use that number to link to a particular line. (This is a deviation from the printed listing, which did not provide line numbers for assembler-generated lines and reset the number to 1 after a DECK pseudo-operation, in order to make it easy to identify lines uniquely.) Code lines have several fields, many of which may be blank:

Flags, containing single-character markers that indicate problems with the line.

You can hover over the flags to see what they signify. The only ones in this listing are for absent fields in an instruction.

Address, the location in memory.

Five octal digits, absent for pseudo-operations that did not result in any assembly.

Assembly, a representation of the machine word produced by the assembler.

One or more fields in several formats, related to the encoding of the instruction, absent for some pseudo-operations. The vast majority of instruction have a five-digit (octal) address part that you can look at to see the value of the expression in that field.

Line number, as explained above.
Location, usually containing a symbol to be defined as the address.

Today we would probably say “label”. The lone exception is with the HED psuedo-operation, which instead interpreted the first column as a character used to “head” symbols. Heading a symbol meant prefixing it with the head character and spaces to pad it to six characters (leaving it alone if it's already long enough). For example, if the head is “L”, then LOAD is headed to L␣LOAD, but COMMON is unaffected by a head. Programmers can opt out per symbol by writing C$S, where C is the desired head character (or empty to indicate no head) and S is the name before heading. For example, C$MOV becomes C␣␣MOV, and $CPPI will always be ␣␣CPPI no matter what the head is. The point of this feature is to provide rudimentary namespace separation, so that symbols' “scope” could be limited to certain subprograms. Later assemblers supported multiple head simultaneously using the new HEAD pseudo-operation, which took an arbitrary number of heads in the variable field.

When you click on a symbol in the location field, you'll be taken to a cross-reference page for that symbol, showing its definition (the line you came from) and every line that contains the symbol in an expression.

Operation, containing the mnemonic for the operation.

Operations are either machine instructions (such as TRA or CLA or LDC, or commands for the assembler (such as BSS or TTL). When it's a machine instruction, * after the mnemonic indicates indirect addressing.

Variable field/remarks, containing operands and commentary.

This field usually consists of comma-separated expressions (the “variable field”) and then a comment after some whitespace. The variable field can sometimes contain spaces, when the operation is BCD or BCI or VFD.

When you click on a symbol in the variable field, you'll be taken to that symbol's point of definition. Hover over integers to see their magnitude in octal and decimal.

Good luck!

Contents
  1. Loader and I/O: 12
    1. Constant pool: 278
    2. INPUT: 486
    3. OUTPUT: 734
    4. TIME: 939
    5. ERROR: 972
  2. Memory management
    1. Storage map: 1351
    2. SAVE and UNSAVE: 1368
    3. Reclaimer (GC): 1545
    4. Temporary storage: 1987
    5. CONS and cons counter: 2148
  3. Number conversion routines: 2312
  4. Built-in Lisp functions I: 2412
    1. maplist: 2412
    2. copy: 2508
    3. search: 2540
    4. equal: 2595
    5. EQP (unused): 2648
    6. print: 2696
    7. prin1: 2776
    8. prin1: 2776
    9. punch: 3077
    10. read: 3352
    11. intern: 3575
    12. NUMBR: 3817
    13. cp1: 4187
    14. subst: 4213
    15. sublis: 4267
    16. append: 4330
    17. pair: 4351
    18. mapcar: 4387
    19. mapcon: 4415
    20. nconc: 4444
    21. remprop: 4469
    22. prop and sassoc: 4545
    23. attrib: 4645
    24. rplaca and rplacd: 4672
    25. gensym: 4692
  5. Overlord: 4717
  6. Built-in Lisp functions II: 5355
    1. evalquote: 5355
    2. errorset: 5539
    3. car/cdr extensions: 5635
    4. pack: 5752
    5. numob: 5793
    6. mknam and clearbuff: 5853
    7. advance, startread, and endread: 5903
    8. liter: 5986
    9. opchar: 5997
    10. digit: 6002
    11. error1: 6014
    12. unpack: 6035
    13. Bitwise operations: 6140
    14. logor: 6149
    15. logand: 6162
    16. logxor: 6175
    17. leftshift: 6223
    18. Arrays: 6254
    19. Arithmetic: 6254
    20. apply: 7371
    21. cond: 7589
    22. car: 7623
    23. cdr: 7634
    24. atom: 7642
    25. lambda: 7660
    26. label: 7677
    27. setq: 7701
    28. set: 7734
    29. and: 7754
    30. or: 7777
    31. eval: 7810
    32. evlis: 8044
    33. “Program feature” (prog): 8044
    34. return: 8261
    35. go: 8270
  7. Lisp Assembly Program (LAP): 8292
  8. Compiler subroutines: 8709
  9. Permanent objects: 8709
    1. Object list: 9145
    2. Property lists: 9361
  10. Synonyms: 11060
  11. Butch, a home for patches: 11333
−0 13565 0 10550 1ROW OPSYNNULL
2PCC
3FUL
4 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
5 *
6 *
7 * THIS IS THE 709 SECTION OF THE UPPER VERSION OF RWTML
8 * SHARE DIST NO. 709 AND 741
9 * IT LOADS BINARY 704 STYLE CARDS AND OCTAL CORRECTION CARDS
10 * ON LINE
11 *
12L HED
77721 13ORG−47 IO POSITION LOAD AT -42
14 * 709 BINARY-OCTAL BOOTSTRAP LOADER
77721 0 00025 0 77724 15IOCDLOAD,0,21 COMMAND TO LOAD REMAINDER OF LOADER
77722 0060 00 0 00001 16TCOA1 DELAY TILL LOADER IN
77723 0020 00 0 77724 17TRALOAD
77724 0762 00 0 01321 18LOADRCDA INITIATE NEXT CARD
77725 0540 00 0 77747 19RCHALOAD5
77726 0060 00 0 77726 20TCOA* DELAY TILL CARD IS IN
77727 0030 00 0 00174 21TEFACONTIN
77730 −0500 00 0 77662 22CAL9L
77731 0100 00 0 77750 23TZELOAD8 ZERO IMPLIES OCTAL CARD
77732 −0734 00 6 00000 24PDX,6 SET WORD COUNT
77733 0630 00 0 77746 25STPLOAD4 SET TO CHECK OR IGNORE SUM
77734 0621 00 0 77735 26STALOAD2 SET CARD ORIGIN
77735 −3 00000 4 00000 27LOAD2TXL****,4,0 OUT IF TRANSFER CARD
77736 0774 00 4 00000 28AXT0,4 SET I4 TO ZERO
77737 0560 00 4 77664 29LOAD3LDQ9R+1,4 PICK UP WORD
77740 −0600 60 0 77735 30STQ*LOAD2 STORE WORD
77741 0361 60 0 77735 31ACL*LOAD2 ADD TO CHECK SUM
77742 1 77777 4 77743 32TXI*+1,4,−1 ADVANCE FOR NEXT WORD
77743 2 00001 2 77737 33TIXLOAD3,2,1 COUNT WORDS TO BE STORED
77744 0322 00 0 77663 34ERA9R COMPARE CHECK SUMS
77745 0100 00 0 77724 35TZELOAD AGREE-LOAD NEXT CARD
77746 0000 00 0 77724 36LOAD4HTRLOAD ERROR-START TO READ NEXT CARD
77747 0 00030 0 77662 37LOAD5IOCD9L,0,24 COMMAND TO BRING IN BINARY IMAGE
77750 0774 00 5 00016 38LOAD8AXT14,5 14 TO IR1 AND IR 4
39 *
40ABS
41 *
77751 0774 00 2 00002 42LOAD9AXT2,2 SET TO COUNT FIELD PAIRS
77752 −0500 00 4 77704 43CAL9L+18,4 ROW
77753 −0602 00 1 77700 44ORS9L+14,1 ROW UNION
77754 0560 00 1 77700 45LDQ9L+14,1
77755 1 00026 2 77765 46TXILOD11,2,22 SET TO PEEL OFF SIX BITS
77756 3 00002 4 77760 47LOD10TXH*+2,4,2 SKIP STORE TILL AFTER ONE-ROW
77757 0602 00 0 00000 48SLW**** STORE OCTAL CORRECTION
77760 2 00001 2 77755 49TIX*−3,2,1 ADVANCE TO NEXT PAIR, THIS HALF
77761 2 00002 4 77751 50TIXLOAD9,4,2 ADVANCE TO NEXT ROW
77762 −2 00015 5 77725 51TNXLOAD+1,5,13 OUT AFTER RIGHT HALF
77763 0762 00 0 01321 52RCDA START NEXT CARD
77764 1 00014 5 77751 53TXILOAD9,5,12 ADVANCE TO RIGHT HALF CARD
77765 0760 00 0 00000 54LOD11CLM CLEAR AC
77766 0767 00 0 00002 55ALS2
77767 −0763 00 0 00001 56LGL1 PEEL OFF BITS
57
77770 2 00004 2 77766 58TIXLOD11+1,2,4 COUNT COLUMNS PER FIELD
77771 3 00014 4 77773 59TXH*+2,4,12 USE 7-ROW AS FIRST SUM
77772 0361 00 2 77712 60ACL11L+4,2 ADD PREVIOUS SUM
77773 0602 00 2 77712 61SLW11L+4,2 NEW PARTIAL SUM
77774 −2 00002 2 77756 62TNXLOD10,2,2 OUT IF SECOND FIELD OF PAIR
77775 0621 00 0 77757 63STALOD10+1 STORE ADDRESS OF CORRECTION
77776 1 00054 2 77765 64TXILOD11,2,44 RETURN TO PEEL OFF 12 BITS
65 *
77777 0 00133 0 77777 66 −1,,−STS LEAD WORD FOR ATOM VERITAS-NUMQUAM-PERIT
67 *
77662 68ORGLOAD−34 COMMON STORAGE
77662 69COMMONBSS0
77662 709LBSS24 INPUT BUFFER
77663 719RSYN9L+1 CARD CHECK SUM
77706 7211LSYN9L+20 TEMPORARY FOR OCTAL
77724 73LOADERSYNLOAD
74 *
75 * PROPERTY LISTS FOR THE SPECIAL ATOMS NIL AND VERITAS-NUNQUAM-PERIT THE
76 * ZERO AND THE BINARY TRUTH ATOMS RESPECTIVELY
77 *
77640 78ORGCOMMON−18
77640 0 00137 0 07335 79NILSXX $PNAME,,−*−1
77641 0 00000 0 00136 80 −*−1
77642 −0 00000 0 00135 81MZE−*−1
77643 −053143777777 82OCT453143777777 NIL
77644 0 00000 0 00370 83NILLOC $ZERO
84 *
77645 0 00132 0 10742 85STS $APVAL,,−*−1
77646 −0 00130 0 00131 86MZE−*−1,,−*−2
77647 0 00000 0 00001 87 1 IS A CONSTANT ,,1 FOR APPLY
77650 0 00127 0 07335 88 $PNAME,,−*−1
77651 0 00000 0 00126 89 −*−1
77652 −0 00000 0 00125 90MZE−*−1
77653 546351642554 91BCI1,*TRUE*
92 *
93 **************************************************
94 BOOTSTRAP RECORD FOR 709 LISP
00144 95ORG100 BEGIN LISP
96HEADB
97 *
98 * BOTTOM THE BOOTSTRAP RECORD FOR LISP ON SYSTEM AND TEMPORARY TAP
99 *
00144 0 00364 0 00147 100BOTTOMIOCDBOTTOM+3,,BSRECL−2 I-O COMMAND TO READ IN BOOTSTRAP REC.
00145 0060 00 0 00001 101TCOA1 WAIT UNTIL RECORD IS READ IN
00146 0020 00 0 00147 102TRABOTTOM+3 START F LISP
00147 0774 00 4 00003 103AXT3,4 NUMBER OF WORDS IN LOWER MEMORY
00150 0500 00 4 00003 104CLA3,4 MOVE THEM TO ORIGINAL POSITION
00151 0601 00 4 00147 105STOBOTTOM+3,4
00152 2 00001 4 00150 106TIX*−2,4,1
00153 0774 00 4 00366 107AXTBSRECL,4 LENGTH OF BOOTSTRAP RECORD
00154 −0754 00 0 00000 108PXD,0, CLEAR THE AC
00155 0361 00 4 00532 109ACLCHKSUM,4 COMPUTE THE CHECK SUM FOR RECORD
00156 2 00001 4 00155 110TIX*−1,4,1
00157 0322 00 0 00532 111ERACHKSUM COMPARE WITH THE CHECKSUM ON TAPE
00160 0100 00 0 00162 112TZE*+2 SKIP IF THEY ARE EQUAL
00161 0420 00 0 00001 113HPR1 THEY DO NOT, STOP
00162 0500 00 0 00201 114CLASTRA STR TRAP
00163 0601 00 0 00002 115STO2 SET STR CELL
00164 0500 00 0 00200 116CLAFLTRA FLOATING POINT TRAP
00165 0601 00 0 00010 117STO8 SET TRAP CELL
00166 0500 00 0 00367 118CLASYSTAP TAPE SPECIFICATION FOR SYSTEM TAPE
00167 0074 00 4 00276 119TSX$(IOS),4 SET UP I-O COMMANDS
00170 0074 00 4 00202 120TSXLRTAPE,4 READ REST OF SYSTEM TAPE
00171 0 77241 0 00537 121 LOWREG,,−LOWREG REST OF CORE
00172 0522 00 0 00352 122XEC$REW REWIND SYSTAP
00173 0020 00 0 77724 123TRA$LOAD GO TO READ ANY CORRECTION CARDS
124 *
00174 0500 00 0 00177 125CONTINCLAZERO LOADER RETURNS HERE, GO TO OVERLORD
00175 0601 00 0 00000 126STO0 SET ZERO CELL
00176 0020 00 0 10230 127TRAOVRLRD GO. TO OVERLORD
128 *
129 * NORMAL CONTENTS FOR CELLS 0, 2, 10 (OCTAL) RESPECTIVELY
130 *
00177 0 00140 0 77777 131ZERO −1,,−NILSXX BEGINNING OF ATOM NIL
00200 0021 00 0 01707 132FLTRATTRFLAPTR
00201 0021 00 0 17061 133STRATTRC$LINK
00200 134FLAPCXSYNFLTRA
00201 135FLAPCYSYNSTRA
00177 136FLAPCZSYNZERO
137 *
138 *
139 * LRTAPE LISP READ TAPE PROGRAM FOR BINARY TAPES
140 *
00202 0500 00 4 00001 141LRTAPECLA1,4 PARAMETER WORD
00203 0634 00 4 00533 142SXARTRX,4 SAVE INDEX REGISTERS
00204 −0634 00 2 00533 143SXDRTRX,2
00205 0734 00 2 00000 144RTTWOPAX0,2 START ADDRESS
00206 0622 00 0 00207 145STD*+1 COUNT
00207 1 00000 2 00210 146TXI*+1,2,** END + 1 ADDRESS
00210 0634 00 2 00534 147SXARTADR,2 INITIALIZE ADDRESS
00211 −0734 00 2 00000 148PDX0,2 COUNT IN IR 2
00212 0500 00 0 00205 149CLARTTWO TAG OF 2
00213 0625 00 0 00534 150STTRTADR SET TAG
00214 −0634 00 0 00534 151SXDRTADR,0 ZERO DECREMENT
00215 0500 00 0 00362 152CLA$LCH PICK UP CURRENT LOAD CHANNEL INS.
00216 0601 00 0 00535 153STORTLCH MAKE IMMUNE FROM OVER WRITING
00217 0500 00 0 00346 154CLA$(IOU) GET CURRENT I-O UNIT
00220 0601 00 0 00536 155STORTIOU MAKE PREVENT OVERWRITING
00221 −0625 00 0 00357 156STL$TCO WAIT FOR CHANNEL
00222 0522 00 0 00357 157XEC$TCO TO GO OUT OF OPERATION
00223 0760 00 0 00005 158IOT TURN OFF I-O CHECK
00224 0761 00 0 00000 159NOP
00225 −0774 00 4 00225 160AXC*,4
00226 0522 00 0 00360 161XEC$TRC TURN OFF INDICATOR
00227 0522 00 0 00356 162XEC$TEF TURN OFF INDICATOR
00230 0522 00 0 00350 163RTRDXEC$RDS SELECT TAPE
00231 −0754 00 0 00000 164PXD0,0 CLEAR AC
00232 −0774 00 4 00274 165AXCRTIOC,4 POINTER TO I-O COMMAND
00233 0522 00 0 00361 166XEC$RCH RESET AND LOAD CHANNEL
00234 0522 00 0 00535 167RTLCXECRTLCH LOAD CHANNEL
00235 0560 00 0 00532 168LDQCHKSUM PICK UP WORD READ IN
00236 −0600 60 0 00534 169STQ*RTADR PUT IT AWAY
00237 0361 60 0 00534 170ACL*RTADR ADD TO CHECK SUM
00240 2 00001 2 00234 171TIXRTLC,2,1 DO ANOTHER LOAD CHANNEL
00241 −0774 00 4 00275 172AXCRTIOD,4 POINTER TO DISCONNECT INSTRUCTION
00242 0522 00 0 00535 173XECRTLCH XEC LCH INS.
00243 0322 00 0 00532 174ERACHKSUM SUBSTRACT CHECK SUMS
00244 0602 00 0 00532 175SLWCHKSUM STORE DIFFERECE
00245 0500 00 0 00536 176CLARTIOU PICK UP CURRENT IOU
00246 0074 00 4 00276 177TSX$(IOS),4 SET UP I-O COMMANDS
00247 −0625 00 0 00357 178STL$TCO WAIT FOR CHANNEL TO GO OUT OF OPERATION
00250 0522 00 0 00357 179XEC$TCO
00251 0760 00 0 00005 180IOT TEST INDICATOR
00252 0020 00 0 00263 181TRARCK TRY AGAIN
00253 0520 00 0 00532 182ZETCHKSUM SKIP IF CHECK SUMS AGREE
00254 0020 00 0 00263 183TRARCK TRY AGAIN
00255 −0774 00 4 00263 184AXCRCK,4
00256 0522 00 0 00360 185XEC$TRC TEST FOR REDUNDANCY
00257 0522 00 0 00356 186XEC$TEF AND EOF
00260 0534 00 4 00533 187LXARTRX,4 RESTORE INDEX REGISTERS
00261 −0534 00 2 00533 188LXDRTRX,2
00262 0020 00 4 00002 189TRA2,4 EXIT
190 *
00263 −0534 00 2 00534 191RCKLXDRTADR,2 DID NOT WORK, SEE IF FIRST OR SECOND
00264 −3 00000 2 00266 192TXL*+2,2,0
00265 0420 00 0 00002 193HPR2 SECOND TRY FAILED, STOP
00266 −0634 00 4 00534 194SXDRTADR,4 MAKE NON-ZERO
00267 0522 00 0 00355 195XEC$BSR BACK SPACE AND TRY AGAIN
00270 0534 00 4 00533 196LXARTRX,4 GET CALL WORD IR
00271 0500 00 4 00001 197CLA1,4 CALL PARAMETER
00272 −0734 00 2 00000 198PDX0,2 COUNT TO IR 2
00273 0020 00 0 00230 199TRARTRD
200 *
00274 −1 00001 0 00532 201RTIOCIOCTCHKSUM,,1 BRING IN 1 WORD
00275 0 00000 0 00000 202RTIODIOCD0,,0 DISCONNECT CHANNEL
203 *
204 *
205 * (IOS) INPUT OUTPUT SUPERVISOR A LA BELL LABS BE SYS 3
206 *
00276 0340 00 0 00346 207(IOS)CASIOU CHECK TO SEE IF SAME UNIT AS LAST TIME
00277 0020 00 0 00301 208TRA*+2 NO
00300 0020 00 4 00001 209TRA1,4 YES EXIT
00301 0634 00 4 00325 210SXAIOSX,4 NO, SAVE LINK 1B
00302 0634 00 2 00324 211SXAIOSY,2 SAVE INDEX 2
00303 0601 00 0 00346 212STOIOU UPDATE IOU
00304 0621 00 0 00350 213STA$RDS UPDATE ADDRESSES OF TAPE COMMANDS
00305 0621 00 0 00351 214STA$WRS
00306 0621 00 0 00352 215STA$REW
00307 0621 00 0 00355 216STA$BSR
00310 0621 00 0 00353 217STA$WEF
00311 0120 00 0 00313 218TPL*+2 TAPE IN NORMAL DENSITH (BIN=HI, BCD=LO
00312 0322 00 0 00347 219ERAIOSBB CHANGE DENSITY BIT
00313 0621 00 0 00354 220STA$SDN
00314 0522 00 0 00354 221XEC$SDN
00315 0774 00 2 00005 222AXT5,2 NUMBER OF COMMANDS TO BE SET
00316 −0734 00 4 00000 223PDX0,4 CHANNEL NUMBER TO R
00317 1 00014 4 00320 224TXI*+1,4,12 TOTAL NUMBER OF COMMANDS - 3
00320 −0500 00 4 00346 225IOSACALIOU,4 PICK UP PROPER COMMAND
00321 0602 00 2 00363 226SLWCOMAND,2 PUT IN PROPER PLACE
00322 −2 00003 4 00324 227TNXIOSY,4,3 DECREMENT BY NUMBER OF CHANNEL
00323 2 00001 2 00320 228TIXIOSA,2,1 LOOP 5 TIMES
00324 0774 00 2 00000 229IOSYAXT**,2 RESTORE INDEX 2
00325 0774 00 4 00000 230IOSXAXT**,4 RESTORE LINK IR
00326 0020 00 4 00001 231TRA1,4
232 *
233 * TAPE COMMANDS FOLLOW
234 *
00327 0031 00 4 00000 235TEFC0,4
00330 −0030 00 4 00000 236TEFB0,4
00331 0030 00 4 00000 237TEFA0,4
00332 0062 00 0 00000 238TCOC**
00333 0061 00 0 00000 239TCOB**
00334 0060 00 0 00000 240TCOA**
00335 0024 00 4 00000 241TRCC0,4
00336 −0022 00 4 00000 242TRCB0,4
00337 0022 00 4 00000 243TRCA0,4
00340 0541 00 4 00000 244RCHC0,4
00341 −0540 00 4 00000 245RCHB0,4
00342 0540 00 4 00000 246RCHA0,4
00343 0545 00 4 00000 247LCHC0,4
00344 −0544 00 4 00000 248LCHB0,4
00345 0544 00 4 00000 249LCHA0,4
00346 0 00000 0 00000 250IOUPZE LAST UNIT USED
00347 0 00000 0 00020 251IOSBBPZE16 BINARY BIT
252HEAD0
253 *
254 * ACTUAL TAPE COMMANDS USED BY PROGRAMS (SHOULD BE UNHEADED)
255 *
00350 0762 00 0 01220 256RDSRTBA**
00351 0766 00 0 01220 257WRSWTBA**
00352 0772 00 0 01200 258REWREWA**
00353 0770 00 0 01200 259WEFWEFA**
00354 0761 00 0 00000 260SDNNOP MAKE A SDN INSTRUCTION FOR 7090
00355 0764 00 0 01200 261BSRBSRA**
00356 0030 00 4 00000 262TEFTEFA0,4
00357 0060 00 0 00000 263TCOTCOA**
00360 0022 00 4 00000 264TRCTRCA0,4
00361 0540 00 4 00000 265RCHRCHA0,4
00362 0544 00 4 00000 266LCHLCHA0,4
00363 267COMANDBSS0
00363 0 00000 0 00000 268SYSPPTPZE ADDRESS,,CHANNEL
00364 0 00001 0 01203 269SYSPOT 1*512+2*64+3,,1 INITIAL ASSIGNMENT OF A3
00365 0 00000 0 00000 270SYSPIT
00366 0 00000 0 00000 271SYSTMP
00367 0 00000 0 00000 272SYSTAP
00370 273TAPASGBSS0
00276 274(IOS)SYNB$(IOS)
77724 275LOADSYNLOADER
00346 276(IOU)SYNB$IOU
277EJECT
278 * CONSTANT POOL
00370 0 00000 0 00000 279ZEROPZE
00371 +000000000001 280Q1DEC1
00372 +000000000002 281Q2DEC2
00373 +000000000003 282Q3DEC3
00374 +000000000004 283Q4DEC4
00375 +000000000005 284Q5DEC5
00376 +000000000006 285Q6DEC6
00377 +000000000007 286Q7DEC7
00400 +000000000010 287Q8DEC8
00401 +000000000011 288Q9DEC9
00402 +000000000012 289Q10DEC10
00403 +000000000014 290Q12DEC12
00404 0 00000 0 00015 291Q13 13
00405 0 00000 0 00016 292Q14 14
00406 +000000000021 293Q17DEC17
00407 +000000000024 294Q20DEC20
00410 +000000000025 295Q21DEC21
00411 0 00000 0 00026 296Q22 22
00412 +000000000044 297Q36DEC36
00413 +000000000077 298Q63DEC63
00414 +000000000100 299Q64DEC64
00415 +000000000200 300Q128DEC128
00416 +000000000014 301QO14OCT14
00417 +000000000017 302QO17OCT17
00420 +000000000020 303QO20OCT20
00421 +000000000022 304QO22OCT22
00410 305QO25SYNQ21
00422 +000000000033 306QO33OCT33
00423 +000000000040 307QO40OCT40
00424 +000000000041 308QO41OCT41
00425 +000000000043 309QO43OCT43
00426 +000000000050 310QO50OCT50
00427 +000000000060 311QO60OCT60
00430 +000000000061 312QO61OCT61
00413 313QO77SYN$Q63
00415 314QO200SYNQ128
00431 +000000003300 315QO33Q2OCT3300
00432 +001000000000 316QO1Q9OCT1000000000
00433 +233000000000 317Q233Q9OCT233000000000
00434 −377000000000 318Q777Q9OCT777000000000
00435 +200000000000 319QO2Q11OCT200000000000
00436 0 00000 1 00000 320QT1 ,1
00437 0 00000 2 00000 321QT2 ,2
00440 0 00000 4 00000 322QT4 ,4
00441 0 00000 5 00000 323QT5 0,5
00442 0 00001 0 00000 324QD1PZE,,1
00443 0 00002 0 00000 325QD2PZE,,2
00444 0 00005 0 00000 326QD5PZE,,5
00445 0 00006 0 00000 327QD6PZE,,6
00446 0 00007 0 00000 328QD7PZE,,7
00447 0 00024 0 00000 329QD20PZE,,20
00450 0 00025 0 00000 330QD21PZE,,21
00451 −1 00000 0 00000 331QP5STR
00452 600000000000 332OBLANKBCI1,␣00000
00453 006060606060 333ZBLANKBCI1,0␣␣␣␣␣
00454 +201400000000 334QF1DEC1.0
00455 −0 00000 0 00000 335SBITMZE
00456 +377777777777 336MAGMSKOCT377777777777
00457 0 00000 0 77777 337AMASKPZE−1
00460 0 77777 0 00000 338DMASKPZE,,−1
00461 −3 00000 0 00000 339PMASKTXL0,0,0
00462 0 77777 0 77777 340ADMASKPZE−1,,−1
00463 0 00000 7 77777 341ATMASKPZE−1,7
00464 −3 77777 0 00000 342PDMASKSVN,,−1
00465 −3 77777 7 00000 343PDTMSKSVN0,7,−1
00466 −3 00000 7 77777 344PTAMSKSVN−1,7
00467 +000077000000 345CNTMSKOCT000077000000
00470 0 00000 7 00000 346TAGMSKPZE,7
00471 −3 77777 7 77777 347SEVENSSVN−1,7,−1
00472 606060606060 348BLANKSBCI1,␣␣␣␣␣␣
00473 349BCONATBSS0 BEGINNING OF CONSTANT ATOMS
00473 0 00000 0 07335 350PNAMEAPZEPNAME
00474 0 10742 0 00000 351APVALDPZE,,APVAL
00475 0 10135 0 00000 352BINDPZE,,BIN
00475 353FIXDSYNBIND
00476 0 10120 0 00000 354FLOATD ,,$FLOAT
00477 0 10103 0 00000 355FSUBRDPZE,,FSUBR
00500 0 10076 0 00000 356FNARGDPZE,,FUNARG
00501 0 10005 0 00000 357LABELDPZE,,LABEL
00502 0 07775 0 00000 358LAMDADPZE,,LAMBDA
00503 0 07462 0 00000 359OCTD ,,$OCT
00504 0 07335 0 00000 360PNAMEDPZE,,PNAME
00505 0 07250 0 00000 361QUOTEDPZE,,QUOTE
00506 0 06733 0 00000 362SUBRDPZE,,SUBR
00507 0 07110 0 00000 363QSPECDPZE0,,SPECAL
00510 0 06706 0 00000 364QSYMDPZE0,,SYM
00511 0 07676 0 10211 365 ERSETO,,PJ36
00512 0 07666 0 07706 366 PJ37,,PJ38 LOGAND LOGXOR
00513 0 07604 0 07614 367 −II7,,−II8 MAX MIN
00514 0 06657 0 07355 368 PLUS,,TIMES
00515 0 06131 0 06130 369 H01,,H02 PROTECT INTEGER OBJECTS
00516 0 06133 0 06132 370 H03,,H04
00517 0 06135 0 06134 371 H05,,H06
00520 0 06137 0 06136 372 H07,,H10
00521 0 00000 0 06127 373H00APZEH00
00522 0 00000 0 06141 374H12APZEH12
00523 0 00000 0 06221 375H72APZEH72
00524 0 06140 0 00000 376H11DPZE,,H11
00525 0 06143 0 00000 377H14DPZE,,H14
00526 0 06162 0 00000 378H33DPZE,,H33
00527 0 06163 0 00000 379H34DPZE,,H34
00530 0 06167 0 00000 380H40DPZE,,H40
00531 0 06223 0 00000 381H74DPZE,,H74
00531 382ECONATSYNH74D END OF CONSTANT ATOMS
383EJECT
00532 384CHKSUMBSS5 THESE CELLS ARE NOT WRITTEN ON TAPE
385HEADB
00533 386RTRXSYNCHKSUM+1 PROTECTED STORAGE
00534 387RTADRSYNCHKSUM+2
00535 388RTLCHSYNCHKSUM+3
00536 389RTIOUSYNCHKSUM+4
00366 390BSRECLEQUCHKSUM−BOTTOM LENGTH OF BOOTSTRAP RECORD
00537 391LOWREGSYN* LOWEST REGISTER ON LISP RECORD
392 *
00537 0500 00 4 00001 393LWTAPECLA1,4 PARAMETER WORD
00540 0621 00 0 00631 394STAWTIOC SET UP I-O COMMANDS
00541 0622 00 0 00631 395STDWTIOC
00542 0622 00 0 00561 396STDWTAD COUNT
00543 0634 00 4 00574 397SXAWTX,4 SAVE LINK IR
00544 0600 00 0 00630 398STZWTAG ZERO TEST CELL
00545 0600 00 0 00627 399STZWERC
00546 −0625 00 0 00357 400STL$TCO
00547 0522 00 0 00357 401XEC$TCO WAIT FOR CHANNEL
00550 0760 00 0 00005 402IOT TURN OFF INDICATORS
00551 0761 00 0 00000 403NOP
00552 −0774 00 4 00552 404AXC*,4
00553 0522 00 0 00360 405XEC$TRC
00554 0522 00 0 00356 406XEC$TEF
00555 0522 00 0 00351 407WTWSXEC$WRS SELECT TAPE
00556 −0774 00 4 00631 408AXCWTIOC,4 POINTER TO IO COMMAND
00557 0522 00 0 00361 409XEC$RCH RESET AND LOAD CHANNEL
00560 0534 00 4 00631 410LXAWTIOC,4 ADDRESS OF BEGINNING OF BLOCK
00561 1 00000 4 00562 411WTADTXI*+1,4,** END + 1 OF BLOCK
00562 0634 00 4 00565 412SXAWTACL,4 SET CHECKSUM COMPUTE ADDRESS
00563 −0534 00 4 00631 413LXDWTIOC,4 COUNT OF BLOCK
00564 −0754 00 0 00000 414PXD0,0 CLAER AC
00565 0361 00 4 00000 415WTACLACL**,4 COMPUTE CHECKSUM
00566 2 00001 4 00565 416TIX*−1,4,1 LOOP
00567 0602 00 0 00532 417SLWCHKSUM STOE IN CHECK SUM CELL
00570 −0774 00 4 00632 418AXCWTIOD,4 CHECMSUM WRITE COMMAND
00571 0522 00 0 00362 419XEC$LCH LOAD CHANNEL
00572 −0774 00 4 00576 420AXCWRCK,4 TEST FOR WRITE REDUNDANCY
00573 0522 00 0 00360 421XEC$TRC
00574 0774 00 4 00000 422WTXAXT**,4 RESTORE LINK IR
00575 0020 00 4 00002 423TRA2,4 EXIT
424 *
00576 −0520 00 0 00630 425WRCKNZTWTAG
00577 0020 00 0 00615 426TRAWAGN TRY TO WRITE ABAIN
00600 −0625 00 0 00627 427STLWERC CELL SAYS THERE WAS BAD TAPE TROULLE
00601 −0534 00 4 00366 428LXDSYSTMP,4 FORM MESSAGE TO OPERATOR
00602 0754 00 4 00000 429PXA0,4
00603 0400 00 0 00420 430ADD$QO20
00604 0767 00 0 00006 431ALS6
00605 0601 00 0 00620 432STOWERM
00606 0500 00 0 00366 433CLASYSTMP
00607 −0320 00 0 00417 434ANA$QO17
00610 −0602 00 0 00620 435ORSWERM
00611 0074 00 4 01222 436TSXOUTPUT,4 WRITE CHANGE TAPE MESSAGE
00612 −0 00000 0 00364 437MZEBCDOUT
00613 0 00007 0 00620 438 WERM,,7
00614 0420 00 0 00003 439HPR3
00615 0522 00 0 00355 440WAGNXEC$BSR
00616 −0625 00 0 00630 441STLWTAG
00617 0020 00 0 00555 442TRAWTWS
443 *
00620 606060606060 444WERMBCI7,␣␣␣␣␣␣␣IS␣BAD,␣CHANGE␣IT␣AND␣PUSH␣START.␣␣
00621 603162602221 445
00622 247360233021 446
00623 452725603163 447
00624 602145246047 448
00625 646230606263 449
00626 215163336060 450
451 *
00627 0 00000 0 00000 452WERC
00630 0 00000 0 00000 453WTAG CELL NON-ZERO ON SECOND TRY
00631 −1 00000 0 00000 454WTIOCIOCT**,,** WRITE OUT BLOCK
00632 0 00001 0 00532 455WTIODIOCDCHKSUM,,1 WRITE OUT CHECK SUM
456 *
457 * TAPDMP DUMP CODE ON SYSTMP. USED BY OVERLORD
458 *
00633 0634 00 4 00647 459TAPDMPSXATPDMX,4 SAVE LINK IR
00634 0074 00 4 06311 460TSXTEREAD,4 CLEAN UP READ BUFFER
00635 0500 00 0 00366 461CLASYSTMP SPEC. FOR TEMPORARY TAPE
00636 0074 00 4 00276 462TSX$(IOS),4 SET UP I-O COMMANDS
00637 0074 00 4 00537 463TPRTYTSXLWTAPE,4 WRITE BOOTSTRAP RECORD
00640 0 00366 0 00144 464 BOTTOM,,BSRECL
00641 0074 00 4 00537 465TSXLWTAPE,4 WRITE REST OF CODE
00642 0 77241 0 00537 466 LOWREG,,−LOWREG
00643 0522 00 0 00353 467XEC$WEF WRITE AN EOF MARK
00644 0522 00 0 00352 468XEC$REW REWIND SYSTMP
00645 0520 00 0 00627 469ZETWERC SEE IF SSYTMP WAS CHANGEDAFTER FIRST
00646 0020 00 0 00637 470TRATPRTY RECORD WAS WRITTE IF SO REWRITE IT
00647 0774 00 4 00000 471TPDMXAXT**,4 RESTORE LINK IR
00650 0020 00 4 00001 472TRA1,4 EXIT
473 *
474 * OVLT READS A NEW CORE IMAGE IN FROM SYSTMP, USED BY OVERLORD
475 *
00651 −0754 00 4 00000 476OVLTXXPXD0,4 LINK IR TO AC
00652 −0734 00 2 00000 477PDX0,2 PUT IN IR 2 FOR SAFE KEEPING
00653 0500 00 0 00366 478CLASYSTMP TERMPORARY TAPE SPEC.
00654 0074 00 4 00276 479TSX$(IOS),4 SET UP I-O COMMANDS
00655 0074 00 4 00202 480TSXLRTAPE,4 READ IN BOOTSTRAP RECORD
00656 0 00366 0 00144 481 BOTTOM,,BSRECL
00657 0074 00 4 00202 482TSXLRTAPE,4 READIN RST OF LISP
00660 0 77241 0 00537 483 LOWREG,,−LOWREG
00661 0522 00 0 00352 484XEC$REW REWIND SYSTMP
00662 0020 00 2 00001 485TRA1,2 EXIT
486 *
487 *
00663 0500 00 4 00002 488INPUTCLA2,4
00664 0634 00 4 00675 489SXAINX4,4 SAVE LINK IR
00665 0601 00 0 00673 490STOCALL
00666 0500 00 0 00365 491CLASYSPIT INPUT TAPE SPEC.
00667 0074 00 4 00276 492TSX$(IOS),4 SET UP I-O COMMANDS
00670 0522 00 0 01376 493XEC$SWT1 TEST FOR ON-LINE INPUT
00671 0522 00 0 00350 494XEC$RDS SELECT INPUT TAPE
495
00672 0074 00 4 00702 496TSX$RTX,4
00673 0 77777 0 00000 497CALL **,,−1
00674 0020 00 0 00677 498TRA*+3
00675 0774 00 4 00000 499INX4AXT**,4 RESTORE LINK IR
00676 0020 00 4 00005 500TRA5,4
00677 0534 00 4 00675 501LXAINX4,4 RESTORE LINK IR
00700 −0120 00 4 00003 502TMI3,4
00701 0020 00 4 00004 503TRA4,4
504C HED
505 *
00702 0634 00 4 00725 506RTXSXARTXX,4 SAVE LINK IR
00703 0500 00 4 00001 507CLA1,4 GET PARAMETER WORD
00704 0522 00 0 01376 508XEC$SWT1 TEST FOR ON-LINE INPUT
00705 1 00000 0 00710 509TXIH1,,0 IS FROM TAPE
00706 0762 00 0 01321 510RCDA
00707 1 00000 0 00741 511TXIRDBCD,,0
00710 0621 00 0 01177 512H1STACMMND SET ADDRESS OF I-O COMMAND
00711 −0774 00 4 00713 513AXC*+2,4 LOCATION TO INDEX REGISTER
00712 0522 00 0 00356 514XEC$TEF TURN OFFF EOF INDICATOR
00713 −0500 00 0 00727 515CALH2 PIC UP SWITCH
00714 0601 00 0 00727 516H3STOH2 SET TO TXH FIRST TIME THROUGH
00715 −0774 00 4 01177 517AXCCMMND,4 LOCATION OF I-O COMMAND
00716 0522 00 0 00361 518XEC$RCH RESET AND LOAD CHANNEL
00717 −0625 00 0 00357 519STL$TCO SET UP TCO COMMAND
00720 0522 00 0 00357 520XEC$TCO WAIT FOR CHANNEL TO GO OUT OF OPERATION
00721 −0774 00 4 00734 521AXCRTXBE,4 LOACTION OF BAD EXIT
00722 0522 00 0 00356 522XEC$TEF GO IF EOF FOUND
00723 −0774 00 4 00727 523AXCH2,4 LOCATION TO TRY AGAIN
00724 0522 00 0 00360 524XEC$TRC GO IF REDUNDANCY CHECK FOUND
00725 0774 00 4 00000 525RTXXAXT**,4 RESTORE LINK IR
00726 0020 00 4 00003 526TRA3,4 GOOD EXIT
00727 3 00000 0 00734 527H2TXHRTXBE,,0 IS TXL ON SECOND TRY
00730 0522 00 0 00355 528XEC$BSR BACKSPACE RECORD
00731 0522 00 0 00350 529XEC$RDS SELECT TAPE
00732 0502 00 0 00727 530CLSH2 PIC UP SWITCH
00733 −3 00000 0 00714 531TXLH3,,0 GO TRY AGAIN
00734 0534 00 4 00725 532RTXBELXARTXX,4 LINK IR
00735 0020 00 4 00002 533TRA2,4
00736 0762 00 0 01321 534RCDRCDA RESTART AFTER ERROR
00737 −0534 00 1 00757 535LXDB2,1 X
00740 −0534 00 2 00761 536LXDB3,2 X
00741 0030 00 0 00742 537RDBCDTEFA*+1 TURN OFF END FILE INDICATOR
00742 0604 00 0 01173 538STIB50 SAVE INDICATORS
00743 −0057 00 000003 539RIL3 TURN INDICATORS 1,2 OFF
00744 0540 00 0 01174 540RCHALR READ IN 9 LEFT + RT INTO L,R
00745 0544 00 0 01175 541LCHABLR DELEAY, START 8LEFT + RT INTO 8L,8R
00746 0030 00 4 00002 542TEFA2,4 GO TO END OF FILE RETURN IF EOF ON
00747 0560 00 0 77671 543B1LDQL X
00750 −0600 00 0 77663 544STQLS SET LEFT SUM
00751 −0634 00 1 00757 545SXDB2,1 SAVE INDEX REGISTERS
00752 −0634 00 2 00761 546SXDB3,2 X
00753 −0534 00 1 00770 547LXDB4,1 SET DIGIT ROW COUNT
00754 0560 00 0 77672 548LDQR
00755 −0600 00 0 77664 549STQRS SET RIGHT SUMP
00756 0074 00 2 01110 550TSXC1,2 ENTER CONVERSION LOOP
TD00757 −3 00000 0 00762 551B2TXLB5 LEAVE CONVERSION LOOP
00760 0767 00 0 00001 552ALS1
TD00761 −3 00000 0 01145 553B3TXLC2 INITIALIZE BCD RECORD
00762 0544 00 0 01174 554B5LCHALR DELAY UNTIL 8 IN, START READING 7
00763 0560 00 0 77665 555LDQ8L USE 8 ROW AS SUM
00764 −0600 00 0 77663 556STQLS X
00765 0560 00 0 77666 557LDQ8R X
00766 −0600 00 0 77664 558STQRS X
00767 0074 00 2 01110 559TSXC1,2 ENTER CONVERSION LOOP
00770 −3 00010 0 00773 560B4TXLB6,0,8 LEAVE CONVERSION LOOP
00771 0767 00 0 00003 561ALS3 ADD 8 TIMES 8 ROW
TD00772 −3 00000 0 01144 562TXLC3 X
00773 −0500 00 0 77671 563B6CALL USE 9 ROW AS SUM
00774 0602 00 0 77663 564SLWLS X
00775 −0500 00 0 77672 565CALR X
00776 0602 00 0 77664 566SLWRS X
00777 −3 00002 1 01160 567B13TXLB25,1,2 IS IT ZERO OR ONE ROW YES'
01000 0544 00 0 01174 568B14LCHALR DELAY, READ IN N RT AND LEFT
01001 −0054 00 000001 569LFT1 IS END OF RECORD INDICATOR ON
01002 0020 00 0 01040 570TRAB9 YES' END OF RECORD
01003 −0500 00 0 77671 571B8CALL NO' TEST LEFT ROW FOR
01004 −0320 00 0 77663 572ANALS ILLEGAL DOUBLE PUNCH
01005 −0100 00 0 01163 573TNZB17 X
01006 −0500 00 0 77671 574B10CALL FORM LOGICAL SUM
01007 −0602 00 0 77663 575ORSLS OF LEFT ROWS
01010 −0500 00 0 77672 576CALR TEST FOR ILLEGAL
01011 −0320 00 0 77664 577ANARS DOUBLE PUNCH
01012 −0100 00 0 01163 578TNZB17 X
01013 −0500 00 0 77672 579B11CALR FORM LOGICAL SUM OF
01014 −0602 00 0 77664 580ORSRS RIGHT RWS
01015 −2 00001 1 01154 581TNXB12,1,1 TEST FOR ZONE ROWS
01016 0074 00 2 01110 582TSXC1,2 ENTER CONVERSION LOOP
TD01017 −3 00000 0 00777 583TXLB13 LEAVE CONVERSION LOOP
TD01020 −3 00000 0 01144 584TXLC3 ADD TO BCD RECORD
01021 −0500 00 0 77665 585B7CAL8L ADD 8 LEFT ROW TO
01022 −0501 00 0 77663 586ORALS LEFT LOGICAL SUM
01023 0602 00 0 77665 587SLWLDS X
01024 0544 00 0 01174 588LCHALR DELAY, START READING X-L,R INTO L,R
01025 −0320 00 0 77667 589ANALZ FORM INDICATOR FOR
01026 0602 00 0 77663 590SLWLS BOTH DIGIT AND ZERO
01027 −0500 00 0 77666 591CAL8R ADD 8 RIGHT ROW TO
01030 −0501 00 0 77664 592ORARS RIGHT LOGICAL SUM
01031 0602 00 0 77666 593SLWRDS X
01032 −0320 00 0 77670 594ANARZ FORM INDICATOR FOR
01033 0602 00 0 77664 595SLWRS BOTH DIGIT AND ZERO
01034 0074 00 2 01110 596B40TSXC1,2 ENTER CONVERSION LOOP
TD01035 −3 00000 0 01000 597TXLB14 LEAVE CONVERSION LOOP
01036 0767 00 0 00004 598ALS4 SHIFT TO ZONE POSITION
TD01037 −3 00000 0 01144 599TXLC3 X
01040 −0500 00 0 77663 600B9CALLS SAVE LEFT ZONE SUM
01041 0602 00 0 77671 601SLWL X
01042 −0500 00 0 77665 602CALLDS FORM INDICATOR FOR
01043 0760 00 0 00006 603COM ZERO AND X AND / OR Y
01044 −0320 00 0 77667 604ANALZ IN LEFT ROWS
01045 0320 00 0 77663 605ANSLS X
01046 −0500 00 0 77664 606CALRS SAVE RIGHT ZONE SUM
01047 0602 00 0 77672 607SLWR X
01050 −0500 00 0 77666 608CALRDS FORM INDICATOR FOR
01051 0760 00 0 00006 609COM ZERO AND X AND/OR Y
01052 −0320 00 0 77670 610ANARZ IN RIGHT ROWS
01053 0320 00 0 77664 611ANSRS X
01054 0074 00 2 01110 612TSXC1,2 ENTER CONVERSION LOOP
TD01055 −3 00000 0 01063 613TXLB15 LEAVE CONVERSION LOOP
01056 0602 00 0 77662 614SLWTP MULTIPLY INDICATOR
01057 0767 00 0 00002 615ALS2 BITS BY TEN
01060 0361 00 0 77662 616ACLTP X
01061 0767 00 0 00001 617ALS1 X
TD01062 −3 00000 0 01144 618TXLC3 X
01063 −0500 00 0 77665 619B15CALLDS FORM INDICATOR FOR
01064 −0501 00 0 77667 620ORALZ BLANK COLUMNS IN
01065 −0501 00 0 77671 621ORAL LEFT HALF OF CARD
01066 0760 00 0 00006 622COM X
01067 0602 00 0 77663 623SLWLS X
01070 −0500 00 0 77666 624CALRDS FORM INDICATOR FOR
01071 −0501 00 0 77670 625ORARZ BLANK COLUMNS IN
01072 −0501 00 0 77672 626ORAR RIGHT HALF OF CARD
01073 0760 00 0 00006 627COM X
01074 0602 00 0 77664 628SLWRS X
01075 0074 00 2 01110 629TSXC1,2 ENTER CONVERSION LOOP
TD01076 −3 00000 0 01104 630TXLB16 LEAVE CONVERSION LOOP
01077 0602 00 0 77662 631SLWTP MULTIPLY INDICATOR
01100 0767 00 0 00001 632ALS1 BITS BY 3 AND
01101 0361 00 0 77662 633ACLTP SHIFT TO ZONE POSITION
01102 0767 00 0 00004 634ALS4 X
TD01103 −3 00000 0 01144 635TXLC3 X
01104 −0534 00 1 00757 636B16LXDB2,1 RESTORE INDEX REGISTERS
01105 −0534 00 2 00761 637LXDB3,2 AND RETURN TO MAIN
01106 0441 00 0 01173 638LDIB50 RESTORE INDICATORS
01107 0020 00 4 00003 639TRA3,4 PROGRAM
01110 −0634 00 1 01113 640C1SXDC4,1 SAVE ROW COUNT
01111 −0500 00 4 00001 641C9CAL1,4 INITIALIZE ADDRESSES
01112 0401 00 0 01127 642ADMC7 X ADD 6
01113 −3 00000 0 01117 643C4TXLC6,,** TRANSFER IO LEFT ROW
01114 0401 00 0 01127 644ADMC7 RIGHT ROW, ADD 6 MORE
01115 0560 00 0 77664 645LDQRS OBTAIN RIGHT SUM AND
TD01116 1 00000 0 01120 646TXIC8 SKIP OVER LEFT SUM
01117 0560 00 0 77663 647C6LDQLS OBTAIN LEFT SUM
01120 0621 00 0 01145 648C8STAC2 SET BCD RECORD ADDRESS
01121 0621 00 0 01144 649STAC3 X
01122 3 00001 1 01126 650TXHC5,1,1 SKIP TEST IF DIGIT ROW
01123 −0600 00 0 77662 651STQTP TEST FOR NO SUM
01124 −0500 00 0 77662 652CALTP X
01125 0100 00 0 01150 653TZEC11 X
01126 0534 00 1 01127 654C5LXAC7,1 SET WORD COUNT
01127 −0754 00 0 00006 655C7PXD6,0 CONVERT ROW
01130 −0763 00 0 00001 656LGL1 X
01131 0767 00 0 00005 657ALS5 X
01132 −0763 00 0 00001 658LGL1 X
01133 0767 00 0 00005 659ALS5 X
01134 −0763 00 0 00001 660LGL1 X
01135 0767 00 0 00005 661ALS5 X
01136 −0763 00 0 00001 662LGL1 X
01137 0767 00 0 00005 663ALS5 X
01140 −0763 00 0 00001 664LGL1 X
01141 0767 00 0 00005 665ALS5 X
01142 −0763 00 0 00001 666LGL1 X
01143 0020 00 2 00002 667TRA2,2 EXIT FROM ROW PROCEDURE
01144 0361 00 1 00000 668C3ACL0,1 ADD TO BCD RECORD
01145 0602 00 1 00000 669C2SLW0,1 STORE IN BCD RECORD
01146 2 00001 1 01127 670TIXC7,1,1 COUNT WORDS
01147 −0534 00 1 01113 671LXDC4,1 RESTORE ROW COUNT
01150 0502 00 0 01113 672C11CLSC4 INVERT ROW SWITCH AND
01151 0601 00 0 01113 673STOC4 TEST FOR RIGHT ROW DONE
01152 −0120 00 2 00001 674TMI1,2 TRANSFER IF RIGHT ROW DONE
TD01153 1 00000 0 01111 675C10TXIC9 GO CONVERT RIGHT ROW
01154 −0051 00 000002 676B12IIL2 CHANGE INDICATOR BIT 17
01155 −0056 00 000002 677LNT2 IS THIS TWELVE ROW
01156 0020 00 0 01165 678TRAB100 CHANGE
01157 0020 00 0 01034 679TRAB40 NO
01160 −3 00001 1 01021 680B25TXLB7,1,1 IT IS XERO ROW OR ONE ROW
01161 0544 00 0 01176 681LCHAZLR
01162 0020 00 0 01003 682TRAB8
01163 −0760 00 0 00003 683B17SSM SET ERROR SIGN
01164 1 00001 4 01104 684TXIB16,4,1 RESTORE INDEX REGISTERS AND MAKE BAD X
01165 0060 00 0 01165 685B100TCOA*
01166 0074 00 2 01110 686TSXC1,2
TD01167 −3 00000 0 01172 687TXLB200
01170 0767 00 0 00004 688ALS4
TD01171 −3 00000 0 01144 689TXLC3
01172 0020 00 0 01040 690B200TRAB9
01173 0 00000 0 00000 691B50PZE INDICATOR STORAGE
01174 −3 00002 0 77671 692LRMTHL,0,2
01175 −3 00002 0 77665 693BLRMTH8L,0,2
01176 −3 00002 0 77667 694ZLRMTHLZ,0,2
01177 −3 77777 0 00000 695CMMNDMTH**,0,−1
77662 696ORGCOMMON
77662 697TPBSS1 TEMPORARY
77663 698LSBSS1 LEFT SUM
77664 699RSBSS1 RIGHT SUM
77665 700LDSBSS1 LEFT DIGIT SUM
77666 701RDSBSS1 RIGHT DIGIT SUM
77667 702LZBSS1 LEFT ZERO ROW
77670 703RZBSS1 RIGHT ZERO ROW
77671 704LBSS1 LEFT ROW
77672 705RBSS1 RIGHT ROW
77665 7068LSYNLDS 8 LEFT ROW
77666 7078RSYNRDS 8 RIGHT ROW
01200 708ORGCMMND+1
7090 HED
00000 710BCDINEQU0
00702 711RTXSYNC$RTX
712HEADD
713 *
714 * SPACEX PROVIDES A VARITY OF SPACES ON OFF LINE PRINTER
715 *
01200 0522 00 0 01402 716SPACEXXEC$SWT5 TEST FOR NO OFF-LINE OUTPUT
01201 0020 00 0 01203 717TRA*+2
01202 0020 00 4 00002 718TRA2,4 RETURN
01203 0634 00 4 01206 719SXASPX,4 SAVE LINK IR
01204 0500 00 0 00364 720CLASYSPOT SET UP TAPES
01205 0074 00 4 00276 721TSX$(IOS),4
01206 0774 00 4 00000 722SPXAXT**,4 RESTORE LINK IR
01207 0500 00 4 00001 723CLA1,4 GET PARAMETER
01210 0737 00 4 00000 724PAC0,4 COMPLEMENT INTO IR 4
01211 0522 00 0 00351 725XEC$WRS
01212 0522 00 0 00361 726XEC$RCH
01213 0534 00 4 01206 727LXASPX,4
01214 0020 00 4 00002 728TRA2,4 RETURN
01215 2 00001 0 00453 7298SPACEIORPZBLANK,,1 DOUBLE SPACE
01216 2 00001 0 00453 7306SPACEIORPZBLANK,,1 DOUBLE SPACE
01217 2 00001 0 00453 7314SPACEIORPZBLANK,,1 DOUBLE SPACE
01220 2 00001 0 00453 7322SPACEIORPZBLANK,,1 DOUBLE SPACE
01221 0 00000 0 00000 733IOCD0,,0 DISCONNECT CHANNEL
734 *
735 * OUTPUT BCD OUTPUT ROUTINE FOR LISP
736 * SWITCHES...
737 * 3 PRINT ON-LINE
738 * 5 DONT WRITE TAPE FOR OFF-LINE PRINTING
739 *
01222 0634 00 4 01245 740OUTPUTSXAWOTX,4 SAVE LINK IR
01223 0500 00 4 00002 741CLA2,4 GET PARAMETER WORD
01224 0622 00 0 01367 742STDWOTC SET COUNT OF I-O COMMAND
01225 0400 00 0 00407 743ADD$Q20 END OF BLOCK
01226 0621 00 0 01234 744STAWOTM SET MOVE LOOP
01227 −0625 00 0 00357 745STL$TCO WAIT FOR COMPLETION OF LAST OPERATION
01230 0522 00 0 00357 746XEC$TCO
01231 0500 60 4 00001 747CLA*1,4 GET TAPE SPECIFICATION
01232 0074 00 4 00276 748TSX$(IOS),4 SET UP I-O COMMANDS
01233 0774 00 4 00024 749AXT20,4 MAXIMIUM THAT MAY BE ON 1 RECORD
01234 0500 00 4 00000 750WOTMCLA**,4 MOVE INTO BUFFER
01235 0601 00 4 01367 751STOWOTB,4
01236 2 00001 4 01234 752TIXWOTM,4,1
01237 0522 00 0 01402 753XEC$SWT5 TEST FOR NO TAPE OUTPUT
01240 0020 00 0 01242 754TRA*+2 IS OUTPUT ON TAPE
01241 0020 00 0 01245 755TRAWOTX TEST FOR ON-LINE OUTPUT
01242 0522 00 0 00351 756XEC$WRS SELECT TAPE
01243 −0774 00 4 01367 757AXCWOTC,4 POINTER TO I-O COMMAND
01244 0522 00 0 00361 758XEC$RCH RESET ANF LOAD CHANNEL
01245 0774 00 4 00000 759WOTXAXT**,4 RESTORE LINK IR
01246 0500 00 4 00001 760CLA1,4 TEST FOR ON-LINE
01247 0522 00 0 01400 761XEC$SWT3 ON-LINE SENSE SWITCH
01250 0120 00 4 00003 762TPL3,4 EXIT IF DONE
763 * DM 716A - 48 CARDS - 02-09-59
764 *BCD ON-LINE PRINT ROUTINE FOR 709
765 * MODIFED FOR USE IN LISP 1.5
01251 0634 00 4 01334 766WOTONSXAWOTU,4 PRINT ON LINE
01252 0634 00 2 01335 767SXAWOTV,2 SAVE INDEX REGISTERS
01253 0634 00 1 01336 768SXAWOTW,1
01254 0600 00 0 01340 769STZWOTT SET SWITCH
01255 0600 00 0 01341 770STZWOTS SET SWITCH TO SKIP FIRST CHARACTER
01256 −0534 00 6 01367 771LXDWOTC,6 COUNT IN INDEX 4 AND 2
01257 1 01343 4 01260 772TXI*+1,4,WOTB−20 ADD BEGINNING OF BUFFER
01260 0634 00 4 01271 773SXABC05,4 SET ADDRESS
01261 0766 00 0 01361 774BC02WPDA SELECT PRINTER
775
01262 0520 00 0 01340 776ZETWOTT SKIP ON FIRST 72 CHARACTERS
01263 0760 00 0 01371 777SPRA9 SET UP SECOND HALF OF LINE
01264 0774 00 4 00030 778AXT24,4 CLEAR
01265 0600 00 4 77714 779STZCOMMON+26,4 WORKING
01266 2 00001 4 01265 780TIX*−1,4,1 STORAGE
01267 −0500 00 0 00455 781BC03CALBC50 STROBE STARTER
01270 0634 00 2 01274 782BC04SXABC01,2 WORKING CELL FOR N
01271 0560 00 2 00000 783BC05LDQ0,2 PICK UP WORD TO CONVERT
01272 0774 00 2 00006 784AXT6,2 X2 COUNTS 6 CHARACTERS
01273 0602 00 0 77714 785BC06SLWCOMMON+26 STROBE
01274 −0754 00 0 00000 786BC07PXD**,0
01275 −0763 00 0 00006 787LGL6 LOOK AT
01276 −0520 00 0 01341 788NZTWOTS SKIP IF NOT FIRST CHARACTER
01277 0500 00 0 00427 789CLA$QO60 GET BCD BLANK FOR LEADNING CHARACTER
01300 0767 00 0 00001 790ALS1 ONE CHARACTER
01301 0734 00 1 00000 791PAX,1
01302 −0500 00 0 77714 792CALCOMMON+26 STROBE
01303 −2 00140 1 01305 793TNX*+2,1,96 NOT 0
01304 −0602 00 4 77707 794ORSCOMMON+21,4 0
01305 3 00136 1 01320 795TXHBC08,1,94 BLANK
01306 −2 00076 1 01311 796TNX*+3,1,62 NOT 11
01307 −0602 00 4 77711 797ORSCOMMON+23,4 11
01310 −2 00002 1 01320 798TNXBC08,1,2
01311 −2 00036 1 01314 799TNX*+3,1,30 NOT 12
01312 −0602 00 4 77713 800ORSCOMMON+25,4 12
01313 −2 00002 1 01320 801TNXBC08,1,2
01314 −2 00022 1 01317 802TNX*+3,1,18 NOT 8 COMBINATION
01315 1 00002 1 01316 803TXI*+1,1,2
01316 −0602 00 4 77667 804ORSCOMMON+5,4 8 COMBINATION
01317 −0602 00 5 77707 805ORSCOMMON+21,5 NUMBER
01320 0771 00 0 00001 806BC08ARS1 MOVE STROBE
01321 −0625 00 0 01341 807STLWOTS SET SWITCH
01322 2 00001 2 01273 808TIXBC06,2,1 BACK FOR NEXT CHARACTER
01323 0534 00 3 01274 809LXABC01,3 N
01324 −2 00001 2 01330 810TNXBC15,2,1 OUT IF N WORDS DONE
01325 −0100 00 0 01270 811TNZBC04 BACK FOR REST OF HALF-CARD
01326 −3 00000 4 01330 812TXLBC15,4,0 RIGHT-HALF DONE
01327 1 77777 4 01267 813TXIBC03,4,−1 BACK FOR RIGHT HALF
01330 0540 00 0 01342 814BC15RCHABC49
01331 −0625 00 0 01340 815STLWOTT SET SWITCH FOR SECOND HALF LINE
01332 3 00001 1 01261 816TXHBC02,1,1 BACK FOR MORE WORDS
01333 0060 00 0 01333 817TCOA*
01334 0774 00 4 00000 818WOTUAXT**,4 RESTORE INDEX REGISTERS
01335 0774 00 2 00000 819WOTVAXT**,2
01336 0774 00 1 00000 820WOTWAXT**,1
01337 0020 00 4 00003 821TRA3,4 EXIT
822 *
01340 0 00000 0 00000 823WOTT NON-ZERO ON SECOND HALF LINE
01341 0 00000 0 00000 824WOTS ZERO FOR FIRST CHARACTER
01342 0 00030 0 77664 825BC49IOCDCOMMON+2,,24
01274 826BC01SYNBC07
00455 827BC50SYN$SBIT
828 *
01367 829WOTBBES20 OUTPUT BUFFER
01367 2 00000 0 01343 830WOTCIORPWOTB−20,,** WRITE RECORD FROM BUFFER
01370 0 00000 0 00000 831IOCD0,,0 DISCONNECT CHANNEL
00364 832BCDOUTSYNSYSPOT
00363 833PPTOUTSYNSYSPPT
834 *
01371 0762 00 0 01321 835PSHLDBRCDA
01372 0540 00 0 01375 836RCHA*+3
01373 0544 00 0 00000 837LCHA0
01374 0021 00 0 00001 838TTR1
01375 −1 00003 0 00000 839IOCT0,,3
840HEAD0
841 * $SWTN COMMANDS ALL SWT COMMANDS ARE EXECUTED
842 * NOTE.... SWT COMMANDS MAY BE SIMULATED BY MAKING DOWN SWITCHES
843 * ZET $ZERO
844 * AND UP SWITCHES
845 * NZT $ZERO
846 *
01376 0760 00 0 00161 847SWT1SWT1
01377 0760 00 0 00162 848SWT2SWT2
01400 0760 00 0 00163 849SWT3SWT3
01401 0760 00 0 00164 850SWT4SWT4
01402 0760 00 0 00165 851SWT5SWT5
01403 0760 00 0 00166 852SWT6SWT6
853 *
854 * SENSE LIGHT AND TEST INSTRUCTIONS TO BE EXECUTED OF DUMMYED
855 *
01404 0760 00 0 00141 856SLN1SLN1
01405 0760 00 0 00142 857SLN2SLN2
01406 0760 00 0 00143 858SLN3SLN3
01407 0760 00 0 00144 859SLN4SLN4
01410 0760 00 0 00140 860SLFSLF
01411 −0760 00 0 00141 861SLT1SLT1
01412 −0760 00 0 00142 862SLT2SLT2
01413 −0760 00 0 00143 863SLT3SLT3
01414 −0760 00 0 00144 864SLT4SLT4
865HEADD
866 * C043 786 R. DALEY ... GETTM ... READ CLOCK ROUTINE FOR 709 ......
867 * RECODED AND SQUEEZED BY 0. 4. EDWARDS
01415 0762 00 0 01361 868GETTMRPRA
01416 0634 00 1 01510 869SXAEXA,1
01417 0634 00 2 01511 870SXAEXB,2 ..
01420 0634 00 4 01473 871SXAEXC,4 ..
01421 0774 00 2 00041 872AXT33,2 SET UP FOR LOOP
01422 0600 00 2 77723 873STZCOMMON+33,2 ZERO CARD IMAGE AND WORKING STORAGE
01423 2 00001 2 01422 874TIX*−1,2,1 LOOP
01424 0540 00 0 01515 875RCHASKP27 SET PRINTER TO SKIPPING FIRST 27 WORDS
01425 0760 00 0 01367 876SPRA7 SENSE TIME CLOCK
01426 0760 00 0 01371 877SPRA9 SET ECHO ENTRIES
01427 −0140 00 0 01431 878TNO*+2 SKIP IF OVERFLOW LIGHT OFF
01430 −0625 00 0 77667 879STLCOMMON+5 OVERFLOW LIGHT ON, MAKE COMMON+4 =/ 0
01431 0544 00 0 01520 880LCHAONWD 9 RIGHT ECHO
01432 0774 00 4 00011 881AXT9,4 ROW COUNT
01433 0544 00 0 01516 882LCHASKP3 IOCPN ZERO,,3 IOCT COMMON,,1
01434 0560 00 0 77662 883LOADLDQCOMMON
01435 0774 00 2 00002 884AXT2,2 ..
01436 −0754 00 0 00000 885CONVPXD,0
01437 0774 00 1 00006 886AXT6,1 ..
01440 0767 00 0 00005 887ALS5 ..
01441 −0763 00 0 00001 888LGL1 ..
01442 2 00001 1 01440 889TIX*−2,1,1 ..
01443 −0602 00 2 77665 890ORSCOMMON+3,2 ..
01444 −0500 00 2 77667 891CALCOMMON+5,2 ..
01445 0361 00 2 77665 892ACLCOMMON+3,2 ..
01446 0602 00 2 77667 893SLWCOMMON+5,2 ..
01447 2 00001 2 01436 894TIXCONV,2,1 ..
01450 0544 00 0 01517 895LCHASKP1 IOCPN ZERO,,1 IOCT COMMON,,1
01451 2 00001 4 01434 896TIXLOAD,4,1 COUNTS ROWS
01452 0544 00 0 01513 897LCHAZERO IOCD 0,,0 DISCONNECT PRINTER
01453 0560 00 0 77665 898LDQCOMMON+3 DATE
01454 −0754 00 0 00000 899PXD,0
01455 −0763 00 0 00006 900LGL6 ..
01456 −0100 00 0 01460 901TNZ*+2 ..
01457 −0500 00 0 00427 902CALOCT60 INSERT BLANK
01460 −0763 00 0 00014 903LGL12 ..
01461 −0501 00 0 00430 904ORAOCT61 INSERT / BETWEEN MONTH AND DAY
01462 0767 00 0 00022 905ALS18 ..
01463 0602 00 0 77665 906SLWCOMMON+3 ..
01464 −0754 00 0 00000 907PXD,0
01465 −0763 00 0 00006 908LGL6 ..
01466 −0100 00 0 01470 909TNZ*+2 ..
01467 −0500 00 0 00427 910CALOCT60 INSERT BLANK
01470 −0763 00 0 00014 911LGL12 ..
01471 −0501 00 0 00427 912ORAOCT60 PROVIDE BLANK AS LAST CHARACTER
01472 −0501 00 0 77665 913ORACOMMON+3 ..
01473 0774 00 4 00000 914EXCAXT**,4 RESTORE LINK IR
01474 0602 60 4 00001 915SLW*1,4 STORE DATE IN REGISTER SPECIFIED
01475 −0754 00 0 00000 916PXD,0
01476 0560 00 0 77666 917LDQCOMMON+4 TIME
01477 −0763 00 0 00006 918LGL6 ..
01500 −0100 00 0 01502 919TNZ*+2 ..
01501 −0500 00 0 00427 920CALOCT60 BLANK
01502 −0763 00 0 00036 921LGL30 ..
01503 −0501 00 0 00431 922ORAOCT33 PROVIDE DECIMAL POINT
01504 0602 60 4 00002 923SLW*2,4 STORE TIME
01505 0767 00 0 00010 924ALS8 TURN ON OVER FLOW
01506 −0520 00 0 77667 925NZTCOMMON+5 LEAVE ON IF COMMON+5 IS NON ZERO
01507 0140 00 0 01510 926TOV*+1 TURN OFF OVER FLOW LIGHT
01510 0774 00 1 00000 927EXAAXT0,1 RESTORE IRS
01511 0774 00 2 00000 928EXBAXT0,2 ..
01512 0020 00 4 00003 929TRA3,4 EXIT........
01513 0 00000 0 00000 930ZEROPZE0 ..
01514 0 00000 0 00000 931PZE
01515 −1 00033 2 77670 932SKP27IOCTNCOMMON+6,,27
01516 −0 00002 2 01513 933SKP3IOCPNZERO,,2 SKIP TWO WORDS
01517 −0 00001 2 01513 934SKP1IOCPNZERO,,1 SKIP ONE WORD
01520 −1 00001 0 77662 935ONWDIOCTCOMMON,,1 TRANSMIT ONE WORD TO COMMON
00427 936OCT60SYN$QO60
00430 937OCT61SYN$QO61 BCD /
00431 938OCT33SYNQO33Q2 BCD .0
939 * TIME PRINTS THE DATE AND TIME .
01521 0634 00 4 01531 940TIMESXATIR,4 SAVE LINK IR
01522 0074 00 4 01415 941TSXGETTM,4 GET TIME FROM ON-LINE CLOCK
01523 0 00000 0 01535 942 TR+2 STORE DATE
01524 0 00000 0 01536 943 TR+2+1 STORE TIME
01525 0074 00 4 01222 944TSXOUTPUT,4 PRINT OUT DATE AND TIME
01526 0 00000 0 00364 945 BCDOUT ON BCD OUTPUT TAPE
01527 0 00021 0 01533 946 TR,,17
01530 −0754 00 0 00000 947PXD0,0
01531 0774 00 4 00000 948TIRAXT**,4 RESTORE LINK IR
01532 0020 00 4 00001 949TRA1,4 RETURN
01533 006063302560 950TRBCI1,0␣THE␣
01534 633144256074 951BCI9,TIME␣(␣␣␣␣␣␣␣␣␣␣␣␣)␣HAS␣COME,␣THE␣WALRUS␣SAID,␣TO␣TALK
01535 606060606060 952
01536 606060606060 953
01537 346030216260 954
01540 234644257360 955
01541 633025606621 956
01542 435164626062 957
01543 213124736063 958
01544 466063214342 959
01545 604626604421 960BCI7,␣OF␣MANY␣THINGS␣.....␣␣␣-LEWIS␣CARROLL-␣␣␣
01546 457060633031 961
01547 452762603333 962
01550 333333606060 963
01551 404325663162 964
01552 602321515146 965
01553 434340606060 966
9670 HED
01521 968TIMESYND$TIME
01415 969GETTMSYND$GETTM
01554 0420 00 0 00007 970PAUSEFHPR7
01555 0020 00 4 00001 971TRA1,4
972
973 *
974 * ERROR PROCESSES ALL LISP ERRORS. NORMALLY GIVES ERROR NUMBERS,
975 * ERROR LOCATION, LISP PRINT OF AC AND BACK TRACE OFALL
976 * FUNCTIONS ENTERED ON PUSH DOWN LIST.
977 *
01556 0 00000 0 00000 978ERAC PLACE TO STORE MACHINE REGISTERS
01557 0 00000 0 00000 979ERMQ
01560 0 00000 0 00000 980ERIND
01561 0 00000 0 00000 981ERX INDEX 1,,INDEX 2
01562 3 00000 0 01563 982ERRORTXH*+1,,** INDEX 4
01563 −0520 00 0 11664 983NZTERNULL SEE IF ERROR PROGRAM IS TO BE EXECUTED
01564 0522 00 0 11665 984XECEREXIT NORMAL SETTING GOES TO EVALQUOTE
01565 −0600 00 0 01557 985STQERMQ SAVE MACHINE REGISTERS
01566 0604 00 0 01560 986STIERIND
01567 0634 00 1 01561 987SXAERX,1
01570 −0634 00 2 01561 988SXDERX,2
01571 0441 00 0 10340 989LDISYSIND PICK UP SYSTEM INDICATORS
01572 0055 00 000010 990SIRERRORI SET ERROR HAS OCURRED INDICATOR
01573 0604 00 0 10340 991STISYSIND UPDATE SYSTEM INDICATORS CELLS
01574 0601 00 0 01655 992STOERT AC TO BE PRINTED
01575 0500 00 4 00001 993CLA1,4
01576 0601 00 0 01661 994STOERM PUT IN ERROR MESSAGE
01577 −0535 00 4 01562 995LDCERROR,4
01600 −0754 00 4 00000 996PXD0,4
01601 0131 00 0 00000 997XCA AND CONVERT TO OCATL
01602 0074 00 4 11021 998TSXOCTALP,4
01603 −0501 00 0 00452 999ORAOBLANK INSERT LEADING BLANK
01604 0602 00 0 01664 1000SLWERN PUT IN ERROR MESSAGE
01605 0074 00 4 01222 1001TSXOUTPUT,4 WRITE OUT ERROR MESSAGE
01606 0 00000 0 00364 1002 BCDOUT
01607 0 00011 0 01656 1003 ERO,,9
01610 0520 00 0 01654 1004ZETBACACT SKIP IF BACK TRACE IS NOT ACTIVE
01611 0020 00 0 01650 1005TRABACER GO TO SPECIAL ROUTINE
01612 −0625 00 0 01654 1006STLBACACT MAKE BACK TRACE ROUTINE ACTIVE
01613 0500 00 0 01655 1007CLAERT PICK UP AC ON ENTRANCE
01614 0074 00 4 04604 1008TSX$PRINT,4 PRINT IT IN LISP
01615 0054 00 000200 1009RFTNOBACT TEST FOR NO BACK TRACE
01616 0020 00 0 01646 1010TRABACD GO TO EXIT
01617 0560 00 0 00370 1011LDQ$ZERO ZERO THE ERROR LIST
01620 −0534 00 4 11670 1012LXDNUBPDL,4 BEGINNING OF PUSH DOWN LIST
01621 1 77777 4 01622 1013TXI*+1,4,−1 PUSH UP BY -1
01622 −0634 00 4 01624 1014SXDBEX,4 SET UP ALL DONE TEST INSTRUCTION
01623 −0534 00 4 02317 1015LXD$CPPI,4 PICK UP CURRENT PDL COUNTER
01624 3 00000 4 01644 1016BEXTXHBACTD,4,** GO IF ALL UNSAVED
01625 −0500 00 4 77777 1017CAL−1,4 EITHER UNSAVE OR UNWND
01626 −0320 00 0 00461 1018ANA$PMASK DEPENDING ON COMPILED OR
01627 0322 00 0 00451 1019ERA$QP5 SYSTEM SUBROUTINE PUT IT THERE
01630 0100 00 0 01633 1020TZE*+3 TEST IS FOR STR OP
01631 0074 00 4 02326 1021TSXUNSAVE,4 IN LAST WORD OF BLOCK FROM COMPILER
01632 0020 00 0 01634 1022TRA*+2
01633 0074 00 4 17330 1023TSXC$UNWND,4
01634 −0534 00 4 02317 1024LXD$CPPI,4 BEGINNING OF BLOCK JUST UNSAVED
01635 0500 00 4 00000 1025CLA0,4 LAST IR 4 WORD
01636 0734 00 4 00000 1026PAX0,4 FUNCTION ATOMIC SYMBOL
01637 −0754 00 4 00000 1027PXD0,4 PUT IN DECREMENT
01640 0074 00 4 03730 1028TSX$CONS,4 ADD TO ERROR LIST
01641 0131 00 0 00000 1029XCA ANSWER TO MQ
01642 −0534 00 4 02317 1030LXD$CPPI,4 PUSH DOWN INDICATOR
01643 0020 00 0 01624 1031TRABEX GO BACK FOR NEXT
01644 0131 00 0 00000 1032BACTDXCA LIST TO AC
01645 0074 00 4 04604 1033TSX$PRINT,4 PRINT THE ERROR LIST
01646 0600 00 0 01654 1034BACDSTZBACACT DE-ACTIVATE THE BACK TRACE ROUTINE
01647 0522 00 0 11665 1035XECEREXIT NORMAL SETTING GOES TO EVALQUOTE
1036 *
01650 0074 00 4 01222 1037BACERTSXOUTPUT,4 WRITE OUT MESSAGE THAT BACK TRACE
01651 0 00000 0 00364 1038 BCDOUT CAUSED ANOTHER ERROR
01652 0 00007 0 01667 1039 BACE,,7
01653 0020 00 0 01646 1040TRABACD RESET AND RETURN
000200 1041NOBACTBOOL200 NO BACK TRACE INDICATOR
01654 0 00000 0 00000 1042BACACT NON-ZERO MEANS BACK TRACE ACTIVE
01655 0 00000 0 00000 1043ERT TEMPORARY STORAGE FOR AC
01656 005454546025 1044EROBCI3,0***␣ERROR␣NUMBER␣
01657 515146516045 1045
01660 644422255160 1046
01661 0 00000 0 00000 1047ERM ERROR NUMBER IN BCD GOES HERE
01662 603145242567 1048BCI2,␣INDEX␣4␣=␣␣
01663 600460136060 1049
01664 0 00000 0 00000 1050ERN OCATL LOCATION GOES HERE
01665 604623632143 1051BCI2,␣OCTAL.␣***␣
01666 336054545460 1052
01667 005454546021 1053BACEBCI7,0***␣ABOVE␣ERROR␣TERMINATED␣BACK-TRACE␣***
01670 224665256025 1054
01671 515146516063 1055
01672 255144314521 1056
01673 632524602221 1057
01674 234240635121 1058
01675 232560545454 1059
1060 *
1061 * FLAPTR AND OCT GIVE ERROR DIAGNOSTICS FOR FLOATING POINT TRAP AND
1062 * DIVIDE CHECK INCLUDING LOCATION AND CONTENTS OF AC.
1063 * BOTH MY BE IGNORED BY MAKNG CELL FPTGNR NON-ZERO.
01676 0520 00 0 01706 1064DCTZETFPTGNR TEST FOR IGNORE ERROR FLAG
01677 0020 00 4 00001 1065TRA1,4 RETURN
01700 −0634 00 4 01562 1066SXD$ERROR,4 SAVE IR 4
01701 −0535 00 4 01562 1067LDC$ERROR,4 COMPLEMENT LOCATION OF ENTRANCE
01702 0634 00 4 01717 1068SXAFLXT,4 SET TRAP ADDRESS
01703 −0634 00 0 01717 1069SXDFLXT,0 ZERO THE DECREMENT
01704 −0625 00 0 01765 1070STLFPTDV SET DIVIDE CHECK FLAG
01705 0020 00 0 01722 1071TRAFPTA DO FLOATING POINT TRAP ERROR
1072 *
01706 0 00000 0 00000 1073FPTGNR TEST CELL IS NON-ZERO TO IGNORE TRAPS
1074 *
01707 0601 00 0 77662 1075FLAPTRSTOCOMMON SAVE AC
01710 0500 00 0 00000 1076CLA0 GET TRAP LOCATION
01711 0621 00 0 01717 1077STAFLXT SET EXT CELL
01712 0622 00 0 01717 1078STDFLXT
01713 0500 00 0 00177 1079CLAFLAPCZ NORMAL CONTENTS OF ZERO
01714 0601 00 0 00000 1080STO0
01715 0500 00 0 77662 1081CLACOMMON RESTORE AC
01716 0520 00 0 01706 1082ZETFPTGNR TEST FOR IGNORE TRAP
01717 −3 00000 0 00000 1083FLXTTXL**,,** IMMEDIATE EXIT INSTRUCTION
01720 0600 00 0 01765 1084STZFPTDV INDICATE FLAPPING TRAP
01721 −0634 00 4 01562 1085SXD$ERROR,4 SAVE LINK IR
01722 0131 00 0 00000 1086FPTAXCA AC TO MQ
01723 0074 00 4 11021 1087TSXOCTALP,4 CONVERT TO OCTAL
01724 0602 00 0 01757 1088SLWFPTAC STORE OCTAL FOR LEFT HALF OF AC
01725 0074 00 4 11021 1089TSXOCTALP,4 CONVERT TO OCTAL
01726 0602 00 0 01760 1090SLWFPTAD STORE AWAY IN ERROR MESSAGE
01727 0560 00 0 01717 1091LDQFLXT GET TRAP CELL CONTENTS
01730 −0773 00 0 00022 1092RQL18 POSITION IN LEFT HALF OF MQ
01731 0074 00 4 11021 1093TSXOCTALP,4 CONVERT TO OCTAL
01732 −0501 00 0 00452 1094ORAOBLANK MAKE LAEDING ZERO A BLANK
01733 0602 00 0 01754 1095SLWFPTLO SAVE OCTAL FOR LOCATION OF ERROR
01734 −0774 00 4 01761 1096AXCFPTF,4 POINTER TO BEGINNING OF ERROR MESSAGE
01735 0520 00 0 01765 1097ZETFPTDV TEST FOR DIVIDE CHECK ERROR
01736 −0774 00 4 01763 1098AXCFPTD,4 DIVIDE CHECK MESSAGE
01737 0500 00 4 00000 1099CLA0,4 PICK UP PROPER MESSAGE
01740 0601 00 0 01751 1100STOFPTTY STORE IN MESSAGE
01741 0500 00 4 00001 1101CLA1,4
01742 0601 00 0 01752 1102STOFPTTY+1
01743 0074 00 4 01222 1103TSXOUTPUT,4 WRITE ERROR MESSAGE
01744 0 00000 0 00364 1104 BCDOUT
01745 0 00010 0 01751 1105 FPTTY,,8
01746 −0754 00 0 00000 1106PXD0,0 CLAER AC
01747 0074 00 4 01563 1107TSX$ERROR+1,4 GO TO ERROR PROGRAM
01750 542760600154 1108BCI1,*G␣␣1*
01751 606060606060 1109FPTTYBCI3,␣␣␣␣␣␣␣␣␣␣␣␣AT....
01752 606060606060 1110
01753 216333333333 1111
01754 0 00000 0 00000 1112FPTLO LOCATION OF ERROR
01755 606631633060 1113BCI2,␣WITH␣AC␣=␣␣
01756 212360136060 1114
01757 0 00000 0 00000 1115FPTAC OCTAL LEFT HALF OF AC
01760 0 00000 0 00000 1116FPTAD OCTAL RIGHT HALF OF AC
01761 002643214760 1117FPTFBCI2,0FLAP␣TRAP␣␣
01762 635121476060 1118
01763 002431653124 1119FPTDBCI2,0DIVIDE␣CHK␣
01764 256023304260 1120
1121 *
1122 * THIS ROUTINE USES $ERROR,$ERRORP11 AND FPTGNR
01765 0 00000 0 00000 1123FPTDV DIVIDE CHECK INDICATOR CELL
1124 *
1125 *
1126 * STRPNT A DEBUGGING AID WHICH PRINTS THE DECREMENT OF THE AC AS
1127 * A LIST OR DUMPS AC AND IR 4 IN OCTAL WHICH EVER IS APPROPRIATE.
1128 *
01766 0520 00 0 02051 1129STRPNTZETSTRT TEST IF ROUNTINE IS ACTIVE.
01767 0020 00 0 02037 1130TRASTREX IT IS THEREFORE EXIT
01770 0634 00 4 02035 1131SXASTRX,4 NO, SAVE LINK IR
01771 0601 00 0 02046 1132STOSTRA SAVE AC
01772 −0600 00 0 02047 1133STQSTRQ SAVE MQ
01773 −0625 00 0 02051 1134STLSTRT SET CELL TO INDAICTE ACTIVE
01774 0560 00 0 00000 1135LDQ0 PICK UP TRAP LOCATION
01775 −0600 00 0 02052 1136STQSTRXT SAVE CONTENTS
01776 −0773 00 0 00022 1137RQL18 ADDRESS PORTION TO LEFT HALF OF MQ
01777 0074 00 4 11021 1138TSXOCTALP,4
02000 −0501 00 0 00452 1139ORAOBLANK LEADING BLANK
02001 0602 00 0 02055 1140SLWSTRM STORE TRAP ADDRESS IN OCATL
02002 0500 00 0 00177 1141CLAFLAPCZ RESTORE ORIGNAL CONTENTS OF ZERO
02003 0601 00 0 00000 1142STO0
02004 0074 00 4 01222 1143TSXOUTPUT,4
02005 0 00000 0 00364 1144 BCDOUT OUTPUT BCD MESSAGE
02006 0 00005 0 02053 1145 STRN,,5
02007 0560 00 0 02046 1146STROLDQSTRA AC AT TIME OF TRAP
02010 0074 00 4 11021 1147TSXOCTALP,4 CONVERT TO OCTAL
02011 0602 00 0 02064 1148SLWSTRAMA STORE LEFT HALF IN OCTAL
02012 0074 00 4 11021 1149TSXOCTALP,4 CONVERT TO OCTAL
02013 0602 00 0 02065 1150SLWSTRAMB RIGHT HALF IN OCTAL
02014 0560 00 0 02035 1151LDQSTRX PICK UP LINK IR
02015 −0773 00 0 00025 1152RQL21 SHIFT TO LEFT OF MQ
02016 0074 00 4 11021 1153TSXOCTALP,4 CONVERT TO OCTAL
02017 0771 00 0 00006 1154ARS6 MAKE A HOLE
02020 −0501 00 0 00452 1155ORAOBLANK MAKE LEADING ZERO A BLANK
02021 0602 00 0 02070 1156SLWSTRMC PUT IN MESSAGE
02022 0074 00 4 01222 1157TSXOUTPUT,4
02023 0 00000 0 00364 1158 BCDOUT OUTPUT IN BCD
02024 0 00011 0 02060 1159 STRMD,,9
02025 −0500 00 0 02046 1160CALSTRA PICK UP AC
02026 −0734 00 4 00000 1161PDX0,4
02027 −0320 00 0 00466 1162ANAPTAMSK MASK OUT ONLY DECREMENT
02030 −0100 00 0 02035 1163TNZSTRF GO IF ANY THING LEFT
02031 −3 00000 4 02035 1164STRTOPTXLSTRF,4,** -TFS-1 IF NOT IN LIST STRUCTURE
02032 3 00000 4 02035 1165STRBTMTXHSTRF,4,** -BRK GO TO EXIT IF NOT IN FREE STORAG
02033 −0754 00 4 00000 1166PXD0,4 OTHERWISE
02034 0074 00 4 04604 1167TSX$PRINT,4 PRINT AS LISP LIST
02035 1168STRFBSS0
02035 0774 00 4 00000 1169STRXAXT**,4 DITTO LINK IR
02036 0600 00 0 02051 1170STZSTRT INDICATE ROUTINE IS INACTIVE
02037 0522 00 0 01403 1171STREXXEC$SWT6 SHOULD WE GO BACK TO OVERLORD
02040 0020 00 0 02042 1172TRA*+2
02041 0020 00 0 10230 1173TRAOVRLRD FIND NEXT OVERLORD DIRECTION CARD
02042 −0754 00 0 00000 1174PXD0,0
02043 −0634 00 4 01562 1175SXD$ERROR,4
02044 0074 00 4 01563 1176TSX$ERROR+1,4
02045 542660600554 1177BCI1,*F␣␣5*
1178 *
1179 *
02046 0 00000 0 00000 1180STRA AC STROAGE
02047 0 00000 0 00000 1181STRQ MQ
02050 −3 00000 0 00000 1182STRDTXL**,,** MASK FOR PREFIX
02051 0 00000 0 00000 1183STRT CELL INDICATES ACTIVE IF NON-ZERO
02052 0 00000 0 00000 1184STRXT STORAGE FOR CONTENTS OF ZERO
02053 006263516063 1185STRNBCI2,0STR␣TRAP␣AT
02054 512147602163 1186
02055 0 00000 0 00000 1187STRMPZE TRAP LOCATION IN OCTAL
02056 604623632143 1188BCI2,␣OCTAL.␣␣␣␣␣
02057 336060606060 1189
02060 004623632143 1190STRMDBCI4,0OCTAL␣CONTENTS␣OF␣AC␣␣␣
02061 602346456325 1191
02062 456362604626 1192
02063 602123606060 1193
02064 0 00000 0 00000 1194STRAMA
02065 0 00000 0 00000 1195STRAMB OCTAL CONTENTS OF AC GO HERE
02066 602145246031 1196BCI2,␣AND␣INDEX␣4
02067 452425676004 1197
02070 0 00000 0 00000 1198STRMC OCATL LINK IR CONTENTS GO HERE
1199 *
1200 * THIS ROUTINE USES $PRINT,OUTPUT,BCDOUT AND OBLANK
1201 *
1202 *
1203 ERROR1 USER BY APPLY HAS ONE ARGUMENT AND PRINTS IT USING
1204 PRINT
02071 −0634 00 4 01562 1205ERROR1SXD$ERROR,4
02072 0074 00 4 01563 1206TSX$ERROR+1,4
02073 542160600154 1207BCI1,*A␣␣1*
1208 *
1209 * SETUP TAKES SIZE PARAMETERS AND SETS UP THE DEPENDENT CELLS
1210 * MAINLY IN THE RECLAIMER (GARBAGGE COLLECTOR) AND STRPNT
1211 *
1212HEADE
1213 *
1214 * RESETP ALTERNATE ENTRANCE TO SETUP TO CHANGE COMPOSITION OF
1215 * FREE STRORAGE SLIGHTLY.
1216 *
02074 −0625 00 0 02256 1217RESETPSTLRST SET RESETUP SWITCH
02075 0634 00 4 02252 1218SXASUPX,4 SAVE LINK IR
02076 0020 00 0 02147 1219TRARSU CHANGE GARBAGGE COLLECTOR PARAMETERS
1220 *
02077 0634 00 4 02252 1221SETUPSXASUPX,4 SAVE LINK IR
02100 0500 00 0 02303 1222CLA$TPG
02101 0601 00 0 02304 1223STO$ORG
02102 0400 00 0 02305 1224ADDLBINPG
02103 0734 00 4 00000 1225PAX0,4
02104 1 77777 4 02105 1226TXI*+1,4,−1
02105 −0634 00 4 16526 1227SXDC$LBPTP,4 SETUP FOR LAP
02106 0737 00 4 00000 1228PAC0,4
02107 −0634 00 4 04016 1229SXDBLKETP,4 END OF BLOCK RESERVATION
02110 0400 00 0 00371 1230ADD$Q1
02111 0737 00 4 00000 1231PAC0,4
02112 −0634 00 4 02317 1232SXD$CPPI,4 SET PUSH DOWN CELLS
02113 −0634 00 4 02413 1233SXD$CSSI,4
02114 −0634 00 4 11670 1234SXDNUBPDL,4 PRIVATE COPY FOR BACKTRACE
02115 0400 00 0 02306 1235ADDLPBPDL
02116 0621 00 0 02761 1236STAZPDL G C ZEROS THE UNUSED PDL
02117 0402 00 0 00407 1237SUB$Q20 PROTECTION AGINST COMPILER SAVING
02120 0737 00 4 00000 1238PAC0,4 WTH OUT LOOKING
02121 −0634 00 4 02414 1239SXDENDPDL,4 OUT OF PDL TEST
02122 0500 00 0 02274 1240CLA$TFS
02123 0402 00 0 02310 1241SUBLFREES
02124 0621 00 0 02277 1242STA$TBT
02125 0400 00 0 00371 1243ADD$Q1
02126 0621 00 0 02276 1244STA$BFS
02127 0500 00 0 02307 1245CLALFULWS
02130 0771 00 0 00005 1246ARS5
02131 0400 00 0 00371 1247ADD$Q1
02132 0601 00 0 02311 1248STO$LBT
02133 0500 00 0 02276 1249CLA$BFS
02134 0402 00 0 02311 1250SUB$LBT
02135 0601 00 0 02300 1251STO$BBT
02136 0402 00 0 00371 1252SUB$Q1
02137 0601 00 0 02301 1253STO$TFW
02140 0500 00 0 02276 1254CLA$BFS
02141 0402 00 0 02307 1255SUBLFULWS
02142 0601 00 0 02302 1256STO$BFW
02143 0402 00 0 02306 1257SUBLPBPDL
02144 0402 00 0 02305 1258SUBLBINPG
02145 0402 00 0 02303 1259SUB$TPG
02146 −0120 00 0 02257 1260TMISETERR OVER LAPPING STORAGE ERROR
1261 * STRPNT SETUP
02147 0535 00 4 02274 1262RSULAC$TFS,4
02150 1 77777 4 02151 1263TXI*+1,4,−1
02151 −0634 00 4 02031 1264SXDSTRTOP,4
02152 0535 00 4 02276 1265LAC$BFS,4
02153 −0634 00 4 02032 1266SXDSTRBTM,4
1267 * RECLAIMER SETUP
02154 0534 00 4 02311 1268LXA$LBT,4
02155 0634 00 4 02532 1269SXAA,4
02156 0534 00 4 02276 1270LXA$BFS,4
02157 0634 00 4 02533 1271SXAB,4
1272
02160 0534 00 4 02301 1273LXA$TFW,4
02161 −0634 00 4 02645 1274SXDC,4
02162 −0634 00 4 02734 1275SXDI,4
02163 −0634 00 4 03116 1276SXDMONE,4
02164 0534 00 4 02277 1277LXA$TBT,4
02165 0634 00 4 02662 1278SXAMBTTA,4
02166 0634 00 4 02667 1279SXAD,4
02167 0634 00 4 02677 1280SXAE,4
02170 0634 00 4 03126 1281SXAMLTBT,4
02171 0534 00 4 02274 1282LXA$TFS,4
02172 0634 00 4 02713 1283SXAF,4
02173 0534 00 4 02276 1284LXA$BFS,4
02174 0634 00 4 02746 1285SXASFWLD,4
02175 0534 00 4 02302 1286LXA$BFW,4
02176 0634 00 4 02733 1287SXAH,4
02177 0535 00 4 02302 1288LAC$BFW,4
02200 −0634 00 4 03066 1289SXDMRKLST,4
02201 −0634 00 4 03114 1290SXDMLBDW,4
02202 0535 00 4 02274 1291LAC$TFS,4
02203 1 77777 4 02204 1292TXI*+1,4,−1
02204 −0634 00 4 03067 1293SXDMRKLST+1,4
02205 −0634 00 4 03111 1294SXDMLIST,4
02206 0535 00 4 02276 1295LAC$BFS,4
02207 −0634 00 4 02720 1296SXDG,4
02210 −0634 00 4 03112 1297SXDMLBFA,4
02211 −0535 00 4 02414 1298LDCENDPDL,4
02212 1 00001 4 02213 1299TXI*+1,4,1
02213 0634 00 4 03100 1300SXAMLEPD,4
02214 0634 00 4 03107 1301SXAMLEPE,4
02215 0535 00 4 02300 1302LAC$BBT,4
02216 −0634 00 4 03113 1303SXDMLBBJ,4
02217 0520 00 0 02256 1304ZETRST SKIP IF INITIAL SETIP
02220 0020 00 0 02252 1305TRASUPX GO TO EXIT OTERWISE
02221 0535 00 4 02276 1306LAC$BFS,4 BOTTOM OF FREE STORAGE
02222 1 77777 4 02223 1307TXI*+1,4,−1 SUBSTRACT 1
02223 −0634 00 4 02232 1308SXDSUPFS,4 SET DECREMENT
02224 0535 00 4 02275 1309LAC$MFS,4 LOWERP
02225 −0754 00 4 00000 1310PXD0,4 POINTER TO LWERP IN DECREMENT
02226 0601 00 0 03751 1311STO$FREE SET UP FREE
02227 0400 00 0 00442 1312ADD$QD1
02230 0601 00 4 00000 1313STO0,4 START MAKING FREE STORAGE
02231 1 00001 4 02232 1314TXI*+1,4,1
02232 −3 00000 4 02227 1315SUPFSTXL*−3,4,** -BFS
02233 0600 00 4 00000 1316STZ0,4
02234 0535 00 4 02302 1317LAC$BFW,4 BOTTOM FULL WORD SPACR
02235 −0754 00 4 00000 1318PXD0,4
02236 0601 00 0 03727 1319STOFWORDL SET UP FULL WORD LIST
02237 −0737 00 4 00000 1320PDC0,4 GET IT RUE IN INDEX
02240 −0634 00 4 02243 1321SXDSUPFV,4 USE TO CALCULATE LENGTH OF FULL WORD S
02241 0534 00 4 02300 1322LXA$BBT,4 TFW + 1
02242 0634 00 4 02245 1323SXASUPFW,4 SET END + 1 ADDRESSS
02243 2 00000 4 02244 1324SUPFVTIX*+1,4,** LENGHT OF FULL WORD
02244 0402 00 0 00442 1325SUB$QD1
02245 0601 00 4 00000 1326SUPFWSTO**,4 MAKE LIST
02246 2 00001 4 02244 1327TIX*−2,4,1 LOOP
02247 0600 60 0 02245 1328STZ*SUPFW MAKE LAST ENTRY ZERO
02250 0500 00 0 66430 1329CLA$OBLB BEGINNING OF UNSORTED OBJECT LIST
02251 0074 00 4 02420 1330TSXCNSFWL,4
02252 0774 00 4 00000 1331SUPXAXT**,4
02253 0600 00 0 02256 1332STZRST ZERO RESETUP SWITCH
02254 −0754 00 0 00000 1333PXD0,0
02255 0020 00 4 00001 1334TRA1,4
02256 0 00000 0 00000 1335RST RESETUP TEST CELL
02257 0074 00 4 01222 1336SETERRTSXOUTPUT,4
02260 −0 00000 0 00364 1337MZEBCDOUT PRINT ON-LINE
02261 0 00011 0 02263 1338 NOSET,,9
02262 0020 00 0 02252 1339TRASUPX EXIT
02263 004665255143 1340NOSETBCI9,0OVERLAPPING␣PARAMETERS␣-SETUP-␣ERROR␣NUMBER␣*O␣␣7*␣␣␣
02264 214747314527 1341
02265 604721512144 1342
02266 256325516260 1343
02267 406225636447 1344
02270 406025515146 1345
02271 516045644422 1346
02272 255160544660 1347
02273 600754606060 1348
1349 *
1350HEAD0
1351 *
1352 * STORAGE MAP CELLS FOR LISP
1353 *
02274 0 00000 0 71651 1354TFS UPERML−1 UPPER LIMIT OF FREE STORAGE
02275 0 00000 0 66230 1355MFS LOWERP LOW LIMIT OF PERM. LIST STRUCTURE
02276 0 00000 0 00000 1356BFS BOTTOM OF FREE STORAGE
02277 0 00000 0 00000 1357TBT TOP OF BIT TABLE
02300 0 00000 0 00000 1358BBT BOTTOM OF BIT TABLR
02301 0 00000 0 00000 1359TFW TOP OF FULL WORD SPACE
02302 0 00000 0 00000 1360BFW BOTTOM OF FULL WORD SPACE PROPER
02303 0 00000 0 17462 1361TPG TOPROG
02304 0 00000 0 00000 1362ORG ORIGIN OF BINARY PROGRAM IN DECREMENT
02305 0 00000 0 00000 1363LBINPG LENGTH OF BINATY PROGRAM
02306 0 00000 0 00000 1364LPBPDL LENGTH OF PUBLIC PUSH DOWN LIST
02307 0 00000 0 00000 1365LFULWS LENGTH OF FULL WORD SPACE + BIT TABLE
02310 0 00000 0 00000 1366LFREES LENGTH OF FREE STORAGE
02311 0 00000 0 00000 1367LBT LENGTH OF FULL WORD BIT TABLE
1368 * SAVE AND UNSAVE THE CLOSRD SUBROUTINES THAT CONTROL
1369 * THE PUBLIC PUSH DOWN LIST. THE CALLING SEQUENCES ARE ...
1370 *
1371 * TSX $SAVE,4
1372 * TXL $ENDN,,END OF BLOCK TO BE SAVED + 2
1373 * RETURN
1374 * WHERE N IN $ENDN IS THE NUMBER OF ITEMS TO BE SAVED
1375 *
1376 * TSX UNSAVE,4
1377 * RETURN
1378 * THE SAVED ITEMS MUST BE IN A CONTIGOUS BLOCK WITH THE
1379 * THE FIRST ITEM PZE ATOMIC NAME OF SUBR,,IR 4
1380 * THE SAVE PARAMETER WORD IS ADDED AS THE LAST ITEM ON THE
1381 * BLOCK TO BE SAVED BUT IS NOT UNSAVED.
1382 *
02312 0634 00 2 02405 1383SAVESXASAVY,2 SAVE INDEX 2 AND 1
02313 0634 00 1 02404 1384SXASAVZ,1
02314 0601 00 0 02407 1385STOSAVT SAVE THE AC
02315 0500 60 4 00001 1386CLA*1,4 AMMOUNT TO SUBTRACT FROM CPPI IN AC
02316 0734 00 1 00000 1387PAX0,1 PUT - NUMBER OF ITEMS TO BE SAVED + 1
02317 1 00000 1 02320 1388CPPITXI*+1,1,** IN IR 1 AND INCREMENT BE PUSH DOWN CNT
02320 −3 00000 1 02415 1389TXLNOPDL,1,** GO TO NOPDL IF NOT ENOUGH PDL
02321 −0634 00 1 02317 1390SXD$CPPI,1 UP DATE PDL COUNTER LOCATION
02322 0500 00 4 00001 1391CLA1,4 PARAMETER WORD
02323 0601 00 1 77777 1392STO−1,1 PUT ON PUSH DOWN LIST
02324 −0737 00 2 00000 1393PDC0,2 LOCATION OF BLOCK TO BE SAVED + 2
02325 0522 00 4 00001 1394XEC1,4 JUMP INTO SAVE TABLE
1395 *
02326 0634 00 2 02405 1396UNSAVESXASAVY,2 SAVE INDEX 2 AND 1
02327 0634 00 1 02404 1397SXASAVZ,1
02330 0601 00 0 02407 1398STOSAVT SAVE THE AC
02331 −0534 00 2 02317 1399LXD$CPPI,2 CURRENT PUSH DOWN COUNTER
02332 0500 00 2 77777 1400CLA−1,2 LAST SAVE PARAMETER WORD
02333 0621 00 0 02336 1401STASAVJ SET FETCH AND TXI INSTRUCTIONS
02334 0621 00 0 02342 1402STASAVK
02335 −0634 00 2 02337 1403SXDSAVI,2 SET UP TO RESTORE PDL COUNTER
02336 0535 00 1 00000 1404SAVJLAC**,1 NUMBER TO BE UNSAVED
02337 1 00000 1 02340 1405SAVITXI*+1,1,** ADD PUSH DOWN COUNTER
02340 −0634 00 1 02317 1406SXD$CPPI,1 UPDATE PDL COUNTER CELL
02341 −0737 00 1 00000 1407PDC0,1 LOCATION OF END OF BLOCK + 2
02342 1 00001 4 00000 1408SAVKTXI**,4,1 JUMP TO PUSH DOWN TABLE AND SET IR 4
1409 * PROPER EXIT .
1410 *
1411 * SAVE AND UNSAVE TABLE TO DO THE ACTUAL MOVING TO AND FROM
1412 * THE PUBLIC PUSHD DOWN LIST.
1413 *
02343 0500 00 2 77757 1414END16CLA−17,2
02344 0601 00 1 77757 1415STO−17,1
02345 0500 00 2 77760 1416END15CLA−16,2
02346 0601 00 1 77760 1417STO−16,1
02347 0500 00 2 77761 1418END14CLA−15,2
02350 0601 00 1 77761 1419STO−15,1
02351 0500 00 2 77762 1420END13CLA−14,2
02352 0601 00 1 77762 1421STO−14,1
02353 0500 00 2 77763 1422END12CLA−13,2
02354 0601 00 1 77763 1423STO−13,1
02355 0500 00 2 77764 1424END11CLA−12,2
02356 0601 00 1 77764 1425STO−12,1
02357 0500 00 2 77765 1426END10CLA−11,2
02360 0601 00 1 77765 1427STO−11,1
02361 0500 00 2 77766 1428END9CLA−10,2
02362 0601 00 1 77766 1429STO−10,1
02363 0500 00 2 77767 1430END8CLA−9,2
02364 0601 00 1 77767 1431STO−9,1
02365 0500 00 2 77770 1432END7CLA−8,2
02366 0601 00 1 77770 1433STO−8,1
02367 0500 00 2 77771 1434END6CLA−7,2
02370 0601 00 1 77771 1435STO−7,1
02371 0500 00 2 77772 1436END5CLA−6,2
02372 0601 00 1 77772 1437STO−6,1
02373 0500 00 2 77773 1438END4CLA−5,2
02374 0601 00 1 77773 1439STO−5,1
02375 0500 00 2 77774 1440END3CLA−4,2
02376 0601 00 1 77774 1441STO−4,1
02377 0500 00 2 77775 1442END2CLA−3,2
02400 0601 00 1 77775 1443STO−3,1
02401 0500 00 2 77776 1444END1CLA−2,2
02402 0601 00 1 77776 1445STO−2,1
02403 0500 00 0 02407 1446END0CLASAVT RESTORE THE AC
02404 0774 00 1 00000 1447SAVZAXT**,1 AND INDEX 1 + 2
02405 0774 00 2 00000 1448SAVYAXT**,2
02406 0020 00 4 00002 1449TRA2,4 EXIT
1450 *
02407 0 00000 0 00000 1451SAVT TEMPORARY STORAGE FOR AC
1452 * TIMING INFORMATION .. SAVE AND UNSAVE 34 + 4N CYCLES
1453 * ON THE 709 (SUBTRACT 5 CYCLES FOR SAVE AND 4 FOR UNSAVE
1454 * ON THE 7090)
1455 *
1456
1457 TERPDL
1458 RESETS PUBLIC PUSH DOWN LIST TO ZERO
02410 0500 00 0 02413 1459TERPDLCLA$CSSI
02411 0622 00 0 02317 1460STDCPPI
02412 0020 00 4 00001 1461TRA1,4
02413 0 00000 0 00000 1462CSSI
02414 −3 00000 4 02415 1463ENDPDLTXL*+1,4,** OUT OF PDL TEST INSTRUCTION (IS XEC)
02415 −0634 00 4 01562 1464NOPDLSXD$ERROR,4
02416 0074 00 4 01563 1465TSX$ERROR+1,4
02417 542760600254 1466BCI1,*G␣␣2*
1467
1468 *
1469HEADE
1470 *
1471 * CNSFWL USED BY SETUP TO MOVE ALL FULL WORDS ON PERMENENT OBJECTS
1472 * TO THE FULL WORD SPACE.
1473 * ALSO BUCKET SORTS THE PERMENENT OBJECTS.
1474 *
02420 0634 00 4 02447 1475CNSFWLSXACNFWX,4 SAVE INDEX REGISTERS
02421 0634 00 2 02450 1476SXACNFWY,2
02422 −0734 00 4 00000 1477PDX0,4 POINTER TO OBJECT LIST
02423 0500 00 4 00000 1478CNMLPCLA0,4 NEXT WORD ON LIST
02424 0622 00 0 03310 1479STDCNXT POINTER TO NEXT WORD
02425 0734 00 2 00000 1480PAX0,2 POINTET TO AN ATOM
02426 −0634 00 2 03313 1481SXDCNAT,2 SAVE THE POINTER TO THE ATOM
02427 0500 00 2 00000 1482CLA0,2
02430 −0320 00 0 00470 1483ANATAGMSK TEST FOR NUMBER
02431 −0100 00 0 02452 1484TNZCNNM MAKE A NUMVER
02432 0500 00 2 00000 1485CNSLPCLA0,2 NEXT WORD ON ATOM
02433 0734 00 2 00000 1486PAX0,2 CAR OF ATOM, SEARCH FOR FULL WORD
02434 3 06733 2 02436 1487TXH*+2,2,$SUBR SUCH AS $SUBR
02435 3 06732 2 02461 1488TXHCMKO,2,$SUBR−1
02436 3 10103 2 02440 1489TXH*+2,2,$FSUBR
02437 3 10102 2 02461 1490TXHCMKO,2,$FSUBR−1
02440 3 07335 2 02442 1491TXH*+2,2,$PNAME
02441 3 07334 2 02476 1492TXHCMPNT,2,$PNAME−1
02442 −0734 00 2 00000 1493CNRSPDX0,2 IS NONE OF THE ABOVE SO CDR TO IR 2
02443 3 00000 2 02432 1494CNRTTXHCNSLP,2,0 GO BACK IF NOT END OF PROPERTY LIST
02444 −0534 00 4 03310 1495CNNRLXDCNXT,4 POINTER TO NEXT OBJECT
02445 3 00000 4 02423 1496TXHCNMLP,4,0 GO BACK IF NOT END
02446 −0754 00 0 00000 1497PXD0,0 CLAER AC
02447 0774 00 4 00000 1498CNFWXAXT**,4 RESTORE INDEX REGISTERS
02450 0774 00 2 00000 1499CNFWYAXT**,2
02451 0020 00 4 00001 1500TRA1,4 EXIT
1501 *
02452 0500 00 2 00000 1502CNNMCLA0,2
02453 −0120 00 0 02444 1503TMICNNR DONT MOVE NUMBERS WITH MZE PREFIX
02454 −0734 00 4 00000 1504PDX0,4
02455 0500 00 4 00000 1505CLA0,4
02456 0074 00 4 03710 1506TSX$CONSW,4
02457 0622 00 2 00000 1507STD0,2
02460 0020 00 0 02444 1508TRACNNR MAKE UP THE NEW NUMBER
1509 *
02461 −0734 00 2 00000 1510CMKOPDX0,2 PUT ONE WORD IN FULL WORD SPACE
02462 0500 00 2 00000 1511CLA0,2 GET NEXT WORD ON PROPERTY LIST
02463 0622 00 0 03311 1512STDCNX POINTER TO REST OF OBJECT
02464 −0120 00 0 02474 1513TMICMK SKIP MOVING TO REST OF OBJECT
02465 0734 00 4 00000 1514PAX0,4 SENSED, OTHERWISE GET POINTER TO FULL
02466 0500 00 4 00000 1515CLA0,4 WORD AND WORD IT SELF IN AC
02467 0074 00 4 03710 1516TSX$CONSW,4 PUT IT IN FULL WORD SPACE
02470 0771 00 0 00022 1517ARS18 MOVE POINTER TO WORD IN FWS TO ADDRESS
02471 0621 00 2 00000 1518STA0,2 REPLACE THE ADDRESS
02472 −0534 00 2 03311 1519LXDCNX,2 POINTRE TO NEXT WORD ON PROPERTY LIST
02473 0020 00 0 02443 1520TRACNRT RETURN
1521 *
02474 0602 00 2 00000 1522CMKSLW0,2 RESTORE WORD WITH PLUS SIGN
02475 0020 00 0 02442 1523TRACNRS GO BACK
1524 *
02476 −0734 00 2 00000 1525CMPNTPDX0,2 PUT PRINT NAME IN FULL WORD SPACE
02477 0500 00 2 00000 1526CLA0,2 NEXT WORD ON PROPERTY LIST
02500 0622 00 0 03311 1527STDCNX POINTER TO NEXT WORD ON PROPERTY LIST
02501 0734 00 2 00000 1528PAX0,2 POINTET TO PNAME LIST
02502 −0634 00 2 03314 1529SXDCNVA,2 SAVE IT
02503 0500 00 2 00000 1530CMPLPCLA0,2 FIRST FORD ON PNAME LIST
02504 −0120 00 0 02515 1531TMICMPS SKIP IF WORD IS FLAGGED
02505 0622 00 0 03312 1532STDCNFT POINTER TO NEXT WORD ON PNAME LIST
02506 0734 00 4 00000 1533PAX0,4 POINTER TO FULL WORD
02507 0500 00 4 00000 1534CLA0,4 FULL WORD
02510 0074 00 4 03710 1535TSX$CONSW,4 PUT IN FULL WORD SPACE
02511 0771 00 0 00022 1536ARS18 POINTER TO WORD
02512 0621 00 2 00000 1537STA0,2 RPLACE THE ADDRESS
02513 −0534 00 2 03312 1538LXDCNFT,2 POINTER TO NEXT WORD ON PNAME LIST
02514 3 00000 2 02503 1539TXHCMPLP,2,0 GO BACK IF NOT END
02515 0500 00 0 03314 1540CMPSCLACNVA POINTER TO PNAME LIST
02516 0560 00 0 03313 1541LDQCNAT ATOM THAT WE ARE WORKING ON
02517 0074 00 4 06417 1542TSXBUKSRT,4 PUT ON BUCKET SORTED OBJECT LIST
02520 −0534 00 2 03311 1543LXDCNX,2 POINTER TO NEXT WORD ON ATOM
02521 0020 00 0 02443 1544TRACNRT GO BACK
1545 *
1546 *
1547 *
1548 * RECLAIMER LISP 1.5 STORAGE CONTROL PROGRAM. CODED 1 MARCH 1961
1549 *
1550
02522 0634 00 4 03043 1551RECLAMSXARCX,4 SAVE INDEX REGISTER
02523 0634 00 2 03044 1552SXARCY,2
02524 0634 00 1 03045 1553SXARCZ,1
02525 0604 00 0 03224 1554STIRCIND AND MACHINE REGISTETS
02526 0601 00 0 03306 1555STORCAC
02527 −0600 00 0 03307 1556STQRCMQ
02530 0600 00 0 03225 1557STZRCBE INITIALIZE BAD EXIT CELL
02531 0560 00 0 03270 1558RCALDQRCSGNL SIGNAL PHASE 1
02532 0774 00 4 00000 1559AAXT**,4 BIT TABLE LENGTH
02533 0600 00 4 00000 1560BSTZ**,4 DOTTOM FREE STORAGE
02534 2 00001 4 02533 1561TIX*−1,4,1 ZERO THE BIT TABLE
02535 −0534 00 4 02414 1562LXDENDPDL,4 END OF PDL
02536 −0634 00 4 02540 1563SXDRCIA,4 SET UP TNX INSTRUCTION
02537 −0534 00 4 02317 1564LXD$CPPI,4 CURRENT PUSH DOWN LIST LOC.
02540 −2 00000 4 03103 1565RCIATNXMLPDE,4,** AMMOUNT OF PUSH DOWN LIST AVAILABLE
02541 −0634 00 4 03102 1566SXDMLPDC,4 SET CELL IN MRKLST
02542 0634 00 4 02760 1567SXAZPDLA,4 LENGTH LEFT BAR FOR ZEROIND PDL
02543 −0774 00 2 66427 1568AXCOBLIST,2 POINTER TO OBJECT LICT
02544 0441 00 0 10340 1569LDISYSIND SYSTEM INDICATORS
02545 0520 00 0 11516 1570ZETEVQRTS SKIP F DURING READ IN THE EVALQUOTE
02546 0056 00 000004 1571RNTDEBUGI SKIP MARKING OBLIST IF IN A DEBUG
02547 0074 00 4 03066 1572TSXMRKLST,4 MARK THE LIST
1573 *
1574 * TEMLIS MARKER
1575 * TEMLIS IS A LIST IN FREE STORAGE AND FULL WORD SPACE
1576 * OF THE FORM (CONS (CONSW BEG,,END) TEMLIS) AND INDICATES
1577 * PLACES WHERE LIST STRUCTURE MAY BE DURING A GARBAGE
1578 * COLLECTION. USED PRINCIPALLY BY THE COMPILER
1579 *
02550 0600 00 0 03273 1580STZTMLM SET EXIT SWITCH
02551 −0534 00 4 03304 1581LXDTEMLIS,4
02552 0500 00 4 00000 1582TMLJCLA0,4 NEXT WORD ON TEMLIS
02553 0622 00 0 03273 1583STDTMLM SAVE POINTER TO NEXT WORD
02554 0734 00 4 00000 1584PAX0,4 POINTER TO FULL WORD
02555 0500 00 4 00000 1585CLA0,4 FULL WORD
02556 0734 00 4 00000 1586PAX0,4 BEGINNING OF ARRAY
02557 −0634 00 4 02563 1587SXDTMLD,4
02560 −0734 00 1 00000 1588PDX0,1 END OF ARRAY
02561 1 00001 1 02562 1589TXI*+1,1,1 ADD 1
02562 0634 00 1 02565 1590TMLKSXATMLE,1
02563 −2 00000 1 02577 1591TMLDTNXTMLH,1,** SUBTRACT BEGINNING , GIVES COUNT IN IR
02564 0634 00 1 03216 1592SXAGCPDLC,1 LAST USE IS MARKING PDL, SAVE LENGTH
02565 0441 00 1 00000 1593TMLELDI**,1 PICK UP WORD
02566 0444 00 0 03274 1594OFTTMPTM SKIP IF NOTAG OR PREFIX
02567 0020 00 0 02576 1595TRATMLG NOT A LIST, DO NOT MARK
02570 −0046 00 0 00000 1596PIA ITEM TO AC
02571 0621 00 0 02574 1597STATMLF SAVE ADDRESS
02572 −0734 00 2 00000 1598PDX0,2
02573 0074 00 4 03066 1599TSXMRKLST,4 MARK THE DECREMENT
02574 0774 00 2 00000 1600TMLFAXT**,2 ADDRESS OF WORD TO IR
02575 0074 00 4 03066 1601TSXMRKLST,4 MARK IT
02576 2 00001 1 02565 1602TMLGTIXTMLE,1,1 GET NEXT WORD IN ARRAY
02577 −0534 00 4 03273 1603TMLHLXDTMLM,4 NEXT TEMLIS ITEM
02600 3 00000 4 02552 1604TXHTMLJ,4,0 GO IF NOT DONE
02601 0520 00 0 03273 1605ZETTMLM TEST FOR EXIT
02602 0020 00 0 02611 1606TRAMPDLF ALL DONE
02603 −0535 00 4 02413 1607LDC$CSSI,4 BEGINNING OF PDL
02604 −0634 00 4 02563 1608SXDTMLD,4 SET UP CELL
02605 −0535 00 1 02317 1609LDC$CPPI,1 FIRST FREE CELL ON PDL
02606 −0625 00 0 03273 1610STLTMLM INDICATE LAST USE OF LOOP
02607 0600 00 0 03216 1611STZGCPDLC PUSH DOWN LENGTH INITIALLY ZERO
02610 0020 00 0 02562 1612TRATMLK GO MARK PUSH DOWN LIST
02611 −0534 00 4 03305 1613MPDLFLXDARYLIS,4 START TO MARK ACTIVE ARRAYS
02612 −3 00000 4 02707 1614MARYBTXLRCB,4,0 GO IF NO ARRAYS
02613 0500 00 4 00000 1615CLA0,4 NEXT WORD ON ARYLIS
02614 0622 00 0 03226 1616STDMARYT SAVE POINTER TO NEXT WORD
02615 0734 00 4 00000 1617PAX0,4 ARYATOM TO AC
02616 0500 00 4 00000 1618MARYACLA0,4 NEXT WORD ON ATOM
02617 0734 00 4 00000 1619PAX0,4
02620 −3 10734 4 02622 1620TXL*+2,4,$ARRAY−1 SERCH FOR ARRAY SPECIFICATION
02621 −3 10735 4 02626 1621TXLMRKA,4,$ARRAY GO IF FOUND
02622 −0734 00 4 00000 1622PDX0,4 POINTER TO NEXT WORD
02623 3 00000 4 02616 1623TXHMARYA,4,0 GO IF NOT END OF ATOM
02624 −0534 00 4 03226 1624MARYCLXDMARYT,4 NEXT WORD ON ARYLIS
02625 0020 00 0 02612 1625TRAMARYB
1626 *
02626 −0734 00 4 00000 1627MRKAPDX0,4 GET ARRAY SPECIFICATIONS
02627 0500 00 4 00000 1628CLA0,4
02630 0734 00 4 00000 1629PAX0,4
02631 0500 00 4 00000 1630CLA0,4
02632 0734 00 4 00000 1631PAX0,4
02633 0500 00 4 00000 1632CLA0,4 FIRST SPEC. WORD
02634 0734 00 2 00000 1633PAX0,2 END OF ARRAY + 1
02635 0621 00 0 02702 1634STAMRKE END OF ARRAY + 1
02636 0500 00 4 00001 1635CLA1,4
02637 0601 00 0 03275 1636STOMRKP SECOND SPEC. WORD TOTAL L,, LIST L
02640 0734 00 1 00000 1637PAX0,1 TOTAL LENGTH
02641 −0634 00 1 02642 1638SXDMAA,1 UPDATE TNX INSTRUCTION
02642 −2 00000 2 02624 1639MAATNXMARYC,2,** LOCATION OF BEGINNING OF ARRAY
02643 0634 00 2 02644 1640SXAMAB,2 PREPARE TO COMPLEMENT
02644 −0774 00 2 00000 1641MABAXC**,2
02645 1 00000 2 02646 1642CTXI*+1,2,** TOP FULL WORD
02646 0754 00 2 00000 1643PXA0,2 CALCULATE BIT TABLE WORD AND BIT
02647 −0765 00 0 00005 1644LGR5 BIT NUMBER IN TO MQ
02650 0734 00 2 00000 1645PAX0,2 WORD NUMBER IN IR 2
02651 −0754 00 0 00000 1646PXD0,0 ZERO AC
02652 −0763 00 0 00005 1647LGL5 BIT NUMBER
02653 0734 00 4 00000 1648PAX0,4
02654 3 00036 4 02665 1649TXHMBTT,4,30 GO TO MARK BY 32
02655 −0754 00 0 00000 1650PXD0,0 ZERO AC
02656 −0501 00 4 03266 1651MACORABIT,4
02657 −2 00001 1 02662 1652TNXMBTTA,1,1 DECREMENT COUNT
02660 2 00001 4 02656 1653TIXMAC,4,1 RUN BIT COUNT DOWN
02661 −0501 00 0 03266 1654ORABIT PUT IN ZERO BIT
02662 −0602 00 2 00000 1655MBTTAORS**,2 TOP BIT TABLE, SET BITS
02663 −2 00001 1 02700 1656TNXMRKF,1,1 GO IF DONE
02664 1 77777 2 02665 1657TXI*+1,2,−1 DECREMENT BIT WORD BY ONE
02665 −0500 00 0 00471 1658MBTTCALMONS ALL ONES TO AC
02666 −2 00040 1 02671 1659MAETNXMAD,1,32 DECREMENT COUNT BY 32
02667 −0602 00 2 00000 1660DORS**,2 TOP BIT TABLE, SET ALL BITS
02670 1 77777 2 02666 1661TXIMAE,2,−1 DECREMENT BIT TABLE WORD COUNT
02671 0754 00 1 00000 1662MADPXA0,1 PREPARE TO MARK LAST BITS
02672 0737 00 1 00000 1663PAC0,1 COMPLMENT COUNT
02673 −0754 00 0 00000 1664PXD0,0 ZERO AC
02674 −0501 00 1 03226 1665MAFORAMBITF,1 SET PROPER BIT
02675 1 00001 1 02676 1666TXI*+1,1,1 INCREMENT COUNT BY ONE
02676 3 00000 1 02674 1667TXHMAF,1,0 GO UNTIL COUNT REACHES ZERO
02677 −0602 00 2 00000 1668EORS**,2 TOP BIT TABLE, SET BITS
02700 −0534 00 1 03275 1669MRKFLXDMRKP,1 GET LIST LENGTH IF ANY
02701 −3 00000 1 02624 1670TXLMARYC,1,0 EXIT IF A NON-LIST ARRAY
02702 0500 00 1 00000 1671MRKECLA**,1 LIST ITEM
02703 −0734 00 2 00000 1672PDX0,2
02704 0074 00 4 03066 1673TSXMRKLST,4 MARK IT
02705 2 00001 1 02702 1674TIXMRKE,1,1 GET NEXT ITEM
02706 0020 00 0 02624 1675TRAMARYC EXIT
1676 *
1677 * ALL MARKING DONE. NOW SWEEP FREE STORAGE.
1678 *
02707 0774 00 2 00000 1679RCBAXT0,2 ZERO COUNT IR
02710 0600 00 0 03212 1680STZFSC INITIALIZE COUNTER
02711 0560 00 0 03271 1681LDQRCSGNM SWEEPING SIGNAL TO MQ
02712 −0774 00 1 03751 1682AXC$FREE,1 INITIALIZE LAST LOC IR
02713 −0774 00 4 00000 1683FAXC**,4 TOP FREE STORAGE
02714 0502 00 4 00000 1684SFSLCLS0,4 PICK UP WORD
02715 −0120 00 0 02724 1685TMISFSC COLLECT IF SIGN NOW MINUS
02716 0601 00 4 00000 1686STO0,4 RESTORE WORD WITH + SIGN
02717 1 00001 4 02720 1687SFSATXI*+1,4,1 INCREMENT BY ONE
02720 −3 00000 4 02714 1688GTXLSFSL,4,** LOOP IF LESS THAN BOTTOM FREE STORAGE
02721 0600 00 1 00000 1689STZ0,1 ZERO LAST WORD COLLECTED
02722 0634 00 2 03212 1690SXAFSC,2 SAVE COUNT
02723 0020 00 0 02730 1691TRASWPFWS
02724 −0754 00 4 00000 1692SFSCPXD0,4 THIS LOCATION
02725 0601 00 1 00000 1693STO0,1 STORE POINTER IN LAST WORD COLLECTED
02726 −0734 00 1 00000 1694PDX0,1 UP DATE LAST WORD IR
02727 1 00001 2 02717 1695TXISFSA,2,1 UPDATE COUNTER
1696 *
1697 * NOW SWEEP FULL WORD SPACE WITH THE BIT TABLE
1698 *
02730 0774 00 4 03727 1699SWPFWSAXTFWORDL,4 BEGINNING OF FULL WORD LIST
02731 0634 00 4 03057 1700SXASFWA,4 INITIALIZE ADDRESS
02732 0600 00 0 03210 1701STZFWC ZERO FULL WORD COUNTER
02733 −0774 00 1 00000 1702HAXC**,1 BOTTOM FULL WORD SPACE
02734 1 00000 1 02735 1703ITXI*+1,1,** TOP FULL WORD SPACE
02735 0754 00 1 00000 1704PXA0,1 GET ADDRESS OF BIT TABLE CORRESPONDING
02736 −0765 00 0 00005 1705LGR5 TO THE BOTTOM OF FULL WORD SPACE
02737 0734 00 4 00000 1706PAX0,4 BIT TABLE WORD
02740 1 00001 4 02741 1707TXI*+1,4,1 MAKE INDEXING EASY
02741 −0754 00 0 00000 1708PXD0,0 ZERO AC
02742 −0763 00 0 00005 1709LGL5 BIT NUMBER
02743 0734 00 2 00000 1710PAX0,2 INTO IR 2
02744 1 00001 2 02745 1711TXI*+1,2,1 MAKE INDEXING EASY
02745 0535 00 1 02733 1712LACH,1 SET UP IR 1
02746 0441 00 4 00000 1713SFWLDLDI**,4 BOTTOM FREE STORAGE, (TBT + 1)
02747 0446 00 0 00471 1714ONTMONES SKIP IF ALL WORDS TO BE SAVED
02750 0020 00 0 03047 1715TRASFWSC SEARCH FOR THE WORDS TO BE COLLECTED
02751 1 77740 1 02752 1716TXI*+1,1,−32 DECREMENT CURRENT LOC IR
02752 2 00001 4 02746 1717SFWBTIXSFWLD,4,1 INDEX THROUGH BIT TABLE
02753 0500 00 0 03210 1718SFWDNCLAFWC ALL DONE, GET FULL WORD COUNTER
02754 0601 60 0 03057 1719STO*SFWA SET UP LAST CELL COLLECTED
02755 0560 00 0 03272 1720LDQRCSGNN PASE 3 SIGNAL
02756 0520 00 0 03220 1721ZETRCT TEST FOR OUT OF ARRAY SPACE ENTRANCE
02757 0074 00 4 03165 1722TSXRELOC,4 RELOCATE AND COMPACT FULL WORD SPACE
02760 0774 00 4 00000 1723ZPDLAAXT**,4 ZERO UNUSED PDL
02761 0600 00 4 00000 1724ZPDLSTZ**,4 ZERO PDL WORD
02762 2 00001 4 02761 1725TIX*−1,4,1
02763 0560 00 0 00402 1726LDQCRITWN CRITACL WORD NUMBER
02764 0600 00 0 03225 1727STZRCBE INITIALIZE BAD EXIT TEST CELL
02765 0500 00 0 03210 1728CLAFWC NUMBER OF FULL WORDS COLLECTED
02766 0040 00 0 02770 1729TLQRCEA TRANSFER IF MORE THAN CRITACL COLLECT
02767 −0625 00 0 03225 1730STLRCBE NOT ENOUGH, SIGNAL BAD EXIT
02770 0400 00 0 03222 1731RCEAADDTFWC ADD TOTAL OF FULL WORDS COLLECTED
02771 0601 00 0 03222 1732STOTFWC UPDATE COUNTER
02772 −0763 00 0 00004 1733LGL4 INCREASE TOLERENCE BY 2 TO THE 4 TH
02773 0500 00 0 03212 1734CLAFSC NUMBER OF FREE STORAGE CELLS PICKED UP
02774 0040 00 0 02776 1735TLQRCEB TRA IF GREATER THAN CRITACL NUMBER
02775 −0625 00 0 03225 1736STLRCBE NO, SIGNAL BAD EXIT
02776 0400 00 0 03223 1737RCEBADDTFSC ADD TOTAL OF FREE COLLECTED TO DATE
02777 0601 00 0 03223 1738STOTFSC UPDATE TOTAL
03000 0500 00 0 03217 1739CLARCC NUMBER OF RECLAIMATION CYCLES EXECUTED
03001 0400 00 0 00371 1740ADD$Q1 INCREMENT BY 1
03002 0601 00 0 03217 1741STORCC UPDATE TOTAL
03003 0500 00 0 03221 1742CLARLC NUMBER OF TIMES RELOCATION OF FWS
03004 0520 00 0 03220 1743ZETRCT SKIP IF NO RELOCATION
03005 0400 00 0 00371 1744ADD$Q1
03006 0601 00 0 03221 1745STORLC UPDATE COUNTER
03007 −0520 00 0 03225 1746NZTRCBE SKIP IF BAD EXIT
03010 0020 00 0 03012 1747TRARCED DO GOOD EXIT
03011 0020 00 0 03014 1748TRARCEC DO VERBOSE AND BAD EXIT
03012 −0520 00 0 03267 1749RCEDNZTVERBOS SKIP IF TALKATIVE
03013 0020 00 0 03040 1750TRARCEXIT DO EXIT
03014 0535 00 4 03043 1751RCECLACRCX,4 GET EXIT IR4
03015 −0754 00 4 00000 1752PXD0,4 AND CONVERT FOR PRINTING
03016 0131 00 0 00000 1753XCA
03017 0074 00 4 11021 1754TSXOCTALP,4
03020 −0501 00 0 00452 1755ORAOBLANK
03021 0602 00 0 03201 1756SLWRCT1
03022 0500 00 0 03210 1757CLAFWC FULL WORD COUNTER
03023 0074 00 4 04111 1758TSX$DECON,4 CONVERT TO BCD DECIMAL
03024 0602 00 0 03210 1759SLWRCT4 PUT IN MESSAGE
03025 0500 00 0 03212 1760CLAFSC FREE STORAGE COUNTER
03026 0074 00 4 04111 1761TSX$DECON,4 TO DECIMAL
03027 0602 00 0 03212 1762SLWRCT5 PUT IN MESSAGE
03030 0500 00 0 03216 1763CLAGCPDLC NUMBER OF ACTIVE REGISTERS ON PDL
03031 0074 00 4 04111 1764TSX$DECON,4 TO DECIMAL
03032 0602 00 0 03216 1765SLWRCT6 IN MESSAGE
03033 0074 00 4 01222 1766TSXOUTPUT,4 WRITE OUT MESSAGE
03034 0 00000 0 00364 1767 BCDOUT
03035 0 00023 0 03174 1768 RCTM,,19
03036 0520 00 0 03225 1769ZETRCBE SKIP IF GOOD EXIT
03037 0020 00 0 03152 1770TRARCBEX DO BAD EXIT
03040 0500 00 0 03306 1771RCEXITCLARCAC RESTORE MACHINE REGISTERS
03041 0560 00 0 03307 1772LDQRCMQ
03042 0441 00 0 03224 1773LDIRCIND
03043 0774 00 4 00000 1774RCXAXT**,4 AND INDEX REGISTERS
03044 0774 00 2 00000 1775RCYAXT**,2
03045 0774 00 1 00000 1776RCZAXT**,1
03046 0020 00 4 00001 1777TRA1,4 EXIT
03047 0446 00 2 03267 1778SFWSCONTMBIT,2 CHECK FOR CURRENT BIT
03050 0020 00 0 03055 1779TRASFWC IS OFF, COLLECT WORD
03051 1 77777 1 03052 1780TXI*+1,1,−1 IS ON, DECREMENT CURRENT LOC IR
03052 2 00001 2 03047 1781SFWDTIXSFWSC,2,1 INDEX THROUGH THE BITS
03053 0774 00 2 00040 1782AXT32,2 SET UP IR WITH NUMBER OF BITS PER WORD
03054 0020 00 0 02752 1783TRASFWB EXAMINE NEXT WORD IN BIT TABLE
1784 *
03055 −0754 00 1 00000 1785SFWCPXD0,1 COLLECT THIS WORD, POINTER TO THIS WOR
03056 0400 00 0 03210 1786ADDFWC D PLUS NUMBER OF WORDS COLLECTED IN AC
03057 0601 00 0 00000 1787SFWASTO** SET LAST WORD COLLECTED
03060 0400 00 0 00371 1788ADD$Q1 INCREMENT NUMBER OF FULL WORDS COLLECT
03061 0621 00 0 03210 1789STAFWC SAVE FULL WORD COUNTER
03062 −0737 00 1 00000 1790PDC0,1 COMPLEMENT CURRENT LOCATION
03063 0634 00 1 03057 1791SXASFWA,1 TO FORM TRUE ADDRESS FOR UPDATE STORE
03064 −0734 00 1 00000 1792PDX0,1 CURRENT LOCATION POINTER
03065 1 77777 1 03052 1793TXISFWD,1,−1 DECREMENT CURRENT LOCATION AND RETURN
1794 *
1795 * MRKLST THE RECURSIVE SUBROUTINE THAT DOES ALL LIST MARKING
1796 *
03066 3 00000 2 03132 1797MRKLSTTXHMLEXT,2,** BFW BAR, REJECT POINTERS TO PROGRAM
03067 −3 00000 2 03132 1798TXLMLEXT,2,** TFS BAR - 1, REJECT POINTERS TO LOADER
03070 0634 00 1 03130 1799SXAMSRTN,1 SAVE IR 1
03071 0634 00 4 03131 1800SXAMRKX,4 SAVE LINK IR
03072 0774 00 1 00001 1801AXT1,1 PRESET TO ONE FOR FAST PUSH DOWN ACESS
03073 0020 00 0 03111 1802TRAMLIST DO ACTUAL MARKING
1803 *
03074 0502 00 2 00000 1804MWINCLS0,2 MARK THIS WORD IN FREE STORAGE
03075 0120 00 0 03127 1805TPLMOUT TRANSFER OUT IF ALREADY MARKED
03076 0601 00 2 00000 1806STO0,2 CAR OF LIST
03077 0734 00 2 00000 1807PAX0,2 CAR TO IR 2
03100 0622 00 1 00000 1808MLEPDSTD**,1 ENDPDL + 1, SAVE CDR OF LIST ON PDR
03101 1 00001 1 03102 1809TXI*+1,1,1 INCREMENT PUSH DOWN COUNTER
03102 −3 00000 1 03111 1810MLPDCTXLMLIST,1,** ENDPDL - C($CPPI) BAR, GO IF NOT NOPDL
03103 0074 00 4 03133 1811MLPDETSXRCERR,4 OUT OF PUSH DOWN LIST, FATAL ERROR
03104 004546604724 1812BCI3,0NO␣PDL␣-MRKLST-␣␣
03105 436040445142 1813
03106 436263406060 1814
03107 0500 00 1 00000 1815MLEPECLA**,1 ENDPDL + 1, GET CDR OF LIST
03110 −0734 00 2 00000 1816PDX0,2 PUT IN IR 2
03111 −3 00000 2 03127 1817MLISTTXLMOUT,2,** TFS BAR - 1, OUT IF NOT IN LISP STORAG
03112 −3 00000 2 03074 1818MLBFATXLMWIN,2,** BOTTOM FREE STORAGE BAR, IN FREE
03113 −3 00000 2 03127 1819MLBBJTXLMOUT,2,** BBT BAR OUT IF POINTER TO BIT TABLE
03114 −3 00000 2 03116 1820MLBDWTXLMONE,2,** BOTTOM FULL WORD BAR, IN FULL WORD
03115 0020 00 0 03127 1821TRAMOUT EXIT , NOT ANY OF THE ABOVE
1822 *
03116 1 00000 2 03117 1823MONETXI*+1,2,** TOP FULL WORD
03117 0754 00 2 00000 1824PXA0,2 CALCULATE BIT TABLE WORD AND BIT
03120 −0765 00 0 00005 1825LGR5
03121 0734 00 2 00000 1826PAX0,2 BIT TABLE WORD
03122 −0754 00 0 00000 1827PXD0,0
03123 −0763 00 0 00005 1828LGL5 BIT TABLE BIT
03124 0734 00 4 00000 1829PAX0,4
03125 −0500 00 4 03266 1830CALBIT,4 PICK UP BIT
1831
03126 −0602 00 2 00000 1832MLTBTORS**,2 TOP BIT TABLE, PUT IN BIT
03127 2 00001 1 03107 1833MOUTTIXMLEPE,1,1 GO BACK IF IN RECURSION
03130 0774 00 1 00000 1834MSRTNAXT**,1 OTHERWISE RESTORE IR 1
03131 0774 00 4 00000 1835MRKXAXT**,4 AND LINK IR
03132 0020 00 4 00001 1836MLEXTTRA1,4 AND EXIT
1837 *
1838 * RCERR RECLAIMER FATAL ERROR DUMP ROUTINE
1839 *
03133 −0634 00 4 01562 1840RCERRSXD$ERROR,4 SAVE IR 4
03134 0634 00 4 03135 1841SXA*+1,4 COMPLEMENT IR 4 TO GET ERROR MESSAGE
03135 −0774 00 4 00000 1842AXC**,4
03136 1 00001 4 03137 1843TXI*+1,4,1 LOCATION OF ERROR MESSAGE
03137 0634 00 4 03142 1844SXARCFEM,4 BUILD OUTPUT CALL
03140 0074 00 4 01222 1845TSXOUTPUT,4 WRITE ERROR MESSAGE ON TAPE
03141 0 00000 0 00364 1846 BCDOUT
03142 0 00003 0 00000 1847RCFEM **,,3 WRITE OUT 3 WORDS
03143 0600 00 0 03751 1848STZ$FREE
03144 0600 00 0 03727 1849STZFWORDL ZERO STORAGE LISTS
03145 0441 00 0 10340 1850LDISYSIND GET SYSTEM INDICATORS
03146 0055 00 000010 1851SIRERRORI SET ERRIR INDICATOR
03147 0604 00 0 10340 1852STISYSIND UPDATE REGISTER
03150 0074 00 4 01521 1853TSX$TIME,4 PRINT THE CURRENT TO TIME
03151 0020 00 0 10230 1854TRAOVRLRD GET NEXT DIRECTION CARD
1855 *
03152 0441 00 0 03224 1856RCBEXLDIRCIND RESTORE MACHINE REGISTERS
03153 0500 00 0 03306 1857CLARCAC
03154 0560 00 0 03307 1858LDQRCMQ
03155 0534 00 4 03043 1859LXARCX,4 AND INDEX REGISTERS
03156 0534 00 2 03044 1860LXARCY,2
03157 0534 00 1 03045 1861LXARCZ,1
03160 −0634 00 4 01562 1862SXD$ERROR,4 SAVE IR 4
03161 0601 00 0 01556 1863STO$ERAC SAVE THE CONTENTS OF THE AC
03162 −0754 00 0 00000 1864PXD0,0
03163 0074 00 4 01563 1865TSX$ERROR+1,4 GO TO ERROR
03164 542723600254 1866BCI1,*GC␣2*
1867 *
1868 * RELOC RELOCATES ALL ITEMS IN FULL WORDS SPACE INTO A COMPACTED
1869 * BLOCK TO MAKE BLOCKS OF CONTIGOUS STORAGE AVAILABLE FOR
1870 * ARRAYS.
1871 *
03165 0634 00 4 03172 1872RELOCSXARELX,4 SAVE LINK IR
03166 0074 00 4 03133 1873TSXRCERR,4 THIS RPUTINE HAS NOT BEEN CODED YET.
03167 004546605125 1874BCI3,0NO␣RELOCATOR␣␣␣␣␣
03170 434623216346 1875
03171 516060606060 1876
03172 0774 00 4 00000 1877RELXAXT**,4 RESTORE LINK IR
03173 0020 00 4 00001 1878TRA1,4 RETURN TO MAIN PROGRAM
1879 *
1880 * MESSAGES AND CONSTANTS PLUS STORAGE GO HERE
1881 *
03174 002721512221 1882RCTMBCI5,0GARBAGE␣COLLECTOR␣ENTERED␣AT␣
03175 272560234643 1883
03176 432523634651 1884
03177 602545632551 1885
03200 252460216360 1886
03201 0 00000 0 00000 1887RCT1 THE CALL LOCATION IS PUT HERE
03202 604623632143 1888BCI4,␣OCTAL.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
03203 336060606060 1889
03204 606060606060 1890
03205 606060606060 1891
03206 606026644343 1892BCI2,␣␣FULL␣WORDS
03207 606646512462 1893
03210 0 00000 0 00000 1894RCT4 NUMBER FULL WORDS COLLECTED
03211 602651252560 1895BCI1,␣FREE␣
03212 0 00000 0 00000 1896RCT5 FREE STORAGE WORDS COLLECTED
03213 606047646230 1897BCI3,␣␣PUSH␣DOWN␣DEPTH␣
03214 602446664560 1898
03215 242547633060 1899
03216 0 00000 0 00000 1900RCT6 DEPTH ON PUSH DOWN LIST GOES HERE
03210 1901FWCSYNRCT4
03212 1902FSCSYNRCT5 STORAGE SAVING SYN S
03216 1903GCPDLCSYNRCT6
03217 0 00000 0 00000 1904RCC TOTAL NUMBER OF RECLAMATION CYCLES
03220 0 00000 0 00000 1905RCT TEST CELL TO SEE IF RELOCATION WAS DON
03220 1906RCRLOCSYNRCT
03221 0 00000 0 00000 1907RLC NUMBER OF TIMES RELOCATION WAS DONE
03222 0 00000 0 00000 1908TFWC TOTAL FULL WORDS COLLECTED
03223 0 00000 0 00000 1909TFSC TOTAL FREE STORAGE COLLECTED
00471 1910MONESSYNSEVENS
00471 1911MONSSYNSEVENS
03224 0 00000 0 00000 1912RCIND INDICATOR STORAGE
03225 0 00000 0 00000 1913RCBE TEST CELL FOR BAD EXIT
03226 0 00000 0 00000 1914MARYT TEMPORAY STORAGE
00402 1915CRITWNSYN$Q10
1916 *
1917 * BIT TABLES FOR MARKING AND SWEEPING FULL WORD SPACE
1918 *
03227 +000000000020 1919OCT20
03230 +000000000040 1920OCT40,100,200,400,1000,2000,4000,10000,20000,40000,100000
03231 +000000000100 1921
03232 +000000000200 1922
03233 +000000000400 1923
03234 +000000001000 1924
03235 +000000002000 1925
03236 +000000004000 1926
03237 +000000010000 1927
03240 +000000020000 1928
03241 +000000040000 1929
03242 +000000100000 1930
03243 +000000200000 1931OCT200000,400000,1000000,2000000,4000000,10000000,20000000
03244 +000000400000 1932
03245 +000001000000 1933
03246 +000002000000 1934
03247 +000004000000 1935
03250 +000010000000 1936
03251 +000020000000 1937
03252 +000040000000 1938OCT40000000,100000000,200000000,400000000,1000000000
03253 +000100000000 1939
03254 +000200000000 1940
03255 +000400000000 1941
03256 +001000000000 1942
03257 +002000000000 1943OCT2000000000,4000000000,10000000000,20000000000
03260 +004000000000 1944
03261 +010000000000 1945
03262 +020000000000 1946
03263 +040000000000 1947OCT40000000000,100000000000,200000000000
03264 +100000000000 1948
03265 +200000000000 1949
03266 −000000000000 1950BITOCT400000000000
03267 1951MBITSYNBIT+1
03226 1952MBITFSYNBIT−32
1953 *
1954 *
03267 −377777777777 1955VERBOSOCT777777777777 THIS CELL NON ZERO MAKES THE RECLAIMER
1956 * VERY TALKATIVE
03270 +111111111111 1957RCSGNLOCT111111111111
03271 +222222222222 1958RCSGNMOCT222222222222
03272 +333333333333 1959RCSGNNOCT333333333333 PHASE SIGNAL FOR MQ
03273 0 00000 0 00000 1960TMLM TEMPORARY STORAGE
03274 −3 00000 7 00000 1961TMPTMSVN,7 PREFIX AND TAG MASK
03275 0 00000 0 00000 1962MRKP TEMPORARY STORAGE
1963 *
03276 0 74500 0 74501 1964TEMXX −*−1,,−*−2 PERMENANT TEMLIS ITEMS
03277 0 00531 0 00473 1965 BCONAT,,ECONAT
03300 0 74476 0 74477 1966 −*−1,,−*−2
03301 0 16503 0 16477 1967 C$PROBE,,C$PROEN LAP PROTECTED AREA
03302 0 00000 0 74475 1968 −*−1 END OF TEMLIS
03303 0 03707 0 03304 1969 BEGBLK,,ENDBLK−1 FUNCTION STORAGE
1970 *
1971
1972EJECT
1973 * STORAGE BLOCK FOR FUNCTIONS ALL OVER THE PACKAGE
1974 *
03304 1975BEGBLKBSS0
1976 * RECLAIMER STORAGE TO BE MARKED
03304 0 74502 0 00000 1977TEMLIS ,,−TEMXX
03305 0 00000 0 00000 1978ARYLIS LIST OF ACTIVE ARRAYS
03306 0 00000 0 00000 1979RCAC AC STORAGE
03307 0 00000 0 00000 1980RCMQ MQ-STORAGE
1981 * CNSFWL STORAGE
03310 0 00000 0 00000 1982CNXT POINTER TO NEXT WORD ON LINEAR OBJLIST
03311 0 00000 0 00000 1983CNX POINTER TO NEXT WORD ON PROPERTY LIST
03312 0 00000 0 00000 1984CNFT POINTER TO NEXT WORD ON PNAME LIST
03313 0 00000 0 03313 1985CNAT * POINTER TO FIRST WORD OF CURRENT ATOM
03314 0 00000 0 00000 1986CNVA POINTER TO FIRST WORD OF PNAME LIST
1987 *******************************************************
1988 * THESE CARDS ARE A BLOCK
1989HEADA
03315 0 00000 0 00000 1990CSV
1991HEAD0
03316 0 00000 0 00000 1992ALIST REFERED TO BY COMPILED FUNCTIONS
1993 REGISTERS FOR FUNCTION ARGUMENTS. ARG1 ANDARG2 ARE NOT
1994 NORMALLY USED.
1995
03317 0 00000 0 00000 1996ARG1
03320 0 00000 0 00000 1997ARG2
03321 0 00000 0 00000 1998ARG3
03322 0 00000 0 00000 1999ARG4
03323 0 00000 0 00000 2000ARG5
03324 0 00000 0 00000 2001ARG6
03325 0 00000 0 00000 2002ARG7
03326 0 00000 0 00000 2003ARG8
03327 0 00000 0 00000 2004ARG9
03330 0 00000 0 00000 2005ARG10
03331 0 00000 0 00000 2006ARG11
03332 0 00000 0 00000 2007ARG12
03333 0 00000 0 00000 2008ARG13
03334 0 00000 0 00000 2009ARG14
03335 0 00000 0 00000 2010ARG15
03336 0 00000 0 00000 2011ARG16
03337 0 00000 0 00000 2012ARG17
03340 0 00000 0 00000 2013ARG18
03341 0 00000 0 00000 2014ARG19
03342 0 00000 0 00000 2015ARG20
2016 *************************************************
2017HEADR
03343 0 00000 0 10772 2018EVA1 $AND
03344 0 00000 0 00000 2019EVA2
03345 0 00000 0 00000 2020EVA9
2021HEADA
03346 0 00000 0 10762 2022AS1 $F1
03347 0 00000 0 00000 2023CWR1
2024HEADA
03350 0 00000 0 00000 2025ASS1
03351 0 00000 0 00000 2026ASSL
03352 0 00000 0 00000 2027ASSA
03353 0 00000 0 00000 2028AST1
03354 0 00000 0 00000 2029AST2
03355 0 00000 0 00000 2030AST3
03356 0 00000 0 00000 2031AST4
2032HEADR
03357 0 00000 0 10430 2033CS1 $COPYN
03360 0 00000 0 00000 2034CS2
2035HEADC
03361 0 00000 0 10440 2036CR1 $F12
03362 0 00000 0 00000 2037CR2
03363 0 00000 0 00000 2038CWRL
2039HEADA
03364 0 00000 0 10460 2040ECS1 $COND
03365 0 00000 0 00000 2041ECS2
03366 0 00000 0 00000 2042ECS3
03367 0 00000 0 00000 2043ECS4
2044HEADR
03370 0 00000 0 10167 2045EVLX EVLISL LINK IR
03371 0 00000 0 00000 2046ELA ALIST
2047HEADA
03372 0 00000 0 00000 2048EVS1 IR4, BOTTOM OF PROTECTED TEMP. STORAGE
03373 0 00000 0 00000 2049EVSE
03374 0 00000 0 00000 2050EVSA
03375 −0 00000 0 00000 2051EVTRKMZE TRACE SWITCH
03376 0 00000 0 00000 2052EVCDR ARG LIST FOR SUBR ARGUMENTS
03411 2053EAG11BES10 ARGUMENT BLOCK FOR EVAL
03411 0 00000 0 00000 2054EVTDE CDR(E)
03412 0 00000 0 00000 2055EVD2
2056HEADR
03413 0 00000 0 10037 2057GOX $GO LINK IR
2058HEADR
03414 0 00000 0 00000 2059BFS4
2060HEADR
03415 0 00000 0 00000 2061BFS2
03416 0 00000 0 00000 2062BFS3
2063 *
2064HEADC
03417 0 00000 0 00000 2065LNKA LINK STORAGE FOR AC
03420 0 00000 0 00000 2066LNKB LINK STORAGE FOR MQ
2067HEADD
03421 0 00000 0 07646 2068RET $PMAPCA
03422 0 00000 0 00000 2069L
03423 0 00000 0 00000 2070F
2071HEADR
03424 0 00000 0 07636 2072MCN5 −$)069B
03425 0 00000 0 00000 2073MCN4
03426 0 00000 0 00000 2074MCN3
03427 0 00000 0 00000 2075MCN2
2076HEADR
03430 0 00000 0 07626 2077MS1 −$)069A LINK IR STORAGE
03431 0 00000 0 00000 2078MS2 ARGUMENT L
03432 0 00000 0 00000 2079MS3 FUNCTIONAL ARGUMENT
03433 0 00000 0 00000 2080MS4 FINAL ANSWER
03434 0 00000 0 00000 2081MS5 INTERMEDIATE ANSWER
2082HEADR
03435 0 00000 0 07435 2083EVR1 $OR
03436 0 00000 0 00000 2084EVR2
03437 0 00000 0 00000 2085EVR9
2086HEADA
03440 0 00000 0 00000 2087TEM FIRST ARGUMENT
03441 0 00000 0 00000 2088LIS SECOND ARGUMENT
2089HEADP
03442 0 00000 0 00000 2090PAS3
03443 0 00000 0 00000 2091PAS4
2092HEADR
03444 0 00000 0 07300 2093INTRX $PROG LINK INDEX REGISTER
03445 0 00000 0 00000 2094INTB CURRENT STATEMENT
03446 0 00000 0 00000 2095INTGL GO LIS,(LIST OF PROGRAM POINTS) + IR2
03447 0 00000 0 00000 2096INTPL PAIR LIST
03450 0 00000 0 00000 2097INTGS GO SWITCH , NON-ZERO IF GO OR RETURN
2098HEADI
03451 0 00000 0 07226 2099RS1 $F13
03452 0 00000 0 00000 2100RS2
03453 0 00000 0 00000 2101PRINTL TEMPORARY STORAGE FOR PRINT OR PUNCH
2102HEADR
03454 0 00000 0 07042 2103SRS1 $SRCH IR4
03455 0 00000 0 00000 2104SRS2 L
03456 0 00000 0 00000 2105SRS3 P
03457 0 00000 0 00000 2106SRS4 F
03460 0 00000 0 00000 2107SRS5 U
2108HEADR
03461 0 00000 0 07022 2109REPS1 $SETQ
03462 0 00000 0 00000 2110REPV
03463 0 00000 0 00000 2111REPT1
2112HEADB
03464 0 00000 0 06726 2113X1 $F17 IR4 OF SUBLIS
03465 0 00000 0 00000 2114X2 CDR(E)
03466 0 00000 0 00000 2115X3 CAR(E)
03467 0 00000 0 00000 2116X4 SUBLIS(P,CDR(E))
03470 0 00000 0 00000 2117X5 CDAR(J)
03471 0 00000 0 00000 2118P
03472 0 00000 0 00000 2119E
2120HEADR
03473 0 00000 0 00000 2121SXT
03474 0 00000 0 00000 2122SZ
03475 0 00000 0 00000 2123SX
03476 0 00000 0 00000 2124SY
03477 0 00000 0 00000 2125ST
2126HEADQ
03500 0 00000 0 00000 2127AMIR IR 4 STRAGE
03501 0 00000 0 00000 2128AMIND INDICATOR REGISTER STORAHE
03502 0 00000 0 00000 2129AMLIS LIST STORAGE
03503 0 00000 0 00000 2130AMQ TYPE STORAGE
2131 * ARRAY MAKE PROGRAM
03504 0 00000 0 00000 2132AFAT ARRAY ATOM GOES HERE
03505 0 00000 0 00000 2133ATMP TEMPORARY STORAGE
2134HEADS
03506 0 00000 0 00000 2135EVQAN
03507 2136BSS100 EVALQUOTE BUFFER
03653 −0 00000 0 00000 2137EVQBMZE TEST CELL FOR READ IN
2138HEADF
2139 * CHARACTER FUNCTIONS
03654 2140BBPNTBSS1 POINTER TO REMAINDER OF LIST
03655 2141PINDBSS1
2142 * MKNO
03656 0 00000 0 00000 2143MKT1 TEMP STORAGE TYPE (FIX OR FLD)
03657 2144BSS25 ROOM FOR MORE STORAGE
03710 2145ENDBLKBSS0
2146EJECT
2147HEAD0
2148 * CONSW PUTS FILL WORDS IN FULL WORD SPACE
2149 *
03710 0634 00 4 03724 2150CONSWSXACSWX,4 SAVE LINK IR
03711 −0534 00 4 03727 2151FWLORLXDFWORDL,4 PICK UP FULL WORD LIST
03712 −3 00000 4 04031 2152TXLFWLOUT,4,0 TEST FOR NO MORE
03713 −0600 00 0 03726 2153STQCSWQ SAVE MQ
03714 0560 00 4 00000 2154LDQ0,4 PICK UP POINTER TO NEXT WORD ON FWL
03715 −0620 00 0 03727 2155SLQFWORDL UP DATE FULL WORD LIST POINTER
03716 0601 00 4 00000 2156STO0,4 PUT AC IN FULL WORD AREA
03717 −0754 00 4 00000 2157PXD0,4 POINTER TO AC
03720 −0534 00 4 03727 2158LXDFWORDL,4 POINTER TO NEXT AVAILABLE WORD
03721 3 00000 4 03723 2159LOWARYTXHCSWO,4,** BOTTOM FULL WORD SPACE, TEST FOR ARY
03722 −0634 00 4 03721 2160SXD*−1,4 AVAILABLE LOCATION AND UPDATE SAME
03723 0560 00 0 03726 2161CSWOLDQCSWQ RESTORE MQ
03724 0774 00 4 00000 2162CSWXAXT**,4 RESTORE LINK IR
03725 0020 00 4 00001 2163TRA1,4 EXIT
03726 0 00000 0 00000 2164CSWQ TEMPORARY STORAGE FOR MQ
03727 0 00000 0 00000 2165FWORDL POINTER TO FULL WORD LIST
2166 *
2167 * CONS BASIC LISP FUNCTION PUTS A WORD IN FREE STORAGE
2168 *
03730 0634 00 4 03747 2169CONSSXACNSX,4 SAVE LINK IR
03731 −0534 00 4 03751 2170LXD$FREE,4 GET FREE STORAGE LIST POINTER
03732 3 00000 4 03734 2171TXH*+2,4,0 SKIP IF NOT OUT OF FREE STORAGE
03733 0074 00 4 04037 2172TSXFROUT,4 OUT OF FREE STORAGE
03734 0771 00 0 00022 2173ARS18 DECREMENT TO ADDRESS
03735 0621 00 4 00000 2174STA0,4 PUT ADDRESS AWY
03736 0500 00 4 00000 2175CLA0,4 GET POINTER TO NEXT WORD IN FREE
03737 0622 00 0 03751 2176STDFREE PUT IN FREE
03740 −0620 00 4 00000 2177SLQ0,4 PUT DECREMENT AWAY
03741 −0754 00 4 00000 2178PXD0,4 POINTER TO WORD
03742 0774 00 4 00000 2179CNTR1AXT**,4 LOW ORDER 15 BITS OF CONS COUNTER KEPT
03743 2 00001 4 03746 2180TIX*+3,4,1 DECREMENT COUNT BY 1
03744 0074 00 4 03752 2181TSXARREST,4 COUNT EXHAUSTED, RELOAD OR STOP
03745 0774 00 4 77777 2182AXT−1,4 RELOAD NUMBER
03746 0634 00 4 03742 2183SXACNTR1,4 PUT IN COUNTER
03747 0774 00 4 00000 2184CNSXAXT**,4 RESTORE LINK IR
03750 0020 00 4 00001 2185TRA1,4 EXIT
03751 0 00000 0 00000 2186FREE POINTER TO FREE STORAGE LIST
2187 *
03752 −0520 00 0 11671 2188ARRESTNZTTCOUNT SKIP IF COUNS COUNTER ON
03753 0020 00 4 00001 2189TRA1,4 OTERWISE RETURN
03754 0601 00 0 04107 2190STOCNTM SAVE AC
03755 0500 00 0 04106 2191CLACNTS GET REST OF COUNTER
03756 0100 00 0 03763 2192TZEAWHOA GO TO ERROR CALL IF EXHAUSTED
03757 0402 00 0 04110 2193SUBCTG DECREMENT BY 32,768
03760 0601 00 0 04106 2194STOCNTS UPDATE COUNTER
03761 0500 00 0 04107 2195CLACNTM RESTORE AC
03762 0020 00 4 00001 2196TRA1,4 E7IT TO RELOAD CETR1
2197 *
03763 0634 00 0 11671 2198AWHOASXATCOUNT,0 DESACTIVATE THE CONS COUNTER
03764 0500 00 0 04100 2199CLACNTST PICK UP INITIAL COUNT
03765 0560 00 0 00475 2200LDQ$FIXD PICK UP $FIX
03766 −0634 00 4 01562 2201SXD$ERROR,4 SAVE LINK IR
03767 0774 00 4 00010 2202AXT8,4 8 SPARE CONSES FOR $MKNO
03770 0634 00 4 03742 2203SXACNTR1,4
03771 0074 00 4 12636 2204TSX$MKNO,4 MAKE THE COUNT A NUMBER
03772 0074 00 4 01563 2205TSX$ERROR+1,4 GO TO ERROT
03773 542660600154 2206BCI1,*F␣␣1*
2207 *
2208 * SPEAK TURNS THE CONTENTS OF THE CONS COUNTER INTO A FIXED POINT
2209 * NUMBER.
2210 *
03774 0500 00 0 00457 2211SPEAKCLA$AMASK GET ADDRESS MASK
03775 −0320 00 0 03742 2212ANACNTR1 PICK UP 15 LOW ORDER BITS
03776 −0501 00 0 04106 2213ORACNTS OR IN REST OF COUNT
03777 0601 00 0 04107 2214STOCNTM SAVE CURRENT VALUE
04000 0500 00 0 04100 2215CLACNTST PICK UP INITIAL VALUE
04001 0402 00 0 04107 2216SUBCNTM SUBSTRACT CURRENT VALUE TO GET NUMBER
04002 0560 00 0 00475 2217LDQ$FIXD OF CONSES. PUT $FIX IN MQ
04003 0020 00 0 12636 2218TRA$MKNO MAKE THE RESULT A NUMBER
2219 *
2220 * BLOCKR BLOCK RESERVATION ROUTING USED IN DECLARING ARRAYS.
2221 *
04004 0634 00 4 04026 2222BLOCKRSXABLKX,4 SAVE LINK IR
04005 −0625 00 0 04056 2223STLNROOM SET UP TOO BIG TEST CELL
04006 0621 00 0 04022 2224STABLKB BE RESERVED
04007 −0534 00 4 02304 2225LXD$ORG,4 ADDRESSOF FIRST REGISTER AVAIALABER
04010 0754 00 4 00000 2226BKORPXA0,4 ADDRESS OF FIRST REGISTER FOR ARRAYS
04011 0401 00 0 04022 2227ADMBLKB ADDRESS OF END OF BLOCK
04012 0621 00 0 04023 2228STABLKC INITIALIZE STZ LOOP TO CLEAN OUT BLOCK
04013 0734 00 4 00000 2229PAX0,4
04014 0402 00 0 00371 2230SUB$Q1
04015 0621 00 0 04030 2231STABLKBB
04016 −3 00000 4 04044 2232BLKETPTXLBLKOUT,4,** BOTTOM BIT TABLE AR, GO IF WONT FIT
04017 −0634 00 4 02304 2233SXD$ORG,4 UPDATE ORG
04020 0500 00 4 77777 2234CLA−1,4 POINTER TO NEXT WORD ON FULL WORD LIST
04021 0622 00 0 03727 2235STDFWORDL UPDATE FULL WORD LIST
04022 0774 00 4 00000 2236BLKBAXT**,4 LENGTH OF BLOCK
04023 0600 00 4 00000 2237BLKCSTZ**,4 ZEROP THE BLOCK
04024 2 00001 4 04023 2238TIX*−1,4,1
04025 0500 00 0 04030 2239CLABLKBB GET ANSWER
04026 0774 00 4 00000 2240BLKXAXT**,4 RESTORE LINK IR
04027 0020 00 4 00001 2241TRA1,4
04030 0 00000 0 00000 2242BLKBB ANSWER STORED HERE
2243 *
2244 * VAROUIS ENTRANCES TO THE RECLAIMER
2245 *
2246 * FWLOUT - OUT OF FULL WORD LIST
04031 0601 00 0 03726 2247FWLOUTSTOCSWQ SAVE FULL WORD
04032 −0754 00 0 00000 2248PXD0,0 ZERO AC
04033 0600 00 0 03220 2249STZRCRLOC SIGNAL NO RELOCATION IS NECESSARY
04034 0074 00 4 02522 2250TSXRECLAM,4 DO THE WORK
04035 0500 00 0 03726 2251CLACSWQ RESTORE AC
04036 0020 00 0 03711 2252TRAFWLOR RETURN TO CONSW
2253 * FROUT - OUT OF REE STORAGE
04037 0634 00 4 04042 2254FROUTSXAFRX,4 SAVE LINK IR
04040 0600 00 0 03220 2255STZRCRLOC SIGNAL NO RELOCATION NECESSARY
04041 0074 00 4 02522 2256TSXRECLAM,4 DO THE WORK
04042 0774 00 4 00000 2257FRXAXT**,4 RESTORE LINK OR
2258
04043 0020 00 4 77776 2259TRA−2,4 NON-STANDARD EXIT
2260 * BLKOUT - OUT OF FULL WORD SPACE FOR ARRAYS
04044 −0625 00 0 03220 2261BLKOUTSTLRCRLOC SIGNAL RELOCATION NECESSARY
04045 −0754 00 0 00000 2262PXD0,0 CLEAR AC
04046 −0520 00 0 04056 2263NZTNROOM FALL THROUGH ON SECOND CONSECUTIVE ENT
04047 0020 00 0 04026 2264TRABLKX EXIT FROM BLOCKR ROUTINE
04050 0074 00 4 02522 2265TSXRECLAM,4 DO THE WORK
04051 0500 00 0 03727 2266CLAFWORDL PICK UP POINTER TO FIRST AVAILABLE WOR
04052 0622 00 0 03721 2267STDLOWARY SET UP LOWARY
04053 0737 00 4 00000 2268PAC0,4 COMPLEMENT INTO IR 4
04054 0600 00 0 04056 2269STZNROOM SET UP TOO BIG TEST CELL
04055 0020 00 0 04010 2270TRABKOR DO BLOCK RESERVATION
04056 0 00000 0 00000 2271NROOM
2272 *
2273 *
2274 * COUNT A FUNCTION OF 1 ARGUMENT ( AFIXED POINT NUMBER) TURNS ON
2275 * THE CONS COUNTRE AND LOADS IT WITH THAT NUMBER
2276 * A LOAD OF NIL SIMPLY LEAVES THE PREVIOUS CONTENTS IN THE
2277 * COUNTER
2278 *
04057 −0625 00 0 11671 2279COUNTSTLTCOUNT ACTIVATE THE CONS COUNTER
04060 −0100 00 0 04064 2280TNZCNTA GO IF ARUGMENT S NOT NULL
04061 0500 00 0 04107 2281CLACNTM OLD VALUE OF CNTR1
04062 0621 00 0 03742 2282STACNTR1 PUT IT THERE
04063 0020 00 0 04076 2283TRACNTB CLEAR AC AND EXIT
04064 0634 00 4 04074 2284CNTASXACNTX,4 RELOAD COUNTER WITH FIXED POINT ARG.
04065 0634 00 2 04075 2285SXACNTY,2 SAVE IDNEX REGISTERS
04066 −0734 00 2 00000 2286PDX0,2 ARGUMENT TO INDEX 2
04067 0074 00 4 13075 2287TSXFIXVAL,4 EVALUATE AS A FIXED POINT NUMBER
04070 0601 00 0 04100 2288STOCNTST SET INITIAL VALUE CELL
04071 0621 00 0 03742 2289STACNTR1 LOW ORDER 15 BITS TO CNTR1
04072 −0320 00 0 00465 2290ANAPDTMSK MASK OUT LOW ORDER 15 BITS
04073 0601 00 0 04106 2291STOCNTS STORE REMAINDER IN HIGH ORDER CELL
04074 0774 00 4 00000 2292CNTXAXT**,4 RESTORE INDEX REGISTERS
04075 0774 00 2 00000 2293CNTYAXT**,2
04076 −0754 00 0 00000 2294CNTBPXD0,0 GIVE VALUE OF NIL
04077 0020 00 4 00001 2295TRA1,4 EXIT
04100 0 00000 0 00000 2296CNTST INTAL VALUE OF COUNT
2297 *
2298 * UNCONT DEACTIVATE THE CONS COUNTER
2299 *
04101 0634 00 0 11671 2300UNCONTSXATCOUNT,0 DEACTIVATE THE CONS COUNTER
04102 0500 00 0 03742 2301CLACNTR1 GET CURENT CONTENST OF COUNTER
04103 0621 00 0 04107 2302STACNTM SAVE IN TEMP STORAGE
04104 −0754 00 0 00000 2303PXD0,0 GIVE VALUE OF NULL
04105 0020 00 4 00001 2304TRA1,4 EXIT
2305 *
04106 0 00000 0 00000 2306CNTS HIGH ORDER BITS OF CONS COUNTER
04107 0 00000 0 00000 2307CNTM TEMPORARY STORAGE
04110 0 00000 1 00000 2308CTG ,1 LOW ORDER BIT OF HIGH ORDER 20 BITS
2309 *
2310 *
2311E HED
2312 * DECON AND NUMNAM
2313 *
2314 * DECON TAKES A DECIMAL NUMBER (+ OR -) AS INPUT IN THE AC AND
2315 * GIVES AS OUTPUT THE BCD REPRESENTATION OF THAT NUMBER. LO ORDER
2316 * BITS ARE IN AC. HI ORDER BITS IN MQ. LEADING ZEROS ARE
2317 * SUPPRESSED. IF THERE ARE NO HI ORDER BITS, MQ IS ZERO. THE
2318 * P BIT AND SIGN OF AC WILL AGREE.
2319 *
2320 * NUMNAM TAKES AS INPUT A POINTER TO A DECIMAL INTEGER (+ OR 0) AND
2321 * CAUSES THE BCD REPRESENTATION OF THAT NUMBER TO BE PRINTER, WITH
2322 * LEADING ZEROS SUPPRESSED.
2323
04111 0600 00 0 77662 2324DECONSTZDETS1 SIGNAL FOR DECON EXIT
04112 0600 00 0 77664 2325STZDELOD SET LO ORDER DIGITS TO ZERO
04113 0634 00 4 04176 2326SXADEIR4,4 SAVE IR4
04114 0020 00 0 04121 2327TRADE7
04115 −0625 00 0 77662 2328NUMNAMSTLDETS1 SIGNAL FOR NUMNAM EXIT
04116 0634 00 4 04176 2329SXADEIR4,4 SAVE IR4
04117 −0734 00 4 00000 2330PDX,4 PLACE INPUT NUMBER IN AC
04120 0500 00 4 00000 2331CLA0,4
04121 −0625 00 0 77663 2332DE7STLDETS2 SIGNAL FOR NO HI- ORDER DIGITS
04122 0601 00 0 77667 2333STODEINP SAVE INPUT FOR SIGN TEST
04123 0760 00 0 00012 2334DCT SHUT OFF DIVIDE CHECK LIGHT
04124 0761 00 0 00000 2335NOP
04125 −0130 00 0 00000 2336XCL NUMBER TO MQ
04126 0774 00 4 00044 2337AXT36,4 INDEX FOR SHIFTING
04127 0600 00 0 77665 2338DE4STZDEDIG DEDIG WILL RECIEVE DIGITS
2339
04130 −0754 00 0 00000 2340DE1PXD,0
04131 0221 00 0 00402 2341DVP$Q10 PUT ANOTHER DIGIT IN DEDIG
04132 0767 00 4 00044 2342ALS36,4
04133 −0602 00 0 77665 2343ORSDEDIG
04134 −0600 00 0 77666 2344STQDEMQ IF QUOTIENT ZERO, CONVERSION
04135 −0520 00 0 77666 2345NZTDEMQ IS DONE
04136 0020 00 0 04144 2346TRADE2
04137 2 00006 4 04130 2347TIXDE1,4,6
04140 0500 00 0 77665 2348CLADEDIG STORE LO ORDER DIGITS
04141 0601 00 0 77664 2349STODELOD
04142 0600 00 0 77663 2350STZDETS2 SIGNAL THAT HI ORDER DIGITS EXIST
04143 1 00036 4 04127 2351TXIDE4,4,30 RESTORE SHIFT INDEX AND LOOP AGAIN
04144 0560 00 0 77667 2352DE2LDQDEINP SEE IF MINUS SIGN NEEDED
04145 0162 00 0 04157 2353TQPDEV
04146 2 00006 4 04154 2354TIXDEQ,4,6
2355 * MINUS SIGN BEGINS A NEW WORD
04147 0500 00 0 77665 2356CLADEDIG STORE LO ORDER DIGITS
04150 0601 00 0 77664 2357STODELOD
04151 0600 00 0 77663 2358STZDETS2 SIGNAL THAT HI ORDER DIGITS EXIST
04152 0600 00 0 77665 2359STZDEDIG CLEAR DIGITS REGISTER
04153 0774 00 4 00044 2360AXT36,4 RESTORE SHIFT INDEX
04154 0500 00 0 00423 2361DEQCLADEMIN INSERT MINUS SIGN
04155 0767 00 4 00044 2362ALS36,4
04156 −0602 00 0 77665 2363ORSDEDIG
04157 0760 00 0 00012 2364DEVDCT
04160 0074 00 4 01676 2365TSX$DCT,4 MACHINE ERROR
04161 0520 00 0 77662 2366ZETDETS1 SEE WHICH EXIT TO USE
04162 0020 00 0 04200 2367TRADE5
2368 * DECON EXIT
04163 −0500 00 0 77665 2369CALDEDIG PICK UP DIGITS
04164 −3 00006 4 04170 2370TXLDEJ,4,6 TRANSFER IF FULL WORD OF DIGITS
04165 −0765 00 4 00052 2371LGR42,4 INSERT LEADING BLANKS
04166 −0500 00 0 00472 2372CALBLANKS
04167 −0763 00 4 00052 2373LGL42,4
04170 0560 00 0 77664 2374DEJLDQDELOD LO ORDER DIGITS OR ZERO -
04171 −0520 00 0 77663 2375NZTDETS2 SEE WHICH
04172 −0130 00 0 00000 2376XCL LO ORDER DIGITS TO AC
04173 −0760 00 0 00001 2377PBT SIGN AND P BIT MUST AGREE
04174 0020 00 0 04176 2378TRA*+2
04175 −0760 00 0 00003 2379SSM
04176 0774 00 4 00000 2380DEIR4AXT**,4 RESTORE IR4 AND EXIT
04177 0020 00 4 00001 2381TRA1,4
2382 * NUMNAM EXIT
04200 −0500 00 0 77665 2383DE5CALDEDIG INSERT TRAILING SEVENS INTO
04201 0560 00 0 00471 2384LDQSEVENS DIGITS WORD
04202 −0765 00 4 00052 2385LGR42,4
04203 0131 00 0 00000 2386XCA
04204 0074 00 4 05110 2387TSX$PRIN2,4 PRINT WORD OF DIGITS
04205 0520 00 0 77663 2388ZETDETS2 SEE IF ANOTHER WORD MUST
04206 0020 00 0 04211 2389TRADEY BE PRITNER
04207 −0500 00 0 77664 2390CALDELOD PRINT LO ORDER DIGITS
04210 0074 00 4 05110 2391TSX$PRIN2,4
2392
04211 0534 00 4 04176 2393DEYLXADEIR4,4 RESTORE IR4, CLEAR AC, AND EXIT
04212 −0754 00 0 00000 2394PXD,0
04213 0020 00 4 00001 2395TRA1,4
2396
00423 2397DEMINSYN$QO40 BCD MINUS SIGN
A04214 2398DEORGBSS
77662 2399ORGCOMMON
77662 2400DETS1BSS1 ZERO MEANS DECON EXIT
77663 2401DETS2BSS1 ZERO MEANS HI ORDER DIGITS
77664 2402DELODBSS1 LO ORDER DIGITS
77665 2403DEDIGBSS1 CURRENT DIGITS
77666 2404DEMQBSS1 MQ FOR ZERO TEST
77667 2405DEINPBSS1 INPUT NUMBER
04214 2406ORGDEORG
2407
2408 * THIS ROUTINE USES COMMON, SEVENS, $PRIN2, BLANKS, AND $Q10
2409 *
2410
2411R HED
2412 MAPLIS NEW, FASTER VERSION WITH OPEN SAVE AND CONS
2413 *
04214 0100 00 4 00001 2414MAPLISTZE1,4 NULL(L) = NIL
04215 −0634 00 4 03430 2415SXDMS1,4 SAVE LINK IR
04216 −0534 00 4 02317 2416LXD$CPPI,4 GET PDL POINTER
04217 1 77772 4 04220 2417TXI*+1,4,−6 SAVE TOTAL OF 6 ITEMS
04220 0522 00 0 02414 2418XEC$ENDPDL TEST FOR OUT OF PUSH DOWN LIST
04221 −0634 00 4 02317 2419SXD$CPPI,4 UPDATE PDL POINTER LOCATION
04222 0601 00 0 03317 2420STO$ARG1 SAVE AC
04223 0500 00 0 03430 2421CLAMS1 START SAVING LINK IR
04224 0601 00 4 77772 2422STO−6,4
04225 0500 00 0 03431 2423CLAMS2 L ARGUMENT
04226 0601 00 4 77773 2424STO−5,4
04227 0500 00 0 03432 2425CLAMS3 FUNCTIONAL ARGUMENT
04230 0601 00 4 77774 2426STO−4,4
04231 0500 00 0 03433 2427CLAMS4 FINAL ANSWER
04232 0601 00 4 77775 2428STO−3,4
04233 0500 00 0 03434 2429CLAMS5 INTERMEDIATE ANSWER
04234 0601 00 4 77776 2430STO−2,4
04235 0500 00 0 04344 2431CLAMS6 SAVE MARKER
04236 0601 00 4 77777 2432STO−1,4
04237 0500 00 0 03317 2433CLA$ARG1 SAVING ALL DONE, RESTORE AC
04240 0601 00 0 03431 2434STOMS2 PUT L ARGUMENT AWAY
04241 −0600 00 0 03432 2435STQMS3 PUT FUNCTION ARGUMENT AWAY
04242 0162 00 0 04334 2436TQPCMP IF TRANSFER, F NOT A TXL, SO GO TO COMPAT
04243 0074 00 4 03432 2437TSXMS3,4 EXECUTE FUNCTIONAL ARGUMENT
04244 −0534 00 4 03751 2438MAINLXD$FREE,4 START OPEN CONS
04245 3 00000 4 04247 2439TXH*+2,4,0 TEST FOR OUT OF FREE STORAGE
04246 0074 00 4 04037 2440TSX$FROUT,4 GO IF NO MORE FS
04247 0771 00 0 00022 2441ARS18 PUT F(L) IN ADDRESS
04250 0560 00 4 00000 2442LDQ0,4 GET NEXT REGISTER ON FSL
04251 −0620 00 0 03751 2443SLQ$FREE UPDATE FREE
04252 0601 00 4 00000 2444STO0,4 CONS(F(L),NIL)
04253 −0634 00 4 03433 2445SXDMS4,4 FINAL ANSWER
04254 −0634 00 4 03434 2446SXDMS5,4 INT. ANSWER
04255 0534 00 4 03742 2447LXA$CNTR1,4 PICK UP CONS COUNTER
04256 2 00001 4 04261 2448TIX*+3,4,1 DECREMENT BY 1
04257 0074 00 4 03752 2449TSXARREST,4 GO IF OUT OF COUNTER
04260 0774 00 4 77777 2450AXT−1,4 RELOAD OF -1 FOR COUNTER
04261 0634 00 4 03742 2451SXA$CNTR1,4 RESTORE CONS COUNTER
04262 −0534 00 4 03431 2452MLOP1LXDMS2,4 MAUN LOOP, GET L
04263 0500 00 4 00000 2453CLA0,4 TAKE CDR(L)
04264 −0734 00 4 00000 2454PDX0,4
04265 3 00000 4 04306 2455TXHMPRG1,4,0 IF NOT NULL GO ON TO MAIN PROGRAM
04266 0500 00 0 03433 2456CLAMS4 ALL DONE, PICK UP FINAL ANSWER
04267 −0534 00 4 02317 2457LXD$CPPI,4 START OPEN UNSAVE BY GETTING PDL POINTER
04270 0560 00 4 77776 2458LDQ−2,4
04271 −0600 00 0 03434 2459STQMS5
04272 0560 00 4 77775 2460LDQ−3,4
04273 −0600 00 0 03433 2461STQMS4
04274 0560 00 4 77774 2462LDQ−4,4
04275 −0600 00 0 03432 2463STQMS3
04276 0560 00 4 77773 2464LDQ−5,4
04277 −0600 00 0 03431 2465STQMS2
04300 0560 00 4 77772 2466LDQ−6,4
04301 −0600 00 0 03430 2467STQMS1
04302 1 00006 4 04303 2468TXI*+1,4,6 RESTORE PDL COUNTER
04303 −0634 00 4 02317 2469SXD$CPPI,4 SET CPPI
04304 −0534 00 4 03430 2470LXDMS1,4 PICK UP LINK IR
04305 0020 00 4 00001 2471TRA1,4 RETURN
2472
2473 *
04306 −0754 00 4 00000 2474MPRG1PXD0,4 MAIN PROGRAM PUT L IN AC
04307 0601 00 0 03431 2475STOMS2 SAVE IN L ARGUMENT REGISTER
04310 −0534 00 4 03432 2476LXDMS3,4 SEE IF FUNCTIONAL ARG IS S EXPRESSION
04311 3 00012 4 04340 2477TXHCMP1,4,10 GO IF S EXPRESSION
04312 0074 00 4 03432 2478TSXMS3,4 EXECUTE FUNCTION ARGUMENT (TXL INS.)
04313 −0534 00 4 03751 2479MAIN1LXD$FREE,4 START OPEN CONS
04314 3 00000 4 04316 2480TXH*+2,4,0 TEST FOR OUT OF FREE STORAGE
04315 0074 00 4 04037 2481TSX$FROUT,4 GO IF OUT
04316 0560 00 4 00000 2482LDQ0,4 PICK UP POINTER TO NEXT FREE REGISTER
04317 −0620 00 0 03751 2483SLQ$FREE UPDATE FREE
04320 0771 00 0 00022 2484ARS18 ITEM TO ADDRESS
04321 0601 00 4 00000 2485STO0,4 CONS(F(L),NIL)
04322 −0754 00 4 00000 2486PXD0,4 ANSWER TO AC
04323 0534 00 4 03742 2487LXA$CNTR1,4 PICK UP CONS COUNTER
04324 2 00001 4 04327 2488TIX*+3,4,1 DECREMENT BY 1
04325 0074 00 4 03752 2489TSXARREST,4 GO IF OUT OF COUNTER
04326 0774 00 4 77777 2490AXT−1,4 RELOAD OF -1 FOR COUNTER
04327 0634 00 4 03742 2491SXA$CNTR1,4 RESTORE CONS COUNTER
04330 −0534 00 4 03434 2492LXDMS5,4 PICK UP LAST ANSWER
04331 0622 00 4 00000 2493STD0,4 CONCATENATE THE ANSWERS BY RPLACD
04332 0601 00 0 03434 2494STOMS5 UPDATE INT. ANSWER
04333 0020 00 0 04262 2495TRAMLOP1 GO TO HEAD OF MAIN LOOP
2496 *
04334 −0620 00 0 04336 2497CMPSLQ*+2 COMPAT CALL FOR S EXPRESSION FUN. ARG.
04335 0074 00 4 12007 2498TSXCOMPAT,4
04336 0 00000 0 00001 2499 1,,** FUNCTION OF 1 ARGUMENT
04337 0020 00 0 04244 2500TRAMAIN GO BACK TO MAIN PROGRAM
2501 *
04340 −0634 00 4 04342 2502CMP1SXD*+2,4 ANOTHER COMPAT CALL
04341 0074 00 4 12007 2503TSXCOMPAT,4
04342 0 00000 0 00001 2504 1,,**
04343 0020 00 0 04313 2505TRAMAIN1 RETURN TO MAIN PROGRAM
2506 *
04344 −3 03436 0 02371 2507MS6TXL$END5,,MS5+2 SAVE 5 ITEMS
2508 FUNCTION COPY
2509 COPY(L)= (L=0 YIELDS 0, CAR(L)=-1 YIELDS L,
2510 OTHERWISE CONS(COPY(CAR(L)),COPY(CDR(L))))
2511R HED
04345 0100 00 4 00001 2512COPYTZE1,4 L=0
04346 −0634 00 4 03357 2513SXDCS1,4
04347 −0734 00 4 00000 2514PDX0,4 L
04350 −0634 00 4 04377 2515SXDCT1,4 L
04351 0500 00 4 00000 2516CLA0,4 CWR(L)
04352 0734 00 4 00000 2517PAX0,4 CAR(L)
04353 −3 77776 4 04357 2518TXLC1,4,−2 CAR(L)=-1
04354 0500 00 0 04377 2519CLACT1
04355 −0534 00 4 03357 2520LXDCS1,4
04356 0020 00 4 00001 2521TRA1,4
04357 0074 00 4 02312 2522C1TSX$SAVE,4
04360 −3 03362 0 02377 2523TXL$END2,,CS2+2 SAVE 2 ITEMS
04361 −0534 00 4 04377 2524LXDCT1,4 L
04362 0500 00 4 00000 2525CLA0,4 CWR(L)
04363 0601 00 0 03360 2526STOCS2
04364 −0320 00 0 00460 2527ANADECM CDR(L)
04365 0074 00 4 04345 2528TSXCOPY,4 COPY(CDR(L))
04366 0534 00 4 03360 2529LXACS2,4 CAR(L)
04367 0601 00 0 03360 2530STOCS2 COPY(CDR(L))
04370 −0754 00 4 00000 2531PXD0,4
04371 0074 00 4 04345 2532TSXCOPY,4 COPY(CAR(L))
04372 0560 00 0 03360 2533LDQCS2
04373 0074 00 4 03730 2534TSX$CONS,4
04374 0074 00 4 02326 2535TSXUNSAVE,4
04375 −0534 00 4 03357 2536LXDCS1,4
04376 0020 00 4 00001 2537TRA1,4
04377 0 00000 0 00000 2538CT1
00460 2539DECMSYN$DMASK
2540 FUNCTION SEARCH
2541 SEARCH(L,P,F,U)=(L=0 YIELDS U,P(L) YIELDS F(L),
2542 OTHERWISE SEARCH (CDR(L),P,F,U))
2543
2544R HED
04400 −0634 00 4 03454 2545SEARCHSXDSRS1,4
04401 0074 00 4 02312 2546TSX$SAVE,4
04402 −3 03462 0 02371 2547TXL$END5,,SRS5+2 SAVE 5 ITEMS
04403 −0600 00 0 03456 2548STQSRS3 P
04404 0100 00 0 04445 2549SR3TZESR4
04405 0601 00 0 03455 2550STOSRS2 L
04406 0560 00 0 03321 2551LDQ$ARG3 F
04407 −0600 00 0 03457 2552STQSRS4
04410 0560 00 0 03322 2553LDQ$ARG4 U
04411 −0600 00 0 03460 2554STQSRS5
04412 −0534 00 4 03456 2555LXDSRS3,4
04413 3 00012 4 04416 2556TXH*+3,4,10
04414 0074 00 4 03456 2557TSXSRS3,4
04415 0020 00 0 04421 2558TRA*+4
04416 −0634 00 4 04420 2559SXD*+2,4
04417 0074 00 4 12007 2560TSXCOMPAT,4
04420 0 00000 0 00001 2561 1,,**
04421 0100 00 0 04435 2562TZESR1 NOT P(L)
04422 0500 00 0 03455 2563CLASRS2 L
04423 −0534 00 4 03457 2564LXDSRS4,4
04424 3 00012 4 04427 2565TXH*+3,4,10
04425 0074 00 4 03457 2566TSXSRS4,4
04426 0020 00 0 04432 2567TRA*+4
04427 −0634 00 4 04431 2568SXD*+2,4
04430 0074 00 4 12007 2569TSXCOMPAT,4
04431 0 00000 0 00001 2570 1,,**
04432 0074 00 4 02326 2571TSXUNSAVE,4
04433 −0534 00 4 03454 2572LXDSRS1,4
04434 0020 00 4 00001 2573TRA1,4
04435 0500 00 0 03460 2574SR1CLASRS5 I YIELDS
04436 0601 00 0 03322 2575STO$ARG4 U
04437 0500 00 0 03457 2576CLASRS4
04440 0601 00 0 03321 2577STO$ARG3 F
04441 −0534 00 4 03455 2578LXDSRS2,4 L
04442 0500 00 4 00000 2579CLA0,4
04443 −0320 00 0 00460 2580ANADECM CDR(L)
04444 0020 00 0 04404 2581TRASR3
04445 0074 00 4 02326 2582SR4TSXUNSAVE,4
04446 −0534 00 4 03322 2583LXD$ARG4,4
04447 3 00012 4 04452 2584TXHSRCMPT,4,10
04450 −0534 00 4 03454 2585LXDSRS1,4
04451 0020 00 0 03322 2586TRA$ARG4
2587 *
04452 0600 00 0 03321 2588SRCMPTSTZ$ARG3
04453 0560 00 0 03321 2589LDQ$ARG3
04454 0074 00 4 03730 2590TSX$CONS,4
04455 0131 00 0 00000 2591XCA
04456 0500 00 0 03322 2592CLA$ARG4
04457 −0534 00 4 03454 2593LXDSRS1,4
04460 0020 00 0 14663 2594TRA$APPLY
2595 FUNCTION EQUAL
2596 EQUAL(L1,L2)=(L1=L2 YIELDS1,L1=OVL2=0 YIELDS 0,
2597 CAR(L1)=-1VCAR(L2)=-1 YIELDS 0, OTHERWISE
2598 EQUAL(CAR(L1,(CARL2))AEQUAL(CDR(L1),CDR(L2)))
2599L HED
2600 * EQUAL A FUNCTION OF 2 ARGUMENTS DETERMINES WETHER 2 LIST
2601 * STRUCTURES ARE EQUIVELENT. REPROGRAMMED 5 OCTOBER 1960
2602 * TO MAKE USE OF THE NUMBER CONVENTIONS CURRENTLY IN USE.
2603 *
04461 −0634 00 4 04600 2604EQUALSXDEQXR,4 SAVE LINK IR
04462 −0600 00 0 04602 2605STQEQL2 SAVE ARGUMENT 2
04463 0601 00 0 04601 2606STOEQL1 SAVE ARGUMENT 1
04464 0402 00 0 04602 2607EQLPSUBEQL2 EQ TEST
04465 0100 00 0 04516 2608TZEEQT TWO LIST ARE EQ. EXIT TRUE
04466 −0520 00 0 04601 2609NZTEQL1 SKIP IF L1 NON NULL
04467 0020 00 0 04521 2610TRAEQF L1 NULL BUT NOT EQ L2, EXIT FALSE
04470 −0520 00 0 04602 2611NZTEQL2 NULL TEST L2
04471 0020 00 0 04521 2612TRAEQF L2 NULL BUT NOT EQ L1, EXIT FALSE
04472 −0534 00 4 04602 2613LXDEQL2,4 PICK UP LIST 2
04473 0500 00 4 00000 2614CLA0,4 GET NEXT ELEMENT
04474 0622 00 0 04602 2615STDEQL2 SAVE CDR OF LIST 2
04475 0734 00 4 00000 2616PAX0,4 CAR OF LIST 2
04476 3 77776 4 04524 2617TXHEQA,4,−2 GO IF ATOM
04477 −0754 00 4 00000 2618PXD0,4 CAR OF LIST TO DECREMENT OF AC
04500 0131 00 0 00000 2619XCA SWITCH TO MQ
04501 −0534 00 4 04601 2620LXDEQL1,4 PICK UP LIST 1
04502 0500 00 4 00000 2621CLA0,4 GET NEXT ELEMENT
04503 0622 00 0 04601 2622STDEQL1 SAVE CDR OF LIST 1
04504 0734 00 4 00000 2623PAX0,4 CAR OF LIST TO IR 4
04505 3 77776 4 04521 2624TXHEQF,4,−2 GO TO FALSE EXIT IF THIS IS AN ATOM
04506 −0754 00 4 00000 2625PXD0,4 CAR OF LIST TO DECREMENT OF AC
04507 0074 00 4 02312 2626TSX$SAVE,4 SAVE CALL
04510 −3 04604 0 02375 2627TXL$END3,,EQL2+2 SAVE 3 ITEMS
04511 0074 00 4 04461 2628TSX$EQUAL,4 TEST FOR EQUALITY IN CAR DIRECTION
04512 0074 00 4 02326 2629TSXUNSAVE,4 UNSAVE CALL
04513 0100 00 0 04521 2630TZEEQF WHOLE LIST IS FALSE IF CAR DIRECTION F
04514 0500 00 0 04601 2631CLAEQL1 PICK UP REST OF LIST 1
04515 0020 00 0 04464 2632TRAEQLP TEST EQUALITY IN CDR DIRECTION
2633 *
04516 0500 00 0 00442 2634EQTCLA$QD1 TRUE EXIT, PICK UP 1 IN DECREMENT
04517 −0534 00 4 04600 2635LXDEQXR,4 RESTORE LINK IR
04520 0020 00 4 00001 2636TRA1,4
2637 *
04521 −0754 00 0 00000 2638EQFPXD0,0 FALSE EXIT, CLEAR AC
04522 −0534 00 4 04600 2639LXDEQXR,4 RESTORE LINK IR
04523 0020 00 4 00001 2640TRA1,4
2641 *
04524 0560 00 0 04601 2642EQALDQEQL1
04525 −0774 00 4 04527 2643AXCEQAR,4
04526 0634 00 4 04574 2644SXAEQPX,4
04527 0020 00 0 04542 2645EQARTRAEQPE
04530 0100 00 0 04521 2646TZEEQF
04531 0020 00 0 04516 2647TRAEQT
2648 *
2649 * EQP TESTS FOR EQ BETWEEN LISTS AND NUMERICAL EQUALITY BETWEEN
2650 * NUMBERS. USES A TOLERENCE IN TESTIONG FLOATION PT NUMBERS
2651 *
04532 0040 00 0 04537 2652EQPTLQEQPF
04533 0131 00 0 00000 2653XCA
04534 0040 00 0 04537 2654TLQEQPF
04535 0500 00 0 00442 2655EQPTXCLA$QD1
04536 0020 00 4 00001 2656TRA1,4
04537 0634 00 4 04574 2657EQPFSXAEQPX,4
04540 −0734 00 4 00000 2658PDX0,4
04541 0500 00 4 00000 2659CLA0,4
04542 −0734 00 4 00000 2660EQPEPDX0,4
04543 −0320 00 0 00470 2661ANATAGMSK
04544 0100 00 0 04573 2662TZEEQPFX
04545 0601 00 0 04576 2663STOEQPT
04546 0500 00 4 00000 2664CLA0,4
04547 0131 00 0 00000 2665XCA
04550 −0734 00 4 00000 2666PDX0,4
04551 0500 00 4 00000 2667CLA0,4
04552 −0734 00 4 00000 2668PDX0,4
04553 −0320 00 0 00470 2669ANATAGMSK
04554 −0320 00 0 04576 2670ANAEQPT
04555 0100 00 0 04573 2671TZEEQPFX
04556 −0320 00 0 00436 2672ANA$QT1
04557 0601 00 0 04576 2673STOEQPT
04560 0500 00 4 00000 2674CLA0,4
04561 0601 00 0 04577 2675STOEQPS
04562 0131 00 0 00000 2676XCA
04563 0402 00 0 04577 2677SUBEQPS
04564 0534 00 4 04574 2678LXAEQPX,4
04565 0100 00 0 04535 2679TZEEQPTX
04566 0520 00 0 04576 2680ZETEQPT
04567 0020 00 0 04573 2681TRAEQPFX
04570 0760 00 0 00003 2682SSP
04571 0402 00 0 14623 2683SUBFLOTOL
04572 −0120 00 0 04535 2684TMIEQPTX
04573 −0754 00 0 00000 2685EQPFXPXD0,0
04574 0774 00 4 00000 2686EQPXAXT**,4
04575 0020 00 4 00001 2687TRA1,4
04576 0 00000 0 00000 2688EQPT TEST CELL NON 0 YIELDS FIX
04577 0 00000 0 00000 2689EQPS STORAGE
04600 0 00000 0 10241 2690EQXR $F8 INDEX REGISTER STORAGE
04601 0 00000 0 00000 2691EQL1 LIST 1 STORAGE
04602 0 00000 0 00000 2692EQL2 LIST 2 STORAGE
04603 0 00000 0 00000 2693EQTS TEST CELL 0 FIX, NON 0 FLO
2694 *
2695 * EQUAL USES $SAVE,$QD1,UNSAVE,$EQUAL AND FIXFLO
2696 PRINT MAY 14,1959
2697
2698 PRINT(L)=(CAR(L)=-1 YIELDS PRIN1(L),1 YIELDS
2699 (PRIN2(LPAR2),PRINT(CAR(L)),(CDR(L)=0YIELDS
2700 PRIN2(RPAR2),1 YIELDS(PRIN2(COMMA2),PRINT
2701 (CDR(L))))))
2702 THE LIST L IS PRINTED IN THE RESTRICTED NOTATION
2703 PRINT REQUIRES THE SUBROUTINES PRIN1,PRIN2,
2704 TERPRI,MISPH2(OR UASPH2) ALL HEADED BY P
2705 AND SAVE,UNSAVE,ERROR UNHEADED
2706
2707T HED
2708 PRINT MASTERMINDER
04604 0634 00 4 04614 2709PRINTSXAPRPS1,4 SAVE LINK IR
04605 −0534 00 4 02317 2710LXD$CPPI,4 SAVE CURRENT CONTENTS OF CPPI
04606 −0634 00 4 05307 2711SXDPCPPI,4
04607 0600 00 0 05310 2712STZWALLPC ZERO WALL PAPER COUNTER
04610 0601 00 0 03453 2713STOPRINTL SAVE THE ARGUMENT
04611 0074 00 4 04620 2714TSXPRIN0,4
04612 0074 00 4 05214 2715PRTT1TSXTERPRI,4
04613 0500 00 0 03453 2716CLAPRINTL RESTORE THE ARGUMENT
04614 0774 00 4 00000 2717PRPS1AXT**,4 RESTORE LINK IR
04615 0020 00 4 00001 2718TRA1,4
04616 0500 00 0 04673 2719PRNILCLAPRBLW PICK UP NIL REPRESENTATION
04617 0020 00 0 05110 2720TRA$PRIN2 PUT IN PRINT LINE AND EXIT
04620 −0634 00 4 04674 2721PRIN0SXDPS1,4
04621 0100 00 0 04616 2722TZEPRNIL PRINT THE NULL LIST
04622 −0734 00 4 00000 2723PDX0,4
04623 −0634 00 4 04702 2724SXDL1,4
04624 0500 00 4 00000 2725CLA0,4
04625 0601 00 0 04701 2726STOCWRL
04626 0734 00 4 00000 2727PAX0,4
04627 −3 77776 4 04633 2728TXLXA1,4,−2
04630 0500 00 0 04702 2729CLAL1
04631 −0534 00 4 04674 2730LXDPS1,4
04632 0020 00 0 04703 2731TRA$PRIN1
04633 0500 00 0 04677 2732XA1CLALPAR2
04634 0074 00 4 05110 2733TSX$PRIN2,4
04635 0500 00 0 04701 2734CLACWRL
04636 0074 00 4 02312 2735TSX$SAVE,4
04637 −3 04677 0 02377 2736TXL$END2,,PS2+2 SAVE 2 ITEMS
04640 0622 00 0 04675 2737A3STDPS2 SAVE LIST
04641 0734 00 4 00000 2738PAX0,4 CAR TO IR 4
04642 −3 00000 4 04667 2739TXLPRP2,4,0
04643 −0754 00 4 00000 2740PXD0,4
04644 0074 00 4 04620 2741TSXPRIN0,4
04645 −0534 00 4 04675 2742A4LXDPS2,4
2743
04646 −3 00000 4 04656 2744TXLA6,4,0 EXIT IF NULL
04647 0500 00 4 00000 2745CLA0,4 TEST FOR ATOM
04650 0734 00 4 00000 2746PAX0,4
04651 −3 77776 4 04662 2747TXLA2,4,−2 GO TO A2 IF NOT AN ATOM
04652 0500 00 0 04672 2748CLADOT OTHERWISE PRINT IN DOT NOTATION
04653 0074 00 4 05110 2749TSX$PRIN2,4 PUT IN PRINT LINE
04654 0500 00 0 04675 2750CLAPS2 CDR OF LIST
04655 0074 00 4 04703 2751TSX$PRIN1,4 PRINT AS ATOM
04656 0074 00 4 02326 2752A6TSXUNSAVE,4
04657 0500 00 0 04676 2753CLARPAR2
04660 −0534 00 4 04674 2754LXDPS1,4
04661 0020 00 0 05110 2755TRA$PRIN2
04662 0500 00 0 04700 2756A2CLACOMM2
04663 0074 00 4 05110 2757TSX$PRIN2,4
04664 −0534 00 4 04675 2758LXDPS2,4
04665 0500 00 4 00000 2759CLA0,4
04666 0020 00 0 04640 2760TRAA3
04667 0500 00 0 04673 2761PRP2CLAPRBLW
04670 0074 00 4 05110 2762TSX$PRIN2,4
04671 0020 00 0 04645 2763TRAA4
04672 −203360777777 2764DOTOCT603360777777 .
04673 −053143777777 2765PRBLWOCT453143777777 NIL
04674 0 00000 0 07320 2766PS1 $F4
04675 0 00000 0 00000 2767PS2
04676 +347777777777 2768RPAR2OCT347777777777
04677 −347777777777 2769LPAR2OCT747777777777
04700 −207777777777 2770COMM2OCT607777777777 BLANK INSTEAD OF A COMMA
04701 0 00000 0 00000 2771CWRL
04702 0 00000 0 00000 2772L1
2773
2774T HED
2775
2776 SUBROUTINE(PRIN1(L))
2777 / CAR(L) N=-1 YIELDS ERROR
2778 ST = L
2779 A1 CDR(L) = 0 YIELDS ERROR
2780 L = CDR(L)
2781 CAR(L) = PNAME YIELDS GO(A3)
2782 CAR(L) N= FLOAT YIELDS GO(A1)
2783 L = CAR(CDR(L))
2784 VAL = FLONAM(L)
2785 REPLACD(CONS(PNAME,CONS(VAL,CDR(ST))),ST)
2786 L = CDR(ST)
2787 A3 L= CAR(CDR(L))
2788 A2 PRIN2(CWR(CAR(L))
2789 L = CDR(L)
2790 L=0 YIELDS RETURN
2791 */ GO(A2)
04703 −0634 00 4 05072 2792PRIN1SXDPR1,4
04704 0601 00 0 05071 2793STOPRSS SAVE OBJECT
04705 −0734 00 4 00000 2794PDX,4
04706 0500 00 4 00000 2795CLA,4
04707 0625 00 0 05103 2796STTPTTGR
04710 −0320 00 0 00457 2797ANAADDM
04711 0402 00 0 00457 2798SUBADDM
04712 0100 00 0 04720 2799TZEPR3 CAR(L) N=-1 YIELDS ERROR
04713 −0634 00 4 01562 2800PR2SXD$ERROR,4
04714 0074 00 4 05214 2801TSXTERPRI,4
04715 −0754 00 0 00000 2802PXD0,0
04716 0074 00 4 01563 2803TSX$ERROR+1,4
04717 544760600154 2804BCI1,*P␣␣1*
00457 2805ADDMSYN$AMASK
04720 0520 00 0 05103 2806PR3ZETPTTGR
04721 0020 00 0 04733 2807TRAPR3N
04722 0500 00 4 00000 2808CLA0,4 FIRST WORD OF ATOM
04723 0020 00 0 04726 2809TRA*+3
04724 −3 07334 4 04726 2810PR3PTXL*+2,4,$PNAME−1
04725 −3 07335 4 04750 2811TXLPA3,4,$PNAME
04726 −0734 00 4 00000 2812PDX0,4 CDR
04727 −3 00000 4 05056 2813TXLPR5,4,0 UNPRINTABLE
04730 0500 00 4 00000 2814CLA0,4 NEXT WORD
04731 0734 00 4 00000 2815PAX0,4
04732 0020 00 0 04724 2816TRAPR3P EXAMINE WORD
04733 −0534 00 4 05071 2817PR3NLXDPRSS,4
04734 0500 00 4 00000 2818CLA0,4
04735 −0734 00 4 00000 2819PDX0,4
04736 0634 00 4 05102 2820SXAPTPNT,4
04737 0500 00 0 05103 2821CLAPTTGR
04740 −0320 00 0 00437 2822ANA$QT2
04741 −0100 00 0 04764 2823TNZPR4F
04742 0500 00 0 05103 2824CLAPTTGR
04743 −0320 00 0 00440 2825ANA$QT4
04744 −0100 00 0 04767 2826TNZLUCY
04745 −0754 00 4 00000 2827PXD0,4
04746 0074 00 4 04115 2828TSXNUMNAM,4
04747 0020 00 0 04762 2829TRAPR4E
2830 *
04750 −0734 00 4 00000 2831PA3PDX0,4 FOUND A PNAME
04751 0500 00 4 00000 2832CLA0,4
04752 0734 00 4 00000 2833PAX0,4 POINTER TO PRINT LIST
04753 0500 00 4 00000 2834PR4CLA0,4 POINTRE TO PRINT LIST
04754 0622 00 0 05073 2835STDL SAVE REST OF LIST IF ANY
04755 0734 00 4 00000 2836PAX0,4 POINTER TO FIRST FULL FULL WORD
04756 0500 00 4 00000 2837CLA0,4 FULL WORD
04757 0074 00 4 05110 2838TSX$PRIN2,4 PRINT IT
04760 −0534 00 4 05073 2839LXDL,4 PICK UP REST OF LIST
04761 3 00000 4 04753 2840TXHPR4,4,0 PRINT MORE IF MORE
04762 −0534 00 4 05072 2841PR4ELXDPR1,4 EXIT BY RESTORING LINK IR
04763 0020 00 4 00001 2842TRA1,4 EXIT
04764 −0754 00 4 00000 2843PR4FPXD0,4
04765 0074 00 4 05500 2844TSXFLONAM,4
04766 0020 00 0 04762 2845TRAPR4E
2846 *
2847 * PRINT THE NUMBER OCTALLY
04767 0534 00 2 05102 2848LUCYLXAPTPNT,2 GET POINTER TO NUMBER
04770 0560 00 2 00000 2849LDQ0,2
04771 0162 00 0 04776 2850TQPBETTY TEST FOR NEGATIVE NUMBER
04772 0500 00 0 05100 2851CLAMISGN IF SO, PRINT -
04773 0074 00 4 05110 2852TSX$PRIN2,4
04774 0500 00 2 00000 2853CLA0,2 REMOVE MINUS SIGN
04775 −0130 00 0 00000 2854XCL
04776 −0520 00 2 00000 2855BETTYNZT0,2 TEST IF NUMBER ALL ZEROS
04777 0020 00 0 05053 2856TRAMARIE
2857 * LOOK FOR NON-ZERO DIGIT ON LEFT
05000 −0754 00 0 00000 2858PXD,0
05001 0774 00 2 00014 2859AXT12,2 IR2 COUNTS ZEROS ON RIGHT
05002 −0763 00 0 00003 2860LGL3
05003 1 77777 2 05004 2861TXI*+1,2,−1 COUNT VACATED POSITIONS
05004 0100 00 0 05002 2862TZE*−2
2863 * A NON-ZERO DIGIT HAS APPEARED ON THE LEFT
05005 −0501 00 0 00414 2864ORA$Q64 PUT IN OVERFLOW FLIPPER
05006 0140 00 0 05007 2865TOV*+1 SHUT OFF OVERFLOW LIGHT
05007 −0600 00 0 05074 2866GRETASTQTONI TEST IF ALL DIGITS ARE SPREAD
05010 0162 00 0 05012 2867TQP*+2 TEST FOR NON-ZERO SIGN BIT
05011 1 77777 2 05015 2868TXIFIFI,2,−1 SOME DIGITS NOT SPREAD, SO CONTINUE
05012 −0520 00 0 05074 2869NZTTONI
05013 0020 00 0 05032 2870TRADEBBY TRA IF ALL NON-ZERO DIGITS SPREAD
05014 1 77777 2 05015 2871TXI*+1,2,−1
05015 0767 00 0 00003 2872FIFIALS3 SPREAD ONE DIGIT
05016 −0763 00 0 00003 2873LGL3
05017 −0140 00 0 05007 2874TNOGRETA SEE IF FULL WORD OF DIGITS
05020 −0600 00 0 05074 2875STQTONI PRIT THE WORD
05021 0074 00 4 05110 2876TSX$PRIN2,4
05022 0500 00 0 00371 2877CLA$Q1 PUT IN OVERFLOW FILPPER
05023 0560 00 0 05074 2878LDQTONI
05024 0140 00 0 05025 2879TOV*+1 SHUT OFF OVERFLOW LIGHT
05025 0162 00 0 05027 2880TQP*+2 TEST FOR NON-ZERO SIGN BIT
05026 1 77777 2 05015 2881TXIFIFI,2,−1
05027 0520 00 0 05074 2882ZETTONI SEE IF ALL DIGIS SPREAD
05030 1 77777 2 05015 2883TXIFIFI,2,−1
05031 0020 00 0 05036 2884TRAVICKI
2885 * FORM WORD FOR PRINTING
05032 0560 00 0 00471 2886DEBBYLDQSEVENS PUT 77S IN RIGHT END OF WORD
05033 −0763 00 0 00006 2887LGL6 OVERFLOW SIGNALS LEFT END OF WORD
05034 −0140 00 0 05033 2888TNO*−1
05035 0074 00 4 05110 2889TSX$PRIN2,4
2890 * PRINT Q AND SCALE FACTOR IF ANY
05036 3 00000 2 05041 2891VICKITXHMICKY,2,0 CONTINUE IF 0 SCALE FACTOR
05037 0500 00 0 05101 2892CLABCIQ
05040 0020 00 0 05054 2893TRAPATSY
05041 −3 00011 2 05046 2894MICKYTXLSANDY,2,9 TRA IF SCALE FACTOR LESS THAN 10
2895 * OCTAL SCALE FACTOR MORE THAN 10
05042 −0754 00 2 00000 2896PXD,2
05043 0400 00 0 05075 2897ADDBQ10 FORM SCALE FACTOR FOR PRINTING
05044 −0760 00 0 00003 2898SSM
05045 0020 00 0 05054 2899TRAPATSY
2900 * OCTAL SCALE FACTOR LESS THAN 10
05046 −0754 00 2 00000 2901SANDYPXD,2
05047 0767 00 0 00006 2902ALS6
05050 0400 00 0 05076 2903ADDBQ0
05051 −0760 00 0 00003 2904SSM
05052 0020 00 0 05054 2905TRAPATSY
05053 0500 00 0 05077 2906MARIECLABCI0Q PRINT Q0
05054 0074 00 4 05110 2907PATSYTSX$PRIN2,4
05055 0020 00 0 04762 2908TRAPR4E
2909 GENERATE A PRINT NAME FOR AN OBJECT WITHOUT ONE.
2910 THE PRINT NAME IS OF THE FORM LDDDDD WHERE THE D,S ARE THE
2911 OCTAL DIGITS OF THE 2,S COMPLMENT OF THE FIRST WORD OF
2912 THE PROPERTY LIST OF THE OBJECT.
05056 −0535 00 4 05071 2913PR5LDCPRSS,4
05057 −0754 00 4 00000 2914PXD0,4
05060 0131 00 0 00000 2915XCA
05061 0074 00 4 11021 2916TSXOCTALP,4
05062 −0501 00 0 05070 2917ORAPRC1
05063 −0760 00 0 00003 2918SSM FIX SIGN TO AGREE WITH P BIT FOR PRIN2
05064 −0760 00 0 00001 2919PBT
05065 0760 00 0 00002 2920CHS
05066 −0534 00 4 05072 2921LXDPR1,4 RESTORE LINK IR
05067 0020 00 0 05110 2922TRA$PRIN2 PUT IN PRINT LINE AND EXIT
05070 430000000000 2923PRC1BCI1,L00000
05071 0 00000 0 00000 2924PRSS STORAGE FOR POINTER TO OBJECT
05072 0 00000 0 00000 2925PR1
05073 0 00000 0 00000 2926L
05074 2927TONIBSS1
05075 +100066777777 2928BQ10OCT100066777777 USED TO FORM BCI Q1N
05076 +100077777777 2929BQ0OCT100077777777 USED TO FORM BCI QN
05077 +005077777777 2930BCI0QOCT005077777777 BCI 0Q
05100 −007777777777 2931MISGNOCT407777777777 BCI -
05101 −107777777777 2932BCIQOCT507777777777
05102 2933PTPNTBSS1
05103 0 00000 0 00000 2934PTTGR TEST CELL FOR NUMBER FLAGS
2935
2936 PRIN2 PRINTS UP TO 6 CHARACTERS IN ONE WORD WHEN THE
2937 CHARACTERS ARE JUSTIFIED TO THE LEFT AND FOLLOWED BY THE
2938 ILLEGAL CHARACTER WHOSE OCTAL FORM IS 77
2939
05104 −0634 00 4 05255 2940PRINT2SXDPR9,4
05105 −0734 00 4 00000 2941PDX0,4 BRING BCD WORD TO AC
05106 0500 00 4 00000 2942CLA0,4
05107 0020 00 0 05112 2943TRA*+3
05110 3 00000 0 05341 2944PRIN2TXH$PUN2,,0 SWITCH TO PUNCH OUT ROUTINE
05111 −0634 00 4 05255 2945SXDPR9,4
05112 −0634 00 2 05254 2946SXDPR8,2
05113 −0634 00 1 05253 2947SXDPR7,1
05114 −0534 00 4 05256 2948LXDWORDS,4 ROOM LEFT IN OUTPUT RECORD
05115 −3 00000 4 05245 2949TXLINIT,4,0 CAN BE ZERO ONLY IF ROUTINE NOTUSED
05116 0774 00 1 00001 2950COMB4AXT1,1
05117 0601 00 0 05262 2951STOTEMP
05120 −0500 00 0 05262 2952CALTEMP
05121 −0340 00 0 00471 2953LASSEVENS WORD OF ALL 77-S CAUSES NO ACTION
05122 0020 00 0 05124 2954TRA*+2
05123 0020 00 0 05155 2955TRANOJOB
05124 −0320 00 0 05260 2956SHIFLANARCHM IS THE RIGHT CHARACTER 77
05125 0402 00 0 05260 2957SUBRCHM
05126 −0100 00 0 05133 2958TNZJUST NOT 77
05127 −0500 00 0 05262 2959CALTEMP
05130 0771 00 0 00006 2960ARS6
05131 0602 00 0 05262 2961SLWTEMP
05132 1 00001 1 05124 2962TXISHIFL,1,1
05133 −0500 00 0 05262 2963JUSTCALTEMP
05134 0020 00 1 05143 2964TRALSHIF+1,1
05135 0767 00 0 00006 2965ALS6
05136 0767 00 0 00006 2966ALS6
05137 0767 00 0 00006 2967ALS6
05140 0767 00 0 00006 2968ALS6
05141 0767 00 0 00006 2969ALS6
05142 0602 00 0 05262 2970LSHIFSLWTEMP
05143 0560 00 0 05262 2971LDQTEMP
05144 −0500 00 0 05261 2972CALPART
05145 −0534 00 2 05257 2973LXDPARTS,2
05146 −0763 00 0 00006 2974COMBLGL6
05147 0602 00 0 05261 2975SLWPART
05150 −2 00001 2 05162 2976TNXWFULL,2,1
05151 1 00001 1 05152 2977COMB5TXI*+1,1,1
05152 −3 00006 1 05146 2978TXLCOMB,1,6
05153 −0634 00 2 05257 2979COMB1SXDPARTS,2
05154 −0634 00 4 05256 2980SXDWORDS,4
05155 −0534 00 1 05253 2981NOJOBLXDPR7,1
05156 −0534 00 2 05254 2982LXDPR8,2
05157 −0534 00 4 05255 2983LXDPR9,4
05160 −0754 00 0 00000 2984PXD0,0
05161 0020 00 4 00001 2985TRA1,4
05162 0602 00 4 05307 2986WFULLSLWREC,4
05163 −2 00001 4 05166 2987TNXRECFL,4,1
05164 0774 00 2 00006 2988COMB3AXT6,2
05165 0020 00 0 05151 2989TRACOMB5 /
05166 −0600 00 0 05262 2990RECFLSTQTEMP
05167 0500 00 0 05310 2991CLAWALLPC GET MAX NUMBER OF LINES PER LIST
05170 0400 00 0 00371 2992ADD$Q1
05171 0340 00 0 05311 2993CASBRKOUT COMPARE WITH MAX NUMBER
05172 0020 00 0 05174 2994TRA*+2 NO, GO ON
05173 0020 00 0 05207 2995TRAPRTB = BREAKOUT
05174 0601 00 0 05310 2996STOWALLPC PUT AWAY
05175 0074 00 4 01222 2997TSXOUTPUT,4
05176 0 00000 0 00364 2998PRINTD BCDOUT
05177 0 00024 0 05263 2999 REC−20,,20
05200 0560 00 0 05262 3000LDQTEMP
05201 −0534 00 4 00447 3001LXDQD20,4
05202 −0500 00 0 00472 3002CALBLNKA
05203 0602 00 0 05261 3003SLWPART
05204 −0534 00 4 00447 3004LXDQD20,4
05205 −0534 00 2 00444 3005LXDQD5,2
05206 0020 00 0 05151 3006TRACOMB5
05207 −0534 00 4 05307 3007PRTBLXDPCPPI,4 PUSH DOWN COUNTER
05210 −0634 00 4 02317 3008SXD$CPPI,4 RESTORE TO ENTRACE VALUE
05211 −0534 00 1 05253 3009LXDPR7,1 RESTORE INDEX 1 AND 2
05212 −0534 00 2 05254 3010LXDPR8,2
05213 0020 00 0 04612 3011TRAPRTT1 BREAKOUT
05214 −0634 00 2 05254 3012TERPRISXDPR8,2
05215 −0634 00 4 05255 3013SXDPR9,4
3014
05216 −0534 00 2 05257 3015LXDPARTS,2
05217 −0534 00 4 05256 3016LXDWORDS,4
05220 −0500 00 0 05261 3017CALPART
05221 0560 00 0 00472 3018LDQBLANK
05222 −0763 00 0 00006 3019TER1LGL6
05223 2 00001 2 05222 3020TIXTER1,2,1
05224 0602 00 4 05307 3021TER3SLWREC,4
05225 −2 00001 4 05230 3022TNXTER2,4,1
05226 −0500 00 0 00472 3023CALBLANK
05227 0020 00 0 05224 3024TRATER3
05230 0074 00 4 01222 3025TER2TSXOUTPUT,4
05231 0 00000 0 00364 3026PRINTC BCDOUT
05232 0 00024 0 05263 3027 REC−20,,20
05233 −0534 00 4 00447 3028LXDQD20,4
05234 −0634 00 4 05256 3029SXDWORDS,4
05235 −0534 00 2 00444 3030LXDQD5,2
05236 −0634 00 2 05257 3031SXDPARTS,2
05237 −0534 00 2 05254 3032LXDPR8,2
05240 −0534 00 4 05255 3033LXDPR9,4
05241 0500 00 0 00472 3034CLABLNKA
05242 0601 00 0 05261 3035STOPART
05243 −0754 00 0 00000 3036PXD0,0
05244 0020 00 4 00001 3037TRA1,4
05245 −0534 00 4 00447 3038INITLXDQD20,4
05246 0560 00 0 00472 3039LDQBLNKA
05247 −0600 00 0 05261 3040STQPART
05250 0774 00 2 00005 3041AXT5,2
05251 −0634 00 2 05257 3042SXDPARTS,2
05252 0020 00 0 05116 3043TRACOMB4
3044 *
05253 0 00000 0 00000 3045PR7
05254 0 00000 0 00000 3046PR8
05255 0 00000 0 00000 3047PR9
05256 0 00000 0 00000 3048WORDS
05257 0 00000 0 00000 3049PARTS ROOM IN PARTIAL WORD
05260 +000000000077 3050RCHMOCT77
05261 0 00000 0 00000 3051PART
05262 0 00000 0 00000 3052TEMP
05307 3053RECBES20
05307 0 00000 0 00000 3054PCPPI PUSHDOWN COUNTER STORAGE
05310 0 00000 0 00000 3055WALLPC NUMBER OF LINES IN THIS LIST SO FAR
05311 +000000000031 3056BRKOUTDEC25 MAXIMUM NUMBER OF LINES IN ANY LIST
00444 3057QD5SYN$QD5
00447 3058QD20SYN$QD20
00472 3059BLANKSYNBLANKS
00472 3060BLNKASYNBLANKS
3061 *
3062 * BCDAD1 A CONVERT TABLE FOR ADDING 1 TO A 6 DIGIT BCD NUMBER
3063 * USED BY LOADING BCD NUMBER INTO AC AND DOING
3064 * CVR BCDAD1,,6
3065 *
05312 0 00000 0 05312 3066ADTPZEADT 0
05313 0 10000 0 05312 3067BCDAD1PZEADT,,1*4096 1
05314 0 20000 0 05312 3068PZEADT,,2*4096
05315 0 30000 0 05312 3069PZEADT,,3*4096 3
05316 0 40000 0 05312 3070PZEADT,,4*4096 4
05317 0 50000 0 05312 3071PZEADT,,5*4096 5
05320 0 60000 0 05312 3072PZEADT,,6*4096 6
05321 0 70000 0 05312 3073PZEADT,,7*4096 7
05322 1 00000 0 05312 3074PONADT 8
05323 1 10000 0 05312 3075PONADT,,1*4096 9
05324 0 00000 0 05313 3076PZEBCDAD1 10
3077 *
3078 * PUNCH WRITES OUT A LIST ON TH SYSTEM PERFIAL PUNCH TAPE
3079 * (SYSPPT) IN A FORM SUTABLE FOR PUNCHING IN BCD.
3080 *
05325 0634 00 4 05337 3081PUNCHSXAPNCHX,4 SAVE LINK IR
05326 −0625 00 0 05461 3082STLPUNACT ACTVTE PUNCH ROUTINE
05327 −0734 00 4 00000 3083PDX0,4 ARGUMENT TO IR 4
05330 0502 00 0 05110 3084CLS$PRIN2 SE SWITCH TO
05331 0601 00 0 05110 3085STO$PRIN2 GO TO PUNCH ROUTINE
05332 −0754 00 4 00000 3086PXD0,4 ARGUMENT TO AC
05333 0601 00 0 03453 3087STOPRINTL SAVE THE ARGUMENT
05334 0074 00 4 04620 3088TSX$PRIN0,4 USES PRINT ROUTINE
05335 0074 00 4 05421 3089TSXTERPUN,4 TERMINATE PUNCHING
05336 0500 00 0 03453 3090CLAPRINTL RESTORE THE ARGUMENT
05337 0774 00 4 00000 3091PNCHXAXT**,4 RESTORE LINK IR
05340 0020 00 4 00001 3092TRA1,4 EXIT
3093 *
3094 * PUN2 PUNCH EQUIVELENT OF PRIN 2
3095 *
05341 0634 00 4 05364 3096PUN2SXAPNX,4 SAVE INDEX REGISTERS
05342 0634 00 2 05365 3097SXAPNY,2
05343 0634 00 1 05366 3098SXAPNZ,1
05344 0774 00 4 00014 3099PWRDSAXT12,4 NUMBER OF WORDS LEFT IN BUFFER
05345 0774 00 2 00006 3100PPRTSAXT6,2 CHARACTER POSITION
05346 0774 00 1 00006 3101AXT6,1 MAXIMUM NUMBER OF CHARACTERS
05347 0131 00 0 00000 3102XCA ARGUMENT TO MQ
05350 −0754 00 0 00000 3103PLPPXD0,0 CLEAR AC
05351 −0763 00 0 00006 3104LGL6 CHARACTER TO MQ
05352 0340 00 0 05457 3105CASPSS COMPARE WITH 77
05353 0761 00 0 00000 3106NOP GREATER, (IMPOSSIBLE)
05354 0020 00 0 05361 3107TRAPOUT = , GO TO EXIT
05355 0522 00 2 05455 3108XECPCNT,2 LESS THAN, SHIFT CHARACTER
05356 −0602 00 4 05476 3109ORSPOUP,4 PUT IN OUTPUT LINE
05357 −2 00001 2 05370 3110TNXPRPLP,2,1 GO IF LAST CHARACTER IN WORD
05360 2 00001 1 05350 3111PGRATIXPLP,1,1 GET NEXT CHARACTER
05361 0634 00 2 05345 3112POUTSXAPPRTS,2 SAVE INDEX 2 N 4
05362 0634 00 4 05344 3113SXAPWRDS,4
05363 −0754 00 0 00000 3114PXD0,0 CLEAR AC
05364 0774 00 4 00000 3115PNXAXT**,4 RESTORE INDEX REGISTERS
05365 0774 00 2 00000 3116PNYAXT**,2
05366 0774 00 1 00000 3117PNZAXT**,1
05367 0020 00 4 00001 3118TRA1,4 EXIT
3119 *
05370 0774 00 2 00006 3120PRPLPAXT6,2 RELOAD CHARACTER COUNT
05371 2 00001 4 05360 3121TIXPGRA,4,1 GO IF WORD COUNT NOT EXAUSTED
05372 0500 00 0 05455 3122CLAPCNT GET CARD NUMBER IN BCD
05373 0114 06 0 05313 3123CVRBCDAD1,,6 ADD 1 IN BCD
05374 0601 00 0 05455 3124STOPCNT
05375 −0600 00 0 05460 3125STQPNCQ SAVE CONTENTS OF MQ
05376 0560 00 0 00370 3126LDQ$ZERO ZERO MQ
05377 −0765 00 0 00006 3127LGR6 SHIFT LOW ORDER DIGITS
05400 0361 00 0 05456 3128ACLPLIS ADD BCD NAME OF CARD
05401 0602 00 0 05476 3129SLWPOUP PUT IN ID FIELD
05402 −0600 00 0 05477 3130STQPOUP+1
05403 0074 00 4 01222 3131TSXOUTPUT,4 GO TO OUTPUT
05404 0 00000 0 00363 3132 PPTOUT PUNCH OUT TAPE
05405 0 00016 0 05462 3133 POUP−12,,14 14 WORDS OUT
05406 −0046 00 0 00000 3134PIA SAVE INDICATORS IN AC
05407 0441 00 0 10340 3135LDISYSIND PICK UP SYSTEM INDICATORS
05410 0055 00 000040 3136SIRPPTIND SET PUNCH TAPE INDICATOR
05411 0604 00 0 10340 3137STISYSIND UPDATE SYSTEM INDICATORS
05412 0044 00 0 00000 3138PAI RESTORE INDICATORS
05413 0774 00 4 00014 3139AXT12,4 NUMBER OF WORDS FROM CC 1 TO 72
05414 0600 00 4 05476 3140STZPOUP,4 ZERO OUTPUT BUFFER
05415 2 00001 4 05414 3141TIX*−1,4,1
05416 0774 00 4 00014 3142AXT12,4 RELOAD WORD COUNT
05417 0560 00 0 05460 3143LDQPNCQ RESTORE CONTENTS OF MQ
05420 0020 00 0 05360 3144TRAPGRA CONTINUE WORK
3145 *
3146 * TERPUN FILLS OUT BUFFER WITH BLANKS AND PUNCHES OUT LAST CARD
3147 * OPERATES ONLY IF PUNCH ROUTINE IS CURRENTLY ACTIVE
3148 *
05421 −0520 00 0 05461 3149TERPUNNZTPUNACT SKIP IF PUNCH ROUTINE IS CURRENTLY ACT
05422 0020 00 4 00001 3150TRA1,4 IMMEDIATE EXIT
05423 0600 00 0 05461 3151STZPUNACT DE ACTIVATE THE PUNCH ROUTINE
05424 0634 00 4 05364 3152SXAPNX,4 SAVE INDEX REGISTERS
05425 0634 00 2 05365 3153SXAPNY,2
05426 0634 00 1 05366 3154SXAPNZ,1
05427 0500 00 0 05110 3155CLA$PRIN2
05430 0602 00 0 05110 3156SLW$PRIN2 RESTORE PRIN2 SWITCH
05431 0534 00 4 05344 3157LXAPWRDS,4 PICK UP WORD COUNT
05432 0534 00 2 05345 3158LXAPPRTS,2 CHARACTER COUNT
05433 0774 00 1 00001 3159AXT1,1 CONSTANT 1
05434 0560 00 0 00472 3160LDQBLANKS BLANK MQ
05435 −0754 00 0 00000 3161TPLPPXD0,0 CLEAR AC
05436 −0763 00 0 00006 3162LGL6 1 INTO AC
05437 0522 00 2 05455 3163XECPCNT,2 SHIFT INTO POSITIN
05440 −0602 00 4 05476 3164ORSPOUP,4 PUT IN OUTPUT LINE
05441 2 00001 2 05435 3165TIXTPLP,2,1 FILL OUT THIS WORD
05442 −2 00001 4 05370 3166TNXPRPLP,4,1 GO IF LAST WORD IN BUFFER
05443 0500 00 0 00472 3167CLABLANKS BLANK AC
05444 0601 00 4 05476 3168STOPOUP,4 BLANK REST OF BUFFER
05445 2 00001 4 05444 3169TIX*−1,4,1
05446 0020 00 0 05370 3170TRAPRPLP GO PUNCH IT OUT
3171 * COSTANTS, STORAGE AND SHIFT TABLE
05447 0767 00 0 00036 3172ALS30
05450 0767 00 0 00030 3173ALS24
05451 0767 00 0 00022 3174ALS18
05452 0767 00 0 00014 3175ALS12
05453 0767 00 0 00006 3176ALS6
05454 0761 00 0 00000 3177NOP
05455 0 00000 0 00000 3178PCNTPZE BASE OF SHIFT TABLE AND CARD COUNT
05456 433162470000 3179PLISBCI1,LISP00
05457 +000000000077 3180PSSOCT77 CHARACTER THAT TERMINATES A PNAME
05460 0 00000 0 00000 3181PNCQ
05461 0 00000 0 00000 3182PUNACT NON-ZERO IF PUNCH ROUTINE ACTIVE
05462 3183BSS12
05476 +000000000000 3184POUPOCT0,0 OUTPUT BUFFER
05477 +000000000000 3185
3186 FLONAM MAY 14,1559
3187 FORMS THE BCD LIST FOR A FLOATING NUMBER IN THE ACC
3188T HED
05500 0634 00 4 05666 3189FLONAMSXAFLNX,4
05501 −0734 00 4 00000 3190PDX0,4
05502 0500 00 4 00000 3191CLA0,4
05503 −0100 00 0 05512 3192TNZFLNA
05504 0534 00 4 05666 3193LXAFLNX,4
05505 0131 00 0 00000 3194XCA
05506 0500 00 0 05706 3195CLAFLZPZ 0.0
05507 0162 00 0 05110 3196TQP$PRIN2
05510 0402 00 0 05731 3197SUBC0 -0,0
05511 0020 00 0 05110 3198TRA$PRIN2
05512 0634 00 2 05667 3199FLNASXAFLNY,2
05513 0634 00 1 05670 3200SXAFLNZ,1
05514 0774 00 1 00001 3201AXT1,1 SET UP BUFFER IRS
05515 0774 00 2 00044 3202AXT36,2
05516 0600 00 0 05703 3203STZFLOPB−3
05517 0600 00 0 05704 3204STZFLOPB−2
05520 0600 00 0 05705 3205STZFLOPB−1
05521 0601 00 0 77667 3206STOCOMMON+5
05522 0131 00 0 00000 3207XCA
05523 −0754 00 0 00000 3208PXD,0 CLEAR ACC. AND SIGN.
05524 0765 00 0 00000 3209FL73LRS0 SIGN TO MQ
05525 0763 00 0 00010 3210LLS8 CHARACTERSITIC.
05526 0402 00 0 00415 3211SUBA128 128
05527 −0600 00 0 77662 3212STQCOMMON SAVE MANTISSA.
05530 0131 00 0 00000 3213XCA MULTIPLY BY
05531 0200 00 0 05720 3214MPYLOG2 LOG BASE 10 OF 2.
05532 0601 00 0 77664 3215STOCOMMON+2
05533 0120 00 0 05542 3216TPLFL75
05534 0402 00 0 05717 3217FL74SUBA1 1
05535 0601 00 0 77664 3218STOCOMMON+2
05536 0131 00 0 00000 3219XCA
05537 0760 00 0 00006 3220COM
05540 0760 00 0 00003 3221SSP
05541 0131 00 0 00000 3222XCA
05542 0200 00 0 05721 3223FL75MPYLOG10 LOG BASE 2 OF 10/4.
05543 0765 00 0 00041 3224LRS33
05544 0621 00 0 05555 3225STAFL76A
05545 −0600 00 0 77672 3226STQCOMMON+8
05546 0774 00 4 00007 3227AXT7,4
05547 0560 00 0 05722 3228LDQC7
05550 0200 00 0 77672 3229FL76MPYCOMMON+8
05551 0400 00 4 05732 3230ADDC0+1,4
05552 0131 00 0 00000 3231XCA
05553 2 00001 4 05550 3232TIXFL76,4,1
05554 0200 00 0 77662 3233MPYCOMMON MANTISSA.
05555 0774 00 4 00000 3234FL76AAXT**,4
05556 0765 00 4 00042 3235LRS34,4
05557 0100 00 0 05564 3236TZEFL77
05560 0221 00 0 05716 3237DVPA1−1 10.
05561 0500 00 0 77664 3238CLACOMMON+2
05562 0400 00 0 05717 3239ADDA1 1.
05563 0601 00 0 77664 3240STOCOMMON+2
05564 0774 00 4 00010 3241FL77AXT8,4
05565 −0200 00 4 05717 3242FL78MPRA1,4 10 TO DEC. PLACES.
05566 0340 00 4 05717 3243CASA1,4
05567 0761 00 0 00000 3244NOP GREATER.
05570 0020 00 0 05572 3245TRAFL79 EQUAL.
05571 0020 00 0 05576 3246TRAFL80 LESS.
05572 0500 00 0 05717 3247FL79CLAA1 ROUDING CAUSED CARRY.
05573 0400 00 0 77664 3248ADDCOMMON+2
05574 0601 00 0 77664 3249STOCOMMON+2 EXP+1.
05575 0500 00 4 05720 3250CLAA1+1,4 10 TO THE DEC. PL.-1.
05576 0601 00 0 77672 3251FL80STOCOMMON+8
05577 −0754 00 0 00000 3252PXD,0
05600 0560 00 0 77664 3253LDQCOMMON+2 ENTER DEC EXP.
05601 0221 00 0 05716 3254DVPA1−1 10
05602 −0600 00 0 77671 3255STQCOMMON+7
05603 0634 00 4 05621 3256SXAFL82,4
05604 0074 00 4 05673 3257TSXINBCD,4
05605 −0754 00 0 00000 3258PXD,0
05606 0560 00 0 77671 3259LDQCOMMON+7
05607 0221 00 0 05716 3260DVPA1−1
05610 0100 00 0 05612 3261TZE*+2
05611 0074 00 4 05673 3262TSXINBCD,4
05612 0500 00 0 77664 3263CLACOMMON+2
05613 0100 00 0 05617 3264TZEFL81
05614 0120 00 0 05617 3265TPLFL81
05615 0500 00 0 00423 3266CLAONEMI MINUS SIGN
05616 0074 00 4 05673 3267TSXINBCD,4
05617 0500 00 0 00410 3268FL81CLAONEE
05620 0074 00 4 05673 3269TSXINBCD,4
05621 0774 00 4 00000 3270FL82AXT**,4
05622 0600 00 0 05702 3271STZFLZET
05623 0500 00 0 77672 3272FL65CLACOMMON+8
05624 0765 00 0 00043 3273FL67LRS35
05625 0221 00 0 05716 3274DVPA1−1 10.
05626 −0600 00 0 77672 3275STQCOMMON+8 FRACTIONAL PART.
05627 −0520 00 0 05702 3276NZTFLZET
05630 0100 00 0 05635 3277TZEFL01
05631 −0602 00 0 05702 3278ORSFLZET
05632 0634 00 4 05634 3279SXA*+2,4 SAVE IR4.
05633 0074 00 4 05673 3280TSXINBCD,4 ENTER DIGIT.
05634 0774 00 4 00000 3281AXT**,4 RESTORE.
05635 2 00001 4 05623 3282FL01TIXFL65,4,1
05636 −0754 00 0 00000 3283PXD0,0
05637 −0520 00 0 05702 3284NZTFLZET
05640 0074 00 4 05673 3285TSXINBCD,4
05641 0500 00 0 00422 3286CLAA33 DEC. POINT.
05642 0074 00 4 05673 3287TSXINBCD,4 ENTER.
05643 −0754 00 0 00000 3288PXD0,0
05644 0074 00 4 05673 3289TSXINBCD,4
05645 0560 00 0 77667 3290LDQCOMMON+5
05646 −0500 00 0 00427 3291CALONEBL BLANK
05647 0162 00 0 05651 3292TQPFL70 FOR PLUS.
3293
05650 −0500 00 0 00423 3294CALONEMI NEGATIVE.
05651 0074 00 4 05673 3295FL70TSXINBCD,4 INSERT BLANK OR MINUS.
05652 −0754 00 2 00000 3296PXD0,2
05653 −0737 00 2 00000 3297PDC0,2
05654 0560 00 0 00471 3298LDQONES FILL OUT LAST WORD WITH 77S
05655 −0500 00 1 05706 3299CALFLOPB,1
05656 −0763 00 2 00000 3300LGL0,2
05657 −0130 00 0 00000 3301XCL
05660 0131 00 0 00000 3302XCA
05661 0074 00 4 05110 3303TSX$PRIN2,4
05662 −2 00001 1 05666 3304TNXFLNX,1,1
05663 0500 00 1 05706 3305CLAFLOPB,1
05664 0074 00 4 05110 3306TSX$PRIN2,4
05665 2 00001 1 05663 3307TIX*−2,1,1
05666 0774 00 4 00000 3308FLNXAXT**,4
05667 0774 00 2 00000 3309FLNYAXT**,2
05670 0774 00 1 00000 3310FLNZAXT**,1
05671 −0754 00 0 00000 3311PXD0,0
05672 0020 00 4 00001 3312TRA1,4
3313 *
05673 −0320 00 0 00413 3314INBCDANAA77
05674 0767 00 2 00044 3315ALS36,2
05675 −0602 00 1 05706 3316ORSFLOPB,1
05676 2 00006 2 05701 3317TIX*+3,2,6
05677 1 00001 1 05700 3318TXI*+1,1,1
05700 0774 00 2 00044 3319AXT36,2
05701 0020 00 4 00001 3320TRA1,4
3321 *
05702 0 00000 0 00000 3322FLZET
05706 3323FLOPBBES3
05706 606060600000 3324FLZPZVFDH24/
05707 +000575360400 3325DEC100000000
05710 +000046113200 3326DEC10000000
05711 +000003641100 3327DEC1000000
05712 +000000303240 3328DEC100000
05713 +000000023420 3329DEC10000
05714 +000000001750 3330THSNDDEC1000
05715 +000000000144 3331DEC100
05716 +000000000012 3332DEC10
05717 +000000000001 3333A1DEC1
05720 +115040465025 3334LOG2OCT115040465025 LOG BASE 10 OF 2.
05721 +324464741127 3335LOG10OCT324464741127 LOG BASE 2 OF 10-4.
05722 +000001601225 3336C7OCT1601225
05723 +000007762664 3337C6OCT7762664
05724 +000132240566 3338C5OCT132240566
05725 +001164125106 3339C4OCT1164125106
05726 +007066267024 3340C3OCT7066267024
05727 +036577252307 3341C2OCT36577252307
05730 +130562064437 3342C1OCT130562064437
05731 2 00000 0 00000 3343C0TIX0,0,0
00422 3344A33SYN$QO33
00413 3345A77SYN$Q63
00415 3346A128SYN$Q128
00420 3347ONEPLSYN$QO20
00410 3348ONEESYN$QO25
00423 3349ONEMISYN$QO40
00427 3350ONEBLSYN$QO60
00471 3351ONESSYNSEVENS
3352 *
3353 READ
3354 READ = SELECT(RD.,LPAR,READ1.,
3355 LITER,INTERN.,
3356 NUM,INTERN.,
3357 RPAR,ERROR.,
3358 1,ERROR)
3359
3360 READ1
3361 READ1 = SELECT(RD.,RPAR,0.,
3362 LPAR,CONS(READ1,READ1).,
3363 LITER,CONS(INTERN,READ1).,
3364 NUMB,CONS(INTERN,READ1))
3365I HED
05732 0634 00 4 05734 3366READSXAREDS1,4 SAVE LINK IR
05733 0074 00 4 06026 3367TSX$RD,4 GET FIRST ITEM
05734 0774 00 4 00000 3368REDS1AXT**,4 RSTORE LINK IR
05735 0340 00 0 06022 3369REDISCASRLPAR DISPATCH ON TYPE OF ITEM READ
05736 0020 00 0 05740 3370TRA*+2
05737 0020 00 0 05757 3371TRAREAD1 WAS (
05740 0340 00 0 06023 3372CASRRPAR
05741 0020 00 0 05743 3373TRA*+2
05742 0020 00 0 05747 3374TRAREDER
05743 0340 00 0 06024 3375CASRDOT
05744 0020 00 4 00001 3376TRA1,4
05745 0020 00 0 05747 3377TRAREDER
05746 0020 00 4 00001 3378TRA1,4
05747 −0634 00 4 01562 3379REDERSXD$ERROR,4 MUST BE AN ERROR
05750 0601 00 0 03452 3380STORS2 SAVE TYPE
05751 0074 00 4 01222 3381TSXOUTPUT,4 WRITE OUT INPUT BUFFER
05752 0 00000 0 00364 3382 BCDOUT
05753 0 00016 0 06351 3383 CELL−15,,14
05754 0500 00 0 03452 3384CLARS2 GET TYPE
05755 0074 00 4 01563 3385TSX$ERROR+1,4 GOT O ERROR
05756 545160600154 3386BCI1,*R␣␣1*
3387 *
05757 −0634 00 4 03451 3388READ1SXDRS1,4 SAVE LINK IR
05760 0074 00 4 06026 3389TSX$RD,4 GET NEXT ITEM
05761 0340 00 0 06023 3390CASRRPAR
05762 0020 00 0 05764 3391TRA*+2
05763 0020 00 0 06003 3392TRARP1 WAS ) RETURN WITH NIL
05764 0074 00 4 02312 3393TSX$SAVE,4
05765 −3 03454 0 02377 3394TXL$END2,,RS2+2 SAVE 2 ITEMS
05766 0340 00 0 06024 3395CASRDOT
05767 0020 00 0 05771 3396TRA*+2
05770 0020 00 0 06006 3397TRARP2 WAS .
05771 0340 00 0 06022 3398CASRLPAR
05772 0020 00 0 05774 3399TRA*+2
05773 0074 00 4 05757 3400TSXREAD1,4
05774 0601 00 0 03452 3401STORS2 SAVE RESULTS
05775 0074 00 4 05757 3402TSXREAD1,4 GET NEXT ITEM
05776 0131 00 0 00000 3403XCA PUT IN MQ
05777 0500 00 0 03452 3404CLARS2 FIRST ITEM
06000 0074 00 4 02326 3405TSXUNSAVE,4
06001 −0534 00 4 03451 3406LXDRS1,4 RESTORE LINK IR
06002 0020 00 0 03730 3407TRA$CONS CONSTRUCT A LIST
3408 *
06003 −0754 00 0 00000 3409RP1PXD0,0 WAS ) RETURN WITH NIL
06004 −0534 00 4 03451 3410LXDRS1,4
06005 0020 00 4 00001 3411TRA1,4
3412 *
06006 0074 00 4 06026 3413RP2TSX$RD,4 WAS . GET NEXT ITEM
06007 0074 00 4 05735 3414TSXREDIS,4 DISPATCH ON IT
06010 0601 00 0 03452 3415STORS2 SAVE RESULTS
06011 0074 00 4 06026 3416TSX$RD,4 GET NEXT ITEM
06012 0340 00 0 06023 3417CASRRPAR SHOULD BE )
06013 0020 00 0 05747 3418TRAREDER GO TO ERROR IF NOT
06014 0020 00 0 06016 3419TRA*+2
06015 0020 00 0 05747 3420TRAREDER
06016 0500 00 0 03452 3421CLARS2 GET ITEM READ
06017 0074 00 4 02326 3422TSXUNSAVE,4
06020 −0534 00 4 03451 3423LXDRS1,4 RESTORE LINK IR
06021 0020 00 4 00001 3424TRA1,4 RETURN WITH IT
3425 *
00505 3426RLTRSYNQUOTED SYMBOL FLAG
00476 3427RNUMBSYNFLOATD FLOAT (USED TO SIGNIFY ANY KIND NUMBER
3428 *
3429I HED
3430
3431 RD(A)
3432 READS BCD LISTS FROM CARDS (SW 1 DOWN) OR TAPE 4 (SW1 UP)
06022 0 00531 0 00000 3433RLPAR ,,$H74D
06023 0 00527 0 00000 3434RRPAR ,,$H34D
06024 0 00526 0 00000 3435RDOT ,,$H33D
06025 3436RDVALBSS0
06025 0 00000 0 00001 3437LRCIS 1 CARD IMAGE EMPTY TEST CELL
06026 0500 00 0 06415 3438RDCLARDLST
06027 0100 00 0 06032 3439TZERDAA GO IF NOT
06030 0600 00 0 06415 3440STZRDLST OTHERWISE ZERO
06031 0020 00 4 00001 3441TRA1,4 AND EXIT
06032 0634 00 4 06063 3442RDAASXARDX,4 SAVE INDEX REGISTERS
06033 0634 00 2 06070 3443SXARDY,2
06034 0634 00 1 06067 3444SXARDZ,1
06035 0604 00 0 06414 3445STIRDIND SAVE THE INDICATORS
06036 0441 00 0 00370 3446LDI$ZERO
06037 0774 00 2 00006 3447RDPTSAXT6,2 SET UP IR 2 AND 1
06040 0774 00 1 00014 3448RDWDSAXT12,1
06041 0074 00 4 06172 3449RDGCTSXGET,4 GET THE FIRST CHARACTER
06042 0734 00 4 00000 3450PAX0,4 TYPE TO INDEX REGISTER
06043 0020 00 4 06053 3451TRARDJT1,4 DISPATCH ON TYPE
06044 0020 00 0 06072 3452TRARDDLR $
06045 0020 00 0 06122 3453TRARDLT
06046 0020 00 0 06123 3454TRARDNM NUMBER
06047 0020 00 0 06041 3455TRARDGC ,
06050 0020 00 0 06062 3456TRARDPU (
06051 0020 00 0 06062 3457TRARDPU )
06052 0020 00 0 06062 3458TRARDPU .
06053 0074 00 4 01222 3459RDJT1TSXOUTPUT,4 ILLEGAL CHARACTER
06054 0 00000 0 00364 3460 BCDOUT
06055 0 00017 0 06353 3461 RDPB,,15
06056 −0754 00 0 00000 3462PXD0,0 CLEAR AC
06057 −0634 00 4 01562 3463SXD$ERROR,4 SAVE IR 4
06060 0074 00 4 01563 3464TSX$ERROR+1,4 GO TO ERROR ROUTINE
06061 545160600354 3465BCI1,*R␣␣3*
06062 0500 00 4 06025 3466RDPUCLARDVAL,4
06063 0774 00 4 00000 3467RDXAXT**,4
06064 0634 00 2 06037 3468RDFINSXARDPTS,2 SAVE INDEX REGISTERS
06065 0634 00 1 06040 3469SXARDWDS,1
06066 0441 00 0 06414 3470LDIRDIND RESTORE INDICATORS
06067 0774 00 1 00000 3471RDZAXT**,1 RESTORE INDEX REGISTERS
06070 0774 00 2 00000 3472RDYAXT**,2
06071 0020 00 4 00001 3473TRA1,4 EXIT
3474 *
06072 0055 00 000003 3475RDDLRSIR3 SET FIRST CHARCTER AND LITERAL INDICAT
06073 0074 00 4 06172 3476TSXGET,4 IS NEXT CHARACTER A $
06074 0734 00 4 00000 3477PAX0,4 IF SO INDICATES A LITERAL STRING
06075 0500 00 0 06416 3478CLAGTVAL SET VALUE OF GET
06076 0601 00 0 06413 3479STORDDDC
06077 3 00006 4 06110 3480TXHRDDD,4,6 GO IF A $
06100 0634 00 4 06106 3481SXARDT,4 NOT SO DO A REGULAR D
06101 0500 00 0 06412 3482CLARDDLS $
06102 0601 00 0 06416 3483STOGTVAL
06103 0074 00 4 06241 3484TSXPUT,4 PUT IN OUTPUT BUFFER
06104 0500 00 0 06413 3485CLARDDDC LAST VALUE OF GET
06105 0601 00 0 06416 3486STOGTVAL
06106 0774 00 4 00000 3487RDTAXT**,4 TYPE OF LAST CHARACTER
06107 0020 00 4 06137 3488TRARDJT2,4 DISPATCH ON TYPE
3489 *
06110 0074 00 4 06172 3490RDDDTSXGET,4 IS A LITERAL STRING
06111 0500 00 0 06416 3491CLAGTVAL USE THIS ITEM AS A DELIMITER
06112 0601 00 0 06413 3492STORDDDC
06113 0074 00 4 06172 3493RDDDLTSXGET,4 GET NEXT CHARACTER
06114 0500 00 0 06413 3494CLARDDDC GET DELIMITER
06115 0340 00 0 06416 3495CASGTVAL COMAPRE WITH CHARACTER JUST READ
06116 0020 00 0 06120 3496TRA*+2 NO
06117 0020 00 0 06142 3497TRARDXT YES, EXIT
06120 0074 00 4 06241 3498TSXPUT,4 NO, PUT AWAY THE CHARACTER
06121 0020 00 0 06113 3499TRARDDDL GET NEXT CHARACTER
3500 *
06122 0055 00 000002 3501RDLTSIR2 SET LITERAL INDICATOR
06123 0055 00 000001 3502RDNMSIR1 SET FIRST CHARACTER INDICATOR
06124 0074 00 4 06241 3503RDNNTSXPUT,4 PUT THE CHARACTER AWAY
06125 0074 00 4 06172 3504TSXGET,4 GET NEXT CHARACTER
06126 0734 00 4 00000 3505PAX0,4
06127 0020 00 4 06137 3506TRARDJT2,4 DISPATCH ON TYPE
06130 0020 00 0 06124 3507TRARDNN $
06131 0020 00 0 06124 3508TRARDNN LITERAL
06132 0020 00 0 06124 3509TRARDNN NUMBER
06133 0020 00 0 06142 3510TRARDXT ,
06134 0020 00 0 06140 3511TRARDPS (
06135 0020 00 0 06140 3512TRARDPS )
06136 0020 00 0 06164 3513TRARDPD .
06137 0020 00 0 06053 3514RDJT2TRARDJT1 ILLEGAL CHARACTER
3515 *
06140 0500 00 4 06025 3516RDPSCLARDVAL,4 SETUP RDLST CELL
06141 0601 00 0 06415 3517STORDLST
06142 0534 00 4 06246 3518RDXTLXAPUTMC,4 CHARACTER COUNT
06143 −0754 00 0 00000 3519PXD0,0 CLEAR AC
06144 3 00005 4 06162 3520TXHTPF,4,5 GO IF LAST WORD COMPLETED
06145 0560 00 0 00471 3521LDQSEVENS GET 77 S
06146 0522 00 4 06327 3522XECPTSFT−1,4 PROPER SHIFT
06147 0774 00 4 00006 3523AXT6,4 RESET CHARACTER COUNT
06150 0634 00 4 06246 3524SXAPUTMC,4
06151 0534 00 4 06254 3525LXAPUTPC,4 WORD COUNT
06152 −0602 00 4 06335 3526ORSRDPNB,4 PUT IN PNAME BUFFER
06153 −0754 00 0 00000 3527PXD0,0 CLEAR AC
06154 0622 00 4 06343 3528TPFASTDPUTVL+6,4 CHIP OFF PNMAE SAUSAGE
06155 0500 00 0 06335 3529CLAPUTVL GET VALUE
06156 −0774 00 4 06062 3530AXCRDPU,4 SET UP TRASNFER TO EXIT
06157 0056 00 000002 3531RNT2 TEST LITERAL INDICATOR
06160 0020 00 0 06543 3532TRA$NUTRN MAKE IT A NUMBER
06161 0020 00 0 06420 3533TRAINTRN1 MAKE IT AN OBJECT
3534 *
06162 0534 00 4 06254 3535TPFLXAPUTPC,4 CORRECT PART COUNT
06163 1 00001 4 06154 3536TXITPFA,4,1
3537 *
06164 0054 00 000002 3538RDPDRFT2 TEST FOR LITERAL
06165 0020 00 0 06140 3539TRARDPS FIRST . TERMONATES A LITERAL
06166 0054 00 000020 3540RFT20 TEST FOR FIRST DOT IN A NUMBER
06167 0020 00 0 06140 3541TRARDPS SECOND . TERMINATES A NUMBER
06170 0055 00 000020 3542SIR20 SET DOT INDICATOR
06171 0020 00 0 06124 3543TRARDNN
3544 *
06172 0634 00 4 06220 3545GETSXAGTX,4 SAVE LINK IR
06173 0520 00 0 06025 3546ZETLRCIS TEST FOR NEW CARD NEEDED
06174 0020 00 0 06227 3547TRAGTGCD GET A NEW CAERD
06175 −0754 00 0 00000 3548GETGOPXD0,0 CLEAR AC
06176 0560 00 1 06370 3549LDQCELL,1 GET NEXT WORD
06177 −0763 00 0 00003 3550LGL3 HIGH ORDER BITS
06200 0734 00 4 00000 3551PAX0,4
06201 −0763 00 0 00003 3552LGL3 CHARACTER
06202 0340 00 0 00416 3553CAS$QO14 IS IT ILLEGAL MINUS SIGN
06203 0020 00 0 06205 3554TRA*+2 NO
06204 0500 00 0 00423 3555CLA$QO40 YES GET LEGAL ONE
06205 0601 00 0 06416 3556STOGTVAL VALUE OF GET FOR PUT
06206 −0320 00 0 00377 3557ANA$Q7 MASK OUT HIGH ORDER BIT
06207 0621 00 0 06213 3558STAGTPT
06210 −0600 00 1 06370 3559STQCELL,1 UPDATE WORD
06211 −2 00001 2 06222 3560TNXGTPC,2,1 UPDATE PART COUNT
06212 0560 00 4 06352 3561GTMCLDQGTTBL,4 GET TABLE ENTRY
06213 −0763 00 0 00000 3562GTPTLGL** SHIFT PROPER ITEM TO AC
06214 0522 00 0 06213 3563XECGTPT
06215 0522 00 0 06213 3564XECGTPT
06216 −0754 00 0 00000 3565PXD0,0 CLEAR AC
06217 −0763 00 0 00003 3566LGL3 TYPE NOW IN AC
06220 0774 00 4 00000 3567GTXAXT**,4 RESTORE LINK IR
3568
06221 0020 00 4 00001 3569TRA1,4
3570 *
06222 0774 00 2 00006 3571GTPCAXT6,2 RELOAD PART COUNT
06223 2 00001 1 06212 3572TIXGTMC,1,1 GO IF NEW WORD NOT NEEDED
06224 −0625 00 0 06025 3573STLLRCIS GET NEW CARD
06225 0774 00 1 00014 3574AXT12,1 ERELOAD IR 1
06226 0020 00 0 06212 3575TRAGTMC GO BACJ
3576 *
06227 0074 00 4 00663 3577GTGCDTSX$INPUT,4
06230 0 00000 0 00000 3578 $BCDIN
06231 0 00034 0 06354 3579 LWPO,,28 GET NEXT BCD CARD
06232 0020 00 0 06234 3580TRA*+2 IGNORE REDUNDNACY ERROR
06233 0020 00 0 06236 3581TRAGTEOF EOF RETURN
06234 0600 00 0 06025 3582STZLRCIS SET SWITCH THAT CARD IS PRESENT
06235 0020 00 0 06175 3583TRAGETGO NO GO ON
3584 *
06236 −0754 00 0 00000 3585GTEOFPXD0,0 CLEAR AC
06237 0074 00 4 01562 3586TSX$ERROR,4 GO TO ERROR
06240 545160600454 3587BCI1,*R␣␣4*
3588 *
06241 0054 00 000040 3589PUTRFT40 TEST TO SEE IF TOOMUCH PNAME
06242 0020 00 0 06270 3590TRAPTTFA GO TO ERROR COMMENT
06243 0634 00 4 06256 3591SXAPUTX,4 SAVE LINK IR
06244 0056 00 000010 3592RNT10 TEST FOR FIRST TIME THRU
06245 0020 00 0 06276 3593TRAPUTZB ZERO PNAME BUFFER
06246 0774 00 4 00006 3594PUTMCAXT6,4 CHARACTER COUNT
06247 0500 00 0 06416 3595CLAGTVAL GET CHARACTER
06250 0560 00 0 00370 3596LDQ$ZERO
06251 0522 00 4 06330 3597XECPTSFT,4 PROPER SHIFT TO CHARACTER
06252 −2 00001 4 06260 3598TNXPTRFP,4,1 DECREMENT CHARACTER COUNT
06253 0634 00 4 06246 3599SXAPUTMC,4 UPDATE COUNT CELL
06254 0774 00 4 00005 3600PUTPCAXT5,4 NUMBER OF WORDS IN PNAME
06255 −0602 00 4 06335 3601PUTGAORSRDPNB,4 PUT CHARACTER IN
06256 0774 00 4 00000 3602PUTXAXT**,4 RESTORE LINK IR
06257 0020 00 4 00001 3603TRA1,4 EXIT
06260 0774 00 4 00006 3604PTRFPAXT6,4 RELOAD PART COUNT
06261 0634 00 4 06246 3605SXAPUTMC,4
06262 0534 00 4 06254 3606LXAPUTPC,4 WORD COUNT
06263 −0602 00 4 06335 3607ORSRDPNB,4
06264 2 00001 4 06266 3608TIX*+2,4,1 DECREMENT WORD COUNT
06265 0055 00 000040 3609SIR40 INDICATE PNAME BUFFER FULL
06266 0634 00 4 06254 3610SXAPUTPC,4 UPDATE COUNTER
06267 0020 00 0 06256 3611TRAPUTX GO ON
3612 *
06270 0074 00 4 01222 3613PTTFATSXOUTPUT,4 TOO MANY CHARACTER
06271 0 00000 0 00364 3614 BCDOUT WRITE OUT PNAME SO FAR
06272 0 00006 0 06327 3615 RDPNB−6,,6
06273 −0754 00 0 00000 3616PXD0,0 CLEAR AC
06274 0074 00 4 01562 3617TSX$ERROR,4 GO TO ERROR
06275 545160600554 3618BCI1,*R␣␣5*
3619 *
06276 0055 00 000010 3620PUTZBSIR10 SET SWITCH
06277 0774 00 4 00005 3621AXT5,4 FIX UP BUFFER
06300 0634 00 4 06254 3622SXAPUTPC,4 AND PART COUNT
06301 0600 00 4 06335 3623STZRDPNB,4
06302 2 00001 4 06301 3624TIX*−1,4,1
06303 0500 00 0 06335 3625CLAPUTVL RELINK THE WORDS
06304 0774 00 4 00005 3626AXT5,4
06305 0402 00 0 00442 3627SUB$QD1 SET POINTERS
06306 0622 00 4 06343 3628STDPUTVL+6,4
06307 2 00001 4 06305 3629TIX*−2,4,1
06310 0020 00 0 06246 3630TRAPUTMC
3631 *
06311 −0625 00 0 06025 3632TEREADSTLLRCIS SET SWITCH TO GET A NEW CARD
06312 0500 00 0 00376 3633CLA$Q6 SET CELLS
06313 0621 00 0 06037 3634STARDPTS
06314 0621 00 0 06246 3635STAPUTMC
06315 0500 00 0 00403 3636CLA$Q12
06316 0621 00 0 06040 3637STARDWDS
06317 0600 00 0 06415 3638STZRDLST
06320 −0754 00 0 00000 3639PXD0,0 CLEAR AC
06321 0020 00 4 00001 3640TRA1,4 EXIT
3641 *
06322 −0763 00 0 00036 3642LGL30
06323 −0763 00 0 00030 3643LGL24
06324 −0763 00 0 00022 3644LGL18
06325 −0763 00 0 00014 3645LGL12
06326 −0763 00 0 00006 3646LGL6
06327 0761 00 0 00000 3647NOP
06330 3648PTSFTBSS0
06335 3649RDPNBBES5
06335 0 71442 0 00000 3650PUTVL ,,−*−1 VALUE OF RDA
06336 0 71441 0 71450 3651 −RDPNB+5,,−*−1 FOR INTERN OF NUTRN
06337 0 71440 0 71447 3652 −RDPNB+4,,−*−1
06340 0 71437 0 71446 3653 −RDPNB+3,,−*−1
06341 0 71436 0 71445 3654 −RDPNB+2,,−*−1
06342 0 00000 0 71444 3655 −RDPNB+1
06343 −260430000000 3656OCT660430000000,466666660000,660760000000,566666660000
06344 −066666660000 3657
06345 −260760000000 3658
06346 −166666660000 3659
06347 −260120000000 3660OCT660120000000,566666660000,550650000000
06350 −166666660000 3661
06351 −150650000000 3662
06352 −155555550000 3663GTTBLOCT555555550000
06353 006060606060 3664RDPBBCI1,0␣␣␣␣␣
06354 0 00000 0 00000 3665LWPO
06355 0 00000 0 00000 3666LWCKS
06370 3667CELLBES10
06404 3668LWDPBBES12
06404 3669BSS6 ROOM FOR ID AND LLOK AHEAD BITS
06412 000000000053 3670RDDLSBCI1,00000$
06413 0 00000 0 00000 3671RDDDC
06414 0 00000 0 00000 3672RDIND INDICATOR STORAGE
06415 0 00000 0 00000 3673RDLST
06416 0 00000 0 00000 3674GTVAL
3675 *
3676
3677 INTERN
3678I HED
3679 *
3680 * INTERN CHANGED AND MODIFIED TO INCLUDE EXTERNAL ENTRACES AND
3681 * THE BUCKET SORT
3682 *
06417 −0600 00 0 06534 3683BUKSRTSTQBSRT ATOM TO BE PLACED (CNSFWL ENTRANCE)
06420 0601 00 0 06533 3684INTRN1STO$VALUE EXTERNAL ENTRANCE FROM APPLY
06421 0634 00 4 06525 3685INTERNSXAITRX,4 ENTRANCE FROM READ
06422 0634 00 2 06526 3686SXAITRY,2 SAVE IR 2
06423 −0534 00 4 06533 3687LXD$VALUE,4 PICK UP POINTER TO PNAME LIST
06424 0500 00 4 00000 3688CLA0,4 GET FIRST WORD OF PNAME
06425 0734 00 4 00000 3689PAX0,4
06426 −0500 00 4 00000 3690CAL0,4 GET FIRST WORD IN LOGICAL AC
06427 0765 00 0 00043 3691LRS35 PUT IN MQ AND BIT 35 OF AC
06430 0221 00 0 06535 3692DVPBUCKNO DIVIDE BY NUMBER OF BUCKETS
06431 0760 00 0 00012 3693DCT CHECK DIVISION
06432 0074 00 4 01676 3694TSX$DCT,4 DIVIDE ERROR
06433 0734 00 4 00000 3695PAX0,4 REMAIDNER TO IR 4
06434 0500 00 4 66427 3696CLABUCKET,4 PICK UP BUCKET
06435 0634 00 4 06522 3697SXABUCK,4 SAVE THE REMAINDER
06436 0734 00 4 00000 3698PAX0,4
06437 −0634 00 4 06540 3699SXDO5,4 SET UP WORD
06440 0520 00 0 06534 3700ZETBSRT TEST FOR CNSFWL ENTRANCE
06441 0020 00 0 06530 3701TRAINTAD YES, GO
06442 −0634 00 4 06536 3702SXDO1,4
06443 −0534 00 4 06536 3703O4LXDO1,4 NEXT OBJECT
06444 −3 00000 4 06504 3704TXLOUT,4,0 END OF OBJLIST
06445 0500 00 4 00000 3705CLA,4
06446 0622 00 0 06536 3706STDO1
06447 0734 00 4 00000 3707PAX,4 OBJECT M/C NAME
06450 −0634 00 4 06537 3708SXDO2,4 PRESERVE IT
06451 0500 00 4 00000 3709CLA,4
06452 −0734 00 4 00000 3710O3PDX,4 ADDRESS PART IS -1
06453 −3 00000 4 06443 3711TXLO4,4,0 END OF PROPERTY LIST
06454 0500 00 4 00000 3712CLA,4
06455 0734 00 4 00000 3713PAX,4
06456 −3 07334 4 06452 3714TXLO3,4,$PNAME−1 NO
06457 3 07335 4 06452 3715TXHO3,4,$PNAME NO
06460 −0734 00 4 00000 3716PDX,4 YES IT IS
06461 0500 00 4 00000 3717CLA,4
06462 0734 00 4 00000 3718PAX,4 U
06463 −0534 00 2 06533 3719LXD$VALUE,2 V
06464 −3 00000 2 06443 3720O7TXLO4,2,0
06465 0500 00 4 00000 3721CLA0,4
06466 0622 00 0 06542 3722STDQ4 CDR(U)
06467 0734 00 4 00000 3723PAX,4 CAR(U)
06470 0500 00 2 00000 3724CLA,2
06471 0622 00 0 06541 3725STDQ2 CDR(V)
06472 0734 00 2 00000 3726PAX,2
06473 0500 00 4 00000 3727CLA,4 CWR(CAR(U))
06474 0402 00 2 00000 3728SUB,2 -CWR(CAR(V))
06475 −0100 00 0 06443 3729TNZO4 NOT THE SAME,NEXT OBJECT
06476 −0534 00 4 06542 3730LXDQ4,4 CDR(U)
06477 −0534 00 2 06541 3731LXDQ2,2
06500 3 00000 4 06464 3732TXHO7,4,0 IF NOT YET END OF NAME
06501 3 00000 2 06443 3733TXHO4,2,0 IF U,V OF DIFFERENT LENGTH,NEXT
06502 0500 00 0 06537 3734CLAO2
06503 0020 00 0 06525 3735TRAITRX
06504 0500 00 0 06533 3736OUTCLA$VALUE
06505 0074 00 4 07343 3737TSX$CP1,4
06506 0560 00 0 00370 3738LDQ$ZERO
06507 0074 00 4 03730 3739TSX$CONS,4
06510 0131 00 0 00000 3740XCA
06511 0500 00 0 00504 3741CLAOPNA
06512 0074 00 4 03730 3742TSX$CONS,4
06513 0131 00 0 00000 3743XCA INTO MQ
06514 0500 00 0 00460 3744CLA$DMASK ATOM SYMBOL
06515 0074 00 4 03730 3745TSX$CONS,4 MAKE IT AN ATOM
06516 0560 00 0 06540 3746INTCNLDQO5 LIST OF ATOMS IN BUCKET
06517 0622 00 0 06540 3747STDO5 SAVE ATOM AS ANSWER
06520 0074 00 4 03730 3748TSX$CONS,4 ATTACH TO BEGINNING OF LIST
06521 0771 00 0 00022 3749ARS18 PUT IN ADDRESS
06522 0774 00 4 00000 3750BUCKAXT**,4 BUCKET NUMBER
06523 0621 00 4 66427 3751STABUCKET,4 PUT IN PROPER BUCJET
06524 0500 00 0 06540 3752CLAO5 ATOM AS ANSWER
06525 0774 00 4 00000 3753ITRXAXT**,4 RESTORE LINK IR
06526 0774 00 2 00000 3754ITRYAXT**,2
06527 0020 00 4 00001 3755TRA1,4 EXIT
06530 0500 00 0 06534 3756INTADCLABSRT PICK UP ATOM
06531 0600 00 0 06534 3757STZBSRT ZERO LOCATION
06532 0020 00 0 06516 3758TRAINTCN PLACE ATOM IN BICKET
06533 0 00000 0 00000 3759VALUE POINTER TO PNAME LIST
06534 0 00000 0 00000 3760BSRT ATOM IN CNSFWL WENTRANCE
06535 0 00000 0 00177 3761BUCKNOPZE127 NUMBER OF BUCKETS
3762 *
06536 0 00000 0 00000 3763O1
06537 0 00000 0 00000 3764O2
06540 0 00000 0 00000 3765O5
00504 3766OPNASYNPNAMED
06541 0 00000 0 00000 3767Q2
06542 0 00000 0 00000 3768Q4
3769T HED
06543 0634 00 4 06617 3770NUTRNSXANX4,4 SAVE IDNEX REGISVERS
06544 0634 00 2 06616 3771SXANX2,2
06545 0634 00 1 06615 3772SXANX1,1
06546 0774 00 1 00006 3773AXT6,1
06547 −0534 00 4 06533 3774LXD$VALUE,4
06550 0500 00 4 00000 3775NA1CLA0,4
06551 −0734 00 4 00000 3776PDX0,4
06552 0734 00 2 00000 3777PAX0,2
06553 0500 00 2 00000 3778CLA0,2
06554 0601 00 1 07333 3779STOBUFFER+6,1
06555 −3 00000 4 06566 3780TXLNA2,4,0
06556 2 00001 1 06550 3781TIXNA1,1,1
06557 −0634 00 4 01562 3782NESXD$ERROR,4
06560 0074 00 4 01222 3783TSXOUTPUT,4
06561 0 00000 0 00364 3784 BCDOUT
06562 0 00016 0 06351 3785 I$CELL−15,,14
06563 −0754 00 0 00000 3786PXD0,0 CLEAR AC
06564 0074 00 4 01563 3787TSX$ERROR+1,4
06565 545160600654 3788BCI1,*R␣␣6*
06566 0500 00 0 00472 3789NA2CLABLANKS
06567 0601 00 1 07334 3790STOBUFFER+7,1
06570 0500 00 0 06621 3791CLAKBPOS PARAMETER FOR NUMBR
06571 0074 00 4 06622 3792TSX$NUMBR,4 NUMBER TO MQ
06572 0100 00 0 06557 3793TZENE OUT-OF-RANGE ERROR
06573 −0120 00 0 06612 3794TMINA7 TRA IF FLOATING NUMBER
06574 −0760 00 0 00001 3795PBT TEST FOR OCTAL NUMBER
06575 0020 00 0 06601 3796TRANA3 TRA IF OCTAL
06576 0500 00 0 00503 3797CLA$OCTD OCTAL SIGNAL FOR $MKNO
06577 0131 00 0 00000 3798XCA
06600 0020 00 0 06614 3799TRANA8
06601 0131 00 0 00000 3800NA3XCA NUMBER TO AC
06602 0560 00 0 00475 3801LDQ$FIXD FIX TO MQ
06603 −0120 00 0 06614 3802TMINA8
06604 0340 00 0 00402 3803CAS$Q10 TEST FOR 0 THRU 9
06605 0020 00 0 06614 3804TRANA8
06606 0020 00 0 06614 3805TRANA8
06607 0361 00 0 00521 3806ACL$H00A FORM PRINT OBJECT
06610 0767 00 0 00022 3807ALS18
06611 0020 00 0 06615 3808TRANX1
06612 0500 00 0 00476 3809NA7CLAFLOATD FLOAT SIGNAL FOR $MKNO
06613 0131 00 0 00000 3810XCA NUMBER TO AC
06614 0074 00 4 12636 3811NA8TSX$MKNO,4 MAKE A NUMBER
06615 0774 00 1 00000 3812NX1AXT**,1 RESTORE INDEX REGISTERS
06616 0774 00 2 00000 3813NX2AXT**,2
06617 0774 00 4 00000 3814NX4AXT**,4
06620 0020 00 4 00001 3815TRA1,4
06621 0 00001 0 07325 3816KBPOSPZEBUFFER,,1
3817
3818F HED
3819 NUMBR CONVERTS PACKET BCD CHARACTERS TO A NUMBER WHICH
3820 APPEARS IN MQ. DBC CONVERSIONS ARE FOLLOWED. OCTAL
3821 NUMBERS ARE SIGNALLED BY Q AND MAY BE FOLLOWED BY A
3822 SCALE FACTOR.
3823 ROUTINE STOLEN FROM UADBC1
3824
06622 0634 00 1 07155 3825NUMBRSXAPX1,1 SAVE INDEX REGISTERS
06623 0634 00 2 07156 3826SXAPX2,2
06624 0634 00 4 07157 3827SXAPX4,4
06625 0602 00 0 77665 3828SLWT
06626 0737 00 2 00000 3829PAC,2 IR2 HAS WORD COUNT
06627 −0737 00 1 00000 3830PDC,1 IR1 WILL GET CHARACTER COUNT
06630 0771 00 0 00021 3831ARS17
06631 0601 00 0 77666 3832STON
06632 0767 00 0 00001 3833ALS1
06633 0400 00 0 77666 3834ADDN
06634 0737 00 4 00000 3835PAC,4
06635 0560 00 2 00000 3836LDQ0,2 PUT BCD WORD IN MQ
06636 −0763 00 4 77772 3837LGL−6,4 SHIFT OUT EXTRA CHARACTERS
06637 −0600 00 0 77662 3838STQMQ SAVE FIRST BATCH OF CHARACTERS
06640 1 00007 1 06641 3839TXI*+1,1,7
3840 LOOK AT CHARACTERS UNTIL A Q OR NON-OCTAL CHARACTER APPEARS.
06641 −0754 00 0 00000 3841CY3PXD,0
06642 −0763 00 0 00006 3842LGL6
06643 0402 00 0 00400 3843SUBQ8 TEST FOR OCTAL DIGIT
06644 0120 00 0 06651 3844TPLCY4
06645 2 00001 1 06641 3845CY2TIXCY3,1,1 GET NEXT CHARACTER
06646 1 77777 2 06647 3846TXI*+1,2,−1
06647 0560 00 2 00000 3847LDQ0,2
06650 1 00005 1 06641 3848TXICY3,1,5
06651 0400 00 0 00400 3849CY4ADDQ8
06652 0340 00 0 00426 3850CASQ
06653 0020 00 0 06666 3851TRADECNO
06654 0020 00 0 07170 3852TRAOCTNO IF Q, NUMBER IS OCTAL
06655 0340 00 0 00423 3853CASMINUS IF CHARACTER IS MINUS, PLUS OR DASH,
06656 0020 00 0 06666 3854TRADECNO LOOK AT MORE CHARACTERS,
06657 0020 00 0 06645 3855TRACY2 OTHERWISE NUMBER IS DECIMAL
06660 0340 00 0 00420 3856CASPLUS
06661 0020 00 0 06666 3857TRADECNO
06662 0020 00 0 06645 3858TRACY2
06663 0340 00 0 00416 3859CASDASH
06664 0020 00 0 06666 3860TRADECNO
06665 0020 00 0 06645 3861TRACY2
3862
06666 0535 00 2 77665 3863DECNOLACT,2 IR2 HAS WORD COUNT
06667 −0535 00 1 77665 3864LDCT,1 IR1 WILL GET CHARACTER COUNT
06670 0560 00 0 77662 3865LDQMQ RESTORE FIRST GRUOP OF CHARACTERS
06671 −0754 00 0 00000 3866PXD,0
06672 0602 00 0 77662 3867BN2SLWBN REGISTERS
06673 0602 00 0 77663 3868EX2SLWEXPN
06674 0602 00 0 77666 3869INTNSLWN
06675 −0534 00 4 00402 3870LXDQ10,4 SET DECIMAL COUNT TO ZERO
06676 −0500 00 0 06766 3871CALSW1 RESET SWITCHES FOR
06677 0630 00 0 07033 3872STPCM2 FIXED POINT
06700 0630 00 0 07106 3873STPCM6 X
06701 0630 00 0 07011 3874STPEXS EXP
06702 0630 00 0 07035 3875STPCM3 POINT
06703 0630 00 0 07020 3876STPCX3 DECIMAL NUMBER
06704 −0500 00 0 06674 3877CALINTN INITIALIZE CONVERSION
06705 1 00010 1 06720 3878TXIBN3,1,8 FIX INITIAL CHARACTER COUNT
06706 0502 00 0 07035 3879PT1CLSCM3 INVERT SWITCH TO SIGNAL DECIMAL POINT
06707 0601 00 0 07035 3880STOCM3
06710 −0500 00 0 06743 3881CALCV3
06711 0621 00 0 06760 3882STACV5 ROUTINE TO COUNT
06712 0621 00 0 06763 3883STACV6 DECIMAL PLACES
06713 1 00001 4 06760 3884TXICV5,4,1
06714 1 77777 4 06743 3885PT3TXICV3,4,−1 COUNT DECIMAL PLACES
06715 0502 00 0 07011 3886EX1CLSEXS INVERT SWITCH TO SIGNAL EXPONENT
06716 0601 00 0 07011 3887STOEXS
06717 −0500 00 0 06673 3888CALEX2 SET UP EXPONENT CONVERSION
06720 0621 00 0 06751 3889BN3STACV7 STORE CONVERSION
06721 0621 00 0 06753 3890STACV8 ADDRESS
06722 0621 00 0 06757 3891STACV9
06723 −0500 00 0 06714 3892CALPT3 INITIAL CONVERSION
06724 0621 00 0 06760 3893STACV5 WITHOUT DECIMAL COUNT
06725 0621 00 0 06763 3894STACV6
06726 −0500 00 0 06753 3895PL1CALCV8
06727 0622 00 0 06755 3896MN3STDCV10
06730 0140 00 0 06760 3897TOVCV5
TD06731 −3 00000 0 06760 3898TXLCV5
06732 0500 00 0 07033 3899BN1CLACM2 INVERT SWITCHES TO SIGNAL FIXED POINT
06733 0630 00 0 07033 3900STPCM2
06734 0630 00 0 07106 3901STPCM6
06735 −0500 00 0 06672 3902CALBN2 SET UP B CONVERSION
TD06736 −3 00000 0 06720 3903TXLBN3
06737 0500 00 0 00455 3904MN1CLAPBIT START NEGATIVE ACCUMULATION WITH NEG. ZERO
06740 0601 60 0 06751 3905STO*CV7
06741 −0500 00 0 06742 3906CALMN2 OP CODE TO MAKE CVIO A SUB INSTRUCTION
06742 −3 40200 0 06727 3907MN2TXLMN3,0,258*64
06743 −0754 00 0 06714 3908CV3PXDPT3,0
06744 −0763 00 0 00006 3909LGL6
06745 0340 00 0 00402 3910CASTEN TEST FOR DIGIT
TD06746 −3 00000 0 06765 3911TXLCM
TD06747 −3 00000 0 07007 3912TXLCV2
06750 0602 00 0 77664 3913SLWCH PERFORM CODED
06751 0500 00 0 77666 3914CV7CLAN MULTIPLICATION
06752 0767 00 0 00002 3915ALS2 BY TEN AND ADD
06753 0400 00 0 77666 3916CV8ADDN
06754 0767 00 0 00001 3917ALS1
06755 0400 00 0 77664 3918CV10ADDCH
06756 0140 00 0 06764 3919TOVOVF TEST FOR OVERFLOW
06757 0601 00 0 77666 3920CV9STON
06760 2 00001 1 06743 3921CV5TIXCV3,1,1 COUNT CHARACTERS
06761 1 77777 2 06762 3922TXICV4,2,−1 OBTAIN NEXT BCD
06762 0560 00 2 00000 3923CV4LDQ0,2 WORD AND RESTORE
06763 1 00005 1 06743 3924CV6TXICV3,1,5 CHARACTER COUNT
06764 1 00001 4 06760 3925OVFTXICV5,4,1 COUNT DECIMAL OVERFLOWS
06765 0340 00 0 00423 3926CMCASMINUS
TD06766 −3 00000 0 07007 3927SW1TXLCV2
TD06767 −3 00000 0 06737 3928TXLMN1
06770 0340 00 0 00422 3929CASPOINT
TD06771 −3 00000 0 07007 3930TXLCV2
TD06772 −3 00000 0 06706 3931TXLPT1
06773 0340 00 0 00410 3932CASE
TD06774 −3 00000 0 07007 3933TXLCV2
TD06775 −3 00000 0 06715 3934TXLEX1
06776 0340 00 0 00421 3935CASB
TD06777 −3 00000 0 07007 3936TXLCV2
TD07000 −3 00000 0 06732 3937TXLBN1
07001 0340 00 0 00420 3938CASPLUS
TD07002 −3 00000 0 07007 3939TXLCV2
TD07003 −3 00000 0 06726 3940TXLPL1
07004 0340 00 0 00416 3941CASDASH DASH TREATED LINK MINUS
07005 0020 00 0 07007 3942TRACV2
07006 0020 00 0 06737 3943TRAMN1
07007 0500 00 0 77666 3944CV2CLAN
07010 0100 00 0 07161 3945TZESTZ SEE IF ZERO FIXED OR FLOATING
TD07011 −3 00000 0 07020 3946EXSTXLCX3 SWITCH - TXH INDICATES EXPONENT
07012 −0500 00 0 00455 3947CALPBIT PREPARE TRUE
07013 0400 00 0 77663 3948ADDEXPN DECIMAL EXPONENT
07014 0767 00 0 00022 3949ALS18
07015 0622 00 0 07017 3950STDCM4
07016 0500 00 0 77666 3951CLAN
07017 1 00000 4 07036 3952CM4TXICM5,4,0
TD07020 −3 00000 0 07033 3953CX3TXLCM2 SWITCH - TXH INDICATE OCTAL
3954 SCALE OCTAL NUMBER
07021 0500 00 0 77662 3955CLABN MULTIPLY SCALE FACTOR BY 3
07022 0767 00 0 00001 3956ALS1 FOR NUMBER OF SHFITS NEEDED
07023 0400 00 0 77662 3957ADDBN
07024 0621 00 0 07026 3958STACX5
07025 0500 00 0 77666 3959CLAN
07026 0767 00 0 00000 3960CX5ALS**
07027 −0760 00 0 00001 3961PBTALLOW FOR P BIT
07030 0020 00 0 07126 3962TRAISTOR
07031 −0760 00 0 00003 3963SSM
07032 0020 00 0 07126 3964TRAISTOR
TD07033 −3 00000 0 07035 3965CM2TXLCM3 SWITCH - INVERTED TO TXH INDICATES FIXED POINT
TD07034 −3 00000 0 07036 3966TXLCM5
TD07035 −3 00000 0 07126 3967CM3TXLISTOR SWITCH - TXH INDICATES POINT
07036 0621 00 0 07243 3968CM5STAFL1 35 BIT INTEGER
07037 0771 00 0 00017 3969ARS15
07040 −0501 00 0 07244 3970ORAFL2
07041 0300 00 0 07244 3971FADFL2
07042 0120 00 0 07045 3972TPLCMF1
07043 0302 00 0 07243 3973FSBFL1
TD07044 −3 00000 0 07046 3974TXLCMF2
07045 0300 00 0 07243 3975CMF1FADFL1
07046 −0600 00 0 77670 3976CMF2STQRESID
07047 −3 00000 4 07106 3977TXLCM6,4,0
07050 3 00046 4 07071 3978SW2TXHCM7,4,38 TEST FOR NEGATIVE EXP
07051 0634 00 4 07052 3979SXA*+1,4 COMPUTE ABSOLUTE VALUE OF EXPONENT
07052 −0774 00 4 00000 3980AXC**,4
07053 0601 00 0 77667 3981STODATUM
07054 0560 00 4 07244 3982LDQONE,4 COMPUTE FLOATING
07055 0260 00 0 77667 3983FMPDATUM BINARY REPRESENTATION
07056 0601 00 0 77665 3984STOT OF INTEGER TIMES THE
07057 −0600 00 0 77666 3985STQT+1 POWER OF TEN GIVEN
07060 0560 00 4 07244 3986LDQONE,4 BY THE TRUE EXPONENT
07061 0260 00 0 77670 3987FMPRESID
07062 0300 00 0 77666 3988FADT+1
07063 0300 00 0 77665 3989FADT
07064 0361 00 0 07241 3990ACLEXC1
07065 −0760 00 0 00001 3991PBT
TD07066 −3 00000 0 07106 3992TXLCM6
07067 −0754 00 0 00000 3993CM8PXD,0
07070 0020 00 0 07155 3994TRAPX1 NUMBER OUT OF RANGE, EXIT WITH 0 IN AC
07071 −3 77717 4 07067 3995CM7TXLCM8,4,−49 TEST FOR ILLEGAL EXP
07072 0161 00 0 07073 3996CM13TQOCM13+1
07073 0241 00 4 07244 3997FDPONE,4 COMPUTE FLOATING
07074 −0600 00 0 77665 3998STQT BINARY EQUIVALENT
07075 0300 00 0 77670 3999FADRESID OF INTEGER TIMES
07076 0241 00 4 07244 4000FDPONE,4 POWER OF TEN GIVEN
07077 0161 00 0 07067 4001TQOCM8
07100 −0600 00 0 77666 4002STQT+1 BY TRUE EXPONENT
07101 0500 00 0 77666 4003CLAT+1
07102 0300 00 0 77665 4004FADT
07103 0361 00 0 07242 4005ACLEXC2
4006
07104 −0760 00 0 00001 4007PBT
TD07105 −3 00000 0 07067 4008TXLCM8
TD07106 −3 00000 0 07131 4009CM6TXLFSTOR SWITCH - TXH INDICATES FIXED POINT
07107 0601 00 0 77665 4010STOT
07110 0767 00 0 00002 4011ALS2
07111 −0760 00 0 00003 4012SSMDETERMINE SHIFT
07112 0771 00 0 00035 4013ARS29 NECESSARY TO POSITION
07113 0400 00 0 00415 4014ADDQ128 NUMBER AS INDICATED
07114 0400 00 0 77662 4015ADDBN BY B
07115 0120 00 0 07117 4016TPLSHIFT
07116 −0100 00 0 07067 4017TNZCM8
07117 0621 00 0 07125 4018SHIFTSTACM12
07120 0500 00 0 77665 4019CLAT REMOVE CHARACTERISTICS
07121 0763 00 0 00010 4020LLS8 FROM FLOATING NUMBER
07122 0767 00 0 00002 4021ALS2
07123 0771 00 0 00012 4022ARS10
07124 0763 00 0 00010 4023LLS8
07125 0765 00 0 00000 4024CM12LRS**
07126 0131 00 0 00000 4025ISTORXCARESULT TO MQ
07127 −0500 00 0 06766 4026ISTO1CALSW1 SET FIXED POINT INDICATOR SWITCH
07130 0020 00 0 07133 4027TRAXT3
07131 0131 00 0 00000 4028FSTORXCARESULT TO MQ
07132 0500 00 0 06766 4029CLASW1 SET FLOAT INDICATOR SWITCH
07133 0630 00 0 07153 4030XT3STPXT1
07134 2 00001 1 07137 4031TIXXT2,1,1 IF NO SIGNIFICANT CHARACTERS
07135 1 77777 2 07136 4032TXI*+1,2,−1 LEFT IN WORD, MOVE TO NEXT WORD
07136 0774 00 1 00006 4033AXT6,1
07137 −0754 00 1 00000 4034XT2PXD,1 SET POSITION INDICATORS
07140 0402 00 0 00446 4035SUBQD7
07141 0602 00 0 77665 4036SLWT
07142 −0500 00 0 07020 4037CALCX3 P BIT IN OUTPUT INDICATES OCTAL
07143 −0320 00 0 00455 4038ANA$SBIT
07144 −0602 00 0 77665 4039ORST
07145 0760 00 0 00006 4040COM
07146 0630 00 0 77665 4041STPT
07147 0634 00 2 07150 4042SXA*+1,2
07150 −0774 00 2 00000 4043AXC**,2
07151 0754 00 2 00000 4044PXA,2
07152 0361 00 0 77665 4045ACLT
TD07153 −3 00000 0 07155 4046XT1TXL*+2 SET SIGN + FOR FIXED.
07154 −0760 00 0 00003 4047SSM - FOR FLOATING
07155 0774 00 1 00000 4048PX1AXT,1 RESTORE INDEX REGISTERS
07156 0774 00 2 00000 4049PX2AXT,2
07157 0774 00 4 00000 4050PX4AXT,4
07160 0020 00 4 00001 4051TRA1,4 EXIT
4052 WE GET HERE IF NUMBER IS ZERO.
4053 WE HERE DECIDE WHETHER WE ARE FACED WITH A FIXED OR FLOATING
4054 ZERO.
4055
07161 0560 00 0 07033 4056STZLDQCM2 TXH (+) IF B
07162 0162 00 0 07126 4057TQPISTOR
07163 0560 00 0 07035 4058LDQCM3 TXH (+) IF DECIMAL POINT FOUND
07164 0162 00 0 07131 4059TQPFSTOR
07165 0560 00 0 07011 4060LDQEXS TXH (+) IF E FOUND
07166 0162 00 0 07131 4061TQPFSTOR
07167 0020 00 0 07126 4062TRAISTOR
4063
4064 PROCESS OCTAL NUMBER
07170 0535 00 2 77665 4065OCTNOLACT,2 IR2 HAS WORD COUNT
07171 −0535 00 1 77665 4066LDCT,1 IR1 WILL GET CHARACTER COUNT
07172 0560 00 0 77662 4067LDQMQ RESTORE FIRST GROUP OF CHARACTERS
07173 −0754 00 0 00000 4068PXD,0
07174 0621 00 0 06751 4069STACV7 SET SIGNAL FOR OCTAL NUMBER
07175 1 00010 1 07203 4070TXIOCT9,1,8 FIX CHARACTER COUNT
07176 −0754 00 0 00000 4071OCT1PXD,0
07177 −0763 00 0 00003 4072LGL3
07200 −0100 00 0 07211 4073TNZOCT8
07201 0500 00 0 77666 4074CLAN
07202 −0763 00 0 00003 4075LGL3
07203 0601 00 0 77666 4076OCT9STON ALLOW FOR BOTH P BIT AND MINUS SIGN
07204 −0602 00 0 77666 4077ORSN
07205 2 00001 1 07176 4078OCT6TIXOCT1,1,1
07206 1 77777 2 07207 4079TXIOCT2,2,−1
07207 0560 00 2 00000 4080OCT2LDQ0,2 NEW PACKED WORD
07210 1 00005 1 07176 4081TXIOCT1,1,5
07211 −0763 00 0 00003 4082OCT8LGL3
07212 0340 00 0 00426 4083CASQ TEST FOR OCTAL SCALE FACTOR
07213 0020 00 0 07226 4084TRAOCT3
07214 0020 00 0 07232 4085TRAOCT10
07215 0340 00 0 00423 4086CASMINUS
TD07216 −3 00000 0 07226 4087TXLOCT3
TD07217 −3 00000 0 07230 4088TXLOCT5
07220 0340 00 0 00420 4089CASPLUS
TD07221 −3 00000 0 07226 4090TXLOCT3
TD07222 −3 00000 0 07205 4091TXLOCT6
07223 0340 00 0 00416 4092CASDASH DASH TREATED LINK -
TD07224 −3 00000 0 07226 4093TXLOCT3
TD07225 −3 00000 0 07230 4094TXLOCT5
07226 0560 00 0 77666 4095OCT3LDQN
TD07227 1 00000 0 07127 4096TXIISTO1
07230 0500 00 0 00455 4097OCT5CLAPBIT SET NEGATIVE SIGN
TD07231 −3 00000 0 07203 4098TXLOCT9
07232 0500 00 0 07020 4099OCT10CLACX3 SET SWITCH FOR OCTAL SCALE FACTOR
07233 0630 00 0 07020 4100STPCX3
07234 0600 00 0 77662 4101STZBN CLEAR SCALE FACTOR CELL
07235 −0500 00 0 06766 4102CALSW1 SET EXPONENT SWITCH TO OFF
07236 0630 00 0 07011 4103STPEXS
07237 −0500 00 0 06672 4104CALBN2 SET UP Q CONVERSION
07240 0020 00 0 06720 4105TRABN3
4106
00400 4107Q8SYN$Q8
00402 4108Q10SYN$Q10
00415 4109Q128SYN$Q128
00446 4110QD7SYN$QD7
00455 4111PBITSYN$SBIT
00427 4112BLANKSYN$QO60
00423 4113MINUSSYN$QO40
00422 4114POINTSYN$QO33
00410 4115ESYN$QO25
00421 4116BSYN$QO22
00426 4117QSYN$QO50
00420 4118PLUSSYN$QO20
00416 4119DASHSYN$QO14
07241 +043000000000 4120EXC1DEC35B8 CHARACTERISTIC=35
07242 +335000000000 4121EXC2DEC221B8 CHAR.=COMPL. 35
07243 +233000000000 4122FL1DEC155B8
07244 +252000000000 4123FL2DEC170B8
07245 +141500000000 4124OCT141500000000,144620000000,147764000000,153470400000
07246 +144620000000 4125
07247 +147764000000 4126
07250 +153470400000 4127
07251 +156606500000 4128OCT156606500000,161750220000,165461132000,170575360400
07252 +161750220000 4129
07253 +165461132000 4130
07254 +170575360400 4131
07255 +173734654500 4132OCT173734654500,177452013710,202564416672,205721522451
07256 +177452013710 4133
07257 +202564416672 4134
07260 +205721522451 4135
07261 +211443023471 4136OCT211443023471,214553630410,217706576512,223434157116
07262 +214553630410 4137
07263 +217706576512 4138
07264 +223434157116 4139
07265 +226543212741 4140OCT226543212741,231674055532,235425434430,240532743536
07266 +231674055532 4141
07267 +235425434430 4142
07270 +240532743536 4143
07271 +243661534466 4144OCT243661534466,247417031702,252522640262,255647410336
07272 +247417031702 4145
07273 +252522640262 4146
07274 +255647410336 4147
07275 +261410545213 4148OCT261410545213,264512676456,267635456171,273402374714
07276 +264512676456 4149
07277 +267635456171 4150
07300 +273402374714 4151
07301 +276503074077 4152OCT276503074077,301623713116,304770675742,310473426555
07302 +301623713116 4153
07303 +304770675742 4154
07304 +310473426555 4155
07305 +313612334311 4156OCT313612334311,316755023373,322464114135,325601137164
07306 +316755023373 4157
07307 +322464114135 4158
07310 +325601137164 4159
07311 +330741367021 4160OCT330741367021,334454732313,337570120775,342726145174
07312 +334454732313 4161
07313 +337570120775 4162
07314 +342726145174 4163
07315 +346445677216 4164OCT346445677216,351557257061,354713132676,360436770626
07316 +351557257061 4165
07317 +354713132676 4166
07320 +360436770626 4167
07321 +363546566774 4168OCT363546566774,366700324573,372430204755,375536246150
07322 +366700324573 4169
07323 +372430204755 4170
07324 +375536246150 4171
00402 4172TENSYNQ10
07244 4173ONESYNFL2
07325 4174REORGBSS0
77662 4175ORGCOMMON
77662 4176BNBSS1
77662 4177MQSYNBN
77663 4178EXPNBSS1
77664 4179CHBSS1
77665 4180CHDBSS1
77665 4181TSYNCHD
77666 4182NBSS1
77667 4183DATUMBSS1
77670 4184RESIDBSS1
07325 4185ORGREORG RESTORE ORIGIN
07325 4186BUFFERBSS14
4187
4188R HED
4189 FUNCTION CP1
4190 CP1(L)=(L=0 YIELDS 0.
4191 OTHERWISE CONS(CONSW(CWR(CAR(L)))),CP1(CDR(L))))
4192C HED
07343 0100 00 4 00001 4193CP1TZE1,4
07344 −0634 00 4 03361 4194SXDCR1,4
07345 −0734 00 4 00000 4195PDX,4
07346 0500 00 4 00000 4196CLA,4 CWR(L)
07347 0601 00 0 03363 4197STOCWRL
07350 0734 00 4 00000 4198PAX,4 CAR(L)
07351 0500 00 4 00000 4199CLA,4 CWR(CAR(L))
07352 0074 00 4 03710 4200TSX$CONSW,4
07353 0074 00 4 02312 4201TSX$SAVE,4
07354 −3 03364 0 02377 4202TXL$END2,,CR2+2 SAVE 2 ITEMS
07355 0601 00 0 03362 4203STOCR2
07356 −0534 00 4 03363 4204LXDCWRL,4 CDR(L)
07357 −0754 00 4 00000 4205PXD,4 IN DEC
07360 0074 00 4 07343 4206TSXCP1,4
07361 0601 00 0 03363 4207STOCWRL
07362 0560 00 0 03363 4208LDQCWRL C(MQ)=CP1(CDR(L))
07363 0500 00 0 03362 4209CLACR2
07364 0074 00 4 02326 4210TSXUNSAVE,4
07365 −0534 00 4 03361 4211LXDCR1,4
07366 0020 00 0 03730 4212TRA$CONS
4213
4214 SUBST
4215 SUBST(L,V,M) =
4216 (M = 0 YIELDS 0,
4217 EQUAL(M,V) YIELDS COPY(L),
4218 CAR(M)=-1 YIELDS M
4219 1 YIELDS CONS(SUBST(L,V,CAR(M)),SUBSTL,V,CDR(M))))
4220R HED
07367 0601 00 0 03475 4221SUBSTSTOSX
07370 −0600 00 0 03476 4222STQSY
07371 0500 00 0 03321 4223CLA$ARG3
07372 −0634 00 4 03473 4224SUB1SXDSXT,4
07373 0601 00 0 03477 4225STOST
07374 0560 00 0 03476 4226LDQSY
07375 0074 00 4 04461 4227TSX$EQUAL,4
07376 −0100 00 0 07443 4228TNZSUB4
07377 −0534 00 4 03477 4229LXDST,4
07400 0500 00 4 00000 4230CLA0,4
07401 0734 00 4 00000 4231PAX0,4
07402 0500 00 0 03477 4232CLAST
07403 3 77776 4 07441 4233TXHSUB2,4,−2
07404 0074 00 4 02312 4234TSX$SAVE,4
07405 −3 03476 0 02377 4235TXL$END2,,SZ+2
07406 0622 00 0 03474 4236STDSZ
07407 −0734 00 4 00000 4237PDX0,4
07410 0500 00 4 00000 4238CLA0,4
07411 −0734 00 4 00000 4239PDX0,4
07412 0634 00 4 03474 4240SXASZ,4
07413 0734 00 4 00000 4241PAX0,4
07414 −0754 00 4 00000 4242PXD0,4
07415 0074 00 4 07372 4243TSXSUB1,4
07416 0534 00 4 03474 4244LXASZ,4
07417 0771 00 0 00022 4245ARS18
07420 0621 00 0 03474 4246STASZ
07421 −0754 00 4 00000 4247PXD0,4
07422 0074 00 4 07372 4248TSXSUB1,4
07423 −0534 00 4 03474 4249LXDSZ,4
07424 0622 00 0 03474 4250STDSZ
07425 0500 00 4 00000 4251CLA0,4
07426 0402 00 0 03474 4252SUBSZ
07427 0100 00 0 07437 4253TZESUB3
07430 −0534 00 4 03751 4254LXD$FREE,4
07431 3 00000 4 07433 4255TXH*+2,4,0
07432 0074 00 4 04037 4256TSX$FROUT,4
07433 0500 00 4 00000 4257CLA0,4
07434 0622 00 0 03751 4258STD$FREE
07435 0500 00 0 03474 4259CLASZ
07436 0601 00 4 00000 4260STO0,4
07437 −0754 00 4 00000 4261SUB3PXD0,4
07440 0074 00 4 02326 4262TSXUNSAVE,4
07441 −0534 00 4 03473 4263SUB2LXDSXT,4
07442 0020 00 4 00001 4264TRA1,4
07443 0500 00 0 03475 4265SUB4CLASX
07444 0020 00 0 07441 4266TRASUB2
4267B HED
4268 FUNCTION SUBLIS
4269
07445 −0600 00 0 03472 4270SUBLISSTQE
07446 −0100 00 0 07451 4271TNZSU1
07447 0500 00 0 03472 4272CLAE P=0
07450 0020 00 4 00001 4273TRA1,4
07451 0601 00 0 03471 4274SU1STOP
07452 0500 00 0 03472 4275CLAE
07453 −0100 00 0 07455 4276TNZSU2
07454 0020 00 4 00001 4277TRA1,4 E=0
07455 −0634 00 4 03464 4278SU2SXDX1,4
07456 0500 00 0 07465 4279CLAF U
07457 0601 00 0 03322 4280STO$ARG4 U
07460 0500 00 0 07466 4281CLAF+1 F
07461 0601 00 0 03321 4282STO$ARG3 F
07462 0560 00 0 07467 4283LDQF+2 P
07463 0500 00 0 03471 4284CLAP
07464 0020 00 0 04400 4285TRASEARCH
07465 −3 00000 0 07470 4286FTXLNF,,0 U
07466 −3 00000 0 07535 4287TXLNF1,,0 F
07467 −3 00000 0 07520 4288TXLNF2,,0 P
07470 −0534 00 4 03472 4289NFLXDE,4 U
07471 0500 00 4 00000 4290CLA,4
07472 0734 00 4 00000 4291PAX,4 CAR(E)
07473 −3 77776 4 07477 4292TXLSU3,4,−2 E IS NOT AN OBJECT
07474 0500 00 0 03472 4293CLAE
07475 −0534 00 4 03464 4294LXDX1,4
07476 0020 00 4 00001 4295TRA1,4
07477 0074 00 4 02312 4296SU3TSX$SAVE,4
07500 −3 03471 0 02373 4297TXL$END4,,X4+2 SAVE 4 ITEMS
07501 0622 00 0 03465 4298STDX2
07502 0734 00 4 00000 4299PAX,4
07503 −0634 00 4 03466 4300SXDX3,4 CAR(E)
07504 0560 00 0 03465 4301LDQX2
07505 0500 00 0 03471 4302CLAP
07506 0074 00 4 07445 4303TSXSUBLIS,4
07507 0601 00 0 03467 4304STOX4 SUBLIS(P,CDR(E))
07510 0560 00 0 03466 4305LDQX3
07511 0500 00 0 03471 4306CLAP
07512 0074 00 4 07445 4307TSXSUBLIS,4
07513 0560 00 0 03467 4308LDQX4
07514 0074 00 4 03730 4309TSX$CONS,4
07515 0074 00 4 02326 4310TSXUNSAVE,4
07516 −0534 00 4 03464 4311LXDX1,4
07517 0020 00 4 00001 4312TRA1,4
07520 −0634 00 4 07537 4313NF2SXDN1,4 EQUAL(E,CAAR(J))
07521 −0734 00 4 00000 4314PDX,4 J
07522 0500 00 4 00000 4315CLA,4
07523 0734 00 4 00000 4316PAX,4 CAR(J)
07524 0500 00 4 00000 4317CLA,4
07525 0622 00 0 03470 4318STDX5 CDAR(J)
07526 0734 00 4 00000 4319PAX,4
07527 −0634 00 4 07540 4320SXDN2,4
07530 0560 00 0 07540 4321LDQN2 CAAR(J) IN MQ
07531 0500 00 0 03472 4322CLAE
07532 0074 00 4 04461 4323TSX$EQUAL,4
07533 −0534 00 4 07537 4324LXDN1,4
07534 0020 00 4 00001 4325TRA1,4
07535 0500 00 0 03470 4326NF1CLAX5
07536 0020 00 4 00001 4327TRA1,4
07537 0 00000 0 00000 4328N1 IR4 OF P OF SEARCH
07540 0 00000 0 00000 4329N2
4330 APPEND(L1,L2)=
4331 (L1=0 YIELDS L2,1 YIELDS CONS(CAR(L1),APPEND(CDR(L1),L2))
4332A HED
07541 −0100 00 0 07544 4333APPENDTNZAPNP1
07542 0131 00 0 00000 4334XCA
07543 0020 00 4 00001 4335TRA1,4
07544 −0634 00 4 03346 4336APNP1SXDAS1,4
07545 0074 00 4 02312 4337TSX$SAVE,4
07546 −3 03351 0 02377 4338TXL$END2,,CWR1+2 SAVE 2 ITEMS
07547 −0734 00 4 00000 4339PDX0,4
07550 0500 00 4 00000 4340CLA0,4
07551 0601 00 0 03347 4341STOCWR1
07552 −0320 00 0 00460 4342ANADECM
07553 0074 00 4 07541 4343TSXAPPEND,4
07554 0131 00 0 00000 4344XCA
07555 0534 00 4 03347 4345LXACWR1,4
07556 −0754 00 4 00000 4346PXD0,4
07557 0074 00 4 02326 4347TSXUNSAVE,4
07560 −0534 00 4 03346 4348LXDAS1,4
07561 0020 00 0 03730 4349TRA$CONS
00460 4350DECMSYN$DMASK
4351 PAIR
4352 * RECODED TO MAKE LISTS IN DOT NOTATION
4353A HED
07562 0634 00 4 07570 4354PAIRSXAPAIRX,4 SAVE LINK IR
07563 −0600 00 0 03441 4355STQLIS ARG 2
07564 0560 00 0 07572 4356LDQFARG PICK UP FUNCTIONAL ARGUMENT
07565 0074 00 4 04214 4357TSXMAPLIS,4 LET MAPLIST DO THE CONSING
07566 0520 00 0 03441 4358ZETLIS TEST FOR ARG 2 GONE TO END
07567 0020 00 0 07612 4359TRAPERF DID NOT, GO TO ERROR
07570 0774 00 4 00000 4360PAIRXAXT**,4 RESTORE LINK IR
07571 0020 00 4 00001 4361TRA1,4 EXIT
4362 *
07572 −3 00001 0 07573 4363FARGTXL*+1,,1 PAIR FUNCTIONAL ARGUMENT FOR MAPLIST
07573 0634 00 4 07610 4364SXAFARGX,4 SAVE LINK IR
07574 0622 00 0 03440 4365STDTEM SAVE ARGUMENT
07575 −0534 00 4 03441 4366LXDLIS,4 PICK UP 2ND ARG LIST
07576 −3 00000 4 07615 4367TXLPERS,4,0 GO IF NO MORE 2ND ARG
07577 0500 00 4 00000 4368CLA0,4 NEXT WORD
07600 0734 00 4 00000 4369PAX0,4 CAR
07601 0622 00 0 03441 4370STDLIS SAVE CDR
07602 −0754 00 4 00000 4371PXD0,4 CAR INTO DECREMENT
07603 0131 00 0 00000 4372XCA INTO MQ
07604 −0534 00 4 03440 4373LXDTEM,4 LIST 1
07605 0500 00 4 00000 4374CLA0,4 TAKE CAR OF LIST
07606 0734 00 4 00000 4375PAX0,4
07607 −0754 00 4 00000 4376PXD0,4
07610 0774 00 4 00000 4377FARGXAXT**,4 RESTORE LINK IR
07611 0020 00 0 03730 4378TRA$CONS
4379 * FIRST ARG LIST TOO SHORT ERROR
07612 −0634 00 4 01562 4380PERFSXD$ERROR,4 SAVE LINK IR
07613 0074 00 4 01563 4381TSX$ERROR+1,4 GO TO ERROR
07614 542660600254 4382BCI1,*F␣␣2*
4383 * ERROR, SECOND ARG LIST TOO SHORT
07615 −0634 00 4 01562 4384PERSSXD$ERROR,4 SAVE LINK IR
07616 0074 00 4 01563 4385TSX$ERROR+1,4 GO TO ERROR
07617 542660600354 4386BCI1,*F␣␣3*
4387 *
4388 *
4389 *
4390 MAPCAR(L,F) = (L=0 YIELDS 0,
4391 F(L) YIELDS 0,
4392 1 YIELDS MAPAR(CDR(L),F))
4393D HED
07620 0100 00 4 00001 4394MAPCARTZE1,4
07621 −0634 00 4 03421 4395SXDRET,4
07622 0074 00 4 02312 4396TSX$SAVE,4
07623 −3 03425 0 02375 4397TXL$END3,,F+2 SAVE 3 ITEMS
07624 −0600 00 0 03423 4398STQF
07625 0601 00 0 03422 4399MCPRSTOL
07626 −0534 00 4 03423 4400LXDF,4
07627 3 00012 4 07632 4401TXH*+3,4,10
07630 0074 00 4 03423 4402TSXF,4
07631 0020 00 0 07635 4403TRA*+4
07632 −0634 00 4 07634 4404SXD*+2,4
07633 0074 00 4 12007 4405TSXCOMPAT,4
07634 0 00000 0 00001 4406 1,,**
07635 −0534 00 4 03422 4407LXDL,4
07636 0500 00 4 00000 4408CLA0,4
07637 −0734 00 4 00000 4409PDX,4
07640 −0754 00 4 00000 4410PXD,4
07641 −0100 00 0 07625 4411TNZMCPR
07642 0074 00 4 02326 4412RTRNTSXUNSAVE,4
07643 −0534 00 4 03421 4413LXDRET,4
07644 0020 00 4 00001 4414TRA1,4
4415 MAPCON(L,F)=
4416 (L=0 YIELDS 0,,1 YIELDS NCONC(F(L),MAPCON(CDR(L),F)))
4417R HED
07645 0100 00 4 00001 4418MAPCONTZE1,4
07646 −0634 00 4 03424 4419SXDMCN5,4
07647 0074 00 4 02312 4420TSX$SAVE,4
07650 −3 03431 0 02373 4421TXL$END4,,MCN2+2 SAVE 4 ITEMS
07651 0601 00 0 03426 4422STOMCN3
07652 −0600 00 0 03425 4423STQMCN4
07653 −0534 00 4 03425 4424LXDMCN4,4
07654 3 00012 4 07657 4425TXH*+3,4,10
07655 0074 00 4 03425 4426TSXMCN4,4
07656 0020 00 0 07662 4427TRA*+4
07657 −0634 00 4 07661 4428SXD*+2,4
07660 0074 00 4 12007 4429TSXCOMPAT,4
07661 0 00000 0 00001 4430 1,,**
07662 0601 00 0 03427 4431STOMCN2
07663 −0534 00 4 03426 4432LXDMCN3,4
07664 0500 00 4 00000 4433CLA0,4
07665 −0320 00 0 00460 4434ANAMCDM
07666 0560 00 0 03425 4435LDQMCN4
07667 0074 00 4 07645 4436TSXMAPCON,4
07670 0131 00 0 00000 4437XCA
4438
07671 0500 00 0 03427 4439CLAMCN2
07672 0074 00 4 02326 4440TSXUNSAVE,4
07673 −0534 00 4 03424 4441LXDMCN5,4
07674 0020 00 0 07675 4442TRA$NCONC
00460 4443MCDMSYN$DMASK
4444 FUNCTION NCONC
4445 / L1=0 YIELDS RETURN(L2)
4446 M=L1
4447 A2 CDR(M)=0 YIELDS GO A1
4448 M=CDR(M)
4449 GO A2
4450 A1 CDR(M)=L2
4451 // RETURN(L1)
4452R HED
07675 −0100 00 0 07700 4453NCONCTNZNCI1
07676 0131 00 0 00000 4454XCA
07677 0020 00 4 00001 4455TRA1,4
07700 0634 00 4 07711 4456NCI1SXANCS1,4 SAVE LINK IR
07701 0601 00 0 07713 4457STONCS3
07702 −0734 00 4 00000 4458NCI2PDX0,4
07703 0500 00 4 00000 4459CLA0,4
07704 −0320 00 0 00460 4460ANANCDM
07705 −0100 00 0 07702 4461TNZNCI2
07706 0131 00 0 00000 4462XCA
07707 0622 00 4 00000 4463STD0,4
07710 0500 00 0 07713 4464CLANCS3
07711 0774 00 4 00000 4465NCS1AXT**,4 RESTORE LINK IR
07712 0020 00 4 00001 4466TRA1,4
00460 4467NCDMSYN$DMASK
07713 0 00000 0 00000 4468NCS3
4469 REMPRP REMOVES THE PROPERTY GIVEN BY THE MQ FROM THE
4470 OBJECT GIVEN BY THE AC
07714 −0634 00 4 07744 4471REMPRPSXDRMPRX,4
07715 −0600 00 0 03320 4472STQ$ARG2
07716 −0534 00 4 03320 4473LXD$ARG2,4
07717 −0634 00 4 07732 4474SXDRMPRT+1,4
07720 1 77777 4 07721 4475TXI*+1,4,−1
07721 −0634 00 4 07731 4476SXDRMPRT,4
07722 −0734 00 4 00000 4477PDX0,4
07723 0020 00 0 07726 4478TRARMPR2
07724 0500 00 0 03320 4479RMPR1CLA$ARG2
07725 0601 00 0 03321 4480STO$ARG3
07726 −0634 00 4 03320 4481RMPR2SXD$ARG2,4
07727 0500 00 4 00000 4482CLA0,4
07730 0734 00 4 00000 4483PAX0,4
07731 −3 00000 4 07733 4484RMPRTTXL*+2,4,**
07732 −3 00000 4 07737 4485TXLRMPRE,4,**
07733 −0734 00 4 00000 4486PDX0,4
07734 3 00000 4 07724 4487TXHRMPR1,4,0
07735 −0534 00 4 07744 4488RMPROLXDRMPRX,4
07736 0020 00 4 00001 4489TRA1,4
07737 −0734 00 4 00000 4490RMPREPDX0,4
07740 0500 00 4 00000 4491CLA0,4
07741 −0534 00 4 03321 4492LXD$ARG3,4
07742 0622 00 4 00000 4493STD0,4
07743 0020 00 0 07726 4494TRARMPR2
07744 0 00000 0 00000 4495RMPRX
4496
4497 PRINAR
4498 USES WOT AND PRINT
4499 CALLING SEQ IS..
4500 TSX PRINAR,4
4501 NOARG
4502 BCDZ NAME OF FUN
4503 (RETURN)
4504 ARGUMENTS NOT ACCEPTABLE TO PRINT WILL CAUSE ERRORS
4505 * HAS BEEN CRIPPLED TO PRINT ONLY FIRST 2 ARGUMENTS
4506P HED
07745 0634 00 4 07774 4507PRINARSXAPAS1,4 SAVE INDEX REGISTERS
07746 0634 00 2 07775 4508SXAPAS2,2
07747 0601 00 0 03442 4509STOPAS3
07750 −0600 00 0 03443 4510STQPAS4
07751 0500 00 4 00002 4511CLA2,4
07752 0601 00 0 10001 4512STOPAL1
07753 0500 00 4 00003 4513CLA3,4
07754 0601 00 0 10002 4514STOPAL2
07755 0500 00 4 00001 4515CLA1,4
07756 0734 00 2 00000 4516PAX0,2
07757 0074 00 4 01222 4517TSXOUTPUT,4
07760 0 00000 0 00364 4518 BCDOUT
07761 0 00011 0 07777 4519 PAL3,,PAL4−PAL3
07762 0500 00 0 03442 4520CLAPAS3
07763 0074 00 4 04604 4521TSX$PRINT,4
07764 −2 00001 2 07767 4522TNXPAP3,2,1
07765 0500 00 0 03443 4523CLAPAS4
07766 0074 00 4 04604 4524PAP2TSX$PRINT,4
07767 0074 00 4 01222 4525PAP3TSXOUTPUT,4
07770 0 00000 0 00364 4526 BCDOUT
07771 0 00001 0 10010 4527 PAL5,,1
07772 0500 00 0 03442 4528CLAPAS3
07773 0560 00 0 03443 4529LDQPAS4
07774 0774 00 4 00000 4530PAS1AXT**,4 RESTORE INDEX REGISYERS
07775 0774 00 2 00000 4531PAS2AXT**,2
07776 0020 00 4 00004 4532TRA4,4
07777 006026644523 4533PAL3BCD2 0␣FUNCTION␣␣
10000 633146456060 4534
10001 0 00000 0 00000 4535PAL1
10002 0 00000 0 00000 4536PAL2
10003 603021626022 4537BCD5 ␣HAS␣BEEN␣ENTERED,␣ARGUMENTS..
10004 252545602545 4538
10005 632551252473 4539
10006 602151276444 4540
10007 254563623333 4541
10010 4542PAL4BSS0
10010 606060606060 4543PAL5BCD1 ␣␣␣␣␣␣
4544EJECT
4545 PROP AND SASSOC
4546 SPECIALIZED SEARCH ROUTINES WHICH SHARE STORAGE
4547R HED
4548 PROP(O,P,U)
4549 = (NULL(O) YIELDS U, CAR(O) = P YIELDS CDR(O),
4550 T YIELDS PROP(CDR(O),P,U))
10011 0634 00 4 10065 4551PROPSXASAST1,4 SAVE LINK IR
10012 0131 00 0 00000 4552XCA PROPERTY TO AC
10013 0622 00 0 10024 4553STDSASP1 SET TXH
10014 0402 00 0 00442 4554SUBSASQ1
10015 0622 00 0 10023 4555STDSASP2 SET TXL
10016 0131 00 0 00000 4556XCA OBJECT TO AC
10017 −0734 00 4 00000 4557SASL1PDX0,4 L = CDR(L)
4558 INSERT TXH INSTRUCTION HERE IF NILL IS NADE NON-ZERO
10020 −3 00000 4 10030 4559TXLSASP3,4,0 NULL(L)
10021 0500 00 4 00000 4560CLA0,4 CWR(L)
10022 0734 00 4 00000 4561PAX0,4 CAR(L)
10023 −3 00000 4 10017 4562SASP2TXLSASL1,4,**
10024 3 00000 4 10017 4563SASP1TXHSASL1,4,**
10025 −0320 00 0 00460 4564ANASASDM
10026 0534 00 4 10065 4565LXASAST1,4 RESTORE LINK IR
10027 0020 00 4 00001 4566TRA1,4
4567
10030 −0754 00 0 00000 4568SASP3PXD0,0 CLEAR
10031 −0534 00 4 03321 4569LXD$ARG3,4 INSPECT FUNCTIONAL ARGUMENT
10032 3 00012 4 10035 4570TXH*+3,4,10 SKIP IF NOT A TXL
10033 0534 00 4 10065 4571LXASAST1,4
10034 0020 00 0 03321 4572TRA$ARG3
10035 0600 00 0 03321 4573STZ$ARG3
10036 0560 00 0 03321 4574LDQ$ARG3
10037 −0754 00 4 00000 4575PXD,4
10040 0534 00 4 10065 4576LXASAST1,4 RESTORE LINK IR
10041 0020 00 0 14663 4577TRA$APPLY
4578 SASSOC(O,A,U)
4579 = (NULL(A) YIELDS U, CAAR(A) YIELDS CAR(A),
4580 T YIELDS SASSOC(O,CDR(A),U))
4581
10042 0634 00 4 10065 4582SASSOCSXASAST1,4 SAVE LINK IR
10043 0634 00 2 10064 4583SXASAST2,2 SAVE IR 2
10044 0634 00 1 10062 4584SXASAST3,1 SAVE IR 1
10045 0622 00 0 10061 4585STDSASP7 SET TXH
10046 0402 00 0 00442 4586SUBSASQ1
10047 0622 00 0 10060 4587STDSASP6 SET TXH
10050 0131 00 0 00000 4588XCA PAIR LIST TO AC
10051 −0734 00 4 00000 4589PDX0,4 TO INDEX 4
10052 −3 00000 4 10067 4590SASP5TXLSASP4,4,0 NULL(A)
4591 INSERT TXH INSTRUCTION HERE IF NILL IS NADE NON-ZERO
10053 0500 00 4 00000 4592CLA0,4 CWR(A)
10054 −0734 00 4 00000 4593PDX,4 CDR(A)
10055 0734 00 2 00000 4594PAX,2 CAR(A)
4595
10056 0500 00 2 00000 4596CLA,2
10057 0734 00 1 00000 4597PAX0,1 CAAR(A) TO INDX REGISTER
10060 −3 00000 1 10052 4598SASP6TXLSASP5,1,** LOOK FOR ITEM
10061 3 00000 1 10052 4599SASP7TXHSASP5,1,**
10062 0774 00 1 00000 4600SAST3AXT**,1 FOUND ITEM, RESTORE IR 1
10063 −0754 00 2 00000 4601PXD0,2 POINTER TO WORD
10064 0774 00 2 00000 4602SAST2AXT**,2 RESTORE IR 2
10065 0774 00 4 00000 4603SAST1AXT**,4 RESTORE LINK IR
10066 0020 00 4 00001 4604TRA1,4
4605
10067 0534 00 2 10064 4606SASP4LXASAST2,2 RESTORE IR 2
10070 0534 00 1 10062 4607LXASAST3,1 RESTORE IR 1
10071 0020 00 0 10030 4608TRASASP3 EXECUTE SASSOC EXIT
00442 4609SASQ1SYN$QD1
00460 4610SASDMSYN$DMASK
10072 0100 00 4 00001 4611SPREADTZE1,4 EXIT IF AGLIST IS NULL
10073 0634 00 4 10132 4612SXASPRX,4 SAVE LINK IR
10074 −0734 00 4 00000 4613PDX0,4 POINTER TO ARG LIST
10075 0500 00 4 00000 4614CLA0,4 FIRST WORD
10076 0560 00 0 00370 4615LDQ$ZERO ZERO THE MQ
10077 −0765 00 0 00022 4616LGR18 CAR TO CDR OF MQ
10100 0100 00 0 10131 4617TZENLY GO IF A SINGLE ARGUMENT
10101 0734 00 4 00000 4618PAX0,4 POINTER TO NEXT WORD
10102 0500 00 4 00000 4619CLA0,4 NEXT WORD
10103 0734 00 4 00000 4620PAX0,4 POINTER TO ARGUMENT
10104 −0320 00 0 00460 4621ANA$DMASK MASK OUT ALL BUT DECREMENT
10105 0100 00 0 10130 4622TZETWA GO IF 2 ARGUMENT
10106 −0634 00 4 03320 4623SXD$ARG2,4 PUT AWAY
10107 0634 00 2 10126 4624SXASPRY,2 SAVE INDEX 1 AND 2
10110 0634 00 1 10125 4625SXASPRZ,1
10111 0774 00 1 00022 4626AXT18,1 20 IS MAX NO OF ARGS
10112 −0734 00 4 00000 4627PDX0,4 REST OF ARG LIST TO IR 4
10113 −3 00000 4 10125 4628SPP1TXLSPRZ,4,0 GO IF END OF LIST
10114 0500 00 4 00000 4629CLA,4
10115 −0734 00 4 00000 4630PDX,4
10116 0734 00 2 00000 4631PAX,2
10117 −0754 00 2 00000 4632PXD,2
10120 0601 00 1 03343 4633STO$ARG20+1,1
10121 2 00001 1 10113 4634TIXSPP1,1,1
10122 −0634 00 4 01562 4635SPPERRSXD$ERROR,4
10123 0074 00 4 01563 4636TSX$ERROR+1,4
10124 542160600754 4637BCI1,*A␣␣7*
10125 0774 00 1 00000 4638SPRZAXT**,1 RESTORE IR 1
10126 0774 00 2 00000 4639SPRYAXT**,2 DITTO IR 2
10127 −0534 00 4 03320 4640LXD$ARG2,4 ARG 2
10130 −0754 00 4 00000 4641TWAPXD0,4 PUT IN DECREMENT AC
10131 0131 00 0 00000 4642NLYXCA ARG 1 AND 2 TO RIGHT REGISTERS
10132 0774 00 4 00000 4643SPRXAXT**,4 RESTORE LINK IR
10133 0020 00 4 00001 4644TRA1,4 EXIT
4645 FUNCTION ATTRIB(O,L)
4646 ATTRIB(O,L)=/ CDR(O)=0 YIELDS (L REPLACES CDR(O))
4647 ELSE ATTRIB(CDR(O),L) /
4648R HED
10134 0634 00 4 10146 4649ATTRIBSXAAT1,4
10135 −0100 00 0 10140 4650TNZATRB GO IF BEGINNING OF LIST
10136 0131 00 0 00000 4651XCA OTHERWISE EXIT WITH ARG 2
10137 0020 00 4 00001 4652TRA1,4
10140 −0734 00 4 00000 4653ATRBPDX,4 O
10141 0500 00 4 00000 4654CLA,4
10142 −0320 00 0 00460 4655ANADMASK CDR(O)
10143 −0100 00 0 10140 4656TNZATRB
10144 0131 00 0 00000 4657XCA ARG 2 TO AC
10145 0622 00 4 00000 4658STD,4
10146 0774 00 4 00000 4659AT1AXT**,4
10147 0020 00 4 00001 4660TRA1,4
00460 4661DMASKSYN$DMASK
4662
4663 NOT FUNCTION
4664
4665R HED
10150 0100 00 0 10153 4666NOTSTZE*+3
10151 −0754 00 0 00000 4667PXD,0
10152 0020 00 4 00001 4668TRA1,4
10153 0500 00 0 00442 4669CLANOTC1
10154 0020 00 4 00001 4670TRA1,4
00442 4671NOTC1SYN$QD1
4672 THE RPLACX FUNCTIONS REPLACE THE X PART OF THE FIRST ARG
4673 WITH THE SECOND ARGUMENT
4674 THE VALUE OF REPLACA,REPLACD, AND REPLACW IS ZERO
4675S HED
10155 0634 00 4 10162 4676RPLACASXAREPL,4
10156 −0734 00 4 00000 4677PDX0,4
10157 −0763 00 0 00022 4678LGL18
10160 0621 00 4 00000 4679STA0,4
10161 −0754 00 4 00000 4680RPLEXPXD0,4 ARG1 TO AC AS ANSWER
10162 0774 00 4 00000 4681REPLAXT**,4 RESTORE LINK IR
10163 0020 00 4 00001 4682TRA1,4
10164 0634 00 4 10162 4683RPLACDSXAREPL,4
10165 −0734 00 4 00000 4684PDX0,4
10166 −0620 00 4 00000 4685SLQ0,4
10167 0020 00 0 10161 4686TRARPLEX EXIT
10170 0634 00 4 10162 4687RPLACWSXAREPL,4
10171 −0734 00 4 00000 4688PDX0,4
10172 −0600 00 4 00000 4689STQ0,4
10173 0020 00 0 10161 4690TRARPLEX EXIT
4691
4692 OBJECT GENERATOR
10174 0634 00 4 10214 4693GENSYMSXAGENX,4 SAVE LINK IR
10175 0500 00 0 10217 4694CLADIGIT GET DIGITS
10176 0114 06 0 05313 4695CVRBCDAD1,,6 ADD 1 IN BCD
10177 0601 00 0 10217 4696STODIGIT
10200 −0501 00 0 10216 4697ORALETTR
10201 0074 00 4 03710 4698TSX$CONSW,4
10202 0560 00 0 00370 4699LDQGENZ
4700
10203 0074 00 4 03730 4701TSX$CONS,4
10204 0560 00 0 00370 4702LDQGENZ
10205 0074 00 4 03730 4703TSX$CONS,4
10206 0131 00 0 00000 4704XCA
10207 0500 00 0 00504 4705CLAGENPN
10210 0074 00 4 03730 4706TSX$CONS,4
10211 0131 00 0 00000 4707XCA
10212 0500 00 0 00460 4708CLAGENC
10213 0074 00 4 03730 4709TSX$CONS,4
10214 0774 00 4 00000 4710GENXAXT**,4 RESTORE LINK IR
10215 0020 00 4 00001 4711TRA1,4
00370 4712GENZSYN$ZERO
00504 4713GENPNSYNPNAMED
00460 4714GENCSYN$DMASK
10216 270000000000 4715LETTRBCI1,G00000
10217 000000000000 4716DIGITBCI1,000000
4717 *
4718 * OVERLORD THE TAPE HANDLING SECTION OF LISP. RECODED 20 FEBRUARY
4719 * 1961 BY D. J. EDWARDS.
4720 *
4721 * OVERLORD DIRECTION CARDS ARE PUNCHED IN FAP FORMAT WITH THE VARIABLE
4722 * FIELD BEGINNING IN COLUMN 16. DIRECTION CARDS ARE
4723 * ONE (USE NO TAPES FOR THIS RUN)
4724 * SET ( SAVE RESULTS ON SYSTMP IF NO ERROR OCCURS)
4725 * TST (GET NEW CORE IMAGE AFTER OPERATION)
4726 * TEST (SAVE AS ABOVE)
4727 * FIN (ALL DONE, STOP MACHINE OR RETURN TO A HIGHER MONITOR)
4728 * SETSET (AVE RESULTS ON SYSTMP NO MATTER WHAT)
4729 * DEBUG (SAME AS TEST BUT OBJECTLIST IS NOT SAVED AFTER READ IN)
4730 * SIZE N1,N2,N3,N4 (GIVES SIZE OF BINPRG, PPDL, FWS AND FREE)
4731 * TAPE SYSXXX,A7 (ASSIGNS SYSXXX TO UNIT A 7)
4732 * DUMP BEG,END,TYPE (MAKES OCTAL DUMP ON SYSPOT ACCORDING TO
4733 * TYPE, 0 FOR STRAIGHT OCTAL, NON-ZERO FOR
4734 * LISP (COMPLEMENT) DUMP.)
4735 * REMARK (LOG AS DIRECTION CARD AND LOKK FOR NEXT DIRECTION CARD)
4736 * EXCISE I (I IS COMPILER, INTERPRETER OR BOTH. TURNS ITEM INTO
4737 * FREE STORAGE OR FULL WOTD SPACE)
4738 *
4739 *
10220 0604 00 0 10336 4740OVBGNSTIOVSVI BEGIN BY SAVING INDICATORS AND
10221 0634 00 4 10511 4741SXAOVRLX,4 INDEX REGISTERS
10222 0634 00 2 10512 4742SXAOVRLY,2
10223 0634 00 1 10513 4743SXAOVRLZ,1
10224 0441 00 0 10337 4744LDIOVIND PRESET INDICATORS
10225 0604 00 0 10340 4745STISYSIND AND SYSTEM INDICATORS
10226 0500 00 0 00177 4746CLAFLAPCZ CONTENT OF CELL ZERO
10227 0601 00 0 00000 4747STO0 FIX ANY GLOBERRING THAT MAT BE DONE
4748 *
10230 0074 00 4 00663 4749OVRLRDTSX$INPUT,4 GET OVERLORD DIRECTION CAR
10231 0 00000 0 00000 4750 $BCDIN FROM BCD INPUT TAPE
10232 0 00016 0 10404 4751 OVBUF,,14 PUT IN OVERLORD CARD BUFFER
10233 0020 00 0 10254 4752TRAOVERR ERROR RETURN
10234 0020 00 0 10260 4753TRAOVEOF END OF FILE RETURN
10235 0560 00 0 10406 4754OVGORLDQOVBUF+2 PICK UP OVERLORD DIRECTION
10236 −0500 00 0 10405 4755CALOVBUF+1
10237 −0763 00 0 00006 4756LGL6 SHIFT DIRECTION IN LOGICAL AC
10240 0774 00 4 00030 4757AXT24,4 TWICE NUMBER OF DIRECTION CARDS
10241 −0340 00 4 10336 4758OVSRCLASOVTBL,4 LOOK UP DIRECTION
10242 0020 00 0 10244 4759TRA*+2 NOT THIS ONE
10243 0020 00 0 10264 4760TRAOVPNT FOUND IT GO PRINT CARD
10244 2 00002 4 10241 4761TIXOVSRC,4,2 TRY AGAIN
10245 3 00000 0 10230 4762OVBSWTXHOVRLRD,,0 NOT IN TABLE, PRINT FIRST BAD CARD
10246 0502 00 0 10245 4763CLSOVBSW AND GET NEXT CARD.
10247 0601 00 0 10245 4764STOOVBSW FLIP SWITCH
10250 0074 00 4 01222 4765TSXOUTPUT,4 PRINT CARD OUT
10251 −0 00000 0 00364 4766MZEBCDOUT ON BCD OUTPUT TAPE, AND ON LINE
10252 0 00017 0 10403 4767 OVBUF−1,,15
10253 0020 00 0 10230 4768TRAOVRLRD GET NEXT CARD
4769 *
10254 0074 00 4 01222 4770OVERRTSXOUTPUT,4 WRITE ERROR MESSAGE
10255 0 00000 0 00364 4771 BCDOUT
10256 0 00011 0 10362 4772 OVRDM,,9
10257 0020 00 0 10235 4773TRAOVGOR RY TO MAKE SENSE OUT OF CARD
4774 *
10260 0074 00 4 01222 4775OVEOFTSXOUTPUT,4 WRITE EOF REMARK
10261 0 00000 0 00364 4776 BCDOUT
10262 0 00007 0 10373 4777 OVALF,,7
10263 0020 00 0 10472 4778TRAOVDN GO AS IF A FIN CARD READ
4779 *
10264 0500 00 0 10245 4780OVPNTCLAOVBSW RESTORE PRINT SWITCH TO TXH
10265 0602 00 0 10245 4781SLWOVBSW
10266 0500 00 4 10337 4782CLAOVTBL+1,4 PICK UP TRA ADDRESS AND SAVE IT
10267 0621 00 0 10305 4783STAOVTRA
10270 0500 00 0 00200 4784CLAFLAPCX SET CELLS IN LOWER CORE
10271 0601 00 0 00010 4785STO8
10272 0500 00 0 00201 4786CLAFLAPCY
10273 0601 00 0 00002 4787STO2
10274 0500 00 0 00177 4788CLAFLAPCZ
10275 0601 00 0 00000 4789STO0
10276 0074 00 4 01222 4790TSXOUTPUT,4 PRINT DIRECTION CARD
10277 −0 00000 0 00364 4791MZEBCDOUT ON BCD OUTPUT TAPE, AND ON ILNE
10300 0 00017 0 10403 4792 OVBUF−1,,15
10301 0140 00 0 10302 4793TOV*+1 TURN OFF AC OVERFLOW LIGHT
10302 0441 00 0 10340 4794LDISYSIND PICK UP SYSTEM INDICATORS
10303 0057 00 000014 4795RIR14 RESET ERROR AND DEBIG INDICATORS
10304 0604 00 0 10340 4796STISYSIND
10305 0020 00 0 00000 4797OVTRATRA** EXECUTE SPECIFIC OVERLORD PROGRAM
000010 4798ERRORIBOOL10 ERROR INDICATOR
4799 *
4800 * DIRECTION CARD TABLE
10306 464525606060 4801BCI1,ONE␣␣␣
10307 0020 00 0 10526 4802TRAOVONE
10310 622563606060 4803BCI1,SET␣␣␣
10311 0020 00 0 10451 4804TRAOVSET
10312 636263606060 4805BCI1,TST␣␣␣
10313 0020 00 0 10423 4806TRAOVTST
10314 632562636060 4807BCI1,TEST␣␣
10315 0020 00 0 10423 4808TRAOVTST ** ASSUMING THIS IS THIS
10316 263145606060 4809BCI1,FIN␣␣␣
10317 0020 00 0 10472 4810TRAOVDN
10320 623171256060 4811BCI1,SIZE␣␣
10321 0020 00 0 10532 4812TRAOVSZE
10322 622563622563 4813BCI1,SETSET
10323 0020 00 0 10437 4814TRAOVSST
10324 242522642760 4815BCI1,DEBUG␣
10325 0020 00 0 10422 4816TRAOVDBG
10326 632147256060 4817BCI1,TAPE␣␣
10327 0020 00 0 11074 4818TRAOVTAP
10330 246444476060 4819BCI1,DUMP␣␣
10331 0020 00 0 10574 4820TRAOVDMP ** ASSUMING THIS IS THIS
10332 512544215142 4821BCI1,REMARK
10333 0020 00 0 10230 4822TRAOVRLRD
10334 256723316225 4823BCI1,EXCISE
10335 0020 00 0 11307 4824TRAOVEXS
10336 0 00000 0 00000 4825OVSVI TEMPORARY STORAGE FOR INDICATORS
10336 4826OVTBLSYNOVSVI FOR INDEXING DIRECTION CARD TABLE
10337 −1 00000 0 00000 4827OVINDSTR PRESET FOR LISP INDICATORS
10340 0 00000 0 00000 4828SYSIND SYSTEM INDICATORES GO HERE
10341 002551514651 4829OVCEMBCI7,0ERROR␣IN␣SIZE␣CARD␣-OVERLORD-␣␣*0␣1*␣␣␣␣␣
10342 603145606231 4830
10343 712560232151 4831
10344 246040466525 4832
10345 514346512440 4833
10346 606054006001 4834
10347 546060606060 4835
10350 002163632544 4836OVNSMBCI9,0ATTEMPT␣TO␣OPERATE␣BEFORE␣SIZE␣CARD␣READ␣-OVERLORD-␣␣
10351 476360634660 4837
10352 464725512163 4838
10353 256022252646 4839
10354 512560623171 4840
10355 256023215124 4841
10356 605125212460 4842
10357 404665255143 4843
10360 465124406060 4844
10361 605446600354 4845BCI1,␣*O␣3*
10362 002551514651 4846OVRDMBCI9,0ERROR␣ON␣INPUT,␣BUT␣GOING␣ON␣ANYHOW␣-OVERLORD-␣*O␣␣5*
10363 604645603145 4847
10364 476463736022 4848
10365 646360274631 4849
10366 452760464560 4850
10367 214570304666 4851
10370 604046652551 4852
10371 434651244060 4853
10372 544660600554 4854
10373 002545246046 4855OVALFBCI7,0END␣OF␣FILE␣ON␣INPUT␣-OVERLORD-␣*O␣␣6*␣␣␣
10374 266026314325 4856
10375 604645603145 4857
10376 476463604046 4858
10377 652551434651 4859
10400 244060544660 4860
10401 600654606060 4861
10402 0 00004 0 10406 4862OVPOS OVBUF+2,,4 BEGINNING OF VARIABLE FIELD IN DIR CDRPAGE 100
10403 006060606060 4863BCI1,0␣␣␣␣␣
10404 4864OVBUFBSS14 OVERLORD DIRECTION CARD BUFFER
4865 *
4866 * DEBUG OVERLORD DIRECTION
10422 0055 00 000004 4867OVDBGSIR4 SET DEBUG INDICATOR
4868 * PREFORM OVTST
4869 *
4870 *
4871 * TEST OR TST OVERLORD DIRECTION
10423 0056 00 000020 4872OVTSTRNT20 TEST FOR SETUP
10424 0020 00 0 10570 4873TRAOVNSZ ERROR FOR NOO SIZE CARD HAS BEEN READ
10425 0057 00 000100 4874RIRTAPIND RESET TAPE INDICATOR
10426 0054 00 000002 4875RFT2 WRITE TEST
10427 0074 00 4 00633 4876TSXTAPDMP,4 DUMP ON SYSTMP
10430 0054 00 000001 4877RFT1 TEST FOR NEW CORE IMAGE
10431 0074 00 4 00651 4878TSXOVLT,4 GET ONE
10432 0055 00 000001 4879SIR1 SET READ INDICATOR
10433 0057 00 000002 4880RIR2 TURN OFF WRITE INDICATORS
10434 0604 00 0 10340 4881OVTASTISYSIND UPDATE SYSTEM INDICATORS
10435 0074 00 4 11310 4882TSX$EVALQ,4 PERFORM THE EVAL QUOTE OPERATOR
10436 0020 00 0 10230 4883TRAOVRLRD GET NEXT OVERLORD DIRECTION CARD
000004 4884DEBUGIBOOL4 DEBUG INDICATOR
4885 *
4886 * SETSET DIRECTION CARD
10437 0056 00 000020 4887OVSSTRNT20 TEST FOR SIZE
10440 0020 00 0 10570 4888TRAOVNSZ ERROR, NO SIZE
10441 0057 00 000100 4889RIRTAPIND RESET TAPE INDICATOR
10442 0054 00 000002 4890RFT2 TEST FOR SAVE CORE
10443 0074 00 4 00633 4891TSXTAPDMP,4 SAVE IT
10444 0054 00 000001 4892RFT1 TEST FOR NEW IMAGE
10445 0074 00 4 00651 4893TSXOVLT,4 GET ONE
10446 0055 00 000002 4894SIR2 SET WRITE INDICATOR
10447 0057 00 000001 4895RIR1 RESET READ INDICATOR
10450 0020 00 0 10434 4896TRAOVTA PERFORM EVALQ AND GET NEXT CARD
4897 *
4898 * SET OVERLORD DIRECTION
10451 0056 00 000020 4899OVSETRNT20 TEST FOR SIZE
10452 0020 00 0 10570 4900TRAOVNSZ ERROR, NO SIZE CARD
10453 0057 00 000100 4901RIRTAPIND RESET TAPE INDICATOR
10454 0054 00 000002 4902RFT2 CHECK WRITE INDICATOR
10455 0074 00 4 00633 4903TSXTAPDMP,4 DUMP ON SYSTMP
10456 0054 00 000001 4904RFT1 TEST FOR NEW CORE IMAGE
10457 0074 00 4 00651 4905TSXOVLT,4 GET ONE FROM SYSTMP
10460 0055 00 000002 4906SIR2 SET WRITE INDICATOR
10461 0057 00 000001 4907RIR1 RESET READ INDICATOR
10462 0604 00 0 10340 4908STISYSIND UPDATE SYSTEM INDICATORS
10463 0074 00 4 11310 4909TSX$EVALQ,4 EVALUATE SET
10464 0441 00 0 10340 4910LDISYSIND GET SYSTEM INDICATORS
10465 0056 00 000010 4911RNT10 TEST ERROR INDICATOR
10466 0020 00 0 10230 4912TRAOVRLRD OFF, GET NEXT DIRECTION CARD
10467 0051 00 000003 4913IIR3 ON, INVERT READ AND WRITE INDICATORS
10470 0604 00 0 10340 4914STISYSIND
10471 0020 00 0 10230 4915TRAOVRLRD GET NEXT CARD
4916 *
4917 * FIN OVERLORD DIRECTION CARD
4918 *
10472 0054 00 000002 4919OVDNRFT2 TEST WRITE INDICATOR
10473 0074 00 4 00633 4920TSXTAPDMP,4 DUMP CORE ON SYSTMP
10474 0057 00 000002 4921RIR2
10475 0057 00 000100 4922RIRTAPIND RESET TAPE INDICATOR
10476 0056 00 000040 4923RNTPPTIND SEE IF PUNCH TAPE USED
10477 0020 00 0 10503 4924TRA*+4 SKIP IF NOT USED
10500 0500 00 0 00363 4925CLASYSPPT TAPE SPEC.
10501 0074 00 4 00276 4926TSX$(IOS),4 SET UP I-O COMMANDS
10502 0522 00 0 00353 4927XEC$WEF WRITE EOF ON PPT
10503 0057 00 000040 4928RIRPPTIND RESET INDICATORS
10504 0604 00 0 10340 4929STISYSIND UPDATE SYSTEM INDICATORS
10505 0500 00 0 00364 4930CLASYSPOT TAPE SPEC.
10506 0074 00 4 00276 4931TSX$(IOS),4 SET UP I-O COMMANDS
10507 0522 00 0 00353 4932XEC$WEF WRITE EOF ON SYSPOT
10510 0441 00 0 10336 4933LDIOVSVI RESTORE ORIGINAL INDICATORS AND
10511 0774 00 4 00000 4934OVRLXAXT**,4 INDEX REGISTERS
10512 0774 00 2 00000 4935OVRLYAXT**,2
10513 0774 00 1 00000 4936OVRLZAXT**,1
10514 0500 00 0 10525 4937CLAOVTOV PICK UP RESTART INSTRUCTION
10515 0601 00 0 00000 4938STO0 STORE IN ZERO
10516 −0754 00 0 00000 4939PXD0,0 LIGHT THE PANEL
10517 0760 00 0 00006 4940COM
10520 −0765 00 0 00045 4941LGR37
10521 0760 00 0 00006 4942COM
10522 −0760 00 0 00003 4943SSM
10523 0420 00 7 77777 4944HPR−1,7 STOP
10524 0020 00 0 10523 4945TRA*−1 PRESS RESET AND START TO RESTART LISP
10525 0020 00 0 10230 4946OVTOVTRAOVRLRD TRANSFER TO GET NEXT DIRECTION CARD
000040 4947PPTINDBOOL40 PUNCH TAPE INDICATOR
4948 *
4949 * ONE OVERLORD DIRECTION
4950 *
10526 0056 00 000020 4951OVONERNT20 TEST FOR SIZE
10527 0020 00 0 10570 4952TRAOVNSZ ERROR, NO SIZE CARD READ
10530 0057 00 000003 4953RIR3 RESET READ AND WRITE INDICATORS
10531 0020 00 0 10434 4954TRAOVTA SAVE INDICATORS AND DO EVAL Q
4955 *
4956 * SIZE N1,N2,N3,N4 (OVERLORD DIRECTION CARD)
4957 * N1 = LENGTH OF BINARY PROGRAM, N2 = LENGTH OF PUBLICH PUSH DOWN
4958 * LIST, N3 = LENGTH OF FULL WORD SPACE, N4 = LENGTH OF FREE STORAGE
4959 *
10532 0054 00 000002 4960OVSZERFT2 TEST FOR DUMP OF CURRENT CORE IMAGE
10533 0074 00 4 00633 4961TSXTAPDMP,4 DUMP ON SYSTMP
10534 0500 00 0 10402 4962CLAOVPOS SET TO TRANSLATE NUMBERS ON SIZE CARD
10535 0074 00 4 06622 4963TSX$NUMBR,4 LENGTH OF BINARY PROGRAM
10536 0100 00 0 10561 4964TZEOVCER ERROR IF ZERO
10537 −0600 00 0 02305 4965STQLBINPG SAVE NUMBER
10540 0074 00 4 06622 4966TSX$NUMBR,4 LENGTH OF PUBLIC PUSH DOWN LIST
10541 0100 00 0 10561 4967TZEOVCER ZERO IS ERROR
10542 −0600 00 0 02306 4968STQLPBPDL SAVE NUMBER
10543 0074 00 4 06622 4969TSX$NUMBR,4 LENGTH OF FULL WORD SPACE
10544 0100 00 0 10561 4970TZEOVCER ZERO IS ERROR
10545 −0600 00 0 02307 4971STQLFULWS SAVE NUMBER
10546 0074 00 4 06622 4972TSX$NUMBR,4 LENGTH OF FREE STORAGE
10547 0100 00 0 10561 4973TZEOVCER ZERO IS ERROR
10550 −0600 00 0 02310 4974STQLFREES SAVE NUMBER
10551 0074 00 4 02077 4975TSX$SETUP,4 PERFORM SETUP
10552 0441 00 0 10340 4976LDISYSIND SYSTEM INDICATORS
10553 0054 00 000010 4977RFT10 TEST FOR ERROR IN SETUP
10554 0020 00 0 10561 4978TRAOVCER YES, DO ERROR PROCEDURE
10555 0055 00 000022 4979SIR22 SET SIZE AND WRITE INDICATORS
4980
10556 0057 00 000001 4981RIR1 RESET READ INDICATORS
10557 0604 00 0 10340 4982STISYSIND UPDATE SYSTEM INDICATORS
10560 0020 00 0 10230 4983TRAOVRLRD GET NEXT DIRECTION CARD
4984 *
10561 0441 00 0 10340 4985OVCERLDISYSIND GETT SYSTEM INDICATORS
10562 0055 00 000001 4986SIR1 CONVERSION ERROR IN SIZE, SET READ IND
10563 0604 00 0 10340 4987STISYSIND UPDATE SYSTEM INDICATORS
10564 0074 00 4 01222 4988TSXOUTPUT,4 WRITE ERROR MESSAGE
10565 −0 00000 0 00364 4989MZEBCDOUT ON BCD OUTPUT TAPE AND ONLINE
10566 0 00007 0 10341 4990 OVCEM,,7
10567 0020 00 0 10230 4991TRAOVRLRD GET NEXT DIRECTION CARD
4992 *
10570 0074 00 4 01222 4993OVNSZTSXOUTPUT,4 WRITE ERROR MESSAGE
10571 −0 00000 0 00364 4994MZEBCDOUT ON BCD OUTPT TAPE AND ONLINE
10572 0 00012 0 10350 4995 OVNSM,,10
10573 0020 00 0 10230 4996TRAOVRLRD GET NEXT DIRECTION CARD
4997 *
4998 * DUMP BEGINNING,END,N (OVERLORD DIRECTION)
4999 * ALSO AVAILABLE TO LISP
5000 * BEGINNNING IS A NUMBER TO START DUMP AT, END A NUMBER
5001 * (MEANING OBVIOUS) AND N IS A NUMBER IF ZERO GIVES A
5002 * STRAIGHT OCTAL DUMP AND IF NON-ZERO GIVES A COMPLEMENT
5003 * (LISP TYPE) DUMP.
5004 *
10574 0634 00 4 10726 5005OVDMPSXAOVDX,4 SAVE INDEX REGISTERS
10575 0634 00 2 10727 5006SXAOVDY,2
10576 0634 00 1 10730 5007SXAOVDZ,1
10577 0600 00 0 11040 5008STZOVDEX INDICATE OVERLORD ENTRANCE
10600 0601 00 0 10723 5009STOOVDC SAVE AC
10601 −0600 00 0 10724 5010STQOVDQ SAVE MQ
10602 0604 00 0 10725 5011STIOVDI SAVE SI
10603 0500 00 0 10402 5012CLAOVPOS POSITION OF VARIABLE FIELD
10604 0074 00 4 06622 5013TSX$NUMBR,4 BEGGINNING OF DUMP
10605 0100 00 0 10770 5014TZEODER ERROR IN CONVERSION
10606 −0120 00 0 11002 5015TMIOVENK IF FLOATING POINT NUMBER, LOOK AT KEYS
10607 −0600 00 0 11042 5016STQOBEG
10610 0074 00 4 06622 5017TSX$NUMBR,4 NUMBER TO END DUMP AT
10611 −0600 00 0 11043 5018STQOEND
10612 0100 00 0 10770 5019TZEODER CONVERSION ERROR
10613 0074 00 4 06622 5020TSX$NUMBR,4 TYPE OF DUMP
10614 −0600 00 0 11046 5021STQOLISD
10615 0100 00 0 10770 5022TZEODER CONVERSION ERROR
10616 0500 00 0 11043 5023OVGECLAOEND END DUMP NUMBER
10617 0400 00 0 00371 5024ADD$Q1
10620 0621 00 0 10641 5025STAOLDQ SET ADDRESS
10621 0402 00 0 11042 5026SUBOBEG GIVES COUNT OF WORDS TO BE DUMPED
10622 −0120 00 0 10770 5027TMIODER NEGATIVE NUMBER YIELDS ERROR
10623 0734 00 1 00000 5028PAX0,1 COUNT IN INDEX 1
10624 0534 00 4 11042 5029LXAOBEG,4 GET BEGINNING
10625 1 77772 4 10626 5030TXI*+1,4,−6 DECREMETN BY 6 (NUMBER OF WORDS / LINE)
10626 −0634 00 4 11042 5031SXDOBEG,4 PUT IN DECREMENT FOR OCTAL CONVERSION
10627 0020 00 0 10666 5032TRAOVDSH START THE DUMP
5033 *
10630 −0500 00 0 11036 5034OAXT1CALOVDSF PICK UP STAR FLAG
10631 0602 00 0 11051 5035OAXTSLWOUP+1 PUT STARS OF BLANKS IN LINE
10632 0774 00 2 00022 5036AXT18,2 SET IR 2
10633 0500 00 0 11042 5037CLAOBEG BEGININNING OF LINE
10634 0400 00 0 00445 5038ADD$QD6 6 WORDS PER LINE
10635 0622 00 0 11042 5039STDOBEG UPDATE LINE NUMBER
10636 0131 00 0 00000 5040XCA NUMBER TO MQ
10637 0074 00 4 11021 5041TSXOCTLP,4 CONVERT TO OCTAL
10640 0602 00 0 11050 5042SLWOUP BEGIN OUTPUT LINE
10641 −0500 00 1 00000 5043OLDQCAL**,1 PICK UP WORD TO BE DUMPED
10642 0100 00 0 10671 5044TZEOSTZ EASY IF ALL ZERO
10643 −0625 00 0 11037 5045STLOVDZS INDICATE SOMETHING NON-ZERO DUMPED
10644 0520 00 0 11046 5046ZETOLISD SKIP IF STRAIGHT DUMP
10645 0020 00 0 10673 5047TRAOLID DO LISP DUMP
10646 −0130 00 0 00000 5048ODXCLXCL NUMBER TO MQ
10647 0074 00 4 11021 5049TSXOCTLP,4 CONVERT LEFT HALF
10650 0602 00 2 11074 5050SLWOUP+20,2 PUT IN OUTPUT LINE
10651 0074 00 4 11021 5051TSXOCTLP,4 CONVERT RIGHT HALF
10652 0560 00 0 00472 5052OBQLDQBLANKS BLANKS TO MQ
10653 −0765 00 0 00006 5053LGR6 MAKE A HOLE
10654 −0501 00 0 00452 5054ORAOBLANK INSERT ONE BLANK
10655 0602 00 2 11075 5055SLWOUP+21,2 PUT IN OUTPUT LINE
10656 −0600 00 2 11076 5056STQOUP+22,2 DITTO
10657 −2 00001 1 10713 5057TNXOVDFN,1,1 EXIT IF DONE
10660 2 00003 2 10641 5058TIXOLDQ,2,3 LOOP 6 TIMES
10661 −0520 00 0 11037 5059NZTOVDZS SKIP IF NOT ALL ZEROS
10662 0020 00 0 10630 5060TRAOAXT1 GO BACK AND GET STAR FLAG FOR ZEROS
10663 0074 00 4 01222 5061TSXOUTPUT,4 WRITE LINE OF DUMP
10664 0 00000 0 00364 5062 BCDOUT ON BCDOUT
10665 0 00024 0 11050 5063 OUP,,20
10666 0600 00 0 11037 5064OVDSHSTZOVDZS SET SWITCH TO TEST FOR LINE OF ZEROS
10667 −0500 00 0 00472 5065CALBLANKS BLANK THE FLAG FIELD
10670 0020 00 0 10631 5066TRAOAXT GET NEXT LINE
5067 *
10671 0600 00 2 11074 5068OSTZSTZOUP+20,2 IF ZERO PUT ZERO S IN OUTPUT LINE
10672 0020 00 0 10652 5069TRAOBQ GO AS IF CONVERTED
5070 *
10673 0602 00 0 11045 5071OLIDSLWODLT LISP TYPE (COMPLEMENT DUMP)
10674 −0320 00 0 11047 5072ANAOLDM MASK OUT ALL BUT TAG AND PREFIX
10675 0100 00 0 10700 5073TZEODC TRANSFER IF LISP
10676 −0500 00 0 11045 5074CALODLT HAS PREFIX AND/OR TAG, DUMP STRAIGHT
10677 0020 00 0 10646 5075TRAODXCL GO TO NORMAL DUMP
10700 −0535 00 4 11045 5076ODCLDCODLT,4 COMPLEMENT DECREMENT
10701 −0634 00 4 11045 5077SXDODLT,4 STORE
10702 0535 00 4 11045 5078LACODLT,4 COMPLEMENT ADDRESS
10703 0634 00 4 11045 5079SXAODLT,4 STORE
10704 0560 00 0 11045 5080LDQODLT PUT IN MQ
10705 0074 00 4 11021 5081TSXOCTLP,4 CONVERT LEFT HALF
10706 −0501 00 0 11044 5082ORAODSAR OR IN A *
10707 0602 00 2 11074 5083SLWOUP+20,2 PUT IN OUTPUT LINE
10710 0074 00 4 11021 5084TSXOCTLP,4 CONVERT RIGHT HALF
10711 −0501 00 0 11044 5085ORAODSAR PUT IN *
10712 0020 00 0 10652 5086TRAOBQ PUT AWAY AS USUAL
5087 *
10713 −2 00003 2 10717 5088OVDFNTNXOVDLL,2,3 SKIP IF LINE FILLED OUT
10714 −0500 00 0 00472 5089CALBLANKS GET BLANKS IN AC
10715 0602 00 2 11074 5090SLWOUP+20,2 BLANK REST OF LINE
10716 2 00001 2 10715 5091TIX*−1,2,1
10717 0074 00 4 01222 5092OVDLLTSXOUTPUT,4 WRITE LAST OUTPUT LINE
10720 0 00000 0 00364 5093 BCDOUT
10721 0 00024 0 11050 5094 OUP,,20
10722 0020 00 0 10726 5095TRAOVDX GO TO EXIT
5096 * FOLLOWING 6 SELLS CONTAIN AC, MQ , SI, AND IR S UPON DUMP ENTRANCE
10723 0 00000 0 00000 5097OVDC AC CONTENTS
10724 0 00000 0 00000 5098OVDQ DITTO MQ
10725 0 00000 0 00000 5099OVDI DITTO SI
10726 0774 00 4 00000 5100OVDXAXT**,4 RESTORE INDEX REGISTERS
10727 0774 00 2 00000 5101OVDYAXT**,2
10730 0774 00 1 00000 5102OVDZAXT**,1
10731 0520 00 0 11040 5103ZETOVDEX TEST FOR LISP OR OVERLORD EXIT
10732 0020 00 4 00001 5104TRA1,4 LISP EXIT
10733 0520 00 0 11041 5105ZETOVDEK TEST FOR ENK MODE
10734 0020 00 0 11002 5106TRAOVENK GO TO KEEYS
10735 0020 00 0 10230 5107TRAOVRLRD GO BACK FOR NEXT DIRECTION CARD
5108 *
10736 0634 00 4 10726 5109DUMPXXSXAOVDX,4 LISP ENTRANCE
10737 0634 00 2 10727 5110SXAOVDY,2 SAVE INDEX REGISTERS
10740 0634 00 1 10730 5111SXAOVDZ,1
10741 −0625 00 0 11040 5112STLOVDEX SET FOR LISP EXIT
10742 0622 00 0 11040 5113STDOVDEX SAVE ARG1
10743 0500 00 0 03322 5114CLA$ARG4 PICK UP ID FOR DUMP
10744 0074 00 4 04604 5115TSX$PRINT,4 PRINT IT
10745 −0534 00 2 11040 5116LXDOVDEX,2 ARG 1
10746 0074 00 4 13075 5117TSXFIXVAL,4 EVALUATE AS FIXED POINT NUMBER
10747 0601 00 0 11042 5118STOOBEG STORE IN BEGINNING
10750 0131 00 0 00000 5119XCA ARG 2
10751 −0734 00 2 00000 5120PDX0,2 ARG TO INDEX 2
10752 0074 00 4 13075 5121TSXFIXVAL,4 EVALUATE AS FIXED POINT NUMBER
10753 0601 00 0 11043 5122STOOEND
10754 −0534 00 2 03321 5123LXD$ARG3,2 ARG 3
10755 0074 00 4 13075 5124TSXFIXVAL,4 EVALUATE AS FIXED POINT NUMBER
10756 0601 00 0 11046 5125STOOLISD
10757 0020 00 0 10616 5126TRAOVGE EXECUTE DUMP
5127 *
10760 0634 00 4 10726 5128DUMPYYSXAOVDX,4
10761 0634 00 2 10727 5129SXAOVDY,2
10762 0634 00 1 10730 5130SXAOVDZ,1
10763 −0625 00 0 11040 5131STLOVDEX
10764 −0600 00 0 11043 5132STQOEND
10765 0601 00 0 11042 5133STOOBEG
10766 0600 00 0 11046 5134STZOLISD
10767 0020 00 0 10616 5135TRAOVGE
5136 *
10770 0074 00 4 01222 5137ODERTSXOUTPUT,4 WRITE ERROR MESSAGE
10771 −0 00000 0 00364 5138MZEBCDOUT ON BCD OUTPUT TAPE AND ONLINE
10772 0 00006 0 10774 5139 ODBAD,,6
10773 0020 00 0 10726 5140TRAOVDX RESTORE AND EXIT
10774 002221246024 5141ODBADBCI6,0BAD␣DUMP␣ARGUMENTS␣-OVERLORD-␣*O␣4*
10775 644447602151 5142
10776 276444254563 5143
10777 626040466525 5144
11000 514346512440 5145
11001 605446600454 5146
5147 *
D11002 0420 77 7 77777 5148OVENKHPR−1,7,63 STOP FOR KEYS
11003 0760 00 0 00004 5149ENK
11004 −0754 00 0 00000 5150PXD0,0 CLEAR AC
11005 −0763 00 0 00001 5151LGL1 TYPE OF DUMP IN SIGN BIT
11006 0601 00 0 11046 5152STOOLISD PUT AWAY
11007 −0754 00 0 00000 5153PXD0,0 CLEAR AC
11010 −0763 00 0 00021 5154LGL17 BEGINNING
11011 0601 00 0 11042 5155STOOBEG
11012 −0754 00 0 00000 5156PXD0,0 CLEAR AC
11013 −0763 00 0 00022 5157LGL18 END
11014 0601 00 0 11043 5158STOOEND
11015 0601 00 0 11041 5159STOOVDEK SET SWITCH ON EXIT
11016 0600 00 0 11040 5160STZOVDEX SET OVERLORD EXIT
11017 0100 00 0 10726 5161TZEOVDX EXIT ON ZERO REGUEST
11020 0020 00 0 10616 5162TRAOVGE PROCESS DUMP
5163 *
11021 −0754 00 0 00000 5164OCTLPPXD0,0 CONVERT LEFT HALF OF MQ TO OCTAL
11022 −0763 00 0 00003 5165LGL3 CLEAR AC AND DO SHIFT DANCE
11023 0767 00 0 00003 5166ALS3
11024 −0763 00 0 00003 5167LGL3
11025 0767 00 0 00003 5168ALS3
11026 −0763 00 0 00003 5169LGL3
11027 0767 00 0 00003 5170ALS3
11030 −0763 00 0 00003 5171LGL3
11031 0767 00 0 00003 5172ALS3
11032 −0763 00 0 00003 5173LGL3
11033 0767 00 0 00003 5174ALS3
11034 −0763 00 0 00003 5175LGL3
11035 0020 00 4 00001 5176TRA1,4 EXIT
5177 *
11021 5178OCTALPSYNOCTLP
00651 5179OVLTSYNOVLTXX
11036 605454545460 5180OVDSFBCI1,␣****␣
11037 0 00000 0 00000 5181OVDZS SUPPRESSES OUTPUT WHEN DUMPING ZEROS
11040 0 00000 0 00000 5182OVDEX ZERO FOR OVERLORD EXIT NON-ZERO , LISP
11041 0 00000 0 00000 5183OVDEK TEST CELL NON-ZERO FOR ENK MODE
11042 0 00000 0 00000 5184OBEG BEGIN DUMP
11043 0 00000 0 00000 5185OEND END DUMP
11044 540000000000 5186ODSARBCI1,*00000
11045 0 00000 0 00000 5187ODLT TEMPORARY STORAGE
11046 0 00000 0 00000 5188OLISD NON-ZERO FOR LISP TYPE DUMP
11047 −3 00000 7 00000 5189OLDMSVN,4+2+1 MASK FOR TAG AND PREFIX
11050 606060606060 5190OUPBCI2,␣␣␣␣␣␣␣␣␣␣␣␣
11051 606060606060 5191
11052 5192BSS18 ROOM FOR REST OF LINE
5193 *
5194 *
5195 * TAPE SYSXXX,A6 (OVERLORD DIRECTION CARD)
5196 * SYSTAP, SYSTMP, SYSPIT AND SYSPOT ARE CURRENTLY
5197 * RECOGINIZED LISP TAPES. UNIT DESIGNATION IS BY CHANNEL
5198 * (A, B, OR C) AND NUMBER (1 THRU 10).
5199 *
11074 0634 00 4 11225 5200OVTAPSXAOVTPX,4 SAVE INDEX REGISTERS
11075 0634 00 2 11226 5201SXAOVTPY,2
11076 0634 00 1 11227 5202SXAOVTPZ,1
11077 0054 00 000100 5203RFTTAPIND SKIP IF LAST CARD WAS NOT A TAPE CARD
11100 0020 00 0 11107 5204TRAOVTJJ SKIP READ AND WRITE SECTION
11101 0054 00 000002 5205RFT2 TEST FOR TAPE DUMP ON SYSTMP
11102 0074 00 4 00633 5206TSXTAPDMP,4 DO IT
11103 0054 00 000001 5207RFT1 TEST FOR READ
11104 0074 00 4 00651 5208TSXOVLT,4 GET NEW IMAGE
11105 0057 00 000001 5209RIR1 RESET READ INDICATOR
11106 0055 00 000002 5210SIR2 SET WRITE INDICATOR
11107 0055 00 000100 5211OVTJJSIRTAPIND SET TAPE DIRECTION INDICATOR
11110 0604 00 0 10340 5212STISYSIND UPDATE SYSTEM INDICATORS
11111 0774 00 4 00005 5213AXT5,4 NUMBER OF ENTRIES IN TAPE TABLE
11112 −0500 00 0 10406 5214CALOVBUF+2
11113 0560 00 0 10407 5215LDQOVBUF+3 GET TAPE DESIGNATION IN AC AND MQ
11114 −0763 00 0 00023 5216LGL19 SHIFT INTO AC
11115 −0765 00 0 00001 5217LGR1 DUMPING Q BIT
11116 −0340 00 4 11243 5218OVLALASOVTTB,4 COMPARE WITH TAPE TABLE
11117 0020 00 0 11121 5219TRA*+2 NOT THIS ONE
11120 0020 00 0 11143 5220TRAOVTAA THIS IS IT
11121 2 00001 4 11116 5221TIXOVLA,4,1 TRY AGAIN
11122 0602 00 0 11131 5222OVCMPSLWOVTRM NOT FOUND, COMPLAIN
11123 0074 00 4 01222 5223TSXOUTPUT,4
11124 0 00000 0 00364 5224 BCDOUT
11125 0 00014 0 11127 5225 OVTRN,,12
11126 0020 00 0 10230 5226TRAOVRLRD GET NEXT DIRECTION CARD
11127 006062465151 5227OVTRNBCI2,0␣SORRY,␣␣␣␣
11130 707360606060 5228
11131 0 00000 0 00000 5229OVTRM
11132 603162604546 5230BCI9,␣IS␣NOT␣A␣VALID␣LISP␣TAPE␣DESIGNATION␣-OVERLORD-␣*O␣2*
11133 636021606521 5231
11134 433124604331 5232
11135 624760632147 5233
11136 256024256231 5234
11137 274521633146 5235
11140 456040466525 5236
11141 514346512440 5237
11142 605446600254 5238
11143 −0773 00 0 00006 5239OVTAARQL6 DUMP THE COMMA
11144 −0754 00 0 00000 5240PXD0,0 CLAER AC
11145 −0763 00 0 00006 5241LGL6 CHANELL LETTER IN AC
11146 0044 00 0 00000 5242PAI IN INDICATORS
11147 0774 00 2 00003 5243AXT3,2 TRY CHAN. C
11150 0056 00 000003 5244RNT3 SKIP IF C
11151 0774 00 2 00002 5245AXT2,2 TRY B
11152 0056 00 000002 5246RNT2 SKIP IF B OR C
11153 0774 00 2 00001 5247AXT1,2 IF NO SKIP, MUST BE A
11154 −0763 00 0 00006 5248LGL6 TAPE NUMBER IN AC
11155 −0320 00 0 00417 5249ANA$QO17 MASK OUT ALL BUT 4 LOW ORDER BITS
11156 0441 00 0 10410 5250LDIOVBUF+4 NEXT WORD IN INDICATORS
11157 −0054 00 770000 5251LFT770000 KIP IF LEFT MOST CHARACTER IS A0
11160 0020 00 0 11162 5252TRA*+2
11161 0400 00 0 00401 5253ADD$Q9 IF LEFT MOST IS 0 ADD 9 TO THE 1
11162 0734 00 1 00000 5254PAX0,1 RESULT TO INDEX 1
11163 −3 00000 1 11165 5255TXL*+2,1,0 ZERO UNIT DOES NOT GO
11164 −3 00012 1 11174 5256TXLOVTPS,1,10 UNITS OVER TEN DON T GO
11165 0500 00 0 00472 5257CLABLANKS
11166 0560 00 0 10407 5258LDQOVBUF+3
11167 −0773 00 0 00030 5259RQL24 POSITION TABPE DESIG
11170 −0763 00 0 00014 5260LGL12
5261
11171 0560 00 0 10410 5262LDQOVBUF+4
11172 −0763 00 0 00006 5263LGL6 ALL IN AC
11173 0020 00 0 11122 5264TRAOVCMP GO COMPLAIN
11174 −0501 00 4 11250 5265OVTPSORAOVTCT,4 OR IN BIN OR BCD FOR THAT TAPE
11175 −0501 00 2 11253 5266ORAOVCHN,2 OR IN PROPER CHANEL DESIGNATION
11176 0602 00 4 00370 5267SLWTAPASG,4 CHANGE TAPE ASSIGNMENT
11177 0560 00 4 11243 5268LDQOVTTB,4 MAKE OUTPUT MESSAGE BY GETTING NAME
11200 −0600 00 0 11234 5269STQOVTPO PUT INTO MESSAGE
11201 3 00001 4 11216 5270TXHOVTXX,4,1 SKIP FOLLOWING IF NOT SYSTAP
11202 0500 00 0 00367 5271CLASYSTAP
11203 0074 00 4 00276 5272TSX$(IOS),4 SET UP I-O COMMANDS FOR SYSTAP
11204 0560 00 0 00357 5273LDQ$TCO MAKE PROPER SYSTEM CALL CARD
11205 −0620 00 0 00145 5274SLQBOTTOM+1
11206 0560 00 0 00350 5275LDQ$RDS
11207 −0600 00 0 11273 5276STQGCRDB
11210 0560 00 0 00361 5277LDQ$RCH
11211 −0620 00 0 11274 5278SLQGCRDC
11212 0560 00 0 00362 5279LDQ$LCH
11213 −0620 00 0 11276 5280SLQGCRDD
11214 0766 00 0 01341 5281WPUA PUCH OUT THE 2 CARD CALLER
11215 0540 00 0 11302 5282RCHAGCIOC CHANNEL COMMANDS
11216 0500 00 2 11256 5283OVTXXCLAOVCLT,2 TELL WHAT YOU HAVE DONE BY MAKING
11217 −0501 00 1 11270 5284ORAOVCTN,1 A MESSAGE
11220 0621 00 0 11231 5285STAOVTPP
11221 0625 00 0 11231 5286STTOVTPP
11222 0074 00 4 01222 5287TSXOUTPUT,4 PRINT OUT THE NEW ASSIGNMENT
11223 0 00000 0 00364 5288 BCDOUT
11224 0 00005 0 11231 5289 OVTPP,,5
11225 0774 00 4 00000 5290OVTPXAXT**,4 RESTORE INDEX REGISTERS
11226 0774 00 2 00000 5291OVTPYAXT**,2
11227 0774 00 1 00000 5292OVTPZAXT**,1
11230 0020 00 0 10230 5293TRAOVRLRD GET NEXT DIRECTION CARD
11231 006060000000 5294OVTPPBCI3,0␣␣000IS␣NOW␣LISP␣
11232 316260454666 5295
11233 604331624760 5296
11234 000000000000 5297OVTPOBCI2,000000.␣␣␣␣␣
11235 336060606060 5298
5299 * TABLES FOR OVTAP
11236 627062474763 5300BCI5,SYSPPTSYSPOTSYSPITSYSTMPSYSTAP
11237 627062474663 5301
11240 627062473163 5302
11241 627062634447 5303
11242 627062632147 5304
11243 0 00000 0 00000 5305OVTTBPZE LOW DENS, BCD PPT
11244 0 00000 0 00000 5306PZE LOW DENS, BCD PIT
11245 0 00000 0 00000 5307PZE LOW DENS, BCD POT
11246 0 00000 0 00020 5308PZE16 HI DENS, BIN TMP
11247 0 00000 0 00020 5309PZE16 HI DENS, BIN TMP
11250 0 00003 0 03200 5310OVTCTPZE3*512+2*64,,3 CHANNEL C
11251 0 00002 0 02200 5311PZE2*512+2*64,,2 B
11252 0 00001 0 01200 5312PZE1*512+2*64,,1 A
11253 000000230000 5313OVCHNBCI3,000C00000B00000A00
11254 000000220000 5314
11255 000000210000 5315
11256 000000000100 5316OVCLTBCI9,00001000009␣00008␣00007␣00006␣00005␣00004␣00003␣00002␣
11257 000000001160 5317
11260 000000001060 5318
11261 000000000760 5319
11262 000000000660 5320
11263 000000000560 5321
11264 000000000460 5322
11265 000000000360 5323
11266 000000000260 5324
11267 000000000160 5325BCI1,00001␣
11270 5326OVCTNBSS0
5327 *
5328 *
5329 * SYSTEM CALL CARD PERFORMS A LOAD TAPE SEQUENCE ON THE SYSTAP
5330 *
11270 0 00006 0 00011 5331GCRDIOCD9,,6
11271 0060 00 0 00001 5332TCOA1
11272 0021 00 0 00011 5333TTR9
11273 0762 00 0 01221 5334GCRDBRTBA1 SELECT THE SYSTEM TAPE
11274 0540 00 0 00016 5335GCRDCRCHA14
11275 0600 00 0 00001 5336STZ1 STOP IF TAPE DOES NOT LOAD
11276 0544 00 0 00000 5337GCRDDLCHA0 LOAD I-O COMMAND FROM TAPE
11277 0021 00 0 00001 5338TTR1 TRANSFER TO 1
11300 −1 00003 0 00000 5339IOCT0,,3 LOAD FIRST 3 WORDS FROM TAPE
5340 * SECOND CARD OF CALLER
11301 0000 00 0 00174 5341GCRDEHTRCONTIN BECOMES A TRANSFER CARD
5342 *
11302 2 00011 0 11270 5343GCIOCIORPGCRD,,9
11303 2 00001 0 11301 5344IORPGCRDE,,1 TRANSFER CARD
11304 2 00000 0 11306 5345IORP*+2,,0 2 BLANK CARDS
11305 2 00000 0 11306 5346IORP*+1,,0
11306 0 00000 0 00000 5347IOCD0,,0 DISCONNECT CHANNEL
5348 *
000100 5349TAPINDBOOL100
5350 *
5351 * EXCISE DIRECTION CARD TO THROW OUT THE COMPILER AND/OR THE INTER
5352 * PRETER GOES HERE
5353 *
11307 0020 00 0 10230 5354OVEXSTRAOVRLRD ROUTINE NOT WRITTEN YET. 8 APRIL 1961
5355 *
5356 * EVALQ A SUCCESSOR TO THE APPLY OPERATOR, THE GRAND NEW
5357 * (AS OF 1 MARCH 1961) THE EVALQUOTE OPERATOR.
5358 *
11310 0634 00 4 11416 5359EVALQSXAEVLQX,4 SAVE LINK IR
11311 0634 00 2 11417 5360SXAEVLQY,2 SAVE IR 2
11312 0074 00 4 01521 5361TSX$TIME,4 PRINT TIME AND DATE
11313 0074 00 4 01222 5362TSXOUTPUT,4 WRITE OPENNING MESSAGE
11314 0 00000 0 00364 5363 BCDOUT
11315 0 00014 0 11520 5364 EVQBM,,12
11316 0600 00 0 11516 5365STZEVQRTS INITIALIZE TEST CELLS
11317 0600 00 0 03653 5366STZEVQB DITTO
11320 0774 00 2 00144 5367AXTEVQBL,2 LENGTH OF EVAL QUOTE BUFFER
11321 0634 00 2 11437 5368EVQRDSXAEVQRX,2 SAVE INDEX 2 INCASE OF READ ERROR
11322 0074 00 4 05732 5369TSX$READ,4 READ THE INPUT LISTS
11323 0601 00 0 03506 5370STOEVQAN SAVE THE LIST
11324 0340 00 0 11517 5371CASEVQSP COMPARE WITH STOP ATOM
11325 0020 00 0 11327 5372TRA*+2 IS NOT
11326 1 00001 2 11341 5373TXIEVQOP,2,1 SET IR 2 TO PROER VALUE
11327 0520 00 0 03653 5374ZETEVQB SKIP IF FIRST LIST OF DOUBLET
11330 0020 00 0 11334 5375TRAEVQA IS SECOND LIST
11331 −0625 00 0 03653 5376STLEVQB FLIP SWITCH
11332 0601 00 2 03653 5377STOEVQB,2 SAVE FIRST LIST OF DOUBLET IN BUFFER
11333 0020 00 0 11321 5378TRAEVQRD GET NEXT LIST
11334 −0734 00 4 00000 5379EVQAPDX0,4 LIST TO INDEX
11335 0754 00 4 00000 5380PXA0,4 MOVE TO ADDRESS
11336 0621 00 2 03653 5381STAEVQB,2 SAVE SECOND LIST OF DOUBLET IN BUFFER
11337 0600 00 0 03653 5382STZEVQB FLIP SWITCH
11340 2 00001 2 11321 5383TIXEVQRD,2,1 GET NEXT LIST
11341 −0634 00 2 11410 5384EVQOPSXDEVQTH,2 INDEX VALUE OF LAST LIST READ IN
11342 0074 00 4 01521 5385TSX$TIME,4 PRINT TIME
11343 −0625 00 0 11516 5386STLEVQRTS SET ERROR RETURN SWITCH
11344 0774 00 2 00144 5387AXTEVQBL,2 LENGTH OF BUFFER
11345 0634 00 2 11407 5388EVQLPSXAEVQER,2 SAVE IDNEX VALUE
11346 0074 00 4 01200 5389EVQSTSXSPACEX,4 WRITE OUT SOME BLANK LINES
11347 0 00000 0 01216 5390 6SPACE 3 DOUBLE SPACES
11350 0500 00 2 03653 5391CLAEVQB,2 PICK UP FIRST ITEM IN BUFFER
11351 0600 00 2 03653 5392STZEVQB,2 ZERO THE BUFFER ENTRY
11352 0600 00 0 03316 5393STZ$ALIST RESET ALIST
11353 −0734 00 4 00000 5394PDX0,4 MAKE AN ATOM TEST
11354 0560 00 0 00370 5395LDQ$ZERO
11355 −0765 00 0 00022 5396LGR18 SECOND LIST INTO MQ
11356 −0754 00 4 00000 5397PXD0,4 FIRST LIST INTO AC
11357 0074 00 4 07745 5398TSXPRINAR,4 PRINT HEADING
11360 0 00000 0 00002 5399 2
11361 602565214350 5400BCI2,␣EVALQUOTE␣␣
11362 644663256060 5401
11363 −0774 00 4 11377 5402AXCEVQFT,4 SET RETURN INDEX CELL
11364 0634 00 4 11376 5403SXAEVQD,4
11365 0774 00 4 14663 5404EVQMPAXT$APPLY,4 SET CELL OF PROGRAM TO BE EXECUTED
11366 0634 00 4 11377 5405SXAEVQFT,4 INITIALIZE PROGRAM TO BE EXECUTED CELL
11367 0601 00 0 11513 5406STOEVQAC SAVE AC
11370 −0734 00 4 00000 5407PDX0,4 FIRST LIST TO IR 4
11371 0500 00 4 00000 5408CLA0,4
11372 0734 00 4 00000 5409PAX0,4
11373 3 77776 4 11441 5410TXHEVQAT,4,−2 TRANSFER IF FIRST LIST IS ATOMIC
11374 0500 00 0 11513 5411EVQNFCLAEVQAC RESTORE AC
11375 0600 00 0 03321 5412EVQZSTZ$ARG3 NULL ALIST FOR APPLY
11376 0774 00 4 00000 5413EVQDAXT**,4 RETURN INDEX REGISTER
11377 0020 00 0 00000 5414EVQFTTRA** PROGRAM TO BE EXECUTED
11400 0601 00 0 03506 5415EVQESTOEVQAN SAVE ANSWER
11401 0074 00 4 01222 5416TSXOUTPUT,4 PRINT END OF EVALQUOTE MESSAGE
11402 0 00000 0 00364 5417 BCDOUT
11403 0 00005 0 11534 5418 EVQAM,,5
11404 0500 00 0 03506 5419CLAEVQAN PICK UP ANSWER
11405 0074 00 4 04604 5420TSX$PRINT,4 PRINT IT
11406 0600 00 0 03506 5421STZEVQAN ZERO TEMP STORAGE
11407 0774 00 2 00000 5422EVQERAXT**,2 ERRORS COME BACK HERE, RESTORE IR 2
11410 −3 00000 2 11412 5423EVQTHTXLEVQDN,2,** EXIT IF LAST DOUBLET EXECUTED
11411 2 00001 2 11345 5424TIXEVQLP,2,1 EXECUTE NEXT DOUBLET
11412 0074 00 4 01521 5425EVQDNTSX$TIME,4 ALL DONE, PRINT THE TIME
11413 0074 00 4 01222 5426TSXOUTPUT,4 PRINT COLSING MESSAGE
11414 0 00000 0 00364 5427 BCDOUT
11415 0 00005 0 11541 5428 EVQME,,5
11416 0774 00 4 00000 5429EVLQXAXT**,4 RESTORE LINK IR
11417 0774 00 2 00000 5430EVLQYAXT**,2
11420 0020 00 4 00001 5431TRA1,4 EXIT
5432 *
5433 * EVALQT LISP ENTRANCE TO EVALQUOTE
5434 *
11421 0634 00 4 11376 5435EVALQTSXAEVQD,4 SET RETURN INDEX CELL
11422 0020 00 0 11365 5436TRAEVQMP GO TO MAIN PROGRAM
5437 *
5438 * ERROR RETURNS CONTROL HERE
5439 *
11423 0074 00 4 06311 5440EVQERRTSXTEREAD,4 CLEAN UP READ BUFFER
11424 0074 00 4 05214 5441TSXTERPRI,4 CLEAN UP PRINT BUFFER
11425 0074 00 4 05421 5442TSXTERPUN,4 CLEAN UP PUNCH BUFFER
11426 0074 00 4 02410 5443TSXTERPDL,4 RESET PUSH DOWN LIST
11427 0520 00 0 11516 5444ZETEVQRTS SKIP IF IN READ IN SECTION OF EVALQUOT
11430 0020 00 0 11407 5445TRAEVQER EXECUTE NEXT DOUBLET
11431 −0625 00 0 11516 5446STLEVQRTS MOVE TO OPREATE SECTION OF EVALQUOTE
11432 0074 00 4 01222 5447TSXOUTPUT,4 MESSAGE THAT READ WAS ERROR TERMINATED
11433 0 00000 0 00364 5448 BCDOUT
11434 0 00012 0 11546 5449 EVQRE,,10
11435 0500 00 0 03506 5450CLAEVQAN PICK UP LAST LIST READ IN
11436 0074 00 4 04604 5451TSX$PRINT,4
11437 0774 00 2 00000 5452EVQRXAXT**,2 RESTORE IR 2 TO RIGHT VALUE
11440 1 00001 2 11341 5453TXIEVQOP,2,1 SET IR 2 TO PROER VALUE
5454 *
5455 * CASE FOR ATOMIC FIRST LIST OF DOUBLET
5456 *
11441 −0734 00 4 00000 5457EVQATPDX0,4
11442 −3 00000 4 11374 5458TXLEVQNF,4,0 EXIT IF END OF ATOM
11443 0500 00 4 00000 5459CLA0,4 NEXT WORD
11444 0734 00 4 00000 5460PAX0,4 CAR OF ATOM
11445 −0625 00 0 11515 5461STLEVQST SET SWITCH FOR SUBR OF EXPR
11446 −3 06732 4 11450 5462TXL*+2,4,$SUBR−1 LOOK FOR $SUBR
11447 −3 06733 4 11501 5463TXLEVQFS,4,$SUBR TREAT AS FSUBR (ALMOST)
11450 −3 10156 4 11452 5464TXL*+2,4,$EXPR−1 LOOK FOR $EXPR
11451 −3 10157 4 11457 5465TXLEVQFX,4,$EXPR TREAT AS FEXPR (ALMOST)
11452 0600 00 0 11515 5466STZEVQST SET SWITCH FOR FSUBR OR FEXPR
11453 −3 10102 4 11455 5467TXL*+2,4,$FSUBR−1 LOOK FOR FSUBR
11454 −3 10103 4 11501 5468TXLEVQFS,4,$FSUBR
11455 −3 10141 4 11441 5469TXLEVQAT,4,$FEXPR−1 LOOK FOR FEXPR
11456 3 10142 4 11441 5470TXHEVQAT,4,$FEXPR
11457 −0734 00 4 00000 5471EVQFXPDX0,4 FOUND AN FEXPR
11460 0500 00 4 00000 5472CLA0,4
11461 0734 00 4 00000 5473PAX0,4 THE EXPRESSION FOR THE FEXPR
11462 −0754 00 4 00000 5474PXD0,4 EXPRESSION TO AC
11463 0520 00 0 11515 5475ZETEVQST SKIP IF FEXPR
11464 0020 00 0 11375 5476TRAEVQZ GO TO APPLY CALL FOR EXPR
11465 0601 00 0 03506 5477STOEVQAN SAVE THE EXPRESSION
11466 −0600 00 0 11514 5478STQEVQMQ SAVE MQ
11467 −0754 00 0 00000 5479PXD0,0 CLEAR
11470 0131 00 0 00000 5480XCA MQ AND
11471 −0754 00 0 00000 5481PXD0,0 AC
11472 0074 00 4 03730 5482TSX$CONS,4 NULL A LIST
11473 0131 00 0 00000 5483XCA INTO MQ
11474 0500 00 0 11514 5484CLAEVQMQ PUT SECOND LIST IN AC
11475 0074 00 4 03730 5485TSX$CONS,4 CONS(L,A)
11476 0131 00 0 00000 5486XCA ANSWER TO ARG 2
11477 0500 00 0 03506 5487CLAEVQAN FEXPR
11500 0020 00 0 11375 5488TRAEVQZ GO TO APPLY FOR FEXPR
5489 *
11501 −0734 00 4 00000 5490EVQFSPDX0,4 FOUND FSUBR, GET TXL INSTRUCTION
11502 0500 00 4 00000 5491CLA0,4
11503 0734 00 4 00000 5492PAX0,4
11504 0500 00 4 00000 5493CLA0,4
11505 0621 00 0 11377 5494STAEVQFT SAVE ADDRESS
11506 −0754 00 0 00000 5495PXD0,0 ZERO
11507 0131 00 0 00000 5496XCA THE MQ AND PUT LIST IN AC
11510 0520 00 0 11515 5497ZETEVQST SKIP IF FSUBR
11511 0074 00 4 10072 5498TSXSPREAD,4 SPREAD THE ARGUMENTS
11512 0020 00 0 11376 5499TRAEVQD EXECUTE THE SUBR OR FSUBR
5500 *
11513 0 00000 0 00000 5501EVQAC TEMPORARY STORAGE
11514 0 00000 0 00000 5502EVQMQ DITTO
11515 0 00000 0 00000 5503EVQST TEST CELL IS NON-ZERO FOR SUBR OR EXPR
11516 0 00000 0 00000 5504EVQRTS TEST CELL IS ZERO DURING READ IN
00144 5505EVQBLEQU100 LENGTH OF BUFFER
11517 0 06772 0 00000 5506EVQSP ,,$STOP STOP ATOM
11520 002565214350 5507EVQBMBCI7,0EVALQUOTE␣OPERATOR␣AS␣OF␣1␣MARCH␣1961.␣␣␣
11521 644663256046 5508
11522 472551216346 5509
11523 516021626046 5510
11524 266001604421 5511
11525 512330600111 5512
11526 060133606060 5513
11527 603145476463 5514BCI5,␣INPUT␣LISTS␣NOW␣BEING␣READ.␣␣
11530 604331626362 5515
11531 604546666022 5516
11532 253145276051 5517
11533 252124336060 5518
11534 002545246046 5519EVQAMBCI5,0END␣OF␣EVALQUOTE,␣VALUE␣IS␣..
11535 266025652143 5520
11536 506446632573 5521
11537 606521436425 5522
11540 603162603333 5523
11541 012545246046 5524EVQMEBCI5,1END␣OF␣EVALQUOTE␣OPERATOR␣␣␣␣
11542 266025652143 5525
11543 506446632560 5526
11544 464725512163 5527
11545 465160606060 5528
11546 005125212431 5529EVQREBCI9,0READING␣TERMINATED␣BY␣AN␣ERROR.␣LAST␣LIST␣READ␣IN␣IS␣
11547 452760632551 5530
11550 443145216325 5531
11551 246022706021 5532
11552 456025515146 5533
11553 513360432162 5534
11554 636043316263 5535
11555 605125212460 5536
11556 314560316260 5537
11557 603333333333 5538BCI1,␣.....
5539 *
5540H HED
5541 * ERRORSET(E,N,SW)
5542
5543 *
5544 * ERRORSET ATTEMPTS TO EVALUATE ITS FIRST ARGUMENT. IF AN
5545 * ERROR OCCURS DURING THE EVALUATION, OR IF MORE THAN N CONS-S
5546 * OCCUR DURING THE EVALUATION, ERRORSET RETURNS WITH A VALUE OF F
5547 * AFTER RESTORING CONDITIONS TO WHAT THEY WERE BEFORE THE
5548 * ATTEMPTED EVALUATION. IF THE EVLAUATION SUCCEEDS, ERRORSET
5549 * RETURNS LIST OF THE RESULT. IF SW * F, ERROR DIAGNOSTICS ARE
5550 * SUPPRESSED, AND IF SW = T, THEY ARE INCLUDED.
5551 *
11560 −0634 00 4 11662 5552ERRSETSXDHORN,4
11561 0074 00 4 02312 5553TSX$SAVE,4
11562 −3 11673 0 02363 5554TXL$END8,,HORN+9
11563 −0634 00 2 11663 5555SXDHORN+1,2
11564 0634 00 1 11663 5556SXAHORN+1,1
11565 0604 00 0 11666 5557STIHORN+4
11566 −0734 00 1 00000 5558PDX0,1 EXPRESSION TO BE EVALUATED
11567 −0534 00 4 03321 5559LXD$ARG3,4 ERROR BYPASS SWITCH
11570 0634 00 4 11664 5560SXAERNULL,4
11571 0131 00 0 00000 5561XCA
11572 −0734 00 2 00000 5562PDX0,2 GET CONS COUNTER LIMIT
11573 0074 00 4 13075 5563TSXFIXVAL,4
11574 0601 00 0 11670 5564STOHORN+6
11575 0500 00 0 03742 5565CLA$CNTR1 GET CURRENT CONS COUNT
11576 −0320 00 0 00457 5566ANA$AMASK
11577 0400 00 0 04106 5567ADD$CNTS
11600 0402 00 0 11670 5568SUBHORN+6 COMPARE WITH THE LIMIT
11601 −0120 00 0 11611 5569TMIOBOE TRA IF COUNTER NEED NOT BE CHANGED
11602 −0760 00 0 00003 5570SSM NEG. NUMBER FOR GARBAGE COLLECTOR
11603 0601 00 0 11667 5571STOHORN+5 SAVE (LIMIT - OLD COUNT)
11604 0500 00 0 11670 5572CLAHORN+6 SET CONS COUNTER TO LIMIT
11605 0621 00 0 03742 5573STA$CNTR1
11606 −0320 00 0 00465 5574ANAPDTMSK
11607 0601 00 0 04106 5575STO$CNTS
11610 0020 00 0 11612 5576TRA*+2
11611 0600 00 0 11667 5577OBOESTZHORN+5 TAKE LIMIT = OLD COUNT
11612 0560 00 0 00370 5578LDQ$ZERO NULL P-LIST FOR EVALUATION
11613 0502 00 0 02317 5579CLS$CPPI SAVE PUSHDOWN POINTER
11614 0601 00 0 11670 5580STOHORN+6
11615 −0625 00 0 11671 5581STLTCOUNT TURN ON CONS COUNTER
11616 0774 00 4 11625 5582AXTBSOON,4 SET UP EXIT IN ERROR
11617 0634 00 4 11665 5583SXAEREXIT,4
5584 * ATTEMPT TO PERFORM THE EVALUATION
11620 −0754 00 1 00000 5585PXD0,1 EXPRESSION TO BE EVALUATED
11621 0074 00 4 15454 5586TSX$EVAL,4
5587 * WE GET HERE IF THE EVALUATION WORKED
11622 0560 00 0 00370 5588LDQ$ZERO FORM LIST OF THE RESULT
11623 0074 00 4 03730 5589TSX$CONS,4
5590 * AN ERROR IN THIS CONS ACTS LIKE AN ERROR IN THE EVALUATION
11624 0020 00 0 11643 5591TRASHAWM RESTORE PARAMETERS AND EXIT
5592 * WE GET HERE IN CASE OF ERROR
11625 −0535 00 4 11670 5593BSOONLDCHORN+6,4 UNSAVE ALL RECURSIVE FUNCTIONS
11626 −0634 00 4 11641 5594SXDTUBA,4 ENTERED SINCE THE ERROR
11627 0020 00 0 11640 5595TRATUBA−1
11630 −0534 00 4 02317 5596HARPLXD$CPPI,4
11631 −0500 00 4 77777 5597CAL−1,4
11632 −0320 00 0 00461 5598ANA$PMASK TEST FOR STR FROM COMPILER
11633 0322 00 0 00451 5599ERA$QP5
11634 0100 00 0 11637 5600TZE*+3
11635 0074 00 4 02326 5601TSXUNSAVE,4
11636 0020 00 0 11640 5602TRA*+2
11637 0074 00 4 17330 5603TSXC$UNWND,4
11640 −0535 00 4 02317 5604LDC$CPPI,4
11641 3 00000 4 11630 5605TUBATXHHARP,4,**
11642 −0754 00 0 00000 5606PXD0,0 RETURN VALUE OF NIL
5607 * RESTORE PARAMETERS FOR EITHER KIND OF EXIT
11643 0601 00 0 11670 5608SHAWMSTOHORN+6 SAVE EXIT VALUE
11644 0500 00 0 03742 5609CLA$CNTR1 RESTORE CONS COUNTER
11645 −0320 00 0 00457 5610ANA$AMASK
11646 0400 00 0 04106 5611ADD$CNTS
11647 0402 00 0 11667 5612SUBHORN+5
11650 0621 00 0 03742 5613STA$CNTR1
11651 −0320 00 0 00465 5614ANAPDTMSK
11652 0601 00 0 04106 5615STO$CNTS
11653 0534 00 1 11663 5616LXAHORN+1,1 RESTORE INDICATORS, IR1, AND IR2
11654 −0534 00 2 11663 5617LXDHORN+1,2
11655 0441 00 0 11666 5618LDIHORN+4
11656 0500 00 0 11670 5619CLAHORN+6 PICK UP EXIT VALUE
11657 0074 00 4 02326 5620TSXUNSAVE,4 RESTORE HORN BLOCK
11660 −0534 00 4 11662 5621LXDHORN,4 RESTORE IR4 AND EXIT
11661 0020 00 4 00001 5622TRA1,4
5623 * PROTECTED TEMPORARY STORAGE FOR ERRORSET
5624HEADH
11662 −0 00000 0 10211 5625HORNMZEERSETO (+0) ERRORSET OBJECT IN A, IR4 IN D
11663 −0 00000 0 00000 5626MZE (+1) IR1 IN A, IR2 IN D
11664 −0 00000 0 11664 5627ERNULLMZE* (+2) ZERO MEANS SKIP DIAGNOSTICS
TD11665 −3 00000 0 11423 5628EREXITTXLEVQERR (+3) EXIT INSTRUCTION FOR $ERROR
11666 −0 00000 0 00000 5629MZE (+4) INDICATORS
11667 −0 00000 0 00000 5630MZE (+5) CONS COUNTER INCREMENT
11670 −0 00000 0 00000 5631NUBPDLMZE (+6) PDL BACKUP POINT IN D
11671 −0 00000 0 00000 5632TCOUNTMZE (+7) NON-ZERO ACTIVATES CONS COUNTER
5633HEAD0
11665 5634TERA2SYNEREXIT
5635 *
5636HEADH
5637 *
5638 * EXTENDED CAR S AND CDR S FOR THE INTERPRETER
5639 *
11672 0634 00 4 11703 5640CAAARXSXACAX,4 SAVE LINK IR
11673 −0734 00 4 00000 5641PDX0,4
11674 0500 00 4 00000 5642CLA0,4
11675 0734 00 4 00000 5643PAX0,4
11676 0500 00 4 00000 5644AACLA0,4
11677 0734 00 4 00000 5645PAX0,4
11700 0500 00 4 00000 5646ACLA0,4
11701 0734 00 4 00000 5647PAX0,4
11702 −0754 00 4 00000 5648PXD0,4
11703 0774 00 4 00000 5649CAXAXT**,4 RESTORE LINK IR
11704 0020 00 4 00001 5650TRA1,4 EXIT
5651 *
11705 0634 00 4 11703 5652CAADRXSXACAX,4
11706 −0734 00 4 00000 5653PDX0,4
11707 0500 00 4 00000 5654CLA0,4
11710 −0734 00 4 00000 5655AAXPDX0,4
11711 0020 00 0 11676 5656TRAAA
5657 *
11712 0634 00 4 11703 5658CADARXSXACAX,4
11713 −0734 00 4 00000 5659PDX0,4
11714 0500 00 4 00000 5660CLA0,4
11715 0734 00 4 00000 5661PAX0,4
11716 0500 00 4 00000 5662ADCLA0,4
11717 −0734 00 4 00000 5663PDX0,4
11720 0020 00 0 11700 5664TRAA
11721 0634 00 4 11703 5665CADDRXSXACAX,4
11722 −0734 00 4 00000 5666PDX0,4
11723 0500 00 4 00000 5667CLA0,4
11724 −0734 00 4 00000 5668ADXPDX0,4
11725 0020 00 0 11716 5669TRAAD
5670 *
11726 0634 00 4 11703 5671CAARXXSXACAX,4
11727 0020 00 0 11710 5672TRAAAX
5673 *
11730 0634 00 4 11703 5674CADRXXSXACAX,4
11731 0020 00 0 11724 5675TRAADX
5676 *
11732 0634 00 4 11742 5677CDAARXSXACDX,4
11733 −0734 00 4 00000 5678PDX0,4
11734 0500 00 4 00000 5679CLA0,4
11735 0734 00 4 00000 5680PAX0,4
11736 0500 00 4 00000 5681DACLA0,4
11737 0734 00 4 00000 5682PAX0,4
11740 0500 00 4 00000 5683DCLA0,4
11741 −0320 00 0 00460 5684ANA$DMASK
11742 0774 00 4 00000 5685CDXAXT**,4
11743 0020 00 4 00001 5686TRA1,4
11744 0634 00 4 11742 5687CDADRXSXACDX,4
11745 −0734 00 4 00000 5688PDX0,4
11746 0500 00 4 00000 5689CLA0,4
11747 −0734 00 4 00000 5690DAXPDX0,4
11750 0020 00 0 11736 5691TRADA
5692 *
11751 0634 00 4 11742 5693CDDARXSXACDX,4
11752 −0734 00 4 00000 5694PDX0,4
11753 0500 00 4 00000 5695CLA0,4
11754 0734 00 4 00000 5696PAX0,4
11755 0500 00 4 00000 5697DDCLA0,4
11756 −0734 00 4 00000 5698PDX0,4
11757 0020 00 0 11740 5699TRAD
5700 *
11760 0634 00 4 11742 5701CDDDRXSXACDX,4
11761 −0734 00 4 00000 5702PDX0,4
11762 0500 00 4 00000 5703CLA0,4
11763 −0734 00 4 00000 5704DDXPDX0,4
11764 0020 00 0 11755 5705TRADD
5706 *
11765 0634 00 4 11742 5707CDARXXSXACDX,4
11766 0020 00 0 11747 5708TRADAX
5709 *
11767 0634 00 4 11742 5710CDDRXXSXACDX,4
11770 0020 00 0 11763 5711TRADDX
5712 *
5713HEADC
11771 0634 00 4 12003 5714GETSXAGETX,4 SAVE LINK IR
11772 0601 00 0 12006 5715STOGETL
11773 0500 00 0 12005 5716CLAFCN31
11774 0601 00 0 03321 5717STO$ARG3
11775 0500 00 0 12006 5718CLAGETL
11776 0074 00 4 10011 5719TSX$PROP,4
11777 −0734 00 4 00000 5720PDX0,4
12000 0500 00 4 00000 5721CLA0,4
12001 0734 00 4 00000 5722PAX0,4
12002 −0754 00 4 00000 5723PXD0,4
12003 0774 00 4 00000 5724GETXAXT**,4 RESTORE LINK IR
12004 0020 00 4 00001 5725TRA1,4
12005 −3 00000 0 12003 5726FCN31TXLGETX,,0
12006 0 00000 0 00000 5727GETL
5728 *
5729 * COMPAT FUNCTIONAL ARGUMENT LINKAGE PROGRAM BETWEEN COMPILED
5730 * PROGRAMS AND APPLY FOR S-EXPRESSION FUNCTIONAL ARGUMENTS
5731 *
12007 0634 00 4 12026 5732COMPATSXACX,4 SAVE INDEX REGISTERS
12010 0634 00 2 12027 5733SXACY,2
12011 0601 00 0 03317 5734STO$ARG1 SAVE AC
12012 −0600 00 0 03320 5735STQ$ARG2 DITTO MQ
12013 0560 00 0 00370 5736LDQ$ZERO END OF ARGUMENT LIST
12014 0500 00 4 00001 5737CLA1,4 ARGUMENTS FOR COMPAT
12015 0622 00 0 12031 5738STDCA S-EXPRESSION FUNCTIONAL ARGUMENT
12016 0737 00 2 00000 5739PAC0,2 COMPLEMENT NUMBER OF ARGUMENTS
12017 −3 00000 2 12024 5740CLTXLCD,2,0 GO WHEN ALL DONE
12020 0500 00 2 03316 5741CLA$ARG1−1,2 PICK UP ARGUMENT
12021 0074 00 4 03730 5742TSX$CONS,4 CONS ON TO ARGUMENT LIST
12022 0131 00 0 00000 5743XCA LIST TO MQ
12023 1 00001 2 12017 5744TXICL,2,1 GO BACK FOR NEXT
12024 0500 00 0 12031 5745CDCLACA FUNCTIONAL ARGUMENT
12025 0600 00 0 03321 5746STZ$ARG3 ZERO PAIR LIST
12026 0774 00 4 00000 5747CXAXT**,4 RESTORE INDEX REGISTERS
12027 0774 00 2 00000 5748CYAXT**,2
12030 1 77777 4 14663 5749TXI$APPLY,4,−1 GO TO APPLY AND ADJUST EXIT INDEX
12031 0 00000 0 00000 5750CA S-EXPRESSION GOES HERE
5751F HED
5752 * PACK(CHAR)
5753 *
5754 * PACK ADDS ANOTHER CHARACTER TO THE CHARACTER BUFFER BOFFO
5755 *
5756 *
12032 0771 00 0 00022 5757PACKARS18 GET CHARACTER CODE FROM
12033 0402 00 0 00521 5758SUBHORG LOCATION OF OBJECT
12034 −0765 00 0 00006 5759LGR6 PUT NEW CHARACTER INTO PACKED WORD
12035 −0500 00 0 12603 5760CALCHARS
12036 0140 00 0 12037 5761TOV*+1 SHUT OFF OVERFLOW LIGHT
12037 −0763 00 0 00006 5762LGL6
12040 0140 00 0 12044 5763TOVB5 IF WORD FULL, PUT IT IN BUFFER
12041 0602 00 0 12603 5764SLWCHARS
12042 −0754 00 0 00000 5765PXD,0 CLEAR AC FOR EXIT
12043 0020 00 4 00001 5766TRA1,4 EXIT
12044 0634 00 4 12053 5767B5SXAB1,4 SAVE IR4
12045 0774 00 4 00024 5768BFLOCAXT20,4 ADDRESS HAS INDEX FOR BOFFO
12046 0602 00 4 12631 5769SLWBOFFO,4 STORE FULL WORD OF CHARACTERS
12047 −2 00001 4 12056 5770TNXB3,4,1 IF BUFFER FULL, TRANSFER
12050 0500 00 0 12417 5771CLAA1 WHEN 1 SHIFTS PAST P BIT,
12051 0601 00 0 12603 5772STOCHARS NEW WORD HAS 6 CHARACTERS
12052 0634 00 4 12045 5773SXABFLOC,4 SAVE BUFFER INDEX
12053 0774 00 4 00000 5774B1AXT,4 RESTORE IR4
12054 −0754 00 0 00000 5775PXD,0 CLEAR AC FOR EXIT
12055 0020 00 4 00001 5776TRA1,4 EXIT
12056 −3 00000 4 12061 5777B3TXLB4,4,0 IF MORE THAN 120 CHARS, TRANSFER
12057 0634 00 0 12045 5778SXABFLOC,0 SET INDEX TO SHOW BUFFER FILLED
12060 0020 00 0 12066 5779TRAB6
12061 0074 00 4 12147 5780B4TSX$MKNAM,4 FORM OBJECT FOR ERROR PRINTOUT
12062 0074 00 4 06420 5781TSXINTRN1,4
12063 −0634 00 4 01562 5782SXD$ERROR,4
12064 0074 00 4 01563 5783TSX$ERROR+1,4
12065 542330600154 5784BCI1,*CH␣1*
12066 0500 00 0 00471 5785B6CLASEVENS BIT 1 IN CHARS WILL MAKE
12067 0601 00 0 12603 5786STOCHARS WORD LOOK FULL
12070 0020 00 0 12053 5787TRAB1
5788 * PACK USES $ERROR, $EROR1, AND $Q1
5789
5790
5791
5792SPACE
5793 * NUMOB
5794 *
5795 * NUMOB MAKES A NUMERICAL OBJECT CORRESPONDING TO THE BCD
5796 * CHARACTERS IN THE BUFFER BOFFO.
5797 *
5798 * THIS ROUTINE HAS CORSS-REFERENCES TO THE INNARDS OF NUMBR
5799 *
12071 0634 00 4 12134 5800NUMOBSXAGV1,4 SAVE IR4
12072 0140 00 0 12073 5801TOV*+1 SHUT OFF OVERFLOW LIGHT
12073 −0500 00 0 12603 5802CALCHARS SHIFT SEVENS INTO LAST PACKED WORD
12074 0560 00 0 00471 5803LDQSEVENS
12075 −0763 00 0 00006 5804LGL6
12076 −0140 00 0 12075 5805TNO*−1 DONE WHEN 1 PASSES THROUGH P BIT
12077 0534 00 4 12045 5806LXABFLOC,4 PUT LAST WORD INTO BOFFO
12100 0602 00 4 12631 5807SLWBOFFO,4
12101 0500 00 0 12573 5808CLAPARAM INPUT PARAMETER FOR NUMBR IS
12102 0074 00 4 06622 5809TSXNUMBR,4 BEGINNING OF BOFFO
12103 0100 00 0 12136 5810TZEGV3 ERROR IF ZERO IN AC
12104 0120 00 0 12112 5811TPLGV2 TRANSFER IF FIXED POINT OUTPUT
12105 0131 00 0 00000 5812XCA GET NUMBER FROM MQ
12106 0560 00 0 00476 5813LDQFLOS FLOATING POINT SIGNAL
12107 0074 00 4 12636 5814TSX$MKNO,4 FORM OBJECT
12110 0534 00 4 12134 5815LXAGV1,4 RESTORE IR4
12111 0020 00 0 12201 5816TRACLEAR RESET BOFFO AND EXIT
12112 −0760 00 0 00001 5817GV2PBT OCTAL SIGNAL IN NUMBR OUTPUT
12113 0020 00 0 12121 5818TRAGV6 TRA IF NOT OCTAL
12114 0131 00 0 00000 5819XCA
12115 0560 00 0 00503 5820LDQ$OCTD MAKE OCTAL NUMBER
5821
12116 0074 00 4 12636 5822TSX$MKNO,4
12117 0534 00 4 12134 5823LXAGV1,4
12120 0020 00 0 12201 5824TRACLEAR RESET BOFFO AND EXIT
12121 0131 00 0 00000 5825GV6XCA BRING THE NUMBER TO THE AC
12122 −0120 00 0 12132 5826TMIGV4 TEST FOR DIGITS 0 THRU 9
12123 0340 00 0 00402 5827CAS$Q10
12124 0020 00 0 12132 5828TRAGV4
12125 0020 00 0 12132 5829TRAGV4
12126 0361 00 0 00521 5830ACLHORG FORM OBJECT DIRECTLY
12127 0767 00 0 00022 5831ALS18
12130 0534 00 4 12134 5832LXAGV1,4 RESTORE IR4
12131 0020 00 0 12201 5833TRACLEAR
12132 0560 00 0 00475 5834GV4LDQFIXS FIXED POINT SIGNAL FOR $MKNO
12133 0074 00 4 12636 5835TSX$MKNO,4 FORM NUMERICAL OBJECT
12134 0774 00 4 00000 5836GV1AXT,4 RESTORE IR4
12135 0020 00 0 12201 5837TRACLEAR RESET BOFFO AND EXIT
12136 0074 00 4 01222 5838GV3TSXOUTPUT,4
12137 0 00000 0 00364 5839 BCDOUT
12140 0 00004 0 12143 5840 GVA,,4
5841 * BCI 1,*CH 2* FLOATING POINT NUMBER OUT OF RANGE
12141 −0754 00 0 00000 5842PXD0,0
12142 0020 00 0 12134 5843TRAGV1
12143 602551514651 5844GVABCI4,␣ERROR␣NUMBER␣␣*CH␣2*␣␣␣
12144 604564442225 5845
12145 516060542330 5846
12146 600254606060 5847
5848 *
5849 * THIS ROUTINE USES $CONS, $MKNO,$ZERO,$ERROR, AD $EROR1
5850
5851
5852SPACE
5853 * MKNAM AND CLEARBUFF
5854 *
5855 *
5856 * CLEARBUFF STARTS AT CLEAR AND RESETS THE BUFFER BOFFO TO
5857 * THE BEGINNING
5858 *
5859 * MKNAM() HAS AS OUTPUT A PNAME LIST STRUCTURE CORRESPONDING
5860 * TO THE CHARACTERS IN THE BUFFER BOFFO. THE BEGINNING OF
5861 * BOFFO IS RESET.
5862 *
5863 * THIS ROUTINE HAS CROSS-REFERENCES TO THE INNARDS OF PACK.
5864 *
12147 0634 00 4 12207 5865MKNAMSXABB1,4 SAVE IR4
12150 0634 00 2 12177 5866SXABBIR2,2 SAVE IR2
12151 −0500 00 0 12603 5867CALCHARS IF C(CHARS) = 1, CHARS CONTAINS
12152 −0340 00 0 12417 5868LASA1 NO SIGNIFICANT CHARACTERS
12153 0020 00 0 12156 5869TRABB5
12154 −0754 00 0 00000 5870PXD,0
12155 0020 00 0 12167 5871TRABB2 NO SIGNIFICANT CHARACTERS IN CHARS
12156 0140 00 0 12157 5872BB5TOV*+1 SHUT OFF OVERFLOW LIGHT
12157 0560 00 0 00471 5873LDQSEVNS SHIFT SEVENS INTO LAST WORD
12160 −0763 00 0 00006 5874LGL6 OF LIST
12161 −0140 00 0 12160 5875TNO*−1
12162 0602 00 0 12574 5876SLWT1 PUT P BIT INTO SIGN
12163 0500 00 0 12574 5877CLAT1
12164 0074 00 4 03710 5878TSX$CONSW,4 FORM POINTER TO LAST WORD OF LIST
12165 0560 00 0 00370 5879LDQZERO
12166 0074 00 4 03730 5880TSX$CONS,4
12167 0534 00 2 12045 5881BB2LXABFLOC,2 LOC OF LAST SIGNIFICAN BUFFER WORD
12170 3 00023 2 12177 5882BB4TXHBBIR2,2,19 TRA IF BUFFER IS EXHAUSTED
12171 0602 00 0 03654 5883SLWBBPNT SAVE DECREMENT FOR FUTURE USE
12172 0500 00 2 12630 5884CLABOFFO−1,2 GET NEXT WORD OF BUFFER
12173 0074 00 4 03710 5885TSX$CONSW,4
12174 0560 00 0 03654 5886LDQBBPNT
12175 0074 00 4 03730 5887TSX$CONS,4
12176 1 00001 2 12170 5888TXIBB4,2,1 MOVE TO NEXT WORD OF BUFFER
12177 0774 00 2 00000 5889BBIR2AXT**,2 RESTORE IR2
12200 0020 00 0 12202 5890TRABB3 RESET POSITION IN BOFFO
12201 0634 00 4 12207 5891CLEARSXABB1,4 ENTRANCE FOR CLEARING BUFFER
12202 0560 00 0 12417 5892BB3LDQA1 RESET CHARS CELL TO 0 CHARACTERS
12203 −0600 00 0 12603 5893STQCHARS
12204 0774 00 4 00024 5894AXT20,4 SET INDEX IN PACK FOR FIRST
12205 0634 00 4 12045 5895SXABFLOC,4 BUFFER WORD
12206 0600 00 0 03654 5896STZBBPNT AVOID UNNECESSARY GARBAGE COLL.
12207 0774 00 4 00000 5897BB1AXT,4 RESTORE IR4
12210 0020 00 4 00001 5898TRA1,4 EXIT
5899
5900
5901
5902SPACE
5903 * ADVANCE, STARTREAD, AND ENDREAD PROGRAMS
5904 *
5905 * ADVANCE SETS CURCHAR TO THE NEXT CHARACTER
5906 * STARTREAD READS A NEW RECORD
5907 * ENDREAD MOVES TO THE END OF THE CURRENT RECORD AND
5908 * GIVES ERROR OUTPUT, IF ANNY
5909
12211 −0634 00 4 12220 5910ADVANCSXDPORK,4 SAVE IR
12212 −0534 00 4 12236 5911LXDCHPOS,4 FIND NO. OF CHARS. LEFT IN PACKED
12213 2 00006 4 12247 5912TIXCHOPS,4,6 WORD
12214 −0534 00 4 12237 5913LXDWDNUM,4 FIND NEW PACKED WORD
12215 2 00001 4 12243 5914TIXLAMB,4,1 IF NEW RECORD NEEDED, CONTINUE
12216 −0520 00 0 12604 5915NZTEORTS IF NONZERO GIVE EOR AS OUTPUT CHAR-
12217 0020 00 0 12223 5916TRAVEAL ACTER, OTHERWISE READ NEW RECORD
12220 1 00000 0 12276 5917PORKTXISTEW,,0 READ A NEW RECORD
12221 −0634 00 4 12220 5918STREADSXDPORK,4 SAVE IR4
12222 0020 00 0 12225 5919TRA*+3
12223 −0520 00 0 12517 5920VEALNZTERSIG
12224 0020 00 0 12233 5921TRAJOYCE
12225 0600 00 0 12517 5922STZERSIG TURN OFF ERROR SIGNAL
12226 0774 00 4 00014 5923AXT12,4 PUT BLANKS IN ERROR BUFFER
12227 −0500 00 0 00472 5924CALBLANKS
12230 0602 00 4 12572 5925RUTHSLWERBFL,4
12231 0602 00 4 12535 5926SLWERBFU,4
12232 2 00001 4 12230 5927TIXRUTH,4,1
12233 0074 00 4 00663 5928JOYCETSX$INPUT,4 READ A NEW RECORD
12234 0 00000 0 00000 5929 $BCDIN
12235 0 00016 0 12536 5930 BUFF−12,,14
12236 1 00000 0 12316 5931CHPOSTXIRIBS,,0 ERROR RETURN
12237 1 00000 0 12271 5932WDNUMTXIRUMP,,0 EOF RETURN
12240 −0625 00 0 12604 5933STLEORTS SET SIGNAL FOR EOR OUTPUT NEXT TIME
12241 0600 00 0 12635 5934STZ$CHACT INITIALIZE CHARACTER COUNT
12242 0774 00 4 00014 5935AXT12,4 SET INDEX FOR START OF INPUT BUFFER
12243 −0634 00 4 12237 5936LAMBSXDWDNUM,4
12244 0500 00 4 12552 5937CLABUFF,4 PICK UP NEW PACKED WORD FROM
12245 0601 00 0 12572 5938STOPWORD INPUT BUFFER AND STORE IT
12246 0774 00 4 00044 5939AXT36,4 INITIALIZE POSITION IN PACKED WORD
12247 −0634 00 4 12236 5940CHOPSSXDCHPOS,4
12250 −0754 00 0 00000 5941PXD,0 PICK OFF ONE CHARACTER
12251 0560 00 0 12572 5942LDQPWORD
12252 −0763 00 0 00006 5943A6LGL6
12253 −0600 00 0 12572 5944STQPWORD SAVE SHIFTED PACKED WORD
12254 0734 00 4 00000 5945PAX0,4
12255 3 00014 4 12260 5946TXHSHANK,4,12 CHECK FOR 8-4 MINUS
12256 −3 00013 4 12260 5947TXLSHANK,4,11
12257 0774 00 4 00040 5948AXT32,4 CHANGE 8-4 MINUS TO 11 MINUS
12260 1 06127 4 12261 5949SHANKTXI*+1,4,$H00 POINTER TO NEW CHARACTER OBJECT
12261 0500 00 0 12635 5950BACONCLA$CHACT BUMP CHARACTER COUNT
12262 0400 00 0 00371 5951ADD$Q1
12263 0601 00 0 12635 5952STO$CHACT
12264 −0754 00 4 00000 5953PXD,4 SET CURCHAR TO NEW CHARACTER
12265 0602 00 0 12634 5954SLW$CURC POINTER IN DECREMENT FOR BIN
12266 0634 00 4 12633 5955SXA$CURC1,4 POINTER IN ADDRESS FOR APVAL1
12267 −0534 00 4 12220 5956LXDPORK,4 RESTORE IR4
12270 0020 00 4 00001 5957TRA1,4 RETURN
12271 0534 00 4 00522 5958RUMPLXAEOF,4 END OF FILE CHARACTER
12272 0020 00 0 12314 5959TRAJEAN
12273 −0634 00 4 12220 5960ENDREDSXDPORK,4 SAVE IR4 FOR EXIT (ENDREAD ENTRANCE)
12274 −0634 00 0 12236 5961SXDCHPOS,0 SET CHARACTER POSITION AND WORD
12275 −0634 00 0 12237 5962SXDWDNUM,0 NUMBER AT END OF RECORD
12276 −0520 00 0 12517 5963STEWNZTERSIG TEST IF ERROR PRINTOUT NEEDED
12277 0020 00 0 12313 5964TRASUZIE
12300 0074 00 4 05214 5965TSXTERPRI,4 PRINT BLANK LINE
12301 0074 00 4 01222 5966TSXOUTPUT,4 PRINT UPPER ERROR BUFFER
12302 0 00000 0 00364 5967 BCDOUT
12303 0 00015 0 12520 5968 ERBFU−13,,13
12304 0074 00 4 01222 5969TSXOUTPUT,4 PRINT BAD LINE
12305 0 00000 0 00364 5970 BCDOUT
12306 0 00015 0 12535 5971 BUFF−13,,13
12307 0074 00 4 01222 5972TSXOUTPUT,4 PRINT LOWER ERROR BUFFER
12310 0 00000 0 00364 5973 BCDOUT
12311 0 00015 0 12555 5974 ERBFL−13,,13
12312 0074 00 4 05214 5975TSXTERPRI,4 PRINT BLANK LINE
12313 0534 00 4 00523 5976SUZIELXAEOR,4 LOAD END OF RECORD CHARACTER
12314 0600 00 0 12604 5977JEANSTZEORTS
12315 0020 00 0 12261 5978TRABACON
12316 −0634 00 4 01562 5979RIBSSXD$ERROR,4
12317 0074 00 4 01563 5980TSX$ERROR+1,4
12320 542330600354 5981BCI1,*CH␣3*
5982 * TAPE READING ERROR -ADVANCE, STARTREAD-
00471 5983SEVNSSYNSEVENS
5984SPACE
5985 ALPHABETIC FUNCTIONS
5986 LITER(CHAR)
12321 −0634 00 4 12336 5987LITERSXDAL1,4
12322 −0737 00 4 00000 5988PDC0,4
12323 0500 00 0 12440 5989CLAA2
12324 0402 00 4 04270 5990AL3SUBCHTYP−$H00,4 COMAPRE WITH TABLE ENTRY
12325 −0534 00 4 12336 5991LXDAL1,4
12326 −0100 00 0 12331 5992TNZAL6
12327 0500 00 0 00442 5993CLA$QD1 EXIT WITH T
12330 0020 00 4 00001 5994TRA1,4
12331 −0754 00 0 00000 5995AL6PXD,0 EXIT WITH F
12332 0020 00 4 00001 5996TRA1,4
5997 OPCHAR(CHAR)
12333 −0634 00 4 12336 5998OPCHARSXDAL1,4
12334 −0737 00 4 00000 5999PDC0,4
12335 0500 00 0 12437 6000CLAA3
12336 1 00000 0 12324 6001AL1TXIAL3,,0
6002 DIGIT(CHAR)
12337 0340 00 0 00524 6003DIGITCASHOL9
12340 0020 00 0 12344 6004TRAAL5
12341 0761 00 0 00000 6005NOP
12342 0500 00 0 00442 6006CLA$QD1
12343 0020 00 4 00001 6007TRA1,4
12344 −0754 00 0 00000 6008AL5PXD,0
12345 0020 00 4 00001 6009TRA1,4
6010
6011
6012
6013SPACE
6014 * ERROR1
6015 *
6016 * ER1 CREATES A VISUAL POINTER IN ERBFU AND ERBFL
6017 * TO A READING ERROR
6018 *
12346 −0625 00 0 12517 6019EROR1STLERSIG TURN ON ERROR SIGNAL
12347 0634 00 4 12363 6020SXAERIR,4 SAVE IR4
12350 0500 00 0 00375 6021CLA$Q5 V FOR UPPER BUFFER
12351 0560 00 0 00424 6022LDQOCT41 A FOR LOWER BUFFER
12352 −0535 00 4 12236 6023LDCCHPOS,4 SHIFT BOTH LETTERS INTO POSITION
12353 −0763 00 4 77772 6024LGL−6,4
12354 −0534 00 4 12237 6025LXDWDNUM,4
12355 −3 00000 4 12362 6026TXLERX,4,0 DO NOTHING IF END OF RECORD
12356 −0602 00 4 12535 6027ORSERBFU,4 INSERT V INTO UPPER BUFFER
12357 −0130 00 0 00000 6028XCL
12360 0322 00 4 12572 6029ERAERBFL,4 INSERT A INTO LOWER BUFFER
12361 0602 00 4 12572 6030SLWERBFL,4
12362 −0754 00 0 00000 6031ERXPXD,0
12363 0774 00 4 00000 6032ERIRAXT**,4 RESTORE IR4
12364 0020 00 4 00001 6033TRA1,4 EXIT
6034SPACE
6035 * UNPACK(NAME)
6036 *
6037 * UNPACK(NAME) GIVES A LIST OF THE CHARACTER OBJECTS
6038 * IN THE CELL -NAME-, UP TO THE FIRST 77.
6039 *
12365 0634 00 4 12414 6040UNPACKSXAUPI4,4 SAVE IR2 AND IR4
12366 0634 00 2 12415 6041SXAUPI2,2
12367 −0734 00 4 00000 6042PDX,4 PUT ARGUMENT CELL IN MQ
12370 0560 00 4 00000 6043LDQ0,4
12371 0774 00 2 00006 6044AXT6,2
12372 −0754 00 0 00000 6045UP2PXD,0 LOOK AT A CHARACTER
12373 −0763 00 0 00006 6046LGL6
12374 0340 00 0 00413 6047CAS$Q63
12375 1 00001 2 12401 6048TXIUP1,2,1 ADJUST IR2 FOR CHARACTER
12376 1 00001 2 12401 6049TXIUP1,2,1 COUNT
12377 0601 00 2 12602 6050STOT1+6,2 STORE THE CHARACTER
12400 2 00001 2 12372 6051TIXUP2,2,1
12401 0600 00 0 03654 6052UP1STZUPLST SET END OF LIST TO NIL
12402 3 00006 2 12412 6053UP4TXHUP3,2,6 EXIT IF ALL CHARACTERS LISTED
12403 0500 00 2 12602 6054CLAT1+6,2 PICK UP NEXT CHARACTER
12404 0400 00 0 00521 6055ADDHORG AND FORN OBJECT
12405 0767 00 0 00022 6056ALS18
12406 0560 00 0 03654 6057LDQUPLST
12407 0074 00 4 03730 6058TSX$CONS,4 PUT CHAR AT HEAD OF LIST
12410 0601 00 0 03654 6059STOUPLST
12411 1 00001 2 12402 6060TXIUP4,2,1
12412 0500 00 0 03654 6061UP3CLAUPLST RETURN WITH LOCATION OF LIST
12413 0600 00 0 03654 6062STZUPLST AVOID UNNECESSARY GARBAGE COLL.
12414 0774 00 4 00000 6063UPI4AXT**,4
12415 0774 00 2 00000 6064UPI2AXT**,2
12416 0020 00 4 00001 6065TRA1,4 EXIT
6066 *
6067 * THIS ROUTINE USES $CONS
6068
6069
6070SPACE
6071 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
6072 STORAGE
00521 6073HORGSYN$H00A
00522 6074EOFSYN$H12A
00523 6075EORSYN$H72A
00524 6076HOL9SYN$H11D
00525 6077HOL14SYN$H14D
00530 6078HOL40SYN$H40D
6079TITLE
12417 +000000000001 6080CHTYPDEC1,1,1,1,1,1,1,1 0 = ILLEGAL CHARACTER
12427 +000000000001 6081DEC1,1,4,3,3,0,0,0 1 = DIGIT
12437 +000000000003 6082DEC3,2,2,2,2,2,2,2 2 = LETTER
12447 +000000000002 6083DEC2,2,4,4,4,0,0,0 3 = OPERATION CHARACTER
12457 +000000000003 6084DEC3,2,2,2,2,2,2,2 4 = OTHER
12467 +000000000002 6085DEC2,2,4,4,3,0,0,0
12477 +000000000004 6086DEC4,3,2,2,2,2,2,2
12507 +000000000002 6087DEC2,2,4,4,4,0,0,0
6088 DETAIL
00370 6089ZEROSYN$ZERO
12417 6090A1SYNCHTYP
12440 6091A2SYNCHTYP+17
12437 6092A3SYNCHTYP+16
00424 6093OCT41SYN$QO41
00412 6094A36SYN$Q36
12517 6095ERSIGBSS1 ERROR INDICATOR
12520 006060606060 6096BCI1,0␣␣␣␣␣
12535 6097ERBFUBES12 UPPER ERROR BUFFER
12535 606060606060 6098BCI1,␣␣␣␣␣␣
12552 6099BUFFBES12 BUFFER FOR INPUT RECORD
12555 6100BES3 ROOM FOR EXTRA WORDS IN READ-IN
12555 606060606060 6101BCI1,␣␣␣␣␣␣
12572 6102ERBFLBES12 LOWER ERROR BUFFER
12572 6103PWORDBSS1
12573 0 00001 0 12605 6104PARAMPZEBOFFO−20,,1
00476 6105FLOSSYNFLOATD
12574 6106T1BSS7
00475 6107FIXSSYN$FIXD
12603 6108CHARSBSS1
12604 6109EORTSBSS1 NONZERO INDICATES EOR OUTPUT CHAR
12631 6110BOFFOBES20
12631 6111BSS1 JUNK WORD FOR BOFFO REMNANTS
03654 6112UPLSTSYNBBPNT CUMULATIVE LIST OF CHARACTERS
12632 6113BSS1
12633 0 00000 0 00000 6114CURC1PZE POINTER APPEARS IN ADDRESS
12634 0 00000 0 00000 6115CURCPZE POINTER APPEARS IN DECREMENT
12635 0 00000 0 00000 6116CHACTPZE CHARACTER COUNT
6117 *
6118 * MKNO A FUNCTION OF TWO ARGUMENTS, THE FIRST IS A NUMBER, THE SECO
6119 * ND IS A TYPE (FLO OR FIX), MKNO FORMS A NON UNIQUE NUMBER
12636 0634 00 4 12660 6120MKNOSXAMKIR,4 SAVE LINK IR
12637 −0600 00 0 03656 6121STQMKT1 TYPE OF NUMBER TO MQ
12640 0074 00 4 03710 6122TSX$CONSW,4
12641 0131 00 0 00000 6123XCA
12642 0500 00 0 00460 6124CLA$DMASK
12643 0074 00 4 03730 6125TSX$CONS,4
12644 −0534 00 4 03656 6126LXDMKT1,4 TYPE TO IR 4
12645 0622 00 0 03656 6127STDMKT1
12646 0500 00 0 00441 6128CLA$QT5 ASSUME IT IS OCTAL
12647 −3 10134 4 12652 6129TXL*+3,4,$FIX−1
12650 3 10135 4 12652 6130TXH*+2,4,$FIX
12651 0500 00 0 00436 6131CLA$QT1
12652 −3 10117 4 12655 6132TXL*+3,4,$FLOAT−1
12653 3 10120 4 12655 6133TXH*+2,4,$FLOAT
12654 0500 00 0 00437 6134CLA$QT2
12655 −0534 00 4 03656 6135LXDMKT1,4 LOCATION OF NUMBER
12656 −0602 00 4 00000 6136ORS0,4 PUT IN NUMBER FLAG
12657 −0754 00 4 00000 6137PXD0,4 ANSWER TO AC
12660 0774 00 4 00000 6138MKIRAXT**,4 RESTORE LINK IR
12661 0020 00 4 00001 6139TRA1,4
6140 *
6141 *
6142H HED
6143 * LOGOR, LOGAND, AND LOGXOR
6144 *
6145 * THESE FUNCTIONS TAKE THE LOGICAL AND, LOGICAL OR, AND LOGICAL
6146 * EXCLUSIVE OR RESPECTIVELY OF THEIR ARGUMENTS, WHICH ARE NUMBER
6147 * OBJECTS. THE RESULT IS AN OCTAL NUMBER OBJECT.
6148 *
12662 0100 00 4 00001 6149LOGORTZE1,4 RETURN 0 IF 0 INPUT
12663 −0634 00 4 12756 6150SXDT1,4 SAVE IR4
12664 0774 00 4 07706 6151AXT−$)PJ37,4 LOGOR ATOM
12665 0634 00 4 12756 6152SXAT1,4 SET FUNCTION ON PDL
12666 0074 00 4 02312 6153TSX$SAVE,4
12667 −3 12760 0 02401 6154TXL$END1,,T1+2 SAVE 1 ITEM
12670 0074 00 4 15774 6155TSX$EVLIS,4 EVALUATE LIST OF ARGUMENTS
12671 0074 00 4 02326 6156TSXUNSAVE,4
12672 0560 00 0 00370 6157LDQ$ZERO OR OF NO ARGUMENTS
12673 −0600 00 0 12757 6158STQT1+1
12674 0560 00 0 12747 6159LDQORS INSTRUCTION FOR INNER LOOP
12675 0020 00 0 12725 6160TRALOG2
6161 *
12676 0100 00 4 00001 6162LOGANDTZE1,4 EXIT WITH 0 IF 0 INPUT
12677 −0634 00 4 12756 6163SXDT1,4 SAVE IR4
12700 0774 00 4 07676 6164AXT−$)PJ36,4 LOGAND ATOM
12701 0634 00 4 12756 6165SXAT1,4 SET FUNCTION ON PDL
12702 0074 00 4 02312 6166TSX$SAVE,4
12703 −3 12760 0 02401 6167TXL$END1,,T1+2 SAVE 1 ITEM
12704 0074 00 4 15774 6168TSX$EVLIS,4 EVALUATE LIST OF ARGUMENTS
12705 0074 00 4 02326 6169TSXUNSAVE,4
12706 0560 00 0 00471 6170LDQSEVENS AND OF NO ARGUMENT
12707 −0600 00 0 12757 6171STQT1+1
12710 0560 00 0 12750 6172LDQANS INSTRUCTION FOR INNER LOOP
12711 0020 00 0 12725 6173TRALOG2
6174 *
12712 0100 00 4 00001 6175LOGXORTZE1,4 EXIT WITH 0 IF 0 INPUT
12713 −0634 00 4 12756 6176SXDT1,4 SAVE IR4
12714 0774 00 4 07666 6177AXT−$)PJ38,4 LOGXOR ATOM
12715 0634 00 4 12756 6178SXAT1,4 SET FUNCTION ON PDL
12716 0074 00 4 02312 6179TSX$SAVE,4
12717 −3 12760 0 02401 6180TXL$END1,,T1+2 SAVE 1 ITEM
12720 0074 00 4 15774 6181TSX$EVLIS,4 EVALUATE LIST OF ARGUMENTS
12721 0074 00 4 02326 6182TSXUNSAVE,4
12722 0560 00 0 00370 6183LDQ$ZERO RIGNSUM OF NO ARGUMENTS
12723 −0600 00 0 12757 6184STQT1+1
12724 0560 00 0 12751 6185LDQERS TRA TO INSTRUCTIONS FOR INNER LOOP
6186 * COMMON PART OF LOGAND, LOGOR AND LOGXOR
12725 −0600 00 0 12737 6187LOG2STQLOG5
12726 0634 00 2 12745 6188SXALOG4,2 SAVE IR2
12727 −0734 00 2 00000 6189PDX,2 POINTER TO ARGUMENT LIST
6190 * FORM THE PROPER LOGICAL COMBINATION OF THE ARGUMENTS
12730 0500 00 2 00000 6191LOG1CLA0,2 1
12731 −0734 00 2 00000 6192PDX0,2 CDR(L)
12732 0734 00 4 00000 6193PAX0,4
12733 −0754 00 4 00000 6194PXD0,4 CAR(L)
12734 0074 00 4 14342 6195TSXNUMVAL,4 GET NUMBER FOR THIS ELEMENT
12735 −0734 00 4 00000 6196PDX0,4
12736 −0500 00 4 00000 6197CAL0,4
12737 0 00000 0 00000 6198LOG5 ** INSTRUCTION SET EARLIER
12740 3 00000 2 12730 6199TXHLOG1,2,0 LOOP AGAIN IF CDR(L) NOT NULL
6200 * RETURN A POINTER TO THE RESULT
12741 −0500 00 0 12757 6201LOG6CALT1+1 PICK UP RESULT
12742 0560 00 0 00503 6202LDQ$OCTD MAKE AN OBJECT OF IT
12743 0074 00 4 12636 6203TSX$MKNO,4
12744 −0534 00 4 12756 6204LXDT1,4 RESTORE IR4 AND IR2
12745 0774 00 2 00000 6205LOG4AXT**,2
12746 0020 00 4 00001 6206TRA1,4
6207 * INSTRUCTIONS TO BE INSERTED IN INNER LOOP
12747 −0602 00 0 12757 6208ORSORST1+1
12750 0320 00 0 12757 6209ANSANST1+1
12751 0020 00 0 12752 6210ERSTRA*+1 TRA SINCE ERS TAKES 2 INSTRUCTIONS
12752 0322 00 0 12757 6211ERAT1+1
12753 0602 00 0 12757 6212SLWT1+1
12754 3 00000 2 12730 6213TXHLOG1,2,0
12755 0020 00 0 12741 6214TRALOG6
6215 *
12756 −000000000000 6216T1OCT−0,−0 STORAGE FOR LOGAND, ETC.
12757 −000000000000 6217
6218 * THIS ROUTINE USES NUMVAL,$MKNO,$ZERO,AND SEVENS
6219
6220
6221
6222SPACE
6223 * LEFTSHIFT(X,N)
6224 *
6225 * IF N IS +, X IS SHIFTED LEFT N PLACES.
6226 * IF N IS -, X IS SHIFTED RIGHT -N PLACES.
6227 * BOTH INPUTS MUST BE NUMERICAL OBJECTS.
6228 *
12760 0634 00 4 13003 6229LSHIFTSXALSH1,4 SAVE IR4
12761 0634 00 2 13002 6230SXALSH4,2 SAVE IR2
12762 0601 00 0 12756 6231STOT2 SAVE X
12763 0131 00 0 00000 6232XCA
12764 −0734 00 2 00000 6233PDX0,2 FIND VALUE OF N
12765 0074 00 4 13075 6234TSXFIXVAL,4
12766 0774 00 4 77100 6235AXT7*4096+7*512+1*64,4 SET UP ARS
12767 −0120 00 0 12771 6236TMILSH2 IF NEGATIVE, SET UP ARS
12770 0774 00 4 76700 6237AXT7*4096+6*512+7*64,4 SET UP ALS
12771 −0634 00 4 12777 6238LSH2SXDLSH3,4 PUT OP CODE INTO INSTRUCTION
12772 0621 00 0 12777 6239STALSH3
12773 0500 00 0 12756 6240CLAT2 FIND VLAUE OF X
12774 0074 00 4 14342 6241TSXNUMVAL,4
12775 −0734 00 4 00000 6242PDX0,4
12776 −0500 00 4 00000 6243CAL0,4
12777 0767 00 0 00000 6244LSH3ALS** THIS INSTRUCTION WAS SET UP EARLIER
13000 0560 00 0 00503 6245LDQ$OCTD FORM OCTAL NUMBER
13001 0074 00 4 12636 6246TSX$MKNO,4
13002 0774 00 2 00000 6247LSH4AXT**,2 RESTORE IR2
13003 0774 00 4 00000 6248LSH1AXT**,4
13004 0020 00 4 00001 6249TRA1,4
6250
12756 6251T2SYNT1
6252 *
6253 * THIS ROUTINE USES $MKNO,$OCTD,AND NUMVAL
6254Q HED
6255 *
6256 *
6257 * ARYGET THE FUNCTION THAT GETS AND SETS THE VALUES OF ARRAYS
6258 * USED IN LISP AS FOLLOWS ...
6259 * TO GET A VALUE (NAME,D1,D2,D3)
6260 * TO SET A VLUAE (NAME,SET,VALUE,D1,D2,D3)
6261 *
6262 * THE CALLING SEQUENCE IS AS FOLLOWS
6263 * SXA ARYGTX,4
6264 * TSX ARYGET,4
6265 * PZE LOCATION OF TABLE 1,,NUMBER OF DIMENSIONS
6266 *
13005 0634 00 2 13044 6267ARYGETSXAARYY,2 SAVE INDEX REGISTER
13006 0634 00 1 13045 6268SXAARYZ,1
13007 0601 00 0 13072 6269STOAGAO SAVE ARGUMENT 1
13010 0500 00 4 00003 6270CLA3,4 TABLE ZERO PARAMETER WORD
13011 0621 00 0 13042 6271STAAGXEX ADDRESS OF END OF TABLE 1
13012 −0734 00 2 00000 6272PDX0,2 NUMBER OF DIMENSIONS
13013 −0600 00 0 13073 6273STQAGAT ARG 2
13014 0500 00 0 03321 6274CLA$ARG3
13015 0601 00 0 13074 6275STOAGATH ARGUMENT 3
13016 0500 00 0 13070 6276CLAAX XEC INSTRUCTION
13017 −0534 00 4 13072 6277LXDAGAO,4 GET ARG 1
13020 −3 07031 4 13032 6278TXLAGN,4,$SET−1 TEST FOR SET OPERATION
13021 3 07032 4 13032 6279TXHAGN,4,$SET GO ON IF NOT $SET
13022 −0600 00 0 13071 6280STQAGV IS SET SAVE VALUE
13023 0500 00 0 03321 6281CLA$ARG3
13024 0601 00 0 13072 6282STOAGAO DIMENSION 1
13025 0500 00 0 03322 6283CLA$ARG4
13026 0601 00 0 13073 6284STOAGAT DIMENSION 2
13027 0500 00 0 03323 6285CLA$ARG5
13030 0601 00 0 13074 6286STOAGATH DIMENSION 3
13031 0500 00 0 13067 6287CLAAXS XEC* INSTRUCTION
13032 0622 00 0 13042 6288AGNSTDAGXEX SET UP FETCH OR STORE INSTUCTION
13033 3 00002 2 13047 6289TXHAGDTH,2,2 GO IF 3 D ARRAY
13034 3 00001 2 13056 6290TXHAGDT,2,1 GO IF 2 D ARRAY
13035 −0534 00 2 13072 6291LXDAGAO,2 DIMENSION 1
13036 0074 00 4 13075 6292TSXFIXVAL,4 EVALUATE THE FIXED POINT NUMBER
13037 0734 00 1 00000 6293PAX0,1 INTO PROPER INDEX
13040 0774 00 6 00000 6294AXT0,6 ZERO INDEX REGISTERS
13041 0500 00 0 13071 6295AGXECLAAGV GET THE VALUE
13042 0522 00 4 00000 6296AGXEXXEC**,4 FETCH BY XEC OR STORE BY XEC*
13043 0774 00 4 00000 6297ARYGTXAXT**,4 RESTORE INDEX REGISTERS
13044 0774 00 2 00000 6298ARYYAXT**,2
13045 0774 00 1 00000 6299ARYZAXT**,1
13046 0020 00 4 00001 6300TRA1,4
6301 *
13047 −0534 00 2 13074 6302AGDTHLXDAGATH,2 DIMENSION 3
13050 0074 00 4 13075 6303TSXFIXVAL,4 EVALUATE AS A FIXED POINT NUMBER
13051 0734 00 1 00000 6304PAX0,1 INTO INDEX
13052 −0534 00 2 13072 6305LXDAGAO,2 DIMENSION 1
13053 0074 00 4 13075 6306TSXFIXVAL,4 EVALUATE IT
13054 0621 00 0 13065 6307STAAGR SET UP AXT INSTRUCTION
13055 0020 00 0 13062 6308TRAAGD GO EVALUATE DIMENSUON 2
6309 *
13056 0634 00 0 13065 6310AGDTSXAAGR,0 PRESET AXT INSTRUCTION
13057 −0534 00 2 13072 6311LXDAGAO,2 DIMENSION 1
13060 0074 00 4 13075 6312TSXFIXVAL,4 FIXED POINT NUMBER EVALUATION
13061 0734 00 1 00000 6313PAX0,1 INTO INDEX 1
13062 −0534 00 2 13073 6314AGDLXDAGAT,2 DIMENSION 2
13063 0074 00 4 13075 6315TSXFIXVAL,4 FIXED POINT NUMBER EVALUATION
13064 0734 00 2 00000 6316PAX0,2 INTO INDEX 2
13065 0774 00 4 00000 6317AGRAXT**,4 ZERO OR DIMENSION 1
13066 0020 00 0 13041 6318TRAAGXE GO BACK TO MAIN PROGRAM
6319 *
A13067 0522 60 0 00000 6320AXSXEC* THE STORE INSTRUCTION
A13070 0522 00 0 00000 6321AXXEC THE FETCH INSTRUCTION
13071 0 00000 0 00000 6322AGV VALUE TO BE STORED PUT HERE
13072 0 00000 0 00000 6323AGAO DIMENSION 1
13073 0 00000 0 00000 6324AGAT DIMENSION 2
13074 0 00000 0 00000 6325AGATH DIMENSION 3
6326 *
6327 * FIXVAL
6328 *
6329 * FIXVAL HAS AS INPUT A POINTER TO A FIXED POINT NUMBER OBJECT IN
6330 * IR2, AND HANDS BACK THE NUMERICAL VALUE OF THAT OBJECT.
6331 *
13075 0634 00 2 13106 6332FIXVALSXAFXVE,2 SAVE IR2 IN CASE OF ERROR
13076 0500 00 2 00000 6333CLA0,2
13077 0734 00 2 00000 6334PAX0,2
13100 −3 77776 2 13106 6335TXLFXVE,2,−2 ERROR IF NOT ATOMIC
13101 −0734 00 2 00000 6336PDX0,2
13102 −0320 00 0 00436 6337ANA$QT1
13103 0100 00 0 13106 6338TZEFXVE
13104 0500 00 2 00000 6339CLA0,2 PICK UP VALUE
13105 0020 00 4 00001 6340TRA1,4 NORMAL EXIT
13106 0774 00 2 00000 6341FXVEAXT**,2 IR2 SHOULD LAND IN DECR. OF AC
13107 −0634 00 4 01562 6342SXD$ERROR,4
13110 −0754 00 2 00000 6343PXD0,2 IT DOES INDEED LAND THERE
13111 0074 00 4 01563 6344TSX$ERROR+1,4
13112 543160600454 6345BCI1,*I␣␣4*
6346 *
6347 *
6348 * ARYMAK THE FUNCTION THAT MAKES ARRAYS
6349 * THE ARGUMENT IS A SINGLE LIST WHOSE SUB-LISTS HAVE THE
6350 * FORM (NAME,(DIMENSION1,DIMENSION2,DIMENSION3),TYPE)
6351 * ARRAYS MAY BE 1, 2, OR 3 DIMENSIONAL AND MAY BE OF LIST OR
6352 * NON-LIST TYPE.
6353 *
6354 * ARRAY IS STORED AS FOLLOWS ...
6355 * SXA ARTGTX,4 ADDRESS OF SUBR TXL INSTRUCTION
6356 * TSX ARYGET,4
6357 * PZE END + 1,, N OF DIMENSIONS (ARRAY PROPERTY POINTS HERE)
6358 * PZE TOTAL LENGTH,,LIST OF LENGTH
6359 * PZE TABLE ZERO,, NUMBER OF DIMENSIONS (ARYGET PARAMETER WORD)
6360 * CLA* **,2 TABLE 1
6361 * *************************
6362 * STO **,1 TABLE 2
6363 * *****************************
6364 * ARRAY PROPER GOES HERE
6365 *
13113 0560 00 0 13115 6366ARYMAKLDQAMFAG PICK UP FUNCTIONAL ARGUMENT
13114 0020 00 0 04214 6367TRAMAPLIS LET MALPIST HANDLE ITERATION ALONG LIS
6368 *
13115 −3 00001 0 13116 6369AMFAGTXL*+1,,1 FUNCTIONAL ARGUMENT
13116 0634 00 4 13320 6370SXAAFRX,4 SAVE INDEX REGISTERS
13117 0634 00 2 13321 6371SXAAFRY,2
13120 −0734 00 4 00000 6372PDX0,4 POINTER TO LIST
13121 0500 00 4 00000 6373CLA0,4
13122 0734 00 4 00000 6374PAX0,4 POINTER TO SUBLIST
13123 −0500 00 4 00000 6375CAL0,4
13124 0734 00 4 00000 6376PAX0,4 NAME
13125 −0634 00 4 03504 6377SXDAFAT,4 SAVE IT
13126 −0734 00 4 00000 6378PDX0,4
13127 0500 00 4 00000 6379CLA0,4
13130 0734 00 2 00000 6380PAX0,2 POINTER TO DIMENSION LIST
13131 −0734 00 4 00000 6381PDX0,4
13132 0500 00 4 00000 6382CLA0,4
13133 0734 00 4 00000 6383PAX0,4 TYPE
13134 0600 00 0 13336 6384STZATYP
13135 −3 07735 4 13140 6385TXLADA,4,$LIST−1 GO IF NOT $ LIST
13136 3 07736 4 13140 6386TXHADA,4,$LIST
13137 −0634 00 4 13336 6387SXDATYP,4 MAKES ATYPE NON-ZERO FOR LIST ARRAYS
13140 0500 00 2 00000 6388ADACLA0,2 FIRST WORD ON DIMENSION LIST
13141 0734 00 2 00000 6389PAX0,2 DIMENSION 1
13142 0622 00 0 03505 6390STDATMP POINTER TO REST
13143 0074 00 4 13075 6391TSXFIXVAL,4 EVALUATE THE FIXED POINT NUMBER
13144 0601 00 0 13340 6392STOADO DIMENSION 1
13145 −0534 00 4 03505 6393LXDATMP,4 PICK UP POINTER TO REST OF LIST
13146 −3 00000 4 13164 6394TXLAOD,4,0 GO IF 1 D
13147 0500 00 4 00000 6395CLA0,4 NEXT WORD
13150 0622 00 0 03505 6396STDATMP SAVE POINTER
13151 0734 00 2 00000 6397PAX0,2 DIMENSION 2
13152 0074 00 4 13075 6398TSXFIXVAL,4 GET NUMBER VALUE
13153 0601 00 0 13341 6399STOADT DIMENSION 2
13154 −0534 00 4 03505 6400LXDATMP,4 POINTER TO REST OF LIST
13155 −3 00000 4 13173 6401TXLATD,4,0 GO IF 2 D ARRAY
13156 0500 00 4 00000 6402CLA0,4
13157 0734 00 2 00000 6403PAX0,2 DIMENSION 3
13160 0074 00 4 13075 6404TSXFIXVAL,4 NUMBER VALUE
13161 0601 00 0 13342 6405STOADTH DIMENSION 3
13162 0774 00 2 00003 6406AXT3,2 NUMBER OF DIMENSIONS
13163 0020 00 0 13177 6407TRAAGA GO TO NEXT PART OF PROGRAM
13164 0500 00 0 13340 6408AODCLAADO 1D, TREAT AS A 1 X 1 X D1 ARRAY
13165 0601 00 0 13342 6409STOADTH
13166 0500 00 0 00371 6410CLA$Q1
13167 0601 00 0 13341 6411STOADT DIMENSION 2
13170 0601 00 0 13340 6412STOADO DIMENSION 1
13171 0774 00 2 00001 6413AXT1,2 1 D ARRAY
13172 0020 00 0 13177 6414TRAAGA GO NEXT PART
13173 0500 00 0 13340 6415ATDCLAADO 2 D, TREAT AS A 1 X D2 X D1 ARRAY
13174 0500 00 0 00371 6416CLA$Q1
13175 0601 00 0 13340 6417STOADO DIMENSION 1
13176 0774 00 2 00002 6418AXT2,2 2 D ARRAY
13177 0560 00 0 13340 6419AGALDQADO DIMENSION 1
13200 −0754 00 0 00000 6420PXD0,0 ZERO AC
13201 0200 00 0 13341 6421MPYADT DIMENSION 2
13202 −0600 00 0 13335 6422STQADOT D1 X D2
13203 0200 00 0 13342 6423MPYADTH DIMENSION 3
13204 0520 00 0 13336 6424ZETATYP SKIP NEXT IF NON-LIST ARRAY
13205 −0600 00 0 13336 6425STQATYP LIST LENGTH
13206 0131 00 0 00000 6426XCA D1 X D2 X D3 TO AC
13207 0400 00 0 13335 6427ADDADOT ADD INDEX TABLE LENGTHS
13210 0400 00 0 13340 6428ADDADO
13211 0400 00 0 00375 6429ADD$Q5 CONSTANT LENGTH
13212 0621 00 0 13333 6430STAAPWT PARAMETER WORD TWO
13213 0621 00 0 13337 6431STAATMQ SAVE LENGTH
13214 0534 00 4 13336 6432LXAATYP,4 ZERO OR LIST LENGTH
13215 0634 00 4 13333 6433SXAAPWT,4 PARAMETER WORD 2
13216 0074 00 4 04004 6434TSXBLOCKR,4 RESERVE A BLOCK OF THIS LENGTH
13217 0100 00 0 13323 6435TZEARYTL GO IF ARRAY WILL NOT FIT
13220 0621 00 0 03505 6436STAATMP END OF BLOCK ADDRESS
13221 0400 00 0 00371 6437ADD$Q1 ADD 1
13222 0621 00 0 13332 6438STAAPWO PARAMETER WORD 1
13223 −0634 00 2 13334 6439SXDATBZ,2 NUMBER OF DIMENSIONS
13224 −0634 00 2 13332 6440SXDAPWO,2
13225 −0634 00 2 13343 6441SXDASBR,2
13226 0402 00 0 13337 6442SUBATMQ LENGTH OF BLOCK
13227 0621 00 0 13343 6443STAASBR ADDRESS OF BEGINNING OG BLOCK
13230 0737 00 4 00000 6444PAC0,4 POINTER IN IR 4
13231 1 77776 4 13232 6445TXI*+1,4,−2 POINTER TO ARRAY PROPERTY
13232 −0634 00 4 13344 6446SXDAARY,4 SAVE POINTER
13233 0737 00 4 00000 6447PAC0,4 POINTER TO BEGINNING OF ARRAY
13234 0400 00 0 00374 6448ADD$Q4 LENGTH OF PREFIX - 1
13235 0400 00 0 13340 6449ADDADO
13236 0621 00 0 13334 6450STAATBZ LAST LOC. IN TAQBLE ONE
13237 0774 00 2 00005 6451AXT5,2 LENGTH OF PREFIX TO ARRAY
13240 0500 00 2 13335 6452ACLACLAADOT,2 PICK UP PREFIX
13241 0601 00 4 00000 6453STO0,4 AND STORE IN CORE
13242 1 77777 4 13243 6454TXI*+1,4,−1 UPDTAEC CORE LOCATION
13243 2 00001 2 13240 6455TIXACLA,2,1 GET REST OF PREFIX
13244 −0320 00 0 00457 6456ANA$AMASK TABLE ZERO IN AC
13245 −0501 00 0 13345 6457ORAACLAS OR IN CLA* INSTRUCTION
13246 0534 00 2 13340 6458LXAADO,2 LENGTH OF TABLE
13247 0400 00 0 13341 6459AADDADDADT INCREMENT BY DIMENSION 2
13250 0601 00 4 00000 6460STO0,4 PUT IN CODE
13251 1 77777 4 13252 6461TXI*+1,4,−1 UP DATE CORE COUNTER
13252 2 00001 2 13247 6462TIXAADD,2,1 FINISH OFFF
13253 0534 00 2 13335 6463LXAADOT,2 LENGTH OF TABLE 2
13254 −0320 00 0 00457 6464ANA$AMASK CLEAR OUT ALL BUT ADDRESS
13255 −0501 00 0 13346 6465ORAARSTO PUT INSTRUCTION
13256 0400 00 0 13342 6466AAAADDADTH ADD DIMENSION 3
13257 0601 00 4 00000 6467STO0,4 PUT IN CORE
13260 1 77777 4 13261 6468TXI*+1,4,−1 UPDATE CORE COUNTER
13261 2 00001 2 13256 6469TIXAAA,2,1 CONTINUE TO CONSTRUCT TABLE
6470 * TABLE CONSTRUCTION ALL DONE.
6471 * THE FOLLOWING ADDS PROPERTYS TO THE ARYATOM
13262 0500 00 0 13344 6472CLAAARY PICK UP POINTER TO TO ARRAY PROPERTY
13263 0560 00 0 00370 6473LDQ$ZERO
13264 0074 00 4 03730 6474TSX$CONS,4
13265 0560 00 0 00370 6475LDQ$ZERO
13266 0074 00 4 03730 6476TSX$CONS,4
13267 0131 00 0 00000 6477XCA
13270 0500 00 0 13347 6478CLAARY POINTER TO ATOMIC SYMBOL ARRAY
13271 0074 00 4 03730 6479TSX$CONS,4 (ARRAY,(POINTER TO ARRAY PROPERTY))
13272 0601 00 0 03505 6480STOATMP SAVE IN TEMP STORAGE
13273 0500 00 0 13343 6481CLAASBR TXL INSTRUCTIONM
13274 0074 00 4 03710 6482TSX$CONSW,4 PUT IN FULL WORD SPACE
13275 0560 00 0 03505 6483LDQATMP REST OF PROPERTIES
13276 0074 00 4 03730 6484TSX$CONS,4
13277 0131 00 0 00000 6485XCA
13300 0500 00 0 00506 6486CLAASB POINTER TO $SUBR ATOMIC SYMBOL
13301 0074 00 4 03730 6487TSX$CONS,4
13302 0131 00 0 00000 6488XCA SAVE IN MQ
13303 −0534 00 4 03504 6489LXDAFAT,4 POINTER TO NAME
13304 0500 00 4 00000 6490CLA0,4 FIRST WORD
13305 −0734 00 4 00000 6491PDX0,4 SAVE POINTER TO REST
13306 −0754 00 4 00000 6492PXD0,4 PUT IN AC
13307 0131 00 0 00000 6493XCA INTER CHANGE AC AND MQ
13310 0074 00 4 07675 6494TSX$NCONC,4 SPLICE 2 LISTS TOGETHER
13311 −0534 00 4 03504 6495LXDAFAT,4 POINTER TO FIRST WORD ON PROPERTY LIST
13312 0622 00 4 00000 6496STD0,4 REPLACE DECREMENT OPERATION
13313 −0754 00 4 00000 6497PXD0,4 POINTER TO ARRY ATOM
13314 0560 00 0 03305 6498LDQARYLIS PICK UP ARRAY LIST
13315 0074 00 4 03730 6499TSX$CONS,4 PUT ON AS ACTIVE ARRAY
13316 0622 00 0 03305 6500STDARYLIS UPDATE ARRAY LIST
13317 0500 00 0 03504 6501CLAAFAT FINAL ANSWER
13320 0774 00 4 00000 6502AFRXAXT**,4 RESTORE INDEX REGISTERS
13321 0774 00 2 00000 6503AFRYAXT**,2
13322 0020 00 4 00001 6504TRA1,4 EXIT
6505 *
13323 −0634 00 4 01562 6506ARYTLSXD$ERROR,4 SAVE INDEX 4
13324 0534 00 2 13321 6507LXAAFRY,2 RESTORE INDEX 2
13325 0500 00 0 03504 6508CLAAFAT ARRAY NAME
13326 0074 00 4 01563 6509TSX$ERROR+1,4 GO TO ERROR
13327 543160600154 6510BCI1,*I␣␣1*
6511 * CONSTANTS AND STORAGE
13330 0634 00 4 13043 6512SXAARYGTX,4 5 WORD PREFIX TO ARRAYS
13331 0074 00 4 13005 6513TSXARYGET,4
13332 0 00000 0 00000 6514APWO END+1,,N OF D
13333 0 00000 0 00000 6515APWT LENGTH,,LIST LENGTH
13334 0 00000 0 00000 6516ATBZ TABLE ZERO,, N OF D
13335 0 00000 0 00000 6517ADOT D1 X D2
13336 0 00000 0 00000 6518ATYP ZERO OR LIST LENGTH
13337 0 00000 0 00000 6519ATMQ TEMPORARY STORAGE
13340 0 00000 0 00000 6520ADO D1
13341 0 00000 0 00000 6521ADT D2
13342 0 00000 0 00000 6522ADTH D3
D13343 −3 00000 0 00000 6523ASBRTXL**,**
13344 0 00000 0 00000 6524AARY POINTER TO ARRAY PROPERTY
13345 0500 60 2 00000 6525ACLASCLA***,2 FETCH INSTRUCTION
13346 0601 00 1 00000 6526ARSTOSTO**,1 PUT INSTRUCTION
13347 0 10735 0 00000 6527ARY ,,$ARRAY
00506 6528ASBSYN$SUBRD
6529 *
6530 *
6531
6532 * UNUMIX EVALUATES ITS 2 NUMERICAL ARGUMENTS AND FLOATS THE FIXED
6533 * POINT ARGUMENT IF A MIXED EXPRESSION. THE NUMERICAL
6534 * VALUES ARE LEFT IN AC AND MQ WITH TYPE OF NUMBER IN $ARG3
6535 *
13350 0634 00 4 13371 6536UNUMIXSXAUNUX,4 SAVE LINK IR
13351 −0600 00 0 13416 6537STQUNUT SAVE SECOND ARGUMENT
13352 0074 00 4 14342 6538TSXNUMVAL,4 NUMERICALLY EVALUATE THE FIRST ARG
13353 −0734 00 4 00000 6539PDX0,4 POINTER TO FULL WORD
13354 0500 00 4 00000 6540CLA0,4 NUMERICAL VALUE
13355 0601 00 0 13415 6541STOUNUS SAVE IT
13356 −0600 00 0 13417 6542STQUNUR SAVE TYPE OF NUMBER
13357 0500 00 0 13416 6543CLAUNUT PICK UP SECOND ARG
13360 0074 00 4 14342 6544TSXNUMVAL,4 NUMERICALLY EVALUATE IT
13361 −0734 00 4 00000 6545PDX0,4 POINTER TO FULL WORD
13362 0500 00 4 00000 6546CLA0,4 NUMERICAL VALUE
13363 0131 00 0 00000 6547XCA VLUE TO MQ, TYPE TO AC
13364 0402 00 0 13417 6548SUBUNUR COMPARE WITH TYPE OF FIRST
13365 −0100 00 0 13373 6549TNZUNMXA TRA IF NOT SAME
13366 0500 00 0 13417 6550UNUECLAUNUR PICK UP NUMBER TYPE
13367 0601 00 0 03321 6551STO$ARG3
13370 0500 00 0 13415 6552CLAUNUS PICK UP FIRST NUMERICAL VALUE
13371 0774 00 4 00000 6553UNUXAXT**,4 RESTORE LINK IR
13372 0020 00 4 00001 6554TRA1,4 EXIT
6555 *
13373 −0600 00 0 13416 6556UNMXASTQUNUT MIXED TYPES, SAVE SECOND VALUE
13374 0634 00 2 13406 6557SXAUNUX2,2 SAVE IR 2
13375 −0534 00 2 13417 6558LXDUNUR,2 PICK UP TYPE OF FIRST NUMBER
13376 0074 00 4 14550 6559TSXFIXFLO,4 DISPATCH
13377 0761 00 0 00000 6560NOP IMPOSSIBLE RETURN
13400 0020 00 0 13410 6561TRAUNMXB FLOAT SECOND NUMBER
13401 0500 00 0 13415 6562CLAUNUS FIRST NUMBER
13402 0074 00 4 14565 6563TSX$UNFIX,4 FLOAT IT
13403 0560 00 0 00476 6564LDQUNFLT $FLOAT FOR TYPE
13404 −0600 00 0 03321 6565STQ$ARG3
13405 0560 00 0 13416 6566LDQUNUT SECOND NUMBER
13406 0774 00 2 00000 6567UNUX2AXT**,2 RESTORE IR 2
13407 0020 00 0 13371 6568TRAUNUX RESTRE LINK AND EXIT
6569 *
13410 0131 00 0 00000 6570UNMXBXCA FLOAT SECOND NUMBER
13411 0074 00 4 14565 6571TSX$UNFIX,4 FLOAT FUNCTION
13412 0131 00 0 00000 6572XCA BACK TO MQ
13413 0534 00 2 13406 6573LXAUNUX2,2 RESTORE IR 2
13414 0020 00 0 13366 6574TRAUNUE GET FIRST NUMBER, RESTORE LINK + EXIT
13415 0 00000 0 00000 6575UNUS FIRST NUMERICAL VALUE
13416 0 00000 0 00000 6576UNUT SECOND ARG AND VALUE
13417 0 00000 0 00000 6577UNUR TYPE OF FIRST ARG
00476 6578UNFLTSYNFLOATD FLOAT INDICATOR
6579 *
6580 * THIS ROUTINE USES NUMVAL,$UNFIX,FIXFLO, AND $ARG3 + $FLOAT
6581 *
6582 *
6583 * DIVIDE DIVIDES THE FIRST NUMERICAL ARGUMENT BY THE SECOND. THE
6584 * ANSWER IS A LIST OF THE QUOTIENT AND THE REMAINDER.
6585 *
6586 * QUOTEN GIVES THE QUOTIENT WHEN THE FIRST NUMERICAL ARGUMENT IS
6587 * DIVIDED BY THE SECOND.
6588 *
6589 * REMAIN GIVES THE REMAINDER WHEN THE FIRST NUMERICAL ARGUMENT IS
6590 * DIVIDED BY THE SECOND.
13420 0604 00 0 13510 6591DIVIDESTIDIVND SAVE INDICATORS
13421 0057 00 000003 6592RIR3 DIIDE INDICATE
13422 0020 00 0 13432 6593TRADIVOP DO OPERATION
6594 *
13423 0604 00 0 13510 6595REMAINSTIDIVND SAVE INDICATORS
13424 0057 00 000003 6596RIR3 DIVIDE INDICATE
13425 0055 00 000002 6597SIR2 SET REMAINDER INDICATOR
13426 0020 00 0 13432 6598TRADIVOP DO OPERATION
6599 *
13427 0604 00 0 13510 6600QUOTENSTIDIVND SAVE INDICATORS
13430 0057 00 000003 6601RIR3 DIVIDE INDICATE
13431 0055 00 000001 6602SIR1 QUOTIENT INDICATOR
13432 0634 00 4 13501 6603DIVOPSXADIVX,4 SAVE LINK IR
13433 0634 00 2 13500 6604SXADIVX2,2 SAVE IR 2
13434 0074 00 4 13350 6605TSXUNUMIX,4 NUMERICALLY EVALUATE THE ARGUMENTS
13435 −0534 00 2 03321 6606LXD$ARG3,2 PICK UP TYPE
13436 −0600 00 0 13511 6607STQDIVT SECOND ARGUMENT
13437 0074 00 4 14550 6608TSXFIXFLO,4 DISPATCH ON TYPE
13440 0761 00 0 00000 6609NOP IMPOSSIBLE RETURN
13441 0241 00 0 13511 6610FDPDIVT FLOATING DIVIDE
13442 0020 00 0 13471 6611TRADIVFX DO FIXED POINT DIVIDE
13443 0760 00 0 00012 6612DIVDCDCT CHECK FOR ILLEGAL DIVISION
13444 0074 00 4 01676 6613TSX$DCT,4 DIVIDE CHECK ERROR
13445 0054 00 000001 6614RFT1 SEE IF REMAINDER IS TO BE SAVED
13446 0020 00 0 13476 6615TRADIVA NO, SET UP QUOTIENT
13447 −0600 00 0 13511 6616STQDIVT YES, SAVE QUOTEINT
13450 0560 00 0 03321 6617LDQ$ARG3 PICK UP TYPE
13451 0074 00 4 12636 6618TSX$MKNO,4 MAKE REMAINDER A NUMBER
13452 0054 00 000002 6619RFT2 SEST TO SEE IF QUOTIENT IS WANTED
13453 0020 00 0 13504 6620TRADIVEX NO, RESTORE AND EXIT
13454 0560 00 0 00370 6621LDQ$ZERO NIL IN MQ
13455 0074 00 4 03730 6622TSX$CONS,4 LIST OF REMAINDER
13456 0131 00 0 00000 6623XCA SHUTTLE INTO MQ
13457 0500 00 0 13511 6624CLADIVT PICK UP QUOTIENT
13460 −0600 00 0 13511 6625STQDIVT SAVE LIST OF REMAINDER
13461 0560 00 0 03321 6626LDQ$ARG3 PICK UP TYPE
13462 0074 00 4 12636 6627TSX$MKNO,4 MAKE QUOTIENT A NUMBER
13463 0560 00 0 13511 6628LDQDIVT LIST(REMAINDER)
13464 0074 00 4 03730 6629TSX$CONS,4 LIST(QUOTIENT,REMAINDER)
13465 0534 00 4 13501 6630LXADIVX,4 RESTORE LINK IR
13466 0534 00 2 13500 6631LXADIVX2,2 RESTORE IR 2
13467 0441 00 0 13510 6632LDIDIVND RESTORE INDICATORS
13470 0020 00 4 00001 6633TRA1,4 EXIT
6634 *
13471 0131 00 0 00000 6635DIVFXXCA FIXED POINT DIVISION. PUT ARG 1 IN MQ
13472 −0754 00 0 00000 6636PXD0,0 CLEAR AC
13473 0763 00 0 00000 6637LLS0 MQ SIGN TO AC
13474 0221 00 0 13511 6638DVPDIVT DIVIDE BY ARG 2
13475 0020 00 0 13443 6639TRADIVDC PREFORM DIVIDE CHECK AND CARRY ON
13476 0131 00 0 00000 6640DIVAXCA QUOTIENT TO AC
13477 0560 00 0 03321 6641LDQ$ARG3 TYPE TO MQ
13500 0774 00 2 00000 6642DIVX2AXT**,2 RESTORE IR 2
13501 0774 00 4 00000 6643DIVXAXT**,4 RESTORE LINK IR
13502 0441 00 0 13510 6644LDIDIVND RESTORE INDICATORS
13503 0020 00 0 12636 6645TRA$MKNO
6646 *
13504 0534 00 2 13500 6647DIVEXLXADIVX2,2 EXIT ROUTINE, RESTORE IR 2
13505 0534 00 4 13501 6648LXADIVX,4 RESTORE LINK IR
13506 0441 00 0 13510 6649LDIDIVND RESTORE INDICATORS
13507 0020 00 4 00001 6650TRA1,4
6651 *
13510 0 00000 0 00000 6652DIVND INDICATORS STORAGE
13511 0 00000 0 00000 6653DIVT LIST AND NON-LIST TEMPORARY STORAGE
6654 *
6655 * THIS ROUTINE USES $MKNO,$DCT,$CONS,$ARG3 AND UNUMIX
6656 *
6657 *
6658 * DIFFER COMPUTES THE DIFFERENCE BETWEEN ITS 2 NUMERICAL ARGUMENTS
6659 *
13512 0634 00 4 13525 6660DIFFERSXADIFX,4 SAVE LINK IR
13513 0634 00 2 13524 6661SXADIFX2,2 SAVE IR 2
13514 0074 00 4 13350 6662TSXUNUMIX,4 NUMERICALLY EVALUATE THE ARGUMENTS
13515 −0534 00 2 03321 6663LXD$ARG3,2 PICK UP TYPE OF NUMBERS
13516 −0600 00 0 13527 6664STQDIFT STORE SECOND NUMBER
13517 0074 00 4 14550 6665TSXFIXFLO,4 DISPATCH ON TYPE
13520 0761 00 0 00000 6666NOP IMPOSSIBLE RETURN
13521 0302 00 0 13527 6667FSBDIFT FLOATING POINT
13522 0402 00 0 13527 6668SUBDIFT FIXED POINT
13523 0560 00 0 03321 6669LDQ$ARG3 TYPE OF NUMBER
13524 0774 00 2 00000 6670DIFX2AXT**,2 RESTORE IR 2
13525 0774 00 4 00000 6671DIFXAXT**,4 RESTORE LINK IR
13526 0020 00 0 12636 6672TRA$MKNO MAKE RESULT A NUMBER
6673 *
13527 0 00000 0 00000 6674DIFT TEMPORARY STORAGE
6675 *
6676 * THIS ROUTINE USES UNUMIX,FIXFLO,$ARG3 AND $MKNO
6677 *
6678 *
6679 * EXPT TAKES 2 FIXED OR FLOATING POINT NUMBERS AS ARGUMENTS AND RAISES
6680 * THE FIRST TO THE POWER INDICATED BY THE SECOND.
6681 *
13530 0634 00 4 13567 6682EXPTSXAEXPX,4 SAVE LINK IR
13531 0634 00 2 13570 6683SXAEXPY,2 SAVE IR 2
13532 0074 00 4 13350 6684TSXUNUMIX,4 EVALUATE THE 2 ARGUMENTS AS NUMBERS
13533 −0534 00 2 03321 6685LXD$ARG3,2 PICK UP TYPE OF NUMBERS
13534 0074 00 4 14550 6686TSXFIXFLO,4 DISPATCH ON FIX OR FLOAT
13535 0761 00 0 00000 6687NOP IMPOSSIBLE RETURN
13536 0020 00 0 13564 6688TRAEXPA IS FLOATING POINT
13537 0120 00 0 13546 6689TPLEXPB
13540 0534 00 2 13570 6690EXPCLXAEXPY,2 RESTORE IR 2
13541 0534 00 4 13567 6691LXAEXPX,4 RESTORE IR 4
13542 −0634 00 4 01562 6692SXD$ERROR,4 SAVE IN $ERROR
13543 −0754 00 0 00000 6693PXD0,0 CLEAR AC
13544 0074 00 4 01563 6694TSX$ERROR+1,4 GO TO ERROR
13545 543160600254 6695BCI1,*I␣␣2*
13546 0131 00 0 00000 6696EXPBXCA INTERCHANGED FIXED POINT ARGUMENTS.
13547 −0600 00 0 77662 6697STQCOMMON TEMPORARY STORAGE
13550 0734 00 4 00000 6698PAX0,4 EXPONENT
13551 −3 00000 4 13561 6699TXLOUT,4,0 GO IF ZERO POWER
13552 −2 00001 4 13556 6700TNXOUT1,4,1 GO IF TO FIRST POWER
13553 −0754 00 0 00000 6701PXD0,0 CLEAR AC
13554 0200 00 0 77662 6702MPYCOMMON RAISE TO GIVEN POWER
13555 2 00001 4 13554 6703TIX*−1,4,1 IN LOOP
13556 0131 00 0 00000 6704OUT1XCA ANSWER TO AC
13557 0560 00 0 00475 6705LDQ$FIXD $FIX TO DECREMENT
13560 0020 00 0 13567 6706TRAEXPX RESTORE INDEX REGISYERS AND MAKE NUMBR
13561 0500 00 0 00371 6707OUTCLA$Q1 ANSWER IS 1
13562 0560 00 0 00475 6708LDQ$FIXD $FIX TO MQ
13563 0020 00 0 13567 6709TRAEXPX EXIT
13564 −0120 00 0 13540 6710EXPATMIEXPC
13565 0074 00 4 13572 6711TSX$POWR,4 POWER ROUTINE
13566 0560 00 0 00476 6712LDQFLOATD $FLOAT TO MQ
13567 0774 00 4 00000 6713EXPXAXT**,4 RESTORE INDEX REGISTERS
13570 0774 00 2 00000 6714EXPYAXT**,2
13571 0020 00 0 12636 6715TRA$MKNO MAKE ANSWER AN NUMBER
6716 POWER
6717G HED
13572 −0600 00 0 13714 6718POWRSTQN
13573 −0634 00 1 77662 6719SXDCOMMON,1
13574 −0634 00 2 77663 6720SXDCOMMON+1,2
13575 0534 00 1 00370 6721P19LXAZERO,1
13576 0534 00 2 00370 6722LXAZERO,2
13577 0765 00 0 00033 6723LRS27
13600 0402 00 0 00415 6724SUBL200
13601 −0600 00 0 13715 6725STQFN
13602 0560 00 0 00370 6726LDQZERO
13603 −0100 00 0 13606 6727TNZP01
13604 0601 00 0 13716 6728STOE
13605 0020 00 0 13620 6729TRAP02
13606 0765 00 0 00001 6730P01LRS1
13607 1 00001 1 13610 6731TXIP03,1,1
13610 −0100 00 0 13606 6732P03TNZP01
13611 −0754 00 1 00000 6733PXD0,1
13612 0771 00 0 00022 6734ARS18
13613 0760 00 0 00003 6735SSP
13614 0400 00 0 00415 6736ADDL200
13615 0763 00 0 00033 6737LLS27
13616 0601 00 0 13716 6738STOE
13617 0760 00 0 00000 6739CLM
13620 0560 00 0 13715 6740P02LDQFN
13621 0763 00 0 00033 6741LLS27
13622 0400 00 0 00435 6742ADDLL200
13623 0300 00 0 13717 6743FADRSQ
13624 0601 00 0 13720 6744STOP04
13625 0302 00 0 13726 6745FSBSQ
13626 0240 00 0 13720 6746FDHP04
13627 −0600 00 0 13721 6747STQP05
13630 0260 00 0 13721 6748FMPP05
13631 0601 00 0 13722 6749STOP06
13632 0560 00 0 13722 6750P08LDQP06
13633 0260 00 2 13733 6751FMPC7,2
13634 0300 00 2 13732 6752FADC5,2
13635 0601 00 2 13732 6753STOC5,2
13636 1 00001 2 13637 6754TXIP07,2,1
13637 −3 00002 2 13632 6755P07TXLP08,2,2
13640 0560 00 0 13730 6756LDQC1
13641 0260 00 0 13721 6757FMPP05
13642 0302 00 0 13727 6758FSBR2
13643 0300 00 0 13716 6759FADE
13644 0601 00 0 13716 6760P18STOE
13645 0560 00 0 13714 6761LDQN
13646 0260 00 0 13716 6762FMPE
13647 0601 00 0 13714 6763STON
13650 0020 00 0 14023 6764TRAP09
13651 0 00000 0 00000 6765M1
13652 0 00000 0 00000 6766M2
13653 0 00000 0 00001 6767M3 1
13654 0 00400 0 00000 6768M4 0,0,256
13655 0534 00 1 00370 6769P41LXAZERO,1
13656 0560 00 0 13725 6770P11LDQW
13657 0260 00 1 13746 6771FMPA6,1
13660 0300 00 1 13745 6772FADA5,1
13661 0601 00 1 13745 6773STOA5,1
13662 1 00001 1 13663 6774TXIP10,1,1
13663 −3 00005 1 13656 6775P10TXLP11,1,5
13664 0601 00 0 13725 6776STOW
13665 0534 00 2 00370 6777LXAZERO,2
13666 0500 00 2 13755 6778P13CLAAP6,2
13667 0601 00 2 13746 6779STOA6,2
13670 1 00001 2 13671 6780TXIP12,2,1
13671 −3 00006 2 13666 6781P12TXLP13,2,6
13672 0534 00 1 00370 6782LXAZERO,1
13673 0500 00 1 13737 6783P15CLACP7,1
13674 0601 00 1 13733 6784STOC7,1
13675 1 00001 1 13676 6785TXIP14,1,1
13676 −3 00003 1 13673 6786P14TXLP15,1,3
13677 0560 00 0 13725 6787LDQW
13700 0260 00 0 13725 6788FMPW
13701 0601 00 0 13725 6789STOW
13702 0560 00 0 13725 6790LDQW
13703 0260 00 0 13725 6791FMPW
13704 0601 00 0 13725 6792STOW
13705 0020 00 0 13756 6793TRAP16
13706 0 00000 0 00000 6794EA
13707 0020 00 0 13763 6795P171TRAP17
13710 0 00000 0 00000 6796P24
13711 0601 00 0 13716 6797P21STOE
13712 0 00000 0 00000 6798S1
13713 0 00000 0 00000 6799S2
13714 0 00000 0 00000 6800N
00370 6801ZEROSYN$ZERO
00415 6802L200SYN$QO200
13715 0 00000 0 00000 6803FN
13716 0 00000 0 00000 6804E
00435 6805LL200SYNQO2Q11
13717 +200552023632 6806RSQOCT+200552023632
13720 0 00000 0 00000 6807P04
13721 0 00000 0 00000 6808P05
13722 0 00000 0 00000 6809P06
13723 +200542710300 6810LOGOCT+200542710300
13724 0 00000 0 00000 6811S3
6812
13725 0 00000 0 00000 6813W
13726 +201552023632 6814SQOCT+201552023632
13727 +200400000000 6815R2OCT+200400000000
13730 +202561250731 6816C1OCT+202561250731
13731 +200754342231 6817OCT+200754342231
13732 +200447154100 6818C5OCT+200447154100
13733 +177674535132 6819C7OCT+177674535132
13734 +202561250731 6820OCT+202561250731
13735 +200754342231 6821OCT+200754342231
13736 +200447154100 6822OCT+200447154100
13737 +177674535132 6823CP7OCT+177674535132
13740 +201400000000 6824OCT+201400000000
13741 +176777776476 6825OCT+176777776476
13742 +174400037635 6826OCT+174400037635
13743 +170523517764 6827OCT+170523517764
13744 +164547625227 6828OCT+164547625227
13745 +157554324201 6829A5OCT+157554324201
13746 +154562606535 6830A6OCT+154562606535
13747 +201400000000 6831L1OCT+201400000000
13750 +176777776476 6832OCT+176777776476
13751 +174400037635 6833OCT+174400037635
13752 +170523517764 6834OCT+170523517764
13753 +164547625227 6835OCT+164547625227
13754 +157554324201 6836OCT+157554324201
13755 +154562606535 6837AP6OCT+154562606535
13756 0601 00 0 14022 6838P16STOEW
13757 0500 00 0 13707 6839CLAP171
13760 0601 00 0 13644 6840STOP18
13761 0500 00 0 14022 6841CLAEW
13762 0020 00 0 13575 6842TRAP19
13763 0020 00 0 14123 6843P17TRAP20
13764 0500 00 0 13711 6844P42CLAP21
13765 0601 00 0 13644 6845STOP18
13766 0534 00 1 00370 6846LXAZERO,1
13767 0500 00 1 13737 6847P23CLACP7,1
13770 0601 00 1 13733 6848STOC7,1
13771 1 00001 1 13772 6849TXIP22,1,1
13772 −3 00003 1 13767 6850P22TXLP23,1,3
13773 0560 00 0 13710 6851LDQP24
13774 0260 00 0 13723 6852FMPLOG
13775 0302 00 0 13724 6853FSBS3
13776 0140 00 0 14013 6854TOVP25
13777 0601 00 0 13712 6855STOS1
14000 0560 00 0 13712 6856LDQS1
14001 0260 00 0 13727 6857FMPR2
14002 0302 00 0 13747 6858FSBL1
14003 0601 00 0 13713 6859STOS2
14004 0560 00 0 13712 6860LDQS1
14005 0260 00 0 13713 6861FMPS2
14006 0300 00 0 13747 6862FADL1
14007 0601 00 0 13712 6863STOS1
14010 0560 00 0 14022 6864LDQEW
14011 0260 00 0 13712 6865FMPS1
14012 0601 00 0 14022 6866STOEW
14013 0560 00 0 13651 6867P25LDQM1
14014 0260 00 0 14022 6868FMPEW
14015 0601 00 0 14022 6869STOEW
14016 0500 00 0 13714 6870CLAN
14017 0120 00 0 14113 6871TPLP26
14020 0500 00 0 13747 6872CLAL1
14021 0020 00 0 14111 6873TRAP27
14022 0 00000 0 00000 6874EW
14023 0560 00 0 00370 6875P09LDQZERO
14024 0760 00 0 00003 6876SSP
14025 0765 00 0 00033 6877LRS27
14026 0402 00 0 00415 6878SUBL200
14027 0020 00 0 14106 6879TRAP28
14030 0500 00 0 00370 6880P40CLAZERO
14031 0763 00 0 00000 6881P39LLS**
14032 0400 00 0 00415 6882ADDL200
14033 0400 00 0 13653 6883ADDM3
14034 0767 00 0 00033 6884ALS27
14035 0400 00 0 13654 6885ADDM4
14036 0601 00 0 13651 6886STOM1
14037 −0600 00 0 13652 6887STQM2
14040 0500 00 0 13652 6888CLAM2
14041 −0100 00 0 14060 6889TNZP29
14042 0500 00 0 13714 6890CLAN
14043 0120 00 0 14047 6891TPLP30
14044 0500 00 0 13747 6892CLAL1
14045 0240 00 0 13651 6893FDHM1
14046 −0600 00 0 13651 6894STQM1
14047 0534 00 1 00370 6895P30LXAZERO,1
14050 0500 00 1 13737 6896P32CLACP7,1
14051 0601 00 1 13733 6897STOC7,1
14052 1 00001 1 14053 6898TXIP31,1,1
14053 −3 00003 1 14050 6899P31TXLP32,1,3
14054 0500 00 0 13651 6900CLAM1
14055 −0534 00 1 77662 6901LXDCOMMON,1
14056 −0534 00 2 77663 6902LXDCOMMON+1,2
14057 0020 00 4 00001 6903TRA1,4
14060 0760 00 0 00000 6904P29CLM
14061 0534 00 2 00370 6905LXAZERO,2
14062 0763 00 0 00001 6906P34LLS1
14063 1 00001 2 14064 6907TXIP33,2,1
14064 0100 00 0 14062 6908P33TZEP34
14065 0765 00 0 00001 6909LRS1
14066 −0754 00 2 00000 6910PXD0,2
14067 0771 00 0 00022 6911ARS18
14070 −0760 00 0 00003 6912SSM
14071 0400 00 0 00415 6913ADDL200
14072 0400 00 0 13653 6914ADDM3
14073 0763 00 0 00033 6915LLS27
14074 0601 00 0 13652 6916P36STOM2
14075 0560 00 0 13723 6917LDQLOG
14076 0260 00 0 13652 6918FMPM2
14077 0601 00 0 13725 6919STOW
14100 0020 00 0 14121 6920TRAP35
14101 0500 00 0 13747 6921P37CLAL1
14102 0601 00 0 13651 6922STOM1
14103 0500 00 0 13714 6923CLAN
14104 0760 00 0 00003 6924SSP
14105 0020 00 0 14074 6925TRAP36
14106 0100 00 0 14101 6926P28TZEP37
14107 −0120 00 0 14101 6927TMIP37
14110 0020 00 0 14117 6928TRAP38
14111 0240 00 0 14022 6929P27FDHEW
14112 −0600 00 0 14022 6930STQEW
14113 0500 00 0 14022 6931P26CLAEW
14114 −0534 00 1 77662 6932LXDCOMMON,1
14115 −0534 00 2 77663 6933LXDCOMMON+1,2
14116 0020 00 4 00001 6934TRA1,4
14117 0621 00 0 14031 6935P38STAP39
14120 0020 00 0 14030 6936TRAP40
14121 0601 00 0 13724 6937P35STOS3
14122 0020 00 0 13655 6938TRAP41
14123 0760 00 0 00003 6939P20SSP
14124 0601 00 0 13710 6940STOP24
14125 0020 00 0 13764 6941TRAP42
6942HEADQ
6943 * ADD ADDS A STRING OF FIXED POINT OR FLOATING POINT NUMBERS
14126 −0634 00 4 03500 6944ADDPSXDAMIR,4 SAVE LINK IR
14127 0774 00 4 07355 6945AXT$PLUS,4
14130 0604 00 0 03501 6946STIAMIND SAVE INDICATORS
14131 0057 00 000177 6947RIR177 RESET FIRST 7 INDICATORS
14132 0055 00 000001 6948SIR1 SET ADD INDICATOR (1)
14133 0020 00 0 14155 6949TRAAMMMF GO TO MAIN FUNCTION
6950 *
14134 −0634 00 4 03500 6951MULTSXDAMIR,4 SAVE LINK IR
14135 0774 00 4 06657 6952AXT$TIMES,4
14136 0604 00 0 03501 6953STIAMIND SAVE INDICATORS
14137 0057 00 000177 6954RIR177 RESET FIRST 7 INDICATORS
14140 0055 00 000002 6955SIR2 SET MULTIPLY INDICATOR (2)
14141 0020 00 0 14155 6956TRAAMMMF GO TO MAIN FUNCTION
6957 *
14142 −0634 00 4 03500 6958MINSXDAMIR,4 SAVE LINK IR
14143 0774 00 4 07604 6959AXT$MINP,4
14144 0604 00 0 03501 6960STIAMIND SAVE INDICATORS
14145 0057 00 000177 6961RIR177 RESET FIRST 7 INDICATORS
14146 0055 00 000010 6962SIR10 SET MINIMUM INDICATOR (10)
14147 0020 00 0 14155 6963TRAAMMMF GO TO MAIN FUNCTION
6964 *
14150 −0634 00 4 03500 6965MAXSXDAMIR,4 SAVE LINK IR
14151 0774 00 4 07614 6966AXT$MAXP,4
14152 0604 00 0 03501 6967STIAMIND SAVE INDICATORS
14153 0057 00 000177 6968RIR177 RESET FIRST 7 INDICATORS
14154 0055 00 000004 6969SIR4 SET MAXIMUM INDICATOR (4)
14155 0634 00 4 03500 6970AMMMFSXAAMIR,4 PUT PROGRAM NAME WITH LINK IR
14156 0074 00 4 02312 6971TSX$SAVE,4 OTHER 3 FUNCTIONS ENTER AT *-1
14157 −3 03503 0 02377 6972TXL$END2,,AMIND+2 SAVE 2 ITEMS
14160 0074 00 4 15774 6973TSX$EVLIS,4 EVALUATE THE LIST OF ARGUMENTS
14161 0074 00 4 02326 6974TSXUNSAVE,4 RESTORE IR 4 AND INDICATORS
14162 0634 00 2 14336 6975SXAAMIR2,2 SAVE IR 2
14163 0600 00 0 14341 6976STZAMSUM ZERO FINAL ANSWER REGISTER
14164 −0734 00 4 00000 6977AMLPPDX0,4 PUT POINTER TO ARG LIST IN IR 4
14165 −3 00000 4 14330 6978TXLAMEND,4,0 GO TO EXIT IF NULL
14166 0500 00 4 00000 6979CLA0,4 GET FIRST WORD
14167 0601 00 0 03502 6980STOAMLIS SAVE THE WORD
14170 0734 00 4 00000 6981PAX0,4 CAR OF LIST
14171 −0754 00 4 00000 6982PXD0,4 TO DECREMENT
14172 0074 00 4 14342 6983TSXNUMVAL,4 EVALUATE THE ITEM
14173 −0600 00 0 03503 6984STQAMQ SAVE CHARACTERISTIC ($FIX OR $FLOAT)
14174 0056 00 000100 6985RNT100 TEST FOR FIRST TIME THROUGH
14175 0020 00 0 14220 6986TRAAMFRS IS FIRST TIME GO TO INITIALIZE AMSUM
14176 0054 00 000002 6987RFT2 TEST FOR MULT FUNCTION
14177 0020 00 0 14240 6988TRAAMLT EXECUTE MULT FUNCTION
14200 −0734 00 4 00000 6989PDX0,4 POINTER TO FULL WORD
14201 0500 00 4 00000 6990CLA0,4 GET NUMERICAL VALUE
14202 0056 00 000001 6991RNT1 SKIP NEXT INSTRUCTION IF ADD FUNCTION
14203 0020 00 0 14300 6992TRAAMM EXECUTE MAX OR MIN FUNCTION
14204 −0534 00 2 03503 6993LXDAMQ,2 ADD FUNCTION. PICK UP TYPE OF NUMBER
14205 0074 00 4 14550 6994TSXFIXFLO,4 TEST FOR FIX OR FLOAT
14206 0761 00 0 00000 6995NOP IMPOSSIBLE RETURN
14207 0020 00 0 14233 6996TRAAFLL EXECUTE FAD
14210 0055 00 000020 6997SIR20 IS FIXED POINT. SET FIXED POINT IND.
14211 −0774 00 4 14235 6998AXCAFLR,4 PRESET IR 4
14212 0054 00 000040 6999RFT40 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
14213 0020 00 0 14266 7000TRAUNFX IS MIXED, FLOAT THIS NUMBER
14214 0400 00 0 14341 7001ADDAMSUM FIXED ADD OF SUM
14215 0601 00 0 14341 7002AMRTSTOAMSUM STORE NEW SUM
14216 0500 00 0 03502 7003CLAAMLIS PICK UP ARG LIST
14217 0020 00 0 14164 7004TRAAMLP DO NEXT ITEM
14220 −0734 00 4 00000 7005AMFRSPDX0,4 POINTER TO FULL WORD
14221 0500 00 4 00000 7006CLA0,4 GET NUMERICAL VALUE
14222 0601 00 0 14341 7007STOAMSUM STORE NUMERICAL VALUE IN AMSUM
14223 −0534 00 2 03503 7008LXDAMQ,2 PICK UP TYPE OF NUMBER
14224 0074 00 4 14550 7009TSXFIXFLO,4 TEST FOR FIX OR FLOAT
14225 0761 00 0 00000 7010NOP IMPOSSIBLE EXIT
14226 0055 00 000040 7011SIR40 SET FLOAT INDICATOR
14227 0055 00 000020 7012SIR20 SET FIX INDICATOR
14230 0055 00 000100 7013SIR100 SET INDICATOR SO IT WILL NOT GET BACK
14231 0500 00 0 03502 7014CLAAMLIS PICK UP REST OF ARG LIST
14232 0020 00 0 14164 7015TRAAMLP DO NEXT ITEM
14233 0055 00 000040 7016AFLLSIR40 IS FLOATING POINT, SET PROPER INDICATO
14234 0054 00 000020 7017RFT20 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
14235 0074 00 4 14270 7018AFLRTSXMIXFL,4 UNMIX THE EXPRESSION
14236 0300 00 0 14341 7019FADAMSUM FLOATING ADD THE CURRENT SUM
14237 0020 00 0 14215 7020TRAAMRT STORE AND DO NEXT ITEM ON LIST
14240 −0734 00 4 00000 7021AMLTPDX0,4 POINTER TO FULL WORD
14241 0500 00 4 00000 7022CLA0,4 GET NUMERICAL VALUE
14242 −0534 00 2 03503 7023LXDAMQ,2 PICK UP TYPE
14243 0074 00 4 14550 7024TSXFIXFLO,4 TEST FOR FIX OR FLOAT
14244 0761 00 0 00000 7025NOP IMPOSSIBLE RETURN
14245 0020 00 0 14260 7026TRAAFMP DO FMP
14246 0055 00 000020 7027SIR20 SET FIXED POINT INDICATOR
14247 −0774 00 4 14262 7028AXCAFLT,4 PRESET IR 4
14250 0054 00 000040 7029RFT40 SKIP NEXT INSTRUCTION IF NOT MIXED EXP
14251 0020 00 0 14266 7030TRAUNFX IS MIXED, FLOAT THIS NUMBER
14252 0131 00 0 00000 7031XCA NUMBER TO MQ
14253 0200 00 0 14341 7032MPYAMSUM MPY BY CURRENT ANSWER
14254 0131 00 0 00000 7033XCA PUT LEAST SIGNIFICANT DIGITS IN AC
14255 0601 00 0 14341 7034AMRUSTOAMSUM STORE NEW ANSWER
14256 0500 00 0 03502 7035CLAAMLIS PICK UP ARG LIST
14257 0020 00 0 14164 7036TRAAMLP DO NEXT ITEM
14260 0055 00 000040 7037AFMPSIR40 SET FLOATING POINT INDICATOR
14261 0054 00 000020 7038RFT20 TEST FOR MIXED EXP
14262 0074 00 4 14270 7039AFLTTSXMIXFL,4 UNMIX THE EXPRESSION
14263 0131 00 0 00000 7040XCA NUMBER TO MQ
14264 0260 00 0 14341 7041FMPAMSUM FMP BY CURRENT ANSWER
14265 0020 00 0 14255 7042TRAAMRU STORE NEW ANSER AND DO NEXT ITEM
14266 0057 00 000020 7043UNFXRIR20 RESET FIXED POINT INDICATOR
14267 0020 00 0 14565 7044TRA$UNFIX FLOAT THE NUMBER IN THE AC
14270 0634 00 4 14276 7045MIXFLSXAMXIR,4 FIX MIXED EXPRESSION
14271 0601 00 0 14340 7046STOAMR SAVE AC
14272 0500 00 0 14341 7047CLAAMSUM PICK UP CURRENT ANSWER
14273 0074 00 4 14266 7048TSXUNFX,4 FLOAT IT
14274 0601 00 0 14341 7049STOAMSUM PUT IT AWAY
14275 0500 00 0 14340 7050CLAAMR RESTORE AC
14276 0774 00 4 00000 7051MXIRAXT**,4 RESTORE IR 4
14277 0020 00 4 00001 7052TRA1,4 RETURN
14300 −0534 00 2 03503 7053AMMLXDAMQ,2 MAX OR MIN FUNCTION. GET TYPE
14301 0074 00 4 14550 7054TSXFIXFLO,4 TEST FOR FIX OR FLOAT
14302 0761 00 0 00000 7055NOP IMPOSSIBLE RETURN
14303 0020 00 0 14316 7056TRAAFL EXECUTE FLOATING SECTION
14304 0055 00 000020 7057SIR20 SET FIXED PONT INDICATOR
14305 0054 00 000040 7058RFT40 TEST FOR MIXED EXP
14306 0074 00 4 14266 7059TSXUNFX,4 FLOAT THE ARGUMENT IF MIXED
14307 0056 00 000004 7060AMRNTRNT4 TEST FORMAX FUNCTION
14310 0020 00 0 14322 7061TRAAMIN EXECUTE MIN FUNCTION
14311 0340 00 0 14341 7062CASAMSUM COMPARE WITH CURRENT ANSWER
14312 0601 00 0 14341 7063STOAMSUM IS GREATER, STORE AS NEW ANSWER
14313 0761 00 0 00000 7064NOP THEY ARE EQUAL
14314 0500 00 0 03502 7065CLAAMLIS IS LESS, PICK UP ARGUMENT LIST
14315 0020 00 0 14164 7066TRAAMLP DO NEXT ITEM
14316 0055 00 000040 7067AFLSIR40 SET FLOATING POINT INDICATOR
14317 0054 00 000020 7068RFT20 TEST FOR MIXED EXPRESSION
14320 0074 00 4 14270 7069TSXMIXFL,4 UNMIX THE EXPRESSION
14321 0020 00 0 14307 7070TRAAMRNT COMPARE AND DO NEXT ITEM
14322 0340 00 0 14341 7071AMINCASAMSUM MIN FUNCTION, COMPARE WITH CURRENT VAL
14323 0020 00 0 14326 7072TRA*+3 IS GREATER
14324 0020 00 0 14326 7073TRA*+2 IS EQUAL
14325 0601 00 0 14341 7074STOAMSUM IS LESS, STORE AS NEW ANSWER
14326 0500 00 0 03502 7075CLAAMLIS PICK UP NEXT ITEM
14327 0020 00 0 14164 7076TRAAMLP EXECUTE IT
14330 0500 00 0 14341 7077AMENDCLAAMSUM ALL DONE. PICKUP CURRENT ANSWER
14331 0560 00 0 00475 7078LDQAMFXC PRESET MQ
14332 0054 00 000040 7079RFT40 SKIP NEXT IF FIXED POINT
14333 0560 00 0 00476 7080LDQAMFLC PICK UPI FIX IN MQ
14334 0441 00 0 03501 7081LDIAMIND RESTORE INDICATORS
14335 −0534 00 4 03500 7082LXDAMIR,4 RESTORE IR 4
14336 0774 00 2 00000 7083AMIR2AXT**,2 RESTORE IR 2
14337 0020 00 0 12636 7084TRA$MKNO MAKE THE ANSWER A NUMBER
00476 7085AMFLCSYNFLOATD FLAOT CONSTANT
00475 7086AMFXCSYN$FIXD FIX CONSTANT
14340 0 00000 0 00000 7087AMR TEMP STORAGE
14341 0 00000 0 00000 7088AMSUM CURRENT ANSWER STORAGE
7089 * NUMVAL NUMERICAL VALUE TAKES ANY LIST AND DECIDES IF IT
7090 * REPRESENTS A FIXED POINT OR FLOATING POINT NUMBER. IF IT DOES NOT
7091 * THE ROUTINE CLEARS THE AC AND MQ DOES AN XEC 1,4 AND THEN GOES
7092 * TO ERROR WITH A BAD ARGUMENT COMPLAINT. IF THE LIST DOES
7093
7094 * REPRESENT A NUMBER, UPON EXIT THE FOLLOWING THINGS ARE LEFT
7095 * AS INDICATED POINTER TO FULL WORD IN AC
7096 * $FIX OR $FLOAT IN MQ
14342 0634 00 4 14372 7097NUMVALSXANVIR4,4 SAVE LINK IR
14343 0601 00 0 03321 7098STO$ARG3 SAVE ORIGINAL ARGUMENT
14344 −0734 00 4 00000 7099PDX0,4 POINTER TO NUMBER IN IR 4
14345 −3 00000 4 14351 7100NVLPTXLNVNO,4,0 NULL LIST IS NOT A NUMBER
14346 0500 00 4 00000 7101CLA0,4 FIRST ELEMENT
14347 0734 00 4 00000 7102PAX0,4 CAR LIST
14350 3 77776 4 14362 7103TXHNVATM,4,−2 GO IF AN ATOM
7104 *
14351 −0754 00 0 00000 7105NVNOPXD0,0 IS NOT NUMBER, CLEAR AC
14352 0131 00 0 00000 7106XCA PUT IN MQ
14353 −0754 00 0 00000 7107PXD0,0 CLEAR AC AGAIN
14354 0534 00 4 14372 7108LXANVIR4,4 RESTORE LINK IR
14355 0522 00 4 00001 7109XEC1,4 EXECUTE POSSIBLE EXIT INSTRUCTION
14356 0500 00 0 03321 7110CLA$ARG3 MUST BE AN ERROR, PICK UP ORIGINAL ARGPAGE 142
14357 −0634 00 4 01562 7111SXD$ERROR,4
14360 0074 00 4 01563 7112TSX$ERROR+1,4 GO TO ERROR
14361 543160600354 7113BCI1,*I␣␣3*
7114 *
14362 −0734 00 4 00000 7115NVATMPDX0,4
14363 −0320 00 0 00470 7116ANATAGMSK
14364 0100 00 0 14351 7117TZENVNO
14365 0771 00 0 00017 7118ARS15
14366 0621 00 0 14370 7119STA*+2
14367 −0754 00 4 00000 7120PXD0,4
14370 −0774 00 4 00000 7121AXC**,4
14371 0560 00 4 14373 7122LDQNVTBL,4
14372 0774 00 4 00000 7123NVIR4AXT**,4 RESTORE IR 4
14373 0020 00 4 00001 7124NVTBLTRA1,4
14374 0 10135 0 00000 7125 0,,$FIX
14375 0 10120 0 00000 7126 0,,$FLOAT
14376 0 00000 0 00000 7127 0,,0
14377 0 00000 0 00000 7128 0,,0
14400 0 10135 0 00000 7129 0,,$FIX
7130 *
7131 *
7132 * ADD1 ADD 1 ADDS ONE TO ANY FIXED POINT OR FLOATING POINT
7133 * NUMBER AND EXITS WITH THE NUMBER NUMBER
14401 0634 00 1 14417 7134ADD1SXAA1IR1,1 SAVE IR 1
14402 0774 00 1 00000 7135AXT0,1 ZERO IR 1(INDICATES ADD OP)
14403 0634 00 2 14420 7136AD1SXAA1IR2,2 SAVE IR 2
14404 0634 00 4 14421 7137SXAA1IR4,4 SAVE LINK IR
14405 0074 00 4 14342 7138TSXNUMVAL,4 EVALUTE NUMERICAL ARGUMENT
14406 −0600 00 0 14423 7139STQA1T SAVE $FIX OR $FLOAT
14407 −0734 00 4 00000 7140PDX0,4 POINTER TO FULL WORD
14410 0500 00 4 00000 7141CLA0,4 GET NUMERICAL VALUE
14411 −0534 00 2 14423 7142LXDA1T,2 PICK UP $FIX OR $FLOAT
14412 0074 00 4 14550 7143TSXFIXFLO,4
14413 0761 00 0 00000 7144NOP IMPOSSIBLE RETURN
14414 0522 00 1 14424 7145XECFAD,1 IS FLOAT, DO FLOATING POINT OP
14415 0522 00 1 14426 7146XECADDF,1 DO FIXED POINT OP
14416 0560 00 0 14423 7147LDQA1T RESTORE $FLOAT AFTER FAD
14417 0774 00 1 00000 7148A1IR1AXT**,1 RESTORE IR 1
14420 0774 00 2 00000 7149A1IR2AXT**,2 RESTORE IR 2
14421 0774 00 4 00000 7150A1IR4AXT**,4 RESTORE LINK IR
14422 0020 00 0 12636 7151TRA$MKNO MAKE RESULT A NUMBER
7152 *
14423 0 00000 0 00000 7153A1T TEMPORARY STORAGE
14424 0300 00 0 00454 7154FADFAD$QF1 FLOATING ADD FOR ADD1
14425 0302 00 0 00454 7155FSB$QF1 FOR SUB1
14426 0400 00 0 00371 7156ADDFADD$Q1 FOR ADD1
14427 0402 00 0 00371 7157SUB$Q1 FOR SUB1
7158 *
7159 * SUB1 SUBTRACT 1 SUBTRACTS ONE FROM A FIXED POINT OR FLOATING
7160 * POINT NUMBER. USES CODING OF ADD1 WITH AN INITIALIZATION.
14430 0634 00 1 14417 7161SUB1SXAA1IR1,1 SAVE IR1
14431 0774 00 1 77777 7162AXT−1,1 SET FOR SUBTRACT OPERATIONS
14432 0020 00 0 14403 7163TRAAD1 PERFORM ADD1 CODING
7164 * SUB1 USES THE CODING OF ADD1
7165 *
7166 *
14433 0634 00 4 14437 7167GRTRTPSXAGRTIR,4 SAVE LINK IR
14434 0074 00 4 13350 7168TSXUNUMIX,4 EVALUATE NUMERICAL ARGUMENTS
14435 0040 00 0 14441 7169TLQGRTT PREDICATE TRUE
14436 −0754 00 0 00000 7170PXD0,0 FALSE, CLEAR AC
14437 0774 00 4 00000 7171GRTIRAXT**,4
14440 0020 00 4 00001 7172TRA1,4 EXIT
7173 *
14441 0500 00 0 00442 7174GRTTCLA$QD1 GET TRUE VALUE
14442 0020 00 0 14437 7175TRAGRTIR RESTORE LINK IR AND EXIT
7176 *
7177 *
7178 * LESSTP LESS THAN PREDICATE. SIMPLE DOES GREATER THAN PREDICATE
7179 * WITH THA ARGUMENT REVERSED.
7180 *
14443 0131 00 0 00000 7181LESSTPXCA INTERCHANGE ARGUMENTS
14444 0020 00 0 14433 7182TRAGRTRTP DO GREATER THAN PREDICATE
7183 *
7184 * THE FOLLOWING IS A NUMBER PREDICATE PACKAGE WHICH INCLUDES NUMBER
7185 * PREDICATE, ZERO PREDICATE, MINUS PREDICATE, ONE PREDICATE, FIX
7186 * PREDICATE AND FLOAT PREDICATE. ALL THESE PREDICATES SHARE CERTAIN
7187 * BLOCKS OF CODING AND TEMPORARY STORAGE.
7188 * NUMBRP NUMBER PREDICATE TEST ITS ARGUMENT FOR A NUMBER
14445 0634 00 4 14451 7189NUMBRPSXANPIR,4 SAVE LINK IR
14446 0074 00 4 14342 7190TSXNUMVAL,4 EVALUATE ARGUMENT
14447 0100 00 0 14451 7191TZENPIR IF ZERO NOT A NUMBER
14450 0500 00 0 00442 7192NPTCLA$QD1 IS A NUMBER, PICK UP TRUTH
14451 0774 00 4 00000 7193NPIRAXT**,4 RESTORE LINK IR
14452 0020 00 4 00001 7194TRA1,4 EXIT
7195 *
7196 * FLOATP FLOATING POINT NUMBER PREDICATE TESTS TO SEE IF ITS
7197 * ARGUMENT IS A FLOATING POINT NUMBER
14453 0634 00 4 14451 7198FLOATPSXANPIR,4 SAVE LINK IR
14454 0634 00 2 14525 7199SXAZPIR,2 SAVE IR 2
14455 0074 00 4 14342 7200TSXNUMVAL,4 EVALUATE ARGUMENT
14456 0131 00 0 00000 7201XCA GET TYPE IN AC
14457 −0734 00 2 00000 7202PDX0,2 TYPE IN IR 2
14460 0074 00 4 14550 7203TSXFIXFLO,4 TEST FOR $FIX OR $FLOAT
14461 0761 00 0 00000 7204NOP IMPOSSIBLE RETURN
14462 0020 00 0 14464 7205TRAFLT IS FLOATING POINT
14463 0020 00 0 14524 7206TRAZPF IS NOT FLOATING POINT, EXIT FALSE
14464 0500 00 0 00442 7207FLTCLA$QD1 GET TRUTH VALUE
14465 0020 00 0 14525 7208TRAZPIR RESTORE IR S AND EXIT
7209 *
7210 * FIXP FIXED POINT PREDICATE TESTS FOR FIXED POINT NUMBERS.
14466 0634 00 4 14451 7211FIXPSXANPIR,4 SAVE LINK IR
14467 0634 00 2 14525 7212SXAZPIR,2 SAVE IR 2
14470 0074 00 4 14342 7213TSXNUMVAL,4 EVALUATE ARGUMENT
14471 0131 00 0 00000 7214XCA GET TYPE IN AC
14472 −0734 00 2 00000 7215PDX0,2 TYPE IN IR 2
14473 0074 00 4 14550 7216TSXFIXFLO,4 TEST FOR $FIX OR $FLOAT
14474 0761 00 0 00000 7217NOP IMPOSSIBLE EXIT
14475 0020 00 0 14524 7218TRAZPF IS FLOAT, EXIT FALSE
14476 0500 00 0 00442 7219CLA$QD1 IS FIX, GET TRUTH VALUE
14477 0020 00 0 14525 7220TRAZPIR RESTORE IR S AND RETURN
7221 *
7222 * MINUSP MINUS PREDICATE TESTS TO SEE IF ITS ARGUMENT IS A
7223 * NEGATIVE NUMBER.
14500 0634 00 4 14451 7224MINUSPSXANPIR,4 SAVE LINK IR
14501 0074 00 4 14342 7225TSXNUMVAL,4 EVALUATE ARGUMENT
14502 −0734 00 4 00000 7226PDX0,4
14503 0500 00 4 00000 7227CLA0,4 PICK UP NUMBER
14504 −0120 00 0 14450 7228TMINPT EXIT TRUE IF MINUS
14505 −0754 00 0 00000 7229PXD0,0 IS NOT, EXIT FALSE
14506 0020 00 0 14451 7230TRANPIR RESTORE LINK IR AND EXIT
7231 *
7232 * ZEROP ZERO PREDICATE TESTS ITS ARGUMENT FOR A FIXED POINT
7233 * ZERO OR
7234 * ZERO OR A FLOATING POINT ZERO + OR - A TOLERANCE (FLOTOL).
14507 0634 00 4 14451 7235ZEROPSXANPIR,4 SAVE LINK IR
14510 0634 00 2 14525 7236SXAZPIR,2 SAVE IR 2
14511 0074 00 4 14342 7237TSXNUMVAL,4 EVALUATE ARGUMENT
14512 −0734 00 4 00000 7238PDX0,4 GET POINTER TO IR 4
14513 0500 00 4 00000 7239CLA0,4 FULL WORD
14514 0760 00 0 00003 7240ZPGSSP GET MAGNITUDE OF N
14515 0100 00 0 14527 7241TZEZPT EXIT TRUE IF ZERO
14516 0131 00 0 00000 7242XCA PUT NUMBER IN MQ
14517 −0734 00 2 00000 7243PDX0,2 PUT TYPE IN IR 2
14520 0500 00 0 14623 7244CLAFLOTOL PICK UP FLOATING POINT TOLERENCE
14521 0074 00 4 14550 7245TSXFIXFLO,4 TEST FOR FIX OR FLOAT
14522 0020 00 0 14531 7246TRAZPTS NOT FIX OR FLO MEANS FLO FROM ONEP
14523 0020 00 0 14531 7247TRAZPTS IS FLOATING POINT, COMPARE WITH FLOTOL
14524 −0754 00 0 00000 7248ZPFPXD0,0 IS FIXED POINT, EXIT FALSE
14525 0774 00 2 00000 7249ZPIRAXT**,2 RESTORE IR 2
14526 0020 00 0 14451 7250TRANPIR RESTORE IR 4 AND EXIT
14527 0500 00 0 00442 7251ZPTCLA$QD1 GET TRUTH VALUE
14530 0020 00 0 14525 7252TRAZPIR RESTORE IR S AND EXIT
14531 0040 00 0 14527 7253ZPTSTLQZPT IS FLOATING POINT, EXIT TRUE IF LESS
14532 0020 00 0 14524 7254TRAZPF OTHERWISE EXIT FALSE
7255 * ONEP ONE PREDICAT TESTS TO SEE IF ITS ARGUMENT IS ONE
7256 * BY SUBTRACTIGN ONE AND TESTING THE RESULT WITH ZEROP.
14533 0634 00 4 14451 7257ONEPSXANPIR,4 SAVE LINK IR
14534 0634 00 2 14525 7258SXAZPIR,2 SAVE IR 2
14535 0074 00 4 14342 7259TSXNUMVAL,4 EVALUATE ARGUMENT
14536 −0734 00 4 00000 7260PDX0,4 POINTER TO AC
14537 0500 00 4 00000 7261CLA0,4 FULL WORD TO AC
14540 0131 00 0 00000 7262XCA TYPE TO AC
14541 −0734 00 2 00000 7263PDX0,2 TYPE TO IR 2
14542 0131 00 0 00000 7264XCA
14543 0074 00 4 14550 7265TSXFIXFLO,4 DISPATCH ON FIX OR FLOAT
14544 0761 00 0 00000 7266NOP IMPOSSIBLE RETURN
14545 0302 00 0 00454 7267FSB$QF1
14546 0402 00 0 00371 7268SUB$Q1 SUBTRACT 1
14547 0020 00 0 14514 7269TRAZPG APPLY ZERO PREDICATE
7270 *
7271 * FIXFLO SUBROUTINE TO DISPATCH ON FIX OR FLO,
7272 * ARGUMENT IN IR 2.
7273 *
14550 −3 10134 2 14552 7274FIXFLOTXL*+2,2,$FIX−1 TXL - TXL FILTER FOR $FIX
14551 −3 10135 2 14564 7275TXLFX,2,$FIX GO IF $FIX
14552 −3 10117 2 14554 7276TXL*+2,2,$FLOAT−1 TXL - TXL FILTER FOR FLOAT
14553 −3 10120 2 14560 7277TXLFL,2,$FLOAT GO IF $FLOAT
14554 0522 00 4 00001 7278XEC1,4 EXECUTE IF NEITHER FIX OR FLOAT
14555 0020 00 4 00004 7279TRA4,4 RETURN
14556 0020 00 4 00005 7280TRA5,4 SKIP EXIT
14557 0020 00 4 00006 7281TRA6,4 SKIP 2 EXIT
14560 0522 00 4 00002 7282FLXEC2,4 EXECUTE IF $FLOAT
14561 0020 00 4 00004 7283TRA4,4 RETURN
14562 0020 00 4 00005 7284TRA5,4 SKIP EXIT
14563 0020 00 4 00006 7285TRA6,4 SKIP 2 EXIT
14564 0020 00 4 00003 7286FXTRA3,4
7287 * FIXFLO USES $FIX AND $FLAOT
7288 * UNFIX UNFIX MAKES A FIXED POINT ARGUMENT IN THE AC A FLOATING
7289 * POINT NUMBER LEFT IN AC. MQ IS PRESERVED.
14565 0601 00 0 14621 7290UNFIXSTOUFC SAVE ARGUMENT
14566 −0320 00 0 00434 7291ANAUFMSK MASK OUT ALL BUT CHARACTERISTIC
14567 −0100 00 0 14576 7292TNZUFE IF ANY THING LEFT IT MUST BE NORMALIZD
14570 0500 00 0 14621 7293CLAUFC NOTHING LEFT, RESTORE ARGUMENT
14571 −0501 00 0 00433 7294ORAUFMC OR IN CHARACTERISTIC
14572 −0600 00 0 14620 7295STQUFQ SAVE MQ
14573 0300 00 0 00433 7296FADUFMC ESSENTIALLY FAD OR ZERO TO NORMALIZE
14574 0560 00 0 14620 7297LDQUFQ RESTORE MQ
14575 0020 00 4 00001 7298TRA1,4 EXIT
7299 *
14576 0634 00 4 14616 7300UFESXAUFXR,4 NUMBER GREATER THAN 2 TO 27. SAVE IR 4
14577 0774 00 4 00234 7301AXT2*64+3*8+4,4 CHARACTERISTIC SO FAR
14600 0600 00 0 14622 7302STZUFS INITIALIZE SIGN PORTION
14601 0120 00 0 14604 7303TPLUFF SKIP IF +
14602 0760 00 0 00003 7304SSP MAKE IT +
14603 −0625 00 0 14622 7305STLUFS RECORD FACT BY MAKING UFS NON-ZERO
14604 0771 00 0 00001 7306UFFARS1 DIVIDE NUMBER BY 2
14605 0340 00 0 00432 7307CASUFNC SEE IF NORMALIZED YET
14606 1 00001 4 14604 7308TXIUFF,4,1 ADD 1 TO CHARACTERISTIC AND TRY AGAIN
14607 1 00001 4 14604 7309TXIUFF,4,1 DITTO
14610 0601 00 0 14621 7310STOUFC IS NORMALIZED
14611 −0754 00 4 00000 7311PXD0,4 CHARACTERISTIC TO AC
14612 0767 00 0 00011 7312ALS9 POSITION CHARACTERISTIC
14613 −0501 00 0 14621 7313ORAUFC OR IN NORMALIZED NUMBER
14614 0520 00 0 14622 7314ZETUFS TEST FOR SIGN, 0 MEANS +
14615 −0760 00 0 00003 7315SSM NOT ZERO SO MAKE MINUS
14616 0774 00 4 00000 7316UFXRAXT**,4 RESTORE IR 4
14617 0020 00 4 00001 7317TRA1,4 EXIT
00434 7318UFMSKSYNQ777Q9 CHARACTERISTIC MASK
00433 7319UFMCSYNQ233Q9 GENERAL CHARACTERISTIC
00432 7320UFNCSYN$QO1Q9
14620 0 00000 0 00000 7321UFQ MQ
14621 0 00000 0 00000 7322UFC AC TEMPORARY STORAGE
14622 0 00000 0 00000 7323UFS SIGN STORAGE
7324 * UNFIX USES NO EXTERNAL CONSTANTS.
7325 * FLOTOL FLOATING POINT TOLERENCE USED IN DESIDING IF FLOATING
7326 * POINT NUMBERS ARE INTEGERS.
14623 +156622516334 7327FLOTOLDEC3E−6 FLOATING POINT TOLERENCE VALUE
7328 * MNSPRG MINUS PROGRAM MAKES A LIST OF MINUS AND ITS ARGUMENT
7329 *
7330 * MNSPRG CREATES A NUMBER OF OPPOSITE SIGN OF NUMERAL ARGUMENT
7331 *
14624 0634 00 4 14631 7332MNSPRGSXAMRXR,4 SAVE LINK IR
14625 0074 00 4 14342 7333TSXNUMVAL,4 EVALUATE THE NUMERICAL ARGUMENT
14626 −0734 00 4 00000 7334PDX0,4 POINTER TO FULL WORD
14627 0500 00 4 00000 7335CLA0,4 NUMERICAL VALUE
14630 0760 00 0 00002 7336CHS MAKE OPPOSITE SIGN
14631 0774 00 4 00000 7337MRXRAXT**,4 RESTORE LINK IR
14632 0020 00 0 12636 7338TRA$MKNO MAKE IT A NUMBER
7339 *
7340 * RCPPRG CALCULATES THE RECIPORICAL OF A NUMBER.
14633 0634 00 4 14654 7341RCPPRGSXARRXR,4 SAVE LINK IR
14634 0634 00 2 14655 7342SXARRXR2,2 SAVE IR 2
14635 0074 00 4 14342 7343TSXNUMVAL,4 EVALUTE THE NUMERICAL ARGUMENT
14636 −0734 00 4 00000 7344PDX0,4 POINTER TO FULL WORD
14637 0500 00 4 00000 7345CLA0,4 NUMERICAL VALUE
14640 0601 00 0 14662 7346STORCPT SAVE VALUE
14641 0131 00 0 00000 7347XCA TYPE TO AC
14642 −0734 00 2 00000 7348PDX0,2 TYPE TO IR 2
14643 0074 00 4 14550 7349TSXFIXFLO,4 DISPATCH ON FIX OR FLOAT
14644 0761 00 0 00000 7350NOP IMPOSSIBLE RETURN
14645 0500 00 0 00454 7351CLA$QF1 IS FLOAT, PICK UP FLOATING POINT 1
14646 0020 00 0 14657 7352TRARCPFX IS FIXED POINT
14647 0241 00 0 14662 7353FDPRCPT DIVIDE BY ARGUMENT
14650 0760 00 0 00012 7354DCT CHECK FOR ILLEGAL DIVISION
14651 0074 00 4 01676 7355TSX$DCT,4 DIVIDE CHECK ERROR
14652 0131 00 0 00000 7356XCA QUOTENT TO AC
14653 0560 00 0 00476 7357LDQRCPS $FLOAT TO MQ
14654 0774 00 4 00000 7358RRXRAXT**,4 RESTORE LINK IR
14655 0774 00 2 00000 7359RRXR2AXT**,2 RESTORE IR 2
14656 0020 00 0 12636 7360TRA$MKNO MAKE ANSWER A NUMBER
7361 *
14657 0131 00 0 00000 7362RCPFXXCA FIXED POINT RECIP, ANSWER IS ZERO
14660 −0754 00 0 00000 7363PXD0,0 CLEAR AC
14661 0020 00 0 14654 7364TRARRXR RESTORE IR S AND MAKE A NUMBER
7365 *
14662 0 00000 0 00000 7366RCPT TEMPORARY STORAGE
00476 7367RCPSSYNFLOATD FLOAT INDICATOR
7368 *
7369
7370EJECT
7371 APPLY
7372 APPLY(F,L,A) =
7373 SELECT(CAR(L).,
7374 -1,APP2(F,L,A).,
7375 LAMBDA,EVAL(F,APPEND(PAIR(CADR(F),L),A)).,
7376 LABEL,APPLY(CADDR(F),L,APPEND(
7377 PAIR1(CADR(F),CADDR(F))),A).,
7378 APPLY(EVAL(F,A),L,A))
7379A HED
14663 −0634 00 4 03350 7380APPLYSXDASS1,4
14664 0100 00 4 00001 7381TZE1,4
14665 0601 00 0 03353 7382STOAST1 F
14666 −0734 00 4 00000 7383PDX0,4
14667 0634 00 4 03350 7384SXAASS1,4 SAVE FUNCTION ALONG WITH INDEX REGISTE
14670 0500 00 4 00000 7385CLA0,4 CWR(F)
14671 0734 00 4 00000 7386PAX0,4 CAR(F)
14672 3 77776 4 14722 7387TXHASP1,4,−2 =-1
14673 −0754 00 4 00000 7388PXD0,4
14674 0340 00 0 00502 7389CASASLMD = LAMBDA
14675 0020 00 0 14677 7390TRA*+2
14676 0020 00 0 14725 7391TRAASP2
14677 0340 00 0 00500 7392CASASFUN
14700 0020 00 0 14702 7393TRA*+2
14701 0020 00 0 15000 7394TRAASP4
14702 0340 00 0 00501 7395CASASLBL = LABEL
14703 0020 00 0 14705 7396TRA*+2
14704 0020 00 0 14750 7397TRAASP3
14705 0074 00 4 02312 7398TSX$SAVE,4
14706 −3 03354 0 02375 7399TXL$END3,,ASSA+2 SAVE 3 ITEMS
14707 −0600 00 0 03351 7400STQASSL
14710 0560 00 0 03321 7401LDQ$ARG3
14711 −0600 00 0 03352 7402STQASSA
14712 0500 00 0 03353 7403CLAAST1 F
14713 0074 00 4 15454 7404TSX$EVAL,4 EVAL(F,A)
14714 0560 00 0 03352 7405LDQASSA
14715 −0600 00 0 03321 7406STQ$ARG3
14716 0560 00 0 03351 7407LDQASSL
14717 0074 00 4 02326 7408TSXUNSAVE,4
14720 −0534 00 4 03350 7409LXDASS1,4
14721 0020 00 0 14663 7410TRAAPPLY APPLY(EVAL(F,A),L,A)
14722 0500 00 0 03353 7411ASP1CLAAST1 F
14723 −0534 00 4 03350 7412LXDASS1,4
14724 0020 00 0 15016 7413TRA$APP2 P APP29F,L,A)
7414 * LAMBDA BRANCH
14725 −0534 00 4 03353 7415ASP2LXDAST1,4 F
14726 0500 00 0 03321 7416CLA$ARG3
14727 0601 00 0 03355 7417STOAST3
14730 0500 00 4 00000 7418CLA0,4 CWR(F)
14731 −0734 00 4 00000 7419PDX0,4 CDR(F)
14732 0500 00 4 00000 7420CLA0,4 CWDR(F)
14733 0601 00 0 03356 7421STOAST4
14734 0734 00 4 00000 7422PAX0,4 CADR(F)
14735 −0754 00 4 00000 7423PXD0,4
14736 0074 00 4 07562 7424TSX$PAIR,4 PAIR(CADR(F),L)
14737 0560 00 0 03355 7425LDQAST3 A
14740 0074 00 4 07675 7426TSX$NCONC,4
14741 0131 00 0 00000 7427XCA
14742 −0534 00 4 03356 7428LXDAST4,4 CDDR(F)
14743 0500 00 4 00000 7429CLA0,4
14744 0734 00 4 00000 7430PAX0,4
14745 −0754 00 4 00000 7431PXD0,4
14746 −0534 00 4 03350 7432LXDASS1,4
14747 0020 00 0 15454 7433TRA$EVAL EVAL(CADDR(F),APPEND(PAIR(CADR(F),L),A))
7434
7435 * LABEL BRANCH
14750 −0534 00 4 03353 7436ASP3LXDAST1,4 F
14751 −0600 00 0 03354 7437STQAST2 L
14752 0560 00 0 03321 7438LDQ$ARG3 A
14753 −0600 00 0 03355 7439STQAST3
14754 0500 00 4 00000 7440CLA0,4 CWR(F)
14755 −0734 00 4 00000 7441PDX0,4 CDR(F)
14756 0500 00 4 00000 7442CLA0,4
14757 0601 00 0 03356 7443STOAST4 CWDR(F)
14760 −0734 00 4 00000 7444PDX0,4 CDDR(F)
14761 0500 00 4 00000 7445CLA0,4
14762 0734 00 4 00000 7446PAX0,4 CADDR(F)
14763 −0754 00 4 00000 7447PXD0,4
14764 0601 00 0 03353 7448STOAST1
14765 0131 00 0 00000 7449XCA
14766 0534 00 4 03356 7450LXAAST4,4
14767 −0754 00 4 00000 7451PXD0,4 CADR(F)
14770 0074 00 4 03730 7452TSX$CONS,4 CONS(CADR(F),CONS(CADDR(F),0))
14771 0560 00 0 03355 7453LDQAST3 A
14772 0074 00 4 03730 7454TSX$CONS,4 APPEND( ABOVE,A)
14773 0601 00 0 03321 7455STO$ARG3
14774 0560 00 0 03354 7456LDQAST2
14775 0500 00 0 03353 7457CLAAST1 CADDR(F)
14776 −0534 00 4 03350 7458LXDASS1,4
14777 0020 00 0 14663 7459TRAAPPLY APPLY(CADDR(F),L,APPEND(PAIR(CADR(F),CADDR(F)),A))
7460 * FUNARG BRANCH
15000 −0534 00 4 03353 7461ASP4LXDAST1,4 F
15001 0500 00 4 00000 7462CLA,4
15002 −0734 00 4 00000 7463PDX,4 CDR(F)
15003 0500 00 4 00000 7464CLA,4
15004 0601 00 0 03353 7465STOAST1 CWDR(F)
15005 −0734 00 4 00000 7466PDX,4 CDDR(F)
15006 0500 00 4 00000 7467CLA,4
15007 0734 00 4 00000 7468PAX,4 CADDR(F)
15010 −0754 00 4 00000 7469PXD,4
15011 0601 00 0 03321 7470STO$ARG3 A
15012 0534 00 4 03353 7471LXAAST1,4 CADR(F)
15013 −0754 00 4 00000 7472PXD,4 F
15014 −0534 00 4 03350 7473LXDASS1,4
15015 0020 00 0 14663 7474TRA$APPLY
00501 7475ASLBLSYNLABELD
00502 7476ASLMDSYNLAMDAD
00500 7477ASFUNSYNFNARGD
00370 7478ASZROSYN$ZERO
7479 APP2(F,L,A)=SELECT(F.,CAR,CAAR(L).,CDR,
7480 CDAR(L).,CONS,CONS(CAR(L),CADR(L)).,LIST,COPY(L).,SEARCH(F,
7481 LAMBDA(J,CAR(J)=SUBR OR CAR(J)=EXP),
7482 LAMBDA(J,CAR(J)=SUBR YIELDS APP3(CWADR
7483 (J),DISTRIB(L)),1 YIELDS APPLY(CADR(J),L,A)))
7484 ERROR)
7485
7486A HED
15016 −0634 00 4 15147 7487APP2SXDATS1,4 SAVE LINK IR
15017 −0534 00 4 03321 7488LXD$ARG3,4 GET ALIST
15020 −0634 00 4 15153 7489SXDA,4 SAVE IT
15021 −0600 00 0 15152 7490STQAL ARGUMENT LIST
15022 0601 00 0 15151 7491STOF FUNCTION (IS ATOMIC SYMBOL)
15023 0600 00 0 15145 7492STZAPTRT INITIALIZE TRACE TEST CELL
15024 −0734 00 4 00000 7493APSESPDX0,4 ARG TO IR
15025 −3 00000 4 15071 7494TXLAPSAL,4,0 GO IF NO MORE PROPERTY LIST
15026 0500 00 4 00000 7495CLA0,4 FIRST WORD
15027 0734 00 4 00000 7496PAX0,4 CAR
15030 −3 06646 4 15032 7497TXL*+2,4,$TRACE−1
15031 −3 06647 4 15121 7498TXLAPTRK,4,$TRACE LOOK FOR TRACE
15032 −3 06732 4 15034 7499TXL*+2,4,$SUBR−1 LOOK FOR
15033 −3 06733 4 15046 7500TXLR2,4,$SUBR $SUBR OR
15034 −3 10156 4 15024 7501TXLAPSES,4,$EXPR−1 $EXPR
15035 3 10157 4 15024 7502TXHAPSES,4,$EXPR
7503 * EXPR BRANCH IN APPLY
15036 −0734 00 4 00000 7504R21PDX0,4 POINTER TO NEXT WORD AFTER $EXPR
15037 0500 00 4 00000 7505CLA0,4 NEXT WORD
15040 0734 00 4 00000 7506PAX0,4 CAR
15041 −0754 00 4 00000 7507PXD0,4 IS FUNCTION
15042 0520 00 0 15145 7508ZETAPTRT TEST FOR TRACE MODE
15043 0020 00 0 15111 7509TRAAPTXP TRACE THIS EXPRESSION
15044 −0534 00 4 15147 7510LXDATS1,4 RESTORE LINK IR
15045 0020 00 0 14663 7511TRA$APPLY GO TO APPLY
7512 * RZ THE SUBR BRANCH OF APPLY
15046 −0734 00 4 00000 7513R2PDX0,4 GET THE TXL INSTRUCTION BT TAKING
15047 0500 00 4 00000 7514CLA0,4 CWR (CADR L))
15050 0734 00 4 00000 7515PAX0,4
15051 0500 00 4 00000 7516CLA0,4
15052 0601 00 0 15146 7517STOCWADR TXL INSTRUCTION
15053 0500 00 0 03350 7518CLAASS1
15054 0601 00 0 03315 7519STOCSV
15055 0500 00 0 15152 7520CLAAL GET THE ARGUMENT LIST
15056 0074 00 4 10072 7521TSXSPREAD,4 SPREAD IT INTO AC, MQ, ARG3, ETC.
15057 0520 00 0 15145 7522ZETAPTRT TEST FOR TRACE MODE
15060 0020 00 0 15131 7523TRAAPTSB TRACE THIS SUBROUTINE
15061 0074 00 4 02312 7524TSX$SAVE,4
15062 −3 03320 0 02377 7525TXL$END2,,$ALIST+2
15063 −0534 00 4 15153 7526LXDA,4
15064 −0634 00 4 03316 7527SXD$ALIST,4
15065 0074 00 4 15146 7528TSXCWADR,4
15066 0074 00 4 02326 7529TSXUNSAVE,4
15067 −0534 00 4 03315 7530LXDCSV,4
15070 0020 00 4 00001 7531TRA1,4
7532 *
15071 0500 00 0 15150 7533APSALCLAFAS WHERE TO GO IF NOT FOUND ON PAIR LIST
15072 0601 00 0 03321 7534STO$ARG3
15073 0500 00 0 15151 7535CLAF ATOMIC FUNCTION
15074 0560 00 0 15153 7536LDQA
15075 0074 00 4 10042 7537TSXSASSOC,4 SEARCH PAIR LIST FOR LABEL DEFINITION
15076 −0734 00 4 00000 7538PDX0,4 POINTER TO ASSOCIATED ITEM
15077 0500 00 4 00000 7539CLA0,4
15100 −0734 00 4 00000 7540PDX0,4 POINTER TO ITEM
15101 −0754 00 4 00000 7541PXD0,4
15102 0560 00 0 15153 7542LDQA RESTORE PAIR LIST
15103 −0600 00 0 03321 7543STQ$ARG3
15104 0560 00 0 15152 7544LDQAL RESTORE ARGUMENT LIST
15105 0520 00 0 15145 7545ZETAPTRT TEST FOR TRACE MODE
15106 0020 00 0 15111 7546TRAAPTXP TRACE THIS EXPRESSION
15107 −0534 00 4 15147 7547LXDATS1,4 RESTORE LINK IR
15110 0020 00 0 14663 7548TRA$APPLY GO TO APPLY WITH ITEM ASSOCIATED WITH
7549 * THE ATOMIC FUNCTION
15111 0074 00 4 02312 7550APTXPTSX$SAVE,4 TRACE EXPR
15112 −3 03317 0 02401 7551TXL$END1,,CSV+2
15113 0074 00 4 14663 7552TSX$APPLY,4
15114 0020 00 0 15136 7553TRAAPEXC FINISH UP
7554 *
15115 −0634 00 4 01562 7555R33SXD$ERROR,4
15116 0500 00 0 15151 7556CLAF PICK UP FUNCTION
15117 0074 00 4 01563 7557TSX$ERROR+1,4 GO TO ERROR
15120 542160600254 7558BCI1,*A␣␣2*
7559 *
15121 −0625 00 0 15145 7560APTRKSTLAPTRT
15122 0601 00 0 15144 7561STOAPA SAVE THE AC
15123 0534 00 4 03350 7562LXAASS1,4 ATOM NAME
15124 −0754 00 4 00000 7563PXD0,4
15125 0074 00 4 16050 7564TSXARGOF,4 PRINT ARGUMETNS OF
15126 0560 00 0 15152 7565LDQAL RESTORE MQ AFTER PRINTING
15127 0500 00 0 15144 7566CLAAPA RESTORE AC
15130 0020 00 0 15024 7567TRAAPSES CONTINUE PROPERTY LIST SEARCH
7568 *
15131 0074 00 4 02312 7569APTSBTSX$SAVE,4 TRACE SUBR
15132 −3 03320 0 02377 7570TXL$END2,,$ALIST+2
15133 −0534 00 4 15153 7571LXDA,4
15134 −0634 00 4 03316 7572SXD$ALIST,4
15135 0074 00 4 15146 7573TSXCWADR,4
15136 0074 00 4 02326 7574APEXCTSXUNSAVE,4
15137 0131 00 0 00000 7575XCA VALUE TO MQ
15140 0534 00 4 03315 7576LXACSV,4
15141 −0754 00 4 00000 7577PXD0,4 TO AC
15142 −0534 00 4 03315 7578LXDCSV,4
15143 0020 00 0 16104 7579TRAVALOF PRINT VALUE OF
7580 *
15144 0 00000 0 00000 7581APA AC STORAGE
15145 0 00000 0 00000 7582APTRT TRACE MODE TEST SWITCH
15146 0 00000 0 00000 7583CWADR TXL INSTRUCTION FOR SUBR
15147 0 00000 0 00000 7584ATS1 LINK INDEX REGISTER
15150 −3 00000 0 15115 7585FASTXLR33,,0 NOT FOUND ON PAIR LIST SO CALL ERROR
15151 0 00000 0 00000 7586F ATOMIC FUNCTION GOES HERE
15152 0 00000 0 00000 7587AL ARGUMENT LIST
15153 0 00000 0 00000 7588A A OR PAIR LIST
7589 *
7590
7591A HED
15154 0100 00 0 15205 7592EVCONTZEE3
15155 −0634 00 4 03364 7593SXDECS1,4
15156 0074 00 4 02312 7594TSX$SAVE,4
15157 −3 03371 0 02373 7595TXL$END4,,ECS4+2 SAVE 4 ITEMS
15160 −0600 00 0 03365 7596STQECS2
15161 −0734 00 4 00000 7597PDX0,4
15162 0500 00 4 00000 7598E1CLA0,4
15163 0601 00 0 03366 7599STOECS3
15164 0734 00 4 00000 7600PAX0,4
15165 0500 00 4 00000 7601CLA0,4
15166 0601 00 0 03367 7602STOECS4
15167 0734 00 4 00000 7603PAX0,4
15170 −0754 00 4 00000 7604PXD0,4
15171 0074 00 4 15454 7605TSX$EVAL,4
15172 0560 00 0 03365 7606LDQECS2
15173 0100 00 0 15203 7607TZEE2
15174 −0534 00 4 03367 7608LXDECS4,4
15175 0500 00 4 00000 7609CLA0,4
15176 0734 00 4 00000 7610PAX0,4
15177 −0754 00 4 00000 7611PXD0,4
15200 0074 00 4 02326 7612TSXUNSAVE,4
15201 −0534 00 4 03364 7613LXDECS1,4
15202 0020 00 0 15454 7614TRA$EVAL
15203 −0534 00 4 03366 7615E2LXDECS3,4
15204 3 00000 4 15162 7616TXHE1,4,0
15205 −0634 00 4 01562 7617E3SXD$ERROR,4
15206 0534 00 4 03366 7618LXAECS3,4
15207 −0754 00 4 00000 7619PXD0,4 PRINT LAST CONDITION
15210 0074 00 4 01563 7620TSX$ERROR+1,4
15211 542160600354 7621BCI1,*A␣␣3*
7622 BASIC LISP FUNCTIONS FOR APPLY
7623
7624R HED
7625 CAR
15212 0634 00 4 15217 7626CARPSXACARX,4
15213 −0734 00 4 00000 7627PDX,4
15214 0500 00 4 00000 7628CLA,4
15215 0734 00 4 00000 7629PAX,4
15216 −0754 00 4 00000 7630PXD,4
15217 0774 00 4 00000 7631CARXAXT**,4
15220 0020 00 4 00001 7632TRA1,4
15221 0 00000 0 00000 7633BFS1
15222 0634 00 4 15226 7634CDRPSXACDRX,4
15223 −0734 00 4 00000 7635PDX,4
15224 0500 00 4 00000 7636CLA,4
15225 −0320 00 0 00460 7637ANABFDM
15226 0774 00 4 00000 7638CDRXAXT**,4
15227 0020 00 4 00001 7639TRA1,4
00460 7640BFDMSYN$DMASK
7641
15230 0634 00 4 15241 7642ATOMPSXAATMX,4
15231 0100 00 0 15236 7643TZEATP1
15232 −0734 00 4 00000 7644PDX,4
15233 0500 00 4 00000 7645CLA,4
15234 0734 00 4 00000 7646PAX,4
15235 −3 77776 4 15240 7647TXL*+3,4,−2
15236 0500 00 0 00442 7648ATP1CLABFQ1
15237 0020 00 0 15241 7649TRA*+2
15240 −0754 00 0 00000 7650PXD,0
15241 0774 00 4 00000 7651ATMXAXT**,4
15242 0020 00 4 00001 7652TRA1,4
00442 7653BFQ1SYN$QD1
7654
15243 0100 00 0 15246 7655NULLPTZE*+3
15244 −0754 00 0 00000 7656PXD,0
15245 0020 00 4 00001 7657TRA1,4
15246 0500 00 0 00442 7658CLABFQ1
15247 0020 00 4 00001 7659TRA1,4
7660
7661 LAMBDA FOR FUNCTIONAL ARGUMENTS
7662
15250 −0634 00 4 15221 7663LAMPSXDBFS1,4
15251 0601 00 0 03415 7664STOBFS2 L
15252 0131 00 0 00000 7665XCA
15253 0560 00 0 00370 7666LDQBFZRO
15254 0074 00 4 03730 7667TSX$CONS,4 CONS(A,0)
15255 0131 00 0 00000 7668XCA
15256 0500 00 0 03415 7669CLABFS2
15257 0074 00 4 07541 7670TSXAPPEND,4
15260 0131 00 0 00000 7671XCA
15261 0500 00 0 00500 7672CLABFFAG
15262 −0534 00 4 15221 7673LXDBFS1,4
15263 0020 00 0 03730 7674TRA$CONS LIST(FUNARG,L,A)
00500 7675BFFAGSYNFNARGD
00370 7676BFZROSYN$ZERO
7677
7678 LABEL FSUBR
15264 −0634 00 4 15221 7679LABPSXDBFS1,4
15265 −0600 00 0 03416 7680STQBFS3 A
15266 −0734 00 4 00000 7681PDX,4 L
15267 0500 00 4 00000 7682CLA,4
15270 0601 00 0 03415 7683STOBFS2 CWR(L)
15271 −0734 00 4 00000 7684PDX,4 CDR(L)
15272 0500 00 4 00000 7685CLA,4
15273 0734 00 4 00000 7686PAX,4 CADR(L)
15274 −0754 00 4 00000 7687PXD,4
15275 0601 00 0 03414 7688STOBFS4
15276 0131 00 0 00000 7689XCA
7690
15277 0534 00 4 03415 7691LXABFS2,4 CAR(L)
15300 0131 00 0 00000 7692XCA
15301 −0754 00 4 00000 7693PXD,4
15302 0074 00 4 03730 7694TSX$CONS,4 LIST(CAR(L),CADR(L))
15303 0560 00 0 03416 7695LDQBFS3
15304 0074 00 4 03730 7696TSX$CONS,4 CONS(LIST,A)
15305 0131 00 0 00000 7697XCA
15306 0500 00 0 03414 7698CLABFS4 CADR(L)
15307 −0534 00 4 15221 7699LXDBFS1,4
15310 0020 00 0 15454 7700TRA$EVAL
7701
7702 SETQ
7703
15311 −0634 00 4 03461 7704SETQPSXDREPS1,4
15312 0074 00 4 02312 7705TSX$SAVE,4
15313 −3 03464 0 02377 7706TXL$END2,,REPV+2
15314 −0734 00 4 00000 7707PDX,4 L
15315 0500 00 4 00000 7708CLA,4
15316 0734 00 4 00000 7709PAX,4 CAR(L)
15317 −0634 00 4 03462 7710SXDREPV,4
15320 −0734 00 4 00000 7711PDX,4 CDR(L)
15321 0500 00 4 00000 7712CLA,4
15322 0734 00 4 00000 7713PAX,4 CADR(L)
15323 −0754 00 4 00000 7714PXD,4
15324 0074 00 4 15454 7715TSX$EVAL,4 EVAL(CADR(L),A)
15325 0601 00 0 03463 7716STOREPT1
15326 0500 00 0 15341 7717CLAREPP1
15327 0601 00 0 03321 7718STO$ARG3
15330 0560 00 0 03447 7719LDQPRGVAR
15331 0500 00 0 03462 7720CLAREPV
15332 0074 00 4 10042 7721TSXSASSOC,4 SASSOC(CAR(L),PV,ERROR)
15333 −0734 00 4 00000 7722PDX,4
15334 0500 00 0 03463 7723CLAREPT1
15335 0622 00 4 00000 7724STD0,4 REPLACE DECREMENT
15336 0074 00 4 02326 7725TSXUNSAVE,4
15337 −0534 00 4 03461 7726LXDREPS1,4
15340 0020 00 4 00001 7727TRA1,4
7728
15341 −3 00000 0 15342 7729REPP1TXL*+1,,0
15342 −0634 00 4 01562 7730SXD$ERROR,4
15343 0500 00 0 03462 7731CLAREPV
15344 0074 00 4 01563 7732TSX$ERROR+1,4
15345 542160600454 7733BCI1,*A␣␣4*
7734
7735 SET
15346 −0634 00 4 15221 7736SETPSXDBFS1,4
15347 0601 00 0 15367 7737STOBFS5
15350 −0600 00 0 03415 7738STQBFS2
15351 0560 00 0 15362 7739LDQSETP1
15352 −0600 00 0 03321 7740STQ$ARG3
15353 0560 00 0 03447 7741LDQPRGVAR
15354 0074 00 4 10042 7742TSXSASSOC,4
15355 −0734 00 4 00000 7743PDX,4
15356 0500 00 0 03415 7744CLABFS2
15357 0622 00 4 00000 7745STD0,4
15360 −0534 00 4 15221 7746LXDBFS1,4
15361 0020 00 4 00001 7747TRA1,4
15362 −3 00000 0 15363 7748SETP1TXL*+1,,0
15363 −0634 00 4 01562 7749SXD$ERROR,4
15364 0500 00 0 15367 7750CLABFS5
15365 0074 00 4 01563 7751TSX$ERROR+1,4
15366 542160600554 7752BCI1,*A␣␣5*
15367 0 00000 0 00000 7753BFS5
7754 * AND SPECIAL FORM
15370 −0100 00 0 15373 7755EVA8TNZEVA6
15371 0500 00 0 00442 7756CLAEVCT
15372 0020 00 4 00001 7757TRA1,4
15373 −0634 00 4 03343 7758EVA6SXDEVA1,4
15374 0074 00 4 02312 7759TSX$SAVE,4
15375 −3 03347 0 02375 7760TXL$END3,,EVA9+2 SAVE 3 ITEMS
15376 −0734 00 4 00000 7761PDX,4
15377 0500 00 4 00000 7762EVA4CLA,4
15400 0601 00 0 03344 7763STOEVA2
15401 0734 00 4 00000 7764PAX,4
15402 −0754 00 4 00000 7765PXD,4
15403 −0600 00 0 03345 7766STQEVA9
15404 0074 00 4 15454 7767TSX$EVAL,4
15405 0560 00 0 03345 7768LDQEVA9
15406 −0100 00 0 15412 7769TNZEVA3
15407 0074 00 4 02326 7770EVA5TSXUNSAVE,4
15410 −0534 00 4 03343 7771LXDEVA1,4
15411 0020 00 4 00001 7772TRA1,4
15412 −0534 00 4 03344 7773EVA3LXDEVA2,4
15413 3 00000 4 15377 7774TXHEVA4,4,0
15414 0500 00 0 00442 7775CLAEVCT
15415 0020 00 0 15407 7776TRAEVA5
7777 * OR SPECIAL FORM
15416 −0100 00 0 15421 7778EVR8TNZEVR6
15417 0500 00 0 00370 7779CLAEVCF
15420 0020 00 4 00001 7780TRA1,4
15421 −0634 00 4 03435 7781EVR6SXDEVR1,4
15422 0074 00 4 02312 7782TSX$SAVE,4
15423 −3 03441 0 02375 7783TXL$END3,,EVR9+2 SAVE 3 ITEMS
15424 −0734 00 4 00000 7784PDX,4
15425 0500 00 4 00000 7785EVR4CLA,4
15426 0601 00 0 03436 7786STOEVR2
15427 0734 00 4 00000 7787PAX,4
15430 −0754 00 4 00000 7788PXD,4
15431 −0600 00 0 03437 7789STQEVR9
15432 0074 00 4 15454 7790TSX$EVAL,4
15433 0560 00 0 03437 7791LDQEVR9
15434 0100 00 0 15441 7792TZEEVR3
15435 0500 00 0 00442 7793CLAEVCT
15436 0074 00 4 02326 7794EVR5TSXUNSAVE,4
15437 −0534 00 4 03435 7795LXDEVR1,4
15440 0020 00 4 00001 7796TRA1,4
15441 −0534 00 4 03436 7797EVR3LXDEVR2,4
15442 3 00000 4 15425 7798TXHEVR4,4,0
15443 0500 00 0 00370 7799CLAEVCF
15444 0020 00 0 15436 7800TRAEVR5
00442 7801EVCTSYN$QD1
00370 7802EVCFSYN$ZERO
15445 −0600 00 0 15221 7803EQPSTQBFS1
15446 0402 00 0 15221 7804SUBBFS1
15447 −0100 00 0 15452 7805TNZ*+3
15450 0500 00 0 00442 7806CLABFQ1
15451 0020 00 4 00001 7807TRA1,4
15452 −0754 00 0 00000 7808PXD,0
15453 0020 00 4 00001 7809TRA1,4
7810 EVAL(E,A) 5/6/59
7811A HED
15454 −0634 00 4 03372 7812EVALSXDEVS1,4
15455 0100 00 4 00001 7813TZE1,4
15456 0601 00 0 16121 7814STOEVTE E
15457 −0734 00 4 00000 7815PDX,4
15460 0500 00 4 00000 7816CLA,4
15461 0625 00 0 16126 7817STTEVLNS SEE IF A NUMBER
15462 0520 00 0 16126 7818ZETEVLNS SKIP IF NOT A NUMBER
15463 0020 00 0 15542 7819TRAEV1N IS A NUMBER(CONSTANT)
15464 0734 00 4 00000 7820PAX,4 CAR(E)
15465 3 77776 4 15545 7821TXHEVP1,4,−2 = - 1
15466 −0634 00 4 16122 7822SXDEVTAE,4 CAR(E)
15467 0634 00 4 03372 7823SXAEVS1,4 SAVE FUNCTION WITH INDEX REGISTER
15470 0622 00 0 03411 7824STDEVTDE CDR(E)
15471 0500 00 4 00000 7825CLA,4
15472 0625 00 0 16126 7826STTEVLNS SEE IF A NUMBER
15473 0520 00 0 16126 7827ZETEVLNS TEST FOR A NUMBER
15474 0020 00 0 16007 7828TRAEVP26 UNDEFINED FUNCTION IF A NUMBER
15475 0734 00 4 00000 7829PAX,4 CAAR(E)
15476 −3 77776 4 15756 7830TXLEVP27,4,−2 GO IF CAR(E) NOT AN ATOM
7831 *
7832 * CAAR(E) = -1
7833 *
15477 0634 00 0 03375 7834SXAEVTRK,0 ZERO THE ADDRESS
15500 −0634 00 0 03375 7835SXDEVTRK,0 ZERO DECREMENT
15501 −0734 00 4 00000 7836EVP2PDX,4 CDAR(E)
15502 −3 00000 4 15642 7837TXLEVP25,4,0 NULL(J)
15503 0500 00 4 00000 7838CLA,4
15504 0734 00 4 00000 7839PAX,4 CAR(J)
15505 3 06647 4 15507 7840TXH*+2,4,$TRACE
15506 3 06646 4 15540 7841TXHEVTRT,4,$TRACE−1 =TRACE
15507 3 06733 4 15511 7842TXH*+2,4,$SUBR
15510 3 06732 4 15756 7843TXHEVP27,4,$SUBR−1 OF IF A SUBR
15511 3 10103 4 15513 7844TXH*+2,4,$FSUBR
15512 3 10102 4 15613 7845TXHEVP22,4,$FSUBR−1 =FSUBR
15513 3 10157 4 15515 7846TXH*+2,4,$EXPR
15514 3 10156 4 15634 7847TXHEVP23,4,$EXPR−1 =EXPR
15515 3 10142 4 15501 7848TXHEVP2,4,$FEXPR
15516 −3 10141 4 15501 7849TXLEVP2,4,$FEXPR−1 /= FEXPR
15517 0622 00 0 03412 7850STDEVD2 CDR(J)
15520 −0600 00 0 03321 7851STQ$ARG3 A
15521 0500 00 0 03321 7852CLA$ARG3
15522 0560 00 0 00370 7853LDQEVZRO 0
15523 0074 00 4 03730 7854TSX$CONS,4 CONS(A,0)
15524 0131 00 0 00000 7855XCA
15525 0500 00 0 03411 7856CLAEVTDE
15526 0074 00 4 03730 7857TSX$CONS,4 LIST(CDR(E),A)
15527 0131 00 0 00000 7858XCA
15530 −0534 00 4 03412 7859LXDEVD2,4 CDR(J)
15531 0500 00 4 00000 7860CLA,4
15532 0734 00 4 00000 7861PAX,4 CADR(J)
15533 −0754 00 4 00000 7862PXD,4
15534 0520 00 0 03375 7863ZETEVTRK TEST FOR TRACE MODE
15535 0020 00 0 16031 7864TRAEVTXP
15536 −0534 00 4 03372 7865LXDEVS1,4
15537 0020 00 0 14663 7866TRA$APPLY APPLY(CADR(J),LIST(CDR(E),A),A)
7867 *
15540 −0625 00 0 03375 7868EVTRTSTLEVTRK SET THE TRACE SWITCH
15541 0020 00 0 15501 7869TRAEVP2 GO SEARCH MORE
7870 *
7871 *
7872 * CAR(E) = -1
7873 *
15542 0500 00 0 16121 7874EV1NCLAEVTE GET THE NUMBER
15543 −0534 00 4 03372 7875LXDEVS1,4 RESTORE LINK INDEX
15544 0020 00 4 00001 7876TRA1,4
7877 *
15545 −0734 00 4 00000 7878EVP1PDX,4 J
15546 −3 00000 4 15563 7879TXLEVP11,4,0 = 0
15547 0500 00 4 00000 7880CLA,4
15550 0734 00 4 00000 7881PAX,4 CAR(J)
15551 3 10742 4 15545 7882TXHEVP1,4,$APVAL = APVAL
15552 −3 10741 4 15545 7883TXLEVP1,4,$APVAL−1
15553 −0734 00 4 00000 7884EVP13PDX,4 CDR(J)
15554 0500 00 4 00000 7885CLA,4
15555 0734 00 4 00000 7886PAX,4 CADR(J)
15556 0500 00 4 00000 7887CLA,4
15557 0734 00 4 00000 7888PAX,4 CAADR(J)
15560 −0754 00 4 00000 7889PXD,4
15561 −0534 00 4 03372 7890LXDEVS1,4
15562 0020 00 4 00001 7891TRA1,4
7892 *
15563 −0600 00 0 16123 7893EVP11STQEVTA A
15564 0500 00 0 16121 7894CLAEVTE E
15565 0622 00 0 15600 7895STDEVI1
15566 0402 00 0 00442 7896SUBEVQD1
15567 0622 00 0 15601 7897STDEVI2
15570 −0634 00 2 16125 7898SXDEVD1,2
15571 −0534 00 4 16123 7899LXDEVTA,4
15572 −3 00000 4 15607 7900EVL1TXLEVP12,4,0 NULL(J)
15573 0500 00 4 00000 7901CLA,4
15574 0734 00 2 00000 7902PAX,2 CAR(J)
15575 −0734 00 4 00000 7903PDX,4 CDR(J)
15576 0500 00 2 00000 7904CLA,2
15577 0734 00 2 00000 7905PAX,2 CAAR(J)
15600 3 00000 2 15572 7906EVI1TXHEVL1,2,** CAAR(J) = E
15601 −3 00000 2 15572 7907EVI2TXLEVL1,2,**
15602 −0734 00 4 00000 7908PDX,4 CDAR(J)
15603 −0754 00 4 00000 7909PXD,4
15604 −0534 00 2 16125 7910LXDEVD1,2
15605 −0534 00 4 03372 7911LXDEVS1,4
15606 0020 00 4 00001 7912TRA1,4
7913 *
15607 −0634 00 4 01562 7914EVP12SXD$ERROR,4
15610 0500 00 0 16121 7915CLAEVTE
15611 0074 00 4 01563 7916TSX$ERROR+1,4
15612 542160601054 7917BCI1,*A␣␣8*
7918 *
15613 −0734 00 4 00000 7919EVP22PDX,4 CDR(J) FSUBR
15614 0500 00 4 00000 7920CLA,4
15615 0734 00 4 00000 7921PAX,4 CADR(J)
15616 0500 00 4 00000 7922CLA,4 CWADR(J)
15617 0601 00 0 16124 7923STOEVT1
15620 0500 00 0 03372 7924CLAEVS1 ATOM AN DIR4 FOR SAVING $ALIST
15621 0601 00 0 03315 7925STOCSV
15622 0074 00 4 02312 7926TSX$SAVE,4
15623 −3 03320 0 02377 7927TXL$END2,,$ALIST+2
15624 −0600 00 0 03316 7928STQ$ALIST
15625 0520 00 0 03375 7929ZETEVTRK TEST WHETERT TO TRACT
15626 0020 00 0 16014 7930TRAEVTFS YES,TRACE FSUBR
15627 0500 00 0 03411 7931CLAEVTDE GET BACK ARGUMENTS
15630 0074 00 4 16124 7932TSXEVT1,4
15631 0074 00 4 02326 7933TSXUNSAVE,4
15632 −0534 00 4 03315 7934LXDCSV,4
15633 0020 00 4 00001 7935TRA1,4
7936 *
7937 * EVP23 THE EXPR BRANCH FOR EVAL
7938 *
15634 −0734 00 4 00000 7939EVP23PDX0,4 REST OF PROPERTY LIST
15635 0500 00 4 00000 7940CLA0,4 GET THE EXPR
15636 0734 00 4 00000 7941PAX0,4
15637 −0634 00 4 16122 7942SXDEVTAE,4 SAVE IN TEMPORARY STORAGE
15640 −0534 00 4 02317 7943LXD$CPPI,4 PUSH DOWN COUNTER
15641 1 77773 4 15665 7944TXIEVP28,4,−5 SAVE 5 ITEMS
7945 *
15642 0500 00 0 16122 7946EVP25CLAEVTAE CAR(E)
15643 0622 00 0 15657 7947STDEVI3 TXH
15644 0402 00 0 00442 7948SUBEVQD1
15645 0622 00 0 15660 7949STDEVI4 TXL
15646 −0634 00 2 16124 7950SXDEVT1,2
15647 −0600 00 0 16125 7951STQEVD1
15650 −0534 00 4 16125 7952LXDEVD1,4 A
15651 −3 00000 4 16007 7953EVL2TXLEVP26,4,0 NULL(J)
15652 0500 00 4 00000 7954CLA,4
15653 −0734 00 4 00000 7955PDX,4 CDR(J)
15654 0734 00 2 00000 7956PAX,2 CAR(J)
15655 0500 00 2 00000 7957CLA,2
15656 0734 00 2 00000 7958PAX,2 CAAR(J)
15657 3 00000 2 15651 7959EVI3TXHEVL2,2,** /= CAR(E)
15660 −3 00000 2 15651 7960EVI4TXLEVL2,2,**
15661 −0534 00 2 16124 7961LXDEVT1,2
7962
15662 0622 00 0 16122 7963STDEVTAE SAVE FUNCTION
15663 −0534 00 4 02317 7964EV27LXD$CPPI,4
15664 1 77773 4 15665 7965TXI*+1,4,−5 SAVE TOTAL OF 4 ITEMS
15665 0522 00 0 02414 7966EVP28XECENDPDL TEST FOR OUT OF PUSH DOWN LIST
15666 −0634 00 4 02317 7967SXD$CPPI,4
15667 0500 00 0 03372 7968CLAEVS1
15670 0601 00 4 77773 7969STO−5,4
15671 0500 00 0 03373 7970CLAEVSE
15672 0601 00 4 77774 7971STO−4,4
15673 0500 00 0 03374 7972CLAEVSA
15674 0601 00 4 77775 7973STO−3,4
15675 0500 00 0 03375 7974CLAEVTRK
15676 0601 00 4 77776 7975STO−2,4
15677 0500 00 0 16127 7976CLAEVCM
15700 0601 00 4 77777 7977STO−1,4
15701 0500 00 0 16122 7978CLAEVTAE GET THE FUNCTION
15702 0622 00 0 03373 7979STDEVSE
15703 −0600 00 0 03374 7980STQEVSA A
15704 0500 00 0 03411 7981CLAEVTDE CDR(E)
15705 0560 00 0 15763 7982LDQELP1 FUNCTIONAL ARGUMENT
15706 0074 00 4 04214 7983TSXMAPLIS,4 MAPLIST(L,EVAL(CAR(L),A))
15707 0601 00 0 16124 7984STOEVT1
15710 0500 00 0 03374 7985CLAEVSA
15711 0601 00 0 03321 7986STO$ARG3
15712 0500 00 0 03373 7987CLAEVSE
15713 −0534 00 4 02317 7988LXD$CPPI,4 START OPEN UNSAVE
15714 0560 00 4 77773 7989LDQ−5,4
15715 −0600 00 0 03372 7990STQEVS1
15716 0560 00 4 77774 7991LDQ−4,4
15717 −0600 00 0 03373 7992STQEVSE
15720 0560 00 4 77775 7993LDQ−3,4
15721 −0600 00 0 03374 7994STQEVSA
15722 0560 00 4 77776 7995LDQ−2,4
15723 −0600 00 0 03375 7996STQEVTRK
15724 1 00005 4 15725 7997TXI*+1,4,5
15725 −0634 00 4 02317 7998SXD$CPPI,4
15726 0560 00 0 16124 7999LDQEVT1
15727 0520 00 0 03375 8000ZETEVTRK TEST RACE SWITCH
15730 0020 00 0 15733 8001TRAEVDCO DECODE EVTRAK
15731 −0534 00 4 03372 8002EVAPGLXDEVS1,4
15732 0020 00 0 14663 8003TRA$APPLY APPLY(CADAR(J),EVLIS(CDR(E),A),A)
8004 *
8005 * IF CAR E IS A SUBR, THE POINTRE TO THE TXL INSTRUCTION
8006 * IS SAVED IN THE DECREMENT OF VETRK. THE ADDRESS OF
8007 * EVTRK IS THE TRACE SWITCH.
8008 *
15733 −0534 00 4 03375 8009EVDCOLXDEVTRK,4 LOOK FOR SUBR POINTER
15734 −3 00000 4 16031 8010TXLEVTXP,4,0 THERE ISNT ANY. SO GO AND TRACE EXPR
15735 0534 00 4 03375 8011LXAEVTRK,4 SEE IF THE SUBR IS TRACED
15736 3 00000 4 15731 8012TXHEVAPG,4,0 YES IT IS. LET APPLY HANDLE IT
15737 −0534 00 4 03375 8013LXDEVTRK,4 GET THE TXL SUBR WORD
15740 0500 00 4 00000 8014CLA0,4
15741 0601 00 0 16124 8015STOEVT1 READY TO EXECUTE
15742 0500 00 0 03372 8016CLAEVS1 GET RETURN INDEX AND ATOM NAME
15743 0601 00 0 03315 8017STOCSV AND SAVE THEM ALONG WITH $ALIST
15744 0074 00 4 02312 8018TSX$SAVE,4
15745 −3 03320 0 02377 8019TXL$END2,,$ALIST+2
15746 0500 00 0 03321 8020CLA$ARG3
15747 0601 00 0 03316 8021STO$ALIST POST CURRENT ALIST
15750 0131 00 0 00000 8022XCA ARGUMENT LIST TO AC
15751 0074 00 4 10072 8023TSX$SPREAD,4 SMEAR IT OUT
15752 0074 00 4 16124 8024TSXEVT1,4 EXECUTE SUBR
15753 0074 00 4 02326 8025TSXUNSAVE,4 RESTORE ALIST AND IX
15754 −0534 00 4 03315 8026LXDCSV,4
15755 0020 00 4 00001 8027TRA1,4 AND RETURN
8028 *
15756 −0734 00 4 00000 8029EVP27PDX0,4 SUBR BRANCH
15757 0500 00 4 00000 8030CLA0,4
15760 0734 00 4 00000 8031PAX0,4 POINTER TO TXL WORD
15761 −0634 00 4 03375 8032SXDEVTRK,4 TO SAVE POSITION
15762 0020 00 0 15663 8033TRAEV27 EVALUATE ARGUMENTS
8034 *
15763 −3 00000 0 15764 8035ELP1TXL*+1,,0
15764 0634 00 4 15772 8036SXAELT1,4 SAVE LINK IR
15765 −0734 00 4 00000 8037PDX,4 J
15766 0500 00 4 00000 8038CLA,4
15767 0734 00 4 00000 8039PAX,4
15770 −0754 00 4 00000 8040PXD,4 CAR(J)
15771 0560 00 0 03374 8041LDQEVSA GET CURRENT A LIST
15772 0774 00 4 00000 8042ELT1AXT**,4 RESTORE LINK IR
15773 0020 00 0 15454 8043TRA$EVAL
8044 *
8045 * EVLIS
8046 *
15774 −0634 00 4 03372 8047EVLISSXDEVS1,4 SAVE LINK IR
15775 0774 00 4 10167 8048AXTEVLISL,4 ATOM EVLIS
15776 0634 00 4 03372 8049SXAEVS1,4 FOR BACKTRACE
15777 0074 00 4 02312 8050TSX$SAVE,4 SAVE EVAL STORAGE
16000 −3 03376 0 02375 8051TXL$END3,,EVSA+2
16001 −0600 00 0 03374 8052STQEVSA
16002 0560 00 0 15763 8053LDQELP1
16003 0074 00 4 04214 8054TSXMAPLIS,4
16004 0074 00 4 02326 8055TSXUNSAVE,4
16005 −0534 00 4 03372 8056LXDEVS1,4
16006 0020 00 4 00001 8057TRA1,4
8058 *
16007 −0634 00 4 01562 8059EVP26SXD$ERROR,4
16010 −0534 00 2 16124 8060LXDEVT1,2
16011 0500 00 0 16121 8061CLAEVTE
16012 0074 00 4 01563 8062TSX$ERROR+1,4
16013 542160601154 8063BCI1,*A␣␣9*
8064 *
16014 0734 00 4 00000 8065EVTFSPAX0,4 ATOM NAME
16015 −0754 00 4 00000 8066PXD0,4 TO PRINT POSITION
16016 0560 00 0 03411 8067LDQEVTDE
16017 0074 00 4 16050 8068TSXARGOF,4 PRINT ARGUMENT MESSAGE
16020 0560 00 0 03316 8069LDQ$ALIST RESTORE ALIST AFTER ARGOF
16021 0500 00 0 03411 8070CLAEVTDE AND ARGUMENT LIST
16022 0074 00 4 16124 8071TSXEVT1,4 DO THE FSUBR
16023 0074 00 4 02326 8072TSXUNSAVE,4 RESTORE THE IR
16024 0131 00 0 00000 8073XCA VALUE TO MQ
16025 0534 00 4 03315 8074LXACSV,4 GET ATOM NAME FOR VALUE MESSAGE
16026 −0754 00 4 00000 8075PXD0,4 TO AC
16027 −0534 00 4 03315 8076LXDCSV,4 AND RETURN IR4
16030 0020 00 0 16104 8077TRAVALOF PRINT VALUE MESSAGE
8078 *
16031 0622 00 0 03411 8079EVTXPSTDEVTDE SAVE LAMBDA EXPRESSION
16032 0534 00 4 03372 8080LXAEVS1,4 GET ATOMIC FUNCTION
16033 −0754 00 4 00000 8081PXD0,4 TO PRINT POSITION
16034 0074 00 4 16050 8082TSXARGOF,4 PRINT ARGUMENT MESSAGE
16035 0074 00 4 02312 8083TSX$SAVE,4 SAVE THERETURN IX
16036 −3 03374 0 02401 8084TXL$END1,,EVS1+2
16037 0560 00 0 16124 8085LDQEVT1 RESTORE THE LIST OF ARGUMENTS
16040 0500 00 0 03411 8086CLAEVTDE AND THE LAMBDA EXPRESSION
16041 0074 00 4 14663 8087TSX$APPLY,4 APPLY THE FUNCTION TO ITS ARGS
16042 0074 00 4 02326 8088TSXUNSAVE,4
16043 0131 00 0 00000 8089XCA PUT VALUE IN AC
16044 0534 00 4 03372 8090LXAEVS1,4 NAME OF ROUTINE TRACED
16045 −0754 00 4 00000 8091PXD0,4 PUT IN AC
16046 −0534 00 4 03372 8092LXDEVS1,4 LINK IR
16047 0020 00 0 16104 8093TRAVALOF PRINT VALUE OF STATEMETN
8094 *
8095 * ARGOF PRINTS ARGUMENTS OF NAME FOLLOWED BY THE LIST OF ARGUMEN
8096 *
16050 0634 00 4 16074 8097ARGOFSXAPRX,4 SAVE INDEX REGISTERS
16051 0634 00 2 16073 8098SXAPRY,2
16052 0601 00 0 16076 8099STOAGA SAVE ATOM NAME
16053 −0600 00 0 16077 8100STQAGQ SAVE LIST OF ARGUMENTS
16054 0074 00 4 05214 8101TSXTERPRI,4 PRINT A BLANK LINE
16055 0774 00 2 00003 8102AXT3,2 PRINT2 OUT 3 WORDS
16056 0500 00 2 16103 8103CLAAGM+3,2
16057 0074 00 4 05110 8104TSX$PRIN2,4
16060 2 00001 2 16056 8105TIX*−2,2,1 LOOP
16061 0500 00 0 16076 8106CLAAGA
16062 0074 00 4 04604 8107TSX$PRINT,4 PRINT OUT THE LINE
16063 −0534 00 2 16077 8108LXDAGQ,2 START THE PRINLIS
16064 −3 00000 2 16073 8109PLLTXLPRY,2,0 EXIT IF END OF LIST
16065 0500 00 2 00000 8110CLA0,2 NEXT ITEM
16066 −0734 00 2 00000 8111PDX0,2 CDR OF LIST
16067 0734 00 4 00000 8112PAX0,4 CAR
16070 −0754 00 4 00000 8113PXD0,4
16071 0074 00 4 04604 8114TSX$PRINT,4
16072 0020 00 0 16064 8115TRAPLL GET NEXT ITEM
16073 0774 00 2 00000 8116PRYAXT**,2 RESTORE INDEX REGISTERS
16074 0774 00 4 00000 8117PRXAXT**,4
16075 0020 00 4 00001 8118TRA1,4 EXIT
8119 *
16076 0 00000 0 00000 8120AGA TEMPORARY STORAGE
16077 0 00000 0 00000 8121AGQ
16100 215127644425 8122AGMBCI1,ARGUME
16101 −056362607777 8123OCT456362607777 ARGUMENTS
16102 −062660777777 8124AGOOCT462660777777 OF
16103 652143642560 8125VALVBCI1,VALUE␣
8126 *
8127 * VALOF PRINTS VALUE OF NAME FOLLOWED BY ONE LIST
8128 * SHARES STORAGE WITH ARGOF ROUTINE
8129 *
16104 0634 00 4 16117 8130VALOFSXAVAX,4 SAVE LINK IR
16105 0601 00 0 16076 8131STOAGA ATOM NAME
16106 −0600 00 0 16077 8132STQAGQ VALUE OF EXPRESSION
16107 0074 00 4 05214 8133TSXTERPRI,4 PRINT A BLANK LINE
16110 0500 00 0 16103 8134CLAVALV WORD VALUE
16111 0074 00 4 05110 8135TSX$PRIN2,4 PUT IN OUTPUT LINE
16112 0500 00 0 16102 8136CLAAGO WORD OF
16113 0074 00 4 05110 8137TSX$PRIN2,4
16114 0500 00 0 16076 8138CLAAGA ATOM
16115 0074 00 4 04604 8139TSX$PRINT,4 PRINT OUT THE LINE
16116 0500 00 0 16077 8140CLAAGQ VALUE
16117 0774 00 4 00000 8141VAXAXT**,4 RESTORE LINK IR
16120 0020 00 0 04604 8142TRA$PRINT PRINT OUT VALUE AND RETURN
16121 0 00000 0 00000 8143EVTE E
16122 0 00000 0 00000 8144EVTAE CAR(E)
16123 0 00000 0 00000 8145EVTA A
16124 0 00000 0 00000 8146EVT1
16125 0 00000 0 00000 8147EVD1
16126 0 00000 0 00000 8148EVLNS TST CELL FOR NUMBERS
16127 −3 03377 0 02373 8149EVCMTXL$END4,,EVTRK+2
00370 8150EVZROSYN$ZERO
00442 8151EVQD1SYN$QD1
8152 * INTER MULTIPLE LISP STATEMENT PROGRAM FEATURE INTERPRETER
8153 * RECODED TO MAKE THE INTERPRETER AND COMPILER PROGRAM
8154 * FEATURE UNDER STAND THE SAME LANGUAGE
8155 *
8156R HED
16130 −0634 00 4 03444 8157INTERSXDINTRX,4 SAVE LINK IR
16131 0074 00 4 02312 8158TSX$SAVE,4 SAVE PROTECTED TEMPORARY STORAGE
16132 −3 03452 0 02371 8159TXL$END5,,INTGS+2 SAVE 5 ITEMS
16133 0634 00 2 03446 8160SXAINTGL,2 SAVE INDEX REGISTER 2
16134 −0600 00 0 03447 8161STQINTPL SAVE PAIR LIST
16135 0600 00 0 03450 8162STZINTGS ZERO THE GO SWITCH
16136 −0734 00 4 00000 8163PDX0,4 POINTER TO PROGRAM
16137 0500 00 4 00000 8164CLA0,4 FIRST WORD
16140 0622 00 0 03445 8165STDINTB POINTER TO BEGINNING OF PROGRAM
16141 0622 00 0 16271 8166STDINTE DITTO
16142 0734 00 4 00000 8167PAX0,4 POINTER TO LIST OF PROGRAM VARIABL CLIPSCAN
16143 −0754 00 4 00000 8168PXD0,4 TO DECREMENT
16144 0560 00 0 16242 8169LDQINTFB FUNCTIONAL ARGUMENT
16145 0074 00 4 04214 8170TSXMAPLIS,4 (MAPLIST PV (LAMBDA (L) (CONS (CA CLIPSCAN
16146 0560 00 0 03447 8171LDQINTPL NIL))) PICK UP PAIR LIST
16147 0074 00 4 07675 8172TSX$NCONC,4 ATTACH PROGARM VARIBLES TO PAIR L CLIPSCAN
16150 0601 00 0 03447 8173STOINTPL PUT IN PAIR LISDT REGISTER
16151 0560 00 0 00370 8174LDQ$ZERO ZERO THE MQ
16152 −0534 00 4 16271 8175INTGMLXDINTE,4 SEARCH PROGRAM FOR GO TO POINTS
16153 −3 00000 4 16166 8176TXLINTAA,4,0 GO IF END OF PROGRAM
16154 0500 00 4 00000 8177CLA0,4 NEXT WORD
16155 0622 00 0 16271 8178STDINTE SAVE CDR
16156 0734 00 2 00000 8179PAX0,2 CAR
16157 0500 00 2 00000 8180CLA0,2 MAKE ATOM TEST
16160 0734 00 2 00000 8181PAX0,2
16161 −3 77776 2 16152 8182TXLINTGM,2,−2 GO IF NOT AN ATOM
16162 −0754 00 4 00000 8183PXD0,4 IS AN ATOM, PUT POINTER TO CURREN CLIPSCAN
16163 0074 00 4 03730 8184TSX$CONS,4 PUT ON GO LOST
16164 0131 00 0 00000 8185XCA ANSWER TO MQ
16165 0020 00 0 16152 8186TRAINTGM NEXT ITEM
16166 −0620 00 0 03446 8187INTAASLQINTGL ALL DONE, STORE GO LIST
16167 −0534 00 4 03445 8188INTGALXDINTB,4,0 NEXT PROGRAM LOCATION
16170 −3 00000 4 16262 8189TXLINTRN,4,0 RETURN WITH NIL IF RAN OUT OF STA CLIPSCAN
16171 0500 00 4 00000 8190CLA0,4 NEXT WORD
16172 0622 00 0 03445 8191STDINTB SAVE CDR
16173 0734 00 4 00000 8192PAX0,4 CAR
16174 0500 00 4 00000 8193CLA0,4 FIRST WORD
16175 0734 00 2 00000 8194PAX0,2 CHECK FOR ATOM OR $COND
16176 3 77776 2 16167 8195TXHINTGA,2,−2 GO TO NEXT STEP IF ATOM
16177 −3 10457 2 16221 8196TXLINTEV,2,$COND−1 GO TO EVAL IF NOT $COND
16200 3 10460 2 16221 8197TXHINTEV,2,$COND
16201 −0734 00 2 00000 8198PDX0,2 IS $COND DO AN EVCOND
16202 −3 00000 2 16167 8199INTEBTXLINTGA,2,0 GO TO NEXT STEP IF COND UNSATISFIED CLIPSCAN
16203 0500 00 2 00000 8200CLA0,2 FIRST COND STATEMENT
16204 −0734 00 2 00000 8201PDX0,2 CDR
16205 0734 00 4 00000 8202PAX0,4 FIRST SUB COND
16206 0500 00 4 00000 8203CLA0,4
16207 −0734 00 4 00000 8204PDX0,4 POINTER TO THEN PART
16210 0634 00 4 03445 8205SXAINTB,4 SAVE IN PROTECTED STORAGE
16211 0734 00 4 00000 8206PAX0,4 POINTRE TO IF PART
16212 −0754 00 4 00000 8207PXD0,4 PUT IN DECREMENT
16213 0560 00 0 03447 8208LDQINTPL PAIR LIST
16214 0074 00 4 15454 8209TSX$EVAL,4 EVALUATE IT
16215 0100 00 0 16202 8210TZEINTEB GO IF IF PART IS FALSE
16216 0534 00 4 03445 8211LXAINTB,4 GET THEN PART
16217 0500 00 4 00000 8212CLA0,4
16220 0734 00 4 00000 8213PAX0,4 PPRINTER TPO THEN PART
16221 −0754 00 4 00000 8214INTEVPXD0,4 LIST TO BE EVALUATED
16222 0560 00 0 03447 8215LDQINTPL GET PAIR LIST
16223 0074 00 4 15454 8216TSX$EVAL,4 EVALUATE IT
16224 −0520 00 0 03450 8217NZTINTGS SEE IF GO SWITCH SET
16225 0020 00 0 16167 8218TRAINTGA GO TO NEXT STATEMENT
16226 0534 00 4 03450 8219LXAINTGS,4 WAS SET, SEE IF GO OR RETURN
16227 3 77776 4 16262 8220TXHINTRN,4,−2 TRA IF RETURN
16230 −0754 00 4 00000 8221PXD0,4 POINTER TO ITEM
16231 0560 00 0 16253 8222LDQINTFC GET SASSOC FUNCTIONAL ARGUMENT
16232 −0600 00 0 03321 8223STQ$ARG3 PUT IN $ARG3
16233 0560 00 0 03446 8224LDQINTGL GET GO LIST
16234 0074 00 4 10042 8225TSXSASSOC,4 SEARCH FOR ATOM
16235 −0734 00 4 00000 8226PDX0,4 POINTRE TP PROGRAM POINT
16236 0500 00 4 00000 8227CLA0,4 TAKE CDR
16237 0622 00 0 03445 8228STDINTB SET PROGRAM POINT
16240 0600 00 0 03450 8229STZINTGS ZERO THE GO SWITCH
16241 0020 00 0 16167 8230TRAINTGA GO TO THAT STATEMENT
8231 *
16242 −3 00001 0 16243 8232INTFBTXL*+1,,1 MAPLIST FUNCTIONAL ARGUMENT
16243 0634 00 4 16251 8233SXAINTFX,4 (LAMBDA (L) (CONS (CAR L) NIL))
16244 −0734 00 4 00000 8234PDX0,4
16245 0500 00 4 00000 8235CLA0,4
16246 0734 00 4 00000 8236PAX0,4
16247 −0754 00 4 00000 8237PXD0,4
16250 0560 00 0 00370 8238LDQ$ZERO
16251 0774 00 4 00000 8239INTFXAXT**,4
16252 0020 00 0 03730 8240TRA$CONS
8241 *
16253 −3 00001 0 16254 8242INTFCTXL*+1,,1 UNLABELED GO TO POINT ERROR
8243
16254 −0634 00 4 01562 8244SXD$ERROR,4 SAVE LINK IR
16255 0534 00 4 03450 8245LXAINTGS,4 POINTER TO GO POINT LABEL
16256 −0754 00 4 00000 8246PXD0,4 PUT IN DECREMENT
16257 0534 00 2 03446 8247LXAINTGL,2 RESTORE INDEX REGISTER 2
16260 0074 00 4 01563 8248TSX$ERROR+1,4 GO TO ERROR
16261 542160600654 8249BCI1,*A␣␣6*
8250 *
16262 −0534 00 4 03450 8251INTRNLXDINTGS,4 RETURN VALUE
16263 −0754 00 4 00000 8252PXD0,4 PUT IN DECREMENT
16264 0600 00 0 03450 8253STZINTGS ZERO THE GO SWITCH
16265 0534 00 2 03446 8254LXAINTGL,2 RESTORE INDEX REGISTER 2
16266 0074 00 4 02326 8255TSXUNSAVE,4 RESTORE PROTECTED STORAGE
16267 −0534 00 4 03444 8256LXDINTRX,4 RESTORE LINK IR
16270 0020 00 4 00001 8257TRA1,4
8258 * TEMPORARY STORAGE FOR INTERPRETERS
16271 0 00000 0 00000 8259INTE TEMPORARY STORAGE
03447 8260PRGVARSYNINTPL
8261 *
8262 *
8263 * RETURN SPECIAL PROGRAM SETS RETURN SWITCH
8264 * IN PROGRAM INTERPRETER
8265 *
16272 −0501 00 0 00457 8266RETURNORA$AMASK SIGNAL THAT IT IS A RETURN
16273 0601 00 0 03450 8267STOINTGS SET UP GO SWITCH
16274 0500 00 0 00442 8268CLA$QD1 PICK UP TRUTH VALUE
16275 0020 00 4 00001 8269TRA1,4 EXIT
8270 *
8271 * GO SPECIAL FORM FOR PROGRAM INTERPRETER, GIVES GO TO POINT
8272 *
16276 −0634 00 4 03413 8273GOGOGOSXDGOX,4 SAVE LINK IR
16277 −0734 00 4 00000 8274PDX0,4 POINTER TO ARGUMENT LIST
16300 0500 00 4 00000 8275CLA0,4
16301 0621 00 0 03450 8276STAINTGS PUT GAR IN GO SWITCH
16302 0734 00 4 00000 8277PAX0,4 CAR TO IR
16303 0500 00 4 00000 8278CLA0,4 GET FIRST WORD
16304 0734 00 4 00000 8279PAX0,4 SEE IF ATOMIC
16305 3 77776 4 16316 8280TXHGOT,4,−2 EXIT TRUE IF ATIMIC
16306 0534 00 4 03450 8281LXAINTGS,4 OTHERWISE GET ARGUMENT
16307 −0754 00 4 00000 8282PXD0,4 PUT INDECREMENT
16310 0074 00 4 02312 8283TSX$SAVE,4 SAVE LINK IR
16311 −3 03415 0 02401 8284TXL$END1,,GOX+2 SAVE 1 ITEM
16312 0074 00 4 15454 8285TSX$EVAL,4 EVALUATE THE ARGUMENT
16313 0074 00 4 02326 8286TSXUNSAVE,4 RSTORE LINK IR
16314 −0734 00 4 00000 8287PDX0,4 VALUE
16315 0634 00 4 03450 8288SXAINTGS,4 PU IN GO SWITCH
16316 0500 00 0 00442 8289GOTCLA$QD1 TRUTH VALUE
16317 −0534 00 4 03413 8290LXDGOX,4 RESTORE LINK IR
16320 0020 00 4 00001 8291TRA1,4 EXIT
8292 *
8293 * DECK LAP PART ONE
8294HEADC
8295 *
8296 * LAP IS THE ASSEMBLER. ONE ARG IS LISTING. IT IS LIST OF INSTRUC-
8297 * TIONS, NON-ATOMIC OR NIL. THE ATOMIC SYMBOLS ARE LOCATION SYMBOLS
8298 * SECOND ARG IS START OF SYMBIL TABLE WHICH IS AN A-LIST.
8299 * THE FIRST ITEM IS ORG AS FOLLOWS-
8300 * NIL= IN BPS
8301 * ATOM= AT SYMBOLIC LOCATION
8302 * NUM= ATHIS NUMBER
8303 * (NAME TYPE NUM) = IN BPS, AND PUT TXL ON PROP LIST OF NAME
8304 * WITH FLAG TYPE AND NUM (B DEC. OF TXL.
8305 * INSTRUCTION FORMAT IS (OP ADDR TAG DEC)
8306 * FIELD FORMAT IS AS FOLLOWS-
8307 * TEMP SYMBOL
8308 * NUMBER
8309 * SYM SUBR OR FSUBR
8310 * (E NAME) FOR IMMEDIATE AS IN TXL FILTER
8311 * (QUOTE NAME) FOR IMTE IN DEC OF WORD ON QTLST
8312 * POINTER TO COMMON WORD.MAKES ONE IF NONE ALREADY
8313 * SUM OF ANY OF ABOVE
8314 * LAP IS IDENTITY FUNCTION
8315 * LAP DOES NOT USE IX1. IX2,4 ARE SCARTCH
8316 * ERRORS IN LAP AS FOLLOWS-
8317 * *L 1* UNABLE TO EVALUATE ORIGIN
8318 * *L 2* OUT OF BPS DISCOVERED AFTER PASS 1
8319 * *L 3* UNDEFINED SYMBOL
8320 * *L 4* FIELD WAS RECURSIVE
8321 *
16321 0634 00 4 16470 8322LAPSXALAX,4
16322 0634 00 2 16471 8323SXALAX+1,2
16323 0601 00 0 16477 8324STOLIST THIS IS THE INPUT
16324 −0600 00 0 16501 8325STQTAB START OF SYMBOL TABLE
16325 −0734 00 4 00000 8326PDX0,4
16326 0500 00 4 00000 8327CLA0,4
16327 0622 00 0 16505 8328STDREST SAVE REST OF LISTING
16330 0734 00 2 00000 8329PAX0,2 ORIGIN IN IX2
16331 −3 00000 2 16356 8330TXLINBP,2,0 NIL MEANS BPS ASSEMBLY
16332 0500 00 2 00000 8331CLA0,2
16333 0734 00 4 00000 8332PAX0,4 CAR OF ORIGIN
16334 −3 77776 4 16356 8333TXLINBP,4,−2 NOT ATOM MEANS BPS MODE SO GO
16335 −0625 00 0 16511 8334STLMODE NOISE = NOT BPS
16336 −0754 00 2 00000 8335PXD0,2 MAKE NUMBER TEST
16337 0074 00 4 14445 8336TSXNUMBRP,4
16340 −0100 00 0 16351 8337TNZLSQ IF A NUMBER
16341 −0754 00 2 00000 8338PXD0,2 ORIGIN TO AC
16342 0560 00 4 00510 8339LDQ$QSYMD,4 (QUOTE SYM)
16343 0074 00 4 11771 8340TSXGET,4
16344 −0100 00 0 16350 8341TNZ*+4 ORIGINA WAS FIOUND
16345 −0634 00 4 01562 8342SXD$ERROR,4
16346 −0754 00 2 00000 8343PXD0,2 SHOW IT
16347 0074 00 4 01563 8344TSX$ERROR+1,4 UNDEFINED ORIGIN
16350 544360600154 8345BCI1,*L␣␣1*
16351 −0754 00 2 00000 8346LSQPXD0,2
16352 0074 00 4 14342 8347TSXNUMVAL,4 GET NUMERICAL VALUE
16353 −0734 00 4 00000 8348LSOPDX0,4
16354 0500 00 4 00000 8349CLA0,4 PUTS SYM IN AC FOR NOT BPS MODE
16355 0020 00 0 16361 8350TRA*+4
16356 0500 00 0 02304 8351INBPCLA$ORG PUTS ORG IN AC FOR BPS MODE
16357 0600 00 0 16511 8352STZMODE INDICATES BPS MODE
16360 0074 00 4 16535 8353TSXJUST,4 JUSTIFY AC
16361 0601 00 0 16506 8354STOSTAR UPDATE MARKER
16362 0601 00 0 16507 8355STOSTART RESET MARKER
16363 0600 00 0 16510 8356STZPASWD INDICATE PASS 1
16364 0074 00 4 16543 8357TSXPASS,4
16365 0500 00 0 16501 8358CLATAB
16366 0074 00 4 04604 8359TSX$PRINT,4 PRINT SYMBOL TABLE
16367 0520 00 0 16511 8360ZETMODE
16370 0020 00 0 16373 8361TRA*+3 IF NOT IN BPS MODE
16371 0534 00 4 16506 8362LXASTAR,4
16372 0522 00 0 16526 8363XECLBPTP TEST FOR OUT OF BPS
16373 0534 00 4 16507 8364LXASTART,4 RESET STAR FOR SECOND PASS
16374 0634 00 4 16506 8365SXASTAR,4
16375 −0534 00 4 16477 8366LXDLIST,4
16376 0500 00 4 00000 8367CLA0,4
16377 0622 00 0 16505 8368STDREST USED BY PASS AGAIN
16400 −0625 00 0 16510 8369STLPASWD NOISE MEANS PASS 2
16401 0074 00 4 16543 8370TSXPASS,4 FOR PASS 2
16402 0520 00 0 16511 8371ZETMODE
16403 0020 00 0 16464 8372TRALEND IF NOT IN BPS MODE
16404 0534 00 4 16506 8373LXASTAR,4 RSET ORG FOR NEXT ASSEMBLY
16405 0634 00 4 02304 8374SXA$ORG,4
16406 −0534 00 4 16477 8375LXDLIST,4
16407 0500 00 4 00000 8376CLA0,4 CWR OF LISTING
16410 0734 00 4 00000 8377PAX0,4
16411 0500 00 4 00000 8378CLA0,4 GET CWR OF ORIGIN
16412 0734 00 2 00000 8379PAX0,2 CAR OF ORIGIN
16413 −0734 00 4 00000 8380PDX0,4 CDR OF ORIGIN
16414 3 77776 2 16464 8381TXHLEND,2,−2 IF ATOM THEN NO TXL NEEDED
16415 −0634 00 2 16473 8382SXDNAME,2 CAR OF ORG IS NAME
16416 0500 00 4 00000 8383CLA0,4
16417 0734 00 2 00000 8384PAX0,2 CADR OF ORIGIN IS TYPE
16420 −0634 00 2 16474 8385SXDTYPE,2 STORE TYPE
16421 −0320 00 0 00460 8386ANA$DMASK CDDR IS NOE IN AC
16422 0074 00 4 11712 8387TSXCADARX,4 CADAR PUTS PART OF NUM IN DECR OF AC
16423 0622 00 0 16475 8388STDINDC FOR TXL WORD
16424 0534 00 4 16507 8389LXASTART,4
16425 0634 00 4 16475 8390SXAINDC,4 COMPLETES TXL WORD
16426 0500 00 0 16473 8391CLANAME
16427 0074 00 4 17034 8392TSXPRO,4
16430 0560 00 0 16474 8393LDQTYPE
16431 0074 00 4 11771 8394TSXGET,4
16432 0100 00 0 16444 8395TZEMKIND IF THERE WAS NO OLD TXL
16433 −0734 00 2 00000 8396PDX0,2 SAVE POINTER TO TXL
16434 0500 00 2 00000 8397CLA0,2 CWR OF OLD TXL
16435 0737 00 4 00000 8398PAC0,4 POINTER TO OLD BIN PTROG.
16436 0500 00 0 16507 8399CLASTART START OF NEW PROGRAM
16437 −0501 00 0 16476 8400ORAPATCH MAKE TRA INSTRUCTION
16440 0601 00 4 00000 8401STO0,4 CLOBBER OLD PROG.
16441 0500 00 0 16475 8402CLAINDC
16442 0601 00 2 00000 8403STO0,2 ON TOP OF OLD TXL
16443 0020 00 0 16464 8404TRALEND
16444 0500 00 0 16475 8405MKINDCLAINDC
16445 −0534 00 4 16474 8406LXDTYPE,4 SYM SHOULD HAVE TO TXL ON POINTER
16446 −3 06705 4 16451 8407TXLIND2,4,$SYM−1
16447 3 06706 4 16451 8408TXHIND2,4,$SYM
16450 −0320 00 0 00457 8409ANA$AMASK
16451 0074 00 4 03710 8410IND2TSX$CONSW,4
16452 0131 00 0 00000 8411XCA SAVE AC
16453 −0534 00 2 16473 8412LXDNAME,2 NAME OF SUBR OR TYOE
16454 0500 00 2 00000 8413CLA0,2
16455 −0320 00 0 00460 8414ANA$DMASK CDR OF NAME NOW IN AC
16456 0131 00 0 00000 8415XCA
16457 0074 00 4 03730 8416TSX$CONS,4 CONS (TXL,RESTOF PROPERTY LIST)
16460 0131 00 0 00000 8417XCA
16461 0500 00 0 16474 8418CLATYPE
16462 0074 00 4 03730 8419TSX$CONS,4 CONS,TYPE,RST OF ATM)
16463 0622 00 2 00000 8420STD0,2 RPLACD OF PROPERTY 9IST
16464 0500 00 0 16477 8421LENDCLALIST
16465 0600 00 0 16477 8422STZLIST
16466 0600 00 0 16501 8423STZTAB
16467 0600 00 0 16504 8424STZINST
8425 * DONT STORE ZERO IN QTLST
16470 0774 00 4 00000 8426LAXAXT**,4
16471 0774 00 2 00000 8427AXT**,2
16472 0020 00 4 00001 8428TRA1,4
8429 * ALL LAP REGISTERS FOLLOW,INCL. THOSE USED BY SUBROUTINES
16473 0 00000 0 00000 8430NAME NAME OF FUNCTION
16474 0 00000 0 00000 8431TYPE SUBR FSUBR ETC
16475 −3 00000 0 00000 8432INDCTXL**,,** FOR TSL WORD
16476 0020 00 0 00000 8433PATCHTRA** FOR CLOBBER INSTRUCTION
8434 * DECK PERM PROTECTED LAP STORAGE
16477 8435PROBESYN* BEGINNING OF PROTECTED AREA
16477 0 00000 0 00000 8436LIST MAIN LISTING GOES HERE
16500 0 00000 0 00000 8437QTLST THE LIST OF QUOTES.NEVER ERASE
16501 0 00000 0 00000 8438TAB TEMPORARY SYM TABLE
16502 0 00000 0 00000 8439LCOM STORAGE FOR COMMON ONLY.PROTECTED
16503 0 00000 0 00000 8440PROS PROTECTED FUNCTION NAMES AND SPECIALS
16503 8441PROENSYN*−1 END OF PROTECTED AREA
8442 * DECK LAP PART TWO
16504 0 00000 0 00000 8443INST HOLDS CURRENT INSTRUCTION OR FRACTION
16505 0 00000 0 00000 8444REST REMAINDER OF LISTING. PASS ALTERS THIS
16506 0 00000 0 00000 8445STAR * DIRECT ADDRESS POINTER TO CURRENT LO
16507 0 00000 0 00000 8446START RESET CELL FOR *
16510 0 00000 0 00000 8447PASWD ZERO MEANS PASS 1. NOISE = PASS 2
16511 0 00000 0 00000 8448MODE ZERO MEANS BPS ASSEMBLY
16512 0 00000 0 00000 8449HOLD SCRATCH CELL FOR AFELD ONLY.WATCH OUT
16513 0 00000 0 00000 8450SUM FOR USE BY AFELD LIST ONLY
16514 0 00000 0 00000 8451NOCUR FOR AFELD LIST ONLY.PREVENTS RECURSION
16515 0 00000 0 00000 8452REM FOR AFELD LIST ONLY.
16516 0 00000 0 03316 8453ALST $ALIST
16517 0 00000 0 00000 8454ERCC
16520 −3 00000 0 16521 8455LSACTXL*+1,,0
16521 −0754 00 0 00000 8456PXD0,0
16522 0020 00 4 00001 8457TRA1,4
8458 * DECK ATOM PIECES
16523 0 00000 0 17357 8459MOV MOVE THE WORD POINTED TO BY SYM ON *MOVE
16524 0 00000 0 17255 8460LSTR LST POINTED TO BY SYM ON ATOM *LIST
16525 0 00000 0 17454 8461RTRN RESTOR
8462 * DECK LAP PART THREE
8463 * ADDR(REM)=IX4 SAVED.DECR=REST OF LIST FIELD
8464 *
8465 * LBPTP CHECKS FOR OUT OF BPS AND MAKES ERROR IF D SO.
16526 3 00000 4 16527 8466LBPTPTXH*+1,4,** SETUP FILLS THIS CELL
16527 −0634 00 4 01562 8467SXD$ERROR,4
16530 −0754 00 4 00000 8468PXD0,4
16531 0560 00 0 00503 8469LDQ$OCTD
16532 0074 00 4 12636 8470TSX$MKNO,4
16533 0074 00 4 01563 8471TSX$ERROR+1,4
16534 544360600254 8472BCI1,*L␣␣2*
8473 *
8474 * JUST REDUCES THE AC MOD 2**15.THE RESULT IS 15 BITS IN ADDR OF AC
8475 * IT IS ALWAYS POSITIVE
16535 0120 00 0 16540 8476JUSTTPL*+3
16536 0760 00 0 00006 8477COM
16537 0402 00 0 00371 8478SUB$Q1
16540 −0320 00 0 00457 8479ANA$AMASK
16541 −0140 00 4 00001 8480TNO1,4
16542 0020 00 4 00001 8481TRA1,4
8482 *
8483 * PASS DOES BOTH PASSES FOR LAP
8484 * FIRST PASS MAKES SYMBOL TABLE AND UPDATES ON INSTRUCTIONS
8485 * SECOND PASS IGNORES SYMBOLS ASSEMBLES AND UPDTS INSTRUCTIONS
16543 0634 00 4 16600 8486PASSSXAPAUX,4
16544 −0534 00 4 16505 8487LOP1LXDREST,4
16545 −3 00000 4 16600 8488TXLPAUX,4,0 IF NO MORE LISTING
16546 0500 00 4 00000 8489CLA0,4
16547 0622 00 0 16505 8490STDREST RESET REST OF LISTING
16550 0734 00 4 00000 8491PAX0,4
16551 −0634 00 4 16504 8492SXDINST,4
16552 −3 00000 4 16572 8493TXLAMBL,4,0 IF NIL
16553 0500 00 4 00000 8494CLA0,4
16554 0734 00 4 00000 8495PAX0,4
16555 −3 77776 4 16572 8496TXLAMBL,4,−2 IF NOT ATOMO
16556 0520 00 0 16510 8497ZETPASWD
16557 0020 00 0 16544 8498TRALOP1 IF PASS 2
16560 0500 00 0 16506 8499CLASTAR OTHERWISE ADD TO TABLE
16561 0560 00 0 00503 8500LDQ$OCTD
16562 0074 00 4 12636 8501TSX$MKNO,4 MAKE A NUMBER
16563 0131 00 0 00000 8502XCA
16564 0500 00 0 16504 8503CLAINST
16565 0074 00 4 03730 8504TSX$CONS,4 (NAME.VALUE)
16566 0560 00 0 16501 8505LDQTAB
16567 0074 00 4 03730 8506TSX$CONS,4
16570 0601 00 0 16501 8507STOTAB
16571 0020 00 0 16544 8508TRALOP1
16572 0520 00 0 16510 8509AMBLZETPASWD LAND HERE IF INSTRUCTION NOT SYMBOL
16573 0074 00 4 16602 8510TSXAINS,4 ON PASS 2 ONLY
16574 0534 00 4 16506 8511LXASTAR,4
16575 1 00001 4 16576 8512TXI*+1,4,1 UPDATE * AFTER INSTRUCTION IS ASSEMBLE
16576 0634 00 4 16506 8513SXASTAR,4
16577 0020 00 0 16544 8514TRALOP1
16600 0774 00 4 00000 8515PAUXAXT**,4
16601 0020 00 4 00001 8516TRA1,4
8517 *
8518 * AINS IS THE INSTRUCTION ASSEMBLER. ARG IS IN INST. VAL IS IN AC
16602 0634 00 4 16620 8519AINSSXAAINX,4
16603 0074 00 4 16622 8520TSXAFELD,4
16604 0601 60 0 16506 8521STO*STAR
16605 0074 00 4 16622 8522TSXAFELD,4
16606 0074 00 4 16535 8523TSXJUST,4
8524
16607 −0602 60 0 16506 8525ORS*STAR THIS IS ADDRESS FIELD
16610 0074 00 4 16622 8526TSXAFELD,4
16611 0767 00 0 00017 8527ALS15
16612 0140 00 0 16613 8528TOV*+1
16613 −0602 60 0 16506 8529ORS*STAR TAG FIELD
16614 0074 00 4 16622 8530TSXAFELD,4
16615 0074 00 4 16535 8531TSXJUST,4
16616 0767 00 0 00022 8532ALS18 NO OVERFLOW AFTER JUST
16617 −0602 60 0 16506 8533ORS*STAR
16620 0774 00 4 00000 8534AINXAXT**,4
16621 0020 00 4 00001 8535TRA1,4
8536 *
8537 * AFELD IS THE FIELD EVALUATOR. A LIST OF FIELDS IS EXPECTED IN INST.
8538 * IT EVALUATES THE FIRST AND SETS INST TO THE REST. IF NO MORE FIELDS LE
8539 * ARE LEFT, IT GOES TOAINX, THE EXIT POINT OF AINS
8540 * AFELD HAS CERTAIN PRIVATE CELLS,SEE AFTER LAP.) THE LIST AFELD IS A
8541 * SLIGHTLY RECURSIVE DEVISE WHICH HAS SPECIAL CELLS AND CANNOT REENTER I
8542 * ITSELF WITHOUT ERROR.
16622 0634 00 4 17032 8543AFELDSXAFELX,4
16623 0600 00 0 16514 8544STZNOCUR
16624 −0534 00 4 16504 8545LXDINST,4
16625 −3 00000 4 16620 8546TXLAINX,4,0 IF NO MORE FIELDS
16626 0500 00 4 00000 8547CLA0,4
16627 0622 00 0 16504 8548STDINST REST OF FIELDS
16630 0734 00 2 00000 8549PAX0,2
16631 0500 00 2 00000 8550LEMCLA0,2
16632 0734 00 4 00000 8551PAX0,4
16633 −3 77776 4 16707 8552TXLNATM,4,−2 IF NOT ATOMIC FIELD
16634 3 00000 2 16637 8553TXH*+3,2,0
16635 0500 00 0 02304 8554CLA$ORG NIL SYMBOL MEANS ORIGIN
16636 0020 00 0 17032 8555TRAFELX
16637 −0754 00 2 00000 8556PXD0,2
16640 0560 00 0 16520 8557LDQLSAC FN ARG FOR SASSOC
16641 −0600 00 0 03321 8558STQ$ARG3
16642 0560 00 0 16501 8559LDQTAB
16643 0074 00 4 10042 8560TSXSASSOC,4 LOOK UP IN SYM TABLE
16644 0100 00 0 16652 8561TZENTAB NOT IN TAB
16645 0074 00 4 15222 8562TSX$CDRP,4
16646 0074 00 4 14342 8563NEVALTSXNUMVAL,4
16647 −0734 00 4 00000 8564PDX0,4
16650 0500 00 4 00000 8565CLA0,4
16651 0020 00 0 17032 8566TRAFELX
16652 −0754 00 2 00000 8567NTABPXD0,2
16653 0074 00 4 14445 8568TSXNUMBRP,4
16654 0100 00 0 16657 8569TZE*+3 IF NOT A NUMBER
16655 −0754 00 2 00000 8570PXD0,2 LISP NUMBER IN AC
16656 0020 00 0 16646 8571TRANEVAL
16657 −0634 00 2 16517 8572SXDERCC,2 SAVE ATOM
16660 0500 00 2 00000 8573LOP2CLA0,2 LOOP FOR SYM,SUBR,FSUBR
16661 −0734 00 2 00000 8574PDX0,2
16662 0734 00 4 00000 8575PAX0,4
16663 3 00000 2 16670 8576TXHPA,2,0 IF NOT NIL
16664 −0634 00 4 01562 8577SXD$ERROR,4
16665 0500 00 0 16517 8578CLAERCC
16666 0074 00 4 01563 8579TSX$ERROR+1,4
16667 544360600354 8580BCI1,*L␣␣3*
16670 −3 06705 4 16672 8581PATXL*+2,4,$SYM−1
16671 −3 06706 4 16703 8582TXLFINX,4,$SYM
16672 −3 06732 4 16674 8583TXL*+2,4,$SUBR−1
16673 −3 06733 4 16676 8584TXLFIND,4,$SUBR
16674 −3 10102 4 16660 8585TXLLOP2,4,$FSUBR−1
16675 3 10103 4 16660 8586TXHLOP2,4,$FSUBR
16676 0500 00 2 00000 8587FINDCLA0,2
16677 0734 00 4 00000 8588PAX0,4
16700 0500 00 4 00000 8589CLA0,4
16701 −0320 00 0 00457 8590ANA$AMASK
16702 0020 00 0 17032 8591TRAFELX
8592 *
16703 0500 00 2 00000 8593FINXCLA0,2
16704 0734 00 4 00000 8594PAX0,4
16705 0500 00 4 00000 8595CLA0,4
16706 0020 00 0 17032 8596TRAFELX
8597 *
16707 −3 06153 4 16715 8598NATMTXLNTE,4,$H25−1
16710 3 06154 4 16715 8599TXHNTE,4,$H25 FOR (E EXP)
16711 −0754 00 2 00000 8600PXD0,2 ENTIRE FIELD
16712 0074 00 4 11730 8601TSXCADRXX,4
16713 0771 00 0 00022 8602ARS18
16714 0020 00 0 17032 8603TRAFELX
16715 −3 07247 4 16754 8604NTETXLNQT,4,$QUOTE−1 LAND HERE FOR NOT (...
16716 3 07250 4 16754 8605TXHNQT,4,$QUOTE ABOVE AND THIS FOR (QUOTE...
16717 −0734 00 2 00000 8606PDX0,2 AC HAS CWR OF FIELD
16720 0500 00 2 00000 8607CLA0,2
16721 0734 00 2 00000 8608PAX0,2 POINTER TO EQ QUANTITY
16722 −0534 00 4 16500 8609LXDQTLST,4
16723 −3 00000 4 16737 8610TXLNON,4,0 TEST FOR NO LIST
16724 0500 00 4 00000 8611FLOOPCLA0,4 AN EQUAL TYPE SEARCH
16725 0601 00 0 16512 8612STOHOLD TEMPORARY SAVING OF REST
16726 0734 00 4 00000 8613PAX0,4
16727 0500 00 4 00000 8614CLA0,4
16730 −0320 00 0 00460 8615ANA$DMASK LITREAL QUANTITY FOR EQUAL COMPARISON
16731 0131 00 0 00000 8616XCA
16732 −0754 00 2 00000 8617PXD0,2 THE NEW ITEM
16733 0074 00 4 04461 8618TSX$EQUAL,4 TEST FOR EUQALITY
16734 −0100 00 0 16752 8619TNZONQT IF ALREADY ON LIST
16735 −0534 00 4 16512 8620LXDHOLD,4
16736 3 00000 4 16724 8621TXHFLOOP,4,0 IF NOT HEAD OF QTLIST
16737 −0754 00 2 00000 8622NONPXD0,2 NEED TO MAKE ENTRY
16740 0131 00 0 00000 8623XCA
16741 0754 00 0 00000 8624PXA0,0
16742 0074 00 4 03730 8625TSX$CONS,4 CONS(NIL EXP)
16743 0601 00 0 16512 8626STOHOLD NEEDS NO PROTECTION AS SEEN BY WHAT FO
8627 * FOLLOWS
16744 0560 00 0 16500 8628LDQQTLST
16745 0074 00 4 03730 8629TSX$CONS,4 CONS((NIL.EXP, ...
16746 0601 00 0 16500 8630STOQTLST
16747 −0535 00 4 16512 8631LDCHOLD,4 WANT TRUE POINTER
16750 0754 00 4 00000 8632TRPPXA0,4
16751 0020 00 0 17032 8633TRAFELX
8634 * THIS IS POINTER TO A NIL.EXP WORD IN FREE STORAGE
16752 0535 00 4 16512 8635ONQTLACHOLD,4
16753 0020 00 0 16750 8636TRATRP
16754 −3 07107 4 17004 8637NQTTXLFDLST,4,SPECAL−1
16755 3 07110 4 17004 8638TXHFDLST,4,SPECAL (SPECIAL NAME)
16756 0560 00 0 00507 8639LDQQSPECD SPECIAL IN MQ
16757 −0320 00 0 00460 8640ANA$DMASK (NAME) IN AC
16760 0074 00 4 15212 8641TSX$CARP,4
16761 0074 00 4 11771 8642TSXGET,4
16762 −0100 00 0 17001 8643TNZSPP JUST NEED TO ASSURE PROTECTION
16763 0560 00 0 00370 8644LDQ$ZERO
16764 0074 00 4 03730 8645TSX$CONS,4 AC HAS ZERO IF YOU ARE HERE
16765 0601 00 0 16502 8646STOLCOM PROTECTED TEMP CELL
16766 −0754 00 2 00000 8647PXD0,2 (SPECIAL NAME)
16767 0074 00 4 11705 8648TSXCAADRX,4 CDR(NAME)
16770 −0734 00 2 00000 8649PDX0,2 SAVE ABOVE
16771 0131 00 0 00000 8650XCA
16772 0500 00 0 16502 8651CLALCOM
16773 0074 00 4 03730 8652TSX$CONS,4
16774 0131 00 0 00000 8653XCA
16775 0500 00 0 00507 8654CLAQSPECD
16776 0074 00 4 03730 8655TSX$CONS,4
16777 0622 00 2 00000 8656STD0,2 RPLACD OF NAME
17000 0074 00 4 11730 8657TSXCADRXX,4 POINTER TO (NIL)
17001 0074 00 4 17034 8658SPPTSXPRO,4
17002 −0737 00 4 00000 8659PDC0,4
17003 0020 00 0 16750 8660TRATRP
17004 −0520 00 0 16514 8661FDLSTNZTNOCUR NO RE-ENTRY TO AFELD LIST IS ALLOWED
17005 0020 00 0 17011 8662TRA*+4
17006 −0634 00 4 01562 8663SXD$ERROR,4
17007 0074 00 4 01563 8664TSX$ERROR+1,4
17010 544360600454 8665BCI1,*L␣␣4*
17011 −0625 00 0 16514 8666STLNOCUR PREVENT RECURSION
17012 0600 00 0 16513 8667STZSUM RESET SUM WORD
17013 0534 00 4 17032 8668LXAFELX,4
17014 0634 00 4 16515 8669SXAREM,4 SAVES THE RETURN FOR AFELD
17015 0500 00 2 00000 8670LOPLCLA0,2
17016 0622 00 0 16515 8671STDREM
17017 0734 00 2 00000 8672PAX0,2
17020 −0774 00 4 17022 8673AXC*+2,4
17021 0634 00 4 17032 8674SXAFELX,4 REENTER THE EVALUATOR
17022 0020 00 0 16631 8675TRALEM
17023 0400 00 0 16513 8676ADDSUM
17024 0601 00 0 16513 8677STOSUM
17025 −0534 00 2 16515 8678LXDREM,2 REST OF FIELDS
17026 3 00000 2 17015 8679TXHLOPL,2,0 IF THERE ARE MORE FIELDS (SUBFLDS)
17027 0600 00 0 16514 8680STZNOCUR ALLOWS ENTRY TO LIST AFELD AGAIN
17030 0534 00 4 16515 8681LXAREM,4
17031 0020 00 4 00001 8682TRA1,4
17032 0774 00 4 00000 8683FELXAXT**,4
17033 0020 00 4 00001 8684TRA1,4
8685 *
17034 0634 00 4 17050 8686PROSXAPX,4
17035 0601 00 0 17060 8687STOPTR SAVE ARGUMENT
17036 0622 00 0 17047 8688STDPH SET UP TXH
17037 0402 00 0 00442 8689SUB$QD1 AND
17040 0622 00 0 17046 8690STDPL TXL SIEVE
17041 0500 00 0 16503 8691CLAPROS GET PROTECTED LIST
17042 −0734 00 4 00000 8692PNLPDX0,4
17043 −3 00000 4 17053 8693TXLPMK,4,0 END OF LIST, SO MAKE NEW ENTRY
17044 0500 00 4 00000 8694CLA0,4
17045 0734 00 4 00000 8695PAX0,4
17046 −3 00000 4 17042 8696PLTXLPNL,4,**
17047 3 00000 4 17042 8697PHTXHPNL,4,** FALL THROUGH IF FOUND
17050 0774 00 4 00000 8698PXAXT**,4
17051 0500 00 0 17060 8699CLAPTR RESTORE AC
17052 0020 00 4 00001 8700TRA1,4
8701 *
17053 0560 00 0 16503 8702PMKLDQPROS MAKE A NEW ITEM
17054 0500 00 0 17060 8703CLAPTR
17055 0074 00 4 03730 8704TSX$CONS,4
17056 0601 00 0 16503 8705STOPROS STORE NEW LIST
17057 0020 00 0 17050 8706TRAPX AND RETURN
8707 *
17060 0 00000 0 00000 8708PTR
8709 *
8710 *
8711 * DECK PERMANENT COMPILER SUBROUTINES
8712 * LINK HANDLES ALL SUBROUTINE CALLS FROM COMPILED FUNCTION
8713 * IT REPLACES STR WITH TSX IF SUBROUTINE BEING CALLED
8714 * IS A SUBR OR FSUBR
8715 * IT GOES TO APPLY IF THE CALL IS TO EXPR OR FEXPR WITH
8716 * $ALIST AS THIRD ARGUMENT
8717 * LINK EXPECTS A TAG OF 7 IN THE STR INST, NAME OF FUNCTION
8718 * IN THE ADDRESS, AND THE NUMBER OF ARGUMENTS IN THE DECREM
8719 * ENT LINK WILL GO TO THE ROUTINE WHICH
8720 * HANDLES ERROR TRAPS IF THE CALLING INST DOESNT HAVE A 7
8721 * TAG
8722 *
17061 0601 00 0 03417 8723LINKSTOLNKA
17062 −0600 00 0 03420 8724STQLNKB SAVE AC AND MQ
17063 0634 00 4 17243 8725SXALER,4 SAVE IR4
17064 0535 00 4 00000 8726LAC0,4 COMP POINTER TO STR+1
17065 1 00001 4 17066 8727TXI*+1,4,1 MAKE ORDINARY TSX POINTER
17066 0500 00 4 00000 8728CLA0,4 GET STR INST 7
17067 0601 00 0 17253 8729STOLNKD SAVE IT
17070 −0320 00 0 00470 8730ANATAGMSK CHECK FOR 7 TAG
17071 0322 00 0 00470 8731ERATAGMSK
17072 −0100 00 0 17243 8732TNZLER IF NOT 7 TAG
17073 −0634 00 4 17252 8733SXDLNKC,4 SAVE POINTER
17074 0500 00 0 00177 8734CLAB$ZERO RESTORE NIL
17075 0601 00 0 00000 8735STO0
17076 0600 00 0 17246 8736STZLNTRS RESET TRACE SWITCH
17077 0534 00 4 17253 8737LXALNKD,4 FUNCTION ATIM
17100 0500 00 4 00000 8738CLA0,4 START PROPERTY LIST SEARCH
17101 −0734 00 4 00000 8739LNLPPDX0,4
17102 −3 00000 4 17134 8740TXLLNNF,4,0 NO DEFINITION SO FN VARIABLE
17103 0500 00 4 00000 8741CLA0,4
17104 0734 00 4 00000 8742PAX0,4
17105 −3 06732 4 17107 8743TXL*+2,4,$SUBR−1
17106 −3 06733 4 17171 8744TXLLNSBR,4,$SUBR
17107 −3 10102 4 17111 8745TXL*+2,4,$FSUBR−1
17110 −3 10103 4 17171 8746TXLLNSBR,4,$FSUBR
17111 −3 06646 4 17113 8747TXL*+2,4,$TRACE−1
17112 −3 06647 4 17136 8748TXLLNTR,4,$TRACE
17113 −3 10156 4 17115 8749TXL*+2,4,$EXPR−1
17114 −3 10157 4 17117 8750TXLLNEXP,4,$EXPR
17115 −3 10141 4 17101 8751TXLLNLP,4,$FEXPR−1
17116 3 10142 4 17101 8752TXHLNLP,4,$FEXPR
17117 −0734 00 4 00000 8753LNEXPPDX0,4 EXPR-FEXPR BRANCH
17120 0500 00 4 00000 8754CLA0,4
17121 0734 00 4 00000 8755PAX0,4 LAMBDA EXPRESSION
17122 −0634 00 4 17247 8756LNGNSXDLNFN,4 SAVE IT
17123 0500 00 0 03316 8757CLA$ALIST
17124 0601 00 0 03321 8758STO$ARG3 PROPER ALIST
17125 0520 00 0 17246 8759ZETLNTRS TRACE TEST
17126 0020 00 0 17153 8760TRALNTEX TRACE EXPR OF FEXPR
17127 0074 00 4 17206 8761TSXLNARS,4 LIST ARGUMENTS
17130 0131 00 0 00000 8762XCA
17131 0500 00 0 17247 8763CLALNFN LAMBDA EXPRESSION
17132 −0534 00 4 17252 8764LXDLNKC,4 RETURN IR
17133 0020 00 0 14663 8765TRA$APPLY DO
8766 *
17134 0534 00 4 17253 8767LNNFLXALNKD,4 FUNCTION DEFN IS ON ALIST
17135 0020 00 0 17122 8768TRALNGN APPLY WILL TAKE CARE OF THIS
8769 *
17136 −0625 00 0 17246 8770LNTRSTLLNTRS SET TRACE SWITCH
17137 0601 00 0 17250 8771STOLNAC SAVE AC
17140 0074 00 4 17206 8772TSXLNARS,4 LIST ARGUMENTS
17141 0601 00 0 17251 8773STOLNRGL AND SAVE THEM
17142 0131 00 0 00000 8774XCA TO PRINT POSITION
17143 0534 00 4 17253 8775LXALNKD,4 ATOM NAME
17144 0634 00 4 17252 8776SXALNKC,4 SAVE WITH INDEX REGISTER
17145 −0754 00 4 00000 8777PXD0,4 ALSO FOR TRACE MESSAGE
17146 0074 00 4 02312 8778TSX$SAVE,4 SAVE NAME AND RETRN
17147 −3 17254 0 02401 8779TXL$END1,,LNKC+2
17150 0074 00 4 16050 8780TSXA$ARGOF,4 PRINT ARGUMENTS
17151 0500 00 0 17250 8781CLALNAC RESTORE AC
17152 0020 00 0 17101 8782TRALNLP AND CONTINUE PROPERTY LIST SEARCH
8783 *
17153 0500 00 0 17247 8784LNTEXCLALNFN TRACE EXPR OR FEXPR
17154 0560 00 0 17251 8785LDQLNRGL SET UP ARGUMENTS OF APPLY
17155 0074 00 4 14663 8786TSX$APPLY,4 AND DO THE FUNCTION
17156 0074 00 4 02326 8787LNTENTSXUNSAVE,4 GET BACK IR4 AND FN NAME
17157 0131 00 0 00000 8788XCA
17160 0534 00 4 17252 8789LXALNKC,4 ATOM NAME TO AC
17161 −0754 00 4 00000 8790PXD0,4
17162 −0534 00 4 17252 8791LXDLNKC,4 RESTORE INDEX
17163 0020 00 0 16104 8792TRAA$VALOF PRINT VALUE MESSAGE
8793 *
17164 0621 00 0 17167 8794LNTSBSTALNDIS TRACE SUBR OF FSUBR
17165 0500 00 0 03417 8795CLALNKA RESTORE AC
17166 0560 00 0 03420 8796LDQLNKB AND MQ
17167 0074 00 4 00000 8797LNDISTSX**,4 EXECUTER SUBROUTINE
17170 0020 00 0 17156 8798TRALNTEN AND REPORT VALUE
8799 *
17171 −0734 00 4 00000 8800LNSBRPDX0,4 SUBR OR FSUBR BRANCH
17172 0500 00 4 00000 8801CLA0,4
17173 0734 00 4 00000 8802PAX0,4
17174 0500 00 4 00000 8803CLA0,4 TXL SUBR,,N WORD
17175 0520 00 0 17246 8804ZETLNTRS TEST FOR TRACING
8805
17176 0020 00 0 17164 8806TRALNTSB
17177 0621 00 0 17254 8807STALNTSX MAKE A TSX
17200 0500 00 0 17254 8808CLALNTSX GET IT
17201 −0534 00 4 17252 8809LXDLNKC,4 RETURN IR
17202 0601 00 4 00000 8810STO0,4 CHANGE THE STR TO TSX
17203 0500 00 0 03417 8811CLALNKA RESTORE AC
17204 0560 00 0 03420 8812LDQLNKB
17205 0020 00 4 00000 8813TRA0,4 GO TO NEW TSX
8814 *
17206 0634 00 4 17237 8815LNARSSXALNLX,4 SUBROUTINE WHICH LISTS ARGS
17207 −0534 00 4 17253 8816LXDLNKD,4 NUMBER OF ARGS
17210 −3 00000 4 17241 8817TXLLNN,4,0 LST WONT WORK ON ZERO THINGS
17211 −0634 00 4 17213 8818SXDLNKP,4 PUT IN LST ARG POSITION
17212 0074 00 4 17255 8819TSXLST,4 LIST THEM
17213 3 00000 0 03417 8820LNKPTXHLNKA,0,**
17214 0734 00 0 03420 8821PAXLNKB,0
17215 0734 00 0 03321 8822PAX$ARG3,0
17216 0734 00 0 03322 8823PAX$ARG4,0
17217 0734 00 0 03323 8824PAX$ARG5,0
17220 0734 00 0 03324 8825PAX$ARG6,0
17221 0734 00 0 03325 8826PAX$ARG7,0
17222 0734 00 0 03326 8827PAX$ARG8,0
17223 0734 00 0 03327 8828PAX$ARG9,0
17224 0734 00 0 03330 8829PAX$ARG10,0
17225 0734 00 0 03331 8830PAX$ARG11,0
17226 0734 00 0 03332 8831PAX$ARG12,0
17227 0734 00 0 03333 8832PAX$ARG13,0
17230 0734 00 0 03334 8833PAX$ARG14,0
17231 0734 00 0 03335 8834PAX$ARG15,0
17232 0734 00 0 03336 8835PAX$ARG16,0
17233 0734 00 0 03337 8836PAX$ARG17,0
17234 0734 00 0 03340 8837PAX$ARG18,0
17235 0734 00 0 03341 8838PAX$ARG19,0
17236 0734 00 0 03342 8839PAX$ARG20,0
17237 0774 00 4 00000 8840LNLXAXT**,4 RESTORE INTEX
17240 0020 00 4 00001 8841TRA1,4
17241 −0754 00 0 00000 8842LNNPXD0,0 NIL
17242 0020 00 0 17237 8843TRALNLX
8844 *
17243 0774 00 4 00000 8845LERAXT**,4 RESTORE IR4
17244 0500 00 0 03417 8846CLALNKA
17245 0020 00 0 01766 8847TRASTRPNT GO TO ERROR HANDLING ROUTINEPP
8848 * LINK STORAGE
8849 * IS HERE, EXCEPT FOR LINKA NAD LINKB WHICH ARE IN GARB
17246 0 00000 0 00000 8850LNTRS TRACE SWITCH
17247 0 00000 0 00000 8851LNFN FUNCTION DEFINITION
17250 0 00000 0 00000 8852LNAC TEMPORARY AC STORAGE
17251 0 00000 0 00000 8853LNRGL ARGS LISTED DURNING TRANCE INTERLUD CLIPSCAN
17252 0 00000 0 00000 8854LNKC IR4 POINTRE TO STR WORD
17253 0 00000 0 00000 8855LNKD CONTAINS STR NAME,7,NUM
17254 0074 00 4 00000 8856LNTSXTSX**,4 INSTRUCTION TO BE PLANTED
8857 * LST IS THE SUBROUTINE WHICH DOES LISTING IN COMPILED
8858 * FUNCTION N ELEMENTS HWERE N IS IN AC, ARE
8859 * LISTED ARGUMENTS ARE GOTTEN BY CLA*
8860 * FROM THE N REGISTERS SUCEDING THE CALL
8861 *
17255 0634 00 2 17316 8862LSTSXALX2,2 SAVE IR2
17256 0500 00 4 00001 8863CLA1,4 TO GET N FROM FIRSTDECREMENT
17257 0622 00 0 17261 8864STDLSN TO DECREMENT IR4 FOR POINT EXIT
17260 0622 00 0 17275 8865STDLSC TO DECREMENT THE CONS COUNTER
17261 −2 00000 4 17262 8866LSNTNX*+1,4,**
17262 −0734 00 2 00000 8867PDX0,2 N TO IR2
17263 −0754 00 4 00000 8868PXD0,4 START TO COMPLEMENT IR4
17264 −0737 00 4 00000 8869PDC0,4 OH FOR A 7094
17265 1 00001 4 17266 8870TXI*+1,4,1 ONE MORE FOR EXIT
17266 0634 00 4 17302 8871SXALSP,4 SET UP GET INST
17267 0634 00 4 17320 8872SXALSE,4 AND RETURN
17270 −0534 00 4 03751 8873LXD$FREE,4 FIRST FREE WORD
17271 3 00000 4 17273 8874TXH*+2,4,0 TEST FOR OUT OF FREE
17272 0074 00 4 04037 8875TSX$FROUT,4 WILL RETURN -2,4
17273 −0634 00 4 17327 8876SXDLAN,4 THE ANSWER TO THIS SAUSAGE CONS
17274 0534 00 4 03742 8877LXA$CNTR1,4 GET CONS COUNTER
17275 2 00000 4 17300 8878LSCTIX*+3,4,** REDUCE IT BY N
17276 0074 00 4 03752 8879TSXARREST,4 OUT OF CONSES
17277 0774 00 4 77777 8880AXT−1,4 RESET COUNTRE (UP TO N CONSES MAY BE
17300 0634 00 4 03742 8881SXA$CNTR1,4 LOST EVERY 7777 OCTAL CONSES)
17301 −0534 00 4 17327 8882LXDLAN,4 RESTORE IR4 TO FREE WORD POINTER
17302 0500 60 2 00000 8883LSPCLA***,2 GET ARGUMENT
17303 0771 00 0 00022 8884ARS18 TO ADDRESS
17304 0621 00 4 00000 8885STA0,4 PUT IT IN THE FREE WORD ADDR
17305 0500 00 4 00000 8886CLA0,4 NEXT FREE WORD
17306 0634 00 4 17314 8887SXALFX,4 SAVE PRECEDING WORD TO CUT OFF
17307 −0734 00 4 00000 8888LSRPDX0,4 NEXT FREE WORD TO IR
17310 −3 00000 4 17321 8889TXLLFIX,4,0 OUT OF FREE STORAGE7
17311 2 00001 2 17302 8890TIXLSP,2,1 COUNT DOWN
17312 0622 00 0 03751 8891STD$FREE RESTORE FREE
17313 −0754 00 0 00000 8892PXD0,0 CLEAR
17314 0774 00 4 00000 8893LFXAXT**,4 LAST WORD IN LIST
17315 0622 00 4 00000 8894STD0,4 GETS NIL IN ITS DECREMENT
17316 0774 00 2 00000 8895LX2AXT**,2 RESTORE IR2
17317 0500 00 0 17327 8896CLALAN GET THE ANSWER
17320 0020 00 0 00000 8897LSETRA** RETURN
17321 0500 00 0 17327 8898LFIXCLALAN TO GET IT PROTECTED DURING MOP UP
17322 0074 00 4 02522 8899TSXRECLAM,4
17323 0500 00 0 03751 8900CLA$FREE FIX UP THE SAUSAGE
17324 0522 00 0 17314 8901XECLFX GET LAST WORD TO IR
17325 0622 00 4 00000 8902STD0,4 FIX ITS DECREMENT
17326 0020 00 0 17307 8903TRALSR
17327 0 00000 0 00000 8904LANPZE
8905 * UNWND IS UNSAVE FOR COMPILED FUNCTIONS, USED BY ERRORSET
8906 * TO RESTORE THE PDL TO PRISTINE STATE
17330 0634 00 4 17354 8907UNWNDSXAUNR,4 SAVE RETURN
17331 0634 00 2 17355 8908SXAUNR+1,2 SAVE IR2
17332 −0534 00 4 02317 8909LXD$CPPI,4 $CPPI IS COMPLEMENT OF PDL POSITOIN
17333 0500 00 4 77777 8910CLA−1,4 SO THIS GETS STR 0,,N
17334 0622 00 0 17352 8911STDUNJ SAVE N TO RESTORE PDL
17335 0402 00 0 00442 8912SUB$QD1 AND SET UP TEST WHICH SAYS THAT
17336 0622 00 0 17343 8913STDUNH WE HABE CRAWLED UP THE PDL ALL WAY
17337 −0535 00 4 02317 8914LDC$CPPI,4 NEED TRUE POINTER FOR CALLING WORDS
17340 0634 00 4 17344 8915SXAUNG,4 IN VERSE ORDER FROM PDL
17341 0774 00 4 00001 8916AXT1,4 INITIALIZE THE RECALL LOOP
17342 1 00001 4 17343 8917UNFTXI*+1,4,1 INCREMENT THE GET IR
17343 3 00000 4 17351 8918UNHTXHUND,4,** TEST FOR LAST WORD RESTORED
17344 0500 00 4 00000 8919UNGCLA**,4 GET SAVED ITEM (GOING FROM BOT TO TOP)
17345 0734 00 2 00000 8920PAX0,2 ZERO ADDRESS INTICATES NOT NECESS RES
17346 −2 00000 2 17342 8921TNXUNF,2,0 FALL THROUGH IS TO RESTORE WORD
17347 0737 00 2 00000 8922PAC0,2 ADDR IS TRUE POINTER TO LOCATION
17350 1 00001 4 17343 8923TXIUNH,4,1 WOK ON NEXT ONE
17351 −0534 00 4 02317 8924UNDLXD$CPPI,4 PUSH UP $CPPI
17352 1 00000 4 17353 8925UNJTXI*+1,4,** BY N
17353 −0634 00 4 02317 8926SXD$CPPI,4
17354 0774 00 4 00000 8927UNRAXT**,4 RESTORE LINK
17355 0774 00 2 00000 8928AXT**,2 AND IR2
17356 0020 00 4 00001 8929TRA1,4
8930 * MOVE IS A SPECIAL COMPILER SERVICE SUBROTUINE WITH BAD CALLING.
8931 * TSX *MOVE,1
8932 * TNX NAME,1,*MN
17357 0634 00 1 17364 8933MOVESXAMOVY,1
17360 −0534 00 1 02317 8934LXD$CPPI,1 PICK UP PDL PPINTER
17361 0601 00 1 00001 8935STO1,1 SAVE AC
17362 −0600 00 1 00002 8936STQ2,1
17363 −0634 00 4 17453 8937SXDTXLW,4 SAVE RETURN INDEX
17364 0774 00 4 00000 8938MOVYAXT**,4 PICK UP REFERECE TO CALLING HEAD
17365 0500 00 4 00001 8939CLA1,4 TNX WORD HAS NAME IN ADDR.
17366 0621 00 0 17453 8940STATXLW COMPLETES THE TXL WORD
17367 0622 00 0 17452 8941STDSTRW PUT N IN STRW DECREMENT
17370 0500 00 0 17453 8942CLATXLW
17371 0601 00 1 00000 8943STO0,1 PUT IT AT HEAD OF PDL BLOCK
17372 0500 00 4 00000 8944CLA0,4 TSX HAS COUNT FIELD
17373 −0320 00 0 00467 8945ANACNTMSK COUNT FIELD MASK
17374 0100 00 0 17444 8946TZEMOVD IF LESS THAN 3 ARGS
17375 −0734 00 4 00000 8947PDX0,4 COUNT FIELD TO IX
17376 0020 00 4 17443 8948TRAMOVD−1,4 ENTER PART OF MOVE ROUTINE
17377 0500 00 0 03342 8949CLA$ARG20
17400 0601 00 1 00024 8950STO20,1
17401 0500 00 0 03341 8951CLA$ARG19
17402 0601 00 1 00023 8952STO19,1
17403 0500 00 0 03340 8953CLA$ARG18
17404 0601 00 1 00022 8954STO18,1
17405 0500 00 0 03337 8955CLA$ARG17
17406 0601 00 1 00021 8956STO17,1
17407 0500 00 0 03336 8957CLA$ARG16
17410 0601 00 1 00020 8958STO16,1
17411 0500 00 0 03335 8959CLA$ARG15
17412 0601 00 1 00017 8960STO15,1
17413 0500 00 0 03334 8961CLA$ARG14
17414 0601 00 1 00016 8962STO14,1
17415 0500 00 0 03333 8963CLA$ARG13
17416 0601 00 1 00015 8964STO13,1
17417 0500 00 0 03332 8965CLA$ARG12
17420 0601 00 1 00014 8966STO12,1
17421 0500 00 0 03331 8967CLA$ARG11
17422 0601 00 1 00013 8968STO11,1
17423 0500 00 0 03330 8969CLA$ARG10
17424 0601 00 1 00012 8970STO10,1
17425 0500 00 0 03327 8971CLA$ARG9
17426 0601 00 1 00011 8972STO9,1
17427 0500 00 0 03326 8973CLA$ARG8
17430 0601 00 1 00010 8974STO8,1
17431 0500 00 0 03325 8975CLA$ARG7
17432 0601 00 1 00007 8976STO7,1
17433 0500 00 0 03324 8977CLA$ARG6
17434 0601 00 1 00006 8978STO6,1
17435 0500 00 0 03323 8979CLA$ARG5
17436 0601 00 1 00005 8980STO5,1
17437 0500 00 0 03322 8981CLA$ARG4
17440 0601 00 1 00004 8982STO4,1
17441 0500 00 0 03321 8983CLA$ARG3
17442 0601 00 1 00003 8984STO3,1
17443 0534 00 4 17364 8985LXAMOVY,4 RESTORE IR4
17444 0522 00 4 00001 8986MOVDXEC1,4 XECED TNX DECREMENTS TXI BUT NO TRANSFER
17445 −0634 00 1 02317 8987SXD$CPPI,1 KEEP CPPI UP TO DATE ALSO
17446 0522 00 0 02414 8988XECENDPDL TEST FOR OUT OF BPS
17447 0500 00 0 17452 8989CLASTRW CREATES SECOND PARAMETER WORD
17450 0601 00 1 77777 8990STO−1,1 PUT AT VERY END OF BLOCK
17451 0020 00 4 00002 8991TRA2,4 RETURN FROM LINK
17452 −1 00000 0 00000 8992STRWSTR**
17453 −3 00000 0 00000 8993TXLWTXL**,,**
8994 *
8995 * RESTOR PICKS UP IX4 FROM PDL,SETS BACK CPPI ,AND EXITS.
17454 −0634 00 1 02317 8996RESTORSXD$CPPI,1
17455 0131 00 0 00000 8997XCA SAVE VALUE OF FUNCTION
17456 0500 00 1 00000 8998CLA0,1 PICK UP RETURN WORD
17457 −0734 00 4 00000 8999PDX0,4 RESTORE IX4
17460 0131 00 0 00000 9000XCA RESTORE AC
17461 0020 00 4 00001 9001TRA1,4 EXIT
9002 *
9003 * DECK PERMANENT ATOMS
17462 9004TOPROGBSS0
9005EJECT
66230 9006ORG27800 PERMANENT OBJECTS START HERE
66230 9007LOWERPBSS1 LWER LIMIT OF PERMENANT LIST STRUCTURE
9008 *********************HEAD OR HED****************************
90090 HED
9010 LOWER LIMIT OF PERM. LIST STRUCTURE
9011
66231 0 00000 0 00000 9012 LAST BUCKET
66232 9013DUP1,125 MAKE BUCKETS
66232 0 11547 0 00000 9014 ,,−*+1
66233 0 11546 0 00000 9015
66234 0 11545 0 00000 9016
66235 0 11544 0 00000 9017
66236 0 11543 0 00000 9018
66237 0 11542 0 00000 9019
66240 0 11541 0 00000 9020
66241 0 11540 0 00000 9021
66242 0 11537 0 00000 9022
66243 0 11536 0 00000 9023
66244 0 11535 0 00000 9024
66245 0 11534 0 00000 9025
66246 0 11533 0 00000 9026
66247 0 11532 0 00000 9027
66250 0 11531 0 00000 9028
66251 0 11530 0 00000 9029
66252 0 11527 0 00000 9030
66253 0 11526 0 00000 9031
66254 0 11525 0 00000 9032
66255 0 11524 0 00000 9033
66256 0 11523 0 00000 9034
66257 0 11522 0 00000 9035
66260 0 11521 0 00000 9036
66261 0 11520 0 00000 9037
66262 0 11517 0 00000 9038
66263 0 11516 0 00000 9039
66264 0 11515 0 00000 9040
66265 0 11514 0 00000 9041
66266 0 11513 0 00000 9042
66267 0 11512 0 00000 9043
66270 0 11511 0 00000 9044
66271 0 11510 0 00000 9045
66272 0 11507 0 00000 9046
66273 0 11506 0 00000 9047
66274 0 11505 0 00000 9048
66275 0 11504 0 00000 9049
66276 0 11503 0 00000 9050
66277 0 11502 0 00000 9051
66300 0 11501 0 00000 9052
66301 0 11500 0 00000 9053
66302 0 11477 0 00000 9054
66303 0 11476 0 00000 9055
66304 0 11475 0 00000 9056
66305 0 11474 0 00000 9057
66306 0 11473 0 00000 9058
66307 0 11472 0 00000 9059
9060
66310 0 11471 0 00000 9061
66311 0 11470 0 00000 9062
66312 0 11467 0 00000 9063
66313 0 11466 0 00000 9064
66314 0 11465 0 00000 9065
66315 0 11464 0 00000 9066
66316 0 11463 0 00000 9067
66317 0 11462 0 00000 9068
66320 0 11461 0 00000 9069
66321 0 11460 0 00000 9070
66322 0 11457 0 00000 9071
66323 0 11456 0 00000 9072
66324 0 11455 0 00000 9073
66325 0 11454 0 00000 9074
66326 0 11453 0 00000 9075
66327 0 11452 0 00000 9076
66330 0 11451 0 00000 9077
66331 0 11450 0 00000 9078
66332 0 11447 0 00000 9079
66333 0 11446 0 00000 9080
66334 0 11445 0 00000 9081
66335 0 11444 0 00000 9082
66336 0 11443 0 00000 9083
66337 0 11442 0 00000 9084
66340 0 11441 0 00000 9085
66341 0 11440 0 00000 9086
66342 0 11437 0 00000 9087
66343 0 11436 0 00000 9088
66344 0 11435 0 00000 9089
66345 0 11434 0 00000 9090
66346 0 11433 0 00000 9091
66347 0 11432 0 00000 9092
66350 0 11431 0 00000 9093
66351 0 11430 0 00000 9094
66352 0 11427 0 00000 9095
66353 0 11426 0 00000 9096
66354 0 11425 0 00000 9097
66355 0 11424 0 00000 9098
66356 0 11423 0 00000 9099
66357 0 11422 0 00000 9100
66360 0 11421 0 00000 9101
66361 0 11420 0 00000 9102
66362 0 11417 0 00000 9103
66363 0 11416 0 00000 9104
66364 0 11415 0 00000 9105
66365 0 11414 0 00000 9106
66366 0 11413 0 00000 9107
66367 0 11412 0 00000 9108
66370 0 11411 0 00000 9109
66371 0 11410 0 00000 9110
66372 0 11407 0 00000 9111
66373 0 11406 0 00000 9112
66374 0 11405 0 00000 9113
66375 0 11404 0 00000 9114
66376 0 11403 0 00000 9115
66377 0 11402 0 00000 9116
66400 0 11401 0 00000 9117
66401 0 11400 0 00000 9118
66402 0 11377 0 00000 9119
66403 0 11376 0 00000 9120
66404 0 11375 0 00000 9121
66405 0 11374 0 00000 9122
66406 0 11373 0 00000 9123
66407 0 11372 0 00000 9124
66410 0 11371 0 00000 9125
66411 0 11370 0 00000 9126
66412 0 11367 0 00000 9127
66413 0 11366 0 00000 9128
66414 0 11365 0 00000 9129
66415 0 11364 0 00000 9130
66416 0 11363 0 00000 9131
66417 0 11362 0 00000 9132
66420 0 11361 0 00000 9133
66421 0 11360 0 00000 9134
66422 0 11357 0 00000 9135
66423 0 11356 0 00000 9136
66424 0 11355 0 00000 9137
66425 0 11354 0 00000 9138
66426 0 11353 0 00000 9139
66427 0 11352 0 00000 9140BUCKET ,,−*+1 POINTER TO BUCKETS
66427 9141OBLISTSYNBUCKET
9142
9143EJECT
9144HEAD0
9145 OBJECT LIST
66430 0 11347 0 77777 9146OBLB −1,,−*−1
66431 0 11346 0 11023 9147 −II14,,−*−1 ADD 1 GENER000
66432 0 11345 0 11001 9148 −)ALST,,−*−1
66433 0 11344 0 10772 9149 AND,,−*−1 GENER002
66434 0 11343 0 10762 9150 F1,,−*−1 GENER003
66435 0 11342 0 10752 9151 F18,,−*−1 GENER004
66436 0 11341 0 10742 9152 APVAL,,−*−1 GENER005
66437 0 11340 0 10735 9153 −II1,,−*−1 ARRAY GENER006
66440 0 11337 0 10725 9154 ATOM,,−*−1 GENER007
66441 0 11336 0 10715 9155 F29,,−*−1 GENER008
66442 0 11335 0 10675 9156 CAR,,−*−1 GENER009
66443 0 11334 0 10665 9157 CDR,,−*−1 GENER010
66444 0 11333 0 10655 9158 CAAR,,−*−1 GENER011
66445 0 11332 0 10645 9159 CDAR,,−*−1 GENER012
66446 0 11331 0 10635 9160 CADR,,−*−1 GENER013
66447 0 11330 0 10625 9161 CDDR,,−*−1 GENER014
66450 0 11327 0 10615 9162 CAAAR,,−*−1 GENER015
66451 0 11326 0 10605 9163 CAADR,,−*−1 GENER016
66452 0 11325 0 10575 9164 CADAR,,−*−1 GENER017
66453 0 11324 0 10565 9165 CADDR,,−*−1 GENER018
66454 0 11323 0 10555 9166 CDAAR,,−*−1 GENER019
66455 0 11322 0 10545 9167 CDADR,,−*−1 GENER020
66456 0 11321 0 10535 9168 CDDAR,,−*−1 GENER021
66457 0 11320 0 10525 9169 CDDDR,,−*−1 GENER022
66460 0 11317 0 10460 9170 COND,,−*−1 GENER023
66461 0 11316 0 10450 9171 CONSN,,−*−1 GENER024
66462 0 11315 0 10430 9172 COPYN,,−*−1 GENER025
66463 0 11314 0 10323 9173 DUMP,,−*−1 GENER026
66464 0 11313 0 10440 9174 F12,,−*−1 GENER027
66465 0 11312 0 10420 9175 F35,,−*−1 GENER028
66466 0 11311 0 10365 9176 −IJ01,,−*−1 DIFFER GENER029
66467 0 11310 0 10343 9177 −IJ02,,−*−1 DIVIDE GENER030
66470 0 11307 0 10261 9178 EQ,,−*−1 GENER031
66471 0 11306 0 10241 9179 F8,,−*−1 GENER032
66472 0 11305 0 10231 9180 F21,,−*−1 GENER033
66473 0 11304 0 10177 9181 F19,,−*−1 GENER034
66474 0 11303 0 10167 9182 EVLISL,,−*−1 GENER035
66475 0 11302 0 10157 9183 EXPR,,−*−1 GENER036
66476 0 11301 0 10152 9184 F32,,−*−1 GENER037
66477 0 11300 0 10142 9185 FEXPR,,−*−1 GENER038
66500 0 11277 0 10135 9186 FIX,,−*−1 GENER039
66501 0 11276 0 10130 9187 −II11,,−*−1 FIX P GENER040
66502 0 11275 0 10120 9188 FLOAT,,−*−1 GENER041
66503 0 11274 0 10113 9189 −II12,,−*−1 FLOAT P GENER042
66504 0 11273 0 10103 9190 FSUBR,,−*−1 GENER043
66505 0 11272 0 10076 9191 FUNARG,,−*−1 GENER044
66506 0 11271 0 10071 9192 FUNCT,,−*−1 GENER045
66507 0 11270 0 10057 9193 SYMGEN,,−*−1 GENER046
66510 0 11267 0 10037 9194 GO,,−*−1 GENER047
66511 0 11266 0 10027 9195 −II3,,−*−1 GREATER THAN P GENER048
66512 0 11265 0 10015 9196 F16,,−*−1 GENER049
66513 0 11264 0 10005 9197 LABEL,,−*−1 GENER050
66514 0 11263 0 07775 9198 LAMBDA,,−*−1 GENER051
66515 0 11262 0 07770 9199 LAP,,−*−1 GENER052
66516 0 11261 0 07746 9200 −II4,,−*−1 LESS THAN P GENER053
66517 0 11260 0 07736 9201 LIST,,−*−1 GENER054
66520 0 11257 0 07716 9202 LOADA,,−*−1 LOADER OBJECT GENER055
66521 0 11256 0 07646 9203 PMAPCA,,−*−1 GENER056
66522 0 11255 0 07636 9204 −)069B,,−*−1
66523 0 11254 0 07626 9205 −)069A,,−*−1
66524 0 11253 0 07614 9206 −II7,,−*−1 MAXIMUM GENER059
66525 0 11252 0 07604 9207 −II8,,−*−1 MINIMUM GENER060
66526 0 11251 0 07574 9208 MINUS,,−*−1 GENER061
66527 0 11250 0 07564 9209 −II16,,−*−1 MINUS P GENER062
66530 0 11247 0 07544 9210 F3,,−*−1 GENER063
66531 0 11246 0 00000 9211 NIL,,−*−1 GENER064
66532 0 11245 0 07534 9212 NOT,,−*−1 GENER065
66533 0 11244 0 07524 9213 NULL,,−*−1 GENER066
66534 0 11243 0 07514 9214 −II13,,−*−1 NUMBER P GENER067
66535 0 11242 0 07472 9215 OBLBA,,−*−1 OBLIST OBJECT GENER068
66536 0 11241 0 07455 9216 −II9,,−*−1 ONE P GENER069
66537 0 11240 0 07435 9217 OR,,−*−1 GENER070
66540 0 11237 0 07415 9218 F2,,−*−1 GENER071
66541 0 11236 0 07405 9219 PAUSE,,−*−1 GENER072
66542 0 11235 0 07365 9220 PLB,,−*−1 GENER073
66543 0 11234 0 07355 9221 PLUS,,−*−1 GENER074
66544 0 11233 0 07335 9222 PNAME,,−*−1 GENER075
66545 0 11232 0 07320 9223 F4,,−*−1 GENER076
66546 0 11231 0 07300 9224 PROG,,−*−1 GENER077
66547 0 11230 0 07260 9225 PROPO,,−*−1 GENER078
66550 0 11227 0 07270 9226 −IJ05,,−*−1 PUNCH GENER079
66551 0 11226 0 07250 9227 QUOTE,,−*−1 GENER080
66552 0 11225 0 07240 9228 −IJ03,,−*−1 QUOTIENT GENER081
66553 0 11224 0 07226 9229 F13,,−*−1 GENER082
66554 0 11223 0 07216 9230 −II18,,−*−1 RECIP GENER083
66555 0 11222 0 07206 9231 RCLAM,,−*−1 GENER084
66556 0 11221 0 07140 9232 PRPLCA,,−*−1 GENER085
66557 0 11220 0 07130 9233 PRPLCD,,−*−1 GENER086
66560 0 11217 0 07174 9234 −IJ04,,−*−1 REMAINDER GENER087
66561 0 11216 0 07150 9235 RETATM,,−*−1 RETURN GENER088
66562 0 11215 0 07052 9236 SASCO,,−*−1 GENER089
66563 0 11214 0 07042 9237 SRCH,,−*−1 GENER090
66564 0 11213 0 07032 9238 SET,,−*−1 GENER091
66565 0 11212 0 07022 9239 SETQ,,−*−1 GENER092
66566 0 11211 0 07002 9240 F34,,−*−1 GENER093
66567 0 11210 0 06772 9241 STOP,,−*−1 GENER094
66570 0 11207 0 06733 9242 SUBR,,−*−1 GENER095
66571 0 11206 0 06647 9243 TRACE,,−*−1 GENER096
66572 0 11205 0 07101 9244 SMOVE,,−*−1 GENER097
66573 0 11204 0 07072 9245 SRETUR,,−*−1 GENER098
66574 0 11203 0 07061 9246 SLIST,,−*−1 GENER099
66575 0 11202 0 07110 9247 SPECAL,,−*−1 GENER100
66576 0 11201 0 06743 9248 −II15,,−*−1 SUBTRACT 1 GENER101
66577 0 11200 0 06726 9249 F17,,−*−1 GENER102
66600 0 11177 0 06716 9250 F30,,−*−1 GENER103
66601 0 11176 0 00001 9251 1,,−*−1 *T* BINARY TRUE ATOM GENER104
66602 0 11175 0 06671 9252 F27,,−*−1 GENER105
66603 0 11174 0 06706 9253 SYM,,−*−1 GENER106
66604 0 11173 0 06657 9254 TIMES,,−*−1 GENER107
66605 0 11172 0 06642 9255 F36,,−*−1 GENER108
66606 0 11171 0 06620 9256 −II10,,−*−1 ZERO P GENER109
66607 0 11170 0 10047 9257 CGET,,−*−1 GENER110
66610 0 11167 0 07162 9258 REMPP,,−*−1 GENER111
66611 0 11166 0 06127 9259 H00,,−*−1 GENER112
66612 0 11165 0 06130 9260 H01,,−*−1 GENER113
66613 0 11164 0 06131 9261 H02,,−*−1 GENER114
66614 0 11163 0 06132 9262 H03,,−*−1 GENER115
66615 0 11162 0 06133 9263 H04,,−*−1 GENER116
66616 0 11161 0 06134 9264 H05,,−*−1 GENER117
66617 0 11160 0 06135 9265 H06,,−*−1 GENER118
66620 0 11157 0 06136 9266 H07,,−*−1 GENER119
66621 0 11156 0 06137 9267 H10,,−*−1 GENER120
66622 0 11155 0 06140 9268 H11,,−*−1 GENER121
66623 0 11154 0 06141 9269 H12,,−*−1 GENER122
66624 0 11153 0 06142 9270 H13,,−*−1 GENER123
66625 0 11152 0 06144 9271 H15,,−*−1 GENER124
66626 0 11151 0 06143 9272 H14,,−*−1 GENER125
66627 0 11150 0 06145 9273 H16,,−*−1 GENER126
66630 0 11147 0 06146 9274 H17,,−*−1 GENER127
66631 0 11146 0 06147 9275 H20,,−*−1 GENER128
66632 0 11145 0 06150 9276 H21,,−*−1 GENER129
66633 0 11144 0 06151 9277 H22,,−*−1 GENER130
66634 0 11143 0 06152 9278 H23,,−*−1 GENER131
66635 0 11142 0 06153 9279 H24,,−*−1 GENER132
66636 0 11141 0 06154 9280 H25,,−*−1 GENER133
66637 0 11140 0 06155 9281 H26,,−*−1 GENER134
66640 0 11137 0 06156 9282 H27,,−*−1 GENER135
66641 0 11136 0 06157 9283 H30,,−*−1 GENER136
66642 0 11135 0 06160 9284 H31,,−*−1 GENER137
66643 0 11134 0 06161 9285 H32,,−*−1 GENER138
66644 0 11133 0 06162 9286 H33,,−*−1 GENER139
66645 0 11132 0 06163 9287 H34,,−*−1 GENER140
66646 0 11131 0 06164 9288 H35,,−*−1 GENER141
66647 0 11130 0 06165 9289 H36,,−*−1 GENER142
66650 0 11127 0 06166 9290 H37,,−*−1 GENER143
66651 0 11126 0 06167 9291 H40,,−*−1 GENER144
66652 0 11125 0 06170 9292 H41,,−*−1 GENER145
66653 0 11124 0 06171 9293 H42,,−*−1 GENER146
66654 0 11123 0 06172 9294 H43,,−*−1 GENER147
66655 0 11122 0 06173 9295 H44,,−*−1 GENER148
66656 0 11121 0 06174 9296 H45,,−*−1 GENER149
66657 0 11120 0 06175 9297 H46,,−*−1 GENER150
66660 0 11117 0 06176 9298 H47,,−*−1 GENER151
66661 0 11116 0 06177 9299 H50,,−*−1 GENER152
66662 0 11115 0 06200 9300 H51,,−*−1 GENER153
66663 0 11114 0 06201 9301 H52,,−*−1 GENER154
66664 0 11113 0 06202 9302 H53,,−*−1 GENER155
66665 0 11112 0 06203 9303 H54,,−*−1 GENER156
66666 0 11111 0 06204 9304 H55,,−*−1 GENER157
66667 0 11110 0 06205 9305 H56,,−*−1 GENER158
66670 0 11107 0 06206 9306 H57,,−*−1 GENER159
66671 0 11106 0 06207 9307 H60,,−*−1 GENER160
66672 0 11105 0 06210 9308 H61,,−*−1 GENER161
66673 0 11104 0 06211 9309 H62,,−*−1 GENER162
66674 0 11103 0 06212 9310 H63,,−*−1 GENER163
66675 0 11102 0 06213 9311 H64,,−*−1 GENER164
66676 0 11101 0 06214 9312 H65,,−*−1 GENER165
66677 0 11100 0 06215 9313 H66,,−*−1 GENER166
66700 0 11077 0 06216 9314 H67,,−*−1 GENER167
66701 0 11076 0 06217 9315 H70,,−*−1 GENER168
66702 0 11075 0 06220 9316 H71,,−*−1 GENER169
66703 0 11074 0 06221 9317 H72,,−*−1 GENER170
66704 0 11073 0 06222 9318 H73,,−*−1 GENER171
66705 0 11072 0 06223 9319 H74,,−*−1 GENER172
66706 0 11071 0 06224 9320 H75,,−*−1 GENER173
66707 0 11070 0 06225 9321 H76,,−*−1 GENER174
66710 0 11067 0 06226 9322 H77,,−*−1 GENER175
66711 0 11066 0 10410 9323 PJ1,,−*−1 GENER176
66712 0 11065 0 11013 9324 PJ2,,−*−1 GENER177
66713 0 11064 0 10221 9325 PJ4,,−*−1 GENER179
66714 0 11063 0 10251 9326 PJ5,,−*−1 GENER180
66715 0 11062 0 10470 9327 PJ6,,−*−1 GENER181
66716 0 11061 0 07656 9328 PJ7,,−*−1 GENER182
66717 0 11060 0 07120 9329 PJ8,,−*−1 GENER183
66720 0 11057 0 07375 9330 PJ9,,−*−1 GENER184
66721 0 11056 0 10333 9331 PJ10,,−*−1 GENER185
66722 0 11055 0 07345 9332 PJ11,,−*−1 GENER186
66723 0 11054 0 10705 9333 PJ12,,−*−1 GENER187
66724 0 11053 0 07012 9334 PJ14,,−*−1 GENER189
66725 0 11052 0 06765 9335 PJ15,,−*−1 GENER190
66726 0 11051 0 10375 9336 PJ16,,−*−1 GENER191
66727 0 11050 0 07726 9337 PJ17,,−*−1 GENER192
66730 0 11047 0 07445 9338 PJ18,,−*−1 GENER193
66731 0 11046 0 10353 9339 PJ19,,−*−1 GENER194
66732 0 11045 0 06755 9340 PJ21,,−*−1 GENER195
66733 0 11044 0 06701 9341 PJ23,,−*−1 GENER196
66734 0 11043 0 07425 9342 PJ24,,−*−1 GENER197
66735 0 11042 0 07502 9343 PJ25,,−*−1 GENER198
66736 0 11041 0 07554 9344 PJ26,,−*−1 GENER199
66737 0 11040 0 10502 9345 PJ27,,−*−1 GENER200
66740 0 11037 0 07462 9346 PJ28,,−*−1 GENER201
66741 0 11036 0 10313 9347 PJ30,,−*−1 GENER202
66742 0 11035 0 06630 9348 PJ31,,−*−1 GENER203
66743 0 11034 0 10515 9349 PJ32,,−*−1 GENER204
66744 0 11033 0 07330 9350 PJ33,,−*−1 GENER205
66745 0 11032 0 10301 9351 PJ34,,−*−1 GENER206
66746 0 11031 0 10271 9352 PJ35,,−*−1 GENER207
66747 0 11030 0 07676 9353 PJ36,,−*−1 GENER208
66750 0 11027 0 07706 9354 PJ37,,−*−1 GENER209
66751 0 11026 0 07666 9355 PJ38,,−*−1 GENER210
66752 0 11025 0 07310 9356 PJ39,,−*−1 GENER211
66753 0 11024 0 10211 9357 ERSETO,,−*−1 ERRORSET GENER212
66754 0 00000 0 07760 9358 PVW1 LAST OBJECT - LEFTSHIFT GENER213
9359
9360EJECT
9361 PROPERTY LISTS
66755 0 11022 0 77777 9362II14 −1,,−*−1 GPLI0000
66756 0 11021 0 06733 9363 $SUBR,,−*−1 GPLI0001
66757 0 11017 0 11020 9364 −*−1,,−*−2 GPLI0002
66760 −3 00001 0 14401 9365TXLADD1,,1 GPLI0003
66761 0 11016 0 07335 9366 $PNAME,,−*−1 GPLI0004
66762 0 00000 0 11015 9367 −*−1 ADD1 GPLI0005
66763 0 00000 0 11014 9368 −*−1 GPLI0006
66764 +212424017777 9369OCT212424017777 GPLI0007
9370 *
66765 0 11012 0 77777 9371)PJ2 −1,,−*−1 ADVANCE GPLI0009
66766 0 11011 0 06733 9372 SUBR,,−*−1 GPLI0010
66767 0 11007 0 11010 9373PZE−*−1,,−*−2 GPLI0011
66770 −3 00000 0 12211 9374TXLADVANC,,0 GPLI0012
66771 0 11006 0 07335 9375 PNAME,,−*−1 GPLI0013
66772 0 00000 0 11005 9376 −*−1 GPLI0014
66773 0 11003 0 11004 9377 −*−1,,−*−2 GPLI0015
66774 212465214523 9378BCD1 ADVANC
66775 0 00000 0 11002 9379 −*−1 GPLI0017
66776 +257777777777 9380OCT257777777777 GPLI0018
9381 *
66777 0 11000 0 77777 9382)ALST −1,,−*−1 GPLI0020
67000 0 10777 0 07335 9383 PNAME,,−*−1 GPLI0021
67001 0 10774 0 10776 9384 −*−1,,−*−3 $ALIST GPLI0022
67002 0 00000 0 10775 9385 −*−1 GPLI0023
67003 −132143316263 9386OCT532143316263 GPLI0024
67004 0 10773 0 06706 9387 SYM,,−*−1 GPLI0025
67005 0 00000 0 61262 9388 −C$ALST GPLI0026
9389 *
67006 0 10771 0 77777 9390)002 −1,,−*−1 GPLI0028
67007 0 10770 0 10103 9391 FSUBR,,−*−1 GPLI0029
67010 0 10766 0 10767 9392 −*−1,,−*−2 GPLI0030
67011 −3 00000 0 15370 9393TXL$EVAND,,0 GPLI0031
67012 0 10765 0 07335 9394 $PNAME,,−*−1 GPLI0032
67013 0 00000 0 10764 9395 −*−1 AND GPLI0033
67014 0 00000 0 10763 9396 −*−1 GPLI0034
67015 +214524777777 9397OCT214524777777 GPLI0035
9398 *
67016 0 10761 0 77777 9399)003 −1,,−*−1 GPLI0037
67017 0 10760 0 06733 9400 SUBR,,−*−1 GPLI0038
67020 0 10756 0 10757 9401 −*−1,,−*−2 GPLI0039
67021 −3 00002 0 07541 9402TXLAPPEND,,2 GPLI0040
67022 0 10755 0 07335 9403 PNAME,,−*−1 GPLI0041
67023 0 00000 0 10754 9404 −*−1 APPEND GPLI0042
67024 0 00000 0 10753 9405 −*−1 GPLI0043
67025 214747254524 9406BCD1 APPEND
9407 *
67026 0 10751 0 77777 9408)004 −1,,−*−1 GPLI0046
67027 0 10750 0 06733 9409 SUBR,,−*−1 GPLI0047
67030 0 10746 0 10747 9410 −*−1,,−*−2 GPLI0048
67031 −3 00003 0 14663 9411TXLAPPLY,,3 GPLI0049
67032 0 10745 0 07335 9412 PNAME,,−*−1 GPLI0050
67033 0 00000 0 10744 9413 −*−1 APPLY GPLI0051
67034 0 00000 0 10743 9414 −*−1 GPLI0052
67035 +214747437077 9415OCT214747437077 GPLI0053
9416 *
67036 0 10741 0 77777 9417)005 −1,,−*−1 GPLI0055
67037 0 10740 0 07335 9418 PNAME,,−*−1 GPLI0056
67040 0 00000 0 10737 9419 −*−1 APVAL GPLI0057
67041 0 00000 0 10736 9420 −*−1 GPLI0058
67042 214765214377 9421VFDH30/APVAL,O6/77
9422 *
67043 0 10734 0 77777 9423II1 −1,,−*−1 GPLI0061
67044 0 10733 0 06733 9424 SUBR,,−*−1 GPLI0062
67045 0 10731 0 10732 9425 −*−1,,−*−2 GPLI0063
67046 −3 00001 0 13113 9426TXLARYMAK,,1 GPLI0064
67047 0 10730 0 07335 9427 PNAME,,−*−1 GPLI0065
67050 0 00000 0 10727 9428 −*−1 ARRAY GPLI0066
67051 0 00000 0 10726 9429 −*−1 GPLI0067
67052 +215151217077 9430OCT215151217077 GPLI0068
9431 *
67053 0 10724 0 77777 9432)007 −1,,−*−1 GPLI0070
67054 0 10723 0 06733 9433 SUBR,,−*−1 GPLI0071
67055 0 10721 0 10722 9434 −*−1,,−*−2 GPLI0072
67056 −3 00001 0 15230 9435TXLATOMP,,1 GPLI0073
67057 0 10720 0 07335 9436 PNAME,,−*−1 GPLI0074
67060 0 00000 0 10717 9437 −*−1 ATOM GPLI0075
67061 0 00000 0 10716 9438 −*−1 GPLI0076
67062 +216346447777 9439OCT216346447777 GPLI0077
9440 *
67063 0 10714 0 77777 9441)008 −1,,−*−1 GPLI0079
67064 0 10713 0 06733 9442 SUBR,,−*−1 GPLI0080
67065 0 10711 0 10712 9443 −*−1,,−*−2 GPLI0081
67066 −3 00002 0 10134 9444TXLATTRIB,,2 GPLI0082
67067 0 10710 0 07335 9445 PNAME,,−*−1 GPLI0083
67070 0 00000 0 10707 9446 −*−1 ATTRIB GPLI0084
67071 0 00000 0 10706 9447 −*−1 GPLI0085
67072 216363513122 9448BCD1 ATTRIB
9449 *
67073 0 10704 0 77777 9450)PJ12PZE−1,,−*−1 GPLI0088
67074 0 10703 0 07335 9451PZEPNAME,,−*−1 GPLI0089
67075 0 10700 0 10702 9452 −*−1,,−*−3 BLANK GPLI0090
67076 0 00000 0 10701 9453 −*−1 GPLI0091
67077 +224321454277 9454OCT224321454277 GPLI0092
67100 0 10677 0 10742 9455 APVAL1,,−*−1 GPLI0093
67101 0 00000 0 10676 9456 −*−1 GPLI0094
67102 0 00000 0 06207 9457 H60 GPLI0095
9458 *
67103 0 10674 0 77777 9459)011 −1,,−*−1 GPLI0097
67104 0 10673 0 06733 9460 SUBR,,−*−1 GPLI0098
67105 0 10671 0 10672 9461 −*−1,,−*−2 GPLI0099
67106 −3 00001 0 15212 9462TXLCARP,,1 GPLI0100
67107 0 10670 0 07335 9463 PNAME,,−*−1 GPLI0101
67110 0 00000 0 10667 9464 −*−1 CAR GPLI0102
67111 0 00000 0 10666 9465 −*−1 GPLI0103
67112 +232151777777 9466OCT232151777777 GPLI0104
9467 *
67113 0 10664 0 77777 9468)012 −1,,−*−1 GPLI0106
67114 0 10663 0 06733 9469 SUBR,,−*−1 GPLI0107
67115 0 10661 0 10662 9470 −*−1,,−*−2 GPLI0108
67116 −3 00001 0 15222 9471TXLCDRP,,1 GPLI0109
67117 0 10660 0 07335 9472 PNAME,,−*−1 GPLI0110
67120 0 00000 0 10657 9473 −*−1 CDR GPLI0111
67121 0 00000 0 10656 9474 −*−1 GPLI0112
67122 +232451777777 9475OCT232451777777 GPLI0113
9476 *
67123 0 10654 0 77777 9477)201 −1,,−*−1 GPLI0115
67124 0 10653 0 06733 9478 SUBR,,−*−1 GPLI0116
67125 0 10651 0 10652 9479 −*−1,,−*−2 GPLI0117
67126 −3 00001 0 11726 9480TXLCAARXX,,1 GPLI0118
67127 0 10650 0 07335 9481 PNAME,,−*−1 GPLI0119
67130 0 00000 0 10647 9482 −*−1 CAAR GPLI0120
67131 0 00000 0 10646 9483 −*−1 GPLI0121
67132 +232121517777 9484OCT232121517777 GPLI0122
9485 *
67133 0 10644 0 77777 9486)202 −1,,−*−1 GPLI0124
67134 0 10643 0 06733 9487 SUBR,,−*−1 GPLI0125
67135 0 10641 0 10642 9488 −*−1,,−*−2 GPLI0126
67136 −3 00001 0 11765 9489TXLCDARXX,,1 GPLI0127
67137 0 10640 0 07335 9490 PNAME,,−*−1 GPLI0128
67140 0 00000 0 10637 9491 −*−1 CDAR GPLI0129
67141 0 00000 0 10636 9492 −*−1 GPLI0130
67142 +232421517777 9493OCT232421517777 GPLI0131
9494 *
67143 0 10634 0 77777 9495)203 −1,,−*−1 GPLI0133
67144 0 10633 0 06733 9496 SUBR,,−*−1 GPLI0134
67145 0 10631 0 10632 9497 −*−1,,−*−2 GPLI0135
67146 −3 00001 0 11730 9498TXLCADRXX,,1 GPLI0136
67147 0 10630 0 07335 9499 PNAME,,−*−1 GPLI0137
67150 0 00000 0 10627 9500 −*−1 CADR GPLI0138
67151 0 00000 0 10626 9501 −*−1 GPLI0139
67152 +232124517777 9502OCT232124517777 GPLI0140
9503 *
67153 0 10624 0 77777 9504)204 −1,,−*−1 GPLI0142
67154 0 10623 0 06733 9505 SUBR,,−*−1 GPLI0143
67155 0 10621 0 10622 9506 −*−1,,−*−2 GPLI0144
67156 −3 00001 0 11767 9507TXLCDDRXX,,1 GPLI0145
67157 0 10620 0 07335 9508 PNAME,,−*−1 GPLI0146
67160 0 00000 0 10617 9509 −*−1 CDDR GPLI0147
67161 0 00000 0 10616 9510 −*−1 GPLI0148
67162 +232424517777 9511OCT232424517777 GPLI0149
9512 *
67163 0 10614 0 77777 9513)205 −1,,−*−1 GPLI0151
67164 0 10613 0 06733 9514 SUBR,,−*−1 GPLI0152
67165 0 10611 0 10612 9515 −*−1,,−*−2 GPLI0153
67166 −3 00001 0 11672 9516TXLCAAARX,,1 GPLI0154
67167 0 10610 0 07335 9517 PNAME,,−*−1 GPLI0155
67170 0 00000 0 10607 9518 −*−1 CAAAR GPLI0156
67171 0 00000 0 10606 9519 −*−1 GPLI0157
67172 +232121215177 9520OCT232121215177 GPLI0158
9521 *
67173 0 10604 0 77777 9522)206 −1,,−*−1 GPLI0160
67174 0 10603 0 06733 9523 SUBR,,−*−1 GPLI0161
67175 0 10601 0 10602 9524 −*−1,,−*−2 GPLI0162
67176 −3 00001 0 11705 9525TXLCAADRX,,1 GPLI0163
67177 0 10600 0 07335 9526 PNAME,,−*−1 GPLI0164
67200 0 00000 0 10577 9527 −*−1 CAADR GPLI0165
67201 0 00000 0 10576 9528 −*−1 GPLI0166
67202 +232121245177 9529OCT232121245177 GPLI0167
9530 *
67203 0 10574 0 77777 9531)207 −1,,−*−1 GPLI0169
67204 0 10573 0 06733 9532 SUBR,,−*−1 GPLI0170
67205 0 10571 0 10572 9533 −*−1,,−*−2 GPLI0171
67206 −3 00001 0 11712 9534TXLCADARX,,1 GPLI0172
67207 0 10570 0 07335 9535 PNAME,,−*−1 GPLI0173
67210 0 00000 0 10567 9536 −*−1 CADAR GPLI0174
67211 0 00000 0 10566 9537 −*−1 GPLI0175
67212 +232124215177 9538OCT232124215177 GPLI0176
9539 *
67213 0 10564 0 77777 9540)208 −1,,−*−1 GPLI0178
67214 0 10563 0 06733 9541 SUBR,,−*−1 GPLI0179
67215 0 10561 0 10562 9542 −*−1,,−*−2 GPLI0180
67216 −3 00001 0 11721 9543TXLCADDRX,,1 GPLI0181
67217 0 10560 0 07335 9544 PNAME,,−*−1 GPLI0182
67220 0 00000 0 10557 9545 −*−1 CADDR GPLI0183
67221 0 00000 0 10556 9546 −*−1 GPLI0184
67222 +232124245177 9547OCT232124245177 GPLI0185
9548 *
67223 0 10554 0 77777 9549)209 −1,,−*−1 GPLI0187
67224 0 10553 0 06733 9550 SUBR,,−*−1 GPLI0188
67225 0 10551 0 10552 9551 −*−1,,−*−2 GPLI0189
67226 −3 00001 0 11732 9552TXLCDAARX,,1 GPLI0190
67227 0 10550 0 07335 9553 PNAME,,−*−1 GPLI0191
67230 0 00000 0 10547 9554 −*−1 CDAAR GPLI0192
67231 0 00000 0 10546 9555 −*−1 GPLI0193
67232 +232421215177 9556OCT232421215177 GPLI0194
9557 *
67233 0 10544 0 77777 9558)210 −1,,−*−1 GPLI0196
67234 0 10543 0 06733 9559 SUBR,,−*−1 GPLI0197
67235 0 10541 0 10542 9560 −*−1,,−*−2 GPLI0198
67236 −3 00001 0 11744 9561TXLCDADRX,,1 GPLI0199
67237 0 10540 0 07335 9562 PNAME,,−*−1 GPLI0200
67240 0 00000 0 10537 9563 −*−1 CDADR GPLI0201
67241 0 00000 0 10536 9564 −*−1 GPLI0202
67242 +232421245177 9565OCT232421245177 GPLI0203
9566 *
67243 0 10534 0 77777 9567)211 −1,,−*−1 GPLI0205
67244 0 10533 0 06733 9568 SUBR,,−*−1 GPLI0206
67245 0 10531 0 10532 9569 −*−1,,−*−2 GPLI0207
67246 −3 00001 0 11751 9570TXLCDDARX,,1 GPLI0208
67247 0 10530 0 07335 9571 PNAME,,−*−1 GPLI0209
67250 0 00000 0 10527 9572 −*−1 CDDAR GPLI0210
67251 0 00000 0 10526 9573 −*−1 GPLI0211
67252 +232424215177 9574OCT232424215177 GPLI0212
9575 *
67253 0 10524 0 77777 9576)212 −1,,−*−1 GPLI0214
67254 0 10523 0 06733 9577 SUBR,,−*−1 GPLI0215
67255 0 10521 0 10522 9578 −*−1,,−*−2 GPLI0216
67256 −3 00001 0 11760 9579TXLCDDDRX,,1 GPLI0217
67257 0 10520 0 07335 9580 PNAME,,−*−1 GPLI0218
67260 0 00000 0 10517 9581 −*−1 CDDDR GPLI0219
67261 0 00000 0 10516 9582 −*−1 GPLI0220
67262 +232424245177 9583OCT232424245177 GPLI0221
9584 *
67263 0 10514 0 77777 9585)PJ32 −1,,−*−1 CHARCOUNT GPLI0223
67264 0 10513 0 07335 9586 PNAME,,−*−1 GPLI0224
67265 0 10506 0 10512 9587 −*−1,,−*−5 GPLI0225
67266 0 10511 0 10510 9588 −*−2,,−*−1 GPLI0226
67267 0 00000 0 10507 9589 −*−2 GPLI0227
67270 233021512346 9590BCI1,CHARCO
67271 −244563777777 9591OCT644563777777 GPLI0229
67272 0 10505 0 10742 9592 APVAL1,,−*−1 GPLI0230
67273 0 00000 0 10504 9593 −*−1 GPLI0231
67274 0 00000 0 10503 9594 −*−1 GPLI0232
67275 −0 65143 1 77777 9595MZE−1,1,−CHACT GPLI0233
9596 *
67276 0 10501 0 77777 9597)PJ27 −1,,−*−1 GPLI0235
67277 0 10500 0 06733 9598 SUBR,,−*−1 GPLI0236
67300 0 10476 0 10477 9599 −*−1,,−*−2 GPLI0237
67301 −3 00000 0 12201 9600TXLCLEAR,,0 GPLI0238
67302 0 10475 0 07335 9601 PNAME,,−*−1 GPLI0239
67303 0 00000 0 10474 9602 −*−1 CLEARBUFF GPLI0240
67304 0 10472 0 10473 9603 −*−1,,−*−2 GPLI0241
67305 234325215122 9604BCI1,CLEARB
67306 0 00000 0 10471 9605 −*−1 GPLI0243
67307 −242626777777 9606OCT642626777777 GPLI0244
9607 *
67310 0 10467 0 77777 9608)PJ6 −1,,−*−1 GPLI0246
67311 0 10466 0 07335 9609 PNAME,,−*−1 GPLI0247
67312 0 10463 0 10465 9610 −*−1,,−*−3 COMMA GPLI0248
67313 0 00000 0 10464 9611 −*−1 GPLI0249
67314 +234644442177 9612OCT234644442177 GPLI0250
67315 0 10462 0 10742 9613 APVAL1,,−*−1 GPLI0251
67316 0 00000 0 10461 9614 −*−1 GPLI0252
67317 0 00000 0 06222 9615 H73 GPLI0253
9616 *
67320 0 10457 0 77777 9617)016 −1,,−*−1 GPLI0255
67321 0 10456 0 10103 9618 FSUBR,,−*−1 GPLI0256
67322 0 10454 0 10455 9619 −*−1,,−*−2 GPLI0257
67323 −3 00000 0 15154 9620TXL$EVCON,,0 GPLI0258
67324 0 10453 0 07335 9621 PNAME,,−*−1 GPLI0259
67325 0 00000 0 10452 9622 −*−1 COND GPLI0260
67326 0 00000 0 10451 9623 −*−1 GPLI0261
67327 +234645247777 9624OCT234645247777 GPLI0262
9625 *
67330 0 10447 0 77777 9626)017 −1,,−*−1 GPLI0264
67331 0 10446 0 06733 9627 SUBR,,−*−1 GPLI0265
67332 0 10444 0 10445 9628 −*−1,,−*−2 GPLI0266
67333 −3 00002 0 03730 9629TXLCONS,,2 GPLI0267
67334 0 10443 0 07335 9630 PNAME,,−*−1 GPLI0268
67335 0 00000 0 10442 9631 −*−1 CONS GPLI0269
67336 0 00000 0 10441 9632 −*−1 GPLI0270
67337 +234645627777 9633OCT234645627777 GPLI0271
9634 *
67340 0 10437 0 77777 9635)019 −1,,−*−1 GPLI0273
67341 0 10436 0 06733 9636 SUBR,,−*−1 GPLI0274
67342 0 10434 0 10435 9637 −*−1,,−*−2 GPLI0275
67343 −3 00001 0 07343 9638TXLCP1,,1 GPLI0276
9639
67344 0 10433 0 07335 9640 PNAME,,−*−1 GPLI0277
67345 0 00000 0 10432 9641 −*−1 CP1 GPLI0278
67346 0 00000 0 10431 9642 −*−1 GPLI0279
67347 +234701777777 9643OCT234701777777 GPLI0280
9644 *
67350 0 10427 0 77777 9645)020 −1,,−*−1 GPLI0282
67351 0 10426 0 06733 9646 SUBR,,−*−1 GPLI0283
67352 0 10424 0 10425 9647 −*−1,,−*−2 GPLI0284
67353 −3 00001 0 04345 9648TXL$COPY,,1 GPLI0285
67354 0 10423 0 07335 9649 PNAME,,−*−1 GPLI0286
67355 0 00000 0 10422 9650 −*−1 COPY GPLI0287
67356 0 00000 0 10421 9651 −*−1 GPLI0288
67357 +234647707777 9652OCT234647707777 GPLI0289
9653 *
67360 0 10417 0 77777 9654)021 −1,,−*−1 GPLI0291
67361 0 10416 0 06733 9655 SUBR,,−*−1 GPLI0292
67362 0 10414 0 10415 9656 −*−1,,−*−2 GPLI0293
67363 −3 00000 0 04057 9657TXLCOUNT,,0 GPLI0294
67364 0 10413 0 07335 9658 PNAME,,−*−1 GPLI0295
67365 0 00000 0 10412 9659 −*−1 COUNT GPLI0296
67366 0 00000 0 10411 9660 −*−1 GPLI0297
67367 +234664456377 9661OCT234664456377 GPLI0298
9662 *
67370 0 10407 0 77777 9663)PJ1 −1,,−*−1 GPLI0300
67371 0 10406 0 10742 9664 APVAL1,,−*−1 GPLI0301
67372 0 10405 0 65145 9665 −CURC1,,−*−1 GPLI0302
67373 0 10404 0 07335 9666 PNAME,,−*−1 GPLI0303
67374 0 10377 0 10403 9667 −*−1,,−*−5 CURCHAR GPLI0304
67375 0 10401 0 10402 9668 −*−1,,−*−2 GPLI0305
67376 236451233021 9669BCD1 CURCHA
67377 0 00000 0 10400 9670 −*−1 GPLI0307
67400 −117777777777 9671OCT517777777777 GPLI0308
67401 0 10376 0 07110 9672 SPECAL,,−*−1 GPLI0309
67402 0 00000 0 65144 9673 −CURC GPLI0310
9674 *
67403 0 10374 0 77777 9675)PJ16 −1,,−*−1 GPLI0312
67404 0 10373 0 10742 9676 APVAL1,,−*−1 GPLI0313
67405 0 10371 0 10372 9677 −*−1,,−*−2 GPLI0314
67406 0 00000 0 06167 9678 H40 GPLI0315
67407 0 10370 0 07335 9679 PNAME,,−*−1 GPLI0316
67410 0 00000 0 10367 9680 −*−1 DASH GPLI0317
67411 0 00000 0 10366 9681 −*−1 GPLI0318
67412 +242162307777 9682OCT242162307777 GPLI0319
9683 *
67413 0 10364 0 77777 9684IJ01 −1,,−*−1 GPLI0321
67414 0 10363 0 06733 9685 $SUBR,,−*−1 GPLI0322
67415 0 10361 0 10362 9686 −*−1,,−*−2 GPLI0323
67416 −3 00002 0 13512 9687TXLDIFFER,,2 GPLI0324
67417 0 10360 0 07335 9688 $PNAME,,−*−1 GPLI0325
67420 0 00000 0 10357 9689 −*−1 DIFFERENCE GPLI0326
67421 0 10356 0 10355 9690 −*−2,,−*−1 GPLI0327
67422 0 00000 0 10354 9691 −*−2 GPLI0328
67423 243126262551 9692BCI1,DIFFER
67424 +254523257777 9693OCT254523257777 GPLI0330
9694 *
67425 0 10352 0 77777 9695)PJ19 −1,,−*−1 GPLI0332
67426 0 10351 0 06733 9696 SUBR,,−*−1 GPLI0333
67427 0 10347 0 10350 9697 −*−1,,−*−2 GPLI0334
67430 −3 00001 0 12337 9698TXLDIGIT,,1 GPLI0335
67431 0 10346 0 07335 9699 PNAME,,−*−1 GPLI0336
67432 0 00000 0 10345 9700 −*−1 DIGIT GPLI0337
67433 0 00000 0 10344 9701 −*−1 GPLI0338
67434 +243127316377 9702OCT243127316377 GPLI0339
9703 *
67435 0 10342 0 77777 9704IJ02 −1,,−*−1 GPLI0341
67436 0 10341 0 06733 9705 $SUBR,,−*−1 GPLI0342
67437 0 10337 0 10340 9706 −*−1,,−*−2 GPLI0343
67440 −3 00002 0 13420 9707TXLDIVIDE,,2 GPLI0344
67441 0 10336 0 07335 9708 $PNAME,,−*−1 GPLI0345
67442 0 00000 0 10335 9709 −*−1 DIVIDE GPLI0346
67443 0 00000 0 10334 9710 −*−1 GPLI0347
67444 243165312425 9711BCI1,DIVIDE
9712 *
67445 0 10332 0 77777 9713)PJ10 −1,,−*−1 GPLI0350
67446 0 10331 0 07335 9714 PNAME,,−*−1 GPLI0351
67447 0 10326 0 10330 9715 −*−1,,−*−3 DOLLAR GPLI0352
67450 0 00000 0 10327 9716 −*−1 GPLI0353
67451 244643432151 9717BCD1 DOLLAR
67452 0 10325 0 10742 9718 APVAL1,,−*−1 GPLI0355
67453 0 00000 0 10324 9719 −*−1 GPLI0356
67454 0 00000 0 06202 9720 H53 GPLI0357
9721 *
67455 0 10322 0 77777 9722DMP0B −1,,−*−1 GPLI0359
67456 0 10321 0 06733 9723 SUBR,,−*−1 GPLI0360
67457 0 10317 0 10320 9724 −*−1,,−*−2 GPLI0361
67460 −3 00004 0 10736 9725TXLDUMPXX,,4 GPLI0362
67461 0 10316 0 07335 9726 PNAME,,−*−1 GPLI0363
67462 0 00000 0 10315 9727 −*−1 DUMP GPLI0364
67463 0 00000 0 10314 9728 −*−1 GPLI0365
67464 +246444477777 9729OCT246444477777 GPLI0366
9730 *
67465 0 10312 0 77777 9731)PJ30 −1,,−*−1 GPLI0368
67466 0 10311 0 06733 9732 SUBR,,−*−1 GPLI0369
67467 0 10307 0 10310 9733 −*−1,,−*−2 GPLI0370
67470 −3 00000 0 12273 9734TXLENDRED,,0 GPLI0371
67471 0 10306 0 07335 9735 PNAME,,−*−1 GPLI0372
67472 0 00000 0 10305 9736 −*−1 ENDREAD GPLI0373
67473 0 10304 0 10303 9737 −*−2,,−*−1 GPLI0374
67474 0 00000 0 10302 9738 −*−2 GPLI0375
67475 254524512521 9739BCI1,ENDREA
67476 +247777777777 9740OCT247777777777 GPLI0377
9741 *
67477 0 10300 0 77777 9742)PJ34 −1,,−*−1 GPLI0379
67500 0 10277 0 10742 9743 APVAL1,,−*−1 GPLI0380
67501 0 10275 0 10276 9744 −*−1,,−*−2 GPLI0381
67502 0 00000 0 06141 9745 H12 GPLI0382
67503 0 10274 0 07335 9746 PNAME,,−*−1 GPLI0383
67504 0 00000 0 10273 9747 −*−1 EOF GPLI0384
67505 0 00000 0 10272 9748 −*−1 GPLI0385
67506 +254626777777 9749OCT254626777777 GPLI0386
9750 *
67507 0 10270 0 77777 9751)PJ35 −1,,−*−1 GPLI0388
67510 0 10267 0 10742 9752 APVAL1,,−*−1 GPLI0389
67511 0 10265 0 10266 9753 −*−1,,−*−2 GPLI0390
67512 0 00000 0 06221 9754 H72 GPLI0391
67513 0 10264 0 07335 9755 PNAME,,−*−1 GPLI0392
67514 0 00000 0 10263 9756 −*−1 EOR GPLI0393
67515 0 00000 0 10262 9757 −*−1 GPLI0394
67516 +254651777777 9758OCT254651777777 GPLI0395
9759 *
67517 0 10260 0 77777 9760)030 −1,,−*−1 GPLI0397
67520 0 10257 0 06733 9761 SUBR,,−*−1 GPLI0398
67521 0 10255 0 10256 9762 −*−1,,−*−2 GPLI0399
67522 −3 00002 0 15445 9763TXLEQP,,2 GPLI0400
67523 0 10254 0 07335 9764 PNAME,,−*−1 GPLI0401
67524 0 00000 0 10253 9765 −*−1 EQ GPLI0402
67525 0 00000 0 10252 9766 −*−1 GPLI0403
67526 +255077777777 9767OCT255077777777 GPLI0404
9768 *
67527 0 10250 0 77777 9769)PJ5 −1,,−*−1 GPLI0406
67530 0 10247 0 07335 9770 PNAME,,−*−1 GPLI0407
67531 0 10244 0 10246 9771 −*−1,,−*−3 EQSIGN GPLI0408
67532 0 00000 0 10245 9772 −*−1 GPLI0409
67533 255062312745 9773BCI1,EQSIGN
67534 0 10243 0 10742 9774 APVAL1,,−*−1 GPLI0411
67535 0 00000 0 10242 9775 −*−1 GPLI0412
67536 0 00000 0 06142 9776 H13 GPLI0413
9777 *
67537 0 10240 0 77777 9778)032 −1,,−*−1 GPLI0415
67540 0 10237 0 06733 9779 SUBR,,−*−1 GPLI0416
67541 0 10235 0 10236 9780 −*−1,,−*−2 GPLI0417
67542 −3 00002 0 04461 9781TXLEQUAL,,2 GPLI0418
67543 0 10234 0 07335 9782 PNAME,,−*−1 GPLI0419
67544 0 00000 0 10233 9783 −*−1 EQUAL GPLI0420
67545 0 00000 0 10232 9784 −*−1 GPLI0421
67546 +255064214377 9785OCT255064214377 GPLI0422
9786 *
67547 0 10230 0 77777 9787)034 −1,,−*−1 GPLI0424
67550 0 10227 0 06733 9788 SUBR,,−*−1 GPLI0425
67551 0 10225 0 10226 9789 −*−1,,−*−2 GPLI0426
67552 −3 00001 0 02071 9790TXLERROR1,,1 GPLI0427
67553 0 10224 0 07335 9791 PNAME,,−*−1 GPLI0428
67554 0 00000 0 10223 9792 −*−1 ERROR GPLI0429
67555 0 00000 0 10222 9793 −*−1 GPLI0430
67556 +255151465177 9794OCT255151465177 GPLI0431
9795 *
67557 0 10220 0 77777 9796)PJ4 −1,,−*−1 GPLI0433
67560 0 10217 0 06733 9797 SUBR,,−*−1 GPLI0434
67561 0 10215 0 10216 9798 −*−1,,−*−2 GPLI0435
67562 −3 00000 0 12346 9799TXLEROR1,,0 GPLI0436
67563 0 10214 0 07335 9800 PNAME,,−*−1 GPLI0437
67564 0 00000 0 10213 9801 −*−1 ERROR1 GPLI0438
67565 0 00000 0 10212 9802 −*−1 GPLI0439
67566 255151465101 9803BCD1 ERROR1
9804 *
67567 0 10210 0 77777 9805)PJ41 −1,,−*−1 GPLI0442
67570 0 10207 0 06733 9806 SUBR,,−*−1 GPLI0443
67571 0 10205 0 10206 9807 −*−1,,−*−2 GPLI0444
67572 −3 00003 0 11560 9808TXLERRSET,,3 GPLI0445
67573 0 10204 0 07335 9809 PNAME,,−*−1 GPLI0446
67574 0 00000 0 10203 9810 −*−1 ERRORSET GPLI0447
67575 0 10202 0 10201 9811 −*−2,,−*−1 GPLI0448
67576 0 00000 0 10200 9812 −*−2 GPLI0449
67577 255151465162 9813BCI1,ERRORS
67600 +256377777777 9814OCT256377777777 GPLI0451
9815 *
67601 0 10176 0 77777 9816)035 −1,,−*−1 GPLI0453
67602 0 10175 0 06733 9817 SUBR,,−*−1 GPLI0454
67603 0 10173 0 10174 9818 −*−1,,−*−2 GPLI0455
67604 −3 00002 0 15454 9819TXLEVAL,,2 GPLI0456
67605 0 10172 0 07335 9820 PNAME,,−*−1 GPLI0457
67606 0 00000 0 10171 9821 −*−1 EVAL GPLI0458
67607 0 00000 0 10170 9822 −*−1 GPLI0459
67610 +256521437777 9823OCT256521437777 GPLI0460
9824 *
67611 0 10166 0 77777 9825)036 −1,,−*−1 GPLI0462
67612 0 10165 0 06733 9826 $SUBR,,−*−1 GPLI0463
67613 0 10163 0 10164 9827 −*−1,,−*−2 GPLI0464
67614 −3 00002 0 15774 9828TXLEVLIS,,2 GPLI0465
67615 0 10162 0 07335 9829 $PNAME,,−*−1 GPLI0466
67616 0 00000 0 10161 9830 −*−1 EVLIS GPLI0467
67617 0 00000 0 10160 9831 −*−1 GPLI0468
67620 +256543316277 9832OCT256543316277 GPLI0469
9833 *
67621 0 10156 0 77777 9834)037 −1,,−*−1 GPLI0471
67622 0 10155 0 07335 9835 PNAME,,−*−1 GPLI0472
67623 0 00000 0 10154 9836 −*−1 EXPR GPLI0473
67624 0 00000 0 10153 9837 −*−1 GPLI0474
67625 +256747517777 9838OCT256747517777 GPLI0475
9839 *
67626 0 10151 0 77777 9840)038 −1,,−*−1 GPLI0477
67627 0 10150 0 06733 9841 SUBR,,−*−1 GPLI0478
67630 0 10146 0 10147 9842 −*−1,,−*−2 GPLI0479
67631 −3 00002 0 13530 9843TXLEXPT,,2 GPLI0480
67632 0 10145 0 07335 9844 PNAME,,−*−1 GPLI0481
67633 0 00000 0 10144 9845 −*−1 EXPT GPLI0482
67634 0 00000 0 10143 9846 −*−1 GPLI0483
67635 +256747637777 9847OCT256747637777 GPLI0484
9848 *
67636 0 10141 0 77777 9849)040 −1,,−*−1 GPLI0486
67637 0 10140 0 07335 9850 PNAME,,−*−1 GPLI0487
67640 0 00000 0 10137 9851 −*−1 FEXPR GPLI0488
67641 0 00000 0 10136 9852 −*−1 GPLI0489
67642 +262567475177 9853OCT262567475177 GPLI0490
9854 *
67643 0 10134 0 77777 9855)041 −1,,−*−1 GPLI0492
67644 0 10133 0 07335 9856 PNAME,,−*−1 GPLI0493
67645 0 00000 0 10132 9857 −*−1 FIX GPLI0494
67646 0 00000 0 10131 9858 −*−1 GPLI0495
67647 +263167777777 9859OCT263167777777 GPLI0496
9860 *
67650 0 10127 0 77777 9861II11 −1,,−*−1 GPLI0498
67651 0 10126 0 06733 9862 $SUBR,,−*−1 GPLI0499
67652 0 10124 0 10125 9863 −*−1,,−*−2 GPLI0500
67653 −3 00001 0 14466 9864TXLFIXP,,1 GPLI0501
67654 0 10123 0 07335 9865 $PNAME,,−*−1 GPLI0502
67655 0 00000 0 10122 9866 −*−1 FIXP GPLI0503
67656 0 00000 0 10121 9867 −*−1 GPLI0504
67657 +263167477777 9868OCT263167477777 GPLI0505
9869 *
67660 0 10117 0 77777 9870)042 −1,,−*−1 GPLI0507
67661 0 10116 0 07335 9871 PNAME,,−*−1 GPLI0508
67662 0 00000 0 10115 9872 −*−1 FLOAT GPLI0509
67663 0 00000 0 10114 9873 −*−1 GPLI0510
67664 +264346216377 9874OCT264346216377 GPLI0511
9875 *
67665 0 10112 0 77777 9876II12 −1,,−*−1 GPLI0513
67666 0 10111 0 06733 9877 $SUBR,,−*−1 GPLI0514
67667 0 10107 0 10110 9878 −*−1,,−*−2 GPLI0515
67670 −3 00001 0 14453 9879TXLFLOATP,,1 GPLI0516
67671 0 10106 0 07335 9880 $PNAME,,−*−1 GPLI0517
67672 0 00000 0 10105 9881 −*−1 FLOATP GPLI0518
67673 0 00000 0 10104 9882 −*−1 GPLI0519
67674 264346216347 9883BCI1,FLOATP
9884 *
67675 0 10102 0 77777 9885)043 −1,,−*−1 GPLI0522
67676 0 10101 0 07335 9886 PNAME,,−*−1 GPLI0523
67677 0 00000 0 10100 9887 −*−1 FSUBR GPLI0524
67700 0 00000 0 10077 9888 −*−1 GPLI0525
67701 +266264225177 9889OCT266264225177 GPLI0526
9890 *
67702 0 10075 0 77777 9891)044 −1,,−*−1 GPLI0528
67703 0 10074 0 07335 9892 PNAME,,−*−1 GPLI0529
67704 0 00000 0 10073 9893 −*−1 FUNARG GPLI0530
67705 0 00000 0 10072 9894 −*−1 GPLI0531
67706 266445215127 9895BCD1 FUNARG
9896 *
67707 0 10070 0 77777 9897)045 −1,,−*−1 GPLI0534
67710 0 10067 0 10103 9898 FSUBR,,−*−1 GPLI0535
67711 0 10065 0 10066 9899 −*−1,,−*−2 GPLI0536
67712 −3 00000 0 15250 9900TXL$LAMP,,0 GPLI0537
67713 0 10064 0 07335 9901 PNAME,,−*−1 GPLI0538
67714 0 00000 0 10063 9902 −*−1 FUNCTION GPLI0539
67715 0 10061 0 10062 9903 −*−1,,−*−2 GPLI0540
67716 266445236331 9904BCD1 FUNCTI
67717 0 00000 0 10060 9905 −*−1 GPLI0542
67720 −064577777777 9906OCT464577777777 GPLI0543
9907 *
67721 0 10056 0 77777 9908)046 −1,,−*−1 GPLI0545
67722 0 10055 0 06733 9909 $SUBR,,−*−1 GPLI0546
67723 0 10053 0 10054 9910 −*−1,,−*−2 GPLI0547
67724 −3 00000 0 10174 9911TXLGENSYM,,0 GPLI0548
67725 0 10052 0 07335 9912 $PNAME,,−*−1 GPLI0549
67726 0 00000 0 10051 9913 −*−1 GENSYM GPLI0550
67727 0 00000 0 10050 9914 −*−1 GPLI0551
67730 272545627044 9915BCD1 GENSYM
9916 *
67731 0 10046 0 77777 9917)231 −1,,−*−1 GPLI0554
67732 0 10045 0 06733 9918 SUBR,,−*−1 GPLI0555
67733 0 10043 0 10044 9919 −*−1,,−*−2 GPLI0556
9920
67734 −3 00002 0 11771 9921TXLC$GET,,2 GPLI0557
67735 0 10042 0 07335 9922 PNAME,,−*−1 GPLI0558
67736 0 00000 0 10041 9923 −*−1 GET GPLI0559
67737 0 00000 0 10040 9924 −*−1 GPLI0560
67740 +272563777777 9925OCT272563777777 GPLI0561
9926 *
67741 0 10036 0 77777 9927)047 −1,,−*−1 GPLI0563
67742 0 10035 0 10103 9928 $FSUBR,,−*−1 GPLI0564
67743 0 10033 0 10034 9929 −*−1,,−*−2 GPLI0565
67744 −3 00001 0 16276 9930TXLGOGOGO,,1 GPLI0566
67745 0 10032 0 07335 9931 PNAME,,−*−1 GPLI0567
67746 0 00000 0 10031 9932 −*−1 GO GPLI0568
67747 0 00000 0 10030 9933 −*−1 GPLI0569
67750 +274677777777 9934OCT274677777777 GPLI0570
9935 *
67751 0 10026 0 77777 9936II3 −1,,−*−1 GPLI0572
67752 0 10025 0 06733 9937 $SUBR,,−*−1 GPLI0573
67753 0 10023 0 10024 9938 −*−1,,−*−2 GPLI0574
67754 −3 00002 0 14433 9939TXLGRTRTP,,2 GPLI0575
67755 0 10022 0 07335 9940 $PNAME,,−*−1 GPLI0576
67756 0 00000 0 10021 9941 −*−1 GREATERP GPLI0577
67757 0 10020 0 10017 9942 −*−2,,−*−1 GPLI0578
67760 0 00000 0 10016 9943 −*−2 GPLI0579
67761 275125216325 9944BCI1,GREATE
67762 −114777777777 9945OCT514777777777 GPLI0581
9946 *
67763 0 10014 0 77777 9947)052 −1,,−*−1 GPLI0583
67764 0 10013 0 06733 9948 SUBR,,−*−1 GPLI0584
67765 0 10011 0 10012 9949 −*−1,,−*−2 GPLI0585
67766 −3 00001 0 06420 9950TXLINTRN1,,1 GPLI0586
67767 0 10010 0 07335 9951 PNAME,,−*−1 GPLI0587
67770 0 00000 0 10007 9952 −*−1 INTERN GPLI0588
67771 0 00000 0 10006 9953 −*−1 GPLI0589
67772 314563255145 9954BCD1 INTERN
9955 *
67773 0 10004 0 77777 9956)054 −1,,−*−1 GPLI0592
67774 0 10003 0 10103 9957 FSUBR,,−*−1 GPLI0593
67775 0 10001 0 10002 9958 −*−1,,−*−2 GPLI0594
67776 −3 00000 0 15264 9959TXLLABP,,0 GPLI0595
67777 0 10000 0 07335 9960 PNAME,,−*−1 GPLI0596
70000 0 00000 0 07777 9961 −*−1 LABEL GPLI0597
70001 0 00000 0 07776 9962 −*−1 GPLI0598
70002 −032122254377 9963OCT432122254377 GPLI0599
9964 *
70003 0 07774 0 77777 9965)055 −1,,−*−1 GPLI0601
70004 0 07773 0 07335 9966 PNAME,,−*−1 GPLI0602
70005 0 00000 0 07772 9967 −*−1 LAMBDA GPLI0603
70006 0 00000 0 07771 9968 −*−1 GPLI0604
70007 432144222421 9969BCD1 LAMBDA
9970 *
70010 0 07767 0 77777 9971)LAP −1,,−*−1 GPLI0607
70011 0 07766 0 06733 9972 SUBR,,−*−1 GPLI0608
70012 0 07764 0 07765 9973 −*−1,,−*−2 GPLI0609
70013 −3 00002 0 16321 9974TXLC$LAP,,2 GPLI0610
70014 0 07763 0 07335 9975 PNAME,,−*−1 GPLI0611
70015 0 00000 0 07762 9976 −*−1 LAP GPLI0612
70016 0 00000 0 07761 9977 −*−1 GPLI0613
70017 −032147777777 9978OCT432147777777 GPLI0614
9979 *
70020 0 07757 0 77777 9980PVV1 −1,,−*−1 GPLI0616
70021 0 07756 0 06733 9981 SUBR,,−*−1 GPLI0617
70022 0 07754 0 07755 9982 −*−1,,−*−2 GPLI0618
70023 −3 00002 0 12760 9983TXLLSHIFT,,2 GPLI0619
70024 0 07753 0 07335 9984 PNAME,,−*−1 GPLI0620
70025 0 00000 0 07752 9985 −*−1 LEFTSHIFT GPLI0621
70026 0 07751 0 07750 9986 −*−2,,−*−1 GPLI0622
70027 0 00000 0 07747 9987 −*−2 GPLI0623
70030 432526636230 9988BCI1,LEFTSH
70031 +312663777777 9989OCT312663777777 GPLI0625
9990 *
70032 0 07745 0 77777 9991II4 −1,,−*−1 GPLI0627
70033 0 07744 0 06733 9992 $SUBR,,−*−1 GPLI0628
70034 0 07742 0 07743 9993 −*−1,,−*−2 GPLI0629
70035 −3 00002 0 14443 9994TXLLESSTP,,2 GPLI0630
70036 0 07741 0 07335 9995 $PNAME,,−*−1 GPLI0631
70037 0 00000 0 07740 9996 −*−1 LESSP GPLI0632
70040 0 00000 0 07737 9997 −*−1 GPLI0633
70041 −032562624777 9998OCT432562624777 GPLI0634
9999 *
70042 0 07735 0 77777 10000)057 −1,,−*−1 GPLI0636
70043 0 07734 0 10103 10001 FSUBR,,−*−1 GPLI0637
70044 0 07732 0 07733 10002 −*−1,,−*−2 GPLI0638
70045 −3 00000 0 15774 10003TXLEVLIS,,0 GPLI0639
70046 0 07731 0 07335 10004 PNAME,,−*−1 GPLI0640
70047 0 00000 0 07730 10005 −*−1 LIST GPLI0641
70050 0 00000 0 07727 10006 −*−1 GPLI0642
70051 −033162637777 10007OCT433162637777 GPLI0643
10008 *
70052 0 07725 0 77777 10009)PJ17 −1,,−*−1 GPLI0645
70053 0 07724 0 06733 10010 SUBR,,−*−1 GPLI0646
70054 0 07722 0 07723 10011 −*−1,,−*−2 GPLI0647
70055 −3 00001 0 12321 10012TXLLITER,,1 GPLI0648
70056 0 07721 0 07335 10013 PNAME,,−*−1 GPLI0649
70057 0 00000 0 07720 10014 −*−1 LITER GPLI0650
70060 0 00000 0 07717 10015 −*−1 GPLI0651
70061 −033163255177 10016OCT433163255177 GPLI0652
10017 *
70062 0 07715 0 77777 10018)234A −1,,−*−1 GPLI0654
70063 0 07714 0 06733 10019 SUBR,,−*−1 GPLI0655
70064 0 07712 0 07713 10020 −*−1,,−*−2 GPLI0656
70065 −3 00000 0 77724 10021TXLLOADER,,0 GPLI0657
70066 0 07711 0 07335 10022 PNAME,,−*−1 GPLI0658
70067 0 00000 0 07710 10023 −*−1 LOAD GPLI0659
70070 0 00000 0 07707 10024 −*−1 GPLI0660
70071 −034621247777 10025OCT434621247777 GPLI0661
10026 *
70072 0 07705 0 77777 10027)PJ37 −1,,−*−1 GPLI0663
70073 0 07704 0 10103 10028 FSUBR,,−*−1 GPLI0664
70074 0 07702 0 07703 10029 −*−1,,−*−2 GPLI0665
70075 −3 00000 0 12676 10030TXLLOGAND,,0 GPLI0666
70076 0 07701 0 07335 10031 PNAME,,−*−1 GPLI0667
70077 0 00000 0 07700 10032 −*−1 LOGAND GPLI0668
70100 0 00000 0 07677 10033 −*−1 GPLI0669
70101 434627214524 10034BCI1,LOGAND
10035 *
70102 0 07675 0 77777 10036)PJ36 −1,,−*−1 GPLI0672
70103 0 07674 0 10103 10037 FSUBR,,−*−1 GPLI0673
70104 0 07672 0 07673 10038 −*−1,,−*−2 GPLI0674
70105 −3 00000 0 12662 10039TXLLOGOR,,0 GPLI0675
70106 0 07671 0 07335 10040 PNAME,,−*−1 GPLI0676
70107 0 00000 0 07670 10041 −*−1 LOGOR GPLI0677
70110 0 00000 0 07667 10042 −*−1 GPLI0678
70111 −034627465177 10043OCT434627465177 GPLI0679
10044 *
70112 0 07665 0 77777 10045)PJ38 −1,,−*−1 GPLI0681
70113 0 07664 0 10103 10046 FSUBR,,−*−1 GPLI0682
70114 0 07662 0 07663 10047 −*−1,,−*−2 GPLI0683
70115 −3 00000 0 12712 10048TXLLOGXOR,,0 GPLI0684
70116 0 07661 0 07335 10049 PNAME,,−*−1 GPLI0685
70117 0 00000 0 07660 10050 −*−1 LOGXOR GPLI0686
70120 0 00000 0 07657 10051 −*−1 GPLI0687
70121 434627674651 10052BCI1,LOGXOR
10053 *
70122 0 07655 0 77777 10054)PJ7 −1,,−*−1 GPLI0690
70123 0 07654 0 07335 10055 PNAME,,−*−1 GPLI0691
70124 0 07651 0 07653 10056 −*−1,,−*−3 LPAR GPLI0692
70125 0 00000 0 07652 10057 −*−1 GPLI0693
70126 −034721517777 10058OCT434721517777 GPLI0694
70127 0 07650 0 10742 10059 APVAL1,,−*−1 GPLI0695
70130 0 00000 0 07647 10060 −*−1 GPLI0696
70131 0 00000 0 06223 10061 H74 GPLI0697
10062 *
70132 0 07645 0 77777 10063)065 −1,,−*−1 GPLI0699
70133 0 07644 0 06733 10064 SUBR,,−*−1 GPLI0700
70134 0 07642 0 07643 10065 −*−1,,−*−2 GPLI0701
70135 −3 00002 0 07620 10066TXLMAPCAR,,2 GPLI0702
70136 0 07641 0 07335 10067 PNAME,,−*−1 GPLI0703
70137 0 00000 0 07640 10068 −*−1 MAP GPLI0704
70140 0 00000 0 07637 10069 −*−1 GPLI0705
70141 −042147777777 10070OCT442147777777 GPLI0706
10071 *
70142 0 07635 0 77777 10072)069B −1,,−*−1 GPLI0708
70143 0 07634 0 06733 10073 SUBR,,−*−1 GPLI0709
70144 0 07632 0 07633 10074 −*−1,,−*−2 GPLI0710
70145 −3 00002 0 07645 10075TXLMAPCON,,2 GPLI0711
70146 0 07631 0 07335 10076 PNAME,,−*−1 GPLI0712
70147 0 00000 0 07630 10077 −*−1 MAPCON GPLI0713
70150 0 00000 0 07627 10078 −*−1 GPLI0714
70151 442147234645 10079BCD1 MAPCON
10080 *
70152 0 07625 0 77777 10081)069A −1,,−*−1 GPLI0717
70153 0 07624 0 06733 10082 SUBR,,−*−1 GPLI0718
70154 0 07622 0 07623 10083 −*−1,,−*−2 GPLI0719
70155 −3 00002 0 04214 10084TXLMAPLIS,,2 GPLI0720
70156 0 07621 0 07335 10085 PNAME,,−*−1 GPLI0721
70157 0 00000 0 07620 10086 −*−1 MAPLIST GPLI0722
70160 0 07617 0 07616 10087 −*−2,,−*−1 GPLI0723
70161 0 00000 0 07615 10088 −*−2 GPLI0724
70162 442147433162 10089BCD1 MAPLIS
70163 −237777777777 10090OCT637777777777 GPLI0726
10091 *
70164 0 07613 0 77777 10092II7 −1,,−*−1 GPLI0728
70165 0 07612 0 10103 10093 $FSUBR,,−*−1 GPLI0729
70166 0 07610 0 07611 10094 −*−1,,−*−2 GPLI0730
70167 −3 00002 0 14150 10095TXLMAX,,2 GPLI0731
70170 0 07607 0 07335 10096 $PNAME,,−*−1 GPLI0732
70171 0 00000 0 07606 10097 −*−1 MAX GPLI0733
70172 0 00000 0 07605 10098 −*−1 GPLI0734
70173 −042167777777 10099OCT442167777777 GPLI0735
10100 *
70174 0 07603 0 77777 10101II8 −1,,−*−1 GPLI0737
70175 0 07602 0 10103 10102 $FSUBR,,−*−1 GPLI0738
70176 0 07600 0 07601 10103 −*−1,,−*−2 GPLI0739
70177 −3 00002 0 14142 10104TXLMIN,,2 GPLI0740
70200 0 07577 0 07335 10105 $PNAME,,−*−1 GPLI0741
70201 0 00000 0 07576 10106 −*−1 MIN GPLI0742
70202 0 00000 0 07575 10107 −*−1 GPLI0743
70203 −043145777777 10108OCT443145777777 GPLI0744
10109 *
70204 0 07573 0 77777 10110)070 −1,,−*−1 GPLI0746
70205 0 07572 0 06733 10111 $SUBR,,−*−1 GPLI0747
70206 0 07570 0 07571 10112 −*−1,,−*−2 GPLI0748
70207 −3 00001 0 14624 10113TXLMNSPRG,,1 GPLI0749
70210 0 07567 0 07335 10114 $PNAME,,−*−1 GPLI0750
70211 0 00000 0 07566 10115 −*−1 MINUS GPLI0751
70212 0 00000 0 07565 10116 −*−1 GPLI0752
70213 −043145646277 10117OCT443145646277 GPLI0753
10118 *
70214 0 07563 0 77777 10119II16 −1,,−*−1 GPLI0755
70215 0 07562 0 06733 10120 $SUBR,,−*−1 GPLI0756
70216 0 07560 0 07561 10121 −*−1,,−*−2 GPLI0757
70217 −3 00001 0 14500 10122TXLMINUSP,,1 GPLI0758
70220 0 07557 0 07335 10123 $PNAME,,−*−1 GPLI0759
70221 0 00000 0 07556 10124 −*−1 MINUSP GPLI0760
70222 0 00000 0 07555 10125 −*−1 GPLI0761
70223 443145646247 10126BCI1,MINUSP
10127 *
70224 0 07553 0 77777 10128)PJ26 −1,,−*−1 GPLI0764
70225 0 07552 0 06733 10129 SUBR,,−*−1 GPLI0765
70226 0 07550 0 07551 10130 −*−1,,−*−2 GPLI0766
70227 −3 00000 0 12147 10131TXLMKNAM,,0 GPLI0767
70230 0 07547 0 07335 10132 PNAME,,−*−1 GPLI0768
70231 0 00000 0 07546 10133 −*−1 MKNAM GPLI0769
70232 0 00000 0 07545 10134 −*−1 GPLI0770
70233 −044245214477 10135OCT444245214477 GPLI0771
10136 *
70234 0 07543 0 77777 10137)071 −1,,−*−1 GPLI0773
70235 0 07542 0 06733 10138 SUBR,,−*−1 GPLI0774
70236 0 07540 0 07541 10139 −*−1,,−*−2 GPLI0775
70237 −3 00002 0 07675 10140TXLNCONC,,2 GPLI0776
70240 0 07537 0 07335 10141 PNAME,,−*−1 GPLI0777
70241 0 00000 0 07536 10142 −*−1 NCONC GPLI0778
70242 0 00000 0 07535 10143 −*−1 GPLI0779
70243 −052346452377 10144OCT452346452377 GPLI0780
10145 *
70244 0 07533 0 77777 10146)074 −1,,−*−1 GPLI0782
70245 0 07532 0 06733 10147 $SUBR,,−*−1 GPLI0783
70246 0 07530 0 07531 10148 −*−1,,−*−2 GPLI0784
70247 −3 00001 0 10150 10149TXLNOTS,,1 GPLI0785
70250 0 07527 0 07335 10150 $PNAME,,−*−1 GPLI0786
70251 0 00000 0 07526 10151 −*−1 NOT GPLI0787
70252 0 00000 0 07525 10152 −*−1 GPLI0788
70253 −054663777777 10153OCT454663777777 GPLI0789
10154 *
70254 0 07523 0 77777 10155)075 −1,,−*−1 GPLI0791
70255 0 07522 0 06733 10156 SUBR,,−*−1 GPLI0792
70256 0 07520 0 07521 10157 −*−1,,−*−2 GPLI0793
70257 −3 00001 0 15243 10158TXLNULLP,,1 GPLI0794
70260 0 07517 0 07335 10159 PNAME,,−*−1 GPLI0795
70261 0 00000 0 07516 10160 −*−1 NULL GPLI0796
70262 0 00000 0 07515 10161 −*−1 GPLI0797
70263 −056443437777 10162OCT456443437777 GPLI0798
10163 *
70264 0 07513 0 77777 10164II13 −1,,−*−1 GPLI0800
70265 0 07512 0 06733 10165 $SUBR,,−*−1 GPLI0801
70266 0 07510 0 07511 10166 −*−1,,−*−2 GPLI0802
70267 −3 00001 0 14445 10167TXLNUMBRP,,1 GPLI0803
70270 0 07507 0 07335 10168 $PNAME,,−*−1 GPLI0804
70271 0 00000 0 07506 10169 −*−1 NUMBERP GPLI0805
70272 0 07505 0 07504 10170 −*−2,,−*−1 GPLI0806
70273 0 00000 0 07503 10171 −*−2 GPLI0807
70274 456444222551 10172BCI1,NUMBER
70275 −077777777777 10173OCT477777777777 GPLI0809
10174 *
70276 0 07501 0 77777 10175)PJ25 −1,,−*−1 GPLI0811
70277 0 07500 0 06733 10176 SUBR,,−*−1 GPLI0812
70300 0 07476 0 07477 10177 −*−1,,−*−2 GPLI0813
70301 −3 00000 0 12071 10178TXLNUMOB,,0 GPLI0814
70302 0 07475 0 07335 10179 PNAME,,−*−1 GPLI0815
70303 0 00000 0 07474 10180 −*−1 NUMOB GPLI0816
70304 0 00000 0 07473 10181 −*−1 GPLI0817
70305 −056444462277 10182OCT456444462277 GPLI0818
10183 *
70306 0 07471 0 77777 10184)079A −1,,−*−1 GPLI0820
70307 0 07470 0 10742 10185 APVAL1,,−*−1 GPLI0821
70310 0 07466 0 07467 10186 −*−1,,−*−2 GPLI0822
70311 0 00000 0 11351 10187 −OBLIST GPLI0823
70312 0 07465 0 07335 10188 PNAME,,−*−1 GPLI0824
70313 0 00000 0 07464 10189 −*−1 OBLIST GPLI0825
70314 0 00000 0 07463 10190 −*−1 GPLI0826
70315 462243316263 10191BCD1 OBLIST
10192 *
70316 0 07461 0 77777 10193)PJ28 −1,,−*−1 GPLI0829
70317 0 07460 0 07335 10194 PNAME,,−*−1 GPLI0830
70320 0 00000 0 07457 10195 −*−1 OCTAL GPLI0831
70321 0 00000 0 07456 10196 −*−1 GPLI0832
70322 −062363214377 10197OCT462363214377 GPLI0833
10198 *
70323 0 07454 0 77777 10199II9 −1,,−*−1 GPLI0835
70324 0 07453 0 06733 10200 $SUBR,,−*−1 GPLI0836
10201
70325 0 07451 0 07452 10202 −*−1,,−*−2 GPLI0837
70326 −3 00001 0 14533 10203TXLONEP,,1 GPLI0838
70327 0 07450 0 07335 10204 $PNAME,,−*−1 GPLI0839
70330 0 00000 0 07447 10205 −*−1 ONEP GPLI0840
70331 0 00000 0 07446 10206 −*−1 GPLI0841
70332 −064525477777 10207OCT464525477777 GPLI0842
10208 *
70333 0 07444 0 77777 10209)PJ18 −1,,−*−1 GPLI0844
70334 0 07443 0 06733 10210 SUBR,,−*−1 GPLI0845
70335 0 07441 0 07442 10211 −*−1,,−*−2 GPLI0846
70336 −3 00001 0 12333 10212TXLOPCHAR,,1 GPLI0847
70337 0 07440 0 07335 10213 PNAME,,−*−1 GPLI0848
70340 0 00000 0 07437 10214 −*−1 OPCHAR GPLI0849
70341 0 00000 0 07436 10215 −*−1 GPLI0850
70342 464723302151 10216BCD1 OPCHAR
10217 *
70343 0 07434 0 77777 10218)079 −1,,−*−1 GPLI0853
70344 0 07433 0 10103 10219 FSUBR,,−*−1 GPLI0854
70345 0 07431 0 07432 10220 −*−1,,−*−2 GPLI0855
70346 −3 00000 0 15416 10221TXL$EVOR,,0 GPLI0856
70347 0 07430 0 07335 10222 $PNAME,,−*−1 GPLI0857
70350 0 00000 0 07427 10223 −*−1 OR GPLI0858
70351 0 00000 0 07426 10224 −*−1 GPLI0859
70352 −065177777777 10225OCT465177777777 GPLI0860
10226 *
70353 0 07424 0 77777 10227)PJ24 −1,,−*−1 GPLI0862
70354 0 07423 0 06733 10228 SUBR,,−*−1 GPLI0863
70355 0 07421 0 07422 10229 −*−1,,−*−2 GPLI0864
70356 −3 00001 0 12032 10230TXLPACK,,1 GPLI0865
70357 0 07420 0 07335 10231 PNAME,,−*−1 GPLI0866
70360 0 00000 0 07417 10232 −*−1 PACK GPLI0867
70361 0 00000 0 07416 10233 −*−1 GPLI0868
70362 −072123427777 10234OCT472123427777 GPLI0869
10235 *
70363 0 07414 0 77777 10236)080 −1,,−*−1 GPLI0871
70364 0 07413 0 06733 10237 SUBR,,−*−1 GPLI0872
70365 0 07411 0 07412 10238 −*−1,,−*−2 GPLI0873
70366 −3 00002 0 07562 10239TXLPAIR,,2 GPLI0874
70367 0 07410 0 07335 10240 PNAME,,−*−1 GPLI0875
70370 0 00000 0 07407 10241 −*−1 PAIR GPLI0876
70371 0 00000 0 07406 10242 −*−1 GPLI0877
70372 −072131517777 10243OCT472131517777 GPLI0878
10244 *
70373 0 07404 0 77777 10245)234C −1,,−*−1 GPLI0880
70374 0 07403 0 06733 10246 SUBR,,−*−1 GPLI0881
70375 0 07401 0 07402 10247 −*−1,,−*−2 GPLI0882
70376 −3 00000 0 01554 10248TXLPAUSEF,,0 GPLI0883
70377 0 07400 0 07335 10249 PNAME,,−*−1 GPLI0884
70400 0 00000 0 07377 10250 −*−1 PAUSE GPLI0885
70401 0 00000 0 07376 10251 −*−1 GPLI0886
70402 −072164622577 10252OCT472164622577 GPLI0887
10253 *
70403 0 07374 0 77777 10254)PJ9 −1,,−*−1 GPLI0889
70404 0 07373 0 07335 10255 PNAME,,−*−1 GPLI0890
70405 0 07370 0 07372 10256 −*−1,,−*−3 PERIOD GPLI0891
70406 0 00000 0 07371 10257 −*−1 GPLI0892
70407 472551314624 10258BCD1 PERIOD
70410 0 07367 0 10742 10259 APVAL1,,−*−1 GPLI0894
70411 0 00000 0 07366 10260 −*−1 GPLI0895
70412 0 00000 0 06162 10261 H33 GPLI0896
10262 *
70413 0 07364 0 77777 10263)234B −1,,−*−1 GPLI0898
70414 0 07363 0 06733 10264 SUBR,,−*−1 GPLI0899
70415 0 07361 0 07362 10265 −*−1,,−*−2 GPLI0900
70416 −3 00000 0 01371 10266TXLPSHLDB,,0 GPLI0901
70417 0 07360 0 07335 10267 PNAME,,−*−1 GPLI0902
70420 0 00000 0 07357 10268 −*−1 PLB GPLI0903
70421 0 00000 0 07356 10269 −*−1 GPLI0904
70422 −074322777777 10270OCT474322777777 GPLI0905
10271 *
70423 0 07354 0 77777 10272)081 −1,,−*−1 GPLI0907
70424 0 07353 0 10103 10273 $FSUBR,,−*−1 GPLI0908
70425 0 07351 0 07352 10274 −*−1,,−*−2 GPLI0909
70426 −3 00002 0 14126 10275TXLADDP,,2 GPLI0910
70427 0 07350 0 07335 10276 $PNAME,,−*−1 GPLI0911
70430 0 00000 0 07347 10277 −*−1 PLUS GPLI0912
70431 0 00000 0 07346 10278 −*−1 GPLI0913
70432 −074364627777 10279OCT474364627777 GPLI0914
10280 *
70433 0 07344 0 77777 10281)PJ11 −1,,−*−1 GPLI0916
70434 0 07343 0 07335 10282 PNAME,,−*−1 GPLI0917
70435 0 07340 0 07342 10283 −*−1,,−*−3 PLUSS GPLI0918
70436 0 00000 0 07341 10284 −*−1 GPLI0919
70437 −074364626277 10285OCT474364626277 GPLI0920
70440 0 07337 0 10742 10286 APVAL1,,−*−1 GPLI0921
70441 0 00000 0 07336 10287 −*−1 GPLI0922
70442 0 00000 0 06147 10288 H20 GPLI0923
10289 *
70443 0 07334 0 77777 10290)083 −1,,−*−1 GPLI0925
70444 0 07333 0 07335 10291 PNAME,,−*−1 GPLI0926
70445 0 00000 0 07332 10292 −*−1 PNAME GPLI0927
70446 0 00000 0 07331 10293 −*−1 GPLI0928
70447 −074521442577 10294OCT474521442577 GPLI0929
10295 *
70450 0 07327 0 77777 10296)PJ33 −1,,−*−1 GPLI0931
70451 0 07326 0 06733 10297 SUBR,,−*−1 GPLI0932
70452 0 07324 0 07325 10298 −*−1,,−*−2 GPLI0933
70453 −3 00001 0 04703 10299TXL$PRIN1,,1 GPLI0934
70454 0 07323 0 07335 10300 PNAME,,−*−1 GPLI0935
70455 0 00000 0 07322 10301 −*−1 PRIN1 GPLI0936
70456 0 00000 0 07321 10302 −*−1 GPLI0937
70457 −075131450177 10303OCT475131450177 GPLI0938
10304 *
70460 0 07317 0 77777 10305)087 −1,,−*−1 GPLI0940
70461 0 07316 0 06733 10306 SUBR,,−*−1 GPLI0941
70462 0 07314 0 07315 10307 −*−1,,−*−2 GPLI0942
70463 −3 00001 0 04604 10308TXLPRINT,,1 GPLI0943
70464 0 07313 0 07335 10309 PNAME,,−*−1 GPLI0944
70465 0 00000 0 07312 10310 −*−1 PRINT GPLI0945
70466 0 00000 0 07311 10311 −*−1 GPLI0946
70467 −075131456377 10312OCT475131456377 GPLI0947
10313 *
70470 0 07307 0 77777 10314)PJ39 −1,,−*−1 GPLI0949
70471 0 07306 0 06733 10315 SUBR,,−*−1 GPLI0950
70472 0 07304 0 07305 10316 −*−1,,−*−2 GPLI0951
70473 −3 00001 0 05104 10317TXLPRINT2,,1 GPLI0952
70474 0 07303 0 07335 10318 PNAME,,−*−1 GPLI0953
70475 0 00000 0 07302 10319 −*−1 PRINT2 GPLI0954
70476 0 00000 0 07301 10320 −*−1 GPLI0955
70477 475131456302 10321BCI1,PRINT2
10322 *
70500 0 07277 0 77777 10323)089 −1,,−*−1 GPLI0958
70501 0 07276 0 10103 10324 FSUBR,,−*−1 GPLI0959
70502 0 07274 0 07275 10325 −*−1,,−*−2 GPLI0960
70503 −3 00000 0 16130 10326TXLINTER,,0 GPLI0961
70504 0 07273 0 07335 10327 PNAME,,−*−1 GPLI0962
70505 0 00000 0 07272 10328 −*−1 PROG GPLI0963
70506 0 00000 0 07271 10329 −*−1 GPLI0964
70507 −075146277777 10330OCT475146277777 GPLI0965
10331 *
70510 0 07267 0 77777 10332IJ05 −1,,−*−1 GPLI0967
70511 0 07266 0 06733 10333 $SUBR,,−*−1 GPLI0968
70512 0 07264 0 07265 10334 −*−1,,−*−2 GPLI0969
70513 −3 00001 0 05325 10335TXL$PUNCH,,1 GPLI0970
70514 0 07263 0 07335 10336 $PNAME,,−*−1 GPLI0971
70515 0 00000 0 07262 10337 −*−1 PUNCH GPLI0972
70516 0 00000 0 07261 10338 −*−1 GPLI0973
70517 −076445233077 10339OCT476445233077 GPLI0974
10340 *
70520 0 07257 0 77777 10341)090 −1,,−*−1 GPLI0976
70521 0 07256 0 06733 10342 SUBR,,−*−1 GPLI0977
70522 0 07254 0 07255 10343 −*−1,,−*−2 GPLI0978
70523 −3 00003 0 10011 10344TXLAPROP,,3 GPLI0979
70524 0 07253 0 07335 10345 PNAME,,−*−1 GPLI0980
70525 0 00000 0 07252 10346 −*−1 PROP GPLI0981
70526 0 00000 0 07251 10347 −*−1 GPLI0982
70527 −075146477777 10348OCT475146477777 GPLI0983
10349 *
70530 0 07247 0 77777 10350)094 −1,,−*−1 GPLI0985
70531 0 07246 0 10103 10351 FSUBR,,−*−1 GPLI0986
70532 0 07244 0 07245 10352 −*−1,,−*−2 GPLI0987
70533 −3 00000 0 15212 10353TXLCARP,,0 GPLI0988
70534 0 07243 0 07335 10354 PNAME,,−*−1 GPLI0989
70535 0 00000 0 07242 10355 −*−1 QUOTE GPLI0990
70536 0 00000 0 07241 10356 −*−1 GPLI0991
70537 −106446632577 10357OCT506446632577 GPLI0992
10358 *
70540 0 07237 0 77777 10359IJ03 −1,,−*−1 GPLI0994
70541 0 07236 0 06733 10360 $SUBR,,−*−1 GPLI0995
70542 0 07234 0 07235 10361 −*−1,,−*−2 GPLI0996
70543 −3 00002 0 13427 10362TXLQUOTEN,,2 GPLI0997
70544 0 07233 0 07335 10363 $PNAME,,−*−1 GPLI0998
70545 0 00000 0 07232 10364 −*−1 QUOTIENT GPLI0999
70546 0 07231 0 07230 10365 −*−2,,−*−1 GPLI1000
70547 0 00000 0 07227 10366 −*−2 GPLI1001
70550 506446633125 10367BCI1,QUOTIE
70551 −056377777777 10368OCT456377777777 GPLI1003
10369 *
70552 0 07225 0 77777 10370)096 −1,,−*−1 GPLI1005
70553 0 07224 0 06733 10371 SUBR,,−*−1 GPLI1006
70554 0 07222 0 07223 10372 −*−1,,−*−2 GPLI1007
70555 −3 00000 0 05732 10373TXLREAD,,0 GPLI1008
70556 0 07221 0 07335 10374 PNAME,,−*−1 GPLI1009
70557 0 00000 0 07220 10375 −*−1 READ GPLI1010
70560 0 00000 0 07217 10376 −*−1 GPLI1011
70561 −112521247777 10377OCT512521247777 GPLI1012
10378 *
70562 0 07215 0 77777 10379II18 −1,,−*−1 GPLI1014
70563 0 07214 0 06733 10380 $SUBR,,−*−1 GPLI1015
70564 0 07212 0 07213 10381 −*−1,,−*−2 GPLI1016
70565 −3 00001 0 14633 10382TXLRCPPRG,,1 GPLI1017
70566 0 07211 0 07335 10383 $PNAME,,−*−1 GPLI1018
70567 0 00000 0 07210 10384 −*−1 RECIP GPLI1019
70570 0 00000 0 07207 10385 −*−1 GPLI1020
70571 −112523314777 10386OCT512523314777 GPLI1021
10387 *
70572 0 07205 0 77777 10388)234D −1,,−*−1 GPLI1023
70573 0 07204 0 06733 10389 SUBR,,−*−1 GPLI1024
70574 0 07202 0 07203 10390 −*−1,,−*−2 GPLI1025
70575 −3 00000 0 02522 10391TXLRECLAM,,0 GPLI1026
70576 0 07201 0 07335 10392 PNAME,,−*−1 GPLI1027
70577 0 00000 0 07200 10393 −*−1 RECLAIM GPLI1028
70600 0 07177 0 07176 10394 −*−2,,−*−1 GPLI1029
70601 0 00000 0 07175 10395 −*−2 GPLI1030
70602 512523432131 10396BCI1,RECLAI
70603 −047777777777 10397OCT447777777777 GPLI1032
10398 *
70604 0 07173 0 77777 10399IJ04 −1,,−*−1 GPLI1034
70605 0 07172 0 06733 10400 $SUBR,,−*−1 GPLI1035
70606 0 07170 0 07171 10401 −*−1,,−*−2 GPLI1036
70607 −3 00002 0 13423 10402TXLREMAIN,,2 GPLI1037
70610 0 07167 0 07335 10403 $PNAME,,−*−1 GPLI1038
70611 0 00000 0 07166 10404 −*−1 REMAINDER GPLI1039
70612 0 07165 0 07164 10405 −*−2,,−*−1 GPLI1040
70613 0 00000 0 07163 10406 −*−2 GPLI1041
70614 512544213145 10407BCI1,REMAIN
70615 +242551777777 10408OCT242551777777 GPLI1043
10409 *
70616 0 07161 0 77777 10410)250 −1,,−*−1 GPLI1045
70617 0 07160 0 06733 10411 SUBR,,−*−1 GPLI1046
70620 0 07156 0 07157 10412 −*−1,,−*−2 GPLI1047
70621 −3 00002 0 07714 10413TXLREMPRP,,2 GPLI1048
70622 0 07155 0 07335 10414 PNAME,,−*−1 GPLI1049
70623 0 00000 0 07154 10415 −*−1 REMPROP GPLI1050
70624 0 07152 0 07153 10416 −*−1,,−*−2 GPLI1051
70625 512544475146 10417BCD1 REMPRO
70626 0 00000 0 07151 10418 −*−1 GPLI1053
70627 −077777777777 10419OCT477777777777 GPLI1054
10420 *
70630 0 07147 0 77777 10421)102 −1,,−*−1 GPLI1056
70631 0 07146 0 06733 10422 $SUBR,,−*−1 GPLI1057
70632 0 07144 0 07145 10423 −*−1,,−*−2 GPLI1058
70633 −3 00001 0 16272 10424TXLRETURN,,1 GPLI1059
70634 0 07143 0 07335 10425 $PNAME,,−*−1 GPLI1060
70635 0 00000 0 07142 10426 −*−1 RETURN GPLI1061
70636 0 00000 0 07141 10427 −*−1 GPLI1062
70637 512563645145 10428BCD1 RETURN
10429 *
70640 0 07137 0 77777 10430)100 −1,,−*−1 GPLI1065
70641 0 07136 0 06733 10431 SUBR,,−*−1 GPLI1066
70642 0 07134 0 07135 10432 −*−1,,−*−2 GPLI1067
70643 −3 00000 0 10155 10433TXLRPLACA,,0 GPLI1068
70644 0 07133 0 07335 10434 PNAME,,−*−1 GPLI1069
70645 0 00000 0 07132 10435 −*−1 RPLACA GPLI1070
70646 0 00000 0 07131 10436 −*−1 GPLI1071
70647 514743212321 10437BCD1 RPLACA
10438 *
70650 0 07127 0 77777 10439)101 −1,,−*−1 GPLI1074
70651 0 07126 0 06733 10440 SUBR,,−*−1 GPLI1075
70652 0 07124 0 07125 10441 −*−1,,−*−2 GPLI1076
70653 −3 00000 0 10164 10442TXLRPLACD,,0 GPLI1077
70654 0 07123 0 07335 10443 PNAME,,−*−1 GPLI1078
70655 0 00000 0 07122 10444 −*−1 RPLACD GPLI1079
70656 0 00000 0 07121 10445 −*−1 GPLI1080
70657 514743212324 10446BCD1 RPLACD
10447 *
70660 0 07117 0 77777 10448)PJ8 −1,,−*−1 GPLI1083
70661 0 07116 0 07335 10449 PNAME,,−*−1 GPLI1084
70662 0 07113 0 07115 10450 −*−1,,−*−3 RPAR GPLI1085
70663 0 00000 0 07114 10451 −*−1 GPLI1086
70664 −114721517777 10452OCT514721517777 GPLI1087
70665 0 07112 0 10742 10453 APVAL1,,−*−1 GPLI1088
70666 0 00000 0 07111 10454 −*−1 GPLI1089
70667 0 00000 0 06163 10455 H34 GPLI1090
10456 *
70670 0 07107 0 77777 10457)SPCL −1,,−*−1 GPLI1092
70671 0 07106 0 07335 10458 PNAME,,−*−1 GPLI1093
70672 0 00000 0 07105 10459 −*−1 SPECIAL GPLI1094
70673 0 07103 0 07104 10460 −*−1,,−*−2 GPLI1095
70674 624725233121 10461BCI1,SPECIA
70675 0 00000 0 07102 10462 −*−1 GPLI1097
70676 437777777777 10463VFDH6/L,O30/7777777777
10464 *
70677 0 07100 0 77777 10465)MOV −1,,−*−1 GPLI1100
70700 0 07077 0 07335 10466 PNAME,,−*−1 GPLI1101
70701 0 07074 0 07076 10467 −*−1,,−*−3 *MOVE GPLI1102
70702 0 00000 0 07075 10468 −*−1 GPLI1103
70703 544446652577 10469VFDH30/*MOVE,O6/77
70704 0 07073 0 06706 10470 SYM,,−*−1 GPLI1105
70705 −0 00000 0 61255 10471MZE−C$MOV GPLI1106
10472 *
70706 0 07071 0 77777 10473)RTRN −1,,−*−1 GPLI1108
70707 0 07070 0 07335 10474 PNAME,,−*−1 GPLI1109
70710 0 07063 0 07067 10475 −*−1,,−*−5 *RETURN GPLI1110
70711 0 07065 0 07066 10476 −*−1,,−*−2 GPLI1111
70712 545125636451 10477BCI1,*RETUR
70713 0 00000 0 07064 10478 −*−1 GPLI1113
70714 457777777777 10479VFDH6/N,O30/7777777777
70715 0 07062 0 06706 10480 SYM,,−*−1 GPLI1115
70716 −0 00000 0 61253 10481MZE−C$RTRN GPLI1116
10482
10483 *
70717 0 07060 0 77777 10484)LST −1,,−*−1 GPLI1118
70720 0 07057 0 07335 10485 PNAME,,−*−1 GPLI1119
70721 0 07054 0 07056 10486 −*−1,,−*−3 *LIST GPLI1120
70722 0 00000 0 07055 10487 −*−1 GPLI1121
70723 544331626377 10488VFDH30/*LIST,O6/77
70724 0 07053 0 06706 10489 SYM,,−*−1 GPLI1123
70725 −0 00000 0 61254 10490MZE−C$LSTR GPLI1124
10491 *
70726 0 07051 0 77777 10492)106 −1,,−*−1 GPLI1126
70727 0 07050 0 06733 10493 SUBR,,−*−1 GPLI1127
70730 0 07046 0 07047 10494 −*−1,,−*−2 GPLI1128
70731 −3 00003 0 10042 10495TXLAPSSOC,,3 GPLI1129
70732 0 07045 0 07335 10496 PNAME,,−*−1 GPLI1130
70733 0 00000 0 07044 10497 −*−1 SASSOC GPLI1131
70734 0 00000 0 07043 10498 −*−1 GPLI1132
70735 622162624623 10499BCD1 SASSOC
10500 *
70736 0 07041 0 77777 10501)236 −1,,−*−1 GPLI1135
70737 0 07040 0 06733 10502 SUBR,,−*−1 GPLI1136
70740 0 07036 0 07037 10503 −*−1,,−*−2 GPLI1137
70741 −3 00004 0 04400 10504TXLSEARCH,,4 GPLI1138
70742 0 07035 0 07335 10505 PNAME,,−*−1 GPLI1139
70743 0 00000 0 07034 10506 −*−1 SEARCH GPLI1140
70744 0 00000 0 07033 10507 −*−1 GPLI1141
70745 622521512330 10508BCD1 SEARCH
10509 *
70746 0 07031 0 77777 10510)107 −1,,−*−1 GPLI1144
70747 0 07030 0 06733 10511 $SUBR,,−*−1 GPLI1145
70750 0 07026 0 07027 10512 −*−1,,−*−2 GPLI1146
70751 −3 00002 0 15346 10513TXLSETP,,2 GPLI1147
70752 0 07025 0 07335 10514 $PNAME,,−*−1 GPLI1148
70753 0 00000 0 07024 10515 −*−1 SET GPLI1149
70754 0 00000 0 07023 10516 −*−1 GPLI1150
70755 −222563777777 10517OCT622563777777 GPLI1151
10518 *
70756 0 07021 0 77777 10519)108 −1,,−*−1 GPLI1153
70757 0 07020 0 10103 10520 $FSUBR,,−*−1 GPLI1154
70760 0 07016 0 07017 10521 −*−1,,−*−2 GPLI1155
70761 −3 00000 0 15311 10522TXLSETQP,,0 GPLI1156
70762 0 07015 0 07335 10523 PNAME,,−*−1 GPLI1157
70763 0 00000 0 07014 10524 −*−1 SETQ GPLI1158
70764 0 00000 0 07013 10525 −*−1 GPLI1159
70765 −222563507777 10526OCT622563507777 GPLI1160
10527 *
70766 0 07011 0 77777 10528)PJ14 −1,,−*−1 GPLI1162
70767 0 07010 0 07335 10529 PNAME,,−*−1 GPLI1163
70770 0 07005 0 07007 10530 −*−1,,−*−3 SLASH GPLI1164
70771 0 00000 0 07006 10531 −*−1 GPLI1165
70772 −224321623077 10532OCT624321623077 GPLI1166
70773 0 07004 0 10742 10533 APVAL1,,−*−1 GPLI1167
70774 0 00000 0 07003 10534 −*−1 GPLI1168
70775 0 00000 0 06210 10535 H61 GPLI1169
10536 *
70776 0 07001 0 77777 10537)109 −1,,−*−1 GPLI1171
70777 0 07000 0 06733 10538 SUBR,,−*−1 GPLI1172
71000 0 06776 0 06777 10539 −*−1,,−*−2 GPLI1173
71001 −3 00000 0 03774 10540TXLSPEAK,,0 GPLI1174
71002 0 06775 0 07335 10541 PNAME,,−*−1 GPLI1175
71003 0 00000 0 06774 10542 −*−1 SPEAK GPLI1176
71004 0 00000 0 06773 10543 −*−1 GPLI1177
71005 −224725214277 10544OCT624725214277 GPLI1178
10545 *
71006 0 06771 0 77777 10546)111 −1,,−*−1 GPLI1180
71007 0 06770 0 07335 10547 PNAME,,−*−1 GPLI1181
71010 0 00000 0 06767 10548 −*−1 STOP GPLI1182
71011 0 00000 0 06766 10549 −*−1 GPLI1183
71012 −226346477777 10550OCT626346477777 GPLI1184
10551 *
71013 0 06764 0 77777 10552)PJ15 −1,,−*−1 GPLI1186
71014 0 06763 0 07335 10553 PNAME,,−*−1 GPLI1187
71015 0 06760 0 06762 10554 −*−1,,−*−3 STAR GPLI1188
71016 0 00000 0 06761 10555 −*−1 GPLI1189
71017 −226321517777 10556OCT626321517777 GPLI1190
71020 0 06757 0 10742 10557 APVAL1,,−*−1 GPLI1191
71021 0 00000 0 06756 10558 −*−1 GPLI1192
71022 0 00000 0 06203 10559 H54 GPLI1193
10560 *
71023 0 06754 0 77777 10561)PJ21 −1,,−*−1 GPLI1195
71024 0 06753 0 06733 10562 SUBR,,−*−1 GPLI1196
71025 0 06751 0 06752 10563 −*−1,,−*−2 GPLI1197
71026 −3 00000 0 12221 10564TXLSTREAD,,0 GPLI1198
71027 0 06750 0 07335 10565 PNAME,,−*−1 GPLI1199
71030 0 00000 0 06747 10566 −*−1 STARTREAD GPLI1200
71031 0 06745 0 06746 10567 −*−1,,−*−2 GPLI1201
71032 626321516351 10568BCD1 STARTR
71033 0 00000 0 06744 10569 −*−1 GPLI1203
71034 +252124777777 10570OCT252124777777 GPLI1204
10571 *
71035 0 06742 0 77777 10572II15 −1,,−*−1 GPLI1206
71036 0 06741 0 06733 10573 $SUBR,,−*−1 GPLI1207
71037 0 06737 0 06740 10574 −*−1,,−*−2 GPLI1208
71040 −3 00001 0 14430 10575TXLSUB1,,1 GPLI1209
71041 0 06736 0 07335 10576 $PNAME,,−*−1 GPLI1210
71042 0 00000 0 06735 10577 −*−1 SUB1 GPLI1211
71043 0 00000 0 06734 10578 −*−1 GPLI1212
71044 −226422017777 10579OCT626422017777 GPLI1213
10580 *
71045 0 06732 0 77777 10581)113 −1,,−*−1 GPLI1215
71046 0 06731 0 07335 10582 PNAME,,−*−1 GPLI1216
71047 0 00000 0 06730 10583 −*−1 SUBR GPLI1217
71050 0 00000 0 06727 10584 −*−1 GPLI1218
71051 −226422517777 10585OCT626422517777 GPLI1219
10586 *
71052 0 06725 0 77777 10587)114 −1,,−*−1 GPLI1221
71053 0 06724 0 06733 10588 SUBR,,−*−1 GPLI1222
71054 0 06722 0 06723 10589 −*−1,,−*−2 GPLI1223
71055 −3 00002 0 07445 10590TXLSUBLIS,,2 GPLI1224
71056 0 06721 0 07335 10591 PNAME,,−*−1 GPLI1225
71057 0 00000 0 06720 10592 −*−1 SUBLIS GPLI1226
71060 0 00000 0 06717 10593 −*−1 GPLI1227
71061 626422433162 10594BCD1 SUBLIS
10595 *
71062 0 06715 0 77777 10596)115 −1,,−*−1 GPLI1230
71063 0 06714 0 06733 10597 SUBR,,−*−1 GPLI1231
71064 0 06712 0 06713 10598 −*−1,,−*−2 GPLI1232
71065 −3 00003 0 07367 10599TXLSUBST,,3 GPLI1233
71066 0 06711 0 07335 10600 PNAME,,−*−1 GPLI1234
71067 0 00000 0 06710 10601 −*−1 SUBST GPLI1235
71070 0 00000 0 06707 10602 −*−1 GPLI1236
71071 −226422626377 10603OCT626422626377 GPLI1237
10604 *
71072 0 06705 0 77777 10605)SYM −1,,−*−1 GPLI1239
71073 0 06704 0 07335 10606 PNAME,,−*−1 GPLI1240
71074 0 00000 0 06703 10607 −*−1 SYM GPLI1241
71075 0 00000 0 06702 10608 −*−1 GPLI1242
71076 −227044777777 10609OCT627044777777 GPLI1243
10610 *
71077 0 06700 0 77777 10611)PJ23 −1,,−*−1 GPLI1245
71100 0 06677 0 06733 10612 SUBR,,−*−1 GPLI1246
71101 0 06675 0 06676 10613 −*−1,,−*−2 GPLI1247
71102 −3 00000 0 05214 10614TXLTERPRI,,0 GPLI1248
71103 0 06674 0 07335 10615 PNAME,,−*−1 GPLI1249
71104 0 00000 0 06673 10616 −*−1 TERPRI GPLI1250
71105 0 00000 0 06672 10617 −*−1 GPLI1251
71106 632551475131 10618BCD1 TERPRI
10619 *
71107 0 06670 0 77777 10620)122 −1,,−*−1 GPLI1254
71110 0 06667 0 06733 10621 SUBR,,−*−1 GPLI1255
71111 0 06665 0 06666 10622 −*−1,,−*−2 GPLI1256
71112 −3 00000 0 01521 10623TXL$TIME,,0 GPLI1257
71113 0 06664 0 07335 10624 PNAME,,−*−1 GPLI1258
71114 0 00000 0 06663 10625 −*−1 TEMPUS-FUGIT GPLI1259
71115 0 06662 0 06661 10626 −*−2,,−*−1 GPLI1260
71116 0 00000 0 06660 10627 −*−2 GPLI1261
71117 632544476462 10628BCI2,TEMPUS-FUGIT
71120 402664273163 10629
10630 *
71121 0 06656 0 77777 10631)124 −1,,−*−1 GPLI1264
71122 0 06655 0 10103 10632 $FSUBR,,−*−1 GPLI1265
71123 0 06653 0 06654 10633 −*−1,,−*−2 GPLI1266
71124 −3 00002 0 14134 10634TXLMULT,,2 GPLI1267
71125 0 06652 0 07335 10635 $PNAME,,−*−1 GPLI1268
71126 0 00000 0 06651 10636 −*−1 TIMES GPLI1270
71127 0 00000 0 06650 10637 −*−1 GPLI1271
71130 −233144256277 10638OCT633144256277 GPLI1272
10639 *
71131 0 06646 0 77777 10640)213 −1,,−*−1 GPLI1274
71132 0 06645 0 07335 10641 $PNAME,,−*−1 GPLI1275
71133 0 00000 0 06644 10642 −*−1 TRACE GPLI1276
71134 0 00000 0 06643 10643 −*−1 GPLI1277
71135 635121232577 10644VFDH30/TRACE,O6/77
10645 *
71136 0 06641 0 77777 10646)127 −1,,−*−1 GPLI1280
71137 0 06640 0 06733 10647 SUBR,,−*−1 GPLI1281
71140 0 06636 0 06637 10648 −*−1,,−*−2 GPLI1282
71141 −3 00000 0 04101 10649TXLUNCONT,,0 GPLI1283
71142 0 06635 0 07335 10650 PNAME,,−*−1 GPLI1284
71143 0 00000 0 06634 10651 −*−1 UNCOUNT GPLI1285
71144 0 06633 0 06632 10652 −*−2,,−*−1 GPLI1286
71145 0 00000 0 06631 10653 −*−2 GPLI1287
71146 644523466445 10654BCD1 UNCOUN
71147 −237777777777 10655OCT637777777777 GPLI1289
10656 *
71150 0 06627 0 77777 10657)PJ31 −1,,−*−1 GPLI1291
71151 0 06626 0 06733 10658 SUBR,,−*−1 GPLI1292
71152 0 06624 0 06625 10659 −*−1,,−*−2 GPLI1293
71153 −3 00001 0 12365 10660TXLUNPACK,,1 GPLI1294
71154 0 06623 0 07335 10661 PNAME,,−*−1 GPLI1295
71155 0 00000 0 06622 10662 −*−1 UNPACK GPLI1296
71156 0 00000 0 06621 10663 −*−1 GPLI1297
71157 644547212342 10664BCI1,UNPACK
10665 *
71160 0 06617 0 77777 10666II10 −1,,−*−1 GPLI1300
71161 0 06616 0 06733 10667 $SUBR,,−*−1 GPLI1301
71162 0 06614 0 06615 10668 −*−1,,−*−2 GPLI1302
71163 −3 00001 0 14507 10669TXLZEROP,,1 GPLI1303
71164 0 06613 0 07335 10670 $PNAME,,−*−1 GPLI1304
71165 0 00000 0 06612 10671 −*−1 ZEROP GPLI1305
71166 0 00000 0 06611 10672 −*−1 GPLI1306
71167 −312551464777 10673OCT712551464777 GPLI1307
10674 *
10675
10676EJECT
10677 *
10678 *
10679
10680EJECT
10681 * PROPERTY LISTS FOR ALPHABETIC OBJECTS
10682 *
71170 0 00000 0 00000 10683HH00 0 GPLA0000
10684 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71171 0 00000 0 00001 10685HH01 1 GPLA0002
10686 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71172 0 00000 0 00002 10687HH02 2 GPLA0004
10688 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71173 0 00000 0 00003 10689HH03 3 GPLA0006
10690 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71174 0 00000 0 00004 10691HH04 4 GPLA0008
10692 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71175 0 00000 0 00005 10693HH05 5 GPLA0010
10694 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71176 0 00000 0 00006 10695HH06 6 GPLA0012
10696 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71177 0 00000 0 00007 10697HH07 7 GPLA0014
10698 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71200 +000000000010 10699HH10OCT10 GPLA0016
10700 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71201 +000000000011 10701HH11OCT11 GPLA0018
10702 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
10703 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71202 0 06575 0 07335 10704HH12 PNAME,,−*−1 END OF FILE GPLA0021
71203 0 06572 0 06574 10705 −*−1,,−*−3 $EOF$ GPLA0022
71204 0 00000 0 06573 10706 −*−1 GPLA0023
71205 −132546265377 10707OCT532546265377 GPLA0024
71206 0 06571 0 10742 10708 APVAL1,,−*−1 GPLA0025
71207 0 00000 0 06570 10709 −*−1 GPLA0026
71210 0 00000 0 06141 10710 H12 GPLA0027
10711 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71211 0 06566 0 07335 10712HH13 PNAME,,−*−1 = GPLA0029
71212 0 00000 0 06565 10713 −*−1 = GPLA0030
71213 0 00000 0 06564 10714 −*−1 GPLA0031
71214 +137777777777 10715OCT137777777777 GPLA0032
10716 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71215 0 06562 0 07335 10717HH14 PNAME,,−*−1 8-4 MINUS GPLA0034
71216 0 00000 0 06561 10718 −*−1 GPLA0035
71217 0 00000 0 06560 10719 −*−1 GPLA0036
71220 +147777777777 10720OCT147777777777 GPLA0037
10721 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71221 0 06556 0 07335 10722HH15 PNAME,,−*−1 ILLEGAL GPLA0039
71222 0 00000 0 06555 10723 −*−1 $IL15$ GPLA0040
71223 0 00000 0 06554 10724 −*−1 GPLA0041
71224 533143010553 10725BCD1 $IL15$
10726 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71225 0 06552 0 07335 10727HH16 PNAME,,−*−1 ILLEGAL GPLA0044
71226 0 00000 0 06551 10728 −*−1 $IL16$ GPLA0045
71227 0 00000 0 06550 10729 −*−1 GPLA0046
71230 533143010653 10730BCD1 $IL16$
10731 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71231 0 06546 0 07335 10732HH17 PNAME,,−*−1 ILLEGAL GPLA0049
71232 0 00000 0 06545 10733 −*−1 $IL17$ GPLA0050
71233 0 00000 0 06544 10734 −*−1 GPLA0051
71234 533143010753 10735BCD1 $IL17$
10736 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71235 0 06542 0 07335 10737HH20 PNAME,,−*−1 + GPLA0054
71236 0 00000 0 06541 10738 −*−1 + GPLA0055
71237 0 00000 0 06540 10739 −*−1 GPLA0056
71240 +207777777777 10740OCT207777777777 GPLA0057
10741 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71241 0 06536 0 07335 10742HH21 PNAME,,−*−1 A GPLA0059
71242 0 00000 0 06535 10743 −*−1 A GPLA0060
71243 0 00000 0 06534 10744 −*−1 GPLA0061
71244 +217777777777 10745OCT217777777777 GPLA0062
10746 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71245 0 06532 0 07335 10747HH22 PNAME,,−*−1 B GPLA0064
71246 0 00000 0 06531 10748 −*−1 B GPLA0065
71247 0 00000 0 06530 10749 −*−1 GPLA0066
71250 +227777777777 10750OCT227777777777 GPLA0067
10751 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71251 0 06526 0 07335 10752HH23 PNAME,,−*−1 C GPLA0069
71252 0 00000 0 06525 10753 −*−1 C GPLA0070
71253 0 00000 0 06524 10754 −*−1 GPLA0071
71254 +237777777777 10755OCT237777777777 GPLA0072
10756 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71255 0 06522 0 07335 10757HH24 PNAME,,−*−1 D GPLA0074
71256 0 00000 0 06521 10758 −*−1 D GPLA0075
71257 0 00000 0 06520 10759 −*−1 GPLA0076
71260 +247777777777 10760OCT247777777777 GPLA0077
10761 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71261 0 06516 0 07335 10762HH25 PNAME,,−*−1 E GPLA0079
71262 0 00000 0 06515 10763 −*−1 E GPLA0080
71263 0 00000 0 06514 10764 −*−1 GPLA0081
71264 +257777777777 10765OCT257777777777 GPLA0082
10766 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71265 0 06512 0 77777 10767HH26 −1,,−*−1 F GPLA0084
71266 0 06511 0 10742 10768 APVAL,,−*−1 GPLA0085
71267 0 06507 0 06510 10769 −*−1,,−*−2 F GPLA0086
71270 0 00000 0 00000 10770 0 GPLA0087
71271 0 06506 0 07335 10771 PNAME,,−*−1 GPLA0088
71272 0 00000 0 06505 10772PZE−*−1 GPLA0089
71273 0 00000 0 06504 10773PZE−*−1 GPLA0090
71274 +267777777777 10774OCT267777777777 GPLA0091
10775 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71275 0 06502 0 07335 10776HH27 PNAME,,−*−1 G GPLA0093
71276 0 00000 0 06501 10777 −*−1 G GPLA0094
71277 0 00000 0 06500 10778 −*−1 GPLA0095
71300 +277777777777 10779OCT277777777777 GPLA0096
10780 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71301 0 06476 0 07335 10781HH30 PNAME,,−*−1 H GPLA0098
71302 0 00000 0 06475 10782 −*−1 H GPLA0099
71303 0 00000 0 06474 10783 −*−1 GPLA0100
71304 +307777777777 10784OCT307777777777 GPLA0101
10785 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71305 0 06472 0 07335 10786HH31 PNAME,,−*−1 I GPLA0103
71306 0 00000 0 06471 10787 −*−1 I GPLA0104
71307 0 00000 0 06470 10788 −*−1 GPLA0105
71310 +317777777777 10789OCT317777777777 GPLA0106
10790 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71311 0 06466 0 07335 10791HH32 PNAME,,−*−1 +0 GPLA0108
71312 0 00000 0 06465 10792 −*−1 $IL32$ GPLA0109
71313 0 00000 0 06464 10793 −*−1 GPLA0110
71314 533143030253 10794BCD1 $IL32$
10795 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71315 0 06462 0 07335 10796HH33 PNAME,,−*−1 . GPLA0113
71316 0 00000 0 06461 10797 −*−1 . GPLA0114
71317 0 00000 0 06460 10798 −*−1 GPLA0115
71320 +337777777777 10799OCT337777777777 GPLA0116
10800 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71321 0 06456 0 07335 10801HH34 PNAME,,−*−1 ) GPLA0118
71322 0 00000 0 06455 10802 −*−1 ) GPLA0119
71323 0 00000 0 06454 10803 −*−1 GPLA0120
71324 +347777777777 10804OCT347777777777 GPLA0121
10805 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71325 0 06452 0 07335 10806HH35 PNAME,,−*−1 ILLEGAL GPLA0123
71326 0 00000 0 06451 10807 −*−1 $IL35$ GPLA0124
71327 0 00000 0 06450 10808 −*−1 GPLA0125
71330 533143030553 10809BCD1 $IL35$
10810 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71331 0 06446 0 07335 10811HH36 PNAME,,−*−1 ILLEGAL GPLA0128
71332 0 00000 0 06445 10812 −*−1 $IL36$ GPLA0129
71333 0 00000 0 06444 10813 −*−1 GPLA0130
71334 533143030653 10814BCD1 $IL36$
10815 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71335 0 06442 0 07335 10816HH37 PNAME,,−*−1 ILLEGAL GPLA0133
71336 0 00000 0 06441 10817 −*−1 $IL37$ GPLA0134
71337 0 00000 0 06440 10818 −*−1 GPLA0135
71340 533143030753 10819BCD1 $IL37$
10820 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71341 0 06436 0 07335 10821HH40 PNAME,,−*−1 11 MINUS GPLA0138
71342 0 00000 0 06435 10822 −*−1 - GPLA0139
71343 0 00000 0 06434 10823 −*−1 GPLA0140
71344 −007777777777 10824OCT407777777777 GPLA0141
10825 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71345 0 06432 0 07335 10826HH41 PNAME,,−*−1 J GPLA0143
71346 0 00000 0 06431 10827 −*−1 J GPLA0144
71347 0 00000 0 06430 10828 −*−1 GPLA0145
71350 −017777777777 10829OCT417777777777 GPLA0146
10830 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71351 0 06426 0 07335 10831HH42 PNAME,,−*−1 K GPLA0148
71352 0 00000 0 06425 10832 −*−1 K GPLA0149
71353 0 00000 0 06424 10833 −*−1 GPLA0150
71354 −027777777777 10834OCT427777777777 GPLA0151
10835 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71355 0 06422 0 07335 10836HH43 PNAME,,−*−1 L GPLA0153
71356 0 00000 0 06421 10837 −*−1 L GPLA0154
71357 0 00000 0 06420 10838 −*−1 GPLA0155
71360 −037777777777 10839OCT437777777777 GPLA0156
10840 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71361 0 06416 0 07335 10841HH44 PNAME,,−*−1 M GPLA0158
71362 0 00000 0 06415 10842 −*−1 M GPLA0159
71363 0 00000 0 06414 10843 −*−1 GPLA0160
71364 −047777777777 10844OCT447777777777 GPLA0161
10845 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71365 0 06412 0 07335 10846HH45 PNAME,,−*−1 N GPLA0163
71366 0 00000 0 06411 10847 −*−1 N GPLA0164
71367 0 00000 0 06410 10848 −*−1 GPLA0165
71370 −057777777777 10849OCT457777777777 GPLA0166
10850 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71371 0 06406 0 07335 10851HH46 PNAME,,−*−1 O GPLA0168
71372 0 00000 0 06405 10852 −*−1 O GPLA0169
71373 0 00000 0 06404 10853 −*−1 GPLA0170
71374 −067777777777 10854OCT467777777777 GPLA0171
10855 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71375 0 06402 0 07335 10856HH47 PNAME,,−*−1 P GPLA0173
71376 0 00000 0 06401 10857 −*−1 P GPLA0174
71377 0 00000 0 06400 10858 −*−1 GPLA0175
71400 −077777777777 10859OCT477777777777 GPLA0176
10860 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71401 0 06376 0 07335 10861HH50 PNAME,,−*−1 Q GPLA0178
71402 0 00000 0 06375 10862 −*−1 Q GPLA0179
71403 0 00000 0 06374 10863 −*−1 GPLA0180
71404 −107777777777 10864OCT507777777777 GPLA0181
10865 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71405 0 06372 0 07335 10866HH51 PNAME,,−*−1 R GPLA0183
71406 0 00000 0 06371 10867 −*−1 R GPLA0184
71407 0 00000 0 06370 10868 −*−1 GPLA0185
71410 −117777777777 10869OCT517777777777 GPLA0186
10870 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71411 0 06366 0 07335 10871HH52 PNAME,,−*−1 -0 GPLA0188
71412 0 00000 0 06365 10872 −*−1 $IL52$ GPLA0189
71413 0 00000 0 06364 10873 −*−1 GPLA0190
71414 533143050253 10874BCD1 $IL52$
10875 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71415 0 06362 0 07335 10876HH53 PNAME,,−*−1 $ GPLA0193
71416 0 00000 0 06361 10877 −*−1 $ GPLA0194
71417 0 00000 0 06360 10878 −*−1 GPLA0195
71420 −137777777777 10879OCT537777777777 GPLA0196
10880 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71421 0 06356 0 07335 10881HH54 PNAME,,−*−1 * GPLA0198
71422 0 06353 0 06355 10882 −*−1,,−*−3 * GPLA0199
71423 0 00000 0 06354 10883 −*−1 GPLA0200
71424 −147777777777 10884OCT547777777777 GPLA0201
71425 0 06352 0 06706 10885 SYM,,−*−1 GPLA0202
71426 0 00000 0 61272 10886 −C$STAR GPLA0203
10887 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71427 0 06350 0 07335 10888HH55 PNAME,,−*−1 ILLEGAL GPLA0205
71430 0 00000 0 06347 10889 −*−1 $IL55$ GPLA0206
71431 0 00000 0 06346 10890 −*−1 GPLA0207
71432 533143050553 10891BCD1 $IL55$
10892 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71433 0 06344 0 07335 10893HH56 PNAME,,−*−1 ILLEGAL GPLA0210
71434 0 00000 0 06343 10894 −*−1 $IL56$ GPLA0211
71435 0 00000 0 06342 10895 −*−1 GPLA0212
71436 533143050653 10896BCD1 $IL56$
10897 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71437 0 06340 0 07335 10898HH57 PNAME,,−*−1 ILLEGAL GPLA0215
71440 0 00000 0 06337 10899 −*−1 $IL57$ GPLA0216
71441 0 00000 0 06336 10900 −*−1 GPLA0217
71442 533143050753 10901BCD1 $IL57$
10902 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71443 0 06334 0 07335 10903HH60 PNAME,,−*−1 BLANK GPLA0220
71444 0 00000 0 06333 10904 −*−1 GPLA0221
71445 0 00000 0 06332 10905 −*−1 GPLA0222
71446 −207777777777 10906OCT607777777777 GPLA0223
10907 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71447 0 06330 0 07335 10908HH61 PNAME,,−*−1 / GPLA0225
71450 0 00000 0 06327 10909 −*−1 / GPLA0226
71451 0 00000 0 06326 10910 −*−1 GPLA0227
71452 −217777777777 10911OCT617777777777 GPLA0228
10912 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71453 0 06324 0 07335 10913HH62 PNAME,,−*−1 S GPLA0230
71454 0 00000 0 06323 10914 −*−1 S GPLA0231
71455 0 00000 0 06322 10915 −*−1 GPLA0232
71456 −227777777777 10916OCT627777777777 GPLA0233
10917 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71457 0 06320 0 77777 10918HH63 −1,,−*−1 T GPLA0235
71460 0 06317 0 10742 10919 APVAL,,−*−1 GPLA0236
71461 0 06315 0 06316 10920 −*−1,,−*−2 GPLA0237
71462 0 00000 0 00001 10921 1 GPLA0238
71463 0 06314 0 07335 10922 PNAME,,−*−1 GPLA0239
71464 0 00000 0 06313 10923PZE−*−1 GPLA0240
71465 0 00000 0 06312 10924PZE−*−1 GPLA0241
71466 −237777777777 10925OCT637777777777 GPLA0242
10926 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71467 0 06310 0 07335 10927HH64 PNAME,,−*−1 U GPLA0244
71470 0 00000 0 06307 10928 −*−1 U GPLA0245
71471 0 00000 0 06306 10929 −*−1 GPLA0246
71472 −247777777777 10930OCT647777777777 GPLA0247
10931 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71473 0 06304 0 07335 10932HH65 PNAME,,−*−1 V GPLA0249
71474 0 00000 0 06303 10933 −*−1 V GPLA0250
71475 0 00000 0 06302 10934 −*−1 GPLA0251
71476 −257777777777 10935OCT657777777777 GPLA0252
10936 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71477 0 06300 0 07335 10937HH66 PNAME,,−*−1 W GPLA0254
71500 0 00000 0 06277 10938 −*−1 W GPLA0255
71501 0 00000 0 06276 10939 −*−1 GPLA0256
71502 −267777777777 10940OCT667777777777 GPLA0257
10941 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71503 0 06274 0 07335 10942HH67 PNAME,,−*−1 X GPLA0259
71504 0 00000 0 06273 10943 −*−1 X GPLA0260
71505 0 00000 0 06272 10944 −*−1 GPLA0261
71506 −277777777777 10945OCT677777777777 GPLA0262
10946 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71507 0 06270 0 07335 10947HH70 PNAME,,−*−1 Y GPLA0264
71510 0 00000 0 06267 10948 −*−1 Y GPLA0265
71511 0 00000 0 06266 10949 −*−1 GPLA0266
71512 −307777777777 10950OCT707777777777 GPLA0267
10951 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71513 0 06264 0 07335 10952HH71 PNAME,,−*−1 Z GPLA0269
71514 0 00000 0 06263 10953 −*−1 Z GPLA0270
71515 0 00000 0 06262 10954 −*−1 GPLA0271
71516 −317777777777 10955OCT717777777777 GPLA0272
10956 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71517 0 06260 0 07335 10957HH72 PNAME,,−*−1 END OF RECORD GPLA0274
71520 0 06255 0 06257 10958 −*−1,,−*−3 $EOR$ GPLA0275
71521 0 00000 0 06256 10959 −*−1 GPLA0276
10960
71522 −132546515377 10961OCT532546515377 GPLA0277
71523 0 06254 0 10742 10962 APVAL1,,−*−1 GPLA0278
71524 0 00000 0 06253 10963 −*−1 GPLA0279
71525 0 00000 0 06221 10964 H72 GPLA0280
10965 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71526 0 06251 0 07335 10966HH73 PNAME,,−*−1 , GPLA0282
71527 0 00000 0 06250 10967 −*−1 , GPLA0283
71530 0 00000 0 06247 10968 −*−1 GPLA0284
71531 −337777777777 10969OCT737777777777 GPLA0285
10970 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71532 0 06245 0 07335 10971HH74 PNAME,,−*−1 ( GPLA0287
71533 0 00000 0 06244 10972 −*−1 ( GPLA0288
71534 0 00000 0 06243 10973 −*−1 GPLA0289
71535 −347777777777 10974OCT747777777777 GPLA0290
10975 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71536 0 06241 0 07335 10976HH75 PNAME,,−*−1 ILLEGAL GPLA0292
71537 0 00000 0 06240 10977 −*−1 $IL75$ GPLA0293
71540 0 00000 0 06237 10978 −*−1 GPLA0294
71541 533143070553 10979BCD1 $IL75$
10980 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71542 0 06235 0 07335 10981HH76 PNAME,,−*−1 ILLEGAL GPLA0297
71543 0 00000 0 06234 10982 −*−1 $IL76$ GPLA0298
71544 0 00000 0 06233 10983 −*−1 GPLA0299
71545 533143070653 10984BCD1 $IL76$
10985 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
71546 0 06231 0 07335 10986HH77 PNAME,,−*−1 ILLEGAL GPLA0302
71547 0 00000 0 06230 10987 −*−1 $IL77$ GPLA0303
71550 0 00000 0 06227 10988 −*−1 GPLA0304
71551 533143070753 10989BCD1 $IL77$
10990 *
10991 *
71552 0 06232 0 77777 10992)H77 −1,,−HH77 GPLA0308
71553 0 06236 0 77777 10993)H76 −1,,−HH76 GPLA0309
71554 0 06242 0 77777 10994)H75 −1,,−HH75 GPLA0310
71555 0 06246 0 77777 10995)H74 −1,,−HH74 GPLA0311
71556 0 06252 0 77777 10996)H73 −1,,−HH73 GPLA0312
71557 0 06261 0 77777 10997)H72 −1,,−HH72 GPLA0313
71560 0 06265 0 77777 10998)H71 −1,,−HH71 GPLA0314
71561 0 06271 0 77777 10999)H70 −1,,−HH70 GPLA0315
71562 0 06275 0 77777 11000)H67 −1,,−HH67 GPLA0316
71563 0 06301 0 77777 11001)H66 −1,,−HH66 GPLA0317
71564 0 06305 0 77777 11002)H65 −1,,−HH65 GPLA0318
71565 0 06311 0 77777 11003)H64 −1,,−HH64 GPLA0319
71566 0 06321 0 77777 11004)H63 −1,,−HH63 GPLA0320
71567 0 06325 0 77777 11005)H62 −1,,−HH62 GPLA0321
71570 0 06331 0 77777 11006)H61 −1,,−HH61 GPLA0322
71571 0 06335 0 77777 11007)H60 −1,,−HH60 GPLA0323
71572 0 06341 0 77777 11008)H57 −1,,−HH57 GPLA0324
71573 0 06345 0 77777 11009)H56 −1,,−HH56 GPLA0325
71574 0 06351 0 77777 11010)H55 −1,,−HH55 GPLA0326
71575 0 06357 0 77777 11011)H54 −1,,−HH54 GPLA0327
71576 0 06363 0 77777 11012)H53 −1,,−HH53 GPLA0328
71577 0 06367 0 77777 11013)H52 −1,,−HH52 GPLA0329
71600 0 06373 0 77777 11014)H51 −1,,−HH51 GPLA0330
71601 0 06377 0 77777 11015)H50 −1,,−HH50 GPLA0331
71602 0 06403 0 77777 11016)H47 −1,,−HH47 GPLA0332
71603 0 06407 0 77777 11017)H46 −1,,−HH46 GPLA0333
71604 0 06413 0 77777 11018)H45 −1,,−HH45 GPLA0334
71605 0 06417 0 77777 11019)H44 −1,,−HH44 GPLA0335
71606 0 06423 0 77777 11020)H43 −1,,−HH43 GPLA0336
71607 0 06427 0 77777 11021)H42 −1,,−HH42 GPLA0337
71610 0 06433 0 77777 11022)H41 −1,,−HH41 GPLA0338
71611 0 06437 0 77777 11023)H40 −1,,−HH40 GPLA0339
71612 0 06443 0 77777 11024)H37 −1,,−HH37 GPLA0340
71613 0 06447 0 77777 11025)H36 −1,,−HH36 GPLA0341
71614 0 06453 0 77777 11026)H35 −1,,−HH35 GPLA0342
71615 0 06457 0 77777 11027)H34 −1,,−HH34 GPLA0343
71616 0 06463 0 77777 11028)H33 −1,,−HH33 GPLA0344
71617 0 06467 0 77777 11029)H32 −1,,−HH32 GPLA0345
71620 0 06473 0 77777 11030)H31 −1,,−HH31 GPLA0346
71621 0 06477 0 77777 11031)H30 −1,,−HH30 GPLA0347
71622 0 06503 0 77777 11032)H27 −1,,−HH27 GPLA0348
71623 0 06513 0 77777 11033)H26 −1,,−HH26 GPLA0349
71624 0 06517 0 77777 11034)H25 −1,,−HH25 GPLA0350
71625 0 06523 0 77777 11035)H24 −1,,−HH24 GPLA0351
71626 0 06527 0 77777 11036)H23 −1,,−HH23 GPLA0352
71627 0 06533 0 77777 11037)H22 −1,,−HH22 GPLA0353
71630 0 06537 0 77777 11038)H21 −1,,−HH21 GPLA0354
71631 0 06543 0 77777 11039)H20 −1,,−HH20 GPLA0355
71632 0 06547 0 77777 11040)H17 −1,,−HH17 GPLA0356
71633 0 06553 0 77777 11041)H16 −1,,−HH16 GPLA0357
71634 0 06557 0 77777 11042)H15 −1,,−HH15 GPLA0358
71635 0 06563 0 77777 11043)H14 −1,,−HH14 GPLA0359
71636 0 06567 0 77777 11044)H13 −1,,−HH13 GPLA0360
71637 0 06576 0 77777 11045)H12 −1,,−HH12 GPLA0361
71640 0 06577 1 77777 11046)H11 −1,1,−HH11 GPLA0362
71641 0 06600 1 77777 11047)H10 −1,1,−HH10 GPLA0363
71642 0 06601 1 77777 11048)H07 −1,1,−HH07 GPLA0364
71643 0 06602 1 77777 11049)H06 −1,1,−HH06 GPLA0365
71644 0 06603 1 77777 11050)H05 −1,1,−HH05 GPLA0366
71645 0 06604 1 77777 11051)H04 −1,1,−HH04 GPLA0367
71646 0 06605 1 77777 11052)H03 −1,1,−HH03 GPLA0368
71647 0 06606 1 77777 11053)H02 −1,1,−HH02 GPLA0369
71650 0 06607 1 77777 11054)H01 −1,1,−HH01 GPLA0370
71651 0 06610 1 77777 11055)H00 −1,1,−HH00 GPLA0371
71652 11056UPERMLBSS0
11057
11058EJECT
11059EJECT
11060HEAD0
11061 * SYN CARDS CAUSE MANY SYMBOLS TO HAVE O-HEADED EQUIVALENTS
11062 *
06127 11063H00SYN−)H00 GPLA0372
06130 11064H01SYN−)H01 GPLA0373
06131 11065H02SYN−)H02 GPLA0374
06132 11066H03SYN−)H03 GPLA0375
06133 11067H04SYN−)H04 GPLA0376
06134 11068H05SYN−)H05 GPLA0377
06135 11069H06SYN−)H06 GPLA0378
06136 11070H07SYN−)H07 GPLA0379
06137 11071H10SYN−)H10 GPLA0380
06140 11072H11SYN−)H11 GPLA0381
06141 11073H12SYN−)H12 GPLA0382
06142 11074H13SYN−)H13 GPLA0383
06143 11075H14SYN−)H14 GPLA0384
06144 11076H15SYN−)H15 GPLA0385
06145 11077H16SYN−)H16 GPLA0386
06146 11078H17SYN−)H17 GPLA0387
06147 11079H20SYN−)H20 GPLA0388
06150 11080H21SYN−)H21 GPLA0389
06151 11081H22SYN−)H22 GPLA0390
06152 11082H23SYN−)H23 GPLA0391
06153 11083H24SYN−)H24 GPLA0392
06154 11084H25SYN−)H25 GPLA0393
06155 11085H26SYN−)H26 GPLA0394
06156 11086H27SYN−)H27 GPLA0395
06157 11087H30SYN−)H30 GPLA0396
06160 11088H31SYN−)H31 GPLA0397
06161 11089H32SYN−)H32 GPLA0398
06162 11090H33SYN−)H33 GPLA0399
06163 11091H34SYN−)H34 GPLA0400
06164 11092H35SYN−)H35 GPLA0401
06165 11093H36SYN−)H36 GPLA0402
06166 11094H37SYN−)H37 GPLA0403
06167 11095H40SYN−)H40 GPLA0404
06170 11096H41SYN−)H41 GPLA0405
06171 11097H42SYN−)H42 GPLA0406
06172 11098H43SYN−)H43 GPLA0407
06173 11099H44SYN−)H44 GPLA0408
06174 11100H45SYN−)H45 GPLA0409
06175 11101H46SYN−)H46 GPLA0410
06176 11102H47SYN−)H47 GPLA0411
06177 11103H50SYN−)H50 GPLA0412
06200 11104H51SYN−)H51 GPLA0413
06201 11105H52SYN−)H52 GPLA0414
06202 11106H53SYN−)H53 GPLA0415
06203 11107H54SYN−)H54 GPLA0416
06204 11108H55SYN−)H55 GPLA0417
06205 11109H56SYN−)H56 GPLA0418
06206 11110H57SYN−)H57 GPLA0419
06207 11111H60SYN−)H60 GPLA0420
06210 11112H61SYN−)H61 GPLA0421
06211 11113H62SYN−)H62 GPLA0422
06212 11114H63SYN−)H63 GPLA0423
06213 11115H64SYN−)H64 GPLA0424
06214 11116H65SYN−)H65 GPLA0425
06215 11117H66SYN−)H66 GPLA0426
06216 11118H67SYN−)H67 GPLA0427
06217 11119H70SYN−)H70 GPLA0428
06220 11120H71SYN−)H71 GPLA0429
06221 11121H72SYN−)H72 GPLA0430
06222 11122H73SYN−)H73 GPLA0431
06223 11123H74SYN−)H74 GPLA0432
06224 11124H75SYN−)H75 GPLA0433
06225 11125H76SYN−)H76 GPLA0434
06226 11126H77SYN−)H77 GPLA0435
10772 11127ANDSYN−)002
10762 11128F1SYN−)003
10752 11129F18SYN−)004
10742 11130APVALSYN−)005
10742 11131APVAL1SYN−)005
10735 11132ARRAYSYN−II1
10725 11133ATOMSYN−)007
10715 11134F29SYN−)008
06155 11135FSYNH26
06212 11136TSYNH63
10675 11137CARSYN−)011
10665 11138CDRSYN−)012
06222 11139COMMASYNH73
10460 11140CONDSYN−)016
10450 11141CONSNSYN−)017
10323 11142DUMPSYN−DMP0B
10440 11143F12SYN−)019
10430 11144COPYNSYN−)020
10420 11145F35SYN−)021
10261 11146EQSYN−)030
10241 11147F8SYN−)032
10231 11148F21SYN−)034
10177 11149F19SYN−)035
10167 11150EVLISLSYN−)036
10157 11151EXPRSYN−)037
10152 11152F32SYN−)038
10142 11153FEXPRSYN−)040
10135 11154BINSYN−)041
10135 11155FIXSYN−)041
10120 11156FLOATSYN−)042
10103 11157FSUBRSYN−)043
10076 11158FUNARGSYN−)044
10071 11159FUNCTSYN−)045
10057 11160SYMGENSYN−)046
10047 11161CGETSYN−)231
10037 11162GOSYN−)047
10015 11163F16SYN−)052
10005 11164LABELSYN−)054
07775 11165LAMBDASYN−)055
07770 11166LAPSYN−)LAP
07736 11167LISTSYN−)057
07716 11168LOADASYN−)234A
07646 11169PMAPCASYN−)065
07614 11170MAXPSYN−II7
07574 11171MINUSSYN−)070
07604 11172MINPSYN−II8
07544 11173F3SYN−)071
00000 11174NILSYN0
07534 11175NOTSYN−)074
07524 11176NULLSYN−)075
07472 11177OBLBASYN−)079A
07435 11178ORSYN−)079
07415 11179F2SYN−)080
07405 11180PAUSESYN−)234C
07365 11181PLBSYN−)234B
07355 11182PLUSSYN−)081
07335 11183PNAMESYN−)083
07320 11184F4SYN−)087
07300 11185PROGSYN−)089
07260 11186PROPOSYN−)090
07250 11187QUOTESYN−)094
07226 11188F13SYN−)096
07206 11189RCLAMSYN−)234D
07140 11190PRPLCASYN−)100
07130 11191PRPLCDSYN−)101
07150 11192RETATMSYN−)102
07052 11193SASCOSYN−)106
07061 11194SLISTSYN−)LST
07110 11195SPECALSYN−)SPCL
07101 11196SMOVESYN−)MOV
07072 11197SRETURSYN−)RTRN
07042 11198SRCHSYN−)236
07032 11199SETSYN−)107
07022 11200SETQSYN−)108
06772 11201STOPSYN−)111
07002 11202F34SYN−)109
06733 11203SUBRSYN−)113
06726 11204F17SYN−)114
06716 11205F30SYN−)115
06671 11206F27SYN−)122
06706 11207SYMSYN−)SYM
06657 11208TIMESSYN−)124
06647 11209TRACESYN−)213
06642 11210F36SYN−)127
10655 11211CAARSYN−)201
10645 11212CDARSYN−)202
10635 11213CADRSYN−)203
10625 11214CDDRSYN−)204
10615 11215CAAARSYN−)205
10605 11216CAADRSYN−)206
10575 11217CADARSYN−)207
10565 11218CADDRSYN−)208
10555 11219CDAARSYN−)209
10545 11220CDADRSYN−)210
10535 11221CDDARSYN−)211
10525 11222CDDDRSYN−)212
07162 11223REMPPSYN−)250
10410 11224PJ1SYN−)PJ1 0000
11013 11225PJ2SYN−)PJ2 0001
10221 11226PJ4SYN−)PJ4 0003
10251 11227PJ5SYN−)PJ5 0004
10470 11228PJ6SYN−)PJ6 0005
07656 11229PJ7SYN−)PJ7 0006
07120 11230PJ8SYN−)PJ8 0007
07375 11231PJ9SYN−)PJ9 0008
10333 11232PJ10SYN−)PJ10 0009
07345 11233PJ11SYN−)PJ11 0010
10705 11234PJ12SYN−)PJ12 0011
07012 11235PJ14SYN−)PJ14 0013
06765 11236PJ15SYN−)PJ15 0014
10375 11237PJ16SYN−)PJ16 0015
07726 11238PJ17SYN−)PJ17 0016
07445 11239PJ18SYN−)PJ18 0017
10353 11240PJ19SYN−)PJ19 0018
06755 11241PJ21SYN−)PJ21 0020
06701 11242PJ23SYN−)PJ23 0022
07425 11243PJ24SYN−)PJ24 0023
07502 11244PJ25SYN−)PJ25 0024
07554 11245PJ26SYN−)PJ26 0025
10502 11246PJ27SYN−)PJ27 0026
07462 11247PJ28SYN−)PJ28 0027
10313 11248PJ30SYN−)PJ30 0029
06630 11249PJ31SYN−)PJ31 0030
10515 11250PJ32SYN−)PJ32 0031
07330 11251PJ33SYN−)PJ33 0032
10301 11252PJ34SYN−)PJ34 0033
10271 11253PJ35SYN−)PJ35 0034
07676 11254PJ36SYN−)PJ36 0035
07706 11255PJ37SYN−)PJ37 0036
07666 11256PJ38SYN−)PJ38 0037
07310 11257PJ39SYN−)PJ39 0038
10211 11258ERSETOSYN−)PJ41
07760 11259PVW1SYN−PVV1 LEFTSHIFT
07462 11260OCTSYNPJ28
07216 11261RECIPSYN−II18
14401 11262ADD1SYNQ$ADD1
14126 11263ADDPSYNQ$ADDP
15016 11264APP2SYNA$APP2
14663 11265APPLYSYNA$APPLY
10011 11266APROPSYNR$PROP
15230 11267ATOMPSYNR$ATOMP
15212 11268CARPSYNR$CARP
15222 11269CDRPSYNR$CDRP
06370 11270CELLSYNI$CELL
12635 11271CHACTSYNF$CHACT
12201 11272CLEARSYNF$CLEAR
04345 11273COPYSYNR$COPY
07343 11274CP1SYNC$CP1
12634 11275CURCSYNF$CURC
12633 11276CURC1SYNF$CURC1
04111 11277DECONSYNE$DECON
12337 11278DIGITSYNF$DIGIT
15445 11279EQPSYNR$EQP
04461 11280EQUALSYNL$EQUAL
12346 11281EROR1SYNF$EROR1
15454 11282EVALSYNA$EVAL
11283
11310 11284EVALQSYNS$EVALQ
15370 11285EVANDSYNR$EVA8
15154 11286EVCONSYNA$EVCON
15774 11287EVLISSYNA$EVLIS
15416 11288EVORSYNR$EVR8
13530 11289EXPTSYNQ$EXPT
14466 11290FIXPSYNQ$FIXP
00663 11291INPUTSYNB$INPUT
16130 11292INTERSYNR$INTER
15264 11293LABPSYNR$LABP
15250 11294LAMPSYNR$LAMP
12321 11295LITERSYNF$LITER
12662 11296LOGORSYNH$LOGOR
14150 11297MAXSYNQ$MAX
07620 11298MAPSYNMAPCAR
14142 11299MINSYNQ$MIN
12147 11300MKNAMSYNF$MKNAM
12636 11301MKNOSYNF$MKNO
14134 11302MULTSYNQ$MULT
07675 11303NCONCSYNR$NCONC
10150 11304NOTSSYNR$NOTS
15243 11305NULLPSYNR$NULLP
06622 11306NUMBRSYNF$NUMBR
12071 11307NUMOBSYNF$NUMOB
06543 11308NUTRNSYNT$NUTRN
14533 11309ONEPSYNQ$ONEP
10220 11310OVBGNSYNS$OVBGN OVERLORD BEGINNING
12032 11311PACKSYNF$PACK
07562 11312PAIRSYNA$PAIR
13572 11313POWRSYNG$POWR
04620 11314PRIN0SYNT$PRIN0
04703 11315PRIN1SYNT$PRIN1
05110 11316PRIN2SYNT$PRIN2
04604 11317PRINTSYNT$PRINT
10011 11318PROPSYNR$PROP
05341 11319PUN2SYNT$PUN2
05325 11320PUNCHSYNT$PUNCH
06026 11321RDSYNI$RD
05732 11322READSYNI$READ
05757 11323READ1SYNI$READ1
15346 11324SETPSYNR$SETP
15311 11325SETQPSYNR$SETQP
02077 11326SETUPSYNE$SETUP
14430 11327SUB1SYNQ$SUB1
07367 11328SUBSTSYNR$SUBST
14565 11329UNFIXSYNQ$UNFIX
06533 11330VALUESYNI$VALUE
14507 11331ZEROPSYNQ$ZEROP
10042 11332APSSOCSYNSASSOC
11333 * DECK BUTCH REGION AND END
11334HEAD0
11335 *
11336 * BUTCH, A HOME FOR PATCHES
11337 *
71652 0 00000 0 00000 11338BUTCH
05766 11339BUTCHLEQUNILSXX−*+1 LENGTH OF BUTCH REGION
77724 11340TCD
11341 *
11342 * THE FOLLOWNG PRODUCE A ROW BINARY TRASNFER CARD TO CONTIN
11343 *
11344FUL
00000 11345ORG0
00174 11346AAAAAEQUCONTIN
00000 11347BBBBBEQUAAAAA−AAAAA/2*2
00000 11348CCCCCEQUAAAAA/2−AAAAA/4*2
00001 11349DDDDDEQUAAAAA/4−AAAAA/8*2
00001 11350EEEEEEQUAAAAA/8−AAAAA/16*2
00001 11351FFFFFEQUAAAAA/16−AAAAA/32*2
00001 11352GGGGGEQUAAAAA/32−AAAAA/64*2
00001 11353HHHHHEQUAAAAA/64−AAAAA/128*2
00000 11354IIIIIEQUAAAAA/128−AAAAA/256*2
00000 11355JJJJJEQUAAAAA/256−AAAAA/512*2
00000 +000000000000 11356OCT0,0,0,0,0,0,0,0,0
00001 +000000000000 11357
00002 +000000000000 11358
00003 +000000000000 11359
00004 +000000000000 11360
00005 +000000000000 11361
00006 +000000000000 11362
00007 +000000000000 11363
00010 +000000000000 11364
00011 0 00000 0 00001 11365PZEHHHHH+4096*IIIII,,64*JJJJJ
00012 0 00100 0 10001 11366PZEEEEEE+4096*FFFFF,,64*GGGGG
00013 0 00100 0 00000 11367PZEBBBBB+4096*CCCCC,,64*DDDDD
00000 11368ENDENDEND