Defsng Defdbl Defstr Defint | Intel 9800758-02 guide

Commands and Statements

BASIC-SO

DEFSNG

DEFDBL

DEFSTR

DEFINT

The DEFSNO, DEFDBL, DEFSTR, and DEFINT statements are used to specify that a given block of letters will designate a specific data type when used as the first letter of variable names. The DEFSNO, DEFDBL, DEFSTR, and DEFINT statements specify single precision floating point, double precision floating point, string, and integer representation, respectively. Blocks of letters are specified according to the syntactic format given below:

DEFXXX m [-n][,m[-n]] ...

in which m represents any letter, A through Z, and n represents any letter B through Z. These two letters represent the boundaries of a block of letters between m and n. If n is not used, only variables beginning with letter m are specified. The n argument must follow m in alphabetic sequence; in other words, blocks may be defined as D to L, or A to 0, but not as P to A or Z to M.

10DEFSTR S

20DEFDBL D

30DEFINT I-N

DEFUSRn

The DEFUSRn statement is used to specify the starting address of an SOSO/SOS5 assembly-language, PL/M-SO, or Fortran-SO subroutine so they may be called by the USR function. The argument n may be an integer from 0 to 24; if no argument is given, 0 is assumed. Two examples of DEFUSRn statements are given below:

DEFUSR = OFOOOH

DEFUSR7 = 1%

Because of the way BASIC-SO represents numbers internally, 32767 is the largest value for an integer expression. The following code can be used to specify higher decimal values in a DEFUSRn statement.

10INPUT "ENTER ENTRY ADDRESS IN DECIMAL"; A

20IF A> 32767 THEN A = A-65536

30DEFUSR11 = A

The program below shows how DEFUSR defines a subroutine. Refer to Appendix E for further details of using DEFUSR.

10 REM This program asks for three

20REM Integers, passes them to USR1, and

30REM Returns the result.

40DEFINT A-Z

50DEFUSR 1 =OEOOOH

60PRINT "Enter three numbers:"

70 INPUT A, B, C

80 PRINT "A =";A; "B =";B; "C =";C 90 RESULT = USRo/01 (A, B, C)

100PRINT "A+ B+C+ =" RESULT

110END

6-4

Image 44

Intel 9800758-02 manual Defsng Defdbl Defstr Defint

Contents

