BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 26

0859 00446 041120 F10 DEC 10.0 00447 000000 0860 00450 022134 F10R DEC 1.0E-17 USED IN CONVERSION OF VERY SMALL CONSTANTS 00451 035725 0861 00452 137500 FM1 DEC -1.0 00453 000000 0862 00454 000006 GTC OCT 6 'GOTO' 0863 00455 000176 INTF OCT 176 INTEGER CONSTANT FLAG 0864 00456 000177 RELF OCT 177 REAL CONSTANT FLAG 0865 00457 040511 LE10 OCT 040511,127307 NATURAL LOG OF 10 00460 127307 0867 00461 0 004016 LSBP DAC IDNT+IDNT POINTER TO RESERVED NAME LIST 0871 00462 177777 M1 OCT -1 0872 00463 177770 M10 OCT -10 0873 00464 177700 M100 OCT -100 0874 00465 177766 M12 OCT -12 0875 00466 177776 M2 OCT -2 0876 00467 177757 M21 OCT -21 0877 00470 177773 M5 OCT -5 0878 00471 177725 M53 OCT -53 0879 00472 177772 M6 OCT -6 0880 00473 000105 MCOL DEC 69 MAX NO. OF ASR COLUMNS - 2 0881 00474 033723 ROND DEC .000005 ROUNDING FACTOR 00475 161326 0882 00476 0 000350 RTB DAC RSTK RETURN STACK BASE POINTER 0883 00477 0 000367 RTM DAC RSTK+15 RETURN STACK HIGH POINTER 0884 00500 177751 SMAX OCT -27 POINTER TO IDENTIFIERS THAT REQUIRE SPACES 0885 00501 023417 SNMX DEC 9999 LARGEST LEGAL STATEMENT NUMBER 0886 00502 000025 STPC OCT 25 'STEP' 0887 00503 000043 TABC OCT 43 'TAB(' 0888 00504 000026 THNC OCT 26 'THEN' 0889 00505 000024 TOC OCT 24 'TO' 0890 00506 000022 DIMC OCT 22 'DIM' 0891 00507 000042 FNC OCT 42 'FN' 0892 000507 DEFF EQU FNC 0893 00510 000026 SYSL OCT 26 PNTR TO FIRST SYS FUNCTION - 1 0894 00511 000042 SYSH OCT 42 PNTR TO LAST SYS FUNCTION + 1 0895 00512 0 000231 WRKD DAC WORK POINTER TO OUTPUT EDITOR SCRATCH AREA 0896 00513 0 000237 WKD7 DAC WORK+6 POINTER TO 7TH WORD OF SCRATCH AREA 0897 000375 REMF EQU C16 'REM' 0898 00514 0 000053 DFVD DAC DEFV POINTER TO DUMMY VARIABLE VALUE 0899 00515 -0 10 00515 CJST JST* * PROTOTYPE CALL 0900 00516 0 004063 CLST DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0901 00517 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0902 00520 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0903 00521 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0904 00522 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0905 00523 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0906 00524 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS 0907 00525 0 004063 DAC CL01-1 SUBROUTINE LINKAGE ADDRESS