1 /FOCAL-8 INIT 2 /DEC-8E-LFOCA-A-LA2 3 4 /OCTOBER 1971 SM 5 6 /COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION 7 / MAYNARD,MASSACHUSETTS 01754 8 9 /INITIAL DIALOG FOR FOCAL-8 10 /INIT IS A FOCAL-8 PROGRAM STORED IN THE TEXT BUFFER 11 /AND EXECUTED. THE VARIABLES SET ARE USED LATER BY 12 /ONCE-ONLY CODE WHICH IS ALSO STORED IN THE TEXT BUFFER 13 14 15 /ASSEMBLY INSTRUCTIONS: 16 /.R PAL8 OR .R PAL10 17 /*INIT,INIT_INIT 18 19 20 21 /THE FOCAL-8 PROGRAM FOR INIT IS: 22 23 /1.10 T !"FOCAL-8" 24 /1.20 T !!"MONITOR IN USE ?";DO 10;S PD=RE 25 /1.25 DO 2;T !!;R 26 27 /2.15 SET XF=1 28 /2.20 T !"RETAIN" 29 /2.25 T "LOG,EXP,ATN ?" 30 /2.30 DO 10;IF (RE) 2.9,2.4,2.4 31 /2.40 DO 2.2;T "SINE,COSINE ?";DO 10;IF (RE) 2.5;R 32 /2.5 S XF=-1;R 33 /2.9 S XF=0 34 35 /10.40 A RE;I (RE-0YES) 10.5,10.45,10.5 36 /10.45 SET RE=-1;R 37 /10.50 IF (RE-0NO) 10.6,10.8 38 /10.60 T !"PLEASE ANSWER 'YES' OR 'NO' ";G 10.4 39 /10.80 SET RE=1;R 40 41 42 43 OCTAL 44 45 CR=7715 46 47 *31 /(LASTV) 48 000031 3522 ENDL 49 50 *60 /(BUFR) 51 000060 3522 ENDL 52 53 *3206 /(FRST) 54 003206 3217 LN1P1 55 56 *3217 57 58 DECIMAL 59 60 /01.10 61 003217 3230 LN1P1, LN1P2 62 003220 0212 02^64!10 63 003221 2440 TEXT @T !"FOCAL-8"@;*.-1;CR 003222 4142 003223 0617 003224 0301 003225 1455 003226 7042 003227 0000 003227 7715 64 65 /01.20 66 003230 3257 LN1P2, LN1P25 67 003231 0224 2^64!20 68 003232 2440 TEXT @T !!"MONITOR IN USE @;*.-1 003233 4141 003234 4215 003235 1716 003236 1124 003237 1722 003240 4011 003241 1640 003242 2523 003243 0540 003244 0000 69 OCTAL 70 003244 4037 4037 71 DECIMAL 72 003245 4273 TEXT @"; DO 10;S PD=RE @;*.-1;CR 003246 4040 003247 0417 003250 4061 003251 6073 003252 2340 003253 2004 003254 7522 003255 0540 003256 0000 003256 7715 73 74 75 /01.25 76 003257 3270 LN1P25, LN2P15 77 003260 0231 2^64!25 78 003261 0417 TEXT @DO 2; T !!;R@;*.-1;CR 003262 4062 003263 7340 003264 2440 003265 4141 003266 7322 003267 0000 003267 7715 79 80 81 82 83 84 85 86 87 88 89 90 /02.15 91 003270 3277 LN2P15, LN2P2 92 003271 0417 4^64!15 93 003272 2305 TEXT @SET XF=1@;*.-1;CR 003273 2440 003274 3006 003275 7561 003276 0000 003276 7715 94 95 /02.20 96 003277 3310 LN2P2, LN2P25 97 003300 0424 4^64!20 98 003301 2440 TEXT @T !"RETAIN "@;*.-1;CR 003302 4142 003303 2205 003304 2401 003305 1116 003306 4042 003307 0000 003307 7715 99 100 /02.25 101 003310 3324 LN2P25, LN2P3 102 003311 0431 4^64!25 103 003312 2440 TEXT @T "LOG, EXP, ATN@ 003313 4214 003314 1707 003315 5440 003316 0530 003317 2054 003320 4001 003321 2416 003322 0000 104 *.-1 105 OCTAL 106 003322 4037 4037 /QUESTION MARK 107 003323 7715 7715 /CARRIAGE RETURN 108 109 DECIMAL 110 111 /02.30 112 003324 3343 LN2P3, LN2P4 113 003325 0436 4^64!30 114 003326 0417 TEXT @DO 10;IF (RE)2.9,2.4,2.4@;*.-1;CR 003327 4061 003330 6073 003331 1106 003332 4050 003333 2205 003334 5162 003335 5671 003336 5462 003337 5664 003340 5462 003341 5664 003342 0000 003342 7715 115 116 /02.40 117 003343 3374 LN2P4, LN2P5 118 003344 0450 4^64!40 119 003345 0417 TEXT @DO 2.2;T "SINE, COSINE@ 003346 4062 003347 5662 003350 7324 003351 4042 003352 2311 003353 1605 003354 5440 003355 0317 003356 2311 003357 1605 003360 0000 120 *.-1 121 OCTAL 122 003360 4037 4037 /QUESTION MARK 123 DECIMAL 124 003361 4273 TEXT @";DO 10;IF (RE)2.5;R@;*.-1;CR 003362 0417 003363 4061 003364 6073 003365 1106 003366 4050 003367 2205 003370 5162 003371 5665 003372 7322 003373 0000 003373 7715 125 126 /02.50 127 003374 3404 LN2P5, LN2P9 128 003375 0462 4^64!50 129 003376 2340 TEXT @S XF=-1; R@;*.-1;CR 003377 3006 003400 7555 003401 6173 003402 4022 003403 0000 003403 7715 130 131 /02.90 132 003404 3412 LN2P9, LN10P4 133 003405 0532 4^64!90 134 003406 2340 TEXT @S XF=0@;*.-1;CR 003407 3006 003410 7560 003411 0000 003411 7715 135 136 /10.40 137 003412 3435 LN10P4, LN1045 138 003413 2450 20^64!40 139 003414 0140 TEXT @A RE;I (RE-0YES) 10.5,10.45,10.5@;*.-1;CR 003415 2205 003416 7311 003417 4050 003420 2205 003421 5560 003422 3105 003423 2351 003424 4061 003425 6056 003426 6554 003427 6160 003430 5664 003431 6554 003432 6160 003433 5665 003434 0000 003434 7715 140 /10.45 141 003435 3446 LN1045, LN10P5 142 003436 2455 20^64!45 143 003437 4023 TEXT @ SET RE=-1;R@;*.-1;CR 003440 0524 003441 4022 003442 0575 003443 5561 003444 7322 003445 0000 003445 7715 144 145 /10.50 146 003446 3463 LN10P5, LN10P6 147 003447 2462 20^64!50 148 003450 1106 TEXT @IF (RE-0NO)10.6,10.8@;*.-1;CR 003451 4050 003452 2205 003453 5560 003454 1617 003455 5161 003456 6056 003457 6654 003460 6160 003461 5670 003462 0000 003462 7715 149 150 /10.60 151 003463 3512 LN10P6, LN10P8 152 003464 2474 20^64!60 153 003465 2440 TEXT @T !"PLEASE ANSWER 'YES' OR 'NO' ";G 10.4@;*.-1;CR 003466 4142 003467 2014 003470 0501 003471 2305 003472 4001 003473 1623 003474 2705 003475 2240 003476 4731 003477 0523 003500 4740 003501 1722 003502 4047 003503 1617 003504 4740 003505 4273 003506 0740 003507 6160 003510 5664 003511 0000 003511 7715 154 155 /10.80 156 003512 0000 LN10P8, 0000 157 003513 2520 20^64!80 158 003514 2305 TEXT @SET RE=1;R@;*.-1;CR 003515 2440 003516 2205 003517 7561 003520 7322 003521 0000 003521 7715 159 160 ENDL=. 161 162 $ CR 7715 ENDL 3522 LN1045 3435 LN10P4 3412 LN10P5 3446 LN10P6 3463 LN10P8 3512 LN1P1 3217 LN1P2 3230 LN1P25 3257 LN2P15 3270 LN2P2 3277 LN2P25 3310 LN2P3 3324 LN2P4 3343 LN2P5 3374 LN2P9 3404