| 1 $JOB STAGE 1 REBUILD IBMAP $* $* REBUILD IBMAP FROM SOURCE SO WE KNOW WE HAVE CLEAN ASSEMBLER. $* SYSTEM WILL BE GENERATED ON A3. $* $PAUSE PLEASE MOUNT SOURCE TAPE 6 ON UNIT A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $ATTACH A3 $AS SYSCK1 $ATTACH B3 $AS SYSCK2 $REWIND SYSCK1 $REWIND SYSCK2 $REWIND SYSPP1 $EXECUTE UPDATE 1 12/01/64 PAGE 1 | SYMBOLIC UPDATE DATA | 0 | UPDATE 9,10 | 0 SKPFIL 9 0 END 4K833600 DELETED | END 4K833600 INSERTED | 0 $IBSYS INSERTED | 0 ENDFIL 10 | 0 REWIND 10 0 ENDUP | 1 12/01/64 PAGE 2 | SYMBOLIC UPDATE DATA | 0 | $IBSYS LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING | TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS | | 5 A2 0 5 0 0 0 0 0 | 6 B1 2 0 0 0 0 0 0 9 A3 0 2306 0 0 0 0 0 | 10 B3 2308 0 0 0 0 0 0 | 0 20 LINES OUTPUT. | 1 | $REWIND SYSPP1 $PAUSE PLEASE MOUNT A TAPE FOR NEW SYSTEM ON A3 OPER. ACTION PAUSE| 1 ..CONTINUING| 1 $REWIND SYSCK2 $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. | $IBJOB IBMAPV5 NOGO | $IEDIT SYSCK2,SRCH | $IBMAP IBMAPJ 14000,ABSMOD,JOBSYM,()OK,LIST 4I000100 1 IBMAPV IBMAPJ 12/01/64 PAGE 1 | | 0| PCC ON 4I000600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 2 IBSYS COMMUNICATION PHASE 1 - RECORD IBMAPJ | 0| TTL IBSYS COMMUNICATION PHASE 1 - RECORD IBMAPJ 4I000700| TITLE $5$4I000800| LBL MAPJ (6)4I001000 PCC OFF 4I001100| | | | PARAMETERS USED TO DEFINE SYSTEM SYMBOLS $5$4I001310 $5$4I001320| 000100 SYSCOM BOOL 100 IBSYS COMMUNICATION REGION $5$4I001330| 000140 SYUNIT BOOL 140 SYSTEM UNIT FUNCTION(SYSUN1) TABLE$5$4I001340| 000702 IOXCOM BOOL 702 IOEX COMMUNICATION REGION $5$4I001350| 021234 IBJCOM BOOL 21234 IBJOB MONITOR COMMUNICATION REGION$5$4I001360 021347 IOCS BOOL 21347 IBJOB MONITOR COMMUNICATION $5$4I001370| 021412 SUBBGN BOOL 21412 SUBSYS $5$4I001375| $5$4I001380| 21263 KLPNCH EQU PUNCH $5$4I001600| $5$4I007900 SYSUNI DEFINITIONS USED BY IBMAP $5$4I008000| $5$4I008100| 00020 SYSUT1 EQU 16 4I009100| 00022 SYSUT3 EQU 18 4I009300| 00023 SYSUT4 EQU 19 4I009400 1 IBMAPV IBMAPJ 12/01/64 PAGE 3 | IBMAP DEFINITIONS PHASE 1 - RECORD IBMAPJ | 0| | SIZES FOR PROGRAMS AND BUFFERS 4I009800| 00066 COMSZE EQU 54 COMMUNICATION CELLS SIZE (6)4I009900| 00044 CONSZE EQU 36 INTERPHASE CONSTANT SIZE (6)4I010000| 00110 MAPSZE EQU 72 SUPERVISOR SIZE (6)4I010100| 01042 SUBSZE EQU 546 COMMON SUBROUTINES SIZE (6)4I010200 00013 NUMFLS EQU 11 NUMBER OF FILES (6)4I010300| | 00345 BBFSZE EQU 229 BIG BUFFER SIZE 4I010500| 00114 LBFSZE EQU 76 LITTLE BUFFER SIZE 4I010600| 00002 NUMBBF EQU 2 NUMBER OF BIG BUFFERS 4I010700 00022 NUMLBF EQU 18 NUMBER OF LITTLE BUFFERS (6)4I010800| 00720 BBASZE EQU NUMBBF*BBFSZE+2*NUMBBF+2 BIG BUFFER AREA 4I010900| 02576 LBASZE EQU NUMLBF*LBFSZE+2*NUMLBF+2 LITTLE BUFFER AREA 4I011000| | BASIC TABLE SIZES 4I011200 00360 MXPSZ EQU 240 MACRO PARAMETER EXPANSION AREA (6)4I011300| 04030 TBLNTH EQU 2072 HALF DICTIONARY SIZE (6)4I011400| 00100 PDSZE EQU 64 MAX NO NESTED SECTIONS 4I011500| 00200 STLSZ EQU 128 MAX INT TEXT STRING LENGTH 4I011600| 00100 TMPSZ EQU 64 TEMP STORAGE SIZE 4I011700 | PROGRAM ORIGINS 4I011900| 21412 IBMAP EQU SUBSYS PROGRAM ORIGIN 4I012000| 21412 COMORG EQU IBMAP COMMUNICATION ORIGIN 4I012100| 21500 FLBORG EQU COMORG+COMSZE FILE BLOCK ORIGIN 4I012200 21704 CONORG EQU FLBORG+12*NUMFLS INTERPASS CONSTANTS ORIGIN 4I012300| 21750 MAPORG EQU CONORG+CONSZE SUPERVISOR ORIGIN 4I012400| 22060 BIGBUF EQU MAPORG+MAPSZE BIG BUFFER ORIGIN 4I012500| 23000 LILBUF EQU BIGBUF+BBASZE LITTLE BUFFER ORIGIN 4I012600| 25576 SUBORG EQU LILBUF+LBASZE COMMON SUBROUTINES (6)4I012700 | 26640 PONORG EQU SUBORG+SUBSZE PHASE ONE ORIGIN 4I012900| 26640 PTWORG EQU PONORG PHASE TWO ORIGIN 4I013000| | BASIC TABLE LOCATIONS 4I013200| 77017 TBLEND EQU -497 NOMINAL END OF PROGRAM SPACE (6)4I013300| 66740 DDCHN EQU TBLEND-2*TBLNTH+1 (BSS) INTERNAL DICTIONARY 4I013400| 56660 NMCHN EQU DDCHN-2*TBLNTH (BSS) NAME TABLE 4I013500| 52630 HASHT EQU NMCHN-TBLNTH (BSS) CROSS REFERENCE DICT 4I013600 52530 PDLST EQU HASHT-PDSZE (BSS) SECTION PUSH DOWN LIST 4I013700| 52430 TEMP EQU PDLST-TMPSZ (BSS) ERASABLE 4I013800| 52230 2B EQU TEMP-STLSZ (BSS) SUBSTRING STORAGE 4I013900| 52030 LINK EQU 2B-STLSZ (BSS) TEXT STORAGE 4I014000| 52030 PSBFE EQU LINK 4I014200| 45000 PSBF EQU LINK-TBLNTH-512 PSEUDO-OPERATION DICTIONARY (6)4I014300| | 52030 MACBFE EQU LINK (6)4I014320| 46000 MACBF EQU LINK-TBLNTH MACRO SKELETON TABLE (6)4I014330 1 IBMAPV IBMAPJ 12/01/64 PAGE 4 | IBMAP DEFINITIONS PHASE 1 - RECORD IBMAPJ | 0| ERROR SEVERITY CODES 4I014500| 00001 GO EQU 1 TRIVIAL 4I014600 00002 NOGO EQU 2 DEFINITE 4I014700| 00003 NONOGO EQU 3 SERIOUS 4I014800| 00004 NONONO EQU 4 UNRECOVERABLE 4I014900| 00005 KAPUT EQU 5 STOP ASSEMBLY 4I015000| | ERROR MESSAGE CODES 4I015200| 00001 MSS001 EQU 1 4I015300| 00002 MSS002 EQU 2 4I015400| 00003 MSS003 EQU 3 4I015500 00004 MSS004 EQU 4 4I015600| 00005 MSS005 EQU 5 4I015700| 00006 MSS006 EQU 6 4I015800| 00007 MSS007 EQU 7 4I015900| 00010 MSS008 EQU 8 4I016000 00011 MSS009 EQU 9 4I016100| 00012 MSS010 EQU 10 4I016200| 00013 WMS001 EQU 11 4I016300| 00014 WMS002 EQU 12 4I016400| 00015 WMS003 EQU 13 4I016500 00016 WMS004 EQU 14 4I016600| 00017 MSS011 EQU 15 4I016700| 00020 MSS012 EQU 16 4I016800| 00021 MSS013 EQU 17 4I016900| 00022 MSS014 EQU 18 4I017000 00023 MSS015 EQU 19 4I017100| 00024 MSS016 EQU 20 4I017200| 00025 MSS017 EQU 21 4I017300| 00026 MSS018 EQU 22 4I017400| 00027 MSS019 EQU 23 4I017500 00030 WMS005 EQU 24 4I017600| 00031 WMS006 EQU 25 4I017700| 00032 WMS007 EQU 26 4I017800| 00033 WMS008 EQU 27 4I017900| 00034 RMS001 EQU 28 4I018000 00035 RMS002 EQU 29 4I018100| 00036 RMS003 EQU 30 4I018200| 00037 RMS004 EQU 31 4I018300| 00040 MSS020 EQU 32 4I018400| 00041 MSS021 EQU 33 4I018500 00042 MSS022 EQU 34 4I018600| 00043 MSS023 EQU 35 4I018700| 00044 MSS024 EQU 36 4I018800| 00045 MSS025 EQU 37 4I018900| 00046 MSS026 EQU 38 4I019000 00047 MSS027 EQU 39 4I019100| 00050 MSS028 EQU 40 4I019200| 00051 MSS029 EQU 41 4I019300| 00052 MSS030 EQU 42 4I019400| 00053 MSS031 EQU 43 4I019500 00054 WMS009 EQU 44 4I019600| 00055 WMS010 EQU 45 4I019700| 00056 WMS011 EQU 46 4I019800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 5 | IBMAP DEFINITIONS PHASE 1 - RECORD IBMAPJ 0 00057 MSS032 EQU 47 4I019900| 00060 MSS033 EQU 48 4I020000| 00061 MSS034 EQU 49 4I020100| 00062 WMS012 EQU 50 4I020200| 00063 WMS013 EQU 51 4I020300 00064 WMS014 EQU 52 4I020400| 00065 WMS015 EQU 53 4I020500| 00066 MSS035 EQU 54 4I020600| 00067 MSS036 EQU 55 4I020700| 00070 MSS037 EQU 56 4I020800 00071 MSS038 EQU 57 4I020900| 00072 MSS039 EQU 58 4I021000| 00073 MSS040 EQU 59 4I021100| 00074 RMS010 EQU 60 4I021200| 00075 RMS011 EQU 61 4I021300 00076 RMS012 EQU 62 4I021400| 00077 RMS013 EQU 63 4I021500| 00100 RMS014 EQU 64 4I021600| 00101 RMS015 EQU 65 4I021700| 00102 RMS016 EQU 66 4I021800 00103 RMS017 EQU 67 4I021900| 00104 RMS018 EQU 68 4I022000| 00105 MSS041 EQU 69 4I022100| 00106 MSS042 EQU 70 4I022200| 00107 MSS043 EQU 71 4I022300 00110 MSS044 EQU 72 4I022400| 00111 MSS045 EQU 73 4I022500| 00112 MSS046 EQU 74 4I022600| 00113 MSS047 EQU 75 4I022700| 00114 WMS016 EQU 76 4I022800 00115 WMS017 EQU 77 4I022900| 00116 WMS018 EQU 78 4I023000| 00117 MSS060 EQU 79 (2)4I023100| 00120 WMS019 EQU 80 4I023200| 00121 WMS020 EQU 81 4I023300 00122 WMS021 EQU 82 4I023400| 00123 WMS022 EQU 83 4I023500| 00124 WMS023 EQU 84 4I023600| 00125 MSS048 EQU 85 4I023700| 00126 MSS049 EQU 86 4I023800 00127 RMS025 EQU 87 4I023900| 00130 WMS024 EQU 88 4I024000| 00131 WMS025 EQU 89 4I024100| 00132 WMS026 EQU 90 4I024200| 00133 WMS027 EQU 91 4I024300 00134 WMS028 EQU 92 4I024400| 00135 MSS050 EQU 93 4I024500| 00136 RMS019 EQU 94 4I024600| 00137 MSS051 EQU 95 4I024700| 00140 MSS052 EQU 96 4I024800 00141 MSS053 EQU 97 4I024900| 00142 MSS054 EQU 98 4I025000| 00143 WMS029 EQU 99 4I025100| 00144 WMS030 EQU 100 4I025200| 00145 WMS031 EQU 101 4I025300 00146 WMS032 EQU 102 4I025400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 6 | IBMAP DEFINITIONS PHASE 1 - RECORD IBMAPJ | 0 00147 WMS033 EQU 103 4I025500| 00150 MSS055 EQU 104 4I025600 00151 MSS056 EQU 105 4I025700| 00152 WMS034 EQU 106 4I025800| 00153 RMS030 EQU 107 4I025900| 00154 RMS031 EQU 108 4I026000| 00155 WMS035 EQU 109 4I026100 00156 MSS057 EQU 110 4I026200| 00157 RMS032 EQU 111 4I026300| 00160 WMS036 EQU 112 4I026400| 00161 WMS037 EQU 113 4I026500| 00162 WMS038 EQU 114 4I026600 00163 FMS001 EQU 115 4I026700| 00164 FMS002 EQU 116 4I026800| 00165 FMS003 EQU 117 4I026900| 00166 FMS004 EQU 118 4I027000| 00167 RMS035 EQU 119 4I027100 00170 WMS039 EQU 120 4I027200| 00171 MSS058 EQU 121 4I027300| 00172 MMS001 EQU 122 4I027400| 00173 MSS059 EQU 123 4I027500| 00174 FMS005 EQU 124 4I027600 00175 FMS006 EQU 125 4I027700| 00176 FMS007 EQU 126 4I027800| 00177 WMS040 SYN 127 4I027900| 00200 FMS008 EQU 128 4I028000| 00201 FMS009 EQU 129 4I028100 00202 FMS010 EQU 130 4I028200| 00203 FMS011 EQU 131 4I028300| 00204 FMS012 EQU 132 4I028400| 00205 FMS014 EQU 133 $4$4I028500| 00206 FMS013 EQU 134 4I028600 1 IBMAPV IBMAPJ 12/01/64 PAGE 7 | SYSTEM INITIALIZATION PHASE 1 - RECORD IBMAPJ | 0| TAPE RECORD IDENTIFICATION 4I028800| 21235 ORG SYSFAZ 4I028900 0BINARY CARD ID. MAPJ0000| 21235 312244214741 BCI 1,IBMAPJ 4I029000| | TRANSFER POINT 4I029200| 21253 ORG SSTRA $5$4I029300 0BINARY CARD ID. MAPJ0001| 21253 0020 00 0 66740 TRA IBMBEG 4I029400| | KAPUT RETURN 4I029600| 21245 ORG .JKAPU $5$4I029700 0BINARY CARD ID. MAPJ0002| 21245 0021 00 0 22023 TTR KPOUT+2 4I029800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 8 | COMMUNICATION CELLS PHASE 1 - RECORD IBMAPJ | 0 | | 21412 ORG COMORG 4I030100| 0BINARY CARD ID. MAPJ0003| 21412 000000000000 LINKER LDIR LINKAGE DIRECTOR $5$4I030300 21413 312244214741 | 21414 0074 00 4 33420 PLNRF TSX PLREF,4 PLACE LINE NUMBER REFERENCE (6)4I030400| 21415 0 00000 0 00000 SWSPEC PZE 0 SPECIAL CHECKOUT SWITCH 4I030800| 21416 0 00000 0 00000 SWBUFF PZE 0 BUFFER PRINT SWITCH 4I030900| 21417 0 00000 0 00000 CTNODK PZE ** NO DECK SWITCH 4I031000 21420 0 00000 0 00000 CTLIST PZE ** NO LIST SWITCH 4I031100| 21421 0 00000 0 00000 CTCKMD PZE 0 DUMP CARDS CHECKOUT SWITCH 4I031200| 21422 0 00000 0 00000 CTNOGO PZE 0 NO PUNCH , NO LIST, NO RUN KAPUT 4I031300| 21423 0 00000 0 00000 SWCPIN PZE 0 COMPILER INPUT SWITCH 4I031400| 21424 0 00000 0 00000 SWC94 PZE 0 7094 MODE SWITCH 4I031500 21425 0 00000 0 00000 SWMOD PZE 0 SYSMOD SWITCH $4$4I031600| 21426 0 00000 0 00000 SWABS PZE 0 ABSOLUTE ASSEMBLY SWITCH 4I031700| * SET SWREF TO MINUS ZERO FOR LINE NUMBER REF + PRINT (6)4I031710| 21427 0 00000 0 00000 SWREF PZE 0 DICT REFERENCE SWITCH 4I031800| 21430 0 00000 0 00000 SWDBG PZE 0 DEBUG DICTIONARY SWITCH $4$4I031900 21431 0 00000 0 03720 SWCCT PZE 2000 ESTIMATED CARD COUNT 4I032000| 21432 0 00000 0 00000 SWRELD ** DICTIONARY MARKING SWITCH (6)4I032100| 21433 0 00000 0 00000 SDDICT PZE 0 SHORT DEBUG SWITCH $4$4I032200| 21434 0 00000 0 00000 DDICT PZE 0 DEBUG SWITCH (STANDARD) $4$4I032300| 21435 606060606060 JBNAME BCI 1, JOB NAME 4I032400 21436 0 00000 0 21436 M94SL2 PZE * EVEN SWITCH, IF =0 THEN CDICT ENTRY 4I032500| | 21437 0 00000 0 66740 ENAC PZE DDCHN CURRENT LOCATION IN INT DICT 4I032700| 0BINARY CARD ID. MAPJ0004| 21440 606060600000 CDSEQ BCI 2, 0000 CURRENT CARD SEQ NO (BCD) 4I032800 21442 0 00000 0 00004 CDDIG PZE 4 NUMERIC COUNT FOR SEQ 4I032900| 21443 570000000000 BLINK VFD O6/57,30/0 SENTENCE NUMBER 4I033000| 21444 0 00000 0 00000 CTLCCT PZE ** NO CONTRL FILE ENTRIES 4I033100| 21445 0 00000 0 00000 CPLB PZE 0 NUMBER ENTRIES IN CPOOL 4I033200| 21446 030000000000 FLCCT VFD 6/3,30/0 LATEST FILE NUMBER 4I033300 21447 0 00000 0 00000 GTPRA PZE ** LOCATION CURRENT INPUT RECORD 4I033400| 21450 0 00000 0 00005 SWERR PZE KAPUT HIGHEST ALLOWABLE ERROR CODE 4I033500| | 21451 0 00000 0 00000 FLOC PZE **,,** L(BLANK.LOC.CTR),,L(LAST.LOC.CTR) 4I033700| 21452 0 00000 0 00000 SLOC PZE **,,** L(11.LOC.CTR),,L(CURRENT.LOC.CTR) 4I033800 21453 0 00000 0 00000 LOCC PZE ,,** CURRENT SEPARATION COUNT 4I033900| | 21454 0 00000 0 00000 SWLNKG PZE 0 LINKAGE DIRECTOR SWITCH 4I034100| 21455 0 00000 0 00000 PZE **,,** AND LOCATION 4I034200| 21456 0 00000 0 00000 KLPRNT PZE 0 KILL RPINT SWITCH 4I034400| | 21457 0 00000 0 00000 BGDICT PZE ** ID LOC OF FIRST CDICT ENTRY 4I034600| 21460 0 00000 0 00000 CMPLX PZE **,,** NO.CDICT.ENTRIES,,NO.BITS.SHORT.COMPL4I034700| 21461 0 00000 0 00000 NAME PZE ** CURRENT LOC FIELD OF CARD (BCD) 4I034900| 21462 0 00000 0 00000 OPER PZE ** CURRENT OP FIELD OF CARD (BCD) 4I035000| 21463 0 00000 0 00000 PZE ** (OP. FIELD SPILL) 4I035100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 9 | COMMUNICATION CELLS PHASE 1 - RECORD IBMAPJ 0 | 21464 0 00000 0 00000 RCPOOL PZE **,,** CPOOL LOCATOR 4I035300| 21465 0 00000 0 00000 RDPOOL PZE LITERAL POOL CHAIN WORD $5$4I035301| | 0BINARY CARD ID. MAPJ0005 21466 570000000000 PBLINK VFD O6/57,30/** PENDING SENTENCE NUMBER (6)4I035500| | 21467 0 00000 0 52531 PDLOC PZE PDLST+1 PUSH DOWN LIST POINTER 4I035700| 21470 050000000000 DPQL VFD 6/5,15/**,15/** UNIVERSAL QUALIFICATION SECTION 4I035800| 21471 0 00000 0 00000 SWSUNI PZE 0 REEL SWITCH FLAG 4I036000| * NONZERO INDICATES 3 INSTRUCTIONS PER LINE 4I036100| * CONTROL GROUP WILL BE OMITTED 4I036200| 21472 0 00000 0 00000 3PER PZE ** 4I036300| 21473 0 00000 0 00000 INLMX PZE ** INTERNAL DICT LIMIT TEST $5$4I036310 21474 0 00000 0 32726 OUTNT SKPEND NAME TABLE OR I.D. ERROR TRANSFER (6)4I036320| * SET MPBLSW TO ZERO FOR MACRO PARAMETER CONCATENATION ACROSS ETC'S (6)4I036330| 21475 0 00000 0 21475 MPBLSW * BLANK MACRO PARAMETER SEPARATOR SW(6)4I036340| 21500 BES FLBORG-* SPARE ROOM (6)4I036390| 1 IBMAPV IBMAPJ 12/01/64 PAGE 10 FILE BLOCKS PHASE 1 - RECORD IBMAPJ | 0| | | INTERNAL FILE SPILL AS OUTPUT 4I036800 0BINARY CARD ID. MAPJ0006| 21500 0 00000 4 00023 CTUTO PZE SYSUT4,4 4I036900| 21501 006004100000 VFD O21/0060041,15/0 4I037000| 21502 000000000000 VFD 36/0 4I037100| 21503 000000000000 VFD 36/0 4I037200 21504 400000000000 VFD O3/4,33/0 4I037300| 21505 000000000000 VFD 36/0 4I037400| 21506 000000000000 BCI 3,000000 0001 000 4I037500| 21511 312631432560 BCI 3,IFILE SPILL (6)4I037600| INTERNAL FILE SPILL AS INPUT 4I037800| 21500 CTUTI SYN CTUTO (6)4I037900| | PASS ONE TEXT OUTPUT 4I038800| 21514 0 00000 4 00020 CTWOHO PZE SYSUT1,4 4I038900 21515 005044100000 VFD O21/0050441,15/0 4I039000| 21516 000000000000 VFD 36/0 4I039100| 21517 000000000000 VFD 36/0 4I039200| 21520 400000000000 VFD O3/4,33/0 4I039300| 21521 000000000000 VFD 36/0 4I039400 21522 000000000000 BCI 3,000000 0001 000 4I039500| 21525 632567636026 BCI 3,TEXT FILE ONE (6)4I039600| | ALTERNATE PASS ONE OUTPUT 4I040800| 0BINARY CARD ID. MAPJ0007 21530 0 00000 4 00022 CTWOTW PZE SYSUT3,4 4I040900| 21531 005044100000 VFD O21/0050441,15/0 4I041000| 21532 000000000000 VFD 36/0 4I041100| 21533 000000000000 VFD 36/0 4I041200| 21534 400000000000 VFD 3/4,33/0 4I041300 21535 000000000000 VFD 36/0 4I041400| 21536 000000000000 BCI 3,000000 0001 000 4I041500| 21541 632567636026 BCI 3,TEXT FILE TWO (6)4I041600| | 21544 FLBTPE EQU * END OF EXTERNAL FILE BLOCKS (6)4I041620 | CROSS REFERENCE INTERNAL FILE (6)4I041800| 21544 0 00000 0 21704 CTREFF PZE L(0) (6)4I041900| 21545 000004000000 VFD O21/0000040,15/0 (6)4I042000| 21546 000000000000 VFD 36/0 (6)4I042100 21547 400000000000 VFD O3/4,33/0 (6)4I042200| 21550 400000021704 VFD O3/4,18/0,15/L(0) (6)4I042300| 21551 000000000000 VFD 36/0 (6)4I042400| 21552 0 21544 0 00000 PZE **,,CTREFF (6)4I042500| 21553 4 00000 0 00000 MZE (6)4I042600 0BINARY CARD ID. MAPJ0008| 21554 000000000000 DEC 0,0,0,0 (6)4I042700| | CONTRL CARDS INTERNAL FILE 4I042900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 11 FILE BLOCKS PHASE 1 - RECORD IBMAPJ | 0 21560 0 00000 0 21704 CTCONC PZE L(0) 4I043000| 21561 000004000000 VFD O21/0000040,15/0 4I043100| 21562 000000000000 VFD 36/0 4I043200| 21563 400000000000 VFD O3/4,33/0 4I043300 21564 400000021704 VFD O3/4,18/0,15/L(0) 4I043400| 21565 000000000000 VFD 36/0 4I043500| 21566 0 21560 0 00000 PZE **,,CTCONC 4I043600| 21567 4 00000 0 00000 MZE 0 4I043700| 21570 000000000000 DEC 0,0,0,0 4I043800 | ERROR MESSAGE INTERNAL FILE 4I044000| 21574 0 00000 0 21704 CTERRF PZE L(0) 4I044100| 21575 000004000000 VFD O21/0000040,15/0 4I044200| 21576 000000000000 VFD 36/0 4I044300 21577 400000000000 VFD O3/4,33/0 4I044400| 21600 400000021704 VFD O3/4,18/0,15/L(0) 4I044500| 21601 000000000000 VFD 36/0 4I044600| 0BINARY CARD ID. MAPJ0009| 21602 0 21574 0 00000 PZE **,,CTERRF 4I044700 21603 4 00000 0 00000 MZE 0 4I044800| 21604 000000000000 DEC 0,0,0,0 4I044900| | FILE DICTIONARY FILE 4I045100| 21610 0 00000 0 21704 CTFILC PZE L(0) 4I045200 21611 000004000000 VFD O21/0000040,15/0 4I045300| 21612 000000000000 VFD 36/0 4I045400| 21613 400000000000 VFD O3/4,33/0 4I045500| 21614 400000021704 VFD O3/4,18/0,15/L(0) 4I045600| 21615 000000000000 VFD 36/0 4I045700 21616 0 21610 0 00000 PZE **,,CTFILC 4I045800| 21617 4 00000 0 00000 MZE 0 4I045900| 21620 000000000000 DEC 0,0,0,0 4I046000| PSEUDO-OPERATIONS INTERNAL FILE 4I046100| 21624 0 00000 0 21704 CTPSBF PZE L(0) 4I046200 21625 000004000000 VFD O21/0000040,15/0 4I046300| 21626 000000000000 VFD 36/0 4I046400| 21627 400000000000 VFD O3/4,33/0 4I046500| 0BINARY CARD ID. MAPJ0010| 21630 400000021704 VFD O3/4,18/0,15/L(0) 4I046600 21631 000000000000 VFD 36/0 4I046700| 21632 0 21624 0 00000 PZE **,,CTPSBF 4I046800| 21633 4 00000 0 00000 MZE 0 4I046900| 21634 000000000000 DEC 0,0,0,0 4I047000| CONSTANT POOL FILE 4I047200| 21640 0 00000 0 21704 CPOOLF PZE L(0) 4I047300| 21641 000004000000 VFD O21/0000040,15/0 4I047400| 21642 000000000000 VFD 36/0 4I047500| 21643 400000000000 VFD O3/4,33/0 4I047600 21644 400000021704 VFD O3/4,18/0,15/L(0) 4I047700| 21645 000000000000 VFD 36/0 4I047800| 21646 0 21640 0 00000 PZE **,,CPOOLF 4I047900| 21647 4 00000 0 00000 MZE 0 4I048000| 21650 000000000000 DEC 0,0,0,0 4I048100 1 IBMAPV IBMAPJ 12/01/64 PAGE 12 | FILE BLOCKS PHASE 1 - RECORD IBMAPJ | 0 | DUPLICATE CARDS INTERNAL FILE 4I048300| 21654 0 00000 0 21704 CTDUPF PZE L(0) 4I048400 21655 000004000000 VFD O21/0000040,15/0 4I048500| 0BINARY CARD ID. MAPJ0011| 21656 000000000000 VFD 36/0 4I048600| 21657 400000000000 VFD O3/4,33/0 4I048700| 21660 400000021704 VFD O3/4,18/0,15/L(0) 4I048800 21661 000000000000 VFD 36/0 4I048900| 21662 0 21654 0 00000 PZE **,,CTDUPF 4I049000| 21663 4 00000 0 00000 MZE 0 4I049100| 21664 000000000000 DEC 0,0,0,0 4I049200| $FILE CARDS FILE 4I049400| 21670 0 00000 0 21704 CTDFCF PZE L(0) 4I049500| 21671 000004000000 VFD O21/0000040,15/0 4I049600| 21672 000000000000 VFD 36/0 4I049700| 21673 400000000000 VFD O3/4,33/0 4I049800 21674 400000021704 VFD O3/4,18/0,15/L(0) 4I049900| 21675 000000000000 VFD 36/0 4I050000| 21676 0 21670 0 00000 PZE **,,CTDFCF 4I050100| 21677 4 00000 0 00000 MZE 0 4I050200| 21700 000000000000 DEC 0,0,0,0 4I050300 1 IBMAPV IBMAPJ 12/01/64 PAGE 13 | ASSEMBLER CONSTANTS PHASE 1 - RECORD IBMAPJ | 0| COMMON CONSTANTS 4I050800| 0BINARY CARD ID. MAPJ0012 21704 0 00000 0 00000 L(0) PZE 0 4I050900| 21705 0 00000 0 00001 L(1) PZE 1 4I051000| 21706 0 00000 0 00002 L(2) PZE 2 4I051100| 21707 0 00000 0 00003 L(3) PZE 3 4I051200| 21710 0 00000 0 00004 L(4) PZE 4 4I051300 21711 0 00000 0 00005 L(5) PZE 5 4I051400| 21712 0 00000 0 00006 L(6) PZE 6 4I051500| 21713 0 00000 0 00007 L(7) PZE 7 4I051600| 21714 0 00000 0 00010 L(8) PZE 8 4I051700| 21715 0 00000 0 00011 L(9) PZE 9 4I051800 21716 0 00000 0 00012 L(10) PZE 10 4I051900| 21717 0 00001 0 00000 1DECR PZE ,,1 4I052100| 21720 0 00006 0 00000 6DECR PZE ,,6 4I052200| | ADJECTIVE CODE WORDS 4I052400 21721 100000000000 10WD VFD O6/10,30/0 DECIMAL IMMEDIATE CONSTANT 4I052800| 21722 110000000000 11WD VFD O6/11,30/0 OCTAL IMMEDIATE CONSTANT 4I052900| | COMMON MASKS 4I053500| 21723 000000077777 MSKAD OCT 000000077777 ADDRESS MASK 4I053600 21724 077777000000 MSKDC OCT 077777000000 DECREMENT MASK 4I053700| 21725 000000700000 MSKTG OCT 000000700000 TAG MASK 4I053900| 21726 770000000000 MSKHO OCT 770000000000 HIGH OP CODE MASK 4I054000| 21727 000000000077 MSKLO OCT 000000000077 LOW OP CODE MASK 4I054100| 21730 007700000000 MSKFF OCT 007700000000 F1 F2 AND FILE COUNT MASK 4I054300 21731 007777700000 MSKSP OCT 007777700000 U-ADDRESS MASK 4I054400| | | RESERVE GROUP FOR BIG BUFFER POOL 4I054700| 0BINARY CARD ID. MAPJ0013 21732 7 00002 0 00001 CTLLBL SVN 1,,2 4I054800| 21733 0 00000 0 21514 PZE CTWOHO PASS ONE OUTPUT 4I054900| 21734 0 00000 0 21530 PZE CTWOTW ALTERNATE 4I055100| 21735 CTLLBE SYN * 4I055300| RESERVE GROUP FOR LITTLE BUFFER POOL 4I055500| 21735 6 00000 0 00010 CTLBFL SIX CTINFE-*-1,,0 INTERNAL FILE GROUP 4I055600| 21736 0 00000 0 21544 PZE CTREFF CROSS REFERENCES (6)4I055610| 21737 0 00000 0 21574 PZE CTERRF ERROR 4I055700| 21740 0 00000 0 21560 PZE CTCONC CONTRL CARD 4I055800 21741 0 00000 0 21610 PZE CTFILC FILE CARD 4I055900| 21742 0 00000 0 21624 PZE CTPSBF SPEUDO-OP DICT 4I056000| 21743 0 00000 0 21640 PZE CPOOLF CONSTANT POOL 4I056100| 21744 0 00000 0 21654 PZE CTDUPF DUPLICATE CARDS 4I056200| 21745 0 00000 0 21670 PZE CTDFCF $FILE CARDS FILE 4I056300 21746 CTINFE SYN * 4I056400| 21746 7 00002 0 00001 SVN 1,,2 RESERVE GROUP 4I056500| 21747 0 00000 0 21500 PZE CTUTO INTERNAL FILE SPILL OUTPUT 4I056600| 21750 CTTRIK SYN * 4I056800| 21750 BES MAPORG-* (6)4I056810 1 IBMAPV IBMAPJ 12/01/64 PAGE 14 | ASSEMBLY PROCESS SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0| | 27757 USE P1E PHASE ONE END PROCESSING (6)4I057100 0BINARY CARD ID. MAPJ0014| 27757 0600 00 0 21466 PASX STZ PBLINK RESET ERROR MESSAGE SWITCH (6)4I057200| 27760 0600 00 0 26564 STZ SWLOFN RESET LOC FIELD SWITCH 4I057900| 27761 0074 00 4 21355 TSX CLOSE,4 CLOSE PASS ONE 4I058000| 27762 2 00000 0 21514 REELA PTW CTWOHO OUTPUT (MOD BY SWITCH) 4I058100 27763 0520 00 0 22020 ZET SWISPL TEST IF IFILE SPILL OCCURED $4$4I058200| 27764 0520 00 0 21471 ZET SWSUNI $4$4I058300| 27765 4520 00 0 21423 NZT SWCPIN $4$4I058400| 27766 0020 00 0 27773 TRA MAPIC 4I058500| 27767 0774 00 4 26072 AXT INEOB,4 IF COMPILER INPUT, 4I058600 27770 4634 00 4 26053 SXD INWRO,4 SET SPILL OK 4I058700| 27771 0074 00 4 00704 TSX .NDSEL,4 AND REWIND $5$4I058800| 27772 0 00003 0 21500 PZE CTUTO,,3 SPILL TAPE 4I058900| 27773 0520 00 0 21454 MAPIC ZET SWLNKG IF THERE IS TO BE 4I059000| 27774 0520 00 0 21455 ZET SWLNKG+1 A LINKAGE DIRECTOR, 4I059100 27775 0020 00 0 30002 TRA MAPBA AND IF NO LDIR- 4I059200| 27776 4774 00 2 21455 AXC SWLNKG+1,2 4I059300| 27777 0074 00 4 36320 TSX LCHNE,4 CHAIN LDIR CELL RO 4I059400| 30000 0774 00 4 00002 AXT 2,4 CURRENT LCTR, AND 4I059500| 30001 4634 00 4 21453 SXD LOCC,4 SET SEP CT=2 4I059600 30002 0520 00 0 21464 MAPBA ZET RCPOOL WAS LORG ENCOUNTERED $5$4I059700| 30003 0020 00 0 30012 TRA MAPBB YES $5$4I059800| 30004 0500 00 0 21437 CLA ENAC NO, GENERATE POINTER $5$4I059900| 0BINARY CARD ID. MAPJ0015| 30005 0621 00 0 21464 STA RCPOOL TO CPOOL START $5$4I060000 30006 0074 00 4 26607 TSX INDUM,4 AND PUT IN LOCATION $5$4I060100| 30007 0074 00 4 36320 TSX LCHNE,4 COUNTER CHAIN $5$4I060200| 30010 0534 00 4 21437 LXA ENAC,4 COUNT OF LORG CPOOL GOES $5$4I060300| 30011 4634 00 4 21464 SXD RCPOOL,4 INTO THIS ENTRY $5$4I060400| 30012 0074 00 4 26607 MAPBB TSX INDUM,4 FINALLY, CLOSE WITH $5$4I060500 30013 0074 00 4 36320 TSX LCHNE,4 DUMMY ENTRY $5$4I060600| 30014 0534 00 1 21445 LXA CPLB,1 ANY ENTRIES IN $5$4I060700| 30015 7 00000 1 21750 TXL MAP2,1,0 CONSTANT POOL $5$4I060710| 30016 7 07777 1 30021 TXL *+3,1,4095 LESS THAN 4096 ENTRIES $5$4I060720| 30017 0074 00 4 25623 TSX ERPR,4 'MORE THAN 4096 LITERALS $5$4I060730 30020 0 00000 1 00043 PZE MSS023,GO UNDER LORG' $5$4I060740| 30021 4535 00 4 21464 LDC RCPOOL,4 POINTER TO LAST LORG ENTRY $5$4I060750| 30022 4754 00 1 00000 PXD 0,1 $5$4I060760| 30023 4320 00 0 35152 ANA 4095D $5$4I060770| 30024 4602 00 4 00000 ORS 0,4 $5$4I060800 30025 0534 00 1 21464 LXA RCPOOL,1 PLACE LORG $5$4I060830| 30026 4754 00 1 00000 PXD 0,1 ENTRY INTO $5$4I060840| 30027 4534 00 1 21465 LXD RDPOOL,1 RDPOOL CHAIN $5$4I060850| 30030 0622 00 1 00000 STD 0,1 X $5$4I060860| 30031 0020 00 0 21750 TRA MAP2 GO TO READ PHASE TWO (6)4I060870 21750 USE PREVIOUS (6)4I060880| 1 IBMAPV IBMAPJ 12/01/64 PAGE 15 | ASSEMBLY PROCESS SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0| 0BINARY CARD ID. MAPJ0016 520, 21750 0074 00 4 21254 MAP2 CALL ACTION(MAP3) GET SECOND PHASE $5$4I060900| 21754 0774 00 4 25754 AXT PRI.2-1,4 SET FOR FULL PHASE $5$4I061500| 21755 0754 00 4 00000 PXA 0,4 AND LOCATION OF PRINT $4$4I061600| 21756 0441 00 0 21443 MAPEND LDI BLINK 4I061700| 21757 0445 00 0 21731 RIS MSKSP SET BLINK FOR 4I061800 21760 0055 00 077777 SIR 77777 INTERLUDE COUNT 4I061900| 21761 0604 00 0 21443 STI BLINK 4I062000| 21762 0074 00 4 26640 TSX PTWORG,4 DO PHASE TWO 4I062100| | 21763 0500 00 0 21422 CLA CTNOGO 4I062300 21764 0441 00 0 26374 LDI IDTBL2 4I062400| 21765 4056 00 200000 LNT 200000 IF INTERNAL FILE SPILL 4I062500| 21766 0522 00 0 21772 XEC MAPEXX NOT OPEN, EXIT 4I062600| 21767 0074 00 4 21355 TSX CLOSE,4 REWIND 4I063100| 21770 2 00000 0 21500 PTW CTUTO SPILL FILE (6)4I063200 21771 0500 00 0 21422 CLA CTNOGO 4I063300| 21772 0020 00 0 00000 MAPEXX TRA ** $5$4I063400| 21773 442147026060 MAP3 BCI 1,MAP2 $5$4I063410| 1 IBMAPV IBMAPJ 12/01/64 PAGE 16 | ASSEMBLY PROCESS SUPERVISOR PHASE 1 - RECORD IBMAPJ 0| * RETURN HERE IF INTERNAL FILE SPILL ATTEMPTED 4I063600| * TOO SOON FOR COMPILER INPUT 4I063700| | 21774 4520 00 0 21471 KSPILL NZT SWSUNI $4$4I063900 21775 0020 00 0 22003 TRA SSPILL $4$4I064000| 0BINARY CARD ID. MAPJ0017| 21776 0074 00 4 25744 TSX PRINT,4 'IFILE SPILL OUTPUT TAPE $4$4I064100| 21777 0020 00 0 22021 TRA KPOUT $4$4I064200| 22000 0 00000 0 00002 PZE 2 NOT AVAILABLE. 4I064300 22001 2 00007 0 22037 PTW KSP.1,,7 ASSEMBLY DISCONTINUED. 4I064400| 22002 0 00004 0 22046 PZE KSP.2,,4 4I064500| 22003 0500 00 0 22017 SSPILL CLA NOSPIL KILL SWITCHING $4$4I064600| 22004 4625 00 0 22020 STL SWISPL SET SPILL SWITCH $4$4I064700| 22005 0601 00 0 34775 STO FPCGZ-1 $4$4I064800 22006 0500 00 0 21530 CLA CTWOTW INTER-CHANGE $4$4I064900| 22007 0601 00 0 21500 STO CTUTO FILE BLOCK CONTROL $4$4I065000| 22010 0500 00 0 21536 CLA CTWOTW+6 MOVE CONTROL WORDS (6)4I065100| 22011 0601 00 0 21506 STO CTUTO+6 TO SPILL BLOCK (6)4I065200| 22012 0500 00 0 21537 CLA CTWOTW+7 (6)4I065300 22013 0601 00 0 21507 STO CTUTO+7 (6)4I065400| 22014 0774 00 4 26072 AXT INEOB,4 RESTORE EXIT $4$4I065900| 22015 4634 00 4 26053 SXD INWRO,4 $4$4I066000| 22016 0020 00 0 26072 TRA INEOB RETURN TO SPILL $4$4I066100| 22017 0761 00 0 00000 NOSPIL NOP $4$4I066200 22020 0 00000 0 00000 SWISPL PZE ** IFILE SPILL SWITCH $4$4I066300| | * ROUTINE TO HANDLE KAPUT ERRORS 4I066500| | 22021 0520 00 0 21421 KPOUT ZET CTCKMD CHECKOUT MODE 4I066700 22022 5 00000 0 00000 STR YES, DO DUMP 4I066800| 22023 0500 00 0 21450 CLA SWERR SET MAXIMUM 4I066900| 0BINARY CARD ID. MAPJ0018| 22024 0601 00 0 21422 STO CTNOGO NOGO CONDITION 4I067000| 22025 4500 00 0 22036 CAL MPBWD CHECK IF MPB 4I067100 22026 0322 00 0 21413 ERA MPSSN IS IN CORE 4I067200| 22027 0100 00 0 21756 TZE MAPEND YES. MESSAGES ONLY 4I067300| 573, 22030 0074 00 4 21254 MAP4 CALL ACTION(MAP3) IF NOT, CALL IT $5$4I067400| 22034 4754 00 0 00000 ZAC SET FOR MESSAGES ONLY (6)4I067900| 22035 0020 00 0 21756 TRA MAPEND AND EXIT 4I068000 | 22036 312244214742 MPBWD BCI 1,IBMAPK (6)4I068200| 21413 MPSSN SYN LINKER+1 SUBSYSTEM RECORD NAME (6)4I068210| 22037 312631432560 KSP.1 BCI 7,IFILE SPILL OUTPUT TAPE NOT AVAILABLE. 4I068300| 22046 216262254422 KSP.2 BCI 4,ASSEMBLY DISCONTINUED. 4I068400 22052 PATCHS EQU * (6)4I068410| 00006 SPSZ EQU BIGBUF-* AMOUNT OF SPACE LEFT (6)4I068490| 1 IBMAPV IBMAPJ 12/01/64 PAGE 17 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 | 25576 ORG SUBORG (6)4I068700| | COMMUNICATION POINTS FOR PHASE TWO 4I068900| 0BINARY CARD ID. MAPJ0019 25576 0021 00 0 25623 TTR ERPR 4I069000| 25577 0021 00 0 25744 TTR PRINT 4I069100| 25600 0021 00 0 25760 TTR INFIN 4I069200| 25601 0021 00 0 25762 TTR INFOT 4I069300| 25602 0021 00 0 26506 TTR PLNME 4I069500 25603 0021 00 0 26565 TTR INTST 4I069700| 25604 0021 00 0 26607 TTR INDUM 4I069900| 25605 0021 00 0 26433 TTR NTLOCC 4I070100| 25606 0021 00 0 22021 TTR KPOUT $5$4I070110| 25607 770000000000 77WD VFD O6/77,30/0 DUP NAME BCD LOCATION 4I070200 | TABLE FOR BCD ADDITION 4I075100| 25610 000000025610 WBCD VFD 6/0,30/WBCD 4I075200| 25611 010000025610 VFD 6/1,30/WBCD 4I075300| 25612 020000025610 VFD 6/2,30/WBCD 4I075400 25613 030000025610 VFD 6/3,30/WBCD 4I075500| 25614 040000025610 VFD 6/4,30/WBCD 4I075600| 25615 050000025610 VFD 6/5,30/WBCD 4I075700| 25616 060000025610 VFD 6/6,30/WBCD 4I075800| 25617 070000025610 VFD 6/7,30/WBCD 4I075900 25620 100000025610 VFD 6/8,30/WBCD 4I076000| 25621 110000025610 VFD 6/9,30/WBCD 4I076100| 25622 000000025611 VFD 6/0,30/WBCD+1 4I076200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 18 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ 0| * ERROR MESSAGE PROCESSING ROUTINE. CALLING SEQUENCE- 4I076400| * 4I076500| * TSX ERPR,4 4I076600| * PZE XMSNNN,S,LIST 4I076700 * 4I076800| * XMSNNN IS THE MESSAGE SKELETON NUMBER, AND LIST IS THE 4I076900| * LOCATION OF A SUBSTITUTION LIST FOR THE MESSAGE. S IS 4I077000| * THE SEVERITY CODE TO BE APPLIED TO THIS USAGE 4I077100| * 4I077200 | | 25623 0634 00 4 25711 ERPR SXA ERPX,4 SAVE INDICES 4I077400| 0BINARY CARD ID. MAPJ0020| 25624 0634 00 2 25712 SXA ERPX+1,2 4I077500 25625 0634 00 1 25713 SXA ERPX+2,1 4I077600| 25626 0604 00 0 25740 STI ERIND 4I077700| 25627 4600 00 0 25736 STQ ERQS SAVE MQ AND 4I077800| 25630 0602 00 0 25737 SLW ERACS ACCUMULATOR 4I077900| 25631 0771 00 0 00043 ARS 35 (INCLUDING PQ BITS) 4I078000 25632 0601 00 0 25741 STO ERPQS 4I078100| 25633 0500 00 4 00001 CLA 1,4 4I078200| 25634 0601 00 0 25734 STO BTAG SAVE MESSAGE WORD 4I078300| 25635 0774 00 4 00000 ERPAA AXT **,4 CURRENT BUFFER POSITION 4I078400| 25636 3 00000 4 25640 TXH *+2,4,0 ATTACH BUFFER 4I078500 25637 0074 00 2 25727 TSX ERCT+1,2 FIRST TIME ONLY 4I078600| 25640 4500 00 0 25734 CAL BTAG 4I078700| 25641 4501 00 0 26376 ORA MSKPX 4I078800| 25642 0602 60 0 25700 SLW* ERPD WORD TO FILE. 4I078900| 25643 4737 00 1 00000 PDC 0,1 4I079000 25644 7 00000 1 25656 TXL ERPB,1,0 4I079100| 25645 0622 00 0 25651 STD ERPA 4I079200| 25646 0500 00 1 00000 CLA 0,1 4I079300| 25647 0734 00 1 00000 PAX 0,1 4I079400| 25650 0734 00 2 00000 PAX 0,2 PICK UP COUNT 4I079500 25651 1 00000 2 25652 ERPA TXI *+1,2,** COMPUTE AND STORE 4I079600| 0BINARY CARD ID. MAPJ0021| 25652 1 00001 2 25653 TXI *+1,2,1 LAST ADDRESS, 4I079700| 25653 0634 00 2 25677 SXA ERPC,2 4I079800| 25654 4754 00 1 00000 PXD 0,1 INTO FIRST WORD 4I079900 25655 0622 60 0 25700 STD* ERPD 4I080000| 25656 0074 00 2 25726 ERPB TSX ERCT,2 RECORD WORD 4I080100| 25657 0441 00 0 21466 LDI PBLINK PICK UP INDICATOR 4I080200| 25660 4520 00 0 21466 NZT PBLINK FOR CARD IN 4I080300| 25661 0441 00 0 21443 LDI BLINK QUESTION 4I080400 25662 4057 00 000002 RIL 2 ASSURE PRINTING 4I080500| 25663 4055 00 000001 SIL 1 AND MESSAGE NUMBER 4I080600| 25664 0604 00 0 25742 STI ERTMP 4I080700| 25665 4520 00 0 21466 NZT PBLINK RESET BLINK IF IT 4I080800| 25666 0604 00 0 21443 STI BLINK APPLIES TO THIS CARD 4I080900 25667 4046 00 0 00000 PIA 4I081000| 25670 4130 00 0 00000 XCL 4I081100| 25671 4773 00 0 00022 RQL 18 FILE 4I081200| 25672 4130 00 0 00000 XCL 4I081300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 19 SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 25673 4320 00 0 25743 ANA ERBSK 4I081400| 25674 0602 60 0 25700 SLW* ERPD 4I081500| 25675 0074 00 2 25726 TSX ERCT,2 4I081600| 25676 7 00000 1 25703 TXL ERPE,1,0 OUT IF NO LIST, 4I081700 25677 4500 00 1 00000 ERPC CAL **,1 OTHERWISE 4I081800| 0BINARY CARD ID. MAPJ0022| 25700 0602 00 4 00000 ERPD SLW **,4 PLACE LIST 4I081900| 25701 0074 00 2 25726 TSX ERCT,2 IN BUFFER 4I082000| 25702 2 00001 1 25677 TIX ERPC,1,1 4I082100 25703 0600 60 0 25700 ERPE STZ* ERPD STORE END MARK 4I082200| 25704 0634 00 4 25635 SXA ERPAA,4 SAVE BUFFER POSITION, 4I082300| 25705 4520 00 0 21466 NZT PBLINK IF CORRECTION 4I082400| 25706 0020 00 0 25711 TRA *+3 TO BLINK NEEDED, 4I082500| 25707 0074 00 4 34560 TSX FPCLAG,4 PLACE NEW WORD 4I082600 25710 4 00001 0 25742 MZE ERTMP,,1 INTO TEXT, 4I082700| 25711 0774 00 4 00000 ERPX AXT **,4 AND EXIT 4I082800| 25712 0774 00 2 00000 AXT **,2 4I082900| 25713 0774 00 1 00000 AXT **,1 4I083000| 25714 0441 00 0 25740 LDI ERIND 4I083100 25715 4500 00 0 25734 CAL BTAG TEST FOR KAPUT 4I083200| 25716 0322 00 0 25735 ERA KAPWD 4I083300| 25717 4320 00 0 21725 ANA MSKTG 4I083400| 25720 0100 00 0 22021 TZE KPOUT EXIT IF SO. 4I083500| 25721 0500 00 0 25741 CLA ERPQS OTHERWISE, RESTORE 4I083600 25722 0767 00 0 00043 ALS 35 MQ AND AC. 4I083700| 25723 4501 00 0 25737 ORA ERACS 4I083800| 25724 0560 00 0 25736 LDQ ERQS 4I083900| 25725 0020 00 4 00002 TRA 2,4 NORMAL EXIT 4I084000| 0BINARY CARD ID. MAPJ0023| 25726 2 00001 4 25733 ERCT TIX ERCX,4,1 COUNT WORD- 4I084200| 25727 0074 00 4 25760 TSX INFIN,4 IF BUFFER FULL, 4I084300| 25730 0 00000 0 21574 PZE CTERRF OBTAIN NEXT 4I084400| 25731 0621 00 0 25700 STA ERPD AND SET FOR 4I084500 25732 4734 00 4 00000 PDX 0,4 STORE 4I084600| 25733 0020 00 2 00001 ERCX TRA 1,2 4I084700| * 4I084800| 25734 0 00000 0 00000 BTAG PZE 0,**,0 ERROR CODE STORE 4I084900| 25735 0 00000 5 00000 KAPWD PZE 0,KAPUT,0 LIMIT 4I085000 25736 0 00000 0 00000 ERQS PZE ** STORAGE FOR 4I085100| 25737 0 00000 0 00000 ERACS PZE ** ACCUMULATOR 4I085200| 25740 0 00000 0 00000 ERIND PZE ** INDICATORS 4I085300| 25741 0 00000 0 00000 ERPQS PZE ** AND MQ. 4I085400| 25742 0 00000 0 00000 ERTMP PZE ** ERROR INDICATOR STORAGE 4I085500 25743 077777007001 ERBSK OCT 077777007001 MASK FOR ROTATED BLINK 4I085600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 20 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0| * BASIC PRINTING ROUTINE. TESTS FOR LINE PRINT 4I085800 * CONDITIONS, AND PREPARES CALL TO JOBOU. 4I085900| | | 25744 0520 00 0 21456 PRINT ZET KLPRNT EXIT IF NOT $4$4I086100| 25745 0020 00 4 00001 TRA 1,4 PRINTING $4$4I086200 25746 0754 00 4 00000 PXA 0,4 COMPUTE $4$4I086300| 25747 0402 00 0 25757 SUB PRI.3 LOCATION OF $4$4I086400| 25750 0621 00 0 25754 STA PRI.2-1 LIST $5$4I086500| 714, 25751 0074 00 4 21256 PRI.0 CALL JOBOU(**) GO TO PRINT MESSAGE $5$4I086600| 0BINARY CARD ID. MAPJ0024 25755 0535 00 4 25754 PRI.2 LAC *-1,4 PICK UP RETURN $5$4I087100| 25756 0020 00 4 77777 TRA -1,4 AND EXIT $4$4I087200| | 25757 000000100002 PRI.3 OCT 100002 ADDRESS COMPUTATION CONSTANT $4$4I087400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 21 SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0| * INTERNAL FILE PROCESSING ROUTINES. INPUT IS BY 4I087600| * 4I087700| * TSX INFIN,4 4I087800 * PZE FILE 4I087900| * 4I088000| * AND OUTPUT IS BY 4I088100| * 4I088200| * TSX INFOT,4 4I088300 * P FILE,,EOF 4I088400| * 4I088500| * UPON RETURN FROM EITHER ROUTINE, THE ACCUMULATOR 4I088600| * CONTAINS A WORD OF THE FORM 4I088700| * 4I088800 * PZE A,,CT 4I088900| * 4I089000| * WHERE A IS THE LAST LOCATION +1 OF A BUFFER 4I089100| * HOLDING CT WORDS. FOR THE INFOT ROUTINE, P CONTROLS 4I089200| * THE TYPE OF READOUT. IF 4I089300 * 4I089400| * P=PZE READOUT IS DESTRUCTIVE 4I089500| * P=MZE READOUT IS NON-DESTRUCTIVE 4I089600| * 4I089700| * IN EITHER CASE, EOF IS USED AS THE EXIT 4I089800 * TRANSFER ADDRESS WHEN THERE ARE NO MORE BUFFERS 4I089900| * IN THE FILE 4I090000| | | 25760 4500 00 0 26367 INFIN CAL INWD APPROPRIATE 4I090200 25761 0020 00 0 25766 TRA INFOA SETUP WOTD 4I090300| 25762 4500 00 0 26370 INFOT CAL OTWD1 PICK UP DESTRUCTIVE 4I090400| 25763 0560 00 4 00001 LDQ 1,4 OR NON-DESTRUCTIVE 4I090500| 25764 0162 00 0 25766 TQP *+2 SETUP WORD 4I090600| 25765 4500 00 0 26371 CAL OTWD2 4I090700 25766 0630 00 0 26035 INFOA STP INPN -TYPE OF OPEN 4I090800| 25767 0622 00 0 26005 STD INFTS -TYPE OF TEST 4I090900| 25770 0625 00 0 26023 STT INID -INDICATOR SETTINGS 4I091000| 25771 0621 00 0 26036 STA INFB -PROGRAM BRANCH 4I091100| 25772 0634 00 4 26065 SXA INFX,4 SAVE INDEX 4I091200 25773 0634 00 2 26066 SXA INFX+1,2 REGISTERS 4I091300| 25774 0634 00 1 26067 SXA INFX+2,1 AND 4I091400| 25775 0604 00 0 26373 STI ININD INDICATORS 4I091500| 25776 0500 00 4 00001 CLA 1,4 4I091600| 25777 0737 00 2 00000 PAC 0,2 LOC FILE BLOCK 4I091700 26000 0734 00 1 00000 PAX 0,1 AND FILE NAME 4I091800| 26001 0622 00 0 26372 STD OTEOA 4I091900| | 0BINARY CARD ID. MAPJ0025| 26002 0441 00 2 00007 LDI 7,2 CONTROL WORD 4I092100 26003 4056 00 200000 LNT 200000 4I092200| 26004 0020 00 0 26015 TRA INFAB FILE NOT OPEN 4I092300| 26005 4056 00 100000 INFTS LNT 100000 (LNT) INFIN, (LFT) INFOT 4I092400| 26006 0522 00 0 26036 XEC INFB BRANCH IF, SAME STATUS. 4I092500| 26007 4046 00 0 00000 PIA 4I092600 26010 4320 00 0 26007 ANA *-1 IF OPPOSITE STATUS, 4I092700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 22 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 26011 0630 00 0 26014 STP *+3 CLOSE FILE 4I092800| 26012 0634 00 1 26014 SXA *+2,1 ACCORDING TO 4I092900 26013 0074 00 4 21355 TSX CLOSE,4 RETENTION BIT 4I093000| 26014 0 00000 0 00000 PZE ** 4I093100| 26015 4054 00 100000 INFAB LFT 100000 4I093200| 26016 0020 00 0 26037 TRA INFAD 4I093300| FILE WAS IN WRITE STATUS 4I093500| 26017 0500 00 2 00006 CLA 6,2 SAVE LAST 4I093600| 26020 0621 00 2 00010 STA 8,2 WRITE SEQUENCE 4I093700| 26021 0604 00 2 00012 STI 10,2 SAVE STASH CT AND POSITION $5$4I093800| 26022 4057 00 700000 INFAC RIL 700000 SET NEW $5$4I093900 26023 4055 00 200000 INID SIL 200000 STATUS (MODIFIED) $5$4I094000| 26024 0604 00 2 00007 STI 7,2 SET STASH CT AND TAPE POSITION $5$4I094100| 26025 4054 00 100000 LFT 100000 SET SEQUENCE NUMBER $5$4I094200| 26026 0500 00 2 00011 CLA 9,2 FOR WRITE $5$4I094300| 26027 0621 00 2 00006 STA 6,2 OR READ $5$4I094400 0BINARY CARD ID. MAPJ0026| 26030 0771 00 0 00022 ARS 18 IF READ, RESET UTILITY $5$4I094500| 26031 4054 00 100000 LFT 100000 TAPE POSITION TO $5$4I094600| 26032 0621 00 2 00007 STA 7,2 FORMER VALUE $5$4I094700| 26033 0634 00 1 26035 SXA *+2,1 OPEN FILE $5$4I094800 26034 0074 00 4 21357 TSX OPEN,4 AS DIRECTED $5$4I094900| 26035 0 00000 0 00000 INPN PZE ** $5$4I094910| 26036 0020 00 0 00000 INFB TRA ** BRANCH FOR TYPE $5$4I094920| | FILE WAS IN READ STATUS 4I095100 26037 0500 00 2 00010 INFAD CLA 8,2 LAST WRITE SEQUENCE $5$4I095200| 26040 4054 00 400000 LFT 400000 IF READ $5$4I095300| 26041 0020 00 0 26047 TRA INFADD WAS DESTRUCTIVE - $5$4I095400| 26042 0560 00 2 00012 LDQ 10,2 SAVE LAST UTILITY $5$4I095500| 26043 4773 00 0 00022 RQL 18 TAPE POSITION $5$4I095600 26044 4620 00 2 00011 SLQ 9,2 $5$4I095700| 26045 0621 00 2 00011 STA 9,2 SAVE NEW READ SEQ NO $5$4I095800| 26046 0622 00 2 00012 STD 10,2 CLEAR STASH COUNT TO ZERO $5$4I095900| 26047 0441 00 2 00012 INFADD LDI 10,2 LOAD NEW STASH AND UTILITY $5$4I096000| 26050 0020 00 0 26022 TRA INFAC POSITION, AND GO TO SET-UP. $5$4I096100 | | * INFIN HANDLER. 4I096300| * 4I096400| 26051 0634 00 1 26053 INWR SXA INWRO,1 4I096500 26052 0074 00 4 21363 INWRA TSX WRITE,4 -AND GET NEXT BUFFER 4I096600| 26053 0 26072 0 00000 INWRO PZE **,,INEOB 4I096700| 26054 4 00001 6 26062 IOCPN* INFC,,1 4I096800| 26055 3 00113 2 00000 INCNT IORTN **,,LBFSZE-1 4I096900| 0BINARY CARD ID. MAPJ0027 26056 0621 00 0 26055 STA *-1 4I097000| 26057 4500 00 2 00006 CAL 6,2 UPDATE RECORD 4I097100| 26060 0361 00 0 21705 ACL L(1) COUNT AND 4I097200| 26061 0621 00 2 00006 STA 6,2 STORE AS 4I097300| 26062 4774 00 4 00000 INFC AXC **,4 IDENTIFIER WORD 4I097400 26063 0601 00 4 00000 STO 0,4 IN FILE 4I097500| 26064 0500 00 0 26055 INFCC CLA INCNT INFO WORD TO ACCUMULATOR 4I097600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 23 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 26065 0774 00 4 00000 INFX AXT **,4 4I097700 26066 0774 00 2 00000 AXT **,2 4I097800| 26067 0774 00 1 00000 AXT **,1 4I097900| 26070 0441 00 0 26373 LDI ININD 4I098000| 26071 0020 00 4 00002 TRA 2,4 -AND EXIT 4I098100| | * END-OF-BUFFERS TO HERE 4I098300| * 4I098400| 26072 0441 00 0 26374 INEOB LDI IDTBL2 4I098500| 26073 4056 00 100000 LNT 100000 4I098600 26074 0020 00 0 26111 TRA INFF 4I098700| 26075 0534 00 1 26374 LXA IDTBL2,1 IF UTILITY FILE IS IN 4I098800| 26076 4634 00 1 26100 SXD *+2,1 READ STATUS, TEST IF 4I098900| 26077 0534 00 1 26377 LXA IDTBL1,1 FORWARD SPACE IS 4I099000| 26100 6 00000 1 26106 TNX INFE,1,** NECESSARY--IF SO 4I099100 26101 0074 00 4 21361 INFD TSX READ,4 POSITION IN 4I099200| 26102 0 26105 0 21500 PZE CTUTI,,*+3 FRONT OF 4I099300| 26103 0 26105 0 26105 PZE *+2,,*+2 TRAILER BLOCK, 4I099400| 0BINARY CARD ID. MAPJ0028| 26104 3 00000 2 00000 IORTN **,,** 4I099500 26105 2 00001 1 26101 TIX INFD,1,1 4I099600| 26106 0074 00 4 21355 INFE TSX CLOSE,4 AND CLOSE WITHOUT 4I099700| 26107 4 00000 0 21500 MZE CTUTI REWIND 4I099800| 26110 4057 00 377777 RIL 377777 4I099900| 26111 4054 00 200000 INFF LFT 200000 4I100000 26112 0020 00 0 26122 TRA INFG 4I100100| 26113 4055 00 600000 SIL 600000 IF UTILITY TAPE IS 4I100200| 26114 0604 00 0 26374 STI IDTBL2 NOT OPEN, SET STATUS, 4I100300| 26115 0441 00 0 21501 LDI CTUTO+1 (6)4I100310| 26116 4055 00 002000 SIL 002000 SET FOR OUTPUT (6)4I100320 26117 0604 00 0 21501 STI CTUTO+1 (6)4I100330| 26120 0074 00 4 21357 TSX OPEN,4 AND OPEN WITHOUT 4I100400| 26121 4 00000 0 21500 MZE CTUTO REWIND 4I100500| | 26122 0774 00 1 77777 INFG AXT -1,1 4I100700 26123 0500 00 1 26377 CLA IDTBL1,1 PICK UP 4I100800| 26124 4737 00 4 00000 PDC 0,4 STATUS 4I100900| 26125 0441 00 4 00007 LDI 7,4 FOR FILE 4I101000| 26126 4056 00 200000 LNT 200000 GO TO TRY NEXT IF 4I101100| 26127 0020 00 0 26166 TRA INFJ FILE IS NOT OPEN. 4I101200 26130 4054 00 100000 LFT 100000 OR IF IT IS 4I101300| 26131 0020 00 0 26166 TRA INFJ IN READ STATUS 4I101400| 0BINARY CARD ID. MAPJ0029| 26132 4734 00 4 00000 PDX ,4 (6)4I101600| 26133 4634 00 2 26134 SXD *+1,2 ALWAYS TRY 4I101700 26134 1 00000 4 26135 TXI *+1,4,** TO STASH IF 4I101800| 26135 7 00000 4 26147 TXL INFH,4,0 SAME AS ORIGINAL 4I101900| 26136 4737 00 4 00000 PDC 0,4 4I102000| 26137 0500 00 4 00006 CLA 6,4 4I102100| 26140 0402 00 4 00011 SUB 9,4 4I102200 26141 0734 00 4 00000 PAX 0,4 OTHERWISE, 4I102300| 26142 4046 00 0 00000 PIA COMPUTE DIFFERENCE 4I102400| 26143 4634 00 4 26145 SXD *+2,4 BETWEEN RECORD AND STASH 4I102500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 24 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ 0 26144 4737 00 4 00000 PDC 0,4 COUNTS. DO NOT TRY TO STASH 4I102600| 26145 1 00000 4 26146 TXI *+1,4,** UNLESS THERE IS MORE THAN 4I102700| 26146 7 00001 4 26166 TXL INFJ,4,1 ONE BUFFER IN CORE 4I102800| 26147 0500 00 1 26377 INFH CLA IDTBL1,1 OBTAIN FILE NAME FOR 4I102900| 26150 0771 00 0 00022 ARS 18 FILE TO BE 4I103000 26151 0621 00 0 26153 STA *+2 STASHED, AND 4I103100| 26152 0074 00 4 21365 TSX STASH,4 TRY TO STASH 4I103200| 26153 0 21500 0 00000 PZE **,,CTUTO BUFFER. 4I103300| 26154 0 00000 0 26166 PZE INFJ 4I103400| 26155 0535 00 4 26153 LAC *-2,4 4I103500 26156 4500 00 4 00007 CAL 7,4 STASH WORKED. INCREASE 4I103600| 26157 0361 00 0 21717 ACL 1DECR STASH COUNT, UTILITY 4I103700| 0BINARY CARD ID. MAPJ0030| 26160 0622 00 4 00007 STD 7,4 OUTPUT COUNT, AND 4I103800| 26161 0500 00 0 26377 CLA IDTBL1 GO BACK TO WRITE 4I103900 26162 0400 00 0 21705 ADD L(1) INTERNAL FILE 4I104000| 26163 0621 00 0 26377 STA IDTBL1 4I104100| 26164 0621 00 4 00007 STA 7,4 $5$4I104150| 26165 0020 00 0 26052 TRA INWRA 4I104200| 26166 1 77777 1 26167 INFJ TXI *+1,1,-1 NOTHING TO STASH, 4I104400| 26167 3 77767 1 26123 TXH INFG+1,1,IDTBL1-IDTBLE TRY NEXT 4I104500| 26170 0074 02 4 26172 TSX INCIS,4,2 ERROR IF NO STASH AT ALL (6)4I104600| 26171 0020 00 0 22021 TRA KPOUT 4I104700| | * SUBROUTINE TO HANDLE ERROR CONDITIONS. 4I104900| * 4I105000| 26172 0634 00 4 26205 INCIS SXA INCX,4 4I105100| 26173 0500 00 4 00000 CLA 0,4 OBTAIN PROPER 4I105200 26174 4737 00 4 00000 PDC ,4 CODE FROM (6)4I105300| 26175 0500 00 4 16607 CLA INMIS-INTSX,4 TABLE (6)4I105400| 26176 0601 00 0 26203 STO INCA 4I105600| 26177 0074 00 4 25744 TSX PRINT,4 PRINT ERROR 4I105700| 26200 0020 00 0 26205 TRA INCX $4$4I105800 26201 0 00000 0 00003 PZE 3 MESSAGE 4I105900| 26202 3 00024 1 26215 PTH ERM1,1,20 AND EXIT 4I106000| 26203 4 00000 0 00000 INCA MZE ** 4I106100| 26204 3 00000 0 00000 PTH SPACE (6)4I106200| 26205 0774 00 4 00000 INCX AXT **,4 4I106300 0BINARY CARD ID. MAPJ0031| 26206 0020 00 4 00001 TRA 1,4 4I106400| | 26207 4 00000 0 00000 INMIS MZE 0 $4$4I106600| 26210 4 00017 1 26221 MZE ERM2,1,15 PERMANENT CLOSE 4I106700 26211 4 00017 5 26223 MZE ERM2+2,5,15 CANNOT STASH 4I106800| 26212 4 00020 3 26226 MZE ERM2+5,3,16 READOUT SEQUENCE ERROR 4I106900| 26213 4 00002 0 26231 MZE ERM3,,2 UTILITY READ ERROR 4I107000| 26214 4 00002 0 26233 MZE ERM3+2,,2 UTILITY EOF 4I107100| 26215 314563255145 ERM1 BCI 4,INTERNAL FILE ERROR- $4$4I107300| 26221 472551442145 ERM2 BCI 8,PERMANENT CLOSE UNABLE TO STASH READOUT SEQUENCE 4I107400| 26231 646331433163 ERM3 BCI 4,UTILITY READ UTILITY EOF 4I107500| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 25 SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 | * INFOT HANDLER. 4I107700| * 4I107800| 0BINARY CARD ID. MAPJ0032 26235 0634 00 1 26241 INRD SXA INRDI,1 4I107900| 26236 4054 00 077777 LFT 077777 4I108000| 26237 0020 00 0 26260 TRA INRDD TO UTILITY TAPE SEARCH 4I108100| 26240 0074 00 4 21361 INRDA TSX READ,4 LOCATE NEXT 4I108200| 26241 0 26255 0 00000 INRDI PZE **,,OTEOF BUFFER 4I108300 26242 0 26253 0 26255 PZE OTEOF,,EGAD 4I108400| 26243 4 00001 6 26251 IOCPN* INRDC,,1 4I108500| 26244 1 00000 0 26055 TCH INCNT 4I108600| 26245 0621 00 0 26055 STA INCNT 4I108700| 26246 0500 00 2 00006 INRDB CLA 6,2 UPDATE READOUT 4I108800 26247 0400 00 0 21705 ADD L(1) COUNT AND TEST 4I108900| 26250 0621 00 2 00006 STA 6,2 RECORD FOR 4I109000| 26251 0322 00 0 00000 INRDC ERA ** CORRECT SEQUENCE 4I109100| 26252 0100 00 0 26064 TZE INFCC NUMBER (6)4I109200| 26253 0074 03 4 26172 EGAD TSX INCIS,4,3 ERROR IF NOT (6)4I109300 26254 0020 00 0 26246 TRA INRDB 4I109900| | END OF FILE WHILE READING 4I110100| 26255 4535 00 4 26372 OTEOF LDC OTEOA,4 NOR MAL EXIT 4I110200| 26256 7 00000 4 26065 TXL INFX,4,0 IF NO EOF EXIT GIVEN 4I110300 26257 1 00002 4 26066 TXI INFX+1,4,2 4I110400| | | * UTILITY TAPE SEARCH 4I110600| * 4I110700 26260 0441 00 0 26374 INRDD LDI IDTBL2 4I110800| 26261 4054 00 100000 LFT 100000 4I110900| 0BINARY CARD ID. MAPJ0033| 26262 0020 00 0 26303 TRA INFN UTILITY IN READ STATUS 4I111000| 26263 4056 00 200000 LNT 200000 $5$4I111100 26264 0020 00 0 26272 TRA INFM $5$4I111200| 26265 0074 00 4 21363 INFL TSX WRITE,4 IF UTILITY OPEN 4I111600| 26266 0 00000 0 21500 PZE CTUTO FOR WRITE, WRITE 4I111700| 26267 3 00003 0 26366 IORT RECMK,,3 TRAILER RECORD, 4I111800| 26270 0074 00 4 21355 TSX CLOSE,4 AND CLOSE 4I111900 26271 2 00000 0 21500 PTW CTUTO WITH REWIND 4I112000| 26272 0445 00 0 26366 INFM RIS RECMK SET STATUS OF UTILITY 4I112100| 26273 4055 00 700000 SIL 700000 TAPE AS OPEN, READ, 4I112200| 26274 0604 00 0 26374 STI IDTBL2 REWIND POSITION- 4I112300| 26275 0441 00 0 21501 LDI CTUTI+1 (6)4I112310 26276 4057 00 002000 RIL 002000 SET FOR INPUT (6)4I112320| 26277 0604 00 0 21501 STI CTUTI+1 (6)4I112330| 26300 0074 00 4 21357 TSX OPEN,4 AND OPEN WITH 4I112400| 26301 0 00000 0 21500 PZE CTUTI REWIND 4I112500| 26302 0634 00 2 26303 SXA *+1,2 4I112600 26303 4774 00 4 00000 INFN AXC **,4 FILE BEING READ 4I112700| 26304 4634 00 2 26305 SXD *+1,2 4I112800| 26305 1 00000 4 26306 TXI *+1,4,** 4I112900| 26306 7 00000 4 26315 TXL INFP,4,0 IF FILE IS NOT DESIRED ONE, 4I113000| 26307 0634 00 2 26303 SXA INFN,2 SAVE IT AND REWIND TAPE. 4I113100 1 IBMAPV IBMAPJ 12/01/64 PAGE 26 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0034| 26310 0074 00 4 21355 INFO TSX CLOSE,4 CLOSE WITH 4I113200| 26311 2 00000 0 21500 PTW CTUTI REWIND 4I113300 26312 0074 00 4 21357 TSX OPEN,4 OPEN WITHOUT 4I113400| 26313 5 00000 0 21500 MON CTUTI REWIND 4I113500| 26314 0634 00 0 26374 SXA IDTBL2,0 4I113600| 26315 0500 00 2 00007 INFP CLA 7,2 4I113700| 26316 4320 00 0 21723 ANA MSKAD FOR THIS FILE 4I113800 26317 0534 00 1 26374 LXA IDTBL2,1 4I113900| 26320 0634 00 1 26375 SXA RDCTR,1 4I114000| 26321 0402 00 0 26375 SUB RDCTR 4I114100| 26322 4120 00 0 26310 TMI INFO TAPE BEYOND LAST USAGE 4I114200| 26323 0734 00 1 00000 PAX 0,1 4I114300 26324 7 00000 1 26335 TXL INFR,1,0 4I114400| 26325 0074 00 4 21361 INFQ TSX READ,4 FORWARD SPACE 4I114500| 26326 0 26331 0 21500 PZE CTUTI,,*+3 FILE TO 4I114600| 26327 0 26331 0 26331 PZE *+2,,*+2 LAST USED 4I114700| 26330 3 00000 2 00000 IORTN **,,** POSITION 4I114800 26331 4500 00 0 26374 CAL IDTBL2 4I114900| 26332 0361 00 0 21705 ACL L(1) 4I115000| 26333 0621 00 0 26374 STA IDTBL2 4I115100| 26334 2 00001 1 26325 TIX INFQ,1,1 4I115200| 26335 0074 00 4 21361 INFR TSX READ,4 READ NEXT 4I115300 0BINARY CARD ID. MAPJ0035| 26336 0 26343 0 21500 PZE CTUTI,,INFS BLOCK FROM 4I115400| 26337 0 26364 0 26357 PZE UTEOF,,FGAD UTILITY 4I115500| 26340 4 00001 6 26251 IOCPN* INRDC,,1 4I115600| 26341 1 00000 0 26055 TCH INCNT 4I115700 26342 0621 00 0 26055 STA INCNT 4I115800| 26343 4500 00 0 26374 INFS CAL IDTBL2 INCREASE READ 4I115900| 26344 0361 00 0 21705 ACL L(1) COUNT 4I116000| 26345 0621 00 0 26374 STA IDTBL2 BY 1. 4I116100| 26346 0621 00 2 00007 STA 7,2 4I116200 26347 0500 00 2 00006 CLA 6,2 TEST FOR 4I116300| 26350 0522 00 0 26251 XEC INRDC IDENTIFIER 4I116400| 26351 4734 00 4 00000 PDX 0,4 READ AGAIN IF NOT 4I116500| 26352 3 00000 4 26335 TXH INFR,4,0 CORRECT FILE 4I116600| 26353 4500 00 2 00007 CAL 7,2 IF FOUND, 4I116700 26354 0402 00 0 21717 SUB 1DECR REDUCE STASH 4I116800| 26355 0622 00 2 00007 STD 7,2 COUNT, AND 4I116900| 26356 0020 00 0 26246 TRA INRDB GO TO FINISH PROCESS (6)4I117000| | * UTILITY END OF FILE IS ERROR 4I117200 * 4I117300| 26357 0074 05 4 26172 UTEOF TSX INCIS,4,5 UTILITY END OF FILE (6)4I117400| 26360 0441 00 2 00007 LDI 7,2 RESET STASH COUNT 4I117500| 26361 4057 00 077777 RIL 77777 TO ZERO, AND GO 4I117600| 26362 0604 00 2 00007 STI 7,2 TO READ FROM CORE 4I117700 26363 0020 00 0 26240 TRA INRDA 4I117800| | * UTILITY READ ERROR 4I118000| 0BINARY CARD ID. MAPJ0036| 26364 0074 04 4 26172 FGAD TSX INCIS,4,4 (6)4I118100 26365 0020 00 0 26343 TRA INFS 4I118200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 27 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 | * SOME CONSTANTS 4I118400| 26366 700000077777 RECMK OCT 700000077777 4I118500| 26367 405600626051 INWD VFD O3/4,O15/05600,O3/6,15/INWR 4I118600| 26370 105400326235 OTWD1 VFD O3/1,O15/05400,O3/3,15/INRD 4I118700| 26371 505400726235 OTWD2 VFD O3/5,O15/05400,O3/7,15/INRD 4I118800 26372 0 00000 0 00000 OTEOA PZE ,,** END OF FILE EXIT 4I118900| 26373 0 00000 0 00000 ININD PZE ** 4I119000| 26374 4 00000 0 00000 IDTBL2 MZE ** READ STATUS OF UTILITY TAPE 4I119100| 26375 0 00000 0 00000 RDCTR PZE ** 4I119200| 26376 700000000000 MSKPX OCT 700000000000 PREFIX MASK (6)4I119210 007400 INTSX BOOL 007400 (6)4I119300| | | * FILES IN THIS TABLE ARE THE UTILITY FILE, FOLLOWED 4I119500| * BY THE INTERNAL FILES IN STASH PRIORITY ORDER. THE 4I119600 | 26377 0 21500 0 00000 IDTBL1 PZE **,,CTUTO UTILITY (OVERFLOW) FILE 4I119800| 26400 0 21544 0 00000 PZE **,,CTREFF REFERENCES FILE (6)4I119810| 26401 0 21574 0 00000 PZE **,,CTERRF ERROR MESSAGE FILE 4I119900| 26402 0 21560 0 00000 PZE **,,CTCONC CONTRL CARD FILE 4I120000 26403 0 21610 0 00000 PZE **,,CTFILC FILE CARD FILE 4I120100| 26404 0 21670 0 00000 PZE **,,CTDFCF $FILE CARDS FILE 4I120200| 26405 0 21624 0 00000 PZE **,,CTPSBF PSEUDO-OP FILE 4I120300| 26406 0 21640 0 00000 PZE **,,CPOOLF 4I120400| 26407 0 21654 0 00000 PZE **,,CTDUPF DUPLICATE FILE 4I120500 26410 IDTBLE EQU * 4I120600| | | * STATUS INFORMATION FOR INTERNAL FILES IS KEPT IN 4I120800| * THE FILE BLOCK, WORDS 7 THROUGH 11. THIS INFO IS- 4I120900 * 4I121000| * 6. PZE CURRENT.SEQUENCE.NUMBER,,FILE $5$4I121100| * 7. PFX UTILITY.POS.LAST.READ.OR.WRITTEN,,STASH.CT $5$4I121200| * 4I121300| * AND THE PREFIX BITS MEAN 4I121400 * 4I121500| * BIT S 0-DISCARD INFORMATION 1-RETAIN INFORMATION 4I121600| * BIT 1 0-FILE CLOSED 1-FILE OPEN 4I121700| * BIT 2 0-WRITE STATUS 1-READ STATUS 4I121800| * 4I121900 * 8. PZE INITIAL.WRITE.SEQ.NO,,0 $5$4I122000| * 9. PZE INITIAL.READ.SEQ.NO,,INIT.UTIL.POS.FOR.READ $5$4I122100| * 10. WORD 7 AT LAST WRITE CLOSE $5$4I122200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 28 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ 0| * LOCATE NON-OPERATION SYMBOL IN NAME TABLE. ENTER VIA 4I122400| * TSX NTLOK,4 4I122500| * 4I122600| * WITH BCD IN CELL NAME. ENTER VIA 4I122700 * 4I122800| * TSX NTLOC,4 4I122900| * 4I123000| * WITH BCD IN ACCUMULATOR. UPON RETURM, LOCATION 4I123100| * IS IN ACCUM ADDRESS. ACCUMULATOR IS- 4I123200 * 4I123300| * 1. NEGATIVE, IF NAME WAS NOT IN TABLE. IN THIS CASE, 4I123400| * THE REFERENCE IS TO AN OPEN LOCATION. 4I123500| * 2. POSITIVE, IF IT WAS. IF THERE ARE DUPLICATES, 4I123600| * CELL DUPNM REFERS TO THE LOCATION OF THE BCD 4I123700 * IN THE NAME TABLE, AND THE ACCUMULATOR REFERENCE 4I123800| * IS TO THE 77 WORD. 4I123900| | | 26410 4500 00 0 21461 NTLOK CAL NAME FETCH BCD 4I124100 26411 0634 00 4 26431 NTLOC SXA NTLX,4 SAVE EXIT 4I124200| 0BINARY CARD ID. MAPJ0037| 26412 0074 00 4 26433 TSX NTLOCC,4 FIND NOMINAL POSITION 4I124300| 26413 4120 00 0 26431 TMI NTLX EXIT IF NOT 4I124400| 26414 0520 00 0 26502 ZET DUPNM THERE, OR IF 4I124500 26415 0020 00 0 26431 TRA NTLX DUPLICATE ENTRY 4I124600| | CHECK SINGLE ENTRY FOR OPERATION 4I124800| 26416 0634 00 2 26425 SXA NTLCA,2 SAVE NOMINAL POSITION 4I124900| 26417 0074 00 4 26565 TSX INTST,4 OBTAIN HASHT INFO- 4I125000 26420 0131 00 0 00000 XCA 4I125100| 26421 4120 00 0 26423 TMI *+2 REPOSITION OPERATOR 4I125200| 26422 4773 00 0 00022 RQL 18 BIT IF ADDRESS 4I125300| 26423 0754 00 2 00000 PXA 0,2 4I125400| 26424 4774 00 4 26430 AXC NTLX-1,4 SET EXIT 4I125500 26425 0774 00 2 00000 NTLCA AXT **,2 RESTORE NOMINAL. ITEM IS- 4I125600| 26426 0100 00 0 26470 TZE NTFND NOT FOUND, IF NOT IN 4I125700| 26427 0162 00 0 26473 TQP FOUND FOUND, IF NOT OPERATION 4I125800| 26430 1 00016 4 26451 TXI NTLBB,4,NTLX-NTLOC-2 (CONTINUE SEARCH IF OPN). 4I125900| 26431 0774 00 4 00000 NTLX AXT **,4 RESTORE 4I126100| 26432 0020 00 4 00001 TRA 1,4 AND EXIT. 4I126200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 29 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 * SUBROUTINE TO LOOK UP NOMINAL LOCATION OF SYMBOL 4I126400| * IN NAME TABLE. ENTRY AND EXIT CONDITIONS SAME 4I126500| * AS NTLOC ROUTINE 4I126600| | 26433 0602 00 0 26477 NTLOCC SLW NAMEX SAVE BCD 4I126800| 26434 0765 00 0 00033 LRS 27 DIVIDE TO GET NOMINAL 4I126900| 26435 0225 33 0 26501 VDP HSHWD,,27 POSITION. (TBLNTH MUST 4I127000| 26436 0737 00 2 00000 PAC 0,2 NOT BE LESS THAN 256). 4I127100| 26437 0600 00 0 26502 STZ DUPNM SET NON-DUPLICATE $5$4I127200 0BINARY CARD ID. MAPJ0038| 26440 0634 00 2 26503 NTLA SXA NFRST,2 SET OVERFLOW TEST $5$4I127300| 26441 4520 00 2 56660 NOMNL NZT NMCHN,2 IF ENTRY ZERO, $5$4I127400| 26442 0020 00 0 26470 TRA NTFND NOT IN DICT $5$4I127500| 26443 4500 00 2 56660 CAL NMCHN,2 IF NOT ZERO $5$4I127510 26444 4340 00 0 26477 NTLB LAS NAMEX COMPARE WITH NAME 4I127600| 26445 0020 00 0 26447 TRA *+2 4I127700| 26446 0020 00 0 26473 TRA FOUND WHEE 4I127800| 26447 0044 00 0 00000 PAI 4I127900| 26450 4056 00 770000 LNT 770000 TEST FOR DUPLICATE 4I128000 26451 1 77777 2 26462 NTLBB TXI NTLC,2,-1 NEXT IF NOT. OTHERWISE, 4I128100| 26452 0771 00 0 00017 ARS 15 OBTAIN LOCATION 4I128200| 26453 0621 00 0 26502 STA DUPNM OF BCD, SET 4I128300| 26454 4500 60 0 26502 CAL* DUPNM DUPNM, AND 4I128400| 26455 4340 00 0 26477 LAS NAMEX TEST ACTUAL BCD 4I128500 26456 0020 00 0 26460 TRA *+2 4I128600| 26457 0020 00 0 26473 TRA FOUND TALLY HO. 4I128700| 26460 0600 00 0 26502 NTLBC STZ DUPNM SET NON-DUPLICATE 4I128800| 26461 1 77777 2 26462 TXI NTLC,2,-1 AND TRY AGAIN 4I128900| 26462 3 67720 2 26441 NTLC TXH NOMNL,2,-2*TBLNTH IF END OF TABLE, $5$4I129100 26463 0520 00 0 26503 ZET NFRST ERROR IF NOT $5$4I129200| 26464 1 10060 2 26440 TXI NTLA,2,2*TBLNTH FIRST TIME $5$4I129300| 26465 0074 00 4 25623 TSX ERPR,4 ERROR. 'NAME TABLE 4I129700| 0BINARY CARD ID. MAPJ0039| 26466 0 00000 4 00001 PZE MSS001,NONONO $5$4I129800 26467 0020 60 0 21474 TRA* OUTNT $5$4I129805| | ENTRY NOT IN DICTIONARY 4I130000| 26470 0754 00 2 00000 NTFND PXA 0,2 COMPUTE LOCATION, 4I130100| 26471 4400 00 0 26441 SBM NOMNL 4I130200 26472 0020 00 4 00001 TRA 1,4 AND EXIT. 4I130300| | ENTRY IN DICTIONARY 4I130500| 26473 0754 00 2 00000 FOUND PXA 0,2 COMPUTE LOCATION, 4I130600| 26474 4400 00 0 26441 SBM NOMNL SET ACCUMULATOR 4I130700 26475 0760 00 0 00003 SSP POSITIVE, 4I130800| 26476 0020 00 4 00001 TRA 1,4 AND EXIT 4I130900| | 26477 0 00000 0 00000 NAMEX PZE ** BCD TO LOOK UP 4I131100| 26500 0 00000 0 00000 NAMEY PZE ** AND TO HOLD 4I131200 26501 0 00000 0 10055 HSHWD PZE 2*TBLNTH-3 HASH DIVISOR 4I131300| 26502 0 00000 0 00000 DUPNM PZE ** 4I131400| 26503 0 00000 0 00000 NFRST PZE ** STARTING POINT 4I131500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 30 | SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ 0| * PLACE SYMBOL IN DICTIONARY. ENTER VIA 4I131700| * 4I131800| * TSX PLNME,4 4I131900| * 4I132000 * IF BCD IN CELL NAME. UPON RETURN, (IR2) = -DICT.LOC. 4I132100| * ENTER VIA 4I132200| * 4I132300| * TSX PLNAA,4 4I132400| * 4I132500 * IF NTLOC ROUTINE PREVIOUSLY USED. 4I132600| | | 26504 0634 00 4 26556 PLNAA SXA PLNX,4 SPECIAL ENTRY 4I132800| 26505 0020 00 0 26515 TRA PLNMG 4I132900 26506 0634 00 4 26556 PLNME SXA PLNX,4 SAVE RETURN 4I133000| 26507 4520 00 0 26564 NZT SWLOFN IF LOCATION FIELD 4I133100| 26510 0020 00 0 26514 TRA *+4 DOUBTFUL, 4I133200| 26511 0074 00 4 25623 TSX ERPR,4 'LOC FIELD SYMBOL SHOULD 4I133300| 26512 0 00000 1 00004 PZE MSS004,GO CONTAIN NON-NUMERIC CHAR' 4I133400 26513 0600 00 0 26564 STZ SWLOFN 4I133500| 0BINARY CARD ID. MAPJ0040| 26514 0074 00 4 26410 TSX NTLOK,4 TRY TO FIND NAME 4I133600| 26515 0120 00 0 26521 PLNMG TPL *+4 4I133700| 26516 0560 00 0 26477 LDQ NAMEX IF NOT THERE 4I133800 26517 4600 60 0 26441 STQ* NOMNL PLACE IN NAME TABLE 4I133900| 26520 0020 00 0 26554 TRA PLNDF AND GO TO GET INTERNAL 4I134000| | NAME WAS IN NAME TABLE 4I134200| 26521 4520 00 0 26502 NZT DUPNM 4I134300 26522 0020 00 0 26540 TRA PLNDB START DUPLICATE CHAIN 4I134400| | DUPLICATE CHAIN ALREADY EXISTS 4I134600| 26523 0621 00 0 26527 STA PLNDA SAVE INITIL LOC 4I134700| 26524 0560 00 0 26502 LDQ DUPNM AND LOC OF BCD 4I134800 26525 0074 00 4 26560 TSX PLNDZ,4 GET NEXT ZERO LOCATION 4I134900| 26526 0621 00 0 25607 STA 77WD SAVE FOR STORE 4I135000| 26527 4774 00 4 00000 PLNDA AXC **,4 4I135100| 26530 0441 00 4 00000 LDI 0,4 PICK UP 77 WORD 4I135200| 26531 0445 00 0 21731 RIS MSKSP AND REPLACE REFERENCE 4I135300 26532 0767 00 0 00017 ALS 15 TO BCD BY NEW LOCATION 4I135400| 26533 0043 00 0 00000 OAI 4I135500| 26534 0604 00 4 00000 STI 0,4 4I135600| 26535 0441 00 0 25607 LDI 77WD GO TO PLACE 76 WORD 4I135700| 26536 4057 00 010000 RIL 010000 IN FORMER BCD LOCATION 4I135800 26537 0020 00 0 26546 TRA PLNDC 4I135900| | CREATE NEW DUPLICATE CHAIN 4I136100| 26540 0131 00 0 00000 PLNDB XCA 4I136200| 26541 0074 00 4 26560 TSX PLNDZ,4 GET NEXT ZERO LOCATION 4I136300 0BINARY CARD ID. MAPJ0041| 26542 0621 00 0 25607 STA 77WD SAVE FOR NAME SOTRE 4I136400| 26543 0441 00 0 25607 LDI 77WD CREATE 77 WORD FOR 4I136500| 26544 0767 00 0 00017 ALS 15 CHAIN 4I136600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 31 SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0 26545 0043 00 0 00000 OAI INITIALIZATION 4I136700| | STORE LAST CHAIN WORD AND THEN NAME 4I136900| 26546 4130 00 0 00000 PLNDC XCL PICK UP STORE 4I137000 26547 0737 00 4 00000 PAC 0,4 ADDRESS FROM MQ 4I137100| 26550 0604 00 4 00000 STI 0,4 FOR CHAIN WORD 4I137200| 26551 4500 00 0 26500 CAL NAMEY 4I137300| 26552 0602 60 0 25607 SLW* 77WD BCD LOC ALWAYS IN 77WD 4I137400| ENTER INTERNAL DICT LOCATION AND EXIT 4I137600| 26553 0500 00 0 25607 PLNDE CLA 77WD 4I137700| 26554 0522 00 0 21414 PLNDF XEC PLNRF PLACE LINE NUMBER REFERENCE (6)4I137800| 26555 0074 00 4 26575 TSX INPLC,4 OBTAIN INTERNAL DICT LOCATION (6)4I137810| 26556 0774 00 4 00000 PLNX AXT **,4 4I137900 26557 0020 00 4 00001 TRA 1,4 AND EXIT 4I138000| | GO GET NEXT ZERO LOCATION 4I138200| 26560 4500 00 0 26477 PLNDZ CAL NAMEX SAVE ORIGINAL 4I138300| 26561 0602 00 0 26500 SLW NAMEY NAME 4I138400 26562 0600 00 0 26477 STZ NAMEX CLEAR FOR ZERO 4I138500| 26563 1 77777 2 26462 TXI NTLC,2,-1 TEST NEXT POSITION 4I138600| | 26564 0 00000 0 00000 SWLOFN PZE ** LOC FIELD ERROR SWITCH 4I138800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 32 SUBROUTINES COMMON TO BOTH PHASES RECORD IBMAPJ | 0| * OBTAIN LOCATION OF INTERNAL NAME FROM HASHT. ENTER WITH NAME 4I139000| * TABLE LOCATION IN ACCUM ADDRESS. RETURN WITH (IR2) = - DICT.LOC. 4I139100| 26565 4320 00 0 21723 INTST ANA MSKAD CLEAR TRASH AND SAVE 4I139300| 26566 4765 00 0 00001 LGR 1 HALF INDICATOR 4I139400| 26567 0737 00 2 00000 PAC 0,2 4I139500| 0BINARY CARD ID. MAPJ0042| 26570 0500 00 2 23300 CLA HASHT-NMCHN/2,2 PICK UP ENTRY 4I139600 26571 0737 00 2 00000 PAC 0,2 IF ODD ENTRY 4I139700| 26572 0162 00 0 26574 TQP *+2 LOCATION IS 4I139800| 26573 4737 00 2 00000 PDC 0,2 IN DECREMENT 4I139900| 26574 0020 00 4 00001 TRA 1,4 EXIT 4I140000| | | | * ENTER INTERNAL NAME IN HASHT. ENTER WITH NAME TABLE LOCATION 4I140200| * IN ACCUM ADDRESS. RETURN WITH (IR2) = - DICT.LOC. 4I140300 | 26575 4320 00 0 21723 INPLC ANA MSKAD CLEAR TRASH AND SAVE 4I140500| 26576 4765 00 0 00001 LGR 1 HALF INDICATOR 4I140600| 26577 0737 00 2 00000 PAC 0,2 4I140700| 26600 0500 00 0 21437 INPLD CLA ENAC NEXT LOCATION 4I140800 26601 0162 00 0 26605 TQP *+4 IF ADDRESS IS ODD, 4I140900| 26602 0767 00 0 00022 ALS 18 PUT THE LOCATION 4I141000| 26603 0622 00 2 23300 STD HASHT-NMCHN/2,2 IN THE DECREMENT 4I141100| 26604 0020 00 0 26607 TRA INDUM 4I141200| 26605 0621 60 0 26603 STA* *-2 IF ADDRESS IS EVEN, PUT 4I141300 26606 0020 00 0 26607 TRA INDUM LOCATION IN ADDRESS 4I141400| | | | * BUMP ENAC. RETURN WITH (IR2) ' - OPEN.LOC, WITH ENAC 4I141600| * TESTED FOR DICTIONARY OVERFLOW( AND POINTING TO NEXT. 4I141700| | 26607 0500 00 0 21437 INDUM CLA ENAC 4I141900| 26610 0737 00 2 00000 PAC 0,2 CURRENT LOCATION 4I142000 26611 0600 00 2 00000 STZ 0,2 CLEAR CELL 4I142100| 26612 0400 00 0 21705 ADD L(1) BUMP TO 4I142200| 26613 0621 00 0 21437 STA ENAC NEXT 4I142300| 26614 0402 00 0 21473 SUB INLMX 4I142400| 26615 4120 00 4 00001 TMI 1,4 EXIT IF ALL 4I142500 0BINARY CARD ID. MAPJ0043| 26616 0100 00 4 00001 TZE 1,4 OK. 4I142600| 26617 0074 00 4 25623 TSX ERPR,4 PRINT 'INT DICT $5$4I142700| 26620 0 00000 4 00002 PZE MSS002,NONONO OVERFLOW $5$4I142800| 26621 0020 60 0 21474 TRA* OUTNT SKIP TO END CARD IF FIRST PASS (6)4I142900 26622 PATCHC EQU * (6)4I142910| 26640 BES PONORG-* PATCH SPACE (6)4I143090| 1 IBMAPV IBMAPJ 12/01/64 PAGE 33 | PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0 0BINARY CARD ID. MAPJ0044| 26640 0600 00 0 35154 PASA STZ LNKMK CLEAR SENTENCE COUNT 4I143700| 26641 0600 00 0 35141 STZ BCDOUT CLEAR BCD OUTPUT INHIBITOR 4I143800| 26642 0600 00 0 35144 STZ BOOLSW CLEAR BOOLEAN SWITCH 4I143900| 26643 0600 00 0 35160 STZ OCTCNV CLEAR OCTAL LITERAL INDICATOR 4I144000 26644 0600 00 0 35145 STZ CCDSW CLEAR CONTROL CARD SWITCH 4I144100| 26645 0600 00 0 34012 STZ USESC CLEAR THE GN=* SWITCH 4I144200| 26646 4520 00 0 35166 NZT SWCVFE WAS END OF VARIABLE FIELD SENSED (6)4I144210| 26647 0074 00 4 37155 TSX CDXINR,4 YES, RE-INITIALIZE SCAN (6)4I144220| 26650 4625 00 0 35166 STL SWCVFE SET VARIABLE FIELD SWITCH 4I144300 26651 0520 00 0 36245 ZET SWIRPC IS CARD WAITING (6)4I144310| 26652 0074 00 4 35027 TSX INHANE,4 TO BE GENERATED (6)4I144320| 26653 0600 00 0 21466 STZ PBLINK CLEAR ERROR MESSAGE SWITCH 4I144400| 26654 0600 00 0 26724 STZ LINKSW CLEAR LINK SWITCH 4I144500| 26655 0520 00 0 37172 ZET SWCMNT IS THIS A COMMENTS CARD 4I144600 26656 0020 00 0 26701 TRA STRTYP YES, 4I144700| 26657 0600 00 0 35167 STZ SWUND (6)4I144710| 26660 0074 00 4 36347 TSX OPLOC,4 LOOK UP THE OP FIELD 4I144800| 26661 0020 00 0 26672 TRA NEWOPA NOT FOUND (6)4I144900| 26662 4600 00 0 35146 PASAA STQ CUROPN SAVE CURRENT OPERATION (6)4I145000 26663 4500 00 0 35156 CAL NMLSC SET NORMAL SCAN (6)4I145010| 26664 0602 00 0 36452 SLW SCLFT CONDITIONS (6)4I145020| 26665 4500 00 0 44331 CAL LNKWD AND (6)4I145030| 0BINARY CARD ID. MAPJ0045| 26666 0621 00 0 36753 STA STGPT COLLECTION POINT (6)4I145040 26667 4754 00 0 00000 ZAC (6)4I145100| 26670 4114 01 1 26665 CAQ ADJTBL,1,1 LOOK UP ADJECTIVE TYPE $4$4I145200| 26671 0020 00 1 00000 TRA 0,1 TRANSFER TO OPERATION LOOK-UP 4I145300| | * UNDEFINED OPERATIONS 4I145600| 26672 4500 00 0 35173 NEWOPA CAL UNDOP TRY FOR SPECIAL PROCESSING (6)4I145610| 26673 0074 00 4 36350 TSX OPALT,4 OF UNDEFINED CODES (6)4I145620| 26674 0020 00 0 26676 TRA NEWOP NO (6)4I145630| 26675 0020 00 0 26662 TRA PASAA YES, PERFORM IT (6)4I145640 26676 0074 00 4 25623 NEWOP TSX ERPR,4 4I145700| 26677 0 00000 2 00055 PZE WMS010,NOGO (1)4I145800| 26700 0020 00 0 31116 TRA NULTYP DEFINE LOCATION SYMBOL (6)4I145900| | * * TYPE COMMENT CARDS 4I146100 26701 0074 00 4 35027 STRTYP TSX INHANE,4 SEND A 4I146200| 26702 0074 00 4 34560 TSX FPCLAG,4 NON-OP CODE 4I146300| 26703 4 00001 0 26705 MZE 75WD1,,1 TO TEXT 4I146400| 26704 0020 00 0 26640 TRA PASA 4I146500| 26705 750001000000 75WD1 VFD O6/75,12/1 4I146600 | * TEXT GATHERER 4I146800| 26706 0534 00 2 35154 TXTGTR LXA LNKMK,2 PICK UP POSITION $4$4I146900| 26707 1 77777 2 26710 TXI *+1,2,-1 AND BUMP TO NEXT $4$4I147000| 26710 3 77577 2 26721 TXH TXTZ,2,-STLSZ-1 STORE IF NOT FULL $4$4I147100 26711 0520 00 0 26724 ZET LINKSW EXIT IF NOT $4$4I147200| 26712 0020 00 4 00001 TRA 1,4 FIRST TIME $4$4I147300| 26713 0634 00 4 26724 SXA LINKSW,4 OTHERWISE, $4$4I147400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 34 | PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ 0BINARY CARD ID. MAPJ0046| 26714 0074 00 4 25623 TSX ERPR,4 FILE MESSAGE $4$4I147500| 26715 0 00000 4 00013 PZE WMS001,NONONO AND SET TO STORE $4$4I147600| 26716 0441 00 0 21721 LDI 10WD CONSTANT ZERO AS $4$4I147700| 26717 0774 00 2 77600 AXT -STLSZ,2 LAST WORD OF TEXT $4$4I147800 26720 0534 00 4 26724 LXA LINKSW,4 $4$4I147900| 26721 0634 00 2 35154 TXTZ SXA LNKMK,2 SAVE POSITION, $4$4I148000| 26722 0604 00 2 52027 STI LINK-1,2 STORE, AND $4$4I148100| 26723 0020 00 4 00001 TRA 1,4 EXIT $4$4I148200| 26724 0 00000 0 00000 LINKSW PZE ** LINK SWITCH 4I148400| | | | * TABLE OF ADJECTIVES 4I148600 26665 ADJTBL EQU *-32 $5$4I148700| 26725 0 00000 0 50635 -NMLOP 40 TYPE A (TXI) 4I148800| 26726 0 00000 0 50635 -NMLOP 41 PREFIX (PZE) 4I148900| 26727 0 00000 0 50635 -NMLOP 42 IO (IOCT) 4I149000| 26730 0 00000 0 50635 -NMLOP 43 TYPE B (CLA) 4I149100 26731 0 00000 0 50635 -NMLOP 44 TYPE C (CVR) 4I149200| 26732 0 00000 0 50615 -A45TYP 45 TYPE D (RNT) 4I149300| 26733 0 00000 0 50635 -NMLOP 46 TYPE E (PSE) 4I149400| 26734 0 00000 0 50635 -NMLOP 47 SELECT (RTDA) 4I149500| 26735 0 00000 0 50635 -A50TYP 50 4 FLD CHANNEL COMMANDS (TCM) 4I149600 26736 0 00000 0 50635 -A51TYP 51 DISC CHANNEL COMMANDS (CPYD) 4I149700| 26737 0 00000 0 50615 -A52TYP 52 BOOL VARIABLE (BNT) 4I149800| 26740 0 00000 0 50612 -A53TYP 53 DISC ORDERS 4I149900| 26741 0 00000 0 50514 -A54TYP 54 UNEXPANDED 94 OPS 4I150000| 0BINARY CARD ID. MAPJ0047 26742 0 00000 0 50635 -NMLOP 55 HYPERTAPE ORDERS 4I150100| 26743 4 00000 0 50645 MZE -KPUTYP 56 BUFFER TRUNCATOR $4$4I150200| 26744 4 00000 0 50645 MZE -KPUTYP 57 TEXT SYNCHRONIZER $4$4I150300| 26745 0 00000 0 34262 -A60TYP 60 MACRO 4I150400| 26746 0 00011 0 51013 PZE -A61TYP,,61B-61A 61 MACRO RELATED $4$4I150500 26747 4 00000 0 51001 MZE -A62TYP 62 MACRO CALL $4$4I150600| 26750 0 00004 0 50765 PZE -A63TYP,,63B-63A 63 LOCATION COUNTER $4$4I150700| 26751 0 00007 0 50760 PZE -A64TYP,,64B-64A 64 STORAGE ALLOCATION $4$4I150800| 26752 0 00003 0 50750 PZE -A65TYP,,65B-65A 65 DECIMAL SYMBOL DEFINITION $4$4I150900| 26753 0 00003 0 50743 PZE -A66TYP,,66B-66A 66 BOOLEAN SYMBOL DEFINITION $4$4I151000 26754 0 00003 0 50736 PZE -A67TYP,,67B-67A 67 OPERATION DEFINING $4$4I151100| 26755 0 00002 0 50732 PZE -A70TYP,,70B-70A 70 DUP $4$4I151200| 26756 0 00005 0 50727 PZE -A71TYP,,71B-71A 71 DATA GENERATING $4$4I151300| 26757 0 00006 0 50721 PZE -A72TYP,,72B-72A 72 NON-GENERATIVE $4$4I151400| 26760 0 00005 0 50712 PZE -A73TYP,,73B-73A 73 ABSOLUTE ASSEMBLY $4$4I151500 26761 4 00000 0 50645 MZE -A74TYP 74 COMMENTARY $4$4I151600| 26762 0 00005 0 50703 PZE -A75TYP,,75B-75A 75 MISCELLANEOUS $4$4I151700| 26763 0 00003 0 36056 PZE -A76TYP,,76B-76A 76 SPECIAL SYSTEM $4$4I151800| 26764 0 00015 0 50675 PZE -A77TYP,,77B-77A 77 LIST CONTROL $4$4I151900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 35 PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0| 43516 A60TYP SYN MACRO MACRO HEADER CARD (6)4I152100| | 26765 0074 00 4 27123 A61TYP TSX WHATYP,4 4I152300 26766 61A BSS 0 $4$4I152400| 26766 0 00000 0 30305 IFTTYP 0 IFT 4I152500| 26767 0 00000 0 30303 IFFTYP 1 IFF 4I152600| 0BINARY CARD ID. MAPJ0048| 26770 0 00000 0 44770 IRPTYP 2 IRP 4I152700 26771 0 00000 0 31765 SETTYP 3 SET 4I152800| 26772 0 00000 0 44713 OCSTYP 4 ORGCRS 4I152900| 26773 0 00000 0 44707 NOCTYP 5 NOCRS 4I153000| 26774 0 00000 0 44770 NDMTYP 6 ENDM 4I153100| 26775 0 00000 0 31456 PRGTYP 7 PURGE (6)4I153110 26776 0 00000 0 44765 CRTTYP 8 CREATE (6)4I153120| 26777 61B BSS 0 $4$4I153200| | 26777 4500 00 0 35146 A62TYP CAL CUROPN CHECK IF MACRO $4$4I153400| 27000 4320 00 0 21723 ANA MSKAD HAS BEEN PURGED $4$4I153500 27001 4100 00 0 44773 TNZ MCCALL NO, PROCEED NORMALLY. $4$4I153600| 27002 0520 00 0 35167 ZET SWUND IS THIS THE FIRST TIME (6)4I153610| 27003 0020 00 0 31116 TRA NULTYP NO, AVOID REPEATING MESSAGE (6)4I153620| 27004 0074 00 4 25623 TSX ERPR,4 YES, ISSUE MESSAGE $4$4I153700| 27005 0 00000 1 00205 PZE FMS014,GO 'OP NOT IN DICT. PURGED.' $4$4I153800 27006 4500 00 0 35173 CAL UNDOP IF THERE IS NOT AN (6)4I153810| 27007 0074 00 4 36350 TSX OPALT,4 UNDEFINED OPERATIONS PROCESSOR, (6)4I153820| 27010 0020 00 0 31116 TRA NULTYP OUTPUT AS NULL (6)4I153900| 27011 4625 00 0 35167 STL SWUND (6)4I153910| 27012 0020 00 0 26662 TRA PASAA ELSE TAKE IT (6)4I153920 | 27013 0074 00 4 27123 A63TYP TSX WHATYP,4 4I154100| 27014 63A BSS 0 $4$4I154200| 27014 0 00000 0 32074 USETYP 0 USE 4I154300| 27015 0 00000 0 27364 BGNTYP 1 BEGIN 4I154400 0BINARY CARD ID. MAPJ0049| 27016 0 00000 0 31365 ORGTYP 2 ORG 4I154500| 27017 0 00000 0 31036 LOCTYP 3 LOC $5$4I154550| 27020 63B BSS 0 $4$4I154600| 27020 0074 00 4 27123 A64TYP TSX WHATYP,4 4I154800| 27021 64A BSS 0 $4$4I154900| 27021 0 00000 0 27475 BSSTYP 0 BSS 4I155000| 27022 0 00000 0 27463 BESTYP 1 BES 4I155100| 27023 0 00000 0 27610 CMNTYP 2 COMMON 4I155200 27024 0 00000 0 30172 EVNTYP 3 EVEN 4I155300| 27025 0 00000 0 31040 LRGTYP 4 LORG 4I155400| 27026 0 00000 0 30704 LDRTYP 5 LDIR 4I155500| 27027 0 00000 0 30753 LOGTYP 6 LITORG $5$4I155501| 27030 64B BSS 0 $4$4I155600 | 27030 0074 00 4 34166 A65TYP TSX YESNME,4 TEST FOR NAME 4I155800| 27031 0074 00 4 27123 TSX WHATYP,4 4I155900| 27032 65A BSS 0 $4$4I156000| 27032 0 00000 0 30146 EQUTYP 0 EQU (AND SYN) 4I156100 1 IBMAPV IBMAPJ 12/01/64 PAGE 36 | PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0 27033 0 00000 0 31061 MAXTYP 1 MAX 4I156200| 27034 0 00000 0 31063 MINTYP 2 MIN 4I156300| 27035 65B BSS 0 $4$4I156400 | 27035 0074 00 4 34166 A66TYP TSX YESNME,4 TEST FOR NAME 4I156600| 27036 0074 00 4 27123 TSX WHATYP,4 4I156700| 27037 66A BSS 0 $4$4I156800| 27037 0 00000 0 27470 BOLTYP 0 BOOL 4I156900 27040 0 00000 0 30702 LBOTYP 1 LBOOL 4I157000| 27041 0 00000 0 31720 RBOTYP 2 RBOOL 4I157100| 27042 66B BSS 0 $4$4I157200| | 27042 0074 00 4 27123 A67TYP TSX WHATYP,4 4I157400 27043 67A BSS 0 $4$4I157500| 27043 0 00000 0 31131 OPDTYP 0 OPD 4I157600| 0BINARY CARD ID. MAPJ0050| 27044 0 00000 0 31324 OPVTYP 1 OPVFD 4I157700| 27045 0 00000 0 31214 OPSTYP 2 OPSYN 4I157800 27046 67B BSS 0 $4$4I157900| | 27046 0074 00 4 27123 A70TYP TSX WHATYP,4 4I158100| 27047 70A BSS 0 $4$4I158200| 27047 0 00000 0 43145 DUPTYP 0 DUP $4$4I158300 27050 0 00000 0 30211 GOTTYP 1 GO TO $4$4I158400| 27051 70B BSS 0 $4$4I158500| | 27051 0074 00 4 27123 A71TYP TSX WHATYP,4 4I158700| 27052 71A BSS 0 $4$4I158800 27052 0 00000 0 31122 OCTTYP 0 OCT 4I158900| 27053 0 00000 0 27644 DECTYP 1 DEC MAY BE $4$4I159000| * MODIFIED TO DECDBG $4$4I159100| 27054 0 00000 0 27275 BCITYP 2 BCI 4I159200| 27055 0 00000 0 30722 LITTYP 3 LIT 4I159300 27056 0 00000 0 32233 VFDTYP 4 VFD 4I159400| 27057 71B BSS 0 $4$4I159500| | 27057 0074 00 4 27123 A72TYP TSX WHATYP,4 4I159700| 27060 72A BSS 0 $4$4I159800 27060 0 00000 0 31630 QULTYP 0 QUAL 4I159900| 27061 0 00000 0 30036 NDQTYP 1 ENDQ (END QUAL) 4I160000| 27062 0 00000 0 40460 CTLTYP 2 CONTROL 4I160100| 27063 0 00000 0 40702 FYLTYP 3 FILE 4I160200| 27064 0 00000 0 40464 NTRTYP 4 ENTRY 4I160300 27065 0 00000 0 41514 LABTYP 5 LABLE 4I160400| 27066 72B BSS 0 $4$4I160500| | 27066 0074 00 4 34175 A73TYP TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I160700| 27067 0074 00 4 27123 TSX WHATYP,4 4I160800 27070 73A BSS 0 $4$4I160900| 27070 0 00000 0 27267 ABSTYP 0 ABS 4I161000| 27071 0 00000 0 27267 FULTYP 1 FUL 4I161100| 0BINARY CARD ID. MAPJ0051| 27072 0 00000 0 32052 TCDTYP 2 TCD 4I161200 27073 0 00000 0 27267 PCHTYP 3 PUNCH 4I161300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 37 | PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ | 0 27074 0 00000 0 27267 UNPTYP 4 UNPUNCH 4I161400| 27075 73B BSS 0 $4$4I161500 | 27133 A74TYP SYN KPUTYP (NOT USED) (6)4I161700| | 27075 0074 00 4 27123 A75TYP TSX WHATYP,4 4I161900| 27076 75A BSS 0 $4$4I162000 27076 0 00000 0 30167 ETCTYP 0 ETC 4I162100| 27077 0 00000 0 31722 REMTYP 1 REM 4I162200| 27100 0 00000 0 31116 NULTYP 2 NULL 4I162300| 27101 0 00000 0 27721 ENDTYP 3 END 4I162400| 27102 0 00000 0 30507 KEPTYP 4 KEEP (6)4I162500 27103 75B BSS 0 $4$4I162600| | 41722 A76TYP SYN SSSTEM CALL, SAVE (6)4I162800| | 27103 0074 00 4 34175 A77TYP TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I163000 27104 4625 00 0 35145 STL CCDSW SET CONTROL CARD SWITCH 4I163100| 27105 0074 00 4 27123 TSX WHATYP,4 4I163200| 27106 77A BSS 0 $4$4I163300| 27106 0 00000 0 32066 UNLTYP 0 UNLIST 4I163400| 27107 0 00000 0 30720 LSTTYP 1 LIST 4I163500 27110 0 00000 0 32055 TITTYP 2 TITLE 4I163600| 27111 0 00000 0 27717 DETTYP 3 DETAIL 4I163700| 27112 0 00000 0 32037 EJCTYP 4 EJECT 4I163800| 27113 0 00000 0 32037 SPCTYP 5 SPACE 4I163900| 27114 0 00000 0 30612 LBLTYP 6 LBL (SERIALIZE BINARY CARDS) 4I164000 27115 0 00000 0 31367 PCCTYP 7 PCC (PRINT CONTROL CARDS) 4I164100| 27116 0 00000 0 30531 NDXTYP 10 INDEX 4I164200| 27117 0 00000 0 31417 PMCTYP 11 PMC (LIST OR UNLIST MACROS) 4I164300| 0BINARY CARD ID. MAPJ0052| 27120 0 00000 0 32057 TTLTYP 12 TTL (ENTER A PAGE HEADING) 4I164400 27121 0 00000 0 31377 PCGTYP 13 PCG (PRINT RELOCATABLE BITS) 4I164500| 27122 0 00000 0 31065 MNTTYP 14 MNOTE (6)4I164600| 27123 77B BSS 0 $4$4I164700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 38 | PASS ONE SUPERVISOR PHASE 1 - RECORD IBMAPJ 0| 27123 WHATYP SYN * 4I164900| | * PICKS UP THE SUBFIELD FROM MULTIPLE 4I165100| * OPERATION CODES AND TRANSFERS TO THE 4I165200 * APPROPRIATE ANALYZER 4I165300| | 27123 0622 00 0 27131 STD WHATEX-1 SET FOR TEST $4$4I165500| 27124 4500 00 0 35146 CAL CUROPN FETCH CURRENT OPERATION $4$4I165600| 27125 4320 00 0 35152 ANA 4095D MASK $4$4I165700 27126 4734 00 1 00000 PDX ,1 $4$4I165800| 27127 1 00001 1 27130 TXI *+1,1,1 BUMP BY 1 $4$4I165900| 27130 0634 00 1 27132 SXA WHATEX,1 SET EXIT $4$4I166000| 27131 3 00000 1 27133 TXH KPUTYP,1,** OUT IF ERROR $4$4I166100| 27132 0020 60 4 00000 WHATEX TRA* **,4 OK, RETURN $4$4I166200 | 27133 0074 00 4 25623 KPUTYP TSX ERPR,4 'ILLEGAL INTERNAL 4I166400| 27134 0 00000 4 00016 PZE WMS004,NONONO $4$4I166500| 27135 0020 00 0 26701 TRA STRTYP ISSUE AS COMMENTS $4$4I166600| 27136 0520 00 0 45172 EOFERR ZET MACISW IS THIS (6)4I166800| 27137 0020 00 0 35244 TRA IRE MACRO ETC LOOKAHEAD (6)4I166810| 27140 0074 00 4 25623 TSX ERPR,4 NO, PUT OUT MESSAGE (6)4I166820| 27141 0 00000 4 00054 PZE WMS009,NONONO $4$4I166900| 27142 0020 00 0 35233 TRA ENDOP5 $4$4I167200 | | | | 000000 DRQ BOOL 0 DECREMENT REQUIRED 4I167400| 000001 DOK BOOL 1 DECREMENT OK 4I167500| 000002 DAL BOOL 2 DECREMENT ALLOWED BUT NOT EXPECTED 4I167600| 000003 DNG BOOL 3 DECREMENT NOT ALLOWED 4I167700| 000000 TRQ BOOL 0 TAG REQUIRED 4I167800 000004 TOK BOOL 4 TAG OK 4I167900| 000010 TAL BOOL 10 TAG ALLOWED BUT NOT EXPECTED 4I168000| 000014 TNG BOOL 14 TAG NOT ALLOWED 4I168100| 000000 ARQ BOOL 0 ADDRESS REQUIRED 4I168200| 000020 AOK BOOL 20 ADDRESS OK 4I168300 000040 AAL BOOL 40 ADDRESS ALLOWED BUT NOT EXPECTED 4I168400| 000060 ANG BOOL 60 ADDRESS NOT ALLOWED 4I168500| 000000 ING BOOL 0 INDIRECT NOT PERMITTED 4I168600| 000100 IOK BOOL 100 INDIRECT ADDRESSING ALLOWED 4I168700| 004000 INBIT BOOL 4000 INDIRECT FLAG FIELD BIT 4I168800 1 IBMAPV IBMAPJ 12/01/64 PAGE 39 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * NORMAL MACHINE LANGUAGE OPERATIONS 4I169000| * ENTERED BY 4I169200| | * CRQ ADJTBL,1,1 4I169400| * THE ADDRESS OF THE DICTIONARY ENTRY FOR THIS OP 4I169500| * IS IN INDEX REGISTER TWO, COMPLEMENTED 4I169600 | 27143 NMLOP SYN * 4I169800| 27143 0074 00 4 34155 TSX NMLOC,4 4I170100| 27144 0074 00 4 36274 TSX LOCBP,4 BUMP LOCATION COUNTER 4I170200| 27145 0441 00 0 35146 NMLA LDI CUROPN FETCH THE OPERATION 4I170300 0BINARY CARD ID. MAPJ0053| 27146 0074 00 4 34206 TSX IND.X,4 CHECK AND ENTER INDIRECT ADDRESS 4I170400| 27147 0074 00 4 34132 TSX TSTETC,4 IS THERE A VARIABLE FIELD 4I170500| 27150 4055 00 000700 SIL 700 YES, SET CONTINUATION FLAG 4I170600| 27151 0074 00 4 26706 TSX TXTGTR,4 PUT THE OPERATION INTO TEXT 4I170700 27152 4520 00 0 35166 NMLB NZT SWCVFE IS THERE MORE TO THE FIELD 4I170800| 27153 0020 00 0 27156 TRA NMLD NO, EXIT 4I170900| 27154 0074 00 4 33444 TSX SCAFLD,4 SCAN ONE FIELD. 4I171000| 27155 0020 00 0 27152 TRA NMLB 4I171200| 27156 0535 00 4 35154 NMLD LAC LNKMK,4 SEND THE 4I171300 27157 4634 00 4 27161 SXD NMLC,4 INTERNAL 4I171400| 27160 0074 00 4 34560 TSX FPCLAG,4 TEXT TO THE 4I171500| 27161 4 00000 0 52030 NMLC MZE LINK,,** OUTPUT BUFFER 4I171600| 27162 0020 00 0 26640 TRA PASA 4I171700| 27163 4625 00 0 35160 A45TYP STL OCTCNV SET SWITCH FOR OCTAL CONVERSION 4I171900| 27164 4625 00 0 35144 STL BOOLSW SET SWITCH FOR BOOLEAN FIELD 4I172000| 27165 0020 00 0 27143 TRA NMLOP PROCESS NORMALLY 4I172100| | 27143 A50TYP SYN NMLOP 4I172300 27143 A51TYP SYN NMLOP 4I172400| 27163 A52TYP SYN A45TYP 4I172500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 40 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 *DISK ORDER ANALYZER - ADJECTIVE CODE 53 4I172700| * 4I172800| * FIRST TWO SUBFIELDS ARE PROCESSED NORMALLY. 4I172900| * THE FIRST TWO CHARACTERS OF THE THIRD SUBFIELD 4I173000| * ARE TRANSMITTED, IN T2 FORM, AS AN OCTAL CONSTANT. 4I173100 * 4I173200| 27166 A53TYP SYN * 4I173300| 27166 0074 00 4 34155 TSX NMLOC,4 ENTER NAME IF ANY 4I173600| 27167 0774 00 4 00002 AXT 2,4 SET 2 IN ACC 4I173700| 27170 4754 00 4 00000 PXD 0,4 4I173800 27171 0074 00 4 36275 TSX SEPBP,4 BUMP LOCATION COUNTER 4I173900| 27172 0441 00 0 35146 FNMLA LDI CUROPN FETCH THE OPERATION 4I174000| 27173 0074 00 4 34206 TSX IND.X,4 CHECK AND ENTER INDIRECT ADDRESS 4I174100| 0BINARY CARD ID. MAPJ0054| 27174 0074 00 4 34132 TSX TSTETC,4 IS THERE A VARIABLE FIELD 4I174200 27175 0761 00 0 00000 NOP 4I174300| 27176 4055 00 000700 SIL 700 YES, SET CONTINUATION FLAG 4I174400| 27177 0074 00 4 26706 TSX TXTGTR,4 PUT OPERATION INTO TEXT 4I174500| 27200 4520 00 0 35166 FNMLB NZT SWCVFE IS THERE MORE TO THE FIELD 4I174600| 27201 0020 00 0 27235 TRA FNMLD1 NO VARIABLE FIELD, SET 00,0000,00 4I174700 27202 0074 00 4 33444 TSX SCAFLD,4 SCAN ONE FIELD 4I174800| 27203 4520 00 0 35166 NZT SWCVFE IS THERE STILL MORE TO FIELD 4I175000| 27204 0074 00 4 27230 TSX FNMLE,4 1 SUBFIELD, SET XX,0000,00 4I175100| 27205 0761 00 0 27240 NOP FNMLD2 4I175200| 27206 0074 00 4 33444 TSX SCAFLD,4 SCAN ONE FIELD 4I175300 27207 4520 00 0 35166 NZT SWCVFE MORE TO VARIABLE FIELD 4I175500| 27210 0074 00 4 27230 TSX FNMLE,4 2 SUBFIELDS, SET XX,YYYY,00 4I175600| 27211 0761 00 0 27243 NOP FNMLD3 4I175700| 27212 0074 00 4 36756 TSX HSCAN,4 FETCH 2 BCD CHARACTERS 4I175800| 27213 0 00002 0 27247 PZE FNMLF,,2 4I175900 27214 0560 00 0 27247 LDQ FNMLF LOAD CHARACTERS OR ZERO INTO MQ 4I176000| 27215 4754 00 0 00000 PXD 0,0 4I176100| 27216 0074 00 4 27250 TSX F0T12,4 GO TO REPLACE ZEROS 4I176200| 27217 0044 00 0 00000 PAI CHARACTERS TO INDICATORS 4I176300| 27220 4055 00 110000 SIL 110000 SET OCTAL ADJECTIVE CODE 4I176400 27221 0074 00 4 26706 TSX TXTGTR,4 PUT INTO TEXT 4I176500| 0BINARY CARD ID. MAPJ0055| 27222 0074 00 4 35027 TSX INHANE,4 OUTPUT LAST CARD 4I176600| 27223 0535 00 4 35154 FNMLD LAC LNKMK,4 SEND INTERNAL TEXT 4I176700| 27224 4634 00 4 27226 SXD *+2,4 TO OUTPUT 4I176800 27225 0074 00 4 34560 TSX FPCLAG,4 BUFFER 4I176900| 27226 4 00000 0 52030 MZE LINK,,** 4I177000| 27227 0020 00 0 26640 TRA PASA EXIT 4I177100| | 27230 0534 00 2 35154 FNMLE LXA LNKMK,2 PICK UP PREVIOUS 4I177300 27231 0441 00 2 52027 LDI LINK-1,2 LINK ENTRY 4I177400| 27232 4055 00 000200 SIL 200 ENTER A COMMA 4I177500| 27233 0604 00 2 52027 STI LINK-1,2 4I177600| 27234 0020 60 4 00001 TRA* 1,4 4I177700| 27235 0441 00 0 21721 FNMLD1 LDI 10WD NO VARIABLE FIELD 4I177900| 27236 4055 00 000200 SIL 000200 SET COMMA CONTINUATION 4I178000| 27237 0074 00 4 26706 TSX TXTGTR,4 GENERATE 3 4I178100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 41 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 27240 0441 00 0 21721 FNMLD2 LDI 10WD 1 SUB FIELD ONLY 4I178200| 27241 4055 00 000200 SIL 000200 GENERATE 2 4I178300| 27242 0074 00 4 26706 TSX TXTGTR,4 4I178400| 27243 0441 00 0 27246 FNMLD3 LDI FNMLD4 2 SUB FIELDS 4I178500| 27244 0074 00 4 26706 TSX TXTGTR,4 GENERATE LAST 4I178600 27245 0020 00 0 27223 TRA FNMLD AND EXIT 4I178700| 27246 110000001212 FNMLD4 VFD O6/11,O30/1212 4I178800| | 27247 0 00000 0 00000 FNMLF PZE 4I179000| 0BINARY CARD ID. MAPJ0056 27250 4763 00 0 00006 F0T12 LGL 6 REPLACE 00 WITH 12 4I179100| 27251 4100 00 0 27253 TNZ *+2 IS FIRST CHARACTER 0 4I179200| 27252 0500 00 0 27263 CLA F0T12F YES, FETCH 12 4I179300| 27253 0767 00 0 00006 ALS 6 NO, SAVE 4I179400| 27254 0602 00 0 27247 SLW FNMLF 4I179500 27255 4754 00 0 00000 PXD 0,0 CLEAR ACC 4I179600| 27256 4763 00 0 00006 LGL 6 SHIFT IN SECOND CHARACTER 4I179700| 27257 4100 00 0 27261 TNZ *+2 IS IT ZERO 4I179800| 27260 0500 00 0 27263 CLA F0T12F YES, FETCH 12 4I179900| 27261 4501 00 0 27247 ORA FNMLF NO, FETCH FIRST CHARACTER 4I180000 27262 0020 00 4 00001 TRA 1,4 RETURN 4I180100| 27263 000000000012 F0T12F OCT 12 4I180200| | | * UNEXPADED 7094 OPS, ASSEMBLED AS NOP 4I180400| | 27264 A54TYP SYN * 4I180600| 27264 0074 00 4 25623 TSX ERPR,4 INDICATE THAT NO 4I180700| 27265 0 00000 1 00177 WMS040,GO SUBSTITUTION WAS 4I180800 27266 0020 00 0 27143 TRA NMLOP MADE 4I180900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 42 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * ABS 4I181100 27267 ABSTYP SYN * 4I181200| 27267 4520 00 0 21426 NZT SWABS IS THIS ASSEMBLY ABSOLUTE 4I181300| 27270 0020 00 0 34255 TRA NOTEFF NO, 4I181400| 27271 0074 00 4 35027 ABSTA TSX INHANE,4 OUTPUT AND FETCH NEXT 4I181500| 27272 0074 00 4 34560 TSX FPCLAG,4 4I181600 27273 4 00001 0 35146 MZE CUROPN,,1 4I181700| 27274 0020 00 0 26640 TRA PASA 4I181800| | * BCI 4I182000| 27275 BCITYP SYN * 4I182100 27275 0074 00 4 34155 TSX NMLOC,4 PROCESS THE NAME 4I182200| 0BINARY CARD ID. MAPJ0057| 27276 0074 00 4 34206 TSX IND.X,4 CHECK INDIRECT 4I182300| 27277 0074 00 4 27324 TSX BCICT,4 FETCH THE BCI COUNT 4I182400| 27300 0534 00 1 35146 LXA CUROPN,1 PICK UP THE COUNT 4I182500 27301 7 00000 1 31117 TXL NULTYP+1,1,0 EXIT IF ZERO (6)4I182510| 27302 0634 00 1 27307 BCIB SXA BCIA,1 SAVE IT 4I182600| 27303 0074 00 4 36756 TSX HSCAN,4 FETCH FIRST BCD WORD 4I182700| 27304 0 00006 0 52230 2B,,6 (6)4I182800| 27305 0441 00 0 52230 LDI 2B PUT IT IN THE TEXT (6)4I182900 27306 0074 00 4 26706 TSX TXTGTR,4 4I183000| 27307 0774 00 1 00000 BCIA AXT **,1 CYCLE TILL ALL WORDS 4I183100| 27310 2 00001 1 27302 TIX BCIB,1,1 ARE IN TEXT 4I183200| 27311 0074 00 4 34140 TSX TSTCC,4 FILE BLINK, BCD, (6)4I183300| 27312 0020 00 0 34140 TRA TSTCC AND ANY ETC'S (6)4I183310 27313 0535 00 4 35154 LAC LNKMK,4 PUT TEXT LENGTH 4I183400| 27314 4634 00 4 27317 SXD *+3,4 IN PARAMETER 4I183500| 27315 0074 00 4 34560 TSX FPCLAG,4 FILE THE BCI WORDS 4I183600| 27316 0 00001 0 35146 CUROPN,,1 4I183700| 27317 4 00000 0 52030 MZE LINK,,** 4I183800 27320 0534 00 4 35146 LXA CUROPN,4 BUMP THE 4I183900| 27321 4754 00 4 00000 PXD ,4 SEPARATION 4I184000| 27322 0074 00 4 36275 TSX SEPBP,4 COUNT 4I184100| 27323 0020 00 0 26640 TRA PASA EXIT 4I184200| 0BINARY CARD ID. MAPJ0058| 27324 0634 00 4 27355 BCICT SXA BCICX,4 4I184400| 27325 0074 00 4 36657 TSX SSCAN,4 FETCH BCI COUNT 4I184500| 27326 4054 00 037700 LFT QTB+EQB+DLB+CMB+PSB+MSB+ASB+SLB 4I184600| 27327 1 77766 1 27330 TXI *+1,1,-CMCDE WAS THE TERMINATOR A COMMA 4I184700 27330 3 00000 1 27357 TXH BCICR,1,0 IF NOT FIND OUT ABOUT IT 4I184800| 27331 4054 00 000074 LFT ALB+PDB+LPB+RPB WAS THE COUNT NUMERIC 4I184900| 27332 0020 00 0 27362 TRA BCICS NO, SEE WHAT IT WAS 4I185000| 27333 4734 00 2 00000 PDX ,2 FETCH THE COUNT 4I185100| 27334 3 00000 2 27337 TXH *+3,2,0 SUBSTITUTE TEN 4I185200 27335 0774 00 1 00012 AXT 10,1 FOR ZERO 4I185300| 27336 0020 00 0 27354 TRA BCICB 4I185400| 27337 0621 00 0 27340 STA *+1 FETCH BCA FORM 4I185500| 27340 0560 00 0 00000 LDQ ** OF COUNT 4I185600| 27341 7 00006 2 27346 TXL BCICD,2,6 IS THE SIZE GREATER THAN 6 DIGITS 4I185700 27342 0074 00 4 25623 TSX ERPR,4 SIZE OF COUNT 4I185800| 27343 0 00000 4 00121 WMS020,NONONO TOO BIG 4I185900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 43 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 27344 4500 00 0 21705 BCICC CAL L(1) USE 4I186000 27345 0020 00 0 27347 TRA BCICA ONE 4I186100| 27346 0074 00 4 37237 BCICD TSX CV.10,4 4I186200| 27347 0734 00 1 00000 BCICA PAX ,1 IS THE COUNT GREATER 4I186300| 27350 7 00200 1 27354 TXL BCICB,1,STLSZ EXCESSIVE COUNT IS DISALLOWED (6)4I186500| 27351 0074 00 4 25623 TSX ERPR,4 AND A COUNT OF 1 IS USED 4I186600 0BINARY CARD ID. MAPJ0059| 27352 0 00000 4 00147 WMS033,NONONO 4I186700| 27353 0774 00 1 00001 AXT 1,1 4I186800| 27354 0634 00 1 35146 BCICB SXA CUROPN,1 STORE COUNT IN OPERATION 4I186900| 27355 0774 00 4 00000 BCICX AXT **,4 4I187000 27356 0020 00 4 00001 TRA 1,4 4I187100| | 27357 0074 00 4 25623 BCICR TSX ERPR,4 UNREADABLE BCI CARD 4I187300| 27360 0 00000 4 00122 WMS021,NONONO 4I187400| 27361 0020 00 0 31117 TRA NULTYP+1 IGNORE CARD (6)4I187500 | 27362 0074 00 4 33310 BCICS TSX A14TYP,4 CONVERT THE 14 TYP TO NUMERIC 4I187700| 27363 0020 00 0 27347 TRA BCICA 4I187800| | * BEGIN 4I188000 27364 BGNTYP SYN * 4I188100| 27364 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I188200| 27365 0074 00 4 34704 TSX FPCPI,4 FIND NEXT PSBF LOCATION 4I188300| 27366 0621 00 0 27442 STA BGNB SAVE PSBF LOCATION 4I188400| 27367 0600 00 0 36346 STZ SWPSOP CLEAR INTERNAL FILE L.C. SWITCH 4I188500 27370 4500 00 0 27462 CAL BGNSCN SET SCAN TO 4I188600| 27371 0602 00 0 36452 SLW SCLFT RECOGNIZE A COMMA 4I188700| 27372 0074 00 4 36662 TSX BSCAN,4 NO, SCAN IT 4I188900| 27373 0621 00 0 27403 STA BGNC SAVE LOCATION OF BCD 4I189200| 27374 4734 00 2 00000 PDX ,2 PICK UP CHARACTER COUNT 4I189300 27375 7 00006 2 27400 TXL *+3,2,6 IS IT TOO BIG 4I189400| 27376 0074 00 4 25623 TSX ERPR,4 YES, FILE AN 4I189500| 27377 0 00000 4 00015 WMS003,NONONO ERROR MESSAGE 4I189600| 0BINARY CARD ID. MAPJ0060| 27400 3 00000 2 27403 TXH *+3,2,0 WAS THE COUNT ZERO 4I189700 27401 4500 00 0 35142 CAL BLCTR YES, USE THE BLANK-BLANK 4I189800| 27402 0602 60 0 27403 SLW* BGNC LOCATION COUNTER 4I189900| 27403 4500 00 0 00000 BGNC CAL ** FETCH THE INTERNAL DEFINITION 4I190000| 27404 0074 00 4 26411 TSX NTLOC,4 OF THE ISOLATED NAME 4I190100| 27405 0074 00 4 32175 TSX DUPLCT,4 FIND ONE WITH 04 CODE $4$4I190200 27406 0634 00 2 27432 SXA BGND,2 SAVE LOCATION $4$4I190300| 27407 0441 00 2 00001 LDI 1,2 $4$4I190400| 27410 4056 00 700000 LNT 700000 HAS PREVIOUS -BEGIN- OCCURED $4$4I190500| 27411 0020 00 0 27415 TRA *+4 NO $4$4I190600| 27412 0074 00 4 25623 TSX ERPR,4 YES, ISSUE WARNING $4$4I190700 27413 0 00000 1 00007 PZE MSS007,GO MESSAGE AND IGNORE $4$4I190800| 27414 0020 00 0 26701 TRA STRTYP $4$4I190900| 27415 0441 00 0 21721 LDI 10WD PUT 10 WORD IN $4$4I191000| 27416 0604 60 0 34723 STI* PIFLOC PSEUDO OP TEXT $4$4I191100| 27417 0074 00 4 26706 TSX TXTGTR,4 $4$4I191200 27420 0441 00 0 27461 LDI BGNWRD PUT -BEGIN- IN $4$4I191300| 27421 0074 00 4 26706 TSX TXTGTR,4 PSEUDO OP TEXT $4$4I191400| 27422 0534 00 2 27432 LXA BGND,2 PICK UP LOCATION $4$4I191500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 44 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 27423 4500 00 0 21726 CAL MSKHO MARK THE DESIGNATED LOCATION-COUNTER 4I191600| 27424 0630 00 2 00001 STP 1,2 AS HAVING A 'BEGIN' 4I191700| 27425 1 77776 2 27426 TXI *+1,2,-2 COMPUTE THE LOCATION OF THE 'BEGIN' 4I191800| 0BINARY CARD ID. MAPJ0061| 27426 0634 00 2 27452 SXA BGNE,2 SAVE IT 4I191900 27427 0634 00 2 27430 SXA *+1,2 PUT THE 'BEGIN' LOCATION 4I192000| 27430 4774 00 4 00000 AXC **,4 INTO THE 'BEGIN' WORD 4I192100| 27431 4634 00 4 52031 SXD LINK+1,4 IN THE PSEUDO-OP TEXT 4I192200| 27432 0774 00 1 00000 BGND AXT **,1 FETCH THE DESIRED 4I192300| 27433 0441 00 1 00000 LDI 0,1 LOCATION COUNTER 4I192400 27434 4500 00 0 27442 CAL BGNB CALL THE 'BEGIN' THE FIRST 4I192500| 27435 0621 00 1 00000 STA 0,1 NAME UNDER THIS COUNTER 4I192600| 27436 0054 00 077777 RFT 77777 WAS THERE ALREADY A FIRST NAME 4I192700| 27437 0020 00 0 27442 TRA BGNB YES, 4I192800| 27440 4500 00 0 34723 CAL PIFLOC NO, CALL THE 'BEGIN' 4I192900 27441 0621 00 1 00001 STA 1,1 THE LAST NAME TOO 4I193000| 27442 4046 00 0 00000 BGNB PIA ** CHAIN THE 'BEGIN' 4I193100| 27443 0621 00 0 52030 STA LINK PSEUDO-OP TO THE 4I193200| 27444 0621 60 0 34723 STA* PIFLOC PREVIOUS FIRST NAME 4I193300| 27445 0535 00 2 27432 LAC BGND,2 PUT THE DESIRED 4I193400 27446 0754 00 2 00000 PXA ,2 LOCATION COUNTER 4I193500| 27447 0044 00 0 00000 PAI INTO THE PSEUDO-OP 4I193600| 27450 0442 00 0 30140 OSI 4WD TEX1, WITH AN 04 4I193700| 27451 0442 00 0 34263 OSI CMTRM ADJECTIVE AND A COMMA 4I193800| 27452 0774 00 2 00000 BGNE AXT **,2 PUT THE 'BEGIN' NAME INTO THE 4I193900 27453 0074 00 4 36320 TSX LCHNE,4 CURRENT LOCATION COUNTER CHAIN 4I194000| 0BINARY CARD ID. MAPJ0062| 27454 4500 60 0 34723 CAL* PIFLOC MAKE THE PSEUDO-OP TEXT AGREE 4I194100| 27455 4602 00 0 52030 ORS LINK WITH THE PSEUDO-PSEUDO OP TEXT 4I194200| 27456 4500 00 0 35156 CAL NMLSC RESTORE NORMAL (6)4I194210 27457 0602 00 0 36452 SLW SCLFT SCAN CONDITIONS (6)4I194300| 27460 0020 00 0 33006 TRA NMLPC CONTINUE WITH THE VARIABLE FIELD 4I194400| | 27461 3 00000 1 00000 BGNWRD PTH ,1 'BEGIN' WORD 4I195200| 27462 4054 00 001000 BGNSCN LFT CMB COMMA FINDER 4I195300 | * BES 4I195500| 27463 BESTYP SYN * 4I195600| 27463 4500 00 0 21461 CAL NAME $4$4I195700| 27464 0602 00 0 33307 SLW NAMEDB $4$4I195800 27465 0074 00 4 27504 TSX BSSCVF,4 TEST FOR CONSTANT VAR FLD 4I195900| 27466 0074 00 4 32763 TSX NMLPSO,4 IF NOT, NORMAL PSEUDO-OP 4I196000| 27467 4 00000 1 00000 FRTG1 FOR 0,1 BES WORD $4$4I196100| | * BOOL 4I196300 27470 BOLTYP SYN * 4I196400| 27470 0074 00 4 27472 TSX BOLA,4 4I196500| 27471 6 00000 0 00000 SIX BOOL WORD 4I196600| 27472 4625 00 0 35160 BOLA STL OCTCNV SET OCTAL SWITCH 4I196700| 27473 4625 00 0 35144 STL BOOLSW SET BOOLEAN SWITCH 4I196800 27474 0020 00 0 32763 TRA NMLPSO 4I196900| | * BSS 4I197100| 27475 BSSTYP SYN * 4I197200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 45 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 27475 0074 00 4 34155 TSX NMLOC,4 PUT THE NAME IN THE DICTIONARY 4I197300| 27476 4500 00 0 21461 CAL NAME $4$4I197400| 27477 0602 00 0 33307 SLW NAMEDB $4$4I197500| 27500 0600 00 0 21461 STZ NAME CLEAR THE NAME CELL 4I197600 27501 0074 00 4 27504 TSX BSSCVF,4 TEST FOR CONSTANT VAR FLD 4I197700| 0BINARY CARD ID. MAPJ0063| 27502 0074 00 4 32763 TSX NMLPSO,4 IF NOT, NORMAL PSEUDO-OP 4I197800| 27503 4 00000 0 00000 FOR BSS WORD 4I197900| * TEST BSS AND BES FOR CONSTANT VARIABLE FIELD 4I198100| * 4I198200| 27504 0634 00 4 27562 BSSCVF SXA BSSCX,4 SAVE RETURN FOR NON-CONST EXIT 4I198300| 27505 4625 00 0 33306 STL DBUGSW $4$4I198400| 27506 0774 00 4 77777 AXT -1,4 INITIALIZE 4I198500 27507 0634 00 4 35154 SXA LNKMK,4 LINK MARK 4I198600| 27510 0074 00 4 27572 TSX BSSWCH,4 SETUP NMLPSO 4I198700| 27511 0 00000 0 27513 PZE *+2 SWITCHING 4I198800| 27512 0020 00 0 33006 TRA NMLPC SCAN VARIABLE FIELD 4I198900| 27513 0441 00 0 52032 LDI LINK+2 4I199000 27514 4051 00 100000 IIL 100000 TEST FOR 4I199100| 27515 4054 00 777500 LFT 777500 CONSTANT FIELD $4$4I199200| 27516 0020 00 0 27555 TRA BSSCVA NO. 4I199300| 27517 0500 00 0 27467 CLA FRTG1 TAG OF 1 $4$4I199400| 27520 4602 00 0 35146 ORS CUROPN $4$4I199500 27521 4046 00 0 00000 PIA IF CONSTANT, SET 4I199600| 27522 0621 00 0 35146 STA CUROPN VALUE IN ADDRESS 4I199700| 27523 0520 00 0 30166 ZET SINSW SPECIAL ACTION $4$4I199800| 27524 0020 00 0 30155 TRA EQUTYQ FOR EQU (SYN) $4$4I199900| 27525 4320 00 0 21723 ANA MSKAD BUMP 4I200000 27526 0767 00 0 00022 ALS 18 SEPARATION COUNT 4I200100| 27527 0074 00 4 36275 TSX SEPBP,4 4I200200| 0BINARY CARD ID. MAPJ0064| 27530 0074 00 4 27572 TSX BSSWCH,4 RESTORE NORMAL 4I200300| 27531 0 00000 0 33024 PZE NMLPF SWITCHING 4I200400 27532 0074 00 4 34155 TSX NMLOC,4 PLACE NAME (FOR BES) 4I200500| 27533 0074 00 4 27572 BSSCVV TSX BSSWCH,4 RESTORE TO NEW $4$4I200600| 27534 0 00000 0 33024 PZE NMLPF CARD CONDITIONS $4$4I200700| 27535 0520 00 0 33161 ZET BUGFLD $4$4I200800| 27536 0020 00 0 27544 TRA BSSDBG $4$4I200900 27537 0074 00 4 34560 TSX FPCLAG,4 OUTPUT OPERAT ION 4I201000| 27540 4 00001 0 35146 MZE CUROPN,,1 AND GO TO PROCESS 4I201100| 27541 0520 00 0 27643 ZET COMNSW EITHER REMAINDER 4I201200| 27542 0020 00 0 27625 TRA CMNA OF 'COMMON' OR 4I201300| 27543 0020 00 0 26640 TRA PASA NEXT CARD 4I201400 | * OUTPUT TEXT FOR DEBUGGING BES,BSS, $4$4I201600| * AND EQU TYPES WITH A CONSTANT VARIABLE FIELD $4$4I201700| 27544 0535 00 4 35154 BSSDBG LAC LNKMK,4 $4$4I201800| 27545 2 00003 4 27546 TIX *+1,4,3 $4$4I201900 27546 4634 00 4 27551 SXD *+3,4 $4$4I202000| 27547 0074 00 4 34560 TSX FPCLAG,4 OUTPUT TEXT FOR $4$4I202100| 27550 0 00001 0 35146 PZE CUROPN,,1 CONSTANT VARIABLE FIELD BSS $4$4I202200| 27551 4 00000 0 52033 MZE LINK+3,,** $4$4I202300| 27552 0520 00 0 27643 ZET COMNSW PROCESS $4$4I202400 1 IBMAPV IBMAPJ 12/01/64 PAGE 46 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 27553 0020 00 0 27625 TRA CMNA FOR COMMON $4$4I202500| 27554 0020 00 0 26640 TRA PASA OR NEXT CARD $4$4I202600| NON-CONSTANT FIELD 4I202700 27555 0500 00 0 35154 BSSCVA CLA LNKMK SAVE OLD 4I202800| 0BINARY CARD ID. MAPJ0065| 27556 0601 00 0 27607 STO BSLNKM LINK MARK 4I202900| 27557 0600 00 0 35154 STZ LNKMK CLEAR NEW 4I203000| 27560 0074 00 4 27572 TSX BSSWCH,4 SETUP PSEUD-OP 4I203100 27561 0 00000 0 27564 PZE BSSCVB SWITCHING 4I203200| 27562 0774 00 4 00000 BSSCX AXT **,4 EXIT TO 4I203300| 27563 0020 00 4 00001 TRA 1,4 PROCESS 4I203400| | 27564 0074 00 4 27572 BSSCVB TSX BSSWCH,4 RESTORE NORMAL 4I203600 27565 0 00000 0 33024 PZE NMLPF SWITCHING 4I203700| 27566 0500 00 0 27607 CLA BSLNKM SET LINK 4I203800| 27567 0601 00 0 35154 STO LNKMK MARK AND 4I203900| 27570 0600 00 0 27607 STZ BSLNKM CLEAR SWITCH (6)4I203910| 27571 0020 00 0 33024 TRA NMLPF GO TO FINISH 4I204000 | 27572 0500 00 0 21461 BSSWCH CLA NAME SWITCH CELLS 4I204200| 27573 0560 00 0 27605 LDQ BSSNME 'NAME' AND 4I204300| 27574 0601 00 0 27605 STO BSSNME 'BSSNME' 4I204400| 27575 4600 00 0 21461 STQ NAME 4I204500 27576 0500 00 0 26564 CLA SWLOFN ALSO SWITCH $4$4I204600| 27577 0560 00 0 27606 LDQ BSSNME+1 ERROR INDICATORS $4$4I204700| 27600 4600 00 0 26564 STQ SWLOFN $4$4I204800| 27601 0601 00 0 27606 STO BSSNME+1 $4$4I204900| 27602 0500 00 4 00001 CLA 1,4 SET TRANSFER 4I205000 27603 0621 00 0 33023 STA NMLPS IN SWITCH (6)4I205100| 0BINARY CARD ID. MAPJ0066| 27604 0020 00 4 00002 TRA 2,4 EXIT 4I205200| | 27605 0 00000 0 00000 BSSNME PZE ** STORAGE FOR NAME 4I205400 27606 0 00000 0 00000 PZE ** $4$4I205500| 27607 0 00000 0 00000 BSLNKM PZE ** STORAGE FOR LNKMK 4I205600| | * COMMON 4I205800| 27610 CMNTYP SYN * 4I205900 27610 4625 00 0 27643 STL COMNSW SET THE COMMON SWITCH 4I206000| 27611 0441 00 0 21443 LDI BLINK USE THE CURRENT BLINK 4I206100| 27612 0442 00 0 27642 OSI CMNB WITH NON-PRINT BITS 4I206200| 27613 0604 00 0 32254 STI WTEMP AS A DUMMY BLINK 4I206300| 27614 4625 00 0 32107 STL CUSA TRICK THE 'USE' PROGRAM INTO 4I206400 27615 0761 00 0 32141 NOP USETE SEEING A // 4I206500| 27616 4625 00 0 32163 STL CUSB ALTER THE EXIT FROM 'USE' 4I206600| 27617 0761 00 0 27621 NOP *+2 4I206700| 27620 0020 00 0 32074 TRA USETYP GO TO 'USE' 4I206800| 27621 0074 00 4 34560 TSX FPCLAG,4 WRITE DUMMY 4I206900 27622 0 00001 0 32254 WTEMP,,1 BLINK AND THE 4I207000| 27623 4 00001 0 32170 MZE USETA,,1 'USE //' TEXT 4I207100| 27624 0020 00 0 27475 TRA BSSTYP TREAT 'COMMON' AS A 'BSS' 4I207200| 27625 0441 00 0 21443 CMNA LDI BLINK USE THE CURRENT BLINK 4I207300| 27626 0442 00 0 27642 OSI CMNB WITH NON-PRINT BITS 4I207400 27627 0604 00 0 32254 STI WTEMP AS A DUMMY BLINK 4I207500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 47 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 27630 4625 00 0 32107 STL CUSA TRICK 'USE' INTO 4I207600| 27631 0761 00 0 32123 NOP PLOC SEEING A 'PREVIOUS' 4I207700 0BINARY CARD ID. MAPJ0067| 27632 4625 00 0 32163 STL CUSB ALTER THE EXIT FROM 'USE' 4I207800| 27633 0761 00 0 27635 NOP *+2 4I207900| 27634 0020 00 0 32074 TRA USETYP GO TO 'USE' 4I208000| 27635 0074 00 4 34560 TSX FPCLAG,4 WRITE THE DUMMY 4I208100 27636 0 00001 0 32254 WTEMP,,1 BLINK AND THE 4I208200| 27637 4 00001 0 32170 MZE USETA,,1 'USE PREVIOUS' TEXT 4I208300| 27640 0600 00 0 27643 STZ COMNSW CLEAR THE COMMON SWITCH 4I208400| 27641 0020 00 0 26640 TRA PASA 4I208500| 27642 0 00002 4 00000 CMNB ,4,2 4I208600 27643 000000000000 COMNSW VFD COMMON SWITCH 4I208700| | * DEC 4I208900| 27644 DECTYP SYN * 4I209000| 27644 0074 00 4 34222 TSX DGENTA,4 SET UP DATA-GENERATING SCAN 4I209100 27645 0074 00 4 37313 DECA TSX DBCNV,4 FETCH ONE NUMBER 4I209300| 27646 0074 00 4 33342 TSX DECER,4 4I209400| 27647 0074 00 4 34231 TSX DGENTB,4 SEND NUMBER TO TEXT 4I209500| 27650 0020 00 0 27645 TRA DECA RETURN FOR NEXT NUMBER 4I209600| 27651 0074 00 4 34247 DECB TSX DGENTC,4 SEND TEXT TO THE OUTPUT BUFFER 4I209700 27652 0534 00 4 52030 LXA LINK,4 BUMP THE 4I209800| 27653 4754 00 4 00000 PXD ,4 SEPARATION 4I209900| 27654 0074 00 4 36275 TSX SEPBP,4 COUNT 4I210000| 27655 0020 00 0 26640 TRA PASA 4I210100| 27656 DECDBG SYN * $4$4I210300| * SPECIAL DEC TYPE IF IN DEBUGGING MODE $4$4I210400| 27656 0774 00 4 34244 AXT DGENB-1,4 MODIFY DGENTB $4$4I210500| 27657 0634 00 4 34240 SXA DGENBB,4 ROUTINE $4$4I210600| 0BINARY CARD ID. MAPJ0068 27660 0074 00 4 34222 TSX DGENTA,4 OUTPUT OP AND LOC $4$4I210700| 27661 0074 00 4 37313 DDECA TSX DBCNV,4 SCAN AND CONVERT $4$4I210900| 27662 0074 00 4 33342 TSX DECER,4 CHECK FOR ERROR $4$4I211000| 27663 0534 00 4 35154 LXA LNKMK,4 $4$4I211100| 27664 4500 00 0 21705 CAL L(1) SET FOR 1 $4$4I211200 27665 0621 00 4 52027 STA LINK-1,4 INTO OPERATION ADD. $4$4I211300| 27666 0441 00 4 52027 LDI LINK-1,4 $4$4I211400| 27667 4500 00 0 21717 CAL 1DECR $4$4I211500| 27670 4520 00 0 40137 NZT DB8DP DOUBLE PRECISION $4$4I211600| 27671 0020 00 0 27676 TRA *+5 $4$4I211700 27672 4055 00 001600 SIL 1600 INDICATE DOUBLE $4$4I211800| 27673 0051 00 000003 IIR 3 CHANGE 1 TO 2 $4$4I211900| 27674 0767 00 0 00001 ALS 1 BUMP SEPARATION COUNT $4$4I212000| 27675 0020 00 0 27702 TRA DDECC $4$4I212100| 27676 4055 00 000700 SIL 700 $4$4I212200 27677 4520 00 0 27716 NZT FLOAT $4$4I212300| 27700 4057 00 000200 RIL 200 $4$4I212400| 27701 0600 00 0 27716 STZ FLOAT IN CASE NEXT IS A BLANK $4$4I212500| 27702 0604 00 4 52027 DDECC STI LINK-1,4 MODIFIED OPERATION $4$4I212600| 27703 0074 00 4 36275 TSX SEPBP,4 BUMP SEPARATION COUNT $4$4I212700 27704 0074 00 4 34231 TSX DGENTB,4 OUTPUT 1 OR 2 WORDS $4$4I212800| 27705 0020 00 0 27712 TRA DDECD FOR NEXT ELEMENT $4$4I212900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 48 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0069 27706 0074 00 4 34247 TSX DGENTC,4 OUTPUT ALL TEXT $4$4I213000| 27707 0774 00 4 34241 AXT DGENBB+1,4 RESTORE $4$4I213100| 27710 0634 00 4 34240 SXA DGENBB,4 DGENTB $4$4I213200| 27711 0020 00 0 26640 TRA PASA AND EXIT $4$4I213300| 27712 0441 00 0 27715 DDECD LDI SPEC71 $4$4I213400 27713 0074 00 4 26706 TSX TXTGTR,4 $4$4I213500| 27714 0020 00 0 27661 TRA DDECA $4$4I213600| 27715 710001000000 SPEC71 VFD O6/71,12/1,18/0 $5$4I213700| 27716 0 00000 0 00000 FLOAT $4$4I213800| * DETAIL 4I214000| 27717 DETTYP SYN * 4I214100| 27717 0600 00 0 35171 STZ TIDESW CLEAR TITLE SWITCH 4I214200| 27720 0020 00 0 27271 TRA ABSTA 4I214300| * EJECT 4I214500| 32037 EJCTYP SYN SPCTYP COLLECT VARIABLE FIELD, IF ANY (6)4I214600| | * END 4I214900| 27721 ENDTYP SYN * 4I215000 27721 0074 00 4 34155 TSX NMLOC,4 ENTER NAME, IF ANY, IN DICTIONARY (6)4I215100| 27722 0500 00 0 30032 ENDD CLA ENDC CHANGE CALL TO OMIT (6)4I215200| 27723 0520 00 0 21455 ZET SWLNKG+1 LINKAGE DIRECTOR IF (6)4I215210| 27724 0601 00 0 27745 STO ENDB-1 PREVIOUSLY ASSEMBLED (6)4I215220| 27725 0441 00 0 35146 LDI CUROPN FETCH THE OPERATION (6)4I215230 27726 4055 00 000700 SIL 700 SET CONTINUATION FLAG FOR TEXT (6)4I215300| 27727 0074 00 4 26706 TSX TXTGTR,4 4I215400| 27730 0600 00 0 35174 STZ UNLSW CLEAR UNLIST SWITCH 4I215500| 27731 4625 00 0 30035 STL ENDA SET 'END CARD' SWITCH 4I215600| 27732 0074 00 4 33444 TSX SCAFLD,4 SCAN THE VARIABLE FIELD 4I215900 27733 0520 00 0 35166 ZET SWCVFE TEST FOR $4$4I216100| 0BINARY CARD ID. MAPJ0070| 27734 0020 00 0 27732 TRA *-2 END OF FIELD (6)4I216200| 27735 0535 00 4 35154 LAC LNKMK,4 ENTER THE VARIABLE 4I216300| 27736 4634 00 4 27746 SXD ENDB,4 FIELD SIZE 4I216400 27737 0534 00 4 21467 LXA PDLOC,4 TEST FOR ALL $4$4I216500| 27740 1 25247 4 27741 TXI *+1,4,-PDLST-1 SECTIONS CLOSED $4$4I216600| 27741 7 00000 4 27744 TXL *+3,4,0 $4$4I216700| 27742 0074 00 4 25623 TSX ERPR,4 IF NOT, MESSAGE $4$4I216800| 27743 0 00000 4 00146 PZE WMS032,NONONO 'ONE OR MORE SECTIONS NOT CLOSED$4$4I216900 27744 0074 00 4 34560 TSX FPCLAG,4 WRITE THE INTERNAL TEXT 4I217000| 27745 0 00002 0 30033 LDRLRG,,2 4I217100| 27746 0 00000 0 52030 ENDB LINK,,** AND TERMINATE 4I217200| 27747 0 00001 0 34753 56WD,,1 THE 4I217300| 27750 1 00001 0 21704 PON L(0),,1 BUFFERS 4I217400 27751 5 00001 0 21704 MON L(0),,1 4I217500| 27752 0074 00 4 35440 TSX CLOSED,4 DUPLICATE FILE $5$4I217550| 27753 0774 00 2 27755 AXT *+2,2 TERMINATE THE PSEUDO-OP BUFFER 4I217600| 27754 0020 00 0 34627 TRA FPCPD 4I217700| 27755 0774 00 2 27757 AXT PASX,2 TERMINATE OUTPUT BUFFER $4$4I217800 27756 0020 00 0 34754 TRA FPCGB AND EXIT THE FIRST PASS 4I217900| | 27757 BEGIN P1E,* CONTINUE WITH PASS ONE TERMINATION(6)4I218100| 30032 USE P1C SWITCH TO NEW COUNTER (6)4I218200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 49 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 | 0BINARY CARD ID. MAPJ0071| 30032 0 00001 0 30034 ENDC LDRLRG+1,,1 (6)4I218310| 30033 640005000001 LDRLRG VFD O6/64,12/5,18/1 LDIR WORD 4I218400 30034 640004000001 VFD O6/64,12/4,18/1 LORG WORD 4I218500| 30035 000000000000 ENDA VFD END SWITCH 4I218600| | * ENDQ 4I218800| 30036 NDQTYP SYN * 4I218900 30036 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I219000| 30037 0600 00 0 30136 STZ NDQA CLEAR DUPLICATE QUAL SWITCH 4I219100| 30040 0534 00 4 21467 LXA PDLOC,4 CHECK PUSH DOWN $5$4I219105| 30041 3 52531 4 30045 TXH NDQOK,4,PDLST+1 LIST, IF NOTHING $5$4I219110| 30042 0074 00 4 25623 TSX ERPR,4 THERE, TREAT CARD AS $5$4I219120 30043 0 00000 1 00064 PZE WMS014,GO A COMMENT $5$4I219130| 30044 0020 00 0 26701 TRA STRTYP $5$4I219140| 30045 0074 00 4 36657 NDQOK TSX SSCAN,4 $5$4I219200| 30046 4054 00 000000 LFT 0 4I219300| 30047 4734 00 4 00000 PDX ,4 PICK UP CHARACTER COUNT 4I219400 30050 7 00000 4 30122 TXL NDQD,4,0 IF NO COUNT,ASSUME LAST NAME 4I219500| 30051 7 00006 4 30054 TXL *+3,4,6 CHECK COUNT SIZE 4I219600| 30052 0074 00 4 25623 TSX ERPR,4 4I219700| 30053 0 00000 4 00015 WMS003,NONONO 4I219800| 30054 0621 00 0 30055 STA *+1 4I219900 30055 4500 00 0 00000 CAL ** 4I220000| 30056 0074 00 4 26411 TSX NTLOC,4 LOOK UP THE NAME 4I220100| 30057 4120 00 0 30125 TMI NDQERA NO SUCH NAME 4I220200| 0BINARY CARD ID. MAPJ0072| 30060 0074 00 4 33354 TSX FINDTP,4 FIND A QUAL 4I220300 30061 050000000000 VFD O6/05 ENTRY 4I220400| 30062 0020 00 0 30125 TRA NDQERA NO QUAL 4I220500| 30063 4625 00 0 30136 STL NDQA SET MULTIPLE QUAL SWITCH 4I220600| 30064 0535 00 1 21467 NDQB LAC PDLOC,1 CHECK THE NAME 4I220700| 30065 0754 00 2 00000 PXA ,2 AGAINST 4I220800 30066 0402 00 0 30137 SUB 1WD THE 4I220900| 30067 0322 00 1 77777 ERA -1,1 PUSH-DOWN 4I221000| 30070 4320 00 0 21723 ANA MSKAD LIST 4I221100| 30071 4100 00 0 33365 TNZ FINDB NAMES ARE NOT THE SAME 4I221200| 30072 0074 00 4 26607 NDQF TSX INDUM,4 PUT AN ENDQ NAME 4I221300 30073 4500 00 0 30143 CAL 6WD INTO THE 4I221400| 30074 0602 00 2 00000 SLW ,2 DICTIONARY 4I221500| 30075 4754 00 2 00000 PXD ,2 STORE 'ENDQ' 4I221600| 30076 0771 00 0 00003 ARS 3 IN THE 4I221700| 30077 0402 00 0 32171 SUB 16WD DICTIONARY ENTRY 4I221800 30100 0535 00 1 21467 LAC PDLOC,1 OF THE 'QUAL' 4I221900| 30101 0622 60 1 77777 STD* -1,1 FOR THIS AREA 4I222000| 30102 0625 60 1 77777 STT* -1,1 4I222100| 30103 0074 00 4 36320 TSX LCHNE,4 CHAIN NAME TO LOCATION COUNTER 4I222200| 30104 0534 00 1 21467 LXA PDLOC,1 SHORTEN THE 4I222300 30105 1 77777 1 30106 TXI *+1,1,-1 PUSH-DOWN 4I222400| 0BINARY CARD ID. MAPJ0073| 30106 0634 00 1 21467 SXA PDLOC,1 LIST 4I222500| 30107 0600 60 0 21467 STZ* PDLOC 4I222600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 50 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30110 0074 00 4 35027 TSX INHANE,4 WRITE BLINK AND BCD 4I222700| 30111 4500 00 0 34724 CAL PSOPLC BUMP PSBF POINTER 4I222800| 30112 0361 00 0 21706 ACL L(2) 4I222900| 30113 0621 00 0 34724 STA PSOPLC 4I223000 30114 0361 00 0 21705 ACL L(1) 4I223100| 30115 0621 00 0 30145 STA NDQE 4I223200| 30116 0074 00 4 34560 TSX FPCLAG,4 WRITE 4I223300| 30117 0 00001 0 35146 CUROPN,,1 INTERNAL AND 4I223400| 30120 5 00002 0 30144 MON NDQE-1,,2 PSEUDO-OP TEXTS 4I223500 30121 0020 00 0 26640 TRA PASA 4I223600| 30122 0074 00 4 25623 NDQD TSX ERPR,4 NO NAME IN 4I223700| 30123 0 00000 1 00065 WMS015,GO 'ENDQ' STATEMENT 4I223800| 30124 0020 00 0 30072 TRA NDQF 4I223900| 30125 0520 00 0 30136 NDQERA ZET NDQA WAS THERE AN 05 ENTRY 4I224000 30126 0020 00 0 30132 TRA NDQERB YES, SEE IF THERE IS A DUPLICATE 4I224100| 30127 0074 00 4 25623 TSX ERPR,4 UNDEFINED NAME 4I224200| 30130 0 00000 4 00063 WMS013,NONONO IN AN 'ENDQ' STATEMENT 4I224300| 30131 0020 00 0 30072 TRA NDQF 4I224400| 30132 0074 00 4 25623 NDQERB TSX ERPR,4 WRONG NAME IN AN 4I224500 30133 0 00000 4 00064 WMS014,NONONO 'ENDQ' STATEMENT 4I224600| 0BINARY CARD ID. MAPJ0074| 30134 0600 00 0 30136 STZ NDQA CLEAR DUPLICATE QUAL SWITCH 4I224700| 30135 0020 00 0 30072 TRA NDQF 4I224800| 30136 000000000000 NDQA VFD DUPLICATE QUAL SWITCH 4I224900 30137 010000000000 1WD VFD O6/1 (6)4I224910| 30140 040000000000 4WD VFD O6/4 (6)4I224920| 30141 070000000000 7WD VFD O6/7 (6)4I224930| 30142 050000000000 5WD VFD O6/5 4I225000| 30143 060000000000 6WD VFD O6/6 4I225100 30144 060000000000 VFD O6/06 4I225200| 30145 700000000000 NDQE VFD O6/70 4I225300| | * EQU 4I225500| 30146 EQUTYP SYN * 4I225600 30146 4625 00 0 33056 STL SIR6 INDICATE EQUAL $4$4I225700| 30147 4625 00 0 30166 STL SINSW SET THE 'SYN' SWITCH 4I225800| 30150 4500 00 0 21461 CAL NAME $4$4I225900| 30151 0602 00 0 33307 SLW NAMEDB $4$4I226000| 30152 0074 00 4 27504 TSX BSSCVF,4 $4$4I226100 30153 0074 00 4 32763 TSX NMLPSO,4 4I226200| 30154 5 00001 0 00000 FVE ,,1 EQU WORD 4I226300| | RETURN HERE IF VF IS CONSTANT $4$4I226500| 30155 0600 00 0 30166 EQUTYQ STZ SINSW CLEAR SWITCH $4$4I226600 30156 0074 00 4 27572 TSX BSSWCH,4 RESTORE NORMAL $4$4I226700| 30157 0 00000 0 33024 PZE NMLPF SWITCHING $4$4I226800| 30160 0074 00 4 26506 TSX PLNME,4 $4$4I226900| 30161 4500 00 0 36253 CAL BLANKS SET DICTIONARY $4$4I227000| 0BINARY CARD ID. MAPJ0075 30162 0630 00 2 00000 STP 0,2 WITH (CONSTANT) $4$4I227100| 30163 0500 00 0 35146 CLA CUROPN DEFINED $4$4I227200| 30164 0621 00 2 00000 STA 0,2 VALUE $4$4I227300| 30165 0020 00 0 27533 TRA BSSCVV EXIT $4$4I227400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 51 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30166 0 00000 0 00000 SINSW PZE ** $4$4I227600| | * ETC 4I227800 30167 ETCTYP SYN * 4I227900| 30167 0074 00 4 25623 TSX ERPR,4 ILLEGAL USE OF 4I228000| 30170 0 00000 1 00116 WMS018,GO AN 'ETC' CARD 4I228100| 30171 0020 00 0 26701 TRA STRTYP 4I228200| * EVEN 4I228400| 30172 EVNTYP SYN * 4I228500| 30172 0520 00 0 21436 ZET M94SL2 IS THE EVEN SWITCH SET $4$4I228600| 30173 0020 00 0 26701 TRA STRTYP IF SO OUTPUT EVEN AS REMA $4$4I228700| 30174 0074 00 4 34175 TSX NONAME,4 CHECK FOR LOC FIELD ERROR $4$4I228800 30175 0520 00 0 21426 ZET SWABS IS THIS AN ABSOLUTE ASSEM $4$4I228900| 30176 0020 00 0 30206 TRA NVETYP YES, JUST MAKE PSEUDO-OP $4$4I229000| 30177 0534 00 1 34724 LXA PSOPLC,1 USE THE CURRENT PSEUDO-OP $4$4I229100| 30200 0754 00 1 00000 PXA 0,1 TO MAKE CONTROL DICTIONAR $4$4I229200| 30201 4760 00 0 00003 SSM $4$4I229300 30202 0601 00 0 40676 STO CTL.KY $4$4I229400| 30203 4625 00 0 40677 STL CTL.SW $4$4I229500| 30204 0774 00 1 00000 AXT 0,1 $4$4I229600| 30205 0074 00 4 40630 TSX CTL.PL,4 GO MAKE CONTROL DICTIONAR $4$4I229700| 30206 4625 00 0 35164 NVETYP STL PSOWNF SET 'NO FIELD' SWITCH $4$4I229800 30207 0074 00 4 32763 TSX NMLPSO,4 MAKE PSEUDO-OP DICTIONARY $4$4I229900| 0BINARY CARD ID. MAPJ0076| 30210 4 00000 3 00000 FOR ,3 EVEN WORD $4$4I230000| | * FUL 4I231500 27267 FULTYP SYN ABSTYP FUL (FULL BINARY CARD) 4I231600| | * GO TO $4$4I231800| 30211 GOTTYP BSS 0 $4$4I231900| 30211 0074 00 4 34175 TSX NONAME,4 ELIMINATE LOCN FIELD $4$4I232000 30212 4625 00 0 35145 STL CCDSW THIS + SKIPPED CARDS AS CONTROL (6)4I232010| 30213 0074 00 4 36657 TSX SSCAN,4 SCAN FIRST $4$4I232100| 30214 4054 00 001000 LFT CMB SUBFIELD $4$4I232200| 30215 4054 00 036700 LFT EQB+DLB+PSB+MSB+SLB+QTB+ASB $4$4I232300| 30216 0020 00 0 30263 TRA GOTERR $4$4I232400 30217 4734 00 4 00000 PDX 0,4 IGNORE IF NOT $4$4I232500| 30220 3 00006 4 30263 TXH GOTERR,4,6 LEGITIMATE SYMBOL $4$4I232600| 30221 0560 00 0 25607 LDQ 77WD (6)4I232700| 30222 7 00000 4 30225 TXL *+3,4,0 FETCH SYMBOL $4$4I232800| 30223 0621 00 0 30224 STA *+1 FOR COMPARISON $4$4I232900 30224 0560 00 0 00000 LDQ ** AND PLACE IN $4$4I233000| 30225 4600 00 0 30266 STQ SWGOTO GOTO SWITCH (6)4I233100| 30226 0074 00 4 36662 GOTAA TSX BSCAN,4 OBTAIN NEXT FIELD (6)4I233200| 30227 0737 00 4 00000 PAC ,4 (6)4I233300| 30230 4500 00 4 00000 CAL 0,4 (6)4I233310 30231 0774 00 2 00010 AXT GOWLN,2 (6)4I233400| 30232 4340 00 2 30303 LAS GOWDTB,2 (6)4I233410| 30233 0020 00 0 30235 TRA *+2 (6)4I233420| 30234 0522 00 2 30304 XEC GOWDTB+1,2 (6)4I233430| 30235 2 00001 2 30232 TIX *-3,2,1 (6)4I233440 0BINARY CARD ID. MAPJ0077| 1 IBMAPV IBMAPJ 12/01/64 PAGE 52 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30236 3 00000 1 30226 TXH GOTAA,1,0 GO BACK IF MORE FIELDS (6)4I233500| 30237 0074 00 4 44274 GOTA TSX MCDPR,4 OUTPUT AND FETCH NEXT $4$4I233600 | 30240 4520 00 0 30266 GOTB NZT SWGOTO EXIT IF -ENDM- $4$4I233800| 30241 0020 00 0 30257 TRA GOTE OR -IRP- INTERVENED (6)4I233900| 30242 4500 00 0 21461 CAL NAME $4$4I234000| 30243 0322 00 0 30266 ERA SWGOTO EXIT IF $4$4I234100 30244 0100 00 0 30252 TZE GOTC FOUND $4$4I234200| 30245 0074 00 4 36400 TSX GTDICT,4 GET INTERNAL TEXT (2)4I234300| 30246 0322 00 0 44245 ERA MCSPE-2 COMPARE WITH INTER. TEXT OF 'END' (2)4I234400| 30247 4100 00 0 30237 TNZ GOTA CONTINUE SKIPPING IF NOT END (6)4I234500| 30250 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE - '-END- CANNOT (6)4I234600 30251 0 00000 1 00117 MSS060,GO OCCUR IN RANGE OF A -GOTO-.' (6)4I234700| 30252 0600 00 0 30266 GOTC STZ SWGOTO CLEAR SWITCH $4$4I235400| 30253 4520 00 0 30267 NZT SWBLNK EXIT IF NO (6)4I235500| 30254 0020 00 0 30257 TRA GOTE SYMBOL IGNORE (6)4I235600| 30255 0600 00 0 21461 STZ NAME OTHERWISE, CLEAR (6)4I235700 30256 0600 00 0 26564 STZ SWLOFN FIRST $4$4I235800| 30257 0774 00 2 00004 GOTE AXT GOWLN/2,2 RESET (6)4I235810| 30260 0600 00 2 30273 STZ SWBLNK+GOWLN/2,2 SWITCHES (6)4I235820| 30261 2 00001 2 30260 TIX *-1,2,1 FOR NEXT USE (6)4I235830| 30262 0020 00 0 26640 TRA PASA $4$4I235900 | 30263 0074 00 4 25623 GOTERR TSX ERPR,4 'FORMAT ERROR IN $4$4I237700| 0BINARY CARD ID. MAPJ0078| 30264 0 00000 2 00060 PZE MSS033,NOGO FIRST SUBFIELD $4$4I237800| 30265 0020 00 0 26701 TRA STRTYP TREAT AS REMARK $4$4I237900 | 30266 0 00000 0 00000 SWGOTO PZE ** SWITCH $4$4I238100| 30267 0 00000 0 00000 SWBLNK ** SWITCH TO IGNORE NAME (6)4I238110| 30270 0 00000 0 00000 SWGPI ** SWITCH TO GO PAST BEGIN OR END IRP(6)4I238120| 30271 0 00000 0 00000 SWGPM ** SWITCH TO GO PAST END OF MACRO (6)4I238130 30272 0 00000 0 00000 SWENDI ** SWITCH TO SKIP IRP ITERATIONS (6)4I238140| 30273 224321454260 GOT.WD BCI 1,BLANK COMPARISON WORD $4$4I238200| 30274 4625 00 0 30267 STL SWBLNK (6)4I238210| 30275 472162633160 BCI 1,PASTI (6)4I238220| 30276 4625 00 0 30270 STL SWGPI (6)4I238230 30277 472162634460 BCI 1,PASTM (6)4I238240| 30300 4625 00 0 30271 STL SWGPM (6)4I238250| 30301 624231473160 BCI 1,SKIPI (6)4I238260| 30302 4625 00 0 30272 STL SWENDI (6)4I238270| 30303 GOWDTB EQU * (6)4I238280 00010 GOWLN EQU GOWDTB-GOT.WD (6)4I238290| | * IFF $4$4I238400| 30303 IFFTYP SYN * 4I238500| 30303 0600 00 0 30502 STZ IFASMB CLEAR THE 'IF TRUE' SWITCH 4I238600 30304 0020 00 0 30306 TRA IFTTYP+1 PROCESS THE SAME AS 'IFT' 4I238700| | * IFT 4I238900| 30305 IFTTYP SYN * 4I239000| 30305 4625 00 0 30502 STL IFASMB SET THE 'IF TRUE' SWITCH 4I239100 30306 4625 00 0 35145 STL CCDSW TREAT AS CONTROL CARD $4$4I239400| 30307 0074 00 4 34175 TSX NONAME,4 4I239500| 30310 0074 00 4 30320 TSX IFSCAN,4 SCAN CONDITIONS 4I239600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 53 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 30311 0074 00 4 34560 TSX FPCLAG,4 WRITE THE INSTRUCTION 4I239700| 0BINARY CARD ID. MAPJ0079| 30312 4 00001 0 26705 MZE 75WD1,,1 AS A REMARK 4I239800| 30313 4520 00 0 30504 NZT TRUFLS WAS THE CONDITION TRUE 4I239900| 30314 0020 00 0 26640 TRA PASA YES, ASSEMBLE THE NEXT INSTR. 4I240000 30315 4625 00 0 35166 STL SWCVFE ENABLE INHAND READ (6)4I240010| 30316 4625 00 0 30266 STL SWGOTO (6)4I240020| 30317 0020 00 0 34257 TRA NOTEFA NO, SKIP THE NEXT INSTRUCTION 4I240100| | 30320 0634 00 4 30371 IFSCAN SXA IFSX,4 SAVE THE RETURN 4I240300 30321 0074 00 4 34132 TSX TSTETC,4 IS THERE A FIELD TO SCAN 4I240400| 30322 1 77762 1 30324 TXI *+2,1,-SLCDE YES (6)4I240500| 30323 0020 00 0 30373 TRA IFSA NO, FILE AN ERROR MESSAGE 4I240600| 30324 0634 00 0 30351 ZSA IFSGB INITIALIZE TEST TO = (6)4I240700| 30325 3 00000 1 30335 TXH IFSI,1,0 TEST CHARACTER FOR / (6)4I240800 30326 0074 00 4 30450 TSX IFSH,4 SCAN THE BCD 4I241200| 30327 4056 00 000200 LNT EQB NOW, WAS IT = 4I241300| 30330 0020 00 0 30373 TRA IFSA NO, GIVE UP 4I241400| 30331 0602 00 0 30501 SLW IFSB SAVE THE FIRST OPERAND (6)4I241500| 30332 0074 00 4 30401 TSX IFSC,4 TEST IF = FOLLOWED BY + OR - (6)4I243000 30333 0074 00 4 30450 TSX IFSH,4 COLLECT SECOND STRING (6)4I243100| 30334 0020 00 0 30351 TRA IFSGB GO TO COMPARE (6)4I243200| 30335 0074 00 4 33444 IFSI TSX SCAFLD,4 SCAN FIRST FIELD (6)4I243300| 30336 0074 00 4 34420 TSX EVLFLD,4 AND EVALUATE IT (6)4I243400| 30337 0602 00 0 30501 SLW IFSB SAVE THE VALUE (6)4I243500 0BINARY CARD ID. MAPJ0080| 30340 0535 00 1 33510 LAC SCAT,1 DID = SIGN TERMINATE FIELD (6)4I243600| 30341 1 00010 1 30342 TXI *+1,1,EQCDE (6)4I243700| 30342 4754 00 0 00000 ZAC MAKE SECOND FIELD (6)4I243800| 30343 3 00000 1 30351 TXH IFSGB,1,0 ZERO IF NOT (6)4I243900 30344 0074 00 4 30401 TSX IFSC,4 TEST + OR - FOLLOWING = (6)4I244000| 30345 0074 00 4 33444 TSX SCAFLD,4 SCAN AND (6)4I244100| 30346 0534 00 1 33510 LXA SCAT,1 (6)4I244200| 30347 0634 00 1 30367 SXA IFSKA,1 (6)4I244300| 30350 0074 00 4 34420 TSX EVLFLD,4 EVALUATE SECOND FIELD (6)4I244400 30351 0774 00 4 00000 IFSGB AXT **,4 PICK UP THE COMPARISON TYPE 4I244800| 30352 4340 00 0 30501 LAS IFSB MAKE THE COMPARISON 4I244900| 30353 1 00001 4 30356 TXI *+3,4,1 4I245000| 30354 1 00000 4 30356 TXI *+2,4,0 4I245100| 30355 1 77777 4 30356 TXI *+1,4,-1 4I245200 30356 0520 00 0 30502 IFSGC ZET IFASMB IS THIS AN 'IFT' 4I245300| 30357 0020 00 0 30363 TRA *+4 YES, USE THE RESULT AS IS 4I245400| 30360 3 00000 4 30362 TXH *+2,4,0 NO, REVERSE THE 4I245500| 30361 1 00001 4 30363 TXI *+2,4,1 4I245600| 30362 0774 00 4 00000 AXT 0,4 CONDITION 4I245700 30363 0754 00 4 00000 PXA ,4 PLACE THE RESULT IN THE ACC 4I245800| 30364 0520 00 0 30503 ZET IFMORE WAS THERE A PRECEEDING 'AND' OR 'OR' 4I245900| 30365 0020 00 0 30471 TRA IFSKB YES, 4I246000| 0BINARY CARD ID. MAPJ0081| 30366 0602 00 0 30504 IFSK SLW TRUFLS STORE THE RESULT 4I246100 30367 0774 00 1 00000 IFSKA AXT **,1 PICK UP THE TERMINATOR 4I246200| 30370 3 00000 1 30445 TXH IFSF,1,0 TRANSFER ON A COMMA 4I246300| 30371 0774 00 4 00000 IFSX AXT **,4 YES, EXIT 4I246600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 54 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 30372 0020 00 4 00001 TRA 1,4 4I246700| 30373 0074 00 4 25623 IFSA TSX ERPR,4 IMPROPER USE OF AN 'IFF' OR 'IFT' 4I246800| 30374 0 00000 4 00145 WMS031,NONONO TEST IGNORED 4I246900| 30375 0074 00 4 44274 TSX MCDPR,4 OUTPUT CARD AND (6)4I247000| 30376 0100 00 0 44274 TZE MCDPR ANY ETC'S (6)4I247100 30377 0634 00 0 30367 ZSA IFSKA SET FOR BLANK TERMINATOR (6)4I247200| 30400 0074 00 4 30356 TSX IFSGC,4 ASSUME 'CONDITION NOT MET' 4I247400| 30401 0634 00 4 30420 IFSC SXA IFSCX,4 (6)4I247500| 30402 0074 00 4 34132 TSX TSTETC,4 IS TERMINATOR TRUE BLANK (6)4I247510| 30403 0020 00 0 30405 TRA *+2 NO (6)4I247520 30404 0020 00 0 30373 TRA IFSA YES, BAD FORMAT (6)4I247530| 30405 0441 00 0 21704 LDI L(0) EXAMINE NEXT CHARACTER (6)4I247600| 30406 0522 00 1 36536 XEC SCSIL,1 FOR + OR - (6)4I247610| 30407 4054 00 006000 LFT PSB+MSB (6)4I247700| 30410 0020 00 0 30412 TRA *+2 (6)4I247710 30411 0020 00 0 30420 TRA IFSCX EXIT IF NEITHER (6)4I247800| 30412 0774 00 4 00001 AXT 1,4 SET COMPARE FOR + 4I247900| 30413 4056 00 002000 LNT PSB WAS IT + 4I248000| 0BINARY CARD ID. MAPJ0082| 30414 4774 00 4 00001 AXC 1,4 NO, SET COMPARE FOR - 4I248100 30415 0634 00 4 30351 SXA IFSGB,4 STORE THE COMPARE TYPE 4I248200| 30416 0074 00 4 36756 TSX HSCAN,4 SKIP OVER CHARACTER IN SCAN (6)4I248300| 30417 0 00001 0 32254 WTEMP,,1 (6)4I248310| 30420 0774 00 4 00000 IFSCX AXT **,4 (6)4I248320| 30421 0020 00 4 00001 TRA 1,4 (6)4I248330 30422 0074 00 4 36657 IFSE TSX SSCAN,4 SCAN WORD FOLLOWING COMMA 4I248400| 30423 4054 00 000000 LFT 0 4I248500| 30424 4734 00 4 00000 PDX ,4 IF NONE, THERE 4I248600| 30425 7 00000 4 30373 TXL IFSA,4,0 IS AN ERROR 4I248700| 30426 0621 00 0 30427 STA *+1 COMPARE THE 4I248800 30427 4500 00 0 00000 CAL ** WORD AGAINST 4I248900| 30430 0322 00 0 30506 ERA ANDWRD 'AND' 4I249000| 30431 0774 00 4 00000 AXT 0,4 IF 'AND' USE COMPARE 4I249100| 30432 0100 00 0 30437 TZE IFSEA TYPE CODE 0 4I249200| 30433 0322 00 0 30506 ERA ANDWRD IF NOT 'AND' 4I249300 30434 0322 00 0 30505 ERA ORWRD TRY 'OR' 4I249400| 30435 4100 00 0 30373 TNZ IFSA IF NEITHER, SIGNAL AN ERROR 4I249500| 30436 0774 00 4 00003 AXT 3,4 SET LOGICAL OP EQUAL TO 'OR' 4I249600| 30437 0634 00 4 30471 IFSEA SXA IFSKB,4 4I249700| 30440 4625 00 0 30503 STL IFMORE SET 'IFMORE' SWITCH 4I249800 30441 0074 00 4 35024 TSX INHAND,4 FILE FIRST 4I249900| 0BINARY CARD ID. MAPJ0083| 30442 0074 00 4 34560 TSX FPCLAG,4 CARD 4I250000| 30443 4 00001 0 26705 MZE 75WD1,,1 AND GO AFTER 4I250100| 30444 0020 00 0 26640 TRA PASA THE NEXT ONE 4I250200 30445 1 77766 1 30446 IFSF TXI *+1,1,-CMCDE WAS THE TERMINATOR A COMMA 4I250300| 30446 3 00000 1 30373 TXH IFSA,1,0 IF NOT, SIGNAL AN ERROR 4I250400| 30447 0020 00 0 30422 TRA IFSE PROCEED 4I250600| 30450 0634 00 4 30466 IFSH SXA IFSHX,4 4I250800| 30451 0074 00 4 36657 TSX SSCAN,4 SCAN THE BCD 4I250900 30452 4054 00 020000 LFT SLB STOP ON / 4I251000| 30453 4734 00 4 00000 PDX ,4 ERROR IF / IS NOT (6)4I251100| 30454 3 00000 4 30373 TXH IFSA,4,0 FIRST CHARACTER (6)4I251110| 30455 0074 00 4 36657 TSX SSCAN,4 COLLECT FIELD (6)4I251200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 55 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30456 4054 00 020000 LFT SLB TERMINATED BY NEXT / (6)4I251300| 30457 7 00000 1 30373 TXL IFSA,1,0 ERROR IF TERMINATED BY BLANK (6)4I251400| 30460 0621 00 0 30461 STA *+1 FETCH AND SAVE 4I251500| 30461 4500 00 0 00000 CAL ** THE BCD 4I251600 30462 0602 00 0 32254 SLW WTEMP GROUP 4I251700| 30463 0074 00 4 36657 TSX SSCAN,4 SCAN THE NON-BLANK 4I252200| 30464 4054 00 001200 LFT EQB+CMB STOP ON = OR , 4I252300| 30465 4500 00 0 32254 IFSHA CAL WTEMP PICK UP THE BCD 4I252600| 30466 0774 00 4 00000 IFSHX AXT **,4 4I252700 30467 0634 00 1 30367 SXA IFSKA,1 4I252800| 0BINARY CARD ID. MAPJ0084| 30470 0020 00 4 00001 TRA 1,4 4I252900| 30471 0774 00 4 00000 IFSKB AXT **,4 WAS THE LOGICAL OP 4I253000| 30472 0020 00 4 30476 TRA *+4,4 4I253100 30473 0131 00 0 00000 XCA 'OR', USE ARITHMETIC 4I253200| 30474 0200 00 0 30504 MPY TRUFLS MULTIPLY TO SIMULATE 4I253300| 30475 4600 00 0 30504 STQ TRUFLS LOGICAL 'OR' 4I253400| 30476 0600 00 0 30503 STZ IFMORE CLEAR THE LOGICAL OP SWITCH 4I253500| 30477 4501 00 0 30504 ORA TRUFLS INCLUDE THE PREVIOUS RESULT 4I253600 30500 0020 00 0 30366 TRA IFSK 4I253700| 30501 000000000000 IFSB VFD 4I254700| 30502 000000000000 IFASMB VFD 'IF TRUE' SWITCH 4I254900| 30503 000000000000 IFMORE VFD 4I255000| 30504 000000000000 TRUFLS VFD 4I255100 30505 465160606060 ORWRD BCI 1,OR 4I255200| 30506 214524606060 ANDWRD BCI 1,AND 4I255300| | * KEEP $4$4I255500| 30507 KEPTYP SYN * $4$4I255600 30507 0441 00 0 35146 LDI CUROPN $5$4I255800| 30510 0074 00 4 34132 TSX TSTETC,4 TEST FOR V.F. $5$4I255802| 30511 4055 00 000700 SIL 700 IF YES, SET CONTINUATION $5$4I255804| 30512 0074 00 4 26706 TSX TXTGTR,4 PLACE IN LINK $5$4I255806| 30513 4774 00 4 30514 AXC *+1,4 (6)4I255810 30514 0634 00 4 33601 SXA SCAZ,4 INITIALIZE $5$4I255814| 30515 7 00000 1 27156 TXL NMLD,1,0 SCAFLD TO RETURN HERE (6)4I255816| 0BINARY CARD ID. MAPJ0085| 30516 0074 00 4 36657 KEP01 TSX SSCAN,4 $5$4I255820| 30517 4054 00 037700 LFT CMB+DLB+SLB+ASB+MSB+PSB+EQB+QTB $5$4I255822 30520 0621 00 0 33475 STA SCAA $5$4I255824| 30521 4054 00 036700 LFT DLB+SLB+ASB+MSB+PSB+EQB+QTB $5$4I255832| 30522 0020 00 0 30526 TRA KEPERR $5$4I255834| 30523 0634 00 1 33510 SXA SCAT,1 (6)4I255836| 30524 0600 00 0 52430 STZ PDOPD SET SCAN STACK EMPTY (6)4I255837 30525 0020 00 0 33475 KEP02 TRA SCAA $5$4I255838| | 30526 0074 00 4 25623 KEPERR TSX ERPR,4 $5$4I255846| 30527 0 00000 1 00126 PZE MSS049,GO $5$4I255848| 30530 0020 00 0 30516 TRA KEP01 $5$4I255850 | * INDEX 4I256300| 30531 NDXTYP SYN * 4I256400| 30531 0441 00 0 21443 LDI BLINK DO NOT PROCESS IF NO (6)4I256500| 30532 0074 00 4 34132 TSX TSTETC,4 VARIABLE FIELD OR IF (6)4I256600 1 IBMAPV IBMAPJ 12/01/64 PAGE 56 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30533 4054 00 000002 LFT 2 NO PRINT TO OCCUR $4$4I256800| 30534 0020 00 0 27271 TRA ABSTA $4$4I256900| 30535 4625 00 0 30035 STL ENDA KILL READ AHEAD $4$4I257000 30536 0074 00 4 33444 TSX SCAFLD,4 SCAN ALL (6)4I257100| 30537 0520 00 0 35166 ZET SWCVFE SUBFIELDS $4$4I257500| 30540 0020 00 0 30536 TRA *-2 (6)4I257600| 30541 0074 00 4 37155 TSX CDXINR,4 REINITIALIZE SCAN (6)4I257700| 30542 0074 00 4 34560 TSX FPCLAG,4 OUTPUT INDEX $4$4I257800 30543 4 00001 0 35146 MZE CUROPN,,1 OPERATION TO TEXT $4$4I257900| 0BINARY CARD ID. MAPJ0086| 30544 0600 00 0 35141 STZ BCDOUT SET BCD OUTPUT OK $4$4I258000| | OUTPUT SUBFIELDS (BCD) FOLLOWED BY TEXT $4$4I258200 30545 4500 00 0 30611 CAL NDXF SETUP WORD $4$4I258300| 30546 0602 00 0 30575 NDXA SLW NDXD SET TEXT OUTPUT ADDRESS, $4$4I258400| 30547 0621 00 0 30551 STA NDXB FETCH, AND $4$4I258500| 30550 0774 00 4 00000 AXT 0,4 INITIAL COUNT $4$4I258600| 30551 0441 00 4 00000 NDXB LDI **,4 PICK UP TEXT $4$4I258700 30552 4057 00 000200 RIL 200 STRING AND $4$4I258800| 30553 4054 00 007700 LFT 7700 SEARCH FOR $4$4I258900| 30554 1 77777 4 30551 TXI NDXB,4,-1 COMMA OR END $4$4I259000| 30555 0604 60 0 30551 STI* NDXB SET TERMINATOR $4$4I259100| 30556 1 77777 4 30557 TXI *+1,4,-1 $4$4I259200 30557 0754 00 4 00000 PXA 0,4 STORE WORD $4$4I259300| 30560 0737 00 4 00000 PAC 0,4 COUNT IN $4$4I259400| 30561 4634 00 4 30575 SXD NDXD,4 TEXT OUTPUT $4$4I259500| 30562 0074 00 4 36657 TSX SSCAN,4 SCAN FOR $4$4I259600| 30563 4054 00 001000 LFT CMB BCD AND SET $4$4I259700 30564 0621 00 0 30574 STA NDXC OUTPUT WORD $4$4I259800| 30565 4734 00 4 00000 PDX 0,4 COMPUTE $4$4I259900| 30566 0774 00 2 00001 AXT 1,2 COUNT OF $4$4I260000| 30567 6 00006 4 30571 TNX *+2,4,6 STRING LENGTH $4$4I260100| 30570 1 00001 2 30567 TXI *-1,2,1 IN WORDS $4$4I260200 30571 4634 00 2 30574 SXD NDXC,2 $4$4I260300| 0BINARY CARD ID. MAPJ0087| 30572 0634 00 1 30576 SXA NDXDD,1 SAVE TERMINATOR (6)4I260400| 30573 0074 00 4 34560 TSX FPCLAG,4 OUTPUT $4$4I260500| 30574 3 00000 0 00000 NDXC PTH **,,** BCD AND $4$4I260600 30575 4 00000 0 00000 NDXD MZE **,,** TEXT $4$4I260700| 30576 0774 00 1 00000 NDXDD AXT **,1 EXIT IF (6)4I260800| 30577 7 00000 1 30604 TXL NDXE,1,0 AT END (6)4I260900| 30600 0500 00 0 30575 CLA NDXD IF NOT, $4$4I261000| 30601 0771 00 0 00022 ARS 18 SETUP FOR $4$4I261100 30602 0361 00 0 30575 ACL NDXD NEW TEXT $4$4I261200| 30603 0020 00 0 30546 TRA NDXA LOCATION $4$4I261300| | RESTORE AND EXIT $4$4I261500| 30604 0600 00 0 30035 NDXE STZ ENDA RESTORE READ-AHEAD $4$4I261600 30605 0074 00 4 35175 TSX IREAD,4 READ NEXT $4$4I261700| 30606 0 00000 0 27136 PZE EOFERR CARD, INITIALIZE $4$4I261800| 30607 0074 00 4 37001 TSX CDXIN,4 AND GO TO $4$4I261900| 30610 0020 00 0 26640 TRA PASA PROCESS $4$4I262000| 30611 4 00000 0 52030 NDXF MZE LINK,,0 INITIALIZER $4$4I262200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 57 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 | * LBL 4I262400 30612 LBLTYP SYN * 4I262500| 30612 0074 00 4 36657 TSX SSCAN,4 FETCH CHARACTER GROUP 4I262600| 30613 4054 00 001000 LFT CMB 4I262700| 30614 0634 00 1 30646 SXA LBLC,1 SAVE TERMINATOR $4$4I262800| 30615 4734 00 1 00000 PDX ,1 TEST THE SIZE 4I262900 30616 7 00010 1 30621 TXL *+3,1,8 OF THE GROUP 4I263000| 30617 0074 00 4 25623 TSX ERPR,4 SIZE TOO BIG 4I263100| 0BINARY CARD ID. MAPJ0088| 30620 0 00000 1 00124 WMS023,GO 4I263200| 30621 0737 00 2 00000 PAC ,2 REMOVE THE 4 EXTRA 4I263300 30622 4500 00 2 00000 CAL 0,2 BLANKS FROM THE 4I263400| 30623 0560 00 2 00001 LDQ 1,2 SECOND WORD OF 4I263500| 30624 4765 00 0 00030 LGR 24 THE GROUP 4I263600| 30625 4774 00 4 00030 AXC 24,4 REPLACE ALL 4I263700| 30626 3 00007 1 30632 TXH LBLA,1,7 TRAILING 4I263800 30627 4765 00 0 00006 LGR 6 BLANK 4I263900| 30630 1 77772 4 30631 TXI *+1,4,-6 CHARACTERS 4I264000| 30631 1 00001 1 30626 TXI *-3,1,1 WITH 4I264100| 30632 4763 00 4 00000 LBLA LGL 0,4 ZEROES 4I264200| 30633 0602 00 0 34153 SLW TSTCD STORE ADJUSTED 4I264300 30634 4600 00 0 34154 STQ TSTCE GROUP 4I264400| 30635 4763 00 0 00014 LGL 12 DETECT 4I264500| 30636 0774 00 2 00006 AXT 6,2 THE 4I264600| 30637 0774 00 4 00000 AXT 0,4 NUMBER 4I264700| 30640 0114 01 1 25610 LBLB CVR WBCD,1,1 OF 4I264800 30641 1 52170 1 30642 TXI *+1,1,-WBCD TRAILING 4I264900| 30642 3 00000 1 30645 TXH *+3,1,0 DIGITS 4I265000| 30643 1 00001 4 30644 TXI *+1,4,1 4I265100| 30644 2 00001 2 30640 TIX LBLB,2,1 4I265200| 30645 0634 00 4 35146 SXA CUROPN,4 4I265300 0BINARY CARD ID. MAPJ0089| 30646 0774 00 1 00000 LBLC AXT **,1 $4$4I265400| 30647 7 00000 1 30662 TXL LBLCA,1,0 IF COMMA TERMINATED, (6)4I265410| 30650 0074 00 4 36662 TSX BSCAN,4 COLLECT FIELD, IF ANY (6)4I265500| 30651 4734 00 4 00000 PDX ,4 (6)4I265510 30652 7 00000 4 30660 TXL LBLCA-2,4,0 (6)4I265520| 30653 0737 00 4 00000 PAC ,4 (6)4I265530| 30654 4500 00 4 00000 CAL 0,4 (6)4I265540| 30655 0322 00 0 30701 ERA LBL.WD SPECIAL FOR $4$4I265600| 30656 0100 00 0 30667 TZE LBLD REMOTE TYPE $4$4I265700 30657 0020 00 0 30662 TRA LBLCA (6)4I265710| 30660 0500 00 0 35170 CLA TAG4 $4$4I265800| 30661 0625 00 0 35146 STT CUROPN OPTION' $4$4I266000| 30662 0074 00 4 35027 LBLCA TSX INHANE,4 OUTPUT THE CARD IMAGE (6)4I266100| 30663 0074 00 4 34560 TSX FPCLAG,4 FILE THE 4I266200 30664 0 00001 0 35146 CUROPN,,1 OPERATION AND 4I266300| 30665 4 00002 0 34153 MZE TSTCD,,2 THE GROUP 4I266400| 30666 0020 00 0 26640 TRA PASA 4I266500| | 30667 0500 00 0 35146 LBLD CLA CUROPN SET DIGIT $4$4I266700 30670 4320 00 0 21723 ANA MSKAD COUNT AND $4$4I266800| 30671 7 00000 1 30673 TXL *+2,1,0 PRINT TAG $4$4I266900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 58 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 30672 4501 00 0 35170 ORA TAG4 $4$4I267000 30673 0601 00 0 21442 STO CDDIG $4$4I267100| 0BINARY CARD ID. MAPJ0090| 30674 4500 00 0 34153 CAL TSTCD PLACE SEQUENCE $4$4I267200| 30675 0602 00 0 21440 SLW CDSEQ NUMBER TO $4$4I267300| 30676 4500 00 0 34154 CAL TSTCE FIRST OUTPUT $4$4I267400 30677 0602 00 0 21441 SLW CDSEQ+1 $4$4I267500| 30700 0020 00 0 26701 TRA STRTYP TREAT AS REMARK CARD $4$4I267600| | 30701 222527314560 LBL.WD BCI 1,BEGIN REMOTE TYPE TEST WORD $4$4I267800| * LBOOL 4I268000| 30702 LBOTYP SYN * 4I268100| 30702 0074 00 4 27472 TSX BOLA,4 4I268200| 30703 6 00000 1 00000 SIX ,1 LBOOL WORD 4I268300| * LDIR 4I268500| 30704 LDRTYP SYN * 4I268600| 30704 0520 00 0 21455 ZET SWLNKG+1 IS THIS THE FIRST 'LDIR' 4I268700| 30705 0020 00 0 30715 TRA LDRA NO, 4I268800| 30706 0074 00 4 34155 TSX NMLOC,4 PLACE SYMBOL, IF ANY 4I268900 30707 4774 00 2 21455 AXC SWLNKG+1,2 CHAIN IN LDIR AT 4I269000| 30710 0074 00 4 36320 TSX LCHNE,4 THIS POINT 4I269100| 30711 4500 00 0 35172 CAL 2DECR BUMP THE LOCATION 4I269200| 30712 0074 00 4 36275 TSX SEPBP,4 COUNTER BY 2 4I269300| 30713 4625 00 0 21454 STL SWLNKG 4I269400 30714 0020 00 0 31051 TRA LRGTYQ 4I269500| 30715 0074 00 4 25623 LDRA TSX ERPR,4 MORE THAN ONE 'LDIR' 4I269600| 30716 0 00000 1 00131 WMS025,GO 4I269700| 30717 0020 00 0 26701 TRA STRTYP 4I269800| * LIST 4I270000| 30720 LSTTYP SYN * 4I270100| 30720 0600 00 0 35174 STZ UNLSW CLEAR UNLIST SWITCH 4I270200| 30721 0020 00 0 27271 TRA ABSTA OUTPUT CARD $4$4I270300| * LIT 4I270500| 30722 LITTYP SYN * 4I270600| 0BINARY CARD ID. MAPJ0091| 30722 4500 00 0 27462 CAL BGNSCN 4I270700| 30723 0602 00 0 36452 SLW SCLFT 4I270800 30724 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I270900| 30725 0074 00 4 34222 TSX DGENTA,4 SET UP DATA-GENERATING SCAN 4I271000| 30726 0074 00 4 34132 LITA TSX TSTETC,4 4I271400| 30727 0020 00 0 30733 TRA *+4 4I271500| 30730 0600 00 0 40142 STZ DB8T1 4I271600 30731 0600 00 0 40137 STZ DB8DP 4I271700| 30732 0020 00 0 30736 TRA LITB 4I271800| 30733 0074 00 4 34065 TSX CKLTYP,4 4I271900| 30734 0074 00 4 34102 TSX HLROCT,4 4I272000| 30735 0020 00 0 30750 TRA LITC 4I272100 30736 0074 00 4 34231 LITB TSX DGENTB,4 4I272200| 30737 0020 00 0 30726 TRA LITA 4I272300| 30740 0534 00 4 52030 LXA LINK,4 4I272400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 59 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 30741 4634 00 4 30743 SXD *+2,4 4I272500| 30742 0074 00 4 40227 TSX CPLN,4 4I272600| 30743 0 00000 0 52031 LINK+1,,** 4I272700| 30744 0602 00 0 52031 SLW LINK+1 07 WORD $5$4I272800| 30745 0074 00 4 34560 TSX FPCLAG,4 4I272900 30746 4 00002 0 52030 MZE LINK,,2 $5$4I273000| 30747 0020 00 0 26640 TRA PASA 4I273100| 0BINARY CARD ID. MAPJ0092| 30750 0074 00 4 37313 LITC TSX DBCNV,4 4I273200| 30751 0074 00 4 33342 TSX DECER,4 4I273300 30752 0020 00 0 30736 TRA LITB 4I273600| | * LITTORG $5$4I273902| 30753 LOGTYP SYN * $5$4I273903| 07777 SPLMT EQU 4095 $5$4I273904 30753 0074 00 4 34155 TSX NMLOC,4 PLACE SYMBOL, IF ANY $5$4I273905| 30754 0534 00 1 21445 LXA CPLB,1 NUMBER OF LITERALS $5$4I273906| 30755 7 00000 1 27271 TXL ABSTA,1,0 TEST IF ZERO $5$4I273908| 30756 0774 00 4 00001 AXT 1,4 INCREMENT COUNT $5$4I273909| 30757 1 00001 4 30760 TXI *+1,4,1 FOR 07 WORD $5$4I273910 30760 0634 00 4 30756 SXA *-2,4 $5$4I273911| 30761 3 00777 4 31033 TXH LOG10,4,511 $5$4I273912| 30762 4754 00 4 00000 PXD 0,4 $5$4I273913| 30763 0771 00 0 00003 ARS 3 $5$4I273914| 30764 4501 00 0 30141 ORA 7WD $5$4I273915 30765 0602 00 0 31032 SLW LOG09 $5$4I273916| 30766 0634 00 1 31020 SXA LOG051,1 NUMBER OF LITERALS $5$4I273917| 30767 0634 00 1 35146 SXA CUROPN,1 IN THIS POOL $5$4I273918| 30770 0534 00 4 21437 LXA ENAC,4 ENTER POINTER $5$4I273919| 30771 4754 00 4 00000 PXD 0,4 TO LOCATION $5$4I273920 30772 4534 00 4 21465 LXD RDPOOL,4 COUNTER CHAIN $5$4I273921| 30773 0622 00 4 00000 STD 0,4 ENTRY $5$4I273922| 30774 0074 00 4 26607 TSX INDUM,4 MAKE ENTRY INTO $5$4I273923| 30775 0074 00 4 36320 TSX LCHNE,4 LOCATION COUNTRR CHAIN $5$4I273924| 0BINARY CARD ID. MAPJ0093 30776 6 07777 1 31004 LOG02 TNX LOG03,1,SPLMT MORE THAN 4095 ENTRIES $5$4I273926| 30777 0774 00 4 07777 AXT SPLMT,4 YES, SET SEPARATION $5$4I273927| 31000 4634 00 4 21453 SXD LOCC,4 COUNT TO 4095 $5$4I273928| 31001 0074 00 4 26607 TSX INDUM,4 MAKE ID ENTRY $5$4I273929| 31002 0074 00 4 36320 TSX LCHNE,4 AND ENTER LOC COUNTER $5$4I273930 CHAIN. $5$4I273931| 31003 0020 00 0 30776 TRA LOG02 $5$4I273932| 31004 4634 00 1 21453 LOG03 SXD LOCC,1 SEPARATION COUNT $5$4I273934| 31005 0074 00 4 35027 LOG04 TSX INHANE,4 OUTPUT BLINK,BCD,AND $5$4I273936| READ NEXT CARD $5$4I273938 31006 0074 00 4 34560 TSX FPCLAG,4 OUTPUT $5$4I273940| 31007 4 00001 0 35146 MZE CUROPN,,1 OPERATION CODE $5$4I273942| 31010 0074 00 4 25762 LOG05 TSX INFOT,4 READ A $5$4I273944| 31011 0 31027 0 21640 PZE CPOOLF,,LOG08 BUFFER $5$4I273946| 31012 0622 00 0 31014 STD *+2 CALCULATE START $5$4I273948 31013 0734 00 4 00000 PAX 0,4 X $5$4I273950| 31014 2 00000 4 31015 TIX *+1,4,** X $5$4I273952| 31015 0622 00 0 31025 STD LOG06 WORD COUNT $5$4I273954| 31016 0634 00 4 31025 SXA LOG06,4 $5$4I273956| 1 IBMAPV IBMAPJ 12/01/64 PAGE 60 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31017 0622 00 0 31021 STD *+2 BUFFER COUNT $5$4I273957| 31020 0774 00 4 00000 LOG051 AXT **,4 ORIGINALLY TOTAL LIT COUNT $5$4I273958| 31021 2 00000 4 31023 TIX *+2,4,** SUBTRACT BUFFER COUNT $5$4I273959| 31022 4634 00 4 31025 SXD LOG06,4 USE REMAINDER $5$4I273960 31023 0634 00 4 31020 SXA LOG051,4 $5$4I273961| 0BINARY CARD ID. MAPJ0094| 31024 0074 00 4 34560 TSX FPCLAG,4 OUTPUT $5$4I273962| 31025 4 00000 0 00000 LOG06 MZE **,,** TEXT $5$4I273963| 31026 0020 00 0 31010 TRA LOG05 BACK FOR MORE $5$4I273964 31027 0600 00 0 21445 LOG08 STZ CPLB ZERO $5$4I273965| 31030 0774 00 2 00000 AXT 0,2 $5$4I273984| 31031 1 26640 2 40366 TXI CPBWR,2,PASA $5$4I273985| 31032 070000100000 LOG09 VFD 6/7,6/0,9/1,15/0 $5$4I273986| 31033 0074 00 4 25623 LOG10 TSX ERPR,4 LITORG LIMIT EXCEEDED $5$4I273988 31034 0 00000 1 00066 PZE MSS035,GO OPERATION IGNORED $5$4I273990| 31035 0020 00 0 27271 TRA ABSTA $5$4I273992| $5$4I274000| * LOC $5$4I274020| 31036 LOCTYP SYN * $5$4I274030 31036 0074 00 4 32763 TSX NMLPSO,4 $5$4I274060| 31037 3 00000 3 00000 PTH ,3 LOC WORD $5$4I274070| * LORG 4I274100| 31040 LRGTYP SYN * 4I274200| 31040 0520 00 0 21464 ZET RCPOOL IS THIS THE FIRST 'LORG' 4I274300 31041 0020 00 0 31056 TRA LRGA NO, 4I274400| 31042 0074 00 4 34155 TSX NMLOC,4 PLACE NAME, IF ANY 4I274500| 31043 0500 00 0 21437 CLA ENAC POINTER TO ID WORD THAT $5$4I274600| 31044 0621 00 0 21464 STA RCPOOL DEFINES START OF LORG $5$4I274610| CONSTANT POOL $5$4I274620 31045 0074 00 4 26607 TSX INDUM,4 ENTER THIS ID WORD INTO $5$4I274630| 31046 0074 00 4 36320 TSX LCHNE,4 THE LOCATION COUNTER CHAIN $5$4I274640| 31047 0534 00 4 21437 LXA ENAC,4 SETUP POINTER TO ID WORD THAT $5$4I274650| 31050 4634 00 4 21464 SXD RCPOOL,4 WILL HAVE THE CONSTANT POOL $5$4I274660| LENGTH IN ITS DECREMENT $5$4I274700 31051 0074 00 4 26607 LRGTYQ TSX INDUM,4 CHAIN DUMMY 4I274800| 0BINARY CARD ID. MAPJ0095| 31052 4500 00 0 30137 CAL 1WD NAME FOLLOWING 4I274900| 31053 0602 00 2 00000 SLW 0,2 -LORG- TO AVOID 4I275000| 31054 0074 00 4 36320 TSX LCHNE,4 PSEUDO-OP DICT 4I275100 31055 0020 00 0 27271 TRA ABSTA 4I275200| 31056 0074 00 4 25623 LRGA TSX ERPR,4 MORE THAN ONE 'LORG' 4I275300| 31057 0 00000 1 00130 WMS024,GO 4I275400| 31060 0020 00 0 26701 TRA STRTYP 4I275500| * MAX 4I275700| 31061 MAXTYP SYN * 4I275800| 31061 0074 00 4 32763 TSX NMLPSO,4 4I275900| 31062 5 00000 1 00000 FVE ,1 MAX WORD 4I276000| * MIN 4I276200| 31063 MINTYP SYN * 4I276300| 31063 0074 00 4 32763 TSX NMLPSO,4 4I276400| 31064 5 00000 2 00000 FVE ,2 MIN WORD 4I276500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 61 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 * MNOTE (6)4I276520| 31065 0074 00 4 33444 MNTTYP TSX SCAFLD,4 GET SEVERITY (6)4I276530| 31066 0074 00 4 34420 TSX EVLFLD,4 CODE (6)4I276540 31067 0734 00 4 00000 PAX ,4 DO NOT PERMIT (6)4I276545| 31070 7 00003 4 31072 TXL *+2,4,3 CODE (6)4I276550| 31071 0774 00 4 00003 AXT 3,4 GREATER (6)4I276555| 31072 4754 00 4 00000 PXD ,4 THAN (6)4I276560| 31073 0771 00 0 00003 ARS 3 THREE (6)4I276565 31074 0625 00 0 31114 STT MNTC (6)4I276570| 31075 0600 00 0 35154 STZ LNKMK (6)4I276575| 31076 0074 00 4 26706 MNTA TSX TXTGTR,4 STEP LINK POSITION (6)4I276580| 31077 4046 00 0 00000 PIA QUIT WHEN BLANKS (6)4I276590| 0BINARY CARD ID. MAPJ0096 31100 0322 00 0 36253 ERA BLANKS ARE (6)4I276600| 31101 0100 00 0 31106 TZE MNTB DETECTED (6)4I276610| 31102 0074 00 4 36756 TSX HSCAN,4 OBTAIN NEXT (6)4I276620| 31103 0 00006 0 52230 2B,,6 WORD OF (6)4I276625| 31104 0441 00 0 52230 LDI 2B TEXT AND (6)4I276630 31105 0020 00 0 31076 TRA MNTA GO TO STORE IT (6)4I276635| 31106 0074 00 4 34140 MNTB TSX TSTCC,4 OUTPUT CARD IMAGE (6)4I276640| 31107 0020 00 0 34140 TRA TSTCC AND ANY ETC'S (6)4I276645| 31110 0535 00 4 35154 LAC LNKMK,4 STORE COUNT IN (6)4I276650| 31111 1 77777 4 31112 TXI *+1,4,-1 SUBSTITUTION LIST (6)4I276655 31112 0634 00 4 52030 SXA LINK,4 FOR MESSAGE (6)4I276660| 31113 0074 00 4 25623 TSX ERPR,4 OUTPUT MESSAGE (6)4I276670| 31114 0 52030 0 00200 MNTC FMS008,**,LINK FOLLOWED BY (6)4I276675| 31115 0020 00 0 26702 TRA STRTYP+1 NON-OPERATION CODE (6)4I276680| * NULL 4I276700| 31116 NULTYP SYN * 4I276800| 31116 0074 00 4 34155 TSX NMLOC,4 PLACE SYMBOL, IF ANY 4I276900| 31117 0600 00 0 45170 STZ SWNTC SET FOR -NULL- OPERATION 4I277000| 31120 0074 00 4 44274 TSX MCDPR,4 AND OUTPUT 4I277100 31121 0020 00 0 26640 TRA PASA 4I277200| | * OCT 4I277400| 31122 OCTTYP SYN * 4I277500| 31122 0074 00 4 34222 TSX DGENTA,4 SET UP DATA-GENERATING SCAN 4I277600 31123 0074 00 4 36657 OCTA TSX SSCAN,4 SCAN THE OCTAL 4I277800| 31124 4054 00 001000 LFT CMB LITERAL 4I277900| 31125 0074 00 4 34265 TSX CNVOCT,4 CONVERT THE LITERAL 4I278000| 0BINARY CARD ID. MAPJ0097| 31126 0074 00 4 34231 TSX DGENTB,4 SEND NUMBER TO TEXT 4I278100 31127 0020 00 0 31123 TRA OCTA RETURN FOR NEXT NUMBER 4I278200| 31130 0020 00 0 27651 TRA DECB 4I278300| | * OPD 4I278500| 31131 OPDTYP SYN * 4I278600 31131 4500 00 0 21461 CAL NAME USE BLANKS (6)4I278610| 31132 4100 00 0 31134 TNZ *+2 IF NO (6)4I278620| 31133 4500 00 0 36253 CAL BLANKS NAME (6)4I278630| 31134 0602 00 0 31363 SLW OPVA SAVE NAME (6)4I278640| 31135 0074 00 4 36657 TSX SSCAN,4 SCAN NEW 4I278700 31136 4054 00 001000 LFT CMB $4$4I278800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 62 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31137 4056 00 001000 LNT CMB $4$4I278900| 31140 0020 00 0 31143 TRA *+3 $4$4I279000 31141 0074 00 4 25623 TSX ERPR,4 $4$4I279100| 31142 0 00000 1 00030 PZE WMS005,GO $4$4I279200| 31143 0074 00 4 34265 TSX CNVOCT,4 CONVERT BCD TO OCT 4I279300| 31144 0602 00 0 31364 SLW OPVB (6)4I279400| 31145 4500 00 0 31363 OPDVF1 CAL OPVA PUT THE NAME IN (6)4I279500 31146 0602 00 0 21462 SLW OPER THE DICTIONARY 4I279700| 31147 0074 00 4 36407 TSX PLNOP,4 AS AN OPERATION 4I279800| 31150 0074 00 4 31477 TSX HOLD,4 TEST OLD DEFINITION FOR PURGE (6)4I279810| 31151 0500 00 0 31364 CLA OPVB FETCH DEFINITION WORD (6)4I279900| 31152 4120 00 0 31156 TMI *+4 IS IT NEGATIVE 4I280000 31153 0074 00 4 25623 TSX ERPR,4 NO, FILE AN ERROR MESSAGE 4I280100| 0BINARY CARD ID. MAPJ0098| 31154 0 00000 3 00155 WMS035,NONOGO 4I280200| 31155 4760 00 0 00003 SSM MAKE THE WORD NEGATIVE 4I280300| 31156 0601 00 2 00000 STO 0,2 STORE THE DEFINED OP 4I280400 31157 0441 00 2 00000 LDI 0,2 $5$4I280610| 31160 4054 00 007600 LFT 007600 WERE BITS PLACED IN FLAG $5$4I280620| 31161 0020 00 0 31206 TRA OPDER1 FIELD. YES, ERROR $5$4I280630| 31162 0131 00 0 00000 OPVFD2 XCA $5$4I280700| 31163 4754 00 0 00000 PXD 0,0 $4$4I280800 31164 4114 01 0 26665 CAQ ADJTBL,,1 $4$4I280900| 31165 4760 00 0 00001 PBT TEST IF DEFINITION VIA (6)4I281000| 31166 0020 00 0 31170 TRA *+2 OPD OR OPVFD IS PERMITTED (6)4I281010| 31167 0020 00 0 31200 TRA OPDERR FOR THIS ADJECTIVE CODE (6)4I281020| 31170 0622 00 0 31177 STD OPDERR-1 $4$4I281100 31171 4320 00 0 21724 ANA MSKDC (6)4I281200| 31172 0100 60 0 31205 TZE* OPDVF DEC NOT USED $4$4I281300| 31173 0131 00 0 00000 XCA $4$4I281400| 31174 0771 00 0 00006 ARS 6 CHECK DECREMENT $4$4I281500| 31175 4734 00 4 00000 PDX 0,4 FOR ALLOWABLE $4$4I281600 31176 1 00001 4 31177 TXI *+1,4,1 SIZE $4$4I281700| 31177 7 00000 4 31205 TXL OPDVF,4,** TRANSFER TO EXIT IF OK $4$4I281800| 31200 0074 00 4 25623 OPDERR TSX ERPR,4 $4$4I281900| 31201 0 00000 4 00155 WMS035,NONONO IN -OPD- OR -OPVFD-' 4I282000| 0BINARY CARD ID. MAPJ0099 31202 4754 00 0 00000 PXD 0,0 4I282100| 31203 4760 00 0 00003 SSM 4I282200| 31204 0601 00 2 00000 STO 0,2 SET ADJECTIVE CODE TO 40 4I282300| 31205 0020 00 0 31316 OPDVF TRA OPSTYX EXIT (6)4I282400| 31206 4057 00 007600 OPDER1 RIL 007600 CLEAR FLAG FIELD $5$4I282410 31207 0604 00 2 00000 STI 0,2 STORE IN DICTIONARY $5$4I282420| 31210 0500 00 2 00000 CLA 0,2 PLACE IN ACC FOR CHECK $5$4I282430| 31211 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE $5$4I282440| 31212 0 00000 3 00041 PZE MSS021,NONOGO $5$4I282450| 31213 0020 00 0 31162 TRA OPVFD2 $5$4I282460 | * OPSYN 4I282600| 31214 OPSTYP SYN * 4I282700| 31214 4500 00 0 21461 CAL NAME USE BLANKS (6)4I282710| 31215 4100 00 0 31217 TNZ *+2 IF NO (6)4I282720 31216 4500 00 0 36253 CAL BLANKS NAME (6)4I282730| 31217 0602 00 0 31363 SLW OPVA SAVE NAME (6)4I282740| 1 IBMAPV IBMAPJ 12/01/64 PAGE 63 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31220 0074 00 4 36657 TSX SSCAN,4 SCAN REFERENCED 4I282800 31221 4054 00 001000 LFT CMB $4$4I282900| 31222 4056 00 001000 LNT CMB $4$4I283000| 31223 0020 00 0 31226 TRA *+3 $4$4I283100| 31224 0074 00 4 25623 TSX ERPR,4 $4$4I283200| 31225 0 00000 1 00030 PZE WMS005,GO $4$4I283300 31226 4734 00 1 00000 PDX ,1 PICK UP CHARACTER COUNT 4I283400| 31227 7 00006 1 31232 TXL *+3,1,6 IS IT 6 OR LESS 4I283500| 0BINARY CARD ID. MAPJ0100| 31230 0074 00 4 25623 TSX ERPR,4 NO, 4I283600| 31231 0 00000 4 00015 WMS003,NONONO 4I283700 31232 4056 00 010000 LNT ASB WAS * ENCOUNTERED (6)4I283710| 31233 0020 00 0 31237 TRA *+4 NO, SKIP IT (6)4I283720| 31234 4054 00 027777 LFT ALLBT-ASB YES, WAS ANYTHING ELSE (6)4I283730| 31235 0020 00 0 31237 TRA *+2 (6)4I283740| 31236 0500 00 0 45155 CLA INDPAR NO, OP IS SINGLE * (6)4I283750 31237 0621 00 0 31240 STA *+1 FETCH THE 4I283800| 31240 4500 00 0 00000 CAL ** BCD 4I283900| 31241 0074 00 4 36350 TSX OPALT,4 LOOK UP THE OPERATION (6)4I284000| 31242 0020 00 0 31321 TRA OPSTUN OPERATION NOT IN DICTIONARY (6)4I284200| 31243 4500 00 2 00000 CAL ,2 FETCH THE 4I284300 31244 0602 00 0 32254 SLW WTEMP INTERNAL CODE 4I284400| 31245 4500 00 0 31363 CAL OPVA PUT THE (6)4I284500| 31246 0602 00 0 21462 SLW OPER ASSIGNED 4I284800| 31247 0074 00 4 36407 TSX PLNOP,4 NAME IN TEXT 4I284900| 31250 0074 00 4 31477 TSX HOLD,4 TEST OLD DEFINITION FOR PURGE (6)4I284910 31251 4500 00 0 32254 CAL WTEMP PUT THE INTERNAL 4I285000| 31252 0560 00 0 32254 LDQ WTEMP $4$4I285100| 31253 4154 01 1 26665 CRQ ADJTBL,1,1 $4$4I285200| 31254 1 26777 1 31255 TXI *+1,1,A62TYP CHECK FOR 62 ADJECTIVE CODE $4$4I285300| 31255 0602 00 2 00000 SLW 0,2 YES $4$4I285400 0BINARY CARD ID. MAPJ0101| 31256 7 00000 1 31260 TXL *+2,1,0 NO, PROCESS NORMALLY $4$4I285500| 31257 0020 00 0 31316 TRA OPSTYX (6)4I285600| 31260 0734 00 1 00000 PAX 0,1 $4$4I285700| 31261 7 00000 1 31316 TXL OPSTYX,1,0 (6)4I285800 31262 0621 00 0 31267 STA OPSTYF SAVE MACRO POINTER $4$4I285900| 31263 0535 00 1 44605 LAC PLSTR,1 FETCH SKELETON POINTER $4$4I286000| 31264 0754 00 1 00000 PXA ,1 ALTER DICTIONARY WORD TO $4$4I286100| 31265 0621 00 2 00000 STA 0,2 POINT TO TRA IN SKEL. $4$4I286200| 31266 0522 00 0 44605 XEC PLSTR $4$4I286300 31267 0441 00 0 00000 OPSTYF LDI ** FETCH CHAIN WORD OF REF. $4$4I286400| 31270 4055 00 200000 SIL 200000 SKEL AND SET 'NO PURGE' $4$4I286500| 31271 0604 60 0 31267 STI* OPSTYF BIT. $4$4I286600| 31272 1 00002 1 31273 TXI *+1,1,2 COMPUTE POINTER FOR NEW $4$4I286700| 31273 0754 00 1 00000 PXA ,1 CHAIN WORD $4$4I286800 31274 0044 00 0 00000 PAI $4$4I286900| 31275 0754 00 2 00000 PXA ,2 COMPUTE POSITIVE INTERNAL $4$4I287000| 31276 0737 00 2 00000 PAC ,2 DICTIONARY LOCATION $4$4I287100| 31277 4754 00 2 00000 PXD ,2 $4$4I287200| 31300 0043 00 0 00000 OAI PLACE IN INDICATORS $4$4I287300 31301 4055 00 100000 SIL 100000 SET TRA IN SKEL. BIT $4$4I287400| 31302 0500 60 0 31267 CLA* OPSTYF $4$4I287500| 31303 0604 00 4 00000 STI 0,4 STORE COMPLETE CHAIN WORD $4$4I287800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 64 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0BINARY CARD ID. MAPJ0102| 31304 0625 00 4 00000 STT 0,4 INCLUDING SPECIAL ARGUMENT FLAGS (6)4I287810| 31305 4500 00 0 32254 CAL WTEMP $4$4I287900| 31306 4320 00 0 21723 ANA MSKAD FORM TRANSFER IN SKELETON $4$4I288000| 31307 0400 00 0 21705 ADD L(1) $4$4I288100 31310 4501 00 0 44253 ORA MDFK5 $5$4I288200| 31311 0767 00 0 00006 ALS 6 $5$4I288300| 31312 0602 00 4 00001 SLW 1,4 STORE SKELETON WORD $4$4I288400| 31313 1 77776 4 31314 TXI *+1,4,-2 BUMP POINTER $4$4I288500| 31314 0634 00 4 44605 SXA PLSTR,4 SAVE FOR SKELETON $4$4I288600 31315 4634 00 4 45330 SXD XPLTST,4 AND PUSH-DOWN REFERENCE $4$4I288700| 31316 0074 00 4 31520 OPSTYX TSX CLEAR,4 PERFORM PURGE IF PENDING (6)4I288710| 31317 0074 00 4 37001 TSX CDXIN,4 GET OPERATION CODE FOR NEXT CARD (6)4I288720| 31320 0020 00 0 26701 TRA STRTYP EXIT $4$4I288800| 31321 0074 00 4 25623 OPSTUN TSX ERPR,4 'UNDEFINED (6)4I288810 31322 0 00000 1 00055 WMS010,GO OPERATION CODE' (6)4I288820| 31323 0020 00 0 31316 TRA OPSTYX EXIT (6)4I288830| | * OPVFD 4I289000| 31324 OPVTYP SYN * 4I289100 31324 4500 00 0 21461 CAL NAME SAVE THE NAME TO BE 4I289200| 31325 4100 00 0 31327 TNZ *+2 IF NO NAME 4I289300| 31326 4500 00 0 36253 CAL BLANKS USE ALL BLANKS 4I289400| 31327 0602 00 0 31363 SLW OPVA DEFINED AS AN OP 4I289500| 31330 4634 00 0 31355 SXD OPVCA,0 CLEAR VFD FIELD TOTAL COUNT 4I289600 31331 0600 00 0 31364 STZ OPVB CLEAR THE NEW OP BINARY CODE 4I289700| 0BINARY CARD ID. MAPJ0103| 31332 0074 00 4 32256 TSX VFDTAL,4 SCAN FIELD TYPE AND LENGTH 4I289800| 31333 0074 00 4 32332 TSX VFDSVF,4 SCAN THE FIELD 4I289900| 31334 0020 00 0 31332 TRA *-2 FETCH NEXT FIELD $5$4I289950 31335 4534 00 4 31355 LXD OPVCA,4 FETCH COUNT $5$4I290000| 31336 3 00043 4 31341 TXH *+3,4,35 TEST IF EQUAL TO 36 $5$4I290010| 31337 0074 00 4 25623 TSX ERPR,4 NO, ERROR $5$4I290020| 31340 0 00000 3 00152 PZE WMS034,NONOGO $5$4I290030| 31341 0020 00 0 31145 TRA OPDVF1 4I291600 | 31342 0074 00 4 34420 OPVC TSX EVLFLD,4 EVALUATE THE SYMBOLIC FIELD 4I291800| 31343 0560 00 0 21704 LDQ L(0) POSITION THE COMPUTED 4I291900| 31344 0535 00 4 32251 LAC VFDFDL,4 FIELD IN THE 2B 4I292000| 31345 4765 00 4 00000 LGR 0,4 BUFFER AS IF IT HAD 4I292100 31346 4600 00 0 52230 STQ 2B BEEN OCTAL 4I292200| 31347 0560 00 0 52230 OPVD LDQ 2B FETCH THE NEXT GROUP OF BITS 4I292300| 31350 4534 00 4 31355 LXD OPVCA,4 SHIFT IN THIS GROUP 4I292400| 31351 4754 00 0 00000 PXD ,0 36-PREVIOUS BIT TOTAL 4I292500| 31352 4763 00 4 00044 LGL 36,4 AND 'OR' IT INTO 4I292600 31353 4602 00 0 31364 ORS OPVB PREVIOUS GROUPS 4I292700| 31354 0534 00 4 32251 LXA VFDFDL,4 TOTAL THE ACCUMULATED 4I292800| 31355 1 00000 4 31356 OPVCA TXI *+1,4,** BITS AND TEST 4I292900| 31356 4634 00 4 31355 SXD *-1,4 FOR COUNT 4I293000| 31357 7 00044 4 32403 TXL VFDSX,4,36 OVER 36 4I293100 0BINARY CARD ID. MAPJ0104| 31360 0074 00 4 25623 TSX ERPR,4 TOO MANY BITS 4I293200| 31361 0 00000 3 00152 WMS034,NONOGO 4I293300| 31362 0020 00 0 26701 TRA STRTYP 4I293600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 65 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31363 000000000000 OPVA VFD 4I293700| 31364 000000000000 OPVB VFD 4I293800| | * ORG 4I294000 31365 ORGTYP SYN * 4I294100| 31365 0074 00 4 32763 TSX NMLPSO,4 4I294200| 31366 3 00000 2 00000 PTH ,2 ORG WORD 4I294300| | * PCC 4I294500 31367 PCCTYP SYN * 4I294600| 31367 0600 00 0 35145 STZ CCDSW RESET CONTROL CARD SWITCH (6)4I294700| 31370 0774 00 2 00001 AXT 1,2 SET FOR PCC (6)4I294800| 31371 0020 00 0 31420 TRA PMCA (6)4I294900| 31372 2 00000 0 00000 PTW MASKS FOR 'PREVIOUS' (6)4I295000 31373 1 00000 0 00000 PCCMK PON PCC, PMC SWITCH SETTINGS (6)4I295100| 31374 000000000000 PCCB VFD 4I296900| 31375 464560606060 ONWRD BCI 1,ON 4I297000| 31376 462626606060 OFFWRD BCI 1,OFF 4I297100| * PCG 4I297300| 31377 PCGTYP SYN * 4I297400| 31377 0520 00 0 21426 ZET SWABS 4I297500| 31400 0020 00 0 40473 TRA NTRTA 4I297600| 31401 0074 00 4 36657 TSX SSCAN,4 SCAN ONE WORD OF 4I297700 31402 4054 00 000000 LFT 0 THE FIELD 4I297800| 31403 0621 00 0 31404 STA *+1 PICK UP THE 4I297900| 31404 4500 00 0 00000 CAL ** WORD 4I298000| 31405 0520 00 0 35161 ZET PCGSW IS THE 'PCG' SWITCH ON 4I298100| 0BINARY CARD ID. MAPJ0105 31406 0020 00 0 31411 TRA PCGA NO, DON'T TEST FOR 'ON' 4I298200| 31407 0322 00 0 31375 ERA ONWRD YES, ARE WE TURNING IT ON 4I298300| 31410 0100 00 0 26701 TZE STRTYP YES, IGNORE THIS CARD 4I298400| 31411 0322 00 0 31376 PCGA ERA OFFWRD IF THE SWITCH IS OFF AND THE FIELD 4I298500| 31412 0100 00 0 26701 TZE STRTYP WORD IS 'OFF', IGNORE THIS CARD 4I298600 31413 0520 00 0 35161 ZET PCGSW FLIP 4I298700| 31414 4754 00 0 00000 PXD ,0 THE 4I298800| 31415 0602 00 0 35161 SLW PCGSW SWITCH 4I298900| 31416 0020 00 0 27271 TRA ABSTA 4I299000| * PMC 4I299200| 31417 PMCTYP SYN * 4I299300| 31417 0774 00 2 00000 AXT 0,2 SET FOR PMC (6)4I299310| 31420 4500 00 0 36217 PMCA CAL MCCTX MASK PREVIOUS SETTING (6)4I299320| 31421 4320 00 2 31373 ANA PCCMK,2 OF SWITCH (6)4I299330 31422 0602 00 0 31374 SLW PCCB AND SAVE IT (6)4I299340| 31423 0322 00 0 36217 ERA MCCTX RESET PREVIOUS (6)4I299350| 31424 0520 00 2 35163 ZET PMCSW,2 AND REPLACE (6)4I299360| 31425 4501 00 2 31373 ORA PCCMK,2 WITH CURRENT (6)4I299370| 31426 0602 00 0 36217 SLW MCCTX STORE NEW 'PREVIOUS' SETTING (6)4I299380 31427 0074 00 4 36657 TSX SSCAN,4 SCAN A WORD FROM 4I299400| 31430 4054 00 000000 LFT 0 THE VARIABLE FIELD 4I299500| 31431 0737 00 4 00000 PAC ,4 COMPARE (6)4I299600| 31432 4500 00 4 00000 CAL 0,4 THE WORD (6)4I299700| 31433 4340 00 0 31375 LAS ONWRD WITH 'ON' 4I299800 1 IBMAPV IBMAPJ 12/01/64 PAGE 66 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0106| 31434 0020 00 0 31436 TRA *+2 4I299900| 31435 0600 00 2 35163 STZ PMCSW,2 TURN THE SWITCH OFF (6)4I300000 31436 4340 00 0 31376 LAS OFFWRD COMPARE WITH 'OFF' 4I300100| 31437 0020 00 0 31441 TRA *+2 4I300200| 31440 4625 00 2 35163 STL PMCSW,2 TURN THE SWITCH ON (6)4I300300| 31441 0322 00 0 32173 ERA USEPR COMPARE (6)4I300310| 31442 4100 00 0 31451 TNZ PMCB THE FIELD (6)4I300320 31443 4500 00 4 00001 CAL 1,4 WITH THE (6)4I300330| 31444 0322 00 0 32174 ERA USEPR+1 WORD (6)4I300340| 31445 4100 00 0 31451 TNZ PMCB 'PREVIOUS' (6)4I300350| 31446 4500 00 0 31374 CAL PCCB PICK UP PREVIOUS (6)4I300360| 31447 0602 00 2 35163 SLW PMCSW,2 SETTING AND MAKE CURRENT (6)4I300370 31450 0020 00 0 27271 TRA ABSTA EXIT (6)4I300380| | 31451 4500 00 0 31451 PMCB CAL * REVERSE (6)4I300400| 31452 0520 00 2 35163 ZET PMCSW,2 THE (6)4I300500| 31453 4754 00 0 00000 ZAC STATUS (6)4I300600 31454 0602 00 2 35163 SLW PMCSW,2 OF THE (6)4I300700| 31455 0020 00 0 27271 TRA ABSTA SWITCH 4I300800| | * ELIMATES MACRO SKELETON FROM TABLE BY $4$4I301000| * PUSHING UP REMAINDER OF TABLE INTO SPECIFIED $4$4I301100 * SKELETON AREA. V.F. MAY ONLY BE A MACRO NAME. $4$4I301200| | 31456 0074 00 4 36657 PRGTYP TSX SSCAN,4 SCAN FOR NAME $4$4I301400| 31457 4054 00 001000 LFT CMB STOP ON BLANK OR COMMA $4$4I301500| 31460 0634 00 1 31476 SXA TERMSW,1 STORE CURRENT TERMINATOR $4$4I301600 31461 4734 00 4 00000 PDX ,4 $4$4I301700| 0BINARY CARD ID. MAPJ0107| 31462 7 00006 4 31465 TXL *+3,4,6 TEST FOR VALID SIZE $4$4I301800| 31463 0074 00 4 25623 TSX ERPR,4 ERROR. PRINT 'SYMBOL TOO $4$4I301900| 31464 0 00000 1 00015 PZE WMS003,GO LONG, FIRST 6 CHARACTERS USED'.$4$4I302000 31465 0621 00 0 31466 STA *+1 $4$4I302100| 31466 4500 00 0 00000 CAL ** $4$4I302200| 31467 0074 00 4 36350 TSX OPALT,4 LOOK UP THE OPERATION CODE (6)4I302300| 31470 0020 00 0 31472 TRA *+2 NOT FOUND (6)4I302400| 31471 0074 00 4 31477 TSX HOLD,4 HOLD PURGE IDENTIFIER $4$4I303700 31472 0520 00 0 31476 ZET TERMSW CHECK TERMINATOR $4$4I303800| 31473 0020 00 0 31456 TRA PRGTYP $4$4I303900| 31474 0074 00 4 31520 TSX CLEAR,4 PERFORM PURGE $4$4I304100| 31475 0020 00 0 26702 TRA STRTYP+1 EXIT $4$4I304400| 31476 0 00000 0 00000 TERMSW PZE ** $4$4I304500 | 31477 0634 00 4 31516 HOLD SXA HOLDEX,4 SAVE EXIT $4$4I305200| 31500 0560 00 2 00000 LDQ 0,2 GET DICTIONARY WORD (6)4I305300| 31501 4154 01 1 26665 CRQ ADJTBL,1,1 IS OPERATION A MACRO (6)4I305400| 31502 1 26777 1 31503 TXI *+1,1,A62TYP (6)4I305410 31503 3 00000 1 31516 TXH HOLDEX,1,0 SKIP IF NOT (6)4I305420| 31504 4500 00 2 00000 CAL 0,2 YES, MARK FOR PURGING (6)4I305500| 31505 0737 00 4 00000 PAC ,4 ADDRESS OF SKELETON (6)4I305510| 31506 0621 00 0 43642 STA MCRH SAVE FOR MACRO APPEND PROCESSING (6)4I305520| 31507 4500 00 0 34362 CAL PBIT CLEAR ADDRESS (6)4I305530 0BINARY CARD ID. MAPJ0108| 1 IBMAPV IBMAPJ 12/01/64 PAGE 67 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31510 0621 00 2 00000 STA 0,2 OF DICTIONARY WORD (6)4I305540| 31511 7 00000 4 31516 TXL HOLDEX,4,0 (6)4I305600 31512 0622 00 4 00000 STD 0,4 AND POINTER TO IT (6)4I305610| 31513 4602 00 4 00000 ORS 0,4 SET FLAG (6)4I305620| 31514 7 00000 4 31516 PRGAD TXL HOLDEX,4,** RETAIN ADDRESS OF FIRST (6)4I305700| 31515 4634 00 4 31514 SXD PRGAD,4 SKELETON FOR PURGE CHECK (6)4I305710| 31516 0774 00 4 00000 HOLDEX AXT **,4 $4$4I305800 31517 0020 00 4 00001 TRA 1,4 $4$4I305900| | 31520 0520 00 0 36235 CLEAR ZET SWMACI ARE WE INSIDE A MACRO $4$4I306100| 31521 0020 00 4 00001 TRA 1,4 YES, EXIT $4$4I306200| 31522 0634 00 4 31532 SXA CLREX,4 SAVE EXIT $4$4I306300 31523 4535 00 4 31514 CLR01 LDC PRGAD,4 - (ADDRESS OF DEAD SKELETON) (6)4I306400| 31524 7 00000 4 31532 TXL CLREX,4,0 OUT IF NONE (6)4I306500| 31525 0535 00 2 44605 LAC PLSTR,2 CHECK FOR END OF (6)4I306600| 31526 1 77777 2 31527 TXI *+1,2,-1 (6)4I306700| 31527 4634 00 2 31530 SXD *+1,2 SKELETON AREA (6)4I306800 31530 7 00000 4 31534 TXL PURGEM,4,** (6)4I306900| 31531 4634 00 0 31514 ZSD PRGAD YES, THROUGH PURGING (6)4I307000| 31532 0774 00 4 00000 CLREX AXT **,4 $4$4I307100| 31533 0020 00 4 00001 TRA 1,4 EXIT $4$4I307200| * ROUTINE TO DO ACTUAL PURGING. $4$4I307300 31534 0634 00 4 31626 PURGEM SXA PURG01,4 ADDRESS OF SKELETON (6)4I307400| 31535 0634 00 4 31627 SXA PRGSCT,4 TO BE PURGED (6)4I307500| 0BINARY CARD ID. MAPJ0109| 31536 4500 60 0 31626 CAL* PURG01 COMPUTE NUMBER OF LOCATIONS $4$4I308700| 31537 0737 00 2 00000 PAC ,2 (NEXT SKELETON POINTER) (6)4I308710 31540 0044 00 0 00000 PAI (HOLD CHAIN WORD FOR TEST) (6)4I308720| 31541 0402 00 0 31626 SUB PURG01 TO BE PURGED $4$4I308800| 31542 0621 00 0 45174 STA PRGCNT SAVE $4$4I308900| 31543 4054 00 400000 LFT 400000 IF PURGING NOT REQUESTED, (6)4I308910| 31544 4054 00 200000 LFT 200000 OR NOT ALLOWED, (6)4I308920 31545 0020 00 0 31556 TRA PRGSK GO LOOK AT NEXT SKELETON (6)4I308930| 31546 4634 00 2 31550 SXD *+2,2 $4$4I309000| 31547 0535 00 4 44605 LAC PLSTR,4 FETCH LAST USED LOCATION+1 $4$4I309100| 31550 1 00000 4 31551 TXI *+1,4,** COMPUTE NUMBER TO BE $4$4I309200| 31551 3 00000 4 31560 TXH PURG02,4,0 MOVED. IF 0 $4$4I309300 31552 0535 00 2 31626 LAC PURG01,2 UPDATE LOCATION 'PLSTR' $4$4I309400| 31553 0634 00 2 44605 SXA PLSTR,2 AND EXIT $4$4I309500| 31554 4634 00 2 45330 SXD XPLTST,2 AFTER SETTING PUSHDOWN LIMIT. $4$4I309600| 31555 0020 00 0 31523 PRGEX TRA CLR01 GO BACK FOR MORE (6)4I309700| * SKELETON NOT PURGED (6)4I309710 31556 4634 00 2 31514 PRGSK SXD PRGAD,2 SET NEXT SKELETON ADDRESS (6)4I309800| 31557 0020 00 0 31523 TRA CLR01 TO LOOK AT (6)4I309900| | 31560 0634 00 4 31620 PURG02 SXA PURG04,4 NUMBER TO BE MOVED $4$4I310100| 31561 4500 00 2 00000 CAL 0,2 FETCH SKELETON CHAIN WORD $4$4I310200 31562 0734 00 4 00000 PAX 0,4 NEXT SKELETON POINTER $4$4I310300| 31563 4737 00 1 00000 PDC ,1 INTERNAL DICTIONARY POINTER $4$4I310400| 0BINARY CARD ID. MAPJ0110| 31564 0044 00 0 00000 PAI $4$4I310500| 31565 0402 00 0 45174 SUB PRGCNT $4$4I310600 31566 0602 00 2 00000 SLW 0,2 UPDATE POINTER $4$4I310700| 31567 7 00000 1 31573 TXL *+4,1,0 $4$4I310800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 68 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31570 4500 00 1 00000 CAL 0,1 $4$4I310900 31571 0402 00 0 45174 SUB PRGCNT UPDATE DICTIONARY $4$4I311000| 31572 0602 00 1 00000 SLW 0,1 $4$4I311100| 31573 4634 00 4 31611 SXD PURG05,4 SET FOR END CHECK $4$4I311200| 31574 4056 00 100000 LNT 100000 NEXT WORD IS FIS $4$4I311300| 31575 0020 00 0 31607 TRA PURG09 NO $4$4I311400 31576 4500 00 2 00001 CAL 1,2 YES, UPDATE SKELETON $4$4I311500| 31577 4765 00 0 00006 LGR 6 $4$4I311600| 31600 0625 00 0 31627 STT PRGSCT $4$4I311700| 31601 0340 00 0 31627 CAS PRGSCT IF REQUIRED $4$4I311800| 31602 0402 00 0 45174 SUB PRGCNT $4$4I311900 31603 0020 00 0 31605 TRA *+2 $4$4I312000| 31604 0020 00 0 31607 TRA PURG09 $4$4I312100| 31605 4763 00 0 00006 LGL 6 $4$4I312200| 31606 0602 00 2 00001 SLW 1,2 $4$4I312300| 31607 0535 00 4 44605 PURG09 LAC PLSTR,4 CHECK 'PLSTR' FOR END $4$4I312400 31610 4535 00 2 31611 LDC *+1,2 $4$4I312500| 31611 3 00000 4 31561 PURG05 TXH PURG02+1,4,** IF NOT END BACK FOR NEXT $4$4I312600| | 0BINARY CARD ID. MAPJ0111| 31612 0500 00 0 31626 CLA PURG01 PERFORM ACTUAL MOVE $4$4I312800 31613 0400 00 0 31620 ADD PURG04 $4$4I312900| 31614 0621 00 0 31622 PURG03 STA PURG04+2 SET FETCH ADDRESS $4$4I313000| 31615 4500 60 0 31626 CAL* PURG01 $4$4I313100| 31616 0400 00 0 31620 ADD PURG04 $4$4I313200| 31617 0621 00 0 31621 STA PURG04+1 $4$4I313300 31620 0774 00 4 00000 PURG04 AXT **,4 $4$4I313400| 31621 0500 00 4 00000 CLA **,4 $4$4I313500| 31622 0601 00 4 00000 STO **,4 $4$4I313600| 31623 2 00001 4 31621 TIX *-2,4,1 $4$4I313700| 31624 0535 00 2 31622 LAC PURG04+2,2 $4$4I313800 31625 0020 00 0 31553 TRA PRGEX-2 RETURN TO UPDATE TABLE LIMITS $4$4I314800| 31626 0 00000 0 00000 PURG01 PZE ** $4$4I314900| 31627 007700000000 PRGSCT VFD O18/007700,3/0,15/** TIS COMPARE WORD $4$4I315000| | * PUNCH $4$4I315200 27267 PCHTYP SYN ABSTYP 4I315300| | * QUAL 4I315500| 31630 QULTYP SYN * 4I315600| 31630 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I315700 31631 0074 00 4 36662 TSX BSCAN,4 (6)4I315800| 31632 4734 00 4 00000 PDX ,4 NUMBER OF CHARACTERS (6)4I315900| 31633 3 00000 4 31637 TXH QUAL1,4,0 WERE ANY COLLECTED (6)4I316000| 31634 0074 00 4 25623 QUALX TSX ERPR,4 NO, - 'SYMBOL REQUIRED (6)4I316010| 31635 0 00000 1 00057 MSS032,GO IN VARIABLE FIELD' (6)4I316020 31636 0020 00 0 26701 TRA STRTYP AND OUTPUT AS COMMENT (6)4I316030| 31637 0621 00 0 31640 QUAL1 STA *+1 (6)4I316100| 0BINARY CARD ID. MAPJ0112| 31640 4500 00 0 00000 CAL ** FIND A DICTIONARY (6)4I316110| 31641 0074 00 4 26411 TSX NTLOC,4 LOCATION 4I316200 31642 0074 00 4 26504 TSX PLNAA,4 PUT THE NAME IN THE 4I316300| 31643 4500 00 0 30142 CAL 5WD DICTIONARY WITH 4I316400| 31644 0602 00 2 00000 SLW 0,2 AN 05 ADJECTIVE 4I316500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 69 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 31645 0754 00 2 00000 PXA ,2 4I316600| 31646 0402 00 0 21721 SUB 10WD 4I316700| 31647 0621 60 0 31661 STA* PRVQL 4I316800| 31650 0621 00 0 31661 STA PRVQL 4I316900| 31651 0074 00 4 31662 TSX BLDQCH,4 INCREASE PUSH-DOWN LIST 4I317000 31652 0074 00 4 26607 TSX INDUM,4 GET A DUMMY NAME 4I317100| 31653 0074 00 4 36320 TSX LCHNE,4 FOR THE LOCATION COUNTER 4I317200| 31654 0074 00 4 35027 TSX INHANE,4 OUTPUT CARD IMAGE 4I317300| 31655 0074 00 4 34560 TSX FPCLAG,4 WRITE THE 4I317400| 31656 0 00001 0 52030 LINK,,1 INTERNAL AND THE 4I317500 31657 5 00002 0 52031 MON LINK+1,,2 PSEUDO OP TEXT 4I317600| 31660 0020 00 0 26640 TRA PASA 4I317700| 31661 000000021470 PRVQL VFD 36/DPQL LOCATION OF THE PREVIOUS QUAL 4I317800| | 31662 BLDQCH SYN * 4I318000 | * BUILDS A PUSH-DOWN LIST OF QUALIFYING NAMES 4I318200| * PUTS THE INTERNAL TEXT WORD INTO LINK 4I318300| * PUTS THE PSEUDO OP TEXT INTO LINK+1 AND LINK+2 4I318400| 31662 0754 00 2 00000 PXA ,2 COMPLEMENT QUAL 4I318600| 31663 0402 00 0 21721 SUB 10WD LOCATION 4I318700| 31664 4320 00 0 21723 ANA MSKAD ADD IT TO THE 4I318800| 31665 0601 60 0 21467 STO* PDLOC PUSH-DOWN LIST 4I318900| 0BINARY CARD ID. MAPJ0113 31666 0441 00 0 35146 LDI CUROPN PUT QUAL INTO 4I319000| 31667 0604 00 0 52030 STI LINK INTERNAL TEXT 4I319100| 31670 0441 00 0 30142 LDI 5WD PUT QUAL INTO 4I319200| 31671 0604 00 0 52031 STI LINK+1 PSEUDO-OP TEXT 4I319300| 31672 0621 00 0 52030 STA LINK MARK BOTH TEXTS WITH 4I319400 31673 0621 00 0 52031 STA LINK+1 DICTIONARY LOCATION OF QUAL 4I319500| 31674 4500 00 0 31716 CAL 70WD CHAIN THE QUAL 4I319600| 31675 0361 00 0 34724 ACL PSOPLC TO THE 4I319700| 31676 0361 00 0 21706 ACL L(2) NEXT 4I319800| 31677 0621 00 0 34724 STA PSOPLC PSEUDO-OP 4I319900 31700 0361 00 0 21705 ACL L(1) AND BUMP THE 4I320000| 31701 0602 00 0 52032 SLW LINK+2 PSBF POINTER 4I320100| 31702 4500 00 0 21467 CAL PDLOC INCREASE THE 4I320200| 31703 0400 00 0 21705 ADD L(1) SIZE OF THE 4I320300| 31704 0621 00 0 21467 STA PDLOC PUSH-DOWN LIST 4I320400 31705 0402 00 0 31717 SUB PDMAX ARE THERE TOO MANY NESTED QUALS 4I320500| 31706 4120 00 4 00001 TMI 1,4 NO, 4I320600| 31707 0634 00 4 31714 SXA *+5,4 YES, FILE AN ERROR 4I320700| 31710 0074 00 4 25623 TSX ERPR,4 MESSAGE 4I320800| 31711 0 00000 4 00143 WMS029,NONONO 4I320900 31712 0774 00 4 52531 AXT PDLST+1,4 CLEAR THE PUSH-DOWN LIST 4I321000| 31713 0634 00 4 21467 SXA PDLOC,4 4I321100| 0BINARY CARD ID. MAPJ0114| 31714 0774 00 4 00000 AXT **,4 4I321200| 31715 0020 00 4 00001 TRA 1,4 4I321300 31716 7 00000 0 00000 70WD SVN 4I321400| 31717 0 00000 0 52627 PDMAX PDLST+PDSZE-1 4I321500| | * RBOOL 4I321700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 70 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31720 RBOTYP SYN * 4I321800| 31720 0074 00 4 27472 TSX BOLA,4 4I321900| 31721 6 00000 2 00000 SIX ,2 RBOOL WORD 4I322000| * REM 4I322200| 31722 REMTYP SYN * 4I322300| 31722 0535 00 4 21447 LAC GTPRA,4 FIND THE BCD CARD LOCATION 4I322400| 31723 0560 00 4 00002 LDQ 2,4 SAVE OPERATION IN CASE $5$4I322410| 31724 4600 00 0 31764 STQ REMS2 WITHIN DUP $5$4I322420 31725 0560 00 4 00001 LDQ 1,4 $4$4I322500| 31726 4600 00 0 31763 STQ REMS1 $5$4I322510| 31727 4534 00 2 37174 LXD OPPTR,2 DELETE (6)4I322600| 31730 7 00000 2 31747 TXL REMEND,2,0 (6)4I322610| 31731 4773 00 0 00006 RQL 6 BCD OF OP CODE $4$4I322700 31732 0522 00 2 44665 XEC PLEFT,2 AND FILL (6)4I322800| 31733 4500 00 0 36253 CAL BLANKS WITH BLANKS (6)4I322900| 31734 0522 00 2 44673 XEC RLEFT,2 (PRESERVING (6)4I323000| 31735 0560 00 0 31763 LDQ REMS1 COLUMN (6)4I323010| 31736 4773 00 0 00006 RQL 6 SEVEN (6)4I323100 31737 4130 00 0 00000 XCL AND THE (6)4I323110| 31740 4765 00 0 00006 LGR 6 OPERATION (6)4I323200| 31741 4600 00 4 00001 STQ 1,4 FIELD TERMINATOR (6)4I323300| 0BINARY CARD ID. MAPJ0115| 31742 7 00005 2 31747 TXL REMEND,2,5 CHARACTER) (6)4I323400 31743 0441 00 4 00002 LDI 2,4 $4$4I323500| 31744 4057 00 770000 RIL 770000 $4$4I323600| 31745 4055 00 600000 SIL 600000 $4$4I323700| 31746 0604 00 4 00002 STI 2,4 $4$4I323800| 31747 0634 00 4 31752 REMEND SXA *+3,4 $5$4I323900 31750 4625 00 0 30035 STL ENDA $5$4I323910| 31751 0074 00 4 35027 TSX INHANE,4 $5$4I323915| 31752 0774 00 4 00000 AXT **,4 $5$4I323920| 31753 0500 00 0 31763 CLA REMS1 RESTORE OPERATION $5$4I323925| 31754 0601 00 4 00001 STO 1,4 FIELD IN CASE $5$4I323930 31755 0500 00 0 31764 CLA REMS2 WITHIN A $5$4I323935| 31756 0601 00 4 00002 STO 2,4 DUP $5$4I323940| 31757 4774 00 4 26701 AXC STRTYP,4 $5$4I323945| 31760 0634 00 4 35117 SXA INHZ,4 $5$4I323950| 31761 0600 00 0 30035 STZ ENDA $5$4I323955 31762 0020 00 0 35071 TRA INHA+3 $5$4I323960| 31763 0 00000 0 00000 REMS1 PZE ** $5$4I323965| 31764 0 00000 0 00000 REMS2 PZE ** $5$4I323970| | * SET 4I324100 31765 SETTYP SYN * 4I324200| 31765 4520 00 0 21461 NZT NAME IS THERE A NAME 4I324300| 31766 0020 00 0 32034 TRA SETE NO, ERROR 4I324400| 31767 0441 00 0 35146 LDI CUROPN SEND THE OPERATION 4I324500| 0BINARY CARD ID. MAPJ0116 31770 4055 00 000700 SIL 700 WITH AN 07 FLAG FIELD 4I324600| 31771 0074 00 4 26706 TSX TXTGTR,4 TO TEXT 4I324700| 31772 0074 00 4 26410 TSX NTLOK,4 LOOK UP NAME 4I324800| 31773 0120 00 0 32030 TPL SETA IF NAME IS NOT NEW, FIND ADDRESS 4I324900| 31774 0074 00 4 26506 TSX PLNME,4 NEW NAME, SEND TO DICTIONARY 4I325000 1 IBMAPV IBMAPJ 12/01/64 PAGE 71 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 31775 4500 00 0 33335 SETC CAL 14WD IDENTIFY IT AS 4I325100| 31776 0602 00 2 00000 SLW 0,2 A 'SET' ENTRY 4I325200| 31777 0634 00 2 32014 SETD SXA SETB,2 SAVE LOCATION 4I325300 32000 0634 00 2 32001 SXA *+1,2 PUT 'SET' 4I325400| 32001 4774 00 1 00000 AXC **,1 WORD 4I325500| 32002 0754 00 1 00000 PXA ,1 INTO 4I325600| 32003 0361 00 0 33335 ACL 14WD THE 4I325700| 32004 0044 00 0 00000 PAI TEXT 4I325800 32005 0074 00 4 26706 TSX TXTGTR,4 4I325900| 32006 0074 00 4 34132 TSX TSTETC,4 IS VARIABLE FIELD BLANK (6)4I326000| 32007 0020 00 0 32012 TRA *+3 NO (6)4I326010| 32010 0074 00 4 25623 TSX ERPR,4 YES, SAY - 'ZERO SUPPLIED (6)4I326100| 32011 0 00000 1 00136 RMS019,GO FOR MISSING OPERAND' (6)4I326110 32012 0074 00 4 33444 TSX SCAFLD,4 SCAN THE VARIABLE FIELD 4I326200| 32013 0074 00 4 34420 TSX EVLFLD,4 EVALUATE VARIABLE FIELD 4I326400| 32014 0774 00 2 00000 SETB AXT **,2 SET THE ADDRESS TO 4I326500| 32015 0621 00 2 00000 STA 0,2 THE NEW S-VALUE 4I326600| 0BINARY CARD ID. MAPJ0117 32016 0621 00 0 52030 STA LINK CLEAR OUT ALL 4I326700| 32017 4774 00 4 00002 AXC 2,4 TEXT EXCEPT 4I326800| 32020 0634 00 4 35154 SXA LNKMK,4 'SET' AND VALUE 4I326900| 32021 4520 00 0 35166 NZT SWCVFE HAVE WE FINISHED THE CARD 4I327000| 32022 0020 00 0 27156 TRA NMLD YES, EXIT 4I327100 32023 0074 00 4 25623 TSX ERPR,4 NO, TOO MANY 4I327200| 32024 0 00000 2 00030 WMS005,NOGO FIELDS 4I327300| 32025 0074 00 4 36662 TSX BSCAN,4 READ TO END OF VARIABLE (6)4I327400| 32026 3 00000 1 32025 TXH *-1,1,0 FIELD (6)4I327410| 32027 0020 00 0 27156 TRA NMLD 4I327500 32030 0074 00 4 33354 SETA TSX FINDTP,4 FIND THE CURRENT S-VALUE 4I327600| 32031 140000000000 VFD O6/14 4I327700| 32032 1 00034 4 26506 TXI PLNME,4,SETA-SETC+1 NO 'SET', MAKE A NEW ENTRY 4I327800| 32033 0020 00 0 31777 TRA SETD 'SET' FOUND, RETURN 4I327900| 32034 0074 00 4 25623 SETE TSX ERPR,4 'SET' REFERS TO NO 4I328000 32035 0 00000 4 00033 WMS008,NONONO NAME 4I328100| 32036 0020 00 0 26701 TRA STRTYP TREAT IT LIKE A COMMENT 4I328200| | * SPACE 4I328400| 32037 SPCTYP SYN * 4I328500 32037 0441 00 0 35146 LDI CUROPN FILE INSTRUCTION 4I328600| 32040 4055 00 000700 SIL 700 4I328700| 32041 0074 00 4 26706 TSX TXTGTR,4 IN LINK 4I328800| 32042 0074 00 4 33444 TSX SCAFLD,4 SCAN VARIABLE FIELD 4I329100| 32043 0520 00 0 35166 ZET SWCVFE ARE WE FINISHED 4I329300 0BINARY CARD ID. MAPJ0118| 32044 0020 00 0 32042 TRA *-2 NO, RETURN (6)4I329400| 32045 0535 00 4 35154 LAC LNKMK,4 YES, BUILD PARAMETER 4I329500| 32046 4634 00 4 32050 SXD *+2,4 4I329600| 32047 0074 00 4 34560 TSX FPCLAG,4 FILE THE TEXT 4I329700 32050 4 00000 0 52030 MZE LINK,,** 4I329800| 32051 0020 00 0 26640 TRA PASA RETURN 4I329900| | * TCD 4I330100| 32052 4520 00 0 21426 TCDTYP NZT SWABS IS THIS AN ABSMOD ASSEMBLY $4$4I330200 32053 0020 00 0 34255 TRA NOTEFF NO, EXIT AND PRINT 'NOT EFFECTIV$4$4I330300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 72 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32054 0020 00 0 27145 TRA NMLA $4$4I330600| * TITLE 4I330800| 32055 TITTYP SYN * 4I330900| 32055 4625 00 0 35171 STL TIDESW SET THE TITLE SWITCH 4I331000| 32056 0020 00 0 27271 TRA ABSTA 4I331100| * TTL 4I331300| 32057 TTLTYP SYN * 4I331400| 32057 4625 00 0 32065 STL TTLSW SET THE TTL SWITCH 4I331500| 32060 0074 00 4 35027 TSX INHANE,4 FILE BLINK AND BCD 4I331600| 32061 0074 00 4 34560 TSX FPCLAG,4 FILE TTL 4I331700 32062 0 00001 0 21466 PBLINK,,1 4I331800| 32063 4 00001 0 35146 MZE CUROPN,,1 OPERATION 4I331900| 32064 0020 00 0 26640 TRA PASA 4I332000| 32065 000000000000 TTLSW VFD TTL SWITCH 4I332100| * UNLIST 4I332300| 32066 UNLTYP SYN * 4I332400| 32066 0600 00 0 35145 STZ CCDSW CLEAR THE CONTROL CARD SWITCH 4I332500| 32067 0074 00 4 35027 TSX INHANE,4 FILE BLINK AND BCD $4$4I332600| 32070 4625 00 0 35174 STL UNLSW SET UNLIST SWITCH $4$4I332700 32071 0074 00 4 34560 UNLA TSX FPCLAG,4 PUT OPN INTO TEXT $4$4I332800| 0BINARY CARD ID. MAPJ0119| 32072 4 00001 0 35146 MZE CUROPN,,1 AND EXIT $4$4I332900| 32073 0020 00 0 26640 TRA PASA 4I333000| * UNPNCH 4I333200| 27267 UNPTYP SYN ABSTYP 4I333300| | * USE 4I333500| 32074 USETYP SYN * 4I333600 32074 4520 00 0 27643 NZT COMNSW IF NOT A 'COMMON' 4I333700| 32075 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4I333800| 32076 0074 00 4 26607 TSX INDUM,4 PUT A 'USE' 4I333900| 32077 4500 00 0 32171 CAL 16WD INTO THE 4I334000| 32100 0602 00 2 00000 SLW 0,2 DICTIONARY 4I334100 32101 0754 00 2 00000 PXA ,2 AND CHAIN THE 4I334200| 32102 0402 00 0 21721 SUB 10WD PREVIOUS 4I334300| 32103 0621 60 0 32172 STA* 16WD1 'USE' 4I334400| 32104 0621 00 0 32172 STA 16WD1 TO IT 4I334500| 32105 4500 00 0 35165 CAL SLCTR USE // COUNTER FOR COMMON (6)4I334600 32106 0520 00 0 27643 ZET COMNSW ARE WE UNDER 'COMMON' CONTROL 4I334700| 32107 0020 60 0 00000 CUSA TRA* ** YES, 4I334800| 32110 0074 00 4 36657 TSX SSCAN,4 NOT BLANK 4I335200| 32111 4054 00 000000 LFT 0 4I335300| 32112 4734 00 4 00000 PDX ,4 CHECK LENGTH (6)4I335400 32113 7 00006 4 32135 TXL USETB,4,6 OF THE NAME 4I335500| 32114 0737 00 4 00000 PAC ,4 TEST FOR A 4I335600| 32115 4500 00 4 00000 CAL 0,4 REFERENCE 4I335700| 32116 0322 00 0 32173 ERA USEPR TO THE 4I335800| 32117 4100 00 0 32131 TNZ USETC PREVIOUS 4I335900 0BINARY CARD ID. MAPJ0120| 32120 4500 00 4 00001 CAL 1,4 LOCATION 4I336000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 73 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32121 0322 00 0 32174 ERA USEPR+1 COUNTER 4I336100 32122 4100 00 0 32131 TNZ USETC IF NOT 'PREVIOUS' FILE AN ERROR MSG 4I336200| 32123 0774 00 2 00000 PLOC AXT **,2 PICK UP THE PREVIOUS COUNTER 4I336300| 32124 3 00000 2 32143 TXH USETD,2,0 WAS THERE ONE 4I336400| 32125 0074 00 4 25623 TSX ERPR,4 NO, FILE 'NO PREVIOUS LOCATION 4I336500| 32126 0 00000 2 00134 WMS028,NOGO COUNTER, BLANK USED' 4I336600 32127 0535 00 2 21451 LAC FLOC,2 USE THE BLANK COUNTER 4I336700| 32130 0020 00 0 32143 TRA USETD 4I336800| 32131 4500 00 4 00000 USETC CAL 0,4 RESTORE FIRST PART OF NAME (6)4I336900| 32132 0074 00 4 25623 TSX ERPR,4 (6)4I336910| 32133 0 00000 4 00015 WMS003,NONONO 4I337000 32134 0020 00 0 32141 TRA USETE (6)4I337010| 32135 0621 00 0 32136 USETB STA *+1 LOOK UP 4I337100| 32136 4500 00 0 00000 CAL ** THE NAME 4I337200| 32137 3 00000 4 32141 TXH USETE,4,0 USE BLANK LOCATION COUNTER IF NO (6)4I337210| 32140 4500 00 0 35142 CAL BLCTR NAME IN VARIABLE FIELD (6)4I337220 32141 0074 00 4 26411 USETE TSX NTLOC,4 (6)4I337300| 32142 0074 00 4 32175 TSX DUPLCT,4 FIND THE 4I337400| 32143 0634 00 2 32144 USETD SXA *+1,2 NAME AND 4I337500| 32144 4774 00 4 00000 AXC **,4 PUT IT IN 4I337600| 32145 0634 00 4 32170 SXA USETA,4 A TEXT WORD 4I337700 0BINARY CARD ID. MAPJ0121| 32146 4754 00 4 00000 PXD ,4 ENTER THE NAME 4I337800| 32147 0771 00 0 00003 ARS 3 OF THE LOCATION COUNTER 4I337900| 32150 4602 60 0 32172 ORS* 16WD1 IN THE 'USE' 4I338000| 32151 4535 00 1 21452 LDC SLOC,1 STORE PARTIAL 4I338100 32152 4500 00 0 21453 CAL LOCC SEPARATION 4I338200| 32153 0622 00 1 00001 STD 1,1 COUNT 4I338300| 32154 0634 00 1 32123 SXA PLOC,1 SAVE NAME OF PREVIOUS LOCATION CTR 4I338400| 32155 4634 00 4 21452 SXD SLOC,4 CHANGE NAME OF CURRENT L.C. 4I338500| 32156 4500 00 2 00001 CAL 1,2 RESTORE SUSPENDED 4I338600 32157 0622 00 0 21453 STD LOCC SEPARATION COUNT 4I338700| 32160 4754 00 0 00000 PXD 0,0 CLEAR PREVIOUS 4I338800| 32161 0622 00 2 00001 STD 1,2 SUSPENDED COUNT 4I338900| 32162 0520 00 0 27643 ZET COMNSW ARE WE UNDER 'COMMON' CONTROL 4I339000| 32163 0020 60 0 00000 CUSB TRA* ** YES, 4I339100 32164 0074 00 4 35027 TSX INHANE,4 OUTPUT CARD AND GET NEXT 4I339200| 32165 0074 00 4 34560 TSX FPCLAG,4 PUT 'USE' INTO TEXT 4I339300| 32166 4 00001 0 32170 MZE USETA,,1 4I339400| 32167 0020 00 0 26640 TRA PASA 4I339500| 32170 630000000000 USETA VFD O6/63 4I339600 32171 160000000000 16WD VFD O6/16 4I339700| 32172 000000000000 16WD1 VFD 4I339800| 32173 475125653146 USEPR BCI 2,PREVIOUS 4I339900| | 0BINARY CARD ID. MAPJ0122 32175 0634 00 4 32204 DUPLCT SXA DUPLX,4 SAVE RETURN 4I340100| 32176 0634 00 2 32207 SXA NEWLA+1,2 4I340200| 32177 4120 00 0 32210 TMI NEWLCT IF NEW NAME, PROCESS ACCORDINGLY 4I340300| 32200 0602 00 0 34417 SLW DMOAS SAVE FIRST DICTIONARY REFERENCE 4I340400| 32201 0074 00 4 33354 TSX FINDTP,4 4I340500 32202 040000000000 VFD O6/04 4I340600| 32203 0020 00 0 32206 TRA NEWLA MAKE A NEW ENTRY 4I340700| 32204 0774 00 4 00000 DUPLX AXT **,4 RETURN IN 4I340800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 74 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 32205 0020 00 4 00001 TRA 1,4 TRIUMPH 4I340900| | 32206 0500 00 0 34417 NEWLA CLA DMOAS RESTORE BCD LOCATION 4I341100| 32207 0774 00 2 00000 AXT **,2 4I341200| 32210 0074 00 4 26504 NEWLCT TSX PLNAA,4 PUT THE NEW NAME IN RE DICTIONARY 4I341300 32211 0074 00 4 26607 TSX INDUM,4 RESERVE A SECOND CELL 4I341400| 32212 0074 00 4 26607 TSX INDUM,4 RESERVE A THIRD CELL 4I341500| 32213 1 00002 2 32214 TXI *+1,2,2 BUMP BACK TO FIRST CELL 4I341600| 32214 4500 00 0 30140 CAL 4WD ENTER PROPER 4I341700| 32215 0602 00 2 00000 SLW 0,2 ADJECTIVE CODE 4I341800 32216 0600 00 2 00001 STZ 1,2 CLEAR SECOND CELL 4I341900| 32217 4500 00 0 30137 CAL 1WD IDENTIFY 'BEGIN' 4I342000| 32220 0602 00 2 00002 SLW 2,2 CELL AS A NAME 4I342100| 32221 0634 00 2 32222 SXA *+1,2 INVERT LOCATION 4I342200| 0BINARY CARD ID. MAPJ0123 32222 4774 00 4 00000 AXC **,4 OF ENTRY 4I342300| 32223 4535 00 1 21451 LDC FLOC,1 MAKE A NEW 4I342400| 32224 4634 00 4 21451 SXD FLOC,4 LAST L.C. ENTRY 4I342500| 32225 4754 00 4 00000 PXD ,4 CHAIN NEW LOCATION 4I342600| 32226 0771 00 0 00003 ARS 3 COUNTER TO 4I342700 32227 4501 00 0 30140 ORA 4WD THE LAST 4I342800| 32230 0625 00 1 00000 STT ,1 ONE DEFINED 4I342900| 32231 0622 00 1 00000 STD ,1 4I343000| 32232 0020 00 0 32204 TRA DUPLX 4I343100| * VFD 4I343300| 32233 VFDTYP SYN * 4I343400| 32233 0074 00 4 34222 TSX DGENTA,4 4I343500| 32234 0600 00 0 31363 STZ OPVA CLEAR THE OPVFD SWITCH 4I343700| 32235 0074 00 4 32256 TSX VFDTAL,4 4I343800 32236 0074 00 4 32332 TSX VFDSVF,4 4I343900| 32237 0020 00 0 32235 TRA *-2 4I344000| 32240 0074 00 4 32710 TSX VFDWRT,4 4I344100| 32241 0020 00 0 26640 TRA PASA 4I344200| 32242 000000000000 VFDHO VFD HOLL-OCT SWITCH 4I344300 32243 000000000000 VFDBHC VFD HOLLERITH FIELD SWITCH 4I344400| 32244 000000000000 VFDBOL VFD BOOLEAN SYMBOLIC SWITCH 4I344500| 32245 000000000000 VFDMGC VFD MISGUIDED BOOLEAN SWITCH 4I344600| 32246 000000000000 VFDFDN VFD CARD FINISHED SWITCH 4I344700| 32247 000000000000 VFDSGN VFD GROUP SIGN 4I344800 0BINARY CARD ID. MAPJ0124| 32250 000000000000 VFDBTS VFD NUMBER OF BITS IN THE SCANNED FIELD 4I344900| 32251 000000000000 VFDFDL VFD FIELD LENGTH 4I345000| 32252 0 00000 0 21704 VFDNFD L(0),,0 4I345100| 32253 360000000000 36WD VFD O6/36 4I345200 32254 000000000000 WTEMP OCT , (6)4I345300| | 32256 VFDTAL SYN * 4I345500| | * DETERMINE TYPE AND LENGTH OF A VFD GROUP 4I345700 * IF SYMBOLIC, VFDHO IS SET TO ZERO 4I345800| * IF HOLLERITH, VFDBHC IS SET NON-ZERO 4I345900| * FIELD LENGTH IS STORED IN VFDFDL 4I346000| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 75 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32256 0634 00 4 32277 SXA VFDTX,4 SAVE RETURN 4I346200| 32257 0074 00 4 34132 TSX TSTETC,4 4I346300| 32260 0020 00 0 32262 TRA *+2 4I346400| 32261 0020 00 0 32273 TRA VFDTE 4I346500 32262 0600 00 0 32242 STZ VFDHO SET SWITCH FOR SYMBOLIC 4I346600| 32263 0074 00 4 34065 TSX CKLTYP,4 IS FIELD SYMBOLIC 4I346700| 32264 4625 00 0 32242 STL VFDHO NO, SET SWITCH FOR HOLL-OCT 4I346800| 32265 4625 00 0 32243 STL VFDBHC SET THE HOLLERITH SWITCH 4I346900| 32266 0441 00 0 34101 LDI CKLT IS THE GROUP 4I347000 32267 4056 00 200000 LNT 200000 HOLLERITH 4I347100| 32270 0600 00 0 32243 STZ VFDBHC NO, RESET THE SWITCH 4I347200| 32271 0074 00 4 34132 TSX TSTETC,4 IS THERE A FIELD 4I347300| 32272 0020 00 0 32301 TRA VFDTA YES, 4I347400| 32273 4500 00 0 21705 VFDTE CAL L(1) 4I347500 32274 0602 00 0 32251 SLW VFDFDL 4I347600| 32275 0361 00 0 52030 ACL LINK 4I347700| 0BINARY CARD ID. MAPJ0125| 32276 0621 00 0 52030 STA LINK 4I347800| 32277 0774 00 4 00000 VFDTX AXT **,4 EXIT 4I347900 32300 0020 00 4 00001 TRA 1,4 4I348000| | 32301 0074 00 4 36657 VFDTA TSX SSCAN,4 SCAN LENGTH OF 4I348200| 32302 4054 00 020000 LFT SLB THIS GROUP 4I348300| 32303 4054 00 017774 LFT ALLBT-NMB-DCB-SLB WERE ANY NON-NUMERIC CHARACTERS SEEN 4I348900 32304 0020 00 0 32330 TRA VFDTB YES, FIND LENGTH FROM S-VALUE 4I349000| 32305 4734 00 2 00000 PDX ,2 PICK UP CHARACTER COUNT 4I349100| 32306 7 00006 2 32312 TXL *+4,2,6 IS IT 6 OR LESS 4I349200| 32307 0074 00 4 25623 TSX ERPR,4 NO, PRINT 'GROUP 4I349300| 32310 0 00000 4 00133 WMS027,NONONO COUNT IS TOO LARGE' 4I349400 32311 0774 00 2 00006 AXT 6,2 USE FIRST 6 CHARACTERS 4I349500| 32312 0621 00 0 32313 STA *+1 FETCH THE 4I349600| 32313 0560 00 0 00000 LDQ ** NUMBER 4I349700| 32314 0074 00 4 37237 TSX CV.10,4 CONVERT IT 4I349800| 32315 4320 00 0 21723 VFDTC ANA MSKAD STORE THE 4I349900 32316 0734 00 4 00000 PAX ,4 TEST THE 4I350000| 32317 7 01540 4 32324 TXL *+5,4,24*36 BIT COUNT 4I350100| 32320 0074 00 4 25623 TSX ERPR,4 BIT COUNT TOO LARGE 4I350200| 32321 0 00000 4 00144 WMS030,NONONO 4I350300| 32322 0774 00 4 01540 AXT 24*36,4 4I350400 32323 0754 00 4 00000 PXA ,4 4I350500| 0BINARY CARD ID. MAPJ0126| 32324 0602 00 0 32251 SLW VFDFDL GROUP LENGTH 4I350600| 32325 0361 00 0 52030 ACL LINK ACCUMULATE 4I350700| 32326 0621 00 0 52030 STA LINK THE TOTAL 4I350800 32327 0020 00 0 32277 TRA VFDTX NUMBER OF BITS 4I350900| 32330 0074 00 4 33310 VFDTB TSX A14TYP,4 GET S-VALUE OF SYMBOL (6)4I351000| 32331 0020 00 0 32315 TRA VFDTC 4I352400| | 32332 VFDSVF SYN * 4I352600 | * SCAN THE FIELD IN ONE GROUP OF A VFD CARD 4I352800| | 32332 0634 00 4 32403 SXA VFDSX,4 SAVE EXIT 4I353000| 32333 0600 00 0 32244 STZ VFDBOL CLEAR THE MIS-GUIDED BOOL SWITCH 4I353100 1 IBMAPV IBMAPJ 12/01/64 PAGE 76 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32334 0600 00 0 32247 STZ VFDSGN CLEAR THE - SIGN SWITCH 4I353200| 32335 0600 00 0 32246 STZ VFDFDN RESET 'FIELD-COMPLETE' SWITCH 4I353300| 32336 0600 00 0 35160 STZ OCTCNV CLEAR OCTAL CONVERT SWITCH $5$4I353310 32337 0600 00 0 35144 STZ BOOLSW CLEAR BOOLEAN SWITCH $5$4I353320| 32340 4520 00 0 35166 NZT SWCVFE IS THERE A FIELD TO SCAN 4I353400| 32341 0020 00 0 32407 TRA VFDSA NO, 4I353500| 32342 4520 00 0 32242 NZT VFDHO IS THE FIELD SYMBOLIC 4I353600| 32343 0020 00 0 32413 TRA VFDSB YES, 4I353700 32344 4625 00 0 32244 STL VFDBOL SET OCTAL-HOLLERITH SWITCH 4I353800| 32345 0520 00 0 32243 ZET VFDBHC 4I353900| 32346 0020 00 0 32374 TRA VFDSK 4I354000| 32347 0441 00 0 36755 LDI RESDU 4I354100| 32350 4056 00 400000 LNT 400000 IS THE FIRST 4I354200 32351 4051 00 600000 IIL 600000 CHARACTER 4I354300| 0BINARY CARD ID. MAPJ0127| 32352 4051 00 370000 IIL 370000 A + OR - 4I354400| 32353 4056 00 770000 LNT 770000 SIGN 4I354500| 32354 0020 00 0 32362 TRA VFDSG NO, 4I354600 32355 0074 00 4 36756 TSX HSCAN,4 SCAN THE SIGN 4I354700| 32356 0 00001 0 52430 TEMP,,1 4I354800| 32357 0441 00 0 52430 LDI TEMP IS IT A 4I354900| 32360 4056 00 200000 LNT 200000 - SIGN 4I355000| 32361 4625 00 0 32247 STL VFDSGN YES, 4I355100 32362 0074 00 4 36657 VFDSG TSX SSCAN,4 SCAN THE NEXT GROUP OF 4I355200| 32363 4054 00 037600 LFT EQB+DLB+CMB+PSB+MSB+ASB+SLB CHARACTERS 4I355300| 32364 7 00000 1 32377 TXL VFDSE,1,0 WAS THE TERMINATOR A BLANK (6)4I355400| 32365 1 77766 1 32366 VFDSI TXI *+1,1,-CMCDE WAS THE TERMINATOR 4I355500| 32366 7 00000 1 32370 TXL *+2,1,0 A COMMA 4I355600 32367 1 00012 1 32445 TXI VFDSC,1,CMCDE NO, GO TO BOOL SCAN 4I355700| 32370 1 00012 1 32377 TXI VFDSE,1,CMCDE YES, PROCESS THE CONSTANT 4I355800| 32371 0520 00 0 32243 VFDSF ZET VFDBHC IS THE GROUP HOLLERITH 4I355900| 32372 0020 00 0 32401 TRA VFDSH YES, TREAT IT LIKE OCTAL 4I356000| 32373 0020 00 0 32445 TRA VFDSC NO, GROUP MUST BE SYMBOLIC 4I356100 32374 0074 00 4 36657 VFDSK TSX SSCAN,4 SCAN THE HOLERITH 4I356200| 32375 4054 00 001000 LFT CMB GROUP 4I356300| 32376 3 00000 1 32365 TXH VFDSI,1,0 TRANSFER ON NON-BLANK TERMINATOR 4I356400| 32377 4054 00 000174 VFDSE LFT ALB+LPB+RPB+PDB+QTB WERE ANY NON-NUMERICS SCANNED 4I356800| 0BINARY CARD ID. MAPJ0128 32400 0020 00 0 32371 TRA VFDSF YES, 4I356900| 32401 0634 00 1 32246 VFDSH SXA VFDFDN,1 SET DONE-NOT DONE SWITCH 4I357000| 32402 0074 00 4 32472 TSX VFDBOC,4 BUILD AN OCTAL OUTPUT GROUP 4I357100| 32403 0774 00 4 00000 VFDSX AXT **,4 4I357200| 32404 0520 00 0 32246 ZET VFDFDN IS CARD FINISHED 4I357300 32405 0020 00 4 00001 TRA 1,4 NO, 4I357400| 32406 0020 00 4 00002 TRA 2,4 YES, 4I357500| | 32407 4500 00 0 32252 VFDSA CAL VFDNFD MAKE UP A GROUP OF 4I357700| 32410 0774 00 1 00000 AXT 0,1 ZEROES WITH A 4I357800 32411 0441 00 0 21704 LDI L(0) 4I357900| 32412 0020 00 0 32401 TRA VFDSH LENGTH OF ZERO (6)4I358000| | 32413 4500 00 0 35156 VFDSB CAL NMLSC SET GENERAL SCAN 4I358200| 32414 0602 00 0 36452 SLW SCLFT INDICATORS 4I358300 32415 0534 00 4 35154 LXA LNKMK,4 SAVE LOCATION OF CURRENT 4I358400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 77 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32416 0634 00 4 32435 SXA VFDSJ,4 SUB-FIELD-TYPE WORD 4I358500| 32417 0441 00 0 32251 LDI VFDFDL SEND THE SUB-FIELD 4I358600 32420 0055 00 700000 SIR 700000 TYPE WORD TO LINK 4I358700| 32421 0520 00 0 32242 ZET VFDHO IS THE FIELD OCTAL 4I358800| 32422 4055 00 200000 SIL 200000 YES, 4I358900| 32423 4520 00 0 32242 NZT VFDHO IS THE GROUP BOOLEAN 4I359000| 32424 4055 00 100000 SIL 100000 YES, 4I359100 32425 0074 00 4 26706 TSX TXTGTR,4 4I359200| 0BINARY CARD ID. MAPJ0129| 32426 0074 00 4 33444 TSX SCAFLD,4 SCAN THE GROUP 4I359300| 32427 0534 00 4 35154 LXA LNKMK,4 4I359500| 32430 0441 00 4 52027 LDI LINK-1,4 4I359600 32431 4054 00 000700 LFT 700 4I359700| 32432 4625 00 0 32246 STL VFDFDN 4I359800| 32433 4057 00 000700 RIL 700 4I359900| 32434 0604 00 4 52027 STI LINK-1,4 4I360000| 32435 0774 00 4 00000 VFDSJ AXT **,4 FETH THE SUB-GROUP 4I360100 32436 0441 00 4 52030 LDI LINK,4 TYPR 4I360200| 32437 0520 00 0 32246 ZET VFDFDN IS THE FIELD DONE 4I360300| 32440 4055 00 007700 SIL 7700 NO, SET THE CONTINUE FLAG FIELDS 4I360400| 32441 0604 00 4 52030 STI LINK,4 RETURN WORD 4I360500| 32442 0520 00 0 31363 ZET OPVA IS THIS AN OPVFD 4I360600 32443 0020 00 0 31342 TRA OPVC YES, 4I360700| 32444 0020 00 0 32403 TRA VFDSX 4I360800| | 32445 0634 00 1 32464 VFDSC SXA VFDMGA,1 SAVE THE TERMINATOR 4I361000| 32446 0602 00 0 32254 SLW WTEMP SAVE THE ACC INFORMATION 4I361100 32447 0604 00 0 32255 STI WTEMP+1 SAVE THE IND INFORMATION 4I361200| 32450 4625 00 0 32245 STL VFDMGC SET THE MIS-GUIDED BOOL SWITCH 4I361300| 32451 4625 00 0 35160 STL OCTCNV SET THE OCTAL SWITCH 4I361400| 32452 4625 00 0 35144 STL BOOLSW SET THE BOOL SWITCH 4I361500| 32453 0020 00 0 32413 TRA VFDSB PROCESS AS A SYMBOLIC 4I361600 | 0BINARY CARD ID. MAPJ0130| 32454 4520 00 0 32247 VFDMGB NZT VFDSGN WAS THERE A - SIGN 4I361800| 32455 0020 00 0 32464 TRA VFDMGA NO, 4I361900| 32456 4500 00 0 21722 CAL 11WD YES, INITIALIZE (6)4I362000 32457 0602 00 0 52427 SLW PDOPD-1 ZERO OPERAND (6)4I362010| 32460 4500 00 0 34413 CAL MNSWT AND MINUS (6)4I362020| 32461 0602 00 0 52431 SLW PDOPR+1 OPERATOR IN (6)4I362100| 32462 4500 00 0 32471 CAL VFDMGD SCAFLD (6)4I362110| 32463 0602 00 0 52430 SLW PDOPD STACKS (6)4I362120 32464 0774 00 1 00000 VFDMGA AXT **,1 RESTORE TERMINATOR, 4I362200| 32465 4500 00 0 32254 CAL WTEMP ACC INFO, AND 4I362300| 32466 0441 00 0 32255 LDI WTEMP+1 THE IND INFO 4I362400| 32467 0600 00 0 32245 STZ VFDMGC CLEAR THE MIS-GUIDED BOOL SWITCH 4I362500| 32470 0020 00 0 33462 TRA SCACA 4I362600 32471 0 00001 0 77777 VFDMGD PZE -1,,1 PUSHDOWN INITIALIZER (6)4I362700| | 32472 VFDBOC SYN * 4I362900| | * BUILD THE OCTAL EXPRESSION IN A VFD 4I363100 * ACC AND INDEX 1 CONTAIN THE RESULTS OF THE PREVIOUS 4I363200| * TSX TO SSCAN 4I363300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 78 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32472 0634 00 4 32673 SXA VFBOX,4 SAVE EXIT 4I363500| 32473 0520 00 0 32243 ZET VFDBHC IS CONSTANT BCD 4I363600| 32474 0020 00 0 32501 TRA *+5 YES, SKIP TEST 4I363700| 32475 4056 00 000002 LNT DCB DID 8 OR 9 APPEAR 4I363800| 32476 0020 00 0 32501 TRA *+3 NO, PROCEED 4I363900 32477 0074 00 4 25623 TSX ERPR,4 YES, FILE AN 4I364000| 32500 0 00000 2 00115 WMS017,NOGO ERROR MESSAGE 4I364100| 32501 0441 00 0 32251 LDI VFDFDL PICK UP THE FIELD LENGTH 4I364200| 0BINARY CARD ID. MAPJ0131| 32502 4055 00 200000 SIL 200000 SET OCTAL INDICATOR 4I364300 32503 7 00000 1 32505 TXL *+2,1,0 WAS TERMINATOR A BLANK 4I364400| 32504 4055 00 000700 SIL 700 IF NOT, SET FLAG FIELDS 4I364500| 32505 0074 00 4 26706 TSX TXTGTR,4 SEND SUB-FIELD TYPE TO TEXT 4I364600| 32506 0621 00 0 32537 STA VFBOA SAVE LOCATION OF CHARACTER GROUP 4I364700| 32507 0601 00 0 52430 STO TEMP MULTIPLY 4I364800 32510 0767 00 0 00001 ALS 1 CHARACTER 4I364900| 32511 0400 00 0 52430 ADD TEMP COUNT BY 3 IF 4I365000| 32512 0520 00 0 32243 ZET VFDBHC OCTAL, BY 6 4I365100| 32513 0767 00 0 00001 ALS 1 IF HOLLERITH 4I365200| 32514 4734 00 2 00000 PDX ,2 SAVE TOTAL BIT 4I365300 32515 0634 00 2 32250 SXA VFDBTS,2 COUNT 4I365400| 32516 4534 00 2 52430 LXD TEMP,2 PICK UP THE TOTAL CHARACTER COUNT 4I365500| 32517 4774 00 1 00001 AXC 1,1 PRESET WORKING 4I365600| 32520 0634 00 1 32552 SXA VFBOC,1 VALUES 4I365700| 32521 0774 00 1 00001 AXT 1,1 FOR BIT 4I365800 32522 0634 00 1 32533 SXA VFBOB,1 COMPRESSION 4I365900| 32523 0560 00 0 21704 LDQ L(0) AND JUSTIFICATION 4I366000| 32524 0520 00 0 32243 ZET VFDBHC USING LEADING ZEROS 4I366100| 32525 0560 00 0 36253 LDQ BLANKS FOR OCTAL AND LEADING 4I366200| 32526 4600 00 0 52461 STQ TEMP+25 BLANKS FOR HOLLERITH 4I366300 32527 0774 00 1 00014 AXT 12,1 PRESET SCAN TO GATHER 4I366400| 0BINARY CARD ID. MAPJ0132| 32530 0520 00 0 32243 ZET VFDBHC 12 OCTAL OR 6 HOLLERITH 4I366500| 32531 0774 00 1 00006 AXT 6,1 CHARACTERS PER WORD 4I366600| 32532 0634 00 1 32540 VFBOH SXA VFBOD,1 SAVE REMAINING CHARACTERS PER WORD 4I366700 32533 0774 00 1 00000 VFBOB AXT **,1 BUMP COUNT FOR 4I366800| 32534 1 77777 1 32535 TXI *+1,1,-1 PICKING UP LEFT 4I366900| 32535 0634 00 1 32533 SXA VFBOB,1 JUSTIFIED GROUPS 4I367000| 32536 0774 00 4 00006 AXT 6,4 SET BCD GROUP COUNT 4I367100| 32537 0560 00 1 00000 VFBOA LDQ **,1 PICK UP ONE BCD GROUP 4I367200 32540 0774 00 1 00000 VFBOD AXT **,1 PICK UP REMAINING CHARACTER COUNT 4I367300| 32541 0520 00 0 32243 VFBOG ZET VFDBHC IS THIS GROUP HOLLERITH 4I367400| 32542 4763 00 0 00003 LGL 3 YES, USE ALL 6 BITS 4I367500| 32543 4520 00 0 32243 NZT VFDBHC IS THIS GROUP OCTAL 4I367600| 32544 4773 00 0 00003 RQL 3 YES, USE ONLY LOW 3 BITS 4I367700 32545 4763 00 0 00003 LGL 3 4I367800| 32546 6 00001 1 32552 TNX VFBOC,1,1 HAVE WE FILLED A WORD 4I367900| 32547 6 00001 2 32562 VFBOE TNX VFBOF,2,1 ARE FINISHED 4I368000| 32550 2 00001 4 32541 TIX VFBOG,4,1 HAVE WE FINISHED ONE WORD 4I368100| 32551 0020 00 0 32532 TRA VFBOH NO, CONTINUE 4I368200 32552 0774 00 1 00000 VFBOC AXT **,1 BUMP BIT COLLECTION 4I368300| 32553 1 00001 1 32554 TXI *+1,1,1 AREA BY ONE WORD 4I368400| 32554 0634 00 1 32552 SXA VFBOC,1 4I368500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 79 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 32555 0602 00 1 52460 SLW TEMP+24,1 STORE ONE WORD OF COLLECTED BITS 4I368600| 0BINARY CARD ID. MAPJ0133| 32556 0774 00 1 00014 AXT 12,1 RESET FOR NEXT 4I368700| 32557 0520 00 0 32243 ZET VFDBHC GROUP TO BE 4I368800| 32560 0774 00 1 00006 AXT 6,1 COLLECTED 4I368900 32561 0020 00 0 32547 TRA VFBOE GO BACK TO THE FRAY 4I369000| 32562 0767 00 0 00003 VFBOF ALS 3 FILL THE LAST 4I369100| 32563 0520 00 0 32243 ZET VFDBHC WORD WITH 4I369200| 32564 0767 00 0 00003 ALS 3 ZEROES AND 4I369300| 32565 2 00001 1 32562 TIX VFBOF,1,1 STORE IT 4I369400 32566 0534 00 1 32552 LXA VFBOC,1 WITH THE 4I369500| 32567 1 00001 1 32570 TXI *+1,1,1 REST OF 4I369600| 32570 0634 00 1 32552 SXA VFBOC,1 4I369700| 32571 0602 00 1 52460 SLW TEMP+24,1 THE GROUP 4I369800| 32572 4500 00 0 32250 VFBOV CAL VFDBTS COMPARE THE NUMBER OF AVAILABLE 4I369900 32573 0402 00 0 32251 SUB VFDFDL BITS WITH NUMBER REQUESTED 4I370000| 32574 0734 00 1 00000 PAX ,1 PICK UP THE DIFFERENCE 4I370100| 32575 0534 00 2 32552 LXA VFBOC,2 STORE NUMBER OF COLLECTED 4I370200| 32576 1 00001 2 32577 TXI *+1,2,1 4I370300| 32577 4634 00 2 32617 SXD VFBOJ,2 WORDS FOR FUTURE COMPARISON 4I370400 32600 0774 00 2 00000 AXT 0,2 4I370500| 32601 0774 00 4 00000 AXT 0,4 4I370600| 32602 0120 00 0 32675 TPL VFBOI DO WE ADD LEADING ZEROES OR TRUNCATE 4I370700| 32603 0560 00 0 21704 LDQ L(0) 4I370800| 0BINARY CARD ID. MAPJ0134 32604 0520 00 0 32243 ZET VFDBHC ADD LEADING ZEROES 4I370900| 32605 0560 00 0 36253 LDQ BLANKS FOR OCTAL AND 4I371000| 32606 4600 00 4 52230 STQ 2B,4 BLANKS FOR HOLLERITH 4I371100| 32607 6 00044 1 32611 TNX *+2,1,36 IS THE DIFFERENCE GREATER THAN 36 4I371200| 32610 1 77777 4 32606 TXI *-2,4,-1 YES, ADD ONE FULL WORD OF ZEROES 4I371300 32611 0634 00 1 32614 SXA VFBOK,1 SAVE COUNT LESS THAN 36 4I371400| 32612 4500 00 2 52461 VFBOL CAL TEMP+25,2 PICK UP TWO 4I371500| 32613 0560 00 2 52460 LDQ TEMP+24,2 ADJACENT WORDS 4I371600| 32614 4765 00 0 00000 VFBOK LGR ** POSITION THEM PROPERLY 4I371700| 32615 4600 00 4 52230 STQ 2B,4 STORE ONE SHIFTED GROUP 4I371800 32616 1 00001 2 32617 TXI *+1,2,1 BUMP INPUT BUFFER COUNT 4I371900| 32617 3 00000 2 32621 VFBOJ TXH VFBOM,2,** ARE WE FINISHED 4I372000| 32620 1 77777 4 32612 TXI VFBOL,4,-1 NO, GO GET ANOTHER GROUP 4I372100| 32621 0441 00 0 52230 VFBOM LDI 2B IF THERE WAS A 4I372200| 32622 0520 00 0 32247 ZET VFDSGN MINUS SIGN, 4I372300 32623 4055 00 400000 SIL 400000 INCLUDE IT AS 4I372400| 32624 0604 00 0 52230 STI 2B THE HIGH ORDER BIT 4I372500| 32625 0520 00 0 31363 ZET OPVA IS THIS AN OPVFD 4I372600| 32626 0020 00 0 31347 TRA OPVD YES, 4I372700| 32627 0634 00 0 32650 SXA VFBOP,0 CLEAR THE COUNT 4I372800 32630 4634 00 0 32645 SXD VFBOQ,0 REGISTERS 4I372900| 32631 0534 00 1 32251 LXA VFDFDL,1 PICK UP FIELD SIZE 4I373000| 0BINARY CARD ID. MAPJ0135| 32632 4754 00 1 00000 VFBOU PXD ,1 USE FIELD 4I373100| 32633 0767 00 0 00014 ALS 12 SIZE AS 4I373200 32634 0044 00 0 00000 PAI OCTAL COUNT 4I373300| 32635 4754 00 0 00000 PXD ,0 CLEAR THE ACC 4I373400| 32636 4055 00 400000 SIL 400000 MARK THIS AS THE LAST GROUP 4I373500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 80 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0 32637 0634 00 1 32662 SXA VFBOR,1 SAVE THE FIELD SIZE 4I373600| 32640 7 00036 1 32644 TXL VFBOS,1,30 IS THE COUNT TOO BIG 4I373700| 32641 0441 00 0 32253 LDI 36WD YES, USE 36 FOR THIS GROUP 4I373800| 32642 0774 00 2 00036 AXT 30,2 SET MAXIMUM SIZE 4I373900| 32643 0634 00 2 32662 SXA VFBOR,2 FOR THE GROUP COUNT 4I374000 32644 0534 00 2 32662 VFBOS LXA VFBOR,2 PICK UP THE GROUP COUNT 4I374100| 32645 7 00000 2 32661 VFBOQ TXL VFBOT,2,** DO WE HAVE ENOUGH BITS IN THE MQ 4I374200| 32646 4535 00 4 32645 LDC *-1,4 NO, USE ALL THAT 4I374300| 32647 4763 00 4 00000 LGL 0,4 WE HAVE 4I374400| 32650 0774 00 2 00000 VFBOP AXT **,2 FETCH ANOTHER GROUP 4I374500 32651 0560 00 2 52230 LDQ 2B,2 OF 36 BITS 4I374600| 32652 1 77777 2 32653 TXI *+1,2,-1 BUMP COUNT FOR 4I374700| 32653 0634 00 2 32650 SXA VFBOP,2 NEXT WORD 4I374800| 32654 0774 00 2 00044 AXT 36,2 SET AVAILABLE BIT 4I374900| 32655 4634 00 2 32645 SXD VFBOQ,2 COUNT = 36 4I375000 32656 4634 00 4 32660 SXD *+2,4 DECREASE THE NUMBER 4I375100| 32657 0534 00 2 32662 LXA VFBOR,2 OF BITS REQUESTED BY 4I375200| 0BINARY CARD ID. MAPJ0136| 32660 1 00000 2 32645 TXI VFBOQ,2,** THE NUMBER SHIFTED 4I375300| 32661 0634 00 2 32662 VFBOT SXA VFBOR,2 USE REMAINING BITS REQUESTED 4I375400 32662 4763 00 0 00000 VFBOR LGL ** AS THE SHIFT 4I375500| 32663 0043 00 0 00000 OAI ADD LENGTH TO CONTROL BITS 4I375600| 32664 4754 00 2 00000 PXD 0,2 SAVE SHIFT COUNT $4$4I375700| 32665 0074 00 4 26706 TSX TXTGTR,4 SEND WORD TO TEXT $4$4I375800| 32666 4734 00 2 00000 PDX 0,2 AGAIN, DECREASE THE $4$4I375900 32667 4400 00 0 32645 SBM VFBOQ NUMBER OF BITS REQUESTED 4I376000| 32670 0622 00 0 32645 STD VFBOQ BY THE NUMBER ALREADY SHIFTED 4I376100| 32671 4056 00 400000 LNT 400000 IS THIS THE LAST GROUP 4I376200| 32672 1 77742 1 32632 TXI VFBOU,1,-30 NO, GO GET ANOTHER 4I376300| 32673 0774 00 4 00000 VFBOX AXT **,4 EXIT 4I376400 32674 0020 00 4 00001 TRA 1,4 4I376500| | 32675 7 00043 1 32700 VFBOI TXL *+3,1,35 IS EXCESS BIT COUNT LESS THAN 36 4I376700| 32676 1 00001 2 32677 TXI *+1,2,1 NO, TOSS OUT ONE FULL WORD 4I376800| 32677 1 77734 1 32675 TXI *-2,1,-36 DECREASE EXCESS BY 36 4I376900 32700 0634 00 1 32703 SXA VFBON,1 SAVE COUNT TO BE TOSSED OUT 4I377000| 32701 4500 00 2 52460 VFBOO CAL TEMP+24,2 PICK UP TWO 4I377100| 32702 0560 00 2 52457 LDQ TEMP+23,2 ADJACENT WORDS 4I377200| 32703 4763 00 0 00000 VFBON LGL ** MAKE ONE GOOD ONE 4I377300| 32704 0602 00 4 52230 SLW 2B,4 AND STORE IT 4I377400 32705 1 00001 2 32706 TXI *+1,2,1 BUMP INPUT COUNT BY ONE 4I377500| 0BINARY CARD ID. MAPJ0137| 32706 0522 00 0 32617 XEC VFBOJ TEST FOR COMPLETION 4I377600| 32707 1 77777 4 32701 TXI VFBOO,4,-1 BUMP OUTPUT COUNT BY ONE 4I377700| 32710 VFDWRT SYN * 4I377900| * COMPUTE TOTAL WORDS IN VFD AND WRITE THE TEXT 4I378000| | 32710 0634 00 4 32724 SXA VFDWX,4 SAVE EXIT 4I378200| 32711 0774 00 1 00001 AXT 1,1 START WITH WORD COUNT = 1 4I378300 32712 0534 00 4 52030 LXA LINK,4 FETCH BIT COUNT 4I378400| 32713 6 00044 4 32715 TNX *+2,4,36 BUMP THE WORD COUNT BY 4I378500| 32714 1 00001 1 32713 TXI *-1,1,1 ONE FOR EACH 36 BITS 4I378600| 32715 0634 00 1 52030 SXA LINK,1 STORE WORD COUNT 4I378700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 81 CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 32716 4754 00 1 00000 PXD ,1 BUMP THE 4I378800| 32717 0074 00 4 36275 TSX SEPBP,4 SEPARATION COUNT 4I378900| 32720 0535 00 4 35154 LAC LNKMK,4 WRITE 4I379000| 32721 4634 00 4 32723 SXD *+2,4 THE 4I379100 32722 0074 00 4 34560 TSX FPCLAG,4 T2 4I379200| 32723 4 00000 0 52030 MZE LINK,,** TEXT 4I379300| 32724 0774 00 4 00000 VFDWX AXT **,4 4I379400| 32725 0020 00 4 00001 TRA 1,4 4I379500| | * SKIP TO END CARD ON DICTIONARY OVERFLOW $5$4I379502| 32726 0774 00 4 00000 SKPEND AXT **,4 RESET LIMIT TO (6)4I379503| 32727 0634 00 4 21473 SXA INLMX,4 END OF OPERATIONS (6)4I379504| 32730 0774 00 4 66740 AXT DDCHN,4 RESET ENAC TO (6)4I379505 32731 0634 00 4 21437 SXA ENAC,4 START OF DICTIONARY (6)4I379506| 32732 0774 00 4 32743 AXT SKPENE,4 SET FOR SECOND NAME TABLE (6)4I379507| 32733 0634 00 4 21474 SXA OUTNT,4 OVERFLOW OCCURRENCE (6)4I379508| 0BINARY CARD ID. MAPJ0138| 32734 0074 00 4 36400 TSX GTDICT,4 IS -END- CARD (6)4I379509 32735 0322 00 0 44245 ERA END.WD BEING PROCESSED (6)4I379510| 32736 4100 00 0 32743 TNZ SKPENE NO, TRANSFER $5$4I379511| 32737 0560 00 0 36253 SKPENF LDQ BLANKS YES, SET NO NAME $5$4I379513| 32740 4600 00 0 36755 STQ RESDU OR V.F. AND RETURN $5$4I379515| 32741 0600 00 0 21461 STZ NAME TO PROCESS NORMAL $5$4I379517 32742 0020 00 0 26640 TRA PASA END. $5$4I379519| 32743 0600 00 0 36234 SKPENE STZ DUPISW CLEAR DUP SWITCH $5$4I379521| 32744 0600 00 0 36235 STZ SWMACI CLEAR MACRO SWITCH $5$4I379523| 32745 4520 00 0 43475 NZT SRCTBL IS SOURCE OTHER THAN SYSUNI $5$4I379525| 32746 0020 00 0 32751 TRA *+3 $5$4I379527 32747 0074 00 4 43440 TSX UPSRCE,4 YES, PUSH UP SOURCE $5$4I379529| 32750 0020 00 0 32745 TRA *-3 $5$4I379531| 32751 0520 00 0 36251 ZET SWEND OUT OF ALL DUPS AND MACROS, (6)4I379532| 32752 0020 00 0 32760 TRA SKPENG IF NOT MANUFACTURED -END-, (6)4I379533| 32753 0074 00 4 44274 TSX MCDPR,4 FETCH NEXT (6)4I379534 32754 0074 00 4 36400 TSX GTDICT,4 AND CHECK FOR (6)4I379535| 32755 0322 00 0 44245 ERA END.WD -END-CARD $5$4I379537| 32756 4100 00 0 32753 TNZ *-3 BACK TO READ IF NOT -END- (6)4I379539| 32757 0020 00 0 32737 TRA SKPENF -END-, GO SET NO UF. AND PROCESS $5$4I379541| 32760 4500 00 0 44245 SKPENG CAL END.WD FORCE END (6)4I379550 32761 0602 00 0 35146 SLW CUROPN PROCESSING (6)4I379560| 0BINARY CARD ID. MAPJ0139| 32762 0020 00 0 27722 TRA ENDD (6)4I379570| 1 IBMAPV IBMAPJ 12/01/64 PAGE 82 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ 0| * NORMAL PSEUDO-OP PROCESSOR 4I379700| | * PLACES THE NAME IN THE PSEUDO-OP DECREMENT 4I379900| * ENTERS THE PSEUDO-OP INTO THE LOCATION COUNTER CHAIN 4I380000 * WRITE INTERNAL AND PSEUDO-OP TEXT 4I380100| | * ENTERED BY 4I380300| * TSX NMLPSO,4 4I380400| * VFD (PSEUDO-OP IN PSBF FORM) 4I380500 | 32763 NMLPSO SYN * 4I380700| 32763 4500 00 4 00001 CAL 1,4 PICK UP PSBF FORM 4I380800| 32764 0602 00 0 35147 SLW CURPSO OF THE PSEUDO-OP 4I380900| 32765 4754 00 0 00000 PXD ,0 CLEAR ACC 4I381000 32766 4520 00 0 21461 NZT NAME IS THERE A NAME 4I381100| 32767 0020 00 0 32775 TRA NMLPA NO, 4I381200| 32770 0074 00 4 26506 TSX PLNME,4 YES, PUT IT IN RE DICTIONARY 4I381300| 32771 4500 00 0 30137 CAL 1WD MARK THE DICTIONARY ENTRY 4I381400| 32772 0602 00 2 00000 SLW ,2 WITH THE NAME ADJECTIVE 4I381500 32773 4754 00 2 00000 PXD ,2 PUT THE LOCATION 4I381600| 32774 0402 00 0 21721 SUB 10WD OF THE NAME INTO 4I381700| 32775 0622 00 0 35147 NMLPA STD CURPSO THE PSEVDO-OP 4I381800| 32776 0074 00 4 34704 TSX FPCPI,4 FIND THE CURRENT LOCATION 4I381900| 32777 0441 00 0 21721 LDI 10WD BUILD THE TEXT 4I382000 33000 0604 60 0 36346 STI* SWPSOP FOR THE PSEVDO-OP 4I382100| 33001 0074 00 4 26706 TSX TXTGTR,4 BUFFER 4I382200| 33002 0074 00 4 36317 TSX LOCHN,4 PUT THE ORG IN THE L-C- CHAIN 4I382300| 33003 4500 60 0 34723 CAL* PIFLOC MOVE THE L.C. CHAIN WORD 4I382400| 33004 0602 00 0 52030 SLW LINK TO THE OUTPUT STRING 4I382500 33005 0441 00 0 35147 LDI CURPSO 4I382600| * ENTRY FROM SOME NON-NORMAL PSEUDO OPS 4I382700| 33006 0074 00 4 26706 NMLPC TSX TXTGTR,4 (6)4I382800| 33007 4520 00 0 35164 NZT PSOWNF SHOULD WE IGNORE FIELD (6)4I382900| 0BINARY CARD ID. MAPJ0140 33010 0074 00 4 34132 TSX TSTETC,4 NO, IS IT BLANK (6)4I383000| 33011 0020 00 0 33016 TRA NMLPE NO (6)4I383100| 33012 0520 00 0 27607 ZET BSLNKM YES, IS THIS FIRST TIME (6)4I383110| 33013 0020 60 0 33023 TRA* NMLPS THROUGH FOR THIS CARD (6)4I383120| 33014 0074 00 4 25623 TSX ERPR,4 YES, SAY 'ZERO SUPPLIED (6)4I383200 33015 0 00000 1 00136 RMS019,GO FOR MISSING OPERAND' (6)4I383300| 33016 0074 00 4 33444 NMLPE TSX SCAFLD,4 SCAN NEXT FIELD (6)4I383400| 33017 0520 00 0 33306 ZET DBUGSW TEST FOR DEBUG TYPE $4$4I383500| 33020 0074 00 4 33057 TSX BUGCDE,4 PSEUDO-OP. $4$4I383600| 33021 0520 00 0 35166 ZET SWCVFE IF NOT END, (6)4I383610 33022 0020 00 0 33016 TRA NMLPE GO AFTER ANOTHER FIELD 4I383700| 33023 0020 00 0 33024 NMLPS TRA NMLPF SWITCH FOR NON-NORMAL OPS (6)4I383720| 33024 0535 00 4 35154 NMLPF LAC LNKMK,4 BUILD THE PARAMETER WORD FOR 4I383800| 33025 0520 00 0 35164 ZET PSOWNF SHALL WE IGNORE THIS FIELD 4I383900| 33026 0774 00 4 00002 AXT 2,4 YES, 4I384000 33027 4634 00 4 33050 SXD NMLPD,4 TRANSMITTING THE STRING 4I384100| 33030 4634 00 4 33041 SXD NMLPG,4 SA1E PSEUDO-OP TEXT LENGTH 4I384200| 33031 4634 00 0 33047 SXD NMLPH,0 SET T-2 TEXT LENGTH=0 4I384300| 33032 7 00002 4 33037 TXL NMLPI,4,2 IS PSEUDO-OP TEXT GREATER THAN 2 WDS 4I384400| 33033 4500 00 0 34264 CAL FLGFD1 YES, INCLUDE THE EXCESS 4I384500 1 IBMAPV IBMAPJ 12/01/64 PAGE 83 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33034 4602 00 0 35146 ORS CUROPN ABOVE TWO WORDS IN 4I384600| 33035 1 77776 4 33036 TXI *+1,4,-2 THE T-2 TEXT 4I384700| 0BINARY CARD ID. MAPJ0141 33036 4634 00 4 33047 SXD NMLPH,4 4I384800| 33037 0534 00 4 34724 NMLPI LXA PSOPLC,4 FETCH THE PSBF POINTER 4I384900| 33040 0634 00 4 35146 SXA CUROPN,4 PUT PSBF POINTER INTO THE TEXT OP 4I385000| 33041 1 00000 4 33042 NMLPG TXI *+1,4,** BUMP AND STORE 4I385100| 33042 0634 00 4 34724 SXA PSOPLC,4 THE PSBF POINTER 4I385200 33043 1 00001 4 33044 TXI *+1,4,1 PUT THE POINTER IN 4I385300| 33044 0634 00 4 52031 SXA LINK+1,4 THE PSEUDO-OP 4I385400| 33045 0074 00 4 34560 TSX FPCLAG,4 INTERNAL TEXT 4I385500| 33046 0 00001 0 35146 CUROPN,,1 AND THE 4I385600| 33047 0 00000 0 52032 NMLPH LINK+2,,** 4I385700 33050 5 00000 0 52030 NMLPD MON LINK,,** PSEUDO-OP 4I385800| 33051 0600 00 0 35164 STZ PSOWNF CLEAR SPECIAL SWITCHES $4$4I385900| 33052 0600 00 0 30166 STZ SINSW $4$4I386000| 33053 0520 00 0 27643 ZET COMNSW ARE WE UNDER 'COMMON' CONTROL 4I386100| 33054 0020 00 0 27625 TRA CMNA YES, 4I386200 33055 0020 00 0 26640 TRA PASA $4$4I386300| | | | | 33056 0 00000 0 00000 SIR6 PZE 0 EQUAL SWITCH $4$4I386500| 33057 0600 00 0 33161 BUGCDE STZ BUGFLD $4$4I386600| 33060 4520 00 0 35166 NZT SWCVFE $4$4I386700| 33061 0020 00 0 33156 TRA BUGEXT+3 (6)4I386800 33062 0634 00 4 33153 SXA BUGEXT,4 SAVE FOR EXIT $4$4I386900| 33063 0600 00 0 42306 STZ LPFLAG $4$4I387000| 0BINARY CARD ID. MAPJ0142| 33064 0534 00 4 35154 LXA LNKMK,4 $4$4I387100| 33065 0441 00 4 52027 LDI LINK-1,4 $4$4I387200 33066 4057 00 000200 RIL 000200 $4$4I387300| 33067 0604 00 4 52027 STI LINK-1,4 $4$4I387400| 33070 0074 00 4 36657 BUGSCN TSX SSCAN,4 ENTER SCAN $4$4I387500| 33071 4054 00 001060 LFT CMB+LPB+RPB $4$4I387600| 33072 0520 00 0 42306 ZET LPFLAG HAS A LEFT PAREN BEEN FOUND $4$4I387700 33073 0020 00 0 33162 TRA BUGDIM YES $4$4I387800| 33074 7 00000 1 33105 TXL BUGMD,1,0 TRANSFER ON END OF FIELD (6)4I387900| 33075 1 77773 1 33076 BUGMD2 TXI *+1,1,-LPCDE $5$4I388000| 33076 7 00000 1 33103 TXL BUGMD-2,1,0 $5$4I388100| 33077 0074 00 4 33276 TSX BUGERR,4 NO, ERROR $4$4I388200 33100 0074 00 4 36657 TSX SSCAN,4 $4$4I388300| 33101 4054 00 000020 LFT LPB $4$4I388400| 33102 7 00000 1 33105 TXL BUGMD,1,0 TRANSFER ON END OF FIELD (6)4I388500| 33103 4625 00 0 42306 STL LPFLAG SET SWITCH $4$4I388600| 33104 0774 00 1 00005 AXT LPCDE,1 $5$4I388610 33105 4734 00 4 00000 BUGMD PDX ,4 $4$4I388700| 33106 0621 00 0 33117 STA BUGMD1 $5$4I388710| 33107 7 00000 4 33114 TXL BUGMD1-3,4,0 $4$4I388800| 33110 7 00001 4 33112 TXL *+2,4,1 MUST BE A SINGLE CHARACTER $4$4I388900| 33111 0074 00 4 33276 TSX BUGERR,4 $4$4I389000 1 IBMAPV IBMAPJ 12/01/64 PAGE 84 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0143| 33112 4056 00 036713 LNT ALLBT-ALB-LPB-CMB-RPB ANY INVALID CHARACTERS $4$4I389100| 33113 0020 00 0 33117 TRA BUGMD1 NO $4$4I389200 33114 4754 00 0 00000 PXD 0,0 $4$4I389400| 33115 4774 00 4 33123 AXC BUGRET-1,4 $4$4I389500| 33116 0020 00 0 33276 TRA BUGERR GO TO ERROR ROUTINE $4$4I389600| 33117 0560 00 0 00000 BUGMD1 LDQ ** $5$4I389700| 33120 4754 00 0 00000 ZAC CLEAR AC $5$4I389800 33121 4114 01 0 33204 CAQ MODTBL,,1 FETCH MODE CODE $4$4I389900| 33122 0100 00 0 33115 TZE BUGMD1-2 ERROR $4$4I390000| 33123 0402 00 0 21705 SUB L(1) $4$4I390100| 33124 0044 00 0 00000 BUGRET PAI PLACE IN INDICATORS $4$4I390200| 33125 0442 00 0 31716 OSI 70WD FORM 70 WORD $4$4I390300 33126 4055 00 000007 SIL 7 SET 'MODE CODE' $4$4I390400| 33127 0520 00 0 33056 ZET SIR6 EQUAL TYPE $4$4I390500| 33130 0055 00 200000 SIR 200000 YES, SET EQUAL $4$4I390600| 33131 0055 00 400000 SIR 400000 SET CONTINUATION INDICATION $4$4I390700| 33132 0074 00 4 26706 TSX TXTGTR,4 PLACE IN LINK $4$4I390800 33133 4500 00 0 33307 CAL NAMEDB $4$4I390900| 33134 0100 00 0 33137 TZE *+3 $4$4I391000| 33135 0074 00 4 26411 TSX NTLOC,4 $4$4I391100| 33136 4320 00 0 21723 ANA MSKAD $4$4I391200| 33137 4501 00 0 31716 ORA 70WD $4$4I391300 0BINARY CARD ID. MAPJ0144| 33140 0044 00 0 00000 PAI $4$4I391400| 33141 0520 00 0 33056 ZET SIR6 $4$4I391500| 33142 0055 00 200000 SIR 200000 $4$4I391600| 33143 7 00000 1 33145 TXL *+2,1,0 DO NOT SET CONTINUE BIT IF BLANK TERM. $4$4I391700 33144 0055 00 400000 SIR 400000 $4$4I391800| 33145 0074 00 4 26706 TSX TXTGTR,4 $4$4I391900| 33146 3 00000 1 33070 BUGEX1 TXH BUGSCN,1,0 $4$4I392000| 33147 0441 00 0 35146 LDI CUROPN $4$4I392100| 33150 0055 00 600000 SIR 600000 $4$4I392200 33151 4520 00 0 33056 NZT SIR6 TEST FOR EQUAL $4$4I392300| 33152 0604 00 0 35146 STI CUROPN DEBUGGING TYPE BSS OR BES $4$4I392400| 33153 0774 00 4 00000 BUGEXT AXT **,4 $4$4I392500| 33154 4625 00 0 33161 STL BUGFLD $4$4I392600| 33155 0634 00 0 33172 SXA BUGCNT,0 IF BLANK $4$4I392800 33156 0600 00 0 33306 STZ DBUGSW CLEAR SWITCH $4$4I392900| 33157 0600 00 0 33056 STZ SIR6 $4$4I393000| 33160 0020 00 4 00001 TRA 1,4 $4$4I393100| 33161 0 00000 0 00000 BUGFLD PZE ** $4$4I393200| 33162 0634 00 2 33223 BUGDIM SXA BUGGO,2 $4$4I393400| 33163 4734 00 2 00000 PDX ,2 CHARACTER COUNT $4$4I393500| 33164 0621 00 0 33165 STA *+1 $4$4I393600| 33165 0560 00 0 00000 LDQ ** FETCH $4$4I393700| 0BINARY CARD ID. MAPJ0145 33166 0074 00 4 37237 TSX CV.10,4 CONVERT $4$4I393800| 33167 0734 00 2 00000 PAX ,2 $4$4I393900| 33170 3 00000 2 33172 TXH *+2,2,0 $4$4I394000| 33171 4500 00 0 21705 CAL L(1) $4$4I394100| 33172 0774 00 2 00000 BUGCNT AXT **,2 $4$4I394200 33173 0044 00 0 00000 PAI $4$4I394300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 85 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33174 1 00001 2 33175 TXI *+1,2,1 $4$4I394400| 33175 0634 00 2 33172 SXA BUGCNT,2 SET COUNT $4$4I394500 33176 4754 00 2 00000 PXD ,2 $4$4I394600| 33177 0043 00 0 00000 OAI $4$4I394700| 33200 0442 00 0 31716 OSI 70WD SETUP 70 WORD $4$4I394800| 33201 4520 00 0 35166 NZT SWCVFE $4$4I395100| 33202 0020 00 0 33217 TRA BUGQT $4$4I395200 33203 1 77772 1 33204 TXI *+1,1,-RPCDE FOR TRANSMISSION $4$4I395300| 33204 3 00000 1 33214 TXH BUGQS,1,0 $4$4I395400| 33205 0560 00 0 36755 LDQ RESDU $4$4I395500| 33206 4114 01 1 36537 CAQ SCTBL,1,1 $4$4I395600| 33207 7 00000 1 33211 TXL *+2,1,0 $4$4I395700 33210 0074 00 4 33276 TSX BUGERR,4 $4$4I395800| 33211 0074 00 4 35027 TSX INHANE,4 $4$4I395900| 33212 0774 00 1 00000 AXT 0,1 $4$4I396000| 33213 0020 00 0 33220 TRA BUGQT+1 $4$4I396100| 0BINARY CARD ID. MAPJ0146 33214 3 00002 2 33210 BUGQS TXH *-4,2,2 $4$4I396200| 33215 0055 00 400000 SIR 400000 SET CONTINUATION INDICATION $4$4I396300| 33216 0020 00 0 33220 TRA *+2 $4$4I396400| 33217 0074 00 4 33276 BUGQT TSX BUGERR,4 $4$4I396500| 33220 0520 00 0 33056 ZET SIR6 EQUAL TYPE $4$4I396600 33221 0055 00 200000 SIR 200000 YES, SET EQUAL $4$4I396700| 33222 0074 00 4 26706 TSX TXTGTR,4 $4$4I396800| 33223 0774 00 2 00000 BUGGO AXT **,2 RESTORE X2 $4$4I396900| 33224 0020 00 0 33146 TRA BUGEX1 $4$4I397000| 33204 MODTBL EQU *-17 $4$4I397700| 33225 000000000000 VFD 36/0 A 21 $4$4I397800| 33226 000000000000 VFD 36/0 B 22 $4$4I397900| 33227 000000000003 VFD 36/2+1 2 C 23 $4$4I398000| 33230 000000000017 VFD 36/14+1 14 D 24 $4$4I398100 33231 000000000000 VFD 36/0 E 25 $4$4I398200| 33232 000000000010 VFD 36/7+1 7 F 26 $4$4I398300| 33233 000000000000 VFD 36/0 G 27 $4$4I398400| 33234 000000000007 VFD 36/6+1 6 H 30 $4$4I398500| 33235 000000000000 VFD 36/0 I 31 $4$4I398600 33236 000000000000 VFD 36/0 +0 32 $4$4I398700| 33237 000000000000 VFD 36/0 . 33 $4$4I398800| 33240 000000000000 VFD 36/0 ) 34 $4$4I398900| 33241 000000000000 VFD 36/0 NO 35 $4$4I399000| 0BINARY CARD ID. MAPJ0147 33242 000000000000 VFD 36/0 NO 36 $4$4I399100| 33243 000000000000 VFD 36/0 NO 37 $4$4I399200| 33244 000000000000 VFD 36/0 - 40 $4$4I399300| 33245 000000000020 VFD 36/15+1 15 J 41 $4$4I399400| 33246 000000000000 VFD 36/0 K 42 $4$4I399500 33247 000000000005 VFD 36/4+1 4 L 43 $4$4I399600| 33250 000000000000 VFD 36/0 M 44 $4$4I399700| 33251 000000000000 VFD 36/0 N 45 $4$4I399800| 33252 000000000001 VFD 36/0+1 0 O 46 $4$4I399900| 33253 000000000000 VFD 36/0 P 47 $4$4I400000 33254 000000000000 VFD 36/0 Q 50 $4$4I400100| 33255 000000000000 VFD 36/0 R 51 $4$4I400200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 86 | CARD IMAGE ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33256 000000000000 VFD 36/0 -0 52 $4$4I400300 33257 000000000000 VFD 36/0 $ 53 $4$4I400400| 33260 000000000000 VFD 36/0 * 54 $4$4I400500| 33261 000000000000 VFD 36/0 NO 55 $4$4I400600| 33262 000000000000 VFD 36/0 NO 56 $4$4I400700| 33263 000000000000 VFD 36/0 NO 57 $4$4I400800 33264 000000000000 VFD 36/0 BLANK 60 $4$4I400900| 33265 000000000000 VFD 36/0 // 61 $4$4I401000| 33266 000000000002 VFD 36/1+1 1 S 62 $4$4I401100| 33267 000000000000 VFD 36/0 T 63 $4$4I401200| 0BINARY CARD ID. MAPJ0148 33270 000000000000 VFD 36/0 U 64 $4$4I401300| 33271 000000000000 VFD 36/0 V 65 $4$4I401400| 33272 000000000000 VFD 36/0 W 66 $4$4I401500| 33273 000000000006 VFD 36/5+1 5 X, 67 $4$4I401600| 33274 000000000000 VFD 36/0 Y 70 $4$4I401700 33275 000000000000 VFD 36/0 Z 71 $4$4I401800| | 33276 0634 00 4 33303 BUGERR SXA BUGACC-2,4 ERROR ROUTINE $4$4I402000| 33277 0602 00 0 33305 SLW BUGACC $4$4I402100| 33300 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE 'DEBUG $4$4I402200 33301 0 00000 1 00037 PZE RMS004,GO FORMAT ERROR $4$4I402300| 33302 4500 00 0 33305 CAL BUGACC RESTORE ACC $4$4I402400| 33303 0774 00 4 00000 AXT **,4 $4$4I402500| 33304 0020 00 4 00001 TRA 1,4 EXIT $4$4I402600| 33305 0 00000 0 00000 BUGACC PZE ** $4$4I402700 33306 0 00000 0 00000 DBUGSW PZE ** DEBUG SWITCH $4$4I402800| 33307 0 00000 0 00000 NAMEDB PZE ** $4$4I402900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 87 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33310 A14TYP SYN * $4$4I403100| | | * PLACE THE S-VALUE OF A SYMBOL IN THE ACCUMULATOR. ENTER WITH 4I403300| * PZE LOCC,,N IN THE ACCUMULATOR 4I403400 | * LOCC = THE LOCATION OF THE CHARACTER GROUP 4I403600| * N = THE NUMBER OF CHARACTERS IN THE GROUP 4I403700| | 33310 0634 00 4 33332 SXA A14X,4 4I403900| 33311 4734 00 1 00000 PDX ,1 PICK UP CHARACTER COUNT 4I404000| 33312 7 00006 1 33315 TXL *+3,1,6 IS COUNT TOO LARGE 4I404200| 33313 0074 00 4 25623 TSX ERPR,4 YES, FILE AN ERROR 4I404300| 33314 0 00000 4 00015 PZE WMS003,NONONO 4I404400 33315 0621 00 0 33316 STA *+1 PICK UP THE 4I404500| 0BINARY CARD ID. MAPJ0149| 33316 4500 00 0 00000 A14C CAL ** NAME (6)4I404600| 33317 0074 00 4 26411 TSX NTLOC,4 LOOK IT UP 4I404700| 33320 0621 00 0 33365 STA FINDB STORE NAME TABLE ADDRESS (6)4I404800 33321 0120 00 0 33334 TPL A14A (6)4I404810| 33322 0522 00 0 33316 XEC A14C STORE THE NAME IF NOT (6)4I404820| 33323 0602 60 0 33365 SLW* FINDB IN TABLE (6)4I404830| 33324 4500 00 0 33365 A14B CAL FINDB RETRIEVE THE ADDRESS (6)4I404840| 33325 0522 00 0 21414 XEC PLNRF (6)4I404900 33326 0621 00 0 40701 STA CTL.EL+1 PUT NAME IN MESSAGE (6)4I404910| 33327 0074 00 4 25623 TSX ERPR,4 '-----' IS AN UNDEFINED (6)4I404920| 33330 0 40700 1 00071 MSS038,GO,CTL.EL IMMEDIATE SYMBOL. (6)4I404930| 33331 4754 00 0 00000 ZAC USE ZERO AS VALUE (6)4I404940| 33332 0774 00 4 00000 A14X AXT **,4 RETURN 4I405000 33333 0020 00 4 00001 TRA 1,4 4I405100| | 33334 0074 00 4 33354 A14A TSX FINDTP,4 4I405200| 33335 140000000000 14WD VFD O6/14 4I405300| 33336 0020 00 0 33324 TRA A14B ERROR IF NOT DEFINED BY SET (6)4I405400 33337 4500 00 2 00000 CAL ,2 USE THE CURRENT S-VALUE 4I405500| 33340 4320 00 0 21723 ANA MSKAD 4I405600| 33341 0020 00 0 33332 TRA A14X 4I405700| | 33342 7 00000 1 33353 DECER TXL DECEX,1,0 4I405900 33343 7 00011 1 33345 TXL *+2,1,CMCDE-1 4I406000| 0BINARY CARD ID. MAPJ0150| 33344 7 00012 1 33353 TXL DECEX,1,CMCDE 4I406100| 33345 0634 00 4 33352 SXA DECRA,4 (6)4I406200| 33346 0074 00 4 25623 TSX ERPR,4 4I406300 33347 0 00000 4 00162 WMS038,NONONO 4I406400| 33350 0074 00 4 34140 TSX TSTCC,4 (6)4I406500| 33351 0020 00 0 34140 TRA TSTCC (6)4I406510| 33352 0774 00 4 00000 DECRA AXT **,4 (6)4I406600| 33353 0020 00 4 00001 DECEX TRA 1,4 4I406700 1 IBMAPV IBMAPJ 12/01/64 PAGE 88 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| 33354 FINDTP SYN * 4I406900| | * LOOKS FOR CERTAIN ADJECTIVE CODES 4I407100| * ENTERED VIA 4I407200| * TSX FINDTP,4 4I407300| * VFD O6/ADJ 4I407400 * WITH 4I407500| * PZE LOCC 4I407600| * IN THE ACCUMULATOR. 4I407700| * LOCC = A NAME TABLE LOCATION 4I407800| * RETURNS 4I407900 * TRA 2,4 4I408000| * IF NO SUCH ADJECTIVE IS FOUND 4I408100| * TRA 3,4 WITH THE CONTENTS OF INDEX 2 = -INTERNAL LOC. 4I408200| * IF THE CORRECT ADJECTIVE CODE IS FOUND 4I408300| | 33354 0634 00 4 33376 SXA FINDX,4 SAVE EXIT 4I408500| 33355 0560 00 4 00001 LDQ 1,4 FETCH DESIRED 4I408600| 33356 4600 00 0 33400 STQ FINDT ADJECTIVE TYPE 4I408700| 33357 0621 00 0 33365 FINDA STA FINDB SAVE ADDRESS FOR NEXT REFERENCE 4I408800 33360 0074 00 4 26565 TSX INTST,4 FETCH THE 4I408900| 33361 4500 00 2 00000 CAL ,2 ADJECTIVE CODE 4I409000| 33362 4320 00 0 21726 ANA MSKHO AND TEST IT 4I409100| 33363 0322 00 0 33400 ERA FINDT AGAINST THE SUPPLIED 4I409200| 33364 0100 00 0 33372 TZE FINDC ADJECTIVE CODE 4I409300 33365 4500 00 0 00000 FINDB CAL ** TEST FAILED, NOW TEST 4I409400| 33366 0044 00 0 00000 PAI FOR DUPLICATE 4I409500| 33367 4056 00 760000 LNT 760000 NAME ENTRIES 4I409600| 33370 0020 00 0 33376 TRA FINDX NO DUPLICATES 4I409700| 33371 0020 00 0 33357 TRA FINDA DUPLICATE, TRY THE NEXT ONE 4I409800 0BINARY CARD ID. MAPJ0151| 33372 4500 00 0 33365 FINDC CAL FINDB HIGHLY SUCCESSFUL, (6)4I409900| 33373 0522 00 0 21414 XEC PLNRF POSSIBLY FILE REFERENCE (6)4I409910| 33374 0534 00 4 33376 LXA FINDX,4 (6)4I409920| 33375 0020 00 4 00003 TRA 3,4 RETURN SMILING 4I410000 33376 0774 00 4 00000 FINDX AXT **,4 NO SUCH DEFINITION 4I410100| 33377 0020 00 4 00002 TRA 2,4 4I410200| 33400 000000000000 FINDT VFD 4I410300| | * ROUTINE TO SET S-VALUE TO ZERO OR 1 $5$4I410311| * ENTERED ONLY FROM EVLFLD (6)4I410312| | 33401 4500 00 0 34417 FNDTPR CAL DMOAS STORE NAME TABLE POINTER $5$4I410315| 33402 0074 00 4 33354 TSX FINDTP,4 HAS THE SYMBOL BEEN DEFINED $5$4I410323 33403 010000000000 VFD O6/01 AS AN ORDINARY SYMBOL $5$4I410325| 33404 0020 00 0 33407 TRA FNDTPC NO $5$4I410327| 33405 4774 00 2 21705 AXC L(1),2 YES, SET S-VALUE TO ONE $5$4I410329| 33406 0020 00 0 34505 FNDTPB TRA EVLBB (6)4I410331| 33407 4500 00 0 34417 FNDTPC CAL DMOAS HAS THE SYMBOL (6)4I410335 33410 0074 00 4 33354 TSX FINDTP,4 BEEN DEFINED BY A (6)4I410337| 33411 600000000000 VFD O6/60 CONSTANT EQU (6)4I410339| 1 IBMAPV IBMAPJ 12/01/64 PAGE 89 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33412 0020 00 0 33414 TRA FNDTPZ NO, GO SET S-VALUE OF ZERO (6)4I410340 33413 0020 00 0 33405 TRA FNDTPB-1 YES, S-VALUE IS ONE (6)4I410345| 33414 4500 00 0 34417 FNDTPZ CAL DMOAS FILE POSSIBLE (6)4I410350| 33415 0522 00 0 21414 XEC PLNRF REFERENCE (6)4I410355| 33416 4774 00 2 21704 AXC L(0),2 SET S-VALUE TO ZERO (6)4I410360| 33417 0020 00 0 33406 TRA FNDTPB (6)4I410370 | | | | * PLACE PASS ONE LINE NUMBER REFERENCE DATA (6)4I410380| | 0BINARY CARD ID. MAPJ0152| 33420 0634 00 4 33441 PLREF SXA PLRFX,4 SAVE RETURN LINKAGE (6)4I410390| 33421 0621 00 0 33443 STA PLRFN AND NAME TABLE ADDRESS (6)4I410395 33422 0774 00 4 00000 PLRFA AXT **,4 PICK UP REMAINING BUFFER COUNT (6)4I410400| 33423 2 00001 4 33430 TIX PLRFB,4,1 COUNT LAST ENTRY (6)4I410405| 33424 0074 00 4 25760 TSX INFIN,4 GET NEXT IF END (6)4I410410| 33425 0 00000 0 21544 PZE CTREFF OF BUFFER (6)4I410415| 33426 0621 00 0 33435 STA PLRFC SET ADDRESS OF BUFFER (6)4I410420 33427 4734 00 4 00000 PDX ,4 AND COUNT (6)4I410425| 33430 4500 00 0 21466 PLRFB CAL PBLINK FILE (6)4I410430| 33431 4100 00 0 33433 TNZ *+2 CURRENT (6)4I410435| 33432 4500 00 0 21443 CAL BLINK LINE NUMBER (6)4I410440| 33433 0767 00 0 00022 ALS 18 WITH (6)4I410445 33434 0361 00 0 33443 ACL PLRFN NAME TABLE LOCATION (6)4I410450| 33435 0601 00 4 00000 PLRFC STO **,4 TO BUFFER (6)4I410455| 33436 0634 00 4 33422 SXA PLRFA,4 SAVE POSITION (6)4I410460| 33437 6 00001 4 33441 TNX PLRFX,4,1 IF NOT END OF BUFFER, (6)4I410465| 33440 0600 60 0 33435 STZ* PLRFC SET END MARK (6)4I410470 33441 0774 00 4 00000 PLRFX AXT **,4 RETURN (6)4I410475| 33442 0020 00 4 00001 TRA 1,4 (6)4I410480| | 33443 0 00000 0 00000 PLRFN ** (6)4I410490| 1 IBMAPV IBMAPJ 12/01/64 PAGE 90 VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * SCAN ONE FIELD 4I410500| 33444 SCAFLD SYN * 4I410600| 33444 0634 00 4 33601 SXA SCAZ,4 SAVE EXIT 4I410700 33445 0534 00 4 35154 LXA LNKMK,4 MARK THE START 4I410800| 0BINARY CARD ID. MAPJ0153| 33446 4634 00 4 35154 SXD LNKMK,4 OF THIS FIELD 4I410900| 33447 4500 00 0 34365 CAL 12WD INITIALIZE (6)4I410910| 33450 0602 00 0 34363 SLW RSLTN RESULT STORAGE (6)4I410920 33451 0600 00 0 52430 STZ PDOPR AND STACK (6)4I410930| 33452 0600 00 0 34367 STZ PRCNT POINTERS (6)4I410940| 33453 0774 00 4 00002 AXT 2,4 ALSO WEIGHT OF (6)4I410950| 33454 0520 00 0 35144 ZET BOOLSW / OPERATOR (6)4I410960| 33455 0774 00 4 00003 AXT 3,4 (GREATER IF BOOLEAN) (6)4I410970 33456 0634 00 4 34415 SXA DVDWT,4 (6)4I410980| 33457 0520 00 0 32245 ZET VFDMGC IS THERE A MIS-GUIDED BOOLEAN 4I411000| 33460 0020 00 0 32454 TRA VFDMGB YES, INCLUDE IT HERE 4I411100| 33461 SCAC NULL (6)4I411200| 33461 0074 00 4 36662 TSX BSCAN,4 GET NEXT CHARACTER GROUP 4I411300 33462 0634 00 1 33510 SCACA SXA SCAT,1 SAVE THE TERMINATOR CODE (6)4I411400| 33463 4734 00 2 00000 PDX ,2 PICK UP THE CHARACTER COUNT 4I411500| 33464 0621 00 0 33475 STA SCAA LOCATE THE BCD WORD 4I411600| 33465 7 00000 2 33603 TXL USEZRO,2,0 DID WE SCAN ANYTHING 4I411900| 33466 4056 00 000400 LNT DLB WAS TERMINATOR $ OR (6)4I411910 33467 4054 00 000014 SCAI LFT ALB+PDB (+LPB+RPB) WAS THE FIELD NON-NUMERIC (6)4I412000| 33470 0020 00 0 33472 TRA *+2 YES, 4I412100| 33471 0020 00 0 33746 TRA SCLTRL NO, 4I412200| 33472 7 00006 2 33475 TXL *+3,2,6 CHECK LENGTH OF NAME 4I412300| 33473 0074 00 4 25623 TSX ERPR,4 NAME LONGER THAN 4I412400 0BINARY CARD ID. MAPJ0154| 33474 0 00000 4 00015 WMS003,NONONO SIX CHARACTERS 4I412500| 33475 4500 00 0 00000 SCAA CAL ** LOOK UP THE WORD 4I412600| 33476 0074 00 4 26411 TSX NTLOC,4 IN THE DICTIONARY 4I412700| 33477 0621 00 0 35150 STA CURWRD MAKE A TEXT ENTRY 4I412800 33500 0120 00 0 33503 TPL *+3 WAS THE WORD IN THE DICTIONARY 4I412900| 33501 0522 00 0 33475 XEC SCAA NO, PUT 4I413000| 33502 0602 60 0 35150 SLW* CURWRD IT IN 4I413100| 33503 0441 00 0 35150 LDI CURWRD PUT THE WORD 4I413200| 33504 4534 00 2 52430 SCAB LXD PDOPD,2 INTO OPERAND (6)4I413300 33505 1 00001 2 33506 TXI *+1,2,1 TEXT (6)4I413310| 33506 0604 00 2 52430 STI PDOPD,2 (6)4I413330| 33507 4634 00 2 52430 SXD PDOPD,2 (6)4I413340| 33510 4774 00 1 00000 SCAT AXC **,1 RESTORE THE TERMINATOR CODE (6)4I413350| 33511 0522 00 1 34370 XEC TRMTB,1 BRANCH TO PROCESS (6)4I413360 | * TERMINATOR IS OPEN PARENTHESIS (6)4I413380| 33512 4500 00 0 34367 SCLP CAL PRCNT INSERT A MULTIPLY OPERATOR (6)4I413390| 33513 4501 00 0 34414 ORA ASTWT (OR BOOLEAN AND) (6)4I413400| 33514 0602 00 0 34366 SLW SWNDO IN WINDOW (6)4I413410 33515 0500 00 0 34367 CLA PRCNT THEN INCREASE LEVEL COUNT (6)4I413420| 33516 0400 00 0 21710 ADD PRONE (6)4I413430| 33517 0601 00 0 34367 STO PRCNT (6)4I413440| 33520 0020 00 0 33626 TRA SCOPB GO PROCESS INSERTED * OPERATOR (6)4I413450| 1 IBMAPV IBMAPJ 12/01/64 PAGE 91 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 * TERMINATOR IS CLOSE PARENTHESIS (6)4I413470| 33521 0500 00 0 34367 SCRP CLA PRCNT (6)4I413480| 0BINARY CARD ID. MAPJ0155 33522 0402 00 0 21710 SUB PRONE DROP LEVEL COUNT (6)4I413490| 33523 0120 00 0 33527 TPL *+4 IF NEGATIVE, (6)4I413500| 33524 0074 00 4 25623 TSX ERPR,4 FILE MESSAGE (6)4I413510| 33525 0 00000 1 00204 FMS012,GO 'MISUSE OF PARENTHESES.' (6)4I413520| 33526 4754 00 0 00000 ZAC AND CLEAR COUNT (6)4I413530 33527 0601 00 0 34367 STO PRCNT (6)4I413540| 33530 0074 00 4 34132 TSX TSTETC,4 IS NEXT CHARACTER (6)4I413550| 33531 0020 00 0 33533 TRA *+2 BLANK (6)4I413560| 33532 0020 00 0 33540 TRA SCRPB YES (6)4I413570| 33533 0522 00 1 36536 XEC SCSIL,1 (6)4I413580 33534 4054 00 037260 LFT SLB+ASB+MSB+PSB+CMB+EQB+LPB+RPB (6)4I413590| 33535 0020 00 0 33537 TRA *+2 (6)4I413600| 33536 0020 00 0 33542 TRA SCRPD (6)4I413610| 33537 0074 00 4 36662 TSX BSCAN,4 (6)4I413620| 33540 0634 00 1 33510 SCRPB SXA SCAT,1 SAVE THE TERMINATOR CODE (6)4I413630 33541 0020 00 0 33510 TRA SCAT GO TO PROCESS OPERATOR (6)4I413640| | 33542 4500 00 0 34414 SCRPD CAL ASTWT INSERT ASTERISK FOR MISSING (6)4I413660| 33543 0020 00 0 33624 TRA SCOP+1 OPERATOR (6)4I413670| * ROUTINE TO ENTER OPERATOR FROM WINDOW TO STACK (6)4I413690| 33544 1 77777 2 33545 SSTCK TXI *+1,2,-1 UPDATE STACK POINTER (6)4I413700| 33545 0500 00 0 34366 CLA SWNDO (6)4I413720| 33546 0601 00 2 52430 STO PDOPR,2 STORE NEW ENTRY (6)4I413730| 33547 0634 00 2 52430 SXA PDOPR,2 AND POINTER (6)4I413740 0BINARY CARD ID. MAPJ0156| 33550 0734 00 2 00000 PAX ,2 WAS OPERATOR TERMINATOR (6)4I413750| 33551 3 00000 2 33461 TXH SCAC,2,0 CONTINUE IF NOT (6)4I413760| 33552 0534 00 4 35154 LXA LNKMK,4 YES, OBTAIN LAST (6)4I413770| 33553 0441 00 4 52027 LDI LINK-1,4 TEXT WORD (6)4I413780 33554 4057 00 007700 RIL 7700 AND REPLACE (6)4I413790| 33555 0043 00 0 00000 OAI OPERAND WITH (6)4I413800| 33556 0604 00 4 52027 STI LINK-1,4 TERMINATOR FLAG (6)4I413810| 33557 0020 00 0 33600 TRA SCAZ-1 (6)4I413820| * FIELD TERMINATOR REACHED (6)4I413840| 33560 4520 00 0 34367 SCFND NZT PRCNT IS PAREN COUNT (6)4I413850| 33561 0020 00 0 33564 TRA *+3 ZERO (6)4I413855| 33562 0074 00 4 25623 TSX ERPR,4 NO, COMPLAIN (6)4I413860| 33563 0 00000 1 00204 FMS012,GO 'MISUSE OF PARENTHESES.' (6)4I413865 33564 4500 00 1 34410 CAL SWTBL,1 PUT OPERATOR IN (6)4I413870| 33565 0602 00 0 34366 SLW SWNDO WINDOW (WITH ZERO WEIGHT) (6)4I413880| 33566 0534 00 2 52430 LXA PDOPR,2 IS THERE AN OPERATOR (6)4I413890| 33567 3 00000 2 33635 TXH SCUNK,2,0 TO UNSTACK (6)4I413900| 33570 0774 00 1 00001 AXT 1,1 NO, REMOVE FROM (6)4I413910 33571 0441 00 1 52430 SCFNE LDI PDOPD,1 STACK (6)4I413920| 33572 4056 00 000100 LNT 100 IS WORD A QUALIFIER (6)4I413930| 33573 0020 00 0 33576 TRA SCFNF NO (6)4I413940| 33574 0074 00 4 33713 TSX ENTXT,4 YES, ENTER IN TEXT (6)4I413950| 33575 1 00001 1 33571 TXI SCFNE,1,1 FOR OUTPUT (6)4I413960 1 IBMAPV IBMAPJ 12/01/64 PAGE 92 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0157| 33576 0442 00 0 34366 SCFNF OSI SWNDO PLACE TERMINATOR FLAG IN LAST (6)4I413970| 33577 0074 00 4 33713 TSX ENTXT,4 WORD AND PUT IT OUT (6)4I413980 33600 0535 00 1 33510 LAC SCAT,1 RESTORE TERMINATOR FOR EXIT (6)4I413990| 33601 0774 00 4 00000 SCAZ AXT **,4 ONE FIELD COMPLETE, 4I414000| 33602 0020 00 4 00001 TRA 1,4 RETURN 4I414100| | 33603 1 77763 1 33604 USEZRO TXI *+1,1,-ASCDE CHECK FOR POSSIBLE 4I414300 33604 7 00000 1 33761 TXL USESTR,1,0 LOCATION COUNTER REFERENCE 4I414400| 33605 1 00005 1 33606 TXI *+1,1,ASCDE-EQCDE CHECK FOR POSSIBLE 4I414500| 33606 7 00000 1 34013 TXL USEEQL,1,0 = CONSTANT 4I414600| 33607 1 77777 1 33610 TXI *+1,1,EQCDE-DLCDE CHECK FOR A $ 4I414700| 33610 7 00000 1 33734 TXL SCQUL,1,0 (6)4I414710 33611 1 77776 1 33612 TXI *+1,1,DLCDE-PSCDE IGNORE IF (6)4I414720| 33612 4520 00 0 52430 NZT PDOPR NO PRECEEDING OPERATOR AND (6)4I414725| 33613 7 00000 1 33461 TXL SCAC,1,0 TERMINATOR IS + (6)4I414730| 33614 1 00006 1 33615 TXI *+1,1,PSCDE-LPCDE CHECK FOR OPEN PARENTHESIS (6)4I414740| 33615 0441 00 0 21721 LDI 10WD USE CONSTANT OF ZERO IF (6)4I414750 33616 3 00000 1 33504 TXH SCAB,1,0 TERMINATOR IS NONE OF THE ABOVE(6)4I414760| 33617 0500 00 0 34367 CLA PRCNT ADD ONE TO LEVEL COUNT (6)4I414770| 33620 0400 00 0 21710 ADD PRONE FOR PARENTHESIS (6)4I414780| 33621 0601 00 0 34367 STO PRCNT (6)4I414790| 33622 0020 00 0 33461 TRA SCAC CONTINUE SCAN FOR OPERAND (6)4I414800 | * TERMINATOR IS NORMAL OPERATOR (6)4I414820| 33623 4500 00 1 34410 SCOP CAL SWTBL,1 PICK UP WEIGHT CODE (6)4I414840| 0BINARY CARD ID. MAPJ0158| 33624 4501 00 0 34367 ORA PRCNT AND PARENTHESIS LEVEL (6)4I414850 33625 0602 00 0 34366 SLW SWNDO STORE IN WINDOW (6)4I414860| 33626 0534 00 2 52430 SCOPB LXA PDOPR,2 PICK UP STACK POSITION (6)4I414870| 33627 7 00000 2 33544 SCOPA TXL SSTCK,2,0 ENTER OPERATOR IF STACK IS EMPTY (6)4I414880| 33630 0500 00 2 52430 CLA PDOPR,2 ELSE COMPARE PARENTHESIS LEVEL (6)4I414890| 33631 0534 00 4 34366 LXA SWNDO,4 AND WEIGHT OF OPERATOR IN (6)4I414900 33632 0767 00 0 00022 ALS 18 WINDOW AGAINST THAT IN (6)4I414910| 33633 0622 00 0 33634 STD *+1 STACK (6)4I414920| 33634 3 00000 4 33544 TXH SSTCK,4,** UNSTACK OPERATOR IF NOT LESS (6)4I414930| | * ROUTINE TO UNSTACK OPERATOR AND TWO OPERANDS (6)4I414950 33635 4534 00 1 52430 SCUNK LXD PDOPD,1 EXAMINE TOP OF STACK FOR (6)4I414960| 33636 0441 00 1 52431 LDI PDOPD+1,1 QUALIFIER WORDS (6)4I414970| 33637 4054 00 000100 LFT 100 (6)4I414980| 33640 1 77777 1 33636 TXI *-2,1,-1 STEP BACK FOR PRECEDING $ WORD (6)4I414990| 33641 7 00002 1 33645 SCUNN TXL SCUNP,1,2 (6)4I415000 33642 0441 00 1 52432 LDI PDOPD+2,1 ALL QUALIFIERS FOUND, EXAMINE (6)4I415010| 33643 4054 00 000100 LFT 100 NEXT OPERAND (6)4I415020| 33644 1 77777 1 33641 TXI SCUNN,1,-1 STEP BACK OVER ANY QUALIFIERS (6)4I415030| 33645 1 77777 1 33646 SCUNP TXI *+1,1,-1 STORE NEW (6)4I415040| 33646 4634 00 1 52430 SXD PDOPD,1 TOP OF STACK POINTER (6)4I415050 33647 0441 00 1 52430 SCUNQ LDI PDOPD,1 PICK UP OPERAND WORD (6)4I415060| 33650 4056 00 000100 LNT 100 IS IT A QUALIFIER (6)4I415070| 33651 0020 00 0 33654 TRA SCUNB (6)4I415080| 0BINARY CARD ID. MAPJ0159| 33652 0074 00 4 33713 TSX ENTXT,4 YES, ENTER IN TEXT (6)4I415090 33653 1 00001 1 33647 TXI SCUNQ,1,1 AND CONTINUE (6)4I415100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 93 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 | 33654 0074 00 4 33721 SCUNB TSX TSTRS,4 TEST OPERAND FOR RESULT STORAGE (6)4I415120 33655 4500 00 2 52430 CAL PDOPR,2 OBTAIN OPERATOR (6)4I415130| 33656 4320 00 0 34264 ANA FLGFD1 AND ENTER IN FLAG FIELD (6)4I415140| 33657 0043 00 0 00000 OAI (6)4I415150| 33660 0074 00 4 33713 TSX ENTXT,4 PLACE OPERAND IN TEXT (6)4I415160| 33661 0441 00 1 52427 SCUNC LDI PDOPD-1,1 OBTAIN SECOND OPERAND (6)4I415170 33662 4056 00 000100 LNT 100 IS IT QUALIFIED (6)4I415180| 33663 0020 00 0 33666 TRA SCUNA (6)4I415190| 33664 0074 00 4 33713 TSX ENTXT,4 YES, ENTER QUALIFIER IN TEXT (6)4I415200| 33665 1 00001 1 33661 TXI SCUNC,1,1 (6)4I415210| 33666 0074 00 4 33721 SCUNA TSX TSTRS,4 NO, IS IT RESULT STORAGE OPERAND (6)4I415220 33667 0500 00 0 34363 CLA RSLTN OBTAIN NEXT RESULT STORAGE NUMBER (6)4I415230| 33670 0340 00 0 34364 CAS RSMAX COMPARE WITH MAXIMUM (6)4I415240| 33671 0761 00 0 00000 NOP (6)4I415250| 33672 0020 00 0 33707 TRA SCUNE (6)4I415260| 33673 4534 00 1 52430 LXD PDOPD,1 PLACE RESULT AT TOP OF (6)4I415270 33674 0601 00 1 52430 SCUND STO PDOPD,1 OPERAND STORE (6)4I415280| 33675 0400 00 0 21705 ADD L(1) INCREASE GHOST POINTER (6)4I415290| 33676 0601 00 0 34363 STO RSLTN (6)4I415300| 33677 0500 00 1 52430 CLA PDOPD,1 PLACE RESULT STORAGE IN (6)4I415320| 0BINARY CARD ID. MAPJ0160 33700 0767 00 0 00030 ALS 24 FLAG FIELD (6)4I415330| 33701 0043 00 0 00000 OAI WITH APPROPRIATE CODE (6)4I415340| 33702 4055 00 005000 SIL 5000 (6)4I415350| 33703 0074 00 4 33713 TSX ENTXT,4 ENTER IN TEXT OUTPUT (6)4I415360| 33704 1 00001 2 33705 TXI *+1,2,1 BUMP OPERATOR POINTER (6)4I415370 33705 0634 00 2 52430 SXA PDOPR,2 TO UNSTACK IT (6)4I415380| 33706 0020 00 0 33627 TRA SCOPA CHECK FOR MORE (6)4I415390| | 33707 0074 00 4 25623 SCUNE TSX ERPR,4 VARIABLE FIELD TOO (6)4I415410| 33710 0 00000 3 00132 WMS026,NONOGO COMPLEX (6)4I415420 33711 0500 00 0 34365 CLA 12WD RESET RESULT STORAGE TO ZERO (6)4I415430| 33712 0020 00 0 33674 TRA SCUND AND CONTINUE (6)4I415440| | 33713 0634 00 4 33716 ENTXT SXA ENTXX,4 (6)4I415460| 33714 0634 00 2 33717 SXA ENTXX+1,2 (6)4I415470 33715 0074 00 4 26706 TSX TXTGTR,4 ENTER WORD IN TEXT (6)4I415500| 33716 0774 00 4 00000 ENTXX AXT **,4 RETURN (6)4I415550| 33717 0774 00 2 00000 AXT **,2 (6)4I415570| 33720 0020 00 4 00001 TRA 1,4 (6)4I415580| 33721 4056 00 120000 TSTRS LNT 120000 IS IT RESULT STORAGE (6)4I415600| 33722 0020 00 4 00001 TRA 1,4 OPERAND (6)4I415610| 33723 4054 00 650000 LFT 650000 (6)4I415620| 33724 0020 00 4 00001 TRA 1,4 NO (6)4I415630| 33725 0500 00 0 34363 CLA RSLTN YES, REDUCE RESULT (6)4I415640 0BINARY CARD ID. MAPJ0161| 33726 0402 00 0 21705 SUB L(1) STORAGE COUNTER (6)4I415650| 33727 0601 00 0 34363 STO RSLTN (6)4I415660| 33730 0020 00 4 00001 TRA 1,4 (6)4I415670| * TERMINATOR IS $ (6)4I415710| 33731 4055 00 000100 SCDL SIL 100 UPDATE OPERAND WORD (6)4I415720| 1 IBMAPV IBMAPJ 12/01/64 PAGE 94 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 33732 0604 00 2 52430 STI PDOPD,2 AND STORE AGAIN (6)4I415730 33733 0020 00 0 33461 TRA SCAC CONTINUE SCAN (6)4I415740| 33734 4534 00 4 52430 SCQUL LXD PDOPD,4 TEST FOR PRECEDING $ (6)4I415750| 33735 0441 00 4 52430 LDI PDOPD,4 (6)4I415760| 33736 4056 00 000100 LNT 100 (6)4I415770| 33737 0020 00 0 33743 TRA SCQLU NO, NULL QUALIFER REQUESTED (6)4I415780 33740 0074 00 4 25623 TSX ERPR,4 YES - 'ILLEGAL QUALIFICATION (6)4I415790| 33741 0 00000 1 00170 WMS039,GO USAGE ON THIS CARD.' (6)4I415800| 33742 0020 00 0 33461 TRA SCAC IGNORE SECOND SUCCESSIVE $ (6)4I415810| | 33743 0441 00 0 33745 SCQLU LDI UNQUL SET NULL QUALIFIER (6)4I415830 33744 0020 00 0 33504 TRA SCAB 4I415900| 33745 000000000000 UNQUL VFD 36/** 4I416000| | 33746 0560 60 0 33475 SCLTRL LDQ* SCAA PUT THE LITERAL INTO THE MQ 4I416200| 33747 4774 00 4 33756 AXC SCLTA,4 SIMULATE A RETURN FROM A TSX 4I416300 33750 4520 00 0 35160 NZT OCTCNV IS THE LITERAL OCTAL 4I416400| 33751 0020 00 0 37237 TRA CV.10 NO, USE DECIMAL CONVERSION 4I416500| 33752 4056 00 000002 LNT DCB YES, IS IT OK 4I416600| 33753 0020 00 0 37265 TRA CV.11 YES, USE OCTAL CONVERSION 4I416700| 0BINARY CARD ID. MAPJ0162 33754 0074 00 4 25623 TSX ERPR,4 NO, FILE AN ERROR MESSAGE 4I416800| 33755 0 00000 2 00115 WMS017,NOGO 4I416900| 33756 0074 00 4 37265 SCLTA TSX CV.11,4 USE THE OCTAL CONVERSION 4I417000| 33757 0044 00 0 00000 PAI PLACE IT IN THE INDICATORS 4I417100| 33760 0020 00 0 33504 TRA SCAB 4I417200 | 33761 USESTR NULL CHECK USE OF * AS LOCATION COUNTER(6)4I417400| 33761 0074 00 4 36662 TSX BSCAN,4 FETCH THE NEXT TERMINATOR 4I417500| 33762 0520 00 0 30166 ZET SINSW ARE WE 'SYNING' 4I417600| 33763 0020 00 0 33773 TRA USESB YES, FETCH A GENERATED NAME 4I417700 33764 0441 00 0 30140 USESA LDI 4WD NO, USE THE L.C. OPERAND 4I417800| 33765 0634 00 1 33510 SXA SCAT,1 SAVE THIS TERMINATOR (6)4I417900| 33766 4734 00 2 00000 PDX ,2 PICK UP THE CHARACTER COUNT 4I418200| 33767 7 00000 2 33504 TXL SCAB,2,0 OK IF COUNT = ZERO 4I418300| 33770 0074 00 4 25623 TSX ERPR,4 NAME INTERVENING, FILE 4I418400 33771 0 00000 4 00056 WMS011,NONONO 4I418500| 33772 0020 00 0 33504 TRA SCAB 4I418600| 33773 0441 00 0 34012 USESB LDI USESC USE THE PREVIOUS GENERATED NAME 4I418700| 33774 0520 00 0 34012 ZET USESC WAS THERE ONE 4I418800| 33775 0020 00 0 33765 TRA USESA+1 YES, 4I418900 33776 0602 00 0 32254 SLW WTEMP 4I419000| 33777 0074 00 4 26607 TSX INDUM,4 NO, GET ONE 4I419100| 34000 0074 00 4 36320 TSX LCHNE,4 PUT GENERATED NAME IN L.C. CHAIN 4I419200| 34001 4500 60 0 34723 CAL* PIFLOC MOVE PSEUDO-OP TEXT 4I419300| 0BINARY CARD ID. MAPJ0163 34002 4602 00 0 52030 ORS LINK WORD TO THE LINK BUFFER 4I419400| 34003 0634 00 2 34004 SXA *+1,2 MAKE A LEGAL 4I419500| 34004 4774 00 2 00000 AXC **,2 TEXT WORD 4I419600| 34005 0754 00 2 00000 PXA ,2 OUT OF IT 4I419700| 34006 0361 00 0 30137 ACL 1WD AND SAVE IT 4I419800 34007 0602 00 0 34012 SLW USESC FOR THE 4I419900| 34010 4500 00 0 32254 CAL WTEMP 4I420000| 34011 0020 00 0 33773 TRA USESB NEXT TIME 4I420100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 95 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ 0 34012 000000000000 USESC VFD 4I420200| | 34013 0074 00 4 34132 USEEQL TSX TSTETC,4 TEST NEXT CHARACTER FOR BLANK 4I420400| 34014 0020 00 0 34020 TRA USEEA NOT BLANK, CONTINUE 4I420500| 34015 0634 00 0 33510 ZSA SCAT (6)4I420600 34016 0074 00 4 40224 TSX CPL,4 BLANK, USE L(0) 4I420700| 34017 0020 00 0 34037 TRA USEEB FOR LITERAL 4I420800| 34020 0074 00 4 34065 USEEA TSX CKLTYP,4 CHECK FOR LITERAL TYPE 4I420900| 34021 0074 00 4 34102 TSX HLROCT,4 NOT DECIMAL, PROCESS DIFFERENTLY 4I421000| 34022 0074 00 4 37313 TSX DBCNV,4 DECIMAL, FETCH THE LITERAL 4I421100 34023 7 00000 1 34027 TXL *+4,1,0 TEST FOR 4I421200| 34024 0441 00 0 21704 LDI L(0) AN (6)4I421210| 34025 0522 00 1 36536 XEC SCSIL,1 ILLEGAL TERMINATING (6)4I421300| 34026 4054 00 000517 LFT ALLBT-LPB-RPB-EQB-CMB-PSB-MSB-ASB-SLB (6)4I421400| 34027 0074 00 4 33342 TSX DECER,4 CHARACTER 4I421500 0BINARY CARD ID. MAPJ0164| 34030 0634 00 1 33510 SXA SCAT,1 (6)4I421600| 34031 0774 00 4 00001 AXT 1,4 4I421900| 34032 0520 00 0 40137 ZET DB8DP 4I422000| 34033 1 00001 4 34034 TXI *+1,4,1 4I422100 34034 4634 00 4 34036 SXD *+2,4 SEND THE WORD OR WORDS 4I422200| 34035 0074 00 4 40227 TSX CPLN,4 TO CPOOL 4I422300| 34036 0 00000 0 40142 DB8T1,,** 4I422400| 34037 0044 00 0 00000 USEEB PAI SEND WORD TO 4I422500| 34040 0020 00 0 33504 TRA SCAB TEXT GATHERER 4I422600 | * CHECK FOR A POSSIBLE MINUS SIGN PRECEEDING AN OCTAL CONSTANT 4I422800| | 34041 CHKSGN SYN * 4I423000| 34041 0600 00 0 34060 STZ CHKMS CLEAR THE SIGN INDICATOR 4I423100 34042 0441 00 0 36755 LDI RESDU IS THE NEXT CHARACTER 4I423200| 34043 4054 00 170000 LFT 170000 A MINUS OR PLUS SIGN 4I423300| 34044 0020 00 4 00001 TRA 1,4 NO, RETURN 4I423400| 34045 4056 00 600000 LNT 600000 IS IT A BLANK 4I423500| 34046 0020 00 0 34050 TRA *+2 NO, 4I423600 34047 0020 00 4 00001 TRA 1,4 YES, 4I423700| 34050 0634 00 4 34056 SXA CHKSX,4 SAVE RETURN 4I423800| 34051 0074 00 4 36756 TSX HSCAN,4 SCAN THE NEXT CHARACTER 4I423900| 34052 0 00001 0 34060 CHKMS,,1 STORE IT IN CHKMS 4I424000| 34053 0441 00 0 34060 LDI CHKMS WAS IT A 4I424100 34054 4056 00 400000 LNT 400000 PLUS SIGN 4I424200| 34055 0600 00 0 34060 STZ CHKMS YES, ERASE IT 4I424300| 0BINARY CARD ID. MAPJ0165| 34056 0774 00 4 00000 CHKSX AXT **,4 RETURN 4I424400| 34057 0020 00 4 00001 TRA 1,4 4I424500 | 34060 000000000000 CHKMS VFD 4I424700| | * CHANGE THE SIGN OF THE OCTAL CONSTANT 4I424900| 34061 0502 00 0 40142 PLCSGN CLS DB8T1 REVERSE THE SIGN 4I425100| 34062 0120 00 4 00001 TPL 1,4 $4$4I425200| 34063 0601 00 0 40142 STO DB8T1 OF DB8T1 4I425300| 34064 0020 00 4 00001 TRA 1,4 4I425400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 96 VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| 34065 CKLTYP SYN * 4I425600| * IF IT IS NUMERIC, RETURN 2,4 4I425900| * IF IT IS OCTAL OR HOLLERITH, THE 'H' OR 'O' IS SCANNED, 4I426000 * LEFT JUSTIFIED, AND STORED IN CKLT. RETURN 1,4. 4I426100| | 34065 0600 00 0 34101 STZ CKLT 4I426300| 34066 0441 00 0 36755 LDI RESDU FETCH NEXT CHARACTER 4I426400| 34067 4051 00 300000 IIL 300000 INVERT 'H' 4I426500 34070 4054 00 400000 LFT 400000 IS PART OF 'O' ON 4I426600| 34071 4051 00 760000 IIL 760000 YES, INVERT ALL OF THE BITS 4I426700| 34072 4054 00 770000 LFT 770000 WAS IT 'H' OR 'O' 4I426800| 34073 0020 00 4 00002 TRA 2,4 NO, 4I426900| 34074 0634 00 4 34077 SXA CKLA,4 YES, 4I427000 34075 0074 00 4 36756 TSX HSCAN,4 SCAN CONTROLLING 4I427100| 34076 0 00001 0 34101 CKLT,,1 CHARACTER 4I427200| 34077 0774 00 4 00000 CKLA AXT **,4 RETURN 4I427300| 34100 0020 00 4 00001 TRA 1,4 4I427400| 34101 000000000000 CKLT VFD 4I427500 | 34102 HLROCT SYN * 4I427700| | * CONVERT THE LITERAL FROM EXTERNAL HOLLERITH 4I427900| * OR OCTAL TO INTERNAL OCTAL, PUT IT IN 4I428000 * DB8T1, CLEAR DB8DP AND RETURN 2,4 4I428100| | 34102 0634 00 4 34117 SXA HLRX,4 SAVE RETURN 4I428300| 34103 0441 00 0 34101 LDI CKLT FETCH CONTROL CHARACTER 4I428400| 0BINARY CARD ID. MAPJ0166 34104 4056 00 400000 LNT 400000 WAS IT AN 'O' OR AN 'H' 4I428500| 34105 0020 00 0 34121 TRA HLRA IT WAS 'H' 4I428600| 34106 0600 00 0 34060 STZ CHKMS 4I428700| 34107 0074 00 4 34132 TSX TSTETC,4 CHECK NEXT CHARACTER 4I428800| 34110 0074 00 4 34041 TSX CHKSGN,4 CHECK FOR A MINUS SIGN 4I428900 34111 4754 00 0 00000 PXD ,0 4I429000| 34112 0520 00 0 35166 ZET SWCVFE SKIP FETCH IF NO FIELD 4I429100| 34113 0074 00 4 36662 TSX BSCAN,4 FETCH CONSTANT 4I429200| 34114 0074 00 4 34265 TSX CNVOCT,4 CONVERT SAME 4I429300| 34115 0520 00 0 34060 ZET CHKMS WAS THERE A MINUS SIGN 4I429600 34116 0074 00 4 34061 TSX PLCSGN,4 YES INCLUDE IT 4I429700| 34117 0774 00 4 00000 HLRX AXT **,4 RETURN 4I429800| 34120 0020 00 4 00002 TRA 2,4 4I429900| | 34121 0074 00 4 36756 HLRA TSX HSCAN,4 FETCH 6 BCD 4I430100 34122 0 00006 0 40142 DB8T1,,6 CHARACTERS 4I430200| 34123 0600 00 0 40137 STZ DB8DP INDICATE SINGLE PRECISION 4I430300| 34124 0074 00 4 36662 TSX BSCAN,4 FETCH A TERMINATOR 4I430500| 34125 4734 00 4 00000 PDX ,4 WAS THE NEXT CHARACTER 4I430600| 34126 7 00000 4 34117 TXL HLRX,4,0 A TERMINATOR 4I430700 34127 0074 00 4 25623 TSX ERPR,4 NO, FILE AN 4I430800| 34130 0 00000 4 00120 WMS019,NONONO ERROR MESSAGE 4I430900| 34131 0020 00 0 34117 TRA HLRX 4I431000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 97 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ 0| 34132 TSTETC SYN * 4I431200| | * CHECKS THE NEXT CHARACTER IN THE VARIABLE FIELD 4I431400| * I. IF IT IS A BLANK GO TO INHAND 4I431500 * A. IF THE NEXT CARD IS AN ETC CARD 4I431600| * CHECK FOR A VARIABLE FIELD 4I431700| * 1. IF IT HAS NONE, GO BACK TO I. 4I431800| * 2. IF IT HAS ONE, RETURN 1,4 4I431900| * B. IF THE NEXT CARD IS NOT AN ETC CARD 4I432000 * 1. CLEAR ACC 4I432100| * 2. CLEAR INDEX 1 4I432200| * 3. SET SWCVFE=0 4I432300| * 4. RETURN 2,4 4I432400| * II. IF IT IS NOT A BLANK, RETURN 1,4 4I432500 | 0BINARY CARD ID. MAPJ0167| 34132 4520 00 0 35166 NZT SWCVFE HAVE WE LOOKED FOR ETC (6)4I432700| 34133 0020 00 0 34145 TRA TSTEB YES, EXIT (6)4I432710| 34134 0560 00 0 36755 TSTEC LDQ RESDU GET NEXT CHARACTER (6)4I432720 34135 4114 01 1 36537 CAQ SCTBL,1,1 CODE (6)4I432800| 34136 7 00000 1 34140 TXL TSTCC,1,0 IS IT NON-BLANK (6)4I432900| 34137 0020 00 4 00001 TRA 1,4 YES, EXIT (6)4I433000| 34140 0634 00 4 34142 TSTCC SXA TSTEA,4 SAVE RETURN 4I433100| 34141 0074 00 4 35024 TSX INHAND,4 PRINT BLINK AND CARD 4I433200 34142 0774 00 4 00000 TSTEA AXT **,4 (6)4I433300| 34143 4520 00 0 35157 NZT NXTETC IF NEXT CARD IS AN ETC, (6)4I433400| 34144 0020 00 0 34134 TRA TSTEC GO BACK TO EXAMINE IT (6)4I433500| 34145 4754 00 0 00000 TSTEB ZAC ELSE PUT IN (6)4I433600| 34146 0560 00 0 36253 LDQ BLANKS BLANKS (6)4I433700 34147 4600 00 0 36755 STQ RESDU TO SCAN, (6)4I433800| 34150 0774 00 1 00000 AXT 0,1 BLANK TERMINATOR, 4I434000| 34151 0600 00 0 35166 STZ SWCVFE NON-CHARACTER WORD, 4I434100| 34152 0020 00 4 00002 TRA 2,4 SCAN 4I434300| 34153 000000000000 TSTCD VFD 4I439200| 34154 000000000000 TSTCE VFD 4I439300| | | * SEND NAME TO LOCATION COUNTER CHAIN 4I439600 34155 4520 00 0 21461 NMLOC NZT NAME WAS THERE A NAME 4I439700| 34156 0020 00 4 00001 TRA 1,4 NO, RETURN 4I439800| 34157 0634 00 4 34164 SXA *+5,4 YES, 4I439900| 0BINARY CARD ID. MAPJ0168| 34160 0074 00 4 26506 TSX PLNME,4 FETCH A LOCATION 4I440000 34161 4500 00 0 30137 CAL 1WD PUT LABLE DESCRIPTION 4I440100| 34162 0602 00 2 00000 SLW 0,2 INTO THE 4I440200| 34163 0074 00 4 36320 TSX LCHNE,4 DICTIONARY 4I440300| 34164 0774 00 4 00000 AXT **,4 RETURN 4I440400| 34165 0020 00 4 00001 TRA 1,4 4I440500 | * CHECK LOCATION FIELD FOR NAME REQUIRED. 4I440700| 34166 0634 00 4 34173 YESNME SXA YESNAM,4 4I440800| 34167 0520 00 0 21461 ZET NAME 4I440900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 98 VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 34170 0020 00 4 00001 TRA 1,4 4I441000| 34171 0074 00 4 25623 TSX ERPR,4 4I441100| 34172 0 00000 2 00033 PZE WMS008,NOGO 4I441200| 34173 0774 00 4 00000 YESNAM AXT **,4 4I441300 34174 0020 00 4 00001 TRA 1,4 4I441400| | * CHECK LOCATION FIELD FOR NAME NOT ALLOWED 4I441600| 34175 4520 00 0 21461 NONAME NZT NAME EXIT IF 4I441700| 34176 0020 00 4 00001 TRA 1,4 NO LOC FIELD 4I441800 34177 0634 00 4 34204 SXA NONAX,4 OTHERWISE, 4I441900| 34200 0074 00 4 25623 TSX ERPR,4 'OP CANNOT HAVE 4I442000| 34201 0 00000 1 00161 PZE WMS037,GO ASSOCIATED SYMBOL 4I442100| 34202 0600 00 0 21461 STZ NAME CLEAR NAME CELL 4I442200| 34203 0600 00 0 26564 STZ SWLOFN CLEAR ERROR INDICATOR 4I442300 34204 0774 00 4 00000 NONAX AXT **,4 AND 4I442400| 34205 0020 00 4 00001 TRA 1,4 EXIT 4I442500| | * CHECK FOR ALLOWABLE INDIRECT ADDRESSING 4I442700| 0BINARY CARD ID. MAPJ0169 34206 4520 00 0 37170 IND.X NZT SWIND WAS THE OP INDIRECTLY ADDRESSED 4I442800| 34207 0020 00 0 34213 TRA INDXA NO, EXIT QUIETLY 4I442900| 34210 4056 00 000100 LNT IOK YES, IS INDIRECT ADDRESS ALLOWED 4I443000| 34211 0020 00 0 34215 TRA INDXB NO, EXIT LOUDLY 4I443100| 34212 4055 00 004000 SIL INBIT SET THE INDIRECT BIT 4I443200 34213 4057 00 000100 INDXA RIL IOK RESET INDIRECT TEST $4$4I443300| 34214 0020 00 4 00001 TRA 1,4 BIT AND EXIT $4$4I443400| | 34215 0634 00 4 34220 INDXB SXA *+3,4 FILE AN ERROR MESSAGE ABOUT 4I443600| 34216 0074 00 4 25623 TSX ERPR,4 THE ILLEGAL WAY IN WHICH 4I443700 34217 0 00000 1 00014 WMS002,GO THIS PROGRAMMER IS FLIPPANTLY 4I443800| 34220 0774 00 4 00000 AXT **,4 ABUSING THE PRIVILEDGE OF 4I443900| 34221 0020 00 0 34213 TRA INDXA INDIRECT ADDRESSING 4I444000| | * ROUTINES FOR DATA GENERATING PSEUDO-OPERATIONS (6)4I444110 34222 0634 00 4 34227 DGENTA SXA DGENA,4 4I444200| 34223 0074 00 4 34155 TSX NMLOC,4 PROCESS THE NAME 4I444300| 34224 0074 00 4 34206 TSX IND.X,4 CHECK INDIRECT REFERENCE 4I444400| 34225 0441 00 0 35146 LDI CUROPN SEND THE CURRENT OPERATION 4I444500| 34226 0074 00 4 26706 TSX TXTGTR,4 TO THE TEXT GATHERER 4I444600 34227 0774 00 4 00000 DGENA AXT **,4 4I445200| 34230 0020 00 4 00001 TRA 1,4 4I445300| | 34231 0634 00 4 34227 DGENTB SXA DGENA,4 4I445500| 34232 0441 00 0 40142 LDI DB8T1 SEND FIRST PART OF CONSTANT TO TEXT 4I445600 34233 0074 00 4 26706 TSX TXTGTR,4 4I445700| 0BINARY CARD ID. MAPJ0170| 34234 0441 00 0 40143 LDI DB8T1+1 PICK UP A POSSIBLE SECOND WORD 4I445800| 34235 0520 00 0 40137 ZET DB8DP SHALL WE SEND IT ALSO 4I445900| 34236 0074 00 4 26706 TSX TXTGTR,4 YES, 4I446000 34237 0534 00 4 52030 LXA LINK,4 INCREASE THE VARIABLE 4I446100| 34240 1 00001 4 34241 DGENBB TXI *+1,4,1 FIELD NUMBER COUNT, MODIFIED $4$4I446200| * IF DEBUGGING $4$4I446300| 34241 0520 00 0 40137 ZET DB8DP BY ONE FOR SINGLE 4I446400| 34242 1 00001 4 34243 TXI *+1,4,1 OR BY TWO FOR 4I446500 1 IBMAPV IBMAPJ 12/01/64 PAGE 99 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 34243 0634 00 4 52030 SXA LINK,4 DOUBLE PRECISION 4I446600| 34244 3 00000 1 34227 TXH DGENA,1,0 WAS THE TERMINATOR A BLANK 4I446700| 34245 0534 00 4 34227 DGENB LXA DGENA,4 YES, 4I446800 34246 0020 00 4 00002 TRA 2,4 4I446900| | 34247 0634 00 4 34227 DGENTC SXA DGENA,4 4I447100| 34250 0535 00 4 35154 LAC LNKMK,4 PICK UP SENTENCE WORD COUNT 4I447300| 34251 4634 00 4 34253 SXD *+2,4 PUT IT IN THE PARAMETER WORD 4I447400 34252 0074 00 4 34560 TSX FPCLAG,4 WRITE THE TEXT 4I447500| 34253 4 00000 0 52030 MZE LINK,,** 4I447600| 34254 0020 00 0 34227 TRA DGENA RETURN 4I447700| | * PRINT 'NOT EFFECTIVE IN A RELMOD ASSEMBLY' (6)4I447810 34255 0074 00 4 25623 NOTEFF TSX ERPR,4 4I447900| 34256 0 00000 1 00123 WMS022,GO 4I448000| 34257 0074 00 4 44274 NOTEFA TSX MCDPR,4 4I448100| 34260 0100 00 0 34257 TZE *-1 4I448200| 34261 0600 00 0 30266 STZ SWGOTO (6)4I448210 0BINARY CARD ID. MAPJ0171| 34262 0020 00 0 26640 TRA PASA 4I448300| | 34263 000200000000 CMTRM VFD O12/2 , 4I448700| 34264 000700000000 FLGFD1 VFD O12/07 4I449200 | | 34265 CNVOCT SYN * 4I449400| | * OCTAL CONVERSION 4I449600 | * ENTER BY 'TSX CNVOCT,4' 4I449800| * WITH 'PZE LOCC,,N' IN THE ACCUMULATOR 4I449900| * WHERE LOCC IS THE FIRST WORD OF A GROUP TO BE CONVERTED AND 4I450000| * N IS THE NUMBER OF CHARACTERS IN THE GROUP. 4I450100 * THE GROUP IS LEFT JUSTIFIED 4I450200| * THE CONVERTED NUMBER IS STORED IN DB8T1, CELL DB8DP 4I450300| * IS SET TO ZERO. 4I450400| | 34265 0634 00 4 34332 SXA CNVX,4 SAVE 4I450600| 34266 0634 00 2 34333 SXA CNVY,2 INDEX 4I450700| 34267 0634 00 1 34334 SXA CNVZ,1 REGISTERS 4I450800| 34270 0600 00 0 34357 STZ CNVE CLEAR SIGN 4I450900| 34271 0600 00 0 34360 STZ CNVI 4I451000 34272 0621 00 0 34311 STA CNVB PREPARE FOR SCAN 4I451100| 34273 4734 00 1 00000 PDX ,1 PICK UP CHARACTER COUNT 4I451200| 34274 4754 00 0 00000 PXD ,0 CLEAR ACCUMULATOR 4I451300| 34275 7 00000 1 34326 TXL CNVA,1,0 IF WORD SIZE = 0, SKIP THE REST 4I451400| 34276 0774 00 2 00000 AXT 0,2 4I451500 34277 0441 60 0 34311 LDI* CNVB TEST FOR A 4I451600| 34300 4054 00 700000 LFT 700000 + OR - SIGN 4I451700| 34301 0020 00 0 34336 TRA CNVC THERE IS A SIGN 4I451800| 34302 7 00014 1 34306 TXL *+4,1,12 TEST FOR EXCESS LENGTH 4I451900| 34303 0074 00 4 25623 CNVG TSX ERPR,4 CONSTANT TOO LONG 4I452000 34304 0 00000 2 00114 WMS016,NOGO 4I452100| 34305 0774 00 1 00014 AXT 12,1 4I452200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 100 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 34306 0520 00 0 34360 ZET CNVI 4I452300 34307 0774 00 1 00015 AXT 13,1 4I452400| 0BINARY CARD ID. MAPJ0172| 34310 0774 00 4 00006 AXT 6,4 4I452500| 34311 0560 00 2 00000 CNVB LDQ **,2 CONVERT 4I452600| 34312 0044 00 0 00000 PAI SAVE PARTIAL WORD 4I452700 34313 4500 60 0 34311 CAL* CNVB FETCH REMAINING BCD CHARACTERS 4I452800| 34314 3 00005 1 34316 TXH *+2,1,5 IS THE REMAINING COUNT 6 OR LESS 4I452900| 34315 0522 00 1 36645 XEC SCPOS,1 NO, SHIFT OUT BLANKS 4I453000| 34316 4320 00 0 34361 ANA 70S MASK OUT OCTAL NUMBERS 4I453100| 34317 4100 00 0 34352 TNZ CNVD IF NOT ALL ZERO, THERE'S AN ERROR 4I453200 34320 4046 00 0 00000 PIA RESTORE PARTIAL WORD 4I453300| 34321 4773 00 0 00003 RQL 3 CHANGE BCD 4I453400| 34322 4763 00 0 00003 LGL 3 TO OCTAL 4I453500| 34323 6 00001 1 34326 TNX CNVA,1,1 ARE WE THROUGH 4I453600| 34324 2 00001 4 34321 TIX *-3,4,1 NO, HAVE WE FINISHED 6 4I453700 34325 1 77777 2 34310 TXI CNVB-1,2,-1 YES, FETCH THE NEXT GROUP 4I453800| 34326 0520 00 0 34357 CNVA ZET CNVE WAS THERE A SIGN 4I453900| 34327 4501 00 0 34362 ORA PBIT YES, ENTER IT 4I454000| 34330 0602 00 0 40142 SLW DB8T1 STORE OCTAL WORD 4I454100| 34331 0600 00 0 40137 STZ DB8DP SET SWITCH FOR SINGLE PRECISION 4I454200 34332 0774 00 4 00000 CNVX AXT **,4 RETURN 4I454300| 34333 0774 00 2 00000 CNVY AXT **,2 4I454400| 34334 0774 00 1 00000 CNVZ AXT **,1 4I454500| 34335 0020 00 4 00001 TRA 1,4 4I454600| 0BINARY CARD ID. MAPJ0173 34336 4054 00 170000 CNVC LFT 170000 ARE ANY WRONG BITS ON 4I454700| 34337 0020 00 0 34302 TRA CNVG-1 4I454800| 34340 4054 00 200000 LFT 200000 IS THE + SIGN ON 4I454900| 34341 0020 00 0 34350 TRA CNVF YES, CHECK - SIGN ALSO 4I455000| 34342 4625 00 0 34357 STL CNVE TURN ON THE SIGN SWITCH 4I455100 34343 4057 00 770000 CNVH RIL 770000 RESET THE CHARACTER AND 4I455200| 34344 0604 60 0 34311 STI* CNVB RETURN IT TO STORAGE 4I455300| 34345 4625 00 0 34360 STL CNVI 4I455400| 34346 3 00015 1 34303 TXH CNVG,1,13 CHECK FOR EXCESS SIZE 4I455500| 34347 0020 00 0 34310 TRA CNVB-1 OK TO RETURN 4I455600 34350 4056 00 400000 CNVF LNT 400000 ARE BOTH SIGNS ON 4I455700| 34351 0020 00 0 34343 TRA CNVH 4I455800| 34352 0074 00 4 25623 CNVD TSX ERPR,4 NON-NUMERIC CHARACTER 4I455900| 34353 0 00000 2 00115 WMS017,NOGO 4I456000| 34354 0600 60 0 34311 STZ* CNVB 4I456100 34355 4046 00 0 00000 PIA 4I456200| 34356 0020 00 0 34302 TRA CNVG-1 4I456300| 34357 000000000000 CNVE VFD 4I456400| 34360 0 00000 0 00000 CNVI 4I456500| 34361 707070707070 70S BCI 1,YYYYYY 4I456600 34362 400000000000 PBIT VFD 1/1 4I456700| | 34363 000000000000 RSLTN OCT 4I471300| 0BINARY CARD ID. MAPJ0174| 34364 120000000030 RSMAX VFD O6/12,O30/30 UPPER LIMIT (6)4I471400 34365 120000000000 12WD VFD O6/12 TEMPORARY RESULT STORAGE 4I471500| 34366 0 00000 0 00000 SWNDO *** CURRENT OPERATOR STORAGE, WEIGHT (6)4I471600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 101 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 34367 0 00000 0 00000 PRCNT *** CURRENT PARENTHESIS LEVEL (6)4I471700 21710 PRONE SYN L(4) COUNT FIELD ENDS IN BIT 33 (6)4I471800| 52430 PDOPR SYN TEMP STORAGE FOR OPERATORS (6)4I471900| 52430 PDOPD SYN PDOPR OPERANDS STACK DOWNWARD TOWARD 2B (6)4I472000| | * TRANSFER TABLE FOR TERMINATORS (6)4I472020 34370 0020 00 0 33560 TRMTB TRA SCFND BLANK (6)4I472030| 34371 0020 00 0 36646 TRA SCPOS+1 NUMERIC (ILLEGAL) (6)4I472040| 34372 0020 00 0 36646 TRA SCPOS+1 DECIMAL (ILLEGAL) (6)4I473000| 34373 0020 00 0 36646 TRA SCPOS+1 ALPHABETIC (ILLEGAL) (6)4I473020| 34374 0020 00 0 36646 TRA SCPOS+1 . (6)4I473030 34375 0020 00 0 33512 TRA SCLP ( (6)4I473040| 34376 0020 00 0 33521 TRA SCRP ) (6)4I473050| 34377 0020 00 0 36646 TRA SCPOS+1 ' (6)4I473060| 34400 1 00002 1 33560 TXI SCFND,1,2 = (6)4I473070| 34401 0020 00 0 33731 TRA SCDL $ (6)4I473080 34402 1 00011 1 33560 TXI SCFND,1,9 , (6)4I473090| 34403 1 00011 1 33623 TXI SCOP,1,9 + (6)4I473100| 34404 1 00011 1 33623 TXI SCOP,1,9 - (6)4I473110| 34405 1 00011 1 33623 TXI SCOP,1,9 * (6)4I473120| 34406 1 00011 1 33623 TXI SCOP,1,9 / (6)4I473130 34407 0020 00 0 36646 TRA SCPOS+1 ILLEGAL (6)4I473140| | * FLAG FIELD AND WEIGHT TABLE FOR OPERATORS (6)4I473210| 34410 000000000000 SWTBL VFD 12/0,24/0 BLANK (6)4I473220| 34411 000200000000 VFD 12/2,24/0 , (6)4I473240 0BINARY CARD ID. MAPJ0175| 34412 000300000001 VFD 12/3,24/1 + (6)4I473250| 34413 000400000001 MNSWT VFD 12/4,24/1 - (6)4I473260| 34414 000500000002 ASTWT VFD 12/5,24/2 * (6)4I473270| 34415 000600000000 DVDWT VFD 12/6,24/** 2 OR 3 / (6)4I473280 34416 000700000000 VFD 12/7,24/0 = (6)4I473290| 34417 0 00000 0 00000 DMOAS *** (6)4I473300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 102 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 34420 EVLFLD SYN * 4I474200| * EVALUATE THE VARIABLE FIELD TO ARRIVE AT AN S-VALUE 4I474400| | | 34420 0634 00 4 34477 SXA EVLX,4 4I474600 34421 0600 00 0 34555 STZ EVLDUN RESET 'EVALUATION COMPLETE' SWITCH 4I474700| 34422 0774 00 4 00007 AXT 7,4 SIMULATE AN OPERATION FOR 4I474800| 34423 0634 00 4 34466 SXA EVLAB,4 A SINGLE NAME FIELD 4I474900| 34424 4534 00 4 35154 EVLD LXD LNKMK,4 4I475000| 34425 0560 00 4 52030 LDQ LINK,4 PICK UP A TEXT WORD 4I475100 34426 4754 00 0 00000 PXD ,0 ISOLATE THE 4I475200| 34427 4763 00 0 00006 LGL 6 ADJECTIVE 4I475300| 34430 0734 00 1 00000 PAX ,1 SAVE THE ADJECTIVE CODE 4I475400| 34431 4754 00 0 00000 PXD ,0 CLEAR THE ACC 4I475500| 34432 4763 00 0 00006 LGL 6 ISOLATE AND STORE 4I475600 34433 0621 00 0 34457 STA EVLA THE FLAG FIELD 4I475700| 34434 4500 00 4 52030 CAL LINK,4 BUMP POINTER 4I475800| 34435 1 77777 4 34436 TXI *+1,4,-1 FOR THE 4I475900| 34436 4634 00 4 35154 SXD LNKMK,4 NEXT WORD 4I476000| 34437 0602 00 0 34417 SLW DMOAS SAVE OPERAND 4I476100 0BINARY CARD ID. MAPJ0176| 34440 7 00000 1 34452 TXL EVLDB,1,0 IS THE SYMBOL UNDEFINED 4I476200| 34441 7 00003 1 34547 TXL EVLERA,1,3 4I476300| 34442 7 00006 1 34552 TXL EVLERB,1,6 OR ILLEGAL (6)4I476400| 34443 3 00007 1 34445 TXH *+2,1,7 IF A LITERAL, (6)4I476410 34444 0500 00 0 21705 CLA L(1) USE S-VALUE OF ONE (6)4I476500| 34445 7 00011 1 34455 TXL EVLDC,1,9 IS IT A DEC OR OCTAL CONSTANT $5$4I476510| 34446 3 00012 1 34547 TXH EVLERA,1,10 NO, ARE YOU SURE ITS NOT AN ERROR 4I476600| 34447 0737 00 1 00000 PAC ,1 IT'S A RESULT STORAGE 4I476700| 34450 0500 00 1 52430 CLA TEMP,1 FETCH THE NUMBER 4I476800 34451 0020 00 0 34456 TRA EVLAC 4I476900| 34452 0074 00 4 26565 EVLDB TSX INTST,4 FETCH THE INTERNAL CODE 4I477000| 34453 3 00000 2 34501 TXH EVLB,2,0 IF NAME IS DEFINED, INTERPRET IT 4I477100| 34454 4754 00 0 00000 EVLDA PXD ,0 IF UNDEFINED, USE ZERO 4I477200| 34455 4320 00 0 35143 EVLDC ANA BLMSK MASK IN LITERAL 4I477300 34456 0601 00 0 34556 EVLAC STO EVLVAL 4I477400| 34457 0774 00 1 00000 EVLA AXT **,1 PICK UP THE CURRENT FLAG FIELD 4I477500| 34460 7 00006 1 34515 TXL EVLC,1,6 IF ARITHMETIC, INTERPRET IT 4I477600| 34461 7 00007 1 34525 TXL EVLCB,1,7 (6)4I477610| 34462 7 00047 1 34547 TXL EVLERA,1,39 IF NOTHING, REPORT IT 4I477700 34463 0634 00 1 34464 SXA *+1,1 COMPLEMENT THE 4I477800| 34464 4774 00 1 00000 AXC **,1 FLAG FIELD 4I477900| 34465 0500 00 0 34557 EVLAA CLA EVLVLU PICK UP PREVIOUS VALUE 4I478000| 0BINARY CARD ID. MAPJ0177| 34466 4774 00 4 00000 EVLAB AXC **,4 OPERATE ON IT WITH 4I478100 34467 0522 00 4 34530 XEC EVLOPN-3,4 THE CURRENT OPERATION 4I478200| 34470 0601 00 1 52360 STO TEMP-40,1 STORE IN INDICATED RESULT CELL 4I478300| 34471 4520 00 0 34555 NZT EVLDUN IS EVALUATION COMPLETE 4I478400| 34472 0020 00 0 34424 TRA EVLD NO, CONTINUE 4I478500| 34473 0737 00 1 00000 PAC ,1 COMPLEMENT THE 4I478600 34474 4120 00 0 34476 TMI *+2 NUMBER (6)4I478700| 34475 0734 00 1 00000 PAX ,1 IF IT (6)4I478710| 34476 0754 00 1 00000 PXA ,1 IS NEGATIVE 4I478800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 103 | VARIABLE FIELD ANALYZERS PHASE 1 - RECORD IBMAPJ 0 34477 0774 00 4 00000 EVLX AXT **,4 EXIT 4I478900| 34500 0020 00 4 00001 TRA 1,4 4I479000| | 34501 4500 00 0 34417 EVLB CAL DMOAS FETCH NAME TABLE ENTRY 4I479200| 34502 0074 00 4 33354 TSX FINDTP,4 LOOK FOR A 'SET' 4I479300 34503 140000000000 VFD O6/14 4I479400| 34504 0020 00 0 33401 TRA FNDTPR ASSIGN ONE OR ZERO (6)4I479500| 34505 4500 00 2 00000 EVLBB CAL 0,2 USE VALUE IF SET (6)4I479600| 34506 4320 00 0 21723 ANA MSKAD 4I479700| 34507 0737 00 2 00000 PAC ,2 TEST FOR A NEGATIVE 4I479800 34510 3 10000 2 34513 TXH *+3,2,4096 S-VALUE 4I479900| 34511 0754 00 2 00000 PXA ,2 COMPLEMENT THE 4I480000| 34512 4760 00 0 00003 SSM NEGATIVE VALUE 4I480100| 34513 0601 00 0 34556 STO EVLVAL STORE AS THE SECOND OPERAND 4I480200| 0BINARY CARD ID. MAPJ0178 34514 0020 00 0 34457 TRA EVLA S-VALUE 4I480300| 34515 3 00002 1 34530 EVLC TXH EVLCA,1,2 TEST FOR ARITHMETIC FLAG FIELD 4I480400| 34516 7 00000 1 34525 TXL EVLCB,1,0 TEST FOR THE END OF THE CARD 4I480500| 34517 7 00001 1 34521 TXL EVLCC,1,1 TEST FOR UNEXPECTED DOLLAR SIGN 4I480600| 34520 0020 00 0 34525 TRA EVLCB TREAT THE COMMA AS A BLANK 4I480700 34521 0074 00 4 25623 EVLCC TSX ERPR,4 UNEXPECTED $, TREAT THE CARD 4I480800| 34522 0 00000 4 00031 WMS006,NONONO LIKE A *TYPE COMMENT CARD 4I480900| 34523 0600 00 0 30035 EVLCD STZ ENDA RESET IN CASE OF -DUP- (6)4I481000| 34524 0020 00 0 26701 TRA STRTYP 4I481200| 34525 4625 00 0 34555 EVLCB STL EVLDUN SIGNAL THE END OF THE FIELD 4I481300 34526 4774 00 1 00050 AXC 40,1 CHANGE TO R.S. ZERO (6)4I481400| 34527 0020 00 0 34465 TRA EVLAA (6)4I481410| 34530 0634 00 1 34466 EVLCA SXA EVLAB,1 STORE ARITHMETIC OPERATOR 4I481500| 34531 0601 00 0 34557 STO EVLVLU STORE FIRST OPERAND 4I481600| 34532 0020 00 0 34424 TRA EVLD RETURN FOR THE SECOND OPERAND 4I481700 34533 0400 00 0 34556 EVLOPN ADD EVLVAL + 4I481800| 34534 0402 00 0 34556 SUB EVLVAL - 4I481900| 34535 0074 00 4 34540 TSX EVLOM,4 * 4I482000| 34536 0074 00 4 34544 TSX EVLOD,4 / 4I482100| 34537 0500 00 0 34556 CLA EVLVAL USE FIRST OPERAND ONLY 4I482200 34540 0131 00 0 00000 EVLOM XCA MULTIPLY OPERANDS 4I482300| 34541 0200 00 0 34556 MPY EVLVAL 4I482400| 0BINARY CARD ID. MAPJ0179| 34542 0131 00 0 00000 EVLOX XCA 4I482500| 34543 0020 00 4 00001 TRA 1,4 4I482600 34544 0765 00 0 00043 EVLOD LRS 35 DIVIDE 4I482700| 34545 0221 00 0 34556 DVP EVLVAL OPERATION 4I482800| 34546 0020 00 0 34542 TRA EVLOX 4I482900| 34547 0074 00 4 25623 EVLERA TSX ERPR,4 ILLEGAL ADJECTIVE 4I483000| 34550 0 00000 4 00032 WMS007,NONONO CODE, PROCESS LIKE 4I483100 34551 0020 00 0 34523 TRA EVLCD A * TYPE COMMENT (6)4I483200| 34552 0074 00 4 25623 EVLERB TSX ERPR,4 ILLEGAL ITEM USED IN 4I483300| 34553 0 00000 1 00160 PZE WMS036,GO S-VALUE COMPUTATION (1)4I483400| 34554 0020 00 0 34454 TRA EVLDA USE S-VALUE = 0 4I483500| 34555 000000000000 EVLDUN VFD EVALUATION DONE SWITCH 4I483600 34556 000000000000 EVLVAL VFD FIRST OPERAND 4I483700| 34557 000000000000 EVLVLU VFD SECOND OPERAND 4I483800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 104 | TEXT COLLECTION PHASE 1 - RECORD IBMAPJ | 0 * FIRST PASS COLLECTION AGENCY 4I484000| * ENTERED BY 4I484100| | * TSX FPCLAG,4 4I484300| * FOLLOWED BY A VARIABLE LENGTH LIST OF PARAMETERS OF THE FORM 4I484500| | * P** A1,,N1 4I484700| * P** A2,,N2 4I484800| * ... 4I484900 * M** AN,,NN 4I485000| | * THE LIST IS TERMINATED BY A NEGATIVE PREFIX 4I485200| | * WHERE ** = 4I485400 * ZE FOR NORMAL OUTPUT TEXT 4I485500| * ON FOR A PSEUDO-OP FIELD 4I485600| * TW HAS NO MEANING 4I485700| * TH FOR THE BCD CARD FORM 4I485800| * AND 4I486000| * AI = THE LOCATION OF THE FIRST WORD IN THE GROUP 4I486100| * NI = THE NUMBER OF WORDS TO BE COLLECTED 4I486200| | 34560 FPCLAG SYN * 4I486400 34560 0634 00 4 34613 SXA FPCZ,4 SAVE RETURN 4I486500| 34561 0560 00 4 00001 LDQ 1,4 FETCH THE PARAMETER 4I486600| 34562 4754 00 0 00000 PXD ,0 FIND OUT WHAT 4I486700| 34563 4763 00 0 00003 LGL 3 KIND OF STRING 4I486800| 34564 0737 00 2 00000 PAC ,2 WE ARE 4I486900 34565 4754 00 0 00000 PXD ,0 4I487000| 34566 4763 00 0 00017 LGL 15 FETCH COUNT 4I487100| 34567 0100 00 0 34613 TZE FPCZ EXIT IF THE COUNT = ZERO 4I487200| 0BINARY CARD ID. MAPJ0180| 34570 0734 00 1 00000 PAX ,1 BUILD TIX 4I487300 34571 0361 00 4 00001 ACL 1,4 ADDRESS 4I487400| 34572 0621 00 0 34607 STA FPCNA 4I487500| 34573 0020 00 2 34574 TRA FPCTYP,2 GETTING 4I487600| | 34574 0020 00 0 34604 FPCTYP TRA FPCNML NORMAL ENTRY 4I487800 34575 0020 00 0 34617 TRA FPCPSU PSEUDO OP STRING 4I487900| 34576 0020 00 0 27133 TRA KPUTYP ILLEGAL 4I488000| 34577 0020 00 0 34725 TRA FPCBCD BCD CARD FORM 4I488100| 34600 0020 00 0 34604 TRA FPCNML 4I488200| 34601 0020 00 0 34617 TRA FPCPSU 4I488300 34602 0020 00 0 27133 TRA KPUTYP ILLEGAL 4I488400| 34603 0020 00 0 34725 TRA FPCBCD 4I488500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 105 | TEXT COLLECTION PHASE 1 - RECORD IBMAPJ | 0 * NORMAL OUTPUT STRING 4I488700| 34604 0774 00 2 00001 FPCNML AXT */*,2 PICK UP THE REMAINING COUNT 4I488800| 34605 2 00001 2 34607 FPCNB TIX *+2,2,1 IS THE BUFFER FULL 4I488900| 34606 1 34606 2 34754 TXI FPCGB,2,* YES, GET ANOTHER 4I489000| 34607 4500 00 1 00000 FPCNA CAL **,1 MOVE WORD 4I489100 34610 0602 00 2 00000 FPCNC SLW **,2 TO BUFFER 4I489200| 34611 2 00001 1 34605 TIX FPCNB,1,1 ARE WE FINISHED 4I489300| 34612 0634 00 2 34604 SXA FPCNML,2 YES, SAVE BUFFER COUNT 4I489400| 34613 0774 00 4 00000 FPCZ AXT **,4 RETURN 4I489500| 34614 0500 00 4 00001 CLA 1,4 ARE THERE MORE PARAMETERS 4I489600 34615 4120 00 4 00002 TMI 2,4 IF MINUS, NO 4I489700| 0BINARY CARD ID. MAPJ0181| 34616 1 77777 4 34560 TXI FPCLAG,4,-1 YES, CONTINUE 4I489800| | * PSEUDO-OP OUTPUT 4I490000 34617 0774 00 2 00001 FPCPSU AXT */*,2 PICK UP THE REMAINING COUNT 4I490100| 34620 2 00001 2 34622 FPCPB TIX FPCPA,2,1 IS THE BUFFER FULL 4I490200| 34621 1 34621 2 34627 TXI FPCPD,2,* YES, GET ANOTHER 4I490300| 34622 0441 60 0 34607 FPCPA LDI* FPCNA MOVE EACH WORD TO 4I490400| 34623 0604 00 2 00000 FPCPC STI **,2 THE INTERNAL FILE 4I490500 34624 2 00001 1 34620 TIX FPCPB,1,1 4I490600| 34625 0634 00 2 34617 SXA FPCPSU,2 SAVE REMAINING COUNT 4I490700| 34626 0020 00 0 34613 TRA FPCZ EXIT 4I490800| | 34627 0634 00 2 34645 FPCPD SXA FPCPZ,2 SAVE EXIT 4I491000 34630 0074 00 4 34646 TSX CKUSES,4 CHECK FOR OPEN LOCATION COUNTER S 4I491100| 34631 4520 00 0 21416 NZT SWBUFF DUMP INTERNAL FILE 4I491200| 34632 0020 00 0 34641 TRA *+7 PSEUDO-OP 4I491300| 34633 0534 00 4 34623 LXA FPCPC,4 BUFFERS 4I491400| 34634 4634 00 4 34640 SXD *+4,4 ON 4I491500 34635 6 00114 4 34641 TNX *+4,4,LBFSZE 'BUFFER' 4I491600| 34636 0634 00 4 34640 SXA *+2,4 TEST 4I491700| 34637 0074 00 4 21265 TSX LILDMP,4 4I491800| 34640 0 00000 0 00000 **,,** 4I491900| 34641 0074 00 4 25760 TSX INFIN,4 GET ANOTHER BUFFER FROM 4I492000 34642 0 00000 0 21624 CTPSBF THIS INTERNAL FILE 4I492100| 34643 0621 00 0 34623 STA FPCPC STORE LOCATION 4I492200| 0BINARY CARD ID. MAPJ0182| 34644 4734 00 2 00000 PDX ,2 PICK UP BUFFER SIZE 4I492300| 34645 0020 00 0 00000 FPCPZ TRA ** RETURN 4I492400 1 IBMAPV IBMAPJ 12/01/64 PAGE 106 | TEXT COLLECTION PHASE 1 - RECORD IBMAPJ | 0| * WHEN A PSEUDO-OP OUTPUT BUFFER IS WRITTN, THIS ROUTINE 4I492600| * CHECKS ALL LOCATION COUNTER CHAINS TO SEE IF ANY OF THEM END 4I492700 * IN THE BUFFER, IF ANY DO, THEY ARE CHAINED TO A DUMMY NAME. 4I492800| | 34646 0634 00 4 34665 CKUSES SXA CKUX,4 4I493000| 34647 0634 00 1 34664 SXA CKUY,1 4I493100| 34650 0535 00 1 21451 LAC FLOC,1 PICK UP BLANK L.C. LOCATION 4I493200 34651 4625 00 0 34703 STL CKUZ CHECK ALL THE CHAINS FROM THE BLANK 4I493300| 34652 0761 00 0 34654 NOP *+2 LOCATION COUNTER 4I493400| 34653 0020 00 0 34667 TRA CKUB 4I493500| 34654 4500 00 1 00000 CAL 0,1 FETCH THE NEXT LOCATION 4I493600| 34655 0767 00 0 00003 ALS 3 COUNTER ADDRESS AND 4I493700 34656 4737 00 1 00000 PDC ,1 SEND IT THROUGH THE 4I493800| 34657 3 00000 1 34667 TXH CKUB,1,0 TESTS--IF NO MORE, QUIT 4I493900| 34660 0535 00 1 21452 LAC SLOC,1 FETCH LOCATION OF // COUNTER 4I494000| 34661 4625 00 0 34703 STL CKUZ CHECK THE // LOCATION 4I494100| 34662 0761 00 0 34664 NOP CKUY COUNTER CHAIN 4I494200 34663 0020 00 0 34667 TRA CKUB 4I494300| 34664 0774 00 1 00000 CKUY AXT **,1 4I494400| 34665 0774 00 4 00000 CKUX AXT **,4 4I494500| 34666 0020 00 4 00001 TRA 1,4 4I494600| 34667 4500 00 1 00001 CKUB CAL 1,1 PICK UP LAST LINK IN THIS L.C. CHAIN 4I494800| 34670 0100 00 0 34703 TZE CKUZ IF ZERO, IGNORE THIS CHAIN 4I494900| 34671 0734 00 2 00000 PAX ,2 CHECK ADDRESS AGAINST 4I495000| 0BINARY CARD ID. MAPJ0183| 34672 7 66740 2 34674 TXL *+2,2,DDCHN THE LIMITS OF THE DICTIONARY 4I495100 34673 7 00000 2 34703 CKTBLF TXL CKUZ,2,** IF NAME IN DICT, SKIP TO NEXT L.C. 4I495200| 34674 0074 00 4 26607 TSX INDUM,4 CHAIN ENDS IN BUFFER, FETCH 4I495300| 34675 4500 00 0 30137 CAL 1WD A DUMMY NAME AND 4I495400| 34676 0602 00 2 00000 SLW ,2 PUT IT IN THE CHAIN. 4I495500| 34677 0754 00 2 00000 PXA ,2 STORE THE ADDRESS 4I495600 34700 0402 00 0 21725 SUB MSKTG IN BOTH THE BUFFER 4I495700| 34701 0621 60 1 00001 STA* 1,1 AND THE LOCATION COUNTER 4I495800| 34702 0621 00 1 00001 STA 1,1 DICTIONARY ENTRY 4I495900| 34703 0020 60 0 00000 CKUZ TRA* ** 4I496000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 107 TEXT COLLECTION PHASE 1 - RECORD IBMAPJ | 0| 34704 FPCPI SYN * 4I496200| | * FIND THE NEXT OPEN ADDRESS IN THE PSEUDO-OP 4I496400 * INTERNAL FILE BUFFER. PLACE THE LOCATED ADDRESS 4I496500| * IN THE ADDRESS OF SWPSOP AND IN INDEX REGISTER TWO 4I496600| | * PLACE THE ULTIMATE PSEUDO-OP TABLE ENTRY INTO 4I496800| * THE ADDRESS OF THE ACCUMULATOR. 4I496900 | 34704 0634 00 4 34721 SXA FPCFZ,4 SAVE RETURN 4I497100| 34705 0534 00 2 34617 LXA FPCPSU,2 PICK UP REMAINING COUNT 4I497200| 34706 2 00001 2 34713 TIX FPCPG,2,1 IS THE BUFFER FULL 4I497300| 34707 1 34707 2 34627 TXI FPCPD,2,* YES, GET ANOTHER 4I497400 34710 1 00001 2 34711 TXI *+1,2,1 MODIFY COUNT FOR FULL 4I497500| 34711 0634 00 2 34617 SXA FPCPSU,2 BUFFER AND STORE 4I497600| 34712 1 77777 2 34713 TXI *+1,2,-1 RESTORE TO TRUE COUNT 4I497700| 34713 4634 00 2 34716 FPCPG SXD FPCPH,2 USE COUNT FOR TRUE BUFFER LOCATION 4I497800| 34714 4500 00 0 34724 CAL PSOPLC FETCH TRUE PSBF LOCATION 4I497900 34715 0534 00 2 34623 LXA FPCPC,2 PICK UP BUFFER LOCATION 4I498000| 34716 6 00000 2 27133 FPCPH TNX KPUTYP,2,** DECREASE BY REMAINING COUNT 4I498100| 34717 0634 00 2 36346 SXA SWPSOP,2 STORE BUFFER POINTER 4I498200| 0BINARY CARD ID. MAPJ0184| 34720 0634 00 2 34723 SXA PIFLOC,2 FOR L.C. CHAIN AND ANALYZERS 4I498300 34721 0774 00 4 00000 FPCFZ AXT **,4 RETURN 4I498400| 34722 0020 00 4 00001 TRA 1,4 4I498500| 34723 000000000000 PIFLOC VFD PSEUDO-OP INTERNAL FILE POINTER 4I498600| 34724 0 00000 0 45000 PSOPLC PSBF PSEUDO-OP POINTER 4I498700| * BCD CARD FORM OUTPUT 4I498900| 34725 FPCBCD SYN * 4I499000| 34725 0520 00 0 32065 ZET TTLSW IS THIS A TTL OPERATION 4I499100| 34726 0020 00 0 34731 TRA *+3 YES, IGNORE THE NON-PRINT TEST 4I499200| 34727 0520 00 0 35141 ZET BCDOUT ARE WE DELETING THE PRINTING 4I499300 34730 0020 00 0 34613 TRA FPCZ YES, EXIT HERE 4I499400| 34731 0634 00 1 34752 SXA 74WDC,1 4I499500| 34732 4634 00 1 34735 SXD FPCBB,1 4I499600| 34733 0534 00 2 34604 LXA FPCNML,2 IS THERE ENOUGH ROOM 4I499700| 34734 6 00001 2 34745 TNX FPCBA-1,2,1 IN THE CURRENT 4I499800 34735 3 00000 2 34746 FPCBB TXH FPCBA,2,** BUFFER 4I499900| 34736 0534 00 4 34613 LXA FPCZ,4 FILL THE BUFFER 4I500000| 34737 0634 00 4 34743 SXA FPCBZ,4 WITH AN END-BUFFER 4I500100| 34740 4634 00 2 34742 SXD *+2,2 WORD AND SOME 4I500200| 34741 0074 00 4 34560 TSX FPCLAG,4 CHOICE GARBAGE 4I500300 34742 4 00001 0 34753 MZE 56WD,,1 4I500400| 34743 0774 00 4 00000 FPCBZ AXT **,4 REPROCESS THIS 4I500500| 34744 0020 00 0 34560 TRA FPCLAG REQUEST 4I500600| 34745 1 34745 2 34754 TXI FPCGB,2,* GET ANOTHER BUFFER 4I500700| 0BINARY CARD ID. MAPJ0185 34746 4500 00 0 34752 FPCBA CAL 74WDC ENTER A 'BCD WORD FOLLOWS' 4I500800| 34747 0600 00 0 32065 STZ TTLSW CLEAR THE TTL SWITCH 4I500900| 34750 1 00001 1 34610 TXI FPCNC,1,1 AND BUMP THE STORE COUNT 4I501000| 34751 750002000000 75WD2 VFD O6/75,12/2 (6)4I501010| 34752 740000000000 74WDC VFD O6/74,30/** 4I501100 1 IBMAPV IBMAPJ 12/01/64 PAGE 108 | TEXT COLLECTION PHASE 1 - RECORD IBMAPJ | 0 34753 560000000000 56WD VFD O6/56 (6)4I501110| | * GET ANOTHER T1 TEXT BUFFER 4I501300 34754 0634 00 2 34776 FPCGB SXA FPCGZ,2 SAVE EXIT 4I501400| 34755 4520 00 0 21416 NZT SWBUFF DUMP OUTPUT 4I501500| 34756 0020 00 0 34765 TRA *+7 BUFFERS 4I501600| 34757 0534 00 4 34610 LXA FPCNC,4 ON 4I501700| 34760 4634 00 4 34764 SXD *+4,4 'BUFFER' 4I501800 34761 6 00345 4 34765 TNX *+4,4,BBFSZE TEST 4I501900| 34762 0634 00 4 34764 SXA *+2,4 4I502000| 34763 0074 00 4 21265 TSX LILDMP,4 4I502100| 34764 0 00000 0 00000 **,,** 4I502200| 34765 0074 00 4 21363 TSX WRITE,4 LOCATE A 4I502300 34766 5 35014 0 21514 REELC FVE CTWOHO,,EOTMS NEW ONE (6)4I502400| 34767 7 00000 2 00000 FPCGA IOSTN **,,0 4I502500| 34770 0621 00 0 34610 STA FPCNC MODIFY STO INSTRUCTION 4I502600| 34771 0774 00 2 00345 AXT BBFSZE,2 4I502700| 34772 4634 00 2 34767 SXD FPCGA,2 IO WRITE SEQUENCE 4I502800 34773 4500 00 0 35153 CAL FPCGS TEST FOR 4I502900| 0BINARY CARD ID. MAPJ0186| 34774 0322 00 0 21431 ERA SWCCT REEL 4I503000| 34775 4760 00 0 00001 PBT SWITCH 4I503100| 34776 0020 00 0 00000 FPCGZ TRA ** EXIT 4I503200 34777 0602 00 0 35153 SLW FPCGS SWITCH REELS 4I503300| 35000 1 00001 2 35001 TXI *+1,2,1 4I503400| 35001 0634 00 2 34604 SXA FPCNML,2 4I503500| 35002 0074 00 4 21355 TSX CLOSE,4 CLOSE THE 4I503600| 35003 2 00000 0 21514 PTW CTWOHO FIRST REEL 4I503700 35004 4625 00 0 21471 STL SWSUNI SET REEL CHANGE FLAG 4I503800| 35005 0774 00 4 21530 AXT CTWOTW,4 4I503900| 35006 0634 00 4 27762 SXA REELA,4 SWITCH TO 4I504000| 35007 0634 00 4 34766 SXA REELC,4 OUTPUT 4I504100| 35010 0074 00 4 21357 TSX OPEN,4 OPEN ALTERNATE 4I504200 35011 4 00000 0 21530 MZE CTWOTW WITHOUT REWIND 4I504300| 35012 4634 00 0 34767 ZSD FPCGA CLEAR BUFFER COUNT (6)4I504400| 35013 0020 00 0 34755 TRA FPCGB+1 CYCLE THRU AGAIN 4I504500| | 35014 0774 00 4 00003 EOTMS AXT 3,4 PREPARE TO RESET MESSAGE (6)4I504520 35015 0520 00 0 21471 ZET SWSUNI HAS 'REEL' SWITCH OCCURRED (6)4I504530| 35016 0634 00 4 35023 SXA DKPTL,4 YES, RESET SUBSTITUTION LIST (6)4I504540| 35017 0600 00 0 21466 STZ PBLINK RESET MESSAGE SWITCH (6)4I504550| 35020 0074 00 4 25623 TSX ERPR,4 -CAPACITY EXCEEDED WRITING (6)4I504560| 35021 0 35022 5 00201 FMS009,KAPUT,DKPTM INTERMEDIATE TEXT ON SYSUT'X- (6)4I504570 0BINARY CARD ID. MAPJ0187| 35022 0 00000 0 00001 DKPTM 1 (6)4I504580| 35023 0 00001 2 00001 DKPTL */*,2,1 IMMEDIATE CHARACTER FOR MESSAGE (6)4I504590| 1 IBMAPV IBMAPJ 12/01/64 PAGE 109 | INPUT HANDLER PHASE 1 - RECORD IBMAPJ 0| * INPUT HANDLER 4I504700| 35024 0600 00 0 35140 INHAND STZ INHSWE TEST -ETC- ENTRY 4I504800| 35025 4625 00 0 35157 STL NXTETC IN CASE READ IS SUPPRESSED (6)4I504810| 35026 0020 00 0 35030 TRA *+2 4I504900 35027 4625 00 0 35140 INHANE STL INHSWE NO -ETC- TEST ENTRY 4I505000| 35030 0634 00 1 35115 SXA INHX,1 4I505100| 35031 0634 00 2 35116 SXA INHY,2 4I505200| 35032 0634 00 4 35117 SXA INHZ,4 SAVE INDEX REGISTER 4I505300| 35033 0604 00 0 35137 STI INHIND SAVE THE INDICATORS 4I505400 35034 0520 00 0 36245 ZET SWIRPC GET NEXT CARD IF (6)4I505410| 35035 0020 00 0 35071 TRA INHB IRP INHIBITED IT (6)4I505420| 35036 4520 00 0 35166 NZT SWCVFE HAS ROUTINE BEEN ENTERED FOR END (6)4I505430| 35037 0020 00 4 00001 TRA 1,4 OF VARIABLE FIELD TEST (6)4I505440| 35040 4500 00 0 21447 CAL GTPRA PUT PARAMETER 4I505500 35041 0622 00 0 35066 STD INHA WORD FOR 4I505600| 35042 0621 00 0 35066 STA INHA BCD CARD 4I505700| 35043 0441 00 0 21443 LDI BLINK 4I505800| 35044 4054 00 000001 LFT 1 ALWAYS PRINT CARD 4I505900| 35045 0020 00 0 35061 TRA INHD IF ERROR OCCURRED 4I506000 35046 4520 00 0 35162 NZT PCCSW SET NO LIST IF $4$4I506100| 35047 4520 00 0 35145 NZT CCDSW CONTROL CARD AND $4$4I506200| 0BINARY CARD ID. MAPJ0188| 35050 0520 00 0 35174 ZET UNLSW PCC OFF, OR UNLIST $4$4I506300| 35051 4055 00 000002 SIL 2 IS ON $4$4I506400 35052 4520 00 0 36235 NZT SWMACI OR IF MACRO (6)4I506410| 35053 0020 00 0 35056 TRA *+3 GENERATED CARD, (6)4I506420| 35054 4520 00 0 35163 NZT PMCSW AND PMC (6)4I506430| 35055 4055 00 000002 SIL 2 IS OFF (6)4I506440| 35056 4054 00 000002 LFT 2 NO COMMENTARY IF NO LIST $4$4I506500 35057 0055 00 400000 INHC SIR 400000 4I506600| 35060 0604 00 0 21443 STI BLINK 4I506700| 35061 0604 00 0 21466 INHD STI PBLINK SAVE BLINK FOR ERROR 4I506800| 35062 4046 00 0 00000 PIA MESSAGES, AND SET 4I506900| 35063 0625 00 0 35141 STT BCDOUT BCD SWITCH 4I507000 35064 0074 00 4 34560 TSX FPCLAG,4 WRITE 4I507100| 35065 0 00001 0 21443 BLINK,,1 BLINK 4I507200| 35066 7 00000 0 00000 INHA MTH **,,** 4I507300| 35067 0520 00 0 21421 ZET CTCKMD *** OUTPUT IF $4$4I507400| 35070 0074 00 2 35122 TSX INHCK,2 *** CHECKOUT MODE $4$4I507500 35071 0520 00 0 30035 INHB ZET ENDA IS END SWITCH ON (6)4I507600| 35072 0020 00 0 35115 TRA INHX YES, DO NOT READ NEXT CARD 4I507700| 35073 0074 00 4 35175 TSX IREAD,4 FETCH ANOTHER CARD 4I507800| 35074 0 00000 0 27136 PZE EOFERR 4I507900| 35075 0074 00 4 37001 TSX CDXIN,4 BREAK UP THE CARD 4I508000 0BINARY CARD ID. MAPJ0189| 35076 0520 00 0 35140 ZET INHSWE EXIT IF 4I508100| 35077 0020 00 0 35115 TRA INHX NO -ETC- TEST 4I508200| 35100 0074 00 4 36400 TSX GTDICT,4 GET TEXT FOR OPERATION (6)4I508300| 35101 0322 00 0 35151 ERA ETCOPN SET NXTETC 4I508400 35102 0361 00 0 37172 ACL SWCMNT 4I508500| 35103 0602 00 0 35157 SLW NXTETC CELL 4I508600| 35104 4100 00 0 35115 TNZ INHX IS NEXT OP ETC 4I508700| 35105 0600 00 0 21466 STZ PBLINK 4I508800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 110 INPUT HANDLER PHASE 1 - RECORD IBMAPJ | 0 35106 0774 00 4 26705 AXT 75WD1,4 YES, ENTER A 4I508900| 35107 4520 00 0 45170 NZT SWNTC REM OR NULL 4I509000| 35110 0774 00 4 34751 AXT 75WD2,4 OPERATION 4I509100| 35111 0634 00 4 35113 SXA *+2,4 4I509200 35112 0074 00 4 34560 TSX FPCLAG,4 WRITE 4I509300| 35113 4 00001 0 00000 MZE **,,1 NULL OR REM 4I509400| 35114 4625 00 0 45170 STL SWNTC RESET FOR REM (6)4I509410| 35115 0774 00 1 00000 INHX AXT **,1 4I509500| 35116 0774 00 2 00000 INHY AXT **,2 4I509600 35117 0774 00 4 00000 INHZ AXT **,4 RESTORE INDEX 4I509700| 35120 0441 00 0 35137 LDI INHIND 4I509800| 35121 0020 00 4 00001 TRA 1,4 EXIT 4I509900| | 35122 0502 00 0 21447 INHCK CLS GTPRA *** SUBROUTINE TO (6)4I510100 35123 0601 00 0 35134 STO INHCDI *** PRINT (6)4I510110| 0BINARY CARD ID. MAPJ0190| 35124 0500 00 0 21443 CLA BLINK *** LINE (6)4I510120| 35125 0074 00 4 00716 TSX .DECVA,4 *** NUMBER (6)4I510200| 35126 4600 00 0 35135 STQ INHLN *** AND CARD (6)4I510210 35127 0074 00 4 25744 TSX PRINT,4 *** IMAGE FOR $4$4I510300| 35130 0020 00 2 00001 TRA 1,2 *** CHECKOUT MODE $4$4I510400| 35131 0 00000 0 00003 PZE 3 *** (6)4I510500| 35132 0 00001 0 35135 PZE INHLN,,1 *** (6)4I510510| 35133 4 00002 1 35136 MZE INHCMA,1,2 *** (6)4I510520 35134 4 00000 0 00000 INHCDI MZE **,,** *** (6)4I510600| 35135 0 00000 0 00000 INHLN *** *** (6)4I510610| 35136 736060606060 INHCMA BCI 1,, *** (6)4I510620| | 35137 000000000000 INHIND VFD 4I510800 35140 000000000000 INHSWE VFD 36/0 -ETC- TEST SWITCH 4I510900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 111 | CONSTANTS AND STORAGE PHASE 1 - RECORD IBMAPJ | 0| * CONSTANTS AND STORAGE 4I511100 * 4I511200| | 35141 0 00000 0 00000 BCDOUT 4I511400| 35142 602243236351 BLCTR BCI 1, BLCTR 4I511500| 35143 000000777777 BLMSK VFD O36/777777 BOOLEAN MASK 4I511700 35144 000000000000 BOOLSW VFD 36/0 BOOLEAN FIELD SWITCH 4I511800| 35145 000000000000 CCDSW VFD CONTROL CARD SWITCH 4I511900| 35146 000000000000 CUROPN VFD CURRENT OPERATION 4I512000| 35147 000000000000 CURPSO VFD CURRENT PSEUDO-OP 4I512100| 35150 000000000000 CURWRD VFD CURRENT WORD 4I512200 35151 750000000000 ETCOPN VFD O6/75,12/0 INTERNAL TEXT FOR -ETC- (6)4I512300| 0BINARY CARD ID. MAPJ0191| 35152 0 07777 0 00000 4095D ,,4095 (6)4I512310| 35153 000000000000 FPCGS VFD REEL CHANGE SWITCH 4I512400| 35154 000000000000 LNKMK VFD SENTENCE WORD POINTER 4I512600 35155 572000077777 LNKTYP VFD O12/5720,O24/77777 TYPE 2 LINK MESSAGE 4I512700| 35156 4054 00 037660 NMLSC LFT SLB+ASB+MSB+PSB+CMB+DLB+EQB+LPB+RPB (6)4I512800| 35157 000000035157 NXTETC VFD 36/* 4I512900| 35160 000000000000 OCTCNV VFD OCTAL LITERAL INDICATOR 4I513000| 35161 000000000000 PCGSW VFD CONTROL GROUP SWITCH 4I513200 *********************************************************************(6)4I513210| * DO NOT DISTURB THE ORDER OF THE FOLLOWING TWO CARDS.. (6)4I513220| 35162 0 00000 0 00000 PCCSW ** PRINT CONTROL CARDS SWITCH (6)4I513230| 35163 0 00000 0 00000 PMCSW ** PRINT MACRO CARDS SWITCH (6)4I513300| *********************************************************************(6)4I513310 35164 000000000000 PSOWNF VFD PSEUDO-OP WITH NO FIELD SWITCH 4I513400| 35165 616160606060 SLCTR BCI 1,// 4I513500| 35166 0 00000 0 00000 SWCVFE ** VARIABLE FIELD ENDED SWITCH (6)4I513700| 35167 0 00000 0 00000 SWUND ** PURGED UNDEFINED OP PROCESSOR (6)4I513710| 35170 000000400000 TAG4 VFD O19/1 4I513800 35171 000000000000 TIDESW VFD TITLE-DETAIL SWITCH 4I513900| 35172 000002000000 2DECR VFD O18/2 4I514000| 35173 545454545460 UNDOP BCI 1,***** UNDEFINED OPERATIONS PROCESSOR (6)4I514010| 35174 000000000000 UNLSW VFD UNLIST SWITCH 4I514100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 112 CONSTANTS AND STORAGE PHASE 1 - RECORD IBMAPJ | 0| * WMSXXX ERROR MESSAGES, MEANINGS AND SEVERITY 4I514300| | * WMS001 NONONO SENTENCE SIZE EXCEEDS TABLE CAPACITY 4I514500 * WMS002 GO ILLEGAL USE OF INDIRECT ADDRESSING 4I514600| * WMS003 NONONO NAME LONGER THAN 6 CHARACTERS-FIRST 6 USED 4I514700| * WMS004 KAPUT ILLEGAL INTERNAL CONDITION 4I514800| * WMS005 NOGO MORE THAN ONE FIELD IN A 'SET' OPERATION 4I514900| * WMS006 NONONO QUALIFICATION NOT ALLOWED IN A 'SET' 4I515000 * WMS007 NONONO ILLEGAL ADJECTIVE CODE IN A 'SET' OPERATION 4I515100| * WMS008 NONONO 'SET' OPERATION HAS A BLANK NAME FIELD 4I515200| * WMS009 KAPUT END OF FILE IN THE PROGRAM 4I515300| * WMS010 NONONO ILLEGAL OPERATION CODE 4I515400| * WMS011 NONONO ILLEGAL COMBINATION OF * AND NAME 4I515500 * WMS012 NONONO ILLEGAL VARIABLE FIELD PATTERN IN AN ETC CARD 4I515600| * WMS013 NONONO UNDEFINED NAME IN AN ENDQ OPERATION 4I515700| * WMS014 NONONO WRONG NAME IN AN ENDQ OPERATION 4I515800| * WMS015 GO NO NAME IN AN ENDQ OPERATION 4I515900| * WMS016 NOGO OCTAL CONSTANT LONGER THAN 12 DIGITS 4I516000 * WMS017 NOGO OCTAL CONSTANT CONTAINS A NON-OCTAL CHARACTER 4I516100| * WMS018 GO ILLEGAL USE OF AN ETC OPERATION 4I516200| * WMS019 NONONO IMPROPER PUNCTUATION FOLLOWING A HOLLERITH CONST4I516300| * WMS020 NONONO COUNT IN BCI CARD IS TOO LARGE 4I516400| * WMS021 NONONO UNREADABLE BCI CARD 4I516500 * WMS022 GO ABSOLUTE OPERATIONS IN A RELATIVE ASSEMBLY 4I516600| * WMS023 GO SERIALIZATION GROUP TOO LARGE (LBL CARDS) 4I516700| * WMS024 GO MORE THAN ONE 'LORG' IN THE PROGRAM 4I516800| * WMS025 GO MORE THAN ONE 'LDIR' IN THE PROGRAM 4I516900| * WMS026 NONOGO VARIABLE FIELD TOO COMPLEX, TOO MANY R.S. USED 4I517000 * WMS027 NONONO VARIABLE FIELD GROUP SIZE EXCEEDS 6 DIGITS 4I517100| * WMS028 NOGO THERE IS NO PREVIOUS LOCATION COUNTER-BLANK USED4I517200| * WMS029 NONONO TOO MANY NESTED QUALS 4I517300| * WMS030 NONONO VFD BIT COUNT TOO LARGE 4I517400| * WMS031 NONONO ILLEGAL FORM OF 'IFF' OR 'IFT' 4I517500 * WMS032 KAPUT ONE OR MORE MISSING 'ENDQ' OPERATIONS 4I517600| * WMS033 NONONO ILLEGAL BCD COUNT 4I517700| * WMS034 NONOGO OPVFD FIELD EXCEEDS 36 BITS 4I517800| * WMS035 NONOGO OPD OR OPVFD NOT NEGATIVE 4I517900| * WMS036 GO ILLEGAL ITEM IN THE VARIABLE FIELD 4I518000 * WMS037 GO OP CANNOT HAVE AN ASSOCIATED SYMBOL 4I518100| * WMS038 NONONO ILLEGAL TERMINATOR FOR DECIMAL CONSTANT 4I518200| * WMS039 NONOGO ILLEGAL QUALIFICATION 4I518300| * WMS040 GO 7094 OP NOT EXPANDED 4I518400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 113 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0| * THIS ROUTINE IS USED TO OBTAIN THE NEXT CARD 4I518600| * IMAGE FOR PROCESSING. CALLING SEQUENCE- 4I518700| * 4I518800 * TSX IREAD,4 4I518900| * PZE EOF 4I519000| * 4I519100| * WHERE EOF IS THE ADDRESS TO WHICH RETURN WILL BE 4I519200| * MADE ON END-OF-FILE. THE ADDRESS OF THE FIRST 4I519300 * WORD OF THE BCD RECORD IS LEFT IN CELL GTPRA. IF 4I519400| | | 35175 0634 00 4 35245 IREAD SXA IRX.4,4 SAVE INDEX 4I519600| 35176 0634 00 2 35246 SXA IRX.4+1,2 REGISTERS 4I519700 35177 0634 00 1 35247 SXA IRX.4+2,1 4I519800| 0BINARY CARD ID. MAPJ0192| 35200 0020 00 0 35201 IRED TRA *+1 SOURCE BRANCH (MODIFIED) 4I519900| | * INPUT IS FROM SYSUNI 4I520100 * 4I520200| | 35201 0500 00 0 36237 CLA ISUSC RECOVER POSSIBLE 4I520400| 35202 0600 00 0 36237 STZ ISUSC SUSPENDED 4I520500| 35203 4100 00 0 35217 TNZ IRD CARD 4I520600 35204 0500 00 4 00001 CLA 1,4 SETUP END-OF-FILE 4I520700| 35205 0621 00 0 35271 STA IREOG EXIT 4I520800| 35206 0520 00 0 21423 ZET SWCPIN 4I520900| 35207 0020 00 0 35264 TRA IRCMP SPECIAL IF COMPILER 4I521000| 35210 0500 00 0 21431 CLA SWCCT DECREMENT 4I521100 35211 0402 00 0 21706 SUB L(2) CARD COUNT 4I521200| 35212 0601 00 0 21431 STO SWCCT 4I521300| 5193, 35213 0074 00 4 21255 IRA CALL JOBIN CALL ON JOBIN TO READ CARD $5$4I521400| 35216 0100 60 0 35271 TZE* IREOG TEST EOF 4I521800| 35217 4320 00 0 36236 IRD ANA IDMSK MASK OUT P,T 4I521900 35220 0601 00 0 21447 STO GTPRA AND STORE. 4I522000| 35221 0560 60 0 21447 LDQ* GTPRA FETCH FIRST WORD ON CARD 4I522100| 35222 4114 01 1 36537 CAQ SCTBL,1,1 CHECK FOR $ 4I522200| 35223 1 77767 1 35224 TXI *+1,1,-DLCDE 4I522300| 35224 3 00000 1 35245 TXH IRX.4,1,0 OK. EXIT $5$4I522400 5201, 35225 0074 00 4 21260 CALL IOEDIT(ENDP6) BACKSPACE ONE RECORD $5$4I522500| 0BINARY CARD ID. MAPJ0193| 35231 0520 00 0 45172 ZET MACISW IS THIS MACRO (6)4I522510| 35232 0020 00 0 35244 TRA IRE ETC LOOKAHEAD (6)4I522600| 35233 0074 00 4 25623 ENDOP5 TSX ERPR,4 NO, ISSUE NASTY (6)4I522610 35234 0 00000 4 00206 PZE FMS013,NONONO MESSAGE $5$4I522700| 35235 4625 00 0 36251 STL SWEND SET GENERATED END SWITCH (6)4I522710| 35236 0500 00 0 36252 CLA ENDOP USE DUMMY $5$4I522800| 35237 0601 00 0 21447 STO GTPRA -END- CARD (6)4I522900| 35240 0074 00 4 37001 TSX CDXIN,4 INITIALIZE SCANS (6)4I523000 35241 0074 00 4 36407 TSX PLNOP,4 PLACE OPERATION IN DICTIONARY (6)4I523100| 35242 4500 00 0 44245 CAL END.WD PLACE INTERNAL TEXT (6)4I523200| 35243 0602 00 2 00000 SLW 0,2 TO FORCE END PROCESSING (6)4I523300| 35244 4625 00 0 35140 IRE STL INHSWE SET NO ETC TEST (6)4I523400| 35245 0774 00 4 00000 IRX.4 AXT **,4 RESTORE 4I524700 1 IBMAPV IBMAPJ 12/01/64 PAGE 114 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 35246 0774 00 2 00000 AXT **,2 INDEX 4I524800| 35247 0774 00 1 00000 AXT **,1 REGISTERS 4I524900| 35250 0441 00 0 21443 LDI BLINK CLEAR ERROR AND 4I525000 35251 0445 00 0 21731 RIS MSKSP PRINT CODES FROM BLINK. 4I525100| 35252 0520 00 0 21420 ZET CTLIST SUPPRESS PRINTING IF 4I525200| 35253 4055 00 000002 SIL 2 NO LIST, OR IF 4I525300| 0BINARY CARD ID. MAPJ0194| 35254 4520 00 0 36234 NZT DUPISW -DUP- CREATED CARD 4I525400 35255 0020 00 0 35260 TRA *+3 AND 'TITLE' ON, 4I525500| 35256 0520 00 0 35171 ZET TIDESW OR IF MACRO CREATED 4I525600| 35257 4055 00 000002 SIL 2 CARD AND PMC OFF 4I525700| 35260 4046 00 0 00000 IRX.6 PIA 4I526200| 35261 0361 00 0 21705 ACL L(1) BUMP COUNT 4I526300 35262 0602 00 0 21443 SLW BLINK BY 1, AND EXIT 4I526400| 35263 0020 00 4 00002 TRA 2,4 4I526500| | * READ COMPILER INPUT 4I526700| * 4I526800 5232, 35264 0074 00 4 21255 IRCMP CALL JOBIN READ NEXT CARD $5$4I526900| (CHANGE HERE IF DIRECT READ) $5$4I527000| 35267 4100 00 0 35217 TNZ IRD BACK IF NOT EOF 4I527300| | 35270 0520 00 0 21471 ZET SWSUNI TAKE EOF EXIT IF 4I527500 35271 0020 00 0 00000 IREOG TRA ** SWITCH HAS OCCURRED 4I527600| 35272 0074 00 4 34560 TSX FPCLAG,4 TRUNCATE 4I527700| 35273 4 00001 0 34753 MZE 56WD,,1 BUFFER 4I527800| 35274 0502 00 0 21431 CLS SWCCT AND SWITCH 4I527900| 35275 0601 00 0 21431 STO SWCCT REELS 4I528000 35276 0774 00 2 00000 AXT 0,2 4I528100| 35277 1 35264 2 34754 TXI FPCGB,2,IRCMP 4I528200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 115 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 * INPUT IS FROM DUPLICATE FILE 4I528400| | 35300 0500 00 0 36240 IDUPI CLA ISUSD RECOVER POSSIBLE 4I528600| 35301 0600 00 0 36240 STZ ISUSD SUSPENDED CARD 4I528700| 0BINARY CARD ID. MAPJ0195 35302 4100 00 0 35217 TNZ IRD 4I528800| 35303 0520 00 0 43404 ZET DDUPSW ILLEGAL IF PROCESSING (6)4I528810| 35304 0020 00 0 35372 TRA DERR DUP OPERATION (6)4I528820| 35305 0500 00 0 36233 CLA SWDUPI DECREMENT RANGE COUNT 4I528900| 35306 0402 00 0 21717 SUB 1DECR 4I529000 35307 0622 00 0 36233 STD SWDUPI 4I529100| 35310 4120 00 0 35313 TMI IDUPJ CHECK NEXT ITERATION 4I529200| 35311 0074 00 4 35342 TSX DUPRD,4 OR, READ 4I529300| 35312 0020 00 0 35217 TRA IRD NEXT CARD 4I529400| SEQUENCE COMPLETED 4I529600| 35313 0534 00 2 45737 IDUPJ LXA DUPPDL,2 DECREMENT 4I529700| 35314 0500 00 2 45740 CLA DUPPDL+1,2 FOR A DUP 4I530000| 35315 0402 00 0 21705 SUB L(1) OPERATION 4I530100| 35316 0601 00 2 45740 STO DUPPDL+1,2 4I530200 35317 0634 00 2 36234 SXA DUPISW,2 SET DUP TITLE 4I530300| 35320 3 00003 2 35322 TXH *+2,2,3 SWITCH - PERMANENTLY (6)4I530400| 35321 4634 00 2 36234 SXD DUPISW,2 IF OUTER DUP 4I530500| 35322 0100 00 0 35326 TZE IDUPL IF ITERATION NOT COMPLETE, 4I530600| 35323 0500 00 2 45737 IDUPK CLA DUPPDL,2 POSITION TO $5$4I530700 35324 0074 00 2 35420 TSX DUPPOS,2 FIRST CARD $5$4I530800| 35325 0020 00 0 35300 TRA IDUPI 4I531400| | ITERATION COMPLETE 4I531600| 35326 1 77775 2 35327 IDUPL TXI *+1,2,-3 (6)4I531700 35327 0634 00 2 45737 SXA DUPPDL,2 PUSH UP TO NEXT 4I532000| 0BINARY CARD ID. MAPJ0196| 35330 7 00000 2 35335 TXL IDUPM,2,0 IF NEST NOT FINISHED, (6)4I532010| 35331 0634 00 0 36234 ZSA DUPISW CLEAR INNER TITLE SWITCH (6)4I532020| 35332 0500 00 2 45741 CLA DUPPDL+2,2 AND REPOSITION $5$4I532100 35333 0074 00 2 35420 TSX DUPPOS,2 $5$4I532200| 35334 0020 00 0 35340 TRA IDUPN 4I532800| 35335 0074 00 4 35440 IDUPM TSX CLOSED,4 IF NO MORE DUP, 4I532900| CLOSE DESTRUCTIVELY (6)4I533000| 35336 0600 00 0 36234 STZ DUPISW AND CLEAR SWITCHES 4I533100 35337 0600 00 0 43402 STZ DUPCCT 4I533200| | 35340 0074 00 4 43440 IDUPN TSX UPSRCE,4 PUSH UP SOURCE, AND 4I533400| 35341 0020 00 0 35200 TRA IRED GO TO READ 4I533500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 116 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0| * READFROM DUP FILE 4I533700| * 4I533800| 35342 0634 00 4 35370 DUPRD SXA DUPRX,4 SAVE RETURN 4I533900 35343 0774 00 4 00000 DUPRE AXT **,4 ATTACH BUFFER 4I534000| 35344 3 00000 4 35351 TXH DUPRG,4,0 IF NONE 4I534100| 35345 0074 00 4 25762 DUPRF TSX INFOT,4 4I534200| 35346 4 35372 0 21654 MZE CTDUPF,,DERR 4I534300| 35347 4734 00 4 00000 PDX ,4 (6)4I534400 35350 0621 00 0 35351 STA *+1 4I534500| 35351 0500 00 4 00000 DUPRG CLA **,4 NEW BUFFER IF 4I534600| 35352 0100 00 0 35345 TZE DUPRF CONTROL WORD =0 4I534700| 35353 0622 00 0 21447 STD GTPRA 4I534800| 35354 0622 00 0 35361 STD DUPRH SAVE COUNT 4I534900 35355 0754 00 4 00000 PXA 0,4 4I535000| 0BINARY CARD ID. MAPJ0197| 35356 0402 00 0 35351 SUB DUPRG 4I535100| 35357 0361 00 0 21705 ACL L(1) POSITION OF 4I535200| 35360 0621 00 0 21447 STA GTPRA FIRST WORD OF CARD 4I535300 35361 2 00000 4 35362 DUPRH TIX *+1,4,** POSITION 4I535400| 35362 1 77777 4 35363 TXI *+1,4,-1 TO NEXT 4I535500| 35363 0634 00 4 35343 SXA DUPRE,4 CARD 4I535600| 35364 0500 00 0 21667 CLA CTDUPF+11 INCREMENT 4I535700| 35365 0361 00 0 21705 ACL L(1) RECORD 4I535800 35366 0621 00 0 21667 STA CTDUPF+11 COUNT 4I535900| 35367 0500 00 0 21447 CLA GTPRA 4I536000| 35370 0774 00 4 00000 DUPRX AXT **,4 AND 4I536100| 35371 0020 00 4 00001 TRA 1,4 EXIT 4I536200| 35372 0074 00 4 25623 DERR TSX ERPR,4 ISSUE MESSAGE - 'INCORRECT (6)4I536310| 35373 0 00000 4 00012 MSS010,NONONO DUPLICATE SEQUENCE' (6)4I536320| | 35374 4520 00 0 43475 CLRDUP NZT SRCTBL PUSH SOURCE UP TO SYSUNI (6)4I536340| 35375 0020 00 0 35400 TRA *+3 (6)4I536350 35376 0074 00 4 43440 TSX UPSRCE,4 (6)4I536360| 35377 0020 00 0 35374 TRA *-3 (6)4I536370| 35400 0074 00 4 35440 TSX CLOSED,4 CLOSE DUP FILE (6)4I536400| 35401 0600 00 0 43404 STZ DDUPSW CLEAR DUP SWITCH (6)4I536410| 35402 0600 00 0 36235 STZ SWMACI AND MACRO SWITCH (6)4I536420 35403 0774 00 4 36536 AXT SCSIL,4 RESTORE SCAN ACTION (6)4I536430| 0BINARY CARD ID. MAPJ0198| 35404 0634 00 4 36451 SXA QSLQ,4 FOR PARENS (6)4I536440| 35405 0774 00 4 36505 AXT QSCNT,4 AND (6)4I536450| 35406 0634 00 4 36536 SXA SCSIL,4 BLANKS (6)4I536460 35407 0600 00 0 45172 STZ MACISW RESET MACRO CALL SWITCH (6)4I536470| 35410 0600 00 0 30035 STZ ENDA ALLOW LOOKAHEAD (6)4I536500| 35411 4634 00 0 45306 ZSD XPCCT (6)4I536510| 35412 0634 00 0 45737 ZSA DUPPDL RESET PUSH DOWN POSITIONS (6)4I536520| 35413 0074 00 4 31520 TSX CLEAR,4 PERFORM PENDING PURGES (6)4I536530 35414 0074 00 4 44274 TSX MCDPR,4 OUTPUT CARD AND GET NEXT (6)4I536540| 35415 0600 00 0 36237 STZ ISUSC (6)4I536550| 35416 0600 00 0 36240 STZ ISUSD (6)4I536560| 35417 0020 00 0 26640 TRA PASA (6)4I536570| 1 IBMAPV IBMAPJ 12/01/64 PAGE 117 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0| * ROUTINE TO POSITION DUP FILE $5$4I536610| | 35420 0622 00 0 36233 DUPPOS STD SWDUPI SET RANGE COUNT $5$4I536620 35421 0634 00 1 35432 SXA DUPPOX,1 $5$4I536622| 35422 0734 00 1 00000 PAX 0,1 $5$4I536625| 35423 0754 00 1 00000 PXA 0,1 TEST PRESENT $5$4I536630| 35424 0402 00 0 21667 SUB CTDUPF+11 POSITION AGAINST $5$4I536635| 35425 4120 00 0 35434 TMI DUPPOU DESIRED ONE $5$4I536640 35426 0734 00 1 00000 PAX 0,1 IF BEFORE, $5$4I536645| 35427 7 00000 1 35432 DUPPOT TXL DUPPOX,1,0 USE DIFFERENCE $5$4I536650| 35430 0074 00 4 35342 TSX DUPRD,4 AND POSITION $5$4I536655| 35431 2 00001 1 35430 TIX *-1,1,1 $5$4I536660| 0BINARY CARD ID. MAPJ0199 35432 0774 00 1 00000 DUPPOX AXT **,1 RESTORE AND $5$4I536665| 35433 0020 00 2 00001 TRA 1,2 EXIT $5$4I536667| 35434 0074 00 4 35436 DUPPOU TSX CLOSER,4 IF BEYOND, CLOSE REGEN $5$4I536670| 35435 0020 00 0 35427 TRA DUPPOT AND USE ORIGINAL COUNT $5$4I536675| * ROUTINES TO CLOSE DUP FILE 4I536700| | 35436 4500 00 0 35452 CLOSER CAL FVEWD REGENERATIVE 4I536900| 35437 0020 00 0 35441 TRA *+2 4I537000| 35440 4500 00 0 35453 CLOSED CAL ONEWD DESTRUCTIVE 4I537100 35441 0634 00 4 35450 SXA CLOSX,4 4I537200| 35442 0630 00 0 35446 STP CLOSA SET CLOSE TYPE 4I537300| 35443 0320 00 0 21663 ANS CTDUPF+7 RESET $5$4I537500| 35444 0600 00 0 21667 STZ CTDUPF+11 INDICATORS 4I537600| 35445 0074 00 4 21355 TSX CLOSE,4 CLOSE 4I537700 35446 0 00000 0 21654 CLOSA PZE CTDUPF FILE 4I537800| 35447 0634 00 0 35343 SXA DUPRE,0 SET NO BUFFER 4I537900| 35450 0774 00 4 00000 CLOSX AXT **,4 4I538000| 35451 0020 00 4 00001 TRA 1,4 EXIT 4I538100| 35452 5 77777 7 77777 FVEWD FVE -1,7,-1 CLOSE TYPE 4I538300| 35453 1 77777 7 77777 ONEWD PON -1,7,-1 MASKS 4I538400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 118 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 * GENERATE NEXT ITEM FROM MACRO SKELETON. 4I538600| | * THE FOLLOWING COLUMN DEFINITIONS ARE FOR CONVENIENCE $4$4I538800| * IN READING THE CODE. HOWEVER, THOSE MARKED (*) CAN $4$4I538900| * BE CHANGED WITHOUT AFFECTING CORRECT OPERATION $4$4I539000 * PROVIDED COLUMN ORDERING IS NOT REVERSED $4$4I539100| | 00005 COL.6 SET 5 LAST COLUMN LOC FIELD $4$4I539300| 00006 COL.7 SET 6 SEPARATOR COLUMN $4$4I539400| 00007 COL.8 SET 7 FIRST COLUMN OPN $4$4I539500 00013 COL.12 SET 11 EARLIEST GENERATED ETC VAR FIELD (6)4I539700| 00110 COL.72 SET 72 END OF CARD (*) $4$4I539900| | 35454 0520 00 0 36241 IMACI ZET MACETC CREATE -ETC- 4I540100| 35455 0020 00 0 36166 TRA IMC.30 CARD IF NEEDED 4I540200 | 35456 4500 00 0 36245 CAL SWIRPC CHECK FOR INTERRUPTED (6)4I540220| 35457 0600 00 0 36245 STZ SWIRPC IRP (6)4I540230| 0BINARY CARD ID. MAPJ0200| 35460 4100 00 0 35673 TNZ IMC.51 (6)4I540240 | 35461 0774 00 1 00006 AXT 6,1 INITIALE 4I540300| 35462 4774 00 4 36257 AXC IMBGE,4 IMAGE STORE, 4I540400| 35463 0634 00 0 36153 ZSA IMC.26 COLUMN COUNT (6)4I540500| 35464 4534 00 2 36217 IMC.1 LXD MCCTX,2 PICK UP REMAINDER 4I541300| 35465 0560 00 0 36220 LDQ MCRES COUNT, RESIDUE, 4I541400| 35466 4754 00 0 00000 IMC.11 ZAC (6)4I541500| 35467 4763 00 0 00006 LGL 6 AND PLACE NEXT 4I541600| 35470 2 00001 2 35472 TIX *+2,2,1 TWO BCD CHARACTERS 4I541700 35471 1 35471 2 36207 TXI MCFCH,2,* IN ACCUM 4I541800| 35472 0767 00 0 00014 ALS 12 DECR AND ADDRESS. 4I541900| 35473 4763 00 0 00006 LGL 6 4I542000| 35474 2 00001 2 35476 TIX *+2,2,1 4I542100| 35475 1 35475 2 36207 TXI MCFCH,2,* 4I542200 35476 4600 00 0 36220 STQ MCRES SAVE REMAINDER 4I542300| 35477 4634 00 2 36217 SXD MCCTX,2 4I542400| 35500 0601 00 0 36241 STO MACETC 4I542500| 35501 4734 00 2 00000 IMC.12 PDX 0,2 4I542600| 35502 2 00074 2 35506 TIX IMC.14,2,60 IF NOT 75,76,OR 4I542700 35503 0074 00 4 25623 TSX ERPR,4 77, 'MACRO GENERATION 4I542800| 35504 0 00000 4 00061 PZE MSS034,NONONO SYNCHRONIZATION FAILURE' $4$4I542900| 35505 0020 00 0 35374 TRA CLRDUP EXIT MACRO NEST (6)4I543000| | 0BINARY CARD ID. MAPJ0201 35506 0522 00 2 35512 IMC.14 XEC *+4,2 BRANCH TO 4I543300| 35507 0020 00 0 35626 TRA IMC.9 PROCESS BY 4I543400| 35510 0020 00 0 35602 TRA IMC.8 TYPE 4I543500| 35511 0020 00 0 35512 TRA IMC.2 4I543600| TYPE IS SINGLE CHARACTER (75) 4I543800| 35512 0734 00 2 00000 IMC.2 PAX 0,2 TEST FOR SPECIAL 4I543900| 35513 2 00074 2 35530 TIX IMC.5,2,60 CHARACTER 4I544000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 119 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ 0 35514 4765 00 0 00006 LGR 6 IF NOT CONTROL SEQUENCE, (6)4I544100| 35515 0500 00 0 21717 IMC.21 CLA 1DECR TEST FOR 4I544200| 35516 0074 00 2 36151 TSX IMC.25,2 CARD OVERFLOW, 4I544300| 35517 0100 00 0 35546 TZE IMC.6 AND END CARD IF SO $4$4I544400| 35520 4500 00 4 00000 CAL 0,4 OTHERWISE, PLACE CHARACTER $4$4I544500 35521 4763 00 0 00006 IMC.3 LGL 6 INTO STRING 4I544600| 35522 2 00001 1 35526 TIX *+4,1,1 COUNT, AND 4I544700| 35523 0602 00 4 00000 IMC.4 SLW 0,4 BUMP TO NEXT 4I544800| 35524 1 77777 4 35525 TXI *+1,4,-1 IF NECESSARY 4I544900| 35525 1 00005 1 35526 TXI *+1,1,5 4I545000 35526 0602 00 4 00000 SLW 0,4 STORE AND BACK 4I545100| 35527 0020 00 0 35464 TRA IMC.1 FOR NEXT 4I545200| | 35530 0600 00 0 36241 IMC.5 STZ MACETC 4I545400| 35531 0522 00 2 35535 XEC *+4,2 BRANCH FOR SPECIAL 4I545500 35532 0020 00 0 35560 TRA IMC.7 TYPES 4I545600| 35533 0020 00 0 35546 TRA IMC.6 4I545700| 0BINARY CARD ID. MAPJ0202| 35534 0020 00 0 35535 TRA *+1 4I545800| FILL TO OPERATION FIELD (6)4I546000| 35535 0560 00 0 36253 LDQ BLANKS (6)4I546100| 35536 0522 00 0 36153 XEC IMC.26 LOCATION FIELD IF $4$4I546200| 35537 3 00006 2 35464 TXH IMC.1,2,COL.7 AT OR BEFORE COLUMN 7 (6)4I546300| 35540 3 00005 2 35515 TXH IMC.21,2,COL.6 ONLY ONE IF COLUMN 7 (6)4I546400 35541 4500 00 4 00000 CAL 0,4 FILL BLANKS 4I547400| 35542 0522 00 1 44665 XEC PLEFT,1 THROUGH COL 6 4I547500| 35543 0774 00 1 00007 AXT COL.8,1 SET COLUMN $4$4I547600| 35544 0634 00 1 36153 SXA IMC.26,1 COUNT AS 7 4I547700| 35545 1 77771 1 35523 TXI IMC.4,1,-COL.8 AND ONE BLANK FOR COL 7 $4$4I547800 | END OF CARD 4I548000| 35546 4500 00 4 00000 IMC.6 CAL 0,4 FILL REMAINDER 4I548100| 35547 0560 00 0 36253 LDQ BLANKS OF CARD WITH 4I548200| 35550 0522 00 1 44665 XEC PLEFT,1 BLANKS 4I548300 35551 0602 00 4 00000 SLW 0,4 4I548400| 35552 1 36256 4 35553 TXI *+1,4,IMBGE-1 COMPUTE NUMBER 4I548500| 35553 0634 00 4 35554 SXA *+1,4 OF WORDS 4I548600| 35554 4774 00 4 00000 AXC **,4 IN CARD 4I548700| 35555 4634 00 4 36250 SXD IMBWD,4 4I548800 35556 0500 00 0 36250 CLA IMBWD SET LOC,,COUNT 4I548900| 35557 0020 00 0 35217 TRA IRD 4I549000| | END OF MACRO 4I549200| 35560 0520 00 0 45172 IMC.7 ZET MACISW IS THIS MACRO CALL LOOKAHEAD (6)4I549300 35561 0020 00 0 35244 TRA IRE YES, FORCE NON-ETC RETURN (6)4I549400| | 0BINARY CARD ID. MAPJ0203| 35562 4520 00 0 30271 NZT SWGPM CLEAR GOTO IF PERMITTED (6)4I549420| 35563 0600 00 0 30266 STZ SWGOTO $4$4I549500 35564 0535 00 2 36235 LAC SWMACI,2 RESET PARAMETER 4I549600| 35565 0634 00 2 45324 SXA XPLH,2 STORE AND 4I549700| 35566 0500 00 2 00000 CLA 0,2 PUSH DOWN 4I549800| 35567 0621 00 0 36235 STA SWMACI LIST POSITION 4I549900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 120 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 35570 0402 00 0 21706 SUB L(2) SETUP NEW- 4I550000| 35571 0621 00 0 35631 STA IMC.10 PARAMETER FETCH 4I550100| 35572 4500 00 2 77777 CAL -1,2 (6)4I550300| 35573 0602 00 0 36220 SLW MCRES REMAINDER 4I550400 35574 0500 00 2 77776 CLA -2,2 (6)4I550500| 35575 0601 00 0 36217 STO MCCTX MACRO FETCH 4I550700| 35576 4520 00 0 36235 NZT SWMACI RESET PARAM EXPRESSION 4I550800| 35577 4634 00 0 45306 ZSD XPCCT TABLE COUNT IF LAST (6)4I550900| 35600 0074 00 4 43440 TSX UPSRCE,4 FIND NEW 4I551100 35601 0020 00 0 35200 TRA IRED RETURN TO START OVER 4I551500| | BCD, BLANKS, IRP, OR CREATE (6)4I551700| 35602 0734 00 2 00000 IMC.8 PAX 0,2 CHECK COUNT- 4I551800| 35603 2 00075 2 35657 TIX IMC.40,2,61 IF NOT IRP TYPE, 4I551900 35604 2 00074 2 36126 TIX IMC.60,2,60 OR BLANKS TO FILL, (6)4I551910| 35605 0767 00 0 00022 ALS 18 POSITION COUNT 4I552000| 35606 0074 00 2 36151 TSX IMC.25,2 TEST FOR CARD OVERFLOW 4I552100| 35607 0774 00 2 35613 AXT *+4,2 SET RETURN 4I552200| 0BINARY CARD ID. MAPJ0204 35610 0634 00 2 44625 SXA BSTFC,2 FROM PLACEMENT 4I552300| 35611 4534 00 2 36217 LXD MCCTX,2 MQ COUNT 4I552400| 35612 0020 00 0 44622 TRA BSTNG PLACE 4I552500| 35613 0 00000 0 36207 PZE MCFCH 4I552600| 35614 0534 00 2 36777 LXA BSTCT,2 IF LAST WAS (6)4I552800| 35615 3 00000 2 35617 TXH *+2,2,0 EXHAUSTED, FETCH $4$4I553300| 35616 1 35617 2 36207 TXI MCFCH,2,*+1 NEXT WORD $4$4I553400| 35617 4520 00 0 36246 NZT OFLOCT CONTINUE IF $4$4I553500| 35620 0020 00 0 35466 TRA IMC.11 NO OVERFLOW $4$4I553600 35621 4600 00 0 36220 STQ MCRES ELSE, SAVE $4$4I553700| 35622 4634 00 2 36217 SXD MCCTX,2 CURRENT $4$4I553800| 35623 4534 00 2 36246 IMC.85 LXD OFLOCT,2 POSITION, (6)4I553900| 35624 0634 00 2 36241 SXA MACETC,2 SET NEW COUNT $4$4I554000| 35625 0020 00 0 35546 TRA IMC.6 AND END CARD $4$4I554100 | MACRO PARAMETER 4I554300| 35626 0734 00 2 00000 IMC.9 PAX 0,2 OBTAIN LOCATION AND 4I554400| 35627 7 00000 2 36204 TXL MACTRA,2,0 TEST FOR 77-00 CONDITION 4I554500| 35630 3 00100 2 35647 TXH IMC.17,2,64 TEST FOR PREVIOUS OVERFLOW $4$4I554600 35631 0500 00 2 00000 IMC.10 CLA **,2 FETCH PARAM $4$4I554700| 35632 0621 00 0 36224 STA BCFCH SET LOCATION $4$4I554800| 35633 0074 00 2 36151 IMC.13 TSX IMC.25,2 TEST FOR OVERFLOW $4$4I554900| 35634 4625 00 0 44625 STL BSTFC PLACE ALLOWABLE $4$4I555000| 35635 1 02455 2 36224 IMC.15 TXI BCFCH,2,BSTNG+IMC.13 CHARACTERS $4$4I555100 | 0BINARY CARD ID. MAPJ0205| 35636 4520 00 0 36246 NZT OFLOCT CONTINUE IF $4$4I555300| 35637 0020 00 0 35464 TRA IMC.1 NO OVERFLOW $4$4I555400| 35640 0500 00 0 36224 CLA BCFCH SAVE FETCH $4$4I555500 35641 0621 00 0 36246 STA OFLOCT LOCATION, $4$4I555600| 35642 4600 00 0 36242 STQ MCRESS REMAINDER CHARACTERS $4$4I555700| 35643 4534 00 2 44630 LXD BST.1,2 SAVE COUNT OF $4$4I555800| 35644 0634 00 2 35655 SXA IMC.18,2 MQ USED $4$4I555900| 35645 4625 00 0 36241 STL MACETC SET PROCESS $4$4I556000 1 IBMAPV IBMAPJ 12/01/64 PAGE 121 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 35646 0020 00 0 35546 TRA IMC.6 AND GO TO END CARD $4$4I556100| | RETURN HERE TO PROCESS OVERFLOW $4$4I556300 35647 0500 00 0 36246 IMC.17 CLA OFLOCT RESTORE $4$4I556400| 35650 0621 00 0 36224 STA BCFCH FETCH LOCATION $4$4I556500| 35651 0074 00 2 36151 TSX IMC.25,2 TEST FOR OVERFLOW $4$4I556600| 35652 0560 00 0 36242 LDQ MCRESS PICK UP REMAINDER $4$4I556700| 35653 0774 00 2 35635 AXT IMC.15,2 SET CONCATENATOR $4$4I556800 35654 0634 00 2 44625 SXA BSTFC,2 FOR FETCH $4$4I556900| 35655 4774 00 2 00000 IMC.18 AXC **,2 PICK UP COUNT $4$4I557000| 35656 1 00006 2 44622 TXI BSTNG,2,6 AND GO TO PLACE $4$4I557100| | IRP TYPE 4I557300 35657 0520 00 0 45172 IMC.40 ZET MACISW IS THIS CALL LOOKAHEAD (6)4I557400| 35660 0020 00 0 35244 TRA IRE YES, FORCE NON-ETC RETURN (6)4I557500| 35661 0600 00 0 36241 STZ MACETC DON'T LEAVE SPOOR (6)4I557600| 35662 0634 00 2 35675 SXA IMC.52,2 (6)4I557700| 35663 0500 60 0 36235 CLA* SWMACI SAVE CURRENT 4I557800 0BINARY CARD ID. MAPJ0206| 35664 0622 00 0 21463 STD OPER+1 PUSH DOWN POSITION 4I557900| 35665 4534 00 2 36217 LXD MCCTX,2 4I558000| 35666 4763 00 0 00006 LGL 6 FETCH NEXT 4I558100| 35667 2 00001 2 35671 TIX *+2,2,1 CHARACTER 4I558200 35670 1 35670 2 36207 TXI MCFCH,2,* AS PARAMETER 4I558300| 35671 4634 00 2 36217 SXD MCCTX,2 4I558400| 35672 4600 00 0 36220 STQ MCRES 4I558500| | 35673 0520 00 0 36244 IMC.51 ZET SCETC IF THIS IS SCAN LOOKAHEAD, (6)4I558520 35674 0020 00 0 36121 TRA IMC.57 DON'T PROCESS IRP OR CREATE YET (6)4I558530| 35675 0774 00 2 00000 IMC.52 AXT **,2 DON'T CREATE SYMBOL IF (6)4I558540| 35676 0520 00 0 30266 ZET SWGOTO IN RANGE OF (6)4I558550| 35677 3 00001 2 35456 TXH IMACI+2,2,1 A -GOTO- (6)4I558560| 35700 4520 00 0 30270 NZT SWGPI IF NOT PROHIBITED, (6)4I558570 35701 0600 00 0 30266 STZ SWGOTO CLEAR GOTO AT IRP BEGIN OR END (6)4I558580| 35702 4320 00 0 21727 ANA MSKLO 4I558600| 35703 0100 00 0 36001 TZE IMC.44 EXIT FOR END IRP (6)4I558610| 35704 4535 00 4 21463 LDC OPER+1,4 PICK UP POSITION 4I558700| 35705 0361 00 0 21706 ACL L(2) OBTAIN ADDRESS OF (6)4I558800 35706 4400 00 0 36235 SBM SWMACI PARAMETER (6)4I558900| 35707 3 00001 2 36111 TXH IMC.54,2,1 IF NOT PROCESSING A -CREATE-, (6)4I558910| 35710 0602 00 4 00000 SLW 0,4 STORE IT (WITHOUT SIGN) (6)4I559000| 35711 0500 00 0 45306 CLA XPCCT STORE CURRENT EXPANSION (6)4I559100| 0BINARY CARD ID. MAPJ0207 35712 0622 00 4 00000 STD 0,4 PARAMETER POINTER (6)4I559200| 35713 0500 60 4 00000 CLA* 0,4 PICK UP PARAMETER 4I559300| 35714 4734 00 2 00000 PDX 0,2 END SEQUENCE 4I559400| 35715 7 00000 2 36036 TXL IMC.66,2,0 IF NO CHARACTERS 4I559500| 35716 0601 00 4 77777 STO -1,4 SAVE PARAM 4I559600 35717 0560 00 0 36217 LDQ MCCTX SAVE 4I559700| 35720 4600 00 4 77776 STQ -2,4 CURRENT 4I559800| 35721 0560 00 0 36220 LDQ MCRES POSITION 4I559900| 35722 4600 00 4 77775 STQ -3,4 4I560000| 35723 1 00004 4 35724 TXI *+1,4,4 SET PARAMETER 4I560100 35724 0634 00 4 45324 SXA XPLH,4 STORE 4I560200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 122 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 35725 0634 00 4 21463 SXA OPER+1,4 4I560300| 35726 0621 00 0 36701 STA SCMQL SET SCAN 4I560400 35727 4734 00 1 00000 PDX 0,1 FETCH 4I560500| 35730 6 00006 1 35733 TNX *+3,1,6 AND END 4I560600| 35731 0361 00 0 21705 ACL L(1) TEST 4I560700| 35732 0020 00 0 35730 TRA *-2 4I560800| 35733 0767 00 0 00022 ALS 18 4I560900 35734 0622 00 0 36702 STD SCCHK 4I561000| 35735 0774 00 1 00007 AXT 7,1 4I561200| 35736 0634 00 1 36671 SXA RESCT,1 SET RESIDUE 4I561300| 35737 0522 00 0 36701 XEC SCMQL COUNT AND 4I561400| 0BINARY CARD ID. MAPJ0208 35740 4600 00 0 36755 STQ RESDU RESIDUE 4I561500| 35741 4625 00 0 36243 STL SWIRP SET SWITCH FOR NO SCAN READ (6)4I561510| 35742 4625 00 0 35166 STL SWCVFE BUT CONTINUE ON BLANK IN PARENS (6)4I561520| | SCAN FOR SUBPARAMETERS 4I561700 35743 0074 00 4 36657 IMC.41 TSX SSCAN,4 4I561800| 35744 4054 00 001020 LFT CMB+LPB STOP AT , OR LPAR 4I561900| 35745 4056 00 000020 LNT LPB 4I562000| 35746 0020 00 0 35764 TRA IMC.43 4I562100| 35747 4734 00 2 00000 IMC.42 PDX 0,2 IF LPAR, DO NOT PLACE 4I562300| 35750 7 00000 2 35752 TXL *+2,2,0 PREVIOUS FIELD 4I562400| 35751 0074 00 4 45250 TSX XPLCE,4 IF NO LENGTH 4I562500| 35752 0074 00 4 45176 TSX RSCAN,4 SCAN FOR RIGHT PAREN 4I562600| 35753 4056 00 000040 LNT RPB 4I562700 35754 0020 00 0 35764 TRA IMC.43 ORDINARY IF NO RPAR 4I562800| 35755 0074 00 4 45250 TSX XPLCE,4 PLACE SUBPARAM 4I562900| 35756 0074 00 4 36657 TSX SSCAN,4 SCAN FOR 4I563000| 35757 4054 00 001020 LFT CMB+LPB NEXT 4I563100| 35760 4054 00 000020 LFT LPB 4I563200 35761 0020 00 0 35747 TRA IMC.42 HANDLE LEFT PAREN 4I563300| 35762 4734 00 2 00000 PDX 0,2 SKIP PLACE 4I563400| 35763 7 00000 2 35765 TXL *+2,2,0 IF ZERO FIELD 4I563500| | 35764 0074 00 4 45250 IMC.43 TSX XPLCE,4 PLACE SUBPAR 4I563700 35765 3 00000 1 35743 TXH IMC.41,1,0 RETURN IF NO BLANK 4I563800| 0BINARY CARD ID. MAPJ0209| 35766 0600 00 0 36243 STZ SWIRP RESET IRP SCAN AND VARIABLE (6)4I563810| 35767 4625 00 0 35166 STL SWCVFE FIELD SWITCHES (6)4I563820| 35770 0754 00 0 00000 PXA 0,0 PLACE 4I563900 35771 0074 00 4 45250 TSX XPLCE,4 END MARK 4I564000| 35772 0522 00 0 45324 XEC XPLH 4I564100| 35773 0500 00 0 21463 CLA OPER+1 PLACE LAST WORD- 4I564200| 35774 0601 00 4 00000 STO 0,4 PZE -CUR.P.LOC,,ORIG.P.LOC 4I564300| 35775 0535 00 4 45324 LAC XPLH,4 4I564400 35776 1 77777 4 35777 TXI *+1,4,-1 RESET 4I564500| 35777 4754 00 4 00000 PXD 0,4 PARAMETER 4I564600| 36000 0622 60 0 36235 STD* SWMACI STORE FOR PUSH DOWN 4I564700| | PROCESS WITH NEXT SUBPAR 4I564900 36001 0500 60 0 36235 IMC.44 CLA* SWMACI 4I565000| 36002 4737 00 4 00000 PDC 0,4 4I565100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 123 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 36003 0500 00 4 00001 CLA 1,4 PICK UP KEY WORD 4I565200 36004 4737 00 2 00000 PDC 0,2 BASE LOCATION 4I565300| 36005 0734 00 1 00000 PAX 0,1 CURRENT NUMBER 4I565400| 36006 0560 00 2 77776 LDQ -2,2 4I565500| 36007 4600 00 0 36217 STQ MCCTX RESTORE TO 4I565600| 36010 0560 00 2 77775 LDQ -3,2 ORIGINAL 4I565700 36011 4600 00 0 36220 STQ MCRES POSITION 4I565800| 36012 1 00001 1 36013 TXI *+1,1,1 4I565900| 36013 0754 00 1 00000 PXA 0,1 BUMP TO NEXT 4I566000| 0BINARY CARD ID. MAPJ0210| 36014 0621 00 4 00001 STA 1,4 SUBPARAMETER 4I566100 36015 0560 00 1 00001 LDQ 1,1 4I566200| 36016 0500 00 2 00000 CLA 0,2 REPLACE SUBPAR 4I566300| 36017 4734 00 1 00000 PDX 0,1 BY CURRENT 4I566400| 36020 4600 60 2 00000 STQ* 0,2 ONE 4I566500| 36021 0131 00 0 00000 XCA 4I566600 36022 4520 00 0 30272 NZT SWENDI IF NOT SKIPPING, (6)4I566610| 36023 4100 00 0 35456 TNZ IMACI+2 RETURN FOR NEXT IF NOT END 4I566700| | END OF IRP SEQUENCE 4I566900| 36024 0500 60 0 36235 IMC.45 CLA* SWMACI 4I567000 36025 4737 00 4 00000 PDC 0,4 PICK UP KEY WORD 4I567100| 36026 0500 00 4 00001 CLA 1,4 4I567200| 36027 0622 60 0 36235 STD* SWMACI RESTORE ORIGINAL PDLOC 4I567300| 36030 4737 00 2 00000 PDC 0,2 4I567400| 36031 0500 00 2 00000 CLA 0,2 4I567500 36032 0622 00 0 45306 STD XPCCT RESTORE EXPANSION TABLE COUNT (6)4I567600| 36033 0500 00 2 77777 CLA -1,2 ORIGINAL 4I567700| 36034 0601 60 2 00000 STO* 0,2 PARAMETER 4I567800| 36035 0634 00 2 45324 SXA XPLH,2 RESET PARAMETER STORE 4I567900| 36036 4534 00 2 36217 IMC.66 LXD MCCTX,2 PICK UP 4I568000 36037 0560 00 0 36220 LDQ MCRES COUNTS 4I568100| | SKIP TO END 4I568300| 36040 0754 00 0 00000 IMC.46 PXA 0,0 4I568400| 36041 4763 00 0 00006 LGL 6 FIND 4I568500 0BINARY CARD ID. MAPJ0211| 36042 2 00001 2 36044 TIX *+2,2,1 NEXT CHARACTER 4I568600| 36043 1 36043 2 36207 TXI MCFCH,2,* 4I568700| 36044 0734 00 1 00000 PAX 0,1 4I568800| 36045 6 00074 1 35503 TNX IMC.12+2,1,60 (6)4I568900 | 36046 0522 00 1 36052 XEC *+4,1 BRANCH TO PROCESS 4I569200| 36047 0020 00 0 36054 TRA IMC.47 77 - SKIP ONE 4I569300| 36050 0020 00 0 36057 TRA IMC.48 76 - SPECIAL 4I569400| 36051 0020 00 0 36052 TRA IMC.67 75 - CHECK END OF MACRO (6)4I569500 | 36052 0520 00 0 45173 IMC.67 ZET SWAPND IF NOT PROCESSING (6)4I569610| 36053 0020 00 0 43666 TRA MCRL APPEND, (6)4I569620| | 36054 4763 00 0 00006 IMC.47 LGL 6 SKIP CHARACTER 4I569700 36055 2 00001 2 36040 TIX IMC.46,2,1 AND FETCH 4I569800| 36056 1 36037 2 36207 TXI MCFCH,2,IMC.46-1 NEXT 4I569900| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 124 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ 0 36057 0754 00 0 00000 IMC.48 PXA 0,0 4I570100| 36060 4763 00 0 00006 LGL 6 4I570200| 36061 0734 00 1 00000 PAX 0,1 PICK UP 4I570300| 36062 2 00001 2 36064 TIX *+2,2,1 AND COUNT 4I570400| 36063 1 36063 2 36207 TXI MCFCH,2,* NEXT CHARACTER 4I570500 36064 3 00074 1 36077 TXH IMC.55,1,60 EXIT IF CONTROL SEQUENCE (6)4I570600| 36065 4634 00 2 36217 SXD MCCTX,2 OTHERWISE, 4I570800| 36066 0774 00 4 36073 AXT IMC.49,4 USE STRING ROUTINE 4I570900| 36067 0634 00 4 44625 SXA BSTFC,4 TO SKIP N CHARACTERS. 4I571000| 0BINARY CARD ID. MAPJ0212 36070 0774 00 1 00006 AXT 6,1 4I571100| 36071 0767 00 0 00022 ALS 18 4I571200| 36072 1 67455 4 44622 TXI BSTNG,4,-2B-IMC.49 4I571300| 36073 0 00000 0 36207 IMC.49 PZE MCFCH 4I571400| 36074 0534 00 2 36777 LXA BSTCT,2 (6)4I571500 36075 3 00000 2 36040 TXH IMC.46,2,0 GO TO CONTINUE 4I571900| 36076 1 36040 2 36207 TXI MCFCH,2,IMC.46 SKIPPING 4I572000| | 36077 4754 00 0 00000 IMC.55 ZAC GET NEXT (6)4I572020| 36100 4763 00 0 00006 LGL 6 CHARACTER (6)4I572030 36101 2 00001 2 36103 TIX *+2,2,1 AND CHECK (6)4I572040| 36102 1 36102 2 36207 TXI MCFCH,2,* FOR END IRP (6)4I572050| 36103 4100 00 0 36040 TNZ IMC.46 (6)4I572060| | END OF SKIP 4I572200 36104 4634 00 2 36217 IMC.50 SXD MCCTX,2 SAVE NEW POSITION 4I572300| 36105 4600 00 0 36220 STQ MCRES AND GO AGAIN 4I572400| 36106 0520 00 0 45173 ZET SWAPND IF PROCESSING APPEND, (6)4I572410| 36107 0020 00 0 36040 TRA IMC.46 CONTINUE SEARCH TO END (6)4I572420| 36110 0020 00 0 35456 TRA IMACI+2 4I572500 | CREATE SYMBOL (6)4I572520| 36111 0534 00 2 45324 IMC.54 LXA XPLH,2 SAVE PUSHDOWN POINTER (6)4I572530| 36112 0737 00 4 00000 PAC ,4 REPLACE WITH ADDRESS FOR POINTER (6)4I572540| 36113 0634 00 4 45324 SXA XPLH,4 TO CREATED ARGUMENT (6)4I572550 36114 0074 00 4 37303 TSX DUMMY,4 GET NEXT CREATED (6)4I572560| 36115 0500 00 0 45164 CLA MCC.DM SYMBOL AND PLACE (6)4I572570| 0BINARY CARD ID. MAPJ0213| 36116 0074 00 4 45250 TSX XPLCE,4 IN EXPANSION TABLE (6)4I572580| 36117 0634 00 2 45324 SXA XPLH,2 RESTORE PUSHDOWN TABLE POINTER (6)4I572600 36120 0020 00 0 35456 TRA IMACI+2 (6)4I572610| | 36121 0602 00 0 36245 IMC.57 SLW SWIRPC SAVE IRP PARAM NUMBER (6)4I572630| 36122 4500 00 0 21443 CAL BLINK CORRECT LINE (6)4I572640| 36123 0402 00 0 21705 SUB L(1) NUMBER FOR (6)4I572650 36124 0602 00 0 21443 SLW BLINK UNEXPANDED IMAGE (6)4I572660| 36125 0020 00 0 35244 TRA IRE AND FORCE NON-ETC RETURN (6)4I572680| | BLANKS TO FILL IN STRING (6)4I572700| 36126 4534 00 2 36217 IMC.60 LXD MCCTX,2 FETCH (6)4I572800 36127 4754 00 0 00000 ZAC NEXT (6)4I572900| 36130 4763 00 0 00006 LGL 6 CHARACTER (6)4I573000| 36131 2 00001 2 36133 TIX *+2,2,1 AS (6)4I573010| 36132 1 36132 2 36207 TXI MCFCH,2,* COUNT (6)4I573020| 1 IBMAPV IBMAPJ 12/01/64 PAGE 125 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 36133 4634 00 2 36217 SXD MCCTX,2 UPDATE SKELETON (6)4I573030| 36134 4600 00 0 36220 STQ MCRES POSITION (6)4I573040| | RE-ENTRY TO PROCESS BLANK OVERFLOW (6)4I573100 36135 0767 00 0 00022 IMC.62 ALS 18 POSITION COUNT (6)4I573110| 36136 0074 00 2 36151 TSX IMC.25,2 CHECK FOR CARD OVERFLOW (6)4I573200| 36137 0560 00 0 36253 LDQ BLANKS PREPARE FOR STUFF (6)4I573300| 36140 0774 00 2 36144 AXT *+4,2 STUFF SPECIFIED (6)4I573310| 36141 0634 00 2 44625 SXA BSTFC,2 NUMBER (6)4I573320 36142 0774 00 2 00006 AXT 6,2 (6)4I573330| 36143 0020 00 0 44622 TRA BSTNG (6)4I573400| 0BINARY CARD ID. MAPJ0214| 36144 0 00000 0 36221 PZE BLFCH (6)4I573410| 36145 4520 00 0 36246 NZT OFLOCT IS THERE OVERFLOW (6)4I573430| 36146 0020 00 0 35464 TRA IMC.1 NO, CONTINUE (6)4I573440| 36147 0600 00 0 36241 STZ MACETC YES, SET INDICATOR (6)4I573450| 36150 0020 00 0 35623 TRA IMC.85 AND END CARD (6)4I573460| CHECK CARD COLUMN COUNT 4I573600| 36151 0634 00 2 36164 IMC.25 SXA IMC.28,2 SAVE RETURN 4I573700| 36152 0600 00 0 36246 STZ OFLOCT CLEAR OVERFLOW $4$4I573800| 36153 0774 00 2 00000 IMC.26 AXT **,2 INCREASE $4$4I573900| 36154 0622 00 0 36155 STD *+1 COUNT BY $4$4I574000 36155 1 00000 2 36156 TXI *+1,2,** LENGTH $4$4I574100| 36156 0634 00 2 36153 SXA IMC.26,2 OF FIELD $4$4I574200| 36157 7 00110 2 36164 TXL IMC.28,2,COL.72 EXIT IF WITHIN CARD $4$4I574300| 36160 1 77670 2 36161 TXI *+1,2,-COL.72 ELSE, SET $4$4I574400| 36161 4634 00 2 36246 SXD OFLOCT,2 OVERFLOW COUNT $4$4I574500 36162 4320 00 0 36236 ANA IDMSK REDUCE FIELD $4$4I574600| 36163 0402 00 0 36246 SUB OFLOCT SIZE $4$4I574700| 36164 0774 00 2 00000 IMC.28 AXT **,2 $4$4I574800| 36165 0020 00 2 00001 TRA 1,2 EXIT $4$4I574900| -ETC- CARD TO BE CREATED 4I575100| 36166 4500 00 0 36253 IMC.30 CAL BLANKS INITIALIZE 4I575200| 36167 0602 00 0 36257 SLW IMBGE CARD IMAGE 4I575300| 36170 4500 00 0 36247 CAL LETC AS ETC. 4I575400| 36171 0602 00 0 36260 SLW IMBGE+1 4I575500 0BINARY CARD ID. MAPJ0215| 36172 0500 00 0 36241 CLA MACETC SUSPENDED INTERPRETATION 4I575600| 36173 0560 00 0 36220 LDQ MCRES 4I575700| 36174 4774 00 4 36260 AXC IMBGE+1,4 SET POSITION 4I575800| 36175 0774 00 1 00013 AXT COL.12,1 AND COLUMN COUNT $4$4I575900 36176 0634 00 1 36153 SXA IMC.26,1 4I576000| 36177 0774 00 1 00001 AXT 12-COL.12,1 SET REMAINING CHARACTER COUNT (6)4I576100| 36200 4734 00 2 00000 PDX ,2 INSERTION IN PROGRESS (6)4I576110| 36201 2 00074 2 35506 TIX IMC.14,2,60 (6)4I576120| 36202 7 00000 2 36135 TXL IMC.62,2,0 (6)4I576130 36203 0020 00 0 35503 TRA IMC.12+2 SYNCHRONIZATION FAILURE (6)4I576140| | * TRANSFER TO ANOTHER MACRO SKELETON TO CONTINUE 4I576300| * THE FORM IS 77000YYYYY. IT IS ALSO EXPECTED (6)4I576400| * TO BE ON A WORD BOUNDARY AS PLACED BY OPSYN. (6)4I576500 1 IBMAPV IBMAPJ 12/01/64 PAGE 126 | CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0 * 4I576900| 36204 4763 00 0 00022 MACTRA LGL 18 GET POINTER TO NEW (6)4I577000| 36205 0621 00 0 36217 STA MCCTX SKELETON (6)4I577100 36206 0774 00 2 35466 AXT IMC.11,2 SET RETURN FROM FETCH (6)4I577200| | * FETCH NEXT ITEM FROM MACRO SKELETON 4I579400| | 36207 0634 00 2 36216 MCFCH SXA MCFCX,2 SAVE RETURN 4I579600 36210 0560 60 0 36217 LDQ* MCCTX NEXT ITEM 4I579700| 36211 0534 00 2 36217 LXA MCCTX,2 INCREASE FETCH 4I579800| 36212 1 00001 2 36213 TXI *+1,2,1 LOCATION 4I579900| 36213 0634 00 2 36217 SXA MCCTX,2 4I580000| 36214 0774 00 2 00006 AXT 6,2 SET NEW COUNT 4I580100 36215 4634 00 2 36217 SXD MCCTX,2 4I580200| 36216 0020 00 0 00000 MCFCX TRA ** RETURN 4I580300| | (BITS 1+2 OF MCCTX ARE 'PREVIOUS' PCC, PMC SETTINGS) (6)4I580410| 36217 0 00000 0 00000 MCCTX *** **,,** NEXT.LOC,,REMAINDER.COUNT (6)4I580500 0BINARY CARD ID. MAPJ0216| 36220 0 00000 0 00000 MCRES PZE ** REMAINDER ITEM 4I580600| | * FETCH BLANKS (6)4I580620| 36221 0634 00 2 36232 BLFCH SXA BCFCX,2 (6)4I580640| 36222 0560 00 0 36253 LDQ BLANKS (6)4I580650| 36223 0020 00 0 36231 TRA BCFCX-1 (6)4I580660| | * FETCH NEXT ITEM FROM ARBITRARY STRING. 4I580800| | 36224 0560 00 0 00000 BCFCH LDQ ** NEXT ITEM 4I581000| 36225 0634 00 2 36232 SXA BCFCX,2 SAVE RETURN 4I581100| 36226 0534 00 2 36224 LXA BCFCH,2 INCREASE FETCH 4I581200 36227 1 00001 2 36230 TXI *+1,2,1 LOCATION 4I581300| 36230 0634 00 2 36224 SXA BCFCH,2 4I581400| 36231 0774 00 2 00006 AXT 6,2 SET NEW COUNT 4I581500| 36232 0020 00 0 00000 BCFCX TRA ** RETURN 4I581600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 127 CARD IMAGE SOURCE PHASE 1 - RECORD IBMAPJ | 0| * CONSTANTS AND STORAGE 4I581800| | 36233 0 00000 0 00000 SWDUPI PZE ,,** DUP RANGE COUNT 4I582000 36234 0 00000 0 00000 DUPISW PZE ** DUP DETAIL SWITCH 4I582100| 36235 0 00000 0 00000 SWMACI PZE ** MACRO POINTER 4I582200| 36236 0 77777 0 77777 IDMSK PZE -1,,-1 MASK FOR GTPRA 4I582300| 36237 0 00000 0 00000 ISUSC PZE **,,** SUSPENDED CARD 4I582400| 36240 0 00000 0 00000 ISUSD PZE ** STORAGE 4I582500 36241 0 00000 0 00000 MACETC PZE 0 SWITCH FOR MACRO -ETC- CREATION 4I582600| 36242 0 00000 0 00000 MCRESS *** REMAINDER CHARS FOR PARAMETER ETC (6)4I582700| 36243 0 00000 0 00000 SWIRP ** IRP SUBARGUMENT SCAN SWITCH (6)4I582800| 36244 0 00000 0 00000 SCETC ** SCAN ETC LOOKAHEAD SWITCH (6)4I582810| 36245 0 00000 0 00000 SWIRPC ** INTERRUPTED IRP PROCESS SWITCH (6)4I582820 0BINARY CARD ID. MAPJ0217| 36246 0 00000 0 00000 OFLOCT PZE **,,** OVERFLOW INDICATOR $4$4I582900| 36247 606025632373 LETC BCI 1, ETC, OP AND TERMINATER FOR GENERATION (6)4I583000| 36250 0 00000 0 36257 IMBWD PZE IMBGE,,** GTPRA SETUP FOR MACRO 4I583100| 36251 0 00000 0 00000 SWEND ** GENERATED END SWITCH (6)4I583200 36252 0 00002 0 36253 ENDOP PZE *+1,,2 DUMMY -END- CARD $5$4I583210| 36253 606060606060 BLANKS BCI 2, *END (6)4I583220| 36255 0 00000 0 00001 ENDP6 1 IOEDIT (6)4I583300| 36256 0 00015 0 00000 ,,13 BACKSPACE REQUEST (6)4I583400| 36257 IMBGE BSS 12 4I583600| 0BINARY CARD ID. MAPJ0218| 36273 606060606060 BCI 1, SPILL WORD FOR STUFF (6)4I583700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 128 | AUXILIARY ROUTINES PHASE 1 - RECORD IBMAPJ 0| * INCREASE SEPARATION COUNT. ENTER VIA 4I583900| * 4I584000| * TSX LOCBP,4 4I584100| * 4I584200 * TO INCREASE BY 1. TO INCREASE BY N, ENTER VIA 4I584300| * 4I584400| * TSX SEPBP,4 4I584500| * 4I584600| * WITH N IN ACCUMULATOR DECREMENT. COUNT LIMIT TESTED TO 4I584700 * PREVENT OVERFLOW. 4I584800| | | 36274 0500 00 0 21717 LOCBP CLA 1DECR SET INCREASE AS 1 4I585000| 36275 0400 00 0 21453 SEPBP ADD LOCC COMPUTE NEW 4I585100 36276 0622 00 0 21453 STD LOCC COUNT 4I585200| 36277 0402 00 0 35152 SEPBA SUB 4095D EXIT IF COUNT 4I585300| 36300 4120 00 4 00001 TMI 1,4 NOT EXCESSIVE 4I585400| 36301 0131 00 0 00000 XCA OTHERWISE, SAVE 4I585500| 36302 0500 00 0 35152 CLA 4095D DIFFERENCE AND 4I585600 36303 0622 00 0 21453 STD LOCC SET FOR 4095 4I585700| 36304 0634 00 4 36314 SXA SEPBX,4 4I585800| 36305 0634 00 2 36315 SXA SEPBX+1,2 4I585900| 36306 0074 00 4 26607 TSX INDUM,4 OBTAIN DUMMY INTERNAL 4I586000| 36307 4500 00 0 30137 CAL 1WD 4I586100 36310 0602 00 2 00000 SLW 0,2 4I586200| 36311 0074 00 4 36320 TSX LCHNE,4 AND PLACE IN CHAIN 4I586300| 36312 0131 00 0 00000 XCA 4I586400| 36313 0622 00 0 21453 STD LOCC RESET COUNT, 4I586500| 36314 0774 00 4 00000 SEPBX AXT **,4 AND EXIT 4I586600 36315 0774 00 2 00000 AXT **,2 4I586700| 36316 0020 00 0 36277 TRA SEPBA 4I586800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 129 | AUXILIARY ROUTINES PHASE 1 - RECORD IBMAPJ | 0 * PLACE NAME IN CURRENT LOCATION COUNTER CHAIN. ENTER VIA 4I587000| * 4I587100| * TSX LCHNE,4 4I587200| * 4I587300| * IF (IR2) = - INT.DICT.LOC. ENTER VIA 4I587400 * 4I587500| * TSX LOCHN,4 4I587600| * 4I587700| * IF INT.DICT.LOC IS IN ACCUMULATOR ADDRESS. 4I587800| | 36317 0737 00 2 00000 LOCHN PAC 0,2 DICT. LOC 4I588000| 36320 0634 00 4 36343 LCHNE SXA LCHX,4 4I588100| 0BINARY CARD ID. MAPJ0219| 36321 4535 00 4 21452 LCHA LDC SLOC,4 CURRENT LOCATION COUNTER 4I588200 36322 0500 00 4 00001 CLA 1,4 OBTAIN LOCATION OF 4I588300| 36323 0621 00 0 36330 STA LCHB LATEST NAME IN CHAIN 4I588400| 36324 0500 00 4 00000 CLA 0,4 OBTAIN LOCATION OF 4I588500| 36325 0621 00 0 36345 STA LCHD FIRST NAME IN CHAIN 4I588600| 36326 0754 00 2 00000 PXA 0,2 COMPUTE LOCATION 4I588700 36327 0402 00 0 21725 SUB MSKTG OF THIS NAME 4I588800| 36330 0621 00 0 00000 LCHB STA ** AND STORE IN PREVIOUS 4I588900| 36331 4520 00 0 36345 NZT LCHD STORE AS FIRST 4I589000| 36332 0621 00 4 00000 STA 0,4 NAME, IF NECESSARY 4I589100| 36333 0520 00 0 36346 ZET SWPSOP STORE THIS LOCATION, 4I589200 36334 0500 00 0 36346 CLA SWPSOP OR BUFFER LOCATION IF 4I589300| 36335 0621 00 4 00001 STA 1,4 PSEUDO-OP, AS LATEST NAME 4I589400| 36336 0737 00 4 00000 PAC 0,4 4I589500| 36337 0500 00 0 21453 CLA LOCC PLACE SEPARATION 4I589600| 36340 4602 00 4 00000 ORS 0,4 COUNT IN NEW NAME 4I589700 36341 0600 00 0 36346 STZ SWPSOP RESET SWITCH 4I589800| 36342 0600 00 0 21453 STZ LOCC RESET COUNT 4I589900| 36343 0774 00 4 00000 LCHX AXT **,4 4I590000| 36344 0020 00 4 00001 TRA 1,4 EXIT 4I590100| 36345 0 00000 0 00000 LCHD PZE ** FIRST NAME INDICATOR 4I590300| 36346 0 00000 0 00000 SWPSOP PZE 0 PSEUDO-OP SWITCH 4I590400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 130 | AUXILIARY ROUTINES PHASE 1 - RECORD IBMAPJ | 0 * LOCATE OPERATION IN DEICTIONARY. ENTER VIA 4I590600| * 4I590700| * TSX OPLOC,4 4I590800| * 4I590900| * WITH BCD CODE IN CELL OPER. RETURN WITH (IR2) = -DICT.LOC, 4I591000 * IF PRESENT, ON A TRA 2,4. RETURN ON A TRA 1,4 IF OPERATION 4I591100| * NOT IN DICTIONARY. 4I591200| | | 0BINARY CARD ID. MAPJ0220 36347 4500 00 0 21462 OPLOC CAL OPER PICK UP OP CODE (6)4I591400| 36350 0634 00 4 36373 OPALT SXA OPLOX,4 SAVE RETURN (6)4I591500| 36351 4520 00 0 37167 NZT SWLOP 4I591600| 36352 0020 00 0 36356 TRA OPLOD IF OPERATION FIELD ERROR, 4I591700| 36353 0074 00 4 25623 TSX ERPR,4 'OPERATION FIELD NOT 4I591800 36354 0 00000 1 00006 PZE MSS006,GO CORRECT' 4I591900| 36355 0600 00 0 37167 STZ SWLOP RESET SWITCH 4I592000| 36356 0074 00 4 26433 OPLOD TSX NTLOCC,4 TRY FOR NAME 4I592100| 36357 0120 00 0 36362 TPL OPLCB 4I592200| 36360 0534 00 4 36373 OPLCA LXA OPLOX,4 NOT THERE 4I592300 36361 0020 00 4 00001 TRA 1,4 EXIT 1,4 4I592400| | EXTERNAL IS THERE 4I592600| 36362 0520 00 0 26502 OPLCB ZET DUPNM CANNOT BE OPN 4I592700| 36363 0020 00 0 26460 TRA NTLBC IF DUPLICATE 4I592800 36364 0634 00 2 36376 SXA OPLCD,2 SAVE NOMINAL POSITION 4I592900| 36365 0074 00 4 26565 OPLCC TSX INTST,4 TEST FOR ACTUAL ENTRY 4I593000| 36366 0131 00 0 00000 XCA POSITION $4$4I593100| 36367 4120 00 0 36371 TMI *+2 OPERATOR BIT $4$4I593200| 36370 4773 00 0 00022 RQL 18 TO MQ SIGN $4$4I593300 36371 7 00000 2 36376 TXL OPLCD,2,0 NOT FOUND IF NOT 4I593400| 36372 0162 00 0 36376 TQP OPLCD ENTERED, OR NOT OPERATION 4I593500| 36373 0774 00 4 00000 OPLOX AXT **,4 4I593600| 36374 0560 00 2 00000 LDQ 0,2 FOUND IT RESTORE $4$4I593700| 0BINARY CARD ID. MAPJ0221 36375 0020 00 4 00002 TRA 2,4 AND EXIT $4$4I593800| | SINGLE WAS NOT OPERATION 4I594000| 36376 0774 00 2 00000 OPLCD AXT **,2 RESET SEARCH WORD AND GO 4I594100| 36377 1 00007 4 26451 TXI NTLBB,4,OPLCC-OPLOD TO TEST BEYOND 4I594200 | | * OBTAIN DICTIONARY ENTRY FOR OPERATION CODE (6)4I594220| 36400 0634 00 4 36405 GTDICT SXA GTDCX,4 (6)4I594230| 36401 4520 00 0 37167 NZT SWLOP EXIT IF FIELD HAS ERROR (6)4I594240 36402 0074 00 4 36347 TSX OPLOC,4 LOCATE DICTIONARY ENTRY (6)4I594250| 36403 0020 00 0 36405 TRA GTDCX IF ANY (6)4I594260| 36404 4500 00 2 00000 CAL 0,2 LOAD IT INTO AC (6)4I594270| 36405 0774 00 4 00000 GTDCX AXT **,4 FOR COMPARISON (6)4I594280| 36406 0020 00 4 00001 TRA 1,4 RETURN (6)4I594290 1 IBMAPV IBMAPJ 12/01/64 PAGE 131 | AUXILIARY ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * PLACE OPERATION IN DICTIONARY. ENTER VIA 4I594400| * 4I594500 * TSX PLNOP,4 4I594600| * 4I594700| * WITH BCD IN CELL OPER. UPON RETURN, (IR2)=-DICT.LOC 4I594800| | 36407 0634 00 4 36412 PLNOP SXA PLNOX,4 SAVE RETURN 4I595000| 36410 0074 00 4 36347 TSX OPLOC,4 LOCATE OPERATION 4I595100| 36411 0020 00 0 36421 TRA PLNOA PLACE IF NOT THERE 4I595200| 36412 0774 00 4 00000 PLNOX AXT **,4 4I595300| 36413 0520 00 0 36436 ZET NMESW IF PRE-PROCESSOR 4I595400 36414 0020 00 4 00001 TRA 1,4 EXIT 4I595500| 36415 0074 00 4 25623 TSX ERPR,4 YES, ISSUE MESSAGE 4I595600| 36416 0 00000 1 00202 PZE FMS010,GO 4I595700| 36417 0522 00 0 36412 PLNOZ XEC PLNOX 4I595800| 36420 0020 00 4 00001 TRA 1,4 EXIT 4I595900 | PLACE IN DICT 4I596100| 36421 0560 00 0 26477 PLNOA LDQ NAMEX PLACE EXTERNAL 4I596200| 36422 4600 60 0 26441 STQ* NOMNL 4I596300| 0BINARY CARD ID. MAPJ0222 36423 4320 00 0 21723 ANA MSKAD CLEAR TRASH AND 4I596400| 36424 4765 00 0 00001 LGR 1 SAVE HALF INDICATOR 4I596500| 36425 0737 00 2 00000 PAC 0,2 4I596600| 36426 4500 00 0 36435 CAL PLNOB 4I596700| 36427 4774 00 4 36416 AXC PLNOZ-1,4 SET RETURN 4I596800 36430 0162 00 0 36433 TQP *+3 4I596900| 36431 0630 00 2 23300 STP HASHT-NMCHN/2,2 IF ODD, STORE OPERATION 4I597000| 36432 0020 00 0 26600 TRA INPLD INDICATOR IN PREFIX, 4I597100| 36433 0625 00 2 23300 STT HASHT-NMCHN/2,2 IF EVEN, IN 4I597200| 36434 0020 00 0 26600 TRA INPLD TAG. 4I597300 | 36435 4 00000 4 00000 PLNOB FOR 0,4,0 SIGN BITS. 4I597500| 36436 0 00000 0 00000 NMESW PZE ** PRE PROCESSOR SWITCH $4$4I597600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 132 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ 0| * MQ SCAN ROUTINE. ENTER VIA 4I597800| * 4I597900| * STL QSCNX 4I598000| * TXH TERMINATE.RETURE,,NON.TERMINATE.RETURN 4I598100 * TRA QSCNC 4I598200| * 4I598300| * WITH 4I598400| * 1. ADDRESS OF CELL SCORS CONTAINING LOCATION TO 4I598500| * STORE EXTRACTED SYMBOL 4I598600 * 2. MQ CONTAINING FIELD TO SCAN 4I598700| * 3. (IR2) = NUMBER OF CHARACTERS IN MQ 4I598800| * 4. (IR4) = NUMBER OF CHARACTERS LEFT TO STORE 4I598900| * 5. THE LFT INSTRUCTION IN CELL SCLFT SER TO CLASS 4I599000| * INDICATORS FOR TERMINATION 4I599100 * 4I599200| * TERMINATE.RETURN IS TAKEN IF FIELD TERMINATOR IS SCANNED. 4I599300| * IN THIS CASE, 4I599400| * 4I599500| * 1. THE EXTRACTED SYMBOL IS STORED, LEFT JUSTIFIED, IN 4I599600 * THE GIVEN LOCATION(S), WITH TRAILING BLANKS 4I599700| * 2. THE INDICATORS ARE SET WITH CLASS INDICATION FOR 4I599800| * EACH TYPE OF CHARACTER ENCOUNTERED 4I599900| * 3. IR1 CONTAINS THE CLASS CODE OF THE TERMINATOR 4I600000| * 4. IR2 CONTAINS THE REMAINDER COUNT FOR THE MQ 4I600100 * 4I600200| * NON.TERMINATE.RETURN IS USED WHEN MQ IS EMPTY AND A TERMINATOR 4I600300| * HAS NOT BEEN REACHED. IN THIS CASE, IR1 HAS BEEN DESTROYED. 4I600400| * THE PARTICALLY EXTRACTED SYMBOL HAS TRAILING ZEROS. 4I600500| * 4I600600 * THE ENTRY INSTRUCTION(S) MAY ALSO BE 4I600700| * 4I600800| * TSX QSCNA,1 4I600900| * LFT INDICATORS 4I601000| * PZE L(STORE),,NO.CHARACTERS.LEFT 4I601100 * 4I601200| * WHICH SETS ENTRY CONDITIONS 1,4, AND 5. OR, 4I601300| * 4I601400| * TSX QSCNB,1 4I601500| * PZE L(STORE),,NO.CHARS.LEFT 4I601600 * 4I601700| * WHICH SETS ENTRY CONDITIONS 1 AND 4. 4I601800| | | EQUALS FOR CHARACTER CLASS CODES 4I602000 00000 BLCDE EQU 0 BLANK 4I602100| 00001 NMCDE EQU 1 NUMERIC 4I602200| 00002 DCCDE EQU 2 DECIMAL NUMERIC 4I602300| 00003 ALCDE EQU 3 ALPHABETIC 4I602400| 00004 PDCDE EQU 4 PERIOD 4I602500 00005 LPCDE EQU 5 LEFT PARENTHESIS 4I602600| 00006 RPCDE EQU 6 RIGHT PARENTHESIS 4I602700| 00007 QTCDE EQU 7 QUOTE MARK 4I602800| 00010 EQCDE EQU 8 EQUAL SIGN 4I602900| 00011 DLCDE EQU 9 DOLLAR SIGN 4I603000 00012 CMCDE EQU 10 COMMA 4I603100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 133 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0 00013 PSCDE EQU 11 PLUS SIGN 4I603200| 00014 MSCDE EQU 12 MINUS SIGN 4I603300 00015 ASCDE EQU 13 ASTERISK 4I603400| 00016 SLCDE EQU 14 SLASH 4I603500| 00017 NGCDE EQU 15 ILLEGAL 4I603600| | BOOLEAN EQUALS FOR CLASS INDICATORS 4I603800| 000001 NMB BOOL 1 MUMERIC 4I603900| 000002 DCB BOOL 2 DECIMAL NUMERIC 4I604000| 000004 ALB BOOL 4 ALPHABETIC 4I604100| 000010 PDB BOOL 10 . 4I604200 000020 LPB BOOL 20 ( 4I604300| 000040 RPB BOOL 40 ) 4I604400| 000100 QTB BOOL 100 ' 4I604500| 000200 EQB BOOL 200 = 4I604600| 000400 DLB BOOL 400 $ 4I604700 001000 CMB BOOL 1000 , 4I604800| 002000 PSB BOOL 2000 + 4I604900| 004000 MSB BOOL 4000 - 4I605000| 010000 ASB BOOL 10000 * 4I605100| 020000 SLB BOOL 20000 / 4I605200 | 037777 ALLBT BOOL 37777 4I605500| | | 36437 0500 00 1 00001 QSCNA CLA 1,1 SET TERMINATOR TEST 4I605700 36440 0601 00 0 36452 STO SCLFT AND GO TO SET STORE 4I605800| 36441 1 77777 1 36442 TXI *+1,1,-1 4I605900| 36442 0500 00 1 00001 QSCNB CLA 1,1 SET STORE 4I606000| 36443 0621 00 0 36455 STA SCORS ADDRESSES AND 4I606100| 36444 0601 00 0 36753 STO STGPT INITIALIZE COUNT (6)4I606200 36445 4734 00 4 00000 PDX 0,4 4I606300| 36446 4057 00 037777 RIL ALLBT RESET TERM INDICATORS 4I606400| 36447 0754 00 0 00000 QSLP PXA 0,0 4I606500| 36450 4114 01 1 36537 CAQ SCTBL,1,1 SCAN CHARACTER 4I606600| 0BINARY CARD ID. MAPJ0223 36451 0522 00 1 36536 QSLQ XEC SCSIL,1 INDICATE TYPE 4I606700| 36452 4054 00 000000 SCLFT LFT ** EXIT IF 4I606800| 36453 0020 00 0 36514 TRA QSCNE TERMINATOR (6)4I606900| 36454 0522 00 4 36645 XEC SCPOS,4 POSITION, 4I607000| 36455 4602 00 0 00000 SCORS ORS ** STORE, AND 4I607100 36456 2 00001 4 36473 TIX QSCND,4,1 COUNT CHARACTER 4I607200| 36457 4534 00 4 36753 LXD STGPT,4 ADVANCE COUNT OF CHARACTERS (6)4I607300| 36460 1 00006 4 36461 TXI *+1,4,6 COLLECTED (6)4I607400| 36461 7 01400 4 36465 TXL *+4,4,6*STLSZ IF TOO LARGE, (6)4I607410| 36462 0074 00 4 25623 TSX ERPR,4 SAY - 'VARIABLE FIELD (6)4I607420 36463 0 00000 4 00013 WMS001,NONONO TOO LONG' (6)4I607430| 36464 0020 00 0 35374 TRA CLRDUP AND GIVE UP (6)4I607440| 36465 4634 00 4 36753 SXD STGPT,4 (6)4I607500| 36466 0774 00 4 00006 AXT 6,4 RESET COUNT (6)4I607600| 36467 0500 00 0 36455 CLA SCORS ADVANCE STORE 4I607700 36470 0361 00 0 21705 ACL L(1) POINTER 4I607800| | ENTRY HERE FROM BSCAN 4I608000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 134 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ 0 36471 0621 00 0 36455 QSCNC STA SCORS 4I608100| 36472 0600 60 0 36455 STZ* SCORS CLEAR STORE CELL 4I608200| 36473 2 00001 2 36447 QSCND TIX QSLP,2,1 COUNT MQ CHARACTER 4I608300| | NON.TERMINATE EXIT 4I608500 36474 0500 60 0 36516 CLA* QSCNX PICK UP ALTERNATE 4I608600| 36475 4737 00 1 00000 PDC 0,1 EXIT AND GO. 4I608700| 36476 0774 00 2 36447 AXT QSLP,2 SET RETURN POINT (6)4I608710| 0BINARY CARD ID. MAPJ0224| 36477 0020 00 1 00000 TRA 0,1 4I608800 | ILLEGAL CHARACTER 4I609000| 36500 0634 00 4 36503 SCILL SXA *+3,4 PRINT ' ILLEGAL BCD 4I609100| 36501 0074 00 4 25623 TSX ERPR,4 CHARACTER TREATED 4I609200| 36502 0 00000 4 00003 PZE MSS003,NONONO AS BLANK' 4I609300 36503 0774 00 4 00000 AXT **,4 4I609400| 36504 1 77761 1 36451 TXI QSLQ,1,-NGCDE 4I609500| | BLANK (6)4I609520| 36505 4520 00 0 35166 QSCNT NZT SWCVFE IF END OF VARIABLE FIELD HAS (6)4I609530 36506 0020 00 0 36514 TRA QSCNE BEEN SENSED, EXIT (6)4I609540| 36507 4774 00 2 00002 AXC 2,2 ELSE SET FOR END OF CARD (6)4I609550| 36510 0634 00 2 36701 SXA SCMQL,2 AND TAKE NON-TERMINATE (6)4I609560| 36511 0020 00 0 36474 TRA QSCND+1 EXIT (6)4I609570| | 36512 0520 00 0 35166 QSCNF ZET SWCVFE IF NOT END OF VARIABLE FIELD, (6)4I609610| 36513 0020 00 0 36454 TRA SCORS-1 CONTINUE ON BLANK (6)4I609620| | TERMINATE EXIT 4I609700 36514 4500 00 4 36656 QSCNE CAL QSBKS,4 PLACE TRAILING (6)4I609800| 36515 0522 00 0 36455 XEC SCORS BLANKS, AND 4I609900| 36516 0020 60 0 00000 QSCNX TRA* ** EXIT 4I610000| | TABLE EXECUTED BY CLASS CODE 4I610200| 36517 0020 00 0 36500 TRA SCILL ILLEGAL 4I610300| 36520 4055 00 020000 SIL SLB / 4I610400| 36521 4055 00 010000 SIL ASB * 4I610500| 36522 4055 00 004000 SIL MSB - 4I610600 36523 4055 00 002000 SIL PSB + 4I610700| 36524 4055 00 001000 SIL CMB , 4I610800| 0BINARY CARD ID. MAPJ0225| 36525 4055 00 000400 SIL DLB $ 4I610900| 36526 4055 00 000200 SIL EQB = 4I611000 36527 4055 00 000100 SIL QTB ' 4I611100| 36530 4055 00 000040 SIL RPB ) 4I611200| 36531 4055 00 000020 SIL LPB ( 4I611300| 36532 4055 00 000010 SIL PDB .. 4I611400| 36533 4055 00 000004 SIL ALB ALPHA 4I611500 36534 4055 00 000002 SIL DCB DECIMAL 4I611600| 36535 4055 00 000001 SIL NMB NUMERIC 4I611700| 36536 0020 00 0 36505 SCSIL TRA QSCNT BLANK 4I611800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 135 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ 0| SCAN TABLE 4I612000| 36537 SCTBL BSS 0 4I612100| 36537 000000000001 VFD 6/0,30/NMCDE 0 4I612200| 36540 010000000001 VFD 6/1,30/NMCDE 1 4I612300 36541 020000000001 VFD 6/2,30/NMCDE 2 4I612400| 36542 030000000001 VFD 6/3,30/NMCDE 3 4I612500| 36543 040000000001 VFD 6/4,30/NMCDE 4 4I612600| 36544 050000000001 VFD 6/5,30/NMCDE 5 4I612700| 36545 060000000001 VFD 6/6,30/NMCDE 6 4I612800 36546 070000000001 VFD 6/7,30/NMCDE 7 4I612900| 36547 100000000002 VFD 6/8,30/DCCDE 8 4I613000| 36550 110000000002 VFD 6/9,30/DCCDE 9 4I613100| 36551 600000000017 VFD O6/60,30/NGCDE 4I613200| 36552 130000000010 VFD O6/13,30/EQCDE = 4I613300 0BINARY CARD ID. MAPJ0226| 36553 140000000007 VFD O6/14,30/QTCDE ' (QUOTE) 4I613400| 36554 150000000007 VFD O6/15,30/QTCDE : - 029 QUOTE (6)4I613500| 36555 160000000010 VFD O6/16,30/EQCDE > - 029 EQUALS (6)4I613600| 36556 600000000017 VFD O6/60,30/NGCDE 4I613700 36557 200000000013 VFD O6/20,30/PSCDE + 4I613800| 36560 210000000003 VFD O6/21,30/ALCDE A 4I613900| 36561 220000000003 VFD O6/22,30/ALCDE B 4I614000| 36562 230000000003 VFD O6/23,30/ALCDE C 4I614100| 36563 240000000003 VFD O6/24,30/ALCDE D 4I614200 36564 250000000003 VFD O6/25,30/ALCDE E 4I614300| 36565 260000000003 VFD O6/26,30/ALCDE F 4I614400| 36566 270000000003 VFD O6/27,30/ALCDE G 4I614500| 36567 300000000003 VFD O6/30,30/ALCDE H 4I614600| 36570 310000000003 VFD O6/31,30/ALCDE I 4I614700 36571 600000000017 VFD O6/60,30/NGCDE 4I614800| 36572 330000000004 VFD O6/33,30/PDCDE . 4I614900| 36573 340000000006 VFD O6/34,30/RPCDE ) 4I615000| 36574 350000000005 VFD O6/35,30/LPCDE [ - 029 LEFT PARENTHESIS (6)4I615100| 36575 360000000013 VFD O6/36,30/PSCDE < - 029 PLUS (6)4I615200 36576 600000000017 VFD O6/60,30/NGCDE 4I615300| 36577 400000000014 VFD O6/40,30/MSCDE - 4I615400| 36600 410000000003 VFD O6/41,30/ALCDE J 4I615500| 0BINARY CARD ID. MAPJ0227| 36601 420000000003 VFD O6/42,30/ALCDE K 4I615600 36602 430000000003 VFD O6/43,30/ALCDE L 4I615700| 36603 440000000003 VFD O6/44,30/ALCDE M 4I615800| 36604 450000000003 VFD O6/45,30/ALCDE N 4I615900| 36605 460000000003 VFD O6/46,30/ALCDE O 4I616000| 36606 470000000003 VFD O6/47,30/ALCDE P 4I616100 36607 500000000003 VFD O6/50,30/ALCDE Q 4I616200| 36610 510000000003 VFD O6/51,30/ALCDE R 4I616300| 36611 600000000017 VFD O6/60,30/NGCDE 4I616400| 36612 530000000011 VFD O6/53,30/DLCDE $ 4I616500| 36613 540000000015 VFD O6/54,30/ASCDE * 4I616600 36614 550000000006 VFD O6/55,30/RPCDE ] - 029 RIGHT PARENTHESIS (6)4I616700| 36615 600000000017 VFD O6/60,30/NGCDE 4I616800| 36616 600000000017 VFD O6/60,30/NGCDE 4I616900| 36617 600000000000 VFD O6/60,30/0 BLANK 4I617000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 136 CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0 36620 610000000016 VFD O6/61,30/SLCDE / 4I617100| 36621 620000000003 VFD O6/62,30/ALCDE S 4I617200| 36622 630000000003 VFD O6/63,30/ALCDE T 4I617300| 36623 640000000003 VFD O6/64,30/ALCDE U 4I617400 36624 650000000003 VFD O6/65,30/ALCDE V 4I617500| 36625 660000000003 VFD O6/66,30/ALCDE W 4I617600| 36626 670000000003 VFD O6/67,30/ALCDE X 4I617700| 0BINARY CARD ID. MAPJ0228| 36627 700000000003 VFD O6/70,30/ALCDE Y 4I617800 36630 710000000003 VFD O6/71,30/ALCDE Z 4I617900| 36631 600000000017 VFD O6/60,30/NGCDE 4I618000| 36632 730000000012 VFD O6/73,30/CMCDE , 4I618100| 36633 740000000005 VFD O6/74,30/LPCDE ( 4I618200| 36634 600000000017 VFD O6/60,30/NGCDE 4I618300 36635 600000000017 VFD O6/60,30/NGCDE 4I618400| 36636 600000000017 VFD O6/60,30/NGCDE 4I618500| | | TABLE EXECUTED TO POSITION CHARACTER 4I618700 36637 4320 00 0 21726 ANA MSKHO 4I618800| 36640 0771 00 0 00006 ARS 6 4I618900| 36641 0771 00 0 00014 ARS 12 4I619000| 36642 0771 00 0 00022 ARS 18 4I619100| 36643 0771 00 0 00030 ARS 24 4I619200 36644 0771 00 0 00036 ARS 30 4I619300| 36645 0020 00 0 36646 SCPOS TRA *+1 4I619400| 36646 0074 00 4 25623 TSX ERPR,4 'ILLEGAL SCAN CONDITION. 4I619500| 36647 0 00000 5 00005 PZE MSS005,KAPUT ASSEMBLER OR MACHINE ERROR.' 4I619600| | TRAILING BLANKS TABLE 4I619800| 36650 606060606060 BCI 1, 4I619900| 36651 006060606060 BCI 1,0 4I620000| 36652 000060606060 BCI 1,00 4I620100 36653 000000606060 BCI 1,000 4I620200| 36654 000000006060 BCI 1,0000 4I620300| 0BINARY CARD ID. MAPJ0229| 36655 000000000060 BCI 1,00000 4I620400| 36656 000000000000 QSBKS BCI 1,000000 4I620500 1 IBMAPV IBMAPJ 12/01/64 PAGE 137 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * VARIABLE FIELD SCAN. IF ENTERED BY 4I620700| * 4I620800 * TSX BSCAN,4 4I620900| * 4I621000| * THEN- 4I621100| * 1. ADDRESS OF CELL SCMQL MUST CONTAIN LOCATION 4I621200| * OF NEXT SOURCE ITEM 4I621300 * 2. ADDRESS OF CELL STGPT MUST CONTAIN LOCATION 4I621400| * TO STORE EXTRACTED SYMBOL 4I621500| * 3. THE LFT INSTRUCTION IN CELL SCLFT MUST BE SET WITH 4I621600| * CLASS INDICATORS FOR TERMINATORS (SEE QSCNA) 4I621700| * 4I621800 * IF ENTERED VIA 4I621900| * 4I622000| * TSX SSCAN,4 4I622100| * LFT INDICATORS 4I622200| * 4I622300 * CONDITION 3 IS SET FROM THE CALLING SEQUENCE. 4I622400| * 4I622500| * UPON EXIT- 4I622600| * 4I622700| * 1. THE EXTRACTED SYMBOL IS STORED, LEFT JUSTIFIED, IN 4I622800 * THE GIVEN LOCATION, WITH TRAILING BLANKS. IF MORE 4I622900| * THAN SIX CHARACTERS LONG, IT CONTINUES TO CELLS 4I623000| * FOLLOWING 4I623100| * 2. THE CLASS INDICATORS FOR EACH CHARACTER 4I623200| * ENCOUNTERED ARE SET 4I623300 * 3. IR1 CONTAINS THE TERMINATOR CLASS CODE 4I623400| * 4. THE ACCUMULATOR ADDRESS CONTANS THE LOCATION OF THE 4I623500| * FIRST WORD OF THE EXTRACTED SYMBOL 4I623600| * 5. THE ACCUMULAOTR DECREMENT CONTAINS THE LENGTH OG 4I623700| * THE SYMBOL IN CHARACTERS 4I623800 | | 36657 0500 00 4 00001 SSCAN CLA 1,4 SET TERMINATOR TEST 4I624000| 36660 0601 00 0 36452 STO SCLFT AND GO TO BSCAN 4I624100| 36661 1 77777 4 36662 TXI *+1,4,-1 4I624200 36662 0634 00 4 36750 BSCAN SXA BSCX,4 SAVE EXIT 4I624300| 36663 0634 00 2 36751 SXA BSCX+1,2 INITIALIZE- 4I624400| 36664 0774 00 4 00006 AXT 6,4 FIELD 4I624500| 36665 4634 00 4 36753 SXD STGPT,4 COUNT 4I624600| 36666 4057 00 037777 RIL ALLBT INDICATORS 4I624700 36667 4625 00 0 36516 CSCAN STL QSCNX SCAN 4I624800| 36670 3 36675 0 36740 TXH CTERM,,SCFCH ROUTINE 4I624900| 36671 0774 00 2 00000 RESCT AXT **,2 MQ COUNT 4I625000| 36672 0560 00 0 36755 LDQ RESDU RESIDUE 4I625100| 36673 0500 00 0 36753 CLA STGPT GO TO SETUP SCORS 4I625200 36674 0020 00 0 36471 TRA QSCNC AND COUNT LAST TERMINATOR 4I625300| | REFRESH MQ ON NON-TERMINATION 4I625500| 36675 0634 00 2 36737 SCFCH SXA SCFCX,2 (6)4I625600| 36676 0534 00 2 36701 LXA SCMQL,2 (6)4I625610 36677 1 00001 2 36700 TXI *+1,2,1 ADVANCE 4I625700| 36700 0634 00 2 36701 SXA SCMQL,2 POINTER 4I625800| 36701 0560 00 0 00000 SCMQL LDQ ** RELOAD MQ 4I626000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 138 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ 0 36702 7 00000 2 36736 SCCHK TXL SCFCE,2,** IF BEYOND CARD LIMIT, (6)4I626010| 0BINARY CARD ID. MAPJ0230| 36703 0520 00 0 36243 ZET SWIRP AND THIS IS (6)4I626020| 36704 0020 00 0 36732 TRA SCFCD NOT SCAN OF IRP, (6)4I626030| 36705 0634 00 4 36725 SXA SCFCC,4 CHECK FOR ETC (6)4I626040 36706 4535 00 4 45172 LDC MACISW,4 IF THIS IS A (6)4I626050| 36707 7 00000 4 36714 TXL SCFCB,4,0 MACRO CALL, (6)4I626060| 36710 0560 00 0 36220 LDQ MCRES UPDATE REMAINDER (6)4I626070| 36711 4600 00 4 77777 STQ -1,4 AND COUNTS IN (6)4I626080| 36712 0560 00 0 36217 LDQ MCCTX PUSH DOWN (6)4I626090 36713 4600 00 4 77776 STQ -2,4 TABLE (6)4I626100| 36714 4534 00 4 44630 SCFCB LXD BST.1,4 SAVE COUNT IN CASE THIS IS (6)4I626110| 36715 0634 00 4 36721 SXA BSTSV,4 BEING USED FOR HSCAN (6)4I626120| 36716 4625 00 0 36244 STL SCETC SET SWITCH FOR IRP AND (6)4I626130| 36717 0074 00 4 35024 TSX INHAND,4 TEST NEXT CARD FOR ETC (6)4I626150 36720 0600 00 0 36244 STZ SCETC (6)4I626160| 36721 0774 00 4 00000 BSTSV AXT **,4 RESTORE HSCAN COUNT AND (6)4I626170| 36722 4634 00 4 44630 SXD BST.1,4 FETCH (6)4I626180| 36723 0774 00 4 36771 AXT HSCNC,4 ADDRESS (6)4I626190| 36724 0634 00 4 44625 SXA BSTFC,4 (6)4I626200 36725 0774 00 4 00000 SCFCC AXT **,4 (6)4I626210| 36726 0534 00 2 36671 LXA RESCT,2 PICK UP NEW COUNT (6)4I626230| 36727 0560 00 0 36755 LDQ RESDU AND REMAINDER (6)4I626240| 36730 4520 00 0 35157 NZT NXTETC IS CARD ETC (6)4I626250| 0BINARY CARD ID. MAPJ0231 36731 1 77777 2 36737 TXI SCFCX,2,-1 YES (6)4I626260| | 36732 0560 00 0 36253 SCFCD LDQ BLANKS NO, LOAD BLANKS (6)4I626310| 36733 0600 00 0 35166 STZ SWCVFE AND SET END OF CARD (6)4I626320| 36734 4774 00 2 00002 AXC 2,2 PREVENT SCANNING VARIABLE (6)4I626330 36735 0634 00 2 36701 SXA SCMQL,2 FIELD OF NEXT CARD (6)4I626340| | 36736 0774 00 2 00006 SCFCE AXT 6,2 SET FRESH REMAINDER COUNT (6)4I626360| 36737 0020 00 0 00000 SCFCX TRA ** EXIT (6)4I626370| TERMINATOR REACHED 4I626400| 36740 4600 00 0 36754 CTERM STQ CHRCTR SAVE TERMINATOR (6)4I626500| 36741 3 00001 2 36744 TXH CTERB,2,1 4I626600| 36742 1 36742 2 36675 TXI SCFCH,2,* FETCH NEXT IF TERMINATOR IS (6)4I626700| 36743 1 00001 2 36744 TXI *+1,2,1 AT END OF WORD 4I626800 36744 0634 00 2 36671 CTERB SXA RESCT,2 SAVE MQ COUNT 4I627600| 36745 4600 00 0 36755 STQ RESDU SAVE RESIDUE (6)4I627610| 36746 4754 00 4 00000 PXD 0,4 SET ACCUMULATOR 4I627700| 36747 0402 00 0 36753 SUB STGPT INFORMATION 4I627800| 36750 0774 00 4 00000 BSCX AXT **,4 4I627900 36751 0774 00 2 00000 AXT **,2 RESTORE AND 4I628000| 36752 0020 00 4 00001 TRA 1,4 EXIT 4I628100| | 36753 0 00006 0 52230 STGPT 2B,,6 FIRST STORE ADDRESS (6)4I628800| 36754 0 00000 0 00000 CHRCTR ** TERMINATOR (6)4I628810 36755 0 00000 0 00000 RESDU PZE ** SCAN RESIDUE 4I628900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 139 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * EXTRACT N CHARACTERS FROM VARIABLE FIELD. ENTER VIA 4I629100 * 4I629200| * TSX HSCAN,4 4I629300| * PZE LOC,,N 4I629400| * 4I629500| * THE N CHARACTERS ARE STORED, LEFT JUSTIFIED, BEGINNING 4I629600 * AT CELL LOC. RESET, RESDU, AND SCMQL ARE UPDATED. 4I629700| | | 36756 1 77777 4 36757 HSCAN TXI *+1,4,-1 BUMP POSITION 4I629900| 0BINARY CARD ID. MAPJ0232 36757 0634 00 4 36750 SXA BSCX,4 AND SAVE REGISTERS 4I630000| 36760 0634 00 2 36751 SXA BSCX+1,2 FOR RETURN 4I630100| 36761 0500 00 4 00000 CLA 0,4 4I630600| 36762 0737 00 4 00000 PAC 0,4 SET STORE AND 4I630700| 36763 0774 00 1 00006 AXT 6,1 AC COUNT 4I630800 36764 0560 00 0 36755 LDQ RESDU 4I630900| 36765 0774 00 2 36771 AXT *+4,2 SET RETURN 4I631000| 36766 0634 00 2 44625 SXA BSTFC,2 FROM CONCATENATOR 4I631100| 36767 0522 00 0 36671 XEC RESCT 4I631200| 36770 2 00001 2 44622 TIX BSTNG,2,1 FETCH 4I631300 36771 1 44621 2 36675 HSCNC TXI SCFCH,2,BSTNG-1 STRING (6)4I631400| | 36772 4600 00 0 36755 STQ RESDU SAVE RESIDUE 4I631600| 36773 0560 00 0 36253 LDQ BLANKS COMPLETE 4I631700| 36774 0522 00 1 44665 XEC PLEFT,1 LAST WORD 4I631800 36775 0602 00 4 00000 SLW 0,4 4I631900| 36776 0560 00 0 36755 LDQ RESDU 4I632000| 36777 0774 00 2 00000 BSTCT AXT **,2 REMAINING COUNT (6)4I632100| 37000 1 00001 2 36740 TXI CTERM,2,1 TERMINATE (6)4I632200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 140 CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * CARD SETUP ROUTINE. ENTER VIA 4I634500| * 4I634600| * TSX CDXIN,4 4I634700 * 4I634800| * UPON RETURN 4I634900| * 4I635000| * 1. LOCATION FIELD IN CELL NAME 4I635100| * 2. OPERATION FIELD IN CELL OPER 4I635200 * 3. CELL SWIND SET NON-ZERO IF OPERATION INDIRECT 4I635300| * 4. BSCAN ROUTINE INITIALIZED TO SCAN VARIABLE FIELD 4I635400| * 5. CELL SWCVF SET ZERO IF NO VARIABLE FIELD 4I635500| * 6. CELL SWCMNT SET NON-ZERO IF *-TYPE REMARKS CARD. 4I635600| | 37001 0634 00 4 37152 CDXIN SXA CDXEX,4 4I635800| 37002 0634 00 2 37153 SXA CDXEX+1,2 4I635900| 37003 0634 00 1 37154 SXA CDXEX+2,1 4I636000| EXTRACT LOCATION FIELD 4I636200| 37004 0600 00 0 37167 STZ SWLOP OPERATION FIELD OK 4I636300| 0BINARY CARD ID. MAPJ0233| 37005 0441 00 0 21704 LDI L(0) CLEAR INDICATORS 4I636400| 37006 0600 00 0 37171 STZ SWNBV SWITCH FOR BLANK BEFORE V.F. OFF (6)4I636500 37007 0600 00 0 37172 STZ SWCMNT NOT COMMENT 4I636600| 37010 0600 00 0 21461 STZ NAME INITIALIZE 4I636700| 37011 0774 00 4 00006 AXT 6,4 (6)4I636710| 37012 4500 60 0 21447 CAL* GTPRA TO OPERATION FIELD 4I636800| 37013 0322 00 0 36253 ERA BLANKS SCAN IF NO LOCATION 4I636900 37014 0100 00 0 37037 TZE CDXOQ FIELD 4I637000| 37015 0560 60 0 21447 LDQ* GTPRA 4I637100| 37016 4114 01 1 36537 CAQ SCTBL,1,1 TEST FIRST CHARACTER 4I637200| 37017 1 77763 1 37020 TXI *+1,1,-ASCDE FOR *. IF SO, 4I637300| 37020 7 00000 1 37164 TXL CDXAS,1,0 TREAT AS COMMENTS CARD 4I637400 37021 0560 60 0 21447 LDQ* GTPRA 4I637500| 37022 0774 00 2 00006 AXT 6,2 OTHERWISE, PREPARE TO 4I637600| SCAN LOC FIELD (6)4I637700| 37023 4754 00 0 00000 CDXLA ZAC (6)4I637800| 37024 4114 01 1 36537 CAQ SCTBL,1,1 SCAN CHARACTER AND 4I637900 37025 0522 00 1 37216 XEC LFSIL,1 BRANCH 4I638000| 37026 0522 00 4 36645 XEC SCPOS,4 CHARACTER TO 4I638100| 37027 4602 00 0 21461 ORS NAME SYMBOL 4I638200| 37030 1 77777 4 37031 TXI *+1,4,-1 4I638300| 37031 2 00001 2 37023 CDXLB TIX CDXLA,2,1 BACK FOR NEXT 4I638400 37032 4500 00 4 36656 CAL QSBKS,4 FILL IN (6)4I638500| 0BINARY CARD ID. MAPJ0234| 37033 4602 00 0 21461 ORS NAME TERMINATING BLANKS 4I638600| 37034 4054 00 000014 CDXTF LFT ALB+PDB 4I638700| 37035 4057 00 000017 RIL NMB+DCB+ALB+PDB STORE LOCATION FIELD 4I638800 37036 0604 00 0 26564 STI SWLOFN SWITCH SETTING 4I638900| 37037 0754 00 4 00000 CDXOQ PXA ,4 COMPUTE NUMBER OF (6)4I639000| 37040 0737 00 4 00000 PAC ,4 CHARACTERS (6)4I639010| 37041 1 00006 4 37042 TXI *+1,4,6 IN NAME (6)4I639020| 37042 4634 00 4 37173 SXD NMPTR,4 (6)4I639030 1 IBMAPV IBMAPJ 12/01/64 PAGE 141 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37043 0534 00 4 21447 LXA GTPRA,4 PICK UP CARD LOCATION (6)4I639040| 37044 4534 00 2 21447 LXD GTPRA,2 AND WORD COUNT 4I639100| 37045 1 77777 2 37046 TXI CDXOP,2,-1 GO TO PROCESS OPN FIELD 4I639200 | EXTRACT OPERATION FIELD 4I639800| 37046 4634 00 4 37060 CDXOP SXD CDXPE,4 CARD LOCATION (6)4I639900| 37047 1 00001 4 37050 TXI *+1,4,1 (6)4I640000| 37050 0634 00 4 37112 SXA CDXQL,4 SET SCAN FETCH (6)4I640010 37051 0560 60 0 37112 LDQ* CDXQL LOAD COLUMNS 7 THROUGH 12 (6)4I640020| 37052 3 00001 2 37056 TXH *+4,2,1 (6)4I640100| 37053 0055 00 000002 SIR 2 SET SHORT CARD INDICATOR $5$4I640110| 37054 3 00000 2 37056 TXH *+2,2,0 IS IMAGE LESS THAN TWO WORDS (6)4I640300| 37055 0560 00 0 36253 LDQ BLANKS YES, OPERATION IS BLANK (6)4I640400 37056 7 00013 2 37060 TXL *+2,2,11 DO NOT USE MORE 4I640500| 37057 0774 00 2 00013 AXT 11,2 THAN 12 WORDS 4I640600| 37060 1 00000 2 37061 CDXPE TXI *+1,2,** SET CARD TERMINATION (6)4I640700| 0BINARY CARD ID. MAPJ0235| 37061 4634 00 2 36702 SXD SCCHK,2 TEST IN SSCAN ROUTINE (6)4I640800 37062 0020 00 0 67251 CDXOP3 TRA CDXOP1 CHANGED AFTER FIRST TIME TO $5$4I641200| STZ OPER (6)4I641210| 37063 4763 00 0 00006 LGL 6 IGNORE COLUMN 7 (6)4I641300| 37064 0600 00 0 37170 STZ SWIND RESET INDIRECT SWITCH 4I641500| 37065 0774 00 4 00006 AXT 6,4 PREPARE TO (6)4I641600 37066 0774 00 2 00005 AXT 5,2 SCAN FIELD (6)4I641700| 37067 4754 00 0 00000 CDXPA ZAC (6)4I642000| 37070 4114 01 1 36537 CAQ SCTBL,1,1 SCAN CHARACTER 4I642100| 37071 0522 00 1 37236 XEC OPSIL,1 AND BRANCH ON TYPE 4I642200| NORMAL CHARACTER FOUND (6)4I642210 37072 0054 00 000010 RFT 10 WAS PRECEDING CHARACTER AN * (6)4I642220| 37073 0020 00 0 37103 TRA CDXPB YES, IMPROPER TERMINATION (6)4I642230| 37074 0522 00 4 36645 XEC SCPOS,4 NO, POSITION FOR STORING IN OPER (6)4I642240| 37075 4602 00 0 21462 ORS OPER IF NORMAL, PLACE 4I642300| 37076 1 77777 4 37100 TXI CDXPC,4,-1 IN FIELD, AND GO TO NEXT (6)4I642400 | ASTERISK (6)4I642420| 37077 0055 00 000010 CDXPD SIR 10 SET INDICATOR FOR TRAILING * (6)4I642430| 37100 2 00001 2 37067 CDXPC TIX CDXPA,2,1 IF NO MORE CHARACTERS (6)4I642500| 37101 0074 00 1 37105 TSX CDXNW,1 CONTINUE TO NEXT (6)4I642510 37102 0020 00 0 37067 TRA CDXPA WORD (6)4I642520| | IMPROPER TERMINATION 4I642700| 37103 4625 00 0 37167 CDXPB STL SWLOP SET SWITCH 4I642800| 37104 0020 00 0 37122 TRA CDXPF GO TEST FOR NON-BLANK (6)4I642900 | ADVANCE SCAN TO WORD THREE (6)4I643100| 37105 0054 00 000004 CDXNW RFT 4 HAVE WE ALREADY DONE SO (6)4I643200| 37106 0020 00 1 00002 TRA 2,1 YES, ERROR RETURN (6)4I643300| 0BINARY CARD ID. MAPJ0236 37107 0534 00 2 37112 LXA CDXQL,2 (6)4I643400| 37110 1 00001 2 37111 TXI *+1,2,1 ADVANCE CARD LOCATION (6)4I643410| 37111 0634 00 2 37112 SXA CDXQL,2 (6)4I643420| 37112 0560 00 0 00000 CDXQL LDQ ** PICK UP WORD (6)4I643500| 37113 0054 00 000002 RFT 2 IS IT SHORT CARD (6)4I643510 37114 0560 00 0 36253 LDQ BLANKS YES, REPLACE BY BLANKS (6)4I643520| 1 IBMAPV IBMAPJ 12/01/64 PAGE 142 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37115 0774 00 2 00004 AXT 4,2 SET TO SCAN THROUGH COLUMN 16 (6)4I643530| 37116 0055 00 000004 SIR 4 AND PREVENT GOING PAST IT (6)4I643540 37117 0020 00 1 00001 TRA 1,1 BACK TO PROCESS (6)4I643550| | BLANK CHARACTER (6)4I643700| 37120 4114 01 1 36537 CDXVF CAQ SCTBL,1,1 FIND FIRST (6)4I643800| 37121 3 00000 1 37126 TXH CDXPL,1,0 NON-BLANK (6)4I643900 37122 2 00001 2 37120 CDXPF TIX CDXVF,2,1 CHARACTER (6)4I644000| 37123 0074 00 1 37105 TSX CDXNW,1 SEE IF ANY MORE (6)4I644100| 37124 0020 00 0 37120 TRA CDXVF YES, CONTINUE SCAN FOR NON-BLANK (6)4I644110| 37125 0020 00 0 37127 TRA CDXPG NO, REPOSITION BLANK IN COLUMN 16 (6)4I644120| 37126 4625 00 0 37171 CDXPL STL SWNBV SET VARIABLE FIELD FOLLOWS BLANK (6)4I644210| BEGIN VARIABLE FIELD WITH CURRENT CHARACTER (6)4I644300| 37127 4773 00 0 00036 CDXPG RQL 30 SHIFT CHARACTER BACK (6)4I644400| 37130 1 00001 2 37131 TXI CDXPH,2,1 AND ADJUST CHARACTER COUNT (6)4I644500| COMMA (6)4I644520| 37131 4500 00 4 36656 CDXPH CAL QSBKS,4 PLACE TRAILING (6)4I644600| 37132 4602 00 0 21462 ORS OPER BLANKS 4I644700| 37133 0054 00 000004 RFT 4 IF ON THIRD WORD, (6)4I644800| 37134 1 00002 2 37140 TXI CDXPK,2,2 ADJUST RESIDUE COUNT (6)4I644810 0BINARY CARD ID. MAPJ0237| 37135 3 00001 2 37140 TXH CDXPK,2,1 ELSE GET NEXT WORD (6)4I644820| 37136 0074 00 1 37105 TSX CDXNW,1 IF CURRENT ONE (6)4I644830| 37137 1 00002 2 37140 TXI CDXPK,2,2 IS EXHAUSTED (6)4I644840| 37140 4500 00 0 21462 CDXPK CAL OPER SET INDIRECTLY ADDRESSED (6)4I644900 37141 0322 00 0 45156 ERA B.AST SWITCH IF OPERATION NOT ALL (6)4I645000| 37142 0054 00 000010 RFT 10 ASTERISKS BUT TERMINATED (6)4I645100| 37143 0602 00 0 37170 SLW SWIND WITH ONE (6)4I645200| 37144 0754 00 4 00000 PXA ,4 COMPUTE NUMBER OF (6)4I645300| 37145 0737 00 4 00000 PAC ,4 CHARACTERS IN (6)4I645400 37146 1 00006 4 37147 TXI *+1,4,6 OPERATION CODE (6)4I645500| 37147 4634 00 4 37174 SXD OPPTR,4 AND SAVE IN POINTER (6)4I645600| 37150 4600 00 0 37175 STQ CDRSDU SAVE MQ SCAN RESIDUE (6)4I645700| 37151 0634 00 2 37176 SXA CDXRCT,2 AND REMAINDER COUNT (6)4I645800| 37152 0774 00 4 00000 CDXEX AXT **,4 4I646600 37153 0774 00 2 00000 AXT **,2 RESTORE 4I646700| 37154 0774 00 1 00000 AXT **,1 REGISTERS 4I646800| 37155 4500 00 0 37112 CDXINR CAL CDXQL INITIALIZE SCAN (6)4I646810| 37156 0621 00 0 36701 STA SCMQL WORD POSITION, (6)4I646820| 37157 4500 00 0 37176 CAL CDXRCT CHARACTER (6)4I646830 37160 0621 00 0 36671 STA RESCT COUNT, (6)4I646840| 37161 0560 00 0 37175 LDQ CDRSDU AND MQ (6)4I646850| 37162 4600 00 0 36755 STQ RESDU RESIDUE (6)4I646860| 0BINARY CARD ID. MAPJ0238| 37163 0020 00 4 00001 TRA 1,4 EXIT 4I646900 | *-TYPE REMARKS CARD 4I647100| 37164 4625 00 0 37172 CDXAS STL SWCMNT SET SWITCH 4I647200| 37165 0600 00 0 26564 STZ SWLOFN RESET LOC SWITCH 4I647300| 37166 0020 00 0 37152 TRA CDXEX AND EXIT 4I647400 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 143 | CARD SCAN ROUTINES PHASE 1 - RECORD IBMAPJ | 0| 37167 0 00000 0 00000 SWLOP PZE ** NON-ZERO IF OPN FIELD ERROR 4I647600 37170 0 00000 0 00000 SWIND PZE ** INDIRECT OPERATION INDICATOR 4I647700| 44331 LNKWD SYN RES.H SCAN INITIALIZER (6)4I647800| 37171 0 00000 0 00000 SWNBV PZE ** VARIABLE FIELD FOLLOWS BLANK (6)4I647900| 37172 0 00000 0 00000 SWCMNT PZE ** *-CARD INDICATOR 4I648000| 37173 0 00000 0 21461 NMPTR PZE NAME,,** LOCATION,,LENGTH (6)4I648010 37174 0 00000 0 21462 OPPTR PZE OPER,,** LOCATION,,LENGTH (6)4I648020| 37175 0 00000 0 00000 CDRSDU *** BEGIN VARIABLE FIELD SCAN RESIDUR (6)4I648030| 37176 0 00000 0 00000 CDXRCT ** CHARACTER COUNT FOR ABOVE (6)4I648040| | LOCATION FIELD TRANSFERS 4I648200 37177 0055 00 000001 SIR 1 ILLEGAL (6)4I648300| 37200 0055 00 000001 SIR 1 / (6)4I648400| 37201 0055 00 000001 SIR 1 * (6)4I648500| 37202 0055 00 000001 SIR 1 - (6)4I648600| 37203 0055 00 000001 SIR 1 + (6)4I648700 37204 0055 00 000001 SIR 1 , (6)4I648800| 37205 0055 00 000001 SIR 1 $ (6)4I648900| 37206 0055 00 000001 SIR 1 = (6)4I649000| 37207 4055 00 000100 SIL QTB ' 4I649100| 37210 4055 00 000040 SIL RPB ) 4I649200 0BINARY CARD ID. MAPJ0239| 37211 4055 00 000020 SIL LPB ( 4I649300| 37212 4055 00 000010 SIL PDB . 4I649400| 37213 4055 00 000004 SIL ALB ALPHA 4I649500| 37214 4055 00 000002 SIL DCB DECIMAL 4I649600 37215 4055 00 000001 SIL NMB NUMERIC 4I649700| 37216 0020 00 0 37031 LFSIL TRA CDXLB BLANK 4I649800| | OPERATION FIELD TRANSFERS 4I650000| 37217 0020 00 0 37103 TRA CDXPB ILLEGAL 4I650100 37220 0020 00 0 37103 TRA CDXPB / 4I650200| 37221 7 00005 4 37077 TXL CDXPD,4,5 * (6)4I650300| 37222 0020 00 0 37103 TRA CDXPB - 4I650400| 37223 0020 00 0 37103 TRA CDXPB + 4I650500| 37224 0020 00 0 37131 TRA CDXPH , (6)4I650600 37225 0020 00 0 37103 TRA CDXPB $ 4I650700| 37226 0020 00 0 37103 TRA CDXPB = 4I650800| 37227 7 00000 4 37103 TXL CDXPB,4,0 ' (6)4I650900| 37230 0020 00 0 37103 TRA CDXPB ) (6)4I651000| 37231 7 00005 4 37127 TXL CDXPG,4,5 ( (6)4I651100 37232 7 00000 4 37103 TXL CDXPB,4,0 . (6)4I651200| 37233 7 00000 4 37103 TXL CDXPB,4,0 ALPHABETIC (6)4I651300| 37234 7 00000 4 37103 TXL CDXPB,4,0 DECIMAL (6)4I651400| 37235 7 00000 4 37103 TXL CDXPB,4,0 NUMERIC (6)4I651500| 37236 0020 00 0 37122 OPSIL TRA CDXPF BLANK (6)4I651600 1 IBMAPV IBMAPJ 12/01/64 PAGE 144 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * CONVERSION ROUTINES. ENTER WITH BCD IN MQ LEFT JUSTIFIED, AND 4I651800| * (IR2) = CHARACTER.COUNT. RETURN WITH APPROPRIATE TEXT IN AC. 4I651900 | | BCD TO DECIMAL 4I652100| 0BINARY CARD ID. MAPJ0240| 37237 0754 00 0 00000 CV.10 PXA 0,0 CLEAR ACCUM 4I652200 37240 7 00000 2 37255 TXL CV.106,2,0 4I652300| 37241 6 00005 2 37244 TNX CV.105,2,5 4I652400| 37242 0774 00 2 00005 AXT 5,2 SET FOR 5 DIGITS 4I652500| 37243 0500 00 0 21717 CLA 1DECR AND FOR OVERFLOW 4I652600| 37244 0601 00 0 37302 CV.105 STO CV.T MULTIPLY PREVIOUS 4I652700 37245 0767 00 0 00002 ALS 2 RESULT BY 10 4I652800| 37246 0400 00 0 37302 ADD CV.T 4I652900| 37247 0767 00 0 00001 ALS 1 4I653000| 37250 4114 01 0 21704 CAQ L(0),,1 ADD NEXT DIGIT 4I653100| 37251 2 00001 2 37244 TIX CV.105,2,1 4I653200 37252 0340 00 0 21723 CAS MSKAD TEST FOR 4I653300| 37253 0020 00 0 37260 TRA CV.107 SIZE ERROR 4I653400| 37254 0020 00 0 37255 TRA *+1 4I653500| 37255 4320 00 0 21723 CV.106 ANA MSKAD CLEAR UNWANTED BITS 4I653600| 37256 0400 00 0 21721 ADD 10WD SET ADJECTIVE CODE 4I653700 37257 0020 00 4 00001 TRA 1,4 EXIT 4I653800| | 37260 0634 00 4 37263 CV.107 SXA *+3,4 ON ERROR, ISSUE 4I654000| 37261 0074 00 4 25623 TSX ERPR,4 'DECIMAL 4I654100| 37262 0 00000 2 00150 PZE MSS055,NOGO CONSTANT ERROR' 4I654200 37263 0774 00 4 00000 AXT **,4 4I654300| 37264 0020 00 0 37255 TRA CV.106 EXIT 4I654400| | | BCD TO OCTAL 4I654600 0BINARY CARD ID. MAPJ0241| 37265 0754 00 0 00000 CV.11 PXA 0,0 CLEAR ACCUM 4I654700| 37266 7 00000 2 37300 TXL CV.16,2,0 4I654800| 37267 6 00006 2 37275 TNX CV.15,2,6 4I654900| 37270 0634 00 4 37273 SXA *+3,4 IF TOO MANY DIGITS, 4I655000 37271 0074 00 4 25623 TSX ERPR,4 'OCTAL CONSTANT 4I655100| 37272 0 00000 2 00151 PZE MSS056,NOGO TOO LONG' 4I655200| 37273 0774 00 4 00000 AXT **,4 4I655300| 37274 0774 00 2 00006 AXT 6,2 SET FOR SIX DIGITS 4I655400| 37275 4773 00 0 00003 CV.15 RQL 3 SHIFT IN 4I655500 37276 4763 00 0 00003 LGL 3 NEXT DIGIT 4I655600| 37277 2 00001 2 37275 TIX CV.15,2,1 4I655700| 37300 0400 00 0 21722 CV.16 ADD 11WD SET ADJECTIVE CODE 4I655800| 37301 0020 00 4 00001 TRA 1,4 EXIT 4I655900| 37302 0 00000 0 00000 CV.T PZE 0 4I656100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 145 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * PROVIDE NEXT CREATED NAME. ENTER VIA 4I656300 * 4I656400| * TSX DUMMY,4 4I656500| * 4I656600| * RETURN WITH BCD IN ACCUMULATOR. 4I656700| | 37303 4500 00 0 37312 DUMMY CAL DUMA OBTAIN PREVIOUS 4I656900| 37304 0114 04 0 25611 CVR WBCD+1,,4 NAME AND ADD 1 4I657000| 37305 4130 00 0 00000 XCL 4I657100| 37306 4773 00 0 00030 RQL 24 REPOSITION TO 4I657200 37307 4130 00 0 00000 XCL CORRECT FORM 4I657300| 37310 0602 00 0 37312 SLW DUMA SAVE 4I657400| 37311 0020 00 4 00001 TRA 1,4 EXIT 4I657500| | 37312 333300000000 DUMA BCI 1,..0000 LAST CREATED NAME 4I657700 1 IBMAPV IBMAPJ 12/01/64 PAGE 146 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| *DECIMAL TO BINARY CONVERSION 4I657900| * 4I658000 * CALLING SEQUENCE 4I658100| * 4I658200| * TSX DBCNV,4 4I658300| * 4I658400| * UPON ENTRY THE SCAN ROUTINE, SSCAN, MUST HAVE JUST 4I658500 * READ THE PREVIOUS TERMINATOR. 4I658600| * 4I658700| * UPON RETURN- 4I658800| * 4I658900| * 1. THE CONVERTED CONSTANT IS STORED IN CELLS 4I659000 * DB8T1 AND DB8T2. IF DOUBLE PRECISION, CELL 4I659100| * DB8DP IS SET NON-ZERO 4I659200| * 4I659300| * 2. SSCAN IS READY TO SCAN THE NEXT ITEM IN 4I659400| * THE VARIABLE FIELD. 4I659500 * 4I659600| * 3. THE FIELD TERMINATOR CODE IS IN IR1. 4I659700| | | RIGHT HALF INDICATOR USAGE 4I659900 000001 DBSPP BOOL 1 SIGN OF PRINCIPAL PART 4I660000| 000002 DBPER BOOL 2 DECIMAL POINT INDICATOR 4I660100| 000004 DBDBL BOOL 4 DOUBLE PRECISION INDICATOR 4I660200| 000010 DBEHA BOOL 10 E HAS OCCURRED 4I660300| 000020 DBBHA BOOL 20 B HAS OCCURRED 4I660400 000040 DBSEP BOOL 40 SIGN OF EXPONENTIAL PART 4I660500| 000100 DBSBP BOOL 100 SIGN OF BINARY PART 4I660600| 000200 DBSWL BOOL 200 LAST ITEM WAS E OR B 4I660700| 000400 DBLSO BOOL 400 LEADING SIGN HAS OCCURRED 4I660800| 001000 DBMS1 BOOL 1000 ERROR 4I660900 002000 DBMS2 BOOL 2000 MESSAGE 4I661000| 004000 DBMS3 BOOL 4000 INDICATORS 4I661100| 010000 DBMS4 BOOL 10000 4I661200| 020000 DBMS5 BOOL 20000 4I661300| 040000 DBMS6 BOOL 40000 4I661400 | | 0BINARY CARD ID. MAPJ0242| 37313 0634 00 4 40062 DBCNV SXA DBCNX,4 SAVE INDEX 4I661600| 37314 0634 00 2 40063 SXA DBCNX+1,2 REGISTERS, 4I661700 37315 0604 00 0 40152 STI DB8SI INDICATORS 4I661800| 37316 0500 00 0 36452 CLA SCLFT SCAN 4I661900| 37317 0601 00 0 40153 STO DB8SJ TERMINATORS 4I662000| 37320 0057 00 077777 RIR 77777 RESET FORMAT INDICATORS 4I662100| 37321 0774 00 4 00013 AXT DB8TBE-DB8TB,4 CLEAR 4I662200 37322 0600 00 4 40152 STZ DB8TBE,4 CONVERSTION 4I662300| 37323 2 00001 4 37322 TIX *-1,4,1 CELLS 4I662400| 37324 0500 00 0 40154 CLA DBSCC SET BASIC 4I662500| 37325 0601 00 0 36452 STO SCLFT SCAN TERMINATION 4I662600| 37326 0534 00 4 36753 LXA STGPT,4 SAVE LOCATION 4I662700 37327 0634 00 4 37411 SXA DB6F2,4 OF PRINCIPAL PART 4I662800| 37330 0774 00 2 00000 AXT 0,2 RESET LENGTH 4I662900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 147 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37331 0074 00 4 36662 DBCNA TSX BSCAN,4 SCAN PRINCIPAL PART 4I663000 37332 0522 00 1 40204 XEC DB6TR,1 BRANCH ON TERM TYPE 4I663100| | DECIMAL POINT IN PRINCIPAL PART 4I663300| 37333 0054 00 000002 DB6DP RFT DBPER TEST FOR 4I663400| 37334 0055 00 002000 SIR DBMS2 MISUSE OF 4I663500 37335 0055 00 000002 SIR DBPER SET DP OCCURRENCE 4I663600| 37336 0622 00 0 37351 STD DB6DPA SAVE COUNT 4I663700| 37337 4734 00 4 00000 PDX 0,4 4I663800| 37340 0771 00 0 00022 ARS 18 ADD LENGTH 4I663900| 0BINARY CARD ID. MAPJ0243 37341 0400 00 0 40140 ADD DB8PW TO SCALE (NEG), 4I664000| 37342 0054 00 002000 RFT DBMS2 IF THIS WAS 4I664100| 37343 0601 00 0 40140 STO DB8PW A SECOND PERIOD 4I664200| 37344 7 00000 4 37351 TXL DB6DPA,4,0 4I664300| 37345 0500 00 0 36753 CLA STGPT 4I664400 37346 0361 00 0 21705 ACL L(1) IF NUMBER OF CHARS WAS 4I664500| 37347 2 00006 4 37346 TIX *-1,4,6 NOT ZERO, COMPUTE NEW 4I664600| 37350 0621 00 0 36753 STA STGPT PLACE TO STORE 4I664700| 37351 1 00000 2 37331 DB6DPA TXI DBCNA,2,** INCREASE COUNT AND GO TO SCAN 4I664800| + OR - IN PRINCIPAL PART 4I665000| 37352 4734 00 4 00000 DB6PM PDX 0,4 TERMINATE LITERAL IF 4I665100| 37353 3 00000 4 37365 TXH DB6TP,4,0 LENGTH THIS FIELD NOT 0, 4I665200| 37354 3 00000 2 37365 TXH DB6TP,2,0 OR PREVIOUS LN NOT 0 4I665300| 37355 0054 00 000002 RFT DBPER ON IF DECIMAL 4I665400 37356 0020 00 0 37365 TRA DB6TP POINT HAS OCCURRED 4I665500| 37357 0054 00 000400 RFT DBLSO TEST FOR TOO 4I665600| 37360 0055 00 001000 SIR DBMS1 MANY SIGNS 4I665700| 37361 0055 00 000400 SIR DBLSO 4I665800| 37362 4054 00 004000 LFT MSB INVERT SIGN INDICATION 4I665900 37363 0051 00 000001 IIR DBSPP IF THIS IS MINUS 4I666000| 37364 0020 00 0 37331 TRA DBCNA BACK TO SCAN 4I666100| | 37365 0074 00 4 37367 DB6TP TSX DB6FPP,4 FINISH PRINCIPAL PART 4I666300| 37366 0020 00 0 37572 TRA DB8FC TERMINATE LITERAL 4I666400 | COMPLETE PRINCIPAL PART 4I666600| 0BINARY CARD ID. MAPJ0244| 37367 0622 00 0 37374 DB6FPP STD DB6F1 SAVE LENGTH ADDITION 4I666700| 37370 0771 00 0 00022 ARS 18 SUBTRACT FROM 4I666800 37371 0400 00 0 40140 ADD DB8PW SCALE IF DECIMAL 4I666900| 37372 0054 00 000002 RFT DBPER POINT OCCURRED 4I667000| 37373 0601 00 0 40140 STO DB8PW 4I667100| 37374 1 00000 2 37375 DB6F1 TXI *+1,2,** TOTAL LENGTH 4I667200| 37375 6 00024 2 37405 TNX DB6F11,2,20 IF LONGER THAN $4$4I667300 37376 0754 00 2 00000 PXA 0,2 20 DIGITS, ADD $4$4I667400| 37377 0400 00 0 40140 ADD DB8PW EXCESS TO SCALE $4$4I667500| *****$4$4I667600| ** THESE TWO INSTRUCTIONS FORCE NUMBER TO BE TREATED $4$4I667700| ** AS IF PRINCIPAL PART CONSISTED OF FIRST 20 DIGITS. $4$4I667800 ** IF REMOVED, FIRST 20 DIGITS ARE USED FOR CONVERSION $4$4I667900| ** BUT SCALE IS DETERMINED BY NUMBER AS WRITTEN $4$4I668000| 37400 4120 00 0 37402 TMI *+2 $4$4I668100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 148 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ 0 37401 0754 00 0 00000 PXA 0,0 $4$4I668200| ****** *****$4$4I668300| 37402 0601 00 0 40140 STO DB8PW SET NEW SCALE, $4$4I668400| 37403 0774 00 2 00024 AXT 20,2 TAKE LENGTH AS 20, $4$4I668500| 37404 0055 00 040000 SIR DBMS6 AND NOTE ERROR $4$4I668600 37405 0634 00 1 37436 DB6F11 SXA DB6F6+1,1 $4$4I668700| 37406 0634 00 4 37437 SXA DB6F6+2,4 4I668800| 37407 4625 00 0 40106 STL DB816 SET FOR CONVERSION 4I668900| 37410 4754 00 0 37417 PXD DB6F3,0 4I669000| 37411 4774 00 1 00000 DB6F2 AXC **,1 LOC PP STRING 4I669100 37412 0600 00 0 40137 STZ DB8DP SET FOR SINGLE 4I669200| 37413 7 00000 2 37435 TXL DB6F6,2,0 4I669300| 37414 6 00012 2 37416 TNX *+2,2,10 OR DOUBLE 4I669400| 0BINARY CARD ID. MAPJ0245| 37415 4625 00 0 40137 STL DB8DP 4I669500 37416 1 00001 1 40103 TXI DB817,1,1 CONVERT FIRST PART 4I669600| 37417 4520 00 0 40137 DB6F3 NZT DB8DP TEST FOR 4I669700| 37420 0020 00 0 37435 TRA DB6F6 SINGLE PRECISION 4I669800| 37421 0601 00 0 40142 STO DB8T1 4I669900| 37422 4625 00 0 40106 STL DB816 IF LENGTH EXCEEDS 4I670000 37423 4754 00 0 37425 PXD DB6F4,0 10, CONVERT 4I670100| 37424 1 00011 2 40102 TXI DB817-1,2,9 SECOND PART 4I670200| 37425 0601 00 0 40143 DB6F4 STO DB8T2 AND COMBINE 4I670300| 37426 0074 00 4 40107 TSX DB820,4 AS SINGLE NUMBER 4I670400| 37427 4100 00 0 37433 DB6F5 TNZ *+4 TEST FOR ACTUAL 4I670500 37430 0131 00 0 00000 XCA 35 BIT INTEGER 4I670600| 37431 0760 00 0 00003 SSP 4I670700| 37432 0600 00 0 40137 STZ DB8DP SET PRINCIPAL 4I670800| 37433 0765 00 0 00000 LRS 0 PART, 4I670900| 37434 4600 00 0 40143 STQ DB8T2 STORE, 4I671000 37435 0601 00 0 40142 DB6F6 STO DB8T1 AND 4I671100| 37436 0774 00 1 00000 AXT **,1 RETURN 4I671200| 37437 0774 00 4 00000 AXT **,4 4I671300| 37440 0020 00 4 00001 TRA 1,4 4I671400| ALPHABETIC IN PRINCIPAL PART 4I671600| 37441 0074 00 4 37367 DB6BE TSX DB6FPP,4 FINISH PRINCIPAL PART (6)4I671700| 37442 4500 00 0 36754 CAL CHRCTR PICK UP TERMINATOR (6)4I671710| 0BINARY CARD ID. MAPJ0246| 37443 4320 00 0 21727 ANA MSKLO TEST TERMINATOR 4I671800 37444 0402 00 0 40165 SUB DB888 FOR B 4I671900| 37445 0100 00 0 37456 TZE DB7SB 4I672000| 37446 0634 00 1 40064 SXA DBCNX+2,1 SAVE TERMINATOR IN CASE OF ERROR (6)4I672010| 37447 0774 00 1 00000 AXT 0,1 SET FOR E OR D (6)4I672020| 37450 0402 00 0 21707 SUB L(3) IF NOT B, TEST 4I672100 37451 0100 00 0 37457 TZE DBCNB FOR E (6)4I672200| 37452 0400 00 0 21705 ADD L(1) OR D (6)4I672210| 37453 4100 00 0 37573 TNZ DB8FC+1 TERMINATE IF NEITHER (6)4I672220| 37454 0055 00 000004 SIR DBDBL SET DOUBLE PRECISION FOR D (6)4I672300| 37455 0020 00 0 37460 TRA DBCND (6)4I672400 | 37456 0774 00 1 77777 DB7SB AXT -1,1 SET FOR B TYPE 4I672600| 37457 0055 00 000200 DBCNB SIR DBSWL SET B OR E OCCURRED (6)4I672700| 37460 0057 00 000400 DBCND RIR DBLSO SET SIGN NOT ENCOUNTERED (6)4I672800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 149 CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37461 0522 00 1 40155 XEC DB7SSI,1 SET INDICATORS 4I673300| 37462 0634 00 1 37464 SXA *+2,1 SAVE TYPE 4I673400| 37463 0074 00 4 36662 DBCNC TSX BSCAN,4 SCAN NEXT FIELD, 4I673500| 37464 0774 00 4 00000 AXT **,4 PICK UP TYPE, AND 4I673600 37465 0522 00 1 40223 XEC DB7TR,1 BRANCH ON TERMINATOR 4I673700| | + OR - IN E OR B PART 4I673900| 37466 4734 00 2 00000 DB7PM PDX 0,2 TERMINATE LITERAL 4I674000| 37467 3 00000 2 37477 TXH DB7TP,2,0 IF NOT ZERO LENGTH 4I674100 37470 0054 00 000400 RFT DBLSO TEST FOR 4I674200| 0BINARY CARD ID. MAPJ0247| 37471 0055 00 004000 SIR DBMS3 TOO MANY SIGNS 4I674300| 37472 0055 00 000400 SIR DBLSO 4I674400| 37473 4054 00 004000 LFT MSB INVERT SIGN OF 4I674500 37474 0522 00 4 40202 XEC DB7IIR,4 PART 4I674600| 37475 0057 00 000200 RIR DBSWL 4I674700| 37476 0020 00 0 37463 TRA DBCNC BACK TO SCAN 4I674800| | 37477 0074 00 2 37501 DB7TP TSX DB7CBE,2 TERMINATE B OR E 4I675000 37500 0020 00 0 37572 TRA DB8FC AND THEN LITERAL 4I675100| | COMPLETE B OR E PART 4I675300| 37501 0634 00 1 37522 DB7CBE SXA DB7C2,1 SAVE 4I675400| 37502 0634 00 2 37523 SXA DB7C2+1,2 REGISTERS 4I675500 37503 0634 00 4 37515 SXA DB7C1,4 4I675600| 37504 0737 00 1 00000 PAC 0,1 ADDRESS OF CHARACTERS 4I675700| 37505 4734 00 2 00000 PDX 0,2 NUMBER OF CHARACTERS 4I675800| 37506 4625 00 0 40106 STL DB816 SET 4I675900| 37507 4754 00 0 37515 PXD DB7C1,0 CONVERSION 4I676000 37510 7 00000 2 37515 TXL DB7C1,2,0 4I676100| 37511 6 00002 2 37514 TNX *+3,2,2 TEST FOR 4I676200| 37512 0055 00 040000 SIR DBMS6 FIELD 4I676300| 37513 0774 00 2 00002 AXT 2,2 TOO LONG 4I676400| 37514 1 00001 1 40103 TXI DB817,1,1 CONVERT 4I676500 37515 0774 00 4 00000 DB7C1 AXT **,4 4I676600| 37516 0522 00 4 40221 XEC DB7RFT,4 SET SIGN 4I676700| 0BINARY CARD ID. MAPJ0248| 37517 4760 00 0 00003 SSM OF PART, 4I676800| 37520 0400 00 4 40140 ADD DB8PW,4 4I676900 37521 0601 00 4 40140 STO DB8PW,4 AND STORE 4I677000| 37522 0774 00 1 00000 DB7C2 AXT **,1 4I677100| 37523 0774 00 2 00000 AXT **,2 4I677200| 37524 0020 00 2 00001 TRA 1,2 4I677300| ALPHABETIC IN B OR E PART 4I677500| 37525 0131 00 0 00000 DB7BE XCA 4I677600| 37526 4500 00 0 36754 CAL CHRCTR (6)4I677610| 37527 4320 00 0 21727 ANA MSKLO TEST TERMINATOR 4I677700| 37530 0402 00 0 40165 SUB DB888 FOR B 4I677800 37531 0100 00 0 37540 TZE DB77B 4I677900| 37532 0402 00 0 21707 SUB L(3) IF NOT B, 4I678000| 37533 0100 00 0 37553 TZE DB77E TEST FOR E 4I678100| 37534 0400 00 0 21705 ADD L(1) OR D (6)4I678110| 37535 0100 00 0 37552 TZE DB77A (6)4I678120 1 IBMAPV IBMAPJ 12/01/64 PAGE 150 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37536 0131 00 0 00000 XCA IF NEITHER, TERMINATE 4I678200| 37537 0020 00 0 37477 TRA DB7TP 4I678300| 37540 3 00000 4 37556 DB77B TXH DB7TWB,4,0 SAME AS PREVIOUS 4I678500| 37541 0774 00 2 77777 AXT -1,2 SET THIS 4I678600| 37542 0634 00 2 37545 DB77C SXA DB77D,2 TYPE CODE 4I678700| 37543 0131 00 0 00000 XCA 4I678800| 37544 0074 00 2 37501 TSX DB7CBE,2 FINISH LAST PART 4I678900 0BINARY CARD ID. MAPJ0249| 37545 0774 00 1 00000 DB77D AXT **,1 CONTINUE IF 4I679000| 37546 0522 00 1 40157 XEC DB8RNT,1 NOT SAME AS 4I679100| 37547 0020 00 0 37457 TRA DBCNB PREVIOUS 4I679200| 37550 0522 00 0 37522 XEC DB7C2 OTHERWISE, 4I679300 37551 0020 00 0 37572 TRA DB8FC TERMINATE 4I679400| 37552 0055 00 000004 DB77A SIR DBDBL SET INDICATOR FOR D (6)4I679410| 37553 7 00000 4 37556 DB77E TXL DB7TWB,4,0 SAME AS PREVIOUS 4I679500| 37554 0774 00 2 00000 AXT 0,2 IF NOT, 4I679600| 37555 0020 00 0 37542 TRA DB77C SET AGAIN 4I679700 | 37556 0131 00 0 00000 DB7TWB XCA TEST FOR 4I679900| 37557 4734 00 2 00000 PDX 0,2 ZERO FIELD 4I680000| 37560 7 00000 2 37563 TXL *+3,2,0 LENGTH 4I680100| 37561 0055 00 010000 DB7TWC SIR DBMS4 ERROR IF NOT 4I680200 37562 0020 00 0 37477 TRA DB7TP 4I680300| 37563 0056 00 000200 RNT DBSWL IF SO, TEST 4I680400| 37564 0020 00 0 37561 TRA DB7TWC FOR 4I680500| 37565 0055 00 000004 SIR DBDBL DOUBLE 4I680600| 37566 0057 00 000200 RIR DBSWL PRECISION 4I680700 37567 0020 00 0 37463 TRA DBCNC 4I680800| | 37570 0055 00 020000 DB7DP SIR DBMS5 DECIMAL POINT 4I681000| 37571 0020 00 0 37477 TRA DB7TP IS ERROR 4I681100| * FINAL CONVERSION OF LITERAL 4I681300| * 4I681400| 37572 0634 00 1 40064 DB8FC SXA DBCNX+2,1 SAVE TERMINATOR 4I681500| 0BINARY CARD ID. MAPJ0250| 37573 0500 00 0 40140 CLA DB8PW TRUE EXPONENT 4I681600 37574 0057 00 000040 RIR DBSEP 4I681700| 37575 0120 00 0 37577 TPL *+2 SAVE SIGN OF 4I681800| 37576 0055 00 000040 SIR DBSEP EXPONENT 4I681900| 37577 0734 00 1 00000 PAX 0,1 EXP TO IR1 4I682000| 37600 4520 00 0 40142 NZT DB8T1 4I682100 37601 0020 00 0 37744 TRA DB837+2 4I682200| 37602 0774 00 2 00200 AXT 128,2 CHARACTERISTIC 4I682300| 37603 0520 00 0 40137 ZET DB8DP IS IN IR2 4I682400| 37604 0774 00 2 00243 AXT 163,2 4I682500| 37605 0600 00 0 40144 STZ DB8T3 4I682600 37606 7 00000 1 37657 TXL DB832,1,0 EXPONENT IS ZERO 4I682700| 37607 4774 00 4 40142 AXC DB8T1,4 4I682800| 37610 0634 00 1 37654 DB827 SXA DB831,1 4I682900| 37611 7 00012 1 37613 TXL *+2,1,10 4I683000| 37612 0774 00 1 00012 AXT 10,1 4I683100 37613 0500 00 1 40137 CLA DB884+10,1 4I683200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 151 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37614 0601 00 0 40140 STO DB8PW 4I683300| 37615 0056 00 000040 RNT DBSEP 4I683400 37616 1 77776 4 37633 TXI DB829,4,-2 4I683500| | NEGATIVE EXPONENT 4I683700| 37617 4754 00 0 00000 PXD 0,0 4I683800| 37620 0774 00 1 00003 AXT 3,1 4I683900 0BINARY CARD ID. MAPJ0251| 37621 0774 00 4 00003 AXT 3,4 4I684000| 37622 0560 00 4 40145 DB828 LDQ DB8T1+3,4 4I684100| 37623 0221 00 0 40140 DVP DB8PW 4I684200| 37624 4600 00 1 40145 STQ DB8T1+3,1 4I684300 37625 4520 00 0 40142 NZT DB8T1 4I684400| 37626 1 77735 2 37630 TXI *+2,2,-35 REDUCE CHARACTERISTIC 4I684500| 37627 6 00001 1 37654 TNX DB831,1,1 STEP TO NEXT RESULT STORAGE 4I684600| 37630 2 00001 4 37622 TIX DB828,4,1 STEP TO NEXT PART OF DIVIDEND 4I684700| 37631 0560 00 0 21704 LDQ L(0) CLEAR MQ 4I684800 37632 0020 00 0 37623 TRA DB828+1 4I684900| | POSITIVE EXPONENT 4I685100| 37633 0774 00 1 00003 DB829 AXT 3,1 4I685200| 37634 0560 00 0 40140 LDQ DB8PW 4I685300 37635 0200 00 4 00000 MPY 0,4 4I685400| 37636 3 00002 1 37645 TXH DB830,1,2 4I685500| 37637 0131 00 0 00000 XCA 4I685600| 37640 0400 00 4 00001 ADD 1,4 4I685700| 37641 4130 00 0 00000 XCL 4I685800 37642 0162 00 0 37645 TQP *+3 4I685900| 37643 0400 00 0 21705 ADD L(1) 4I686000| 37644 0765 00 0 00000 LRS 0 4I686100| 37645 0601 00 4 00000 DB830 STO 0,4 4I686200| 37646 4600 00 4 00001 STQ 1,4 4I686300 0BINARY CARD ID. MAPJ0252| 37647 6 00001 1 37651 TNX *+2,1,1 4I686400| 37650 1 00001 4 37634 TXI DB829+1,4,1 4I686500| 37651 0100 00 0 37653 TZE *+2 4I686600| 37652 1 00043 2 37654 TXI DB831,2,35 INCREMENT CHARACTERISTIC 4I686700 37653 1 77777 4 37654 TXI DB831,4,-1 4I686800| 37654 0774 00 1 00000 DB831 AXT **,1 4I686900| 37655 2 00012 1 37610 TIX DB827,1,10 4I687000| 37656 0054 00 000040 RFT DBSEP 4I687100| 37657 4774 00 4 40142 DB832 AXC DB8T1,4 4I687200 37660 0054 00 000032 RFT DBBHA+DBEHA+DBPER 4I687400| 37661 0054 00 000020 RFT DBBHA 4I687500| 37662 0020 00 0 37747 TRA DB840 4I687600| | FLOATING POINT. NORMALIZE MANT, ADJUST CHAR 4I687800 37663 4760 00 0 00004 LFTM 4I688000| 37664 0500 00 4 00000 CLA 0,4 4I688100| 37665 0765 00 0 00010 LRS 8 4I688200| 37666 0400 00 0 40161 ADD DB871 35B8 4I688300| 37667 0601 00 0 40140 STO DB8PW 4I688400 37670 0500 00 0 40162 CLA DB872 27B16 4I688500| 37671 0763 00 0 00010 LLS 8 4I688600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 152 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 37672 0300 00 0 40140 FAD DB8PW 4I688700 37673 0771 00 0 00011 ARS 9 4I688800| 37674 4734 00 1 00000 PDX 0,1 4I688900| 0BINARY CARD ID. MAPJ0253| 37675 0622 00 0 37676 STD *+1 4I689000| 37676 1 00000 2 37677 TXI *+1,2,** 4I689100 37677 3 01750 2 37742 TXH DB837,2,1000 UNDERFLOW 4I689200| 37700 3 00377 2 37735 TXH DB835+1,2,255 OVERFLOW 4I689300| 37701 0500 00 4 00001 CLA 1,4 4I689400| 37702 0560 00 4 00002 LDQ 2,4 4I689500| 37703 0763 00 1 00043 LLS 35,1 4I689600 37704 0601 00 4 00002 STO 2,4 4I689700| 37705 0500 00 4 00000 CLA 0,4 4I689800| 37706 0560 00 4 00001 LDQ 1,4 4I689900| 37707 0763 00 1 00043 LLS 35,1 4I690000| 37710 0560 00 4 00002 LDQ 2,4 4I690100 37711 0765 00 0 00010 LRS 8 4I690200| 37712 0601 00 4 00000 STO 0,4 4I690300| 37713 4754 00 2 00000 PXD 0,2 4I690400| 37714 0767 00 0 00011 ALS 9 4I690500| 37715 0140 00 0 37716 TOV *+1 4I690600 37716 0054 00 000004 RFT DBDBL 4I690700| 37717 1 77745 2 37725 TXI DB833,2,-27 DOUBLE PRECISION 4I690800| 37720 4501 00 4 00000 DB834 ORA 0,4 SINGLE PRECISION 4I690900| 37721 4773 00 0 00034 RQL 28 4I691000| 37722 0760 00 0 00011 FRN 4I691100 0BINARY CARD ID. MAPJ0254| 37723 0560 00 0 21704 LDQ L(0) CLEAR MQ 4I691200| 37724 0020 00 0 37734 TRA DB835 4I691300| 37725 3 00400 2 37720 DB833 TXH DB834,2,256 4I691400| 37726 4602 00 4 00000 ORS 0,4 4I691500 37727 0754 00 2 00000 PXA 0,2 4I691600| 37730 0763 00 0 00033 LLS 27 4I691700| 37731 4773 00 0 00034 RQL 28 4I691800| 37732 0760 00 0 00011 FRN 4I691900| 37733 0300 00 4 00000 FAD 0,4 4I692000 37734 4140 00 0 40034 DB835 TNO DB836 4I692100| | OVERFLOW 4I692300| 37735 0074 00 4 25623 TSX ERPR,4 'FLOATING POINT 4I692400| 37736 0 00000 2 00017 PZE MSS011,NOGO OVERFLOW, ETC 4I692500 37737 0500 00 0 40163 CLA DB877 377777777777 4I692600| 37740 0560 00 0 40164 LDQ DB878 344777777777 4I692700| 37741 0020 00 0 40034 TRA DB836 4I692800| | UNDERFLOW 4I693000 37742 0074 00 4 25623 DB837 TSX ERPR,4 'FLOATING POINT 4I693100| 37743 0 00000 2 00020 PZE MSS012,NOGO UNDERFLOW, ETC 4I693200| 37744 0754 00 0 00000 PXA 0,0 CLEAR AC 4I693300| 37745 0560 00 0 21704 LDQ L(0) AND MQ 4I693400| 37746 0020 00 0 40034 TRA DB836 4I693500 | | FIXED POINT. SHIFT TO CORRECT POSITION 4I693700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 153 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ 0 37747 0520 00 0 40137 DB840 ZET DB8DP 4I693800| 37750 1 77535 2 37752 TXI *+2,2,-163 RECOVER NOMINAL 4I693900| 0BINARY CARD ID. MAPJ0255| 37751 1 77600 2 37752 TXI *+1,2,-128 SCALE POSITION 4I694000| 37752 7 00000 2 37764 DB900 TXL DB901,2,0 4I694100 37753 0754 00 2 00000 PXA 0,2 IF BINARY POINT 4I694200| 37754 4760 00 0 00003 SSM WAS 4I694300| 37755 0056 00 000040 RNT DBSEP SHIPPED 4I694400| 37756 0020 00 0 37761 TRA *+3 ADJUST BINARY 4I694500| 37757 0400 00 0 21725 ADD MSKTG SCALE 4I694600 37760 4320 00 0 21723 ANA MSKAD 4I694700| 37761 0400 00 0 40141 ADD DB8BW TO REFLECT 4I694800| 37762 0057 00 000100 RIR DBSBP AMOUNT OF SHIFT 4I694900| 37763 0020 00 0 37765 TRA *+2 4I695000| 37764 0500 00 0 40141 DB901 CLA DB8BW PICK UP 4I695100 37765 0734 00 2 00000 PAX 0,2 SHIFT COUNT 4I695200| 37766 0120 00 0 37771 TPL *+3 4I695300| 37767 0737 00 2 00000 PAC 0,2 IF NEGATIVE, RESET 4I695400| 37770 0055 00 000100 SIR DBSBP FOR LEFT ONLY 4I695500| 37771 0500 00 4 00000 CLA 0,4 4I695600 37772 0560 00 4 00001 LDQ 1,4 4I695700| 37773 0056 00 000020 RNT DBBHA SET NOMINAL SCALE 4I695800| 37774 0774 00 2 00043 AXT 35,2 IF NO B OCCURRED 4I695900| 37775 0054 00 000100 RFT DBSBP 4I696000| 37776 0020 00 0 40003 TRA DB841 ALWAYS LEFT IF NEG 4I696100 0BINARY CARD ID. MAPJ0256| 37777 2 00106 2 40021 TIX DB842,2,70 ALWAYS RIGHT IF GTR 70 4I696200| 40000 0520 00 0 40137 ZET DB8DP ADJUST FOR BINARY 4I696300| 40001 1 77735 2 40002 TXI *+1,2,-35 TO RIGHT OF MQ 4I696400| 40002 2 00043 2 40023 TIX DB843,2,35 TEST FOR RIGHT SHIFT 4I696500 | SHIFT IS LEFT 4I696700| 40003 0140 00 0 40004 DB841 TOV *+1 RESET OFLOW TRIGGER 4I696800| 40004 0763 00 2 00043 LLS 35,2 SHIFT UPPER 4I696900| 40005 0601 00 4 00000 STO 0,4 AND SAVE 4I697000 40006 4140 00 0 40013 TNO *+5 4I697100| 40007 0634 00 4 40012 SXA *+3,4 4I697200| 40010 0074 00 4 25623 TSX ERPR,4 'SIGNIFICANT DIGITS LOST IN 4I697300| 40011 0 00000 2 00021 PZE MSS013,NOGO SHIFTING FIXED POINT NUMBER' 4I697400| 40012 0774 00 4 00000 AXT **,4 4I697500 40013 0560 00 4 00002 LDQ 2,4 4I697600| 40014 0500 00 4 00001 CLA 1,4 SHIFT 4I697700| 40015 0763 00 2 00043 LLS 35,2 LOWER, 4I697800| 40016 0131 00 0 00000 XCA PUT TOGETHER 4I697900| 40017 0500 00 4 00000 CLA 0,4 AND EXIT 4I698000 40020 0020 00 0 40034 TRA DB836 4I698100| | SHIFT IS RIGHT 4I698300| 40021 4520 00 0 40137 DB842 NZT DB8DP ADJUST FOR BINARY 4I698400| 40022 1 00043 2 40023 TXI *+1,2,35 POINT TO RIGHT OF ACC 4I698500 40023 0634 00 2 40024 DB843 SXA *+1,2 4I698600| 40024 4774 00 2 00000 AXC **,2 SHIFT 4I698700| 0BINARY CARD ID. MAPJ0257| 1 IBMAPV IBMAPJ 12/01/64 PAGE 154 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ 0 40025 0765 00 2 00000 LRS 0,2 NUMBER 4I698800| 40026 4100 00 0 40034 TNZ DB836 4I698900| 40027 0040 00 0 40032 TLQ *+3 4I699000| 40030 0054 00 000004 RFT DBDBL ISSUE MESSAGE IF NO 4I699100| 40031 0020 00 0 40034 TRA DB836 SIGNIGICANT DIGITS 4I699200 40032 0074 00 4 25623 TSX ERPR,4 4I699300| 40033 0 00000 2 00021 PZE MSS013,NOGO 4I699400| | 40034 0054 00 000001 DB836 RFT DBSPP SET SIGN 4I699600| 40035 4760 00 0 00003 SSM OF NUMBER, 4I699700 40036 0765 00 0 00000 LRS 0 AND STORE 4I699800| 40037 0601 00 0 40142 STO DB8T1 4I699900| 40040 4600 00 0 40143 STQ DB8T2 4I700000| 40041 0600 00 0 40137 STZ DB8DP SET PRECISION 4I700100| 40042 0054 00 000004 RFT DBDBL INDICATOR 4I700200 40043 4625 00 0 40137 STL DB8DP 4I700300| | PRINT ERROR MESSAGES, AND EXIT 4I700500| 40044 0774 00 1 00006 AXT 6,1 4I700600| 40045 4055 00 077777 SIL 77777 4I700700 40046 0446 00 1 40125 DB850 ONT DB882,1 4I700800| 40047 0020 00 0 40055 TRA *+6 4I700900| 40050 0500 00 1 40125 CLA DB882,1 4I701000| 40051 0771 00 0 00025 ARS 21 4I701100| 40052 0621 00 0 40054 STA *+2 4I701200 0BINARY CARD ID. MAPJ0258| 40053 0074 00 4 25623 TSX ERPR,4 4I701300| 40054 0 00000 2 00000 PZE **,NOGO 4I701400| 40055 2 00001 1 40046 TIX DB850,1,1 4I701500| 40056 4625 00 0 27716 STL FLOAT ASSUME FLOATING $5$4I701501 40057 0054 00 000012 RFT DBEHA+DBPER ARE PT AND E ABSENT $5$4I701502| 40060 0054 00 000020 RFT DBBHA NO, IS B PRESENT $5$4I701503| 40061 0600 00 0 27716 STZ FLOAT B OR NOT(PT OR E) FIXED $5$4I701504| | 40062 0774 00 4 00000 DBCNX AXT **,4 4I701700 40063 0774 00 2 00000 AXT **,2 4I701800| 40064 0774 00 1 00000 AXT **,1 4I701900| 40065 0441 00 0 40152 LDI DB8SI 4I702000| 40066 0500 00 0 40153 CLA DB8SJ 4I702100| 40067 0601 00 0 36452 STO SCLFT 4I702200 40070 0020 00 4 00001 TRA 1,4 4I702300| | | *CONVERT DECIMAL INTEGER TO BINARY 4I702500| * 4I702600 * X1 POINTER FOR BCD WORD 4I702700| * X2 NO. OF DIGITS 4I702800| * X4 REMAINING CHARACTER COUNT OF CURRENT BCD WORD IN MQ 4I702900| * 4I703000| 40071 0162 00 0 40074 DB815 TQP *+3 4I703100 40072 4773 00 0 00006 RQL 6 SKIP OVER NON-NUMERIC CHARACTER 4I703200| 40073 0020 00 0 40102 TRA DB817-1 4I703300| 40074 0602 00 0 40144 SLW DB8T3 4I703400| 40075 0767 00 0 00002 ALS 2 4I703500| 40076 0361 00 0 40144 ACL DB8T3 4I703600 1 IBMAPV IBMAPJ 12/01/64 PAGE 155 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 40077 0767 00 0 00001 ALS 1 4I703700| 40100 4114 01 0 21704 CAQ L(0),,1 4I703800| 0BINARY CARD ID. MAPJ0259 40101 6 00001 2 40106 TNX DB816,2,1 MOVE TO NEXT LOWER DIGIT 4I703900| 40102 2 00001 4 40071 TIX DB815,4,1 MOVE TO NEXT CHARACTER 4I704000| 40103 0774 00 4 00006 DB817 AXT 6,4 MOVE TO NEXT WORD 4I704100| 40104 0560 00 1 00001 LDQ 1,1 4I704200| 40105 1 77777 1 40071 TXI DB815,1,-1 4I704300 40106 0020 60 0 00000 DB816 TRA* ** 4I704400| | | *FORM DOUBLE PRECISION BINARY INTEGER 4I704600| * 4I704700 40107 0560 00 0 40125 DB820 LDQ DB884 10**10 4I704800| 40110 0200 00 0 40142 MPY DB8T1 PART 1 WITHOUT SIGN 4I704900| 40111 0131 00 0 00000 XCA 4I705000| 40112 0361 00 0 40143 ACL DB8T2 PART 2 WITHOUT SIGN 4I705100| 40113 4130 00 0 00000 XCL CARRY INTO SIGN OF MQ 4I705200 40114 0162 00 4 00001 TQP 1,4 4I705300| 40115 0361 00 0 21705 ACL L(1) 1B35 4I705400| 40116 0020 00 4 00001 TRA 1,4 NOTE THAT MQ IS MINUS 4I705500| | *TABLE OF ERROR TYPES 4I706700| * 4I706800| 40117 000220001000 VFD 15/MSS014,21/DBMS1 4I706900| 40120 000230002000 VFD 15/MSS015,21/DBMS2 4I707000| 40121 000240004000 VFD 15/MSS016,21/DBMS3 4I707100 40122 000250010000 VFD 15/MSS017,21/DBMS4 4I707200| 40123 000260020000 VFD 15/MSS018,21/DBMS5 4I707300| 40124 000270040000 VFD 15/MSS019,21/DBMS6 4I707400| 40125 DB882 SYN * 4I707500| | *TABLE OF POWERS OF TEN 4I707700| * 4I707800| 40125 112402762000 DB884 DEC 10000000000,1000000000,100000000,10000000,1000000 4I707900| 0BINARY CARD ID. MAPJ0260 40132 000000303240 DEC 100000,10000,1000,100,10 4I708000| | | * CONSTANTS AND STORAGE 4I708200| * 4I708300 40137 DB8TB SYN * 4I708400| 40137 0 00000 0 00000 DB8DP PZE 0 DP INDICATOR 4I708500| 40140 0 00000 0 00000 DB8PW PZE 0 EXP PART 4I708600| 40141 0 00000 0 00000 DB8BW PZE 0 BIN PART 4I708700| 40142 0 00000 0 00000 DB8T1 PZE 0 STORAGE FOR 4I708800 40143 0 00000 0 00000 DB8T2 PZE 0 CONVERTED NUMBER 4I708900| 40144 0 00000 0 00000 DB8T3 PZE 0 4I709000| 40152 DB8TBE BES 5 4I709100| | 0BINARY CARD ID. MAPJ0261 1 IBMAPV IBMAPJ 12/01/64 PAGE 156 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 40152 0 00000 0 00000 DB8SI PZE 0 SENSE INDICATORS 4I709300| 40153 0 00000 0 00000 DB8SJ PZE ** SCAN TEST AT ENTRY 4I709400| 40154 4054 00 037774 DBSCC LFT 37774 SCAN TERMINATE TEST 4I709500 40155 0055 00 000010 DB7SSI SIR DBEHA INDICATOR SETTINGS (6)4I709600| 40156 0055 00 000020 SIR DBBHA FOR B, D, AND E (6)4I709700| 40157 0056 00 000010 DB8RNT RNT DBEHA TEST FOR PREVIOUS 4I709800| 40160 0056 00 000020 RNT DBBHA OCCURRENCE OF E OR B 4I709900| 40161 043000000000 DB871 OCT 043000000000 4I710100| 40162 000066000000 DB872 OCT 000066000000 4I710200| 40163 377777777777 DB877 OCT 377777777777 4I710300| 40164 344777777777 DB878 OCT 344777777777 4I710400| 40165 000000000022 DB888 BCI 1,00000B 4I710500 | | * TRANSFER TABLES 4I710700| * 4I710800| TRANSFER TABLE FOR PP SCAN. 4I711000| 40166 0020 00 0 37365 TRA DB6TP / 4I711100| 40167 0020 00 0 37365 TRA DB6TP * 4I711200| 40170 0020 00 0 37352 TRA DB6PM - 4I711300| 40171 0020 00 0 37352 TRA DB6PM + 4I711400 40172 0020 00 0 37365 TRA DB6TP , 4I711500| 40173 0020 00 0 37365 TRA DB6TP $ 4I711600| 40174 0020 00 0 37365 TRA DB6TP = 4I711700| 40175 0020 00 0 37365 TRA DB6TP ' 4I711800| 40176 0020 00 0 37365 TRA DB6TP ) 4I711900 40177 0020 00 0 37365 TRA DB6TP ( 4I712000| 0BINARY CARD ID. MAPJ0262| 40200 0020 00 0 37333 TRA DB6DP . 4I712100| 40201 0020 00 0 37441 TRA DB6BE ALPHA 4I712200| 40202 0051 00 000040 DB7IIR IIR DBSEP DEC (CANNOT 4I712300 40203 0051 00 000100 IIR DBSBP NUM OCCUR) 4I712400| 40204 0020 00 0 37365 TRA DB6TP BLANK 4I712500| 40204 DB6TR SYN *-1 4I712600| | TRANSFER TABLE FOR B AND E SCANS. 4I712800 40205 0020 00 0 37477 TRA DB7TP 4I712900| 40206 0020 00 0 37477 TRA DB7TP * 4I713000| 40207 0020 00 0 37466 TRA DB7PM - 4I713100| 40210 0020 00 0 37466 TRA DB7PM + 4I713200| 40211 0020 00 0 37477 TRA DB7TP , 4I713300 40212 0020 00 0 37477 TRA DB7TP $ 4I713400| 40213 0020 00 0 37477 TRA DB7TP = 4I713500| 40214 0020 00 0 37477 TRA DB7TP ' 4I713600| 40215 0020 00 0 37477 TRA DB7TP ) 4I713700| 40216 0020 00 0 37477 TRA DB7TP ( 4I713800 40217 0020 00 0 37570 TRA DB7DP . 4I713900| 40220 0020 00 0 37525 TRA DB7BE ALPHA 4I714000| 40221 0054 00 000040 DB7RFT RFT DBSEP DEC (CANNOT 4I714100| 40222 0054 00 000100 RFT DBSBP NUM OCCUR) 4I714200| 40223 0020 00 0 37477 TRA DB7TP BLANK 4I714300 40223 DB7TR SYN *-1 4I714400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 157 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * CONSTANT POOL HANDLER. CALLING SEQUENCE- 4I716700 * 4I716800| * TSX CPLN,4 4I716900| * PZE LOC,,N 4I717000| * 4I717100| * WHERE LOC IS THE LOCATION OF N WORDS TO BE 4I717200 * PLACED IN THE POOL. UPON RETURN, THE ACCUMULATOR 4I717300| * CONTAINS A TEXT WORD DESCRIBING THE LITERAL 4I717400| * 4I717500| * IF ENTERED VIA 4I717600| * 4I717700 * TSX CPL,4 4I717800| * 4I717900| * THE ROUTINE ASSUMES THAT THE LOGICAL ACCUMULATOR 4I718000| * IS A SINGLE WORD TO GO INTO THE POOL 4I718100| | 40224 0602 00 0 40451 CPL SLW CPLK+1 SINGLE 4I718300| 40225 0500 00 0 40450 CLA CPLK WORD 4I718400| 0BINARY CARD ID. MAPJ0263| 40226 1 00001 4 40230 TXI CPLNA,4,1 ENTRY 4I718500 | 40227 0500 00 4 00001 CPLN CLA 1,4 CALLING SEQ WD 4I718700| 40230 0634 00 4 40346 CPLNA SXA CPLX,4 SAVE 4I718800| 40231 0634 00 2 40347 SXA CPLX+1,2 INDICES 4I718900| 40232 0634 00 1 40350 SXA CPLX+2,1 4I719000 40233 0621 00 0 40251 STA CPLC FETCH ADDRESS 4I719100| 40234 4737 00 4 00000 PDC 0,4 SAVE COUNT FOR 4I719200| 40235 4634 00 4 40272 SXD CPLG,4 END TEST 4I719300| 40236 4634 00 4 40333 SXD CPLJJ,4 4I719400| 40237 1 00002 4 40240 TXI *+1,4,2 SET SWITCH FOR 4I719500 40240 0634 00 4 40456 SXA CPLEVS,4 EVEN TEST 4I719600| 40241 0600 00 0 40455 STZ CPLBSW RESET POOL 4I719700| 40242 0634 00 0 40412 SXA CPBRDA,0 BUFFER COUNTS 4I719800| 40243 0600 00 0 40457 STZ CPLBSZ 4I719900| 40244 0774 00 2 00000 AXT 0,2 4I720000 40245 4520 00 0 21445 NZT CPLB IF NO ITEMS $5$4I720100| 40246 0020 00 0 40432 TRA CPL14 GO MAKE ID ENTRY $5$4I720200| 40247 1 40250 2 40402 TXI CPBRD,2,*+1 OTHERWISE, FIRST READ 4I720300| 40250 0774 00 1 00000 CPLA AXT 0,1 4I720400| 40251 4500 00 1 00000 CPLC CAL **,1 4I720500 40252 4340 00 4 00000 CPLD LAS **,4 COMPARE ITEM WITH 4I720600| 40253 1 77777 4 40256 TXI CPLE,4,-1 POOL WORD. 4I720700| 0BINARY CARD ID. MAPJ0264| 40254 0020 00 0 40264 TRA CPLEE IF NOT FIRST 4I720800| 40255 1 77777 4 40256 TXI CPLE,4,-1 EQUAL, TEST 4I720900 40256 2 00001 2 40252 CPLE TIX CPLD,2,1 END OF POOL 4I721000| 40257 4520 00 0 40455 NZT CPLBSW 4I721100| 40260 1 40250 2 40402 TXI CPBRD,2,CPLC-1 NEXT BUFFER IF 4I721200| 40261 4520 00 0 40457 NZT CPLBSZ NOT LAST. ELSE, 4I721300| 40262 1 40307 2 40402 TXI CPBRD,2,CPNON-1 NEXT IF LAST WAS 4I721400 40263 0020 00 0 40310 TRA CPNON EXACTLY FULL. 4I721500| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 158 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 FIRST ITEM COMPARES 4I721700 40264 0634 00 2 40304 CPLEE SXA CPLH+1,2 SAVE CURRENT COUNT 4I721800| 40265 0074 00 1 40352 TSX CPEVT,1 TEST FOR ALLOWANCE POSITION 4I721900| 40266 1 77777 4 40270 TXI *+2,4,-1 YES OK 4I722000| 40267 0020 00 0 40303 TRA CPLH NO GOOD 4I722100| 40270 0774 00 1 00000 AXT 0,1 RESET POSITION FOR TEST 4I722200 40271 1 77777 1 40272 CPLF TXI *+1,1,-1 4I722300| 40272 7 00000 1 40335 CPLG TXL CPYES,1,** TEST ALL ITEMS 4I722400| 40273 2 00001 2 40277 TIX *+4,2,1 TEST END THIS POOL 4I722500| 40274 0520 00 0 40455 ZET CPLBSW NOT FOUND 4I722600| 40275 0020 00 0 40310 TRA CPNON IF LAST BUFFER 4I722700 40276 1 40276 2 40402 TXI CPBRD,2,* 4I722800| 40277 0522 00 0 40251 XEC CPLC 4I722900| 40300 0522 00 0 40252 XEC CPLD COMPARE NEXT 4I723000| 40301 0020 00 0 40303 TRA *+2 ITEM 4I723100| 0BINARY CARD ID. MAPJ0265 40302 1 77777 4 40271 TXI CPLF,4,-1 TEST NEXT 4I723200| 40303 0774 00 4 00000 CPLH AXT **,4 RELOAD AND 4I723300| 40304 0774 00 2 00000 AXT **,2 TRY AGAIN 4I723400| 40305 0774 00 1 00000 AXT 0,1 4I723500| 40306 0522 00 0 40251 XEC CPLC 4I723600 40307 1 77777 4 40256 TXI CPLE,4,-1 4I723700| | ITEM NOT IN POOL 4I723900| 40310 0774 00 2 00000 CPNON AXT **,2 LAST POOL REM COUNT 4I724000| 40311 0074 00 1 40352 TSX CPEVT,1 TEST ALLOWABLE POSITION 4I724100 40312 1 40311 1 40321 TXI CPNOM,1,*-1 O.K. - GO AHEAD 4I724200| 40313 1 77777 4 40314 TXI *+1,4,-1 RESET FIRST 4I724300| 40314 0634 00 4 40303 SXA CPLH,4 WORD LOCATION 4I724400| 40315 0774 00 1 00001 AXT 1,1 4I724500| 40316 0560 00 0 21704 LDQ L(0) 4I724600 40317 0522 00 0 40321 XEC CPNOM 4I724700| 40320 1 00001 4 40323 TXI CPLJ+1,4,1 4I724800| 40321 0500 00 0 21445 CPNOM CLA CPLB 4I724900| 40322 0560 60 0 40251 CPLJ LDQ* CPLC STORE CURRENT 4I725000| 40323 4600 60 0 40252 STQ* CPLD WORD 4I725100 40324 0400 00 0 21705 ADD L(1) SET NEW TOTAL 4I725200| 40325 0621 00 0 21445 STA CPLB POOL COUNT 4I725300| 40326 2 00001 2 40330 TIX CPLJA,2,1 COUNT WORD INTO BUFFER 4I725400| 40327 1 40330 2 40366 TXI CPBWR,2,CPLJA GET NEXT IF EMPTY 4I725500| 0BINARY CARD ID. MAPJ0266 40330 1 77777 4 40331 CPLJA TXI *+1,4,-1 BUMP TO NEXT 4I725600| 40331 1 77777 1 40332 TXI *+1,1,-1 NEXT ITEM 4I725700| 40332 7 00000 1 40322 TXL CPLJ,1,0 4I725800| 40333 3 00000 1 40322 CPLJJ TXH CPLJ,1,** TEST END 4I725900| 40334 0634 00 2 40310 SXA CPNON,2 SAVE LAST COUNT 4I726000 | COMPUTE POOL LOCATION 4I726200| 40335 0074 00 4 21355 CPYES TSX CLOSE,4 CLOSE FILE 4I726300| 40336 5 00000 0 21640 FVE CPOOLF AND ADJUST 4I726400| 40337 4500 00 0 21647 CAL CPOOLF+7 INDICATOR BIT 4I726500 40340 4320 00 0 40336 ANA *-2 4I726600| 40341 0630 00 0 21647 STP CPOOLF+7 4I726700| 40342 0535 00 4 40303 LAC CPLH,4 POSITION 4I726800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 159 | CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ 0 40343 0754 00 4 00000 PXA 0,4 COUNT PLUS 4I726900| 40344 0400 00 0 40452 ADD CPLMJ INITIAL COUNT 4I727000| 40345 4501 00 0 31032 ORA LOG09 FINAL TEXT $5$4I727100| 40346 0774 00 4 00000 CPLX AXT **,4 RESTORE 4I727200| 40347 0774 00 2 00000 AXT **,2 AND 4I727300 40350 0774 00 1 00000 AXT **,1 EXIT 4I727400| 40351 0020 00 4 00002 TRA 2,4 4I727500| | TEST FOR NECESSARY EVEN 4I727700| 40352 0500 00 0 40453 CPEVT CLA CPLBT SAVE COUNT, START 4I727800 40353 0601 00 0 40452 STO CPLMJ OF THIS BUFFER 4I727900| 40354 0634 00 4 40303 SXA CPLH,4 SAVE POSITION 4I728000| 40355 0520 00 0 40456 ZET CPLEVS ALL OK IF EVEN 4I728100| 0BINARY CARD ID. MAPJ0267| 40356 0020 00 1 00001 TRA 1,1 NOT NECESSARY 4I728200 40357 0535 00 4 40303 LAC CPLH,4 COMPUTE RELATIVE 4I728300| 40360 0754 00 4 00000 PXA 0,4 POSITION OF 4I728400| 40361 0400 00 0 40452 ADD CPLMJ POINTER TO 4I728500| 40362 0522 00 0 40303 XEC CPLH FIRST WORD 4I728600| 40363 0760 00 0 00001 LBT TEST- 4I728700 40364 0020 00 1 00001 TRA 1,1 1. EVEN. OK. 4I728800| 40365 0020 00 1 00002 TRA 2,1 2. ODD. NO GOOD 4I728900| | FETCH BUFFER TO WRITE 4I729100| 40366 0634 00 2 40401 CPBWR SXA CPBWX,2 SAVE EXIT 4I729200 40367 0074 00 4 25760 TSX INFIN,4 NEXT WRITE 4I729300| 40370 0 00000 0 21640 PZE CPOOLF BUFFER 4I729400| 40371 0601 00 0 40454 STO CPLBW 4I729500| 40372 4734 00 2 00000 PDX 0,2 SET LAST BUFFER 4I729600| 40373 0754 00 2 00000 PXA 0,2 COUNT, COMPUTE 4I729700 40374 0402 00 0 40454 SUB CPLBW INITIAL 4I729800| 40375 0621 00 0 40252 STA CPLD BUFFER ADDRESS 4I729900| 40376 0774 00 4 00000 AXT 0,4 LOCATOR 4I730000| 40377 0500 00 0 21445 CLA CPLB TOTAL COUNT, START 4I730100| 40400 0601 00 0 40453 STO CPLBT OF THIS BUFFER 4I730200 40401 0020 00 0 00000 CPBWX TRA ** EXIT 4I730300| | FETCH BUFFER TO READ 4I730500| 40402 0634 00 2 40431 CPBRD SXA CPBRX,2 SAVE EXIT 4I730600| 40403 0074 00 4 25762 TSX INFOT,4 OBTAIN NEXT READ 4I730700 0BINARY CARD ID. MAPJ0268| 40404 4 40430 0 21640 MZE CPOOLF,,CPBRX-1 BUFFER 4I730800| 40405 4734 00 2 00000 PDX 0,2 COUNT 4I730900| 40406 0601 00 0 40454 STO CPLBW FOR BUFFER 4I731000| 40407 0754 00 2 00000 PXA 0,2 4I731100 40410 0402 00 0 40454 SUB CPLBW COMPUTE AND SAVE 4I731200| 40411 0621 00 0 40252 STA CPLD INITIAL ADDRESS 4I731300| 40412 0774 00 4 00000 CPBRDA AXT **,4 4I731400| 40413 0634 00 4 40453 SXA CPLBT,4 SET COUNT THIS BUFFER 4I731500| 40414 4634 00 2 40415 SXD *+1,2 4I731600 40415 1 00000 4 40416 TXI *+1,4,** SAVE COUNT 4I731700| 40416 0634 00 4 40412 SXA CPBRDA,4 FOR NEXT 4I731800| 40417 0754 00 4 00000 PXA 0,4 TEST FOR 4I731900| 40420 0402 00 0 21445 SUB CPLB PARTIAL BUFFER 4I732000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 160 CONVERSION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 40421 0774 00 4 00000 AXT 0,4 4I732100| 40422 4120 00 0 40431 TMI CPBRX OUT IF NOT 4I732200| 40423 0601 00 0 40457 STO CPLBSZ 4I732300| 40424 4625 00 0 40455 STL CPLBSW OTHERWISE, SET 4I732400 40425 0767 00 0 00022 ALS 18 LAST BUFFER SWITCH, AND 4I732500| 40426 0622 00 0 40427 STD *+1 REDUCE COUNT 4I732600| 40427 2 00000 2 40431 TIX CPBRX,2,** TO CORRECT ONE 4I732700| 40430 0600 00 0 40455 STZ CPLBSW RESET SWITCH ON EOF 4I732800| 40431 0020 00 0 00000 CPBRX TRA ** EXIT 4I732900 | * MAKE ENTRY IN INTERNAL DICTIONARY $5$4I732904| 0BINARY CARD ID. MAPJ0269| 40432 4774 00 4 21465 CPL14 AXC RDPOOL,4 $5$4I732905| 40433 0500 00 4 00000 CLA 0,4 SEARCH TO END OF CHAIN $5$4I732907 40434 0737 00 1 00000 PAC 0,1 $5$4I732909| 40435 7 00000 1 40440 TXL *+3,1,0 END OF CHAIN $5$4I732911| 40436 0737 00 4 00000 PAC 0,4 NO,GET $5$4I732913| 40437 0020 00 0 40433 TRA CPL14+1 NEXT ENTRY $5$4I732915| 40440 0500 00 0 21437 CLA ENAC ADDRESS OF LAST, POINTS $5$4I732917 40441 0621 00 4 00000 STA 0,4 TO NEW ENTRY $5$4I732919| 40442 0074 00 4 26607 TSX INDUM,4 FUTURE POINTER TO POOL WORD $5$4I732921| 40443 4500 00 0 21721 CAL 10WD PREFIX OF 1 TO AVOID $5$4I732922| 40444 0630 00 2 00000 STP 0,2 CDICT MARKING $5$4I732924| 40445 4634 00 2 21465 SXD RDPOOL,2 $5$4I732925 40446 0774 00 2 00000 AXT 0,2 $5$4I732930| 40447 1 40311 2 40402 TXI CPBRD,2,CPNON+1 RESERVED BUFFER $5$4I732940| | CONSTANTS AND STORAGE 4I733100| 40450 0 00001 0 40451 CPLK PZE *+1,,1 DUMMY SEQUENCE FOR 4I733200 40451 0 00000 0 00000 PZE ** ONE WORD 4I733300| 40452 0 00000 0 00000 CPLMJ PZE ** BASE COUNT FOR HIT 4I733400| 40453 0 00000 0 00000 CPLBT PZE ** TEMPORARY 4I733500| 40454 0 00000 0 00000 CPLBW PZE ** STORAGES 4I733600| 40455 0 00000 0 00000 CPLBSW PZE ** LAST BUFFER SWITCH 4I733700 40456 0 00000 0 00000 CPLEVS PZE ** EVEN SWITCH 4I733800| 40457 0 00000 0 00000 CPLBSZ PZE ** REMAINDER COUNT OF LAST BUFFER 4I733900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 161 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 * PROCESS -ENTRY- AND -CONTRL- CARDS. 4I734100| * 4I734200| | | -CONTRL- 4I734400 0BINARY CARD ID. MAPJ0270| 40460 0600 00 0 40676 CTLTYP STZ CTL.KY SET KEY WORD 4I734500| 40461 0600 00 0 40677 STZ CTL.SW SET PODL ENTRY 4I734600| 40462 0774 00 1 00002 AXT 2,1 SET FIELD COUNT 4I734700| 40463 0020 00 0 40471 TRA CTLTA 4I734800 | -ENTRY- 4I735000| 40464 0600 00 0 40676 NTRTYP STZ CTL.KY 4I735100| 40465 4500 00 0 40663 CAL CTL.15 SET KEY WORD 4I735200| 40466 0630 00 0 40676 STP CTL.KY PREFIX 4I735300 40467 0774 00 1 00001 AXT 1,1 SET FIELD COUNT 4I735400| 40470 0600 00 0 40677 STZ CTL.SW SET PDL ENTRY 4I735500| 40471 4520 00 0 21426 CTLTA NZT SWABS 4I735600| 40472 0020 00 0 40500 TRA NTRTC 4I735700| 40473 0074 00 4 25623 NTRTA TSX ERPR,4 'CARD NOT EFFECTIVE 4I735800 40474 0 00000 1 00113 PZE MSS047,GO IN ABSMOD ASSEMBLY' 4I735900| 40475 0074 00 4 44274 NTRTB TSX MCDPR,4 OUTPUT REM AND 4I736000| 40476 0100 00 0 40475 TZE *-1 SKIP ANY -ETC- CARDS 4I736100| 40477 0020 00 0 26640 TRA PASA 4I736200| 40500 4500 00 0 21461 NTRTC CAL NAME PROCESS FIELD 4I736400| 40501 0100 00 0 40510 TZE CTL.2 IF NO NAME 4I736500| 40502 0074 00 4 26433 CTL.1 TSX NTLOCC,4 FIND NAME TABLE 4I736600| 40503 0767 00 0 00022 ALS 18 LOCATION FOR 4I736700| 40504 0622 00 0 40676 STD CTL.KY EXT NAME 4I736800 40505 0560 00 0 26477 LDQ NAMEX STORE NAME 4I736900| 0BINARY CARD ID. MAPJ0271| 40506 0120 00 0 40510 TPL *+2 IF NOT IN 4I737000| 40507 4600 60 0 26441 STQ* NOMNL 4I737100| 40510 7 00001 1 40525 CTL.2 TXL CTL.25,1,1 IF THIS CONTRL 4I737300| 40511 0074 00 4 34132 TSX TSTETC,4 INITIALIZE 4I737400| 40512 1 77762 1 40514 TXI *+2,1,-SLCDE TO SCAN FOR // (6)4I737500| 40513 0020 00 0 40535 TRA CTL.5 ERROR IF NO FIELD 4I737600| 40514 3 00000 1 40524 TXH CTL.25-1,1,0 EXIT IF / NOT INITIAL CHARACTER (6)4I737610 40515 0074 00 4 36657 TSX SSCAN,4 SCAN FIRST 4I737700| 40516 4054 00 000000 LFT 0 FIELD 4I737800| 40517 0737 00 2 00000 PAC 0,2 TEST FIELD 4I737900| 40520 4500 00 2 00000 CAL 0,2 FOR // 4I738000| 40521 0322 00 0 35165 ERA SLCTR 4I738100 40522 0100 00 0 40546 TZE CTL.2T YES, IT IS 4I738200| 40523 0020 00 0 40535 TRA CTL.5 ERROR IF NOT (6)4I738300| 40524 0774 00 1 00002 AXT 2,1 AND PREPARE TO SCAN 4I738400| 40525 4500 00 0 35156 CTL.25 CAL NMLSC SET SCAN 4I738500| 40526 0602 00 0 36452 SLW SCLFT TERMINATORS 4I738600 40527 0634 00 1 40533 CTL.3 SXA CTL.4,1 SAVE COUNT 4I738700| 40530 0074 00 4 33444 TSX SCAFLD,4 SCAN AND 4I738800| 40531 4520 00 0 35166 NZT SWCVFE 4I739000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 162 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0 40532 0020 00 0 40557 TRA CTL.8 END OF CARD 4I739100| 40533 0774 00 1 00000 CTL.4 AXT **,1 IF NOT END 4I739200| 0BINARY CARD ID. MAPJ0272| 40534 2 00001 1 40527 TIX CTL.3,1,1 TEST FOR CORRECT COUNT 4I739300| 40535 0074 00 4 25623 CTL.5 TSX ERPR,4 'INCORRECT FORM OF V.F. 4I739500| 40536 0 00000 3 00070 PZE MSS037,NONOGO ON -CONTRL- OR -ENTRY 4I739600| 40537 4520 00 0 35166 NZT SWCVFE SKIP OVER ANY 4I739700| 40540 0020 00 0 40543 TRA CTL.7 ETC CARDS 4I739800| 40541 0074 00 4 34140 CTL.6 TSX TSTCC,4 WHICH FOLLOW 4I739900 40542 0020 00 0 34140 TRA TSTCC 4I740000| 40543 0074 00 4 34560 CTL.7 TSX FPCLAG,4 OUTPUT LAST -REM- 4I740100| 40544 4 00001 0 26705 MZE 75WD1,,1 OPERATION 4I740200| 40545 0020 00 0 26640 TRA PASA AND GO TO PROCESS NEXT 4I740300| SPECIAL FOR // CONTRL 4I740500| 40546 3 00000 1 40535 CTL.2T TXH CTL.5,1,0 ERROR IF NOT BLANK TERMINATION 4I740600| 40547 4500 00 0 35165 CAL SLCTR FIND NT LOCATION 4I740700| 40550 0074 00 4 26433 TSX NTLOCC,4 OF // COUNTER 4I740800| 40551 4320 00 0 21723 ANA MSKAD 4I740900 40552 0602 00 0 52030 SLW LINK SAVE AS TEXT 4I741000| 40553 0767 00 0 00022 ALS 18 4I741100| 40554 4520 00 0 40676 NZT CTL.KY IF NONE GIVEN, (6)4I741110| 40555 0622 00 0 40676 STD CTL.KY SAVE AS EXTERNAL NAME 4I741200| 40556 1 00001 1 40605 TXI CTL.20,1,1 TO PROCESS 4I741400 | CHECK FOR CORRECT FIELD 4I741600| 40557 0534 00 4 35154 CTL.8 LXA LNKMK,4 INITIALIZE 4I741700| 40560 4634 00 4 40570 SXD CTL.10,4 END TEST 4I741800| 40561 0774 00 1 00000 AXT 0,1 4I741900 0BINARY CARD ID. MAPJ0273| 40562 0441 00 1 52030 CTL.9 LDI LINK,1 PICK UP ITEM. 4I742000| 40563 4054 00 774000 LFT 774000 ERROR IF- 4I742100| 40564 0020 00 0 40535 TRA CTL.5 ADJ CODE NOT 00, 4I742200| 40565 4056 00 000300 LNT 000300 OR FLAG FIELDS OTHER 4I742300 40566 1 77777 1 40570 TXI CTL.10,1,-1 THAN 0,1,2. 4I742400| 40567 0020 00 0 40535 TRA CTL.5 4I742500| 40570 3 00000 1 40562 CTL.10 TXH CTL.9,1,** 4I742600| 40571 0754 00 4 00000 PXA 0,4 4I742700| 40572 0737 00 1 00000 PAC 0,1 ITEM COUNT 4I742800 40573 4534 00 4 40676 LXD CTL.KY,4 4I742900| 40574 3 00000 4 40605 TXH CTL.20,4,0 4I743000| 40575 0500 00 0 52030 CLA LINK 4I743100| 40576 0621 00 0 40701 STA CTL.EL+1 IF NO EXTERNAL 4I743200| 40577 0520 00 0 40676 ZET CTL.KY NAME FOR 4I743300 40600 0020 00 0 40603 TRA *+3 -CONTRL- 4I743400| 40601 0074 00 4 25623 TSX ERPR,4 'MISSING NAME SUPPLIED 4I743500| 40602 0 40700 1 00067 PZE MSS036,GO,CTL.EL FOR CDICT ENTRY 4I743600| 40603 0767 00 0 00022 ALS 18 USE FIRST SYMBOL 4I743700| 40604 0622 00 0 40676 STD CTL.KY 4I743800 40605 0634 00 1 40676 CTL.20 SXA CTL.KY,1 SET COUNT, 4I743900| 40606 0074 00 4 40630 TSX CTL.PL,4 PLACE TEXT, 4I744000| 40607 4534 00 4 40676 LXD CTL.KY,4 SET EXTERNAL (6)4I744010| 1 IBMAPV IBMAPJ 12/01/64 PAGE 163 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0BINARY CARD ID. MAPJ0274| 40610 0634 00 4 35146 SXA CUROPN,4 NAME INTO TEXT (6)4I744020| 40611 0441 00 0 35146 LDI CUROPN (6)4I744030| 40612 0534 00 1 40676 LXA CTL.KY,1 PICK UP NUMBER OF TEXT ITEMS (6)4I744040| 40613 3 00001 1 40616 TXH CTL.21,1,1 IS THERE MORE THAN ONE (6)4I744050 40614 4054 00 000002 LFT 2 NO, IS OPERATION CONTROL (6)4I744060| 40615 1 77777 1 40625 TXI CTL.24,1,-1 YES, MUST BE SPECIAL FORM (6)4I744070| 40616 4055 00 000700 CTL.21 SIL 000700 SET CONTINUATION FLAG (6)4I744080| 40617 0604 00 0 35146 STI CUROPN (6)4I744090| 40620 4634 00 1 40623 CTL.22 SXD CTL.23,1 SET LENGTH OF TEXT TO TRANSMIT (6)4I744100 40621 0074 00 4 34560 TSX FPCLAG,4 WRITE IT OUT (6)4I744110| 40622 0 00001 0 35146 CUROPN,,1 (6)4I744120| 40623 4 00000 0 52030 CTL.23 MZE LINK,,** (6)4I744130| 40624 0020 00 0 26640 TRA PASA (6)4I744140| 40625 4500 00 0 52030 CTL.24 CAL LINK PLACE CONTRL REFERENCE (6)4I744160| 40626 0522 00 0 21414 XEC PLNRF TO LCTR OR QUALIFIER (6)4I744170| 40627 0020 00 0 40620 TRA CTL.22 IF LNREF IN EFFECT (6)4I744180| | PLACE TEXT IN CTCONC FILE 4I744300 40630 0634 00 4 40666 CTL.PL SXA CTL.PX,4 SAVE RETURN 4I744400| 40631 0774 00 4 00000 CTL.11 AXT **,4 PICK UP REM COUNT 4I744500| 40632 3 00000 4 40634 TXH *+2,4,0 FETCH BUFFER 4I744600| 40633 1 40634 4 40670 TXI CTL.FC,4,*+1 IF FIRST TIME 4I744700| 40634 0500 00 0 21444 CLA CTLCCT INCREASE 4I744800 40635 0400 00 0 21705 ADD L(1) ENTRY COUNT 4I744900| 0BINARY CARD ID. MAPJ0275| 40636 0621 00 0 21444 STA CTLCCT 4I745000| 40637 0500 00 0 40676 CLA CTL.KY PLACE KEY 4I745100| 40640 0774 00 2 00001 AXT 1,2 WORD AND 4I745200 40641 1 00001 1 40643 TXI CTL.13,1,1 THEN INTERNAL 4I745300| 40642 0500 00 2 52030 CTL.12 CLA LINK,2 TEXT 4I745400| 40643 0601 00 4 00000 CTL.13 STO **,4 4I745500| 40644 2 00001 4 40646 TIX *+2,4,1 4I745600| 40645 1 40645 4 40670 TXI CTL.FC,4,* 4I745700 40646 1 77777 2 40647 TXI *+1,2,-1 4I745800| 40647 2 00001 1 40642 TIX CTL.12,1,1 4I745900| 40650 0520 00 0 40677 ZET CTL.SW EXIT IF PDL IS 4I746000| 40651 0020 00 0 40665 TRA CTL.PX-1 NOT TO BE STORED 4I746100| 40652 0534 00 1 21467 LXA PDLOC,1 COMPUTE NUMBER 4I746200 40653 1 25250 1 40654 TXI *+1,1,-PDLST ITEMS IN 4I746300| 40654 0754 00 1 00000 PXA 0,1 PUSH DOWN LIST 4I746400| 40655 0774 00 2 00001 AXT 1,2 4I746500| 40656 1 00001 1 40660 TXI *+2,1,1 4I746600| 40657 0500 00 2 52530 CTL.14 CLA PDLST,2 PLACE PUSH 4I746700 40660 0522 00 0 40643 XEC CTL.13 DOWN LIST 4I746800| 40661 2 00001 4 40663 TIX *+2,4,1 4I746900| 40662 1 40662 4 40670 TXI CTL.FC,4,* 4I747000| 40663 1 77777 2 40664 CTL.15 TXI *+1,2,-1 4I747100| 0BINARY CARD ID. MAPJ0276 40664 2 00001 1 40657 TIX CTL.14,1,1 4I747200| 40665 0634 00 4 40631 SXA CTL.11,4 SAVE REM COUNT 4I747300| 40666 0774 00 4 00000 CTL.PX AXT **,4 AND 4I747400| 40667 0020 00 4 00001 TRA 1,4 EXIT 4I747500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 164 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 | FETCH NEXT CTCONC BUFFER 4I747700| 40670 0634 00 4 40675 CTL.FC SXA CTL.16,4 4I747800| 40671 0074 00 4 25760 TSX INFIN,4 FETCH BUFFER 4I747900 40672 0 00000 0 21560 PZE CTCONC 4I748000| 40673 0621 00 0 40643 STA CTL.13 SET ADDRESS 4I748100| 40674 4734 00 4 00000 PDX 0,4 AND COUNT 4I748200| 40675 0020 00 0 00000 CTL.16 TRA ** RETURN 4I748300| | 40676 0 00000 0 00000 CTL.KY PZE **,,** TEXT.CT,,NT(EXT.NM) 4I748500| 40677 0 00000 0 00000 CTL.SW PZE 0 PUSH DOWN LIST CONTROL SWITCH 4I748600| | 40700 0 00000 0 00001 CTL.EL PZE 1 ERROR MESSAGE 4I748800 40701 0 00000 2 00000 PZE **,2 LIST 4I748900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 165 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * PROCESS -FILE- CARDS. 4I749100 * 4I749200| 40702 0520 00 0 21426 FYLTYP ZET SWABS DON,T PROCESS IF 4I749300| 40703 0020 00 0 40473 TRA NTRTA ABSMOD ASSEMBLY 4I749400| 40704 0600 00 0 41306 STZ HYFISW CLEAR HYPER OPTION SWITCH 4I749500| 40705 0520 00 0 21461 FYL.1 ZET NAME IF NO LOC 4I749600 40706 0020 00 0 40712 TRA FYL.2 FIELD SYMBOL 4I749700| 40707 0074 00 4 25623 TSX ERPR,4 '-FILE- MUST HAVE 4I749800| 40710 0 00000 4 00033 WMS008,NONONO LOCATION FIELD' (6)4I749900| 40711 0020 00 0 40541 TRA CTL.6 IGNORE CARD 4I750000| 0BINARY CARD ID. MAPJ0277| 40712 0074 00 4 26506 FYL.2 TSX PLNME,4 PLACE NAME IN 4I750200| 40713 0500 00 0 21446 CLA FLCCT DICTIONARY 4I750300| 40714 0361 00 0 21705 ACL L(1) INCREASE FILE 4I750400| 40715 0601 00 0 21446 STO FLCCT COUNT, SAVE AND 4I750500 40716 0601 00 2 00000 STO 0,2 PLACE IN INT DICT 4I750600| 40717 4500 00 0 21461 CAL NAME SAVE NAME 4I750700| 40720 0602 00 0 41475 SLW FY.ENT+5 FOR FDICT 4I750800| 40721 0500 00 0 41457 CLA F.NRM 4I750900| 40722 0601 00 0 41470 STO FY.ENT 4I751000 40723 0600 00 0 41471 STZ FY.ENT+1 INITIALIZE 4I751100| 40724 0774 00 4 00003 AXT 3,4 DUMMY FILE 4I751200| 40725 4500 00 0 36253 CAL BLANKS ENTRY 4I751300| 40726 0602 00 4 41475 SLW FY.ENT+5,4 4I751400| 40727 2 00001 4 40726 TIX *-1,4,1 4I751500 40730 0600 00 0 41464 STZ F.BLKK 4I751600| 40731 0441 00 0 21704 FYL.3 LDI L(0) (6)4I751700| 40732 0074 00 4 34132 TSX TSTETC,4 EXIT IF (6)4I751710| 40733 0020 00 0 40735 TRA FYL.4 NO VARIABLE 4I751800| 40734 0020 00 0 40744 TRA FYL.6 4I752400 | PROCESS EXTERNAL NAME 4I752600| 40735 0774 00 4 36512 FYL.4 AXT QSCNF,4 SET SCAN TO (6)4I752700| 40736 0634 00 4 36536 SXA SCSIL,4 IGNORE BLANKS 4I752800| 40737 0074 00 4 36657 TSX SSCAN,4 SCAN FOR 4I752900 0BINARY CARD ID. MAPJ0278| 40740 4054 00 001000 LFT CMB EXTERNAL 4I753000| 40741 0601 00 0 44534 FYL.5 STO PARCE 4I753200| 40742 4734 00 2 00000 PDX 0,2 4I753300| 40743 3 00000 2 40746 TXH *+3,2,0 4I753400 40744 0500 00 0 41454 FYL.6 CLA F.NME 4I753500| 40745 0020 00 0 40741 TRA FYL.5 4I753600| 40746 7 00022 2 40753 TXL FYL.7,2,18 IF MORE THAN 18 CHARS 4I753700| 40747 0074 00 4 25623 TSX ERPR,4 'FILE NAME AT MOST 4I753800| 40750 0 00000 3 00072 PZE MSS039,NONOGO 18 CHARS' 4I753900 40751 0774 00 2 00022 AXT 18,2 4I754000| 40752 4634 00 2 44534 SXD PARCE,2 4I754100| 40753 0774 00 4 36505 FYL.7 AXT QSCNT,4 RESTORE SCAN 4I754200| 40754 0634 00 4 36536 SXA SCSIL,4 4I754300| 40755 0535 00 4 44534 LAC PARCE,4 PLACE EXTERNAL 4I754400 40756 4774 00 1 41472 AXC FY.ENT+2,1 NAME 4I754500| 40757 4500 00 4 00000 CAL 0,4 IN FILE 4I754600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 166 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 40760 0602 00 1 00000 SLW 0,1 DICT ENTRY 4I754700 40761 1 77777 4 40762 TXI *+1,4,-1 4I754800| 40762 1 77777 1 40763 TXI *+1,1,-1 4I754900| 40763 2 00006 2 40757 TIX *-4,2,6 4I755000| 40764 0500 00 0 41460 CLA F.QTS PLACE QUOTE MARK, 4I755100| 40765 0074 00 2 41072 TSX FYL.PL,2 NAME, AND 4I755200 0BINARY CARD ID. MAPJ0279| 40766 0500 00 0 44534 CLA PARCE QUOTE MARK 4I755300| 40767 0074 00 2 41072 TSX FYL.PL,2 IN $FILE CARD 4I755400| 40770 0500 00 0 41460 CLA F.QTS IMAGE 4I755500| 40771 0074 00 2 41072 TSX FYL.PL,2 4I755600 40772 4054 00 001000 FYL.75 LFT CMB EXIT IF NO 4I755700| 40773 0020 00 0 41163 TRA FYL.12 MORE VARIABLE FIELD 4I755800| | FINAL EXIT TEST 4I756000| 40774 0520 00 0 41464 FYL.8 ZET F.BLKK EXIT IF 'BLK=N' (6)4I756100 40775 0020 00 0 41020 TRA FYL.85 APPEARED. IF NOT- 4I756600| 40776 0441 00 0 41470 LDI FY.ENT $4$4I756610| 40777 4056 00 003000 LNT 3000 CHECKPOINT FILE $4$4I756620| 41000 0020 00 0 41003 TRA *+3 $4$4I756630| 41001 0057 00 077777 RIR 77777 YES, SET BLK=0 $4$4I756640 41002 0604 00 0 41470 STI FY.ENT $4$4I756650| 41003 0500 00 0 41470 CLA FY.ENT 4I756700| 41004 0074 00 4 00716 TSX .DECVA,4 CONVERT BLOCKSIZE (6)4I756800| 41005 4763 00 0 00052 LGL 42 TO BCD (6)4I756900| 41006 4765 00 0 00006 LGR 6 (6)4I757000 41007 0560 00 0 36253 LDQ BLANKS LEFT JUSTIFY 4I757600| 41010 4765 00 0 00006 LGR 6 THE NUMBER 4I757700| 41011 4100 00 0 41010 TNZ *-1 4I757800| 41012 4500 00 0 41463 CAL F.BLKE 4I757900| 41013 4763 00 0 00006 LGL 6 4I758000 0BINARY CARD ID. MAPJ0280| 41014 0602 00 0 52430 SLW TEMP SETUP AND PLACE 4I758100| 41015 4600 00 0 52431 STQ TEMP+1 ',BLK=NNN' 4I758200| 41016 0500 00 0 41465 CLA F.BLKW ON $FILE (OR 4I758300| 41017 0074 00 2 41072 TSX FYL.PL,2 SETC) CARD 4I758400 41020 0522 00 0 41100 FYL.85 XEC FYP.3 PICK UP 4I758500| 41021 0522 00 0 41101 XEC FYP.4 COUNTS 4I758600| 41022 0074 00 2 41117 TSX FC.OUT,2 PRINT FINAL CARD 4I758700| 41023 0774 00 4 00000 FYL.9 AXT **,4 4I758800| 41024 3 00000 4 41026 TXH *+2,4,0 4I758900 41025 1 41026 4 41064 TXI FYL.BF,4,*+1 PLACE 6 WORDS 4I759000| 41026 0500 00 0 41475 CLA FY.ENT+5 FOR FILE 4I759100| 41027 0774 00 1 00006 AXT 6,1 ENTRY INTO 4I759200| 41030 0601 00 4 00000 FYL.10 STO **,4 CTFILC. 4I759300| 41031 2 00001 4 41033 TIX *+2,4,1 4I759400 41032 1 41032 4 41064 TXI FYL.BF,4,* 4I759500| 41033 0500 00 1 41476 CLA FY.ENT+6,1 4I759600| 41034 2 00001 1 41030 FYL.11 TIX FYL.10,1,1 4I759700| 41035 0634 00 4 41023 SXA FYL.9,4 SAVE NEW COUNT 4I759800| 41036 0441 00 0 41470 LDI FY.ENT 4I759900 41037 0520 00 0 41306 ZET HYFISW TEST SWITCH 4I760000| 41040 4054 00 000004 LFT 4 ON TEST FOR HYPER 4I760100| 41041 0020 00 0 41044 TRA *+3 O.K. 4I760200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 167 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0BINARY CARD ID. MAPJ0281| 41042 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE 4I760300| 41043 0 41062 1 00203 PZE FMS011,GO,HYSWER 4I760400| 41044 4500 00 0 41471 CAL FY.ENT+1 IF THERE WAS 4I760500| 41045 0100 00 0 40543 TZE CTL.7 A NON-STANDARD 4I760600 41046 0074 00 4 26433 TSX NTLOCC,4 LABEL ROUTINE- 4I760700| 41047 0560 00 0 26477 LDQ NAMEX 4I760800| 41050 0120 00 0 41052 TPL *+2 ENTER EXTERNAL 4I760900| 41051 4600 60 0 26441 STQ* NOMNL NAME IN 4I761000| 41052 0767 00 0 00022 ALS 18 DICTIONARY 4I761100 41053 0622 00 0 40676 STD CTL.KY 4I761200| 41054 0774 00 1 00000 AXT 0,1 4I761300| 41055 4625 00 0 40677 STL CTL.SW SET UP AND 4I761400| 41056 4500 00 0 41034 CAL FYL.11 ENTER FILE 4I761500| 41057 0630 00 0 40676 STP CTL.KY TYPE ENTRY 4I761600 41060 0074 00 4 40630 TSX CTL.PL,4 TO CDICT 4I761700| 41061 0020 00 0 40543 TRA CTL.7 AND EXIT 4I761800| | 41062 0 00000 0 00001 HYSWER PZE 1 4I762000| 41063 0 00000 2 00000 PZE **,2 4I762100 | FETCH NEXT CTFILC BUFFER 4I762300| 41064 0634 00 4 41071 FYL.BF SXA FYL.BX,4 SAVE RETURN 4I762400| 41065 0074 00 4 25760 TSX INFIN,4 4I762500| 41066 0 00000 0 21610 PZE CTFILC GET NEXT BUFFER 4I762600 41067 0621 00 0 41030 STA FYL.10 SET ADDRESS 4I762700| 0BINARY CARD ID. MAPJ0282| 41070 4734 00 4 00000 PDX 0,4 AND COUNT 4I762800| 41071 0020 00 0 00000 FYL.BX TRA ** EXIT 4I762900| CARD IMAGE GENERATOR 4I763100| 41072 0634 00 2 41115 FYL.PL SXA FYP.EX,2 SAVE RETURN 4I763200| 41073 0621 00 0 36224 STA BCFCH 4I763300| 41074 0622 00 0 41076 STD FYP.2 4I763400| 41075 0774 00 2 00017 FYP.1 AXT 15,2 INCREASE (**) 4I763500 41076 1 00000 2 41077 FYP.2 TXI *+1,2,** COLUMN 4I763600| 41077 0634 00 2 41075 SXA FYP.1,2 COUNT 4I763700| 41100 0774 00 4 36300 FYP.3 AXT -F.IMG-2,4 PICK UP STORE AND 4I763800| 41101 0774 00 1 00003 FYP.4 AXT 3,1 AC BYTE (MODIFIED) 4I763900| 41102 7 00110 2 41107 TXL FYP.5,2,72 4I764000 41103 0074 00 2 41117 TSX FC.OUT,2 OTHERWIXE PRINT 4I764100| 41104 4500 00 0 41456 CAL F.ETC AND SET UP 4I764200| 41105 0602 00 0 41476 SLW F.IMG AS -ETC- CARD 4I764300| 41106 0020 00 0 41075 TRA FYP.1 4I764400| 41107 0774 00 2 00000 FYP.5 AXT 0,2 4I764500 41110 0500 00 0 41076 CLA FYP.2 PLACE CHARACTERS 4I764600| 41111 4625 00 0 44625 STL BSTFC INTO STRING 4I764700| 41112 1 44622 2 36224 TXI BCFCH,2,BSTNG 4I764800| 41113 0634 00 4 41100 SXA FYP.3,4 SAVE NEW 4I764900| 41114 0634 00 1 41101 SXA FYP.4,1 COUNTS 4I765000 41115 0774 00 2 00000 FYP.EX AXT **,2 AND EXIT 4I765100| 0BINARY CARD ID. MAPJ0283| 41116 0020 00 2 00001 TRA 1,2 4I765200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 168 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0| PRINT AND PUNCH $FILE CARD 4I765400| 41117 0634 00 2 41161 FC.OUT SXA FC.OUX,2 SAVE RETURN 4I765500| 41120 0560 00 0 36253 LDQ BLANKS 4I765600| 41121 4500 00 4 00000 CAL 0,4 FILL LAST WORD 4I765700 41122 0522 00 1 44665 XEC PLEFT,1 WITH BLANKS 4I765800| 41123 0602 00 4 00000 SLW 0,4 4I765900| 41124 4500 00 0 36253 CAL BLANKS FILL REMAINDER 4I766000| 41125 1 77777 4 41126 TXI *+1,4,-1 OF CARD 4I766100| 41126 3 36266 4 41123 TXH *-3,4,-F.IMG-12 4I766200 41127 0774 00 4 00000 FC.OUB AXT **,4 4I766300| 41130 0774 00 1 00014 AXT 12,1 4I766400| 41131 3 00013 4 41136 TXH FC.OUC,4,11 FETCH NEW $4$4I766500| 41132 0074 00 4 25760 TSX INFIN,4 BUFFER IF 4I766600| 41133 0 00000 0 21670 PZE CTDFCF NEEDED 4I766700 41134 0621 00 0 41137 STA FC.OUD 4I766800| 41135 4734 00 4 00000 PDX 0,4 4I766900| 41136 0500 00 1 41512 FC.OUC CLA F.IMG+12,1 PLACE 12 4I767000| 41137 0601 00 4 00000 FC.OUD STO **,4 WORDS OF 4I767100| 41140 1 77777 4 41141 TXI *+1,4,-1 CARD IMAGE 4I767200 41141 2 00001 1 41136 TIX FC.OUC,1,1 4I767300| 41142 0634 00 4 41127 SXA FC.OUB,4 4I767400| 41143 0500 00 0 21703 CLA CTDFCF+11 INCREASE COUNT 4I767500| 0BINARY CARD ID. MAPJ0284| 41144 0361 00 0 21705 ACL L(1) OF CARDS 4I767600 41145 0621 00 0 21703 STA CTDFCF+11 IN FILE 4I767700| 41146 4500 00 0 41455 CAL F.FIL SET FOR 4I767800| 41147 0602 00 0 41476 SLW F.IMG $FILE CARD 4I767900| 41150 4500 00 0 41500 CAL F.IMG+2 RESET FLR 4I768000| 41151 0771 00 0 00022 ARS 18 COLUMN 16 4I768100 41152 0602 00 0 41500 SLW F.IMG+2 4I768200| 41153 4774 00 4 41500 AXC F.IMG+2,4 4I768300| 41154 0634 00 4 41100 SXA FYP.3,4 SET CARD AND 4I768400| 41155 0774 00 1 00003 AXT 3,1 COLUMN POSITIONS 4I768500| 41156 0634 00 1 41101 SXA FYP.4,1 4I768600 41157 0774 00 2 00017 AXT 15,2 4I768700| 41160 0634 00 2 41075 SXA FYP.1,2 SAVE COLUMN COUNT 4I768800| 41161 0774 00 2 00000 FC.OUX AXT **,2 EXIT 4I768900| 41162 0020 00 2 00001 TRA 1,2 4I769000| | PROCESS PARTS OF VARIABLE FIELD 4I769200| 41163 0074 00 4 36657 FYL.12 TSX SSCAN,4 SCAN FIELD FOR 4I769300| 41164 4054 00 001200 LFT CMB+EQB COMMA OR EQUALS 4I769400| 41165 4054 00 000200 LFT EQB 4I769500 41166 0020 00 0 41335 TRA FYL.16 4I769600| | COMMA OR BLANK TERMINATED FIELD 4I769800| 41167 0601 00 0 44534 STO PARCE SZVE STRING INFO 4I769900| 41170 0604 00 0 40677 STI CTL.SW AND INDICATORS 4I770000 41171 4734 00 2 00000 PDX 0,2 EXIT IF 4I770100| 0BINARY CARD ID. MAPJ0285| 41172 7 00000 2 40772 TXL FYL.75,2,0 NO LENGTH 4I770200| 41173 4500 60 0 44534 FYL.13 CAL* PARCE 4I770300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 169 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 41174 0774 00 4 00042 AXT FCMTBE-FCMTB,4 TEST FOR SPECIAL 4I770400| 41175 4340 00 4 41251 FYL.14 LAS FCMTBE,4 TYPE 4I770500| 41176 0020 00 0 41200 TRA *+2 4I770600| 41177 0020 60 4 41252 TRA* FCMTBE+1,4 HANDLE SPECIAL 4I770700 41200 2 00002 4 41175 TIX FYL.14,4,2 CONTINUE SEARCH 4I770800| 41201 0500 00 0 41462 FYL.15 CLA F.CMA 4I770900| 41202 0074 00 2 41072 TSX FYL.PL,2 PLACE COMMA 4I771000| 41203 0500 00 0 44534 CLA PARCE AND THEN FIELD 4I771100| 41204 0074 00 2 41072 TSX FYL.PL,2 INTO CARD 4I771200 41205 0441 00 0 40677 LDI CTL.SW 4I771300| 41206 0020 00 0 40772 TRA FYL.75 TEST FOR EXIT 4I771400| | TRANSFERS ON COMMA SPECIAL TYPES 4I771600| 41207 512550302365 FCMTB BCI 1,REQHCV 4I771700 41210 0020 00 0 41251 TRA F.RQCV CONVERSION REQUIRED 4I771800| 41211 464763302365 BCI 1,OPTHCV 4I771900| 41212 0020 00 0 41257 TRA F.OPCV CONVERSION OPTIONAL 4I772000| 41213 454630236545 BCI 1,NOHCVN 4I772100| 41214 0020 00 0 40772 TRA FYL.75 NO CONVERSION 4I772200 41215 466463476463 BCI 1,OUTPUT 4I772300| 41216 0020 00 0 41262 TRA F.OTPT OUTPUT FILE 4I772400| 41217 314546646360 BCI 1,INOUT 4I772500| 0BINARY CARD ID. MAPJ0286| 41220 0020 00 0 41267 TRA F.INUT INOUT FILE 4I772600 41221 233025234247 BCI 1,CHECKP 4I772700| 41222 0020 00 0 41307 TRA F.CKPT CHECKPOINT FILE 4I772800| 41223 234247636060 BCI 1,CKPT 4I772900| 41224 0020 00 0 41307 TRA F.CKPT 4I773000| 41225 223145606060 BCI 1,BIN 4I773100 41226 0020 00 0 41320 TRA F.BIN BINARY MODE 4I773200| 41227 446722232460 BCI 1,MXBCD 4I773300| 41230 0020 00 0 41327 TRA F.MBCD MIXED, START BCD 4I773400| 41231 446722314560 BCI 1,MXBIN 4I773500| 41232 0020 00 0 41332 TRA F.MBIN MIXED, START BINARY 4I773600 41233 307047255160 BCI 1,HYPER 4I773700| 41234 0020 00 0 41273 TRA F.HYPT HYPER TAPE 4I773800| 41235 305126476060 BCI 1,HRFP 4I773900| 41236 0020 00 0 41276 TRA F.HYPO HYPER REWIND, FILE PROTECT 4I774000| 41237 305145264760 BCI 1,HRNFP 4I774100 41240 0020 00 0 41276 TRA F.HYPO HYPER REWIND, NO FILE PROTECT 4I774200| 41241 304551264760 BCI 1,HNRFP 4I774300| 41242 0020 00 0 41276 TRA F.HYPO HYPER NO REWIND, FILE PROTECT 4I774400| 41243 304551452647 BCI 1,HNRNFP 4I774500| 41244 0020 00 0 41276 TRA F.HYPO HYPER NO REWIND, NO FILE PROTECT 4I774600 41245 454647464643 BCI 1,NOPOOL NO POOL DEFINITION $4$4I774700| 0BINARY CARD ID. MAPJ0287| 41246 0020 00 0 41312 TRA NOPOOL $4$4I774800| 41247 474646436060 BCI 1,POOL POOL DEFINE $4$4I774900| 41250 0020 00 0 41315 TRA POOL $4$4I775000 41251 FCMTBE EQU * 4I775100| | 41251 0441 00 0 41470 F.RQCV LDI FY.ENT SET PROPER TYPE 4I775300| 41252 4057 00 000002 RIL 2 INTO CONVERSION 4I775400| 41253 4055 00 000001 F.RQX SIL 1 4I775500 1 IBMAPV IBMAPJ 12/01/64 PAGE 170 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 41254 0604 00 0 41470 STI FY.ENT 4I775600| 41255 0441 00 0 40677 LDI CTL.SW 4I775700| 41256 0020 00 0 40772 TRA FYL.75 4I775800 | 41257 0441 00 0 41470 F.OPCV LDI FY.ENT SET PROPER TYPE 4I776000| 41260 4055 00 000002 SIL 2 4I776100| 41261 0020 00 0 41253 TRA F.RQX 4I776200| 41262 0441 00 0 41470 F.OTPT LDI FY.ENT SET FOR 4I776400| 41263 4057 00 002000 RIL 2000 OUTPUT FILE 4I776500| 41264 4055 00 001000 SIL 1000 4I776600| 41265 0604 00 0 41470 F.OTX STI FY.ENT PLACE ELEMENT 4I776700| 41266 0020 00 0 41201 TRA FYL.15 AND GO FOR NEXT 4I776800 | 41267 0441 00 0 41470 F.INUT LDI FY.ENT SET FOR 4I777000| 41270 4055 00 002000 SIL 2000 INOUT TYPE 4I777100| 41271 4057 00 001000 RIL 1000 4I777200| 41272 0020 00 0 41265 TRA F.OTX 4I777300 | 41273 0441 00 0 41470 F.HYPT LDI FY.ENT SET FOR 4I777500| 0BINARY CARD ID. MAPJ0288| 41274 4055 00 000004 SIL 4 HYPERTAPE 4I777600| 41275 0020 00 0 41254 TRA F.RQX+1 4I777700 | 41276 0602 00 0 41306 F.HYPO SLW HYFISW SET SWITCH ON 4I777900| 41277 0074 00 4 26411 TSX NTLOC,4 FETCH LOCATION 4I778000| 41300 0621 00 0 41063 STA HYSWER+1 SET FOR POSSIBLE ERROR 4I778100| 41301 0120 00 0 41201 TPL FYL.15 IS NAME IN TABLE 4I778200 41302 0560 00 0 41306 LDQ HYFISW ENTER IF NOT 4I778300| 41303 0621 00 0 41304 STA *+1 4I778400| 41304 4600 00 0 00000 STQ ** 4I778500| 41305 0020 00 0 41201 TRA FYL.15 4I778600| 41306 0 00000 0 00000 HYFISW PZE ** HYPER OPTION SWITCH 4I778700 | 41307 0441 00 0 41470 F.CKPT LDI FY.ENT SET FOR 4I778900| 41310 4055 00 103000 SIL 103000 CHECKPOINT AND NOPOOL $4$4I779000| 41311 0020 00 0 41265 TRA F.OTX 4I779100| 41312 0441 00 0 41470 NOPOOL LDI FY.ENT $4$4I779300| 41313 4055 00 100000 SIL 100000 SET 'NO POOL BIT' $4$4I779400| 41314 0020 00 0 41254 TRA F.RQX+1 EXIT WITHOUT PLACING OPTION $4$4I779500| | 41315 0441 00 0 41470 POOL LDI FY.ENT $4$4I779700 41316 4057 00 100000 RIL 100000 RESET 'NO POOL BIT' $4$4I779800| 41317 0020 00 0 41254 TRA F.RQX+1 EXIT WITHOUT PLACING OPTION $4$4I779900| | 41320 0441 00 0 41470 F.BIN LDI FY.ENT SET BINARY 4I780100| 41321 4055 00 004000 SIL 4000 TYPE 4I780200 0BINARY CARD ID. MAPJ0289| 41322 4054 00 040000 LFT 40000 IF NO BLOCKSIZE 4I780300| 41323 0020 00 0 41265 TRA F.OTX CODES YET 4I780400| 41324 0057 00 077777 RIR 77777 SET FOR Z256 4I780500| 41325 0055 00 000400 SIR 400 4I780600 41326 0020 00 0 41265 TRA F.OTX 4I780700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 171 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 | 41327 0441 00 0 41470 F.MBCD LDI FY.ENT SET MIXED 4I780900 41330 4055 00 400000 SIL 400000 MODE BIT 4I781000| 41331 0020 00 0 41265 TRA F.OTX 4I781100| | 41332 0441 00 0 41470 F.MBIN LDI FY.ENT SET MIXED MODE, 4I781300| 41333 4055 00 400000 SIL 400000 TREAT AS BINARY 4I781400 41334 0020 00 0 41321 TRA F.BIN+1 4I781500| | | EQUALS TERMINATED FIELD 4I781700| 41335 0601 00 0 44534 FYL.16 STO PARCE SAVE STRING INFO 4I781800 41336 0500 00 0 36455 CLA SCORS BUMP TO 4I781900| 41337 0361 00 0 21705 ACL L(1) NEXT STORE 4I782000| 41340 0621 00 0 36753 STA STGPT 4I782100| 41341 0074 00 4 36657 TSX SSCAN,4 SCAN NEXT FIELD 4I782200| 41342 4054 00 001000 LFT CMB 4I782300 41343 0601 00 0 40677 STO CTL.SW SAVE RESULT 4I782400| 41344 0604 00 0 21463 STI OPER+1 SAVE INDICATORS 4I782500| 41345 4500 60 0 44534 CAL* PARCE 4I782600| 41346 0774 00 4 00012 AXT FEQTBE-FEQTB,4 4I782700| 41347 4340 00 4 41376 FYL.61 LAS FEQTBE,4 TEST FOR SPECIAL 4I782800 0BINARY CARD ID. MAPJ0290| 41350 0020 00 0 41352 TRA *+2 TYPE, AND 4I782900| 41351 0020 60 4 41377 TRA* FEQTBE+1,4 PROCESS IF SO 4I783000| 41352 2 00002 4 41347 TIX FYL.61,4,2 4I783100| 41353 0500 00 0 41462 FYL.17 CLA F.CMA PLACE COMMA 4I783200 41354 0074 00 2 41072 TSX FYL.PL,2 4I783300| 41355 0500 00 0 44534 CLA PARCE 4I783400| 41356 0074 00 2 41072 TSX FYL.PL,2 PLACE FIRST 4I783500| 41357 0500 00 0 41466 CLA F.EQM THEN = 4I783600| 41360 0074 00 2 41072 TSX FYL.PL,2 4I783700 41361 0500 00 0 40677 CLA CTL.SW THEN SECOND 4I783800| 41362 0074 00 2 41072 TSX FYL.PL,2 4I783900| 41363 0020 00 0 40772 TRA FYL.75 NEXT 4I784100| | TRANSFERS ON = TYPE 4I784300 41364 446443633160 FEQTB BCI 1,MULTI 4I784400| 41365 0020 00 0 41376 TRA F.MULT MULTI BLOCK 4I784500| 41366 443145606060 BCI 1,MIN 4I784600| 41367 0020 00 0 41423 TRA F.MIN MIN BLOCK 4I784700| 41370 456243224360 BCI 1,NSLBL 4I784800 41371 0020 00 0 41427 TRA F.NSLB NON-STANDARD LABEL 4I784900| 41372 224346234260 BCI 1,BLOCK 4I785000| 41373 0020 00 0 41440 TRA F.BLOK BLOCKSIZE 4I785100| 41374 224342606060 BCI 1,BLK 4I785200| 41375 0020 00 0 41440 TRA F.BLOK 4I785300 41376 FEQTBE EQU * 4I785400| | 0BINARY CARD ID. MAPJ0291| 41376 0074 00 1 41406 F.MULT TSX F.CVBL,1 SET BLOCKSIZE 4I785600| 41377 0057 00 100000 RIR 100000 SET BITS TO 4I785700 41400 0055 00 200000 SIR 200000 SHOW MULTI 4I785800| 41401 4055 00 040000 F.MULA SIL 40000 SHOW BLOCK HANDLED 4I785900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 172 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 41402 0604 00 0 41470 STI FY.ENT 4I786000 41403 0441 00 0 21463 LDI OPER+1 RESTORE INDICATORS 4I786100| 41404 4057 00 000200 F.MULC RIL EQB GO TO 4I786200| 41405 0020 00 0 40772 TRA FYL.75 TEST NEXT 4I786300| | 41406 4534 00 2 40677 F.CVBL LXD CTL.SW,2 PICK UP FIELD COUNT 4I786500 41407 0441 00 0 21463 LDI OPER+1 AND CONTENT 4I786600| 41410 4054 00 036774 F.MULB LFT ALLBT-NMB-DCB-CMB 4I786700| 41411 0020 00 0 41420 TRA F.ERR FORMAT ERROR IF NOT 4I786800| 41412 3 00005 2 41420 TXH F.ERR,2,5 NUMERIC OR GTR 5. 4I786900| 41413 0560 60 0 40677 LDQ* CTL.SW CONVERT NUMBER 4I787000 41414 0074 00 4 37237 TSX CV.10,4 AND STORE IN 4I787100| 41415 0621 00 0 41470 STA FY.ENT BLOCKSIZE 4I787200| 41416 0441 00 0 41470 LDI FY.ENT SET INDICATORS 4I787300| 41417 0020 00 1 00001 TRA 1,1 RETURN 4I787400| 41420 0074 00 4 25623 F.ERR TSX ERPR,4 ' ERROR IN NUMERIC 4I787600| 41421 0 00000 3 00073 PZE MSS040,NONOGO FIELD FOLLOWING ' SIGN 4I787700| 41422 0020 00 0 41404 TRA F.MULC OF -FILE- CARD' 4I787800| | 41423 0074 00 1 41406 F.MIN TSX F.CVBL,1 SET BLOCKSIZE 4I788000 0BINARY CARD ID. MAPJ0292| 41424 0057 00 200000 RIR 200000 SHOW MIN 4I788100| 41425 0055 00 100000 SIR 100000 4I788200| 41426 0020 00 0 41401 TRA F.MULA 4I788300| 41427 4500 60 0 40677 F.NSLB CAL* CTL.SW SET EXTERNAL 4I788500| 41430 0602 00 0 41471 SLW FY.ENT+1 NAME INTO CELL 4I788600| 41431 4534 00 2 40677 LXD CTL.SW,2 4I788700| 41432 4054 00 000004 LFT ALB 4I788800| 41433 0020 00 0 41436 TRA *+3 4I788900 41434 0074 00 4 25623 TSX ERPR,4 4I789000| 41435 0 00000 3 00070 PZE MSS037,NONOGO 4I789100| 41436 3 00006 2 41420 TXH F.ERR,2,6 TEST FOR CORRECT 4I789200| 41437 0020 00 0 41404 TRA F.MULC SIZE FIELD 4I789300| 41440 0441 00 0 41470 F.BLOK LDI FY.ENT DO NOT CHANGE SIZE 4I789500| 41441 4056 00 040000 LNT 40000 IF MULTI OR 4I789600| 41442 0074 00 1 41406 TSX F.CVBL,1 MIN HAS OCCURRED 4I789700| 41443 4055 00 040000 SIL 40000 STATUS CHANGES 4I789800| 41444 0604 00 0 41470 STI FY.ENT 4I789900 41445 4625 00 0 41464 STL F.BLKK 4I790000| 41446 0441 00 0 21463 LDI OPER+1 4I790100| 41447 4534 00 2 40677 LXD CTL.SW,2 IF NOT 4I790200| 41450 0522 00 0 41410 XEC F.MULB LEGAL FIELD 4I790300| 41451 0020 00 0 41420 TRA F.ERR DO NOT RETAIN 4I790400 0BINARY CARD ID. MAPJ0293| 41452 3 00005 2 41420 TXH F.ERR,2,5 4I790500| 41453 0020 00 0 41353 TRA FYL.17 EXIT OK 4I790600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 173 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0| * CONSTANTS AND STORAGE 4I790800| * 4I790900| | 41454 0 00006 0 41475 F.NME PZE FY.ENT+5,,6 4I791100 41455 532631432560 F.FIL BCI 1,$FILE 4I791200| 41456 532563236060 F.ETC BCI 1,$ETC 4I791300| 41457 000002000016 F.NRM OCT 000002000016 NORMAL FILE ENTRY 4I791400| 41460 0 00001 0 41461 F.QTS PZE *+1,,1 QUOTE MARK 4I791500| 41461 146060606060 BCI 1,' 4I791600 41462 0 00001 0 41463 F.CMA PZE *+1,,1 COMMA 4I791700| 41463 737322434213 F.BLKE BCI 1,,,BLK= 4I791800| 41464 0 00000 0 00000 F.BLKK PZE 0 'BLK=' SEEN SWITCH 4I791900| 41465 0 00012 0 52430 F.BLKW PZE TEMP,,10 4I792000| 41466 0 00001 0 41467 F.EQM PZE *+1,,1 EQUAL MARK 4I792100 41467 136060606060 BCI 1,= 4I792200| | 41470 FY.ENT BSS 6 FILE DICT BLOCK 4I792700| | 41476 F.IMG BSS 14 $FILE CARD IMAGE 4I792900 1 IBMAPV IBMAPJ 12/01/64 PAGE 174 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * PROCESS -LABEL- CARD 4I793100| * 4I793200 | 0BINARY CARD ID. MAPJ0294| 41514 0520 00 0 21426 LABTYP ZET SWABS DON'T PROCESS 4I793400| 41515 0020 00 0 40473 TRA NTRTA IF ABSMOD 4I793500| 41516 4500 00 0 41721 CAL L.LAB SET $LABEL WORD 4I793600 41517 0602 00 0 41476 SLW F.IMG TO CARD IMAGE 4I793700| 41520 4500 00 0 21461 CAL NAME SAVE NAME FOR 4I793800| 41521 0602 00 0 41475 SLW FY.ENT+5 POSSIBLE LABEL ID 4I793900| 41522 4057 00 037777 RIL ALLBT 4I794000| 41523 0074 00 4 34132 TSX TSTETC,4 SKIP (6)4I794100 41524 0020 00 0 41526 TRA *+2 SCAN (6)4I794110| 41525 0020 00 0 41535 TRA LAB.2 IF NO FIELD 4I794200| | PROCESS EXTERNAL NAME 4I794400| 41526 0774 00 4 36512 AXT QSCNF,4 SET SCAN TO (6)4I794500 41527 0634 00 4 36536 SXA SCSIL,4 IGNORE BLANKS 4I794600| 41530 0074 00 4 36657 TSX SSCAN,4 SCAN FOR 4I794700| 41531 4054 00 001000 LFT CMB EXTERNAL NAME 4I794800| 41532 0601 00 0 44534 LAB.1 STO PARCE 4I794900| 41533 4734 00 2 00000 PDX 0,2 IF COUNT IS 4I795000 41534 3 00000 2 41537 TXH *+3,2,0 ZERO, USE 4I795100| 41535 0500 00 0 41454 LAB.2 CLA F.NME LOC FIELD SYMBOL 4I795200| 41536 0020 00 0 41532 TRA LAB.1 4I795300| 41537 7 00022 2 41551 TXL LAB.25,2,18 IF MORE THAN 18 CHARS. 4I795400| 41540 4054 00 001000 LFT CMB $4$4I795500 41541 0020 00 0 41545 TRA *+4 COMMA TERMINATOR $4$4I795600| 0BINARY CARD ID. MAPJ0295| 41542 0074 00 2 41670 TSX LAB.FE,2 END OF CARD TERMINATION $4$4I795700| 41543 3 00000 0 00001 TXH 1,0,0 $4$4I795800| 41544 0020 00 0 41547 TRA *+3 SET NAME TO 18 AND EXIT $4$4I795900 41545 0074 00 4 25623 TSX ERPR,4 'FILE NAME MUST NOT 4I796000| 41546 0 00000 3 00072 PZE MSS039,NONOGO EXCEED 18 CHARS 4I796100| 41547 0774 00 2 00022 AXT 18,2 SET COUNT 4I796200| 41550 4634 00 2 44534 SXD PARCE,2 TO 18 4I796300| 41551 0500 00 0 41460 LAB.25 CLA F.QTS PLACE QUOTE 4I796400 41552 0074 00 2 41072 TSX FYL.PL,2 MARK 4I796500| 41553 0500 00 0 44534 CLA PARCE PLACE EXTERNAL 4I796600| 41554 0074 00 2 41072 TSX FYL.PL,2 NAME 4I796700| 41555 0500 00 0 41460 CLA F.QTS PLACE QUOTE 4I796800| 41556 0074 00 2 41072 TSX FYL.PL,2 MARK 4I796900 41557 0774 00 1 00004 AXT 4,1 4I797000| 41560 0074 00 2 41707 TSX LAB.CK,2 TEST FOR EXIT 4I797100| | PROCESS SECOND SUBFIELD 4I797300| 41561 0774 00 4 36505 AXT QSCNT,4 RESTORE 4I797400 41562 0634 00 4 36536 SXA SCSIL,4 SCAN 4I797500| 41563 0074 00 4 36657 TSX SSCAN,4 SCAN SECOND 4I797600| 41564 4054 00 001000 LFT CMB FIELD 4I797700| 41565 0601 00 0 44534 STO PARCE 4I797800| 41566 4734 00 1 00000 PDX 0,1 TEST FOR FORMAT 4I797900 41567 7 00005 1 41572 TXL *+3,1,5 ERROR - 4I798000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 175 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0296| 41570 0774 00 1 00005 AXT 5,1 MUST BE ALPHAMERIC 4I798100 41571 0020 00 0 41574 TRA LAB.3 WITH COUNT NOT 4I798200| 41572 4054 00 001000 LFT CMB IF COMMA TERMINATED, PROCEED $4$4I798300| 41573 4054 00 000100 LFT QTB GTR 5. 4I798400| 41574 0074 00 2 41670 LAB.3 TSX LAB.FE,2 ERROR 4I798500| 41575 3 00000 0 00002 TXH 2,0,0 FOR FIELD 2 4I798600 41576 4634 00 1 44534 SXD PARCE,1 4I798700| 41577 0774 00 1 00003 AXT 3,1 PLACE AND 4I798800| 41600 0074 00 2 41677 TSX LAB.PF,2 CHECK END 4I798900| | THIRD AND FOURTH FIELDS 4I799100 41601 0074 00 4 36657 LAB.4 TSX SSCAN,4 SCAN 4I799200| 41602 4054 00 001000 LFT CMB SUBFIELD 4I799300| 41603 0601 00 0 44534 STO PARCE 4I799400| 41604 4734 00 1 00000 PDX 0,1 FIELD 4I799500| 41605 7 00004 1 41610 TXL *+3,1,4 MUST BE 4I799600 41606 0774 00 1 00004 AXT 4,1 LENGTH 4 OR 4I799700| 41607 0020 00 0 41613 TRA LAB.41 LESS,AND 4I799800| 41610 4057 00 000003 RIL NMB+DCB PURELY NUMERIC 4I799900| 41611 4054 00 001000 LFT CMB IF COMMA TERMINATED, PROCEED $4$4I800000| 41612 4054 00 036777 LFT ALLBT-CMB 4I800100 41613 0074 00 2 41670 LAB.41 TSX LAB.FE,2 4I800200| 41614 3 00002 0 00003 TXH 3,0,2 4I800300| 41615 4634 00 1 44534 SXD PARCE,1 4I800400| 0BINARY CARD ID. MAPJ0297| 41616 4534 00 1 41614 LXD LAB.41+1,1 4I800500 41617 0074 00 2 41677 TSX LAB.PF,2 4I800600| | PROCESS FOURTH FIELD 4I800800| 41620 0074 00 4 36657 LAB.5 TSX SSCAN,4 4I800900| 41621 4054 00 001000 LFT CMB 4I801000 41622 0601 00 0 44534 STO PARCE 4I801100| 41623 4734 00 1 00000 PDX ,1 4I801200| 41624 7 00006 1 41627 TXL LAB.51,1,6 4I801300| 41625 0774 00 1 00006 AXT 6,1 4I801400| 41626 0020 00 0 41631 TRA LAB.51+2 4I801500 41627 4057 00 000003 LAB.51 RIL NMB+DCB 4I801600| 41630 4054 00 001000 LFT CMB IF COMMA TERMINATED, PROCEDD $4$4I801700| 41631 4054 00 016777 LFT ALLBT-CMB-SLB 4I801800| 41632 0074 00 2 41670 TSX LAB.FE,2 4I801900| 41633 3 00001 0 00004 TXH 4,0,1 4I802000 41634 4634 00 1 44534 SXD PARCE,1 4I802100| 41635 4534 00 1 41633 LXD LAB.51+4,1 $4$4I802200| 41636 0074 00 2 41677 TSX LAB.PF,2 4I802300| | PROCESS LAST FIELD 4I802500 41637 0774 00 4 36512 LAB.6 AXT QSCNF,4 SET SCAN TO (6)4I802600| 41640 0634 00 4 36536 SXA SCSIL,4 IGNORE BLANKS 4I802700| 41641 0074 00 4 36657 TSX SSCAN,4 SCAN LAST 4I802800| 41642 4054 00 001000 LFT CMB FIELD 4I802900| 41643 0601 00 0 44534 STO PARCE 4I803000 0BINARY CARD ID. MAPJ0298| 41644 4734 00 1 00000 PDX 0,1 4I803100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 176 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 41645 7 00022 1 41647 TXL *+2,1,18 REDUCE FIELD 4I803200 41646 0774 00 1 00022 AXT 18,1 SIZE TO 18 CHARACTERS 4I803300| 41647 4634 00 1 44534 SXD PARCE,1 4I803400| 41650 0500 00 0 41462 CLA F.CMA 4I803500| 41651 0074 00 2 41072 TSX FYL.PL,2 PLACE COMMA 4I803600| 41652 0500 00 0 44534 CLA PARCE 4I803700 41653 0074 00 2 41072 TSX FYL.PL,2 PLACE FIELD 4I803800| 41654 4056 00 001000 LNT CMB 4I803900| 41655 0020 00 0 41660 TRA LAB.7 4I804000| 41656 0074 00 4 25623 TSX ERPR,4 'TOO MANY 4I804100| 41657 0 00000 1 00030 PZE WMS005,GO SUBFIELDS' 4I804200 | FINISH CARD AND EXIT 4I804400| 41660 0774 00 4 36505 LAB.7 AXT QSCNT,4 RESTORE 4I804500| 41661 0634 00 4 36536 SXA SCSIL,4 SCAN 4I804600| 41662 0774 00 4 00003 AXT 3,4 RESTORE 4I804700 41663 0522 00 0 41100 XEC FYP.3 4I804800| 41664 0522 00 0 41101 XEC FYP.4 4I804900| 41665 0074 00 2 41117 TSX FC.OUT,2 OUTPUT CARD 4I805000| 41666 0074 00 4 44274 TSX MCDPR,4 4I805100| 41667 0020 00 0 26640 TRA PASA AND EXIT 4I805200 | | FIELD FORMAT ERROR 4I805400| 41670 0500 00 2 00001 LAB.FE CLA 1,2 SET FIELD NUMBER 4I805500| 41671 0621 00 0 41676 STA LAB.FF+1 IN ERROR 4I805600 0BINARY CARD ID. MAPJ0299| 41672 0074 00 4 25623 TSX ERPR,4 'FORMAT ERROR FOR 4I805700| 41673 0 41675 2 00175 PZE FMS006,NOGO,LAB.FF FIELD N OF -LABEL- CARD' 4I805800| 41674 0020 00 2 00002 TRA 2,2 EXIT 4I805900| 41675 0 00000 0 00001 LAB.FF PZE 1 4I806100| 41676 0 00002 2 00000 PZE **,2,2 FIELD NO IN ERROR 4I806200| PLACE FIELD AND CHECK END 4I806300| 41677 0634 00 2 41705 LAB.PF SXA LAB.PX,2 SAVE RETURN 4I806400| 41700 0634 00 1 41706 SXA LAB.PX+1,1 SAVE COMMA COUNT 4I806500 41701 0500 00 0 41462 CLA F.CMA 4I806600| 41702 0074 00 2 41072 TSX FYL.PL,2 PLACE COMMA 4I806700| 41703 0500 00 0 44534 CLA PARCE 4I806800| 41704 0074 00 2 41072 TSX FYL.PL,2 PLACE FIELD 4I806900| 41705 0774 00 2 00000 LAB.PX AXT **,2 4I807000 41706 0774 00 1 00000 AXT **,1 4I807100| 41707 4054 00 001000 LAB.CK LFT CMB EXIT IF 4I807200| 41710 0020 00 2 00001 TRA 1,2 NOT BLANK 4I807300| 41711 0074 00 4 25623 TSX ERPR,4 'NOT ENOUGH 4I807400| 41712 0 00000 3 00176 PZE FMS007,NONOGO SUBFIELDS' 4I807500 41713 0634 00 1 41716 LAB.CL SXA LAB.CM,1 4I807600| 41714 0500 00 0 41462 CLA F.CMA PLACE 4I807700| 41715 0074 00 2 41072 TSX FYL.PL,2 REQUIRED 4I807800| 41716 0774 00 1 00000 LAB.CM AXT **,1 NUMBER OF 4I807900| 41717 2 00001 1 41713 TIX LAB.CL,1,1 COMMAS 4I808000 0BINARY CARD ID. MAPJ0300| 41720 0020 00 0 41660 TRA LAB.7 4I808100| 41721 534321222543 L.LAB BCI 1,$LABEL $LABEL FOR CARD 4I808300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 177 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0| * SPE CIAL GENERATIVE SYSTEM OPERATIONS. 4I808500| * 4I808600| | 41722 SSSTEM SYN * 4I808800 41722 0600 00 0 42306 STZ LPFLAG 4I809000| 41723 0500 00 0 21443 CLA BLINK 4I809100| 41724 0621 00 0 42323 STA SK.33 SAVE SENTENCE NUMBER 4I809200| 41725 0074 00 4 34155 TSX NMLOC,4 ENTER NAME 4I809300| 41726 0774 00 1 00004 AXT 4,1 4I809400 41727 4500 00 1 42302 SSTEM1 CAL SYS.WD+4,1 FETCH BCD 4I809500| 41730 0074 00 4 26411 TSX NTLOC,4 FIND LOCATION 4I809600| 41731 0621 60 1 42306 STA* LPFLAG,1 STORE 4I809700| 41732 0120 00 0 41735 TPL *+3 4I809800| 41733 0560 00 1 42302 LDQ SYS.WD+4,1 FETCH BCD AGAIN 4I809900 41734 0522 00 1 42306 XEC LPFLAG,1 STORE 4I810000| 41735 2 00001 1 41727 TIX SSTEM1,1,1 4I810100| | 41736 0560 00 0 35146 SSST.1 LDQ CUROPN FETCH OPERATION $4$4I810400| 41737 4754 00 0 00000 PXD 0,0 $4$4I810500 41740 4114 01 0 26665 CAQ ADJTBL,,1 $4$4I810600| 41741 0074 00 4 27123 TSX WHATYP,4 4I810700| 41742 76A BSS 0 $4$4I810800| 41742 0 00000 0 41745 PZE SSCTYP 4I810900| 41743 0 00000 0 42332 PZE SSVTYP 4I811000 41744 0 00000 0 42330 PZE SSVNTP 4I811100| 41745 76B BSS 0 $4$4I811200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 178 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 * CALL OPERATION. FORMAT 4I811400| * LCS CALL NAME (P1,P2,...,PN)R1,R2,...,RM 4I811500| * 4I811600| * INSTRUCTIONS GENERATED 4I811700| * TSX NAME,4 4I811800 * TXI *+2+N+M,,N 4I811900| * PZE LINE NO.,,LINKAGE DIRECTOR 4I812000| * PZE P1 4I812100| * . . 4I812200| * PZE PN 4I812300 * TRA RM 4I812400| * . . 4I812500| * TRA R1 4I812600| | 41745 0441 00 0 21443 SSCTYP LDI BLINK IF CARD IS TO BE PRINTED, (6)4I812800| 0BINARY CARD ID. MAPJ0301| 41746 4055 00 000010 SIL 10 PRINT LINE NUMBER IN MARGIN (6)4I812900| 41747 0604 00 0 21443 STI BLINK (6)4I813000| 41750 0074 00 4 34132 TSX TSTETC,4 DOES VARIABLE FIELD EXIST (6)4I813100 41751 0020 00 0 41753 TRA SSC.1 YES (6)4I813200| 41752 0020 00 0 31634 TRA QUALX NO, EXIT WITH MESSAGE (6)4I813300| | 41753 0074 00 4 36657 SSC.1 TSX SSCAN,4 SCAN FOR NAME 4I813700| 41754 4054 00 027760 LFT ALLBT-ALB-DCB-NMB-PDB-ASB (6)4I813800 41755 4625 00 0 21454 STL SWLNKG SET LINKAGE DIRECTOR $4$4I813900| 41756 0634 00 1 42011 SXA SSC.1C,1 SAVE TERMINATOR (6)4I814000| 41757 4057 00 001120 RIL CMB+LPB+QTB 4I814100| 41760 4054 00 010014 LFT ALB+PDB+ASB ACCEPT NAME ONLY (6)4I814110| 41761 0522 00 0 36452 XEC SCLFT IF SINGLE SYMBOL OF 4I814200 41762 0020 00 0 42272 TRA SSCERR 1 TO 6 CHARACTERS. 4I814300| 41763 4737 00 2 00000 PDC 0,2 COMPLEMENT OF COUNT TO X2 4I814400| 41764 7 77771 2 42272 TXL SSCERR,2,-7 TEST FOR 6 OR LESS CHAR. 4I814500| 41765 0560 00 0 35156 LDQ NMLSC RESTORE TERMINATORS 4I814600| 41766 4600 00 0 36452 STQ SCLFT 4I814700 41767 0621 00 0 41770 STA *+1 OK FETCH NAME 4I814800| 41770 4500 00 0 00000 SSC.1A CAL ** FETCH NAME 4I814900| 41771 0322 00 0 42310 ERA DSTAR TEST FOR ** 4I815000| 41772 0602 00 0 42311 SLW DSTSW SET SWITCH (ZERO IF **) 4I815100| 41773 4056 00 010000 LNT ASB WAS THERE AN ASTERISK 4I815200 0BINARY CARD ID. MAPJ0302| 41774 0020 00 0 42000 TRA SSC.1B NO, PROCESS NORMALLY 4I815300| 41775 4100 00 0 42272 TNZ SSCERR * BUT NOT **, ERROR 4I815400| 41776 4501 00 0 21721 ORA 10WD **, SET ADJECTIVE CODE 10 4I815500| 41777 0020 00 0 42002 TRA *+3 4I815600 42000 0522 00 0 41770 SSC.1B XEC SSC.1A 4I815700| 42001 0074 00 4 26411 TSX NTLOC,4 NAME TABLE LOC. FOR NAME. 4I815800| 42002 0621 00 0 42313 STA SK.15 STORE ADDRESS 4I815900| 42003 0630 00 0 42313 STP SK.15 STORE ADJECTIVE CODE (10 OR 00) 4I816000| 42004 0560 60 0 41770 LDQ* SSC.1A 4I816100 42005 0120 00 0 42007 TPL *+2 4I816200| 42006 4600 60 0 42313 STQ* SK.15 4I816300| 42007 0634 00 0 42040 SXA SSC.CP,0 ZERO PARAMETER COUNT 4I816400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 179 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0 42010 0634 00 0 42072 SXA SSC.CR,0 ZERO RETURN COUNT 4I816500| 42011 0774 00 1 00000 SSC.1C AXT **,1 RELOAD TERMINATOR CODE (6)4I816600| 42012 7 00000 1 42100 TXL SSC.3,1,0 EXIT IF BLANK (6)4I816700| 42013 1 77766 1 42014 SSC.1D TXI *+1,1,-CMCDE 4I816800| 42014 7 00000 1 42053 TXL SSC.24,1,0 TRANSFER IF COMMA 4I816900 42015 1 00005 1 42016 TXI *+1,1,CMCDE-LPCDE 4I817000| 42016 3 00000 1 42233 TXH SSC.2F,1,0 IF NOT LEFT PARENTHESIS, QUOTE (6)4I817100| 42017 0500 00 0 42023 SSC.2 CLA SSC.21 IF YES, CONTINUE SCAN. 4I818200| 42020 0601 00 0 36530 STO SCSIL-RPCDE ALTER SCAN 4I818300| 42021 0600 00 0 42306 STZ LPFLAG 4I818400 0BINARY CARD ID. MAPJ0303| 42022 0020 00 0 42037 TRA SSC.23 COMMENCE SCAN 4I818500| 42023 0074 00 1 42026 SSC.21 TSX SSC.RP,1 MODIFIER FOR SCAN TABLE (6)4I818600| 42024 4055 00 000040 SSC.22 SIL RPB SCAN RESTORE CONSTANT 4I818700| 42025 0020 60 0 42036 TRA* SSC.RX (6)4I818710 42026 0754 00 1 00001 SSC.RP PXA 1,1 COMPUTE EFFECTIVE (6)4I818800| 42027 4400 00 0 42026 SBM *-1 ADDRESS OF 1,1 (6)4I818810| 42030 0621 00 0 42036 STA SSC.RX AND STORE FOR RETURN (6)4I818820| 42031 0774 00 1 00012 AXT CMCDE,1 SET CODE FOR COMMA (6)4I818830| 42032 0520 00 0 34367 ZET PRCNT IS PAREN COUNT ZERO (6)4I818840 42033 1 77774 1 42024 TXI SSC.22,1,RPCDE-CMCDE NO, TRUE RIGHT PARENEHESIS (6)4I818900| 42034 4625 00 0 42306 STL LPFLAG YES, TERMINATE ARGUMENT LIST (6)4I818910| 42035 4055 00 001000 SIL CMB TREAT AS COMMA FOR SCAN (6)4I818920| 42036 0020 00 0 00000 SSC.RX TRA ** EXIT (6)4I818930| 42037 0074 00 4 33444 SSC.23 TSX SCAFLD,4 SCAN FIELD 4I819000 42040 0774 00 4 00000 SSC.CP AXT **,4 PARAMETER COUNT 4I819200| 42041 4520 00 0 26724 NZT LINKSW TEST FOR FULL LINK BUFFER 4I819300| 42042 1 00001 4 42043 TXI *+1,4,1 BUMP 4I819400| 42043 0634 00 4 42040 SXA SSC.CP,4 4I819500| 42044 4520 00 0 42306 NZT LPFLAG WAS RIGHT PAREN FOUND 4I819600 42045 0020 00 0 42223 TRA SSC.2X NO 4I819700| 42046 0500 00 0 42024 CLA SSC.22 YES, RESTORE SCAN 4I819800| 42047 0601 00 0 36530 STO SCSIL-RPCDE 4I819900| 0BINARY CARD ID. MAPJ0304| 42050 0074 00 4 34132 SSC.26 TSX TSTETC,4 IS NEXT TERMINATOR BLANK (6)4I820000 42051 0020 00 0 42053 TRA SSC.24 NO, GO TO SORT (6)4I820100| 42052 0020 00 0 42100 TRA SSC.3 YES, EXIT 4I820500| 42053 0500 00 0 42063 SSC.24 CLA FDUM1-1 4I820600| 42054 0601 00 0 36527 STO SCSIL-QTCDE AT QUOTE LOCATION 4I820700| 42055 0600 00 0 42306 STZ LPFLAG ZERO FLAG 4I820800 42056 1 77771 1 42057 TXI *+1,1,-QTCDE 4I820900| 42057 3 00000 1 42067 TXH SSC.25,1,0 GO TO SCAN IF NOT QUOTE 4I821000| 42060 0074 00 4 36657 TSX SSCAN,4 POSITION SCAN AT QUOTE 4I821100| 42061 4054 00 000100 LFT QTB 4I821200| 42062 0020 00 0 42233 TRA SSC.2F GO PROCESS ID FIELD 4I821300 42063 0020 00 0 42064 TRA FDUM1 MODIFIER 4I821400| 42064 4625 00 0 42306 FDUM1 STL LPFLAG SET FLAG 4I821500| 42065 1 00003 1 36514 TXI QSCNE,1,CMCDE-QTCDE SET EXIT CODE COMMA (6)4I821600| 42066 4055 00 000100 SIL QTB RESTORE INSTRUCTION 4I821700| 42067 0074 00 4 33444 SSC.25 TSX SCAFLD,4 4I821800 42070 0520 00 0 42306 ZET LPFLAG WAS QUOTE ENCOUNTERED 4I822000| 42071 0020 00 0 42230 TRA SSC.2Y YES 4I822100| 42072 0774 00 4 00000 SSC.CR AXT **,4 RETURN COUNT 4I822200| 42073 4520 00 0 26724 NZT LINKSW TEST FOR FULL LINK BUFFER 4I822300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 180 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42074 1 00001 4 42075 TXI *+1,4,1 BUMP R COUNT 4I822400| 42075 0634 00 4 42072 SXA SSC.CR,4 REPLACE MODIFIED COUNT 4I822500| 0BINARY CARD ID. MAPJ0305| 42076 0520 00 0 35166 ZET SWCVFE TEST TERMINATOR 4I822600 42077 0020 00 0 42067 TRA SSC.25 4I822700| | QUAL PBLINK REDEFINE BLINK FOR FOLLOWING (6)4I822900| 21466 BLINK SYN PBLINK PROCESSING TO REFER TO PBLINK (6)4I823000| 42100 0441 00 0 21466 SSC.3 LDI BLINK (6)4I823200| 42101 0520 00 0 35171 ZET TIDESW IF TITLE IS IN EFFECT, (6)4I823300| 42102 4055 00 000002 SIL 2 SET NO PRINT FOR PASS 2 (6)4I823400| 42103 4057 00 000011 RIL 11 RESET LINE NUMBER PRINT INDICATORS(6)4I823500| 42104 0055 00 400000 SIR 400000 SIGNAL NO BCD FOR OPERATION (6)4I823600 42105 0604 00 0 21466 STI BLINK 4I823700| 42106 0522 00 0 42040 XEC SSC.CP PICK UP PARAMETER COUNT(N) 4I823800| 42107 0634 00 4 42321 SXA SK.28,4 SET N 4I823900| 42110 4634 00 4 42112 SXD *+2,4 4I824000| 42111 0522 00 0 42072 XEC SSC.CR PICK UP RETURN COUNT (M) 4I824100 42112 1 00000 4 42113 TXI *+1,4,** N+M IN X4 4I824200| 42113 0634 00 4 42131 SXA SSC.4,4 4I824300| 42114 1 00002 4 42115 TXI *+1,4,2 N+M+2 IN X4 4I824400| 42115 0634 00 4 42317 SXA SK.25,4 SET N+M+2 4I824500| 42116 0520 00 0 21426 ZET SWABS SKIP IF (6)4I824600 42117 0020 00 0 42123 TRA SSC.3A ABSMOD ASSEMBLY (6)4I824700| 42120 0074 00 4 34560 TSX FPCLAG,4 OUTPUT CALL OP (6)4I824800| 42121 0 00001 0 42307 PZE SYS.OP,,1 TO T2 (6)4I824900| 42122 4 00001 0 21466 MZE BLINK,,1 TEXT (6)4I825000| 42123 0074 00 4 34560 SSC.3A TSX FPCLAG,4 ISSUE FIRST THREE INSTRUCTIONS (6)4I825100 0BINARY CARD ID. MAPJ0306| 42124 0 00003 0 42312 PZE SK.1,,3 (TSX NAME,4) 4I825200| 42125 0 00001 0 21466 PZE BLINK,,1 4I825300| 42126 0 00005 0 42315 PZE SK.2,,5 (TXI *+2+M+N) 4I825400| 42127 0 00001 0 21466 PZE BLINK,,1 4I825500 42130 4 00004 0 42322 MZE SK.3,,4 (PZE LINE NO.,,L.D.) 4I825600| | 42131 0774 00 4 00000 SSC.4 AXT **,4 N+M TO X4 4I826200| 42132 1 00003 4 42133 TXI *+1,4,3 4I826300| 42133 4754 00 4 00000 PXD 0,4 BUMP SEPARATION COUNT 4I826400 42134 0074 00 4 36275 TSX SEPBP,4 BY TOTAL OF INST. GEN. 4I826500| 42135 0600 00 0 42306 STZ LPFLAG SET FLAG 4I826600| 42136 0522 00 0 42040 XEC SSC.CP 4I826700| 42137 0634 00 4 42145 SXA SSC.5+1,4 4I826800| 42140 0774 00 4 42326 AXT SK.4,4 SET CALLING SEQUENCE 4I826900 42141 0774 00 1 52030 AXT LINK,1 4I827000| 42142 0634 00 4 42170 SXA SSC.65,4 4I827100| 42143 4625 00 0 42173 STL SSC.71+1 4I827200| 42144 0634 00 1 42153 SSC.5 SXA SSC.6,1 4I827300| 42145 0774 00 4 00000 AXT **,4 PICK UP COUNT 4I827400 42146 7 00000 4 42174 TXL SSC.75,4,0 4I827500| 42147 1 77777 4 42150 TXI *+1,4,-1 DECREMENT COUNT 4I827600| 42150 0634 00 4 42145 SXA SSC.5+1,4 4I827700| 42151 0634 00 1 42171 SXA SSC.7,1 4I827800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 181 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0307| 42152 0774 00 2 00000 AXT 0,2 4I827900| 42153 0441 00 2 00000 SSC.6 LDI **,2 4I828000| 42154 1 00001 1 42155 TXI *+1,1,1 4I828100 42155 4057 00 000200 RIL 200 PROCESS IF COMMA 4I828200| 42156 4054 00 007700 LFT 7700 OR END 4I828300| 42157 1 77777 2 42153 TXI SSC.6,2,-1 FETCH NEXT 4I828400| 42160 0604 60 0 42153 STI* SSC.6 4I828500| 42161 1 77777 2 42162 TXI *+1,2,-1 4I828600 42162 0754 00 2 00000 PXA 0,2 4I828700| 42163 0737 00 2 00000 PAC 0,2 4I828800| 42164 4634 00 2 42171 SXD SSC.7,2 4I828900| 42165 0634 00 1 42172 SXA SSC.71,1 4I829000| 42166 0074 00 4 34560 TSX FPCLAG,4 ISSUE INSTRUCTION 4I829100 42167 0 00001 0 21466 PZE BLINK,,1 4I829200| 42170 0 00001 0 00000 SSC.65 PZE **,,1 4I829300| 42171 4 00000 0 00000 SSC.7 MZE **,,** 4I829400| 42172 0774 00 1 00000 SSC.71 AXT **,1 4I829500| 42173 0020 00 0 42144 TRA SSC.5 4I829600 42174 0520 00 0 42306 SSC.75 ZET LPFLAG 4I829700| 42175 0020 00 0 42255 TRA SSC.8 4I829800| 42176 4625 00 0 42306 STL LPFLAG SET FLAG FOR RETURNS 4I829900| 42177 0522 00 0 42072 XEC SSC.CR FETCH TRANSFER COUNT 4I830000| 0BINARY CARD ID. MAPJ0308 42200 0634 00 4 42145 SXA SSC.5+1,4 4I830100| SCAN TEXT TO PICKUP LAST RETURN FIRST. 4I830200| 42201 7 00001 4 42216 TXL SSC.7C,4,1 4I830300| 42202 0634 00 1 42210 SXA SSC.7B,1 4I830400| 42203 4625 00 0 42173 STL SSC.71+1 4I830500 42204 0522 00 0 42145 SSC.7A XEC SSC.5+1 4I830600| 42205 6 00001 4 42221 TNX SSC.7D,4,1 4I830700| 42206 0522 00 0 42221 XEC SSC.7D 4I830800| 42207 0774 00 2 00000 AXT 0,2 4I830900| 42210 0441 00 2 00000 SSC.7B LDI **,2 4I831000 42211 1 00001 1 42212 TXI *+1,1,1 4I831100| 42212 4057 00 000200 RIL 200 4I831200| 42213 4054 00 007700 LFT 7700 4I831300| 42214 1 77777 2 42210 TXI SSC.7B,2,-1 4I831400| 42215 2 00001 4 42214 TIX *-1,4,1 4I831500 42216 0774 00 4 42327 SSC.7C AXT SK.5,4 4I831600| 42217 0634 00 4 42170 SXA SSC.65,4 4I831700| 42220 0020 00 0 42144 TRA SSC.5 4I831800| 42221 0534 00 1 42210 SSC.7D LXA SSC.7B,1 4I831900| 42222 0020 00 0 42143 TRA SSC.5-1 4I832000 | 42223 0520 00 0 35166 SSC.2X ZET SWCVFE 4I832200| 42224 0020 00 0 42037 TRA SSC.23 NON ZERO TERMINATOR 4I832300| 42225 0074 00 4 25623 TSX ERPR,4 ERROR, ISSUE MESSAGE 4I832400| 0BINARY CARD ID. MAPJ0309 42226 0 00000 3 00204 PZE FMS012,NONOGO 'MISUSE OF PARENTHSIS ON 4I832500| 42227 0020 00 0 42100 TRA SSC.3 CALL MACRO' 4I832600| | 42230 0522 00 0 42072 SSC.2Y XEC SSC.CR 4I832800| 42231 1 00001 4 42232 TXI *+1,4,1 BUMP COUNT 4I832900 1 IBMAPV IBMAPJ 12/01/64 PAGE 182 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42232 0634 00 4 42072 SXA SSC.CR,4 4I833000| 42233 0500 00 0 42066 SSC.2F CLA FDUM1+2 4I833100| 42234 0601 00 0 36527 STO SCSIL-QTCDE 4I833200 42235 0074 00 4 34132 TSX TSTETC,4 (6)4I833300| 42236 0020 00 0 42240 TRA *+2 (6)4I833400| 42237 0020 00 0 42100 TRA SSC.3 NO 4I833800| 42240 0074 00 4 36657 TSX SSCAN,4 YES, SCAN 4I833900| 42241 4054 00 001100 LFT QTB+CMB TERMINATE ON COMMA OR QUOTE 4I834000 42242 4054 00 036674 LFT EQB+DLB+SLB+PSB+MSB+ASB+ALB+PDB+LPB+RPB 4I834100| 42243 0020 00 0 42252 TRA SSC.2Z ERROR IF OTHER THAN NUMERIC 4I834200| 42244 4734 00 2 00000 PDX ,2 4I834300| 42245 0621 00 0 42246 STA *+1 4I834400| 42246 0560 00 0 00000 LDQ ** FETCH NUMBER 4I834500 42247 0074 00 4 37237 TSX CV.10,4 CONVERT 4I834600| 42250 0621 00 0 42323 STA SK.33 STORE IN TEXT 4I834700| 42251 0020 00 0 42050 TRA SSC.26 4I834800| 42252 0074 00 4 25623 SSC.2Z TSX ERPR,4 FILE ERROR MESSAGE 'NON NUMERIC 4I834900| 42253 0 00000 1 00174 PZE FMS005,GO CHARACTER IN 'ID' FIELD OF-CALL-OP' 4I835000 0BINARY CARD ID. MAPJ0310| 42254 0020 00 0 42050 TRA SSC.26 4I835100| | END OF CALL 4I835300| 42255 0500 00 0 42066 SSC.8 CLA FDUM1+2 RESTORE (6)4I835400 42256 0601 00 0 36527 STO SCSIL-QTCDE SSCAN $5$4I835520| 42257 0500 00 0 42313 CLA SK.15 4I835600| 42260 0767 00 0 00022 ALS 18 FOR CONTROL 4I835700| 42261 0361 00 0 42275 ACL SYS.3P FILE 4I835800| 42262 0601 00 0 40677 STO CTL.SW 4I835900 42263 0601 00 0 40676 STO CTL.KY 4I836000| 42264 0774 00 1 00000 AXT 0,1 4I836100| 42265 0520 00 0 42311 ZET DSTSW 4I836200| 42266 0074 00 4 40630 TSX CTL.PL,4 PLACE IN FILE 4I836300| 42267 0560 00 0 35156 LDQ NMLSC 4I836400 42270 4600 00 0 36452 STQ SCLFT 4I836500| 42271 0020 00 0 26640 TRA PASA EXIT 4I836600| | 42272 0074 00 4 25623 SSCERR TSX ERPR,4 ' NAME FOR CALL ROUTINE 4I836800| 42273 0 00000 3 00060 PZE MSS033,NONOGO MUST BE SINGLE 4I836900 42274 0020 00 0 40541 TRA CTL.6 UNQUALIFIED SYMBOL 4I837000| | 42275 300000000000 SYS.3P VFD 3/3 4I837200| 42276 627062434623 SYS.WD BCI 1,SYSLOC 4I837300| 42277 336351476266 BCI 1,.TRPSW 4I837400 42300 336351214767 BCI 1,.TRAPX 4I837500| 42301 627062246222 BCI 1,SYSDSB 4I837600| 0BINARY CARD ID. MAPJ0311| 42302 4600 60 0 43041 STQ* KV.105 4I837700| 42303 4600 60 0 43023 STQ* KV.45 4I837800 42304 4600 60 0 43025 STQ* KV.55 4I837900| 42305 4600 60 0 43034 STQ* KV.85 4I838000| 42306 0 00000 0 00000 LPFLAG PZE ** 4I838100| 42307 760000000000 SYS.OP VFD O6/76,30/0 CALL OPERATION CODE 4I838200| 42310 545460606060 DSTAR BCI 1,** ** IN BCD FOR TESTING 4I838300 42311 0 00000 0 42311 DSTSW PZE * SWITCH FOR DETECTING ** 4I838400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 183 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| | * INSTRUCTION SKELETONS FOR CALL 4I838700| | | * TSX NAME,4 4I839000 42312 430725000074 SK.1 VFD O6/43,O12/SSCSSV,O18/74 4I839100| 42313 000200000000 SK.15 VFD 6/0,6/2,24/** ADD = NAME 4I839200| 42314 100000000004 VFD 6/8,6/0,24/4 TAG = 4 4I839300| | * TXI *+2+N+M,,N 4I839500 42315 400725001000 SK.2 VFD O6/40,O12/SSCSSV,O18/1000 4I839600| 42316 040300000000 VFD O6/04,O6/3,24/0 LOCATION COUNTER 4I839700| 42317 100200000000 SK.25 VFD O6/10,6/2,24/** PLUS (M+2+N)=ADD 4I839800| 42320 100200000000 VFD O6/10,6/2,24/0 TAG = 0 4I839900| 42321 100000000000 SK.28 VFD O6/10,6/0,24/** DECREMENT = N 4I840000 | * PZE LINE NO.,,LINK DIR. 4I840200| 42322 410725000000 SK.3 VFD O6/41,O12/SSCSSV,O18/0 4I840300| 42323 100200000000 SK.33 VFD O6/10,6/2,24/** ADD = LINE NO. (FROM BLINK) 4I840400| 42324 100200000000 VFD O6/10,6/2,24/0 TAG = 0 4I840500 42325 010000021455 SK.36 VFD O6/01,6/0,24/SWLNKG+1 DEC. = LINKAGE DIR. 4I840600| | * PZE ARGI WHERE I=1TON FOR N ARGUMENTS. 4I840800| 42326 410725000000 SK.4 VFD O6/41,O12/SSCSSV,O18/0 4I840900| * TRA RETJ WHERE J = 1 TO M, FOR M RETURNS 4I841100| 42327 430725000020 SK.5 VFD O6/43,O12/SSCSSV,O18/20 4I841200| | | 000725 SSCSSV BOOL 700+AOK+TOK+DOK 4I841400 1 IBMAPV IBMAPJ 12/01/64 PAGE 184 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0| * SAVE OPERATION. FORMAT IS 4I841600| * 4I841700 * SAVE X1,X2,..,XN,I,D 4I841800| * 4I841900| * WHERE X1 TO XN ARE THE SPECIFIC INDEX 4I842000| * REGISTERS TO BE SAVED. 4I842100| * I MEANS SAVE INDICATORS. 4I842200 * D MEANS DISABLE TRAPS. 4I842300| * INDEX REGISTER 4 IS SAVED IF SPECIFIED OR NOT. 4I842400| * 4I842500| * INSTRUCTIONS GENERATED - 4I842600| * TXI ..0003,,0 4I842700 * AXT **,XN 4I842800| * . 4I842900| * . 4I843000| *.0001 AXT **,4 4I843100| * LDI ..0002+1 IF I PRESENT 4I843200 * NZT .IFTRP IF D PRESENT 4I843300| * ENB* .TRAPS 4I843400| *.0002 TRA 1,4 4I843500| * PZE IF I PRESENT 4I843600| *.0003 XEC SYSDSB 4I843700 * STI ..0002+1 IF I PRESENT 4I843800| * SXA SYSLOC,4 4I843900| * SXA LK.DR,4 4I844000| * SXA ..0001,4 4I844100| * SXA ..0001-1,2 4I844200 * . . 4I844300| * . . 4I844400| * 4I844500| * IF THE LETTERS I,D OR E APPEAR MORE THAN ONCE 4I844600| * AN ERROR MESSAGE WILL RESULT (LOW SEVERITY) 4I844700 * OTHERWISE THE REDUNDENCY WILL BE TREATED 4I844800| * AS THOUGH IT HAD NOT OCCURED. 4I844900| * IF THE SPECIFICATION OF A REGISTER OCCURS MORE 4I845000| * THAN ONCE, IT WILL BE IGNORED 4I845100| * IF ANY SYMBOL OTHER THAN I,D,E OR AN INTEGER. 4I845200 * OCCURS, THE 'S' VALUE OF THAT SYMBOL WILL 4I845300| * BE TAKEN AS THE REGISTER TO BE SAVED. 4I845400| * (NO INSTRUCTIONS ARE GENERATED FOR A TAG OF 0) 4I845500| * IF AN INTEGER GREATER THAN 7 OCCURS, AN ERROR 4I845600| * MESSAGE WILL RESULT, AN THE INTEGER 4I845700 * WILL BE TAKEN MOD 7. 4I845800| * 4I845900| * 4I846000| 0BINARY CARD ID. MAPJ0312| 42330 4625 00 0 43144 SSVNTP STL SWNOEN SET SAVEN SWITCH 4I846100 42331 0020 00 0 42334 TRA SSVTPX 4I846200| 42332 0600 00 0 43144 SSVTYP STZ SWNOEN SET SAVE SWITCH 4I846300| 42333 4625 00 0 21454 STL SWLNKG SET LINKAGE DIRECTOR $4$4I846400| 42334 0600 00 0 43123 SSVTPX STZ SSV.I ZERO INDICATOR SWITCH 4I846500| 42335 0600 00 0 43124 STZ SSV.D ZERO TRAP SWITCH 4I846600 42336 0600 00 0 43122 STZ SSV.E ZERO E SWITCH 4I846700| 42337 0774 00 4 00007 AXT 7,4 ZERO CELLS IN INDEX 4I846800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 185 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42340 0600 00 4 43121 STZ FINDXT,4 TABLE 4I846900 42341 2 00001 4 42340 TIX *-1,4,1 4I847000| 42342 4625 00 0 43115 STL FINDXT-4 RESET FOR INDEX 4 4I847100| 42343 0600 00 0 43121 STZ FINDXT 4I847200| 42344 0634 00 4 42711 SXA SSV.61,4 SET INDEX COUNT TO 1 4I847300| 42345 0520 00 0 21461 ZET NAME TEST FOR NAME 4I847500 42346 0020 00 0 42356 TRA SSV.TT PROCEED 4I847600| 42347 0074 00 4 37303 TSX DUMMY,4 NO NAME, GENERATE ONE 4I847700| 42350 0602 00 0 21461 SLW NAME 4I847900| 42351 0074 00 4 34155 TSX NMLOC,4 ENTER IN DICTIONARY 4I848100| 42352 0074 00 4 26410 TSX NTLOK,4 OBTAIN LOCATION OF NAME (6)4I848110 42353 0621 00 0 40701 STA CTL.EL+1 FOR MESSAGE (6)4I848120| 42354 0074 00 4 25623 TSX ERPR,4 PRINT ERROR MESSAGE 4I848200| 42355 0 40700 1 00164 FMS002,GO,CTL.EL - NAME '---' SUPPLIED FOR -SAVE- (6)4I848300| 0BINARY CARD ID. MAPJ0313| 42356 0074 00 4 26410 SSV.TT TSX NTLOK,4 FETCH NAME TABLE LOCATION 4I848400 42357 0621 00 0 43110 STA KV.225 STORE FOR SXD GENERATION 4I848500| 42360 4320 00 0 21723 ANA MSKAD 4I848900| 42361 0601 00 0 52030 STO LINK SEND TEXT TO LINK 4I849000| 42362 0621 00 0 43007 STA KV.E SIMULATE ENTRY OPERATION (6)4I849010| 42363 0767 00 0 00022 ALS 18 FORM 4I849100 42364 0361 00 0 21721 ACL 10WD KEY WORD 4I849200| 42365 0361 00 0 21705 ACL L(1) FOR PROCESSING 4I849300| 42366 0601 00 0 40676 STO CTL.KY SYMBOL 4I849400| 42367 0600 00 0 40677 STZ CTL.SW AS AN 'ENTRY' 4I849500| 42370 0074 00 4 36657 SSV.2 TSX SSCAN,4 SCAN NEXT FIELD 4I850600| 42371 4054 00 001060 LFT CMB+LPB+RPB 4I850700| 42372 4054 00 000040 LFT RPB WAS THE TERMINATOR A RIGHT PAREN. 4I850800| 42373 0020 00 0 42407 TRA SSV.24 YES 4I850900| 42374 4056 00 000020 LNT LPB NO, WAS TERM. A LEFT PAREN. 4I851000 42375 0020 00 0 42413 TRA SSV.21 NO, PROCEED TO NORMAL 4I851100| 42376 4520 00 0 42306 NZT LPFLAG YES 4I851200| 42377 0020 00 0 42403 TRA *+4 4I851300| 42400 0074 00 4 25623 SSV.2E TSX ERPR,4 LEFT PAREN OCCURED BEFORE, ISSUE 4I851400| 42401 0 00000 2 00126 PZE MSS049,NOGO ERROR MESSAGE. 4I851500 42402 0020 00 0 42510 TRA SSV.4 4I851600| 42403 4625 00 0 42306 STL LPFLAG SET LEFT PAREN SWITCH ON. 4I851700| 0BINARY CARD ID. MAPJ0314| 42404 4734 00 4 00000 SSV.23 PDX ,4 4I851800| 42405 3 00000 4 42413 TXH SSV.21,4,0 IF CHARACTER COUNT NON-ZERO, PROCESS.4I851900 42406 0020 00 0 42510 TRA SSV.4 4I852000| 42407 4520 00 0 42306 SSV.24 NZT LPFLAG DID LEFT PAREN OCCUR 4I852100| 42410 0020 00 0 42400 TRA SSV.2E NO, FORMAT ERROR (RIGHT, NO LEFT) 4I852200| 42411 0600 00 0 42306 STZ LPFLAG ZERO LP SWITCH 4I852300| 42412 0020 00 0 42404 TRA SSV.23 4I852400 42413 0602 00 0 44534 SSV.21 SLW PARCE SAVE BCD 4I852500| 42414 4054 00 036600 LFT EQB+DLB+PSB+MSB+ASB+SLB 4I852600| 42415 0020 00 0 43004 TRA SSV.ER ERROR IF NOT ALPHA OR NUM. 4I852700| 42416 4734 00 2 00000 PDX 0,2 4I852800| 42417 7 00000 2 42510 TXL SSV.4,2,0 SKIP FIELD IF 0 LENGTH 4I852900 42420 4054 00 000004 LFT ALB 4I853000| 42421 0020 00 0 42455 TRA SSV.3 PROCESS ALPHA FIELD 4I853100| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 186 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ 0 NUMERIC FIELD 4I853300| 42422 0621 00 0 42423 STA *+1 4I853400| 42423 0560 00 0 00000 LDQ ** FETCH BCD 4I853500| 42424 0074 00 4 37237 TSX CV.10,4 CONVERT 4I853600| 42425 0734 00 4 00000 SSV.22 PAX ,4 INTEGER TO INDEX 4 4I853700 42426 7 00007 4 42434 TXL *+6,4,7 4I853800| 42427 0074 00 4 25623 TSX ERPR,4 ERROR IF GREATER THAN 7 4I853900| 42430 0 00000 1 00165 PZE FMS003,GO 'INVALID REGISTER SPECIFIED IN SAVE' 4I854000| 42431 4500 00 0 44534 CAL PARCE 4I854100| 0BINARY CARD ID. MAPJ0315 42432 4320 00 0 21713 ANA L(7) MOD 7 4I854200| 42433 0734 00 4 00000 PAX ,4 SET INDEX 4 4I854300| 42434 7 00003 4 42437 TXL *+3,4,3 IF LESS THAN 4, PROCESS NORMAL 4I854400| 42435 3 00004 4 42437 TXH *+2,4,4 IF GREATER THAN 4, PROCESS NORMAL 4I854500| 42436 0020 00 0 42443 TRA SSV.25+1 EQUAL 4 4I854600 42437 0520 00 4 43121 ZET FINDXT,4 HAS INDEX ALREADY BEEN SPEC. 4I854700| 42440 0020 00 0 42452 TRA SSV.2F YES, ISSUE ERROR MESSAGE 4I854800| 42441 4625 00 4 43121 STL FINDXT,4 4I854900| 42442 0020 00 0 42510 SSV.25 TRA SSV.4 4I855000| 42443 0774 00 4 42442 AXT SSV.25,4 4I855100 42444 0754 00 4 00000 PXA ,4 4I855200| 42445 0774 00 4 00004 AXT 4,4 4I855300| 42446 0340 00 4 43121 CAS FINDXT,4 4I855400| 42447 0020 00 0 42441 TRA SSV.25-1 4I855500| 42450 0020 00 0 42452 TRA SSV.2F 4I855600 42451 0020 00 0 42441 TRA SSV.25-1 4I855700| 42452 0074 00 4 25623 SSV.2F TSX ERPR,4 4I855800| 42453 0 00000 1 00125 PZE MSS048,GO 4I855900| 42454 0020 00 0 42510 TRA SSV.4 4I856000| ALPHA FIELD 4I856200| 42455 0621 00 0 42456 SSV.3 STA *+1 4I856300| 42456 4500 00 0 00000 CAL ** IS FIELD THE CHARACTER I 4I856400| 42457 0322 00 0 43126 ERA I.WD 4I856500| 0BINARY CARD ID. MAPJ0316 42460 4100 00 0 42465 TNZ SSV.31 NO 4I856600| 42461 0520 00 0 43123 ZET SSV.I YES, HAS SWITCH BEEN SET 4I856700| 42462 0020 00 0 42506 TRA FALPER YES, MINOR ERROR 4I856800| 42463 4625 00 0 43123 STL SSV.I NO, SET SWITCH 4I856900| 42464 0020 00 0 42510 TRA SSV.4 4I857000 42465 4500 60 0 42456 SSV.31 CAL* SSV.3+1 IS FIELD THE CHARACTER D 4I857100| 42466 0322 00 0 43127 ERA D.WD 4I857200| 42467 4100 00 0 42474 TNZ SSV.32 4I857300| 42470 0520 00 0 43124 ZET SSV.D TEST DISABLE SWITCH 4I857400| 42471 0020 00 0 42506 TRA FALPER ALREADY SET, MINOR ERROR 4I857500 42472 4625 00 0 43124 STL SSV.D SET SWITCH 4I857600| 42473 0020 00 0 42510 TRA SSV.4 4I857700| 42474 4500 60 0 42456 SSV.32 CAL* SSV.3+1 FETCH BCD OF SYMBOL 4I857800| 42475 0322 00 0 43125 ERA E.WD IS IT LITERALLY THE CHARACTER 'E' 4I857900| 42476 4100 00 0 42503 TNZ SSV.33 NO, CONTINUE PROCESSING 4I858000 42477 0520 00 0 43122 ZET SSV.E YES, HAS 'E' BEEN ENCOUNTERED BEFORE.4I858100| 42500 0020 00 0 42506 TRA FALPER YES, ISSUE ERROR MESSAGE 4I858200| 42501 4625 00 0 43122 STL SSV.E NO, SET SWITCH ON 4I858300| 42502 0020 00 0 42510 TRA SSV.4 4I858400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 187 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42503 4500 00 0 44534 SSV.33 CAL PARCE NOT I,D OR AN INTEGER 4I858500| 42504 0074 00 4 33310 TSX A14TYP,4 FIND 'S' VALUE FOR SYMBOL 4I858600| 42505 0020 00 0 42425 TRA SSV.22 RETURN TO INTEGER PROCESSING 4I858700| 0BINARY CARD ID. MAPJ0317 42506 0074 00 4 25623 FALPER TSX ERPR,4 ERROR MESSAGE 'THE 4I858800| 42507 0 00000 1 00166 PZE FMS004,GO CHARACTER I OR D HAS ALREADY APPEARED4I858900| | 42510 3 00000 1 42370 SSV.4 TXH SSV.2,1,0 CONTINUE IF NON-BLANK (6)4I859100| | ISSUE INSTRUCTIONS 4I860200| | GENERATE REQUIRED NAMES 4I860400| 42511 SSV.6 NULL (6)4I860500 42511 0074 00 4 27572 TSX BSSWCH,4 $4$4I860600| 42512 0 00000 0 33024 PZE NMLPF $4$4I860700| 42513 0600 00 0 26564 STZ SWLOFN $4$4I860800| 42514 0774 00 1 00003 AXT 3,1 4I860900| 42515 0074 00 4 37303 SSV.6A TSX DUMMY,4 GENERATE NAME 4I861000 42516 0602 00 1 43136 SLW FNAM.3+1,1 SAVE BCD 4I861200| 42517 0074 00 4 26411 TSX NTLOC,4 GET DICTIONARY LOC 4I861300| 42520 0621 60 1 43141 STA* SSV.XX,1 4I861400| 42521 0120 00 0 42525 TPL *+4 HAS NAME BEEN STORED 4I861500| 42522 0737 00 2 00000 PAC 0,2 NO, FETCH LOCATION 4I861600 42523 0560 00 0 37312 LDQ DUMA AND STORE NAME TO 4I861700| 42524 4600 00 2 00000 STQ 0,2 RESERVE CELL 4I861800| 42525 0522 00 1 43144 XEC SSV.XX+3,1 4I861900| 42526 2 00001 1 42515 TIX SSV.6A,1,1 4I862000| 42527 0441 00 0 21466 SSV.6B LDI BLINK (6)4I862100 42530 0055 00 400000 SIR 400000 SET FOR NO BCD (6)4I862700| 42531 4057 00 000001 RIL 1 RESET ERROR FLAG (6)4I862800| 42532 0520 00 0 35171 ZET TIDESW 4I862900| 42533 4055 00 000002 SIL 2 4I863000| 0BINARY CARD ID. MAPJ0318 42534 0604 00 0 21466 STI BLINK 4I863100| 42535 4520 00 0 21426 NZT SWABS IF ABSMOD OR (6)4I863110| 42536 0520 00 0 43144 ZET SWNOEN SAVEN, DON'T MAKE (6)4I863120| 42537 0020 00 0 42546 TRA SSV.6C ENTRY (6)4I863130| 42540 0774 00 1 00001 AXT 1,1 PUT ENTRY TEXT TO (6)4I863140 42541 0074 00 4 40630 TSX CTL.PL,4 CTCONC FILE (6)4I863150| 42542 0074 00 4 34560 TSX FPCLAG,4 PUT ENTRY OPERATION TO T2 (6)4I863160| 42543 0 00001 0 43007 PZE KV.E,,1 TEXT (6)4I863170| 42544 0 00001 0 52030 PZE LINK,,1 FOLLOWED BY (6)4I863180| 42545 4 00001 0 21466 MZE BLINK,,1 FRESH BLINK (6)4I863190 42546 0074 00 4 34560 SSV.6C TSX FPCLAG,4 ISSUE (6)4I863200| 42547 4 00004 0 43010 MZE KV.1,,4 TXI ..0003,,0 (6)4I863210| | 42550 4520 00 0 43122 NZT SSV.E WAS 'E' PRESENT IN SAVE OP. 4I863400| 42551 0020 00 0 42600 TRA SSV.62 NO, BYPASS ISSUANCE OF INSTS. 4I863500 42552 4500 00 0 43047 CAL KV.122 YES, ISSUE REQUIRED INSTRUCTIONS. 4I863600| 42553 0621 00 0 43063 STA KV.155 SET ADDRESSES OF INSTRUCTIONS 4I863700| 42554 4500 00 0 43036 CAL KV.95 TO BE ISSUED. 4I863800| 42555 0621 00 0 43103 STA KV.205 4I863900| 42556 0074 00 4 34560 TSX FPCLAG,4 ISSUE 8 INSTRUCTIONS FOR 4I864000 1 IBMAPV IBMAPJ 12/01/64 PAGE 188 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42557 0 00001 0 21466 PZE BLINK,,1 'E' OPTION. 4I864100| 42560 0 00004 0 43052 PZE KV.130,,4 LDC *-1,4 4I864200| 42561 0 00001 0 21466 PZE BLINK,,1 4I864300 0BINARY CARD ID. MAPJ0319| 42562 0 00004 0 43056 PZE KV.140,,4 SXD *+5,4 4I864400| 42563 0 00001 0 21466 PZE BLINK,,1 4I864500| 42564 0 00003 0 43062 PZE KV.150,,3 LAC ..0001,4 4I864600| 42565 0 00001 0 21466 PZE BLINK,,1 4I864700 42566 0 00005 0 43065 PZE KV.160,,5 TXI *+1,4,1 4I864800| 42567 0 00001 0 21466 PZE BLINK,,1 4I864900| 42570 0 00004 0 43072 PZE KV.170,,4 SXA *+1,4 4I865000| 42571 0 00001 0 21466 PZE BLINK,,1 4I865100| 42572 0 00003 0 43076 PZE KV.180,,3 LXA **,4 4I865200 42573 0 00001 0 21466 PZE BLINK,,1 4I865300| 42574 0 00004 0 43065 PZE KV.160,,4 TXI *+1,4,** 4I865400| 42575 0 00001 0 43101 PZE KV.190,,1 4I865500| 42576 0 00001 0 21466 PZE BLINK,,1 4I865600| 42577 4 00003 0 43102 MZE KV.200,,3 SXA ..0002,4 4I865700 | 42600 0774 00 4 00007 SSV.62 AXT 7,4 COMPUTE INDEX COUNT 4I865900| 42601 4754 00 0 00000 PXD 0,0 4I866000| 42602 0520 00 4 43121 ZET FINDXT,4 4I866100| 42603 0400 00 0 21705 ADD L(1) 4I866200 42604 2 00001 4 42602 TIX *-2,4,1 4I866300| 42605 0734 00 4 00000 PAX ,4 COUNT TO INDEX 4 4I866400| 42606 0634 00 4 42711 SXA SSV.61,4 4I866500| 42607 0560 00 0 43131 LDQ SV.XRO FETCH INDEX ORDER WORD 4I866600| 0BINARY CARD ID. MAPJ0320 42610 4754 00 0 00000 SSV.63 PXD 0,0 ZERO ACC 4I866700| 42611 4763 00 0 00003 LGL 3 4I866800| 42612 0734 00 1 00000 PAX ,1 REGISTER NUMBER TO X1 4I866900| 42613 4520 00 1 43121 NZT FINDXT,1 HAS THIS REG. BEEN REQUESTED 4I867000| 42614 0020 00 0 42610 TRA SSV.63 4I867100 42615 0634 00 1 43016 SXA KV.25,1 SET TAG OF AXT 4I867200| 42616 0634 00 4 42624 SXA SSV.64,4 4I867300| 42617 4600 00 0 43132 STQ SV.XSS 4I867400| 42620 0074 00 4 34560 TSX FPCLAG,4 ISSUE (AXT **,T) 4I867500| 42621 0 00001 0 21466 PZE BLINK,,1 4I867600 42622 4 00003 0 43014 MZE KV.2,,3 4I867700| 42623 0560 00 0 43132 LDQ SV.XSS 4I867800| 42624 0774 00 4 00000 SSV.64 AXT **,4 4I867900| 42625 2 00001 4 42610 TIX SSV.63,4,1 4I868000| 42626 4520 00 0 43123 NZT SSV.I IS I PRESENT 4I868200| 42627 0020 00 0 42633 TRA *+4 NO 4I868300| 42630 0074 00 4 34560 TSX FPCLAG,4 ISSUE (LDI ..0002+1) 4I868400| 42631 0 00001 0 21466 PZE BLINK,,1 4I868500| 42632 4 00003 0 43017 MZE KV.3,,3 4I868600 42633 4520 00 0 43124 NZT SSV.D IS D PRESENT 4I868700| 42634 0020 00 0 42642 TRA *+6 NO 4I868800| 42635 0074 00 4 34560 TSX FPCLAG,4 YES, ISSUE (ZET .IFTRP 4I868900| 0BINARY CARD ID. MAPJ0321| 42636 0 00001 0 21466 PZE BLINK,,1 XEC .TRAPS) 4I869000 1 IBMAPV IBMAPJ 12/01/64 PAGE 189 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42637 0 00002 0 43022 PZE KV.4,,2 4I869100| 42640 0 00001 0 21466 PZE BLINK,,1 4I869200| 42641 4 00002 0 43024 MZE KV.5,,2 4I869300 42642 4520 00 0 43122 NZT SSV.E 4I869400| 42643 0020 00 0 42650 TRA *+5 IF 'E' 4I869500| 42644 0074 00 4 34560 TSX FPCLAG,4 ISSUE (TRA **) 4I869600| 42645 0 00001 0 21466 PZE BLINK,,1 4I869700| 42646 4 00002 0 43105 MZE KV.210,,2 4I869800 42647 0020 00 0 42653 TRA *+4 IF NOT 4I869900| 42650 0074 00 4 34560 TSX FPCLAG,4 ISSUE (TRA 1,4) 4I870000| 42651 0 00001 0 21466 PZE BLINK,,1 4I870100| 42652 4 00003 0 43026 MZE KV.6,,3 4I870200| 42653 4520 00 0 43123 NZT SSV.I TEST FOR I 4I870300 42654 0020 00 0 42660 TRA *+4 4I870400| 42655 0074 00 4 34560 TSX FPCLAG,4 ISSUE (PZE *) 4I870500| 42656 0 00001 0 21466 PZE BLINK,,1 4I870600| 42657 4 00002 0 43031 MZE KV.7,,2 4I870700| 42660 4520 00 0 43124 NZT SSV.D TEST FOR D 4I870800 42661 0020 00 0 42665 TRA *+4 4I870900| 42662 0074 00 4 34560 TSX FPCLAG,4 ISSUE (XEC .TRAPF) 4I871000| 42663 0 00001 0 21466 PZE BLINK,,1 4I871100| 0BINARY CARD ID. MAPJ0322| 42664 4 00002 0 43033 MZE KV.8,,2 4I871200 42665 4520 00 0 43123 NZT SSV.I TEST FOR I 4I871300| 42666 0020 00 0 42672 TRA *+4 4I871400| 42667 0074 00 4 34560 TSX FPCLAG,4 ISSUE (STI ..0002+1) 4I871500| 42670 0 00001 0 21466 PZE BLINK,,1 4I871600| 42671 4 00003 0 43035 MZE KV.9,,3 4I871700 42672 4520 00 0 43122 NZT SSV.E IF 'E' 4I871800| 42673 0020 00 0 42677 TRA *+4 ISSUE (SXD NAME,0) 4I871900| 42674 0074 00 4 34560 TSX FPCLAG,4 4I872000| 42675 0 00001 0 21466 PZE BLINK,,1 4I872100| 42676 4 00003 0 43107 MZE KV.220,,3 4I872200 | GENERATE SXA'S 4I872400| 42677 0074 00 4 34560 TSX FPCLAG,4 ISSUE (SXA SYSLOC,4) 4I872500| 42700 0 00001 0 21466 PZE BLINK,,1 4I872600| 42701 4 00003 0 43040 MZE KV.100,,3 4I872700 42702 0520 00 0 43144 ZET SWNOEN 4I872800| 42703 0020 00 0 42707 TRA SSV.61-2 4I872900| 42704 0074 00 4 34560 TSX FPCLAG,4 (SXA LK.DR,4) 4I873000| 42705 0 00001 0 21466 PZE BLINK,,1 4I873100| 42706 4 00003 0 43043 MZE KV.110,,3 4I873200 | 42707 0774 00 1 00000 AXT 0,1 ZERO INDEX 1 4I873400| 42710 0560 00 0 43130 LDQ SV.XSO 4I873500| 42711 0774 00 4 00000 SSV.61 AXT **,4 PICK UP COUNT 4I873600| 0BINARY CARD ID. MAPJ0323 42712 0634 00 1 43050 SXA KV.125,1 STORE - COUNT 4I873700| 42713 4754 00 0 00000 PXD 0,0 4I873800| 42714 4763 00 0 00003 LGL 3 4I873900| 42715 0734 00 1 00000 PAX ,1 4I874000| 42716 4520 00 1 43121 NZT FINDXT,1 4I874100 42717 0020 00 0 42713 TRA SSV.61+2 4I874200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 190 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 42720 0634 00 1 43051 SXA KV.127,1 STORE INDEX INDICATOR 4I874300| 42721 0634 00 4 42727 SXA SSV.6S,4 4I874400 42722 4600 00 0 43132 STQ SV.XSS 4I874500| 42723 0074 00 4 34560 TSX FPCLAG,4 ISSUE (SXA ..0001-I,T) 4I874600| 42724 0 00001 0 21466 PZE BLINK,,1 WHERE I=NUM. OF REGS-1 4I874700| 42725 4 00004 0 43046 MZE KV.120,,4 4I874800| 42726 0560 00 0 43132 LDQ SV.XSS 4I874900 42727 0774 00 4 00000 SSV.6S AXT **,4 4I875000| 42730 0534 00 1 43050 LXA KV.125,1 4I875100| 42731 1 00001 1 42732 TXI *+1,1,1 BUMP I COUNT 4I875200| 42732 2 00001 4 42712 TIX SSV.61+1,4,1 4I875300| UPDATE SEPARATION COUNT AND PLACE 4I875500| GENERATED NAMES IN CHAIN. 4I875600| 42733 0522 00 0 42711 SSV.7 XEC SSV.61 PICK UP COUNT (6)4I875800| 42734 0520 00 0 43122 ZET SSV.E 4I875900| 42735 1 00010 4 42736 TXI *+1,4,8 BUMP BY 8 IF 'E'. 4I876000 42736 4754 00 4 00000 PXD 0,4 BUMP SEPARATION COUNT BY 4I876100| 42737 0074 00 4 36275 TSX SEPBP,4 NUMBER OF AXT'S 4I876200| 0BINARY CARD ID. MAPJ0324| 42740 4500 00 0 43133 CAL FNAM.1 FETCH BCD OF FIRST 4I876300| 42741 0602 00 0 21461 SLW NAME GEN. NAME 4I876400 42742 0074 00 4 34155 TSX NMLOC,4 ENTER IN CHAIN 4I876500| 42743 0774 00 4 00001 AXT 1,4 SET SEPERATION COUNT 4I876600| 42744 0520 00 0 43123 ZET SSV.I TEST I SWITCH 4I876700| 42745 1 00001 4 42746 TXI *+1,4,1 BUMP BY 1 IF LDI ISSUED 4I876800| 42746 0520 00 0 43124 ZET SSV.D 4I876900 42747 1 00002 4 42750 TXI *+1,4,2 BUMP BY 2 IF DISABLE 4I877000| 42750 4754 00 4 00000 PXD 0,4 4I877100| 42751 0074 00 4 36275 TSX SEPBP,4 ENTER SEPERATION COUNT 4I877200| 42752 4500 00 0 43134 CAL FNAM.2 4I877300| 42753 0602 00 0 21461 SLW NAME ENTER GENERATED NAME 2 4I877400 42754 0074 00 4 34155 TSX NMLOC,4 INTO CHAIN 4I877500| 42755 0774 00 4 00001 AXT 1,4 4I877600| 42756 0520 00 0 43123 ZET SSV.I 4I877700| 42757 1 00001 4 42760 TXI *+1,4,1 BUMP IF (PZE) ISSUED 4I877800| 42760 4754 00 4 00000 PXD 0,4 4I877900 42761 0074 00 4 36275 TSX SEPBP,4 ENTER COUNT 4I878000| 42762 4500 00 0 43135 CAL FNAM.3 4I878100| 42763 0602 00 0 21461 SLW NAME 4I878200| 42764 0074 00 4 34155 TSX NMLOC,4 ENTER NAME 3 INTO CHAIN 4I878300| 42765 0522 00 0 42711 XEC SSV.61 FETCH REGISTER COUNT 4I878400 0BINARY CARD ID. MAPJ0325| 42766 0520 00 0 43144 ZET SWNOEN TEST FOR SAVEN 4I878500| 42767 1 00001 4 42771 TXI *+2,4,1 IF SAVEN ONLY 1 SYSTEM SXA ISSUED 4I878600| 42770 1 00002 4 42771 TXI *+1,4,2 BUMP BY 2 FOR SYSTEM (SXA'S) 4I878700| 42771 0520 00 0 43123 ZET SSV.I +1 IF (I) 4I878800 42772 1 00001 4 42773 TXI *+1,4,1 4I878900| 42773 0520 00 0 43124 ZET SSV.D 4I879000| 42774 1 00001 4 42775 TXI *+1,4,1 +1 IF (D) 4I879100| 42775 0520 00 0 43122 ZET SSV.E 4I879200| 42776 1 00001 4 42777 TXI *+1,4,1 BUMP BY 1 MORE IF 'E'. 4I879300 42777 4754 00 4 00000 PXD 0,4 4I879400| 43000 0074 00 4 36275 TSX SEPBP,4 BUMP SEPARATION COUNT 4I879500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 191 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 43001 0074 00 4 27572 TSX BSSWCH,4 $4$4I879800 43002 0 00000 0 33024 PZE NMLPF $4$4I879900| 43003 0020 00 0 26640 TRA PASA EXIT 4I880000| | 43004 0074 00 4 25623 SSV.ER TSX ERPR,4 PRINT MESSAGE 'ILLEGAL SUBFIELD 4I880200| 43005 0 00000 3 00163 PZE FMS001,NONOGO IN SAVE OP.. SUBFIELD IGNORED' 4I880300 43006 0020 00 0 42510 TRA SSV.4 4I880400| | | ENDQ PBLINK RESTORE NORMAL MEANING TO BLINK (6)4I880510| * INS TRUCTION SKELETONS 4I880600 * 4I880700| | * ENTRY NAME (6)4I880810| 43007 720704000000 KV.E VFD O6/72,O6/07,O6/4,18/** ENTRY OPERATION WITH NT(E) (6)4I880820| *NAME TXI ..0003,,0 4I880900| 43010 400725001000 KV.1 VFD O6/40,O12/SSCSSV,O18/1000 4I881000| 43011 000200000000 KV.15 VFD O6/0,6/2,24/** ADD = GENERATE NAME. 4I881100| 43012 100200000000 VFD O6/10,6/2,24/0 TAG = 0 4I881200| 43013 100000000000 VFD O6/10,12/0,18/0 DEC = 0 4I881300 | *.0001 AXT **,T 4I881500| 0BINARY CARD ID. MAPJ0326| 43014 430725000774 KV.2 VFD O6/43,O12/SSCSSV,O18/774 4I881600| 43015 100200000000 VFD O6/10,6/2,24/0 4I881700 43016 100000000000 KV.25 VFD O6/10,12/0,18/** 4I881800| | * LDI ..0002+1 4I882000| 43017 430725000441 KV.3 VFD O6/43,O12/SSCSSV,O18/441 4I882100| 43020 000300000000 KV.33 VFD O6/0,6/3,24/** ADD = ..0002+ 4I882200 43021 100000000001 VFD O6/10,12/0,18/1 1 4I882300| | * NZT .TRPSW 4I882500| 43022 430725004520 KV.4 VFD O6/43,O12/SSCSSV,O18/4520 4I882600| 43023 000000000000 KV.45 VFD 36/** 4I882700 | * ENB* .TRAPS 4I882900| 43024 434725000564 KV.5 VFD O6/43,O12/SSCSSV+4000,O18/564 4I883000| 43025 000000000000 KV.55 VFD 36/** 4I883100| *.0002 TRA 1,4 4I883300| 43026 430725000020 KV.6 VFD O6/43,O12/SSCSSV,O18/20 4I883400| 43027 100200000001 VFD O6/10,6/2,24/1 ADD = 1 4I883500| 43030 100000000004 VFD O6/10,6/0,24/4 TAG = 4 4I883600| * PZE 4I883800| 43031 410725000000 KV.7 VFD O6/41,O12/SSCSSV,O18/0 4I883900| 43032 100000000000 VFD O6/10,30/0 4I884000| | * XEC SYSDSB 4I884200 43033 430725000522 KV.8 VFD O6/43,O12/SSCSSV,O18/522 4I884300| 43034 000000000000 KV.85 VFD 36/** 4I884400| | * STI ..0002+1 4I884600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 192 SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 43035 430725000604 KV.9 VFD O6/43,O12/SSCSSV,O18/604 4I884700| 43036 000300000000 KV.95 VFD O6/0,6/3,24/** ADD = ..0002+ 4I884800| 43037 100000000001 VFD O6/10,30/1 1 4I884900| * SXA SYSLOC,4 4I885100| 43040 430725000634 KV.100 VFD O6/43,O12/SSCSSV,O18/634 4I885200| 43041 000200000000 KV.105 VFD O6/0,6/2,24/** ADD = SYSLOC 4I885300| 0BINARY CARD ID. MAPJ0327| 43042 100000000004 VFD O6/10,30/4 TAG = 4 4I885400 | * SXA LK.DR,4 4I885600| 43043 430725000634 KV.110 VFD O6/43,O12/SSCSSV,O18/634 4I885700| 43044 010200021455 KV.115 VFD O6/01,6/2,24/SWLNKG+1 ADD=LK.DR 4I885800| 43045 100000000004 VFD O6/10,30/4 TAG = 4 4I885900 | * SXA ..0001-I,T WHERE I=0 TO N-1 4I886100| 43046 430725000634 KV.120 VFD O6/43,O12/SSCSSV,O18/634 4I886200| 43047 000400000000 KV.122 VFD O6/0,6/4,24/** ADD = ..0001- 4I886300| 43050 100200000000 KV.125 VFD O6/10,6/2,24/** I, 4I886400 43051 100000000000 KV.127 VFD O6/10,30/** T 4I886500| | * E OPTION INSTRUCTIONS 4I886700| * 4I886800| * LDC NAME,4 (LDC *-1,4) 4I886900 43052 430725004535 KV.130 VFD O6/43,O12/SSCSSV,O18/4535 4I887000| 43053 040400000000 VFD O6/04,6/4,24/0 *- 4I887100| 43054 100200000001 VFD O6/10,6/2,24/1 1, 4I887200| 43055 100000000004 VFD O6/10,30/4 4 4I887300| * SXD *+5,4 4I887500| 43056 430725004634 KV.140 VFD O6/43,O12/SSCSSV,O18/4634 4I887600| 43057 040300000000 VFD O6/04,6/3,24/0 *+ 4I887700| 43060 100200000005 VFD O6/10,6/2,24/5 5, 4I887800| 43061 100000000004 VFD O6/10,30/4 4 4I887900 | * LAC ..0001,4 4I888100| 43062 430725000535 KV.150 VFD O6/43,O12/SSCSSV,O18/535 4I888200| 43063 000200000000 KV.155 VFD O6/0,6/2,24/** ..0001, 4I888300| 43064 100000000004 VFD O6/10,30/4 4 4I888400 | * TXI *+1,4,1 4I888600| 43065 400725001000 KV.160 VFD O6/40,O12/SSCSSV,O18/1000 4I888700| 43066 040300000000 VFD O6/04,6/3,24/0 *+ 4I888800| 43067 100200000001 VFD O6/10,6/2,24/1 1, 4I888900 0BINARY CARD ID. MAPJ0328| 43070 100200000004 VFD O6/10,6/2,24/4 4, 4I889000| 43071 100000000001 VFD O6/10,30/1 1 4I889100| | * SXA *+1,4 4I889300 43072 430725000634 KV.170 VFD O6/43,O12/SSCSSV,O18/634 4I889400| 43073 040300000000 VFD O6/04,6/3,24/0 *+ 4I889500| 43074 100200000001 VFD O6/10,6/2,24/1 1, 4I889600| 43075 100000000004 VFD O6/10,30/4 4 4I889700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 193 | SPECIAL CARD ANALYZERS PHASE 1 - RECORD IBMAPJ | 0 * LXA **,4 4I889900| 43076 430725000534 KV.180 VFD O6/43,O12/SSCSSV,O18/534 4I890000| 43077 100200000000 VFD O6/10,6/2,24/0 **, 4I890100 43100 100000000004 VFD O6/10,30/4 4 4I890200| * TXI *+1,4,** 4I890300| 43101 100000000000 KV.190 VFD O6/10,30/0 ** (OP, ADD AND TAG FROM KV.160) 4I890400| | * SXA ..0002,4 4I890600 43102 430725000634 KV.200 VFD O6/43,O12/SSCSSV,O18/634 4I890700| 43103 000200000000 KV.205 VFD O6/0,6/2,24/** ..0002, 4I890800| 43104 100000000004 VFD O6/10,30/4 4 4I890900| | * TRA ** 4I891100 43105 430725000020 KV.210 VFD O6/43,O12/SSCSSV,O18/20 4I891200| 43106 100000000000 VFD O6/10,30/0 ** 4I891300| | * SXD NAME,0 4I891500| 43107 430725004634 KV.220 VFD O6/43,O12/SSCSSV,O18/4634 4I891600 43110 000200000000 KV.225 VFD O6/0,6/2,24/** NAME, 4I891700| 43111 100000000000 VFD O6/10,30/0 0 4I891800| * INDEX TABLE 4I891900| 43112 BSS 3 4I892000| 0BINARY CARD ID. MAPJ0329 43115 0 00000 0 43115 PZE * 4I892100| 43116 BSS 3 4I892200| 0BINARY CARD ID. MAPJ0330| 43121 0 00000 0 00000 FINDXT PZE 4I892300| 43122 0 00000 0 00000 SSV.E PZE ** 4I892400 43123 0 00000 0 00000 SSV.I PZE ** INDICATOR SWITCH 4I892500| 43124 0 00000 0 00000 SSV.D PZE ** DISABLE TRAP SWITCH 4I892600| 43125 256060606060 E.WD BCI 1,E 4I892700| 43126 316060606060 I.WD BCI 1,I 4I892800| 43127 246060606060 D.WD BCI 1,D 4I892900 43130 412356700000 SV.XSO OCT 412356700000 INDEX SAVE ORDER 4I893000| 43131 765321400000 SV.XRO OCT 765321400000 INDEX RESTORE ORDER 4I893100| 43132 0 00000 0 43132 SV.XSS PZE * 4I893200| 43133 0 00000 0 00000 FNAM.1 PZE 4I893400| 43134 0 00000 0 00000 FNAM.2 PZE 4I893500 43135 0 00000 0 00000 FNAM.3 PZE 4I893600| 43136 0 00000 0 43047 PZE KV.122 4I893700| 43137 0 00000 0 43020 PZE KV.33 4I893800| 43140 0 00000 0 43011 PZE KV.15 4I893900| 43141 2 00001 1 42515 SSV.XX TIX SSV.6A,1,1 4I894000 43142 0621 00 0 43036 STA KV.95 4I894100| 43143 6 00001 1 42527 TNX SSV.6B,1,1 4I894200| 43144 0 00000 0 00000 SWNOEN PZE 4I894300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 194 | DUP PROCESSOR PHASE 1 - RECORD IBMAPJ 0| * 4J000100| | | 43145 0600 00 0 43401 DUPTYP STZ DITCT CLEAR ITERATION AND 4J000300 43146 0600 00 0 43400 STZ RNGCT RANGE COUNTS 4J000400| 0BINARY CARD ID. MAPJ0331| 43147 0074 00 4 34155 TSX NMLOC,4 ENTER NAME IF ANY 4J000500| 43150 0774 00 4 00002 AXT 2,4 TWO SUBFIELDS 4J000600| 43151 0500 00 0 21667 CLA CTDUPF+11 SAVE PRESENT 4J000900 43152 0601 00 0 43404 STO DDUPSW FIRST POS (ALSO SETS DUP IN OPN)$5$4J001050| 43153 0400 00 0 36233 ADD SWDUPI INCLUDE RANGE COUNT (6)4J001100| 43154 0601 00 0 43403 STO DUP.PS AND SAVE FOR SUSPENSION (6)4J001200| | 43155 0634 00 4 30035 DUP.1 SXA ENDA,4 KILL READ-AHEAD $4$4J001500 43156 0074 00 4 33444 TSX SCAFLD,4 SCAN AND EVALUATE (6)4J001600| 43157 0074 00 4 34420 TSX EVLFLD,4 FIELD 4J001800| 43160 0534 00 4 30035 LXA ENDA,4 $4$4J001900| 43161 0601 00 4 43402 STO RNGCT+2,4 STORE FIELD VALUE 4J002000| 43162 4520 00 0 35166 NZT SWCVFE 4J002100 43163 0020 00 0 43170 TRA DUP.2 END OF FIELD $4$4J002200| 43164 2 00001 4 43155 TIX DUP.1,4,1 BACK FOR NEXT 4J002300| | TOO MANY VARIABLE FIELDS 4J002500| 43165 0074 00 4 25623 TSX ERPR,4 'TOO MANY SUBFIELDS. 4J002600 43166 0 00000 3 00137 PZE MSS051,NONOGO FIRST TWO USED' 4J002700| 43167 0074 00 4 35024 TSX INHAND,4 OUTPUT -DUP- CARD $4$4J002800| 43170 0074 00 4 34560 DUP.2 TSX FPCLAG,4 OUTPUT -REM- OPN $4$4J002900| 43171 4 00001 0 26705 MZE 75WD1,,1 FOR -DUP- CARD $4$4J003000| 43172 0600 00 0 21466 STZ PBLINK CLEAR MESSAGE SWITCH $4$4J003010 43173 4625 00 0 35166 STL SWCVFE (6)4J003020| | TEST COUNTS 4J003200| 43174 0534 00 1 43400 DUP.3 LXA RNGCT,1 IGNORE -DUP- IF $4$4J003300| 0BINARY CARD ID. MAPJ0332 43175 7 00000 1 43362 TXL DUP.11,1,0 RANGE COUNT ZERO $4$4J003400| 43176 0520 00 0 43401 ZET DITCT $4$4J003500| 43177 0020 00 0 43223 TRA DUP.5 IF ITERATION COUNT $4$4J003600| 43200 0600 00 0 43404 STZ DDUPSW ZERO, CLEAR $4$4J003700| 43201 0074 00 4 35175 DUP.31 TSX IREAD,4 GET FIRST $5$4J003900 43202 0 00000 0 43375 PZE DUP.13 CARD IN RANGE $4$4J004000| 43203 0074 00 4 37001 TSX CDXIN,4 $4$4J004100| 43204 0074 00 4 36400 TSX GTDICT,4 CHECK FOR (6)4J004110| 43205 0322 00 0 35151 ERA ETCOPN -ETC- CARDS $5$4J004120| 43206 4100 00 0 43212 TNZ DUP.4-1 NO,O.K., OTHERWISE ISSUE $5$4J004130 43207 0074 00 4 25623 TSX ERPR,4 MESSAGE $5$4J004140| 43210 0 00000 1 00116 PZE WMS018,GO $5$4J004150| 43211 0020 00 0 43167 TRA DUP.2-1 OUTPUT AND READ NEXT $5$4J004160| 43212 0600 00 0 30035 STZ ENDA SET FOR READ AHEAD $5$4J004170| 43213 0520 00 0 37172 DUP.4 ZET SWCMNT READ AND SKIP $4$4J004200 43214 0020 00 0 43220 TRA DUP.45 NUMBER OF $4$4J004300| 43215 0074 00 4 36400 TSX GTDICT,4 CARDS IN RANGE (1)4J004400| 43216 0322 00 0 44245 ERA MCSPE-2 EXCEPT DO NOT (1)4J004500| 43217 0100 00 0 43372 TZE DUP.17 PASS -END- CARD $4$4J004600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 195 DUP PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 43220 0074 00 4 44274 DUP.45 TSX MCDPR,4 (OR COLLECT $200) $4$4J004700| 43221 2 00001 1 43213 TIX DUP.4,1,1 $4$4J004800| 43222 0020 00 0 26640 TRA PASA $4$4J004900| 0BINARY CARD ID. MAPJ0333| 43223 4520 00 0 43475 DUP.5 NZT SRCTBL READ CARDS IF $4$4J005800| 43224 0020 00 0 43227 TRA DUP.6 4J005900| 43225 0500 60 0 43475 CLA* SRCTBL SOURCE NOT DUP 4J006000| 43226 4120 00 0 43326 TMI DUP.10 4J006100 | PREVIOUS SOURCE NOT DUP 4J006300| 43227 0534 00 2 21443 DUP.6 LXA BLINK,2 SAVE THE LINE COUNT BEFORE READING$5$4J006400| 43230 0634 00 2 43324 SXA DUP.16,2 CARDS INTO BUFFER $5$4J006401| 43231 0500 00 0 43402 CLA DUPCCT RESET TO NEW $5$4J006402 43232 0621 00 0 43404 STA DDUPSW INITIAL POSITION $5$4J006406| 43233 0074 00 2 35420 TSX DUPPOS,2 POSITION FILE, $5$4J006408| 43234 0500 00 0 35351 CLA DUPRG PICK UP $5$4J006410| 43235 0621 00 0 43256 STA DUP.9 LOCATION, WORD COUNT $5$4J006412| 43236 0534 00 2 35343 LXA DUPRE,2 AND GO TO GET $5$4J006414 43237 0020 00 0 43317 TRA DUP.96 FIRST CARD $4$4J006420| 43240 0074 00 4 25760 DUP.7 TSX INFIN,4 FETCH NEW 4J006500| 43241 4 00000 0 21654 MZE CTDUPF BUFFER 4J006600| 43242 0621 00 0 43256 STA DUP.9 4J006700| 43243 4734 00 2 00000 PDX 0,2 4J006800 43244 0500 00 0 21447 DUP.8 CLA GTPRA 4J006900| 43245 0622 00 0 43246 STD *+1 NEW BUFFER IF 4J007000| 43246 7 00000 2 43240 TXL DUP.7,2,** CARD WON'T FIT 4J007100| 43247 0522 00 0 43256 XEC DUP.9 STORE SIZE 4J007200| 43250 1 77777 2 43251 TXI *+1,2,-1 WORD 4J007300 0BINARY CARD ID. MAPJ0334| 43251 4737 00 4 00000 PDC 0,4 4J007400| 43252 4634 00 4 43261 SXD DUP.91,4 SET END TEST 4J007500| 43253 0774 00 4 00000 AXT 0,4 AND FETCH 4J007600| 43254 0621 00 0 43255 STA *+1 4J007700 43255 0500 00 4 00000 CLA **,4 PLACE CARD 4J007800| 43256 0601 00 2 00000 DUP.9 STO **,2 IMAGE IN BUFFER 4J007900| 43257 1 77777 2 43260 TXI *+1,2,-1 4J008000| 43260 1 77777 4 43261 TXI *+1,4,-1 4J008100| 43261 3 00000 4 43255 DUP.91 TXH DUP.9-1,4,** 4J008200 43262 7 00000 2 43264 TXL *+2,2,0 $5$4J008210| 43263 0600 60 0 43256 STZ* DUP.9 STORE END MARK $5$4J008215| 43264 0500 00 0 43402 CLA DUPCCT BUMP TOTAL $5$4J008220| 43265 0361 00 0 21705 ACL L(1) ENTRY $5$4J008225| 43266 0621 00 0 43402 STA DUPCCT COUNT $5$4J008230 43267 0621 00 0 21667 STA CTDUPF+11 $5$4J008235| 43270 0520 00 0 37172 ZET SWCMNT IGNORE X-TYPE 4J008300| 43271 0020 00 0 43316 TRA DUP.95 COMMENT CARD 4J008400| 43272 0634 00 2 43315 SXA DUP.94,2 (6)4J008410| 43273 0074 00 4 36400 TSX GTDICT,4 TEST CARD (1)4J008500 43274 0322 00 0 44245 ERA MCSPE-2 FOR 'END' (1)4J008600| 43275 4100 00 0 43300 TNZ *+3 IF SO, SET $4$4J008700| 43276 4625 00 0 21466 STL PBLINK MESSAGE SWITCH $4$4J008800| 0BINARY CARD ID. MAPJ0335| 1 IBMAPV IBMAPJ 12/01/64 PAGE 196 DUP PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 43277 0020 00 0 43324 TRA DUP.16 PROCESS CARDS FROM DUP BUFFER $5$4J008900| IF NOT END, IS THIS CARD (6)4J009100| 43300 0322 00 0 43405 ERA DUP.WD A DUP- 4J009200| 43301 4100 00 0 43315 TNZ DUP.94 (6)4J009300 IF IT IS, (6)4J009400| 43302 4634 00 1 43312 SXD DUP.92,1 SCAN AND 4J009500| 43303 4634 00 1 43313 SXD DUP.93,1 EVALUATE FIELD 4J009600| 43304 0074 00 4 33444 TSX SCAFLD,4 4J009900| 43305 0074 00 4 34420 TSX EVLFLD,4 4J010100 43306 0600 00 0 21466 STZ PBLINK KILL POSSIBLE SPURIOUS MESSAGE $4$4J010110| 43307 4625 00 0 35166 STL SWCVFE (6)4J010120| 43310 0734 00 1 00000 PAX 0,1 4J010200| 43311 1 00001 1 43312 TXI *+1,1,1 IF COUNT EXCEEDS 4J010300| 43312 6 00000 1 43314 DUP.92 TNX *+2,1,** REMAINDER OF EXPLICIT 4J010400 43313 1 00000 1 43315 DUP.93 TXI *+2,1,** RANGE, INCREASE 4J010500| 43314 4534 00 1 43313 LXD *-1,1 ORIGINAL COUNT BY 4J010600| 43315 0774 00 2 00000 DUP.94 AXT **,2 DIFFERENCE 4J010700| | 43316 6 00001 1 43324 DUP.95 TNX DUP.16,1,1 TEST FOR ALL CDS IN $5$4J011500 43317 0074 00 4 35175 DUP.96 TSX IREAD,4 READ $4$4J011600| 43320 0 00000 0 43375 PZE DUP.13 NEXT CARD 4J011700| 43321 0074 00 4 37001 TSX CDXIN,4 4J011800| 43322 7 00000 2 43240 TXL DUP.7,2,0 AND BACK 4J011900| 43323 0020 00 0 43244 TRA DUP.8 4J012000 | FINISH ENTRY 4J012200| 43324 0774 00 2 00000 DUP.16 AXT **,2 RESET THE LINE COUNT BEFORE $5$4J012210| 0BINARY CARD ID. MAPJ0336| 43325 0634 00 2 21443 SXA BLINK,2 PROCESSING THE CARDS IN THE $5$4J012220 DUP BUFFER $5$4J012230| 43326 0534 00 2 45737 DUP.10 LXA DUPPDL,2 4J012300| 43327 7 00000 2 43344 TXL DUP.14,2,0 4J012400| 43330 0500 00 0 43403 CLA DUP.PS SAVE PREVIOUS DUP POSITION (6)4J012500| 43331 0520 00 0 36240 ZET ISUSD IF A SUSPENDED DUP CARD (6)4J012600 43332 0400 00 0 35143 ADD BLMSK EXISTS, RESET TO (6)4J012700| 43333 0601 00 2 45741 STO DUPPDL+2,2 RECAPTURE IT ON POP UP (6)4J012800| 43334 0600 00 0 36240 STZ ISUSD AND CLEAR SUSPENDED CARD (6)4J012900| 43335 4535 00 4 45306 LDC XPCCT,4 TEST FOR (6)4J013000| 43336 1 00355 4 43337 TXI *+1,4,MXPSZ-3 EXPANSION (6)4J013010 43337 4634 00 4 43340 SXD *+1,4 ROOM (6)4J013020| 43340 7 00000 2 43344 TXL DUP.14,2,** EXCEEDED (6)4J013100| 43341 0074 00 4 25623 TSX ERPR,4 IF SO, SAY - 'DUP PUSH DOWN (6)4J013110| 43342 0 00000 4 00142 MSS054,NONONO LIMIT EXCEEDED' (6)4J013120| 43343 0020 00 0 35374 TRA CLRDUP AND CLEAR NEST (6)4J013200 | 43344 1 00003 2 43345 DUP.14 TXI *+1,2,3 STEP POINTER (6)4J013310| 43345 0500 00 0 43404 CLA DDUPSW SET INITIAL $5$4J013400| 43346 0601 00 2 45737 STO DUPPDL,2 POSITION 4J013500| 43347 0500 00 0 43400 CLA RNGCT 4J013600 43350 0767 00 0 00022 ALS 18 4J013700| 43351 0622 00 2 45737 STD DUPPDL,2 SET PUSH 4J013800| 43352 0600 00 2 45741 STZ DUPPDL+2,2 DOWN LIST $5$4J013900| 0BINARY CARD ID. MAPJ0337| 43353 0500 00 0 43401 CLA DITCT 4J014000 1 IBMAPV IBMAPJ 12/01/64 PAGE 197 | DUP PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 43354 0601 00 2 45740 STO DUPPDL+1,2 4J014100| 43355 0634 00 2 45737 SXA DUPPDL,2 SAVE POSITION 4J014300| 43356 0500 00 2 45737 CLA DUPPDL,2 INITIALIZE $5$4J014400 43357 0074 00 2 35420 TSX DUPPOS,2 FILE POS $5$4J014500| 43360 0500 00 0 21705 DUP.15 CLA L(1) PUSH 4J015200| 43361 0074 00 4 43406 TSX DNSRCE,4 DOWN SOURCE 4J015300| | 43362 0600 00 0 43404 DUP.11 STZ DDUPSW CLEAR -DUP- IN PROCESS $4$4J015600 43363 0600 00 0 30035 STZ ENDA AND READ-AHEAD SWITCHES $4$4J015700| 43364 0074 00 4 35175 TSX IREAD,4 READ FIRST $4$4J015800| 43365 0 00000 0 27136 PZE EOFERR CARD OF $4$4J015900| 43366 0074 00 4 37001 TSX CDXIN,4 SEQUENCE $4$4J015950| 43367 4520 00 0 21466 NZT PBLINK IF NO MESSAGE $4$4J016000 43370 0020 00 0 26640 TRA PASA PENDING, GO $4$4J016010| 43371 0600 00 0 21466 STZ PBLINK TO PROCESS $4$4J016020| 43372 0074 00 4 25623 DUP.17 TSX ERPR,4 OTHERWISE - $4$4J016030| 43373 0 00000 4 00171 PZE MSS058,NONONO '-END- SHOULD NOT OCCUR $4$4J016040| 43374 0020 00 0 26640 TRA PASA IN RANGE OF -DUP- $4$4J016100 | 43375 0074 00 4 25623 DUP.13 TSX ERPR,4 'END OF FILE WHILE 4J016700| 43376 0 00000 4 00141 PZE MSS053,NONONO READING -DUP- STQ' $4$4J016800| 43377 0020 00 0 35233 TRA ENDOP5 SIMULATE -END- CARD (6)4J016810| 43400 0 00000 0 00000 RNGCT PZE ** RANGE COUNT 4J017000| 0BINARY CARD ID. MAPJ0338| 43401 0 00000 0 00000 DITCT PZE ** ITERATION COUNT 4J017100| 43402 0 00000 0 00000 DUPCCT PZE ** TOTAL DUP COUNT 4J017200| 43403 0 00000 0 00000 DUP.PS PZE ** INITIAL POSITION 4J017300 43404 0 00000 0 00000 DDUPSW PZE 0 DUP IN PROCESS SWITCH 4J017400| 43405 050003000000 DUP.WD VFD O6/5,12/3 EX OR OF TEXT FOR -DUP- AND -END- (6)4J017500| | * DUPLICATE FILE PUSH DOWN LIST 4J017800| * OCCUPIES TOP END OF MACRO EXPANSION TABLE (6)4J017900 * 4J018000| * 4J018200| * EACH ENTRY, THREE WORDS.. (6)4J018300| * 4J018400| * 1. PZE INIT.REC.NO,,INIT.RANGE.CT 4J018500 * 2. PZE NO.ITERATIONS.LEFT 4J018600| * 3. PZE SUSP.REC.NO,,SUSP.RANGE.CT 4J018700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 198 | DUP PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 * SOURCE INPUT SWITCHING ROUTINES 4J019600| * 4J019700| | * NEW SOURCE 4J019900| * 4J020000 | 43406 0634 00 4 43436 DNSRCE SXA DNSRCX,4 SAVE RETURN 4J020200| 43407 0534 00 4 43475 LXA SRCTBL,4 LOAD POINTER, IF ANY (6)4J020210| 43410 4100 00 0 43420 TNZ DNSRCA SKIP CARD SUSPENSION 4J020300| IF NEW SOURCE (6)4J020400 43411 0441 60 0 43475 LDI* SRCTBL IS DUP. 4J020500| 43412 0560 00 0 21447 LDQ GTPRA 4J020600| 43413 4520 00 0 43475 NZT SRCTBL OTHERWISE, SAVE- 4J020700| 43414 4600 00 0 36237 STQ ISUSC SYSUN= 4J020800| 43415 7 00000 4 43420 TXL DNSRCA,4,0 (6)4J020810 43416 4054 00 400000 LFT 400000 OR 4J020900| 43417 4600 00 0 36240 STQ ISUSD PREVIOUS DUP (6)4J021000| 43420 4534 00 2 43475 DNSRCA LXD SRCTBL,2 BIT COUNT 4J021100| 43421 0737 00 1 00000 PAC 0,1 NEW CODE 4J021300| 43422 1 00001 2 43423 TXI *+1,2,1 4J021400 43423 6 00044 2 43425 TNX *+2,2,36 UPDATE BIT 4J021500| 43424 1 00001 4 43425 TXI *+1,4,1 COUNT AND 4J021600| 43425 3 00000 4 43427 TXH *+2,4,0 SHIFT TO NEXT 4J021700| 43426 0774 00 4 43476 AXT SRCTBL+1,4 IF FULL 4J021800| 0BINARY CARD ID. MAPJ0339 43427 0634 00 4 43475 SXA SRCTBL,4 SAVE UPDATED 4J021900| 43430 4634 00 2 43475 SXD SRCTBL,2 COUNTS 4J022000| 43431 0560 60 0 43475 LDQ* SRCTBL 4J022100| 43432 4765 00 0 00001 LGR 1 SET NEW 4J022200| 43433 4600 60 0 43475 STQ* SRCTBL CODE 4J022300 43434 0500 00 1 43472 CLA SRCES,1 4J022400| 43435 0621 00 0 35200 STA IRED SET INPUT 4J022500| 43436 0774 00 4 00000 DNSRCX AXT **,4 TRANSFER AND 4J022600| 43437 0020 00 4 00001 TRA 1,4 EXIT 4J022700| | * BACK TO PREVIOUS SOURCE 4J022900| * 4J023000| | 43440 0634 00 4 43467 UPSRCE SXA UPSRCX,4 SAVE RETURN 4J023200 43441 0634 00 1 43470 SXA UPSRCX+1,1 4J023300| 43442 0074 00 4 31520 TSX CLEAR,4 $4$4J023400| 43443 4520 00 0 43475 NZT SRCTBL ERROR IF PUSH DOWN (6)4J023500| 43444 0020 00 0 27133 TRA KPUTYP LIST IS EMPTY (6)4J023510| 43445 0560 60 0 43475 LDQ* SRCTBL PICK UP 4J023600 43446 4763 00 0 00001 LGL 1 PREVIOUS 4J023700| 43447 4600 60 0 43475 STQ* SRCTBL SOURCE CODE 4J023800| 43450 0500 00 0 43472 CLA SRCES 4J024000| 43451 0162 00 0 43453 TQP *+2 PROBABLE 4J024100| 43452 0500 00 0 43473 CLA SRCES+1 TRANSFER 4J024200 43453 4534 00 2 43475 LXD SRCTBL,2 4J024300| 43454 2 00001 2 43465 TIX UPSRCB,2,1 DECREMENT BIT COUNT 4J024400| 0BINARY CARD ID. MAPJ0340| 1 IBMAPV IBMAPJ 12/01/64 PAGE 199 | DUP PROCESSOR PHASE 1 - RECORD IBMAPJ 0 43455 0534 00 4 43475 LXA SRCTBL,4 IF END OF WORD, 4J024500| 43456 1 77777 4 43457 TXI *+1,4,-1 BUMP BACK TO NEXT 4J024600| 43457 3 43475 4 43463 TXH UPSRCA,4,SRCTBL IF NO MORE SOURCES, 4J024700| 43460 0500 00 0 43474 CLA SRCES+2 RESET TRANSFER 4J024800| 43461 0774 00 4 00000 AXT 0,4 SET TO CLEAR 4J024900 43462 0774 00 2 77735 AXT -35,2 RFWYSUNI 4J025000| 43463 0634 00 4 43475 UPSRCA SXA SRCTBL,4 STORE WORD POSITION 4J025100| 43464 1 00043 2 43465 TXI *+1,2,35 4J025200| 43465 4634 00 2 43475 UPSRCB SXD SRCTBL,2 STORE BIT COUNT 4J025300| 43466 0621 00 0 35200 STA IRED SET TRANSFER 4J025400 43467 0774 00 4 00000 UPSRCX AXT **,4 AND EXIT 4J026100| 43470 0774 00 1 00000 AXT **,1 4J026200| 43471 0020 00 4 00001 TRA 1,4 4J026300| | 43472 0 00000 0 35454 SRCES PZE IMACI MACRO 4J026500 43473 0 00000 0 35300 PZE IDUPI DUP 4J026600| 43474 0 00000 0 35201 PZE IRED+1 SYSUNI 4J026700| | * SOURCE INPUT PUSH DOWN LIST 4J026900| * FIRST WORD 4J027000 * 4J027100| * PZE POINTER,,BIT.COUNT 4J027200| * 4J027300| * POINTER POINTS TO WORD HOLDING SOURCE BITS- 4J027400| * 4J027500 * 1. BIT=0 MACRO SOURCE 4J027600| * 2. BIT=1 DUP SOURCE 4J027700| * 4J027800| * IF FIRST WORD IS ZERO, INPUT IS SYSUNI. 4J027900| 43475 0 00000 0 00000 SRCTBL PZE ** 4J028100| 43476 000000000000 DEC ,,,,,,,,,,,,,,, 4J028200| 43516 SRCTBE EQU * 4J028300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 200 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0| * MACRO CARD 4J028500| * 4J028600| | 0BINARY CARD ID. MAPJ0341 43516 0500 00 0 21705 MACRO CLA L(1) INITIALIZE 4J028800| 43517 0601 00 0 44257 STO MCDCTR DEPTH COUNTER 4J028900| 43520 4500 00 0 44262 CAL MCDCLL SET UP MACRO-INSTRUCTION (6)4J028910| 43521 0402 00 0 44605 SUB PLSTR OPERATION CODE FOR DICTIONARY (6)4J028920| 43522 0602 00 0 44261 SLW MCDCUR+1 (6)4J028930 43523 0600 60 0 44261 STZ* MCDCUR+1 CLEAR CHAIN WORD (6)4J028940| 43524 0774 00 2 00000 AXT 0,2 INITIALIZE ARGUMENT COUNT (6)4J028950| 43525 0535 00 4 45324 LAC XPLH,4 AND LOCATION (6)4J028960| 43526 0634 00 4 44515 SXA PARCB,4 (6)4J028970| 43527 0600 00 0 44256 STZ IRPSW CLEAR IRP SWITCH 4J029000 43530 4500 00 0 21461 CAL NAME IF NO 4J029100| 0BINARY CARD ID. MAPJ0342| 43531 4100 00 0 43564 TNZ MCRA NAME, ASSUME OTHER FORM (6)4J029200| 43532 0074 00 4 36662 TSX BSCAN,4 IF VARIABLE (6)4J029210| 43533 4734 00 4 00000 PDX ,4 FIELD IS BLANK (6)4J029220 43534 7 00000 4 43546 TXL MCRAC,4,0 (6)4J029230| 43535 3 00006 4 43542 TXH MCRAA,4,6 (6)4J029240| 43536 0737 00 4 00000 PAC ,4 (6)4J029250| 43537 4500 00 4 00000 CAL 0,4 IF VARIABLE FIELD IS NOT BLANK, (6)4J029260| 43540 0322 00 0 44273 ERA APNDWD CHECK FOR -APPEND- (6)4J029270 43541 0100 00 0 43545 TZE MCRAB REQUEST (6)4J029280| 43542 0074 00 4 25623 MCRAA TSX ERPR,4 ELSE, - 'MACRO MUST HAVE (6)4J029300| 43543 0 00000 1 00044 PZE MSS024,GO NAME' 4J029400| 43544 0020 00 0 40475 TRA NTRTB IGNORE CARD (6)4J029500| 43545 4625 00 0 45173 MCRAB STL SWAPND (6)4J029510 43546 0074 00 4 44274 MCRAC TSX MCDPR,4 GET OPERATION FIELD (6)4J029520| 43547 0520 00 0 37172 ZET SWCMNT OF NEXT NON-COMMENT (6)4J029530| 43550 0020 00 0 44277 TRA MCD.Q CARD AS THE MACRO NAME (6)4J029540| 43551 0441 60 0 44261 LDI* MCDCUR+1 LOAD SKELETON CHAIN WORD (6)4J029550| 43552 4500 00 0 21461 CAL NAME IF THIS CARD HAS A (6)4J029560 43553 0100 00 0 43557 TZE MCRAD NON-BLANK NAME FIELD, (6)4J029570| 43554 1 00001 2 43555 TXI *+1,2,1 SET LOCATION FIELD (6)4J029580| 43555 0602 60 0 44515 SLW* PARCB AS FIRST PARAMETER (6)4J029590| 43556 0055 00 400000 SIR 400000 (NOTE IN BIT 18 OF CHAIN WORD) (6)4J029600| 0BINARY CARD ID. MAPJ0343 43557 4500 00 0 21462 MCRAD CAL OPER GET NAME FROM OP FIELD (6)4J029610| 43560 1 00001 2 43561 TXI *+1,2,1 BUMP PARAMETER COUNT (6)4J029620| 43561 0602 60 0 44515 SLW* PARCB AND STORE IN TABLE (6)4J029630| 43562 0055 00 200000 SIR 200000 SET FLAG BIT 19 OF (6)4J029640| 43563 0604 60 0 44261 STI* MCDCUR+1 SKELETON CHAIN WORD (6)4J029650 | 43564 0602 00 0 44260 MCRA SLW MCDCUR SET CURRENT NAME 4J029700| 43565 0441 60 0 44261 LDI* MCDCUR+1 PICK UP SKELETON CHAIN WORD (6)4J029800| 43566 0520 00 0 37170 ZET SWIND WAS OP INDIRECTLY ADDRESSED (6)4J029810| 43567 0055 00 100000 SIR 100000 YES, SET IND ARG FLAG (6)4J029900 43570 0604 60 0 44261 STI* MCDCUR+1 (BIT 20 OF CHAIN WORD) (6)4J030000| | 43571 0520 00 0 21475 MCRB ZET MPBLSW ARE BLANKS SEPARATORS (6)4J030200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 201 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0 43572 0600 00 0 35166 STZ SWCVFE YES, STOP ON END OF CARD (6)4J030210| 43573 0074 00 4 36657 TSX SSCAN,4 SCAN NEXT FIELD (6)4J030220| 43574 4054 00 037760 LFT LPB+RPB+QTB+EQB+DLB+CMB+PSB+MSB+ASB+SLB 4J030300| 43575 0601 00 0 44534 STO PARCE 4J030400| 43576 4734 00 4 00000 PDX 0,4 DO NOT ENTER 4J030500 43577 7 00000 4 43612 TXL MCRC,4,0 IF NO LENGTH 4J030600| 43600 7 00006 4 43603 TXL *+3,4,6 4J030700| 43601 0074 00 4 25623 TSX ERPR,4 'MACRO PARAM MUST BE 4J030800| 43602 0 00000 1 00015 WMS003,GO LESS THAN 7 CHARACTERS.' (6)4J030900| 43603 4500 60 0 44534 CAL* PARCE STORE IN TABLE 4J031000 43604 1 00001 2 43605 TXI *+1,2,1 COUNT AND STORE (6)4J031100| 0BINARY CARD ID. MAPJ0344| 43605 0602 60 0 44515 SLW* PARCB PARAMETER (6)4J031200| 43606 7 00077 2 43612 TXL MCRC,2,63 (6)4J031300| 43607 0074 00 4 25623 TSX ERPR,4 'MACRO CANNOT HAVE 4J031400 43610 0 00000 2 00045 MSS025,NOGO MORE THAN 63 PARAMETERS' (6)4J031500| 43611 1 77777 2 43613 TXI *+2,2,-1 IGNORE EXTRA PARAMETERS (6)4J031600| | 43612 3 00000 1 43571 MCRC TXH MCRB,1,0 IF TERMINATOR IS BLANK (6)4J031800| 43613 0520 00 0 21475 ZET MPBLSW AND WE INHIBITED READ, (6)4J031810 43614 4625 00 0 35166 STL SWCVFE PERMIT IT NOW (6)4J031820| 43615 0074 00 4 44274 TSX MCDPR,4 OUTPUT AND FETCH NEXT (6)4J031900| 43616 0520 00 0 37172 ZET SWCMNT NON-COMMENT CARD (6)4J032000| 43617 0020 00 0 44277 TRA MCD.Q (6)4J032100| 43620 0100 00 0 43571 TZE MCRB CONTINUE IF 'ETC' (6)4J032200 | END OF MACRO CARD(S). 4J033500| 43621 0634 00 2 44511 MCRD SXA PARCA,2 SET COUNT FOR TEST (6)4J033600| 43622 4634 00 2 43635 SXD MCRF,2 (6)4J033700| 43623 4520 00 0 45173 NZT SWAPND IS -APPEND- REQUESTED (6)4J034900 43624 0020 00 0 43640 TRA MCRG NO, EXIT (6)4J035000| | APPEND TO EXISTING DEFINITION, IF ANY (6)4J035110| 43625 4500 00 0 44260 CAL MCDCUR LOOK UP MACRO NAME (6)4J035120| 43626 0074 00 4 36350 TSX OPALT,4 AS OPERATION (6)4J035200 43627 0020 00 0 43640 TRA MCRG IGNORE IT IF NOT DEFINED (6)4J035210| 43630 0074 00 4 31477 TSX HOLD,4 SCHEDULE PURGE (6)4J035220| 43631 3 00000 1 43640 TXH MCRG,1,0 EXIT IF OPERATION NOT A MACRO (6)4J035230| 43632 4754 00 0 00000 ZAC (6)4J035240| 0BINARY CARD ID. MAPJ0345 43633 4763 00 0 00014 LGL 12 NUMBER OF PARAMETERS (6)4J035250| 43634 0734 00 2 00000 PAX ,2 MUST NOT BE (6)4J035260| 43635 7 00000 2 43642 MCRF TXL MCRH,2,** LESS THAN (6)4J035270| 43636 0074 00 4 25623 TSX ERPR,4 THAT OF THE (6)4J035280| 43637 0 00000 1 00046 MSS026,GO ORIGINAL DEFINITION (6)4J035290 43640 0522 00 0 44605 MCRG XEC PLSTR (6)4J035300| 43641 1 77777 4 43727 TXI MCRX,4,-1 (6)4J035310| 43642 4774 00 2 00000 MCRH AXC **,2 EXIT IF PREVIOUS (6)4J035320| 43643 7 00000 2 43640 TXL MCRG,2,0 DEFINITION IS PURGED (6)4J035330| 43644 4625 00 0 36436 STL NMESW SET REDEFINITION SWITCH (6)4J035340 43645 0560 00 0 36220 LDQ MCRES SAVE CURRENT EXPANSION (6)4J035350| 43646 4600 00 0 52430 STQ TEMP POSITIONING (6)4J035360| 43647 0560 00 0 36217 LDQ MCCTX INFORMATION (6)4J035370| 43650 4600 00 0 52431 STQ TEMP+1 (6)4J035400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 202 MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 | 43651 0500 00 0 43642 CLA MCRH ADDRESS OF CHAIN WORD (6)4J035420| 43652 0441 00 2 00000 MCRJ LDI 0,2 IS MACRO DEFINED (6)4J035430| 43653 4056 00 100000 LNT 100000 VIA OPSYN (6)4J035440 43654 0020 00 0 43662 TRA MCRK NO (6)4J035450| 43655 4500 00 2 00001 CAL 1,2 YES, PICK UP TRANSFER (6)4J035500| 43656 0771 00 0 00006 ARS 6 IN SKELETON AND (6)4J035510| 43657 0737 00 2 00000 PAC ,2 FOLLOW ITS LEAD (6)4J035520| 43660 0621 00 0 43642 STA MCRH UPDATE DEFINITION ADDRESS (6)4J035530 0BINARY CARD ID. MAPJ0346| 43661 0020 00 0 43652 TRA MCRJ (6)4J035540| | 43662 0361 00 0 21705 MCRK ACL L(1) INITIALIZE (6)4J035610| 43663 0621 00 0 36217 STA MCCTX AND GO OFF (6)4J035620 43664 0774 00 2 36040 AXT IMC.46,2 TO HUNT (6)4J035630| 43665 0020 00 0 36207 TRA MCFCH DOWN ENDM (6)4J035640| | RETURN HERE FOR 75 CONTROL CHARACTER (6)4J035710| 43666 4754 00 0 00000 MCRL ZAC (6)4J035720 43667 4763 00 0 00006 LGL 6 PICK UP AND COUNT (6)4J035730| 43670 0734 00 1 00000 PAX ,1 NEXT (6)4J035740| 43671 2 00001 2 43673 TIX *+2,2,1 CHARACTER (6)4J035750| 43672 1 43672 2 36207 TXI MCFCH,2,* OF SKELETON (6)4J035760| 43673 7 00076 1 36040 TXL IMC.46,1,62 RETURN IF NOT ENDM (6)4J035770 | END OF SKELETON LOCATED (6)4J035810| 43674 0535 00 4 36217 LAC MCCTX,4 (6)4J035820| 43675 1 00002 2 43676 TXI *+1,2,2 ADJUST POINTER AND CHARACTER (6)4J035830| 43676 6 00006 2 43700 TNX *+2,2,6 COUNT TO BACK OVER ENDM (6)4J035840 43677 1 00001 4 43700 TXI *+1,4,1 CONTROL CHARACTERS (6)4J035850| 43700 0500 00 0 44605 CLA PLSTR COMPUTE DIFFERENCE (6)4J035900| 43701 0400 00 0 36217 ADD MCCTX FROM END OF (6)4J035910| 43702 0737 00 1 00000 PAC ,1 DEFINITION TABLE (6)4J035920| 43703 3 00000 1 43707 TXH MCRM,1,0 IS DEFINITION LAST IN TABLE (6)4J035930 | APPEND IS TO LAST MACRO DEFINITION (6)4J036010| 43704 0534 00 1 43642 LXA MCRH,1 RESET DEFINITION POINTER (6)4J036020| 43705 0634 00 1 44261 SXA MCDCUR+1,1 TO REFER TO IT (6)4J036030| 43706 1 00001 4 43717 TXI MCRS,4,1 GO INITIALIZE CONCATENATORS (6)4J036040 | COPY PREVIOUS DEFINITION TO END OF TABLE (6)4J036110| 0BINARY CARD ID. MAPJ0347| 43707 4634 00 4 43715 MCRM SXD MCRP,4 SET TEST FOR MOVE END (6)4J036120| 43710 0535 00 1 43642 LAC MCRH,1 LOAD SOURCE AND (6)4J036130 43711 0522 00 0 44605 XEC PLSTR DESTINATION POINTERS (6)4J036140| | 43712 0560 00 1 00000 MCRN LDQ 0,1 PERFORM (6)4J036210| 43713 4600 00 4 00000 STQ 0,4 MOVE (6)4J036220| 43714 1 77777 1 43715 TXI MCRP,1,-1 (6)4J036230 43715 7 00000 1 43717 MCRP TXL MCRS,1,** (6)4J036240| 43716 1 77777 4 43712 TXI MCRN,4,-1 (6)4J036250| | INITIALIZE CONCATENATION ROUTINES (6)4J036310| 43717 0634 00 2 44606 MCRS SXA PLACB,2 STORE COUNT OF CHARACTERS (6)4J036320 1 IBMAPV IBMAPJ 12/01/64 PAGE 203 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 43720 0560 00 4 00000 LDQ 0,4 REMAINING IN CURRENT WORD (6)4J036330| 43721 0522 00 2 44673 XEC RLEFT,2 RIGHT JUSTIFY AND (6)4J036340| 43722 0602 00 4 00000 SLW 0,4 STORE THEM (6)4J036350 43723 0560 00 0 52430 LDQ TEMP RESTORE MACRO (6)4J036400| 43724 4600 00 0 36220 STQ MCRES EXPANSION (6)4J036410| 43725 0560 00 0 52431 LDQ TEMP+1 POINTERS (6)4J036420| 43726 4600 00 0 36217 STQ MCCTX (6)4J036430| 43727 0634 00 4 44605 MCRX SXA PLSTR,4 STORE SKELETON STUFF POINTER (6)4J036500 43730 0020 00 0 43735 TRA MCDFO PROCESS DEFINITION OR INCREMENT (6)4J036600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 204 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * PROCESS CARDS IN RANGE OF MACRO DEFINITION 4J037800 | 43731 0074 00 4 44274 MCDFN TSX MCDPR,4 OUTPUT AND FETCH NEXT 4J038000| 43732 0520 00 0 37172 ZET SWCMNT IGNORE *-TYPE $4$4J038100| 43733 0020 00 0 44277 TRA MCD.Q COMMENT $4$4J038200| 43734 0074 00 4 44205 TSX MACSP,4 CHECK SKELETON TABLE OVERFLOW (6)4J038300 | TEST FOR SPECIAL PROCESSING 4J038700| 0BINARY CARD ID. MAPJ0348| 43735 0600 00 0 35166 MCDFO STZ SWCVFE STOP SCAN ON BLANK (6)4J038800| 43736 4520 00 0 37167 NZT SWLOP IF NO ERROR SENSED IN OP FIELD (6)4J038810 43737 0074 00 4 36347 TSX OPLOC,4 OBTAIN DICTIONARY DEFINITION (6)4J038900| 43740 0020 00 0 43747 TRA MCDB UNLESS IT IS NOT DEFINED (6)4J038910| 43741 4500 00 2 00000 CAL 0,2 LOAD THE INTERNAL TEXT (6)4J038920| 43742 0774 00 4 00022 AXT MCSPE-MCSPL,4 (6)4J038930| 43743 4340 00 4 44247 MCDA LAS MCSPE,4 COMPARE WITH 4J039000 43744 0020 00 0 43746 TRA *+2 TABLE AND BRANCH 4J039100| 43745 0020 60 4 44250 TRA* MCSPE+1,4 IF SPECIAL TYPE 4J039200| 43746 2 00002 4 43743 TIX MCDA,4,2 4J039300| | ORDINARY CARD 4J039500 43747 0520 00 0 21461 MCDB ZET NAME SCAN LOCATION 4J039600| 43750 0020 00 0 44322 TRA RESCN FIELD IF NOT BLANK (6)4J039700| 43751 0020 00 0 44341 TRA MCDC ELSE START WITH OPERATION FIELD (6)4J039800| | ENDM CARD 4J040900 43752 0500 00 0 44257 MCDD CLA MCDCTR DECREMENT DEPTH 4J041000| 43753 0402 00 0 21705 SUB L(1) COUNTER 4J041100| 43754 0601 00 0 44257 STO MCDCTR 4J041200| 43755 0074 00 4 36657 TSX SSCAN,4 SCAN FIRST FIELD (6)4J041300| 43756 4054 00 001000 LFT CMB $4$4J042400 43757 4734 00 4 00000 PDX ,4 IF NAME IS (6)4J042410| 43760 7 00000 4 43771 TXL MCDDD,4,0 NOT NULL (6)4J042420| 43761 0737 00 4 00000 PAC 0,4 $4$4J042500| 43762 4500 00 4 00000 CAL 0,4 FETCH SYMBOL $4$4J042600| 0BINARY CARD ID. MAPJ0349 43763 0322 00 0 44260 ERA MCDCUR IS IT MACRO NAME $4$4J042700| 43764 0520 00 0 44257 ZET MCDCTR IF ENDM IS NESTED, (6)4J042800| 43765 4100 00 0 43747 TNZ MCDB TREAT AS ORDINARY CARD (6)4J042900| 43766 0100 00 0 43771 TZE MCDDD (6)4J043000| 43767 0074 00 4 25623 TSX ERPR,4 'MACRO DEFINITION TERMINATED BY (6)4J043010 43770 0 00000 1 00042 MSS022,GO -ENDM- CARD WITH WRONG NAME' (6)4J043020| 43771 0600 00 0 35166 MCDDD STZ SWCVFE (6)4J043030| 43772 0074 00 4 36662 MOPSA TSX BSCAN,4 GET NEXT FIELD (6)4J043100| 43773 0774 00 2 00006 AXT MCRSTB-MCRST,2 NUMBER OF PARAMETERS $4$4J043200| 43774 0737 00 4 00000 PAC ,4 (6)4J043210 43775 4500 00 4 00000 CAL 0,4 FETCH SYMBOL $4$4J043300| 43776 0441 00 0 44261 LDI MCDCUR+1 $4$4J043400| 43777 4340 00 2 44273 LAS MCRSTB,2 TEST TABLE $4$4J043500| 44000 0020 00 0 44002 TRA *+2 NO $4$4J043600| 44001 0522 00 2 44274 XEC MCRSTB+1,2 A HIT $4$4J043700 44002 2 00002 2 43777 TIX *-3,2,2 $4$4J043800| 44003 0604 00 0 44261 STI MCDCUR+1 $4$4J043900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 205 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 44004 3 00000 1 43772 TXH MOPSA,1,0 DID BLANK TERMINATE (6)4J044000 (6)4J044100| 44005 4625 00 0 35166 STL SWCVFE RESET INHAND INHIBITION (6)4J044200| 44006 USE MCDF TEST NESTING (6)4J044300| | 44023 USE MCDE (6)4J044500 0BINARY CARD ID. MAPJ0350| 44023 0560 00 0 44253 MCDE LDQ MDFK5 IF OPEN IRP 4J045300| 44024 0520 00 0 44256 ZET IRPSW SEQUENCE, PLACE 4J045400| 44025 0074 00 2 44603 TSX PLTWO,2 END IRP MARK 4J045500| 44026 0560 00 0 44251 LDQ MDFK3 PLACE END OF MACRO 4J045600 44027 0074 00 2 44603 TSX PLTWO,2 MARK 4J045700| 44030 0560 00 0 36253 LDQ BLANKS FILL OUT 4J045800| 44031 0522 00 1 44665 XEC PLEFT,1 REMAINDER 4J045900| 44032 0602 00 4 00000 SLW 0,4 OF WORD 4J046000| 44033 1 77777 4 44034 TXI *+1,4,-1 SET FOR 4J046100 44034 0634 00 4 44605 SXA PLSTR,4 NEXT DFN 4J046200| 44035 4634 00 4 45330 SXD XPLTST,4 AND PUSH DOWN LIMIT 4J046300| 44036 0074 00 4 44205 TSX MACSP,4 CHECK SKELETON TABLE OVERFLOW (6)4J046400| 44037 0774 00 1 00006 MCDEE AXT 6,1 4J047300| 44040 0634 00 1 44606 SXA PLACB,1 4J047400 44041 4500 00 0 44260 CAL MCDCUR PLACE OPERATION 4J048100| 44042 0602 00 0 21462 SLW OPER AND CODE 4J048200| 44043 0074 00 4 36407 TSX PLNOP,4 INTO 4J048300| 44044 0600 00 0 36436 STZ NMESW DICTIONARY (6)4J048400| 44045 0074 00 4 31477 TSX HOLD,4 PURGE OLD DEFINITION IF A MACRO (6)4J048500 44046 0535 00 4 44605 LAC PLSTR,4 $4$4J049300| 44047 0634 00 4 45175 SXA PRGSKL,4 SET ADDRESS OF NEXT $4$4J049400| 44050 0754 00 2 00000 PXA ,2 (6)4J049500| 0BINARY CARD ID. MAPJ0351| 44051 0737 00 4 00000 PAC ,4 RECOMPLEMENT AND (6)4J049510 44052 4634 00 4 45175 SXD PRGSKL,4 SET DICT. LOC $4$4J049600| 44053 0535 00 4 44261 LAC MCDCUR+1,4 $4$4J049700| 44054 4500 00 0 21725 CAL MSKTG STORE SKELETON (6)4J049800| 44055 4320 00 4 00000 ANA 0,4 CHAIN WORD ADDRESS (6)4J049810| 44056 4501 00 0 45175 ORA PRGSKL RETAINING TAG BITS (6)4J049900 44057 0602 00 4 00000 SLW 0,4 WHICH SUPPLEMENT (6)4J050000| 44060 0534 00 4 44511 LXA PARCA,4 INFORMATION (6)4J050100| 44061 4754 00 4 00000 PXD ,4 IN DICTIONARY (6)4J050110| 44062 4501 00 0 44261 ORA MCDCUR+1 ENTRY (6)4J050120| 44063 0602 00 2 00000 SLW 0,2 4J050200 44064 0520 00 0 44255 ZET NOMAC IS DEFINITION SUPPRESSED (6)4J050300| 44065 0074 00 4 31477 TSX HOLD,4 YES, GO MARK FOR PURGE (6)4J050310| 44066 0074 00 4 44274 TSX MCDPR,4 PRINT CARD (6)4J050320| 44067 0600 00 0 44255 STZ NOMAC RESET DEFINITION SUPPRESSION (6)4J050330| 44070 0074 00 4 31520 TSX CLEAR,4 PURGE, IF POSSIBLE. $4$4J050400 44071 0600 00 0 45173 STZ SWAPND RESET APPEND SWITCH (6)4J050410| 44072 0020 00 0 26640 TRA PASA BACK TO NORMAL ROUTE 4J050500| | 44006 USE MCDF (6)4J050700| 0BINARY CARD ID. MAPJ0352 44006 0534 00 4 44257 LXA MCDCTR,4 GET NESTING LEVEL (6)4J050800| 44007 7 00000 4 44023 MCDFF TXL MCDE,4,0 IF MORE THAN ONE 4J051000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 206 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 44010 0634 00 4 44021 SXA MCDFFF,4 OPEN MACRO, PLACE $4$4J051100 44011 0560 00 0 44247 LDQ MDFK1 ENDM CARDS TO $4$4J051200| 44012 0074 00 2 44603 TSX PLTWO,2 CLOSE ALL (5)4J051300| 44013 0500 00 0 44263 CLA MCDNDM BUT LAST $4$4J051400| 44014 0074 00 4 44536 TSX PLBCD,4 $4$4J051500| 44015 0560 00 0 44443 LDQ MVFD $4$4J051600 44016 0074 00 2 44603 TSX PLTWO,2 (5)4J051700| 44017 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE - 'MACRO NESTING (6)4J051710| 44020 0 00000 1 00040 MSS020,GO ERROR. -ENDM- SUPPLIED.' (6)4J051720| 44021 0774 00 4 00000 MCDFFF AXT **,4 $4$4J051800| 44022 1 77777 4 44007 TXI MCDFF,4,-1 4J051900 | 44073 USE PREVIOUS (6)4J051920| | MACRO CARD 4J052100| 0BINARY CARD ID. MAPJ0353 44073 0500 00 0 44257 MCDG CLA MCDCTR INCREASE 4J052200| 44074 0400 00 0 21705 ADD L(1) DEPTH COUNTER 4J052300| 44075 0601 00 0 44257 STO MCDCTR 4J052400| 44076 0020 00 0 43747 TRA MCDB TREAT AS ORDINARY 4J052500| CREATE CARD (6)4J052520| 44077 4625 00 0 45162 MCCRT STL CRTSW SET SWITCH (6)4J052530| 44100 0020 00 0 44102 TRA MCIRP+1 (6)4J052540| | IRP CARD 4J052700 44101 0600 00 0 45162 MCIRP STZ CRTSW (6)4J052800| 44102 0534 00 4 44257 LXA MCDCTR,4 IGNORE IF NOT IN (6)4J052810| 44103 3 00001 4 44341 TXH MCDC,4,1 OUTER MACRO 4J052900| 44104 0074 00 4 34175 TSX NONAME,4 (6)4J053000| 44105 0074 00 4 36657 MCICR TSX SSCAN,4 SCAN (6)4J053200 44106 4054 00 001000 LFT CMB SUBFIELD (6)4J053300| 44107 4734 00 2 00000 PDX 0,2 NOT PARAM IF 4J053400| 44110 3 00006 2 44121 TXH MCIRQ,2,6 COUNT GTR 6 4J053500| 44111 7 00000 2 44133 TXL MCIRSE,2,0 SPECIAL FOR BLANK FIELD (6)4J053510| 44112 0621 00 0 44113 STA *+1 4J053600 44113 4500 00 0 00000 CAL ** CHECK 4J053700| 44114 0522 00 0 44511 XEC PARCA FIELD 4J053800| 44115 0522 00 0 44515 XEC PARCB FOR PARAMETER 4J053900| 44116 0020 00 0 44120 TRA *+2 4J054000| 44117 0020 00 0 44152 TRA MCIRT -YES 4J054100 44120 2 00001 2 44115 TIX *-3,2,1 (6)4J054200| | 0BINARY CARD ID. MAPJ0354| 44121 0520 00 0 45162 MCIRQ ZET CRTSW ADD TO PARAMETER LIST (6)4J054310| 44122 0020 00 0 44142 TRA MCIRSG IF OPERATION IS -CREATE- (6)4J054320 44123 0074 00 4 25623 TSX ERPR,4 '-IRP- WITH FORMAT ERROR (6)4J054400| 44124 0 00000 1 00135 PZE MSS050,GO IN VF IGNORED' 4J054500| 44125 4520 00 0 44256 NZT IRPSW IGNORE IF NO (6)4J054600| 44126 0020 00 0 44165 TRA MCIRTT IRP SEQUENCE ON (6)4J054700| 44127 0560 00 0 44252 MCIRS LDQ MDFK4 OTHERWISE, (6)4J054800 44130 0074 00 2 44600 TSX PLTHR,2 PLACE END IRP MARK (6)4J054900| 44131 0600 00 0 44256 STZ IRPSW 4J055000| 44132 0020 00 0 44165 TRA MCIRTT (6)4J055100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 207 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0 | 44133 4520 00 0 45162 MCIRSE NZT CRTSW IS THIS CREATE (6)4J055210| 44134 0020 00 0 44137 TRA MCIRSF OPERATION (6)4J055220| 44135 3 00000 1 44105 TXH MCICR,1,0 YES, RETURN IF BLANK (6)4J055230| 44136 0020 00 0 44341 TRA MCDC DID NOT TERMINATE (6)4J055240 44137 0520 00 0 44256 MCIRSF ZET IRPSW TEST FOR IRP SEQUENCE 4J055300| 44140 0020 00 0 44127 TRA MCIRS YES, PROCEED (6)4J055400| 44141 0020 00 0 44121 TRA MCIRQ NO, OUTPUT MESSAGE (6)4J055500| | 44142 0522 00 0 44511 MCIRSG XEC PARCA ADD TO PARAMETER (6)4J055520 44143 1 00001 2 44144 TXI *+1,2,1 LIST FOR MACRO DEFINITION (6)4J055530| 44144 7 00077 2 44150 TXL MCIRSH,2,63 IF TOO MANY, (6)4J055540| 44145 0074 00 4 25623 TSX ERPR,4 'MACRO DEFINITION MAY NOT HAVE (6)4J055600| 44146 0 00000 2 00045 MSS025,NOGO MORE THAN 63 PARAMETERS' (6)4J055610| 0BINARY CARD ID. MAPJ0355 44147 0020 00 0 44341 TRA MCDC IGNORE REST OF CARD (6)4J055620| | 44150 0634 00 2 44511 MCIRSH SXA PARCA,2 STORE NEW COUNT (6)4J055710| 44151 0602 60 0 44515 SLW* PARCB AND PARAMETER (6)4J055720| 44152 4754 00 2 00000 MCIRT PXD ,2 (6)4J055900| 44153 0520 00 0 45162 ZET CRTSW (6)4J056000| 44154 0020 00 0 44167 TRA MCIRC (6)4J056100| 44155 4501 00 0 44252 ORA MDFK4 STORE ARGUMENT NUMBER (6)4J056200| 44156 0602 00 0 45162 SLW CRTSW WITH CONTROL CODE (6)4J056300 44157 0560 00 0 44252 LDQ MDFK4 PLACE END MARK (6)4J056400| 44160 0520 00 0 44256 ZET IRPSW IF PREVIOUS SEQ 4J056500| 44161 0074 00 2 44600 TSX PLTHR,2 NOT CLOSED (6)4J056600| 44162 4625 00 0 44256 STL IRPSW 4J056700| 44163 0560 00 0 45162 LDQ CRTSW PLACE IRP START MARK WITH (6)4J056800 44164 0074 00 2 44600 TSX PLTHR,2 PARAMETER NUMBER (6)4J056810| 44165 4625 00 0 35166 MCIRTT STL SWCVFE ENABLE NEXT CARD READ (6)4J056900| 44166 0020 00 0 43731 TRA MCDFN (6)4J056910| | 44167 4501 00 0 44253 MCIRC ORA MDFK5 PLACE CREATE ARG (6)4J057000 44170 4130 00 0 00000 XCL CODE WITH (6)4J057100| 44171 0074 00 2 44600 TSX PLTHR,2 PARAMETER NUMBER (6)4J057200| 44172 0020 00 0 44105 TRA MCICR CHECK FOR MORE (6)4J057300| | -BCI- OR -MNOTE- CARD (6)4J057410 44173 0520 00 0 37171 MCDJ ZET SWNBV IS OPERATION ENDED BY BLANK (6)4J057420| 44174 0020 00 0 44203 TRA MCDK SET SWITCH IF YES (6)4J057430| | -REM- OR -TTL- CARDS 4J057500| 0BINARY CARD ID. MAPJ0356 44175 0774 00 4 44446 MCDH AXT MCNBLK,4 SET SCAN TO (6)4J057600| 44176 0634 00 4 36536 SXA SCSIL,4 CONTINUE ON BLANK (6)4J057700| 44177 4625 00 0 35166 STL SWCVFE (EVEN UNTO AN ETC CARD) (6)4J057800| 44200 0774 00 4 40000 MCDI AXT 16384,4 SET HIGH PAREN COUNT (6)4J057900| 44201 0634 00 4 44361 SXA MVFL,4 (BUT NOT TOO HIGH) (6)4J058000 44202 0020 00 0 43747 TRA MCDB GO SCAN CARD (6)4J058100| | 44203 4625 00 0 45157 MCDK STL BCISW SET SWITCH FOR (6)4J058300| 44204 0020 00 0 44200 TRA MCDI VARIABLE FIELD SCAN (6)4J058400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 208 MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 | | | CHECK MACRO SKELETON OVERFLOW (6)4J062910 44205 0520 00 0 44255 MACSP ZET NOMAC DID WE PUT OUT MESSAGE (6)4J062920| 44206 0020 00 4 00001 TRA 1,4 YES (6)4J062930| 44207 0500 00 0 44605 CLA PLSTR NO, CHECK OVERFLOW (6)4J062940| 44210 0402 00 0 45324 SUB XPLH (6)4J062950| 44211 0402 00 0 44221 SUB MACSPC SAVE EXPANSION AND PARAMETER ROOM (6)4J062960 44212 0120 00 4 00001 TPL 1,4 BACK IF O.K. (6)4J062970| 44213 0634 00 4 44216 SXA *+3,4 OTHERWISE, SAY (6)4J062980| 44214 0074 00 4 25623 TSX ERPR,4 'SKELETON TABLE OVERFLOW, (6)4J062990| 44215 0 00000 4 00156 MSS057,NONONO DEFINITION TO BE PURGED' (6)4J063000| 44216 0774 00 4 00000 AXT **,4 (6)4J063010 44217 4625 00 0 44255 STL NOMAC SET SUPPRESS SWITCH (6)4J063020| 44220 0020 00 4 00001 TRA 1,4 (6)4J063030| | 44221 0 00000 0 00100 MACSPC 64 (6)4J063100| 44222 0074 00 4 25623 MCERRN TSX ERPR,4 '-END- SHOULD NOT OCCUR 4J063300| 0BINARY CARD ID. MAPJ0357| 44223 0 00000 4 00173 PZE MSS059,NONONO IN MACRO DEFINITION' $5$4J063400| 44224 0020 00 0 26640 TRA PASA PROCESS END CARD $5$4J063410| 1 IBMAPV IBMAPJ 12/01/64 PAGE 209 MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * CONSTANTS AND STORAGE FOR MACRO DEFINITION PROCESSING 4J063600| | 44225 MCSPL SYN * TABLE FOR 4J063800 44225 610006000000 VFD O6/61,12/6 INTERNAL TEXT FOR 'ENDM' (1)4J063900| 44226 0 00000 0 43752 PZE MCDD CARD PROCESSING 4J064000| 44227 600000000000 VFD O6/60,12/0 INTERNAL TEXT FOR 'MACRO' (1)4J064100| 44230 0 00000 0 44073 PZE MCDG 4J064200| 44231 770012000000 VFD O6/77,12/10 INTERNAL TEXT FOR 'TTL' (1)4J064300 44232 0 00000 0 44175 MCDH (6)4J064400| 44233 770014000000 VFD O6/77,12/12 INTERNAL TEXT FOR 'MNOTE' (6)4J064410| 44234 0 00000 0 44173 MCDJ (6)4J064420| 44235 750001000000 VFD O6/75,12/1 INTERNAL TEXT FOR 'REM' (1)4J064500| 44236 0 00000 0 44175 PZE MCDH 4J064600 44237 710002000000 VFD O6/71,12/2 INTERNAL TEXT FOR 'BCI' (1)4J064700| 44240 0 00000 0 44173 PZE MCDJ 4J064800| 44241 610002000000 VFD O6/61,12/2 INTERNAL TEXT FOR 'IRP' (1)4J064900| 44242 0 00000 0 44101 PZE MCIRP 4J065000| 44243 610010000000 VFD O6/61,12/8 INTERNAL TEXT FOR 'CREATE' (6)4J065010 44244 0 00000 0 44077 MCCRT (6)4J065020| 44245 750003000000 END.WD VFD O6/75,12/3 INTERNAL TEXT FOR 'END' (6)4J065100| 44246 0 00000 0 44222 PZE MCERRN 4J065200| 44247 MCSPE SYN * 4J065300| 44247 757500000000 MDFK1 VFD O12/7575,24/0 START OPN CODE 4J065500| 44250 756000000000 MDFK2 VFD O12/7560,24/0 START VAR FIELD CODE (4)4J065600| 0BINARY CARD ID. MAPJ0358| 44251 757700000000 MDFK3 VFD O12/7577,24/0 END MACRO CODE 4J065700| 44252 767600000000 MDFK4 VFD O12/7676,24/0 BEGIN IRP CODE 4J065800 44253 767700000000 MDFK5 VFD O12/7677,24/0 CREATE ARGUMENT CODE (6)4J065900| 44254 767500000000 MDFK6 VFD O12/7675,24/0 INSERT BLANKS CODE (6)4J065910| 44255 0 00000 0 00000 NOMAC PZE ** MACRO SKELETON OVERFLOW SWITCH 4J066000| 44256 0 00000 0 00000 IRPSW PZE ** IRP SEQ ON SWITCH 4J066100| 44257 0 00000 0 00001 MCDCTR PZE 1 MACRO DEPTH COUNTER 4J066400| 44260 606060606060 MCDCUR BCI 2, MACRO BEING DEFINED 4J066500| 44262 717400500000 MCDCLL OCT 717400500000 DUMMY MACRO CALL 4J066600| | 44263 0 00004 0 44264 MCDNDM PZE *+1,,4 TEST FOR INSERTED $4$4J066800 44264 254524446060 BCI 1,ENDM -ENDM- CARDS $4$4J066900| | 44265 MCRST BSS 0 $4$4J067100| 44265 235162606060 BCI 1,CRS ALWAYS CREATE SYMBOLS, SET 4J067200| 44266 0055 00 200000 SIR 200000 BYPASS SWITCH, SPECIAL CREATE ON. 4J067300 44267 454623516260 BCI 1,NOCRS NEVER CREATE, SET BYPASS SWITCH 4J067400| 44270 0055 00 600000 SIR 600000 SPECIAL CREATE SWITCH OFF. 4J067500| 44271 512524252660 BCI 1,REDEF REDEFINITION REQUESTED, (6)4J067600| 44272 4625 00 0 36436 STL NMESW NO MESSAGE. (6)4J067700| 44273 MCRSTB BSS 0 (6)4J067800 44273 214747254524 APNDWD BCI 1,APPEND (6)4J067900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 210 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * OUTP UT CARD IMAGE FOLLOWED BY -REM- OR 4J068500 * -NUL L- OPERATION, IF NEEDED. 4J068600| | 44274 0634 00 4 44316 MCDPR SXA MCDPX,4 SAVE 4J068800| 44275 0634 00 2 44317 SXA MCDPX+1,2 REGISTERS 4J068900| 44276 0634 00 1 44320 SXA MCDPX+2,1 4J069000 0BINARY CARD ID. MAPJ0359| 44277 0074 00 4 35024 MCD.Q TSX INHAND,4 OUTPUT AND FETCH NEXT 4J069100| 44300 4520 00 0 35157 NZT NXTETC EXIT IF 4J069200| 44301 0020 00 0 44314 TRA MCD.R NEXT WAS -ETC 4J069300| 44302 4520 00 0 45170 NZT SWNTC OTHERWISE, SST FOR 4J069400 44303 1 01250 4 44305 TXI *+2,4,MCD.Q+75WD2 PROPER TYPE 4J069500| 44304 0774 00 4 26705 AXT 75WD1,4 AND 4J069600| 44305 0634 00 4 44307 SXA *+2,4 OUTPUT OPERATION 4J069700| 44306 0074 00 4 34560 TSX FPCLAG,4 CODE 4J069800| 44307 4 00001 0 00000 MZE **,,1 4J069900 44310 0600 00 0 21466 STZ PBLINK RSET ERROR MESSAGE SWITCH 4J070000| 44311 4520 00 0 35166 NZT SWCVFE IF SCAN READ NEXT CARD, (6)4J070010| 44312 0074 00 4 37155 TSX CDXINR,4 REINITIALIZE FOR SCAN (6)4J070020| 44313 4625 00 0 35166 STL SWCVFE OF VARIABLE FIELD (6)4J070030| 44314 4500 00 0 35157 MCD.R CAL NXTETC SST -ETC INDICATOR 4J070100 44315 4625 00 0 45170 STL SWNTC RESET FOR -REM- OPERATION 4J070200| | 44316 0774 00 4 00000 MCDPX AXT **,4 RESTORE 4J070400| 44317 0774 00 2 00000 AXT **,2 AND 4J070500| 44320 0774 00 1 00000 AXT **,1 EXIT 4J070600 44321 0020 00 4 00001 TRA 1,4 4J070700| | | * RESCAN LOCATION FIELD FOR (6)4J072600| * POSSIBLE QUOTE MARK CONCATENATION. 4J072700 | | 44322 0560 00 0 21461 RESCN LDQ NAME PICK UP NAME 4J072900| 44323 4625 00 0 36516 RES.F STL QSCNX $5$4J073300| 44324 3 44332 0 44333 TXH RES.T,,RES.N EXITS 4J073400 0BINARY CARD ID. MAPJ0360| 44325 4534 00 2 37173 LXD NMPTR,2 NUMBER OF CHARACTERS IN NAME (6)4J073500| 44326 0600 60 0 44331 RES.G STZ* RES.H 4J073600| 44327 0074 00 1 36437 TSX QSCNA,1 SCAN 4J073700| 44330 4054 00 000100 LFT QTB CURRENT PART 4J073800 44331 0 00006 0 52230 RES.H PZE 2B,,6 OF FIELD 4J073900| | 44332 1 41332 2 36514 RES.N TXI QSCNE,2,1-QSLP RESET COUNT ON NON-TERMINATION (6)4J074010| TERMINATOR 4J074100| 44333 4600 00 0 45160 RES.T STQ RES.R SAVE RESIDUE 4J074200 44334 4754 00 4 00000 PXD 0,4 COMPUTE LENGTH 4J074300| 44335 0402 00 0 36753 SUB STGPT AND POSITION (6)4J074400| 44336 0074 00 4 44465 TSX PARCK,4 TEST FOR PARAM 4J074500| 44337 0560 00 0 45160 LDQ RES.R RETURN 4J074600| 44340 2 00001 2 44326 TIX RES.G,2,1 4J074800 1 IBMAPV IBMAPJ 12/01/64 PAGE 211 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * SCAN OPERATION AND VARIABLE FIELDS FOR PARAMETERS. (6)4J076000| | 44341 0560 00 0 44247 MCDC LDQ MDFK1 PLACE OPERATION (6)4J076300| 44342 0074 00 2 44603 TSX PLTWO,2 START MARK (6)4J076310| 44343 0500 00 0 21447 CLA GTPRA INITIALIZE (6)4J076320| 44344 0400 00 0 21705 ADD L(1) SCAN (6)4J076330 44345 0621 00 0 36701 STA SCMQL TO (6)4J076340| 44346 0522 00 0 36701 XEC SCMQL BEGIN (6)4J076350| 44347 4773 00 0 00006 RQL 6 IN (6)4J076360| 44350 4600 00 0 36755 STQ RESDU CARD (6)4J076400| 44351 0774 00 2 00006 AXT 6,2 COLUMN (6)4J076500 44352 0634 00 2 36671 SXA RESCT,2 EIGHT (6)4J076600| 0BINARY CARD ID. MAPJ0361| 44353 0074 00 4 36657 MVFA TSX SSCAN,4 SCAN NEXT FIELD 4J076700| 44354 4054 00 037760 LFT LPB+RPB+QTB+EQB+DLB+CMB+PSB+MSB+ASB+SLB 4J076800| 44355 4054 00 037777 LFT ALLBT AVOID TRAILING BLANKS (6)4J076810 44356 0074 00 4 44465 TSX PARCK,4 PLACE IN STRING 4J076900| 44357 7 00000 1 44405 TXL MVFC,1,0 EXIT ON END OF CARD 4J077000| 44360 0020 60 1 44452 TRA* MVFTB,1 BRANCH ON TYPE 4J077100| | LEFT PARENTHESIS (6)4J077120 44361 0774 00 2 00000 MVFL AXT **,2 BUMP PAREN (6)4J077130| 44362 1 00001 2 44363 TXI *+1,2,1 COUNT (6)4J077140| 44363 4625 00 0 45161 STL SWVFS SET VARIABLE FIELD (6)4J077150| 44364 4625 00 0 35166 STL SWCVFE AND ENABLE READ (6)4J077160| 44365 0634 00 2 44361 MVFLA SXA MVFL,2 (6)4J077170 44366 0560 00 1 44452 LDQ MVFTB,1 PICK UP CODE (6)4J077180| 44367 0774 00 4 44446 MVFLB AXT MCNBLK,4 SET TO COUNT AND (6)4J077190| 44370 0634 00 4 36536 SXA SCSIL,4 CONTINUE ON BLANK (6)4J077200| 44371 0020 00 0 44403 TRA MVFB+1 (6)4J077210| RIGHT PARENTHESIS (6)4J077230| 44372 0534 00 2 44361 MVFR LXA MVFL,2 DECREMENT (6)4J077240| 44373 2 00001 2 44365 TIX MVFLA,2,1 PAREN COUNT (6)4J077250| 44374 0634 00 0 44361 ZSA MVFL COUNT IS ZERO, (6)4J077270| 44375 0774 00 4 36505 AXT QSCNT,4 RESET SCAN (6)4J077280 44376 0634 00 4 36536 SXA SCSIL,4 FOR BLANK (6)4J077290| 44377 0020 00 0 44402 TRA MVFB (6)4J077300| | COMMA (6)4J077320| 44400 4625 00 0 35166 MVFE STL SWCVFE SET VARIABLE FIELD SCAN (6)4J077330 0BINARY CARD ID. MAPJ0362| 44401 4625 00 0 45161 STL SWVFS (6)4J077340| | ALL OTHERS EXCEPT QUOTE (6)4J077360| 44402 0560 00 1 44452 MVFB LDQ MVFTB,1 PLACE CODE AND 4J077400 44403 0074 00 2 44603 TSX PLTWO,2 GO BACK TO 4J077500| 44404 0020 00 0 44353 TRA MVFA SCAN 4J077600| | BLANK OR END CARD 4J077800| 44405 0520 00 0 45161 MVFC ZET SWVFS HAS VARIABLE FIELD BEEN SCANNED (6)4J077810 44406 0020 00 0 44424 TRA MVFCB YES, END CARD (6)4J077820| 1 IBMAPV IBMAPJ 12/01/64 PAGE 212 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 44407 4625 00 0 35166 STL SWCVFE ENABLE ETC READ (6)4J077830| 44410 4520 00 0 37171 NZT SWNBV IS VARIABLE FIELD (6)4J077840 44411 0020 00 0 44424 TRA MVFCB TO FOLLOW (6)4J077850| 44412 4520 00 0 37167 NZT SWLOP YES, IF OP NOT IN ERROR, (6)4J077860| 44413 0074 00 4 37155 TSX CDXINR,4 REINITIALIZE SCAN (6)4J077870| 44414 0600 00 0 37171 STZ SWNBV RESET (6)4J077880| 44415 0600 00 0 37167 MVFCA STZ SWLOP SWITCHES (6)4J077890 44416 4625 00 0 45161 STL SWVFS SET VARIABLE FIELD ENCOUNTERED (6)4J077900| 44417 0560 00 0 44250 LDQ MDFK2 PREPARE TO STUFF BLANK (6)4J077910| 44420 4520 00 0 45157 NZT BCISW IS THIS BCI CARD (6)4J077920| 44421 0020 00 0 44403 TRA MVFB+1 NO, CONTINUE (6)4J077930| 44422 0600 00 0 45157 STZ BCISW YES, GO SET TO (6)4J077940 44423 0020 00 0 44367 TRA MVFLB CONTINUE ON BLANK (6)4J077950| 44424 0560 00 0 44443 MVFCB LDQ MVFD STUFF END (6)4J077960| 44425 0074 00 2 44603 TSX PLTWO,2 CODE 4J078000| 44426 0774 00 4 36505 AXT QSCNT,4 RESTORE SCAN (6)4J078100| 0BINARY CARD ID. MAPJ0363 44427 0634 00 4 36536 SXA SCSIL,4 TO STOP ON BLANK (6)4J078110| 44430 0634 00 0 44361 ZSA MVFL RESET PAREN (6)4J078120| 44431 0634 00 0 44454 ZSA MCNBL1 AND BLANK COUNTS (6)4J078130| 44432 0600 00 0 45161 STZ SWVFS RESET VARIABLE FIELD SCANNED SW (6)4J078140| 44433 0020 00 0 43731 TRA MCDFN RETURN FOR NEXT CARD (6)4J078200 | 44434 756100044402 VFD O12/7561,24/MVFB / 4J078400| 44435 755400044402 MVFDD VFD O12/7554,24/MVFB * 4J078500| 44436 754000044402 VFD O12/7540,24/MVFB - 4J078600| 44437 752000044402 VFD O12/7520,24/MVFB + 4J078700 44440 757300044400 MVFDC VFD O12/7573,24/MVFE , (6)4J078800| 44441 755300044402 VFD O12/7553,24/MVFB $ 4J078900| 44442 751300044402 VFD O12/7513,24/MVFB = 4J079000| 44443 757600044353 MVFD VFD O12/7576,24/MVFA ' (ALSO, END CARD CODE) 4J079100| 44444 753400044372 VFD O12/7534,24/MVFR ) (6)4J079200 44445 757400044361 VFD O12/7574,24/MVFL ( (6)4J079300| 44452 MVFTB EQU *-1+LPCDE 4J079400| | * HANDLE NON-TERMINATING BLANK ENCOUNTERED IN THE SCAN. (6)4J085700| 44446 0634 00 2 44460 MCNBLK SXA MCNBL3,2 SAVE X2 4J085900| 44447 4625 00 0 45161 STL SWVFS SET VARIABLE FIELD SWITCH (6)4J085910| 44450 4054 00 037777 LFT ALLBT 4J086000| 44451 0020 00 0 44462 TRA MCNBL2 OTHER THAN BLANK FOUND 4J086100| 44452 4520 00 0 35166 NZT SWCVFE EXIT IF END OF (6)4J086110 44453 0020 00 0 36514 TRA QSCNE VARIABLE FIELD (6)4J086120| 44454 0774 00 2 00000 MCNBL1 AXT **,2 FETCH BLANK COUNT 4J086200| 0BINARY CARD ID. MAPJ0364| 44455 1 00001 2 44456 TXI *+1,2,1 AND BUMP 4J086300| 44456 3 00077 2 44460 TXH *+2,2,63 STOP COUNT AT MAXIMUM (6)4J086310 44457 0634 00 2 44454 SXA MCNBL1,2 4J086400| 44460 0774 00 2 00000 MCNBL3 AXT **,2 RESTORE INDEX 2 4J086800| 44461 0020 00 0 36473 TRA QSCND RETURN TO SCAN (6)4J086900| 44462 0774 00 1 00007 MCNBL2 AXT QTCDE,1 SET QUOTE CODE (6)4J087000| 44463 4773 00 0 00036 RQL 30 AND RESTORE (6)4J087100 44464 1 00001 2 36451 TXI QSLQ,2,1 BLANK FOR NEXT ENTRY (6)4J087200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 213 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * PLACE PARAMETER OR SYMBOL. ENTER VIA 4J087700 * 4J087800| * TSX PARCK,4 4J087900| * 4J088000| * WITH ACCUMULATOR AS 4J088100| * 4J088200 * PZE LOCATION,,COUNT 4J088300| * 4J088400| * UPON RETURN, SYMBOL IS IN MACRO SKELETON STRING. 4J088500| | 44465 0520 00 0 44255 PARCK ZET NOMAC EXIT IF 4J088700| 44466 0020 00 4 00001 TRA 1,4 TABLE FULL 4J088800| 44467 0634 00 4 44523 SXA PARCX,4 SAVE 4J088900| 44470 0634 00 2 44524 SXA PARCX+1,2 REGISTERS 4J089000| 44471 0634 00 1 44525 SXA PARCX+2,1 AND 4J089100 44472 0601 00 0 44534 STO PARCE CALL 4J089200| 44473 0534 00 4 44454 LXA MCNBL1,4 DID BLANKS (6)4J089210| 44474 7 00001 4 44502 TXL PARCH,4,1 PRECEDE FIELD (6)4J089220| 44475 4754 00 4 00000 PXD ,4 YES, PLACE (6)4J089230| 44476 4501 00 0 44254 ORA MDFK6 COUNT (6)4J089240 44477 4130 00 0 00000 XCL PRECEDED (6)4J089250| 44500 0074 00 2 44600 TSX PLTHR,2 BY CONTROL (6)4J089260| 44501 0020 00 0 44505 TRA PARCD CHARACTERS (6)4J089300| 44502 7 00000 4 44506 PARCH TXL PARCL,4,0 IF SINGLE BLANK, (6)4J089310| 0BINARY CARD ID. MAPJ0365 44503 0560 00 0 44250 LDQ MDFK2 PLACE (6)4J089320| 44504 0074 00 2 44603 TSX PLTWO,2 7560 AS ENTRY (6)4J089330| 44505 0634 00 0 44454 PARCD ZSA MCNBL1 CLEAR BLANK COUNT (6)4J089340| 44506 4534 00 4 44534 PARCL LXD PARCE,4 EXIT IF LENGTH (6)4J089350| 44507 7 00000 4 44523 TXL PARCX,4,0 IS ZERO 4J089400 44510 3 00006 4 44521 TXH PARNP,4,6 NO PARAM IF GTR 6 4J089500| 44511 0774 00 2 00000 PARCA AXT **,2 CHECK FOR PARAMETERS (6)4J089600| 44512 7 00000 2 44521 TXL PARNP,2,0 IF NONE, GO TO (6)4J089610| 44513 0535 00 4 44534 LAC PARCE,4 PLACE BCD (6)4J089620| 44514 4500 00 4 00000 CAL 0,4 (6)4J089700 44515 4340 00 2 00000 PARCB LAS **,2 TEST AGAINST TABLE (6)4J090000| 44516 0020 00 0 44520 TRA *+2 4J090100| 44517 0020 00 0 44527 TRA PARCC FOUND 4J090200| 44520 2 00001 2 44515 TIX PARCB,2,1 TRY AGAIN, IF NOT (6)4J090300| NOT PARAMETER 4J090500| 44521 0500 00 0 44534 PARNP CLA PARCE PLACE (6)4J090600| 44522 0074 00 4 44536 TSX PLBCD,4 BCD (6)4J090700| 44523 0774 00 4 00000 PARCX AXT **,4 AND 4J090800| 44524 0774 00 2 00000 AXT **,2 EXIT 4J090900 44525 0774 00 1 00000 AXT **,1 4J091000| 44526 0020 00 4 00001 TRA 1,4 4J091100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 214 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 SYMBOL IS PARAMETER 4J091300| 44527 0754 00 2 00000 PARCC PXA ,2 ADD PARAMETER NUMBER TO (6)4J091400| 44530 0361 00 0 44535 ACL PARCF INDICATOR 4J091600| 0BINARY CARD ID. MAPJ0366| 44531 4765 00 0 00014 LGR 12 4J091700 44532 0074 00 2 44603 TSX PLTWO,2 PLACE INTO STRING 4J091800| 44533 0020 00 0 44523 TRA PARCX EXIT 4J091900| | 44534 0 00000 0 00000 PARCE PZE ** STORAGE FOR CALL 4J092100| 44535 000000007700 PARCF OCT 7700 PARAMETER CONTROL CHARACTER (6)4J092200 | | | | * MACRO SKELETON CONCATENATION ROUTINES 4J092400| | | | * PLACE N CHARACTERS IN STRING. ENTER VIA 4J092600| * 4J092700| * TSX PLBCD,4 4J092800| * 4J092900| * WITH ACCUMULATOR IN FORM 4J093000 * 4J093100| * PZE LOCATION,,COUNT 4J093200| | | 44536 0520 00 0 44255 PLBCD ZET NOMAC EXIT IF 4J093400 44537 0020 00 4 00001 TRA 1,4 TABLE FULL 4J093500| 44540 0634 00 4 44565 SXA PLBX,4 SAVE RETURN 4J093600| 44541 0621 00 0 36224 STA BCFCH SOURCE 4J093800| 44542 4734 00 4 00000 PLBB PDX ,4 IF COUNT IS ONE, (6)4J093810| 44543 7 00001 4 44567 TXL PLBC,4,1 MAKE SPECIAL ENTRY (6)4J093820 44544 6 00074 4 44547 TNX *+3,4,60 IF GREATER THAN 60, (6)4J093830| 44545 4634 00 4 44574 SXD PRMDR,4 SAVE REMAINDER (6)4J093840| 44546 0500 00 0 44575 CLA PLD60 PLACE 60 AT A TIME (6)4J093850| 44547 0601 00 0 44534 STO PARCE SAVE LENGTH (6)4J093860| 44550 0361 00 0 44577 ACL PLB76 4J093900 44551 4765 00 0 00036 LGR 30 PLACE 76NN 4J094000| 44552 0074 00 2 44603 PLBA TSX PLTWO,2 INTO STRING 4J094100| | 44553 0500 00 0 44534 CLA PARCE GO TO PLACE CHARACTERS 4J094300| 44554 4625 00 0 44625 STL BSTFC INTO STRING 4J094400 44555 1 11374 2 36224 TXI BCFCH,2,PLBA+BSTNG 4J094500| | 44556 0634 00 4 44605 SXA PLSTR,4 RESTORE COUNTS 4J094700| 0BINARY CARD ID. MAPJ0367| 44557 0634 00 1 44606 SXA PLACB,1 4J094800 44560 0074 00 4 44205 TSX MACSP,4 TEST FOR SKELETON OVERFLOW (6)4J094810| 44561 0500 00 0 44574 CLA PRMDR PICK UP REMAINDER COUNT (6)4J094820| 44562 0600 00 0 44574 STZ PRMDR AND CLEAR IT (6)4J094830| 1 IBMAPV IBMAPJ 12/01/64 PAGE 215 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0 44563 4520 00 0 44255 NZT NOMAC IF ROOM EXISTS, (6)4J094840| 44564 4100 00 0 44542 TNZ PLBB PLACE REMAINDER IF ANY (6)4J094850| 44565 0774 00 4 00000 PLBX AXT **,4 AND 4J094900| 44566 0020 00 4 00001 TRA 1,4 EXIT 4J095000| 44567 0560 60 0 36224 PLBC LDQ* BCFCH PLACE SINGLE CHARACTER (6)4J095020| 44570 4500 00 0 44576 CAL PLB75 PRECEDED BY 75 (6)4J095030| 44571 4765 00 0 00006 LGR 6 CONTROL CHARACTER (6)4J095040| 44572 0074 00 2 44603 TSX PLTWO,2 (6)4J095050| 44573 0020 00 0 44565 TRA PLBX EXIT (6)4J095060 | 44574 0 00000 0 00000 PRMDR ,,** (6)4J095110| 44575 0 00074 0 00000 PLD60 ,,60 (6)4J095120| 44576 000000000075 PLB75 OCT 75 CONTROL CHARACTER (6)4J095130| 44577 007600000000 PLB76 OCT 007600000000 BCD STRING INDICATOR. 4J095200 | | * PLACE THREE CHARACTERS FROM MQ (6)4J095310| | 44600 0634 00 2 44620 PLTHR SXA PLTWX,2 SAVE RETURN (6)4J095330 44601 0774 00 2 00003 AXT 3,2 SET COUNT (6)4J095340| 44602 0020 00 0 44605 TRA PLSTR (6)4J095350| | * PLACE TWO CHARACTERS FROM MQ 4J095400| | 44603 0634 00 2 44620 PLTWO SXA PLTWX,2 SAVE RETURN (6)4J095600| 44604 0774 00 2 00002 AXT 2,2 SET COUNT=2 4J095900| 0BINARY CARD ID. MAPJ0368| 44605 0774 00 4 00000 PLSTR AXT **,4 PICK UP POSITION 4J096000 44606 0774 00 1 00000 PLACB AXT **,1 AND BYTE 4J096100| 44607 0520 00 0 44255 ZET NOMAC EXIT IF (6)4J096110| 44610 0020 00 0 44620 TRA PLTWX TABLE FULL (6)4J096120| 44611 4500 00 4 00000 CAL 0,4 4J096200| 44612 4625 00 0 44656 STL PSTNX SET CONCATENATION 4J096300 44613 0774 00 0 44615 AXT *+2,0 ROUTINE. PLACE, 4J096400| 44614 0020 00 0 44646 TRA PSTNG RESTORE 4J096500| 44615 0634 00 4 44605 SXA PLSTR,4 COUNTS 4J096600| 44616 0634 00 1 44606 SXA PLACB,1 AND 4J096700| 44617 0602 00 4 00000 SLW 0,4 4J096800 44620 0774 00 2 00000 PLTWX AXT **,2 EXIT 4J096900| 44621 0020 00 2 00001 TRA 1,2 4J097000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 216 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 * PLACE BCD INTO STRING. ENTER VIA 4J097200| * 4J097300| * STL BSTFC 4J097400| * TXI L(FETCH),2,BSTNG 4J097500| * 4J097600 * 4J097700| * WITH 4J097800| * (IR4)= -WORD. POSITION 4J097900| * (IR1)= NO. CHARS. IN CURRENT WORD 4J098000| * (IR2)= NO. CHARS. IN. MQ 4J098100 * 4J098200| * AND TOTAL.COUNT.TO.ENTER IN ACCUMULATOR DECREMENT 4J098300| | | 44622 0622 00 0 44630 BSTNG STD BST.1 TOTAL COUNT 4J098500 44623 4625 00 0 44656 STL PSTNX SET RETURN FROM 4J098600| 44624 0774 00 0 44634 AXT BST.2,0 CONCATENATOR 4J098700| 44625 0500 00 0 00000 BSTFC CLA ** SET FETCH 4J098800| 44626 0621 00 0 44642 STA BST.3 NEXT WORD 4J098900| 44627 4500 00 4 00000 CAL 0,4 4J099000 44630 6 00000 2 44645 BST.1 TNX PSTNG1,2,** IF MORE CHARACTERS IN (6)4J099100| 44631 0634 00 2 36777 SXA BSTCT,2 MQ THAN GO IN STRING, (6)4J099200| 44632 4534 00 2 44630 LXD BST.1,2 CORRECT COUNT (6)4J099210| 0BINARY CARD ID. MAPJ0369| 44633 0020 00 0 44646 TRA PSTNG (6)4J099300 | 44634 0602 00 4 00000 BST.2 SLW 0,4 (6)4J099410| 44635 4634 00 2 44637 SXD *+2,2 TEST FOR (6)4J099500| 44636 4534 00 2 44630 LXD BST.1,2 ALL CHARACTERS 4J099600| 44637 6 00000 2 44643 TNX BST.4,2,** IN. 4J099700 44640 4634 00 2 44630 SXD BST.1,2 IF NOT, SAVE REMAINDER 4J099800| 44641 0774 00 2 00000 AXT 0,2 AND GO TO FETCH 4J099900| 44642 1 44625 2 00000 BST.3 TXI **,2,BSTFC NEXT WORD (6)4J100000| | 44643 BST.4 NULL EXIT WHEN (6)4J100200 44643 0535 00 2 44625 LAC BSTFC,2 ALL THROUGH 4J100300| 44644 0020 00 2 00001 TRA 1,2 4J100400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 217 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 * CONCATENATE N CHARACTERS FROM MQ INTO STRING. CALL SEQ- 4J100600| * STL PSTNX 4J100700| * AXT RETURN 4J100800| * TRA PSTNG 4J100900| * WITH 4J101000 * (IR4) = -WORD.POSITION 4J101100| * (IR1) = NO. CHARS.LEFT.IN.CURRENT WORD 4J101200| * (IR2) = NO.CHARS.TO.ENTER 4J101300| | 44645 0634 00 0 36777 PSTNG1 ZSA BSTCT (6)4J101450 44646 0522 00 2 44701 PSTNG XEC PSTJ1,2 BRANCH IF AC HOLDS MQ- 4J101500| 44647 0522 00 1 44665 XEC PLEFT,1 OTHERWISE, JUST FILL AC 4J101600| 44650 0522 00 2 44707 XEC PSTJ2,2 AND GO TO STORE WITH NEW CT. 4J101700| 44651 0522 00 1 44665 PST.1 XEC PLEFT,1 HERE IF MQ HAS 6 CHARACTERS 4J101800| 44652 0602 00 4 00000 PST.2 SLW 0,4 SAVE WORD, 4J101900 44653 0522 00 1 44673 XEC RLEFT,1 EMPTY MQ, 4J102000| 44654 1 77777 4 44656 TXI *+2,4,-1 ADVANCE STORE COUNT 4J102100| 44655 0522 00 2 44665 PST.3 XEC PLEFT,2 HERE IF AC HOLDS MQ 4J102200| 44656 0020 60 0 00000 PSTNX TRA* ** RETURN 4J102300| TABLE OF LEFT SHIFTS 4J102500| 44657 4130 00 0 00000 XCL 4J102600| 44660 4763 00 0 00036 LGL 30 4J102700| 0BINARY CARD ID. MAPJ0370| 44661 4763 00 0 00030 LGL 24 4J102800 44662 4763 00 0 00022 LGL 18 4J102900| 44663 4763 00 0 00014 LGL 12 4J103000| 44664 4763 00 0 00006 LGL 6 4J103100| 44665 PLEFT EQU * 4J103200| TABLE OF INVERTED LEFT SHIFTS 4J103400 44665 0774 00 0 00000 AXT 0,0 4J103500| 44666 4763 00 0 00006 LGL 6 4J103600| 44667 4763 00 0 00014 LGL 12 4J103700| 44670 4763 00 0 00022 LGL 18 4J103800| 44671 4763 00 0 00030 LGL 24 4J103900 44672 4763 00 0 00036 LGL 30 4J104000| 44673 RLEFT EQU * 4J104100| BRANCH FOR AC HOLDS MQ 4J104300| 44673 0020 00 0 44651 TRA PST.1 4J104400| 44674 2 00005 1 44655 TIX PST.3,1,5 4J104500 44675 2 00004 1 44655 TIX PST.3,1,4 4J104600| 44676 2 00003 1 44655 TIX PST.3,1,3 4J104700| 44677 2 00002 1 44655 TIX PST.3,1,2 4J104800| 44700 2 00001 1 44655 TIX PST.3,1,1 4J104900| 44701 0020 00 0 44656 PSTJ1 TRA PSTNX EXIT IF NO CHARACTER 4J105000 ADJUST ACCUMULATOR COUNT 4J105200| 44702 1 00001 1 44652 TXI PST.2,1,1 4J105300| 44703 1 00002 1 44652 TXI PST.2,1,2 4J105400| 44704 1 00003 1 44652 TXI PST.2,1,3 4J105500| 44705 1 00004 1 44652 TXI PST.2,1,4 4J105600 44706 1 00005 1 44652 TXI PST.2,1,5 4J105700| 44707 PSTJ2 EQU * 4J105800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 218 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 * NO CREATED SYMBOLS 4J106000| * 4J106100| | | 0BINARY CARD ID. MAPJ0371 44707 4625 00 0 45165 NOCTYP STL SWCRS SET NO SYMBOLS 4J106300| 44710 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4J106400| 44711 0074 00 4 44274 NOCTYQ TSX MCDPR,4 OUTPUT AND GO 4J106500| 44712 0020 00 0 26640 TRA PASA TO PROCESS NEXT 4J106600| | | | * REORIGIN CREATED SYMBOLS 4J106800| * 4J106900 44713 0600 00 0 45165 OCSTYP STZ SWCRS SET SYMBOLS 4J107000| 44714 0074 00 4 34175 TSX NONAME,4 TEST FOR LOC FIELD ERROR 4J107100| 44715 0074 00 4 36657 TSX SSCAN,4 SCAN 4J107400| 44716 4054 00 000000 LFT 0 FIELD 4J107500| 44717 4057 00 000007 RIL ALB+NMB+DCB FIELD ERROR 4J107600 44720 4054 00 037777 LFT ALLBT IF OTHER THAN 4J107700| 44721 0020 00 0 44760 TRA OCS.ER ALPHA OR NUMERIC 4J107800| 44722 0737 00 4 00000 PAC 0,4 4J107900| 44723 4734 00 2 00000 PDX 0,2 FIELD ERROR 4J108000| 44724 3 00005 2 44760 TXH OCS.ER,2,5 IF MORE THAN 5 4J108100 44725 0560 00 4 00000 LDQ 0,4 4J108200| 44726 4114 01 1 36537 CAQ SCTBL,1,1 4J108300| 44727 1 77775 1 44730 TXI *+1,1,-3 TO NUMERIC IF FIRST 4J108400| 44730 3 00000 1 44742 TXH OCS.6,1,0 NOT ALPHA 4J108500| 44731 4773 00 0 00030 RQL 24 4J108600 44732 4600 00 4 00000 STQ 0,4 OTHERWISE, 4J108700| 44733 4500 00 0 44763 CAL OCS.4 REPLACE 4J108800| 44734 0320 00 0 37312 OCS.1 ANS DUMA SECOND POINT 4J108900| 0BINARY CARD ID. MAPJ0372| 44735 0760 00 0 00006 COM BY ALPHA CHAR 4J109000 44736 4320 00 4 00000 ANA 0,4 4J109100| 44737 4602 00 0 37312 ORS DUMA 4J109200| 44740 4773 00 0 00014 RQL 12 4J109300| 44741 1 77777 2 44744 TXI OCS.2,2,-1 4J109400| 44742 3 00004 2 44760 OCS.6 TXH OCS.ER,2,4 MORE THAN 4 NUMERIC 4J109500 44743 4773 00 0 00036 RQL 30 ROTATE NUMERIC FOR CONVERSION 4J109600| | 44744 7 00000 2 44711 OCS.2 TXL NOCTYQ,2,0 EXIT IF NO NUMERICS 4J109800| 44745 0754 00 0 00000 PXA 0,0 RIGHT JUSTIFY 4J109900| 44746 0522 00 2 44665 XEC PLEFT,2 CHARACTERS 4J110000 44747 0602 00 4 00000 SLW 0,4 4J110100| 44750 4320 00 0 36253 ANA BLANKS 4J110200| 44751 0100 00 0 44755 TZE OCS.3 IF NOT ALL NUMERIC 4J110300| 44752 0074 00 4 25623 TSX ERPR,4 'NUMERIC PORTION OF -ORCRS- 4J110400| 44753 0 00000 1 00105 PZE MSS041,GO 'IN ERROR. NOT USED' 4J110500 44754 0020 00 0 44711 TRA NOCTYQ 4J110600| | 44755 4500 00 0 44764 OCS.3 CAL OCS.5 SET MASK 4J110800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 219 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0 44756 0774 00 2 00001 AXT 1,2 AND GO TO 4J110900| 44757 0020 00 0 44734 TRA OCS.1 PLACE 4J111000| | 44760 0074 00 4 25623 OCS.ER TSX ERPR,4 'FIELD ERROR - ORCRS - 4J111200| 44761 0 00000 1 00106 PZE MSS042,GO NOT USED 4J111300 44762 0020 00 0 44711 TRA NOCTYQ 4J111400| | 0BINARY CARD ID. MAPJ0373| 44763 770077777777 OCS.4 OCT 770077777777 MASK FOR ALPHA 4J111600| 44764 777700000000 OCS.5 OCT 777700000000 MASK FOR NUMERIC 4J111700 | | * CREATE (6)4J111720| 44765 CRTTYP SYN * (6)4J111730| 44765 4625 00 0 35145 STL CCDSW IF IN MACRO EXPANSION, (6)4J111740 44766 0520 00 0 36235 ZET SWMACI PRINT UNDER CONTROL (6)4J111750| 44767 0020 00 0 26701 TRA STRTYP OF PCC (6)4J111760| | | * -CREATE-, -ENDM-, OR -IRP- OUTSIDE MACRO (6)4J111900| * 4J112000| | | 44770 IRPTYP EQU * 4J112200 44770 0074 00 4 25623 NDMTYP TSX ERPR,4 'CARD SHOULD NOT 4J112300| 44771 0 00000 1 00107 PZE MSS043,GO OCCUR OUTSIDE MACRO' 4J112400| 44772 0020 00 0 40475 TRA NTRTB 4J112500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 220 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ 0| * PROCESS MACRO CALL- 4J112700| | | 44773 0535 00 2 36235 MCCALL LAC SWMACI,2 PICK UP CURRENT 4J112900 44774 3 00000 2 44776 TXH *+2,2,0 PARAM TABLE POSITION 4J113000| 44775 1 32615 2 44776 TXI MCC.1,2,-MCC.DS IF NOT FIRST TIME, 4J113100| 44776 0500 00 2 00000 MCC.1 CLA 0,2 PICK UP NEXT LOCATION 4J113600| 44777 0622 00 0 45172 STD MACISW SET PARAM 4J113700| 45000 4737 00 2 00000 PDC 0,2 STORE 4J113800 45001 1 00003 2 45002 TXI *+1,2,3 4J113900| 45002 0634 00 2 45324 SXA XPLH,2 4J114000| 45003 0600 00 0 45166 STZ SWCRSS 4J114100| 45004 0441 00 0 35146 LDI CUROPN FETCH OPERATION TEXT (6)4J114200| 45005 4057 00 770000 RIL 770000 4J114600 45006 4046 00 0 00000 PIA 4J114700| 45007 0621 00 0 45172 STA MACISW SAVE FETCH ADDRESS 4J114800| 45010 4734 00 2 00000 PDX 0,2 PICK UP PARAM CT 4J114900| 0BINARY CARD ID. MAPJ0374| 45011 4765 00 0 00021 LGR 17 4J115000 45012 4320 00 0 21705 ANA L(1) 4J115100| 45013 0601 00 0 45166 STO SWCRSS 4J115200| 45014 4763 00 0 00001 LGL 1 4J115300| 45015 4320 00 0 21705 ANA L(1) 4J115400| 45016 0601 00 0 45167 STO SWCRST 4J115500 45017 0441 60 0 45172 LDI* MACISW GET CHAIN WORD OF SKELETON (6)4J115600| 45020 0054 00 400000 RFT 400000 IS NAME FIELD AN ARGUMENT (6)4J115700| 45021 1 77777 2 45027 TXI MCC.2,2,-1 YES, REDUCE PARAMETER COUNT (6)4J115800| 45022 0634 00 2 45024 SXA *+2,2 NO, PLACE IN DICTIONARY (6)4J115810| 45023 0074 00 4 34155 TSX NMLOC,4 $4$4J115900 45024 0774 00 2 00000 AXT **,2 RESTORE ARGUMENT COUNT (6)4J115910| 45025 0600 00 0 45170 STZ SWNTC SET 'NULL' OP FOR PRINT (6)4J115920| 45026 0020 00 0 45031 TRA MCC.21 $4$4J116000| | 45027 0500 00 0 37173 MCC.2 CLA NMPTR STUFF NAME AS ARGUMENT (6)4J116200 45030 0074 00 4 45250 TSX XPLCE,4 $4$4J118600| 45031 4500 00 0 45172 MCC.21 CAL MACISW $4$4J118700| 45032 0441 60 0 45172 LDI* MACISW PICK UP CHAIN WORD FOR TEST (6)4J118800| 45033 0400 00 0 21705 ADD L(1) $4$4J119100| 45034 0621 00 0 45172 STA MACISW $4$4J119200 45035 0056 00 200000 RNT 200000 IS OPERATION CODE AN ARGUMENT (6)4J119210| 45036 0020 00 0 45042 TRA MCC.22 NO (6)4J119220| 0BINARY CARD ID. MAPJ0375| 45037 0500 00 0 37174 CLA OPPTR YES, RETRIEVE POINTER (6)4J119230| 45040 0074 00 4 45250 TSX XPLCE,4 AND STUFF (6)4J119240 45041 1 77777 2 45042 TXI MCC.22,2,-1 REDUCE REMAINING ARGUMENT COUNT (6)4J119250| 45042 0056 00 100000 MCC.22 RNT 100000 IS INDIRECT ADDRESS AN ARGUMENT (6)4J119300| 45043 0020 00 0 45052 TRA MCC.23 NO, CHECK FOR MISUSED * (6)4J119400| 45044 0500 00 0 45155 CLA INDPAR YES, PREPARE TO STUFF * (6)4J119410| 45045 0520 00 0 37170 ZET SWIND WAS OP CODE STARRED (6)4J119420 45046 0361 00 0 21717 ACL 1DECR YES, ARG HAS LENGTH ONE (6)4J119430| 45047 0074 00 4 45250 TSX XPLCE,4 PLACE PARAMETER (6)4J119440| 45050 7 00000 2 45054 TXL MCC.24,2,0 CHECK FOR MORE ARGUMENTS (6)4J119450| 45051 1 77777 2 45054 TXI MCC.24,2,-1 (6)4J119460| 1 IBMAPV IBMAPJ 12/01/64 PAGE 221 MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 | 45052 0520 00 0 37170 MCC.23 ZET SWIND WAS OP CODE STARRED (6)4J119480| 45053 0074 00 4 34215 TSX INDXB,4 YES, FILE ERROR MESSAGE (6)4J119490| SET LAST TERMINATOR NOT RIGHT PARENTHESIS (6)4J119510| 45054 4625 00 0 45171 MCC.24 STL SWPTRM (6)4J119520| | SCAN NEXT ITEM 4J119600| 45055 3 00000 1 45057 MCC.3 TXH MCC.31,1,0 (6)4J119700 45056 1 00001 2 45103 TXI MCC.55,2,1 4J120400| 45057 1 77773 1 45060 MCC.31 TXI *+1,1,-LPCDE IF PREVIOUS TERMINATOR (6)4J120500| 45060 7 00000 1 45074 TXL MCC.5,1,0 WAS NOT LEFT PARENTHESIS, (6)4J120600| 45061 0074 00 4 36657 TSX SSCAN,4 SCAN FIELD STOPPING ON $4$4J121300| 45062 4054 00 001020 LFT CMB+LPB COMMA OR L PAREN 4J121400 45063 4734 00 4 00000 PDX ,4 PLACE ARGUMENT IF OF (6)4J121500| 45064 3 00000 4 45070 TXH MCC.4,4,0 NON-ZERO LENGTH (6)4J121600| 0BINARY CARD ID. MAPJ0376| 45065 4054 00 001000 LFT CMB OR IF TERMINATOR IS A COMMA (6)4J121700| 45066 4520 00 0 45171 NZT SWPTRM NOT PRECEDED BY A (6)4J121800 45067 0020 00 0 45054 TRA MCC.24 RIGHT PARENTHESIS (6)4J121900| | 45070 4625 00 0 45171 MCC.4 STL SWPTRM SET LAST NOT PARENTHESIS (6)4J122100| 45071 7 00000 2 45077 MCC.41 TXL MCC.45,2,0 EXIT IF TOO MANY ARGUMENTS (6)4J122200| 45072 0074 00 4 45250 TSX XPLCE,4 PLACE ITEM (6)4J122300 45073 1 77777 2 45055 TXI MCC.3,2,-1 RETURN FOR MORE (6)4J122400| | LEFT PARENTHESIS ENCOUNTERED (6)4J122600| 45074 0600 00 0 45171 MCC.5 STZ SWPTRM SET PARENTHESIS TERMINATOR SWITCH (6)4J122700| 45075 0074 00 4 45176 TSX RSCAN,4 SCAN FOR MATCHING RIGHT PAREN (6)4J122800 45076 0020 00 0 45071 TRA MCC.41 PLACE ARGUMENT IN TABLE (6)4J122900| | 45077 0074 00 4 25623 MCC.45 TSX ERPR,4 ISSUE ERROR MESSAGE (6)4J124500| 45100 0 00000 1 00053 PZE MSS031,GO 'MACRO CALL WITH 4J124600| 45101 0074 00 4 36662 TSX BSCAN,4 TOO MANY PARAMETERS' (6)4J124700 45102 3 00000 1 45101 TXH *-1,1,0 AND READ ALL OF THEM (6)4J124800| | TEST FOR ALL PARAMETERS 4J125000| 45103 6 00001 2 45115 MCC.55 TNX MCC.7,2,1 EXIT IF NONE LEFT 4J125100| 45104 4500 00 0 45165 CAL SWCRS CREATED SYMBOLS 4J125300 45105 4520 00 0 45167 NZT SWCRST 4J125400| 45106 0020 00 0 45110 TRA *+2 4J125500| 45107 4500 00 0 45166 CAL SWCRSS 4J125600| 45110 4100 00 0 45113 TNZ MCC.6 SPECIAL MACRO, 4J125700| 45111 0074 00 4 37303 TSX DUMMY,4 OR SWCRS =0 4J125800 45112 0500 00 0 45164 CLA MCC.DM 4J125900| 0BINARY CARD ID. MAPJ0377| 45113 0074 00 4 45250 MCC.6 TSX XPLCE,4 PLACE IN LIST 4J126000| 45114 0020 00 0 45103 TRA MCC.55 GO AGAIN 4J126100| 45115 4754 00 0 00000 MCC.7 ZAC PUSH DOWN (6)4J126300| 45116 0074 00 4 43406 TSX DNSRCE,4 SOURCE 4J126400| 45117 0600 00 0 36241 STZ MACETC RESET ETC GENERATION SWITCH (6)4J126410| 45120 0560 00 0 36235 LDQ SWMACI 4J126500| 45121 0500 00 0 45172 CLA MACISW SET - 4J126600 1 IBMAPV IBMAPJ 12/01/64 PAGE 222 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 45122 0621 00 0 36217 STA MCCTX FETCH ADDRESS, 4J126700| 45123 0771 00 0 00022 ARS 18 4J126800| 45124 0621 00 0 36235 STA SWMACI MACRO CALL, 4J126900 45125 0402 00 0 21706 SUB L(2) 4J127000| 45126 0621 00 0 35631 STA IMC.10 4J127100| 45127 4600 60 0 36235 STQ* SWMACI 4J127200| 45130 0535 00 4 45324 LAC XPLH,4 NEXT 4J127300| 45131 4754 00 4 00000 PXD 0,4 PLACE FOR 4J127400 45132 0622 60 0 36235 STD* SWMACI PUSH DOWN LIST 4J127500| 45133 0774 00 2 00000 AXT 0,2 4J127600| 45134 1 45135 2 36207 TXI MCFCH,2,*+1 FETCH FIRST ITEM 4J127700| 45135 4600 00 0 36220 STQ MCRES AND SAVE RESIDUE 4J127800| 45136 0600 00 0 45172 STZ MACISW 4J128100 45137 0774 00 4 34751 AXT 75WD2,4 OUTPUT 4J128200| 45140 0520 00 0 45170 ZET SWNTC FINAL OPERATION 4J128300| 0BINARY CARD ID. MAPJ0378| 45141 0774 00 4 26705 AXT 75WD1,4 CODE TO TEXT 4J128400| 45142 0634 00 4 45144 SXA *+2,4 4J128500 45143 0074 00 4 34560 TSX FPCLAG,4 4J128600| 45144 4 00001 0 00000 MZE **,,1 4J128700| 45145 4625 00 0 45170 STL SWNTC $4$4J128800| 45146 0074 00 4 35175 TSX IREAD,4 4J128900| 45147 0 00000 0 27136 PZE EOFERR OBTAIN NEXT 4J129000 45150 0074 00 4 37001 TSX CDXIN,4 CARD AND 4J129100| 45151 4500 00 0 21443 CAL BLINK CORRECT (6)4J129110| 45152 0402 00 0 21705 SUB L(1) LINE NUMBER (6)4J129120| 45153 0602 00 0 21443 SLW BLINK AND (6)4J129130| 45154 0020 00 0 26640 TRA PASA GO TO PROCESS 4J129200 | 45155 0 00000 0 45156 INDPAR PZE B.AST,,** (6)4J131000| 45156 546060606060 B.AST BCI 1,* INDIRECT ADDRESS ARGUMENT (6)4J131100| 45157 0 00000 0 00000 BCISW ** SWITCH FOR SCAN ROUTINE (6)4J131200| 45160 0 00000 0 00000 RES.R ** TEMPORARY STORAGE (6)4J131300 45161 0 00000 0 00000 SWVFS ** VARIABLE FIELD SCANNED SWITCH (6)4J131400| 45162 0 00000 0 00000 CRTSW ** SWITCH FOR PROCESSING -CREATE- (6)4J131500| 45163 0 52027 0 00000 MCC.DS PZE ,,MPPDL INITIAL CALL WORD 4J133500| 45164 0 00006 0 37312 MCC.DM PZE DUMA,,6 PARAM FOR DUMMY 4J133600| 45165 0 00000 0 00000 SWCRS PZE 0 CREATED SYMBOLS SWITCH 4J133700 45166 0 00000 0 00000 SWCRSS PZE 0 SPECIAL CREATED SYMBOLS SWITCH 4J133800| 0BINARY CARD ID. MAPJ0379| 45167 0 00000 0 00000 SWCRST PZE 0 SEC. SPECIAL CREATED SYMBOLS SWITCH 4J133900| 45170 0 00000 0 45170 SWNTC PZE * SWITCH FOR -REM- ON -NULL- PRINT $4$4J134000| 45171 0 00000 0 45171 SWPTRM PZE * PREVIOUS TERMINATOR SWITCH 4J134100 45172 0 00000 0 00000 MACISW PZE **,,** FETCH.ADD,,NEXT.CALL.LOC 4J134200| 45173 0 00000 0 00000 SWAPND ** MACRO APPEND OPTION SWITCH (6)4J134300| 45174 0 00000 0 00000 PRGCNT PZE ** $4$4J134400| 45175 0 00000 0 00000 PRGSKL PZE **,,** $4$4J134500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 223 MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * SCAN FOR RIGHT PAREN ONLY 4J134700| | 45176 0634 00 4 45214 RSCAN SXA RSCX,4 SAVE RETURN 4J134900| 45177 0774 00 4 45235 AXT RCSIL,4 MODIFY TYPE TRANSFER 4J135000| 45200 0634 00 4 36451 SXA QSLQ,4 IN MQ SCAN 4J135100| 45201 0774 00 4 00001 AXT 1,4 INITIALIZE PAREN (6)4J135200| 45202 0634 00 4 45236 SXA RSCLP,4 COUNT (6)4J135300 45203 0074 00 4 36657 TSX SSCAN,4 SCAN FIELD 4J135500| 45204 4054 00 000040 LFT RPB FOR RIGHT PAREN 4J135600| 45205 0520 00 0 45172 ZET MACISW IF MACRO CALL (6)4J135700| 45206 4054 00 000040 LFT RPB AND IF RIGHT PAREN (6)4J135800| 45207 0020 00 0 45212 TRA RSCB NOT FOUND (6)4J135900 45210 0074 00 4 25623 TSX ERPR,4 'ETC CARD 4J137200| 45211 0 00000 2 00047 PZE MSS027,NOGO SHOULD FOLLOW' 4J137300| 45212 0774 00 4 36536 RSCB AXT SCSIL,4 RESTORE MQ SCAN 4J139300| 45213 0634 00 4 36451 SXA QSLQ,4 TO ORIGINAL 4J139400| 45214 0774 00 4 00000 RSCX AXT **,4 4J139900 0BINARY CARD ID. MAPJ0380| 45215 0020 00 4 00001 TRA 1,4 EXIT 4J140000| | TABLE EXECUTED BY CLASS CODE 4J140200| 45216 0020 00 0 36500 TRA SCILL ILLEGAL $4$4J140300 45217 4055 00 020000 SIL SLB / 4J140400| 45220 4055 00 010000 SIL ASB * 4J140500| 45221 4055 00 004000 SIL MSB - 4J140600| 45222 4055 00 002000 SIL PSB + 4J140700| 45223 4055 00 001000 SIL CMB , 4J140800 45224 4055 00 000400 SIL DLB $ 4J140900| 45225 4055 00 000200 SIL EQB = 4J141000| 45226 4055 00 000100 SIL QTB ' 4J141100| 45227 0020 00 0 45243 TRA RSCRP ) 4J141200| 45230 0020 00 0 45236 TRA RSCLP ( 4J141300 45231 4055 00 000010 SIL PDB . 4J141400| 45232 4055 00 000004 SIL ALB ALPHA 4J141500| 45233 4055 00 000002 SIL DCB DEC 4J141600| 45234 4055 00 000001 SIL NMB NUM 4J141700| 45235 0020 00 0 36512 RCSIL TRA QSCNF BLANK (6)4J141800 | LEFT PAREN HANDLER 4J142000| 45236 0774 00 1 00001 RSCLP AXT */*,1 INCREASE 4J142100| 45237 1 00001 1 45240 TXI *+1,1,1 PARENTHESIS 4J142200| 45240 4055 00 000020 SIL LPB COUNT BY 1 4J142300 45241 0634 00 1 45236 RSCLQ SXA RSCLP,1 4J142400| 45242 0020 00 0 36452 TRA SCLFT 4J142500| | RIGHT PAREN HANDLER 4J142700| 0BINARY CARD ID. MAPJ0381 45243 0522 00 0 45236 RSCRP XEC RSCLP TEST FOR 4J142800| 45244 2 00001 1 45241 TIX RSCLQ,1,1 BALANCED COUNT 4J142900| 45245 4055 00 000040 SIL RPB IF SO, SET 4J143000| 45246 0774 00 1 00006 AXT RPCDE,1 RP CODE AND 4J143100| 45247 0020 00 0 36514 TRA QSCNE GO TO EXIT (6)4J143200 1 IBMAPV IBMAPJ 12/01/64 PAGE 224 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0| * PLACE CURRENT PARAMETER EXPANSION INTO TABLE, AND 4J143800| * UPDATE PUSH DOWN LIST 4J143900 | | 45250 0634 00 4 45334 XPLCE SXA XPLX,4 SAVE INDEX 4J144100| 45251 0634 00 2 45335 SXA XPLX+1,2 REGISTERS 4J144200| 45252 0634 00 1 45336 SXA XPLX+2,1 4J144300 45253 0621 00 0 45273 STA XPLB SET COMPARE ADDRESS 4J144400| 45254 0622 00 0 45356 STD XPLK SAVE COUNT 4J144500| 45255 4734 00 2 00000 PDX 0,2 OUT IF COUNT 4J144600| 45256 7 00000 2 45324 TXL XPLH,2,0 IS ZERO 4J144700| 45257 0754 00 0 00000 PXA 0,0 SET EXIT 4J144800 45260 0361 00 0 21724 ACL MSKDC TEST ON 4J144900| 45261 2 00006 2 45260 TIX *-1,2,6 POSSIBLE HIT 4J145000| 45262 0622 00 0 45344 STD XPLJJ 4J145100| 45263 0622 00 0 45320 STD XPLFT 4J145200| 45264 4737 00 1 00000 PDC ,1 SAVE COUNT INCREMENT (6)4J145210 45265 4634 00 1 45303 SXD XPLEE,1 (6)4J145220| 45266 4774 00 4 45357 AXC XPNTB,4 4J145300| 45267 4534 00 2 45306 LXD XPCCT,2 NO COMPARE (6)4J145400| 45270 7 00000 2 45301 TXL XPLE,2,0 IF NO ITEMS 4J145500| 0BINARY CARD ID. MAPJ0382 45271 4774 00 4 45357 AXC XPNTB,4 4J145600| 45272 0774 00 1 00000 XPLA AXT 0,1 SET FIRST WORD 4J145700| 45273 4500 00 1 00000 XPLB CAL **,1 COMPARE WITH 4J145800| 45274 4340 00 4 00000 XPLC LAS 0,4 TABLE ITEM 4J145900| 45275 1 77777 4 45300 TXI XPLD,4,-1 4J146000 45276 0020 00 0 45340 TRA XPLI FIRST WORD COMPARES 4J146100| 45277 1 77777 4 45300 TXI *+1,4,-1 4J146200| 45300 2 00001 2 45273 XPLD TIX XPLB,2,1 BACK IF MORE IN TABLE 4J146300| | ITEM NOT IN TABLE 4J146500 45301 0634 00 4 45321 XPLE SXA XPLG,4 SAVE POSITION 4J146600| 45302 4534 00 2 45306 LXD XPCCT,2 PICK UP COUNT (6)4J146700| 45303 1 00000 2 45304 XPLEE TXI *+1,2,** INCREMENT (6)4J146710| 45304 4634 00 2 45306 SXD XPCCT,2 AND STORE COUNT (6)4J146720| 45305 0534 00 2 45737 LXA DUPPDL,2 GET DUP PUSH DOWN COUNT (6)4J146730 45306 1 00000 2 45307 XPCCT TXI *+1,2,** ADD EXPANSION COUNT (6)4J146740| 45307 7 00360 2 45313 TXL XPLF-1,2,MXPSZ IF SUM EXCEEDS MAXIMUM (6)4J146750| 45310 0074 00 4 25623 TSX ERPR,4 ISSUE MESSAGE - 'MACRO PARAMETER (6)4J146760| 45311 0 00000 4 00051 MSS029,NONONO EXPANSION TABLE OVERFLOW' (6)4J146770| 45312 0020 00 0 35374 TRA CLRDUP AND EXIT FROM NEST (6)4J146780 | 45313 0774 00 1 00000 AXT 0,1 4J146800| 45314 0522 00 0 45273 XPLF XEC XPLB STORE 4J146900| 45315 0602 00 4 00000 SLW 0,4 4J147000| 45316 1 77777 4 45317 TXI *+1,4,-1 4J147100 0BINARY CARD ID. MAPJ0383| 45317 1 77777 1 45320 TXI *+1,1,-1 4J147300| 45320 3 00000 1 45314 XPLFT TXH XPLF,1,** BACK IF MORE 4J147400| | STORE IN PUSH DOWN LIST 4J148000 45321 4774 00 4 00000 XPLG AXC **,4 POSITION 4J148100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 225 | MACRO PROCESSOR PHASE 1 - RECORD IBMAPJ | 0 45322 0634 00 4 45356 SXA XPLK,4 4J148200| 45323 0500 00 0 45356 CLA XPLK PARAM LOC AND COUNT 4J148300 45324 0774 00 4 25751 XPLH AXT -MPPDL,4 STORE (MODIFIED) 4J148400| 45325 0601 00 4 00000 STO 0,4 IN LIST 4J148500| 45326 1 00001 4 45327 TXI *+1,4,1 BUMP TO 4J148600| 45327 0634 00 4 45324 SXA XPLH,4 NEXT POSITION 4J148700| 45330 7 00000 4 45334 XPLTST TXL XPLX,4,** OUT IF NO OVERFLOW 4J148800 45331 0074 00 4 25623 TSX ERPR,4 'MACRO PARAMETER 4J148900| 45332 0 00000 4 00052 MSS030,NONONO PUSH DOWN TABLE OVERFLOW' (6)4J149000| 45333 0020 00 0 35374 TRA CLRDUP (6)4J149010| 45334 0774 00 4 00000 XPLX AXT **,4 4J149100| 45335 0774 00 2 00000 AXT **,2 RESTORE 4J149200 45336 0774 00 1 00000 AXT **,1 AND 4J149300| 45337 0020 00 4 00001 TRA 1,4 EXIT 4J149400| | FIRST WORD COMPARES 4J149600| 45340 0634 00 4 45321 XPLI SXA XPLG,4 SAVE THIS POSITION 4J149700 45341 0634 00 2 45352 SXA XPLN,2 4J149800| 45342 1 77777 4 45343 TXI *+1,4,-1 4J149900| 45343 1 77777 1 45344 XPLJ TXI *+1,1,-1 4J150000| 45344 7 00000 1 45321 XPLJJ TXL XPLG,1,** FOUND IT IF ALL COMPARE 4J150100| 0BINARY CARD ID. MAPJ0384 45345 6 00001 2 45352 TNX XPLN,2,1 TEST END OF TABLE 4J150200| 45346 0522 00 0 45273 XEC XPLB COMPARE 4J150300| 45347 0522 00 0 45274 XEC XPLC NEXT ITEM 4J150400| 45350 0020 00 0 45352 TRA *+2 4J150500| 45351 1 77777 4 45343 TXI XPLJ,4,-1 IF SAME, TRY FOR ALL 4J150600 45352 0774 00 2 00000 XPLN AXT **,2 IF NO COMPARE 4J150700| 45353 0534 00 4 45321 LXA XPLG,4 GO TO TRY 4J150800| 45354 6 00001 2 45301 TNX XPLE,2,1 NEXT 4J150900| 45355 1 77777 4 45272 TXI XPLA,4,-1 4J151000| 45356 0 00000 0 00000 XPLK PZE **,,** STORAGE FOR PD LIST ITEM 4J151200| | | * MACRO PARAMETER EXPANSION TABLE 4J161000| * (DOUBLES AS DUP PUSH DOWN TABLE) (6)4J161010 | 45357 XPNTB BSS MXPSZ (6)4J161200| 0BINARY CARD ID. MAPJ0385| 45737 0 00000 0 00000 DUPPDL PZE ** (6)4J161300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 226 PATCH AREA PHASE 1 - RECORD IBMAPJ | 0| 45740 PATCH EQU * (6)4J161302| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 227 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0| 45740 PATCHE EQU * CURRENT PATCHES END (6)4J161697| 46000 BES MACBF-* (6)4J161698| 00040 PTCHSZ EQU *-PATCHE REMAINING SIZE OF PATCH AREA (6)4J161699 | * THE INTERNAL DICTIONARY ENTRY FOR A MACRO-INSTRUCTION HAS THE FORM (6)4J161702| * (6)4J161704| * O6/62,12/N,3/SC,15/SKEL (6)4J161706| * (6)4J161708 * WHERE (6)4J161710| * (6)4J161712| * N IS THE NUMBER OF ARGUMENTS (6)4J161714| * (6)4J161715| * SC IS 2 TO SUPPRESS CREATED SYMBOLS FOR MISSING ARGS (6)4J161716 * 6 TO FORCE CREATION OF MISSING ARG SYMBOLS (6)4J161718| * 0 FOR SYMBOL CREATION UNDER NOCRS CONTROL (6)4J161720| * (6)4J161722| * SKEL IS THE ADDRESS OF THE CHAIN WORD PRECEDING THE (6)4J161724| * SKELETON FOR THE CORRESPONDING MACRO DEFINITION (6)4J161726 * (6)4J161728| * EACH SKELETON IS PRECEDED BY A CHAIN WORD WHOSE (6)4J161730| * (6)4J161732| * ADDRESS IS A POINTER TO THE CHAIN WORD FOR THE NEXT (6)4J161734| * SKELETON (OR END OF DEFINITION STORAGE IF LAST) (6)4J161736 * (6)4J161738| * DECREMENT IS A POINTER TO THE DICTIONARY ENTRY (6)4J161740| * (6)4J161742| * PREFIX HAS FLAGS FOR PURGE AS FOLLOWS.. (6)4J161744| * (6)4J161746 * S - SKELETON IS TO BE PURGED FROM TABLE (6)4J161748| * 1 - CANNOT BE PURGED BECAUSE OTHER DEFINITIONS (6)4J161750| * REFER TO THIS ONE VIA OPSYN (6)4J161752| * 2 - CONTAINS ADDRESS POINTERS FOR OPSYN (6)4J161754| * (6)4J161756 * THE TAG FIELD OF THE CHAIN WORD SUPPLEMENTS THE DICTIONARY ENTRY (6)4J161758| * WITH FLAGS FOR (6)4J161759| * (6)4J161760| * LOCATION FIELD OF MACRO IS A PARAMETER (BIT 18). (6)4J161762| * (6)4J161763 * NAME OF MACRO-INSTRUCTION IS A PARAMETER (BIT 19). (6)4J161764| * (6)4J161765| * THE USE OF INDIRECT ADDRESSING OF THIS MACRO IS A (6)4J161766| * PARAMETER (BIT 20 OF CHAIN WORD). THE ARGUMENT (6)4J161768| * WHICH WAS FIRST IN THE VARIABLE FIELD OF THE (6)4J161770 * MACRO HEADER WILL BE REPLACED IN THE EXPANSION (6)4J161772| * BY THE NULL STRING OR BY AN * ACCORDING TO THE (6)4J161774| * ABSENCE OR PRESENCE OF AN ASTERISK TERMINATING (6)4J161776| * THE OPERATION CODE IN THE CALL. THE FIRST FIELD (6)4J161778| * OF THE VARIABLE FIELD OF THE CALL CORRESPONDS TO (6)4J161780 * THE SECOND PARAMETER IN THE VARIABLE FIELD OF (6)4J161782| * THE MACRO HEADER CARD, ETC. (6)4J161784| * (6)4J161786| * BIT 20 OF THE DICTIONARY ENTRY (FORMERLY DENOTING 'SPECIAL MACRO') (6)4J161788| * IS UNUSED. (6)4J161790 1 IBMAPV IBMAPJ 12/01/64 PAGE 228 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0| * CONTROL CHARACTERS AND THEIR MEANINGS FOR SKELETON PROCESSING ARE..(6)4J161900| * (6)4J161910 * 77NN ARGUMENT NN (IF NN IS ZERO THE ITEM IS THE BEGINNING (6)4J161920| * OF A TRANSFER IN SKELETON). (6)4J161930| * (6)4J161940| * 76NN (WHERE NN IS LESS THAN OCTAL 75).. NN CHARACTERS OF (6)4J161950| * BCD TEXT FOLLOW. A STRING OF MORE THAN SIXTY (6)4J161960 * CHARACTERS IS BROKEN UP INTO SUCCESSIVE ENTRIES (6)4J161970| * OF MAXIMUM LENGTH). (6)4J161980| * (6)4J161990| * 7675NN NN BLANK CHARACTERS ARE TO BE SUBSTITUTED. (6)4J162000| * (6)4J162010 * 7676NN BEGIN IRP ON ARGUMENT NN. (6)4J162020| * (6)4J162030| * 767600 END IRP. (6)4J162040| * (6)4J162050| * 7677NN CREATE SYMBOL FOR PARAMETER NN. (6)4J162060 * (6)4J162070| * 75CC INSERT SINGLE CHARACTER CC. (6)4J162080| * (6)4J162090| * 7575 BEGIN OPERATION FIELD OF CARD IMAGE. (6)4J162100| * (6)4J162110 * 7576 END CARD IMAGE. (6)4J162120| * (6)4J162130| | | | | | * SYSTEM MACRO EXPANSIONS 4J162200| * 4J162300 * RETURN A,I 4J162400| * 4J162500| * IFF //=/I/ 4J162600| * AXT I,4 4J162700| * IFF //=/I/,AND 4J162800 * IFF //=/A/ 4J162900| * SXD A,4 4J163000| * IFF //=/A/ 4J163100| * TRA A+1 4J163200| * IFT //=/A/ 4J163300 * TRA 4J163400| 0BINARY CARD ID. MAPJ0386| 46000 0 00000 0 46033 SM.RET PZE SM.END,,** CHAIN WORD $4$4J163500| 46001 757576103126 OCT 757576103126,266061611361 $4$4J163600| 46003 770275617576 OCT 770275617576,757576042167 4J163700 46005 636077027602 OCT 636077027602,730475767575 4J163800| 46007 761031262660 OCT 761031262660,616113617702 4J163900| 46011 760561732145 OCT 760561732145,247576757576 4J164000| 46013 103126266061 OCT 103126266061,611361770175 4J164100| 46015 617576757576 OCT 617576757576,046267246077 4J164200 46017 017573750475 OCT 017573750475,767575761031 4J164300| 46021 262660616113 OCT 262660616113,617701756175 4J164400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 229 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 46023 767575760463 OCT 767575760463,512160770175 4J164500 46025 207501757675 OCT 207501757675,757610312663 4J164600| 0BINARY CARD ID. MAPJ0387| 46027 606161136177 OCT 606161136177,017561757675 4J164700| 46031 757603635121 OCT 757603635121,757675776060 4J164800| 46033 SM.END EQU * 4J165000| | | * 7094 OPERATION MACRO EXPANSIONS 4J165200| * PCA AND PCD 4J165400| * GENERAL FORM- 4J165500| * (PC L,Y,T (6)4J165600| * EXPANSION- 4J165700| * PX'L Y,T L=A FOR PCA, D FOR PCD (6)4J165800 * P'L'C ,T $5$4J165900| * PX'L ,T $5$4J166000| * P'L'C ,T $5$4J166100| | 46033 0 00000 0 46047 M.PCX PZE M.PCA,,** CHAIN WORD (6)4J166300 46034 757576024767 OCT 757576024767 $4$4J166400| 46035 770175607702 OCT 770175607702 (6)4J166500| 46036 757377037576 OCT 757377037576 $5$4J166600| 46037 757575477701 OCT 757575477701 $5$4J166700| 46040 760323607377 OCT 760323607377 (6)4J166800 46041 037576757576 OCT 037576757576 (6)4J166900| 46042 024767770175 OCT 024767770175 (6)4J167000| 46043 607573770375 OCT 607573770375 (6)4J167100| 46044 767575754777 OCT 767575754777 (6)4J167200| 46045 017603236073 OCT 017603236073 (6)4J167300 46046 770375767577 OCT 770375767577 (6)4J167305| | *PCA MACRO Y,T (6)4J167315| * (PC A,Y,T (6)4J167320| 46047 0 00000 0 46054 M.PCA PZE M.PCD,,** CHAIN WORD (6)4J167330| 46050 757576067447 OCT 757576067447,236021737701,757377027576,757760606060 (6)4J167335| | *PCD MACRO Y,T (6)4J167345| * (PC D,Y,T (6)4J167350 | 0BINARY CARD ID. MAPJ0388| 46054 0 00000 0 46061 M.PCD PZE M.SCX,,** CHAIN WORD (6)4J167360| 46055 757576067447 OCT 757576067447,236024737701,757377027576,757760606060 (6)4J167370| * SCA AND SCD 4J167500| * GENERAL FORM 4J167600| * (SC L,Y,T (6)4J167700| * EXPANSION 4J167800| * SXA *+1,T FOR SCA, L=A 4J167900 * AXC **,T FOR SCD, L=D 4J168000| * SX'L Y,T 4J168100| * LXA *-2,T 4J168200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 230 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0 | 46061 0 00000 0 46076 M.SCX PZE M.SCA,,** CHAIN WORD (6)4J168400| 46062 757576106267 OCT 757576106267 $4$4J168500| 46063 216054200173 OCT 216054200173 4J168600| 46064 770375767575 OCT 770375767575 4J168700 46065 760721672360 OCT 760721672360 4J168800| 46066 545473770375 OCT 545473770375 4J168900| 46067 767575760262 OCT 767575760262 4J169000| 46070 677701756077 OCT 677701756077 4J169100| 46071 027573770375 OCT 027573770375 4J169200 46072 767575761043 OCT 767575761043 4J169300| 46073 672160544002 OCT 672160544002 4J169400| 46074 737703757675 OCT 737703757675,776060606060 (6)4J169500| | *SCA MACRO Y,T (6)4J169520 * (SC A,Y,T (6)4J169530| | 46076 0 00000 0 46103 M.SCA PZE M.SCD,,** CHAIN WORD (6)4J169550| 46077 757576067462 OCT 757576067462,236021737701,757377027576,757760606060 (6)4J169560| *SCD MACRO Y,T (6)4J169580| * (SC D,Y,T (6)4J169590| | 0BINARY CARD ID. MAPJ0389| 46103 0 00000 0 46110 M.SCD PZE M.DAS,,** CHAIN WORD (6)4J169610 46104 757576067462 OCT 757576067462,236024737701,757377027576,757760606060 (6)4J169620| | * DFAD, DFSB,DFAM, AND DFSM 4J169800| * GENERAL FORM 4J169900| * (DAS OP,I,Y,T (6)4J170000 * EXPANSION (6)4J170100| * (IFFF I,Y FOR DFAD, OP=AD DFAM, OP=AM 4J170200| * (DFAS Y,T,OP DFSB, OP=SB DFSM, OP=SM 4J170300| * (IFTF I,Y,T 4J170400| * (XFAS T,OP I=* IF INDIRECT ADDRESS 4J170500 * (IFTT I,Y,T 4J170600| * (YFAS OP (WILL CREATE SYMBOL) 4J170700| * IFT /T/=/*/ 4J170800| * (ZFAS OP,Y,T, (WILL CREATE SYMBOL) 4J170900| 46110 0 00000 0 46146 M.DAS PZE M.DFAD,,** CHAIN WORD (6)4J171100| 46111 757576067431 OCT 757576067431,262626607702 $4$4J171200| 46113 757377037602 OCT 757377037602,606075767575 4J171300| 46115 760674242621 OCT 760674242621 4J171400| 46116 626077037573 OCT 626077037573,770475737701 4J171500 46120 757675757606 OCT 757675757606,743126632660 4J171600| 46122 770275737703 OCT 770275737703,757377047576 4J171700| 46124 757576067467 OCT 757576067467,262162607704 4J171800| 46126 757377017576 OCT 757377017576,757576067431 4J171900| 0BINARY CARD ID. MAPJ0390 46130 266363607702 OCT 266363607702,757377037573 4J172000| 46132 770475767575 OCT 770475767575,760674702621 4J172100| 46134 626077017602 OCT 626077017602,606075767575 4J172200| 46136 760531266360 OCT 760531266360,617702760561 4J172300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 231 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 46140 136154617576 OCT 136154617576,757576067471 4J172400| 46142 262162607701 OCT 262162607701,757377037573 4J172500| 46144 770475737576 OCT 770475737576,757760606060 4J172600| *DFAD MACRO* I,Y,T (6)4J172704| * (DAS AD,I,Y,T (6)4J172708| | 46146 0 00000 1 46154 M.DFAD PZE M.DFSB,1,** CHAIN WORD (6)4J172716| 46147 757576107424 OCT 757576107424,216260212473 (6)4J172718 46151 770175737702 OCT 770175737702,757377037576,757760606060 (6)4J172720| | *DFSB MACRO* I,Y,T (6)4J172728| * (DAS SB,I,Y,T (6)4J172732| 46154 0 00000 1 46162 M.DFSB PZE M.DFAM,1,** CHAIN WORD (6)4J172740| 46155 757576107424 OCT 757576107424,216260622273 (6)4J172742| 0BINARY CARD ID. MAPJ0391| 46157 770175737702 OCT 770175737702,757377037576,757760606060 (6)4J172744| *DFAM MACRO* I,Y,T (6)4J172752| * (DAS AM,I,Y,T (6)4J172756| | 46162 0 00000 1 46170 M.DFAM PZE M.DFSM,1,** CHAIN WORD (6)4J172764| 46163 757576107424 OCT 757576107424,216260214473 (6)4J172766 46165 770175737702 OCT 770175737702,757377037576,757760606060 (6)4J172768| | *DFAM MACRO* I,Y,T (6)4J172776| * (DAS SM,I,Y,T (6)4J172780| 46170 0 00000 1 46176 M.DFSM PZE M.AF1,1,** CHAIN WORD (6)4J172788 46171 757576107424 OCT 757576107424,216260624473 (6)4J172790| 46173 770175737702 OCT 770175737702,757377037576,757760606060 (6)4J172792| * ADD AND SUBTRACT, FORM 1. 4J172800| * 4J172900| *(DFAS MACRO Y,T,OP 4J173000 * STQ E.1 4J173100| * F'OP Y,T 4J173200| * STO E.2 4J173300| * XCA 4J173400| * FAD E.1 4J173500 * F'OP Y+1,T 4J173600| * FAD E.2 4J173700| | | 46176 0 00000 0 46220 M.AF1 PZE M.AF2,,** CHAIN WORD $4$4J173900 46177 757576076263 OCT 757576076263,506025330175 $4$4J174000| 46201 767575752677 OCT 767575752677,037560770175 4J174100| 46203 737702757675 OCT 737702757675,757607626346 4J174200| 0BINARY CARD ID. MAPJ0392| 46205 602533027576 OCT 602533027576,757576036723 4J174300 46207 217576757576 OCT 217576757576,072621246025 4J174400| 46211 330175767575 OCT 330175767575,752677037560 4J174500| 46213 770176032001 OCT 770176032001,737702757675 4J174600| 46215 757607262124 OCT 757607262124,602533027576,757760606060 4J174700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 232 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 | * ADD AND SUBTRACT, FORM 2. 4J174900| * 4J175000 *(XFAS MACRO T,OP 4J175100| * NOP ,T 4J175200| * STQ E.1 4J175300| * F'OP'* *-2 4J175400| * STO E.2 4J175500 * TXI *+1,T,-1 4J175600| * XCA 4J175700| * FAD E.1 4J175800| * F'OP'* *-7 4J175900| * FAD E.2 4J176000 * TXI *+1,T,1 4J176100| | 46220 0 00000 0 46252 M.AF2 PZE M.AF3,,** CHAIN WORD $4$4J176300| 46221 757576054546 OCT 757576054546,476073770175 $4$4J176400| 46223 767575760762 OCT 767575760762,635060253301 4J176500 46225 757675757526 OCT 757675757526,770276055460 4J176600| 46227 544002757675 OCT 544002757675,757607626346 4J176700| 46231 602533027576 OCT 602533027576,757576106367 4J176800| 0BINARY CARD ID. MAPJ0393| 46233 316054200173 OCT 316054200173,770176067340,016060607576 4J176900 46236 757576036723 OCT 757576036723,217576757576 4J177000| 46240 072621246025 OCT 072621246025,330175767575 4J177100| 46242 752677027605 OCT 752677027605,546054400775 4J177200| 46244 767575760726 OCT 767575760726,212460253302 4J177300| 46246 757675757610 OCT 757675757610,636731605420 4J177400 46250 017377017602 OCT 017377017602,730175767577 4J177500| | * ADD AND SUBTRACT, FORM 3. 4J177700| * 4J177800| *(YFAS MACRO OP,S 4J177900 * (SAV4 S 4J178000| * (DFAS 0,4,OP 4J178100| * S AXT ,4 4J178200| | 46252 0 00000 0 46263 M.AF3 PZE M.AF4,,** CHAIN WORD $4$4J178400 46253 757576067462 OCT 757576067462,216504607702 $4$4J178500| 46255 757675757612 OCT 757675757612,742426216260 4J178600| 46257 007304737701 OCT 007304737701,757677027575 4J178700| 0BINARY CARD ID. MAPJ0394| 46261 760621676360 OCT 760621676360,730475767577 4J178800 | * ADD AND SUBTRACT, FORM 4. 4J179000| * 4J179100| *(ZFAS MACRO OP,Y,T,S 4J179200| * (FIND Y,T,S 4J179300 * CLA E.1 4J179400| * (DFAS 0,4,OP 4J179500| * S AXT ,4 4J179600| | 46263 0 00000 0 46300 M.AF4 PZE M.DC2,,** CHAIN WORD $4$4J179800 46264 757576067426 OCT 757576067426,314524607702 $4$4J179900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 233 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 46266 757377037573 OCT 757377037573,770475767575 4J180000| 46270 760723432160 OCT 760723432160,253301757675 4J180100 46272 757612742426 OCT 757612742426,216260007304 4J180200| 46274 737701757677 OCT 737701757677,047575760621 4J180300| 46276 676360730475 OCT 676360730475,767577606060 4J180400| | * DECISION, TYPE 1 4J180600 * 4J180700| *(IFFF MACRO I,Y 4J180800| * IFF /Y/=/**/,AND 4J180900| * IFF /I/=/*/ 4J181000| 46300 0 00000 0 46311 M.DC2 PZE M.DC3,,** CHAIN WORD $4$4J181200| 46301 757576053126 OCT 757576053126,266061770276 $4$4J181300| 46303 126113615454 OCT 126113615454,617321452475 4J181400| 46305 767575760531 OCT 767575760531,262660617701 4J181500| 0BINARY CARD ID. MAPJ0395 46307 760561136154 OCT 760561136154,617576757760 4J181600| | | * DECISION, TYPE 2. 4J181800| * 4J181900 *(IFTF MACRO I,Y,T 4J182000| * IFF /T/=//,AND 4J182100| * IFF /T/=/0/,AND 4J182200| * IFT /Y/=/**/,AND 4J182300| * IFF /I/=/*/ 4J182400 | 46311 0 00000 0 46332 M.DC3 PZE M.DC4,,** CHAIN WORD $4$4J182600| 46312 757576053126 OCT 757576053126,266061770376,106113616173 $4$4J182700| 46315 214524757675 OCT 214524757675,757605312626,606177037611 4J182800| 46320 611361006173 OCT 611361006173,214524757675,757605312663 4J182900 46323 606177027612 OCT 606177027612,611361545461,732145247576 4J183000| 46326 757576053126 OCT 757576053126,266061770176,056113615461 4J183100| 46331 757675776060 OCT 757675776060 4J183200| | * DECISION, TYPE 3. 4J183400| * 4J183500| *(IFTT MACRO I,Y,T 4J183600| * IFT /T/=//,OR 4J183700| * IFT /T/=/0/,AND 4J183800 * IFT /Y/=/**/,AND 4J183900| * IFF /T/=/*/ 4J184000| | 46332 0 00000 0 46353 M.DC4 PZE M.SV4,,** CHAIN WORD $4$4J184200| 46333 757576053126 OCT 757576053126,636061770376,076113616173 $4$4J184300 0BINARY CARD ID. MAPJ0396| 46336 465175767575 OCT 465175767575,760531266360,617703761161 4J184400| 46341 136100617321 OCT 136100617321,452475767575,760531266360 4J184500| 46344 617702761261 OCT 617702761261,136154546173,214524757675 4J184600| 46347 757605312626 OCT 757605312626,606177017605,611361546175 4J184700 46352 767577606060 OCT 767577606060 4J184800| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 234 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 * SAVE INDEX 4. 4J185000 * 4J185100| *(SAV4 MACRO S 4J185200| * AXT ,0 4J185300| * SXA S,4 4J185400| * LAC *-2,4 4J185500 | 46353 0 00000 0 46364 M.SV4 PZE M.FND,,** CHAIN WORD $4$4J185700| 46354 757576062167 OCT 757576062167,636073007576 $4$4J185800| 46356 757576046267 OCT 757576046267,216077017602 4J185900| 46360 730475767575 OCT 730475767575,761143212360 4J186000 0BINARY CARD ID. MAPJ0397| 46362 544002730475 OCT 544002730475,767577606060 4J186100| | * FIND INDIRECT ADDRESS 4J186300| * 4J186400 *(FIND MACRO Y,T,S 4J186500| * NOP Y,T 4J186600| * STO E.1 4J186700| * CLA* *-2 4J186800| * STA *+2 4J186900 * STT *+1 4J187000| * PXA ,0 4J187100| * SUB *-1 4J187200| * SXA S,4 4J187300| * PAC 0,4 4J187400 | 46364 0 00000 0 46413 M.FND PZE M.DLXY,,** CHAIN WORD (6)4J187600| 46365 757576044546 OCT 757576044546,476077017573 $4$4J187700| 46367 770275767575 OCT 770275767575,760762634660 4J187800| 46371 253301757675 OCT 253301757675,757610234321 4J187900 46373 546054400275 OCT 546054400275,767575760762 4J188000| 46375 632160542002 OCT 632160542002,757675757613 4J188100| 46377 626363605420 OCT 626363605420,016060606075,767575760647 4J188200| 46402 672160730075 OCT 672160730075,767575760762 4J188300| 46404 642260544001 OCT 642260544001,757675757604 4J188400 46406 626721607703 OCT 626721607703,760273047576 4J188500| 0BINARY CARD ID. MAPJ0398| 46410 757576074721 OCT 757576074721,236000730475 4J188600| 46412 767577606060 OCT 767577606060 4J188700| * DLD AND DST 4J188900| * GENE RAL FORM 4J189000| * (DL OP1,OP2,I,Y,T (6)4J189100| * EXPANSION (6)4J189200| * (IFFF I,Y FOR DLD, OP1=CLA OP2=LDQ 4J189300 * (DLST OP1,OP2,Y,T OR DST, OP1=STO OP2=STQ 4J189400| * (IFTT I,Y,T 4J189500| * (XLST OP1,OP2 4J189600| * (IFTF I,Y,T I=* IF INDIRECT ADDRESS 4J189700| * (YLST OP1,OP2,T 4J189800 * IFT /I/=/*/ 4J189900| * (ZLST OP1,OP2,Y,T, (WILL CREATE SYMBOL) 4J190000| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 235 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0 46413 0 00000 0 46454 M.DLXY PZE M.DLD,,** CHAIN WORD (6)4J190200| 46414 757576067431 OCT 757576067431,262626607703 $4$4J190300| 46416 757377047602 OCT 757377047602,606075767575 4J190400| 46420 760674244362 OCT 760674244362,636077017573 4J190500| 46422 770275737704 OCT 770275737704,757377057560 4J190600 46424 757675757606 OCT 757675757606,743126636360 4J190700| 46426 770375737704 OCT 770375737704,757377057576 4J190800| 46430 757576067467 OCT 757576067467,436263607701 4J190900| 46432 757377027576 OCT 757377027576,757576067431 4J191000| 46434 266326607703 OCT 266326607703,757377047573 4J191100 0BINARY CARD ID. MAPJ0399| 46436 770576026060 OCT 770576026060 4J191200| 46437 757675757606 OCT 757675757606,747043626360 4J191300| 46441 770175737702 OCT 770175737702,757377057576 4J191400| 46443 757576053126 OCT 757576053126,636061770376 4J191500 46445 056113615461 OCT 056113615461,757675757606 4J191600| 46447 747143626360 OCT 747143626360,770175737702 4J191700| 46451 757377047573 OCT 757377047573,770576027360 4J191800| 46453 757675776060 OCT 757675776060 4J191900| *DLD MACRO* I,Y,T (6)4J191920| * (DL CLA,LDQ,I,Y,T (6)4J191930| | 46454 0 00000 1 46462 M.DLD PZE M.DST,1,** CHAIN WORD (6)4J191950| 46455 757576147424 OCT 757576147424,436023432173,432450737701 (6)4J191960 46460 757377027573 OCT 757377027573,770375767577 (6)4J191970| | *DST MACRO* I,Y,T (6)4J191990| * (DL STO,STQ,I,Y,T (6)4J192000| 46462 0 00000 1 46470 M.DST PZE M.DLS1,1,** CHAIN WORD (6)4J192020| 46463 757576147424 OCT 757576147424,436062634673,626350737701 (6)4J192030| 0BINARY CARD ID. MAPJ0400| 46466 757377027573 OCT 757377027573,770375767577 (6)4J192040| * LOAD AND STORE, FORM 1. 4J192100| * 4J192200| *(DLST MACRO OP1,OP2,Y,T 4J192300| * OP1 Y,T 4J192400| * OP2 Y+1,T 4J192500 | 46470 0 00000 0 46477 M.DLS1 PZE M.DLS2,,** CHAIN WORD $4$4J192700| 46471 757577017560 OCT 757577017560,770375737704 $4$4J192800| 46473 757675757702 OCT 757675757702,756077037603 4J192900| 46475 200173770475 OCT 200173770475,767577606060 4J193000 | * LOAD AND STORE, FORM 2. 4J193200| * 4J193300| *(XLST MACRO OP1,OP2 4J193400| * OP1 ** 4J193500 * SXA *+3,4 4J193600| * LAC *-2,4 4J193700| * OP2 1,4 4J193800| * AXT **,4 4J193900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 236 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 | 46477 0 00000 0 46514 M.DLS2 PZE M.DLS3,,** CHAIN WORD $4$4J194100| 46500 757577017560 OCT 757577017560,750075767575 $4$4J194200| 46502 761262672160 OCT 761262672160,542003730460 4J194300 46504 757675757611 OCT 757675757611,432123605440 4J194400| 46506 027304757675 OCT 027304757675,757702760460 4J194500| 46510 017304757675 OCT 017304757675,757606216763 4J194600| 0BINARY CARD ID. MAPJ0401| 46512 607304757675 OCT 607304757675,776060606060 4J194700 | * LOAD AND STORE, FORM 3 4J194900| * 4J195000| *(YLST MACRO OP1,OP2,T 4J195100| * OP1 **,T 4J195200 * TXI *+1,T,-1 4J195300| * OP2* *-2 4J195400| * TXI *+1,T,1 4J195500| | 46514 0 00000 0 46531 M.DLS3 PZE M.DLS4,,** CHAIN WORD $4$4J195700 46515 757577017560 OCT 757577017560,757377037576 $4$4J195800| 46517 757576106367 OCT 757576106367,316054200173 4J195900| 46521 770376037340 OCT 770376037340,017576757577 4J196000| 46523 027605546054 OCT 027605546054,400275767575 4J196100| 46525 761063673160 OCT 761063673160,542001737703 4J196200 46527 760273017576 OCT 760273017576,757760606060 4J196300| | * LOAD AND STORE, FORM 4 4J196500| * 4J196600| *(ZLST MACRO OP1,OP2,Y,T,S 4J196700 * (FIND Y,T,S 4J196800| * IFT /OP1/=/STO/ 4J196900| * CLA E.1 4J197000| * (DLST OP1,OP2,0,4 4J197100| * S AXT **,4 4J197200 | 46531 0 00000 0 46553 M.DLS4 PZE M.FMP,,** CHAIN WORD $4$4J197400| 46532 757576067426 OCT 757576067426,314524607703 $4$4J197500| 46534 757377047573 OCT 757377047573,770575767575 4J197600| 46536 760531266360 OCT 760531266360,617701760761 4J197700 0BINARY CARD ID. MAPJ0402| 46540 136162634661 OCT 136162634661,757675757610 4J197800| 46542 234321602533 OCT 234321602533,016075767575 4J197900| 46544 760674244362 OCT 760674244362,636077017573 4J198000| 46546 770276047300 OCT 770276047300,730475767705 4J198100 46550 757576102167 OCT 757576102167,636054547304 4J198200| 46552 757675776060 OCT 757675776060 4J198300| | * DFMP. 4J198500| * GENERAL FORM 4J198600 *DFMP MACRO* I,Y,T (6)4J198700| * EXPANSION (6)4J198800| * (IFFF I,Y I=* IF INDIRECT ADDRESS 4J198900| * (DFMP Y,T 4J199000| * (IFTF I,Y,T 4J199100 1 IBMAPV IBMAPJ 12/01/64 PAGE 237 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 * (XFMP T 4J199200| * (IFTT I,Y,T 4J199300| * (YFMP (WILL CREATE SYMBOL) 4J199400 * IFT /I/=/*/ 4J199500| * (ZFMP Y,T, (WILL CREATE SYMBOL) 4J199600| | 46553 0 00000 1 46606 M.FMP PZE M.DFM1,1,** CHAIN WORD (6)4J199800| 46554 757576067431 OCT 757576067431,262626607701 $4$4J199900 46556 757377027560 OCT 757377027560 4J200000| 46557 757675757606 OCT 757675757606,742426444760 4J200100| 46561 770275737703 OCT 770275737703,757675757606 4J200200| 46563 743126632660 OCT 743126632660,770175737702 4J200300| 46565 757377037576 OCT 757377037576,757576067467 4J200400 0BINARY CARD ID. MAPJ0403| 46567 264447607703 OCT 264447607703,757675757606 4J200500| 46571 743126636360 OCT 743126636360,770175737702 4J200600| 46573 757377037576 OCT 757377037576,757576077470 4J200700| 46575 264447606075 OCT 264447606075,767575760531 4J200800 46577 266360617701 OCT 266360617701,760561136154 4J200900| 46601 617576757576 OCT 617576757576,067471264447 4J201000| 46603 607702757377 OCT 607702757377,037573756075 4J201100| 46605 767577606060 OCT 767577606060 4J201200| * MULTIPLY, FORM 1 4J201400| * 4J201500| *(DFMP MACRO Y,T 4J201600| * STO E.1 4J201700| * FMP Y,T 4J201800 * STO E.2 4J201900| * LDQ Y,T 4J202000| * FMP E.1 4J202100| * STQ E.3 4J202200| * STO E.4 4J202300 * LDQ Y+1,T 4J202400| * FMP E.1 4J202500| * FAD E.2 4J202600| * FAD E.3 4J202700| * FAD E.4 4J202800 | 46606 0 00000 0 46644 M.DFM1 PZE M.DFM2,,** CHAIN WORD $4$4J203000| 46607 757576076263 OCT 757576076263,466025330175 $4$4J203100| 46611 767575760426 OCT 767575760426,444760770175 4J203200| 46613 737702757675 OCT 737702757675,757607626346 4J203300 0BINARY CARD ID. MAPJ0404| 46615 602533027576 OCT 602533027576,757576044324 4J203400| 46617 506077017573 OCT 506077017573,770275767575 4J203500| 46621 760726444760 OCT 760726444760,253301757675 4J203600| 46623 757607626350 OCT 757607626350,602533037576 4J203700 46625 757576076263 OCT 757576076263,466025330475 4J203800| 46627 767575760443 OCT 767575760443,245060770176 4J203900| 46631 032001737702 OCT 032001737702,757675757607 4J204000| 46633 264447602533 OCT 264447602533,017576757576 4J204100| 46635 072621246025 OCT 072621246025,330275767575 4J204200 46637 760726212460 OCT 760726212460,253303757675 4J204300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 238 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 46641 757607262124 OCT 757607262124,602533047576,757760606060 4J204400| * MULTIPLY,FORM 2 4J204600| * 4J204700| *(XFMP MACRO T 4J204800| * NOP ,T 4J204900| * STO E.1 4J205000 * FMP* *-2 4J205100| * STO E.2 4J205200| * LDQ* *-4 4J205300| * FMP E.1 4J205400| * STQ E.3 4J205500 * STO E.4 4J205600| * TXI *+1,T,-1 4J205700| * LDQ* *-9 4J205800| * TXI *+1,T,1 4J205900| * FMP E.1 4J206000 * FAD E.2 4J206100| * FAD E.3 4J206200| * FAD E.4 4J206300| | 0BINARY CARD ID. MAPJ0405 46644 0 00000 0 46711 M.DFM2 PZE M.DFM3,,** CHAIN WORD $4$4J206500| 46645 757576054546 OCT 757576054546,476073770175 $4$4J206600| 46647 767575760762 OCT 767575760762,634660253301 4J206700| 46651 757675757610 OCT 757675757610,264447546054 4J206800| 46653 400275767575 OCT 400275767575,760762634660 4J206900 46655 253302757675 OCT 253302757675,757610432450 4J207000| 46657 546054400475 OCT 546054400475,767575760726 4J207100| 46661 444760253301 OCT 444760253301,757675757607 4J207200| 46663 626350602533 OCT 626350602533,037576757576 4J207300| 46665 076263466025 OCT 076263466025,330475767575 4J207400 46667 761063673160 OCT 761063673160,542001737701 4J207500| 0BINARY CARD ID. MAPJ0406| 46671 760373400175 OCT 760373400175,767575761043 4J207600| 46673 245054605440 OCT 245054605440,117576757576 4J207700| 46675 106367316054 OCT 106367316054,200173770176 4J207800 46677 027301757675 OCT 027301757675,757607264447 4J207900| 46701 602533017576 OCT 602533017576,757576072621 4J208000| 46703 246025330275 OCT 246025330275,767575760726 4J208100| 46705 212460253303 OCT 212460253303,757675757607 4J208200| 46707 262124602533 OCT 262124602533,047576757760 4J208300 | * MULTIPLY, FORM 3. 4J208500| * 4J208600| *(YFMP MACRO S 4J208700| * (SAV4 S 4J208800 * (DFMP 0,4 4J208900| * S AXT **,4 4J209000| | 46711 0 00000 0 46722 M.DFM3 PZE M.DFM4,,** CHAIN WORD $4$4J209200| 46712 757576067462 OCT 757576067462,216504607701 $4$4J209300 46714 757675757611 OCT 757675757611,742426444760 4J209400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 239 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0407| 46716 007304757677 OCT 007304757677,017575760621 4J209500 46720 676360730475 OCT 676360730475,767577606060 4J209600| | * MULTIPLY,FORM4. 4J209800| * 4J209900| *(ZFMP MACRO Y,T,S 4J210000 * (FIND Y,T,S 4J210100| * CLA E.1 4J210200| * (DFMP 0,4 4J210300| * S AXT ,4 4J210400| 46722 0 00000 0 46737 M.DFM4 PZE M.DFD,,** CHAIN WORD $4$4J210600| 46723 757576067426 OCT 757576067426,314524607701 $4$4J210700| 46725 757377027573 OCT 757377027573,770375767575 4J210800| 46727 761423432160 OCT 761423432160,253301606060 4J210900| 46731 606075767575 OCT 606075767575 4J211000 46732 761174242644 OCT 761174242644,476000730475 4J211100| 46734 767703757576 OCT 767703757576,062167636073 4J211200| 46736 047576757760 OCT 047576757760 4J211300| | * DFDP AND DFDH 4J211500 * GENERAL FORM 4J211600| * (DD OP,I,Y,T (6)4J211700| * GENERAL FORM- 4J211800| * (IFFF I,Y FOR DFDP, OP=P 4J211900| * (DFDX OP,Y,T FOR DFDH, OP=H 4J212000 * (IFTF I,Y,T 4J212100| * (XFDX T,OP I=* IF INDIRECT ADDRESS 4J212200| * (IFTT I,Y,T 4J212300| * (YFDX OP (WILL CREATE SYMBOL) 4J212400| * IFT /I/=/*/ 4J212500 * (ZFDX OP,Y,T, (WILL CREATE SYMBOL) 4J212600| | 46737 0 00000 0 46774 M.DFD PZE M.DFDP,,** CHAIN WORD (6)4J212800| 46740 757576067431 OCT 757576067431,262626607702 $4$4J212900| 46742 757377037576 OCT 757377037576,757576067424 4J213000 0BINARY CARD ID. MAPJ0408| 46744 262467607701 OCT 262467607701,757377037573 4J213100| 46746 770475767575 OCT 770475767575,760674312663 4J213200| 46750 266077027573 OCT 266077027573,770375737704 4J213300| 46752 757675757606 OCT 757675757606,746726246760 4J213400 46754 770475737701 OCT 770475737701,757675757606 4J213500| 46756 743126636360 OCT 743126636360,770275737703 4J213600| 46760 757377047576 OCT 757377047576,757576067470 4J213700| 46762 262467607701 OCT 262467607701,760260607576 4J213800| 46764 757576053126 OCT 757576053126,636061770276 4J213900 46766 056113615461 OCT 056113615461,757675757606 4J214000| 46770 747126246760 OCT 747126246760,770175737703 4J214100| 0BINARY CARD ID. MAPJ0409| 46772 757377047573 OCT 757377047573,757675776060 4J214200| *DFDP MACRO* I,Y,T (6)4J214220| * (DD P,I,Y,T (6)4J214230| 1 IBMAPV IBMAPJ 12/01/64 PAGE 240 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 46774 0 00000 1 47001 M.DFDP PZE M.DFDH,1,** CHAIN WORD (6)4J214250| 46775 757576067424 OCT 757576067424,246047737701 (6)4J214260| 46777 757377027573 OCT 757377027573,770375767577 (6)4J214270| | *DFDH MACRO* I,Y,T (6)4J214290 * (DD H,I,Y,T (6)4J214300| | 47001 0 00000 1 47006 M.DFDH PZE M.DVD1,1,** CHAIN WORD (6)4J214320| 47002 757576067424 OCT 757576067424,246030737701 (6)4J214330| 47004 757377027573 OCT 757377027573,770375767577 (6)4J214340 | * DIVIDE, FORM 1. 4J214400| * 4J214500| *(DFDX MACRO OP,Y,T 4J214600| * STQ E.1 4J214700 * FD'OP Y,T 4J214800| * STO E.2 4J214900| * STQ E.3 4J215000| * FMP Y+1,T 4J215100| * CHS 4J215200 * FAD E.2 4J215300| * FAD E.1 4J215400| * FD'OP Y,T 4J215500| * XCA 4J215600| * FAD E.3 4J215700 | 47006 0 00000 0 47042 M.DVD1 PZE M.DVD2,,** CHAIN WORD $4$4J215900| 47007 757576076263 OCT 757576076263,506025330175 $4$4J216000| 47011 767575760226 OCT 767575760226,247701756077 4J216100| 47013 027573770375 OCT 027573770375,767575760762 4J216200 47015 634660253302 OCT 634660253302,757675757607 4J216300| 47017 626350602533 OCT 626350602533,037576757576 4J216400| 0BINARY CARD ID. MAPJ0410| 47021 042644476077 OCT 042644476077,027603200173 4J216500| 47023 770375767575 OCT 770375767575,760323306275 4J216600 47025 767575760726 OCT 767575760726,212460253302 4J216700| 47027 757675757613 OCT 757675757613,262124602533,016060606075 4J216800| 47032 767575760226 OCT 767575760226,247701756077 4J216900| 47034 027573770375 OCT 027573770375,767575760367 4J217000| 47036 232175767575 OCT 232175767575,760726212460 4J217100 47040 253303757675 OCT 253303757675,776060606060 4J217200| | * DIVIDE, FORM 2. 4J217400| * 4J217500| *(XFDX MACRO T,OP 4J217600 * NOP ,T 4J217700| * STQ E.1 4J217800| * FD'OP'* *-2 4J217900| * STO E.2 4J218000| * STQ E.3 4J218100 * TXI *+1,T,-1 4J218200| * FMP* *-6 4J218300| * CHS 4J218400| * FAD E.2 4J218500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 241 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 * FAD E.1 4J218600| * TXI *+1,T,1 4J218700| * FD'OP'* *-11 4J218800| * XCA 4J218900 * FAD E.3 4J219000| | 47042 0 00000 0 47105 M.DVD2 PZE M.DVD3,,** CHAIN WORD $4$4J219200| 47043 757576054546 OCT 757576054546,476073770175 $4$4J219300| 47045 767575760762 OCT 767575760762,635060253301 4J219400 0BINARY CARD ID. MAPJ0411| 47047 757675757602 OCT 757675757602,262477027605 4J219500| 47051 546054400275 OCT 546054400275,767575760762 4J219600| 47053 634660253302 OCT 634660253302,757675757607 4J219700| 47055 626350602533 OCT 626350602533,037576757576 4J219800 47057 106367316054 OCT 106367316054,200173770176 4J219900| 47061 037340017576 OCT 037340017576,757576102644 4J220000| 47063 475460544006 OCT 475460544006,757675757603 4J220100| 47065 233062757675 OCT 233062757675,757607262124 4J220200| 47067 602533027576 OCT 602533027576,757576072621 4J220300 47071 246025330175 OCT 246025330175,767575761063 4J220400| 47073 673160542001 OCT 673160542001,737701760273 4J220500| 0BINARY CARD ID. MAPJ0412| 47075 017576757576 OCT 017576757576,022624770276 4J220600| 47077 065460544001 OCT 065460544001,017576757576 4J220700 47101 036723217576 OCT 036723217576,757576072621 4J220800| 47103 246025330375 OCT 246025330375,767577606060 4J220900| | * DIVISION, FORM 3. 4J221100| * 4J221200 *(YFDX MACRO OP,S 4J221300| * (SAV4 S 4J221400| * (DFDX OP,0,4 4J221500| * S AXT ,4 4J221600| 47105 0 00000 0 47117 M.DVD3 PZE M.DVD4,,** CHAIN WORD $4$4J221800| 47106 757576067462 OCT 757576067462,216504607702 $4$4J221900| 47110 757675757606 OCT 757675757606,742426246760 4J222000| 47112 770176047300 OCT 770176047300,730475767702 4J222100| 47114 757576062167 OCT 757576062167,636073047576,757760606060 4J222200 | * DIVIDE, FORM4. 4J222400| * 4J222500| *(ZFDX MACRO OP,Y,T,S 4J222600| * (FIND Y,T,S 4J222700 * CLA E.1 4J222800| * (DFDX OP,0,4 4J222900| * S AXT **,4 4J223000| | 47117 0 00000 0 47134 M.DVD4 PZE M.FSCA,,** CHAIN WORD (6)4J223200 47120 757576067426 OCT 757576067426,314524607702 $4$4J223300| 0BINARY CARD ID. MAPJ0413| 47122 757377037573 OCT 757377037573,770475767575 4J223400| 47124 760723432160 OCT 760723432160,253301757675 4J223500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 242 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 47126 757606742426 OCT 757606742426,246760770176 4J223600| 47130 057300730460 OCT 057300730460 4J223700| 47131 757677047575 OCT 757677047575,760621676360 4J223800| 47133 730475767577 OCT 730475767577 4J223900 | *FSCA MACRO Y,T (6)4J224100| * PXA Y,T 4J224200| * PAC 0,4 4J224300| * SXA Y,4 (6)4J224400 | 47134 0 00000 0 47145 M.FSCA PZE M.END,,** CHAIN WORD (6)4J224600| 47135 757576044767 OCT 757576044767,216077017573,770275767575 (6)4J224700| 47140 760647212360 OCT 760647212360,730475767575,760462672160 (6)4J224800| 47143 770176027304 OCT 770176027304,757675776060 (6)4J224900 | | 47145 M.END SYN * 4J228200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 243 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0| * FORTRAN MACRO EXPANSIONS 4J228400| * 4J228500| | *FTC1 MACRO X 4J228700 * IFF /X/=/.AC./ 4J228800| * CLA X 4J228900| 47145 2 00000 0 47155 FM.TC1 PTW FM.TC3,,** CHAIN WORD $4$4J229000| 47146 757576053126 OCT 757576053126,266061770176 $4$4J229100| 0BINARY CARD ID. MAPJ0414 47150 106113613321 OCT 106113613321,233361757675 4J229200| 47152 757604234321 OCT 757604234321,607701757675 4J229300| 47154 776060606060 OCT 776060606060 4J229400| | *MIN0 MACRO X,Y 4J229600 * IFT /X/=/.AC./ 4J229700| * XCA 4J229800| * IFF /X/=/.AC./ 4J229900| * LDQ X 4J230000| * IRP Y 4J230100 * CLA Y 4J230200| * TLQ *+2 4J230300| * XCA 4J230400| * IRP 4J230500| * XCA 4J230600 * ENDM *MIN0 4J230700| 47155 2 00000 0 47203 FM.TC3 PTW FM.ABS,,** CHAIN WORD $4$4J230800| 47156 757576053126 OCT 757576053126,636061770176,106113613321 $4$4J230900| 47161 233361757675 OCT 233361757675,757603672321,757675757605 4J231000| 47164 312626606177 OCT 312626606177,017610611361,332123336176 4J231100 47167 036060607576 OCT 036060607576,757576044324,506077017576 4J231200| 47172 767602757576 OCT 767602757576,042343216077,027576757576 4J231300| 47175 076343506054 OCT 076343506054,200275767575,760367232175 4J231400| 0BINARY CARD ID. MAPJ0415| 47200 767676007575 OCT 767676007575,760367232175,767577606060 (6)4J231500 | *ABS MACRO X 4J231700| * *FTC1 X 4J231800| * SSP 4J231900| 47203 2 00000 0 47211 FM.ABS PTW FM.IAB,,** CHAIN WORD $4$4J232000 47204 757576065426 OCT 757576065426,632301607701,757675757603 $4$4J232100| 47207 626247757675 OCT 626247757675,776060606060 4J232200| | *IABS MACRO X 4J232400| * *ABS= X (HANDLED BY OPN TABLE) 4J232500 47211 1 00000 0 47213 FM.IAB PON FM.AIN,,** CHAIN WORD $4$4J232600| 47212 770004720400 VFD O12/7700,3/0,15/FM.ABS+1,6/0 $4$4J232700| | *AINT MACRO X 4J232900| * *FTC1 X 4J233000 * UFA =155B8 4J233100| * FAD =155B8 4J233200| 47213 0 00000 0 47224 FM.AIN PZE FM.INT,,** CHAIN WORD $4$4J233300| 47214 757576065426 OCT 757576065426,632301607701,757675757612 $4$4J233400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 244 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 47217 642621601301 OCT 642621601301,050522107576,757576122621 4J233500| 47222 246013010505 OCT 246013010505,221075767577 4J233600| *INT MACRO X 4J233700| * *IFIX X (HANDLED BY OPN TABLE) 4J233800 0BINARY CARD ID. MAPJ0416| 47224 1 00000 0 47226 FM.INT PON FM.AMO,,** CHAIN WORD $4$4J233900| 47225 770004735600 VFD O12/7700,3/0,15/FM.IFX+1,6/0 $4$4J234000| | *AMOD MACRO X,Y 4J234200 * *FTC1 X 4J234300| * FDP Y 4J234500| * XCA 4J234600| * UFA =155B8 4J234700| * FMP Y 4J235000 47226 0 00000 0 47242 FM.AMO PZE FM.MOD,,** CHAIN WORD $4$4J235400| 47227 757576065426 OCT 757576065426,632301607701,757675757604 (6)4J235500| 47232 262447607702 OCT 262447607702,757675757603,672321757675 (6)4J235600| 47235 757612642621 OCT 757612642621,601301050522,107576757576 (6)4J235700| 47240 042644476077 OCT 042644476077,027576757760 (6)4J235800 | *MOD MACRO X 4J236400| * *FTC1 X 4J236500| * LRS 35 4J236600| * DVP Y 4J236700 47242 0 00000 0 47252 FM.MOD PZE FM.AX1,,** CHAIN WORD $4$4J236800| 47243 757576065426 OCT 757576065426,632301607701,757675757606 $4$4J236900| 47246 435162600305 OCT 435162600305,757675757604,246547607702 4J237000| 47251 757675776060 OCT 757675776060 4J237100| *AMAX1 MACRO X,Y 4J237300| * *FTC1 X 4J237400| * IRP Y 4J237500| * LDQ Y 4J237600| * TLQ *+2 4J237700 * XCA 4J237800| * IRP 4J237900| 0BINARY CARD ID. MAPJ0417| 47252 2 00000 0 47265 FM.AX1 PTW FM.X0,,** CHAIN WORD $4$4J238000| 47253 757576065426 OCT 757576065426,632301607701,760260607576 $4$4J238100 47256 767602757576 OCT 767602757576,044324506077 4J238200| 47260 027576757576 OCT 027576757576,076343506054,200275767575 4J238300| 47263 760367232175 OCT 760367232175,767676007577 (6)4J238400| | *MAX0 MACRO X,Y 4J238600 * *AMAX1 X,Y (HANDLED BY OPN TABLE) 4J238700| 47265 1 00000 0 47267 FM.X0 PON FM.AX0,,** CHAIN WORD $4$4J238800| 47266 770004725300 VFD O12/7700,3/0,15/FM.AX1+1,6/0 $4$4J238900| | *AMAX0 MACRO X,Y 4J239100 * *AMAX1 X(Y) 4J239200| * *FLOAT .AC. 4J239300| 47267 0 00000 0 47277 FM.AX0 PZE FM.MX1,,** CHAIN WORD $4$4J239400| 47270 757576075421 OCT 757576075421,442167016077,017574770275 $4$4J239500| 47273 347576757576 OCT 347576757576,135426434621,636033212333 4J239600 1 IBMAPV IBMAPJ 12/01/64 PAGE 245 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 47276 757675776060 OCT 757675776060 4J239700| | *MAX1 MACRO X,Y 4J239900 * *AMAX1 X(Y) 4J240000| * *IFIX .AC. 4J240100| 47277 0 00000 0 47310 FM.MX1 PZE FM.MN0,,** CHAIN WORD $4$4J240200| 0BINARY CARD ID. MAPJ0418| 47300 757576075421 OCT 757576075421,442167016077,017574770276 $4$4J240300 47303 043460606075 OCT 043460606075 4J240400| 47304 767575761254 OCT 767575761254,312631676033,212333757675 4J240500| 47307 776060606060 OCT 776060606060 4J240600| | *AMIN0 MACRO X,Y 4J240800 * *MIN0 X(Y) 4J240900| * *FLOAT .AC. 4J241000| 47310 0 00000 0 47321 FM.MN0 PZE FM.INO,,** CHAIN WORD $4$4J241100| 47311 757576065444 OCT 757576065444,314500607701,757477027604 $4$4J241200| 47314 346060607576 OCT 346060607576 4J241300 47315 757576135426 OCT 757576135426,434621636033,212333757675 4J241400| 47320 776060606060 OCT 776060606060 4J241500| | *AMIN1 MACRO X,Y 4J241700| * *FTC3 X,Y (HANDLED BY OPN TABLE) 4J241800 | *MINO MACRO X,Y 4J242000| * *FTC3 X,Y (HANDLED BY OPN TABLE) 4J242100| 47321 1 00000 0 47323 FM.INO PON FM.MN1,,** CHAIN WORD $4$4J242200| 47322 770004715600 VFD O12/7700,3/0,15/FM.TC3+1,6/0 $4$4J242300 | *MIN1 MACRO X,Y 4J242500| * *MIN0 X(Y) 4J242600| * *IFIX .AC. 4J242700| 47323 0 00000 0 47333 FM.MN1 PZE FM.FLT,,** CHAIN WORD $4$4J242800 47324 757576065444 OCT 757576065444,314500607701,757477027604 $4$4J242900| 0BINARY CARD ID. MAPJ0419| 47327 346060607576 OCT 346060607576 4J243000| 47330 757576125431 OCT 757576125431,263167603321,233375767577 4J243100| *FLOAT MACRO X 4J243300| * *FTC1 X 4J243400| * LRS 8 4J243500| * ORA =163B8 4J243600| * STO E.1 4J243700 * CLA =155B16 4J243800| * LLS 8 4J243900| * FAD E.1 4J244000| 47333 0 00000 0 47355 FM.FLT PZE FM.IFX,,** CHAIN WORD $4$4J244100| 47334 757576065426 OCT 757576065426,632301607701 $4$4J244200 47336 760260607576 OCT 760260607576,757576054351,626010757675 4J244300| 47341 757612465121 OCT 757612465121,601301060322,107576757576 4J244400| 47344 076263466025 OCT 076263466025,330175767575,761323432160 4J244500| 47347 130105052201 OCT 130105052201,067576757576,054343626010 4J244600| 47352 757675757607 OCT 757675757607,262124602533,017576757760 4J244700 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 246 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 *IFIX MACRO X 4J244900| * *FTC1 X 4J245000 * UFA =182B8 4J245100| * RQL 8 4J245200| * LRS 8 4J245300| * XCA 4J245400| 0BINARY CARD ID. MAPJ0420 47355 2 00000 0 47371 FM.IFX PTW FM.SGN,,** CHAIN WORD $4$4J245500| 47356 757576065426 OCT 757576065426,632301607701,757675757612 $4$4J245600| 47361 642621601301 OCT 642621601301,100222107576 4J245700| 47363 757576055150 OCT 757576055150,436010757675 4J245800| 47365 757605435162 OCT 757605435162,601075767575 4J245900 47367 760367232175 OCT 760367232175,767577606060 4J246000| | *SIGN MACRO X,Y 4J246200| * *FTC1 X 4J246300| * LDQ Y 4J246400 * LLS 0 4J246500| 47371 2 00000 0 47401 FM.SGN PTW FM.IGN,,** CHAIN WORD $4$4J246600| 47372 757576065426 OCT 757576065426,632301607701,757675757604 $4$4J246700| 47375 432450607702 OCT 432450607702,757675757605,434362600075 4J246800| 47400 767577606060 OCT 767577606060 4J246900 | *ISIGN MACRO X,Y 4J247100| * *SIGN X,Y (HANDLED BY OPN TABLE) 4J247200| 47401 1 00000 0 47403 FM.IGN PON FM.DIM,,** CHAIN WORD $4$4J247300| 0BINARY CARD ID. MAPJ0421 47402 770004737200 VFD O12/7700,3/0,15/FM.SGN+1,6/0 $4$4J247400| | *DIM MACRO X,Y 4J247600| * *FTC1 X 4J247700| * FSB Y 4J247800 * TPL *+2 4J247900| * ZAC 4J248000| 47403 0 00000 0 47415 FM.DIM PZE FM.IDM,,** CHAIN WORD $4$4J248100| 47404 757576065426 OCT 757576065426,632301607701,757675757604 $4$4J248200| 47407 266222607702 OCT 266222607702,757675757607,634743605420 4J248300 47412 027576757576 OCT 027576757576,037121237576,757760606060 4J248400| | *IDIM MACRO X,Y 4J248600| * *FTC1 X 4J248700| * SUB Y 4J248800 * TPL *+2 4J248900| * ZAC 4J249000| 47415 0 00000 0 47427 FM.IDM PZE FM.SGL,,** CHAIN WORD $4$4J249100| 47416 757576065426 OCT 757576065426,632301607701,757675757604 $4$4J249200| 47421 626422607702 OCT 626422607702,757675757607,634743605420 4J249300 47424 027576757576 OCT 027576757576,037121237576,757760606060 4J249400| | *SNGL MACRO X 4J249600| * *FTC1 X (HANDLED BY OPN TABLE) 4J249700| 47427 1 00000 0 47431 FM.SGL PON FM.REL,,** CHAIN WORD $4$4J249800 0BINARY CARD ID. MAPJ0422| 1 IBMAPV IBMAPJ 12/01/64 PAGE 247 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 47430 770004714600 VFD O12/7700,3/0,15/FM.TC1+1,6/0 $4$4J249900| *REAL MACRO X 4J250100| * *FTC1 X (HANDLED BY OPN TABLE) 4J250200| 47431 1 00000 0 47433 FM.REL PON FM.AIM,,** CHAIN WORD $4$4J250300| 47432 770004714600 VFD O12/7700,3/0,15/FM.TC1+1,6/0 $4$4J250400| *AIMAG MACRO X 4J250600| * IFF /X/=/.AC./ 4J250700| * CLA X+1 4J250800| * IFT /X/=/.AC./ 4J250900| * XCA 4J251000 47433 0 00000 0 47451 FM.AIM PZE FM.DAB,,** CHAIN WORD $4$4J251100| 47434 757576053126 OCT 757576053126,266061770176,106113613321 $4$4J251200| 47437 233361757675 OCT 233361757675,757604234321,607701760220 4J251300| 47442 017576757576 OCT 017576757576,053126636061,770176106113 4J251400| 47445 613321233361 OCT 613321233361,757675757603 4J251500 47447 672321757675 OCT 672321757675,776060606060 4J251600| | *DABS MACRO X 4J251800| * IFF /X/=/.AC./ 4J251900| * DLD X 4J252000 * SSP 4J252100| * LRS 0 4J252200| 47451 0 00000 0 47464 FM.DAB PZE FM.DX1,,** CHAIN WORD $4$4J252300| 47452 757576053126 OCT 757576053126,266061770176,106113613321 $4$4J252400| 47455 233361757675 OCT 233361757675,757604244324,607701757675 4J252500 0BINARY CARD ID. MAPJ0423| 47460 757603626247 OCT 757603626247,757675757605,435162600075 4J252600| 47463 767577606060 OCT 767577606060 4J252700| | *DMAX1 MACRO X,Y 4J252900 * IFF /X/=/.AC./ 4J253000| * DLD X 4J253100| * IRP Y 4J253200| * CAS Y 4J253300| * TRA *+7 4J253400 * TRA *+3 4J253500| * LDQ Y+1 4J253600| * TRA *+3 4J253700| * CLA Y+1 4J253800| * TLQ *-3 4J253900 * CLA Y 4J254000| * IRP 4J254100| 47464 0 00000 0 47520 FM.DX1 PZE FM.DX2,,** CHAIN WORD $4$4J254200| 47465 757576053126 OCT 757576053126,266061770176,116113613321 $4$4J254300| 47470 233361607576 OCT 233361607576 4J254400 47471 757576042443 OCT 757576042443,246077017576,767602757576 4J254500| 47474 042321626077 OCT 042321626077,027576757576,076351216054 4J254600| 47477 200775767575 OCT 200775767575,760763512160,542003757675 4J254700| 47502 757604432450 OCT 757604432450,607702760720 4J254800| 0BINARY CARD ID. MAPJ0424 47504 016060606060 OCT 016060606060,757675757607 4J254900| 47506 635121605420 OCT 635121605420,037576757576,042343216077 4J255000| 1 IBMAPV IBMAPJ 12/01/64 PAGE 248 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 47511 027602200175 OCT 027602200175,767575760763,435060544003 4J255100 47514 757675757604 OCT 757675757604,234321607702 4J255200| 47516 757676760075 OCT 757676760075,776060606060 (6)4J255300| | *DMIN1 MACRO X,Y 4J255500| * IFF /X/=/.AC./ 4J255600 * DLD X 4J255700| * IRP Y 4J255800| * CAS Y 4J255900| * TRA *+5 4J256000| * TRA *+2 4J256100 * TRA *+5 4J256200| * CLA Y+1 4J256300| * TLQ *+2 4J256400| * LDQ Y+1 4J256500| * CLA Y 4J256600 * IRP 4J256700| 47520 0 00000 0 47553 FM.DX2 PZE FM.IDX,,** CHAIN WORD $4$4J256800| 47521 757576053126 OCT 757576053126,266061770176 $4$4J256900| 47523 116113613321 OCT 116113613321,233361607576 4J257000| 47525 757576042443 OCT 757576042443,246077017576,767602757576 4J257100 47530 042321626077 OCT 042321626077,027576757576,076351216054 4J257200| 0BINARY CARD ID. MAPJ0425| 47533 200575767575 OCT 200575767575,760763512160,542002757675 4J257300| 47536 757607635121 OCT 757607635121,605420057576,757576042343 4J257400| 47541 216077027602 OCT 216077027602,200175767575,760763435060 4J257500 47544 542002757675 OCT 542002757675,757604432450,607702760220 4J257600| 47547 017576757576 OCT 017576757576,042343216077 4J257700| 47551 027576767600 OCT 027576767600,757760606060 (6)4J257800| | *IDINT MACRO X 4J258000 * IFT /X/=/.AC./ 4J258100| * STQ E.1 4J258200| * *FTC1 X 4J258300| * UFA =182B8 4J258400| * STO E.2 4J258500 * XCA 4J258600| * IFF /X/=/.AC./ 4J258700| * UFA X+1 4J258800| * IFT /X/=/.AC./ 4J258900| * UFA E.1 4J259000 * XCA 4J259100| * RQL 8 4J259200| * CLA E.2 4J259300| * LRS 8 4J259400| * XCA 4J259500 47553 0 00000 0 47621 FM.IDX PZE FM.DSN,,** CHAIN WORD $4$4J259600| 47554 757576053126 OCT 757576053126,636061770176,106113613321 $4$4J259700| 47557 233361757675 OCT 233361757675,757607626350,602533017576 4J259800| 0BINARY CARD ID. MAPJ0426| 47562 757576065426 OCT 757576065426,632301607701,757675757612 4J259900 47565 642621601301 OCT 642621601301,100222107576,757576076263 4J260000| 47570 466025330275 OCT 466025330275,767575760367,232175767575 4J260100| 47573 760531262660 OCT 760531262660,617701761061,136133212333 4J260200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 249 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0 47576 617576757576 OCT 617576757576,046426216077,017602200175 4J260300| 47601 767575760531 OCT 767575760531,266360617701,761061136133 4J260400| 47604 212333617576 OCT 212333617576,757576076426,216025330175 4J260500| 0BINARY CARD ID. MAPJ0427| 47607 767575760367 OCT 767575760367,232175767575,760551504360 4J260600 47612 107576757576 OCT 107576757576,072343216025,330275767575 4J260700| 47615 760543516260 OCT 760543516260,107576757576 4J260800| 47617 036723217576 OCT 036723217576,757760606060 4J260900| | *DSIGN MACRO X,Y 4J261100 * *FTC1 X 4J261200| * IFT /X/=/.AC./ 4J261300| * STQ E.1 4J261400| * LDQ Y 4J261500| * LLS 0 4J261600 * IFF /X/=/.AC./ 4J261700| * LDQ X+1 4J261800| * IFT /X/=/.AC./ 4J261900| * LDQ E.1 4J262000| * LRS 0 4J262100 47621 0 00000 0 47655 FM.DSN PZE FM.DLE,,** CHAIN WORD $4$4J262200| 47622 757576065426 OCT 757576065426,632301607701,757675757605 $4$4J262300| 47625 312663606177 OCT 312663606177,017610611361,332123336175 4J262400| 47630 767575760762 OCT 767575760762,635060253301,757675757604 4J262500| 47633 432450607702 OCT 432450607702,757675757605,434362600075 4J262600 0BINARY CARD ID. MAPJ0428| 47636 767575760531 OCT 767575760531,262660617701,761061136133 4J262700| 47641 212333617576 OCT 212333617576,757576044324,506077017602 4J262800| 47644 200175767575 OCT 200175767575,760531266360,617701761061 4J262900| 47647 136133212333 OCT 136133212333,617576757576,074324506025 4J263000 47652 330175767575 OCT 330175767575,760543516260,007576757760 4J263100| | *DBLE MACRO X 4J263300| * *CMPLX X,=0 4J263400| 47655 0 00000 0 47662 FM.DLE PZE FM.CMP,,** CHAIN WORD $4$4J263500 47656 757576105423 OCT 757576105423,444743676060,770176037313 $4$4J263600| 47661 007576757760 OCT 007576757760 4J263700| | *CMPLX MACRO X,Y 4J263900| * *FTC1 X 4J264000 * LDQ Y 4J264100| 0BINARY CARD ID. MAPJ0429| 47662 0 00000 0 47670 FM.CMP PZE FM.CNJ,,** CHAIN WORD $4$4J264200| 47663 757576065426 OCT 757576065426,632301607701,757675757604 $4$4J264300| 47666 432450607702 OCT 432450607702,757675776060 4J264400 | *CONJG MACRO X 4J264600| * IFT /X/=/.AC./ 4J264700| * XCA 4J264800| * IFF /X/=/.AC./ 4J264900 * CLA X+1 4J265000| * IFF /X/=/.AC./ 4J265100| * LDQ X 4J265200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 250 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0 * CHS 4J265300| * XCA 4J265400| 47670 0 00000 0 47716 FM.CNJ PZE FM.BOL,,** CHAIN WORD $4$4J265500| 47671 757576053126 OCT 757576053126,636061770176,106113613321 $4$4J265600| 47674 233361757675 OCT 233361757675,757603672321,757675757605 4J265700 47677 312626606177 OCT 312626606177,017610611361,332123336175 4J265800| 47702 767575760423 OCT 767575760423,432160770176,022001757675 4J265900| 47705 757605312626 OCT 757605312626,606177017610,611361332123 4J266000| 0BINARY CARD ID. MAPJ0430| 47710 336175767575 OCT 336175767575,760443245060,770175767575 4J266100 47713 760323306275 OCT 760323306275,767575760367,232175767577 4J266200| | *BOOL MACRO X 4J266400| * *FTC1 X 4J266500| * XCA 4J266600 * XCL 4J266700| 47716 0 00000 0 47725 FM.BOL PZE FM.AND,,** CHAIN WORD $4$4J266800| 47717 757576065426 OCT 757576065426,632301607701,757675757603 $4$4J266900| 47722 672321757675 OCT 672321757675,757603672343,757675776060 4J267000| *AND MACRO X,Y 4J267200| * *BOOL X 4J267300| * ANA Y 4J267400| * XCL 4J267500| * XCA 4J267600 47725 0 00000 0 47736 FM.AND PZE FM.OR,,** CHAIN WORD $4$4J267700| 47726 757576065422 OCT 757576065422,464643607701,757675757604 $4$4J267800| 47731 214521607702 OCT 214521607702,757675757603,672343757675 4J267900| 47734 757603672321 OCT 757603672321,757675776060 4J268000| *OR MACRO X,Y 4J268200| * *BOOL X 4J268300| * ORA Y 4J268400| * XCL 4J268500| * XCA 4J268600 0BINARY CARD ID. MAPJ0431| 47736 0 00000 0 47747 FM.OR PZE FM.COM,,** CHAIN WORD $4$4J268700| 47737 757576065422 OCT 757576065422,464643607701,757675757604 $4$4J268800| 47742 465121607702 OCT 465121607702,757675757603,672343757675 4J268900| 47745 757603672321 OCT 757603672321,757675776060 4J269000 | *COM MACRO X 4J269200| * *BOOL X 4J269300| * COM 4J269400| * XCL 4J269500 * XCA 4J269600| 47747 0 00000 0 47760 FM.COM PZE FM.CX1,,** CHAIN WORD $4$4J269700| 47750 757576065422 OCT 757576065422,464643607701,757675757603 $4$4J269800| 47753 234644757675 OCT 234644757675,757603672343,757675757603 4J269900| 47756 672321757675 OCT 672321757675,776060606060 4J270000 | *CXAS. MACRO Y,T,O,Z,Q 4J270200| * IFT /Y/=/**/ 4J270300| * NOP **,T 4J270400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 251 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 * IFT T=0,AND 4J270500| * IFT /Y/=/**/ 4J270600| * SXA *+9,4 4J270700| * IFT T=0,AND 4J270800 * IFT /Y/=/**/ 4J270900| * LAC *-2,4 4J271000| * STQ E.1 4J271100| * F'O Z 4J271200| * STO E.2 4J271300 * CLA E.1 4J271400| * IFF T=0,AND 4J271500| * IFT /Y/=/**/ 4J271600| * TXI *+1,T,-1 4J271700| * F'O Q 4J271800 * IFF T=0,AND 4J271900| * IFT /Y/=/**/ 4J272000| * TXI *+1,T,1 4J272100| * XCA 4J272200| * CLA E.2 4J272300 * IFT T=0,AND 4J272400| * IFT /Y/=/**/ 4J272500| * AXT **,4 4J272600| * ENDM CXAS. 4J272700| 47760 0 00000 0 50067 FM.CX1 PZE FM.CX2,,** CHAIN WORD $4$4J272800 47761 757576053126 OCT 757576053126,636061770176,066113615454 $4$4J272900| 0BINARY CARD ID. MAPJ0432| 47764 617576757576 OCT 617576757576,074546476054 4J273000| 47766 547377027560 OCT 547377027560,757675757604 4J273100| 47770 312663607702 OCT 312663607702,760613007321 4J273200 47772 452475767575 OCT 452475767575,760531266360,617701760661 4J273300| 47775 136154546175 OCT 136154546175,767575761162,672160542011 4J273400| 50000 730475767575 OCT 730475767575,760431266360,770276061300 4J273500| 50003 732145247576 OCT 732145247576,757576053126,636061770176 4J273600| 50006 066113615454 OCT 066113615454,617576757576,114321236054 4J273700 50011 400273047576 OCT 400273047576,757576076263,506025330175 4J273800| 0BINARY CARD ID. MAPJ0433| 50014 767575752677 OCT 767575752677,037560770475,767575760762 4J273900| 50017 634660253302 OCT 634660253302,757675757607,234321602533 4J274000| 50022 017576757576 OCT 017576757576,043126266077,027606130073 4J274100 50025 214524757675 OCT 214524757675,757605312663,606177017606 4J274200| 50030 611361545461 OCT 611361545461 4J274300| 50031 757675757610 OCT 757675757610,636731605420,017377027603 4J274400| 50034 734001757675 OCT 734001757675,757526770375,607705757675 4J274500| 50037 757604312626 OCT 757604312626,607702760613 4J274600 0BINARY CARD ID. MAPJ0434| 50041 007321452476 OCT 007321452476,036060607576 4J274700| 50043 757576053126 OCT 757576053126,636061770176,066113615454 4J274800| 50046 617576757576 OCT 617576757576,106367316054,200173770276 4J274900| 50051 027301757675 OCT 027301757675,757603672321,757675757607 4J275000 50054 234321602533 OCT 234321602533,027576757576,043126636077 4J275100| 50057 027606130073 OCT 027606130073,214524757675,757605312663 4J275200| 50062 606177017606 OCT 606177017606,611361545461,757675757610 4J275300| 50065 216763605454 OCT 216763605454,730475767577 4J275400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 252 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 | *.CXAS MACRO Y,T,AS 4J275600| * IFT /Y/=/**/,AND 4J275700| * IFT T=0 4J275800 * CXAS. **,0,AS,(0,4),(1,4) 4J275900| * IFT /Y/=/**/,AND 4J276000| * IFF T=0 4J276100| * CXAS. **,T,AS*,*-2,*-6 4J276200| * IFF /Y/=/**/,AND 4J276300 * IFT T=0 4J276400| * CXAS. Y,0,AS,Y,Y+1 4J276500| * IFF /Y/=/**/,AND 4J276600| * IFF T=0 4J276700| * CXAS. Y,T,AS,(Y,T),(Y+1,T) 4J276800 * ENDM .CXAS 4J276900| 0BINARY CARD ID. MAPJ0435| 50067 0 00000 0 50154 FM.CX2 PZE FM.CXA,,** CHAIN WORD $4$4J277000| 50070 757576053126 OCT 757576053126,636061770176,126113615454 $4$4J277100| 50073 617321452475 OCT 617321452475,767575760431,266360770276 4J277200 50076 021300757675 OCT 021300757675,757613236721,623360545473 4J277300| 50101 007377037614 OCT 007377037614,737400730434,737401730434 4J277400| 50104 757675757605 OCT 757675757605,312663606177,017612611361 4J277500| 50107 545461732145 OCT 545461732145,247576757576,043126266077 4J277600| 50112 027602130075 OCT 027602130075,767575761123,672162336054 4J277700 0BINARY CARD ID. MAPJ0436| 50115 547377027573 OCT 547377027573,770376115473,544002735440 4J277800| 50120 067576757576 OCT 067576757576,053126266061,770176126113 4J277900| 50123 615454617321 OCT 615454617321,452475767575,760431266360 4J278000| 50126 770276021300 OCT 770276021300,757675757606,236721623360 4J278100 50131 770176037300 OCT 770176037300,737703757377,017573770176 4J278200| 50134 022001757675 OCT 022001757675,757605312626,606177017612 4J278300| 50137 611361545461 OCT 611361545461,732145247576,757576043126 4J278400| 0BINARY CARD ID. MAPJ0437| 50142 266077027602 OCT 266077027602,130075767575,760623672162 4J278500 50145 336077017573 OCT 336077017573,770275737703,757477017573 4J278600| 50150 770276023474 OCT 770276023474,770176032001 4J278700| 50152 737702753475 OCT 737702753475,767577606060 4J278800| | *CXAD MACRO Y,T 4J279000 * .CXAS Y,T,AD 4J279100| * ENDM CXAD 4J279200| 50154 0 00000 0 50162 FM.CXA PZE FM.CXS,,** CHAIN WORD $4$4J279300| 50155 757576063323 OCT 757576063323,672162607701,757377027603 $4$4J279400| 50160 732124757675 OCT 732124757675,776060606060 4J279500 | *CXSB MACRO Y,T 4J279700| * .CXAS Y,T,SB 4J279800| * ENDM CXSB 4J279900| 50162 0 00000 0 50170 FM.CXS PZE FM.END,,** CHAIN WORD $4$4J280000 50163 757576063323 OCT 757576063323,672162607701,757377027603 $4$4J280100| 50166 736222757675 OCT 736222757675,776060606060 4J280200| | | 1 IBMAPV IBMAPJ 12/01/64 PAGE 253 MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ | 0 50170 FM.END EQU * 4J280400| | | * MACRO CALL PUSH DOWN LIST. IF MACRO HAS N 4J280600| * PARAMETERS, EACH ENTRY IS N+3 WORDS FORMAT IS- 4J280700| * 4J280800| * PZE L(PREVIOUS.ENTRY),,L(NEXT.ENTRY) 4J280900| * CONTENTS.OF.CELL.MCRES.AT.DOWN.PUSH 4J281000 * CONTENTS.OF.CELL.MCCTX.AT.DOWN.PUSH. 4J281100| * PZE L(BCD),,NO.CHARS (P1 POINTER) 4J281200| * . 4J281300| * . 4J281400| * PZE L(BCD),,NO.CHARS (PN POINTER) 4J281500 * 4J281600| * THIS LIST IS STORED BACKWARD, STARTING AT THE END OF 4J281700| * THE MACRO SKELETON TABLE, WITH WHICH IT SHARES STORAGE. 4J281800| * 4J281900| * AN IRP IS TREATED LIKE A MACRO CALL, EXCEPT THAT THE 4J282000 * FIRST WORD IS REPLACED BY TWO OF THE FORM- 4J282100| * 4J282200| * PZE LOC-PAR.NO,,EXPANSION.COUNT (6)4J282300| * PZE L(BCD),,NO.CHARS (ORIGINAL PARAM) 4J282400| * 4J282500 * WHERE LOC-PAR.NO LOCATES THE ORIGINAL IRP PARAMETER, 4J282600| * AND THE LAST WORD IS OF THE FORM 4J282700| * 4J282800| * PZE -L(CURRENT.SUB.PARAM),,L(ORIG.NEXT.ENTRY) 4J282900| 52027 ORG MACBFE-1 4J283100| 0BINARY CARD ID. MAPJ0438| 52027 0 52024 0 00000 MPPDL PZE 0,,*-3 4J283300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 254 | MACRO SKELETON TABLE PHASE 1 - RECORD IBMAPJ 0| * INITIAL VALUES FOR TABLES 4J283600| | 52530 ORG PDLST 4J283800| 0BINARY CARD ID. MAPJ0439 52530 050000021470 VFD 6/5,30/DPQL 4J283900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 255 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * INITIALIZATION ROUTINE, OVERLAYED BY INTERNAL DICTIONARY 4J284100 * FUNCTIONS- 4J284200| * 4J284300| * 1. FILE BLOCK TAPE ASSIGNMENTS, 4J284400| * 2. BUFFER POOL DEFINITION, 4J284500| * 3. CONTROL CARD INTERPRETATION. 4J284600 | 66740 ORG DDCHN 4J284800| | INITIALIZE FILE BLOCKS 4J285000| 0BINARY CARD ID. MAPJ0440 66740 0534 00 2 21236 IBMBEG LXA IBJCOR,2 SET UP 4J285100| 66741 4634 00 2 34673 SXD CKTBLF,2 FOR VARIABLE SIZE 4J285300| 66742 4754 00 2 00000 PXD ,2 4J285400| 66743 1 77777 2 66744 TXI *+1,2,-1 $5$4J285410| 66744 0634 00 2 21473 SXA INLMX,2 TABLE END $5$4J285420 66745 0771 00 0 00003 ARS 3 4J285500| 66746 4602 00 0 21470 ORS DPQL 4J285600| 66747 0634 00 4 21234 SXA SYSLOC,4 $5$4J285700| 66750 0634 00 4 21412 SXA LINKER,4 SET LINKAGE DIRECTOR $5$4J285800| 66751 0535 00 4 21234 LAC SYSLOC,4 $5$4J285900 66752 1 00001 4 66753 TXI *+1,4,1 AND $5$4J286000| 66753 0634 00 4 21772 SXA MAPEXX,4 RETURN $5$4J286100| | 66754 0774 00 1 04030 AXT TBLNTH,1 (6)4J286120| 66755 0600 00 1 62710 STZ NMCHN+TBLNTH,1 CLEAR EXTERNAL NAME (6)4J286130 66756 0600 00 1 66740 STZ NMCHN+2*TBLNTH,1 DICTIONARY (6)4J286140| 66757 0600 00 1 56660 STZ HASHT+TBLNTH,1 AND HASH TABLE (6)4J286150| 66760 2 00001 1 66755 TIX *-3,1,1 (6)4J286160| | 11772, 66761 0074 00 4 21255 CALL JOBIN READ FIRST CARD $5$4J286200 66764 0601 00 0 21447 STO GTPRA 4J286400| 66765 4500 60 0 21447 CAL* GTPRA 4J286500| 0BINARY CARD ID. MAPJ0441| 66766 0774 00 2 00000 AXT 0,2 4J286600| 66767 4340 00 2 67565 IBMBA LAS CTASSP,2 FIND TYPE 4J286700 66770 1 77777 2 66773 TXI *+3,2,-1 OF SUBSYSTEM 4J286800| 66771 0020 00 0 66774 TRA *+3 ENTRY CARD 4J286900| 66772 1 77777 2 66773 TXI *+1,2,-1 4J287000| 66773 3 77775 2 66767 TXH IBMBA,2,CTASSP-CTASSE 4J287100| 66774 7 77775 2 66776 TXL *+2,2,CTASSP-CTASSE 4J287200 66775 0602 00 0 21423 SLW SWCPIN 4J287300| | DEFINE BUFFER POOLS AND ATTACH FILES 4J287500| 66776 0500 00 0 67743 CLA CTAUNC ASSIGN UNIT VALUES 4J287600| 66777 0074 00 4 67264 TSX UNITAS,4 TO TAPES. 4J287700 67000 0074 00 4 21347 TSX DEFINE,4 DEFINE BIG BUFFER POOL 4J287800| 67001 0 00000 0 22060 PZE BIGBUF 4J287900| 67002 0 00345 0 00002 PZE NUMBBF,,BBFSZE 4J288000| 67003 0074 00 4 21353 TSX ATTACH,4 ATTACH FILES TO BIG BUFFER POOL 4J288100| 67004 0 00000 0 22060 PZE BIGBUF 4J288200 67005 0 00002 0 21732 PZE CTLLBL,,CTLLBE-CTLLBL-1 4J288300| 67006 0074 00 4 21347 TSX DEFINE,4 DEFINE LITTLE BUFFER POOL 4J288400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 256 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67007 0 00000 0 23000 PZE LILBUF 4J288500 67010 0 00114 0 00022 PZE NUMLBF,,LBFSZE 4J288600| 67011 0074 00 4 21353 TSX ATTACH,4 ATTACH FILES TO LITTLE BUFFER POOL 4J288700| 67012 0 00000 0 23000 PZE LILBUF 4J288800| 67013 0 00011 0 21735 PZE CTLBFL,,CTTRIK-CTLBFL-2 4J288900| INITIALIZE TAPES 4J289100| 0BINARY CARD ID. MAPJ0442| 67014 0074 00 4 37001 TSX CDXIN,4 SET TO SCAN CARD 4J289200| 67015 0520 00 0 21423 ZET SWCPIN 4J289300| 67016 0020 00 0 67021 TRA *+3 4J289400 67017 0074 00 4 00704 TSX .NDSEL,4 IF SOURCE INPUT, $5$4J289500| 67020 0 00003 0 21500 PZE CTUTO,,3 REWIND SPILL TAPE 4J289600| 67021 0074 00 4 00704 TSX .NDSEL,4 REWIND SECOND $5$4J289700| 67022 0 00003 0 21530 PZE CTWOTW,,3 OUTPUT TAPE 4J289800| 67023 4754 00 0 00000 PXD 0,0 4J289900 67024 0074 00 4 00117 TSX SYSIDR,4 GO TO ACCOUNTING 4J290000| 67025 1 00001 2 21462 PON OPER,2,1 ROUTINE 4J290100| 67026 0120 00 0 67035 TPL IBMBB 4J290200| | 67027 0074 00 4 25744 TSX PRINT,4 IF ERROR- 4J290400 67030 0020 00 0 67035 TRA IBMBB $4$4J290500| 67031 0 00000 0 00002 PZE 2 'ACCOUNTING ROUTINE ERROR. 4J290600| 67032 2 00005 0 67744 PTW CTAM01,,5 ASSEMBLY DISCONTINUED.' 4J290700| 67033 0 00004 0 22046 PZE KSP.2,,4 4J290800| 67034 0020 00 0 22021 TRA KPOUT 4J290900 | 67035 0074 00 4 21357 IBMBB TSX OPEN,4 OPEN FIRST OUTPUT 4J291100| 67036 0 00000 0 21514 PZE CTWOHO 4J291200| | PROCESS CONTROL CARD OPTIONS 4J291400 67037 0020 60 2 67040 TRA* *+1,2 BRANCH TO PROCESS 4J291500| 67040 0 00000 0 67072 PZE IBMBF $IBMAP CARD 4J291600| 67041 0 00000 0 67054 PZE IBMBC $IBFTC CARD 4J291700| 0BINARY CARD ID. MAPJ0443| 67042 0 00000 0 67057 PZE IBMBD $IBCBC CARD 4J291800 67043 0 00000 0 67044 PZE *+1 NO CONTROL CARD 4J291900| | 67044 0074 00 4 25744 TSX PRINT,4 IF NO CONTROL CARD, 4J292100| 67045 0020 00 0 67050 TRA *+3 $4$4J292200| 67046 0 00000 0 00001 PZE 1 PRINT ON AND OFF LINE- 4J292300 67047 1 00011 0 67751 PON CTAM02,,9 4J292400| 67050 0074 00 4 00706 TSX .MWR,4 'CONTROL CARD MISSING $5$4J292500| 67051 0 00000 0 00001 PZE 1 STANDARD $IBMAP OPTIONS 4J292600| 67052 0 00011 0 67751 PZE CTAM02,,9 ASSUMED' 4J292700| 67053 0020 00 0 67151 TRA CTASCC+1 4J292800 | 67054 0774 00 4 67565 IBMBC AXT FTCSPE,4 SET FORTRAN 4J293000| 67055 0774 00 1 00104 AXT FTCSPE-FTCSPM,1 SOURCE FOR SCAN 4J293100| 67056 0020 00 0 67061 TRA IBMBE 4J293200| 67057 0774 00 4 67565 IBMBD AXT CBCSPE,4 SET COBOL 4J293400| 67060 0774 00 1 00104 AXT CBCSPE-CBCSPM,1 SOURCE FOR SCAN 4J293500| 67061 0754 00 0 00000 IBMBE PXA 0,0 FOR COMPILER INPUT, 4J293600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 257 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 67062 0760 00 0 00006 COM SET INFINITE 4J293700| 67063 0601 00 0 21431 STO SWCCT CARD COUNT, AND 4J293800| 67064 4625 00 0 21420 STL CTLIST NO LIST STANDARD 4J293900| 67065 0601 00 0 21427 STO SWREF RESET REF, LNREF (6)4J294000| 67066 0774 00 2 21774 AXT KSPILL,2 SET FOR SPILL 4J294100 67067 4634 00 2 26053 SXD INWRO,2 4J294200| 0BINARY CARD ID. MAPJ0444| 67070 4625 00 0 21472 STL 3PER SET FOR COMPILER LIST 4J294300| 67071 0020 00 0 67075 TRA IBMBG 4J294400| 67072 0774 00 4 67565 IBMBF AXT CTASPE,4 SET SOURCE INPUT 4J294600| 67073 0774 00 1 00104 AXT CTASPE-CTASPM,1 FOR SCAN 4J294700| 67074 0600 00 0 21472 STZ 3PER SET FOR FULL LIST MODE 4J294800| 67075 0634 00 1 67133 IBMBG SXA CTASCA,1 PLACE SOURCE 4J294900| 67076 0634 00 4 67134 SXA CTASCB,4 INTO SEARCH 4J295000 67077 1 00001 4 67100 TXI *+1,4,1 ROUTINE 4J295100| 67100 0634 00 4 67136 SXA CTASCD,4 4J295200| | 67101 4500 00 0 21462 CAL OPER SAVE JOB NAME FOR 4J295400| 67102 0602 00 0 21435 SLW JBNAME PUNCH DECK 4J295500 67103 0560 00 0 36253 LDQ BLANKS SET UP 4J295600| 67104 4765 00 0 00006 LGR 6 DECK 4J295700| 67105 4600 00 0 41500 STQ F.IMG+2 NAME FOR 4J295800| 67106 0044 00 0 00000 PAI $IBLDR CARD 4J295900| 67107 4055 00 600000 SIL 600000 4J296000 67110 0604 00 0 41477 STI F.IMG+1 4J296100| 67111 4765 00 0 00006 LGR 6 SETUP INITIAL 4J296200| 67112 0560 00 0 21704 LDQ L(0) CARD SEQUENCE 4J296300| 67113 4763 00 0 00014 LGL 12 NUMBER 4J296400| 67114 0602 00 0 21440 SLW CDSEQ 4J296500 67115 4500 00 0 21240 CAL IBJCOM+4 PUT (6)4J296510| 0BINARY CARD ID. MAPJ0445| 67116 0602 00 0 41510 SLW F.IMG+10 DATE (6)4J296520| 67117 4500 00 0 21241 CAL IBJCOM+5 INTO (6)4J296530| 67120 0602 00 0 41511 SLW F.IMG+11 $IBLDR (6)4J296540 67121 0774 00 4 00007 AXT 7,4 CARD (6)4J296550| 67122 4500 00 0 36253 CAL BLANKS (6)4J296560| 67123 0602 00 4 41510 SLW F.IMG+3+7,4 (6)4J296570| 67124 2 00001 4 67123 TIX *-1,4,1 (6)4J296580| SCAN CONTROL CARD 4J296700| 67125 0074 00 4 36657 CTASCL TSX SSCAN,4 SCAN FOR NEXT 4J297000| 67126 4054 00 001200 LFT CMB+EQB (6)4J297100| 67127 4734 00 2 00000 PDX 0,2 ADDRESS 4J297200| 67130 0737 00 4 00000 PAC 0,4 AND COUNT 4J297300 67131 7 00000 2 67150 TXL CTASCC,2,0 SKIP SEARCH IF NO LENGTH 4J297400| 67132 4500 00 4 00000 CAL 0,4 4J297500| 67133 0774 00 4 00000 CTASCA AXT **,4 SEARCH OPTION 4J297600| 67134 4340 00 4 00000 CTASCB LAS **,4 TABLE 4J297700| 67135 0020 00 0 67137 TRA *+2 4J297800 67136 0020 60 4 00000 CTASCD TRA* **,4 A HIT 4J297900| 67137 2 00002 4 67134 TIX CTASCB,4,2 TRY AGAIN 4J298000| | 67140 0520 00 0 21423 ZET SWCPIN IGNORE IF 4J298200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 258 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67141 0020 00 0 67150 TRA CTASCC NOT $IBMAP CARD 4J298300| 67142 4057 00 001003 RIL CMB+NMB+DCB OTHERWISE, TEST 4J298400| 67143 4054 00 037777 LFT ALLBT FOR NUMERIC 4J298500| 0BINARY CARD ID. MAPJ0446 67144 0020 00 0 67150 TRA CTASCC FIELD 4J298600| 67145 4130 00 0 00000 XCL IF SO, CONVERT 4J298700| 67146 0074 00 4 37237 TSX CV.10,4 TO BINARY AND 4J298800| 67147 0621 00 0 21431 STA SWCCT SET AS COUNT 4J298900| 67150 3 00000 1 67125 CTASCC TXH CTASCL,1,0 CONTINUE IF NOT BLANK 4J299100| 67151 0074 00 4 35175 TSX IREAD,4 GET NEXT CARD 4J299200| 67152 0 00000 0 27136 EOFERR (6)4J299300| 67153 0074 00 4 37001 TSX CDXIN,4 AND SCAN ITS OPERATION CODE (6)4J299400| 67154 0520 00 0 73541 CTASCZ ZET JBSSW HAVE JOB SYMBOLS BEEN REQUESTED $5$4J299420 67155 0520 00 0 21426 ZET SWABS IN RELMOD ASSEMBLY $5$4J299430| 67156 0020 00 0 67164 TRA CTAECC NO, CONTINUE $5$4J299440| 67157 0600 00 0 73541 STZ JBSSW YES,IGNORE REQUEST $5$4J299450| 67160 0074 00 4 25744 TSX PRINT,4 $5$4J299460| 67161 0020 00 0 67164 TRA *+3 PRINT OFFLINE 'SYSTEM SYMBOL REQ. $5$4J299470 67162 0 00000 0 00001 PZE 1 IGNORED IN RELMOD ASSEMBLY' $5$4J299480| 67163 1 00012 0 67777 PON CTAM09,,10 $5$4J299490| 67164 4500 00 0 67773 CTAECC CAL CTAM04 SET INITIAL PRINT 4J299500| 67165 0520 00 0 21424 ZET SWC94 4J299600| 67166 0602 00 0 67762 SLW CTAM03 -7094 4J299700 67167 4500 00 0 67774 CAL CTAM05 4J299800| 67170 0520 00 0 21425 ZET SWMOD 4J299900| 67171 0602 00 0 67763 SLW CTAM03+1 -ABSMOD 4J300000| 0BINARY CARD ID. MAPJ0447| 67172 4774 00 4 00004 AXC 4,4 SET COUNT 4J300100 67173 0520 00 0 21423 ZET SWCPIN FOR SUBHEADING 4J300200| 67174 4774 00 4 00011 AXC 9,4 4J300300| 67175 4634 00 4 67214 SXD CTAECE,4 4J300400| 67176 4535 00 4 21264 LDC SYSSHD,4 SET TOTAL 4J300500| 67177 3 77762 4 67201 TXH *+2,4,-14 SUBHEAD COUNT 4J300600 67200 0774 00 4 77762 AXT -14,4 4J300700| 67201 4634 00 4 67221 SXD CTAECF,4 4J300800| 67202 0535 00 4 21264 LAC SYSSHD,4 LOC OF SUBHEADING 4J300900| 67203 0774 00 1 00000 AXT 0,1 POSITION 4J301000| 67204 4774 00 2 67762 AXC CTAM03,2 WORDS FOR SUBHEAD 4J301100 67205 0520 00 0 21426 ZET SWABS BLANK SUBHEADING 4J301200| 67206 0020 00 0 67215 TRA CTAECE+1 FOR ABSMOD ASSEMBLY 4J301300| 67207 0500 00 2 00000 CTAECD CLA 0,2 PLACE WORDS 4J301400| 67210 0601 00 4 00000 STO 0,4 IN SUBHEAD 4J301500| 67211 1 77777 4 67212 TXI *+1,4,-1 4J301600 67212 1 77777 2 67213 TXI *+1,2,-1 4J301700| 67213 1 77777 1 67214 TXI *+1,1,-1 4J301800| 67214 3 00000 1 67207 CTAECE TXH CTAECD,1,** 4J301900| 67215 4500 00 0 36253 CAL BLANKS FILL REMAINDER 4J302000| 67216 0602 00 4 00000 SLW 0,4 WITH BLANKS 4J302100 67217 1 77777 4 67220 TXI *+1,4,-1 4J302200| 0BINARY CARD ID. MAPJ0448| 67220 1 77777 1 67221 TXI *+1,1,-1 4J302300| 67221 3 00000 1 67216 CTAECF TXH *-3,1,** 4J302400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 259 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67222 0520 00 0 73543 ZET SKWD SHOULD OP CODES BE SKIPPED (6)4J302410| 67223 0020 00 0 67227 TRA *+4 YES (6)4J302420| 67224 0774 00 4 00022 AXT SKWDS,4 NO, CLEAR TABLE (6)4J302430| 67225 0600 00 4 73566 STZ SKTBL+SKWDS,4 (6)4J302440 67226 2 00001 4 67225 TIX *-1,4,1 (6)4J302450| 67227 4520 00 0 21426 NZT SWABS 4J302500| 67230 0020 00 0 67234 TRA *+4 IF ABS ASSEMBLY 4J302600| 67231 4500 00 0 21462 CAL OPER DO NOT EJECT 4J302700| 67232 0322 00 0 67776 ERA CTAM08 PAGE IF TTL 4J302800 67233 0100 00 0 73221 TZE MAPBEG IS FIRST CARD 4J302900| 67234 4520 00 0 21420 NZT CTLIST DON'T EJECT IF NOLIST IN EFFECT $5$4J302990| 67235 0074 00 4 25744 TSX PRINT,4 EJECT 4J303000| 67236 0020 00 0 67241 TRA *+3 $4$4J303100| 67237 0 00000 0 00001 PZE 1 PAGE 4J303200 67240 1 00000 1 00000 PON 0,1,0 4J303300| 67241 0520 00 0 21426 ZET SWABS TO SUPERVISOR 4J303400| 67242 0020 00 0 73221 TRA MAPBEG IF ABS ASSEMBLY 4J303500| 67243 4500 00 0 67775 CAL CTAM06 INITIALIZE 4J303600| 67244 0602 00 0 41476 SLW F.IMG $IBLDR CARD 4J303700 67245 4774 00 4 41511 AXC F.IMG+11,4 PRINT AND (6)4J303800| 0BINARY CARD ID. MAPJ0449| 67246 0774 00 1 00000 AXT 0,1 SAVE CARD FOR (6)4J303900| 67247 0074 00 2 41117 TSX FC.OUT,2 PUNCH 4J304000| 67250 0020 00 0 73221 TRA MAPBEG GO TO SUPERVISOR 4J304100 | 67251 4130 00 0 00000 CDXOP1 XCL HOLD COLUMNS 7 THROUGH 12 (6)4J304102| 67252 0074 00 1 37105 TSX CDXNW,1 AND GET COLUMNS 13 THROUGH 18 (6)4J304103| 67253 4763 00 0 00006 LGL 6 STORE COMPLETE DECK NAME (6)4J304104| 67254 0602 00 0 21462 SLW OPER IN OPER $5$4J304105 67255 4500 00 0 67263 CAL CDXOP2 CHANGE TRA CDXOP1 TO $5$4J304106| 67256 0602 00 0 37062 SLW CDXOP3 STZ OPER (6)4J304107| 67257 0774 00 4 00000 AXT 0,4 $5$4J304109| 67260 0774 00 2 00001 AXT 1,2 $5$4J304110| 67261 4763 00 0 00014 LGL 12 $5$4J304111 67262 0020 00 0 37120 TRA CDXVF $5$4J304112| 67263 0600 00 0 21462 CDXOP2 STZ OPER (6)4J304113| 1 IBMAPV IBMAPJ 12/01/64 PAGE 260 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 * UNITAS- UNIT ASSIGNMENT ROUTINE. 4J304300| * 4J304400| * CALLING SEQUENCE- 4J304500| * CLA A 4J304600| * TSX UNITAS,4 4J304700 * RETURN 4J304800| * A = MZE L,,M L = BLOCK ORIGIN 4J304900| * M = NO. FILES * 12 (BLOCK LENGTH) 4J305000| * 4J305100| * COMMUNICATION- CTMUNI = L(ORG,,LENGTH OF SYSUNI TABLE) 4J305200 * CTMUCB = L(ORG,,LENGTH OF ALL UCB) 4J305300| * SYSTCH = IBSYS+23 CURRENT DISK POS-SYSLB1 4J305400| * HA2 CHARACTERS ARE OBTAINED FROM THE DECREMENT 4J305500| * OF THE SYSUNI ENTRY FOR THOSE FUNCTIONS ATTACHED 4J305600| * TO 1301 4J305700 * 4J305800| 67264 0634 00 4 67445 UNITAS SXA BA23,4 SAVE IR4. 4J305900| 67265 4737 00 4 00000 PDC 0,4 COM OF BLOCK LENGTH. 4J306000| 67266 7 00000 4 67445 TXL BA23,4,0 EXIT IF BLOCK LENGTH = 0. 4J306100| 67267 4634 00 4 67441 SXD BA20,4 PRESET FOR COMPLETION TEST. 4J306200 67270 0634 00 1 67443 SXA BA21,1 SAVE IR1, 4J306300| 67271 0634 00 2 67444 SXA BA22,2 AND IR2, 4J306400| 67272 0604 00 0 67456 STI BA29 AND INDICATORS. 4J306500| 67273 0621 00 0 67314 STA BA02 PRESET TO PICK UP UNIT REF WD. 4J306600| 0BINARY CARD ID. MAPJ0450 67274 0402 00 0 21705 SUB L(1) 4J306700| 67275 0621 00 0 67425 STA BA16 PRESET FOR FILE DENSITY SETTING. 4J306800| 67276 4500 00 0 00107 CAL SYSUNI ORG OF SYSUNI TABLE $5$4J306900| 67277 4400 00 0 21705 SBM L(1) 4J307000| 67300 0621 00 0 67455 STA BA28 4J307100 67301 4737 00 4 00000 PDC 0,4 COM OF LENGTH OF SYSUNI TABLE, 4J307200| 67302 1 77777 4 67303 TXI *+1,4,-1 +1. 4J307300| 67303 4634 00 4 67320 SXD BA03,4 FOR VALIDITY TEST. 4J307400| 67304 4535 00 4 00112 LDC SYSUCW,4 COM OF LENGTH OF ALL UCB $5$4J307500| 67305 4634 00 4 67310 SXD *+3,4 COM OF ORG OF ALL UCB. 4J307600 67306 0535 00 4 00112 LAC SYSUCW,4 $5$4J307700| 67307 4634 00 4 67333 SXD BA04+1,4 4J307800| 67310 1 00000 4 67311 TXI *+1,4,** ORG + LENGTH OF UCB (COM). 4J307900| 67311 4634 00 4 67332 SXD BA04,4 FOR OUT OF BOUNDS TEST. 4J308000| 67312 0774 00 4 00000 AXT 0,4 CLEAR IR4. 4J308100 67313 0774 00 2 00002 BA01 AXT 2,2 4J308200| 67314 4500 00 4 00000 BA02 CAL **,4 PICK UP UNIT REF WD. 4J308300| 67315 0522 00 2 67453 XEC BA26+2,2 PDC 0,1 OR PAC 0,1. 4J308400| 67316 7 00000 1 67437 TXL BA18,1,0 NO UNIT REF. 4J308500| 67317 0634 00 1 67352 SXA BA10,1 4J308600 67320 3 00000 1 67322 BA03 TXH *+2,1,** TEST FOR VALID REF. 4J308700| 67321 0020 00 0 67447 TRA BA24 INVALID. 4J308800| 0BINARY CARD ID. MAPJ0451| 67322 7 77764 1 67330 TXL BA.3,1,-12 TEST FOR SYSIN1, SYSIN2. 4J308900| 67323 3 77766 1 67330 TXH BA.3,1,-10 4J309000 67324 4500 00 0 67323 CAL *-1 PTH PREFIX 4J309100| 67325 1 77776 4 67326 TXI *+1,4,-2 TO WORD 3 4J309200| 67326 0630 60 0 67314 STP* BA02 OF FCB. 4J309300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 261 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 67327 1 00002 4 67330 TXI *+1,4,2 4J309400| 67330 4500 60 0 67455 BA.3 CAL* BA28 WORD FROM SYSUNI LIST 4J309500| 67331 0737 00 1 00000 PAC 0,1 UCB ADDR FOR UNIT. 4J309600| 67332 7 00000 1 67447 BA04 TXL BA24,1,** OUT OF BOUNDS OF UCB. 4J309700| 67333 3 00000 1 67447 TXH BA24,1,** X 4J309800 67334 0441 00 1 00000 LDI 0,1 FIRST WD OF UCB FOR UNIT. 4J309900| 67335 4056 00 020000 LNT 020000 IS IT 7909 CHANNEL 4J310000| 67336 0020 00 0 67424 TRA BA15 NO - PROCESS AS 729 4J310100| 67337 4130 00 0 00000 XCL SAVE LOC UCB 4J310200| 67340 1 77773 4 67341 TXI *+1,4,-5 INCREMENT FOR WORD 3 4J310300 67341 4056 00 020100 LNT 020100 TEST FOR DISC 4J310400| 67342 0020 00 0 67344 TRA *+2 NO - MUST BE HYPER 4J310500| 67343 1 00005 4 67350 TXI BA09,4,5 PROCESS DISK 4J310600| 67344 0441 60 0 67314 LDI* BA02 4J310700| 67345 4055 00 200000 SIL 200000 SET DEVICE = HYPER 4J310800 67346 0604 60 0 67314 STI* BA02 4J310900| 67347 1 00005 4 67433 TXI BA17-1,4,5 4J311000| 0BINARY CARD ID. MAPJ0452| 67350 3 00001 2 67447 BA09 TXH BA25,2,1 IGNORE SECONDARY REF. 4J311100| 67351 0634 00 2 67421 SXA BA13,2 4J311200 67352 0774 00 2 00000 BA10 AXT **,2 4J311300| 67353 4600 00 0 67457 STQ BA30 4J311400| 67354 4500 00 0 00107 CAL SYSUNI $5$4J311500| 67355 0771 00 0 00022 ARS 18 4J311600| 67356 0401 00 0 00107 ADM SYSUNI $5$4J311700 67357 0402 00 0 21705 SUB L(1) 4J311800| 67360 0621 00 0 67361 STA *+1 4J311900| 67361 0560 00 2 00000 LDQ **,2 SYSUNI DISK REF. 4J312000| 67362 0534 00 2 67314 BA11 LXA BA02,2 4J312100| 67363 1 00006 2 67364 TXI *+1,2,6 WORD 7 FCB 4J312200 67364 0634 00 2 67372 SXA BA08,2 SAVE LOC. WORD 7 FCB 4J312300| 67365 0535 00 1 67352 LAC BA10,1 COMPUTE 4J312400| 67366 0754 00 1 00000 PXA ,1 POINTER 4J312500| 67367 0401 00 0 67455 ADM BA28 FOR THIS SYSUNI 4J312600| 67370 0621 00 0 67371 STA *+1 4J312700 67371 0500 00 0 00000 CLA ** PICK UP HA2 4J312800| 67372 0622 00 4 00000 BA08 STD **,4 STORE IN FCB WORD 7 4J312900| 67373 0754 00 0 00000 PXA ,0 4J313000| 67374 7 00001 1 67376 TXL *+2,1,1 TEST FOR SYSLB1 4J313100| 67375 4501 00 0 67460 ORA FOR NO - SET SIGN 4J313200 0BINARY CARD ID. MAPJ0453| 67376 0630 60 0 67372 STP* BA08 WORD 7 MINUS 4J313300| 67377 7 00001 1 67403 TXL *+4,1,1 TEST FOR SYSLB1 4J313400| 67400 4773 00 0 00022 RQL 18 NO - PUT DISK 4J313500| 67401 4130 00 0 00000 XCL LIMITS IN POSITION 4J313600 67402 0020 00 0 67407 TRA BA12 TO STORE 4J313700| 67403 4534 00 2 00127 LXD SYSTCH,2 CURRENT DISK POS. 4J313800| 67404 2 40000 2 67405 TIX *+1,2,16384 REMOVE EXTRANEOUS BIT 4J313900| 67405 0754 00 2 00000 PXA 0,2 4J314000| 67406 4763 00 0 00022 LGL 18 4J314100 67407 0534 00 2 67314 BA12 LXA BA02,2 FILE BLOCK, 4J314200| 67410 1 00007 2 67411 TXI *+1,2,7 WORD 8. 4J314300| 67411 0634 00 2 67412 SXA *+1,2 4J314400| 67412 0621 00 4 00000 STA **,4 DEND TO FCB WD 8. 4J314500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 262 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67413 0622 60 0 67412 STD* *-1 DORG TO FCB WD 8. 4J314600| 67414 0622 60 0 67314 STD* BA02 DORG TO FCB WD. 1. 4J314700| 67415 1 77776 2 67416 TXI *+1,2,-2 4J314800| 67416 4500 00 0 67416 CAL * MZE TO 4J314900 67417 0634 00 2 67420 SXA *+1,2 WORD 6 4J315000| 67420 0630 00 4 00000 STP **,4 OF FCB. 4J315100| 67421 0774 00 2 00000 BA13 AXT **,2 4J315200| 67422 0500 00 0 67457 CLA BA30 4J315300| 67423 0020 00 0 67434 TRA BA17 4J315400 0BINARY CARD ID. MAPJ0454| 67424 4130 00 0 00000 BA15 XCL 4J315500| 67425 0441 00 4 00000 BA16 LDI **,4 SET FILE DENSITY. 4J315600| 67426 0162 00 0 67431 TQP *+3 4J315700| 67427 0055 00 100000 SIR 100000 4J315800 67430 0020 00 0 67432 TRA *+2 4J315900| 67431 0057 00 100000 RIR 100000 4J316000| 67432 0604 60 0 67425 STI* BA16 4J316100| 67433 4130 00 0 00000 XCL 4J316200| 67434 7 00001 2 67436 BA17 TXL *+2,2,1 4J316300 67435 0767 00 0 00022 ALS 18 4J316400| 67436 0522 00 2 67455 XEC BA27+2,2 STD OR STA 4J316500| 67437 2 00001 2 67314 BA18 TIX BA02,2,1 4J316600| 67440 1 77764 4 67441 BA19 TXI *+1,4,-12 POINT TO NEXT UNIT REF WD. 4J316700| 67441 3 00000 4 67313 BA20 TXH BA01,4,** ALL DONE. 4J316800 67442 0441 00 0 67456 LDI BA29 YES, RESTORE ALL 4J316900| 67443 0774 00 1 00000 BA21 AXT **,1 REGISTERS 4J317000| 67444 0774 00 2 00000 BA22 AXT **,2 AND 4J317100| 67445 0774 00 4 00000 BA23 AXT **,4 EXIT. 4J317200| 67446 0020 00 4 00001 TRA 1,4 4J317300 * HERE FOR INVALID UCB REFERENCE. 4J317400| 67447 4754 00 0 00000 BA24 PXD 0,0 4J317500| 67450 0020 00 0 67434 TRA BA17 4J317600| * HERE FOR UNIT IN TABLE NOT ATTACHED. 4J317700| 67447 BA25 EQU BA24 4J317800 * 4J317900| 67451 4737 00 1 00000 BA26 PDC 0,1 4J318000| 0BINARY CARD ID. MAPJ0455| 67452 0737 00 1 00000 PAC 0,1 4J318100| 67453 0622 60 0 67314 BA27 STD* BA02 4J318200 67454 0621 60 0 67314 STA* BA02 4J318300| * 4J318400| 67455 0 00000 1 00000 BA28 PZE **,1 SYSUNI TABLE POINTER. 4J318500| 67456 0 00000 0 00000 BA29 PZE 0 INDICATOR STORAGE. 4J318600| 67457 0 00000 0 00000 BA30 PZE 0 4J318700 67460 4 00000 0 00000 FOR FOR 4J318800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 263 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| $IBMAP CARD OPTION TABLE 4J319100| 67461 CTASPM EQU * 4J319200| 67461 433162636060 BCI 1,LIST 4J319300| 67462 0020 00 0 67570 TRA CTALST 4J319400| 67463 454643316263 BCI 1,NOLIST 4J319500 67464 0020 00 0 67572 TRA CTANLS 4J319600| 67465 242523426060 BCI 1,DECK 4J319700| 67466 0020 00 0 67574 TRA CTADEK 4J319800| 67467 454624252342 BCI 1,NODECK 4J319900| 67470 0020 00 0 67577 TRA CTASND 4J320000 67471 441100606060 BCI 1,M90 4J320100| 67472 0020 00 0 67605 TRA CTANFR 4J320200| 67473 441104606060 BCI 1,M94 4J320300| 67474 0020 00 0 67610 TRA CTAFOR 4J320400| 67475 512543444624 BCI 1,RELMOD 4J320500 67476 0020 00 0 67613 TRA CTAREL 4J320600| 67477 212262444624 BCI 1,ABSMOD 4J320700| 0BINARY CARD ID. MAPJ0456| 67500 0020 00 0 67615 TRA CTAABS 4J320800| 67501 627062444624 BCI 1,SYSMOD 4J320900 67502 0020 00 0 67645 TRA CTASYM 4J321000| 67503 512526606060 BCI 1,REF 4J321100| 67504 0020 00 0 67617 TRA CTAREF 4J321200| 67505 434551252660 BCI 1,LNREF (6)4J321210| 67506 0020 00 0 67621 TRA CTLNRF (6)4J321220 67507 454651252660 BCI 1,NOREF 4J321300| 67510 0020 00 0 67625 TRA CTANRF 4J321400| 67511 233025234260 BCI 1,CHECK 4J321500| 67512 0020 00 0 67637 TRA CTACHH 4J321600| 67513 624725236060 BCI 1,SPEC 4J321700 67514 0020 00 0 67641 TRA CTAPEC 4J321800| 67515 226426262551 BCI 1,BUFFER 4J321900| 67516 0020 00 0 67643 TRA CTABUF 4J322000| 67517 442663236060 BCI 1,MFTC 4J322100| 67520 0020 00 0 67647 TRA CTAMFT 4J322200 67521 623046476060 BCI 1,SHOP (6)4J322210| 67522 0020 00 0 67651 TRA CTYSK (6)4J322220| 67523 266443464760 BCI 1,FULOP (6)4J322230| 67524 0020 00 0 67653 TRA CTNSK (6)4J322240| 67525 644524464760 BCI 1,UNDOP (6)4J322250 0BINARY CARD ID. MAPJ0457| 67526 0020 00 0 67704 TRA CTDFOP (6)4J322260| 67527 454674346060 BCI 1,NO() 4J322300| 67530 0020 00 0 67655 TRA CTANPN 4J322400| 67531 743446426060 BCI 1,()OK 4J322500 67532 0020 00 0 67672 TRA CTAPAR 4J322600| 67533 622547472151 BCI 1,SEPPAR (6)4J322610| 67534 0020 00 0 67700 TRA CTSEPR (6)4J322620| 67535 234645472151 BCI 1,CONPAR (6)4J322630| 67536 0020 00 0 67702 TRA CTCNPR (6)4J322640 67537 232451254360 BCI 1,CDREL (6)4J322650| 67540 0020 00 0 67721 TRA CTDREL (6)4J322660| 1 IBMAPV IBMAPJ 12/01/64 PAGE 264 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67541 034331626360 BCI 1,3LIST 4J322700 67542 0020 00 0 67716 TRA CT3LST 4J322800| 67543 266443316263 BCI 1,FULIST 4J322900| 67544 0020 00 0 67714 TRA CTFLST 4J323000| 67545 441104610260 BCI 1,M94/2 4J323100| 67546 0020 00 0 67602 TRA CTM942 4J323200 67547 242460606060 BCI 1,DD DE BUG DICT. $4$4J323300| 67550 0020 00 0 67723 TRA CTDDIC $4$4J323400| 67551 622424606060 BCI 1,SDD SHORT DE BUG DICT. $4$4J323500| 67552 0020 00 0 67726 TRA CTSDIC $4$4J323600| 67553 454624246060 BCI 1,NODD $4$4J323700 0BINARY CARD ID. MAPJ0458| 67554 0020 00 0 67732 TRA CTNDIC $4$4J323800| 67555 444645627044 BCI 1,MONSYM $5$4J323810| 67556 0020 00 0 67737 TRA CTMSYM $5$4J323820| 67557 414622627044 BCI 1,JOBSYM $5$4J323830 67560 0020 00 0 67736 TRA CTJSYM $5$4J323840| 67561 454662704460 BCI 1,NOSYM $5$4J323850| 67562 0020 00 0 67741 TRA CTNSYM $5$4J323860| 67563 454663256763 CTNTX BCI 1,NOTEXT (6)4J323870| 67564 0020 00 0 67630 TRA CTNTXT (6)4J323880 67565 CTASPE EQU * 4J323900| | | $IBFTC CARD OPTION TABLE 4J324100| (IDENTICAL TO $IBMAP) 4J324200 | 67461 FTCSPM EQU CTASPM 4J324400| 67565 FTCSPE EQU CTASPE 4J324500| | $IBCBC CARD OPTION TABLE 4J324700| (IDENTICAL TO $IBMAP) 4J324800| 67461 CBCSPM EQU CTASPM 4J324900| 67565 CBCSPE EQU CTASPE 4J325000| | SYBSYSTEM PROCESS TABLE 4J325200| 67565 CTASSP EQU * 4J325300| 67565 533122442147 BCI 1,$IBMAP MAP INPUT 4J325400| 67566 533122266323 BCI 1,$IBFTC FORTRAN INPUT 4J325500 67567 533122232223 BCI 1,$IBCBC COBOL INPUT 4J325600| 67570 CTASSE EQU * 4J325700| | | 67570 0600 00 0 21420 CTALST STZ CTLIST LIST 4J325900 67571 0020 00 0 67150 TRA CTASCC 4J326000| | 67572 4625 00 0 21420 CTANLS STL CTLIST NOLIST 4J326200| 67573 0020 00 0 67150 TRA CTASCC 4J326300| 67574 0600 00 0 21417 CTADEK STZ CTNODK DECK 4J326500| 67575 0600 00 0 21263 STZ KLPNCH 4J326600| 67576 0020 00 0 67150 TRA CTASCC 4J326700| | 1 IBMAPV IBMAPJ 12/01/64 PAGE 265 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67577 4625 00 0 21417 CTASND STL CTNODK NO DECK 4J326900| 67600 4625 00 0 21263 STL KLPNCH 4J327000| 67601 0020 00 0 67150 TRA CTASCC 4J327100| | 0BINARY CARD ID. MAPJ0459| 67602 4625 00 0 21436 CTM942 STL M94SL2 EVEN MODE 4J327400| 67603 4625 00 0 21424 STL SWC94 SET 7094 MODE 4J327500| 67604 0020 00 0 67150 TRA CTASCC 4J327600 | 67605 0600 00 0 21424 CTANFR STZ SWC94 7090 MODE 4J327800| 67606 4625 00 0 21436 STL M94SL2 SET MODE FOR -EVEN- AS COMMENT 4J327900| 67607 0020 00 0 67150 TRA CTASCC 4J328000| 67610 4625 00 0 21424 CTAFOR STL SWC94 7094 MODE 4J328200| 67611 0600 00 0 21436 STZ M94SL2 SET MODE FOR -EVEN- AS CDICT ENTRY 4J328300| 67612 0020 00 0 67150 TRA CTASCC 4J328400| | 67613 0600 00 0 21426 CTAREL STZ SWABS RELOCATABLE ASSEMBLY 4J328600 67614 0020 00 0 67150 TRA CTASCC 4J328700| | 67615 4625 00 0 21426 CTAABS STL SWABS ABSOLUTE ASSEMBLY 4J328900| 67616 0020 00 0 67150 TRA CTASCC 4J329000| 67617 0600 00 0 21427 CTAREF STZ SWREF CROSS REFERENCES 4J329200| 67620 0020 00 0 67150 TRA CTASCC 4J329300| | 67621 4500 00 0 34362 CTLNRF CAL PBIT SET MINUS ZERO (6)4J329320| 67622 0602 00 0 21427 SLW SWREF IN REFERENCE SWITCH (6)4J329330 67623 0600 00 0 21472 STZ 3PER SET FULL LIST MODE (6)4J329340| 67624 0020 00 0 67150 TRA CTASCC (6)4J329350| | 67625 4500 00 0 21723 CTANRF CAL MSKAD SET NO REFS, (6)4J329500| 67626 0602 00 0 21427 SLW SWREF NO LINE NUMBERS (6)4J329510 67627 0020 00 0 67150 TRA CTASCC 4J329600| | 0BINARY CARD ID. MAPJ0460| 67630 4500 00 0 67563 CTNTXT CAL CTNTX SET (6)4J329620| 67631 4765 00 0 00022 LGR 18 NOTEXT (6)4J329630 67632 4620 00 0 41501 SLQ F.IMG+3 INTO (6)4J329640| 67633 0560 00 0 41500 LDQ F.IMG+2 $IBLDR (6)4J329650| 67634 0602 00 0 41500 SLW F.IMG+2 CARD (6)4J329660| 67635 4620 00 0 41500 SLQ F.IMG+2 (6)4J329670| 67636 0020 00 0 67150 TRA CTASCC (6)4J329680 | 67637 4625 00 0 21421 CTACHH STL CTCKMD CHECKOUT MODE 4J329800| 67640 0020 00 0 67150 TRA CTASCC 4J329900| | 67641 4625 00 0 21415 CTAPEC STL SWSPEC SPECIAL SWITCH 4J330100 67642 0020 00 0 67150 TRA CTASCC 4J330200| | 67643 4625 00 0 21416 CTABUF STL SWBUFF PRINT BUFFER 4J330400| 67644 0020 00 0 67150 TRA CTASCC SWITCH 4J330500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 266 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 67645 4625 00 0 21425 CTASYM STL SWMOD 4J330700| 67646 0020 00 0 67613 TRA CTAREL 4J330800| 67647 4625 00 0 73534 CTAMFT STL MFTC INCLUDE FORTRAN MACROS 4J331000| 67650 0020 00 0 67150 TRA CTASCC 4J331100| (6)4J331110| 67651 4625 00 0 73543 CTYSK STL SKWD SKIP SOME OP CODES (6)4J331120| 67652 0020 00 0 67150 TRA CTASCC (6)4J331130 (6)4J331140| 67653 0600 00 0 73543 CTNSK STZ SKWD SKIP NO OP CODES (6)4J331150| 67654 0020 00 0 67150 TRA CTASCC (6)4J331160| | 67655 0774 00 2 00000 CTANPN AXT 0,2 SET FOR NO PARENS 4J331300 0BINARY CARD ID. MAPJ0461| 67656 0774 00 4 00002 AXT 2,4 4J331400| 67657 0441 00 4 37036 LDI CDXTF+2,4 SET APPROPRIATE 4J331500| 67660 0522 00 2 67674 XEC CDXTFI,2 LEFT AND RIGHT 4J331600| 67661 0604 00 4 37036 STI CDXTF+2,4 PAREN BIT TESTS 4J331700 67662 2 00001 4 67657 TIX *-3,4,1 4J331800| 67663 0441 00 0 35156 LDI NMLSC (6)4J331810| 67664 0522 00 2 67676 XEC NMPRN,2 SET APPROPRIATE NORMAL (6)4J331820| 67665 0604 00 0 35156 STI NMLSC SCAN TERMINATORS (6)4J331830| 67666 0441 00 0 33467 LDI SCAI (6)4J331840 67667 0522 00 2 67674 XEC CDXTFI,2 (6)4J331850| 67670 0604 00 0 33467 STI SCAI (6)4J331860| 67671 0020 00 0 67150 TRA CTASCC 4J331900| | 67672 0774 00 2 77777 CTAPAR AXT -1,2 SET FOR PARENS 4J332100 67673 0020 00 0 67656 TRA CTANPN+1 OK 4J332200| | 67674 0057 00 000060 CDXTFI RIR LPB+RPB NO PARENS 4J332400| 67675 0055 00 000060 SIR LPB+RPB PARENS OK. 4J332500| 67676 0055 00 000060 NMPRN SIR LPB+RPB NO() SAYS RECOGNIZE THEM IN SCAN (6)4J332520| 67677 0057 00 000060 RIR LPB+RPB ()OK SAYS DON'T RECOGNIZE THEM (6)4J332530| | 67700 4625 00 0 21475 CTSEPR STL MPBLSW SET BLANK AS SEPARATOR (6)4J332550| 67701 0020 00 0 67150 TRA CTASCC FOR MACRO ETC CARDS (6)4J332560 | 67702 0600 00 0 21475 CTCNPR STZ MPBLSW SET SWITCH TO CONCATENATE MACRO (6)4J332580| 67703 0020 00 0 67150 TRA CTASCC PARAMETERS SPLIT ACROSS ETC (6)4J332590| | 0BINARY CARD ID. MAPJ0462 67704 4056 00 000200 CTDFOP LNT EQB IGNORE IF TERMINATOR (6)4J332610| 67705 0020 00 0 67150 TRA CTASCC WAS NOT = SIGN (6)4J332620| 67706 0074 00 4 36657 TSX SSCAN,4 ELSE COLLECT (6)4J332630| 67707 4054 00 001000 LFT CMB FIELD (6)4J332640| 67710 0737 00 4 00000 PAC ,4 AND STORE (6)4J332650 67711 4500 00 4 00000 CAL 0,4 AS NAME OF (6)4J332660| 67712 0602 00 0 35173 SLW UNDOP UNDEFINED OPERATIONS (6)4J332670| 67713 0020 00 0 67150 TRA CTASCC PROCESSOR (6)4J332680| | 67714 0600 00 0 21472 CTFLST STZ 3PER FULL LIST MODE 4J332700 67715 0020 00 0 67570 TRA CTALST 4J332800| 1 IBMAPV IBMAPJ 12/01/64 PAGE 267 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 | 67716 0520 00 0 21423 CT3LST ZET SWCPIN IF COMPILER INPUT 4J333000 67717 4625 00 0 21472 STL 3PER SET COMPILER LIST 4J333100| 67720 0020 00 0 67150 TRA CTASCC 4J333200| | 67721 4625 00 0 21432 CTDREL STL SWRELD SET NO DICTIONARY MARKING (6)4J333220| 67722 0020 00 0 67150 TRA CTASCC FOR CONTAINED ITEMS (6)4J333230 | 67723 4625 00 0 21434 CTDDIC STL DDICT SET FULL DEBUG $4$4J333400| 67724 0600 00 0 21433 STZ SDDICT ZERO PARTIAL $4$4J333500| 67725 0020 00 0 67730 TRA CTSDIC+2 $4$4J333600| 67726 4625 00 0 21433 CTSDIC STL SDDICT SET PARTIAL DEBUGGING $4$4J333700 67727 0600 00 0 21434 STZ DDICT ZERO FULL $4$4J333800| 67730 4625 00 0 21430 STL SWDBG INDICATE ANY DEBUGGING $4$4J333900| 67731 0020 00 0 67150 TRA CTASCC $4$4J334000| | 0BINARY CARD ID. MAPJ0463 67732 0600 00 0 21434 CTNDIC STZ DDICT SET $4$4J334200| 67733 0600 00 0 21433 STZ SDDICT DEBUGGING SWITCHES $4$4J334300| 67734 0600 00 0 21430 STZ SWDBG ZERO $4$4J334400| 67735 0020 00 0 67150 TRA CTASCC $4$4J334500| 67736 4625 00 0 73541 CTJSYM STL JBSSW PREDEFINE IBJOB SYMBOLS $5$4J334520| 67737 4625 00 0 73540 CTMSYM STL MNSSW PREDEFINE IBSYS MONITOR SYMBOLS $5$4J334530| 67740 0020 00 0 67150 TRA CTASCC $5$4J334540| | 67741 0600 00 0 73540 CTNSYM STZ MNSSW DO NOT PREDEFINE ANY SYMBOLS $5$4J334560 67742 0020 00 0 67150 TRA CTASCC $5$4J334570| | | * CONSTANTS USED BY INITIALIZATION $4$4J334700| * 4J334800 | 67743 4 00044 0 21500 CTAUNC MZE FLBORG,,FLBTPE-FLBORG UNITAS CALL WORD 4J335000| | 67744 212323466445 CTAM01 BCI 5,ACCOUNTING ROUTINE ERROR. 4J335200| 67751 234645635146 CTAM02 BCI 9,CONTROL CARD MISSING. STANDARD $IBMAP OPTIONS ASSUMED. 4J335300 0BINARY CARD ID. MAPJ0464| 67762 600700110060 CTAM03 BCI 9, 7090 RELMOD ASSEMBLY. COMPILER GENERATED INPUT. 4J335400| 67773 600700110460 CTAM04 BCI 1, 7094 4J335500| 67774 627062444624 CTAM05 BCI 1,SYSMOD 4J335600| 67775 533122432451 CTAM06 BCI 1,$IBLDR 4J335700 67776 636343606060 CTAM08 BCI 1,TTL 4J335800| 67777 144146226270 CTAM09 BCI 7,'JOBSYM' OPTION ILLEGAL IN RELMOD ASSEMBLY $5$4J335810| 0BINARY CARD ID. MAPJ0465| 70006 731444464562 BCI 3,,'MONSYM' ASSUMED $5$4J335820| 1 IBMAPV IBMAPJ 12/01/64 PAGE 268 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| * OPERATION TABLE FOR PRE-ENTRY INTO THE DICTIONARY 4J336300| | * SKIP TABLE (6)4J336402| * EACH OPERATION CODE IS ASSIGNED (6)4J336404| * A BIT FROM LEFT TO RIGHT, WORD AFTER WORD. (6)4J336406| * IF THE BIT IS A 1, THE OPERATION CODE (6)4J336408| * IS NOT ENTERED IN THE DICTIONARY. (6)4J336410 * IF SKWD IS ZERO THE TABLE IS CLEARED (6)4J336412| * PRIOR TO ENTERING OPERATIONS. (6)4J336414| * MAP OPTION 'SHOP' SETS SKWD NON-ZERO. (6)4J336416| * MAP OPTION 'FULOP' SETS SKWD TO ZERO. (6)4J336418| 73543 USE REMOTE AVOID ONCOMING INTERNAL DICTIONARY(6)4J336421| 0BINARY CARD ID. MAPJ0466| 73543 0 00000 0 00000 SKWD PZE ** (6)4J336422| | 73544 000777777777 SKTBL OCT 000777777777 ACL - BTTH (6)4J336426 73545 000020677700 OCT 000020677700 CAL - FRN (6)4J336428| 73546 001077600040 OCT 001077600040 FSB - MPY (6)4J336430| 73547 000000377777 OCT 000000377777 MSE - RCT (6)4J336432| 73550 777777177407 OCT 777777177407 RDCA - RPRC (6)4J336434| 73551 767777777777 OCT 767777777777 RPRD - RUNE (6)4J336436 73552 737777777777 OCT 737777777777 RUNF - SDLF (6)4J336438| 73553 700377777774 OCT 700377777774 SDLG - SSP (6)4J336440| 73554 377000037777 OCT 377000037777 STA - TCOF (6)4J336442| 73555 777400017740 OCT 777400017740 TCOG - TXL (6)4J336444| 73556 004577777777 OCT 004577777777 TZE - WPDH (6)4J336446 73557 777777777770 OCT 777777777770 WPRA - XEC (6)4J336448| 73560 000000000000 OCT 000000000000 ZET - ETC (6)4J336450| 73561 000000000000 OCT 000000000000 EVEN - QUAL (6)4J336452| 73562 000000000000 OCT 000000000000 RBOOL - ZAC (6)4J336454| 73563 000377777777 OCT 000377777777 ZSA - DSBM (6)4J336456 73564 777777777000 OCT 777777777000 DSEK - DFSM (6)4J336458| 73565 000100000000 OCT 000100000000 DUSM - RETURN (6)4J336460| 73566 SKEND BSS 0 (6)4J336462| 00022 SKWDS EQU SKEND-SKTBL (6)4J336464| 70011 USE PREVIOUS RESUME NORMAL COUNTER (6)4J336466 | 70011 MAPWDS SYN * 4J336500| | | * NORMAL MACHINE LANGUAGE AND EXTENDED OPERATION CODES 4J336700 0BINARY CARD ID. MAPJ0467| 70011 212343606060 BCI 1,ACL 4J336900| 70012 430106000361 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0361 ACL 4J337000| 70013 212424606060 BCI 1,ADD 4J337100| 70014 430106000400 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0400 ADD 4J337200 70015 212444606060 BCI 1,ADM 4J337300| 70016 430106000401 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0401 ADM 4J337400| 70017 214362606060 BCI 1,ALS 4J337500| 70020 430006000767 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0767 ALS 4J337600| 70021 214521606060 BCI 1,ANA 4J337700 1 IBMAPV IBMAPJ 12/01/64 PAGE 269 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70022 430106004320 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4320 ANA 4J337800| 70023 214562606060 BCI 1,ANS 4J337900| 70024 430106000320 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0320 ANS 4J338000 70025 215162606060 BCI 1,ARS 4J338100| 70026 430006000771 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0771 ARS 4J338200| 70027 216723606060 BCI 1,AXC 4J338300| 70030 430002004774 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/4774 AXC 4J338400| 70031 216763606060 BCI 1,AXT 4J338500 70032 430002000774 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/0774 AXT 4J338600| 70033 226226606060 BCI 1,BSF 4J338700| 70034 430006004764 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4764 BSF 4J338800| 70035 226226216060 BCI 1,BSFA 4J338900| 70036 470006010107 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/7 BSFA 4J339000 0BINARY CARD ID. MAPJ0468| 70037 226226226060 BCI 1,BSFB 4J339100| 70040 470006010207 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/7 BSFB 4J339200| 70041 226226236060 BCI 1,BSFC 4J339300| 70042 470006010307 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/7 BSFC 4J339400 70043 226226246060 BCI 1,BSFD 4J339500| 70044 470006010407 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/7 BSFD 4J339600| 70045 226226256060 BCI 1,BSFE 4J339700| 70046 470006010507 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/7 BSFE $5$4J339800| 70047 226226266060 BCI 1,BSFF 4J339900 70050 470006010607 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/7 BSFF $5$4J340000| 70051 226226276060 BCI 1,BSFG 4J340100| 70052 470006010707 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/7 BSFG $5$4J340200| 70053 226226306060 BCI 1,BSFH 4J340300| 70054 470006011007 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/7 BSFH $5$4J340400 70055 226251606060 BCI 1,BSR 4J340500| 70056 430006000764 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/764 BSR 4J340600| 70057 226251216060 BCI 1,BSRA 4J340700| 70060 470006010106 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/6 BSRA 4J340800| 70061 226251226060 BCI 1,BSRB 4J340900 70062 470006010206 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/6 BSRB 4J341000| 70063 226251236060 BCI 1,BSRC 4J341100| 70064 470006010306 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/6 BSRC 4J341200| 0BINARY CARD ID. MAPJ0469| 70065 226251246060 BCI 1,BSRD 4J341300 70066 470006010406 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/6 BSRD 4J341400| 70067 226251256060 BCI 1,BSRE 4J341500| 70070 470006010506 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/6 BSRE 4J341600| 70071 226251266060 BCI 1,BSRF 4J341700| 70072 470006010606 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/6 BSRF 4J341800 70073 226251276060 BCI 1,BSRG 4J341900| 70074 470006010706 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/6 BSRG 4J342000| 70075 226251306060 BCI 1,BSRH 4J342100| 70076 470006011006 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/6 BSRH 4J342200| 70077 226363606060 BCI 1,BTT 4J342300 70100 460006000000 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/0 BTT 4J342400| 70101 226363216060 BCI 1,BTTA 4J342500| 70102 460066001000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/1000 BTTA 4J342600| 70103 226363226060 BCI 1,BTTB 4J342700| 70104 460066002000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/2000 BTTB 4J342800 70105 226363236060 BCI 1,BTTC 4J342900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 270 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70106 460066003000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/3000 BTTC 4J343000| 70107 226363246060 BCI 1,BTTD 4J343100 70110 460066004000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/4000 BTTD 4J343200| 70111 226363256060 BCI 1,BTTE 4J343300| 70112 460066005000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/5000 BTTE 4J343400| 0BINARY CARD ID. MAPJ0470| 70113 226363266060 BCI 1,BTTF 4J343500 70114 460066006000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/6000 BTTF 4J343600| 70115 226363276060 BCI 1,BTTG 4J343700| 70116 460066007000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/7000 BTTG 4J343800| 70117 226363306060 BCI 1,BTTH 4J343900| 70120 460066010000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/10000 BTTH 4J344000 70121 232143606060 BCI 1,CAL 4J344100| 70122 430106004500 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4500 CAL 4J344200| 70123 232150606060 BCI 1,CAQ 4J344300| 70124 440004004114 VFD O6/44,12/ING+ARQ+TOK+DRQ,O18/4114 CAQ 4J344400| 70125 232162606060 BCI 1,CAS 4J344500 70126 430106000340 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0340 CAS 4J344600| 70127 233062606060 BCI 1,CHS 4J344700| 70130 460066000002 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/2 CHS 4J344800| 70131 234321606060 BCI 1,CLA 4J344900| 70132 430106000500 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0500 CLA 4J345000 70133 234344606060 BCI 1,CLM 4J345100| 70134 460066000000 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/0 CLM 4J345200| 70135 234362606060 BCI 1,CLS 4J345300| 70136 430106000502 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0502 CLS 4J345400| 70137 234644606060 BCI 1,COM 4J345500 70140 460066000006 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/6 COM 4J345600| 0BINARY CARD ID. MAPJ0471| 70141 235150606060 BCI 1,CRQ 4J345700| 70142 440004004154 VFD O6/44,12/ING+ARQ+TOK+DRQ,O18/4154 CRQ 4J345800| 70143 236551606060 BCI 1,CVR 4J345900 70144 440004000114 VFD O6/44,12/ING+ARQ+TOK+DRQ,O18/0114 CVR 4J346000| 70145 242363606060 BCI 1,DCT 4J346100| 70146 460066000012 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/12 DCT 4J346200| 70147 246530606060 BCI 1,DVH 4J346300| 70150 430106000220 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0220 DVH 4J346400 70151 246547606060 BCI 1,DVP 4J346500| 70152 430106000221 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0221 DVP 4J346600| 70153 252363446060 BCI 1,ECTM 4J346700| 70154 460066100006 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/6 ECTM 4J346800| 70155 252663446060 BCI 1,EFTM 4J346900 70156 460066100002 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/2 EFTM 4J347000| 70157 254522606060 BCI 1,ENB 4J347100| 70160 430106000564 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0564 ENB 4J347200| 70161 254542606060 BCI 1,ENK 4J347300| 70162 460066000004 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/4 ENK 4J347400 70163 255121606060 BCI 1,ERA 4J347500| 70164 430106000322 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0322 ERA 4J347600| 70165 256245636060 BCI 1,ESNT 4J347700| 70166 430106004021 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4021 ESNT 4J347800| 0BINARY CARD ID. MAPJ0472 70167 256263446060 BCI 1,ESTM 4J347900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 271 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70170 460066100005 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/5 ESTM 4J348000| 70171 256344606060 BCI 1,ETM 4J348100 70172 460066000007 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/7 ETM 4J348200| 70173 256363606060 BCI 1,ETT 4J348300| 70174 460006100000 VFD O6/46,12/ING+ARQ+TOK+DAL,3/1,O15/0 ETT 4J348400| 70175 256363216060 BCI 1,ETTA 4J348500| 70176 460066101000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/1000 ETTA 4J348600 70177 256363226060 BCI 1,ETTB 4J348700| 70200 460066102000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/2000 ETTB 4J348800| 70201 256363236060 BCI 1,ETTC 4J348900| 70202 460066103000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/3000 ETTC 4J349000| 70203 256363246060 BCI 1,ETTD 4J349100 70204 460066104000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/4000 ETTD 4J349200| 70205 256363256060 BCI 1,ETTE 4J349300| 70206 460066105000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/5000 ETTE 4J349400| 70207 256363266060 BCI 1,ETTF 4J349500| 70210 460066106000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/6000 ETTF 4J349600 70211 256363276060 BCI 1,ETTG 4J349700| 70212 460066107000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/7000 ETTG 4J349800| 70213 256363306060 BCI 1,ETTH 4J349900| 70214 460066110000 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/10000 ETTH 4J350000| 0BINARY CARD ID. MAPJ0473 70215 262124606060 BCI 1,FAD 4J350100| 70216 430106000300 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0300 FAD 4J350200| 70217 262144606060 BCI 1,FAM 4J350300| 70220 430106000304 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0304 FAM 4J350400| 70221 262430606060 BCI 1,FDH 4J350500 70222 430106000240 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0240 FDH 4J350600| 70223 262447606060 BCI 1,FDP 4J350700| 70224 430106000241 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0241 FDP 4J350800| 70225 264447606060 BCI 1,FMP 4J350900| 70226 430106000260 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0260 FMP 4J351000 70227 265145606060 BCI 1,FRN 4J351100| 70230 460066000011 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/11 FRN 4J351200| 70231 266222606060 BCI 1,FSB 4J351300| 70232 430106000302 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0302 FSB 4J351400| 70233 266244606060 BCI 1,FSM 4J351500 70234 430106000306 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0306 FSM 4J351600| 70235 304751606060 BCI 1,HPR 4J351700| 70236 430026000420 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0420 HPR 4J351800| 70237 306351606060 BCI 1,HTR 4J351900| 70240 430106000000 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0000 HTR 4J352000 70241 313121606060 BCI 1,IIA 4J352100| 70242 430026000041 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0041 IIA 4J352200| 0BINARY CARD ID. MAPJ0474| 70243 313143606060 BCI 1,IIL 4J352300| 70244 450017004051 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/4051 IIL 4J352400 70245 313151606060 BCI 1,IIR 4J352500| 70246 450017000051 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/0051 IIR 4J352600| 70247 313162606060 BCI 1,IIS 4J352700| 70250 430106000440 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0440 IIS 4J352800| 70251 314663606060 BCI 1,IOT 4J352900 70252 460066000005 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/5 IOT 4J353000| 70253 432123606060 BCI 1,LAC 4J353100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 272 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70254 430002000535 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/0535 LAC 4J353200 70255 432162606060 BCI 1,LAS 4J353300| 70256 430106004340 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4340 LAS 4J353400| 70257 432263606060 BCI 1,LBT 4J353500| 70260 460066000001 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/1 LBT 4J353600| 70261 432330216060 BCI 1,LCHA 4J353700 70262 430106000544 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/544 LCHA 4J353800| 70263 432330226060 BCI 1,LCHB 4J353900| 70264 430106004544 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4544 LCHB 4J354000| 70265 432330236060 BCI 1,LCHC 4J354100| 70266 430106000545 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/545 LCHC 4J354200 70267 432330246060 BCI 1,LCHD 4J354300| 70270 430106004545 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4545 LCHD 4J354400| 0BINARY CARD ID. MAPJ0475| 70271 432330256060 BCI 1,LCHE 4J354500| 70272 430106000546 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0546 LCHE 4J354600 70273 432330266060 BCI 1,LCHF 4J354700| 70274 430106004546 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4546 LCHF 4J354800| 70275 432330276060 BCI 1,LCHG 4J354900| 70276 430106000547 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0547 LCHG 4J355000| 70277 432330306060 BCI 1,LCHH 4J355100 70300 430106004547 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4547 LCHH 4J355200| 70301 432423606060 BCI 1,LDC 4J355300| 70302 430002004535 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/4535 LDC 4J355400| 70303 432431606060 BCI 1,LDI 4J355500| 70304 430106000441 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0441 LDI 4J355600 70305 432450606060 BCI 1,LDQ 4J355700| 70306 430106000560 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0560 LDQ 4J355800| 70307 432663606060 BCI 1,LFT 4J355900| 70310 450017004054 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/4054 LFT 4J356000| 70311 432663446060 BCI 1,LFTM 4J356100 70312 460066100004 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/4 LFTM 4J356200| 70313 432743606060 BCI 1,LGL 4J356300| 70314 430006004763 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4763 LGL 4J356400| 70315 432751606060 BCI 1,LGR 4J356500| 70316 430006004765 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4765 LGR 4J356600 0BINARY CARD ID. MAPJ0476| 70317 434362606060 BCI 1,LLS 4J356700| 70320 430006000763 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0763 LLS 4J356800| 70321 434563606060 BCI 1,LNT 4J356900| 70322 450017004056 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/4056 LNT 4J357000 70323 435162606060 BCI 1,LRS 4J357100| 70324 430006000765 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0765 LRS 4J357200| 70325 436245446060 BCI 1,LSNM 4J357300| 70326 460066100010 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/10 LSNM 4J357400| 70327 436344606060 BCI 1,LTM 4J357500 70330 460066100007 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/7 LTM 4J357600| 70331 436721606060 BCI 1,LXA 4J357700| 70332 430002000534 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/0534 LXA 4J357800| 70333 436724606060 BCI 1,LXD 4J357900| 70334 430002004534 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/4534 LXD 4J358000 70335 444751606060 BCI 1,MPR 4J358100| 70336 430106004200 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4200 MPR 4J358200| 70337 444770606060 BCI 1,MPY 4J358300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 273 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 70340 430106000200 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0200 MPY 4J358400| 70341 446225606060 BCI 1,MSE 4J358500| 70342 430006004760 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4760 MSE 4J358600| 70343 454647606060 BCI 1,NOP 4J358700| 70344 430026000761 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0761 NOP 4J358800 0BINARY CARD ID. MAPJ0477| 70345 457163606060 BCI 1,NZT 4J358900| 70346 430106004520 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4520 NZT 4J359000| 70347 462131606060 BCI 1,OAI 4J359100| 70350 430026000043 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0043 OAI 4J359200 70351 462663606060 BCI 1,OFT 4J359300| 70352 430106000444 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0444 OFT 4J359400| 70353 464563606060 BCI 1,ONT 4J359500| 70354 430106000446 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0446 ONT 4J359600| 70355 465121606060 BCI 1,ORA 4J359700 70356 430106004501 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4501 ORA 4J359800| 70357 465162606060 BCI 1,ORS 4J359900| 70360 430106004602 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4602 ORS 4J360000| 70361 466231606060 BCI 1,OSI 4J360100| 70362 430106000442 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0442 OSI 4J360200 70363 472123606060 BCI 1,PAC 4J360300| 70364 430022000737 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/0737 PAC 4J360400| 70365 472131606060 BCI 1,PAI 4J360500| 70366 430026000044 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0044 PAI 4J360600| 70367 472167606060 BCI 1,PAX 4J360700 70370 430022000734 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/0734 PAX 4J360800| 70371 472263606060 BCI 1,PBT 4J360900| 70372 460066100001 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/1 PBT 4J361000| 0BINARY CARD ID. MAPJ0478| 70373 472423606060 BCI 1,PDC 4J361100 70374 430022004737 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/4737 PDC 4J361200| 70375 472467606060 BCI 1,PDX 4J361300| 70376 430022004734 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/4734 PDX 4J361400| 70377 473121606060 BCI 1,PIA 4J361500| 70400 430026004046 VFD O6/43,12/ING+AOK+TOK+DAL,O18/4046 PIA 4J361600 70401 476225606060 BCI 1,PSE 4J361700| 70402 430006000760 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0760 PSE 4J361800| 70403 476721606060 BCI 1,PXA 4J361900| 70404 430022000754 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/0754 PXA 4J362000| 70405 476724606060 BCI 1,PXD 4J362100 70406 430022004754 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/4754 PXD 4J362200| 70407 512324216060 BCI 1,RCDA 4J362300| 70410 470066020100 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/1,6/0 RCDA 4J362400| 70411 512324226060 BCI 1,RCDB 4J362500| 70412 470066020200 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/2,6/0 RCDB 4J362600 70413 512324236060 BCI 1,RCDC 4J362700| 70414 470066020300 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/3,6/0 RCDC 4J362800| 70415 512324246060 BCI 1,RCDD 4J362900| 70416 470066020400 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/4,6/0 RCDD 4J363000| 70417 512324256060 BCI 1,RCDE 4J363100 70420 470066020500 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/5,6/0 RCDE 4J363200| 0BINARY CARD ID. MAPJ0479| 70421 512324266060 BCI 1,RCDF 4J363300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 274 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 70422 470066020600 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/6,6/0 RCDF 4J363400| 70423 512324276060 BCI 1,RCDG 4J363500| 70424 470066020700 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/7,6/0 RCDG 4J363600| 70425 512324306060 BCI 1,RCDH 4J363700| 70426 470066021000 VFD O6/47,12/ING+ANG+TOK+DAL,6/2,6/8,6/0 RCDH 4J363800 70427 512330216060 BCI 1,RCHA 4J363900| 70430 430106000540 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/540 RCHA 4J364000| 70431 512330226060 BCI 1,RCHB 4J364100| 70432 430106004540 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4540 RCHB 4J364200| 70433 512330236060 BCI 1,RCHC 4J364300 70434 430106000541 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/541 RCHC 4J364400| 70435 512330246060 BCI 1,RCHD 4J364500| 70436 430106004541 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4541 RCHD 4J364600| 70437 512330256060 BCI 1,RCHE 4J364700| 70440 430106000542 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0542 RCHE 4J364800 70441 512330266060 BCI 1,RCHF 4J364900| 70442 430106004542 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4542 RCHF 4J365000| 70443 512330276060 BCI 1,RCHG 4J365100| 70444 430106000543 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0543 RCHG 4J365200| 70445 512330306060 BCI 1,RCHH 4J365300 70446 430106004543 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4543 RCHH 4J365400| 0BINARY CARD ID. MAPJ0480| 70447 512363606060 BCI 1,RCT 4J365500| 70450 460066000014 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/14 RCT 4J365600| 70451 512423216060 BCI 1,RDCA RESET DATA CHANNEL 4J365700 70452 460066001352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/1352 RDCA 4J365800| 70453 512423226060 BCI 1,RDCB 4J365900| 70454 460066002352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/2352 RDCB 4J366000| 70455 512423236060 BCI 1,RDCC 4J366100| 70456 460066003352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/3352 RDCC 4J366200 70457 512423246060 BCI 1,RDCD 4J366300| 70460 460066004352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/4352 RDCD 4J366400| 70461 512423256060 BCI 1,RDCE 4J366500| 70462 460066005352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/5352 RDCE 4J366600| 70463 512423266060 BCI 1,RDCF 4J366700 70464 460066006352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/6352 RDCF 4J366800| 70465 512423276060 BCI 1,RDCG 4J366900| 70466 460066007352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/7352 RDCG 4J367000| 70467 512423306060 BCI 1,RDCH 4J367100| 70470 460066010352 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/10352 RDCH 4J367200 70471 512462606060 BCI 1,RDS 4J367300| 70472 430006000762 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0762 RDS 4J367400| 70473 512566606060 BCI 1,REW 4J367500| 70474 430006000772 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0772 REW 4J367600| 0BINARY CARD ID. MAPJ0481 70475 512566216060 BCI 1,REWA 4J367700| 70476 470006010104 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/4 REWA 4J367800| 70477 512566226060 BCI 1,REWB 4J367900| 70500 470006010204 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/4 REWB 4J368000| 70501 512566236060 BCI 1,REWC 4J368100 70502 470006010304 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/4 REWC 4J368200| 70503 512566246060 BCI 1,REWD 4J368300| 70504 470006010404 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/4 REWD 4J368400| 70505 512566256060 BCI 1,REWE 4J368500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 275 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70506 470006010504 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/4 REWE 4J368600| 70507 512566266060 BCI 1,REWF 4J368700| 70510 470006010604 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/4 REWF 4J368800| 70511 512566276060 BCI 1,REWG 4J368900 70512 470006010704 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/4 REWG 4J369000| 70513 512566306060 BCI 1,REWH 4J369100| 70514 470006011004 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/4 REWH 4J369200| 70515 512663606060 BCI 1,RFT 4J369300| 70516 450017000054 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/0054 RFT 4J369400 70517 513121606060 BCI 1,RIA 4J369500| 70520 430026004042 VFD O6/43,12/ING+AOK+TOK+DAL,O18/4042 RIA 4J369600| 70521 513123216060 BCI 1,RICA 4J369700| 70522 460066001350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/1350 4J369800| 0BINARY CARD ID. MAPJ0482 70523 513123226060 BCI 1,RICB 4J369900| 70524 460066002350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/2350 4J370000| 70525 513123236060 BCI 1,RICC 4J370100| 70526 460066003350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/3350 4J370200| 70527 513123246060 BCI 1,RICD 4J370300 70530 460066004350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/4350 4J370400| 70531 513123256060 BCI 1,RICE 4J370500| 70532 460066005350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/5350 4J370600| 70533 513123266060 BCI 1,RICF 4J370700| 70534 460066006350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/6350 4J370800 70535 513123276060 BCI 1,RICG 4J370900| 70536 460066007350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/7350 4J371000| 70537 513123306060 BCI 1,RICH 4J371100| 70540 460066010350 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/10350 4J371200| 70541 513143606060 BCI 1,RIL 4J371300 70542 450017004057 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/4057 RIL 4J371400| 70543 513151606060 BCI 1,RIR 4J371500| 70544 450017000057 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/0057 RIR 4J371600| 70545 513162606060 BCI 1,RIS 4J371700| 70546 430106000445 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0445 RIS 4J371800 70547 514524606060 BCI 1,RND 4J371900| 70550 460066000010 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/10 RND 4J372000| 0BINARY CARD ID. MAPJ0483| 70551 514563606060 BCI 1,RNT 4J372100| 70552 450017000056 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/0056 RNT 4J372200 70553 514751216060 BCI 1,RPRA 4J372300| 70554 470066040100 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/1,6/0 RPRA 4J372400| 70555 514751226060 BCI 1,RPRB 4J372500| 70556 470066040200 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/2,6/0 RPRB 4J372600| 70557 514751236060 BCI 1,RPRC 4J372700 70560 470066040300 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/3,6/0 RPRC 4J372800| 70561 514751246060 BCI 1,RPRD 4J372900| 70562 470066040400 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/4,6/0 RPRD 4J373000| 70563 514751256060 BCI 1,RPRE 4J373100| 70564 470066040500 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/5,6/0 RPRE 4J373200 70565 514751266060 BCI 1,RPRF 4J373300| 70566 470066040600 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/6,6/0 RPRF 4J373400| 70567 514751276060 BCI 1,RPRG 4J373500| 70570 470066040700 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/7,6/0 RPRG 4J373600| 70571 514751306060 BCI 1,RPRH 4J373700 1 IBMAPV IBMAPJ 12/01/64 PAGE 276 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70572 470066041000 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/8,6/0 RPRH 4J373800| 70573 515043606060 BCI 1,RQL 4J373900| 70574 430006004773 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4773 RQL 4J374000 70575 516223216060 BCI 1,RSCA 4J374100| 70576 430106000540 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0540 RSCA 4J374200| 0BINARY CARD ID. MAPJ0484| 70577 516223226060 BCI 1,RSCB 4J374300| 70600 430106004540 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4540 RSCB 4J374400 70601 516223236060 BCI 1,RSCC 4J374500| 70602 430106000541 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0541 RSCC 4J374600| 70603 516223246060 BCI 1,RSCD 4J374700| 70604 430106004541 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4541 RSCD 4J374800| 70605 516223256060 BCI 1,RSCE 4J374900 70606 430106000542 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0542 RSCE 4J375000| 70607 516223266060 BCI 1,RSCF 4J375100| 70610 430106004542 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4542 RSCF 4J375200| 70611 516223276060 BCI 1,RSCG 4J375300| 70612 430106000543 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0543 RSCG 4J375400 70613 516223306060 BCI 1,RSCH 4J375500| 70614 430106004543 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4543 RSCH 4J375600| 70615 516322216060 BCI 1,RTBA 4J375700| 70616 470006010100 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/0 RTBA 4J375800| 70617 516322226060 BCI 1,RTBB 4J375900 70620 470006010200 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/0 RTBB 4J376000| 70621 516322236060 BCI 1,RTBC 4J376100| 70622 470006010300 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/0 RTBC 4J376200| 70623 516322246060 BCI 1,RTBD 4J376300| 70624 470006010400 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/0 RTBD 4J376400 0BINARY CARD ID. MAPJ0485| 70625 516322256060 BCI 1,RTBE 4J376500| 70626 470006010500 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/0 RTBE 4J376600| 70627 516322266060 BCI 1,RTBF 4J376700| 70630 470006010600 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/0 RTBF 4J376800 70631 516322276060 BCI 1,RTBG 4J376900| 70632 470006010700 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/0 RTBG 4J377000| 70633 516322306060 BCI 1,RTBH 4J377100| 70634 470006011000 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/0 RTBH 4J377200| 70635 516324216060 BCI 1,RTDA 4J377300 70636 470006000100 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/1,6/0 RTDA 4J377400| 70637 516324226060 BCI 1,RTDB 4J377500| 70640 470006000200 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/2,6/0 RTDB 4J377600| 70641 516324236060 BCI 1,RTDC 4J377700| 70642 470006000300 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/3,6/0 RTDC 4J377800 70643 516324246060 BCI 1,RTDD 4J377900| 70644 470006000400 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/4,6/0 RTDD 4J378000| 70645 516324256060 BCI 1,RTDE 4J378100| 70646 470006000500 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/5,6/0 RTDE 4J378200| 70647 516324266060 BCI 1,RTDF 4J378300 70650 470006000600 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/6,6/0 RTDF 4J378400| 70651 516324276060 BCI 1,RTDG 4J378500| 70652 470006000700 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/7,6/0 RTDG 4J378600| 0BINARY CARD ID. MAPJ0486| 70653 516324306060 BCI 1,RTDH 4J378700 1 IBMAPV IBMAPJ 12/01/64 PAGE 277 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70654 470006001000 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/8,6/0 RTDH 4J378800| 70655 516445606060 BCI 1,RUN 4J378900| 70656 430006004772 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/4772 RUN 4J379000 70657 516445216060 BCI 1,RUNA 4J379100| 70660 470006010105 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/5 RUNA 4J379200| 70661 516445226060 BCI 1,RUNB 4J379300| 70662 470006010205 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/5 RUNB 4J379400| 70663 516445236060 BCI 1,RUNC 4J379500 70664 470006010305 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/5 RUNC 4J379600| 70665 516445246060 BCI 1,RUND 4J379700| 70666 470006010405 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/5 RUND 4J379800| 70667 516445256060 BCI 1,RUNE 4J379900| 70670 470006010505 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/5 RUNE 4J380000 70671 516445266060 BCI 1,RUNF 4J380100| 70672 470006010605 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/5 RUNF 4J380200| 70673 516445276060 BCI 1,RUNG 4J380300| 70674 470006010705 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/5 RUNG 4J380400| 70675 516445306060 BCI 1,RUNH 4J380500 70676 470006011005 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/5 RUNH 4J380600| 70677 622244606060 BCI 1,SBM 4J380700| 70700 430106004400 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4400 SBM 4J380800| 0BINARY CARD ID. MAPJ0487| 70701 622324216060 BCI 1,SCDA (6)4J380805 70702 430106000644 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0644 SCDA (6)4J380810| 70703 622324226060 BCI 1,SCDB (6)4J380815| 70704 430106004644 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4644 SCDB (6)4J380820| 70705 622324236060 BCI 1,SCDC (6)4J380825| 70706 430106000645 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0645 SCDC (6)4J380830 70707 622324246060 BCI 1,SCDD (6)4J380835| 70710 430106004645 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4645 SCDD (6)4J380840| 70711 622324256060 BCI 1,SCDE (6)4J380845| 70712 430106000646 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0646 SCDE (6)4J380850| 70713 622324266060 BCI 1,SCDF (6)4J380855 70714 430106004646 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4646 SCDF (6)4J380860| 70715 622324276060 BCI 1,SCDG (6)4J380865| 70716 430106000647 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0647 SCDG (6)4J380870| 70717 622324306060 BCI 1,SCDH (6)4J380875| 70720 430106004647 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4647 SCDH (6)4J380880 70721 622326606060 BCI 1,SCF SET CLOCK OFF 4J380900| 70722 460052100013 VFD O6/46,12/ING+AAL+TAL+DAL,3/1,O15/13 SCF 4J381000| 70723 622330216060 BCI 1,SCHA 4J381100| 70724 430106000640 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/640 SCHA 4J381200| 70725 622330226060 BCI 1,SCHB 4J381300 70726 430106004640 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4640 SCHB 4J381400| 0BINARY CARD ID. MAPJ0488| 70727 622330236060 BCI 1,SCHC 4J381500| 70730 430106000641 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/641 SCHC 4J381600| 70731 622330246060 BCI 1,SCHD 4J381700 70732 430106004641 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4641 SCHD 4J381800| 70733 622330256060 BCI 1,SCHE 4J381900| 70734 430106000642 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0642 SCHE 4J382000| 70735 622330266060 BCI 1,SCHF 4J382100| 70736 430106004642 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4642 SCHF 4J382200 70737 622330276060 BCI 1,SCHG 4J382300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 278 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 70740 430106000643 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0643 SCHG 4J382400| 70741 622330306060 BCI 1,SCHH 4J382500 70742 430106004643 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4643 SCHH 4J382600| 70743 622346606060 BCI 1,SCO SET CLOCK ON 4J382700| 70744 460052000013 VFD O6/46,12/ING+AAL+TAL+DAL,3/0,O15/13 SCO 4J382800| 70745 622430216060 BCI 1,SDHA 4J382900| 70746 470006010102 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/2 SDHA 4J383000 70747 622430226060 BCI 1,SDHB 4J383100| 70750 470006010202 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/2 SDHB 4J383200| 70751 622430236060 BCI 1,SDHC 4J383300| 70752 470006010302 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/2 SDHC 4J383400| 70753 622430246060 BCI 1,SDHD 4J383500 70754 470006010402 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/2 SDHD 4J383600| 0BINARY CARD ID. MAPJ0489| 70755 622430256060 BCI 1,SDHE 4J383700| 70756 470006010502 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/2 SDHE 4J383800| 70757 622430266060 BCI 1,SDHF 4J383900 70760 470006010602 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/2 SDHF 4J384000| 70761 622430276060 BCI 1,SDHG 4J384100| 70762 470006010702 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/2 SDHG 4J384200| 70763 622430306060 BCI 1,SDHH 4J384300| 70764 470006011002 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/2 SDHH 4J384400 70765 622443216060 BCI 1,SDLA 4J384500| 70766 470006000103 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/1,6/3 SDLA 4J384600| 70767 622443226060 BCI 1,SDLB 4J384700| 70770 470006000203 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/2,6/3 SDLB 4J384800| 70771 622443236060 BCI 1,SDLC 4J384900 70772 470006000303 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/3,6/3 SDLC 4J385000| 70773 622443246060 BCI 1,SDLD 4J385100| 70774 470006000403 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/4,6/3 SDLD 4J385200| 70775 622443256060 BCI 1,SDLE 4J385300| 70776 470006000503 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/5,6/3 SDLE 4J385400 70777 622443266060 BCI 1,SDLF 4J385500| 71000 470006000603 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/6,6/3 SDLF 4J385600| 71001 622443276060 BCI 1,SDLG 4J385700| 71002 470006000703 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/7,6/3 SDLG 4J385800| 0BINARY CARD ID. MAPJ0490 71003 622443306060 BCI 1,SDLH 4J385900| 71004 470006001003 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/8,6/3 SDLH 4J386000| 71005 622445606060 BCI 1,SDN 4J386100| 71006 430006000776 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0776 SDN 4J386200| 71007 623143606060 BCI 1,SIL 4J386300 71010 450017004055 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/4055 SIL 4J386400| 71011 623151606060 BCI 1,SIR 4J386500| 71012 450017000055 VFD O6/45,12/ING+ARQ+TNG+DNG,O18/0055 SIR 4J386600| 71013 624326606060 BCI 1,SLF 4J386700| 71014 460066000140 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/0140 SLF 4J386800 71015 624345606060 BCI 1,SLN 4J386900| 71016 460006000140 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/140 SLN 4J387000| 71017 624350606060 BCI 1,SLQ 4J387100| 71020 430106004620 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4620 SLQ 4J387200| 71021 624363606060 BCI 1,SLT 4J387300 71022 460006100140 VFD O6/46,12/ING+ARQ+TOK+DAL,3/1,O15/140 SLT 4J387400| 71023 624366606060 BCI 1,SLW 4J387500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 279 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71024 430106000602 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0602 SLW 4J387600 71025 624751216060 BCI 1,SPRA 4J387700| 71026 460006001360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/1360 SPRA 4J387800| 71027 624751226060 BCI 1,SPRB 4J387900| 71030 460006002360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/2360 SPRB 4J388000| 0BINARY CARD ID. MAPJ0491 71031 624751236060 BCI 1,SPRC 4J388100| 71032 460006003360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/3360 SPRC 4J388200| 71033 624751246060 BCI 1,SPRD 4J388300| 71034 460006004360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/4360 SPRD 4J388400| 71035 624751256060 BCI 1,SPRE 4J388500 71036 460006005360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/5360 SPRE 4J388600| 71037 624751266060 BCI 1,SPRF 4J388700| 71040 460006006360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/6360 SPRF 4J388800| 71041 624751276060 BCI 1,SPRG 4J388900| 71042 460006007360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/7360 SPRG 4J389000 71043 624751306060 BCI 1,SPRH 4J389100| 71044 460006010360 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/10360 SPRH 4J389200| 71045 624763216060 BCI 1,SPTA 4J389300| 71046 460066001360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/1360 SPTA 4J389400| 71047 624763226060 BCI 1,SPTB 4J389500 71050 460066002360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/2360 SPTB 4J389600| 71051 624763236060 BCI 1,SPTC 4J389700| 71052 460066003360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/3360 SPTC 4J389800| 71053 624763246060 BCI 1,SPTD 4J389900| 71054 460066004360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/4360 SPTD 4J390000 71055 624763256060 BCI 1,SPTE 4J390100| 71056 460066005360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/5360 SPTE 4J390200| 0BINARY CARD ID. MAPJ0492| 71057 624763266060 BCI 1,SPTF 4J390300| 71060 460066006360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/6360 SPTF 4J390400 71061 624763276060 BCI 1,SPTG 4J390500| 71062 460066007360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/7360 SPTG 4J390600| 71063 624763306060 BCI 1,SPTH 4J390700| 71064 460066010360 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/10360 SPTH 4J390800| 71065 624764216060 BCI 1,SPUA 4J390900 71066 460006001340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/1340 SPUA 4J391000| 71067 624764226060 BCI 1,SPUB 4J391100| 71070 460006002340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/2340 SPUB 4J391200| 71071 624764236060 BCI 1,SPUC 4J391300| 71072 460006003340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/3340 SPUC 4J391400 71073 624764246060 BCI 1,SPUD 4J391500| 71074 460006004340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/4340 SPUD 4J391600| 71075 624764256060 BCI 1,SPUE 4J391700| 71076 460006005340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/5340 SPUE 4J391800| 71077 624764266060 BCI 1,SPUF 4J391900 71100 460006006340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/6340 SPUF 4J392000| 71101 624764276060 BCI 1,SPUG 4J392100| 71102 460006007340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/7340 SPUG 4J392200| 71103 624764306060 BCI 1,SPUH 4J392300| 71104 460006010340 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/10340 SPUH 4J392400 0BINARY CARD ID. MAPJ0493| 71105 626244606060 BCI 1,SSM 4J392500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 280 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71106 460066100003 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/3 SSM 4J392600 71107 626247606060 BCI 1,SSP 4J392700| 71110 460066000003 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/3 SSP 4J392800| 71111 626321606060 BCI 1,STA 4J392900| 71112 430106000621 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0621 STA 4J393000| 71113 626323216060 BCI 1,STCA 4J393100 71114 430126000544 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/544 4J393200| 71115 626323226060 BCI 1,STCB 4J393300| 71116 430126004544 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/4544 4J393400| 71117 626323236060 BCI 1,STCC 4J393500| 71120 430126000545 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/545 4J393600 71121 626323246060 BCI 1,STCD 4J393700| 71122 430126004545 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/4545 4J393800| 71123 626323256060 BCI 1,STCE 4J393900| 71124 430126000546 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/546 4J394000| 71125 626323266060 BCI 1,STCF 4J394100 71126 430126004546 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/4546 4J394200| 71127 626323276060 BCI 1,STCG 4J394300| 71130 430126000547 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/547 4J394400| 71131 626323306060 BCI 1,STCH 4J394500| 71132 430126004547 VFD O6/43,12/IOK+AOK+TOK+DAL,O18/4547 4J394600 0BINARY CARD ID. MAPJ0494| 71133 626324606060 BCI 1,STD 4J394700| 71134 430106000622 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0622 STD 4J394800| 71135 626331606060 BCI 1,STI 4J394900| 71136 430106000604 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0604 STI 4J395000 71137 626343606060 BCI 1,STL 4J395100| 71140 430106004625 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4625 STL 4J395200| 71141 626346606060 BCI 1,STO 4J395300| 71142 430106000601 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0601 STO 4J395400| 71143 626347606060 BCI 1,STP 4J395500 71144 430106000630 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0630 STP 4J395600| 71145 626350606060 BCI 1,STQ 4J395700| 71146 430106004600 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4600 STQ 4J395800| 71147 626351606060 BCI 1,STR 4J395900| 71150 400025005000 VFD O6/40,12/ING+AOK+TOK+DOK,O18/5000 STR 4J396000 71151 626363606060 BCI 1,STT 4J396100| 71152 430106000625 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0625 STT 4J396200| 71153 626371606060 BCI 1,STZ 4J396300| 71154 430106000600 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0600 STZ 4J396400| 71155 626422606060 BCI 1,SUB 4J396500 71156 430106000402 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0402 SUB 4J396600| 71157 626663606060 BCI 1,SWT 4J396700| 71160 460006000160 VFD O6/46,12/ING+ARQ+TOK+DAL,3/0,O15/160 SWT 4J396800| 0BINARY CARD ID. MAPJ0495| 71161 626721606060 BCI 1,SXA 4J396900 71162 430002000634 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/0634 SXA 4J397000| 71163 626724606060 BCI 1,SXD 4J397100| 71164 430002004634 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/4634 SXD 4J397200| 71165 632345216060 BCI 1,TCNA 4J397300| 71166 430106004060 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4060 TCNA 4J397400 71167 632345226060 BCI 1,TCNB 4J397500| 71170 430106004061 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4061 TCNB 4J397600| 71171 632345236060 BCI 1,TCNC 4J397700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 281 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 71172 430106004062 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4062 TCNC 4J397800| 71173 632345246060 BCI 1,TCND 4J397900| 71174 430106004063 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4063 TCND 4J398000| 71175 632345256060 BCI 1,TCNE 4J398100| 71176 430106004064 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4064 TCNE 4J398200 71177 632345266060 BCI 1,TCNF 4J398300| 71200 430106004065 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4065 TCNF 4J398400| 71201 632345276060 BCI 1,TCNG 4J398500| 71202 430106004066 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4066 TCNG 4J398600| 71203 632345306060 BCI 1,TCNH 4J398700 71204 430106004067 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4067 TCNH 4J398800| 71205 632346216060 BCI 1,TCOA 4J398900| 71206 430106000060 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/60 TCOA 4J399000| 0BINARY CARD ID. MAPJ0496| 71207 632346226060 BCI 1,TCOB 4J399100 71210 430106000061 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/61 TCOB 4J399200| 71211 632346236060 BCI 1,TCOC 4J399300| 71212 430106000062 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/62 TCOC 4J399400| 71213 632346246060 BCI 1,TCOD 4J399500| 71214 430106000063 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/63 TCOD 4J399600 71215 632346256060 BCI 1,TCOE 4J399700| 71216 430106000064 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0064 TCOE 4J399800| 71217 632346266060 BCI 1,TCOF 4J399900| 71220 430106000065 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0065 TCOF 4J400000| 71221 632346276060 BCI 1,TCOG 4J400100 71222 430106000066 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0066 TCOG 4J400200| 71223 632346306060 BCI 1,TCOH 4J400300| 71224 430106000067 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0067 TCOH 4J400400| 71225 632526216060 BCI 1,TEFA 4J400500| 71226 430106000030 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0030 TEFA 4J400600 71227 632526226060 BCI 1,TEFB 4J400700| 71230 430106004030 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4030 TEFB 4J400800| 71231 632526236060 BCI 1,TEFC 4J400900| 71232 430106000031 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0031 TEFC 4J401000| 71233 632526246060 BCI 1,TEFD 4J401100 71234 430106004031 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4031 TEFD 4J401200| 0BINARY CARD ID. MAPJ0497| 71235 632526256060 BCI 1,TEFE 4J401300| 71236 430106000032 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0032 TEFE 4J401400| 71237 632526266060 BCI 1,TEFF 4J401500 71240 430106004032 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4032 TEFF 4J401600| 71241 632526276060 BCI 1,TEFG 4J401700| 71242 430106000033 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0033 TEFG 4J401800| 71243 632526306060 BCI 1,TEFH 4J401900| 71244 430106004033 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4033 TEFH 4J402000 71245 633126606060 BCI 1,TIF 4J402100| 71246 430106000046 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0046 TIF 4J402200| 71247 633146606060 BCI 1,TIO 4J402300| 71250 430106000042 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0042 TIO 4J402400| 71251 633167606060 BCI 1,TIX 4J402500 71252 400000002000 VFD O6/40,12/ING+ARQ+TRQ+DRQ,O18/2000 TIX 4J402600| 71253 634350606060 BCI 1,TLQ 4J402700| 71254 430106000040 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0040 TLQ 4J402800| 71255 634431606060 BCI 1,TMI 4J402900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 282 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71256 430106004120 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4120 TMI 4J403000| 71257 634546606060 BCI 1,TNO 4J403100| 71260 430106004140 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4140 TNO 4J403200| 71261 634567606060 BCI 1,TNX 4J403300 71262 400000006000 VFD O6/40,12/ING+ARQ+TRQ+DRQ,O18/6000 TNX 4J403400| 0BINARY CARD ID. MAPJ0498| 71263 634571606060 BCI 1,TNZ 4J403500| 71264 430106004100 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4100 TNZ 4J403600| 71265 634665606060 BCI 1,TOV 4J403700 71266 430106000140 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0140 TOV 4J403800| 71267 634743606060 BCI 1,TPL 4J403900| 71270 430106000120 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0120 TPL 4J404000| 71271 635046606060 BCI 1,TQO 4J404100| 71272 430106000161 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0161 TQO 4J404200 71273 635047606060 BCI 1,TQP 4J404300| 71274 430106000162 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0162 TQP 4J404400| 71275 635121606060 BCI 1,TRA 4J404500| 71276 430106000020 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0020 TRA 4J404600| 71277 635123216060 BCI 1,TRCA 4J404700 71300 430106000022 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0022 TRCA 4J404800| 71301 635123226060 BCI 1,TRCB 4J404900| 71302 430106004022 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4022 TRCB 4J405000| 71303 635123236060 BCI 1,TRCC 4J405100| 71304 430106000024 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0024 TRCC 4J405200 71305 635123246060 BCI 1,TRCD 4J405300| 71306 430106004024 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4024 TRCD 4J405400| 71307 635123256060 BCI 1,TRCE 4J405500| 71310 430106000026 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0026 TRCE 4J405600| 0BINARY CARD ID. MAPJ0499 71311 635123266060 BCI 1,TRCF 4J405700| 71312 430106004026 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4026 TRCF 4J405800| 71313 635123276060 BCI 1,TRCG 4J405900| 71314 430106000027 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0027 TRCG 4J406000| 71315 635123306060 BCI 1,TRCH 4J406100 71316 430106004027 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4027 TRCH 4J406200| 71317 636267606060 BCI 1,TSX 4J406300| 71320 430001000074 VFD O6/43,12/ING+ARQ+TRQ+DOK,O18/0074 TSX (6)4J406400| 71321 636351606060 BCI 1,TTR 4J406500| 71322 430106000021 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0021 TTR 4J406600 71323 636730606060 BCI 1,TXH 4J406700| 71324 400000003000 VFD O6/40,12/ING+ARQ+TRQ+DRQ,O18/3000 TXH 4J406800| 71325 636731606060 BCI 1,TXI 4J406900| 71326 400000001000 VFD O6/40,12/ING+ARQ+TRQ+DRQ,O18/1000 TXI 4J407000| 71327 636743606060 BCI 1,TXL 4J407100 71330 400000007000 VFD O6/40,12/ING+ARQ+TRQ+DRQ,O18/7000 TXL 4J407200| 71331 637125606060 BCI 1,TZE 4J407300| 71332 430106000100 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0100 TZE 4J407400| 71333 642144606060 BCI 1,UAM 4J407500| 71334 430106004304 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4304 UAM 4J407600 71335 642621606060 BCI 1,UFA 4J407700| 71336 430106004300 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4300 UFA 4J407800| 0BINARY CARD ID. MAPJ0500| 71337 642644606060 BCI 1,UFM 4J407900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 283 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71340 430106004260 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4260 UFM 4J408000| 71341 642662606060 BCI 1,UFS 4J408100| 71342 430106004302 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4302 UFS 4J408200| 71343 646244606060 BCI 1,USM 4J408300 71344 430106004306 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4306 USM 4J408400| 71345 652321626060 BCI 1,VCAS 4J408500| 71346 430106000341 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0341 VCAS 4J408600| 71347 652430606060 BCI 1,VDH 4J408700| 71350 430104000224 VFD O6/43,12/IOK+ARQ+TOK+DRQ,O18/0224 VDH 4J408800 71351 652447606060 BCI 1,VDP VARIABLE DIVIDE AND PROCEED 4J408900| 71352 430104000225 VFD O6/43,12/IOK+ARQ+TOK+DRQ,O18/0225 VDP 4J409000| 71353 654321626060 BCI 1,VLAS 4J409100| 71354 430106004341 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4341 VLAS 4J409200| 71355 654344606060 BCI 1,VLM VARIABLE LENGTH MULTIPLY 4J409300 71356 430104000204 VFD O6/43,12/IOK+ARQ+TOK+DRQ,O18/0204 VLM 4J409400| 71357 662526606060 BCI 1,WEF 4J409500| 71360 430006000770 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0770 WEF 4J409600| 71361 662526216060 BCI 1,WEFA 4J409700| 71362 470006010110 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/8 WEFA 4J409800 71363 662526226060 BCI 1,WEFB 4J409900| 71364 470006010210 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/8 WEFB 4J410000| 0BINARY CARD ID. MAPJ0501| 71365 662526236060 BCI 1,WEFC 4J410100| 71366 470006010310 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/8 WEFC 4J410200 71367 662526246060 BCI 1,WEFD 4J410300| 71370 470006010410 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/8 WEFD 4J410400| 71371 662526256060 BCI 1,WEFE 4J410500| 71372 470006010510 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/8 WEFE 4J410600| 71373 662526266060 BCI 1,WEFF 4J410700 71374 470006010610 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/8 WEFF 4J410800| 71375 662526276060 BCI 1,WEFG 4J410900| 71376 470006010710 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/8 WEFG 4J411000| 71377 662526306060 BCI 1,WEFH 4J411100| 71400 470006011010 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/8 WEFH 4J411200 71401 664722216060 BCI 1,WPBA 4J411300| 71402 470066050101 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/1,6/1 WPBA 4J411400| 71403 664722226060 BCI 1,WPBB 4J411500| 71404 470066050201 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/2,6/1 WPBB 4J411600| 71405 664722236060 BCI 1,WPBC 4J411700 71406 470066050301 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/3,6/1 WPBC 4J411800| 71407 664722246060 BCI 1,WPBD 4J411900| 71410 470066050401 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/4,6/1 WPBD 4J412000| 71411 664722256060 BCI 1,WPBE 4J412100| 71412 470066050501 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/5,6/1 WPBE 4J412200 0BINARY CARD ID. MAPJ0502| 71413 664722266060 BCI 1,WPBF 4J412300| 71414 470066050601 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/6,6/1 WPBF 4J412400| 71415 664722276060 BCI 1,WPBG 4J412500| 71416 470066050701 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/7,6/1 WPBG 4J412600 71417 664722306060 BCI 1,WPBH 4J412700| 71420 470066051001 VFD O6/47,12/ING+ANG+TOK+DAL,6/5,6/8,6/1 WPBH 4J412800| 71421 664724216060 BCI 1,WPDA 4J412900| 71422 470066040101 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/1,6/1 WPDA 4J413000| 71423 664724226060 BCI 1,WPDB 4J413100 1 IBMAPV IBMAPJ 12/01/64 PAGE 284 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71424 470066040201 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/2,6/1 WPDB 4J413200| 71425 664724236060 BCI 1,WPDC 4J413300| 71426 470066040301 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/3,6/1 WPDC 4J413400 71427 664724246060 BCI 1,WPDD 4J413500| 71430 470066040401 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/4,6/1 WPDD 4J413600| 71431 664724256060 BCI 1,WPDE 4J413700| 71432 470066040501 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/5,6/1 WPDE 4J413800| 71433 664724266060 BCI 1,WPDF 4J413900 71434 470066040601 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/6,6/1 WPDF 4J414000| 71435 664724276060 BCI 1,WPDG 4J414100| 71436 470066040701 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/7,6/1 WPDG 4J414200| 71437 664724306060 BCI 1,WPDH 4J414300| 71440 470066041001 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/8,6/1 WPDH 4J414400 0BINARY CARD ID. MAPJ0503| 71441 664751216060 BCI 1,WPRA (6)4J414405| 71442 470066040101 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/1,6/1 WPRA (6)4J414410| 71443 664751226060 BCI 1,WPRB (6)4J414415| 71444 470066040201 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/2,6/1 WPRB (6)4J414420 71445 664751236060 BCI 1,WPRC (6)4J414425| 71446 470066040301 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/3,6/1 WPRC (6)4J414430| 71447 664751246060 BCI 1,WPRD (6)4J414435| 71450 470066040401 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/4,6/1 WPRD (6)4J414440| 71451 664751256060 BCI 1,WPRE (6)4J414445 71452 470066040501 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/5,6/1 WPRE (6)4J414450| 71453 664751266060 BCI 1,WPRF (6)4J414455| 71454 470066040601 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/6,6/1 WPRF (6)4J414460| 71455 664751276060 BCI 1,WPRG (6)4J414465| 71456 470066040701 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/7,6/1 WPRG (6)4J414470 71457 664751306060 BCI 1,WPRH (6)4J414475| 71460 470066041001 VFD O6/47,12/ING+ANG+TOK+DAL,6/4,6/8,6/1 WPRH (6)4J414480| 71461 664764216060 BCI 1,WPUA 4J414500| 71462 470066030101 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/1,6/1 WPUA 4J414600| 71463 664764226060 BCI 1,WPUB 4J414700 71464 470066030201 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/2,6/1 WPUB 4J414800| 71465 664764236060 BCI 1,WPUC 4J414900| 71466 470066030301 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/3,6/1 WPUC 4J415000| 0BINARY CARD ID. MAPJ0504| 71467 664764246060 BCI 1,WPUD 4J415100 71470 470066030401 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/4,6/1 WPUD 4J415200| 71471 664764256060 BCI 1,WPUE 4J415300| 71472 470066030501 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/5,6/1 WPUE 4J415400| 71473 664764266060 BCI 1,WPUF 4J415500| 71474 470066030601 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/6,6/1 WPUF 4J415600 71475 664764276060 BCI 1,WPUG 4J415700| 71476 470066030701 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/7,6/1 WPUG 4J415800| 71477 664764306060 BCI 1,WPUH 4J415900| 71500 470066031001 VFD O6/47,12/ING+ANG+TOK+DAL,6/3,6/8,6/1 WPUH 4J416000| 71501 665162606060 BCI 1,WRS 4J416100 71502 430006000766 VFD O6/43,12/ING+ARQ+TOK+DAL,O18/0766 WRS 4J416200| 71503 666322216060 BCI 1,WTBA 4J416300| 71504 470006010101 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/1,6/1 WTBA 4J416400| 71505 666322226060 BCI 1,WTBB 4J416500| 71506 470006010201 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/2,6/1 WTBB 4J416600 71507 666322236060 BCI 1,WTBC 4J416700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 285 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71510 470006010301 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/3,6/1 WTBC 4J416800| 71511 666322246060 BCI 1,WTBD 4J416900 71512 470006010401 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/4,6/1 WTBD 4J417000| 71513 666322256060 BCI 1,WTBE 4J417100| 71514 470006010501 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/5,6/1 WTBE 4J417200| 0BINARY CARD ID. MAPJ0505| 71515 666322266060 BCI 1,WTBF 4J417300 71516 470006010601 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/6,6/1 WTBF 4J417400| 71517 666322276060 BCI 1,WTBG 4J417500| 71520 470006010701 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/7,6/1 WTBG 4J417600| 71521 666322306060 BCI 1,WTBH 4J417700| 71522 470006011001 VFD O6/47,12/ING+ARQ+TOK+DAL,6/1,6/8,6/1 WTBH 4J417800 71523 666324216060 BCI 1,WTDA 4J417900| 71524 470006000101 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/1,6/1 WTDA 4J418000| 71525 666324226060 BCI 1,WTDB 4J418100| 71526 470006000201 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/2,6/1 WTDB 4J418200| 71527 666324236060 BCI 1,WTDC 4J418300 71530 470006000301 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/3,6/1 WTDC 4J418400| 71531 666324246060 BCI 1,WTDD 4J418500| 71532 470006000401 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/4,6/1 WTDD 4J418600| 71533 666324256060 BCI 1,WTDE 4J418700| 71534 470006000501 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/5,6/1 WTDE 4J418800 71535 666324266060 BCI 1,WTDF 4J418900| 71536 470006000601 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/6,6/1 WTDF 4J419000| 71537 666324276060 BCI 1,WTDG 4J419100| 71540 470006000701 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/7,6/1 WTDG 4J419200| 71541 666324306060 BCI 1,WTDH 4J419300 71542 470006001001 VFD O6/47,12/ING+ARQ+TOK+DAL,6/0,6/8,6/1 WTDH 4J419400| 0BINARY CARD ID. MAPJ0506| 71543 672321606060 BCI 1,XCA 4J419500| 71544 430026000131 VFD O6/43,12/ING+AOK+TOK+DAL,O18/0131 SCA 4J419600| 71545 672343606060 BCI 1,XCL 4J419700 71546 430026004130 VFD O6/43,12/ING+AOK+TOK+DAL,O18/4130 XCL 4J419800| 71547 672523606060 BCI 1,XEC 4J419900| 71550 430106000522 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0522 XEC 4J420000| 71551 712563606060 BCI 1,ZET 4J420100| 71552 430106000520 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0520 ZET 4J420200 | * DSC COMMANDS 4J420400| | 71553 314623246060 BCI 1,IOCD 4J420600| 71554 420114000000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/0000 IOCD 4J420700 71555 314623244560 BCI 1,IOCDN 4J420800| 71556 420114200000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/0000 IOCDN 4J420900| 71557 314623476060 BCI 1,IOCP 4J421000| 71560 420114004000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/4000 IOCP 4J421100| 71561 314623474560 BCI 1,IOCPN 4J421200 71562 420114204000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/4000 IOCPN 4J421300| 71563 314623636060 BCI 1,IOCT 4J421400| 71564 420114005000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/5000 IOCT 4J421500| 71565 314623634560 BCI 1,IOCTN 4J421600| 71566 420114205000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/5000 IOCTN 4J421700 71567 314651476060 BCI 1,IORP 4J421800| 71570 420114002000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/2000 IORP 4J421900| 1 IBMAPV IBMAPJ 12/01/64 PAGE 286 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0BINARY CARD ID. MAPJ0507 71571 314651474560 BCI 1,IORPN 4J422000| 71572 420114202000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/2000 IORPN 4J422100| 71573 314651636060 BCI 1,IORT 4J422200| 71574 420114003000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/3000 IORT 4J422300| 71575 314651634560 BCI 1,IORTN 4J422400 71576 420114203000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/3000 IORTN 4J422500| 71577 314662476060 BCI 1,IOSP 4J422600| 71600 420114006000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/6000 IOSP 4J422700| 71601 314662474560 BCI 1,IOSPN 4J422800| 71602 420114206000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/6000 IOSPN 4J422900 71603 314662636060 BCI 1,IOST 4J423000| 71604 420114007000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/0,O15/7000 IOST 4J423100| 71605 314662634560 BCI 1,IOSTN 4J423200| 71606 420114207000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/2,O15/7000 IOSTN 4J423300| 71607 632330606060 BCI 1,TCH 4J423400 71610 420116001000 VFD O6/42,12/IOK+ARQ+TNG+DAL,3/0,O15/1000 TCH 4J423500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 287 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| | * PSEUDO-OPS 4J423800| | | 71611 212262606060 BCI 1,ABS 4J424000 71612 730000000000 VFD O6/73,12/0 ABS 4J424100| 71613 222331606060 BCI 1,BCI 4J424200| 71614 710002000000 VFD O6/71,12/2 BCI 4J424300| 71615 222527314560 BCI 1,BEGIN 4J424400| 71616 630001000000 VFD O6/63,12/1 BEGIN 4J424500 0BINARY CARD ID. MAPJ0508| 71617 222562606060 BCI 1,BES 4J424600| 71620 640001000000 VFD O6/64,12/1 BES 4J424700| 71621 224646436060 BCI 1,BOOL 4J424800| 71622 660000000000 VFD O6/66,12/0 BOOL 4J424900 71623 226262606060 BCI 1,BSS 4J425000| 71624 640000000000 VFD O6/64,12/0 BSS 4J425100| 71625 232143436060 BCI 1,CALL 4J425200| 71626 760000000000 VFD O6/76,12/0 CALL 4J425300| 71627 234644444645 BCI 1,COMMON 4J425400 71630 640002000000 VFD O6/64,12/2 COMMON 4J425500| 71631 234645635143 BCI 1,CONTRL 4J425600| 71632 720002000000 VFD O6/72,12/2 CONTRL 4J425700| 71633 235125216325 BCI 1,CREATE (6)4J425710| 71634 610010000000 VFD O6/61,12/8 CREATE (6)4J425720 71635 242523606060 BCI 1,DEC 4J425800| 71636 710001000000 VFD O6/71,12/1 DEC 4J425900| 71637 242563213143 BCI 1,DETAIL 4J426000| 71640 770003000000 VFD O6/77,12/3 DETAIL 4J426100| 71641 246447606060 BCI 1,DUP 4J426200 71642 700000000000 VFD O6/70,12/0 DUP 4J426300| 71643 254125236360 BCI 1,EJECT 4J426400| 71644 770004000000 VFD O6/77,12/4 EJECT 4J426500| 0BINARY CARD ID. MAPJ0509| 71645 254524606060 BCI 1,END 4J426600 71646 750003000000 VFD O6/75,12/3 END 4J426700| 71647 254524446060 BCI 1,ENDM 4J426800| 71650 610006000000 VFD O6/61,12/6 ENDM 4J426900| 71651 254524506060 BCI 1,ENDQ 4J427000| 71652 720001000000 VFD O6/72,12/1 ENDQ 4J427100 71653 254563517060 BCI 1,ENTRY 4J427200| 71654 720004000000 VFD O6/72,12/4 ENTRY 4J427300| 71655 255064606060 BCI 1,EQU 4J427400| 71656 650000000000 VFD O6/65,12/0 EQU 4J427500| 71657 256323606060 BCI 1,ETC 4J427600 71660 750000000000 VFD O6/75,12/0 ETC 4J427700| 71661 256525456060 BCI 1,EVEN 4J427800| 71662 640003000000 VFD O6/64,12/3 EVEN 4J427900| 71663 263143256060 BCI 1,FILE 4J428000| 71664 720003000000 VFD O6/72,12/3 FILE 4J428100 71665 266443606060 BCI 1,FUL 4J428200| 71666 730001000000 VFD O6/73,12/1 FUL 4J428300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 288 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71667 274663466060 BCI 1,GOTO $4$4J428400 71670 700001000000 VFD O6/70,12/1 GO TO $4$4J428500| 71671 312626606060 BCI 1,IFF 4J428600| 71672 610001000000 VFD O6/61,12/1 IFF 4J428700| 0BINARY CARD ID. MAPJ0510| 71673 312663606060 BCI 1,IFT 4J428800 71674 610000000000 VFD O6/61,12/0 IFT 4J428900| 71675 314524256760 BCI 1,INDEX 4J429000| 71676 770010000000 VFD O6/77,12/8 INDEX 4J429100| 71677 315147606060 BCI 1,IRP 4J429200| 71700 610002000000 VFD O6/61,12/2 IRP 4J429300 71701 422525476060 BCI 1,KEEP $4$4J429400| 71702 750004000000 VFD O6/75,12/4 KEEP (6)4J429500| 71703 432122254360 BCI 1,LABEL 4J429600| 71704 720005000000 VFD O6/72,12/5,18/0 LABEL 4J429700| 71705 432243606060 BCI 1,LBL 4J429800 71706 770006000000 VFD O6/77,12/6 LBL 4J429900| 71707 432246464360 BCI 1,LBOOL 4J430000| 71710 660001000000 VFD O6/66,12/1 LBOOL 4J430100| 71711 432431516060 BCI 1,LDIR 4J430200| 71712 640005000000 VFD O6/64,12/5 LDIR 4J430300 71713 433162636060 BCI 1,LIST 4J430400| 71714 770001000000 VFD O6/77,12/1 LIST 4J430500| 71715 433163606060 BCI 1,LIT 4J430600| 71716 710003000000 VFD O6/71,12/3 LIT 4J430700| 71717 433163465127 BCI 1,LITORG LITORG $5$4J430701 71720 640006000000 VFD O6/64,12/6 $5$4J430702| 0BINARY CARD ID. MAPJ0511| 71721 434623606060 BCI 1,LOC $5$4J430710| 71722 630003000000 VFD O6/63,12/3 LOC $5$4J430720| 71723 434651276060 BCI 1,LORG 4J430800 71724 640004000000 VFD O6/64,12/4 LORG 4J430900| 71725 442123514660 BCI 1,MACRO 4J431000| 71726 600000000000 VFD O6/60,12/0 MACRO 4J431100| 71727 442167606060 BCI 1,MAX 4J431200| 71730 650001000000 VFD O6/65,12/1 MAX 4J431300 71731 443145606060 BCI 1,MIN 4J431400| 71732 650002000000 VFD O6/65,12/2 MIN 4J431500| 71733 444546632560 BCI 1,MNOTE (6)4J431510| 71734 770014000000 VFD O6/77,12/12 MNOTE (6)4J431520| 71735 454623516260 BCI 1,NOCRS 4J431600 71736 610005000000 VFD O6/61,12/5 NOCRS 4J431700| 71737 456443436060 BCI 1,NULL 4J431800| 71740 750002000000 VFD O6/75,12/2 NULL 4J431900| 71741 462363606060 BCI 1,OCT 4J432000| 71742 710000000000 VFD O6/71,12/0 OCT 4J432100 71743 464724606060 BCI 1,OPD 4J432200| 71744 670000000000 VFD O6/67,12/0 OPD 4J432300| 71745 464762704560 BCI 1,OPSYN 4J432400| 71746 670002000000 VFD O6/67,12/2 OPSYN 4J432500| 0BINARY CARD ID. MAPJ0512 71747 464765262460 BCI 1,OPVFD 4J432600| 71750 670001000000 VFD O6/67,12/1 OPVFD 4J432700| 1 IBMAPV IBMAPJ 12/01/64 PAGE 289 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 71751 465127606060 BCI 1,ORG 4J432800 71752 630002000000 VFD O6/63,12/2 ORG 4J432900| 71753 465127235162 BCI 1,ORGCRS 4J433000| 71754 610004000000 VFD O6/61,12/4 ORGCRS 4J433100| 71755 472323606060 BCI 1,PCC 4J433200| 71756 770007000000 VFD O6/77,12/7 PCC 4J433300 71757 472327606060 BCI 1,PCG 4J433400| 71760 770013000000 VFD O6/77,12/11 PCG 4J433500| 71761 474423606060 BCI 1,PMC 4J433600| 71762 770011000000 VFD O6/77,12/9 PMC 4J433700| 71763 476445233060 BCI 1,PUNCH 4J433800 71764 730003000000 VFD O6/73,12/3 PUNCH 4J433900| 71765 476451272560 BCI 1,PURGE $4$4J434000| 71766 610007000000 VFD O6/61,12/7 PURGE (6)4J434100| 71767 506421436060 BCI 1,QUAL 4J434200| 71770 720000000000 VFD O6/72,12/0 QUAL 4J434300 71771 512246464360 BCI 1,RBOOL 4J434400| 71772 660002000000 VFD O6/66,12/2 RBOOL 4J434500| 71773 512544606060 BCI 1,REM 4J434600| 71774 750001000000 VFD O6/75,12/1 REM 4J434700| 0BINARY CARD ID. MAPJ0513 71775 622165256060 BCI 1,SAVE 4J434800| 71776 760001000000 VFD O6/76,12/1 SAVE 4J434900| 71777 622165254560 BCI 1,SAVEN 4J435000| 72000 760002000000 VFD O6/76,12/2 SAVEN 4J435100| 72001 622563606060 BCI 1,SET 4J435200 72002 610003000000 VFD O6/61,12/3 SET 4J435300| 72003 624721232560 BCI 1,SPACE 4J435400| 72004 770005000000 VFD O6/77,12/5 SPACE 4J435500| 72005 627045606060 BCI 1,SYN 4J435600| 72006 650000000000 VFD O6/65,12/0 SYN 4J435700 72007 632324606060 BCI 1,TCD 4J435800| 72010 730002000000 VFD O6/73,12/2 TCD 4J435900| 72011 633163432560 BCI 1,TITLE 4J436000| 72012 770002000000 VFD O6/77,12/2 TITLE 4J436100| 72013 636343606060 BCI 1,TTL 4J436200 72014 770012000000 VFD O6/77,12/10 TTL 4J436300| 72015 644543316263 BCI 1,UNLIST 4J436400| 72016 770000000000 VFD O6/77,12/0 UNLIST 4J436500| 72017 644547452330 BCI 1,UNPNCH 4J436600| 72020 730004000000 VFD O6/73,12/4 UNPNCH 4J436700 72021 646225606060 BCI 1,USE 4J436800| 72022 630000000000 VFD O6/63,12/0 USE 4J436900| 0BINARY CARD ID. MAPJ0514| 72023 652624606060 BCI 1,VFD 4J437000| 72024 710004000000 VFD O6/71,12/4 VFD 4J437100 1 IBMAPV IBMAPJ 12/01/64 PAGE 290 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| | | | * PREFIX CODES 4J437400| | 72025 263165256060 BCI 1,FIVE 4J437600| 72026 410125005000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/5000 FIVE 4J437700| 72027 264651606060 BCI 1,FOR 4J437800| 72030 410125004000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/4000 FOR 4J437900| 72031 264664516060 BCI 1,FOUR 4J438000 72032 410125004000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/4000 FOUR 4J438100| 72033 266525606060 BCI 1,FVE 4J438200| 72034 410125005000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/5000 FVE 4J438300| 72035 444645606060 BCI 1,MON 4J438400| 72036 410125005000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/5000 MON 4J438500 72037 446330606060 BCI 1,MTH 4J438600| 72040 410125007000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/7000 MTH 4J438700| 72041 446366606060 BCI 1,MTW 4J438800| 72042 410125006000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/6000 MTW 4J438900| 72043 447125606060 BCI 1,MZE 4J439000 72044 410125004000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/4000 MZE 4J439100| 72045 464525606060 BCI 1,ONE 4J439200| 72046 410125001000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/1000 ONE 4J439300| 72047 474645606060 BCI 1,PON 4J439400| 72050 410125001000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/1000 PON 4J439500 0BINARY CARD ID. MAPJ0515| 72051 476330606060 BCI 1,PTH 4J439600| 72052 410125003000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/3000 PTH 4J439700| 72053 476366606060 BCI 1,PTW 4J439800| 72054 410125002000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/2000 PTW 4J439900 72055 477125606060 BCI 1,PZE 4J440000| 72056 410125000000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/0000 PZE 4J440100| 72057 622565254560 BCI 1,SEVEN 4J440200| 72060 410125007000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/7000 SEVEN 4J440300| 72061 623167606060 BCI 1,SIX 4J440400 72062 410125006000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/6000 SIX 4J440500| 72063 626545606060 BCI 1,SVN 4J440600| 72064 410125007000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/7000 SVN 4J440700| 72065 633051252560 BCI 1,THREE 4J440800| 72066 410125003000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/3000 THREE 4J440900 72067 636646606060 BCI 1,TWO 4J441000| 72070 410125002000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/2000 TWO 4J441100| 72071 712551466060 BCI 1,ZERO 4J441200| 72072 410125000000 VFD O6/41,12/IOK+AOK+TOK+DOK,O18/0000 ZERO 4J441300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 291 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0| | | | * SPECIAL OPERATIONS 4J441600| | | 72073 225121606060 BCI 1,BRA 4J441800 72074 400015007000 VFD O6/40,12/ING+ARQ+TNG+DOK,O18/7000 BRA 4J441900| 72075 225145606060 BCI 1,BRN (6)4J441910| 72076 400015003000 VFD O6/40,12/ING+ARQ+TNG+DOK,O18/3000 BRN (6)4J441920| 0BINARY CARD ID. MAPJ0516| 72077 712123606060 BCI 1,ZAC 4J442000 72100 430036004754 VFD O6/43,12/ING+AOK+TNG+DAL,O18/4754 ZAC (6)4J442100| 72101 716221606060 BCI 1,ZSA 4J442200| 72102 430016000634 VFD O6/43,12/ING+ARQ+TNG+DAL,O18/0634 ZSA 4J442300| 72103 716224606060 BCI 1,ZSD 4J442400| 72104 430016004634 VFD O6/43,12/ING+ARQ+TNG+DAL,O18/4634 ZSD 4J442500 72105 606060606060 BCI 1, 4J442600| 72106 400025000000 VFD O6/40,12/ING+AOK+TOK+DOK,O18/0000 ( ) BLANKS 4J442700| 72107 333333606060 BCI 1,... 4J442800| 72110 400025000000 VFD O6/40,12/ING+AOK+TOK+DOK,O18/0000 ... 4J442900| 72111 546060606060 BCI 1,* (6)4J443000 72112 400025000000 VFD O6/40,12/ING+AOK+TOK+DOK,O18/0000 *** 4J443100| | | * BOOLEAN VARIABLE CODES 4J443300| | 72113 222663606060 BCI 1,BFT 4J443500| 72114 520017004054 VFD O6/52,12/ING+ARQ+TNG+DNG,O18/4054 BFT 4J443600| 72115 224563606060 BCI 1,BNT 4J443700| 72116 520017004056 VFD O6/52,12/ING+ARQ+TNG+DNG,O18/4056 BNT 4J443800 72117 313122606060 BCI 1,IIB 4J443900| 72120 520017004051 VFD O6/52,12/ING+ARQ+TNG+DNG,O18/4051 IIB 4J444000| 72121 513122606060 BCI 1,RIB 4J444100| 72122 520017004057 VFD O6/52,12/ING+ARQ+TNG+DNG,O18/4057 RIB 4J444200| 72123 623122606060 BCI 1,SIB 4J444300 72124 520017004055 VFD O6/52,12/ING+ARQ+TNG+DNG,O18/4055 SIB 4J444400| | * DISK FILE AND HYPERTAPE OPERATIONS 4J444600| | 0BINARY CARD ID. MAPJ0517 72125 234770246060 BCI 1,CPYD 4J444800| 72126 420114105000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/1,O15/5000 CPYD $4$4J444900| 72127 234770476060 BCI 1,CPYP 4J445000| 72130 420114104000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/1,O15/4000 CPYP $4$4J445100| 72131 236343606060 BCI 1,CTL 4J445200 72132 510117002000 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/2000 CTL 4J445300| 72133 236343456060 BCI 1,CTLN (6)4J445310| 72134 510117002200 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/2200 CTLN (6)4J445320| 72135 236343516060 BCI 1,CTLR 4J445400| 72136 510117202000 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/2,O15/2000 CTLR 4J445500 1 IBMAPV IBMAPJ 12/01/64 PAGE 292 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72137 236343514560 BCI 1,CTLRN (6)4J445510| 72140 510117202200 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/2,O15/2200 CTLRN (6)4J445520| 72141 236343666060 BCI 1,CTLW 4J445600 72142 510117002400 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/2400 CTLW 4J445700| 72143 236343664560 BCI 1,CTLWN (6)4J445710| 72144 510117002600 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/2600 CTLWN (6)4J445720| 72145 312323606060 BCI 1,ICC INSERT CONTROL COUNTER 4J445800| 72146 500037007000 VFD O6/50,12/ING+AOK+TNG+DNG,O18/7000 ICC 4J445900 72147 432151606060 BCI 1,LAR 4J446000| 72150 510117003000 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/3000 LAR 4J446100| 72151 432323606060 BCI 1,LCC 4J446200| 72152 510117206400 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/2,O15/6400 LCC 4J446300| 0BINARY CARD ID. MAPJ0518 72153 433147606060 BCI 1,LIP 4J446400| 72154 510037206000 VFD O6/51,12/ING+AOK+TNG+DNG,3/2,O15/6000 LIP 4J446500| 72155 433147636060 BCI 1,LIPT 4J446600| 72156 420116301000 VFD O6/42,12/IOK+ARQ+TNG+DAL,3/3,O15/1000 LIPT $4$4J446700| 72157 622151606060 BCI 1,SAR 4J446800 72160 510117203000 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/2,O15/3000 SAR 4J446900| 72161 624462606060 BCI 1,SMS 4J447000| 72162 510117007000 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/7000 SMS 4J447100| 72163 624562606060 BCI 1,SNS 4J447200| 72164 510037202400 VFD O6/51,12/ING+AOK+TNG+DNG,3/2,O15/2400 SNS 4J447300 72165 632344606060 BCI 1,TCM TRANSFER ON CONDITION MET 4J447400| 72166 500114005000 VFD O6/50,12/IOK+ARQ+TNG+DRQ,O18/5000 TCM 4J447500| 72167 632423606060 BCI 1,TDC 4J447600| 72170 510117006400 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/6400 TDC 4J447700| 72171 636663606060 BCI 1,TWT 4J447800 72172 510117003400 VFD O6/51,12/IOK+ARQ+TNG+DNG,3/0,O15/3400 TWT 4J447900| 72173 666351606060 BCI 1,WTR 4J448000| 72174 420116100000 VFD O6/42,12/IOK+ARQ+TNG+DAL,3/1,O15/0000 WTR $4$4J448100| 72175 674463606060 BCI 1,XMT 4J448200| 72176 420114300000 VFD O6/42,12/IOK+ARQ+TNG+DRQ,3/3,O15/0000 XMT $4$4J448300 | * DISK FILE ORDERS 4J448500| | 000000 AR BOOL 0 ACCESS REQUIRED 4J448700| 000020 AN BOOL AOK ACCESS OK 4J448800 000000 TR BOOL 0 TRACK REQUIRED 4J448900| 000004 TN BOOL TOK TRACK OK 4J449000| 000000 RR BOOL 0 RECORD REQUIRED 4J449100| 000001 RN BOOL DOK RECORD OK 4J449200| 72177 242522446060 BCI 1,DEBM EIGHT BIT MODE 4J449400| 72200 530025001210 VFD O6/53,12/AN+TN+RN,O18/1210 DEBM 4J449500| 0BINARY CARD ID. MAPJ0519| 72201 244546476060 BCI 1,DNOP NO-OPERATION 4J449600| 72202 530025001212 VFD O6/53,12/AN+TN+RN,O18/1212 DNOP 4J449700 72203 245125436060 BCI 1,DREL RELEASE 4J449800| 72204 530025001204 VFD O6/53,12/AN+TN+RN,O18/1204 DREL 4J449900| 72205 246221316060 BCI 1,DSAI SET ACCESS INOPERATIVE 4J450000| 72206 530005001007 VFD O6/53,12/AR+TN+RN,O18/1007 DSAI 4J450100| 72207 246222446060 BCI 1,DSBM SIX BIT MODE 4J450200 72210 530025001211 VFD O6/53,12/AN+TN+RN,O18/1211 DSBM 4J450300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 293 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72211 246225426060 BCI 1,DSEK SEEK 4J450400| 72212 530000001012 VFD O6/53,12/AR+TR+RR,O18/1012 DSEK 4J450500 72213 246523706060 BCI 1,DVCY PREPARE TO VERIFY (CYLINDER OP) 4J450600| 72214 530000001005 VFD O6/53,12/AR+TR+RR,O18/1005 DVCY 4J450700| 72215 246530216060 BCI 1,DVHA PREPARE TO VERIFY HOME ADD) 4J450800| 72216 530000001011 VFD O6/53,12/AR+TR+RR,O18/1011 DVHA 4J450900| 72217 246562516060 BCI 1,DVSR PREPARE TO VERIFY (SINGLE RECORD) 4J451000 72220 530000001002 VFD O6/53,12/AR+TR+RR,O18/1002 DVSR 4J451100| 72221 246563216060 BCI 1,DVTA PREPARE TO VERIFY (TRACK WITH ADD) 4J451200| 72222 530000001010 VFD O6/53,12/AR+TR+RR,O18/1010 DVTA 4J451300| 72223 246563456060 BCI 1,DVTN PREPARE TO VERIFY (TRACK WITHOUT ADD) 4J451400| 72224 530000001004 VFD O6/53,12/AR+TR+RR,O18/1004 DVTN 4J451500 72225 246651236060 BCI 1,DWRC PREPARE TO WRITE CHECK 4J451600| 72226 530000001006 VFD O6/53,12/AR+TR+RR,O18/1006 DWRC 4J451700| 0BINARY CARD ID. MAPJ0520| 72227 246651266060 BCI 1,DWRF PREPARE TO WRITE FORMAT 4J451800| 72230 530001001003 VFD O6/53,12/AR+TR+RN,O18/1003 DWRF 4J451900 | * HYPERTAPE ORDERS 4J452100| 000017 UNREQ BOOL ARQ+DNG+TNG+ING 4J452200| 000077 UNNG BOOL ANG+DNG+TNG+ING 4J452300| 72231 304546476060 BCI 1,HNOP NO OPERATION 4J452500| 72232 550077001212 VFD O6/55,12/UNNG,O18/1212 HNOP 4J452600| 72233 302546626060 BCI 1,HEOS END OF SEQUENCE 4J452700| 72234 550077001201 VFD O6/55,12/UNNG,O18/1201 HEOS 4J452800| 72235 305143266060 BCI 1,HRLF RESERVED LIGHT OFF 4J452900 72236 550077001202 VFD O6/55,12/UNNG,O18/1202 HRLF 4J453000| 72237 305143456060 BCI 1,HRLN RESERVE LIGHT ON 4J453100| 72240 550077001203 VFD O6/55,12/UNNG,O18/1203 HRLN 4J453200| 72241 302343456060 BCI 1,HCLN CHECK LIGNT ON 4J453300| 72242 550077001205 VFD O6/55,12/UNNG,O18/1205 HCLN 4J453400 72243 306225436060 BCI 1,HSEL SELECT 4J453500| 72244 550017001206 VFD O6/55,12/UNREQ,O18/1206 HSEL 4J453600| 72245 306222516060 BCI 1,HSBR SELECT FOR BACKWARD READ 4J453700| 72246 550017001207 VFD O6/55,12/UNREQ,O18/1207 HSBR 4J453800| 72247 302323516060 BCI 1,HCCR CHANGE CARTRIDGE AND REWIND 4J453900 72250 550077000210 VFD O6/55,12/UNNG,O18/0210 HCCR 4J454000| 72251 305166246060 BCI 1,HRWD REWIND 4J454100| 72252 550077000312 VFD O6/55,12/UNNG,O18/0312 HRWD 4J454200| 72253 305164456060 BCI 1,HRUN REWIND AND UNLOAD CARTRIDGE 4J454300| 72254 550077000301 VFD O6/55,12/UNNG,O18/0301 HRUN 4J454400 0BINARY CARD ID. MAPJ0521| 72255 302551276060 BCI 1,HERG ERASE LONG GAP 4J454500| 72256 550077000302 VFD O6/55,12/UNNG,O18/0302 HERG 4J454600| 72257 306663446060 BCI 1,HWTM WRITE TAPE MARK 4J454700| 72260 550077000303 VFD O6/55,12/UNNG,O18/0303 HWTM 4J454800 72261 302262516060 BCI 1,HBSR BACKSPACE 4J454900| 72262 550077000304 VFD O6/55,12/UNNG,O18/0304 HBSR 4J455000| 72263 302262266060 BCI 1,HBSF BACKSPACE FILE 4J455100| 72264 550077000305 VFD O6/55,12/UNNG,O18/0305 HBSF 4J455200| 72265 306242516060 BCI 1,HSKR SPACE (SKIP RECORD) 4J455300 72266 550077000306 VFD O6/55,12/UNNG,O18/0306 HSKR 4J455400| 72267 306242266060 BCI 1,HSKF SPACE FILE 4J455500| 1 IBMAPV IBMAPJ 12/01/64 PAGE 294 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72270 550077000307 VFD O6/55,12/UNNG,O18/0307 HSKF 4J455600 72271 302330236060 BCI 1,HCHC CHANGE CARTRIDGE 4J455700| 72272 550077000310 VFD O6/55,12/UNNG,O18/0310 HCHC 4J455800| 72273 306445436060 BCI 1,HUNL UNLOAD CARTRIDGE 4J455900| 72274 550077000311 VFD O6/55,12/UNNG,O18/0311 HUNL 4J456000| 72275 302647456060 BCI 1,HFPN FILE PROTECT ON 4J456100 72276 550077000402 VFD O6/55,12/UNNG,O18/0402 HFPN 4J456200| | | | * 7094 INSTRUCTIONS 4J456400| | | 72277 244324606060 BCI 1,DLD 4J456600| 72300 430106000443 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/443 DLD 4J456700 72301 246263606060 BCI 1,DST 4J456800| 72302 430106004603 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4603 DST 4J456900| 0BINARY CARD ID. MAPJ0522| 72303 242621246060 BCI 1,DFAD 4J457000| 72304 430106000301 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/301 DFAD 4J457100 72305 246426216060 BCI 1,DUFA 4J457200| 72306 430106004301 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4301 DUFA 4J457300| 72307 242662226060 BCI 1,DFSB 4J457400| 72310 430106000303 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/303 DFSB 4J457500| 72311 246426626060 BCI 1,DUFS 4J457600 72312 430106004303 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4303 DUFS 4J457700| 72313 242621446060 BCI 1,DFAM 4J457800| 72314 430106000305 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/305 DFAM 4J457900| 72315 246421446060 BCI 1,DUAM 4J458000| 72316 430106004305 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4305 DUAM 4J458100 72317 242662446060 BCI 1,DFSM 4J458200| 72320 430106000307 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/307 DFSM 4J458300| 72321 246462446060 BCI 1,DUSM 4J458400| 72322 430106004307 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4307 DUSM 4J458500| 72323 242644476060 BCI 1,DFMP 4J458600 72324 430106000261 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/0261 DFMP 4J458700| 72325 246426446060 BCI 1,DUFM 4J458800| 72326 430106004261 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4261 DUFM 4J458900| 72327 242624306060 BCI 1,DFDH 4J459000| 72330 430106004240 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4240 DFDH 4J459100 0BINARY CARD ID. MAPJ0523| 72331 242624476060 BCI 1,DFDP 4J459200| 72332 430106004241 VFD O6/43,12/IOK+ARQ+TOK+DAL,O18/4241 DFDP 4J459300| 72333 254463446060 BCI 1,EMTM 4J459400| 72334 460066100016 VFD O6/46,12/ING+ANG+TOK+DAL,3/1,O15/16 EMTM 4J459500 72335 434463446060 BCI 1,LMTM 4J459600| 72336 460066000016 VFD O6/46,12/ING+ANG+TOK+DAL,3/0,O15/16 LMTM 4J459700| 72337 472321606060 BCI 1,PCA 4J459800| 72340 430022000756 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/756 PCA 4J459900| 72341 472324606060 BCI 1,PCD 4J460000 72342 430022004756 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/4756 PCD 4J460100| 72343 622321606060 BCI 1,SCA 4J460200| 72344 430002000636 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/636 SCA 4J460300| 1 IBMAPV IBMAPJ 12/01/64 PAGE 295 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 72345 622324606060 BCI 1,SCD 4J460400| 72346 430002004636 VFD O6/43,12/ING+ARQ+TRQ+DAL,O18/4636 SCD 4J460500| 72347 266223216060 BCI 1,FSCA 4J461000| 72350 430022000636 VFD O6/43,12/ING+AOK+TRQ+DAL,O18/636 FSCA=SCA 4J461100| 72351 MAPSYS SYN * $4$4J461500| | * SYSTEM MACRO EXPANSIONS 4J461700| | 72351 512563645145 BCI 1,RETURN 4J461900 72352 620002646000 VFD O6/62,12/2,3/6,15/SM.RET RETURN 4J462000| | 72353 MAPWDE SYN * 4J462200| | * 7094 INSTRUCTIONS SIMULATED AS SYSTEM MACROS 4J462400| | 72353 M94WDS SYN * 4J462600| 72353 472321606060 BCI 1,PCA 4J462700| 72354 620002646047 VFD O6/62,12/2,3/6,15/M.PCA PCA (6)4J462800 72355 472324606060 BCI 1,PCD 4J462900| 72356 620002646054 VFD O6/62,12/2,3/6,15/M.PCD PCD (6)4J463000| 0BINARY CARD ID. MAPJ0524| 72357 622321606060 BCI 1,SCA 4J463100| 72360 620002646076 VFD O6/62,12/2,3/6,15/M.SCA SCA (6)4J463200 72361 622324606060 BCI 1,SCD 4J463300| 72362 620002646103 VFD O6/62,12/2,3/6,15/M.SCD SCD (6)4J463400| 72363 242621246060 BCI 1,DFAD 4J463500| 72364 620003646146 VFD O6/62,12/3,3/6,15/M.DFAD DFAD (6)4J463600| 72365 242662226060 BCI 1,DFSB 4J463700 72366 620003646154 VFD O6/62,12/3,3/6,15/M.DFSB DFSB (6)4J463800| 72367 246263606060 BCI 1,DST 4J463900| 72370 620003646462 VFD O6/62,12/3,3/6,15/M.DST DST (6)4J464000| 72371 244324606060 BCI 1,DLD 4J464100| 72372 620003646454 VFD O6/62,12/3,3/6,15/M.DLD DLD (6)4J464200 72373 242621446060 BCI 1,DFAM 4J464300| 72374 620003646162 VFD O6/62,12/3,3/6,15/M.DFAM DFAM (6)4J464400| 72375 242662446060 BCI 1,DFSM 4J464500| 72376 620003646170 VFD O6/62,12/3,3/6,15/M.DFSM DFSM (6)4J464600| 72377 242644476060 BCI 1,DFMP 4J464700 72400 620003646553 VFD O6/62,12/3,3/6,15/M.FMP DFMP (6)4J464800| 72401 242624476060 BCI 1,DFDP 4J464900| 72402 620003646774 VFD O6/62,12/3,3/6,15/M.DFDP DFDP (6)4J465000| 72403 242624306060 BCI 1,DFDH 4J465100| 72404 620003647001 VFD O6/62,12/3,3/6,15/M.DFDH DFDH (6)4J465200 0BINARY CARD ID. MAPJ0525| 72405 266223216060 BCI 1,FSCA 4J465700| 72406 620017747134 VFD O6/62,12/15,3/7,15/M.FSCA FSCA $4$4J465800| 72407 246426216060 BCI 1,DUFA 4J466100| 72410 540126000761 VFD O6/54,12/IOK+AOK+TOK+DAL,O18/0761 NOP 4J466200 72411 246426626060 BCI 1,DUFS 4J466300| 72412 540126000761 VFD O6/54,12/IOK+AOK+TOK+DAL,O18/0761 NOP 4J466400| 72413 246421446060 BCI 1,DUAM 4J466500| 72414 540126000761 VFD O6/54,12/IOK+AOK+TOK+DAL,O18/0761 NOP 4J466600| 1 IBMAPV IBMAPJ 12/01/64 PAGE 296 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72415 246426446060 BCI 1,DUFM 4J466700| 72416 540126000761 VFD O6/54,12/IOK+AOK+TOK+DAL,O18/0761 NOP 4J466800| 72417 246462446060 BCI 1,DUSM 4J466900| 72420 540126000761 VFD O6/54,12/IOK+AOK+TOK+DAL,O18/0761 NOP 4J467000 72421 744723606060 BCI 1,(PC (6)4J467410| 72422 620003646033 VFD O6/62,12/3,3/6,15/M.PCX (PC (6)4J467420| 72423 746223606060 BCI 1,(SC (6)4J467430| 72424 620003646061 VFD O6/62,12/3,3/6,15/M.SCX (SC (6)4J467440| 72425 742421626060 BCI 1,(DAS (6)4J467450 72426 620004646110 VFD O6/62,12/4,3/6,15/M.DAS (DAS (6)4J467460| 72427 742426216260 BCI 1,(DFAS 4J467500| 72430 620003646176 VFD O6/62,12/3,3/6,15/M.AF1 (DFAS 4J467600| 72431 746726216260 BCI 1,(XFAS 4J467700| 72432 620002646220 VFD O6/62,12/2,3/6,15/M.AF2 (XFAS 4J467800 0BINARY CARD ID. MAPJ0526| 72433 747026216260 BCI 1,(YFAS 4J467900| 72434 620002246252 VFD O6/62,12/2,3/2,15/M.AF3 (YFAS 4J468000| 72435 747126216260 BCI 1,(ZFAS 4J468100| 72436 620004246263 VFD O6/62,12/4,3/2,15/M.AF4 (ZFAS 4J468200 72437 743126262660 BCI 1,(IFFF 4J468300| 72440 620002646300 VFD O6/62,12/2,3/6,15/M.DC2 (IFFF 4J468400| 72441 743126632660 BCI 1,(IFTF 4J468500| 72442 620003646311 VFD O6/62,12/3,3/6,15/M.DC3 (IFTF 4J468600| 72443 743126636360 BCI 1,(IFTT 4J468700 72444 620003646332 VFD O6/62,12/3,3/6,15/M.DC4 (IFTT 4J468800| 72445 746221650460 BCI 1,(SAV4 4J468900| 72446 620001646353 VFD O6/62,12/1,3/6,15/M.SV4 (SAV4 4J469000| 72447 742631452460 BCI 1,(FIND 4J469100| 72450 620003646364 VFD O6/62,12/3,3/6,15/M.FND (FIND 4J469200 72451 742443606060 BCI 1,(DL (6)4J469210| 72452 620005646413 VFD O6/62,12/5,3/6,15/M.DLXY (DL (6)4J469220| 72453 742443626360 BCI 1,(DLST 4J469300| 72454 620004646470 VFD O6/62,12/4,3/6,15/M.DLS1 (DLST 4J469400| 72455 746743626360 BCI 1,(XLST 4J469500 72456 620003646477 VFD O6/62,12/3,3/6,15/M.DLS2 (XLST 4J469600| 72457 747043626360 BCI 1,(YLST 4J469700| 72460 620003646514 VFD O6/62,12/3,3/6,15/M.DLS3 (YLST 4J469800| 0BINARY CARD ID. MAPJ0527| 72461 747143626360 BCI 1,(ZLST 4J469900 72462 620005246531 VFD O6/62,12/5,3/2,15/M.DLS4 (ZLST 4J470000| 72463 742426444760 BCI 1,(DFMP 4J470100| 72464 620002646606 VFD O6/62,12/2,3/6,15/M.DFM1 (DFMP 4J470200| 72465 746726444760 BCI 1,(XFMP 4J470300| 72466 620001646644 VFD O6/62,12/1,3/6,15/M.DFM2 (XFMP 4J470400 72467 747026444760 BCI 1,(YFMP 4J470500| 72470 620001246711 VFD O6/62,12/1,3/2,15/M.DFM3 (YFMP 4J470600| 72471 747126444760 BCI 1,(ZFMP 4J470700| 72472 620003246722 VFD O6/62,12/3,3/2,15/M.DFM4 (ZFMP 4J470800| 72473 742424606060 BCI 1,(DD (6)4J470810 72474 620004646737 VFD O6/62,12/4,3/6,15/M.DFD (DD (6)4J470820| 72475 742426246760 BCI 1,(DFDX 4J470900| 72476 620003647006 VFD O6/62,12/3,3/6,15/M.DVD1 (DFDX 4J471000| 72477 746726246760 BCI 1,(XFDX 4J471100| 72500 620002647042 VFD O6/62,12/2,3/6,15/M.DVD2 (XFDX 4J471200 1 IBMAPV IBMAPJ 12/01/64 PAGE 297 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72501 747026246760 BCI 1,(YFDX 4J471300| 72502 620002247105 VFD O6/62,12/2,3/2,15/M.DVD3 (YFDX 4J471400| 72503 747126246760 BCI 1,(ZFDX 4J471500 72504 620004247117 VFD O6/62,12/4,3/2,15/M.DVD4 (ZFDX 4J471600| 72505 M94WDE SYN * 4J471700| | | | * FORTRAN MACRO INSTRUCTIONS 4J471900| | 72505 FTCWDS EQU * 4J472100| 72505 542663230160 BCI 1,*FTC1 4J472200 72506 620001047145 VFD O6/62,12/1,3/0,15/FM.TC1 *FTC1 4J472300| 0BINARY CARD ID. MAPJ0528| 72507 542122626060 BCI 1,*ABS 4J472400| 72510 620001047203 VFD O6/62,12/1,3/0,15/FM.ABS *ABS 4J472500| 72511 542131456360 BCI 1,*AINT 4J472600 72512 620001047213 VFD O6/62,12/1,3/0,15/FM.AIN *AINT 4J472700| 72513 543145636060 BCI 1,*INT 4J472800| 72514 620001047224 VFD O6/62,12/1,3/0,15/FM.INT *INT $4$4J472900| 72515 543121226260 BCI 1,*IABS 4J473000| 72516 620001047211 VFD O6/62,12/1,3/0,15/FM.IAB *IABS $4$4J473100 72517 542144462460 BCI 1,*AMOD 4J473200| 72520 620002047226 VFD O6/62,12/2,3/0,15/FM.AMO *AMOD 4J473300| 72521 544446246060 BCI 1,*MOD 4J473400| 72522 620002047242 VFD O6/62,12/2,3/0,15/FM.MOD *MOD 4J473500| 72523 542144216700 BCI 1,*AMAX0 4J473600 72524 620002647267 VFD O6/62,12/2,3/6,15/FM.AX0 *AMAX0 4J473700| 72525 542144216701 BCI 1,*AMAX1 4J473800| 72526 620002647252 VFD O6/62,12/2,3/6,15/FM.AX1 *AMAX1 4J473900| 72527 544421670060 BCI 1,*MAX0 4J474000| 72530 620002647265 VFD O6/62,12/2,3/6,15/FM.X0 *MAX0 $4$4J474100 72531 544421670160 BCI 1,*MAX1 4J474200| 72532 620002647277 VFD O6/62,12/2,3/6,15/FM.MX1 *MAX1 4J474300| 72533 542144314500 BCI 1,*AMIN0 4J474400| 72534 620002647310 VFD O6/62,12/2,3/6,15/FM.MN0 *AMIN0 4J474500| 0BINARY CARD ID. MAPJ0529 72535 542144314501 BCI 1,*AMIN1 4J474600| 72536 620002647155 VFD O6/62,12/2,3/6,15/FM.TC3 *AMIN1 $4$4J474700| 72537 544431450060 BCI 1,*MIN0 4J474800| 72540 620002647321 VFD O6/62,12/2,3/6,15/FM.INO *MIN0 $4$4J474900| 72541 544431450160 BCI 1,*MIN1 4J475000 72542 620002647323 VFD O6/62,12/2,3/6,15/FM.MN1 *MIN1 4J475100| 72543 542643462163 BCI 1,*FLOAT 4J475200| 72544 620001047333 VFD O6/62,12/1,3/0,15/FM.FLT *FLOAT 4J475300| 72545 543126316760 BCI 1,*IFIX 4J475400| 72546 620001047355 VFD O6/62,12/1,3/0,15/FM.IFX *IFIX 4J475500 72547 546231274560 BCI 1,*SIGN 4J475600| 72550 620002047371 VFD O6/62,12/2,3/0,15/FM.SGN *SIGN 4J475700| 72551 543162312745 BCI 1,*ISIGN 4J475800| 72552 620002047401 VFD O6/62,12/2,3/0,15/FM.IGN *ISIGN $4$4J475900| 72553 542431446060 BCI 1,*DIM 4J476000 72554 620002047403 VFD O6/62,12/2,3/0,15/FM.DIM *DIM 4J476100| 1 IBMAPV IBMAPJ 12/01/64 PAGE 298 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72555 543124314460 BCI 1,*IDIM 4J476200| 72556 620002047415 VFD O6/62,12/2,3/0,15/FM.IDM *IDIM 4J476300 72557 546245274360 BCI 1,*SNGL 4J476400| 72560 620001047427 VFD O6/62,12/1,3/0,15/FM.SGL *SNGL $4$4J476500| 72561 545125214360 BCI 1,*REAL 4J476600| 72562 620001047431 VFD O6/62,12/1,3/0,15/FM.REL *REAL $4$4J476700| 0BINARY CARD ID. MAPJ0530 72563 542131442127 BCI 1,*AIMAG 4J476800| 72564 620001047433 VFD O6/62,12/1,3/0,15/FM.AIM *AIMAG 4J476900| 72565 542421226260 BCI 1,*DABS 4J477000| 72566 620001047451 VFD O6/62,12/1,3/0,15/FM.DAB *DABS 4J477100| 72567 542444216701 BCI 1,*DMAX1 4J477200 72570 620002647464 VFD O6/62,12/2,3/6,15/FM.DX1 *DMAX1 4J477300| 72571 542444314501 BCI 1,*DMIN1 4J477400| 72572 620002647520 VFD O6/62,12/2,3/6,15/FM.DX2 *DMIN1 4J477500| 72573 543124314563 BCI 1,*IDINT 4J477600| 72574 620001047553 VFD O6/62,12/1,3/0,15/FM.IDX *IDINT 4J477700 72575 542462312745 BCI 1,*DSIGN 4J477800| 72576 620002047621 VFD O6/62,12/2,3/0,15/FM.DSN *DSIGN 4J477900| 72577 542422432560 BCI 1,*DBLE 4J478000| 72600 620001047655 VFD O6/62,12/1,3/0,15/FM.DLE *DBLE 4J478100| 72601 542344474367 BCI 1,*CMPLX 4J478200 72602 620002047662 VFD O6/62,12/2,3/0,15/FM.CMP *CMPLX 4J478300| 72603 542346454127 BCI 1,*CONJG 4J478400| 72604 620001047670 VFD O6/62,12/1,3/0,15/FM.CNJ *CONJG 4J478500| 72605 542246464360 BCI 1,*BOOL 4J478600| 72606 620003047716 VFD O6/62,12/3,3/0,15/FM.BOL *BOOM 4J478700 72607 542145246060 BCI 1,*AND 4J478800| 72610 620002047725 VFD O6/62,12/2,3/0,15/FM.AND *AND 4J478900| 0BINARY CARD ID. MAPJ0531| 72611 544651606060 BCI 1,*OR 4J479000| 72612 620002047736 VFD O6/62,12/2,3/0,15/FM.OR *OR 4J479100 72613 542346446060 BCI 1,*COM 4J479200| 72614 620001047747 VFD O6/62,12/1,3/0,15/FM.COM *COM 4J479300| 72615 542346444743 BCI 1,*COMPL 4J479400| 72616 620001047747 VFD O6/62,12/1,3/0,15/FM.COM *COMPL 4J479500| 72617 236721623360 BCI 1,CXAS. CXAS. 4J479600 72620 620005047760 VFD O6/62,12/5,3/0,15/FM.CX1 4J479700| 72621 332367216260 BCI 1,.CXAS .CXAS 4J479800| 72622 620003050067 VFD O6/62,12/3,3/0,15/FM.CX2 4J479900| 72623 236721246060 BCI 1,CXAD CXAD 4J480000| 72624 620002050154 VFD O6/62,12/2,3/0,15/FM.CXA 4J480100 72625 236762226060 BCI 1,CXSB CXSB 4J480200| 72626 620002050162 VFD O6/62,12/2,3/0,15/FM.CXS 4J480300| 72627 FTCWDE EQU * 4J480400| | * IBSYS MONITOR SYSTEM SYMBOLS $5$4J480420| $5$4J480430| 72627 MNTBLS EQU * $5$4J480440| 72627 627062635121 BCI 1,SYSTRA $5$4J480441| 72630 600000000100 VFD H6/,O15/00000,15/SYSCOM MONITOR COMMUNICATION REGION$5$4J480442 72631 627062242163 BCI 1,SYSDAT SYMBOLS $5$4J480443| 72632 600000000101 VFD H6/,O15/00000,15/SYSCOM+1 $5$4J480444| 1 IBMAPV IBMAPJ 12/01/64 PAGE 299 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72633 627062236451 BCI 1,SYSCUR $5$4J480445 72634 600000000102 VFD H6/,O15/00000,15/SYSCOM+2 $5$4J480446| 72635 627062512563 BCI 1,SYSRET $5$4J480447| 72636 600000000103 VFD H6/,O15/00000,15/SYSCOM+3 $5$4J480448| 0BINARY CARD ID. MAPJ0532| 72637 627062422570 BCI 1,SYSKEY $5$4J480449 72640 600000000104 VFD H6/,O15/00000,15/SYSCOM+4 $5$4J480450| 72641 627062626662 BCI 1,SYSSWS $5$4J480451| 72642 600000000105 VFD H6/,O15/00000,15/SYSCOM+5 $5$4J480452| 72643 627062474662 BCI 1,SYSPOS $5$4J480453| 72644 600000000106 VFD H6/,O15/00000,15/SYSCOM+6 $5$4J480454 72645 627062644531 BCI 1,SYSUNI $5$4J480455| 72646 600000000107 VFD H6/,O15/00000,15/SYSCOM+7 $5$4J480456| 72647 627062642223 BCI 1,SYSUBC $5$4J480457| 72650 600000000110 VFD H6/,O15/00000,15/SYSCOM+8 $5$4J480458| 72651 627062642165 BCI 1,SYSUAV $5$4J480459 72652 600000000111 VFD H6/,O15/00000,15/SYSCOM+9 $5$4J480460| 72653 627062642366 BCI 1,SYSUCW $5$4J480461| 72654 600000000112 VFD H6/,O15/00000,15/SYSCOM+10 $5$4J480462| 72655 627062514763 BCI 1,SYSRPT $5$4J480463| 72656 600000000113 VFD H6/,O15/00000,15/SYSCOM+11 $5$4J480464 72657 627062232544 BCI 1,SYSCEM $5$4J480465| 72660 600000000114 VFD H6/,O15/00000,15/SYSCOM+12 $5$4J480466| 72661 627062244447 BCI 1,SYSDMP $5$4J480467| 72662 600000000115 VFD H6/,O15/00000,15/SYSCOM+13 $5$4J480468| 72663 627062314667 BCI 1,SYSIOX $5$4J480469 72664 600000000116 VFD H6/,O15/00000,15/SYSCOM+14 $5$4J480470| 0BINARY CARD ID. MAPJ0533| 72665 627062312451 BCI 1,SYSIDR $5$4J480471| 72666 600000000117 VFD H6/,O15/00000,15/SYSCOM+15 $5$4J480472| 72667 627062234651 BCI 1,SYSCOR $5$4J480473 72670 600000000120 VFD H6/,O15/00000,15/SYSCOM+16 $5$4J480474| 72671 627062432451 BCI 1,SYSLDR $5$4J480475| 72672 600000000121 VFD H6/,O15/00000,15/SYSCOM+17 $5$4J480476| 72673 627062212323 BCI 1,SYSACC $5$4J480477| 72674 600000000122 VFD H6/,O15/00000,15/SYSCOM+18 $5$4J480478 72675 627062473124 BCI 1,SYSPID $5$4J480479| 72676 600000000123 VFD H6/,O15/00000,15/SYSCOM+19 $5$4J480480| 72677 627062237024 BCI 1,SYSCYD $5$4J480481| 72700 600000000124 VFD H6/,O15/00000,15/SYSCOM+20 $5$4J480482| 72701 627062624324 BCI 1,SYSSLD $5$4J480483 72702 600000000126 VFD H6/,O15/00000,15/SYSCOM+22 $5$4J480484| 72703 627062632330 BCI 1,SYSTCH $5$4J480485| 72704 600000000127 VFD H6/,O15/00000,15/SYSCOM+23 $5$4J480486| 72705 627062636663 BCI 1,SYSTWT $5$4J480487| 72706 600000000131 VFD H6/,O15/00000,15/SYSCOM+25 $5$4J480488 72707 627062272563 BCI 1,SYSGET $5$4J480489| 72710 600000000132 VFD H6/,O15/00000,15/SYSCOM+26 $5$4J480490| 72711 627062414622 BCI 1,SYSJOB $5$4J480491| 72712 600000000133 VFD H6/,O15/00000,15/SYSCOM+27 $5$4J480492| 0BINARY CARD ID. MAPJ0534 72713 332330256731 BCI 1,.CHEXI $5$4J480493| 72714 600000000134 VFD H6/,O15/00000,15/SYSCOM+28 $5$4J480494| 1 IBMAPV IBMAPJ 12/01/64 PAGE 300 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 72715 334446246266 BCI 1,.MODSW $5$4J480495 72716 600000000135 VFD H6/,O15/00000,15/SYSCOM+29 $5$4J480496| 72717 627062432201 BCI 1,SYSLB1 SYSTEM UNIT FUNCTION TABLE $5$4J480500| 72720 600000000140 VFD H6/,O15/00000,15/SYUNIT SYMBOLS $5$4J480501| 72721 627062432202 BCI 1,SYSLB2 $5$4J480502| 72722 600000000141 VFD H6/,O15/00000,15/SYUNIT+1 $5$4J480503 72723 627062432203 BCI 1,SYSLB3 $5$4J480504| 72724 600000000142 VFD H6/,O15/00000,15/SYUNIT+2 $5$4J480505| 72725 627062432204 BCI 1,SYSLB4 $5$4J480506| 72726 600000000143 VFD H6/,O15/00000,15/SYUNIT+3 $5$4J480507| 72727 627062235124 BCI 1,SYSCRD $5$4J480508 72730 600000000144 VFD H6/,O15/00000,15/SYUNIT+4 $5$4J480509| 72731 627062475163 BCI 1,SYSPRT $5$4J480510| 72732 600000000145 VFD H6/,O15/00000,15/SYUNIT+5 $5$4J480511| 72733 627062472330 BCI 1,SYSPCH $5$4J480512| 72734 600000000146 VFD H6/,O15/00000,15/SYUNIT+6 $5$4J480513 72735 627062466401 BCI 1,SYSOU1 $5$4J480514| 72736 600000000147 VFD H6/,O15/00000,15/SYUNIT+7 $5$4J480515| 72737 627062466402 BCI 1,SYSOU2 $5$4J480516| 72740 600000000150 VFD H6/,O15/00000,15/SYUNIT+8 $5$4J480517| 0BINARY CARD ID. MAPJ0535 72741 627062314501 BCI 1,SYSIN1 $5$4J480518| 72742 600000000151 VFD H6/,O15/00000,15/SYUNIT+9 $5$4J480519| 72743 627062314502 BCI 1,SYSIN2 $5$4J480520| 72744 600000000152 VFD H6/,O15/00000,15/SYUNIT+10 $5$4J480521| 72745 627062474701 BCI 1,SYSPP1 $5$4J480522 72746 600000000153 VFD H6/,O15/00000,15/SYUNIT+11 $5$4J480523| 72747 627062474702 BCI 1,SYSPP2 $5$4J480524| 72750 600000000154 VFD H6/,O15/00000,15/SYUNIT+12 $5$4J480525| 72751 627062234201 BCI 1,SYSCK1 $5$4J480526| 72752 600000000155 VFD H6/,O15/00000,15/SYUNIT+13 $5$4J480527 72753 627062234202 BCI 1,SYSCK2 $5$4J480528| 72754 600000000156 VFD H6/,O15/00000,15/SYUNIT+14 $5$4J480529| 72755 627062646301 BCI 1,SYSUT1 $5$4J480530| 72756 600000000157 VFD H6/,O15/00000,15/SYUNIT+15 $5$4J480531| 72757 627062646302 BCI 1,SYSUT2 $5$4J480532 72760 600000000160 VFD H6/,O15/00000,15/SYUNIT+16 $5$4J480533| 72761 627062646303 BCI 1,SYSUT3 $5$4J480534| 72762 600000000161 VFD H6/,O15/00000,15/SYUNIT+17 $5$4J480535| 72763 627062646304 BCI 1,SYSUT4 $5$4J480536| 72764 600000000162 VFD H6/,O15/00000,15/SYUNIT+18 $5$4J480537 72765 627062646305 BCI 1,SYSUT5 $5$4J480538| 72766 600000000163 VFD H6/,O15/00000,15/SYUNIT+19 $5$4J480539| 0BINARY CARD ID. MAPJ0536| 72767 627062646306 BCI 1,SYSUT6 $5$4J480540| 72770 600000000164 VFD H6/,O15/00000,15/SYUNIT+20 $5$4J480541 72771 627062646307 BCI 1,SYSUT7 $5$4J480542| 72772 600000000165 VFD H6/,O15/00000,15/SYUNIT+21 $5$4J480543| 72773 627062646310 BCI 1,SYSUT8 $5$4J480544| 72774 600000000166 VFD H6/,O15/00000,15/SYUNIT+22 $5$4J480545| 72775 627062646311 BCI 1,SYSUT9 $5$4J480546 72776 600000000167 VFD H6/,O15/00000,15/SYUNIT+23 $5$4J480547| 72777 332123636560 BCI 1,.ACTV $5$4J480549| 73000 600000000702 VFD H6/,O15/00000,15/IOXCOM COMMUNICATION REGION $5$4J480550| 1 IBMAPV IBMAPJ 12/01/64 PAGE 301 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 73001 334524622543 BCI 1,.NDSEL SYMBOLS $5$4J480551| 73002 600000000704 VFD H6/,O15/00000,15/IOXCOM+2 $5$4J480552| 73003 334466516060 BCI 1,.MWR $5$4J480553| 73004 600000000706 VFD H6/,O15/00000,15/IOXCOM+4 $5$4J480554| 73005 334764452330 BCI 1,.PUNCH $5$4J480555 73006 600000000707 VFD H6/,O15/00000,15/IOXCOM+5 $5$4J480556| 73007 332545226266 BCI 1,.ENBSW $5$4J480557| 73010 600000000710 VFD H6/,O15/00000,15/IOXCOM+6 $5$4J480558| 73011 334721666260 BCI 1,.PAWS $5$4J480559| 73012 600000000711 VFD H6/,O15/00000,15/IOXCOM+7 $5$4J480560 73013 334721646225 BCI 1,.PAUSE $5$4J480561| 73014 600000000712 VFD H6/,O15/00000,15/IOXCOM+8 $5$4J480562| 0BINARY CARD ID. MAPJ0537| 73015 336263464760 BCI 1,.STOP $5$4J480563| 73016 600000000713 VFD H6/,O15/00000,15/IOXCOM+9 $5$4J480564 73017 336270446445 BCI 1,.SYMUN $5$4J480565| 73020 600000000714 VFD H6/,O15/00000,15/IOXCOM+10 $5$4J480566| 73021 332425236524 BCI 1,.DECVD $5$4J480567| 73022 600000000715 VFD H6/,O15/00000,15/IOXCOM+11 $5$4J480568| 73023 332425236521 BCI 1,.DECVA $5$4J480569 73024 600000000716 VFD H6/,O15/00000,15/IOXCOM+12 $5$4J480570| 73025 332342662163 BCI 1,.CKWAT $5$4J480571| 73026 600000000717 VFD H6/,O15/00000,15/IOXCOM+13 $5$4J480572| 73027 332223240551 BCI 1,.BCD5R $5$4J480573| 73030 600000000720 VFD H6/,O15/00000,15/IOXCOM+14 $5$4J480574 73031 332223240567 BCI 1,.BCD5X $5$4J480575| 73032 600000000721 VFD H6/,O15/00000,15/IOXCOM+15 $5$4J480576| 73033 332365475163 BCI 1,.CVPRT $5$4J480577| 73034 600000000722 VFD H6/,O15/00000,15/IOXCOM+16 $5$4J480578| 73035 336263464724 BCI 1,.STOPD $5$4J480579 73036 600000000723 VFD H6/,O15/00000,15/IOXCOM+17 $5$4J480580| 73037 332330672123 BCI 1,.CHXAC $5$4J480581| 73040 600000000724 VFD H6/,O15/00000,15/IOXCOM+18 $5$4J480582| 73041 336451516760 BCI 1,.URRX $5$4J480583| 73042 600000000725 VFD H6/,O15/00000,15/IOXCOM+19 $5$4J480584 0BINARY CARD ID. MAPJ0538| 73043 335123636760 BCI 1,.RCTX $5$4J480585| 73044 600000000726 VFD H6/,O15/00000,15/IOXCOM+20 $5$4J480586| 73045 335123306760 BCI 1,.RCHX $5$4J480587| 73046 600000000727 VFD H6/,O15/00000,15/IOXCOM+21 $5$4J480588 73047 336323466760 BCI 1,.TCOX $5$4J480589| 73050 600000000730 VFD H6/,O15/00000,15/IOXCOM+22 $5$4J480590| 73051 336351236760 BCI 1,.TRCX $5$4J480591| 73052 600000000731 VFD H6/,O15/00000,15/IOXCOM+23 $5$4J480592| 73053 332563636760 BCI 1,.ETTX $5$4J480593 73054 600000000732 VFD H6/,O15/00000,15/IOXCOM+24 $5$4J480594| 73055 336325266760 BCI 1,.TEFX $5$4J480595| 73056 600000000733 VFD H6/,O15/00000,15/IOXCOM+25 $5$4J480596| 73057 336351214767 BCI 1,.TRAPX $5$4J480597| 73060 600000000734 VFD H6/,O15/00000,15/IOXCOM+26 $5$4J480598 73061 336351214762 BCI 1,.TRAPS $5$4J480599| 73062 600000000735 VFD H6/,O15/00000,15/IOXCOM+27 $5$4J480600| 73063 332346444460 BCI 1,.COMM $5$4J480601| 73064 600000000736 VFD H6/,O15/00000,15/IOXCOM+28 $5$4J480602| 1 IBMAPV IBMAPJ 12/01/64 PAGE 302 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 73065 334363474662 BCI 1,.LTPOS $5$4J480603| 73066 600000000737 VFD H6/,O15/00000,15/IOXCOM+29 $5$4J480604| 73067 333146676231 BCI 1,.IOXSI $5$4J480605| 73070 600000000740 VFD H6/,O15/00000,15/IOXCOM+30 $5$4J480606 0BINARY CARD ID. MAPJ0539| 73071 332330476266 BCI 1,.CHPSW $5$4J480607| 73072 600000000741 VFD H6/,O15/00000,15/IOXCOM+31 $5$4J480608| 73073 336351476266 BCI 1,.TRPSW $5$4J480609| 73074 600000000742 VFD H6/,O15/00000,15/IOXCOM+32 $5$4J480610 73075 332624214463 BCI 1,.FDAMT $5$4J480611| 73076 600000000743 VFD H6/,O15/00000,15/IOXCOM+33 $5$4J480612| 73077 336224236731 BCI 1,.SDCXI $5$4J480613| 73100 600000000744 VFD H6/,O15/00000,15/IOXCOM+34 $5$4J480614| 73101 336263236731 BCI 1,.STCXI $5$4J480615 73102 600000000745 VFD H6/,O15/00000,15/IOXCOM+35 $5$4J480616| 73103 332346444424 BCI 1,.COMMD $5$4J480617| 73104 600000000746 VFD H6/,O15/00000,15/IOXCOM+36 $5$4J480618| 73105 333122232471 BCI 1,.IBCDZ $5$4J480619| 73106 600000000747 VFD H6/,O15/00000,15/IOXCOM+37 $5$4J480620 73107 332330676247 BCI 1,.CHXSP $5$4J480621| 73110 600000000750 VFD H6/,O15/00000,15/IOXCOM+38 $5$4J480622| 73111 332243426266 BCI 1,.BLKSW (6)4J480623| 73112 600000000751 VFD H6/,O15/00000,15/IOXCOM+39 (6)4J480624| 73113 627062465127 BCI 1,SYSORG (6)4J480645 73114 600000000000 VFD H6/,O15/00000,15/** (6)4J480646| 73115 627062254524 BCI 1,SYSEND (6)4J480647| 73116 600000000000 VFD H6/,O15/00000,15/** (6)4J480648| (6)4J480649| 73117 MNTBLE EQU * $5$4J480650 | | * IBJOB SYSTEM SYMBOLS $5$4J480652| $5$4J480653| 73117 JBTBLS EQU * $5$4J480654 0BINARY CARD ID. MAPJ0540| 73117 627062434623 BCI 1,SYSLOC $5$4J480655| 73120 600000021234 VFD H6/,O15/00000,15/IBJCOM $5$4J480656| 73121 627062262171 BCI 1,SYSFAZ $5$4J480657| 73122 600000021235 VFD H6/,O15/00000,15/IBJCOM+1 $5$4J480658 73123 312241234651 BCI 1,IBJCOR $5$4J480659| 73124 600000021236 VFD H6/,O15/00000,15/IBJCOM+2 $5$4J480660| 73125 312241242163 BCI 1,IBJDAT $5$4J480661| 73126 600000021237 VFD H6/,O15/00000,15/IBJCOM+3 $5$4J480662| 73127 334143242163 BCI 1,.JLDAT $5$4J480663 73130 600000021240 VFD H6/,O15/00000,15/IBJCOM+4 $5$4J480664| 73131 334163704725 BCI 1,.JTYPE $5$4J480665| 73132 600000021242 VFD H6/,O15/00000,15/IBJCOM+6 $5$4J480666| 73133 334143314560 BCI 1,.JLIN $5$4J480667| 73134 600000021243 VFD H6/,O15/00000,15/IBJCOM+7 $5$4J480668 73135 334165255160 BCI 1,.JVER $5$4J480669| 73136 600000021244 VFD H6/,O15/00000,15/IBJCOM+8 $5$4J480670| 73137 334142214764 BCI 1,.JKAPU $5$4J480671| 73140 600000021245 VFD H6/,O15/00000,15/IBJCOM+9 $5$4J480672| 73141 627062246222 BCI 1,SYSDSB $5$4J480673 1 IBMAPV IBMAPJ 12/01/64 PAGE 303 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 73142 600000021246 VFD H6/,O15/00000,15/IBJCOM+10 $5$4J480674| 73143 332624474662 BCI 1,.FDPOS $5$4J480675| 73144 600000021250 VFD H6/,O15/00000,15/IBJCOM+12 $5$4J480676 0BINARY CARD ID. MAPJ0541| 73145 626263512160 BCI 1,SSTRA $5$4J480680| 73146 600000021253 VFD H6/,O15/00000,15/IBJCOM+15 $5$4J480681| 73147 212363314645 BCI 1,ACTION $5$4J480682| 73150 600000021254 VFD H6/,O15/00000,15/IBJCOM+16 $5$4J480683 73151 414622314560 BCI 1,JOBIN $5$4J480684| 73152 600000021255 VFD H6/,O15/00000,15/IBJCOM+17 $5$4J480685| 73153 414622466460 BCI 1,JOBOU $5$4J480686| 73154 600000021256 VFD H6/,O15/00000,15/IBJCOM+18 $5$4J480687| 73155 414622474760 BCI 1,JOBPP $5$4J480688 73156 600000021257 VFD H6/,O15/00000,15/IBJCOM+19 $5$4J480689| 73157 314625243163 BCI 1,IOEDIT $5$4J480690| 73160 600000021260 VFD H6/,O15/00000,15/IBJCOM+20 $5$4J480691| 73161 415125254360 BCI 1,JREEL $5$4J480692| 73162 600000021261 VFD H6/,O15/00000,15/IBJCOM+21 $5$4J480693 73163 626422624760 BCI 1,SUBSP $5$4J480694| 73164 600000021262 VFD H6/,O15/00000,15/IBJCOM+22 $5$4J480695| 73165 476445233060 BCI 1,PUNCH $5$4J480696| 73166 600000021263 VFD H6/,O15/00000,15/IBJCOM+23 $5$4J480697| 73167 627062623024 BCI 1,SYSSHD $5$4J480698 73170 600000021264 VFD H6/,O15/00000,15/IBJCOM+24 $5$4J480699| 73171 433143244447 BCI 1,LILDMP $5$4J480700| 73172 600000021265 VFD H6/,O15/00000,15/IBJCOM+25 $5$4J480701| 0BINARY CARD ID. MAPJ0542| 73173 312262432260 BCI 1,IBSLB $5$4J480702 73174 600000021266 VFD H6/,O15/00000,15/IBJCOM+26 $5$4J480703| 73175 475162666060 BCI 1,PRSW $5$4J480704| 73176 600000021267 VFD H6/,O15/00000,15/IBJCOM+27 $5$4J480705| 73177 626422627062 BCI 1,SUBSYS $5$4J480706| 73200 600000021412 VFD H6/,O15/00000,15/SUBBGN $5$4J480707 73201 242526314525 BCI 1,DEFINE $5$4J480710| 73202 600000021347 VFD H6/,O15/00000,15/IOCS $5$4J480711| 73203 414631456060 BCI 1,JOIN $5$4J480712| 73204 600000021351 VFD H6/,O15/00000,15/IOCS+2 $5$4J480713| 73205 216363212330 BCI 1,ATTACH $5$4J480714 73206 600000021353 VFD H6/,O15/00000,15/IOCS+4 $5$4J480715| 73207 234346622560 BCI 1,CLOSE $5$4J480716| 73210 600000021355 VFD H6/,O15/00000,15/IOCS+6 $5$4J480717| 73211 464725456060 BCI 1,OPEN $5$4J480718| 73212 600000021357 VFD H6/,O15/00000,15/IOCS+8 $5$4J480719 73213 512521246060 BCI 1,READ $5$4J480720| 73214 600000021361 VFD H6/,O15/00000,15/IOCS+10 $5$4J480721| 73215 665131632560 BCI 1,WRITE $5$4J480722| 73216 600000021363 VFD H6/,O15/00000,15/IOCS+12 $5$4J480723| 73217 626321623060 BCI 1,STASH $5$4J480724 73220 600000021365 VFD H6/,O15/00000,15/IOCS+14 $5$4J480725| $5$4J480750| 73221 JBTBLE EQU * $5$4J480751| 1 IBMAPV IBMAPJ 12/01/64 PAGE 304 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0| 73221 P1PRPR EQU * PREPROCESSOR ORIGIN $5$4J480770| 73221 MAPBEG SYN * COME HERE FROM INITIALIZATION (6)4J480780| 0BINARY CARD ID. MAPJ0543| 73221 4625 00 0 36436 STL NMESW SET PRE-PROCESSOR SWITCH 4J480800 73222 0600 00 0 26564 STZ SWLOFN CLEAR LOCATION 4J480900| 73223 0600 00 0 37167 STZ SWLOP AND OPERATION SWITCHES 4J481000| 73224 4520 00 0 21430 NZT SWDBG TEST IF DEBUGGING $4$4J481100| 73225 0020 00 0 73230 TRA PIPAA NO $4$4J481200| 73226 0774 00 4 27656 AXT DECDBG,4 YES, MODIFY DECTYP $4$4J481300 73227 0634 00 4 27053 SXA A71TYP+2,4 X $4$4J481400| 73230 0500 00 0 21427 PIPAA CLA SWREF KILL PASS (6)4J481500| 73231 0560 00 0 73542 LDQ P1NOP ONE REFERENCE COLLECTION (6)4J481510| 73232 4120 00 0 73234 TMI *+2 IF LNREF IS (6)4J481520| 73233 4600 00 0 21414 STQ PLNRF NOT REQUESTED (OR ASSUMED) (6)4J481530 73234 0774 00 1 02342 AXT MAPWDE-MAPWDS,1 PUT OPERATIONS IN DICTIONARY (6)4J481600| 73235 0774 00 2 00044 P1PAB AXT 36,2 PICK UP BIT POSITION (6)4J481610| 73236 0560 00 0 73544 P1PAC LDQ SKTBL+** LOAD CURRENT WORD (6)4J481620| 73237 4773 00 2 00044 RQL 36,2 AND POSITION BIT (6)4J481630| 73240 2 00001 2 73245 TIX P1PAD,2,1 COUNT DOWN (6)4J481700 73241 0774 00 2 00044 AXT 36,2 RESET BIT COUNT (6)4J481800| 73242 4500 00 0 73236 CAL P1PAC MOVE TO NEXT WORD (6)4J481810| 73243 0361 00 0 21705 ACL L(1) (6)4J481820| 73244 0621 00 0 73236 STA P1PAC (6)4J481900| 73245 0634 00 2 73235 P1PAD SXA P1PAB,2 IS OPERATION (6)4J481910 73246 0162 00 0 73250 TQP P1PA TO BE SKIPPED (6)4J481920| 0BINARY CARD ID. MAPJ0544| 73247 0020 00 0 73257 TRA P1PAE YES, SKIP OPERATION (6)4J482000| 73250 4500 00 1 72353 P1PA CAL MAPWDE,1 SEND BCD PART TO THE DICTIONARY 4J482100| 73251 0602 00 0 21462 SLW OPER 4J482200 73252 0074 00 4 36407 TSX PLNOP,4 MAKE ENTRY 4J482300| 73253 4500 00 1 72354 CAL MAPWDE+1,1 SEND DESCRIPTION 4J482400| 73254 0602 00 2 00000 SLW 0,2 TO DICTIONARY 4J482500| 73255 3 00002 1 73257 TXH *+2,1,MAPWDE-MAPSYS $4$4J482600| 73256 0074 00 4 73525 TSX MACHNE,4 $4$4J482700 73257 2 00002 1 73235 P1PAE TIX P1PAB,1,2 (6)4J482800| 73260 4774 00 4 46033 AXC SM.END,4 SET SKELETON TABLE END (6)4J482900| 73261 0520 00 0 21424 ZET SWC94 4J483000| 73262 0020 00 0 73276 TRA P1PBA 4J483100| 73263 0774 00 1 00132 AXT M94WDE-M94WDS,1 IF THIS IS 7090 4J483200 73264 4500 00 1 72505 P1PB CAL M94WDE,1 ASSEMBLY, REPLACE 7094 4J483300| 73265 0602 00 0 21462 SLW OPER INSTRUCTIONS BY 4J483400| 73266 0074 00 4 36407 TSX PLNOP,4 SYSTEM MACROS 4J483500| 73267 4500 00 1 72506 CAL M94WDE+1,1 4J483600| 73270 0602 00 2 00000 SLW 0,2 4J483700 73271 0734 00 4 00000 PAX 0,4 AVOID CLOBBERING $4$4J483800| 73272 7 46000 4 73274 TXL *+2,4,SM.RET CORE $4$4J483900| 73273 0074 00 4 73525 TSX MACHNE,4 $4$4J484000| 73274 2 00002 1 73264 TIX P1PB,1,2 4J484100| 0BINARY CARD ID. MAPJ0545 73275 0774 00 4 30633 AXT -M.END,4 4J484200| 73276 4500 00 0 21423 P1PBA CAL SWCPIN 4J484300| 73277 0322 00 0 73532 ERA DFTC 4J484400| 1 IBMAPV IBMAPJ 12/01/64 PAGE 305 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ 0 73300 4520 00 0 73534 NZT MFTC 4J484500| 73301 4100 00 0 73313 TNZ P1PC 4J484600| 73302 0774 00 1 00122 AXT FTCWDE-FTCWDS,1 IF THIS IS 4J484700| 73303 4500 00 1 72627 P1PBB CAL FTCWDE,1 FORTRAN SOURCE, 4J484800| 73304 0602 00 0 21462 SLW OPER SET FOR 4J484900 73305 0074 00 4 36407 TSX PLNOP,4 FORTRAN MACROS 4J485000| 73306 4500 00 1 72630 CAL FTCWDE+1,1 4J485100| 73307 0602 00 2 00000 SLW 0,2 4J485200| 73310 0074 00 4 73525 TSX MACHNE,4 $4$4J485300| 73311 2 00002 1 73303 TIX P1PBB,1,2 4J485400 73312 0774 00 4 27610 AXT -FM.END,4 4J485500| 73313 0634 00 4 44605 P1PC SXA PLSTR,4 INITIALIZE 4J485600| 73314 4634 00 4 45330 SXD XPLTST,4 MACRO CALL TEST AND 4J485700| 73315 0774 00 4 00006 AXT 6,4 MACRO SKELETON 4J485800| 73316 0634 00 4 44606 SXA PLACB,4 TABLE COUNTS 4J485900 73317 0500 00 0 21437 CLA ENAC SET SWITCH FOR $5$4J485910| 73320 0402 00 0 21705 SUB L(1) LIMIT NOT EXCEEDED $5$4J485915| 73321 0621 00 0 32726 STA SKPEND (6)4J485920| 73322 4500 00 0 35142 CAL BLCTR PLACE BLANK 4J486000| 0BINARY CARD ID. MAPJ0546 73323 0602 00 0 21461 SLW NAME LOCATION COUNTER 4J486100| 73324 0074 00 4 26506 TSX PLNME,4 IN DICTIONARY 4J486200| 73325 0634 00 2 73326 SXA *+1,2 MARK LOCATION OF 4J486300| 73326 4774 00 1 00000 AXC **,1 BLANK LOCATION WITH 4J486400| 73327 4500 00 0 30140 CAL 4WD PROPER ADJECTIVE 4J486500 73330 0602 00 2 00000 SLW 0,2 CODE 4J486600| 73331 0634 00 1 21451 SXA FLOC,1 PUT BLANK LOCATION 4J486700| 73332 4634 00 1 21451 SXD FLOC,1 COUNTER ADDRESS INTO 4J486800| 73333 4634 00 1 21452 SXD SLOC,1 SLOC, AND FLOC 4J486900| 73334 0074 00 4 26607 TSX INDUM,4 RESERVE EXTRA 4J487000 73335 0600 00 2 00000 STZ 0,2 DICTIONARY LOCATION 4J487100| 73336 0074 00 4 26607 TSX INDUM,4 RESERVE SPACE 4J487200| 73337 4500 00 0 30137 CAL 1WD FOR A 4J487300| 73340 0602 00 2 00000 SLW 0,2 BEGIN 4J487400| 73341 4500 00 0 35165 CAL SLCTR PUT // LOCATION 4J487500 73342 0602 00 0 21461 SLW NAME COUNTER INTO THE 4J487600| 73343 0074 00 4 26506 TSX PLNME,4 DICTIONARY 4J487700| 73344 0634 00 2 73345 SXA *+1,2 PUT ADDRESS 4J487800| 73345 4774 00 1 00000 AXC **,1 INTO 4J487900| 73346 0634 00 1 21452 SXA SLOC,1 SLOC 4J488000 73347 4500 00 0 30140 CAL 4WD PUT IN PROPER 4J488100| 73350 0602 00 2 00000 SLW 0,2 ADJECTIVE CODE 4J488200| 0BINARY CARD ID. MAPJ0547| 73351 0074 00 4 26607 TSX INDUM,4 RESERVE AN EXTRA 4J488300| 73352 0600 00 2 00000 STZ 0,2 DICTIONARY LOCATION 4J488400 73353 0074 00 4 26607 TSX INDUM,4 RESERVE SPACE 4J488500| 73354 4500 00 0 30137 CAL 1WD FOR A 4J488600| 73355 0602 00 2 00000 SLW 0,2 BEGIN 4J488700| 73356 4500 00 0 73533 CAL L(UQ) PLACE NAME FOR 4J488800| 73357 0074 00 4 26433 TSX NTLOCC,4 FOR UNIVERSAL 4J488900 73360 0621 00 0 33745 STA UNQUL QUALIFICATION 4J489000| 73361 0522 00 0 21414 XEC PLNRF PLACE REFERENCE IF LNREF (6)4J489010| 73362 0560 00 0 73533 LDQ L(UQ) SECTION 4J489100| 73363 4600 60 0 33745 STQ* UNQUL 4J489200| 1 IBMAPV IBMAPJ 12/01/64 PAGE 306 INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 73364 4320 00 0 21723 ANA MSKAD 4J489300| 73365 4765 00 0 00001 LGR 1 4J489400| 73366 0737 00 2 00000 PAC 0,2 PLACE LOCATION 4J489500| 73367 0774 00 4 21470 AXT DPQL,4 IN HASH TABLE 4J489600 73370 0754 00 4 00000 PXA 0,4 4J489700| 73371 0162 00 0 73375 TQP *+4 4J489800| 73372 0767 00 0 00022 ALS 18 4J489900| 73373 0622 00 2 23300 STD HASHT-NMCHN/2,2 4J490000| 73374 0020 00 0 73376 TRA *+2 4J490100 73375 0621 00 2 23300 STA HASHT-NMCHN/2,2 $5$4J490110| 73376 0074 00 2 25727 P1PCC TSX ERCT+1,2 OBTAIN ERROR $5$4J490120| 0BINARY CARD ID. MAPJ0548| 73377 0634 00 4 25635 SXA ERPAA,4 MESSAGE,PSEUDO- $5$4J490130| 73400 0600 60 0 25700 STZ* ERPD OPERATION, $5$4J490140 73401 1 67000 2 34627 TXI FPCPD,2,P1PCC+*+1 CONSTANT POOL, $5$4J490150| 73402 1 00001 2 73403 TXI *+1,2,1 CONTROL SECTION, $5$4J490160| 73403 0634 00 2 34617 SXA FPCPSU,2 AND FILE $5$4J490170| 73404 0774 00 2 00000 AXT 0,2 CARDS BUFFER $5$4J490180| 73405 1 73406 2 40366 TXI CPBWR,2,*+1 TO PROTECT $5$4J490190 73406 0520 00 0 21426 ZET SWABS $5$4J490191| 73407 0020 00 0 73416 TRA P1PD $5$4J490192| 73410 0774 00 4 73412 AXT *+2,4 AGAINST $5$4J490200| 73411 0020 00 0 40670 TRA CTL.FC UNABLE TO $5$4J490201| 73412 0634 00 4 40631 SXA CTL.11,4 STASH $5$4J490202 73413 0774 00 4 73415 AXT *+2,4 CONDITION $5$4J490203| 73414 0020 00 0 41064 TRA FYL.BF X $5$4J490204| 73415 0634 00 4 41023 SXA FYL.9,4 X $5$4J490205| 73416 4520 00 0 73540 P1PD NZT MNSSW ARE SYMBOLS REQUESTED $5$4J490209| 73417 0020 00 0 73512 TRA P1PE NO, SKIP $5$4J490210 73420 4500 00 0 73537 CAL QULSYM YES, PLACE IN DICTIONARY QUALIFIED$5$4J490215| 73421 0602 00 0 21461 SLW NAME BY 'S.S' $5$4J490220| 73422 0074 00 4 26506 TSX PLNME,4 PLACE 'S.S' IN NAME TABLE $5$4J490225| 73423 4500 00 0 30142 CAL 5WD $5$4J490230| 73424 0602 00 0 52030 SLW LINK AND TEXT (6)4J490234 0BINARY CARD ID. MAPJ0549| 73425 0602 00 2 00000 SLW 0,2 AND IN INTERNAL DICTIONARY $5$4J490235| 73426 0634 00 2 73474 SXA P1PDX,2 $5$4J490240| 73427 0754 00 2 00000 PXA ,2 $5$4J490245| 73430 0402 00 0 21721 SUB 10WD $5$4J490250 73431 0621 60 0 31661 STA* PRVQL $5$4J490255| 73432 0621 00 0 31661 STA PRVQL SET UP PSEUDO-OP DICTONARY ENTRY$5$4J490260| 73433 0621 00 0 52030 STA LINK AND TEXT (6)4J490265| 73434 4500 00 0 31716 CAL 70WD $5$4J490270| 73435 0361 00 0 34724 ACL PSOPLC $5$4J490275 73436 0361 00 0 21706 ACL L(2) $5$4J490280| 73437 0621 00 0 34724 STA PSOPLC $5$4J490285| 73440 0361 00 0 21705 ACL L(1) $5$4J490290| 73441 0602 00 0 52031 SLW LINK+1 $5$4J490295| 73442 0074 00 4 26607 TSX INDUM,4 $5$4J490300 73443 0074 00 4 36320 TSX LCHNE,4 $5$4J490305| 73444 0074 00 4 34560 TSX FPCLAG,4 OUTPUT PSEUDO-OP DICTIONARY ENTRY $5$4J490310| 73445 5 00002 0 52030 MON LINK,,2 $5$4J490315| 73446 0500 00 0 00120 CLA SYSCOR GET VALUES OF 'SYSORG' AND $5$4J490320| 73447 0621 00 0 73116 STA MNTBLE-1 'SYSEND' FROM 'SYSCOR' $5$4J490325 1 IBMAPV IBMAPJ 12/01/64 PAGE 307 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 73450 4734 00 4 00000 PDX ,4 $5$4J490330| 73451 0634 00 4 73114 SXA MNTBLE-3,4 $5$4J490335| 73452 4520 00 0 73541 NZT JBSSW ARE IBJOB SYMBOLS REQUESTED $5$4J490340 0BINARY CARD ID. MAPJ0550| 73453 0020 00 0 73461 TRA P1PDA NO $5$4J490345| 73454 0774 00 1 73221 AXT JBTBLE,1 YES,INITIALIZE FOR FULL TABLE $5$4J490350| 73455 0634 00 1 73466 SXA P1PDC,1 $5$4J490355| 73456 0634 00 1 73462 SXA P1PDB,1 $5$4J490360 73457 0774 00 1 00372 AXT JBTBLE-MNTBLS,1 $5$4J490365| 73460 0020 00 0 73462 TRA P1PDB $5$4J490370| 73461 0774 00 1 00270 P1PDA AXT MNTBLE-MNTBLS,1 $5$4J490375| 73462 4500 00 1 73117 P1PDB CAL MNTBLE,1 $5$4J490380| 73463 0602 00 0 21461 SLW NAME $5$4J490385 73464 0074 00 4 26506 TSX PLNME,4 PLACE SYMBOL IN NAME TABLE AND IN $5$4J490390| 73465 1 77777 1 73466 TXI *+1,1,-1 AND IN INTERNAL DICTIONARY $5$4J490400| 73466 4500 00 1 73117 P1PDC CAL MNTBLE,1 AS DEFINED BY AN EQU WITH A $5$4J490410| 73467 0602 00 2 00000 SLW 0,2 CONSTANT VARIABLE FIELD $5$4J490415| 73470 2 00001 1 73462 TIX P1PDB,1,1 REPEAT UNTIL ALL SYMBOLS DEFINED $5$4J490420 73471 0074 00 4 26607 TSX INDUM,4 MAKE INTERNAL DICTIONARY ENTRY (6)4J490425| 73472 4500 00 0 30143 CAL 6WD FOR ENDQ $5$4J490430| 73473 0602 00 2 00000 SLW 0,2 $5$4J490435| 73474 0774 00 4 00000 P1PDX AXT **,4 $5$4J490440| 73475 4754 00 2 00000 PXD 0,2 $5$4J490445 73476 0771 00 0 00003 ARS 3 $5$4J490450| 73477 0402 00 0 32171 SUB 16WD COMPLETE ENTRY FOR QUAL $5$4J490455| 73500 0622 00 4 00000 STD 0,4 $5$4J490460| 0BINARY CARD ID. MAPJ0551| 73501 0625 00 4 00000 STT 0,4 $5$4J490465 73502 0074 00 4 36320 TSX LCHNE,4 $5$4J490470| 73503 4500 00 0 34724 CAL PSOPLC $5$4J490475| 73504 0361 00 0 21706 ACL L(2) SET UP PSEUDO-OP DICTIONARY $5$4J490480| 73505 0621 00 0 34724 STA PSOPLC ENTRY FOR ENDQ $5$4J490485| 73506 0361 00 0 21705 ACL L(1) $5$4J490490 73507 0621 00 0 30145 STA NDQE $5$4J490495| 73510 0074 00 4 34560 TSX FPCLAG,4 OUTPUT PSEUDO-OP DICTIONARY $5$4J490500| 73511 5 00002 0 30144 MON NDQE-1,,2 ENTRY $5$4J490510| 73512 0074 00 4 37001 P1PE TSX CDXIN,4 $5$4J490520| 73513 0520 00 0 73534 ZET MFTC $4$4J490700 73514 4520 00 0 21424 NZT SWC94 CHECK FOR 94 ASSEM $4$4J490800| 73515 0020 00 0 73523 TRA P1PRZ IF NOT, SKIP $4$4J490900| 73516 0500 00 0 73535 CLA PRG94 IF SO, SET TO PURGE $4$4J491000| 73517 0601 00 0 46033 STO SM.END ALL 94 MACROS FROM $4$4J491100| 73520 4774 00 2 73536 AXC 94PT,2 SKELETON TABLE (6)4J491200 73521 0074 00 4 31477 TSX HOLD,4 $4$4J491300| 73522 0074 00 4 31520 TSX CLEAR,4 $4$4J491400| 73523 0600 00 0 36436 P1PRZ STZ NMESW RESET OP REDEFINITION SWITCH (6)4J491600| 73524 0020 00 0 26640 TRA PASA (6)4J491700| 73525 0621 00 0 73530 MACHNE STA *+3 SET CHAIN WORD LOCATION $4$4J491900| 73526 0754 00 2 00000 PXA ,2 GET POSITIVE DICT. LOCATION $4$4J492000| 0BINARY CARD ID. MAPJ0552| 73527 0737 00 2 00000 PAC ,2 $4$4J492100| 73530 4634 00 2 00000 SXD **,2 STORE IN CHAIN WORD. $4$4J492200 1 IBMAPV IBMAPJ 12/01/64 PAGE 308 | INITIALIZATION ROUTINES PHASE 1 - RECORD IBMAPJ | 0 73531 0020 00 4 00001 TRA 1,4 RETURN $4$4J492300| | 73532 533122266323 DFTC BCI 1,$IBFTC 4J492500 73533 606445506260 L(UQ) BCI 1, UNQS 4J492600| 73534 0 00000 0 00000 MFTC PZE 0 FORTRAN MACRO SWITCH 4J492700| 73535 0 00000 0 47145 PRG94 PZE M.END $4$4J492800| 73536 620000046033 94PT VFD O6/62,12/,3/,15/SM.END (6)4J492900| 73537 623362606060 QULSYM BCI 1,S.S QUALIPIER FOR SYSTEM SYMBOLS $5$4J492910 73540 0 00000 0 00000 MNSSW PZE ** IBSYS MONITOR SYMBOLIC SWITCH $5$4J492915| 73541 0 00000 0 00000 JBSSW PZE ** IBJOB SYMBOLS SWITCH $5$4J492920| 73542 0774 00 0 00000 P1NOP AXT 0,0 FAST NOP (6)4J492930| 73566 USE REMOTE PATCH SPACE FOR INITIALIZATION (6)4J492940| | 0 TABLE OF CONTENTS | | * IBMAPJ PATCH AREAS ARE LOCATED AS FOLLOWS.. (6)4J493020| 022052 PATCHS| 026622 PATCHC| 045740 PATCH | 073566 * | 0BINARY CARD ID. MAPJ0553 00000 END 4J493100| -NO MESSAGES FOR THIS ASSEMBLY | 1 IBMAPV IBMAPJ 12/01/64 PAGE 309 | SYMBOL REFERENCE DATA -- PART 1 | 0 REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| | 10WD 21721 26716,27235,27240,27415,31646,31663,32102,32774,32777,33615,37256,40443,41776,42364| 11WD 21722 32456,37300 12WD 34365 33447,33711| 14WD 33335 31775,32003| 16WD1 32172 32103,32104,32150| 16WD 32171 30077,32077| 1DECR 21717 26157,26354,27667,35306,35515,36274,37243,45046 1WD 30137 30066,31052,32217,32771,34006,34161,34675,36307| 2B 52230 0,27304,27305,31103,31104,31346,31347,32606,32615,32621,32624,32651,32704,36072,36753,44331| 2DECR 35172 30711| 36WD 32253 32641| 3PER 21472 67070,67074,67623,67714,67717 4095D 35152 30023,27125,36277,36302| 4WD 30140 27450,32214,32227,33764| 56WD 34753 27747,34742,35273| 5WD 30142 31643,31670| 61A 26766 26746 61B 26777 26746| 63A 27014 26750| 63B 27020 26750| 64A 27021 26751| 64B 27030 26751 65A 27032 26752| 65B 27035 26752| 66A 27037 26753| 66B 27042 26753| 67A 27043 26754 67B 27046 26754| 6DECR 21720 | 6WD 30143 30073| 70A 27047 26755| 70B 27051 26755 70S 34361 34316| 70WD 31716 31674,33125,33137,33200| 71A 27052 26756| 71B 27057 26756| 72A 27060 26757 72B 27066 26757| 73A 27070 26760| 73B 27075 26760| 74WDC 34752 34731,34746| 75A 27076 26762 75B 27103 26762| 75WD1 26705 26703,30312,30443,35106,40544,43171,44304,45141| 75WD2 34751 35110,44303,45137| 76A 41742 26763| 76B 41745 26763 77A 27106 26764| 77B 27123 26764| 77WD 25607 26526,26535,26542,26543,26552,26553,30221| 7WD 30141 30764| 1 IBMAPV IBMAPJ 12/01/64 PAGE 310 SYMBOL REFERENCE DATA -- PART 1 | 0 94PT 73536 | A14A 33334 33321| A14B 33324 33336| A14C 33316 33322 A14TYP 33310 27362,32330,42504| A14X 33332 33310,33341| A45TYP 27163 26732,27166| A50TYP 27143 26735| A51TYP 27143 26736 A52TYP 27163 26737| A53TYP 27166 26740| A54TYP 27264 26741| A60TYP 43516 26745| A61TYP 26765 26746 A62TYP 26777 26747,31254,31502| A63TYP 27013 26750| A64TYP 27020 26751| A65TYP 27030 26752| A66TYP 27035 26753 A67TYP 27042 26754| A70TYP 27046 26755| A71TYP 27051 26756| A72TYP 27057 26757| A73TYP 27066 26760 A74TYP 27133 26761| A75TYP 27075 26762| A76TYP 41722 26763| A77TYP 27103 26764| BOOL AAL 000040 70722,70744 ABSTA 27271 27720,30534,30721,30755,31035,31055,31416,31450,31455,32056| ABSTYP 27267 27070,30211,31630,32074| ACTION 21254 21750,22030| ADJTBL 26665 26670,31164,31253,31501,41740| BOOL ALB 000004 27331,32377,33112,33467,36533,37034,37035,37213,41432,41754,41760,42242,42420,44717,45232 ALCDE 00003 36560,36561,36562,36563,36564,36565,36566,36567,36570,36600,36601,36602,36603,36604,36605,| 36606,36607,36610,36621,36622,36623,36624,36625,36626,36627,36630| BOOL ALLBT 037777 31234,32303,33112,34026,36446,36666,41410,41522,41612,41631,41754,44355,44450,44720,67143| ANDWRD 30506 30430,30433| BOOL ANG 000060 70102,70104,70106,70110,70112,70114,70116,70120,70130,70134,70140,70146,70154,70156,70162, 70170,70172,70176,70200,70202,70204,70206,70210,70212,70214,70230,70252,70260,70312,70326,| 70330,70372,70410,70412,70414,70416,70420,70422,70424,70426,70450,70452,70454,70456,70460,| 70462,70464,70466,70470,70522,70524,70526,70530,70532,70534,70536,70540,70550,70554,70556,| 70560,70562,70564,70566,70570,70572| BOOL AN 000020 BOOL AOK 000020 42330,70236,70242,70344,70350,70364,70366,70370,70374,70376,70400,70404,70406,70520| APNDWD 44273 43540| BOOL ARQ 000000 70012,70014,70016,70020,70022,70024,70026,70030,70032,70034,70036,70040,70042,70044,70046,| 70050,70052,70054,70056,70060,70062,70064,70066,70070,70072,70074,70076,70100,70122,70124,| 70126,70132,70136,70142,70144,70150,70152,70160,70164,70166,70174,70216,70220,70222,70224, 70226,70232,70234,70240,70244,70246,70250,70254,70256,70262,70264,70266,70270,70272,70274,| 70276,70300,70302,70304,70306,70310,70314,70316,70320,70322,70324,70332,70334,70336,70340,| 70342,70346,70352,70354,70356,70360,70362,70402,70430,70432,70434,70436,70440,70442,70444,| 70446,70472,70474,70476,70500,70502,70504,70506,70510,70512,70514,70516,70542,70544,70546,| 70552,70574,70576,70600,70602,70604,70606,70610,70612,70614,70616,70620,70622,70624,70626, 70630,70632,70634,70636,70640,70642,70644,70646,70650,70652,70654,70656,70660,70662,70664,| 70666,70670,70672,70674,70676,70700,70702,70704,70706,70710,70712,70714,70716,70720,70724,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 311 | SYMBOL REFERENCE DATA -- PART 1 | 0 70726,70730,70732,70734,70736,70740,70742,70746,70750,70752,70754,70756,70760,70762,70764, 70766,70770,70772,70774,70776| BOOL AR 000000 | BOOL ASB 010000 27326,30215,30517,30521,31232,31234,32363,33534,34026,35156,36521,41754,41760,41773,42242,| 42414,43574,44354,45220| ASCDE 00015 33603,33605,36613,37017 ASTWT 34414 33513,33542| ATTACH 21353 67003,67011| BA01 67313 67441| BA02 67314 67273,67326,67344,67346,67362,67407,67414,67437,67453,67454| BA03 67320 67303 BA04 67332 67307,67311| BA08 67372 67364,67376| BA09 67350 67343| BA10 67352 67317,67365| BA11 67362 BA12 67407 67402| BA13 67421 67351| BA15 67424 67336| BA16 67425 67275,67432| BA17 67434 67347,67423,67450 BA18 67437 67316| BA19 67440 | BA20 67441 67267| BA21 67443 67270| BA22 67444 67271 BA23 67445 67264,67266| BA24 67447 67321,67332,67333,67451| BA25 67447 67350| BA26 67451 67315| BA27 67453 67436 BA28 67455 67300,67330,67367| BA29 67456 67272,67442| BA30 67457 67353,67422| BA.3 67330 67322,67323| BBASZE 00720 0 BBFSZE 00345 0,34761,34771,67002| BCDOUT 35141 26641,30544,34727,35063| BCFCH 36224 35632,35635,35640,35650,36226,36230,41073,41112,44541,44555,44567| BCFCX 36232 36221,36223,36225| BCIA 27307 27302 BCIB 27302 27310| BCICA 27347 27345,27363| BCICB 27354 27336,27350| BCICC 27344 | BCICD 27346 27341 BCICR 27357 27330| BCICS 27362 27332| BCICT 27324 27277| BCICX 27355 27324| BCISW 45157 44203,44420,44422 BCITYP 27275 27054| BESTYP 27463 27022| BGDICT 21457 | BGNB 27442 27366,27434,27437| BGNC 27403 27373,27402 1 IBMAPV IBMAPJ 12/01/64 PAGE 312 | SYMBOL REFERENCE DATA -- PART 1 | 0 BGND 27432 27406,27422,27445| BGNE 27452 27426| BGNSCN 27462 27370,30722 BGNTYP 27364 27015| BGNWRD 27461 27420| BIGBUF 22060 0,22052,67001,67004| B.AST 45156 37141,45155| BLANKS 36253 30161,31100,31133,31216,31326,31733,32525,32605,32737,34146,35535,35547,36137,36166,36222, 36732,36773,37013,37055,37114,40725,41007,41120,41124,44030,44750,67103,67122,67215| BLCDE 00000 | BLCTR 35142 27401,32140| BLDQCH 31662 31651| BLFCH 36221 36144 BLINK 21466 42100,42105,42122,42125,42127,42167,42527,42534,42545,42557,42561,42563,42565,42567,42571,| 42573,42576,42621,42631,42636,42640,42645,42651,42656,42663,42670,42675,42700,42705,42724| BLINK 21443 21756,21761,25661,25666,27611,27625,30531,33432,35043,35060,35065,35124,35250,35262,36122,| 36124,41723,41745,41747,43227,43325,45151,45153| BLMSK 35143 34455,43332 BOLA 27472 27470,30702,31720| BOLTYP 27470 27037| BOOLSW 35144 26642,27164,27473,32337,32452,33454| BSCAN 36662 27372,30226,30650,31631,32025,33461,33537,33761,34113,34124,37331,37463,43532,43772,45101| BSCX 36750 36662,36663,36757,36760 BSLNKM 27607 27556,27566,27570,33012| BSSCVA 27555 27516| BSSCVB 27564 27561| BSSCVF 27504 27465,27501,30152| BSSCVV 27533 30165 BSSCX 27562 27504| BSSDBG 27544 27536| BSSNME 27605 27573,27574,27577,27601| BSSTYP 27475 27021,27624| BSSWCH 27572 27510,27530,27533,27560,27564,30156,42511,43001 BSTCT 36777 35614,36074,44631,44645| BSTFC 44625 35610,35634,35654,36067,36141,36724,36766,41111,44554,44642,44643| BST.1 44630 35643,36714,36722,44622,44632,44636,44640| BST.2 44634 44624| BST.3 44642 44626 BST.4 44643 44637| BSTNG 44622 35612,35635,35656,36072,36143,36770,36771,41112,44555| BSTSV 36721 36715| BTAG 25734 25634,25640,25715| BUGACC 33305 33276,33277,33302 BUGCDE 33057 33020| BUGCNT 33172 33155,33175| BUGDIM 33162 33073| BUGERR 33276 33077,33111,33116,33210,33217| BUGEX1 33146 33224 BUGEXT 33153 33061,33062| BUGFLD 33161 27535,33057,33154| BUGGO 33223 33162| BUGMD1 33117 33106,33107,33113,33122| BUGMD2 33075 BUGMD 33105 33074,33076,33102| BUGQS 33214 33204| BUGQT 33217 33202,33213| 1 IBMAPV IBMAPJ 12/01/64 PAGE 313 | SYMBOL REFERENCE DATA -- PART 1 0 BUGRET 33124 33115| BUGSCN 33070 33146| CBCSPE 67565 67057,67060| CBCSPM 67461 67060| CCDSW 35145 26644,27104,30212,30306,31367,32066,35047,44765 CDDIG 21442 30673| CDRSDU 37175 37150,37161| CDSEQ 21440 30675,30677,67114| CDXAS 37164 37020| CDXEX 37152 37001,37002,37003,37166 CDXINR 37155 26647,30541,44312,44413| CDXIN 37001 30607,31317,35075,35240,43203,43321,43366,45150,67014,67153| CDXLA 37023 37031| CDXLB 37031 37216| CDXNW 37105 37101,37123,37136,67252 CDXOP1 67251 37062| CDXOP2 67263 67255| CDXOP3 37062 67256| CDXOP 37046 37045| CDXOQ 37037 37014 CDXPA 37067 37100,37102| CDXPB 37103 37073,37217,37220,37222,37223,37225,37226,37227,37230,37232,37233,37234,37235| CDXPC 37100 37076| CDXPD 37077 37221| CDXPE 37060 37046 CDXPF 37122 37104,37236| CDXPG 37127 37125,37231| CDXPH 37131 37130,37224| CDXPK 37140 37134,37135,37137| CDXPL 37126 37121 CDXQL 37112 37050,37051,37107,37111,37155| CDXRCT 37176 37151,37157| CDXTFI 67674 67660,67667| CDXTF 37034 67657,67661| CDXVF 37120 37122,37124,67262 CHKMS 34060 34041,34052,34053,34055,34106,34115| CHKSGN 34041 34110| CHKSX 34056 34050| CHRCTR 36754 36740,37442,37526| CKLA 34077 34074 CKLT 34101 32266,34065,34076,34103| CKLTYP 34065 30733,32263,34020| CKTBLF 34673 66741| CKUB 34667 34653,34657,34663| CKUSES 34646 34630 CKUX 34665 34646| CKUY 34664 34647,34662| CKUZ 34703 34651,34661,34670,34673| CLEAR 31520 31316,31474,35413,43442,44070| CLOSA 35446 35442 CLOSED 35440 27752,35335,35400| CLOSER 35436 35434| CLOSE 21355 27761,21767,26013,26106,26270,26310,35002,35445,40335| CLOSX 35450 35441| CLR01 31523 31555,31557 CLRDUP 35374 35505,36464,43343,45312,45333| 1 IBMAPV IBMAPJ 12/01/64 PAGE 314 | SYMBOL REFERENCE DATA -- PART 1 | 0 CLREX 31532 31522,31524| BOOL CMB 001000 27326,27462,30214,30464,30517,30563,30613,31124,31136,31137,31221,31222,31457,32363,32375, 33071,33112,33534,34026,35156,35744,35757,36524,40740,40772,41164,41342,41410,41531,41540,| 41564,41572,41602,41611,41612,41621,41630,41631,41642,41654,41707,41757,42035,42241,42371,| 43574,43756,44106,44354,45062,45065,45223,67126,67142,67707| CMCDE 00012 27327,30445,32365,32367,32370,33343,33344,36632,42013,42015,42031,42033,42065| CMNA 27625 27542,27553,33054 CMNB 27642 27612,27626| CMNTYP 27610 27023| CMPLX 21460 | CMTRM 34263 27451| CNVA 34326 34275,34323 CNVB 34311 34272,34277,34313,34325,34344,34347,34354| CNVC 34336 34301| CNVD 34352 34317| CNVE 34357 34270,34326,34342| CNVF 34350 34341 CNVG 34303 34337,34346,34356| CNVH 34343 34351| CNVI 34360 34271,34306,34345| CNVOCT 34265 31125,31143,34114| CNVX 34332 34265 CNVY 34333 34266| CNVZ 34334 34267| SET COL.12 00013 36175,36177| SET COL.6 00005 35540| SET COL.72 00110 36157,36160 SET COL.7 00006 35537| SET COL.8 00007 35543,35545| COMNSW 27643 27541,27552,27610,27640,32074,32106,32162,33053| COMORG 21412 0,21246| COMSZE 00066 0 CONORG 21704 0| CONSZE 00044 0| CPBRDA 40412 40242,40416| CPBRD 40402 40247,40260,40262,40276,40447| CPBRX 40431 40402,40404,40422,40427 CPBWR 40366 31031,40327| CPBWX 40401 40366| CPEVT 40352 40265,40311| CPL14 40432 40246,40437| CPLA 40250 CPLB 21445 30014,30754,31027,40245,40321,40325,40377,40420| CPLBSW 40455 40241,40257,40274,40424,40430| CPLBSZ 40457 40243,40261,40423| CPLBT 40453 40352,40400,40413| CPLBW 40454 40371,40374,40406,40410 CPLC 40251 40233,40260,40277,40306,40322| CPLD 40252 40256,40300,40323,40375,40411| CPLEE 40264 40254| CPLE 40256 40253,40255,40307| CPLEVS 40456 40240,40355 CPLF 40271 40302| CPLG 40272 40235| CPLH 40303 40264,40267,40314,40342,40354,40357,40362| CPLJA 40330 40326,40327| 1 IBMAPV IBMAPJ 12/01/64 PAGE 315 SYMBOL REFERENCE DATA -- PART 1 | 0 CPLJJ 40333 40236| CPLJ 40322 40320,40332,40333| CPLK 40450 40224,40225| CPLMJ 40452 40344,40353,40361 CPLNA 40230 40226| CPLN 40227 30742,34035| CPL 40224 34016| CPLX 40346 40230,40231,40232| CPNOM 40321 40312,40317 CPNON 40310 40262,40263,40275,40334,40447| CPOOLF 21640 21646,21743,26406,31011,40336,40337,40341,40370,40404| CPYES 40335 40272| CRTSW 45162 44077,44101,44121,44133,44153,44156,44163| CRTTYP 44765 26776 CSCAN 36667 | CT3LST 67716 67542| CTAABS 67615 67500| CTABUF 67643 67516| CTACHH 67637 67512 CTADEK 67574 67466| CTAECC 67164 67156| CTAECD 67207 67214| CTAECE 67214 67175,67206| CTAECF 67221 67201 CTAFOR 67610 67474| CTALST 67570 67462,67715| CTAM01 67744 67032| CTAM02 67751 67047,67052| CTAM03 67762 67166,67171,67204 CTAM04 67773 67164| CTAM05 67774 67167| CTAM06 67775 67243| CTAM08 67776 67232| CTAM09 67777 67163 CTAMFT 67647 67520| CTANFR 67605 67472| CTANLS 67572 67464| CTANPN 67655 67530,67673| CTANRF 67625 67510 CTAPAR 67672 67532| CTAPEC 67641 67514| CTAREF 67617 67504| CTAREL 67613 67476,67646| CTASCA 67133 67075 CTASCB 67134 67076,67137| CTASCC 67150 67053,67131,67141,67144,67571,67573,67576,67601,67604,67607,67612,67614,67616,67620,67624,| 67627,67636,67640,67642,67644,67650,67652,67654,67671,67701,67703,67705,67713,67720,67722,| 67731,67735,67740,67742| CTASCD 67136 67100 CTASCL 67125 67150| CTASCZ 67154 | CTASND 67577 67470| CTASPE 67565 67072,67073,67565,67565| CTASPM 67461 67073,67565,67565 CTASSE 67570 66773,66774| CTASSP 67565 66767,66773,66774| 1 IBMAPV IBMAPJ 12/01/64 PAGE 316 | SYMBOL REFERENCE DATA -- PART 1 | 0 CTASYM 67645 67502 CTAUNC 67743 66776| CTCKMD 21421 22021,35067,67637| CTCNPR 67702 67536| CTCONC 21560 21566,21740,26402,40672| CTDDIC 67723 67550 CTDFCF 21670 21676,21745,26404,41133,41143,41145| CTDFOP 67704 67526| CTDREL 67721 67540| CTDUPF 21654 21662,21744,26407,35346,35364,35366,35424,35443,35444,35446,43151,43241,43267| CTERB 36744 36741 CTERM 36740 36670,37000| CTERRF 21574 21602,21737,25730,26401| CTFILC 21610 21616,21741,26403,41066| CTFLST 67714 67544| CTINFE 21746 21735 CTJSYM 67736 67560| CTLBFL 21735 67013,67013| CTLCCT 21444 40634,40636| CTLIST 21420 35252,67064,67234,67570,67572| CTL.10 40570 40560,40566 CTL.11 40631 40665| CTL.12 40642 40647| CTL.13 40643 40641,40660,40673| CTL.14 40657 40664| CTL.15 40663 40465 CTL.16 40675 40670| CTL.1 40502 | CTL.20 40605 40556,40574| CTL.21 40616 40613| CTL.22 40620 40627 CTL.23 40623 40620| CTL.24 40625 40615| CTL.25 40525 40510,40514| CTL.2 40510 40501| CTL.2T 40546 40522 CTL.3 40527 40534| CTL.4 40533 40527| CTL.5 40535 40513,40523,40546,40564,40567| CTL.6 40541 40711,42274| CTL.7 40543 40540,41045,41061 CTL.8 40557 40532| CTL.9 40562 40570| CTL.EL 40700 33326,33330,40576,40602,42353,42355| CTL.FC 40670 40633,40645,40662| CTL.KY 40676 30202,40460,40464,40466,40504,40554,40555,40573,40577,40604,40605,40607,40612,40637,41053, 41057,42263,42366| CTL.PL 40630 30205,40606,41060,42266,42541| CTL.PX 40666 40630,40651| CTL.SW 40677 30203,40461,40470,40650,41055,41170,41205,41255,41343,41361,41406,41413,41427,41431,41447,| 42262,42367 CTLLBE 21735 67005| CTLLBL 21732 67005,67005| CTLNRF 67621 67506| CTLTA 40471 40463| CTLTYP 40460 27062 1 IBMAPV IBMAPJ 12/01/64 PAGE 317 | SYMBOL REFERENCE DATA -- PART 1 | 0 CTM942 67602 67546| CTMSYM 67737 67556| CTNDIC 67732 67554 CTNODK 21417 67574,67577| CTNOGO 21422 21763,21771,22024| CTNSK 67653 67524| CTNSYM 67741 67562| CTNTX 67563 67630 CTNTXT 67630 67564| CTPSBF 21624 21632,21742,26405,34642| CTREFF 21544 21552,21736,26400,33425| CTSDIC 67726 67552,67725| CTSEPR 67700 67534 CTTRIK 21750 67013| CTUTI 21500 26102,26107,26275,26277,26301,26311,26313,26326,26336| CTUTO 21500 21514,21747,27772,21770,22007,22011,22013,26115,26117,26121,26153,26266,26271,26377,67020| CTWOHO 21514 21733,27762,34766,35003,67036| CTWOTW 21530 21734,22006,22010,22012,35005,35011,67022 CTYSK 67651 67522| CUROPN 35146 26662,26777,27124,27145,27172,27273,27300,27316,27320,27354,27520,27522,27540,27550,27725,| 30117,30163,30507,30543,30645,30661,30664,30667,30767,31007,31666,31767,32037,32063,32072,| 32761,33034,33040,33046,33147,33152,34225,40610,40611,40617,40622,41736,45004| CURPSO 35147 32764,32775,33005 CURWRD 35150 33477,33502,33503| CUSA 32107 27614,27630| CUSB 32163 27616,27632| CV.105 37244 37241,37251| CV.106 37255 37240,37264 CV.107 37260 37253| CV.10 37237 27346,32314,33166,33751,41414,42247,42424,67146| CV.11 37265 33753,33756| CV.15 37275 37267,37277| CV.16 37300 37266 CV.T 37302 37244,37246| BOOL DAL 000002 70012,70014,70016,70020,70022,70024,70026,70030,70032,70034,70036,70040,70042,70044,70046,| 70050,70052,70054,70056,70060,70062,70064,70066,70070,70072,70074,70076,70100,70102,70104,| 70106,70110,70112,70114,70116,70120,70122,70126,70130,70132,70134,70136,70140,70146,70150,| 70152,70154,70156,70160,70162,70164,70166,70170,70172,70174,70176,70200,70202,70204,70206, 70210,70212,70214,70216,70220,70222,70224,70226,70230,70232,70234,70236,70240,70242,70250,| 70252,70254,70256,70260,70262,70264,70266,70270,70272,70274,70276,70300,70302,70304,70306,| 70312,70314,70316,70320,70324,70326,70330,70332,70334,70336,70340,70342,70344,70346,70350,| 70352,70354,70356,70360,70362,70364,70366,70370,70372,70374,70376,70400,70402,70404,70406,| 70410,70412,70414,70416,70420,70422,70424,70426,70430,70432,70434,70436,70440,70442,70444, 70446,70450,70452,70454,70456,70460,70462,70464,70466,70470,70472,70474,70476,70500,70502,| 70504,70506,70510,70512,70514,70520,70522,70524,70526,70530,70532,70534,70536,70540,70546,| 70550,70554,70556,70560,70562,70564,70566,70570,70572,70574,70576,70600,70602,70604,70606,| 70610,70612,70614,70616,70620,70622,70624,70626,70630,70632,70634,70636,70640,70642,70644,| 70646,70650,70652,70654,70656,70660,70662,70664,70666,70670,70672,70674,70676,70700,70702, 70704,70706,70710,70712,70714,70716,70720,70722,70724,70726,70730,70732,70734,70736,70740,| 70742,70744,70746,70750,70752,70754,70756,70760,70762,70764,70766,70770,70772,70774,70776| DB6BE 37441 40201| DB6DPA 37351 37336,37344| DB6DP 37333 40200 DB6F11 37405 37375| DB6F1 37374 37367| DB6F2 37411 37327| 1 IBMAPV IBMAPJ 12/01/64 PAGE 318 | SYMBOL REFERENCE DATA -- PART 1 0 DB6F3 37417 37410| DB6F4 37425 37423| DB6F5 37427 | DB6F6 37435 37405,37406,37413,37420| DB6FPP 37367 37365,37441 DB6PM 37352 40170,40171| DB6TP 37365 37353,37354,37356,40166,40167,40172,40173,40174,40175,40176,40177,40204| DB6TR 40204 37332| DB77A 37552 37535| DB77B 37540 37531 DB77C 37542 37555| DB77D 37545 37542| DB77E 37553 37533| DB7BE 37525 40220| DB7C1 37515 37503,37507,37510 DB7C2 37522 37501,37502,37550| DB7CBE 37501 37477,37544| DB7DP 37570 40217| DB7IIR 40202 37474| DB7PM 37466 40207,40210 DB7RFT 40221 37516| DB7SB 37456 37445| DB7SSI 40155 37461| DB7TP 37477 37467,37537,37562,37571,40205,40206,40211,40212,40213,40214,40215,40216,40223| DB7TR 40223 37465 DB7TWB 37556 37540,37553| DB7TWC 37561 37564| DB815 40071 40102,40105| DB816 40106 37407,37422,37506,40101| DB817 40103 37416,37424,37514,40073 DB820 40107 37426| DB827 37610 37655| DB828 37622 37630,37632| DB829 37633 37616,37650| DB830 37645 37636 DB831 37654 37610,37627,37652,37653| DB832 37657 37606| DB833 37725 37717| DB834 37720 37725| DB835 37734 37700,37724 DB836 40034 37734,37741,37746,40020,40026,40031| DB837 37742 37601,37677| DB840 37747 37662| DB841 40003 37776| DB842 40021 37777 DB843 40023 40002| DB850 40046 40055| DB871 40161 37666| DB872 40162 37670| DB877 40163 37737 DB878 40164 37740| DB882 40125 40046,40050| DB884 40125 37613,40107| DB888 40165 37444,37530| DB8BW 40141 37761,37764 DB8DP 40137 27670,30731,34032,34123,34235,34241,34331,37412,37415,37417,37432,37603,37747,40000,40021,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 319 | SYMBOL REFERENCE DATA -- PART 1 | 0 40041,40043| DB8FC 37572 37366,37453,37500,37551 DB8PW 40140 37341,37343,37371,37373,37377,37402,37520,37521,37573,37614,37623,37634,37667,37672| DB8RNT 40157 37546| DB8SI 40152 37315,40065| DB8SJ 40153 37317,40066| DB8T1 40142 30730,34036,34061,34063,34122,34232,34234,34330,37421,37435,37600,37607,37622,37624,37625, 37657,40037,40110| DB8T2 40143 37425,37434,40040,40112| DB8T3 40144 37605,40074,40076| DB8TBE 40152 37321,37322| DB8TB 40137 37321 DB900 37752 | DB901 37764 37752| BOOL DBBHA 000020 37660,37661,37773,40060,40156,40160| DBCNA 37331 37351,37364| DBCNB 37457 37451,37547 DBCNC 37463 37476,37567| DBCND 37460 37455| DBCNV 37313 27645,27661,30750,34022| DBCNX 40062 37313,37314,37446,37572| BOOL DBDBL 000004 37454,37552,37565,37716,40030,40042 BOOL DBEHA 000010 37660,40057,40155,40157| BOOL DBLSO 000400 37357,37361,37460,37470,37472| BOOL DBMS1 001000 37360,40117| BOOL DBMS2 002000 37334,37342,40120| BOOL DBMS3 004000 37471,40121 BOOL DBMS4 010000 37561,40122| BOOL DBMS5 020000 37570,40123| BOOL DBMS6 040000 37404,37512,40124| BOOL DBPER 000002 37333,37335,37355,37372,37660,40057| BOOL DBSBP 000100 37762,37770,37775,40203,40222 DBSCC 40154 37324| BOOL DBSEP 000040 37574,37576,37615,37656,37755,40202,40221| BOOL DBSPP 000001 37363,40034| BOOL DBSWL 000200 37457,37475,37563,37566| DBUGSW 33306 27505,33017,33156 BOOL DCB 000002 32303,32475,33752,36534,37035,37214,41410,41610,41627,41754,44717,45233,67142| DCCDE 00002 36547,36550| DDCHN 66740 0,21437,32730,34672,52531| DDECA 27661 27714| DDECC 27702 27675 DDECD 27712 27705| DDICT 21434 67723,67727,67732| DDUPSW 43404 35303,35401,43152,43200,43232,43345,43362| DECA 27645 27650| DECB 27651 31130 DECDBG 27656 | DECER 33342 27646,27662,30751,34027| DECEX 33353 33342,33344| DECRA 33352 33345| DECTYP 27644 27053 DEFINE 21347 67000,67006| DERR 35372 35304,35346| DETTYP 27717 27111| DFTC 73532 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 320 SYMBOL REFERENCE DATA -- PART 1 | 0 DGENA 34227 34222,34231,34244,34245,34247,34254| DGENBB 34240 27657,27707,27710| DGENB 34245 27656| DGENTA 34222 27644,27660,30725,31122,32233 DGENTB 34231 27647,27704,30736,31126| DGENTC 34247 27651,27706| DITCT 43401 43145,43176,43353| D.WD 43127 42466| DKPTL 35023 35016 DKPTM 35022 35021| BOOL DLB 000400 27326,30215,30517,30521,32363,33466,35156,36525,42242,42414,43574,44354,45224| DLCDE 00011 33607,33611,35223,36612| DMOAS 34417 32200,32206,33401,33407,33414,34437,34501| BOOL DNG 000003 70244,70246,70310,70322,70516,70542,70544,70552 DNSRCA 43420 43410,43415| DNSRCE 43406 43361,45116| DNSRCX 43436 43406| BOOL DOK 000001 42330| DPQL 21470 31661,52530,66746 BOOL DRQ 000000 70124,70142,70144| DSTAR 42310 41771| DSTSW 42311 41772,42265| DUMA 37312 37303,37310,42523,44734,44737,45164| DUMMY 37303 36114,42347,42515,45111 DUPCCT 43402 35337,43231,43264,43266| DUPISW 36234 32743,35254,35317,35321,35331,35336| DUP.10 43326 43226| DUP.11 43362 43175| DUP.13 43375 43202,43320 DUP.14 43344 43327,43340| DUP.15 43360 | DUP.16 43324 43230,43277,43316| DUP.17 43372 43217| DUP.1 43155 43164 DUP.2 43170 43163,43211| DUP.31 43201 | DUP.3 43174 | DUP.45 43220 43214| DUP.4 43213 43206,43221 DUP.5 43223 43177| DUP.6 43227 43224| DUP.7 43240 43246,43322| DUP.8 43244 43323| DUP.91 43261 43252 DUP.92 43312 43302| DUP.93 43313 43303| DUP.94 43315 43272,43301| DUP.95 43316 43271| DUP.96 43317 43237 DUP.9 43256 43235,43242,43247,43261,43263| DUP.PS 43403 43154,43330| DUP.WD 43405 43300| DUPLCT 32175 27405,32142| DUPLX 32204 32175,32232 DUPNM 26502 26414,26437,26453,26454,26460,26521,26524,36362| DUPPDL 45737 35313,35314,35316,35323,35327,35332,35412,43326,43333,43346,43351,43352,43354,43355,43356,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 321 | SYMBOL REFERENCE DATA -- PART 1 | 0 45305 DUPPOS 35420 35324,35333,43233,43357| DUPPOT 35427 35435| DUPPOU 35434 35425| DUPPOX 35432 35421,35427| DUPRD 35342 35311,35430 DUPRE 35343 35363,35447,43236| DUPRF 35345 35352| DUPRG 35351 35344,35356,43234| DUPRH 35361 35354| DUPRX 35370 35342 DUPTYP 43145 27047| DVDWT 34415 33456| EGAD 26253 26242| E.WD 43125 42475| EJCTYP 32037 27112 ENAC 21437 30004,30010,26600,26607,26613,30770,31043,31047,32731,40440| ENDA 30035 27731,30535,30604,31750,31761,34523,35071,35410,43155,43160,43212,43363| ENDB 27746 27724,27736| ENDC 30032 27722| ENDD 27722 32762 END.WD 44245 32735,32755,32760,35242| ENDOP5 35233 27142,43377| ENDOP 36252 35236| ENDP6 36255 35230| ENDTYP 27721 27101 ENTXT 33713 33574,33577,33652,33660,33664,33703| ENTXX 33716 33713,33714| EOFERR 27136 30606,35074,43365,45147,67152| EOTMS 35014 34766| BOOL EQB 000200 27326,30215,30327,30464,30517,30521,32363,33534,34026,35156,36526,41164,41165,41404,42242, 42414,43574,44354,45225,67126,67704| EQCDE 00010 30341,33605,33607,36552,36555| EQUTYP 30146 27032| EQUTYQ 30155 27524| ERACS 25737 25630,25723 ERBSK 25743 25673| ERCT 25726 25637,25656,25675,25701| ERCX 25733 25726| ERIND 25740 25626,25714| ERM1 26215 26202 ERM2 26221 26210,26211,26212| ERM3 26231 26213,26214| ERPAA 25635 25704| ERPA 25651 25645| ERPB 25656 25644 ERPC 25677 25653,25702| ERPD 25700 25642,25655,25674,25703,25731| ERPE 25703 25676| ERPQS 25741 25632,25721| ERPR 25623 30017,25576,26465,26511,26617,26676,26714,27004,27133,27140,27264,27342,27351,27357,27376, 27412,27742,30042,30052,30122,30127,30132,30167,30250,30263,30373,30526,30617,30715,31033,| 31056,31113,31141,31153,31200,31211,31224,31230,31321,31337,31360,31463,31634,31710,32010,| 32023,32034,32125,32132,32307,32320,32477,33014,33300,33313,33327,33346,33473,33524,33562,| 33707,33740,33754,33770,34127,34171,34200,34216,34255,34303,34352,34521,34547,34552,35020,| 35233,35372,35503,36353,36415,36462,36501,36646,37261,37271,37735,37742,40010,40032,40053, 1 IBMAPV IBMAPJ 12/01/64 PAGE 322 | SYMBOL REFERENCE DATA -- PART 1 | 0 40473,40535,40601,40707,40747,41042,41420,41434,41545,41656,41672,41711,42225,42252,42272,| 42354,42400,42427,42452,42506,43004,43165,43207,43341,43372,43375,43542,43601,43607,43636,| 43767,44017,44123,44145,44214,44222,44752,44760,44770,45077,45210,45310,45331 ERPX 25711 25623,25624,25625| ERQS 25736 25627,25724| ERTMP 25742 25664,25710| ETCOPN 35151 35101,43205| ETCTYP 30167 27076 EVLAA 34465 34527| EVLAB 34466 34423,34530| EVLAC 34456 34451| EVLA 34457 34433,34514| EVLBB 34505 33406 EVLB 34501 34453| EVLCA 34530 34515| EVLCB 34525 34461,34516,34520| EVLCC 34521 34517| EVLCD 34523 34551 EVLC 34515 34460| EVLDA 34454 34554| EVLDB 34452 34440| EVLDC 34455 34445| EVLD 34424 34472,34532 EVLDUN 34555 34421,34471,34525| EVLERA 34547 34441,34446,34462| EVLERB 34552 34442| EVLFLD 34420 30336,30350,31066,31342,32013,43157,43305| EVLOD 34544 34536 EVLOM 34540 34535| EVLOPN 34533 34467| EVLOX 34542 34546| EVLVAL 34556 34456,34513,34533,34534,34537,34541,34545| EVLVLU 34557 34465,34531 EVLX 34477 34420| EVNTYP 30172 27024| F0T12F 27263 27252,27260| F0T12 27250 27216| FALPER 42506 42462,42471,42500 FC.OUB 41127 41142| FC.OUC 41136 41131,41141| FC.OUD 41137 41134| FC.OUT 41117 41022,41103,41665,67247| FC.OUX 41161 41117 FCMTBE 41251 41174,41175,41177| FCMTB 41207 41174| FDUM1 42064 42053,42063,42233,42255| FEQTBE 41376 41346,41347,41351| FEQTB 41364 41346 FGAD 26364 26337| FINDA 33357 33371| FINDB 33365 30071,33320,33323,33324,33357,33372| FINDC 33372 33364| FINDTP 33354 30060,32030,32201,33334,33402,33410,34502 FINDT 33400 33356,33363| FINDX 33376 33354,33370,33374| FINDXT 43121 42340,42342,42343,42437,42441,42446,42602,42613,42716| 1 IBMAPV IBMAPJ 12/01/64 PAGE 323 | SYMBOL REFERENCE DATA -- PART 1 0 F.BIN 41320 41226,41334| F.BLKE 41463 41012| F.BLKK 41464 40730,40774,41445| F.BLKW 41465 41016| F.BLOK 41440 41373,41375 F.CKPT 41307 41222,41224| F.CMA 41462 41201,41353,41650,41701,41714| F.CVBL 41406 41376,41423,41442| F.EQM 41466 41357| F.ERR 41420 41411,41412,41436,41451,41452 F.ETC 41456 41104| F.FIL 41455 41146| F.HYPO 41276 41236,41240,41242,41244| F.HYPT 41273 41234| F.IMG 41476 41100,41105,41126,41136,41147,41150,41152,41153,41517,67105,67110,67116,67120,67123,67244, 67245,67632,67633,67634,67635| F.INUT 41267 41220| F.MBCD 41327 41230| F.MBIN 41332 41232| F.MIN 41423 41367 F.MULA 41401 41426| F.MULB 41410 41450| F.MULC 41404 41422,41437| F.MULT 41376 41365| F.NME 41454 40744,41535 F.NRM 41457 40721| F.NSLB 41427 41371| F.OPCV 41257 41212| F.OTPT 41262 41216| F.OTX 41265 41272,41311,41323,41326,41331 F.QTS 41460 40764,40770,41551,41555| F.RQCV 41251 41210| F.RQX 41253 41261,41275,41314,41317| FLBORG 21500 0,21476,67743,67743| FLBTPE 21544 67743 FLCCT 21446 40713,40715| FLGFD1 34264 33033,33656| FLOAT 27716 27677,27701,40056,40061| FLOC 21451 32127,32223,32224,34650| FM.ABS 47203 47155,47212 FM.AIM 47433 47431| FM.AIN 47213 47211| FM.AMO 47226 47224| FM.AND 47725 47716| FM.AX0 47267 47265 FM.AX1 47252 47242,47266| FM.BOL 47716 47670| FM.CMP 47662 47655| FM.CNJ 47670 47662| FM.COM 47747 47736 FM.CX1 47760 47747| FM.CX2 50067 47760| FM.CXA 50154 50067| FM.CXS 50162 50154| FM.DAB 47451 47433 FM.DIM 47403 47401| 1 IBMAPV IBMAPJ 12/01/64 PAGE 324 | SYMBOL REFERENCE DATA -- PART 1 | 0 FM.DLE 47655 47621| FM.DSN 47621 47553 FM.DX1 47464 47451| FM.DX2 47520 47464| FM.END 50170 50162| FM.FLT 47333 47323| FM.IAB 47211 47203 FM.IDM 47415 47403| FM.IDX 47553 47520| FM.IFX 47355 47225,47333| FM.IGN 47401 47371| FM.INO 47321 47310 FM.INT 47224 47213| FM.MN0 47310 47277| FM.MN1 47323 47321| FM.MOD 47242 47226| FM.MX1 47277 47267 FM.OR 47736 47725| FM.REL 47431 47427| FM.SGL 47427 47415| FM.SGN 47371 47355,47402| FM.TC1 47145 47430,47432 FM.TC3 47155 47145,47322| FM.X0 47265 47252| FMS001 00163 43005| FMS002 00164 42355| FMS003 00165 42430 FMS004 00166 42507| FMS005 00174 42253| FMS006 00175 41673| FMS007 00176 41712| FMS008 00200 31114 FMS009 00201 35021| FMS010 00202 36416| FMS011 00203 41043| FMS012 00204 33525,33563,42226| FMS013 00206 35234 FMS014 00205 27005| FNAM.1 43133 42740| FNAM.2 43134 42752| FNAM.3 43135 42516,42762| FNDTPB 33406 33413,33417 FNDTPC 33407 33404| FNDTPR 33401 34504| FNDTPZ 33414 33412| FNMLA 27172 | FNMLB 27200 FNMLD1 27235 27201| FNMLD2 27240 27205| FNMLD3 27243 27211| FNMLD4 27246 27243| FNMLD 27223 27245 FNMLE 27230 27204,27210| FNMLF 27247 27213,27214,27254,27261| FOR 67460 67375| FOUND 26473 26427,26446,26457| 1 IBMAPV IBMAPJ 12/01/64 PAGE 325 SYMBOL REFERENCE DATA -- PART 1 | 0 FPCBA 34746 34734,34735| FPCBB 34735 34732| FPCBCD 34725 34577,34603| FPCBZ 34743 34737 FPCFZ 34721 34704| FPCGA 34767 34772,35012| FPCGB 34754 27756,34606,34745,35013,35277| FPCGS 35153 34773,34777| FPCGZ 34776 22005,34754 FPCLAG 34560 25707,26702,27160,27225,27272,27315,27537,27547,27621,27635,27744,30116,30311,30442,30542,| 30573,30663,30745,31006,31024,31655,32047,32061,32071,32165,32722,33045,34252,34616,34741,| 34744,35064,35112,35272,40543,40621,42120,42123,42166,42542,42546,42556,42620,42630,42635,| 42644,42650,42655,42662,42667,42674,42677,42704,42723,43170,44306,45143| FPCNA 34607 34572,34622 FPCNB 34605 34611| FPCNC 34610 34750,34757,34770| FPCNML 34604 34574,34600,34612,34733,35001| FPCPA 34622 34620| FPCPB 34620 34624 FPCPC 34623 34633,34643,34715| FPCPD 34627 27754,34621,34707| FPCPG 34713 34706| FPCPH 34716 34713| FPCPI 34704 27365,32776 FPCPSU 34617 34575,34601,34625,34705,34711| FPCPZ 34645 34627| FPCTYP 34574 34573| FPCZ 34613 34560,34567,34626,34730,34736| FRTG1 27467 27517 FTCSPE 67565 67054,67055| FTCSPM 67461 67055| FTCWDE 72627 | FTCWDS 72505 | FULTYP 27267 27071 FVEWD 35452 35436| FY.ENT 41470 40720,40722,40723,40726,40756,40776,41002,41003,41026,41033,41036,41044,41251,41254,41257,| 41262,41265,41267,41273,41307,41312,41315,41320,41327,41332,41402,41415,41416,41430,41440,| 41444,41454,41521| FYL.10 41030 41034,41067 FYL.11 41034 41056| FYL.12 41163 40773| FYL.13 41173 | FYL.14 41175 41200| FYL.15 41201 41266,41301,41305 FYL.16 41335 41166| FYL.17 41353 41453| FYL.1 40705 | FYL.2 40712 40706| FYL.3 40731 FYL.4 40735 40733| FYL.5 40741 40745| FYL.61 41347 41352| FYL.6 40744 40734| FYL.75 40772 41172,41206,41214,41256,41363,41405 FYL.7 40753 40746| FYL.85 41020 40775| 1 IBMAPV IBMAPJ 12/01/64 PAGE 326 | SYMBOL REFERENCE DATA -- PART 1 | 0 FYL.8 40774 FYL.9 41023 41035| FYL.BF 41064 41025,41032| FYL.BX 41071 41064| FYL.PL 41072 40765,40767,40771,41017,41202,41204,41354,41356,41360,41362,41552,41554,41556,41651,41653,| 41702,41704,41715 FYLTYP 40702 27063| FYP.1 41075 41077,41106,41160| FYP.2 41076 41074,41110| FYP.3 41100 41020,41113,41154,41663| FYP.4 41101 41021,41114,41156,41664 FYP.5 41107 41102| FYP.EX 41115 41072| GO 00001 30020,26512,27005,27265,27413,30043,30123,30170,30251,30527,30620,30716,31034,31057,31142,| 31225,31322,31464,31635,32011,33015,33301,33330,33525,33563,33741,34201,34217,34256,34553,| 36354,36416,40474,40602,41043,41657,42253,42355,42430,42453,42507,43210,43543,43602,43637, 43770,44020,44124,44753,44761,44771,45100| GOTAA 30226 30236| GOTA 30237 30247| GOTB 30240 | GOTC 30252 30244 GOTERR 30263 30216,30220| GOTE 30257 30241,30254| GOT.WD 30273 30303| GOTTYP 30211 27050| GOWDTB 30303 30232,30234,30303 GOWLN 00010 30231,30257,30260| GTDCX 36405 36400,36403| GTDICT 36400 30245,32734,32754,35100,43204,43215,43273| GTPRA 21447 31722,35040,35122,35220,35221,35237,35353,35360,35367,37012,37015,37021,37043,37044,43244,| 43412,44343,66764,66765 HASHT 52630 0,26570,26603,36431,36433,66757| HLRA 34121 34105| HLROCT 34102 30734,34021| HLRX 34117 34102,34126,34131| HOLDEX 31516 31477,31503,31511,31514 HOLD 31477 31150,31250,31471,43630,44045,44065| HSCAN 36756 27212,27303,30416,31102,32355,34051,34075,34121| HSCNC 36771 36723| HSHWD 26501 26435| HYFISW 41306 40704,41037,41276,41302 HYSWER 41062 41043,41300| BOOL IBJCOM 021234 67115,67117| IBJCOR 21236 66740| IBJDAT 21237 | IBMAP 21412 0 IBMBA 66767 66773| IBMBB 67035 67026,67030| IBMBC 67054 67041| IBMBD 67057 67042| IBMBEG 66740 21253 IBMBE 67061 67056| IBMBF 67072 67040| IBMBG 67075 67071| IBSLB 21266 | IDMSK 36236 35217,36162 1 IBMAPV IBMAPJ 12/01/64 PAGE 327 | SYMBOL REFERENCE DATA -- PART 1 | 0 IDTBL1 26377 26077,26123,26147,26161,26163,26167| IDTBL2 26374 21764,26072,26075,26114,26260,26274,26314,26317,26331,26333,26343,26345| IDTBLE 26410 26167 IDUPI 35300 35325,43473| IDUPJ 35313 35310| IDUPK 35323 | IDUPL 35326 35322| IDUPM 35335 35330 IDUPN 35340 35334| IFASMB 30502 30303,30305,30356| IFFTYP 30303 26767| IFMORE 30503 30364,30440,30476| IFSA 30373 30323,30330,30404,30425,30435,30446,30454,30457 IFSB 30501 30331,30337,30352| IFSCAN 30320 30310| IFSC 30401 30332,30344| IFSCX 30420 30401,30411| IFSEA 30437 30432 IFSE 30422 30447| IFSF 30445 30370| IFSGB 30351 30324,30334,30343,30415| IFSGC 30356 30400| IFSHA 30465 IFSH 30450 30326,30333| IFSHX 30466 30450| IFSI 30335 30325| IFSKA 30367 30347,30377,30467| IFSKB 30471 30365,30437 IFSK 30366 30500| IFSX 30371 30320| IFTTYP 30305 26766,30304| I.WD 43126 42457| IMACI 35454 35677,36023,36110,36120,43472 IMBGE 36257 35462,35552,36167,36171,36174,36250| IMBWD 36250 35555,35556| IMC.10 35631 35571,45126| IMC.11 35466 35620,36206| IMC.12 35501 36045,36203 IMC.13 35633 35635| IMC.14 35506 35502,36201| IMC.15 35635 35653| IMC.17 35647 35630| IMC.18 35655 35644 IMC.1 35464 35527,35537,35637,36146| IMC.21 35515 35540| IMC.25 36151 35516,35606,35633,35651,36136| IMC.26 36153 35463,35536,35544,36156,36176| IMC.28 36164 36151,36157 IMC.2 35512 35511| IMC.30 36166 35455| IMC.3 35521 | IMC.40 35657 35603| IMC.41 35743 35765 IMC.42 35747 35761| IMC.43 35764 35746,35754| IMC.44 36001 35703| 1 IBMAPV IBMAPJ 12/01/64 PAGE 328 | SYMBOL REFERENCE DATA -- PART 1 0 IMC.45 36024 | IMC.46 36040 36055,36056,36075,36076,36103,36107,43664,43673| IMC.47 36054 36047| IMC.48 36057 36050| IMC.49 36073 36066,36072 IMC.4 35523 35545| IMC.50 36104 | IMC.51 35673 35460| IMC.52 35675 35662| IMC.54 36111 35707 IMC.55 36077 36064| IMC.57 36121 35674| IMC.5 35530 35513| IMC.60 36126 35604| IMC.62 36135 36202 IMC.66 36036 35715| IMC.67 36052 36051| IMC.6 35546 35517,35533,35625,35646| IMC.7 35560 35532| IMC.85 35623 36150 IMC.8 35602 35510| IMC.9 35626 35507| BOOL INBIT 004000 34212| INCA 26203 26176| INCIS 26172 26170,26253,26357,26364 INCNT 26055 26064,26244,26245,26341,26342| INCX 26205 26172,26200| IND.X 34206 27146,27173,27276,34224| INDPAR 45155 31236,45044| INDUM 26607 30006,30012,25604,26604,26606,30072,30774,31001,31045,31051,31652,32076,32211,32212,33777, 34674,36306,40442| INDXA 34213 34207,34221| INDXB 34215 34211,45053| INEOB 26072 27767,22014,22016,26053| INFAB 26015 26004 INFAC 26022 26050| INFADD 26047 26041| INFAD 26037 26016| INFB 26036 25771,26006| INFCC 26064 26252 INFC 26062 26054| INFD 26101 26105| INFE 26106 26100| INFF 26111 26074| INFG 26122 26112,26167 INFH 26147 26135| INFIN 25760 25600,25727,33424,34641,40367,40671,41065,41132,43240| INFJ 26166 26127,26131,26146,26154| INFL 26265 | INFM 26272 26264 INFN 26303 26262,26307| INFOA 25766 25761| INFO 26310 26322| INFOT 25762 25601,31010,35345,40403| INFP 26315 26306 INFQ 26325 26334| 1 IBMAPV IBMAPJ 12/01/64 PAGE 329 | SYMBOL REFERENCE DATA -- PART 1 | 0 INFR 26335 26324,26352| INFS 26343 26336,26365 INFTS 26005 25767| INFX 26065 25772,25773,25774,26256,26257| BOOL ING 000000 70020,70026,70030,70032,70034,70036,70040,70042,70044,70046,70050,70052,70054,70056,70060,| 70062,70064,70066,70070,70072,70074,70076,70100,70102,70104,70106,70110,70112,70114,70116,| 70120,70124,70130,70134,70140,70142,70144,70146,70154,70156,70162,70170,70172,70174,70176, 70200,70202,70204,70206,70210,70212,70214,70230,70236,70242,70244,70246,70252,70254,70260,| 70302,70310,70312,70314,70316,70320,70322,70324,70326,70330,70332,70334,70342,70344,70350,| 70364,70366,70370,70372,70374,70376,70400,70402,70404,70406,70410,70412,70414,70416,70420,| 70422,70424,70426,70450,70452,70454,70456,70460,70462,70464,70466,70470,70472,70474,70476,| 70500,70502,70504,70506,70510,70512,70514,70516,70520,70522,70524,70526,70530,70532,70534, 70536,70540,70542,70544,70550,70552,70554,70556,70560,70562,70564,70566,70570,70572,70574,| 70616,70620,70622,70624,70626,70630,70632,70634,70636,70640,70642,70644,70646,70650,70652,| 70654,70656,70660,70662,70664,70666,70670,70672,70674,70676,70722,70744,70746,70750,70752,| 70754,70756,70760,70762,70764,70766,70770,70772,70774,70776| INHAND 35024 30441,34141,36717,43167,44277 INHANE 35027 26652,26701,27222,27271,30110,30662,31005,31654,31751,32060,32067,32164,33211| INHA 35066 31762,35041,35042| INHB 35071 35035| INHCDI 35134 35123| INHCK 35122 35070 INHCMA 35136 35133| INHC 35057 | INHD 35061 35045| INHIND 35137 35033,35120| INHLN 35135 35126,35132 INHSWE 35140 35024,35027,35076,35244| INHX 35115 35030,35072,35077,35104| INHY 35116 35031| INHZ 35117 31760,35032| INID 26023 25770 ININD 26373 25775,26070| INLMX 21473 26614,32727,66744| INMIS 26207 26175| INPLC 26575 26555| INPLD 26600 36432,36434 INPN 26035 25766| INRDA 26240 26363| INRDB 26246 26254,26356| INRDC 26251 26243,26340,26350| INRDD 26260 26237 INRDI 26241 26235| INRD 26235 26370,26371| INTST 26565 25603,26417,33360,34452,36365| BOOL INTSX 007400 26175| INWD 26367 25760 INWRA 26052 26165| INWRO 26053 27770,22015,26051,67067| INWR 26051 26367| BOOL IOCS 021347 | IOEDIT 21260 35225 BOOL IOK 000100 34210,34213,70012,70014,70016,70022,70024,70122,70126,70132,70136,70150,70152,70160,70164,| 70166,70216,70220,70222,70224,70226,70232,70234,70240,70250,70256,70262,70264,70266,70270,| 70272,70274,70276,70300,70304,70306,70336,70340,70346,70352,70354,70356,70360,70362,70430,| 70432,70434,70436,70440,70442,70444,70446,70546,70576,70600,70602,70604,70606,70610,70612,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 330 SYMBOL REFERENCE DATA -- PART 1 | 0 70614,70700,70702,70704,70706,70710,70712,70714,70716,70720,70724,70726,70730,70732,70734,| 70736,70740,70742| BOOL IOXCOM 000702 | IRA 35213 IRCMP 35264 35207,35277| IRD 35217 35203,35267,35302,35312,35557| IREAD 35175 30605,35073,43201,43317,43364,45146,67151| IRED 35200 35341,35601,43435,43466,43474| IREOG 35271 35205,35216 IRE 35244 27137,35232,35561,35660,36125| IRPSW 44256 43527,44024,44125,44131,44137,44160,44162| IRPTYP 44770 26770| IRX.4 35245 35175,35176,35177,35224| IRX.6 35260 ISUSC 36237 35201,35202,35415,43414| ISUSD 36240 35300,35301,35416,43331,43334,43417| .ACTV 00702 | .BCD5R 00720 | .BCD5X 00721 .BLKSW 00751 | .CHEXI 00134 | .CHPSW 00741 | .CHXAC 00724 | .CHXSP 00750 .CKWAT 00717 | .COMMD 00746 | .COMM 00736 | .CVPRT 00722 | .DECVA 00716 35125,41004 .DECVD 00715 | .ENBSW 00710 | .ETTX 00732 | .FDAMT 00743 | .FDPOS 21250 .IBCDZ 00747 | .IOXSI 00740 | .JKAPU 21245 21254| .JLDAT 21240 | .JLIN 21243 .JTYPE 21242 | .JVER 21244 | .LTPOS 00737 | .MODSW 00135 | .MWR 00706 67050 .NDSEL 00704 27771,67017,67021| .PAUSE 00712 | .PAWS 00711 | .PUNCH 00707 | .RCHX 00727 .RCTX 00726 | .SDCXI 00744 | .STCXI 00745 | .STOPD 00723 | .STOP 00713 .SYMUN 00714 | .TCOX 00730 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 331 | SYMBOL REFERENCE DATA -- PART 1 | 0 .TEFX 00733 .TRAPS 00735 | .TRAPX 00734 | .TRCX 00731 | .TRPSW 00742 | .URRX 00725 JBNAME 21435 67102| JBSSW 73541 67154,67157,67736| JBTBLE 73221 | JBTBLS 73117 | JOBIN 21255 35213,35264,66761 JOBOU 21256 25751| JOBPP 21257 | JOIN 21351 | JREEL 21261 | KAPUT 00005 21450,25735,35021,36647 KAPWD 25735 25716| KEP01 30516 30530| KEP02 30525 | KEPERR 30526 30522| KEPTYP 30507 27102 KLPNCH 21263 67575,67600| KLPRNT 21456 25744| KPOUT 22021 21245,21777,25606,25720,26171,67034| KPUTYP 27133 26743,26744,27075,27131,34576,34602,34716,43444| KSPILL 21774 67066 KSP.1 22037 22001| KSP.2 22046 22002,67033| KV.100 43040 42701| KV.105 43041 42302| KV.110 43043 42706 KV.115 43044 | KV.120 43046 42725| KV.122 43047 42552,43136| KV.125 43050 42712,42730| KV.127 43051 42720 KV.130 43052 42560| KV.140 43056 42562| KV.150 43062 42564| KV.155 43063 42553| KV.15 43011 43140 KV.160 43065 42566,42574| KV.170 43072 42570| KV.180 43076 42572| KV.190 43101 42575| KV.1 43010 42547 KV.200 43102 42577| KV.205 43103 42555| KV.210 43105 42646| KV.220 43107 42676| KV.225 43110 42357 KV.25 43016 42615| KV.2 43014 42622| KV.33 43020 43137| KV.3 43017 42632| KV.45 43023 42303 1 IBMAPV IBMAPJ 12/01/64 PAGE 332 | SYMBOL REFERENCE DATA -- PART 1 | 0 KV.4 43022 42637| KV.55 43025 42304| KV.5 43024 42641 KV.6 43026 42652| KV.7 43031 42657| KV.85 43034 42305| KV.8 43033 42664| KV.95 43036 42554,43142 KV.9 43035 42671| KV.E 43007 42362,42543| LAB.1 41532 41536| LAB.25 41551 41537| LAB.2 41535 41525 LAB.3 41574 41571| LAB.41 41613 41607,41616| LAB.4 41601 | LAB.51 41627 41624,41626,41635| LAB.5 41620 LAB.6 41637 | LAB.7 41660 41655,41720| LAB.CK 41707 41560| LAB.CL 41713 41717| LAB.CM 41716 41713 LAB.FE 41670 41542,41574,41613,41632| LAB.FF 41675 41671,41673| LAB.PF 41677 41600,41617,41636| LAB.PX 41705 41677,41700| LABTYP 41514 27065 LBASZE 02576 0| LBFSZE 00114 0,26055,34635,67010| LBLA 30632 30626| LBLB 30640 30644| LBLCA 30662 30647,30652,30657 LBLC 30646 30614| LBLD 30667 30656| LBL.WD 30701 30655| LBLTYP 30612 27114| LBOTYP 30702 27040 LCHA 36321 | LCHB 36330 36323| LCHD 36345 36325,36331| LCHNE 36320 27777,30007,30013,27453,30103,30710,30775,31002,31046,31054,31653,34000,34163,36311| LCHX 36343 36320 LDRA 30715 30705| LDRLRG 30033 27745,30032| LDRTYP 30704 27026| LETC 36247 36170| LFSIL 37216 37025 LILBUF 23000 0,67007,67012| LILDMP 21265 34637,34763| LINKER 21412 22037,66750| LINK 52030 0,0,0,0,26722,27161,27226,27231,27233,27317,27431,27443,27455,27513,27551,27652,27665,27666,| 27702,27746,30611,30740,30743,30744,30746,31112,31114,31656,31657,31667,31671,31672,31673, 31701,32016,32050,32275,32276,32325,32326,32430,32434,32436,32441,32712,32715,32723,33004,| 33044,33047,33050,33065,33067,33553,33556,34002,34237,34243,34253,34425,34434,40552,40562,| 40575,40623,40625,40642,42141,42361,42544| 1 IBMAPV IBMAPJ 12/01/64 PAGE 333 | SYMBOL REFERENCE DATA -- PART 1 0 LINKSW 26724 26654,26711,26713,26720,42041,42073| LITA 30726 30737| LITB 30736 30732,30752| LITC 30750 30735| LITTYP 30722 27055 L.LAB 41721 41516| LNKMK 35154 26640,26706,26721,27156,27223,27230,27313,27507,27544,27555,27557,27567,27663,27735,31075,| 31110,32020,32045,32415,32427,32720,33024,33064,33445,33446,33552,34250,34424,34436,40557| LNKTYP 35155 | LNKWD 44331 26665 LOCBP 36274 27144| LOCC 21453 30001,31000,31004,32152,32157,36275,36276,36303,36313,36337,36342| LOCHN 36317 33002| LOCTYP 31036 27017| LOG02 30776 31003 LOG03 31004 30776| LOG04 31005 | LOG051 31020 30766,31023| LOG05 31010 31026| LOG06 31025 31015,31016,31022 LOG08 31027 31011| LOG09 31032 30765,40345| LOG10 31033 30761| LOGTYP 30753 27027| BOOL LPB 000020 27331,32377,33071,33101,33112,33534,34026,35156,35744,35745,35757,35760,36531,37211,41757, 42242,42371,42374,43574,44354,45062,45240,67674,67675,67676,67677| LPCDE 00005 33075,33104,33614,36574,36633,42015,44446,45057| LPFLAG 42306 33063,33072,33103,41722,41731,41734,42021,42034,42044,42055,42064,42070,42135,42174,42176,| 42376,42403,42407,42411| LRGA 31056 31041 LRGTYP 31040 27025| LRGTYQ 31051 30714| LSTTYP 30720 27107| L(0) 21704 21544,21550,21560,21564,21574,21600,21610,21614,21624,21630,21640,21644,21654,21660,21670,| 21674,27750,27751,30405,31343,32252,32411,32523,32603,33416,34024,37005,37250,37631,37723, 37745,40100,40316,40731,67112| L(10) 21716 | L(1) 21705 26060,26162,26247,26332,26344,26612,27344,27664,30114,31307,31700,31703,32273,33123,33171,| 33405,33675,33726,34444,35261,35315,35357,35365,35731,36123,36470,37346,37452,37534,37643,| 40115,40324,40635,40714,41144,41337,42365,42603,43265,43360,43516,43662,43753,44074,44344, 45012,45015,45033,45152,67274,67277,67357| L(2) 21706 30112,31676,35211,35570,35705,45125| L(3) 21707 37450,37532| L(4) 21710 34370| L(5) 21711 L(6) 21712 | L(7) 21713 42432| L(8) 21714 | L(9) 21715 | L(UQ) 73533 M94SL2 21436 30172,67602,67606,67611| M94WDE 72505 | M94WDS 72353 | MACBFE 52030 50170| MACBF 46000 45740 MACETC 36241 35454,35500,35530,35624,35645,35661,36147,36172,45117| 1 IBMAPV IBMAPJ 12/01/64 PAGE 334 | SYMBOL REFERENCE DATA -- PART 1 | 0 MACHNE 73525 | MACISW 45172 27136,35231,35407,35560,35657,36706,44777,45007,45017,45031,45032,45034,45121,45136,45205 MACRO 43516 26765| MACSPC 44221 44211| MACSP 44205 43734,44036,44560| MACTRA 36204 35627| MAP2 21750 30015,30031 MAP3 21773 21753,22033| MAP4 22030 | MAPBA 30002 27775| MAPBB 30012 30003| MAPBEG 73221 67233,67242,67250 MAPEND 21756 22027,22035| MAPEXX 21772 21766,66753| MAPIC 27773 27766| MAPORG 21750 0,21750| MAPSYS 72351 MAPSZE 00110 0| MAPWDE 72353 | MAPWDS 70011 | MAXTYP 31061 27033| MCCALL 44773 27001 MCC.1 44776 44775| MCC.21 45031 45026| MCC.22 45042 45036,45041| MCC.23 45052 45043| MCC.24 45054 45050,45051,45067 MCC.2 45027 45021| MCC.31 45057 45055| MCC.3 45055 45073| MCC.41 45071 45076| MCC.45 45077 45071 MCC.4 45070 45064| MCC.55 45103 45056,45114| MCC.5 45074 45060| MCC.6 45113 45110| MCC.7 45115 45103 MCC.DM 45164 36115,45112| MCC.DS 45163 44775| MCCRT 44077 44244| MCCTX 36217 31420,31423,31426,35464,35477,35575,35611,35622,35665,35671,35717,36007,36036,36065,36104,| 36126,36133,36205,36210,36211,36213,36215,36712,43647,43663,43674,43701,43726,45122 MCDA 43743 43746| MCDB 43747 43740,43765,44076,44202| MCDCLL 44262 43520| MCDC 44341 43751,44103,44136,44147| MCDCTR 44257 43517,43752,43754,43764,44006,44073,44075,44102 MCDCUR 44260 43522,43523,43551,43563,43564,43565,43570,43625,43705,43763,43776,44003,44041,44053,44062| MCDDD 43771 43760,43766| MCDD 43752 44226| MCDEE 44037 | LCTR MCDE MCDE 44023 44007| MCDFFF 44021 44010| MCDFF 44007 44022| MCDFN 43731 44166,44433| 1 IBMAPV IBMAPJ 12/01/64 PAGE 335 SYMBOL REFERENCE DATA -- PART 1 | 0 MCDFO 43735 43730| LCTR MCDF | MCDG 44073 44230| MCDH 44175 44232,44236 MCDI 44200 44204| MCD.Q 44277 43550,43617,43733,44303| MCD.R 44314 44301| MCDJ 44173 44234,44240| MCDK 44203 44174 MCDNDM 44263 44013| MCDPR 44274 30237,30375,30376,31120,32753,34257,35414,40475,41666,43220,43546,43615,43731,44066,44711| MCDPX 44316 44274,44275,44276| MCERRN 44222 44246| MCFCH 36207 35471,35475,35613,35616,35670,36043,36056,36063,36073,36076,36102,36132,43665,43672,45134 MCFCX 36216 36207| MCICR 44105 44135,44172| MCIRC 44167 44154| MCIRP 44101 44100,44242| MCIRQ 44121 44110,44141 MCIRSE 44133 44111| MCIRSF 44137 44134| MCIRSG 44142 44122| MCIRSH 44150 44144| MCIRS 44127 44140 MCIRT 44152 44117| MCIRTT 44165 44126,44132| MCNBL1 44454 44431,44457,44473,44505| MCNBL2 44462 44451| MCNBL3 44460 44446 MCNBLK 44446 44175,44367| MCRAA 43542 43535| MCRAB 43545 43541| MCRAC 43546 43534| MCRAD 43557 43553 MCRA 43564 43531| MCRB 43571 43612,43620| MCRC 43612 43577,43606| MCRD 43621 | MCRES 36220 35465,35476,35573,35621,35672,35721,36011,36037,36105,36134,36173,36710,43645,43724,45135 MCRESS 36242 35642,35652| MCRF 43635 43622| MCRG 43640 43624,43627,43631,43643| MCRH 43642 31506,43635,43651,43660,43704,43710| MCRJ 43652 43661 MCRK 43662 43654| MCRL 43666 36053| MCRM 43707 43703| MCRN 43712 43716| MCRP 43715 43707,43714 MCRS 43717 43706,43715| MCRSTB 44273 43773,43777,44001| MCRST 44265 43773| MCRX 43727 43641| MCSPE 44247 30246,43216,43274,43742,43743,43745 MCSPL 44225 43742| MDFK1 44247 44011,44341| 1 IBMAPV IBMAPJ 12/01/64 PAGE 336 | SYMBOL REFERENCE DATA -- PART 1 | 0 MDFK2 44250 44417,44503 MDFK3 44251 44026| MDFK4 44252 44127,44155,44157| MDFK5 44253 31310,44023,44167| MDFK6 44254 44476| MFTC 73534 67647 MINTYP 31063 27034| M.AF1 46176 46170| M.AF2 46220 46176| M.AF3 46252 46220| M.AF4 46263 46252 M.DAS 46110 46103| M.DC2 46300 46263| M.DC3 46311 46300| M.DC4 46332 46311| M.DFAD 46146 46110 M.DFAM 46162 46154| M.DFDH 47001 46774| M.DFDP 46774 46737| M.DFD 46737 46722| M.DFM1 46606 46553 M.DFM2 46644 46606| M.DFM3 46711 46644| M.DFM4 46722 46711| M.DFSB 46154 46146| M.DFSM 46170 46162 M.DLD 46454 46413| M.DLS1 46470 46462| M.DLS2 46477 46470| M.DLS3 46514 46477| M.DLS4 46531 46514 M.DLXY 46413 46364| M.DST 46462 46454| M.DVD1 47006 47001| M.DVD2 47042 47006| M.DVD3 47105 47042 M.DVD4 47117 47105| M.END 47145 47134| M.FMP 46553 46531| M.FND 46364 46353| M.FSCA 47134 47117 M.PCA 46047 46033| M.PCD 46054 46047| M.PCX 46033 | M.SCA 46076 46061| M.SCD 46103 46076 M.SCX 46061 46054| M.SV4 46353 46332| MMS001 00172 | MNSSW 73540 67737,67741| MNSWT 34413 32460 MNTA 31076 31105| MNTBLE 73117 | MNTBLS 72627 | MNTB 31106 31101| MNTC 31114 31074 1 IBMAPV IBMAPJ 12/01/64 PAGE 337 | SYMBOL REFERENCE DATA -- PART 1 | 0 MNTTYP 31065 27122| MODTBL 33204 33121| MOPSA 43772 44004 MPBLSW 21475 43571,43613,67700,67702| MPBWD 22036 22025| MPPDL 52027 45163,45324| MPSSN 21413 22026| BOOL MSB 004000 27326,30215,30407,30517,30521,32363,33534,34026,35156,36522,37362,37473,42242,42414,43574, 44354,45221| MSCDE 00014 36577| MSKAD 21723 26316,26565,26575,27000,27525,30070,30670,31306,31664,32315,33136,33340,34506,36423,37252,| 37255,37760,40551,42360,67625| MSKDC 21724 31171,45260 MSKFF 21730 | MSKHO 21726 27423,33362,36637| MSKLO 21727 35702,37443,37527| MSKPX 26376 25641| MSKSP 21731 21757,26531,35251 MSKTG 21725 25717,34700,36327,37757,44054| MSS001 00001 26466| MSS002 00002 26620| MSS003 00003 36502| MSS004 00004 26512 MSS005 00005 36647| MSS006 00006 36354| MSS007 00007 27413| MSS008 00010 | MSS009 00011 MSS010 00012 35373| MSS011 00017 37736| MSS012 00020 37743| MSS013 00021 40011,40033| MSS014 00022 40117 MSS015 00023 40120| MSS016 00024 40121| MSS017 00025 40122| MSS018 00026 40123| MSS019 00027 40124 MSS020 00040 44020| MSS021 00041 31212| MSS022 00042 43770| MSS023 00043 30020| MSS024 00044 43543 MSS025 00045 43610,44146| MSS026 00046 43637| MSS027 00047 45211| MSS028 00050 | MSS029 00051 45311 MSS030 00052 45332| MSS031 00053 45100| MSS032 00057 31635| MSS033 00060 30264,42273| MSS034 00061 35504 MSS035 00066 31034| MSS036 00067 40602| MSS037 00070 40536,41435| 1 IBMAPV IBMAPJ 12/01/64 PAGE 338 | SYMBOL REFERENCE DATA -- PART 1 0 MSS038 00071 33330| MSS039 00072 40750,41546| MSS040 00073 41421| MSS041 00105 44753| MSS042 00106 44761 MSS043 00107 44771| MSS044 00110 | MSS045 00111 | MSS046 00112 | MSS047 00113 40474 MSS048 00125 42453| MSS049 00126 30527,42401| MSS050 00135 44124| MSS051 00137 43166| MSS052 00140 MSS053 00141 43376| MSS054 00142 43342| MSS055 00150 37262| MSS056 00151 37272| MSS057 00156 44215 MSS058 00171 43373| MSS059 00173 44223| MSS060 00117 30251| MVFA 44353 44404,44443| MVFB 44402 44371,44377,44421,44434,44435,44436,44437,44441,44442 MVFCA 44415 | MVFCB 44424 44406,44411| MVFC 44405 44357| MVFDC 44440 | MVFDD 44435 MVFD 44443 44015,44424| MVFE 44400 44440| MVFLA 44365 44373| MVFLB 44367 44423| MVFL 44361 44201,44365,44372,44374,44430,44445 MVFR 44372 44444| MVFTB 44452 44360,44366,44402| MXPSZ 00360 43336,45307,45357| NAMEDB 33307 27464,27477,30151,33133| NAME 21461 26410,27463,27476,27500,27572,27575,30150,30242,30255,31131,31214,31324,31765,32741,32766, 34155,34167,34175,34202,37010,37027,37033,37173,40500,40705,40717,41520,42345,42350,42741,| 42753,42763,43530,43552,43747,44322| NAMEX 26477 26433,26444,26455,26516,26560,26562,36421,40505,41047| NAMEY 26500 26551,26561| NDMTYP 44770 26774 NDQA 30136 30037,30063,30125,30134| NDQB 30064 | NDQD 30122 30050| NDQERA 30125 30057,30062| NDQERB 30132 30126 NDQE 30145 30115,30120| NDQF 30072 30124,30131,30135| NDQOK 30045 30041| NDQTYP 30036 27061| NDXA 30546 30603 NDXB 30551 30547,30554,30555| 1 IBMAPV IBMAPJ 12/01/64 PAGE 339 | SYMBOL REFERENCE DATA -- PART 1 | 0 NDXC 30574 30564,30571| NDXDD 30576 30572 NDXD 30575 30546,30561,30600,30602| NDXE 30604 30577| NDXF 30611 30545| NDXTYP 30531 27116| NEWLA 32206 32176,32203 NEWLCT 32210 32177| NEWOPA 26672 26661| NEWOP 26676 26674| NFRST 26503 26440,26463| NGCDE 00017 36504,36551,36556,36571,36576,36611,36615,36616,36631,36634,36635,36636 BOOL NMB 000001 32303,36535,37035,37215,41410,41610,41627,41754,44717,45234,67142| NMCDE 00001 36537,36540,36541,36542,36543,36544,36545,36546| NMCHN 56660 0,26441,26443,26570,26603,36431,36433,66755,66756| NMESW 36436 36413,43644,44044,44272| NMLA 27145 32054 NMLB 27152 27155| NMLC 27161 27157| NMLD 27156 27153,30515,32022,32027| NMLOC 34155 27143,27166,27275,27475,27532,27721,30706,30753,31042,31116,34223,41725,42351,42742,42754,| 42764,43147,45023 NMLOP 27143 26725,26726,26727,26730,26731,26733,26734,26742,27165,27166,27166,27266| NMLPA 32775 32767| NMLPC 33006 27460,27512| NMLPD 33050 33027| NMLPE 33016 33011,33022 NMLPF 33024 27531,27534,27565,27571,30157,33023,42512,43002| NMLPG 33041 33030| NMLPH 33047 33031,33036| NMLPI 33037 33032| NMLPSO 32763 27466,27474,27502,30153,30207,31036,31061,31063,31365 NMLPS 33023 27603,33013| NMLSC 35156 26663,27456,32413,40525,41765,42267,67663,67665| NMPRN 67676 67664| NMPTR 37173 37042,44325,45027| NOCTYP 44707 26773 NOCTYQ 44711 44744,44754,44762| NOGO 00002 26677,30264,32024,32126,32500,33755,34172,34304,34353,37262,37272,37736,37743,40011,40033,| 40054,41673,42401,43610,44146,45211| NOMAC 44255 44064,44067,44205,44217,44465,44536,44563,44607| NOMNL 26441 26462,26471,26474,26517,36422,40507,41051 NONAME 34175 27066,27103,27364,30036,30174,30211,30307,30724,31630,32075,44104,44710,44714| NONAX 34204 34177| NONOGO 00003 31154,31212,31340,31361,33710,40536,40750,41421,41435,41546,41712,42226,42273,43005,43166| NONONO 00004 26466,26620,26715,27134,27141,27343,27352,27360,27377,27743,30053,30130,30133,30374,31201,| 31231,31711,32035,32133,32310,32321,33314,33347,33474,33771,34130,34522,34550,35234,35373, 35504,36463,36502,40710,43342,43373,43376,44215,44223,45311,45332| NOPOOL 41312 41246| NOSPIL 22017 22003| NOTEFA 34257 30317| NOTEFF 34255 27270,32053 NTFND 26470 26426,26442| NTLA 26440 26464| NTLBB 26451 26430,36377| NTLBC 26460 36363| 1 IBMAPV IBMAPJ 12/01/64 PAGE 340 SYMBOL REFERENCE DATA -- PART 1 | 0 NTLB 26444 | NTLCA 26425 26416| NTLC 26462 26451,26461,26563| NTLOCC 26433 25605,26412,36356,40502,40550,41046 NTLOC 26411 26430,27404,30056,31641,32141,33135,33317,33476,41277,41730,42001,42517| NTLOK 26410 26514,31772,42352,42356| NTLX 26431 26411,26413,26415,26424,26430| NTRTA 40473 31400,40703,41515| NTRTB 40475 43544,44772 NTRTC 40500 40472| NTRTYP 40464 27064| NULTYP 31116 26700,27003,27010,27100,27301,27361| NUMBBF 00002 0,0,67002| NUMFLS 00013 0 NUMLBF 00022 0,0,67010| NVETYP 30206 30176| NXTETC 35157 34143,35025,35103,36730,44300,44314| OCS.1 44734 44757| OCS.2 44744 44741 OCS.3 44755 44751| OCS.4 44763 44733| OCS.5 44764 44755| OCS.6 44742 44730| OCS.ER 44760 44721,44724,44742 OCSTYP 44713 26772| OCTA 31123 31127| OCTCNV 35160 26643,27163,27472,32336,32451,33750| OCTTYP 31122 27052| OFFWRD 31376 31411,31436 OFLOCT 36246 35617,35623,35636,35641,35647,36145,36152,36161,36163| ONEWD 35453 35440| ONWRD 31375 31407,31433| OPALT 36350 26673,27007,31241,31467,43626| OPDER1 31206 31161 OPDERR 31200 31167,31170| OPDTYP 31131 27043| OPDVF1 31145 31341| OPDVF 31205 31172,31177| OPEN 21357 26034,26120,26300,26312,35010,67035 OPER 21462 31146,31246,35664,35704,35725,35773,36347,37075,37132,37140,37174,41344,41403,41407,41446,| 43557,44042,67025,67101,67231,67254,67263| OPLCA 36360 | OPLCB 36362 36357| OPLCC 36365 36377 OPLCD 36376 36364,36371,36372| OPLOC 36347 26660,36402,36410,43737| OPLOD 36356 36352,36377| OPLOX 36373 36350,36360| OPPTR 37174 31727,37147,45037 OPSIL 37236 37071| OPSTUN 31321 31242| OPSTYF 31267 31262,31271,31302| OPSTYP 31214 27045| OPSTYX 31316 31205,31257,31261,31323 OPVA 31363 31134,31145,31217,31245,31327,32234,32442,32625| OPVB 31364 31144,31151,31331,31353| 1 IBMAPV IBMAPJ 12/01/64 PAGE 341 | SYMBOL REFERENCE DATA -- PART 1 | 0 OPVCA 31355 31330,31335,31350 OPVC 31342 32443| OPVD 31347 32626| OPVFD2 31162 31213| OPVTYP 31324 27044| ORGTYP 31365 27016 ORWRD 30505 30434| OTEOA 26372 26001,26255| OTEOF 26255 26241,26242| OTWD1 26370 25762| OTWD2 26371 25765 OUTNT 21474 26467,26621,32733| LCTR P1C | LCTR P1E | P1NOP 73542 | P1PAB 73235 P1PAC 73236 | P1PAD 73245 | P1PAE 73257 | P1PA 73250 | P1PBA 73276 P1PBB 73303 | P1PB 73264 | P1PCC 73376 | P1PC 73313 | P1PDA 73461 P1PDB 73462 | P1PDC 73466 | P1PD 73416 | P1PDX 73474 | P1PE 73512 P1PRPR 73221 | P1PRZ 73523 | PARCA 44511 43621,44060,44114,44142,44150| PARCB 44515 43526,43555,43561,43605,44115,44151,44520| PARCC 44527 44517 PARCD 44505 44501| PARCE 44534 40741,40752,40755,40766,41167,41173,41203,41335,41345,41355,41532,41550,41553,41565,41576,| 41603,41615,41622,41634,41643,41647,41652,41703,42413,42431,42503,43575,43603,44472,44506,| 44513,44521,44547,44553| PARCF 44535 44530 PARCH 44502 44474| PARCK 44465 44336,44356| PARCL 44506 44502| PARCX 44523 44467,44470,44471,44507,44533| PARNP 44521 44510,44512 PASAA 26662 26675,27012| PASA 26640 26704,27162,27227,27274,27323,27543,27554,27641,27655,27711,30121,30262,30314,30444,30610,| 30666,30747,31031,31121,31660,32051,32064,32073,32167,32241,32742,33055,34262,35417,40477,| 40545,40624,41667,42271,43003,43222,43370,43374,44072,44224,44712,45154| PASX 27757 27755 PATCHC 26622 | PATCHE 45740 46000| PATCH 45740 | PATCHS 22052 | PBIT 34362 31507,34327,67621 1 IBMAPV IBMAPJ 12/01/64 PAGE 342 | SYMBOL REFERENCE DATA -- PART 1 | 0 QUAL PBLINK | PBLINK 21466 27757,25657,25660,25665,25705,26653,32062,33430,35017,35061,35105,42100,43172,43276,43306,| 43367,43371,44310 PCCB 31374 31422,31446| PCCMK 31373 31421,31425| PCCSW 35162 35046| PCCTYP 31367 27115| PCGA 31411 31406 PCGSW 35161 31405,31413,31415| PCGTYP 31377 27121| PCHTYP 27267 27073| BOOL PDB 000010 27331,32377,33467,36532,37034,37035,37212,41754,41760,42242,45231| PDCDE 00004 36572 PDLOC 21467 27737,30040,30064,30100,30104,30106,30107,31665,31702,31704,31713,40652| PDLST 52530 0,21467,27740,30041,31712,31717,40653,40657,52030| PDMAX 31717 31705| PDOPD 52430 30524,32457,32463,33504,33506,33507,33571,33635,33636,33642,33646,33647,33661,33673,33674,| 33677,33732,33734,33735 PDOPR 52430 32461,33451,33546,33547,33566,33612,33626,33630,33655,33705,34370| PDSZE 00100 0,31717| PIFLOC 34723 27416,27440,27444,27454,33003,34001,34720| PIPAA 73230 | PLACB 44606 43717,44040,44557,44616 PLB75 44576 44570| PLB76 44577 44550| PLBA 44552 44555| PLBB 44542 44564| PLBCD 44536 44014,44522 PLBC 44567 44543| PLBX 44565 44540,44573| PLCSGN 34061 34116| PLD60 44575 44546| PLEFT 44665 31732,35542,35550,36774,41122,44031,44647,44651,44655,44746 PLNAA 26504 31642,32210| PLNDA 26527 26523| PLNDB 26540 26522| PLNDC 26546 26537| PLNDE 26553 PLNDF 26554 26520| PLNDZ 26560 26525,26541| PLNME 26506 25602,30160,31774,32032,32770,34160,40712| PLNMG 26515 26505| PLNOA 36421 36411 PLNOB 36435 36426| PLNOP 36407 31147,31247,35241,44043| PLNOX 36412 36407,36417| PLNOZ 36417 36427| PLNRF 21414 26554,33325,33373,33415,40626 PLNX 26556 26504,26506| PLOC 32123 27631,32154| PLREF 33420 21414| PLRFA 33422 33436| PLRFB 33430 33423 PLRFC 33435 33426,33440| PLRFN 33443 33421,33434| PLRFX 33441 33420,33437| 1 IBMAPV IBMAPJ 12/01/64 PAGE 343 | SYMBOL REFERENCE DATA -- PART 1 0 PLSTR 44605 31263,31266,31314,31525,31547,31553,31607,43521,43640,43700,43711,43727,44034,44046,44207,| 44556,44602,44615| PLTHR 44600 44130,44161,44164,44171,44500| PLTWO 44603 44025,44027,44012,44016,44342,44403,44425,44504,44532,44552,44572| PLTWX 44620 44600,44603,44610 PMCA 31420 31371| PMCB 31451 31442,31445| PMCSW 35163 31424,31435,31440,31447,31452,31454,35054| PMCTYP 31417 27117| PONORG 26640 0,26622 POOL 41315 41250| PRCNT 34367 33452,33512,33515,33517,33521,33527,33560,33617,33621,33624,42032| PRG94 73535 | PRGAD 31514 31515,31523,31531,31556| PRGCNT 45174 31542,31565,31571,31602 PRGEX 31555 31625| PRGSCT 31627 31535,31600,31601| PRGSKL 45175 44047,44052,44056| PRGSK 31556 31545| PRGTYP 31456 26775,31473 PRI.0 25751 | PRI.2 25755 21754,25750| PRI.3 25757 25747| PRINT 25744 21776,25577,26177,35127,67027,67044,67160,67235| PRMDR 44574 44545,44561,44562 PRONE 21710 33516,33522,33620| PRSW 21267 | PRVQL 31661 31647,31650| PSBFE 52030 | PSBF 45000 34724 BOOL PSB 002000 27326,30215,30407,30413,30517,30521,32363,33534,34026,35156,36523,42242,42414,43574,44354,| 45222| PSCDE 00013 33611,33614,36557,36575| PSOPLC 34724 30111,30113,30177,31675,31677,33037,33042,34714| PSOWNF 35164 30206,33007,33025,33051 PST.1 44651 44673| PST.2 44652 44702,44703,44704,44705,44706| PST.3 44655 44674,44675,44676,44677,44700| PSTJ1 44701 44646| PSTJ2 44707 44650 PSTNG1 44645 44630| PSTNG 44646 44614,44633| PSTNX 44656 44612,44623,44701| PTCHSZ 00040 | PTWORG 26640 21762 PUNCH 21263 0| PURG01 31626 31534,31536,31541,31552,31612,31615| PURG02 31560 31551,31611| PURG03 31614 | PURG04 31620 31560,31613,31614,31616,31617,31624 PURG05 31611 31573| PURG09 31607 31575,31604| PURGEM 31534 31530| QSBKS 36656 36514,37032,37131| QSCNA 36437 44327 QSCNB 36442 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 344 | SYMBOL REFERENCE DATA -- PART 1 | 0 QSCNC 36471 36674| QSCND 36473 36456,36511,44461 QSCNE 36514 36453,36506,42065,44332,44453,45247| QSCNF 36512 40735,41526,41637,45235| QSCNT 36505 35405,36536,40753,41561,41660,44375,44426| QSCNX 36516 36474,36667,44323| QSLP 36447 36473,36476,44332 QSLQ 36451 35404,36504,44464,45200,45213| BOOL QTB 000100 27326,30215,30517,30521,32377,36527,37207,41573,41757,42061,42066,42241,43574,44330,44354,| 45226| QTCDE 00007 36553,36554,42054,42056,42065,42234,42256,44462| QUAL1 31637 31633 QUALX 31634 41752| QULSYM 73537 | QULTYP 31630 27060| RBOTYP 31720 27041| RCPOOL 21464 30002,30005,30011,30021,30025,31040,31044,31050 RCSIL 45235 45177| RDCTR 26375 26320,26321| RDPOOL 21465 30027,30772,40432,40445| READ 21361 26101,26240,26325,26335| RECMK 26366 26267,26272 REELA 27762 35006| REELC 34766 35007| REMEND 31747 31730,31742| LCTR REMOTE | REMS1 31763 31726,31735,31753 REMS2 31764 31724,31755| REMTYP 31722 27077| RESCN 44322 43750| RESCT 36671 35736,36726,36744,36767,37160,44352| RESDU 36755 32347,32740,33205,34042,34066,34134,34147,35740,36672,36727,36745,36764,36772,36776,37162, 44350| RES.F 44323 | RES.G 44326 44340| RES.H 44331 37171,44326| RES.N 44332 44324 RES.R 45160 44333,44337| RES.T 44333 44324| RLEFT 44673 31734,43721,44653| RMS001 00034 | RMS002 00035 RMS003 00036 | RMS004 00037 33301| RMS010 00074 | RMS011 00075 | RMS012 00076 RMS013 00077 | RMS014 00100 | RMS015 00101 | RMS016 00102 | RMS017 00103 RMS018 00104 | RMS019 00136 32011,33015| RMS025 00127 | RMS030 00153 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 345 SYMBOL REFERENCE DATA -- PART 1 | 0 RMS031 00154 | RMS032 00157 | RMS035 00167 | RNGCT 43400 43146,43161,43174,43347 BOOL RN 000001 | BOOL RPB 000040 27331,32377,33071,33112,33534,34026,35156,35753,36530,37210,42024,42242,42371,42372,43574,| 44354,45204,45206,45245,67674,67675,67676,67677| RPCDE 00006 33203,36573,36614,42020,42033,42047,45246| BOOL RR 000000 RSCAN 45176 35752,45075| RSCB 45212 45207| RSCLP 45236 45202,45230,45241,45243| RSCLQ 45241 45244| RSCRP 45243 45227 RSCX 45214 45176| RSLTN 34363 33450,33667,33676,33725,33727| RSMAX 34364 33670| LCTR BLCTR | QUAL UNQS LCTR // | SCAA 33475 30520,30525,33464,33501,33746| SCAB 33504 33616,33744,33760,33767,33772,34040| SCACA 33462 32470| SCAC 33461 33551,33613,33622,33733,33742 SCAFLD 33444 27154,27202,27206,27732,30335,30345,30536,31065,32012,32042,32426,33016,40530,42037,42067,| 43156,43304| SCAI 33467 67666,67670| SCAT 33510 30340,30346,30523,33462,33540,33541,33600,33765,34015,34030| SCAZ 33601 30514,33444,33557 SCCHK 36702 35734,37061| SCDL 33731 34401| SCETC 36244 35673,36716,36720| SCFCB 36714 36707| SCFCC 36725 36705 SCFCD 36732 36704| SCFCE 36736 36702| SCFCH 36675 36670,36742,36771| SCFCX 36737 36675,36731| SCFND 33560 34370,34400,34402 SCFNE 33571 33575| SCFNF 33576 33573| SCILL 36500 36517,45216| SCLFT 36452 26664,27371,27457,30723,32414,36440,36660,37316,37325,40067,40526,41761,41766,42270,45242| SCLP 33512 34375 SCLTA 33756 33747| SCLTRL 33746 33471| SCMQL 36701 35726,35737,36510,36676,36700,36735,37156,44345,44346| SCOPA 33627 33706| SCOPB 33626 33520 SCOP 33623 33543,34403,34404,34405,34406| SCORS 36455 36443,36467,36471,36472,36513,36515,41336| SCPOS 36645 34315,34371,34372,34373,34374,34377,34407,36454,37026,37074| SCQLU 33743 33737| SCQUL 33734 33610 SCRPB 33540 33532| SCRPD 33542 33536| 1 IBMAPV IBMAPJ 12/01/64 PAGE 346 | SYMBOL REFERENCE DATA -- PART 1 | 0 SCRP 33521 34376 SCSIL 36536 30406,33533,34025,35403,35406,36451,40736,40754,41527,41562,41640,41661,42020,42047,42054,| 42234,42256,44176,44370,44376,44427,45212| SCTBL 36537 33206,34135,35222,36450,37016,37024,37070,37120,44726| SCUNA 33666 33663| SCUNB 33654 33651 SCUNC 33661 33665| SCUND 33674 33712| SCUNE 33707 33672| SCUNK 33635 33567| SCUNN 33641 33644 SCUNP 33645 33641| SCUNQ 33647 33653| SDDICT 21433 67724,67726,67733| SEPBA 36277 36316| SEPBP 36275 27171,27322,27527,27654,27703,30712,32717,42134,42737,42751,42761,43000 SEPBX 36314 36304,36305| SETA 32030 31773,32032| SETB 32014 31777| SETC 31775 32032| SETD 31777 32033 SETE 32034 31766| SETTYP 31765 26771| SINSW 30166 27523,30147,30155,33052,33762| SIR6 33056 30146,33127,33141,33151,33157,33220| QUAL S.S SKEND 73566 73566| SK.15 42313 42002,42003,42006,42257| SK.1 42312 42124| SK.25 42317 42115| SK.28 42321 42107 SK.2 42315 42126| SK.33 42323 41724,42250| SK.36 42325 | SK.3 42322 42130| SK.4 42326 42140 SK.5 42327 42216| SKPEND 32726 21474| SKPENE 32743 32732,32736| SKPENF 32737 32757| SKPENG 32760 32752 SKTBL 73544 67225,73566| SKWD 73543 67222,67651,67653| SKWDS 00022 67224,67225| BOOL SLB 020000 27326,30215,30452,30456,30517,30521,32302,32303,32363,33534,34026,35156,36520,41631,42242,| 42414,43574,44354,45217 SLCDE 00016 30322,36620,40512| SLCTR 35165 32105,40521,40547| SLOC 21452 32151,32155,34660,36321| SM.END 46033 46000| SM.RET 46000 SPCTYP 32037 27113,27721| SPEC71 27715 27712| SPLMT 07777 30776,30777| SPSZ 00006 | SRCES 43472 43434,43450,43452,43460 1 IBMAPV IBMAPJ 12/01/64 PAGE 347 | SYMBOL REFERENCE DATA -- PART 1 | 0 SRCTBE 43516 | SRCTBL 43475 32745,35374,43223,43225,43407,43411,43413,43420,43426,43427,43430,43431,43433,43443,43445,| 43447,43453,43455,43457,43463,43465 SSCAN 36657 27325,30045,30213,30422,30451,30455,30463,30516,30562,30612,31123,31135,31220,31401,31427,| 31456,32110,32301,32362,32374,33070,33100,35743,35756,40515,40737,41163,41341,41530,41563,| 41601,41620,41641,41753,42060,42240,42370,43573,43755,44105,44353,44715,45061,45203,67125,| 67706| SSCERR 42272 41762,41764,41775 SSC.1A 41770 42000,42004| SSC.1B 42000 41774| SSC.1C 42011 41756| SSC.1D 42013 | SSC.1 41753 41751 SSC.21 42023 42017| SSC.22 42024 42033,42046| SSC.23 42037 42022,42224| SSC.24 42053 42014,42051| SSC.25 42067 42057,42077 SSC.26 42050 42251,42254| SSC.2F 42233 42016,42062| SSC.2 42017 | SSC.2X 42223 42045| SSC.2Y 42230 42071 SSC.2Z 42252 42243| SSC.3A 42123 42117| SSC.3 42100 42012,42052,42227,42237| SSC.4 42131 42113| SSC.5 42144 42137,42150,42173,42200,42204,42220,42222 SSC.65 42170 42142,42217| SSC.6 42153 42144,42157,42160| SSC.71 42172 42143,42165,42203| SSC.75 42174 42146| SSC.7A 42204 SSC.7B 42210 42202,42214,42221| SSC.7C 42216 42201| SSC.7D 42221 42205,42206| SSC.7 42171 42151,42164| SSC.8 42255 42175 SSC.CP 42040 42007,42043,42106,42136| SSC.CR 42072 42010,42075,42111,42177,42230,42232| SSC.RP 42026 42023| SSC.RX 42036 42025,42030| BOOL SSCSSV 000725 42312,42315,42322,42326,42327,43010,43014,43017,43022,43024,43026,43031,43033,43035,43040, 43043,43046,43052,43056,43062,43065,43072,43076,43102,43105,43107| SSCTYP 41745 41742| SSPILL 22003 21775| SSSTEM 41722 27103| SSST.1 41736 SSTCK 33544 33627,33634| SSTEM1 41727 41735| SSTRA 21253 21236| SSV.21 42413 42375,42405| SSV.22 42425 42505 SSV.23 42404 42412| SSV.24 42407 42373| SSV.25 42442 42436,42443,42447,42451| 1 IBMAPV IBMAPJ 12/01/64 PAGE 348 | SYMBOL REFERENCE DATA -- PART 1 0 SSV.2E 42400 42410| SSV.2F 42452 42440,42450| SSV.2 42370 42510| SSV.31 42465 42460| SSV.32 42474 42467 SSV.33 42503 42476| SSV.3 42455 42421,42465,42474| SSV.4 42510 42402,42406,42417,42442,42454,42464,42473,42502,43006| SSV.61 42711 42344,42606,42703,42717,42732,42733,42765| SSV.62 42600 42551 SSV.63 42610 42614,42625| SSV.64 42624 42616| SSV.6A 42515 42526,43141| SSV.6B 42527 43143| SSV.6C 42546 42537 SSV.6 42511 | SSV.6S 42727 42721| SSV.7 42733 | SSV.D 43124 42335,42470,42472,42633,42660,42746,42773| SSV.ER 43004 42415 SSV.E 43122 42336,42477,42501,42550,42642,42672,42734,42775| SSV.I 43123 42334,42461,42463,42626,42653,42665,42744,42756,42771| SSV.TT 42356 42346| SSV.XX 43141 42520,42525| SSVNTP 42330 41744 SSVTPX 42334 42331| SSVTYP 42332 41743| STASH 21365 26152| STGPT 36753 26666,36444,36457,36465,36665,36673,36747,37326,37345,37350,41340,44335| STLSZ 00200 0,0,26710,26717,27350,36461 STRTYP 26701 26656,27135,27414,30044,30171,30173,30265,30700,30717,31060,31115,31320,31362,31410,31412,| 31475,31636,31757,32036,34524,44767| BOOL SUBBGN 021412 | SUBORG 25576 0,22052| SUBSP 21262 SUBSYS 21412 0| SUBSZE 01042 0| SV.XRO 43131 42607| SV.XSO 43130 42710| SV.XSS 43132 42617,42623,42722,42726 SWABS 21426 27267,30175,31377,32052,40471,40702,41514,42116,42535,67155,67205,67227,67241,67613,67615| SWAPND 45173 36052,36106,43545,43623,44071| SWBLNK 30267 30253,30260,30274| SWBUFF 21416 34631,34755,67643| SWC94 21424 67165,67603,67605,67610 SWCCT 21431 34774,35210,35212,35274,35275,67063,67147| SWCMNT 37172 26655,35102,37007,37164,43213,43270,43547,43616,43732| SWCPIN 21423 27765,35206,66775,67015,67140,67173,67716| SWCRS 45165 44707,44713,45104| SWCRSS 45166 45003,45013,45107 SWCRST 45167 45016,45105| SWCVFE 35166 26646,26650,27152,27200,27203,27207,27733,30315,30537,32021,32043,32340,33021,33060,33201,| 34112,34132,34151,35036,35742,35767,36505,36512,36733,40531,40537,42076,42223,43162,43173,| 43307,43572,43614,43735,43771,44005,44165,44177,44311,44313,44364,44400,44407,44452| SWDBG 21430 67730,67734 SWDUPI 36233 35305,35307,35420,43153| 1 IBMAPV IBMAPJ 12/01/64 PAGE 349 | SYMBOL REFERENCE DATA -- PART 1 | 0 SWENDI 30272 30302,36022| SWEND 36251 32751,35235 SWERR 21450 22023| SWGOTO 30266 30225,30240,30243,30252,30316,34261,35563,35676,35701| SWGPI 30270 30276,35700| SWGPM 30271 30300,35562| SWIND 37170 34206,37064,37143,43566,45045,45052 SWIRPC 36245 26651,35034,35456,35457,36121| SWIRP 36243 35741,35766,36703| SWISPL 22020 27763,22004| SWLNKG 21454 27773,27774,27776,27723,30704,30707,30713,41755,42325,42333,43044| SWLOFN 26564 27760,26507,26513,27576,27600,30256,34203,37036,37165,42513 SWLOP 37167 36351,36355,36401,37004,37103,43736,44412,44415| SWMACI 36235 31520,32744,35052,35402,35564,35567,35576,35663,35706,36000,36001,36024,36027,44766,44773,| 45120,45124,45127,45132| SWMOD 21425 67170,67645| SWNBV 37171 37006,37126,44173,44410,44414 SWNDO 34366 33514,33545,33565,33576,33625,33631| SWNOEN 43144 42330,42332,42536,42702,42766| SWNTC 45170 31117,35107,35114,44302,44315,45025,45140,45145| SWPSOP 36346 27367,33000,34717,36333,36334,36341| SWPTRM 45171 45054,45066,45070,45074 SWREF 21427 67065,67617,67622,67626| SWRELD 21432 67721| SWSPEC 21415 67641| SWSUNI 21471 27764,21774,35004,35015,35270| SWTBL 34410 33564,33623 SWUND 35167 26657,27002,27011| SWVFS 45161 44363,44401,44405,44416,44432,44447| SYSACC 00122 | SYSCEM 00114 | SYSCK1 00155 SYSCK2 00156 | BOOL SYSCOM 000100 | SYSCOR 00120 | SYSCRD 00144 | SYSCUR 00102 SYSCYD 00124 | SYSDAT 00101 | SYSDMP 00115 | SYSDSB 21246 | SYSEND 77777 SYSFAZ 21235 0| SYSGET 00132 | SYSIDR 00117 67024| SYSIN1 00151 | SYSIN2 00152 SYSIOX 00116 | SYS.3P 42275 42261| SYS.OP 42307 42121| SYS.WD 42276 41727,41733| SYSJOB 00133 SYSKEY 00104 | SYSLB1 00140 | SYSLB2 00141 | SYSLB3 00142 | 1 IBMAPV IBMAPJ 12/01/64 PAGE 350 SYMBOL REFERENCE DATA -- PART 1 | 0 SYSLB4 00143 | SYSLDR 00121 | SYSLOC 21234 66747,66751| SYSORG 02652 SYSOU1 00147 | SYSOU2 00150 | SYSPCH 00146 | SYSPID 00123 | SYSPOS 00106 SYSPP1 00153 | SYSPP2 00154 | SYSPRT 00145 | SYSRET 00103 | SYSRPT 00113 SYSSHD 21264 67176,67202| SYSSLD 00126 | SYSSWS 00105 | SYSTCH 00127 67403| SYSTRA 00100 SYSTWT 00131 | SYSUAV 00111 | SYSUBC 00110 | SYSUCW 00112 67304,67306| SYSUNI 00107 67276,67354,67356 SYSUT1 00020 21514| SYSUT1 00157 | SYSUT2 00160 | SYSUT3 00022 21530| SYSUT3 00161 SYSUT4 00162 | SYSUT4 00023 21500| SYSUT5 00163 | SYSUT6 00164 | SYSUT7 00165 SYSUT8 00166 | SYSUT9 00167 | BOOL SYUNIT 000140 | TAG4 35170 30660,30672| BOOL TAL 000010 70722,70744 TBLEND 77017 0| TBLNTH 04030 0,0,0,0,0,26462,26464,26501,66754,66755,66756,66757| TCDTYP 32052 27072| TEMP 52430 0,32356,32357,32507,32511,32516,32526,32555,32571,32612,32613,32701,32702,34370,34450,34470,| 41014,41015,41465,43646,43650,43723,43725 TERMSW 31476 31460,31472| TIDESW 35171 27717,32055,35256,42101,42532| TITTYP 32055 27110| TMPSZ 00100 0| BOOL TNG 000014 70244,70246,70310,70322,70516,70542,70544,70552 BOOL TN 000004 | BOOL TOK 000004 42330,70012,70014,70016,70020,70022,70024,70026,70034,70036,70040,70042,70044,70046,70050,| 70052,70054,70056,70060,70062,70064,70066,70070,70072,70074,70076,70100,70102,70104,70106,| 70110,70112,70114,70116,70120,70122,70124,70126,70130,70132,70134,70136,70140,70142,70144,| 70146,70150,70152,70154,70156,70160,70162,70164,70166,70170,70172,70174,70176,70200,70202, 70204,70206,70210,70212,70214,70216,70220,70222,70224,70226,70230,70232,70234,70236,70240,| 70242,70250,70252,70256,70260,70262,70264,70266,70270,70272,70274,70276,70300,70304,70306,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 351 | SYMBOL REFERENCE DATA -- PART 1 | 0 70312,70314,70316,70320,70324,70326,70330,70336,70340,70342,70344,70346,70350,70352,70354, 70356,70360,70362,70366,70372,70400,70402,70410,70412,70414,70416,70420,70422,70424,70426,| 70430,70432,70434,70436,70440,70442,70444,70446,70450,70452,70454,70456,70460,70462,70464,| 70466,70470,70472,70474,70476,70500,70502,70504,70506,70510,70512,70514,70520,70522,70524,| 70526,70530,70532,70534,70536,70540,70546,70550,70554,70556,70560,70562,70564,70566,70570,| 70572,70574,70576,70600,70602,70604,70606,70610,70612,70614,70616,70620,70622,70624,70626, 70630,70632,70634,70636,70640,70642,70644,70646,70650,70652,70654,70656,70660,70662,70664,| 70666,70670,70672,70674,70676,70700,70702,70704,70706,70710,70712,70714,70716,70720,70724,| 70726,70730,70732,70734,70736,70740,70742,70746,70750,70752,70754,70756,70760,70762,70764,| 70766,70770,70772,70774,70776| TRMTB 34370 33511 BOOL TRQ 000000 70030,70032,70254,70302,70332,70334,70364,70370,70374,70376,70404,70406| BOOL TR 000000 | TRUFLS 30504 30313,30366,30474,30475,30477| TSTCC 34140 27311,27312,31106,31107,33350,33351,34136,40541,40542| TSTCD 34153 30633,30665,30674 TSTCE 34154 30634,30676| TSTEA 34142 34140| TSTEB 34145 34133| TSTEC 34134 34144| TSTETC 34132 27147,27174,30321,30402,30510,30532,30726,32006,32257,32271,33010,33530,34013,34107,40511, 40732,41523,41750,42050,42235| TSTRS 33721 33654,33666| TTLSW 32065 32057,34725,34747| TTLTYP 32057 27120| TXTGTR 26706 27151,27177,27221,27237,27242,27244,27306,27417,27421,27713,27727,30512,31076,31771,32005, 32041,32425,32505,32665,33001,33006,33132,33145,33222,33715,34226,34233,34236| TXTZ 26721 26710| UNDOP 35173 26672,27006,67712| UNITAS 67264 66777| UNLA 32071 UNLSW 35174 27730,30720,32070,35050| UNLTYP 32066 27106| BOOL UNNG 000077 | UNPTYP 27267 27074| UNQUL 33745 33743 BOOL UNREQ 000017 | UPSRCA 43463 43457| UPSRCB 43465 43454| UPSRCE 43440 32747,35340,35376,35600| UPSRCX 43467 43440,43441 USEEA 34020 34014| USEEB 34037 34017| USEEQL 34013 33606| USEPR 32173 31441,31444,32116,32121| USESA 33764 33775 USESB 33773 33763,34011| USESC 34012 26645,33773,33774,34007| USESTR 33761 33604| USETA 32170 27623,27637,32145,32166| USETB 32135 32113 USETC 32131 32117,32122| USETD 32143 32124,32130| USETE 32141 27615,32134,32137| USETYP 32074 27014,27620,27634| USEZRO 33603 33465 1 IBMAPV IBMAPJ 12/01/64 PAGE 352 | SYMBOL REFERENCE DATA -- PART 1 | 0 UTEOF 26357 26337| VFBOA 32537 32506| VFBOB 32533 32522,32535 VFBOC 32552 32520,32546,32554,32566,32570,32575| VFBOD 32540 32532| VFBOE 32547 32561| VFBOF 32562 32547,32565| VFBOG 32541 32550 VFBOH 32532 32551| VFBOI 32675 32602| VFBOJ 32617 32577,32706| VFBOK 32614 32611| VFBOL 32612 32620 VFBOM 32621 32617| VFBON 32703 32700| VFBOO 32701 32707| VFBOP 32650 32627,32653| VFBOQ 32645 32630,32655,32660,32667,32670 VFBOR 32662 32637,32643,32644,32657,32661| VFBOS 32644 32640| VFBOT 32661 32645| VFBOU 32632 32672| VFBOV 32572 VFBOX 32673 32472| VFDBHC 32243 32265,32270,32345,32371,32473,32512,32524,32530,32541,32543,32557,32563,32604| VFDBOC 32472 32402| VFDBOL 32244 32333,32344| VFDBTS 32250 32515,32572 VFDFDL 32251 31344,31354,32274,32324,32417,32501,32573,32631| VFDFDN 32246 32335,32401,32404,32432,32437| VFDHO 32242 32262,32264,32342,32421,32423| VFDMGA 32464 32445,32455| VFDMGB 32454 33460 VFDMGC 32245 32450,32467,33457| VFDMGD 32471 32462| VFDNFD 32252 32407| VFDSA 32407 32341| VFDSB 32413 32343,32453 VFDSC 32445 32367,32373| VFDSE 32377 32364,32370| VFDSF 32371 32400| VFDSGN 32247 32334,32361,32454,32622| VFDSG 32362 32354 VFDSH 32401 32372,32412| VFDSI 32365 32376| VFDSJ 32435 32416| VFDSK 32374 32346| VFDSVF 32332 31333,32236 VFDSX 32403 31357,32332,32444| VFDTAL 32256 31332,32235| VFDTA 32301 32272| VFDTB 32330 32304| VFDTC 32315 32331 VFDTE 32273 32261| VFDTX 32277 32256,32327| VFDTYP 32233 27056| 1 IBMAPV IBMAPJ 12/01/64 PAGE 353 | SYMBOL REFERENCE DATA -- PART 1 0 VFDWRT 32710 32240| VFDWX 32724 32710| WBCD 25610 25610,25611,25612,25613,25614,25615,25616,25617,25620,25621,25622,30640,30641,37304| WHATEX 27132 27123,27130| WHATYP 27123 26765,27013,27020,27031,27036,27042,27046,27051,27057,27067,27075,27105,41741 WMS001 00013 26715,36463| WMS002 00014 34217| WMS003 00015 27377,30053,31231,31464,32133,33314,33474,43602| WMS004 00016 27134| WMS005 00030 31142,31225,32024,41657 WMS006 00031 34522| WMS007 00032 34550| WMS008 00033 32035,34172,40710| WMS009 00054 27141| WMS010 00055 26677,31322 WMS011 00056 33771| WMS012 00062 | WMS013 00063 30130| WMS014 00064 30043,30133| WMS015 00065 30123 WMS016 00114 34304| WMS017 00115 32500,33755,34353| WMS018 00116 30170,43210| WMS019 00120 34130| WMS020 00121 27343 WMS021 00122 27360| WMS022 00123 34256| WMS023 00124 30620| WMS024 00130 31057| WMS025 00131 30716 WMS026 00132 33710| WMS027 00133 32310| WMS028 00134 32126| WMS029 00143 31711| WMS030 00144 32321 WMS031 00145 30374| WMS032 00146 27743| WMS033 00147 27352| WMS034 00152 31340,31361| WMS035 00155 31154,31201 WMS036 00160 34553| WMS037 00161 34201| WMS038 00162 33347| WMS039 00170 33741| WMS040 00177 27265 WRITE 21363 26052,26265,34765| WTEMP 32254 27613,27622,27627,27636,30417,30462,30465,31244,31251,31252,31305,32446,32447,32465,32466,| 33776,34010| XPCCT 45306 35411,35577,35711,36032,43335,45267,45302,45304| XPLA 45272 45355 XPLB 45273 45253,45300,45314,45346| XPLCE 45250 35751,35755,35764,35771,36116,45030,45040,45047,45072,45113| XPLC 45274 45347| XPLD 45300 45275| XPLEE 45303 45265 XPLE 45301 45270,45354| 1 IBMAPV IBMAPJ 12/01/64 PAGE 354 | SYMBOL REFERENCE DATA -- PART 1 | 0 XPLF 45314 45307,45320| XPLFT 45320 45263 XPLG 45321 45301,45340,45344,45353| XPLH 45324 35565,35724,35772,35775,36035,36111,36113,36117,43525,44210,45002,45130,45256,45327| XPLI 45340 45276| XPLJJ 45344 45262| XPLJ 45343 45351 XPLK 45356 45254,45322,45323| XPLN 45352 45341,45345| XPLTST 45330 31315,31554,44035| XPLX 45334 45250,45251,45252,45330| XPNTB 45357 45266,45271 YESNAM 34173 34166| YESNME 34166 27030,27035| 1 IBMAPV IBMAPJ 12/01/64 PAGE 355 | SYMBOL REFERENCE DATA -- FINAL PART | 0 REFERENCES TO DEFINED SYMBOLS.| 0 CLASS SYMBOL VALUE REFERENCES| | 10WD 21721 73430| 16WD 32171 73477 1WD 30137 73337,73354| 4WD 30140 73327,73347| 5WD 30142 73423| 6WD 30143 73472| 70WD 31716 73434 94PT 73536 73520| A71TYP 27051 73227| BOOL ANG 000060 71014,71046,71050,71052,71054,71056,71060,71062,71064,71106,71110,71402,71404,71406,71410,| 71412,71414,71416,71420,71422,71424,71426,71430,71432,71434,71436,71440,71442,71444,71446,| 71450,71452,71454,71456,71460,71462,71464,71466,71470,71472,71474,71476,71500,72231,72334, 72336| BOOL AN 000020 72200,72202,72204,72210| BOOL AOK 000020 71114,71116,71120,71122,71124,71126,71130,71132,71150,71544,71546,72026,72030,72032,72034,| 72036,72040,72042,72044,72046,72050,72052,72054,72056,72060,72062,72064,72066,72070,72072,| 72100,72106,72110,72112,72146,72154,72164,72177,72340,72342,72350,72410,72412,72414,72416, 72420| BOOL ARQ 000000 71000,71002,71004,71006,71010,71012,71016,71020,71022,71024,71026,71030,71032,71034,71036,| 71040,71042,71044,71066,71070,71072,71074,71076,71100,71102,71104,71112,71134,71136,71140,| 71142,71144,71146,71152,71154,71156,71160,71162,71164,71166,71170,71172,71174,71176,71200,| 71202,71204,71206,71210,71212,71214,71216,71220,71222,71224,71226,71230,71232,71234,71236, 71240,71242,71244,71246,71250,71252,71254,71256,71260,71262,71264,71266,71270,71272,71274,| 71276,71300,71302,71304,71306,71310,71312,71314,71316,71320,71322,71324,71326,71330,71332,| 71334,71336,71340,71342,71344,71346,71350,71352,71354,71356,71360,71362,71364,71366,71370,| 71372,71374,71376,71400,71502,71504,71506,71510,71512,71514,71516,71520,71522,71524,71526,| 71530,71532,71534,71536,71540,71542,71550,71552,71554,71556,71560,71562,71564,71566,71570, 71572,71574,71576,71600,71602,71604,71606,71610,72074,72076,72102,72104,72114,72116,72120,| 72122,72124,72126,72130,72132,72134,72136,72140,72142,72144,72150,72152,72156,72160,72162,| 72166,72170,72172,72174,72176,72231,72300,72302,72304,72306,72310,72312,72314,72316,72320,| 72322,72324,72326,72330,72332,72344,72346| BOOL AR 000000 72206,72212,72214,72216,72220,72222,72224,72226,72230 BLCTR 35142 73322| CDXIN 37001 73512| CLEAR 31520 73522| CPBWR 40366 73405| CTL.11 40631 73412 CTL.FC 40670 73411| BOOL DAL 000002 71000,71002,71004,71006,71014,71016,71020,71022,71024,71026,71030,71032,71034,71036,71040,| 71042,71044,71046,71050,71052,71054,71056,71060,71062,71064,71066,71070,71072,71074,71076,| 71100,71102,71104,71106,71110,71112,71114,71116,71120,71122,71124,71126,71130,71132,71134,| 71136,71140,71142,71144,71146,71152,71154,71156,71160,71162,71164,71166,71170,71172,71174, 71176,71200,71202,71204,71206,71210,71212,71214,71216,71220,71222,71224,71226,71230,71232,| 71234,71236,71240,71242,71244,71246,71250,71254,71256,71260,71264,71266,71270,71272,71274,| 71276,71300,71302,71304,71306,71310,71312,71314,71316,71322,71332,71334,71336,71340,71342,| 71344,71346,71354,71360,71362,71364,71366,71370,71372,71374,71376,71400,71402,71404,71406,| 71410,71412,71414,71416,71420,71422,71424,71426,71430,71432,71434,71436,71440,71442,71444, 71446,71450,71452,71454,71456,71460,71462,71464,71466,71470,71472,71474,71476,71500,71502,| 71504,71506,71510,71512,71514,71516,71520,71522,71524,71526,71530,71532,71534,71536,71540,| 71542,71544,71546,71550,71552,71610,72100,72102,72104,72156,72174,72300,72302,72304,72306,| 72310,72312,72314,72316,72320,72322,72324,72326,72330,72332,72334,72336,72340,72342,72344,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 356 SYMBOL REFERENCE DATA -- FINAL PART | 0 72346,72350,72410,72412,72414,72416,72420| DECDBG 27656 73226| DFTC 73532 73277| BOOL DNG 000003 71010,71012,72114,72116,72120,72122,72124,72132,72134,72136,72140,72142,72144,72146,72150, 72152,72154,72160,72162,72164,72170,72172,72231,72231| BOOL DOK 000001 71150,71320,72026,72030,72032,72034,72036,72040,72042,72044,72046,72050,72052,72054,72056,| 72060,72062,72064,72066,72070,72072,72074,72076,72106,72110,72112,72177| DPQL 21470 73367| BOOL DRQ 000000 71252,71262,71324,71326,71330,71350,71352,71356,71554,71556,71560,71562,71564,71566,71570, 71572,71574,71576,71600,71602,71604,71606,72126,72130,72166,72176| ENAC 21437 73317| ERCT 25726 73376| ERPAA 25635 73377| ERPD 25700 73400 FLOC 21451 73331,73332| FM.ABS 47203 72510| FM.AIM 47433 72564| FM.AIN 47213 72512| FM.AMO 47226 72520 FM.AND 47725 72610| FM.AX0 47267 72524| FM.AX1 47252 72526| FM.BOL 47716 72606| FM.CMP 47662 72602 FM.CNJ 47670 72604| FM.COM 47747 72614,72616| FM.CX1 47760 72620| FM.CX2 50067 72622| FM.CXA 50154 72624 FM.CXS 50162 72626| FM.DAB 47451 72566| FM.DIM 47403 72554| FM.DLE 47655 72600| FM.DSN 47621 72576 FM.DX1 47464 72570| FM.DX2 47520 72572| FM.END 50170 73312| FM.FLT 47333 72544| FM.IAB 47211 72516 FM.IDM 47415 72556| FM.IDX 47553 72574| FM.IFX 47355 72546| FM.IGN 47401 72552| FM.INO 47321 72540 FM.INT 47224 72514| FM.MN0 47310 72534| FM.MN1 47323 72542| FM.MOD 47242 72522| FM.MX1 47277 72532 FM.OR 47736 72612| FM.REL 47431 72562| FM.SGL 47427 72560| FM.SGN 47371 72550| FM.TC1 47145 72506 FM.TC3 47155 72536| FM.X0 47265 72530| 1 IBMAPV IBMAPJ 12/01/64 PAGE 357 | SYMBOL REFERENCE DATA -- FINAL PART | 0 FPCLAG 34560 73444,73510 FPCPD 34627 73401| FPCPSU 34617 73403| FTCWDE 72627 73302,73303,73306| FTCWDS 72505 73302| FYL.9 41023 73415 FYL.BF 41064 73414| HASHT 52630 73373,73375| HOLD 31477 73521| BOOL IBJCOM 021234 73120,73122,73124,73126,73130,73132,73134,73136,73140,73142,73144,73146,73150,73152,73154,| 73156,73160,73162,73164,73166,73170,73172,73174,73176 INDUM 26607 73334,73336,73351,73353,73442,73471| BOOL ING 000000 71000,71002,71004,71006,71010,71012,71014,71016,71022,71026,71030,71032,71034,71036,71040,| 71042,71044,71046,71050,71052,71054,71056,71060,71062,71064,71066,71070,71072,71074,71076,| 71100,71102,71104,71106,71110,71150,71160,71162,71164,71252,71262,71320,71324,71326,71330,| 71360,71362,71364,71366,71370,71372,71374,71376,71400,71402,71404,71406,71410,71412,71414, 71416,71420,71422,71424,71426,71430,71432,71434,71436,71440,71442,71444,71446,71450,71452,| 71454,71456,71460,71462,71464,71466,71470,71472,71474,71476,71500,71502,71504,71506,71510,| 71512,71514,71516,71520,71522,71524,71526,71530,71532,71534,71536,71540,71542,71544,71546,| 72074,72076,72100,72102,72104,72106,72110,72112,72114,72116,72120,72122,72124,72146,72154,| 72164,72231,72231,72334,72336,72340,72342,72344,72346,72350 BOOL IOCS 021347 73202,73204,73206,73210,73212,73214,73216,73220| BOOL IOK 000100 71020,71024,71112,71114,71116,71120,71122,71124,71126,71130,71132,71134,71136,71140,71142,| 71144,71146,71152,71154,71156,71166,71170,71172,71174,71176,71200,71202,71204,71206,71210,| 71212,71214,71216,71220,71222,71224,71226,71230,71232,71234,71236,71240,71242,71244,71246,| 71250,71254,71256,71260,71264,71266,71270,71272,71274,71276,71300,71302,71304,71306,71310, 71312,71314,71316,71322,71332,71334,71336,71340,71342,71344,71346,71350,71352,71354,71356,| 71550,71552,71554,71556,71560,71562,71564,71566,71570,71572,71574,71576,71600,71602,71604,| 71606,71610,72026,72030,72032,72034,72036,72040,72042,72044,72046,72050,72052,72054,72056,| 72060,72062,72064,72066,72070,72072,72126,72130,72132,72134,72136,72140,72142,72144,72150,| 72152,72156,72160,72162,72166,72170,72172,72174,72176,72300,72302,72304,72306,72310,72312, 72314,72316,72320,72322,72324,72326,72330,72332,72410,72412,72414,72416,72420| BOOL IOXCOM 000702 73000,73002,73004,73006,73010,73012,73014,73016,73020,73022,73024,73026,73030,73032,73034,| 73036,73040,73042,73044,73046,73050,73052,73054,73056,73060,73062,73064,73066,73070,73072,| 73074,73076,73100,73102,73104,73106,73110,73112| JBSSW 73541 73452 JBTBLE 73221 73454,73457| LCHNE 36320 73443,73502| LINK 52030 73424,73433,73441,73445| L(1) 21705 73243,73320,73440,73506| L(2) 21706 73436,73504 L(UQ) 73533 73356,73362| M94WDE 72505 73263,73264,73267| M94WDS 72353 73263| MACHNE 73525 73256,73273,73310| MAPSYS 72351 73255 MAPWDE 72353 73234,73250,73253,73255| MAPWDS 70011 73234| MFTC 73534 73300,73513| M.AF1 46176 72430| M.AF2 46220 72432 M.AF3 46252 72434| M.AF4 46263 72436| M.DAS 46110 72426| M.DC2 46300 72440| M.DC3 46311 72442 1 IBMAPV IBMAPJ 12/01/64 PAGE 358 | SYMBOL REFERENCE DATA -- FINAL PART | 0 M.DC4 46332 72444| M.DFAD 46146 72364| M.DFAM 46162 72374 M.DFDH 47001 72404| M.DFDP 46774 72402| M.DFD 46737 72474| M.DFM1 46606 72464| M.DFM2 46644 72466 M.DFM3 46711 72470| M.DFM4 46722 72472| M.DFSB 46154 72366| M.DFSM 46170 72376| M.DLD 46454 72372 M.DLS1 46470 72454| M.DLS2 46477 72456| M.DLS3 46514 72460| M.DLS4 46531 72462| M.DLXY 46413 72452 M.DST 46462 72370| M.DVD1 47006 72476| M.DVD2 47042 72500| M.DVD3 47105 72502| M.DVD4 47117 72504 M.END 47145 73275,73535| M.FMP 46553 72400| M.FND 46364 72450| M.FSCA 47134 72406| M.PCA 46047 72354 M.PCD 46054 72356| M.PCX 46033 72422| M.SCA 46076 72360| M.SCD 46103 72362| M.SCX 46061 72424 M.SV4 46353 72446| MNSSW 73540 73416| MNTBLE 73117 73447,73451,73461,73462,73466| MNTBLS 72627 73457,73461| MSKAD 21723 73364 NAME 21461 73323,73342,73421,73463| NDQE 30145 73507,73511| NMCHN 56660 73373,73375| NMESW 36436 73221,73523| NTLOCC 26433 73357 OPER 21462 73251,73265,73304| P1NOP 73542 73231| P1PAB 73235 73245,73257| P1PAC 73236 73242,73244| P1PAD 73245 73240 P1PAE 73257 73247| P1PA 73250 73246| P1PBA 73276 73262| P1PBB 73303 73311| P1PB 73264 73274 P1PCC 73376 73401| P1PC 73313 73301| P1PDA 73461 73453| 1 IBMAPV IBMAPJ 12/01/64 PAGE 359 | SYMBOL REFERENCE DATA -- FINAL PART 0 P1PDB 73462 73456,73460,73470| P1PDC 73466 73455| P1PD 73416 73407| P1PDX 73474 73426| P1PE 73512 73417 P1PRZ 73523 73515| PASA 26640 73524| PATCHC 26622 73566| PATCH 45740 73566| PATCHS 22052 73566 PIPAA 73230 73225| PLACB 44606 73316| PLNME 26506 73324,73343,73422,73464| PLNOP 36407 73252,73266,73305| PLNRF 21414 73233,73361 PLSTR 44605 73313| PRG94 73535 73516| PRVQL 31661 73431,73432| PSOPLC 34724 73435,73437,73503,73505| QULSYM 73537 73420 BOOL RN 000001 72200,72202,72204,72206,72210,72230| BOOL RR 000000 72212,72214,72216,72220,72222,72224,72226| SKPEND 32726 73321| SKTBL 73544 73236| SLCTR 35165 73341 SLOC 21452 73333,73346| SM.END 46033 73260,73517,73536| SM.RET 46000 72352,73272| BOOL SUBBGN 021412 73200| SWABS 21426 73406 SWC94 21424 73261,73514| SWCPIN 21423 73276| SWDBG 21430 73224| SWLOFN 26564 73222| SWLOP 37167 73223 SWREF 21427 73230| BOOL SYSCOM 000100 72630,72632,72634,72636,72640,72642,72644,72646,72650,72652,72654,72656,72660,72662,72664,| 72666,72670,72672,72674,72676,72700,72702,72704,72706,72710,72712,72714,72716| SYSCOR 00120 73446| BOOL SYUNIT 000140 72720,72722,72724,72726,72730,72732,72734,72736,72740,72742,72744,72746,72750,72752,72754, 72756,72760,72762,72764,72766,72770,72772,72774,72776| BOOL TNG 000014 71010,71012,71554,71556,71560,71562,71564,71566,71570,71572,71574,71576,71600,71602,71604,| 71606,71610,72074,72076,72100,72102,72104,72114,72116,72120,72122,72124,72126,72130,72132,| 72134,72136,72140,72142,72144,72146,72150,72152,72154,72156,72160,72162,72164,72166,72170,| 72172,72174,72176,72231,72231 BOOL TN 000004 72200,72202,72204,72206,72210| BOOL TOK 000004 71000,71002,71004,71006,71014,71016,71020,71022,71024,71026,71030,71032,71034,71036,71040,| 71042,71044,71046,71050,71052,71054,71056,71060,71062,71064,71066,71070,71072,71074,71076,| 71100,71102,71104,71106,71110,71112,71114,71116,71120,71122,71124,71126,71130,71132,71134,| 71136,71140,71142,71144,71146,71150,71152,71154,71156,71160,71166,71170,71172,71174,71176, 71200,71202,71204,71206,71210,71212,71214,71216,71220,71222,71224,71226,71230,71232,71234,| 71236,71240,71242,71244,71246,71250,71254,71256,71260,71264,71266,71270,71272,71274,71276,| 71300,71302,71304,71306,71310,71312,71314,71316,71322,71332,71334,71336,71340,71342,71344,| 71346,71350,71352,71354,71356,71360,71362,71364,71366,71370,71372,71374,71376,71400,71402,| 71404,71406,71410,71412,71414,71416,71420,71422,71424,71426,71430,71432,71434,71436,71440, 71442,71444,71446,71450,71452,71454,71456,71460,71462,71464,71466,71470,71472,71474,71476,| 1 IBMAPV IBMAPJ 12/01/64 PAGE 360 | SYMBOL REFERENCE DATA -- FINAL PART | 0 71500,71502,71504,71506,71510,71512,71514,71516,71520,71522,71524,71526,71530,71532,71534,| 71536,71540,71542,71544,71546,71550,71552,72026,72030,72032,72034,72036,72040,72042,72044, 72046,72050,72052,72054,72056,72060,72062,72064,72066,72070,72072,72106,72110,72112,72177,| 72300,72302,72304,72306,72310,72312,72314,72316,72320,72322,72324,72326,72330,72332,72334,| 72336,72410,72412,72414,72416,72420| BOOL TRQ 000000 71162,71164,71252,71262,71320,71324,71326,71330,72340,72342,72344,72346,72350| BOOL TR 000000 72212,72214,72216,72220,72222,72224,72226,72230 BOOL UNNG 000077 72232,72234,72236,72240,72242,72250,72252,72254,72256,72260,72262,72264,72266,72270,72272,| 72274,72276| UNQUL 33745 73360,73363| BOOL UNREQ 000017 72244,72246| XPLTST 45330 73314 1 IBMAPV 12/01/64 PAGE 361 | | 0$IBMAP IBMAPK 8000,ABSMOD,JOBSYM,()OK,LIST 4K000100 1 IBMAPV IBMAPK 12/01/64 PAGE 362 | | 0| PCC ON 4K000500| TITLE 4K000700 LBL MAPK (6)4K000900| PCC OFF 4K001000| | | 1 IBMAPV IBMAPK 12/01/64 PAGE 363 | IBMAP DEFINITIONS PHASE 2 - RECORD IBMAPK | 0| | SIZES FOR PROGRAMS AND BUFFERS 4K009400| 00066 COMSZE EQU 54 COMMUNICATION CELLS SIZE (6)4K009500| 00044 CONSZE EQU 36 INTERPHASE CONSTANT SIZE (6)4K009600| 00110 MAPSZE EQU 72 SUPERVISOR SIZE (6)4K009700| 01042 SUBSZE EQU 546 COMMON SUBROUTINES SIZE (6)4K009800 00013 NUMFLS EQU 11 NUMBER OF FILES (6)4K009900| | 00345 BBFSZE EQU 229 BIG BUFFER SIZE 4K010100| 00114 LBFSZE EQU 76 LITTLE BUFFER SIZE 4K010200| 00002 NUMBBF EQU 2 NUMBER OF BIG BUFFERS 4K010300 00022 NUMLBF EQU 18 NUMBER OF LITTLE BUFFERS (6)4K010400| 00720 BBASZE EQU NUMBBF*BBFSZE+2*NUMBBF+2 BIG BUFFER AREA 4K010500| 02576 LBASZE EQU NUMLBF*LBFSZE+2*NUMLBF+2 LITTLE BUFFER AREA 4K010600| | BASIC TABLE SIZES 4K010800 04030 TBLNTH EQU 2072 HALF DICTIONARY SIZE (6)4K011000| 00100 PDSZE EQU 64 MAX NO NESTED SECTIONS 4K011100| 00200 STLSZ EQU 128 MAX INT TEXT STRING LENGTH 4K011200| 00100 TMPSZ EQU 64 TEMP STORAGE SIZE 4K011300| PROGRAM ORIGINS 4K011500| 21412 IBMAP EQU SUBSYS PROGRAM ORIGIN 4K011600| 21412 COMORG EQU IBMAP COMMUNICATION ORIGIN 4K011700| 21500 FLBORG EQU COMORG+COMSZE FILE BLOCK ORIGIN 4K011800| 21704 CONORG EQU FLBORG+12*NUMFLS INTERPASS CONSTANTS ORIGIN 4K011900 21750 MAPORG EQU CONORG+CONSZE SUPERVISOR ORIGIN 4K012000| 22060 BIGBUF EQU MAPORG+MAPSZE BIG BUFFER ORIGIN 4K012100| 23000 LILBUF EQU BIGBUF+BBASZE LITTLE BUFFER ORIGIN 4K012200| 25576 SUBORG EQU LILBUF+LBASZE COMMON SUBROUTINES (6)4K012300| 26640 PONORG EQU SUBORG+SUBSZE PHASE ONE ORIGIN 4K012500| 26640 PTWORG EQU PONORG PHASE TWO ORIGIN 4K012600| | | BASIC TABLE LOCATIONS 4K012800 77017 TBLEND EQU -497 NOMINAL END OF PROGRAM SPACE (6)4K012900| 66740 DDCHN EQU TBLEND-2*TBLNTH+1 (BSS) INTERNAL DICTIONARY 4K013000| 56660 NMCHN EQU DDCHN-2*TBLNTH (BSS) NAME TABLE 4K013100| 52630 HASHT EQU NMCHN-TBLNTH (BSS) CROSS REFERENCE DICT 4K013200| 52530 PDLST EQU HASHT-PDSZE (BSS) SECTION PUSH DOWN LIST 4K013300 52430 TEMP EQU PDLST-TMPSZ (BSS) ERASABLE 4K013400| 52230 2B EQU TEMP-STLSZ (BSS) SUBSTRING STORAGE 4K013500| 52030 LINK EQU 2B-STLSZ (BSS) TEXT STORAGE 4K013600| | 52030 PSBFE EQU LINK 4K013800 45000 PSBF EQU LINK-TBLNTH-512 PSEUDO-OPERATION DICTIONARY (6)4K013900| 52627 SRTBLE EQU HASHT-1 DEBUG TABLE END $4$4K014100| 1 IBMAPV IBMAPK 12/01/64 PAGE 364 | IBMAP DEFINITIONS PHASE 2 - RECORD IBMAPK | 0 ERROR SEVERITY CODES 4K014300| 00001 GO EQU 1 TRIVIAL 4K014400| 00002 NOGO EQU 2 DEFINITE 4K014500| 00003 NONOGO EQU 3 SERIOUS 4K014600| 00004 NONONO EQU 4 UNRECOVERABLE 4K014700 00005 KAPUT EQU 5 STOP ASSEMBLY 4K014800| | | ERROR MESSAGE CODES 4K015000| 00001 MSS001 EQU 1 4K015100 00002 MSS002 EQU 2 4K015200| 00003 MSS003 EQU 3 4K015300| 00004 MSS004 EQU 4 4K015400| 00005 MSS005 EQU 5 4K015500| 00006 MSS006 EQU 6 4K015600 00007 MSS007 EQU 7 4K015700| 00010 MSS008 EQU 8 4K015800| 00011 MSS009 EQU 9 4K015900| 00012 MSS010 EQU 10 4K016000| 00013 WMS001 EQU 11 4K016100 00014 WMS002 EQU 12 4K016200| 00015 WMS003 EQU 13 4K016300| 00016 WMS004 EQU 14 4K016400| 00017 MSS011 EQU 15 4K016500| 00020 MSS012 EQU 16 4K016600 00021 MSS013 EQU 17 4K016700| 00022 MSS014 EQU 18 4K016800| 00023 MSS015 EQU 19 4K016900| 00024 MSS016 EQU 20 4K017000| 00025 MSS017 EQU 21 4K017100 00026 MSS018 EQU 22 4K017200| 00027 MSS019 EQU 23 4K017300| 00030 WMS005 EQU 24 4K017400| 00031 WMS006 EQU 25 4K017500| 00032 WMS007 EQU 26 4K017600 00033 WMS008 EQU 27 4K017700| 00034 RMS001 EQU 28 4K017800| 00035 RMS002 EQU 29 4K017900| 00036 RMS003 EQU 30 4K018000| 00037 RMS004 EQU 31 4K018100 00040 MSS020 EQU 32 4K018200| 00041 MSS021 EQU 33 4K018300| 00042 MSS022 EQU 34 4K018400| 00043 MSS023 EQU 35 4K018500| 00044 MSS024 EQU 36 4K018600 00045 MSS025 EQU 37 4K018700| 00046 MSS026 EQU 38 4K018800| 00047 MSS027 EQU 39 4K018900| 00050 MSS028 EQU 40 4K019000| 00051 MSS029 EQU 41 4K019100 00052 MSS030 EQU 42 4K019200| 00053 MSS031 EQU 43 4K019300| 00054 WMS009 EQU 44 4K019400| 00055 WMS010 EQU 45 4K019500| 00056 WMS011 EQU 46 4K019600 1 IBMAPV IBMAPK 12/01/64 PAGE 365 | IBMAP DEFINITIONS PHASE 2 - RECORD IBMAPK | 0 00057 MSS032 EQU 47 4K019700| 00060 MSS033 EQU 48 4K019800| 00061 MSS034 EQU 49 4K019900 00062 WMS012 EQU 50 4K020000| 00063 WMS013 EQU 51 4K020100| 00064 WMS014 EQU 52 4K020200| 00065 WMS015 EQU 53 4K020300| 00066 MSS035 EQU 54 4K020400 00067 MSS036 EQU 55 4K020500| 00070 MSS037 EQU 56 4K020600| 00071 MSS038 EQU 57 4K020700| 00072 MSS039 EQU 58 4K020800| 00073 MSS040 EQU 59 4K020900 00074 RMS010 EQU 60 4K021000| 00075 RMS011 EQU 61 4K021100| 00076 RMS012 EQU 62 4K021200| 00077 RMS013 EQU 63 4K021300| 00100 RMS014 EQU 64 4K021400 00101 RMS015 EQU 65 4K021500| 00102 RMS016 EQU 66 4K021600| 00103 RMS017 EQU 67 4K021700| 00104 RMS018 EQU 68 4K021800| 00105 MSS041 EQU 69 4K021900 00106 MSS042 EQU 70 4K022000| 00107 MSS043 EQU 71 4K022100| 00110 MSS044 EQU 72 4K022200| 00111 MSS045 EQU 73 4K022300| 00112 MSS046 EQU 74 4K022400 00113 MSS047 EQU 75 4K022500| 00114 WMS016 EQU 76 4K022600| 00115 WMS017 EQU 77 4K022700| 00116 WMS018 EQU 78 4K022800| 00117 MSS060 EQU 79 (2)4K022900 00120 WMS019 EQU 80 4K023000| 00121 WMS020 EQU 81 4K023100| 00122 WMS021 EQU 82 4K023200| 00123 WMS022 EQU 83 4K023300| 00124 WMS023 EQU 84 4K023400 00125 MSS048 EQU 85 4K023500| 00126 MSS049 EQU 86 4K023600| 00127 RMS025 EQU 87 4K023700| 00130 WMS024 EQU 88 4K023800| 00131 WMS025 EQU 89 4K023900 00132 WMS026 EQU 90 4K024000| 00133 WMS027 EQU 91 4K024100| 00134 WMS028 EQU 92 4K024200| 00135 MSS050 EQU 93 4K024300| 00136 RMS019 EQU 94 4K024400 00137 MSS051 EQU 95 4K024500| 00140 MSS052 EQU 96 4K024600| 00141 MSS053 EQU 97 4K024700| 00142 MSS054 EQU 98 4K024800| 00143 WMS029 EQU 99 4K024900 00144 WMS030 EQU 100 4K025000| 00145 WMS031 EQU 101 4K025100| 00146 WMS032 EQU 102 4K025200| 1 IBMAPV IBMAPK 12/01/64 PAGE 366 | IBMAP DEFINITIONS PHASE 2 - RECORD IBMAPK 0 00147 WMS033 EQU 103 4K025300| 00150 MSS055 EQU 104 4K025400| 00151 MSS056 EQU 105 4K025500| 00152 WMS034 EQU 106 4K025600| 00153 RMS030 EQU 107 4K025700 00154 RMS031 EQU 108 4K025800| 00155 WMS035 EQU 109 4K025900| 00156 MSS057 EQU 110 4K026000| 00157 RMS032 EQU 111 4K026100| 00160 WMS036 EQU 112 4K026200 00161 WMS037 EQU 113 4K026300| 00162 WMS038 EQU 114 4K026400| 00163 FMS001 EQU 115 4K026500| 00164 FMS002 EQU 116 4K026600| 00165 FMS003 EQU 117 4K026700 00166 FMS004 EQU 118 4K026800| 00167 RMS035 EQU 119 4K026900| 00170 WMS039 EQU 120 4K027000| 00171 MSS058 EQU 121 4K027100| 00172 MMS001 EQU 122 4K027200 00173 MSS059 EQU 123 4K027300| 00174 FMS005 EQU 124 4K027400| 00175 FMS006 EQU 125 4K027500| 00176 FMS007 EQU 126 4K027600| 00177 WMS040 SYN 127 4K027700 00200 FMS008 EQU 128 4K027800| 00201 FMS009 EQU 129 4K027900| 00202 FMS010 EQU 130 4K028000| 00203 FMS011 EQU 131 4K028100| 00204 FMS012 EQU 132 4K028200 00205 FMS014 EQU 133 (6)4K028300| 00206 FMS013 EQU 134 4K028400| 00207 RMS036 EQU 135 $5$4K028410| 1 IBMAPV IBMAPK 12/01/64 PAGE 367 | SYSTEM INITIALIZATION PHASE 2 - RECORD IBMAPK 0| | | 21235 ORG SYSFAZ 4K028800| 0BINARY CARD ID. MAPK0000 21235 312244214742 BCI 1,IBMAPK 4K028900| 1 IBMAPV IBMAPK 12/01/64 PAGE 368 | COMMUNICATION CELLS PHASE 2 - RECORD IBMAPK | 0| | 21412 ORG COMORG 4K029200| | 0BINARY CARD ID. MAPK0001| 21412 000000000000 LINKER LDIR LINKAGE DIRECTOR $5$4K029400 21413 312244214742 | 21414 0774 00 0 00000 PLNRF AXT 0,0 SWITCH FOR PLNAME ROUTINE (6)4K029500| 21415 SWSPEC BSS 1 SPECIAL CHECKOUT SWITCH 4K029900| 21416 SWBUFF BSS 1 PRINT BUFFERS SWITCH 4K030000| 21417 CTNODK BSS 1 NO DECK SWITCH 4K030100 21420 CTLIST BSS 1 NO LIST SWITCH 4K030200| 21421 CTCKMD BSS 1 DUMP CARDS CHECKOUT SWITCH 4K030300| 21422 CTNOGO BSS 1 NO RUN SWITCH 4K030400| 21423 SWCPIN BSS 1 COMPILER INPUT SWITCH 4K030500| 21424 SWC94 BSS 1 7094 MODE SWITCH 4K030600 21425 SWMOD BSS 1 SYSMOD SWITCH $4$4K030700| 21426 SWABS BSS 1 ABSOLUTE ASSEMBLY SWITCH 4K030800| 21427 SWREF BSS 1 DICT REF SWITCH 4K030900| 21430 SWDBG BSS 1 DEBUG DICT SWITCH 4K031000| 21431 SWCCT BSS 1 ESTIMATED CARD COUNT 4K031100 21432 SWRELD BSS 1 DICTIONARY MARKING SWITCH (6)4K031200| 21433 SDDICT BSS 1 SHORT DEBUG SWITCH $4$4K031300| 21434 DDICT BSS 1 DEBUG SWITCH $4$4K031400| 21435 JBNAME BSS 1 JOB NAME 4K031500| 21436 M94SL2 BSS 1 $4$4K031600 21437 ENAC BSS 1 CURRENT INT DICT LOC 4K031700| 21440 CDSEQ BSS 2 CURRENT CARD SEQ NO 4K031800| 21442 CDDIG BSS 1 NUMBERIC COUNT FOR SEQ 4K031900| 21443 BLINK BSS 1 SENTENCE NUMBER 4K032000| 21444 CTLCCT BSS 1 NO. CTCONC ENTRIES 4K032100 21445 CPLB BSS 1 CONSTANT POOL COUNT 4K032200| 21446 FLCCT BSS 1 LATEST FILE NUMBER 4K032300| 21447 GTPRA BSS 1 LOC.CURRENT.CARD,,NO.WORDS 4K032400| 21450 SWERR BSS 1 HIGHEST ALLOWABLE ERROR CODE 4K032500| 21451 FLOC BSS 1 L(BLANK.LCTR),,L(LAST.LCTR) 4K032700| 21452 SLOC BSS 1 L(//.LCTR),,L(CURRENT.LCTR) 4K032800| 21453 LOCC BSS 1 CURRENT SEPARATION COUNT 4K032900| | 21454 SWLNKG BSS 1 LINKAGE DIRECTOR SWITCH 4K033100 21455 BSS 1 AND LOCATION 4K033200| | 21456 KLPRNT BSS 1 KILL PRINT SWITCH 4K033400| 21314 PAGNO EQU SYSLOC+48 IBJCOM POINTER TO PAGE NUMBER (6)4K033410| 21263 KLPNCH EQU S.S$PUNCH KILL PUNCH SWITCH (IN IBJOB) (6)4K033420 | 21457 BGDICT BSS 1 ID LOC FIRST CDICT ENTRY 4K033600| 21460 CMPLX BSS 1 NO.CDICT.ENTRIES,,BITS.SHORT.COMPLEX 4K033700| | 21461 NAME BSS 1 CURRENT LOC FIELD 4K033900 21462 OPER BSS 1 CURRENT OP FIELD 4K034000| 21463 BSS 1 OP FIELD SPILL 4K034100| | 1 IBMAPV IBMAPK 12/01/64 PAGE 369 | COMMUNICATION CELLS PHASE 2 - RECORD IBMAPK 0 21464 RCPOOL BSS 1 CONSTANT POOL LOCATOR 4K034300| 21465 RDPOOL BSS 1 LITERAL POOL CHAIN WORD $5$4K034301| | 21466 PBLINK BSS 1 ERROR MESSAGE SWITCH 4K034500| 21467 PDLOC BSS 1 PUSH DOWN LIST POINTER 4K034700| 21470 DPQL BSS 1 UNIVERSAL QUALIFICATION SECTION 4K034800| | 21471 SWSUNI BSS 1 REEL SWITCH FLAG 4K035000| 21472 3PER BSS 1 4K035100 21473 INLMX BSS 1 INTERNAL DICTIONARY LIMIT TEST (6)4K035110| 21474 OUTNT BSS 1 INTERNAL DICTIONARY ERROR TRANSFER(6)4K035120| 21475 MPBLSW BSS 1 BLANK AS MACRO PARAMETER SEPARATOR(6)4K035130| 1 IBMAPV IBMAPK 12/01/64 PAGE 370 | FILE BLOCKS PHASE 2 - RECORD IBMAPK 0| | | 21500 ORG FLBORG 4K035400| 21500 CTUTO BSS 12 SPILL OUTPUT 4K035600| 21514 CTONEI BSS 12 PASS TWO TEXT INPUT 4K035900| 21530 CTONAL BSS 12 PASS TWO ALTERNATE 4K036100| 21544 CTREFF BSS 12 CROSS REFERENCES (6)4K036110| 21560 CTCONC BSS 12 CONTRL CARDS 4K036200 21574 CTERRF BSS 12 ERROR FILE 4K036300| 21610 CTFILC BSS 12 FILE CARDS 4K036400| 21624 CTPSBF BSS 12 PSEUDO-OPERATIONS 4K036500| 21640 CPOOLF BSS 12 CONSTANT POOL FILE 4K036600| 21654 CTDUPF BSS 12 DUPLICATE CARDS 4K036700 21670 CTDFCF BSS 12 $FILE CARDS 4K036800| 1 IBMAPV IBMAPK 12/01/64 PAGE 371 | ASSEMBLER CONSTANTS PHASE 2 - RECORD IBMAPK | 0| 21704 ORG CONORG 4K037100| | | COMMON CONSTANTS 4K037300| 21704 L(0) BSS 1 (6)4K037400 21705 L(1) BSS 1 (6)4K037500| 21706 L(2) BSS 1 (6)4K037600| 21707 L(3) BSS 1 (6)4K037700| 21710 L(4) BSS 1 (6)4K037800| 21711 L(5) BSS 1 (6)4K037900 21712 L(6) BSS 1 (6)4K038000| 21713 L(7) BSS 1 (6)4K038100| 21714 L(8) BSS 1 (6)4K038200| 21715 L(9) BSS 1 (6)4K038300| 21716 L(10) BSS 1 (6)4K038400 21717 1DECR BSS 1 (6)4K038600| 21720 6DECR BSS 1 (6)4K038700| | ADJECTIVE CODE WORDS 4K038900| 21721 10WD BSS 1 O6/10,30/0 DECIMAL IMMEDIATE CONSTANT (6)4K039000 21722 11WD BSS 1 O6/11,30/0 OCTAL IMMEDIATE CONSTANT (6)4K039100| | COMMON MASKS 4K040000| 21723 MSKAD BSS 1 000000077777 ADDRESS MASK (6)4K040100| 21724 MSKDC BSS 1 077777000000 DECREMENT MASK (6)4K040200 21725 MSKTG BSS 1 000000700000 TAG MASK (6)4K040300| 21726 MSKHO BSS 1 770000000000 HIGH OP CODE MASK (6)4K040400| 21727 MSKLO BSS 1 000000000077 LOW OP CODE MASK (6)4K040500| 21730 MSKFF BSS 1 007700000000 F1 F2 AND FILE COUNT MASK (6)4K040600| 21731 MSKSP BSS 1 007777700000 U-ADDRESS MASK (6)4K040700 | 21732 CTLLBL EQU * BIG BUFFER POOL RESERVE GROUP (6)4K040900| 1 IBMAPV IBMAPK 12/01/64 PAGE 372 | SUBROUTINE COMMUNICATION PHASE 2 - RECORD IBMAPK | 0 | | 25576 ORG SUBORG 4K041300| 25576 ERPR BSS 1 ERROR MESSAGES 4K041400| 25577 PRINT BSS 1 LIST OUTPUT 4K041500 25600 INFIN BSS 1 INTERNAL FILE INPUT 4K041600| 25601 INFOT BSS 1 INTERNAL FILE OUTPUT 4K041700| 25602 PLNME BSS 1 DICT PLACEMENT 4K041900| 25603 INTST BSS 1 TEST DICT ENTRY 4K042100| 25604 INDUM BSS 1 GET NEXT ID LOC 4K042300 25605 NTLOCC BSS 1 NAME TABLE SEARCH 4K042500| 25606 KPOUT BSS 1 $5$4K042510| 25607 77WD BSS 1 DUP NAME BCD LOCATION 4K042600| 25610 WBCD BSS 11 TABLE FOR BCD ADDITION (6)4K042610| 1 IBMAPV IBMAPK 12/01/64 PAGE 373 PASS TWO SUPERVISOR PHASE 2 - RECORD IBMAPK | 0| | 26640 ORG PTWORG 4K042900| 0BINARY CARD ID. MAPK0002| 26640 0634 00 4 26745 SXA PASTEX,4 SAVE RETURN 4K043100| 26641 4100 00 0 26644 TNZ *+3 4K043200| 26642 4625 00 0 21427 STL SWREF IF KAPUT, SET NO CROSS 4K043300| 26643 0020 00 0 26733 TRA PASTOO REFS, GO GET MESSAGES 4K043400 26644 0621 00 0 41241 STA RPACA SET PRINT TEST $4$4K043500| 26645 0500 00 0 21442 CLA CDDIG SET INITIAL CARD $4$4K043600| 26646 0625 00 0 30430 STT LBLSW SEQUENCE PRINT $4$4K043700| 26647 0520 00 0 21420 ZET CTLIST PERMANENT LIST CLOSE $4$4K043800| 26650 4634 00 4 21456 SXD KLPRNT,4 IF 'NO LIST' OPTION $4$4K043900 26651 0441 00 0 21515 LDI CTONEI+1 SET TEXT FILE (6)4K043910| 26652 4057 00 001000 RIL 001000 TO INPUT (6)4K044000| 26653 0604 00 0 21515 STI CTONEI+1 (6)4K044100| 26654 0774 00 4 22503 AXT FC.ERN,4 SET NAME TABLE ERROR TRANSFER (6)4K044200| 26655 0634 00 4 21474 SXA OUTNT,4 FOR CDICT PROCESSING (6)4K044210 26656 0441 00 0 21443 LDI BLINK SET BLINK TO 4K044300| 26657 4055 00 001000 SIL 001000 SHOW FDICT 4K044400| 26660 0604 00 0 21443 STI BLINK PASS 4K044500| 26661 0520 00 0 21445 ZET CPLB ANY LITERALS UNDER LORG $5$4K044510| 26662 0020 00 0 26665 TRA *+3 YES $5$4K044520 26663 0074 00 4 25601 TSX INFOT,4 NO, RELEASE BUFFER BY $5$4K044530| 26664 0 26665 0 21640 PZE CPOOLF,,*+1 DESTRUCTIVE READ $5$4K044540| 26665 0074 00 4 45000 TSX FDICT,4 FILE DICTIONARY 4K044600| 0BINARY CARD ID. MAPK0003| 26666 0441 00 0 21443 LDI BLINK SET BLINK TO 4K044800 26667 4051 00 003000 IIL 003000 SHOW DEFN 4K044900| 26670 0604 00 0 21443 STI BLINK PASS 4K045000| 26671 0074 00 4 35432 TSX W2PA,4 DICTIONARY DEFINITION 4K045100| 26672 0441 00 0 21443 LDI BLINK SET BLINK TO 4K045300| 26673 4055 00 001000 SIL 001000 SHOW CDICT 4K045400 26674 0604 00 0 21443 STI BLINK PASS 4K045500| 26675 0535 00 4 21473 LAC INLMX,4 SET COMPARISON $5$4K045600| 26676 4634 00 4 22477 SXD DCOUNU,4 FOR END OF CORE $4$4K045700| 26677 0074 00 4 34574 TSX FCDKT,4 FIRST CONTROL DICT PROCESSING 4K045800| 26700 0774 00 4 25606 AXT KPOUT,4 RESET NAME TABLE $5$4K045910 26701 0634 00 4 21474 SXA OUTNT,4 OFLOW TO EXIT FOR GOOD $5$4K045915| 26702 4520 00 0 21430 NZT SWDBG ANY DEBUGGING $4$4K046000| 26703 0020 00 0 26706 TRA *+3 NO $4$4K046100| 26704 0500 00 0 26747 CLA LTRMOD YES GATE $4$4K046200| 26705 0601 00 0 36551 STO 3R31 STZ TO TRA SBMOD $4$4K046300 26706 0074 00 4 21347 TSX DEFINE,4 REDEFINE T2 (6)4K046310| 26707 0 00000 0 22060 BIGBUF TEXT INPUT (6)4K046320| 26710 0 00345 0 00002 NUMBBF,,BBFSZE BUFFER AREA (6)4K046330| 26711 0074 00 4 21353 TSX ATTACH,4 (6)4K046340| 26712 0 00000 0 22060 BIGBUF (6)4K046350 26713 0 00002 0 21732 CTLLBL,,2 (6)4K046360| 0BINARY CARD ID. MAPK0004| 26714 0074 00 4 21357 TSX OPEN,4 OPEN SECOND (6)4K046370| 26715 4 00000 0 21514 MZE CTONEI PASS INPUT (6)4K046380| 1 IBMAPV IBMAPK 12/01/64 PAGE 374 PASS TWO SUPERVISOR PHASE 2 - RECORD IBMAPK | 0 26716 0074 00 4 36472 TSX 3R,4 DO SECOND PASS 4K046400| 26717 0074 00 4 21355 TSX CLOSE,4 CLOSE PASS TWO 4K046600| 26720 2 00000 0 21514 PASTA PTW CTONEI INPUT, WITH REWIND 4K046700| 26721 0441 00 0 21443 LDI BLINK RESET BLINK 4K046800 26722 0445 00 0 21731 RIS MSKSP FOR CDICT CODE 4K046900| 26723 4055 00 003000 SIL 3000 4K047000| 26724 0055 00 077777 SIR 77777 4K047100| 26725 0604 00 0 21443 STI BLINK 4K047200| 26726 4520 00 0 21417 NZT CTNODK 4K047300 26727 0600 00 0 21263 STZ KLPNCH 4K047400| 26730 0074 00 4 35026 TSX SCDKT,4 SECOND CONTROL DICT PROCESSING 4K047500| | 26731 0520 00 0 21430 ZET SWDBG $4$4K047700| 26732 0074 00 4 31035 TSX ROACH,4 YES $4$4K047800 26733 0520 00 0 21426 PASTOO ZET SWABS IF ASSEMBLY NOT ABSMOD, (6)4K047900| 26734 0020 00 0 26741 TRA PAST01 $5$4K047920| 26735 4500 00 0 30677 CAL TXEND PRINT AND $4$4K048000| 26736 0602 00 0 30231 SLW F.IMG PUNCH $4$4K048100| 26737 0074 00 4 30122 TSX PR.PU,4 $DKEND $4$4K048200 26740 3 00000 0 30231 PTH F.IMG CARD $4$4K048300| 26741 0600 00 0 21456 PAST01 STZ KLPRNT CLEAR NON-PRINT SWITCH $5$4K048500| 0BINARY CARD ID. MAPK0005| 26742 0074 00 4 31720 TSX FERPR,4 LIST ERROR MESSAGES (6)4K048600| 26743 4520 00 0 21427 NZT SWREF 4K049000 26744 0074 00 4 26750 TSX CROSS,4 SWITCH ON. 4K049100| | 26745 0774 00 4 00000 PASTEX AXT **,4 RETURN TO MAIN 4K049300| 26746 0020 00 4 00001 TRA 1,4 SUPERVISOR 4K049400| 26747 0020 00 0 30701 LTRMOD TRA SBMOD MODIFICATION FOR DEBUGGING $4$4K049500 1 IBMAPV IBMAPK 12/01/64 PAGE 375 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0| 26750 0634 00 4 27457 CROSS SXA CROXX,4 SAVE RETURN 4K049800| REPLACE DUPLICATE CHAINS 4K050000| 26751 0774 00 4 10060 AXT 2*TBLNTH,4 TOTAL COUNT 4K050100| 26752 0441 00 4 66740 CRO.1 LDI NMCHN+2*TBLNTH,4 SKIP TO 4K050200| 26753 4056 00 770000 LNT 770000 NEXT IF NOT 4K050300| 26754 0020 00 0 26772 TRA CRO.3 START OF CHAIN 4K050400 26755 4046 00 0 00000 PIA 4K050500| 26756 0737 00 2 00000 PAC 0,2 START OF CHAIN 4K050600| 26757 0767 00 0 00003 ALS 3 4K050700| 26760 4737 00 1 00000 PDC 0,1 PLACE BCD IN 4K050800| 26761 0560 00 1 00000 LDQ 0,1 MQ, AND IN 4K050900 26762 4600 00 4 66740 STQ NMCHN+2*TBLNTH,4 77 WORD 4K051000| 26763 0441 00 2 00000 CRO.2 LDI 0,2 TEST CURRENT 4K051100| 26764 4056 00 760000 LNT 760000 ITEM FOR 76 TYPE 4K051200| 26765 0020 00 0 26772 TRA CRO.3 4K051300| 26766 4600 00 2 00000 STQ 0,2 IF SO, PLACE 4K051400 26767 4046 00 0 00000 PIA BCD AND 4K051500| 0BINARY CARD ID. MAPK0006| 26770 0737 00 2 00000 PAC 0,2 GO ROUND AGAIN 4K051600| 26771 0020 00 0 26763 TRA CRO.2 4K051700| 26772 2 00001 4 26752 CRO.3 TIX CRO.1,4,1 TEST ALL ITEMS 4K051800 | SPREAD HASH TABLE TO DICT SIZE 4K052000| 26773 4774 00 2 46600 AXC CRHST,2 4K052100| 26774 0774 00 4 04030 AXT TBLNTH,4 4K052200| 26775 0560 00 4 56660 CRO.4 LDQ HASHT+TBLNTH,4 PICK UP CURRENT PAIR 4K052300 26776 0600 00 2 00001 STZ 1,2 STORE 4K052400| 26777 4620 00 2 00001 SLQ 1,2 SECOND HALF 4K052500| 27000 4773 00 0 00022 RQL 18 4K052600| 27001 0600 00 2 00000 STZ 0,2 STORE 4K052700| 27002 4620 00 2 00000 SLQ 0,2 FIRST HALF 4K052800 27003 1 77776 2 27004 TXI *+1,2,-2 4K052900| 27004 2 00001 4 26775 TIX CRO.4,4,1 RETURN FOR ALL. 4K053000| | READ IN REFERENCES 4K053200| 27005 4774 00 2 30070 AXC CRTBL,2 INITIAL STORE 4K053300 27006 0074 00 4 25601 CRO.5 TSX INFOT,4 OBTAIN 4K053400| 27007 0 27070 0 21544 CTREFF,,CRO.8 NEXT BUFFER (6)4K053500| 27010 4734 00 4 00000 PDX 0,4 4K053600| 27011 0621 00 0 27012 STA *+1 4K053700| 27012 0500 00 4 00000 CRO.6 CLA **,4 CURRENT WORD 4K053800 27013 0100 00 0 27006 TZE CRO.5 BACK IF END FLAG IN BUFFER (6)4K053900| 27014 0600 00 2 00000 STZ 0,2 SET 4K054000| 27015 0622 00 2 00000 STD 0,2 NEW ENTRY 4K054100| 0BINARY CARD ID. MAPK0007| 27016 0737 00 1 00000 PAC 0,1 4K054200 27017 0500 00 1 67720 CLA SSBF,1 SAVE POINTER 4K054300| 27020 0621 00 0 27716 STA CHAIN TO LAST ENTRY 4K054400| 27021 0560 60 0 27716 LDQ* CHAIN SAVE LAST ENTRY 4K054500| 27022 0754 00 2 00000 PXA 0,2 4K054600| 27023 0402 00 0 21717 SUB 1DECR NEW ENTRY ADDRESS 4K054700 27024 0621 00 2 00000 STA 0,2 -IN SELF 4K054800| 1 IBMAPV IBMAPK 12/01/64 PAGE 376 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27025 0621 00 1 67720 STA SSBF,1 - IN POINTER 4K054900| 27026 0621 60 0 27716 STA* CHAIN -IN PREVIOUS (SET 4K055000 27027 0625 60 0 27716 STT* CHAIN TO NON-LAST) 4K055100| 27030 0131 00 0 00000 XCA AND IF PREVIOUS NAME, 4K055200| 27031 0520 00 0 27716 ZET CHAIN SET LAST TO POINT 4K055300| 27032 0621 00 2 00000 STA 0,2 TO FIRST 4K055400| 27033 1 77777 2 27034 TXI *+1,2,-1 ADVANCE STORE 4K055500 27034 7 31201 2 27037 TXL *+3,2,-CRTBLE EXIT IF TABLE FULL 4K055600| 27035 2 00001 4 27012 TIX CRO.6,4,1 BACK FOR NEXT ITEM 4K055700| 27036 0020 00 0 27006 TRA CRO.5 OR NEW BUFFER 4K055800| 27037 4625 00 0 21427 STL SWREF RECORD FULL TABLE. 4K055900| 27040 0634 00 4 27453 SXA CRO.37,4 SAVD $4$4K056000 27041 0774 00 4 00000 CRO.7 AXT **,4 RECORD COUNT $4$4K056100| 27042 1 00001 4 27043 TXI *+1,4,1 OF OVERFLOW $4$4K056200| 27043 0634 00 4 27041 SXA CRO.7,4 GROUP $4$4K056300| 0BINARY CARD ID. MAPK0008| 27044 0500 00 0 27704 CLA CROH5A+1 SUBHEAD NOT FINAL $4$4K056400 27045 3 00001 4 27064 TXH CRO.75,4,1 $4$4K056500| | 27046 0441 00 0 21515 LDI CTONEI+1 SET FOR OUTPUT (6)4K056610| 27047 4055 00 001000 SIL 001000 (6)4K056620| 27050 0604 00 0 21515 STI CTONEI+1 (6)4K056630 27051 0074 00 4 21357 TSX OPEN,4 IF FIRST TIME, $4$4K056700| 27052 0 00000 0 21514 CTONEI OPEN OUTPUT (6)4K056800| 27053 0074 00 4 21363 TSX WRITE,4 $4$4K056900| 27054 0 00000 0 21514 CTONEI WRITE OUT (6)4K057000| 27055 4 10060 0 46600 IOCP CRHST,,2*TBLNTH EXPANDED HASH TABLE $4$4K057100 27056 0 10060 0 56660 IOCD NMCHN,,2*TBLNTH AND NAME TABLE $4$4K057200| 27057 0074 00 4 21355 TSX CLOSE,4 $4$4K057300| 27060 2 00000 0 21514 PTW CTONEI CLOSE WITH REWIND (6)4K057400| 27061 0500 00 0 27666 CLA CROH2 $4$4K057500| 27062 0601 00 0 27702 STO CROH5+3 INITIALIZE $4$4K057600 27063 0500 00 0 27667 CLA CROH2+1 SUBHEADING $4$4K057700| | 27064 0601 00 0 27703 CRO.75 STO CROH5A CONVERT OVERFLOW $4$4K057900| 27065 0500 00 0 27041 CLA CRO.7 GROUP NUMBER AND $4$4K058000| 27066 0074 00 4 27507 TSX SC.CON,4 STORE IN $4$4K058100 27067 4600 00 0 27704 STQ CROH5A+1 SUBHEADING $4$4K058200| | ELIMINATE OPERATIONS AND NON-ENTRIES. 4K058400| 27070 0774 00 4 10060 CRO.8 AXT 2*TBLNTH,4 4K058500| 27071 4774 00 2 56660 AXC NMCHN,2 4K058600 0BINARY CARD ID. MAPK0009| 27072 4500 00 4 66740 CRO.85 CAL NMCHN+2*TBLNTH,4 IGNORE ITEM 4K058700| 27073 0100 00 0 27102 TZE CRO.9 IF ZERO 4K058800| 27074 0560 00 4 56660 LDQ CRHST+2*TBLNTH,4 OR IF 4K058900| 27075 0162 00 0 27077 TQP *+2 OPERATION 4K059000 27076 0020 00 0 27102 TRA CRO.9 4K059100| 27077 0602 00 2 00000 SLW 0,2 OTHERWISE, MOVE 4K059200| 27100 4600 00 2 67720 STQ SSBF,2 TO CURRENT FREE POSITION 4K059300| 27101 1 77777 2 27102 TXI *+1,2,-1 4K059400| 27102 2 00001 4 27072 CRO.9 TIX CRO.85,4,1 BACK FOR NEXT 4K059500 1 IBMAPV IBMAPK 12/01/64 PAGE 377 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0| SORT REDUCED DICTIONARY 4K059700| * THIS ROUTINE MODIFIED AND RESTORED BY DEBUGGING $4$4K059800 27103 4634 00 2 27220 SRT.01 SXD CRO.14,2 SET END $4$4K059900| 27104 1 00001 2 27105 TXI *+1,2,1 INITIALIZE 4K060000| 27105 0634 00 2 27763 SXA SRT.LL,2 END TEST AND 4K060100| 27106 0774 00 1 00044 AXT 36,1 COLUMN POSITION 4K060200| 27107 0534 00 4 27732 SRT.1 LXA SRT.UL,4 SET CURRENT 4K060300 27110 0500 00 1 30027 CLA SRT.LL+36,1 TOP AND BOTTOM 4K060400| 27111 0734 00 2 00000 PAX 0,2 OF TABLE 4K060500| 27112 4500 00 0 27733 CAL 4BIT 4K060600| 27113 0771 00 1 00044 ARS 36,1 POSITION STROBE TO 4K060700| 27114 1 77777 2 27115 TXI *+1,2,-1 CURRENT COLUMN 4K060800 | 27115 4634 00 2 27116 SRT.2 SXD *+1,2 4K061000| 27116 7 00000 4 27137 TXL SRT.4,4,** FIND FIRST 4K061100| 27117 0441 00 4 00000 LDI 0,4 ENTRY WITH A 1 4K061200| 0BINARY CARD ID. MAPK0010 27120 1 77777 4 27121 TXI *+1,4,-1 IN CURRENT COLUMN 4K061300| 27121 0046 00 0 27116 TIF SRT.2+1 4K061400| 27122 4634 00 4 27123 SXD *+1,4 4K061500| 27123 3 00000 2 27137 SRT.3 TXH SRT.4,2,** NOW FIND LOWEST 4K061600| 27124 1 00001 2 27125 TXI *+1,2,1 ENTRY WITH A 0 4K061700 27125 0441 00 2 00000 LDI 0,2 IN CURRENT COLUMN 4K061800| 27126 0042 00 0 27123 TIO SRT.3 4K061900| 27127 0560 00 4 77777 LDQ -1,4 INTERCHANGE 4K062000| 27130 0604 00 4 77777 STI -1,4 THESE ENTRIES 4K062100| 27131 4600 00 2 00000 STQ 0,2 AND GO BACK 4K062200 27132 0441 00 2 67720 SRT.34 LDI SSBF,2 TO FIND $4$4K062300| 27133 0560 00 4 67717 LDQ SSBF-1,4 ANOTHER PAIR 4K062400| 27134 0604 00 4 67717 STI SSBF-1,4 4K062500| 27135 4600 00 2 67720 STQ SSBF,2 4K062600| 27136 0020 00 0 27115 SRT.35 TRA SRT.2 $4$4K062700 | COLUMN EXHAUSTED 4K062900| 27137 1 00001 2 27140 SRT.4 TXI *+1,2,1 COMPUTE AND SAVE POSITION 4K063000| 27140 0754 00 2 00000 PXA 0,2 OF BREAK BETWEEN 0 AND 4K063100| 27141 0601 00 1 30030 STO SRT.LL+37,1 1 IN CURRENT COLUMN 4K063200 27142 0340 00 0 27732 CAS SRT.UL TEST NUMBER OF ZEROS IN COLUMN 4K063300| 27143 0020 00 0 27175 TRA SRT.9 - NONE 4K063400| 27144 0020 00 0 27157 TRA SRT.7 - ONE 4K063500| 27145 2 00001 1 27107 SRT.5 TIX SRT.1,1,1 - MORE THAN ONE 4K063600| MULTIPLE NAME BLOCK 4K063800| 0BINARY CARD ID. MAPK0011| 27146 0500 00 0 30027 CLA SRT.LL+36 BUMP UPPER 4K063900| 27147 0402 00 0 21705 SRT.6 SUB L(1) LIMIT DOWN 4K064000| 27150 0621 00 0 27732 STA SRT.UL PAST BLOCK 4K064100 27151 0500 00 0 30026 CLA SRT.LL+35 ENDING WITH ZEROS 4K064200| 27152 0601 00 0 30027 STO SRT.LL+36 4K064300| 27153 0340 00 0 27732 CAS SRT.UL ALSO BUMP DOWN 4K064400| 27154 0621 00 0 27732 STA SRT.UL PAST BLOCK ENDING 4K064500| 27155 0020 00 0 27164 TRA SRT.8 WITH ONES, AND GO 4K064600 27156 0020 00 0 27147 TRA SRT.6 TO TEST END OF SORT 4K064700| 1 IBMAPV IBMAPK 12/01/64 PAGE 378 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 | CURRENT COLUMN HAD SINGLE ZERO 4K064900 27157 0402 00 0 21705 SRT.7 SUB L(1) BUMP UPPER LIMIT 4K065000| 27160 0621 00 0 27732 STA SRT.UL DOWN PAST ZERO 4K065100| 27161 0560 00 1 30027 LDQ SRT.LL+36,1 SET LOWER LIMIT AS PREVIOUS, 4K065200| 27162 4600 00 1 30030 STQ SRT.LL+37,1 AND RETURN FOR NEXT COLUMN 4K065300| 27163 0040 00 0 27145 TLQ SRT.5 UNLESS BLOCK HAD ONLY ONE ENTRY 4K065400 | BLOCK COMPLETED, TEST END SORT 4K065600| 27164 3 00043 1 27177 SRT.8 TXH CRO.12,1,35 END AT COLUMN 1 4K065700| 27165 0560 00 1 30026 LDQ SRT.LL+35,1 RESET TO 4K065800| 27166 4600 00 1 30027 STQ SRT.LL+36,1 PREVIOUS LOWER LIMIT 4K065900 27167 0040 00 0 27171 TLQ *+2 TEST END IF NEW 4K066000| 27170 1 00001 1 27164 TXI SRT.8,1,1 BLOCK EMPTY 4K066100| 27171 0402 00 0 21705 SUB L(1) BUMP UPPER LIMIT 4K066200| 27172 0621 00 0 27732 STA SRT.UL PAST PREVIOUS BLOCK. 4K066300| 27173 0040 00 0 27107 TLQ SRT.1 RETURN FOR NEW COLUMN, 4K066400 0BINARY CARD ID. MAPK0012| 27174 1 00001 1 27164 TXI SRT.8,1,1 UNLESS BLOCK HAD ONE ENTRY 4K066500| | 27175 0500 00 1 30027 SRT.9 CLA SRT.LL+36,1 USE PREVIOUS LOWER LIMIT 4K066700| 27176 0020 00 0 27141 TRA SRT.4+2 IF COLUMN HAD ALL ONES 4K066800 | PRINT HEADING 4K067000| 27177 0074 00 4 27627 CRO.12 TSX CRO.SH,4 SET SUBHEADING 4K067100| 27200 0 00006 0 27677 PZE CROH5,,CROH6-CROH5 4K067200| 27201 0500 00 0 21427 CLA SWREF ARE REFERENCES (6)4K067210 27202 0120 00 0 27205 TPL *+3 BY LINE NUMBER (6)4K067220| 27203 0774 00 4 00011 AXT 9,4 YES, SAY SO (6)4K067230| 27204 4634 00 4 27215 SXD CRO.13,4 IN HEADING (6)4K067240| 27205 0074 00 4 25577 TSX PRINT,4 4K067300| 27206 0020 00 0 27211 TRA *+3 $4$4K067400 27207 0 00000 0 00001 PZE 1 EJECT 4K067500| 27210 1 00000 0 00000 PON 0,0,0 PAGE 4K067600| 27211 0074 00 4 25577 TSX PRINT,4 PRINT 4K067700| 27212 0020 00 0 27217 TRA *+5 $4$4K067800| 27213 0 00000 0 00003 PZE 3 HEADING 4K067900 27214 0 00005 0 27661 PZE CROH1,,5 4K068000| 27215 2 00006 0 27705 CRO.13 PTW CROHED,,6+** (6)4K068100| 27216 0 00001 0 27741 PZE BLANKS,,1 4K068200| | PRINT ALL REFERENCES 4K068400 27217 4774 00 2 56660 AXC NMCHN,2 4K068500| 27220 7 00000 2 27354 CRO.14 TXL CRO.30,2,** EXIT IF LAST 4K068600| 27221 4500 00 2 00000 CAL 0,2 4K068700| 0BINARY CARD ID. MAPK0013| 27222 0602 00 0 21461 SLW NAME SYMBOL TO CELL NAME 4K068800 27223 0500 00 2 67720 CLA SSBF,2 4K068900| 27224 0621 00 0 27716 STA CHAIN SET INITIAL CHAIN 4K069000| 27225 4737 00 4 00000 PDC 0,4 DO NOT PROCESS 4K069100| 27226 7 00000 4 27342 TXL CRO.18,4,0 IF NO INTERNAL REF 4K069200| 27227 0441 00 4 00000 CRO.15 LDI 0,4 4K069300 27230 0774 00 4 27741 AXT BLANKS,4 SET NORMAL TYPE 4K069400| 27231 4056 00 400000 LNT 400000 4K069500| 1 IBMAPV IBMAPK 12/01/64 PAGE 379 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27232 0020 00 0 27246 TRA CRO.51 4K069600 27233 4054 00 200000 LFT 200000 4K069700| 27234 0020 00 0 27302 TRA CRO.17 4K069800| 27235 4056 00 100000 LNT 100000 PROCESS BY ADJ 4K069900| 27236 0020 00 0 27266 TRA CRO.16 CODE IF NOT BOOL 4K070000| 27237 0774 00 4 27730 AXT RBOOLT,4 4K070100 27240 4054 00 000001 LFT 1 OTHERWISE, 4K070200| 27241 0020 00 0 27302 TRA CRO.17 SET FOR 4K070300| 27242 0774 00 4 27726 AXT BOOLT,4 CORRECT TYPE CODE 4K070400| 27243 4054 00 000002 LFT 2 4K070500| 27244 0774 00 4 27727 AXT LBOOLT,4 4K070600 27245 0020 00 0 27302 TRA CRO.17 4K070700| | TEST FOR POSSIBLE 14 TYPE 4K070900| 27246 4054 00 200000 CRO.51 LFT 200000 CONTROL 4K071000| 27247 0020 00 0 27255 TRA CRO.5C SECTION TYPE 4K071100 0BINARY CARD ID. MAPK0014| 27250 4056 00 140000 LNT 140000 4K071200| 27251 0020 00 0 27266 TRA CRO.16 IF 14, SET 4K071300| 27252 0774 00 4 27731 AXT SETTT,4 PRINT CODE AND 4K071400| 27253 4057 00 100000 RIL 100000 USE 15 BITS 4K071500 27254 0020 00 0 27302 TRA CRO.17 4K071600| | TYPE IS RELATIVE TO CONTROL SECTION 4K071800| 27255 4046 00 0 00000 CRO.5C PIA 4K071900| 27256 0771 00 0 00022 ARS 18 COMPUTE LOCATION 4K072000 27257 0361 00 0 21457 ACL BGDICT OF 02 WORD 4K072100| 27260 0621 00 0 27262 STA *+2 IN DICT 4K072200| 27261 4046 00 0 00000 PIA OBTAIN 4K072300| 27262 0361 00 0 00000 ACL ** RELATIVE, AND 4K072400| 27263 0044 00 0 00000 PAI 4K072500 27264 4057 00 100000 RIL 100000 4K072600| 27265 0020 00 0 27302 TRA CRO.17 TREAT AS ORDINARY 4K072700| | PROCESS BY ADJ TYPE 4K072900| 27266 4046 00 0 00000 CRO.16 PIA FIND LOW ORDER 4K073000 27267 0771 00 0 00036 ARS 30 ADJ CODE 4K073100| 27270 4320 00 0 21713 ANA L(7) 4K073200| 27271 0100 00 0 27302 TZE CRO.17 4K073300| 27272 0737 00 1 00000 PAC 0,1 NO PROCESS IF NOT 4K073400| 27273 7 77772 1 27342 TXL CRO.18,1,-6 PROPER TYPE. 4K073500 27274 0522 00 1 27274 XEC *,1 BRANCH BY TYPE. 4K073600| 27275 0020 00 0 27302 TRA CRO.17 -ORDINARY 4K073700| 0BINARY CARD ID. MAPK0015| 27276 0020 00 0 27305 TRA CRO.19 -VIRTUAL 4K073800| 27277 0020 00 0 27343 TRA CRO.22 -FILE 4K073900 27300 0020 00 0 27346 TRA CRO.23 -LOC.CTR 4K074000| 27301 0020 00 0 27350 TRA CRO.24 -QUALIFICATION 4K074100| | ORDINARY NAME 4K074300| 27302 0634 00 4 27314 CRO.17 SXA CRO.21,4 SET PRINT CODE, 4K074400 27303 0074 00 4 27461 TSX OKCVN,4 CONVERT VALUE, 4K074500| 27304 0020 00 0 27314 TRA CRO.20+1 AND GO TO PRINT 4K074600| | 1 IBMAPV IBMAPK 12/01/64 PAGE 380 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK 0 VIRTUAL OR UNDEFINED 4K074800| 27305 0774 00 1 00000 CRO.19 AXT **,1 SAVE LOCATION 4K074900| 27306 0754 00 2 00000 PXA 0,2 OF START IN 4K075000| 27307 0621 60 0 27377 STA* CRO.32 CURRENT VIRTUAL 4K075100| 27310 1 77777 1 27311 TXI *+1,1,-1 4K075200 27311 0634 00 1 27305 SXA CRO.19,1 BUMP COUNT AND 4K075300| 27312 1 77777 2 27220 TXI CRO.14,2,-1 GO TO NEXT 4K075400| | 27313 0634 00 4 27314 CRO.20 SXA CRO.21,4 4K075600| 27314 4774 00 4 00000 CRO.21 AXC **,4 4K075700 27315 4500 00 0 27741 CAL BLANKS 4K075800| 27316 0560 00 4 00000 LDQ 0,4 SETUP BUFFER AS- 4K075900| 27317 4763 00 0 00030 LGL 24 4K076000| 27320 0602 00 0 27734 SLW CRO.BF BBCCCC 4K076100| 27321 4763 00 0 00022 LGL 18 CBBSSS 4K076200 27322 0560 00 0 21461 LDQ NAME SSSBBV 4K076300| 27323 4763 00 0 00022 LGL 18 VVVVVB 4K076400| 0BINARY CARD ID. MAPK0016| 27324 0044 00 0 00000 PAI 4K076500| 27325 4055 00 000060 SIL 60 4K076600 27326 0604 00 0 27735 STI CRO.BF+1 4K076700| 27327 4763 00 0 00036 LGL 30 4K076800| 27330 0560 00 0 21462 LDQ OPER 4K076900| 27331 4763 00 0 00006 LGL 6 4K077000| 27332 0044 00 0 00000 PAI 4K077100 27333 0055 00 606000 SIR 606000 4K077200| 27334 0604 00 0 27736 STI CRO.BF+2 4K077300| 27335 4130 00 0 00000 XCL 4K077400| 27336 0044 00 0 00000 PAI 4K077500| 27337 0055 00 000060 SIR 60 4K077600 27340 0604 00 0 27737 STI CRO.BF+3 4K077700| 27341 0074 00 4 27532 TSX CRP.RF,4 PRINT REFERENCES 4K077800| 27342 1 77777 2 27220 CRO.18 TXI CRO.14,2,-1 BACK FOR NEXT 4K077900| | FILE TYPE 4K078100 27343 0074 00 4 27476 CRO.22 TSX SPCVN,4 CONVERT VALUE 4K078200| 27344 0774 00 4 27723 AXT FYLT,4 GO TO PRINT 4K078300| 27345 0020 00 0 27313 TRA CRO.20 BY TYPE 4K078400| | QUAL OR LOC.CTR 4K078600 27346 0774 00 4 27724 CRO.23 AXT LCTR,4 LCTR 4K078700| 27347 0020 00 0 27351 TRA *+2 4K078800| 27350 0774 00 4 27725 CRO.24 AXT QUAL,4 QUAL 4K078900| 27351 4500 00 0 27741 CAL BLANKS SET VALUE AS 4K079000| 0BINARY CARD ID. MAPK0017 27352 0602 00 0 21462 SLW OPER BLANKS AND GO 4K079100| 27353 0020 00 0 27313 TRA CRO.20 TO PRINT 4K079200| | PRINT VIRTUAL REFERENCE 4K079400| 27354 0522 00 0 27305 CRO.30 XEC CRO.19 EXIT 4K079500 27355 7 00000 1 27416 TXL CRO.35,1,0 IF NONE $4$4K079600| 27356 0500 00 0 27671 CLA CROH3 4K079700| 27357 0520 00 0 21426 ZET SWABS 4K079800| 27360 0500 00 0 27674 CLA CROH4 4K079900| 1 IBMAPV IBMAPK 12/01/64 PAGE 381 DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27361 0601 00 0 27366 STO CRO.31 4K080000| 27362 0074 00 4 25577 TSX PRINT,4 PRINT HEADING- 4K080100| 27363 0020 00 0 27371 TRA *+6 $4$4K080200| 27364 0 00000 0 00004 PZE 4 'REFERENCES 4K080300 27365 3 00016 1 27661 PTH CROH1,1,14 TO VIRTUAL(UNDEFINED) 4K080400| 27366 4 00000 0 00000 CRO.31 MZE ** SYMBOLS' 4K080500| 27367 4 00010 5 27664 MZE CROH1+3,5,8 4K080600| 27370 0 00001 0 27741 PZE BLANKS,,1 4K080700| 27371 0774 00 4 27413 AXT CRO.33,4 SET 4K080800 27372 0634 00 4 27342 SXA CRO.18,4 RETURN 4K080900| 27373 0774 00 4 27741 AXT BLANKS,4 4K081000| 27374 0634 00 4 27314 SXA CRO.21,4 SET PRINT 4K081100| 27375 4634 00 1 27415 SXD CRO.34,1 SET EXIT TEST 4K081200| 27376 0774 00 1 00000 AXT 0,1 4K081300 27377 0500 00 1 00000 CRO.32 CLA **,1 PICK UP CURRENT 4K081400| 0BINARY CARD ID. MAPK0018| 27400 0734 00 4 00000 PAX 0,4 POINTER 4K081500| 27401 4500 00 4 00000 CAL 0,4 4K081600| 27402 0602 00 0 21461 SLW NAME SYMBOL 4K081700 27403 0500 00 4 67720 CLA SSBF,4 4K081800| 27404 0621 00 0 27716 STA CHAIN INITIAL CHAIN 4K081900| 27405 0634 00 1 27413 SXA CRO.33,1 SAVE NUMBER 4K082000| 27406 0771 00 0 00022 ARS 18 4K082100| 27407 0402 00 0 21457 SUB BGDICT CONVERT 4K082200 27410 0044 00 0 00000 PAI FOR VALUE 4K082300| 27411 0074 00 4 27476 TSX SPCVN,4 4K082400| 27412 0020 00 0 27314 TRA CRO.20+1 GO TO PRINT 4K082500| | 27413 0774 00 1 00000 CRO.33 AXT **,1 4K082700 27414 1 77777 1 27415 TXI *+1,1,-1 BACK FOR 4K082800| 27415 3 00000 1 27377 CRO.34 TXH CRO.32,1,** NEXT 4K082900| | 27416 4520 00 0 21427 CRO.35 NZT SWREF EXIT IF $4$4K083100| 27417 0020 00 0 27457 TRA CROXX NO OVERFLOW $4$4K083200 27420 0634 00 0 21427 ZSA SWREF RESET SWITCH (6)4K083300| 27421 4625 00 0 27717 STL EELIM SET ENTRY ELIMINATION $4$4K083400| 27422 0500 00 0 27703 CLA CROH5A $4$4K083500| 27423 0601 00 0 27704 STO CROH5A+1 SET SUBHEADING $4$4K083600| 27424 0500 00 0 27670 CLA RLAST TO ASSUME LAST $4$4K083700 27425 0601 00 0 27703 STO CROH5A IS NEXT $4$4K083800| 0BINARY CARD ID. MAPK0019| 27426 0441 00 0 21515 LDI CTONEI+1 (6)4K083810| 27427 4057 00 001000 RIL 001000 SET FOR INPUT (6)4K083820| 27430 0604 00 0 21515 STI CTONEI+1 (6)4K083830 27431 0074 00 4 21357 TSX OPEN,4 OPEN INPUT $4$4K083900| 27432 4 00000 0 21514 MZE CTONEI NO REWIND $4$4K084000| 27433 0074 00 4 21361 TSX READ,4 $4$4K084100| 27434 0 00000 0 21514 PZE CTONEI READ IN $4$4K084200| 27435 0 27440 0 27440 PZE *+3,,*+3 $4$4K084300 27436 4 10060 0 46600 IOCP CRHST,,2*TBLNTH HASH TABLE AND $4$4K084400| 27437 0 10060 0 56660 IOCD NMCHN,,2*TBLNTH NAME TABLE $4$4K084500| 27440 0074 00 4 21355 TSX CLOSE,4 CLOSE WITH $4$4K084600| 27441 2 00000 0 21514 PTW CTONEI REWIND $4$4K084700| 27442 0754 00 0 00000 PXA 0,0 $4$4K084800 1 IBMAPV IBMAPK 12/01/64 PAGE 382 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27443 0774 00 4 10060 AXT 2*TBLNTH,4 ZERO OUT $4$4K084900| 27444 0621 00 4 56660 STA CRHST+2*TBLNTH,4 CHAIN ADDRESSES $4$4K085000| 27445 2 00001 4 27444 TIX *-1,4,1 IN HASH TABLE $4$4K085100 27446 0774 00 4 21120 AXT -NMCHN,4 RESET UPPER LIMIT $4$4K085200| 27447 0634 00 4 27732 SXA SRT.UL,4 FOR SORT $4$4K085300| 27450 0634 00 0 27305 SXA CRO.19,0 RESET VIRTUAL COUNT $4$4K085400| 27451 0774 00 4 27220 AXT CRO.14,4 RESTORE NORMAL $4$4K085500| 27452 0634 00 4 27342 SXA CRO.18,4 LOOP CONTROL $4$4K085600 27453 0774 00 4 00000 CRO.37 AXT **,4 PICK UP BUFFSR POSITION $4$4K085700| 0BINARY CARD ID. MAPK0020| 27454 4774 00 2 30070 AXC CRTBL,2 SET FIRST STORE $4$4K085800| 27455 2 00001 4 27012 TIX CRO.6,4,1 BACK FOR NEXT ITEM $4$4K085900| 27456 0020 00 0 27006 TRA CRO.5 OR NEW BUFFER $4$4K086000 | 27457 0774 00 4 00000 CROXX AXT **,4 FINAL 4K086200| 27460 0020 00 4 00001 TRA 1,4 EXIT 4K086300| | * OCTAL CONVERSION SUBROUTINES 4K086500| | * LOCATION VALUE TYPE 4K086700| | 27461 4046 00 0 00000 OKCVN PIA 4K086900 27462 4765 00 0 00022 LGR 18 ASSUME 18 4K087000| 27463 0500 00 0 21705 CLA L(1) BITS 4K087100| 27464 4054 00 100000 LFT 100000 4K087200| 27465 0020 00 0 27470 TRA *+3 IF NOT, 4K087300| 27466 4763 00 0 00003 LGL 3 SET FOR 4K087400 27467 0500 00 0 27722 OKCVF CLA L.112 15 BITS (6)4K087500| 27470 0140 00 0 27471 TOV *+1 4K087600| 27471 0767 00 0 00003 ALS 3 CONVERT 4K087700| 27472 4763 00 0 00003 LGL 3 TO OCTAL 4K087800| 27473 4140 00 0 27471 TNO *-2 4K087900 27474 0602 00 0 21462 SLW OPER STORE 4K088000| 27475 0020 00 4 00001 TRA 1,4 AND EXIT 4K088100| | * SPECIAL FOR VIRTUAL AND FILE. 4K088300| 27476 0634 00 4 27504 SPCVN SXA SPCVX,4 SAVE RETURN 4K088500| 27477 0634 00 2 27505 SXA SPCVX+1,2 4K088600| 27500 4046 00 0 00000 PIA 4K088700| 27501 0074 00 4 27507 TSX SC.CON,4 CONVERT)O DECIMAL 4K088800| 0BINARY CARD ID. MAPK0021 27502 0522 00 1 27531 XEC CRQL,1 4K088900| 27503 4600 00 0 21462 STQ OPER POSITION 4K089000| 27504 0774 00 4 00000 SPCVX AXT **,4 AND EXIT 4K089100| 27505 0774 00 2 00000 AXT **,2 4K089200| 27506 0020 00 4 00001 TRA 1,4 4K089300 | * DECIMAL CONVERSION ROUTINE 4K089500| * 4K089600| 27507 0634 00 4 27521 SC.CON SXA SC.COX,4 SAVE RETURN 4K089700| 27510 0074 00 4 00716 TSX .DECVA,4 CONVERT ADDRESS TO DECIMAL (6)4K089800 27511 4763 00 0 00052 LGL 42 ELIMINATE LEADING BLANK (6)4K089900| 1 IBMAPV IBMAPK 12/01/64 PAGE 383 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27512 4765 00 0 00006 LGR 6 (6)4K090000| 27513 0560 00 0 27741 LDQ BLANKS LEFT JUSTIFY 4K090600 27514 0774 00 1 00000 AXT 0,1 AND COUNT 4K090700| 27515 4765 00 0 00006 LGR 6 LENGTH OF 4K090800| 27516 1 00001 1 27517 TXI *+1,1,1 FIELD 4K090900| 27517 4100 00 0 27515 TNZ *-2 4K091000| 27520 4600 00 0 21462 STQ OPER 4K091100 27521 0774 00 4 00000 SC.COX AXT **,4 4K091200| 27522 0020 00 4 00001 TRA 1,4 4K091300| | * TABLE OF MQ SHIFTS (6)4K091500| 27523 0774 00 0 00000 AXT 0,0 (6)4K091600 27524 4773 00 0 00036 RQL 30 POSITIONING 4K091700| 27525 4773 00 0 00030 RQL 24 TABLE 4K091800| 27526 4773 00 0 00022 RQL 18 4K091900| 27527 4773 00 0 00014 RQL 12 4K092000| 0BINARY CARD ID. MAPK0022 27530 4773 00 0 00006 RQL 6 4K092100| 27531 0774 00 0 00000 CRQL AXT 0,0 4K092200| | | * SUBROUTINE TO PRINT ACTUAL REFERENCES 4K092400 * 4K092500| | | 27532 0634 00 4 27607 CRP.RF SXA CRP.RX,4 SAVE RETURN 4K092700| 27533 0634 00 2 27610 SXA CRP.RX+1,2 4K092800 27534 4520 00 0 27716 NZT CHAIN NO PRINT IF NO REFS $4$4K092900| 27535 4520 00 0 27717 NZT EELIM AND ELIM SWITCH ON $4$4K093000| 27536 0074 00 4 25577 TSX PRINT,4 PRINT LEFT 4K093100| 27537 0020 00 0 27542 TRA *+3 $4$4K093200| 27540 0 00000 0 00001 PZE 1 SIDE 4K093300 27541 0 00032 1 27734 PZE CRO.BF,1,CRPSSZ 4K093400| 27542 4520 00 0 27716 NZT CHAIN EXIT IF NO 4K093500| 27543 0020 00 0 27607 TRA CRP.RX REFERENCES 4K093600| 27544 0600 00 0 21461 STZ NAME 4K093700| 27545 0500 60 0 27716 CLA* CHAIN SET FOR FIRST 4K093800 27546 0621 00 0 27716 STA CHAIN CHAIN POINT 4K093900| 27547 0774 00 2 00032 AXT CRPSSZ,2 4K094000| 27550 0634 00 2 27561 CRP.1 SXA CRP.2,2 SAVE COLUMN COUNT 4K094100| 27551 0500 60 0 27716 CLA* CHAIN PICK UP ENTRY 4K094200| 27552 0621 00 0 27716 STA CHAIN SET NEW POINTER 4K094300 27553 0625 00 0 21461 STT NAME AND END TEST 4K094400| 27554 4774 00 2 27560 AXC CRP.2-1,2 (SIMULATE TSX,**,2) (6)4K094500| 27555 0560 00 0 21427 LDQ SWREF ARE REFERENCES IN LINE NUMBERS (6)4K094510| 0BINARY CARD ID. MAPK0023| 27556 0162 00 0 27612 TQP OCCVN NO, CONVERT OCTAL LOCATION (6)4K094520 27557 0771 00 0 00022 ARS 18 YES, (6)4K094530| 27560 0074 00 4 27507 TSX SC.CON,4 CONVERT DECIMAL LINE NUMBER (6)4K094540| 27561 0774 00 2 00000 CRP.2 AXT **,2 COLUMN COUNT 4K094600| 27562 0774 00 4 00000 AXT 0,4 IF NOT LAST (6)4K094610| 27563 0520 00 0 21461 ZET NAME 4K094700 27564 0774 00 4 00001 AXT 1,4 INCLUDE COMMA FOLLOWING (6)4K094800| 27565 4634 00 4 27604 SXD CRP.6,4 (6)4K094900| 1 IBMAPV IBMAPK 12/01/64 PAGE 384 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0 27566 4634 00 1 27567 CRP.3 SXD *+1,1 INCREASE 4K095200 27567 1 00000 2 27570 TXI *+1,2,** COLUMN COUNT 4K095300| 27570 7 00166 2 27577 TXL CRP.4,2,118 4K095400| 27571 0074 00 4 25577 TSX PRINT,4 IF LINE WOULD OVERFLOW 4K095500| 27572 0020 00 0 27575 TRA *+3 $4$4K095600| 27573 0 00000 0 00001 PZE 1 START NEW ONE 4K095700 27574 0 00032 1 27741 BLANX,1,CRPSSZ (6)4K095800| 27575 0774 00 2 00032 AXT CRPSSZ,2 AND GO BACK 4K095900| 27576 0020 00 0 27566 TRA CRP.3 TO GET CURRENT ITEM 4K096000| | 27577 4634 00 1 27603 CRP.4 SXD CRP.5,1 4K096200 27600 0074 00 4 25577 TSX PRINT,4 PRINT CURRENT 4K096300| 27601 0020 00 0 27605 TRA *+4 ITEM (6)4K096400| 27602 0 00000 0 00002 2 (6)4K096500| 27603 4 00000 1 21462 CRP.5 MZE OPER,1,** 4K096600| 0BINARY CARD ID. MAPK0024 27604 4 00000 1 27721 CRP.6 MZE SC.CMA,1,** (6)4K096610| 27605 0520 00 0 21461 ZET NAME BACK IF 4K096700| 27606 1 00001 2 27550 TXI CRP.1,2,1 NOT LAST AND COUNT COMMA (6)4K096800| | 27607 0774 00 4 00000 CRP.RX AXT **,4 RESTORE AND 4K097000 27610 0774 00 2 00000 AXT **,2 EXIT 4K097100| 27611 0020 00 4 00001 TRA 1,4 4K097200| | | * SUBROUTINE FOR OCTAL CONVERSION 4K098100 * 4K098200| | 27612 4765 00 0 00041 OCCVN LGR 33 POSITION NUMBER 4K098400| 27613 0500 00 0 27720 CLA L.256 END TESTER 4K098500| 27614 0140 00 0 27615 TOV *+1 4K098600 27615 0767 00 0 00003 ALS 3 CONVERT 4K098700| 27616 4763 00 0 00003 LGL 3 FIVE 4K098800| 27617 4140 00 0 27615 TNO *-2 DIGITS 4K098900| 27620 0560 00 0 27741 LDQ BLANKS (6)4K099000| 27621 0774 00 1 00001 AXT 1,1 COUNT NUMBER 4K099100 27622 4765 00 0 00006 LGR 6 OF SIGNIFICANT 4K099200| 27623 0100 00 0 27625 TZE *+2 CHARACTERS 4K099300| 27624 1 00001 1 27622 TXI *-2,1,1 4K099400| 27625 4600 00 0 21462 STQ OPER PLACE IN CELL OPER 4K099500| 27626 0020 00 2 00001 TRA 1,2 AND EXIT. 4K099600 | * SUBROUTINE TO SET UP PAGE SUBHEADING 4K099800| * 4K099900| 27627 0634 00 4 27657 CRO.SH SXA CRO.SX,4 SAVE RETURN 4K100000| 27630 0500 00 4 00001 CLA 1,4 4K100100 27631 0621 00 0 27647 STA CRO.SA 4K100200| 0BINARY CARD ID. MAPK0025| 27632 4734 00 1 00000 PDX 0,1 SETUP WORD 4K100300| 27633 0754 00 1 00000 PXA 0,1 FETCH AND 4K100400| 27634 0361 00 0 27647 ACL CRO.SA COUNT 4K100500 27635 0621 00 0 27647 STA CRO.SA 4K100600| 27636 0500 00 0 21264 CLA SYSSHD FIND 4K100700| 27637 0621 00 0 27650 STA CRO.SB LOCATION AND 4K100800| 1 IBMAPV IBMAPK 12/01/64 PAGE 385 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK 0 27640 4737 00 4 00000 PDC 0,4 LENGTH OF 4K100900| 27641 3 77762 4 27643 TXH *+2,4,-14 SUBHEAD 4K101000| 27642 0774 00 4 77762 AXT -14,4 IMAGE 4K101100| 27643 4634 00 4 27654 SXD CRO.SC,4 4K101200| 27644 0774 00 4 00000 AXT 0,4 4K101300 27645 0500 00 0 27741 CLA BLANKS TEST FOR (6)4K101310| 27646 7 00000 1 27655 TXL CRO.SC+1,1,0 NULL HEADING (6)4K101320| 27647 0500 00 1 00000 CRO.SA CLA **,1 PLACE DESIRED 4K101400| 27650 0601 00 4 00000 CRO.SB STO **,4 WORDS 4K101500| 27651 1 77777 4 27652 TXI *+1,4,-1 4K101600 27652 2 00001 1 27647 TIX CRO.SA,1,1 4K101700| 27653 0500 00 0 27741 CLA BLANKS FILL 4K101800| 27654 7 00000 4 27657 CRO.SC TXL CRO.SX,4,** REMAINDER 4K101900| 27655 0522 00 0 27650 XEC CRO.SB WITH BLANKS 4K102000| 27656 1 77777 4 27654 TXI CRO.SC,4,-1 4K102100 27657 0774 00 4 00000 CRO.SX AXT **,4 AND 4K102200| 0BINARY CARD ID. MAPK0026| 27660 0020 00 4 00002 TRA 2,4 EXIT 4K102300| | * CONSTANTS, STORAGE, ETC. 4K102500| * 4K102600| | 00032 CRPSSZ EQU 26 PRINT COLUMN POSITION 4K102800| 27661 512526255125 CROH1 BCI 5,REFERENCES TO DEFINED SYMBOLS. 4K102900 27666 216321604040 CROH2 BCI 2,ATA -- PART $4$4K103000| 27670 602631452143 RLAST BCI 1, FINAL $4$4K103100| 27671 4 00010 1 27672 CROH3 MZE *+1,1,8 4K103200| 27672 653151636421 BCI 2,VIRTUAL 4K103300| 27674 4 00012 1 27675 CROH4 MZE *+1,1,10 4K103400 27675 644524252631 BCI 2,UNDEFINED 4K103500| 27677 627044224643 CROH5 BCI 4,SYMBOL REFERENCE DATA $4$4K103600| 27703 606060606060 CROH5A BCI 2, $4$4K103700| 27705 CROH6 EQU * 4K103800| 27705 606023432162 CROHED BCI 6, CLASS SYMBOL VALUE REFERENCES 4K103900 0BINARY CARD ID. MAPK0027| 27713 602270604331 BCI 3, BY LINE NUMBER. (6)4K103910| 27716 0 00000 0 00000 CHAIN PZE ** 4K104000| 27717 0 00000 0 00000 EELIM PZE ** $4$4K104100| 27720 000000000400 L.256 OCT 400 4K104200 27721 736060606060 SC.CMA BCI 1,, (6)4K104300| 27722 000000000160 L.112 OCT 160 4K104400| 27723 263143256060 FYLT BCI 1,FILE 4K104500| 27724 432363516060 LCTR BCI 1,LCTR 4K104600| 27725 506421436060 QUAL BCI 1,QUAL 4K104700 27726 224646436060 BOOLT BCI 1,BOOL 4K104800| 27727 432246464360 LBOOLT BCI 1,LBOOL 4K104900| 27730 512246464360 RBOOLT BCI 1,RBOOL 4K105000| 27731 622563606060 SETTT BCI 1,SET 4K105100| 27732 0 00000 0 21120 SRT.UL PZE -NMCHN CURRENT SORT UPPER LIMIT 4K105200 27733 4 00000 0 00000 4BIT MZE 0 4K105300| 0BINARY CARD ID. MAPK0028| 27734 606060606060 CRO.BF BCI 5, 4K105400| 1 IBMAPV IBMAPK 12/01/64 PAGE 386 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK 0 27741 606060606060 BLANX BCI 5, $5$4K105401| 27746 606060606060 BCI 4, $5$4K105402| 27752 606060606060 BCI 5, $5$4K105403| 27757 606060606060 BCI 4, $5$4K105404| 27741 BLANKS SYN BLANX (6)4K105500 0BINARY CARD ID. MAPK0029| 27763 0 00000 0 00000 SRT.LL PZE ** CURRENT SORT LOWER LIMIT 4K105600| 27764 BSS 36 COLUMN BLOCK BREAKS 4K105700| | TABLE SPACE DEFINITION 4K105900 46600 CRHST EQU HASHT-TBLNTH 4K106000| 67720 SSBF EQU CRHST-NMCHN 4K106100| * PATCH SPACE FOR PRECEDING ROUTINES (6)4K106101| 30030 CRPTCH EQU * BEGIN PATCH AREA (6)4K106102| 30030 CRPTE EQU * CURRENT PATCHES END (6)4K106197| 30070 BES CRPTCH-*+32 (6)4K106198| 00040 CRPTSZ EQU *-CRPTE CURRENT SIZE OF AREA (6)4K106199| | 30070 CRTBL EQU * 4K106300 46577 CRTBLE EQU CRHST-1 4K106400| 1 IBMAPV IBMAPK 12/01/64 PAGE 387 | DICTIONARY REFERENCE PROCESSING PHASE 2 - RECORD IBMAPK | 0| * CROSS REFERENCE GATHERING ROUTINE. ENTER VIA 4K106600 * 4K106700| * TSX CROGAT,2 4K106800| * 4K106900| * WITH NAME TABLE LOCATION IN NT(A) 4K107000| | 0BINARY CARD ID. MAPK0030| 30070 0520 00 0 21427 CROGAT ZET SWREF EXIT IF NO 4K107200| 30071 0020 00 2 00001 TRA 1,2 REFERENCES. 4K107300| 30072 4520 00 0 43153 NZT ID(A) (6)4K107310 30073 0020 00 2 00001 TRA 1,2 (6)4K107320| 30074 0634 00 2 30120 SXA CROGX,2 SAVE RETURN 4K107400| 30075 0774 00 2 00000 CROGA AXT **,2 BUFFER COUNT 4K107500| 30076 2 00001 2 30105 TIX CROGC,2,1 COUNT LAST ENTRY 4K107600| 30077 0634 00 4 30104 SXA CROGB,4 IF END OF BUFFER, 4K107700 30100 0074 00 4 25600 TSX INFIN,4 GET NEXT 4K107800| 30101 0 00000 0 21544 CTREFF (6)4K107900| 30102 0621 00 0 30114 STA CROGD SET ADDRESS 4K108000| 30103 4734 00 2 00000 PDX 0,2 AND COUNT 4K108100| 30104 0774 00 4 00000 CROGB AXT **,4 4K108200 30105 0500 60 0 37013 CROGC CLA* RCTR CURRENT LOC CTR VALUE 4K108300| 30106 0560 00 0 21427 LDQ SWREF GET REFERENCE SWITCH (6)4K108310| 30107 0162 00 0 30112 TQP *+3 IS LNREF REQUESTED (6)4K108320| 30110 0500 00 0 21443 CLA BLINK YES, USE CARD NUMBER (6)4K108330| 30111 4320 00 0 21723 ANA MSKAD (6)4K108340 30112 0767 00 0 00022 ALS 18 4K108400| 30113 0361 00 0 43152 ACL NT(A) REFERENCE VALUE 4K108500| 30114 0601 00 2 00000 CROGD STO **,2 STORE 4K108600| 30115 0634 00 2 30075 SXA CROGA,2 SAVE POSITION 4K108700| 0BINARY CARD ID. MAPK0031 30116 6 00001 2 30120 TNX *+2,2,1 4K108800| 30117 0600 60 0 30114 STZ* CROGD STORE END MARK 4K108900| 30120 0774 00 2 00000 CROGX AXT **,2 EXIT 4K109000| 30121 0020 00 2 00001 TRA 1,2 4K109100| 30122 CROGZ SYN * 4K109200 1 IBMAPV IBMAPK 12/01/64 PAGE 388 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| | 45000 ORG PSBF 4K109500| 0BINARY CARD ID. MAPK0032| 45000 0634 00 4 45245 FDICT SXA FDIX,4 SAVE RETURN 4K109600| 45001 0520 00 0 21426 ZET SWABS EXIT IF 4K109700| 45002 0020 00 4 00001 TRA 1,4 ABS ASSEMBLY 4K109800 45003 4500 00 0 21435 CAL JBNAME SET UP 4K109900| 45004 0560 00 0 27741 LDQ BLANKS CARD TO 4K110000| 45005 4765 00 0 00006 LGR 6 PRINT AND 4K110100| 45006 4600 00 0 30233 STQ F.IMG+2 PUNCH $FDICT 4K110200| 45007 0044 00 0 00000 PAI 4K110300 45010 4055 00 600000 SIL 600000 4K110400| 45011 0604 00 0 30232 STI F.IMG+1 4K110500| 45012 0534 00 1 21703 LXA CTDFCF+11,1 CARD COUNT 4K110600| 45013 0074 00 4 25601 FDI.A TSX INFOT,4 FETCH 4K110700| 45014 0 45030 0 21670 PZE CTDFCF,,FDI.C NEXT $FILE 4K110800 45015 0621 00 0 35024 STA D.BASE BUFFER 4K110900| 45016 4734 00 2 00000 PDX 0,2 4K111000| 45017 0754 00 2 00000 FDI.B PXA 0,2 LOCATION OF 4K111100| 45020 0402 00 0 35024 SUB D.BASE IMAGE AND 4K111200| 45021 0621 00 0 45023 STA *+2 PRINT AND $4$4K111300 45022 0074 00 4 30122 TSX PR.PU,4 PUNCH CARD $4$4K111400| 45023 0 00000 0 00000 PZE ** $4$4K111500| 45024 1 77764 2 45025 TXI *+1,2,-12 CONTINUE IF $4$4K111600| 45025 6 00001 1 45030 TNX FDI.C,1,1 MORE CARDS $4$4K111700| 0BINARY CARD ID. MAPK0033 45026 3 00013 2 45017 TXH FDI.B,2,11 $4$4K111800| 45027 0020 00 0 45013 TRA FDI.A 4K111900| 45030 0534 00 4 21446 FDI.C LXA FLCCT,4 EXIT IF NO 4K112000| 45031 7 00000 4 45234 TXL FD.11,4,0 FILE CARDS 4K112100| 45032 0074 00 4 27627 TSX CRO.SH,4 SETUP SUBHEADING 4K112200 45033 0 00003 0 30220 PZE F.TTL,,F.TTLE-F.TTL 4K112300| 45034 0074 00 4 30122 TSX PR.PU,4 OUTPUT $FDICT CARD 4K112400| 45035 1 00000 0 30231 PON F.IMG WITH EJECT 4K112500| 45036 4625 00 0 21426 STL SWABS INITIALIZE 4K112600| 45037 0074 00 4 30302 TSX PUINIT,4 DECK 4K112700 45040 000000000301 OCT 301 PUNCHING 4K112800| 45041 0600 00 0 21426 STZ SWABS 4K112900| | OUTPUT AND LIST BINARY CARDS 4K113100| 45042 0774 00 2 00000 AXT 0,2 FETCH 4K113200 45043 1 45045 2 45247 TXI FD.FCH,2,*+2 FIRST BUFFER 4K113300| 45044 0774 00 2 00000 FD.1 AXT **,2 4K113400| 45045 0774 00 1 00006 AXT 6,1 SET TRM COUNT 4K113500| 45046 0560 00 2 00000 FD.2 LDQ **,2 FETCH WORD, 4K113600| 45047 4600 00 1 30231 STQ FD.BUF+6,1 STORE, AND 4K113700 45050 2 00001 2 45052 TIX *+2,2,1 4K113800| 45051 1 45051 2 45247 TXI FD.FCH,2,* 4K113900| 45052 2 00001 1 45046 TIX FD.2,1,1 COUNT ALL IN 4K114000| 45053 0634 00 2 45044 SXA FD.1,2 SAVE BUFFER POSITION 4K114100| 0BINARY CARD ID. MAPK0034 1 IBMAPV IBMAPK 12/01/64 PAGE 389 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 45054 0441 00 0 30224 LDI FD.BUF+1 PICK UP FIRST 4K114200| 45055 4057 00 270000 RIL 270000 $4$4K114300| 45056 0534 00 4 21446 LXA FLCCT,4 4K114400 45057 3 00001 4 45061 TXH *+2,4,1 SET LAST ENTRY 4K114500| 45060 4055 00 200000 SIL 200000 INDICATOR 4K114600| 45061 0604 00 0 30224 STI FD.BUF+1 4K114700| 45062 0774 00 1 00005 AXT 5,1 4K114800| 45063 0560 00 1 30231 LDQ FD.BUF+6,1 PUNCH FDICT 4K114900 45064 4600 00 0 30676 STQ RDATA ENTRY 4K115000| 45065 0074 00 4 30567 TSX PABST,4 4K115100| 45066 2 00001 1 45063 TIX *-3,1,1 4K115200| | 45067 0774 00 1 00004 FD.3 AXT 4,1 (MODIFIED) 4K115400 45070 2 00001 1 45073 TIX *+3,1,1 IF FOURTH $4$4K115500| 45071 0074 00 4 30611 TSX PAB4,4 ENTRY, PUNCH $4$4K115600| 45072 0774 00 1 00004 AXT 4,1 BUFFER $4$4K115700| 45073 0634 00 1 45067 SXA FD.3,1 4K115800| 45074 0520 00 0 21420 ZET CTLIST SKIP PRINTING SETUP $4$4K115900 45075 0020 00 0 45227 TRA FD.125 IF NO LIST $4$4K116000| 45076 0074 00 4 30154 TSX PR.LFT,4 PRINT FIRST 4K116100| 45077 0 00000 0 30224 PZE FD.BUF+1 LEFT WORD 4K116200| 45100 0774 00 4 30225 AXT FD.BUF+2,4 SET NON-STANDARD 4K116300| 45101 4520 00 0 30225 NZT FD.BUF+2 LABEL PRINT 4K116400 0BINARY CARD ID. MAPK0035| 45102 0774 00 4 27741 AXT BLANKS,4 4K116500| 45103 0634 00 4 45113 SXA FD.4,4 4K116600| 45104 0074 00 4 25577 TSX PRINT,4 4K116700| 45105 0020 00 0 45115 TRA *+8 $4$4K116800 45106 0 00000 0 00006 PZE 6 PRINT SYMBOL, 4K116900| 45107 4 00006 1 30223 MZE FD.BUF,1,6 EXTERNAL NAME, 4K117000| 45110 4 00011 1 30175 MZE FD.FLE,1,9 NSLBL (IF ANY) 4K117100| 45111 4 00003 0 30226 MZE FD.BUF+3,,3 4K117200| 45112 4 00004 3 30176 MZE FD.FLE+1,3,4 4K117300 45113 4 00001 0 00000 FD.4 MZE **,,1 4K117400| 45114 4 00003 1 27741 MZE BLANKS,1,3 4K117500| 45115 0441 00 0 30224 LDI FD.BUF+1 4K117600| | PRINT VARIABLE OPTIONS 4K117800 45116 4056 00 400000 LNT 400000 4K117900| 45117 0020 00 0 45130 TRA FD.45 4K118000| 45120 0774 00 4 30177 AXT F.MXD,4 IF MIXED MODE, 4K118100| 45121 4054 00 004000 LFT 4000 PRINT MXBCD 4K118200| 45122 0774 00 4 30200 AXT F.MXB,4 OR MXBIN 4K118300 45123 0634 00 4 45127 SXA *+4,4 $4$4K118400| 45124 0074 00 4 25577 TSX PRINT,4 4K118500| 45125 0020 00 0 45142 TRA FD.6 $4$4K118600| 45126 0 00000 0 00001 PZE 1 4K118700| 45127 4 00005 1 00000 MZE **,1,5 4K118800 0BINARY CARD ID. MAPK0036| 45130 4054 00 004000 FD.45 LFT 4000 4K118900| 45131 0020 00 0 45136 TRA FD.5 4K119000| 45132 0074 00 4 25577 TSX PRINT,4 IF BCD, 4K119100| 45133 0020 00 0 45142 TRA FD.6 $4$4K119200 45134 0 00000 0 00001 PZE 1 PRINT 'BCD' 4K119300| 1 IBMAPV IBMAPK 12/01/64 PAGE 390 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 45135 4 00003 3 30177 MZE F.MXD,3,3 4K119400| 45136 0074 00 4 25577 FD.5 TSX PRINT,4 IF BINARY 4K119500 45137 0020 00 0 45142 TRA FD.6 $4$4K119600| 45140 0 00000 0 00001 PZE 1 PRINT 'BIN 4K119700| 45141 4 00003 3 30200 MZE F.MXB,3,3 4K119800| | 45142 4054 00 003000 FD.6 LFT 3000 4K120000 45143 0020 00 0 45150 TRA FD.7 4K120100| 45144 0074 00 4 25577 TSX PRINT,4 IF INPUT, 4K120200| 45145 0020 00 0 45170 TRA FD.10 $4$4K120300| 45146 0 00000 0 00001 PZE 1 PRINT ',INPUT 4K120400| 45147 4 00001 0 30201 MZE F.INP,,1 4K120500 45150 4054 00 001000 FD.7 LFT 1000 4K120600| 45151 0020 00 0 45156 TRA FD.8 4K120700| 45152 0074 00 4 25577 TSX PRINT,4 IF OUTPUT, 4K120800| 45153 0020 00 0 45170 TRA FD.10 $4$4K120900| 45154 0 00000 0 00001 PZE 1 PRINT ',OUTPUT 4K121000 45155 4 00001 0 30204 MZE F.INO,,1 4K121100| 0BINARY CARD ID. MAPK0037| 45156 4054 00 002000 FD.8 LFT 2000 4K121200| 45157 0020 00 0 45164 TRA FD.9 4K121300| 45160 0074 00 4 25577 TSX PRINT,4 IF BOTH, 4K121400 45161 0020 00 0 45170 TRA FD.10 $4$4K121500| 45162 0 00000 0 00001 PZE 1 PRINT ',INOUT' 4K121600| 45163 4 00007 1 30202 MZE F.OUT,1,7 4K121700| 45164 0074 00 4 25577 FD.9 TSX PRINT,4 IF CHECKPOINT, 4K121800| 45165 0020 00 0 45170 TRA FD.10 $4$4K121900 45166 0 00000 0 00001 PZE 1 PRINT ',CKPT' 4K122000| 45167 4 00005 1 30205 MZE F.CPT,1,5 4K122100| | 45170 0774 00 4 30206 FD.10 AXT F.QCR,4 4K122300| 45171 4056 00 000002 LNT 2 4K122400 45172 0020 00 0 45176 TRA *+4 SET AND 4K122500| 45173 0774 00 4 30207 AXT F.NCR,4 PRINT FOR 4K122600| 45174 4054 00 000001 LFT 1 TYPE OF 4K122700| 45175 0774 00 4 30210 AXT F.OCR,4 CONVERSION 4K122800| 45176 0634 00 4 45203 SXA *+5,4 $4$4K122900 45177 0074 00 4 25577 TSX PRINT,4 4K123000| 45200 0020 00 0 45204 TRA *+4 $4$4K123100| 45201 0 00000 0 00002 PZE 2 4K123200| 45202 4 00001 1 30201 MZE F.INP,1,1 4K123300| 45203 4 00001 0 00000 MZE **,,1 4K123400 | 0BINARY CARD ID. MAPK0038| 45204 4046 00 0 00000 PIA CONVERT 4K123600| 45205 0074 00 4 27507 TSX SC.CON,4 BLOCKSIZE 4K123700| 45206 4634 00 1 45222 SXD FD.12,1 4K123800 45207 0774 00 4 30211 AXT F.MLT,4 SET FOR, 4K123900| 45210 0054 00 200000 RFT 200000 AND 4K124000| 45211 0020 00 0 45215 TRA *+4 PRINT 4K124100| 45212 0774 00 4 30212 AXT F.MIN,4 BLOCKSIZE 4K124200| 45213 0056 00 100000 RNT 100000 INFORMATION 4K124300 45214 0774 00 4 30213 AXT F.BLK,4 4K124400| 45215 0634 00 4 45221 SXA *+4,4 $4$4K124500| 1 IBMAPV IBMAPK 12/01/64 PAGE 391 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 45216 0074 00 4 25577 TSX PRINT,4 4K124600 45217 0020 00 0 45223 TRA *+4 $4$4K124700| 45220 0 00000 0 00002 PZE 2 4K124800| 45221 4 00005 1 00000 MZE **,1,5 4K124900| 45222 4 00000 1 21462 FD.12 MZE OPER,1,** 4K125000| 45223 0774 00 1 00004 AXT 4,1 NOW PRINT 4K125200| 45224 0074 00 4 30154 TSX PR.LFT,4 REMAINDER OF 4K125300| 45225 0 00000 1 30231 PZE FD.BUF+6,1 LEFT SIDES 4K125400| 45226 2 00001 1 45224 TIX *-2,1,1 4K125500| 45227 0534 00 4 21446 FD.125 LXA FLCCT,4 DECREMENT $4$4K125600 45230 1 77777 4 45231 TXI *+1,4,-1 FILE COUNT 4K125700| 45231 0634 00 4 21446 SXA FLCCT,4 4K125800| 0BINARY CARD ID. MAPK0039| 45232 3 00000 4 45044 TXH FD.1,4,0 BACK IF MORE LEFT 4K125900| 45233 0074 00 4 30611 TSX PAB4,4 PUNCH LAST IF NOT 4K126000 | CLEANUP AND EXIT 4K126200| 45234 0074 00 4 27627 FD.11 TSX CRO.SH,4 SET TEXT SUBHEADING 4K126300| 45235 0 00003 0 30215 PZE F.TXX,,F.TXXE-F.TXX 4K126400| 45236 4500 00 0 30214 CAL F.TXW 4K126500 45237 0602 00 0 30231 SLW F.IMG PRINT AND PUNCH 4K126600| 45240 0074 00 4 30122 TSX PR.PU,4 IMAGE FOR 4K126700| 45241 1 00000 0 30231 PON F.IMG $TEXT CARD 4K126800| 45242 0074 00 4 25601 TSX INFOT,4 RELEASE BUFFER IF STILL $5$4K126801| 45243 0 45245 0 21610 PZE CTFILC,,*+2 ATTACHED TO $5$4K126802 45244 0020 00 0 45242 TRA *-2 CTFILC $5$4K126803| 45245 0774 00 4 00000 FDIX AXT **,4 4K126900| 45246 0020 00 4 00001 TRA 1,4 EXIT 4K127000| | FETCH FDICT BUFFER 4K127200 45247 0634 00 2 45254 FD.FCH SXA FD.FCX,2 SAVE RETURN 4K127300| 45250 0074 00 4 25601 TSX INFOT,4 4K127400| 45251 0 45234 0 21610 PZE CTFILC,,FD.11 READ, 4K127500| 45252 0621 00 0 45046 STA FD.2 SET ADDRESS 4K127600| 45253 4734 00 2 00000 PDX 0,2 AND COUNT 4K127700 45254 0020 00 0 00000 FD.FCX TRA ** EXIT 4K127800| 1 IBMAPV IBMAPK 12/01/64 PAGE 392 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| 30122 ORG CROGZ 4K128000 PRINT AND PUNCH BCD CARD 4K128100| 0BINARY CARD ID. MAPK0040| 30122 0634 00 4 30152 PR.PU SXA PR.PUX,4 SAVE RETURN 4K128200| 30123 4500 00 4 00001 CAL 1,4 FETCH WORD 4K128300| 30124 0630 00 0 30133 STP PR.PV AND SET FOR 4K128400 30125 0621 00 0 30137 STA PR.PZ PRINT IMAGE 4K128500| 30126 0520 00 0 21420 ZET CTLIST SKIP PRINTING $4$4K128600| 30127 0020 00 0 30145 TRA PR.PZZ IF NO LIST $4$4K128700| 30130 0074 00 4 25577 TSX PRINT,4 4K128800| 30131 0020 00 0 30134 TRA *+3 $4$4K128900 30132 0 00000 0 00001 PZE 1 SKIP TO PAGE 4K129000| 30133 0 00023 1 27741 PR.PV PZE BLANX,1,19 POSITION 4K129100| 30134 0074 00 4 25577 TSX PRINT,4 4K129200| 30135 0020 00 0 30141 TRA *+4 $4$4K129300| 30136 4 00000 0 00002 PR.PW MZE 2 PRINT CARD 4K129400 30137 4 00014 0 00000 PR.PZ MZE **,,12 IMAGE 4K129500| 30140 4 00010 1 21440 MZE CDSEQ,1,8 4K129600| 30141 0074 00 4 25577 TSX PRINT,4 SKIP ONE 4K129700| 30142 0020 00 0 30145 TRA PR.PZZ $4$4K129800| 30143 0 00000 0 00001 PZE 1 LINE 4K129900 30144 0 00001 0 27741 PZE BLANKS,,1 4K130000| 1236, 30145 0074 00 4 21257 PR.PZZ CALL JOBPP(PR.PZ) PUNCH THE CARD $5$4K130100| 0BINARY CARD ID. MAPK0041| 30151 0074 00 4 30245 TSX SQADV,4 ADVANCE SEQ NO 4K130600| 30152 0774 00 4 00000 PR.PUX AXT **,4 4K130700 30153 0020 00 4 00002 TRA 2,4 4K130800| | | PRINT LEFT SIDE OF CARD 4K131000| 30154 0520 00 0 21420 PR.LFT ZET CTLIST EXIT IF $4$4K131100 30155 0020 00 4 00002 TRA 2,4 NO LIST $4$4K131200| 30156 0634 00 4 30173 SXA PR.LFX,4 SAVE RETURN $4$4K131300| 30157 0560 60 4 00001 LDQ* 1,4 PICK UP WORD TO PRINT 4K131400| 30160 4055 00 100000 SIL 100000 4K131500| 30161 0074 00 4 27463 TSX OKCVN+2,4 CONVERT LEFT HALF 4K131600 30162 0602 00 0 21461 SLW NAME 4K131700| 30163 0074 00 4 27463 TSX OKCVN+2,4 CONVERT RIGHT HALF 4K131800| 30164 0074 00 4 25577 TSX PRINT,4 4K131900| 30165 0020 00 0 30173 TRA PR.LFX $4$4K132000| 30166 0 00000 0 00004 PZE 4 PRINT 4K132100 30167 0 00016 1 27741 PZE BLANX,1,14 REQUIRED 4K132200| 30170 4 00001 0 21461 MZE NAME,,1 IMAGE 4K132300| 30171 4 00001 0 21462 MZE OPER,,1 4K132400| 30172 4 00002 1 27741 MZE BLANKS,1,2 4K132500| 30173 0774 00 4 00000 PR.LFX AXT **,4 AND 4K132600 30174 0020 00 4 00002 TRA 2,4 EXIT 4K132700| 1 IBMAPV IBMAPK 12/01/64 PAGE 393 | FILE DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| * CONSTANTS AND STORAGE 4K132900 * 4K133000| | | 30175 602631432560 FD.FLE BCI 2, FILE ' 4K133400| 0BINARY CARD ID. MAPK0042 30177 446722232460 F.MXD BCI 1,MXBCD 4K133500| 30200 446722314560 F.MXB BCI 1,MXBIN 4K133600| 30201 733145476463 F.INP BCI 1,,INPUT 4K133700| 30202 734664634764 F.OUT BCI 2,,OUTPUT 4K133800| 30204 733145466463 F.INO BCI 1,,INOUT 4K133900 30205 732342476360 F.CPT BCI 1,,CKPT 4K134000| 30206 512550302365 F.QCR BCI 1,REQHCV 4K134100| 30207 454630236545 F.NCR BCI 1,NOHCVN 4K134200| 30210 464763302365 F.OCR BCI 1,OPTHCV 4K134300| 30211 734443631360 F.MLT BCI 1,,MLT= 4K134400 30212 734431451360 F.MIN BCI 1,,MIN= 4K134500| 30213 732243421360 F.BLK BCI 1,,BLK= 4K134600| 30214 536325676360 F.TXW BCI 1,$TEXT 4K134700| 30215 216262254422 F.TXX BCI 3,ASSEMBLED TEXT. 4K134800| 30220 F.TXXE EQU * 4K134900 30220 263143256024 F.TTL BCI 3,FILE DICTIONARY. 4K135000| 30223 F.TTLE EQU * 4K135100| | 30223 FD.BUF BSS 6 BUFFER TO HOLD FDICT WORDS 4K135300| 0BINARY CARD ID. MAPK0043| 30231 532624312363 F.IMG BCI 6,$FDICT 4K135500| 30237 606060606060 BCI 6, 4K135600| 1 IBMAPV IBMAPK 12/01/64 PAGE 394 | CARD SEQUENCE NUMBER SUBROUTINE RECORD IBMAPK 0| * ROUTINE TO ADVANCE CARD SEQUENCE NUMBER. ENTER VIA (6)4K135720| * (6)4K135730| * TSX SQADV,4 (6)4K135740| * (6)4K135750 * CARD NUMBER IS 8 CHARACTERS, LEFT JUSTIFIED, STARTING (6)4K135760| * IN CELL CDSEQ. (6)4K135770| | | 30245 0634 00 4 30270 SQADV SXA SQAX,4 SAVE RETURN (6)4K135800 30246 0634 00 1 30271 SXA SQAX+1,1 (6)4K135810| 30247 0534 00 4 21442 LXA CDDIG,4 PICK UP NUMERIC COUNT (6)4K135820| 30250 6 00001 4 30273 TNX SQAB,4,1 SPECIAL FOR LESS THAN 2 DIGITS (6)4K135830| 30251 4500 00 0 21441 CAL CDSEQ+1 ADD TO (6)4K135840| 30252 4765 00 0 00030 LGR 24 LOWER TWO (6)4K135850 30253 0114 02 1 25611 CVR WBCD+1,1,2 DIGITS (6)4K135860| 30254 0771 00 0 00030 ARS 24 (6)4K135870| 30255 4765 00 0 00014 LGR 12 (6)4K135880| 30256 4600 00 0 21441 STQ CDSEQ+1 (6)4K135890| 0BINARY CARD ID. MAPK0044 30257 6 00001 4 30270 TNX SQAX,4,1 EXIT IF ONLY TWO (6)4K135900| 30260 1 11400 4 30261 TXI *+1,4,4864 (6)4K135910| 30261 4500 00 0 21440 CAL CDSEQ (6)4K135920| 30262 4634 00 4 30264 SXD *+2,4 SETUP AND ADD TO (6)4K135930| 30263 0634 00 1 30264 SXA *+1,1 REST OF (6)4K135940 30264 0114 00 0 00000 CVR **,,** DIGITS (6)4K135950| 30265 4130 00 0 00000 XCL (6)4K135960| 30266 0522 00 4 41131 XEC CRQL+4864,4 ROTATE TO CORRECT (6)4K135970| 30267 4600 00 0 21440 STQ CDSEQ FORM AND STORE (6)4K135980| 30270 0774 00 4 00000 SQAX AXT **,4 RESTORE (6)4K135990 30271 0774 00 1 00000 AXT **,1 AND EXIT (6)4K136000| 30272 0020 00 4 00001 TRA 1,4 (6)4K136010| | 30273 7 00000 4 30270 SQAB TXL SQAX,4,0 EXIT IF NO DIGITS (6)4K136030| 30274 0560 00 0 21441 LDQ CDSEQ+1 POSITION (6)4K136040 30275 4773 00 0 00006 RQL 6 LOW DIGIT (6)4K136050| 30276 4154 01 0 25611 CRQ WBCD+1,,1 TO HIGH (6)4K136060| 30277 4773 00 0 00030 RQL 24 MQ, ADD 1, (6)4K136070| 30300 4600 00 0 21441 STQ CDSEQ+1 AND STORE (6)4K136080| 30301 0020 00 0 30270 TRA SQAX BACK (6)4K136090 1 IBMAPV IBMAPK 12/01/64 PAGE 395 | PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK | 0| * SET 'PMODE' SWITCH TO DESIRED BINARY CARD FORMAT $4$4K136200| 30302 0500 00 4 00001 PUINIT CLA 1,4 PLACE DECK TYPE $4$4K136400| 30303 0767 00 0 00034 ALS 28 BITS $4$4K136500| 30304 0602 00 0 30323 SLW DKTYPE $4$4K136600| 0BINARY CARD ID. MAPK0045| 30305 0600 00 0 30536 STZ PCSQ CLEAR SEQUENCE NUMBER $4$4K136700 30306 0754 00 0 00000 PXA 0,0 SET FOR $4$4K136800| 30307 0520 00 0 21426 ZET SWABS PROPER MODE $4$4K136900| 30310 0500 00 0 21705 CLA L(1) $4$4K137000| | ENTRY FOR MODE SET ONLY $4$4K137200 30311 0340 00 0 21705 PUINIW CAS L(1) $4$4K137300| 30312 0500 00 0 21706 CLA L(2) ASSURE NOT $4$4K137400| 30313 0774 00 0 00000 AXT 0,0 GREATER THAN 2 $4$4K137500| 30314 0601 00 0 30324 STO PMODE SAVE MODE $4$4K137600| 30315 0361 00 0 30325 ACL PMTRA $4$4K137700 30316 0621 00 0 30317 STA *+1 FETCH BRANCH $4$4K137800| 30317 0500 00 0 00000 CLA ** ADDRESS AND STORE IN $4$4K137900| 30320 0621 00 0 30331 STA PUGAT MAIN TRANSFER $4$4K138000| 30321 0621 00 0 30406 STA PBNCH $4$4K138100| 30322 0020 00 4 00002 TRA 2,4 EXIT $4$4K138200 | 30323 0 00000 0 00000 DKTYPE PZE 0 DECK TYPE INDICATOR $4$4K138400| 30324 0 00000 0 00000 PMODE PZE 0 PUNCH MODE INDICATOR $4$4K138500| 30325 0 00000 0 30326 PMTRA PZE *+1 TRANSFER POINTS- $4$4K138600| 30326 0 00000 0 30431 PZE PREL RELATIVE $4$4K138700 30327 0 00000 0 30567 PZE PABST ABSOLUTE $4$4K138800| 30330 0 00000 0 30643 PZE PFUL FULL $4$4K138900| | * TRANSFER TO APPROPRIATE PUNCH GATHERING ROUTINE $4$4K139100| 30331 0020 00 0 30431 PUGAT TRA PREL MAIN BRANCH (MODIFIED). $4$4K139300| | * EMPTY PUNCH BUFFER $4$4K139500| | 30332 0500 00 0 30324 PLAST CLA PMODE EMPTY $4$4K139700 0BINARY CARD ID. MAPK0046| 30333 4340 00 0 21705 LAS L(1) PUNCH BUFFER $4$4K139800| 30334 0020 00 0 30656 TRA PFL4 PUNCH 'FUL' CARD $4$4K139900| 30335 0020 00 0 30611 TRA PAB4 PUNCH 'ABS' CARD $4$4K140000| 30336 0020 00 0 30464 TRA PCK PUNCH 'RELATIVE CARD $4$4K140100 | * PRINT 'BINARY CARD NO XXXXXXXX' $4$4K140300| | 30337 0520 00 0 30430 PBNCD ZET LBLSW DON'T PRINT IF LBL $4$4K140500| 30340 0020 00 4 00001 TRA 1,4 SWITCH OFF $4$4K140600 30341 0500 00 0 21456 CLA KLPRNT SPECIAL ACTION $4$4K140700| 30342 4100 00 0 30377 TNZ PBNCF IF NO PRINTING $4$4K140800| 30343 0634 00 4 30363 SXA PBNEX,4 SAVE RETURN $4$4K140900| 30344 4520 00 0 21263 NZT KLPNCH $4$4K141000| 30345 0020 00 0 30352 TRA PBNCE $4$4K141100 30346 0074 00 4 25577 TSX PRINT,4 IF UNPNCH ON, PRINT $4$4K141200| 1 IBMAPV IBMAPK 12/01/64 PAGE 396 | PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK | 0 30347 0020 00 0 30357 TRA PBNCM (6)4K141300| 30350 0 00000 0 00001 PZE 1 'BINARY CARD $4$4K141400 30351 2 00031 1 30423 PTW PBK,1,25 (NOT PUNCHED)' $4$4K141500| 30352 0074 00 4 25577 PBNCE TSX PRINT,4 PRINT (6)4K141600| 30353 0020 00 0 30357 TRA PBNCM (6)4K141700| 30354 0 00000 0 00002 PZE 2 'BINARY $4$4K141800| 30355 2 00020 1 30420 PTW PBH,1,16 CARD ID. $4$4K141900 30356 4 00010 1 21440 MZE CDSEQ,1,8 XXXXXXXX' $4$4K142000| 30357 0500 00 0 30324 PBNCM CLA PMODE PICK UP PUNCH MODE (6)4K142010| 30360 0402 00 0 21706 SUB L(2) (6)4K142020| 0BINARY CARD ID. MAPK0047| 30361 0520 00 0 30700 ZET PUNCTR IS LOC IN EFFECT (6)4K142030 30362 4100 00 0 30365 TNZ PBNCL TRANSFER IF SO AND NOT FUL MODE (6)4K142040| 30363 0774 00 4 00000 PBNEX AXT **,4 RESTORE INDEX 4 $4$4K142100| 30364 0020 00 4 00001 TRA 1,4 AND RETURN $4$4K142200| | 30365 4500 60 0 37013 PBNCL CAL* RCTR GET CURRENT LOCATION COUNTER (6)4K142310 30366 0402 00 0 21705 SUB L(1) (6)4K142315| 30367 0402 00 0 30700 SUB PUNCTR MINUS LOC DECREMENT (6)4K142320| 30370 4765 00 0 00017 LGR 15 (6)4K142325| 30371 0074 00 4 27467 TSX OKCVF,4 CONVERT TO OCTAL (6)4K142330| 30372 0074 00 4 25577 TSX PRINT,4 AND (6)4K142335 30373 0020 00 0 30363 TRA PBNEX PRINT (6)4K142340| 30374 0 00000 0 00002 PZE 2 (6)4K142350| 30375 4 00020 1 30415 MZE PBL,1,16 LOAD ADDRESS $5$4K142360| 30376 4 00005 2 21462 MZE OPER,2,5 XXXXX' $5$4K142370| $5$4K142380 TO HERE IF NOT PRINTING $4$4K142400| 30377 0771 00 0 00017 PBNCF ARS 15 EXIT IF NOT $4$4K142500| 30400 4100 00 4 00001 TNZ 1,4 TEMPORARY CONDITION $4$4K142600| 30401 0500 00 0 30404 CLA PBNCG SET PUGAT $4$4K142700| 30402 0621 00 0 30331 STA PUGAT BLOCK TO TEST $4$4K142800 30403 0020 00 4 00001 TRA 1,4 EACH WORD $4$4K142900| 30404 0 00000 0 30405 PBNCG PZE *+1 $4$4K143000| 30405 0520 00 0 21456 ZET KLPRNT GO TO GATHER IF STILL $4$4K143100| 30406 0020 00 0 30431 PBNCH TRA PREL NOT PRINTING (MODIF ADDR) $4$4K143200| 0BINARY CARD ID. MAPK0048 30407 0634 00 4 30411 SXA *+2,4 OTHERWISE, $4$4K143300| 30410 0074 00 4 30337 TSX PBNCD,4 PRINT ID, $4$4K143400| 30411 0774 00 4 00000 AXT **,4 RESTORE PUGAT, $4$4K143500| 30412 0500 00 0 30406 CLA PBNCH AND GO ABOUT $4$4K143600| 30413 0621 00 0 30331 STA PUGAT NORMAL $4$4K143700 30414 0020 60 0 30331 TRA* PUGAT BUSINESS $4$4K143800| | 30415 606060434621 PBL BCI 3, LOAD ADDRESS $5$4K143950| 30420 223145215170 PBH BCI 3,BINARY CARD ID. $4$4K144000| 30423 223145215170 PBK BCI 5,BINARY CARD (NOT PUNCHED) $4$4K144100 30430 0 00000 0 00000 LBLSW PZE 0 SWITCH FOR ID PRINT $4$4K144200| | * PUNCH GATHERING ROUTINE FOR RELATIVE BINARY CARDS $4$4K144400| | 30431 0634 00 4 30454 PREL SXA PGT5,4 SAVE RETURN ADDRESS $4$4K144600 30432 0774 00 4 00000 PGT2 AXT **,4 CURRENT WORD COUNT -1 $4$4K144700| 30433 3 00000 4 30441 TXH PGT3,4,0 TEST FOR NEW CARD $4$4K144800| 1 IBMAPV IBMAPK 12/01/64 PAGE 397 | PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK | 0 30434 0074 00 4 30337 TSX PBNCD,4 PRINT HEADING IF SO (6)4K144900 0BINARY CARD ID. MAPK0049| 30435 0600 00 0 30541 STZ PNBF+2 CLEAR CONTROL $4$4K145000| 30436 0600 00 0 30542 STZ PNBF+3 GROUP CELLS $4$4K145100| 30437 0600 00 0 30543 STZ PNBF+4 $4$4K145200| 30440 0774 00 4 00000 AXT 0,4 SET ZERO COUNT $4$4K145300 30441 1 77777 4 30442 PGT3 TXI *+1,4,-1 BUMP WORD COUNT BY 1 $4$4K145400| 30442 0634 00 4 30432 SXA PGT2,4 AND STORE IN 'PGT2' $4$4K145500| 30443 0500 00 0 43445 CLA PCTRL GET CONTROL GROUP $4$4K145600| 30444 4320 00 0 21727 ANA MSKLO ISOLATE CONTROL GROUP $4$4K145700| 30445 0560 00 0 30676 LDQ RDATA GET DATA WORD $4$4K145800 30446 3 77770 4 30456 TXH PGT6,4,-8 TEST FOR WORD COUNT 1-7 $4$4K145900| 30447 3 77761 4 30461 TXH PGT7,4,-15 TEST FOR WORD COUNT 8-14 $4$4K146000| 30450 0522 00 4 30507 XEC PTABL-15,4 POSITION CONTROL GROUP $4$4K146100| 30451 4602 00 0 30543 ORS PNBF+4 AND STORE IN IMAGE $4$4K146200| 30452 4600 00 4 30543 PGT4 STQ PNBF+4,4 STORE DATA WORD IN IMAGE $4$4K146300 30453 7 77755 4 30465 TXL PCKS,4,-19 TRANSFER IF BUFFER IS FULL $4$4K146400| 30454 PAB5 NULL (6)4K146410| 30454 PFL5 NULL (6)4K146420| 30454 0774 00 4 00000 PGT5 AXT **,4 RESTORE INDEX 4 $4$4K146500| 30455 0020 00 4 00001 TRA 1,4 AND RETURN $4$4K146600 30456 0522 00 4 30525 PGT6 XEC PTABL-1,4 POSITION CONTROL GROUP $4$4K146700| 30457 4602 00 0 30541 ORS PNBF+2 WORDS 1-7 $4$4K146800| 30460 0020 00 0 30452 TRA PGT4 GO TO STORE DATA WORD $4$4K146900| 30461 0522 00 4 30516 PGT7 XEC PTABL-8,4 POSITION CONTROL GROUP $4$4K147000| 30462 4602 00 0 30542 ORS PNBF+3 WORDS 15-19 $4$4K147100 0BINARY CARD ID. MAPK0050| 30463 0020 00 0 30452 TRA PGT4 GO TO STORE DATA WORD $4$4K147200| | * PUNCH RELATIVE CARD BUFFER $4$4K147400| 30464 0634 00 4 30454 PCK SXA PGT5,4 STORE RETURN ADDRESS $4$4K147600| 30465 0535 00 4 30432 PCKS LAC PGT2,4 GET DATA WORD COUNT $4$4K147700| 30466 7 00000 4 30454 TXL PGT5,4,0 EXIT IF 0 $4$4K147800| 30467 0754 00 4 00000 PXA ,4 FROM 'PGT3' $4$4K147900| 30470 0737 00 4 00000 PAC 0,4 $4$4K148000 30471 0361 00 0 21707 ACL L(3) ADD CONTROL GROUP WORDS (3) $4$4K148100| 30472 0767 00 0 00022 ALS 18 SHIFT INTO DECREMENT $4$4K148200| 30473 0361 00 0 30536 ACL PCSQ ADD SEQUENCE NUMBER $4$4K148300| 30474 0361 00 0 30323 ACL DKTYPE ADD DECK TYPE NUMBER $4$4K148400| 30475 0361 00 0 30535 ACL DM9L ADD DUMMY 9L ROW $4$4K148500 30476 0602 00 0 30537 SLW PNBF STORE IN FIRST BUFFER WORD $4$4K148600| 30477 1 00023 4 30500 TXI *+1,4,19 IF FEWER THAN $4$4K148700| 30500 7 00000 4 30503 TXL *+3,4,0 19 WORDS, FILL $4$4K148800| 30501 0600 00 4 30567 STZ PNBF+24,4 REMAINDER OF CARD $4$4K148900| 30502 2 00001 4 30501 TIX *-1,4,1 WITH ZEROES. $4$4K149000 30503 0774 00 4 00026 AXT 22,4 FORM LOGICAL CHECKSUM $4$4K149100| 30504 0361 00 4 30567 ACL PNBF+24,4 OF 9L ROW AND ALL $4$4K149200| 30505 2 00001 4 30504 TIX *-1,4,1 DATA WORDS $4$4K149300| 30506 0602 00 0 30540 SLW PNBF+1 STORE CHECKSUM IN 9R $4$4K149400| 30507 0500 00 0 30536 CLA PCSQ BUMP $4$4K149500 30510 0361 00 0 21705 ACL L(1) SEQUENCE NUMBER $4$4K149600| 0BINARY CARD ID. MAPK0051| 1 IBMAPV IBMAPK 12/01/64 PAGE 398 | PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK | 0 30511 0602 00 0 30536 SLW PCSQ BY 1 $4$4K149700 30512 0634 00 0 30432 ZSA PGT2 RESET COUNTER (6)4K149800| 1482, 30513 0074 00 4 21257 PCKK CALL JOBPP(PLIST) OUTPUT BINARY CARD IMAGE (6)4K150300| 30517 0520 00 0 21416 ZET SWBUFF **DUMP PUNCH BUFFER $4$4K150400| 30520 0074 00 4 30667 TSX BUFPRT,4 ****IF 'BUFFER OPTION $4$4K150500| 30521 4520 00 0 21263 NZT KLPNCH IF PUNCHING, $4$4K150600 30522 0074 00 4 30245 TSX SQADV,4 ADVANCE SEQUENCE NUMBER $4$4K150700| 30523 0500 00 0 30406 CLA PBNCH ENSURE SUSPENDED LBL (6)4K150710| 30524 0621 00 0 30331 STA PUGAT SWITCH IS RESET (6)4K150720| 30525 0020 00 0 30454 TRA PGT5 AND RETURN $4$4K150800| 30526 0767 00 0 00036 PTABL ALS 30 R1,R8,R15 $4$4K151000| 30527 0767 00 0 00031 ALS 25 R2,R9,R16 $4$4K151100| 30530 0767 00 0 00024 ALS 20 R3,R10,R17 $4$4K151200| 30531 0767 00 0 00017 ALS 15 R4,R11,R18 $4$4K151300| 30532 0767 00 0 00012 ALS 10 R5,R12,R19 $4$4K151400 30533 0767 00 0 00005 ALS 5 R6,R13 $4$4K151500| 30534 0767 00 0 00000 ALS 0 R7,R14 $4$4K151600| 30535 600500000000 DM9L OCT 600500000000 DUMMY 9L ROW $4$4K151700| 30536 0 00000 0 00000 PCSQ PZE 0 SEQUENCE NUMBER $4$4K151800| 30537 PNBF BSS 24 PUNCH BUFFER $4$4K151900 | * PUNCH GATHERING ROUTINE FOR 'ABS' CARDS $4$4K152100| | 0BINARY CARD ID. MAPK0052| 30567 0634 00 4 30454 PABST SXA PAB5,4 SAVE RETURN ADDRESS $4$4K152300 30570 0774 00 4 00000 PAB2 AXT **,4 CURRENT WORD COUNT $4$4K152400| 30571 3 00000 4 30603 TXH PAB3,4,0 TEST FOR NEW CARD $4$4K152500| 30572 4500 60 0 37013 CAL* RCTR VALUE OF CURRENT LOCATION COUNTER $5$4K152600| 30573 0520 00 0 30700 ZET PUNCTR IS LOC IN EFFECT $5$4K152700| 30574 0402 00 0 30700 SUB PUNCTR YES,SUB DIFF FROM ACTUAL LOAD ADD $5$4K152750 30575 0402 00 0 21705 SUB L(1) OF CURRENT LOCATION COUNTER $4$4K152800| 30576 0634 00 0 30642 SXA ABS9L,0 $4$4K152900| 30577 0520 00 0 21426 ZET SWABS IF ABSOLUTE ASSEMBLY, $4$4K153000| 30600 0621 00 0 30642 STA ABS9L STORE IN DUMMY 9 LEFT WORD $4$4K153100| 30601 0074 00 4 30337 TSX PBNCD,4 PRINT CARD HEADING (6)4K153110 30602 0774 00 4 00000 AXT 0,4 BUMP WORD COUNT $4$4K153200| 30603 1 77777 4 30604 PAB3 TXI *+1,4,-1 BY 1 $4$4K153300| 30604 0634 00 4 30570 SXA PAB2,4 STORE IN 'PAB2' $4$4K153400| 30605 0560 00 0 30676 LDQ RDATA GET DATA WORD $4$4K153500| 30606 4600 00 4 30540 STQ PNBF+1,4 STORE DATA WORD IN PUNCH BUFFER $4$4K153600 30607 7 77752 4 30612 TXL PAB4A,4,-22 TRANSFER IF BUFFER FULL $4$4K153700| 30610 0020 00 0 30454 TRA PAB5 (6)4K153800| | * PUNCH ABSOLUTE CARD BUFFER $4$4K154100| 30611 0634 00 4 30454 PAB4 SXA PAB5,4 STORE RETURN ADDRESS $4$4K154300| 30612 0535 00 4 30570 PAB4A LAC PAB2,4 GET CURRENT WORD COUNT $4$4K154400| 30613 7 00000 4 30454 TXL PAB5,4,0 EXIT IF 0 $4$4K154500| 30614 4754 00 4 00000 PAB4C PXD 0,4 STORE WORD COUNT IN $4$4K154600| 0BINARY CARD ID. MAPK0053 30615 4737 00 4 00000 PDC 0,4 LOW ORDER DECREMENT $4$4K154700| 30616 0601 00 0 30540 STO PNBF+1 SAVE WORD COUNT $4$4K154800| 30617 0361 00 0 30642 ACL ABS9L TAG FIELD OF '9 LEFT' $4$4K154900| 1 IBMAPV IBMAPK 12/01/64 PAGE 399 | PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK 0 30620 0361 00 0 30323 ACL DKTYPE ADD DECK TYPE NUMBER $4$4K155000| 30621 4520 00 0 21426 NZT SWABS ADD SEQUENCE NO $4$4K155100| 30622 0361 00 0 30536 ACL PCSQ IF RELOCATABLE $4$4K155200| 30623 0602 00 0 30537 SLW PNBF STORE FINAL '9 LEFT' WORD $4$4K155300| 30624 1 00026 4 30625 TXI *+1,4,22 IF FEWER THAN $4$4K155400 30625 7 00000 4 30630 TXL *+3,4,0 22 WORDS, FILL $4$4K155500| 30626 0600 00 4 30567 STZ PNBF+24,4 REMAINDER OF CARD $4$4K155600| 30627 2 00001 4 30626 TIX *-1,4,1 WITH ZEROES. $4$4K155700| 30630 0774 00 4 00026 AXT 22,4 FOR 'ACL' 36 BIT $4$4K155800| 30631 0361 00 4 30567 ACL PNBF+24,4 CHECK SUM OF ALL BUT $4$4K155900 30632 2 00001 4 30631 TIX *-1,4,1 '9 RIGHT' WORD $4$4K156000| 30633 0520 00 0 30540 ZET PNBF+1 STORE CHECKSUM IF $4$4K156100| 30634 0602 00 0 30540 SLW PNBF+1 NOT ZERO WORD COUNT $4$4K156200| 30635 4500 00 0 30536 CAL PCSQ BUMP $4$4K156300| 30636 0361 00 0 21705 ACL L(1) SEQUENCE COUNT $4$4K156400 30637 0602 00 0 30536 SLW PCSQ $4$4K156500| 30640 0634 00 0 30570 ZSA PAB2 RESET COUNTER (6)4K156600| 30641 0020 00 0 30513 TRA PCKK AND OUTPUT CARD IMAGE (6)4K156700| 30642 000500000000 ABS9L OCT 000500000000 DUMMY '9 LEFT' WORD $4$4K157700| * PUNCH GATHERING ROUTINE FOR 'FUL' CARDS $4$4K157900| | 0BINARY CARD ID. MAPK0054| 30643 0634 00 4 30454 PFUL SXA PFL5,4 SAVE RETURN $4$4K158100| 30644 0774 00 4 00000 PFL2 AXT **,4 CURRENT WORD COUNT-1 $4$4K158200 30645 3 00000 4 30650 TXH PFL3,4,0 TEST FOR FIRST WORD $4$4K158300| 30646 0074 00 4 30337 TSX PBNCD,4 PRINT HEADING (6)4K158400| 30647 0774 00 4 00000 AXT 0,4 BUMP POINTER $4$4K158500| 30650 1 77777 4 30651 PFL3 TXI *+1,4,-1 TO LOCATE NEXT WORD $4$4K158600| 30651 0634 00 4 30644 SXA PFL2,4 IN PUNCH BUFFER $4$4K158700 30652 0560 00 0 30676 LDQ RDATA GET DATA WORD $4$4K158800| 30653 4600 00 4 30536 STQ PNBF-1,4 STORE DATA WORD IN BUFFER $4$4K158900| 30654 3 77750 4 30454 TXH PFL5,4,-24 TRANSFER IF BUFFER NOT FULL $4$4K159000| 30655 0534 00 4 30454 LXA PFL5,4 GET RETURN ADDRESS $4$4K159100| * PUNCH 'FUL' CARD BUFFER $4$4K159300| | 30656 0634 00 4 30454 PFL4 SXA PFL5,4 SAVE RETURN ADDRESS $4$4K159500| 30657 0534 00 4 30644 LXA PFL2,4 GET WORD COUNT $4$4K159600| 30660 7 00000 4 30454 TXL PFL5,4,0 EXIT IF 0 $4$4K159700 30661 1 00030 4 30662 TXI *+1,4,24 IF FEWER THAN $4$4K159800| 30662 7 00000 4 30665 TXL *+3,4,0 24 WORDS, FILL $4$4K159900| 30663 0600 00 4 30567 STZ PNBF+24,4 REMAINDER OF CARD $4$4K160000| 30664 2 00001 4 30663 TIX *-1,4,1 WITH ZEROES $4$4K160100| 30665 0634 00 0 30644 ZSA PFL2 RESET COUNTER (6)4K160200 30666 0020 00 0 30513 TRA PCKK AND OUTPUT CARD IMAGE (6)4K160300| | * PUNCH BUFFER DUMP $4$4K161500| 30667 0634 00 4 30672 BUFPRT SXA BUFPRX,4 **REMOVE WITH $4$4K161600| 30670 0074 00 4 21265 TSX LILDMP,4 **SWBUFF $4$4K161700 0BINARY CARD ID. MAPK0055| 30671 0 30566 0 30537 PZE PNBF,,PNBF+23 ** $4$4K161800| 30672 0774 00 4 00000 BUFPRX AXT **,4 ** $4$4K161900| 30673 0020 00 4 00001 TRA 1,4 ** $4$4K162000| 1 IBMAPV IBMAPK 12/01/64 PAGE 400 PUNCHING ROUTINES PHASE 2 - RECORD IBMAPK | 0 | CARD PUNCH LIST $4$4K162200| 30674 0 00030 0 30537 PLIST PZE PNBF,,24 $4$4K162300| 30675 4 00002 0 21440 MZE CDSEQ,,2 $4$4K162400 30676 0 00000 0 00000 RDATA PZE 0 CURRENT DATA WORD $4$4K162500| 30677 532442254524 TXEND BCI 1,$DKEND $4$4K162510| 30700 0 00000 0 00000 PUNCTR PZE 0 CURRENT LOC ORG-ITS LOAD ADDRESS $5$4K162520| 1 IBMAPV IBMAPK 12/01/64 PAGE 401 | PUNCH DEBUGGING DICTIONARY $4$ 0| * $4$4K162700| * DEBUGGING ROUTINES $4$4K162800| * $4$4K162900| 30701 0600 00 0 43445 SBMOD STZ PCTRL $4$4K163000 30702 4734 00 4 00000 PDX 0,4 $4$4K163100| 30703 3 00035 4 36552 TXH 3R31+1,4,29 RETURN IF MODE NOT AFFECTED $4$4K163200| 30704 3 00032 4 30721 TXH 3R32,4,26 TRANSFER IF FURTHER $4$4K163300| * ANALYSIS IS NEEDED $4$4K163400| 30705 0754 00 4 00000 PXA 0,4 $4$4K163500 30706 0340 00 0 30753 SBMOD1 CAS CMODE $4$4K163600| 30707 0020 00 0 30711 TRA *+2 $4$4K163700| 30710 0020 00 0 31557 TRA 3R321 SAME MODE, EXIT (1)4K163800| 30711 0621 00 0 30753 STA CMODE CHANGE MODE $4$4K163900| 30712 0621 00 0 30754 STA SB01 BUILD UP WORD $4$4K164000 30713 4500 60 0 37013 CAL* RCTR LOCATION COUNTER VALUE $4$4K164100| 30714 0625 00 0 30754 STT SB01 $4$4K164200| 30715 0767 00 0 00022 ALS 18 $4$4K164300| 30716 4501 00 0 30754 ORA SB01 $4$4K164400| 0BINARY CARD ID. MAPK0056 30717 0074 00 4 31016 TSX SBOUT,4 OUTPUT THIS VALUE $4$4K164500| 30720 0020 00 0 31557 TRA 3R321 BEFORE RETURNING, CHECK LINKAGE SW(1)4K164600| 30721 0500 00 2 00000 3R32 CLA 0,2 ADJECTIVE CODE $4$4K164700| 30722 7 00034 4 30742 TXL 3R33,4,28 TRANSFER IF NOT DATA GENERATING $4$4K164800| 30723 4320 00 0 31550 ANA 7DECR $4$4K164900 30724 4737 00 4 00000 PDC 0,4 $4$4K165000| 30725 0020 00 4 30726 TRA *+1,4 $4$4K165100| 30726 0020 00 0 30706 TRA SBMOD1 OCTAL $4$4K165200| 30727 0020 00 0 30734 TRA 3R322 DECIMAL $4$4K165300| 30730 0020 00 0 30740 TRA 3R324 HOLLERITH $4$4K165400 30731 0020 00 0 30732 TRA *+1 LIT $4$4K165500| 30732 4754 00 0 00000 PXD 0,0 VFD $4$4K165600| 30733 0020 00 0 30706 TRA SBMOD1 $4$4K165700| 30734 4046 00 0 00000 3R322 PIA EXTRACT $4$4K165800| 30735 0771 00 0 00030 ARS 24 $4$4K165900 30736 4320 00 0 21727 ANA MSKLO CODE $4$4K166000| 30737 0020 00 0 30706 TRA SBMOD1 $4$4K166100| 30740 0500 00 0 21712 3R324 CLA L(6) $4$4K166200| 30741 0020 00 0 30706 TRA SBMOD1 $4$4K166300| 30742 7 00033 4 30746 3R33 TXL 3R34,4,27 TRANSFER IF 42 TYPE $4$4K166400 * NO, THIS IS A 64 ADJECTIVE CODE $4$4K166500| * DETERMINE IF DEBUGGING TYPE BSS OR BES. $4$4K166600| 30743 0056 00 600000 RNT 600000 $4$4K166700| 30744 0020 00 0 31554 TRA 3R333 TEST FOR THE LINKAGE DIRECTOR (1)4K166800| * SPECIAL DEBUGGING TYPE FOLLOWS, THEREFORE $4$4K166900 * MODE CHANGE IS NOT WANTED $4$4K167000| 0BINARY CARD ID. MAPK0057| 30745 0020 00 0 36552 TRA 3R31+1 RETURN $4$4K167100| 30746 0441 00 2 00000 3R34 LDI 0,2 $4$4K167200| 30747 0500 00 0 21706 CLA L(2) ASSUME TAPE COMMAND $4$4K167300 30750 0054 00 100000 RFT 100000 $4$4K167400| 30751 4754 00 0 00000 PXD 0,0 MAY BE CHANGED TO ALS 2 $4$4K167500| 30752 0020 00 0 30706 TRA SBMOD1 $4$4K167600| 30753 0 00000 0 30753 CMODE PZE * $4$4K167700| 1 IBMAPV IBMAPK 12/01/64 PAGE 402 PUNCH DEBUGGING DICTIONARY $4$ | 0 * SB01 IS USED TO BUILD UP MODE CHANGE $4$4K167800| * INFORMATION. THIS IS OUTPUT IN THE FORM OF $4$4K167900| * 3/1,15/REL.LOC.,2/0,1/R,15/MODE $4$4K168000| * R=1 IF THIS IS UNDER A RELATIVE LOCATION COUNTER. $4$4K168100 30754 100000000000 SB01 VFD 3/1,15/**,3/0,15/** $4$4K168200| * CODE 70 FOR DEBUGGING TYPE $4$4K168300| * BSS AND EQU $4$4K168400| * ENTRIES ARE 6/70,12/ADDRESS CODE,1/C,1/E,1/0,15/X $4$4K168500| * X IS EITHER MODE, NAME TABLE LOCATION, OR DIMENSION $4$4K168600 * C=0 IF THIS ENTRY IS THE LAST OF THE SERIES $4$4K168700| * C=1 IF THERE ARE MORE TO FOLLOW $4$4K168800| * E=1 IF THIS IS AN EQUAL TYPE. $4$4K168900| * I ASSUME THE ORDER OF MODE, NAME TABLE LOCATION $4$4K169000| * DIMENSION1, DIMENSION2, AND DIMENSION3. $4$4K169100 30755 4046 00 0 00000 RAC70 PIA $4$4K169200| * THE RELATIVE LOCATION HAS BEEN SET UP $4$4K169300| * BY THE BSS EQU ROUTINES IN SB02 (DECREMENT) $4$4K169400| 30756 0056 00 200000 RNT 200000 TEST IF EQUAL $4$4K169500| 30757 0621 00 0 30753 STA CMODE $4$4K169600 30760 0625 00 0 30775 STT SB02 CONTINUATION AND EQUAL INDICATORS $4$4K169700| * RELTST WAS PRESET BY EITHER THE BSS, BES, OR EQU ROUTUNE. $4$4K169800| 30761 4500 00 0 31553 CAL RELTST RELATIVE INDICATION $4$4K169900| 30762 4501 00 0 30775 ORA SB02 $4$4K170000| 30763 0074 00 4 31016 TSX SBOUT,4 OUTPUT SB02 $4$4K170100 30764 4774 00 1 30766 AXC RAK70,1 SET UP OTHER ENTRIES $4$4K170200| 30765 0634 00 1 41151 SXA CAR70,1 X $4$4K170300| 30766 4046 00 0 00000 RAK70 PIA $4$4K170400| 30767 0074 00 4 31016 TSX SBOUT,4 OUTPUT MODE,NTL, OR D1M. $4$4K170500| 30770 0054 00 400000 RFT 400000 ANY MORE FOLLOW $4$4K170600 30771 0020 00 0 36537 TRA 3R12 YES, GET NEXT 70 WORD $4$4K170700| 30772 4774 00 1 30755 AXC RAC70,1 NO, RESTORE $4$4K170800| 0BINARY CARD ID. MAPK0058| 30773 0634 00 1 41151 SXA CAR70,1 $4$4K170900| 30774 0020 00 0 36537 TRA 3R12 $4$4K171000 * $4$4K171100| * INTERMEDIATE OUTPUT OF BSS AND EQU TYPES $4$4K171200| * ALL OF THE ENTRIES ARE OUTPUT UNCHANGED $4$4K171300| * AFTER THE SB02 WORD. $4$4K171400| * THE SB02 WORD HAS THE FOLLOWING FORMAT. $4$4K171500 * 3/1,15/REL LOC,1/1,1/E,1/R,15/**. BEFORE THE SORT $4$4K171600| * THE ADDRESS IS CHANGED TO EXTENSION LOCATION. $4$4K171700| 30775 100000000000 SB02 VFD 3/1,15/**,3/**,15/** $4$4K171800| * PROCESSING OF KEEP ENTRY $4$4K171900| * KEEP A,B,C,D,...,N $4$4K172000 | | * OPERATION ENTRY $4$4K172200| | 30776 4625 00 0 31015 SK77A STL SBDICT $4$4K172400| 30777 0074 00 1 36662 TSX 3R16P,1 CONVERT BLINK $4$4K172500| 31000 0074 00 1 36635 TSX 3R16K,1 PRINT COMMENTARY $4$4K172600| 31001 0522 00 0 36537 SK77B XEC 3R12 GET $4$4K172700| 31002 2 00001 4 31004 TIX *+2,4,1 A $4$4K172800 31003 1 31003 4 36406 TXI RTXT2,4,* PARAMETER $4$4K172900| 1 IBMAPV IBMAPK 12/01/64 PAGE 403 | PUNCH DEBUGGING DICTIONARY $4$ | 0 31004 0634 00 4 36537 SXA 3R12,4 $4$4K173000| 31005 0441 60 0 36471 LDI* OPB X $4$4K173100 31006 4046 00 0 00000 PIA $4$4K173200| 31007 4320 00 0 21723 ANA MSKAD $4$4K173300| 31010 0100 00 0 31012 TZE *+2 $4$4K173400| 31011 0074 00 4 31016 TSX SBOUT,4 OUTPUT PZE NAME-TABLE-LOC $4$4K173500| 31012 4056 00 000200 LNT 000200 TEST IF LAST PARAMETER $4$4K173600 31013 0020 00 0 36537 TRA 3R12 YES $4$4K173700| 31014 0020 00 0 31001 TRA SK77B NO, GET NEXT PARAMETER $4$4K173800| 31015 0 00000 0 00000 SBDICT PZE ** 'DICT' INDICATOR $4$4K173900| * WRITE OUT ONTO SPILL FILE $4$4K174000| * $4$4K174100 31016 0602 00 0 31542 SBOUT SLW SER17 SAVE ACC $4$4K174200| 31017 0634 00 4 31033 SXA SBXR4,4 $4$4K174300| 31020 0774 00 4 00000 SBOU2 AXT 0,4 INITIAL VALUE IS ZERO $4$4K174400| 0BINARY CARD ID. MAPK0059| 31021 2 00001 4 31026 TIX SBOU1,4,1 IS BUFFER FULL $4$4K174500 31022 0074 00 4 25600 TSX INFIN,4 YES, GET $4$4K174600| 31023 0 00000 0 21624 PZE CTPSBF ANOTHER BUFFER $4$4K174700| 31024 0621 00 0 31027 STA SBOU1+1 $4$4K174800| 31025 4734 00 4 00000 PDX 0,4 NUMBER OF WORDS IN BUFFER $4$4K174900| 31026 4500 00 0 31542 SBOU1 CAL SER17 $4$4K175000 31027 0602 00 4 00000 SLW **,4 $4$4K175100| 31030 0634 00 4 31020 SXA SBOU2,4 SAVE POSITION $4$4K175200| 31031 6 00001 4 31033 TNX *+2,4,1 $4$4K175300| 31032 0600 60 0 31027 STZ* SBOU1+1 INDICATE LAST $4$4K175400| 31033 0774 00 4 00000 SBXR4 AXT **,4 $4$4K175500 31034 0020 00 4 00001 TRA 1,4 $4$4K175600| | | | | | 31035 0634 00 4 31333 ROACH SXA NAM.12+1,4 $4$4K176000| 31036 0074 00 4 31103 SAB01 TSX SBIN,4 GET A WORD $4$4K176100| 31037 0100 00 0 31116 TZE BSOU3 LAST ENTRY $4$4K176200 31040 0044 00 0 00000 PAI $4$4K176300| 31041 4056 00 100000 LNT 100000 TEST IF KEEP ENTRY $4$4K176400| 31042 0020 00 0 31050 TRA SAB05-2 YES $4$4K176500| 31043 0056 00 100000 RNT 100000 $4$4K176600| 31044 4501 00 0 31551 ORA PTW INDICATE ABSOLUTE $4$4K176700 * THE PREFIX OF THE ITEM CONTAINING THE RELATIVE $4$4K176800| * LOCATION IS CHANGED TO 3 IF THE ITEM IS ABSOLUTE $4$4K176900| * THEREFORE THE ABSOLUTE ITEM WILL BE AT THE END $4$4K177000| * AFTER SORTING. $4$4K177100| 31045 0044 00 0 00000 PAI $4$4K177200 31046 0054 00 400000 RFT 400000 $4$4K177300| 0BINARY CARD ID. MAPK0060| 31047 0020 00 0 31052 TRA SAB05 $4$4K177400| 31050 0074 00 4 31065 TSX ENFOW,4 ENTER FORWARD $4$4K177500| 31051 0020 00 0 31036 TRA SAB01 GET NEXT ENTRY $4$4K177600 31052 4534 00 4 31071 SAB05 LXD ENFO1,4 $4$4K177700| 31053 0754 00 4 00000 PXA 0,4 COMPLEMENT OF $4$4K177800| 1 IBMAPV IBMAPK 12/01/64 PAGE 404 | PUNCH DEBUGGING DICTIONARY $4$ | 0 31054 0057 00 077777 RIR 77777 EXTENSION LOCATION $4$4K177900 31055 0043 00 0 00000 OAI REPLACES MODE $4$4K178000| 31056 0074 00 4 31065 TSX ENFOW,4 $4$4K178100| 31057 0074 00 4 31103 SAB06 TSX SBIN,4 GET NEXT ITEM $4$4K178200| 31060 0044 00 0 00000 PAI $4$4K178300| 31061 0074 00 4 31076 TSX ENBAK,4 $4$4K178400 31062 0054 00 400000 RFT 400000 $4$4K178500| 31063 0020 00 0 31057 TRA SAB06 $4$4K178600| 31064 0020 00 0 31036 TRA SAB01 $4$4K178700| * ENTRIES TO BE SORTED ARE STORED FORWARD IN $4$4K178800| * SBTBL. EXTENSIONS ARE STORED BACKWARDS $4$4K178900 31065 0774 00 2 42753 ENFOW AXT -SRTBL+1,2 $4$4K179000| 31066 1 77777 2 31067 TXI *+1,2,-1 $4$4K179100| 31067 0634 00 2 31065 SXA *-2,2 $4$4K179200| 31070 0604 00 2 00000 STI 0,2 $4$4K179300| 31071 3 25154 2 31075 ENFO1 TXH *+4,2,-SRTBLE+3 $4$4K179400 31072 0074 00 4 25576 TSX ERPR,4 DEBUGGING TABLE $4$4K179500| 31073 0 00000 1 00140 PZE MSS052,GO OVERFLOW DEBUGGING $4$4K179600| 31074 0020 00 0 31333 TRA NAM.12+1 IGNORED $4$4K179700| 0BINARY CARD ID. MAPK0061| 31075 0020 00 4 00001 TRA 1,4 $4$4K179800 * ENTER BACKWARDS $4$4K179900| 31076 4534 00 2 31071 ENBAK LXD ENFO1,2 $4$4K180000| 31077 0604 00 2 00000 STI 0,2 $4$4K180100| 31100 1 00001 2 31101 TXI *+1,2,1 STEP UP FOR $4$4K180200| 31101 4634 00 2 31071 SXD ENFO1,2 NEXT ENTRY $4$4K180300 31102 0020 00 4 00001 TRA 1,4 $4$4K180400| * READ IN A WORD $4$4K180500| * FROM THE SPILL FILE. $4$4K180600| 31103 0634 00 4 31114 SBIN SXA BSXR4,4 $4$4K180700| 31104 0774 00 4 00000 BSOU2 AXT 0,4 INITIAL VALUE ZERO $4$4K180800 31105 2 00001 4 31112 TIX BSOU1,4,1 ANY WORDS IN BUFFER $4$4K180900| 31106 0074 00 4 25601 TSX INFOT,4 NO, GET $4$4K181000| 31107 0 31116 0 21624 PZE CTPSBF,,BSOU3 $4$4K181100| 31110 0621 00 0 31112 STA BSOU1 $4$4K181200| 31111 4734 00 4 00000 PDX 0,4 $4$4K181300 31112 4500 00 4 00000 BSOU1 CAL **,4 $4$4K181400| 31113 0634 00 4 31104 SXA BSOU2,4 SAVE POSITION $4$4K181500| 31114 0774 00 4 00000 BSXR4 AXT **,4 $4$4K181600| 31115 0020 00 4 00001 TRA 1,4 $4$4K181700| 31116 0441 00 0 31545 BSOU3 LDI MSDEK WILL BE LARGEST $4$4K181900| 31117 0074 00 4 31065 TSX ENFOW,4 AFTER SORT $4$4K182000| * SORT ALL ENTRIES ENTERED FORWARD IN SRTBL $4$4K182100| 31120 0534 00 2 31065 LXA ENFOW,2 $4$4K182200| 31121 1 35025 2 31122 TXI *+1,2,SRTBL-1 GET MINUS NUMBER OF ENTRIES $4$4K182300 31122 0634 00 2 31142 SXA R6T4,2 $4$4K182400| 0BINARY CARD ID. MAPK0062| 31123 7 00000 2 31142 TXL R6T4,2,0 EXIT IF ZERO $4$4K182500| 31124 4774 00 4 35026 AXC SRTBL,4 SET SORT $4$4K182600| 31125 0634 00 4 27732 SXA SRT.UL,4 LOWER LIMIT $4$4K182700 31126 0774 00 4 31134 AXT R6T3,4 SET EXIT $4$4K182800| 31127 0634 00 4 27164 SXA SRT.8,4 $4$4K182900| 31130 0500 00 0 27136 CLA SRT.35 MODIFY TO SORT ONLY $4$4K183000| 1 IBMAPV IBMAPK 12/01/64 PAGE 405 | PUNCH DEBUGGING DICTIONARY $4$ 0 31131 0601 00 0 27132 STO SRT.34 ONE TABLE $4$4K183100| 31132 1 42752 2 27103 TXI SRT.01,2,-SRTBL GO DO SORT $4$4K183200| 31133 0441 00 2 67720 LDI SSBF,2 $4$4K183300| 31134 0500 00 0 31133 R6T3 CLA *-1 RESTORE HASH $4$4K183400| 31135 0601 00 0 27132 STO SRT.34 TABLE MOVING $4$4K183500 31136 0774 00 4 21120 AXT -NMCHN,4 AND LOWER $4$4K183600| 31137 0634 00 4 27732 SXA SRT.UL,4 LIMIT $4$4K183700| 31140 0774 00 4 27177 AXT CRO.12,4 AND $4$4K183800| 31141 0634 00 4 27164 SXA SRT.8,4 EXIT $4$4K183900| 31142 4774 00 4 00000 R6T4 AXC **,4 NUMBER OF ENTRIES $4$4K184000 31143 1 35026 4 31144 TXI *+1,4,SRTBL END+1 $4$4K184100| 31144 0634 00 4 31151 SXA SER30,4 $4$4K184200| 31145 0634 00 4 31301 SXA NAM.6+1,4 $4$4K184300| 31146 0634 00 4 31341 SXA NAM.21,4 FOR PARTIAL $4$4K184400| 31147 0634 00 4 31371 SXA SER04,4 $4$4K184500 31150 0535 00 4 31142 LAC R6T4,4 $4$4K184600| 0BINARY CARD ID. MAPK0063| 31151 0441 00 4 00000 SER30 LDI **,4 TEST IF DICT ENTRY $4$4K184700| 31152 4056 00 100000 LNT 100000 X $4$4K184800| 31153 2 00001 4 31151 TIX SER30,4,1 YES $4$4K184900 31154 0634 00 4 31300 SXA NAM.6,4 $4$4K185000| 31155 0634 00 4 31370 SXA SER03,4 NO, MARK START $4$4K185100| 31156 0520 00 0 21434 ZET DDICT FULL DEBUGGING $4$4K185110| 31157 0020 00 0 31211 TRA NAM.1 YES $4$4K185120| 31160 0020 00 0 31336 TRA NAM.20 PARTIAL DEBUGGING $4$4K185130 | | * OUTPUT $DDICT CARD $4$4K185200| 31161 0634 00 4 31201 PDDICT SXA PDXR4,4 $4$4K185210| 31162 0634 00 1 31202 SXA PDXR1,1 $5$4K185215 31163 0774 00 4 30567 AXT PABST,4 RESTORE $4$4K185220| 31164 0634 00 4 31330 SXA NAM.9,4 $4$4K185230| 31165 0634 00 4 31534 SXA SER22,4 $4$4K185240| 31166 4625 00 0 30430 STL LBLSW INHIBIT CARD NO PRINTING $4$4K185300| | INITIALIZE DECK NUMBER $4$4K185500| 31167 4625 00 0 21426 STL SWABS $4$4K185600| 31170 0074 00 4 30302 TSX PUINIT,4 $4$4K185700| 31171 000000000304 OCT 304 NUMBER 4 $4$4K185800 31172 0600 00 0 21426 STZ SWABS $4$4K185900| | | * SETUP DEBUGGING $4$4K186100| * DICTIONARY SUBHEADING $4$4K186200 31173 0074 00 4 27627 TSX CRO.SH,4 $4$4K186300| 31174 0 00004 0 31204 PZE BUGBCD,,4 $4$4K186400| 31175 4500 00 0 31210 DEDICT CAL BCIDCT $4$4K186500| 31176 0602 00 0 30231 SLW F.IMG $4$4K186600| 0BINARY CARD ID. MAPK0064 31177 0074 00 4 30122 TSX PR.PU,4 $4$4K186700| 31200 3 00000 0 30231 PTH F.IMG $4$4K186800| 31201 0774 00 4 00000 PDXR4 AXT **,4 $4$4K186900| 31202 0774 00 1 00000 PDXR1 AXT **,1 $5$4K186950| 1 IBMAPV IBMAPK 12/01/64 PAGE 406 PUNCH DEBUGGING DICTIONARY $4$ | 0 31203 0020 00 0 30567 TRA PABST $4$4K187000| | 31204 242522642727 BUGBCD BCI 4,DEBUGGING DICTIONARY $4$4K187200| 31210 532424312363 BCIDCT BCI 1,$DDICT $4$4K187300 | | | | * FULL DEBUGGING ENTRY. FIND ALL LEFT $4$4K187600 * HAND NAMES AND GO TO SER01 TO PUNCH OUT $4$4K187700| * ASSOCIATED MODE AND DIMENSIONAL INFORMATION. $4$4K187800| * IF RELATIVE LOCATION MATCHES ZERO OUT SRTBL ENTRY $4$4K187900| 31211 0774 00 4 10060 NAM.1 AXT 2*TBLNTH,4 $4$4K188000| 31212 4500 00 4 66740 CAL NMCHN+2*TBLNTH,4 $4$4K188100 31213 0100 00 0 31277 TZE NAM.5 NO ENTRY $4$4K188200| 31214 0602 00 0 31542 SLW SER17 BCD WORD $4$4K188300| 31215 0602 00 0 31552 SLW SER31 SAVE NAME TABLE ENTRY $4$4K188400| 31216 0754 00 4 00000 PXA 0,4 $4$4K188500| 31217 4765 00 0 00001 LGR 1 $4$4K188600 31220 0734 00 2 00000 PAX 0,2 $4$4K188700| 31221 0162 00 0 31223 TQP *+2 $4$4K188800| 31222 1 00001 2 31223 TXI *+1,2,1 $4$4K188900| 31223 4500 00 2 56660 CAL HASHT+TBLNTH,2 $4$4K189000| 31224 0162 00 0 31226 NAM.52 TQP *+2 $4$4K189100 0BINARY CARD ID. MAPK0065| 31225 0771 00 0 00022 ARS 18 $4$4K189200| 31226 0737 00 2 00000 PAC 0,2 DICTIONARY LOCATION $4$4K189300| 31227 7 00000 2 31537 TXL SROUT+1,2,0 TEST IF VIRTUAL $4$4K189400| 31230 0044 00 0 00000 PAI $4$4K189500 31231 0054 00 400000 RFT 400000 TEST IF OPERATION $4$4K189600| 31232 0020 00 0 31537 TRA SROUT+1 IGNORE OPERATION $4$4K189700| 31233 0441 00 2 00000 LDI 0,2 $4$4K189800| 31234 4054 00 360000 LFT 360000 TEST IF LEFT HAND NAME $4$4K189900| 31235 0020 00 0 31260 TRA NAM.51 $4$4K190000 31236 4046 00 0 00000 NAM.53 PIA $4$4K190100| 31237 0734 00 1 00000 PAX 0,1 $4$4K190200| 31240 0625 00 0 31553 STT RELTST $4$4K190300| 31241 4634 00 1 31540 SXD SER15,1 RELATIVE LOCATION $4$4K190400| * SET PREFIX TO PTH IF ABSOLUTE $4$4K190500 * IF RELATIVE SET TO PON $4$4K190600| 31242 4500 00 0 31402 CAL SER071-1 RELATIVE $4$4K190700| 31243 4520 00 0 31553 NZT RELTST $4$4K190800| 31244 4500 00 0 31545 CAL MSDEK NO, ABSOLUTE $4$4K190900| 31245 0630 00 0 31540 STP SER15 $4$4K191000 31246 0600 00 0 31541 STZ SER16 $4$4K191100| 31247 0600 00 0 31543 STZ SER18 $4$4K191200| 31250 0634 00 1 31541 SXA SER16,1 $4$4K191300| 31251 0441 00 0 31542 LDI SER17 IS THIS A BCD WORD $4$4K191400| 31252 4056 00 760000 NAM.2 LNT 760000 OR A 76 OR 77 WORD $4$4K191500 0BINARY CARD ID. MAPK0066| 31253 0020 00 0 31367 TRA SER01 $4$4K191600| 31254 0535 00 2 31542 LAC SER17,2 76 OR 77 $4$4K191700| 31255 0441 00 2 00000 LDI 0,2 GET NEXT IN CHAIN $4$4K191800| 31256 0604 00 0 31542 STI SER17 $4$4K191900 1 IBMAPV IBMAPK 12/01/64 PAGE 407 | PUNCH DEBUGGING DICTIONARY $4$ | 0 31257 0020 00 0 31252 TRA NAM.2 $4$4K192000| * TEST WHETHER THIS IS AN EQUAL OR IN A CONTROL SECTION $4$4K192100| 31260 4051 00 600000 NAM.51 IIL 600000 $4$4K192200 31261 4054 00 700000 LFT 700000 $4$4K192300| 31262 0020 00 0 31264 TRA *+2 $4$4K192400| 31263 0020 00 0 31236 TRA NAM.53 EQUAL $4$4K192500| 31264 4051 00 400000 IIL 400000 $4$4K192600| 31265 4054 00 700000 LFT 700000 $4$4K192700 31266 0020 00 0 31537 TRA SROUT+1 $4$4K192800| * CONTROL SECTION $4$4K192900| 31267 4046 00 0 00000 PIA $4$4K193000| 31270 4734 00 1 00000 PDX 0,1 $4$4K193100| 31271 0634 00 1 31273 SXA *+2,1 $4$4K193200 31272 0535 00 1 21457 LAC BGDICT,1 $4$4K193300| 31273 0361 00 1 00000 ACL **,1 $4$4K193400| 31274 0734 00 1 00000 PAX 0,1 $4$4K193500| 31275 4500 00 0 31274 CAL *-1 SET RELATIVE $4$4K193600| 31276 0020 00 0 31240 TRA NAM.53+2 $4$4K193700 31277 2 00001 4 31212 NAM.5 TIX NAM.1+1,4,1 $4$4K193800| | | * PUT OUT ALL MODE CHANGES $4$4K194000| * NAME TABLE SEARCH IS NOW COMPLETE $4$4K194100 * PUT OUT ALL MODE CHANGES WHICH DID NOT $4$4K194200| * EXACTLY MATCH A NAME TABLE ENTRY $4$4K194300| 31300 0774 00 1 00000 NAM.6 AXT **,1 NUMBER OF MODE CHANGES $4$4K194400| 0BINARY CARD ID. MAPK0067| 31301 4500 00 1 00000 CAL **,1 $4$4K194500 31302 7 00001 1 31332 TXL NAM.12,1,1 DONT USE LAST ENTRY $4$4K194600| 31303 0100 00 0 31331 TZE NAM.10 TEST IF ANY ENTRY $4$4K194700| 31304 0044 00 0 00000 PAI YES $4$4K194800| 31305 4054 00 100000 LFT 100000 TEST IF KEEP ENTRY $4$4K194900| 31306 0054 00 200000 RFT 200000 NO, TEST IF EQUAL $4$4K195000 31307 0020 00 0 31331 TRA NAM.10 KEEP OR EQUAL $4$4K195100| 31310 4054 00 400000 LFT 400000 WAS MODE OUTPUT WITH SYMBOL $4$4K195200| 31311 0020 00 0 31331 TRA NAM.10 YES, IGNORE ENTRY $4$4K195300| 31312 4734 00 2 00000 PDX 0,2 $4$4K195400| 31313 0634 00 2 31335 SXA NAM.11,2 RELATIVE LOCATION $4$4K195500 31314 0056 00 400000 RNT 400000 TEST IF EXTENSION $4$4K195600| 31315 0020 00 0 31320 TRA NAM.7 NO $4$4K195700| 31316 0734 00 2 00000 PAX 0,2 YES $4$4K195800| 31317 4500 00 2 00000 CAL 0,2 $4$4K195900| 31320 0767 00 0 00017 NAM.7 ALS 15 $4$4K196000 31321 0625 00 0 31335 STT NAM.11 $4$4K196100| 31322 0767 00 0 00017 ALS 15 $4$4K196200| 31323 0630 00 0 31335 STP NAM.11 HIGH ORDER PART OF MODE $4$4K196300| 31324 4500 00 0 31335 CAL NAM.11 $4$4K196400| 31325 0056 00 100000 RNT 100000 TEST IF RELATIVE $4$4K196500 31326 4501 00 0 31551 ORA PTW $4$4K196600| 0BINARY CARD ID. MAPK0068| 31327 0602 00 0 30676 SLW RDATA $4$4K196700| 31330 0074 00 4 31161 NAM.9 TSX PDDICT,4 MODIFIED TO PABST $4$4K196800| 31331 2 00001 1 31301 NAM.10 TIX NAM.6+1,1,1 $4$4K196900 * DEBUGGING COMPLETE AT THIS POINT $4$4K197000| 1 IBMAPV IBMAPK 12/01/64 PAGE 408 | PUNCH DEBUGGING DICTIONARY $4$ | 0 31332 0074 00 4 30332 NAM.12 TSX PLAST,4 EMPTY PUNCH BUFFER $4$4K197100| 31333 0774 00 4 00000 AXT **,4 $4$4K197200 31334 0020 00 4 00001 TRA 1,4 RETURN TO WUPERVISOR $4$4K197300| 31335 0 00000 0 00000 NAM.11 PZE **,**,** $4$4K197400| * PARTIAL DEBUGGING ONLY $4$4K197500| 31336 0774 00 4 31364 NAM.20 AXT NAM.25,4 GATE $4$4K197600| 31337 0634 00 4 31537 SXA SROUT+1,4 $4$4K197700 31340 0535 00 4 31142 LAC R6T4,4 $4$4K197800| 31341 0441 00 4 00000 NAM.21 LDI **,4 SRTBL+WORD COUNT $4$4K197900| 31342 4054 00 100000 LFT 100000 DICT PARAMETER $4$4K198000| 31343 0020 00 0 31332 TRA NAM.12 NO, ALL DONE $4$4K198100| 31344 4046 00 0 00000 PIA $4$4K198200 31345 0340 00 0 31366 CAS NLAST CHECK REDUNDANT KEEP ENTRIES $4$4K198300| 31346 0020 00 0 31350 TRA *+2 $4$4K198400| 31347 0020 00 0 31364 TRA NAM.25 IGNORE REDUNDANT ENTRY $4$4K198500| 31350 0601 00 0 31366 STO NLAST $4$4K198600| 31351 0737 00 2 00000 PAC 0,2 $4$4K198700 31352 0441 00 2 00000 LDI 0,2 NAME TABLE ENTRY $4$4K198800| 31353 0604 00 0 31542 NAM.22 STI SER17 $4$4K198900| 31354 0604 00 0 31552 STI SER31 SAVE NAME TABLE ENTRY $4$4K199000| 0BINARY CARD ID. MAPK0069| 31355 0734 00 2 00000 PAX 0,2 $4$4K199100 31356 1 21120 2 31357 TXI *+1,2,-NMCHN GET DISPLACEMENT $4$4K199200| 31357 0754 00 2 00000 PXA 0,2 DIVIDE BY $4$4K199300| 31360 4765 00 0 00001 LGR 1 2 $4$4K199400| 31361 0737 00 2 00000 PAC 0,2 $4$4K199500| 31362 4500 00 2 52630 CAL HASHT,2 $4$4K199600 31363 0020 00 0 31224 TRA NAM.52 PROCESS $4$4K199700| 31364 2 00001 4 31341 NAM.25 TIX NAM.21,4,1 GO BACK FOR NEXT ENTRY $4$4K199800| 31365 0020 00 0 31332 TRA NAM.12 SHOULD'NT HAPPEN $4$4K199900| 31366 0 31366 0 31366 NLAST PZE *,,* $4$4K200000| * ENTRY IS MADE WITH VFD 3/1,15/REL.LOC $4$4K200100 * IN CELL SER15. A LINEAR SEARCH IS $4$4K200200| * MADE AND THE APPROPRIATE WORDS ARE PUNCHED $4$4K200300| 31367 0634 00 4 31536 SER01 SXA SROUT,4 $4$4K200400| 31370 0774 00 4 00000 SER03 AXT **,4 NUMBER OF 3/1 ENTRIES $4$4K200500| 31371 4500 00 4 00000 SER04 CAL **,4 SRTBL+WORD COUNT $4$4K200600 31372 4320 00 0 31545 ANA MSDEK MASK OUT MODE $4$4K200700| 31373 4340 00 0 31540 LAS SER15 $4$4K200800| 31374 0020 00 0 31377 TRA SER07 $4$4K200900| 31375 0020 00 0 31415 TRA SER08 EXACT MATCH $4$4K201000| 31376 2 00001 4 31371 TIX SER04,4,1 $4$4K201100 31377 0441 60 0 31371 SER07 LDI* SER04 $4$4K201200| 31400 0054 00 200000 RFT 200000 IS THIS AN EQUAL $4$4K201300| 31401 1 77777 4 31371 TXI SER04,4,-1 YES IGNORE $4$4K201400| 31402 1 00001 4 31403 TXI *+1,4,1 NO, CHECK PREVIOUS $4$4K201500| 0BINARY CARD ID. MAPK0070 31403 4500 60 0 31371 SER071 CAL* SER04 GET FIRST NON-ZERO AND $4$4K201600| 31404 0441 60 0 31371 LDI* SER04 NON-EQUAL $4$4K201700| 31405 0100 00 0 31407 TZE *+2 ENTRY TO THE LEFT $4$4K201800| 31406 0054 00 200000 RFT 200000 $4$4K201900| 31407 1 00001 4 31403 TXI SER071,4,1 EQUAL OR ZERO, GO BACK $4$4K202000 31410 0056 00 400000 RNT 400000 TEST IF EXTENSION $4$4K202100| 31411 0020 00 0 31517 TRA SER20 NO $4$4K202200| 1 IBMAPV IBMAPK 12/01/64 PAGE 409 | PUNCH DEBUGGING DICTIONARY $4$ | 0 31412 0734 00 4 00000 PAX 0,4 $4$4K202300 31413 4500 00 4 00000 CAL 0,4 PICK UP EXTENSION $4$4K202400| 31414 0020 00 0 31517 TRA SER20 $4$4K202500| * EXACT MATCH. MODE CHANGE COINCIDES $4$4K202600| * WITH A SYMBOL. $4$4K202700| 31415 0600 00 0 31547 SER08 STZ SER185 $4$4K202800 31416 0634 00 4 31445 SXA SER088,4 SAVE START $4$4K202900| 31417 0441 60 0 31371 LDI* SER04 TEST IF THERE IS AT LEAST $4$4K203000| 31420 0056 00 200000 RNT 200000 1 NON EQUAL TYPE. $4$4K203100| 31421 4625 00 0 31547 STL SER185 YES $4$4K203200| 31422 4500 60 0 31371 SER081 CAL* SER04 $4$4K203300 31423 4320 00 0 31545 ANA MSDEK $4$4K203400| 31424 0322 00 0 31540 ERA SER15 $4$4K203500| 31425 4100 00 0 31445 TNZ SER088 DOES NOT MATCH $4$4K203600| 31426 4500 00 0 31546 CAL MZE NULLIFY LATER OUTPUT OF MODE $4$4K203700| 31427 4602 60 0 31371 ORS* SER04 CHANGE FOR EQUAL LOCATIONS $4$4K203800 31430 0441 60 0 31371 LDI* SER04 $4$4K203900| 0BINARY CARD ID. MAPK0071| 31431 0056 00 400000 RNT 400000 EXTENSION $4$4K204000| 31432 1 77777 4 31422 TXI SER081,4,-1 NO $4$4K204100| 31433 4046 00 0 00000 PIA $4$4K204200 31434 0734 00 2 00000 PAX 0,2 EXTENSINN LOCATION $4$4K204300| 31435 4500 00 2 77777 CAL -1,2 $4$4K204400| 31436 0737 00 2 00000 PAC 0,2 $4$4K204500| 31437 4500 00 2 00000 CAL 0,2 NAME TABLE ENTRY $4$4K204600| 31440 0322 00 0 31552 ERA SER31 $4$4K204700 31441 4100 00 0 31444 TNZ *+3 $4$4K204800| 31442 0634 00 4 31445 SXA SER088,4 MATCHES, SAVE LOCATION $4$4K204900| 31443 4625 00 0 31547 STL SER185 $4$4K205000| 31444 1 77777 4 31422 TXI SER081,4,-1 CONTINUE $4$4K205100| 31445 0774 00 4 00000 SER088 AXT **,4 $4$4K205200 31446 4520 00 0 31547 NZT SER185 WAS THERE A NON EQUAL TYPE $4$4K205300| * OR WAS A SYMBOL MATCH FOUND. $4$4K205400| 31447 1 00001 4 31403 TXI SER071,4,1 NO $4$4K205500| 31450 0441 60 0 31371 SER09 LDI* SER04 $4$4K205600| 31451 4046 00 0 00000 PIA $4$4K205700 31452 0056 00 400000 RNT 400000 CONTINUE $4$4K205800| 31453 0020 00 0 31517 TRA SER20 NO $4$4K205900| 31454 0734 00 4 00000 PAX 0,4 EXTENSION LOCATION $4$4K206000| 31455 4500 00 4 00000 CAL 0,4 MODAL INFORMATION $4$4K206100| 31456 0767 00 0 00017 ALS 15 $4$4K206200 0BINARY CARD ID. MAPK0072| 31457 0625 00 0 31541 STT SER16 $4$4K206300| 31460 0767 00 0 00017 ALS 15 $4$4K206400| 31461 0630 00 0 31541 STP SER16 $4$4K206500| 31462 0441 00 4 77777 LDI -1,4 $4$4K206600 31463 0056 00 400000 RNT 400000 ANY DIMENSIONS $4$4K206700| 31464 0020 00 0 31523 TRA SER205 NO $4$4K206800| 31465 0441 00 0 31553 LDI RELTST $4$4K206900| 31466 0051 00 100000 IIR 100000 $4$4K207000| 31467 0604 00 0 31543 STI SER18 $4$4K207100 31470 1 00002 4 31471 TXI *+1,4,2 $4$4K207200| 31471 4500 00 4 00000 CAL 0,4 $4$4K207300| 31472 0441 00 4 00000 LDI 0,4 $4$4K207400| 1 IBMAPV IBMAPK 12/01/64 PAGE 410 | PUNCH DEBUGGING DICTIONARY $4$ 0 31473 0734 00 2 00000 PAX 0,2 $4$4K207500| 31474 4634 00 2 31541 SXD SER16,2 FIRST DIMENSION $4$4K207600| 31475 0056 00 400000 RNT 400000 ANY MORE $4$4K207700| 31476 0020 00 0 31512 TRA SER19 NO $4$4K207800| 31477 4500 00 0 31544 CAL OWSIX SIX PREFIX MEANS MORE $4$4K207900 31500 4602 00 0 31541 ORS SER16 THAN 1 DIMENSION $4$4K208000| 31501 4500 00 4 77777 CAL -1,4 $4$4K208100| 31502 0441 00 4 77777 LDI -1,4 $4$4K208200| 31503 0734 00 2 00000 PAX 0,2 $4$4K208300| 31504 4634 00 2 31543 SXD SER18,2 DIMENSION 2 $4$4K208400 0BINARY CARD ID. MAPK0073| 31505 0056 00 400000 RNT 400000 3RD $4$4K208500| 31506 0020 00 0 31530 TRA SER21 NO $4$4K208600| 31507 4500 00 4 77776 CAL -2,4 $4$4K208700| 31510 0621 00 0 31543 STA SER18 $4$4K208800 31511 0020 00 0 31530 TRA SER21 $4$4K208900| 31512 0502 00 0 31541 SER19 CLS SER16 $4$4K209000| 31513 4520 00 0 31553 NZT RELTST $4$4K209100| 31514 4501 00 0 31544 ORA OWSIX $4$4K209200| 31515 0601 00 0 31541 STO SER16 $4$4K209300 31516 0020 00 0 31530 TRA SER21 $4$4K209400| 31517 0767 00 0 00017 SER20 ALS 15 $4$4K209500| 31520 0625 00 0 31541 STT SER16 LOW ORDER PART OF MODE $4$4K209600| 31521 0767 00 0 00017 ALS 15 $4$4K209700| 31522 0630 00 0 31541 STP SER16 HIGH ORDER PART OF MODE $4$4K209800 31523 0441 00 0 31541 SER205 LDI SER16 $4$4K209900| 31524 4520 00 0 31553 NZT RELTST $4$4K210000| 31525 4055 00 200000 SIL 200000 CONSTANT $4$4K210100| 31526 4055 00 400000 SIL 400000 SET SYMBOL INDICATION $4$4K210200| 31527 0604 00 0 31541 STI SER16 $4$4K210300 * OUTPUT 2 OR 3 WORDS $4$4K210400| 31530 0774 00 2 00003 SER21 AXT 3,2 OUTPUT 3 WORDS $4$4K210500| 31531 4500 00 2 31544 CAL SER16+3,2 $4$4K210600| 31532 0100 00 0 31536 TZE SROUT $4$4K210700| 0BINARY CARD ID. MAPK0074 31533 0602 00 0 30676 SLW RDATA $4$4K210800| 31534 0074 00 4 31161 SER22 TSX PDDICT,4 MODIFIED TO PABST $4$4K210900| 31535 2 00001 2 31531 TIX SER21+1,2,1 $4$4K211000| 31536 0774 00 4 00000 SROUT AXT **,4 $4$4K211100| 31537 0020 00 0 31277 TRA NAM.5 MODIFIED TO NAM.25 FOR PARTIAL $4$4K211200 * THIS CELL HAS THE RELATIVE LOCATION WHICH $4$4K211300| * CORRESPONDS TO THE BCD NAME IN ITS DECREMENT $4$4K211400| * THE PREFIX IS 3 IF THE LOCATION IS ABSOLUTE $4$4K211500| * AND 1 IF RELATIVE. $4$4K211600| 31540 000000000000 SER15 VFD 3/**,15/**,18/0 $4$4K211700 31541 0 00000 0 00000 SER16 PZE 0 1/S,1/A,1/M,15/DIM1,3/M,15/REL LOC$4$4K211800| * S = 1 IF A SYMBOL IS PRESENT A= 1 IF ABSOLUTE OR 2 OR $4$4K211900| * MORE DIMENSIONS. $4$4K212000| 31542 SER17 BSS 1 SYMBOL GOES HERE $4$4K212100| 0BINARY CARD ID. MAPK0075 31543 000000000000 SER18 VFD 3/0,15/**,3/**,15/** $4$4K212200| * 15/DIM2,3/B,15/DIM3 B=0 IF RELATIVE, 1 IF ABSOLUTE $4$4K212300| 31544 6 00000 0 00000 OWSIX MTW $4$4K212400| 1 IBMAPV IBMAPK 12/01/64 PAGE 411 | PUNCH DEBUGGING DICTIONARY $4$ 0 31545 3 77777 0 00000 MSDEK PTH 0,,-1 $4$4K212500| 31546 4 00000 0 00000 MZE MZE $4$4K212700| 31547 0 00000 0 00000 SER185 $4$4K212800| 31550 0 00007 0 00000 7DECR PZE 0,0,7 $4$4K212900| 31551 2 00000 0 00000 PTW PTW $4$4K213000 31552 SER31 BSS 1 NAME TABLE ENTRY, BCD OR CHAIN WOR$4$4K213100| 0BINARY CARD ID. MAPK0076| 31553 0 00000 0 00000 RELTST PZE 0,**,0 TAG NONZERO IF RELATIVE. $4$4K213200| 1 IBMAPV IBMAPK 12/01/64 PAGE 412 | PATCH AREA PHASE 2 - RECORD IBMAPK 0| 31554 PATCH EQU * (6)4K213202| | | 31554 4056 00 000005 3R333 LNT 5 IS IT LDIR (1)4K213211| 31555 0020 00 0 31571 TRA 3R334 NO, TEST FOR 'LORG' (4)4K213212| 31556 0020 00 0 31576 TRA 3R335 YES, TEST FURTHER (4)4K213213| 31557 4520 00 0 31570 3R321 NZT LDIR. IS THIS LINKAGE DIRECTOR (1)4K213215| 31560 0020 00 0 36552 TRA 3R31+1 NO, EXIT (1)4K213216 31561 0600 00 0 31570 STZ LDIR. YES, RESET LINKAGE SWITCH AND (1)4K213217| 31562 0500 00 0 21712 CLA L(6) SET ALPHAMERIC TYPE FOR 2ND WORD (1)4K213218| 31563 0621 00 0 30754 STA SB01 SAVE MODE (1)4K213219| 31564 0621 00 0 30753 STA CMODE (1)4K213220| 31565 4500 60 0 37013 CAL* RCTR (1)4K213221 31566 0361 00 0 21705 ACL L(1) STEP UP LOCATION COUNTER (1)4K213222| 31567 0020 00 0 30714 TRA 3R32-5 MAKE DEBUG ENTRY (1)4K213223| 31570 0 00000 0 00000 LDIR. PZE LINKAGE DIRECTOR SWITCH (1)4K213224| 31571 4056 00 000004 3R334 LNT 4 IS IT 'LORG'... (4)4K213261| 31572 0020 00 0 30732 TRA 3R322-2 NO, SET OCTAL TYPE (4)4K213262 31573 4520 00 0 21445 NZT CPLB YES, IS 'LORG' NEEDED... (4)4K213263| 31574 0020 00 0 36552 TRA 3R31+1 NO, EXIT (4)4K213264| 31575 0020 00 0 30732 TRA 3R322-2 YES, SET OCTAL TYPE (4)4K213265| 31576 4520 00 0 21454 3R335 NZT SWLNKG IS 'LDIR' NEEDED (4)4K213266| 31577 0020 00 0 36552 TRA 3R31+1 NO,EXIT (4)4K213267 31600 4625 00 0 31570 STL LDIR. YES, SET LINKAGE SWITCH AND (4)4K213268| 0BINARY CARD ID. MAPK0077| 31601 0020 00 0 30732 TRA 3R322-2 MAKE OCTAL ENTRY FOR FIRST WORD(4)4K213269| | 31602 PATCHE EQU * CURRENT PATCHES END (6)4K214870 31720 BES PATCH-*+100 (6)4K214880| 00116 PTCHSZ EQU *-PATCHE CURRENT SIZE OF AREA (6)4K214890| 1 IBMAPV IBMAPK 12/01/64 PAGE 413 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 * $4$4K215000| * THIS ROUTINE PROCESSES THE MESSAGES GIVEN TO ERPR $4$4K215100| * DURING ASSEMBLY, AND PREPARES THEM FOR THE $4$4K215200| * PRINT ROUTINE. MESSAGES ARE OUTPUT IN ORDER $4$4K215300| * BY ERROR GROUP NUMBER $4$4K215400 | 0BINARY CARD ID. MAPK0078| 31720 0634 00 4 32342 FERPR SXA MSGX,4 SAVE RETURN $4$4K215600| 31721 0520 00 0 21415 ZET SWSPEC *** SPECIAL TEST TO DUMMY ********$4$4K215700| 31722 0020 00 0 34554 TRA ERMDUM *** AND PRINT ALL MESSAGES *******$4$4K215800 31723 0774 00 4 00006 FERPQ AXT 6,4 INITIALIZE $4$4K215900| 31724 0500 00 4 32361 CLA SETUP,4 MESSAGE $4$4K216000| 31725 0601 00 4 45006 STO MSS,4 CHAINS $4$4K216100| 31726 2 00001 4 31724 TIX *-2,4,1 $4$4K216200| 31727 0600 00 0 32377 STZ BASE $4$4K216300 31730 0074 00 4 27627 TSX CRO.SH,4 SET SUBHEADING (6)4K216310| 31731 0 00005 0 32416 TITL1,,TITL1E-TITL1 (6)4K216320| 31732 0074 00 4 25601 TSX INFOT,4 GET FIRST BUFFER-TO $4$4K216400| 31733 0 32344 0 21574 PZE CTERRF,,NONE END IF NO ERRORS $4$4K216500| 31734 0621 00 0 31767 STA MSGET BUFFER $4$4K216600 31735 4734 00 4 00000 PDX 0,4 SETUP $4$4K216700| 31736 0500 60 0 31767 CLA* MSGET EXIT IF NO REAL $4$4K216800| 31737 0100 00 0 32344 TZE NONE MESSAGE OCCURED $4$4K216900| 31740 0774 00 1 04022 AXT TBLNTH-6,1 INITIAL MESSAGE POSITION $4$4K217000| 31741 0600 00 0 32400 STZ MSEVR SET INITIAL SEVERITY $4$4K217100 | * PLACE CURRENT MESSAGE CODE INTO TABLE, WITH CHAIN WORD $4$4K217300| * AND SUBSTITUTION LIST. $4$4K217400| * $4$4K217500| 31742 0500 60 0 31767 MPLCE CLA* MSGET FIRST WORD $4$4K217600 31743 0100 00 0 32023 TZE MPRNT TO PRINT IF NONE LEFT $4$4K217700| 31744 4734 00 2 00000 PDX 0,2 $4$4K217800| 31745 1 00003 2 31746 TXI *+1,2,3 $4$4K217900| 0BINARY CARD ID. MAPK0079| 31746 4634 00 2 31752 SXD MPL3,2 NUMBER OF WORDS TO TRANSMIT $4$4K218000 31747 0754 00 1 00000 PXA 0,1 $4$4K218100| 31750 4400 00 0 32376 SBM MFRST $4$4K218200| 31751 0621 00 0 32005 STA THAD ADDRESS TO BE OF CHAIN WORD $4$4K218300| 31752 6 00000 1 32020 MPL3 TNX NOFIT,1,** TEST IF SPACE FOR MESSAGE, $4$4K218400| 31753 0634 00 1 32016 SXA MSX.1,1 AND SAVE NEXT FIRST $4$4K218500 31754 0535 00 1 32005 LAC THAD,1 $4$4K218600| 31755 0600 00 1 00000 STZ 0,1 CHAIN WORD $4$4K218700| 31756 1 77777 2 31757 TXI *+1,2,-1 $4$4K218800| 31757 0500 60 0 31767 CLA* MSGET $4$4K218900| 31760 0601 00 1 00001 MPL4 STO 1,1 TRANSMIT MESSAGE $4$4K219000 31761 1 77777 1 31762 TXI *+1,1,-1 CODE AND $4$4K219100| 31762 2 00001 4 31767 TIX MSGET,4,1 SUBST LIST $4$4K219200| 31763 0074 00 4 25601 TSX INFOT,4 TO STORAGE $4$4K219300| 31764 0 32023 0 21574 PZE CTERRF,,MPRNT $4$4K219400| 31765 0621 00 0 31767 STA MSGET $4$4K219500 31766 4734 00 4 00000 PDX 0,4 $4$4K219600| 31767 0500 00 4 00000 MSGET CLA **,4 $4$4K219700| 31770 2 00001 2 31760 MPL5 TIX MPL4,2,1 $4$4K219800| 1 IBMAPV IBMAPK 12/01/64 PAGE 414 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 | * FIND POSITION IN CHAIN, AND SET CHAIN WORD $4$4K220000| * $4$4K220100| 31771 0634 00 4 32015 SXA MSX.4,4 SAVE BUFFER POSITION $4$4K220200| 31772 0535 00 1 32005 LAC THAD,1 CURRENT $4$4K220300 31773 0500 00 1 00002 CLA 2,1 MESSAGE NUMBER $4$4K220400| 0BINARY CARD ID. MAPK0080| 31774 0774 00 4 45003 AXT MSS-3,4 $4$4K220500| 31775 0634 00 4 31776 MSCNE SXA *+1,4 BACKWARD CHAIN POSITION. $4$4K220600| 31776 0535 00 2 00000 MSCNF LAC **,2 COMPARE WITH $4$4K220700 31777 0340 00 2 00002 CAS 2,2 CHAIN NUMBER $4$4K220800| 32000 0020 00 0 32005 TRA THAD LARGER-PLACE HERE $4$4K220900| 32001 0020 00 0 32005 TRA THAD EQUAL-PLACE HERE $4$4K221000| 32002 0634 00 2 32003 SXA *+1,2 SMALLER-GO $4$4K221100| 32003 4774 00 4 00000 AXC **,4 TO NEXT $4$4K221200 32004 0020 00 0 31775 TRA MSCNE $4$4K221300| | 32005 4634 00 4 00000 THAD SXD **,4 FWD CHAIN, NEW WORD $4$4K221500| 32006 0535 00 4 31776 LAC MSCNF,4 $4$4K221600| 32007 0500 00 4 00000 CLA 0,4 $4$4K221700 32010 0621 00 1 00000 STA 0,1 BKW CHAIN, NEW WORD $4$4K221800| 32011 0500 00 0 32005 CLA THAD $4$4K221900| 32012 0621 00 4 00000 STA 0,4 BKWD CHAIN, LARGER WORD $4$4K222000| 32013 0767 00 0 00022 ALS 18 $4$4K222100| 32014 0622 00 2 00000 STD 0,2 FWD CHAIN, SMALLER WORD $4$4K222200 32015 0774 00 4 00000 MSX.4 AXT **,4 RESTORE REGISTERS $4$4K222300| 32016 0774 00 1 00000 MSX.1 AXT **,1 AND GO GET $4$4K222400| 32017 0020 00 0 31742 TRA MPLCE NEXT MESSAGE. $4$4K222500| | * TOO MANY MESSAGES $4$4K222700 * $4$4K222800| 32020 0600 00 0 45005 NOFIT STZ MSS-1 ENTER 'CAPACITY EXCEEDED' MESSAGE $4$4K222900| 32021 0500 00 0 21450 CLA SWERR SET FOR $4$4K223000| 0BINARY CARD ID. MAPK0081| 32022 0601 00 0 21422 STO CTNOGO MAXIMUM SEVERITY $4$4K223100 | | * PRINT MESSAGES IN FORWARD CHAIN ORDER. $4$4K223300| * $4$4K223400| 32023 0074 00 4 25577 MPRNT TSX PRINT,4 (6)4K223500 32024 0020 00 0 32030 TRA *+4 $4$4K223800| 32025 0 00000 0 00002 PZE 2 EJECT PAGE AND $4$4K223900| 32026 1 00005 0 32430 PON TITL3,,5 PRINT MESSAGE HEAD $4$4K224000| 32027 0 00001 0 27741 PZE BLANX,,1 $4$4K224100| 32030 0774 00 4 00005 AXT PSUP-SETUP,4 $4$4K224200 32031 0500 00 4 32366 CLA PSUP,4 SET BASIC $4$4K224300| 32032 0601 00 4 52035 STO LINK+PSUP-SETUP,4 PRINT LINE $4$4K224400| 32033 2 00001 4 32031 TIX *-2,4,1 $4$4K224500| 32034 4774 00 2 45000 AXC MSS-6,2 INITIAL CHAIN ADDRESS $4$4K224600| 32035 0500 00 2 00000 MPRA CLA 0,2 CHAIN WORD OF $4$4K224700 32036 4737 00 2 00000 PDC 0,2 NEW MESSAGE $4$4K224800| 32037 0500 00 2 00000 CLA 0,2 EXIT IF LAST $4$4K224900| 32040 4734 00 4 00000 PDX 0,4 MESSAGE $4$4K225000| 32041 7 00000 4 32326 TXL ENDPR,4,0 $4$4K225100| 1 IBMAPV IBMAPK 12/01/64 PAGE 415 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32042 0500 00 2 00001 CLA 1,2 FIRST WORD $4$4K225200| 32043 0621 00 0 32100 STA MPRB SAVE MESSAGE CODE $4$4K225300| 32044 4320 00 0 21725 ANA MSKTG $4$4K225400| 32045 0771 00 0 00017 ARS 15 SEVERITY CODE $4$4K225500 32046 0340 00 0 21422 CAS CTNOGO RECORD IF $4$4K225600| 32047 0601 00 0 21422 STO CTNOGO LARGER THAN PREVIOUS $4$4K225700| 0BINARY CARD ID. MAPK0082| 32050 0020 00 0 32051 TRA *+1 $4$4K225800| 32051 0560 00 0 27741 LDQ BLANKS STORE CODE $4$4K225900 32052 4765 00 0 00006 LGR 6 FOR PRINT $4$4K226000| 32053 4773 00 0 00006 RQL 6 $4$4K226100| 32054 4600 00 0 32367 STQ SCODE $4$4K226200| 32055 0560 00 0 27741 LDQ BLANKS $4$4K226300| 32056 0500 00 0 32375 CLA PREVGP COMPARE GROUP NO $4$4K226400 32057 0340 00 2 00002 CAS 2,2 AGAINST PREVIOUS $4$4K226500| 32060 0020 00 0 32077 TRA MPRAA $4$4K226600| 32061 0020 00 0 32077 TRA MPRAA $4$4K226700| 32062 0500 00 2 00002 CLA 2,2 IF LARGER, CONVERT AND $4$4K226800| 32063 0601 00 0 32375 STO PREVGP STORE FOR PRINT $4$4K226900 32064 0734 00 4 00000 PAX 0,4 $4$4K227000| 32065 7 01000 4 32074 TXL MPRAB,4,512 $4$4K227100| 32066 0560 00 0 32371 LDQ CDE.1 IN FDICT $4$4K227200| 32067 7 02000 4 32077 TXL MPRAA,4,1024 $4$4K227300| 32070 0560 00 0 32372 LDQ CDE.2 IN DEF $4$4K227400 32071 7 02774 4 32077 TXL MPRAA,4,1532 $4$4K227500| 32072 0560 00 0 32373 LDQ CDE.3 IN CDICT $4$4K227600| 32073 0020 00 0 32077 TRA MPRAA $4$4K227700| 32074 0771 00 0 00022 MPRAB ARS 18 $4$4K227800| 32075 0074 00 4 27507 TSX SC.CON,4 CONVERT $4$4K227900 0BINARY CARD ID. MAPK0083| 32076 0522 00 1 27531 XEC CRQL,1 TO DECIMAL $4$4K228000| 32077 4600 00 0 32366 MPRAA STQ STMNT $4$4K228100| | * INTERPRET MESSAGE SKELETON. $4$4K228300 * $4$4K228400| 32100 4774 00 4 00000 MPRB AXC **,4 CODE NUMBER $4$4K228500| 32101 0500 00 4 32442 CLA MSGBL,4 $4$4K228600| 32102 0621 00 0 32110 STA MPRC BEGINNING OF SKELETON. $4$4K228700| 32103 0774 00 1 52230 AXT 2B,1 INITIAL PLACE TO $4$4K228800 32104 4634 00 1 32202 SXD KNAMA,1 STORE NAMES, ETC. $4$4K228900| 32105 1 53514 1 32110 TXI MPRC,1,-2B-LINK-4 PRECEDE TEXT BY BLANK $4$4K229000| 32106 4500 00 0 32404 MPRBB CAL SPCWD EXCEPT FOR $4$4K229100| 32107 0602 00 1 00000 SLW 0,1 FIRST PARAMETER $4$4K229200| 32110 0441 00 0 00000 MPRC LDI ** BRANCH TO $4$4K229300 32111 4046 00 0 00000 PIA $4$4K229400| 32112 0771 00 0 00017 MPRCA ARS 15 HANDLE TYPE $4$4K229500| 32113 4320 00 0 21713 ANA L(7) OF MACRO (6)4K229600| 32114 0737 00 4 00000 PAC 0,4 ACCORDING TO $4$4K229700| 32115 0020 60 4 32116 TRA* HANDL,4 CODE IN TAG. $4$4K229800 * $4$4K229900| 32116 0 00000 0 32123 HANDL PZE BCDIN BCD INFORMATION $4$4K230000| 32117 0 00000 0 32150 PZE EDITL LINE EDITING $4$4K230100| 32120 0 00000 0 32166 PZE SPECK SPECIAL SYMBOLS $4$4K230200| 32121 0 00000 0 32252 PZE SUBLS SUBSTITUTION $4$4K230300 1 IBMAPV IBMAPK 12/01/64 PAGE 416 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32122 0 00000 0 32264 PZE PUBLS PUBLISH ENTIRE LIST (6)4K230310| | * BCD TO LINE $4$4K230500 * $4$4K230600| 32123 4046 00 0 00000 BCDIN PIA $4$4K230700| 0BINARY CARD ID. MAPK0084| 32124 0771 00 0 00017 ARS 15 $4$4K230800| 32125 0625 00 0 52430 STT TEMP SAVE BYTE $4$4K230900 32126 4046 00 0 00000 PIA $4$4K231000| 32127 4320 00 0 32401 MPRD ANA MSKBO $4$4K231100| 32130 0361 00 0 32377 ACL BASE $4$4K231200| 32131 0361 00 0 32402 ACL MONWD $4$4K231300| 32132 0602 00 1 00001 SLW 1,1 ADDRESS AND COUNT $4$4K231400 32133 0500 00 0 52430 CLA TEMP $4$4K231500| 32134 0625 00 1 00001 STT 1,1 BYTE POSITION $4$4K231600| | 32135 0600 00 0 32377 MPRG STZ BASE CLEAR SUBSTITUTION BASE $4$4K231800| 32136 0500 00 0 32110 CLA MPRC SET FOR NEXT $4$4K231900 32137 0361 00 0 21705 ACL L(1) PARAMETER $4$4K232000| 32140 0621 00 0 32110 STA MPRC AND PROCESS $4$4K232100| 32141 4056 00 400000 LNT 400000 IF $4$4K232200| 32142 1 77776 1 32106 TXI MPRBB,1,-2 NOT END $4$4K232300| 32143 1 52031 1 32144 TXI *+1,1,LINK+1 $4$4K232400 32144 0754 00 1 00000 PXA 0,1 OF CALLING SEQUENCE, $4$4K232500| 32145 0737 00 1 00000 PAC 0,1 PRINT MESSAGE, $4$4K232600| 32146 0634 00 1 52032 SXA LINK+2,1 AND RETURN TO $4$4K232700| 32147 0020 00 0 52030 TRA LINK PROCESS NEXT $4$4K232800| * LINE EDITING $4$4K233000| * $4$4K233100| 32150 4046 00 0 00000 EDITL PIA SETUP FOR $4$4K233200| 32151 0767 00 0 00022 ALS 18 SKIPPING $4$4K233300| 0BINARY CARD ID. MAPK0085 32152 4320 00 0 21724 ANA MSKDC A+1 COLUMNS $4$4K233400| 32153 0361 00 0 32404 ACL SPCWD $4$4K233500| 32154 0602 00 1 00000 EDIS SLW 0,1 $4$4K233600| 32155 4056 00 000001 LNT 1 $4$4K233700| 32156 1 00001 1 32135 TXI MPRG,1,1 GO TO SKIP COLUMNS $4$4K233800 32157 4734 00 4 00000 PDX 0,4 SET A SUCCESSIVE $4$4K233900| 32160 2 00062 4 32160 TIX *,4,50 ( A NOT GTR 50 ) $4$4K234000| 32161 4500 00 0 32403 CAL BGLWD BEGIN LINES $4$4K234100| 32162 0602 00 1 00000 SLW 0,1 INTO STRING- $4$4K234200| 32163 1 77777 1 32164 TXI *+1,1,-1 $4$4K234300 32164 2 00001 4 32162 TIX *-2,4,1 $4$4K234400| 32165 1 00002 1 32135 TXI MPRG,1,2 $4$4K234500| | * SPECIAL SYMBOLS $4$4K234700| * $4$4K234800 32166 4057 00 077774 SPECK RIL 077774 PROTECT AGAINST HIGH $4$4K234900| 32167 4046 00 0 00000 PIA COUNT $4$4K235000| 32170 4737 00 4 00000 PDC 0,4 $4$4K235100| 32171 0522 00 4 32173 XEC SPETB,4 PROCESS BY CODE. $4$4K235200| 32172 0020 00 0 32135 TRA MPRG RETURN FROM ALL EXCEPT PICT $4$4K235300 | 1 IBMAPV IBMAPK 12/01/64 PAGE 417 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32173 0074 00 4 32177 SPETB TSX KNAM,4 DICTIONARY NAME $4$4K235500| 32174 0074 00 4 32223 TSX IKAR,4 IMMEDIATE CHARACTER $4$4K235600 32175 0074 00 4 32227 TSX IKON,4 CONSTANT $4$4K235700| 32176 0074 00 4 32177 TSX KNAM,4 (USED ONLY FOR SPEC) (6)4K235800| | * NAME TO MESSAGE $4$4K236000| * $4$4K236100 32177 0634 00 4 32217 KNAM SXA KNAMX,4 $4$4K236200| 0BINARY CARD ID. MAPK0086| 32200 0621 00 0 32202 STA KNAMA $4$4K236300| 32201 0074 00 4 32275 TSX XNAME,4 OBTAIN EXTERNAL $4$4K236400| 32202 0 00000 0 00000 KNAMA PZE **,,** NAME $4$4K236500 32203 0601 00 0 52430 STO TEMP BYTE AND COUNT $4$4K236600| 32204 4534 00 4 32202 LXD KNAMA,4 $4$4K236700| 32205 0634 00 4 52430 SXA TEMP,4 LOCATION $4$4K236800| 32206 1 00001 4 32207 TXI *+1,4,1 $4$4K236900| 32207 4634 00 4 32202 SXD KNAMA,4 LOCATION OF NEXT NAME $4$4K237000 32210 0500 00 0 52430 CLA TEMP $4$4K237100| 32211 4760 00 0 00003 SSM NAME PARAMETER TO $4$4K237200| 32212 0601 00 1 00002 STO 2,1 PRINT CALL SEQ. $4$4K237300| 32213 0500 00 0 32221 CLA QTWD $4$4K237400| 32214 0601 00 1 00001 STO 1,1 QUOTATION MARK BEFORE $4$4K237500 32215 0601 00 1 00003 STO 3,1 AND AFTER NAME. $4$4K237600| 32216 1 77776 1 32217 TXI *+1,1,-2 $4$4K237700| 32217 0774 00 4 00000 KNAMX AXT **,4 $4$4K237800| 32220 0020 00 4 00001 TRA 1,4 RETURN $4$4K237900| 32221 4 00001 1 32222 QTWD MZE *+1,1,1 QUOTE MARK FOR $4$4K238100| 32222 141414141433 BCI 1,'''''. NAME ENCLOSURE $4$4K238200| | * CHARACTER OR CONSTANT TO MESSAGE $4$4K238400| * $4$4K238500 32223 0634 00 4 32250 IKAR SXA IKONX,4 $4$4K238600| 32224 4765 00 0 00006 LGR 6 PLACE CHARACTER IN MQ, SET $4$4K238700| 32225 0774 00 4 00001 AXT 1,4 COUNT OF 1, AND SUPPRESS $4$4K238800| 0BINARY CARD ID. MAPK0087| 32226 1 00001 1 32235 TXI IKONA,1,1 LEADING BLANK. $4$4K238900 32227 0634 00 4 32250 IKON SXA IKONX,4 $4$4K239000| 32230 0634 00 1 32234 SXA *+4,1 $4$4K239100| 32231 0074 00 4 27507 TSX SC.CON,4 CONVERT NUMBER $4$4K239200| 32232 0634 00 1 32233 SXA *+1,1 TO DECIMAL AND $4$4K239300| 32233 0774 00 4 00000 AXT **,4 PLACE COUNT $4$4K239400 32234 0774 00 1 00000 AXT **,1 IN IR4 $4$4K239500| 32235 0500 00 0 32404 IKONA CLA SPCWD $4$4K239600| 32236 0601 00 0 52430 STO TEMP $4$4K239700| 32237 4634 00 4 52430 SXD TEMP,4 BYTE AND COUNT $4$4K239800| 32240 4535 00 4 32202 LDC KNAMA,4 SAVE WORD FOR $4$4K239900 32241 4600 00 4 00000 STQ 0,4 PRINTING $4$4K240000| 32242 4534 00 4 32202 LXD KNAMA,4 $4$4K240100| 32243 0634 00 4 52430 SXA TEMP,4 LOCATION $4$4K240200| 32244 1 00001 4 32245 TXI *+1,4,1 $4$4K240300| 32245 4634 00 4 32202 SXD KNAMA,4 NEXT PLACE TO STORE. $4$4K240400 32246 0500 00 0 52430 CLA TEMP $4$4K240500| 32247 0601 00 1 00001 STO 1,1 WORD TO CALL SEQ $4$4K240600| 1 IBMAPV IBMAPK 12/01/64 PAGE 418 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32250 0774 00 4 00000 IKONX AXT **,4 $4$4K240700 32251 0020 00 4 00001 TRA 1,4 $4$4K240800| | | * SUBSTITUTION PARAMETER $4$4K241000| * $4$4K241100 32252 4046 00 0 00000 SUBLS PIA FIND WORD IN $4$4K241200| 32253 0361 00 0 21706 ACL L(2) SUBSTITUTION LIST, $4$4K241300| 0BINARY CARD ID. MAPK0088| 32254 0621 00 0 32257 STA SUBLTS SET SUBSTITUTION $4$4K241400| 32255 0771 00 0 00022 ARS 18 INCREMENT, SAVE $4$4K241500 32256 0621 00 0 32377 STA BASE END BIT, AND $4$4K241600| 32257 4500 00 2 00000 SUBLTS CAL **,2 PROCESS $4$4K241700| 32260 4320 00 0 32405 ANA MSKMZ AS IF $4$4K241800| 32261 0445 00 0 32405 RIS MSKMZ ORIGINAL. $4$4K241900| 32262 0043 00 0 00000 OAI $4$4K242000 32263 0020 00 0 32111 TRA MPRCA-1 $4$4K242100| | * INSERT ENTIRE LIST INTO MESSAGE (6)4K242120| * (6)4K242130| 32264 0604 00 1 00001 PUBLS STI 1,1 STORE PREFIX CODE (6)4K242140 32265 0500 00 2 00001 CLA 1,2 OBTAIN WORD (6)4K242150| 32266 0622 00 1 00001 STD 1,1 COUNT (6)4K242160| 32267 4754 00 0 00000 ZAC CLEAR (6)4K242170| 32270 0625 00 1 00001 STT 1,1 TAG (6)4K242180| 32271 0754 00 2 00003 PXA 3,2 COMPUTE (6)4K242190 32272 4400 00 0 32271 SBM *-1 ADDRESS OF (6)4K242200| 32273 0621 00 1 00001 STA 1,1 LIST (6)4K242210| 32274 0020 00 0 32135 TRA MPRG (6)4K242220| | * OBTAIN BCD NAME FROM NAME TABLE $4$4K242300 * $4$4K242400| 32275 0634 00 4 32323 XNAME SXA XNAX,4 SAVE INDEXES $4$4K242500| 32276 0634 00 2 32324 SXA XNAX+1,2 $4$4K242600| 32277 0500 00 4 00001 CLA 1,4 $4$4K242700| 32300 0604 00 0 52432 STI TEMP+2 $4$4K242800 32301 4737 00 2 00000 PDC 0,2 PLACE TO STORE $4$4K242900| 0BINARY CARD ID. MAPK0089| 32302 0737 00 4 00000 XNAA PAC 0,4 LOC OF NAME $4$4K243000| 32303 0441 00 4 00000 LDI 0,4 PICK UP $4$4K243100| 32304 4056 00 760000 LNT 760000 SUPPOSED NAME $4$4K243200 32305 0020 00 0 32310 TRA *+3 $4$4K243300| 32306 4046 00 0 00000 PIA FIND END OF $4$4K243400| 32307 0020 00 0 32302 TRA XNAA CHAIN IF DUPLICATE $4$4K243500| 32310 0604 00 2 00000 STI 0,2 STORE BCD $4$4K243600| 32311 0441 00 0 52432 LDI TEMP+2 $4$4K243700 32312 4500 00 2 00000 CAL 0,2 $4$4K243800| 32313 0322 00 0 27741 ERA BLANKS $4$4K243900| 32314 0774 00 2 77777 AXT -1,2 SET INITIAL COUNT $4$4K244000| 32315 0140 00 0 32316 TOV *+1 CLEAR BIT INDICATOR $4$4K244100| 32316 1 00001 2 32317 TXI *+1,2,1 BUMP COUNT $4$4K244200 32317 0767 00 0 00006 ALS 6 IF THERE $4$4K244300| 32320 0140 00 0 32316 TOV *-2 WAS A BIT IN CHAR $4$4K244400| 32321 4754 00 2 00000 PXD 0,2 COUNT TO ACCUM $4$4K244500| 1 IBMAPV IBMAPK 12/01/64 PAGE 419 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 32322 0361 00 0 32374 ACL 1TAG WITH BYTE OF 1 $4$4K244600| 32323 0774 00 4 00000 XNAX AXT **,4 AND EXIT $4$4K244700| 32324 0774 00 2 00000 AXT **,2 $4$4K244800| 32325 0020 00 4 00002 TRA 2,4 $4$4K244900| | * PRINT FINAL MESSAGE $4$4K245100| * $4$4K245200| 32326 4520 00 0 45005 ENDPR NZT MSS-1 IF OVERFLOW, PRINT $4$4K245300| 32327 0074 00 4 25577 TSX PRINT,4 'TOO MANY MESSAGES( $4$4K245400 0BINARY CARD ID. MAPK0090| 32330 0020 00 0 32333 TRA MSGA $4$4K245500| 32331 0 00000 0 00001 PZE 1 $4$4K245600| 32332 2 00010 0 32406 PTW MEND1,,8 $4$4K245700| 32333 0500 00 0 21422 MSGA CLA CTNOGO $4$4K245800 32334 4320 00 0 21713 ANA L(7) $4$4K245900| 32335 4602 00 0 32441 ORS TITL4+4 $4$4K246000| 32336 0074 00 4 25577 TSX PRINT,4 PRINT FINAL $4$4K246100| 32337 0020 00 0 32342 TRA MSGX $4$4K246200| 32340 0 00000 0 00001 PZE 1 MESSAGE OFF LINE $4$4K246300 32341 3 00005 0 32435 PTH TITL4,,5 $4$4K246400| 32342 0774 00 4 00000 MSGX AXT **,4 $4$4K246500| 32343 0020 00 4 00001 TRA 1,4 AND EXIT $4$4K246600| | * ALTERNATE PRINT IF NO ERROR MESSAGES $4$4K246800| * $4$4K246900| 32344 0520 00 0 21422 NONE ZET CTNOGO TEST FOR TRUE $4$4K247000| 32345 0020 00 0 32333 TRA MSGA NO MESSAGE CONDITION $4$4K247100| 32346 4520 00 0 21420 NZT CTLIST IF SO, AND IF $4$4K247200 32347 0074 00 4 25577 TSX PRINT,4 LISTING, PRINT $4$4K247300| 32350 0020 00 0 32342 TRA MSGX ALL OK $4$4K247400| 32351 0 00000 0 00001 PZE 1 MESSAGE $4$4K247500| 32352 3 00005 0 32423 PTH TITL2,,5 $4$4K247600| | * CONSTANTS AND STORAGE $4$4K247800| * $4$4K247900| 32353 0 45003 0 00000 PZE 0,,MSS-3 INITIAL $4$4K248000| 32354 0 00000 0 00000 PZE 0 WORDS $4$4K248100 32355 0 00000 0 00000 PZE 0 FOR $4$4K248200| 0BINARY CARD ID. MAPK0091| 32356 0 00000 0 45000 PZE MSS-6 MESSAGE $4$4K248300| 32357 0 00000 0 00000 PZE 0 CHAINS $4$4K248400| 32360 0 77777 0 00000 PZE ,,-1 $4$4K248500 32361 SETUP BSS 0 $4$4K248600| 32361 0074 00 4 25577 TSX PRINT,4 BASIC SETUP $4$4K248700| 32362 0020 00 0 32035 TRA MPRA $4$4K248800| 32363 0 00023 0 00000 PZE **,,19 TO PRINT FIRST $4$4K248900| 32364 0 00001 0 32366 PZE STMNT,,1 $4$4K249000 32365 4 00002 0 32367 MZE SCODE,,2 $4$4K249100| 32366 PSUP BSS 0 $4$4K249200| 32366 0 00000 0 00000 STMNT PZE ** GROUP NO FOR PRINT $4$4K249300| 32367 0 00000 0 00000 SCODE PZE ** LEVEL NO $4$4K249400| 1 IBMAPV IBMAPK 12/01/64 PAGE 420 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32370 606060606060 BCI 1, $4$4K249500| 32371 602624312363 CDE.1 BCI 1, FDICT $4$4K249600| 32372 606024252645 CDE.2 BCI 1, DEFN $4$4K249700| 32373 602324312363 CDE.3 BCI 1, CDICT $4$4K249800 32374 0 00000 1 00000 1TAG PZE 0,1 $4$4K250000| 32375 0 00000 0 00000 PREVGP PZE 0 PREVIOUS GROUP NUMBER $4$4K250100| 32376 0 00000 0 51030 MFRST PZE MSS+TBLNTH-6 ADDRESS INITIALIZATION $4$4K250200| 32377 0 00000 0 00000 BASE PZE 0 $4$4K250300| 32400 0 00000 0 00000 MSEVR PZE 0 $4$4K250400 32401 007777077777 MSKBO OCT 007777077777 SPECIAL MASK $4$4K250500| 32402 4 00000 0 00000 MONWD MZE 0 $4$4K250600| 32403 0 00023 1 27741 BGLWD PZE BLANX,1,19 BEGINS A CONTINUE LINE $4$4K250700| 0BINARY CARD ID. MAPK0092| 32404 4 00001 1 27741 SPCWD MZE BLANX,1,1 SKIP COLUMN WORD $4$4K250800 32405 377777777777 MSKMZ OCT 377777777777 $4$4K250900| 32406 333333333333 MEND1 BCI 8,...... 5 MESSAGE CAPACITY EXCEEDED $4$4K251200| 32416 512544215142 TITL1 BCI 5,REMARKS AND ERROR MESSAGES. $4$4K251300| 32423 TITL1E EQU * $4$4K251400| 32423 454660442562 TITL2 BCI 5,NO MESSAGES FOR THIS ASSEMBLY $4$4K251500 32430 606023215124 TITL3 BCI 5, CARD LEVEL MESSAGE $4$4K251600| 0BINARY CARD ID. MAPK0093| 32435 303127302562 TITL4 BCI 5,HIGHEST MESSAGE SEVERITY WAS 0 $4$4K251700| | * QUANTITIES DEFINED BY EQU $4$4K251900| * $4$4K252000| 45006 MSS EQU PSBF+6 $4$4K252100| 1 IBMAPV IBMAPK 12/01/64 PAGE 421 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0| * TABLE FOR ERROR MESSAGE SKELETONS $4$4K252300| | 32442 MSGBL BSS 0 $4$4K252500| 32442 4 00000 0 32652 MZE NOMSG 0 $4$4K252600 32443 0 00000 0 32653 PZE MSG001 1 $4$4K252700| 32444 0 00000 0 32655 PZE MSG002 2 $4$4K252800| 32445 0 00000 0 32657 PZE MSG003 3 $4$4K252900| 32446 0 00000 0 32661 PZE MSG004 4 $4$4K253000| 32447 0 00000 0 32663 PZE MSG005 5 $4$4K253100 32450 0 00000 0 32666 PZE MSG006 6 $4$4K253200| 32451 0 00000 0 33425 PZE MSG007 7 $4$4K253300| 32452 0 00000 0 33431 PZE MSG008 8 $4$4K253400| 32453 0 00000 0 33433 PZE MSG009 9 $4$4K253500| 32454 0 00000 0 32670 PZE MSG010 10 $4$4K253600 32455 0 00000 0 33215 PZE WMG001 11 $4$4K253700| 32456 0 00000 0 33217 PZE WMG002 12 $4$4K253800| 32457 0 00000 0 33222 PZE WMG003 13 $4$4K253900| 0BINARY CARD ID. MAPK0094| 32460 0 00000 0 33223 PZE WMG004 14 $4$4K254000 32461 0 00000 0 32671 PZE MSG011 15 $4$4K254100| 32462 0 00000 0 32674 PZE MSG012 16 $4$4K254200| 32463 0 00000 0 32700 PZE MSG013 17 $4$4K254300| 32464 0 00000 0 32702 PZE MSG014 18 $4$4K254400| 32465 0 00000 0 32705 PZE MSG015 19 $4$4K254500 32466 0 00000 0 32711 PZE MSG016 20 $4$4K254600| 32467 0 00000 0 32714 PZE MSG017 21 $4$4K254700| 32470 0 00000 0 32716 PZE MSG018 22 $4$4K254800| 32471 0 00000 0 32722 PZE MSG019 23 $4$4K254900| 32472 0 00000 0 33225 PZE WMG005 24 $4$4K255000 32473 0 00000 0 33227 PZE WMG006 25 $4$4K255100| 32474 0 00000 0 33232 PZE WMG007 26 $4$4K255200| 32475 0 00000 0 33234 PZE WMG008 27 $4$4K255300| 32476 0 00000 0 33130 PZE RMG001 28 $4$4K255400| 32477 0 00000 0 33131 PZE RMG002 29 $4$4K255500 32500 0 00000 0 33133 PZE RMG003 30 $4$4K255600| 32501 0 00000 0 33136 PZE RMG004 31 $4$4K255700| 32502 0 00000 0 32731 PZE MSG020 32 $4$4K255800| 32503 0 00000 0 32733 PZE MSG021 33 $5$4K255900| 32504 0 00000 0 32736 PZE MSG022 34 $4$4K256000 32505 0 00000 0 32740 PZE MSG023 35 $5$4K256100| 0BINARY CARD ID. MAPK0095| 32506 0 00000 0 32742 PZE MSG024 36 $4$4K256200| 32507 0 00000 0 32744 PZE MSG025 37 $4$4K256300| 32510 0 00000 0 32746 PZE MSG026 38 $4$4K256400 32511 0 00000 0 32752 PZE MSG027 39 $4$4K256500| 32512 0 00000 0 32754 PZE MSG028 40 $4$4K256600| 32513 0 00000 0 32756 PZE MSG029 41 $4$4K256700| 32514 0 00000 0 32761 PZE MSG030 42 $4$4K256800| 32515 0 00000 0 32764 PZE MSG031 43 $4$4K256900 32516 0 00000 0 33237 PZE WMG009 44 $4$4K257000| 32517 0 00000 0 33242 PZE WMG010 45 $4$4K257100| 32520 0 00000 0 33245 PZE WMG011 46 $4$4K257200| 32521 0 00000 0 32767 PZE MSG032 47 $4$4K257300| 1 IBMAPV IBMAPK 12/01/64 PAGE 422 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32522 0 00000 0 32775 PZE MSG033 48 $4$4K257400| 32523 0 00000 0 33002 PZE MSG034 49 $4$4K257500| 32524 0 00000 0 33250 PZE WMG012 50 $4$4K257600| 32525 0 00000 0 33255 PZE WMG013 51 $4$4K257700 32526 0 00000 0 33261 PZE WMG014 52 $4$4K257800| 32527 0 00000 0 33262 PZE WMG015 53 $4$4K257900| 32530 0 00000 0 33006 PZE MSG035 54 $5$4K258000| 32531 0 00000 0 33007 PZE MSG036 55 $4$4K258100| 32532 0 00000 0 33012 PZE MSG037 56 $4$4K258200 32533 0 00000 0 33017 PZE MSG038 57 $4$4K258300| 0BINARY CARD ID. MAPK0096| 32534 0 00000 0 33023 PZE MSG039 58 $4$4K258400| 32535 0 00000 0 33030 PZE MSG040 59 $4$4K258500| 32536 0 00000 0 33140 PZE RMG010 60 $4$4K258600 32537 0 00000 0 33142 PZE RMG011 61 $4$4K258700| 32540 0 00000 0 33144 PZE RMG012 62 $4$4K258800| 32541 0 00000 0 33147 PZE RMG013 63 $4$4K258900| 32542 0 00000 0 33151 PZE RMG014 64 $4$4K259000| 32543 0 00000 0 33153 PZE RMG015 65 $4$4K259100 32544 0 00000 0 33156 PZE RMG016 66 $4$4K259200| 32545 0 00000 0 33160 PZE RMG017 67 $4$4K259300| 32546 0 00000 0 33162 PZE RMG018 68 $4$4K259400| 32547 0 00000 0 33033 PZE MSG041 69 $4$4K259500| 32550 0 00000 0 33035 PZE MSG042 70 $4$4K259600 32551 0 00000 0 33041 PZE MSG043 71 $4$4K259700| 32552 0 00000 0 33045 PZE MSG044 72 $4$4K259800| 32553 0 00000 0 33052 PZE MSG045 73 $4$4K259900| 32554 0 00000 0 33056 PZE MSG046 74 $4$4K260000| 32555 0 00000 0 33061 PZE MSG047 75 $4$4K260100 32556 0 00000 0 33267 PZE WMG016 76 $4$4K260200| 32557 0 00000 0 33271 PZE WMG017 77 $4$4K260300| 32560 0 00000 0 33273 PZE WMG018 78 $4$4K260400| 32561 0 00000 0 33125 PZE MSG060 79 (2)4K260500| 0BINARY CARD ID. MAPK0097 32562 0 00000 0 33274 PZE WMG019 80 $4$4K260600| 32563 0 00000 0 33276 PZE WMG020 81 $4$4K260700| 32564 0 00000 0 33301 PZE WMG021 82 $4$4K260800| 32565 0 00000 0 33304 PZE WMG022 83 $4$4K260900| 32566 0 00000 0 33307 PZE WMG023 84 $4$4K261000 32567 0 00000 0 33063 PZE MSG048 85 $4$4K261100| 32570 0 00000 0 33066 PZE MSG049 86 $4$4K261200| 32571 0 00000 0 33176 PZE RMG025 87 $4$4K261300| 32572 0 00000 0 33313 PZE WMG024 88 $4$4K261400| 32573 0 00000 0 33314 PZE WMG025 89 $4$4K261500 32574 0 00000 0 33317 PZE WMG026 90 $4$4K261600| 32575 0 00000 0 33322 PZE WMG027 91 $4$4K261700| 32576 0 00000 0 33326 PZE WMG028 92 $4$4K261800| 32577 0 00000 0 33070 PZE MSG050 93 $4$4K261900| 32600 0 00000 0 33172 PZE RMG019 94 $4$4K262000 32601 0 00000 0 33073 PZE MSG051 95 $4$4K262100| 32602 0 00000 0 33076 PZE MSG052 96 $4$4K262200| 32603 0 00000 0 33101 PZE MSG053 97 $4$4K262300| 32604 0 00000 0 33103 PZE MSG054 98 $4$4K262400| 32605 0 00000 0 33327 PZE WMG029 99 $4$4K262500 1 IBMAPV IBMAPK 12/01/64 PAGE 423 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32606 0 00000 0 33331 PZE WMG030 100 $4$4K262600| 32607 0 00000 0 33336 PZE WMG031 101 $4$4K262700| 0BINARY CARD ID. MAPK0098 32610 0 00000 0 33341 PZE WMG032 102 $4$4K262800| 32611 0 00000 0 33344 PZE WMG033 103 $4$4K262900| 32612 0 00000 0 33106 PZE MSG055 104 $4$4K263000| 32613 0 00000 0 33112 PZE MSG056 105 $4$4K263100| 32614 0 00000 0 33347 PZE WMG034 106 $4$4K263200 32615 0 00000 0 33203 PZE RMG030 107 $4$4K263300| 32616 0 00000 0 33206 PZE RMG031 108 $4$4K263400| 32617 0 00000 0 33350 PZE WMG035 109 $4$4K263500| 32620 0 00000 0 33115 PZE MSG057 110 $4$4K263600| 32621 0 00000 0 33210 PZE RMG032 111 $4$4K263700 32622 0 00000 0 33351 PZE WMG036 112 $4$4K263800| 32623 0 00000 0 33352 PZE WMG037 113 $4$4K263900| 32624 0 00000 0 33353 PZE WMG038 114 $4$4K264000| 32625 0 00000 0 33357 PZE FMG001 115 $4$4K264100| 32626 0 00000 0 33361 PZE FMG002 116 $4$4K264200 32627 0 00000 0 33365 PZE FMG003 117 $4$4K264300| 32630 0 00000 0 33367 PZE FMG004 118 $4$4K264400| 32631 0 00000 0 33211 PZE RMG035 119 $4$4K264500| 32632 0 00000 0 33354 PZE WMG039 120 $4$4K264600| 32633 0 00000 0 33121 PZE MSG058 121 $4$4K264700 32634 0 00000 0 33165 PZE MMG001 122 $4$4K264800| 32635 0 00000 0 33122 PZE MSG059 123 $4$4K264900| 0BINARY CARD ID. MAPK0099| 32636 0 00000 0 33371 PZE FMG005 124 $4$4K265000| 32637 0 00000 0 33372 PZE FMG006 125 $4$4K265100 32640 0 00000 0 33376 PZE FMG007 126 $4$4K265200| 32641 0 00000 0 33356 PZE WMG040 127 $4$4K265300| 32642 0 00000 0 33402 PZE FMG008 128 (6)4K265400| 32643 0 00000 0 33404 PZE FMG009 129 (6)4K265500| 32644 0 00000 0 33410 PZE FMG010 130 $4$4K265600 32645 0 00000 0 33412 PZE FMG011 131 $4$4K265700| 32646 0 00000 0 33416 PZE FMG012 132 $4$4K265800| 32647 0 00000 0 33243 PZE FMG014 133 $4$4K265900| 32650 0 00000 0 33420 PZE FMG013 134 $4$4K266000| 32651 0 00000 0 33437 PZE RMG036 135 $5$4K266010 32652 MSGBLE EQU * $4$4K266100| 1 IBMAPV IBMAPK 12/01/64 PAGE 424 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0| * MESSAGE SKELETONS. $4$4K266300 * $4$4K266400| | | * PROGRAMMER NAMES WILL BE IN SINGLE QUOTES. 'NAME' $4$4K266600| * SYSTEM KEY WORDS ARE ENCLOSED BY HYPHENS. -WORD- $4$4K266700 * NO OTHER USE IS MADE OF QUOTE OR HYPHEN, EXCEPT 'LITERAL' $4$4K266800| | 32652 NOMSG NULL (6)4K267000| | 32652 4 00001 0 27741 BLKMSG MZE BLANX,,1 (BLANK MESSAGE FOR UNUSED NUMBERS)$4$4K267200 | 32653 0 10021 0 33442 MSG001 PZE ST.001,,17+1*4096 NAME TABLE FULL. $4$4K267400| 32654 4 00006 0 33445 MZE ST.002,,6 ASSEMBLE PROGRAM IN SMALLER PARTS.$4$4K267500| | 32655 0 10032 0 33453 MSG002 PZE ST.003,,26+1*4096 INTERNAL DICTIONARY FULL. (6)4K267700 32656 4 00006 0 33445 MZE ST.002,,6 ASSEMBLE PROGRAM IN SMALLER PTS. $4$4K267900| | 32657 0 10013 0 33475 MSG003 PZE ST.008,,11+1*4096 ILLEGAL BCD $4$4K268100| 32660 4 00005 0 33470 MZE ST.007,,5 CHARACTER TREATED AS IF BLANK $4$4K268200| 32661 0 10016 0 33465 MSG004 PZE ST.006,,14+1*4096 LOCATION FIELD $4$4K268400| 32662 4 00003 0 33477 MZE ST.009,,3 FORMAT ERROR. (6)4K268500| | 32663 0 10007 0 33475 MSG005 PZE ST.008,,7+1*4096 ILLEGAL $4$4K268800| 0BINARY CARD ID. MAPK0100 32664 0 10020 0 33502 PZE ST.010,,16+1*4096 SCAN CONDITION. (6)4K268900| 32665 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR. $4$4K269000| | 32666 0 10017 0 33505 MSG006 PZE ST.011,,15+1*4096 OPERATION FIELD $4$4K269200| 32667 4 00003 0 33477 MZE ST.009,,3 FORMAT ERROR. (6)4K269300 | 32670 4 00005 0 34501 MSG010 MZE ST.154,,5 INCORRECT DUPLICATE SEQUENCE $4$4K269500| | 32671 0 10027 0 33554 MSG011 PZE ST.022,,23+1*4096 FLOATING POINT OVERFLOW $4$4K269900| 32672 0 10015 0 33560 PZE ST.023,,13+1*4096 IN CONVERTING $4$4K270000 32673 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT. $4$4K270100| | 32674 0 10016 0 33554 MSG012 PZE ST.022,,14+1*4096 FLOATING POINT $4$4K270300| 32675 0 10011 0 33567 PZE ST.025,,9+1*4096 UNDERFLOW $4$4K270400| 32676 0 10015 0 33560 PZE ST.023,,13+1*4096 IN CONVERTING $4$4K270500 32677 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT $4$4K270600| | 32700 0 10057 0 33571 MSG013 PZE ST.026,,47+1*4096 SIGNIFICANT DIGITS LOST IN $4$4K270800| SHIFTING FIXED POINT $4$4K270900| 32701 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT $4$4K271000 | 32702 0 10026 0 33601 MSG014 PZE ST.027,,22+1*4096 MORE THAN ONE SIGN FOR $4$4K271200| 32703 0 10021 0 33605 PZE ST.028,,17+1*4096 PRINCIPAL PART OF $4$4K271300| 32704 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT. $4$4K271400| 32705 0 10015 0 33601 MSG015 PZE ST.027,,13+1*4096 MORE THAN ONE $4$4K271600| 32706 0 10021 0 33610 PZE ST.029,,17+1*4096 DECIMAL POINT FOR $4$4K271700| 32707 0 10025 0 33563 PZE ST.024,,21+1*4096 LITERAL OR CONSTANT. (6)4K271800| 1 IBMAPV IBMAPK 12/01/64 PAGE 425 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 32710 4 00004 0 33613 MZE ST.030,,4 ALL BUT FIRST IGNORED. $4$4K271900| | 32711 0 10026 0 33601 MSG016 PZE ST.027,,22+1*4096 MORE THAN ONE SIGN FOR $4$4K272100| 0BINARY CARD ID. MAPK0101| 32712 0 10043 0 33617 PZE ST.031,,35+1*4096 EXPONENTIAL OR BINARY-PLACE PART O$4$4K272200 32713 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT $4$4K272300| | 32714 0 10023 0 33625 MSG017 PZE ST.032,,19+1*4096 MISUSE OF E OR B IN $4$4K272500| 32715 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT $4$4K272600| 32716 0 10015 0 33610 MSG018 PZE ST.029,,13+1*4096 DECIMAL POINT $4$4K272800| 32717 0 10021 0 33631 PZE ST.033,,17+1*4096 CAN OCCUR ONLY IN $4$4K272900| 32720 0 10021 0 33605 PZE ST.028,,17+1*4096 PRINCIPAL PART OF $4$4K273000| 32721 4 10024 0 33563 MZE ST.024,,20+1*4096 LITERAL OR CONSTANT $4$4K273100| 32722 0 10011 0 33605 MSG019 PZE ST.028,,9+1*4096 PRINCIPAL $4$4K273300| 32723 0 00001 2 00073 PZE 59,2,1 3 $4$4K273400| 32724 0 10043 0 33617 PZE ST.031,,35+1*4096 EXPONENTIAL OR BINARY-PLACE PART O$4$4K273500| 32725 0 10023 0 33563 PZE ST.024,,19+1*4096 LITERAL OR CONSTANT $4$4K273600| 32726 0 20011 0 33540 PZE ST.020+1,,9+2*4096 TOO LONG. $4$4K273700 32727 0 00001 1 00000 PZE 0,1,1 (SKIP LINE) $4$4K273800| 32730 4 00007 0 33634 MZE ST.034,,7 FIELD TRUNCATED TO MAXIMUM DIGIT SI$4$4K273900| | 32731 0 10020 0 33654 MSG020 PZE ST.041,,16+1*4096 MACRO DEFINITION $4$4K274100| 32732 4 00006 0 33666 MZE ST.043,,6 NESTING ERROR. -ENDM- SUPPLIED. (6)4K274200 | 32733 0 10007 0 34370 MSG021 PZE ST.134,,7+1*4096 ILLEGAL $5$4K274400| 32734 0 10004 0 34472 PZE ST.150,,4+1*4096 BITS $5$4K274500| 32735 4 20032 0 34352 MZE ST.130+3,,26+2*4096 USED FOR -OPD- OR -OPVFD-. (6)4K274600| | 32736 0 10057 0 33654 MSG022 PZE ST.041,,47+1*4096 MACRO DEFINITION TERMINATED BY $4$4K274900| -ENDM- CARD WITH $4$4K275000| 32737 4 00002 0 33664 MZE ST.042,,2 WRONG NAME. $4$4K275100| | 0BINARY CARD ID. MAPK0102| 32740 0 00007 0 34536 MSG023 PZE ST.162,,7 MORE THAN 4095 LITERALS IN RANGE (6)4K275300| 32741 4 00001 2 00033 MZE 27,2,1 OF -LORG-. (6)4K275400| 32742 0 10020 0 33654 MSG024 PZE ST.041,,16+1*4096 MACRO DEFINITION $4$4K276000| 32743 4 00005 0 33701 MZE ST.045,,5 CARD WITHOUT NAME IGNORED. $4$4K276100| | 32744 0 10020 0 33654 MSG025 PZE ST.041,,16+1*4096 MACRO DEFINITION $4$4K276300| 32745 4 00006 0 33706 MZE ST.046,,6 CANNOT HAVE MORE THAN 63 PARAMETER$4$4K276400 | 32746 0 10007 0 33652 MSG026 PZE ST.039,,7+1*4096 TOO FEW (6)4K276600| 32747 0 00002 0 33753 PZE ST.054+1,,2 PARAMETERS. (6)4K276700| 32750 0 10010 0 34477 PZE ST.153,,8+1*4096 -APPEND- (6)4K276800| 32751 4 00002 0 34235 MZE ST.106+1,,2 IGNORED. (6)4K276900 | 32752 0 00004 0 33714 MSG027 PZE ST.047,,4 -ETC- CARD SHOULD FOLLOW $4$4K277200| 32753 4 00001 2 00033 MZE 27,2,1 . $4$4K277300| | 1 IBMAPV IBMAPK 12/01/64 PAGE 426 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 32754 0 10027 0 33510 MSG028 PZE ST.013,,23+1*4096 PERMANENT READ ERROR ON $4$4K277500| 32755 4 00004 0 33722 MZE ST.049,,4 SECOND PASS TEXT INPUT. $4$4K277600| | 32756 0 10017 0 33752 MSG029 PZE ST.054,,15+1*4096 MACRO PARAMETER $4$4K277800 32757 0 10011 0 33755 PZE ST.055,,9+1*4096 EXPANSION $4$4K277900| 32760 4 00003 0 33757 MZE ST.056,,3 TABLE OVERFLOW. $4$4K278000| | 32761 0 10017 0 33752 MSG030 PZE ST.054,,15+1*4096 MACRO PARAMETER $4$4K278200| 32762 0 10011 0 33762 PZE ST.057,,9+1*4096 PUSH DOWN $4$4K278300 32763 4 00003 0 33757 MZE ST.056,,3 TABLE OVERFLOW $4$4K278400| | 32764 0 10016 0 33764 MSG031 PZE ST.058,,14+1*4096 MACRO CALL HAS $4$4K278600| 32765 0 10010 0 34154 PZE ST.040,,8+1*4096 TOO MANY $4$4K278700| 0BINARY CARD ID. MAPK0103 32766 4 10013 0 33753 MZE ST.054+1,,11+1*4096 PARAMETERS. (6)4K278800| | 32767 0 00001 0 33537 MSG032 PZE ST.020,,1 SYMBOL (6)4K279000| 32770 0 10010 0 33650 PZE ST.038,,8+1*4096 REQUIRED (6)4K279100| 32771 0 10002 0 33560 PZE ST.023,,2+1*4096 IN (6)4K279200 32772 0 10016 0 33523 PZE ST.015,,14+1*4096 VARIABLE FIELD (6)4K279300| 32773 0 00001 2 00033 PZE 27,2,1 . (6)4K279310| 32774 4 60023 0 34531 MZE ST.161+3,,19+6*4096 OPERATION IGNORED. (6)4K279320| | 32775 0 00002 0 33477 MSG033 PZE ST.009,,2 FORMAT ERROR $4$4K279500 32776 0 10002 0 33560 PZE ST.023,,2+1*4096 IN $4$4K279600| 32777 0 60005 0 34242 PZE ST.109,,5+6*4096 FIRST $4$4K279700| 33000 0 10010 0 34157 PZE ST.095,,8+1*4096 SUBFIELD $4$4K279800| 33001 4 00001 2 00033 MZE 27,2,1 . $4$4K279900| 33002 0 10020 0 34000 MSG034 PZE ST.062,,16+1*4096 MACRO GENERATION $4$4K280100| 33003 0 00004 0 34003 PZE ST.063,,4 SYNCHRONIZATION FAILURE. $4$4K280200| 33004 0 00001 2 00060 PZE 48,2,1 (6)4K280210| 33005 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR. $4$4K280300| | 33006 4 00010 0 34526 MSG035 MZE ST.161,,8 LITORG LIMIT EXCEEDED. OP IGNORED.(6)4K280303| | 33007 0 10015 0 34022 MSG036 PZE ST.068,,13+1*4096 EXTERNAL NAME $4$4K280500| 33010 0 00000 3 00001 PZE 1,3 '-----' $4$4K280600 33011 4 30036 0 34024 MZE ST.068+2,,30+3*4096 SUPPLIED FOR THIS CDICT ENTRY. (6)4K280700| | 33012 0 10021 0 34032 MSG037 PZE ST.069,,17+1*4096 INCORRECT FORM OF $4$4K280900| 33013 0 10016 0 33523 PZE ST.015,,14+1*4096 VARIABLE FIELD $4$4K281000| 0BINARY CARD ID. MAPK0104 33014 0 10002 0 33533 PZE ST.019,,2+1*4096 ON $4$4K281100| 33015 0 10010 0 34015 PZE ST.067,,8+1*4096 -CONTRL- $4$4K281200| 33016 4 00003 0 34035 MZE ST.070,,3 OR -FILE- CARD. $4$4K281300| | 33017 0 00000 3 00001 MSG038 PZE 1,3 '------' (6)4K281500 33020 0 00001 0 34040 PZE ST.071,,1 IS NOT (6)4K281600| 33021 0 20007 0 33734 PZE ST.050+6,,7+2*4096 DEFINED (6)4K281700| 33022 4 00002 0 34361 MZE ST.132,,2 BY A -SET-. (6)4K281800| | 33023 0 10010 0 34022 MSG039 PZE ST.068,,8+1*4096 EXTERNAL $4$4K282000 1 IBMAPV IBMAPK 12/01/64 PAGE 427 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 33024 0 10016 0 34474 PZE ST.152,,14+1*4096 LABLE FOR FILE $4$4K282100| 33025 0 20020 0 33540 PZE ST.020+1,,16+2*4096 TOO LONG. FIRST (6)4K282200| 33026 0 10002 0 34041 PZE ST.072,,2+1*4096 18 $4$4K282300 33027 4 50020 0 33543 MZE ST.020+4,,16+5*4096 CHARACTERS USED. (6)4K282400| | 33030 0 10014 0 33477 MSG040 PZE ST.096,,12+1*4096 FORMAT ERROR $4$4K282700| 33031 0 10023 0 34042 PZE ST.073,,19+1*4096 FOLLOWING = SIGN ON $4$4K282800| 33032 4 40014 0 34035 MZE ST.070,,12+4*4096 -FILE- CARD. (6)4K282900 | 33033 0 10056 0 34063 MSG041 PZE ST.078,,46+1*4096 NUMERIC FIELD CONTAINS (6)4K283100| NON-NUMERIC CHARACTER. $4$4K283200| 33034 4 00003 0 34073 MZE ST.079,,3 FIELD IGNORED. $4$4K283300| 33035 0 10021 0 34032 MSG042 PZE ST.069,,17+1*4096 INCORRECT FORM OF $4$4K283500| 33036 0 10016 0 33523 PZE ST.015,,14+1*4096 VARIABLE FIELD $4$4K283600| 33037 0 10002 0 33533 PZE ST.019,,2+1*4096 ON $4$4K283700| 33040 4 00003 0 34076 MZE ST.080,,3 -ORGCRS- CARD. $4$4K283800| 33041 0 10027 0 34114 MSG043 PZE ST.084,,23+1*4096 THIS CARD NOT EFFECTIVE $4$4K284000| 0BINARY CARD ID. MAPK0105| 33042 0 10017 0 34151 PZE ST.092,,15+1*4096 UNLESS WITHIN A $4$4K284100| 33043 0 10020 0 33654 PZE ST.041,,16+1*4096 MACRO DEFINITION $4$4K284200| 33044 4 00001 2 00033 MZE 27,2,1 $4$4K284300 | 33045 0 10023 0 33453 MSG044 PZE ST.003,,19+1*4096 INTERNAL DICTIONARY $4$4K284500| 33046 0 40010 0 33556 PZE ST.022+2,,8+4*4096 OVERFLOW $4$4K284600| 33047 0 10020 0 33676 PZE ST.044+2,,16+1*4096 WHILE PROCESSING $4$4K284700| 33050 0 00003 0 34101 PZE ST.081,,3 CONTROL DICTIONARY $4$4K284800 33051 4 00001 2 00033 MZE 27,2,1 $4$4K284900| | 33052 0 00003 0 34101 MSG045 PZE ST.081,,3 CONTROL DICTIONARY $4$4K285100| 33053 0 10011 0 34104 PZE ST.082,,9+1*4096 ENTRY FOR $4$4K285200| 33054 0 00000 3 00001 PZE 1,3,0 '-------' $4$4K285300 33055 4 00006 0 34106 MZE ST.083,,6 ELIMINATED. IMPROPER REFERENCE. (6)4K285400| | 33056 0 00003 0 34101 MSG046 PZE ST.081,,3 CONTROL DICTIONARY $4$4K285700| 33057 4 10031 0 33516 MZE ST.014,,25+1*4096 NOT CORRECTLY PROCESSED. (6)4K285800| 33060 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR. $4$4K286000 | 33061 0 10035 0 34114 MSG047 PZE ST.084,,29+1*4096 THIS CARD NOT EFFECTIVE IN AN $4$4K286200| 33062 4 00003 0 34121 MZE ST.085,,3 ABSMOD ASSEMBLY. $4$4K286300| | 33063 0 30017 0 34424 MSG048 PZE ST.139+1,,15+3*4096 INDEX SPECIFIED $4$4K286500 33064 0 10016 0 34432 PZE ST.140+3,,14+1*4096 MORE THAN ONCE $4$4K286600| 33065 4 00003 0 34463 MZE ST.148,,3 FOR -SAVE- OPN. $4$4K286700| | 33066 0 10033 0 34157 MSG049 PZE ST.095,,27+1*4096 SUBFIELD IGNORED BECAUSE OF $4$4K286900| 33067 4 00003 0 33477 MZE ST.009,,3 FORMAT ERROR. (6)4K287000 | 0BINARY CARD ID. MAPK0106| 33070 0 10017 0 34234 MSG050 PZE ST.106,,15+1*4096 -IRP- IGNORED. (6)4K287300| 33071 0 10016 0 33523 PZE ST.015,,14+1*4096 VARIABLE FIELD $4$4K287400| 33072 4 30006 0 33667 MZE ST.043+1,,6+3*4096 ERROR. $4$4K287500 | 1 IBMAPV IBMAPK 12/01/64 PAGE 428 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 33073 0 00003 0 34154 MSG051 PZE ST.093,,3 TOO MANY SUBFIELDS $4$4K287700| 33074 0 10017 0 34266 PZE ST.115,,15+1*4096 ON -DUP- CARD. (6)4K287800 33075 4 00003 0 34460 MZE ST.147,,3 FIRST TWO USED. $4$4K287900| | 33076 0 10011 0 34517 MSG052 PZE ST.158,,9+1*4096 DEBUGGING $4$4K288100| 33077 0 10020 0 33757 PZE ST.056,,16+1*4096 TABLE OVERFLOW. (6)4K288200| 33100 4 00003 0 34517 MZE ST.158,,3 DEBUGGING IGNORED. $4$4K288300 | 33101 0 10034 0 33674 MSG053 PZE ST.044,,28+1*4096 END OF FILE WHILE PROCESSING $4$4K288500| 33102 4 40013 0 34266 MZE ST.115,,11+4*4096 -DUP- CARD. (6)4K288600| | 33103 0 40012 0 34266 MSG054 PZE ST.115,,10+4*4096 -DUP- CARD $4$4K288800 33104 0 10011 0 33762 PZE ST.057,,9+1*4096 PUSH DOWN. $4$4K288900| 33105 4 00003 0 33757 MZE ST.056,,3 TABLE OVERFLOW $4$4K289000| | 33106 0 10007 0 33610 MSG055 PZE ST.029,,7+1*4096 DECIMAL $4$4K289200| 33107 0 10010 0 34131 PZE ST.088+1,,8+1*4096 CONSTANT $4$4K289300 33110 0 50011 0 34313 PZE ST.123+1,,9+5*4096 TOO LARGE (6)4K289400| 33111 4 00001 2 00033 MZE 27,2,1 . (6)4K289410| | 33112 0 10020 0 34307 MSG056 PZE ST.122,,16+1*4096 BOOLEAN CONSTANT $4$4K289600| 33113 0 00002 0 34304 PZE ST.121,,2 TRUNCATED TO $4$4K289700 33114 4 00002 0 34253 MZE ST.113,,2 SIX DIGITS $4$4K289800| | 33115 0 10010 0 34357 MSG057 PZE ST.131,,8+1*4096 SKELETON (6)4K290000| 0BINARY CARD ID. MAPK0107| 33116 0 10020 0 33757 PZE ST.056,,16+1*4096 TABLE OVERFLOW. (6)4K290010 33117 0 10020 0 33654 PZE ST.041,,16+1*4096 MACRO DEFINITION (6)4K290100| 33120 4 00003 0 34012 MZE ST.065,,3 TO BE PURGED. (6)4K290200| | 33121 4 00010 0 34201 MSG058 MZE ST.099,,8 -END- SHOULD NOT OCCUR $4$4K290400| IN RANGE OF A -DUP- $4$4K290500 | 33122 0 10031 0 34201 MSG059 PZE ST.099,,25+1*4096 -END- SHOULD NOT OCCUR IN $4$4K290700| 33123 0 10020 0 33654 PZE ST.041,,16+1*4096 MACRO DEFINITION $4$4K290800| 33124 4 00001 2 00033 MZE 27,2,1 . $4$4K290900| 33125 0 00006 0 34201 MSG060 PZE ST.099,,6 -END- SHOULD NOT OCCUR IN RANGE (6)4K290920| 33126 0 00001 0 34545 PZE ST.163,,1 OF A -GOTO- (6)4K290930| 33127 4 00001 2 00033 MZE 27,2,1 . (6)4K290940| | 33130 4 00010 0 33726 RMG001 MZE ST.050,,8 PRINCIPAL PSEUDO-OPERATION $4$4K291100 CANNOT BE DEFINED $4$4K291200| | 33131 0 30015 0 34276 RMG002 PZE ST.119+1,,13+3*4096 INDETERMINATE (6)4K291400| 33132 4 00006 0 33736 MZE ST.051,,6 BOOLEAN EXPRESSION. (6)4K291410| LEFT BOOL USED. $4$4K291500 | 33133 0 00000 3 00001 RMG003 PZE 1,3,0 '-' $4$4K291700| 33134 0 10043 0 33744 PZE ST.052,,35+1*4096 IS IMPROPERLY QUALIFIED OR (6)4K291800| 33135 4 20010 0 33734 MZE ST.050+6,,8+2*4096 MULTIPLY DEFINED. (6)4K291810| | 33136 0 10011 0 34517 RMG004 PZE ST.158,,9+1*4096 DEBUGGING $4$4K292000| 33137 4 00003 0 33477 MZE ST.009,,3 FORMAT ERROR. (6)4K292100| 1 IBMAPV IBMAPK 12/01/64 PAGE 429 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 | | 33140 0 10007 0 33643 RMG010 PZE ST.035,,7+1*4096 ADDRESS $4$4K292300| 33141 4 00002 0 33650 MZE ST.038,,2 REQUIRED. $4$4K292400| 33142 0 10007 0 33643 RMG011 PZE ST.035,,7+1*4096 ADDRESS $4$4K292600| 33143 4 00003 0 34060 MZE ST.077,,3 NOT EXPECTED. $4$4K292700| | 0BINARY CARD ID. MAPK0108| 33144 0 10007 0 33643 RMG012 PZE ST.035,,7+1*4096 ADDRESS $4$4K292900 33145 0 10013 0 33531 PZE ST.018,,11+1*4096 NOT ALLOWED $4$4K293000| 33146 4 00001 2 00033 MZE 27,2,1 . $4$4K293100| | 33147 0 10003 0 33645 RMG013 PZE ST.036,,3+1*4096 TAG $4$4K293300| 33150 4 00002 0 33650 MZE ST.038,,2 REQUIRED. $4$4K293400 | 33151 0 10003 0 33645 RMG014 PZE ST.036,,3+1*4096 TAG $4$4K293600| 33152 4 00003 0 34060 MZE ST.077,,3 NOT EXPECTED. $4$4K293700| | 33153 0 10003 0 33645 RMG015 PZE ST.036,,3+1*4096 TAG $4$4K293900 33154 0 10013 0 33531 PZE ST.018,,11+1*4096 NOT ALLOWED $4$4K294000| 33155 4 00001 2 00033 MZE 27,2,1 . $4$4K294100| | 33156 0 10011 0 33646 RMG016 PZE ST.037,,9+1*4096 DECREMENT $4$4K294300| 33157 4 00002 0 33650 MZE ST.038,,2 REQUIRED. $4$4K294400 | 33160 0 10011 0 33646 RMG017 PZE ST.037,,9+1*4096 DECREMENT $4$4K294600| 33161 4 00003 0 34060 MZE ST.077,,3 NOT EXPECTED $4$4K294700| | 33162 0 10011 0 33646 RMG018 PZE ST.037,,9+1*4096 DECREMENT $4$4K294900 33163 0 10013 0 33531 PZE ST.018,,11+1*4096 NOT ALLOWED $4$4K295000| 33164 4 00001 2 00033 MZE 27,2,1 . $4$4K295100| | 33165 0 10011 0 33646 MMG001 PZE ST.037,,9+1*4096 DECREMENT $4$4K295300| 33166 0 10024 0 34466 PZE ST.149,,20+1*4096 MUST BE CONSTANT AND $4$4K295400 33167 0 10015 0 34133 PZE ST.089,,13+1*4096 CANNOT EXCEED $4$4K295500| 33170 0 00000 3 00001 PZE 1,3,0 '-' $4$4K295600| 33171 4 00001 0 34472 MZE ST.150,,1 BITS. $4$4K295700| | 0BINARY CARD ID. MAPK0109 33172 0 10004 0 34237 RMG019 PZE ST.107,,4+1*4096 ZERO $4$4K295900| 33173 0 30014 0 34024 PZE ST.068+2,,12+3*4096 SUPPLIED FOR $4$4K296000| 33174 0 10010 0 33650 PZE ST.038,,8+1*4096 REQUIRED $4$4K296100| 33175 4 00002 0 34240 MZE ST.108,,2 OPERAND. $4$4K296200| 33176 0 10010 0 33453 RMG025 PZE ST.003,,8+1*4096 INTERNAL $4$4K296400| 33177 0 10004 0 34473 PZE ST.151,,4+1*4096 TEXT $4$4K296500| 33200 0 00004 0 34003 PZE ST.063,,4 SYNCHRONIZATION FAILURE. $4$4K296600| 33201 0 00001 2 00060 PZE 48,2,1 (6)4K296610| 33202 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR. $4$4K296700 | 33203 0 10020 0 34330 RMG030 PZE ST.127,,16+1*4096 PSEUDO OPERATION $4$4K296900| 33204 0 40021 0 33454 PZE ST.003+1,,17+4*4096 DICTIONARY FULL. (6)4K297000| 33205 4 00006 0 33445 MZE ST.002,,6 ASSEMBLE PROGRAM IN SMALLER PARTS. $4$4K297200| 1 IBMAPV IBMAPK 12/01/64 PAGE 430 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 | 33206 0 00000 3 00001 RMG031 PZE 1,3,0 '-' $4$4K297400| 33207 4 00004 0 34333 MZE ST.128,,4 IS AN UNDEFINED SYMBOL. (6)4K297500| 33210 4 00005 0 34363 RMG032 MZE ST.133,,5 VIRTUAL CANNOT APPEAR IN TAG. $4$4K297800| | 33211 0 00000 3 00001 RMG035 PZE 1,3,0 '-' $4$4K298000| 33212 0 10005 0 34333 PZE ST.128,,5+1*4096 IS AN (6)4K298100| 33213 0 10010 0 34164 PZE ST.097,,8+1*4096 IMPROPER (6)4K298110 33214 4 00002 0 34522 MZE ST.159,,2 QUALIFIER. $4$4K298200| | 33215 0 00003 0 33523 WMG001 PZE ST.015,,3 VARIABLE FIELD TOO $4$4K298400| 33216 4 60005 0 33540 MZE ST.020+1,,5+6*4096 LONG. (6)4K298500| 33217 0 10020 0 33526 WMG002 PZE ST.017,,16+1*4096 INDIRECT ADDRESS $4$4K298700| 0BINARY CARD ID. MAPK0110| 33220 0 10013 0 33531 PZE ST.018,,11+1*4096 NOT ALLOWED $4$4K298800| 33221 4 00004 0 33533 MZE ST.019,,4 ON THIS INSTRUCTION. $4$4K298900| 33222 4 00010 0 33537 WMG003 MZE ST.020,,8 SYMBOL TOO LONG. FIRST 6 (6)4K299100| CHARACTERS USED $4$4K299200| | 33223 0 10034 0 33547 WMG004 PZE ST.021,,28+1*4096 ILLEGAL INTERNAL CONDITION. (6)4K299400| 33224 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR $4$4K299500 | 33225 0 00003 0 34154 WMG005 PZE ST.093,,3 TOO MANY SUBFIELDS $4$4K299700| 33226 4 00003 0 34272 MZE ST.118,,3 ON -SET- CARD. $4$4K299800| | 33227 0 10015 0 34046 WMG006 PZE ST.075,,13+1*4096 QUALIFICATION $4$4K300000 33230 0 10007 0 33475 PZE ST.008,,7+1*4096 ILLEGAL $4$4K300100| 33231 4 00003 0 34272 MZE ST.118,,3 ON -SET- CARD $4$4K300200| | 33232 0 10027 0 34275 WMG007 PZE ST.119,,23+1*4096 S-VALUE INDETERMINATE. (6)4K300400| 33233 4 00005 0 33460 MZE ST.004,,5 ASSEMBLER OR MACHINE ERROR. $4$4K300500 | 33234 0 10016 0 33465 WMG008 PZE ST.006,,14+1*4096 LOCATION FIELD $4$4K300700| 33235 0 10010 0 33650 PZE ST.038,,8+1*4096 REQUIRED $4$4K300800| 33236 4 00003 0 34272 MZE ST.118,,3 ON THIS CARD. $4$4K300900| 33237 0 10034 0 33674 WMG009 PZE ST.044,,28+1*4096 END OF FILE WHILE PROCESSING $4$4K301100| 33240 0 00002 0 33514 PZE ST.013+4,,2 SOURCE INPUT $4$4K301200| 33241 4 00001 2 00033 MZE 27,2,1 . $4$4K301300| | 33242 4 00006 0 33767 WMG010 MZE ST.059,,6 OPERATION NOT IN DICTIONARY. $4$4K301500 | 33243 0 10020 0 33654 FMG014 PZE ST.041,,16+1*4096 MACRO DEFINITION (6)4K301700| 33244 4 00002 0 34013 MZE ST.065+1,,2 PURGED. (6)4K301800| | 33245 0 10020 0 34007 WMG011 PZE ST.064,,16+1*4096 DUBIOUS USE OF * (6)4K302000 0BINARY CARD ID. MAPK0111| 33246 0 50012 0 33471 PZE ST.007+1,,10+5*4096 TREATED AS (6)4K302010| 33247 4 00003 0 34257 MZE ST.114+2,,3 LOCATION COUNTER. (6)4K302100| | 33250 0 10005 0 34435 WMG012 PZE ST.141,,5+1*4096 -USE- (6)4K302300 1 IBMAPV IBMAPK 12/01/64 PAGE 431 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 33251 0 50015 0 34115 PZE ST.084+1,,13+5*4096 NOT EFFECTIVE (6)4K302400| 33252 0 10003 0 34475 PZE ST.152+1,,3+1*4096 FOR (6)4K302500| 33253 0 10007 0 34363 PZE ST.133,,7+1*4096 VIRTUAL (6)4K302600 33254 4 00003 0 34257 MZE ST.114+2,,3 LOCATION COUNTER. (6)4K302700| | 33255 0 10025 0 34046 WMG013 PZE ST.075,,21+1*4096 QUALIFICATION SECTION $4$4K302900| 33256 0 60015 0 33656 PZE ST.041+2,,13+6*4096 TERMINATED BY $4$4K303000| 33257 0 10020 0 34054 PZE ST.076,,16+1*4096 -ENDQ- CARD WITH $4$4K303100 33260 4 00002 0 33664 MZE ST.042,,2 WRONG NAME. $4$4K303200| | 33261 4 00006 0 34046 WMG014 MZE ST.075,,6 QUAL SECTION NESTING ERROR. $4$4K303400| | 33262 0 10025 0 34046 WMG015 PZE ST.075,,21+1*4096 QUAL SECTION $4$4K303600 33263 0 60015 0 33656 PZE ST.041+2,,13+6*4096 TERMINATED BY $4$4K303700| 33264 0 10026 0 34054 PZE ST.076,,22+1*4096 -ENDQ- CARD WITH BLANK $4$4K303800| 33265 0 10016 0 33523 PZE ST.015,,14+1*4096 VARIABLE FIELD $4$4K303900| 33266 4 00001 2 00033 MZE 27,2,1 . $4$4K304000| 33267 0 10016 0 34130 WMG016 PZE ST.088,,14+1*4096 OCTAL CONSTANT $4$4K304200| 33270 4 00004 0 34133 MZE ST.089,,4 CANNOT EXCEED 12 DIGITS. $4$4K304300| | 33271 0 10016 0 34130 WMG017 PZE ST.088,,14+1*4096 OCTAL CONSTANT $4$4K304500| 33272 4 00005 0 34137 MZE ST.090,,5 CONTAINS NON-OCTAL CHARACTER. $4$4K304600 | 33273 4 00005 0 34144 WMG018 MZE ST.091,,5 ILLEGAL USE OF -ETC- CARD. $4$4K304800| | 0BINARY CARD ID. MAPK0112| 33274 0 00010 0 34164 WMG019 PZE ST.097,,8 IMPROPER PUNCTUATION FOLLOWING $4$4K305000 HOLLERITH LITERAL $4$4K305100| 33275 4 00001 2 00033 MZE 27,2,1 . $4$4K305200| | 33276 0 10031 0 34211 WMG020 PZE ST.100,,25+1*4096 COUNT FIELD OF -BCI- CARD $4$4K305400| 33277 0 10015 0 34133 PZE ST.101,,13+1*4096 CANNOT EXCEED $4$4K305500 33300 4 00002 0 34253 MZE ST.113,,2 6 DIGITS $4$4K305600| | 33301 0 10031 0 34211 WMG021 PZE ST.100,,25+1*4096 COUNT FIELD OF -BCI- CARD $4$4K305800| 33302 0 10027 0 34216 PZE ST.102,,23+1*4096 IMPROPERLY TERMINATED. (6)4K305900| 33303 4 00003 0 34532 MZE ST.161+4,,3 OPERATION IGNORED. (6)4K306000 | 33304 0 10034 0 34114 WMG022 PZE ST.084,,28+1*4096 THIS CARD NOT EFFECTIVE IN A $4$4K306200| 33305 0 00001 0 34222 PZE ST.103,,1 RELMOD $4$4K306300| 33306 4 20011 0 34122 MZE ST.085+1,,9+2*4096 ASSEMBLY. $4$4K306400| 33307 0 10055 0 34223 WMG023 PZE ST.104,,45+1*4096 SERIALIZATION GROUP ON LBL CARD (6)4K306600| TOO LARGE. $4$4K306700| 33310 0 10005 0 33542 PZE ST.020+3,,5+1*4096 FIRST (6)4K306800| 33311 0 10005 0 34233 PZE ST.105,,5+1*4096 EIGHT $4$4K306900| 33312 4 50020 0 33543 MZE ST.020+4,,16+5*4096 CHARACTERS USED. (6)4K307000 | 33313 4 00005 0 34242 WMG024 MZE ST.109,,5 ONLY FIRST -LORG- EFFECTIVE. $4$4K307300| | 33314 0 10012 0 34242 WMG025 PZE ST.109,,10+1*4096 ONLY FIRST $4$4K307500| 33315 0 00001 0 34247 PZE ST.110,,1 LDIR- $4$4K307600 33316 4 00002 0 34245 MZE ST.109+3,,2 EFFECTIVE. $4$4K307700| | 1 IBMAPV IBMAPK 12/01/64 PAGE 432 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 33317 0 10022 0 33523 WMG026 PZE ST.015,,18+1*4096 VARIABLE FIELD TOO $4$4K307900 33320 0 10011 0 34250 PZE ST.111,,9+1*4096 COMPLEX. (6)4K308000| 33321 4 00004 0 34124 MZE ST.087,,4 SIMPLIFY AND REASSEMBLE $4$4K308100| | 0BINARY CARD ID. MAPK0113| 33322 0 10016 0 34211 WMG027 PZE ST.100,,14+1*4096 COUNT FIELD ON $4$4K308300 33323 0 10005 0 34252 PZE ST.112,,5+1*4096 -VFD- $4$4K308400| 33324 0 10015 0 34133 PZE ST.101,,13+1*4096 CANNOT EXCEED $4$4K308500| 33325 4 00002 0 34253 MZE ST.113,,2 6 DIGITS $4$4K308600| | 33326 4 00011 0 34255 WMG028 MZE ST.114,,9 NO PREVIOUS LOCATION COUNTER. (6)4K308800 BLANK COUNTER USED $4$4K308900| | 33327 0 10035 0 34046 WMG029 PZE ST.075,,29+1*4096 QUALIFICATION SECTION NESTING $4$4K309100| 33330 4 00003 0 34301 MZE ST.120,,3 CAPACITY EXCEEDED. $4$4K309200| 33331 0 10027 0 34312 WMG030 PZE ST.123,,23+1*4096 BIT COUNT TOO LARGE FOR $4$4K309400| 33332 0 10005 0 34252 PZE ST.112,,5+1*4096 -VFD- $4$4K309500| 33333 0 50012 0 34354 PZE ST.130+5,,10+5*4096 OR -OPVFD- $4$4K309600| 33334 0 10010 0 34157 PZE ST.095,,8+1*4096 SUBFIELD $4$4K309700| 33335 4 00001 2 00033 MZE 27,2,1 . $4$4K309800 | 33336 0 10016 0 33523 WMG031 PZE ST.015,,14+1*4096 VARIABLE FIELD $4$4K310000| 33337 0 00002 0 33477 PZE ST.096,,2 FORMAT ERROR $4$4K310100| 33340 4 00004 0 34316 MZE ST.124,,4 ON -IFF- OR -IFT-. $4$4K310200| 33341 0 10013 0 34322 WMG032 PZE ST.125,,11+1*4096 ONE OR MORE $4$4K310400| 33342 0 10015 0 34046 PZE ST.075,,13+1*4096 QUALIFICATION $4$4K310500| 33343 4 00004 0 34324 MZE ST.126,,4 SECTIONS NOT CLOSED. $4$4K310600| | 33344 0 10007 0 33475 WMG033 PZE ST.008,,7+1*4096 ILLEGAL $4$4K310800 33345 0 10031 0 34211 PZE ST.100,,25+1*4096 COUNT FIELD ON -BCI- CARD $4$4K310900| 33346 4 00001 2 00033 MZE 27,2,1 $4$4K311000| | 33347 4 00010 0 34337 WMG034 MZE ST.129,,8 TOTAL BIT COUNT FOR -OPVFD- $4$4K311200| MUST NOT EXCEED 36. $4$4K311300 | 0BINARY CARD ID. MAPK0114| 33350 4 00010 0 34347 WMG035 MZE ST.130,,8 BAD ADJECTIVE CODE USED FOR $4$4K311500| -OPD- OR -OPVFD- $4$4K311600| 33351 4 00007 0 34370 WMG036 MZE ST.134,,7 ILLEGAL OPERAND IN THE VARIABLE FIELD $4$4K311800| | 33352 4 00011 0 34377 WMG037 MZE ST.135,,9 THIS INST CAN'T HAVE AN ASSOCIATED SYMB$4$4K312000| | 33353 4 00007 0 34410 WMG038 MZE ST.136,,7 ILLEGAL TERMINATOR FOR DECIMAL CONST$4$4K312200 | 33354 0 10033 0 34174 WMG039 PZE ST.098,,27+1*4096 ILLEGAL QUALIFICATION USAGE $4$4K312400| 33355 4 00003 0 34272 MZE ST.118,,3 ON THIS CARD. $4$4K312500| | 33356 4 00004 0 34454 WMG040 MZE ST.146,,4 7094 INSTRUCTION ONLY $4$4K312700 | 33357 0 10030 0 34417 FMG001 PZE ST.137,,24+1*4096 ILLEGAL SUBFIELD IGNORED $4$4K312900| 33360 4 00003 0 34463 MZE ST.148,,3 FOR -SAVE- OPN. $4$4K313000| 1 IBMAPV IBMAPK 12/01/64 PAGE 433 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 | 33361 0 10004 0 33442 FMG002 PZE ST.001,,4+1*4096 NAME (6)4K313200| 33362 0 00000 3 00001 PZE 1,3 '-----' (6)4K313210| 33363 0 30010 0 34024 PZE ST.068+2,,8+3*4096 SUPPLIED (6)4K313220| 33364 4 00003 0 34463 MZE ST.148,,3 FOR -SAVE- OPN. $4$4K313300 | 33365 0 10027 0 34423 FMG003 PZE ST.139,,23+1*4096 INVALID INDEX SPECIFIED $4$4K313500| 33366 4 00003 0 34463 MZE ST.148,,3 FOR -SAVE- OPN. $4$4K313600| | 33367 0 10040 0 34427 FMG004 PZE ST.140,,32+1*4096 I,D, OR E OCCURRED MORE THAN ONCE $4$4K313800 33370 4 00003 0 34463 MZE ST.148,,3 FOR -SAVE- OPN. $4$4K313900| | 33371 4 00010 0 34437 FMG005 MZE ST.143,,8 NON-NUMERIC CHARACTER IN $4$4K314100| 'ID' FIELD OF -CALL- $4$4K314200| 33372 0 10010 0 34157 FMG006 PZE ST.095,,8+1*4096 SUBFIELD $4$4K314400| 33373 0 00000 3 00001 PZE 1,3,0 '-' $4$4K314500| 33374 0 10014 0 33477 PZE ST.009,,12+1*4096 FORMAT ERROR $4$4K314600| 33375 4 00003 0 33775 MZE ST.061,,3 $4$4K314700| 0BINARY CARD ID. MAPK0115| 33376 0 10013 0 34447 FMG007 PZE ST.144,,11+1*4096 5 SUBFIELDS $4$4K314900| 33377 0 10010 0 33650 PZE ST.038,,8+1*4096 REQUIRED $4$4K315000| 33400 0 10016 0 34272 PZE ST.118,,14+1*4096 ON THIS CARD. $4$4K315100| 33401 4 00003 0 34451 MZE ST.145,,3 COMMAS SUPPLIED $4$4K315200 | 33402 0 00001 0 34271 FMG008 PZE ST.116,,1 NOTE.. (6)4K315400| 33403 4 00000 4 00000 MZE 0,4 -------------------- (6)4K315500| | 33404 0 10021 0 34301 FMG009 PZE ST.120,,17+1*4096 CAPACITY EXCEEDED (6)4K315800 33405 0 10042 0 34546 PZE ST.164,,34+1*4096 WRITING INTERMEDIATE TEXT ON (6)4K315900| 33406 0 00000 3 00001 PZE 1,3 SYSUT'X (6)4K316000| 33407 4 00001 2 00033 MZE 27,2,1 . (6)4K316100| | 33410 0 10016 0 33767 FMG010 PZE ST.059,,14+1*4096 OPERATION CODE $4$4K316400 33411 4 00002 0 34506 MZE ST.155,,2 REDEFINED $4$4K316500| | 33412 0 10016 0 34007 FMG011 PZE ST.064,,14+1*4096 DUBIOUS USE OF $4$4K316700| 33413 0 00000 3 00001 PZE 1,3,0 '-' $4$4K316800| 33414 0 10002 0 34266 PZE ST.115,,2+1*4096 ON $4$4K316900 33415 4 40014 0 34035 MZE ST.070,,12+4*4096 -FILE- CARD. $4$4K317000| | 33416 0 10011 0 33625 FMG012 PZE ST.032,,9+1*4096 MISUSE OF (6)4K317200| 33417 4 00002 0 33720 MZE ST.048,,2 PARENTHESES. (6)4K317300| 33420 0 20010 0 34122 FMG013 PZE ST.085+1,,8+2*4096 ASSEMBLY $5$4K317700| 33421 0 10027 0 34216 PZE ST.102,,23+1*4096 IMPROPERLY TERMINATED. (6)4K317800| 33422 0 10005 0 34510 PZE ST.156,,5+1*4096 -END- $5$4K317810| 33423 0 40004 0 34512 PZE ST.156+2,,4+4*4096 CARD $5$4K317820| 0BINARY CARD ID. MAPK0116 33424 4 00002 0 34524 MZE ST.160,,2 SIMULATED. (6)4K317830| | 33425 0 10015 0 33601 MSG007 PZE ST.027,,13+1*4096 MORE THAN ONE $4$4K318000| 33426 0 10020 0 34514 PZE ST.157,,16+1*4096 -BEGIN- FOR THIS $4$4K318100| 1 IBMAPV IBMAPK 12/01/64 PAGE 434 ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 33427 0 00003 0 34257 PZE ST.114+2,,3 LOCATION COUNTER. $4$4K318200| 33430 4 00004 0 33613 MZE ST.030,,4 ALL BUT FIRST IGNORED. $4$4K318300| | 33431 0 00004 0 34363 MSG008 PZE ST.133,,4 VIRTUAL CANNOT APPEAR IN $4$4K318500 33432 4 00004 0 34510 MZE ST.156,,4 -END- OR -TCD- CARD. $4$4K318600| | 33433 0 10007 0 34307 MSG009 PZE ST.122,,7+1*4096 BOOLEAN $4$4K318800| 33434 0 40005 0 33466 PZE ST.006+1,,5+4*4096 FIELD $4$4K318900| 33435 0 10020 0 34466 PZE ST.149,,16+1*4096 MUST BE CONSTANT (6)4K319000 33436 4 00001 2 00033 MZE 27,2,1 . (6)4K319010| | 33437 0 10005 0 34435 RMG036 PZE ST.141,,5+1*4096 -USE- (6)4K319030| 33440 0 00005 0 34202 PZE ST.099+1,,5 SHOULD NOT OCCUR IN RANGE OF A (6)4K319040| 33441 4 00001 0 34436 MZE ST.142,,1 -LOC-. (6)4K319050 1 IBMAPV IBMAPK 12/01/64 PAGE 435 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0| * STANDARD PHRASES FOR MESSAGE COMPOSITION. $4$4K319200| * $4$4K319300 | | 33442 452144256063 ST.001 BCI 3,NAME TABLE FULL. $4$4K319600| 33445 216262254422 ST.002 BCI 6,ASSEMBLE PROGRAM IN SMALLER PARTS. $4$4K319700| 0BINARY CARD ID. MAPK0117 33453 314563255145 ST.003 BCI 5,INTERNAL DICTIONARY FULL. (6)4K319800| 33460 216262254422 ST.004 BCI 5,ASSEMBLER OR MACHINE ERROR. $4$4K319900| 33465 434623216331 ST.006 BCI 3,LOCATION FIELD $4$4K320000| 33470 233021512123 ST.007 BCI 5,CHARACTER TREATED AS IF BLANK. $4$4K320100| 33475 314343252721 ST.008 BCI 2,ILLEGAL BCD $4$4K320200 33477 264651442163 ST.009 BCI 3,FORMAT ERROR. (6)4K320300| 0BINARY CARD ID. MAPK0118| 33502 622321456023 ST.010 BCI 3,SCAN CONDITION. $4$4K320400| 33505 464725512163 ST.011 BCI 3,OPERATION FIELD $4$4K320500| 33510 472551442145 ST.013 BCI 6,PERMANENT READ ERROR ON SOURCE INPUT $4$4K320600 33516 454663602346 ST.014 BCI 5,NOT CORRECTLY PROCESSED. (6)4K320700| 33523 652151312122 ST.015 BCI 3,VARIABLE FIELD TOO $4$4K320800| 0BINARY CARD ID. MAPK0119| 33526 314524315125 ST.017 BCI 3,INDIRECT ADDRESS $4$4K321000| 33531 454663602143 ST.018 BCI 2,NOT ALLOWED $4$4K321100 33533 464560633031 ST.019 BCI 4,ON THIS INSTRUCTION. $4$4K321200| 33537 627044224643 ST.020 BCI 8,SYMBOL TOO LONG. FIRST SIX CHARACTERS USED. (6)4K321300| 33547 314343252721 ST.021 BCI 5,ILLEGAL INTERNAL CONDITION. $4$4K321400| 0BINARY CARD ID. MAPK0120| 33554 264346216331 ST.022 BCI 4,FLOATING POINT OVERFLOW $4$4K321500 33560 314560234645 ST.023 BCI 3,IN CONVERTING $4$4K321600| 33563 433163255121 ST.024 BCI 4,LITERAL OR CONSTANT. $4$4K321700| 33567 644524255126 ST.025 BCI 2,UNDERFLOW $4$4K321800| 33571 623127453126 ST.026 BCI 8,SIGNIFICANT DIGITS LOST IN SHIFTING FIXED POINT $4$4K321900| 33601 444651256063 ST.027 BCI 4,MORE THAN ONE SIGN FOR $4$4K322000 0BINARY CARD ID. MAPK0121| 33605 475131452331 ST.028 BCI 3,PRINCIPAL PART OF $4$4K322100| 33610 242523314421 ST.029 BCI 3,DECIMAL POINT FOR $4$4K322200| 33613 214343602264 ST.030 BCI 4,ALL BUT FIRST IGNORED. $4$4K322300| 33617 256747464525 ST.031 BCI 6,EXPONENTIAL OR BINARY-PLACE PART OF $4$4K322400 33625 443162646225 ST.032 BCI 4,MISUSE OF E OR B IN $4$4K322500| 0BINARY CARD ID. MAPK0122| 33631 232145604623 ST.033 BCI 3,CAN OCCUR ONLY IN $4$4K322600| 33634 263125432460 ST.034 BCI 7,FIELD TRUNCATED TO MAXIMUM DIGIT SIZE. $4$4K322700| 33643 212424512562 ST.035 BCI 2,ADDRESS $4$4K322800 33645 632127606060 ST.036 BCI 1,TAG $4$4K322900| 33646 242523512544 ST.037 BCI 2,DECREMENT $4$4K323000| 33650 512550643151 ST.038 BCI 2,REQUIRED. $4$4K323100| 33652 634646602625 ST.039 BCI 2,TOO FEW (6)4K323200| 34154 ST.040 SYN ST.093 (6)4K323300 33654 442123514660 ST.041 BCI 7,MACRO DEFINITION TERMINATED BY -ENDM- CARD $4$4K323400| 1 IBMAPV IBMAPK 12/01/64 PAGE 436 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0BINARY CARD ID. MAPK0123| 33663 606631633060 BCI 1, WITH (6)4K323500 33664 665146452760 ST.042 BCI 2,WRONG NAME. $4$4K323600| 33666 452562633145 ST.043 BCI 6,NESTING ERROR. -ENDM- SUPPLIED. (6)4K323700| 33674 254524604626 ST.044 BCI 5,END OF FILE WHILE PROCESSING $4$4K323800| 33701 232151246066 ST.045 BCI 5,CARD WITHOUT NAME IGNORED. $4$4K323900| 0BINARY CARD ID. MAPK0124 33706 232145454663 ST.046 BCI 6,CANNOT HAVE MORE THAN 63 PARAMETERS. (6)4K324000| 33714 402563234060 ST.047 BCI 4,-ETC- CARD SHOULD FOLLOW $4$4K324100| 33720 472151254563 ST.048 BCI 2,PARENTHESES. (6)4K324200| 33722 622523464524 ST.049 BCI 4,SECOND PASS TEXT INPUT. $4$4K324300| 33726 475131452331 ST.050 BCI 8,PRINCIPAL PSEUDO-OPERATION CANNOT BE DEFINED. $4$4K324400 0BINARY CARD ID. MAPK0125| 33736 224646432521 ST.051 BCI 6,BOOLEAN EXPRESSION. LEFT BOOL USED. (6)4K324500| 33744 316260314447 ST.052 BCI 6,IS IMPROPERLY QUALIFIED OR MULTIPLY (6)4K324600| 33752 442123514660 ST.054 BCI 3,MACRO PARAMETERS. $4$4K324700| 33755 256747214562 ST.055 BCI 2,EXPANSION $4$4K324800 33757 632122432560 ST.056 BCI 3,TABLE OVERFLOW. $4$4K324900| 0BINARY CARD ID. MAPK0126| 33762 476462306024 ST.057 BCI 2,PUSH DOWN $4$4K325000| 33764 442123514660 ST.058 BCI 3,MACRO CALL HAS $4$4K325100| 33767 464725512163 ST.059 BCI 6,OPERATION CODE NOT IN DICTIONARY. $4$4K325200 33775 464560404321 ST.061 BCI 3,ON -LABEL- CARD. $4$4K325400| 34000 442123514660 ST.062 BCI 3,MACRO GENERATION $4$4K325500| 34003 627045233051 ST.063 BCI 4,SYNCHRONIZATION FAILURE. $4$4K325600| 0BINARY CARD ID. MAPK0127| 34007 246422314664 ST.064 BCI 3,DUBIOUS USE OF * (6)4K325700 34012 634660222560 ST.065 BCI 3,TO BE PURGED. (6)4K325800| 34015 402346456351 ST.067 BCI 5,-CONTRL- SECTION MUST HAVE $4$4K325900| 34022 256763255145 ST.068 BCI 8,EXTERNAL NAME SUPPLIED FOR THIS CDICT ENTRY. (6)4K326000| 34032 314523465151 ST.069 BCI 3,INCORRECT FORM OF $4$4K326100| 0BINARY CARD ID. MAPK0128 34035 465160402631 ST.070 BCI 3,OR -FILE- CARD. $4$4K326200| 34040 316260454663 ST.071 BCI 1,IS NOT (6)4K326300| 34041 011060606060 ST.072 BCI 1,18 $4$4K326400| 34042 264643434666 ST.073 BCI 4,FOLLOWING = SIGN ON $4$4K326500| 34046 506421433126 ST.075 BCI 6,QUALIFICATION SECTION NESTING ERROR. $4$4K326700 34054 402545245040 ST.076 BCI 4,-ENDQ- CARD WITH BLANK $4$4K326800| 34060 454663602567 ST.077 BCI 3,NOT EXPECTED. $4$4K326900| 0BINARY CARD ID. MAPK0129| 34063 456444255131 ST.078 BCI 8,NUMERIC FIELD CONTAINS NON-NUMERIC CHARACTER. $4$4K327000| 34073 263125432460 ST.079 BCI 3,FIELD IGNORED. $4$4K327100 34076 404651272351 ST.080 BCI 3,-ORGCRS- CARD. $4$4K327200| 34101 234645635146 ST.081 BCI 3,CONTROL DICTIONARY $4$4K327300| 34104 254563517060 ST.082 BCI 2,ENTRY FOR $4$4K327400| 34106 254331443145 ST.083 BCI 6,ELIMINATED. IMPROPER REFERENCE. (6)4K327500| 0BINARY CARD ID. MAPK0130 34114 633031626023 ST.084 BCI 5,THIS CARD NOT EFFECTIVE IN AN $4$4K327600| 34121 212262444624 ST.085 BCI 3,ABSMOD ASSEMBLY. $4$4K327700| 1 IBMAPV IBMAPK 12/01/64 PAGE 437 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 34124 623144474331 ST.087 BCI 4,SIMPLIFY AND REASSEMBLE. (6)4K327800 34130 462363214360 ST.088 BCI 3,OCTAL CONSTANT $4$4K327900| 34133 232145454663 ST.089 BCI 4,CANNOT EXCEED 12 DIGITS. $4$4K328000| 0BINARY CARD ID. MAPK0131| 34137 234645632131 ST.090 BCI 5,CONTAINS NON-OCTAL CHARACTER. $4$4K328100| 34144 314343252721 ST.091 BCI 5,ILLEGAL USE OF -ETC- CARD. $4$4K328200 34151 644543256262 ST.092 BCI 3,UNLESS WITHIN A $4$4K328300| 34154 634646604421 ST.093 BCI 3,TOO MANY SUBFIELDS $4$4K328400| 34157 626422263125 ST.095 BCI 5,SUBFIELD IGNORED BECAUSE OF $4$4K328600| 33477 ST.096 EQU ST.009 $4$4K328700| 0BINARY CARD ID. MAPK0132 34164 314447514647 ST.097 BCI 8,IMPROPER PUNCTUATION FOLLOWING HOLLERITH LITERAL $4$4K328800| 34174 314343252721 ST.098 BCI 5,ILLEGAL QUALIFICATION USAGE $4$4K328900| 34201 402545244060 ST.099 BCI 8,-END- SHOULD NOT OCCUR IN RANGE OF A -DUP-. $4$4K329000| 34211 234664456360 ST.100 BCI 5,COUNT FIELD ON -BCI- CARD $4$4K329100| 34133 ST.101 SYN ST.089 (6)4K329200 0BINARY CARD ID. MAPK0133| 34216 314447514647 ST.102 BCI 4,IMPROPERLY TERMINATED. (6)4K329300| 34222 512543444624 ST.103 BCI 1,RELMOD $4$4K329400| 34223 622551312143 ST.104 BCI 8,SERIALIZATION GROUP ON -LBL- CARD TOO LARGE. $4$4K329500| 34233 253127306360 ST.105 BCI 1,EIGHT $4$4K329600 34234 403151474060 ST.106 BCI 3,-IRP- IGNORED. (6)4K329700| 34237 712551466060 ST.107 BCI 1,ZERO $4$4K329800| 0BINARY CARD ID. MAPK0134| 34240 464725512145 ST.108 BCI 2,OPERAND. $4$4K329900| 34242 464543706026 ST.109 BCI 5,ONLY FIRST -LORG- EFFECTIVE. $4$4K330000 34247 404324315140 ST.110 BCI 1,-LDIR- $4$4K330100| 34250 234644474325 ST.111 BCI 2,COMPLEX. $4$4K330200| 34252 406526244060 ST.112 BCI 1,-VFD- $4$4K330300| 34253 623167602431 ST.113 BCI 2,SIX DIGITS. $4$4K330400| 34255 454660475125 ST.114 BCI 5,NO PREVIOUS LOCATION COUNTER. (6)4K330500 34262 602243214542 BCI 4, BLANK COUNTER USED. (6)4K330510| 0BINARY CARD ID. MAPK0135| 34266 464560402464 ST.115 BCI 3,ON -DUP- CARD. $4$4K330600| 34271 454663253333 ST.116 BCI 1,NOTE.. (6)4K330700| 34272 464560633031 ST.118 BCI 3,ON THIS CARD. $4$4K330900 34275 624065214364 ST.119 BCI 4,S-VALUE INDETERMINATE. $4$4K331000| 34301 232147212331 ST.120 BCI 3,CAPACITY EXCEEDED. $4$4K331100| 34304 635164452321 ST.121 BCI 3,TRUNCATED TO FIVE $4$4K331200| 34307 224646432521 ST.122 BCI 3,BOOLEAN CONSTANT $4$4K331300| 34312 223163602346 ST.123 BCI 4,BIT COUNT TOO LARGE FOR $4$4K331400 0BINARY CARD ID. MAPK0136| 34316 264651604031 ST.124 BCI 4,FOR -IFF- OR -IFT- CARD. $4$4K331500| 34322 464525604651 ST.125 BCI 2,ONE OR MORE $4$4K331600| 34324 622523633146 ST.126 BCI 4,SECTIONS NOT CLOSED. $4$4K331700| 34330 476225642446 ST.127 BCI 3,PSEUDO-OPERATION $4$4K331800 34333 316260214560 ST.128 BCI 4,IS AN UNDEFINED SYMBOL. (6)4K331900| 34337 634663214360 ST.129 BCI 8,TOTAL BIT COUNT FOR -OPVFD- MUST EQUAL 36. $5$4K332000| 0BINARY CARD ID. MAPK0137| 1 IBMAPV IBMAPK 12/01/64 PAGE 438 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ 0 34347 222124602124 ST.130 BCI 8,BAD ADJECTIVE CODE USED FOR -OPD- OR -OPVFD-. (6)4K332100| 34357 624225432563 ST.131 BCI 2,SKELETON (6)4K332200| 34361 227060216040 ST.132 BCI 2,BY A -SET-. (6)4K332300| 34363 653151636421 ST.133 BCI 5,VIRTUAL CANNOT APPEAR IN TAG. $4$4K332400| 0BINARY CARD ID. MAPK0138 34370 314343252721 ST.134 BCI 7,ILLEGAL OPERAND IN THE VARIABLE FIELD. (6)4K332500| 34377 633031626031 ST.135 BCI 5,THIS INSTRUCTION CANNOT HAVE A $4$4K332600| 34404 456021626246 BCI 4,N ASSOCIATED SYMBOL. (6)4K332610| 34410 314343252721 ST.136 BCI 7,ILLEGAL TERMINATOR FOR DECIMAL CONSTANT. (6)4K332700| 0BINARY CARD ID. MAPK0139 34417 314343252721 ST.137 BCI 4,ILLEGAL SUBFIELD IGNORED $4$4K332800| 34423 314565214331 ST.139 BCI 4,INVALID INDEX SPECIFIED $4$4K332900| 34427 317324604651 ST.140 BCI 6,I,D OR E OCCURRED MORE THAN ONCE $4$4K333000| 34435 406462254060 ST.141 BCI 1,-USE- (6)4K333100| 34436 404346234033 ST.142 BCI 1,-LOC-. (6)4K333110 34437 454645404564 ST.143 BCI 8,NON-NUMERIC CHARACTER IN -'ID'- FIELD OF -CALL-. (6)4K333200| 0BINARY CARD ID. MAPK0140| 34447 056062642226 ST.144 BCI 2,5 SUBFIELDS $4$4K333300| 34451 234644442162 ST.145 BCI 3,COMMAS SUPPLIED. $4$4K333400| 34454 070011046031 ST.146 BCI 4,7094 INSTRUCTION ONLY. (6)4K333500 34460 263151626360 ST.147 BCI 3,FIRST TWO USED. $4$4K333600| 34463 264651604062 ST.148 BCI 3,FOR -SAVE- OPN. $4$4K333700| 34466 446462636022 ST.149 BCI 4,MUST BE CONSTANT AND $4$4K333800| 0BINARY CARD ID. MAPK0141| 34472 223163623360 ST.150 BCI 1,BITS. $4$4K333900 34473 632567636060 ST.151 BCI 1,TEXT $4$4K334000| 34474 432122254360 ST.152 BCI 3,LABEL FOR FILE $4$4K334100| 34477 402147472545 ST.153 BCI 2,-APPEND- (6)4K334200| 34501 314523465151 ST.154 BCI 5,INCORRECT DUPLICATE SEQUENCE. (6)4K334300| 34506 512524252631 ST.155 BCI 2,REDEFINED. $4$4K334400 34510 402545244060 ST.156 BCI 4,-END- OR -TCD- CARD. (6)4K334500| 34514 402225273145 ST.157 BCI 3,-BEGIN- FOR THIS $4$4K334600| 34517 242522642727 ST.158 BCI 3,DEBUGGING IGNORED. $4$4K334700| 0BINARY CARD ID. MAPK0142| 34522 506421433126 ST.159 BCI 2,QUALIFIER. $4$4K334800 | 34524 623144644321 ST.160 BCI 2,SIMULATED. (6)4K335150| 34526 433163465127 ST.161 BCI 8,LITORG LIMIT EXCEEDED. OPERATION IGNORED. (6)4K335151| 34536 444651256063 ST.162 BCI 7,MORE THAN 4095 LITERALS IN RANGE OF -LORG- $5$4K335152| 34545 402746634640 ST.163 BCI 1,-GOTO- (6)4K335153 0BINARY CARD ID. MAPK0143| 34546 665131633145 ST.164 BCI 6,WRITING INTERMEDIATE TEXT ON SYSUT'X' (6)4K335154| 1 IBMAPV IBMAPK 12/01/64 PAGE 439 | ERROR MESSAGE PROCESSING PHASE 2 - RECORD IBMAP$4$ | 0 *ROUTINE TO PLACE DUMMY FORM OF EVERY ERROR $4$4K335300| * MESSAGE INTO FILE FOR PRINTOUT $4$4K335400| | 34554 0600 00 0 21443 ERMDUM STZ BLINK $4$4K335600| 34555 0500 00 0 34573 CLA ERM.N1 $4$4K335700 34556 0601 00 0 56763 STO NMCHN+67 (6)4K335800| 34557 0774 00 1 00001 AXT 1,1 (6)4K335900| 34560 0774 00 2 00207 AXT MSGBLE-MSGBL-1,2 (6)4K336000| 34561 0634 00 1 34564 ERMA SXA ERMB,1 $4$4K336400| 34562 0634 00 1 21443 SXA BLINK,1 (6)4K336500 34563 0074 00 4 25576 TSX ERPR,4 $4$4K337000| 34564 0 34570 0 00000 ERMB PZE **,0,NORLST $4$4K337100| 34565 1 00001 1 34566 ERMC TXI *+1,1,1 $4$4K337200| 34566 2 00001 2 34561 TIX ERMA,2,1 (6)4K337300| 34567 0020 00 0 31723 TRA FERPQ $4$4K337500 | 34570 0 00000 0 00002 NORLST PZE 2 (6)4K337700| 34571 607463256763 VFD H18/(T,3/2,15/NMCHN+67 '(TEXT (6)4K337800| 34572 333460606060 BCI 1,.) (6)4K337900| 34573 404040404060 ERM.N1 BCI 1,----- (6)4K338000 | | | | | 1 IBMAPV IBMAPK 12/01/64 PAGE 440 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| * PARTI. FORM ENTRIES AND SETUP MAIN 4K339200 * DICTIONARY FOR SECOND PASS. 4K339300| * 4K339400| | 0BINARY CARD ID. MAPK0144| 34574 0634 00 4 22471 FCDKT SXA FCDKX,4 SAVE RETURN 4K339600 34575 0600 00 0 21467 STZ PDLOC 4K339700| 34576 0500 00 0 21437 CLA ENAC INITIAL 4K339800| 34577 0621 00 0 21457 STA BGDICT CDICT LOCATION 4K339900| 34600 0737 00 2 00000 PAC 0,2 4K340000| 34601 4520 00 0 21426 NZT SWABS EXIT IF ABS ASSEMBLY 4K340100 34602 4520 00 0 21444 NZT CTLCCT OR IF NO 4K340200| 34603 0020 00 0 22201 TRA FC.17 ENTRIES 4K340300| 34604 0774 00 4 00000 AXT 0,4 FETCH FIRST 4K340400| 34605 1 34607 4 35004 TXI FC.FCH,4,FC.2 BUFFER 4K340500| 34606 0774 00 4 00000 FC.1 AXT **,4 BUFFER COUNT 4K340700| 34607 0522 00 0 34706 FC.2 XEC FC.8 4K340800| 34610 4765 00 0 00017 LGR 15 PICK UP CODE 4K340900| 34611 4737 00 1 00000 PDC 0,1 AND BRANCH 4K341000| 34612 4765 00 0 00003 LGR 3 4K341100 34613 0020 00 1 34614 TRA *+1,1 TO PROCESS 4K341200| 34614 0020 00 0 34674 TRA FC.6 CONTRL 4K341300| 34615 0020 00 0 34676 TRA FC.7 ENTRY 4K341400| 34616 0020 00 0 34627 TRA FC.3+1 FILE 4K341500| 34617 0020 00 0 34626 TRA FC.3 CALL 4K341600 34620 0020 00 0 34643 TRA FC.4 EVEN 4K341700| 34621 0020 00 0 34623 TRA *+2 ERROR IF 4K341800| 0BINARY CARD ID. MAPK0145| 34622 0020 00 0 34623 TRA *+1 NOT ABOVE 4K341900| 34623 0074 00 4 25576 TSX ERPR,4 'CDICT PROCESSING ERROR 4K342000 34624 0 00000 4 00112 PZE MSS046,NONONO ASSEMBLER OR MACHINE' $4$4K342100| 34625 0020 00 0 22154 TRA FC.14 USE THOSE ALREADY IN $4$4K342200| | FILE OR CALL TYPE 4K342400| 34626 0361 00 0 35012 FC.3 ACL FC.1H -CALL 4K342500 34627 0361 00 0 35013 ACL FC.2H -FILE 4K342600| 34630 0074 00 1 22473 TSX TCOUNT,1 STORE AND COUNT 2 WORDS 4K342700| 34631 2 00001 4 34633 TIX FC.3A,4,1 RETURN 4K342800| 34632 1 34632 4 35004 TXI FC.FCH,4,FC.3A-1 FOR NEXT 4K342900| 34633 0500 00 0 21460 FC.3A CLA CMPLX INCREASE 4K343100| 34634 0361 00 0 21705 ACL L(1) CDICT COUNT 4K343200| 34635 0621 00 0 21460 STA CMPLX 4K343300| 34636 0500 00 0 21444 FC.3B CLA CTLCCT DECREASE 4K343400| 34637 0402 00 0 21705 SUB L(1) ENTRY COUNT 4K343500 34640 0621 00 0 21444 STA CTLCCT 4K343600| 34641 4100 00 0 34607 TNZ FC.2 BACK IF NOT THROUGH 4K343700| 34642 0020 00 0 22154 TRA FC.14 4K343800| | EVEN TYPE 4K344000 34643 4763 00 0 00022 FC.4 LGL 18 $4$4K344100| ****** ***$4$4K344200| 1 IBMAPV IBMAPK 12/01/64 PAGE 441 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 * ELIMINATE THESE INSTRUCTIONS TO ALLOW -EVEN- $4$4K344300 * IN RANGE OF ABSOLUTE LOCATION COUNTER $4$4K344400| $4$4K344500| 34644 0737 00 1 00000 PAC 0,1 $4$4K344600| 34645 0441 00 1 00000 LDI 0,1 $4$4K344700| 34646 0054 00 100000 RFT 100000 $4$4K344800 34647 0020 00 0 34652 TRA *+3 $4$4K344900| 0BINARY CARD ID. MAPK0146| 34650 2 00001 4 34636 TIX FC.3B,4,1 $4$4K345000| 34651 1 34635 4 35004 TXI FC.FCH,4,FC.3B-1 $4$4K345100| $4$4K345200 ****** ***$4$4K345300| 34652 0621 00 0 34660 STA FC.5 MAKE NAME TABLE $4$4K345400| 34653 0074 00 1 22510 TSX FC.NTE,1 ENTRY 4K345500| 34654 4320 00 0 21723 ANA MSKAD 4K345600| 34655 0767 00 0 00022 ALS 18 4K345700 34656 4760 00 0 00003 SSM 4K345800| 34657 0074 00 1 22475 TSX DCOUNT,1 FIRST WORD 4K345900| 34660 4774 00 1 00000 FC.5 AXC **,1 4K346000| 34661 0500 00 1 00000 CLA 0,1 PICK UP DEF FROM 4K346100| 34662 0771 00 0 00022 ARS 18 $4$4K346110 34663 0734 00 1 00000 PAX 0,1 DICT ENTRY 4K346200| 34664 0760 00 0 00006 COM 4K346300| 34665 4320 00 0 21723 ANA MSKAD FORM AND 4K346400| 34666 0602 00 0 35020 SLW FC.TM1 PLACE WORD 4K346500| 34667 4754 00 1 00000 PXD 0,1 4K346600 34670 0361 00 0 35020 ACL FC.TM1 4K346700| 34671 0074 00 1 22475 TSX DCOUNT,1 PZE -LOC,,LOC 4K346800| 34672 2 00001 4 34633 TIX FC.3A,4,1 RETURN FOR 4K346900| 34673 1 34632 4 35004 TXI FC.FCH,4,FC.3A-1 NEXT 4K347000| CONTRL OR ENTRY TYPE 4K347200| 34674 0600 00 0 21461 FC.6 STZ NAME CONTRL 4K347300| 34675 0020 00 0 34677 TRA *+2 4K347400| 0BINARY CARD ID. MAPK0147| 34676 4625 00 0 21461 FC.7 STL NAME ENTRY 4K347500 34677 0621 00 0 35017 STA FC.TM SAVE NT (E) 4K347600| 34700 4763 00 0 00022 LGL 18 PICK UP 4K347700| 34701 0734 00 1 00000 PAX 0,1 COUNT 4K347800| 34702 2 00001 4 34704 TIX *+2,4,1 ACCOUNT FOR 4K347900| 34703 1 34703 4 35004 TXI FC.FCH,4,* FIRST WORD 4K348000 34704 0634 00 2 22135 SXA FC.13,2 4K348100| 34705 0774 00 2 00000 AXT 0,2 4K348200| 34706 4500 00 4 00000 FC.8 CAL **,4 PICK UP 4K348300| 34707 0602 00 2 52030 SLW LINK,2 TEXT WORDS 4K348400| 34710 2 00001 4 34712 TIX *+2,4,1 AND 4K348500 34711 1 34711 4 35004 TXI FC.FCH,4,* TRANSMIT TO LINK 4K348600| 34712 1 77777 2 34713 TXI *+1,2,-1 4K348700| 34713 2 00001 1 34706 TIX FC.8,1,1 4K348800| 34714 0522 00 0 34706 XEC FC.8 SET PUSH DOWN 4K348900| 34715 0737 00 1 00000 PAC 0,1 COUNT 4K349000 34716 1 00001 1 34717 TXI *+1,1,1 4K349100| 34717 0634 00 1 21467 SXA PDLOC,1 4K349200| 34720 0734 00 1 00000 PAX 0,1 4K349300| 1 IBMAPV IBMAPK 12/01/64 PAGE 442 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK 0 34721 2 00001 4 34723 TIX *+2,4,1 4K349400| 34722 1 34722 4 35004 TXI FC.FCH,4,* 4K349500| 34723 0774 00 2 00000 AXT 0,2 4K349600| 0BINARY CARD ID. MAPK0148| 34724 0522 00 0 34706 FC.9 XEC FC.8 PICK UP PUSH 4K349700 34725 0602 00 2 52530 SLW PDLST,2 DOWN LIST AND 4K349800| 34726 1 77777 2 34727 TXI *+1,2,-1 TRANSMIT TO 4K349900| 34727 2 00001 4 34731 TIX *+2,4,1 PDLST 4K350000| 34730 1 34730 4 35004 TXI FC.FCH,4,* 4K350100| 34731 2 00001 1 34724 TIX FC.9,1,1 4K350200 34732 4774 00 2 52030 AXC LINK,2 OBTAIN FIRST 4K350300| 34733 0441 00 2 00000 LDI 0,2 WORD OF TEXT 4K350400| 34734 4520 00 0 21461 NZT NAME 4K350500| 34735 0020 00 0 34744 TRA FC.10 4K350600| ENTRY TYPE 4K350800| 34736 0074 00 1 22525 TSX FC.QAL,1 OBTAIN ID(A) 4K350900| 34737 0020 00 0 34636 TRA FC.3B FOR SYMBOL 4K351000| 34740 4500 00 0 43153 CAL ID(A) SET NAME (6)4K351100| 34741 0361 00 0 35014 ACL FC.3H TABLE ENTRY 4K351200 34742 0535 00 2 43153 LAC ID(A),2 4K351300| 34743 1 00001 2 22073 TXI FC.11,2,1 GO TO COMPLETE 4K351400| | CONTROL TYPE 4K351600| 34744 4054 00 000700 FC.10 LFT 700 MUST BE A TO B 4K351700 34745 0020 00 0 22106 TRA FC.12 IF COMMA OR $ 4K351800| 34746 4054 00 770000 LFT 770000 TEXT CODE MUST 4K351900| 34747 0020 00 0 35002 TRA FC.103 BE 00 4K352000| 34750 0634 00 4 34606 SXA FC.1,4 SAVE IR4 4K352100| 34751 0600 00 0 43153 STZ ID(A) CLEAR SWITCH 4K352200 0BINARY CARD ID. MAPK0149| 34752 0500 00 0 52030 CLA LINK 4K352300| 34753 0621 00 0 43152 FC.101 STA NT(A) OBTAIN ID(A) 4K352400| 34754 0074 00 4 25603 TSX INTST,4 OF CURRENT NAME 4K352500| 34755 0522 00 0 34606 XEC FC.1 RESTORE IR4 4K352600 34756 0441 00 2 00000 LDI 0,2 4K352700| 34757 7 00000 2 34767 TXL FC.102,2,0 TEST FOR 4K352800| 34760 4056 00 040000 LNT 40000 DICT CODE 4K352900| 34761 0020 00 0 34767 TRA FC.102 04 OR 05 4K353000| 34762 4054 00 320000 LFT 320000 4K353100 34763 0020 00 0 34767 TRA FC.102 4K353200| 34764 0520 00 0 43153 ZET ID(A) ERROR IF NOT 4K353300| 34765 0020 00 0 35002 TRA FC.103 THE FIRST ONE 4K353400| 34766 0634 00 2 43153 SXA ID(A),2 SAVE POSITION 4K353500| 34767 0441 60 0 43152 FC.102 LDI* NT(A) IF NOT LAST 4K353600 34770 4056 00 760000 LNT 760000 ITEM IN CHAIN, 4K353700| 34771 0020 00 0 34774 TRA *+3 GO TO TEST NEXT 4K353800| 34772 4046 00 0 00000 PIA 4K353900| 34773 0020 00 0 34753 TRA FC.101 4K354000| 34774 0535 00 1 43153 LAC ID(A),1 SET ID(A) INTO 4K354200| 34775 0534 00 2 43153 LXA ID(A),2 MQ, AND DICT 4K354300| 34776 0754 00 1 00000 PXA 0,1 WORD TO INDICATORS 4K354400| 34777 0131 00 0 00000 XCA 4K354500| 1 IBMAPV IBMAPK 12/01/64 PAGE 443 CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0BINARY CARD ID. MAPK0150| 35000 0441 00 2 00000 LDI 0,2 4K354600| 35001 3 00000 2 22060 TXH FC.104,2,0 4K354700| 35002 0522 00 0 22135 FC.103 XEC FC.13 ERROR IF TOO MANY (6)4K354800 35003 0020 00 0 34636 TRA FC.3B OR WRONG TYPE (6)4K354900| | 44753 USE FCDKT (6)4K355010| * EXECUTE FOLLOWING PORTION OF PART I FROM PASS TWO INPUT BUFFER AREA(6)4K355020| 22060 ORG BIGBUF (6)4K355030 | 0BINARY CARD ID. MAPK0151| 22060 4056 00 010000 FC.104 LNT 10000 SEPARATE BY 4K355200| 22061 0020 00 0 22071 TRA FC.105 TYPE 4K355300| QUAL TYPE 4K355500| 22062 4046 00 0 00000 PIA FIRST VALUE IN SECOND 4K355600| 22063 0441 00 2 00001 LDI 1,2 4K355700| 22064 0767 00 0 00003 ALS 3 SECOND VALUE 4K355800| 22065 4737 00 2 00000 PDC 0,2 IS IN 06 WORD 4K355900 22066 4130 00 0 00000 XCL 4K356000| 22067 0361 00 0 35013 ACL FC.2H SET NAME TABLE 4K356100| 22070 1 00001 2 22073 TXI FC.11,2,1 GO TO COMPLETE 4K356200| | LOCATION COUNTER TYPE 4K356400 22071 4130 00 0 00000 FC.105 XCL FIRST VALUE IN ID(A) 4K356500| 22072 0361 00 0 35012 ACL FC.1H SECOND IN FOLLOWING WORD 4K356600| 22073 0056 00 100000 FC.11 RNT 100000 IS THE LOCATION COUNTER ABSOLUTE $5$4K356700| 22074 0020 00 0 35002 TRA FC.103 YES, ERROR $5$4K356710| 22075 0074 00 1 22510 TSX FC.NTE,1 NO, MAKE NAME TABLE ENTRY $5$4K356720 22076 0767 00 0 00022 ALS 18 4K356800| 22077 0622 00 0 35017 STD FC.TM 4K356900| 22100 4046 00 0 00000 PIA 4K357000| 22101 4320 00 0 21723 ANA MSKAD 4K357100| 22102 0767 00 0 00022 ALS 18 SET FIRST VALUE, 4K357200 22103 0601 00 0 35020 STO FC.TM1 PICK UP SECOND, 4K357300| 22104 0441 00 2 00001 LDI 1,2 AND GO TO COMPLETE 4K357400| 22105 0020 00 0 22135 TRA FC.13 ENTRY 4K357500| | A TO B TYPE 4K357700 0BINARY CARD ID. MAPK0152| 22106 0074 00 1 22525 FC.12 TSX FC.QAL,1 FIND FIRST SYMBOL 4K357800| 22107 0020 00 0 34636 TRA FC.3B ID(A) 4K357900| 22110 0560 00 0 43153 LDQ ID(A) (6)4K357910| 22111 4600 00 0 35021 STQ FC.TM2 AND SAVE 4K358000 22112 0734 00 2 00000 PAX 0,2 4K358100| 22113 4046 00 0 00000 PIA 4K358200| 22114 4320 00 0 21723 ANA MSKAD SAVE FIRST 4K358300| 22115 0767 00 0 00022 ALS 18 VALUE 4K358400| 22116 0601 00 0 35020 STO FC.TM1 4K358500 22117 0441 00 2 00000 LDI 0,2 4K358600| 22120 4056 00 000200 LNT 200 SECOND NAME 4K358700| 22121 0020 00 0 22570 TRA FC.QER SHOULD FOLLOW 4K358800| 22122 4054 00 000500 LFT 500 4K358900| 22123 0020 00 0 22570 TRA FC.QER 4K359000 1 IBMAPV IBMAPK 12/01/64 PAGE 444 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 22124 1 77777 2 22125 TXI *+1,2,-1 4K359100| 22125 0074 00 1 22525 TSX FC.QAL,1 OBTAIN ID(A) 4K359200| 22126 0020 00 0 34636 TRA FC.3B FOR SECOND SYMBOL 4K359300 22127 4500 00 0 43153 CAL ID(A) (6)4K359400| 22130 0767 00 0 00022 ALS 18 4K359500| 22131 0400 00 0 35021 ADD FC.TM2 MAKE APPROPRIATE 4K359600| 22132 0074 00 1 22510 TSX FC.NTE,1 NAME TABLE ENTRY 4K359700| 22133 0767 00 0 00022 ALS 18 4K359800 0BINARY CARD ID. MAPK0153| 22134 0622 00 0 35017 STD FC.TM 4K359900| | FINISH CONTROL DICT ENTRY 4K360100| 22135 0774 00 2 00000 FC.13 AXT **,2 PICK UP STORE LOCATION 4K360200 22136 4046 00 0 00000 PIA CHECK THAT END LOCATION (6)4K360210| 22137 4320 00 0 21723 ANA MSKAD OF CONTROL SECTION (6)4K360220| 22140 0767 00 0 00022 ALS 18 IS NOT LESS THAN ITS (6)4K360230| 22141 0402 00 0 35020 SUB FC.TM1 STARTING VALUE (6)4K360240| 22142 4120 00 0 34636 TMI FC.3B ELIMINATE IT IF SO (6)4K360250 22143 0500 00 0 35017 CLA FC.TM 4K360300| 22144 0074 00 1 22475 TSX DCOUNT,1 PLACE FIRST WORD 4K360400| 22145 4046 00 0 00000 PIA 4K360500| 22146 0760 00 0 00006 COM FORM AND PLACE 4K360600| 22147 4320 00 0 21723 ANA MSKAD SECOND WORD 4K360700 22150 0400 00 0 35020 ADD FC.TM1 4K360800| 22151 0074 00 1 22475 TSX DCOUNT,1 (PZE -LAST.VALUE,,FIRST.VALUE) 4K360900| 22152 4634 00 0 35017 SXD FC.TM,0 4K361000| 22153 0020 00 0 34633 TRA FC.3A BACK FOR NEXT ITEM 4K361100| SORT CDICT ENTRIES 4K361300| 22154 4634 00 2 22164 FC.14 SXD FC.16,2 SAVE END TEST 4K361400| 22155 0535 00 2 21457 LAC BGDICT,2 INITIALIZE 4K361500| 22156 0520 00 0 21460 ZET CMPLX $4$4K361600| 22157 1 77776 2 22160 TXI *+1,2,-2 UPPER 4K361700 22160 4634 00 2 22162 SXD FC.15,2 LIMIT 4K361800| 22161 0634 00 2 22163 SXA *+2,2 TEST 4K361900| 0BINARY CARD ID. MAPK0154| 22162 7 00000 2 22164 FC.15 TXL *+2,2,** PREVENT PASSING 4K362000| 22163 0774 00 2 00000 AXT **,2 UPPER LIMIT 4K362100 22164 7 00000 2 22201 FC.16 TXL FC.17,2,** TEST FOR COMPLETED SORT 4K362200| 22165 0500 00 2 00001 CLA 1,2 IF SECOND IS GTR 4K362300| 22166 0340 00 2 77777 CAS -1,2 OR EQUAL 4K362400| 22167 1 77776 2 22164 TXI FC.16,2,-2 GO DOWN 4K362500| 22170 1 77776 2 22164 TXI FC.16,2,-2 TABLE 4K362600 22171 0560 00 2 77777 LDQ -1,2 OTHERWISE, 4K362700| 22172 0601 00 2 77777 STO -1,2 INTERCHANGE 4K362800| 22173 4600 00 2 00001 STQ 1,2 AND GO BACK 4K362900| 22174 0500 00 2 00000 CLA 0,2 4K363000| 22175 0560 00 2 77776 LDQ -2,2 4K363100 22176 4600 00 2 00000 STQ 0,2 4K363200| 22177 0601 00 2 77776 STO -2,2 4K363300| 22200 1 00002 2 22162 TXI FC.15,2,2 4K363400| | ELIMINATE FILE AND CALL 4K363600 22201 0074 00 4 44634 FC.17 TSX FCSB,4 4K363700| 1 IBMAPV IBMAPK 12/01/64 PAGE 445 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 22202 4634 00 2 22215 SXD FC.19,2 4K363800| 22203 4634 00 2 22227 SXD FC.20,2 4K363900 22204 0535 00 2 21457 LAC BGDICT,2 4K364000| 22205 4520 00 0 21460 NZT CMPLX 4K364100| 22206 0020 00 0 22216 TRA FC.195 4K364200| 22207 0441 00 2 00000 FC.18 LDI 0,2 PICK UP ENTRIES 4K364300| 0BINARY CARD ID. MAPK0155 22210 4054 00 300000 LFT 300000 IF NOT FIRST 4K364400| 22211 0020 00 0 22216 TRA FC.195 FILE OR CALL 4K364500| 22212 0057 00 700000 RIR 700000 AND SET TAG=0 4K364600| 22213 0604 00 2 00000 STI 0,2 FOR ALL REAL AND EVEN 4K364700| 22214 1 77776 2 22215 TXI *+1,2,-2 4K364800 22215 3 00000 2 22207 FC.19 TXH FC.18,2,** BACK IF NOT AT END 4K364900| | 22216 0754 00 2 00000 FC.195 PXA 0,2 4K365100| 22217 0737 00 4 00000 PAC 0,4 COMPUTE COUNT OF 4K365200| 22220 0754 00 4 00000 PXA 0,4 OF ENTRIES AND 4K365300 22221 0402 00 0 21457 SUB BGDICT SET FOR 4K365400| 22222 0771 00 0 00001 ARS 1 VIRTUAL PRINT 4K365500| 22223 0361 00 0 21457 ACL BGDICT SET FIRST 4K365700| 22224 0621 00 0 27377 STA CRO.32 ADDRESS 4K365800| 22225 4520 00 0 21460 NZT CMPLX 4K365900 22226 0020 00 0 22262 TRA FC.23 $4$4K366000| 22227 7 00000 2 22262 FC.20 TXL FC.23,2,** NO MORE VIRTUAL OR FILE 4K366100| 22230 0441 00 2 00000 LDI 0,2 4K366200| 22231 0074 00 4 22573 TSX FC.LMN,4 CHECK IF PREVIOUS ENTRY 4K366300| 22232 0020 00 0 22246 TRA FC.22 4K366400 22233 4056 00 100000 LNT 100000 ELIMINATE 4K366500| 22234 0020 00 0 22240 TRA FC.21 IF FILE 4K366600| 22235 0441 00 2 00000 LDI 0,2 IF CALL, MARK 4K366700| 0BINARY CARD ID. MAPK0156| 22236 0055 00 100000 SIR 100000 TAG OF FIRST WORD 4K366800 22237 0604 00 2 00000 STI 0,2 4K366900| 22240 4534 00 2 22575 FC.21 LXD FC.LMX,2 PICK UP POSITION 4K367000| 22241 0600 00 2 00000 STZ 0,2 4K367100| 22242 0500 00 0 21460 CLA CMPLX REMOVE ITEM 4K367200| 22243 0402 00 0 21705 SUB L(1) FROM TOTAL 4K367300 22244 0621 00 0 21460 STA CMPLX COUNT 4K367400| 22245 1 77776 2 22227 TXI FC.20,2,-2 4K367500| | NO CORRESPONENT FOR FILE OR CALL 4K367700| 22246 4056 00 100000 FC.22 LNT 100000 4K367800 22247 1 77776 2 22227 TXI FC.20,2,-2 LEAVE ALONE IF FILE 4K367900| 22250 4046 00 0 00000 PIA 4K368000| 22251 4320 00 0 21723 ANA MSKAD IF CALL, PICK 4K368100| 22252 4765 00 0 00001 LGR 1 UP HASH TABLE 4K368200| 22253 0737 00 4 00000 PAC 0,4 LOCATION AND 4K368300 22254 0500 00 4 23300 CLA HASHT-NMCHN/2,4 TEST FOR 4K368400| 22255 0737 00 1 00000 PAC 0,1 REAL ENTRY 4K368500| 22256 0162 00 0 22260 TQP *+2 4K368600| 22257 4737 00 1 00000 PDC 0,1 4K368700| 22260 3 00000 1 22240 TXH FC.21,1,0 ELIMINATE IF REAL 4K368800 22261 1 77776 2 22227 TXI FC.20,2,-2 LEAVE IN IF NOT REAL 4K368900| | 1 IBMAPV IBMAPK 12/01/64 PAGE 446 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 CREATE CDICT AND MARK INT DICT 4K369100 22262 0535 00 2 21457 FC.23 LAC BGDICT,2 INITIAL POSITION 4K369200| 22263 0600 00 0 35021 STZ FC.TM2 AND SECTION NO 4K369300| 0BINARY CARD ID. MAPK0157| 22264 0600 00 0 35020 STZ FC.TM1 4K369400| 22265 4520 00 0 21460 NZT CMPLX EXIT IF ALL ENTRIES 4K369500 22266 0020 00 0 22441 TRA FC.32 WERE REMOVED 4K369600| 22267 0774 00 4 00000 AXT 0,4 4K369700| 22270 1 22271 4 22604 TXI FC.CCB,4,*+1 FETCH FIRST BUFFER 4K369800| 22271 0500 00 2 00000 FC.24 CLA 0,2 4K369900| 22272 1 77776 2 22273 TXI *+1,2,-2 SKIP ENTRY IF 4K370000 22273 0100 00 0 22271 TZE FC.24 REMOVED 4K370100| 22274 0120 00 0 22320 TPL FC.26 4K370200| | TYPE IS EVEN 4K370400| 22275 4737 00 1 00000 PDC 0,1 RESET DICTIONARY 4K370500 22276 0500 00 1 00000 CLA 0,1 ENTRY TO 4K370600| 22277 0737 00 1 00000 PAC 0,1 SHOW CDICT 4K370700| 22300 0500 00 0 35021 CLA FC.TM2 ENTRY NUMBER 4K370800| 22301 0361 00 0 21706 ACL L(2) 4K370900| 22302 0767 00 0 00022 ALS 18 STORE CONTROL SECTION NO. $4$4K371000 22303 0622 00 1 00000 STD 0,1 DECREMENT OF PSEUDO-OP EN $4$4K371100| 22304 0600 60 0 22727 STZ* F.POTA SET EXTERNAL NAME 4K371300| 22305 2 00001 4 22307 TIX *+2,4,1 ZERO AND 4K371400| 22306 1 22306 4 22604 TXI FC.CCB,4,* COUNT WORD 4K371500| 22307 0441 00 0 35012 LDI FC.1H POST IN 4K371600 22310 0074 00 1 22703 TSX F.POST,1 CDICT 4K371700| | 22311 0500 00 0 35021 FC.25 CLA FC.TM2 BUMP TO 4K371900| 0BINARY CARD ID. MAPK0158| 22312 0400 00 0 21705 ADD L(1) NEXT SECTION NO. 4K372000 22313 0621 00 0 35021 STA FC.TM2 4K372100| 22314 0340 00 0 21460 CAS CMPLX EXIT IF 4K372200| 22315 0020 00 0 22441 TRA FC.32 ALL SECTIONS 4K372300| 22316 0020 00 0 22441 TRA FC.32 PROCESSED 4K372400| 22317 0020 00 0 22271 TRA FC.24 OTHERWISE, BACK FOR NEXT 4K372500 | 22320 0044 00 0 00000 FC.26 PAI 4K372700| 22321 0621 00 0 22324 STA *+3 IF NOT EVEN, 4K372800| 22322 0634 00 4 22325 SXA *+3,4 LOOK UP BCD FOR 4K372900| 22323 0074 00 4 32275 TSX XNAME,4 NAME IN DICT 4K373000 22324 0 21463 0 00000 PZE **,,OPER+1 4K373100| 22325 0774 00 4 00000 AXT **,4 PLACE EXTERNAL 4K373200| 22326 0560 00 0 21463 LDQ OPER+1 NAME IN FILE 4K373300| 22327 4600 60 0 22727 STQ* F.POTA 4K373400| 22330 2 00001 4 22332 TIX *+2,4,1 COUNT 4K373500 22331 1 22331 4 22604 TXI FC.CCB,4,* WORD 4K373600| 22332 4054 00 700000 LFT 700000 4K373700| 22333 0020 00 0 22417 TRA FC.31 VIRTUAL TYPE 4K373800| | CONTRL OR ENTRY (REAL) 4K374000 22334 4057 00 077777 RIL 77777 SET POSTING 4K374100| 22335 0057 00 077777 RIR 77777 WORD 4K374200| 22336 0074 00 1 22703 TSX F.POST,1 4K374300| 1 IBMAPV IBMAPK 12/01/64 PAGE 447 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK 0 22337 4737 00 1 00000 PDC 0,1 OBTAIN KEY 4K374400| 0BINARY CARD ID. MAPK0159| 22340 0500 00 1 00000 CLA 0,1 WORD FROM NAME TABLE 4K374500| 22341 0621 00 0 22356 STA FC.28 FIRST POINT 4K374600| 22342 4765 00 0 00017 LGR 15 4K374700 22343 4737 00 1 00000 PDC 0,1 BRANCH TO PROCESS 4K374800| 22344 0020 00 1 22345 TRA *+1,1 BY TPE 4K374900| 22345 0020 00 0 22353 TRA FC.27 A TO B TYPE 4K375000| 22346 0020 00 0 22361 TRA FC.29 LCTR TYPE 4K375100| 22347 0020 00 0 22356 TRA FC.28 QUAL TYPE 4K375200 22350 0020 00 0 22351 TRA *+1 ENTRY POINT 4K375300| | 22351 0500 00 0 22356 CLA FC.28 MARK FROM A TO A 4K375500| 22352 0767 00 0 00003 ALS 3 FOR ENTRY 4K375600| 22353 4765 00 0 00025 FC.27 LGR 21 MARK A TO B TYPE 4K375700 22354 0074 00 1 22612 TSX D.MARK,1 MARK DICT 4K375800| 22355 0020 00 0 22311 TRA FC.25 PROCESS NEXT 4K375900| | 22356 0500 00 0 00000 FC.28 CLA ** 05 ENTRY 4K376100| 22357 0771 00 0 00017 ARS 15 SET AND 4K376200 22360 0020 00 0 22352 TRA FC.27-1 MARK 4K376300| | 22361 0604 00 0 35023 FC.29 STI FC.TM4 SAVE POST WORD 4K376500| 22362 0500 00 0 22356 CLA FC.28 SET 4K376600| 22363 0767 00 0 00017 ALS 15 TEST FOR 4K376700 22364 0601 00 0 35022 STO FC.TM3 RIGHT 16 WORD 4K376800| 22365 0535 00 1 21457 LAC BGDICT,1 SET 4K376900| 0BINARY CARD ID. MAPK0160| 22366 4634 00 1 22415 SXD FC.305,1 EXIT TEST 4K377000| 22367 0535 00 1 22356 LAC FC.28,1 4K377100 22370 0441 00 1 77777 FC.30 LDI -1,1 SEARCH 4K377200| 22371 4051 00 160000 IIL 160000 DICT FOR 4K377300| 22372 4054 00 770000 LFT 770000 16 WORD 4K377400| 22373 1 77777 1 22415 TXI FC.305,1,-1 4K377500| 22374 0440 00 0 35022 IIS FC.TM3 DOES THIS 16 WORD 4K377600 22375 0444 00 0 21731 OFT MSKSP REFER TO CORRECT LCTR 4K377700| 22376 1 77777 1 22415 TXI FC.305,1,-1 -NO 4K377800| 22377 0500 00 0 21457 CLA BGDICT YES. 4K377900| 22400 0054 00 077777 RFT 77777 LAST LOC IS NEXT 4K378000| 22401 4046 00 0 00000 PIA OR END, IF NO NEXT 4K378100 22402 0621 00 0 22356 STA FC.28 4K378200| 22403 0634 00 1 22404 SXA *+1,1 SET UP 4K378300| 22404 4774 00 1 00000 AXC **,1 LIMITS 4K378400| 22405 0754 00 1 00000 PXA 0,1 FOR MARKING 4K378500| 22406 4765 00 0 00022 LGR 18 DICTIONARY 4K378600 22407 0500 00 0 22356 CLA FC.28 4K378700| 22410 4765 00 0 00022 LGR 18 4K378800| 22411 0441 00 0 35023 LDI FC.TM4 4K378900| 22412 0074 00 1 22612 TSX D.MARK,1 4K379000| 22413 0535 00 1 22356 LAC FC.28,1 4K379100 0BINARY CARD ID. MAPK0161| 22414 1 77777 1 22415 TXI *+1,1,-1 4K379200| 22415 3 00000 1 22370 FC.305 TXH FC.30,1,** CONTINUE IF 4K379300| 1 IBMAPV IBMAPK 12/01/64 PAGE 448 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK 0 22416 0020 00 0 22311 TRA FC.25 NOT END OF DICTIONARY 4K379400| | VIRTUAL TYPE 4K379600| 22417 4054 00 100000 FC.31 LFT 100000 4K379700| 22420 0020 00 0 22424 TRA *+4 4K379800 22421 0441 00 0 35013 LDI FC.2H FILE TYPE IS 4K379900| 22422 0074 00 1 22721 TSX F.POSU,1 POSTED 4K380000| 22423 0020 00 0 22311 TRA FC.25 4K380100| 22424 4057 00 177777 RIL 177777 CALL TYPE GETS 4K380200| 22425 0057 00 677777 RIR 677777 POSTED 4K380300 22426 0074 00 1 22721 TSX F.POSU,1 HASH TABLE SET TO 4K380400| 22427 4320 00 0 21723 ANA MSKAD POINT TO 4K380500| 22430 4765 00 0 00001 LGR 1 VIRTUAL ENTRY 4K380600| 22431 0737 00 1 00000 PAC 0,1 4K380700| 22432 0500 00 0 22745 CLA F.POTB 4K380800 22433 0162 00 0 22437 TQP *+4 4K380900| 22434 0767 00 0 00022 ALS 18 4K381000| 22435 0622 00 1 23300 STD HASHT-NMCHN/2,1 4K381100| 22436 0020 00 0 22311 TRA FC.25 4K381200| 22437 0621 00 1 23300 STA HASHT-NMCHN/2,1 4K381300 22440 0020 00 0 22311 TRA FC.25 4K381400| | ALL SECTIONS PROCESSED 4K381600| 22441 0500 00 0 21460 FC.32 CLA CMPLX RESET ENAC 4K381700| 0BINARY CARD ID. MAPK0162 22442 0400 00 0 21457 ADD BGDICT FOR FIRST 4K381800| 22443 0621 00 0 21437 STA ENAC OPEN LOCATION 4K381900| 22444 0737 00 1 00000 PAC ,1 SAVE END FOR CDICT (6)4K381910| 22445 4634 00 1 44751 SXD SRCE,1 SEARCH TEST (6)4K381920| 22446 4500 00 0 21457 CAL BGDICT RESET BGDICT TO 4K382000 22447 0402 00 0 21706 SUB L(2) ACCOUNT FOR FIRST TWO 4K382100| 22450 0621 00 0 21457 STA BGDICT ENTRIES 4K382200| 22451 0500 00 0 21460 CLA CMPLX 4K382300| 22452 0400 00 0 21706 ADD L(2) 4K382400| 22453 0774 00 1 00001 AXT 1,1 4K382500 22454 0771 00 0 00001 ARS 1 COUNT POSITION 4K382600| 22455 0100 00 0 22457 TZE *+2 OF LAST BIT 4K382700| 22456 1 00001 1 22454 TXI *-2,1,1 4K382800| 22457 1 00001 1 22460 TXI *+1,1,1 4K382900| 22460 3 00005 1 22466 TXH FC.322,1,5 IF SHORT FORM COMPLEX 4K383000 22461 0774 00 1 00006 AXT 6,1 COUNT IS LESS THAN 4K383100| 22462 0441 00 0 21423 LDI SWCPIN 6, SET IT AS 5 FOR 4K383200| 22463 0051 00 232223 IIR 232223 MAP AND FORTRAN, 4K383300| 22464 0054 00 777777 RFT 777777 AND 6 FOR COBOL 4K383400| 22465 0774 00 1 00005 AXT 5,1 4K383500 22466 7 00011 1 22470 FC.322 TXL *+2,1,9 LIMIT COUNT TO 9. 4K383600| 22467 0774 00 1 00011 AXT 9,1 4K383700| 0BINARY CARD ID. MAPK0163| 22470 4634 00 1 21460 SXD CMPLX,1 4K383800| 22471 0774 00 4 00000 FCDKX AXT **,4 AND 4K383900 22472 0020 00 4 00001 TRA 1,4 AND EXIT 4K384000| 1 IBMAPV IBMAPK 12/01/64 PAGE 449 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| FETCH BUFFER 4K384200 35004 USE PREVIOUS (6)4K384210| 0BINARY CARD ID. MAPK0164| 35004 0634 00 4 35011 FC.FCH SXA FC.FCX,4 SAVE RETURN 4K384300| 35005 0074 00 4 25601 TSX INFOT,4 4K384400| 35006 0 35011 0 21560 PZE CTCONC,,FC.FCX 4K384500 35007 0621 00 0 34706 STA FC.8 SET ADDRESS 4K384600| 35010 4734 00 4 00000 PDX 0,4 AND COUNT 4K384700| 35011 0020 00 0 00000 FC.FCX TRA ** EXIT 4K384800| | PLACE WORDS INTO INT DICT 4K385000 22473 USE FCDKT (6)4K385010| 0BINARY CARD ID. MAPK0165| 22473 0601 00 2 00000 TCOUNT STO 0,2 PLACE FIRST 4K385100| 22474 1 77777 2 22475 TXI *+1,2,-1 WORD 4K385200| 22475 0601 00 2 00000 DCOUNT STO 0,2 PLACE WORD 4K385300 22476 1 77777 2 22477 TXI *+1,2,-1 BUMP TO NEXT LOC 4K385400| 22477 7 00000 2 22501 DCOUNU TXL *+2,2,** EXIT IF NOT (6)4K385500| 22500 0020 00 1 00001 TRA 1,1 OVERFLOW $4$4K385600| | 22501 0074 00 4 25576 TSX ERPR,4 'INT DICT OVERFLOW $4$4K385800 22502 0 00000 4 00110 PZE MSS044,NONONO WHILE PROCESSING CDICT' $4$4K385900| 22503 0600 00 0 21460 FC.ERN STZ CMPLX ELIMINATE ALL $5$4K386000| 22504 0074 00 4 21355 TSX CLOSE,4 CLOSE CONTROL CARD $5$4K386010| 22505 1 00000 0 21560 PON CTCONC FILE DESTRUCTIVELY $5$4K386020| 22506 0535 00 2 21457 LAC BGDICT,2 ENTRIES AND $4$4K386100 22507 0020 00 0 22201 TRA FC.17 GO TO PROCESS $4$4K386200| | NAME TABLE ENTRY OF ACCUM 4K386400| 22510 0634 00 4 22521 FC.NTE SXA FC.NTF,4 SAVE 4K386500| 22511 0634 00 2 22522 SXA FC.NTF+1,2 REGISTERS 4K386600 22512 0604 00 0 35023 STI FC.TM4 4K386700| 22513 0602 00 0 35024 SLW D.BASE 4K386800| 22514 0074 00 4 25605 TSX NTLOCC,4 LOCATE 4K386900| 22515 0120 00 0 22521 TPL FC.NTF 4K387000| 22516 0560 00 0 35024 LDQ D.BASE 4K387100 22517 0737 00 2 00000 PAC 0,2 ENTER IF 4K387200| 22520 4600 00 2 00000 STQ 0,2 NOT IN 4K387300| 0BINARY CARD ID. MAPK0166| 22521 0774 00 4 00000 FC.NTF AXT **,4 4K387400| 22522 0774 00 2 00000 AXT **,2 EXIT 4K387500 22523 0441 00 0 35023 LDI FC.TM4 4K387600| 22524 0020 00 1 00001 TRA 1,1 4K387700| | FETCH AND CHECK OPERAND 4K387900| 22525 0634 00 1 22546 FC.QAL SXA FC.QAX,1 SAVE RETURN 4K388000 22526 0441 00 2 00000 LDI 0,2 MUST HAVE (6)4K388100| 22527 4054 00 770000 LFT 770000 00 ADJ CODE 4K388200| 22530 0020 00 0 22570 TRA FC.QER 4K388300| 22531 0074 00 1 42377 TSX RQUAL,1 LOOK UP QUALIFIED 4K388400| 22532 0 21467 0 52530 PZE PDLST,,PDLOC OPERAND 4K388500 22533 4520 00 0 43153 NZT ID(A) ERROR IF NOT IN (6)4K388600| 1 IBMAPV IBMAPK 12/01/64 PAGE 450 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 22534 0020 00 0 22570 TRA FC.QER DICTIONARY LOCATION (6)4K388700| 22535 0441 60 0 43153 LDI* ID(A) (IDLOC) 4K388900 22536 4056 00 400000 LNT 400000 REFERENCE MUST BE DEFINED 00 $4$4K389000| 22537 0020 00 0 22570 TRA FC.QER 01, OR EQU. (6)4K389100| 22540 4054 00 200000 LFT 200000 (CANNOT BE BOOL, (6)4K389110| 22541 0020 00 0 22550 TRA FC.QQU FILE, LCTR, (6)4K389120| 22542 4054 00 160000 LFT 160000 QUAL, OR ANY (6)4K389200 22543 0020 00 0 22570 TRA FC.QER OTHER TYPE). $4$4K389300| ***$4$4K389400| 22544 0056 00 100000 RNT 100000 ELIMINATE THESE IF CONTROL $4$4K389500| 22545 0020 00 0 22570 TRA FC.QER SECT OK IN RANGE OF ABS CTR $4$4K389600| ***$4$4K389700 22546 0774 00 1 00000 FC.QAX AXT **,1 4K389800| 0BINARY CARD ID. MAPK0167| 22547 0020 00 1 00002 TRA 2,1 4K389900| | 22550 4520 00 0 21461 FC.QQU NZT NAME EQU REFERENCE ILLEGAL IF NOT FOR (6)4K389920 22551 0020 00 0 22570 TRA FC.QER ENTRY PSEUDO-OPERATION (6)4K389930| 22552 4500 00 0 43153 CAL ID(A) SUBSTITUTE EXPANDED (6)4K389940| 22553 0602 00 0 35432 SLW 2BB TEXT (6)4K389950| 22554 0074 00 4 43722 TSX TEQU,4 FOR EQU (6)4K389960| 22555 4774 00 2 52230 AXC 2B,2 (6)4K389970 22556 0074 00 4 41547 TSX REV,4 EVALUATE RESULTING EXPRESSION (6)4K389980| 22557 0 00000 2 00001 1,2 (6)4K389990| 22560 0522 00 0 42473 XEC RQX2 RESTORE XR4 (6)4K390000| 22561 0120 00 0 22570 TPL FC.QER ERROR IF VIRTUAL (6)4K390010| 22562 4500 00 0 41763 CAL REVT+3 TEST RESULTING CONTROL GROUP (6)4K390020 22563 4320 00 0 21727 ANA MSKLO (6)4K390030| 22564 0322 00 0 21705 ERA L(1) (6)4K390040| 22565 4100 00 0 22570 TNZ FC.QER ERROR IF NOT RELATIVE (6)4K390050| 22566 0441 60 0 43153 LDI* ID(A) RESTORE INDICATOR WORD (6)4K390060| 22567 0020 00 0 22546 TRA FC.QAX EXIT (6)4K390070 | 22570 0522 00 0 22135 FC.QER XEC FC.13 RESTORE (6)4K390100| 22571 0522 00 0 22546 XEC FC.QAX AND 4K390600| 22572 0020 00 1 00001 TRA 1,1 EXIT 4K390700| CHECK FILE OR CALL FOR PREVIOUS 4K390900| 22573 4634 00 2 22575 FC.LMN SXD FC.LMX,2 EXIT TEST 4K391000| 22574 0535 00 2 21457 LAC BGDICT,2 START POINT 4K391100| 0BINARY CARD ID. MAPK0168| 22575 3 00000 2 22577 FC.LMX TXH *+2,2,** EXIT 1,4 IF 4K391200 22576 0020 00 4 00001 TRA 1,4 NONE COMPARE 4K391300| 22577 4046 00 0 00000 PIA 4K391400| 22600 0322 00 2 00000 ERA 0,2 4K391500| 22601 4320 00 0 21723 ANA MSKAD EXIT 2,4 IF 4K391600| 22602 0100 00 4 00002 TZE 2,4 NT(E) IS SAME 4K391700 22603 1 77776 2 22575 TXI FC.LMX,2,-2 TEST NEXT 4K391800| | FETCH WRITE BUFFER 4K392000| 22604 0634 00 4 22611 FC.CCB SXA FC.CCX,4 SET EXIT 4K392100| 22605 0074 00 4 25600 TSX INFIN,4 4K392200 22606 0 00000 0 21560 PZE CTCONC 4K392300| 22607 0621 00 0 22727 STA F.POTA SET 4K392400| 1 IBMAPV IBMAPK 12/01/64 PAGE 451 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 22610 4734 00 4 00000 PDX 0,4 COUNTS 4K392500 22611 0020 00 0 00000 FC.CCX TRA ** EXIT 4K392600| | * SUBROUTINE TO MARK INTERNAL DICTIONARY FROM POINT 4K392800| * A TO POINT B. ENTER VIA 4K392900| * 4K393000 * TSX D.MARK,1 4K393100| * 4K393200| * WITH INDICATORS AS 4K393300| * 4K393400| * VFD O6/2,15/SECT.NO,15/BASE.VALUE 4K393500 * 4K393600| * AND MQ AS 4K393700| * 4K393800| * PZE L(A),,L(B) 4K393900| | 22612 0634 00 1 22701 D.MARK SXA D.MRX+1,1 SAVE RETURN 4K394100| 22613 4046 00 0 00000 PIA 4K394200| 22614 0621 00 0 35020 STA FC.TM1 SAVE BASE VALUE 4K394300| 22615 0500 00 0 22745 CLA F.POTB 4K394400 22616 0402 00 0 21457 SUB BGDICT 4K394500| 22617 0361 00 0 21706 ACL L(2) 4K394600| 22620 0767 00 0 00022 ALS 18 4K394700| 22621 4320 00 0 21724 ANA MSKDC SET UP PROTOTYPE 4K394800| 22622 0361 00 0 35013 ACL FC.2H DICTIONARY ENTRY 4K394900 0BINARY CARD ID. MAPK0169| 22623 0601 00 0 35024 STO D.BASE 4K395000| 22624 0131 00 0 00000 XCA 4K395100| 22625 4737 00 1 00000 PDC 0,1 SET EXIT 4K395200| 22626 4634 00 1 22700 SXD D.MRX,1 TEST 4K395300 22627 0737 00 1 00000 PAC 0,1 STARTING POINT 4K395400| 22630 0441 00 1 00000 D.MRA LDI 0,1 CURRENT ITEM 4K395500| 22631 4054 00 400000 LFT 400000 4K395600| 22632 0020 00 0 22650 TRA D.MRAB 4K395700| ITEM IS NOT ORDINARY 4K395900| 22633 4056 00 200000 LNT 200000 4K396000| 22634 0020 00 0 22650 TRA D.MRAB PREVIOUS 4K396100| 22635 4046 00 0 00000 PIA SECTION NUMBER- 4K396200| 22636 0771 00 0 00022 ARS 18 4K396300 22637 0361 00 0 21457 ACL BGDICT SET UP 4K396400| 22640 0402 00 0 21706 SUB L(2) 4K396500| 22641 0621 00 0 22646 STA D.MRAA AND RESTORE 4K396600| 22642 4046 00 0 00000 PIA ORIGINAL VALUE 4K396700| 22643 4320 00 0 21723 ANA MSKAD 4K396800 22644 0054 00 100000 RFT 100000 4K396900| 22645 4760 00 0 00003 SSM 4K397000| 22646 0400 00 0 00000 D.MRAA ADD ** PROCESS 4K397100| 22647 1 77777 1 22662 TXI D.MRBB,1,-1 AS ORDINARY (6)4K397200| 22650 4046 00 0 00000 D.MRAB PIA 4K397400| 0BINARY CARD ID. MAPK0170| 22651 4054 00 300000 LFT 300000 4K397500| 1 IBMAPV IBMAPK 12/01/64 PAGE 452 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK 0 22652 1 77777 1 22700 TXI D.MRX,1,-1 SKIP TYPES OVER 10 4K397600| 22653 4054 00 020000 LFT 20000 4K397700| 22654 1 77777 1 22700 TXI D.MRX,1,-1 SKIP 6, 3 AND 2 4K397800| 22655 4056 00 040000 LNT 40000 4K397900| 22656 1 77777 1 22662 TXI D.MRBB,1,-1 PROCESS 0 AND 1 (6)4K398000 22657 4056 00 010000 LNT 10000 4K398100| 22660 1 77775 1 22700 TXI D.MRX,1,-3 SKIP 2 ON LCTR 4K398200| 22661 1 77776 1 22700 TXI D.MRX,1,-2 SKIP 1 ON UQAL 4K398300| | MARK DICTIONARY ITEM 4K398500 22662 4320 00 0 21723 D.MRBB ANA MSKAD COMPUTE RELATIVE 4K398600| 22663 0402 00 0 35020 SUB FC.TM1 LOCATION 4K398700| 22664 4520 00 0 21432 NZT SWRELD SHOULD REFERENCES REMAIN RELATIVE (6)4K398710| 22665 0020 00 0 22673 TRA D.MRCC NO, GO MARK THIS ONE (6)4K398720| 22666 0100 00 0 22675 TZE D.MRC IF NOT AT BEGINNING (6)4K398800 22667 0340 00 0 35025 CAS D.LNGT OF CONTROL SECTION, (6)4K398810| 22670 0020 00 0 22675 TRA D.MRC MARK ONLY IF OUTSIDE (6)4K398820| 22671 0020 00 0 22675 TRA D.MRC OF IT (6)4K398830| 22672 0120 00 0 22700 TPL D.MRX (6)4K398840| 22673 0120 00 0 22675 D.MRCC TPL D.MRC PLACE SIGN (6)4K398850 22674 0361 00 0 32374 ACL 1TAG IF NEG 4K398900| 22675 0441 00 0 35024 D.MRC LDI D.BASE (6)4K399000| 22676 0043 00 0 00000 OAI PLACE INTO 4K399100| 0BINARY CARD ID. MAPK0171| 22677 0604 00 1 77777 STI -1,1 DICTIONARY (6)4K399200 22700 3 00000 1 22630 D.MRX TXH D.MRA,1,** BACK IF 4K399400| 22701 0774 00 1 00000 AXT **,1 NOT THROUGH 4K399500| 22702 0020 00 1 00001 TRA 1,1 4K399600| | * CDICT POSTING ROUTINE. ENTER VIA 4K399800| * 4K399900| * TSX F.POST,1 4K400000| * 4K400100| * WITH INDICATORS SET TO ENTRY TYPE. UPON RETURN, 4K400200 * 02 WORD IN INT DICT, AND ENTRY IN CDICT 4K400300| | | 22703 0634 00 1 22746 F.POST SXA F.POSX,1 SAVE RETURN 4K400500| 22704 0500 00 2 77777 CLA -1,2 4K400600 22705 0771 00 0 00022 ARS 18 4K400700| 22706 4320 00 0 21723 ANA MSKAD INITIAL VALUE 4K400800| 22707 0601 00 0 35024 STO D.BASE 4K400900| 22710 0500 00 2 77777 CLA -1,2 4K401000| 22711 0760 00 0 00006 COM FINAL VALUE 4K401100 22712 4320 00 0 21723 ANA MSKAD 4K401200| 22713 0402 00 0 35024 SUB D.BASE LENGTH = 4K401300| 22714 0601 00 0 35025 STO D.LNGT (6)4K401310| 22715 0767 00 0 00022 ALS 18 FIRST-FINAL 4K401400| 22716 0622 00 0 35024 STD D.BASE 4K401500 22717 0442 00 0 35024 OSI D.BASE ENTRY 4K401600| 22720 0020 00 0 22727 TRA F.POTA 4K401700| 22721 0634 00 1 22746 F.POSU SXA F.POSX,1 ENTRY FOR VIRTUALS 4K401800| 22722 0522 00 0 22727 XEC F.POTA PLACE ENTRY 4K401900| 22723 0500 00 0 35021 CLA FC.TM2 COMPUTE 4K402000 1 IBMAPV IBMAPK 12/01/64 PAGE 453 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 22724 0361 00 0 21706 ACL L(2) SECTION NUMBER 4K402100| 0BINARY CARD ID. MAPK0172| 22725 0043 00 0 00000 OAI FOR POSTED ITEM 4K402200 22726 0020 00 0 22730 TRA *+2 4K402300| 22727 0604 00 4 00000 F.POTA STI **,4 PLACE 4K402400| 22730 2 00001 4 22732 TIX *+2,4,1 AND COUNT 4K402500| 22731 1 22731 4 22604 TXI FC.CCB,4,* ENTRY 4K402600| 22732 0445 00 0 21731 RIS MSKSP 4K402700 22733 4057 00 770000 RIL 770000 4K402800| 22734 4055 00 020000 SIL 20000 MAKE UP 4K402900| 22735 0500 00 2 77776 CLA -2,2 ENTRY OF 4K403000| 22736 4320 00 0 21723 ANA MSKAD FORM 4K403100| 22737 0767 00 0 00017 ALS 15 4K403200 22740 0043 00 0 00000 OAI A/2,15/NT(E), 15/BASE,VALUE 4K403300| 22741 0500 00 0 21457 CLA BGDICT 4K403400| 22742 0400 00 0 35021 ADD FC.TM2 4K403500| 22743 0621 00 0 22745 STA F.POTB 4K403600| 22744 0500 00 2 77776 CLA -2,2 PLACE WORD 4K403700 22745 0604 00 0 00000 F.POTB STI ** INTO DICT 4K403800| 22746 0774 00 1 00000 F.POSX AXT **,1 4K403900| 22747 0020 00 1 00001 TRA 1,1 EXIT 4K404000| 22750 FCPTCH EQU * (6)4K404010| 00030 FC.BSP EQU LILBUF-* LENGTH OF SPACE LEFT IN BUFFER (6)4K404080 35012 USE PREVIOUS (6)4K404090| | | * CONSTANTS AND STORAGE 4K404200| * 4K404300 | 0BINARY CARD ID. MAPK0173| 35012 1 00000 0 00000 FC.1H PON 0 4K404500| 35013 2 00000 0 00000 FC.2H PTW 0 4K404600| 35014 3 00000 0 00000 FC.3H PTH 0 4K404700 35015 5 00000 0 00000 FC.5H MON 0 4K404800| 35016 0 00000 0 00001 PZE 1 4K404900| 35017 0 00000 2 00000 FC.TM PZE **,2 TEMPORARY 4K405000| 35020 0 00000 0 00000 FC.TM1 PZE ** STORAGES 4K405100| 35021 0 00000 0 00000 FC.TM2 PZE ** (ORIG ENTRY CT HERE AT END) 4K405200 35022 0 00000 0 00000 FC.TM3 PZE ** 4K405300| 35023 0 00000 0 00000 FC.TM4 PZE ** 4K405400| 35024 0 00000 0 00000 D.BASE PZE ** 4K405500| 35025 0 00000 0 00000 D.LNGT PZE ** LENGTH OF CURRENT SECTION (6)4K405510| 1 IBMAPV IBMAPK 12/01/64 PAGE 454 CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0| * PARTII. LIST AND PUNCH CDICT CARDS. 4K405700| * 4K405800| 35026 0634 00 4 35243 SCDKT SXA SCDKX,4 SAVE RETURN 4K406000| 35026 SRTBL EQU SCDKT DEBUG TABLE START $4$4K406100| 35027 0520 00 0 21426 ZET SWABS SPECIAL IF 4K406200| 35030 0020 00 0 35243 TRA SCDKX ABS ASSEMBLY 4K406300| RELOCATABLE ASSEMBLY 4K406500| 35031 0074 00 4 27627 TSX CRO.SH,4 SET SUBHEADING 4K406900| 35032 0 00003 0 35421 PZE S.TL,,S.TLE-S.TL 4K407000| 35033 0500 00 0 35377 CLA S.CDW 4K407100| 35034 0601 00 0 30231 STO F.IMG PRINT AND PUNCH 4K407200 35035 0074 00 4 30122 TSX PR.PU,4 $CDICT CARD 4K407300| 35036 1 00000 0 30231 PON F.IMG 4K407400| 35037 4625 00 0 21426 STL SWABS 4K407500| 0BINARY CARD ID. MAPK0174| 35040 0074 00 4 30302 TSX PUINIT,4 INITIALIZE 4K407600 35041 000000000303 OCT 303 DECK 4K407700| 35042 0600 00 0 21426 STZ SWABS PUNCHING 4K407800| 35043 0500 00 0 35375 CLA HHLCTR LENGTH OF PROGRAM 4K407900| 35044 0361 00 0 41760 ACL REVT STARTING POINT 4K408000| 35045 0520 00 0 21425 ZET SWMOD DECK TYPE 4K408100 35046 0361 00 0 35015 ACL FC.5H CODE 4K408200| 35047 4130 00 0 00000 XCL 4K408300| 35050 4600 00 0 30676 STQ RDATA 4K408400| 35051 4600 00 0 30223 STQ FD.BUF FIRST WD PREFACE 4K408500| 35052 0074 00 4 30567 TSX PABST,4 TO PUNCH 4K408600 35053 0560 00 0 21460 LDQ CMPLX 4K408700| 35054 0500 00 0 21710 CLA L(4) SET SECOND 4K408800| 35055 4520 00 0 21424 NZT SWC94 WORD PREFACE 4K408900| 35056 0754 00 0 00000 PXA 0,0 4K409000| 35057 4765 00 0 00022 LGR 18 4K409100 35060 4600 00 0 30676 STQ RDATA 4K409200| 35061 4600 00 0 30224 STQ FD.BUF+1 4K409300| 35062 0074 00 4 30567 TSX PABST,4 4K409400| 35063 0520 00 0 21420 ZET CTLIST SKIP PRINT $4$4K409500| 35064 0020 00 0 35141 TRA SC.D SETUP IF NO LIST $4$4K409600 35065 0074 00 4 30154 TSX PR.LFT,4 PRINT FIRST 4K409700| 0BINARY CARD ID. MAPK0175| 35066 0 00000 0 30223 PZE FD.BUF LEFT WORD 4K409800| 35067 0074 00 4 25577 TSX PRINT,4 4K409900| 35070 0020 00 0 35074 TRA *+4 $4$4K410000 35071 0 00000 0 00002 PZE 2 PRINT WORD 4K410100| 35072 4 00002 0 27741 MZE BLANX,,2 'PREFACE' 4K410200| 35073 4 00002 0 35400 MZE S.PFX,,2 4K410300| 35074 0500 00 0 30223 CLA FD.BUF 4K410400| 35075 4120 00 0 35077 TMI *+2 4K410500 35076 4634 00 0 35136 SXD SC.C+1,0 4K410600| 35077 4765 00 0 00017 LGR 15 4K410700| 35100 0074 00 2 27613 TSX OCCVN+1,2 CONVERT START 4K410800| 35101 4600 00 0 21461 STQ NAME POINT AND SAVE 4K410900| 35102 4634 00 1 35113 SXD SC.A,1 4K411000 1 IBMAPV IBMAPK 12/01/64 PAGE 455 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 35103 0500 00 0 30223 CLA FD.BUF 4K411100| 35104 0771 00 0 00022 ARS 18 CONVERT 4K411200| 35105 0074 00 4 27507 TSX SC.CON,4 LENGTH AND SAVE 4K411300 35106 4634 00 1 35115 SXD SC.B,1 4K411400| 35107 0074 00 4 25577 TSX PRINT,4 4K411500| 35110 0020 00 0 35116 TRA *+6 $4$4K411600| 35111 0 00000 0 00004 PZE 4 PRINT- 4K411700| 35112 4 00001 0 35407 MZE S.STT,,1 4K411800 35113 4 00000 1 21461 SC.A MZE NAME,1,** START=XXXXX 4K411900| 0BINARY CARD ID. MAPK0176| 35114 4 00010 1 35413 MZE S.LNT,1,8 4K412000| 35115 4 00000 1 21462 SC.B MZE OPER,1,** ,LENGTH=NNNN 4K412100| 35116 4500 00 0 30224 CAL FD.BUF+1 4K412200 35117 0400 00 0 35376 ADD S.709 4K412300| 35120 0771 00 0 00022 ARS 18 CONVERT 4K412400| 35121 0074 00 4 27507 TSX SC.CON,4 MACHINE TYPE 4K412500| 35122 4600 00 0 21461 STQ NAME 4K412600| 35123 0500 00 0 30224 CLA FD.BUF+1 4K412700 35124 0074 00 4 27507 TSX SC.CON,4 COUNT 4K412800| 35125 4634 00 1 35135 SXD SC.C,1 4K412900| 35126 0074 00 4 25577 TSX PRINT,4 / 4K413000| 35127 0020 00 0 35137 TRA *+8 $4$4K413100| 35130 0 00000 0 00006 PZE 6 PRINT- 4K413200 35131 4 00001 0 35410 MZE S.TYP,,1 4K413300| 35132 4 00004 1 21461 MZE NAME,1,4 TYPE=709X 4K413400| 35133 4 00001 1 35413 MZE S.LNT,1,1 4K413500| 35134 4 00001 0 35406 MZE S.POW,,1 4K413600| 35135 4 00000 1 21462 SC.C MZE OPER,1,** ,CMPLX=NNN 4K413700 35136 4 00007 1 35404 MZE S.SYS,1,7 ,SYSMOD (IF SO) 4K413800| 35137 0074 00 4 30154 TSX PR.LFT,4 PRINT 4K413900| 35140 0 00000 0 30224 PZE FD.BUF+1 SECOND LEFT WORD 4K414000| | 35141 0560 00 0 21435 SC.D LDQ JBNAME $4$4K414200 0BINARY CARD ID. MAPK0177| 35142 4600 00 0 30676 STQ RDATA 4K414300| 35143 4600 00 0 30224 STQ FD.BUF+1 PUNCH FIRST 4K414400| 35144 0074 00 4 30567 TSX PABST,4 WD DECK ENTRY 4K414500| 35145 0560 00 0 35375 LDQ HHLCTR 4K414600 35146 4600 00 0 30676 STQ RDATA 4K414700| 35147 4600 00 0 30223 STQ FD.BUF PUNCH SECOND 4K414800| 35150 0074 00 4 30567 TSX PABST,4 WORD 4K414900| 35151 0074 00 4 30154 TSX PR.LFT,4 PRINT FIRST 4K415000| 35152 0 00000 0 30224 PZE FD.BUF+1 LEFT WORD 4K415100 35153 0074 00 4 25577 TSX PRINT,4 4K415200| 35154 0020 00 0 35162 TRA *+6 $4$4K415300| 35155 0 00000 0 00004 PZE 4 4K415400| 35156 4 00005 1 27741 MZE BLANKS,1,5 PRINT 4K415500| 35157 4 00001 0 21435 MZE JBNAME,,1 4K415600 35160 4 00001 1 27741 MZE BLANKS,1,1 'JBNAME DECK' 4K415700| 35161 4 00002 0 35402 MZE S.DCK,,2 4K415800| 35162 0074 00 4 30154 TSX PR.LFT,4 PRINT SECOND (6)4K415900| 35163 0 00000 0 30223 FD.BUF LEFT WORD (6)4K416000| | 1 IBMAPV IBMAPK 12/01/64 PAGE 456 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 PUNCH AND PRINT ORIGINAL ENTRIES. 4K416300| 35164 0534 00 2 35021 LXA FC.TM2,2 EXIT IF 4K416400 35165 7 00000 2 35212 TXL SC.2,2,0 NO OTHER ENTRIES 4K416500| 35166 0774 00 4 00000 AXT 0,4 OTHERWISE, 4K416600| 35167 1 35170 4 35004 TXI FC.FCH,4,*+1 FETCH FIRST BUFFER 4K416700| 0BINARY CARD ID. MAPK0178| 35170 0560 60 0 34706 SC.1 LDQ* FC.8 4K416800 35171 4600 00 0 30676 STQ RDATA 4K416900| 35172 0634 00 4 35175 SXA *+3,4 WORD OF ITEM 4K417000| 35173 4600 00 0 30224 STQ FD.BUF+1 AND PUNCH IT 4K417100| 35174 0074 00 4 30567 TSX PABST,4 4K417200| 35175 0774 00 4 00000 AXT **,4 4K417300 35176 2 00001 4 35200 TIX *+2,4,1 COUNT 4K417400| 35177 1 35177 4 35004 TXI FC.FCH,4,* LAST ITEM 4K417500| 35200 0560 60 0 34706 LDQ* FC.8 OBTAIN SEOND 4K417600| 35201 4600 00 0 30676 STQ RDATA 4K417700| 35202 0634 00 4 35206 SXA *+4,4 AND PUNCH IT 4K417800 35203 4600 00 0 30223 STQ FD.BUF 4K417900| 35204 0074 00 4 30567 TSX PABST,4 4K418000| 35205 0074 00 4 35245 TSX SC.PRN,4 PRINT ENTRY 4K418100| 35206 0774 00 4 00000 AXT **,4 4K418200| 35207 2 00001 4 35211 TIX *+2,4,1 COUNT 4K418300 35210 1 35210 4 35004 TXI FC.FCH,4,* LAST ITEM 4K418400| 35211 2 00001 2 35170 TIX SC.1,2,1 BACK FOR NEXT 4K418500| | PROCESS REMAINING VIRTUALS 4K418700| 35212 0500 00 0 21460 SC.2 CLA CMPLX 4K418800 35213 0402 00 0 35021 SUB FC.TM2 COMPUTE NUMBER 4K418900| 35214 0734 00 2 00000 PAX 0,2 CREATED EXIT 4K419000| 35215 7 00000 2 35242 TXL SC.4,2,0 IF NONE 4K419100| 0BINARY CARD ID. MAPK0179| 35216 0500 00 0 21457 CLA BGDICT 4K419200 35217 0400 00 0 35021 ADD FC.TM2 LOCATE ADDRESS 4K419300| 35220 0737 00 1 00000 PAC 0,1 OF FIRST ITEM 4K419400| 35221 1 77776 1 35222 TXI *+1,1,-2 4K419500| 35222 0500 00 1 00000 SC.3 CLA 0,1 4K419600| 35223 0767 00 0 00003 ALS 3 4K419700 35224 4737 00 4 00000 PDC 0,4 OBTAIN EXTERNAL 4K419800| 35225 0560 00 4 00000 LDQ 0,4 NAME, STORE 4K419900| 35226 4600 00 0 30224 STQ FD.BUF+1 AND PUNCH 4K420000| 35227 4600 00 0 30676 STQ RDATA 4K420100| 35230 0074 00 4 30567 TSX PABST,4 4K420200 35231 0560 00 0 35013 LDQ FC.2H 4K420300| 35232 4600 00 0 30676 STQ RDATA 4K420400| 35233 4600 00 0 30223 STQ FD.BUF DUMMY ENTRY FOR 4K420500| 35234 0074 00 4 30567 TSX PABST,4 SECOND WORD (PTW) 4K420600| 35235 0634 00 1 35237 SXA *+2,1 4K420700 35236 0074 00 4 35245 TSX SC.PRN,4 PRINT ITEM 4K420800| 35237 0774 00 1 00000 AXT **,1 4K420900| 35240 1 77777 1 35241 TXI *+1,1,-1 4K421000| 35241 2 00001 2 35222 TIX SC.3,2,1 BACK FOR NEXT 4K421100| 35242 0074 00 4 30611 SC.4 TSX PAB4,4 CLEAR BUFFER 4K421200 35243 0774 00 4 00000 SCDKX AXT **,4 4K421300| 1 IBMAPV IBMAPK 12/01/64 PAGE 457 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0BINARY CARD ID. MAPK0180| 35244 0020 00 4 00001 TRA 1,4 AND EXIT 4K421400 | PRINT NORMAL ENTRY 4K421600| 35245 0774 00 1 00001 SC.PRN AXT */*,1 BUMP SECTION (6)4K421700| 35246 1 00001 1 35247 TXI *+1,1,1 NUMBER (6)4K421710| 35247 0634 00 1 35245 SXA SC.PRN,1 (6)4K421800 35250 0634 00 4 35372 SXA SC.PRX,4 SAVE RETURN $4$4K421900| 35251 0634 00 2 35373 SXA SC.PRX+1,2 4K422000| 35252 0074 00 4 30154 TSX PR.LFT,4 PRINT FIRST 4K422100| 35253 0 00000 0 30224 PZE FD.BUF+1 LEFT WORD 4K422200| 35254 0500 00 0 30223 CLA FD.BUF 4K422300 35255 0771 00 0 00016 ARS 14 4K422400| 35256 4320 00 0 21720 ANA 6DECR 4K422500| 35257 4734 00 1 00000 PDX 0,1 PICK UP 4K422600| 35260 1 35424 1 35261 TXI *+1,1,S.TBL ENTRY 4K422700| 35261 0634 00 1 35275 SXA SC.PRA,1 TYPE AND 4K422800 35262 0774 00 1 30224 AXT FD.BUF+1,1 SET 4K422900| 35263 4520 00 0 30224 NZT FD.BUF+1 FOR 4K423000| 35264 0774 00 1 27741 AXT BLANKS,1 4K423100| 35265 0634 00 1 35273 SXA SC.PRR,1 4K423200| 35266 4520 00 0 21420 NZT CTLIST (6)4K423210 35267 0074 00 4 25577 TSX PRINT,4 PRINT 4K423300| 35270 0020 00 0 35276 TRA SC.PRM $4$4K423400| 35271 0 00000 0 00004 PZE 4 PRINT- 4K423500| 0BINARY CARD ID. MAPK0181| 35272 4 00005 1 27741 MZE BLANKS,1,5 4K423600 35273 4 00001 0 00000 SC.PRR MZE **,,1 'EXNAME TYPE' 4K423700| 35274 4 00001 1 27741 MZE BLANKS,1,1 4K423800| 35275 4 00002 0 00000 SC.PRA MZE **,,2 4K423900| 35276 0500 00 0 30223 SC.PRM CLA FD.BUF 4K424000| 35277 4765 00 0 00017 LGR 15 4K424100 35300 4734 00 1 00000 PDX 0,1 4K424200| 35301 4320 00 0 21705 ANA L(1) SET 4K424300| 35302 0734 00 4 00000 PAX 0,4 CALL 4K424400| 35303 7 00000 4 35305 TXL *+2,4,0 REFERENCE 4K424500| 35304 0774 00 4 00005 AXT 5,4 PRINT 4K424600 35305 4634 00 4 35346 SXD SC.PRC+1,4 4K424700| 35306 4634 00 4 35367 SXD SC.PRK,4 4K424800| 35307 2 00002 1 35307 TIX *,1,2 BRANCH TO 4K424900| 35310 0020 00 1 35313 TRA *+3,1 PRINT BY TYPE 4K425000| 35311 0020 00 0 35354 TRA SC.PRF OF ENTRY 4K425100 35312 0020 00 0 35347 TRA SC.PRE 4K425200| | REAL TYPE 4K425400| 35313 0500 00 0 35245 CLA SC.PRN LOCATE INTERNAL DICTIONARY (6)4K425410| 35314 0361 00 0 21457 ACL BGDICT ENTRY FOR (6)4K425420 35315 0621 00 0 35317 STA *+2 THIS SECTION (6)4K425430| 35316 0500 00 0 30223 CLA FD.BUF 4K425500| 35317 0621 00 0 00000 STA ** RESTORE ID (6)4K425510| 0BINARY CARD ID. MAPK0182| 35320 4765 00 0 00017 LGR 15 4K425600 35321 0074 00 2 27613 TSX OCCVN+1,2 CONVERT LOCATION 4K425700| 35322 4600 00 0 21461 STQ NAME 4K425800| 1 IBMAPV IBMAPK 12/01/64 PAGE 458 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK | 0 35323 4634 00 1 35343 SXD SC.PRB,1 FOR PRINT 4K425900 35324 0500 00 0 35245 CLA SC.PRN CONVERT SECTION (6)4K425910| 35325 0074 00 4 27507 TSX SC.CON,4 FOR PRINT (6)4K425920| 35326 4600 00 0 21463 STQ OPER+1 (6)4K425930| 35327 4634 00 1 35341 SXD SC.PRI,1 (6)4K425940| 35330 0500 00 0 30223 CLA FD.BUF 4K426000 35331 0771 00 0 00022 ARS 18 CONVERT 4K426100| 35332 0074 00 4 27507 TSX SC.CON,4 LENGTH 4K426200| 35333 4634 00 1 35345 SXD SC.PRC,1 FOR PRINT 4K426300| 35334 4520 00 0 21420 NZT CTLIST (6)4K426310| 35335 0074 00 4 25577 TSX PRINT,4 4K426400 35336 0020 00 0 35370 TRA SC.PRD $4$4K426500| 35337 0 00000 0 00007 PZE 7 PRINT - (6)4K426600| 35340 4 00001 0 35416 MZE S.NUM+1,,1 SECT. (6)4K426610| 35341 4 00000 1 21463 SC.PRI MZE OPER+1,1,** (6)4K426620| 35342 4 00005 1 35412 MZE S.LCT+1,1,5 (6)4K426700 35343 4 00000 1 21461 SC.PRB MZE NAME,1,** LOC=XXXXX 4K426800| 35344 4 00010 1 35413 MZE S.LNT,1,8 4K426900| 35345 4 00000 1 21462 SC.PRC MZE OPER,1,** ,LENGTH=N 4K427000| 0BINARY CARD ID. MAPK0183| 35346 4 00000 1 35417 MZE S.CAL,1,** ,CALL (IF REF) 4K427100 | EVEN TYPE 4K427300| 35347 0500 00 0 30223 SC.PRE CLA FD.BUF CONVERT LOCATION 4K427400| 35350 4765 00 0 00017 LGR 15 4K427500| 35351 0074 00 2 27613 TSX OCCVN+1,2 AND SET 4K427600 35352 0500 00 0 35411 CLA S.LCT PRINT (6)4K427700| 35353 0020 00 0 35357 TRA SC.PRG 4K427800| | VIRTUAL TYPE 4K428000| 35354 0500 00 0 35245 SC.PRF CLA SC.PRN CONVERT (6)4K428100 35355 0074 00 4 27507 TSX SC.CON,4 NUMBER 4K428500| 35356 0500 00 0 35415 CLA S.NUM 4K428600| 35357 0601 00 0 35365 SC.PRG STO SC.PRH SET 4K428700| 35360 4634 00 1 35366 SXD SC.PRH+1,1 PRINT 4K428800| 35361 4520 00 0 21420 NZT CTLIST (6)4K428810 35362 0074 00 4 25577 TSX PRINT,4 4K428900| 35363 0020 00 0 35370 TRA SC.PRD $4$4K429000| 35364 0 00000 0 00003 PZE 3 'SECT.N' 4K429100| 35365 4 00004 1 00000 SC.PRH MZE **,1,4 4K429200| 35366 4 00000 1 21462 MZE OPER,1,** 4K429300 35367 4 00000 1 35417 SC.PRK MZE S.CAL,1,** ,CALL (IF REF) 4K429400| | 35370 0074 00 4 30154 SC.PRD TSX PR.LFT,4 4K429600| 35371 0 00000 0 30223 PZE FD.BUF PRINT SECOND LEFT WORD 4K429700| 35372 0774 00 4 00000 SC.PRX AXT **,4 4K429800 35373 0774 00 2 00000 AXT **,2 4K429900| 0BINARY CARD ID. MAPK0184| 35374 0020 00 4 00001 TRA 1,4 EXIT 4K430000| 1 IBMAPV IBMAPK 12/01/64 PAGE 459 | CONTROL DICTIONARY PROCESSING PHASE 2 - RECORD IBMAPK 0| * CONSTANTS AND STORAGE 4K430200| * 4K430300| | 35375 0 00000 0 00000 HHLCTR PZE ,,** HIGHEST PROGRAM LOCATION 4K430500 35376 0 15662 0 00000 S.709 PZE ,,7090 MACHINE TYPE BASE 4K430600| | 35377 532324312363 S.CDW BCI 1,$CDICT 4K430800| 35400 475125262123 S.PFX BCI 2,PREFACE 4K430900| 35402 242523426060 S.DCK BCI 2,DECK 4K431000 35404 736270624446 S.SYS BCI 2,,SYSMOD 4K431100| 35406 234447436713 S.POW BCI 1,CMPLX= 4K431200| 35407 626321516313 S.STT BCI 1,START= 4K431300| 35410 736370472513 S.TYP BCI 1,,TYPE= 4K431400| 35411 4 00004 2 35412 S.LCT MZE *+1,2,4 (6)4K431500 35412 734346231360 BCI 1,,LOC= (6)4K431510| 35413 734325452763 S.LNT BCI 2,,LENGTH= 4K431600| 35415 4 00001 0 35416 S.NUM MZE *+1,,1 4K431700| 35416 622523633360 BCI 1,SECT. 4K431800| 35417 732321434324 S.CAL BCI 2,,CALLD 4K431900 35421 234645635146 S.TL BCI 3,CONTROL DICTIONARY 4K432100| 35424 S.TLE EQU * 4K432200| | 0BINARY CARD ID. MAPK0185| 35424 512521436060 S.TBL BCI 2,REAL 4K432400 35426 256525456060 BCI 2,EVEN 4K432500| 35430 653151636421 BCI 2,VIRTUAL 4K432600| 1 IBMAPV IBMAPK 12/01/64 PAGE 460 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0 * TRANSMIT PSEUDO-OP DICTIONARY FROM INTERNAL FILE TO 'PSBF' BUFFER 4K432800| * ALL NAME TABLE REFERENCES ARE CONVERTED TO INTERNAL DICTIONARY 4K432900| * REFERENCES 4K433000| | 35432 0634 00 4 36231 W2PA SXA RNX,4 SAVE RETURN ADDRESS 4K433200 35433 4754 00 0 00000 ZAC $5$4K433210| 35434 0520 00 0 21426 ZET SWABS IF ABSMOD SET INITIAL $5$4K433220| 35435 0625 00 0 35763 STT L(DM) ZERO AS CONSTANT $5$4K433230| 35436 0774 00 4 00000 AXT 0,4 RESET INPUT BUFFER COUNT 4K433300| 35437 0774 00 2 33000 TRP AXT -PSBF,2 LOCATE START OF DICTIONARY 4K433400 35440 0634 00 2 35437 TRP2 SXA TRP,2 SAVE CURRENT DICTIONARY LOCATION 4K433500| 35441 3 25750 2 35444 TXH *+3,2,-PSBFE IF DICTIONARY IS FULL PRINT MESSAGE 4K433600| 35442 0074 00 4 25576 TSX ERPR,4 'PSEUDO-OP DICTIONARY FULL. 4K433700| 35443 0 00000 5 00153 PZE RMS030,KAPUT ASSEMBLE IN SMALLER PARTS' 4K433800| 35444 0074 00 1 35615 TSX TRBF,1 TRANSMIT ONE WORD 4K433900 35445 4054 00 600000 LFT 600000 DO NOTHING IF THIS IS THE 4K434000| 35446 1 77777 2 35440 TRP3 TXI TRP2,2,-1 SECOND WORD OF A PSEUDO OP 4K434100| 35447 4520 00 2 00000 NZT 0,2 TEST FOR END OF PSEUDO OPS 4K434200| 0BINARY CARD ID. MAPK0186| 35450 0020 00 0 35650 TRA CHLC 1 F SO GO TO 'CHLC' 4K434300 35451 4154 01 1 35626 CRQ PSTAB,1,1 GO TO PROPER SUBROUTINE 4K434400| 35452 7 00000 1 35446 TXL TRP3,1,0 IF SPECIAL PROCESSING 4K434500| 35453 0020 00 1 00000 TRA 0,1 IS NEEDED 4K434600| | * NAME TABLE REFERENCES 4K434800 | 35454 4054 00 007600 PSB LFT 007600 '00' ADJECTIVE CODE 4K435000| 35455 0020 00 0 35463 TRA PSB2 TEST 4K435100| 35456 4056 00 000100 LNT 000100 FOR A 4K435200| 35457 0020 00 0 35463 TRA PSB2 '$' 4K435300 35460 1 77777 2 35461 TXI *+1,2,-1 IF SO 4K435400| 35461 0074 00 1 35615 TSX TRBF,1 TRANSMIT ANOTHER WORD 4K435500| 35462 0020 00 0 35454 TRA PSB GO BACK TO TEST ITS FLAG FIELDS 4K435600| 35463 4634 00 2 35470 PSB2 SXD PSB3,2 SAVE LAST POSITION OF QUALIFIED NAME 4K435700| 35464 0522 00 0 35437 XEC TRP LOCATE FIRST WORD OF QUALIFIED NAME 4K435800 35465 0074 00 1 42377 TSX RQUAL,1 DETERMINE INTERNAL 4K435900| 35466 0 35502 0 35507 PZE PSLIST,,5PS DICTIONARY LOCATION 4K436000| 35467 0500 00 0 43153 CLA ID(A) GET INTERNAL DICTIONARY LOCATION 4K436100| 35470 7 00000 2 35473 PSB3 TXL PSB4,2,** SET 4K436200| 35471 0600 00 2 00000 STZ 0,2 ALL QUALIFIERS 4K436300 35472 1 77777 2 35470 TXI PSB3,2,-1 TO ZERO 4K436400| 35473 4100 00 0 35500 PSB4 TNZ PS4A IF NAME WAS A VURTUAL 4K436500| 35474 0441 00 2 00000 LDI 0,2 (HASHT) = 0, SET ADJECTIVE 4K436600| 35475 4055 00 170000 SIL 170000 CODE IN THE PSEUDO OP 4K436700| 0BINARY CARD ID. MAPK0187 35476 0604 00 2 00000 STI 0,2 DICTIONARY TO ZERO. 4K436800| 35477 1 77777 2 35440 TXI TRP2,2,-1 CONTINUE TRANSMISSION. 4K436900| 35500 0621 00 2 00000 PS4A STA 0,2 ELSE STORE ID(A) IN TEXT 4K437000| 35501 1 77777 2 35440 TXI TRP2,2,-1 CONTINUE TRANSMISSION. 4K437100| * QUAL 4K437300| | 35502 0774 00 1 00000 5PS AXT **,1 NUMBER OF ENTRIES IN 'PSLIST' 4K437500| 1 IBMAPV IBMAPK 12/01/64 PAGE 461 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK 0 35503 1 77777 1 35504 TXI *+1,1,-1 BUMP '5PS' TO 4K437600| 35504 0634 00 1 35502 SXA 5PS,1 POINT TO NEXT ENTRY 4K437700| 35505 0604 00 1 35507 STI PSLIST,1 STORE NEW ENTRY 4K437800| 35506 0020 00 0 35446 TRA TRP3 CONTINUE TRANSMISSION 4K437900| 35507 0 00000 0 21470 PSLIST PZE DPQL DUMMY PUSH DOWN ENTRY 4K438100| 35510 BSS PDSZE PUSH DOWN LIST BUFFER 4K438200| | * ENDQ 4K438400| 0BINARY CARD ID. MAPK0188| 35610 0522 00 0 35502 6PS XEC 5PS NUMBER OF ENTRIES IN 'PSLIST' 4K438600| 35611 0600 00 1 35507 STZ PSLIST,1 ERASE LAST ENTRY. 4K438700| 35612 1 00001 1 35613 TXI *+1,1,1 REDUCE '5PS' TO POINT 4K438800| 35613 0634 00 1 35502 SXA 5PS,1 TO PREVIOUS ENTRY 4K438900 35614 0020 00 0 35446 TRA TRP3 CONTINUE TRANSMISSION 4K439000| | * LOCATE AN INTERNAL FILE BUFFER 4K439200| | 35615 2 00001 4 35622 TRBF TIX TRB2,4,1 IS BUFFER EMPTY 4K439400 35616 0074 00 4 25601 TSX INFOT,4 YES-GET ANOTHER 4K439500| 35617 0 35646 0 21624 PZE CTPSBF,,TNPS BUFFER 4K439600| 35620 0621 00 0 36471 STA OPB STORE LAST BUFFER ADDRESS 4K439700| 35621 4734 00 4 00000 PDX ,4 STORE BUFFER COUNT 4K439800| 35622 0441 60 0 36471 TRB2 LDI* OPB TRANSMIT NEXT WORD 4K439900 35623 0604 00 2 00000 STI 0,2 TO 'PSBF' BUFFER 4K440000| 35624 0560 00 2 00000 LDQ 0,2 LOAD MQ WITH NEXT WORD 4K440100| 35625 0020 00 1 00001 TRA 1,1 AND RETURN 4K440200| | * TRANSFER TABLE FOR PSEUDO OP TRANSMISSION 4K440400 | 35626 0 00000 0 42324 PSTAB PZE -PSB INTERNAL DICTIONARY NAME 4K440600| 35627 0 00000 0 00000 PZE 0 INTERNAL DICTIONARY ENTRY 4K440700| 35630 0 00000 0 00000 PZE 0 CONTROL DICTIONARY ENTRY 4K440800| 35631 0 00000 0 00000 PZE 0 FILE DICTIONARY ENTRY 4K440900 35632 0 00000 0 00000 PZE 0 LOCATION COUNTER 4K441000| 35633 0 00000 0 42276 PZE -5PS QUAL ENTRY 4K441100| 35634 0 00000 0 42170 PZE -6PS END QUAL ENTRY 4K441200| 35635 0 00000 0 00000 PZE 0 LITERAL 4K441300| 0BINARY CARD ID. MAPK0189 35636 0 00000 0 00000 PZE 0 DECIMAL CONSTANT 4K441400| 35637 0 00000 0 00000 PZE 0 OCTAL CONSTANT 4K441500| 35640 0 00000 0 00000 PZE 0 INTERMEDIATE RESULT 4K441600| 35641 0 00000 0 00000 PZE 0 NULL 4K441700| 35642 0 00000 0 00000 PZE 0 SET ENTRY 4K441800 35643 0 00000 0 00000 PZE 0 EVEN ENTRY 4K441900| 35644 0 00000 0 00000 PZE 0 USE ENTRY 4K442000| 35645 0 00000 0 00000 PZE 0 NOT USED 4K442100| 1 IBMAPV IBMAPK 12/01/64 PAGE 462 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK 0| * CHAIN LOCATION COUNTERS TOGETHER IN ORDER OF APPEARANCE. 4K442300| * LOCATION COUNTER CHAINS CONTAINING A 'BEGIN' WILL NOT BE CHAINED 4K442400| * TO THE PREVIOUS LOCATION COUNTER CHAIN. 4K442500| 35646 0600 00 0 45000 TNPS STZ PSBF IF NO PSEUDO OPS OCCURRED RESET 4K442700| 35647 0600 00 0 45001 STZ PSBF+1 FIRST 2 WORDS OF THE DICTIONARY 4K442800| 35650 0600 00 2 00001 CHLC STZ 1,2 STORE TRAILING ZERO 4K442900| 35651 4500 00 0 21451 CAL FLOC STORE ADDRESS OF 'BLANK' 4K443000| 35652 0621 00 0 35755 STA CLOC LOCATION COUNTER IN 4K443100 35653 0621 00 0 35760 STA DBG2 'CLOC' 4K443200| 35654 0621 00 0 37013 STA RCTR 'DBG2' 4K443300| 35655 0441 60 0 35755 LDI* CLOC TEST IF BLANK COUNTER HAS ANY 4K443400| 35656 0054 00 077777 RFT 77777 NAMES OR PSEUDO OPERATIONS 4K443500| 35657 0020 00 0 35663 TRA CHLC2 IF SO GO TO 'CHLC2' 4K443600 35660 0361 00 0 21705 ACL L(1) ELSE STORE LOCATION OF SECOND WORD 4K443700| 35661 0621 00 0 35756 STA DBG OF THE 'BLANK' USE ENTRY IN 'DUMMY4K443800| 35662 0020 00 0 35667 TRA CHLC3 'BEGIN' AND GO TO 'CHLC3' 4K443900| 35663 0074 00 1 35711 CHLC2 TSX CHL4,1 TEST IF BLANK COUNTER HAS A 'BEGIN' 4K444000| 0BINARY CARD ID. MAPK0190 35664 0020 00 0 35671 TRA CHL2 IF SO GO TO 'CHL2' 4K444100| 35665 4500 60 0 21451 CAL* FLOC ELSE STORE FIRST NAME IN BLANK CHAIN 4K444200| 35666 0621 00 0 35756 STA DBG IN DUMMY 'BEGIN' 4K444300| 35667 0774 00 2 35757 CHLC3 AXT DBG+1,2 INCLUDE DUMMY 'BEGIN' 4K444400| 35670 0634 00 2 35767 SXA RN,2 IN PSEUDO OP DICTIONARY 4K444500 35671 0535 00 4 35755 CHL2 LAC CLOC,4 GET LOCATION OF THIS COUNTER 4K444600| 35672 0074 00 1 35716 TSX CHL5,1 CHAIN 'PNAME' TO SECOND WORD 4K444700| 35673 0074 00 1 35735 TSX CHL6,1 IS THIS THE LAST COUNTER 4K444800| 35674 0020 00 0 35701 TRA CHL3 YES-TRANSFER TO 'CHL3' 4K444900| 35675 0074 00 1 35711 TSX CHL4,1 DOES NEXT COUNTER HAVE A 'BEGIN' 4K445000 35676 0020 00 0 35751 TRA CHL8 YES TRANSFER TO CHL8 4K445100| 35677 0074 00 1 35743 TSX CHL7,1 NO - CHAIN THIS COUNTER TO NEXT 4K445200| 35700 0020 00 0 35671 TRA CHL2 COUNTER AND GO TO 'CHL2' 4K445300| 35701 4500 00 0 21452 CHL3 CAL SLOC GET LOCATION OF '//' COUNTER 4K445400| 35702 0621 00 0 35755 STA CLOC AND STORE IN 'CLOC' 4K445500 35703 0074 00 1 35711 TSX CHL4,1 DOES '//' HAVE A 'BEGIN' 4K445600| 35704 0020 00 0 35706 TRA CHL3A IF NOT GO TO 'CHL3A' 4K445700| 35705 0074 00 1 35743 TSX CHL7,1 CHAIN PREVIOUS COUNTER TO '//' 4K445800| 35706 0535 00 4 35755 CHL3A LAC CLOC,4 CHAIN LAST NAME OF '//' 4K445900| 35707 0074 00 1 35716 TSX CHL5,1 TO SECOND WORD OF 'USE' ENTRY 4K446000 35710 0020 00 0 35764 TRA RINT GO TO DEFINITION PASS 4K446100| | 35711 0535 00 2 35755 CHL4 LAC CLOC,2 TEST PREFIX OF SECOND WORD 4K446300| 0BINARY CARD ID. MAPK0191| 35712 0441 00 2 00001 LDI 1,2 OF 'USE' ENTRY FOR 4K446400 35713 4054 00 700000 LFT 700000 PRESENCE OF A 'BEGIN' 4K446500| 35714 0020 00 1 00001 TRA 1,1 YES - EXIT 1,1 4K446600| 35715 0020 00 1 00002 TRA 2,1 NO - EXIT 2,1 4K446700| | 35716 4500 00 0 35755 CHL5 CAL CLOC CHAIN LAST NAME OF THIS 4K446900 35717 0361 00 0 21705 ACL L(1) LOCATION COUNTER TO THE 4K447000| 35720 0441 00 4 00001 LDI 1,4 SECOND WORD OF ITS USE 4K447100| 35721 0054 00 077777 RFT 77777 IF CHAIN CONTAINED NO 4K447200| 35722 0020 00 0 35724 TRA *+2 NAMES SET PNAME TO 4K447300| 1 IBMAPV IBMAPK 12/01/64 PAGE 463 DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0 35723 0621 00 4 00001 STA 1,4 POINT TO SECOND WORD 4K447400| 35724 0621 60 4 00001 STA* 1,4 OF THIS ENTRY. 4K447500| 35725 0441 00 4 00000 LDI 0,4 TEST IF THIS CHAIN HAD NO NAMES 4K447600| 35726 0054 00 077777 RFT 77777 IF SO CHAIN FIRST WORD 4K447700 35727 0020 00 0 35731 TRA *+2 OF THE 'USE' ENTRY 4K447800| 35730 0621 00 4 00000 STA 0,4 TO THE SECOND WORD 4K447900| 35731 4754 00 0 00000 PXD ,0 SET ADDRESS OF SECOND 4K448000| 35732 0621 00 4 00001 STA 1,4 WORD TO ZERO 4K448100| 35733 0630 00 4 00001 STP 1,4 RESET 'BEGIN' INDICATOR 4K448200 35734 0020 00 1 00001 TRA 1,1 RETURN 4K448300| | 35735 0500 00 4 00000 CHL6 CLA 0,4 CHANGE 'CLOC' 4K448500| 35736 0771 00 0 00017 ARS 15 TO POINT TO NEXT 4K448600| 35737 0621 00 0 35755 STA CLOC LOCATION COUNTER 4K448700 0BINARY CARD ID. MAPK0192| 35740 4520 00 0 35755 NZT CLOC IF THIS IS THE LAST COUNTER 4K448800| 35741 0020 00 1 00001 TRA 1,1 EXIT 1,1 4K448900| 35742 0020 00 1 00002 TRA 2,1 IF NOT EXIT 2,1 4K449000| 35743 4500 00 0 35755 CHL7 CAL CLOC CHAIN PREVIOUS COUNTER 4K449200| 35744 0621 00 4 00001 STA 1,4 TO NEXT COUNTER 4K449300| 35745 0441 00 4 00000 LDI 0,4 RESET DECREMENT OF 4K449400| 35746 0445 00 0 21731 RIS MSKSP PREVIOUS COUNTER 4K449500| 35747 0604 00 4 00000 STI 0,4 (SEPARATION COUNT = 0) 4K449600 35750 0020 00 1 00001 TRA 1,1 RETURN 4K449700| | 35751 0441 00 4 00000 CHL8 LDI 0,4 RESET 1 ADDRESS OF 4K449900| 35752 0445 00 0 21731 RIS MSKSP THIS LOCATION COUNTER 4K450000| 35753 0604 00 4 00000 STI 0,4 (SEPARATION COUNT = 0) 4K450100 35754 0020 00 0 35671 TRA CHL2 RETURN TO CHL2 4K450200| | 35755 0 00000 0 00000 CLOC PZE 0 WORKING STORAGE 4K450400| | 35756 100000045000 DBG VFD O3/1,33/PSBF DUMMY 'BEGIN ,0' 4K450600 35757 300000145001 VFD O3/3,18/1,15/PSBF+1 PSEUDO OP TO BE USED 4K450700| 35760 040000000000 DBG2 VFD O6/04,O30/** WHEN THE 'BLANK' COUNTER 4K450800| 35761 0 00000 0 35763 PZE L(DM) 4K450900| 35762 0 00000 0 00000 H PZE 0 4K451000| 35763 400000100000 L(DM) OCT 400000100000 4K451100 1 IBMAPV IBMAPK 12/01/64 PAGE 464 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0| | * DICTIONARY DEFINITION PASS 4K451400 | 35764 0600 00 0 36376 RINT STZ PAND RESET PASS INDICATOR 4K451600| 35765 0600 00 0 36371 RINTA STZ PSND RESET 'DEFINE' INDICATOR 4K451700| 0BINARY CARD ID. MAPK0193| 35766 0600 00 0 36372 STZ 2PSND RESET 'UNDEFINED' INDICATOR 4K451800 35767 0774 00 2 45001 RN AXT PSBF+1,2 LOCATE FIRST PSEUDO OP 4K451900| 35770 0634 00 2 35771 SXA RN2,2 AND STORE LOCATION IN 'RN2' 4K452000| 35771 4774 00 2 00000 RN2 AXC **,2 LOCATE NEXT PSEUDO OP 4K452100| 35772 0500 00 2 00000 CLA 0,2 STORE LOCATION OF NEXT 4K452200| 35773 0621 00 0 35771 STA RN2 PSEUDO OP OF 'RN2' 4K452300 35774 0100 00 0 36223 TZE RN13 TRANSFER IF LAST PSEUDO OP 4K452400| 35775 0441 00 2 00000 LDI 0,2 TEST IF THIS 4K452500| 35776 4056 00 700000 LNT 700000 PSEUDO OP 4K452600| 35777 0020 00 0 36001 TRA *+2 HAS BEEN DEFINED 4K452700| 36000 0020 00 0 35771 TRA RN2 IF SO PROCESS NEXT PSEUDO OP 4K452800 36001 0600 00 0 36404 STZ RELCON RESET CONSTANT LOC CTR INDIC. 4K452900| 36002 0441 00 2 77777 LDI -1,2 TEST IF CURRENT VALUE 4K453000| 36003 4500 00 0 36405 CAL L(LTG) OF * IS RELATIVE. IF 4K453100| 36004 0054 00 100000 RFT 100000 SO, STORE 1 IN TAG OF 4K453200| 36005 0602 00 0 36404 SLW RELCON RELCON 4K453300 36006 4500 00 2 00000 CAL 0,2 CONVERT 4K453400| 36007 4737 00 1 00000 PDC 0,1 ADJECTIVE CODE TO A 4K453500| 36010 4765 00 0 00022 LGR 18 UNIQUE BIT AS FOLLOWS 4K453600| 36011 0771 00 0 00017 ARS 15 COMPUTE (10*P+T)-30 4K453700| 36012 4763 00 0 00003 LGL 3 WHERE P = PREFIX DIGIT 4K453800 36013 0737 00 4 00000 PAC ,4 T = TAG DIGIT 4K453900| 0BINARY CARD ID. MAPK0194| 36014 0500 00 0 21705 CLA L(1) A LOW ORDER '1' IS SHIFTED 4K454000| 36015 0767 00 4 77750 ALS -24,4 LEFT BY THE VALUE OF THE 4K454100| 36016 0044 00 0 00000 PAI ABOVE EXPRESSION (BINARY PLACES) 4K454200 36017 4054 00 040000 LFT 40000 TEST FOR 'QUAL' OR 'ENDQ' 4K454300| 36020 0020 00 0 35771 TRA RN2 IF SO GO TO NEXT PSEUDO OP 4K454400| 36021 0500 00 2 77777 CLA -1,2 SAVE '*' PATH ADDRESS 4K454500| 36022 0621 00 0 36374 STA RN99 IN 'RN99' 4K454600| 36023 0771 00 0 00022 ARS 18 SHIFT VALUE OF '*' INTO ADDRESS 4K454700 36024 0601 00 0 36373 STO RLOC AND SAVE IN 'RLOC' 4K454800| 36025 4054 00 000700 LFT 700 TEST FOR 'BOOL' 4K454900| 36026 0020 00 0 36334 TRA RN32 IF SO GO TO 'RN32' 4K455000| 36027 0054 00 004000 RFT 4000 TEST FOR 'EVEN' 4K455100| 36030 0020 00 0 36354 TRA RN40 IF SO GO TO 'RN40' 4K455200 36031 0056 00 000002 RNT 2 TEST FOR 'BGN' 4K455300| 36032 0020 00 0 36056 TRA RN3 IF NOT GO TO 'RN3' 4K455400| 36033 0500 00 2 00001 CLA 1,2 GET '*' FROM 4K455500| 36034 0737 00 4 00000 PAC ,4 THIRD WORD OF 'USE' ENTRY FOR 4K455600| 36035 0500 00 4 00002 CLA 2,4 SPECIFIED LOCATION COUNTER 4K455700 36036 0625 00 0 36404 STT RELCON 4K455800| 36037 0601 00 0 36373 STO RLOC STORE IN 'RLOC' 4K455900| 36040 0074 00 4 41547 TSX REV,4 ATTEMPT TO EVALUATE THE 4K456000| 36041 0 00000 2 00002 PZE 2,2 VARIABLE FIELD OF A 'BEGIN' 4K456100| 0BINARY CARD ID. MAPK0195 1 IBMAPV IBMAPK 12/01/64 PAGE 465 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0 36042 0120 00 0 36233 TPL RN14 IF UNABLE GO TO NEXT PSEUDO OP 4K456200| 36043 0621 60 2 00001 STA* 1,2 STORE VALUE OF 'BEGIN' 4K456300| 36044 4500 00 0 36377 CAL H4MSK IN LOCATION COUNTER 4K456400 36045 0520 00 0 41763 ZET REVT+3 4K456500| 36046 4501 00 0 36405 ORA L(LTG) 4K456600| 36047 4602 60 2 00001 ORS* 1,2 ABSOLUTE VAR FIELD) 4K456700| 36050 0600 00 0 36404 STZ RELCON RESET CONSTANT LOC CTR INDIC 4K456800| 36051 4500 00 0 36405 CAL L(LTG) IF VARIABLE FIELD OF BEGIN 4K456900 36052 0520 00 0 41763 ZET REVT+3 WAS RELATIVE STORE 1 4K457000| 36053 0602 00 0 36404 SLW RELCON IN TAG OF RELCON 4K457100| 36054 0500 60 2 00001 CLA* 1,2 LEAVE VALUE IN ACCUMULATOR 4K457200| 36055 0020 00 0 36137 TRA RN7 PROPER LOCATION COUNTER 4K457300| 36056 0054 00 400000 RN3 RFT 400000 TEST FOR 'MAX' 4K457400 36057 0020 00 0 36241 TRA RN22 IF SO GO TO RN22 4K457500| 36060 4054 00 000001 LFT 1 TEST FOR 'MIN' 4K457600| 36061 0020 00 0 36241 TRA RN22 IF SO GO TO RN22 4K457700| 36062 0074 00 4 41547 TSX REV,4 ATTEMPT TO EVALUATE THE VARIABLE 4K457800| 36063 0 00000 2 00001 PZE 1,2 FIELD OF ANY OTHER PSEUDO OP 4K457900 36064 0120 00 0 36101 TPL RN3A IF UNSUCCESSFUL GO TO RN3A 4K458000| 36065 0054 00 000014 RFT 14 TEST FOR LOC OR ORG $5$4K458100| 36066 0020 00 0 36070 TRA *+2 $5$4K458110| 36067 0020 00 0 36104 TRA RN4 IF NOT GO TO RN4 4K458200| 0BINARY CARD ID. MAPK0196 36070 0600 00 0 36404 STZ RELCON RESET CONSTANT LOC CTR INDIC 4K458300| 36071 4500 00 0 36405 CAL L(LTG) IF VARIABLE FIELD OF ORG 4K458400| 36072 0520 00 0 41763 ZET REVT+3 WAS RELATIVE STORE 1 IN 4K458500| 36073 0602 00 0 36404 SLW RELCON TAG FIELD OF RELCON 4K458600| 36074 0500 00 0 36404 CLA RELCON 4K458700 36075 0625 00 2 00000 STT 0,2 4K458800| 36076 0502 00 0 41760 CLS REVT 4K458900| 36077 4501 00 0 36404 ORA RELCON 4K459000| 36100 0020 00 0 36104 TRA RN4 4K459100| 36101 0056 00 200000 RN3A RNT 200000 4K459200 36102 0020 00 0 36233 TRA RN14 IF NOT GO TO RN14 4K459300| 36103 0020 00 0 36145 TRA RN8 IF SO GO TO RN8 4K459400| 36104 0560 00 0 36373 RN4 LDQ RLOC TEST IF 4K459500| 36105 0162 00 0 36110 TQP *+3 '*' IS AVAILABLE 4K459600| 36106 0056 00 200000 RNT 200000 IF NOT DO NOT STORE DEFINITION 4K459700 36107 0621 00 2 00001 STA 1,2 IN THIRD WORD OF PSEUDO OP ENTRY 4K459800| 36110 0054 00 000014 RFT 14 TEST FOR ORG OR LOC $5$4K459900| 36111 0020 00 0 36132 TRA RN6 IF SO GO TO RN6 4K460000| 36112 0560 00 0 36373 LDQ RLOC GET CURRENT LOCATION COUNTER VALUE 4K460100| 36113 0056 00 200000 RNT 200000 TEST FOR 'EQU' 4K460200 36114 0020 00 0 36126 TRA RN5 NO - GO TO RN5 4K460300| 36115 4501 00 0 36400 ORA H6MSK INDICATE NAME WAS DEFINED BY 'EQU' 4K460400| 0BINARY CARD ID. MAPK0197| 36116 0601 00 1 00000 RN4A STO 0,1 STORE VALUE IN INTERNAL DICTIONARY 4K460500| 36117 4754 00 2 00000 PXD ,2 STORE PSEUDO OP DICTIONARY LOCATION 4K460600 36120 0622 00 1 00000 STD 0,1 OF 'EQU' IN INTERNAL DICTIONARY 4K460700| 36121 4500 00 0 41763 CAL REVT+3 STORE CONTROL GROUP 4K460800| 36122 0767 00 0 00017 ALS 15 FOR THIS 'EQU' IN 4K460900| 36123 0625 00 1 00000 STT 0,1 INTERNAL DICTIONARY 4K461000| 36124 0500 00 1 00000 CLA 0,1 GET INTERNAL DICT. WORD FOR 'EQU' 4K461100 36125 0020 00 0 36137 TRA RN7 AND GO TO RN7 4K461200| 1 IBMAPV IBMAPK 12/01/64 PAGE 466 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0 36126 0162 00 0 35771 RN5 TQP RN2 GO TO RN7 IF '*' IS UNAVAILABLE 4K461300| 36127 4600 00 1 00000 STQ 0,1 ELSE STORE '*' IN INTERNAL DICT. 4K461400 36130 0361 00 0 36373 ACL RLOC ADD VALUE OF THIS PSEUDO-OP TO '*' 4K461500| 36131 0054 00 001000 RFT 1000 TEST FOR 'BES' 4K461600| 36132 0601 00 1 00000 RN6 STO 0,1 YES - STORE INCREMENTED VALUE 4K461700| 36133 0131 00 0 00000 XCA $4$4K461800| 36134 0500 00 0 36404 CLA RELCON $4$4K461900 36135 0625 00 1 00000 STT 0,1 INDICATE RELATIVE OR ABSOLUTE $4$4K462000| 36136 0131 00 0 00000 XCA $4$4K462100| 36137 4625 00 0 36371 RN7 STL PSND INDICATE SOMETHING WAS DEFINED 4K462200| 36140 4501 00 0 21725 ORA MSKTG STORE VALUE OF THIS PSEUDO OP 4K462300| 36141 4765 00 0 00022 LGR 18 IN LEFT HALF OF SECOND WORD 4K462400 36142 4620 00 2 00000 SLQ 0,2 OF PSEUDO OP DICTIONARY ENTRY 4K462500| 36143 0056 00 200000 RNT 200000 TEST FOR 'EQU' 4K462600| 0BINARY CARD ID. MAPK0198| 36144 0020 00 0 36152 TRA RN9 NO - GO TO RN9 4K462700| 36145 0560 00 2 77777 RN8 LDQ -1,2 IS '*' AVAILABLE 4K462800 36146 0162 00 0 35771 TQP RN2 NO - GO TO NEXT PSEUDO OP 4K462900| 36147 0441 00 2 77777 LDI -1,2 HAVE WE ALREADY TAKEN THE 4K463000| 36150 0054 00 600000 RFT 600000 '*' PATH OF THIS PSEUDO-OP 4K463100| 36151 0020 00 0 35771 TRA RN2 YES - GO TO NEXT PSEUDO OP 4K463200| 36152 4620 00 0 36374 RN9 SLQ RN99 STORE '*' IN DECREMENT 4K463300 36153 4500 00 0 36374 CAL RN99 OF 'RN99' 4K463400| 36154 0441 00 2 77777 LDI -1,2 SET TAG FIELD OF FIRST 4K463500| 36155 0055 00 600000 SIR 600000 WORD OF PSEUDO-OP TO 6 4K463600| 36156 0604 00 2 77777 STI -1,2 TO INDICATE '*' PATH TAKEN 4K463700| 36157 4734 00 2 00000 RN10 PDX ,2 CURRENT VALUE OF '*' 4K463900| 36160 0734 00 1 00000 PAX ,1 NEXT ADDRESS IN CHAIN 4K464000| 36161 7 00000 1 35771 TXL RN2,1,0 TRANSFER AT END OF CHAIN 4K464100| 36162 0634 00 1 36166 SXA RN11,1 NEXT CHAIN ADDRESS TO 'RN11' 4K464200| 36163 4754 00 2 00000 PXD ,2 '*' INTO ACCUM. DECREMENT 4K464300 36164 0601 00 0 35755 STO CLOC SAVE CURRENT VALUE OF '*' 4K464400| 36165 0441 60 0 36166 LDI* RN11 GET NEXT ENTRY IN CHAIN 4K464500| 36166 4500 00 0 00000 RN11 CAL ** GET NEXT ENTRY IN CHAIN 4K464600| 36167 4320 00 0 36403 ANA ALFF ERASE ITS ADJECTIVE CODE 4K464700| 36170 0361 00 0 35755 ACL CLOC ADD '*' TO SEPARATION COUNT 4K464800 36171 0601 00 0 52430 STO TEMP SAVE '*' AND NEXT '*' PATH 4K464900| 0BINARY CARD ID. MAPK0199| 36172 4760 00 0 00003 SSM ADDRESS IN 'TEMP' 4K465000| 36173 4054 00 100000 LFT 100000 TEST FOR PSEUDO OP 4K465100| 36174 0020 00 0 36205 TRA RN12 IF SO GO TO 'RN12' 4K465200 36175 4765 00 0 00022 LGR 18 OTHERWISE STORE THE 4K465300| 36176 0621 60 0 36166 STA* RN11 DEFINITION IN THE ADDRESS 4K465400| 36177 4500 00 0 36377 CAL H4MSK OF THIS INTERNAL DICTIONARY 4K465500| 36200 0361 00 0 36404 ACL RELCON SET RELATIVE OR CONSTANT 4K465600| 36201 4602 60 0 36166 ORS* RN11 LOCATION. 4K465700 36202 4625 00 0 36371 STL PSND SHOW SOMETHING DEFINED 4K465800| 36203 0500 00 0 52430 CLA TEMP CONTINUE THRU 4K465900| 36204 0020 00 0 36157 TRA RN10 '*' PATH CHAIN 4K466000| 36205 4760 00 0 00003 RN12 SSM FOR PSEUDO OPS STORE 4K466100| 36206 0131 00 0 00000 XCA DEFINITION ('*) IN DECREMENT 4K466200 36207 4620 60 0 36166 SLQ* RN11 OF FIRST WORD 4K466300| 36210 4500 00 0 36404 CAL RELCON SET BIT TO INDICATE 4K466400| 1 IBMAPV IBMAPK 12/01/64 PAGE 467 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK | 0 36211 4602 60 0 36166 ORS* RN11 RELATIVE OR CONSTANT 4K466500 36212 0535 00 1 36166 LAC RN11,1 TEST PREFIX OF SECOND WORD 4K466600| 36213 0441 00 1 00001 LDI 1,1 IF NOT '7' THIS PSEUDO OP 4K466700| 36214 4056 00 700000 LNT 700000 HAS NOT BEEN DEFINED. 4K466800| 36215 0020 00 0 35771 TRA RN2 GO TO NEXT PSEUDO OPERATION 4K466900| 36216 0441 60 0 36166 LDI* RN11 TEST TAG FIELD OF FIRST 4K467000 36217 0500 00 0 52430 CLA TEMP WORD OF PSEUDO OP IF 4K467100| 0BINARY CARD ID. MAPK0200| 36220 0056 00 600000 RNT 600000 INDICATOR 4K467200| 36221 0020 00 0 36157 TRA RN10 IF NOT TAKE '*' PATH 4K467300| 36222 0020 00 0 35771 TRA RN2 IF SO GO TO NEXT PSEUDO OP 4K467400 | 36223 0520 00 0 36371 RN13 ZET PSND DID WE DEFINE ANYTHING 4K467600| 36224 0020 00 0 35765 TRA RINTA YES - GO THRU CHAIN AGAIN 4K467700| 36225 4520 00 0 36372 NZT 2PSND IS SOMETHING STILL UNDEFINED 4K467800| 36226 0020 00 0 36231 TRA RNX NO - GO TO EXIT 4K467900 36227 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 'PRINCIPAL PSEUDO 4K468000| 36230 0 00000 4 00034 PZE RMS001,NONONO OPERTION CANNOT BE DEFINED 4K468100| 36231 0774 00 4 00000 RNX AXT **,4 RESTORE INDEX 4 4K468200| 36232 0020 00 4 00001 TRA 1,4 AND RETURN TO SUPERVISOR 4K468300| 36233 0056 00 200000 RN14 RNT 200000 IF THE UNDEFINED PSEUDO OP 4K468500| 36234 4625 00 0 36372 STL 2PSND WAS NOT AN 'EQU' SET 4K468600| 36235 0522 00 0 35771 XEC RN2 UNDEFINED INDICATOR 4K468700| 36236 7 00000 2 36223 TXL RN13,2,0 RETURN FOR NEXT, UNLESS 4K468800| 36237 0020 00 0 35772 TRA RN2+1 THIS WAS LAST ONE 4K468900 | * PROCESS 'MAX' AND 'MIN' PSEUDO OPS 4K469100| 36240 0 00000 0 21470 PDLIST PZE DPQL 4K469200| 36241 0634 00 2 36310 RN22 SXA RNSA,2 SAVE PSEUDO OP 4K469300| 36242 0634 00 2 36303 SXA RN29,2 DICTIONARY LOCATION 4K469400 36243 0056 00 400000 RNT 400000 TEST FOR 'MAX' 4K469500| 36244 0020 00 0 36257 TRA RN26 NO - GO TO 'RN26' 4K469600| 36245 0600 00 0 36375 STZ RMXMN SET 'RMXMN' TO LOWEST VALUE 4K469700| 0BINARY CARD ID. MAPK0201| 36246 0074 00 4 36310 RN23 TSX RNSA,4 GET NEXT EXPRESSION 4K469800 36247 0020 00 0 36273 TRA RN28 IF NO MORE GO TO EXIT 4K469900| 36250 0074 00 4 41547 TSX REV,4 ATTEMPT TO EVALUATE 4K470000| 36251 0 00000 2 00000 PZE 0,2 THIS EXPRESSION 4K470100| 36252 0120 00 0 36303 TPL RN29 IF UNABLE GO TO EXIT 4K470200| 36253 4340 00 0 36375 LAS RMXMN COMPARE VALUE VS. PREVIOUS HIGH 4K470300 36254 0621 00 0 36375 STA RMXMN IF GREATER SAVE THIS VALUE 4K470400| 36255 0020 00 0 36246 TRA RN23 ELSE EVALUATE 4K470500| 36256 0020 00 0 36246 TRA RN23 NEXT EXPRESSION 4K470600| 36257 0500 00 0 21723 RN26 CLA MSKAD 'MIN' SET 'RMXMN' 4K470700| 36260 0601 00 0 36375 STO RMXMN TO HIGHEST VALUE 4K470800 36261 0074 00 4 36310 RN27 TSX RNSA,4 GET NEXT EXPRESSION 4K470900| 36262 0020 00 0 36273 TRA RN28 IF NO MORE GO TO EXIT 4K471000| 36263 0074 00 4 41547 TSX REV,4 ATTEMPT TO EVALUATE 4K471100| 36264 0 00000 2 00000 PZE 0,2 THIS EXPRESSION 4K471200| 36265 0120 00 0 36303 TPL RN29 IF UNABLE GO TO EXIT 4K471300 36266 4340 00 0 36375 LAS RMXMN COMPARE VALUE VS. PREVIOUS LOW 4K471400| 36267 0020 00 0 36261 TRA RN27 IF LESS SAVE THIS VALUE 4K471500| 36270 0020 00 0 36261 TRA RN27 ELSE ATTEMPT TO EVALUATE 4K471600| 1 IBMAPV IBMAPK 12/01/64 PAGE 468 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK 0 36271 0621 00 0 36375 STA RMXMN NEXT 4K471700| 36272 0020 00 0 36261 TRA RN27 EXPRESSION 4K471800| 36273 0522 00 0 36303 RN28 XEC RN29 4K471900| 0BINARY CARD ID. MAPK0202| 36274 4500 00 0 36375 CAL RMXMN 4K472000 36275 4501 00 0 36400 ORA H6MSK 4K472100| 36276 0602 00 1 00000 SLW 0,1 4K472200| 36277 4500 00 0 36375 CAL RMXMN 4K472300| 36300 4501 00 0 21721 ORA 10WD 4K472400| 36301 0602 00 2 00001 SLW 1,2 4K472500 36302 0600 00 0 41763 STZ REVT+3 4K472600| 36303 0774 00 2 00000 RN29 AXT **,2 4K472700| 36304 0055 00 200000 SIR 200000 4K472800| 36305 0500 00 1 00000 CLA 0,1 4K472900| 36306 4120 00 0 36116 TMI RN4A 4K473000 36307 0020 00 0 36145 TRA RN8 4K473100| 36310 0774 00 2 00000 RNSA AXT **,2 LOCATE FIRST WORD OF EXPRESSION 4K473200| 36311 7 00000 2 36333 TXL RNSX2,2,0 EXIT IF LAST EXPRESSION 4K473300| 36312 0634 00 4 36330 SXA RNSEX,4 SAVE RETURN ADDRESS 4K473400| 36313 0774 00 4 00000 AXT 0,4 INITIALIZE TARGET INDEX 4K473500 36314 0441 00 2 00001 RNSB LDI 1,2 TRANSMIT 1 WORD 4K473600| 36315 0604 00 4 52030 STI LINK,4 OF EXPRESSION 4K473700| 36316 1 77777 2 36317 TXI *+1,2,-1 BUMP SOURCE INDEX 4K473800| 36317 0634 00 2 36310 SXA RNSA,2 SAVE SOURCE INDEX 4K473900| 36320 4054 00 007500 LFT 007500 TEST FOR END OF EXPRESSION 4K474000 36321 1 77777 4 36314 TXI RNSB,4,-1 IF NOT CONTINUE TRANSMITTING 4K474100| 0BINARY CARD ID. MAPK0203| 36322 4520 00 4 52030 NZT LINK,4 TEST FOR ZERO WORD 4K474200| 36323 1 77777 4 36314 TXI RNSB,4,-1 IF SO CONTINUE TRANSMITTING 4K474300| 36324 4056 00 000200 LNT 000200 TEST FOR LAST EXPRESSION 4K474400 36325 0634 00 0 36310 SXA RNSA,0 IF SO SET 'RNSA' TO 0 4K474500| 36326 4057 00 007700 RIL 007700 SET FLAG FIELDS OF LAST WORD OF 4K474600| 36327 0604 00 4 52030 STI LINK,4 EACH EXPRESSION TO '00' 4K474700| 36330 0774 00 4 00000 RNSEX AXT **,4 RESTORE INDEX 4 4K474800| 36331 4774 00 2 52030 AXC LINK,2 LOCATE FIRST WORD OF EXPRESSION 4K474900 36332 0020 00 4 00002 TRA 2,4 AND RETURN 4K475000| 36333 0020 00 4 00001 RNSX2 TRA 1,4 RETURN AFTER LAST EXPRESSION 4K475100| | * PROCESS 'BOOL', 'RBOOL' AND 'LBOOL' 4K475300| 36334 0074 00 4 43456 RN32 TSX RBEV,4 ATTEMPT TO EVALUATE A 4K475500| 36335 0 00000 2 00001 PZE 1,2 BOOLEAN VARIABLE FIELD 4K475600| 36336 0120 00 0 36145 TPL RN8 IF UNABLE GO TO RN8 4K475700| 36337 4501 00 0 36401 ORA H5MSK ELSE SET BIT 2 (BOOL) 4K475800| 36340 4054 00 000200 LFT 200 TEST FOR 'LBOOL' 4K475900 36341 4501 00 0 36402 ORA 2DECR YES SET BIT 16 4K476000| 36342 4054 00 000400 LFT 400 TEST FOR 'RBOOL' 4K476100| 36343 4501 00 0 21717 ORA 1DECR YES SET BIT 17 4K476200| 36344 0601 00 1 00000 STO 0,1 STORE VALUE IN INTERNAL DICTIONARY 4K476300| 36345 4765 00 0 00022 LGR 18 STORE VALUE (18 BITS) IN 4K476400 36346 4620 00 2 00001 SLQ 1,2 LEFT HALF OF WORD 3 4K476500| 36347 4501 00 0 21725 ORA MSKTG STORE 7 IN PREFIX OF WORD 2 4K476600| 0BINARY CARD ID. MAPK0204| 1 IBMAPV IBMAPK 12/01/64 PAGE 469 | DICTIONARY DEFINITION PHASE 2 - RECORD IBMAPK 0 36350 4765 00 0 00022 LGR 18 TO INDICATE THAT THIS 4K476700| 36351 4620 00 2 00000 SLQ 0,2 PSEUDO OP HAS BEEN DEFINED 4K476800| 36352 4625 00 0 36371 STL PSND INDICATE SOMETHING WAS DEFINED 4K476900| 36353 0020 00 0 36145 TRA RN8 AND GO TO 'RN8' 4K477000| * PROCESS 'EVEN' 4K477200| | 36354 0500 00 0 36373 RN40 CLA RLOC IS '*' AVAILABLE 4K477400| 36355 0120 00 0 35771 TPL RN2 IF NOT GO TO NEXT PSEUDO OP 4K477500| 36356 0560 00 0 21726 LDQ MSKHO GET HIGH ORDER 77 4K477600 36357 4520 00 0 21426 NZT SWABS IF THIS IS AN ABSOLUTE AS $4$4K477610| 36360 4520 00 0 36404 NZT RELCON OR AN ABSOLUTE ORIGIN O $4$4K477620| 36361 0760 00 0 00001 LBT IS '*' AN ODD NUMBER 4K477700| 36362 0020 00 0 36367 TRA RN41 NO GO TO 'RN41' 4K477800| 36363 0402 00 0 21705 SUB L(1) ELSE BUMP '*' 4K477900 36364 0767 00 0 00022 ALS 18 BY 1 TO MAKE IT EVEN 4K478000| 36365 0622 00 2 77777 STD -1,2 STORE IN DECREMENT OF FIRST WORD 4K478100| 36366 4773 00 0 00003 RQL 3 STORE '700000' IN SECOND WORD IF ODD 4K478200| 36367 4620 00 2 00000 RN41 SLQ 0,2 STORE '770000' IF ALREADY EVEN 4K478300| 36370 0020 00 0 36145 TRA RN8 AND GO TO 'RN8' 4K478400 | * MISCELLANEOUS INDICATORS AND CONSTANTS 4K478600| | 36371 0 00000 0 00000 PSND PZE 0 'SOMETHING DEFINED' INDICATOR 4K478800| 36372 0 00000 0 00000 2PSND PZE 0 'SOMETHING UNDEFINED' INDICATOR 4K478900 36373 0 00000 0 00000 RLOC PZE 0 CURRENT LOCATION COUNTER VALUE 4K479000| 36374 0 00000 0 00000 RN99 PZE 0 WORKING STORAGE (DEFINITION LOOP) 4K479100| 36375 0 00000 0 00000 RMXMN PZE 0 WORKING STORAGE ('MAX', 'MIN') 4K479200| 0BINARY CARD ID. MAPK0205| 36376 0 00000 0 00000 PAND PZE 0 PASS INDICATOR 4K479300 36377 4 00000 0 00000 H4MSK FOR 0 DEFINITION INDICATOR BIT 4K479400| 36400 6 00000 0 00000 H6MSK SIX 0 DEFINITION BY 'EQU' MASK 4K479500| 36401 5 00000 0 00000 H5MSK FVE 0 DEFINITION BY 'BOOL' MASK 4K479600| 36402 0 00002 0 00000 2DECR PZE ,,2 DEFINITION BY 'LBOOL' 4K479700| 36403 707777777777 ALFF OCT 707777777777 ERASE ADJECTIVE CODE MASK 4K479800 36404 0 00000 0 00000 RELCON PZE 0 RELATIVE OR CONSTANT INDICATOR 4K479900| 36405 000000100000 L(LTG) OCT 000000100000 4K480000| 1 IBMAPV IBMAPK 12/01/64 PAGE 470 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 | 36406 0634 00 4 36431 RTXT2 SXA RTXTC,4 SAVE RETURN $4$4K480300| 36407 0520 00 0 37453 ZET NCOM TEST FOR $4$4K480400| 36410 0020 00 0 36423 TRA RTXTA UNPRINTED $4$4K480500| 36411 0534 00 4 41507 LXA RA74A,4 COMMENTARY $4$4K480600 36412 7 00000 4 36423 TXL RTXTA,4,0 IF NONE LOCATE NEXT BUFFER 4K480700| 36413 1 00016 4 36414 TXI *+1,4,14 TRANSMIT 4K480800| 36414 0634 00 4 36416 SXA *+2,4 14 WORDS OF COMMENTARY 4K480900| 36415 0774 00 4 00016 AXT 14,4 FROM INTERNAL FILE 4K481000| 36416 0560 00 4 00000 LDQ **,4 BUFFER TO THE 4K481100 36417 4600 00 4 36450 STQ COMB+14,4 FIXED BUFFER 'COMB' 4K481200| 36420 2 00001 4 36416 TIX *-2,4,1 CHANGE COMMENTARY 4K481300| 36421 0774 00 4 36432 AXT COMB,4 PRINT CALLING SEQUENCE 4K481400| 36422 0634 00 4 41507 SXA RA74A,4 TO POINT TO 'COMB' 4K481500| 36423 0074 00 4 21361 RTXTA TSX READ,4 A CLOSED SUBROUTINE 4K481600 0BINARY CARD ID. MAPK0206| 36424 0 36427 0 21514 RTXTB PZE CTONEI,,*+3 TO LOCATE AN INPUT 4K481700| 36425 0 36450 0 36453 PZE EOF,,ERR FILE BUFFER OF 'T2' TEXT 4K481800| 36426 3 00000 2 00000 IORTN **,,** UPON EXIT INDEX 4 CONTAINS 4K481900| 36427 0621 00 0 36471 STA OPB THE WORD COUNT AND 4K482000 36430 4534 00 4 36426 LXD *-2,4 'OPB' THE LAST BUFFER 4K482100| 36431 0020 00 0 00000 RTXTC TRA ** LOCATION +1 $4$4K482200| 36432 COMB BSS 14 COMMENTARY BUFFER 4K482300| | 0BINARY CARD ID. MAPK0207 36450 0074 00 4 25576 ERR TSX ERPR,4 'PERM READ ERROR ON 4K482500| 36451 0 00000 4 00050 PZE MSS028,NONONO SECOND PASS TEXT INPUT' 4K482600| 36452 0020 00 0 36423 TRA RTXTA ACCEPT BUFFER $4$4K482700| | 36453 0500 00 0 21471 EOF CLA SWSUNI TEST FOR PASS ONE SWITCH 4K482900 36454 0100 00 0 40614 TZE RAC75D IF NOT GO TO 'END 4K483000| 36455 0074 00 4 21355 TSX CLOSE,4 OTHERWISE CLOSE 4K483100| 36456 2 00000 0 21514 PTW CTONEI INPUT FILE 4K483200| 36457 0774 00 4 21530 AXT CTONAL,4 SWITCH TO READ 4K483300| 36460 0634 00 4 36424 SXA RTXTB,4 NEW FILE 4K483400 36461 0634 00 4 26720 SXA PASTA,4 AND TO CLOSE IT 4K483500| 36462 0441 00 0 21531 LDI CTONAL+1 SET ALTERNATE TEXT FILE (6)4K483510| 36463 4057 00 001000 RIL 001000 TO INPUT (6)4K483520| 36464 0604 00 0 21531 STI CTONAL+1 (6)4K483530| 36465 0074 00 4 21357 TSX OPEN,4 OPEN 4K483600 36466 4 00000 0 21530 MZE CTONAL NEW FILE 4K483700| 36467 0600 00 0 21471 STZ SWSUNI SET FOR END IN ANOTHER EOF. 4K483800| 36470 0020 00 0 36423 TRA RTXTA LOCATE NEXT BUFFER 4K483900| | 36471 0 00000 4 00000 OPB PZE 0,4,0 INPUT BUFFER POINTER 4K484100 | 36472 0634 00 4 41076 3R SXA REND,4 SAVE RETURN ADDRESS $4$4K484300| 36473 4625 00 0 36376 STL PAND SET SECOND PASS INDICATOR $4$4K484400| 36474 4774 00 2 52230 AXC 2B,2 SET WORKING TEXT STORE $4$4K484500| 36475 0520 00 0 21426 ZET SWABS INITIALIZE $4$4K484600 0BINARY CARD ID. MAPK0208| 36476 0634 00 0 36500 SXA *+2,0 DECK PUNCHING $4$4K484700| 1 IBMAPV IBMAPK 12/01/64 PAGE 471 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 36477 0074 00 4 30302 TSX PUINIT,4 BY ASSEMBLY $4$4K484800 36500 0 00000 0 00002 PZE 2 TYPE $4$4K484900| 36501 1 75201 4 36406 TXI RTXT2,4,*-2+3R3 GET BUFFER AND GO TO PROCESS $4$4K485000| | MAIN PROCESSING LOOP $4$4K485200| 36502 0634 00 4 36537 3R3 SXA 3R12,4 SAVE BUFFER POSITION $4$4K485300 36503 0441 60 0 36471 LDI* OPB CURRENT WORD TO $4$4K485400| 36504 0604 00 2 00000 3R3.5 STI 0,2 WORKING STORAGE $4$4K485500| 36505 4054 00 400000 LFT 400000 SPECIAL IF $4$4K485600| 36506 0020 00 0 36542 TRA 3R14 OPERATION $4$4K485700| 36507 4054 00 770000 LFT 770000 CHECK IF 00 TYPE $5$4K485800 36510 0074 00 4 36716 TSX 3R16M,4 NO, PROCESS OTHER TYPES $5$4K485900| 36511 0074 00 4 36733 TSX 3RMA,4 NAME TABLE TO ID LOCATION $5$4K486000| 36512 4054 00 003700 3R4 LFT 003700 CONTINUE TO GET $4$4K486100| 36513 1 77777 2 36537 TXI 3R12,2,-1 FIELD IF NOT END $4$4K486200| 36514 4500 00 0 21722 CAL 11WD TERMINATE $4$4K486300 36515 0602 00 2 00001 SLW 1,2 STRING $4$4K486400| 36516 0520 00 0 44373 ZET DEQU IF ANYTHING DEFINED $4$4K486500| 36517 0074 00 1 36770 TSX 3R16Q,1 BY EQU, REPLACE $4$4K486600| 36520 4774 00 2 52230 AXC 2B,2 LOCATE OPERATION $4$4K486700| 36521 0074 00 4 41547 TSX REV,4 EVALUATE $4$4K486800 36522 0 00000 2 00001 PZE 1,2 VARIABLE FIELD $4$4K486900| 36523 0520 00 0 36560 ZET PSOP $4$4K487000| 0BINARY CARD ID. MAPK0209| 36524 0020 00 0 36527 TRA *+3 IF NOT PSEUD-OPN, $4$4K487100| 36525 0074 00 4 44374 TSX MLERR,4 TEST FOR ERROR, AND $4$4K487200 36526 0074 00 1 36604 TSX 3R16F,1 BUMP LOC CTR $4$4K487300| 36527 0535 00 1 37016 LAC SNND,1 $4$4K487400| 36530 7 00000 1 36532 TXL 3R6,1,0 TRANSFER TO $4$4K487500| 36531 0020 00 1 00001 TRA 1,1 PROCESS INSTRUCTION $4$4K487600| CLEANUP AND CONTINUE $4$4K487800| 36532 0074 00 1 41453 3R6 TSX PRCG,1 PRINT CONTROL GROUP $4$4K487900| 36533 0520 00 0 43444 3R11 ZET CMDEC PROCESS $4$4K488000| 36534 0074 00 4 43327 TSX RCMD,4 COMPLEX DECREMENT $4$4K488100| 36535 0520 00 0 43443 ZET CMADD PROCESS $4$4K488200 36536 0074 00 4 43223 TSX RCMA,4 COMPLEX ADDRESS $4$4K488300| 36537 0774 00 4 00000 3R12 AXT **,4 RESTORE BUFFER POSITION $4$4K488400| 36540 2 00001 4 36502 TIX 3R3,4,1 AND GO TO CONTINUE $4$4K488500| 36541 1 36501 4 36406 TXI RTXT2,4,3R3-1 MAIN LOOP $4$4K488600| TEXT WORD WAS OPERATION $4$4K488800| 36542 0754 00 0 00000 3R14 PXA 0,0 CLEAR ACCUM $4$4K488900| 36543 0560 00 2 00000 LDQ 0,2 GET TRANSFER $4$4K489000| 36544 4114 01 1 41061 CAQ RCTAB-32,1,1 ADDRESS $4$4K489100| 36545 7 00000 1 37427 TXL RAC56,1,0 SPECIAL OPERATIONS EXIT $4$4K489200 36546 0630 00 0 36560 STP PSOP SET TYPE SWITCH $4$4K489300| 36547 0600 00 0 37012 STZ ROP SET NOMINAL EQU $4$4K489400| 36550 0630 00 0 37012 STP ROP REPLACEMENT TYPE $4$4K489500| 36551 0600 00 0 43445 3R31 STZ PCTRL CLEAR CONTROL GROUP, IF $4$4K489600| * DEBUGGING MODIFIED TO TRA SBMOD $4$4K489700 0BINARY CARD ID. MAPK0210| 36552 0754 00 0 00000 PXA 0,0 SET BITS $4$4K489800| 36553 4054 00 004000 LFT 004000 FOR INDIRECT $4$4K489900| 1 IBMAPV IBMAPK 12/01/64 PAGE 472 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 36554 4500 00 0 37015 CAL SIN OPERATION $4$4K490000| 36555 0602 00 0 37014 SLW RIND $4$4K490100| 36556 0600 00 0 37016 STZ SNND RESET PROCESS ADDRESS $4$4K490200| 36557 0020 00 1 00000 TRA 0,1 GO $4$4K490300| 36560 0 00000 0 00000 PSOP PZE 0 OPN TYPE INDICATOR $4$4K490500| 36537 3R7 EQU 3R12 EQUALS FOR COMPATABILITY $4$4K490600| 36532 3R17 EQU 3R6 WITH PREVIOUS ASSEMBLIES $4$4K490700| | 36561 0634 00 4 36567 3R15 SXA 3R15A,4 SAVE RETURN ADDRESS 4K490900 36562 0534 00 4 36537 LXA 3R7,4 GET INPUT BUFFER POSITION 4K491000| 36563 2 00001 4 36565 TIX *+2,4,1 LOCATE NEXT WORD 4K491100| 36564 1 36564 4 36406 TXI RTXT2,4,* NEW BUFFER NEEDED $4$4K491200| 36565 0634 00 4 36537 SXA 3R7,4 SAVE BUFFER POSITION 4K491300| 36566 0441 60 0 36471 LDI* OPB LOAD INDICATORS WITH NEXT WORD 4K491400 36567 0774 00 4 00000 3R15A AXT **,4 RESTORE INDEX 4 4K491500| 36570 0020 00 4 00001 TRA 1,4 AND RETURN 4K491600| | 36571 0560 00 0 21705 3R16 LDQ L(1) STORE CONTROL GROUP 4K491800| 36572 4600 00 0 43445 3R162 STQ PCTRL IN 'PCTRL' 4K491900 36573 0634 00 1 36602 SXA 3R16B,1 SAVE RETURN ADDRESS 4K492000| 36574 0074 00 1 41100 TSX LRBCD,1 CONVERT LOCATION FIELD TO OCTAL 4K492100| 36575 0602 00 0 41527 SLW XBUF AND STORE IN 'XBUF' 4K492200| 36576 4500 00 0 30676 CAL RDATA CONVERT DATA WORD TO OCTAL 4K492300| 36577 0074 00 1 41173 TSX RPAC2,1 PRINT LOCATION FIELD 4K492400 0BINARY CARD ID. MAPK0211| 36600 0074 00 1 41410 TSX P12,1 PRINT DATA WORD 4K492500| 36601 0074 00 1 41453 TSX PRCG,1 AND COMMENTARY 4K492600| 36602 0774 00 1 00000 3R16B AXT **,1 RESTORE INDEX 1 4K492700| 36603 0020 00 1 00001 TRA 1,1 AND RETURN 4K492800 | 36604 0634 00 1 36613 3R16F SXA 3R16G,1 SAVE RETURN ADDRESS 4K494900| 36605 4500 60 0 37013 CAL* RCTR CONVERT CURRENT LOCATION 4K495000| 36606 0074 00 1 41100 TSX LRBCD,1 COUNTER VALUE TO OCTAL 4K495100| 36607 0602 00 0 41527 SLW XBUF AND STORE IN XBUF 4K495200 36610 4500 60 0 37013 CAL* RCTR BUMP 4K495300| 36611 0361 00 0 21705 ACL L(1) LOCATION COUNTER 4K495400| 36612 0602 60 0 37013 SLW* RCTR BY 1 4K495500| 36613 0774 00 1 00000 3R16G AXT **,1 RESTORE INDEX 1 4K495600| 36614 0020 00 1 00001 TRA 1,1 AND RETURN 4K495700 | 36615 0634 00 1 36627 3R16L SXA 3RLA,1 SAVE RETURN 4K495900| 36616 0074 00 1 36662 TSX 3R16P,1 CONVERT WARNING INDICATOR TO OCTAL 4K496000| 36617 0520 00 0 21472 ZET 3PER 4K496100| 36620 0020 00 0 36631 TRA 3RLB 4K496200 36621 0074 00 4 25577 TSX PRINT,4 PRINT 4K496300| 36622 0020 00 0 36625 TRA *+3 $4$4K496400| 36623 0 00000 0 00001 PZE 1 WARNING INDICATOR 4K496500| 36624 0 00014 1 37443 PZE RBLINK,1,12 SKIP TO DATA WORD 4K496600| 36625 0074 00 1 41363 TSX P426,1 PRINT DATA WORD 4K496700 0BINARY CARD ID. MAPK0212| 36626 0074 00 1 41453 TSX PRCG,1 AND COMMENTARY 4K496800| 36627 0774 00 1 00000 3RLA AXT **,1 RESTORE INDEX 1 4K496900| 36630 0020 00 1 00001 TRA 1,1 AND RETURN 4K497000| 1 IBMAPV IBMAPK 12/01/64 PAGE 473 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 * 4K497100| 36631 4500 00 0 41531 3RLB CAL XBUF+2 4K497200| 36632 0602 00 0 41527 SLW XBUF 4K497300| 36633 0074 00 1 36654 TSX 3RK4,1 4K497400 36634 0020 00 0 36626 TRA 3RLA-1 4K497500| | 36635 0634 00 1 36646 3R16K SXA 3RK2,1 SAVE RETURN 4K497700| 36636 0520 00 0 21472 ZET 3PER TEST FOR 3PER MODE 4K497800| 36637 0020 00 0 36650 TRA 3RK3 4K497900 36640 0074 00 4 25577 TSX PRINT,4 PRINT 4K498000| 36641 0020 00 0 36644 TRA *+3 $4$4K498100| 36642 0 00000 0 00001 PZE 1 WARNING INDICATOR 4K498200| 36643 0 00037 1 37443 PZE RBLINK,1,31 SKIP TO CONTROL GROUP 4K498300| 36644 4520 00 0 37453 3RKA NZT NCOM PRINT $4$4K498400 36645 0074 00 1 41453 TSX PRCG,1 COMMENTARY 4K498500| 36646 0774 00 1 00000 3RK2 AXT **,1 RESTORE INDEX 1 4K498600| 36647 0020 00 1 00001 TRA 1,1 4K498700| 36650 4500 00 0 27741 3RK3 CAL BLANX 4K498800| 36651 0602 00 0 41527 SLW XBUF 4K498900 36652 0074 00 1 36654 TSX 3RK4,1 4K499000| 36653 0020 00 0 36644 TRA 3RKA $4$4K499100| * 4K499200| * 4K499300| 0BINARY CARD ID. MAPK0213 36654 0634 00 1 36660 3RK4 SXA 3RK5,1 4K499400| 36655 4774 00 1 36657 AXC 3RK5-1,1 SET RETURN 4K499500| 36656 0634 00 1 41300 SXA RPAC4,1 X 4K499600| 36657 0020 00 0 41204 TRA RPAC2B 4K499700| 36660 0774 00 1 00000 3RK5 AXT **,1 4K499800 36661 0020 00 1 00001 TRA 1,1 4K499900| | 36662 0634 00 1 36713 3R16P SXA 3RPC,1 SAVE RETURN 4K500100| 36663 0560 00 0 27741 LDQ BLANX TEST BITS 6-17 4K500200| 36664 0520 00 0 36715 ZET 57TYP TEST IF WARNING ALREADY ISSUED 4K500300 36665 0020 00 0 36710 TRA 3RPB FOR THIS INSTRUCTION 4K500400| 36666 0441 00 0 21443 LDI BLINK SKIP TO SETUP $4$4K500500| 36667 0500 00 0 21427 CLA SWREF IF NO (6)4K500510| 36670 0056 00 400000 RNT 400000 BCD IMAGE OR NO (6)4K500520| 36671 4120 00 0 36675 TMI 3RPA LINE NUMBER PRINTING AND (6)4K500530 36672 4054 00 000011 LFT 11 IF NO WARNING (6)4K500600| 36673 0020 00 0 36675 TRA 3RPA (6)4K500610| 36674 0020 00 0 36710 TRA 3RPB $4$4K500700| 36675 4054 00 000001 3RPA LFT 1 IF WARNING ON, (6)4K500800| 36676 0634 00 0 21456 ZSA KLPRNT SET TEMP PRINT (6)4K500810 36677 4046 00 0 00000 PIA AND CONVERT ADDRESS $4$4K500900| 36700 0074 00 4 27507 TSX SC.CON,4 TO DECIMAL 4K501000| 36701 0522 00 1 27530 XEC CRQL-1,1 (6)4K501010| 0BINARY CARD ID. MAPK0214| 36702 4500 00 0 37020 CAL LCMA CONVERT TRAILING BLANK (6)4K501020 36703 4054 00 000001 LFT 1 TO COMMA IF (6)4K501030| 36704 4500 00 0 37021 CAL LAST NO WARNING OR TO (6)4K501040| 36705 4765 00 0 00006 LGR 6 ASTERISK IF (6)4K501050| 36706 4773 00 0 00006 RQL 6 WARNING (6)4K501060| 36707 4625 00 0 36715 STL 57TYP SET WARNING INDICATOR 4K501100 1 IBMAPV IBMAPK 12/01/64 PAGE 474 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 36710 4600 00 0 37443 3RPB STQ RBLINK STORE IN 'RBLINK' 4K501200| 36711 0520 00 0 43445 ZET PCTRL TEST IF INSTRUCTION IS TO BE PUNCHED 4K501300| 36712 0074 00 4 30331 TSX PUGAT,4 YES - GO TO PUNCH ROUTINE 4K501400 36713 0774 00 1 00000 3RPC AXT **,1 RESTORE INDEX 1 4K501500| 36714 0020 00 1 00001 TRA 1,1 AND RETURN 4K501600| 36715 0 00000 0 00000 57TYP PZE 0 WARNING INDICATOR 4K501700| | * CONVERT NAME TABLE REFERENCES IN INPUT TEXT TO INTERNAL DICTIONARY 4K501900 * REFERENCES. 4K502000| | 36716 4056 00 040000 3R16M LNT 40000 $5$4K502200| 36717 0020 00 4 00002 TRA 2,4 NOT 04,14,05,15,07,OR 17 $5$4K502300| 36720 0520 00 0 21426 ZET SWABS $5$4K502400 36721 0020 00 4 00002 TRA 2,4 ABSMOD $5$4K502500| 36722 4054 00 730000 LFT 730000 $5$4K502600| 36723 0020 00 0 36727 TRA 3R16MM $5$4K502700| 36724 0440 00 0 37017 IIS STZT CHANGE TO CONTROL $5$4K502710| 36725 0604 00 2 00000 STI 0,2 SECTION ONE $5$4K502720 36726 0020 00 4 00002 TRA 2,4 REFERENCE $5$4K502730| 36727 4056 00 070000 3R16MM LNT 70000 TEST IF 07 TYPE $5$4K502740| 0BINARY CARD ID. MAPK0215| 36730 0020 00 4 00002 TRA 2,4 NO $5$4K502750| 36731 4625 00 0 44373 STL DEQU YES, EQUAL REPLACEMENT WANTED $5$4K502760 36732 0020 00 4 00002 TRA 2,4 $5$4K502800| | 36733 4051 00 000100 3RMA IIL 100 TEST END OF $4$4K503000| 36734 4054 00 007700 LFT 7700 STRING $4$4K503100| 36735 0020 00 0 36754 TRA 3RMD $4$4K503200 36736 0634 00 4 36752 SXA 3RMC,4 IF NOT, SAVE $4$4K503300| 36737 0634 00 2 36753 SXA 3RMC+1,2 RETURN AND CURRENT $4$4K503400| 36740 0534 00 4 36537 LXA 3R12,4 POSITION $4$4K503500| 36741 2 00001 4 36743 3RMB TIX *+2,4,1 TRANSMIT $4$4K503600| 36742 1 36742 4 36406 TXI RTXT2,4,* TEXT TO END $4$4K503700 36743 0441 60 0 36471 LDI* OPB OF $ STRING $4$4K503800| 36744 0604 00 2 00001 STI 1,2 $4$4K503900| 36745 4051 00 000100 IIL 100 $4$4K504000| 36746 4054 00 007700 LFT 7700 $4$4K504100| 36747 0020 00 0 36751 TRA *+2 NOT $, END OF QUAL STRING $4$4K504200 36750 1 77777 2 36741 TXI 3RMB,2,-1 $4$4K504300| 36751 0634 00 4 36537 SXA 3R12,4 SAVE NEW BUFFER POSITION $4$4K504400| 36752 0774 00 4 00000 3RMC AXT **,4 RESTORE $4$4K504500| 36753 0774 00 2 00000 AXT **,2 REGISTERS $4$4K504600| 36754 0074 00 1 42377 3RMD TSX RQUAL,1 DETERMINE INT DICT $4$4K504800| 36755 0 40445 0 36240 PZE PDLIST,,RAC72A LOCATION OF NAME $4$4K504900| 0BINARY CARD ID. MAPK0216| 36756 0441 60 0 43153 LDI* ID(A) SET INDICATOR $4$4K505000| 36757 4056 00 600000 LNT 600000 IF (6)4K505100 36760 0020 00 0 36762 TRA *+2 DEFINED (6)4K505110| 36761 4625 00 0 44373 STL DEQU BY EQU $4$4K505200| 36762 0734 00 1 00000 PAX 0,1 REPLACE LAST WORD $4$4K505300| 36763 0441 00 1 00000 LDI 0,1 OF TEXT BY $4$4K505400| 36764 0057 00 077777 RIR 77777 ID LOCATION $4$4K505500 36765 0442 00 0 43153 OSI ID(A) AND STORE INTO $4$4K505600| 1 IBMAPV IBMAPK 12/01/64 PAGE 475 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 36766 0604 00 2 00000 STI 0,2 ORIGINAL POSITION $4$4K505700| 36767 0020 00 4 00001 TRA 1,4 EXIT $4$4K505800 | * REPLACE NAMES DEFINED BY 'EQU' WITH EQUIVALENT EXPRESSIONS. 4K506000| | 36770 0634 00 1 37007 3R16Q SXA 3RQ5,1 SAVE RETURN ADDRESS 4K506200| 36771 0634 00 2 37010 SXA 3RQ6,2 SAVE INDEX 2 4K506300 36772 0520 00 0 21426 ZET SWABS TEST FOR 'ABSMOD' 4K506400| 36773 0020 00 1 00001 TRA 1,1 IF SO EXIT 4K506500| 36774 0520 00 0 37012 ZET ROP 4K506600| 36775 0020 00 1 00001 TRA 1,1 4K506700| 36776 4625 00 0 37012 STL ROP 4K506800 36777 0774 00 2 00000 AXT 0,2 TRANSMIT 'T2' STRING 4K506900| 37000 0441 00 2 52231 LDI 2B+1,2 FROM '2B' TO 4K507000| 37001 0604 00 2 35432 STI 2BB,2 2BB 4K507100| 37002 4054 00 007700 LFT 007700 TEST FOR END 4K507200| 37003 1 77777 2 37000 TXI *-3,2,-1 OF VARIABLE FIELD 4K507300 0BINARY CARD ID. MAPK0217| 37004 0600 00 2 35433 STZ 2BB+1,2 STORE TRAILING ZERO 4K507400| 37005 0600 00 0 44373 STZ DEQU RESET 'EQU' INDICATOR 4K507600| 37006 0074 00 4 43722 TSX TEQU,4 PROCESS ADDRESS FIELD 4K507700| 37007 0774 00 1 00000 3RQ5 AXT **,1 RESTORE INDEX 1 4K507800 37010 0774 00 2 00000 3RQ6 AXT **,2 RESTORE INDEX 2 4K507900| 37011 0020 00 1 00001 TRA 1,1 AND EXIT 4K508100| 37012 0 00000 0 00000 ROP PZE 0 4K508200| | * MISCELLANEOUS INDICATORS AND CONSTANTS 4K508400 | 37013 0 00000 0 00000 RCTR PZE ** CURRENT LOCATION COUNTER 4K508600| 37014 0 00000 0 00000 RIND PZE 0 INDIRECT OPERATION INDICATOR 4K508700| 37015 000060000000 SIN OCT 60000000 INDIRECT BITS 4K508800| 37016 0 00000 0 00000 SNND PZE 0 OPERATOR TYPE INDICATOR 4K508900 37017 060000000001 STZT OCT 060000000001 CHANGE 04 CODE TO 02 CODE 4K509000| 37020 000000000073 LCMA OCT 73 BCD FOR COMMA (6)4K509010| 37021 000000000054 LAST OCT 54 BCD FOR * (6)4K509020| 1 IBMAPV IBMAPK 12/01/64 PAGE 476 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0| * OPERATOR ANALYZERS 4K509200| | * MACHINE LANGUAGE TYPES 4K509400| 37022 0054 00 770000 RAC41 RFT 770000 IF NOT SPECIAL 41 TYPE, (6)4K509510| 37023 0020 00 0 37031 TRA R41A USE TYPE 40 PROCESSOR (6)4K509520| 37024 4625 00 0 37016 RAC40 STL SNND TYPE A (TXI) 4K509600| 37025 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K509700| 37026 0074 00 1 41161 R40A TSX RPACK,1 FORM AND PRINT DATA WORD 4K509800 37027 0074 00 1 41302 TSX P1515,1 WITH FORMAT X XXXXX X XXXXX 4K509900| 37030 0020 00 0 36532 TRA 3R17 GO TO PRINT COMMENTARY 4K510000| | 37031 4625 00 0 37016 R41A STL SNND SPECIAL 41 TYPE (6)4K510200| 0BINARY CARD ID. MAPK0218 37032 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD (6)4K510210| 37033 4500 00 2 00000 CAL 0,2 FETCH OP WORD (6)4K510300| 37034 0771 00 0 00014 ARS 12 PICK UP SPECIAL (6)4K510310| 37035 4320 00 0 21727 ANA MSKLO SIX BIT DECREMENT (6)4K510320| 37036 4602 00 0 41762 ORS REVT+2 COMBINE WITH CODED DECREMENT (6)4K510330 37037 0020 00 0 37061 TRA R43B AND GO TO CHECK ITS SIZE (6)4K510400| | 37040 4625 00 0 37016 RAC42 STL SNND I/O COMMANDS (IORT) 4K510600| 37041 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K510700| 37042 0600 00 0 37014 STZ RIND RESET INDIRECT BITS 4K510800 37043 0441 00 2 00000 LDI 0,2 TEST HIGH ORDER FLAG 4K510900| 37044 4500 00 2 00000 CAL 0,2 $4$4K511000| 37045 4320 00 0 37044 ANA *-1 MASK OUT POSSIBLE $4$4K511100| * 7909 INDICATION AND $4$4K511200| * THEN STORE POSSIBLE NON-TRANSMIT $4$4K511300 37046 0625 00 0 37014 STT RIND BIT INTO CELLRIND 4K511400| 37047 4500 00 0 37053 CAL T42I IF INDIRECT, OR BIT INTO TAG 4K511500| 37050 4054 00 004000 LFT 4000 TO MAKE OPERATION INDIRECT 4K511600| 37051 4602 00 0 37014 ORS RIND 4K511700| 37052 0020 00 0 37026 TRA R40A MAKE OPERATION INDIRECT 4K511800 37053 0 00000 4 00000 T42I PZE 0,4 TYPE 42 INDIRECT BIT 4K511900| 37054 0 00000 2 00000 T42N PZE 0,2 TYPE 42 NON TRANSMIT BIT 4K512000| | 37055 0054 00 770000 RAC43 RFT 770000 CHECK FOR SPECIAL TYPE B (6)4K512200| 37056 0020 00 0 37031 TRA R41A (E.G. CTR, MIT) (6)4K512210 37057 4625 00 0 37016 STL SNND NO, NORMAL TYPE B (CLA) (6)4K512220| 0BINARY CARD ID. MAPK0219| 37060 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K512300| 37061 0074 00 1 37066 R43B TSX RAC43D,1 CHECK FOR REQUIRED (6)4K512400| 37062 000007700006 VFD O21/77,15/6 6 BIT DECREMENT 4K512500 37063 0074 00 1 41161 R43A TSX RPACK,1 FORM AND PRINT DATA WORD 4K512600| 37064 0074 00 1 41334 TSX P4215,1 WITH FORMAT XXXX XX X XXXXX 4K512700| 37065 0020 00 0 36532 TRA 3R17 GO TO PRINT COMMENTARY 4K512800| | 37066 0441 00 0 52230 RAC43D LDI 2B EXIT IF 4K513000 37067 4056 00 000003 LNT 3 DECREMENT (6)4K513100| 37070 0020 00 0 37072 TRA *+2 NOT (6)4K513110| 37071 0020 00 1 00002 TRA 2,1 ALLOWED (6)4K513200| 37072 0500 00 1 00001 CLA 1,1 SET ERROR 4K513300| 1 IBMAPV IBMAPK 12/01/64 PAGE 477 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37073 0621 00 0 37114 STA RAC43F+1 MESSAGE CODE 4K513400| 37074 0771 00 0 00017 ARS 15 SIZE TEST WORD 4K513500| 37075 0520 00 0 21426 ZET SWABS IF NOT ABSMOD 4K513600| 37076 0020 00 0 37102 TRA RAC43T ASSEMBLY, 4K513700 37077 4520 00 0 41765 NZT REVT+5 FIELD MUST BE 4K513800| 37100 0520 00 0 41774 ZET CDR+2 CONSTANT 4K513900| 37101 0020 00 0 37105 TRA RAC43E 4K514000| 37102 0340 00 0 41762 RAC43T CAS REVT+2 MUST BE 4K514100| 37103 0020 00 1 00002 TRA 2,1 OF REQUIRED SIZE 4K514200 37104 0020 00 1 00002 TRA 2,1 IF NOT- 4K514300| 37105 0074 00 4 25576 RAC43E TSX ERPR,4 'DECREMENT MUST BE 4K514400| 0BINARY CARD ID. MAPK0220| 37106 0 37113 2 00172 PZE MMS001,NOGO,RAC43F CONSTANT AND LESS THAN 'N' BITS.4K514500| 37107 0320 00 0 41762 ANS REVT+2 RESET DECR SIZE 4K514600 37110 0600 00 0 41765 STZ REVT+5 CLEAR FOR CONSTANT 4K514700| 37111 0600 00 0 41774 STZ CDR+2 FIELD 4K514800| 37112 0020 00 1 00002 TRA 2,1 EXIT 4K514900| | 37113 0 00000 0 00001 RAC43F PZE 1 4K515100 37114 0 00002 2 00000 PZE **,2,2 NUMBER FOR MESSAGE 4K515200| | 37115 4625 00 0 37016 RAC44 STL SNND TYPE C (CRQ,VLM) 4K515400| 37116 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K515500| 37117 0074 00 1 37066 TSX RAC43D,1 CHECK FOR REQUIRED 4K515600 37120 000037700010 VFD O21/377,15/8 8 BIT DECREMENT 4K515700| 37121 0020 00 0 37063 TRA R43A GO TO PRINT DATA WORD 4K515800| | 37122 4625 00 0 37016 RAC45 STL SNND TYPE D (RNT) 4K516000| 37123 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K516100 37124 0074 00 1 37133 TSX RA45B,1 TEST BOOL CONDITIONS $4$4K516200| 37125 0020 00 0 37126 TRA RA45A LEFT OR RIGHT THE SAME $4$4K516300| 37126 0500 00 0 41760 RA45A CLA REVT STORE HIGH ORDER 4K516400| 37127 0625 00 0 37014 STT RIND 3 BITS IN RIND 4K516500| 37130 0074 00 1 41161 R45A TSX RPACK,1 FORM AND PRINT DATA WORD 4K516600 37131 0074 00 1 41363 TSX P426,1 WITH FORMAT XXXX XX XXXXXX 4K516700| 37132 0020 00 0 36532 TRA 3R17 GO TO PRINT COMMENTARY 4K516800| | 37133 4520 00 0 21426 RA45B NZT SWABS IF NOT ABSOLUTE $5$4K517000| 0BINARY CARD ID. MAPK0221 37134 4520 00 0 41763 NZT REVT+3 AND NOT CONSTANT $5$4K517010| 37135 0020 00 0 37140 TRA *+3 ISSUE, $4$4K517100| 37136 0074 00 4 25576 TSX ERPR,4 'BOOLEAN FIELD SHOULD $4$4K517200| 37137 0 00000 2 00011 PZE MSS009,NOGO BE CONSTANT $4$4K517300| 37140 0074 00 4 43456 TSX RBEV,4 EVALUATE $4$4K517400 37141 0 00000 2 00001 PZE 1,2 BOOLEAN VAR FIELD $4$4K517500| 37142 0600 00 0 37014 STZ RIND CLEAR SPURIOUS INDIRECT BITS $4$4K517600| 37143 4520 00 0 43576 NZT LFTB $4$4K517700| 37144 0020 00 1 00002 TRA 2,1 LEFT BOOL NOT THERE $4$4K517800| 37145 4520 00 0 43577 NZT RGTB $4$4K517900 37146 0020 00 1 00001 TRA 1,1 RIGHT BOOL NOT THERE $4$4K518000| 37147 0074 00 4 25576 RA45C TSX ERPR,4 WARNING ON (6)4K518100| 37150 0 00000 1 00035 PZE RMS002,GO MIXED BOOL $4$4K518200| 37151 0020 00 1 00001 TRA 1,1 EXIT MIXED (WITH MESSAGE) $4$4K518300| 1 IBMAPV IBMAPK 12/01/64 PAGE 478 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37152 4625 00 0 37016 RAC46 STL SNND TYPE E (PSE) 4K518500| 37153 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K518600| 37154 4500 00 2 00000 CAL 0,2 GET EXTENDED ADDRESS FROM 4K518700 37155 4320 00 0 21723 ANA MSKAD GET EXTENDED ADDRESS 4K518800| 37156 0361 00 0 41760 ACL REVT ADD VARIABLE FIELD 4K518900| 37157 0621 00 0 41760 STA REVT WORD AND STORE IN REVT 4K519000| 37160 0441 00 2 00000 LDI 0,2 FROM BIT 21 OF THE OPERATOR 4K519100| 37161 4500 00 0 37166 CAL L760 WORD DETERMINE IF THIS 4K519200 0BINARY CARD ID. MAPK0222| 37162 0054 00 100000 RFT 100000 IS A +760 OR -760 AND 4K519300| 37163 4500 00 0 37167 CAL L4760 STORE APPRORIATE OPERATION 4K519400| 37164 0621 00 2 00000 STA 0,2 CODE IN ADDRESS OF THE OPERATOR. 4K519500| 37165 0020 00 0 37063 TRA R43A GO TO PRINT DATA WORD 4K519600 37166 000000000760 L760 OCT 760 'PSE' OPERATION CODE 4K519700| 37167 000000004760 L4760 OCT 4760 'MSE' OPERATION CODE 4K519800| | 37170 4625 00 0 37016 RAC47 STL SNND SELECT (READ,WRITE) 4K520000| 37171 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K520100 37172 4500 00 2 00000 CAL 0,2 ISOLATE 4K520200| 37173 0771 00 0 00006 ARS 6 CHANNEL NUMBER 4K520300| 37174 4320 00 0 21727 ANA MSKLO AND STORE 4K520400| 37175 0602 00 0 52430 SLW TEMP IN 'TEMP' 4K520500| 37176 4500 00 2 00000 CAL 0,2 ISOLATE 4K520600 37177 0771 00 0 00014 ARS 12 SELECT 4K520700| 37200 4320 00 0 21713 ANA L(7) TYPE 4K520800| 37201 0737 00 4 00000 PAC ,4 GET CORRESPONDING 4K520900| 37202 4500 00 4 37217 CAL T47T,4 OPERATOR CODE AND 4K521000| 37203 0602 00 0 52431 SLW TEMP+1 STORE IN 'TEMP' +1 4K521100 37204 4500 00 2 00000 CAL 0,2 ISOLATE 4K521200| 37205 4320 00 0 21727 ANA MSKLO EQUIPMENT 4K521300| 37206 0737 00 4 00000 PAC ,4 CODE 4K521400| 37207 4500 00 4 37225 CAL T47TB,4 OPERATOR CODE AND 4K521500| 0BINARY CARD ID. MAPK0223 37210 0621 00 2 00000 STA 0,2 STORE IN OPERATOR 4K521600| 37211 4500 00 0 52430 CAL TEMP FORM FINAL 4K521700| 37212 0767 00 0 00011 ALS 9 EXTENDED 4K521800| 37213 0361 00 0 52431 ACL TEMP+1 ADDRESS 4K521900| 37214 0361 00 0 41760 ACL REVT ADD VARIABLE FIELD 4K522000 37215 0621 00 0 41760 STA REVT AND STORE IN 'REVT' 4K522100| 37216 0020 00 0 37063 TRA R43A GO TO FORM DATA WORD 4K522200| | 37217 000000000200 T47T OCT 200 TAPES (BCD) 4K522400| 37220 000000000220 OCT 220 TAPES (BINARY) 4K522500 37221 000000000321 OCT 321 CARD READER 4K522600| 37222 000000000341 OCT 341 CARD PUNCH 4K522700| 37223 000000000361 OCT 361 PRINTER NORMAL 4K522800| 37224 000000000362 OCT 362 PRINTER (BINARY) 4K522900| 37225 000000000762 T47TB OCT 0762 READ SELECT 4K523100| 37226 000000000766 OCT 0766 WRITE SELECT 4K523200| 37227 000000000776 OCT 0776 SET DENSITY 4K523300| 37230 000000000776 OCT 0776 SET DENSITY 4K523400| 37231 000000000772 OCT 0772 REWIND 4K523500 37232 000000004772 OCT 4772 REWIND AND UNLOAD 4K523600| 1 IBMAPV IBMAPK 12/01/64 PAGE 479 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37233 000000000764 OCT 0764 BACKSPACE RECORD 4K523700| 37234 000000004764 OCT 4764 BACKSPACE FILE 4K523800 37235 000000000770 OCT 0770 WRITE END OF FILE 4K523900| | 0BINARY CARD ID. MAPK0224| 37236 4625 00 0 37254 RAC50 STL TP50 SET TYPE SWITCH (TCM,ICC) 4K524100| 37237 0600 00 0 37014 STZ RIND CLEAR SPURIOUS INDIRECT BITS 4K524200 37240 4625 00 0 37016 STL SNND TRANSMIT VARIABLE FIELD 4K524300| 37241 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K524400| 37242 0441 00 2 00000 LDI 0,2 GET OPERATOR WORD 4K524500| 37243 0500 00 0 37014 CLA RIND OR 2 INTO TAG FIELD 4K524600| 37244 4501 00 0 37054 ORA T42N FOR EXTENDED OP 4K524700 37245 4054 00 004000 LFT 004000 TEST FOR INDIRECT 4K524800| 37246 4501 00 0 37053 ORA T42I YES - OR 4 INTO TAG 4K524900| 37247 0602 00 0 37014 SLW RIND 4K525000| 37250 0074 00 1 41161 TSX RPACK,1 FORM AND PRINT DATA WORD 4K525100| 37251 0074 00 1 41421 TSX P2415,1 WITH FORMAT XX XXXX X XXXXX 4K525200 37252 0600 00 0 37254 STZ TP50 RESET TYPE 50 SWITCH 4K525300| 37253 0020 00 0 36532 TRA 3R17 PROCESS NEXT INSTRUCTION. 4K525400| 37254 0 00000 0 00000 TP50 PZE 0 TYPE 50 INDICATOR 4K525500| | 37255 0600 00 0 37014 RAC51 STZ RIND CLEAR SPURIOUS INDIRECT BITS 4K525700 37256 4625 00 0 37016 STL SNND DISK OPERATIONS 4K525800| 37257 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K525900| 37260 4500 00 2 00000 CAL 0,2 SET NON TRANSMIT BIT 4K526000| 37261 0625 00 0 37014 STT RIND IF NECESSARY 4K526100| 37262 0441 00 0 52230 LDI 2B 4K526200 37263 4500 00 0 37053 CAL T42I SET 4K526300| 0BINARY CARD ID. MAPK0225| 37264 4054 00 004000 LFT 4000 INDIRECT BIT 4K526400| 37265 4602 00 0 37014 ORS RIND IF NECESSARY 4K526500| 37266 0074 00 1 41161 TSX RPACK,1 FORM AND PRINT DATA WORD 4K526600 37267 0074 00 1 41421 TSX P2415,1 WITH FORMAT XX XXXX X XXXXX 4K526700| 37270 0020 00 0 36532 TRA 3R17 PROCESS NEXT INSTRUCTION 4K526800| | * BOOLEAN VARIABLE 4K527000| 37271 4625 00 0 37016 RAC52 STL SNND BOOLEAN VARIABLE (BNT,SIB) 4K527200| 37272 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K527300| 37273 0074 00 1 37133 TSX RA45B,1 TEST BOOL CONDITIONS $4$4K527400| 37274 0020 00 0 37126 TRA RA45A ALL SERENE (OR MESSAGE) $4$4K527500| 37275 4520 00 0 43577 R52A NZT RGTB TEST FOR RIGHT BOOLEAN 4K527600 37276 0020 00 0 37147 TRA RA45C ERROR IF NEITHER (6)4K527700| 37277 0500 00 2 00000 CLA 0,2 FOR RIGHT BOOLEAN 4K527800| 37300 4320 00 0 37303 ANA IVOP INVERT HIGH ORDER 4K527900| 37301 0621 00 2 00000 STA 0,2 OP CODE BIT 4K528000| 37302 0020 00 0 37126 TRA RA45A GO TO PRINT DATA WORD 4K528100 37303 000000003777 IVOP OCT 3777 4K528200| | * DISK ORDERS 4K528400| | 37304 4625 00 0 37016 RAC53 STL SNND DISK ORDERS (DSEK,DVSR) 4K528600 37305 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K528700| 37306 0074 00 1 37066 TSX RAC43D,1 CHECK FOR REQUIRED 4K528800| 1 IBMAPV IBMAPK 12/01/64 PAGE 480 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37307 000777700014 VFD O21/7777,15/12 12 BIT DECREMENT 4K528900 37310 4500 00 0 41760 CAL REVT CONVERT FIRST SUBFIELD TO BCD 4K529000| 37311 0074 00 4 00716 TSX .DECVA,4 SHIFT 2 LOW ORDER (6)4K529100| 0BINARY CARD ID. MAPK0226| 37312 4763 00 0 00030 LGL 24 DIGITS TO HIGH MQ (6)4K529200| 37313 4500 00 0 52230 CAL 2B GET 2 BCD OPERATOR DIGITS 4K529300 37314 4763 00 0 00014 LGL 12 COMBINE OPERATOR AND 4K529400| 37315 0602 00 0 37361 SLW R53WD FIRST SUB FIELD 4K529500| 37316 4500 00 0 41761 CAL REVT+1 CONVERT SECOND SUBFIELD 4K529600| 37317 0074 00 4 00716 TSX .DECVA,4 TO BCD (6)4K529700| 37320 4763 00 0 00014 LGL 12 COMBINE OPERATOR, FIRST (6)4K529800 37321 4500 00 0 37361 CAL R53WD SUBFIELD AND FIRST 4K529900| 37322 4763 00 0 00014 LGL 12 2 CHARACTERS OF 4K530000| 37323 0602 00 0 37361 SLW R53WD SECOND SUBFIELD 4K530100| 37324 4763 00 0 00014 LGL 12 COMBINE LAST 2 CHARACTERS 4K530200| 37325 0767 00 0 00014 ALS 12 OF SECOND SUBFIELD 4K530300 37326 0361 00 0 41762 ACL REVT+2 WITH THIRD SUB FIELD 4K530400| 37327 0560 00 0 37363 LDQ L(12W) STORE 2 TRAILING 4K530500| 37330 4763 00 0 00014 LGL 12 BLANK (12) CHARACTERS 4K530600| 37331 0602 00 0 37362 SLW R53WD+1 SAVE SECOND DATA WORD 4K530700| 37332 0560 00 0 37361 LDQ R53WD REPLACE 00 CHARACTERS 4K530800 37333 4773 00 0 00014 RQL 12 4K530900| 37334 4154 04 1 37364 CRQ R53T,1,4 4K531000| 37335 4600 00 0 30676 STQ RDATA STORE DATA WORD IN RDATA 4K531100| 37336 0560 00 0 43442 LDQ L(20) STORE 10000 CONTROL GROUP 4K531200| 37337 4600 00 0 43445 STQ PCTRL IN 'PCTRL' 4K531300 0BINARY CARD ID. MAPK0227| 37340 4500 00 0 30676 CAL RDATA GET FIRST DATA WORD 4K531400| 37341 0074 00 1 41174 TSX RPAC2A,1 PRINT WARNING AND LOCATION FIELDS 4K531500| 37342 0074 00 1 41437 TSX P444,1 PRINT OCTAL TRANSLATION 4K531600| 37343 0074 00 1 41453 TSX PRCG,1 PRINT CONTROL GROUP AND COMMENTARY 4K531700 37344 4625 00 0 37453 STL NCOM RESET COMMENTARY SWITCH 4K531800| 37345 0560 00 0 37362 LDQ R53WD+1 CONVERT 00 CHARACTERS IN 4K531900| 37346 4154 02 1 37364 CRQ R53T,1,2 4K532000| 37347 4773 00 0 00030 RQL 24 4K532100| 37350 4600 00 0 30676 STQ RDATA STORE DATA WORD IN RDATA 4K532200 37351 0074 00 1 36604 TSX 3R16F,1 BUMP LOCATION COUNTER 4K532300| 37352 0560 00 0 43442 LDQ L(20) STORE '10000' CONTROL GROUP 4K532400| 37353 4600 00 0 43445 STQ PCTRL IN PCTRL 4K532500| 37354 4500 00 0 30676 CAL RDATA 4K532600| 37355 0074 00 1 41174 TSX RPAC2A,1 PRINT WARNING AND LOCATION FIELDS 4K532700 37356 0074 00 1 41437 TSX P444,1 PRINT OCTAL TRANSLATION 4K532800| 37357 0074 00 1 41453 TSX PRCG,1 PRINT CONTROL GROUP AND COMMENTARY 4K532900| 37360 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K533000| 37361 R53WD BSS 2 WORKING STORAGE 4K533100| 0BINARY CARD ID. MAPK0228 37363 121212121212 L(12W) OCT 121212121212 4K533200| 37364 120000037364 R53T VFD O6/12,30/R53T RETURN 1,4 4K534100| 37365 010000037364 VFD O6/01,30/R53T BCD 4K534200| 37366 020000037364 VFD O6/02,30/R53T CHARACTER REPLACEMENT 4K534300| 37367 030000037364 VFD O6/03,30/R53T TABLE 4K534400 37370 040000037364 VFD O6/04,30/R53T 4K534500| 37371 050000037364 VFD O6/05,30/R53T 4K534600| 1 IBMAPV IBMAPK 12/01/64 PAGE 481 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37372 060000037364 VFD O6/06,30/R53T 4K534700 37373 070000037364 VFD O6/07,30/R53T 4K534800| 37374 100000037364 VFD O6/10,30/R53T 4K534900| 37375 110000037364 VFD O6/11,30/R53T 4K535000| 37376 120000037364 VFD O6/12,30/R53T 4K535100| 37377 4625 00 0 37016 RAC55 STL SNND HYPERTAPE COMMANDS 4K535300| 37400 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K535400| 37401 0441 00 0 52230 LDI 2B TEST FOR SELECT TYPE 4K535500| 37402 4056 00 000060 LNT 000060 (HSBR,HSEL) 4K535600| 37403 0020 00 0 37415 TRA RAC55A IF SO, GO TO RAC55A 4K535700 37404 4500 00 0 52230 CAL 2B GET OPERATION CODE 4K535800| 37405 0560 00 0 37363 LDQ L(12W) STORE 4 4K535900| 37406 4763 00 0 00030 LGL 24 TRAILING 12'S 4K536000| 37407 0560 00 0 43442 R55A LDQ L(20) STORE CONSTANT CONTROL 4K536100| 37410 4600 00 0 43445 STQ PCTRL GROUP(10000) IN PCTRL 4K536200 0BINARY CARD ID. MAPK0229| 37411 0074 00 1 41173 TSX RPAC2,1 PRINT WARNING AND LOCATION 4K536300| 37412 0074 00 1 41410 TSX P12,1 PRINT DATA WORD 4K536400| 37413 0074 00 1 41453 TSX PRCG,1 PRINT CG AND COMMENTARY 4K536500| 37414 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K536600 37415 4500 00 0 41760 RAC55A CAL REVT GET UNIT NUMBER 4K536700| 37416 0074 00 4 27507 TSX SC.CON,4 CONVERT TO DECIMAL 4K536800| 37417 4500 00 0 52230 CAL 2B DUPLICATE 4K536900| 37420 4763 00 0 00006 LGL 6 SELECT 4K537000| 37421 0602 00 0 37361 SLW R53WD COMMAND 4K537100 37422 4765 00 0 00022 LGR 18 LEAVE 4K537200| 37423 4500 00 0 37361 CAL R53WD IN 4K537300| 37424 4765 00 0 00022 LGR 18 ACCUMULATOR 4K537400| 37425 4130 00 0 00000 XCL 4K537500| 37426 0020 00 0 37407 TRA R55A PRINT AND PUNCH INSTRUCTION 4K537600 | * SPECIAL OPERATION CLASSES $4$4K537800| | 37427 4737 00 4 00000 RAC56 PDC 0,4 BRANCH TO $4$4K538000| 37430 0020 00 4 00000 TRA 0,4 PROCESS $4$4K538100 37431 1 76133 4 36406 RAC56A TXI RTXT2,4,RAC56A+3R3 TRUNCATE AND CONTINUE $4$4K538200| | * TEXT SYNCHRONIZATION 4K538400| | 37432 0600 00 0 37453 RAC57 STZ NCOM SET COMMENTARY SWITCH 4K538600 37433 0600 00 0 36715 STZ 57TYP RESET WARNING INDICATOR 4K538700| 37434 0604 00 0 21443 STI BLINK STORE '57' WORD IN 'BLINK' 4K538800| 37435 0054 00 400000 RFT 400000 TEST IF COMMENTARY DELETED 4K538900| 37436 4625 00 0 37453 STL NCOM IF SO SET 'NCOM' NON-ZERO 4K539000| 0BINARY CARD ID. MAPK0230 37437 0634 00 0 21456 SXA KLPRNT,0 SET PRINT $4$4K539100| 37440 4054 00 000002 LFT 2 SWITCH FROM $4$4K539200| 37441 4625 00 0 21456 STL KLPRNT INDICATOR $4$4K539300| 37442 0020 00 0 36537 TRA 3R12 CONTINUE PROCESSING 4K539400| 37443 606060606060 RBLINK OCT 606060606060 ERROR INDICATOR 4K539500 37444 606060606060 BCI 7, 4K539600| 37453 0 00000 0 00000 NCOM PZE 0 'NO COMMENTARY' SWITCH 4K539700| | 1 IBMAPV IBMAPK 12/01/64 PAGE 482 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 * SET 4K539900| | 37454 4056 00 000003 RAC61 LNT 3 4K540100| 37455 0020 00 0 40713 TRA RACERR UNEXPECTED ADJECTIVE 4K540200| 37456 0074 00 4 36561 TSX 3R15,4 GET NEXT TEXT WORD 4K540300 37457 0604 00 2 00001 STI 1,2 STORE IN '2B' BUFFER 4K540400| 37460 4500 00 2 00000 CAL 0,2 STORE SET VALUE 4K540500| 37461 0621 60 2 00001 STA* 1,2 IN INTERNAL DICTIONARY 4K540600| 37462 0020 00 0 40025 TRA RAC65A PRINT 'SET' VALUE AND COMMENTARY 4K540700| * LOCATION COUNTER PSEUDO OPS (USE,BEGIN,ORG,LORG,LDIR) 4K540900| | * USE 4K541100| | 37463 4054 00 000007 RAC63 LFT 7 USE 63--0 4K541300 37464 0020 00 0 37517 TRA RAC63A IF NOT GO TO RAC63A 4K541400| 0BINARY CARD ID. MAPK0231| 37465 4520 00 0 30700 NZT PUNCTR IS LOC IN EFFECT $5$4K541410| 37466 0020 00 0 37472 TRA R63C NO $5$4K541420| 37467 0600 00 0 30700 STZ PUNCTR YES, RESET AND $5$4K541430 37470 0074 00 4 25576 TSX ERPR,4 PRINT WARNING $5$4K541440| 37471 0 00000 1 00207 RMS036,GO '-USE- IN RANGE OF -LOC-' (6)4K541450| 37472 4625 00 0 30753 R63C STL CMODE FOR DEBUGGING MODE $5$4K541500| 37473 0520 00 0 21426 ZET SWABS CLEAR PUNCH BUFFER 4K541600| 37474 0074 00 4 30332 TSX PLAST,4 IF ABSMOD 4K541700 37475 0604 00 0 37013 STI RCTR STORE NEW LOCATION COUNTER IN 'RCTR' 4K541800| 37476 4500 60 0 37013 CAL* RCTR STORE CURRENT VALUE 4K541900| 37477 4320 00 0 21723 ANA MSKAD OF THIS LOCATION COUNTER 4K542000| 37500 0441 60 0 37013 LDI* RCTR TEST IF THIS COUNTER HAS A 4K542100| 37501 0054 00 100000 RFT 100000 RELATIVE VALUE. 4K542200 37502 4501 00 0 21721 ORA 10WD 1 IN PREFIX OF DATA WORD 4K542300| 37503 4056 00 000001 LNT 1 IS LOCATION COUNTER VIRTUAL (6)4K542310| 37504 0020 00 0 37507 TRA R63 NO (6)4K542320| 37505 0074 00 4 25576 TSX ERPR,4 YES - '-USE- NOT EFFECTIVE FOR (6)4K542330| 37506 0 00000 1 00062 WMS012,GO VIRTUAL LOCATION COUNTER' (6)4K542340 37507 0602 00 0 30676 R63 SLW RDATA STORE FOR PRINT AND/OR PUNCH (6)4K542400| 37510 0600 00 0 43455 STZ CMORG INDICATE ORIGIN NOT COMPLEX (6)4K542410| 37511 0604 60 0 37013 R63B STI* RCTR 4K542500| 37512 4520 00 0 30700 NZT PUNCTR (6)4K542510| 0BINARY CARD ID. MAPK0232 37513 0520 00 0 21426 R63A ZET SWABS PRINT FIELD ACCORDING 4K542600| 37514 0020 00 0 40025 TRA RAC65A TO TYPE OF 4K542700| 37515 0074 00 1 36571 TSX 3R16,1 ASSEMBLY 4K542800| 37516 0020 00 0 36533 TRA 3R11 PROCESS NEXT INSTRUCTION 4K542900| * BEGIN 4K543100| | 37517 4054 00 000006 RAC63A LFT 6 BEGIN 63--1 4K543300| 37520 0020 00 0 37550 TRA RAC63B IF NOT GO TO RAC63B 4K543400| 37521 4625 00 0 41754 STL BGNTSW SET BEGIN SWITCH 4K543500 37522 4625 00 0 37016 STL SNND TRANSMIT 4K543600| 37523 0020 00 0 36512 TRA 3R4 VARIABLE FIELD 4K543700| 37524 0600 00 0 41754 STZ BGNTSW CLEAR BEGIN SWITCH 4K543800| 37525 0074 00 1 37543 TSX FIELDS,1 CHECK SUBFIELD 4K543900| 1 IBMAPV IBMAPK 12/01/64 PAGE 483 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37526 7 00002 4 37527 TXL *+1,4,2 COUNT 4K544000| 37527 0535 00 4 52230 RA63 LAC 2B,4 GET PSEUDO OP LOCATION 4K544100| 37530 0500 00 4 00001 CLA 1,4 GET VALUE OF 'BEGIN' 4K544200| 37531 0441 00 4 00001 LDI 1,4 TEST IF THIS PSEUDO OP WAS 4K544300 37532 4056 00 700000 LNT 700000 DEFINED. IF NOT PRINT 4K544400| 37533 0074 00 1 37536 TSX PUNDEF,1 ERROR MESSAGE. 4K544500| 37534 0771 00 0 00022 ARS 18 VARIABLE FIELD 4K544600| 37535 0020 00 0 40025 TRA RAC65A GO TO PRINT 4K544700| 37536 0074 00 4 25576 PUNDEF TSX ERPR,4 PRINT MESSAGE 4K544900| 37537 0 00000 2 00034 PZE RMS001,NOGO 'PSEUDO OP CANNOT BE DEFINED' 4K545000| 37540 4754 00 0 00000 PXD ,0 PRINT '00000' LOCATION FIELD 4K545100| 0BINARY CARD ID. MAPK0233| 37541 0600 00 0 30676 STZ RDATA SET DATA WORD TO ZERO. 4K545200 37542 0020 00 1 00001 TRA 1,1 AND RETURN 4K545300| | 37543 0535 00 4 41654 FIELDS LAC PCMSW,4 PICK UP COUNT AND EXECUTE 4K545500| 37544 0522 00 1 00001 XEC 1,1 LIMIT TEST. 4K545600| 37545 0074 00 4 25576 TSX ERPR,4 IF TOO MANY - 'TOO 4K545700 37546 0 00000 1 00030 PZE WMS005,GO MANY SUBFIELDS ON 4K545800| 37547 0020 00 1 00002 TRA 2,1 THIS CARD' 4K545900| | * ORG 4K546100| 37550 4054 00 000004 RAC63B LFT 4 ORG 63--2, LOC 63--3 $5$4K546300| 37551 0020 00 0 40713 TRA RACERR ERROR IF NOT 4K546400| 37552 0600 00 0 37646 STZ LOCSW $5$4K546410| 37553 4054 00 000001 LFT 1 IF OPERATION IS LOC, $5$4K546420| 37554 4625 00 0 37646 STL LOCSW INDICATE FOR FOLLOWING $5$4K546430 37555 0600 00 0 37012 STZ ROP SET FOR EQU EVALUATION $4$4K546500| 37556 4625 00 0 30753 STL CMODE FOR DEBUGGING MODE $4$4K546600| * MAY RESULT IN REDUNDANT MODE CHANGE $4$4K546700| 37557 4625 00 0 37016 STL SNND TRANSMIT 4K546800| 37560 0020 00 0 36512 TRA 3R4 VARIABLE FIELD 4K546900 37561 0074 00 1 37543 TSX FIELDS,1 CHECK SUBFIELD 4K547000| 37562 7 00001 4 37563 TXL *+1,4,1 COUNT 4K547100| 37563 0520 00 0 37646 ZET LOCSW IF OPERATION (6)4K547110| 37564 0020 00 0 37567 TRA *+3 NOT LOC, (6)4K547120| 37565 0520 00 0 21426 ZET SWABS CLEAR PUNCH BUFFER 4K547200 37566 0074 00 4 30332 TSX PLAST,4 IF ABSMOD 4K547300| 0BINARY CARD ID. MAPK0234| 37567 0535 00 4 52230 LAC 2B,4 GET PSEUDO OP LOCATION 4K547400| 37570 0500 00 4 00001 CLA 1,4 GET VALUE OF ORG 4K547500| 37571 0441 00 4 00001 LDI 1,4 IF OPERATION 4K547600 37572 4056 00 700000 LNT 700000 WAS NOT DEFINED 4K547700| 37573 0074 00 1 37536 TSX PUNDEF,1 SET VALUE TO ZERO 4K547800| 37574 0520 00 0 37646 ZET LOCSW IS OPERATION LOC $5$4K547810| 37575 0020 00 0 37633 TRA RAC63F YES, COMPUTE SUBTRAHEND FOR PUNCH $5$4K547820| 37576 0600 00 0 30700 STZ PUNCTR NO,LOAD ADDRESS IS RCTR VALUE $5$4K547830 37577 0625 60 0 37013 RAC63E STT* RCTR $5$4K547900| 37600 0771 00 0 00022 ARS 18 GET NEW LOCATION AND 4K548000| 37601 0621 60 0 37013 STA* RCTR STORE IN THE CURRENT COUNTER 4K548100| 37602 4320 00 0 21723 ANA MSKAD FORM DATA WORD 4K548200| 37603 0441 60 0 37013 LDI* RCTR 4K548300 1 IBMAPV IBMAPK 12/01/64 PAGE 484 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37604 0520 00 0 21426 ZET SWABS IF THIS IS RELMOD, 4K548400| 37605 0020 00 0 37507 TRA R63 ASSUME CONSTANT 4K548500| 37606 0057 00 100000 RIR 100000 4K548600 37607 4057 00 000001 RIL 1 RESET VIRTUAL ORIGIN BIT 4K548700| 37610 0520 00 0 41755 ZET 17TSW TEST IF VIRTUAL APPEARED IN ORG 4K548800| 37611 4055 00 000001 SIL 1 INDICATE VIRTUAL 4K548900| 37612 0534 00 1 41763 LXA REVT+3,1 EXIT IF 4K549000| 37613 7 00000 1 37507 TXL R63,1,0 CONSTANT ORIGIN 4K549100 37614 0055 00 100000 SIR 100000 4K549200| 0BINARY CARD ID. MAPK0235| 37615 4501 00 0 21721 ORA 10WD RELATIVE ORIGIN 4K549300| 37616 4520 00 0 41772 NZT CDR 4K549400| * CDR IS ZERO IF 4K549500 * 1. THERE WAS NO CONTROL SECTION REFERENCE 4K549600| * 2. THERE WAS A CONTROL SECTION REFERENCE, BUT 4K549700| * THE ADDRESS IS COMPLEX(REVT+3=3) 4K549800| 37617 7 00001 1 37507 TXL R63,1,1 TRANSFER IF RELATIVE AND NO C.S. 4K549900| 37620 4625 00 0 43455 STL CMORG INDICATE COMPLEX ORIGIN (6)4K549910 37621 7 00001 1 37624 TXL RAC63D,1,1 TRANSFER FOR SHORT FORM COMPLEX 4K550000| 37622 4625 00 0 43443 RAC63C STL CMADD SET COMPLEX EXPANSION SWITCH 4K550100| 37623 0600 00 0 41760 STZ REVT SET VARIABLE FIELD VALUE TO 0 4K550200| 37624 0502 00 0 41760 RAC63D CLS REVT STORE VALUE OF VARIABLE IN 4K550300| 37625 0601 00 0 30676 STO RDATA ADDRESS OF RDATA 4K550400 37626 0500 60 0 37013 CLA* RCTR STORE VALUE OF 4K550500| 37627 0767 00 0 00022 ALS 18 LOCATION COUNTER 4K550600| 37630 0622 00 0 30676 STD RDATA IN DECREMENT OF RDATA 4K550700| 37631 0771 00 0 00022 ARS 18 SHIFT VALUE INTO ADDRESS 4K550800| 37632 0020 00 0 37511 TRA R63B AND GO TO PRINT 4K550900 $5$4K550910| 37633 4734 00 1 00000 RAC63F PDX ,1 NEW LOC ORG $5$4K550920| 37634 4634 00 1 37642 SXD RAC63G,1 $5$4K550930| 37635 0534 00 1 30700 LXA PUNCTR,1 OLD LOC ORG - ITS LOAD ADDRESS $5$4K550940| 37636 4634 00 1 37641 SXD *+3,1 $5$4K550950 37637 0500 60 0 37013 CLA* RCTR $5$4K550960| 37640 0737 00 1 00000 PAC ,1 -(CURRENT LOCATION) $5$4K550970| 37641 1 00000 1 37642 TXI *+1,1,** -(CURRENT LOAD ADDRESS) $5$4K550980| 37642 1 00000 1 37643 RAC63G TXI *+1,1,** NEW LOC ORG-ITS LOAD ADDRESS $5$4K550990| 0BINARY CARD ID. MAPK0236 37643 0634 00 1 30700 SXA PUNCTR,1 SAVE DIFFERENCE FOR PUNCH ROUTINE $5$4K551000| 37644 0500 00 4 00001 CLA 1,4 NEW LOC ORG $5$4K551010| 37645 0020 00 0 37577 TRA RAC63E $5$4K551020| $5$4K551030| 37646 0 00000 0 00000 LOCSW PZE 0 $5$4K551040 $5$4K551050| * STORAGE ALLOCATION PSEUDO OPS (BSS,BES,COMMON,EVEN, $5$4K551100| * LORG,LDIR,AND LITORG) $5$4K551101| | 37647 4054 00 000074 RAC64 LFT 74 IF 4 OR MORE, 4K551300 37650 0020 00 0 37753 TRA RAC64D TRY LORG,LDIR,OR LITORG $5$4K551400| 37651 4056 00 000003 LNT 3 SPLIT AS- 4K551500| 37652 0020 00 0 37654 TRA *+2 BSS, BES, COMMON 4K551600| 37653 0020 00 0 37716 TRA RAC64C EVEN 4K551700| * BSS, BES, AND COMMON 4K551900| 1 IBMAPV IBMAPK 12/01/64 PAGE 485 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 * 4K552000| 37654 4625 00 0 37016 STL SNND TRANSMIT 4K552100 37655 0020 00 0 36512 TRA 3R4 VARIABLE FIELD 4K552200| 37656 0074 00 1 37543 TSX FIELDS,1 CHECK SUBFIELD 4K552300| 37657 7 00001 4 37660 TXL *+1,4,1 COUNT 4K552400| 37660 0535 00 4 52230 LAC 2B,4 CONSTANT OR LOCATION OF PSEUDO-OP (6)4K552410| 37661 7 00000 4 37664 TXL *+3,4,0 IF BSS (BES) IS NON-ZERO, (6)4K552420 37662 0520 00 0 21426 ZET SWABS CLEAR PUNCH BUFFER 4K552500| 37663 0074 00 4 30332 TSX PLAST,4 IF ABSMOD 4K552600| 37664 0441 00 0 52230 LDI 2B OBTAIN TEXT WORD 4K552700| 37665 0535 00 4 52230 LAC 2B,4 GET PSEUDO-OP LOCATION 4K552800| 37666 4500 60 0 37013 CAL* RCTR SAVE LOCATION $4$4K552900 37667 0734 00 1 00000 PAX 0,1 IN CASE DEBUGGING $4$4K553000| 37670 4634 00 1 30775 SXD SB02,1 BSS OR BES $4$4K553100| 0BINARY CARD ID. MAPK0237| 37671 0625 00 0 31553 STT RELTST ALSO RELATIVE INDICATION $4$4K553200| 37672 4046 00 0 00000 PIA ASSUME 4K553300 37673 0054 00 100000 RFT 100000 CONSTANT VALUE $4$4K553400| 37674 0020 00 0 37702 TRA R64A 4K553500| 37675 0441 00 4 00001 LDI 1,4 IF NOT, PICK VALUE 4K553600| 37676 4500 00 4 00002 CAL 2,4 FROM PSDICT AND 4K553700| 37677 4056 00 700000 LNT 700000 CHECK FOR BEING 4K553800 37700 0074 00 1 37536 TSX PUNDEF,1 DEFINED. 4K553900| 37701 0441 00 0 52230 LDI 2B 4K554000| 37702 4320 00 0 21723 R64A ANA MSKAD 4K554100| 37703 4501 00 0 37731 ORA L(PTW) STORE PROPER 4K554200| 37704 0602 00 0 30676 SLW RDATA DATA WORD 4K554300 37705 0361 60 0 37013 ACL* RCTR BUMP LOCATION COUNTER 4K554400| 37706 0560 60 0 37013 LDQ* RCTR AND SET 4K554500| 37707 0621 60 0 37013 STA* RCTR NEW VALUE 4K554600| 37710 4056 00 000001 LNT 1 USE OLD VALUE IF 4K554700| 37711 0131 00 0 00000 XCA THIS IS BSS 4K554800 37712 0520 00 0 21426 ZET SWABS PRINT FIELD ACCORDING 4K554900| 37713 0020 00 0 40025 TRA RAC65A TO TYPE 4K555000| 37714 0074 00 1 36571 TSX 3R16,1 OF ASSEMBLY 4K555100| 37715 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K555200| * EVEN 4K555400| | 37716 0441 60 0 52230 RAC64C LDI* 2B PICK UP PSEUDO-OP ENTRY $4$4K555600| 0BINARY CARD ID. MAPK0238| 37717 0054 00 100000 RFT 100000 IS THIS AN ABSOLUTE ORIGI $4$4K555700 37720 0520 00 0 21426 ZET SWABS AN ABSOLUTE ASSEMBLY $4$4K555800| 37721 0020 00 0 37733 TRA R64CA YES, GO TO R64CA $4$4K555900| 37722 4500 00 0 37732 CAL L(PTH) STORE 3 IN PREFIX $4$4K556000| 37723 0602 00 0 30676 SLW RDATA OF DATA WORD $4$4K556100| 37724 4500 60 0 52230 CAL* 2B FIND CONTROL SECTION NO. $4$4K556200 37725 0771 00 0 00022 ARS 18 OF PSEUDO-OPERATION DICTIONARY $5$4K556300| 37726 0621 00 0 30676 STA RDATA IN DATA WORD 4K556500| 37727 4500 60 0 37013 CAL* RCTR GET LOCATION FIELD 4K556600| 37730 0020 00 0 37513 TRA R63A PRINT OCTAL TRANSLATION. 4K556700| 37731 2 00000 0 00000 L(PTW) PTW 0 PREFIX FOR BSS DATA WORD 4K556800 37732 3 00000 0 00000 L(PTH) PTH 0 PREFIX FOR EVEN DATA WORD 4K556900| | 1 IBMAPV IBMAPK 12/01/64 PAGE 486 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 37733 0535 00 4 52230 R64CA LAC 2B,4 PICK UP SECOND WORD 4K557500| 37734 0441 00 4 00001 LDI 1,4 FROM PS DICT 4K557600| 37735 4056 00 700000 LNT 700000 IF PREFIX IS NOT 7 PSEUDO OP IS 4K557700| 37736 0074 00 1 37536 TSX PUNDEF,1 ERROR UNDEFINED. PRINT WARNING. 4K557800| 37737 4500 60 0 37013 CAL* RCTR TREAT LIKE -ORG- 4K557900 37740 4054 00 070000 LFT 70000 IF ALREADY EVEN. 4K558000| 37741 0020 00 0 40025 TRA RAC65A OTHERWISE- 4K558100| 37742 0074 00 1 36604 TSX 3R16F,1 BUMP LOC CTR 4K558200| 37743 4500 00 0 43442 CAL L(20) 4K558300| 37744 0602 00 0 43445 SLW PCTRL 4K558400 0BINARY CARD ID. MAPK0239| 37745 4500 00 0 37752 CAL L.AXT 4K558500| 37746 0074 00 1 41173 TSX RPAC2,1 PLACE (AXT 0,0) 4K558600| 37747 0074 00 1 41334 TSX P4215,1 PRINT OCTAL 4K558700| 37750 0074 00 1 41453 TSX PRCG,1 PRINT COMMENTARY 4K558800 37751 0020 00 0 36537 TRA 3R12 BACK FOR NEXT 4K558900| | 37752 0774 00 0 00000 L.AXT AXT ,0 4K559100| | 37753 4057 00 007700 RAC64D RIL 7700 COMPUTE 4K559300 37754 4046 00 0 00000 PIA REDUCED 4K559400| 37755 0402 00 0 37763 SUB RLORG OPERATION CODE 4K559500| 37756 4737 00 1 00000 PDC 0,1 4K559600| 37757 7 77774 1 40713 TXL RACERR,1,-4 ERROR IF NOT 4,5, OR 6 $5$4K559700| 37760 0522 00 1 37763 XEC RLORG,1 BRANCH TO PROCESS TYPE 4K559800 37761 4774 00 2 52230 AXC 2B,2 POSITION INDEX 2 4K559900| 37762 0020 00 0 36537 TRA 3R12 AND GO TO NEXT 4K560000| | 37763 040003000000 RLORG OCT 040003000000 LORG TEST WORD 4K560200| 37764 0074 00 4 44513 TSX PRCPL,4 PRINT CONSTANT POOL 4K560300 37765 0074 00 4 44602 TSX PRLDR,4 PRINT LINKAGE DIRECTOR 4K560400| 37766 0020 00 0 37767 TRA LITORG LITORG $5$4K560401| | 37767 4046 00 0 00000 LITORG PIA $5$4K560403| 37770 0734 00 4 00000 PAX 0,4 NUMBER OF LITERALS $5$4K560404 37771 7 00000 4 40612 TXL RAC751,4,0 IF NO ENTRIES IN THIS POOL $5$4K560405| 37772 0020 00 0 40063 TRA R71A GO TO PROCESS $5$4K560409| | * DECIMAL SYMBOL DEFINITION PSEUDO OPS (EQU,SYN,MAX,MIN) 4K560600| 0BINARY CARD ID. MAPK0240| 37773 4625 00 0 41754 RAC65 STL BGNTSW 4K560800| 37774 4625 00 0 37016 STL SNND 4K560900| 37775 0020 00 0 36512 TRA 3R4 4K561000| 37776 0600 00 0 41754 STZ BGNTSW 4K561100 37777 4500 00 0 41763 CAL REVT+3 SAVE $4$4K561200| 40000 4320 00 0 21705 ANA L(1) RELATIVE $4$4K561300| 40001 0767 00 0 00017 ALS 15 INDICATION $4$4K561400| 40002 0625 00 0 31553 STT RELTST USED BY DEBUGGING $4$4K561500| 40003 0441 00 0 52230 LDI 2B IF EQU 4K561600 40004 4054 00 000007 LFT 7 OR SYN 4K561700| 40005 0020 00 0 40010 TRA *+3 4K561800| 40006 0074 00 1 37543 TSX FIELDS,1 TEST SUBFIELD 4K561900| 1 IBMAPV IBMAPK 12/01/64 PAGE 487 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 40007 7 00001 4 40010 TXL *+1,4,1 COUNT 4K562000| 40010 4046 00 0 00000 PIA ANY ENTRY $4$4K562100| 40011 0054 00 100000 RFT 100000 IN PSEUDO OP DICT $4$4K562200| 40012 0020 00 0 40025 TRA RAC65A NO, CONSTANT $4$4K562300| 40013 0535 00 4 52230 LAC 2B,4 GET PSEUDO LOCATION 4K562400 40014 0441 00 4 00001 LDI 1,4 TEST IF PSEUDO OP HAS 4K562500| 40015 4056 00 700000 LNT 700000 BEEN DEFINED 4K562600| 40016 0020 00 0 40020 TRA *+2 IF NOT PRINT WARNING 4K562700| 40017 0020 00 0 40023 TRA R65A ELSE GO TO 'R65A' 4K562800| 40020 0074 00 1 37536 R65AA TSX PUNDEF,1 PRINT WARNING MESSAGE $4$4K562900 0BINARY CARD ID. MAPK0241| 40021 4500 00 0 27741 CAL BLANX AND DATA WORD. 4K563000| 40022 0020 00 0 40030 TRA RA65 PRINT OCTAL TRANSLATION 4K563100| 40023 4500 00 4 00001 R65A CAL 1,4 GET DEFINITION FROM DECREMENT 4K563200| 40024 0771 00 0 00022 ARS 18 OF SECOND WORD. 4K563300 40025 0734 00 1 00000 RAC65A PAX 0,1 SAVE IN CASE $4$4K563400| 40026 4634 00 1 30775 SXD SB02,1 DEBUGGING TYPE $4$4K563500| 40027 0074 00 1 41100 TSX LRBCD,1 CONVERT TO OCTAL AND $4$4K563600| 40030 0602 00 0 41531 RA65 SLW XBUF+2 STORE IN 'XBUF' +2 4K563700| 40031 0560 00 0 27741 LDQ BLANX SET LEFT HALF OF DATA WORD 4K563800 40032 4600 00 0 41530 STQ XBUF+1 TO BLANKS 4K563900| 40033 0074 00 1 36615 TSX 3R16L,1 PRINT OCTAL INSTRUCTION 4K564000| 40034 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION' 4K564100| | * BOOLEAN SYMBOL DEFINITION PSEUDO OPS (BOOL,LBOOL,RBOOL) 4K564300 | 40035 4625 00 0 37016 RAC66 STL SNND TRANSMIT 4K564500| 40036 0020 00 0 36512 TRA 3R4 VARIABLE FIELD 4K564600| 40037 0074 00 1 37543 TSX FIELDS,1 TEST SUBFIELD 4K564700| 40040 7 00001 4 40041 TXL *+1,4,1 COUNT 4K564800 40041 0535 00 4 52230 LAC 2B,4 PICK UP PSDICT $4$4K564900| 40042 0441 00 4 00001 LDI 1,4 LOCN AND TEST $4$4K565000| 40043 4056 00 700000 LNT 700000 FOR OPN DEFINED $4$4K565100| 40044 0020 00 0 40020 TRA R65AA $4$4K565200| 40045 4500 00 4 00002 CAL 2,4 IF SO, CONVERT VALUE $4$4K565300 40046 4765 00 0 00022 LGR 18 $4$4K565400| 0BINARY CARD ID. MAPK0242| 40047 0074 00 1 41103 TSX RBCD,1 IN DICT AND STORE $4$4K565500| 40050 0602 00 0 41531 SLW XBUF+2 FOR PRINT $4$4K565600| 40051 0074 00 1 37133 TSX RA45B,1 GO TO CHECK FOR $4$4K565700 40052 0020 00 0 40031 TRA RA65+1 MIXED BOOL OR $4$4K565800| 40053 0020 00 0 40031 TRA RA65+1 ILLEGAL OPERANDS $4$4K565900| | * DATA GENERATING PSEUDO OPS (OCT,DEC,LIT,VFD) 4K566100| 40054 4046 00 0 00000 RAC71 PIA OPERATION TO ACCUM $4$4K566300| 40055 4054 00 000004 LFT 4 TEST FOR 'VFD' $4$4K566400| 40056 0020 00 0 40110 TRA RAC71E IF SO GO TO 'RAC71' 4K566500| 40057 4056 00 000003 LNT 3 TEST FOR 'LIT' 4K566600| 40060 0020 00 0 40062 TRA *+2 IF NOT GO TO *+2 4K566700 40061 0020 00 0 40101 TRA RAC71D ELSE GO TO 'RAC71D' 4K566800| 40062 0734 00 4 00000 PAX 0,4 TOTAL COUNT $4$4K566900| 40063 0634 00 4 40076 R71A SXA R71B,4 SAVE REMAINDER COUNT $4$4K567000| 40064 0074 00 4 36561 TSX 3R15,4 GET NEXT WORD $4$4K567100| 1 IBMAPV IBMAPK 12/01/64 PAGE 488 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 40065 0074 00 1 36604 TSX 3R16F,1 BUMP LOCATION COUNTER $4$4K567200| 40066 4500 00 0 43442 CAL L(20) STORE CONSTANT $4$4K567300| 40067 0602 00 0 43445 SLW PCTRL CONTROL GROUP IN 'PCTRL' $4$4K567400| 40070 4046 00 0 00000 PIA GET DATA WORD $4$4K567500 40071 0074 00 1 41173 TSX RPAC2,1 PRINT ERROR, $4$4K567600| 40072 0074 00 1 41410 TSX P12,1 LOC CTR, DATA WORD $4$4K567700| 40073 0074 00 1 41453 TSX PRCG,1 AND COMMENTARY $4$4K567800| 40074 0520 00 0 40730 ZET RTITLE IF TITLE IS ON, SUPPRESS $4$4K567900| 0BINARY CARD ID. MAPK0243 40075 4625 00 0 21456 STL KLPRNT PRINTING TO NEXT OPN $4$4K568000| 40076 0774 00 4 00000 R71B AXT **,4 BACK FOR $4$4K568100| 40077 2 00001 4 40063 TIX R71A,4,1 NEXT $4$4K568200| 40100 0020 00 0 36537 TRA 3R12 NONE LEFT $4$4K568300| | * LIT 4K568600| | 40101 0600 00 0 37012 RAC71D STZ ROP EQUALS REPLACEMENT OK $5$4K568800| 40102 4625 00 0 37016 STL SNND EVALUATE $5$4K568850 40103 0020 00 0 36513 TRA 3R4+1 VARIABLE FIELD $5$4K568900| 40104 0074 00 1 37543 TSX FIELDS,1 $5$4K568910| 40105 7 00001 4 40106 TXL *+1,4,1 $5$4K568920| 40106 4500 00 0 52430 CAL TEMP VARIABLE FIELD VALUE $5$4K568930| 40107 0020 00 0 40025 TRA RAC65A $5$4K569000 | * VFD 4K569200| | 40110 4046 00 0 00000 RAC71E PIA STORE TOTAL MUMBER OF WORDS USED 4K569400| 40111 0621 00 0 40251 STA R71E9 BY 'VFD' IN 'R71E9' 4K569500 40112 4625 00 0 40436 STL RVFD SET VFD IN OPERATION $4$4K569600| 40113 0600 00 0 37012 R71E STZ ROP SET OK FOR EQU REPLACEMENT $4$4K569700| 40114 0074 00 4 36561 TSX 3R15,4 GET SUBFIELD TYPE $4$4K569800| 40115 0604 00 0 52230 STI 2B AND SAVE $4$4K569900| 40116 4774 00 2 52231 AXC 2B+1,2 SET TEXT TARGET $4$4K570000 40117 4056 00 100000 LNT 100000 IF NOT SYMBOLIC, $4$4K570100| 40120 0020 00 0 40174 TRA HOCT MUST BE HOLLERITH OR OCTAL $4$4K570200| 40121 0074 00 1 40144 TSX R71EE,1 BRING IN $4$4K570300| 40122 4054 00 007700 LFT 007700 VARIABLE FIELD $4$4K570400| 0BINARY CARD ID. MAPK0244 40123 1 77777 2 40145 TXI R71EE+1,2,-1 $5$4K570500| 40124 0600 00 2 00001 STZ 1,2 STORE TRAILING ZERO 4K570600| 40125 0520 00 0 44373 ZET DEQU WAS ANYTHING DEFINED BY AN 'EQU' 4K570700| 40126 0074 00 1 36770 TSX 3R16Q,1 IF SO REVISE 'T2' VARIABLE FIELD 4K570800| 40127 4774 00 2 52231 AXC 2B+1,2 LOCATE FIRST WORD OF VARIABLE FIELD 4K570900 40130 0074 00 4 41547 TSX REV,4 EVALUATE 4K571000| 40131 0 00000 2 00000 PZE 0,2 VARIABLE FIELD 4K571100| 40132 0074 00 4 40324 TSX RLDZ,4 STORE LEADING ZEROES IF REQUIRED 4K571200| 40133 0500 00 0 41763 CLA REVT+3 TEST CONTROL GROUP 4K571300| 40134 4320 00 0 21727 ANA MSKLO FOR VARIABLE FIELD 4K571400 40135 0520 00 0 21426 ZET SWABS TEST FOR 'ABSMOD' 4K571500| 40136 0020 00 0 40232 TRA R71E7 IF SO TRANSFER 4K571600| 40137 4340 00 0 21705 LAS L(1) GO TO PROPER SUBROUTINE 4K571700| 40140 0020 00 0 40164 TRA CMSYM FIELD IS COMPLEX 4K571800| 40141 0020 00 0 40160 TRA RSYM FIELD IS RELATIVE 4K571900 1 IBMAPV IBMAPK 12/01/64 PAGE 489 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 | 40142 0560 00 0 40437 CSYM LDQ RCCG GET CONSTANT CONTROL GROUP BITS 4K572100| 40143 0020 00 0 40232 TRA R71E7 PRINT AND PUNCH DATA AND CONTROL 4K572200 | SPECIAL VFD WORD FETCH $4$4K572400| 40144 0634 00 1 40156 R71EE SXA R71EEE,1 $5$4K572500| 40145 0522 00 0 36537 XEC 3R12 $5$4K572510| 40146 2 00001 4 40150 TIX *+2,4,1 COUNT PREVIOUS $4$4K572600 40147 1 40147 4 36406 TXI RTXT2,4,* WORD $4$4K572700| 40150 0634 00 4 36537 SXA 3R12,4 SAVE POSITION $4$4K572800| 0BINARY CARD ID. MAPK0245| 40151 0441 60 0 36471 LDI* OPB FETCH TEXT $4$4K572900| 40152 0604 00 2 00000 STI 0,2 AND STORE $4$4K573000 40153 4054 00 770000 LFT 770000 CHECK IF 00 TYPE $5$4K573100| 40154 0074 00 4 36716 TSX 3R16M,4 NO, PROCESS OTHER TYPES $5$4K573200| 40155 0074 00 4 36733 TSX 3RMA,4 $5$4K573300| 40156 0774 00 1 00000 R71EEE AXT **,1 $5$4K573400| 40157 0020 00 1 00001 TRA 1,1 $4$4K573600 | 40160 0560 00 0 40440 RSYM LDQ RRCG GET RELATIVE CONTROL GROUP BITS 4K573800| 40161 0520 00 0 41772 ZET CDR TEST FOR CONTROL DICTIONARY REFERENCE4K573900| 40162 0560 00 0 40441 LDQ RCMCG IF SO USE COMPLEX CONTROL GROUP 4K574000| 40163 0020 00 0 40232 TRA R71E7 PRINT AND PUNCH DATA AND CONTROL 4K574100 | 40164 0560 00 0 40441 CMSYM LDQ RCMCG GET COMPLEX CONTROL GROUP BITS 4K574300| 40165 0500 00 0 52230 CLA 2B GET SUBFIELD BIT COUNT 4K574400| 40166 0767 00 0 00036 ALS 30 AND SHIFT INTO PREFIX 4K574500| 40167 0520 00 0 21426 ZET SWABS TEST FOR ABSMOD 4K574600 40170 0074 00 4 40352 TSX GFIT,4 4K574700| 40171 0074 00 4 40262 TSX PPVFD,4 PRINT AND PUNCH DATA AND CONTROL 4K574800| 40172 0074 00 4 43223 TSX RCMA,4 EXPAND COMPLEX FIELD 4K574900| 40173 0020 00 0 40240 TRA R71E8 PROCESS NEXT SUBFIELD 4K575000| 40174 0054 00 700000 HOCT RFT 700000 TEST IF VARIABLE FIELD IS 'TZ' 4K575200| 40175 0020 00 0 40216 TRA SOCT IF SO GO TO 'SOCT 4K575300| 40176 0600 00 0 40323 STZ PPVFDF SET INDICATOR $4$4K575400| 0BINARY CARD ID. MAPK0246| 40177 4054 00 007700 LFT 007700 FOR LAST $4$4K575500 40200 0604 00 0 40323 STI PPVFDF FIELD $4$4K575600| 40201 0074 00 1 40144 HOCTA TSX R71EE,1 FETCH NEXT WORD $4$4K575700| 40202 4046 00 0 00000 PIA GET DATA WORD 4K575800| 40203 4054 00 377777 LFT 377777 TEST FOR 0 BIT COUNT 4K575900| 40204 0020 00 0 40206 TRA *+2 IF NOT TRANSFER 4K576000 40205 4500 00 0 43157 CAL L(MZE) 4K576100| 40206 0560 00 0 40437 LDQ RCCG GET CONSTANT CONTROL GROUP BITS 4K576200| 40207 0520 00 0 21426 ZET SWABS TEST FOR ABSOLUTE ASSEMBLY 4K576300| 40210 0074 00 4 40352 TSX GFIT,4 IF SO PRINT AND PUNH ABSLUTE 4K576400| 40211 0074 00 4 40320 TSX PPV92,4 PRINT AND PUNCH DATA AND CONTROL 4K576500 40212 0441 00 2 00000 LDI 0,2 RESTORE INDICATORS 4K576600| 40213 4056 00 400000 LNT 400000 TEST FOR LAST WORD OF SUB FIELD 4K576700| 40214 1 77777 2 40201 TXI HOCTA,2,-1 $4$4K576800| 40215 0020 00 0 40240 TRA R71E8 PROCESS NEXT SUB FIELD 4K576900| 40216 0074 00 4 40324 SOCT TSX RLDZ,4 STORE REQUIRED LEADING ZEROS 4K577100| 1 IBMAPV IBMAPK 12/01/64 PAGE 490 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 40217 4774 00 2 52231 AXC 2B+1,2 4K577200| 40220 0074 00 1 40144 TSX R71EE,1 BRING IN $4$4K577300 40221 4054 00 007700 LFT 007700 COMPLETE $4$4K577400| 40222 1 77777 2 40145 TXI R71EE+1,2,-1 VAR FIELD $5$4K577500| 40223 0600 00 2 00001 STZ 1,2 STORE TRAILING ZERO 4K577600| 40224 4774 00 2 52230 AXC 2B,2 EVALUATE $4$4K577700| 0BINARY CARD ID. MAPK0247 40225 0074 00 4 41547 TSX REV,4 VARIABLE FIELD $4$4K577800| 40226 0 00000 2 00001 PZE 1,2 AND GO TO $4$4K577900| 40227 0074 00 1 37133 TSX RA45B,1 CHECK BOOLEAN $4$4K578000| 40230 0020 00 0 40231 TRA *+1 $4$4K578100| 40231 0560 00 0 40437 LDQ RCCG GET CONSTANT CONTROL GROUP 4K578200 | 40232 0500 00 0 52230 R71E7 CLA 2B GET SUBFIELD BIT COUNT 4K578400| 40233 0767 00 0 00036 ALS 30 AND SHIFT INTO PREFIX 4K578500| 40234 0361 00 0 41760 ACL REVT ADD VALUE OF VARIABLE FIELD 4K578600| 40235 0520 00 0 21426 ZET SWABS TEST FOR ABSMOD 4K578700 40236 0074 00 4 40352 TSX GFIT,4 4K578800| 40237 0074 00 4 40262 TSX PPVFD,4 PRINT AND PUNCH CONTROL AND DATA 4K578900| 40240 0441 00 0 52230 R71E8 LDI 2B TEST FOR 4K579000| 40241 4774 00 2 52230 AXC 2B,2 4K579100| 40242 4054 00 007700 LFT 007700 LAST SUB FIELD 4K579200 40243 0020 00 0 40113 TRA R71E IF NOT PROCESS NEXT SUB FIELD 4K579300| 40244 0600 00 0 40436 STZ RVFD RESET 'VFD' INDICATOR 4K579400| 40245 4520 00 0 21426 NZT SWABS TEST FOR ABSOLUTE ASSEMBLY 4K579500| 40246 0020 00 0 40251 TRA R71E9 IF NOT BUMP LOCATION COUNTER 4K579600| 40247 0074 00 4 40414 TSX GFIT2,4 ELSE PRINT AND PUNCH REMAINING BITS 4K579700 40250 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K579800| 40251 0774 00 1 00000 R71E9 AXT **,1 TOTAL 'VFD' WORD COUNT 4K579900| 40252 0520 00 0 21426 ZET SWABS TEST FOR 'ABSMOD' 4K580000| 0BINARY CARD ID. MAPK0248| 40253 0020 00 0 36537 TRA 3R12 IF SO PROCESS NEXT INSTRUCTION 4K580100 40254 0754 00 1 00000 PXA ,1 BUMP LOCATION COUNTER 4K580200| 40255 0361 60 0 37013 ACL* RCTR BY TOTAL 4K580300| 40256 0621 60 0 37013 STA* RCTR WORD COINT 4K580400| 40257 0621 00 0 36373 STA RLOC STORE LOCATION COUNTER VALUE IN RLOC 4K580500| 40260 0074 00 1 41511 TSX PRCG3,1 4K580600 40261 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K580700| | 40262 0760 00 0 00003 PPVFD SSP 4K580900| 40263 0441 00 0 52230 LDI 2B TEST FOR LAST WORD IN 4K581000| 40264 4054 00 007700 LFT 007700 STRING. 4K581100 40265 0020 00 0 40267 TRA *+2 IF NOT, STRIP SIGN BIT 4K581200| 40266 4760 00 0 00003 SSM IFYES, ATTACH MINUS SIGN. 4K581300| 40267 0601 00 0 30676 PPV9 STO RDATA SAVE DATA WORD 4K581400| 40270 4600 00 0 43445 STQ PCTRL SAVE CONTROL GROUP 4K581500| 40271 0634 00 4 40314 SXA PPV5,4 SAVE RETURN ADDRESS 4K581600 40272 4520 00 0 21426 NZT SWABS CHECK FOR ABSMOD 4K581700| 40273 0020 00 0 40276 TRA *+3 NO 4K581800| 40274 0074 00 1 36604 TSX 3R16F,1 YES - BUMP LOCATION COUNTER 4K581900| 40275 0020 00 0 40306 TRA PPV3 4K582000| 40276 0520 00 0 37453 ZET NCOM TEST SWITCH 4K582100 40277 0020 00 0 40304 TRA PPV2 OFF 4K582200| 40300 4500 60 0 37013 CAL* RCTR ON, GET LOCATION COUNTER 4K582300| 1 IBMAPV IBMAPK 12/01/64 PAGE 491 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0BINARY CARD ID. MAPK0249 40301 0074 00 1 41100 TSX LRBCD,1 CONVERT TO OCTAL 4K582400| 40302 0602 00 0 41527 SLW XBUF STORE FOR PRINT 4K582500| 40303 0020 00 0 40306 TRA PPV3 4K582600| 40304 4500 00 0 27741 PPV2 CAL BLANX STORE BLANKS TO BE PRINTED 4K582700| 40305 0602 00 0 41527 SLW XBUF IN PLACE OF LOCATION 4K582800 40306 4500 00 0 30676 PPV3 CAL RDATA $4$4K582900| 40307 0074 00 1 41173 TSX RPAC2,1 PRINT ERROR, $4$4K583000| 40310 0074 00 1 41410 TSX P12,1 LOC CTR, DATA WORD $4$4K583100| 40311 0074 00 1 41453 TSX PRCG,1 AND COMMENTARY $4$4K583200| 40312 0520 00 0 40730 ZET RTITLE IF TITLE IS ON SUPPRESS $4$4K583300 40313 4625 00 0 21456 STL KLPRNT PRINTING TO NEXT OPN $4$4K583400| 40314 0774 00 4 00000 PPV5 AXT **,4 RESET INDEX 4 4K583500| 40315 0020 00 4 00001 TRA 1,4 AND RETURN 4K583600| 40316 0602 00 0 30676 PPV91 SLW RDATA 4K583700| 40317 0020 00 0 40270 TRA PPV9+1 4K583800 40320 0520 00 0 40323 PPV92 ZET PPVFDF 4K583900| 40321 0020 00 0 40267 TRA PPV9 4K584000| 40322 0020 00 0 40316 TRA PPV91 4K584100| 40323 0 00000 0 00000 PPVFDF PZE 4K584200| 40324 0634 00 4 40350 RLDZ SXA RLDEX,4 SAVE RETURN ADDRESS 4K584400| 40325 0534 00 2 52230 LXA 2B,2 TEST BINARY BIT COUNT 4K584500| 40326 3 00036 2 40330 TXH *+2,2,30 TEST BINARY BIT COUNT 4K584600| 0BINARY CARD ID. MAPK0250| 40327 1 00040 2 40347 TXI RLD3,2,32 MAKE NEGATIVE IF 30 OR LESS 4K584700 40330 1 77742 2 40331 TXI *+1,2,-30 REDUCE COUNT BY 30 4K584800| 40331 7 00036 2 40340 TXL RLD2,2,30 TRANSFER IF 30 OR LESS 4K584900| 40332 0500 00 0 40442 CLA 36BZ PRINT AND PUNCH 4K585000| 40333 0560 00 0 40437 LDQ RCCG 30 BITS 4K585100| 40334 0520 00 0 21426 ZET SWABS TEST FOR ABSMOD 4K585200 40335 0074 00 4 40352 TSX GFIT,4 4K585300| 40336 0074 00 4 40267 TSX PPV9,4 PRINT AND PUNCH DATA AND CONTROL 4K585400| 40337 1 77742 2 40331 TXI *-6,2,-30 4K585500| 40340 0754 00 2 00000 RLD2 PXA ,2 SHIFT REMAINING BIT COUNT 4K585600| 40341 0767 00 0 00036 ALS 30 INTO PREFIX 4K585700 40342 0560 00 0 40437 LDQ RCCG GET CONSTANT CONTROL GROUP 4K585800| 40343 0520 00 0 21426 ZET SWABS TEST FOR ABSMOD 4K585900| 40344 0074 00 4 40352 TSX GFIT,4 4K586000| 40345 0074 00 4 40267 TSX PPV9,4 PRINT AND PUNCH DATA AND CONTROL 4K586100| 40346 0774 00 2 00036 AXT 30,2 STORE REMAINING BIT 4K586200 40347 0634 00 2 52230 RLD3 SXA 2B,2 IN '2B' 4K586300| 40350 0774 00 4 00000 RLDEX AXT **,4 RESTORE INDEX 4 4K586400| 40351 0020 00 4 00001 TRA 1,4 AND RETURN 4K586500| | * ABSOLUTE PACK, VFD 4K586700 40352 0634 00 1 40402 GFIT SXA GSX1,1 SAVE INDEX REGS. 4K586800| 40353 0634 00 4 40403 SXA GSX4,4 4K586900| 40354 0131 00 0 00000 XCA WORD TO MQ 4K587000| 0BINARY CARD ID. MAPK0251| 40355 4754 00 0 00000 PXD 0,0 ZERO AC 4K587100 40356 0763 00 0 00005 LLS 5 SHIFT IN BIT COUNT 4K587200| 40357 0734 00 1 00000 PAX ,1 4K587300| 40360 0601 00 0 40435 STO GFITSW SET SWITCH 4K587400| 1 IBMAPV IBMAPK 12/01/64 PAGE 492 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 40361 4763 00 1 00037 LGL 31,1 LEFT JUSTIFY IN MQ 4K587500| 40362 4500 00 0 40434 CAL GFIT4 PREVIOUS UNPACKED WORD 4K587600| 40363 0634 00 1 40405 SXA GO4,1 SAVE CURRENT BIT COUNT 4K587700| 40364 1 00000 1 40365 GO2 TXI *+1,1,** 4K587800| 40365 6 00044 1 40405 TNX GO4,1,36 CURRENT COUNT+PREVIOUS SUM 4K587900 40366 0634 00 1 40376 SXA GO1,1 IS COUNT GREATER THAN 36 4K588000| 40367 0774 00 1 00000 GO3 AXT **,1 YES, LOAD WITH PREV. SUM COUNT 4K588100| 40370 4763 00 1 00044 LGL 36,1 SHIFT 36-PREV. 4K588200| 40371 4600 00 0 40434 STQ GFIT4 SAVE MQ 4K588300| 40372 0560 00 0 40433 LDQ GFIT3 ZERO TO MQ 4K588400 40373 0074 00 4 40316 TSX PPV91,4 4K588500| 40374 0534 00 1 40376 LXA GO1,1 CURRENT SUM - 36 TO X1 4K588600| 40375 0560 00 0 40434 LDQ GFIT4 4K588700| 40376 4763 00 0 00000 GO1 LGL ** 4K588800| 40377 0602 00 0 40434 GO5 SLW GFIT4 SAVE TO CONTINUE PACKING 4K588900 40400 4634 00 1 40364 GO6 SXD GO2,1 SET COUNT FOR NEXT ROUND 4K589000| 40401 0634 00 1 40367 SXA GO3,1 4K589100| 40402 0774 00 1 00000 GSX1 AXT **,1 4K589200| 0BINARY CARD ID. MAPK0252| 40403 0774 00 4 00000 GSX4 AXT **,4 4K589300 40404 0020 00 4 00002 TRA 2,4 RETURN TO ROCK MPB 4K589400| 40405 4763 00 0 00000 GO4 LGL ** 4K589500| 40406 7 00043 1 40377 TXL GO5,1,35 IS COUNT EXACTLY 36. 4K589600| 40407 0600 00 0 40434 STZ GFIT4 YES 4K589700| 40410 0560 00 0 40433 LDQ GFIT3 4K589800 40411 0074 00 4 40316 TSX PPV91,4 4K589900| 40412 0774 00 1 00000 AXT 0,1 ZERO COUNT 4K590000| 40413 0020 00 0 40400 TRA GO6 4K590100| 40414 0634 00 4 40431 GFIT2 SXA GO7,4 4K590200| 40415 4534 00 4 40364 LXD GO2,4 LOAD COUNT 4K590300 40416 4520 00 0 40435 NZT GFITSW TEST SWITCH 4K590400| 40417 7 00000 4 40422 TXL *+3,4,0 IF OFF 4K590500| 40420 7 00000 4 40431 TXL GO7,4,0 IS COUNT ZERO 4K590600| 40421 4500 00 0 40434 CAL GFIT4 4K590700| 40422 0767 00 4 00044 ALS 36,4 LEFT ADJUST 4K590800 40423 0560 00 0 40433 LDQ GFIT3 ZERO MQ 4K590900| 40424 0074 00 4 40316 TSX PPV91,4 4K591000| 40425 0760 00 0 00000 CLM 4K591100| 40426 0622 00 0 40364 STD GO2 ZERO COUNTS 4K591200| 40427 0621 00 0 40367 STA GO3 4K591300 40430 0601 00 0 40434 STO GFIT4 ZERO UNPACKED WORD 4K591400| 0BINARY CARD ID. MAPK0253| 40431 0774 00 4 00000 GO7 AXT **,4 4K591500| 40432 0020 00 4 00001 TRA 1,4 4K591600| 40433 0 00000 0 40433 GFIT3 PZE GFIT3 4K591700 40434 0 00000 0 00000 GFIT4 PZE TEMPORARY STORAGE 4K591800| 40435 0 00000 0 40435 GFITSW PZE * ZERO SWITCH 4K591900| | 40436 0 00000 0 00000 RVFD PZE 0 'VFD' INDICATOR 4K592100| 40437 000000000010 RCCG OCT 10 CONSTANT CONTROL GROUP 4K592200 40440 000000000011 RRCG OCT 11 RELATIVE CONTROL GROUP 4K592300| 40441 000000000013 RCMCG OCT 13 COMPLEX CONTROL GROUP 4K592400| 40442 360000000000 36BZ OCT 360000000000 4K592500| | 1 IBMAPV IBMAPK 12/01/64 PAGE 493 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 | * NON-GENERATIVE PSEUDO OPS (QUAL,ENDQ,CONTROL,FILE,ENTRY) 4K592800| | * QUAL 4K593000 | 40443 4054 00 000007 RAC72 LFT 7 'QUAL' 72---0 4K593200| 40444 0020 00 0 40452 TRA R72A IF NOT GO TO 'R72A' 4K593300| 40445 0774 00 4 00000 RAC72A AXT **,4 POSITION OF LAST ENTRY 4K593400| 40446 1 77777 4 40447 TXI *+1,4,-1 LOCATION POSITION 4K593500 40447 0634 00 4 40445 SXA RAC72A,4 OF NEXT ENTRY 4K593600| 40450 0604 00 4 36240 STI PDLIST,4 STORE NEXT ENTRY IN LIST 4K593700| 40451 0020 00 0 40603 TRA R75B2 PRINT CARD 4K593800| | * ENDQ 4K594000 | 40452 4054 00 000006 R72A LFT 6 'ENDQ' 72---1 4K594200| 40453 0020 00 0 40461 TRA R72C CONTROL OR ENTRY (6)4K594300| 40454 0522 00 0 40445 XEC RAC72A ERASE LAST ENTRY 4K594400| 40455 0600 00 4 36240 STZ PDLIST,4 FROM PUSH DOWN LIST 4K594500 40456 1 00001 4 40457 TXI *+1,4,1 SET POINTER TO 4K594600| 0BINARY CARD ID. MAPK0254| 40457 0634 00 4 40445 SXA RAC72A,4 NEW LAST ENTRY 4K594700| 40460 0020 00 0 40603 TRA R75B2 PRINT CARD 4K594800| * CONTROL AND ENTRY (6)4K594820| | 40461 4625 00 0 41754 R72C STL BGNTSW SECOND FIELD RELOCATABLE IS O.K. (6)4K594840| 40462 4625 00 0 43160 STL PVRT PREVENT CREATION OF NEW VIRTUALS (6)4K594850| 40463 4625 00 0 37016 STL SNND TRANSMIT (6)4K594860 40464 0020 00 0 36512 TRA 3R4 VARIABLE FIELD (6)4K594870| 40465 0600 00 0 43160 STZ PVRT RESET SWITCHES (6)4K594880| 40466 0600 00 0 41754 STZ BGNTSW (6)4K594890| 40467 0500 00 2 00000 CLA 0,2 SAVE EXTERNAL NAME POINTER (6)4K594900| 40470 0621 00 0 35017 STA FC.TM FOR POSSIBLE ERROR MESSAGE (6)4K594910 40471 0767 00 0 00017 ALS 15 POSITION FOR CHECK AGAINST TABLE (6)4K594920| 40472 0074 00 4 44742 TSX SRCST,4 AND PERFORM SEARCH (6)4K594930| 40473 0020 00 0 40477 TRA R72NF NOT FOUND (6)4K594940| 40474 0500 00 2 00000 CLA 0,2 PICK UP STARTING VALUE (6)4K594950| 40475 4774 00 2 52230 AXC 2B,2 RESTORE T2 DESTINATION POINTER (6)4K594960 40476 0020 00 0 40027 TRA RA65-1 PRINT CSECT START WITH CARD IMAGE (6)4K594970| | 40477 0074 00 4 25576 R72NF TSX ERPR,4 'CDICT ENTRY ELIMINATED. IMPROPER (6)4K594990| 40500 0 35016 2 00111 MSS045,NOGO,FC.TM-1 REFERENCE' (6)4K594992| 40501 4774 00 2 52230 AXC 2B,2 RESTORE T2 DESTINATION POINTER (6)4K594994 40502 0020 00 0 40603 TRA R75B2 PRINT AS REMARK CARD (6)4K594996| 1 IBMAPV IBMAPK 12/01/64 PAGE 494 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0| * ABSOLUTE ASSEMBLY PSEUDO OPS (ABS,FUL,TCD,PUNCH,UNPNCH) 4K595000 | 40503 4054 00 000007 RAC73 LFT 7 TEST FOR 'ABS' 4K595200| 40504 0020 00 0 40510 TRA R73B IF NOT GO TO 'R73B' 4K595300| | * ABS 4K595500 | 0BINARY CARD ID. MAPK0255| 40505 0074 00 4 30332 TSX PLAST,4 EMPTY PUNCH BUFFER 4K595700| 40506 0500 00 0 21705 CLA L(1) SET PUNCH MPDE SWITCH 4K595800| 40507 1 77704 4 30311 TXI PUINIW,4,*-R75B2 AND EXIT TO PRINT 4K595900 | 40510 4054 00 000006 R73B LFT 6 TEST FOR 'FUL' 4K596100| 40511 0020 00 0 40515 TRA R73C IF NOT GO TO 'R73C' 4K596200| | * FUL 4K596400 | 40512 0074 00 4 30332 TSX PLAST,4 EMPTY PUNCH BUFFER 4K596600| 40513 0500 00 0 21706 CLA L(2) SET PUNCH MODE SWITCH 4K596700| 40514 1 77711 4 30311 TXI PUINIW,4,*-R75B2 AND EXIT TO PRINT 4K596800| 40515 4054 00 000005 R73C LFT 5 TEST FOR 'TCD' 4K597000| 40516 0020 00 0 40534 TRA R73D IF NOT GO TO 'R73D' 4K597100| | * TCD 4K597300| 40517 4625 00 0 37016 STL SNND STORE RETURN 4K597500| 40520 0020 00 0 36512 TRA 3R4 EVALUATE FIELD 4K597600| 40521 4625 00 0 40650 STL R75E SET RETURN 4K597700| 40522 0774 00 0 36537 AXT 3R12,0 AND GO TO 4K597800| 40523 0020 00 0 40623 TRA R75D PROCESS TRANSFER CARD 4K597900 | 40524 0074 00 4 30332 R73CC TSX PLAST,4 CLEAR PUNCH BUFFER 4K598100| 40525 0074 00 4 30331 TSX PUGAT,4 INITIALIZE CARD 4K598200| 40526 0500 00 0 30676 CLA RDATA SET TRANSFER ADDRESS 4K598300| 40527 0621 00 0 30642 STA ABS9L INTO 9 LEFT 4K598400 40530 4774 00 4 40532 AXC R73CD-1,4 4K598500| 40531 0634 00 4 30454 SXA PAB5,4 SET RETURN AND 4K598600| 40532 1 40532 4 30614 TXI PAB4C,4,R73CD-1 PUNCH ZERO WORD 4K598700| 0BINARY CARD ID. MAPK0256| 40533 0020 00 1 00001 R73CD TRA 1,1 TRANSFER CARD 4K598800 | 40534 4056 00 000003 R73D LNT 3 TEST FOR 'PUNCH' 4K599000| 40535 0020 00 0 40542 TRA R73E IF NOT GO TO 'R73E' 4K599100| | * PUNCH 4K599300 | 40536 0074 00 4 30332 TSX PLAST,4 CLEAR PUNCH BUFFER 4K599500| 40537 4520 00 0 21417 NZT CTNODK RESET PUNCH SWITCH 4K599600| 40540 0600 00 0 21263 STZ KLPNCH IF DECK WANTED 4K599700| 40541 0020 00 0 40603 TRA R75B2 GO TO PRINT 4K599800 | * UNPNCH 4K600000| 1 IBMAPV IBMAPK 12/01/64 PAGE 495 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 40542 0074 00 4 30332 R73E TSX PLAST,4 CLEAR PUNCH BUFFER 4K600200| 40543 4625 00 0 21263 STL KLPNCH SET NO PUNCH 4K600300| 40544 0020 00 0 40603 TRA R75B2 GO TO PRINT 4K600400| | * COMMENTARY 4K600600 | 40545 0500 00 0 36537 RAC74 CLA 3R7 COMPUTE 4K600800| 40546 4320 00 0 42225 ANA L18MSK THE BUFFER LOCATION OF THE 4K600900| 40547 0402 00 0 36471 SUB OPB FIRST WORD 4K601000| 40550 0402 00 0 21705 SUB L(1) OF COMMENTARY 4K601100 40551 0621 00 0 41507 STA RA74A STORE IN PRINT CALLING SEQUENCE 4K601200| 40552 0522 00 0 36537 XEC 3R7 COMPUTE POSITION 4K601300| 40553 4500 60 0 36471 CAL* OPB GET NUMBER OF WORDS 4K601400| 40554 0737 00 1 00000 PAC ,1 OF 4K601500| 40555 4634 00 1 40570 SXD R74A,1 COMMENTARY 4K601600 40556 4320 00 0 21723 ANA MSKAD MULTIPLY NUMBER 4K601700| 40557 0601 00 0 52430 STO TEMP OF WORDS OF 4K601800| 40560 0767 00 0 00002 ALS 2 COMMENTARY TO GET 4K601900| 0BINARY CARD ID. MAPK0257| 40561 0400 00 0 52430 ADD TEMP NUMBER OF 4K602000 40562 0400 00 0 52430 ADD TEMP CHARACTERS 4K602100| 40563 0734 00 1 00000 PAX ,1 IF CHARACTER COUNT 4K602200| 40564 7 00120 1 40566 TXL *+2,1,80 EXCEEDS 80 REDUCE 4K602300| 40565 0774 00 1 00120 AXT 80,1 TO 80. 4K602400| 40566 4634 00 1 41507 SXD RA74A,1 STORE CHARACTER COUNT 4K602500 40567 0634 00 1 41214 SXA RPACH,1 IN CASE 3PER MODE 4K602600| 40570 1 77762 4 40571 R74A TXI *+1,4,-14 OF LAST WORD OF COMMENTARY 4K602700| 40571 0634 00 4 36537 SXA 3R7,4 SAVE IN '3R7' 4K602800| 40572 0600 00 0 37453 STZ NCOM RESET COMMENTARY SWITCH 4K602900| 40573 0020 00 0 36537 TRA 3R12 CONTINUE PROCESSING INSTRUCTION 4K603000 40574 0 00000 0 00000 SHFSW PZE ** SECOND HALF SWITCH 4K603100| 40575 171717171717 OCT17 OCT 171717171717 4K603200| | * MISCELLANEOUS PSEUDO OPS (ETC. REM,NULL,END) 4K603400| 40576 4054 00 000007 RAC75 LFT 7 TEST FOR 'ETC' 4K603600| 40577 0020 00 0 40601 TRA RAC75B IF NOT GO TO 'RAC75B' 4K603700| | 40600 0020 00 0 40713 TRA RACERR -ETC SHOULD NOT OCCUR 4K603900| 40601 4054 00 000006 RAC75B LFT 6 TEST FOR 'REM' 4K604100| 40602 0020 00 0 40606 TRA RAC75C IF NOT GO TO 'RAC75C' 4K604200| | * REM 4K604400| 40603 0074 00 1 36662 R75B2 TSX 3R16P,1 SET UP 'BLINK' 4K604600| 40604 0074 00 1 36635 TSX 3R16K,1 PRINT COMMENTARY 4K604700| 40605 0020 00 0 36537 TRA 3R12 GO TO PROCESS NEXT INSTRUCTION 4K604800| | 40606 4054 00 000001 RAC75C LFT 1 TEST FOR 'NULL' OR 'KEEP' (6)4K605000 0BINARY CARD ID. MAPK0258| 40607 0020 00 0 40614 TRA RAC75D IF NOT GO TO 'RAC75D' 4K605100| | 1 IBMAPV IBMAPK 12/01/64 PAGE 496 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 | 40610 4054 00 000004 LFT 4 TEST FOR 'KEEP' (6)4K605120| 40611 0020 00 0 30776 TRA SK77A IF SO, MAKE DDICT ENTRIES (6)4K605130| | * NULL 4K605300 | 40612 4500 60 0 37013 RAC751 CAL* RCTR PRINT CURRENT VALUE OF LOCATION $5$4K605500| 40613 0020 00 0 40025 TRA RAC65A COUNTER AND COMMENTARY 4K605600| | * END 4K605800 | 40614 4625 00 0 40652 RAC75D STL NVC KILL CONTROL DICTIONARY PROCESSING 4K606000| 40615 0560 00 0 21420 LDQ CTLIST RESTORE PRINT TO $4$4K606100| 40616 4600 00 0 21456 STQ KLPRNT INITIAL CONDITIONS $4$4K606200| 40617 4625 00 0 37016 STL SNND SET UP RETURN 4K606300 40620 0020 00 0 36512 TRA 3R4 PROCESS VARIABLE FIELD 4K606400| 40621 4625 00 0 40650 STL R75E SET 4K606500| 40622 0774 00 0 41076 AXT REND,0 RETURN 4K606600| 40623 0074 00 1 37543 R75D TSX FIELDS,1 CHECK SUBFIELD 4K606700| 40624 7 00001 4 40625 TXL *+1,4,1 COUNT 4K606800 40625 4500 00 0 41760 CAL REVT GET VAR FIELD VALUE 4K606900| 40626 0602 00 0 30676 SLW RDATA 4K607000| 40627 0520 00 0 21426 ZET SWABS PUNCH TRANSFER CARD 4K607100| 40630 0074 00 1 40524 TSX R73CC,1 IF ABSMOD 4K607200| 40631 0520 00 0 41755 ZET 17TSW $4$4K607300 40632 0020 00 0 40653 TRA R75F1 $4$4K607400| 40633 4500 00 0 30676 R75F CAL RDATA $4$4K607500| 40634 0074 00 1 41100 TSX LRBCD,1 CONVERT TO OCTAL 4K607600| 0BINARY CARD ID. MAPK0259| 40635 0602 00 0 41531 SLW XBUF+2 AND STORE IN 'XBUF'+2 4K607700 40636 0560 00 0 27741 LDQ BLANKS SET LEFT HALF OF DATA 4K607800| 40637 4600 00 0 41530 STQ XBUF+1 WORD TO BLANK 4K607900| 40640 0500 00 0 40651 CLA L(17) STORE '01111' CONTROL GROUP 4K608000| 40641 0520 00 0 21426 ZET SWABS OR CLEAR GROUP IF 4K608100| 40642 0754 00 0 00000 PXA 0,0 ABSMOD ASSEMBLY 4K608200 40643 0601 00 0 43445 STO PCTRL IN 'PCTRL' 4K608300| 40644 0074 00 1 36615 TSX 3R16L,1 PRINT DATA WORD 4K608400| 40645 4520 00 0 21426 NZT SWABS IF NOT ABSMOD, 4K608500| 40646 0074 00 4 30332 TSX PLAST,4 PUNCH LAST CARD 4K608600| 40647 0600 00 0 30700 STZ PUNCTR RESET LOC DECREMENT (6)4K608610 40650 0020 60 0 00000 R75E TRA* ** EXIT 4K608700| 40651 000000000017 L(17) OCT 17 4K608800| 40652 0 00000 0 00000 NVC PZE 0 CONTROL DICTIONARY PROCESS SWITCH 4K608900| 40653 0074 00 4 25576 R75F1 TSX ERPR,4 VIRTUAL ILLEGAL $4$4K609000| 40654 0 00000 2 00010 PZE MSS008,NOGO IN -END- CARD $4$4K609100 40655 0020 00 0 40633 TRA R75F $4$4K609200| | * SPECIAL SYSTEM 4K609400| | 40656 4054 00 000007 RAC76 LFT 7 4K609600 40657 0020 00 0 40666 TRA R76A 4K609700| | 40660 4057 00 770000 RIL 770000 RESET ADJECTIVE CODE AND 4K609900| 40661 0604 00 0 30676 STI RDATA STORE AS DATA WORD 4K610000| 40662 0560 00 0 21706 LDQ L(2) STORE '00010' CONTROL GROUP 4K610100 1 IBMAPV IBMAPK 12/01/64 PAGE 497 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0BINARY CARD ID. MAPK0260| 40663 4500 60 0 37013 CAL* RCTR GET LOCATION FIELD 4K610200| 40664 0074 00 1 36572 TSX 3R162,1 PRINT AND PUNCH 4K610300 40665 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K610400| | 40666 0020 00 0 40713 R76A TRA RACERR -SAVE-SHOULD NOT OCCUR 4K610600| | * LIST CONTROL PSEUDO-OPERATIONS 4K610800| * 4K610900| | 40667 4046 00 0 00000 RAC77 PIA CLEAR UNWANTED CODES 4K611100| 40670 4320 00 0 40710 ANA R77W BRANCH TO PROCESS 4K611200 40671 4737 00 1 00000 PDC 0,1 BY OPERATION 4K611300| 40672 0020 00 1 40673 TRA *+1,1 4K611400| 40673 0020 00 0 40716 TRA R77B UNLIST 4K611500| 40674 0020 00 0 40723 TRA R77C LIST 4K611600| 40675 0020 00 0 40726 TRA R77D TITLE 4K611700 40676 0020 00 0 40731 TRA R77E DETAIL 4K611800| 40677 0020 00 0 40752 TRA R77G EJECT (6)4K611900| 40700 0020 00 0 40752 TRA R77G SPACE 4K612000| 40701 0020 00 0 40773 TRA R77H LBL 4K612100| 40702 0020 00 0 40603 TRA R75B2 PCC 4K612200 40703 0020 00 0 41004 TRA R77KA INDEX 4K612300| 40704 0020 00 0 40603 TRA R75B2 PMC 4K612400| 40705 0020 00 0 41056 TRA R77M TTL 4K612500| 40706 0020 00 0 41072 TRA R77N PCG 4K612600| 40707 0020 00 0 40603 TRA R75B2 MNOTE (6)4K612700 40710 3 00017 0 00000 R77W TXH 0,0,15 SHOULD NOT 4K612800| 0BINARY CARD ID. MAPK0261| 40711 0774 00 0 00000 AXT 0,0 OCCUR 4K612900| 40712 0774 00 0 00000 AXT 0,0 4K613000| 40713 0074 00 4 25576 RACERR TSX ERPR,4 'INTERNAL ERROR' 4K613100 40714 0 00000 4 00016 PZE WMS004,NONONO 4K613200| 40715 0020 00 0 40603 TRA R75B2 TREAT LIKE REM CARD 4K613300| | * UNLIST 4K613500| 40716 0074 00 1 36662 R77B TSX 3R16P,1 CONVERT ERROR CODE 4K613700| 40717 0074 00 1 36635 TSX 3R16K,1 PRINT COMMENTARY 4K613800| 40720 0500 00 0 37054 CLA T42N SET SEMI-PERMANENT $4$4K613900| 40721 0625 00 0 21456 STT KLPRNT UNLIST MODE $4$4K614000| 40722 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K614100 | * LIST 4K614300| | 40723 0754 00 0 00000 R77C PXA 0,0 CLEAR SEMI-PERMANENT $4$4K614500| 40724 0625 00 0 21456 STT KLPRNT UNLIST MODE $4$4K614600 40725 0020 00 0 40603 TRA R75B2 PRINT CARD 4K614700| | * TITLE 4K614900| | 40726 4625 00 0 40730 R77D STL RTITLE SET TITLE SWITCH 4K615100 40727 0020 00 0 40603 TRA R75B2 PRINT CARD 4K615200| 40730 0 00000 0 00000 RTITLE PZE 0 'TITLE' INDICATOR 4K615300| 1 IBMAPV IBMAPK 12/01/64 PAGE 498 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 * DETAIL 4K615500| | 40731 0600 00 0 40730 R77E STZ RTITLE RESET TITLE SWITCH 4K615700| 40732 0020 00 0 40603 TRA R75B2 PRINT CARD 4K615800| * EJECT 4K616000| | 40733 0500 00 0 41760 R77F CLA REVT GET VARIABLE (6)4K616200| 40734 0100 00 0 40742 TZE R77FB FIELD VALUE (6)4K616210| 40735 0402 00 0 21705 SUB L(1) IF NON-ZERO, SET (6)4K616220 40736 0074 00 4 00716 TSX .DECVA,4 AS NEW (6)4K616230| 0BINARY CARD ID. MAPK0262| 40737 4763 00 0 00052 LGL 42 PAGE (6)4K616240| 40740 4765 00 0 00006 LGR 6 NUMBER (6)4K616250| 40741 0602 60 0 21314 SLW* PAGNO (6)4K616260 40742 0074 00 4 25577 R77FB TSX PRINT,4 EJECT (6)4K616300| 40743 0020 00 0 40746 TRA R77FC (6)4K616400| 40744 0 00000 0 00001 PZE 1 TO 4K616500| 40745 1 00000 0 00000 PON 0 NEW PAGE 4K616600| 40746 0074 00 1 36662 R77FC TSX 3R16P,1 (6)4K616700 40747 4520 00 0 37453 NZT NCOM 4K616800| 40750 0074 00 1 36635 TSX 3R16K,1 PRINT IF 'PCC' IS ON. 4K616900| 40751 0020 00 0 36537 TRA 3R12 PROCESS NEXT INSTRUCTION 4K617000| | * SPACE 4K617200 | 40752 4625 00 0 37016 R77G STL SNND SET RETURN 4K617400| 40753 0020 00 0 36512 TRA 3R4 TRANSMIT VARIABLE FIELD 4K617500| 40754 0074 00 1 37543 TSX FIELDS,1 CHECK SUBFIELD 4K617600| 40755 7 00001 4 40756 TXL *+1,4,1 COUNT 4K617700 40756 0634 00 0 21456 ZSA KLPRNT CLEAR TEMPORARY NON-PRINT (6)4K617710| 40757 0441 00 0 52230 LDI 2B TEST FOR EJECT OPERATION (6)4K617800| 40760 4056 00 000001 LNT 1 EJECT IS 77---4, (6)4K617900| 40761 0020 00 0 40733 TRA R77F SPACE IS 77---5 (6)4K618000| 40762 0534 00 2 41760 LXA REVT,2 GET NUMBER SPACES $4$4K618100 40763 2 00400 2 40763 TIX *,2,SP.MAX PROTECT AGAINST HIGH COUNT $4$4K618200| 40764 0074 00 4 25577 R77GA TSX PRINT,4 PRINT 4K618300| 0BINARY CARD ID. MAPK0263| 40765 0020 00 0 40770 TRA *+3 ONE LINE $4$4K618400| 40766 0 00000 0 00001 PZE 1 OF BLANKS $4$4K618500 40767 0 00001 0 27741 PZE BLANKS,,1 $4$4K618600| 40770 2 00001 2 40764 TIX R77GA,2,1 IS SPACING COMPLETED 4K618700| 40771 4774 00 2 52230 AXC 2B,2 REPOSITION TARGET INDEX 4K618800| 40772 0020 00 0 40746 TRA R77FC PRINT CARD IF APPLICABLE (6)4K618900| 00400 SP.MAX EQU 256 MAX NUMBER SPACES $4$4K619000 | * LBL 4K619200| | 40773 0074 00 4 30332 R77H TSX PLAST,4 CLEAR PUNCH BUFFER (6)4K619400| 40774 4046 00 0 00000 PIA SET DIGIT COUNT (6)4K619420| 40775 0625 00 0 30430 STT LBLSW SET PRINT SWITCH 4K619500| 40776 0621 00 0 21442 STA CDDIG IN SEQUENCE NUMBER IN 'CDDIG' 4K619600| 1 IBMAPV IBMAPK 12/01/64 PAGE 499 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 40777 0074 00 4 36561 TSX 3R15,4 GET FIRST 6 CHARACTERS 4K619700| 41000 0604 00 0 21440 STI CDSEQ (6)4K619800| 41001 0074 00 4 36561 TSX 3R15,4 GET LAST 2 CHARACTERS 4K619900| 41002 0604 00 0 21441 STI CDSEQ+1 (6)4K620000| 41003 0020 00 0 40603 TRA R75B2 PRINT CARD (6)4K620100 | * INDEX 4K620300| | 41004 0074 00 1 36662 R77KA TSX 3R16P,1 CONVERT BLINK $4$4K620500| 41005 0074 00 1 36635 TSX 3R16K,1 PRINT COMMENTARY $4$4K620600 41006 0634 00 0 21456 SXA KLPRNT,0 CLEAR TEMP NO-PRINT $4$4K620700| 41007 0520 00 0 41052 ZET RNDEX $4$4K620800| 41010 0020 00 0 41017 TRA R77KB IF FIRST TIME, $4$4K620900| 41011 4625 00 0 41052 STL RNDEX PRINT HEADING $4$4K621000| 41012 0074 00 4 25577 TSX PRINT,4 'TABLE OF CONTENTS' $4$4K621100 0BINARY CARD ID. MAPK0264| 41013 0020 00 0 41017 TRA R77KB $4$4K621200| 41014 0 00000 0 00002 PZE 2 $4$4K621300| 41015 2 00046 1 27741 PTW BLANX,1,BBC+BALF+12 $4$4K621400| 41016 4 00003 0 41053 MZE R77KE,,3 $4$4K621500 41017 0074 00 4 25577 R77KB TSX PRINT,4 $4$4K621600| 41020 0020 00 0 41023 TRA *+3 $4$4K621700| 41021 0 00000 0 00001 PZE 1 INSERT $4$4K621800| 41022 0 00001 0 27741 PZE BLANX,,1 BLANK LINE $4$4K621900| 41023 4625 00 0 40652 STL NVC KILL COMPLEX MANIPULATION $4$4K622000 41024 4625 00 0 40436 STL RVFD VFD TYPE EVALUATION (20 BITS) $4$4K622100| 41025 0074 00 4 36561 R77KC TSX 3R15,4 FETCH NEXT WORD $4$4K622200| 41026 4051 00 570000 IIL 570000 $4$4K622300| 41027 4054 00 770000 LFT 770000 CONTINUE IF $4$4K622400| 41030 1 77777 2 41033 TXI R77KD,2,-1 NOT BLINK $4$4K622500 41031 0600 00 0 40652 STZ NVC OTHERWISE, $4$4K622600| 41032 0600 00 0 40436 STZ RVFD RESTORE CONDITIONS $4$4K622700| 41033 4051 00 570000 R77KD IIL 570000 RESTORE WORD $4$4K622800| 41034 4625 00 0 37016 STL SNND AND GET ENTIRE $4$4K622900| 41035 0020 00 0 36504 TRA 3R3.5 FIELD $4$4K623000 | RETURN HERE FOR EACH SUBFIELD $4$4K623200| 41036 0500 00 0 41760 CLA REVT CONVERT VALUE $4$4K623300| 41037 0074 00 1 41103 TSX RBCD,1 AS SIX DIGIT OCTAL $4$4K623400| 41040 0602 00 0 41527 SLW XBUF $4$4K623500 0BINARY CARD ID. MAPK0265| 41041 0074 00 4 25577 TSX PRINT,4 PRINT $4$4K623600| 41042 0020 00 0 41047 TRA *+5 $4$4K623700| 41043 0 00000 0 00003 PZE 3 CONVERTED $4$4K623800| 41044 0 00046 1 27741 PZE BLANX,1,BBC+BALF+12 VALUE $4$4K623900 41045 4 00001 0 41527 MZE XBUF,,1 $4$4K624000| 41046 4 00001 0 27741 MZE BLANX,,1 $4$4K624100| 41047 0074 00 1 41502 TSX PRC2A,1 PRINT COMMENTARY $4$4K624200| 41050 4774 00 2 52230 AXC 2B,2 $4$4K624300| 41051 0020 00 0 41025 TRA R77KC BACK FOR NEXT 3 $4$4K624400 | 41052 0 00000 0 00000 RNDEX PZE 0 'INDEX' INDICATOR 4K624600| 41053 632122432560 R77KE BCI 3,TABLE OF CONTENTS 4K624700| | 1 IBMAPV IBMAPK 12/01/64 PAGE 500 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 * TTL 4K624900| | 41056 0500 00 0 41507 R77M CLA RA74A SET ADDRESS FOR 4K625100| 41057 0361 00 0 21706 ACL L(2) SUBHEAD FETCH 4K625200 41060 0621 00 0 41067 STA R77MA 4K625300| 41061 4535 00 4 40570 LDC R74A,4 4K625400| 41062 1 77776 4 41063 TXI *+1,4,-2 SET NUMBER 4K625500| 41063 7 00012 4 41065 TXL *+2,4,10 OF WORDS 4K625600| 41064 0774 00 4 00012 AXT 10,4 FOR SUBHEAD 4K625700 41065 4634 00 4 41067 SXD R77MA,4 4K625800| 41066 0074 00 4 27627 TSX CRO.SH,4 PLACE 4K625900| 0BINARY CARD ID. MAPK0266| 41067 0 00000 0 00000 R77MA PZE **,,** SUBHEADING 4K626000| 41070 0634 00 0 21456 ZSA KLPRNT CLEAR TEMPORARY NON-PRINT (6)4K626100 41071 0020 00 0 40742 TRA R77FB AND GO PERFORM EJECT (6)4K626110| | | * PCG 4K626300| 41072 4500 00 0 41526 R77N CAL PCGSW INVERT 4K626500| 41073 0760 00 0 00006 COM PCG SWITCH 4K626600| 41074 0602 00 0 41526 SLW PCGSW 4K626700| 41075 0020 00 0 40603 TRA R75B2 PRINT CARD 4K626800| | | 41076 0774 00 4 00000 REND AXT **,4 RESTORE INDEX 4 4K627000| 41077 0020 00 4 00001 TRA 1,4 RETURN TO SUPERVISOR 4K627100| 41100 4765 00 0 00017 LRBCD LGR 15 A CLOSED SUBROUTINE TO 4K627300| 41101 4500 00 0 27741 CAL BLANX CONVERT THE LOW 5 ORDER 4K627400| 41102 0020 00 0 41106 TRA RBCD2 DIGITS OF THE ACC TO OCTAL 4K627500| | 41103 4765 00 0 00022 RBCD LGR 18 A CLOSED SUBROUTINE 4K627700 41104 0767 00 0 00003 ALS 3 TO CONVERT THE 4K627800| 41105 4763 00 0 00003 LGL 3 LOW ORDER 6 DIGITS 4K627900| 41106 0767 00 0 00003 RBCD2 ALS 3 OF THE ACCUMULATOR 4K628000| 41107 4763 00 0 00003 LGL 3 TO OCTAL 4K628100| 41110 0767 00 0 00003 ALS 3 4K628200 41111 4763 00 0 00003 LGL 3 CALLING SEQUENCE 4K628300| 41112 0767 00 0 00003 ALS 3 TSX RBCD,1 4K628400| 41113 4763 00 0 00003 LGL 3 NORMAL RETURN 4K628500| 41114 0767 00 0 00003 ALS 3 4K628600| 0BINARY CARD ID. MAPK0267 41115 4763 00 0 00003 LGL 3 CALLING SEQUENCE FOR FIVE 4K628700| 41116 0767 00 0 00003 ALS 3 DIGIT CONVERSION 4K628800| 41117 4763 00 0 00003 LGL 3 TSX LRBCD,1 4K628900| 41120 0020 00 1 00001 TRA 1,1 NORMAL RETURN 4K629000| 1 IBMAPV IBMAPK 12/01/64 PAGE 501 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0| | * TRANSFER TABLE FOR SECOND PASS OPERATORS 4K629300| 41121 0 00001 0 40754 RCTAB PZE -RAC40,,1 TYPE A(TXI) $4$4K629500| 41122 0 00001 0 40756 PZE -RAC41,,1 PREFIX TYPE (PZE,MZE) $4$4K629600| 41123 0 00033 0 40740 PZE -RAC42,,27 I/O COMMAND (IORT) $4$4K629700| 41124 0 00001 0 40723 PZE -RAC43,,1 TYPE B (CLA) $4$4K629800| 41125 0 00001 0 40663 PZE -RAC44,,1 TYPE C (VLM,CRQ) $4$4K629900 41126 0 00001 0 40656 PZE -RAC45,,1 TYPE D (RNT) $4$4K630000| 41127 0 00001 0 40626 PZE -RAC46,,1 TYPE E(PSE) $4$4K630100| 41130 0 00001 0 40610 PZE -RAC47,,1 SELECT (READ,WRITE) $4$4K630200| 41131 0 00000 0 40542 PZE -RAC50,,0 DISC $4$4K630300| 41132 0 00000 0 40523 PZE -RAC51,,0 DISC COMMANDS $4$4K630400 41133 0 00001 0 40507 PZE -RAC52,,1 BOOLEAN VARIABLE $4$4K630500| 41134 0 00000 0 40474 PZE -RAC53,,0 DISK ORDERS $4$4K630600| 41135 0 00001 0 40723 PZE -RAC43,,1 NON-EXPANDED 7094 OPS $4$4K630700| 41136 0 00000 0 40401 PZE -RAC55,,0 HYPERTAPE $4$4K630800| 41137 0 37431 0 00000 PZE 0,,RAC56A TRUNCATOR (SPECIAL ) $4$4K630900 41140 0 37432 0 00000 PZE 0,,RAC57 BLINK (PROCESSING) $4$4K631000| 41141 1 00144 0 37065 PON -RACERR,,100 MACRO $4$4K631100| 41142 1 00144 0 40324 PON -RAC61,,100 SET $4$4K631200| 0BINARY CARD ID. MAPK0268| 41143 1 00144 0 37065 PON -RACERR,,100 MACRO CALL $4$4K631300 41144 1 00144 0 40315 PON -RAC63,,100 LOCATION COUNTER (USE,BEGIN) $4$4K631400| 41145 1 00034 0 40131 PON -RAC64,,28 STORAGE ALLOCATION $4$4K631500| * (BSS,COMMON,EVEN,LORG,LDIR) $4$4K631600| 41146 1 00144 0 40005 PON -RAC65,,100 DECIMAL SYMBOL DEFINITION (EQU) $4$4K631700| 41147 1 00144 0 37743 PON -RAC66,,100 BOOLEAN SYMBOL DEFINITION (BOOL) $4$4K631800 41150 1 00144 0 37065 PON -RACERR,,100 OPERATION DEF $4$4K631900| 41151 1 00144 0 47023 CAR70 PON -RAC70,,100 DEBUGGING ENTRY $4$4K632000| 41152 1 00035 0 37724 PON -RAC71,,29 OCT,DEC,BCI,LIT,VFD $4$4K632100| 41153 1 00144 0 37335 PON -RAC72,,100 NON GENERATIVE (QUAL) $4$4K632200| 41154 1 00144 0 37275 PON -RAC73,,100 ABSOLUTE ASSEMBLY (UNPNCH) $4$4K632300 41155 0 40545 0 00000 PZE 0,,RAC74 COMMENTARY(SPECIAL) $4$4K632400| 41156 1 00144 0 37202 PON -RAC75,,100 MISCELLANEOUS (ETC) $4$4K632500| 41157 1 00001 0 37122 PON -RAC76,,1 CALL, SAVE $4$4K632600| 41160 1 00144 0 37111 PON -RAC77,,100 LIST CONTROL (LIST) $4$4K632700| 1 IBMAPV IBMAPK 12/01/64 PAGE 502 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0| * OCTAL PRINT SUBROUTINES 4K632900| | 00002 BALF EQU 2 BLANKS AFTER LOCATION FIELDS 4K633100 00021 PPCG EQU 17 NUMBER OF CHARACTERS IN DATA WORD 4K633200| 00002 BACG EQU 2 BLANKS AFTER CONTROL GROUP 4K633300| 00030 BBC EQU PPCG+BACG+5 BLANKS LOCATION AND COMMENTARY 4K633400| | * PRINT LOCATION FIELD. PACK AND CONVERT DATA WORD TO BCD 4K633600 | 41161 0074 00 4 43161 RPACK TSX RPTEXT,4 SETUP CONTROL GROUP 4K633800| 41162 0500 00 0 41760 CLA REVT SHIFT ADDRESS FIELD INTO MQ 4K633900| 41163 4765 00 0 00017 LGR 15 (15 BITS) 4K634000| 41164 0500 00 0 41761 CLA REVT+1 SHIFT TAG FIELD INTO MQ 4K634100 41165 4765 00 0 00003 LGR 3 (3 BITS) 4K634200| 41166 0500 00 0 41762 CLA REVT+2 SHIFT 2 LOW ORDER DECREMENT 4K634300| 41167 4765 00 0 00006 LGR 6 DIGITS INTO MQ . 4K634400| 41170 0361 00 2 00000 ACL 0,2 ADD OPERATION CODE 4K634500| 0BINARY CARD ID. MAPK0269 41171 4763 00 0 00030 LGL 24 SHIFT FULL WORD INTO THE ACC. 4K634600| 41172 4501 00 0 37014 ORA RIND ADD INDIRECT BITS IF REQUIRED 4K634700| 41173 0602 00 0 30676 RPAC2 SLW RDATA SAVE DATA WORD 4K634800| 41174 0634 00 1 41300 RPAC2A SXA RPAC4,1 SAVE RETURN ADDRESS 4K634900| 41175 0074 00 1 41103 TSX RBCD,1 CONVERT LOW ORDER 6 DIGITS 4K635000 41176 0602 00 0 41531 SLW XBUF+2 TO OCTAL 4K635100| 41177 4500 00 0 30676 CAL RDATA SHIFT ORDER 6 DIGITS 4K635200| 41200 4765 00 0 00022 LGR 18 INTO LOW ACCUMULATOR 4K635300| 41201 0074 00 1 41103 TSX RBCD,1 CONVERT TO OCTAL 4K635400| 41202 0602 00 0 41530 SLW XBUF+1 AND STORE IN XBUF+1 4K635500 41203 0074 00 1 36662 TSX 3R16P,1 PUNCH BINARY CARD 4K635600| 41204 4500 00 0 37443 RPAC2B CAL RBLINK PLACE.. 1. LINE NUMBER, OR BLANKS(6)4K635700| 41205 0602 00 0 41541 SLW XBUF+10 2. LLLLLL (6)4K635800| 41206 0560 00 0 41527 LDQ XBUF 3. BBBBBB 4K636200| 41207 4600 00 0 41542 STQ XBUF+11 4K636300 41210 4520 00 0 21472 NZT 3PER 3 PER LINE MODE 4K636400| 41211 0020 00 0 41274 TRA RPACM 4K636500| 41212 4320 00 0 40575 ANA OCT17 NUMBER ZERO 4K636600| 41213 4100 00 0 41273 TNZ RPACI NO, THIS IS AN ERROR 4K636700| 41214 4774 00 4 00000 RPACH AXC **,4 COMMENT COUNT 4K636800 41215 7 00000 4 41300 TXL RPAC4,4,0 EXIT IF ZERO 4K636900| 41216 7 77671 4 41234 TXL RPACC,4,-71 GREATER THAN 70 4K637000| 0BINARY CARD ID. MAPK0270| 41217 0520 00 0 40574 ZET SHFSW HAS 1ST 3RD BEEN OUTPUT 4K637100| 41220 0020 00 0 41241 TRA RPACA YES 4K637200 41221 7 77741 4 41266 RPACW TXL RPACS,4,-31 GREATER THAN 30 4K637300| 41222 4625 00 0 40574 STL SHFSW 4K637400| 41223 1 00037 4 41224 TXI *+1,4,31 31- COMMENT COUNT 4K637500| 41224 4634 00 4 41247 SXD RPACB,4 4K637600| 41225 0630 00 0 41232 RPACD STP RPACG SET PRINT PARAMETER TO PZE 4K637700 41226 0634 00 0 41214 RPACE SXA RPACH,0 4K637800| 41227 0074 00 4 25577 TSX PRINT,4 4K637900| 41230 0020 00 0 41300 TRA RPAC4 $4$4K638000| 41231 0 00000 0 00002 PZE 2 4K638100| 41232 0 00006 1 41542 RPACG PZE XBUF+11,1,6 PREFIX IS MODIFIED 4K638200 1 IBMAPV IBMAPK 12/01/64 PAGE 503 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 41233 4 00002 1 27741 MZE BLANX,1,2 4K638300| * 4K638400| 41234 0600 00 0 40574 RPACC STZ SHFSW 4K638500 41235 0020 00 0 41225 TRA RPACD 4K638600| * 4K638700| 41236 0600 00 0 40574 RPACT STZ SHFSW 4K638800| 41237 0535 00 4 41214 LAC RPACH,4 4K638900| 41240 0020 00 0 41221 TRA RPACW 4K639000 * 4K639100| 41241 0535 00 4 00000 RPACA LAC **,4 LOC OF TSX+1 4K639200| 41242 1 41506 4 41243 TXI *+1,4,RA74A-1 TEST IF LAST TSX 4K639300| 41243 3 00000 4 41236 TXH RPACT,4,0 TO PRINT WAS 4K639400| * FROM THE COMMENTS SECTION. 4K639500 41244 0074 00 4 25577 TSX PRINT,4 YES, PUT OUT BLANKS 4K639600| 0BINARY CARD ID. MAPK0271| 41245 0020 00 0 41250 TRA *+3 $4$4K639700| 41246 0 00000 0 00001 PZE 1 TO COLUMN 40 OR 80 4K639800| 41247 4 00000 1 27741 RPACB MZE BLANX,1,** X 4K639900 41250 0535 00 4 41214 LAC RPACH,4 4K640000| 41251 4500 00 0 41251 CAL * MODIFY PARAMETER TO 4K640100| 41252 0630 00 0 41232 STP RPACG MZE(CONTINUE) 4K640200| 41253 0500 00 0 40574 CLA SHFSW 2ND OR 3RD 4K640300| 41254 4120 00 0 41263 TMI RPACR 3RD 4K640400 41255 7 77741 4 41264 TXL RPACU,4,-31 GREATER THAN 30 4K640500| 41256 4760 00 0 00003 SSM NO INDICATE 4K640600| 41257 0601 00 0 40574 STO SHFSW LAST 3RD 4K640700| 41260 1 00040 4 41261 TXI *+1,4,32 COUNT 4K640800| 41261 4634 00 4 41247 SXD RPACB,4 BLANK FILL TO 80. 4K640900 41262 0020 00 0 41226 TRA RPACE 4K641000| * 4K641100| 41263 7 77741 4 41236 RPACR TXL RPACT,4,-31 GREATER THAN 30 4K641200| 41264 0600 00 0 40574 RPACU STZ SHFSW 4K641300| 41265 0020 00 0 41226 TRA RPACE 4K641400 41266 4500 00 0 41266 RPACS CAL * SET MZE TO 4K641500| 41267 0602 00 0 40574 SLW SHFSW INDICATE LAST 3RD 4K641600| 41270 4754 00 0 00000 ZAC $5$4K641700| 41271 0535 00 4 41214 LAC RPACH,4 COMPUTE NO. OF BLANKS 4K641800| 41272 1 00107 4 41224 TXI RPACD-1,4,71 TO COLUMN 80 4K641900 * 4K642000| 0BINARY CARD ID. MAPK0272| 41273 0600 00 0 40574 RPACI STZ SHFSW 4K642100| 41274 0074 00 4 25577 RPACM TSX PRINT,4 L=LOCATION FIELD 4K642200| 41275 0020 00 0 41300 TRA RPAC4 $4$4K642300 41276 0 00000 0 00001 PZE 1 B = BLANK 4K642400| 41277 0 00014 1 41541 PZE XBUF+10,1,12 4K642500| 41300 0774 00 1 00000 RPAC4 AXT **,1 RESTORE INDEX 1 4K642600| 41301 0020 00 1 00001 TRA 1,1 AND RETURN 4K642700| * PRINT DATA WORD WITH FORMAT X XXXXX X XXXXX 4K642900| | 41302 0520 00 0 21472 P1515 ZET 3PER 3 PER LINE MODE 4K643100| 41303 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K643200| 41304 4500 00 0 27741 CAL BLANX PRINT TYPE A 4K643300 41305 0560 00 0 41530 LDQ XBUF+1 AND PREFIX TYPES 4K643400| 1 IBMAPV IBMAPK 12/01/64 PAGE 504 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 41306 4763 00 0 00006 LGL 6 (TXI,PZE ETC.) 4K643500| 41307 0767 00 0 00006 ALS 6 FORM 4K643600 41310 0361 00 0 41546 ACL L(60) 4 BCD WORDS 4K643700| 41311 4763 00 0 00014 LGL 12 IN THE FOLLOWING FORMAT 4K643800| 41312 0602 00 0 41541 SLW XBUF+10 4K643900| 41313 4763 00 0 00022 LGL 18 1. BBPBDD 4K644000| 41314 0767 00 0 00006 ALS 6 2. DDDBTB 4K644100 41315 0361 00 0 41546 ACL L(60) 3. AAAAAB 4K644200| 41316 0560 00 0 41531 LDQ XBUF+2 4. BBBBBB 4K644300| 41317 4763 00 0 00006 LGL 6 4K644400| 41320 0767 00 0 00006 ALS 6 WHERE P = PREFIX 4K644500| 0BINARY CARD ID. MAPK0273 41321 0361 00 0 41546 ACL L(60) D = DECREMENT 4K644600| 41322 0602 00 0 41542 SLW XBUF+11 TC= TAG 4K644700| 41323 4130 00 0 00000 XCL A = ADDRESS 4K644800| 41324 0361 00 0 41546 ACL L(60) B = BLANK 4K644900| 41325 0602 00 0 41543 SLW XBUF+12 4K645000 41326 0560 00 0 27741 LDQ BLANX 4K645100| 41327 4600 00 0 41544 STQ XBUF+13 4K645200| 41330 0074 00 4 25577 TSX PRINT,4 PRINT 4K645300| 41331 0020 00 1 00001 TRA 1,1 $4$4K645400| 41332 0 00000 0 00001 PZE 1 DATA 4K645500 41333 4 00023 1 41541 MZE XBUF+10,1,19 WORD 4K645600| | * PRINT DATA WORD WITH FORMAT XXXX XX X XXXXX 4K645800| | 41334 0520 00 0 21472 P4215 ZET 3PER 3 PER LINE MODE 4K646000 41335 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K646100| 41336 4500 00 0 27741 CAL BLANX PRINT TYPES B AND C 4K646200| 41337 0560 00 0 41530 LDQ XBUF+1 (CLA,CRQ ETC.) 4K646300| 41340 4763 00 0 00030 LGL 24 4K646400| 41341 0602 00 0 41541 SLW XBUF+10 FORM 4 BCD WORDS 4K646500 41342 4500 00 0 27741 CAL BLANX OF THE 4K646600| 41343 4763 00 0 00022 LGL 18 FOLLOWING FORMAT 4K646700| 41344 0361 00 0 41546 ACL L(60) 4K646800| 41345 0560 00 0 41531 LDQ XBUF+2 1. BBOOOO 4K646900| 41346 4763 00 0 00006 LGL 6 2. BDDBTB 4K647000 0BINARY CARD ID. MAPK0274| 41347 0767 00 0 00006 ALS 6 3. AAAAAB 4K647100| 41350 0361 00 0 41546 ACL L(60) 4. BBBBBB 4K647200| 41351 0602 00 0 41542 SLW XBUF+11 4K647300| 41352 4130 00 0 00000 XCL WHERE 4K647400 41353 0361 00 0 41546 ACL L(60) O= OPERATION CODE 4K647500| 41354 0602 00 0 41543 SLW XBUF+12 D= DECREMENT 4K647600| 41355 0560 00 0 27741 LDQ BLANX T= TAG 4K647700| 41356 4600 00 0 41544 STQ XBUF+13 A= ADDRESS 4K647800| 41357 0074 00 4 25577 TSX PRINT,4 B= BLANK 4K647900 41360 0020 00 1 00001 TRA 1,1 $4$4K648000| 41361 0 00000 0 00001 PZE 1 4K648100| 41362 4 00023 1 41541 MZE XBUF+10,1,19 PRINT DATA WORD 4K648200| | * PRINT DATA WORD WITH FORMAT XXXX XX XXXXXX 4K648400 | 41363 0520 00 0 21472 P426 ZET 3PER 3 PER LINE MODE 4K648600| 1 IBMAPV IBMAPK 12/01/64 PAGE 505 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 41364 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K648700 41365 4500 00 0 27741 CAL BLANX PRINT TYPE D 4K648800| 41366 0560 00 0 41530 LDQ XBUF+1 (RNT ETC.) 4K648900| 41367 0602 00 0 41544 SLW XBUF+13 4K649000| 41370 4763 00 0 00030 LGL 24 4K649100| 41371 0602 00 0 41541 SLW XBUF+10 FORM 4 BCD WORDS 4K649200 41372 4500 00 0 27741 CAL BLANX OF THE 4K649300| 41373 4763 00 0 00030 LGL 24 FOLLOWING FORMAT- 4K649400| 41374 0560 00 0 41531 LDQ XBUF+2 4K649500| 0BINARY CARD ID. MAPK0275| 41375 4763 00 0 00006 LGL 6 1. BB0000 4K649600 41376 0044 00 0 00000 PAI 2. BDDBBA 4K649700| 41377 0055 00 606000 SIR 606000 3. AAAAAB 4K649800| 41400 0604 00 0 41542 STI XBUF+11 4. BBBBBB 4K649900| 41401 4130 00 0 00000 XCL WHERE 4K650000| 41402 0361 00 0 41546 ACL L(60) O = OPERATION 4K650100 41403 0602 00 0 41543 SLW XBUF+12 D = DECREMENT 4K650200| 41404 0074 00 4 25577 TSX PRINT,4 A = ADDRESS 4K650300| 41405 0020 00 1 00001 TRA 1,1 $4$4K650400| 41406 0 00000 0 00001 PZE 1 B = BLANK 4K650500| 41407 4 00023 1 41541 MZE XBUF+10,1,19 PRINT DATA WORD 4K650600 | * PRINT DATA WORD WITH FORMAT XXXXXXXXXXXX 4K650800| | 41410 0520 00 0 21472 P12 ZET 3PER 3 PER LINE MODE 4K651000| 41411 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K651100 41412 0560 00 0 27741 LDQ BLANX PRINT DATA GENERATING TYPES 4K651200| 41413 4600 00 0 41527 STQ XBUF (OCT, DEC,BCI, ETC.) 4K651300| 41414 4600 00 0 41532 STQ XBUF+3 4K651400| 41415 0074 00 4 25577 TSX PRINT,4 SKIP TO DATA WORD 4K651500| 41416 0020 00 1 00001 TRA 1,1 $4$4K651600 41417 0 00000 0 00001 PZE 1 PRINT 12 CHARACTERS 4K651700| 41420 4 00023 5 41527 MZE XBUF,5,19 SKIP TO CONTROL GROUP 4K651800| | * PRINT DATA WORD WITH FORMAT XX XXXX X XXXXX 4K652000| 41421 0520 00 0 21472 P2415 ZET 3PER TEST FOR 3 PER MODE 4K652200| 41422 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K652300| 0BINARY CARD ID. MAPK0276| 41423 0074 00 4 25577 TSX PRINT,4 4K652400| 41424 0020 00 1 00001 TRA 1,1 $4$4K652500 41425 0 00000 0 00011 PZE 9 4K652600| 41426 4 00002 1 27741 MZE BLANX,1,2 4K652700| 41427 4 00002 1 41530 MZE XBUF+1,1,2 4K652800| 41430 4 00001 1 27741 MZE BLANX,1,1 4K652900| 41431 4 00004 3 41530 MZE XBUF+1,3,4 4K653000 41432 4 00001 1 27741 MZE BLANX,1,1 4K653100| 41433 4 00001 1 41531 MZE XBUF+2,1,1 4K653200| 41434 4 00001 1 27741 MZE BLANX,1,1 4K653300| 41435 4 00005 2 41531 MZE XBUF+2,2,5 4K653400| 41436 4 00002 1 27741 MZE BLANX,1,2 4K653500 | * PRINT DATA WORD WITH FORMAT XXXX XXXX XXXX 4K653700| | 1 IBMAPV IBMAPK 12/01/64 PAGE 506 | SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK 0 41437 0520 00 0 21472 P444 ZET 3PER TEST FOR 3 PER LINE MODE 4K653900| 41440 0020 00 1 00001 TRA 1,1 YES, DO NOT PRINT 4K654000| 41441 0074 00 4 25577 TSX PRINT,4 PRINT 4K654100| 41442 0020 00 1 00001 TRA 1,1 $4$4K654200| 41443 0 00000 0 00007 PZE 7 DISK ORDER TYPE 4K654300 41444 4 00002 1 27741 MZE BLANX,1,2 4K654400| 41445 4 00004 1 41530 MZE XBUF+1,1,4 4K654500| 41446 4 00001 1 27741 MZE BLANX,1,1 4K654600| 41447 4 00004 5 41530 MZE XBUF+1,5,4 4K654700| 41450 4 00001 1 27741 MZE BLANX,1,1 4K654800 0BINARY CARD ID. MAPK0277| 41451 4 00004 3 41531 MZE XBUF+2,3,4 4K654900| 41452 4 00003 1 27741 MZE BLANX,1,3 4K655000| | * CONVERT CONTROL GROUP TO BCD AND PRINT 4K655200 | 41453 0634 00 4 41511 PRCG SXA PRCG3,4 SAVE RETURN 4K655400| 41454 4500 60 0 37013 CAL* RCTR STORE CURRENT VALUE OF 4K655500| 41455 0602 00 0 36373 SLW RLOC LOCATION COUNTER IN RLOC 4K655600| 41456 0500 00 0 43445 CLA PCTRL GET CONTROL GROUP 4K655700 41457 4520 00 0 21426 NZT SWABS TEST FOR ABSOLUTE ASSEMBLY 4K655800| 41460 0520 00 0 21472 ZET 3PER OR 3PER LINE MODE 4K655900| 41461 0020 00 0 41502 TRA PRC2A IF SO GO TO 'PRC2A' 4K656000| 41462 4520 00 0 41526 NZT PCGSW 4K656100| 41463 4100 00 0 41466 TNZ PRCA TEST FOR '00000' CONTROL GROUP 4K656200 41464 4500 00 0 27741 CAL BLANX IF SO PRINT BLANK 4K656300| 41465 0020 00 0 41473 TRA PRCG2 CONTROL GROUP 4K656400| 41466 0774 00 4 00005 PRCA AXT 5,4 CONVERT 4K656500| 41467 4765 00 0 00005 LGR 5 THE 5 LOW ORDER 4K656600| 41470 0767 00 0 00005 ALS 5 BINARY BITS OF 4K656700 41471 4763 00 0 00001 LGL 1 THE ACCUMULATOR 4K656800| 41472 2 00001 4 41470 TIX *-2,4,1 TO OCTAL 4K656900| 41473 0602 00 0 41532 PRCG2 SLW XBUF+3 STORE OCTAL CONTROL GROUP 4K657000| 41474 4500 00 0 27741 CAL BLANX STORE 4K657100| 41475 0602 00 0 41533 SLW XBUF+4 TRAILING BLANKS 4K657200 41476 0074 00 4 25577 TSX PRINT,4 PRINT 4K657300| 0BINARY CARD ID. MAPK0278| 41477 0020 00 0 41502 TRA PRC2A $4$4K657400| 41500 0 00000 0 00001 PZE 1 PRINT CONTROL GROUP 4K657500| 41501 4 00007 2 41532 MZE XBUF+3,2,7 SKIP TO COMMETARY 4K657600 41502 0520 00 0 37453 PRC2A ZET NCOM TEST FOR COMMENTARY 4K657700| 41503 0020 00 0 41511 TRA PRCG3 IF NOT GO TO EXIT 4K657800| 41504 0074 00 4 25577 TSX PRINT,4 PRINT 4K657900| 41505 0020 00 0 41510 TRA *+3 $4$4K658000| 41506 0 00000 0 00001 PZE 1 80 CHARACTERS 4K658100 41507 4 00120 1 00000 RA74A MZE **,1,80 OF COMMENTARY 4K658200| 41510 4625 00 0 37453 STL NCOM SET NO COMMENTARY SWITCH 4K658300| 41511 0774 00 4 00000 PRCG3 AXT **,4 RESTORE INDEX 4 4K658400| 41512 0441 60 0 37013 LDI* RCTR TEST FOR ABSOLUTE 4K658500| 41513 0056 00 100000 RNT 100000 LOCATION COUNTER 4K658600 41514 0020 00 1 00001 TRA 1,1 IF SO, EXIT 4K658700| 41515 4054 00 000001 LFT 1 TEST FOR VIRTUAL ORIGIN 4K658800| 41516 0020 00 1 00001 TRA 1,1 IF SO, EXIT 4K658900| 41517 4046 00 0 00000 PIA THE NEXT. 4K659000| 1 IBMAPV IBMAPK 12/01/64 PAGE 507 SECOND ASSEMBLY PASS PHASE 2 - RECORD IBMAPK | 0 41520 4320 00 0 21723 ANA MSKAD VALUE OF THE 4K659100| 41521 0767 00 0 00022 ALS 18 CURRENT LOCATION COUNTER BS. 4K659200| 41522 4340 00 0 35375 LAS HHLCTR THE PREVIOUS HIGHEST VALUE 4K659300| 41523 0622 00 0 35375 STD HHLCTR IF GREATER STORE IN 'HHLCTR' 4K659400 41524 0020 00 1 00001 TRA 1,1 IF EQUAL EXIT 4K659500| 0BINARY CARD ID. MAPK0279| 41525 0020 00 1 00001 TRA 1,1 IF LESS THAN EXIT 4K659600| | 41526 0 00000 0 00000 PCGSW PZE 0 CONTROL GROUP PRINT SWITCH 4K659800 | 41527 XBUF BSS 15 4K660000| 0BINARY CARD ID. MAPK0280| 41546 000000000060 L(60) OCT 60 4K660100| 1 IBMAPV IBMAPK 12/01/64 PAGE 508 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| | * VARIABLE FIELD EVALUATION ROUTINE 4K660400| * CALLING SEQUENCE 4K660600| * TSX REV,4 4K660700| * PZE N,2 (N,2 IS THE EFFECTIVE ADDRESS OF THE FIRST WORD.) 4K660800| | * IF THE ACCUMULATOR IS POSITIVE THE EXPRESSION CANNOT BE EVALUATED 4K661000 * OTHERWISE THE VALUE OF THE ADDRESS PART IS IN THE 4K661100| * LOW ORDER OF THE ACCUMULATOR. 4K661200| | 41547 0634 00 1 41743 REV SXA RV12,1 SAVE 4K661400| 41550 0634 00 2 41744 SXA RV13,2 ALL 4K661500 41551 0634 00 4 41745 SXA RV14,4 INDEX REGISTERS 4K661600| 41552 0604 00 0 41767 STI REVT+7 SAVE INDICATORS 4K661700| 41553 0600 00 0 41755 STZ 17TSW RESET VIRTUAL INDICATOR 4K661800| 41554 0634 00 0 41654 SXA PCMSW,0 RESET FIELD C OUNT 4K661900| 41555 0600 00 0 41773 STZ CDR+1 4K662000 41556 0600 00 0 41772 STZ CDR RESET CONTROL DICTIONARY 4K662100| 41557 0600 00 0 41774 STZ CDR+2 REFERENCE INDICATORS 4K662200| 41560 0634 00 0 41675 SXA PCM,0 RESET COMMA COUNTER 4K662300| 41561 0560 00 4 00001 LDQ 1,4 SAVE PARAMETER WORD 4K662400| 41562 4600 00 0 42274 STQ RVPAR IN 'RVPAR' 4K662500 41563 0600 00 0 41760 STZ REVT VALUE OF ADDRESS 4K662600| 41564 0600 00 0 41761 STZ REVT+1 VALUE OF TAG 4K662700| 41565 0600 00 0 41762 STZ REVT+2 VALUE OF DECREMNT 4K662800| 41566 0600 00 0 41763 STZ REVT+3 CONTROL GROUP (ADDRESS) 4K662900| 41567 0600 00 0 41765 STZ REVT+5 CONTROL GROUP (DECREMNT) 4K663000 41570 0441 00 0 21704 LDI L(0) RESET INDICATORS 4K663100| 41571 0600 00 0 41770 REV2 STZ RVRT CLEAR TWO OPERAND 4K663200| 41572 0600 00 0 41771 STZ RVRT+1 RESULT STORAGES 4K663300| 41573 0560 60 0 42274 RV3 LDQ* RVPAR GET TRANSFER ADDRESS FOR THE 4K663500| 0BINARY CARD ID. MAPK0281 41574 4154 01 1 42275 CRQ RPTAB,1,1 FIRST OPERAND 4K663600| 41575 0600 00 0 41757 STZ FOPSW SET FIRST OPND SWITCH 4K663700| 41576 4520 60 0 42274 NZT* RVPAR IGNORE THIS WORD 4K663800| 41577 1 77777 2 41573 TXI RV3,2,-1 IF ZERO 4K663900| 41600 7 00000 1 41607 TXL RV3A,1,0 EXIT IF ADDRESS IS UNAVAILABLE 4K664000 41601 0074 00 4 42060 TSX RVAL,4 TEST FOR VALID ADJECTIVE CODE 4K664100| 41602 4500 60 0 42274 CAL* RVPAR SET UP 'TSX' TO PROPER 4K664200| 41603 0634 00 1 41605 SXA *+2,1 SUBROUTINE 4K664300| 41604 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1 4K664400| 41605 0074 00 4 00000 TSX **,4 4K664500 41606 0601 00 0 41770 STO RVRT STORE VALUE OF THIS OPERAND 4K664600| 41607 0560 60 0 42274 RV3A LDQ* RVPAR ISOLATE THE 4K664700| 41610 4763 00 0 00014 LGL 12 FLAG FIELDS 4K664800| 41611 4320 00 0 21727 ANA MSKLO OF THE FIRST OPERAND 4K664900| 41612 0621 00 0 41615 STA RV4 AND STORE IN RV4 4K665000 41613 0500 00 0 41770 CLA RVRT GET FIRST OPERAND VALUE 4K665100| 41614 1 77777 2 41615 TXI *+1,2,-1 LOCATE SECOND OPERAND 4K665200| 41615 4774 00 1 00000 RV4 AXC **,1 TEST FIRST OPERAND FLAG FIELDS 4K665300| 41616 7 00000 1 41654 TXL PCMSW,1,0 END SUBFIELD IF 4K665400| 41617 3 77775 1 41654 TXH PCMSW,1,-3 BLANK OR COMMA 4K665500 41620 0560 60 0 42274 RV4A LDQ* RVPAR GET TRANSFER ADDRESS 4K665600| 1 IBMAPV IBMAPK 12/01/64 PAGE 509 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 41621 4154 01 1 42275 CRQ RPTAB,1,1 FOR SECOND OPERAND 4K665700| 0BINARY CARD ID. MAPK0282 41622 4625 00 0 41757 STL FOPSW RESET FIRST OPND SWITCH 4K665800| 41623 4520 60 0 42274 NZT* RVPAR IGNORE THIS WORD 4K665900| 41624 1 77777 2 41620 TXI RV4A,2,-1 IF ZERO 4K666000| 41625 7 00000 1 41634 TXL RV5,1,0 EXIT IF ADDRESS IS UNAVAILABLE 4K666100| 41626 0074 00 4 42060 TSX RVAL,4 TEST FOR VALID ADJECTIVE CODE 4K666200 41627 4500 60 0 42274 CAL* RVPAR SET UP 'TSX' TO PROPER 4K666300| 41630 0634 00 1 41632 SXA *+2,1 SUBROUTINE 4K666400| 41631 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1 4K666500| 41632 0074 00 4 00000 TSX **,4 GET VALUE OF SECOND OPERAND 4K666600| 41633 0601 00 0 41771 STO RVRT+1 STORE VALUE OF SECOND OPERAND 4K666700 41634 0560 60 0 42274 RV5 LDQ* RVPAR ISOLATE THE 4K666800| 41635 4763 00 0 00014 LGL 12 FLAG FIELDS 4K666900| 41636 4320 00 0 21727 ANA MSKLO OF THE SECOND OPERAND 4K667000| 41637 0621 00 0 41645 STA RV7 AND STORE IN RV7 4K667100| 41640 1 77777 2 41641 TXI *+1,2,-1 LOCATE NEXT OPERAND 4K667200 41641 0522 00 0 41615 XEC RV4 TEST FIRST OPERAND FLAG FIELDS 4K667300| 41642 7 77771 1 41571 TXL REV2,1,-7 IGNORE THIS PAIR UNLESS OPERATOR 4K667400| 41643 0020 60 1 42051 TRA* RASR-3,1 GO TO PROPER ARITHMETIC SUBROUTINE 4K667500| 41644 0761 00 0 00000 RV6 NOP SAVE INTERMEDIATE RESULT 4K667600| 41645 4774 00 1 00000 RV7 AXC **,1 TEST SECOND OPERAND FLAG FIELDS 4K667700 41646 7 00000 1 41654 TXL PCMSW,1,0 END SUBFIELD IF 4K667800| 41647 3 77775 1 41654 TXH PCMSW,1,-3 BLANK OR COMMA 4K667900| 0BINARY CARD ID. MAPK0283| 41650 3 77730 1 41571 TXH REV2,1,-40 TEST FOR '50-57' INCLUSIVE 4K668000| 41651 7 77701 1 41571 TXL REV2,1,-63 IGNORE PAIR IF ANYTHING ELSE 4K668100 41652 0601 00 1 52360 STO TEMP-40,1 SAVE INTERMEDIATE RESULT 4K668200| 41653 0020 00 0 41571 TRA REV2 CONTINUE EVALUATION 4K668300| | 41654 0774 00 4 00000 PCMSW AXT **,4 4K668500| 41655 1 77777 4 41656 TXI *+1,4,-1 INCREASE SUBFIELD 4K668600 41656 0634 00 4 41654 SXA PCMSW,4 COUNT 4K668700| 41657 4057 00 777777 RIL 777777 4K668800| 41660 7 77774 4 41664 TXL PCMA,4,-4 4K668900| 41661 0604 00 4 41762 STI REVT+2,4 STORE CONTROL GROUP 4K669000| 41662 0601 00 4 41757 STO REVT-1,4 AND VALUE OF 4K669100 41663 0020 00 0 41672 TRA PCMB FIRST 3 SUBFIELDS 4K669200| | 41664 7 77773 4 41672 PCMA TXL PCMB,4,-5 IF FOURTH SUBFIELD 4K669400| 41665 4520 00 0 37254 NZT TP50 AND IF TYPE 50 4K669500| 41666 0020 00 0 41672 TRA PCMB 4K669600 41667 4320 00 0 21713 ANA L(7) SAVE FIELD VALUE 4K669700| 41670 0767 00 0 00036 ALS 30 FOR OPERATION 4K669800| 41671 4602 00 0 37014 ORS RIND 4K669900| | 41672 0441 00 0 21704 PCMB LDI L(0) RESET INDICATORS AND 4K670100 41673 7 00000 1 41701 TXL RV8,1,0 EXIT IF END OF VF 4K670200| 41674 7 77775 4 41571 TXL REV2,4,-3 4K670300| 41675 0774 00 1 00000 PCM AXT **,1 OTHERWISE, 4K670400| 0BINARY CARD ID. MAPK0284| 41676 1 77777 1 41677 TXI *+1,1,-1 INCREASE COMMA 4K670500 41677 0634 00 1 41675 SXA PCM,1 COUNT AND RETURN 4K670600| 1 IBMAPV IBMAPK 12/01/64 PAGE 510 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 41700 0020 00 0 41571 TRA REV2 4K670700| 41701 0774 00 1 00003 RV8 AXT 3,1 4K670900| 41702 0500 00 1 41763 RV9 CLA REVT+3,1 OF VARIABLE FIELD IN 'TEMP' 4K671000| 41703 0601 00 1 52433 STO TEMP+3,1 REDUCE EACH PART 4K671100| 41704 0100 00 0 41712 TZE RV10 OF VARIABLE FIELD 4K671200| 41705 0120 00 0 41710 TPL *+3 4K671300 41706 0760 00 0 00006 COM 4K671400| 41707 0402 00 0 21705 SUB L(1) 4K671500| 41710 4320 00 0 21723 ANA MSKAD STORE REDUCED PARTS 4K671600| 41711 0602 00 1 41763 SLW REVT+3,1 IN 'REVT','REVT'+1,'REVT'+2 4K671700| 41712 2 00001 1 41702 RV10 TIX RV9,1,1 LEAVE VALUE OF ADDRESS 4K671800 41713 4520 00 0 40436 NZT RVFD TEST IF IN VFD 4K671900| 41714 0020 00 0 41723 TRA RV10A NO - GO TO RV10A 4K672000| 41715 0500 00 0 52430 CLA TEMP TRUNCATE ADDRESS 4K672100| 41716 0120 00 0 41721 TPL *+3 4K672200| 41717 0760 00 0 00006 COM 4K672300 41720 0402 00 0 21705 SUB L(1) 4K672400| 41721 4320 00 0 41776 ANA 20MSK 4K672500| 41722 0601 00 0 41760 STO REVT AND STORE IN REVT 4K672600| 41723 4774 00 1 00000 RV10A AXC 0,1 TEST FOR CONTROL DICTIONARY 4K672700| 0BINARY CARD ID. MAPK0285 41724 0074 00 4 42315 TSX RVS,4 REFERENCE IN ADDRESS 4K672800| 41725 4520 00 0 41756 NZT 18TSW TEST FOR VIRTUAL IN TAG $5$4K672900| 41726 0020 00 0 41737 TRA RV11 $5$4K673000| 41727 0600 00 0 41756 STZ 18TSW $5$4K673010| 41730 0520 00 0 41754 ZET BGNTSW REF IN TAG 4K673100 41731 0020 00 0 41737 TRA RV11 (EXCEPT FOR BEGIN) 4K673200| 41732 0600 00 0 41761 STZ REVT+1 IF SO SET TAG VALUE TO 0 4K673300| 41733 0520 00 0 21426 ZET SWABS 4K673400| 41734 0020 00 0 41737 TRA RV11 4K673500| 41735 0074 00 4 25576 TSX ERPR,4 AND PRINT WARNING MESSAGE 4K673600 41736 0 00000 1 00157 PZE RMS032,GO 'VIRTUAL CANNOT APPEAR IN TAG' 4K673700| 41737 4774 00 1 00002 RV11 AXC 2,1 TEST FOR CDICT 4K673800| 41740 0074 00 4 42315 TSX RVS,4 REFERENCE IN DECREMENT 4K673900| 41741 0500 00 0 41760 CLA REVT PART IN ACCUMULATOR 4K674000| 41742 4760 00 0 00003 SSM SET ACCUM. NEGATIVE 4K674100 41743 0774 00 1 00000 RV12 AXT **,1 RESTORE 4K674200| 41744 0774 00 2 00000 RV13 AXT **,2 ALL 4K674300| 41745 0774 00 4 00000 RV14 AXT **,4 INDEX REGISTERS 4K674400| 41746 0441 00 0 41767 LDI REVT+7 RESTORE INDICATORS 4K674500| 41747 0020 00 4 00002 TRA 2,4 AND RETURN 4K674600 41750 4754 00 0 00000 RV16 PXD ,0 TEST PASS INDICATOR 'PAND' 4K674700| 41751 4520 00 0 36376 NZT PAND IF '0' (DEFINITION PASS) DICONTINUE 4K674800| 0BINARY CARD ID. MAPK0286| 41752 0020 00 0 41743 TRA RV12 EVALUATION. OTHERWISE TRY 4K674900| 41753 0020 00 4 00001 TRA 1,4 TO EVALUATE REST OF FIELD 4K675000 | 41754 0 00000 0 00000 BGNTSW PZE 0 BEGIN SWITCH 4K675200| 41755 0 00000 0 00000 17TSW PZE 0 VIRTUAL INDICATOR 4K675300| 41756 0 00000 0 00000 18TSW PZE 0 TAG VIRTUAL INDICATOR $5$4K675310| 41757 0 00000 0 00000 FOPSW PZE ** FIRST OPERAND SWITCH 4K675400 41760 REVT BSS 8 WORKING 4K675500| 41770 RVRT BSS 2 STORAGE 4K675600| 1 IBMAPV IBMAPK 12/01/64 PAGE 511 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 41772 CDR BSS 3 CONTROL DICTIONARY REFERENCE CELLS 4K675700 0BINARY CARD ID. MAPK0287| 41775 000000100000 L2E15 OCT 100000 4K675800| 41776 000003777777 20MSK OCT 3777777 4K676000| | * ARITHMETIC SUBROUTINES 4K676200 | * ADDITION SUBROUTINE 4K676400| | 41777 0500 00 0 41770 PAD CLA RVRT ADD VALUES 4K676600| 42000 0400 00 0 41771 ADD RVRT+1 OF THE 2 OPERANDS 4K676700 42001 0522 00 0 41675 XEC PCM TEST FOR CONTROL DICTIONARY 4K676800| 42002 0520 00 1 41772 ZET CDR,1 REFERENCE. 4K676900| 42003 0020 00 0 41644 TRA RV6 IF SO, EXIT 4K677000| 42004 0446 00 0 44741 ONT L(RL) TEST FOR BOTH RELATIVE AND CONSTANT 4K677100| 42005 0020 00 0 41644 TRA RV6 OPERANDS. IF NOT, EXIT. 4K677200 42006 0074 00 4 44716 TSX FTC,4 TEST IF EXPRESSION SPANS EITHER 4K677300| 42007 0500 00 0 41770 CLA RVRT START OR END OF CONTROL SECTION 4K677400| 42010 0400 00 0 41771 ADD RVRT+1 RESTORE ACCUMULATOR 4K677500| 42011 0020 00 0 41644 TRA RV6 AND EXIT. 4K677600| * SUBTRACTION ROUTINE 4K677800| | 42012 0500 00 0 41770 SAD CLA RVRT SUBTRACT VALUES 4K678000| 42013 0402 00 0 41771 SUB RVRT+1 OF THE 2 OPERANDS 4K678100| 42014 0522 00 0 41675 XEC PCM TEST FOR CONTROL (6)4K678110 42015 0520 00 1 41772 ZET CDR,1 DICTIONARY REFERENCE (6)4K678120| 42016 0020 00 0 42030 TRA SADC SKIP TEST FOR COMPLEX IF SO (6)4K678130| 42017 0120 00 0 42023 TPL SADB IF POSITIVE, GO TO SADB 4K678200| 42020 0054 00 000003 RFT 3 IF EITHER OPERAND IS RELATIVE 4K678300| 42021 0055 00 000003 SADA SIR 3 SET CONTROL GROUP COMPLEX 4K678400 42022 0020 00 0 41644 TRA RV6 AND EXIT 4K678500| 0BINARY CARD ID. MAPK0288| 42023 0446 00 0 44741 SADB ONT L(RL) TEST FOR BOTH CONSTANT AND RELATIVE 4K678600| 42024 0020 00 0 41644 TRA RV6 OPERANDS. IF NOT EXIT 4K678700| 42025 0074 00 4 44716 TSX FTC,4 TEST IF EXPRESSION SPANS EITHER 4K678800 42026 0500 00 0 41770 CLA RVRT START OR END OF CONTROL SECTION 4K678900| 42027 0402 00 0 41771 SUB RVRT+1 RESTORE ACCUMULATOR 4K679000| 42030 4054 00 000004 SADC LFT 4 SET CONTROL GROUP COMPLEX IF SECOND 4K679100| 42031 0055 00 000003 SIR 3 OPERAND WAS CONTROL SECTION 4K679200| 42032 0020 00 0 41644 TRA RV6 REFERENCE AND EXIT 4K679300 | * MULTIPLICATION SUBROUTINE 4K679500| | 42033 0560 00 0 41770 MAD LDQ RVRT MULTIPLY VALUES 4K679700| 42034 0200 00 0 41771 MPY RVRT+1 OF 2 OPERANDS 4K679800 42035 0131 00 0 00000 XCA LEAVE IN ACCUMULATOR 4K679900| 42036 4056 00 000002 LNT 2 DID 0 OPRAND OCCUR 4K680200| 42037 0020 00 0 42042 TRA MAD2 IF NOT GO TO MAD2 4K680300| 42040 0056 00 000002 RNT 2 IS FIELD ALREADY COMPLEX 4K680400| 42041 0057 00 000001 RIR 1 IF NOT MAKE IT CONSTANT 4K680500 42042 0054 00 000003 MAD2 RFT 3 TEST IF ANY RELATIVE OPERANDS 4K680600| 42043 0055 00 000003 SIR 3 IF SO SET CONTROL GROUP COMPLEX 4K680700| 42044 0020 00 0 41644 TRA RV6 CONTINUE EVALUATION 4K680800| 1 IBMAPV IBMAPK 12/01/64 PAGE 512 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0 | * DIVISION SUBROUTINE 4K681000| | 42045 0500 00 0 41770 DAD CLA RVRT DIVIDE 4K681200| 42046 0765 00 0 00043 LRS 35 VALUES OF 4K681300 42047 0221 00 0 41771 DVP RVRT+1 2 OPERANDS 4K681400| 42050 0131 00 0 00000 XCA LEAVE IN ACCUMULATOR 4K681500| 0BINARY CARD ID. MAPK0289| 42051 0054 00 000003 RFT 3 TEST FOR RELATIVE OPERANDS 4K681600| 42052 0055 00 000003 SIR 3 IF SO SET CONTROL GROUP COMPLEX 4K681700 42053 0020 00 0 41644 TRA RV6 CONTINUE EVALUATION 4K681800| | 42054 0 00000 0 41777 RASR PZE PAD ADD SUBROUTINE 4K682000| 42055 0 00000 0 42012 PZE SAD SUBTRACT SUBROUTINE 4K682100| 42056 0 00000 0 42033 PZE MAD MULTIPLY SUBROUTINE 4K682200 42057 0 00000 0 42045 PZE DAD DIVIDE SUBROUTINE 4K682300| | * TEST FOR VALID ADJECTIVE CODES IN 'T2' TEXT 4K682500| | 42060 7 42060 1 42062 RVAL TXL *+2,1,RVAL TEST IF TRANSFER ADDRESS 4K682700 42061 7 42273 1 42065 TXL PVEX,1,SPEND FALLS WITHIN ACCEPTED LIMITS 4K682800| 42062 0074 00 4 25576 TSX ERPR,4 'INTERNAL TEXT 4K682900| 42063 0 00000 4 00127 PZE RMS025,NONONO SYNC FAILURE' 4K683000| 42064 0020 00 0 41743 TRA RV12 EXIT FROM EVALUATOR 4K683100| 42065 0020 00 4 00001 PVEX TRA 1,4 NORMAL EXIT 4K683200 | * INTERNAL DICTIONARY REFERENCE 4K683400| | 42066 0500 00 1 00000 SP1 CLA 0,1 FETCH DICT WORD 4K683600| 42067 0560 00 1 00000 LDQ 0,1 TO AC AND MQ 4K683700 42070 0162 00 0 42102 TQP SP1A SPECIAL IF NOT DEFINED 4K683800| 42071 4773 00 0 00002 SP1C RQL 2 $5$4K683900| 42072 0162 00 0 42074 TQP SPA IF BOOLEAN, TREAT AS 4K684000| 42073 0020 00 0 42215 TRA SP11A OCTAL CONSTANT 4K684100| 42074 4320 00 0 21723 SPA ANA MSKAD TEST IF NAME HAS 4K684200 42075 4773 00 0 00022 RQL 18 CONSTANT VALUE 4K684300| 42076 0162 00 0 42100 TQP *+2 $4$4K684400| 0BINARY CARD ID. MAPK0290| 42077 0020 00 0 42154 TRA SP3 ELSE GO TO SP3 4K684500| 42100 4055 00 000001 SIL 1 INDICATE CONSTANT APPEARED $4$4K684600 42101 0020 00 4 00001 TRA 1,4 $4$4K684700| | 42102 0771 00 0 00014 SP1A ARS 12 PLACE ADJECTIVE CODE IN INDEX 1 4K684900| 42103 4734 00 1 00000 PDX 0,1 AND INTERNAL DICTIONARY WORD 4K685000| 42104 0131 00 0 00000 XCA IN ACCUMULATOR 4K685100 42105 1 77776 1 42106 TXI *+1,1,-2 TRANSFER TO SP2A 4K685200| 42106 7 00000 1 42136 TXL SP2,1,0 VIRTUAL ENTRY 4K685300| 42107 1 77777 1 42110 TXI *+1,1,-1 TRANSFER TO SP1B 4K685400| 42110 7 00000 1 42130 TXL SP1B,1,0 IF FILE DICTIONARY ENTRY 4K685500| 42111 1 77767 1 42112 TXI *+1,1,-9 TRANSFER TO SP11A 4K685600 42112 7 00000 1 42215 TXL SP11A,1,0 IF SET ENTRY $4$4K685700| 42113 1 77774 1 42114 TXI *+1,1,-4 EXIT CONSTANT ZERO $4$4K685800| 42114 3 00000 1 41750 TXH RV16,1,0 IF NOT IN CONTRL RANGE $4$4K685900| | 1 IBMAPV IBMAPK 12/01/64 PAGE 513 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 ARISES ONLY IF NO EQU REPLACEMENT $4$4K686100| 42115 4765 00 0 00020 LGR 16 ISOLATE ADDEND (6)4K686200| 42116 0771 00 0 00002 ARS 2 AND CONTROL SECTION NUMBER (6)4K686210| 42117 0522 00 0 41675 XEC PCM SAVE FOR (6)4K686300 42120 0621 00 1 41772 STA CDR,1 SHORT FORM TEST (6)4K686310| 42121 0734 00 1 00000 PAX ,1 (6)4K686400| 42122 4754 00 0 00000 ZAC (6)4K686410| 42123 0763 00 0 00017 LLS 15 $4$4K686500| 42124 0634 00 1 42126 SXA *+2,1 ADD CDICT $4$4K686600 0BINARY CARD ID. MAPK0291| 42125 0535 00 1 21457 LAC BGDICT,1 BASE, AND GO $4$4K686700| 42126 0400 00 1 00000 ADD **,1 TO TREAT RELATIVE $4$4K686800| 42127 0020 00 0 42153 TRA SP2B VALUE $4$4K686900| FILE DICTIONARY 4K687100| 42130 4320 00 0 21723 SP1B ANA MSKAD SET FILE REFERENCE 4K687200| 42131 4501 00 0 43426 ORA FDREF BIT IN ADDRESS 4K687300| 42132 0055 00 000002 SIR 2 SET CONTRL ENTRY 4K687400| 42133 0520 00 0 41757 ZET FOPSW IF NOT FIRST OPND, 4K687500 42134 0055 00 000001 SIR 1 SET COMPLEX 4K687600| 42135 0020 00 4 00001 TRA 1,4 RETURN 4K687700| | * CONTROL DICTIONARY ENTRY 4K687900| 42136 4625 00 0 41755 SP2 STL 17TSW INDICATE VIRTUAL 4K688100| 42137 0522 00 0 41675 XEC PCM GET SUBFIELD COUNT $5$4K688110| 42140 7 77776 1 42145 TXL SP2C,1,-2 TEST FOR (6)4K688120| 42141 4625 00 0 41756 STL 18TSW VIRTUAL IN TAG $5$4K688130| 42142 0734 00 1 00000 SP2A PAX ,1 REFERENCE TO CONTROL SECTION (6)4K688200 42143 7 00001 1 42163 TXL SP4A,1,1 ONE MEANS CURRENT LOCATION (6)4K688300| 42144 0522 00 0 41675 XEC PCM (6)4K688400| 42145 0621 00 1 41772 SP2C STA CDR,1 SET C.S. NUMBER IN FIELD FLAG (6)4K688500| 42146 0361 00 0 21457 ACL BGDICT GET BASE ADDRESS OF THIS SECTION 4K688600| 42147 0621 00 0 42150 STA *+1 FROM 'BGDICT' PLUS 4K688700 42150 0500 00 0 00000 CLA ** SECTION NUMBER 4K688800| 42151 0520 00 0 21426 ZET SWABS IF ABSMOD 4K688900| 42152 4754 00 0 00000 PXD ,0 USE ZERO VALUE 4K689000| 0BINARY CARD ID. MAPK0292| 42153 4320 00 0 21723 SP2B ANA MSKAD ISOLATE LOW ORDER IS BITS 4K689100 42154 0054 00 000001 SP3 RFT 1 IF FIRST NAME IN FIELD SET CONTROL 4K689200| 42155 0055 00 000002 SIR 2 GROUP TO '01' 4K689300| 42156 0055 00 000001 SIR 1 IF NOT SET TO TO '11' 4K689400| 42157 0601 00 0 44740 STO RELVAL SAVE VALUE OF RELATIVE OPERAND 4K689500| 42160 0520 00 0 41757 ZET FOPSW FIRST OPERAND $4$4K689600 42161 4055 00 000004 SIL 4 NO, INDICATE 2ND OPERAND RELATIVE $4$4K689700| 42162 0020 00 4 00001 TRA 1,4 AND EXIT 4K689800| | * LOCATION COUNTER REFERENCE 4K690000| 42163 0522 00 0 41675 SP4A XEC PCM (6)4K690200| 42164 0520 00 0 37646 ZET LOCSW IF LOC NOT IN EFFECT, (6)4K690210| 42165 0020 00 0 42171 TRA SP4 FORCE COMPLEX TEXT (6)4K690220| 42166 0520 00 0 21432 ZET SWRELD IF CDREL NOT REQUESTED, (6)4K690230| 42167 0520 00 0 43455 ZET CMORG OR IF UNDER COMPLEX (6)4K690240 1 IBMAPV IBMAPK 12/01/64 PAGE 514 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42170 0621 00 1 41772 STA CDR,1 ORIGIN (6)4K690250| 42171 0560 60 0 37013 SP4 LDQ* RCTR (6)4K690300| 42172 4773 00 0 00002 RQL 2 $4$4K690400 42173 0500 60 0 37013 CLA* RCTR $4$4K690500| 42174 0520 00 0 36376 ZET PAND ARE WE IN THE SECOND PASS 4K690600| 42175 0020 00 0 42074 TRA SPA $4$4K690700| 42176 0500 00 0 36373 CLA RLOC ELSE GET '*' FROM 'RLOC' 4K690800| 42177 0120 00 0 41750 TPL RV16 EXIT IF UNAVAILABLE 4K690900 42200 4320 00 0 21723 ANA MSKAD 4K691000| 0BINARY CARD ID. MAPK0293| 42201 4520 00 0 36404 NZT RELCON 4K691100| 42202 0020 00 4 00001 TRA 1,4 $4$4K691200| 42203 0020 00 0 42153 TRA SP2B $4$4K691300 | * LITERAL 4K691600| | 42204 0074 00 1 43662 SP7 TSX CAQEV,1 GET DEFINITION $5$4K691800| 42205 0120 00 0 42071 TPL SP1C $5$4K691900 42206 0522 00 0 43677 XEC CAQ04 COMPLEMENT OF ID LOCATION $5$4K692000| 42207 4500 00 0 44372 CAL 11WRD DISPLACEMENT $5$4K692010| 42210 4320 00 0 21723 ANA MSKAD $5$4K692020| 42211 0361 00 1 00000 ACL 0,1 IN CASE 2 PREFIX $5$4K692030| 42212 0602 00 0 52430 SLW TEMP $5$4K692040 42213 0560 00 0 52430 LDQ TEMP $5$4K692050| 42214 0020 00 0 42102 TRA SP1A AFTER THIS TRANSFER WE $5$4K692060| * WILL EITHER GO TO RV16 OR TO THE $5$4K692070| * CALCULATION WHICH ARISES WHEN THERE $5$4K692080| * IS NO EQUAL REPLACEMENT. $5$4K692090 | * OCTAL CONSTANT 4K692400| | 42215 SP11 NULL (6)4K692600| 42215 4320 00 0 42225 SP11A ANA L18MSK SAVE LOW ORDER 18 BITS 4K693400 42216 4055 00 000001 SIL 1 INDICATE CONSTANT APPEARED (AP04X$4$4K693500| 42217 4057 00 000002 RIL 2 RESET 0 OPRAND INDICATOR 4K693600| 42220 0054 00 000002 RFT 2 SET COMPLEX IF 4K693700| 42221 0055 00 000001 SIR 1 FILE ENTRY PRECEEDED 4K693800| 42222 4100 00 4 00001 TNZ 1,4 TEST FOR 0 OPERAND 4K693900 42223 4055 00 000002 SIL 2 IF SO SET 0 OPERAND INDICATOR 4K694000| 42224 0020 00 4 00001 TRA 1,4 AND RETURN 4K694100| 42225 000000777777 L18MSK OCT 777777 18 BIT MASK 4K694300| | * INTERMEDIATE RESULT 4K694500 | 42226 0500 00 1 52430 SP12 CLA TEMP,1 '12' INTERMEDIATE RESULT 4K694700| 0BINARY CARD ID. MAPK0294| 42227 4520 00 0 41757 NZT FOPSW TEST IF FIRST OPERAND 4K694800| 42230 0020 00 4 00001 TRA 1,4 IF SO EXIT 4K694900 42231 0054 00 000003 RFT 3 ANY PREVIOUS RELATIVE 4K695000| 42232 4055 00 000004 SIL 4 SET BIT 15 4K695100| 42233 0020 00 4 00001 TRA 1,4 CONTINUE EVALUATION 4K695200| | 42234 0520 00 0 36376 SP17 ZET PAND IF NOT SECOND 4K695400 42235 0020 00 0 42241 TRA SP17A PASS, TREAT DFN 4K695500| 1 IBMAPV IBMAPK 12/01/64 PAGE 515 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42236 0754 00 0 00000 PXA 0,0 AS CONSTANT ZERO 4K695600| 42237 0055 00 000001 SIR 1 4K695700 42240 0020 00 0 42215 TRA SP11A 4K695800| 42241 0621 00 0 43152 SP17A STA NT(A) OTHERWISE 4K695900| 42242 0634 00 4 42261 SXA SP17C,4 $4$4K696000| 42243 0604 00 0 41764 STI REVT+4 $4$4K696010| 42244 0074 00 4 42626 TSX QS2,4 GET ID(A) FOR SYMBOL $4$4K696020 42245 4625 00 0 42752 STL QS9B SET MULTIPLE $4$4K696030| 42246 0441 60 0 43152 LDI* NT(A) NAME INDICATOR $4$4K696040| 42247 4056 00 760000 LNT 760000 $4$4K696050| 42250 0600 00 0 42752 STZ QS9B $4$4K696060| 42251 0441 60 0 43153 SP17B LDI* ID(A) TEST INTERNAL DICT $4$4K696070 42252 4051 00 020000 IIL 20000 FOR VIRTUAL $4$4K696080| 42253 4054 00 770000 LFT 770000 TYPE-ACCEPT $4$4K696090| 42254 0020 00 0 42256 TRA *+2 IF SO $4$4K696100| 0BINARY CARD ID. MAPK0295| 42255 0020 00 0 42261 TRA SP17C $4$4K696110 42256 0074 00 4 42736 TSX QS9,4 ELSE GET NEXT $4$4K696120| 42257 0020 00 0 42251 TRA SP17B NAME IN CHAIN $4$4K696130| 42260 0074 00 4 43137 TSX QS13,4 IF NONE, MAKE ANOTHER $4$4K696140| 42261 0774 00 4 00000 SP17C AXT **,4 $4$4K696150| 42262 0441 00 0 41764 LDI REVT+4 $4$4K696200 42263 0500 60 0 43153 CLA* ID(A) 4K696300| 42264 0621 00 0 42272 STA 2TQ2 REPLACE TEXT 4K696400| 42265 4500 60 0 42274 CAL* RVPAR WITH VIRTUAL 4K696500| 42266 4320 00 0 21730 ANA MSKFF SYMBOL REFERENCE 4K696600| 42267 0361 00 0 42272 ACL 2TQ2 AND TREAT AS 4K696700 42270 0602 60 0 42274 SLW* RVPAR CDICT ENTRY 4K696800| 42271 0020 00 0 42136 TRA SP2 4K696900| 42272 020000000000 2TQ2 OCT 020000000000 4-11-63 VERSION 3 4K697000| | 42273 0 00000 0 00000 SPEND PZE END OF SUBROUTINES 4K697200 1 IBMAPV IBMAPK 12/01/64 PAGE 516 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * TRANSFER TABLE FOR VARIABLE FIELD EVALUATOR 4K697400| 42274 0 00000 0 00000 RVPAR PZE 0 PARAMETER WORD IN CALLING SEQUENCE 4K697600| | 42275 0 00000 0 42066 RPTAB PZE SP1 NAME TABLE REFERENCE 4K697800| 42276 0 00000 0 42066 PZE SP1 INTERNAL DICTIONARY ENTRY 4K697900| 42277 0 00000 0 42142 PZE SP2A CONTROL DICTIONARY ENTRY 4K698000 42300 0 00000 0 00000 PZE 0 FILE DICTIONARY ENTRY 4K698100| 42301 0 00000 0 42171 PZE SP4 LOCATION COUNTER 4K698200| 42302 0 00000 0 00000 PZE 0 BEGIN QUALIFICATION SECTION 4K698300| 0BINARY CARD ID. MAPK0296| 42303 0 00000 0 00000 PZE 0 END QUALIFICATION SECTION 4K698400 42304 0 00000 0 42204 PZE SP7 LITERAL 4K698500| 42305 0 00000 0 42215 PZE SP11 DECIMAL CONSTANT 4K698600| 42306 0 00000 0 42215 PZE SP11 OCTAL CONSTANT 4K698700| 42307 0 00000 0 42226 PZE SP12 INTERMEDIATE RESULT 4K698800| 42310 0 00000 0 00000 PZE 0 NULL 4K698900 42311 0 00000 0 00000 PZE 0 SET ENTRY 4K699000| 42312 0 00000 0 00000 PZE 0 EVEN ENTRY 4K699100| 42313 0 00000 0 00000 PZE 0 USE ENTRY 4K699200| 42314 0 00000 0 42234 PZE SP17 4K699300| * CONVERT CONTROL DICTIONARY REFERENCES TO SHORT FORM COMPLEX 4K699500| * IF POSSIBLE 4K699600| | 42315 4520 00 1 41772 RVS NZT CDR,1 EXIT IF NOT 4K699800| 42316 0020 00 4 00001 TRA 1,4 CDICT REFERENCE 4K699900 42317 4520 00 0 21426 NZT SWABS CLEAR CDR IF THIS 4K700000| 42320 0520 00 0 40652 ZET NVC IS ABSMOD, OR IF 4K700100| 42321 0020 00 0 42330 TRA RVS2 PROCESSING -END- CARD 4K700200| 42322 0441 00 1 41763 LDI REVT+3,1 TEST FOR 4K700300| 42323 0051 00 000003 IIR 3 4K700400 42324 0056 00 000003 RNT 3 4K700500| 42325 0051 00 000003 IIR 3 4K700600| 42326 0056 00 000003 RNT 000003 LONG FORM COMPLEX 4K700700| 42327 0020 00 0 42332 TRA RVSA IF NOT GO TO 'RVSA' 4K700800| 42330 0600 00 1 41772 RVS2 STZ CDR,1 RESET CONTROL DICT INDICATOR 4K700900 0BINARY CARD ID. MAPK0297| 42331 0020 00 4 00001 TRA 1,4 AND RETURN 4K701000| | 42332 0500 00 1 41772 RVSA CLA CDR,1 GET SECTION NUMBER 4K701200| 42333 0621 00 0 42335 STA RVSB AND STORE IN 'RVSB' 4K701300 42334 0535 00 2 21457 LAC BGDICT,2 COMPUTE INCREMENT OR 4K701400| 42335 0500 00 2 00000 RVSB CLA **,2 DECREMNT OF THIS REFRENCE 4K701500| 42336 0534 00 2 42335 LXA RVSB,2 TEST FOR 4K701600| 42337 3 00001 2 42341 TXH *+2,2,1 CONTROL SECTION 1 4K701700| 42340 0500 60 0 37013 CLA* RCTR IF SO USE LOCATION COUNTER VALUE 4K701800 42341 4320 00 0 21723 ANA MSKAD FROM THE BASE 4K701900| 42342 4760 00 0 00003 SSM ADDRESS OF 4K702000| 42343 0400 00 1 41760 ADD REVT,1 THIS SECTION 4K702100| 42344 4100 00 0 42346 TNZ *+2 ELIMINATE MINUS SIGN 4K702200| 42345 4754 00 0 00000 PXD ,0 FROM ZERO INCREMENT 4K702300 42346 4340 00 0 42376 LAS L.MAX IF LARGER THAN 4K702400| 1 IBMAPV IBMAPK 12/01/64 PAGE 517 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42347 0120 00 0 42374 TPL RVSD 16384, CONVERT 4K702500| 42350 0400 00 0 41775 ADD L2E15 TO SMALLER NUMBER 4K702600 42351 4534 00 2 21460 RVSBB LXD CMPLX,2 GET MAX SHORT FORM SIZE 4K702700| 42352 0765 00 2 00016 LRS 14,2 SHIFT OUT MAXIMUM INCREMENT 4K702800| 42353 4100 00 0 42362 TNZ RVSB2 IF NOT WITIN LIMITS TRANSFER 4K702900| 42354 0500 00 0 21705 CLA L(1) TEST IF SECTION 4K703000| 42355 0634 00 2 42356 SXA *+1,2 NUMBER IS LESS 4K703100 42356 0767 00 0 00000 ALS ** THAN MAXIMUM CONTROL 4K703200| 0BINARY CARD ID. MAPK0298| 42357 0402 00 1 41772 SUB CDR,1 DICTIONARY SIZE 4K703300| 42360 0100 00 0 42362 TZE RVSB2 4K703400| 42361 0120 00 0 42365 TPL RVSC IF SO TRANSFER TO 'RVSC' 4K703500 42362 0500 00 0 21707 RVSB2 CLA L(3) ELSE STORE COMPLEX CONTROL 4K703600| 42363 0621 00 1 41763 STA REVT+3,1 GROUP TO FORCE 4K703700| 42364 0020 00 0 42330 TRA RVS2 LONG FORM COMPLEX 4K703800| 42365 0634 00 2 42367 RVSC SXA *+2,2 4K703900| 42366 4763 00 0 00001 LGL 1 SHIFT SIGN INTO ACCUM 4K704000 42367 0767 00 0 00000 ALS ** SHIFT MAXIMUM CONTROL DICTIONARY SIZE4K704100| 42370 0361 00 1 41772 ACL CDR,1 ADD SECTION NUMBER 4K704200| 42371 4763 00 2 00016 LGL 14,2 SHIFT MAXIMUM INCREMENT 4K704300| 42372 0621 00 1 41760 STA REVT,1 STORE SHORT FORM COMPLEX 4K704400| 42373 0020 00 4 00001 TRA 1,4 AND RETURN 4K704500 42374 0402 00 0 41775 RVSD SUB L2E15 CHANGE FROM 4K704600| 42375 0020 00 0 42351 TRA RVSBB PLUS TO MINUS 4K704700| | 42376 000000040000 L.MAX OCT 40000 MAX SIZE COMPARISON 4K704900| 1 IBMAPV IBMAPK 12/01/64 PAGE 518 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| | * PURPOSE 4K705300 * TO DETERMINE THE INTERNAL DICTIONARY LOCATION 'ID(A)' GIVEN 4K705400| * THE EXTERNAL DICTIONARY LOCATION 'NT(A)'. 4K705500| | * CALLING SEQUENCE 4K705700| * TSX RQUAL,1 4K705900| * PZE PDL,,PDC 4K706000| | * WHERE PDL=LOCATION OF PUSH DOWN LIST 4K706200| * PDC=LOCATION OF NUMBER OF ENTRIES IN PUSH DOWN LIST 4K706300 * INDEX 2=LOCATION OF '00' TEXT WORD 4K706400| | 42377 0634 00 4 42473 RQUAL SXA RQX2,4 SAVE RETURN ADDRESS 4K706600| 42400 0634 00 2 42476 SXA RQX3,2 SAVE WORKING STORAGE POSITION 4K706700| 42401 0500 00 1 00001 CLA 1,1 SAVE PARAMETER WORD 4K706800 42402 0601 00 0 52433 STO TEMP+3 IN 'TEMP'+3 4K706900| 42403 0600 00 0 43156 STZ LSTEL RESET QUAL INDICATOR $4$4K707000| 42404 0774 00 4 00001 AXT 1,4 RESET ALTERNATE $4$4K707100| 0BINARY CARD ID. MAPK0299| 42405 0634 00 4 42457 SXA QS10A,4 PUSH DOWN COUNT $4$4K707200 42406 0500 00 2 00000 RQ CLA 0,2 STORE NAME TABLE LOCATION 4K707300| 42407 0621 00 0 43152 STA NT(A) IN 'NT(A)' 4K707400| 42410 0634 00 2 52431 SXA TEMP+1,2 SAVE TEXT LOCATION OF ELEMENT $4$4K707500| 42411 0734 00 4 00000 PAX ,4 TEST FOR 4K707600| 42412 7 56657 4 42414 TXL *+2,4,NMCHN-1 VALID NAME TABLE 4K707700 42413 7 66737 4 42423 TXL RQ2A,4,NMCHN+2*TBLNTH-1 REFERENCE 4K707800| 42414 4520 00 0 36376 NZT PAND IF THIS IS 4K707900| 42415 0020 00 0 42420 TRA *+3 SECOND PASS, ISSUE 4K708000| 42416 0074 00 4 25576 TSX ERPR,4 'ILLEGAL QUAL 4K708100| 42417 0 00000 1 00170 PZE WMS039,GO USAGE ON THIS CARD' 4K708200 42420 0600 00 0 43153 STZ ID(A) RESET ID(A) 4K708300| 42421 0522 00 0 42473 XEC RQX2 RESTORE INDEX 4 4K708400| 42422 0020 00 0 42476 TRA RQX3 AND EXIT 4K708500| | 42423 0044 00 0 00000 RQ2A PAI PICK UP $4$4K708700 42424 4051 00 000100 IIL 100 FLAG FIELD $4$4K708800| 42425 4625 00 0 43155 STL RQU AND SET $4$4K708900| 42426 4054 00 007700 LFT 7700 $INDICATOR $4$4K709000| 42427 0600 00 0 43155 STZ RQU $4$4K709100| 42430 0074 00 4 42626 TSX QS2,4 GET INTERNAL DICTIONARY LOCATION 4K709200 42431 0441 60 0 43152 LDI* NT(A) BRANCH ACCORDING $4$4K709300| 42432 4056 00 760000 LNT 760000 TO SINGLE OR $4$4K709400| 0BINARY CARD ID. MAPK0300| 42433 0020 00 0 42435 TRA RQ3 MULTIPLE NAME $4$4K709500| 42434 0020 00 0 42501 TRA RQ4 $4$4K709600 | HANDLE SINGLE NAME $4$4K709800| 42435 0074 00 4 42642 RQ3 TSX QS4,4 TEST FOR VALID $4$4K709900| 42436 0020 00 0 42446 TRA RQ3.3 CODE $4$4K710000| 42437 4520 00 0 43156 NZT LSTEL IF SO, AND IF A $4$4K710100 42440 0020 00 0 42455 TRA RQX PREVIOUS AND OCCURRED- $4$4K710200| 1 IBMAPV IBMAPK 12/01/64 PAGE 519 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42441 0074 00 4 42656 TSX QS5,4 LOCATE PUSH DOWN LIST $4$4K710300| 42442 0074 00 4 42674 TSX QS6,4 STORE IN LSECT $4$4K710400 42443 0074 00 4 42710 TSX QS7,4 ALL OK IF IN LSECT $4$4K710500| 42444 0074 00 4 42611 TSX RQ26,4 OTHERWISE, IMPROPER QUALIFICATIO$4$4K710600| 42445 0020 00 0 42455 TRA RQX GO TO TEST END $4$4K710700| | INVALID CODE ONLY $4$4K710900 42446 4520 00 0 43155 RQ3.3 NZT RQU $4$4K711000| 42447 0020 00 0 42452 TRA *+3 IF QUALIFIER- $4$4K711100| 42450 0074 00 4 42604 TSX RQ25,4 ' - CANNOT BE USED AS QUAL' $4$4K711200| 42451 0020 00 0 42467 TRA RQXB IGNORE IT $4$4K711300| 42452 0074 00 4 43137 TSX QS13,4 IF NOT- MAKE ENTRY, $4$4K711400 42453 0520 00 0 43156 RQ3.4 ZET LSTEL AND IF PREVIOUS $, $4$4K711500| 42454 0074 00 4 42611 TSX RQ26,4 ' - IS IMPROPERLY QUALIFIED' $4$4K711600| $4$4K711700| CHECK FOR EXIT $4$4K711800| 42455 4520 00 0 43155 RQX NZT RQU TEST FOR LAST ELEMENT IN STRING 4K711900 42456 0020 00 0 42473 TRA RQX2 IF SO GO TO 'RQX2' 4K712000| 42457 0774 00 4 00000 RQXA AXT **,4 INCREASE $4$4K712100| 42460 1 77777 4 42461 TXI *+1,4,-1 ALTERNATE $4$4K712200| 0BINARY CARD ID. MAPK0301| 42461 0634 00 4 42457 SXA RQXA,4 PUSH DOWN COUNT $4$4K712300 42462 0500 00 0 43153 CLA ID(A) STORE $4$4K712400| 42463 0601 00 4 42754 STO PQLIST,4 ENTRY $4$4K712500| 42464 0500 00 0 42753 CLA QS10C USE ALTERNATE $4$4K712600| 42465 0601 00 0 52433 STO TEMP+3 LIST $4$4K712700| 42466 4625 00 0 43156 STL LSTEL SET PREVIOUS $ INDICATOR $4$4K712800 42467 0520 00 0 36376 RQXB ZET PAND IF SECOND PASS, $4$4K712900| 42470 0074 00 2 30070 TSX CROGAT,2 COLLECT REFERENCE $4$4K713000| 42471 0534 00 2 52431 LXA TEMP+1,2 GO TO PROCESS NEXT $4$4K713100| 42472 1 77777 2 42406 TXI RQ,2,-1 ELEMENT IN STRING $4$4K713200| 42473 0774 00 4 00000 RQX2 AXT **,4 RESTORE INDEX 4 4K713400| 42474 0520 00 0 36376 ZET PAND TEST IF SECOND PASS 4K713500| 42475 0074 00 2 30070 TSX CROGAT,2 IF SO GO TO CROSS REFERENCE GATHERER 4K713600| 42476 0774 00 2 00000 RQX3 AXT **,2 RESTORE INDEX 2 4K713700| 42477 0500 00 0 52431 CLA TEMP+1 LAST ELEMENT IN STRING TO ACCUM. 4K713800 42500 0020 00 1 00002 TRA 2,1 RETURN $4$4K713900| | HANDLE MULTIPLE NAME $4$4K714100| 42501 0634 00 0 42506 RQ4 SXA RQ4B,0 RESET VALID CODE COUNT $4$4K714200| 42502 4625 00 0 42752 STL QS9B SET MULTIPLE NAME INDICATOR $4$4K714300 42503 0074 00 4 42656 RQ4A TSX QS5,4 LOCATE PUSH DOWN LIST 4K714400| 42504 0074 00 4 42642 TSX QS4,4 TEST FOR VALID ADJECTIVE CODE 4K714500| 42505 0020 00 0 42516 TRA RQ8 NO - GET NEXT MULTIPLE NAME 4K714600| 42506 0774 00 4 00000 RQ4B AXT **,4 INCREASE COUNT $4$4K714700| 0BINARY CARD ID. MAPK0302 42507 1 00001 4 42510 TXI *+1,4,1 OF VALID NAMES $4$4K714800| 42510 0634 00 4 42506 SXA RQ4B,4 $4$4K714900| 42511 0074 00 4 42674 TSX QS6,4 STORE LAST ENTRY IN 'LSECT' 4K715000| 42512 0074 00 4 42710 TSX QS7,4 DOES ID(A) FALL WITHIN 'LSECT' 4K715100| 42513 0020 00 0 42516 TRA RQ8 NO - GO TO NEXT MULTIPLE NAME 4K715200 42514 0074 00 4 42721 TSX QS8,4 IS 'ID(A)' ALSO WITHIN A NESTED SECT 4K715300| 42515 0020 00 0 42560 TRA RQ20 NO - GO TO RQ20 4K715400| 1 IBMAPV IBMAPK 12/01/64 PAGE 520 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42516 0074 00 4 42736 RQ8 TSX QS9,4 GET 'ID(A)' FOR NEXT MULTIPLE NAME 4K715500 42517 0020 00 0 42503 TRA RQ4A REPEAT PROCESS FOR THIS NAME 4K715600| 42520 0522 00 0 42506 XEC RQ4B CONTINUE TO PROCESS PUSH $4$4K715700| 42521 3 00001 4 42534 TXH RQ12,4,1 DOWN LIST IF TWO OR MORE VALID $4$4K715800| 42522 7 00000 4 42446 TXL RQ3.3,4,0 EXIT IF NONE VALID $4$4K715900| 42523 0500 00 2 00000 CLA 0,2 $4$4K716000 42524 0621 00 0 43152 STA NT(A) IF PRECISELY ONE, $4$4K716100| 42525 0074 00 4 42626 TSX QS2,4 SEARCH NAME CHAIN $4$4K716200| 42526 0074 00 4 42642 RQ9 TSX QS4,4 TO FIND IT $4$4K716300| 42527 0020 00 0 42531 TRA *+2 $4$4K716400| 42530 0020 00 0 42453 TRA RQ3.4 USE THAT ONE $4$4K716500 42531 0074 00 4 42736 TSX QS9,4 $4$4K716600| 42532 0020 00 0 42526 TRA RQ9 $4$4K716700| 42533 0020 00 0 42453 TRA RQ3.4 $4$4K716800| | 42534 0500 00 2 00000 RQ12 CLA 0,2 GO TO BEGINNING OF 4K717000 0BINARY CARD ID. MAPK0303| 42535 0621 00 0 43152 STA NT(A) MULTIPLE NAME CHAIN 4K717100| 42536 0074 00 4 42626 TSX QS2,4 4K717200| 42537 0074 00 4 42666 TSX QS5A,4 4K717300| 42540 0074 00 4 42674 TSX QS6,4 STORE THIS ENTRY IN 'LSECT' 4K717400 42541 0020 00 0 42545 TRA RQ13 TEST IF LIST NOT EXHAUSTED, $4$4K717500| 42542 4520 00 0 43156 NZT LSTEL OTHERWISE, BE CERTAIN OF $4$4K717600| 42543 0074 00 4 42611 TSX RQ26,4 MESSAGE PRINT, AND GO $4$4K717700| 42544 0020 00 0 42526 TRA RQ9 GET FIRST VALID NAME $4$4K717800| 42545 0074 00 4 42642 RQ13 TSX QS4,4 TEST FOR VALID ADJECTIVE CODE 4K717900 42546 0020 00 0 42553 TRA RQ15 NO - GET NEXT MULTIPLE NAME 4K718000| 42547 0074 00 4 42710 TSX QS7,4 DOES 'ID(A)' FALL WITHIN 'LSECT' 4K718100| 42550 0020 00 0 42553 TRA RQ15 NO - GET NEXT MULTIPLE NAME 4K718200| 42551 0074 00 4 42721 TSX QS8,4 DOES 'ID(A)' FALL WITHIN NESTED SECT 4K718300| 42552 0020 00 0 42556 TRA RQ19 NO - TEST FOR DUPLICATE NAME 4K718400 42553 0074 00 4 42736 RQ15 TSX QS9,4 GET NEXT NAME IN MULTIPLE CHAIN 4K718500| 42554 0020 00 0 42545 TRA RQ13 AND REPEAT PROCESS 4K718600| 42555 0020 00 0 42534 TRA RQ12 GO AGAIN, IF EXHAUSTED $4$4K718700| | 42556 0774 00 4 42673 RQ19 AXT QS5B,4 ALTER PARAMETER WORD TO GET 4K718900 42557 4634 00 4 52433 SXD TEMP+3,4 PUSH DOWN COUNT FROM 'QS5B' 4K719000| 42560 0500 00 0 43153 RQ20 CLA ID(A) SAVE ID(A) BEFORE 4K719100| 42561 0601 00 0 52432 STO TEMP+2 CHECKING FOR DUPLICATE NAME 4K719200| 42562 0500 00 0 43152 CLA NT(A) SAVE NT(A) BEFORE 4K719300| 0BINARY CARD ID. MAPK0304 42563 0601 00 0 52434 STO TEMP+4 CHECKING FOR DUPLICATE NAME 4K719400| 42564 0074 00 4 42736 RQ21 TSX QS9,4 GET NEXT MULTIPLE NAME 4K719500| 42565 0020 00 0 42573 TRA RQ23 TEST IF ALSO WITHIN 'LSECT' 4K719600| 42566 0500 00 0 52432 RQ22 CLA TEMP+2 NAME CHAIN IS EXHAUSTED 4K719700| 42567 0601 00 0 43153 STO ID(A) RESTORE ID(A) FROM 'TEMP'+2 4K719800 42570 0500 00 0 52434 CLA TEMP+4 RESTORE NT(A) 4K719900| 42571 0601 00 0 43152 STO NT(A) FROM 'TEMP'+4 4K720000| 42572 0020 00 0 42455 TRA RQX AND EXIT 4K720100| 42573 0074 00 4 42642 RQ23 TSX QS4,4 TEST FOR VALID ADJECTIVE CODE 4K720200| 42574 0020 00 0 42564 TRA RQ21 NO GET NEXT MULTIPLE NAME 4K720300 42575 0074 00 4 42710 TSX QS7,4 DOES THID NAME FALL WITHIN 'LSECT' 4K720400| 42576 0020 00 0 42564 TRA RQ21 NO - GET NEXT MULTIPLE NAME 4K720500| 42577 0074 00 4 42721 TSX QS8,4 IS IT ALSO WITHIN A NESTED SECTION 4K720600| 1 IBMAPV IBMAPK 12/01/64 PAGE 521 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0 42600 0020 00 0 42602 TRA *+2 NO- QUAL ERROR $4$4K720700| 42601 0020 00 0 42564 TRA RQ21 YES - TEST NEXT MULTIPLE NAME 4K720800| 42602 0074 00 4 42611 TSX RQ26,4 PRINT MESSAGE, $4$4K720900| 42603 0020 00 0 42566 TRA RQ22 USE ORIGINAL $4$4K721000| | * QUALIFICATION ERROR MESSAGES $4$4K721300| | 42604 4520 00 0 36376 RQ25 NZT PAND NO MESSAGE IF $4$4K721500| 42605 0020 00 4 00001 TRA 1,4 NOT SECOND PASS $4$4K721600 42606 0634 00 4 42622 SXA RQ26X,4 SAVE RETURN $4$4K721700| 42607 0774 00 4 00167 AXT RMS035,4 SET MESSAGE CODE $4$4K721800| 42610 0020 00 0 42615 TRA RQ26M $4$4K721900| 0BINARY CARD ID. MAPK0305| 42611 4520 00 0 36376 RQ26 NZT PAND NO MESSAGE IF $4$4K722000 42612 0020 00 4 00001 TRA 1,4 DICTIONARY DEFINITION (6)4K722100| 42613 0634 00 4 42622 SXA RQ26X,4 SAVE RETURN $4$4K722200| 42614 0774 00 4 00036 AXT RMS003,4 SET MESSAGE CODE $4$4K722300| 42615 0500 00 0 43152 RQ26M CLA NT(A) STORE NAME $4$4K722400| 42616 0621 00 0 42625 STA RQ26B FOR MESSAGE $4$4K722500 42617 0634 00 4 42621 SXA *+2,4 SET CODE, $4$4K722600| 42620 0074 00 4 25576 TSX ERPR,4 ISSUE MESSAGE, $4$4K722700| 42621 0 42624 1 00000 PZE **,GO,RQ26A AND $4$4K722800| 42622 0774 00 4 00000 RQ26X AXT **,4 EXIT $4$4K722900| 42623 0020 00 4 00001 TRA 1,4 $4$4K723000 42624 0 00000 0 00001 RQ26A PZE 1 SUBSTITUTION LIST FOR 4K723100| 42625 0 00000 2 00000 RQ26B PZE **,2 QUALIFICATION ERRORS 4K723200| | 42626 0634 00 4 42640 QS2 SXA QS2A,4 TO DETERMINE ID(A) FROM NT(A) 4K723400| 42627 0500 00 0 43152 CLA NT(A) COMPUTE LOCATION $4$4K723500 42630 4765 00 0 00001 LGR 1 AND PICK UP $4$4K723600| 42631 0737 00 4 00000 PAC 0,4 HASH TABLE $4$4K723700| 42632 0500 00 4 23300 CLA HASHT-NMCHN/2,4 WORD $4$4K723800| 42633 0162 00 0 42635 TQP *+2 IF THERE IS A REMAINDER 4K723900| 42634 0771 00 0 00022 ARS 18 GET ID(A) FROM DECREMENT 4K724000 42635 0621 00 0 43153 STA ID(A) STORE IN 'ID(A)' 4K724100| 42636 4520 00 0 43153 NZT ID(A) TEST FOR UNDEFINED SYMBOL 4K724200| 0BINARY CARD ID. MAPK0306| 42637 0074 00 4 43055 TSX QS12,4 IF SO MAKE CONTROL ENTRY 4K724300| 42640 0774 00 4 00000 QS2A AXT **,4 RESTORE INDEX 4 4K724400 42641 0020 00 4 00001 TRA 1,4 AND RETURN 4K724500| | 42642 0441 60 0 43153 QS4 LDI* ID(A) TEST FOR VALID ADJECTIVE CODE 4K724700| 42643 0520 00 0 43155 ZET RQU TEST FOR '$' STRING 4K724800| 42644 0020 00 0 42652 TRA QS4B IF SO '05' IS VALID CODE 4K724900 42645 4056 00 040000 LNT 40000 ACCEPT ANYTHING $4$4K725000| 42646 0020 00 4 00002 TRA 2,4 EXCEPT 04,05,06,07 $4$4K725100| 42647 4054 00 300000 LFT 300000 IF NO $. $4$4K725200| 42650 0020 00 4 00002 TRA 2,4 $4$4K725300| 42651 0020 00 4 00001 TRA 1,4 $4$4K725400 42652 4051 00 050000 QS4B IIL 50000 ACCEPT ONLY 05 $4$4K725500| 42653 4054 00 370000 LFT 370000 AS QUALIFIER $4$4K725600| 42654 0020 00 4 00001 TRA 1,4 $4$4K725700| 42655 0020 00 4 00002 TRA 2,4 $4$4K725800| 1 IBMAPV IBMAPK 12/01/64 PAGE 522 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 | 42656 0500 00 0 52433 QS5 CLA TEMP+3 STORE LOCATION OF PUSH DOWN 4K726000| 42657 0621 00 0 42702 STA QS6B LIST IN 'QS6B' 4K726100| 42660 0771 00 0 00022 ARS 18 GET 4K726200 42661 0621 00 0 42662 STA *+1 NUMBER OF ENTRIES 4K726300| 42662 0500 00 0 00000 CLA ** (COMPLEMENTED) 4K726400| 42663 0621 00 0 42673 STA QS5B STORE IN 4K726500| 42664 0621 00 0 42675 STA QS6A 'QS5B' AND 'QS6A' 4K726600| 0BINARY CARD ID. MAPK0307 42665 0020 00 4 00001 TRA 1,4 RETURN 4K726700| | 42666 0500 00 0 42673 QS5A CLA QS5B ALTER 4K726900| 42667 0400 00 0 21705 ADD L(1) 'QS5B' AND 'QS6A' 4K727000| 42670 0621 00 0 42673 STA QS5B TO POINT TO NEXT HIGHER 4K727100 42671 0621 00 0 42675 STA QS6A ENTRY IN PUSH DOWN LIST 4K727200| 42672 0020 00 4 00001 TRA 1,4 RETURN 4K727300| 42673 0 00000 0 00000 QS5B PZE 0 4K727400| | 42674 0634 00 4 42706 QS6 SXA QS6E,4 LOCATE LAST ENTRY 4K727600 42675 0774 00 4 00000 QS6A AXT **,4 IN PUSH DOWN LIST 4K727700| 42676 7 00000 4 42702 TXL QS6B,4,0 TEST 4K727800| 42677 3 00001 4 42702 TXH QS6B,4,1 IF LIST 4K727900| 42700 0522 00 0 42706 XEC QS6E IS EXHAUSTED 4K728000| 42701 0020 00 4 00002 TRA 2,4 IF SO, EXIT 2,4 $4$4K728100 42702 0500 00 4 00000 QS6B CLA **,4 STORE LAST ENTRY IN 4K728200| 42703 0621 00 0 43154 STA LSECT PUSH DOWN LIST IN 'LSECT' 4K728300| 42704 1 00001 4 42705 TXI *+1,4,1 ALTER 'QS6A' TO POINT TO NEXT 4K728400| 42705 0634 00 4 42675 SXA QS6A,4 HIGHER ENTRY IN PUSH DOWN LIST 4K728500| 42706 0774 00 4 00000 QS6E AXT **,4 RESTORE INDEX 4 4K728600 42707 0020 00 4 00001 TRA 1,4 AND EXIT 1,4 $4$4K728700| | 42710 0500 00 0 43153 QS7 CLA ID(A) DOES 'ID(A)' FALL WITHIN THE 4K728900| 42711 0402 00 0 43154 SUB LSECT SECTION SPECIFIED IN 'LSECT' 4K729000| 42712 4120 00 4 00001 TMI 1,4 ID(A) OCCURS BEFORE THIS SECTION 4K729100 0BINARY CARD ID. MAPK0308| 42713 0500 60 0 43154 CLA* LSECT DETERMINE 4K729200| 42714 0771 00 0 00017 ARS 15 LAST INTERNAL DICTIONARY 4K729300| 42715 4320 00 0 21723 ANA MSKAD LOCATION OF THIS SECTION 4K729400| 42716 0402 00 0 43153 SUB ID(A) DOES ID(A) OCCUR BEFORE THIS LOCATION4K729500 42717 0120 00 4 00002 TPL 2,4 YES - ID(A) IS WITHIN THIS SECTION4K729600| 42720 0020 00 4 00001 TRA 1,4 NO - ID(A) IS OUT OF THIS SECTION 4K729700| | 42721 0500 60 0 43154 QS8 CLA* LSECT TO TEST IF ID(A) IS WITHIN A 4K729900| 42722 4320 00 0 21723 QS8A ANA MSKAD NESTED SECTION LOCATE NEXT SECTION4K730000 42723 0100 00 4 00001 TZE 1,4 EXIT IF THERE IS NONE 4K730100| 42724 0621 00 0 42727 STA QS8B STORE LOCATION OF NEXT SECTION 4K730200| 42725 0402 00 0 43153 SUB ID(A) DOES ID(A) OCCUR BEFORE THIS SECTION 4K730300| 42726 0120 00 4 00001 TPL 1,4 ID(A) IS NOT WITHIN THIS SECTION 4K730400| 42727 0500 00 0 00000 QS8B CLA ** LOCATE 4K730500 42730 0771 00 0 00017 ARS 15 LAST INTERNAL DICTIONARY LOCATION 4K730600| 42731 4320 00 0 21723 ANA MSKAD OF THIS SECTION 4K730700| 42732 0402 00 0 43153 SUB ID(A) DOES ID(A) OCCUR BEFORE THIS LOCATN 4K730800| 42733 0120 00 4 00002 TPL 2,4 YES - ID(A) IS WITHIN THIS SECTION4K730900| 42734 0522 00 0 42727 XEC QS8B TEST IF ID(A) 4K731000 1 IBMAPV IBMAPK 12/01/64 PAGE 523 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 42735 0020 00 0 42722 TRA QS8A FALLS WITHIN A NESTED SECTION 4K731100| | 42736 0500 00 0 42752 QS9 CLA QS9B 4K731300 42737 4625 00 0 42752 STL QS9B MULTIPLE NAME CHAIN 4K731400| 42740 0100 00 4 00002 TZE 2,4 IF SO EXIT 2,4 4K731500| 0BINARY CARD ID. MAPK0309| 42741 0634 00 4 42750 SXA QS9A,4 GET NAME TABLE LOCATION 4K731600| 42742 0500 60 0 43152 CLA* NT(A) OF NEXT MULTIPLE NAME FROM 4K731700 42743 0621 00 0 43152 STA NT(A) ADDRESS OF THIS NAME 4K731800| 42744 0074 00 4 42626 TSX QS2,4 GET ID(A) FOR THIS NAME 4K731900| 42745 0441 60 0 43152 LDI* NT(A) TEST FOR END 4K732000| 42746 4056 00 760000 LNT 760000 OF MULTIPLE NAME CHAIN 4K732100| 42747 0600 00 0 42752 STZ QS9B IF SO SET 'QS9B' = 0 4K732200 42750 0774 00 4 00000 QS9A AXT **,4 RESTORE INDEX 4 4K732300| 42751 0020 00 4 00001 TRA 1,4 AND RETURN 4K732400| 42752 0 00000 0 00000 QS9B PZE 0 END OF MULTIPLE NAME CHAIN INDICATOR 4K732500| | 42457 QS10A EQU RQXA ALT PD COUNT (PREVIOUS ASSEMBLY) $4$4K732700 42753 0 42457 0 42754 QS10C PZE PQLIST,,QS10A PARAMETER WORD 4K732800| 42754 0 00000 0 21470 PQLIST PZE DPQL DUMMY PUSH DOWN ENTRY 4K732900| 42755 BSS PDSZE PUSH DOWN LIST BUFFER 4K733000| | 0BINARY CARD ID. MAPK0310 43055 0634 00 2 43134 QS12 SXA QS12F,2 SAVE INDEX 2 4K733200| 43056 0634 00 4 43135 SXA QS12G,4 SAVE INDEX 4 4K733300| 43057 0774 00 2 00000 QS12AA AXT 0,2 IF NOT IN 4K733400| 43060 4520 00 0 43160 NZT PVRT (6)4K733410| 43061 4520 00 0 36376 NZT PAND SECOND PASS 4K733500 43062 0020 00 0 43133 TRA QS12E STORE 0 IN ID(A) 4K733600| 43063 0074 00 4 25604 TSX INDUM,4 GET DUMMY LOCATION 4K733700| 43064 4520 00 0 21426 QS12AB NZT SWABS SKIP MESSAGE 4K733800| 43065 0020 00 0 43072 TRA QS12A IF NOT ABS ASSEMBLY 4K733900| 43066 0500 00 0 43152 CLA NT(A) 4K734000 43067 0621 00 0 42625 STA RQ26B PRINT 4K734100| 43070 0074 00 4 25576 TSX ERPR,4 '-' IS AN 4K734200| 43071 0 42624 1 00154 PZE RMS031,GO,RQ26A UNDEFINED SYMBOL 4K734300| 43072 4500 00 0 21706 QS12A CAL L(2) STORE '2' 4K734400| 43073 0767 00 0 00017 ALS 15 ADJECTIVE CODE 4K734500 43074 0361 00 0 43152 ACL NT(A) STORE NT(A) IN U ADDRESS 4K734600| 43075 0767 00 0 00017 ALS 15 STORE ABOVE WORD IN 4K734700| 43076 0602 00 2 00000 SLW 0,2 CONTROL DICTIONARY 4K734800| 43077 4634 00 2 43114 SXD QS12B,2 SAVE INTERNAL DICTIONARY LOCATION (6)4K734810| 43100 0074 00 4 44742 TSX SRCST,4 DOES CDICT MATCH (6)4K734820 43101 0020 00 0 43107 TRA QS12AD NO, RETAIN NEW ENTRY (6)4K734830| 43102 0500 00 0 21437 CLA ENAC YES, REMOVE CURRENT ENTRY (6)4K734840| 0BINARY CARD ID. MAPK0311| 43103 0402 00 0 21705 SUB L(1) AND SUBSTITUTE MATCHING (6)4K734850| 43104 0601 00 0 21437 STO ENAC REAL (6)4K734860 43105 4634 00 2 43114 SXD QS12B,2 ENTRY (6)4K734870| 43106 0020 00 0 43113 TRA QS12D (6)4K734880| | 43107 0534 00 4 21460 QS12AD LXA CMPLX,4 BUMP (6)4K734900| 43110 1 00001 4 43111 TXI *+1,4,1 'CMPLX' (6)4K734910 1 IBMAPV IBMAPK 12/01/64 PAGE 524 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43111 0634 00 4 21460 SXA CMPLX,4 BY 1 (6)4K734920| 43112 4534 00 2 43114 LXD QS12B,2 COMPUTE (6)4K734930| 43113 0534 00 4 21457 QS12D LXA BGDICT,4 CONTROL SECTION (6)4K735000 43114 1 00000 4 43115 QS12B TXI *+1,4,** NUMBER 4K735100| 43115 0754 00 4 00000 PXA ,4 STORE 4K735200| 43116 0737 00 4 00000 PAC ,4 CONTROL SECTION NUMBER 4K735300| 43117 0754 00 4 00000 PXA ,4 IN ADDRESS OF 4K735400| 43120 0621 00 2 00000 STA 0,2 CONTROL DICTIONARY ENTRY 4K735500 43121 0500 00 0 43152 CLA NT(A) COMPUTE 'HASHT' $4$4K735600| 43122 4765 00 0 00001 LGR 1 LOCATION 4K735700| 43123 0737 00 4 00000 PAC ,4 FOR 4K735800| 43124 4535 00 2 43114 LDC QS12B,2 THIS NT(A) 4K735900| 43125 0162 00 0 43131 TQP QS12C TRANSFER IF ADDRESS PART OF 'HASHT' 4K736000 43126 4754 00 2 00000 PXD ,2 STORE CONTROL DICTIONARY LOCATION 4K736100| 43127 0622 00 4 23300 STD HASHT-NMCHN/2,4 IN DECREMENT $4$4K736200| 43130 0020 00 0 43133 TRA QS12E GO TO EXIT (6)4K736300| 0BINARY CARD ID. MAPK0312| 43131 0754 00 2 00000 QS12C PXA ,2 STORE CONTROL DICTIONARY LOCATION 4K736400 43132 0621 00 4 23300 STA HASHT-NMCHN/2,4 IN ADDRESS $4$4K736500| 43133 0634 00 2 43153 QS12E SXA ID(A),2 STORE INTERNAL LOCATION OF 'ID(A)' 4K736900| 43134 0774 00 2 00000 QS12F AXT **,2 RESTORE INDEX 2 4K737000| 43135 0774 00 4 00000 QS12G AXT **,4 RESTORE INDEX 4 4K737100| 43136 0020 00 4 00001 TRA 1,4 AND RETURN 4K737200 | 43137 0634 00 2 43134 QS13 SXA QS12F,2 SAVE 4K737400| 43140 0634 00 4 43135 SXA QS12G,4 REGISTERS 4K737500| 43141 4520 00 0 43160 NZT PVRT (6)4K737510| 43142 4520 00 0 36376 NZT PAND EXIT IF 4K737600 43143 0020 00 0 43057 TRA QS12AA NOT IN SECOND PASS 4K737700| 43144 4500 60 0 43152 CAL* NT(A) OTHERWISE, 4K737800| 43145 0602 00 0 21461 SLW NAME MAKE DUPLICATE 4K737900| 43146 0074 00 4 25602 TSX PLNME,4 ENTRY 4K738000| 43147 0500 00 0 25607 CLA 77WD RESET NT(A) TO 4K738100 43150 0621 00 0 43152 STA NT(A) NEW VALUE AND 4K738200| 43151 0020 00 0 43064 TRA QS12AB GO TO FINISH PROCESS 4K738300| | * MISCELLANEOUS INDICATORS 4K738500| 43152 0 00000 0 00000 NT(A) PZE 0 NAME TABLE LOCATOR 4K738700| 43153 0 00000 0 00000 ID(A) PZE 0 INTERNAL DICTIONARY LOCATOR 4K738800| 43154 0 00000 0 00000 LSECT PZE 0 LAST SECTION IN PUSH DOWN LIST 4K738900| 43155 0 00000 0 00000 RQU PZE 0 '$' STRING INDICATOR 4K739000| 43156 0 00000 0 00000 LSTEL PZE ** ALTERNATE PUSH DOWN LIST INDICATOR$4$4K739100 0BINARY CARD ID. MAPK0313| 43157 4 00000 0 00000 L(MZE) MZE 0 4K739200| 43160 0 00000 0 00000 PVRT *** (6)4K739210| 1 IBMAPV IBMAPK 12/01/64 PAGE 525 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0| | * FORM CONTROL GROUP FOR A DATA WORD 4K739500| * SET COMPLEX INDICATORS 'CMADD' OR 'CMDEC' IF NECESSARY 4K739600| 43161 4625 00 0 43445 RPTEXT STL PCTRL SET 'PCTRL' NON-ZERO 4K739800| 43162 0520 00 0 21426 ZET SWABS TEST FOR 'ABSMOD' 4K739900| 43163 0020 00 4 00001 TRA 1,4 IF SO EXIT 4K740000| 43164 0634 00 1 43352 SXA RPTN,1 SAVE 4K740100| 43165 0634 00 2 43353 SXA RPTNA,2 ALL 4K740200 43166 0634 00 4 43354 SXA RPTNB,4 INDEX REGISTERS 4K740300| 43167 0600 00 0 43443 STZ CMADD RESET COMPLEX ADDRESS INDICATOR 4K740400| 43170 0600 00 0 43444 STZ CMDEC RESET COMPLEX DECREMENT INDICATOR 4K740500| 43171 0604 00 0 43453 STI RPTT+5 SAVE INDICATORS 4K740600| 43172 4500 00 0 41765 CAL REVT+5 GET DECREMENT CONTROL GROUP 4K740700 43173 0767 00 0 00002 ALS 2 SHIFT LEFT 2 4K740800| 43174 0361 00 0 41763 ACL REVT+3 ADD ADDRESS CONTROL GROUP 4K740900| 43175 0361 00 0 43442 ACL L(20) ADD STANDARD WORD BIT 4K741000| 43176 0044 00 0 00000 PAI STORE CONTROL GROUP IN INDICATORS 4K741100| 43177 4520 00 0 41772 NZT CDR TEST FOR SHORT FORM COMPLEX 4K741200 43200 0020 00 0 43203 TRA *+3 IF NOT TEST FOR 'LONG FORM 4K741300| 43201 0055 00 000003 SIR 3 SET COMPLEX ADDRESS CONTROL GROUP 4K741400| 43202 0020 00 0 43210 TRA RPT4 GO TO TEST DECREMENT 4K741500| 43203 0056 00 000003 RNT 3 TEST FOR COMPLEX ADDRESS 4K741600| 43204 0020 00 0 43210 TRA RPT4 IF NOT GO TO RPT4 4K741700 0BINARY CARD ID. MAPK0314| 43205 4625 00 0 43443 STL CMADD ELSE SET 'CMADD' 4K741800| 43206 4520 00 0 30324 NZT PMODE IF IN RELATIVE MODE 4K741900| 43207 0634 00 0 41760 SXA REVT,0 SET ADDRESS FIELD TO 0 4K742000| 43210 4520 00 0 41774 RPT4 NZT CDR+2 TEST FOR SHORT FORM COMPLEX 4K742100 43211 0020 00 0 43214 TRA *+3 IF NOT TEST FOR LONG FORM 4K742200| 43212 0055 00 000014 SIR 14 SET COMPLEX DECREMENT CONTROL GROUP 4K742300| 43213 0020 00 0 43221 TRA RPT5 GO TO STORE FINAL CONTROL GROUP 4K742400| 43214 0056 00 000014 RNT 14 TEST FOR LONG FORM COMPLEX 4K742500| 43215 0020 00 0 43221 TRA RPT5 IF NOT STORE FINAL CONTROL GROUP 4K742600 43216 4625 00 0 43444 STL CMDEC ELSE SET 'CMDEC' 4K742700| 43217 4520 00 0 30324 NZT PMODE IF IN RELATIVE MODE 4K742800| 43220 0634 00 0 41762 SXA REVT+2,0 SET DECREMENT FIELD TO 0 4K742900| 43221 0604 00 0 43445 RPT5 STI PCTRL STORE FINAL CONTROL GROUP 4K743000| 43222 0020 00 0 43352 TRA RPTN EXIT 4K743100 | * PROCESS COMPLEX ADDRESS 4K743300| | 43223 4774 00 2 52231 RCMA AXC 2B+1,2 LOCATE VARIABLE FIELD 4K743500| 43224 0600 00 0 43443 STZ CMADD RESET COMPLEX ADDRESS INDICATOR 4K743600 43225 0634 00 4 43324 RCM SXA RCM9,4 SAVE RETURN ADDRESS 4K743700| 43226 0604 00 0 43454 STI RPTT+6 SAVE INDICATORS 4K743800| 43227 0074 00 1 36770 TSX 3R16Q,1 OPTIMIZE RESULT STORAGE USAGE 4K743900| 43230 0600 00 0 43446 RCM2 STZ RPTT RESET DATA WORD 4K744000| 43231 0441 00 0 21704 LDI L(0) RESET INDICATORS 4K744100 43232 0560 00 2 00000 LDQ 0,2 GET TRANSFER ADDRESS 4K744200| 0BINARY CARD ID. MAPK0315| 43233 4154 01 1 43357 CRQ CMTAB,1,1 FOR THIS ADJECTIVE CODE 4K744300| 43234 7 00000 1 43244 TXL RCM3,1,0 IGNORE IF ADDRESS UNAVAILABLE 4K744400| 1 IBMAPV IBMAPK 12/01/64 PAGE 526 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43235 0634 00 1 43240 SXA RCM2A,1 SET UP 'TSX' TO PROPER 4K744500| 43236 4500 00 2 00000 CAL 0,2 SUBROUTINE. 4K744600| 43237 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1 4K744700| 43240 0074 00 4 00000 RCM2A TSX **,4 GET VALUE OF FIRST OPERAND 4K744800 43241 0621 00 0 43446 STA RPTT STORE VALUE IN 'RPTT' 4K744900| 43242 0604 00 0 43452 STI RPTT+4 SAVE CONTROL GROUP 4K745000| 43243 0441 00 0 21704 LDI L(0) RESET INDICATORS 4K745100| 43244 0560 00 2 00000 RCM3 LDQ 0,2 ISOLATE FLAG FIELDS 4K745200| 43245 4763 00 0 00014 LGL 12 OF FIRST OPERAND 4K745300 43246 4320 00 0 21727 ANA MSKLO AND STORE IN 4K745400| 43247 0734 00 1 00000 PAX ,1 INDEX 1 . 4K745500| 43250 7 00002 1 43274 TXL RCM6,1,2 TRANSFER ON '02' (COMMA) 4K745600| 43251 1 77775 1 43252 TXI *+1,1,-3 SUBTRACT 3 4K745700| 43252 4754 00 1 00000 PXD ,1 FROM OPERATOR FLAG 4K745800 43253 0767 00 0 00017 ALS 15 FIELDS AND STORE IN 4K745900| 43254 0630 00 0 43446 STP RPTT PREFIX OF 'RPTT' 4K746000| 43255 1 77777 2 43256 TXI *+1,2,-1 LOCATE SECOND OPERAND 4K746100| 43256 0560 00 2 00000 LDQ 0,2 GET TRANSFER ADDRESS 4K746200| 43257 4154 01 1 43357 CRQ CMTAB,1,1 FOR THIS ADJECTIVE CODE 4K746300 43260 7 00000 1 43267 TXL RCM5,1,0 IGNORE IF ADDRESS UNAVAILABLE 4K746400| 0BINARY CARD ID. MAPK0316| 43261 0634 00 1 43264 SXA RCM4,1 SET UP 'TSX' TO PROPER 4K746500| 43262 4500 00 2 00000 CAL 0,2 SUBROUTINE. 4K746600| 43263 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1. 4K746700 43264 0074 00 4 00000 RCM4 TSX **,4 GET VALUE OF SECOND OPERAND 4K746800| 43265 0767 00 0 00022 ALS 18 AND STORE IN DECREMENT 4K746900| 43266 0622 00 0 43446 STD RPTT OF RPTT 4K747000| 43267 0560 00 2 00000 RCM5 LDQ 0,2 ISOLATE FLAG FIELDS 4K747100| 43270 4763 00 0 00014 LGL 12 OF SECOND OPERAND 4K747200 43271 4320 00 0 21727 ANA MSKLO AND LOAD IN 4K747300| 43272 0734 00 1 00000 PAX ,1 INDEX 1 . 4K747400| 43273 3 00002 1 43275 TXH *+2,1,2 TEST FOR '00' OR '01' FLAG FIELDS 4K747500| 43274 0774 00 1 00057 RCM6 AXT 47,1 IF SO STORE A 7 4K747600| 43275 1 77730 1 43276 TXI *+1,1,-40 IN TAG FIELD OF DATA WORD 4K747700 43276 4754 00 1 00000 PXD ,1 OTHERWISE SUBSTRACT 50 4K747800| 43277 0771 00 0 00003 ARS 3 FROM RESULT STORAGE NUMBER 4K747900| 43300 0625 00 0 43446 STT RPTT STORE IN TAG OF DATA WORD 4K748000| 43301 0604 00 0 43453 STI RPTT+5 SAVE CONTROL GROUP 4K748100| 43302 0634 00 1 43320 SXA RCM7,1 SAVE RESULT STORAGE NUMBER 4K748200 43303 4500 00 0 43453 CAL RPTT+5 FORM FINAL 4K748300| 43304 0767 00 0 00002 ALS 2 CONTROL GROUP 4K748400| 43305 0361 00 0 43452 ACL RPTT+4 IN 4K748500| 43306 0361 00 0 43442 ACL L(20) ACCUMUL+TOR 4K748600| 0BINARY CARD ID. MAPK0317 43307 0602 00 0 43445 SLW PCTRL STORE IN PCTRL 4K748700| 43310 4500 00 0 43446 CAL RPTT GET DATA WORD 4K748800| 43311 0560 00 0 27741 LDQ BLANX SET LOCATION FIELD 4K748900| 43312 4600 00 0 41527 STQ XBUF TO BLANKS 4K749000| 43313 0520 00 0 40730 ZET RTITLE TEMP SUPPRESS LIST $4$4K749100 43314 4625 00 0 21456 STL KLPRNT IF 'TITLE' IN EFFECT $4$4K749200| 43315 0074 00 1 41173 TSX RPAC2,1 CONVERT DATA WORD TO OCTAL 4K749300| 43316 0074 00 1 41302 TSX P1515,1 PRINT DATA WORD 4K749400| 43317 0074 00 1 41453 TSX PRCG,1 PRINT CONTROL GROUP 4K749500| 43320 0774 00 1 00000 RCM7 AXT **,1 GET TAG FIELD OF LAST WORD 4K749600 1 IBMAPV IBMAPK 12/01/64 PAGE 527 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43321 3 00006 1 43323 TXH RCM8,1,6 EXIT IF '7' 4K749700| 43322 1 77777 2 43230 TXI RCM2,2,-1 PROCESS NEXT OPERATOR 4K749800| 43323 4774 00 2 52230 RCM8 AXC 2B,2 REPOSITION INDEX 2 4K749900 43324 0774 00 4 00000 RCM9 AXT **,4 RESTORE INDEX 4 4K750000| 43325 0441 00 0 43454 LDI RPTT+6 RESTORE INDICATORS 4K750100| 43326 0020 00 4 00001 TRA 1,4 AND RETURN 4K750200| | * PROCESS COMPLEX DECREMENT 4K750400 | 43327 0634 00 4 43350 RCMD SXA RCMD5,4 SAVE RETURN ADDRESS 4K750600| 43330 0600 00 0 43444 STZ CMDEC RESET COMPLEX DECREMENT INDICATOR 4K750700| 43331 0600 00 0 43446 STZ RPTT RESET COMMA INDICATOR 4K750800| 43332 4774 00 2 52231 AXC 2B+1,2 LOCATE VARIABLE FIELD 4K750900 43333 0560 00 2 00000 RCMD2 LDQ 0,2 ISOLATE 4K751000| 43334 4763 00 0 00014 LGL 12 FLAG FIELDS 4K751100| 0BINARY CARD ID. MAPK0318| 43335 4320 00 0 21727 ANA MSKLO OF NEXT TEXT WORD 4K751200| 43336 0100 00 0 43350 TZE RCMD5 IF 00 EXIT 4K751300 43337 4340 00 0 21706 LAS L(2) TEST FOR 02 (COMMA) 4K751400| 43340 1 77777 2 43333 TXI RCMD2,2,-1 IF NOT TEST NEXT WORD 4K751500| 43341 0020 00 0 43343 TRA *+2 TRANSFER ON COMMA 4K751600| 43342 1 77777 2 43333 TXI RCMD2,2,-1 IF NOT TEST NEXT WORD 4K751700| 43343 0520 00 0 43446 ZET RPTT IS THIS THE FIRST COMMA 4K751800 43344 1 77777 2 43347 TXI RCMD4,2,-1 IF NOT GO TO PROCESS DECREMENT 4K751900| 43345 4625 00 0 43446 STL RPTT ELSE SET COMMA INDICATOR 4K752000| 43346 1 77777 2 43333 TXI RCMD2,2,-1 LOOK FOR ANOTHER COMMA 4K752100| 43347 0074 00 4 43225 RCMD4 TSX RCM,4 CONVERT DECREMENT FOR LOADER 4K752200| 43350 0774 00 4 00000 RCMD5 AXT **,4 RESTORE INDEX 4 4K752300 43351 0020 00 4 00001 TRA 1,4 AND RETURN 4K752400| 43352 0774 00 1 00000 RPTN AXT **,1 RESTORE 4K752500| 43353 0774 00 2 00000 RPTNA AXT **,2 ALL 4K752600| 43354 0774 00 4 00000 RPTNB AXT **,4 INDEX REGISTERS 4K752700| 43355 0441 00 0 43453 LDI RPTT+5 RESTORE INDICATORS 4K752800 43356 0020 00 4 00001 TRA 1,4 AND RETURN 4K752900| 1 IBMAPV IBMAPK 12/01/64 PAGE 528 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * TRANSFER TABLE FOR COMPLEX STRING EVALUATION 4K753100 | 43357 0 00000 0 43376 CMTAB PZE CMP1 NAME TABLE REFERENCE 4K753300| 43360 0 00000 0 43376 PZE CMP1 INTERNAL DICTIONARY ENTRY 4K753400| 43361 0 00000 0 43427 PZE CMP2 CONTROL DICTIONARY ENTRY 4K753500| 43362 0 00000 0 00000 PZE 0 FILE DICT $5$4K753600 0BINARY CARD ID. MAPK0319| 43363 0 00000 0 43432 PZE CMP4 LOCATION COUNTER $5$4K753700| 43364 0 00000 0 00000 PZE 0 BEGIN QUALIFICATION SECTION $5$4K753800| 43365 0 00000 0 00000 PZE 0 END QUALIFICATION SECTION $5$4K753900| 43366 0 00000 0 00000 PZE 0 LITERAL $5$4K754000 43367 0 00000 0 43436 PZE CMP11 DECIMAL CONSTANT 4K754100| 43370 0 00000 0 43436 PZE CMP11 OCTAL CONSTANT 4K754200| 43371 0 00000 0 43440 PZE CMP12 INTERMEDIATE RESULT 4K754300| 43372 0 00000 0 00000 PZE 0 NULL 4K754400| 43373 0 00000 0 00000 PZE 0 SET ENTRY 4K754500 43374 0 00000 0 00000 PZE 0 EVEN ENTRY 4K754600| 43375 0 00000 0 00000 PZE 0 USE ENTRY 4K754700| | * INTERNAL DICTIONARY REFERENCE 4K754900| 43376 0500 00 1 00000 CMP1 CLA 0,1 TEST IF NAME IS DWFINED 4K755100| 43377 0441 00 1 00000 LDI 0,1 4K755200| 43400 0120 00 0 43405 TPL CMP1A IF NOT, TEST FOR SPECIAL TYPES 4K755300| 43401 4056 00 100000 LNT 100000 4K755400| 43402 0020 00 0 43420 TRA CMPA RELATIVE IF NOT BOOLEAN 4K755500 43403 0441 00 0 21704 LDI L(0) 4K755600| 43404 0020 00 0 43436 TRA CMP11 CONSTANT IF BOOLEAN 4K755700| | 43405 4056 00 140000 CMP1A LNT 140000 TEST FOR 14 TYPE 4K755900| 43406 0020 00 0 43411 TRA *+3 NO- 4K756000 43407 0441 00 0 21704 LDI L(0) YES - USE AS 4K756100| 43410 0020 00 0 43436 TRA CMP11 CONSTANT 4K756200| 0BINARY CARD ID. MAPK0320| 43411 4056 00 020000 LNT 020000 TEST FOR FILE OT CONTROL 4K756300| 43412 0020 00 0 43420 TRA CMPA REFERENCE. IF NOT GO TO 'CMPA' 4K756400 43413 4054 00 010000 LFT 010000 TEST FOR FILE REFERENCE 4K756500| 43414 4501 00 0 43426 ORA FDREF YES OR BIT 24 4K756600| 43415 0441 00 0 21704 LDI L(0) RESET INDICATORS 4K756700| 43416 0055 00 000002 SIR 2 SET CONTROL GROUP TO 10 4K756800| 43417 0020 00 0 43424 TRA CMPB GO TO EXIT 4K756900 43420 4765 00 0 00017 CMPA LGR 15 SAVE VALUE $4$4K757000| 43421 4320 00 0 21705 ANA L(1) SAVE RELATIVE INDICATION $4$4K757100| 43422 0044 00 0 00000 PAI $4$4K757200| 43423 4763 00 0 00017 LGL 15 $4$4K757300| 43424 4320 00 0 21723 CMPB ANA MSKAD ISOLATE ADDRESS OF ACC. 4K757400 43425 0020 00 4 00001 TRA 1,4 AND RETURN 4K757500| 43426 000000004000 FDREF OCT 4000 FILE DICTIONARY REFDRNCE BIT 4K757600| | * CONTROL DICTIONARY REFERENCE 4K757800| 43427 4320 00 0 21723 CMP2 ANA MSKAD ISOLATE SECTION NUMBER 4K758000| 43430 0055 00 000002 SIR 2 SET CONTROL REFEENCE BIT 4K758100| 1 IBMAPV IBMAPK 12/01/64 PAGE 529 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43431 0020 00 4 00001 TRA 1,4 CONTINUE EVALUATION 4K758200 | * LOCATION COUNTER 4K758400| | 43432 4500 00 0 36373 CMP4 CAL RLOC GET VALUE OF '*' 4K758600| 43433 4320 00 0 21723 ANA MSKAD GET THE CURRENT LOCATION 4K758700 43434 0055 00 000001 SIR 1 SET RELATIVE BIT 4K758800| 43435 0020 00 4 00001 TRA 1,4 CONTINUE EVALUATION 4K758900| | | * OCTAL OR DECIMAL CONSTANT 4K759800 | 43436 4320 00 0 21723 CMP11 ANA MSKAD '11' CONSTANT (15 BITS ALWAYS) 4K760000| 0BINARY CARD ID. MAPK0321| 43437 0020 00 4 00001 TRA 1,4 ISOLATE LOW ORDER 18 BITS 4K760100| * INTERMEDIATE RESULT 4K760300| | 43440 0055 00 000003 CMP12 SIR 3 '12' INTERMEDIATE RESULT 4K760500| 43441 0020 00 4 00001 TRA 1,4 SET CONTROL GROUP TO '11' 4K760600| 43442 000000000020 L(20) OCT 20 4K760800| | * MISCELLANEOUS INDICATORS AND WORKING STORAGE 4K761000| | 43443 0 00000 0 00000 CMADD PZE COMPLEX ADDRESS INDICATOR 4K761200 43444 0 00000 0 00000 CMDEC PZE COMPLEX DECREMENT INDICATOR 4K761300| 43445 0 00000 0 00000 PCTRL PZE 0 CONTROL GROUP CELL 4K761400| 43446 RPTT BSS 7 WORKING STORAGE 4K761500| 0BINARY CARD ID. MAPK0322| 43455 0 00000 0 00000 CMORG ** COMPLEX ORIGIN INDICATOR (6)4K761510 1 IBMAPV IBMAPK 12/01/64 PAGE 530 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| | * A CLOSED SUBROUTINE TO EVALUATE BOOLEAN EXPRESSIONS. 4K761800 | * CALLING SEQUENCE 4K762000| * TSX RBEV,4 4K762100| * PZE N,2 (N,2 IS THE EFFECTIVE ADDRESS OF FIRST WORD) 4K762200| * IF VALUE IS UNAVAILABLE ACCUMULATOR WILL BE POSITIVE 4K762400| * OTHERWISE THE VALUE IS IN THE LOW ORDER OF THE ACC. 4K762500| * AND CELL 'REVT' 4K762600| | 43456 0634 00 1 43543 RBEV SXA BV12,1 SAVE 4K762800 43457 0634 00 2 43544 SXA BV13,2 ALL 4K762900| 43460 0634 00 4 43545 SXA BV14,4 INDEX REGISTERS 4K763000| 43461 0600 00 0 43576 STZ LFTB RESET LEFT BOOLEAN INDICATOR 4K763100| 43462 0600 00 0 43577 STZ RGTB RESET RIGHT BOOLEAN INDICATOR 4K763200| 43463 0560 00 4 00001 LDQ 1,4 STORE PARAMETER WORD 4K763300 43464 4600 00 0 42274 STQ RVPAR IN 'RVPAR' 4K763400| 43465 0600 00 0 41772 STZ CDR CLEAR SHORT FORM 4K763500| 43466 0600 00 0 41774 STZ CDR+2 COMPLEX CELLS 4K763600| 43467 0774 00 1 00006 AXT 6,1 SET VARIABLE FIELD VALUE 4K763700| 43470 0600 00 1 41766 STZ REVT+6,1 AND CONTROL GROUP CELLS 4K763800 43471 2 00001 1 43470 TIX *-1,1,1 TO ZERO 4K763900| 43472 0600 00 0 41770 BEV2 STZ RVRT RESET 2 OPERAND 4K764000| 43473 0600 00 0 41771 STZ RVRT+1 RESULT STORAGES 4K764100| 43474 0560 60 0 42274 LDQ* RVPAR GET TRANSFER ADDRESS 4K764200| 43475 4154 01 1 43642 CRQ BPTAB,1,1 FOR FIRST OPERAND 4K764300 43476 7 00000 1 43540 TXL BV8,1,0 EXIT IF NONE AVAILABLE 4K764400| 43477 4763 00 0 00006 LGL 6 ISOLATE FLAG FIELDS 4K764500| 43500 4320 00 0 21713 ANA L(7) OF FIRST OPERAND 4K764600| 43501 0621 00 0 43510 STA BV4 AND STORE IN BV4 4K764700| 43502 4500 60 0 42274 CAL* RVPAR SET UP 'TSX' TO PROPER 4K764800 0BINARY CARD ID. MAPK0323| 43503 0634 00 1 43505 SXA *+2,1 SUBROUTINE 4K764900| 43504 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1 4K765000| 43505 0074 00 4 00000 TSX **,4 GET VALUE OF FIRST OPERAND 4K765100| 43506 0601 00 0 41770 STO RVRT AND STORE IN RVRT 4K765200 43507 1 77777 2 43510 TXI *+1,2,-1 LOCATE SECOND OPERAND 4K765300| 43510 4774 00 1 00000 BV4 AXC **,1 TEST FLAG FIELDS OF FIRST 4K765400| 43511 7 00000 1 43540 TXL BV8,1,0 OPERAND. EXIT IF 00 4K765500| 43512 3 77775 1 43540 TXH BV8,1,-3 OR IF COMMA 4K765600| 43513 0560 60 0 42274 LDQ* RVPAR GET TRANSFER ADDRESS 4K765700 43514 4154 01 1 43642 CRQ BPTAB,1,1 FOR SECOND OPERAND 4K765800| 43515 7 00000 1 43540 TXL BV8,1,0 EXIT IF NONE AVAILABLE 4K765900| 43516 4763 00 0 00006 LGL 6 ISOLATE FLAG FIELDS 4K766000| 43517 4320 00 0 21727 ANA MSKLO OF SECOND OPERAND 4K766100| 43520 0621 00 0 43532 STA BV7 AND STORE IN BV7 4K766200 43521 4500 60 0 42274 CAL* RVPAR SET UP 'TSX' TO PROPER 4K766300| 43522 0634 00 1 43524 SXA *+2,1 SUBROUTINE. 4K766400| 43523 0737 00 1 00000 PAC ,1 STORE ADDRESS IN INDEX 1 4K766500| 43524 0074 00 4 00000 TSX **,4 GET VALUE OF SECOND OPERAND 4K766600| 43525 0601 00 0 41771 STO RVRT+1 AND STORE IN RVRT+1 4K766700 43526 1 77777 2 43527 TXI *+1,2,-1 LOCATE NEXT OPERAND 4K766800| 43527 0522 00 0 43510 XEC BV4 GET OPERATOR AND GO TO 4K766900| 1 IBMAPV IBMAPK 12/01/64 PAGE 531 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43530 0020 60 1 43616 TRA* BASR,1 4K767000 0BINARY CARD ID. MAPK0324| 43531 0761 00 0 00000 BV6 NOP SAVE INTERMEDIATE RESULT 4K767100| 43532 4774 00 1 00000 BV7 AXC **,1 TEST SECOND WORD FLAG FIELDS 4K767200| 43533 7 00000 1 43540 TXL BV8,1,0 EXIT IF '00' 4K767300| 43534 3 77775 1 43540 TXH BV8,1,-3 OR IF COMMA 4K767400 43535 3 77730 1 43472 TXH BEV2,1,-40 ELSE IGNORE IF NOT RESULT 4K767500| 43536 0601 00 1 52360 STO TEMP-40,1 ELSE STORE INTERMEDIATE RESULT 4K767600| 43537 0020 00 0 43472 TRA BEV2 GO TO PROCESS NEXT OPERAND PAIR 4K767700| 43540 4320 00 0 42225 BV8 ANA L18MSK TRUNCATE TO 18 BITS 4K767800| 43541 0601 00 0 41760 STO REVT STORE FINAL VALUE IN 'REVT' 4K767900 43542 4760 00 0 00003 SSM SSM TO INDICATE DEFINITION 4K768000| 43543 0774 00 1 00000 BV12 AXT **,1 RESTORE 4K768100| 43544 0774 00 2 00000 BV13 AXT **,2 ALL 4K768200| 43545 0774 00 4 00000 BV14 AXT **,4 INDEX REGISTERS 4K768300| 43546 0020 00 4 00002 TRA 2,4 RETURN 4K768400 | | 43547 0500 00 1 00000 BP1 CLA 0,1 GET VALUE FROM INTERNAL DICTIONARY 4K768700| 43550 0560 00 1 00000 LDQ 0,1 4K768800| 43551 4120 00 0 43563 TMI BP1A TO DEFINED TEST 4K768900 43552 0771 00 0 00014 ARS 12 IF NOT DEFINED, 4K769000| 43553 4734 00 1 00000 PDX 0,1 TEST FOR 14 TYPE 4K769100| 43554 1 77764 1 43555 TXI *+1,1,-12 4K769200| 43555 0131 00 0 00000 XCA IF SO, TREAT 4K769300| 43556 7 00000 1 43565 TXL BP1B,1,0 AS CONSTANT 4K769400 0BINARY CARD ID. MAPK0325| 43557 4520 00 0 36376 BV15 NZT PAND SECOND PASS $4$4K769500| 43560 0020 00 0 43543 TRA BV12 NO, EXIT $4$4K769600| 43561 4754 00 0 00000 BV16 ZAC SET ZERO $5$4K769700| 43562 0020 00 4 00001 TRA 1,4 AND CONTINUE $4$4K769800 | 43563 4773 00 0 00001 BP1A RQL 1 TEST FOR EQU TYPE 4K770100| 43564 0162 00 0 43566 TQP *+2 4K770200| 43565 4320 00 0 21723 BP1B ANA MSKAD IF SO, 15 BIT CONSTANT 4K770300| 43566 4734 00 1 00000 PDX ,1 GET LEFT OR RIGHT INDICATION 4K770400 43567 4320 00 0 42225 ANA L18MSK ISOLATE VALUE 4K770500| 43570 7 00000 1 43573 TXL *+3,1,0 EXIT IF UNDESIGNATED 'BOOL' 4K770600| 43571 3 00001 1 43574 TXH *+3,1,1 TRANSFER IF LEFT 'BOOL' 4K770700| 43572 4625 00 0 43577 STL RGTB SET RIGHT 'BOOL' INDICATOR 4K770800| 43573 0020 00 4 00001 TRA 1,4 AND EXIT 4K770900 43574 4625 00 0 43576 STL LFTB SET LEFT 'BOOL' INDICATOR 4K771000| 43575 0020 00 4 00001 TRA 1,4 AND EXIT 4K771100| 43576 0 00000 0 00000 LFTB PZE 0 LEFT BOOL INDICATOR 4K771200| 43577 0 00000 0 00000 RGTB PZE 0 RIGHT BOOL INDICATOR 4K771300| 43600 1 00001 1 43601 BP2 TXI *+1,1,1 4K771500| 43601 3 00000 1 43561 TXH BV16,1,0 IF SO USE LOCATION COUNTER 4K771600| | 43602 0500 00 0 36373 BP4 CLA RLOC GET LOCATION COUNTER VALUE 4K771800| 43603 0120 00 0 43557 TPL BV15 FROM 'RLOC'. EXIT IF UNAVAILABLE $4$4K771900 43604 4320 00 0 21723 BP4A ANA MSKAD ISOLATE ADDRESS 4K772000| 0BINARY CARD ID. MAPK0326| 1 IBMAPV IBMAPK 12/01/64 PAGE 532 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43605 0020 00 4 00001 TRA 1,4 AND RETURN 4K772100 43606 0074 00 1 43662 BP7 TSX CAQEV,1 EVALUATE LITERAL $5$4K772300| 43607 0120 00 0 43604 TPL BP4A $5$4K772400| 43610 4754 00 0 00000 ZAC EXIT IF BASE ADDRESS $5$4K772600| 43611 0020 00 0 43557 TRA BV15 IS UNKNOWN $4$4K772610| 43612 4320 00 0 42225 BP11 ANA L18MSK '11' OCTAL CONSTANT. ISOLATE 4K772800| 43613 0020 00 4 00001 TRA 1,4 LOW ORDER 18 BITS AND RETURN 4K772900| | 43614 0500 00 1 52430 BP12 CLA TEMP,1 '12' INTERMEDIATE RESULT 4K773100| 43615 0020 00 4 00001 TRA 1,4 RETURN 4K773200 | 43616 0 00000 0 43540 BASR PZE BV8 0 SHOULD NOT OCCUR 4K773400| 43617 0 00000 0 43540 PZE BV8 NOR SHOULD $ 4K773500| 43620 0 00000 0 43540 PZE BV8 NOR EVEN COMMA 4K773600| 43621 0 00000 0 43626 PZE BPAD INCLUSIVE OR SUBROUTINE 4K773700 43622 0 00000 0 43631 PZE BSAD EXCLUSIVE OR SUBROUTINE 4K773800| 43623 0 00000 0 43634 PZE BMAD AND SUBROUTINE 4K773900| 43624 0 00000 0 43637 PZE BDAD COMPLEMENT SUBROUTINE 4K774000| 43625 0 00000 0 43540 PZE BV8 CONTINUE IS NOT POSSIBLE 4K774100| 43626 4500 00 0 41770 BPAD CAL RVRT INCLUSIVE 'OR' 4K774300| 43627 4501 00 0 41771 ORA RVRT+1 SUBROUTINE 4K774400| 43630 0020 00 0 43531 TRA BV6 CONTINUE EVALUATION 4K774500| | 43631 4500 00 0 41770 BSAD CAL RVRT EXCLUSIVE 'OR' 4K774700 43632 0322 00 0 41771 ERA RVRT+1 SUBROUTINE 4K774800| 0BINARY CARD ID. MAPK0327| 43633 0020 00 0 43531 TRA BV6 CONTINUE EVALUATION 4K774900| 43634 4500 00 0 41770 BMAD CAL RVRT 'AND' 4K775100| 43635 4320 00 0 41771 ANA RVRT+1 SUBROUTINE 4K775200 43636 0020 00 0 43531 TRA BV6 CONTINUE EVALUATION 4K775300| | 43637 4500 00 0 41771 BDAD CAL RVRT+1 'COMPLEMENT' 4K775500| 43640 0760 00 0 00006 COM SUBROUTINE 4K775600| 43641 0020 00 0 43531 TRA BV6 CONTINUE EVALUATION 4K775700 | 43642 0 00000 0 43547 BPTAB PZE BP1 NAME TABLE REFERENCE 4K775900| 43643 0 00000 0 43547 PZE BP1 INTERNAL DICTIONARY ENTRY 4K776000| 43644 0 00000 0 43600 PZE BP2 CONTROL DICTIONARY 4K776100| 43645 0 00000 0 43557 PZE BV15 FILE DICTIONARY 4K776200 43646 0 00000 0 43602 PZE BP4 LOCATION COUNTER 4K776300| 43647 0 00000 0 43557 PZE BV15 QUAL SECTION 4K776400| 43650 0 00000 0 43557 PZE BV15 ENDQ SECTION 4K776500| 43651 0 00000 0 43606 PZE BP7 LITERAL 4K776600| 43652 0 00000 0 43612 PZE BP11 DECIMAL CONSTANT 4K776700 43653 0 00000 0 43612 PZE BP11 OCTAL CONSTANT 4K776800| 43654 0 00000 0 43614 PZE BP12 INTERMEDIATE RESULT 4K776900| 43655 0 00000 0 43612 PZE BP11 NULL OPERAND 4K777000| 43656 0 00000 0 43547 PZE BP1 SET ENTRY 4K777100| 43657 0 00000 0 43557 PZE BV15 EVEN ENTRY 4K777200 43660 0 00000 0 43557 PZE BV15 USE ENTRY 4K777300| 0BINARY CARD ID. MAPK0328| 43661 0 00000 0 43561 PZE BV16 17 TYPE 4K777400| 1 IBMAPV IBMAPK 12/01/64 PAGE 533 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0| * OBTAIN ID LOCATION FROM CURRENT POINTER WORD $5$4K777402| * ENTER WITH 07 WORD IN ACCUMULATOR $5$4K777403| 43662 0634 00 1 43703 CAQEV SXA CAQ06,1 $5$4K777409| 43663 0621 00 0 43721 STA DISP $5$4K777410 43664 0621 00 0 44372 STA 11WRD $5$4K777411| 43665 0767 00 0 00003 ALS 3 $5$4K777412| 43666 4320 00 0 43717 ANA M777D SAVE NINE BITS $5$4K777414| 43667 0340 00 0 43720 CAS M377D CAQ LIMIT $5$4K777416| 43670 0020 00 0 43705 TRA CAQ02 TWO CAQ'S NEEDED $5$4K777418 43671 0761 00 0 00000 NOP $5$4K777420| 43672 4501 00 0 43716 ORA CAQ05 $5$4K777422| 43673 0602 00 0 43675 SLW CAQ03 $5$4K777424| 43674 0560 00 0 21704 LDQ L(0) $5$4K777425| 43675 4114 00 1 21465 CAQ03 CAQ RDPOOL,1,** $5$4K777426 43676 0634 00 1 43677 SXA *+1,1 LOCATION OF POINTER WORD $5$4K777428| 43677 4535 00 1 00000 CAQ04 LDC **,1 ID LOCATION $5$4K777430| 43700 4500 00 0 43721 CAL DISP $5$4K777432| 43701 0402 00 1 00000 SUB 0,1 $5$4K777436| 43702 0560 00 1 00000 LDQ 0,1 $5$4K777438 43703 0774 00 1 00000 CAQ06 AXT **,1 $5$4K777440| 43704 0020 00 1 00001 TRA 1,1 $5$4K777442| 43705 4320 00 0 43720 CAQ02 ANA M377D $5$4K777450| 43706 4501 00 0 43716 ORA CAQ05 $5$4K777452| 0BINARY CARD ID. MAPK0329 43707 0602 00 0 43675 SLW CAQ03 $5$4K777454| 43710 0560 00 0 21704 LDQ L(0) $5$4K777456| 43711 4117 77 1 21465 CAQ RDPOOL,1,255 $5$4K777457| 43712 0634 00 1 43713 SXA *+1,1 $5$4K777458| 43713 4114 01 1 00000 CAQ **,1,1 $5$4K777459 43714 0634 00 1 43675 SXA CAQ03,1 $5$4K777460| 43715 0020 00 0 43675 TRA CAQ03 $5$4K777462| 43716 4114 00 1 21465 CAQ05 CAQ RDPOOL,1,0 $5$4K777464| 43717 000777000000 M777D VFD O18/777 $5$4K777466| 43720 000377000000 M377D VFD O18/377 $5$4K777468 43721 0 00000 0 00000 DISP PZE $5$4K777469| 1 IBMAPV IBMAPK 12/01/64 PAGE 534 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * THIS ROUTINE SCANS THE VARIABLE FIELD EXPRESSION, WHICH 4K777600 * IS IN T2 FORMAT, AND REPLACES ALL EXPRESSIONS DEFINED 204K777700| * BY 'EQU' PSEUDO OPERATIONS WITH THEIR EQUIVALENT 304K777800| * EXPRESSIONS. 404K777900| * 504K778000| * CALLING SEQUENCE 604K778100 * TSX TEQU,4 4K778200| * FINAL OUTPUT STARTS AT 2B+1 4K778500| * RETURN TO 1,4 904K778600| * THE ONLY ERROR IS CAUSED BY AN EXPRESSION WHICH IS TOO COMPLEX 1004K778700| * 1104K778800 * SET START AND TARGET 1004K778900| 43722 0634 00 4 44350 TEQU SXA DONES,4 SAVE RETURN 1014K779000| 43723 4774 00 1 52231 AXC 2B+1,1 SET 2B+1 AS TARGET 944K779100| 43724 0634 00 1 44247 SXA 4T2,1 FOR FINAL T2 TEXT 954K779200| 43725 4774 00 1 35432 AXC 2BB,1 VARIABLE FIELD START 974K779300 43726 0600 00 0 44354 INIT STZ PACNT PARENTHESIS COUNT 1104K779400| 43727 4774 00 4 52027 AXC LINK-1,4 T1 TABLE 1124K779500| 43730 0634 00 4 44200 SXA ENTT1,4 X 1144K779600| 43731 4774 00 4 52230 AXC LINK+STLSZ,4 PUSH DOWN 1164K779700| 43732 4634 00 4 44207 SXD ENPD1,4 LIST 1184K779800 43733 0634 00 0 44113 SXA ENOPT,0 INITIALIZE OPTABLE 1194K779900| 43734 0600 00 0 52430 STZ TEMP FIRST WORD OF OPTBL 1204K780000| 0BINARY CARD ID. MAPK0330| 43735 0600 00 0 44357 STZ COMSW 1214K780100| 43736 4634 00 1 43770 B1 SXD START,1 4K780200 43737 0441 00 1 00000 LDI 0,1 FIRST ENTRY 1804K780300| 43740 4054 00 007500 LFT 007500 TEST FOR TERMINATOR OR COMMA 1854K780400| 43741 1 77777 1 43745 TXI *+4,1,-1 GO FORWARD 1 1904K780500| 43742 4054 00 007700 LFT 007700 IS THIS A COMMA 1954K780600| 43743 0634 00 1 44357 SXA COMSW,1 YES SET NEXT PICKUP-1 2004K780700 43744 0020 00 0 43753 TRA B 2054K780800| 43745 0441 00 1 00000 LDI 0,1 2104K780900| 43746 4054 00 007500 LFT 007500 TEST FOR TERMINATOR OR COMMA 2154K781000| 43747 1 77776 1 43745 TXI *-2,1,-2 EXAMINE ALTERNATE ENTRIES 2204K781100| 43750 4054 00 007700 LFT 007700 IS THIS ALSO A COMMA 2254K781200 43751 0634 00 1 44357 SXA COMSW,1 YES 2304K781300| 43752 1 00001 1 43753 TXI *+1,1,1 GO BACK 1 WORD 2404K781400| 43753 0441 00 1 00000 B LDI 0,1 EXAMINE OPERAND 2504K781500| 43754 4054 00 650000 LFT 650000 INTERMEDIATE RESULT 4K781600| 43755 0020 00 0 43776 TRA NRCST NO 4K781700 43756 4056 00 120000 LNT 120000 INTERMEDIATE RESULT 2604K781800| 43757 0020 00 0 43776 TRA NRCST NO NAME OR CONSTANT 2704K781900| * PROCESS AN INTERMEDIATE OPERAND 2804K782000| 43760 0500 00 0 44354 CLA PACNT INCREASE PARENTHESIS LEVEL (6)4K782010| 43761 0400 00 0 21717 ADD PRONE (6)4K782020 43762 0601 00 0 44354 STO PACNT (6)4K782030| 0BINARY CARD ID. MAPK0331| 43763 0074 00 4 44122 TSX ENPDL,4 XR1 TO PUSH DOWN LIST 3004K782100| 43764 0055 00 000050 SIR 50 ADD RESULT STORAGE FLAG (6)4K782110| 43765 4046 00 0 00000 PIA BITS TO OPERAND (6)4K782120 43766 0767 00 0 00030 ALS 24 SHIFT TO FLAG FIELD (6)4K782130| 43767 1 00001 1 43770 TXI START,1,1 STEP BACK ONE WORD (6)4K782200| 1 IBMAPV IBMAPK 12/01/64 PAGE 535 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 43770 3 00000 1 44222 START TXH ERTEQ,1,** CHECK FOR ILLEGAL CONDITION (6)4K782300 43771 0441 00 1 00000 LDI 0,1 COMPARE RESULT STORAGE (6)4K782400| 43772 0041 00 0 00000 IIA AGAINST CURRENT OPERAND (6)4K782410| 43773 4054 00 007700 LFT 007700 DOES IT MATCH (6)4K782500| 43774 1 00001 1 43770 TXI START,1,1 NO, KEEP LOOKING (6)4K782510| 43775 1 00001 1 43753 TXI B,1,1 YES, STEP TO FIRST OF PAIR (6)4K782520 43776 4054 00 760000 NRCST LFT 760000 TEST IF NAME TABLE REFERENCE 4K782600| 43777 0020 00 0 44134 TRA B17 NO, EXAMINE FURTHER $5$4K782700| 44000 4046 00 0 00000 PIA 4K782800| 44001 0737 00 4 00000 PAC 0,4 -I.D. LOCATION 4K782900| 44002 0441 00 4 00000 LDI 0,4 4K783000 44003 4056 00 600000 LNT 600000 TEST IF DEFINED BY = 4K783100| 44004 0020 00 0 44031 TRA B23 4K783200| 44005 0054 00 700000 RFT 700000 USE ORIGINAL TEXT $4$4K783300| 44006 0020 00 0 44010 TRA *+2 IF A CONSTANT $4$4K783400| 44007 0020 00 0 44063 TRA B24+1 $4$4K783500 44010 0500 00 0 44354 CLA PACNT 4304K783600| 0BINARY CARD ID. MAPK0332| 44011 0400 00 0 21717 ADD PRONE 4354K783700| 44012 0601 00 0 44354 STO PACNT 4374K783800| 44013 0074 00 4 44122 TSX ENPDL,4 4384K783900 44014 4046 00 0 00000 PIA DECREMENT OF ID POINTS 4K784000| 44015 4734 00 1 00000 PDX 0,1 TO 2ND ENTRY IN PSEUDO TABLE 4K784100| 44016 1 77777 1 44017 TXI *+1,1,-1 4K784200| 44017 0634 00 1 44020 SXA *+1,1 INDEX 1 AND 4 ARE COMPLEMENT 4K784300| 44020 0774 00 4 00000 AXT **,4 OF START OF EQUAL 4K784400 44021 4520 00 4 00000 NZT 0,4 4K784500| 44022 1 77777 4 44021 A TXI *-1,4,-1 ADVANCE SOURCE 4K784600| 44023 0441 00 4 00000 LDI 0,4 4K784700| 44024 0604 00 1 00000 STI 0,1 4K784800| 44025 4054 00 007700 LFT 007700 TEST IF DONE 4K784900 44026 1 77777 1 44022 TXI A,1,-1 NO, ADVANCE TARGET 4K785000| 44027 0534 00 1 44020 LXA A-2,1 4K785100| 44030 0020 00 0 43736 TRA B1 4K785200| * 4K785300| 44031 4056 00 200000 B23 LNT 200000 TEST IF CONTROL SECTION 4K785400 44032 0020 00 0 44063 TRA B24+1 NO 4K785500| 44033 4046 00 0 00000 PIA 4K785600| 44034 4734 00 4 00000 PDX 0,4 4K785700| 44035 0634 00 4 44371 SXA 2WRD,4 4K785800| 44036 0621 00 0 44372 STA 11WRD 11 ...DISP 4K785900 0BINARY CARD ID. MAPK0333| 44037 0500 00 0 44371 CLA 2WRD 02 ...CSN 4K786000| 44040 0074 00 4 44200 B231 TSX ENTT1,4 $5$4K786100| 44041 0534 00 4 44372 LXA 11WRD,4 OMIT ADDEND IF (6)4K786110| 44042 0441 00 1 00000 LDI 0,1 DISPLACEMENT (6)4K786120 44043 7 00000 4 44066 TXL CEE,4,0 IS ZERO (6)4K786130| 44044 0500 00 0 44354 CLA PACNT 4K786200| 44045 0400 00 0 21717 ADD PRONE 4K786300| 44046 4501 00 0 21707 ORA PLUS 4K786400| 44047 0054 00 700000 RFT 700000 + OR - 4K786500 44050 0400 00 0 21705 ADD L(1) CHANGE TO MINUS 4K786600| 44051 4501 00 0 44355 ORA T1LOC 4K786700| 44052 0774 00 4 44055 AXT *+3,4 4K786800| 1 IBMAPV IBMAPK 12/01/64 PAGE 536 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0 44053 0634 00 4 44121 SXA ENOPT+6,4 4K786900| 44054 0020 00 0 44113 TRA ENOPT ENTER OPERATOR TABLE 4K787000| 44055 0774 00 4 43753 AXT B,4 RESTORE 4K787100| 44056 0634 00 4 44121 SXA ENOPT+6,4 4K787200| 44057 0500 00 0 44372 CLA 11WRD 4K787300 44060 0441 00 1 77777 LDI -1,1 4K787400| 44061 1 00001 1 44065 TXI CEE-1,1,1 4K787500| 44062 4046 00 0 00000 B24 PIA 4K787600| 44063 0044 00 0 00000 PAI 4814K787700| 44064 4320 00 0 44352 ANA MASK3 4854K787800 0BINARY CARD ID. MAPK0334| 44065 0074 00 4 44200 TSX ENTT1,4 ENER AC INTO T1 4K787900| * 4K788000| * EXAMINE F FIELD 4K788100| 44066 4056 00 004000 CEE LNT 004000 RESULT STORAGE 4K788200 44067 0020 00 0 44104 TRA P40 NO 4K788300| * PROCESS RESULT STORAGE 4K788400| 44070 4534 00 2 44207 LXD ENPD1,2 5504K788500| 44071 0500 00 0 44354 GEE CLA PACNT SUBTRACT 5804K788700| 44072 0402 00 0 21717 SUB PRONE ONE FOR 5904K788800 44073 0601 00 0 44354 STO PACNT RIGHT PARENS 5914K788900| 44074 0500 00 2 00000 CLA 0,2 5924K789000| 44075 1 77777 2 44076 TXI *+1,2,-1 ELIMINATE FROM LIST 5934K789100| 44076 4634 00 2 44207 SXD ENPD1,2 5944K789200| 44077 4734 00 1 00000 PDX 0,1 5954K789300 44100 4634 00 1 43770 SXD START,1 5964K789400| 44101 0734 00 1 00000 PAX 0,1 5974K789500| 44102 0441 00 1 00000 LDI 0,1 4K789600| 44103 0020 00 0 44066 TRA CEE 4K789700| * 4K789800 * BRANCH ON F FIELD CODE 4K789900| 44104 4046 00 0 00000 P40 PIA 4K790000| 44105 4320 00 0 44353 ANA MASK1 OCT 000700000000 4K790100| 44106 0771 00 0 00006 ARS 6 6654K790200| 44107 4737 00 4 00000 PDC 0,4 4K790300 44110 0522 00 4 44212 XEC OPTBL,4 4K790400| 44111 4501 00 0 44354 ORA PACNT 6904K790500| 44112 4501 00 0 44355 ORA T1LOC 6914K790600| * ENTER OPTBL 6924K790700| 0BINARY CARD ID. MAPK0335 44113 0774 00 4 00000 ENOPT AXT **,4 6934K790800| 44114 0602 00 4 52430 SLW TEMP,4 6944K790900| 44115 0600 00 4 52431 STZ TEMP+1,4 6954K791000| 44116 1 77777 4 44117 TXI *+1,4,-1 6964K791100| 44117 0634 00 4 44113 SXA ENOPT,4 6974K791200 44120 7 77700 4 44316 TXL ERRMS,4,-TMPSZ TEST TABLE OVERFLOW 6984K791300| 44121 1 77777 1 43753 TXI B,1,-1 4K791400| * 4K791500| * 4K791600| * PUSH DOWN LIST STARTS AT LINK+STLSZ-1 30104K791700 * AND EXTENDS BACKWARDS 30204K791800| 44122 4534 00 2 43770 ENPDL LXD START,2 30404K791900| 44123 4634 00 2 44133 SXD TEMPSB,2 30504K792000| 44124 0634 00 1 44133 SXA TEMPSB,1 30604K792100| 1 IBMAPV IBMAPK 12/01/64 PAGE 537 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44125 4534 00 2 44207 LXD ENPD1,2 30704K792200| 44126 1 00001 2 44127 TXI *+1,2,1 30804K792300| 44127 4634 00 2 44207 SXD ENPD1,2 30904K792400| 44130 0500 00 0 44133 CLA TEMPSB 31004K792500 44131 0601 00 2 00000 STO 0,2 31104K792600| 44132 0020 00 4 00001 TRA 1,4 31204K792700| 44133 0 00000 0 00000 TEMPSB PZE 4K792800| * $5$4K792910| * TEST IF 07 LITERAL AND PROCESS IF 07 TYPE $5$4K792912 * $5$4K792914| 44134 4054 00 700000 B17 LFT 700000 07 TYPE $5$4K792916| 44135 0020 00 0 44062 TRA B24 NO $5$4K792918| 44136 4056 00 070000 LNT 070000 TEST FURTHER $5$4K792920| 44137 0020 00 0 44062 TRA B24 STILL NO $5$4K792922 44140 4046 00 0 00000 PIA YES $5$4K792924| 0BINARY CARD ID. MAPK0336| 44141 0634 00 1 44152 SXA B172,1 $5$4K792925| 44142 0074 00 1 43662 TSX CAQEV,1 $5$4K792926| 44143 4051 00 070000 IIL 070000 CHANGE 07 TO 00 $5$4K792928 44144 0057 00 777777 RIR 777777 $5$4K792930| 44145 4500 00 0 43677 CAL CAQ04 $5$4K792931| 44146 0621 00 0 44147 STA *+1 POINTER WORD LOCATION $5$4K792932| 44147 4534 00 1 00000 LXD **,1 ID LOCATION $5$4K792933| 44150 0754 00 1 00000 PXA 0,1 $5$4K792934 44151 0043 00 0 00000 OAI CREATE TEXT WORD $5$4K792936| 44152 0774 00 1 00000 B172 AXT **,1 $5$4K792937| 44153 0604 00 1 00000 STI 0,1 REPLACE 07 WORD WITH THIS $5$4K792938| 44154 0737 00 4 00000 PAC 0,4 ID LOCATION $5$4K792940| 44155 0441 00 4 00000 LDI 0,4 $5$4K792942 44156 4054 00 200000 LFT 200000 $5$4K792944| 44157 0020 00 0 44164 TRA B173 ID IS 2 PREFIX WORD $5$4K792946| 44160 0441 00 1 00000 LDI 0,1 PICK UP MODIFIED $5$4K792948| 44161 4500 00 1 00000 CAL 0,1 TEXT WORD $5$4K792950| 44162 4320 00 0 44352 ANA MASK3 $5$4K792951 44163 0020 00 0 44040 TRA B231 $5$4K792952| 44164 4046 00 0 00000 B173 PIA $5$4K792954| 44165 4765 00 0 00022 LGR 18 $5$4K792956| 44166 0621 00 0 44371 STA 2WRD C.S. NUMBER $5$4K792958| 0BINARY CARD ID. MAPK0337 44167 4763 00 0 00002 LGL 2 $5$4K792960| 44170 4754 00 0 00000 PXD 0,0 $5$4K792962| 44171 0763 00 0 00017 LLS 15 CONTROL SECTION DISP $5$4K792964| 44172 0400 00 0 43721 ADD DISP LITERAL DISPLACEMENT $5$4K792966| 44173 0621 00 0 44372 STA 11WRD $5$4K792968 44174 0441 00 1 00000 LDI 0,1 PLUS INDICATION $5$4K792970| 44175 0120 00 0 44037 TPL B231-1 $5$4K792972| 44176 0055 00 700000 SIR 700000 INDICATE MINUS $5$4K792974| 44177 0020 00 0 44037 TRA B231-1 $5$4K792976| | * T1 TEXT STARTS AT LINK AND EXTENDS $5$4K792978| * TO LINK+STLSZ-1 31604K793000| 44200 0774 00 2 00000 ENTT1 AXT **,2 31704K793100| 44201 1 77777 2 44202 TXI *+1,2,-1 31804K793200 1 IBMAPV IBMAPK 12/01/64 PAGE 538 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44202 0634 00 2 44200 SXA *-2,2 31904K793300| 44203 0601 00 2 00000 STO 0,2 SAVE OPERAND 4K793400| 44204 0754 00 2 00000 PXA 0,2 SAVE LOCATION 4K793500 44205 0767 00 0 00003 ALS 3 OF OPERAND 4K793600| 44206 0601 00 0 44355 STO T1LOC FOR OPERATOR TABLE 4K793700| 44207 3 00000 2 44211 ENPD1 TXH *+2,2,** 32204K793800| 44210 0020 00 0 44316 TRA ERRMS TABLE OVERFLOW 32304K793900| 44211 0020 00 4 00001 TRA 1,4 32404K794000 44212 0020 00 0 44224 OPTBL TRA TRMIN INSTRUCTION TERMINATOR 4K794100| 44213 0020 00 0 44222 TRA ERTEQ ISSUE ERROR MESSAGE (1)4K794200| 44214 0020 00 0 44226 TRA WSORT COMMA 33204K794300| 0BINARY CARD ID. MAPK0338| 44215 0500 00 0 21707 CLA PLUS + PICK UP 4K794400 44216 0500 00 0 21710 CLA MINUS - APPROPRIATE 4K794500| 44217 0500 00 0 21711 CLA MULT * T1 4K794600| 44220 0500 00 0 21712 CLA DIVID / CODE 4K794700| 44221 0020 00 0 44222 TRA ERTEQ ISSUE ERROR MESSAGE (1)4K794800| * 4K794900 44222 0074 00 4 25576 ERTEQ TSX ERPR,4 'ILLEGAL INTERNAL (6)4K794910| 44223 0 00000 2 00016 WMS004,NOGO CONDITION' (6)4K794920| * TERMINATOR 4K795000| 44224 4534 00 2 44207 TRMIN LXD ENPD1,2 ANYTHING ON LIST 8204K795100| 44225 3 25550 2 44071 TXH GEE,2,-LINK-STLSZ 8304K795200 * SORT OPERATION TABLE 40004K795300| 44226 0534 00 4 44113 WSORT LXA ENOPT,4 GET NUMBER OF ENTRIES 40104K795400| 44227 7 00000 4 44242 TXL 4TEQ,4,0 EXIT IF ZERO $4$4K795500| 44230 4634 00 4 44237 SXD 6T4,4 40304K795600| 44231 3 77776 4 44242 6T2 TXH 4TEQ,4,-2 EXIT IF SORT IS COMPLETE 40404K795700 44232 0500 00 4 52426 6T3 CLA TEMP-2,4 COMPARE TWO 40504K795800| 44233 0560 00 4 52427 LDQ TEMP-1,4 CONSECUTIVE ENTRIES 40604K795900| 44234 0040 00 0 44241 TLQ 6T5 TRANSFER IF IN PROPER ORDER 40704K796000| 44235 4600 00 4 52426 STQ TEMP-2,4 ELSE INTERCHANGE 40804K796100| 44236 0601 00 4 52427 STO TEMP-1,4 THE TWO ENTRIES 40904K796200 44237 7 00000 4 44241 6T4 TXL 6T5,4,** TRANSFER AT END OF LIST 41004K796300| 44240 1 77777 4 44232 TXI 6T3,4,-1 COMPARE NEXT PAIR 41104K796400| 44241 1 00001 4 44231 6T5 TXI 6T2,4,1 GO TO BEGINNING OF LIST 41204K796500| * AT THIS POINT REFORM T1 INTO T2 TEXT AND OPTIMIZE 41304K796600| 44242 0774 00 4 00000 4TEQ AXT 0,4 INITIALIZE OP TABLE INDEX 50204K796700 0BINARY CARD ID. MAPK0339| 44243 0774 00 2 00010 AXT 8,2 MARK ALL ENTRIES (6)4K796710| 44244 0500 00 0 44360 CLA RSTAB IN RESULT STORAGE (6)4K796720| 44245 0630 00 2 44370 STP RSTAB+8,2 TABLE AS (6)4K796730| 44246 2 00001 2 44245 TIX *-1,2,1 AVAILABLE (6)4K796740 44247 0774 00 2 00000 4T2 AXT **,2 LOCATE TARGET FIELD 50304K796800| 44250 0520 00 0 52430 ZET TEMP TEST IF ANY OPERATORS 50504K797000| 44251 0020 00 0 44255 TRA 4Q2 YES 50604K797100| 44252 0441 00 0 52030 LDI LINK ONLY 1 ENTRY, T=T2 50804K797200| 44253 0604 00 2 00000 STI 0,2 T2 STRING 51004K797300 44254 1 77777 2 44327 TXI 4TEX,2,-1 EXIT 51104K797400| 44255 0500 00 4 52430 4Q2 CLA TEMP,4 GET T1 (6)4K797500| 44256 0100 00 0 44327 TZE 4TEX EXIT IF NO MORE 51654K798000| 44257 4765 00 0 00003 LGR 3 4K798100| 44260 0734 00 1 00000 PAX 0,1 T1LOC 4K798200 44261 4763 00 0 00033 LGL 27 SHIFT IN OPERATION 4K798300| 1 IBMAPV IBMAPK 12/01/64 PAGE 539 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44262 4320 00 0 44353 ANA MSKOP EXTRACT OPERATION 51804K798400| 44263 0602 00 0 44356 SLW OPSVE AND SAVE 51904K798500 44264 4520 00 1 00000 NZT 0,1 SEARCH LEFT 52004K798600| 44265 1 00001 1 44264 TXI *-1,1,1 52104K798700| 44266 0634 00 4 44306 SXA 4XR4,4 SAVE XR4 52204K798800| 44267 0074 00 4 44335 TSX EXOPD,4 52404K798900| 44270 0600 00 1 00000 STZ 0,1 ZERO OUT OPERAND 52304K799000 0BINARY CARD ID. MAPK0340| 44271 0442 00 0 44356 OSI OPSVE OPERAND AND OPERATOR 52504K799100| 44272 0604 00 2 00000 STI 0,2 TO T2 TEXT 52604K799200| 44273 4520 00 1 00000 NZT 0,1 SEARCH 52704K799300| 44274 1 77777 1 44273 TXI *-1,1,-1 RIGHT 52804K799400 44275 0074 00 4 44335 TSX EXOPD,4 EXAMINE OPERAND 52904K799500| 44276 0774 00 4 00011 AXT 9,4 FIND AND PUT (6)4K799600| 44277 6 00001 4 44316 TNX ERRMS,4,1 FIRST AVAILABLE (6)4K799610| 44300 0502 00 4 44370 CLS RSTAB+8,4 RESULT (6)4K799620| 44301 0120 00 0 44277 TPL *-2 STORAGE (6)4K799630 44302 0602 00 1 00000 SLW 0,1 OPERAND INTO T1 TEXT 53104K799700| 44303 0601 00 4 44370 STO RSTAB+8,4 MARK ENTRY IN USE (6)4K799710| 44304 0361 00 0 44370 ACL L(50) ADD 50 TO RESULT 53204K799800| 44305 0767 00 0 00030 ALS 24 STORAGE NUMBER AND SHIFT 53304K799900| 44306 0774 00 4 00000 4XR4 AXT **,4 53404K800000 44307 4520 00 4 52431 NZT TEMP+1,4 ALL OPERATORS PROCESSED 53504K800100| 44310 4754 00 0 00000 PXD 0,0 YES,CHANGE RESULT STORAGE TO TERMINATOR$4$4K800200| 44311 0043 00 0 00000 OAI RESULT STORAGE NUMBER 53654K800300| 44312 0604 00 2 00001 STI 1,2 53704K800400| 44313 0600 00 2 00002 STZ 2,2 53804K800500 44314 4056 00 005700 LNT 005700 IS RESULT CAPACITY EXCEEDED (6)4K800600| 44315 1 77777 4 44324 TXI 4T21,4,-1 NO 53904K800700| * GENERAL ERROR MESSAGE FOR OVERFLOW 53914K800800| 44316 0074 00 4 25576 ERRMS TSX ERPR,4 53924K800900| 0BINARY CARD ID. MAPK0341 44317 0 00000 3 00132 PZE WMS026,NONOGO $5$4K801000| 44320 0534 00 2 44247 LXA 4T2,2 RESET TARGET FIELD 53944K801100| 44321 0441 00 0 21722 LDI OTERM ZERO TERMINATOR 53954K801200| 44322 0604 00 2 00000 STI 0,2 STORE INTO TARGET 53994K801300| 44323 1 77777 2 44327 TXI 4TEX,2,-1 EXIT 54004K801400 44324 1 77776 2 44325 4T21 TXI *+1,2,-2 STEP UP TARGET 54014K801500| 44325 7 25353 2 44316 TXL ERRMS,2,-2B-STLSZ+3 CHECK OVERFLOW 54024K801600| 44326 0020 00 0 44255 TRA 4Q2 54504K801700| * AT THIS POINT WE HAVE COMPLETED A FIELD 54604K801800| 44327 0534 00 1 44357 4TEX LXA COMSW,1 54614K801900 44330 7 00000 1 44350 TXL DONES,1,0 TEST IF DONE 54624K802000| 44331 4055 00 000200 SIL 000200 IF COMMA SET FIELD TO 02 54634K802100| 44332 0604 00 2 77777 STI -1,2 54644K802200| 44333 0634 00 2 44247 SXA 4T2,2 STORE NEXT TARGET ADDRESS 54654K802300| 44334 1 77777 1 43726 TXI INIT,1,-1 54664K802400 * EXAMINE OPERAND 55004K802500| 44335 0441 00 1 00000 EXOPD LDI 0,1 PICK UP T1 ENTRY 55104K802600| 44336 4056 00 120000 LNT 120000 CHECK IF R.S. 55204K802700| 44337 0020 00 4 00001 TRA 1,4 (6)4K802710| 44340 4054 00 650000 LFT 650000 (6)4K802720 44341 0020 00 4 00001 TRA 1,4 NO 4K802800| 44342 0634 00 4 44346 SXA EROPX,4 SAVE LINKAGE (6)4K802810| 1 IBMAPV IBMAPK 12/01/64 PAGE 540 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44343 4046 00 0 00000 PIA 55404K802900 44344 0737 00 4 00000 PAC ,4 -(R.S. NUMBER) (6)4K803000| 0BINARY CARD ID. MAPK0342| 44345 0602 00 4 44360 SLW RSTAB,4 CLEAR 'IN USE' BIT (6)4K803100| 44346 0774 00 4 00000 EROPX AXT **,4 RETURN (6)4K803200| 44347 0020 00 4 00001 TRA 1,4 4K803700 * ALL DONE AT THIS POINT 57004K803800| 44350 0774 00 4 00000 DONES AXT **,4 57104K803900| 44351 0020 00 4 00001 TRA 1,4 RETURN 57204K804000| 44352 770077777777 MASK3 OCT 770077777777 50004K804100| 44353 000700000000 MASK1 OCT 000700000000 50054K804200 44354 0 00000 0 00000 PACNT PZE 0 50104K804300| 21717 PRONE SYN 1DECR PARENTHESIS COUNT IS HALF WORD (6)4K804400| 21707 PLUS SYN L(3) + CODE (6)4K804500| 21710 MINUS SYN L(4) - CODE (6)4K804600| 21711 MULT SYN L(5) * CODE (6)4K804700 21712 DIVID SYN L(6) / CODE (6)4K804800| 44355 0 00000 0 00000 T1LOC PZE 51004K804900| 44356 0 00000 0 00000 OPSVE PZE 51204K805000| 21722 OTERM SYN 11WD ZERO TERMINATOR (6)4K805100| 44357 0 00000 0 00000 COMSW PZE COMMA LOCATION 51404K805200 RSTAB DUP 1,8 (6)4K805300| 44360 120000000000 VFD O6/12,30/*-RSTAB RESULT STORAGE TABLE (6)4K805400| 44370 000000000050 L(50) OCT 50 52004K805500| 44353 MSKOP SYN MASK1 (6)4K805600| 44371 020000000000 2WRD VFD 6/2,30/** ** = CSN 4K805800 44372 110000000000 11WRD VFD O6/11,30/** ** = DISP 4K805900| 35432 2BB EQU W2PA 4K806100| 0BINARY CARD ID. MAPK0343| 44373 0 00000 0 00000 DEQU PZE 0 4K806200| 1 IBMAPV IBMAPK 12/01/64 PAGE 541 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * VARIABLE FIELD ERROR DETECTION 4K806400| | 44374 0634 00 4 44510 MLERR SXA MLREX,4 SAVE RETURN ADDRESS 4K806600 44375 0634 00 1 44511 SXA MLRX2,1 SAVE INDEX 1 4K806700| 44376 0535 00 1 41654 LAC PCMSW,1 PICK UP SUBFIELD COUNT 4K806800| 44377 7 00003 1 44404 TXL MLERA,1,3 OK IF 3 OR LESS 4K806900| 44400 0520 00 0 37254 ZET TP50 4K807000| 44401 7 00004 1 44404 TXL MLERA,1,4 4K807100 44402 0074 00 4 25576 TSX ERPR,4 'TOO MANY 4K807200| 44403 0 00000 1 00030 PZE WMS005,GO SUBFIELDS' 4K807300| 44404 0441 00 0 52230 MLERA LDI 2B GET OPERATOR 4K807400| 44405 0535 00 1 41675 LAC PCM,1 GET COMMA COUNT 4K807500| 44406 4054 00 000060 LFT 000060 IS ADDRESS REQUIRED 4K807600 44407 0020 00 0 44415 TRA MLR2 NO - GO TO 'MLR2' 4K807700| 44410 4054 00 000700 LFT 000700 DID ADDRESS OCCUR 4K807800| 44411 0020 00 0 44440 TRA 2MLR YES - GO TO TAG FIELD TEST 4K807900| 44412 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K808000| 44413 0 00000 1 00074 PZE RMS010,GO 'ADDRESS REQUIRED' 4K808100 44414 0020 00 0 44440 TRA 2MLR GO TO TAG FIELD TEST 4K808200| 44415 4500 00 0 41760 MLR2 CAL REVT IF ADDRESS (6)4K808300| 44416 0361 00 0 41763 ACL REVT+3 IS A CONSTANT (6)4K808310| 44417 0100 00 0 44440 TZE 2MLR ZERO, (6)4K808320| 44420 4056 00 000040 LNT 000040 OR IF ADDRESS PERMITTED, (6)4K808400 0BINARY CARD ID. MAPK0344| 44421 0020 00 0 44440 TRA 2MLR GO TO TAG FIELD TEST (6)4K808500| 44422 4054 00 000020 MLR3 LFT 000020 IS ADDRESS UNEXPECTED BUT ALLOWED 4K808600| 44423 0020 00 0 44431 TRA MLR4 NO - GO TO 'MLR4' 4K808700| 44424 4056 00 000700 LNT 000700 DID ADDRESS OCCUR 4K808800 44425 0020 00 0 44440 TRA 2MLR IF NOT GO TO TAG FIELD TEST 4K808900| 44426 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K809000| 44427 0 00000 1 00075 PZE RMS011,GO 'ADDRESS UNEXPECTED BUT ALLOWED' 4K809100| 44430 0020 00 0 44440 TRA 2MLR GO TO TAG FIELD TEST 4K809200| 44431 4056 00 000700 MLR4 LNT 000700 DID ADDRESS OCCUR 4K809300 44432 0020 00 0 44440 TRA 2MLR IF NOT GO TO TAG FIELD TEST 4K809400| 44433 0600 00 0 41760 STZ REVT SET ADDRESS VALUE TO 0 4K809800| 44434 0600 00 0 41763 STZ REVT+3 SET CONTROL GROUP TO 0 4K809900| 44435 0600 00 0 41772 STZ CDR CLEAR CONTROL SECTION INDICATOR 4K810000| 44436 0074 00 4 25576 TSX ERPR,4 PRINT WARNING 4K810100 44437 0 00000 1 00076 PZE RMS012,GO 'ADDRESS NOT ALLOWED' 4K810200| | * TAG FIELD ERROR DETECTION 4K810400| | 44440 4054 00 000014 2MLR LFT 000014 IS TAG REQUIRED 4K810600 44441 0020 00 0 44446 TRA 2MLR2 NO - GO TO '2MLR2' 4K810700| 44442 3 00000 1 44462 TXH 3MLR,1,0 IF TAG OCCURRED GO TO DECREMENT TEST 4K810800| 44443 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K810900| 44444 0 00000 1 00077 PZE RMS013,GO 'TAG REQUIRED' 4K811000| 44445 0020 00 0 44462 TRA 3MLR GO TO DECREMENT TEST 4K811100 44446 0520 00 0 41761 2MLR2 ZET REVT+1 IF TAG IS ZERO, (6)4K811200| 0BINARY CARD ID. MAPK0345| 44447 4056 00 000010 LNT 000010 OR PERMITTED, (6)4K811300| 44450 0020 00 0 44462 TRA 3MLR EXIT TO DECREMENT TEST (6)4K811400| 44451 4054 00 000004 2MLR3 LFT 000004 IS TAG UNEXPECTED BUT ALLOWED 4K811500 1 IBMAPV IBMAPK 12/01/64 PAGE 542 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44452 3 00000 1 44457 TXH 2MLR4,1,0 NO - ISSUE MESSAGE, EXCEPT-- (6)4K811600| 44453 7 00000 1 44462 TXL 3MLR,1,0 IF NO TAG OCCURRED GO TO DECR. TEST 4K811700| 44454 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K811800 44455 0 00000 1 00100 PZE RMS014,GO 'TAG NOT EXPECTED' 4K811900| 44456 0020 00 0 44462 TRA 3MLR GO TO DECREMENT TEST 4K812000| 44457 0074 00 4 25576 2MLR4 TSX ERPR,4 PRINT MESSAGE (6)4K812100| 44460 0 00000 1 00101 PZE RMS015,GO 'TAG FIELD NOT PERMITTED' 4K812500| 44461 0600 00 0 41761 STZ REVT+1 SET TAG VALUE TO 0. 4K812600 44462 4054 00 000003 3MLR LFT 000003 IS DECREMENT REQUIRED 4K812700| 44463 0020 00 0 44470 TRA 3MLR2 IF NOT GO TO '3MLR2' 4K812800| 44464 3 00001 1 44510 TXH MLREX,1,1 IF DECREMENT APPEARED GO TO EXIT 4K812900| 44465 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K813000| 44466 0 00000 1 00102 PZE RMS016,GO 'DECREMENT REQUIRED' 4K813100 44467 0020 00 0 44510 TRA MLREX GO TO EXIT 4K813200| 44470 4500 00 0 41762 3MLR2 CAL REVT+2 IF DECREMENT (6)4K813300| 44471 0361 00 0 41765 ACL REVT+5 IS ZERO (6)4K813310| 44472 0100 00 0 44510 TZE MLREX OR (6)4K813320| 44473 4056 00 000002 LNT 000002 PERMITTED, (6)4K813400 44474 0020 00 0 44510 TRA MLREX GO TO EXIT 4K813500| 0BINARY CARD ID. MAPK0346| 44475 4054 00 000001 3MLR3 LFT 000001 IS DECREMENT UNEXPECTED BUT ALLOWED 4K813600| 44476 3 00001 1 44503 TXH 3MLR4,1,1 NO - GO TO 3MLR4, EXCEPT-- (6)4K813700| 44477 7 00001 1 44510 TXL MLREX,1,1 IF NO DECREMENT APPEARED GO TO EXIT 4K813800 44500 0074 00 4 25576 TSX ERPR,4 PRINT MESSAGE 4K813900| 44501 0 00000 1 00103 PZE RMS017,GO 'DECREMENT UNEXPECTED BUT ALLOWED'4K814000| 44502 0020 00 0 44510 TRA MLREX GO TO EXIT (6)4K814100| 44503 0074 00 4 25576 3MLR4 TSX ERPR,4 PRINT MESSAGE (6)4K814200| 44504 0 00000 1 00104 PZE RMS018,GO 'DECREMENT NOT PERMITTED' 4K814900 44505 0600 00 0 41762 STZ REVT+2 SET DECREMENT TO 0 4K815000| 44506 0600 00 0 41774 3MLR5 STZ CDR+2 C LEAR CONTROL SECTION INDICATOR 4K815100| 44507 0600 00 0 41765 STZ REVT+5 SET CONTROL GROUP TO ZERO 4K815200| 44510 0774 00 4 00000 MLREX AXT **,4 RESTORE INDEX 4 4K815300| 44511 0774 00 1 00000 MLRX2 AXT **,1 RESTORE INDEX 1 4K815400 44512 0020 00 4 00001 TRA 1,4 AND RETURN 4K815500| 1 IBMAPV IBMAPK 12/01/64 PAGE 543 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * A CLOSED SUBROUTINE TO PRINT AND PUNCH THE CONSTANT POOL 4K815700 | 44513 0520 00 0 21445 PRCPL ZET CPLB TEST FOR ANY 4K815900| 44514 0020 00 0 44520 TRA PRCPLP ENTRIES IN CONSTANT POOL 4K816000| 44515 0054 00 000001 RFT 1 IF NOT, EXIT 4K816100| 44516 0020 00 4 00001 TRA 1,4 IF ASSOCIATED WITH -END- 4K816200 44517 0020 00 0 40612 TRA RAC751 PRINT AS NULL $5$4K816400| | 44520 0634 00 4 44556 PRCPLP SXA PREX,4 SAVE RETURN 4K816600| 44521 0074 00 4 44565 TSX PRCCOM,4 SET COMMENTARY 4K816700| 44522 0534 00 2 21445 LXA CPLB,2 PICK UP COUNT 4K816800 0BINARY CARD ID. MAPK0347| 44523 0774 00 4 00000 PRC AXT 0,4 HAVE WE PROCESSED 4K817100| 44524 2 00001 4 44531 TIX PRC2,4,1 A BUFFER 4K817200| 44525 0074 00 4 25601 TSX INFOT,4 YES - LOCATE ANOTHER BUFFER 4K817300| 44526 0 44556 0 21640 PZE CPOOLF,,PREX FROM FILE 'CPOOLF' 4K817400 44527 0621 00 0 44577 STA 2OPB STORE LAST ADDRESS+1 4K817500| 44530 4734 00 4 00000 PDX ,4 STORE WORD COUNT 4K817600| 44531 0634 00 4 44523 PRC2 SXA PRC,4 SAVE REMAINING WORD COUNT 4K817700| 44532 0074 00 1 36604 TSX 3R16F,1 CONVERT AND BUMP LOCATION CONUTER 4K817800| 44533 4500 00 0 43442 CAL L(20) STOR '10000' CONTROL GROUP 4K818100 44534 0602 00 0 43445 SLW PCTRL IN 'PCTRL' 4K818200| 44535 0522 00 0 44523 XEC PRC LOCATE INPUT BUFFER POSITION 4K818300| 44536 4500 60 0 44577 CAL* 2OPB GET NEXT CONSTANT 4K818400| 44537 0074 00 1 41173 TSX RPAC2,1 PRINT ERROR AND LOCATION FIELDS 4K818500| 44540 0074 00 1 41410 TSX P12,1 PRINT DATA WORD 4K818600 44541 0074 00 1 41453 TSX PRCG,1 PRINT CONTROL GROUP 4K818700| 44542 4520 00 0 21445 NZT CPLB TEST IF COMMENTARY 4K818800| 44543 0020 00 0 44555 TRA PRC3 ALREADY PROCESSED 4K818900| 44544 0600 00 0 21445 STZ CPLB SET NO RETURN 4K819000| 44545 0520 00 0 44576 ZET RLDIR IF ASSOCIATED $4$4K819100 44546 0074 00 4 25577 TSX PRINT,4 WITH -END- $4$4K819200| 44547 0020 00 0 44553 TRA PRC22 CARD, PRINT $4$4K819300| 44550 0 00000 0 00002 PZE 2 SPECIAL 4K819400| 0BINARY CARD ID. MAPK0348| 44551 4 00007 1 27741 MZE BLANX,1,7 COMMENTARY 4K819500 44552 4 00005 1 44601 MZE 2RLRG,1,5 4K819600| 44553 0520 00 0 40730 PRC22 ZET RTITLE SET NO FURTHER PRINT $4$4K819700| 44554 4625 00 0 21456 STL KLPRNT IF TITLE ON $4$4K819800| 44555 2 00001 2 44523 PRC3 TIX PRC,2,1 ARE THERE MORE CONSTANTS 4K819900| 44556 0774 00 4 00000 PREX AXT **,4 NO - RESTORE INDEX 4 4K820000 44557 0520 00 0 44576 ZET RLDIR RESTORE -END- 4K820100| 44560 0600 00 0 37453 STZ NCOM COMMENTARY 4K820200| 44561 0441 00 0 21463 LDI OPER+1 RESTORE 4K820300| 44562 0604 00 0 21443 STI BLINK BLINK 4K820400| 44563 4625 00 0 41214 STL RPACH IN CASE END NEXT 4K820500 44564 0020 00 4 00001 TRA 1,4 EXIT 4K820600| | 44565 0621 00 0 44576 PRCCOM STA RLDIR SET -END- MARK 4K820800| 44566 0520 00 0 44576 ZET RLDIR SAVE COMMENTARY 4K820900| 44567 4625 00 0 37453 STL NCOM IF ASSOCIATED WITH -END- 4K821000 44570 0441 00 0 21443 LDI BLINK SAVE ORIGINAL 4K821100| 44571 0604 00 0 21463 STI OPER+1 BLINK 4K821200| 1 IBMAPV IBMAPK 12/01/64 PAGE 544 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44572 0520 00 0 44576 ZET RLDIR RESET ERROR 4K821300 44573 4057 00 000001 RIL 1 FLAG, IF -END- 4K821400| 44574 0604 00 0 21443 STI BLINK 4K821500| 44575 0020 00 4 00001 TRA 1,4 4K821600| | 44576 0 00000 0 00000 RLDIR PZE 0 -END- CARD MARKER 4K821800 0BINARY CARD ID. MAPK0349| 44577 0 00000 4 00000 2OPB PZE **,4 CPOOL BUFFER LOCATOR 4K821900| 44600 544324315160 2RLDR BCI 1,*LDIR 4K822000| 44601 544346512760 2RLRG BCI 1,*LORG 4K822100| * A CLOSED SUBROUTINE TO PRINT AND PUNCH LINKAGE DIRECTOR 4K822300| | 44602 4520 00 0 21454 PRLDR NZT SWLNKG IS LINKAGE DIRECTOR NEEDED 4K822500| 44603 0020 00 4 00001 TRA 1,4 NO - EXIT 4K822600| 44604 0634 00 4 44556 SXA PREX,4 SAVE RETURN 4K822700 44605 0074 00 4 44565 TSX PRCCOM,4 SET COMMENTARY 4K822800| 44606 4500 00 0 21455 CAL SWLNKG+1 STORE LINKAGE DIRECTOR 4K822900| 44607 0621 60 0 37013 STA* RCTR LOCATION IN LOCATION CINTER 4K823000| 44610 0600 00 0 21454 STZ SWLNKG LEAR FOR NO RETURN 4K823100| 44611 0774 00 2 00002 AXT 2,2 SET INDEX TO PRINT 2 WORDS 4K823200 44612 4754 00 0 00000 PXD ,0 FIRST WORD PZE 0 4K823300| 44613 0602 00 0 30676 PLDR3 SLW RDATA STORE DATA WORD 4K823400| 44614 0560 00 0 43442 LDQ L(20) STORE CONTROL GROUP 4K823500| 44615 4600 00 0 43445 STQ PCTRL IN 'PCTRL' 4K823600| 44616 0074 00 1 36604 TSX 3R16F,1 BUMP LOCATION COUNTER 4K823700 44617 4500 00 0 30676 CAL RDATA GET DATA WORD 4K823800| 44620 0074 00 1 41174 TSX RPAC2A,1 CONVERT DAT WORD TO BCD 4K823900| 44621 0074 00 1 41410 TSX P12,1 PRINT DATA WORD 4K824000| 44622 0074 00 1 41453 TSX PRCG,1 PRINT CONTROL GROUP 4K824100| 44623 6 00001 2 44556 TNX PREX,2,1 EXIT IF SECOND PROCESSED 4K824200 44624 0520 00 0 44576 ZET RLDIR PRINT $4$4K824300| 0BINARY CARD ID. MAPK0350| 44625 0074 00 4 25577 TSX PRINT,4 ALTERNATE $4$4K824400| 44626 0020 00 0 44632 TRA PLDR4 COMMENTARY $4$4K824500| 44627 0 00000 0 00002 PZE 2 IF ASSOCIATED 4K824600 44630 4 00007 1 27741 MZE BLANX,1,7 WITH -END- 4K824700| 44631 4 00005 1 44600 MZE 2RLDR,1,5 4K824800| 44632 4500 00 0 21435 PLDR4 CAL JBNAME BACK TO PROCESS 4K824900| 44633 0020 00 0 44613 TRA PLDR3 SECOND WORD 4K825000| 1 IBMAPV IBMAPK 12/01/64 PAGE 545 VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0| * 4K825200| * CREATE CONTROL DICTIONARY TABLE 4K825300| 44634 0634 00 4 44711 FCSB SXA CXR4,4 4K825400 44635 0634 00 1 44713 SXA CXR1,1 4K825500| 44636 0600 00 0 35632 STZ CDT 4K825600| 44637 4634 00 2 44662 SXD CSEND,2 COMPLEMENT OF END 4K825700| 44640 0535 00 4 21457 LAC BGDICT,4 4K825800| 44641 4774 00 2 35633 AXC CDT+1,2 SET STORAGE 4K825900 44642 0020 00 0 44662 TRA CSEND 4K826000| 44643 4500 00 4 00001 CSCAL CAL 1,4 PICK UP ENTRY 4K826100| 44644 0441 00 4 00001 LDI 1,4 TEST IF THIS IS A REAL $5$4K826110| 44645 4054 00 700000 LFT 700000 CONTROL SECTION ENTRY $5$4K826120| 44646 0020 00 0 44656 TRA CSCAM NO,IGNORE ENTRY $5$4K826130 44647 0737 00 1 00000 PAC 0,1 CHANGE 1'S COMPLEMENT 4K826200| 44650 1 77777 1 44651 TXI *+1,1,-1 INTO ORIGINAL 4K826300| 44651 0771 00 0 00022 ARS 18 4K826400| 44652 0601 00 2 00000 STO 0,2 4K826500| 0BINARY CARD ID. MAPK0351 44653 0754 00 1 00000 PXA 0,1 4K826600| 44654 0601 00 2 00001 STO 1,2 4K826700| 44655 1 77776 2 44656 TXI *+1,2,-2 4K826800| 44656 1 77776 4 44657 CSCAM TXI *+1,4,-2 ADVANCE TO NEXT ENTRY $5$4K826900| 44657 3 41541 2 44662 TXH CSEND,2,-CDTE $4$4K827000 44660 4625 00 0 35632 STL CDT $4$4K827100| 44661 0020 00 0 44711 TRA CXR4 $4$4K827200| 44662 3 00000 4 44643 CSEND TXH CSCAL,4,** 4K827300| 44663 4500 00 0 44715 CAL SVNS 77777 4K827400| 44664 0602 00 2 00000 SLW 0,2 4K827500 * SORT AND ZERO OUT DUPLICATES 4K827600| 44665 4634 00 2 44677 SXD B6T4,2 4K827700| 44666 3 42145 2 44701 B6T2 TXH B4TEQ,2,-CDT-1 EXIT IF DONE 4K827800| 44667 4500 00 2 77777 B6T3 CAL -1,2 4K827900| 44670 4340 00 2 00000 LAS 0,2 4K828000 44671 0020 00 0 44674 TRA RVRSE 4K828100| 44672 0600 00 2 77777 STZ -1,2 ZERO OUT DUPLICATE 4K828200| 44673 1 00001 2 44666 B6T5 TXI B6T2,2,1 PROPER ORDER GO TOWARDS START 4K828300| 44674 0560 00 2 00000 RVRSE LDQ 0,2 INTERCHANGE 4K828400| 44675 4600 00 2 77777 STQ -1,2 THE TWO 4K828500 44676 0601 00 2 00000 STO 0,2 ENTRIES 4K828600| 44677 7 00000 2 44673 B6T4 TXL B6T5,2,** TRANSFER AT END OF LIST 4K828700| 44700 1 77777 2 44667 TXI B6T3,2,-1 COMPARE NEXT PAIR 4K828800| * 4K828900| * ELIMINATE ALL BUT FIRST ZERO 4K829000 0BINARY CARD ID. MAPK0352| 44701 4774 00 1 35633 B4TEQ AXC CDT+1,1 SET UP TARGET 4K829100| 44702 4774 00 4 35633 AXC CDT+1,4 SET UP SOURCE 4K829200| 44703 4520 00 4 00000 NZT 0,4 4K829300| 44704 1 77777 4 44703 SABAY TXI *-1,4,-1 4K829400 44705 0441 00 4 00000 LDI 0,4 4K829500| 44706 0604 00 1 00000 STI 0,1 4K829600| 44707 0056 00 777777 RNT 777777 TEST IF DONE 4K829700| 44710 1 77777 1 44704 TXI SABAY,1,-1 4K829800| 44711 0774 00 4 00000 CXR4 AXT **,4 4K829900 1 IBMAPV IBMAPK 12/01/64 PAGE 546 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK | 0 44712 4534 00 2 44662 LXD CSEND,2 4K830000| 44713 0774 00 1 00000 CXR1 AXT **,1 4K830100| 44714 0020 00 4 00001 TRA 1,4 4K830200 44715 000000777777 SVNS OCT 777777 4K830300| | * TEST IF EXPRESSION OF THE FORM SYMBOL + CONSTANT SPANS THE 4K830500| * BEGINNING OR END OF A CONTROL SECTION 4K830600| 44716 4520 00 0 36376 FTC NZT PAND EXIT IF IN 4K830800| 44717 0020 00 4 00001 TRA 1,4 DEFINITION PASS 4K830900| 44720 0520 00 0 35632 ZET CDT $4$4K830910| 44721 0020 00 0 44736 TRA FTC3 $4$4K830920| 44722 4320 00 0 21723 ANA MSKAD ISOLATE LOW ORDER 15 BITS 4K831000 44723 4774 00 1 35632 AXC CDT,1 LOCATE CONTROL SECTION TABLE 4K831100| 44724 4340 00 1 00000 FTC2 LAS 0,1 LOCATE FIRST ENTRY IN TABLE WITH 4K831200| 44725 1 77777 1 44724 TXI *-1,1,-1 VALUE GREATER THAN THAT 4K831300| 44726 1 77777 1 44724 TXI *-2,1,-1 OF EXPRESSION BEING TESTED 4K831400| 0BINARY CARD ID. MAPK0353 44727 0500 00 0 44740 CLA RELVAL IF VALUE OF RELATIVE OPERAND IS GREATER 4K831500| 44730 4340 00 1 00000 LAS 0,1 THAN OR EQUAL TO THIS TABLE ENTRY,4K831600| 44731 0055 00 000003 SIR 3 SET CONTROL GROUP 4K831700| 44732 0055 00 000003 SIR 3 COMPLEX 4K831800| 44733 4340 00 1 77777 LAS -1,1 IF VALUE OF VALUE OF RELATIVE 4K831900 44734 0020 00 4 00001 TRA 1,4 OPERAND IS LESS THAN NEXT 4K832000| 44735 0020 00 4 00001 TRA 1,4 LOWER ENTRY IN TABLE, SET CONTROL 4K832100| 44736 0055 00 000003 FTC3 SIR 3 GROUP COMPLEX $4$4K832200| 44737 0020 00 4 00001 TRA 1,4 OTHERWISE EXIT 4K832300| 44740 0 00000 0 00000 RELVAL PZE 0 4K832400 44741 0 00001 0 00001 L(RL) PZE 1,0,1 4K832500| | * SEARCH CDICT FOR REAL ENTRY (6)4K832520| | 44742 0535 00 2 21457 SRCST LAC BGDICT,2 LOCATE BEGINNING OF CDICT (6)4K832540 44743 1 77776 2 44751 TXI SRCE,2,-2 INTERNAL TEXT (6)4K832550| 44744 0044 00 0 00000 SRCA PAI COMPARE NT(E) (6)4K832560| 44745 0440 00 2 00000 IIS 0,2 PORTION OF SUCCESSIVE ENTRIES (6)4K832570| 44746 0444 00 0 21731 OFT MSKSP DOES IT MATCH (6)4K832580| 44747 1 77777 2 44751 TXI SRCE,2,-1 NO, CONTINUE (6)4K832590 44750 0020 00 4 00002 TRA 2,4 YES, RETURN (6)4K832600| 44751 3 00000 2 44744 SRCE TXH SRCA,2,** ARE THERE MORE ENTRIES (6)4K832610| 44752 0020 00 4 00001 TRA 1,4 NO, RETURN (6)4K832620| 1 IBMAPV IBMAPK 12/01/64 PAGE 547 | VARIABLE FIELD ANALYZERS PHASE 2 - RECORD IBMAPK 0| 0 TABLE OF CONTENTS | | * IBMAPK PATCH AREAS ARE LOCATED AS FOLLOWS.. (6)4K832700| 030030 CRPTCH| 031554 PATCH | 022750 FCPTCH| 044753 * | | * THE CONTROL DICTIONARY TABLE EXTENDS 4K832900| * FROM TEQU STRING STORAGE TO THE (6)4K833000| * QUALIFICATION PUSH DOWN LIST. (6)4K833100| 35632 CDT EQU 2BB+STLSZ CONTROL DICTIONARY (6)4K833200 36237 CDTE EQU PDLIST-1 TEST TABLE (6)4K833300| | 00025 KSP EQU PSBF-* SPACE LEFT AT END OF PHASE 2 (6)4K833500| 0BINARY CARD ID. MAPK0354| 00000 END 4K833600 -NO MESSAGES FOR THIS ASSEMBLY | 1 IBMAPV IBMAPK 12/01/64 PAGE 548 | SYMBOL REFERENCE DATA | 0| REFERENCES TO DEFINED SYMBOLS. 0 CLASS SYMBOL VALUE REFERENCES| | 10WD 21721 36300,37502,37615| 11WD 21722 36514,44357| 11WRD 44372 42207,43664,44036,44041,44057,44173 17TSW 41755 37610,40631,41553,42136| 18TSW 41756 41725,41727,42141| 1DECR 21717 27023,36343,44355| 1TAG 32374 32322,22674| 20MSK 41776 41721 2BB 35432 22553,37001,37004,43725,44753| 2B 52230 0,32103,32105,22555,36474,36520,37000,37066,37262,37313,37401,37404,37417,37527,37567,37660,| 37664,37665,37701,37716,37724,37733,37761,40003,40013,40041,40115,40116,40127,40165,40217,| 40224,40232,40240,40241,40263,40325,40347,40475,40501,40757,40771,41050,43223,43323,43332,| 43723,44325,44404 2DECR 36402 36341| 2MLR2 44446 44441| 2MLR3 44451 | 2MLR4 44457 44452| 2MLR 44440 44411,44414,44417,44421,44425,44430,44432 2OPB 44577 44527,44536| 2PSND 36372 35766,36225,36234| 2RLDR 44600 44631| 2RLRG 44601 44552| 2TQ2 42272 42264,42267 2WRD 44371 44035,44037,44166| 36BZ 40442 40332| 3MLR2 44470 44463| 3MLR3 44475 | 3MLR4 44503 44476 3MLR5 44506 | 3MLR 44462 44442,44445,44450,44453,44456| 3PER 21472 36617,36636,41210,41302,41334,41363,41410,41421,41437,41460| 3R11 36533 37516| 3R12 36537 30771,30774,31001,31004,31013,36502,36513,36561,36740,36751,37360,37414,37442,37715,37751, 37762,40034,40100,40145,40150,40250,40253,40261,40522,40573,40605,40665,40722,40751| 3R14 36542 36506| 3R15A 36567 36561| 3R15 36561 37456,40064,40114,40777,41001,41025| 3R162 36572 40664 3R16B 36602 36573| 3R16F 36604 36526,37351,37742,40065,40274,44532,44616| 3R16G 36613 36604| 3R16K 36635 31000,40604,40717,40750,41005| 3R16L 36615 40033,40644 3R16MM 36727 36723| 3R16M 36716 36510,40154| 3R16P 36662 30777,36616,40603,40716,40746,41004,41203| 3R16Q 36770 36517,40126,43227| 3R16 36571 37515,37714 3R17 36532 37030,37065,37132,37253,37270| 3R31 36551 26705,30703,30745,31560,31574,31577| 3R321 31557 30710,30720| 1 IBMAPV IBMAPK 12/01/64 PAGE 549 | SYMBOL REFERENCE DATA 0 3R322 30734 30727,31572,31575,31601| 3R324 30740 30730| 3R32 30721 30704,31567| 3R333 31554 30744| 3R334 31571 31555 3R335 31576 31556| 3R33 30742 30722| 3R34 30746 30742| 3R3.5 36504 41035| 3R3 36502 36501,36540,36541,37431 3R4 36512 37025,37032,37041,37060,37116,37123,37153,37171,37241,37257,37272,37305,37400,37523,37560,| 37655,37775,40036,40103,40464,40520,40620,40753| 3R6 36532 36530,36561| 3R7 36537 36562,36565,40545,40552,40571| 3RK2 36646 36635 3RK3 36650 36637| 3RK4 36654 36633,36652| 3RK5 36660 36654,36655| 3RKA 36644 36653| 3RLA 36627 36615,36634 3RLB 36631 36620| 3RMA 36733 36511,40155| 3RMB 36741 36750| 3RMC 36752 36736,36737| 3RMD 36754 36735 3RPA 36675 36671,36673| 3RPB 36710 36665,36674| 3RPC 36713 36662| 3RQ5 37007 36770| 3RQ6 37010 36771 3R 36472 26716| 4BIT 27733 27112| 4Q2 44255 44251,44326| 4T21 44324 44315| 4T2 44247 43724,44320,44333 4TEQ 44242 44227,44231| 4TEX 44327 44254,44256,44323| 4XR4 44306 44266| 57TYP 36715 36664,36707,37433| 5PS 35502 35466,35504,35610,35613,35633 6DECR 21720 35256| 6PS 35610 35634| 6T2 44231 44241| 6T3 44232 44240| 6T4 44237 44230 6T5 44241 44234,44237| 77WD 25607 43147| 7DECR 31550 30723| ABS9L 30642 30576,30600,30617,40527| ACTION 21254 ALFF 36403 36167| A 44022 44026,44027| ATTACH 21353 26711| B172 44152 44141| B173 44164 44157 B17 44134 43777| 1 IBMAPV IBMAPK 12/01/64 PAGE 550 | SYMBOL REFERENCE DATA | 0 B1 43736 44030| B231 44040 44163,44175,44177 B23 44031 44004| B24 44062 44007,44032,44135,44137| B4TEQ 44701 44666| B6T2 44666 44673| B6T3 44667 44700 B6T4 44677 44665| B6T5 44673 44677| BACG 00002 41161| BALF 00002 41015,41044| BASE 32377 31727,32130,32135,32256 BASR 43616 43530| BBASZE 00720 0| BBC 00030 41015,41044| BBFSZE 00345 0,26710| BCDIN 32123 32116 BCIDCT 31210 31175| BDAD 43637 43624| BEV2 43472 43535,43537| BGDICT 21457 27257,27407,31272,34577,22155,22204,22221,22223,22262,22365,22377,22442,22446,22450,22506,| 22574,22616,22637,22741,35216,35314,42125,42146,42334,43113,44640,44742 BGLWD 32403 32161| BGNTSW 41754 37521,37524,37773,37776,40461,40466,41730| BIGBUF 22060 0,26707,26712,44753| BLANKS 27741 27216,27230,27315,27351,27370,27373,27513,27620,27645,27653,45004,45102,45114,30144,30172,| 32051,32055,32313,35156,35160,35264,35272,35274,40636,40767 BLANX 27741 27574,27763,30133,30167,32027,32403,32404,32652,35072,36650,36663,40021,40031,40304,41015,| 41022,41044,41046,41101,41233,41247,41304,41326,41336,41342,41355,41365,41372,41412,41426,| 41430,41432,41434,41436,41444,41446,41450,41452,41464,41474,43311,44551,44630| BLINK 21443 26656,26660,26666,26670,26672,26674,26721,26725,30110,34554,34562,36666,37434,44562,44570,| 44574 BLKMSG 32652 | BMAD 43634 43623| BOOLT 27726 27242| BP11 43612 43652,43653,43655| BP12 43614 43654 BP1A 43563 43551| BP1B 43565 43556| BP1 43547 43642,43643,43656| BP2 43600 43644| BP4A 43604 43607 BP4 43602 43646| BP7 43606 43651| BPAD 43626 43621| BPTAB 43642 43475,43514| B 43753 43744,43775,44055,44121 BSAD 43631 43622| BSOU1 31112 31105,31110| BSOU2 31104 31113| BSOU3 31116 31037,31107| BSXR4 31114 31103 BUFPRT 30667 30520| BUFPRX 30672 30667| BUGBCD 31204 31174| BV12 43543 43456,43560| 1 IBMAPV IBMAPK 12/01/64 PAGE 551 SYMBOL REFERENCE DATA | 0 BV13 43544 43457| BV14 43545 43460| BV15 43557 43603,43611,43645,43647,43650,43657,43660| BV16 43561 43601,43661 BV4 43510 43501,43527| BV6 43531 43630,43633,43636,43641| BV7 43532 43520| BV8 43540 43476,43511,43512,43515,43533,43534,43616,43617,43620,43625| CAQ02 43705 43670 CAQ03 43675 43673,43707,43714,43715| CAQ04 43677 42206,44145| CAQ05 43716 43672,43706| CAQ06 43703 43662| CAQEV 43662 42204,43606,44142 CAR70 41151 30765,30773| CDDIG 21442 26645,30247,40776| CDE.1 32371 32066| CDE.2 32372 32070| CDE.3 32373 32072 CDR 41772 37100,37111,37616,40161,41555,41556,41557,42002,42015,42120,42145,42170,42315,42330,42332,| 42357,42370,43177,43210,43465,43466,44435,44506| CDSEQ 21440 30140,30251,30256,30261,30267,30274,30300,30356,30675,41000,41002| CDTE 36237 44657| CDT 35632 44636,44641,44660,44666,44701,44702,44720,44723 CEE 44066 44043,44061,44103| CHAIN 27716 27020,27021,27026,27027,27031,27224,27404,27534,27542,27545,27546,27551,27552| CHL2 35671 35664,35700,35754| CHL3A 35706 35704| CHL3 35701 35674 CHL4 35711 35663,35675,35703| CHL5 35716 35672,35707| CHL6 35735 35673| CHL7 35743 35677,35705| CHL8 35751 35676 CHLC2 35663 35657| CHLC3 35667 35662| CHLC 35650 35450| CLOC 35755 35652,35655,35671,35702,35706,35711,35716,35737,35740,35743,36164,36170| CLOSE 21355 26717,27057,27440,22504,36455 CMADD 43443 36535,37622,43167,43205,43224| CMDEC 43444 36533,43170,43216,43330| CMODE 30753 30706,30711,30757,31564,37472,37556| CMORG 43455 37510,37620,42167| CMP11 43436 43367,43370,43404,43410 CMP12 43440 43371| CMP1A 43405 43400| CMP1 43376 43357,43360| CMP2 43427 43361| CMP4 43432 43363 CMPA 43420 43402,43412| CMPB 43424 43417| CMPLX 21460 34633,34635,22156,22205,22225,22242,22244,22265,22314,22441,22451,22470,22503,35053,35212,| 42351,43107,43111| CMSYM 40164 40140 CMTAB 43357 43233,43257| COMB 36432 36417,36421| 1 IBMAPV IBMAPK 12/01/64 PAGE 552 | SYMBOL REFERENCE DATA | 0 COMORG 21412 0,21236 COMSW 44357 43735,43743,43751,44327| COMSZE 00066 0| CONORG 21704 0,21704| CONSZE 00044 0| CPLB 21445 26661,31573,44513,44522,44542,44544 CPOOLF 21640 26664,44526| CRHST 46600 26773,27055,27074,27436,27444,30030,30070| CROGA 30075 30115| CROGAT 30070 42470,42475| CROGB 30104 30077 CROGC 30105 30076| CROGD 30114 30102,30117| CROGX 30120 30074| CROGZ 30122 45255| CROH1 27661 27214,27365,27367 CROH2 27666 27061,27063| CROH3 27671 27356| CROH4 27674 27360| CROH5A 27703 27044,27064,27067,27422,27423,27425| CROH5 27677 27062,27200,27200 CROH6 27705 27200| CROHED 27705 27215| CRO.12 27177 27164,31140| CRO.13 27215 27204| CRO.14 27220 27103,27312,27342,27451 CRO.15 27227 | CRO.16 27266 27236,27251| CRO.17 27302 27234,27241,27245,27254,27265,27271,27275| CRO.18 27342 27226,27273,27372,27452| CRO.19 27305 27276,27311,27354,27450 CRO.1 26752 26772| CRO.20 27313 27304,27345,27353,27412| CRO.21 27314 27302,27313,27374| CRO.22 27343 27277| CRO.23 27346 27300 CRO.24 27350 27301| CRO.2 26763 26771| CRO.30 27354 27220| CRO.31 27366 27361| CRO.32 27377 27307,27415,22224 CRO.33 27413 27371,27405| CRO.34 27415 27375| CRO.35 27416 27355| CRO.37 27453 27040| CRO.3 26772 26754,26765 CRO.4 26775 27004| CRO.51 27246 27232| CRO.5C 27255 27247| CRO.5 27006 27013,27036,27456| CRO.6 27012 27035,27455 CRO.75 27064 27045| CRO.7 27041 27043,27065| CRO.85 27072 27102| CRO.8 27070 27007| CRO.9 27102 27073,27076 1 IBMAPV IBMAPK 12/01/64 PAGE 553 | SYMBOL REFERENCE DATA | 0 CRO.BF 27734 27320,27326,27334,27340,27541| CRO.SA 27647 27631,27634,27635,27652| CRO.SB 27650 27637,27655 CRO.SC 27654 27643,27646,27656| CRO.SH 27627 27177,45032,45234,31173,31730,35031,41066| CRO.SX 27657 27627,27654| CROSS 26750 26744| CROXX 27457 26750,27417 CRP.1 27550 27606| CRP.2 27561 27550,27554| CRP.3 27566 27576| CRP.4 27577 27570| CRP.5 27603 27577 CRP.6 27604 27565| CRP.RF 27532 27341| CRP.RX 27607 27532,27533,27543| CRPSSZ 00032 27541,27547,27574,27575| CRPTCH 30030 30030,44753 CRPTE 30030 30070| CRPTSZ 00040 | CRQL 27531 27502,30266,32076,36701| CRTBLE 46577 27034| CRTBL 30070 27005,27454 CSCAL 44643 44662| CSCAM 44656 44646| CSEND 44662 44637,44642,44657,44712| CSYM 40142 | CTCKMD 21421 CTCONC 21560 35006,22505,22606| CTDFCF 21670 45012,45014| CTDUPF 21654 | CTERRF 21574 31733,31764| CTFILC 21610 45243,45251 CTLCCT 21444 34602,34636,34640| CTLIST 21420 26647,45074,30126,30154,32346,35063,35266,35334,35361,40615| CTLLBL 21732 26713| CTNODK 21417 26726,40537| CTNOGO 21422 32022,32046,32047,32333,32344 CTONAL 21530 36457,36462,36464,36466| CTONEI 21514 26651,26653,26715,26720,27046,27050,27052,27054,27060,27426,27430,27432,27434,27441,36424,| 36456| CTPSBF 21624 31023,31107,35617| CTREFF 21544 27007,30101 CTUTO 21500 | CXR1 44713 44635| CXR4 44711 44634,44661| DAD 42045 42057| DBG2 35760 35653 DBG 35756 35661,35666,35667| DCOUNT 22475 34657,34671,22144,22151| DCOUNU 22477 26676| DDCHN 66740 0| DDICT 21434 31156 DEDICT 31175 | DEFINE 21347 26706| DEQU 44373 36516,36731,36761,37005,40125| 1 IBMAPV IBMAPK 12/01/64 PAGE 554 | SYMBOL REFERENCE DATA 0 DISP 43721 43663,43700,44172| DIVID 21712 44220| D.BASE 35024 45015,45020,22513,22516,22623,22675,22707,22713,22716,22717| D.LNGT 35025 22667,22714| D.MARK 22612 22354,22412 D.MRAA 22646 22641| D.MRAB 22650 22632,22634| D.MRA 22630 22700| D.MRBB 22662 22647,22656| D.MRCC 22673 22665 D.MRC 22675 22666,22670,22671,22673| D.MRX 22700 22612,22626,22652,22654,22660,22661,22672| DKTYPE 30323 30304,30474,30620| DM9L 30535 30475| DONES 44350 43722,44330 DPQL 21470 35507,36240,42754| EDIS 32154 | EDITL 32150 32117| EELIM 27717 27421,27535| ENAC 21437 34576,22443,43102,43104 ENBAK 31076 31061| ENDPR 32326 32041| ENFO1 31071 31052,31076,31101| ENFOW 31065 31050,31056,31117,31120| ENOPT 44113 43733,44053,44054,44056,44117,44226 ENPD1 44207 43732,44070,44076,44125,44127,44224| ENPDL 44122 43763,44013| ENTT1 44200 43730,44040,44065| EOF 36453 36425| ERMA 34561 34566 ERMB 34564 34561| ERMC 34565 | ERMDUM 34554 31722| ERM.N1 34573 34555| EROPX 44346 44342 ERPR 25576 31072,34563,34623,22501,35442,36227,36450,37105,37136,37147,37470,37505,37536,37545,40477,| 40653,40713,41735,42062,42416,42620,43070,44222,44316,44402,44412,44426,44436,44443,44454,| 44457,44465,44500,44503| ERRMS 44316 44120,44210,44277,44325| ERR 36450 36425 ERTEQ 44222 43770,44213,44221| EXOPD 44335 44267,44275| FCDKT 34574 26677| LCTR FCDKT | FCDKX 22471 34574 FC.101 34753 34773| FC.102 34767 34757,34761,34763| FC.103 35002 34747,34765,22074| FC.104 22060 35001| FC.105 22071 22061 FC.10 34744 34735| FC.11 22073 34743,22070| FC.12 22106 34745| FC.13 22135 34704,35002,22105,22570| FC.14 22154 34625,34642 FC.15 22162 22160,22200| 1 IBMAPV IBMAPK 12/01/64 PAGE 555 | SYMBOL REFERENCE DATA | 0 FC.16 22164 22154,22167,22170| FC.17 22201 34603,22164,22507 FC.18 22207 22215| FC.195 22216 22206,22211| FC.19 22215 22202| FC.1H 35012 34626,22072,22307| FC.1 34606 34750,34755 FC.20 22227 22203,22245,22247,22261| FC.21 22240 22234,22260| FC.22 22246 22232| FC.23 22262 22226,22227| FC.24 22271 22273,22317 FC.25 22311 22355,22416,22423,22436,22440| FC.26 22320 22274| FC.27 22353 22345,22360| FC.28 22356 22341,22347,22351,22362,22367,22402,22407,22413| FC.29 22361 22346 FC.2H 35013 34627,22067,22421,22622,35231| FC.2 34607 34605,34641| FC.305 22415 22366,22373,22376| FC.30 22370 22415| FC.31 22417 22333 FC.322 22466 22460| FC.32 22441 22266,22315,22316| FC.3A 34633 34631,34632,34672,34673,22153| FC.3B 34636 34650,34651,34737,35003,22107,22126,22142| FC.3H 35014 34741 FC.3 34626 34616,34617| FC.4 34643 34620| FC.5H 35015 35046| FC.5 34660 34652| FC.6 34674 34614 FC.7 34676 34615| FC.8 34706 34607,34713,34714,34724,35007,35170,35200| FC.9 34724 34731| FC.BSP 00030 | FC.CCB 22604 22270,22306,22331,22731 FC.CCX 22611 22604| FC.ERN 22503 26654| FC.FCH 35004 34605,34632,34651,34673,34703,34711,34722,34730,35167,35177,35210| FC.FCX 35011 35004,35006| FC.LMN 22573 22231 FC.LMX 22575 22240,22573,22603| FC.NTE 22510 34653,22075,22132| FC.NTF 22521 22510,22511,22515| FC.QAL 22525 34736,22106,22125| FC.QAX 22546 22525,22567,22571 FC.QER 22570 22121,22123,22530,22534,22537,22543,22545,22551,22561,22565| FC.QQU 22550 22541| FC.TM1 35020 34666,34670,22103,22116,22141,22150,22264,22614,22663| FC.TM2 35021 22111,22131,22263,22300,22311,22313,22723,22742,35164,35213,35217| FC.TM3 35022 22364,22374 FC.TM4 35023 22361,22411,22512,22523| FC.TM 35017 34677,22077,22134,22143,22152,40470,40500| FCPTCH 22750 44753| FCSB 44634 22201| 1 IBMAPV IBMAPK 12/01/64 PAGE 556 SYMBOL REFERENCE DATA | 0 FDICT 45000 26665| FDI.A 45013 45027| FDI.B 45017 45026| FDI.C 45030 45014,45025 FDIX 45245 45000| FD.10 45170 45145,45153,45161,45165| FD.11 45234 45031,45251| FD.125 45227 45075| FD.12 45222 45206 FD.1 45044 45053,45232| FD.2 45046 45052,45252| FD.3 45067 45073| FD.45 45130 45117| FD.4 45113 45103 FD.5 45136 45131| FD.6 45142 45125,45133,45137| FD.7 45150 45143| FD.8 45156 45151| FD.9 45164 45157 FD.BUF 30223 45047,45054,45061,45063,45077,45100,45101,45107,45111,45115,45225,35051,35061,35066,35074,| 35103,35116,35123,35140,35143,35147,35152,35163,35173,35203,35226,35233,35253,35254,35262,| 35263,35276,35316,35330,35347,35371| FD.FCH 45247 45043,45051| FD.FCX 45254 45247 FD.FLE 30175 45110,45112| FDREF 43426 42131,43414| FERPQ 31723 34567| FERPR 31720 26742| FIELDS 37543 37525,37561,37656,40006,40037,40104,40623,40754 F.BLK 30213 45214| F.CPT 30205 45167| F.IMG 30231 26736,26740,45006,45011,45035,45237,45241,31176,31200,35034,35036| F.INO 30204 45155| F.INP 30201 45147,45202 F.MIN 30212 45212| F.MLT 30211 45207| F.MXB 30200 45122,45141| F.MXD 30177 45120,45135| F.NCR 30207 45173 F.OCR 30210 45175| F.OUT 30202 45163| F.POST 22703 22310,22336| F.POSU 22721 22422,22426| F.POSX 22746 22703,22721 F.POTA 22727 22304,22327,22607,22720,22722| F.POTB 22745 22432,22615,22743| F.QCR 30206 45170| F.TTLE 30223 45033| F.TTL 30220 45033,45033 F.TXW 30214 45236| F.TXXE 30220 45235| F.TXX 30215 45235,45235| FLBORG 21500 0,21476| FLCCT 21446 45030,45056,45227,45231 FLOC 21451 35651,35665| FMG001 33357 32625| 1 IBMAPV IBMAPK 12/01/64 PAGE 557 | SYMBOL REFERENCE DATA | 0 FMG002 33361 32626 FMG003 33365 32627| FMG004 33367 32630| FMG005 33371 32636| FMG006 33372 32637| FMG007 33376 32640 FMG008 33402 32642| FMG009 33404 32643| FMG010 33410 32644| FMG011 33412 32645| FMG012 33416 32646 FMG013 33420 32650| FMG014 33243 32647| FMS001 00163 | FMS002 00164 | FMS003 00165 FMS004 00166 | FMS005 00174 | FMS006 00175 | FMS007 00176 | FMS008 00200 FMS009 00201 | FMS010 00202 | FMS011 00203 | FMS012 00204 | FMS013 00206 FMS014 00205 | FOPSW 41757 41575,41622,42133,42160,42227| FTC2 44724 | FTC3 44736 44721| FTC 44716 42006,42025 FYLT 27723 27344| GEE 44071 44225| GFIT2 40414 40247| GFIT3 40433 40372,40410,40423,40433| GFIT4 40434 40362,40371,40375,40377,40407,40421,40430 GFIT 40352 40170,40210,40236,40335,40344| GFITSW 40435 40360,40416| GO1 40376 40366,40374| GO2 40364 40400,40415,40426| GO3 40367 40401,40427 GO4 40405 40363,40365| GO5 40377 40406| GO6 40400 40413| GO7 40431 40414,40420| GO 00001 31073,37150,37471,37506,37546,41736,42417,42621,43071,44403,44413,44427,44437,44444,44455, 44460,44466,44501,44504| GSX1 40402 40352| GSX4 40403 40353| GTPRA 21447 | H4MSK 36377 36044,36177 H5MSK 36401 36337| H6MSK 36400 36115,36275| HANDL 32116 32115| HASHT 52630 0,0,26775,30030,31223,31362,22254,22435,22437,42632,43127,43132| HHLCTR 35375 35043,35145,41522,41523 1 IBMAPV IBMAPK 12/01/64 PAGE 558 | SYMBOL REFERENCE DATA | 0 HOCTA 40201 40214| HOCT 40174 40120| H 35762 IBJCOR 21236 | IBJDAT 21237 | IBMAP 21412 0| IBSLB 21266 | ID(A) 43153 30072,34740,34742,34751,34764,34766,34774,34775,22110,22127,22533,22535,22552,22566,35467, 36756,36765,42251,42263,42420,42462,42560,42567,42635,42636,42642,42710,42716,42725,42732,| 43133| IKAR 32223 32174| IKONA 32235 32226| IKON 32227 32175 IKONX 32250 32223,32227| INDUM 25604 43063| INFIN 25600 30100,31022,22605| INFOT 25601 26663,27006,45013,45242,45250,31106,31732,31763,35005,35616,44525| INIT 43726 44334 INLMX 21473 26675| INTST 25603 34754| IOEDIT 21260 | IVOP 37303 37300| .ACTV 00702 .BCD5R 00720 | .BCD5X 00721 | .BLKSW 00751 | .CHEXI 00134 | .CHPSW 00741 .CHXAC 00724 | .CHXSP 00750 | .CKWAT 00717 | .COMMD 00746 | .COMM 00736 .CVPRT 00722 | .DECVA 00716 27510,37311,37317,40736| .DECVD 00715 | .ENBSW 00710 | .ETTX 00732 .FDAMT 00743 | .FDPOS 21250 | .IBCDZ 00747 | .IOXSI 00740 | .JKAPU 21245 .JLDAT 21240 | .JLIN 21243 | .JTYPE 21242 | .JVER 21244 | .LTPOS 00737 .MODSW 00135 | .MWR 00706 | .NDSEL 00704 | .PAUSE 00712 | .PAWS 00711 .PUNCH 00707 | .RCHX 00727 | .RCTX 00726 | 1 IBMAPV IBMAPK 12/01/64 PAGE 559 | SYMBOL REFERENCE DATA 0 .SDCXI 00744 | .STCXI 00745 | .STOPD 00723 | .STOP 00713 | .SYMUN 00714 .TCOX 00730 | .TEFX 00733 | .TRAPS 00735 | .TRAPX 00734 | .TRCX 00731 .TRPSW 00742 | .URRX 00725 | JBNAME 21435 45003,35141,35157,44632| JOBIN 21255 | JOBOU 21256 JOBPP 21257 30145,30513| JOIN 21351 | JREEL 21261 | KAPUT 00005 35443| KLPNCH 21263 26727,30344,30521,40540,40543 KLPRNT 21456 26650,26741,30341,30405,36676,37437,37441,40075,40313,40616,40721,40724,40756,41006,41070,| 43314,44554| KNAMA 32202 32104,32200,32204,32207,32240,32242,32245| KNAM 32177 32173,32176| KNAMX 32217 32177 KPOUT 25606 26700| KSP 00025 | L18MSK 42225 40546,42215,43540,43567,43612| L2E15 41775 42350,42374| L4760 37167 37163 L760 37166 37161| LAST 37021 36704| LBASZE 02576 0| LBFSZE 00114 0| LBLSW 30430 26646,30337,31166,40775 LBOOLT 27727 27244| LCMA 37020 36702| LCTR 27724 27346| LDIR. 31570 31557,31561,31600| LFTB 43576 37143,43461,43574 LILBUF 23000 0,22750| LILDMP 21265 30670| LINKER 21412 | LINK 52030 0,0,32032,32105,32143,32146,32147,34707,34732,34752,36315,36322,36327,36331,43727,43731,| 44225,44252 LITORG 37767 37766| L.112 27722 27467| L.256 27720 27613| L.AXT 37752 37745| L.MAX 42376 42346 LOCC 21453 | LOCSW 37646 37552,37554,37563,37574,42164| LRBCD 41100 36574,36606,40027,40301,40634| LSECT 43154 42703,42711,42713,42721| LSTEL 43156 42403,42437,42453,42466,42542 LTRMOD 26747 26704| 1 IBMAPV IBMAPK 12/01/64 PAGE 560 | SYMBOL REFERENCE DATA | 0 L(0) 21704 41570,41672,43231,43243,43403,43407,43415,43674,43710| L(10) 21716 L(12W) 37363 37327,37405| L(17) 40651 40640| L(1) 21705 27147,27157,27171,27463,30310,30311,30333,30366,30510,30575,30636,31566,32137,34634,34637,| 22243,22312,22564,35301,35660,35717,36014,36363,36571,36611,40000,40137,40506,40550,40735,| 41707,41720,42354,42667,43103,43421,44050 L(20) 43442 37336,37352,37407,37743,40066,43175,43306,44533,44614| L(2) 21706 30312,30360,30747,32253,22301,22447,22452,22617,22640,22724,40513,40662,41057,43072,43337| L(3) 21707 30471,42362,44355| L(4) 21710 35054,44355| L(50) 44370 44304 L(5) 21711 44355| L(60) 41546 41310,41315,41321,41324,41344,41350,41353,41402| L(6) 21712 30740,31562,44355| L(7) 21713 27270,32113,32334,37200,41667,43500| L(8) 21714 L(9) 21715 | L(DM) 35763 35435,35761| L(LTG) 36405 36003,36046,36051,36071| L(MZE) 43157 40205| L(PTH) 37732 37722 L(PTW) 37731 37703| L(RL) 44741 42004,42023| M377D 43720 43667,43705| M777D 43717 43666| M94SL2 21436 MAD2 42042 42037| MAD 42033 42056| MAPORG 21750 0| MAPSZE 00110 0| MASK1 44353 44105,44371 MASK3 44352 44064,44162| MEND1 32406 32332| MFRST 32376 31750| MINUS 21710 44216| MLERA 44404 44377,44401 MLERR 44374 36525| MLR2 44415 44407| MLR3 44422 | MLR4 44431 44423| MLREX 44510 44374,44464,44467,44472,44474,44477,44502 MLRX2 44511 44375| MMG001 33165 32634| MMS001 00172 37106| MONWD 32402 32131| MPBLSW 21475 MPL3 31752 31746| MPL4 31760 31770| MPL5 31770 | MPLCE 31742 32017| MPRAA 32077 32060,32061,32067,32071,32073 MPRAB 32074 32065| MPRA 32035 32362| MPRBB 32106 32142| MPRB 32100 32043| 1 IBMAPV IBMAPK 12/01/64 PAGE 561 SYMBOL REFERENCE DATA | 0 MPRCA 32112 32263| MPRC 32110 32102,32105,32136,32140| MPRD 32127 | MPRG 32135 32156,32165,32172,32274 MPRNT 32023 31743,31764| MSCNE 31775 32004| MSCNF 31776 32006| MSDEK 31545 31116,31244,31372,31423| MSEVR 32400 31741 MSG001 32653 32443| MSG002 32655 32444| MSG003 32657 32445| MSG004 32661 32446| MSG005 32663 32447 MSG006 32666 32450| MSG007 33425 32451| MSG008 33431 32452| MSG009 33433 32453| MSG010 32670 32454 MSG011 32671 32461| MSG012 32674 32462| MSG013 32700 32463| MSG014 32702 32464| MSG015 32705 32465 MSG016 32711 32466| MSG017 32714 32467| MSG018 32716 32470| MSG019 32722 32471| MSG020 32731 32502 MSG021 32733 32503| MSG022 32736 32504| MSG023 32740 32505| MSG024 32742 32506| MSG025 32744 32507 MSG026 32746 32510| MSG027 32752 32511| MSG028 32754 32512| MSG029 32756 32513| MSG030 32761 32514 MSG031 32764 32515| MSG032 32767 32521| MSG033 32775 32522| MSG034 33002 32523| MSG035 33006 32530 MSG036 33007 32531| MSG037 33012 32532| MSG038 33017 32533| MSG039 33023 32534| MSG040 33030 32535 MSG041 33033 32547| MSG042 33035 32550| MSG043 33041 32551| MSG044 33045 32552| MSG045 33052 32553 MSG046 33056 32554| MSG047 33061 32555| 1 IBMAPV IBMAPK 12/01/64 PAGE 562 | SYMBOL REFERENCE DATA | 0 MSG048 33063 32567 MSG049 33066 32570| MSG050 33070 32577| MSG051 33073 32601| MSG052 33076 32602| MSG053 33101 32603 MSG054 33103 32604| MSG055 33106 32612| MSG056 33112 32613| MSG057 33115 32620| MSG058 33121 32633 MSG059 33122 32635| MSG060 33125 32561| MSGA 32333 32330,32345| MSGBLE 32652 34560| MSGBL 32442 32101,34560 MSGET 31767 31734,31736,31742,31757,31762,31765| MSGX 32342 31720,32337,32350| MSKAD 21723 30111,31007,34654,34665,22101,22114,22137,22147,22251,22427,22601,22643,22662,22706,22712,| 22736,36257,37155,37477,37602,37702,40556,41520,41710,42074,42130,42153,42200,42210,42341,| 42715,42722,42731,43424,43427,43433,43436,43565,43604,44722 MSKBO 32401 32127| MSKDC 21724 32152,22621| MSKFF 21730 42266| MSKHO 21726 36356| MSKLO 21727 30444,30736,22563,37035,37174,37205,40134,41611,41636,43246,43271,43335,43517 MSKMZ 32405 32260,32261| MSKOP 44353 44262| MSKSP 21731 26722,22375,22732,35746,35752,44746| MSKTG 21725 32044,36140,36347| MSS001 00001 MSS002 00002 | MSS003 00003 | MSS004 00004 | MSS005 00005 | MSS006 00006 MSS007 00007 | MSS008 00010 40654| MSS009 00011 37137| MSS010 00012 | MSS011 00017 MSS012 00020 | MSS013 00021 | MSS014 00022 | MSS015 00023 | MSS016 00024 MSS017 00025 | MSS018 00026 | MSS019 00027 | MSS020 00040 | MSS021 00041 MSS022 00042 | MSS023 00043 | MSS024 00044 | MSS025 00045 | MSS026 00046 1 IBMAPV IBMAPK 12/01/64 PAGE 563 | SYMBOL REFERENCE DATA | 0 MSS027 00047 | MSS028 00050 36451| MSS029 00051 MSS030 00052 | MSS031 00053 | MSS032 00057 | MSS033 00060 | MSS034 00061 MSS035 00066 | MSS036 00067 | MSS037 00070 | MSS038 00071 | MSS039 00072 MSS040 00073 | MSS041 00105 | MSS042 00106 | MSS043 00107 | MSS044 00110 22502 MSS045 00111 40500| MSS046 00112 34624| MSS047 00113 | MSS048 00125 | MSS049 00126 MSS050 00135 | MSS051 00137 | MSS052 00140 31073| MSS053 00141 | MSS054 00142 MSS055 00150 | MSS056 00151 | MSS057 00156 | MSS058 00171 | MSS059 00173 MSS060 00117 | MSS 45006 31725,31774,32020,32034,32326,32353,32356,32376| MSX.1 32016 31753| MSX.4 32015 31771| MULT 21711 44217 MZE 31546 31426| NAME 21461 27222,27322,27402,27544,27553,27563,27605,30162,30170,34674,34676,34734,22550,35101,35113,| 35122,35132,35322,35343,43145| NAM.10 31331 31303,31307,31311| NAM.11 31335 31313,31321,31323,31324 NAM.12 31332 31035,31074,31302,31343,31365| NAM.1 31211 31157,31277| NAM.20 31336 31160| NAM.21 31341 31146,31364| NAM.22 31353 NAM.25 31364 31336,31347| NAM.2 31252 31257| NAM.51 31260 31235| NAM.52 31224 31363| NAM.53 31236 31263,31276 NAM.5 31277 31213,31537| NAM.6 31300 31145,31154,31331| NAM.7 31320 31315| 1 IBMAPV IBMAPK 12/01/64 PAGE 564 | SYMBOL REFERENCE DATA 0 NAM.9 31330 31164| NCOM 37453 36407,36644,37344,37432,37436,40276,40572,40747,41502,41510,44560,44567| NLAST 31366 31345,31350| NMCHN 56660 0,26752,26762,27056,27071,27072,27217,27437,27446,27732,30030,31136,31212,31356,34556,34571,| 22254,22435,22437,42412,42413,42632,43127,43132 NOFIT 32020 31752| NOGO 00002 37106,37137,37537,40500,40654,44223| NOMSG 32652 32442| NONE 32344 31733,31737| NONOGO 00003 44317 NONONO 00004 34624,22502,36230,36451,40714,42063| NORLST 34570 34564| NRCST 43776 43755,43757| NTLOCC 25605 22514| NT(A) 43152 30113,34753,34767,42241,42246,42407,42431,42524,42535,42562,42571,42615,42627,42742,42743, 42745,43066,43074,43121,43144,43150| NUMBBF 00002 0,0,26710| NUMFLS 00013 0| NUMLBF 00022 0,0| NVC 40652 40614,41023,41031,42320 OCCVN 27612 27556,35100,35321,35351| OCT17 40575 41212| OKCVF 27467 30371| OKCVN 27461 27303,30161,30163| OPB 36471 31005,35620,35622,36427,36503,36566,36743,40151,40547,40553 OPEN 21357 26714,27051,27431,36465| OPER 21462 27330,27352,27474,27503,27520,27603,27625,45222,30171,30376,22324,22326,35115,35135,35326,| 35341,35345,35366,44561,44571| OPSVE 44356 44263,44271| OPTBL 44212 44110 OTERM 21722 44321| OUTNT 21474 26655,26701| OWSIX 31544 31477,31514| P12 41410 36600,37412,40072,40310,44540,44621| P1515 41302 37027,43316 P2415 41421 37251,37267| P40 44104 44067| P4215 41334 37064,37747| P426 41363 36625,37131| P444 41437 37342,37356 PAB2 30570 30604,30612,30640| PAB3 30603 30571| PAB4A 30612 30607| PAB4C 30614 40532| PAB4 30611 45071,45233,30335,35242 PAB5 30454 30567,30610,30611,30613,40531| PABST 30567 45065,30327,31163,31203,35052,35062,35144,35150,35174,35204,35230,35234| PACNT 44354 43726,43760,43762,44010,44012,44044,44071,44073,44111| PAD 41777 42054| PAGNO 21314 40741 PAND 36376 35764,36473,41751,42174,42234,42414,42467,42474,42604,42611,43061,43142,43557,44716| PAST01 26741 26734| PASTA 26720 36461| PASTEX 26745 26640| PASTOO 26733 26643 PATCHE 31602 31720| 1 IBMAPV IBMAPK 12/01/64 PAGE 565 | SYMBOL REFERENCE DATA | 0 PATCH 31554 31602,44753| PBH 30420 30355 PBK 30423 30351| PBLINK 21466 | PBL 30415 30375| PBNCD 30337 30410,30434,30601,30646| PBNCE 30352 30345 PBNCF 30377 30342| PBNCG 30404 30401| PBNCH 30406 30321,30412,30523| PBNCL 30365 30362| PBNCM 30357 30347,30353 PBNEX 30363 30343,30373| PCGSW 41526 41072,41074,41462| PCKK 30513 30641,30666| PCK 30464 30336| PCKS 30465 30453 PCMA 41664 41660| PCMB 41672 41663,41664,41666| PCM 41675 41560,41677,42001,42014,42117,42137,42144,42163,44405| PCMSW 41654 37543,41554,41616,41617,41646,41647,41656,44376| PCSQ 30536 30305,30473,30507,30511,30622,30635,30637 PCTRL 43445 30443,30701,36551,36572,36711,37337,37353,37410,37744,40067,40270,40643,41456,43161,43221,| 43307,44534,44615| PDDICT 31161 31330,31534| PDLIST 36240 36755,40450,40455,44753| PDLOC 21467 34575,34717,22532 PDLST 52530 0,34725,22532| PDSZE 00100 0,35510,42755| PDXR1 31202 31162| PDXR4 31201 31161| PFL2 30644 30651,30657,30665 PFL3 30650 30645| PFL4 30656 30334| PFL5 30454 30643,30654,30655,30656,30660| PFUL 30643 30330| PGT2 30432 30442,30465,30512 PGT3 30441 30433| PGT4 30452 30460,30463| PGT5 30454 30431,30464,30466,30525| PGT6 30456 30446| PGT7 30461 30447 PLAST 30332 31332,37474,37566,37663,40505,40512,40524,40536,40542,40646,40773| PLDR3 44613 44633| PLDR4 44632 44626| PLIST 30674 30516| PLNME 25602 43146 PLNRF 21414 | PLUS 21707 44046,44215| PMODE 30324 30314,30332,30357,43206,43217| PMTRA 30325 30315| PNBF 30537 30435,30436,30437,30451,30452,30457,30462,30476,30501,30504,30506,30606,30616,30623,30626, 30631,30633,30634,30653,30663,30671,30671,30674| PONORG 26640 0| PPCG 00021 41161| PPV2 40304 40277| 1 IBMAPV IBMAPK 12/01/64 PAGE 566 SYMBOL REFERENCE DATA | 0 PPV3 40306 40275,40303| PPV5 40314 40271| PPV91 40316 40322,40373,40411,40424| PPV92 40320 40211 PPV9 40267 40317,40321,40336,40345| PPVFDF 40323 40176,40200,40320| PPVFD 40262 40171,40237| PQLIST 42754 42463,42753| PRC22 44553 44547 PRC2A 41502 41047,41461,41477| PRC2 44531 44524| PRC3 44555 44543| PRCA 41466 41463| PRCCOM 44565 44521,44605 PRCG2 41473 41465| PRCG3 41511 40260,41453,41503| PRCG 41453 36532,36601,36626,36645,37343,37357,37413,37750,40073,40311,43317,44541,44622| PRCPLP 44520 44514| PRCPL 44513 37764 PRC 44523 44531,44535,44555| PREL 30431 30326,30331,30406| PREVGP 32375 32056,32063| PREX 44556 44520,44526,44604,44623| PRINT 25577 27205,27211,27362,27536,27571,27600,45104,45124,45132,45136,45144,45152,45160,45164,45177, 45216,30130,30134,30141,30164,30346,30352,30372,32023,32327,32336,32347,32361,35067,35107,| 35126,35153,35267,35335,35362,36621,36640,40742,40764,41012,41017,41041,41227,41244,41274,| 41330,41357,41404,41415,41423,41441,41476,41504,44546,44625| PR.LFT 30154 45076,45224,35065,35137,35151,35162,35252,35370| PR.LFX 30173 30156,30165 PR.PU 30122 26737,45022,45034,45240,31177,35035| PR.PUX 30152 30122| PR.PV 30133 30124| PR.PW 30136 | PR.PZ 30137 30125,30150 PR.PZZ 30145 30127,30142| PRLDR 44602 37765| PRONE 21717 43761,44011,44045,44072| PRSW 21267 | PS4A 35500 35473 PSB2 35463 35455,35457| PSB3 35470 35463,35472| PSB4 35473 35470| PSBFE 52030 35441| PSBF 45000 30122,32442,35437,35646,35647,35756,35757,35767,44753 PSB 35454 35462,35626| PSLIST 35507 35466,35505,35611| PSND 36371 35765,36137,36202,36223,36352| PSOP 36560 36523,36546| PSTAB 35626 35451 PSUP 32366 32030,32031,32032| PTABL 30526 30450,30456,30461| PTCHSZ 00116 | PTWORG 26640 25623| PTW 31551 31044,31326 PUBLS 32264 32122| PUGAT 30331 30320,30402,30413,30414,30524,36712,40525| 1 IBMAPV IBMAPK 12/01/64 PAGE 567 | SYMBOL REFERENCE DATA | 0 PUINIT 30302 45037,31170,35040,36477 PUINIW 30311 40507,40514| PUNCH 21263 21457| PUNCTR 30700 30361,30367,30573,30574,37465,37467,37512,37576,37635,37643,40647| PUNDEF 37536 37533,37573,37700,37736,40020| PVEX 42065 42061 PVRT 43160 40462,40465,43060,43141| QS10A 42457 42405,42753| QS10C 42753 42464| QS12AA 43057 43143| QS12AB 43064 43151 QS12AD 43107 43101| QS12A 43072 43065| QS12B 43114 43077,43105,43112,43124| QS12C 43131 43125| QS12D 43113 43106 QS12E 43133 43062,43130| QS12F 43134 43055,43137| QS12G 43135 43056,43140| QS12 43055 42637| QS13 43137 42260,42452 QS2A 42640 42626| QS2 42626 42244,42430,42525,42536,42744| QS4B 42652 42644| QS4 42642 42435,42504,42526,42545,42573| QS5A 42666 42537 QS5B 42673 42556,42663,42666,42670| QS5 42656 42441,42503| QS6A 42675 42664,42671,42705| QS6B 42702 42657,42676,42677| QS6E 42706 42674,42700 QS6 42674 42442,42511,42540| QS7 42710 42443,42512,42547,42575| QS8A 42722 42735| QS8B 42727 42724,42734| QS8 42721 42514,42551,42577 QS9A 42750 42741| QS9B 42752 42245,42250,42502,42736,42737,42747| QS9 42736 42256,42516,42531,42553,42564| QTWD 32221 32213| QUAL 27725 27350 R40A 37026 37052| R41A 37031 37023,37056| R43A 37063 37121,37165,37216| R43B 37061 37037| R45A 37130 R52A 37275 | R53T 37364 37334,37346,37364,37365,37366,37367,37370,37371,37372,37373,37374,37375,37376| R53WD 37361 37315,37321,37323,37331,37332,37345,37421,37423| R55A 37407 37426| R63A 37513 37730 R63B 37511 37632| R63C 37472 37466| R63 37507 37504,37605,37613,37617| R64A 37702 37674| R64CA 37733 37721 1 IBMAPV IBMAPK 12/01/64 PAGE 568 | SYMBOL REFERENCE DATA | 0 R65AA 40020 40044| R65A 40023 40017| R6T3 31134 31126 R6T4 31142 31122,31123,31150,31340| R71A 40063 37772,40077| R71B 40076 40063| R71E7 40232 40136,40143,40163| R71E8 40240 40173,40215 R71E9 40251 40111,40246| R71EEE 40156 40144| R71EE 40144 40121,40123,40201,40220,40222| R71E 40113 40243| R72A 40452 40444 R72C 40461 40453| R72NF 40477 40473| R73B 40510 40504| R73CC 40524 40630| R73CD 40533 40530,40532 R73C 40515 40511| R73D 40534 40516| R73E 40542 40535| R74A 40570 40555,41061| R75B2 40603 40451,40460,40502,40507,40514,40541,40544,40702,40704,40707,40715,40725,40727,40732,41003, 41075| R75D 40623 40523| R75E 40650 40521,40621| R75F1 40653 40632| R75F 40633 40655 R76A 40666 40657| R77B 40716 40673| R77C 40723 40674| R77D 40726 40675| R77E 40731 40676 R77FB 40742 40734,41071| R77FC 40746 40743,40772| R77F 40733 40761| R77GA 40764 40770| R77G 40752 40677,40700 R77H 40773 40701| R77KA 41004 40703| R77KB 41017 41010,41013| R77KC 41025 41051| R77KD 41033 41030 R77KE 41053 41016| R77MA 41067 41060,41065| R77M 41056 40705| R77N 41072 40706| R77W 40710 40670 RA45A 37126 37125,37274,37302| RA45B 37133 37124,37273,40051,40227| RA45C 37147 37276| RA63 37527 | RA65 40030 40022,40052,40053,40476 RA74A 41507 36411,36422,40551,40566,41056,41242| RAC40 37024 41121| RAC41 37022 41122| 1 IBMAPV IBMAPK 12/01/64 PAGE 569 | SYMBOL REFERENCE DATA 0 RAC42 37040 41123| RAC43D 37066 37061,37117,37306| RAC43E 37105 37101| RAC43F 37113 37073,37106| RAC43 37055 41124,41135 RAC43T 37102 37076| RAC44 37115 41125| RAC45 37122 41126| RAC46 37152 41127| RAC47 37170 41130 RAC50 37236 41131| RAC51 37255 41132| RAC52 37271 41133| RAC53 37304 41134| RAC55A 37415 37403 RAC55 37377 41136| RAC56A 37431 37431,41137| RAC56 37427 36545| RAC57 37432 41140| RAC61 37454 41142 RAC63A 37517 37464| RAC63B 37550 37520| RAC63C 37622 | RAC63D 37624 37621| RAC63E 37577 37645 RAC63F 37633 37575| RAC63G 37642 37634| RAC63 37463 41144| RAC64C 37716 37653| RAC64D 37753 37650 RAC64 37647 41145| RAC65A 40025 37462,37514,37535,37713,37741,40012,40107,40613| RAC65 37773 41146| RAC66 40035 41147| RAC70 30755 30772,41151 RAC71D 40101 40061| RAC71E 40110 40056| RAC71 40054 41152| RAC72A 40445 36755,40447,40454,40457| RAC72 40443 41153 RAC73 40503 41154| RAC74 40545 41155| RAC751 40612 37771,44517| RAC75B 40601 40577| RAC75C 40606 40602 RAC75D 40614 36454,40607| RAC75 40576 41156| RAC76 40656 41157| RAC77 40667 41160| RACERR 40713 37455,37551,37757,40600,40666,41141,41143,41150 RAK70 30766 30764| RASR 42054 41643| RBCD2 41106 41102| RBCD 41103 40047,41037,41175,41201| RBEV 43456 36334,37140 RBLINK 37443 36624,36643,36710,41204| 1 IBMAPV IBMAPK 12/01/64 PAGE 570 | SYMBOL REFERENCE DATA | 0 RBOOLT 27730 27237| RCCG 40437 40142,40206,40231,40333,40342 RCM2A 43240 43235| RCM2 43230 43322| RCM3 43244 43234| RCM4 43264 43261| RCM5 43267 43260 RCM6 43274 43250| RCM7 43320 43302| RCM8 43323 43321| RCM9 43324 43225| RCMA 43223 36536,40172 RCMCG 40441 40162,40164| RCMD2 43333 43340,43342,43346| RCMD4 43347 43344| RCMD5 43350 43327,43336| RCMD 43327 36534 RCM 43225 43347| RCPOOL 21464 | RCTAB 41121 36544| RCTR 37013 30105,30365,30572,30713,31565,35654,36605,36610,36612,37475,37476,37500,37511,37577,37601,| 37603,37626,37637,37666,37705,37706,37707,37727,37737,40255,40256,40300,40612,40663,41454, 41512,42171,42173,42340,44607| RDATA 30676 45064,30445,30605,30652,31327,31533,35050,35060,35142,35146,35171,35201,35227,35232,36576,| 37335,37340,37350,37354,37507,37541,37625,37630,37704,37723,37726,40267,40306,40316,40526,| 40626,40633,40661,41173,41177,44613,44617| RDPOOL 21465 43675,43711,43716 READ 21361 27433,36423| RELCON 36404 36001,36005,36036,36050,36053,36070,36073,36074,36077,36134,36200,36210,36360,42201| RELTST 31553 30761,31240,31243,31465,31513,31524,37671,40002| RELVAL 44740 42157,44727| REND 41076 36472,40622 REV2 41571 41642,41650,41651,41653,41674,41700| REV 41547 22556,36040,36062,36250,36263,36521,40130,40225| REVT 41760 22562,35044,36045,36052,36072,36076,36121,36302,37036,37077,37102,37107,37110,37126,37134,| 37156,37157,37214,37215,37310,37316,37326,37415,37612,37623,37624,37777,40133,40234,40625,| 40733,40762,41036,41162,41164,41166,41552,41563,41564,41565,41566,41567,41661,41662,41702, 41711,41722,41732,41741,41746,42243,42262,42322,42343,42363,42372,43172,43174,43207,43220,| 43470,43541,44415,44416,44433,44434,44446,44461,44470,44471,44505,44507| RGTB 43577 37145,37275,43462,43572| RIND 37014 36555,37042,37046,37051,37127,37142,37237,37243,37247,37255,37261,37265,41172,41671| RINTA 35765 36224 RINT 35764 35710| RLAST 27670 27424| RLD2 40340 40331| RLD3 40347 40327| RLDEX 40350 40324 RLDIR 44576 44545,44557,44565,44566,44572,44624| RLDZ 40324 40132,40216| RLOC 36373 36024,36037,36104,36112,36130,36354,40257,41455,42176,43432,43602| RLORG 37763 37755,37760| RMG001 33130 32476 RMG002 33131 32477| RMG003 33133 32500| RMG004 33136 32501| RMG010 33140 32536| 1 IBMAPV IBMAPK 12/01/64 PAGE 571 SYMBOL REFERENCE DATA | 0 RMG011 33142 32537| RMG012 33144 32540| RMG013 33147 32541| RMG014 33151 32542 RMG015 33153 32543| RMG016 33156 32544| RMG017 33160 32545| RMG018 33162 32546| RMG019 33172 32600 RMG025 33176 32571| RMG030 33203 32615| RMG031 33206 32616| RMG032 33210 32621| RMG035 33211 32631 RMG036 33437 32651| RMS001 00034 36230,37537| RMS002 00035 37150| RMS003 00036 42614| RMS004 00037 RMS010 00074 44413| RMS011 00075 44427| RMS012 00076 44437| RMS013 00077 44444| RMS014 00100 44455 RMS015 00101 44460| RMS016 00102 44466| RMS017 00103 44501| RMS018 00104 44504| RMS019 00136 RMS025 00127 42063| RMS030 00153 35443| RMS031 00154 43071| RMS032 00157 41736| RMS035 00167 42607 RMS036 00207 37471| RMXMN 36375 36245,36253,36254,36260,36266,36271,36274,36277| RN10 36157 36204,36221| RN11 36166 36162,36165,36176,36201,36207,36211,36212,36216| RN12 36205 36174 RN13 36223 35774,36236| RN14 36233 36042,36102| RN22 36241 36057,36061| RN23 36246 36255,36256| RN26 36257 36244 RN27 36261 36267,36270,36272| RN28 36273 36247,36262| RN29 36303 36242,36252,36265,36273| RN2 35771 35770,35773,36000,36020,36126,36146,36151,36161,36215,36222,36235,36237,36355| RN32 36334 36026 RN3A 36101 36064| RN3 36056 36032| RN40 36354 36030| RN41 36367 36362| RN4A 36116 36306 RN4 36104 36067,36100| RN5 36126 36114| 1 IBMAPV IBMAPK 12/01/64 PAGE 572 | SYMBOL REFERENCE DATA | 0 RN6 36132 36111 RN7 36137 36055,36125| RN8 36145 36103,36307,36336,36353,36370| RN99 36374 36022,36152,36153| RN9 36152 36144| RNDEX 41052 41007,41011 RN 35767 35670| RNSA 36310 36241,36246,36261,36317,36325| RNSB 36314 36321,36323| RNSEX 36330 36312| RNSX2 36333 36311 RNX 36231 35432,36226| ROACH 31035 26732| ROP 37012 36547,36550,36774,36776,37555,40101,40113| RPAC2A 41174 37341,37355,44620| RPAC2B 41204 36657 RPAC2 41173 36577,37411,37746,40071,40307,43315,44537| RPAC4 41300 36656,41174,41215,41230,41275| RPACA 41241 26644,41220| RPACB 41247 41224,41261| RPACC 41234 41216 RPACD 41225 41235,41272| RPACE 41226 41262,41265| RPACG 41232 41225,41252| RPACH 41214 40567,41226,41237,41250,41271,44563| RPACI 41273 41213 RPACK 41161 37026,37063,37130,37250,37266| RPACM 41274 41211| RPACR 41263 41254| RPACS 41266 41221| RPACT 41236 41243,41263 RPACU 41264 41255| RPACW 41221 41240| RPT4 43210 43202,43204| RPT5 43221 43213,43215| RPTAB 42275 41574,41621 RPTEXT 43161 41161| RPTNA 43353 43165| RPTNB 43354 43166| RPTN 43352 43164,43222| RPTT 43446 43171,43226,43230,43241,43242,43254,43266,43300,43301,43303,43305,43310,43325,43331,43343, 43345,43355| RQ12 42534 42521,42555| RQ13 42545 42541,42554| RQ15 42553 42546,42550| RQ19 42556 42552 RQ20 42560 42515| RQ21 42564 42574,42576,42601| RQ22 42566 42603| RQ23 42573 42565| RQ25 42604 42450 RQ26A 42624 42621,43071| RQ26B 42625 42616,43067| RQ26M 42615 42610| RQ26 42611 42444,42454,42543,42602| RQ26X 42622 42606,42613 1 IBMAPV IBMAPK 12/01/64 PAGE 573 | SYMBOL REFERENCE DATA | 0 RQ2A 42423 42413| RQ3.3 42446 42436,42522| RQ3.4 42453 42530,42533 RQ3 42435 42433| RQ4A 42503 42517| RQ4B 42506 42501,42510,42520| RQ4 42501 42434| RQ8 42516 42505,42513 RQ9 42526 42532,42544| RQ 42406 42472| RQUAL 42377 22531,35465,36754| RQU 43155 42425,42427,42446,42455,42643| RQX2 42473 22560,42377,42421,42456 RQX3 42476 42400,42422| RQXA 42457 42461,42753| RQXB 42467 42451| RQX 42455 42440,42445,42572| RRCG 40440 40160 RSTAB 44360 44244,44245,44300,44303,44345,44360,44361,44362,44363,44364,44365,44366,44367| RSYM 40160 40141| RTITLE 40730 40074,40312,40726,40731,43313,44553| RTXT2 36406 31003,36501,36541,36564,36742,37431,40147| RTXTA 36423 36410,36412,36452,36470 RTXTB 36424 36460| RTXTC 36431 36406| RV10A 41723 41714| RV10 41712 41704| RV11 41737 41726,41731,41734 RV12 41743 41547,41752,42064| RV13 41744 41550| RV14 41745 41551| RV16 41750 42114,42177| RV3A 41607 41600 RV3 41573 41577| RV4A 41620 41624| RV4 41615 41612,41641| RV5 41634 41625| RV6 41644 42003,42005,42011,42022,42024,42032,42044,42053 RV7 41645 41637| RV8 41701 41673| RV9 41702 41712| RVAL 42060 41601,41626,42060| RVFD 40436 40112,40244,41024,41032,41713 RVPAR 42274 41562,41573,41576,41602,41607,41620,41623,41627,41634,42265,42270,43464,43474,43502,43513,| 43521| RVRSE 44674 44671| RVRT 41770 41571,41572,41606,41613,41633,41777,42000,42007,42010,42012,42013,42026,42027,42033,42034,| 42045,42047,43472,43473,43506,43525,43626,43627,43631,43632,43634,43635,43637 RVS2 42330 42321,42364| RVSA 42332 42327| RVSB2 42362 42353,42360| RVSBB 42351 42375| RVSB 42335 42333,42336 RVSC 42365 42361| RVSD 42374 42347| RVS 42315 41724,41740| 1 IBMAPV IBMAPK 12/01/64 PAGE 574 | SYMBOL REFERENCE DATA 0 LCTR BLCTR | QUAL UNQS | LCTR // | SAB01 31036 31051,31064| SAB05 31052 31042,31047 SAB06 31057 31063| SABAY 44704 44710| SADA 42021 | SADB 42023 42017| SADC 42030 42016 SAD 42012 42055| SB01 30754 30712,30714,30716,31563| SB02 30775 30760,30762,37670,40026| SBDICT 31015 30776| SBIN 31103 31036,31057 SBMOD1 30706 30726,30733,30737,30741,30752| SBMOD 30701 26747| SBOU1 31026 31021,31024,31032| SBOU2 31020 31030| SBOUT 31016 30717,30763,30767,31011 SBXR4 31033 31017| SCDKT 35026 26730,35027| SCDKX 35243 35026,35030| SC.1 35170 35211| SC.2 35212 35165 SC.3 35222 35241| SC.4 35242 35215| SC.A 35113 35102| SC.B 35115 35106| SC.CMA 27721 27604 SC.CON 27507 27066,27501,27560,45205,32075,32231,35105,35121,35124,35325,35332,35355,36700,37416| SC.COX 27521 27507| SC.C 35135 35076,35125| SC.D 35141 35064| SC.PRA 35275 35261 SC.PRB 35343 35323| SC.PRC 35345 35305,35333| SC.PRD 35370 35336,35363| SC.PRE 35347 35312| SC.PRF 35354 35311 SC.PRG 35357 35353| SC.PRH 35365 35357,35360| SC.PRI 35341 35327| SC.PRK 35367 35306| SC.PRM 35276 35270 SC.PRN 35245 35205,35236,35247,35313,35324,35354| SC.PRR 35273 35265| SC.PRX 35372 35250,35251| SCODE 32367 32054,32365| SDDICT 21433 SER01 31367 31253| SER03 31370 31155| SER04 31371 31147,31376,31377,31401,31403,31404,31417,31422,31427,31430,31450| SER071 31403 31242,31407,31447| SER07 31377 31374 SER081 31422 31432,31444| 1 IBMAPV IBMAPK 12/01/64 PAGE 575 | SYMBOL REFERENCE DATA | 0 SER088 31445 31416,31425,31442| SER08 31415 31375 SER09 31450 | SER15 31540 31241,31245,31373,31424| SER16 31541 31246,31250,31457,31461,31474,31500,31512,31515,31520,31522,31523,31527,31531| SER17 31542 31016,31026,31214,31251,31254,31256,31353| SER185 31547 31415,31421,31443,31446 SER18 31543 31247,31467,31504,31510| SER19 31512 31476| SER205 31523 31464| SER20 31517 31411,31414,31453| SER21 31530 31506,31511,31516,31535 SER22 31534 31165| SER30 31151 31144,31153| SER31 31552 31215,31354,31440| SETTT 27731 27252| SETUP 32361 31724,32030,32032 SHFSW 40574 41217,41222,41234,41236,41253,41257,41264,41267,41273| SIN 37015 36554| S.709 35376 35117| S.CAL 35417 35346,35367| S.CDW 35377 35033 S.DCK 35402 35161| S.LCT 35411 35342,35352| S.LNT 35413 35114,35133,35344| S.NUM 35415 35340,35356| S.PFX 35400 35073 S.POW 35406 35134| QUAL S.S 21457| S.STT 35407 35112| S.SYS 35404 35136| S.TBL 35424 35260 S.TLE 35424 35032| S.TL 35421 35032,35032| S.TYP 35410 35131| SK77A 30776 40611| SK77B 31001 31014 SLOC 21452 35701| SNND 37016 36527,36556,37024,37031,37040,37057,37115,37122,37152,37170,37240,37256,37271,37304,37377,| 37522,37557,37654,37774,40035,40102,40463,40517,40617,40752,41034| SOCT 40216 40175| SP11A 42215 42073,42112,42240 SP11 42215 42305,42306| SP12 42226 42307| SP17A 42241 42235| SP17B 42251 42257| SP17C 42261 42242,42255 SP17 42234 42314| SP1A 42102 42070,42214| SP1B 42130 42110| SP1C 42071 42205| SP1 42066 42275,42276 SP2A 42142 42277| SP2B 42153 42127,42203| SP2C 42145 42140| SP2 42136 42106,42271| 1 IBMAPV IBMAPK 12/01/64 PAGE 576 SYMBOL REFERENCE DATA | 0 SP3 42154 42077| SP4A 42163 42143| SP4 42171 42165,42301| SP7 42204 42304 SPA 42074 42072,42175| SPCVN 27476 27343,27411| SPCVX 27504 27476,27477| SPCWD 32404 32106,32153,32235| SPECK 32166 32120 SPEND 42273 42061| SPETB 32173 32171| SP.MAX 00400 40763| SQAB 30273 30250| SQADV 30245 30151,30522 SQAX 30270 30245,30246,30257,30273,30301| SRCA 44744 44751| SRCE 44751 22445,44743,44747| SRCST 44742 40472,43100| SROUT 31536 31227,31232,31266,31337,31367,31532 SRTBLE 52627 31071| SRTBL 35026 31065,31121,31124,31132,31143| SRT.01 27103 31132| SRT.1 27107 27145,27173| SRT.2 27115 27121,27136 SRT.34 27132 31131,31135| SRT.35 27136 31130| SRT.3 27123 27126| SRT.4 27137 27116,27123,27176| SRT.5 27145 27163 SRT.6 27147 27156| SRT.7 27157 27144| SRT.8 27164 27155,27170,27174,31127,31141| SRT.9 27175 27143| SRT.LL 27763 27105,27110,27141,27146,27151,27152,27161,27162,27165,27166,27175 SRT.UL 27732 27107,27142,27150,27153,27154,27160,27172,27447,31125,31137| SSBF 67720 27017,27025,27100,27132,27133,27134,27135,27223,27403,31133| SSTRA 21253 | START 43770 43736,43767,43774,44100,44122| STASH 21365 ST.001 33442 32653,33361| ST.002 33445 32654,32656,33205| ST.003 33453 32655,33045,33176,33204| ST.004 33460 32665,33005,33060,33202,33224,33233| ST.006 33465 32661,33234,33434 ST.007 33470 32660,33246| ST.008 33475 32657,32663,33230,33344| ST.009 33477 32662,32667,32775,33067,33137,33374,34164| ST.010 33502 32664| ST.011 33505 32666 ST.013 33510 32754,33240| ST.014 33516 33057| ST.015 33523 32772,33013,33036,33071,33215,33265,33317,33336| ST.017 33526 33217| ST.018 33531 33145,33154,33163,33220 ST.019 33533 33014,33037,33221| ST.020 33537 32726,32767,33025,33027,33216,33222,33310,33312| 1 IBMAPV IBMAPK 12/01/64 PAGE 577 | SYMBOL REFERENCE DATA | 0 ST.021 33547 33223 ST.022 33554 32671,32674,33046| ST.023 33560 32672,32676,32771,32776| ST.024 33563 32673,32677,32701,32704,32707,32713,32715,32721,32725| ST.025 33567 32675| ST.026 33571 32700 ST.027 33601 32702,32705,32711,33425| ST.028 33605 32703,32720,32722| ST.029 33610 32706,32716,33106| ST.030 33613 32710,33430| ST.031 33617 32712,32724 ST.032 33625 32714,33416| ST.033 33631 32717| ST.034 33634 32730| ST.035 33643 33140,33142,33144| ST.036 33645 33147,33151,33153 ST.037 33646 33156,33160,33162,33165| ST.038 33650 32770,33141,33150,33157,33174,33235,33377| ST.039 33652 32746| ST.040 34154 32765| ST.041 33654 32731,32736,32742,32744,33043,33117,33123,33243,33256,33263 ST.042 33664 32737,33260| ST.043 33666 32732,33072| ST.044 33674 33047,33101,33237| ST.045 33701 32743| ST.046 33706 32745 ST.047 33714 32752| ST.048 33720 33417| ST.049 33722 32755| ST.050 33726 33021,33130,33135| ST.051 33736 33132 ST.052 33744 33134| ST.054 33752 32747,32756,32761,32766| ST.055 33755 32757| ST.056 33757 32760,32763,33077,33105,33116| ST.057 33762 32762,33104 ST.058 33764 32764| ST.059 33767 33242,33410| ST.061 33775 33375| ST.062 34000 33002| ST.063 34003 33003,33200 ST.064 34007 33245,33412| ST.065 34012 33120,33244| ST.067 34015 33015| ST.068 34022 33007,33011,33023,33173,33363| ST.069 34032 33012,33035 ST.070 34035 33016,33032,33415| ST.071 34040 33020| ST.072 34041 33026| ST.073 34042 33031| ST.075 34046 33227,33255,33261,33262,33327,33342 ST.076 34054 33257,33264| ST.077 34060 33143,33152,33161| ST.078 34063 33033| ST.079 34073 33034| ST.080 34076 33040 1 IBMAPV IBMAPK 12/01/64 PAGE 578 | SYMBOL REFERENCE DATA | 0 ST.081 34101 33050,33052,33056| ST.082 34104 33053| ST.083 34106 33055 ST.084 34114 33041,33061,33251,33304| ST.085 34121 33062,33306,33420| ST.087 34124 33321| ST.088 34130 33107,33267,33271| ST.089 34133 33167,33270,34216 ST.090 34137 33272| ST.091 34144 33273| ST.092 34151 33042| ST.093 34154 33073,33225,33654| ST.095 34157 33000,33066,33334,33372 ST.096 33477 33030,33337| ST.097 34164 33213,33274| ST.098 34174 33354| ST.099 34201 33121,33122,33125,33440| ST.100 34211 33276,33301,33322,33345 ST.101 34133 33277,33324| ST.102 34216 33302,33421| ST.103 34222 33305| ST.104 34223 33307| ST.105 34233 33311 ST.106 34234 32751,33070| ST.107 34237 33172| ST.108 34240 33175| ST.109 34242 32777,33313,33314,33316| ST.110 34247 33315 ST.111 34250 33320| ST.112 34252 33323,33332| ST.113 34253 33114,33300,33325| ST.114 34255 33247,33254,33326,33427| ST.115 34266 33074,33102,33103,33414 ST.116 34271 33402| ST.118 34272 33226,33231,33236,33355,33400| ST.119 34275 33131,33232| ST.120 34301 33330,33404| ST.121 34304 33113 ST.122 34307 33112,33433| ST.123 34312 33110,33331| ST.124 34316 33340| ST.125 34322 33341| ST.126 34324 33343 ST.127 34330 33203| ST.128 34333 33207,33212| ST.129 34337 33347| ST.130 34347 32735,33333,33350| ST.131 34357 33115 ST.132 34361 33022| ST.133 34363 33210,33253,33431| ST.134 34370 32733,33351| ST.135 34377 33352| ST.136 34410 33353 ST.137 34417 33357| ST.139 34423 33063,33365| ST.140 34427 33064,33367| 1 IBMAPV IBMAPK 12/01/64 PAGE 579 | SYMBOL REFERENCE DATA 0 ST.141 34435 33250,33437| ST.142 34436 33441| ST.143 34437 33371| ST.144 34447 33376| ST.145 34451 33401 ST.146 34454 33356| ST.147 34460 33075| ST.148 34463 33065,33360,33364,33366,33370| ST.149 34466 33166,33435| ST.150 34472 32734,33171 ST.151 34473 33177| ST.152 34474 33024,33252| ST.153 34477 32750| ST.154 34501 32670| ST.155 34506 33411 ST.156 34510 33422,33423,33432| ST.157 34514 33426| ST.158 34517 33076,33100,33136| ST.159 34522 33214| ST.160 34524 33424 ST.161 34526 32774,33006,33303| ST.162 34536 32740| ST.163 34545 33126| ST.164 34546 33405| STLSZ 00200 0,0,43731,44225,44325,44753 STMNT 32366 32077,32364| STZT 37017 36724| SUBLS 32252 32121| SUBLTS 32257 32254| SUBORG 25576 0,21732 SUBSP 21262 | SUBSYS 21412 0| SUBSZE 01042 0| SVNS 44715 44663| SWABS 21426 26733,27357,45001,45036,45041,30307,30577,30621,31167,31172,34601,35027,35037,35042,35434, 36357,36475,36720,36772,37075,37133,37473,37513,37565,37604,37662,37712,37720,40135,40167,| 40207,40235,40245,40252,40272,40334,40343,40627,40641,40645,41457,41733,42151,42317,43064,| 43162| SWBUFF 21416 30517| SWC94 21424 35055 SWCCT 21431 | SWCPIN 21423 22462| SWDBG 21430 26702,26731| SWERR 21450 32021| SWLNKG 21454 31576,44602,44606,44610 SWMOD 21425 35045| SWREF 21427 26642,26743,27037,27201,27416,27420,27555,30070,30106,36667| SWRELD 21432 22664,42166| SWSPEC 21415 31721| SWSUNI 21471 36453,36467 SYSACC 00122 | SYSCEM 00114 | SYSCK1 00155 | SYSCK2 00156 | SYSCOR 00120 SYSCRD 00144 | 1 IBMAPV IBMAPK 12/01/64 PAGE 580 | SYMBOL REFERENCE DATA | 0 SYSCUR 00102 | SYSCYD 00124 SYSDAT 00101 | SYSDMP 00115 | SYSDSB 21246 | SYSEND 77777 | SYSFAZ 21235 0 SYSGET 00132 | SYSIDR 00117 | SYSIN1 00151 | SYSIN2 00152 | SYSIOX 00116 SYSJOB 00133 | SYSKEY 00104 | SYSLB1 00140 | SYSLB2 00141 | SYSLB3 00142 SYSLB4 00143 | SYSLDR 00121 | SYSLOC 21234 21457| SYSORG 02652 | SYSOU1 00147 SYSOU2 00150 | SYSPCH 00146 | SYSPID 00123 | SYSPOS 00106 | SYSPP1 00153 SYSPP2 00154 | SYSPRT 00145 | SYSRET 00103 | SYSRPT 00113 | SYSSHD 21264 27636 SYSSLD 00126 | SYSSWS 00105 | SYSTCH 00127 | SYSTRA 00100 | SYSTWT 00131 SYSUAV 00111 | SYSUBC 00110 | SYSUCW 00112 | SYSUNI 00107 | SYSUT1 00157 SYSUT2 00160 | SYSUT3 00161 | SYSUT4 00162 | SYSUT5 00163 | SYSUT6 00164 SYSUT7 00165 | SYSUT8 00166 | SYSUT9 00167 | T1LOC 44355 44051,44112,44206| T42I 37053 37047,37246,37263 T42N 37054 37244,40720| T47TB 37225 37207| T47T 37217 37202| TBLEND 77017 0| 1 IBMAPV IBMAPK 12/01/64 PAGE 581 SYMBOL REFERENCE DATA | 0 TBLNTH 04030 0,0,0,0,26751,26752,26762,26774,26775,27055,27056,27070,27072,27074,27436,27437,27443,27444,| 30030,31211,31212,31223,31740,32376,42413| TCOUNT 22473 34630| TEMP 52430 0,32125,32133,32203,32205,32210,32236,32237,32243,32246,32300,32311,36171,36203,36217,37175, 37203,37211,37213,40106,40557,40561,40562,41652,41703,41715,42212,42213,42226,42402,42410,| 42465,42471,42477,42557,42561,42563,42566,42570,42656,43536,43614,43734,44114,44115,44232,| 44233,44235,44236,44250,44255,44307| TEMPSB 44133 44123,44124,44130| TEQU 43722 22554,37006 THAD 32005 31751,31754,31772,32000,32001,32011| TITL1E 32423 31731| TITL1 32416 31731,31731| TITL2 32423 32352| TITL3 32430 32026 TITL4 32435 32335,32341| TMPSZ 00100 0,44120| TNPS 35646 35617| TP50 37254 37236,37252,41665,44400| TRB2 35622 35615 TRBF 35615 35444,35461| TRMIN 44224 44212| TRP2 35440 35446,35477,35501| TRP3 35446 35452,35506,35614| TRP 35437 35440,35464 TXEND 30677 26735| W2PA 35432 26671,44373| WBCD 25610 30253,30276| WMG001 33215 32455| WMG002 33217 32456 WMG003 33222 32457| WMG004 33223 32460| WMG005 33225 32472| WMG006 33227 32473| WMG007 33232 32474 WMG008 33234 32475| WMG009 33237 32516| WMG010 33242 32517| WMG011 33245 32520| WMG012 33250 32524 WMG013 33255 32525| WMG014 33261 32526| WMG015 33262 32527| WMG016 33267 32556| WMG017 33271 32557 WMG018 33273 32560| WMG019 33274 32562| WMG020 33276 32563| WMG021 33301 32564| WMG022 33304 32565 WMG023 33307 32566| WMG024 33313 32572| WMG025 33314 32573| WMG026 33317 32574| WMG027 33322 32575 WMG028 33326 32576| WMG029 33327 32605| 1 IBMAPV IBMAPK 12/01/64 PAGE 582 | SYMBOL REFERENCE DATA | 0 WMG030 33331 32606 WMG031 33336 32607| WMG032 33341 32610| WMG033 33344 32611| WMG034 33347 32614| WMG035 33350 32617 WMG036 33351 32622| WMG037 33352 32623| WMG038 33353 32624| WMG039 33354 32632| WMG040 33356 32641 WMS001 00013 | WMS002 00014 | WMS003 00015 | WMS004 00016 40714,44223| WMS005 00030 37546,44403 WMS006 00031 | WMS007 00032 | WMS008 00033 | WMS009 00054 | WMS010 00055 WMS011 00056 | WMS012 00062 37506| WMS013 00063 | WMS014 00064 | WMS015 00065 WMS016 00114 | WMS017 00115 | WMS018 00116 | WMS019 00120 | WMS020 00121 WMS021 00122 | WMS022 00123 | WMS023 00124 | WMS024 00130 | WMS025 00131 WMS026 00132 44317| WMS027 00133 | WMS028 00134 | WMS029 00143 | WMS030 00144 WMS031 00145 | WMS032 00146 | WMS033 00147 | WMS034 00152 | WMS035 00155 WMS036 00160 | WMS037 00161 | WMS038 00162 | WMS039 00170 42417| WMS040 00177 WRITE 21363 27053| WSORT 44226 44214| XBUF 41527 36575,36607,36631,36632,36651,40030,40032,40050,40302,40305,40635,40637,41040,41045,41176,| 41202,41205,41206,41207,41232,41277,41305,41312,41316,41322,41325,41327,41333,41337,41341,| 41345,41351,41354,41356,41362,41366,41367,41371,41374,41400,41403,41407,41413,41414,41420, 1 IBMAPV IBMAPK 12/01/64 PAGE 583 | SYMBOL REFERENCE DATA | 0 41427,41431,41433,41435,41445,41447,41451,41473,41475,41501,43312| XNAA 32302 32307| XNAME 32275 32201,22323 XNAX 32323 32275,32276 1 IBMAPV 12/01/64 PAGE 584 | | 0$IBSYS | 0 30063 LINES OUTPUT. RETURNING TO IBSYS. $REWIND SYSPP1 $ATTACH B2 $AS SYSUT2 $* A3 WILL BECOME FINAL SYSTEM TAPE. $IBEDT 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 1 0 NEW IBSYS EDIT WILL BE DONE ON A3 , HIGH DENSITY. 0 FILE 1 0 RECORD 1 5U0002 7 WORDS 0 RECORD 2 IBSYS 5250 WORDS 0 RECORD 3 SYSDMP 2091 WORDS 0 ......FILE MARK...... 0 FILE 2 0 RECORD 1 IBJOB 853 WORDS 0 RECORD 2 JDUMP 739 WORDS 0 RECORD 3 DMPREC 2139 WORDS 0 RECORD 4 IOCSB 1469 WORDS 0 RECORD 5 IBJOBB 3403 WORDS 0 RECORD 6 IBJOBC 1429 WORDS 0 RECORD 7 IBDBLV 10119 WORDS 0 RECORD 8 IBDPPW 2168 WORDS 0 RECORD 9 IBDPPX 3968 WORDS 0 ......FILE MARK...... 0 FILE 3 0 RECORD 1 IBCBCZ 7643 WORDS 0 RECORD 2 IBCBC0 120 WORDS 0 RECORD 3 IBCBC1 1636 WORDS 0 RECORD 4 IBCBC2 3871 WORDS 0 RECORD 5 IBCBC3 2940 WORDS 0 RECORD 6 IBCBC4 3203 WORDS 0 RECORD 7 IBCBC5 2620 WORDS 0 RECORD 8 IBCBC6 2770 WORDS 0 RECORD 9 IBCBC7 1894 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 2 0 RECORD 10 IBCBC8 8787 WORDS 0 RECORD 11 IBCBC9 5807 WORDS 0 ......FILE MARK...... 0 FILE 4 0 RECORD 1 IBFTCE 16002 WORDS 0 RECORD 2 IBFTCF 11264 WORDS 0 RECORD 3 IBFTCG 4979 WORDS 0 ......FILE MARK...... 0 FILE 5 0 TAPE *REPLACE IBMAPJ 0 RECORD 1 IBMAPJ 11908 WORDS 0 TAPE *REPLACE IBMAPK 0 RECORD 2 IBMAPK 7526 WORDS 0 ......FILE MARK...... 0 FILE 6 0 RECORD 1 IBLDRM 3747 WORDS 0 RECORD 2 IBLDRN 3742 WORDS 0 RECORD 3 IBLDRO 3352 WORDS 0 RECORD 4 CIFSR 5 WORDS 0 RECORD 5 XLB001 445 WORDS 0 RECORD 6 SRDT 250 WORDS 0 RECORD 7 XSRNT 464 WORDS 0 RECORD 8 SRNT 463 WORDS 0 RECORD 9 SRNT 463 WORDS 0 RECORD 10 SRNT 185 WORDS 0 RECORD 11 SRDT 421 WORDS 0 RECORD 12 .IBSYS 464 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 3 0 RECORD 13 .LOVRY 461 WORDS 0 RECORD 14 FB1A 455 WORDS 0 RECORD 15 FRWT. 458 WORDS 0 RECORD 16 UN05 461 WORDS 0 RECORD 17 UN18 462 WORDS 0 RECORD 18 FSQR 459 WORDS 0 RECORD 19 FCSC 452 WORDS 0 RECORD 20 FSLITE 442 WORDS 0 RECORD 21 .IOCSM 464 WORDS 0 RECORD 22 CARS1 460 WORDS 0 RECORD 23 CDISP 460 WORDS 0 RECORD 24 .CCLOG 252 WORDS 0 RECORD 25 FXEM 447 WORDS 0 RECORD 26 FWRD 463 WORDS 0 RECORD 27 FRDB. 460 WORDS 0 RECORD 28 UN05 462 WORDS 0 RECORD 29 UN19 456 WORDS 0 RECORD 30 FBST 157 WORDS 0 ......FILE MARK...... 0 FILE 7 0 RECORD 1 IBLDRP 5283 WORDS 0 RECORD 2 IBLDRQ 3995 WORDS 0 RECORD 3 TIFSR 3 WORDS 0 RECORD 4 .IBSYS 446 WORDS 0 RECORD 5 .IODEF 452 WORDS 0 RECORD 6 .IOCSF 463 WORDS 0 RECORD 7 .IOCSF 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 4 0 RECORD 8 .IOCSF 463 WORDS 0 RECORD 9 .IOCSF 463 WORDS 0 RECORD 10 .IOCSF 463 WORDS 0 RECORD 11 .IOCSF 452 WORDS 0 RECORD 12 .LOVRY 455 WORDS 0 RECORD 13 .LXSL 455 WORDS 0 RECORD 14 .IBDBI 463 WORDS 0 RECORD 15 .IBDBI 463 WORDS 0 RECORD 16 .IBDBI 463 WORDS 0 RECORD 17 .IBDBI 462 WORDS 0 RECORD 18 .ERAS. 444 WORDS 0 RECORD 19 FCOM 456 WORDS 0 RECORD 20 FRWT 454 WORDS 0 RECORD 21 FIOS 445 WORDS 0 RECORD 22 FRWT. 446 WORDS 0 RECORD 23 FIOS. 454 WORDS 0 RECORD 24 FIOB 452 WORDS 0 RECORD 25 FIOH 450 WORDS 0 RECORD 26 FCNV 463 WORDS 0 RECORD 27 FCNV 463 WORDS 0 RECORD 28 FCNV 463 WORDS 0 RECORD 29 FCNV 458 WORDS 0 RECORD 30 UN01 457 WORDS 0 RECORD 31 FLOG 455 WORDS 0 RECORD 32 FTNH 442 WORDS 0 RECORD 33 FXP3 463 WORDS 0 RECORD 34 FDMP 457 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 5 0 RECORD 35 FSLDI 447 WORDS 0 RECORD 36 FCXP 458 WORDS 0 RECORD 37 FDXP 464 WORDS 0 RECORD 38 FDMD 455 WORDS 0 RECORD 39 FDAT 462 WORDS 0 RECORD 40 FDX2 456 WORDS 0 RECORD 41 FSCH 444 WORDS 0 RECORD 42 FDAS 448 WORDS 0 RECORD 43 FICNVR 447 WORDS 0 RECORD 44 FCMDIF 461 WORDS 0 RECORD 45 .IOCS 463 WORDS 0 RECORD 46 .IOCS 463 WORDS 0 RECORD 47 .IOCS 463 WORDS 0 RECORD 48 .IOCS 463 WORDS 0 RECORD 49 .IOCS 463 WORDS 0 RECORD 50 .IOCS 463 WORDS 0 RECORD 51 .IOCS 463 WORDS 0 RECORD 52 .IOCS 463 WORDS 0 RECORD 53 .IOCS 463 WORDS 0 RECORD 54 .IOCS 463 WORDS 0 RECORD 55 .IOCS 463 WORDS 0 RECORD 56 .IOCS 463 WORDS 0 RECORD 57 .IOCS 463 WORDS 0 RECORD 58 .IOCS 458 WORDS 0 RECORD 59 CMPAK 463 WORDS 0 RECORD 60 CMPAK 463 WORDS 0 RECORD 61 CMPAK 463 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 6 0 RECORD 62 CMPAK 447 WORDS 0 RECORD 63 CEOBP 456 WORDS 0 RECORD 64 CAR04 451 WORDS 0 RECORD 65 CBCDH 445 WORDS 0 RECORD 66 CAR14 442 WORDS 0 RECORD 67 CFPAK 463 WORDS 0 RECORD 68 CFPAK 463 WORDS 0 RECORD 69 CFPAK 450 WORDS 0 RECORD 70 CBNCV 458 WORDS 0 RECORD 71 .CATAN 464 WORDS 0 RECORD 72 .CBBLE 447 WORDS 0 RECORD 73 .RAND 463 WORDS 0 RECORD 74 .RAND 463 WORDS 0 RECORD 75 .RAND 463 WORDS 0 RECORD 76 .RAND 70 WORDS 0 RECORD 77 FXEM 456 WORDS 0 RECORD 78 FOUT 451 WORDS 0 RECORD 79 FCNV 463 WORDS 0 RECORD 80 FCNV 463 WORDS 0 RECORD 81 FCNV 449 WORDS 0 RECORD 82 FIOB 462 WORDS 0 RECORD 83 FIOS 458 WORDS 0 RECORD 84 FIOH 463 WORDS 0 RECORD 85 FIOH 462 WORDS 0 RECORD 86 FWRO 442 WORDS 0 RECORD 87 FIOS. 453 WORDS 0 RECORD 88 FWRD. 445 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 7 0 RECORD 89 FRDU. 444 WORDS 0 RECORD 90 FIOU 463 WORDS 0 RECORD 91 FIOU 463 WORDS 0 RECORD 92 FIOU 463 WORDS 0 RECORD 93 FIOU 452 WORDS 0 RECORD 94 FVIO 339 WORDS 0 ......FILE MARK...... 0 FILE 8 0 RECORD 1 IBLDRS 4534 WORDS 0 ......FILE MARK...... 0 FILE 9 0 RECORD 1 IBSFAP 8 WORDS 0 ......FILE MARK...... 0 FILE 10 0 RECORD 1 FORTRA 2377 WORDS 0 RECORD 2 9F0100 37 WORDS 0 RECORD 3 9F0200 1512 WORDS 0 RECORD 4 9F0300 1583 WORDS 0 RECORD 5 9F0400 7329 WORDS 0 RECORD 6 9F0500 2770 WORDS 0 RECORD 7 9F0600 1053 WORDS 0 RECORD 8 9F0700 2701 WORDS 0 RECORD 9 9F0800 863 WORDS 0 RECORD 10 9F0900 247 WORDS 0 RECORD 11 9F1000 735 WORDS 0 RECORD 12 9F1100 347 WORDS 0 RECORD 13 9F1200 12 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 8 0 ......FILE MARK...... 0 FILE 11 0 RECORD 1 9F1300 1834 WORDS 0 RECORD 2 9F1400 5603 WORDS 0 RECORD 3 9F1500 1207 WORDS 0 RECORD 4 9F1600 952 WORDS 0 RECORD 5 9F1700 464 WORDS 0 RECORD 6 9F1800 1039 WORDS 0 RECORD 7 9F1900 2002 WORDS 0 RECORD 8 9F2000 727 WORDS 0 RECORD 9 9F2100 3012 WORDS 0 RECORD 10 9F2200 2839 WORDS 0 RECORD 11 9F2300 561 WORDS 0 RECORD 12 9F2400 628 WORDS 0 RECORD 13 9F2500 484 WORDS 0 RECORD 14 9F2600 2429 WORDS 0 RECORD 15 9F2700 181 WORDS 0 RECORD 16 9F2800 164 WORDS 0 RECORD 17 9F2900 1461 WORDS 0 RECORD 18 9F3000 1583 WORDS 0 RECORD 19 9F3100 3384 WORDS 0 RECORD 20 9F3200 2701 WORDS 0 RECORD 21 9F3300 863 WORDS 0 RECORD 22 9F3400 247 WORDS 0 ......FILE MARK...... 0 FILE 12 0 RECORD 1 9FL001 292 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 9 0 RECORD 2 9FL002 292 WORDS 0 RECORD 3 9FL003 292 WORDS 0 RECORD 4 9FL004 292 WORDS 0 RECORD 5 9FL005 292 WORDS 0 RECORD 6 9FL006 292 WORDS 0 RECORD 7 9FL007 292 WORDS 0 RECORD 8 9FL008 292 WORDS 0 RECORD 9 9FL009 292 WORDS 0 RECORD 10 9FL010 292 WORDS 0 RECORD 11 9FL011 292 WORDS 0 RECORD 12 9FL012 292 WORDS 0 RECORD 13 9FL013 292 WORDS 0 RECORD 14 9FL014 292 WORDS 0 RECORD 15 9FL015 292 WORDS 0 RECORD 16 9FL016 292 WORDS 0 RECORD 17 9FL017 292 WORDS 0 RECORD 18 9FL018 292 WORDS 0 RECORD 19 9FL019 292 WORDS 0 RECORD 20 9FL020 292 WORDS 0 RECORD 21 9FL021 292 WORDS 0 RECORD 22 9FL022 292 WORDS 0 RECORD 23 9FL023 292 WORDS 0 RECORD 24 9FL024 292 WORDS 0 RECORD 25 9FL025 292 WORDS 0 RECORD 26 9FL026 292 WORDS 0 RECORD 27 9FL027 292 WORDS 0 RECORD 28 9FL028 292 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 10 0 RECORD 29 9FL029 292 WORDS 0 RECORD 30 9FL030 292 WORDS 0 RECORD 31 9FLEND 5 WORDS 0 ......FILE MARK...... 0 FILE 13 0 RECORD 1 9D0000 4643 WORDS 0 ......FILE MARK...... 0 FILE 14 0 RECORD 1 9LEDIT 413 WORDS 0 ......FILE MARK...... 0 FILE 15 0 RECORD 1 IOCS 339 WORDS 0 ......FILE MARK...... 0 FILE 16 0 RECORD 1 POST 38 WORDS 0 RECORD 2 PREP 8460 WORDS 0 RECORD 3 IOBB 28 WORDS 0 RECORD 4 IOBM 61 WORDS 0 RECORD 5 NOBS 51 WORDS 0 ......FILE MARK...... 0 FILE 17 0 RECORD 1 RANDOM 1758 WORDS 0 ......FILE MARK...... 0 FILE 18 0 RECORD 1 SORT 818 WORDS 0 ......FILE MARK...... 0 FILE 19 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 11 0 RECORD 1 HYSTAR 294 WORDS 0 RECORD 2 IOPEN 1566 WORDS 0 RECORD 3 LABEL 558 WORDS 0 RECORD 4 BTD 126 WORDS 0 RECORD 5 CALC 2478 WORDS 0 RECORD 6 EP001 5742 WORDS 0 RECORD 7 RB01 246 WORDS 0 RECORD 8 RELEAS 150 WORDS 0 RECORD 9 SK001 534 WORDS 0 RECORD 10 VXS 1110 WORDS 0 RECORD 11 MRGIO 1086 WORDS 0 RECORD 12 BUFRD 654 WORDS 0 RECORD 13 XTRACT 414 WORDS 0 RECORD 14 FXS 1158 WORDS 0 RECORD 15 GET 1062 WORDS 0 RECORD 16 PUT 534 WORDS 0 RECORD 17 READ 966 WORDS 0 RECORD 18 WRITE 558 WORDS 0 RECORD 19 WTFIX 102 WORDS 0 RECORD 20 DEBLK 414 WORDS 0 RECORD 21 FIMRG 2022 WORDS 0 RECORD 22 MERGE 2166 WORDS 0 RECORD 23 POSTP 462 WORDS 0 RECORD 24 CKPT 174 WORDS 0 RECORD 25 DELETE 126 WORDS 0 RECORD 26 HYFIMR 2310 WORDS 0 RECORD 27 MRGHYO 1350 WORDS 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 12 0 RECORD 28 HYMERG 2478 WORDS 0 RECORD 29 HYOPEN 1878 WORDS 0 RECORD 30 HYGET 1182 WORDS 0 ......FILE MARK...... 0 FILE 20 0 RECORD 1 DK90UT 929 WORDS 0 RECORD 2 DK90FA 1514 WORDS 0 RECORD 3 DK90D 1006 WORDS 0 RECORD 4 DK90C 624 WORDS 0 RECORD 5 DK90R 678 WORDS 0 RECORD 6 DK90L 1065 WORDS 0 RECORD 7 HT90D 2156 WORDS 0 ......FILE MARK...... 0 FILE 21 0 RECORD 1 RESTAR 1026 WORDS 0 ......FILE MARK...... 0 FILE 22 0 RECORD 1 UPDATE 3374 WORDS 0 ......FILE MARK...... 0 FILE 23 0 RECORD 1 EDITOR 5492 WORDS 0 ......FILE MARK...... 0 FILE 24 0 RECORD 1 *EOT 5 WORDS 0 ......FILE MARK...... 0 SYSTEM NAME TABLE CONTENTS 0 PHYS. FILES INDEX FIRST FILE 1IBSYS EDITOR 729/1301/7340/7320 12/01/64 PAGE 13 0 IBJOB 4 1 2 0 IBLDRM 3 1 6 0 IBSFAP 1 1 9 0 FORTRA 5 1 10 0 IOCS 3 1 15 0 SORT 2 1 18 0 DK90UT 1 1 20 0 RESTAR 1 1 21 0 UPDATE 1 1 22 0 EDITOR 1 1 23 0 IBSYS SYSTEMS EDIT COMPLETED. $RESTORE $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00910, FILE 00000 SYSOU1 IS B1 REC. 06399, FILE 00000 SYSIN1 IS A2 REC. 00003, FILE 00001| 1 END OF JOBS | 1