Intel 9800758-02 Some Real Examples, RESULT=USR%1VARPTRA, VARPTRB, VARPTRC» PRINTA+B+C= Result

Page 90

Calling Non-BASIC-SO Subroutines

BASIC-80

Some Real Examples

The three sample programs provided in Figures E-2, E-3, and E-4 show how the same subroutine- adding three integer arguments-can be coded in FORTRAN-SO, PL/M-SO, and SOSO/SOS5 assembly language. Notice that each program requires three parameters.

Once you have processed your subroutine through the PL/M-SO or FORTRAN-SO compilers, or through the SOSO/SOS5 assembler, you can convert it to absolute object code and place it in memory with the LOCATE command. You must give the filename of your relocatable code file and the proper starting address for the subroutine code. In the example below, LOCATE returns absolute object code whose first byte is at address OEOOOH:

-LOCATE :F1 :PLMSUB.OBJ CODE (OEOOOH)

This command returns the absolute object file :Fl:PLMSUB. You can now load this located code into Intellec memory at its proper address with the monitor DEBUG command. When you enter the DEBUG command with your filename, you invoke the Monitor, as shown in the example below. The Monitor responds with a period (.), expecting further commands:

-DEBUG:F1 :PLMSUB #0000

You can now return to ISIS-II and test your subroutine. Leave the Monitor and return to ISIS-II by entering GS and a carriage return after the period:

.G8 (CR) ISIS-II Vm.n

Invoke BASIC-SO, and specify the highest memory address BASIC-SO can use with the MEMTOP option:

-:F1 :BASIC MEMTOP(ODFFFH)

This prevents BASIC-SO from writing over your subroutine. BASIC-SO will appear and tell you how much free memory you have left:

ISIS-II BASIC-80 V1.0 18157 BYTES FREE

Once in BASIC-SO you can write programs that use your subroutine. The following BASIC-SO program defines your subroutine as USRl, asks for three integers, passes these three integer values to the subroutine, defines the result of the subroutine as the variable RESULT, and finally prints RESULT:

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:"

70INPUT A,B,C

80PRINT" A=" ,A, "B=" ,B, "C=" ,C

90RESULT=USR%1(VARPTR(A), VARPTR(B), VARPTR(C»)

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

110END

E-4

Image 90

Contents BASIC-SO Reference Manual A108/0979/7500 FL Preface Page Contents Illustrations Chapter Introduction to BASIC-80 Invoking BASIC-80Basic filename MEMTOPaddress ExamplesIntroduction to BASIC-80 FilenameChanging File Attributes Listing the Directory of a DiskRenaming a File Deleting a FileYou can now run, list, or edit the program Save LP ,ACommands StatementsBASIC-80 Commands Contd BASIC-80 StatementsBASIC-80 Statements Contd BASIC-80 FunctionsBASIC-80 Functions Contd Representing Data FunctionsDecimal Integer Constants ConstantsInteger Constants Hexadecimal Integer ConstantsOctal Integer Constants Single-Precision Floating-Point ConstantsDouble-Precision Floating-Point Constants This is a string constant String ConstantsString Variables $ = Enter next data stringL4! = Csng l4 YI,1String Arrays Arithmetic Operators BASIC-SO Operators in Order of Precedence ContdNumeric Expressions Logical OperatorsString Operator String ExpressionsEntering and Editing Programs 30 A=8*52 30 A=8*37 30 A=8*5230 A=8 30 A--=8xx*522537 Control-R a = 8*37Integer D SubcommandCommand 3D press 3, then D results If AB thenIf AB then 120 Else Null SET Syntax of the X subcommand is At this point, the other editing subcommands may be usedMove the cursor to PRINT. Enter 2C RE L Print Undefined SET The E subcommand is enteredInteger C character character Print Undefined SET. Enter a LBASIC-80 Error Messages Syntax Error MessagesOverflow, Underflow, and Divide-by-Zero Error Trapping Trace Facility Restarting Program Execution Error SimulationError Handling If line 40 is replaced withOpening a Sequential File Open 1,#1,F1DATESReading from a Sequential File Refer to for further details of Print UsingWriting to a Sequential File If executed four times, it would read all eight valuesClosing a Sequential File Value of R$ would beBuffers Defining a Random 1/0 Field-FIELDField #3, 20 AS N$ Disk File Input/Output Field #3, 20 AS N$, 9 AS SS$Any of the parameters can be variables Opening and Closing a Random Disk FileReading from a Random 1/0 File To read the next recordSingle-precision value Writing to a Random 1/0 FileInteger Double-precision valueMKI$ Auto first lineJ, increment Attrib Fdrive numberfilename, W1Attrib Fdrive numberfilename, WO Clear expression,addressCommands and Statements CloseDEF FNX Rules for function name are the same as for variable nameDefsng Defdbl Defstr Defint DIM DeleteEdit ErrorDIR ENDField Error expressionExit FOR-NEXT-STEPFor variable=expression to expression Step expression GETGosub GET I file number ,record numberIF-THEN-ELSE InputGoto Line Input KillLET ListLSET, Rset LoadMerge NEWNext 9 16On ... Gosub On ... GotoOpen Option Base OUTPoke Print Using PrintString Fields Numeric fields If X$=SEVEN and Y$=EIGHT, the results of line 40 would bePrun PUTRandomize ReadREM Resume ReturnLine number RUN filename SaveRUN line numberlstring expression ,F 60 ENDTRON, Troff ? 5,8,2Wait WidthABS ATNCHR$ CintFunctions 10 A# = 1.00/3.00 CsngCVI CVS AO/o =Dskf EOFFIX Ok·Hexs INPInputs INT InstrLEFT$ LOF LENLOC LOGMID$ MKI$ MKS$ MKD$OCT$ POS integer RightsPeek expression RIGHT$ string,integerSpaces SGNSIN 10 a =1If A$ = 2 then Print Correct Else Goto SPCSPC integer SQRexpressionSTR$ expression TAB expressionTAN 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 CodesTable A-I. BASIC-SO Error Codes Contd Appendix B BASIC-SO Reserved Words Page To tab across the line To halt program execution and return to commandLevel To resume program execution after it is stopped byPage Table D-l. Ascii Code List Appendix D Ascii CodesTable D-2. Ascii Code Definition BELAppendixe Calling Subroutines Figure B-1. Internal Representation of Numbers and Strings Some Real Examples RESULT=USR%1VARPTRA, VARPTRB, VARPTRC» PRINTA+B+C= ResultFigure 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-SOTable F-l. Sample Configuration Jumper Wiring OOOOH-OFFFHBASIC-80 Object Files Generating Boot-Loaded and PROM-Based VersionsBASIC-80 Source Files BASIC-80 Executable FilesGenerating a Boot-Loaded RMX/80 BASIC-80 Setting baud rates, refer to the RMX/SO Users Guide That are not boot loadedThis option is used to allocate memory. It is 1 if the boot This option enables your user-written I/O drivers if youISBC 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 Configuration Requirements Configuring DFS on an iSBC 80/10Adding BASIC-SO to an Existing RMX/SO Configuration ISBC SO/10 System ClockPublic Variables Adding User-Written I/O Drivers to RMX/SO BASIC-SO Open 0,#1, L1LlSTFigure F-S. Sample User-Written 1/0 Driver Routine Altering BASIC-80 Workspace Burning a BASIC-80 Program Into PromBaprom F1HEATER.BAS Page Index Ase BASIC-80 RIGHT$,7-1O Request for Readerscomments 111111