*START 4001 002344 *STACK 7777 000000 *SYM 001071 SEG. # TYPE LOW HIGH TOP 4001 PROC 000100 177775 177776 4002 PROC 177750 177775 177775 4003 DATA 177777 000000 177771 4004 PROC 000100 177776 177776 4005 PROC 000100 045743 045743 *BASE 004001 000100 000162 000777 000777 *BASE 004004 000100 000143 000777 000777 *BASE 004005 000100 000112 000777 000777 ROUTINE ECB PROCEDURE ST. SIZE LINK FR. #### 4001 002344 4001 001000 001160 000266 4001 001730 LDFIE0 4001 103300 4001 102714 000072 000062 4001 102672 STFIE0 4001 104060 4001 103354 000102 000142 4001 103444 AFIEL0 4001 104310 4001 104206 000054 000106 4001 103704 LFIEL0 4001 104514 4001 104412 000054 000166 4001 104110 ANDAW0 4001 104776 4001 104676 000060 000034 4001 104366 ANDLW0 4001 105254 4001 105022 000062 000036 4001 104644 LOADU0 4001 106150 4001 105302 000106 000132 4001 105522 VOIDF0 4001 107020 4001 106254 000106 000130 4001 106374 FLFIE0 4001 107460 4001 107124 000100 000060 4001 107050 FLOW 4001 110436 4001 107530 000074 000104 4001 110026 FLOWC0 4001 110710 4001 110532 000064 000040 4001 110302 FLOWIF 4001 111320 4001 110742 000110 000050 4001 110712 FLOWS0 4001 111542 4001 111362 000066 000040 4001 111136 FLOWT0 4001 111700 4001 111576 000066 000032 4001 111300 FLOWU0 4001 112112 4001 111732 000066 000040 4001 111506 FLOWV0 4001 112320 4001 112146 000066 000042 4001 111712 FLOWEQ 4001 113714 4001 112354 000134 000104 4001 113274 FLOWGE 4001 116342 4001 114000 000132 000130 4001 115700 FLOWGT 4001 120772 4001 116430 000132 000130 4001 120330 FLOWLE 4001 123422 4001 121060 000132 000130 4001 122760 FLOWLT 4001 126052 4001 123510 000132 000130 4001 125410 FLOWNE 4001 127440 4001 126140 000132 000104 4001 127020 FLOWN0 4001 127554 4001 127524 000062 000024 4001 127154 FLOWF0 4001 127616 4001 127600 000060 000022 4001 127216 CLEAY0 4001 127652 4001 127640 000042 000026 4001 127250 CLEAV0 4001 130220 4001 130212 000042 000024 4001 127616 RSVST0 4001 130616 4001 130242 000054 000042 4001 130214 RSVLI0 4001 130754 4001 130656 000052 000024 4001 130354 STACK0 4001 131010 4001 131000 000050 000022 4001 130410 LINKS0 4001 131044 4001 131032 000050 000024 4001 130442 FREES0 4001 131310 4001 131066 000052 000042 4001 130706 ALLOC0 4001 131400 4001 131350 000050 000026 4001 130774 FREET0 4001 131440 4001 131422 000050 000024 4001 131036 GENGE0 4001 131512 4001 131462 000050 000034 4001 131110 GENBR0 4001 131600 4001 131544 000052 000036 4001 131176 GENMR 4001 131714 4001 131634 000054 000036 4001 131310 GENLA0 4001 131776 4001 131746 000050 000034 4001 131374 SEQ 4001 132410 4001 132030 000126 000026 4001 132010 GENENT 4001 132476 4001 132436 000052 000040 4001 132074 GENECB 4001 132612 4001 132534 000064 000050 4001 132206 GENSH0 4001 132712 4001 132656 000052 000036 4001 132310 GENIP 4001 133020 4001 132746 000050 000044 4001 132414 GENIQ0 4001 133114 4001 133060 000050 000036 4001 132512 GENIP0 4001 133210 4001 133150 000050 000042 4001 132604 GENEXT 4001 133312 4001 133246 000050 000040 4001 132710 GENEX0 4001 133404 4001 133350 000050 000036 4001 133002 GENDA0 4001 133474 4001 133440 000050 000036 4001 133072 GENBSZ 4001 133564 4001 133530 000050 000036 4001 133162 LD 4001 133756 4001 133620 000056 000034 4001 133346 ST 4001 134132 4001 134002 000052 000034 4001 133522 GENAP 4001 134246 4001 134156 000060 000042 4001 133642 GENCO0 4001 134422 4001 134304 000100 000042 4001 134014 GENSW0 4001 135670 4001 134456 002506 000056 4001 135262 SETUQ0 4001 136652 4001 135740 000116 000054 4001 136240 GENDAC 4001 136750 4001 136714 000050 000036 4001 136346 GENSJ0 4001 137040 4001 137004 000050 000036 4001 136436 GENSK0 4001 137130 4001 137074 000050 000036 4001 136526 SETUP0 4001 137220 4001 137164 000050 000036 4001 136616 GETTR0 4001 137740 4001 137254 000062 001170 4001 137330 GET 4001 141176 4001 141120 000050 000030 4001 140574 LOAD 4001 142416 4001 141224 000056 000224 4001 142016 LOADB0 4001 143460 4001 142642 000120 000066 4001 143046 LOADA0 4001 144326 4001 143534 000112 000066 4001 143714 LOADD0 4001 145372 4001 144402 000120 000070 4001 144762 LOADC0 4001 146316 4001 145452 000120 000066 4001 145710 LOADE0 4001 150210 4001 146376 000136 000106 4001 147570 LOADF0 4001 150422 4001 150276 000062 000042 4001 150016 LOADJ0 4001 150700 4001 150460 000066 000046 4001 150272 LOADK0 4001 151070 4001 150740 000064 000036 4001 150462 LOADL0 4001 152246 4001 151120 000102 000126 4001 151624 LOADM0 4001 152460 4001 152352 000066 000044 4001 152054 LOADN0 4001 153506 4001 152520 000102 000104 4001 153060 LOADO0 4001 154334 4001 153564 000242 000106 4001 153724 LOADP0 4001 154572 4001 154432 000066 000036 4001 154166 LOADR0 4001 156124 4001 154624 000120 000106 4001 155502 LOADQ0 4001 157162 4001 156210 000120 000104 4001 156540 LOADS0 4001 157670 4001 157244 000072 000062 4001 157262 LOADEQ 4001 161050 4001 157744 000124 000076 4001 160430 LOADT0 4001 161140 4001 161126 000052 000022 4001 160540 LOADV0 4001 161764 4001 161162 000076 000066 4001 161356 LOADGE 4001 163652 4001 162044 000126 000120 4001 163220 LOADW0 4001 164006 4001 163740 000062 000034 4001 163402 LOADGT 4001 165642 4001 164036 000126 000116 4001 165212 LOADIF 4001 166304 4001 165730 000072 000052 4001 165676 LOADX0 4001 166510 4001 166350 000066 000036 4001 166104 LOADY0 4001 166564 4001 166542 000054 000024 4001 166164 LOADLE 4001 170416 4001 166610 000126 000120 4001 167764 LOAEA0 4001 171234 4001 170504 000122 000074 4001 170624 LOADZ0 4001 172410 4001 172012 000122 000070 4001 172002 LOADLT 4001 174276 4001 172472 000126 000116 4001 173646 LOAEC0 4001 175426 4001 174364 000122 000100 4001 175010 LOAEB0 4001 176430 4001 175510 000120 000100 4001 176012 LOAED0 4001 176676 4001 176512 000056 000040 4001 176272 LOAEE0 4001 177060 4001 176732 000062 000042 4001 176454 LOADNE 4001 177136 4004 001000 000124 000076 4001 176516 LOAEF0 4001 177370 4001 177214 000056 000040 4001 176764 LOAEG0 4001 177432 4001 177424 000052 000020 4001 177032 LOAEH0 4001 177642 4001 177452 000064 000040 4001 177232 LOAEI0 4001 177702 4004 002064 000120 000066 4001 177272 LOADOR 4004 004362 4004 003312 000120 000062 4004 003752 LOAEJ0 4004 005074 4004 004434 000110 000104 4004 004456 LOAEK0 4004 005624 4004 005162 000110 000104 4004 005206 LOAEL0 4004 006326 4004 005712 000106 000076 4004 005714 LOAEM0 4004 007026 4004 006412 000106 000076 4004 006414 LOAEN0 4004 007770 4004 007112 001226 000074 4004 007346 LOAEO0 4004 010156 4004 010042 000064 000034 4004 007554 LOAEQ0 4004 011050 4004 010210 000120 000074 4004 010432 LOAEP0 4004 011666 4004 011126 000116 000066 4004 011252 LOAER0 4004 011776 4004 011740 000056 000032 4004 011374 LOAET0 4004 012776 4004 012026 000122 000130 4004 012362 LOAES0 4004 013634 4004 013112 000122 000122 4004 013222 LOAEU0 4004 014062 4004 013744 000064 000044 4004 013456 LOAEV0 4004 014310 4004 014122 000064 000046 4004 013704 LOAEW0 4004 014600 4004 014352 000066 000060 4004 014170 LOAEX0 4004 014742 4004 014650 000060 000032 4004 014342 LOAEZ0 4004 015162 4004 014774 000064 000046 4004 014556 LOAFB0 4004 016066 4004 015224 000120 000076 4004 015446 LOAFA0 4004 016770 4004 016144 000116 000076 4004 016350 LOAFC0 4004 017254 4004 017046 000464 000046 4004 016652 LOAFD0 4004 017416 4004 017320 000062 000032 4004 017016 LOAFE0 4004 020022 4004 017450 000070 000062 4004 017414 LOAFG0 4004 020666 4004 020076 000116 000062 4004 020260 LOAFF0 4004 021410 4004 020742 000116 000056 4004 021002 LOADH0 4004 022370 4004 021460 000120 000124 4004 021746 LOADI0 4004 023240 4004 022472 000106 000122 4004 022616 LOADG0 4004 024104 4004 023340 000106 000120 4004 023464 IALLOC 4002 177750 4004 024204 000052 000024 4002 177350 TALLOC 4004 124354 4004 124272 000052 000024 4004 123754 CLEAT0 4004 124400 4001 177760 000042 000022 4004 124000 CLEAZ0 4004 124422 4001 177764 000042 000022 4004 124022 CLEBA0 4004 124444 4001 177770 000042 000022 4004 124044 IFREE 4004 124466 4001 177774 000046 000020 4004 124066 TFREE 4004 124506 4002 177774 000046 000020 4004 124106 STRSA0 4004 124616 4004 124526 000050 000034 4004 124214 CLEAX0 4004 124700 4004 124650 000044 000030 4004 124276 ENTEV0 4004 125106 4004 124726 000054 000040 4004 124502 MEM$01 4004 125224 4004 125142 000056 000026 4004 124622 LOOKX0 4004 125322 4004 125250 000056 000026 4004 124720 DELEW0 4004 125402 4004 125346 000050 000026 4004 125002 PANIC 4004 125476 4004 125430 000100 000034 4004 125074 WARNI0 4004 125570 4004 125530 000100 000026 4004 125166 INITI0 4004 126114 4004 125614 000042 000124 4004 125512 MKLAB0 4004 126250 4004 126236 000050 000022 4004 125650 SAFE 4004 126406 4004 126272 000054 000024 4004 126002 OPHAS0 4004 126566 4004 126426 000060 000032 4004 126164 MODULE 4004 126642 4004 126616 000042 000042 4004 126242 GENER0 4004 127042 4004 126704 000216 000042 4004 126436 GENEU0 4004 127272 4004 127100 000050 000054 4004 126664 GENET0 4004 127514 4004 127340 000046 000052 4004 127110 GENES0 4004 130632 4004 127562 000252 000124 4004 130212 OPTIM0 4004 134460 4004 130736 000162 000104 4004 134024 SIMPL0 4004 135234 4004 134530 000070 000060 4004 134614 OVERL0 4004 135404 4004 135274 000066 000020 4004 135004 ADCOPY 4004 135450 4004 135424 000052 000022 4004 135046 ADEQU0 4004 135710 4004 135470 000056 000026 4004 135304 INITO0 4004 135764 4004 135732 000046 000044 4004 135364 OTG 4004 136400 4004 136150 000060 000040 4004 136000 OTGBR0 4004 136564 4004 136440 000064 000036 4004 136156 OTGLA0 4004 136770 4004 136614 000060 000042 4004 136366 OTGMR 4004 137210 4004 137030 000064 000040 4004 136600 OTGMI0 4004 140232 4004 137240 000106 000124 4004 137604 OTGPS0 4004 141130 4004 140330 000134 000114 4004 140514 OTG$AP 4004 141474 4004 141230 000074 000042 4004 141060 OTG$C0 4004 141612 4004 141522 000050 000034 4004 141206 OTG$D0 4004 141676 4004 141642 000056 000026 4004 141276 OTG$E0 4004 142010 4004 141724 000056 000032 4004 141404 OTG$F0 4004 142162 4004 142036 000056 000106 4004 141556 OTG$G0 4004 142370 4004 142264 000074 000034 4004 141764 OTG$I0 4004 142440 4004 142420 000050 000024 4004 142036 OTG$J0 4004 142556 4004 142462 000136 000034 4004 142150 OTG$K0 4004 142700 4004 142604 000136 000034 4004 142272 OTG$IP 4004 142776 4004 142726 000054 000032 4004 142372 OTG$M0 4004 144130 4004 143024 000102 000450 4004 143460 OTG$L0 4004 144552 4004 144530 000050 000026 4004 144150 OTG$O0 4004 144616 4004 144576 000050 000024 4004 144214 OTG$P0 4004 145024 4004 144640 000070 000050 4004 144416 OTG$S0 4004 145106 4004 145066 000050 000024 4004 144504 OTG$U0 4004 145150 4004 145130 000052 000024 4004 144546 OTG$X0 4004 145266 4004 145172 000134 000036 4004 144660 OTG$V0 4004 145336 4004 145316 000050 000024 4004 144734 GROUP 4004 145606 4004 145360 000052 000036 4004 145202 FLUSH 4004 145736 4004 145640 000044 000034 4004 145334 CLEAW0 4004 146020 4004 145770 000044 000030 4004 145416 ENTEU0 4004 156252 4004 156050 000054 000036 4004 155646 LIT$01 4004 156444 4004 156304 000056 000042 4004 156036 LOOKW0 4004 156552 4004 156500 000056 000026 4004 156150 DELEV0 4004 156632 4004 156576 000050 000026 4004 156232 RESON0 4004 157004 4004 156660 000056 000026 4004 156402 GETLI0 4004 157172 4004 157030 000064 000034 4004 156566 CLEAS0 4004 157252 4004 157222 000044 000030 4004 156650 ENTES0 4004 163514 4004 163302 000056 000040 4004 163110 DELET0 4004 163604 4004 163550 000050 000026 4004 163204 EXT$01 4004 163742 4004 163632 000062 000030 4004 163340 LOOKU0 4004 164042 4004 163770 000056 000026 4004 163440 RESOM0 4004 164216 4004 164066 000056 000032 4004 163612 GETEX0 4004 164366 4004 164244 000062 000034 4004 163762 CLEAR0 4004 164430 4004 164416 000042 000026 4004 164026 ENTER0 4004 174626 4004 174456 000056 000036 4004 174224 ENT$01 4004 174736 4004 174662 000054 000030 4004 174334 RESOL0 4004 175110 4004 174764 000070 000034 4004 174506 CLEAU0 4004 175172 4004 175142 000044 000030 4004 174570 ENTET0 4004 175400 4004 175220 000054 000040 4004 174774 LAB$01 4004 175516 4004 175434 000056 000026 4004 175114 LOOKV0 4004 175614 4004 175542 000056 000026 4004 175212 DELEU0 4004 175674 4004 175640 000050 000026 4004 175274 GETLA0 4004 176136 4004 175722 000070 000040 4004 175532 PUTIN0 4004 176312 4004 176172 000052 000040 4004 175712 OUT$03 4004 176570 4004 176352 000106 000522 4004 176156 OUT$01 4005 022026 4005 021006 000164 000734 4005 021370 OUT$02 4004 177406 4004 177300 000102 000056 4004 177000 OUT$04 4005 022736 4004 177456 000062 001474 4005 022324 OUT$05 4005 027170 4005 024420 000136 000742 4005 026530 ZEROL0 4004 177714 4004 177636 000050 000024 4004 177310 PUTENT 4005 030074 4004 177734 000056 000060 4005 027472 PUTMO0 4005 030206 4005 030152 000044 000062 4005 027604 PUTST0 4005 030306 4005 030266 000044 000026 4005 027704 PUTMP0 4005 030366 4005 030332 000044 000044 4005 027764 REACH 4005 030776 4005 030530 000062 000050 4005 030370 REACI0 4005 031400 4005 031040 000064 000060 4005 030766 REACL0 4005 031510 4005 031446 000062 000026 4005 031106 REACJ0 4005 032016 4005 031534 000102 000042 4005 031406 REACM0 4005 032376 4005 032050 000102 000046 4005 031764 REACK0 4005 033636 4005 032432 000116 000070 4005 033214 REACN0 4005 034006 4005 033704 000066 000032 4005 033406 REACH0 4005 035654 4005 034040 000144 000126 4005 035234 MULABY 4005 036340 4005 035762 000062 000064 4005 035704 MULLBY 4005 036514 4005 036370 000060 000040 4005 036106 DIVABY 4005 037200 4005 036546 000066 000066 4005 036544 DIVLBY 4005 037460 4005 037232 000064 000044 4005 037050 LSHIF0 4005 037722 4005 037514 000054 000040 4005 037314 LSHIG0 4005 040264 4005 037754 000054 000042 4005 037654 RSHIF0 4005 040522 4005 040316 000054 000036 4005 040116 RSHIG0 4005 041002 4005 040554 000054 000040 4005 040374 ARSHI0 4005 041124 4005 041034 000050 000026 4005 040522 ARSHJ0 4005 041240 4005 041150 000050 000026 4005 040636 VOID 4005 041532 4005 041264 000056 000054 4005 041126 VOIDA0 4005 041772 4005 041602 000064 000052 4005 041366 VOIDB0 4005 042216 4005 042040 000062 000042 4005 041614 VOIDIF 4005 042632 4005 042256 000072 000052 4005 042224 VOIDP0 4005 043330 4005 042676 000106 000060 4005 042716 VOIDQ0 4005 044100 4005 043376 000106 000064 4005 043464 VOIDS0 4005 044222 4005 044150 000056 000030 4005 043622 VOIDR0 4005 044444 4005 044252 000064 000052 4005 044040 VOIDT0 4005 044720 4005 044512 000464 000046 4005 044316 MISSIN 4005 045150 4005 045144 000016 000020 4005 044550 F$LS71 4005 045306 4005 045170 000022 000000 4001 177377 F$RS71 4005 045326 4005 045217 000022 000000 4001 177377 F$SH71 4005 045346 4005 045222 000022 000000 4001 177377 F$LS77 4005 045366 4005 045246 000022 000000 4001 177377 F$RS77 4005 045406 4005 045252 000022 000000 4001 177377 F$SH77 4005 045426 4005 045256 000022 000000 4001 177377 F$LT 4005 045624 4005 045446 000020 000140 4005 045204 F$RT 4005 045604 4005 045463 000020 000140 4005 045204 F$OR 4005 045644 4005 045525 000020 000140 4005 045204 F$RS 4005 045664 4005 045531 000020 000140 4005 045204 F$LS 4005 045704 4005 045535 000020 000140 4005 045204 F$SH 4005 045724 4005 045564 000020 000140 4005 045204 DIRECT ENTRY LINKS OPEN 4004 177774 PARSCL 4005 044764 STRCMP 4005 044770 TRUNC 4005 044774 CANT 4005 045000 ERROR 4005 045004 SWT 4005 045010 PRINT 4005 045014 ENCODE 4005 045020 GETLIN 4005 045024 WRITEF 4005 045030 READF 4005 045034 MARKF 4005 045040 SEEKF 4005 045044 PUTCH 4005 045050 PUTLIN 4005 045054 FLUSH$ 4005 045060 EQUAL 4005 045064 RTOC 4005 045070 DTOC 4005 045074 GITOC 4005 045100 GLTOC 4005 045104 CTOP 4005 045110 CTOV 4005 045114 CTOC 4005 045120 LENGTH 4005 045124 MAPSTR 4005 045130 SCOPY 4005 045134 SETERR 4005 045140 COMMON BLOCKS VCGCM3 4001 002616 077777 VCGCOM 4001 102616 000075 FRAME0 4001 127676 000313 RTR$CM 4001 171320 000471 MISCOM 4001 177776 000001 VCGCM2 4002 001000 176750 VCGCM1 4003 000000 177772 MEMCOM 4004 024266 100004 OTGCOM 4004 136030 000117 LITCOM 4004 146046 010002 EXTCOM 4004 157300 004002 ENTCOM 4004 164454 010001 LABCOM 4005 001000 020005 PWR$CM 4005 030430 000100 OTHER SYMBOLS SWT$TP 2030 120000 F192QFP5 4001 177777 SWT$CM 4040 010000