BASIC-SO Reference Manual A108/0979/7500 FL Preface Page Contents Illustrations Chapter Introduction to BASIC-80 Invoking BASIC-80 Examples Introduction to BASIC-80Basic filename MEMTOPaddress Filename Listing the Directory of a Disk Renaming a FileChanging File Attributes Deleting a File You can now run, list, or edit the program Save LP ,A Commands Statements BASIC-80 Commands Contd BASIC-80 Statements BASIC-80 Statements Contd BASIC-80 Functions BASIC-80 Functions Contd Representing Data Functions Constants Integer ConstantsDecimal Integer Constants Hexadecimal Integer Constants Double-Precision Floating-Point Constants Octal Integer ConstantsSingle-Precision Floating-Point Constants String Constants String VariablesThis is a string constant $ = Enter next data string L4! = Csng l4 YI,1 String Arrays Arithmetic Operators BASIC-SO Operators in Order of Precedence Contd Logical Operators String OperatorNumeric Expressions String Expressions Entering and Editing Programs 30 A=8*52 30 A=830 A=8*52 30 A=8*37 30 A--=8xx*522537 Control-R a = 8*37 Subcommand Command 3D press 3, then D resultsInteger D If AB then If AB then 120 Else Null SET Syntax of the X subcommand is At this point, the other editing subcommands may be used Print Undefined SET The E subcommand is entered Integer C character characterMove the cursor to PRINT. Enter 2C RE L Print Undefined SET. Enter a L Overflow, Underflow, and Divide-by-Zero BASIC-80 Error MessagesSyntax Error Messages Error Trapping Trace Facility Error Simulation Error HandlingRestarting Program Execution If line 40 is replaced with Opening a Sequential File Open 1,#1,F1DATES Refer to for further details of Print Using Writing to a Sequential FileReading from a Sequential File If executed four times, it would read all eight values Closing a Sequential File Value of R$ would be Field #3, 20 AS N$ BuffersDefining a Random 1/0 Field-FIELD Disk File Input/Output Field #3, 20 AS N$, 9 AS SS$ Opening and Closing a Random Disk File Reading from a Random 1/0 FileAny of the parameters can be variables To read the next record Writing to a Random 1/0 File IntegerSingle-precision value Double-precision value MKI$ Attrib Fdrive numberfilename, W1 Attrib Fdrive numberfilename, WOAuto first lineJ, increment Clear expression,address Commands and Statements Close DEF FNX Rules for function name are the same as for variable name Defsng Defdbl Defstr Defint DIM Delete Error DIREdit END Error expression ExitField FOR-NEXT-STEP GET GosubFor variable=expression to expression Step expression GET I file number ,record number Goto IF-THEN-ELSEInput Kill LETLine Input List LSET, Rset Load Merge NEW Next 9 16 Open On ... GosubOn ... Goto Poke Option BaseOUT String Fields Print UsingPrint Numeric fields If X$=SEVEN and Y$=EIGHT, the results of line 40 would be Prun PUT Randomize Read REM Resume Return Save RUN line numberlstring expression ,FLine number RUN filename 60 END TRON, Troff ? 5,8,2 Wait Width ABS ATN Functions CHR$Cint Csng CVI CVS10 A# = 1.00/3.00 AO/o = Dskf EOF FIX Ok· Inputs HexsINP LEFT$ INTInstr LEN LOCLOF LOG OCT$ MID$MKI$ MKS$ MKD$ Rights Peek expressionPOS integer RIGHT$ string,integer SGN SINSpaces 10 a =1 SPC SPC integerIf A$ = 2 then Print Correct Else Goto SQRexpression TAN expression STR$ expressionTAB expression Here is an example of how the USRn statement is used 60 AO/o = Appendix a BASIC-SO Error Codes Table A-I. BASIC-80 Error Codes Table A-I. BASIC-SO Error Codes Contd Appendix B BASIC-SO Reserved Words Page To halt program execution and return to command LevelTo tab across the line To resume program execution after it is stopped byPage Table D-l. Ascii Code List Appendix D Ascii Codes Table D-2. Ascii Code Definition BEL Appendixe Calling Subroutines Figure B-1. Internal Representation of Numbers and Strings Some Real Examples RESULT=USR%1VARPTRA, VARPTRB, VARPTRC» PRINTA+B+C= Result Figure E-2 /8085 Assembly Language Program Figure E-3. PL/M-80 Program Appendix F RMX/SO BASIC-SO Initializing the Predefined RMX/SO BASIC-SO Configuration ISIS-II BASIC-SO Table F-l. Sample Configuration Jumper Wiring OOOOH-OFFFH Generating Boot-Loaded and PROM-Based Versions BASIC-80 Source FilesBASIC-80 Object Files BASIC-80 Executable Files Generating a Boot-Loaded RMX/80 BASIC-80 That are not boot loaded This option is used to allocate memory. It is 1 if the bootSetting baud rates, refer to the RMX/SO Users Guide This option enables your user-written I/O drivers if you ISBC 80/20-4 Generating a PROM-Based RMX/80 BASIC-80 Prom F1 RMX820.L1BSTART, & FOBASCM.OBJ,& FORMXBAS.LlB F1 DFSDIR. L1BDIRECTORY ,RENAM E,& F1 MTI810.L1B Configuring DFS on an iSBC 80/10 Adding BASIC-SO to an Existing RMX/SO ConfigurationConfiguration Requirements ISBC SO/10 System Clock Public Variables Adding User-Written I/O Drivers to RMX/SO BASIC-SO Open 0,#1, L1LlST Figure F-S. Sample User-Written 1/0 Driver Routine Altering BASIC-80 Workspace Burning a BASIC-80 Program Into Prom Baprom F1HEATER.BAS Page Index Ase BASIC-80 RIGHT$,7-1O Request for Readerscomments 111111