~/I99~,002~A075003~)002~B0320020~B001~)099~M080099~B053~U%U1B~.~L%U1001R~B047L~)021~B007~I0~ ~ ~U%U1B~.~L%U1020R~B001L~.020~ 020~B001~)099~M080099~B053~U%U1B~.~L%U1001R~B047L~)021~B007~I0~ ~L041 06~N000~B007~,001101 ~ ~L038 10~N000~B007~,201 ~ ~L036 12~N000~B007~F1 ~ ~L042 20~N000~B007~M%U1501R ~ ~L039 25~N000~B007~B 26K ~ ~L039 30~N000~B007~BU05G ~ ~L039 35~N000~B007~BS13F ~ ~L039 40~N000~B007~B/02D ~ ~L039 45~N000~B007~B 57E ~ ~L041 52~N000~B007~.333333 ~ ~L038 56~N000~B007~. 53 ~ ~L041 63~N000~B007~HW53000 ~ ~L038 67~N000~B007~,W55 ~ ~L042 75~N000~B007~M%U1501R ~ ~L038 79~N000~B007~HW50 ~ ~L038 83~N000~B007~HW47 ~ ~L039 88~N000~B007~BV14L ~ ~L039 93~N000~B007~B/02K ~ ~L038 97~N000~B007~BV72 ~ ~L038/01~N000~B007~B 57 ~ ~L041/08~N000~B007~HW53000 ~ ~L042/16~N000~B007~M%U1501R ~ ~L038/20~N000~B007~HW50 ~ ~L038/24~N000~B007~HW47 ~ ~L039/29~N000~B007~BV14L ~ ~L039/34~N000~B007~B/70K ~ ~L038/38~N000~B007~BV72 ~ ~L039/43~N000~B007~B/48B ~ ~L038/47~N000~B007~B/61 ~ ~L041/54~N000~B007~M580280 ~ ~L035/55~N000~B007~2 ~ ~L039/60~N000~B007~BS07@ ~ ~L039/65~N000~B007~B/93C ~ ~L038/69~N000~B007~B/02 ~ ~L042/77~N000~B007~VT62W551 ~ ~L038/81~N000~B007~,W55 ~ ~L036/83~N000~B007~F1 ~ ~L039/88~N000~B007~B/02E ~ ~L038/92~N000~B007~BT62 ~ ~L041/99~N000~B007~M580180 ~ ~L035S00~N000~B007~4 ~ ~L036S02~N000~B007~K4 ~ ~L038S06~N000~B007~B/02 ~ ~L036S08~N000~B007~F1 ~ ~L038S12~N000~B007~B/61 ~ ~L039S17~N000~B007~U%U1R ~ ~L039S22~N000~B007~U%U2R ~ ~L038S26~N000~B007~)581 ~ ~L041S33~N000~B007~HW53000 ~ ~L042S41~N000~B007~L%U1501R ~ ~L038S45~N000~B007~HW50 ~ ~L038S49~N000~B007~HW47 ~ ~L039S54~N000~B007~BV14L ~ ~L039S59~N000~B007~BT38K ~ ~L038S63~N000~B007~BV72 ~ ~L038S67~N000~B007~,W48 ~ ~L041S74~N000~B007~AW58W50 ~ ~L038S78~N000~B007~)W48 ~ ~L038S82~N000~B007~,W48 ~ ~L041S89~N000~B007~MW50S93 ~ ~L038S93~N000~B007~,000 ~ ~L041T00~N000~B007~MW50T29 ~ ~L041T07~N000~B007~HW53000 ~ ~L042T15~N000~B007~L%U2501W ~ ~L039T20~N000~B007~BW15L ~ ~L039T25~N000~B007~BT94K ~ ~L038T29~N000~B007~)000 ~ ~L038T33~N000~B007~/580 ~ ~L038T37~N000~B007~BS27 ~ ~L039T42~N000~B007~U%U2M ~ ~L042T50~N000~B007~BU79W542 ~ ~L041T57~N000~B007~AW59W54 ~ ~L038T61~N000~B007~BS27 ~ ~L039T66~N000~B007~U%U1R ~ ~L039T71~N000~B007~BT83C ~ ~L041T78~N000~B007~.111111 ~ ~L038T82~N000~B007~.T79 ~ ~L038T86~N000~B007~/180 ~ ~L035T87~N000~B007~4 ~ ~L036T89~N000~B007~K8 ~ ~L038T93~N000~B007~BT72 ~ ~L041U00~N000~B007~.222222 ~ ~L038U04~N000~B007~.U01 ~ ~L041U11~N000~B007~MW62S58 ~ ~L038U15~N000~B007~BS13 ~ ~L039U20~N000~B007~U%U2M ~ ~L038U24~N000~B007~/580 ~ ~L041U31~N000~B007~LW63581 ~ ~L039U36~N000~B007~BU79A ~ ~L035U37~N000~B007~1 ~ ~L041U44~N000~B007~C004W67 ~ ~L039U49~N000~B007~BV05S ~ ~L041U56~N000~B007~M080580 ~ ~L042U64~N000~B007~M%U2501W ~ ~L039U69~N000~B007~BW15L ~ ~L039U74~N000~B007~BT94K ~ ~L038U78~N000~B007~BU32 ~ ~L039U83~N000~B007~U%U2M ~ ~L039U88~N000~B007~U%U1R ~ ~L039U93~N000~B007~U%U2R ~ ~L041V00~N000~B007~.111111 ~ ~L038V04~N000~B007~.V01 ~ ~L039V09~N000~B007~U%U2M ~ ~L038V13~N000~B007~BU32 ~ ~L038V17~N000~B007~HV60 ~ ~L038V21~N000~B007~,V58 ~ ~L041V28~N000~B007~AW70V60 ~ ~L038V32~N000~B007~)V58 ~ ~L039V37~N000~B007~U%U1B ~ ~L041V44~N000~B007~CW53W73 ~ ~L039V49~N000~B007~BV61T ~ ~L041V56~N000~B007~AW59W53 ~ ~L038V60~N000~B007~B000 ~ ~L041V67~N000~B007~.777777 ~ ~L038V71~N000~B007~.V68 ~ ~L038V75~N000~B007~HW14 ~ ~L038V79~N000~B007~HW05 ~ ~L038V83~N000~B007~,W12 ~ ~L041V90~N000~B007~AW76W14 ~ ~L038V94~N000~B007~)W12 ~ ~L041W01~N000~B007~CW47W79 ~ ~L039W06~N000~B007~B000T ~ ~L038W10~N000~B007~/515 ~ ~L038W14~N000~B007~B000 ~ ~L038W18~N000~B007~HW44 ~ ~L038W22~N000~B007~,W42 ~ ~L041W29~N000~B007~AW82W44 ~ ~L038W33~N000~B007~)W42 ~ ~L039W38~N000~B007~U%U2B ~ ~L036W40~N000~B007~UE ~ ~L038W44~N000~B007~B000 ~ ~L037W47~N000~B007~000 ~ ~L037W50~N000~B007~000 ~ ~L037W53~N000~B007~000 ~ ~L035W54~N000~B007~0 ~ ~L035W55~)W55~B007~ ~ ~L037W58~N000~B007~I9I ~ ~L035W59~N000~B007~1 ~ ~L037W62~N000~B007~U16 ~ ~,043~L043W63~)043043~B007~ } ~ ~L038W67~N000~B007~$EOF ~ ~L037W70~N000~B007~I7I ~ ~L037W73~N000~B007~009 ~ ~L037W76~N000~B007~I7? ~ ~L037W79~N000~B007~515 ~ ~L037W82~N000~B007~I8G ~ ~L035501~)501~B007~ ~ ~,043~L043581~)043043~B007~ } ~ ~/ 00080~N000~B007~ ~ ,008015,019026,030,034041,045,053,0570571026 0001KWIC1 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC1 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC1 } L001081,040040,040040,04004010400004KWIC1 000 L003089,040040,040040,04004010400005KWIC1 000 L003094,040040,040040,04004010400006KWIC1 000 L003099,040040,040040,04004010400007KWIC1 ZYXWVUTSRQPONMLKJIHGFEDCBA L026358)333333,359040,04004010400008KWIC1 0000000 L007369,365367,370040,04004010400009KWIC1 } L001434,435040,040040,04004010400010KWIC1 100000000000/080,001061,073075 L030T46,T18T21,T26T29,T33T4010400011KWIC1 ,076077U%U2RF1/299MG862282FL L028T74,T54T59,T61T65,T72T7310400012KWIC1 FLFLBT87BU27HU12U%U2RM%U2E64W L029U03,T77T79,T83T87,T91T9610400013KWIC1 BU13LB000U%U2BU%U2EBT96BU36DBU75 L032U35,U09U13,U18U23,U27U3210400014KWIC1 HZ54!75HJ37Z96HN92P20)363365)367MG87F89L039U74,U43U50,U57U64,U6804010400015KWIC1 BU84BBV12MG88X65MG88F87MG88Z47MG88B79 L037V11,U80U84,U91U98,V0504010400016KWIC1 BV21CBV49MG89O25MG90F88MG89O93MG93N84 L037V48,V17V21,V28V35,V4204010400017KWIC1 BV58EBV86MG89O29MG94F90MG89O97MG88P88 L037V85,V54V58,V65V72,V7904010400018KWIC1 BV95FBW23MG89O33MG95F91MG89P01MG88R31 L037W22,V91V95,W02W09,W1604010400019KWIC1 BW89G/299MF922302FLFLFL L023W45,W28W32,W39W40,W42W4410400020KWIC1 BW67GC046G78BX00S1W51/080,024056,063067L039W84,W51W58,W63W67,W71W7810400021KWIC1 1056MG96F92BW281K1YG97073AT17T25 L032X16,W89W96,X00X01,X03X1010400022KWIC1 B?85ABY41VX380752BX81C075G98BX81T L033X49,X22X26,X34X38,X4504010400023KWIC1 MT20T28BY410750NZ35BY410751BA80M060432 L038X87,X57X65,X69X77,X8104010400024KWIC1 M074372M0753708BC99BY25F9511K1 L030Y17,X95Y02,Y03Y07,Y15Y1610400025KWIC1 YG97073AT17T25BA51ABX26H089000HT28000 L037Y54,Y25Y32,Y37Y41,Y4804010400026KWIC1 H094000H099000BY810750BZ47M0604Z7 L033Y87,Y62Y69,Y77Y81,04004010400027KWIC1 M0754T5M0744T7H0890W31K1YG97073AT17T25 L038Z25,Y95Z02,Z09Z10,Z12Z1910400028KWIC1 B?85ABY69BY410752BA80NJ34B!210751/299 L037Z62,Z31Z35,Z43Z47,Z51Z5910400029KWIC1 MT25F63MF792542P0012192FLFL L027Z89,Z70Z77,Z78Z85,Z86Z8810400030KWIC1 FL.B54M071369D072433Y072433BN17M004362 L038!27,Z92Z96,!03!10,!17!2110400031KWIC1 H!55001Y!68!54H094000B!680!1 H0940!1 L036!63,!35!42,!49!57,04004010400032KWIC1 B!49M0!33648M0604Z7M0754T5M0744T7 L033!96,!68!75,!76!83,!9004010400033KWIC1 H0890W31K1YG97073AT17T25BJ62ABJ460751 L037J33,J04J05,J07J14,J21J2610400034KWIC1 BJ740752BZ59C3X4074B!75UBZ59BJ340752 L036J69,J42J46,J53J58,J6204010400035KWIC1 B?85H094001MH01G04MMHK76G02D0!0K18 L034K03,J74J81,J88J89,J90J9710400036KWIC1 Y0!0K18BK633580BBBBB L020K23,K11K19,K20K21,K22K2310400037KWIC1 BBBBBBB L007K30,K25K26,K27K28,K29K3010400038KWIC1 BBBBBBB L007K37,K32K33,K34K35,K36K3710400039KWIC1 BBBBBBH0940!1 L013K50,K39K40,K41K42,K43K4410400040KWIC1 BN080936BJ97HH040!0M0!0000D0!0K98 L033K83,K59K63,K70K77,04004010400041KWIC1 Y0!0K98BL283580BBBBB L020L03,K91K99,L00L01,L02L0310400042KWIC1 BBBBBBB L007L10,L05L06,L07L08,L09L1010400043KWIC1 BBBBBBB L007L17,L12L13,L14L15,L16L1710400044KWIC1 BBBBBBBL39 L010L27,L19L20,L21L22,L23L2410400045KWIC1 H0940!1BK77HH070!0SH04H07YG97H07H099000L039L66,L35L39,L46L53,L6004010400046KWIC1 SF98094YG97094MH10L94CH07000HL94HM14 L036M02,L74L81,L88L95,L9904010400047KWIC1 BM27SBM70000}H0990?3BL88MGB0M40C0!0000 L038M40,M08M16,M23M27,M3404010400048KWIC1 HM40HM64BM58/BM97BM70000}BM34CK76H13 L036M76,M45M49,M54M58,M66M7010400049KWIC1 BN08S,K74AF98K76)K74H0940!2BJ97MG04369 L038N14,M82M86,M93M97,N04N0810400050KWIC1 MMBP05A8M0604Z7M0744T7M0754T5 L029N43,N16N17,N22N23,N30N3710400051KWIC1 H0890W31K1YG97073AT17T25BO17ABO010752 L037N80,N51N52,N54N61,N68N7310400052KWIC1 BN89BP88BP130753BZ59C3X4074BN17UBZ59 L036O16,N85N89,N97O01,O08O1310400053KWIC1 BO930752BO57BO69BO81B?850750B?850751 L036O52,O25O29,O33O37,O4504010400054KWIC1 BP05BO970753B?85BP010754B?85BP050755 L036O88,O57O65,O69O77,O8104010400055KWIC1 B?85B?85B?85B?85BC12BA51M060366 L031P19,O93O97,P01P05,P09P1310400056KWIC1 BC12M060432M074372M0753708BC99BP68F951 L038P57,P24P31,P38P45,P46P5010400057KWIC1 1K1YG97073AT17T25BQ20ABQ040753NR31 L034P91,P59P61,P68P75,P80P8810400058KWIC1 BQ390754BA80C372074BP24UBA80MG89P05 L035Q26,Q00Q04,Q11Q16,Q2004010400059KWIC1 BO970753BO29M060432M074372M0753708BC99 L038Q64,Q35Q39,Q46Q53,Q60Q6110400060KWIC1 BQ83F9511K1YG97073AT17T25BR63ABR23 L034Q98,Q73Q74,Q76Q83,Q90Q9510400061KWIC1 BA510755BA80BA510754BA80BR470754NX26 L036R34,R07R11,R19R23,R3104010400062KWIC1 BR820755BA80C372074BQ39UBA80MG89P05 L035R69,R43R47,R54R59,R6304010400063KWIC1 BP010754BO33M060432M074372M0753708BC99 L038?07,R78R82,R89R96,?03?0410400064KWIC1 B?26F9511K1YG97073AT17T25B?66AB?500755 L038?45,?16?17,?19?26,?33?3810400065KWIC1 BX26C372074BR82UBA80BA510755MG89P05BO37L039?84,?50?57,?62?66,?74?8110400066KWIC1 /299MT25F63MF792542P0012192FL L029A13,?89?96,A03A04,A11A1210400067KWIC1 FLFL.U%U2MU%U2R/299MH22229 L026A39,A16A18,A19A24,A29A3310400068KWIC1 2FLFLFL.A47M060432M074372 L025A64,A41A43,A45A47,A51A5810400069KWIC1 M075370BC99BA19/299MT25F63MF792542 L034A98,A72A76,A80A84,A91A9810400070KWIC1 P0012192FLFLFL.CT28T20 L022B20,B06B07,B09B11,B13B1410400071KWIC1 BB49SU%U2BST17T28YT17T28BB14BA19A1 L034B54,B26B31,B38B45,B49B5410400072KWIC1 K1YG97073AT17T25BY410750NB95BY410751 L036B90,B57B64,B71B79,B8304010400073KWIC1 BC03BY410752BA19ABB54HC98H094000MF94D53L039C29,B95C03,C08C12,C16C2310400074KWIC1 MF94D10MF94E10M4R7432BC99H0940O3C089094L039C68,C37C44,C51C55,C6204010400075KWIC1 BC44TMF93D53MH23D10MF93E10B000HD52 L034D02,C74C81,C88C95,C9904010400076KWIC1 MT20F95MH24D53MT17F45M%U2359WBD53LBE10KL039D41,D10D17,D24D32,D3704010400077KWIC1 AT17T28B0001MG89D53K1YG97073MT17F95 L035D76,D49D53,D54D61,D63D7010400078KWIC1 U%U2BBE01F453AT17F45BD24U%U2EBD171 L034E10,D82D90,D97E01,E06E1010400079KWIC1 K1YG97073MT17F95U%U2MU%U2U/299MH66264 L037E47,E13E20,E27E32,E37E4110400080KWIC1 2FLFLFL.BT87BD49 L016E63,E49E51,E53E55,E56E6010400081KWIC1 1HDR BIBLIOGRAP L030E93,040040,040040,04004010400082KWIC1 L039F32)E94E94,040040,04004010400083KWIC1 }0 L013F45)F33F33,F44F45,04004010400084KWIC1 CARD NUMBER 000000 OUT OF SEQUENCEI9I L037F82,F80040,040040,04004010400085KWIC1 SSW 1N0001059 L019G01,F93F94,F95F96,F99G0210400086KWIC1 }004003002 L010G14,G02G03,G04G06,G09G1210400087KWIC1 001G31G48G58G71}A L017G31,G18G21,G24G27,G30G3110400088KWIC1 }BYTOASATANON L013G44,G33G35,G37G39,G41G4310400089KWIC1 INOF}FORANDTHE} L015G59,G47G49,G50G53,G56G5910400090KWIC1 SOMEFROMWITH/X00080KWIC1 ONDB L029G88,G64G68,G72G79,G87G8810400091KWIC1 NCC12EFG L009G97,G90G91,G94G95,G96G9710400092KWIC1 5 G17G04END KWIC1 L025H22,G99H02,H05H08,H11H1410400093KWIC1 M1 L002H24,H24040,040040,04004010400094KWIC1 REMOVE TAPE 2, MOUNT BLANK REEL, CONTINL039H63,040040,040040,04004010400095KWIC1 UE. L003H66)H64H64,040040,04004010400096KWIC1 N000000,040040,040040,040040BT290097KWIC1 ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 0098KWIC1 ,068072)063067/061039 ,00100110400099KWIC1 )363365)367,073075,076077,001061BA19A1 L038X37,X07X11,X18X25,X32X3710400100KWIC1 K1YZ98073AZ99T25C072!11BX70SBY78 L032X69,X40X47,X54X61,X6604010400101KWIC1 BY890752BZ12/299MT25F63MF792542P001219 L038Y07,X78X82,X86X93,Y00Y0110400102KWIC1 2FLFLFL.Z63BA19A1 L017Y24,Y09Y11,Y13Y15,Y19Y2410400103KWIC1 K1YZ98073AZ99T25C072!11BY19SM072!11 L035Y59,Y27Y34,Y41Y48,Y5304010400104KWIC1 MT20T28M!13!15BX70M!13!15BY53C074!15 L036Y95,Y67Y74,Y78Y85,Y8904010400105KWIC1 BZ05TBX82M074!15M071369D072433Y072433 L037Z32,Z01Z05,Z12Z19,Z2604010400106KWIC1 M060432M074372M0753708BC99BX32CT28T20 L037Z69,Z40Z47,Z54Z55,Z59Z6310400107KWIC1 BY19SU%U2BSZ99T28YZ98T28BZ63 1 L030Z99,Z75Z80,Z87Z94,Z98Z9910400108KWIC1 L016!15,!12!14,040040,04004010400109KWIC1 /X00080 0110KWIC1 ,008015,019026,030,034041,045,053,0570571026 0001KWIC2 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC2 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC2 000 L003089,333333,339341,34740710400004KWIC2 U%U2RF1/299MZ852282FLFL L023431,414416,420427,42843010400005KWIC2 FL1C003Z88B469S/299M!062382 L027458,434435,442447,45145810400006KWIC2 FLFLFL.434D004Y53B512004 B5120040 L033491,461463,465469,47648410400007KWIC2 B5120041B5120042B447M007Y56B534008 L035526,500508,512519,04004010400008KWIC2 M!07/67B577BB602D/299MZ77226,001M008240L039565,534539,544548,55555910400009KWIC2 2B627F1B733M!08898M!08/87M!08Z76 L032597,567571,573577,58459110400010KWIC2 B539M!08991M!08S03M!09Z77B544H661 L033630,602609,616623,62704010400011KWIC2 H!12000M%U2Y57RB686LCY86!22B000S/180 L036666,638646,651658,66304010400012KWIC2 M!461244/1804K4.631AY89!12 L026692,674675,679680,68268610400013KWIC2 U%U2BB710!120B638/180M!721264/180 L033725,698706,710714,72172210400014KWIC2 4K4.631B747BU%U4RBW27B778004 L029754,727729,733738,74374710400015KWIC2 B7780040FLFLFLFJAY93Y50MY47Y91 L030784,763765,767769,77177810400016KWIC2 M%U2333RB807LB868KB944AY89Y91B831Y901 L037821,793798,803807,81404010400017KWIC2 U%U2BB785P3331014/180MX991454 L029850,827831,838839,84385010400018KWIC2 /1804K4./2992BU53 L017867,855856,858859,86386410400019KWIC2 U%U2RMY441454/1804K4. L021888,873880,881885,88688810400020KWIC2 B898FB936N912U%U4MU%U4R/299F1 L029917,894898,902907,91291610400021KWIC2 M!812292FLFLFL.932B627 L022939,925926,928930,93293610400022KWIC2 B778)339341C343Z04B 34SM343Z04M407!82 L037976,944951,958963,97004010400023KWIC2 M346!85,339341N/31YY45207YY45210M338206L039 15,984991,995 02, 0904010400024KWIC2 M340209M343213B/60C407!82B 50SB963 L034 49, 23 30, 34 41, 4604010400025KWIC2 C346!85B 73SM346!85B/56)347M4061744 L035 84, 57 62, 69 73, 77 8410400026KWIC2 /180K84,347B778B/273441B/273440 L031/15, 89 91, 92 96,/00/0810400027KWIC2 M!07/27B/56N/56)339341M407213M343212 L036/51,/23/27,/31/38,/4504010400028KWIC2 B/60/225M406275B/86,201M275295/220 L034/85,/56/60,/67/71,/75/8210400029KWIC2 2NU53BS033441BU53NS20M346Z42M L029S14,/87/91,/99S03,S07S1410400030KWIC2 MBS27M346Z42M407Z61C350Z14BU53SC366Z12 L038S52,S16S20,S27S34,S41S4610400031KWIC2 BT22SH089000C3U7Z12BT00SC089!88BT00S L036S88,S58S65,S72S77,S8404010400032KWIC2 H0890 1BS65M3U7ZU3BV23MZ28Z60BU53 L033T21,S96T00,T07T11,T1804010400033KWIC2 HT35406BT45000 HZ10BT71,T33S!89T35 L034T55,T29T37,T41T45,T4904010400034KWIC2 Y!90T35)T33BT29CZ71Z10BT99UCZ68Z10BU17UL039T94,T63T67,T71T78,T83T9010400035KWIC2 BU35M404Z60BV23MZ28Z60M384Z60BV23 L033U27,T99U06,U10U17,U2404010400036KWIC2 MZ28Z60M364Z60BV23MZ28Z60AY89Y50CY56Y50L039U66,U35U42,U46U53,U6004010400037KWIC2 B778TF1HY50000N778M!08U81BV04Y532B778 L037V03,U72U74,U81U85,U92V0010400038KWIC2 FLFLFLFJAY93Y50B778HV55 L023V26,V06V08,V10V12,V19V2310400039KWIC2 MY89Y88M%U4Z29WBV56LBV89KB000U%U4B L034V60,V34V42,V47V52,V5604010400040KWIC2 BV80Y883AY89Y88BV34U%U4EBV27U%U4MU%U4U L038V98,V69V76,V80V85,V89V9410400041KWIC2 /180MJ211314/1804K4. L020W18,W03W10,W11W15,W16W1810400042KWIC2 BW27BV52HW59MJ31X03U%U4RM%U4W74WBW60L L037W55,W23W27,W31W38,W43W5110400043KWIC2 B000U%U4BU%U4EBW431HDR L022W77,W60W65,W70W74,W7804010400044KWIC2 } L001X54,040040,040040,04004010400045KWIC2 06ERROR READING INPUT.BLANK LINE IF CONL039X93,040040,040040,04004010400046KWIC2 TINUE. L006X99)X94X94,040040,04004010400047KWIC2 07MOUNT NXT REEL OR SSW F ON IF NO MOREL039Y38,040040,040040,04004010400048KWIC2 INPUT-00000000 L015Y53)Y39Y39,Y45Y46,Y48Y5110400049KWIC2 000 L003Y56,Y57040,040040,04004010400050KWIC2 }110010 I9I L021Z07,Y88Y89,Y90Y92,Y94Z0510400051KWIC2 000 L003Z10,Z11Z29,Z43040,04004010400052KWIC2 }346366386SSW KWIC2 ON*** L027Z88,Z63Z66,Z69Z72,Z78Z8610400053KWIC2 CONTROL CARD ERRORNBD BIBLIOGRAP L034!22,!07!08,!09!10,!1304010400054KWIC2 08INPUT TAPE LABEL ERROR L024!46,040040,040040,04004010400055KWIC2 09ERROR READING TAPE LABELEND KWIC2 L039!85,!73!82,!83040,04004010400056KWIC2 0171 05MOUNT BLANK TAPE ON 4. START. L036J21,!89!90,!91040,04004010400057KWIC2 AUTHORTAPE L010J31,040040,040040,04004010400058KWIC2 /409080 0059KWIC2 ,008015,019026,030,034041,045,053,0570571026 0001KWIC3 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC3 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC3 000 L003089,040040,040040,04004010400004KWIC3 000 L003094,040040,040040,04004010400005KWIC3 079 L003099,201500,500506,50853210400006KWIC3 U%U4RF1/299MV682282FLFL L023556,539541,545552,55355510400007KWIC3 FL1C003V71B594S/299MV892382 L027583,559560,567572,57658310400008KWIC3 FLFLFL.559D004U56D004615B626V600 L032615,586588,590594,60160810400009KWIC3 BBBBBBB572 L010625,617618,619620,62162210400010KWIC3 M007U59B648008 MV90/63B690D/299MV53225 L038663,633641,648653,65704010400011KWIC3 ,001M0082402FLFLFLB715 L022685,668675,676678,68068210400012KWIC3 B821MV91V53MV92 38MV92S45B653H749 L033718,690697,704711,71504010400013KWIC3 MV36U95M%U4U60RB774LCU89W02B000S/180 L036754,726734,739746,75104010400014KWIC3 MW261244/1804K4.719AV17U95 L026780,762763,767768,77077410400015KWIC3 U%U4BB798U950B726/180MW521264/180 L033813,786794,798802,80981010400016KWIC3 4K4.719HV39001HV42001F1,514 L027840,815817,821828,83583710400017KWIC3 /299BS88B923B861B951U%U4R/180 L029869,845849,853857,86186610400018KWIC3 MW951434/1804K4.B899F L021890,877878,882883,88588610400019KWIC3 B715B845/299F1MX042292FL L024914,895899,903905,91291310400020KWIC3 FLFL.919/180MX501464/180 L024938,917919,923927,93493510400021KWIC3 4K4./299B/20MX53964B974000 L027965,940942,943947,95195810400022KWIC3 HU98B 00,962SX54964YX55964)962B958 L034999,970974,978985,99299610400023KWIC3 C531V16B 38SM531V16M531218CX58U98B/13U L038 37, 07 12, 19 26, 3304010400024KWIC3 N 81YU53222YU53225M505221M507224M510228L039 76, 42 49, 56 63, 7004010400025KWIC3 B/20M505221M507223M510226M532227B/20 L036/12, 81 88, 95/02,/0904010400026KWIC3 MV17V35CU56V42B/63UCV39V20B/48SB/63FL L037/49,/20/27,/32/39,/44/4810400027KWIC3 FLFLFJMV23V39B/82,201M228248 L028/77,/52/54,/56/63,/67/7110400028KWIC3 /2202/299CV39U59BS10SAV17V39BS26 L032S09,/82/83,/87/94,/99S0610400029KWIC3 F1MV20V39AV17V42BS38V351B845MV24V35N 81L039S48,S12S19,S26S34,S38S4510400030KWIC3 YU53222YU53225M505221M507224M510228B/20L039S87,S56S63,S70S77,S8404010400031KWIC3 HT35MV36U95M%U4500RBT36LBT84K,T33 L033T20,S92S99,T07T12,T1704010400032KWIC3 AU93T35)T33B000AV17U95BT60U950U%U4BBS99L039T59,T28T32,T36T43,T51T5610400033KWIC3 /180MU521504M5791804BT32,T33 L028T87,T64T71,T72T79,T80T8410400034KWIC3 AV45T35)T33BT32 L015U02,T95T99,040040,04004010400035KWIC3 97TAPE ERROR ON 004.FOLLOWING RECRD NOTL039U41,040040,040040,04004010400036KWIC3 PROCESSED.-000000 L018U59)U42U42,U53U54,U57U6010400037KWIC3 }00800000 L009U98,U91U94,U96U99,04004010400038KWIC3 01001011 L009V24)V16V16,V17V18,V21V2410400039KWIC3 00000000004I9I L024V48,V35V36,V37V40,V43V4610400040KWIC3 SSW 012345KWIC3 ON*** L023V71,V54V61,V69040,04004010400041KWIC3 CONTROL CARD ERRORNDBAUTHORTAPE L031W02,V90V91,V92V93,04004010400042KWIC3 08INPUT TAPE LABEL ERROR L024W26,040040,040040,04004010400043KWIC3 09ERROR READING TAPE LABEL L026W52,040040,040040,04004010400044KWIC3 15MOUNT NXT AUTHOR TAPE OR SSW F ON IF L039W91,040040,040040,04004010400045KWIC3 NONEEND KWIC3 L013X04)W92W92,W96040,04004010400046KWIC3 16CONTINUE WILL INSERT BLANK LINE FOR BL039X43,040040,040040,04004010400047KWIC3 AD REC.5311 526 L015X58)X44X44,X51X54,X55X5610400048KWIC3 /534080 0049KWIC3 ,008015,019026,030,034041,045,053,0570571026 0001KWIC4 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC4 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC4 } L001083,081040,040040,04004010400004KWIC4 000 L003089,040040,040040,04004010400005KWIC4 000 L003094,040040,040040,04004010400006KWIC4 000 L003099,040040,040040,04004010400007KWIC4 103300000000000 L015115)101101,102105,10811310400008KWIC4 000000000000000000I9I L021136,119122,125128,13113410400009KWIC4 SSW 3000004006000 L022158,145146,149152,15515810400010KWIC4 L035193)159159,040040,04004010400011KWIC4 }010000020014 L013345,334335,336339,34234510400012KWIC4 &00000023000 L012357,347350,352355,38038610400013KWIC4 } L001463,462040,040040,04004010400014KWIC4 00 L002500,500040,040040,04004010400015KWIC4 AAA-0123456789ZYXWVUTSRQPONMLKJIHGFEDC L038 38) 01 01, 04 36, 37 3810400016KWIC4 BAH 75M113S74M%U2007RB 81LC036S84B000S L038 76, 41 45, 52 60, 65 7210400017KWIC4 B/05A335S74U%U2BB/05S740B 52/299MT06242L039/15, 81 88, 93/01,/05/0910400018KWIC4 2FLFLFL. 45H/59U%U3R L020/35,/17/19,/21/23,/27/3110400019KWIC4 M113S74M%U3/93WB/60LB000U%U3BA335S74 L036/71,/43/51,/56/60,/6504010400020KWIC4 B/84S743B/43U%U3EB/361HDR L025/96,/80/84,/89/93,04004010400021KWIC4 KEYWORDTAP L026S22)/97/97,S23040,04004010400022KWIC4 } BIBLIOGRAPINPUT TAPE LABEL ERRORBE48 L038T10,S74S75,S85T07,04004010400023KWIC4 A335112BC86BU26BC08H431BC86BT540184BE48L039T49,T18T22,T26T34,T38T4610400024KWIC4 BT38BU26BC08H431BC86M114351BT22U%U2R L036T85,T54T58,T66T70,T77T8110400025KWIC4 U%U3RF1/299MV482282FLFL L023U08,T91T93,T97U04,U05U0710400026KWIC4 FLBU25BBU43CBU57M 27T22M 39141BU16 L034U42,U11U16,U21U25,U32U3910400027KWIC4 M 27T34M 38142BU66DBU77,101M 37143BU86EL039U81,U50U57,U62U66,U70U7710400028KWIC4 BU93M 36144/299M1442282FLFL L027V08,U86U93,U97V04,V05V0710400029KWIC4 FLB 41B/27/080,024056,0630671056 L032V40,V11V15,V19V23,V30V3710400030KWIC4 KWIC4 ON L008V48,040040,040040,04004010400031KWIC4 N000000,040040,040040,040040BT810032KWIC4 ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 0033KWIC4 ,068072)063067/061039 ,00100110400034KWIC4 BU04EBU04E/080BT07A1T95/080,024056 L034U14,T86T91,T95U00,U04U0810400035KWIC4 ,0630671056HZ53M335H45L333460D018W69 L036U50,U22U26,U30U37,U4404010400036KWIC4 Y018W69MH54107HU96400HV14400HV62341 L035U85,U58U65,U72U79,04004010400037KWIC4 M 27W15)400M080459M081462,400MH57V28 L036V21,U93U97,V04V11,V1504010400038KWIC4 BX21000 H338HW11SH60338YH61338A338107 L037V58,V30V34,V38V45,V5204010400039KWIC4 A341107M107W14,W09A344W11)W09BX59W12 L037V95,V66V73,V77V84,V8804010400040KWIC4 CW14H64BX59TM000000NW51HU96401HV14401 L037W32,W03W08,W15W19,W2604010400041KWIC4 HV62344)400M 39W15BE48A335112BW890180 L037W69,W40W44,W51W55,W6204010400042KWIC4 )401,400M 39M22BY00C017H75BX05SBW70 L035X04,W74W78,W85W89,W96X0110400043KWIC4 C081H76BU93SBW70,V26S344V28YH61V28)V26 L038X42,X12X17,X21X25,X32X3910400044KWIC4 CV28H79BV22TBW15/299MH922332/299 L032X74,X50X55,X59X63,X70X7110400045KWIC4 M396231M1122402FLFLFLBZ39 L025X99,X82X89,X90X92,X94X9610400046KWIC4 M107Y35M158334,Y33A344Y35)Y33M333000 L036Y35,Y07Y14,Y18Y25,Y2904010400047KWIC4 H089000)498,500BZ393341D5 0Y80Y5 0Y80 L037Y72,Y43Y47,Y51Y59,Y6604010400048KWIC4 BZ54 400BBBBBB L014Y86,Y81Y82,Y83Y84,Y85Y8610400049KWIC4 BBBBBBB L007Y93,Y88Y89,Y90Y91,Y92Y9310400050KWIC4 BBBBBBB L007Z00,Y95Y96,Y97Y98,Y99Z0010400051KWIC4 BBBBBBB L007Z07,Z02Z03,Z04Z05,Z06Z0710400052KWIC4 BBBBBBB L007Z14,Z09Z10,Z11Z12,Z13Z1410400053KWIC4 BBBBBBZ395 0}H0890 1 L020Z34,Z16Z17,Z18Z19,Z20Z2810400054KWIC4 BY59)400M113H45B000H1185 0,5 0HY465 0 L037Z71,Z39Z43,Z50Z54,Z61Z6510400055KWIC4 HB955 0H0890 1D5 0!07Y5 0!07B!59 400BB L038!09,Z79Z86,Z93!00,!08!0910400056KWIC4 BBBBBBB L007!16,!11!12,!13!14,!15!1610400057KWIC4 BBBBBBB L007!23,!18!19,!20!21,!22!2310400058KWIC4 BBBBBBB L007!30,!25!26,!27!28,!29!3010400059KWIC4 BBBBBBB L007!37,!32!33,!34!35,!36!3710400060KWIC4 BBBBBBB L007!44,!39!40,!41!42,!43!4410400061KWIC4 BBB!705 0}B!77H0890 1BZ86M335334 L032!76,!46!47,!55!59,!66!7010400062KWIC4 H1214Z9H0890 1?121124S118124Y115124 L035J11,!84!91,!98J05,04004010400063KWIC4 A335124C124H94BJ38UMH96124?118127 L033J44,J19J26,J31J38,04004010400064KWIC4 SH99127Y115127?107130S118130Y115130 L035J79,J52J59,J66J73,04004010400065KWIC4 H094000MI02K00C124000HK00HK20BK33S L034K13,J87J94,K01K05,K0904010400066KWIC4 BK83000}H0940!3BJ94MGR1K46C4Z8000HK46 L037K50,K22K29,K33K40,K4704010400067KWIC4 HK77BK71/M 27M22BY43BK83000}BK40/460 L036K86,K55K60,K67K71,K79K8310400068KWIC4 M118099S344099YH61099BL200?0 BL48 L033L19,K94L01,L08L16,04004010400069KWIC4 S344099YH61099S344127YH61127HM290?0 L035L54,L27L34,L41L48,04004010400070KWIC4 H099035M130094Y 31117M118M83M118N84 L035L89,L62L69,L76L83,04004010400071KWIC4 Y346117M118O06M118N95Y115117,400BN58 L036M25,L97M04,M11M18,M2204010400072KWIC4 M000422QQ14HM47BM56000 M335H44C354127 L037M62,M33M37,M41M49,M5604010400073KWIC4 BN69UCH48130BN92UM0!04K4,123M124461)123L039N01,M68M75,M80M87,M91M9810400074KWIC4 VN464242L333463BD44L333460A335351 L033N34,N10N17,N21N28,04004010400075KWIC4 M158H44BB92VN101011BN35M 27M22BM68 L034N68,N42N46,N54N58,N6504010400076KWIC4 CH48130BO03UM0!04K4BP95M0?0459BR73 L034O02,N76N81,N88N92,N9904010400077KWIC4 M0?0459,O04MO06O46)O04,O44A344O46)O44 L037O39,O10O14,O21O25,O29O3610400078KWIC4 BP28000 BP28459 H094000HO76459BP01000 L038O77,O48O56,O63O70,04004010400079KWIC4 HO76HP16HP27A335094BO70C151094BP28U L035P12,O82O86,O90O97,P01P0810400080KWIC4 ,000M193459)000BP40H441BM87H094000 L034P46,P17P24,P28P36,P4004010400081KWIC4 M158H44BP734!0 A335094BP54M1934!0BM87 L037P83,P54P62,P69P73,P8004010400082KWIC4 M158H44BO10C104130BM87U,4K5M000459H338 L038Q21,P91P95,Q02Q07,Q11Q1810400083KWIC4 )4K5H1334K5C133338BM87UBR244K5 M094099 L038Q59,Q26Q33,Q40Q45,Q5304010400084KWIC4 H3384K5C338I05BR54SBQ984K5 H0940!1BQ60 L038Q97,Q67Q74,Q79Q87,Q9404010400085KWIC4 ,4B5M1934K5M3464K4)4B5BM87H3384K5 L033R30,R02R09,R16R20,R2404010400086KWIC4 C338I08BM87SM3464K5BM87,4B5M1934K5)4B5 L038R68,R38R43,R50R54,R58R6510400087KWIC4 BP28CH51127BP84UM118338AH48338M354349 L037?05,R73R80,R85R92,R9904010400088KWIC4 S127349Y115349?107357S118357SH48357 L035?40,?13?20,?27?34,04004010400089KWIC4 Y115357C349357BB60TM338?84M349094 L033?73,?48?55,?60?67,04004010400090KWIC4 Y 31?83M0!03R9BB373R9 HA983R9HB323R9 L036A09,?81?88,?96A03,04004010400091KWIC4 H1483R9H3383R9C338I11BA62SBA623R9 L034A43,A17A24,A31A36,04004010400092KWIC4 S344094YH61094BA17S338148Y158148C151148L039A82,A51A58,A62A69,A7604010400093KWIC4 BB26U,3R9M193000)3R9C094344BP84SM3464!0L039B21,A88A92,A99B03,B10B1510400094KWIC4 BM87M346000BM87C094344BM87SM3463R9BM87 L038B59,B26B33,B37B44,B49B5610400095KWIC4 M338B84M357094Y 31B83M0!03R9BM87)000 L036B95,B67B74,B81B88,B9204010400096KWIC4 BZ393341BY43U%U3MU%U3R/299MI202292 L034C29,C04C08,C13C18,C22C2910400097KWIC4 FLFLFL.C36C351114BC86SU%U3B L027C56,C32C34,C36C40,C47C5210400098KWIC4 S335351Y115351BC40BE48A335112BC980182 L037C93,C64C71,C75C79,C8604010400099KWIC4 BC75C017H75BD28SM017H75M081H76BT70 L034D27,C98D05,D10D17,D2404010400100KWIC4 C081H76BC75SBD10HD76M335E47M%U3386W L035D62,D35D40,D44D48,D5504010400101KWIC4 BD77LBE10KB000U%U3BBE01E473A335E47BD55 L038E00,D68D73,D77D82,D90D9710400102KWIC4 U%U3EBD48U%U3MU%U3U/299MI362362 L031E31,E06E10,E15E20,E24E3110400103KWIC4 FLFLFL.B/27BD730 L016E47,E34E36,E38E39,E43E4710400104KWIC4 HE80M114F95M%U2007RBE81LBF27KB000 L033E80,E52E59,E67E72,E7704010400105KWIC4 A335F95BF05F941U%U2BBE59/299MI522362 L036F16,E88E96,F01F05,F09F1610400106KWIC4 FLFLFL.C40U%U2R/299MG75266 L026F42,F19F21,F23F27,F32F3610400107KWIC4 2FLFLFL.BF64FB 41 L017F59,F44F46,F48F50,F51F5610400108KWIC4 BE52BF76H451BC08M335H43M158018BE7700 L036F95,F64F72,F76F83,F90F9410400109KWIC4 CARD NUMBER 000000 OUT OF SEQUENCE L034G29,040040,040040,04004010400110KWIC4 MOUNT NXT INPUT REEL.SSW F ON IF NO MORL039G68,040040,040040,04004010400111KWIC4 E INPUT}004003002 L017G85)G69G69,G76G77,G80G8310400112KWIC4 001H02H19H29H42}A L017H02,G89G92,G95G98,H01H0210400113KWIC4 }BYTOASATANON L013H15,H04H06,H08H10,H12H1410400114KWIC4 INOF}FORANDTHE} L015H30,H18H20,H21H24,H27H3010400115KWIC4 SOMEFROMWITH000035 L018H48,H35H39,H43H44,H45H4610400116KWIC4 021499459400 997 L027H75,H52H55,H58H61,H62H6510400117KWIC4 399TITLE TO LONG3736500G88 L027I02,H77H80,H93H95,H97I0010400118KWIC4 459459400END KWIC4MOUNT BLANK ON 3 L034I36,I06I09,I12I21,04004010400119KWIC4 INPUT TAPE ERROR L016I52,040040,040040,04004010400120KWIC4 N000000,040040,040040,040040BT810121KWIC4 ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 0122KWIC4 ,068072)063067/061039 ,00100110400123KWIC4 0000000 L039498,462465,467487,04004010400124KWIC4 HQ60 L004U29,040040,040040,04004010400125KWIC4 N L001U37,040040,040040,04004010400126KWIC4 M081498 L007V10,040040,040040,04004010400127KWIC4 N L001W78,040040,040040,04004010400128KWIC4 BQ38BK83 L009Y04,Y00Y04,040040,04004010400129KWIC4 C4Z9000 L007K46,040040,040040,04004010400130KWIC4 N L001K60,040040,040040,04004010400131KWIC4 BQ04 L004K17,040040,040040,04004010400132KWIC4 BM74BQ04 L008K74,K71040,040040,04004010400133KWIC4 M%U3460W L008D62,040040,040040,04004010400134KWIC4 M107L11,L09AR71L11)L09MR73000MR97089 L036L18,K90K94,L01L05,L1204010400135KWIC4 S341089YL31089BM354Z9 BM464Z9}BM464Z9 L038L56,L26L33,L41L49,04004010400136KWIC4 AR76089BL33BM354Z9 BM464Z9}MR775 0 L034L90,L64L68,L76L84,04004010400137KWIC4 AR97089S341089YM10089CR80089BL33T L033M23,L98M05,M12M19,04004010400138KWIC4 H089498BL33AR76089BL68MR83089HR680 0 L036M59,M31M35,M42M46,M5304010400139KWIC4 M396497MR85461M175486M158D5 0N06Y5 0N06L039M98,M67M74,M81M85,M9204010400140KWIC4 BN98 400BBBBBB L014N12,N07N08,N09N10,N11N1210400141KWIC4 BBBBBBB L007N19,N14N15,N16N17,N18N1910400142KWIC4 BBBBBBB L007N26,N21N22,N23N24,N25N2610400143KWIC4 BBBBBBB L007N33,N28N29,N30N31,N32N3310400144KWIC4 BBBBBBB L007N40,N35N36,N37N38,N39N4010400145KWIC4 BBBBBBQ385 0}BN735 0 L021N61,N42N43,N44N45,N46N5410400146KWIC4 H0890 1BM85A335461H0890 1HR680 0BM85 L036N97,N69N73,N80N87,N9404010400147KWIC4 H1570 0BO74D5 0O30Y5 0O30BO74 400BB L035O32,O05O09,O16O23,O31O3210400148KWIC4 BBBBBBB L007O39,O34O35,O36O37,O38O3910400149KWIC4 BBBBBBB L007O46,O41O42,O43O44,O45O4610400150KWIC4 BBBBBBB L007O53,O48O49,O50O51,O52O5310400151KWIC4 BBBBBBB L007O60,O55O56,O57O58,O59O6010400152KWIC4 BBBBBBB L007O67,O62O63,O64O65,O66O6710400153KWIC4 BBBO85H0890 1BO09M157464SR68464 L031O98,O69O70,O74O81,O85O9210400154KWIC4 YR86464H3380 0S157338YR86338M338094 L035P33,P06P13,P20P27,04004010400155KWIC4 CR89338BP71TMR91466M157099M5A9486BP85 L037P70,P41P46,P53P60,P6704010400156KWIC4 M094466M4Z94O6VQ264672M466124BJ80 L033Q03,P78P85,P93Q00,04004010400157KWIC4 L333999BD44A335351BM74VP931011BM74/999 L038Q41,Q11Q15,Q22Q26,Q34Q3810400158KWIC4 ////,500M113H45B000 L019Q60,Q43Q44,Q45Q46,Q50Q5710400159KWIC4 BR28A1C003R94BR28/M006R97CR97?00BR28T L037Q97,Q66Q67,Q74Q79,Q86Q9310400160KWIC4 CR97?03BR28US?04R97YR22R97BT07/299 L034R31,R05R10,R17R24,R2804010400161KWIC4 L?22238BR48ABR55L?292402FLFL L028R59,R39R44,R48R55,R56R5810400162KWIC4 FL.Q61000002 }I9I L018R77,R62R66,R69R72,R74R7710400163KWIC4 49900001 02120*** L017R94,R81R84,R86R87,R90R9210400164KWIC4 1320402CONTROL CARD ERRORMISSING L035?29,R98?01,?04?05,?2304010400165KWIC4 /Q61080 0166KWIC4 ,008015,019026,030,034041,045,053,0570571026 0001KWIC5 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC5 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC5 000 L003089,040040,040040,04004010400004KWIC5 000 L003094,040040,040040,04004010400005KWIC5 000 L003099,040040,040040,04004010400006KWIC5 1001011001001-00 L016196,182185,188191,19419510400007KWIC5 000 L003199,198333,370040,04004010400008KWIC5 }008004SSW 1111 L017394,379382,385400,43704010400009KWIC5 }U%U3RU%U4RF1/299MG552282 L025469,446451,456458,46246910400010KWIC5 FLFLFL1C003G58B511S/299 L023492,472474,476477,48448910400011KWIC5 MG682362FLFLFL.476D004M58 L025517,500501,503505,50751110400012KWIC5 CM58G69B489TM007M61B623009 MG70/22 L034551,525530,537545,04004010400013KWIC5 MG73Z02MG70W34MG76T64C013G79B489T L033584,559566,573580,04004010400014KWIC5 C013G82B489UM013G85AG88G85B623010 ,394 L038622,592597,604611,61904010400015KWIC5 B638008 MG89S33B766DB777E/299M390226 L036658,631638,643648,65204010400016KWIC5 ,001M0132452FLFLFLB712E L023681,663670,671673,67567710400017KWIC5 U%U2RDG69J63HJ79L08MK88K52BJ42DG90J63 L037718,687694,701708,71204010400018KWIC5 HJ79K98MK79K52BJ42BL09F1SG91M61YG92M61 L038756,726733,737741,74375010400019KWIC5 B788DB802MG93389B643MG94390B648MG70/33 L038794,762766,773777,78478810400020KWIC5 )M99N01/332/299B819EB844M988963HU39U68 L038832,802806,810815,81982610400021KWIC5 MG89U73B880BV34.844B860B880/180 L031863,840844,848852,85686010400022KWIC5 MH161224/1804K4.BV12 L020883,871872,876877,87988010400023KWIC5 .880B896B916/180MH361214/180 L028911,888892,896900,90790810400024KWIC5 4K4.MO52O16H094000MN68094MNL0NQ0 L032943,913915,916923,93093710400025KWIC5 /444,437,400MNL03R9N 44C368O16B988U L035978,948952,956963,96797410400026KWIC5 B 26SB 44BZ53BV34.992B 08B963 L029 07,984988,992996, 00 0410400027KWIC5 M988963HU39U68B963H 73 74HT10T11B 58 L036 43, 15 22, 26 33, 4004010400028KWIC5 H 73 85HT10T49CO16435BT00/B000A181375 L037 80, 51 58, 65 70, 7404010400029KWIC5 B 96A181442B/04B/133771BS96BB/22B/22B L037/17, 85 92, 96/04,/09/1310400030KWIC5 BS96NO54MN66260N/76MM98268Y194269 L033/50,/22/26,/33/37,/4404010400031KWIC5 MN00271Y194272MN03275B/90MN03273MN69274L039/89,/58/65,/72/76,/8304010400032KWIC5 CM58193BS33UC184190BS18SBS33FLFL L032S21,/97S02,S09S14,S18S2010400033KWIC5 FLFJM187190BS52,201M275295/220 L030S51,S24S26,S33S37,S41S4810400034KWIC5 2/299CM61190BS80UA184190BS96F1 L030S81,S53S57,S64S69,S76S8010400035KWIC5 M184190A184193BT57HS99U09B000BZ53BV34 L037T18,S89S96,T00T07,T11T1510400036KWIC5 .T15BT31BS96M988963HU39U68BS96BZ68 L034T52,T23T27,T31T38,T45T4910400037KWIC5 BS96BV12.U01BU20MO52O16H094000MN68094 L037T89,T57T61,T65T69,T76T8310400038KWIC5 MNL0NQ0B 58/299B/90HS99T57B944CT10H39 L037U26,T97U01,U05U09,U16U2010400039KWIC5 BU40SBZ68BU48BZ53BU36BV34.U48 L029U55,U32U36,U40U44,U48U5210400040KWIC5 BU68BZ53BU48U%U4MU%U2RU%U3RU%U4R L032U87,U60U64,U68U73,U78U8310400041KWIC5 /299F1MH482292FLFLFL L020V07,U92U94,V01V02,V04V0610400042KWIC5 .V08HW56MZ02V72H089006BV52HW56MY96V72 L037V44,V12V16,V23V30,V34V3810400043KWIC5 H089000MYZ3V69M186196M%U0000RBW57LBX37KL039V83,V52V59,V66V74,V7904010400044KWIC5 BW34V693C368H84BW27T/180MI071234/186 L036W19,V92V99,W04W08,W15W1610400045KWIC5 4K8.V52M368H84NY25,W54A381W56 L029W48,W21W23,W27W34,W38W4210400046KWIC5 )W54B000MYZ3W82A181196BW881960U%U0BBV66L039W87,W53W57,W64W71,W79W8410400047KWIC5 /180MYZ6X02P0001014/180MZ52150MYZ3119 L037X24,W92W99,X06X07,X11X1810400048KWIC5 4/1804K4BW53DV69X47U%U0R L024X48,X26X30,X31X33,X37X4410400049KWIC5 /180MN80110DV69102DV691104/1804 L031X79,X53X60,X67X74,X75X7910400050KWIC5 K4.BY72FBY43X472DG90J63HJ79K98MK79K52 L037Y16,X82X83,X88X96,Y03Y1010400051KWIC5 BJ42BV52MB13N68MB33N50BW38DG69J63 L033Y49,Y21Y25,Y32Y39,Y4304010400052KWIC5 HJ79L08MK88K52BJ42BV52,W54A384W56)W54 L037Y86,Y57Y64,Y68Y72,Y76Y8310400053KWIC5 BW53%U2333%U3M93 L016Z02,Y91Y94,Y97Z00,04004010400054KWIC5 97TAPE ERROR ON 000.PRECEEDNG RECRD NOTL039Z41,040040,040040,04004010400055KWIC5 PROCESSED.H!14H089000BZ79H!14 L030Z71)Z42Z42,Z53Z57,Z64Z6810400056KWIC5 H089003MJT8Z99M181197M%U4000WB!15LB!55KL039!10,Z79Z86,Z93!01,!0604010400057KWIC5 B000U%U4BB!391973A181197BZ93U%U4E L033!43,!15!20,!28!35,!3904010400058KWIC5 M181197BZ93U%U4MU%U4U/180MJ351434 L033!76,!51!55,!60!65,!69!7610400059KWIC5 /1804K4.BL09B!11 L016!92,!81!82,!84!85,!8904010400060KWIC5 98REMOVE TAPE 4,LABEL SAME, MOUNT NEW TL039J31,040040,040040,04004010400061KWIC5 APE.333400HJ83DJ63K30 L021J52)J32J32,J36J39,J42J4610400062KWIC5 M181I08M%U0M62RBK20LCM91000B000S/180 L036J88,J60J68,J73J80,J8504010400063KWIC5 DJ63J99U%U2BPK441014/1804K4 L027K15,J96K01,K08K09,K13K1410400064KWIC5 .J53A181I08U%U2BBJ85I080BJ60 L037K52,K20K27,K32K40,K4404010400065KWIC5 TAPE LABEL ERROR}10KEYWORD11STAT. L036K88)K53K53,K70K71,K8004010400066KWIC5 KEYWORDTAPSTATISTICSHL41U%U4RMO53I08 L036L24,K99L09,L13L18,04004010400067KWIC5 M%U4L75WBL42LB000U%U4BA181I08BL66I083 L037L61,L33L38,L42L47,L5404010400068KWIC5 BL25U%U4EBL091HDR L033L94,L66L71,L75040,04004010400069KWIC5 STATISTICS L010M04)L95L95,040040,04004010400070KWIC5 L039M43)M05M05,040040,04004010400071KWIC5 }000000 L018M61)M44M44,M55M56,M59M6210400072KWIC5 } L001M92,M93M93,M99N01,N0704010400073KWIC5 000}00EOF ON 0 L014N80,N69N70,N71N81,04004010400074KWIC5 0 0 L038O53)O16O16,O17O53,04004010400075KWIC5 MI11099CB33I31BO84S,393MB33I31C190I34 L037O90,O61O68,O73O77,O8404010400076KWIC5 BP00/B?12V?903931)393H094203P0?00!0HI37L039P29,O96P00,P08P12,P19P2610400077KWIC5 P0?00!0Q099MI37094MI390!0BQ300?0} L033P62,P37P41,P48P55,04004010400078KWIC5 VQ6939412/332/AG91190AG91B06CM61190 L035P97,P71P72,P76P77,P84P9110400079KWIC5 BQ10TMI34190VR393911VR763921BO84,392 L036Q33,Q03Q10,Q18Q26,Q3004010400080KWIC5 AI41I37CG85I37BQ61UBA49BP63,391BP63 L035Q68,Q41Q48,Q53Q57,Q61Q6510400081KWIC5 CB06B08BQ85SBP712S/332/MB11089 L030Q98,Q76Q81,Q85Q87,Q91Q9210400082KWIC5 AB13089?B13094YR18094MBJ32 22S2/332 L035R33,R06R13,R20R27,R29R3010400083KWIC5 /BP77C190I34B?12SBA492/332 L026R59,R35R39,R46R51,R55R5610400084KWIC5 /)391AG91190BQ18)392FJMI34B06 L029R88,R61R65,R72R76,R80R8210400085KWIC5 C190I34B?08SAG91190BS96H?89F1CM58G91 L036?24,R96?01,?08?12,?16?1810400086KWIC5 B?59UFLFLFLFJAI43190SG91M58 L027?51,?30?32,?34?36,?38?4510400087KWIC5 Y?57M58V?783931MI57235B?82)393B?90B000 L038?89,?59?67,?74?78,?82?8610400088KWIC5 HA24MB33220VA2539412/299AG91190B000 L035A24,?94A01,A09A10,A14A2110400089KWIC5 2S/299MB332202S2/299BA14 L024A48,A27A31,A38A40,A41A4510400090KWIC5 HA92MG85089BA93389DLI700 0EB440 0 L033A81,A53A60,A68A75,04004010400091KWIC5 YB440 0B000MB450 0BA89001 L025B06,A89A93,B00B04,B07B0710400092KWIC5 }KWIC5 ON L009G55,B09B12,B14B34,B47G4810400093KWIC5 ***CTL CD ERR2BB07T57132 L024G79,G59G69,G70G71,G74G7710400094KWIC5 040 198N31 L013G92,G83G86,G89G90,G91G9210400095KWIC5 DE12ILLEGAL EOF- STAT TP L024H16,G94G95,040040,04004010400096KWIC5 13ILLEGAL EOF- KW TPT11END KWIC5 L032H48,H37H40,040040,04004010400097KWIC5 L036H84,040040,040040,04004010400098KWIC5 04STAT. TAPE OUT OF SEQ B47 L027I11,I08I09,040040,04004010400099KWIC5 001 1310 L032I43,I32I35,I38I40,I4204010400100KWIC5 %CONTINUATION) - - L027I70,I58040,040040,04004010400101KWIC5 /446080 0102KWIC5 ,008015,019026,030,034041,045,053,0570571026 0001KWIC6 L068112,102106,113/101099/I99,027A070028)027B0010270B0261,001/001113I0 0002KWIC6 ,008015,022029,036040,047054,061068,072/061039 ,00100110400003KWIC6 } L001081,040040,040040,04004010400004KWIC6 000 L003089,040040,040040,04004010400005KWIC6 000 L003094,040040,040040,04004010400006KWIC6 000 L003099,040040,040040,04004010400007KWIC6 001059I9ISSW 1N0 L022122,104107,110120,12112210400008KWIC6 }004003 L007132,123123,124125,12713010400009KWIC6 002001152169179192} L019151,136139,142145,14815110400010KWIC6 A}BYTOASATAN L012163,153154,156158,16016210400011KWIC6 ONINOF}FORANDTHE L016179,166168,170171,17417710400012KWIC6 }SOMEFROMWITH L013192,181185,189040,04004010400013KWIC6 ZYXWVUTSRQPONMLKJIHGFEDCBA L026358)333333,359040,04004010400014KWIC6 0000000 L007369,365367,370040,04004010400015KWIC6 } L001434,435040,040040,04004010400016KWIC6 100000000000/080,001061,073075 L030T46,T18T21,T26T29,T33T4010400017KWIC6 ,076077U%U2RU%U6RF1/299MG172282 L031T77,T54T59,T64T66,T70T7710400018KWIC6 FLFLFLBT93DBU32H!76J97HK58J18 L029U06,T80T82,T84T89,T93U0010400019KWIC6 HO95P47)363365)367MG18116BU41BBU69 L034U40,U14U21,U25U32,U3704010400020KWIC6 MG19Y96MG19114MG19!69MG19B27BU78CBU99 L037U77,U48U55,U62U69,U7404010400021KWIC6 MG22O87MG23P20MG24115BV08EBV29MG19Q06 L037V14,U85U92,U99V04,V0804010400022KWIC6 MG23P28MG25117BV38FBV59MG19R21MG23P32 L037V51,V22V29,V34V38,V4504010400023KWIC6 MG26118BY02GC046G09BV80S1V641M015F35 L036V87,V59V64,V71V76,V80V8110400024KWIC6 MC003G29BW23S/299MG472382FL L027W14,V89V96,W01W05,W12W1310400025KWIC6 FLFL.V80BW31BX24HX19U%U6R L025W39,W17W19,W23W27,W31W3510400026KWIC6 BX16F241M%U6F37RBW98F251CF35F66BW98S L036W75,W48W56,W64W71,04004010400027KWIC6 /299MG642372FLFLFL.W35 L022W97,W80W87,W88W90,W92W9410400028KWIC6 M%U6X20RBX16KU%U6BB000 L022X19,X06X11,X16X20,04004010400029KWIC6 }BX32BX72HX57U%U2RM%U2D10WBX58L L031X53,X24X28,X32X36,X41X4910400030KWIC6 B000U%U2BU%U2EBX41/299M119230MF35250 L036X89,X58X63,X68X72,X76X8310400031KWIC6 M2FLFLFLBY31MG65119 L019Y08,X91X92,X94X96,X98Y0210400032KWIC6 /080,024056,0630671056BD91B?28YG66073 L037Y45,Y13Y20,Y27Y31,Y35Y3910400033KWIC6 AT17T25BZ63VY690752BZ12C075G67BZ12T L035Y80,Y53Y57,Y65Y69,Y7604010400034KWIC6 MT20T28BZ630750N!57BZ630751BA28M060432 L038Z18,Y88Y96,Z00Z08,Z1204010400035KWIC6 M074372M075370BC00BD91B?62YG66073 L033Z51,Z26Z33,Z37Z41,Z4504010400036KWIC6 AT17T25BY57H089000HT28000H094000H099000L039Z90,Z59Z63,Z70Z77,Z8404010400037KWIC6 B!030750B!69M0604Z7M0754T5M0744T7 L033!23,Z99!03,!10!17,04004010400038KWIC6 H0890W3BD91B?28YG66073AT17T25BZ91 L033!56,!31!35,!39!46,!5304010400039KWIC6 BZ630752BA28NK55BJ430751/299MT25F86 L035!91,!65!69,!73!81,!8504010400040KWIC6 MG022542P0012192FLFLFL L022J13,!99J00,J07J08,J10J1210400041KWIC6 .A97M071369D072433Y072433BO26M004362 L036J49,J18J25,J32J39,J4304010400042KWIC6 HJ77001YJ90J76H094000BJ900!1 H0940!1 L036J85,J57J64,J71J79,04004010400043KWIC6 BJ71M0!3364M0604Z7M0754T5M0744T7H0890W3L039K24,J90J97,K04K11,K1804010400044KWIC6 BD91BP20YG66073AT17T25BK670751BK830752 L038K62,K29K33,K40K47,K5504010400045KWIC6 B!81C3X4074BJ97UB!81H094001MG70125M L035K97,K67K74,K79K83,K90K9710400046KWIC6 MHL85123D0!0L27Y0!0L27BL723580BB L032L29,K99L06,L13L20,L28L2910400047KWIC6 BBBBBBB L007L36,L31L32,L33L34,L35L3610400048KWIC6 BBBBBBB L007L43,L38L39,L40L41,L42L4310400049KWIC6 BBBBBBB L007L50,L45L46,L47L48,L49L5010400050KWIC6 BBH0940!1BO170936BL06HG730!0M0!0000 L035L85,L52L53,L60L68,L72L7910400051KWIC6 D0!0M07Y0!0M07BM373580BBBB L026M11,L93M00,M08M09,M10M1110400052KWIC6 BBBBBBB L007M18,M13M14,M15M16,M17M1810400053KWIC6 BBBBBBB L007M25,M20M21,M22M23,M24M2510400054KWIC6 BBBBBBB L007M32,M27M28,M29M30,M31M3210400055KWIC6 BM48H0940!1BL86HG760!0SG73G76YG66G76 L036M68,M37M44,M48M55,M6204010400056KWIC6 H099000S103094YG66094MG79N03CG76000HN03L039N07,M76M83,M90M97,N0404010400057KWIC6 HN23BN36SBN79000}H0990?3BM97M1D1N49 L035N42,N12N17,N25N32,N3604010400058KWIC6 C0!0000HN49HN73BN67/BO06BN79000}BN43 L036N78,N50N54,N58N63,N67N7510400059KWIC6 CL85G82BO17S,L83A103L85)L83H0940!2BL06 L038O16,N86N91,N95O02,O06O1310400060KWIC6 M125369MMM0604Z7M0744T7M0754T5H0890W3 L037O53,O24O25,O26O33,O40O4710400061KWIC6 BD91BP20YG66073AT17T25BP040752BO92BQ06 L038O91,O58O62,O69O76,O84O8810400062KWIC6 BP400753B!81C3X4074BO26UB!81B?28BB55 L036P27,P00P04,P11P16,P20P2410400063KWIC6 BA28BA28B?62M060366BB55M060432M074372 L037P64,P32P36,P40P47,P51P5810400064KWIC6 M075370BC00BD91BP28YG66073AT17T25 L033P97,P72P76,P80P84,P9104010400065KWIC6 BQ220753NR21BQ380754BA28C372074BP51U L036Q33,Q06Q10,Q18Q22,Q2904010400066KWIC6 BA28M060432M074372M075370BC00BD91BP32 L037Q70,Q38Q45,Q52Q59,Q63Q6710400067KWIC6 YG66073AT17T25BR13B?990755BA28B?990754 L038R08,Q78Q85,Q89Q97,R0104010400068KWIC6 BA28BR370754NY57BR530755BA28C372074 L035R43,R13R21,R25R33,R3704010400069KWIC6 BQ38UBA28M060432M074372M075370BC00BD91 L038R81,R49R53,R60R67,R74R7810400070KWIC6 B?62YG66073AT17T25B?120755BY57C372074 L037?18,R86R93,?00?08,?1204010400071KWIC6 BR53UBA28/299MT25F86MG022542P001219 L035?53,?24?28,?32?39,?46?4710400072KWIC6 2FLFLFL.U%U2MU%U2R L018?71,?55?57,?59?61,?62?6710400073KWIC6 U%U6R/299MG912292FLFLFL L023?94,?77?81,?88?89,?91?9310400074KWIC6 .?95M060432M074372M075370BC00B?62/299 L037A31,?99A06,A13A20,A24A2810400075KWIC6 MT25F86MG022542P0012192FLFL L027A58,A39A46,A47A54,A55A5710400076KWIC6 FL.CT28T20BA97SU%U2BST17T28YT17T28 L034A92,A61A62,A69A74,A79A8610400077KWIC6 BA62BD91B?62YG66073AT17T25BZ630750NB43 L038B30,A97B01,B05B12,B19B2710400078KWIC6 BZ630751BA97BZ630752BA97HB99H094000 L035B65,B39B43,B51B55,B5904010400079KWIC6 M4R7432BC00H0940O3C089094BB66TB000HC39 L038C03,B73B77,B84B91,B96C0010400080KWIC6 MT17F68M%U2359WBC40LBC73KAT17T28B000 L036C39,C11C19,C24C29,C3604010400081KWIC6 U%U2BBC64F683AT17F68BC11U%U2EBC04U%U2M L038C77,C45C53,C60C64,C69C7310400082KWIC6 U%U2U/299MH332642FLFLFL L023D00,C83C87,C94C95,C97C9910400083KWIC6 .BX32BC361HDR BIBLIOGRAPL039D39,D02D06,D10040,04004010400084KWIC6 L039D78)D40D40,040040,04004010400085KWIC6 }HE38MT17H34M%U6001R L031E09)D79D79,D90D91,D95E0210400086KWIC6 BE39LBE85K,E36AH37E38)E36B000AT17H34 L036E45,E15E20,E24E31,E35E3910400087KWIC6 BE63H340U%U6BBE02/299MH532362FL L031E76,E54E59,E63E67,E74E7510400088KWIC6 FLFL.D95/299MH802472FL L022E98,E79E81,E85E89,E96E9710400089KWIC6 FLFL.BE35FBW31F24 BD95 L022F20,F01F03,F04F09,F17F2110400090KWIC6 L001001,F26040,040040,04004010400091KWIC6 L001F36)F36F36,F37F57,04004010400092KWIC6 }0CARD NUMBER 000000 OUT OF SEQUENCE L036G02,F68F69,040040,04004010400093KWIC6 /V80080KWIC6 ONDBB55NC L022G24,G10G18,G19G20,G23G2410400094KWIC6 EF***CONTROL CARD ERROR L023G47,G26G27,G30040,04004010400095KWIC6 INPUT LABEL ERRORG 5 L029G76,G65G66,G67G68,G71G7410400096KWIC6 138125END KWIC6 L015G91,G80G83,040040,04004010400097KWIC6 REMOVE TAPE 2, MOUNT BLANK REEL, CONTINL039H30,040040,040040,04004010400098KWIC6 UE. 004INPUT READ ERROR L023H53)H31H31,H34H35,H3804010400099KWIC6 MOUNT NXT INPUT OR SSW F ON L027H80,040040,040040,04004010400100KWIC6 N000000,040040,040040,040040BT290101KWIC6 ,015022)024056,029036,040047,0540611001,001008B001 ,001008B001 0102KWIC6 ,068072)063067/061039 ,00100110400103KWIC6 )363365)367,001061,073075,076077BD91 L036Y66,Y38Y42,Y49Y56,Y6304010400104KWIC6 B?62YJ28073AJ29T25C072J41BZ01SB!09 L034Z00,Y71Y78,Y85Y92,Y9704010400105KWIC6 B!200752B!43/299MT25F86MG022542P001219 L038Z38,Z09Z13,Z17Z24,Z31Z3210400106KWIC6 2FLFLFL.!93BD91B?62 L019Z57,Z40Z42,Z44Z46,Z50Z5410400107KWIC6 YJ28073AJ29T25C072J41BZ50SM072J41 L033Z90,Z65Z72,Z79Z84,04004010400108KWIC6 MT20T28MJ43J45BZ01MJ43J45BZ84C074J45 L036!26,Z98!05,!09!16,!2004010400109KWIC6 B!36TBZ13M074J45M071369D072433Y072433 L037!63,!32!36,!43!50,!5704010400110KWIC6 M060432M074372M075370BC00BY63CT28T20 L036!99,!71!78,!85!89,!9304010400111KWIC6 BZ50SU%U2BSJ29T28YJ28T28B!93 1 L030J29,J05J10,J17J24,J28J2910400112KWIC6 L016J45,J42J44,040040,04004010400113KWIC6 /V80080 0114KWIC6 TEST DECK NO. 1 010 FULLER OM JR GEORGIA INSTITUTE OF TECHNOLOGY, ATLANTA, GA. 166 -11 A THEORETICAL INVESTIGATION OF HOMOGENEOUS REACTIONS IN 166 12 TUBULAR REACTORS.# 166 -22 A I CH E MEETING, CHICAGO, 12/6/62, 2.05 P M, ABS. NO 166 166 -13 THIS PAPER CONSIDERS THE PROBLEM OF A CHEMICALLY REACTING 166 15 FLUID PASSING THROUGH A TUBULAR REACTOR IN THE STEADY STATE 166 25 WITH TURBULENT FLOW, HEAT EXCHANGE, AND HEAT GENERATION OR 166 35 ABSORPTION BY THE REACTION. RADIAL AND AXIAL CONCENTRATION 166 45 AND TEMPERATURE PROFILES ARE OBTAINED BY NUMERICAL SOLUTION 166 55 OF THE DIFFERENTIAL EQUATIONS AND BOUNDARY CONDITIONS. 166 -65 ENGEL AJ PENN. STATE UNIV., UNIVERSITY PARK, PENN. 167 11 HOUGEN OA UNIV. OF WISCONSIN, MADISON, WISC. 167 -21 MASS TRANSFER AND CONTACTOR EFFICIENCY IN STIRRED REACTORS.# 167 -12 A I CH E MEETING, CHICAGO, 12/6/62, 2.40 P M, ABS. NO 167 167 -13 A CORRELATION OF MASS- TRANSFER DATA HAS BEEN MADE FOR 167 15 THE HYDROLYSIS OF ISOAMYL ACETATE IN THE PRESENCE OF A LARGE 167 25 EXCESS OF WATER AND AN ACIDIC CATION- EXCHANGE- RESIN CAT-@ 167 35 ALYST IN A STIRRED REACTOR. THIS SIMPLE REACTION SYSTEM 167 45 MAY BE USED TO EVALUATE THE CONTACTOR EFFICIENCY OF ANY 167 55 STIRRED REACTOR. 167 -65 KUSNER RE REPUBLIC STEEL CORP., CLEVELAND, OHIO 168 11 BOBALEK EG CASE INSTITUTE OF TECHNOLOGY, CLEVELAND, OHIO 168 -21 THE EFFECTS OF AXIAL MIXING ON CATALYTIC REACTIONS IN A 168 12 PACKED BED.# 168 -22 A I CH E MEETING, CHICAGO, 12/6/62, 3.15 P M, ABS. NO 168 168 -13 EXPERIMENTAL DATA ON THE IRON CATALYZED REVERSE WATER- 168 15 GAS SHIFT REACTION INDICATED SIGNIFICANT AXIAL MIXING TAKING 168 25 PLACE WITHIN THE PACKED CATALYTIC BED. AN AXIAL DISPERSION 168 35 MODEL AND A CONTINUOUS MIXER MODEL, BOTH EMPLOYING THE AXIAL 168 45 PECLET NUMBER, FIT THE DATA AND WERE IN CLOSE AGREEMENT AT 168 55 HIGHER VELOCITIES. 168 -65 BOSWORTH RT WARD HC 169 11 GEORGIA INSTITUTE OF TECHNOLOGY, ATLANTA, GA. 169 -21 MASS TRANSFER IN THE ENTRANCE LENGTH OF A PIPE- LAMINAR 169 12 FLOW.# 169 -22 A I CH E MEETING, CHICAGO, 12/6/62, 3.50 P M, ABS. NO 169 169 -13 LOCAL MASS- TRANSFER RATES WERE OBTAINED BY MEASURING THE 169 15 THICKNESS DECREASE OF THE NAPHTHALENE COATING AS A FUNCTION 169 25 OF TIME AND POSITION. THEORETICAL RESULTS WERE CALCULATED 169 35 FROM THE CONTINUITY EQUATION USING VELOCITY PROFILES FOR THE 169 45 ENTRANCE LENGTH DERIVED BY LANGHAAR. THE THEORETICAL AND 169 55 EXPERIMENTAL AVERAGE RESULTS AGREED WITHIN 25 PERCENT PLUS 169 65 OR MINUS. 169 -75 CANTWELL KR KOBLE RA 170 11 PHILLIPS PETROLEUM CO., BARTLESVILLE, OKLA. 170 -21 A PROCESS SIMULATION FOR DEVELOPMENTAL STUDIES.# 170 -12 A I CH E MEETING, CHICAGO, 12/6/62, 4.25 P M, ABS. NO 170 170 -13 A COMPUTER PROGRAM HAS BEEN DEVELOPED FOR SIMULATION OF 170 15 A REALISTIC CHEMICAL REACTION PROCESS. BOTH RANDOM AND 170 25 SYSTEMIC NOISE ARE SUPERIMPOSED ON INPUT AND OUTPUT DATA. 170 35 THE PROGRAM IS USED FOR STUDIES OF EXPERIMENTAL METHODS, 170 45 FOR EVALUATION OF TECHNIQUES FOR SEEKING PREDICTIVE EQUA-@ 170 55 TIONS, AND AS A TEACHING AID. 170 -65 HOUGEN, JO MONSANTO CHEMICAL CO., ST. LOUIS, MO. 24 -11 EXPERIMENTAL STUDIES OF PROCESS DYNAMICS.# 24 -12 A I CH E MEETING, CHICAGO, 12/4/62, 9.05 A M, ABS. NO 24 62 24 -13 THE DYNAMIC BEHAVIOR OF MANY COMPLEX PROCESSES AS DETER-@ 24 15 MINED EXPERIMENTALLY EXHIBIT A SIMPLICITY GENERALLY NOT 24 25 PREDICTED FROM THEORETICAL CONSIDERATIONS. EXAMPLES TAKEN 24 35 FROM A NUMBER OF STUDIES ON LABORATORY AND PLANT SCALE 24 45 PROCESSES ARE PRESENTED ALONG WITH THE SIMPLIFIED LINEAR 24 55 APPROXIMATION. THESE INCLUDE FLUID FLOW, HEAT EXCHANGE AND 24 65 MIXING PROCESSES COMMONLY ENCOUNTERED IN INDUSTRIAL 24 75 PRACTICE. 24 -85 WATJEN JW E I DUPONT DENEMOURS & CO. INC., WILMINGTON, DEL. 25 11 HUBBARD RM UNIV. OF VIRGINIA, CHARLOTTESVILLE, VA. 25 -21 THE DYNAMIC BEHAVIOR OF A PULSED PLATE EXTRACTION COLUMN.# 25 -12 A I CH E MEETING, CHICAGO, 12/4/62, 9.45 A M, ABS. NO 25 62 25 -13 THE PULSE METHOD WAS USED TO DETERMINE THE DYNAMICS OF 25 15 LIQUID EXTRACTION FOR THE METHYL ISOBUTYL KETONE ACETIC 25 25 ACID-WATER SYSTEM IN A PULSED 3/4-INCH PERFORATED PLATE 25 35 COLUMN. THE RESULTS IN THE MIXER-SETTLER FLOW REGION OF LOW 25 45 COLUMN PULSE FREQUENTLY WERE IN GOOD AGREEMENT WITH A LINEAR 25 55 MODEL THEORY INCLUDING A DEAD TIME TERM. 25 -65 STERMOLE FJ LARSON MA 26 11 IOWA STATE UNIV., AMES, IOWA 26 -21 DYNAMIC RESPONSE OF HEAT EXCHANGERS TO FLOW RATE CHANGES.# 26 -12 A I CH E MEETING, CHICAGO, 12/4/62, 10.25 A M, ABS. NO 26 62 26 -13 PARTIAL AND ORDINARY DIFFERENTIAL EQUATION MODELS WERE 26 15 DEVELOPED FOR THE DYNAMIC RESPONSE OF A DOUBLE PIPE STEAM-@ 26 25 WATER HEAT EXCHANGER. COMPARISON OF EXPERIMENTAL AND 26 35 THEORETICAL RESULTS SHOWED THAT THE PARTIAL DIFFERENTIAL 26 45 EQUATION MODEL PREDICTED RESONANCE AND WAS IN GOOD AGREEMENT 26 55 WITH EXPERIMENTAL DATA OVER THE FULL RANGE CHECKED. THE 26 65 ORDINARY DIFFERENTIAL EQUATION GAVE A GOOD REPRESENTATION OF 26 75 THE SYSTEM FOR TRANSIENT UPSETS AND FOR PERIODIC UPSETS THAT 26 85 OCCUR BELOW THE RESONANCE FREQUENCY. 26 -95 WHITBY KT PETERSON CM 27 11 UNIV. OF MINN., MINNEAPOLIS, MINN. 27 21 LUNDGREN DA GENERAL MILLS, INC., MINNEAPOLIS, MINN. 27 -31 GENERATION AND MEASUREMENT OF HOMOGENEOUS FLUORESCENT 27 12 AEROSOLS.# 27 -22 A I CH E MEETING, CHICAGO, 12/4/62, 9.05 A M, ABS. NO 27 62 27 -13 THIS PAPER DESCRIBES THE ESSENTIAL FEATURES OF AN 27 15 ATOMIZER IMPACTOR AND SPINNING DISK AEROSOL GENERATORS. IT 27 25 ALSO PRESENTS CONSIDERABLE DATA ON THE NATURAL CHARGE 27 35 EXISTING ON GENERATOR AEROSOLS AND ON THE TECHNIQUES AND 27 45 PROCESSES OF NEUTRALIZATION OF THESE IONS BY MIXING WITH 27 55 GENERATED IONS. INFORMATION ON THE SAMPLING AND PARTICLE 27 65 SIZE MEASUREMENT WHICH ARE FORMIDABLE BELOW 0.1 OF A MICRON. 27 -75 YODER RE SILVERMAN L 28 11 HARVARD UNIVERSITY, BOSTON, MASS. 28 -21 DYNAMIC AGGLOMERATION OF AEROSOLS.# 28 -12 A I CH E MEETING, CHICAGO, 12/4/62, 9.35 A M, ABS. NO 28 62 28 -13 A BASIC STUDY OF THE RATE OF AGGLOMERATION OF INERT AND 28 15 RADIOACTIVE AEROSOLS IN MOVING AIRSTREAMS. THIS INVESTIGA-@ 28 25 TION RELATES TO THE BEHAVIOR OF SUBMICRON AEROSOLS /0.1MU/ 28 35 MOVING IN TURBULENT FLOW DUCTS. THE INFLUENCE OF TURBU-@ 28 45 LENCE, PRESENCE OF AN IONIZING FIELD, AND IONIZED AEROSOL 28 55 ARE PRESENTED IN DETAIL. 28 -65 STEIGERWALD B CASE INST. OF TECHNOLOGY, CLEVELAND, OHIO 29 -11 AIR IONS IN URBAN ATMOSPHERE.# 29 -12 A I CH E MEETING, CHICAGO, 12/4/62, 10.05 A M, ABS. NO 29 62 29 -13 AIR IONS ARE A CONSTITUENT OF ALL NATURAL ATMOSPHERES. 29 15 SIMULTANEOUS MEASUREMENTS MADE FOR AIR IONS AND A WIDE 29 25 VARIETY OF ATMOSPHERIC CONTAMINANTS AND PROPERTIES INDICATE 29 35 THAT AUTOMOBILE EXHAUSTS ARE PRIMARILY RESPONSIBLE FOR THE 29 45 DIFFERENCES OBSERVED IN AIR ION CHARACTERISTICS BETWEEN 29 55 URBAN AND RURAL LOCATIONS. GROSS AIR CLEANLINESS MEASURED 29 65 BY A STAIN TEST, CORRELATED ONLY WEAKLY WITH AIR ION 29 75 CHARACTERISTICS AND SULFUR DIOXIDE, TEMPERATURE AND RELATIVE 29 85 HUMIDITY HAD NO CORRELATION WITHIN THE LIMITS OF THE TESTS. 29 -95 GOETZ A KALLAI T 30 11 CALIFORNIA INST. OF TECHNOLOGY, PASADENA, CALIF. 30 -21 SYNTHETIC PRODUCTION AND EVALUATION OF PHOTOCHEMICAL 30 12 AEROSOLS.# 30 -22 A I CH E MEETING, CHICAGO, 12/4/62, 10.35 A M, ABS. NO 30 62 30 -13 AEROSOLS RESULTING FROM INTERACTION OF NITROGEN DIOXIDE 30 15 AND A SERIES OF OLEFINS UPON INTENSE ISOTHERMAL IRRADIATION 30 25 IN A CHANNELED AIR FLOW AND NUCLEATING ON DEFINED DYE PAR-@ 30 35 TICLES ARE ANALYZED FOR SIZE AND MASS DISTRIBUTION. IN-@ 30 45 DEPENDENT DETERMINATION OF THE NUCLEAR AND TOTAL MASS OF 30 55 EACH PARTICLE YIELDS QUANTITY OF CONDENSED REACTION 30 65 PRODUCTS. 30 -75 TEST DECK NO. 2 010 STANISLOUSTROSKOVICH VK 011 JONES JB UNITED CHEMICAL CORP., CHICAGO, ILL. 021 ALSO, UNITED CHEMICAL CO., LIMITTED, TORONTO, CANADA 031 DOAKS J 041 DOE J 051 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 SOURCE CARD NO. 1 59 013 SOURCE CARD NO. 2 023 DESCRIPTORS 014 OOSPORA, 024 ASTRINGES, 034 MYCOLOGICAL.# 044 ABSTRACT 015 ABSTRACT CARD NO. 1 025 ABSTRACT CARD NO. 2 035 ABSTRACT CARD NO. 3 045 TYPE 6 CARD 016 TYPE 7 CARD 017 TYPE 8 CARD 018 TYPE 9 CARD 019 TYPE A CARD 01A TYPE Z CARD 01Z TEST DECK NO. 3 010 STANISLOUSTROSKOVICH VK 011 JONES JB UNITED CHEMICAL CORP., CHICAGO, ILL. 021 ALSO, UNITED CHEMICAL CO., LIMITTED, TORONTO, CANADA 031 DOAKS J 041 DOE J 051 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 SOURCE CARD NO. 1 59 013 SOURCE CARD NO. 2 023 DESCRIPTORS 014 OOSPORA, 024 ASTRINGES, 034 MYCOLOGICAL.# 044 TEST DECK NO. 4 010 STANISLOUSTROSKOVICH VK 011 JONES JB UNITED CHEMICAL CORP., CHICAGO, ILL. 021 ALSO, UNITED CHEMICAL CO., LIMITTED, TORONTO, CANADA 031 DOAKS J 041 DOE J 051 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 SOURCE CARD NO. 1 59 013 SOURCE CARD NO. 2 023 TEST DECK NO. 5 010 STANISLOUSTROSKOVICH VK 011 JONES JB UNITED CHEMICAL CORP., CHICAGO, ILL. 021 ALSO, UNITED CHEMICAL CO., LIMITTED, TORONTO, CANADA 031 DOAKS J 041 DOE J 051 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 TEST DECK NO. 6 010 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 TEXT CARD 1 016 TEXT CARD 2 026 TEXT CARD 3 036 TEST DECK NO. 7 123456789AAA002 A THEORETICAL INVESTIGATION OF HOMOGENEOUS REACTIONS IN 123456789BBB 12 TUBULAR REACTORS.# 123456789BBB-22 MASS TRANSFER AND CONTACTOR EFFICIENCY IN STIRRED REACTORS.#123456789CCC-12 THE EFFECTS OF AXIAL MIXING ON CATALYTIC REACTIONS IN A 123456789DDD 12 PACKED BED.# 123456789DDD-22 TEST DECK NO. 8 010 300VOLT RELAY 300V RELAY 01200001 DESIGN MANUAL CE3-3,CE3-4,CE3-5,CE3-6 300V RELAY 02200002 L SHEET-MANUF-INFO,9575L174,9575L192-THRU-L2OO 9575L2O4 300V RELAY 03200003 9575L2O5-L2O6-L2O7-L2O8-L2O9 300V RELAY 04200004 ML SHEETS,TECH CL96A64 ML3613 ML3621 ML3622 300V RELAY 05200005 ASSEMBLY DRAW D1O-2986 D1O-2987 D1O-2988 D1O-2989 D1O-2990300V RELAY 06200006 ASSEMBLY DRAW D1O-2991 300V RELAY 07200007 DIMENSION DRAWING D1O-2789 D1O-2790 300V RELAY 08200008 MOUNTING INFO ML-SHEET-DIM-DWG 300V RELAY 09200009 CATALOG SHEETS 9575-13 9575-14 9575-15 300V RELAY 10200010 CATALOG PRICE SHEET 955OA-3 300V RELAY 11200011 ORDERING CATALOG SHEET 158 300V RELAY 12200012 PANEL BLDR HANDBOOK PAGE 4-4,4-5 300V RELAY 13200013 HANDBOOK 9575HB-4 300V RELAY 14200014 OD SHEET 955OF-2 300V RELAY 01400016 DEVELOPMENT FOLDER DV-2O-6819-1O DV-2O-6819-11 300V RELAY 02400017 ENGINEERING SECTION JTK VHS 300V RELAY 03400018 DEVELOPMENT SECTION HK 300V RELAY 04400019 SALES SECTION HWT HSM 300V RELAY 05400020 ADVER PUBLIC LO-79,CAT-BUL-2O2B1,CAT-BUL--2O2B2 300V RELAY 06400021 TEST REPORTS 4-91O,DV-FOLDER 300V RELAY 07400022 ENCL 9575-L183,A39-19O81,A84-11552 300V RELAY 08400023 DV GP-2O 300V RELAY 09400024 SALES GROUP-1 MAJOR GROUP 8151 300V RELAY 10400025 BUL-NO INDEX FILE 321O 300V RELAY 11400026 SALES GROUP BREAKDOWN 62C-1 300V RELAY 12400027 C-H PERS DIRECT OR PG6 300V RELAY 13400028 1HDR KWICINPUT TEST DECK NO. 9 STANISLOUSTROSKOVICH VK 011 JONES JB UNITED CHEMICAL CORP., CHICAGO, ILL. 021 ALSO, UNITED CHEMICAL CO., LIMITTED, TORONTO, CANADA 031 DOAKS J 041 DOE J 051 MICROBIOLOGICAL STUDIES ON A NEW SPECIES OF OOSPORA, OOSPORA123456789ABC 12 ASTRINGENES. IDENTIFICATION AND MYCOLOGICAL PROPERTIES.# 22 SOURCE CARD NO. 1 59 013 SOURCE CARD NO. 2 023 DESCRIPTORS 014 OOSPORA, 024 ASTRINGES, 034 MYCOLOGICAL.# 044 ABSTRACT 015 ABSTRACT CARD NO. 1 025 ABSTRACT CARD NO. 2 035 ABSTRACT CARD NO. 3 045 TYPE 6 CARD 016 TYPE 7 CARD 017 TYPE 8 CARD 018 TYPE 9 CARD 019 TYPE A CARD 01A TYPE Z CARD 01Z 0650 MAN SCHEDULING 065010.3.006012 1620 LESS , TAPE LEAST-COST ESTIMATING AND SCHEDULING , 162010.3.018012 SCHEDULING PORTION /TAPE/ 162010.3.018022 1620 LESS/LEAST-COST ESTIMATING AND SCHEDULING , SCHEDULING 162010.3.003012 PORTION /CARD/ 162010.3.003022 1620 LESSII /LEAST-COST ESTIMATING AND SCHEDULING/ 162010.3.004012 SCHEDULING ONLY /TAPE/ 162010.3.004022 CRITICAL PATH SCHEDULING /CARD/ 162010.3.005202 MISS LESS MANAGEMENT INFORMATION SCHEDULING /CARD/ 162010.3.011012 MISS LESS MANAGEMENT INFORMATION SCHEDULING /TAPE/ 162010.3.012012 1401 LESS /LEAST-COST ESTIMATING AND SCHEDULING/8K, 12K,&16K140110.3.002012 GENERAL INPUT/OUTPUT SCHEDULING PROGRAM 0650 UT-105 012 CLASS SCHEDULING PROGRAM FOR THE 7074 AND 1401 707012.9.004012 STUDENT SCHEDULING TECHNIQUE USING DEFINED INCREMENTS 162010.3.017012 SCHEDULING WITH ARBITRARY PROFIT FUNCTIONS 07091086IBAF012 LEAST COST ESTIMATING & SCHEDULING-SCHEDULING PHASE ONLY 065010.3.009012 0650 LINEAR DECISION RULE FOR PRODUCTION AND EMPLOYMENT 065010.3.001012 SCHEDULING 065010.3.001022 1401 LESS // LEAST-COST ESTIMATING AND SCHEDULING 140110.3.001012 /4K-SCHEDULING PHASE ONLY/ /REVISED/ 140110.3.001022 ***0050 ***1025 ***20201 ***20501 ***1 *** KWICINPUT ***040 ***108 ***0060 11040 ***0060 11108 ***0060 1 108 2301075010145 011 3015001011075001012003 4501033010123 011 1018015018 3401077010125 011 1036039036 23 45 010075001001P111 4030150001011 00750010012003 45 23 010033001001P111 4010180015018 34 52 010077001001P111 4010360039036 34 52 010539001001P111 4020230008020 0003003 34 52 010539001001P111 4020320008020 0028012 1HDR STATISTICS AEROSOLS 1 B 1 C 1 D 1 DESCRIPTORS 1 J 1 N 1 T 1 W 1 Z 1 0101 JOB 1401 KWIC- CARD TO TAPE AND REFNO ASSIGN PASS KWIC1 0102 CTL 431 KWIC1 0103 TITLE EQU 60 KWIC1 0104 REF EQU 71 KWIC1 0105 REF12 EQU 72 KWIC1 0106 SEQ EQU 74 KWIC1 0107 CDTYP EQU 75 KWIC1 0108 DEPT EQU 76 KWIC1 0109 SETNO EQU 80 KWIC1 0110 NAME EQU 4 KWIC1 0111 AUTHOR EQU TITLE KWIC1 0112 SUBJ EQU AUTHOR KWIC1 0113 ABST EQU SUBJ KWIC1 0114 YEAR EQU ABST KWIC1 0115 SOURCE EQU YEAR KWIC1 0116 ORG 81 KWIC1 0117 DCW @}@ KWIC1 0118 ORG 87 KWIC1 0119 X1 DCW 000 KWIC1 0120 ORG 92 KWIC1 0121 X2 DCW 000 KWIC1 0122 ORG 97 KWIC1 0123 X3 DCW 000 KWIC1 0124 ORG 333 KWIC1 0125 STDCH DC @ZYXWVUTSRQPONMLKJIHGFEDCBA@ 0126 WRAREA DA 1X4 1ST 4 LETTERS OF AUTHORS NAME KWIC1 0127 DCW 00 2 INITIALS KWIC1 0128 DCW 00 YEAR KWIC1 0129 REFNO DCW 000 LAST CHAR OF 1ST 3 WORDS OF TITLE KWIC1 0130 DA 1X64 KWIC1 0131 DCW @}@ KWIC1 0132 SAVE DA 1X882 SAVE CARDS WHILE BUILDING REFNO KWIC1 0133 C11 DCW 1 KWIC1 0134 C30 DCW 000 KWIC1 0135 CDCNT DCW 00000 CARD COUNT KWIC1 0136 RECCT DCW 000 NO. RECORDS IN PRESEN CARD SET KWIC1 0137 START CS 80 0138 SW 1,61 0139 SW 73,75 KWIC1 0140 SW 76,77 KWIC1 0141 RWD 2 KWIC1 0142 CC 1 KWIC1 0143 CS 299 KWIC1 0144 MCW @KWIC1 ON@,228 KWIC1 0145 W KWIC1 0146 CC L KWIC1 0147 CC L KWIC1 0148 CC L KWIC1 01490 B WRLBL WRITE LABEL KWIC1 01491 B RN0 KWIC1 01492WRLBL SBR WXIT&3 KWIC1 01493 RWD 2 KWIC1 01494W1 WT 2,LABEL KWIC1 01495 BER W2 KWIC1 01496WXIT B 0 KWIC1 01497W2 BSP 2 KWIC1 01498 SKP 2 KWIC1 01499 B W1 KWIC1 0154 * KWIC1 0155 *THIS ROUTINE PERFORMS INITIAL SETUP KWIC1 0156 * KWIC1 01570RN0 BSS RN1,D BR. IF REFNO IN INPUT KWIC1 0158 B RN2 KWIC1 0159 RN1 SBR RN7A&3,RN9 BRANCH AROUND REFNO ASSIGNMENT KWIC1 0160 SBR RN9A&3,RN7C KWIC1 0161 SBR RN15&3,RN18 KWIC1 0162 CW WRAREA&4,WRAREA&6 KWIC1 0163 CW WRAREA&8 KWIC1 0164 MCW @D@,SIGN-3 KWIC1 0165 RN2 BSS RN2M,B BR. IF NO AUTHOR CARDS IN INPUT KWIC1 0166 B RN3 KWIC1 0167 * KWIC1 0168 *NO AUTHOR CARDS IN INPUT KWIC1 0169 * KWIC1 0170 RN2M MCW @B@,RN6A1 KWIC1 0171 MCW @B@,SIGN-5 KWIC1 0172 MCW @B@,RN7 KWIC1 0173 MCW @B@,RN37L KWIC1 0174 RN3 BSS RN3M,C BR. IF NO SOURCE CARDS IN INPUT KWIC1 0175 B RN4 KWIC1 0176 * KWIC1 0177 *NO SOURCE CARDS IN INPUT KWIC1 0178 * KWIC1 0179 RN3M MCW @N@,RN16C KWIC1 0180 MCW @C@,SIGN-4 KWIC1 0181 MCW @N@,RN16J KWIC1 0182 MCW &RN40,RN14A&3 KWIC1 0183 RN4 BSS RN4M,E BR. IF NO SUBJECT CARDS IN INPUT KWIC1 0184 B RN5 KWIC1 0185 * KWIC1 0186 *NO SUBJECT CARDS IN INPUT KWIC1 0187 * KWIC1 0188 RN4M MCW @N@,RN16D KWIC1 0189 MCW @E@,SIGN-2 KWIC1 0190 MCW @N@,RN16K KWIC1 0191 MCW @B@,RN20 KWIC1 0192 RN5 BSS RN5M,F BR. IF NO ABSTRACT CARDS IN INPUT KWIC1 0193 B RN5R KWIC1 0194 * KWIC1 0195 *NO ABSTRACT CARDS IN INPUT KWIC1 0196 * KWIC1 0197 RN5M MCW @N@,RN16E KWIC1 0198 MCW @F@,SIGN-1 KWIC1 0199 MCW @N@,RN16L KWIC1 0200 MCW @B@,RN25 KWIC1 0201 RN5R BSS RN5T,G KWIC1 0202 RN5S CS 299 KWIC1 0203 MCW SIGN,230 KWIC1 0204 W KWIC1 0205 CC L KWIC1 0206 CC L KWIC1 0207 CC L KWIC1 0208 BSS OVLY,G 0209 RN5S4 C 46,CEND 0210 BE RN6 0211 R RN5S4 0212 OVLY OVLAY 0213 RN5T MCW @G@,SIGN KWIC1 0214 B RN5S KWIC1 0215 RN6 R NXT CARD KWIC1 0216 SS 1 KWIC1 0217 MZ @ @,73 KWIC1 0218 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 0219 BLC RN32 SEQ. ERROR KWIC1 0220 B RN6C KWIC1 0221 * KWIC1 02220*WRITE CARD TYPE 6 AND HIGHER. KWIC1 0223 * KWIC1 02235RN6A BWZ *&5,CDTYP,2 KWIC1 02236 B RN6A2 KWIC1 02237 C CDTYP,@5@ KWIC1 02238 BL RN6A2 KWIC1 02242 MCW C30,RECCT KWIC1 02243 BCE RN6C,CDTYP,0 KWIC1 0225 RN6A1 NOP RN6F BR. IN NO AUTHOR CARDS KWIC1 0226 BCE RN6C,CDTYP,1 BR.IF AUTHOR CARD KWIC1 02265 B RN35 KWIC1 0227 RN6A2 MCW ABST,WRAREA&73 KWIC1 0228 MCW SEQ,WRAREA&13 KWIC1 0229 MCW CDTYP,WRAREA&11 KWIC1 0230 SRF KWIC1 0231 B WRITE KWIC1 0232 BCE RN6B,SW1,1 KWIC1 0233 R NXT CARD KWIC1 0234 SS 1 KWIC1 0235 MZ @ @,73 KWIC1 0236 RN6B A C11,CDCNT KWIC1 0237 BLC RN34A KWIC1 0238 B RN6A KWIC1 0239 * KWIC1 0240 *THIS ROUTINE PERFORMS AUTHOR SEQUENCING KWIC1 0241 * KWIC1 0242 RN6C SBR X1,0 KWIC1 0243 SBR RECCT,0 KWIC1 0244 SBR X2,0 KWIC1 0245 SBR X3,0 KWIC1 0246 RN6D BCE RN6E,CDTYP,0 BR. IF HEADER CARD KWIC1 0247 B RN7 KWIC1 0248 RN6E MCW AUTHOR,SAVE&62&X1 SAVE HEADER CARD KWIC1 0249 MCW CDTYP,SAVE&X1 KWIC1 0250 MCW SEQ,SAVE&2&X1 KWIC1 0251 SBR X1,63&X1 KWIC1 0252 R KWIC1 0253 SS 1 KWIC1 0254 MZ @ @,73 KWIC1 0255 A C11,CDCNT KWIC1 0256 BLC RN32 KWIC1 0257 B RN6D KWIC1 0258 RN6F BCE RN6C,CDTYP,2 BR. IF TITLE CARD KWIC1 02590 B RN35 KWIC1 0260 RN7 NOP RN9A BR. IF NO AUTHOR CARDS KWIC1 0261 RN7A BCE RN8,CDTYP,1 BR. IF AUTHOR CARD KWIC1 0262 RN7B CS 299 KWIC1 0263 MCW CDCNT,CMNT1-16 KWIC1 0264 MCW CMNT1,254 KWIC1 0265 W KWIC1 0266 MCM 1,219 KWIC1 0267 W KWIC1 0268 CC L KWIC1 0269 CC L KWIC1 0270 CC L KWIC1 0271 H RN37A KWIC1 0272 RN7C MCW REF,REFNO KWIC1 0273 MN REF12,REFNO&64 KWIC1 0274 MZ REF12,REFNO&64 KWIC1 0275 B RN13 KWIC1 0276 RN8 MCW NAME,REFNO-7 SAVE 1ST 4 CHARS OF NAME KWIC1 0277 SBR RN8A&6,1 SAVE AUTHOR INITIALS KWIC1 0278 MZ RN8B,RN8A&5 KWIC1 0279 SBR X2,0 KWIC1 0280 RN8A BCE RN8B,1&X2, KWIC1 0281 SBR X2,1&X2 KWIC1 0282 B RN8A KWIC1 0283 RN8B MCW 3&X2,REFNO-5 KWIC1 0284 RN9 SRF KWIC1 0285 MCW AUTHOR,SAVE&62&X1 SAVE AUTHORS KWIC1 0286 MCW CDTYP,SAVE&X1 SAVE CARD TYPE KWIC1 0287 MCW SEQ,SAVE&2&X1 SAVE SEQUENCE NO. KWIC1 0288 SBR X1,63&X1 KWIC1 0289 R NXT CARD KWIC1 0290 SS 1 KWIC1 0291 MZ @ @,73 KWIC1 0292 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 02930 BLC RN9C KWIC1 0294 BCE RN9B,CDTYP,1 BRANCH IF AUTHOR CARD KWIC1 0295 RN9A BCE RN10,CDTYP,2 BRANCH IF TITLE CARD KWIC1 0296 B RN7B KWIC1 0297 RN9B C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC1 0298 BH RN9 OK KWIC1 0299 B RN7B ERROR KWIC1 02995RN9C BCE RN9A,CDTYP,2 KWIC1 02996 B RN32 KWIC1 0300 * KWIC1 0301 *THIS ROUTINE PERFORMS TITLE SEQUENCING KWIC1 0302 * KWIC1 0303 RN10 SBR X2,1 0304 MCW BLNK3#3,T3B KWIC1 0305 CHAIN2 KWIC1 0306 SBR RN11B5&6,T3A 0307 RN11A MN TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0308 MZ TITLE-60&X2,RN11A3&7 0309 RN11A3 BCE RN11B,STDCH,0 0310 CHAIN25 0311 SBR X2,1&X2 0312 BCE RN12R,X2-1,6 0313 B RN11A 0314 RN11B SBR HOKW#3,TITLE-60&X2 0315 RN11B5 MCW TITLE-60&X2,0 0316 RN11B6 MN TITLE-60&X2,RN11B7&7 0317 MZ TITLE-60&X2,RN11B7&7 0318 RN11B7 BCE RN11B8,STDCH,0 0319 CHAIN25 0320 B RN11C 0321 RN11B8 SBR X2,1&X2 0322 B RN11B6 0323 RN11C SBR LGKW#3,TITLE-60&X2 COMPARE KW WITH SW 0324 S HOKW,LGKW KWIC1 0325 MZ @ @,LGKW KWIC1 0326 SBR X3,0 KWIC1 0327 S C31,X2 0328 MZ @ @,X2 0329 MCW &NOCH,RN11D&6 KWIC1 0330 RN11D C LGKW,0 KWIC1 0331 SBR RN11D&6 KWIC1 0332 SBR RN11E&6 KWIC1 0333 BE RN12 LGKW EQU LGSW KWIC1 0334 RN11E BCE RN12J,0,} LGKW NOT EQU LGSW KWIC1 0335 SBR X3,3&X3 KWIC1 0336 B RN11D KWIC1 0337 RN12 MCW SWADR&X3,RN12D&6 KWIC1 0338 RN12D C TITLE-60&X2,0 0339 SBR RN12D&6 KWIC1 0340 SBR RN12G&6 KWIC1 0341 BU RN12G KWIC1 0342 B RN12M KW EQU SW KWIC1 0343 RN12G BCE RN12J,0,} KW NOT EQU SW KWIC1 0344 B RN12D KWIC1 0345 RN12J C RN11B5&6,&T3B 0346 BE RN12R KWIC1 0347 MA C31,RN11B5&6 0348 RN12M SBR X2,2&X2 0349 B RN11A KWIC1 0350 RN12R MCW T3B,REFNO KWIC1 0351 CHAIN2 KWIC1 03520RN13 BLC RN16M KWIC1 03525 SRF KWIC1 0353 MCW TITLE,SAVE&62&X1 SAVE TITLE KWIC1 0354 MCW SEQ,SAVE&2&X1 KWIC1 0355 MCW CDTYP,SAVE&X1 KWIC1 0356 SBR X1,63&X1 KWIC1 0357 R NXT CARD KWIC1 0358 SS 1 KWIC1 0359 MZ @ @,73 KWIC1 0360 A C11,CDCNT ADD 1 TO CARD COUNT KWIC1 0361 RN14 BLC RN16B KWIC1 0362 BCE RN16A,CDTYP,2 BRANCH IF TITLE CARD KWIC1 0363 RN14A B RN15 RN40 IF NO SOURCE CARDS KWIC1 0364 B RN20 KWIC1 0365 RN15 BCE RN17,CDTYP,3 BRANCH IF SOURCE CARD KWIC1 0366 B RN7B SEQ. ERROR KWIC1 0367 RN16A C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC1 0368 BH RN13 OK KWIC1 0369 B RN7B ERROR KWIC1 0370 * KWIC1 0371 *LAST CARD ROUTINE KWIC1 0372 * KWIC1 0373 RN16B BCE RN16J,CDTYP,2 KWIC1 0374 RN16C B RN16F KWIC1 0375 RN16D B RN16G KWIC1 0376 RN16E B RN16H KWIC1 0377 RN16E1 BCE RN32,CDTYP,0 KWIC1 0378 BCE RN32,CDTYP,1 KWIC1 0379 B RN16M KWIC1 0380 RN16F BCE RN16K,CDTYP,3 KWIC1 0381 B RN32 KWIC1 0382 RN16G BCE RN16L,CDTYP,4 KWIC1 0383 B RN32 KWIC1 0384 RN16H BCE RN16M,CDTYP,5 KWIC1 0385 B RN32 KWIC1 0386 RN16J B RN32 KWIC1 0387 RN16K B RN32 KWIC1 0388 RN16L B RN32 KWIC1 0389 RN16M B RN40 KWIC1 0390 B RN34A KWIC1 0391 * KWIC1 0392 *THIS ROUTINE PERFORMS SOURCE SEQUENCING KWIC1 0393 * KWIC1 0394 RN17 MCW YEAR,REFNO-3 SAVE YEAR FOR REFNO KWIC1 0395 RN18 B RN40 KWIC1 0396 RN18A MCW SOURCE,WRAREA&73 KWIC1 0397 MCW SEQ,WRAREA&13 KWIC1 0398 MCW CDTYP,WRAREA&11 KWIC1 0399 SRF KWIC1 0400 B WRITE WRITE SOURCE CARD KWIC1 0401 BCE RN18C,SW1,1 BRANCH IF CARD RED KWIC1 0402 R NXT CARD KWIC1 0403 SS 1 KWIC1 0404 MZ @ @,73 KWIC1 0405 RN18C A C11,CDCNT KWIC1 0406 RN19 BLC RN20M SEQ. ERROR KWIC1 0407 BCE RN20A,CDTYP,3 BRANCH IF SOURCE CARD KWIC1 0408 RN20 NOP RN25 BR. IF NO SUBJECT CARDS KWIC1 0409 RN20B BCE RN21,CDTYP,4 BRANCH IF SUBJECT CARD KWIC1 0410 B RN35 KWIC1 0411 RN20A C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0412 BH RN18A OK KWIC1 0413 B RN35 ERROR KWIC1 0414 RN20M MCW @N@,RN16M KWIC1 0415 BCE RN16K,CDTYP,3 BR. IF SOURCE CARD KWIC1 0416 B RN16D KWIC1 0417 * KWIC1 0418 *THIS ROUTINE PERFORMS SUBJECT SEQUENCING KWIC1 0419 * KWIC1 0420 RN21 MCW SUBJ,WRAREA&73 KWIC1 0421 MCW SEQ,WRAREA&13 KWIC1 0422 MCW CDTYP,WRAREA&11 KWIC1 0423 SRF KWIC1 0424 B WRITE WRITE SUBJECT CARD KWIC1 0425 BCE RN21A,SW1,1 BRANCH IF CARD RED KWIC1 0426 R NXT CARD KWIC1 0427 SS 1 KWIC1 0428 MZ @ @,73 KWIC1 0429 RN21A A C11,CDCNT KWIC1 0430 RN22 BLC RN25M KWIC1 0431 B RN24A KWIC1 0432 RN23 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0433 B RN34 SEQ. ERROR KWIC1 0434 RN24 BCE RN34A,CDTYP,4 BRANCH IF SUBJECT.# KWIC1 0435 B RN34 SEQ. ERROR KWIC1 0436 RN24A BCE RN25B,CDTYP,4 BRANCH IF SUBJECT CARD KWIC1 0437 RN25 NOP RN6A BR. IF NO ABSTRACT CARDS KWIC1 0438 RN25A BCE RN26,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0439 B RN35 KWIC1 0440 RN25B C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0441 BH RN21 OK KWIC1 0442 B RN35 ERROR KWIC1 0443 RN25M MCW @N@,RN16M KWIC1 0444 BCE RN16L,CDTYP,4 BR. IF SUBJECT CARD KWIC1 0445 B RN16E KWIC1 0446 * KWIC1 0447 *THIS ROUTINE PERFORMS ABSTRACT SEQUENCING KWIC1 0448 * KWIC1 0449 RN26 MCW ABST,WRAREA&73 KWIC1 0450 MCW SEQ,WRAREA&13 KWIC1 0451 MCW CDTYP,WRAREA&11 KWIC1 0452 SRF KWIC1 0453 B WRITE WRITE ABSTRACT CARD KWIC1 0454 BCE RN26A,SW1,1 BRANCH IF CARD RED KWIC1 0455 R NXT CARD KWIC1 0456 SS 1 KWIC1 0457 MZ @ @,73 KWIC1 0458 RN26A A C11,CDCNT KWIC1 0459 BLC RN28 KWIC1 0460 BCE RN27A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0461 B RN6A KWIC1 0462 RN27A C WRAREA&13,SEQ CHECK SEQUENCE KWIC1 0463 BH RN26 OK KWIC1 0464 B RN35 ERROR KWIC1 0465 RN28 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC1 0466 MCW @N@,RN16M KWIC1 0467 B RN16E1 KWIC1 0468 RN32 CS 299 KWIC1 0469 MCW CDCNT,CMNT1-16 KWIC1 0470 MCW CMNT1,254 KWIC1 0471 W KWIC1 0472 MCM 1,219 KWIC1 0473 W KWIC1 0474 CC L KWIC1 0475 CC L KWIC1 0476 CC L KWIC1 0477 H KWIC1 0478 * KWIC1 0479 *THE END KWIC1 0480 * KWIC1 0481 RN33 WTM 2 KWIC1 0482 RWD 2 KWIC1 0483 CS 299 KWIC1 0484 MCW @END KWIC1@,229 KWIC1 0485 W KWIC1 0486 CC L KWIC1 0487 CC L KWIC1 0488 CC L KWIC1 0489 H *-3 KWIC1 0490 RN34 EQU RN35 0491 RN34A MCW TITLE,WRAREA&73 KWIC1 0492 MCW SEQ,WRAREA&13 KWIC1 0493 MCW CDTYP,WRAREA&11 KWIC1 0494 B WRITE KWIC1 0495 B RN33 KWIC1 0496 RN35 CS 299 KWIC1 0497 MCW CDCNT,CMNT1-16 KWIC1 0498 MCW CMNT1,254 KWIC1 0499 W KWIC1 0500 MCM 1,219 KWIC1 0501 W KWIC1 0502 CC L KWIC1 0503 CC L KWIC1 0504 CC L KWIC1 0505 H KWIC1 0506 RN36 C RECCT,C30 PURGE BAD CARDS FROM TAPE KWIC1 0507 BE RN37 BRANCH IF ALL RECORDS PURGED KWIC1 0508 BSP 2 KWIC1 0509 S C11,RECCT KWIC1 0510 MZ C11,RECCT KWIC1 0511 B RN36 KWIC1 0512 RN37 BLC RN33 GO TO END KWIC1 0513 RN37A R LOOK FOR NXT AUTHOR CARD KWIC1 0514 SS 1 KWIC1 0515 MZ @ @,73 KWIC1 0516 A C11,CDCNT KWIC1 0517 BCE RN6C,CDTYP,0 BR. IF HEADER KWIC1 0518 RN37L NOP RN37M BR. IF NO AUTHOR CARDS KWIC1 0519 BCE RN6C,CDTYP,1 BR. IF AUTHOR KWIC1 0520 B RN37N KWIC1 0521 RN37M BCE RN6C,CDTYP,2 BR. IF TITLE KWIC1 0522 RN37N BLC RN33 KWIC1 0523 B RN37A KWIC1 0524 * KWIC1 0525 *WRITE SAVED CARDS KWIC1 0526 RN40 SBR XIT1&3 KWIC1 0527 SBR X2,0 KWIC1 0528 MCW C1N,WR2 DISABLE CARD READ AFTER TAPE ERRO KWIC1 0529 MCW C1N,WR1B KWIC1 0530 MCW C1N,WR4 DISABLE CARD READ AFTER TP ERROR KWIC1 0531 RN41 MCW SAVE&62&X2,WRAREA&73 MOVE CARD TO WRITE AREA KWIC1 0532 B WRITE WRITE TYPE KWIC1 0533 SBR X2,63&X2 KWIC1 0534 C X1,X2 KWIC1 0535 BL RN41 KWIC1 0536 MCW C1R,WR2 ENABLE CARD READ AFTER TAPE ERROR KWIC1 0537 MCW @M@,WR1B KWIC1 0538 MCW C1R,WR4 ENSABLE CARD READ AFTER TP ERROR KWIC1 0539 XIT1 B 0 KWIC1 0540 * KWIC1 0541 *THIS ROUTINE WRITES THE OUTPUT TAPE KWIC1 0542 * KWIC1 0543 WRITE SBR WRXIT&3 SAVE RETURN ADDRESS KWIC1 0544 MCW C30,SW1 CLEAR CARD RED SWITHH KWIC1 0545 WR1B MCW @1@,WR2 KWIC1 0546 WR1A MCW C11,WRT1 KWIC1 0547 WR1 WT 2,WRAREA KWIC1 0548 BER WR2 BRANCH ON TAPE ERROR KWIC1 0549 BEF WR4 EOF KWIC1 0550 A C11,RECCT KWIC1 0551 WRXIT B 0 KWIC1 0552 WR2 R KWIC1 0553 MCW @N@,WR2 KWIC1 0554 SS 1 KWIC1 0555 MZ @ @,73 KWIC1 0556 MCW C11,SW1 SET CARD RED SWITCH KWIC1 0557 BSP 2 KWIC1 0558 BCE WR3,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC1 0559 A C11,WRT1 ADD 1 TO BAD COUNT KWIC1 0560 B WR1 KWIC1 0561 WR3 SKP 2 SKIP AND BLANK BAD RECORD KWIC1 0562 B WR1A KWIC1 0563 WR4 R READ CARD AFTER TAPE ERROR KWIC1 0564 SS 1 KWIC1 0565 MZ @ @,73 KWIC1 0566 MCW C11,SW1 SET CARD RED SWITCH KWIC1 0567 WTM 2 KWIC1 0568 RWU 2 KWIC1 0569 CS 299 KWIC1 0570 MCW @REMOVE TAPE 2, MOUNT BLANK REEL, CONTINUE.@,264 KWIC1 0571 W KWIC1 0572 CC L KWIC1 0573 CC L KWIC1 0574 CC L KWIC1 0575 H KWIC1 05760 B WRLBL WRITE LABEL KWIC1 0579 B WRXIT KWIC1 0580 LABEL DCW @1@ KWIC1 0581 DC @HDR@ KWIC1 0582 DC #16 KWIC1 0583 DC @BIBLIOGRAP@ KWIC1 0584 DC #50 KWIC1 0585 DCW @}@ KWIC1 0586 WRT1 DCW 0 KWIC1 0587 CMNT1 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC1 0588 C3I9I DCW @I9I@ KWIC1 0589 SIGN DCW @SSW @ KWIC1 05900C1R DCW @1@ KWIC1 0591 C1N DCW @N@ KWIC1 0592 SW1 DCW 0 KWIC1 0593 C31 DCW 001 KWIC1 0594 C359 DCW 059 KWIC1 0595 T3A DA 1X3 KWIC1 0596 1,1 KWIC1 0597 2,2 KWIC1 0598 T3B 3,3 KWIC1 0599 DCW @}@ KWIC1 0600 DCW 004 KWIC1 0601 DCW 003 KWIC1 0602 DCW 002 KWIC1 0603 NOCH DCW 001 KWIC1 0604 SWADR DCW &CHAR1 KWIC1 0605 DCW &CHAR2 KWIC1 0606 DCW &CHAR3 KWIC1 0607 DCW &CHAR4 KWIC1 0608 DCW @}@ KWIC1 0609 CHAR1 DCW @A@ KWIC1 0610 DCW @}@ KWIC1 0611 DCW @BY@ KWIC1 0612 DCW @TO@ KWIC1 0613 DCW @AS@ KWIC1 0614 DCW @AT@ KWIC1 0615 DCW @AN@ KWIC1 0616 DCW @ON@ KWIC1 0617 DCW @IN@ KWIC1 0618 CHAR2 DCW @OF@ KWIC1 0619 DCW @}@ KWIC1 0620 DCW @FOR@ KWIC1 0621 DCW @AND@ KWIC1 0622 CHAR3 DCW @THE@ KWIC1 0623 DCW @}@ KWIC1 0624 DCW @SOME@ KWIC1 0625 DCW @FROM@ KWIC1 0626 CHAR4 DCW @WITH@ KWIC1 0627 CS TTLA,80 0628 CEND EQU * 0629 LTORG 0630 EX START 0631 *THIS ROUTINE PROCESSES TITLE CARDS ONLY 0632 ORG RN6 0633 TTLA CW WRAREA&4,WRAREA&6 KWIC1 0634 CW WRAREA&8 KWIC1 0635 SW 73,75 0636 SW 76,77 0637 SW 1,61 0638 TTL BLC RN33 KWIC1 0639 R KWIC1 0640 SS 1 KWIC1 0641 MZ @ @,73 KWIC1 0642 A @1@,CDCNT KWIC1 0643 C REF12,CREF12#12 KWIC1 0644 BE TTL4 KWIC1 0645 B TTL8 KWIC1 0646 TTL4 BCE TTL9,CDTYP,2 KWIC1 06465 B TTL10 KWIC1 0647 TTL5 CS 299 KWIC1 0648 MCW CDCNT,CMNT1-16 KWIC1 0649 MCW CMNT1,254 KWIC1 0650 W KWIC1 0651 MCM 1,219 KWIC1 0652 W KWIC1 0653 CC L KWIC1 0654 CC L KWIC1 0655 CC L KWIC1 0656 H TTL11 KWIC1 0657 TTL6 BLC RN33 KWIC1 0658 R KWIC1 0659 SS 1 KWIC1 0660 MZ @ @,73 KWIC1 0661 A @1@,CDCNT KWIC1 0662 C REF12,CREF12 KWIC1 0663 BE TTL6 KWIC1 0664 TTL7 MCW REF12,CREF12 KWIC1 06645 MCW C30,RECCT KWIC1 06646 MCW @ @,SEQ1 KWIC1 0665 B TTL4 KWIC1 0666 TTL8 MCW @ @,SEQ1#2 KWIC1 0667 B TTL7 KWIC1 0668 TTL9 C SEQ,SEQ1 KWIC1 06690 BL TTL9E KWIC1 0670 B TTL5 KWIC1 06705TTL9E MCW SEQ,SEQ1 KWIC1 0671 TTL10 MCW REF,REFNO KWIC1 0672 MN REF12,REFNO&64 KWIC1 0673 MZ REF12,REFNO&64 KWIC1 0674 MCW TITLE,WRAREA&73 KWIC1 0675 MCW SEQ,WRAREA&13 KWIC1 0676 MCW CDTYP,WRAREA&11 KWIC1 0677 SRF KWIC1 0678 B WRITE KWIC1 0680 B TTL KWIC1 0681 TTL11 C RECCT,C30 KWIC1 0682 BE TTL6 KWIC1 0683 BSP 2 KWIC1 0684 S @1@,RECCT KWIC1 0685 MZ @ @,RECCT KWIC1 0686 B TTL11 KWIC1 0687 END TTLA 00000 JOB 1401 KWIC- BIBLIOGRAPHY PRINT AND AUTHOR TAPE GEN KWIC2 CTL 431 00020 ORG 87 KWIC2 00030X1 DCW 000 KWIC2 00040 ORG 333 KWIC2 00050PRNAM EQU 206 KWIC2 00060DASH1 EQU 207 KWIC2 00070PRDAT EQU 209 KWIC2 00080DASH2 EQU 210 KWIC2 00090PRIDI EQU 213 KWIC2 00100PRFLD EQU 275 KWIC2 00110INPUT DA 1X76 KWIC2 00120NAME 1,6 KWIC2 00130DATE 7,8 KWIC2 00140IDIOT 9,11 KWIC2 00150FIELD 15,74 KWIC2 00160REF12 75,75 KWIC2 00170CDTYP 12 KWIC2 00180REF1 14 KWIC2 00190START RWD 2 KWIC2 00200 CC 1 KWIC2 00210 CS 299 KWIC2 00220 MCW @KWIC2 ON@,228 KWIC2 00230 W KWIC2 00240 CC L KWIC2 00250 CC L KWIC2 00260 CC L KWIC2 00270* KWIC2 00280*READ CONTROL CARD KWIC2 00290BP1B R KWIC2 00300 C 3,@***@ KWIC2 00310 BE BP1C BR. IF CONTROL CARD KWIC2 00320BP1B1 CS 299 KWIC2 00330 MCW @CONTROL CARD ERROR@,238 KWIC2 00340 W KWIC2 00350 CC L KWIC2 00360 CC L KWIC2 00370 CC L KWIC2 00380 H BP1B KWIC2 00390BP1C MN 4,CPAGE KWIC2 00400 BCE BP1G,4, KWIC2 00410 BCE BP1G,4,0 KWIC2 00420 BCE BP1G,4,1 KWIC2 00430 BCE BP1G,4,2 KWIC2 00440 B BP1B1 KWIC2 00450BP1G MCW 7,CLINE KWIC2 00460 BCE BP1M,8, BR. IF PRINT IN POS 1 KWIC2 00470 MCW @N@,BP4B KWIC2 00480BP1M BSS BP1R,B BR. NO AUTH TAPE KWIC2 00490BP1N BSS BP1S,D BR. REFNO IN INPUT KWIC2 00500BP1P CS 299 KWIC2 00510 MCW SIGN,226 KWIC2 00520 SW 1 KWIC2 00530 MCW 8,240 KWIC2 00540 W KWIC2 00550 B BP1E CHECK INPUT LABEL KWIC2 00560 CC 1 KWIC2 00570 B BP1E5 KWIC2 00580BP1R MCW @B@,BP10 KWIC2 00590 MCW @B@,AUTH KWIC2 00600 MCW @B@,SIGN-1 KWIC2 00610 B BP1N KWIC2 00620BP1S MCW @B@,BP3A KWIC2 00630 MCW @B@,AUTH1 KWIC2 00640 MCW @D@,SIGN KWIC2 00650 B BP1P KWIC2 00660*CHECK INPUT TAPE LABEL KWIC2 00670* KWIC2 00680BP1E SBR BP1E2&3 KWIC2 00690BP1E1 SBR CTR#3,0 KWIC2 00700BP1E1A RT 2,INLBL KWIC2 00710 BER BP1E3 KWIC2 00720 C INLBL&29,@BIBLIOGRAP@ KWIC2 00730BP1E2 BE 0 KWIC2 00740 CS 180 KWIC2 00750 MCW @08INPUT TAPE LABEL ERROR@,124 KWIC2 00760 P KWIC2 00770 CS 180 KWIC2 00780 P KWIC2 00790 SS 4 KWIC2 00800 H BP1E1 KWIC2 00810BP1E3 A C11,CTR KWIC2 00820 BSP 2 KWIC2 00830 BCE BP1E4,CTR,0 KWIC2 00840 B BP1E1A KWIC2 00850BP1E4 CS 180 KWIC2 00860 MCW @09ERROR READING TAPE LABEL@,126 KWIC2 00870 P KWIC2 00880 CS 180 KWIC2 00890 P KWIC2 00900 SS 4 KWIC2 00910 H BP1E1 KWIC2 00920BP1E5 BSS BP1E7,B BR. NO AUTH CARDS KWIC2 00930 RWD 4 KWIC2 00940 B TL9 WRITE AUTH LABEL KWIC2 00950BP1E7 BCE BP2,4, KWIC2 00960 BCE BP2,4,0 KWIC2 00970 CC L KWIC2 00980 CC L KWIC2 00990 CC L KWIC2 01000 CC J KWIC2 01010 A C210,LINCT KWIC2 01020BP2 MCW C20,ERRCT KWIC2 01030BP2A RT 2,INPUT KWIC2 01040 BER BP7 KWIC2 01050 BEF BP9 KWIC2 01060 B BP11 KWIC2 01070BP7 A C11,ERRCT KWIC2 01080 BCE BP8,ERRCT-1,1 BRANCH IF 10 BAD READS KWIC2 01090 BSP 2 KWIC2 01100 B BP2A KWIC2 01110BP8 MCM INPUT,101 KWIC2 01120 P KWIC2 01130 CS 180 KWIC2 01140 MCW CMNT1,145 KWIC2 01150 P KWIC2 01160 CS 180 KWIC2 01170 P KWIC2 01180 SS 4 KWIC2 01190 H KWIC2 01200 CS 299 KWIC2 01210 W KWIC2 01220 B BP4D KWIC2 01230BP9 RWD 2 KWIC2 01240 MCW CMNT2,145 KWIC2 01250 P KWIC2 01260 CS 180 KWIC2 01270 P KWIC2 01280 SS 4 KWIC2 01290 H KWIC2 01300 BSS BP10,F BR. IF NO MORE INPUT KWIC2 01310 B BP10R KWIC2 01320BP10 NOP BP10M BR. IF NO AUTHOR TAPE KWIC2 01330 WTM 4 KWIC2 01340 RWD 4 KWIC2 01350BP10M CS 299 KWIC2 01360 CC 1 KWIC2 01370 MCW @END KWIC2@,229 KWIC2 01380 W KWIC2 01390 CC L KWIC2 01400 CC L KWIC2 01410 CC L KWIC2 01420 H *-3 KWIC2 01430BP10R B BP1E CK. LABEL KWIC2 01440 B BP2 KWIC2 01450BP11 CW INPUT&6,INPUT&8 KWIC2 01460 C IDIOT,REF2 KWIC2 01470 BE BP3D BR. IF DUPL. REFNO KWIC2 01480BP3E MCW IDIOT,REF2 KWIC2 01490 MCW REF12,CREF12#1 KWIC2 01500 MCW INPUT&13,SEQ KWIC2 01510 SW INPUT&6,INPUT&8 KWIC2 01520BP3A NOP BP3C KWIC2 01530 MZ DASH,DASH1 KWIC2 01540 MZ DASH,DASH2 KWIC2 01550 MCW NAME,PRNAM KWIC2 01560 MCW DATE,PRDAT KWIC2 01570 MCW IDIOT,PRIDI KWIC2 01580 B BP4A KWIC2 01590BP3D C REF12,CREF12 KWIC2 01600 BE BP11A BR. IF DUPL. REFNO KWIC2 01610 B BP3E KWIC2 01620BP11A C INPUT&13,SEQ#3 KWIC2 01630 BE BP11A1 BR. IF CDTYP & SEQ EQU PREVIOUS KWIC2 01640 MCW INPUT&13,SEQ KWIC2 01650 B BP4 KWIC2 01660BP11A1 CW INPUT&14 KWIC2 01670 MCW FIELD,174 KWIC2 01680 P KWIC2 01690 CS 180 KWIC2 01695 SS 8 KWIC2 01700 P KWIC2 01720 SW INPUT&14 KWIC2 01730 B BP2 KWIC2 01740BP11B BCE BP3,CDTYP,1 BRANCH IF AUTHOR CARD KWIC2 01750 BCE BP3,CDTYP,0 BR. IF HEADER CARD KWIC2 01760 MCW @N@,BP3 KWIC2 01770 B BP4 KWIC2 01780BP3 NOP BP4 KWIC2 01790BP3C CW INPUT&6,INPUT&8 KWIC2 01800 MCW REF12,PRIDI KWIC2 01810 MCW IDIOT,PRIDI-1 KWIC2 01820 B BP4A KWIC2 01830BP4 CS 225 KWIC2 01840BP4A MCW FIELD,PRFLD KWIC2 01850BP4B B BP4C KWIC2 01860 SW 201 KWIC2 01870 MCW 275,295 KWIC2 01880 CS 220 KWIC2 01890BP4C W KWIC2 01900* KWIC2 01910*THIS ROUTINE PROCESSES AUTHOR CARDS KWIC2 01920* KWIC2 01930AUTH NOP BP4D BR. NO AUTH TAPE KWIC2 01940 BCE AUTH1,CDTYP,1 BR. IF AURHOR CARD KWIC2 01950 B BP4D KWIC2 01960AUTH1 NOP AUTH2 KWIC2 01970 MCW INPUT&13,OUTPUT&13 KWIC2 01980 CHAIN2 KWIC2 01990 B AU1 KWIC2 02000AUTH2 MCW INPUT&13,OUTPUT&13 KWIC2 02010AU1 MCW REF12,OUTPUT&32 KWIC2 02020 C INPUT&17,BLK1&3 KWIC2 02030 BE BP4D KWIC2 02040 C INPUT&33,BLK1&1 KWIC2 02050 BE AU1D BR. IF STANDARD AUTHOR CARD KWIC2 02060 SBR X1,0 KWIC2 02070AU1A C INPUT&14&X1,BLK1&1 KWIC2 02080 BE AU1B BR. IF FOUND TWO BLANKS AFTER INI KWIC2 02090 C X1,@017@ KWIC2 02100 BE AU1B BR. IF MORE THAN 18 CHAR NAME KWIC2 02110 SBR X1,1&X1 KWIC2 02120 B AU1A KWIC2 02130AU1B MCW INPUT&14&X1,OUTPUT&14&X1 MOVE AURT TO WRITE AREA KWIC2 02140 B WRAUT KWIC2 02150 MCW BLK18,OUTPUT&31 KWIC2 02160 B BP4D KWIC2 02170AU1D SBR AU1C&6,INPUT&73 KWIC2 02180AU1C BCE AU2,0, SEARCH FOR NONBLANK CHAR KWIC2 02190 SBR TEMP KWIC2 02200 B AU3 FOUND NONBLANK CHAR KWIC2 02210AU2 SW AU1C&6-2 KWIC2 02220 S @1@,AU1C&6 KWIC2 02230 MZ @ @,AU1C&6 KWIC2 02240 CW AU1C&6-2 KWIC2 02250 B AU1C KWIC2 02260AU3 C CCAU3,TEMP KWIC2 02270 BH AU4 3 AUTHORS ON THIS CARD KWIC2 02280 C CCAU2,TEMP KWIC2 02290 BH AU5 2 AUTHORS ON THIS CARD KWIC2 02300 B AU6 1 AUTHOR ON THIS CARD KWIC2 02310AU4 MCW INPUT&71,BEGOUT&17 KWIC2 02320 B WRAUT KWIC2 02330 MCW BLK18,OUTPUT&31 KWIC2 02340AU5 MCW INPUT&51,BEGOUT&17 KWIC2 02350 B WRAUT KWIC2 02360 MCW BLK18,OUTPUT&31 KWIC2 02370AU6 MCW INPUT&31,BEGOUT&17 KWIC2 02380 B WRAUT WRITE AUTHOR TAPE KWIC2 02390 MCW BLK18,OUTPUT&31 KWIC2 02400BP4D A C11,LINCT KWIC2 02410 C CLINE,LINCT KWIC2 02420 BL BP2 KWIC2 02430 CC 1 KWIC2 02440 SBR LINCT,0 KWIC2 02450BP5 NOP BP2 KWIC2 02460 MCW @B@,BP5 KWIC2 02470 BCE BP6,CPAGE,2 KWIC2 02480 B BP2 KWIC2 02490BP6 CC L KWIC2 02500 CC L KWIC2 02510 CC L KWIC2 02520 CC J KWIC2 02530 A C210,LINCT KWIC2 02540 B BP2 KWIC2 02550* KWIC2 02560*THIS ROUTINE WRITES THE AUTHOR AND KEY WORD TAPES KWIC2 02570* KWIC2 02580WRAUT SBR WRX1&3 SAVE RETURN ADDRESS AND SET KWIC2 02590WR1A MCW C11,WRT1 KWIC2 02600WR2 WT 4,OUTPUT KWIC2 02610 BER WR6A TAPE ERROR KWIC2 02620 BEF WR7A END OF REEL KWIC2 02630WRX1 B 0 RETURN KWIC2 02640WR6A BSP 4 KWIC2 02650 BCE WR8,WRT1,3 BRANCH IF THIRD BAD WRITE KWIC2 02660 A C11,WRT1 ADD TO BAD COUNTER KWIC2 02670 B WR2 GO TO TRY WRITE AGAIN KWIC2 02680WR8 SKP 4 KWIC2 02690 B WR1A GO TRY TO WRITE AGAIN KWIC2 02700WR7A WTM 4 KWIC2 02710WR5 RWU 4 KWIC2 02720 CS 180 KWIC2 02730 MCW @05MOUNT BLANK TAPE ON 4. START.@,131 KWIC2 02740 P KWIC2 02750 CS 180 KWIC2 02760 P KWIC2 02770 SS 4 KWIC2 02780 H KWIC2 02790 B TL9 WRITE AUTHOR TAPE LABEL KWIC2 02800 B WRX1 KWIC2 02810* KWIC2 02820*WRITE AUTHOR LABEL KWIC2 02830* KWIC2 02840TL9 SBR TL11&3 AUTHOR TAPE LABEL KWIC2 02850 MCW @AUTHORTAPE@,WRLBL&29 KWIC2 02855 RWD 4 KWIC2 02860TL10 WT 4,WRLBL KWIC2 02870 BER TL12 KWIC2 02880TL11 B 0 KWIC2 02890TL12 BSP 4 KWIC2 02900 SKP 4 KWIC2 02910 B TL10 KWIC2 02920WRLBL DCW @1@ KWIC2 02930 DC @HDR@ KWIC2 02940 DA 1X76,G KWIC2 02950CMNT1 DCW @06ERROR READING INPUT.BLANK LINE IF CONTINUE.@ KWIC2 02960CMNT2 DCW @07MOUNT NXT REEL OR SSW F ON IF NO MORE INPUT@ KWIC2 02970DASH DCW @-@ KWIC2 02980C20 DCW 00 KWIC2 02990LINCT DCW 000 KWIC2 03000CPAGE DCW 000 KWIC2 03010CLINE DCW 000 KWIC2 03020INLBL DA 1X30,G KWIC2 03030WRT1 DCW 1 KWIC2 03040C11 DCW 1 KWIC2 03050ERRCT DCW 00 KWIC2 03060C210 DCW 10 KWIC2 03070REF2 DCW #11 KWIC2 03080C3I9I DCW @I9I@ KWIC2 03090TEMP DCW 000 KWIC2 03100BLK1 DA 1X18 KWIC2 03110BLK18 18 KWIC2 03120OUTPUT DA 1X33,G KWIC2 03130BEGOUT 15,15 KWIC2 03140CCAU1 DCW INPUT&13 KWIC2 03150CCAU2 DCW INPUT&33 KWIC2 03160CCAU3 DCW INPUT&53 KWIC2 03170SIGN DCW @SSW @ KWIC2 03180 END START KWIC2 00000 JOB 1401 KWIC- AUTHOR PRINT PASS KWIC3 00010 CTL 431 KWIC3 00020* KWIC3 00030*THIS ROUTINE PRINTS THE BIBL/ABSTRACT TAPE KWIC3 00040* KWIC3 00050 ORG 87 KWIC3 00060X1 DCW 000 KWIC3 00070 ORG 92 KWIC3 00080X2 DCW 000 KWIC3 00090 ORG 97 KWIC3 00100X3 DCW 079 KWIC3 00110 ORG 201 KWIC3 00120 DA 1X1 KWIC3 00130 ORG 500 KWIC3 00140INPUT DA 1X34 KWIC3 00150NAME 1,6 KWIC3 00160DATE 7,8 KWIC3 00170IDIOT 9,11 KWIC3 00180REF12 33,33 KWIC3 00190* KWIC3 00200*THIS ROUTINE PRINTS THE AUTHOR TAPE KWIC3 00210* KWIC3 00220START RWD 4 KWIC3 00230 CC 1 KWIC3 00240 CS 299 KWIC3 00250 MCW @KWIC3 ON@,228 KWIC3 00260 W KWIC3 00270 CC L KWIC3 00280 CC L KWIC3 00290 CC L KWIC3 00300AU R KWIC3 00310 C 3,@***@ KWIC3 00320 BE AUB BR. IF CONTROL CARD KWIC3 00330AUA CS 299 KWIC3 00340 MCW @CONTROL CARD ERROR@,238 KWIC3 00350 W KWIC3 00360 CC L KWIC3 00370 CC L KWIC3 00380 CC L KWIC3 00390 H AU KWIC3 00400AUB MN 4,CPAGE KWIC3 00410 MN 4,AUB1&7 KWIC3 00420AUB1 BCE AUC,PG,0 KWIC3 00430 CHAIN6 KWIC3 00440 B AUA KWIC3 00450AUC MCW 7,CLINE KWIC3 00460 BCE AUC5,8, BR) IF PRINT IN POS 1 KWIC3 00470 MCW @N@,AU9 KWIC3 00480AUC5 BSS AUC9,D PRINT SENSE SWITCHES AND CTL CRD KWIC3 00490AUC7 CS 299 KWIC3 00500 MCW SIGN,225 KWIC3 00510 SW 1 KWIC3 00520 MCW 8,240 KWIC3 00530 W KWIC3 00540 CC L KWIC3 00550 CC L KWIC3 00560 CC L KWIC3 00570 B AUD CHECK INPUT LABEL KWIC3 00580 B AUTH KWIC3 00590AUC9 MCW @D@,SIGN KWIC3 00600 MCW @B@,AU6A KWIC3 00610 MCW @B@,AU11B KWIC3 00620 B AUC7 KWIC3 00630*THIS ROUTINE CHECKS INPUT LABEL KWIC3 00640AUD SBR AUG&3 KWIC3 00650AUE MCW C10,CTR KWIC3 00660AUF RT 4,LBLIN KWIC3 00670 BER AUH KWIC3 00680 C LBLIN&29,@AUTHORTAPE@ KWIC3 00690AUG BE 0 KWIC3 00700 CS 180 KWIC3 00710 MCW @08INPUT TAPE LABEL ERROR@,124 KWIC3 00720 P KWIC3 00730 CS 180 KWIC3 00740 P KWIC3 00750 SS 4 KWIC3 00760 H AUE KWIC3 00770AUH A C11,CTR KWIC3 00780 BSP 4 KWIC3 00790 BCE AUJ,CTR,0 KWIC3 00800 B AUF KWIC3 00810AUJ CS 180 KWIC3 00820 MCW @09ERROR READING TAPE LABEL@,126 KWIC3 00830 P KWIC3 00840 CS 180 KWIC3 00850 P KWIC3 00860 SS 4 KWIC3 00870 H AUE KWIC3 00880AUTH SBR LINCT,1 KWIC3 00890 SBR PGCNT,1 KWIC3 00900 CC 1 KWIC3 00910 SW INPUT&14 KWIC3 00920 CS 299 KWIC3 00930AU1 B RDAUT READ AUTHOR TAPE KWIC3 00940 B AU2 ERROR KWIC3 00950 B AU1A E OF KWIC3 00960 B AU3 KWIC3 00970AU1A RWD 4 KWIC3 00980 CS 180 KWIC3 00990 MCW @15MOUNT NXT AUTHOR TAPE OR SSW F ON IF NONE@,143 KWIC3 01000 P KWIC3 01010 CS 180 KWIC3 01020 P KWIC3 01030 SS 4 KWIC3 01040 H KWIC3 01050 BSS AU1C,F KWIC3 01060 B AUD CHECK INPUT TAPE LABEL KWIC3 01070 B AU1 KWIC3 01080AU1C CS 299 KWIC3 01090 CC 1 KWIC3 01100 MCW @END KWIC3@,229 KWIC3 01110 W KWIC3 01120 CC L KWIC3 01130 CC L KWIC3 01140 CC L KWIC3 01150 H *-3 KWIC3 01160AU2 CS 180 KWIC3 01170 MCW @16CONTINUE WILL INSERT BLANK LINE FOR BAD REC.@,146 KWIC3 01180 P KWIC3 01190 CS 180 KWIC3 01200 P KWIC3 01210 SS 4 KWIC3 01220 H KWIC3 01230 CS 299 KWIC3 01240 B AU8 KWIC3 01250AU3 MCW &INPUT&31,AU4&6 KWIC3 01260AU4 BCE AU5,0, LOOK FOR END OF AUTHOR NAME KWIC3 01270 SBR ENDAU SAVE END ADDRESS-1 KWIC3 01280 B AU6 KWIC3 01290AU5 SW AU4&6-2 KWIC3 01300 S @1@,AU4&6 KWIC3 01310 MZ @ @,AU4&6 KWIC3 01320 CW AU4&6-2 KWIC3 01330 B AU4 KWIC3 01340AU6 C INPUT&31,PREVAU IS AUTHOR SAME AS PREVIOUS KWIC3 01350 BE AU6A BRANCH IF YES KWIC3 01360 MCW INPUT&31,PREVAU SAVE NEW AUTHOR NAME KWIC3 01370 MCW INPUT&31,218 MOVE NAME TO PRINT AREA KWIC3 01380 C &INPUT&26,ENDAU IS NAME GRTR THAN 14 CHARS KWIC3 01390 BH AU7 BRANCH IF YES KWIC3 01400AU6A NOP AU6B BR. IF REFNO IN INPUT KWIC3 01410 MZ DASH,222 KWIC3 01420 MZ DASH,225 KWIC3 01430 MCW NAME,221 KWIC3 01440 MCW DATE,224 KWIC3 01450 MCW IDIOT,228 KWIC3 01460 B AU8 KWIC3 01470AU6B MCW NAME,221 KWIC3 01480 MCW DATE,223 KWIC3 01490 MCW IDIOT,226 KWIC3 01500 MCW REF12,227 KWIC3 01510 B AU8 KWIC3 01520AU7 MCW C11,SW4 SINGLE ENTRY SWITCH KWIC3 01530AU8 C CPAGE,PGCNT DOES PAGE COUNT EQU MAX KWIC3 01540 BH AU9 BRANCH IF YES KWIC3 01550 C LINCT,C31 DOES LINE COUNT # 1 ? KWIC3 01560 BE AU8A BRANCH IF YES KWIC3 01570 B AU9 KWIC3 01580AU8A CC L SKIP 10 SPACES KWIC3 01590 CC L KWIC3 01600 CC L KWIC3 01610 CC J KWIC3 01620 MCW C311,LINCT SET LINE COUNT TO 11 KWIC3 01630AU9 B AU9M KWIC3 01640 SW 201 KWIC3 01650 MCW 228,248 KWIC3 01660 CS 220 KWIC3 01670AU9M W KWIC3 01680 CS 299 KWIC3 01690 C LINCT,CLINE DOES LINE COUNT EQU MAX KWIC3 01700 BE AU10 BRANCH IF YES KWIC3 01710 A C11,LINCT KWIC3 01720 B AU11 KWIC3 01730AU10 CC 1 EJECT FORM KWIC3 01740 MCW C31,LINCT SET LINE COUNT TO ONE KWIC3 01750 A C11,PGCNT ADD 1 TO PAGE COUNT KWIC3 01760AU11 BCE AU11A,SW4,1 BRANCH IF DOUBLE LINE AUTHOR KWIC3 01770 B AU1 KWIC3 01780AU11A MCW BLK1,SW4 KWIC3 01790AU11B NOP AU6B BR. IF REFNO IN INPUT KWIC3 01800 MZ DASH,222 MOVE REFNO TO PRINT AREA KWIC3 01810 MZ DASH,225 KWIC3 01820 MCW NAME,221 KWIC3 01830 MCW DATE,224 KWIC3 01840 MCW IDIOT,228 KWIC3 01850 B AU8 KWIC3 01860* KWIC3 01870*THIS ROUTINE READS THE AUTHOR TAPE KWIC3 01880* KWIC3 01890RDAUT SBR RDXIT&3 SET UP FOR RETURN KWIC3 01900 MCW C10,CTR RESET ERROR COUNTER KWIC3 01910RD5 RT 4,INPUT KWIC3 01920 BER RD4 BRANCH IF TAPE ERROR KWIC3 01930 BEF RDXIT1 BRANCH IF END OF REEL KWIC3 01940 MA C38,RDXIT&3 KWIC3 01950RDXIT B 0 RETURN KWIC3 01960RD4 A C11,CTR KWIC3 01970 BCE RD7,CTR,0 BRANCH IF CTR#10 KWIC3 01980 BSP 4 KWIC3 01990 B RD5 GO TRY TO READ RECORD AGAIN KWIC3 02000RD7 CS 180 KWIC3 02010 MCW CMNT1,150 PUNCH ERROR COMMENT KWIC3 02020 P KWIC3 02030 MCW INPUT&79,180 PUNCH BAD RECORD KWIC3 02040 P KWIC3 02050 B RDXIT KWIC3 02060RDXIT1 MA C34,RDXIT&3 KWIC3 02070 B RDXIT KWIC3 02080CMNT1 DCW @97TAPE ERROR ON 004.FOLLOWING RECRD NOT PROCESSED.@ KWIC3 02090DASH DCW @-@ KWIC3 02100CPAGE DCW 000 KWIC3 02110CLINE DCW 000 KWIC3 02120LBLIN DA 1X30,G KWIC3 02130C38 DCW 008 KWIC3 02140CTR DCW 00 TAPE ERROR COOUNTER KWIC3 02150ENDAU DCW 000 L.O. POS-1 OF AUTHOR NAME KWIC3 02160 DA 1X17 NAME OF PREVIOUS AUTHOR KWIC3 02170PREVAU DC 0 KWIC3 02180C11 DCW 1 KWIC3 02190C31 DCW 001 KWIC3 02200C311 DCW 011 KWIC3 02210BLK1 DCW @ @ KWIC3 02220BLK2 EQU BLK10-8 KWIC3 02230BLK10 DCW @ @ KWIC3 02240SW4 DCW 0 SINGLE LINE ENTRY KWIC3 02250C10 DCW 0 KWIC3 02260LINCT DCW 000 LINE COUNT KWIC3 02270PGCNT DCW 000 KWIC3 02280C34 DCW 004 KWIC3 02290C3I9I DCW @I9I@ KWIC3 02300SIGN DCW @SSW @ KWIC3 02310PG DCW @ 012345@ KWIC3 02320 END START KWIC3 JOB KWIC4- KEYWORD TAPE GENERATION KWIC4 0102 CTL 331 1 KWIC4 0103 ORG 81 KWIC4 0104 DA 1X2 12TH CHAR OF REFNO KWIC4 0105 DCW @}@ GMWM KWIC4 0106 ORG 87 KWIC4 0107 X1 DCW 000 KWIC4 0108 ORG 92 KWIC4 0109 X2 DCW 000 KWIC4 0110 ORG 97 KWIC4 0111 X3 DCW 000 KWIC4 0112 ORG 101 0113 NKWGUY DC 1 KWIC4 0114 C333 DCW 033 KWIC4 0115 LENDTI DCW 000 ADDRESS OF L.O. POS OF ITEM KWIC4 0116 CDCNT DCW 00000 CARD COUNT KWIC4 0117 C10 EQU *&1 KWIC4 0118 C20 EQU *&2 KWIC4 0119 C30 DCW 000 KWIC4 0120 LBEGKW DCW 000 ADDRESS OF H.O. POS OF KW KWIC4 0121 LENDKW DCW 000 ADRESS OF L.O. POS OF KW KWIC4 0122 LGKW DCW 000 NO. CHARS IN KW KWIC4 0123 L1 DCW 000 LENGTH OF ITEM TO LEFT OF KW KWIC4 0124 L2 DCW 000 LENGTH-1 OF ITEM TO RIGHT OF KW KWIC4 0125 KWT8 DCW 000 LGKW-1 KWIC4 0126 C3I9I DCW @I9I@ KWIC4 0127 SIGN DCW @SSW @ KWIC4 0128 C13 DCW 3 KWIC4 0129 TEMP1 DCW 000 KWIC4 0130 C34 DCW 004 KWIC4 0131 C36 DCW 006 KWIC4 0132 BEGKW DCW 000 0133 BLK1 DCW #1 KWIC4 0134 BLK18 DC #17 0135 BLK36 DC #18 0136 PRINT EQU 280 KWIC4 0137 INPUT EQU 7 KWIC4 0138 CDTYP EQU 18 KWIC4 0139 REF12 EQU 81 KWIC4 0140 ORG 333 KWIC4 0141 GMWM DCW @}@ KWIC4 0142 ENDSW DCW 0 END OF ITEM INDICATOR KWIC4 0143 C11 DCW 1 KWIC4 0144 TEMP DCW 000 KWIC4 0145 C32 DCW 002 KWIC4 0146 C31 DCW 001 KWIC4 0147 C14 DCW 4 KWIC4 0148 PLUS DCW @&@ KWIC4 0149 ZON12 EQU PLUS KWIC4 0150 NOFRNT DCW 000 NO. EMPTY POS. IN FRONT OF ENTRY KWIC4 0151 KWREC DCW 00 KWTP KWIC4 0152 C323 DCW 023 KWIC4 0153 L5 DCW 000 NO. XTRA CHARS AT END OF ENTRY KWIC4 0154 ORG 380 KWIC4 0155 WRAREA DA 1X83 KWIC4 0156 OUTPUT 7,7 KWIC4 0157 BEGOUT 21 KWIC4 0158 BEGKW1 45 KWIC4 0159 ENDOUT 80 KWIC4 0160 83,83 KWIC4 0161 DCW @}@ KWIC4 0162 ORG 499 KWIC4 0163 DCW 0 KWIC4 0164 BEGTI DCW 0 KWIC4 0165 ORG 1001 KWIC4 0166 *THIS IS A TABLE OF CHARACTERS WHICH CAN BE PRESENT IN A KEYWORD. KWIC4 0167 *FOR EACH ADDITIONAL CHARACTER ADDED, ADD 1 TO THE OPERAND OF THE KWIC4 0168 *CHAIN MACRO AT KW10 AND KW13. KWIC4 01685 DC @AAA@ KWIC4 0169 DCW @-@ KWIC4 0170 DC @0123456789@ KWIC4 0171 DC @Z@ KWIC4 0172 DC @Y@ KWIC4 0173 DC @X@ KWIC4 0174 DC @W@ KWIC4 0175 DC @V@ KWIC4 0176 DC @U@ KWIC4 0177 DC @T@ KWIC4 0178 DC @S@ KWIC4 0179 DC @R@ KWIC4 0180 DC @Q@ KWIC4 0181 DC @P@ KWIC4 0182 DC @O@ KWIC4 0183 N DC @N@ KWIC4 0184 DC @M@ KWIC4 0185 DC @L@ KWIC4 0186 DC @K@ KWIC4 0187 ZON11 DC @J@ KWIC4 0188 DC @I@ KWIC4 0189 DC @H@ KWIC4 0190 DC @G@ KWIC4 0191 F DC @F@ KWIC4 0192 E DCW @E@ KWIC4 0193 D DCW @D@ KWIC4 0194 C DCW @C@ KWIC4 0195 B DCW @B@ KWIC4 0196 STDCH DC @A@ KWIC4 0197 * KWIC4 0198 *INPUT TAPE LABEL CHECKING KWIC4 0199 * KWIC4 0200 TL1 SBR TL4&3 KWIC4 0201 TL2 MCW C10,CTR5#1 KWIC4 0202 TL3 RT 2,INPUT KWIC4 0203 BER TL5 KWIC4 0204 C INPUT&29,@BIBLIOGRAP@ KWIC4 0205 TL4 BE 0 KWIC4 0206 B TL6 KWIC4 0207 TL5 A C11,CTR5 KWIC4 0208 BSP 2 KWIC4 0209 BCE TL6,CTR5,0 KWIC4 0210 B TL3 KWIC4 0211 TL6 CS 299 KWIC4 0212 MCW @INPUT TAPE LABEL ERROR@,242 KWIC4 0213 W KWIC4 0214 CC L KWIC4 0215 CC L KWIC4 0216 CC L KWIC4 0217 H TL2 KWIC4 0218 * KWIC4 0219 *OUTPUT TAPE LABEL WRITING KWIC4 0220 * KWIC4 0221 TL7 SBR TL10&3 KEYWORD TAPE LABEL KWIC4 0222 RWD 3 KWIC4 0223 TL7A MCW C10,CTR5 KWIC4 0224 TL8 WT 3,WRLBL KWIC4 0225 TL9 BER TL11 KWIC4 0226 TL10 B 0 KWIC4 0227 TL11 BSP 3 KWIC4 0228 A C11,CTR5 KWIC4 0229 BCE TL12,CTR5,3 KWIC4 0230 B TL8 KWIC4 0231 TL12 SKP 3 KWIC4 0232 B TL7A KWIC4 0233 WRLBL DCW @1@ KWIC4 0234 DC @HDR@ KWIC4 0235 DC #16 KWIC4 0236 DC @KEYWORDTAP@ KWIC4 0237 DA 1X50,G KWIC4 0238 LTORG KWIC4 0239 * KWIC4 0240 * THIS ROUTINE CHECKS FOR CORRECT SEQUENCE OF CARDS KWIC4 0241 * KWIC4 0242 ST3 B READ NXT CARD KWIC4 0243 A C11,CDCNT KWIC4 0244 B PG6 SKIP TO NXT TITLE CARD KWIC4 0245 SEQ1 B KWIC NOP IF NO KW ON TITLES KWIC4 0246 BCE END,EOFSW,1 KWIC4 0247 SEQ1A B PG6 NOP IF KW ON SUBJECTS KWIC4 0248 SEQ2 BCE SEQ3,CDTYP,4 KWIC4 0249 B READ KWIC4 0250 B SEQ2 KWIC4 0251 SEQ3 B KWIC GO KW SUBJECTS KWIC4 0252 BCE END,EOFSW,1 BR. IF EOF ON INPUT KWIC4 0253 B PG6 SKIP TO NXT TITLE CARD KWIC4 0254 SEQ4 MCW C20,KWREC KWIC4 0255 B SEQ1 KWIC4 0256 * KWIC4 0257 *SETUP ROUTINE KWIC4 0258 * KWIC4 0259 SU1 RWD 2 KWIC4 0260 RWD 3 KWIC4 0261 CC 1 KWIC4 0262 CS 299 KWIC4 0263 MCW @KWIC4 ON@,228 KWIC4 0264 W KWIC4 0265 CC L KWIC4 0266 CC L KWIC4 0267 CC L KWIC4 0268 BSS SU3,B NO KW ON TITLES KWIC4 0269 SU2 BSS SU4,C KW ON SUBJECTS KWIC4 0270 B SU5 KWIC4 0271 SU3 MCW N,SEQ1 KWIC4 0272 MCW B,SIGN-3 KWIC4 0273 B SU2 KWIC4 0274 SU4 MCW N,SEQ1A KWIC4 0275 MCW C,SIGN-2 KWIC4 0276 SU5 BSS SU6,D BR. NO NUMERIC KW KWIC4 0277 B SU7 KWIC4 0278 SU6 SW NKWGUY KWIC4 0279 MCW D,SIGN-1 KWIC4 0280 SU7 BSS SU8,E KWIC4 0281 B SU9 KWIC4 0282 SU8 MCW E,SIGN KWIC4 0283 SU9 CS 299 KWIC4 0284 MCW SIGN,228 KWIC4 0285 W KWIC4 0286 CC L KWIC4 0287 CC L KWIC4 0288 CC L KWIC4 0289 B TL1 CHECK INPUT LABEL KWIC4 0290 B TL7 WRITE OUTPUT LABEL KWIC4 0291 OVLAY KWIC4 0292 LTORG KWIC4 0293 EX SU1 KWIC4 0294 ORG SU1 KWIC4 0295 QKWOC BSS SU11,E TEST FOR KWOC OPTION KWIC4 0296 BSS SU11,E KWIC4 0297 CS 80 0298 SU10 BLC ST3 KWIC4 0299 R SU10 KWIC4 0300 SU11 OVLAY KWIC4 0301 * KWIC4 0302 *THIS ROUTINE ASSEMBLES THE TITLE OR SUBJECT OT BE KEY WORDED KWIC4 0303 * KWIC4 0304 KWIC SBR KWXIT&3 KWIC4 0305 MCW C11,KWSW KWIC4 0306 KWICA LCA GMWM,WRAREA&80 0307 MN CDTYP,KW5&7 SET TYP OF CARD TO BE KEYWORDED KWIC4 0308 MZ CDTYP,KW5&7 KWIC4 0309 MCW &BEGTI-1,LENDTI RESET ADDR OF END OF TITLE KWIC4 0310 SBR KW1&3,WRAREA&20 SET UP FOR FIRST CARD KWIC4 0311 SBR KW1A&3,WRAREA&20 KWIC4 0312 SBR KW2A&3,C32 KWIC4 0313 MCW N,KW3C KWIC4 0314 KW1 CW WRAREA&20 KWIC4 0315 MCW INPUT&73,WRAREA&79 KWIC4 0316 KW1B MCW 81,WRAREA&82 0317 KW1A SW WRAREA&20 KWIC4 0318 MCW &WRAREA&79,KW2&6 H.O. POSITION OF FIELD KWIC4 0319 KW2 BCE KW4,0, BRANCH IF CHAR IS A BLANK KWIC4 0320 SBR TEMP SAVE POS.-1 OF NON BLANK KWIC4 0321 SBR KW3&3 KWIC4 0322 S &BEGOUT,TEMP LENGTH-2 OF NONBLANK FIELD KWIC4 0323 MZ @ @,TEMP KWIC4 0324 A TEMP,LENDTI L.O. POS-2 OF NEW END OF ITEM KWIC4 0325 KW2A A C32,LENDTI L.O. POS OF NEW END OF ITEM KWIC4 0326 MCW LENDTI,KW3&6 SET MOVE-TO LOC KWIC4 0327 SW KW3&3-2 KWIC4 0328 A C31,KW3&3 KWIC4 0329 CW KW3&3-2 KWIC4 0330 BCE KW5E,KW3&4, KWIC4 03305 C KW3&6,@997@ 03306 BL KW5E 0331 KW3 MCW 0,0 ADD TO ITEM TO BE KEYWORDED KWIC4 0332 KW3C NOP KW3D SET UP FOR NONFIRST CARDS KWIC4 0333 SBR KW1&3,WRAREA&21 KWIC4 0334 SBR KW1A&3,WRAREA&21 KWIC4 0335 SBR KW2A&3,C31 KWIC4 0336 CW WRAREA&20 KWIC4 0337 MCW B,KW3C KWIC4 0338 KW3D B READ NXT CARD KWIC4 0339 A C11,CDCNT ADD TO CARD COUNT KWIC4 0340 KW5 BCE KW5A,CDTYP,0 KWIC4 0341 KW5C CW WRAREA&21 KWIC4 0342 SW WRAREA&20 KWIC4 0343 KW5D MCW B,KW29C KWIC4 0344 B KW6 GO PERFORM KEYWORDING KWIC4 0345 KW5A C INPUT&10,COMP#11 KWIC4 0346 BE KW5B KWIC4 0347 B KW5C KWIC4 0348 KW5B C REF12,CREF12#1 KWIC4 0349 BE KW1 KWIC4 0350 B KW5C KWIC4 0351 KW4 SW KW2&6-2 KWIC4 0352 S C31,KW2&6 KWIC4 0353 MZ @ @,KW2&6 KWIC4 0354 CW KW2&6-2 KWIC4 0355 C KW2&6,&BEGOUT-1 PRESENT ADDR TO H.O. POS OF FIELD KWIC4 0356 BL KW2 BRANCH IF NOT FINISHED THIS CARD KWIC4 0357 B KW3C KWIC4 0358 KW5E CS 299 KWIC4 0359 MCW @TITLE TO LONG@,233 KWIC4 0360 W KWIC4 0361 CS 299 KWIC4 0362 MCW OUTPUT&10,231 KWIC4 0363 MCW CDCNT,240 KWIC4 0364 W KWIC4 0365 CC L KWIC4 0366 CC L KWIC4 0367 CC L KWIC4 0368 KW5J B KW11 0369 * KWIC4 0370 *THIS ROUTINE LOCATES THE KEY WORD IN THE TITLE OR SUBJECT%ITEM) KWIC4 0371 * KWIC4 0372 KW6 MCW LENDTI,KW6A&6 KWIC4 0373 MCW BLK1,ENDSW CLEAR END OF ITEM INDICATOR KWIC4 0374 SW KW6A&6-2 KWIC4 0375 A C31,KW6A&6 KWIC4 0376 CW KW6A&6-2 KWIC4 0377 KW6A MCW GMWM,0 KWIC4 0378 SBR X1,0 KWIC4 0379 KW9 CW BEGTI-2 KWIC4 0380 SW BEGTI KWIC4 0381 BCE KW11,ENDSW,1 KWIC4 0382 KW9A MN BEGTI&X1,KW10&7 LOOK FOR BEGINNING OF KW KWIC4 0383 MZ BEGTI&X1,KW10&7 ]STANDARD CHAR[ KWIC4 0384 KW10 BCE KW12,STDCH,0 BRANCH IF STANDARD CHAR KWIC4 03850 CHAIN39 KWIC4 0386 BCE KW11,BEGTI&X1,} BRANCH IF END OF ITEM KWIC4 0387 SBR X1,1&X1 KWIC4 0388 B KW9A KWIC4 0389 KW11 CW WRAREA&20 KWIC4 0390 MCW C10,KWSW KWIC4 0391 KWXIT B 0 KWIC4 0392 KW12 SBR LBEGKW,BEGTI&X1 SAVE H.O. POS OF KW KWIC4 0393 SW BEGTI&X1 KWIC4 0394 SBR KW9&3,BEGTI&X1 KWIC4 0395 SBR KW43A&3,BEGTI&X1 KWIC4 0396 SBR X1,1&X1 KWIC4 0397 KW12A MN BEGTI&X1,KW13&7 LOOK FOR END OF KEY WORD]NON KWIC4 0398 MZ BEGTI&X1,KW13&7 STANDARD CHAR[ KWIC4 0399 KW13 BCE KW14,STDCH,0 KWIC4 04000 CHAIN39 KWIC4 0401 BCE KW15,BEGTI&X1,} BRANCH IF END OF ITEM KWIC4 0402 B KW16 KWIC4 0403 KW14 SBR X1,1&X1 KWIC4 0404 B KW12A KWIC4 0405 KW15 MCW C11,ENDSW SET END OF ITEM INDICATOR KWIC4 0406 KW16 SBR LENDKW,BEGTI-1&X1 KWIC4 0407 SBR X1,1&X1 KWIC4 0408 ZA LENDKW,LGKW KWIC4 0409 S LBEGKW,LGKW KWIC4 0410 MZ C30,LGKW KWIC4 0411 A C11,LGKW LENGTH OF KEY WORD KWIC4 0412 C LGKW,@37@ KWIC4 0413 BH *&8 KWIC4 0414 MCW @36@,LGKW KWIC4 0415 ZA LBEGKW,L1 KWIC4 0416 S &BEGTI,L1 LENGTH OF TITLE TO LEFT OF KW KWIC4 0417 MZ C30,L1 KWIC4 0418 ZA LENDTI,L2 KWIC4 0419 S LBEGKW,L2 LENGTH-1 OF TITLE TO RIGHT OF KW KWIC4 0420 MZ C30,L2 KWIC4 0421 * KWIC4 0422 *THIS ROUTINE CHECKS THE KEY WORD AGAINST THE STOP WORD LIST KWIC4 0423 * KWIC4 0424 KW20 SBR X2,0 KWIC4 0425 MCW &NOCH,KW21&6 L.O. ADR OF TABL OF STP WD LNGTHS KWIC4 0426 KW21 C LGKW,0 COMPARE LGTH STOP WDS # LGTH KW KWIC4 0427 SBR KW21&6 FOR NXT COMPARE KWIC4 0428 SBR KW22&6 FOR END OF TABLE TEST KWIC4 0429 BE KW23 BRANCH IF NO. CHARS IS SAME KWIC4 0430 KW22 BCE KW29,0,} BRANCH IF NO. CHARS IN KW NOT# KWIC4 0431 * NO. CHARS IN ANY STOP WD KWIC4 0432 SBR X2,3&X2 KWIC4 0433 B KW21 GO CHECK NXT TABL ENTRY KWIC4 0434 KW23 MCW SWADR&X2,KW24&6 SET STOP WORD LIST BASE ADDR KWIC4 0435 KW24 C BEGTI-2&X1,0 COMPARE STOP WD WITH KEY WD KWIC4 0436 SBR KW24&6 FOR NXT COMPARE KWIC4 0437 SBR KW25&6 FOR END OF STOP WD TABLE TEST KWIC4 0438 BU KW25 BR. IF KW NOT EQU STOP WD KWIC4 0439 KW24D MCW N,KW29C 0440 *SIGNIFICANT ONLY WHEN 1ST WD OF A TITLE IS A STOP WORD KWIC4 0441 B KW9 KWIC4 0442 KW25 BCE KW29,0,} BR. IF NO MATCH ON ANY STOP WORD KWIC4 0443 B KW24 GO COMPARE AGAINST NXT STOP WD KWIC4 0444 * KWIC4 0445 *THIS ROUTINES ASSEMBLES AND WRITES THE KEY WORD ENTRIES KWIC4 0446 * KWIC4 0447 KW29 CS WRAREA&80 KWIC4 0448 MCW LBEGKW,X3 KWIC4 0449 S C31,X3 KWIC4 0450 MZ @ @,X3 KWIC4 0451 BCE KW29A,0&X3, BRANCH IF H.O. POS-1 OF KW BLANK KWIC4 0452 B KW29B KWIC4 0453 KW29A S C31,X3 KWIC4 0454 MZ @ @,X3 KWIC4 0455 S C31,L1 KWIC4 0456 MZ @ @,L1 KWIC4 0457 KW29B SBR KW30&3,0&X3 KWIC4 0458 SBR X3,35 KWIC4 0459 MCW L2,X2 LGTH-1 OF ENTRY TO RIGHT OF KW KWIC4 0460 MZ ZON11,LBEGKW-1 KWIC4 0461 MCW LBEGKW,KW31&3 KWIC4 0462 MCW LBEGKW,KW32A&3 KWIC4 0463 MZ ZON12,LBEGKW-1 KWIC4 0464 MCW LBEGKW,KW34&3 KWIC4 0465 MCW LBEGKW,KW34A&3 KWIC4 0466 MZ C30,LBEGKW-1 KWIC4 0467 SW BEGOUT KWIC4 0468 KW29C B KW31B BRANCH ON 1ST KW. NOP ON OTHERS. KWIC4 0469 KW30 MCW 0,BEGKW1-2 LGTH L1 TO LGTH L3 KWIC4 0470 *THIS MOVE STOPPED BY W/M AT BEGOUT OR BEGTI KWIC4 0471 SAR KW38&3 KWIC4 0472 SBR KW30B&6 KWIC4 0473 KW30B BCE KW30C,0, BRANCH IF 1ST WD COMPLETE KWIC4 0474 MCW C11,SW1 1ST WD OF ENTRY IS A FRAGMENT KWIC4 0475 KW30C C C323,L1 KWIC4 0476 BH KW32 BRANCH IF L1 GRTR 23 KWIC4 0477 KW30A C C335,L2 KWIC4 0478 BH KW34A BRANCH IF L2 GREATER 35 AND L1 KWIC4 0479 * LESS OR EQUAL 23 KWIC4 0480 KW31 MCW 0&X2,BEGKW1&X2 LGTH L2 TO LGTH L4 KWIC4 0481 KW31A SW LGKW-1 MOVE LGTH OF KW TO OUTPUT AREA KWIC4 0482 MCW LGKW,WRAREA&81 KWIC4 0483 CW LGKW-1 KWIC4 0484 BWZ KW31E,BEGKW1,2 BR. NUMERIC KW KWIC4 0485 KW31C LCA GMWM,WRAREA&83 KWIC4 0486 B WRKWIC WRITE KWIC ENTRY KWIC4 0487 LCA GMWM,WRAREA&80 KWIC4 0488 A C11,KWREC UPDATE RECORD COUNT ON KW TAPE KWIC4 0489 KW31D MCW BLK1,SW1 1ST WD OF ENTRY A FRAGMENT KWIC4 0490 B KW43A GO TEST FOR FINISHED THIS ITEM KWIC4 0491 KW31E BW KW31C,NKWGUY BR. IF ACCEPT NUMERIC KW KWIC4 0492 B KW31D KWIC4 0493 KW31B MCW N,KW29C KWIC4 0494 B KW30A KWIC4 0495 KW32 C C335,L2 KWIC4 0496 BH KW34 BRANCH IF L2 GREATER 35 KWIC4 0497 KW32A MCW 0&X2,BEGKW1&X2 LGTH L2 TO LGTH L4 KWIC4 0498 B KW36 L2 LESS OR EQUAL 35 AND L1 KWIC4 0499 * GREATER 23 KWIC4 0500 KW34A MCW 0&X3,ENDOUT 1ST 36 CHARS LGTH L2 TO LGTH L4 KWIC4 0501 B KW40 KWIC4 0502 KW34 MCW 0&X3,ENDOUT 1ST 36 CHARS LGTH L2 TO LGTH L4 KWIC4 0503 KW34L SW KW34&1 KWIC4 0504 MCW KW34&3,KW34B&6 KWIC4 0505 CW KW34&1 KWIC4 0506 SW KW34B&6-2 KWIC4 0507 A C31,KW34B&6 KWIC4 0508 CW KW34B&6-2 KWIC4 0509 KW34B BCE KW34G,0, BRANCH IF LAST WD COMPLETE KWIC4 0510 BCE KW34G,ENDOUT, BRANCH IF LAST CHAR A BLANK KWIC4 0511 SBR X2,0 LAST WD OF ENTRY IS A FRAGMENT KWIC4 0512 SBR KW34C&6,ENDOUT KWIC4 0513 KW34C BCE KW34D,0, FIND BEGINING OF THE FRAGMENT KWIC4 0514 SBR KW34C&6 KWIC4 0515 SBR KW34E&3 KWIC4 0516 SBR KW34F&3 KWIC4 0517 A C11,X2 KWIC4 0518 B KW34C KWIC4 0519 KW34D C C34,X2 KWIC4 0520 BH KW34G FRAGMENT IS 5 CHARS OR MORE KWIC4 0521 KW34E SW 0 KWIC4 0522 MCW BLK36,ENDOUT KWIC4 0523 KW34F CW 0 KWIC4 0524 KW34G BCE KW34H,SW1,1 BRANCH IF 1ST WD IS A FRAGMENT KWIC4 0525 B KW31A GO WRITE KW TAPE KWIC4 0526 KW34H SBR X2,0 KWIC4 0527 MCW BLK1,SW1 KWIC4 0528 KW34J BCE KW34K,BEGOUT&X2, FIND END OF FRAGMENT KWIC4 0529 A C11,X2 KWIC4 0530 B KW34J KWIC4 0531 KW34K MCW BLK36,BEGOUT&X2 KWIC4 0532 B KW31A GO WRITE KW TAPE KWIC4 0533 KW34M MCW BLK1,SW1 CLEAR IND, 1ST WD A FRAGMENT KWIC4 0534 B KW34L KWIC4 0535 KW36 C C333,L2 KWIC4 0536 BH KW31A L2 # 34 OR 35 KWIC4 0537 * L1 GRTR 23 AND L2 LESS 34 KWIC4 0538 KW37 SW BEGKW1&1&X2 L.O. POS&1 OF LCTH L2 KWIC4 0539 KW38 MCW 0,ENDOUT MOVE CHARS TO END OF KWIC ENTRY KWIC4 0540 *THIS MOVE STOPPED BY W/M AT BEGKW1&2&L2 OR BEGTI KWIC4 0541 SBR TEMP KWIC4 0542 CW BEGKW1&1&X2 KWIC4 0543 SBR KWT8,BEGKW1&1&X2 KWIC4 0544 C KWT8,TEMP DIDXTRA CHARS FIT ON END KWIC4 0545 BH KW31A BRANCH IF YESS KWIC4 0546 *REMOVE FRAGMENTS FROM RIGHT END KWIC4 0547 KW39 BCE KW39E,BEGKW1&1&X2, BRANCH IF 1ST CHAR OF WRAP KWIC4 0548 * AROUND IS BLANK KWIC4 0549 MCW X2,X3 KWIC4 0550 KW39C SBR TEMP,BEGKW1&1&X2 KWIC4 0551 C TEMP,&ENDOUT HAVE WE REACHED END OF ENTRY KWIC4 0552 BE KW39F BRANCH IF YES KWIC4 0553 BCE KW39A,BEGKW1&1&X2, BRANCH IF BLANK CHAR KWIC4 0554 SBR X2,1&X2 KWIC4 0555 B KW39C KWIC4 0556 KW39A SW BEGKW1&1&X3 KWIC4 0557 MCW BLK36,BEGKW1&1&X2 KWIC4 0558 MCW PLUS,BEGKW1&X2 KWIC4 0559 CW BEGKW1&1&X3 KWIC4 0560 B KW31A KWIC4 0561 KW39E SBR TEMP,BEGKW1&1&X2 KWIC4 0562 C TEMP,&ENDOUT KWIC4 0563 BE KW31A LAST CHAR OF WRAPAROUND EQU BLANK KWIC4 0564 MCW PLUS,BEGKW1&1&X2 KWIC4 0565 B KW31A KWIC4 0566 KW39F SW BEGKW1&1&X3 KWIC4 0567 MCW BLK36,BEGKW1&1&X2 KWIC4 0568 CW BEGKW1&1&X3 KWIC4 0569 B KW34G KWIC4 0570 KW40 C C321,L1 KWIC4 0571 BH KW34M BRANCH IF NO ROOM IN FRONT KWIC4 0572 MCW LBEGKW,TEMP KWIC4 0573 A C335,TEMP BEGKW&35 KWIC4 0574 MCW C323,NOFRNT KWIC4 0575 S L1,NOFRNT NO. EMPTY POS IN FRONT KWIC4 0576 MZ C30,NOFRNT KWIC4 0577 ZA LENDTI,L5 KWIC4 0578 S LBEGKW,L5 KWIC4 0579 S C335,L5 NO. XTRA CHARS AT END KWIC4 0580 MZ C30,L5 KWIC4 0581 C NOFRNT,L5 KWIC4 0582 BL KW41 NO. EMPTY POS IN FRONT IS GRTR KWIC4 0583 * THAN NO. EXTRA CHARS AT END KWIC4 0584 MCW TEMP,KW43&3 BEGKW&35 KWIC4 0585 MCW NOFRNT,X2 KWIC4 0586 MZ ZON11,KW43&2 KWIC4 0587 KW43 MCW 0&X2,BEGOUT-1&X2 MOVE XTRA CHARS TO FRONT OF ENTRY KWIC4 0588 BCE KW43G,BEGOUT-1&X2, KWIC4 0589 SBR KW43D&6,BEGOUT-1&X2 KWIC4 0590 SBR KW43E&6,BEGOUT-1&X2 KWIC4 0591 SBR TEMP1,BEGOUT-1&X2 KWIC4 0592 KW43F SBR TEMP,BEGOUT-1&X2 KWIC4 0593 C TEMP,&BEGOUT KWIC4 0594 BE KW43B KWIC4 0595 BCE KW43B,BEGOUT-1&X2, KWIC4 0596 S C31,X2 KWIC4 0597 MZ @ @,X2 KWIC4 0598 B KW43F KWIC4 0599 KW43B S TEMP,TEMP1 KWIC4 0600 MZ BLK1,TEMP1 KWIC4 0601 C C34,TEMP1 KWIC4 0602 BH KW43E KWIC4 0603 KW43C SW BEGOUT-1&X2 KWIC4 0604 KW43D MCW BLK36,0 KWIC4 0605 CW BEGOUT-1&X2 KWIC4 0606 C X2,C31 KWIC4 0607 BE KW34M ENTIRE WRAPAROUND BLANK KWIC4 0608 MCW PLUS,BEGOUT&X2 KWIC4 0609 B KW31A KWIC4 0610 KW43E MCW PLUS,0 KWIC4 0611 B KW31A KWIC4 0612 KW43G C X2,C31 KWIC4 0613 BE KW31A 1ST CHAR OF ENTRY IS BLANK KWIC4 0614 MCW PLUS,BEGOUT-1&X2 KWIC4 0615 B KW31A KWIC4 0616 KW41 MCW TEMP,KW42&3 BEGKW&36 KWIC4 0617 MCW L5,X2 KWIC4 0618 MZ ZON11,KW42&2 KWIC4 0619 KW42 MCW 0&X2,BEGOUT-1&X2 MOVE XTRA CHARS TO FRONT OF ENTRY KWIC4 0620 B KW31A GO WRITE KWIC TAPE KWIC4 0621 KW43A CW 0 H.O. POS OF KW IN TITLE KWIC4 0622 BCE KW11,ENDSW,1 BRANCH IF END OF ITEM KWIC4 0623 B KW9 KWIC4 0624 * KWIC4 0625 *THIS ROUTINE CLOSES AND REWINDS TAPES KWIC4 0626 * KWIC4 0627 END WTM 3 KWIC4 0628 RWD 3 KWIC4 0629 CS 299 KWIC4 0630 MCW @END KWIC4@,229 KWIC4 0631 W KWIC4 0632 CC L KWIC4 0633 CC L KWIC4 0634 CC L KWIC4 0635 H *-3 KWIC4 0636 * KWIC4 0637 *THIS ROUTINE PURGES INCOMPLETE SETS OF CARDS FROM THE TAPES KWIC4 0638 * KWIC4 0639 PG2 C KWREC,C20 PURGE KWIC TAPE KWIC4 0640 BE PG6 KWIC4 0641 BSP 3 KWIC4 0642 S C11,KWREC KWIC4 0643 MZ C30,KWREC KWIC4 0644 B PG2 KWIC4 0645 PG5 B READ NXT CARD KWIC4 0646 A C11,CDCNT KWIC4 0647 PG6 BCE PG6A,CDTYP,2 KWIC4 0648 B PG5 KWIC4 0649 PG6A C INPUT&10,COMP KWIC4 0650 BE PG7 KWIC4 0651 PG6B MCW INPUT&10,COMP KWIC4 0652 MCW REF12,CREF12 KWIC4 0653 B SEQ4 KWIC4 0654 PG7 C REF12,CREF12 KWIC4 0655 BE PG5 KWIC4 0656 B PG6B KWIC4 0657 *THIS ROUTINE WRITES THE KEYWORD TAPE KWIC4 0658 * KWIC4 0659 WRKWIC SBR WRX1&3 KWIC4 0660 WR1A MCW C11,WRT1 KWIC4 0661 WR2 WT 3,OUTPUT KWIC4 0662 BER WR6A KWIC4 0663 BEF WR7A KWIC4 0664 WRX1 B 0 RETURN KWIC4 0665 WR6A BSP 3 KWIC4 0666 BCE WR8,WRT1,3 BRANCH IF THIRD BAD WRITE KWIC4 0667 A C11,WRT1 ADD TO BAD COUNTER KWIC4 0668 B WR2 GO TO TRY WRITE AGAIN KWIC4 0669 WR8 SKP 3 KWIC4 0670 B WR1A GO TRY TO WRITE AGAIN KWIC4 0671 WR7A WTM 3 KWIC4 0672 WR5 RWU 3 KWIC4 0673 CS 299 KWIC4 0674 MCW @MOUNT BLANK ON 3@,236 KWIC4 0675 W KWIC4 0676 CC L KWIC4 0677 CC L KWIC4 0678 CC L KWIC4 0679 H KWIC4 0680 B TL7 KWIC4 0681 B WRX1 KWIC4 0682 WRT1 DCW 0 KWIC4 0683 * KWIC4 0684 *THIS ROUTINE READS THE INPUT TAPE KWIC4 0685 * KWIC4 0686 READ SBR RDXIT&3 SAVE RETURN ADDR KWIC4 0687 RD1 MCW C20,RDC1 KWIC4 0688 RD1A RT 2,INPUT READ TAPE KWIC4 0689 BER RD2 ERROR KWIC4 0690 BEF RD3 EOF KWIC4 0691 RDXIT B 0 RETURN KWIC4 0692 RD2 A C11,RDC1 ADD 1 TO ERROR COUNT KWIC4 0693 BCE RD2A,RDC1-1,1 BRANCH IF 10TH BAD READ KWIC4 0694 BSP 2 BACKSPACE OVER BAD RECORD KWIC4 0695 B RD1A KWIC4 0696 RD2A CS 299 KWIC4 0697 MCW @INPUT TAPE ERROR@,236 KWIC4 0698 W KWIC4 0699 CC L KWIC4 0700 CC L KWIC4 0701 CC L KWIC4 0702 H PG2 KWIC4 0703 RD3 RWD 2 KWIC4 0704 CS 299 KWIC4 0705 MCW CMNT3,266 KWIC4 0706 W KWIC4 0707 CC L KWIC4 0708 CC L KWIC4 0709 CC L KWIC4 0710 H KWIC4 0711 BSS RD4,F BRANCH IF END OF INPUT KWIC4 0712 B TL1 KWIC4 0713 B RD1 KWIC4 0714 RD4 BCE RD5,KWSW,1 KWIC4 0715 B END KWIC4 0716 RD5 MCW C11,EOFSW SET END OF INPUT SWITCH KWIC4 0717 MCW BLK1,CDTYP SET CARD TYP SO THAT THE KWIC KWIC4 0718 * ROUTINE WILL BE COMPLETED KWIC4 0719 B RDXIT RETURN TO KWIC ROUTINE KWIC4 0720 RDC1 DCW 00 KWIC4 0721 CMNT2 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC4 0722 CMNT3 DCW @MOUNT NXT INPUT REEL.SSW F ON IF NO MORE INPUT@ KWIC4 0723 * KWIC4 0724 *TABLES AND CONSTANTS KWIC4 0725 * KWIC4 0726 DCW @}@ KWIC4 0727 DCW 004 KWIC4 0728 DCW 003 KWIC4 0729 DCW 002 KWIC4 0730 NOCH DCW 001 KWIC4 0731 SWADR DCW &CHAR1 KWIC4 0732 DCW &CHAR2 KWIC4 0733 DCW &CHAR3 KWIC4 0734 DCW &CHAR4 KWIC4 0735 DCW @}@ KWIC4 0736 CHAR1 DCW @A@ KWIC4 0737 DCW @}@ KWIC4 0738 DCW @BY@ KWIC4 0739 DCW @TO@ KWIC4 0740 DCW @AS@ KWIC4 0741 DCW @AT@ KWIC4 0742 DCW @AN@ KWIC4 0743 DCW @ON@ KWIC4 0744 DCW @IN@ KWIC4 0745 CHAR2 DCW @OF@ KWIC4 0746 DCW @}@ KWIC4 0747 DCW @FOR@ KWIC4 0748 DCW @AND@ KWIC4 0749 CHAR3 DCW @THE@ KWIC4 0750 DCW @}@ KWIC4 0751 DCW @SOME@ KWIC4 0752 DCW @FROM@ KWIC4 0753 CHAR4 DCW @WITH@ KWIC4 0754 EOFSW DCW 0 KWIC4 0755 SW1 DCW 0 1ST WD OF ENTRY IS A FRAGMENT KWIC4 0756 KWSW DCW 0 KEYWORD SUBR IN USE KWIC4 0757 C335 DCW 035 KWIC4 0758 C321 DCW 021 KWIC4 0759 LTORG KWIC4 0760 EX QKWOC KWIC4 0761 ORG 460 KWIC4 0762 LINCTR DCW 00 KWIC4 0763 LOCKW DCW 000 KWIC4 0764 LKW DCW 00 KWIC4 0765 KEYWD DCW #20 KWIC4 0766 FREFNO DCW #12 KWIC4 0767 ORG KWIC KWIC4 0768 SBR FTXIT1&3 0769 ORG KWICA 0770 NOP 0771 ORG KW1B 0772 MCW 81,FREFNO 0773 ORG KW5D 0774 NOP 0775 ORG KW5J 0776 B FTXIT 0777 ORG KW6 KWIC4 0778 B FT1 0779 DCW #1 0780 ORG KW24 0781 C BEGTI-1&X1,0 0782 ORG KW24D 0783 NOP 0784 ORG KW22 0785 B FT22 0786 ORG KW25-4 0787 B FT9B 0788 B FT22 0789 ORG WR2 KWIC4 0790 WT 3,LINCTR-1 0791 ORG KW29 0792 FT1 MCW LENDTI,FT2&6 0793 SW FT2&6-2 KWIC4 0794 A @002@,FT2&6 KWIC4 0795 CW FT2&6-2 KWIC4 0796 FT2 MCW @ }@,0 SET } AT END OF TITLE KWIC4 0797 FT3 MCW LNLTH,X1 KWIC4 0798 S C32,X1 KWIC4 0799 MZ *-1,X1 KWIC4 0800 *SET RM AT END OF EACH LINE 0801 FT4 BCE FT7,BEGTI-1&X1, BLANK KWIC4 0802 BCE FT9,BEGTI-1&X1,} GM KWIC4 0803 BCE FT9,BEGTI-1&X1, KWIC4 0804 A @I9I@,X1 KWIC4 0805 B FT4 KWIC4 0806 FT5 BCE FT7,BEGTI-1&X1, BLANK KWIC4 0807 BCE FT9,BEGTI-1&X1,} GM 0808 MCW @ @,BEGTI&X1 KWIC4 0809 A LNLTH,X1 KWIC4 0810 S C32,X1 KWIC4 0811 MZ *-1,X1 KWIC4 08120 C @499@,X1 0813 BL FT4 KWIC4 08140 SBR X1,498 0815 B FT4 KWIC4 0816 FT7 A @I9I@,X1 KWIC4 0817 B FT5 KWIC4 0818 FT9 MCW @000@,X1 0819 SBR CURBL,0&X1 0820 MCW OUTPUT&10,FREFNO-1 0821 MCW @01@,LINCTR 0822 FT9B MCW BLK18,KEYWD 0823 MCW BLK1 0824 *LOCATE KEYWORD IN TITLE 0825 FT9D MN BEGTI&X1,FT10&7 0826 MZ BEGTI&X1,FT10&7 KWIC4 0827 FT10 BCE FT13,STDCH,0 BR. BEGIN OF KW 08280 CHAIN39 KWIC4 0829 BCE FTXIT,BEGTI&X1,} BR. END OF TITLE %GM) 0830 BCE FT12,BEGTI&X1, BR. END OF LINE KWIC4 0831 FT11 SBR X1,1&X1 KWIC4 0832 B FT9D 0833 FT12 A C11,LINCTR 0834 SBR X1,1&X1 0835 SBR CURBL,0&X1 0836 B FT9D 0837 FT13 SBR BEGKW,0&X1 KWIC4 0838 B FT17 KWIC4 0839 FT15 MN BEGTI&X1,FT16&7 KWIC4 0840 MZ BEGTI&X1,FT16&7 KWIC4 0841 FT16 BCE FT17,STDCH,0 BR. NOT BEGIN OF KW 08420 CHAIN39 KWIC4 0843 B FT18 KWIC4 0844 FT17 SBR X1,1&X1 KWIC4 0845 B FT15 KWIC4 0846 FT18 MCW BEGKW,LOCKW KWIC4 0847 S CURBL,LOCKW KWIC4 0848 MZ @ @,LOCKW KWIC4 0849 SBR TEMP,0&X1 KWIC4 0850 S BEGKW,TEMP KWIC4 0851 MZ @ @,TEMP KWIC4 0852 MCW TEMP,X2 KWIC4 0853 C @021@,TEMP KWIC4 0854 BL FT20 0855 MCW @20@,LKW 0856 MCW BEGKW,X3 0857 MCW BEGTI&X3&19,KEYWD 0858 B FT21 0859 FT20 MCW X2,LKW KWIC4 0860 MCW BEGTI-1&X1,KEYWD-20&X2 KEYWORD TO OUTPUT AREA KWIC4 0861 FT21 BWZ FT23,KEYWD-19,2 BR. NUMERIC KW KWIC4 0862 FT21E MCW LKW,LGKW KWIC4 0863 B KW20 GO CHECK STOP LIST KWIC4 0864 FT22 LCA GMWM,999 0865 B WRKWIC 0866 A C11,KWREC 0867 B FT9B 08675FT23 BW FT21E,NKWGUY BR. IF ACCEPT NUMERIC KW KWIC4 08676 B FT9B KWIC4 08680FTXIT CS 999 0869 CHAIN4 KWIC4 0870 SW BEGTI 0871 MCW C10,KWSW CLEAR SW, KW ROUTINE IN USE 0872 FTXIT1 B 0 RETURN KWIC4 0873 FT25 BLC CTLERR TEST FOR PRESENSE OF CTL CD KWIC4 0874 R RD CTL CD KWIC4 0875 C 3,@***@ TEST CTL CD ID KWIC4 0876 BU CTLERR KWIC4 0877 MCW 6,LNLTH#3 CAPTURE LINE LENGTH KWIC4 0878 C LNLTH,@132@ LINE KWIC4 0879 BL CTLERR LENGTH KWIC4 0880 C LNLTH,@040@ LIMIT KWIC4 0881 BH CTLERR TESTS KWIC4 0882 S @2@,LNLTH KWIC4 0883 MZ *-1,LNLTH KWIC4 0884 B ST3 A-OK KWIC4 0885 CTLERR CS 299 PRINT KWIC4 0886 LCA @CONTROL CARD ERROR@,238 ERROR KWIC4 0887 BLC *&5 MESSAGE KWIC4 0888 B *&8 KWIC4 0889 LCA @MISSING@,240 KWIC4 0890 W KWIC4 0891 CC L KWIC4 0892 CC L KWIC4 0893 CC L KWIC4 0894 H FT25 RE-RRAD AFTER CORRECTION KWIC4 0895 CURBL DCW 000 KWIC4 0896 END FT25 KWIC4 0101 JOB 1401 KWIC- KEY WORD PRINT AND STATISTICS PASS KWIC5 0102 CTL 331 1 KWIC5 0103 PRFLD EQU 260 KWIC5 0104 PRNAM EQU 268 KWIC5 0105 DASH1 EQU 269 KWIC5 0106 PRDAT EQU 271 KWIC5 0107 DASH2 EQU 272 KWIC5 0108 PRIDI EQU 275 KWIC5 0109 PRREF EQU 273 KWIC5 0110 ORG 87 KWIC5 0111 X1 DCW 000 KWIC5 0112 ORG 92 KWIC5 0113 X2 DCW 000 KWIC5 0114 ORG 97 KWIC5 0115 X3 DCW 000 KWIC5 0116 ORG 181 KWIC5 0117 C11 DCW 1 KWIC5 0118 C31 DCW 001 KWIC5 0119 C21 EQU C311-1 KWIC5 0120 C311 DCW 011 KWIC5 0121 LINCT DCW 001 LINE COUNT KWIC5 0122 PGCT DCW 001 KWIC5 0123 DASH DCW @-@ KWIC5 0124 CTR DCW 00 BAD READ COUNTER KWIC5 0125 WRT1 DCW 0 BAD WRITE COUNTER KWIC5 0126 C20 DCW 00 KWIC5 0127 ORG 333 KWIC5 0128 STINP DA 1X45 KWIC5 0129 COUNT 38,43 KWIC5 0130 DCW @}@ KWIC5 0131 C38 DCW 008 KWIC5 0132 C34 DCW 004 KWIC5 0133 SIGN DCW @SSW @ KWIC5 0134 REFSW DC 1 KWIC5 0135 EOTSW DC 1 KWIC5 0136 NEWKW DC 1 KWIC5 0137 OVPRSW DC 1 KWIC5 0138 ORG 400 KWIC5 0139 STOUT DA 1X45 KWIC5 0140 COUNT1 38,43 KWIC5 0141 DCW @}@ KWIC5 0142 START RWD 3 KWIC5 0143 RWD 4 KWIC5 0144 CC 1 KWIC5 0145 CS 299 KWIC5 0146 MCW @KWIC5 ON@,228 KWIC5 0147 W KWIC5 0148 CC L KWIC5 0149 CC L KWIC5 0150 CC L KWIC5 0151 CTL1 R KWIC5 0152 C 3,@***@ KWIC5 0153 BE CTL3 KWIC5 0154 CTL2 CS 299 KWIC5 0155 MCW @CTL CD ERR@,236 KWIC5 0156 W KWIC5 0157 CC L KWIC5 0158 CC L KWIC5 0159 CC L KWIC5 0160 H CTL1 KWIC5 0161 CTL3 MN 4,CPAGE KWIC5 0162 C CPAGE,@2@ KWIC5 0163 BL CTL2 KWIC5 0164 CTL4 MCW 7,CLINE KWIC5 0165 BCE CTL4B,9, NO KWOC KWIC5 0166 MCW @B@,KS17 KWIC5 0167 MCW &LINTTL-1,ADR1 0168 MCW @B@,RD5B KWIC5 0169 MCW &KS26,KS26A&3 KWIC5 0170 C 13,@132@ TEST KWIC5 0171 BL CTL2 FOR KWIC5 0172 C 13,@040@ LINE LENGTH KWIC5 0173 BH CTL2 LIMITS KWIC5 0174 MCW 13,TEMPR#3 SET TO CONTROL POSITIONING KWIC5 0175 A @198@,TEMPR KWIC5 0176 BCE CTL4B,10, NO OVERPRINT KWIC5 0177 SW OVPRSW TURN ON OVERPRINT SWITCH KWIC5 0178 CTL4B BCE CTL4E,8, BR. IF PRINT IN POS 1 KWIC5 0179 MCW @N@,KS19 KWIC5 0180 CTL4E BSS CTL6,D KWIC5 0181 CTL4M BSS CTL7,E KWIC5 0182 CTL4P CS 299 KWIC5 0183 MCW SIGN,226 KWIC5 0184 SW 1 KWIC5 0185 MCW 13,245 KWIC5 0186 W KWIC5 0187 CC L KWIC5 0188 CC L KWIC5 0189 CC L KWIC5 0190 BSS CTL5,E BR. IF NO BAL. FORD. STAT. KWIC5 0191 RWD 2 KWIC5 0192 MN @2@,TL3&3 CHECK STAT. TAPE LABEL KWIC5 0193 SBR TL3A&6,TL12 KWIC5 0194 MCW TL10,TL7 KWIC5 0195 B TL1 KWIC5 0196 CTL5 MN @3@,TL3&3 CHECK KEYWORD TAPE LABEL KWIC5 0197 SBR TL3A&6,TL11 KWIC5 0198 MCW TL9,TL7 KWIC5 0199 B TL1 KWIC5 0200 B TL20 WRITE STAT. TAPE LABEL KWIC5 0201 CC 1 KWIC5 0202 S @1@,CLINE KWIC5 0203 MZ @ @,CLINE KWIC5 0204 BSS KS1C,D BRANCH IF REFNO IN INPUT KWIC5 0205 B KS1D KWIC5 0206 CTL6 MCW @D@,SIGN-1 KWIC5 0207 B CTL4M KWIC5 0208 CTL7 MCW @E@,SIGN KWIC5 0209 B CTL4P KWIC5 0210 KS1C MCW @B@,KS17A SETUP MOVE REFNO WITHOUT DASHES KWIC5 0211 CW DATE-1,IDIOT-2 KWIC5 0212 KS1D CS 332 KWIC5 0213 CS 299 KWIC5 0214 BSS KS1B,E BRANCH IF NO OLD STAT TAPE KWIC5 0215 B KS1A KWIC5 0216 KS1B MCW KS5,KS4A SET END OF STAT TAPE SWITCHES KWIC5 0217 SBR KS30&3,KS34 DITTO KWIC5 0218 MCW @N@,KS34&5 KWIC5 0219 B KS2 KWIC5 0220 KS1A B RDST READ STAT TAPE KWIC5 0221 H KS1A KWIC5 0222 B KS1 EOF KWIC5 0223 B KS2 KWIC5 0224 KS1 CS 180 KWIC5 0225 MCW @12ILLEGAL EOF- STAT TP@,122 KWIC5 0226 P KWIC5 0227 CS 180 KWIC5 0228 P KWIC5 0229 SS 4 KWIC5 0230 H KWIC5 0231 KS2 B RDKW READ KEY WORD TAPE KWIC5 0232 H KS2 KWIC5 0233 B KS3 KWIC5 0234 B KS4 KWIC5 0235 KS3 CS 180 KWIC5 0236 MCW @13ILLEGAL EOF- KW TP@,121 KWIC5 0237 P KWIC5 0238 CS 180 KWIC5 0239 P KWIC5 0240 SS 4 KWIC4 0241 H KWIC5 0242 KS4 MCW BLK36,TEMKW CLEAR KW COMPARE AREA KWIC5 0243 SBR X2,0 KWIC5 0244 MCW LGKW,X2 KWIC5 0245 MCW BEGKW-1&X2,TEMKW-36&X2 MOVE KW TO COMPARE AREA KWIC5 0246 KS4B CS STOUT&44 KWIC5 0247 SW STOUT&37 KWIC5 0248 SW STOUT KWIC5 0249 MCW BEGKW-1&X2,STOUT-1&X2 SAVE KW KWIC5 0250 KS4A NOP KS9 BRANCH IF END OF STAT TAPE KWIC5 0251 C STINP&35,TEMKW KWIC5 0252 BH KS5 BRANCH IF KW HI KWIC5 0253 BE KS8 BRANCH IF KW ~ STAT WD KWIC5 0254 B KS9 BRANCH IF KW LO KWIC5 0255 KS5 B WRST1 MOVE STAT WD TO NEW STAT TAPE KWIC5 0256 KS6 B RDST READ STAT TAPE KWIC5 0257 H KS6 ERROR KWIC5 0258 B KS7 EOF KWIC5 0259 B KS4A KWIC5 0260 KS7 MCW KS5,KS4A SET END OF STAT TAPE SWITCH KWIC5 0261 SBR KS30&3,KS34 SAME KWIC5 0262 B KS4A KWIC5 0263 KS8 SBR KS11&3,KS12 SET KW ~ STOP WD SWITCHES KWIC5 0264 SBR KS23A&3,KS24 KWIC5 0265 B KS10 KWIC5 0266 KS9 SBR KS11&3,KS13 SET KW LO SWITCHES KWIC5 0267 SBR KS23A&3,KS25 SAME KWIC5 0268 KS10 C TEMKW,STOUT&35 KWIC5 0269 BU KS23 BRANCH IF KW NOT EQU PREV. KW KWIC5 0270 KS11 B 0 TO KS12 OR KS13 KWIC5 0271 KS12 A C11,COUNT KW~SW KWIC5 0272 B KS14 KWIC5 0273 KS13 A C11,COUNT1 KWLO KWIC5 0274 B KS15 KWIC5 0275 KS14 BCE KS16,STINP&44,1 BRANCH IF THIS IS A STOP WORD KWIC5 0276 KS15 BSS KS22,B OMIT ENTRIES WHEN NOT IN STOPLIST KWIC5 0277 B KS17 KWIC5 0278 KS16 BSS KS17,B KWIC5 0279 B KS22 OMIT ENTRIES WHEN IN STOP LIST KWIC5 0280 KS17 NOP KS40 BR. IF KWOC KWIC5 0281 MCW FIELD,PRFLD KWIC5 0282 KS17A NOP KS17B BR. IF REFNO IN INPUT KWIC5 0283 MCW NAME,PRNAM KWIC5 0284 MZ DASH,DASH1 KWIC5 0285 MCW DATE,PRDAT KWIC5 0286 MZ DASH,DASH2 KWIC5 0287 MCW IDIOT,PRIDI KWIC5 0288 B KS18 KWIC5 0289 KS17B MCW IDIOT,PRREF KWIC5 0290 MCW REF12,PRREF&1 KWIC5 0291 KS18 C CPAGE,PGCT KWIC5 0292 BH KS19 BRANCH IF PAGE COUNT GRTR THAN 2 KWIC5 0293 C C31,LINCT KWIC5 0294 BE KS20 BRANCH IF LINE COUNT # 1 KWIC5 0295 B KS19 KWIC5 0296 KS20 CC L SKIP 10 SPACES KWIC5 0297 CC L KWIC5 0298 CC L KWIC5 0299 CC J KWIC5 0300 MCW C311,LINCT SET LINE COUNT TO 11 KWIC5 0301 KS19 B KS19M KWIC5 0302 SW 201 KWIC5 0303 MCW 275,295 KWIC5 0304 CS 220 KWIC5 0305 KS19M W KWIC5 0306 CS 299 KWIC5 0307 C CLINE,LINCT KWIC5 0308 BH KS21 BRANCH IF END OF PAGE KWIC5 0309 A C31,LINCT ADD ONE TO LINE COUNT KWIC5 0310 B KS22 KWIC5 0311 KS21 CC 1 EJECT FORM KWIC5 0312 MCW C31,LINCT SET LINE COUNT TO 1 KWIC5 0313 A C31,PGCT PAGE COUNT KWIC5 0314 KS22 B KS26 KWIC5 0315 KS23 SBR KS22&3,KS28 KWIC5 0316 KS23A B 0 TO KS24 OR KS25 KWIC5 0317 KS24 B WRST1 KW~SW UPOATE STAT TAPE KWIC5 0318 KS24A B RDST READ STAT TAPE KWIC5 0319 H KS24A ERROR KWIC5 0320 B KS24B EOF KWIC5 0321 B KS22 KWIC5 0322 KS24B MCW KS5,KS4A SET END OF STAT TAPE SWITCH KWIC5 0323 SBR KS30&3,KS34 KWIC5 0324 B KS22 KWIC5 0325 KS25 B WRST2 WRITE NEW KW ON STAT TAPE KWIC5 0326 B KS22 KWIC5 0327 KS26 B RDKW READ KW TAPE KWIC5 0328 KS26A H KS27 ERROR KWIC5 0329 B KS29 KWIC5 0330 MCW BLK36,TEMKW SAVE NEW KEY WORD KWIC5 0331 SBR X2,0 KWIC5 0332 MCW LGKW,X2 KWIC5 0333 MCW BEGKW-1&X2,TEMKW-36&X2 KWIC5 0334 B KS10 GO SEE IF KW SAME AS PREVIOUS KWIC5 0335 KS27 CS 299 KWIC5 0336 B KS18 KWIC5 0337 KS28 SBR KS22&3,KS26 RESET BRANCH FOR 1ST KW OF A KIND KWIC5 0338 B KS4B GO CHECK KW AGAINST STOP WD KWIC5 0339 KS29 C KS23A&3,&KS24 KWIC5 0340 BE KS31 BRNAHC IF KW ~ STOP WD KWIC5 0341 B WRST2 WRITE NEW KW ON STAT TAPE KWIC5 0342 KS30 B KS32 OR TO KS34 KWIC5 0343 KS31 B WRST1 UPDATE STAT TAPE KWIC5 0344 B KS30 KWIC5 0345 KS32 B RDST COPY REMAINDER OF OLD STAT TAPE KWIC5 0346 H KS32 ERROR TO NEW STAT TAPE KWIC5 0347 B KS34 KWIC5 0348 B WRST1 KWIC5 0349 B KS32 KWIC5 0350 KS34 WTM 4 KWIC5 0351 RWD 2 KWIC5 0352 RWD 3 KWIC5 0353 RWD 4 KWIC5 0354 CS 299 KWIC5 0355 CC 1 KWIC5 0356 MCW @END KWIC5@,229 KWIC5 0357 W KWIC5 0358 CC L KWIC5 0359 CC L KWIC5 0360 CC L KWIC5 0361 H *-3 KWIC5 0362 * KWIC5 0363 *KEY WORD AND STAT TAPE READ ROUTINE KWIC5 0364 * KWIC5 0365 RDKW SBR RDXIT&3 SET RETURN KWIC5 0366 MCW ADR1,RD5&6 SET UP TO READ KWIC TAPE KWIC5 0367 SBR X1,6 KWIC5 0368 B RD1 KWIC5 0369 RDST SBR RDXIT&3 SET RETURN KWIC5 0370 MCW ADR2,RD5&6 SET UP TO READ STATISTICS TAPE KWIC5 0371 SBR X1,0 KWIC5 0372 RD1 MCW RDC1&X1,RD5&3 KWIC5 0373 MCW C21,CTR KWIC5 0374 RD5 RT 0,0 READ TAPE KWIC5 0375 BER RD6 BRANCH IF TAPE ERROR KWIC5 0376 BEF RD8 KWIC5 0377 BCE RD5B,RD5&3,3 BR. IF KW TAPE KWIC5 0378 C STINP&35,CSTAT#36 KWIC5 0379 BL RD5A KWIC5 0380 CS 180 STAT. TAPE OUT OF SEQUENCE KWIC5 0381 MCW @04STAT. TAPE OUT OF SEQ@,123 KWIC5 0382 P KWIC5 0383 CS 18O KWIC5 0384 P KWIC5 0385 SS 8 KWIC5 0386 H RD1 KWIC5 0387 RD5A MCW STINP&35,CSTAT KWIC5 0388 RD5B NOP RD11 BR. IF KWOC KWIC5 0389 RD5C SW RDXIT&3-2 KWIC5 0390 A C38,RDXIT&3 KWIC5 0391 CW RDXIT&3-2 KWIC5 0392 RDXIT B 0 RETURN KWIC5 0393 RD6 MCW RDC1&X1,RD6A&3 KWIC5 0394 A C11,CTR KWIC5 0395 BCE RD7,CTR,0 BRANCH IF COUNTER # 10 KWIC5 0396 RD6A BSP 0 KWIC5 0397 B RD5 GO TRY TO READ RECORD AGAIN KWIC5 0398 RD7 CS 180 CLEAR PUNCH AREA KWIC5 0399 MCW ADR2&X1,RD7A&3 KWIC5 0400 RD7A MCM 0,101 PUNCH BAD RECORD KWIC5 0401 P PUNCH BAD RECORD KWIC5 0402 CS 180 KWIC5 0403 MCW CMNT1,150 KWIC5 0404 MCW RDC1&X1,119 KWIC5 0405 P PUNCH ERROR COMMENT KWIC5 0406 CS 180 KWIC5 0407 P KWIC5 0408 SS 4 KWIC5 0409 B RDXIT KWIC5 0410 RD8 MN RD5&3,RD9&3 KWIC5 0411 RD9 RWD 0 KWIC5 0412 CS 180 KWIC5 0413 MCW CMNT2,110 KWIC5 0414 MN RD5&3,102 KWIC5 0415 MN RD5&3,110 KWIC5 0416 P KWIC5 0417 CS 180 KWIC5 0418 P KWIC5 0419 SS 4 KWIC5 0420 H KWIC5 0421 BSS RDXIT1,F BR. IF NO MORE REELS KWIC5 0422 BCE RD10,RD9&3,2 KWIC5 0423 MN @3@,TL3&3 CHECK KW TAPE LABEL KWIC5 0424 SBR TL3A&6,TL11 KWIC5 0425 MCW TL9,TL7 KWIC5 0426 B TL1 KWIC5 0427 B RD1 KWIC5 0428 RD11 MCW LKW,LGKW MOVE KW AND LENGTH KW TO KWIC KWIC5 0429 MCW KEYWD,BEGKW&19 INPUT AREA KWIC5 0430 B RD5C KWIC5 0431 RD10 MN @2@,TL3&3 CHECK START TAPE LABEL KWIC5 0432 SBR TL3A&6,TL12 KWIC5 0433 MCW TL10,TL7 KWIC5 0434 B TL1 KWIC5 0435 B RD1 KWIC5 0436 RDXIT1 SW RDXIT&3-2 KWIC5 0437 A C34,RDXIT&3 KWIC5 0438 CW RDXIT&3-2 KWIC5 0439 B RDXIT KWIC5 0440 RDC1 DCW %U2 STAT INPUT KWIC5 0441 ADR2 DCW &STINP H.O. POS OF STAT. READ AREA KWIC5 0442 DCW %U3 KW INPUT KWIC5 0443 ADR1 DCW &KWINP H.O. POS OF KW READ AREA KWIC5 0444 CMNT1 DCW @97TAPE ERROR ON 000.PRECEEDNG RECRD NOT PROCESSED.@ KWIC5 0445 * KWIC5 0446 *STAT TAPE WRITE ROUTINE KWIC5 0447 * KWIC5 0448 WRST1 SBR WRXIT&3 SAVE RETURN ADDRESS AND SET UP T KWIC5 0449 SBR X1,0 ADDRESSES KWIC5 0450 B WR1 KWIC5 0451 WRST2 SBR WRXIT&3 KWIC5 0452 SBR X1,3 KWIC5 0453 WR1 MCW WRC2&X1,WR2&6 KWIC5 0454 MCW C11,WRT1 KWIC5 0455 WR2 WT 4,0 WRITE STAT TAPE KWIC5 0456 BER WR6 BRANCH IF TAPE ERROR KWIC5 0457 BEF WR7 BRANCH IF END OF REEL KWIC5 0458 WRXIT B 0 KWIC5 0459 WR6 BSP 4 BACKSPACE OVER BAD RECORD KWIC5 0460 BCE WR8,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC5 0461 A C11,WRT1 ADD TO BAD RECORD COUNTER KWIC5 0462 B WR2 GO TRY TO WRITE AGAIN KWIC5 0463 WR8 SKP 4 BLANK BAD RECORD KWIC5 0464 MCW C11,WRT1 RESET BAD RECORD COUNTER KWIC5 0465 B WR2 GO TRY TO WRITE AGAIN KWIC5 0466 WR7 WTM 4 KWIC5 0467 RWU 4 KWIC5 0468 CS 180 PRINT COMMENT KWIC5 0469 MCW WRC1,143 KWIC5 0470 P KWIC5 0471 CS 180 KWIC5 0472 P KWIC5 0473 SS 4 KWIC5 0474 H KWIC5 0475 B TL20 WRITE HEADER LABEL KWIC5 0476 B WRXIT KWIC5 0477 WRC1 DCW @98REMOVE TAPE 4,LABEL SAME, MOUNT NEW TAPE.@ KWIC5 0478 WRC2 DCW &STINP UPDATE COUNT KWIC5 0479 DCW &STOUT WRITE NEW KEY WORD KWIC5 0480 *THIS ROUTINE CHECKS INPUT TAPE LABELS KWIC5 0481 TL1 SBR TL4&3 KWIC5 0482 MN TL3&3,TL6A&3 KWIC5 0483 TL2 MCW C11,CTR1#1 KWIC5 0484 TL3 RT 0,INLBL KWIC5 0485 BER TL6 KWIC5 0486 TL3A C INLBL&29,0 KWIC5 0487 TL4 BE 0 KWIC5 0488 TL5 CS 180 KWIC5 0489 MN TL3&3,TL5A&3 KWIC5 0490 TL5A BSP 2 KWIC5 0491 MCM TL7-8,101 KWIC5 0492 P KWIC5 0493 CS 180 KWIC5 0494 P KWIC5 0495 SS 4 KWIC5 0496 H TL2 KWIC5 0497 TL6 A C11,CTR1 KWIC5 0498 TL6A BSP 2 KWIC5 0499 BCE TL5,CTR1,0 KWIC5 0500 B TL3 KWIC5 0501 TL7 DCW @ @ KWIC5 0502 TL8 DC @ TAPE LABEL ERROR@ KWIC5 0503 DCW @}@ KWIC5 0504 TL9 DCW @10KEYWORD@ KWIC5 0505 TL10 DCW @11STAT. @ KWIC5 0506 TL11 DCW @KEYWORDTAP@ KWIC5 0507 TL12 DCW @STATISTICS@ KWIC5 0508 *THIS ROUTINE URITES STATISTICS TAPE LABEL KWIC5 0509 TL20 SBR TL22A&3 KWIC5 0510 RWD 4 KWIC5 0511 TL21 MCW C10,CTR1 KWIC5 0512 TL22 WT 4,OUTLBL KWIC5 0513 BER TL23 KWIC5 0514 TL22A B 0 KWIC5 0515 TL23 BSP 4 KWIC5 0516 A C11,CTR1 KWIC5 0517 BCE TL24,CTR1,3 KWIC5 0518 B TL22 KWIC5 0519 TL24 SKP 4 KWIC5 0520 B TL20 KWIC5 0521 OUTLBL DCW @1@ KWIC5 0522 DC @HDR@ KWIC5 0523 DC #16 KWIC5 0524 DC @STATISTICS@ KWIC5 0525 DC #50 KWIC5 0526 DCW @}@ KWIC5 0527 CPAGE DCW 000 KWIC5 0528 CLINE DCW 000 KWIC5 0529 INLBL DA 1X30,G KWIC5 0530 KWINP DA 1X14 KWIC5 0531 NAME 1,6 KWIC5 0532 DATE 7,8 KWIC5 0533 IDIOT 9,11 KWIC5 0534 BEGOUT DA 1X60 KWIC5 0535 BEGKW 25 KWIC5 0536 FIELD 60 KWIC5 0537 LGKW DCW 00 KWIC5 0538 REF12 DCW 0 KWIC5 0539 DCW @}@ KWIC5 0540 CMNT2 DCW @00EOF ON 0@ KWIC5 0541 DA 1X35 KWIC5 0542 TEMKW DC 0 TEMPORARY KW COMPARE AREA KWIC5 0543 BLK36 DCW @ @ KWIC5 0544 C10 DCW 0 KWIC5 0545 KS40 MCW &TITLE,X3 SET FOR BEGINNING OF TITLE KWIC5 0546 C KEYWD,CKEYWD#20 TEST FOR KWIC5 0547 BE KS41 NEW KEYWORD KWIC5 0548 SW NEWKW REMEMBER NEW KW KWIC5 0549 MCW KEYWD,CKEYWD SAVE NEW KW KWIC5 0550 KS41 C LINCT,@001@ TOP OF PAGE TEST KWIC5 0551 BU KS40A KWIC5 0552 B HDNGRN EJECT TO NEXT PAGE KWIC5 0553 KS40A BW KWRTN,NEWKW PRINT NEW KW KWIC5 0554 CW NEWKW FORGET NEW KW KWIC5 0555 SBR X2,203 KWIC5 0556 MCM 0&X3,0&X2 MOVE TITLE LINE TO PRINT KWIC5 0557 SBR TEMP#3 KWIC5 0558 MCM 0&X3,0&X2 KWIC5 0559 SAR X3 SET FOR NEXT LINE KWIC5 0560 MCW TEMP,X2 ERASE KWIC5 0561 MCW @ @,0&X2 REC MK KWIC5 0562 BCE KS47,0&X3,} END OF TITLE [GM] KWIC5 0563 KS42 BW KS49,OVPRSW SHALL WE OVERPRINT KWIC5 0564 KS43 W PRINT TITLE LINE W/O SUPP KWIC5 0565 CS 332 KWIC5 0566 CS KWIC5 0567 KS44 A @1@,LINCT KWIC5 0568 A @1@,LINCTR KWIC5 0569 C CLINE,LINCT TEST FOR END OF PAGE KWIC5 0570 BL KS45 KWIC5 0571 MCW @001@,LINCT KWIC5 0572 KS45 BW KS51,REFSW BR - MUST PRINT REFNO BELOW TITLE KWIC5 0573 KS46 BW KS52,EOTSW BR - FINISHED THIS TITLE KWIC5 0574 B KS41 EXIT TO GET NEXT LINE OF TITLE KWIC5 0575 KS47 SW EOTSW KWIC5 0576 A @13@,TEMP KWIC5 0577 C TEMPR,TEMP KWIC5 0578 BH KS48 KWIC5 0579 B REFNSR KWIC5 0580 B KS42 KWIC5 0581 KS48 SW REFSW KWIC5 0582 B KS42 KWIC5 0583 KS49 C LINCTR,LINTTL KWIC5 0584 BE KS50 BR - KW THIS LINE KWIC5 0585 B KS43 KWIC5 0586 KS50 W PRINT LINE W/SUPP KWIC5 0587 DC @S@ KWIC5 0588 CS 332 KWIC5 0589 CS KWIC5 0590 MCW LOCKW,X1 KWIC5 0591 A LKW,X1 KWIC5 0592 ZA LKW,X2 KWIC5 0593 MZ *-1,X2 KWIC5 0594 MCW KEYWD-20&X2,202&X1 MOVE KW TO POSITION IN TITLE KWIC5 0595 DCW @2S@ OVER-PRINT KWIC5 0596 W OVERPRINT & SPACE KWIC5 0597 CS 332 KWIC5 0598 CS KWIC5 0599 B KS44 KWIC5 0600 KS51 C LINCT,@001@ TOP OF PAGE KWIC5 0601 BE HDNGRN BR - YES KWIC5 0602 B REFNSR SET-UP REF NO KWIC5 0603 W PRINT IT KWIC5 0604 CS 332 KWIC5 0605 CS KWIC5 0606 CW REFSW FORGET OT KWIC5 0607 A @1@,LINCT BUMP LINE COUNT KWIC5 0608 B KS46 RETURN KWIC5 0609 KS52 CW EOTSW FORGET END OF TITLE KWIC5 0610 CC J EXTRA SPACES BETWEEN TITLES KWIC5 0611 MCW @001@,LINCTR RESET TITLE LINE CTR KWIC5 0612 C LINCT,@001@ KWIC5 0613 BE KS52A KWIC5 0614 A @1@,LINCT KWIC5 0615 KS52A B KS22 GO GET ANOTHER TITLE KWIC5 0616 HDNGRN SBR HDNGX&3 KWIC5 0617 CC 1 KWIC5 0618 C CPAGE,@1@ KWIC5 0619 BH KS53 BR - NO SPACES KWIC5 0620 CC L TEN KWIC5 0621 CC L SPACES KWIC5 0622 CC L KWIC5 0623 CC J KWIC5 0624 A @10@,LINCT BUMP PAGE LINE CNT KWIC5 0625 S @1@,CPAGE DECREMENT KWIC5 0626 MZ *-1,CPAGE HEADING PAGE CNT KWIC5 0627 KS53 BW KS54,NEWKW KWIC5 0628 MCW @%CONTINUATION)@,235 KWIC5 0629 B KS55 KWIC5 0630 KS54 CW NEWKW ERASE NEW KW SIGNAL KWIC5 0631 KS55 B KWRTN GO PRINT KW KWIC5 0632 HDNGX B 0 RETURN KWIC5 0633 KWRTN SBR KWX&3 KWIC5 0634 MCW KEYWD,220 KWIC5 0635 BW KS57,OVPRSW KWIC5 0636 W PRINT W/O SUPP KWIC5 0637 CS 299 KWIC5 0638 KS56 A @1@,LINCT KWIC5 0639 KWX B 0 RETURN KWIC5 0640 KS57 DCW @2@ KWIC5 0641 DC @S@ KWIC5 0642 CS 299 KWIC5 0643 MCW KEYWD,220 KWIC5 0644 DCW @2S@ OVER-PRINT W/SUPP KWIC5 0645 W OVER-PRINT & SPACE KWIC5 0646 CS 299 KWIC5 0647 B KS56 KWIC5 0648 REFNSR SBR REFX&3 KWIC5 0649 MCW TEMPR,X1 KWIC5 0650 BCE KS58,SIGN-1,D BR - USER REF NO KWIC5 0651 LCA @ - - @,0&X1 SET PRINT MASK KWIC5 0652 MCE FREFNO-1,0&X1 MOVE AND EDIT KWIC KWIC5 0653 MZ FREFNO-1,0&X1 GENERATED REF NO KWIC5 0654 REFX B 0 KWIC5 0655 KS58 MCW FREFNO,0&X1 KWIC5 0656 B REFX KWIC5 0657 LINCTR DCW 001 CURRENT LINE NO. IN THIS TITLE KWIC5 0658 DA 1X540,G KWIC5 0659 LINTTL 1,2 0660 LOCKW 3,5 0661 LKW 6,7 0662 KEYWD 8,27 0663 FREFNO 28,39 0664 TITLE 41,41 0665 END START KWIC5 0101 JOB 1401 KWIC- TAPE-TO-TAPE AND REFNO ASSIGNMENT KWIC6 0102 CTL 431 0103 TITLE EQU 60 KWIC6 0104 REF EQU 71 KWIC6 0105 REF12 EQU 72 KWIC6 0106 SEQ EQU 74 KWIC6 0107 CDTYP EQU 75 KWIC6 0108 DEPT EQU 76 KWIC6 0109 SETNO EQU 80 KWIC6 0110 NAME EQU 4 KWIC6 0111 AUTHOR EQU TITLE KWIC6 0112 SUBJ EQU AUTHOR KWIC6 0113 ABST EQU SUBJ KWIC6 0114 YEAR EQU ABST KWIC6 0115 SOURCE EQU YEAR KWIC6 0116 ORG 81 KWIC6 0117 DCW @}@ KWIC6 0118 ORG 87 KWIC6 0119 X1 DCW 000 KWIC6 0120 ORG 92 KWIC6 0121 X2 DCW 000 KWIC6 0122 ORG 97 KWIC6 0123 X3 DCW 000 KWIC6 0124 ORG 101 KWIC6 0125 C31 DCW 001 KWIC6 0126 C359 DCW 059 KWIC6 0127 C3I9I DCW @I9I@ KWIC6 0128 SIGN DCW @SSW @ KWIC6 0129 C1R DCW @1@ KWIC6 0130 C1N DCW @N@ KWIC6 0131 SW1 DCW 0 KWIC6 0132 T3A DA 1X3 KWIC6 0133 1,1 KWIC6 0134 2,2 KWIC6 0135 T3B 3,3 KWIC6 0136 DCW @}@ KWIC6 0137 DCW 004 KWIC6 0138 DCW 003 KWIC6 0139 DCW 002 KWIC6 0140 NOCH DCW 001 KWIC6 0141 SWADR DCW &CHAR1 KWIC6 0142 DCW &CHAR2 KWIC6 0143 DCW &CHAR3 KWIC6 0144 DCW &CHAR4 KWIC6 0145 DCW @}@ KWIC6 0146 CHAR1 DCW @A@ KWIC6 0147 DCW @}@ KWIC6 0148 DCW @BY@ KWIC6 0149 DCW @TO@ KWIC6 0150 DCW @AS@ KWIC6 0151 DCW @AT@ KWIC6 0152 DCW @AN@ KWIC6 0153 DCW @ON@ KWIC6 0154 DCW @IN@ KWIC6 0155 CHAR2 DCW @OF@ KWIC6 0156 DCW @}@ KWIC6 0157 DCW @FOR@ KWIC6 0158 DCW @AND@ KWIC6 0159 CHAR3 DCW @THE@ KWIC6 0160 DCW @}@ KWIC6 0161 DCW @SOME@ KWIC6 0162 DCW @FROM@ KWIC6 0163 CHAR4 DCW @WITH@ KWIC6 0164 ORG 333 KWIC6 0165 STDCH DC @ZYXWVUTSRQPONMLKJIHGFEDCBA@ 0166 WRAREA DA 1X4 1ST 4 LETTERS OF AUTHORS NAME KWIC6 0167 DCW 00 2 INITIALS KWIC6 0168 DCW 00 YEAR KWIC6 0169 REFNO DCW 000 LAST CHAR OF 1ST 3 WORDS OF TITLE KWIC6 0170 DA 1X64 KWIC6 0171 DCW @}@ KWIC6 0172 SAVE DA 1X882 SAVE CARDS WHILE BUILDING REFNO KWIC6 0173 C11 DCW 1 KWIC6 0174 C30 DCW 000 KWIC6 0175 CDCNT DCW 00000 CARD COUNT KWIC6 0176 RECCT DCW 000 NO. RECORDS IN PRESEN CARD SET KWIC6 0177 START CS 80 0178 SW 1,61 0179 SW 73,75 KWIC6 0180 SW 76,77 KWIC6 0181 RWD 2 KWIC6 0182 RWD 6 KWIC6 0183 CC 1 KWIC6 0184 CS 299 KWIC6 0185 MCW @KWIC6 ON@,228 KWIC6 0186 W KWIC6 0187 CC L KWIC6 0188 CC L KWIC6 0189 CC L KWIC6 0190 * KWIC6 0191 *THIS ROUTINE PERFORMS INITIAL SETUP KWIC6 0192 * KWIC6 0193 BSS RN1,D BRANCH IF REFNO IN INPUT KWIC6 0194 B RN2 KWIC6 0195 RN1 SBR RN7A&3,RN9 BRANCH AROUND REFNO ASSIGNMENT KWIC6 0196 SBR RN9A&3,RN7C KWIC6 0197 SBR RN15&3,RN18 KWIC6 0198 CW WRAREA&4,WRAREA&6 KWIC6 0199 CW WRAREA&8 KWIC6 0200 MCW @D@,SIGN-3 KWIC6 0201 RN2 BSS RN2M,B BR. IF NO AUTHOR CARDS IN INPUT KWIC6 0202 B RN3 KWIC6 0203 * KWIC6 0204 *NO AUTHOR CARDS IN INPUT KWIC6 0205 * KWIC6 0206 RN2M MCW @B@,RN6A1 KWIC6 0207 MCW @B@,SIGN-5 KWIC6 0208 MCW @B@,RN7 KWIC6 0209 MCW @B@,RN37L KWIC6 0210 RN3 BSS RN3M,C BR. IF NO SOURCE CARDS IN INPUT KWIC6 0211 B RN4 KWIC6 0212 * KWIC6 0213 *NO SOURCE CARDS IN INPUT KWIC6 0214 * KWIC6 0215 RN3M MCW &RN40,RN14A&3 KWIC6 0216 MCW @N@,RN16F KWIC6 0217 MCW @C@,SIGN-4 KWIC6 0218 RN4 BSS RN4M,E BR. IF NO SUBJECT CARDS IN INPUT KWIC6 0219 B RN5 KWIC6 0220 * KWIC6 0221 *NO SUBJECT CARDS IN INPUT KWIC6 0222 * KWIC6 0223 RN4M MCW @B@,RN20 KWIC6 0224 MCW @N@,RN16G KWIC6 0225 MCW @E@,SIGN-2 KWIC6 0226 RN5 BSS RN5M,F BR. IF NO ABSTRACT CARDS IN INPUT KWIC6 0227 B RN5R KWIC6 0228 * KWIC6 0229 *NO ABSTRACT CARDS IN INPUT KWIC6 0230 * KWIC6 0231 RN5M MCW @B@,RN25 KWIC6 0232 MCW @N@,RN16H KWIC6 0233 MCW @F@,SIGN-1 KWIC6 0234 RN5R BSS RN5T,G KWIC6 0235 RN5S C 46,CEND SKIP OVERLAY 0236 BE HD1 0237 R RN5S 0238 HD1 R KWIC6 0239 MCW 15,CLBL&14 KWIC6 0240 MCW KWIC6 0241 C 3,@***@ KWIC6 0242 BE HD3 KWIC6 0243 HD2 CS 299 KWIC6 0244 MCW @CONTROL CARD ERROR@,238 KWIC6 0245 W KWIC6 0246 CC L KWIC6 0247 CC L KWIC6 0248 CC L KWIC6 0249 H HD1 KWIC6 0250 * KWIC6 0251 *CHECK INPUT LABEL KWIC6 0252 * KWIC6 02540HD3 B HD3A KWIC6 0255 B HD20 KWIC6 0256 HD3A SBR HDXIT&3 KWIC6 02570HD5 RWD 6 KWIC6 02571 BCE HDXIT,CLBL&3,1 NO LABEL KWIC6 02572 RT 6,INLBL KWIC6 0258 BCE HD6,CLBL&4,1 KWIC6 0259 C CLBL&14,INLBL&29 KWIC6 0260 BE HD6 KWIC6 0262 CS 299 KWIC6 0263 MCW @INPUT LABEL ERROR@,237 KWIC6 0264 W KWIC6 0265 CC L KWIC6 0266 CC L KWIC6 0267 CC L KWIC6 0268 H HD5 KWIC6 02690HD6 RT 6,TM1 KWIC6 0270 BEF HDXIT KWIC6 0271 BSP 6 KWIC6 0272 HDXIT B 0 KWIC6 02725TM1 DA 1X3,G KWIC6 02730HD20 B WRLBL KWIC6 02731 B HD21 KWIC6 02732WRLBL SBR WXIT&3 KWIC6 02733 RWD 2 KWIC6 02734W1 WT 2,LABEL KWIC6 02735 BER W2 KWIC6 02736WXIT B 0 KWIC6 02737W2 BSP 2 KWIC6 02738 SKP 2 KWIC6 02739 B W1 KWIC6 0276 HD21 CS 299 0277 MCW SIGN,230 KWIC6 0278 MCW CLBL&14,250 PRINT OPTIONS 0279 MCW 0280 W KWIC6 0281 CC L KWIC6 0282 CC L KWIC6 0283 CC L KWIC6 0284 B RN6 0285 RN5T MCW @G@,SIGN 0286 OVLAY 0287 RN6 B READ KWIC6 0288 B RN32 SEQ. ERR) KWIC6 0289 MZ @ @,73 KWIC6 0290 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0291 B RN6C KWIC6 0292 * KWIC6 02930*WRITE CARD TYPE 6 AND HIGHER. KWIC6 0294 * KWIC6 02945RN6A BWZ *&5,CDTYP,2 KWIC6 02946 B RN6A2 KWIC6 02947 C CDTYP,@5@ KWIC6 02948 BL RN6A2 KWIC6 02952 MCW C30,RECCT KWIC6 02953 BCE RN6C,CDTYP,0 KWIC6 0296 RN6A1 NOP RN6F BR. IN NO AUTHOR CARDS KWIC6 0297 BCE RN6C,CDTYP,1 BR.IF AUTHOR CARD KWIC6 02975 B RN35 KWIC6 0298 RN6A2 MCW ABST,WRAREA&73 KWIC6 0299 MCW SEQ,WRAREA&13 KWIC6 0300 MCW CDTYP,WRAREA&11 KWIC6 0301 B WRITE KWIC6 0302 B READ KWIC6 0303 B RN33 END OF JOB KWIC6 0304 MZ @ @,73 KWIC6 0305 RN6B A C11,CDCNT KWIC6 0306 B RN6A KWIC6 0307 * KWIC6 0308 *THIS ROUTINE PERFORMS AUTHOR SEQUENCING KWIC6 0309 * KWIC6 0310 RN6C SBR X1,0 KWIC6 0311 SBR RECCT,0 KWIC6 0312 SBR X2,0 KWIC6 0313 SBR X3,0 KWIC6 0314 RN6D BCE RN6E,CDTYP,0 BR. IF HEADER CARD KWIC6 0315 B RN7 KWIC6 0316 RN6E MCW AUTHOR,SAVE&62&X1 SAVE HEADER CARD KWIC6 0317 MCW CDTYP,SAVE&X1 KWIC6 0318 MCW SEQ,SAVE&2&X1 KWIC6 0319 SBR X1,63&X1 KWIC6 0320 B READ KWIC6 0321 B RN32 SEQ ERR KWIC6 0322 MZ @ @,73 KWIC6 0323 A C11,CDCNT KWIC6 0324 B RN6D KWIC6 0325 RN6F BCE RN6C,CDTYP,2 BR. IF TITLE CARD KWIC6 03260 B RN35 KWIC6 0327 RN7 NOP RN9A BR. IF NO AUTHOR CARDS KWIC6 0328 RN7A BCE RN8,CDTYP,1 BR. IF AUTHOR CARD KWIC6 0329 RN7B CS 299 KWIC6 0330 MCW CDCNT,CMNT1-16 KWIC6 0331 MCW CMNT1,254 KWIC6 0332 W KWIC6 0333 MCM 1,219 KWIC6 0334 W KWIC6 0335 CC L KWIC6 0336 CC L KWIC6 0337 CC L KWIC6 0338 H RN37A KWIC6 0339 RN7C MCW REF,REFNO KWIC6 0340 MN REF12,REFNO&64 KWIC6 0341 MZ REF12,REFNO&64 KWIC6 0342 B RN13 KWIC6 0343 RN8 MCW NAME,REFNO-7 SAVE 1ST 4 CHARS OF NAME KWIC6 0344 SBR RN8A&6,1 SAVE AUTHOR INITIALS KWIC6 0345 MZ RN8B,RN8A&5 KWIC6 0346 SBR X2,0 KWIC6 0347 RN8A BCE RN8B,1&X2, KWIC6 0348 SBR X2,1&X2 KWIC6 0349 B RN8A KWIC6 0350 RN8B MCW 3&X2,REFNO-5 KWIC6 0351 RN9 MCW AUTHOR,SAVE&62&X1 SAVE AUTHOR KWIC6 0352 MCW CDTYP,SAVE&X1 SAVE CARD TYPE KWIC6 0353 MCW SEQ,SAVE&2&X1 SAVE SEQUENCE NO. KWIC6 0354 SBR X1,63&X1 KWIC6 0355 B READ KWIC6 03560 B RN16F KWIC6 0357 MZ @ @,73 KWIC6 0358 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0359 BCE RN9B,CDTYP,1 BRANCH IF AUTHOR CARD KWIC6 0360 RN9A BCE RN10,CDTYP,2 BRANCH IF TITLE CARD KWIC6 0361 B RN7B KWIC6 0362 RN9B C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC6 0363 BH RN9 OK KWIC6 0364 B RN7B ERROR KWIC6 0365 * KWIC6 0366 *THIS ROUTINE PERFORMS TITLE SEQUENCING KWIC6 0367 * KWIC6 0368 RN10 SBR X2,1 0369 MCW BLNK3#3,T3B KWIC6 0370 CHAIN2 KWIC6 0371 SBR RN11B5&6,T3A 0372 RN11A MN TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0373 MZ TITLE-60&X2,RN11A3&7 LOCATE KEYWORD 0374 RN11A3 BCE RN11B,STDCH,0 0375 CHAIN25 0376 SBR X2,1&X2 0377 BCE RN12R,X2-1,6 0378 B RN11A 0379 RN11B SBR HOKW#3,TITLE-60&X2 0380 RN11B5 MCW TITLE-60&X2,0 0381 RN11B6 MN TITLE-60&X2,RN11B7&7 0382 MZ TITLE-60&X2,RN11B7&7 0383 RN11B7 BCE RN11B8,STDCH,0 0384 CHAIN25 0385 B RN11C 0386 RN11B8 SBR X2,1&X2 0387 B RN11B6 0388 RN11C SBR LGKW#3,TITLE-60&X2 COMPARE KW WITH STOP WORD 0389 S HOKW,LGKW KWIC6 0390 MZ @ @,LGKW KWIC6 0391 SBR X3,0 KWIC6 0392 S C31,X2 0393 MZ @ @,X2 0394 MCW &NOCH,RN11D&6 KWIC6 0395 RN11D C LGKW,0 KWIC6 0396 SBR RN11D&6 KWIC6 0397 SBR RN11E&6 KWIC6 0398 BE RN12 LGKW EQU LGSW KWIC6 0399 RN11E BCE RN12J,0,} LGKW NOT EQU LGSW KWIC6 0400 SBR X3,3&X3 KWIC6 0401 B RN11D KWIC6 0402 RN12 MCW SWADR&X3,RN12D&6 KWIC6 0403 RN12D C TITLE-60&X2,0 0404 SBR RN12D&6 KWIC6 0405 SBR RN12G&6 KWIC6 0406 BU RN12G KWIC6 0407 B RN12M KW EQU SW KWIC6 0408 RN12G BCE RN12J,0,} KW NOT EQU SW KWIC6 0409 B RN12D KWIC6 0410 RN12J C RN11B5&6,&T3B 0411 BE RN12R KWIC6 0412 MA C31,RN11B5&6 0413 RN12M SBR X2,2&X2 0414 B RN11A KWIC6 0415 RN12R MCW T3B,REFNO KWIC6 0416 CHAIN2 KWIC6 0417 RN13 MCW TITLE,SAVE&62&X1 SAVE TITLE KWIC6 0418 MCW SEQ,SAVE&2&X1 KWIC6 0419 MCW CDTYP,SAVE&X1 KWIC6 0420 SBR X1,63&X1 KWIC6 0421 B READ KWIC6 0422 B RN16F KWIC6 0423 MZ @ @,73 KWIC6 0424 A C11,CDCNT ADD 1 TO CARD COUNT KWIC6 0425 BCE RN16A,CDTYP,2 BRANCH IF TITLE CARD KWIC6 0426 RN14A B RN15 RN40 IF NO SOURCE CARDS KWIC6 0427 B RN20 KWIC6 0428 RN15 BCE RN17,CDTYP,3 BRANCH IF SOURCE CARD KWIC6 0429 B RN7B SEQ. ERROR KWIC6 0430 RN16A C SAVE-61&X1,SEQ CHECK SEQUENCE KWIC6 0431 BH RN13 OK KWIC6 0432 B RN7B ERROR KWIC6 0433 * KWIC6 0434 *LAST CARD ROUTINE KWIC6 0435 * KWIC6 0436 RN16F B RN32 KWIC6 0437 B RN40 KWIC6 0438 RN16G B RN35 KWIC6 0439 RN16H B RN35 KWIC6 0440 B RN33 KWIC6 0441 * KWIC6 0442 *THIS ROUTINE PERFORMS SOURCE SEQUENCING KWIC6 0443 * KWIC6 0444 RN17 MCW YEAR,REFNO-3 SAVE YEAR FOR REFNO KWIC6 0445 RN18 B RN40 KWIC6 0446 RN18A MCW SOURCE,WRAREA&73 KWIC6 0447 MCW SEQ,WRAREA&13 KWIC6 0448 MCW CDTYP,WRAREA&11 KWIC6 0449 B WRITE WRITE SOURCE CARD KWIC6 0450 B READ KWIC6 0451 B RN16G KWIC6 0452 MZ @ @,73 KWIC6 0453 RN18C A C11,CDCNT KWIC6 0454 BCE RN20A,CDTYP,3 BRANCH IF SOURCE CARD KWIC6 0455 RN20 NOP RN25 BR. IF NO SUBJECT CARDS KWIC6 0456 RN20B BCE RN21,CDTYP,4 BRANCH IF SUBJECT CARD KWIC6 0457 B RN35 KWIC6 0458 RN20A C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0459 BH RN18A OK KWIC6 0460 B RN35 ERROR KWIC6 0461 * KWIC6 0462 *THIS ROUTINE PERFORMS SUBJECT SEQUENCING KWIC6 0463 * KWIC6 0464 RN21 MCW SUBJ,WRAREA&73 KWIC6 0465 MCW SEQ,WRAREA&13 KWIC6 0466 MCW CDTYP,WRAREA&11 KWIC6 0467 B WRITE WRITE SUBJECT CARD KWIC6 0468 B READ KWIC6 0469 B RN16H KWIC6 0470 MZ @ @,73 KWIC6 0471 RN21A A C11,CDCNT KWIC6 0472 B RN24A KWIC6 0473 RN23 BCE RN34A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0474 B RN34 SEQ. ERROR KWIC6 0475 RN24 BCE RN34A,CDTYP,4 BRANCH IF SUBJECT.# KWIC6 0476 B RN34 SEQ. ERROR KWIC6 0477 RN24A BCE RN25B,CDTYP,4 BRANCH IF SUBJECT CARD KWIC6 0478 RN25 NOP RN6A BR. IF NO ABSTRACT CARDS KWIC6 0479 RN25A BCE RN26,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0480 B RN35 KWIC6 0481 RN25B C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0482 BH RN21 OK KWIC6 0483 B RN35 ERROR KWIC6 0484 * KWIC6 0485 *THIS ROUTINE PERFORMS ABSTRACT SEQUENCING KWIC6 0486 * KWIC6 0487 RN26 MCW ABST,WRAREA&73 KWIC6 0488 MCW SEQ,WRAREA&13 KWIC6 0489 MCW CDTYP,WRAREA&11 KWIC6 0490 B WRITE WRITE ABSTRACT CARD KWIC6 0491 B READ KWIC6 0492 B RN33 END OF JOB KWIC6 0493 MZ @ @,73 KWIC6 0494 RN26A A C11,CDCNT KWIC6 0495 BCE RN27A,CDTYP,5 BRANCH IF ABSTRACT CARD KWIC6 0496 B RN6A KWIC6 0497 RN27A C WRAREA&13,SEQ CHECK SEQUENCE KWIC6 0498 BH RN26 OK KWIC6 0499 B RN35 ERROR KWIC6 0500 RN32 CS 299 KWIC6 0501 MCW CDCNT,CMNT1-16 KWIC6 0502 MCW CMNT1,254 KWIC6 0503 W KWIC6 0504 MCM 1,219 KWIC6 0505 W KWIC6 0506 CC L KWIC6 0507 CC L KWIC6 0508 CC L KWIC6 0509 H KWIC6 0510 * KWIC6 0511 *THE END KWIC6 0512 * KWIC6 0513 RN33 WTM 2 KWIC6 0514 RWD 2 KWIC6 0515 RWD 6 KWIC6 0516 CS 299 KWIC6 0517 MCW @END KWIC6@,229 KWIC6 0518 W KWIC6 0519 CC L KWIC6 0520 CC L KWIC6 0521 CC L KWIC6 0522 H *-3 KWIC6 0523 RN34 EQU RN35 0524 RN34A MCW TITLE,WRAREA&73 KWIC6 0525 MCW SEQ,WRAREA&13 KWIC6 0526 MCW CDTYP,WRAREA&11 KWIC6 0527 B WRITE KWIC6 0528 B RN33 KWIC6 0529 RN35 CS 299 KWIC6 0530 MCW CDCNT,CMNT1-16 KWIC6 0531 MCW CMNT1,254 KWIC6 0532 W KWIC6 0533 MCM 1,219 KWIC6 0534 W KWIC6 0535 CC L KWIC6 0536 CC L KWIC6 0537 CC L KWIC6 0538 H KWIC6 0539 RN36 C RECCT,C30 PURGE BAD CARDS FROM TAPE KWIC6 0540 BE RN37A BR. IF ALL RECORDS PURGED KWIC6 0541 BSP 2 KWIC6 0542 S C11,RECCT KWIC6 0543 MZ C11,RECCT KWIC6 0544 B RN36 KWIC6 0545 RN37A B READ KWIC6 0546 B RN33 KWIC6 0547 MZ @ @,73 KWIC6 0548 A C11,CDCNT KWIC6 0549 BCE RN6C,CDTYP,0 BR. IF HEADER KWIC6 0550 RN37L NOP RN37M BR. IF NO AUTHOR CARDS KWIC6 0551 BCE RN6C,CDTYP,1 BR. IF AUTHOR KWIC6 0552 B RN37A KWIC6 0553 RN37M BCE RN6C,CDTYP,2 BR. IF TITLE KWIC6 0554 B RN37A KWIC6 0555 * KWIC6 0556 *WRITE SAVED CARDS KWIC6 0557 RN40 SBR XIT1&3 KWIC6 0558 SBR X2,0 KWIC6 0559 RN41 MCW SAVE&62&X2,WRAREA&73 MOVE CARD TO WRITE AREA KWIC6 0560 B WRITE WRITE TYPE KWIC6 0561 SBR X2,63&X2 KWIC6 0562 C X1,X2 KWIC6 0563 BL RN41 KWIC6 0564 XIT1 B 0 KWIC6 0565 * KWIC6 0566 *THIS ROUTINE WRITES THE OUTPUT TAPE KWIC6 0567 * KWIC6 0568 WRITE SBR WRXIT&3 SAVE RETURN ADDRESS KWIC6 0569 WR1A MCW C11,WRT1 KWIC6 0570 WR1 WT 2,WRAREA KWIC6 0571 BER WR2 BRANCH ON TAPE ERROR KWIC6 0572 BEF WR4 EOF KWIC6 0573 A C11,RECCT KWIC6 0574 WRXIT B 0 KWIC6 0575 WR2 BSP 2 KWIC6 0576 BCE WR3,WRT1,3 BRANCH IF 3RD BAD WRITE KWIC6 0577 A C11,WRT1 ADD 1 TO BAD COUNT KWIC6 0578 B WR1 KWIC6 0579 WR3 SKP 2 SKIP AND BLANK BAD RECORD KWIC6 0580 B WR1A KWIC6 0581 WR4 WTM 2 KWIC6 0582 RWU 2 KWIC6 0583 CS 299 KWIC6 0584 MCW @REMOVE TAPE 2, MOUNT BLANK REEL, CONTINUE.@,264 KWIC6 0585 W KWIC6 0586 CC L KWIC6 0587 CC L KWIC6 0588 CC L KWIC6 0589 H KWIC6 05910 B WRLBL KWIC6 0593 B WRXIT KWIC6 0594 LABEL DCW @1@ KWIC6 0595 DC @HDR@ KWIC6 0596 DC #16 KWIC6 0597 DC @BIBLIOGRAP@ KWIC6 0598 DC #50 KWIC6 0599 DCW @}@ KWIC6 0600 * KWIC6 0601 *INPUT TAPE READ ROUTINE KWIC6 0602 * KWIC6 0603 READ SBR RDXIT&3 KWIC6 0604 RD1 MCW C11,CTR1#1 KWIC6 0605 RD2 RT 6,1 KWIC6 0606 BER RD4 KWIC6 0607 BEF RD6 KWIC6 0608 RD3 MA @004@,RDXIT&3 KWIC6 0609 RDXIT B 0 KWIC6 0610 RD4 A C11,CTR1 KWIC6 0611 BCE RD5,CTR1,0 KWIC6 0612 BSP 6 KWIC6 0613 B RD2 KWIC6 0614 RD5 CS 299 KWIC6 0615 MCW @INPUT READ ERROR@,236 KWIC6 0616 W KWIC6 0617 CC L KWIC6 0618 CC L KWIC6 0619 CC L KWIC6 0620 H RD1 KWIC6 0621 RD6 CS 299 KWIC6 0622 MCW @MOUNT NXT INPUT OR SSW F ON@,247 KWIC6 0623 W KWIC6 0624 CC L KWIC6 0625 CC L KWIC6 0626 CC L KWIC6 0627 H KWIC6 0628 BSS RDXIT,F KWIC6 0629 BCE HD3A,CLBL&3, GO CHECK LABEL KWIC6 0630 B RD1 KWIC6 0631 CLBL DA 1X15 KWIC6 0632 6,6 KWIC6 0633 EOFSW DC #1 KWIC6 0634 INLBL DA 1X30,G KWIC6 0635 21,21 KWIC6 0636 WRT1 DCW 0 KWIC6 0637 CMNT1 DCW @CARD NUMBER 000000 OUT OF SEQUENCE@ KWIC6 0638 CS HD1,80 0639 CEND EQU * 0640 LTORG 0641 EX START 0642 ORG RN6 0643 *THIS ROUTINE PROCESSES TITLE CARDS ONLY 0644 TTLA CW WRAREA&4,WRAREA&6 KWIC6 0645 CW WRAREA&8 KWIC6 0646 SW 1,61 0647 SW 73,75 0648 SW 76,77 0649 TTL B READ KWIC6 0650 B RN33 KWIC6 0651 MZ @ @,73 KWIC6 0652 A @1@,CDCNT KWIC6 0653 C REF12,CREF12#12 KWIC6 0654 BE TTL4 KWIC6 0655 B TTL8 KWIC6 0656 TTL4 BCE TTL9,CDTYP,2 KWIC6 06565 B TTL10 KWIC6 0657 TTL5 CS 299 KWIC6 0658 MCW CDCNT,CMNT1-16 KWIC6 0659 MCW CMNT1,254 KWIC6 0660 W KWIC6 0661 MCM 1,219 KWIC6 0662 W KWIC6 0663 CC L KWIC6 0664 CC L KWIC6 0665 CC L KWIC6 0666 H TTL11 KWIC6 0667 TTL6 B READ KWIC6 0668 B RN33 KWIC6 0669 MZ @ @,73 KWIC6 0670 A @1@,CDCNT KWIC6 0671 C REF12,CREF12 KWIC6 0672 BE TTL6 KWIC6 0673 TTL7 MCW REF12,CREF12 KWIC6 06735 MCW C30,RECCT KWIC6 06736 MCW @ @,SEQ1 KWIC6 0674 B TTL4 KWIC6 0675 TTL8 MCW @ @,SEQ1#2 KWIC6 0676 B TTL7 KWIC6 0677 TTL9 C SEQ,SEQ1 KWIC6 06780 BL TTL9E KWIC6 0679 B TTL5 KWIC6 06795TTL9E MCW SEQ,SEQ1 KWIC6 0680 TTL10 MCW REF,REFNO KWIC6 0681 MN REF12,REFNO&64 KWIC6 0682 MZ REF12,REFNO&64 KWIC6 0683 MCW TITLE,WRAREA&73 KWIC6 0684 MCW SEQ,WRAREA&13 KWIC6 0685 MCW CDTYP,WRAREA&11 KWIC6 0686 B WRITE KWIC6 0688 B TTL KWIC6 0689 TTL11 C RECCT,C30 KWIC6 0690 BE TTL6 KWIC6 0691 BSP 2 KWIC6 0692 S @1@,RECCT KWIC6 0693 MZ @ @,RECCT KWIC6 0694 B TTL11 KWIC6 0695 END HD1 LIBDISTRIBUTION 004190 0003 00333020 00116 KWIC 1PID0203 0041910004 }