*START 4000 001472 *STACK 7777 000000 *SYM 000506 SEG. # TYPE LOW HIGH TOP 4000 PROC 000100 070420 070413 4001 PROC 177777 000000 117037 *BASE 004000 000100 000132 000777 000777 ROUTINE ECB PROCEDURE ST. SIZE LINK FR. #### 4000 001472 4000 001000 000460 000260 4000 001054 PROCG0 4000 002046 4000 001734 000052 000044 4000 001444 LISTL0 4000 002172 4000 002110 000366 000102 4000 001570 SIMPL0 4000 002334 4000 002272 000052 000032 4000 001730 CHECK0 4000 002510 4000 002362 000050 000044 4000 002104 COLLF0 4000 002750 4000 002550 000054 000036 4000 002342 GENER0 4000 003024 4000 003000 000050 000030 4000 002422 GENIF 4000 003252 4000 003052 000054 000076 4000 002646 GENEX0 4000 004034 4000 003344 000370 000154 4000 003422 PROPA0 4000 004466 4000 004176 000052 000050 4000 004052 REPLA0 4000 004544 4000 004522 000054 000026 4000 004144 NEGAT0 4000 004642 4000 004572 000050 000030 4000 004240 COPYT0 4000 004732 4000 004670 000050 000030 4000 004332 ENTEU0 4000 005034 4000 004762 000052 000030 4000 004432 EXPRT0 4000 005124 4000 005062 000046 000030 4000 004522 EXPRS0 4000 005216 4000 005152 000050 000026 4000 004616 SAVES0 4000 005322 4000 005244 000050 000040 4000 004720 RESTO0 4000 005442 4000 005360 000060 000036 4000 005036 MAKET0 4000 005530 4000 005474 000060 000034 4000 005126 REMOV0 4000 005734 4000 005562 000666 000042 4000 005330 INVOK0 4000 006200 4000 005772 000736 000042 4000 005572 ENTER0 4000 006470 4000 006234 000672 000052 4000 006062 DGETS0 4000 006776 4000 006534 000052 000046 4000 006362 GETFO0 4000 007236 4000 007030 000366 000042 4000 006630 SKIPW0 4000 007312 4000 007272 000050 000024 4000 006710 GETDE0 4000 007646 4000 007334 001522 000050 4000 007236 GETAC0 4000 010034 4000 007706 001202 000036 4000 007430 COLLE0 4000 010366 4000 010066 000056 000040 4000 007756 DELET0 4000 010512 4000 010416 000056 000026 4000 010110 INITI0 4000 011630 4000 010536 000046 001142 4000 011146 ENTES0 4000 012732 4000 012710 000054 000024 4000 012332 CLEAN0 4000 013012 4000 012756 000046 000034 4000 012410 LOADT0 4000 013214 4000 013044 000452 000104 4000 012610 GETTR0 4000 013364 4000 013314 000052 000026 4000 012762 GETSYM 4000 016034 4000 013410 000070 000304 4000 015356 CONVE0 4000 017200 4000 016262 000372 000076 4000 016562 REFIL0 4000 017362 4000 017260 000050 000042 4000 016756 PUTBA0 4000 017466 4000 017420 000046 000026 4000 017066 PUTBC0 4000 017546 4000 017514 000052 000024 4000 017146 PUTBB0 4000 017620 4000 017572 000250 000026 4000 017216 SYNERR 4000 020244 4000 017644 000460 000230 4000 017632 FATAL0 4000 020512 4000 020462 000046 000026 4000 020112 SDUPL 4000 020572 4000 020540 000050 000032 4000 020170 ENTET0 4000 020734 4000 020622 000356 000046 4000 020330 MAKEU0 4000 021174 4000 020776 000054 000036 4000 020562 LABGEN 4000 021232 4000 021220 000050 000022 4000 020632 VARGEN 4000 021350 4000 021254 000046 000036 4000 020746 SAVEM0 4000 021426 4000 021404 000042 000034 4000 021024 GETLO0 4000 021516 4000 021460 000046 000030 4000 021114 GENCH0 4000 021564 4000 021544 000056 000024 4000 021164 GENDB0 4000 021756 4000 021610 000054 000060 4000 021352 GENDA0 4000 022054 4000 022032 000042 000030 4000 021452 GENIN0 4000 022162 4000 022102 000050 000050 4000 021556 TLIT 4000 022262 4000 022226 000050 000026 4000 021660 OTHER0 4000 022760 4000 022306 000222 000110 4000 022340 DECLO0 4000 023110 4000 023050 000046 000032 4000 022504 EQUIV0 4000 023176 4000 023136 000046 000032 4000 022572 DATAO0 4000 023264 4000 023224 000046 000032 4000 022660 CODEO0 4000 023352 4000 023312 000046 000032 4000 022746 OTHER 4000 023560 4000 023400 000054 000050 4000 023150 COPYL0 4000 024074 4000 023620 000060 000054 4000 023462 ESCAP0 4000 024362 4000 024136 000254 000060 4000 023750 OUTTAB 4000 024540 4000 024430 000052 000034 4000 024134 OUTCH 4000 024676 4000 024570 000054 000040 4000 024270 OUTSTR 4000 025064 4000 024730 000056 000042 4000 024454 OUTDON 4000 025344 4000 025116 000056 000160 4000 024742 OUTGO 4000 026022 4000 025522 000052 000072 4000 025414 OUTNUM 4000 026214 4000 026106 000252 000052 4000 025612 OUTGO0 4000 026410 4000 026264 000046 000056 4000 026004 CLEAO0 4000 026726 4000 026462 000264 000060 4000 026320 FINDGO 4000 027066 4000 027000 000054 000026 4000 026464 OUTLIT 4000 027246 4000 027112 000060 000030 4000 026644 SETUP0 4000 027356 4000 027274 000372 000040 4000 026754 SETUQ0 4000 027524 4000 027414 000362 000064 4000 027120 ENTEV0 4000 027676 4000 027604 000360 000042 4000 027274 CREAT0 4000 030042 4000 027736 000060 000044 4000 027440 GENPS0 4000 030232 4000 030104 000062 000050 4000 027630 ENTEW0 4000 030342 4000 030300 000042 000030 4000 027740 EXITS0 4000 030476 4000 030370 000362 000036 4000 030074 GENPA0 4000 030640 4000 030532 000052 000044 4000 030236 GENPR0 4000 031136 4000 030702 000054 000062 4000 030530 GENPV0 4000 031462 4000 031212 000364 000064 4000 031060 GENPU0 4000 032342 4000 031544 000362 000176 4000 031734 GENPT0 4000 032726 4000 032532 000052 000132 4000 032324 BEGIN0 4000 033070 4000 033056 000042 000024 4000 032470 BEGIP0 4000 033166 4000 033114 000042 000062 4000 032564 BEGIO0 4000 033560 4000 033246 000044 000302 4000 033154 ENDMO0 4000 034062 4000 034056 000042 000022 4000 033462 STOPM0 4000 034176 4000 034104 000042 000110 4000 033574 RETUR0 4000 034354 4000 034304 000042 000072 4000 033752 ENDPR0 4000 035224 4000 034444 000044 000034 4000 034624 SETUR0 4000 035672 4000 035260 000064 000066 4000 035260 GENSE0 4000 036470 4000 035746 000114 000062 4000 036060 GENSF0 4000 037276 4000 036542 000074 000144 4000 036666 RATFO0 4000 040326 4000 037432 000066 000050 4000 037716 DECLA0 4000 042610 4000 040366 000074 000134 4000 042174 INCLU0 4000 043172 4000 042730 000360 000060 4000 042562 LINKA0 4000 043430 4000 043242 000050 000034 4000 043022 LOCAL0 4000 043650 4000 043456 000050 000036 4000 043242 PROCE0 4000 045226 4000 043700 000066 000106 4000 044610 STRDE0 4000 045530 4000 045316 000364 000052 4000 045122 STRTA0 4000 047530 4000 045574 002042 000070 4000 047106 ENDDE0 4000 047772 4000 047576 000050 000070 4000 047370 STATE0 4000 051432 4000 050060 000072 000100 4000 051024 IFSTMT 4000 052146 4000 051524 000060 000054 4000 051540 FORST0 4000 053226 4000 052214 000066 000070 4000 052616 WHILE0 4000 053620 4000 053306 000056 000064 4000 053212 REPEA0 4000 054306 4000 053676 000060 000064 4000 053700 PARBO0 4000 054566 4000 054364 000050 000040 4000 054162 BOOLE0 4000 055114 4000 054622 000056 000040 4000 054506 BOOLT0 4000 055440 4000 055146 000056 000040 4000 055032 BOOLF0 4000 055652 4000 055472 000054 000040 4000 055244 BOOLP0 4000 056472 4000 055704 000066 000042 4000 056060 BOOLO0 4000 057062 4000 056522 000054 000042 4000 056454 SELEC0 4000 061130 4000 057116 001516 000112 4000 060512 PROCF0 4000 061606 4000 061224 000056 000050 4000 061200 CASES0 4000 062626 4000 061650 000400 000104 4000 062212 DOSTMT 4000 063270 4000 062716 000056 000072 4000 062660 COMPO0 4000 063546 4000 063352 000052 000044 4000 063140 RETUS0 4000 064100 4000 063604 000052 000076 4000 063472 BREAK0 4000 064306 4000 064170 000056 000046 4000 063702 NEXTS0 4000 064466 4000 064350 000056 000046 4000 064062 STOPS0 4000 064656 4000 064530 000050 000070 4000 064250 GOTOS0 4000 065172 4000 064740 000054 000062 4000 064566 CALLS0 4000 065400 4000 065250 000052 000052 4000 064774 MKTABL 4000 065506 4000 065446 000052 000026 4000 065104 RMTABL 4000 065600 4000 065532 000052 000026 4000 065176 SCTABL 4000 066012 4000 065624 000064 000036 4000 065406 LOOKUP 4000 066120 4000 066044 000062 000024 4000 065520 ENTER 4000 066262 4000 066144 000064 000036 4000 065660 DELETE 4000 066350 4000 066316 000052 000026 4000 065750 ST$LU 4000 066516 4000 066376 000064 000030 4000 066114 DSGET 4000 067014 4000 066544 000070 000044 4000 066404 DSFREE 4000 067302 4000 067050 000066 000040 4000 066674 DSINIT 4000 067430 4000 067334 000050 000032 4000 067024 DSDUMP 4000 067662 4000 067456 000054 000034 4000 067256 DSDBIU 4000 070150 4000 067712 000056 000032 4000 067542 DIRECT ENTRY LINKS MKTEMP 4000 070174 CREATE 4000 070200 PARSCL 4000 070204 GFNARG 4000 070210 OPEN 4000 070214 RMTEMP 4000 070220 REWIND 4000 070224 TRUNC 4000 070230 CANT 4000 070234 ERROR 4000 070240 SWT 4000 070244 CLOSE 4000 070250 PRINT 4000 070254 ENCODE 4000 070260 FCOPY 4000 070264 GETLIN 4000 070270 REMARK 4000 070274 PUTCH 4000 070300 PUTLIN 4000 070304 EQUAL 4000 070310 GETARG 4000 070314 GCTOI 4000 070320 GCTOL 4000 070324 CTOI 4000 070330 ITOC 4000 070334 LTOC 4000 070340 MNTOC 4000 070344 PTOC 4000 070350 CTOC 4000 070354 INDEX 4000 070360 LENGTH 4000 070364 MAPSTR 4000 070370 MAPDN 4000 070374 SCOPY 4000 070400 SETERR 4000 070404 GETWRD 4000 070410 COMMON BLOCKS MISCOM 4001 001000 002051 GOCOM 4001 003052 007351 PRCCOM 4001 012424 000147 SELGEN 4001 012574 001013 CODEG0 4001 013610 000026 OUTFIL 4001 013636 000005 DS$MEM 4001 013644 077777 OBUFC0 4001 113644 001004 LOOPC0 4001 114650 000025 INCOM 4001 114676 001005 LEXCOM 4001 115704 001134 OTHER SYMBOLS SWT$TP 2030 120000 F192QFP5 4000 070414 SWT$CM 4040 010000