START OF FORTRAN COMPILATION MACHINE SIZE SPECIFIED IS 08000 ACTUAL MACHINE SIZE IS 16000 PAGE 1 SEQ STMNT FORTRAN STATEMENT C IMPLICIT REAL %A-Z) C SQRTF%X)#SQRT%X) C COSF%X)#COS%X) C SINF%X)#SIN%X) C EXPF%X)#EXP%X) C LOGF%X)#LOG%X) C APPENDIX E SAMPLE PROGRAM 2 C EXERCISE LIBRARY FUNCTIONS AND PUNCH OBJECT DECK 1 PRINT 8 2 8 FORMAT%48H1A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X)))) 3 PRINT 1 4 1 FORMAT%97H0 I DEGREES A EXPONENTIAL%A)#B 1 LOGARITHM%B)#C I SIN%2X#D) C-D//) 5 FI#1.0 6 DEGREE#7.5 7 DELTA#1.57079632679489661923/12.0 8 ARG#DELTA 9 3 A#%FI&FI)*SQRTF%1.0-COSF%ARG)**2)*COSF%ARG) 10 IF%FI-24.)7,7,6 11 6 A#-A 12 7 B#EXPF%A) 13 C#LOGF%B) 14 D#FI*SINF%ARG&ARG) 15 DIFF#C-D 16 PRINT 2,FI,DEGREE,A,B,C,D,DIFF 17 2 FORMAT%1X,F3.0,F9.1,F19.10,E19.10,2F19.10,E12.1) 18 FI#FI&1.0 19 DEGREE#DEGREE&7.5 20 ARG#ARG&DELTA 21 IF%FI-49.0)3,4,5 22 4 PRINT 9 23 9 FORMAT%1H1) 24 STOP 111 25 5 STOP 777 26 END 653 INPUT CHARACTERS MODULUS IS 5 MANTISSA IS 20 STORAGE ASSIGNMENT-ARRAYS & EQUATED VARIABLES NO ARRAYS STORAGE ASSIGNMENT - SIMPLE VARIABLES ARG 4301 30/ DEGREE 4323 32T FI 4345 34V DIFF 4367 36X D 4389 38Z C 4411 41/ B 4433 43T A 4455 45V DELTA 4477 47X CONSTANTS LOCATED FROM 07924 TO 07999 I2U-I9Z STARTING ADDRESS OF STATEMENTS SEQ STARTING ADDRESS DISPLAY 001 52W 4526 53| 003 53X 4537 54/ 005 54Y 4548 55S 006 56| 4560 56U 007 57S 4572 57W 008 58Y 4588 59S 009 60| 4600 60U 010 66| 4660 66U 011 68Y 4688 69S 012 70/ 4701 70V 013 71U 4714 71Y 014 72X 4727 73/ 015 74Y 4748 75S 016 76U 4764 76Y 018 77V 4775 77Z 019 79/ 4791 79V 020 80X 4807 81/ 021 82T 4823 82X 022 85Z 4859 86T 024 87| 4870 87U 025 87Z 4879 88T 027 88Y 4888 89S SNAPSHOT OF OBJECT PROGRAM INPUT/OUTPUT AREAS LOCATED FROM 001-332 FIXED OBJECT TIME ROUTINES LOCATED FROM 333-4279 ........09........19........29........39........49........59........69........79........89........99-AREA-04200 9,26XBH610|4})26XBH61 5 0.0 X RW4A281 )0|1BA3810} -AREA-04200 1 1 1 1 1 1 1 1 1 11 1 111 1 1 1 1 111 1 1111 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-04300 -AREA-04300 ........09........19........29........39........49........59........69........79........89........99-AREA-04400 -AREA-04400 ........09........19........29........39........49........59........69........79........89........99-AREA-04500 BW97*F2TF2SBW97*F8WF2SB7003DV#I6S|B7003BT#I6W|B7004GX#I5Y/I3V|B7003?/#4GX|-AREA-04500 1 11 1 1 11 1 1 1 11 1 11 1 11 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-04600 B7005?/#3?/C|52V#50/*50/N&I6SQ|5?/#3?/C|4EV#3DV&3DV*52V*50/|B70050/#3DV-I2X|V68Y2G7BB70/B7004EV#4EVN-AREA-04600 1 1 11 1 11 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-04700 |B7004CT#4EVE|B7004A/#4CTG|B7003HZ#3?/&3?/S*3DV|B7003FX#4A/-3HZ|BW97*H0WF0|B7003DV#3DV&I6S|B7003BT#3-AREA-04700 11 1 11 1 11 1 11 1 11 11 1 1 1 11 1 ........09........19........29........39........49........59........69........79........89........99-AREA-04800 BT&I6W|B7003?/#3?/&4GX|B70050/#3DV-I3/|B85Z2800V87Z2G7BB60|BW97*I0YF2SN111.B87|N777.B87ZN000.B88YH94-AREA-04800 11 1 11 1 11 1 1 1 11 1 1 11 1 11 1 11 1 ........09........19........29........39........49........59........69........79........89........99-AREA-04900 WM0!291/?000I7VM0!892VS000I7VM0J194SLI7V000B000H094H|4|0!2H|4U0!3M0!2T4/MT4/094V|5/0!01B|6Z0!0,BS0|0-AREA-04900 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05000 !0$BS2S0!0%BS8/0!0)BS4V0!0#MT4U089MT4/000B000XXXXXXM0!2089HT4/0!3B|3UYJ36|8TB/7VT4W2BV/3/|4W2M0!6|5|-AREA-05000 1 1 1 1 1 1 1 1 1 1 1 1 11 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05100 D690/4UDV/2U|4WKD692/4UDY/2W|4WM|4X089H0890|0M089|4XC|5||4XB|3U/Y/6U|4WB/8ZM0!6|5|MT4X089HT4/0!7B|3U-AREA-05100 1 11 1 11 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05200 B YS0W088M094T4/B|3UH0940!1B89XD0!0H094BS5SM0!3094M0J2S9UMM0!6S9YM0J2T0VHT5|0!0MT5|094A000000?000I-AREA-05200 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05300 7VS000I7VVT2YI7VKHT4/0J6B97SM0J5T4/B97S 2S. HT9XM2G9250DLW1SSW1S2M9%0|0250D2M92G9MDQ089B000HV-AREA-05300 1 1 1 1 1 1 1 1 1 11 1 1 11 1 1 1 111 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05400 4/)V0|V2SS2?2)280),S096H094250Z250,0|0BV3U0!0 Y2510!1A0!12?2AW1|095C094089BV3UUAW0/W0UAW0UW0XN000251-AREA-05400 1 1 1 111 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05500 ?@2G92E4Y2E4255N255000?%W0X0|4BU3|,280B000S2G9DW1T280YW1/2G9YT9YW1/?W1TW79B7552302585092994045684017-AREA-05500 11 1 1 11 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05600 9 A?ABW3Y924CB/42SY2G9Y3XBW5|BV4SSY!4SY3XM!4T!4X?W79W82S!4SW79VZ1ZW79KA!4UW79S099W79V!0UW79-AREA-05600 11 1 1 1111 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05700 B?W82W79H089!AZ?W80095BT5/?0|1095S!4W095VX3T095BBX6T924CH0940!1Y!JU|87D!JU!4XSW1|SW79BY5S!4X2?2G92?2-AREA-05700 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05800 BY7Y?2?2249?251!!4UW0U?!4YW0/SW0XBT9Y?|87H0942?1B|24BY7YD!4S0|0!!4ZW0USW79BY2SHZ1YM2G9250H089L!5|@2G-AREA-05800 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-05900 92E1!2522G9S251B000A099W79VZ8VW79K?W82W79Y2G92G8?2G82G9AW82!W83W1|Y!4S|87BY5S924CBX9TBV4S924C?W82W79-AREA-05900 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06000 B/34BU71SCLB/42AKJBA1570796326794896619231A B4? HF0Y2G9W84BL0/SVK7V2G9KC2482G9Q089,0|0DL6W0|2C281L6Y-AREA-06000 1 1 1 1 1 1 1111 11111 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06100 BJ1ZU?2G82G9AL6WW79S2G9249!249L6VSL6WW79AL6W280SL6Z2E0%2G9249L249L6U@L6U2E1?2492G9?L6U251?L3YW1|???,-AREA-06100 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1111 ........09........19........29........39........49........59........69........79........89........99-AREA-06200 V0|V2SHU9WL6UHV2/HV4/K2YBU0ZA2?2YL6V2?1?VGY248@W79252A2?1252H094252SW82B|10VK9|0!41BU71LNNYL3Y2G9B!7-AREA-06200 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06300 /VL2X0!41BU71LNZYL7|2G9B/15)W84BV4S?BA? A31?!YO6/|87DW84L9SBM1/O7|0BBBBYW8-AREA-06300 1 1 1 1 1 1 1 11111 111 111 1 1 11111 ........09........19........29........39........49........59........69........79........89........99-AREA-06400 4|87DO7/W84VM5|W841,W84!2G9BM9S/BU71ZTZY|87W1/BV4SBM3ZS?W79W82SO6/W82VO1WW82KSO6VW82VN1/W82KV/422G9K-AREA-06400 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06500 BU71EOFB/15H089VGX?W80095BT5/C0|0O6UBM9ST?0|0W79Y2G9W79SW1|C2502G9Q089,0|0S251DO6/0|0?O6SW0X??BT9YY2-AREA-06500 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06600 ?22?1H0942?1B|24A099W82VM3ZW82K!W80W1|SW79Y2G92G8?2G82G9BN5Z0A09IC024688!2G9Y2G9|87B/34VQ7U2G9KD2G92-AREA-06600 1 1 1 1 1 1 1 1 1 111 11 11 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06700 B2M,H089LQ9W201H094?W80283AQ9W282@Q9Y285D283W79DBP6X2840H0890|1BP8SVP8SW79BAQ9WW79S2G9SR0|0!2,0K1)H0-AREA-06700 111 1 1 1 1 1 1 11 1 1 1 1 1 1 1 11 ........09........19........29........39........49........59........69........79........89........99-AREA-06800 940!1!Q9WR0/AQ9WR0/AR0S0!1S0!10|2VQ1S0|2BA0!10|2DR0/0P9H0890|2VP8W0P92B/34BU71SQNYQ9W2G9/278BO9VA5?1-AREA-06800 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 ........09........19........29........39........49........59........69........79........89........99-AREA-06900 A BBW1U0!4SBW1U0!4CB!5/0!4GBL7/0!4EBO7S0!4NBO8X0!4Q ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-06900 111 1 1 1 1 1 11 ........09........19........29........39........49........59........69........79........89........99-AREA-07000 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-07000 ........09........19........29........39........49........59........69........79........89........99-AREA-07100 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-07100 ........09........19........29........39........49........59........69........79........89........99-AREA-07200 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-07200 ........09........19........29........39........49........59........69........79........89........99-AREA-07300 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-07300 ........09........19........29........39........49........59........69........79........89........99-AREA-07400 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]-AREA-07400 ........09........19........29........39........49........59........69........79........89........99-AREA-07500 ]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]|-AREA-07500 ........09........19........29........39........49........59........69........79........89........99-AREA-07600 3DV3BT4EV4CT4A/3HZ3FX..BJ5200ABL281A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X)))BK23BJ5200ABL280 I-AREA-07600 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-07700 DEGREES A EXPONENTIAL%A)#B LOGARITHM%B)#C I SIN%2X#D) C-DBK08BK-AREA-07700 1 1 ........09........19........29........39........49........59........69........79........89........99-AREA-07800 08BK23BJ5200AH0990?1BL85F00A003000BL85F00A008001BL85F00A009010BL85E00A005014BL85F00B009010BL85E00A00-AREA-07800 1 1 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 ........09........19........29........39........49........59........69........79........89........99-AREA-07900 7005BK23BJ5200ABL281BK232D0B4I0B1B0B15707963267948966192C0A2A0A7E0AA0?1 } -AREA-07900 1 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1 END OF COMPILATION PRESS START TO GO A#2I%SQRT%1-COS%X)**2)COS%X)SIN%X)/ABS%SIN%X))) I DEGREES A EXPONENTIAL%A)#B LOGARITHM%B)#C I SIN%2X#D) C-D 1. 7.5 0.0617600583 0.1063707086E 01 0.0012741419 0.0617600583 -0.6E-01 2. 15.0 0.2465686397 0.1279627013E 01 0.0055925548 0.2465686397 -0.2E 00 3. 22.5 0.5530136645 0.1738484340E 01 0.0147699553 0.5530136645 -0.5E 00 4. 30.0 0.9787506553 0.2661129496E 01 0.0332256462 0.9787506553 -0.9E 00 LNZ 71Y 000000000000000000000?0?| 5. 37.5 1.5205161724 0.0000000000E 00 X 1.5205161724 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 6. 45.0 2.1741465269 0.0000000000E 00 X 2.1741465269 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 7. 52.5 2.9346016774 0.0000000000E 00 X 2.9346016774 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 8. 60.0 3.7959941874 0.0000000000E 00 X 3.7959941874 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 9. 67.5 4.7516230960 0.0000000000E 00 X 4.7516230960 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 10. 75.0 5.7940125295 0.0000000000E 00 X 5.7940125295 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 11. 82.5 6.9149548567 0.0000000000E 00 X 6.9149548567 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 12. 90.0 8.1055581666 0.0000000000E 00 X 8.1055581666 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 13. 97.5 9.3562978267 0.0000000000E 00 X 9.3562978267 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 14. 105.0 10.6570718567 0.0000000000E 00 X 10.6570718567 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 15. 112.5 11.9972598350 0.0000000000E 00 X 11.9972598350 -1.0E 99 LNZ 71Y 000000000000000000000?0?| 16. 120.0 13.3657850334 0.0000000000E 00 X 13.3657850334 -1.0E 99 LNZ 71Y 000000000000000000000?0?|