(ID) **1620-LM-042-CHAR -- FORTRAN II-D PLOTTER CHARACTER ROUTINE *PRINT SYMBOL TABLE *LIST PRINTER * ASSEMBLE RELOCATABLE * STORE RELOADABLE * NAME CHAR * ERROR STOP 1620-LM-042-CHAR -- FORTRAN II-D PLOTTER CHARACTER ROUTINE PAGE 1 WRITE1 06940 START1 00274R SETADD 01900R RPAREN 03584R PWRITE 06816 PRTRVR 02400R PNDOWN 02436R PLSMNS 03708R PDTINH 06173 PCMPLT 07006 NOPRTR 02680R LPAREN 03556R INCAD1 00618R INCADD 00594R GOWATY 00370R DATINH 06057 COMPLT 06698 AD1718 00102R A 02438R AGAIN 00462R B 02481R BLANK 03526R C 02531R CHAR 00006R CHAR1 00042R CHECK 01250R COMMA 03612R COMP1 01382R CPR 02429R CREC 01170R CT 04232R CTR 02433R D 02573R DEC 03809R DHH 02624R DHH1 02656R DIG 00826R E 02616R EIGHT 04146R EQUAL 03834R ERR1 04263R ERR2 04339R EXIT 00680R F 02659R FAC 02492 FIVE 04024R FIX 03854 FMFAC 03452 FOUR 03981R G 02702R GO 01078R GOSWC 00546R H 02745R I 02786R INH 06063 IORT 00565 ITCT 04420R ITCTR 04258R J 02829R JMP 02352R K 02866R L 02903R LAST 05736 M 02935R MINUS 03537R N 02972R NINE 04191R NN 00696R NUMV 00698R NUMV1 00426R O 03017R ODDNN 00090R ONEQ 03867R OUT 00990R OUT99 00632R P 03058R PENUP 02434R PINH 06179 PLAST 05820 PLUS 03677R POUND 03630R PSWC 06090 Q 03095R R 03140R RCM 04428R RTRN 03515R S 03178R SBTRR 04260R SEVEN 04110R SHORT 02644R SIX 04065R SLASH 03745R SS 00100R STAR 03776R START 01066R SUBST 04233R SUBT 00882R SWC 05982 T 03217R TABLE 01916R TEST 00794R THREE 03938R TOFAC 03408 TST 04235R TWO 03899R U 03258R V 03305R W 03348R WACC 04252R WAPT 04306 WPL 02088R WRITE 06632 X 03401R XINH 07453 Y 03438R Z 03478R 1620-LM-042-CHAR -- FORTRAN II-D PLOTTER CHARACTER ROUTINE PAGE 1 00010* 1620-LM-042-CHAR 00020* 00030 SS DS ,*+101 00100 00000 00040 DC 6,987898,5-SS 0009N 00006 00050 DAC 6,CHAR ,7-SS 0009L 00012 00060 DVLC 22-SS,5,RCM,2,08,2,04,5,CHAR-6,5,0,30,0 0007Q 00049 00070 DSC 17,0,0 00000 00017 00080 DORG SS-100 00000 00090 DS 5 00004 00005 00100 CHAR TFM CREC-1,14219,07, SUBR SET 3 00006 J6 01169 J4219 00110 BD CHAR1,3408,0, TEST FOR SET 3 OR SET 4 00018 M3 00042 03408 00120 TFM CREC-1,13121,07, SUBR SET 4 00030 J6 01169 J3121 00130 CHAR1 BTM INCADD,NN,017, 00042 JP 00594 -0696 00140 MM NN,5,010 00054 J3 00696 000-5 00150 BD ODDNN,99,0 00066 M3 00090 00099 00160 TDM AD1718+11,8,0 00078 J5 00113 00008 00170 ODDNN SF 95 00090 32 00095 00000 00180 AD1718 AM 99,17,10 00102 11 00099 000J7 00190 TDM AD1718+11,7,0 00114 J5 00113 00007 00200 A 99,CHAR-1,1 00126 2J 00099 00005 00210 TF GOWATY+11,99,0 00138 K6 00381 00099 00220 TF EXIT+6,99,011 00150 K6 00686 0009R 00230 BTM INCADD,CPR,017 00162 JP 00594 -2429 00240 BNF *+44,CPR,01 00174 MM 00218 02429 00250 RCTY 00186 34 00000 00102 00260 WATY ERR1,,0 00198 L9 04263 00100 00270 B OUT99,,0 00210 M9 00632 00000 00280 DORG *-3 00218 00290 CM CPR,2,010 00218 J4 02429 000-2 00300 BNH *+44,,0 00230 M7 00274 01100 00310 RCTY 00242 34 00000 00102 00320 WATY ERR2,,0 00254 L9 04339 00100 00330 B OUT99,,0 00266 M9 00632 00000 00340 DORG *-3 00274 00350 START1 TFM ITCT,0,07 00274 J6 04420 -0000 00360 CF INCAD1+11,,0 00286 L3 00629 00000 00370 BT TOFAC,INCAD1+11,1 00298 2P 03408 00629 00380 AM FAC,2,10 00310 11 02492 000-2 00390 BTM FIX,0,10 00322 17 03854 000-0 00400 SF FAC-5 00334 32 02487 00000 00410 BTM FMFAC,ITCT+1,17 00346 1P 03452 -4421 00420 BTM INCADD,CPR,017 00358 JP 00594 -2429 00430 GOWATY BTM WAPT 00370 17 04306 -0000 00440 TFM DATINH+2,06,10 00382 16 06059 000-6 00450 BD NUMV1,CPR,01 00394 ML 00426 02429 00460 TFM WRITE+6,START,17 00406 1O 06638 -1066 00470 B NUMV1+12 00418 M9 00438 00000 00480 DORG *-3 00426 00490 NUMV1 TFM WRITE+6,NUMV,17 00426 1O 06638 -0698 00500 TFM LAST-5,41,10 00438 16 05731 000M1 00510 TFM WRITE+1,49,10 00450 16 06633 000M9 00520 AGAIN CM NN,0,08 00462 J4 00696 0-000 00530 BE OUT99,,0 00474 M6 00632 01200 00540 AM CHAR-1,5,010 00486 J1 00005 000-5 00550 BNF *+24,CHAR-1,0111 00498 MM 00522 0000N 00560 TDM *+36,2,0 00510 J5 00546 00002 00570 TF *+35,CHAR-1,0111 00522 KO 00557 0000N 00580 CF *+23,,0 00534 L3 00557 00000 00590 GOSWC BTM SWC,0,7 00546 17 05982 -0000 00600 TDM *-12,1,0 00558 J5 00546 00001 00610 SM NN,1,010 00570 J2 00696 000-1 00620 B AGAIN,,0 00582 M9 00462 00000 00630 INCADD AM CHAR-1,5,010 00594 J1 00005 000-5 00640 TF *+23,CHAR-1,0111 00606 KO 00629 0000N 00650 INCAD1 TF INCADD-1,0,06 00618 K6 0059L 00000 00660 BB 00630 42 00000 00000 00670 DORG *-9 00632 00680 OUT99 BTM COMPLT,0,10 00632 17 06698 000-0 00690 TFM WRITE+1,16,10 00644 16 06633 000J6 00700 TFM WRITE+6,IORT 00656 16 06638 -0565 00710 TFM LAST-5,34,10 00668 16 05731 000L4 00720 EXIT B 0 00680 49 00000 00000 00730 DORG *-4 00687 00740 NN DC 10,0 00696 00010 00750 NUMV WNPT PENUP,,0 00698 L8 02434 00200 00760 BD CREC-12,GO+21,01 00710 ML 01158 01099 00770 TFM GO+23,100,09 00722 J6 01101 00J00 00780 TDM SUBT+11,1,0 00734 J5 00893 00001 00790 TDM SUBST,8,0 00746 J5 04233 00008 00800 TDM SUBT+1,2,0 00758 J5 00883 00002 00810 TFM TEST+11,A-1,017 00770 JO 00805 -2437 00820 AM TEST+11,1,07 00782 J1 00805 -0001 00830 TEST TD TST,A,0 00794 KN 04235 02438 00840 BNR DIG,TST,01 00806 MN 00826 04235 00850 B TEST-12,,0 00818 M9 00782 00000 00860 DORG *-3 00826 00870 DIG BD SUBT-36,TST,01 00826 ML 00846 04235 00880 B TEST-12,,0 00838 M9 00782 00000 00890 DORG *-3 00846 00900 CF SUBT+11,,0 00846 L3 00893 00000 00910 BNF *+24,TST,01 00858 MM 00882 04235 00920 SF SUBT+11,,0 00870 L2 00893 00000 00930 SUBT SM TST,1,010 00882 J2 04235 000-1 00940 BD *+48,TST,01 00894 ML 00942 04235 00950 TD TST,SUBST,01 00906 KN 04235 04233 00960 BNF *+24,SUBT+11,01 00918 MM 00942 00893 00970 SF TST,,0 00930 L2 04235 00000 00980 TD TEST+11,TST,016 00942 KN 0080N 04235 00990 TDM TST-1,5,011 00954 J5 04234 0000N 01000 CM TEST+11,NINE+39,017 00966 JM 00805 -4230 01010 BL TEST-12,,0 00978 M7 00782 01300 01020 OUT NOP *+32,,0 00990 M1 01022 00000 01030 TDM OUT+1,9,0 01002 J5 00991 00009 01040 B TEST-60,,0 01014 M9 00734 00000 01050 DORG *-3 01022 01060 TDM OUT+1,1,0 01022 J5 00991 00001 01070 BNF CREC-12,CT,01 01034 MM 01158 04232 01080 CF CT,,0 01046 L3 04232 00000 01090 B START+48,,0 01058 M9 01114 00000 01100 DORG *-3 01066 01110 START WNPT PENUP,,0 01066 L8 02434 00200 01120 GO BD CREC-12,GO+23,01 01078 ML 01158 01101 01130 SF CT,1,0 01090 L2 04232 00001 01140 TFM GO+23,1,09 01102 J6 01101 00-01 01150 TDM SUBT+11,2,0 01114 J5 00893 00002 01160 TDM SUBT+1,1,0 01126 J5 00883 00001 01170 TDM SUBST,2,0 01138 J5 04233 00002 01180 B TEST-24,,0 01150 M9 00770 00000 01190 DORG *-3 01158 01200 TFM CREC+11,INH,07 01158 J6 01181 -6063 01210 CREC BNR CHECK,,0 01170 M5 01250 00000 01220 M CTR,ITCT,01 01182 KL 02433 04420 01230 TFM CTR,0,08 01194 J6 02433 0-000 01240 WNPT RTRN,,0 01206 L8 03515 00200 01250 SM 99,1,10 01218 12 00099 000-1 01260 BP *-24,,0 01230 M6 01206 01100 01270 B OUT99+12,,0 01242 M9 00644 00000 01280 DORG *-3 01250 01290 CHECK TF *+23,CREC+11,01 01250 KO 01273 01181 01300 TD CPR,,0 01262 K5 02429 00000 01310 SM *-1,1,010 01274 J2 01273 000-1 01320 TD CPR-1,*-13,0111 01286 KN 02428 0127L 01330 CF CPR,,0 01298 L3 02429 00000 01340 AM CREC+11,2,07 01310 J1 01181 -0002 01350 TDM SETADD,2,0 01322 J5 01900 00002 01360 CM CPR,0,010 01334 J4 02429 000-0 01370 BE SETADD-24,,0 01346 M6 01876 01200 01380 TFM COMP1+11,41,010 01358 J6 01393 000M1 01390 TFM SETADD+11,TABLE,017 01370 JO 01911 -1916 01400 COMP1 CM CPR,41,010 01382 J4 02429 000M1 01410 BE SETADD,,0 01394 M6 01900 01200 01420 AM COMP1+11,01,010 01406 J1 01393 000-1 01430 AM SETADD+11,5,010 01418 J1 01911 000-5 01440 CM COMP1+11,80,010 01430 J4 01393 000Q0 01450 BNE COMP1,,0 01442 M7 01382 01200 01460 CM CPR,03,010 01454 J4 02429 000-3 01470 TFM SETADD+11,DEC,017 01466 JO 01911 -3809 01480 BE SETADD-12,,0 01478 M6 01888 01200 01490 CM CPR,20,010 01490 J4 02429 000K0 01500 TFM SETADD+11,MINUS,017 01502 JO 01911 -3537 01510 BE SETADD-12,,0 01514 M6 01888 01200 01520 CM CPR,10,010 01526 J4 02429 000J0 01530 TFM SETADD+11,PLUS,017 01538 JO 01911 -3677 01540 BE SETADD-12,,0 01550 M6 01888 01200 01550 CM CPR,33,010 01562 J4 02429 000L3 01560 TFM SETADD+11,EQUAL,017 01574 JO 01911 -3834 01570 BE SETADD-12,,0 01586 M6 01888 01200 01580 CM CPR,04,010 01598 J4 02429 000-4 01590 TFM SETADD+11,RPAREN,017 01610 JO 01911 -3584 01600 BE SETADD-12,,0 01622 M6 01888 01200 01610 CM CPR,14,010 01634 J4 02429 000J4 01620 TFM SETADD+11,STAR,017 01646 JO 01911 -3776 01630 BE SETADD-12,,0 01658 M6 01888 01200 01640 CM CPR,21,010 01670 J4 02429 000K1 01650 TFM SETADD+11,SLASH,017 01682 JO 01911 -3745 01660 BE SETADD-12,,0 01694 M6 01888 01200 01670 CM CPR,13,010 01706 J4 02429 000J3 TFM SETADD+11,POUND,017 01718 JO 01911 -3630 01690 BE SETADD-12,,0 01730 M6 01888 01200 01700 CM CPR,23,010 01742 J4 02429 000K3 01710 TFM SETADD+11,COMMA,017 01754 JO 01911 -3612 01720 BE SETADD-12,,0 01766 M6 01888 01200 01730 CM CPR,24,010 01778 J4 02429 000K4 01740 TFM SETADD+11,LPAREN,017 01790 JO 01911 -3556 01750 BE SETADD-12,,0 01802 M6 01888 01200 CM CPR,34,010 01814 J4 02429 000L4 TFM SETADD+11,PLSMNS,017 01826 JO 01911 -3708 BE SETADD-12,,0 01838 M6 01888 01200 01760 TFM SETADD+11,BLANK,017 01850 JO 01911 -3526 01770 TDM SETADD,1,0 01862 J5 01900 00001 01830 DSA FIVE,SIX,SEVEN,EIGHT,NINE 01878 00005 -4024 01883 00005 -4065 01888 00005 -4110 01893 00005 -4146 01898 00005 -4191 01780 SETADD BT WPL,,0 01900 K7 02088 00000 01790 TABLE DSA A,B,C,D,E,F,G,H,I,BLANK 01916 00005 -2438 01921 00005 -2481 01926 00005 -2531 01931 00005 -2573 01936 00005 -2616 01941 00005 -2659 01946 00005 -2702 01951 00005 -2745 01956 00005 -2786 01961 00005 -3526 01800 DSA J,K,L,M,N,O,P,Q,R,BLANK 01966 00005 -2829 01971 00005 -2866 01976 00005 -2903 01981 00005 -2935 01986 00005 -2972 01991 00005 -3017 01996 00005 -3058 02001 00005 -3095 02006 00005 -3140 02011 00005 -3526 01810 DSA BLANK,S,T,U,V,W,X,Y,Z 02016 00005 -3526 02021 00005 -3178 02026 00005 -3217 02031 00005 -3258 02036 00005 -3305 02041 00005 -3348 02046 00005 -3401 02051 00005 -3438 02056 00005 -3478 01820 DSA O,ONEQ,TWO,THREE,FOUR 02061 00005 -3017 02066 00005 -3867 02071 00005 -3899 02076 00005 -3938 02081 00005 -3981 01840 DS 5 02086 00005 01850 WPL TF ITCTR,ITCT,01 02088 KO 04258 04420 01860 TD WACC,WPL-1,0111 02100 KN 04252 0208P 01870 BD *+64,WACC,01 02112 ML 02176 04252 01880 BNF *+32,WACC,01 02124 MM 02156 04252 01890 WNPT PENUP,,0 02136 L8 02434 00200 01900 B JMP,,0 02148 M9 02352 00000 01910 DORG *-3 02156 01920 WNPT PNDOWN,,0 02156 L8 02436 00200 01930 B JMP,,0 02168 M9 02352 00000 01940 DORG *-3 02176 01950 BNF JMP-36,WACC,01 02176 MM 02316 04252 01960 TFM SBTRR,1,010 02188 J6 04260 000-1 01970 AM WPL-1,1,010 02200 J1 02087 000-1 01980 AM SBTRR,1,010 02212 J1 04260 000-1 01990 BNF *-24,WPL-1,0111 02224 MM 02200 0208P 02000 TF WACC,WPL-1,0111 02236 KO 04252 0208P 02010 TFM *+30,WACC+1,017 02248 JO 02278 -4253 02020 S *+18,SBTRR,01 02260 KK 02278 04260 02030 WNPT 02272 38 00000 00200 02040 SM ITCTR,1,010 02284 J2 04258 000-1 02050 BP *-24,,0 02296 M6 02272 01100 02060 B JMP,,0 02308 M9 02352 00000 02070 DORG *-3 02316 02080 WNPT WACC,,0 02316 L8 04252 00200 02090 SM ITCTR,1,010 02328 J2 04258 000-1 02100 BP *-24,,0 02340 M6 02316 01100 02110 JMP AM WPL-1,1,010 02352 J1 02087 000-1 02120 BNR WPL,WPL-1,0111 02364 MN 02088 0208P 02130 AM CTR,1,010 02376 J1 02433 000-1 02140 B CREC,,0 02388 M9 01170 00000 02150 PRTRVR CM 618,25,10 02400 14 00618 000K5 02160 BNE DHH1,,0, 02412 M7 02656 01200 02170 TFM GOWATY+18,PDTINH+2,07 02424 J6 00388 -6175 02180 TFM GOWATY+42,PWRITE+6,07 02436 J6 00412 -6822 02190 TFM NUMV1+6,PWRITE+6,07 02448 J6 00432 -6822 02200 TFM NUMV1+18,PLAST-5,07 02460 J6 00444 -5815 02210 TFM NUMV1+30,PWRITE+1,07 02472 J6 00456 -6817 02220 TFM GOSWC+6,PSWC,07 02484 J6 00552 -6090 02230 TFM OUT99+6,PCMPLT,07 02496 J6 00638 -7006 02240 TFM OUT99+18,PWRITE+1,07 02508 J6 00650 -6817 02250 TFM OUT99+23,45,010 02520 J6 00655 000M5 02260 TFM OUT99+30,PWRITE+6,07 02532 J6 00662 -6822 02270 TFM OUT99+35,WRITE1,07 02544 J6 00667 -6940 02280 TFM OUT99+42,PLAST-5,07 02556 J6 00674 -5815 02290 BD DHH,7365,0, TEST FOR 144 CHAR PRINTER 02568 M3 02624 07365 02300 TFM CREC-1,PINH,07, 120 POSITIONS 02580 J6 01169 -6179 02310 AM OUT99+35,4,010 02592 J1 00667 000-4 02320 BD DHH1,2461,0, 02604 M3 02656 02461 02330 B7 NOPRTR,,0, 02616 M9 02680 00000 02340 DHH BD SHORT,2461,0, TEST FOR LONG FORM 02624 M3 02644 02461 02350 B7 NOPRTR,,0, 02636 M9 02680 00000 02360 SHORT TFM CREC-1, XINH,07, 144 POSITIONS 02644 J6 01169 -7453 02370 DHH1 TFM CHAR+1,49,010, 02656 J6 00007 000M9 02380 TFM CHAR+6,CHAR1,017, 02668 JO 00012 -0042 02390 NOPRTR TRA 02680 1O 00565 -2699 02692 49 00716 00000 02699 00002 2K 02701 00005 -2707 02706 00001 @ 02707 00006 1J9783 02713 00003 -03 02716 00006 -0000@ 02400 TCD PRTRVR,,0 02400 02410 DORG PRTRVR 02400 02420 DC 28,0 02427 00028 02430 CPR DC 2,0 02429 00002 02440 CTR DC 4,0 02433 00004 02450 PENUP DSC 2,9@ 02434 00002 02460 PNDOWN DSC 2,0@ 02436 00002 02470 A DSC 39,330111111111233334555777777333333555555 02438 00039 02480 DC 4,033@ 02480 00004 02490 B DSC 43,3301111133333455567777711111111113333345556 02481 00043 02500 DC 7,044455@ 02530 00007 02510 C DSC 33,222333330556777781111111123333455 02531 00033 02520 DC 9,04455555@ 02572 00009 02530 D DSC 33,330111111111133333455555555677777 02573 00033 02540 DC 10,033333333@ 02615 00010 02550 E DSC 39,222222221107777775555533377755555333333 02616 00039 02560 DC 4,033@ 02658 00004 02570 F DSC 33,222222221107777775555333777555555 02659 00033 02580 DC 10,033333333@ 02701 00010 02590 G DSC 37,2222222301187777655555555433332111775 02702 00037 02600 DC 6,04443@ 02744 00006 02610 H DSC 37,3301111111111555533333311115555555555 02745 00037 02620 DC 4,033@ 02785 00004 02630 I DSC 31,3303333337771111111111777333333 02786 00031 02640 DC 12,04455555555@ 02828 00012 02650 J DSC 25,2230755333331111111111733 02829 00025 02660 DC 12,04455555555@ 02865 00012 02670 K DSC 33,330111111111155555522222666644444 02866 00033 02680 DC 4,033@ 02902 00004 02690 L DSC 28,2211111111055555555553333331 02903 00028 02700 DC 4,043@ 02934 00004 02710 M DSC 13,3301111111111 02935 00013 02720 DC 5,-45454 02952 00005 02730 DC 5,-21212 02957 00005 02740 DSC 10,5555555555 02958 00010 02750 DC 4,033@ 02971 00004 02760 N DSC 13,3301111111111 02972 00013 02770 DC 10,-4545445454 02994 00010 02780 DSC 10,1111111111 02995 00010 02790 DC 12,04455555555@ 03016 00012 02800 O DSC 31,3201111111123333455555555677778 03017 00031 02810 DC 10,033333334@ 03057 00010 02820 P DSC 27,330111111111133333455677777 03058 00027 02830 DC 10,044444433@ 03094 00010 02840 Q DSC 42,320111111112333345555555567777843333288444 03095 00042 02850 DC 3,03@ 03139 00003 02860 R DSC 34,3301111111111333334555677777344444 03140 00034 02870 DC 4,033@ 03177 00004 02880 S DSC 29,22054333321118777781112333345 03178 00029 02890 DC 10,044555555@ 03216 00010 02900 T DSC 35,22111111101333333517775555555555733 03217 00035 02910 DC 6,03333@ 03257 00006 02920 U DSC 35,22111111110555555555433332111111111 03258 00035 02930 DC 12,04455555555@ 03304 00012 02940 V DSC 11,22111111110 03305 00011 02950 DC 10,-5554554554 03325 00010 02960 DC 10,-2112112111 03335 00010 02970 DC 12,04455555555@ 03347 00012 02980 W DSC 21,221111111105555555555 03348 00021 02990 DC 5,-21212 03373 00005 03000 DC 5,-45454 03378 00005 03010 DSC 10,1111111111 03379 00010 03020 DC 12,04455555555@ 03400 00012 03030 X DSC 3,330 03401 00003 03040 DC 10,-2121221212 03413 00010 03050 DC 5,-65656 03418 00005 03060 DC 5,-81818 03423 00005 03070 DC 10,-4545445454 03433 00010 03080 DC 4,033@ 03437 00004 03090 Y DSC 10,3333301111 03438 00010 03100 DC 6,-818181 03453 00006 03110 DC 6,-545454 03459 00006 03120 DC 6,-212121 03465 00006 03130 DC 12,04455555555@ 03477 00012 03140 Z DSC 17,22111111110333333 03478 00017 03150 DC 10,-6565665656 03504 00010 03160 DSC 6,333333 03505 00006 03170 DC 4,033@ 03514 00004 03180 RTRN DSC 10,7777777777 03515 00010 03190 DC 1,@ 03525 00001 03200 BLANK DSC 11,3333333333@ 03526 00011 03210 MINUS DSC 12,221110333333 03537 00012 03220 DC 7,044555@ 03555 00007 03230 LPAREN DSC 24,222222221110665555555544 03556 00024 03240 DC 4,032@ 03583 00004 03250 RPAREN DSC 15,340221111111188 03584 00015 03260 DC 13,044444444555@ 03611 00013 03270 COMMA DSC 12,333402211753 03612 00012 03280 DC 6,04433@ 03629 00006 POUND DSC 35,33303333215677771111266212662111123 03630 00035 DC 12,04444455555@ 03676 00012 03310 PLUS DSC 24,221110333333777111555555 03677 00024 03320 DC 7,044333@ 03707 00007 PLSMNS DSC 33,221110333333777111555555777333333 03708 00033 DC 4,044@ 03744 00004 03330 SLASH DSC 20,2022222222 03745 00020 03340 DC 11,0555555554@ 03775 00011 03350 STAR DSC 28,2220222266777333333777884444 03776 00028 03360 DC 5,0444@ 03808 00005 03370 DEC DSC 11,33332201753 03809 00011 03380 DC 6,04433@ 03825 00006 03390 DC 8,0333333@ 03833 00008 03400 EQUAL DSC 16,2222222330777777 03834 00016 03410 DC 12,055550333333 03861 00012 03420 DC 5,0455@ 03866 00005 03430 ONEQ DSC 22,3330333377111111111166 03867 00022 03440 DC 10,044444445@ 03898 00010 03450 TWO DSC 35,22111111012333345556777765555333333 03899 00035 03460 DC 4,033@ 03937 00004 03470 THREE DSC 33,220543333211187777333321118777765 03938 00033 03480 DC 10,044444444@ 03980 00010 03490 FOUR DSC 37,2211101111555533333377111115555555555 03981 00037 03500 DC 6,03333@ 04023 00006 03510 FIVE DSC 29,23043333211118777771111333333 04024 00029 03520 DC 12,04455555555@ 04064 00012 03530 SIX DSC 34,2211023333455567777811111111233334 04065 00034 03540 DC 11,0445555555@ 04109 00011 03550 SEVEN DSC 17,22111111101333333 04110 00017 03560 DC 10,-6565656565 04136 00010 03570 DC 9,03333333@ 04145 00009 03580 EIGHT DSC 38,22211065554333321118777781112333345556 04146 00038 03590 DC 7,044455@ 04190 00007 03600 NINE DSC 33,220543333211111111877776555433332 04191 00033 03610 DC 8,0445555@ 04231 00008 03620 CT DS 1 04232 00001 03630 SUBST DS 1 04233 00001 03640 TST DC 2,50 04235 00002 03650 DS 16 04251 00016 03660 WACC DSC 2,@ 04252 00002 03670 ITCTR DC 5,0 04258 00005 03680 SBTRR DS 2 04260 00002 03690 ERR1 DAC 38,CHARACTER SIZE SMALLER THEN 1/10 INCH@ 04263 00076 03700 ERR2 DAC 39,CHARACTER SIZE LARGER THAN 99.9 INCHES@ 04339 00078 03710 ITCT DC 5,0 04420 00005 03720 DC 1,0 04421 00001 03730 DS 5 04426 00005 03740 FAC DS ,2492 02492 00000 03750 TOFAC DS ,3408 03408 00000 03760 FMFAC DS ,3452 03452 00000 03770 FIX DS ,3854 03854 00000 03780 LAST DS ,5736 05736 00000 03790 INH DS ,6063 06063 00000 03800 WRITE DS ,6632 06632 00000 03810 COMPLT DS ,6698 06698 00000 03820 WAPT DS ,4306 04306 00000 03830 DATINH DS ,6057 06057 00000 03840 SWC DS ,5982 05982 00000 03850 IORT DS ,565 00565 00000 03860 RCM NOP 04428 41 00000 00000 03870 DC 1,@,RCM 04428 00001 03880****** THE FOLLOWING ADDRESSES ARE FOR PRINTER VERSION 03890 PDTINH DS ,6173 06173 00000 03900 PWRITE DS ,6816 06816 00000 03910 PLAST DS ,5820 05820 00000 03920 PSWC DS ,6090 06090 00000 03930 PCMPLT DS ,7006 07006 00000 03940 WRITE1 DS ,6940 06940 00000 03950 PINH DS ,6179 06179 00000 03960 XINH DS ,7453 07453 00000 03970 DEND 00000 04440 CORE POSITIONS REQUIRED PLUS RELOCATION INCREMENT 00402 STATEMENTS PROCESSED