*START 2035 005561 *STACK 7777 000000 *SYM 001066 SEG. # TYPE LOW HIGH TOP 2035 PROC 000100 163371 163371 4000 PROC 001000 001375 001375 4000 DATA 177777 000000 077777 4040 PROC 177777 000000 006026 *BASE 002035 000100 000301 000777 000777 ROUTINE ECB PROCEDURE ST. SIZE LINK FR. R3POFH 2035 001170 2035 001000 000030 000000 2035 005161 GFDATA 2035 010032 2035 005562 001466 000310 2035 007374 SFDATA 2035 012102 2035 010304 002134 000176 2035 011454 GTACL$ 2035 013074 2035 012252 001336 000126 2035 012446 PARSA$ 2035 014552 2035 013174 000234 000202 2035 014110 MKPACL 2035 015212 2035 014712 000360 000074 2035 014574 MKSACL 2035 015630 2035 015270 000066 000072 2035 015214 LOOKAC 2035 015752 2035 015706 000052 000030 2035 015350 PAGE 2035 022436 2035 016000 064330 003530 2035 021772 PG$BRK 2035 026130 2035 026122 000046 000024 2035 025530 VTREAD 2035 026450 2035 026154 000074 000176 2035 026040 VT$GET 2035 030456 2035 026636 000114 000200 2035 030022 VT$DEF 2035 031170 2035 030622 000074 000332 2035 030554 VT$IDF 2035 031634 2035 031506 000052 000122 2035 031226 VT$NDF 2035 032142 2035 031750 000072 000212 2035 031532 VT$GSQ 2035 032560 2035 032344 000216 000120 2035 032150 VT$ERR 2035 032720 2035 032670 000046 000034 2035 032314 VTOPT 2035 033214 2035 032750 000054 000322 2035 032610 VT$DSW 2035 033664 2035 033532 000050 000030 2035 033260 VTPRT 2035 034066 2035 033710 000430 000034 2035 033462 VTPUTL 2035 034140 2035 034116 000056 000024 2035 033540 VTCLR 2035 034252 2035 034164 000064 000162 2035 033650 VTSTOP 2035 034450 2035 034432 000042 000032 2035 034046 VTUPD 2035 035144 2035 034500 000070 000100 2035 034534 VTMSG 2035 035644 2035 035234 000060 000042 2035 035240 VT$PUT 2035 036240 2035 035702 000062 000050 2035 035636 VTILIN 2035 037256 2035 036306 000066 000226 2035 036650 VTDLIN 2035 040414 2035 037476 000070 000226 2035 040006 VTMOVE 2035 040660 2035 040634 000050 000026 2035 040260 VT$OUT 2035 041122 2035 040706 000052 000054 2035 040516 VTINIT 2035 041400 2035 041172 000052 000114 2035 040766 VTTERM 2035 044350 2035 041502 000724 002404 2035 043702 VT$ALC 2035 047014 2035 046706 000056 000032 2035 046406 VT$DB 2035 047316 2035 047040 000212 000602 2035 046714 VT$CLR 2035 050164 2035 050116 000052 000036 2035 047560 VT$POS 2035 051566 2035 050216 000116 000104 2035 051146 VT$REL 2035 052346 2035 051652 000072 000056 2035 051742 VT$DEL 2035 052470 2035 052420 000052 000026 2035 052066 VT$RDF 2035 052666 2035 052514 000060 000040 2035 052262 VT$DB1 2035 053004 2035 052722 000222 000044 2035 052402 VT$DB2 2035 053314 2035 053046 000216 000132 2035 052704 VT$IER 2035 053472 2035 053436 000060 000076 2035 053070 VTPAD 2035 053672 2035 053566 000050 000172 2035 053270 VT$DB3 2035 054154 2035 054062 000052 000112 2035 053552 VTENB 2035 054342 2035 054264 000054 000036 2035 053740 VTGETL 2035 054540 2035 054376 000064 000034 2035 054134 VTINFO 2035 054706 2035 054570 000052 000042 2035 054302 VT$ILN 2035 055012 2035 054744 000052 000036 2035 054406 VT$DLN 2035 055112 2035 055044 000052 000036 2035 054506 VT$CEL 2035 055206 2035 055144 000052 000032 2035 054602 VTBAUD 2035 055266 2035 055234 000046 000024 2035 054664 DMPCM$ 2035 055650 2035 055310 001222 000710 2035 055246 GETA$P 2035 056650 2035 056556 000260 000030 2035 056244 GETA$F 2035 056766 2035 056674 000260 000030 2035 056362 GETA$PLG 2035 057102 2035 057016 000266 000037 2035 056476 SYS$$ 2035 057450 2035 057136 000276 000066 2035 057050 #### 2035 057474 2035 057371 000016 000066 2035 057050 REONU$ 2035 057600 2035 057536 000034 000026 2035 057200 GCIFU$ 2035 057636 2035 057626 000050 000022 2035 057236 GTATTR 2035 057704 2035 057660 000050 000024 2035 057302 GTTYPE 2035 057766 2035 057726 000050 000030 2035 057364 TTYP$F 2035 060202 2035 060014 000222 000060 2035 057572 TTYP$Q 2035 060426 2035 060252 000220 000170 2035 060022 TTYP$V 2035 060750 2035 060612 000374 000104 2035 060342 TTYP$L 2035 061264 2035 061046 000364 000154 2035 060656 TTYP$R 2035 061466 2035 061432 000050 000030 2035 061064 MATCH 2035 061556 2035 061514 000064 000022 2035 061156 AMATCH 2035 062044 2035 061600 000070 000030 2035 061440 OMATCH 2035 062344 2035 062070 000066 000062 2035 061736 LOCATE 2035 062462 2035 062420 000056 000020 2035 062062 PATSIZ 2035 062634 2035 062502 000052 000066 2035 062220 MAKPAT 2035 063424 2035 062706 000104 000044 2035 063010 GETCCL 2035 063620 2035 063454 000062 000034 2035 063210 STCLOS 2035 064002 2035 063644 000064 000026 2035 063376 MAKSUB 2035 064260 2035 064024 000066 000036 2035 063650 CATSUB 2035 064430 2035 064306 000076 000024 2035 064026 FILSET 2035 064756 2035 064452 000070 000136 2035 064354 DODASH 2035 065212 2035 065112 000072 000026 2035 064612 ADDSET 2035 065272 2035 065240 000060 000020 2035 064672 ESC 2035 065412 2035 065312 000052 000026 2035 065004 LDTMP$ 2035 065714 2035 065432 000622 000136 2035 065302 ICOMN$ 2035 066132 2035 066040 000044 000060 2035 065526 IOINIT 2035 066402 2035 066206 000046 000126 2035 065766 TSCAN$ 2035 070044 2035 066514 000122 000176 2035 067416 FILCPY 2035 071140 2035 070214 000364 000074 2035 070512 CPSEG$ 2035 071530 2035 071206 000064 000044 2035 071116 CPFIL$ 2035 071674 2035 071562 002062 000032 2035 071266 SPROT$ 2035 072100 2035 071720 000106 000056 2035 071472 FILTST 2035 073032 2035 072150 000266 000062 2035 072410 GETVDN 2035 073254 2035 073072 000224 000054 2035 072646 MKDIR$ 2035 073506 2035 073322 000114 000042 2035 073100 MKTEMP 2035 073612 2035 073542 000072 000044 2035 073206 CREATE 2035 073710 2035 073652 000052 000030 2035 073306 VFYUSR 2035 074126 2035 073736 000262 000064 2035 073516 PARSCL 2035 075454 2035 074202 000476 000232 2035 075020 GKLARG 2035 075754 2035 075652 000056 000032 2035 075344 GFNARG 2035 076620 2035 075776 000056 000126 2035 076174 GVLARG 2035 077104 2035 076722 000054 000036 2035 076472 DELARG 2035 077202 2035 077130 000050 000030 2035 076600 MKFD$ 2035 077374 2035 077230 000054 000060 2035 076760 OPEN 2035 100200 2035 077440 000414 000276 2035 077552 DOPEN$ 2035 100674 2035 100450 000116 000050 2035 100264 LOPEN$ 2035 102112 2035 100734 000610 000130 2035 101452 DMPFD$ 2035 102654 2035 102202 000362 000512 2035 102242 STRBSR 2035 103446 2035 103354 000066 000024 2035 103044 STRLSR 2035 103544 2035 103470 000064 000024 2035 103142 STRCMP 2035 103652 2035 103566 000052 000022 2035 103250 RMTEMP 2035 103724 2035 103672 000050 000030 2035 103322 CALL$$ 2035 104476 2035 103752 000526 000070 2035 104076 LDSEG$ 2035 105544 2035 104566 001200 000104 2035 105116 CHUNK$ 2035 106010 2035 105622 000062 000042 2035 105376 ZMEM$ 2035 106100 2035 106040 000032 000024 2035 105500 IOFL$ 2035 106252 2035 106124 000054 000032 2035 105644 REMOVE 2035 106340 2035 106276 000076 000030 2035 105736 RMFIL$ 2035 106600 2035 106366 000074 000050 2035 106162 RMSEG$ 2035 107016 2035 106632 000054 000036 2035 106406 REWIND 2035 107060 2035 107044 000050 000022 2035 106460 TRUNC 2035 107244 2035 107102 000056 000046 2035 106634 WIND 2035 107316 2035 107302 000050 000022 2035 106716 INIT 2035 107426 2035 107340 000042 000024 2035 107026 INIT$F 2035 107576 2035 107452 000044 000040 2035 107166 CANT 2035 107654 2035 107626 000046 000026 2035 107252 ERROR 2035 107716 2035 107700 000046 000030 2035 107314 SWT 2035 107746 2035 107744 000042 000022 2035 107346 RTN$$ 2035 110010 2035 107770 000024 000034 2035 107410 COF$ 2035 110160 2035 110044 000052 000042 2035 107554 CLOSE 2035 110430 2035 110216 000054 000052 2035 110012 EXECN 2035 110506 2035 110464 000212 000026 2035 110104 EXEC 2035 110570 2035 110532 000074 000030 2035 110166 FINDF$ 2035 110654 2035 110616 000052 000026 2035 110250 FINFO$ 2035 111032 2035 110676 000130 000042 2035 110420 FOLLOW 2035 111362 2035 111062 000236 000074 2035 110746 GETTO 2035 112572 2035 111442 001444 000146 2035 112142 BPONU$ 2035 112722 2035 112710 000046 000056 2035 112322 MKTR$ 2035 113654 2035 113000 000464 000116 2035 113226 EXPAND 2035 114234 2035 113744 000546 000032 2035 113624 LUTEMP 2035 115062 2035 114256 000752 000076 2035 114446 GTEMP 2035 115364 2035 115144 000062 000026 2035 114756 INPUT 2035 115664 2035 115404 000742 000076 2035 115254 PRINT 2035 116102 2035 115752 000730 000032 2035 115476 PARSDT 2035 116404 2035 116130 000076 000052 2035 115772 PARSTM 2035 116770 2035 116444 000062 000036 2035 116356 DATE 2035 117624 2035 117014 000122 000376 2035 117210 ENCODE 2035 126344 2035 120206 000352 000170 2035 125674 DECODE 2035 132370 2035 126464 000522 000102 2035 131736 FCOPY 2035 132630 2035 132440 002056 000046 2035 132222 GETCH 2035 132720 2035 132670 000054 000024 2035 132316 GETLIN 2035 133146 2035 132742 000064 000050 2035 132536 DGETL$ 2035 133574 2035 133206 000052 000024 2035 133174 TGETL$ 2035 133636 2035 133620 000056 000026 2035 133236 TCOOK$ 2035 135312 2035 133664 000100 000116 2035 134644 PUTDEC 2035 135446 2035 135362 000104 000026 2035 135044 REMARK 2035 135540 2035 135472 000046 000032 2035 135134 PUTLIT 2035 135612 2035 135566 000222 000026 2035 135210 WRITEF 2035 136064 2035 135636 000060 000054 2035 135454 DWRIT$ 2035 136462 2035 136130 000074 000050 2035 136056 TWRIT$ 2035 136556 2035 136526 000060 000022 2035 136156 READF 2035 136742 2035 136600 000060 000042 2035 136334 DREAD$ 2035 137350 2035 136776 000072 000052 2035 136742 TREAD$ 2035 137462 2035 137414 000060 000024 2035 137060 MARKF 2035 137634 2035 137504 000054 000040 2035 137230 DMARK$ 2035 137742 2035 137670 000054 000030 2035 137340 TMARK$ 2035 137776 2035 137770 000050 000020 2035 137376 SEEKF 2035 140154 2035 140016 000062 000044 2035 137546 DSEEK$ 2035 140346 2035 140212 000062 000034 2035 137740 TSEEK$ 2035 140436 2035 140374 000060 000024 2035 140034 PUTCH 2035 140500 2035 140460 000054 000022 2035 140100 PUTLIN 2035 140730 2035 140522 000056 000050 2035 140322 FLUSH$ 2035 141424 2035 140772 000060 000072 2035 141010 DPUTL$ 2035 142144 2035 141502 000054 000024 2035 141544 TPUTL$ 2035 142772 2035 142170 000230 000074 2035 142322 MAPFD 2035 143064 2035 143016 000052 000032 2035 142460 ISADSK 2035 143140 2035 143112 000050 000026 2035 142536 ISATTY 2035 143212 2035 143164 000050 000026 2035 142610 ISNULL 2035 143264 2035 143236 000050 000026 2035 142662 MAPSU 2035 143404 2035 143310 000052 000036 2035 143002 WKDAY 2035 143526 2035 143440 000062 000030 2035 143116 EQUAL 2035 143610 2035 143546 000032 000024 2035 143210 CHKARG 2035 144006 2035 143634 000254 000036 2035 143372 GETKWD 2035 144144 2035 144030 000262 000026 2035 143542 GETARG 2035 144300 2035 144170 000060 000030 2035 143676 GCDIR$ 2035 144412 2035 144326 000366 000034 2035 144004 GFNAM$ 2035 144634 2035 144440 000636 000074 2035 144226 CTOA 2035 145140 2035 144722 000064 000030 2035 144532 CTOR 2035 145174 2035 145162 000052 000022 2035 144574 CTOD 2035 145776 2035 145216 000114 000252 2035 145362 GCTOI 2035 146564 2035 146234 000066 000060 2035 146152 GCTOL 2035 147200 2035 146632 000070 000060 2035 146566 CTOI 2035 147326 2035 147246 000052 000024 2035 146722 CTOL 2035 147442 2035 147346 000056 000024 2035 147036 CTOMN 2035 147554 2035 147462 000054 000264 2035 147150 ATOC 2035 150232 2035 150034 000106 000040 2035 147616 RTOC 2035 150300 2035 150256 000064 000022 2035 147700 DTOC 2035 151760 2035 150322 000124 000360 2035 151336 GITOC 2035 152574 2035 152316 000070 000047 2035 152166 GLTOC 2035 153140 2035 152636 000072 000047 2035 152532 ITOC 2035 153342 2035 153202 000064 000035 2035 152740 LTOC 2035 153546 2035 153376 000066 000035 2035 153144 MNTOC 2035 154006 2035 153602 000226 000336 2035 153374 CTOP 2035 154432 2035 154332 000064 000020 2035 154032 PTOC 2035 154620 2035 154452 000062 000022 2035 154216 CTOV 2035 154750 2035 154640 000064 000022 2035 154346 VTOC 2035 155072 2035 154770 000062 000022 2035 154470 SDROP 2035 155170 2035 155112 000060 000030 2035 154566 STAKE 2035 155276 2035 155216 000060 000030 2035 154674 STRIM 2035 155366 2035 155324 000052 000022 2035 154764 SUBSTR 2035 155516 2035 155406 000064 000024 2035 155114 CTOC 2035 155610 2035 155540 000036 000023 2035 155210 MKPA$ 2035 156270 2035 155634 000066 000052 2035 155654 UPKFN$ 2035 156474 2035 156326 000064 000026 2035 156070 INDEX 2035 156556 2035 156516 000032 000024 2035 156156 LENGTH 2035 156632 2035 156602 000030 000024 2035 156232 MAPSTR 2035 156754 2035 156656 000052 000026 2035 156346 MAPDN 2035 157022 2035 156774 000050 000024 2035 156416 MAPUP 2035 157070 2035 157042 000050 000024 2035 156464 SCOPY 2035 157150 2035 157110 000040 000024 2035 156550 JDATE 2035 157266 2035 157174 000056 000040 2035 156662 TQUIT$ 2035 157354 2035 157322 000050 000030 2035 156752 TYPE 2035 157546 2035 157402 000052 000024 2035 157142 CHKINP 2035 157612 2035 157566 000030 000024 2035 157212 SETERR 2035 157644 2035 157636 000046 000022 2035 157244 MOVE$ 2035 160020 2035 157666 000036 000024 2035 157420 AT$SWT 2035 160154 2035 160044 000102 000062 2035 157554 #### 2035 160200 2035 160135 000034 000062 2035 157554 CHKSTR 2035 160310 2035 160236 000052 000022 2035 157706 FIRST$ 2035 160356 2035 160330 000050 000024 2035 157754 GETWRD 2035 160472 2035 160400 000060 000022 2035 160070 GETFD$ 2035 160660 2035 160512 000056 000032 2035 160254 SZSEG$ 2035 161152 2035 160706 000060 000042 2035 160542 SZFIL$ 2035 161306 2035 161204 000056 000030 2035 160702 PTOV 2035 161474 2035 161332 000042 000023 2035 161074 VTOP 2035 161604 2035 161520 000036 000023 2035 161204 ISPH$ 2035 161636 2035 161630 000050 000022 2035 161236 MISSIN 2035 161720 2035 161714 000016 000020 2035 161320 NAMEQ$ 2035 161740 2035 161760 000070 000006 2035 161532 TEXTO$ 2035 162140 2035 162160 000066 000023 2035 161746 F$MI11 2035 162404 2035 162372 000016 000020 2035 162004 F$MA11 2035 162424 2035 162444 000050 000000 2035 162057 DABS 2035 162470 2035 162460 000016 000020 2035 162070 F$LT 2035 162666 2035 162510 000020 000140 2035 162246 F$RT 2035 162646 2035 162525 000020 000140 2035 162246 F$OR 2035 162706 2035 162567 000020 000140 2035 162246 F$RS 2035 162726 2035 162573 000020 000140 2035 162246 F$LS 2035 162746 2035 162577 000020 000140 2035 162246 F$SH 2035 162766 2035 162626 000020 000140 2035 162246 F$ERX 2035 163034 2035 163006 000020 000026 2035 162434 STACK_OV 4000 001212 4000 001152 000030 000024 4000 000612 MAIN 4000 001320 4000 001232 000012 000052 4000 000720 DIRECT ENTRY LINKS CP$ 2035 161660 QUIT$ 2035 161664 R$RUN 2035 161670 R$INVK 2035 161674 R$DEL 2035 161700 SPOOL$ 2035 161704 P$ENTP 2035 161710 AC$LST 2035 163062 AC$SET 2035 163066 AC$CAT 2035 163072 AC$LIK 2035 163076 AC$DFT 2035 163102 CAT$DL 2035 163106 PA$DEL 2035 163112 PA$LST 2035 163116 PA$SET 2035 163122 DIR$RD 2035 163126 ENT$RD 2035 163132 CALAC$ 2035 163136 Q$READ 2035 163142 Q$SET 2035 163146 ATCH$$ 2035 163152 AT$ABS 2035 163156 AT$ANY 2035 163162 AT$HOM 2035 163166 AT$REL 2035 163172 BREAK$ 2035 163176 C1IN 2035 163202 COMI$$ 2035 163206 CREA$$ 2035 163212 DUPLX$ 2035 163216 ERRPR$ 2035 163222 EXIT 2035 163226 GPAS$$ 2035 163232 GPATH$ 2035 163236 MKLB$F 2035 163242 MKON$F 2035 163246 MKONU$ 2035 163252 PRWF$$ 2035 163256 REST$$ 2035 163262 RESU$$ 2035 163266 RVONU$ 2035 163272 SATR$$ 2035 163276 SGDR$$ 2035 163302 SLEEP$ 2035 163306 SPAS$$ 2035 163312 SRCH$$ 2035 163316 TIMDAT 2035 163322 TNOU 2035 163326 TNOUA 2035 163332 TTY$RS 2035 163336 AT$ 2035 163342 ATTDEV 2035 163346 TONL 2035 163352 GCHAR 2035 163356 T1OU 2035 163362 PL1$NL 2035 163366 SHRLIB 4000 001372 COMMON BLOCKS SWT$TP 2030 120000 SGSYMT 4000 000100 STACK$ 4000 001006 ACL$00 4040 001000 005027 SWT$CM 4040 010000 OTHER SYMBOLS SEGBLK 2035 001210 F192QFP5 2035 161714 RUNIT 4000 001000 RESUME 4000 001053