CA1046644A - Programmable calculator - Google Patents
Programmable calculatorInfo
- Publication number
- CA1046644A CA1046644A CA174,483A CA174483A CA1046644A CA 1046644 A CA1046644 A CA 1046644A CA 174483 A CA174483 A CA 174483A CA 1046644 A CA1046644 A CA 1046644A
- Authority
- CA
- Canada
- Prior art keywords
- memory
- line
- program
- statement
- calculator
- Prior art date
- Legal status (The legal status is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the status listed.)
- Expired
Links
Classifications
-
- G—PHYSICS
- G06—COMPUTING; CALCULATING OR COUNTING
- G06F—ELECTRIC DIGITAL DATA PROCESSING
- G06F15/00—Digital computers in general; Data processing equipment in general
- G06F15/02—Digital computers in general; Data processing equipment in general manually operated with input through keyboard and computation using a built-in program, e.g. pocket calculators
- G06F15/0225—User interface arrangements, e.g. keyboard, display; Interfaces to other computer systems
- G06F15/0233—User interface arrangements, e.g. keyboard, display; Interfaces to other computer systems with printing provisions
Landscapes
- Engineering & Computer Science (AREA)
- Computer Hardware Design (AREA)
- Computing Systems (AREA)
- General Engineering & Computer Science (AREA)
- Theoretical Computer Science (AREA)
- Human Computer Interaction (AREA)
- Physics & Mathematics (AREA)
- General Physics & Mathematics (AREA)
- Input From Keyboards Or The Like (AREA)
- Calculators And Similar Devices (AREA)
- Record Information Processing For Printing (AREA)
- Devices For Executing Special Programs (AREA)
- Document Processing Apparatus (AREA)
- Computer And Data Communications (AREA)
- Management Or Editing Of Information On Record Carriers (AREA)
- Digital Computer Display Output (AREA)
Abstract
ABSTRACT
An adaptable programmable calculator is provided by employing a modular read-write and read-only memory unit, a central processing unit, and an input-output control unit capable of bidirectionally transferring information between the memory or central processing units and a number of input and output units. These input and output units include an alphanumeric keyboard input unit, a magnetic tape cassette reading and recording unit, an alphanumeric solid state output display unit, an output printer, an X-Y plotter, a magnetic or paper tape reading and recording unit, a magnetic disc reading and recording unit, and a modem for connecting the calculator via telephone lines to a remotely located computer.
The calculator employs an extended version of BASIC computer language and allows the user to enter a line comprising one or more alphanumeric statements into the calculator from the key-board input unit while visually observing an alphanumeric display of the line to check for errors therein. Syntax errors are automatically detected by the calculator when an entered statement is terminated, and execution errors are automatically detected upon attempted execution of a statement or statements.
Both types of errors are indicated to the user via error messages displayer by the output display unit. The calculator employs a compiler for converting each statement entered into the calculator in BASIC language into an internal stored format.
It also employs an uncompiler for regenerating in BASIC language any entered line converted to the internal stored format. The magnetic tape cassette reading and recording unit employed in the calculator allows the user to chain together several pro-gram segments and allows program manipulation of several blocks of data on an individual basis. An interrupt feature of the cassette unit facilitates searching for a particular file located on a magnetic tape at the same time the calculator is performing other functions.
An adaptable programmable calculator is provided by employing a modular read-write and read-only memory unit, a central processing unit, and an input-output control unit capable of bidirectionally transferring information between the memory or central processing units and a number of input and output units. These input and output units include an alphanumeric keyboard input unit, a magnetic tape cassette reading and recording unit, an alphanumeric solid state output display unit, an output printer, an X-Y plotter, a magnetic or paper tape reading and recording unit, a magnetic disc reading and recording unit, and a modem for connecting the calculator via telephone lines to a remotely located computer.
The calculator employs an extended version of BASIC computer language and allows the user to enter a line comprising one or more alphanumeric statements into the calculator from the key-board input unit while visually observing an alphanumeric display of the line to check for errors therein. Syntax errors are automatically detected by the calculator when an entered statement is terminated, and execution errors are automatically detected upon attempted execution of a statement or statements.
Both types of errors are indicated to the user via error messages displayer by the output display unit. The calculator employs a compiler for converting each statement entered into the calculator in BASIC language into an internal stored format.
It also employs an uncompiler for regenerating in BASIC language any entered line converted to the internal stored format. The magnetic tape cassette reading and recording unit employed in the calculator allows the user to chain together several pro-gram segments and allows program manipulation of several blocks of data on an individual basis. An interrupt feature of the cassette unit facilitates searching for a particular file located on a magnetic tape at the same time the calculator is performing other functions.
Description
DEMANDES OU BREVETS VOLUMINEI~X
, LA PRÉSENTE PARTIE DE CETTE DEMANDE OU CE BREVET
COMPREND PLUS D'UN TOME.
CECI EST LE--OME l DE 3' NOTE: Pour les tomes additi~nel.c~, veuillez contacter le Bureau canadien des brevets JUMBO APPI ~ATIONS/PATENTS
THIS SECTION OF THE APPLICATION/PATENT CONTAINS MORE
THAN ONE VOLUME
THIS IS VOLUME l_ OF ~
NOTE: For additional v~lumes Flease c~ntac~ the Canadian Pat~nt Office BACKGROUND OF THE INVENTION
This invention relates generally to calculators and improvements therein and mo_e particularly to programmable calculators that may be controlled both manually from the keyboard input unit and automatically by a stored ~' _ 4 --program loaded into the calculator from the keyboard input unit or an external record member.
Computational problems may be solved manually, with the aid of a calculator (a dedicated computational keyboard-driven machine that may be either programmable or nonprogrammable)~ or a general purpose computer. Manual solution of computational problems is often very slow, so slow in many cases as to be an impractical, expensive, and ineffective use of the human resource, particularly when there are other alternatives for solution of the computational problemsO
Nonprogrammable calculators may be employed to solve many relatively simple computational problems more efficiently than they could be solved by manual methods.
However, the keyboard operations or language employed by-these calculators is typically trivial in structure, thereby requiring many keyboard operations to solve more general arithmetic problems. Programmable calculators may be employed to solve many additional computational problem~
at rates hundreds of times faster than manual methods.
However, the keyboard language employed by these calcula-tors is also typically relatively simple in structure, thereby again requiring many keyboard operations to solve more general arithmetic problems.
~nother basic problem with nearly all of the key-board languages employed by conventional programmable and nonprogrammable calculators is that they allow the character-istics of the hardware of the calculator to show through to the user, Thus9 the user must generally work with data movement at the hardware level, for example, by making sure ~04~;644 that data is in certain storage registers before specifying the operations to be performed with that data and by performing other such "housekeeping" functions. In addition, these languages have been unique to a particular calculator and have not been generally familiar to those persons skilled in the computer and calculator arts.
In the past both programmable and nonprogrammable calculators have generally had very limited memories, thereby severely limiting the size of the computational problems they could be employed to solve. Because of these limitations, the relatively simple structure of the keyboard languages employed by these calculators and the "housekeeping" requirements associated with their languages have not heretofore been serious shortcomings. However, with advances in technology, the cost of memories has decreased to a point where larger memories could be economically included in programmable calculators.
These larger memories have allowed larger and more sophisticated problems to be handled by programmable calculators. As a result the shortcomings of conventional calculator languages have become more critical, thereby creating the need for higher level keyboard languages.
In addition to the foregoing shortcomings, con-ventional programmable calculators generally have less capability and flexibility than is required to meet the needs of many users. For example, they typically cannot be readily expanded and adapted by the user to increase the amount of program and data storage memory or to perform many special keyboard functions oriented toward the environment of the user.
In some conventional programmable calculators a program stored within the calculator can be recorded onto an external magnetic record member and can later be reloaded bac~ into the calculator from the magnetic record member.
However, data and programs stored within these calculators typically cannot be separately recorded onto an external magnetic record member and later separately reloaded back into the calculator therefrom. Moreover, these calculators typically have no provision for making a program secure when it is recorded onto an external magnetic record member. Any user may therefore re-record the program or obtain an indi-cation of the individual program steps once the program is reloaded into the calculator.
Conventional programmable calculators with self-contained output display units typically have little or no alpha capability and typically can only display the contents of one or more selected registers. They are therefore typically unable to display a line containing an alpha-numeric statement or an alphabetic message such as might be use~, for example, to inform the user how to run programs with which he may be unfamiliar. Such features would be ~ery helpful to the user both in editing programs and in simplifying their use.
~onventional programmable calculators typically have little or no capability for editing keyboard entries or pro-grams stored within the calculator. For example, they typica~ly have no provision for deleting, replacing, and inserting information included in or omitted from a keyboard ~ntry or internally-stored program on a character-by-character or line-by-line basis. As another example, they typically have no provision for ~ rectly recalling any line of an 1046644:
internally-stored program~ -As a further example, they typi-cally have no provision for automatically accommodating and sequencing program statements which are entered by the user in random orderO Such features would be very helpful to the user in editing programs.
Conventional computers typically pose an inter-~acing prob~em between th~ user and the machine~ This interface re~uirement takes the $orm of a machine-level operator with special abilities ~or maintaining the soft~
ware system in operative condition for the user Com~
put r time sharing systems comprising a centrally located computer and a multiplicity of remotely located user terminals connected thereto by telephone lines have partially solved the user/machine interface problem. How-ever, these systems lack the samc ~lexibility as conven~
~ional computers in that they are only programmable and provide no convenient non~programmable method for per-forming relatively simple calculations. Both types of systems lack provision for editing a program statement from a keyboard without the necessity of retyping the entire statement, Summary of the Inventio~
In accordance with one aspect of this invention there , .
is provided an improved programmable calculator that has more capability and flexibility than conventional programmable calculators, that is smaller, less expensive and more effi-cient in calculating elementary mathematical functions than conventional computer systems, and that is easier to utilize than conventional programmable calculators or computer systems.
This invention in another aspect provides a programmable calculator employing BASIC computer language implemented in a read-only memory (R~AI) that compl~ely eliminates the user~machine interface re~uirement of ro~
ventional computers and further eliminates the necessity of learning a non-universal language such as those typically associated with con~entional programmable calculators, This invention in another aspect provides a programmable calculator in which the user may, be employing a BACK key or a FORIVARD key o~ a keyboardD position a visual cursor over any character position of a line of information entered from the keyboard or recalled into the display from memory to indicate the character which may ~e edited by simply actuating a key representing the replacement charac-ter, This invention in another aspect provides a programmable calculator in which the user may employ an INSERT key of a keyboard to insert a blan~ character posi-~ion imm~diately to the left of the sursor position, and may insert any character therein by actuating its repre-sentative key.
This invention in another aspect provides a programmable calculator in which the user may employ a space bar of a keyboard when entering a line of information from the keyboard to introduce blank characters at desired character positions along the lineO
This invention in another aspect provides a programmable calculator in which the user may delete a character from a line of informatio~ entered from the key- - -board or recalled into the display from memory by actuating q the space bar after positioning a cursor over the charac-ter to be deleted.
This invention in another aspect provides a programmable calculator i~ which the user may dele~e a character from a line of information entered from the key-~oard or recalled into the display from memory and simul-taneously move the ri~ht hand portion of that line one char-acter position to the left to occupy the space resulting from the deleted character by positioni~g the cursor oYer the character to be deleted and then simultaneously actu-ating the INSERT key and a SHIFT key.
This invention in another aspect provides a - programmable calculator in which the user may move a displayed ~ine of information either left or right across a displa~ register independently o~ the location of a cursor at a particular charactex position thereof~
This invention in another aspect provides a programmable calculator in which the user may di~play a ~tatement located at a particular line in memory by aotu-ating a FETCH key of a keyboard followed by the line desig-nation.
This invention in another aspect provides a programmable calculator in ~hich the user may ha~t execu-tion of a program, call various lines of information from memory into a display register for visual examination, and thereafter automatically resume program execution at the point at which the halt occurred by actuating a single key of a keyboard u~it.
This invention in another aspect provides a programmable calculator in which the user may call a pa~ticular - - l o - 10~6644 line of information from me~lory into a display register and may then actuate one of two keys sf a keyboard unit to step to and visually observe the contents of lines pre-ceding or following the line originally displayed.
This invention in another aspect provides a programmable calculator in which the user may store into memory a line of in~ormation residing in a display register irrespective of the position of that line in the display register and irrespecti~e o~ the location of a cursorO
This invention in another aspect provides a programmable calculator in which the user may, by actua-ting a RECALL key of a keyboard u~it, recall into a display register the most recent llne of information which was terminated by eithex an EXEC~TE or END-OF-LINE command~
This invenkion in another aspect provides a programmable calculator in which a group of keys of a.key--board unit, representing various editing commands~ are provided for conditioning the calculator to perform the command represented without the necessity of literally spelling out the command by actuating a sequence of alpha-betic keys.
This invention in another aspect provides a programmable calculator in which the user may, by actua-ting a single key of a keyboard unit, delete a statement portion of a line of information being entered into a dis-play register while ret~i ni ~ the line number of that line.
This invention in another aspect provides a programmable calculator i~ which the user may, by actua-- . ting a single key of a keyboard unit, erase from memory a line of information recalled into a display register from the memory.
This invention in another aspect provides a programmable calculator in which the user may selectively list on an external printing unit an entire file stored in memory or any portio~ thereof.
This invention in another aspect provides a programmable calculator i~ whieh the user may designate an automatic line numbering mode for automatic~lly providing a line number, according to a selected sequence involving a starting line number and an increment,~at the beginning of each line of information e~texed into a display register.
This invention in another aspect provides a programmable calculator in which the user may selectively scratch from memory a mainline program, non-common vari-able~t a symbol table, and the definitions of a group of user-definable keys.
This invention in another aspect provides a programmable calculator in which ~he user may, during e~ecu-tion of a program, designate a trace mode of operation whereby the line number of each statement executed is printed on an external output unit as it is executed This invention in another aspect provides a prsgrammable calculator in which the user may, prior to execution of a program and without altering the program, - designate a line orllines prior to the execution of ~hich program execution is to be halted~ -This invention in another aspect provides a programmable calculator in which the user may selectively commence execution of a program at either the beginning or --at any intermediate line and may designate that at such time - t a~-~0~6644 all variables are to be either unaltered or set to an unde-fined state.
This invention in another aspect provides a programmable calculator in which the user may~ by actua-ting a single key of a keyboard unit, instruct the calcu-lator to set all program variables to a~ undefined state - ~nd to set up array storage for all arrays previously di-mensioned in a programO
This invention in another aspect pro~rides a programmable calculator in which the user may designate any portion of a program as being secure so that a user may not obtain ~ny indicatîon of the contents of such por-tion and may not store onto a magnetic record member any secure program that has previously been entered into the calculator from a magnetic recsrd member but may observe the contents of the unsecure portion of any program residing in memory~
This invention in another-aspect provides a programmable calculator i~ which a group of ~haracters may be associated with each one of a plurality of definable keys of a keyboard unit, may later be displayed upon actu-ation of the associated key, and, if the group of char acters represents a~ executable co~n~, may be immediately executed upon actuation of the associated key.
This invention in another aspect provides a programmable calculator in which each of a plurality of de-finable keys of a keyboard unit may be associated with a single or multiline function of one argument, which function - may be employed as part of a program or immediately executed from the keyboard.
This invention in another aspect provides a programmable calculator in ~hich each o~ a plurality o~
deilnable keys o~ a keyboard unlt may be associated with a multiplicity of BASIC language prsgram statements and ~he resulting program executed upon actuation oi the asso-ciated key.
This invention in another aspect provides a - prsgrammable calculator in which the user may~ when employ-ing a ~atrix plug-in read-o~ly memory module, ~elec~ as a ~unction the determinant o~ a previously defined square matrix.
This invention in another aspect provides a programmable calculator in which the user may, by actua~
ting a SHIFT key o~ a keyboard unit, selectively cause to be printed on an external printing unit either lower or upper case alphabetic characters, This invention in another aspect provides a programmable calculator in which the user may, when the calculator is used in con~unction with an e~ternal print-lng unit, desig~ate a print-all mode ~or printlng all li~es o~ infsrmation entered ~rom a keyboard and termlnated by EXECUTE or END-OF-LINE commands9 all error messages, and all lnformation displayed durlng execution.
This invention in another aspect provides a programmable calculator in which the user may immediatel~
execute any self-contained BASIC language program statement ~rom a keyboard unit.
This invention in another aspect provides a programmable calculator in which plug~in read-only memory modules are not uniqueiy associated with a particular group o~ keys o~ a keyboard unit.
_1~
This invention in another aspect provides a programmable calculator in which ~unctions available through the use of plug-in re~d-only memory modules are selected -by actuating a series ~ alphanumeric keys o~ a keyboard unit rather than a single key, thereby allowing the ~umber of functions available to be independent o~ the number oi keys availableO
This invention in another aspect provides a programmable calculator in which the user may create a pro-gram using ~unctions available from a plurality 4~ plug~in read-only memory modules i~serted into receptacles on the calculator in a particular sequence, may record such program onto an external magnetic record member, and may thereaiter execute such program on another calculator of the same type con~igured with the same plug-in read-only memory modules but without observing the se~uence in which they ~ere placed in the receptacles of the first calculator.
This invention in another aspect provides a programmable calculator in ~hich khe user may7 when the calculator is con~igured with a plotter plug-in read-only memory module and an external X-Y plotter, speci~y an of~-set oi g and Y coordinates to be applied to all subsequent coordinate speci~ications7 This invention in another aspect provides a programmable calculator in which the user may, when the calculator is con~igured with a p~otter plug-in read-only memory module, and an external X-Y plotter, incrementally plot, in user units, points relative t~ a current pen posi-tlon.
This invention in another aspect provides a 10~6644 ~5--prsgrammable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and exter~al X-7 plotter9 plot rectangular coordinate axes by specifying in user units starting and ending coordinates for each axis, a coordinate at which each axis intersects the other axis, and a tick mark spac-ing for tick ma~king along each axis in elther directio~
~rom a starting point This invention in ano~her aspect provides a programmable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and an e~ternal ~Y plotter, plot labels Qccording to the ~ormat oi a standard BASIC language print -~tatement or accordlng to a referenced format statement of a program, speci~y the height o~ characters contained ln such labels, specl~y a character aspect ratio (ratio of height to width) ~or the characters contained ln such la~els, speci~y an angle o~ rotation in either degrees, radians or grads at which such labels are to be plotted~
and specify a paper helght~o-width ratio ~or assuring character uniformity regardless of plot a~gle This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and an external X-Y plotterJ incrementally plot characters according to character size units for facilitating pen placement at the beg~ nn~ ~g of plotter labelling operationR.
This invention in another aspect provides a programmable calculator in which the user may, when the a ~6 ca~culator is configured with a plotter plug-in read-onl~
memory module and an external X-Y plotter, plot characters as ~he ~-orresponding keys of a keyboard input unit are actuated and use UP, DOWN, LEFT, and RIGHT ARROW keys of the keyboard input unit ~or controlling the position of the plotter pen.
This invention in another aspect provides a programmable calculator in ~hich the user may, when the calculator is configured with a terminal plug-in read-only memory module and an exter~al modem for transmitting and receiving information over telephone lines, select ~rom a keyboard unit a~y baud ra~e ~rom a continuously vari-able range of baud rates~
This invention in anothe~ aspect provides a programmable calculator ln which the user may, when the calculator is configured with a terminal plug-i~ read-only memory module and a~ external modem fcr transmitting and receiving data over telephone lines, sele~t by actuating a ~ing~e key of a keyboard unit either odd or eve~ parity of ~ra~smitted data.
This invention in another aspect provides a programmable calculator in which the user may, when the calcu-lator is conflgured with a terrin~ plug-in read only memory module, enter free text information from a key-board l~put unit, an external magnetic record member, or any peripheral input unit, edit such information on a line-by-line or character-by-character basis, store such information on an external magnetic record member, and thereafter transmit such information, for .example, to a remotely located time-sharing computer system _ ~q_ 10~6644 This in~ention in another aspect provides a progra~mable calculator in which the user may, when the calculator is configured with a terminal plug-in read-o~ly memory module, generate and transmit a~y ASCII eodes~
This invention in another aspect provides a programmable calculator in which the user may7 when the calculator is conXigured with a terminal plug-in read-only memory module and an external modem for transmitting and receiving information over telephone lines, make calcula-tions and run programs locally at the ~ame time as, ~orexample, the calculator is on~ e with and rlln~n~ pro-grams through a remotely located time~sharing co~puter system.
This invention in another aspect provides a programmable calculator i~ which the user may, whe~ the calculator is con~igured with a terminal plug-in read-on'y memory module, recei~e BASIC la~guage programs from remote locations and thereafter ru~ them locall~ on the calculator.
This invention in another aspect provides a ~0 programmable calculator in which the user may, whe~ the calculator is co~figured with an extended input~output plug-in read~only m~mory module, from a keyboaxd unit or under program control, generate and transmit to any of a plurality of input-output channels any twelve-bit code This invention in another aspect provides a programmable calculator in which the user may, when the calculator is con~igured with an e~tended input-output plug-in read-only memory module, ~rom a keyboard unit or . Under program control, read an eight-bit character from a 30~ designated input-output channel.
10~6644 This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured with a~ extended input-output plug-in read-only memory module~ from a keyboard unit or under program control, read the status of a designated external input-output unitO
This invention in anothex aspect provides a programmable calculator ln which the user may, when the calculator is configured with a~ exte~ded input-output plug-in read-only memory module, ~rom a keyboard unit or under program control; perform bit manipulation on si~teen-~it l~eger data a~eordlng to the ~unctions oi ROTATE, AND, and OR.
This invention in another aspect provides a pro rammable calculator in which the user may, whe~ the calcuLator is configured with an extended input-output plug-in read-only memory module7 from a keyboard unit or under program control, convert bet~een var~ous multi-bit ~ata codes and the ASCII code of the calculator for allow ~~ ing the calculator to eommunicate with peripheral units haYing operating codes other than ASCII~
This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured w~th an extended input-output plug-in read only memory module, from a keyboard unit or under program control, write into a string ~ariable any iniormation which may be transmitted to a~ QUtpUt u~ito This invention in another aspect provides a pro-grammable calculator in ~hich the user may, from a key- -~
board or under program control, by means of a single 10466~4 _/ q command which may involve parameters~ max~ a magnetic tape, stored either on an internal tape cassette or on one of a pluralit~ of external tape cassettes, into a designated number of files each being o~ a designated lengtL
This invention in another aspect provides a programmable calculator ln which the user may designate that a particular file s~ored on a magnetic tape cassette is to be used ~or either program storage or data storage and in which he is subsequently pre~ented from attempting to access data from a flle designated for program storage and ~ice versaO
This invention in another aspect provides a programmable calculator i~ whlch ~he user may7 from a keyboard or under program control, access a file stored on a magnetic tape cassette, by means o~ a single command indicating a file number, which ~ile number may be the result of an arithmetlc expressionO
This invention in another aspect provides a programmable calculator in which only complete files o~ a ~0 designated length may be marked on a magnetic tape, thus preventing the existence of a partially complete file near the end of a tape because of an insufficient amount of tape.
This invention in another aspect provides a programmab,e calculator in which the user may, by means of a single command entered either from a keyboard or en-countered under program control, list on an external print-ing unit certain information with respect to each ~ile - stored on a magnetic tape cassette, such information being - the iile number, the amount of information currently stored thereln, the iile type, the maximum file length, the starting 10466~
~ ~o-and ending line numbers o~ program stored therein9 the number of words of common data storage associated with a program stored therein, and the form of data stored therein.
This invention in another aspect pxovides a programmable calculator in which the user may, from a key-board unit or under program control~ chain one or more program segments stored on a magnetic tape cassette to a program residing in the calculator memory and may use the same variables in each segment without declaring common ! 10 storage for the varlablesO
This invention in another aspect provides a programmable calculator i~ which the user may, from a keyboard unit or under program control, insert a program or a program segme~t stored o~ a magnetic tape cassette a~ any line number of a program residing in the calculator memory, This invention in another aspect provides a progra lable calculator in which the user may specify a line number ln memory at which a program or a program seg-ment loaded from a magnetic tape cassett~ is to begin andin which, if the resulting line numbers differ ~rom those of the program or pxogram segment as it resided on tap~, reierences within such program or program segment are auto-matically modified to reflect the current line number se-~uence.
This invention in another aspect provides a programmable calculator in which the user may~ irom a key-board unit or under program co~trol9 selecilvely store any portion of a program residing in the calculator memory onto 30 ~ magnetic tape cassette. -~46644 This invention in another aspect provides a programmable calculator in which the user may, from a key-board uni~ or under program control~ store the definitions associated with all keys sf a group of user-de~inable keys into a file on a magnetic tape cassette, This invention in another aspect provides a programmable calculator in which the user may, from a key-board or under program control, load from a file on a mag-netlc ~ape cassette the definitions as~ociated wlth all ~eys of a group of user-definable keys~
This invention in another aspect p-rovides a programmable calculator i~ which the user may, ~rom a key-board unit or under program-control, load, store, merge7 or chain programs or functions residing or to reside on a m~gnetic ~ape cassette and associated with or ts be associated with any key o~ a group of user-definable keys~
Thi~ invention in another aspect provides a programmable calculator in which the user may, ~rom a key-koard unit or under program control~ load into the calcu-lator memory from a magnetic tape cassette or store ontoa magnetic tape cassette from the calculator memory all common data defined in the program residing in the calcu-lator memory without specifying individual variable names and by means of a single command.
This invention in another aspect provides a - programmable calculator ~n which the user may load prere-corded assembly language programs cont~;nin~ c~m~n~, statements, or ~unctions whieh expand the capabilities of the calculator and which may be selected for execution by the user just as though the same commands, statements, or functions had been made available to the user ~y means of a plug-in read-only memory module.
This invention in another aspect provides a programm-able calculator in which the user may~ from a keyboard unit or under program control~ search a magnetic tape cassette in either forward or reverse directions for locating a particular file at the same time as the calculator is executing program statements or keyboard commandsO
Other and incidental aspects of this invention will become apparent from a reading of this specification and an inspection of the accompanying dra~-ingsO
In general, in accordance with this invention there is provided electronic data processing apparatus comprising:
keyboard input means ~or entering lines of one or more zlphameric characters ~ach into said electronic data processing apparatus;
~said keyboard input means including insertion control means for controlling the insertion of one or more characters into a line of one or more alphameric characters;
first memory means for storin~ lines of one ox more alpha~
meric characters each;
~econd memory means, coupled to said keyboard input means .... ~
and first memory means, for storing a line of one or more alpha-.
meric characters entered into said electronic data processing apparatus from said keyboard input means or recalled from said . first memory means;
display means, coupled to said second memory means, for visually disp~a~ing a line o~ one or more alphameric characters stored in said second memory means, said display means including means for visually displaying a cursor for designating any character position of the displayed line of one or more alphameric characters, said keyboard input means including cursor control means for controlling the position of said cursor: and - ~3 -104~S44 logic means, coupled to said keyboard input means, second memory means, and display means, for positioning said cursor to designate any character position of tne displayed line of one or more alphameric characters in response to actuation of said cursor control means;
said logic means being responsive to each actuation of said insertion control means for shifting selected ones of the alphameric characters in the line of one or more alpha-meric characters then stored in said second memory means and displayed by said display means to insert a blank character at the character position then designated by said cursor.
In the illustrated preferred embodiment of this invention there is employed a keyboard input unit, a magnetic tape cassette reading and recording unit, a solid state output display unit, an optional external output printer unit, an input-output control unit, a memory unit, and a central pro-cessing unit to provide an adaptable programmable calculator having manual operating, automatic operating, program enter-ing, magnetic tape reading, magnetic tape recording, and alphanumeric display and print modes. The keyboard input unit includes a group of data keys for entering numeric data into the calculator, a group of control ~eys for con-trolling the various modes and operations of the calculator and the format of the output display, a group of alpha-numeric keys arranged as a typewriter keyboard for entering statements, and a group of user-definable keys. All of the data and alphanumeric keys and some of the control keys may also be employed for programming the calculator.
The magnetic tape cassette reading and recording unit includes a reading and recording head, a drive mechanism ~~3 A -- ~0~6644 for driving a magnetic tape past the reading and recording head, and reading and recording drive circuits coupled to the reading and recording head for bidirectionally trans~erring information between the magnetic tape and the calculator as determined by keyboard commands or commands which are part of a stored program.
The lnput-output control unit includes a sixteen-bit universal shift register serving as an input-output register into which information may be transferred serially ~rom the central processing unit or in parallel from the keyboard input and magnetic tape cassette reading and re-cording units and from which information may be transferred serially to the central processing unit or in parallel to the solid state output display, magnetic tape cassette reading and recording, and output printer units, It also includes control logic responsive to the central process-ing unit for controlling the transfer of information be-tween these units. The input-output control unit may also be employed to perform the same functions between the central processing unit and peripheral units including, ~or example, an external printing unit, a digitizer, a marked card reader, an X-Y plotter, an external magnetic tape unit, a disc, a typewriter, and a modem A plurality of peripheral units may be connected at the same time to the input-output control unit by simply plugging interface modules associated with the selected peripheral units into receptacles provided therefore in a rear panel of the cal-culator housing.
The memory unit includes a modular random-access read-write memory having a dedicated system area and a separate user area for storing program statements and/or data The user portion of the read-write memory may be expanded without increasing the overall dimensions of the calculator by the addition of a program storage module, Additlonal read-write memory made available to the user 3~ is automatically accomm~dated by the calculator, and the 1046644 5_ user is automatically informed when the storage capacity o~ the read-write memory has been exceeded.
The memory unit also includes a modular read-only memory in which routines and subroutines o~ assembly lan-guage instructions for performing the various ~unctions o~ the calculator are stored. These routines and subrou-tines of the read-only memory may be expanded and adapted by the user to perform additional ~unctions oriented to-ward the speciiic needs of the user. This is accomplished by simply plugging additional read-only memory modules into receptacles provided therefore in a side panel o~ the calculator housing. Added read-only memory modules are automatically accommodated by the calculator and are ac-cessed by the calculator through a series o~ mnemonic tables.
These tables contain mnemonics which are additions to the calculatorr-s programming language.
Plug-in read-only memory modules include, ~or ex-ample, a matrix module, a string variables module, a plot-ter module, an extended input-output module, and a termi-nal module, The matrix module makes available to the user standard BASIC language matrix functions plus an additional function which returns the determinant of a previously defined square matrix. The string variables module makes available to the user standard BASIC language string vari-ables operations. The plotter module enables the user to conveniently plot and label on an external X-Y plotter.
The extended input-output module allows the calculator to be used with a wide variety o~ peripheral input-output unlts. The termlnal module facilitates lnterfacing the calculator wlth a modem ~or communicating, ~or example, -~ ~046644 - a,6-wlth remotely located time-sharing computer systems. It further allows free text editing and storage.
The memory unit ~urther lhcludes a pair of recir-culating sixteen-bit serial shift registers. One of these registers serves a~ a memory address register for serially recelving information from an arithmetic-logic unit inclu-ded in the central processing unitJ for parallel address-ing any memory location designated by the received informa-tion back to the arithmetic-logic unit. The other of these registers serves as a memory access register for serially receiving i~formation from the arithmetic-logic unit, for writing information in parallel into any addressed memory location, for reading information in parallel from any addressed memory location, and for serially transferring information to the arithmetic-logic unit. It also serves a~ a four-bit parallel shift register for transferring ~our bits of binary-coded-decimal information in parallel to the arithmetic-logic unit.
~ The central processing unit includes four recir-culating sixteen-bit serial shift registers, a four-bit serlal shift register, the arithmetic-logic unit, a pro-grammable clock, and a microprocessor. Two of these sixteen-bit serial shift registers serve as accumulator registers for serially receiving information from and serially trans-ferring information to the arithmetic-logic unit. The accumulator register employed is designated by a control flip-flop. One of the accumulator registers also serves as a four-bit parallel shift register for receiving four bits of binary-coded-decimal information in parallel from an~ transferring four bits of such information in parallel ~046644 --~7-to the arithmetic-logic unit. The two remaining sixteen-blt serial shift registers serve as a program counter register and a qualifier register, respectively. They are also employed for serially receiving information from and serially transferring information to the arithmetic-logic unit. The four-bit serial shift register serves as an extend register for serially receiving information from either the memory access register or the arithmetic-logic unit and for serially transferring information to the arithmetic-logic unit.
The arithmetic-logic unit is employed for perform-ing one-bit serial binary arithmetic, four-bit parallel binary-coded-decimal arithmetic, and logic operations. It may also be controlled by the microprocessor to perform bidirectional direct and indirect arithmetic between any of a plurality of the working registers and any of the registers of the read-write memory.
The programmable clock is employed to supply a variable number of shift clock pulses to the arithmetic-logic unit and to the serial shift registers of the input-output, memory, and central processing units. It is also employed to supply clock control signals to the input-output control logic and to the microprocessorO
The microprocessor includes a read-only memory in which a plurality of microinstructions and codes are stored.
These microinstructions and codes are employed to perform the basic instructions of the calculator. They include a plurality of coded and non-coded microinstructions for transferring control to the input-output control logic, for controlling the addressing and accessing of the memory unit, and for controlling the operation of the two accumu-lator registers, the program counter register, the extend register and the arithmetic-logic unit. They also include a plurality of clock codes for controlling the operation of the programmable clock, a plurality of qualifier selec-tion codes for selecting qualifiers and serving as primary address codes for addressing the read-only memory of the microprocessor, and a plurality of secondary address codes for addressing the read-only memory of the microprocessor.
In response to a control signal from a power supply pro-vided for the calculator, control signals for the pro-grammable clock, and qualifier control signals from the central processing and input-output control units, the microprocessor issues the microinstructions and codes stored in the read-only memory of the microprocessor as required to process either binary or binary-coded-decimal information entered into or stored in the calculator.
In the keyboard mode, the calculator is controlled by keycodes sequentially entered into the calculator from the keyboard input unit by the user. The solid state out-put display unit displays either the alphanumeric repre-sentation of the keys as they are depressed or a numeric representation of output data or alphanumeric user instruct-ions or program results. An external output printer unit may be controlled by the user to selectively print a nu-meric representation of any numeric data entered into the calculator from the keyboard input unit, a numeric representation of any result calculated by the calculator, or a program listing on a line-by-line basis of the state-ments entered ~046644 When the calculator is ln the keyboard mode, it may also be operated in a print-all printing mode. The output printer unit then prints out each program line as it is entered by the userO
In the program running mode, the calculator is controlled by automatically obtaining an internal repre-sentation of the program statements stored in the user storage section of the read-write memory, During automatic operation of the calculator, data may be obtained from the memory unit as designated by the program, from the keyboard input unit while the operation of the calculator i9 stopped for data either by the program or by the user, or from the magnetic tape cassette unit as designated by the program.
When the calculator is in the program running mode, the user may also selectively employ a trace mode to check the execution of the program line-by-line in order to determine whether the program, as entered into the calcu-lator, does in fact carry-out the desired sequence of state-ments~
In the program entering mode, statements are se-quentially entered by the user into the calculator from the keyboard input unit and are translated into an inter-nal stored format which consists of a series of operation codes and operand names and are thereafter stored as state-ments of a program in the user storage section of the read-write memory.
The magnetic tape cassette reading and recording unit may be employed by the user to separately load either data, BASIC language programs, assembly language programs, or sets of user-deflnable ~ey definltlons lnto the calcu-lator from an external magnetic tape cassette.
The magnetic tape cassette reading and recording unit may also be employed by the user to separately re-cord either data, BASIC language programs, or sets of user-definable key definitions stored in the user section of the read-write memory onto an external magnetic tape cas-sette. Programs, or portions thereof, may be coded by the user as being secure when they are recorded onto an external magnetic tape cassette. The calculator detects such programs when they are reloaded into the calculator and prevents the user from re-recording them or obtain-l~g any listing or other indication of the individual pro-gram steps contained in the secured portions of such pro-grams.
Description of the Drawings Figure 1 is a front perspective view of an adapt-able programmable calculator according to the preferred embodiment of this invention.
Figure 2 is a rear perspective view of the adapt-able programmable calculator of Figure 1.
Figures 3A-B are a simplified block diagram of the adaptable programmable calculator of Figures 1 and 2.
Figures 4A-F are a memory map of the memory unit employed in the adaptable programmable calculator of Fig-' ures 1 3.
Figure 4' is a diagram showing the arrangement of Figures 4A-F.
Figures 5A-B are a detailed memory map of the system read-write section of memory as shown in Figure 4A.
Figure 5' is a diagram showing the arrangement of Figures 5A-B.
Figure 6 is a detailed memory map of the user read/write section of memory as shown in Figure 4F.
Figure 7 is a simplified operational logic flow chart illustrating the operation of the microprocessor employed in the central processing unit of Figures 3A-B.
Figure 8 is a plan view of the keyboard input unit employed in the adaptable programmable calculator of Figures 1-3B.
Figure 9 is an overall firmware block diagram for the adaptable programmable calculator.
Figures lOA-C are flow charts of floating point add and subtract routines selectable by the execution monitor of Figure 9.
Figure 11 is a flow chart of a floating point multiply routine selectable by the execution monitor of Figure 9.
Figures 12A-B are a flow chart of a floating point divide routine selectable by the execution monitor of Figure 9.
Figures 13A-C are a flow chart of a floating point square root routine selectable by the execution monitor of Figure 9.
Figure 14 is a flow chart of a store routine selectable by the execution monitor of Figure 9.
Figure 15 is a flow chart of a rounding routine employed in connection with several of the routines select-able by the execution monitor of Figure 9.
Figures 16A-B are a flow chart of a tangent X
~0~6644 - 3a--routine selec~able by the execution manitor of Figure 9.
Figures 17A-B are a flow chart of an arctangent X routine selectable by the execution monitor of Figure 9.
Figures 18A-B are a flow chart of an e routine selectable by the execution monitor of Figure 9.
Figure 19 is a flow chart of a natural logarithm X routine selectable by the execution monitor of Figure 9.
Figure 20 is a flow chart of a subroutine employed by the tangent X and ex routines of Figures 16A-B and 18A-B, respectively.
Figures 21A-B are a flow chart of a subroutine employed by the tangent X and arctangent X routines of Figures 16A-B and 17A-B, respectively.
Figures 22A-B are a flow chart of a subroutine employed by the ex and natural logarithm X routines of Figures 18A-B and 19, respectively.
Figure 23 is a flow chart of a subroutine employed by the arctangent X and natural logarithm X routines of Figures 18A-B and 19, respectively.
Figure 24 is a flow chart of sine and cosine rou-tines selectable by the execution monitor of Figure 9.
Figure 25 is a flow chart of an X power routine selectable by the execution monitor of Figure 9.
Figure 26 (27th sheet of drawings) is a flow chart of a logarithm to the base ten routine selectable by the execution monitor of Figure 9.
Figure 27 is a block diagram of the microprocessor of Figures 3A-B.
Figures 28A-D are a detailed schematic diagram of the microprocessor of Figures 3A-B and 27.
~0~6644 Figure 28' is a diagram showing the arrangement of Figures 28A-D.
Figures 29A-H are detailed flow charts illustra-ting the operation of the microprocessor of Figures 3A-B, 27, and 28A-D.
Figures 29' and 29" are diagrams showing the arrange-ment of Figures 29A-H.
Figure 30 is a block diagram of the programmable clock of Figures 3A-B.
Figures 31A-C are a detailed schematic diagram of the programmable clock of Figures 3A-B and 30 and of a portion of the input-output control unit of Figures 3A-B.
Figure 31' (55th sheet of drawings) is a diagram showing the arrangement of Figures 31A-C.
Figure 32 is a waveform diagram illustrating the operation of the programmable clock of Figures 3A-B, 30, and 31A-C.
Figures 33A-D are a detailed schematic diagram of the shift register and arithmetic logic units of Figures 3A-B.
Figure 33' is a diagram showing the arrangement of Figures 33A-D.
Figure 34 is a block diagram of the arithmetic logic unit of Figures 3A-B.
Figure 35 is a block diagram of the memory unit of Figures 3A-B.
Figures 36A-B are a schematic diagram of the read-write memory of Figures 3A-B, 4A-F, and 35.
Figure 36' is a diagram showing the arrangement of Figures 36A-B.
. 1046644 ~,.
Flgures 37A-B are a schematic diagram of the op-tlonal add-on read-wrlte memory of Figures 3A-B, 4A-F, and 35.
Flgure 37' is a diagram showing the arrangement of Figures 37A-B.
Figure 38 is a schematic diagram of the basic read-only memory of Figures 3A-B, 4A-F, and 35.
Figure 39 is a schematic diagram of the optional add-on read-only memory modules of Figure 35 that may be plugged into the calculator to increase the number of functions available to the user.
Figure 40 is a detailed schematic diagram of the buffer circuitry associated with the read-only memory mod-ules of Figure 39.
Figure 41 is a block diagram of one of the read-only memory chips of Figures 38 and 39.
Figures 42A-D are a schematic diagram of one of the read-only memory chips of Figures 38 and 39.
- Figure 42' is a diagram showing the arrangement of Figures 42A-D.
Figure 43 is a memory map of the memory unit of Figures 3A-B and 4A-F illustrating how it is partitioned into the read-only and read-write memory chips of Figures 36A-B through 42A-D, Figure 44 is a flow chart illustrating how the row members of the lists stored in the read-only memory chips are computed.
Figure 45 is a table of bit numbers and actual bits used in connection with the flow chart of Figure 44.
Figures 46A-B are a detailed schematic diagram of - 3 ~ -~046644 the memory address register of Figures 3A-B and 35 with its associated control circuitry.
Figure 46' is a diagram showing the arrangement of Figures 46A-B.
Figures 47A-B are a waveform diagram and state sequence charts illustrating the operation of the control circuitry of Figures 46A-B.
Figure 47' (65th sheet of drawings) is a diagram showing the arrangement of Figures 47A-B.
Figures 48A-B are a detailed schematic diagram of the memory access register of Figures 3A-B and 35.
Figure 48' is a diagram showing the arrangement of Figures 48A-B.
Figures 49A-D are a detailed schematic diagram of the input-output register and gating control circuits employed in the input-output control unit of Figures 3A-B.
Figure 49' is a diagram showing the arrangement of Figures 49A-D.
Figure 50 is a schematic diagram of the source and relationship of the input-output party lines connected to the peripheral interface module receiving receptacles of Figure 20.
Figure 51 is a waveform diagram illustrating the operation of the control section of the input-output con-trol unit of Figures 3A-B and 32.
Figure 52 is a flow chart illustrating the opera-tion of the control section of the input-output control unit of Figures 3A-B and 31A-C.
Figure 53 is a diagram showing how a one-of-ten decoder is employed to address peripheral input-output - 3~-units to the calculator through the input-output control unit of Figures 3A-B, Figure 54 is a waveform diagram of some of the in-put signals employed by the input-output control unit and associated interface modules of Figures 3A-B.
Figure 55 is a waveform diagram of some of the output signals employed by the input-output control unit and associated interface modules of Figures 3A-B.
Figure 56 is a waveform diagram of some of the high speed input signals employed by the input-output con-trol unit and associated interface modules of Figures 3A-B.
Figure 57 is a waveform diagram of some of the high speed output signals employed by the input-output control unit and associated interface modules of Figures 3A Bo Figure 58 is a waveform diagram illustrating the operation of the interrupt mode of operation of the input-output control unit of Figures 3A-B.
Figure 59 is a schematic diagram of logic that may be used to interface an X-Y plotter to the input-output control unit of Figures 3A-B.
Figure 60 is a schematic diagram of logic that may be used to interface a printing unit to the input-output control print of Figures 3A-B.
Figure 61 is a schematic diagram of logic that may be used to interface a modem to the input-output con-trol unit of Figures 3A-B.
Figure 62 is a schematic diagram of logic that may be used to transfer any eight-bit code into or out of the input-output control unit of Figures 3A-B.
104~6~4 Figure 63 is a detailed schematic diagram of the keyboard input unit employed in the adaptable programmable ealculator of Figures 1-3B.
Figure 64 iS a block diagram of the magnetic tape eassette reading and recording unit employed in the cal-culator of Figures 1-3B.
Figure 65 iS a detailed schematic diagram of the interface block of Figure 64.
Figures 66A-B are a detailed schematic diagram of the eontrol logic block of Figure 64.
Figure 66' is a diagram showing the arrangement of Figures 66A-B.
Figures 67A-B are a detailed sehematie diagram of the read-write bloek of Figure 64.
Figure 67' iS a diagram showing the arrangement of Figures 67A-B.
Figures 68A-B are a detailed sehematie diagram of the motor eontrol bloek of Figure 64.
Figure 68' iS a diagram showing the arrangement of Figures 68A-B.
Figure 69 iS a detailed sehematie diagram of the intereonneet bloek of Figure 64.
Figure 70 iS a detailed schematic diagram of the head driver and preamp blocks of Figure 6 4.
Figure 71 iS a bloek diagram illustrating how the magnetie tape eassette reading and reeording unit of Figures 64-70 interaets with the ealeulator of Figures 1-3B.
Figures 72A-B are a detailed sehematie diagram of the output display unit employed in the adaptable program-mable ealeulator of Figures 1- 3B.
104~644 Figure 72' is a diagram showing the arrangement of Figures 72A-B.
Figures 73A-B are a detailed schematic diagram of the control logic circuit associated with the output dis-play unit of Figures 72A-B.
Figure 73 ' iS a diagram showing the arrangement of Figures 73A-B.
Figure 74 iS a block diagram of the power supply system employed in the adaptable programmable calculator of Figures 1- 3B .
Figures 75A-B are a detailed schematic diagram of the power supply system of Figure 74.
Figure 75 ' is a diagram showing the arrangement of Figures 75A-B.
Figures 76A-B are a block diagram of an interface module that may be employed to interface a typewriter to the adaptable programmable calculator of Figures 1-3B.
Figure 76 ' iS a diagram showing the arrangement of Figures 76A-B.
Figures 77A-B are a flow chart of an input-output routine performed when a typewriter is employed with the programmable calculator of Figures 1-3B.
Figure 77 ' iS a diagram showing the arrangement of Figures 77A-B.
Figures 78A-D are a detailed schematic diagram of the control logic block of Figures 76A-B.
Figure 78 ' is a diagram showing the arrangement of Figures 78A-D.
Figures 79A-B are a detailed schematic diagram of the power gates of Figures 76A-B.
1046~;44 _ ~q_ Figure 79' (133rd sheet of drawings) is a diagram showing the arrangement of Figures 79A-B.
Figures 80A-B are a simplified logic diagram show-ing state qualifiers and instructions relating to the flow chart of Figures 77A-B.
Figure 81 is a detailed schematic diagram of the ROM, data latch, and compare circuitry of Figures 76A-B.
Figure 82 is a detailed schematic diagram of a power supply that may be employed to power the typewriter interface circuitry of Figures 78A-D, 79A-B, and 81.
Figure 83 is a flow chart of the turn-on routine which is a portion of the system monitor of Figure 4B.
Figures 84A-D are a flow chart of a routine com-prising another portion of the system monitor of Figure 4B.
Figure 85 is a flow chart of the system table scan routine of Figure 4D.
Figure 86 is a flow chart of a subroutine called by the routine of Figure 85.
Figure 87 is a flow chart of the table search rou-tine of Figure 4A.
Figures 88A-G are a flow chart of the keyboard input routine and special keyboard functions routines of Figure 4A.
Figures 89A-B are flow charts of subroutines called by the routines of Figures 88A-G.
Figure 90 is a flow chart of the clear subroutine called by various ones of the routines of Figures 4A-F.
Figure 91 is a flow chart of a subroutine called by the routine of Figure 88F.
~046644 ~ --~o--Flgure 92 is a flow chart of a ~ubroutine called by the keyboard input routine of Figures 4A and 88A-G.
~ igure 93 is a flow chart of a keyboard driver subroutine called by the subroutine of Figure 92, Figures 94A-F are flow charts of some of the gen-era~ system subroutines of Figure 4Ao ~ igure 95 is a flow chart of the error routine of Figure 4B.
Figures 96A-D are flow charts of the program memory manager routines of Figure 4B.
Figure 97 is a flow chart of another of the gen-eral system subroutines of Figure 4A which is also called by the routines of Figures 96A-D~
Figure ~8 is a flow chart of another of the gen-eral system subroutines of Figure 4A~
Figures 99A-F are flow charts of the user-definable key routines of Figure 4A.
Figures lOOA-D are flow charts of the execution monitor and keyboard execution control blocks of Figure 4C~
. Figure 101 is a flow chart of the load execution routine of Figure 4D~
~igure 102 is a flow chart of the store executio~
routine of Figure 4D~
Figure 103 is a flow chart of the merge execution routine of Figure 4D~
Figure 104 is a ~low chart of the link execution routine of Figure 4Do Figure 105 is a flow chart of the find execution routine of Figure 4D~
Figures 106A-D are flow charts of subroutines - 10~6644 ~1 called by the execution routines of Figures 101-104.
Figure 107 is a flow chart of the load data execu-tion routine of Figure 4D.
Figure 108 is a flow chart of the store data execu-tion routine of Figure 4D.
Figure 109 is a flow chart of a subroutine called by the routines of Figures 107 and 108.
Figure 110 is a flow chart of the load key execu-ti~n routine of Figure 4D.
Figure 111 is a flow chart of the store key execu-tion routine of Figure 4D.
Figure 112 is a flow chart of the load bin execu-tion routine of Figure 4D.
Figure 113 is a flow chart of the mark execu-tion routine of Figure 4D.
Figure 114 is a flow chart of a subroutine called by the routine of Figure 113.
Figure 115A is a flow chart of the list execution routine of Figure 4D.
Figure 115B is a flow chart of a subroutine called by the routine of Figure 115A.
Figure 116 is a flow chart of the secure routine of Figure 4D~
Figures 117A-B are a flow chart of the interrupt routine of Figure 4D.
Figures 118A-B are a flow chart of a routine for performing an OFFSET command selectable when the plotter plug-in read-only memory module is employed with the cal-culator.
Figure 119 is a flow chart of a routine for performing an IPLOT command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 120 is a flow cha~t of a routine for per-forming a LABEL command selectable when the plotter plug-in read-only memory module is employed with the calculatorO
Figure 121 is a flow chart of a routine for per-forming a LETTER command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 122 is a flow chart of a routine for per-forming a CPLOT command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 12~ is a flow chart of a subroutine employed by the routine of Figure 122.
Figure 124 is a flow chart of a routine for per-forming XAXIS and YAXIS commands selectable when the plotter plug-in read-only memory module is employed with the cal-culator, Figures 125A-C are flow charts of subroutines called by the routine of Figure 124.
Figures 126A-C are flow charts of subroutines called by the routines of Figures 118-124, Figure 127 is a flow chart of a primary entry rou-tine employed when the terminal read-only memory module is plugged into the calculator.
Figures 128A-W are a flow chart of a keyboard input and editing routine employed when the terminal read-only memory module is plugged into the calculator.
Figures 129A-B are a flow chart of a modem inter-rupt service routine employed when the terminal read-only memory module is plugged into the calculator.
- 104664~4~ -Figure 130 is a f~ow chart of a secondary entry routine employed when the terminal read-only memory module is plugged into the calculator. ~
Figure 131 is a flow chart of an output statement routine employed when the extended input-output read-only memory module is plugged into the calculator.
Figures 132A-D are flow charts of subroutines called by the routine of Figure 131.
Figure 133 is a flow chart of a BIN command selectable when the extended input-output plug-in read-only memory module is employed with the calculator.
Figure 134 is a flow chart of a CHAR command select-able when the extended input-output plug-in read-only memory modu~e is employed with the calculator.
Figure 135 is a flow chart of a STAT command select-able when the extended input-output plug-in read-only memory module is employed with the calculator.
Figure 136 is a flow chart of binary ROTATE, AND, ~o~ ~a,,~s and OR ~omman~ selectable when the extended input-output plug-in read-only memory module is employed with the calcu-latorO
Description of the Preferred Embodiment GENERAL DESCRIPTION
Referring to Figures 1 and 2, there is shown an adaptable programmable calculator 10 including both a key-board input unit 12 for entering information into and controlling the operation of the calculator and the magnetic tape cassette reading and recording unit 14 for recording in-formation stored within the calculator onto one or more ex-ternal tape cassettes 16 and for subsequently loading the information recorded on these and other similar magnetic tape cassettes back into the calculatorO The calculator also in-cludes a solid state output display unit 18 for displaying alphameric information stored within the calculatorO All of these input and output units are mounted within a single cal-culator housing 24 adjacent to a curved front panel 26 there-of.
As shown in Figure 2, a plurality of peripheral input and output units including, for example, a line printer, a digitizer, a marked card reader, an X-Y plotter, a type-writer, a teletypewriter, an extended read-write memory unit, a magnetic disc reading and recording unit, and a modem for connecting the calculator via telephone lines to a remotely located computer, may be connected to the calculator at the same time by simply inserting interface modules 30 associated with the selected peripheral units into any of four receptacles 32 provided therefor in a rear panel 34 of the calculator housing. As each interface module 30 is inserted into one of these receptacles, a spring-loaded door 38 at the en-trance of the receptacle swings down allowing passage of the interface module. Once the interface module is fully inserted, - 104664~
a printed-circuit terminal board 40 contained within the interface module plugs into a mating edge connector mounted inside the calculator. If any of the selected peripheral units require AC line power, their power cords may be plugged into either of two AC power outlets 42 provided therefor at the rear panel of calculator housing 24.
Referring to the simplified block diagram shown in Figures 3A-B, it may be seen that the calculator also in-cludes an input-output control unit 44 (hereinafter referred to as the I/0 control unit) for controlling the transfer of information to and from the input and output units, a memory unit 46 for storing and manipulating information entered into the calculator and for storing routines and subroutines of basic instructions performed by the calculator, and a central processing unit 48 (hereinafter referred to as the CPU) for controlling the execution of the routines and sub-routines of basic instructions stored in the memory unit as required to process information entered into or stored within t-he calculator. The calculator also includes a bus system comprising an ~-bus 50, a T-bus 52, and an ~-bus 54 for transferring information from the memory and I/0 control units to the CPU, from the CPU to the memory and I/0 control units, and between different portions of the CPU. It further comprises a power supply for supplying DC power to the calculator and peripheral units employed therewith and for issuing a control signal POP when power is supplied to the calculator.
The I/0 control unit 44 includes an input-output register 56 (hereinafter referred to as the I/0 register), associated I/0 gating control circuitry 58, and input-output control logic 60 (hereinafter referred to as the I/0 control), - 104~
I/0 register 56 comprises a universal sixteen-bit shift re-gister into which information may be transferred either bit-serially from CPU 48 via T-bus 52 or in parallel from keyboard input unit 12, magnetic tape cassette reading and recording unit 14, and peripheral input units 28 such as the marked card reader via twelve input party lines 62. Informa-tion may be transferred from I/0 register 56 either bit-serial~y to ~PU 48 ~ia ~-bus 50 or in parallel to magnetic tape cassette reading and recording unit 14, solid state output display unit 18, output printer unit 20, and peripheral output units 28 such as the X-Y plotter or the typewriter via sixteen output party lines 640 I/0 gating control circuitry 58 includes control circuits for controlling the transfer of information into and out of I/0 register 56 in response to selected I/0 qualifier control s~gnals from CPU 48 and selected I/0 control instructions from I/0 control 60. It also includes an interrupt control circuit 65, a peripheral control circuit 669-a printer control circuit 68, and a display control circuit 69 for variously controlling the input and output units and issuing control signals QFG and EBT to I/0 control 60 via two output lines 71 and 72. These last mentioned control circuits variously perform their control functions in response to control signal POP from the power supply, I/0 qualifier control signals from CPU 48, I/0 control instructions from I/0 control 605 and control signals from keyboard input unit 12. Interrupt control circuit 65 initiates the transfer of information into I/0 register 56 from keyboard input unit 12 or interrupting peripheral input units 28 such as the marked card reader and issues a qualifier control signal ~046644 QNR to CPU 48 via output lines 73. Peripheral control circuit 66 enables interface modules 30 plugged into the calculator to respond to information from I/0 register 56, control associated peripheral units 28, transfer information to and/or receive information from associated peripheral units 28, and in some cases initiate the transfer of infor-mation to I/0 register 56 from the interface modules them-selves. Printer control circuit 68 and display control cir-cuit 69 enable output display unit 18, and output printer unit 205 respectively, to respond to information from I/0 register 56.
When a basic I/0 instruction obtained from memory unit 46 is to be executed, CPU 48 transfers control to I/0 control 60 by issuing a pair of I/0 microinstructions PTR
and 2~ thereto. In response to these I/0 microinstructions from CPU 48, control signal POP from the power supply, control signals QFG and EBT from I/0 gating control circuitry 58, and I/0 qualifier and clock control signals from CPU 48, I/0 control 60 selectively issues one or more I/0 control in-structions to gating control circuitry 58 as required to execute the basic I/0 instructions designated by CPU 48 and issues control signals, ~T~, XTR, QRD, and SCB to CPU 48 via output lines 74-77. The I/0 qualifier control signals issued to I/0 control 60 and gating control circuitry 58 by CPU 48 are derived from the basic I/0 instruction to be executed. Those qualifier control signals issued to I/0 control 60 designate the specific I/0 control instructions to be issued by I/0 control 60, while those issued to gating control circuitry 58 designate selected control circuits to be employed in executing the basic I/0 instruction.
- ~046644 -~a-Memory unit 46 includes a modular random-access read-write memory 78 (hereinafter referred to as the RWM), a modular read-only memory 80 (hereinafter referred to as the ROM), a memory address register 82 (hereinafter referred to as the M-register), a memory access register 84 (herein-after referred to as the T-register), and control circuitry 85 for these memories and registers. The RWM 78 and ROM 80 comprise MOS-type semiconductor memories. As shown in the memory map of Figures 4A-F the basic RWM 78 contains a dedicated system storage section of 256 sixteen-bit words extending from address 1400 to address 1777 and a separate user program and/or data storage section of 1792 sixteen-bit words extending from address 40400 to address 43777. Al addresses on the memory map are represented in octal formO
An optional 2048 sixteen-bit words of RWM may be made available to the user at address 44000 to address 47777.
This is accomplished by removing a top panel 90 of the calculator housing shown in Figure 1, and inserting an ad-ditional printed circuit board containing the optional memory. The additional RWM is automatically accommodated by the calculator.
As shown in the more detailed memory map of Figures 5A-B, the RWM dedicated system storage section includes 52 words (addresses 1400-1463) containing information in the form of mnemonic variables which is employed by the firmware routines shown in Figure 9. A more detailed description of these mnemonic variables is given on page 21 of the calculator basic system firmware listing located elsewhere in this specification. Addresses 1466-1477 and 1701-1737 are used as temporary storage by the various routines shown in Figure 9.
1~46644 --4'q -Addresses 1500-1550 comprise a 41-word buffer used to contain the input characters during syntax analysis, Addresses 1551-1621 comprise a 41-word buffer used by the single line display refresh routine of Figure 9. These 41 words along with 42 additional words (addresses 1622-1673) are used as a syntax buffer during syntax analysis. Four of these words (addresses 1622-1625) are used as temporary registers by severa~ of the statement execution routines of Figure 9.
Eight words (addresses 1630-1637) are used as two temporary floating point number registers by the formula evaluation routines of Figure 9. Addresses 1640-1677 comprise 32 words wh~ch are used by the statement execution routines of Figure 9e Eight words (addresses 1744-1747 and 1754-1757) are employed as "ARl" and "AR2" four-word working registers for perfQrming binary-coded-decimal arithmetic. An additional eight words ~addresses 1740-1743 and 1750-1753) are employed as working data registers ''Xc'' and "Yc" for implementation of the trigonometric functions. These sixteen words (addresses 1740-1757? are used as temporary storage registers by all the routines of Figure 9 except the statement execution and formula evaluation routines. A variable-length "system sub-routine stack" (addresses 1760-1772) is employed for storing return addresses required by programs stored in ROM 80. Four words (addresses 1773-1776) are used to store the result of the latest keyboard computation. The last word in the system ~WM (address 1777) is used to store a pointer indicating the next available location for the return address of the next subrout~ne call within the basic system. A complete assembly language description of the system RWM is included in pages 21-24 of the calculator basic system firmware listing.
--~o--As shown in the memory map of Figures 4A-F and the more detailed memory map of Figure 6, user program and/or data storage section of RWM 78 contains 1760 words available to the user (as user addresses 40440-43777) for storing pro-grams and/or data, 20 words dedicated for use by the interrupt routine of Figures 9 and 117A-B, and 12 words available for use by plug-in read-only memory modules. An additional 2048 sixteen-bit words may be made available to the user (as user addresses 44000-47777).
Also, as shown in the memory map of Figures 4A-B, the basic ROM 80 contains 7680 sixteen-bit words extending from address 0000 to address 1377, from address 2000 to ad-dress 16777, and from address 40000 to address 40377. Rou-tines and subroutines of basic instructions for performing the basic functions of the calculator and constants employed by these routines and subroutines are stored in these por-tions of ROM 80. An additional 8192 sixteen-bit words of ROM may also be added at addresses 20000-37777 in steps of 512 and 1,024 words. This is accomplished by simply inserting plug-in ROM modules 92 into receptacles provided therefor within the calculator which are accessible through a door in the left panel of the calculator housing as illustrated in Figure 1. As each plug-in ROM module 92 is inserted into one of these receptacles a printed circuit terminal board 96 con-tained within the plug-in ROM module plugs into a mating edge connector mounted inside the calculator. A handle pivotally mounted at the top end of each plug-in ROM module 92 facili-tates removal of the plug-in ROM module once it has been fully inserted into one of the receptacles.
Routines and subroutines of basic instructions 0~6644 5~ -(and any needed constants) for enabling the calculator to perform many additional functions are stored in each plug-in ROM module 92. The user himself may therefore quickly and simply adapt the calculator to perform many additional functions oriented toward his specific needs by simply plugging ROM modules of his own choosing into the calculator.
Added plug-in ROM modules are automatically accommodated by the calculator.
Referring again to Figures 3A-B, M-register 82 of the memory unit comprises a recirculating sixteen-bit serial shift register into which information may be transferred bit-serially from CPU 48 via T-bus 52 and out of which in-formation may be transferred bit-serially to CPU 48 via ~-bus 50. Information shifted into M-register 82 may be employed to address any word in RWM 78 or ROM 80 via fifteen output lines 106.
T-register 84 of the memory unit comprises a re-circulating sixteen-bit serial shift register into which , information may be transferred either bit-serially from CPU
48 via T-bus 52 or in parallel from any addressed word in RWM 78 and ROM 80 via sixteen parallel input lines 108. In-formation may be transferred from T-register 84 either bit-serially to CPU 48 via ~-bus 50 or parallel to any addressed w o ~ d in RWM 78 via sixteen parallel output lines llO. The four least significant bits of information contained in T-register 84 may comprise binary-coded-decimal information a~
*ff~ may be transferred from the T-register in parallel to CPU
48 via three parallel output lines 112 taken with ~-bus 50.
The control circuitry 85 of the memory unit controls these transfers of information into and out of M-register 82 -5~-and T-register ~4, controls the addressing and accessing of RWM 78 and ROM 80, and refreshes RWM 780 It performs these functions in response to memory microinstructions, memory clock pulses, and shift clock pulses from CPU 48.
CPU 48 includes a register unit 114, an arithmetic-logic unit 116 (hereinafter referred to as the ALU), a pro-grammable clock 118, and a microprocessor 120. Register unit 114 comprises four recirculating sixteen-bit shift registers 1225 124, 126, and 128 and one four-bit shift register 130.
Shift registers 122 and 124 serve as sixteen-bit serial ac-Gumulator registers (hereinafter referred to as the A-register and the B-register, respectively) into which information may be transferred bit-serially from ALU 116 via T-bus 52 and out of which information may be transferred bit-serially to ALU
116 via R-bus 54. The four least significant bit positions of A-register 122 also serve as a four-bit parallel accumulator register into which four bits of binary-coded-decimal infor-mation may be transferred in parallel from ALU 116 via four parallel input lines 132 and out of which four bits of binary-coded-decimal information may also be transferred in parallel to ALU 116 via three parallel output lines 134 taken with ~-bus 54~
Shift register 126 serves as a sixteen-bit system program counter (hereinafter referred to as the P-register) into which information may be transferred bit-serially from ALU 116 via T-bus 52 and out of which information may be transferred bit-serially to ALU 116 via R-bus 54. Informa-tion contained in the least significant bit position of P-register 126 may also be transferred as a qualifier control signal QPO to microprocessor 120 via output line 135.
Shift register 1~8 serves as a sixteen-bit qualifier register (hereinafter referred to as the Q-register) into which information may be transferred bit-serially from ALU
116 via T-bus 52 and out of which information may be trans-ferred bit-serially to ALU 116 via ~-bus 54. Information contained in the five least significant bit positions of Q-register 128 is transferred to I/0 gating control circuitry 58 as five one-bit I/0 qualifier control signals Q00-Q04 via five parallel output lines 136, and information contained in the six next least significant bit positions of the Q-register is transferred to I/0 control 60 as six one~bit I/0 qualifier control signals Q05-Q10 via six parallel output lines 138. Similarly, information contained in the seven least significant, the ninth and eleventh least signifiGant, and the most significant bit positions of Q-register 128 and information derived from the thirteenth, fourteenth, and fifteenth bit positions of the Q-register may be transferred to microprocessor 120 as eleven one-bit microprocessor qualifier control signals Q00-Q06, Q08, Q10, Q15, and QMR via eleven output lines 140. Information con-tained in the twelfth through the fifteenth least significant bit positions of Q-register 128 may be transferred to micro-processor 120 as a four-bit primary address code via four parallel output lines 142.
Shift register 130 serves as a four-bit serial extend register (hereinafter referred to as the E-register) into which information may be transferred bit-serially either from ALU 116 via T-bus 52 or from the least significant bit position of T-register 84 via input line 144. Information may also be transferred out of E-register 130 to ALU 116 10466~4 5~
via ~-bus 54.
Register unit 114 also includes control circuitry 146 for controlling the transfer of parallel binary-coded-decimal information into and out of A-register 122 and the transfer of serial binary information into and out of A-register 122, ~-register 124, P-register 126, Q-register 128, and E-register 130. This is accomplished in response to register microinstructions from microprocessor 120, control signals ~T~ and XTR from I/0 control 60, and shift clock control pulses from programmable clock 118. Control circuitry 146 includes a flip-flop 148 (hereinafter referred to as the A/~ flip=flop) for enabling the transfer of in-formation into and out of either the A-register 122 or the B-register 124 as determined by the state of the A/B flip-flopc The state of A/B flip-flop 148 is initially determined by information Qll transferred to the A/B flip-flop from the twelfth least significant bit position of Q-register 128 but may be subsequently complemented one or more times by micro-instruction CAB from microprocessor 120.
~LU 116 may perform either one-bit serial binary arithmetic on data received from T-register 84 or M-register 82 via S-bus 50 and/or from any register of register unit 114 via R-bus 54 or four-bit parallel binary-coded-decimal arithmetic on data received from T-register 84 via output lines 112 taken with ~-bus 50 and/or from A-register 122 via output lines 134 taken with ~-bus 54. It may also perform logic operations on data received from memory unit 46 and/or register unit 114 via any of these lines. The arithmetic and logic operations performed are ~0 designated by ALU microinstructions from microprocessor 120 10~6644 and are carried out in response to these microinstructions, shift clock control pulses from programmable clock 118, and control signal SCB from I/0 control 60. Information is also transferred from ALU 116 to A-register 122 via output lines 132 or to I/0 register 56, M-register 82, T-register 84, or any register of register unit 114 via T-bus 52 in response to microinstructions and control signals applied to these registers. If a carry results while ALU 116 is performing either one-bit serial binary arithmetic or four-bit parallel binary-coded-decimal arithmetic, the ALU issues a corresponding qualifier control signal QBC ~ QDC to microprocessor 120 via one of two output lines 152 and 154.
Programmable clock 118 includes a crystal-controlled system clock 156, a clock decoder and-generator 158, and a control gate 160. System clock 156 issues regularly re-curring clock pulses to clock decoder and generator 158 via output line 162. In response to these regularly recurring clock pulses from system clock 156 and to four-bit clock codes from microprocessor 120, clock decoder and generator 158 issues trains of n shift clock pulses to ALU 116, M-register 82, T-register 84, and all of the registers of register unit 114 via output line 164. These trains of n shift clock pulses are employed for shifting a corresponding number of bits of serial information into or out of any of these registers or for shifting a carry bit in the ALU. The number n of pulses in each of these trains may vary from one to sixteen as determined by the number of bits of serial information required during each operation to be performed.
In response to a control signal CC0 from microprocessor 120, control gate 160 prevents any shift clock pulses from being - ~0~6644 ~ , applied to the ALU or any of these registers. Upon completion of each train of n shift clock pulses, clock decoder and generator 158 issues a ROM clock pulse to microprocessor 120 via output line 166 and an I/O clock pulse to I/O control 60 via output line 168. In response to the regularly re-curring clock signal from system clock 56, clock decoder and generator 158 also issues correspondingly regularly recurring memory clock pulses to memory unit 46 via output line 1700 Microprocessor 120 selectively issues two I/O
microinstructions to I/O control 60 via two output lines ~72~ six memory microinstructions to memory unit 46 via six output lines 174, thirteen register microinstructions to register unit 114 via thirteen output lines 176, and five ALU microinstructions to ALU 116 via five output lines 178. It also issues a four-bit clock code associated with each of these microinstructions to clock decoder 158 via four output lines 180. These microinstructions and associated clock codes are issued as determined by the control signal POP from the power supply, the eleven microprocessor qualifier control signals from Q-register 128, the four-bit primary address codes from Q-register 128, and the five microprocessor qualifier control signals from I/O control 60, interrupt control 65, ALU 116, and P-register 126.
As shown in the simplified flow chart of Figure 7, microprocessor 120 executes a hardware diagnostic routine (stored within the microprocessor itself) in response to the control signal POP. Upon completion of this diagnostic routine, ALU 116 issues the qualifier control signal QBC
indicating whether or not the diagnostic routine was suc-cessful. Microprocessor 120 thereupon responds to this qualifier control signal ~y entering the basic machine operating loop and issuing microinstructions causing a sixteen-bit instruction stored in ROM 80 to be,loaded into T-register 84 and transferred from there to Q-register 128. Micropro-cessor 120 thereupon sequentially responds to one or more additional qualifier control signals by issuing micro-instructions and associated clock codes for executing the instruction then contained in Q-register 128 and causing another sixteen-bit instruction stored in ROM 80 to be loaded into T-register 84 and transferred from there to the Q-register. When an instruction requiring multiple branching is contained in Q-register 128, microprocessor 120 issues a pair of microinstructions ~ and XTR causing the micro-processor to respond to a four-bit primary address code from the Q-register by issuing additional microinstructions and associated clock codes for executing the instruction contained in the Q-register.
As illustrated by the basic machine operating loop shown in the flow chart of Figure 7, microprocessor 120 initially responds to the qualifier control signal QNR
either by issuing microlnstructions and associated clock codes for interrupting the basic machine operating loop and executing an I/O service routine or by issuing microinstruc-tions and associated clock codes for loading A/B flip-flop 148 with the information Qll contained in Q-register 128.
The manner in which microprocessor 120 responds is deter-mined by the condition of the qualifier control signal QNR, which in turn indicates whether or not the basic machine operating loop should be interrupted.
3G Assuming the basic machine operating loop is not to be interrupted, microprocessor 120 loads the information Qll into A/~ flip-flop 148 and responds to the qualifier control signal QMR either by iss~ing microinstructions for transferring an address portion of the instruction contained in Q-register 128 from T-register 84 into M-register 82 or ~y responding to another qualifier control signal Q15.
Again, the manner in which microprocessor 120 responds is determined by the condition of the qualifier control signal QM~s which in turn indicates whether or not the instruction 1~ contained in Q-register 128 is a memory reference instruction.
Assuming the instruction contained in Q-register 128 is a memory reference instruction, microprocessor 120 transfers the required address information into the M-register 82 and responds to qualifier control signal Q10 either by issuing microinstructions and associated clock c~des to select the base page of the memory (iOe. page 0) or by issuing microinstructions and associated clock codes to select the current page of the memory (i.e. the page from which the instruction contained in Q-register 128 was o~tained)r In either case, the microprocessor then issues microinstructions as required to read data from the preset page of the memory at the address designated by the address information last transferred into M-register 82. Upon completion of this operation, microprocessor 120 responds to qualifier control signal Q15 by issuing additional micro-instructians and associated clock codes to execute an in-direct memory access operation if the condition of t liS
qualifier control signal indicates that the address informa-tion contained in M-register 82 is indirect.
~0 Assuming the address information contained in M-register '~ 1046644 ~ 9 _ 82 is direct (or upon completion of the indirect memory access operation), microprocessor 120 issues micro-instructions and associated clock codes causing the micro-processor itself to respond to a four-bit primary address code from the Q-register. The microprocessor responds by issuing additional microinstructions and associated clock codes for executing whichever one of ten possible memory reference instructions is contained in Q-register 128 and designated by the four-bit primary address code. Following execution of the designated memory reference instruction, microprocessor 120 issues microinstructions and associated clock codes causing another sixteen-bit instruction stored in ROM 80 to be loaded into T-register 84 and transferred from there to Q-register 128, thereby beginning another cycle of the basic machine operating loop.
~s illustrated by other possible paths of the basic machine operating loop shown in Figure 7, microprocessor 120 sequentially responds to other qualifier control signals when other types of instructions are contained in Q-register 128. For example, when an I/O instruction is contained in Q-register 128, microprocessor 120 sequentially responds to qua~ifier control signals QNR, QMR, Q15, Q10, and QRD by issuing microinstructions and associated clock codes to execute the I/O instruction. It should be noted that the microprocessor qualifier control signals not shown in the simplified flow chart of Figure 7 are variously contained within those flow chart blocks requiring decisions as will hereinafter become apparent.
The calculator firmware operational diagram of Figure 9 illustrates the basic components of the calculator ~046644 ~ --~o-firmware. These components comprise routines which reside in the calculator ROM 80 and serve to implement the definition of the calculatorO Control information passing between routines is represented by solid lines on the drawing.
Referring to Figure 9, it is shown that the calculator hardware units are controlled by firmware routines contained in ROM 80 These units comprise an on-off power switch 182, an alphanumeric keyboard input unit 12, a display unit 18, and a magnetic tape cassette reading and recording unit 14. The firmware routines also control an external printer 20, external tape cassette reading and recording units 14, and various other external input-output devices 244.
Operation of the calculator is begun by placing the on-off switch in the ~'on" position, thus forcing the hardware internal to the calculator to execute the instruction located at address 0000 of ROM 80. This instruction directs control to the start-up routine 200, which is shown in the flowchart of Figure 835 and described in detail on page 53 of the basic system firmware listing. The purposes of this routine are to initialize RWM 78, set the stack pointer address at location 1777, set the keyboard execution numeric output format to float 9, initialize certain variables in the system RWM area for later use by other firmware routines, and initialize the various read-write pointers to the user read-write memory area shown in detail in the memory map of Figure 6.
~fter completion of the start-up routine, control is passed to the keyboard monitor routine 202 shown in the flow-chart of Figures 84A-D and detailed on pages 53-56 of the basic system firmware listing. This routine initializes certain variables in the system RWM 78 ~046644 for use by the keyboard illpUt routine 204. It also outputs the automatic line number if necessary. It then calls for an input record from the keyboard input routine 204. When the keyboard input routine returns with a record the keyboard monitor routine searches the mnemonic tables in the assembly language program area shown in Figure 6. It then searches the mnemonic tables in each of the plug-in read-only memory modules of Figure 4E and finally searches the mnemonic tables of the main system ROM 80. A complete assembly language listing of each of the tables in read-only memory is given in the firmware listings. The subroutines which do the search of the mnemonic tables are detailed in the flowcharts of Figures 85~ 86, and 87 If a match is found between the ~haracters of the input record and any of the mnemonic tables, the keyboard monitor branches through a jump table to the appropriate syntax routine 210 for syntax analysis if the mnemonic is a statement, or branches through a jump table for execution if the mnemonic is a system command. A separate syntax analysis routine is provided for each statement and a separate execution routine is provided for each system command.
Syntax and execution routines for statements and commands on an optional read-only memory module are contained in the firm-ware of that module. The assembly language program area is handled in the same fashion as the plug-in read-only memory module. If no mnemonic is found, control is passed to the implied LET syntax routine.
The keyboard input routine 204 is detailed in the flowcharts of Figures 88A-G, 89A-B, and 90-93. It calls on the display refresh routine 206 to refresh the 32 character single line display 18 between key entries. The display 104.~6~ ~
refresh routine is detailed on page 35 of the firmware listing.
When a key is entered through the alphanumeric keyboard 12, the interrupt circuitry causes the calculator to execute the instruction at address 00002. This instruction causes a jump to the interrupt routine 208, which is detailed in the ~ 5~ 8 flowchart of Figures 117A-B and pages ~7 ~ of the firmware listing. The interrupt routine 208 saves the keycode in a , memory location of the system RWM 78 and returns. The key-board input routine 204 reads this memory word and decides what operations need to be performed for that particular keycode. The shift bit is stripped from the keycode and stored as a flag in a temporary location in system RWM 78.
If the key requires that a mnemonic name be displayed, the single line display buffer shown in Figures 5A-B is cleared and the mnemonic name is entered. If an editing function is required, a routine is called to perform the editing function.
If a user-definable key f0-f9 has been given, the user-definable key routine 228 is called. If an alphanumeric key has been given, the shift flag in RWM 78 is tested, and, if the shift has been given, the keycode is converted to the code for the shifted key. Then the keycode is inserted into the single line display buffer shown in Figures 5A-B, either at the end of the line or at the cursor position, if the cursor is within the line.
The user-definable key routines 228 perform the special operations for keys f0-f9. They are detailed in the flowcharts of Figures 99A-F and pages 43-47 of the firmware listing.
The syntax routines 210 translate the characters of the input record into an internal format which is more easily ~andled by the execution routines. If a syntax error is encountered control is passed to the error routine 238 which outputs an error message. The error routine is shown in the flowchart of Figure 95 and the firmware listing at pages 58 and 59. If no error is found, control is passed to either the memory management routines 236, if the statement is to be stored in memory, or to the routine for initialization for keyboard execution if the statement is to be executed. The memory management routines are shown in the flowcharts of Figures 96A-D, 975 and 98 and pages 16 and 60-62 of the firm-ware listingsc The routine 230 for initialization for keyboard execution serv~ to initialize the run time stacks shown in the memory map of Figure 6~ This routine is detailed in the flow-chart of Figure lOOC and pages 109-110 of the firmware list-ing ~
When the RUN command is given, or if the INIT key is actuated,control is passed to the pre-execution processing routines 232. These routines are detailed in pages 65-77 of the firmware listing. They serve to initialize the symbol table and non-common value table areas of the user read-write memory shown in Figure 6.
Control is next passed to the execution monitor 214, which is detailed in the flowchart of Figures lOOA-B and pages 108-110 of the firmware listing. This routine initializes the run time stacks in the user read-write memory of Figure 6 and initiates execution of a stored program beginning at the line number given by the user. After each statement is exe-cuted control is returned to the execution monitor, which prints the line number of the next line if the program is being exe-cuted in the trace mode. Step, stop, or error conditions are checked and program execution is terminated if any of these conditions exist If program execution is to be continued, the jump address of the execution routine for the next state-ment of the program is computed, and control is passed to that routine.
Several of the statement execution routines 240 require evaluation of arithmetic functions and expressions.
This is done in the formula evaluation routines 242.
Several of the statement execution routines 240 require in-put from or output to various external input-output devices 20 and 244. This is done by calling the standard output driver 224 or an optional special I/0 driver 234. Several of the statement execution routines require input from or output to an internal or external tape cassette unit 14.
This is done by calling the tape cassette drivers 226. The statement execution routines for the statements that com-municate with the tape cassette units are detailed in the flowcharts of Figures 101-115 and pages 250-276 of the firm-ware listing.
The list routine 220 is used when listing stored pro-grams on either the single line display 18 or an external ASCII output device 20. The list routine is detailed on pages 78-82 of the firmware listing. Its function is to translate the stored program from the internal stored format into a string of ASCII characters which can be printed or displayed. To print a line of translated characters, the list routine calls on the standard output driver 242 which is detailed in Figure 94E and pages 20 and 33 of the firmware listing.
Detailed assembly language information relating to all of the firmware routines and subroutines herein des-cribed may be obtained by referring to the memory map of Figures 4A-F and the basic system firmware listing located at a later point in this specification.
Communication with the routines in the various plug-in read-only memory modules is accomplished through a series of mnemonic tables and Jump tables. The standard firm-wareS the cassette operating firmware, and each of the plug-in read-only memory modules all contain the following tables:
(1) A statement mnemonic table
, LA PRÉSENTE PARTIE DE CETTE DEMANDE OU CE BREVET
COMPREND PLUS D'UN TOME.
CECI EST LE--OME l DE 3' NOTE: Pour les tomes additi~nel.c~, veuillez contacter le Bureau canadien des brevets JUMBO APPI ~ATIONS/PATENTS
THIS SECTION OF THE APPLICATION/PATENT CONTAINS MORE
THAN ONE VOLUME
THIS IS VOLUME l_ OF ~
NOTE: For additional v~lumes Flease c~ntac~ the Canadian Pat~nt Office BACKGROUND OF THE INVENTION
This invention relates generally to calculators and improvements therein and mo_e particularly to programmable calculators that may be controlled both manually from the keyboard input unit and automatically by a stored ~' _ 4 --program loaded into the calculator from the keyboard input unit or an external record member.
Computational problems may be solved manually, with the aid of a calculator (a dedicated computational keyboard-driven machine that may be either programmable or nonprogrammable)~ or a general purpose computer. Manual solution of computational problems is often very slow, so slow in many cases as to be an impractical, expensive, and ineffective use of the human resource, particularly when there are other alternatives for solution of the computational problemsO
Nonprogrammable calculators may be employed to solve many relatively simple computational problems more efficiently than they could be solved by manual methods.
However, the keyboard operations or language employed by-these calculators is typically trivial in structure, thereby requiring many keyboard operations to solve more general arithmetic problems. Programmable calculators may be employed to solve many additional computational problem~
at rates hundreds of times faster than manual methods.
However, the keyboard language employed by these calcula-tors is also typically relatively simple in structure, thereby again requiring many keyboard operations to solve more general arithmetic problems.
~nother basic problem with nearly all of the key-board languages employed by conventional programmable and nonprogrammable calculators is that they allow the character-istics of the hardware of the calculator to show through to the user, Thus9 the user must generally work with data movement at the hardware level, for example, by making sure ~04~;644 that data is in certain storage registers before specifying the operations to be performed with that data and by performing other such "housekeeping" functions. In addition, these languages have been unique to a particular calculator and have not been generally familiar to those persons skilled in the computer and calculator arts.
In the past both programmable and nonprogrammable calculators have generally had very limited memories, thereby severely limiting the size of the computational problems they could be employed to solve. Because of these limitations, the relatively simple structure of the keyboard languages employed by these calculators and the "housekeeping" requirements associated with their languages have not heretofore been serious shortcomings. However, with advances in technology, the cost of memories has decreased to a point where larger memories could be economically included in programmable calculators.
These larger memories have allowed larger and more sophisticated problems to be handled by programmable calculators. As a result the shortcomings of conventional calculator languages have become more critical, thereby creating the need for higher level keyboard languages.
In addition to the foregoing shortcomings, con-ventional programmable calculators generally have less capability and flexibility than is required to meet the needs of many users. For example, they typically cannot be readily expanded and adapted by the user to increase the amount of program and data storage memory or to perform many special keyboard functions oriented toward the environment of the user.
In some conventional programmable calculators a program stored within the calculator can be recorded onto an external magnetic record member and can later be reloaded bac~ into the calculator from the magnetic record member.
However, data and programs stored within these calculators typically cannot be separately recorded onto an external magnetic record member and later separately reloaded back into the calculator therefrom. Moreover, these calculators typically have no provision for making a program secure when it is recorded onto an external magnetic record member. Any user may therefore re-record the program or obtain an indi-cation of the individual program steps once the program is reloaded into the calculator.
Conventional programmable calculators with self-contained output display units typically have little or no alpha capability and typically can only display the contents of one or more selected registers. They are therefore typically unable to display a line containing an alpha-numeric statement or an alphabetic message such as might be use~, for example, to inform the user how to run programs with which he may be unfamiliar. Such features would be ~ery helpful to the user both in editing programs and in simplifying their use.
~onventional programmable calculators typically have little or no capability for editing keyboard entries or pro-grams stored within the calculator. For example, they typica~ly have no provision for deleting, replacing, and inserting information included in or omitted from a keyboard ~ntry or internally-stored program on a character-by-character or line-by-line basis. As another example, they typically have no provision for ~ rectly recalling any line of an 1046644:
internally-stored program~ -As a further example, they typi-cally have no provision for automatically accommodating and sequencing program statements which are entered by the user in random orderO Such features would be very helpful to the user in editing programs.
Conventional computers typically pose an inter-~acing prob~em between th~ user and the machine~ This interface re~uirement takes the $orm of a machine-level operator with special abilities ~or maintaining the soft~
ware system in operative condition for the user Com~
put r time sharing systems comprising a centrally located computer and a multiplicity of remotely located user terminals connected thereto by telephone lines have partially solved the user/machine interface problem. How-ever, these systems lack the samc ~lexibility as conven~
~ional computers in that they are only programmable and provide no convenient non~programmable method for per-forming relatively simple calculations. Both types of systems lack provision for editing a program statement from a keyboard without the necessity of retyping the entire statement, Summary of the Inventio~
In accordance with one aspect of this invention there , .
is provided an improved programmable calculator that has more capability and flexibility than conventional programmable calculators, that is smaller, less expensive and more effi-cient in calculating elementary mathematical functions than conventional computer systems, and that is easier to utilize than conventional programmable calculators or computer systems.
This invention in another aspect provides a programmable calculator employing BASIC computer language implemented in a read-only memory (R~AI) that compl~ely eliminates the user~machine interface re~uirement of ro~
ventional computers and further eliminates the necessity of learning a non-universal language such as those typically associated with con~entional programmable calculators, This invention in another aspect provides a programmable calculator in which the user may, be employing a BACK key or a FORIVARD key o~ a keyboardD position a visual cursor over any character position of a line of information entered from the keyboard or recalled into the display from memory to indicate the character which may ~e edited by simply actuating a key representing the replacement charac-ter, This invention in another aspect provides a programmable calculator in which the user may employ an INSERT key of a keyboard to insert a blan~ character posi-~ion imm~diately to the left of the sursor position, and may insert any character therein by actuating its repre-sentative key.
This invention in another aspect provides a programmable calculator in which the user may employ a space bar of a keyboard when entering a line of information from the keyboard to introduce blank characters at desired character positions along the lineO
This invention in another aspect provides a programmable calculator in which the user may delete a character from a line of informatio~ entered from the key- - -board or recalled into the display from memory by actuating q the space bar after positioning a cursor over the charac-ter to be deleted.
This invention in another aspect provides a programmable calculator i~ which the user may dele~e a character from a line of information entered from the key-~oard or recalled into the display from memory and simul-taneously move the ri~ht hand portion of that line one char-acter position to the left to occupy the space resulting from the deleted character by positioni~g the cursor oYer the character to be deleted and then simultaneously actu-ating the INSERT key and a SHIFT key.
This invention in another aspect provides a - programmable calculator in which the user may move a displayed ~ine of information either left or right across a displa~ register independently o~ the location of a cursor at a particular charactex position thereof~
This invention in another aspect provides a programmable calculator in which the user may di~play a ~tatement located at a particular line in memory by aotu-ating a FETCH key of a keyboard followed by the line desig-nation.
This invention in another aspect provides a programmable calculator in ~hich the user may ha~t execu-tion of a program, call various lines of information from memory into a display register for visual examination, and thereafter automatically resume program execution at the point at which the halt occurred by actuating a single key of a keyboard u~it.
This invention in another aspect provides a programmable calculator in which the user may call a pa~ticular - - l o - 10~6644 line of information from me~lory into a display register and may then actuate one of two keys sf a keyboard unit to step to and visually observe the contents of lines pre-ceding or following the line originally displayed.
This invention in another aspect provides a programmable calculator in which the user may store into memory a line of in~ormation residing in a display register irrespective of the position of that line in the display register and irrespecti~e o~ the location of a cursorO
This invention in another aspect provides a programmable calculator in which the user may, by actua-ting a RECALL key of a keyboard u~it, recall into a display register the most recent llne of information which was terminated by eithex an EXEC~TE or END-OF-LINE command~
This invenkion in another aspect provides a programmable calculator in which a group of keys of a.key--board unit, representing various editing commands~ are provided for conditioning the calculator to perform the command represented without the necessity of literally spelling out the command by actuating a sequence of alpha-betic keys.
This invention in another aspect provides a programmable calculator in which the user may, by actua-ting a single key of a keyboard unit, delete a statement portion of a line of information being entered into a dis-play register while ret~i ni ~ the line number of that line.
This invention in another aspect provides a programmable calculator i~ which the user may, by actua-- . ting a single key of a keyboard unit, erase from memory a line of information recalled into a display register from the memory.
This invention in another aspect provides a programmable calculator in which the user may selectively list on an external printing unit an entire file stored in memory or any portio~ thereof.
This invention in another aspect provides a programmable calculator i~ whieh the user may designate an automatic line numbering mode for automatic~lly providing a line number, according to a selected sequence involving a starting line number and an increment,~at the beginning of each line of information e~texed into a display register.
This invention in another aspect provides a programmable calculator in which the user may selectively scratch from memory a mainline program, non-common vari-able~t a symbol table, and the definitions of a group of user-definable keys.
This invention in another aspect provides a programmable calculator in which ~he user may, during e~ecu-tion of a program, designate a trace mode of operation whereby the line number of each statement executed is printed on an external output unit as it is executed This invention in another aspect provides a prsgrammable calculator in which the user may, prior to execution of a program and without altering the program, - designate a line orllines prior to the execution of ~hich program execution is to be halted~ -This invention in another aspect provides a programmable calculator in which the user may selectively commence execution of a program at either the beginning or --at any intermediate line and may designate that at such time - t a~-~0~6644 all variables are to be either unaltered or set to an unde-fined state.
This invention in another aspect provides a programmable calculator in which the user may~ by actua-ting a single key of a keyboard unit, instruct the calcu-lator to set all program variables to a~ undefined state - ~nd to set up array storage for all arrays previously di-mensioned in a programO
This invention in another aspect pro~rides a programmable calculator in which the user may designate any portion of a program as being secure so that a user may not obtain ~ny indicatîon of the contents of such por-tion and may not store onto a magnetic record member any secure program that has previously been entered into the calculator from a magnetic recsrd member but may observe the contents of the unsecure portion of any program residing in memory~
This invention in another-aspect provides a programmable calculator i~ which a group of ~haracters may be associated with each one of a plurality of definable keys of a keyboard unit, may later be displayed upon actu-ation of the associated key, and, if the group of char acters represents a~ executable co~n~, may be immediately executed upon actuation of the associated key.
This invention in another aspect provides a programmable calculator in which each of a plurality of de-finable keys of a keyboard unit may be associated with a single or multiline function of one argument, which function - may be employed as part of a program or immediately executed from the keyboard.
This invention in another aspect provides a programmable calculator in ~hich each o~ a plurality o~
deilnable keys o~ a keyboard unlt may be associated with a multiplicity of BASIC language prsgram statements and ~he resulting program executed upon actuation oi the asso-ciated key.
This invention in another aspect provides a - prsgrammable calculator in which the user may~ when employ-ing a ~atrix plug-in read-o~ly memory module, ~elec~ as a ~unction the determinant o~ a previously defined square matrix.
This invention in another aspect provides a programmable calculator in which the user may, by actua~
ting a SHIFT key o~ a keyboard unit, selectively cause to be printed on an external printing unit either lower or upper case alphabetic characters, This invention in another aspect provides a programmable calculator in which the user may, when the calculator is used in con~unction with an e~ternal print-lng unit, desig~ate a print-all mode ~or printlng all li~es o~ infsrmation entered ~rom a keyboard and termlnated by EXECUTE or END-OF-LINE commands9 all error messages, and all lnformation displayed durlng execution.
This invention in another aspect provides a programmable calculator in which the user may immediatel~
execute any self-contained BASIC language program statement ~rom a keyboard unit.
This invention in another aspect provides a programmable calculator in which plug~in read-only memory modules are not uniqueiy associated with a particular group o~ keys o~ a keyboard unit.
_1~
This invention in another aspect provides a programmable calculator in which ~unctions available through the use of plug-in re~d-only memory modules are selected -by actuating a series ~ alphanumeric keys o~ a keyboard unit rather than a single key, thereby allowing the ~umber of functions available to be independent o~ the number oi keys availableO
This invention in another aspect provides a programmable calculator in which the user may create a pro-gram using ~unctions available from a plurality 4~ plug~in read-only memory modules i~serted into receptacles on the calculator in a particular sequence, may record such program onto an external magnetic record member, and may thereaiter execute such program on another calculator of the same type con~igured with the same plug-in read-only memory modules but without observing the se~uence in which they ~ere placed in the receptacles of the first calculator.
This invention in another aspect provides a programmable calculator in ~hich khe user may7 when the calculator is con~igured with a plotter plug-in read-only memory module and an external X-Y plotter, speci~y an of~-set oi g and Y coordinates to be applied to all subsequent coordinate speci~ications7 This invention in another aspect provides a programmable calculator in which the user may, when the calculator is con~igured with a p~otter plug-in read-only memory module, and an external X-Y plotter, incrementally plot, in user units, points relative t~ a current pen posi-tlon.
This invention in another aspect provides a 10~6644 ~5--prsgrammable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and exter~al X-7 plotter9 plot rectangular coordinate axes by specifying in user units starting and ending coordinates for each axis, a coordinate at which each axis intersects the other axis, and a tick mark spac-ing for tick ma~king along each axis in elther directio~
~rom a starting point This invention in ano~her aspect provides a programmable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and an e~ternal ~Y plotter, plot labels Qccording to the ~ormat oi a standard BASIC language print -~tatement or accordlng to a referenced format statement of a program, speci~y the height o~ characters contained ln such labels, specl~y a character aspect ratio (ratio of height to width) ~or the characters contained ln such la~els, speci~y an angle o~ rotation in either degrees, radians or grads at which such labels are to be plotted~
and specify a paper helght~o-width ratio ~or assuring character uniformity regardless of plot a~gle This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured with a plotter plug-in read-only memory module and an external X-Y plotterJ incrementally plot characters according to character size units for facilitating pen placement at the beg~ nn~ ~g of plotter labelling operationR.
This invention in another aspect provides a programmable calculator in which the user may, when the a ~6 ca~culator is configured with a plotter plug-in read-onl~
memory module and an external X-Y plotter, plot characters as ~he ~-orresponding keys of a keyboard input unit are actuated and use UP, DOWN, LEFT, and RIGHT ARROW keys of the keyboard input unit ~or controlling the position of the plotter pen.
This invention in another aspect provides a programmable calculator in ~hich the user may, when the calculator is configured with a terminal plug-in read-only memory module and an exter~al modem for transmitting and receiving information over telephone lines, select ~rom a keyboard unit a~y baud ra~e ~rom a continuously vari-able range of baud rates~
This invention in anothe~ aspect provides a programmable calculator ln which the user may, when the calculator is configured with a terminal plug-i~ read-only memory module and a~ external modem fcr transmitting and receiving data over telephone lines, sele~t by actuating a ~ing~e key of a keyboard unit either odd or eve~ parity of ~ra~smitted data.
This invention in another aspect provides a programmable calculator in which the user may, when the calcu-lator is conflgured with a terrin~ plug-in read only memory module, enter free text information from a key-board l~put unit, an external magnetic record member, or any peripheral input unit, edit such information on a line-by-line or character-by-character basis, store such information on an external magnetic record member, and thereafter transmit such information, for .example, to a remotely located time-sharing computer system _ ~q_ 10~6644 This in~ention in another aspect provides a progra~mable calculator in which the user may, when the calculator is configured with a terminal plug-in read-o~ly memory module, generate and transmit a~y ASCII eodes~
This invention in another aspect provides a programmable calculator in which the user may7 when the calculator is conXigured with a terminal plug-in read-only memory module and an external modem for transmitting and receiving information over telephone lines, make calcula-tions and run programs locally at the ~ame time as, ~orexample, the calculator is on~ e with and rlln~n~ pro-grams through a remotely located time~sharing co~puter system.
This invention in another aspect provides a programmable calculator i~ which the user may, whe~ the calculator is con~igured with a terminal plug-in read-on'y memory module, recei~e BASIC la~guage programs from remote locations and thereafter ru~ them locall~ on the calculator.
This invention in another aspect provides a ~0 programmable calculator in which the user may, whe~ the calculator is co~figured with an extended input~output plug-in read~only m~mory module, from a keyboaxd unit or under program control, generate and transmit to any of a plurality of input-output channels any twelve-bit code This invention in another aspect provides a programmable calculator in which the user may, when the calculator is con~igured with an e~tended input-output plug-in read-only memory module, ~rom a keyboard unit or . Under program control, read an eight-bit character from a 30~ designated input-output channel.
10~6644 This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured with a~ extended input-output plug-in read-only memory module~ from a keyboard unit or under program control, read the status of a designated external input-output unitO
This invention in anothex aspect provides a programmable calculator ln which the user may, when the calculator is configured with a~ exte~ded input-output plug-in read-only memory module, ~rom a keyboard unit or under program control; perform bit manipulation on si~teen-~it l~eger data a~eordlng to the ~unctions oi ROTATE, AND, and OR.
This invention in another aspect provides a pro rammable calculator in which the user may, whe~ the calcuLator is configured with an extended input-output plug-in read-only memory module7 from a keyboard unit or under program control, convert bet~een var~ous multi-bit ~ata codes and the ASCII code of the calculator for allow ~~ ing the calculator to eommunicate with peripheral units haYing operating codes other than ASCII~
This invention in another aspect provides a programmable calculator in which the user may, when the calculator is configured w~th an extended input-output plug-in read only memory module, from a keyboard unit or under program control, write into a string ~ariable any iniormation which may be transmitted to a~ QUtpUt u~ito This invention in another aspect provides a pro-grammable calculator in ~hich the user may, from a key- -~
board or under program control, by means of a single 10466~4 _/ q command which may involve parameters~ max~ a magnetic tape, stored either on an internal tape cassette or on one of a pluralit~ of external tape cassettes, into a designated number of files each being o~ a designated lengtL
This invention in another aspect provides a programmable calculator ln which the user may designate that a particular file s~ored on a magnetic tape cassette is to be used ~or either program storage or data storage and in which he is subsequently pre~ented from attempting to access data from a flle designated for program storage and ~ice versaO
This invention in another aspect provides a programmable calculator i~ whlch ~he user may7 from a keyboard or under program control, access a file stored on a magnetic tape cassette, by means o~ a single command indicating a file number, which ~ile number may be the result of an arithmetlc expressionO
This invention in another aspect provides a programmable calculator in which only complete files o~ a ~0 designated length may be marked on a magnetic tape, thus preventing the existence of a partially complete file near the end of a tape because of an insufficient amount of tape.
This invention in another aspect provides a programmab,e calculator in which the user may, by means of a single command entered either from a keyboard or en-countered under program control, list on an external print-ing unit certain information with respect to each ~ile - stored on a magnetic tape cassette, such information being - the iile number, the amount of information currently stored thereln, the iile type, the maximum file length, the starting 10466~
~ ~o-and ending line numbers o~ program stored therein9 the number of words of common data storage associated with a program stored therein, and the form of data stored therein.
This invention in another aspect pxovides a programmable calculator in which the user may, from a key-board unit or under program control~ chain one or more program segments stored on a magnetic tape cassette to a program residing in the calculator memory and may use the same variables in each segment without declaring common ! 10 storage for the varlablesO
This invention in another aspect provides a programmable calculator i~ which the user may, from a keyboard unit or under program control, insert a program or a program segme~t stored o~ a magnetic tape cassette a~ any line number of a program residing in the calculator memory, This invention in another aspect provides a progra lable calculator in which the user may specify a line number ln memory at which a program or a program seg-ment loaded from a magnetic tape cassett~ is to begin andin which, if the resulting line numbers differ ~rom those of the program or pxogram segment as it resided on tap~, reierences within such program or program segment are auto-matically modified to reflect the current line number se-~uence.
This invention in another aspect provides a programmable calculator in which the user may~ irom a key-board unit or under program co~trol9 selecilvely store any portion of a program residing in the calculator memory onto 30 ~ magnetic tape cassette. -~46644 This invention in another aspect provides a programmable calculator in which the user may, from a key-board uni~ or under program control~ store the definitions associated with all keys sf a group of user-de~inable keys into a file on a magnetic tape cassette, This invention in another aspect provides a programmable calculator in which the user may, from a key-board or under program control, load from a file on a mag-netlc ~ape cassette the definitions as~ociated wlth all ~eys of a group of user-definable keys~
This invention in another aspect p-rovides a programmable calculator i~ which the user may, ~rom a key-board unit or under program-control, load, store, merge7 or chain programs or functions residing or to reside on a m~gnetic ~ape cassette and associated with or ts be associated with any key o~ a group of user-definable keys~
Thi~ invention in another aspect provides a programmable calculator in which the user may, ~rom a key-koard unit or under program control~ load into the calcu-lator memory from a magnetic tape cassette or store ontoa magnetic tape cassette from the calculator memory all common data defined in the program residing in the calcu-lator memory without specifying individual variable names and by means of a single command.
This invention in another aspect provides a - programmable calculator ~n which the user may load prere-corded assembly language programs cont~;nin~ c~m~n~, statements, or ~unctions whieh expand the capabilities of the calculator and which may be selected for execution by the user just as though the same commands, statements, or functions had been made available to the user ~y means of a plug-in read-only memory module.
This invention in another aspect provides a programm-able calculator in which the user may~ from a keyboard unit or under program control~ search a magnetic tape cassette in either forward or reverse directions for locating a particular file at the same time as the calculator is executing program statements or keyboard commandsO
Other and incidental aspects of this invention will become apparent from a reading of this specification and an inspection of the accompanying dra~-ingsO
In general, in accordance with this invention there is provided electronic data processing apparatus comprising:
keyboard input means ~or entering lines of one or more zlphameric characters ~ach into said electronic data processing apparatus;
~said keyboard input means including insertion control means for controlling the insertion of one or more characters into a line of one or more alphameric characters;
first memory means for storin~ lines of one ox more alpha~
meric characters each;
~econd memory means, coupled to said keyboard input means .... ~
and first memory means, for storing a line of one or more alpha-.
meric characters entered into said electronic data processing apparatus from said keyboard input means or recalled from said . first memory means;
display means, coupled to said second memory means, for visually disp~a~ing a line o~ one or more alphameric characters stored in said second memory means, said display means including means for visually displaying a cursor for designating any character position of the displayed line of one or more alphameric characters, said keyboard input means including cursor control means for controlling the position of said cursor: and - ~3 -104~S44 logic means, coupled to said keyboard input means, second memory means, and display means, for positioning said cursor to designate any character position of tne displayed line of one or more alphameric characters in response to actuation of said cursor control means;
said logic means being responsive to each actuation of said insertion control means for shifting selected ones of the alphameric characters in the line of one or more alpha-meric characters then stored in said second memory means and displayed by said display means to insert a blank character at the character position then designated by said cursor.
In the illustrated preferred embodiment of this invention there is employed a keyboard input unit, a magnetic tape cassette reading and recording unit, a solid state output display unit, an optional external output printer unit, an input-output control unit, a memory unit, and a central pro-cessing unit to provide an adaptable programmable calculator having manual operating, automatic operating, program enter-ing, magnetic tape reading, magnetic tape recording, and alphanumeric display and print modes. The keyboard input unit includes a group of data keys for entering numeric data into the calculator, a group of control ~eys for con-trolling the various modes and operations of the calculator and the format of the output display, a group of alpha-numeric keys arranged as a typewriter keyboard for entering statements, and a group of user-definable keys. All of the data and alphanumeric keys and some of the control keys may also be employed for programming the calculator.
The magnetic tape cassette reading and recording unit includes a reading and recording head, a drive mechanism ~~3 A -- ~0~6644 for driving a magnetic tape past the reading and recording head, and reading and recording drive circuits coupled to the reading and recording head for bidirectionally trans~erring information between the magnetic tape and the calculator as determined by keyboard commands or commands which are part of a stored program.
The lnput-output control unit includes a sixteen-bit universal shift register serving as an input-output register into which information may be transferred serially ~rom the central processing unit or in parallel from the keyboard input and magnetic tape cassette reading and re-cording units and from which information may be transferred serially to the central processing unit or in parallel to the solid state output display, magnetic tape cassette reading and recording, and output printer units, It also includes control logic responsive to the central process-ing unit for controlling the transfer of information be-tween these units. The input-output control unit may also be employed to perform the same functions between the central processing unit and peripheral units including, ~or example, an external printing unit, a digitizer, a marked card reader, an X-Y plotter, an external magnetic tape unit, a disc, a typewriter, and a modem A plurality of peripheral units may be connected at the same time to the input-output control unit by simply plugging interface modules associated with the selected peripheral units into receptacles provided therefore in a rear panel of the cal-culator housing.
The memory unit includes a modular random-access read-write memory having a dedicated system area and a separate user area for storing program statements and/or data The user portion of the read-write memory may be expanded without increasing the overall dimensions of the calculator by the addition of a program storage module, Additlonal read-write memory made available to the user 3~ is automatically accomm~dated by the calculator, and the 1046644 5_ user is automatically informed when the storage capacity o~ the read-write memory has been exceeded.
The memory unit also includes a modular read-only memory in which routines and subroutines o~ assembly lan-guage instructions for performing the various ~unctions o~ the calculator are stored. These routines and subrou-tines of the read-only memory may be expanded and adapted by the user to perform additional ~unctions oriented to-ward the speciiic needs of the user. This is accomplished by simply plugging additional read-only memory modules into receptacles provided therefore in a side panel o~ the calculator housing. Added read-only memory modules are automatically accommodated by the calculator and are ac-cessed by the calculator through a series o~ mnemonic tables.
These tables contain mnemonics which are additions to the calculatorr-s programming language.
Plug-in read-only memory modules include, ~or ex-ample, a matrix module, a string variables module, a plot-ter module, an extended input-output module, and a termi-nal module, The matrix module makes available to the user standard BASIC language matrix functions plus an additional function which returns the determinant of a previously defined square matrix. The string variables module makes available to the user standard BASIC language string vari-ables operations. The plotter module enables the user to conveniently plot and label on an external X-Y plotter.
The extended input-output module allows the calculator to be used with a wide variety o~ peripheral input-output unlts. The termlnal module facilitates lnterfacing the calculator wlth a modem ~or communicating, ~or example, -~ ~046644 - a,6-wlth remotely located time-sharing computer systems. It further allows free text editing and storage.
The memory unit ~urther lhcludes a pair of recir-culating sixteen-bit serial shift registers. One of these registers serves a~ a memory address register for serially recelving information from an arithmetic-logic unit inclu-ded in the central processing unitJ for parallel address-ing any memory location designated by the received informa-tion back to the arithmetic-logic unit. The other of these registers serves as a memory access register for serially receiving i~formation from the arithmetic-logic unit, for writing information in parallel into any addressed memory location, for reading information in parallel from any addressed memory location, and for serially transferring information to the arithmetic-logic unit. It also serves a~ a four-bit parallel shift register for transferring ~our bits of binary-coded-decimal information in parallel to the arithmetic-logic unit.
~ The central processing unit includes four recir-culating sixteen-bit serial shift registers, a four-bit serlal shift register, the arithmetic-logic unit, a pro-grammable clock, and a microprocessor. Two of these sixteen-bit serial shift registers serve as accumulator registers for serially receiving information from and serially trans-ferring information to the arithmetic-logic unit. The accumulator register employed is designated by a control flip-flop. One of the accumulator registers also serves as a four-bit parallel shift register for receiving four bits of binary-coded-decimal information in parallel from an~ transferring four bits of such information in parallel ~046644 --~7-to the arithmetic-logic unit. The two remaining sixteen-blt serial shift registers serve as a program counter register and a qualifier register, respectively. They are also employed for serially receiving information from and serially transferring information to the arithmetic-logic unit. The four-bit serial shift register serves as an extend register for serially receiving information from either the memory access register or the arithmetic-logic unit and for serially transferring information to the arithmetic-logic unit.
The arithmetic-logic unit is employed for perform-ing one-bit serial binary arithmetic, four-bit parallel binary-coded-decimal arithmetic, and logic operations. It may also be controlled by the microprocessor to perform bidirectional direct and indirect arithmetic between any of a plurality of the working registers and any of the registers of the read-write memory.
The programmable clock is employed to supply a variable number of shift clock pulses to the arithmetic-logic unit and to the serial shift registers of the input-output, memory, and central processing units. It is also employed to supply clock control signals to the input-output control logic and to the microprocessorO
The microprocessor includes a read-only memory in which a plurality of microinstructions and codes are stored.
These microinstructions and codes are employed to perform the basic instructions of the calculator. They include a plurality of coded and non-coded microinstructions for transferring control to the input-output control logic, for controlling the addressing and accessing of the memory unit, and for controlling the operation of the two accumu-lator registers, the program counter register, the extend register and the arithmetic-logic unit. They also include a plurality of clock codes for controlling the operation of the programmable clock, a plurality of qualifier selec-tion codes for selecting qualifiers and serving as primary address codes for addressing the read-only memory of the microprocessor, and a plurality of secondary address codes for addressing the read-only memory of the microprocessor.
In response to a control signal from a power supply pro-vided for the calculator, control signals for the pro-grammable clock, and qualifier control signals from the central processing and input-output control units, the microprocessor issues the microinstructions and codes stored in the read-only memory of the microprocessor as required to process either binary or binary-coded-decimal information entered into or stored in the calculator.
In the keyboard mode, the calculator is controlled by keycodes sequentially entered into the calculator from the keyboard input unit by the user. The solid state out-put display unit displays either the alphanumeric repre-sentation of the keys as they are depressed or a numeric representation of output data or alphanumeric user instruct-ions or program results. An external output printer unit may be controlled by the user to selectively print a nu-meric representation of any numeric data entered into the calculator from the keyboard input unit, a numeric representation of any result calculated by the calculator, or a program listing on a line-by-line basis of the state-ments entered ~046644 When the calculator is ln the keyboard mode, it may also be operated in a print-all printing mode. The output printer unit then prints out each program line as it is entered by the userO
In the program running mode, the calculator is controlled by automatically obtaining an internal repre-sentation of the program statements stored in the user storage section of the read-write memory, During automatic operation of the calculator, data may be obtained from the memory unit as designated by the program, from the keyboard input unit while the operation of the calculator i9 stopped for data either by the program or by the user, or from the magnetic tape cassette unit as designated by the program.
When the calculator is in the program running mode, the user may also selectively employ a trace mode to check the execution of the program line-by-line in order to determine whether the program, as entered into the calcu-lator, does in fact carry-out the desired sequence of state-ments~
In the program entering mode, statements are se-quentially entered by the user into the calculator from the keyboard input unit and are translated into an inter-nal stored format which consists of a series of operation codes and operand names and are thereafter stored as state-ments of a program in the user storage section of the read-write memory.
The magnetic tape cassette reading and recording unit may be employed by the user to separately load either data, BASIC language programs, assembly language programs, or sets of user-deflnable ~ey definltlons lnto the calcu-lator from an external magnetic tape cassette.
The magnetic tape cassette reading and recording unit may also be employed by the user to separately re-cord either data, BASIC language programs, or sets of user-definable key definitions stored in the user section of the read-write memory onto an external magnetic tape cas-sette. Programs, or portions thereof, may be coded by the user as being secure when they are recorded onto an external magnetic tape cassette. The calculator detects such programs when they are reloaded into the calculator and prevents the user from re-recording them or obtain-l~g any listing or other indication of the individual pro-gram steps contained in the secured portions of such pro-grams.
Description of the Drawings Figure 1 is a front perspective view of an adapt-able programmable calculator according to the preferred embodiment of this invention.
Figure 2 is a rear perspective view of the adapt-able programmable calculator of Figure 1.
Figures 3A-B are a simplified block diagram of the adaptable programmable calculator of Figures 1 and 2.
Figures 4A-F are a memory map of the memory unit employed in the adaptable programmable calculator of Fig-' ures 1 3.
Figure 4' is a diagram showing the arrangement of Figures 4A-F.
Figures 5A-B are a detailed memory map of the system read-write section of memory as shown in Figure 4A.
Figure 5' is a diagram showing the arrangement of Figures 5A-B.
Figure 6 is a detailed memory map of the user read/write section of memory as shown in Figure 4F.
Figure 7 is a simplified operational logic flow chart illustrating the operation of the microprocessor employed in the central processing unit of Figures 3A-B.
Figure 8 is a plan view of the keyboard input unit employed in the adaptable programmable calculator of Figures 1-3B.
Figure 9 is an overall firmware block diagram for the adaptable programmable calculator.
Figures lOA-C are flow charts of floating point add and subtract routines selectable by the execution monitor of Figure 9.
Figure 11 is a flow chart of a floating point multiply routine selectable by the execution monitor of Figure 9.
Figures 12A-B are a flow chart of a floating point divide routine selectable by the execution monitor of Figure 9.
Figures 13A-C are a flow chart of a floating point square root routine selectable by the execution monitor of Figure 9.
Figure 14 is a flow chart of a store routine selectable by the execution monitor of Figure 9.
Figure 15 is a flow chart of a rounding routine employed in connection with several of the routines select-able by the execution monitor of Figure 9.
Figures 16A-B are a flow chart of a tangent X
~0~6644 - 3a--routine selec~able by the execution manitor of Figure 9.
Figures 17A-B are a flow chart of an arctangent X routine selectable by the execution monitor of Figure 9.
Figures 18A-B are a flow chart of an e routine selectable by the execution monitor of Figure 9.
Figure 19 is a flow chart of a natural logarithm X routine selectable by the execution monitor of Figure 9.
Figure 20 is a flow chart of a subroutine employed by the tangent X and ex routines of Figures 16A-B and 18A-B, respectively.
Figures 21A-B are a flow chart of a subroutine employed by the tangent X and arctangent X routines of Figures 16A-B and 17A-B, respectively.
Figures 22A-B are a flow chart of a subroutine employed by the ex and natural logarithm X routines of Figures 18A-B and 19, respectively.
Figure 23 is a flow chart of a subroutine employed by the arctangent X and natural logarithm X routines of Figures 18A-B and 19, respectively.
Figure 24 is a flow chart of sine and cosine rou-tines selectable by the execution monitor of Figure 9.
Figure 25 is a flow chart of an X power routine selectable by the execution monitor of Figure 9.
Figure 26 (27th sheet of drawings) is a flow chart of a logarithm to the base ten routine selectable by the execution monitor of Figure 9.
Figure 27 is a block diagram of the microprocessor of Figures 3A-B.
Figures 28A-D are a detailed schematic diagram of the microprocessor of Figures 3A-B and 27.
~0~6644 Figure 28' is a diagram showing the arrangement of Figures 28A-D.
Figures 29A-H are detailed flow charts illustra-ting the operation of the microprocessor of Figures 3A-B, 27, and 28A-D.
Figures 29' and 29" are diagrams showing the arrange-ment of Figures 29A-H.
Figure 30 is a block diagram of the programmable clock of Figures 3A-B.
Figures 31A-C are a detailed schematic diagram of the programmable clock of Figures 3A-B and 30 and of a portion of the input-output control unit of Figures 3A-B.
Figure 31' (55th sheet of drawings) is a diagram showing the arrangement of Figures 31A-C.
Figure 32 is a waveform diagram illustrating the operation of the programmable clock of Figures 3A-B, 30, and 31A-C.
Figures 33A-D are a detailed schematic diagram of the shift register and arithmetic logic units of Figures 3A-B.
Figure 33' is a diagram showing the arrangement of Figures 33A-D.
Figure 34 is a block diagram of the arithmetic logic unit of Figures 3A-B.
Figure 35 is a block diagram of the memory unit of Figures 3A-B.
Figures 36A-B are a schematic diagram of the read-write memory of Figures 3A-B, 4A-F, and 35.
Figure 36' is a diagram showing the arrangement of Figures 36A-B.
. 1046644 ~,.
Flgures 37A-B are a schematic diagram of the op-tlonal add-on read-wrlte memory of Figures 3A-B, 4A-F, and 35.
Flgure 37' is a diagram showing the arrangement of Figures 37A-B.
Figure 38 is a schematic diagram of the basic read-only memory of Figures 3A-B, 4A-F, and 35.
Figure 39 is a schematic diagram of the optional add-on read-only memory modules of Figure 35 that may be plugged into the calculator to increase the number of functions available to the user.
Figure 40 is a detailed schematic diagram of the buffer circuitry associated with the read-only memory mod-ules of Figure 39.
Figure 41 is a block diagram of one of the read-only memory chips of Figures 38 and 39.
Figures 42A-D are a schematic diagram of one of the read-only memory chips of Figures 38 and 39.
- Figure 42' is a diagram showing the arrangement of Figures 42A-D.
Figure 43 is a memory map of the memory unit of Figures 3A-B and 4A-F illustrating how it is partitioned into the read-only and read-write memory chips of Figures 36A-B through 42A-D, Figure 44 is a flow chart illustrating how the row members of the lists stored in the read-only memory chips are computed.
Figure 45 is a table of bit numbers and actual bits used in connection with the flow chart of Figure 44.
Figures 46A-B are a detailed schematic diagram of - 3 ~ -~046644 the memory address register of Figures 3A-B and 35 with its associated control circuitry.
Figure 46' is a diagram showing the arrangement of Figures 46A-B.
Figures 47A-B are a waveform diagram and state sequence charts illustrating the operation of the control circuitry of Figures 46A-B.
Figure 47' (65th sheet of drawings) is a diagram showing the arrangement of Figures 47A-B.
Figures 48A-B are a detailed schematic diagram of the memory access register of Figures 3A-B and 35.
Figure 48' is a diagram showing the arrangement of Figures 48A-B.
Figures 49A-D are a detailed schematic diagram of the input-output register and gating control circuits employed in the input-output control unit of Figures 3A-B.
Figure 49' is a diagram showing the arrangement of Figures 49A-D.
Figure 50 is a schematic diagram of the source and relationship of the input-output party lines connected to the peripheral interface module receiving receptacles of Figure 20.
Figure 51 is a waveform diagram illustrating the operation of the control section of the input-output con-trol unit of Figures 3A-B and 32.
Figure 52 is a flow chart illustrating the opera-tion of the control section of the input-output control unit of Figures 3A-B and 31A-C.
Figure 53 is a diagram showing how a one-of-ten decoder is employed to address peripheral input-output - 3~-units to the calculator through the input-output control unit of Figures 3A-B, Figure 54 is a waveform diagram of some of the in-put signals employed by the input-output control unit and associated interface modules of Figures 3A-B.
Figure 55 is a waveform diagram of some of the output signals employed by the input-output control unit and associated interface modules of Figures 3A-B.
Figure 56 is a waveform diagram of some of the high speed input signals employed by the input-output con-trol unit and associated interface modules of Figures 3A-B.
Figure 57 is a waveform diagram of some of the high speed output signals employed by the input-output control unit and associated interface modules of Figures 3A Bo Figure 58 is a waveform diagram illustrating the operation of the interrupt mode of operation of the input-output control unit of Figures 3A-B.
Figure 59 is a schematic diagram of logic that may be used to interface an X-Y plotter to the input-output control unit of Figures 3A-B.
Figure 60 is a schematic diagram of logic that may be used to interface a printing unit to the input-output control print of Figures 3A-B.
Figure 61 is a schematic diagram of logic that may be used to interface a modem to the input-output con-trol unit of Figures 3A-B.
Figure 62 is a schematic diagram of logic that may be used to transfer any eight-bit code into or out of the input-output control unit of Figures 3A-B.
104~6~4 Figure 63 is a detailed schematic diagram of the keyboard input unit employed in the adaptable programmable ealculator of Figures 1-3B.
Figure 64 iS a block diagram of the magnetic tape eassette reading and recording unit employed in the cal-culator of Figures 1-3B.
Figure 65 iS a detailed schematic diagram of the interface block of Figure 64.
Figures 66A-B are a detailed schematic diagram of the eontrol logic block of Figure 64.
Figure 66' is a diagram showing the arrangement of Figures 66A-B.
Figures 67A-B are a detailed sehematie diagram of the read-write bloek of Figure 64.
Figure 67' iS a diagram showing the arrangement of Figures 67A-B.
Figures 68A-B are a detailed sehematie diagram of the motor eontrol bloek of Figure 64.
Figure 68' iS a diagram showing the arrangement of Figures 68A-B.
Figure 69 iS a detailed sehematie diagram of the intereonneet bloek of Figure 64.
Figure 70 iS a detailed schematic diagram of the head driver and preamp blocks of Figure 6 4.
Figure 71 iS a bloek diagram illustrating how the magnetie tape eassette reading and reeording unit of Figures 64-70 interaets with the ealeulator of Figures 1-3B.
Figures 72A-B are a detailed sehematie diagram of the output display unit employed in the adaptable program-mable ealeulator of Figures 1- 3B.
104~644 Figure 72' is a diagram showing the arrangement of Figures 72A-B.
Figures 73A-B are a detailed schematic diagram of the control logic circuit associated with the output dis-play unit of Figures 72A-B.
Figure 73 ' iS a diagram showing the arrangement of Figures 73A-B.
Figure 74 iS a block diagram of the power supply system employed in the adaptable programmable calculator of Figures 1- 3B .
Figures 75A-B are a detailed schematic diagram of the power supply system of Figure 74.
Figure 75 ' is a diagram showing the arrangement of Figures 75A-B.
Figures 76A-B are a block diagram of an interface module that may be employed to interface a typewriter to the adaptable programmable calculator of Figures 1-3B.
Figure 76 ' iS a diagram showing the arrangement of Figures 76A-B.
Figures 77A-B are a flow chart of an input-output routine performed when a typewriter is employed with the programmable calculator of Figures 1-3B.
Figure 77 ' iS a diagram showing the arrangement of Figures 77A-B.
Figures 78A-D are a detailed schematic diagram of the control logic block of Figures 76A-B.
Figure 78 ' is a diagram showing the arrangement of Figures 78A-D.
Figures 79A-B are a detailed schematic diagram of the power gates of Figures 76A-B.
1046~;44 _ ~q_ Figure 79' (133rd sheet of drawings) is a diagram showing the arrangement of Figures 79A-B.
Figures 80A-B are a simplified logic diagram show-ing state qualifiers and instructions relating to the flow chart of Figures 77A-B.
Figure 81 is a detailed schematic diagram of the ROM, data latch, and compare circuitry of Figures 76A-B.
Figure 82 is a detailed schematic diagram of a power supply that may be employed to power the typewriter interface circuitry of Figures 78A-D, 79A-B, and 81.
Figure 83 is a flow chart of the turn-on routine which is a portion of the system monitor of Figure 4B.
Figures 84A-D are a flow chart of a routine com-prising another portion of the system monitor of Figure 4B.
Figure 85 is a flow chart of the system table scan routine of Figure 4D.
Figure 86 is a flow chart of a subroutine called by the routine of Figure 85.
Figure 87 is a flow chart of the table search rou-tine of Figure 4A.
Figures 88A-G are a flow chart of the keyboard input routine and special keyboard functions routines of Figure 4A.
Figures 89A-B are flow charts of subroutines called by the routines of Figures 88A-G.
Figure 90 is a flow chart of the clear subroutine called by various ones of the routines of Figures 4A-F.
Figure 91 is a flow chart of a subroutine called by the routine of Figure 88F.
~046644 ~ --~o--Flgure 92 is a flow chart of a ~ubroutine called by the keyboard input routine of Figures 4A and 88A-G.
~ igure 93 is a flow chart of a keyboard driver subroutine called by the subroutine of Figure 92, Figures 94A-F are flow charts of some of the gen-era~ system subroutines of Figure 4Ao ~ igure 95 is a flow chart of the error routine of Figure 4B.
Figures 96A-D are flow charts of the program memory manager routines of Figure 4B.
Figure 97 is a flow chart of another of the gen-eral system subroutines of Figure 4A which is also called by the routines of Figures 96A-D~
Figure ~8 is a flow chart of another of the gen-eral system subroutines of Figure 4A~
Figures 99A-F are flow charts of the user-definable key routines of Figure 4A.
Figures lOOA-D are flow charts of the execution monitor and keyboard execution control blocks of Figure 4C~
. Figure 101 is a flow chart of the load execution routine of Figure 4D~
~igure 102 is a flow chart of the store executio~
routine of Figure 4D~
Figure 103 is a flow chart of the merge execution routine of Figure 4D~
Figure 104 is a ~low chart of the link execution routine of Figure 4Do Figure 105 is a flow chart of the find execution routine of Figure 4D~
Figures 106A-D are flow charts of subroutines - 10~6644 ~1 called by the execution routines of Figures 101-104.
Figure 107 is a flow chart of the load data execu-tion routine of Figure 4D.
Figure 108 is a flow chart of the store data execu-tion routine of Figure 4D.
Figure 109 is a flow chart of a subroutine called by the routines of Figures 107 and 108.
Figure 110 is a flow chart of the load key execu-ti~n routine of Figure 4D.
Figure 111 is a flow chart of the store key execu-tion routine of Figure 4D.
Figure 112 is a flow chart of the load bin execu-tion routine of Figure 4D.
Figure 113 is a flow chart of the mark execu-tion routine of Figure 4D.
Figure 114 is a flow chart of a subroutine called by the routine of Figure 113.
Figure 115A is a flow chart of the list execution routine of Figure 4D.
Figure 115B is a flow chart of a subroutine called by the routine of Figure 115A.
Figure 116 is a flow chart of the secure routine of Figure 4D~
Figures 117A-B are a flow chart of the interrupt routine of Figure 4D.
Figures 118A-B are a flow chart of a routine for performing an OFFSET command selectable when the plotter plug-in read-only memory module is employed with the cal-culator.
Figure 119 is a flow chart of a routine for performing an IPLOT command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 120 is a flow cha~t of a routine for per-forming a LABEL command selectable when the plotter plug-in read-only memory module is employed with the calculatorO
Figure 121 is a flow chart of a routine for per-forming a LETTER command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 122 is a flow chart of a routine for per-forming a CPLOT command selectable when the plotter plug-in read-only memory module is employed with the calculator.
Figure 12~ is a flow chart of a subroutine employed by the routine of Figure 122.
Figure 124 is a flow chart of a routine for per-forming XAXIS and YAXIS commands selectable when the plotter plug-in read-only memory module is employed with the cal-culator, Figures 125A-C are flow charts of subroutines called by the routine of Figure 124.
Figures 126A-C are flow charts of subroutines called by the routines of Figures 118-124, Figure 127 is a flow chart of a primary entry rou-tine employed when the terminal read-only memory module is plugged into the calculator.
Figures 128A-W are a flow chart of a keyboard input and editing routine employed when the terminal read-only memory module is plugged into the calculator.
Figures 129A-B are a flow chart of a modem inter-rupt service routine employed when the terminal read-only memory module is plugged into the calculator.
- 104664~4~ -Figure 130 is a f~ow chart of a secondary entry routine employed when the terminal read-only memory module is plugged into the calculator. ~
Figure 131 is a flow chart of an output statement routine employed when the extended input-output read-only memory module is plugged into the calculator.
Figures 132A-D are flow charts of subroutines called by the routine of Figure 131.
Figure 133 is a flow chart of a BIN command selectable when the extended input-output plug-in read-only memory module is employed with the calculator.
Figure 134 is a flow chart of a CHAR command select-able when the extended input-output plug-in read-only memory modu~e is employed with the calculator.
Figure 135 is a flow chart of a STAT command select-able when the extended input-output plug-in read-only memory module is employed with the calculator.
Figure 136 is a flow chart of binary ROTATE, AND, ~o~ ~a,,~s and OR ~omman~ selectable when the extended input-output plug-in read-only memory module is employed with the calcu-latorO
Description of the Preferred Embodiment GENERAL DESCRIPTION
Referring to Figures 1 and 2, there is shown an adaptable programmable calculator 10 including both a key-board input unit 12 for entering information into and controlling the operation of the calculator and the magnetic tape cassette reading and recording unit 14 for recording in-formation stored within the calculator onto one or more ex-ternal tape cassettes 16 and for subsequently loading the information recorded on these and other similar magnetic tape cassettes back into the calculatorO The calculator also in-cludes a solid state output display unit 18 for displaying alphameric information stored within the calculatorO All of these input and output units are mounted within a single cal-culator housing 24 adjacent to a curved front panel 26 there-of.
As shown in Figure 2, a plurality of peripheral input and output units including, for example, a line printer, a digitizer, a marked card reader, an X-Y plotter, a type-writer, a teletypewriter, an extended read-write memory unit, a magnetic disc reading and recording unit, and a modem for connecting the calculator via telephone lines to a remotely located computer, may be connected to the calculator at the same time by simply inserting interface modules 30 associated with the selected peripheral units into any of four receptacles 32 provided therefor in a rear panel 34 of the calculator housing. As each interface module 30 is inserted into one of these receptacles, a spring-loaded door 38 at the en-trance of the receptacle swings down allowing passage of the interface module. Once the interface module is fully inserted, - 104664~
a printed-circuit terminal board 40 contained within the interface module plugs into a mating edge connector mounted inside the calculator. If any of the selected peripheral units require AC line power, their power cords may be plugged into either of two AC power outlets 42 provided therefor at the rear panel of calculator housing 24.
Referring to the simplified block diagram shown in Figures 3A-B, it may be seen that the calculator also in-cludes an input-output control unit 44 (hereinafter referred to as the I/0 control unit) for controlling the transfer of information to and from the input and output units, a memory unit 46 for storing and manipulating information entered into the calculator and for storing routines and subroutines of basic instructions performed by the calculator, and a central processing unit 48 (hereinafter referred to as the CPU) for controlling the execution of the routines and sub-routines of basic instructions stored in the memory unit as required to process information entered into or stored within t-he calculator. The calculator also includes a bus system comprising an ~-bus 50, a T-bus 52, and an ~-bus 54 for transferring information from the memory and I/0 control units to the CPU, from the CPU to the memory and I/0 control units, and between different portions of the CPU. It further comprises a power supply for supplying DC power to the calculator and peripheral units employed therewith and for issuing a control signal POP when power is supplied to the calculator.
The I/0 control unit 44 includes an input-output register 56 (hereinafter referred to as the I/0 register), associated I/0 gating control circuitry 58, and input-output control logic 60 (hereinafter referred to as the I/0 control), - 104~
I/0 register 56 comprises a universal sixteen-bit shift re-gister into which information may be transferred either bit-serially from CPU 48 via T-bus 52 or in parallel from keyboard input unit 12, magnetic tape cassette reading and recording unit 14, and peripheral input units 28 such as the marked card reader via twelve input party lines 62. Informa-tion may be transferred from I/0 register 56 either bit-serial~y to ~PU 48 ~ia ~-bus 50 or in parallel to magnetic tape cassette reading and recording unit 14, solid state output display unit 18, output printer unit 20, and peripheral output units 28 such as the X-Y plotter or the typewriter via sixteen output party lines 640 I/0 gating control circuitry 58 includes control circuits for controlling the transfer of information into and out of I/0 register 56 in response to selected I/0 qualifier control s~gnals from CPU 48 and selected I/0 control instructions from I/0 control 60. It also includes an interrupt control circuit 65, a peripheral control circuit 669-a printer control circuit 68, and a display control circuit 69 for variously controlling the input and output units and issuing control signals QFG and EBT to I/0 control 60 via two output lines 71 and 72. These last mentioned control circuits variously perform their control functions in response to control signal POP from the power supply, I/0 qualifier control signals from CPU 48, I/0 control instructions from I/0 control 605 and control signals from keyboard input unit 12. Interrupt control circuit 65 initiates the transfer of information into I/0 register 56 from keyboard input unit 12 or interrupting peripheral input units 28 such as the marked card reader and issues a qualifier control signal ~046644 QNR to CPU 48 via output lines 73. Peripheral control circuit 66 enables interface modules 30 plugged into the calculator to respond to information from I/0 register 56, control associated peripheral units 28, transfer information to and/or receive information from associated peripheral units 28, and in some cases initiate the transfer of infor-mation to I/0 register 56 from the interface modules them-selves. Printer control circuit 68 and display control cir-cuit 69 enable output display unit 18, and output printer unit 205 respectively, to respond to information from I/0 register 56.
When a basic I/0 instruction obtained from memory unit 46 is to be executed, CPU 48 transfers control to I/0 control 60 by issuing a pair of I/0 microinstructions PTR
and 2~ thereto. In response to these I/0 microinstructions from CPU 48, control signal POP from the power supply, control signals QFG and EBT from I/0 gating control circuitry 58, and I/0 qualifier and clock control signals from CPU 48, I/0 control 60 selectively issues one or more I/0 control in-structions to gating control circuitry 58 as required to execute the basic I/0 instructions designated by CPU 48 and issues control signals, ~T~, XTR, QRD, and SCB to CPU 48 via output lines 74-77. The I/0 qualifier control signals issued to I/0 control 60 and gating control circuitry 58 by CPU 48 are derived from the basic I/0 instruction to be executed. Those qualifier control signals issued to I/0 control 60 designate the specific I/0 control instructions to be issued by I/0 control 60, while those issued to gating control circuitry 58 designate selected control circuits to be employed in executing the basic I/0 instruction.
- ~046644 -~a-Memory unit 46 includes a modular random-access read-write memory 78 (hereinafter referred to as the RWM), a modular read-only memory 80 (hereinafter referred to as the ROM), a memory address register 82 (hereinafter referred to as the M-register), a memory access register 84 (herein-after referred to as the T-register), and control circuitry 85 for these memories and registers. The RWM 78 and ROM 80 comprise MOS-type semiconductor memories. As shown in the memory map of Figures 4A-F the basic RWM 78 contains a dedicated system storage section of 256 sixteen-bit words extending from address 1400 to address 1777 and a separate user program and/or data storage section of 1792 sixteen-bit words extending from address 40400 to address 43777. Al addresses on the memory map are represented in octal formO
An optional 2048 sixteen-bit words of RWM may be made available to the user at address 44000 to address 47777.
This is accomplished by removing a top panel 90 of the calculator housing shown in Figure 1, and inserting an ad-ditional printed circuit board containing the optional memory. The additional RWM is automatically accommodated by the calculator.
As shown in the more detailed memory map of Figures 5A-B, the RWM dedicated system storage section includes 52 words (addresses 1400-1463) containing information in the form of mnemonic variables which is employed by the firmware routines shown in Figure 9. A more detailed description of these mnemonic variables is given on page 21 of the calculator basic system firmware listing located elsewhere in this specification. Addresses 1466-1477 and 1701-1737 are used as temporary storage by the various routines shown in Figure 9.
1~46644 --4'q -Addresses 1500-1550 comprise a 41-word buffer used to contain the input characters during syntax analysis, Addresses 1551-1621 comprise a 41-word buffer used by the single line display refresh routine of Figure 9. These 41 words along with 42 additional words (addresses 1622-1673) are used as a syntax buffer during syntax analysis. Four of these words (addresses 1622-1625) are used as temporary registers by severa~ of the statement execution routines of Figure 9.
Eight words (addresses 1630-1637) are used as two temporary floating point number registers by the formula evaluation routines of Figure 9. Addresses 1640-1677 comprise 32 words wh~ch are used by the statement execution routines of Figure 9e Eight words (addresses 1744-1747 and 1754-1757) are employed as "ARl" and "AR2" four-word working registers for perfQrming binary-coded-decimal arithmetic. An additional eight words ~addresses 1740-1743 and 1750-1753) are employed as working data registers ''Xc'' and "Yc" for implementation of the trigonometric functions. These sixteen words (addresses 1740-1757? are used as temporary storage registers by all the routines of Figure 9 except the statement execution and formula evaluation routines. A variable-length "system sub-routine stack" (addresses 1760-1772) is employed for storing return addresses required by programs stored in ROM 80. Four words (addresses 1773-1776) are used to store the result of the latest keyboard computation. The last word in the system ~WM (address 1777) is used to store a pointer indicating the next available location for the return address of the next subrout~ne call within the basic system. A complete assembly language description of the system RWM is included in pages 21-24 of the calculator basic system firmware listing.
--~o--As shown in the memory map of Figures 4A-F and the more detailed memory map of Figure 6, user program and/or data storage section of RWM 78 contains 1760 words available to the user (as user addresses 40440-43777) for storing pro-grams and/or data, 20 words dedicated for use by the interrupt routine of Figures 9 and 117A-B, and 12 words available for use by plug-in read-only memory modules. An additional 2048 sixteen-bit words may be made available to the user (as user addresses 44000-47777).
Also, as shown in the memory map of Figures 4A-B, the basic ROM 80 contains 7680 sixteen-bit words extending from address 0000 to address 1377, from address 2000 to ad-dress 16777, and from address 40000 to address 40377. Rou-tines and subroutines of basic instructions for performing the basic functions of the calculator and constants employed by these routines and subroutines are stored in these por-tions of ROM 80. An additional 8192 sixteen-bit words of ROM may also be added at addresses 20000-37777 in steps of 512 and 1,024 words. This is accomplished by simply inserting plug-in ROM modules 92 into receptacles provided therefor within the calculator which are accessible through a door in the left panel of the calculator housing as illustrated in Figure 1. As each plug-in ROM module 92 is inserted into one of these receptacles a printed circuit terminal board 96 con-tained within the plug-in ROM module plugs into a mating edge connector mounted inside the calculator. A handle pivotally mounted at the top end of each plug-in ROM module 92 facili-tates removal of the plug-in ROM module once it has been fully inserted into one of the receptacles.
Routines and subroutines of basic instructions 0~6644 5~ -(and any needed constants) for enabling the calculator to perform many additional functions are stored in each plug-in ROM module 92. The user himself may therefore quickly and simply adapt the calculator to perform many additional functions oriented toward his specific needs by simply plugging ROM modules of his own choosing into the calculator.
Added plug-in ROM modules are automatically accommodated by the calculator.
Referring again to Figures 3A-B, M-register 82 of the memory unit comprises a recirculating sixteen-bit serial shift register into which information may be transferred bit-serially from CPU 48 via T-bus 52 and out of which in-formation may be transferred bit-serially to CPU 48 via ~-bus 50. Information shifted into M-register 82 may be employed to address any word in RWM 78 or ROM 80 via fifteen output lines 106.
T-register 84 of the memory unit comprises a re-circulating sixteen-bit serial shift register into which , information may be transferred either bit-serially from CPU
48 via T-bus 52 or in parallel from any addressed word in RWM 78 and ROM 80 via sixteen parallel input lines 108. In-formation may be transferred from T-register 84 either bit-serially to CPU 48 via ~-bus 50 or parallel to any addressed w o ~ d in RWM 78 via sixteen parallel output lines llO. The four least significant bits of information contained in T-register 84 may comprise binary-coded-decimal information a~
*ff~ may be transferred from the T-register in parallel to CPU
48 via three parallel output lines 112 taken with ~-bus 50.
The control circuitry 85 of the memory unit controls these transfers of information into and out of M-register 82 -5~-and T-register ~4, controls the addressing and accessing of RWM 78 and ROM 80, and refreshes RWM 780 It performs these functions in response to memory microinstructions, memory clock pulses, and shift clock pulses from CPU 48.
CPU 48 includes a register unit 114, an arithmetic-logic unit 116 (hereinafter referred to as the ALU), a pro-grammable clock 118, and a microprocessor 120. Register unit 114 comprises four recirculating sixteen-bit shift registers 1225 124, 126, and 128 and one four-bit shift register 130.
Shift registers 122 and 124 serve as sixteen-bit serial ac-Gumulator registers (hereinafter referred to as the A-register and the B-register, respectively) into which information may be transferred bit-serially from ALU 116 via T-bus 52 and out of which information may be transferred bit-serially to ALU
116 via R-bus 54. The four least significant bit positions of A-register 122 also serve as a four-bit parallel accumulator register into which four bits of binary-coded-decimal infor-mation may be transferred in parallel from ALU 116 via four parallel input lines 132 and out of which four bits of binary-coded-decimal information may also be transferred in parallel to ALU 116 via three parallel output lines 134 taken with ~-bus 54~
Shift register 126 serves as a sixteen-bit system program counter (hereinafter referred to as the P-register) into which information may be transferred bit-serially from ALU 116 via T-bus 52 and out of which information may be transferred bit-serially to ALU 116 via R-bus 54. Informa-tion contained in the least significant bit position of P-register 126 may also be transferred as a qualifier control signal QPO to microprocessor 120 via output line 135.
Shift register 1~8 serves as a sixteen-bit qualifier register (hereinafter referred to as the Q-register) into which information may be transferred bit-serially from ALU
116 via T-bus 52 and out of which information may be trans-ferred bit-serially to ALU 116 via ~-bus 54. Information contained in the five least significant bit positions of Q-register 128 is transferred to I/0 gating control circuitry 58 as five one-bit I/0 qualifier control signals Q00-Q04 via five parallel output lines 136, and information contained in the six next least significant bit positions of the Q-register is transferred to I/0 control 60 as six one~bit I/0 qualifier control signals Q05-Q10 via six parallel output lines 138. Similarly, information contained in the seven least significant, the ninth and eleventh least signifiGant, and the most significant bit positions of Q-register 128 and information derived from the thirteenth, fourteenth, and fifteenth bit positions of the Q-register may be transferred to microprocessor 120 as eleven one-bit microprocessor qualifier control signals Q00-Q06, Q08, Q10, Q15, and QMR via eleven output lines 140. Information con-tained in the twelfth through the fifteenth least significant bit positions of Q-register 128 may be transferred to micro-processor 120 as a four-bit primary address code via four parallel output lines 142.
Shift register 130 serves as a four-bit serial extend register (hereinafter referred to as the E-register) into which information may be transferred bit-serially either from ALU 116 via T-bus 52 or from the least significant bit position of T-register 84 via input line 144. Information may also be transferred out of E-register 130 to ALU 116 10466~4 5~
via ~-bus 54.
Register unit 114 also includes control circuitry 146 for controlling the transfer of parallel binary-coded-decimal information into and out of A-register 122 and the transfer of serial binary information into and out of A-register 122, ~-register 124, P-register 126, Q-register 128, and E-register 130. This is accomplished in response to register microinstructions from microprocessor 120, control signals ~T~ and XTR from I/0 control 60, and shift clock control pulses from programmable clock 118. Control circuitry 146 includes a flip-flop 148 (hereinafter referred to as the A/~ flip=flop) for enabling the transfer of in-formation into and out of either the A-register 122 or the B-register 124 as determined by the state of the A/B flip-flopc The state of A/B flip-flop 148 is initially determined by information Qll transferred to the A/B flip-flop from the twelfth least significant bit position of Q-register 128 but may be subsequently complemented one or more times by micro-instruction CAB from microprocessor 120.
~LU 116 may perform either one-bit serial binary arithmetic on data received from T-register 84 or M-register 82 via S-bus 50 and/or from any register of register unit 114 via R-bus 54 or four-bit parallel binary-coded-decimal arithmetic on data received from T-register 84 via output lines 112 taken with ~-bus 50 and/or from A-register 122 via output lines 134 taken with ~-bus 54. It may also perform logic operations on data received from memory unit 46 and/or register unit 114 via any of these lines. The arithmetic and logic operations performed are ~0 designated by ALU microinstructions from microprocessor 120 10~6644 and are carried out in response to these microinstructions, shift clock control pulses from programmable clock 118, and control signal SCB from I/0 control 60. Information is also transferred from ALU 116 to A-register 122 via output lines 132 or to I/0 register 56, M-register 82, T-register 84, or any register of register unit 114 via T-bus 52 in response to microinstructions and control signals applied to these registers. If a carry results while ALU 116 is performing either one-bit serial binary arithmetic or four-bit parallel binary-coded-decimal arithmetic, the ALU issues a corresponding qualifier control signal QBC ~ QDC to microprocessor 120 via one of two output lines 152 and 154.
Programmable clock 118 includes a crystal-controlled system clock 156, a clock decoder and-generator 158, and a control gate 160. System clock 156 issues regularly re-curring clock pulses to clock decoder and generator 158 via output line 162. In response to these regularly recurring clock pulses from system clock 156 and to four-bit clock codes from microprocessor 120, clock decoder and generator 158 issues trains of n shift clock pulses to ALU 116, M-register 82, T-register 84, and all of the registers of register unit 114 via output line 164. These trains of n shift clock pulses are employed for shifting a corresponding number of bits of serial information into or out of any of these registers or for shifting a carry bit in the ALU. The number n of pulses in each of these trains may vary from one to sixteen as determined by the number of bits of serial information required during each operation to be performed.
In response to a control signal CC0 from microprocessor 120, control gate 160 prevents any shift clock pulses from being - ~0~6644 ~ , applied to the ALU or any of these registers. Upon completion of each train of n shift clock pulses, clock decoder and generator 158 issues a ROM clock pulse to microprocessor 120 via output line 166 and an I/O clock pulse to I/O control 60 via output line 168. In response to the regularly re-curring clock signal from system clock 56, clock decoder and generator 158 also issues correspondingly regularly recurring memory clock pulses to memory unit 46 via output line 1700 Microprocessor 120 selectively issues two I/O
microinstructions to I/O control 60 via two output lines ~72~ six memory microinstructions to memory unit 46 via six output lines 174, thirteen register microinstructions to register unit 114 via thirteen output lines 176, and five ALU microinstructions to ALU 116 via five output lines 178. It also issues a four-bit clock code associated with each of these microinstructions to clock decoder 158 via four output lines 180. These microinstructions and associated clock codes are issued as determined by the control signal POP from the power supply, the eleven microprocessor qualifier control signals from Q-register 128, the four-bit primary address codes from Q-register 128, and the five microprocessor qualifier control signals from I/O control 60, interrupt control 65, ALU 116, and P-register 126.
As shown in the simplified flow chart of Figure 7, microprocessor 120 executes a hardware diagnostic routine (stored within the microprocessor itself) in response to the control signal POP. Upon completion of this diagnostic routine, ALU 116 issues the qualifier control signal QBC
indicating whether or not the diagnostic routine was suc-cessful. Microprocessor 120 thereupon responds to this qualifier control signal ~y entering the basic machine operating loop and issuing microinstructions causing a sixteen-bit instruction stored in ROM 80 to be,loaded into T-register 84 and transferred from there to Q-register 128. Micropro-cessor 120 thereupon sequentially responds to one or more additional qualifier control signals by issuing micro-instructions and associated clock codes for executing the instruction then contained in Q-register 128 and causing another sixteen-bit instruction stored in ROM 80 to be loaded into T-register 84 and transferred from there to the Q-register. When an instruction requiring multiple branching is contained in Q-register 128, microprocessor 120 issues a pair of microinstructions ~ and XTR causing the micro-processor to respond to a four-bit primary address code from the Q-register by issuing additional microinstructions and associated clock codes for executing the instruction contained in the Q-register.
As illustrated by the basic machine operating loop shown in the flow chart of Figure 7, microprocessor 120 initially responds to the qualifier control signal QNR
either by issuing microlnstructions and associated clock codes for interrupting the basic machine operating loop and executing an I/O service routine or by issuing microinstruc-tions and associated clock codes for loading A/B flip-flop 148 with the information Qll contained in Q-register 128.
The manner in which microprocessor 120 responds is deter-mined by the condition of the qualifier control signal QNR, which in turn indicates whether or not the basic machine operating loop should be interrupted.
3G Assuming the basic machine operating loop is not to be interrupted, microprocessor 120 loads the information Qll into A/~ flip-flop 148 and responds to the qualifier control signal QMR either by iss~ing microinstructions for transferring an address portion of the instruction contained in Q-register 128 from T-register 84 into M-register 82 or ~y responding to another qualifier control signal Q15.
Again, the manner in which microprocessor 120 responds is determined by the condition of the qualifier control signal QM~s which in turn indicates whether or not the instruction 1~ contained in Q-register 128 is a memory reference instruction.
Assuming the instruction contained in Q-register 128 is a memory reference instruction, microprocessor 120 transfers the required address information into the M-register 82 and responds to qualifier control signal Q10 either by issuing microinstructions and associated clock c~des to select the base page of the memory (iOe. page 0) or by issuing microinstructions and associated clock codes to select the current page of the memory (i.e. the page from which the instruction contained in Q-register 128 was o~tained)r In either case, the microprocessor then issues microinstructions as required to read data from the preset page of the memory at the address designated by the address information last transferred into M-register 82. Upon completion of this operation, microprocessor 120 responds to qualifier control signal Q15 by issuing additional micro-instructians and associated clock codes to execute an in-direct memory access operation if the condition of t liS
qualifier control signal indicates that the address informa-tion contained in M-register 82 is indirect.
~0 Assuming the address information contained in M-register '~ 1046644 ~ 9 _ 82 is direct (or upon completion of the indirect memory access operation), microprocessor 120 issues micro-instructions and associated clock codes causing the micro-processor itself to respond to a four-bit primary address code from the Q-register. The microprocessor responds by issuing additional microinstructions and associated clock codes for executing whichever one of ten possible memory reference instructions is contained in Q-register 128 and designated by the four-bit primary address code. Following execution of the designated memory reference instruction, microprocessor 120 issues microinstructions and associated clock codes causing another sixteen-bit instruction stored in ROM 80 to be loaded into T-register 84 and transferred from there to Q-register 128, thereby beginning another cycle of the basic machine operating loop.
~s illustrated by other possible paths of the basic machine operating loop shown in Figure 7, microprocessor 120 sequentially responds to other qualifier control signals when other types of instructions are contained in Q-register 128. For example, when an I/O instruction is contained in Q-register 128, microprocessor 120 sequentially responds to qua~ifier control signals QNR, QMR, Q15, Q10, and QRD by issuing microinstructions and associated clock codes to execute the I/O instruction. It should be noted that the microprocessor qualifier control signals not shown in the simplified flow chart of Figure 7 are variously contained within those flow chart blocks requiring decisions as will hereinafter become apparent.
The calculator firmware operational diagram of Figure 9 illustrates the basic components of the calculator ~046644 ~ --~o-firmware. These components comprise routines which reside in the calculator ROM 80 and serve to implement the definition of the calculatorO Control information passing between routines is represented by solid lines on the drawing.
Referring to Figure 9, it is shown that the calculator hardware units are controlled by firmware routines contained in ROM 80 These units comprise an on-off power switch 182, an alphanumeric keyboard input unit 12, a display unit 18, and a magnetic tape cassette reading and recording unit 14. The firmware routines also control an external printer 20, external tape cassette reading and recording units 14, and various other external input-output devices 244.
Operation of the calculator is begun by placing the on-off switch in the ~'on" position, thus forcing the hardware internal to the calculator to execute the instruction located at address 0000 of ROM 80. This instruction directs control to the start-up routine 200, which is shown in the flowchart of Figure 835 and described in detail on page 53 of the basic system firmware listing. The purposes of this routine are to initialize RWM 78, set the stack pointer address at location 1777, set the keyboard execution numeric output format to float 9, initialize certain variables in the system RWM area for later use by other firmware routines, and initialize the various read-write pointers to the user read-write memory area shown in detail in the memory map of Figure 6.
~fter completion of the start-up routine, control is passed to the keyboard monitor routine 202 shown in the flow-chart of Figures 84A-D and detailed on pages 53-56 of the basic system firmware listing. This routine initializes certain variables in the system RWM 78 ~046644 for use by the keyboard illpUt routine 204. It also outputs the automatic line number if necessary. It then calls for an input record from the keyboard input routine 204. When the keyboard input routine returns with a record the keyboard monitor routine searches the mnemonic tables in the assembly language program area shown in Figure 6. It then searches the mnemonic tables in each of the plug-in read-only memory modules of Figure 4E and finally searches the mnemonic tables of the main system ROM 80. A complete assembly language listing of each of the tables in read-only memory is given in the firmware listings. The subroutines which do the search of the mnemonic tables are detailed in the flowcharts of Figures 85~ 86, and 87 If a match is found between the ~haracters of the input record and any of the mnemonic tables, the keyboard monitor branches through a jump table to the appropriate syntax routine 210 for syntax analysis if the mnemonic is a statement, or branches through a jump table for execution if the mnemonic is a system command. A separate syntax analysis routine is provided for each statement and a separate execution routine is provided for each system command.
Syntax and execution routines for statements and commands on an optional read-only memory module are contained in the firm-ware of that module. The assembly language program area is handled in the same fashion as the plug-in read-only memory module. If no mnemonic is found, control is passed to the implied LET syntax routine.
The keyboard input routine 204 is detailed in the flowcharts of Figures 88A-G, 89A-B, and 90-93. It calls on the display refresh routine 206 to refresh the 32 character single line display 18 between key entries. The display 104.~6~ ~
refresh routine is detailed on page 35 of the firmware listing.
When a key is entered through the alphanumeric keyboard 12, the interrupt circuitry causes the calculator to execute the instruction at address 00002. This instruction causes a jump to the interrupt routine 208, which is detailed in the ~ 5~ 8 flowchart of Figures 117A-B and pages ~7 ~ of the firmware listing. The interrupt routine 208 saves the keycode in a , memory location of the system RWM 78 and returns. The key-board input routine 204 reads this memory word and decides what operations need to be performed for that particular keycode. The shift bit is stripped from the keycode and stored as a flag in a temporary location in system RWM 78.
If the key requires that a mnemonic name be displayed, the single line display buffer shown in Figures 5A-B is cleared and the mnemonic name is entered. If an editing function is required, a routine is called to perform the editing function.
If a user-definable key f0-f9 has been given, the user-definable key routine 228 is called. If an alphanumeric key has been given, the shift flag in RWM 78 is tested, and, if the shift has been given, the keycode is converted to the code for the shifted key. Then the keycode is inserted into the single line display buffer shown in Figures 5A-B, either at the end of the line or at the cursor position, if the cursor is within the line.
The user-definable key routines 228 perform the special operations for keys f0-f9. They are detailed in the flowcharts of Figures 99A-F and pages 43-47 of the firmware listing.
The syntax routines 210 translate the characters of the input record into an internal format which is more easily ~andled by the execution routines. If a syntax error is encountered control is passed to the error routine 238 which outputs an error message. The error routine is shown in the flowchart of Figure 95 and the firmware listing at pages 58 and 59. If no error is found, control is passed to either the memory management routines 236, if the statement is to be stored in memory, or to the routine for initialization for keyboard execution if the statement is to be executed. The memory management routines are shown in the flowcharts of Figures 96A-D, 975 and 98 and pages 16 and 60-62 of the firm-ware listingsc The routine 230 for initialization for keyboard execution serv~ to initialize the run time stacks shown in the memory map of Figure 6~ This routine is detailed in the flow-chart of Figure lOOC and pages 109-110 of the firmware list-ing ~
When the RUN command is given, or if the INIT key is actuated,control is passed to the pre-execution processing routines 232. These routines are detailed in pages 65-77 of the firmware listing. They serve to initialize the symbol table and non-common value table areas of the user read-write memory shown in Figure 6.
Control is next passed to the execution monitor 214, which is detailed in the flowchart of Figures lOOA-B and pages 108-110 of the firmware listing. This routine initializes the run time stacks in the user read-write memory of Figure 6 and initiates execution of a stored program beginning at the line number given by the user. After each statement is exe-cuted control is returned to the execution monitor, which prints the line number of the next line if the program is being exe-cuted in the trace mode. Step, stop, or error conditions are checked and program execution is terminated if any of these conditions exist If program execution is to be continued, the jump address of the execution routine for the next state-ment of the program is computed, and control is passed to that routine.
Several of the statement execution routines 240 require evaluation of arithmetic functions and expressions.
This is done in the formula evaluation routines 242.
Several of the statement execution routines 240 require in-put from or output to various external input-output devices 20 and 244. This is done by calling the standard output driver 224 or an optional special I/0 driver 234. Several of the statement execution routines require input from or output to an internal or external tape cassette unit 14.
This is done by calling the tape cassette drivers 226. The statement execution routines for the statements that com-municate with the tape cassette units are detailed in the flowcharts of Figures 101-115 and pages 250-276 of the firm-ware listing.
The list routine 220 is used when listing stored pro-grams on either the single line display 18 or an external ASCII output device 20. The list routine is detailed on pages 78-82 of the firmware listing. Its function is to translate the stored program from the internal stored format into a string of ASCII characters which can be printed or displayed. To print a line of translated characters, the list routine calls on the standard output driver 242 which is detailed in Figure 94E and pages 20 and 33 of the firmware listing.
Detailed assembly language information relating to all of the firmware routines and subroutines herein des-cribed may be obtained by referring to the memory map of Figures 4A-F and the basic system firmware listing located at a later point in this specification.
Communication with the routines in the various plug-in read-only memory modules is accomplished through a series of mnemonic tables and Jump tables. The standard firm-wareS the cassette operating firmware, and each of the plug-in read-only memory modules all contain the following tables:
(1) A statement mnemonic table
(2) A statement syntax jump table
(3) A statement execution jump table ~4) A system command mnemonic table (5) A system command execution jump table (6) A function mnemonic table (7) A function execution jump table (8) A non-formula operator mnemonic table All of these tables, with the exception of the state-ment execution jump table, may appear anywhere within a memory module. The last five words in each module are used by the table scan routlnes of Figures 85-87 to find the actual location of the tables. The last word of each module contains a unique operation code word for that particular module. The second from the last word contains a relative address of the statement mnemonic table. The third from the last word contains a relative address of the system command mnemonic table. The fourth from the last word contains a relative address to the function mnemonic tableO The fifth from the last word contains a relative address to the non-formula operator table. The jump tables for statement syntax, - ~0466~4 system command execution, and function execution are located directly above their respective mnemonic tables. The state-ment execution jump table is located directly above the fifth from the last word of each module. The complete set of tables for the standard firmware is shown in the firmware listings at pages 48-49, 103-104, 131, and 141.
Each of the mnemonic tables consists of a string of seven-bit ASCII character and six-bit operation code characters packed two characters per sixteen-bit word. The eighth bit of each character is used to indicate whether that character is ASCII or an operator code. A zero in the eighth bit indicates ASCII and a one indicates an operation code. The seventh bit of each operation code character is used to indicate whether that operation code is the last character in that tableO The jump table address for each mnemonlc is found by subtracting the operation code for that mnemonic from the starting address of the associated mnemonic table. The internal stored format for program statements consists of a series of operation codes, operand codes, and other special codes. The first word of each statement contains the line number of that statement in binary format~ The second word contains both the operation code for that particular statement mnemonic and also the length of the statement. The length information is used by various firmware routines to scan from one statement to the next. The third word contains the operation code for the table or optional read-only memory module, and it also contains the first operand code. The remainder of the statement is stored with one operator code and one operand code in each word.
Formula operation codes from the table on page 132 of the firmware listing and mnemonic operation codes are stored in '' 104~644 a five-bit field, bits 10-14. The operand codes are stored in two five-bit fields Bits 5-9 are used to store the operand name. The name consists of an ASCII letter, A-Z, with its sixth and seventh bits removed. For example, the ASCII code for A is 1000001 and the five-bit operand code for A is 00001.
Bits 0-4 are used to store the operand type. Bit 15 is used as a special flag bitc When bit 15 is set, the operand field is interpreted differently than when it is not set. The following table shows the various operand types and the special codes.
~O/Ui64~.
--~,8:--OPERAND OPE~AN~ TYPEMEANING IF BIT 15=1 TYPE CODE (BIT 15=0) Full PrecisionConstant follows Variables .in next word OOOOO Simple variable OOOOl Array of 1 dimensionFixed point decimal OOOlO Array of 2 dimensionsFloating point decimal OOOll Array of unknown dimension Binary integer Split Precision Variables OOlOO Simple variableBinary line number OOlOl Array of 1 dimension OOllQ Array of 2 dimensions Integer Precision Variables OlOOO Simple variable OlOOl Array of 1 dimension OlOlO Array of 2 dimensions Full Precision Variables Letter followed by digit :LOOOO 0 lOOlO 2 lOOll 3 lOlOO 4 lOlOl 5 lOllO 6 lOlll 7 llOOO 8 llllO String Variable rBit~ 5-9 contain the 11111 User defined function ~operation code of a ~function in ROM
1046644 ~
_ ~,q_ As an example, the internal stored format for the following statements is shown in the table below:
DIM A[5]
LET B=C+FND~E) 14-lO 4-5 4-0 O OOOlO OOOOO OOlll DIM op-code -- Length 7 O OlOlO OOOOl OOOOl Table op-code -- A ¦dimension 1 lOlOO OOOOO OOOll [ -- integer follows O OOOOO OOOOO OOlOl 5 O OOlOl OOOOO OOOOO ] -- null operand O OOOOO OOOOO lOlOO 20 O lOllO OOOOO OOlll LET op-code -- Length 7 O OlOlO OOOlO OOOOO Table op-code -- B
O 00111 00011 00000 = -- C
O OlOOl OOlOO 11111 + -- FND
O lOlOl OOlOl OOOOO ( -- E
O OOlOO OOOOO OOOOO ) -- null operand O OOOOO OOOOO llllO 30 O OOllO OOOOO OOlOO GOTO op-code -- Length 4 1 OlOlO OOOOO OOlOO Table op-code -- integer follows - 10~6644 ~ K~Y~OARn ~P~I~A~I~N,S
All ope1ltiol1s pe1f:orlne(1 by th~ c~lc~ tor m.~y ~c controlled or initi~tcd by thc keybo.lrd input unit al1d/or by keycodes enterccl into the calc~ tor from 1hc ~ey~olrd c~
input un1t, the magnetic tap~ c~sse;tte rcading ~ recordin~
unit, or peripheral input units such as the m~rkcd card reader and stored as program steps in tlle program storage section of the R~ An operational dcscription of the kcybo~rd input unit is therefore now given with speci~ic re~erence to the perspective view of the calculator as in Figure l and the plan view of the keyboard as in Figure 8, except as otherwise indicated.
Line Switch An on-off line switch 182, which may be considered as part of the keyboard input unit, controls the application of power to the calculator and hence initiation of the control signal POP from the power supply.
As shown in Figure 2, tl1e calculator may be operated at 240, 220, l2b, or lO0 volts ~5%, -10% as determined by a pair of line voltage selector switches mounted at rear panel 34 of the calculator housing and at a line frequency witl1in the range of 48 to 6~ Hertz. The calculator is provided with a 6-amp fuse and either a l-amp fuse for operation at a line voltage of 220 or 240 volts ~5%, -10% or a 2-amp fuse for operation at a line voltage of lO0 or 120 volts ~5%, -lO~o .
It is also provided with a tl1ree-conductor power cable 18 which, whcn pluggccl into an oppropriate AC power o-~ltlet, grounds the calculator housing. Th~ m~ximum power consumption of thc calcul~tor is 150 vol~amps. No morc thall a ~otal of 610 voltamps ma~ be drawn fro~ ~C power outlets ~2 providcd for pcripher.11 units.
~046644 EXECUTE ql The EXECUTE (often referred to as EXEC) key, when pressed, will perform the indicated operations previously keyed in, if any, and display the result of any arithmetic statements on the 32-character display. (Although the display is only 32 characters, an 80-character line can be keyed in with automatic scrolling both for programs and for keyboard operations.) Most keys, when pressed, immediately cause their mnemonic to be displayed. However, pressing certain keys, such as PRT ALL (to be discussed later), allows a particular mode to be in effect till that mode is overridden.
FIXED N, FLOAT N
Immediately after either turn-on or SCRATCH EXEC, the user read/write memory area is cleared; numerical calculations that are executed will be displayed in float-nine notation. The values 2 and 12 in float-nine notation would appear as 2.000000000E+00 and 1.200000000E+01, respectively. Float 9 refers to the nine digits succeeding the decimal point; E symbolizes x 10 raised to the power of the two digits following the E.
NOTE
In this text, individual keyboard operations will be identi-fied by being underlined; e.g., 3 + 2 EXEC. (On the display would appear 5.000000000E+00.) You can specify the desired notation by pressing FIXED N or FLOAT N followed by the appropriate number from 0 through 11. The designated 'N' indicates the number of digits to be displayed to the right of the decimal point after exec~ltion.
For example:
FIXED N 7 EXEC, then 1 2 3 4 5 6 . 7 EXEC, displays 123455.7000000 or, _ 2 3 4 5 6 7 8 9 . 1 2 3 4 5 6 7 8 9 EXEC, displays 123456789.1230000t_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ - q/ A-~0~G;6~
FLOAT N S EXEC, then _ 2 3 . 4 EXEC displays 1.23400E+02_ _ _ _ or, . 1 2 3 4 5 6 7 EXEC displays 1.23457E-01tt In fixed-n notation, a maximum of 12 digits will be displayed to the left of the decimal point; beyond that value the calculator reverts to float-n notation, with the number of digits displayed to the right of the decimal point determined by the particular fixed-n.
tThe machine calculates to 12 significant digits regardless of the display length.
~Since only five digits can be displayed to the right of the decimal point the fifth digit is rounded.
The FIXED N and FLOAT N keys are not programmable; that is, they can be used only in keyboard operations. Output formatting under program control is accomplished by a format statement, which is discussed below.
The calculating range of is: -9.99999999999 x 10 through -10 0, and 10 through 9.99999999999 x 10 CLEAR, DELETE LINE
Pressing either CLEAR or DELETE LINE will erase whatever previously had been displayed during keyboard operations. Pressing either key will cause ~-(the Lazy T) to appear on the far left of the display, indicating that the calcu-lator is available for new inputs. The difference between the two keys occurs when a stored program line is displayed; DELETE LINE will erase the line from the stored program, whereas CLEAR will only erase the display and not affect the program line itself. (A program line can also be deleted by keying in the line number followed by END OF LINE.) RECALL
Pressing RECALL during keyboard operations allows the last line that was exe-cuted to be recalled to the display; pressing RECALL during program-inputting operations allows the last program line that was input to be recalled to the display. If an error message appears on the display when an attempt is made either to execute a line in keyboard mode or to input a program line into memory, pressing RECALL will allow the original line to be reviewed for edi-ting purposes.
RESULT
Pressing CLEAR RESULT EXEC displays the numerical value of the last arith-metic statement that was executed. The RESULT key not only allows the result of the previously executed statement to be reviewed, but also can function as an "accumulator" during arithmetic operations; e.g., by pressing qa A-2 + 4 EXEC (in FIXED 2 notation) displays 6.00, then pressing 3 + RESULT EXEC displays 9.00, then pressing
Each of the mnemonic tables consists of a string of seven-bit ASCII character and six-bit operation code characters packed two characters per sixteen-bit word. The eighth bit of each character is used to indicate whether that character is ASCII or an operator code. A zero in the eighth bit indicates ASCII and a one indicates an operation code. The seventh bit of each operation code character is used to indicate whether that operation code is the last character in that tableO The jump table address for each mnemonlc is found by subtracting the operation code for that mnemonic from the starting address of the associated mnemonic table. The internal stored format for program statements consists of a series of operation codes, operand codes, and other special codes. The first word of each statement contains the line number of that statement in binary format~ The second word contains both the operation code for that particular statement mnemonic and also the length of the statement. The length information is used by various firmware routines to scan from one statement to the next. The third word contains the operation code for the table or optional read-only memory module, and it also contains the first operand code. The remainder of the statement is stored with one operator code and one operand code in each word.
Formula operation codes from the table on page 132 of the firmware listing and mnemonic operation codes are stored in '' 104~644 a five-bit field, bits 10-14. The operand codes are stored in two five-bit fields Bits 5-9 are used to store the operand name. The name consists of an ASCII letter, A-Z, with its sixth and seventh bits removed. For example, the ASCII code for A is 1000001 and the five-bit operand code for A is 00001.
Bits 0-4 are used to store the operand type. Bit 15 is used as a special flag bitc When bit 15 is set, the operand field is interpreted differently than when it is not set. The following table shows the various operand types and the special codes.
~O/Ui64~.
--~,8:--OPERAND OPE~AN~ TYPEMEANING IF BIT 15=1 TYPE CODE (BIT 15=0) Full PrecisionConstant follows Variables .in next word OOOOO Simple variable OOOOl Array of 1 dimensionFixed point decimal OOOlO Array of 2 dimensionsFloating point decimal OOOll Array of unknown dimension Binary integer Split Precision Variables OOlOO Simple variableBinary line number OOlOl Array of 1 dimension OOllQ Array of 2 dimensions Integer Precision Variables OlOOO Simple variable OlOOl Array of 1 dimension OlOlO Array of 2 dimensions Full Precision Variables Letter followed by digit :LOOOO 0 lOOlO 2 lOOll 3 lOlOO 4 lOlOl 5 lOllO 6 lOlll 7 llOOO 8 llllO String Variable rBit~ 5-9 contain the 11111 User defined function ~operation code of a ~function in ROM
1046644 ~
_ ~,q_ As an example, the internal stored format for the following statements is shown in the table below:
DIM A[5]
LET B=C+FND~E) 14-lO 4-5 4-0 O OOOlO OOOOO OOlll DIM op-code -- Length 7 O OlOlO OOOOl OOOOl Table op-code -- A ¦dimension 1 lOlOO OOOOO OOOll [ -- integer follows O OOOOO OOOOO OOlOl 5 O OOlOl OOOOO OOOOO ] -- null operand O OOOOO OOOOO lOlOO 20 O lOllO OOOOO OOlll LET op-code -- Length 7 O OlOlO OOOlO OOOOO Table op-code -- B
O 00111 00011 00000 = -- C
O OlOOl OOlOO 11111 + -- FND
O lOlOl OOlOl OOOOO ( -- E
O OOlOO OOOOO OOOOO ) -- null operand O OOOOO OOOOO llllO 30 O OOllO OOOOO OOlOO GOTO op-code -- Length 4 1 OlOlO OOOOO OOlOO Table op-code -- integer follows - 10~6644 ~ K~Y~OARn ~P~I~A~I~N,S
All ope1ltiol1s pe1f:orlne(1 by th~ c~lc~ tor m.~y ~c controlled or initi~tcd by thc keybo.lrd input unit al1d/or by keycodes enterccl into the calc~ tor from 1hc ~ey~olrd c~
input un1t, the magnetic tap~ c~sse;tte rcading ~ recordin~
unit, or peripheral input units such as the m~rkcd card reader and stored as program steps in tlle program storage section of the R~ An operational dcscription of the kcybo~rd input unit is therefore now given with speci~ic re~erence to the perspective view of the calculator as in Figure l and the plan view of the keyboard as in Figure 8, except as otherwise indicated.
Line Switch An on-off line switch 182, which may be considered as part of the keyboard input unit, controls the application of power to the calculator and hence initiation of the control signal POP from the power supply.
As shown in Figure 2, tl1e calculator may be operated at 240, 220, l2b, or lO0 volts ~5%, -10% as determined by a pair of line voltage selector switches mounted at rear panel 34 of the calculator housing and at a line frequency witl1in the range of 48 to 6~ Hertz. The calculator is provided with a 6-amp fuse and either a l-amp fuse for operation at a line voltage of 220 or 240 volts ~5%, -10% or a 2-amp fuse for operation at a line voltage of lO0 or 120 volts ~5%, -lO~o .
It is also provided with a tl1ree-conductor power cable 18 which, whcn pluggccl into an oppropriate AC power o-~ltlet, grounds the calculator housing. Th~ m~ximum power consumption of thc calcul~tor is 150 vol~amps. No morc thall a ~otal of 610 voltamps ma~ be drawn fro~ ~C power outlets ~2 providcd for pcripher.11 units.
~046644 EXECUTE ql The EXECUTE (often referred to as EXEC) key, when pressed, will perform the indicated operations previously keyed in, if any, and display the result of any arithmetic statements on the 32-character display. (Although the display is only 32 characters, an 80-character line can be keyed in with automatic scrolling both for programs and for keyboard operations.) Most keys, when pressed, immediately cause their mnemonic to be displayed. However, pressing certain keys, such as PRT ALL (to be discussed later), allows a particular mode to be in effect till that mode is overridden.
FIXED N, FLOAT N
Immediately after either turn-on or SCRATCH EXEC, the user read/write memory area is cleared; numerical calculations that are executed will be displayed in float-nine notation. The values 2 and 12 in float-nine notation would appear as 2.000000000E+00 and 1.200000000E+01, respectively. Float 9 refers to the nine digits succeeding the decimal point; E symbolizes x 10 raised to the power of the two digits following the E.
NOTE
In this text, individual keyboard operations will be identi-fied by being underlined; e.g., 3 + 2 EXEC. (On the display would appear 5.000000000E+00.) You can specify the desired notation by pressing FIXED N or FLOAT N followed by the appropriate number from 0 through 11. The designated 'N' indicates the number of digits to be displayed to the right of the decimal point after exec~ltion.
For example:
FIXED N 7 EXEC, then 1 2 3 4 5 6 . 7 EXEC, displays 123455.7000000 or, _ 2 3 4 5 6 7 8 9 . 1 2 3 4 5 6 7 8 9 EXEC, displays 123456789.1230000t_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ - q/ A-~0~G;6~
FLOAT N S EXEC, then _ 2 3 . 4 EXEC displays 1.23400E+02_ _ _ _ or, . 1 2 3 4 5 6 7 EXEC displays 1.23457E-01tt In fixed-n notation, a maximum of 12 digits will be displayed to the left of the decimal point; beyond that value the calculator reverts to float-n notation, with the number of digits displayed to the right of the decimal point determined by the particular fixed-n.
tThe machine calculates to 12 significant digits regardless of the display length.
~Since only five digits can be displayed to the right of the decimal point the fifth digit is rounded.
The FIXED N and FLOAT N keys are not programmable; that is, they can be used only in keyboard operations. Output formatting under program control is accomplished by a format statement, which is discussed below.
The calculating range of is: -9.99999999999 x 10 through -10 0, and 10 through 9.99999999999 x 10 CLEAR, DELETE LINE
Pressing either CLEAR or DELETE LINE will erase whatever previously had been displayed during keyboard operations. Pressing either key will cause ~-(the Lazy T) to appear on the far left of the display, indicating that the calcu-lator is available for new inputs. The difference between the two keys occurs when a stored program line is displayed; DELETE LINE will erase the line from the stored program, whereas CLEAR will only erase the display and not affect the program line itself. (A program line can also be deleted by keying in the line number followed by END OF LINE.) RECALL
Pressing RECALL during keyboard operations allows the last line that was exe-cuted to be recalled to the display; pressing RECALL during program-inputting operations allows the last program line that was input to be recalled to the display. If an error message appears on the display when an attempt is made either to execute a line in keyboard mode or to input a program line into memory, pressing RECALL will allow the original line to be reviewed for edi-ting purposes.
RESULT
Pressing CLEAR RESULT EXEC displays the numerical value of the last arith-metic statement that was executed. The RESULT key not only allows the result of the previously executed statement to be reviewed, but also can function as an "accumulator" during arithmetic operations; e.g., by pressing qa A-2 + 4 EXEC (in FIXED 2 notation) displays 6.00, then pressing 3 + RESULT EXEC displays 9.00, then pressing
4 + RESULT + RESULT EXEC displays 22.00.
Keying in either R E S or R E S U L T has the same effect as pressing the_ _ _ _ _ RESULT key.
PRINT ALL
By pressing PRINT ALL, you can determine whether or not the calculator is in print all mode. If ON appears, both the expression and the result of any executed calculation will be typed on whichever printing device is plugged into the calculator; if OFF appears, the information will appear only on the display. Pressing the - ~1 3 ~046~;~4 PRINT ALL key a second time causes the alternative mode to be in effect. In the print all mode, each program statement is printed when END OF LINE is pressed. All error messages are also printed.
BACK, FORWARD, INSERT
The BACK and FORWARD keys can be used to edit expressions on the display.
Successive presses of the BACK key will move a blinking cursor to the desired location within the display. Editing can then be performed at this location.
The FORWARD key performs the same function as the back key, but in the oppo-site direction.
At the location of the blinking cursor, the following editing can be performed:
1. A character can be inserted by pressing INSERT. (This opens up a space to the left of the cursor, thereupon moving the cursor to the location of the space; additional presses of the INSERT key will open up more spaces, with the cursor always positioning itself in the left-most space, thus allowing for the immediate insertion of more than one character.) 2. A character can be changed by overscoring it with another character.
3. A character can be deleted by pressing either the space bar or SHIFT
INSERT, the only difference being that pressing SHIFT INSERT will close up the space of the deleted character.
Holding either BACK or FoRwARn down for approximately 1.5 seconds will cause the cursor to move in rapid succession in the chosen direction.
Once a line is appropriately edited, it can be immediately executed without having to move the cursor to the end of the line.
~ , ~
When a line that is greater than 32 characters (80 characters maximum) is being input, the characters to the left of the display are pushed out of the display region to make room for the additional characters. To view the be-- '13A-~046644 ginning of the input, press ~ (the right arrow); this operation moves the characters in the display to the right. Pressing ~ (the left arrow) per-forms the reverse operation.
Either arrow key, when held down for approximately 1.5 seconds, will repeat its operation in rapid succession.
ARITHMETIC
There are five basic numerical operators: add (+), subtract (-), multiply (*), divide (/), and exponentiate (~). The order of execution, known as the hierarchy, is identical to the BASIC hierarchy described below. The BASIC
functions f ~ ~ _7~_ : 1046644 described below are available on the Calculator simply by keying in the appropria~e mnemonics. In addition, the value of can be obtained by keying in P I.
~.
When operating on trigonometric functions, the calculator assumes the angle to be in radians unless otherwise stated. To express an angle in either degrees or grads, first clear the display, then press either D E G EXEC or G R A D EXEC, respectively; then key in the expression. To revert to radians, clear the display, then press R A D EXEC. Radians, degrees, and grads are also programmable commands.
VARIABLES
The simple "scalar" variables are A through Z and A~ through Z9 (286 total).
Simple variables can be used in keyboard operations; e.g., pressing A 3 _ 7 EXEC assigns the value of 7 to A3. Unless the value of A3 is then changed or erased from memory, pressing 4 * A 3 EXEC will display 28. If a variable is undefined, any attempt to use this variable in an expression (other than by assigning a value to it) will result in an error message.
An array is an ordered collection of numerical data. An array ~subscripted) variable can have either one or two dimensions as indicated by the subscripts, which are presented as numbers within parentheses. A(n) is a one-dimensional array (or column vector) where m designates the row of the element; A(m,n) is a two-dimensional array where m designates the row and n designates the column of the element.
The maximum si~e of an array is limited by the available calculator memory.
At normal 12-point precision, the effective memory limitations would be approx-imately a (30, 30) array.
Arrays should be referenced in either a common statement or a dimension state-ment before use in a program; if not, the program defaults to either a 10 element array for a singly subscripted array, or a 10 by 10 array for doubly subscripted arrays.
~046644 TAPE CASSETTES
The present Calculator is capable of operating with 10 tape cassettes:
One cassette is available through the built-in (internal) cassette drive.
Four peripheral cassette drives can be connected directly to the calculator through the four I/O slots in the rear panel.
Five more peripheral cassette drives can be added if the user has an I/O ex-pander box (in all, 11 peripheral devices can be added by having an expander box).
SYNTAX
The tape cassette commands have general syntactical rules which will be briefly described. The general command form, with the minor variations, is:
CO~MAND [UNIT] [FILE], or COMMAND [UNIT] (FILE) [LNX1 [LNX2]]
Brackets [ ] indicate that the enclosed information is optional; parentheses ( ) indicate that the enclosed information is required with the particular command.
COMMAND - The various commands will be individually discussed.
UNIT - Individual units are referenced by the number sign, #, followed by the select code; the internal cassette is designated by #10 (if no select code is given, the internal cassette is assumed);
the nine peripheral cassettes are identified by #1 through #9.
FILE - Files within individual cassettes are identified by file numbers;
if no file is identified by number, the scratch-pad (or default) file, file 0, is assumed.
LNX1 ~ indicates the beginning line number to be affected by the command.
LNX2 - indicates either the line number where program execution is to begin following the command implementation, or the ending line ~ - 75'A-iO4664~
number to be accessed in the command. In any command whose syntax allows LNX1 and LNX2, in order for LNX2 to be designated, LNX1 must have been specified.
All information to be input following the command must be separated by commas.
In keyboard mode, press EXEC after fulfilling the syntax requirements of a particular command to implement the command.
104664~
PREPARING A FRESH CASSETTE
To prepare a fresh cassette (one which has no markings), first open the cas-sette door by pressing downward on the switch on the far right of the keyboard;
then insert the cassette (print-side up) into the slot built into the door;
be certain that the tape is wound around the left spindle - if it is not, but you wish to prepare that side of the cassette anyway, simply close the door and press REWIND.
To store information onto the cassette, first mark the files that are to be used.
PROGRAMMABLE COMMANDS
The following tape cassette commands are programmable: mark, store, load, merge, store key, load key, store data, load data, load binary, rewind, find, and tlist. These commands can also be used in the keyboard mode. The secure command, on the other hand, can be used only in the keyboard mode.
MARK
The mark command produces the designated number of files and defines the file lengths (by the number of 16-bit words per file).
~yntax: MARK [UNIT] (No. of FILES) (LENGT~) e.g., _ A R K # 1 0 , 5 , 1 0 0 0 EXEC - since unit #10 identifies_ _ _ _ _ _ _ _ _ _ _ _ the internal cassette, including it is superfluous; the '5' indicates the number of files to be made available; the '1000' signifies the number of 16-bit words per file.
Successive files on the tape can be marked with different word lengths as shown in the following example; MARK 3, 1000 EXEC then, MARK 2, 2000 EXEC will mark files 0, 1, 2 of the internal cassette with 1000-word lengths and will mark files 3, 4 of the same cassette with 2000-word lengths.
The length of a file can be changed; however, changing it will affect all the files following it by distorting their contents. To change the length of a particular file, first position the cassette at that file by using FIND (FIND will be discussed more thoroughly, later); then mark the file with the desired length. For Example: to mark file 12 of the internal cassette with 1000 words, press FIND 12 EXEC then press, MARK 1, 1000 EXEC
_ q~_ To mark files not previously marked (virgin files), first perform a TLI~; TLIST
will be discussed thoroughly later; but for now, merely knowing that TLIST ~UNIT]
EXEC will list all the marked files, is sufficient. To mark virgin files, it is first necessary to mark the last file listed in ~LISTt, As Previously discussed,this file is located bY the find command. Beainning with thls file, successive virgin files can be marked by the methods previously discussed.
To mark the beginning of a tape, be certain that the tape is completely rewound.
STO~E
The store co~mand will take the program line numbers in read/write m~mory, and put them in the desiqnated tape location where thay will be saved.
Syntax: STORE [UNITI [FILE] or STORE [UNIT~ (FILE) rLNXl [LNX2]]
e.q., S~O~ _ , 3 EXEC: select code X2 designates which casse~te is being accessed;
the ~rogram will then be stored on that cassette in file number 3.
In the store cc~and, LNXl a~d LNX2 are used to store a ~ortion of the program:
LNXl specifies the beqinning line number to be stored; LNX2 specifies the endinglir.e numher to be stored. If LNX2 is not specified, the last line to be stored is assumed to be the highest-numbered program line.
For LNX2 to be given, it is always necessary to have LNXl; this is true for any cassette command. In addition, whenever LNXl is to be given, the file to be accessed must be identified; e.g., STORE 3 , 60 , 150 EXEC: file 3 of the internal cassette is located; program lines 60 through 150 in memory will then be stored into file 3.
tThe number of files referenced in TLIST is always one more than the num~er rnarked by the user.
-q8-Note Once a cassette has been marked, any file that has been marked can be accessed by giving its designated file num-ber in a command; e.g., if five files are marked, informa-tion can be stored in file 4 even though file 3 is a virgin (empty) file, by pressing STORE 4 EXEC.
LOAD, LINK
The load command will take a program that is stored on a cassette and put it into the memory area.
Syntax: LOAD [UNIT] [FILE] or, LOAD [UNIT] (FILE) [LNX1 [LNX2]]
e.g., LOAD EXEC assumes the internal cassette, default file (file 0) is to be loaded into the calculator; any program previously in the 9830A memory will be erased.
LOAD 5 , 40 , 10 EXEC locates file 5 on the internal cassette; the entire pro-gram on this file is renumbered beginning at line number 40, and then the program is loaded into memory; program execution is initiated at line number 10. All program line numbers beginning at line 40, that were previously in memory, will be erased and replaced by the program being loaded; if the memory previously had line numbers 10, 20, 30, it will retain them.
In both the load and the merge command, the use of LNX1 and LNX2 can have various results. Rules for predicting the results are given at the conclu-sion of the merge command discussion.
By substituting LINK for LOAD in the previous syntax, the user can implement the link command. This command operates identically to the load command with one exception:
--78~-During program execution, if a load statement is encountered, the calculator functions as though R EXEC were pressed - that is, the old symbol table is destroyed and a new symbol table is built; on the other hand, if a link com-mand is encountered, the calculator functions as though CONT EXEC were pressed - that is, all variables retain their previous values.
_ qq_ MERGE
The merge command attempts to take program line numbers from the cassette and position them in read/write memory in front of the program currently there, between consecutive line numbers in the program currently there, or behind the program currently there. However, if any line number of the program to be entered matches a line number currently in the program, an error will result. In addition, if the line numbers of the two programs are interwoven, an error will occur; e.g., if the program currently in memory has line num-bers 10, 20, 30, 40 and if the program to be merged has line numbers 15, 25, 35, the merge command will cause an error message to occur even though no two line numbers matched.
Syntax: MERGE [UNIT] [FILE] or, MERGE [UNIT] (FILE) [LNX1 [LNX2]]
e.g., MERGE _ , 1 , 200, 100 EXEC - file 1 of the cassette with select code #2 is_ _ located; the entire program on this file is renumbered beginning at line num-ber 200 (LNX1) and then it is combined with the program currently in memory.
Following implementation of the command, program execution will begin at line number 100 (LNX2).
Either the merge or the load command can be used for stacking programs in read/write memory. The major difference between the two commands is as follows: LOAD will erase the line numbers previously in memory, beginning at the designated LNX1; MERGE, on the other hand, will retain all line numbers previously in 9830A memory.
In both the load and the merge command, LNX1 and LNX2 are predictable. Regard-less of the mode, LNX1 renumbers the program line numbers of the accessed file to begin at LNX1; the spacing between consecutive line numbers remains the _ qqA-10466~4 same; all GO TO statements, etc. are properly adjusted to reflect the new line numbers; this program is then loaded into user memory.
In program mode:
1. If LNX2 is given, program execution will continue at LNX2.
2. If LNX2 is not given, program execution will continue either at the next higher line number of the original program or at LNX1, whichever comes first.
In keyboard mode:
1. If LNX2 is given, program execution will begin at LNX2.
2. If LNX2 is not given, the calculator will halt after loading in the program.
~ - ~o -STORE REY, LOAD KEY
The store key command will take all user definable keys (upper left-hand region of the keyboard) that have been defined and put them on a cassette file, which wil be tagged as a key file.
The load key command takes the user definable information from the cassette and positions it in memory such that each user definable key performs the same operation that it previously did before being stored on tape.
Syntax: STORE ~EY [UNIT] (FILE) LOAD K~Y [UNIT] (FILE) Spacing may arbitrarily be left between the words STORE and REY and the words LOAD and KEY. In general, the ~P Lasic language ignores blank spaces (except, of course, in a quote field where every character and space is duplicated).
STORE DATA, LOAD DATA
The store data command takes a block of data from memory and puts it on a cassette. Normally, only arrays can be stored using this command; however, if no array is specified in the command, all data in the common statement of the program can be stored. The calculator allows simple variables in the common statement, as well as arrays in fact, the common statement can accept simple variables, array variables, integer arrays and variables, and split arrays and variablest-The load data command takes the data that was previously stored on a cassettefile, and loads t into mainline memory. If an array has been stored, then LOADDATA must specify an array; if LOADDATA does not specify an array, an error will result. If, on the other hand, the common area will be retrieved by the load data command (in this case, no particular array can be specified in the command, lest an error occur).
Syntax: STOREDATA [UNIT] (FILE) [ARRAY]
LOAD DATA [UNIT] (EILE) [ARRAY]
'l~J46644 he common statement acts like a dimension statement with the additional feature that data in common is saved from program to program.
10466~4 e.g., ' STORE DATA 6 , B EXEC will locate file 6 on the internal cassette; then the B array in the current program will be stored in this file. (A simple vari-able cannot be stored in this manner.) LOADDATA 6 , B EXEC can then retrieve the B array and load it into memory whenever it is needed; the following command could be given, also:
LOADDATA 6 , C EXEC: this would retrieve the B array and load it into memory in place of the C array, provided B and C are the same size and type.
Assume the common statement in a program looks like this: 1 COM A(8), B~5,5), D3, E.
Pressing: STORE DATA 2 EXEC will store all the common statement variables into file 2 of the internal cassette. Both the array variables and the simple variables will be retrieved by pressing: LOAD DATA 2 EXEC.
Pressing: LOAD DATA 2 , A EXEC is illegal and causes an error since no parti-cular array can be retrieved from a file if it was stored in common.
In all store and load data commands, the file to be accessed must be identi-fied, even if it is the default file (file 0).
LOAD BIN
The load binary co~m~nd will transfer binary information - assembly language program - from the cassette to the user memory. The assembly language program may be a system diagnostic, an I/O subroutine, or a simulated "option block" designed to perform some sPecific function.
The assembly language program cannot be listed or displayed.
Syntax: LOAD BIN [UNIT] (FILE) Note Files on cassettes are tagged as: pro~ram files, key files, data files, or binary files. If an attempt is made to load from a par-ticular file and the load command incorrectly identifies the file tage, an error will occur; e.g., pressing LOA~ KEY 1 EXEC when file 1 is a program file, causes an error message to appear.
REWIND
Pressing the REWIND key, located on the right-hand side of the keyboard, immediately rewinds the internal tape cassette to the clear leader.
To rewind any other cassette, R E W I N D must be typed in, followed by the select code of the particular cassette. (The internal cassette can also be rewound by typing in R E W I N D EXEC.) R E W I N D must be typed if the command is to be used in the programming mode.
Syntax: REWIND [UNIT]
e.g., _ E W I N D #2 EXEC will rewind the cassette with select code #2._ _ _ _ FIND
The find command ~previously mentioned in conjunction with the mark command) is used to locate a particular file. While the cassette is searching for the file number, a "lazy T" appears on the display. During this interval, the cassette is searching under interrupt control, thus returning control of the calculator keyboard to the user. This feature allows for the execution of one portion of a large program, while another portion is being found -thereby improving access time.
When the specified file is found, the cassette tape halts.
Syntax: FIND [UNIT] tFILE) e.g., FIND #3 , 2 EXEC causes the cassette with select code #3 to search until file number 2 is located.
Syntax: TLIST [UNIT]
The information for each file, on the designated cassette, is printed out on one line. There are no column headers identifying the information in each line;
the assumed headers are:
File No. File Typet Absolute Actual Program Line Nos. Common Area (Code no.) File Size File Size (Begintling) (Ending) (in words) (in words) (in words) (LNXl) (LNX2) tThe code numbers identifying the file types are as follows:
1 binary 2 data 3 program (source) 4 key In addition, if the file is secured, the number 2 appears in front of the code number (this applied only to binary, source, and key files); e.g., if "24" appears in the second column, the file is a secured key file.
If a file is a data file, LNX1, is superfluous; in this case the data is described in this column as:
0 full precision 1 split precision 2 integer precision 3 common If the file is not a program file, the last two columns will contain no information.
NoN-pRoGRAMMAsLE COMMA~DS
SECURE
This command has the capability of concealing program lines from potential users; that is, your program could be given to another, and that person could load and run it - however, he would not be able to fetch particular program lines for viewing purposes nor could he store the program on any other cas-sette file.
~J -83-~046644 An attempt to fetch a secured program line will result in the line number appearing on the display, followed by an *; attempts to list the program will result in the secured line numbers appearing followed by an *.
If any lines in a program are secured, the entire program is considered to be secured; that is, even though certain program statements are visible, none of the program can be reproduced onto another cassette file.
-83a-10~6644 Syntax: SEC [LNX1 [LNX2]] or SECURE [LNX1 [LNX2]]
It is therefore, possible to secure specific lines within a program; e.g., pressing:
SEC _ , 80 EXEC, followed by_ STORE 2 EXEC secures lines 30 through 80 of the program in memory and then stores both the secured and unsecured portions of the program into file 2 of the internal cassette.
When a program is initially secured, it can still be reproduced onto as many files as necessary; however, once the program is scratched from memory, (even though it can be loaded back into memory) it cannot be reproduced onto any cassette files.
When program lines are secured, the entire calculator is in the secured mode.
Therefore, afteL the secured program is stored away, the user should press SCRATCH A before inputting other programs - thus, avoiding "secured program"
errors.
User definable keys (when not being used as typing aids) can be secured, too.
Just press FETCH (particularkey) SEC EXEC and the designated key will be secured.
Note To protect all the information on a particular cassette, break one of the tabs on top of the cassette; this makes the cassette inaccessible for further stOrage.
PROGRAMMING
The programming language of the Calculator is, with minor varia-tions, BASIC as described below.
:
Instructions to the computer within a program are provided by program state-ments. Each statement in Basic has an associated line number which must appear in the left-most portion of the statement.t Statement line numbers appear in ascending order with 9999 being the largest possible line number.
A program statement, which has been correctly keyed in, can be stored in read/write memory by pressing the END OF ~INE (EOL) key. This key is situ-ated in an area corresponding to the carriage return/line feed key on a teletype keyboard.
AUTO #
As previously mentioned, statement line numbers can be automatically input.
In its simplest form, pressing AUTO # ExEc causes line number 10 to immedi-ately appear on the display awaiting the program statement. The line numbers of additional statements will be in ascending order with a spacing of ten between consecutive line numbers. The AUTO # ~AUTO) syntax and the examples to follow present some of the alternatives in automatic line numbering.
Syntax: AUTO # [LNXl [Spacing]]
LNXl is the beginning line number to be automaticaLly input; the desired spacing between lines can then be input if r,Nxl is given. If no spacing is indicated, a spacing of 10 is assumed.
e.g.,AUTO # 30 EXEC AUTO # 4 0 , 2 EXEC AUTO # EX EC
.
When AUTO # is pressed, AUTO appears in the display.
tThe length of a statement, including the line number and including appro-priate spacing, can be up to 80 characters.
10~66~4 Note Although the CLEAR and DELETE LINE keys have pre-viously been discussed, the following point should be made. If a program line currently being keyed in is found to be totally unacceptable (not worth salvaging by using the editing keys), it can be erased by using either the CLEAR or the DELETE LINE keys.
However, if the program line numbers have been automatically input, pressing CLEAR not only erases the entire display but also eliminates the AUTO #
mode, whereas pressing DELETE LINE erases only the program statement without affecting the line number itself.
PROGRAM VIEWING
There are two methods of viewing a program that is currently in memory:
1. List it on a printing device.
2. Bring it line-by-line to the display.
LI ST
The list command has two specific applications: it can be used to provide a total listing of the programs in read/
write memory, or it can be used to indicate the read/write memory available for inputting; e.g., LIST EXEC lists all program lines that are in memory on the user's standard printing device.
LIST #3 EXEC lists all program lines that are in memory on the peripheral with select code #3.
LIST 9999 EXEC causes the number of 16-bit words available in memory to be displayed.
~0 ~ ,~
If a specific program line is in the display, pressing ~ (down arrow) displays the nex~ higher-numbered program line, t pressing ~ ~up arrow), on the other hand, displays the next lower-numbered program line. When no program line is currently in the display, pressing would display the successively higher line from the one most recently displayed, whereas would display the successively lower line.
FETCH
In addition to viewing a program line-by-line, specific program lines can be immediately brought to the display by using the fetch command.
..
Syntax: FETCH [LNX1]
Mhere LNX1 is the specific line number to be accessed;
e.g., FETCH EXEC always displays the lowest-numbered program line.
FETCH 300 EXEC displays line 300 if it exists; if line 300 is not available (and there are other higher-numbered lines), the line immediately higher than 300 will be displayed; if there are no line numbers as high as 300, the highest-numbered line available in memory will be displayed.
PROGRAM EDITING
Any displayed program line can be edited by using the BACK, FORWARD, and INSERT KEYS.
The RECALL key, previously discussed, need only be briefly mentioned. A pro-, ... ~.
- gram line is keyed in; if an error message appears on the display when EOL is pressed, the program line can be reviewed by pressing RECALL. Appropriate editing can then be performed on the program line. The previously input line can always be recalled by pressing RECALL whether or not an error appears.
,, . ,, _ .
CLEAR and DELETE LINE have already been thoroughly discussed. Xowever, to reiterate, there are two methods of deleting a program line currently in memory:~
1. If the line is currently in the display, pressing DELETE LINE will erase it from memory (CLEAR only clears the display).
2. Any line in memory can be immediately deleted by keying in the appro-priate line number followed by EOL.
DELETE 1~466~
The delete command (to be distinguished from DELETE LINE) can selectively delete program lines.
Syntax: DELETE [LNXl [LNX2]] or DEL [LNXl [LNX2]]
Where LNXl is the first line to be deleted and LNX2 is the last line to be deleted:
e.g., DELETE EXEC deletes all program lines;
DELETE 40 EXEC deletes all statements beginning at line number 40;
_ DELETE _ , 80 EXEC deletes all lines numbered 50 through 80._ _ SCRATCH
The scratch command can erase a variety of things from memory:
e.g., SCRATCH EXEC erases all program lines and variables;
~CRATCH A EXEC erases everything from memory - program lines, user definable keys, variables (identical to turning the calculator off, then on again);
~CRATCH K EXEC erases all user definable keys (user definable keys will be discussed later);
~CRATCH V EXEC erases all variables;
~CRATCH (particular UD key) erases the particular user definable key that was pressed - pressing EXEC is not required in this case.
Scratch can be accessed either by keying in the seven letters or by pressing ~CRATCH.
RENUMBER
~he renumber command will take all the program line numbers and renumber them.
Synta~:: REWUMB13R I LNXI I SPAC INGI I or R'N f LNX ~ ISPACIIIGII
~ -88-Where LNX1 will be the new line number of the first program statement, and SPACING will be the spacing consecutive line numers:
e.g., REN EXEC will renumber all statements by numbering the first statement '10' with a spacing of 10 between statements;
-88a-1046644~ENUMBER _ EXEC renumbers the first statement '30' with a spacing of 10 between statements;
REN _ , 20 EXEC renumbers the first statement '45' with a spacing of 20_ between statements.
All statements in the program that reference another line number are appro-priately corrected with the renumber command; e.g., GO TO 80 would be corrected to reference the line that replaced 80.
PROGRAM DEBUGGING
NORMAL, TRACE
The TRACE key can be used to determine the order of statement execution for a program that is currently running. Pressing TRACE during program execution causes the line numbers to be printed in the order in which they are accessed;
then pressing NORMAL reverts the calculator to the normal mode. Thus, when a program is running, both TRACE and NORMAL are immediate execute keys.
When no program is running, to revert to either trace or normal mode requires pressing the appropriate key followed by EXEC. Trace mode can be set up to trace specific line numbers.
Syntax: TRACE [LNX1 [LNX2]]
Where LNX1 is the first line number to be traced, and LNX2 is the last line number to be traced;
e.g., TRACE 20 EXEC will trace beginning at line number 20 when the program is running.
TRACE 50 , 60 EXEC will trace beginning at line number 50 and ending at line ~ number 60, each time these line numbers are executed in the program.
STOP
The stop command can be a statement withi~ a program (to be discussed later) and can be used as a debugging tool.
'~
~046644 As a debugging tool, STOP is extremely valuable. A program that is running can be stopped at any time by pressing STOP (the current line number of the program will be displayed). If any program lines are then edited, the pro-gram must be rerun from the beginning, using the RUN key. If no editing has been performed, the program can continue where it left off if the CONT key (to be discussed in detail later) is pressed.
While a program is stopped, the values of variables can be checked to deter-mine if the program is doing what was intended; e.g., pressing A EXEC would determine the present value of the simple variable A.
.......
While a program is stopped, SToPt, can have another function. Pressing STOP
displays STOP; then keying in either one line number or two line numbers separated by a comma - indicates that the caluclator should stop program execution at these line numbers. Pressing CONT EXEC will then start program execution; e.g., STOP 80 EXEC then CONT EXEC or RUN EXEC will cause the pro-gram to halt at line number 80. Once a program is running under these con-ditions, there is one way to revert to normal program execution: After the program has halted, press STOP EXEC, then CONT EXEC, and the program will no longer stop at the give line numbers.
STEP
After a program is halted by a stop command, execution can continue by pressing STEP. STEP is always immediate execute; it causes the program to execute the appropriate statement and then to halt. Therefore, after each statement is executed, it can be checked to ensure that it performed the required function. When a particular function is considered satisfactory, either CONT or STEP can be pressed; COWT will execute the rest of the program while step will execute the next program statement only.
RUN, CONTINUE
Pressing RUW EXEC causes a program to begin execution at the first statement regardless of whether the program had previously been halted by a stop command;
however, if the program had been halted by a stop command, pressing CONT EXEC
will begin program execution where it had previously halted.
~, _go_ ;
.~
tWhen a key is not being used as an immediate execute key, whether the key itself is pressed or whether the letters displayed on the keys are individu-ally keyed in, is generally arbitrary.
, , _ -~ ~;
-9Oa-As previously mentioned, if a program is edited after it has been halted, program execution is reinitialized at the first line by RUN EXECt. However, if, during the halt, the values of variables are changed or other internally-programmed conditions are changed, then CONT EXEC must be pressed to keep these newly adjusted conditions intact. The following things can be done to the program while it is halted if, upon completion, the program is executed by pressing CONT EXEC:
1. Variables can be changed; e.g., B - 5 EXEC sets the simple variable B equal to 5.
2. Angular units in trigonometric functions can be changed to measure in radians, degrees, or grads, depending on the user's requirements;
e.g., DEG EXEC will assume all angles to be in degrees.
3. Write, print, and display statements can be input from the keyboard (these statements will be discussed later).
4. The data pointer, which indicates the next datum to be encountered, can be reset to the beginning of the data by typing R E S T O R E
EXEC.
Keying in either R E S or R E S U L T has the same effect as pressing the_ _ _ _ _ RESULT key.
PRINT ALL
By pressing PRINT ALL, you can determine whether or not the calculator is in print all mode. If ON appears, both the expression and the result of any executed calculation will be typed on whichever printing device is plugged into the calculator; if OFF appears, the information will appear only on the display. Pressing the - ~1 3 ~046~;~4 PRINT ALL key a second time causes the alternative mode to be in effect. In the print all mode, each program statement is printed when END OF LINE is pressed. All error messages are also printed.
BACK, FORWARD, INSERT
The BACK and FORWARD keys can be used to edit expressions on the display.
Successive presses of the BACK key will move a blinking cursor to the desired location within the display. Editing can then be performed at this location.
The FORWARD key performs the same function as the back key, but in the oppo-site direction.
At the location of the blinking cursor, the following editing can be performed:
1. A character can be inserted by pressing INSERT. (This opens up a space to the left of the cursor, thereupon moving the cursor to the location of the space; additional presses of the INSERT key will open up more spaces, with the cursor always positioning itself in the left-most space, thus allowing for the immediate insertion of more than one character.) 2. A character can be changed by overscoring it with another character.
3. A character can be deleted by pressing either the space bar or SHIFT
INSERT, the only difference being that pressing SHIFT INSERT will close up the space of the deleted character.
Holding either BACK or FoRwARn down for approximately 1.5 seconds will cause the cursor to move in rapid succession in the chosen direction.
Once a line is appropriately edited, it can be immediately executed without having to move the cursor to the end of the line.
~ , ~
When a line that is greater than 32 characters (80 characters maximum) is being input, the characters to the left of the display are pushed out of the display region to make room for the additional characters. To view the be-- '13A-~046644 ginning of the input, press ~ (the right arrow); this operation moves the characters in the display to the right. Pressing ~ (the left arrow) per-forms the reverse operation.
Either arrow key, when held down for approximately 1.5 seconds, will repeat its operation in rapid succession.
ARITHMETIC
There are five basic numerical operators: add (+), subtract (-), multiply (*), divide (/), and exponentiate (~). The order of execution, known as the hierarchy, is identical to the BASIC hierarchy described below. The BASIC
functions f ~ ~ _7~_ : 1046644 described below are available on the Calculator simply by keying in the appropria~e mnemonics. In addition, the value of can be obtained by keying in P I.
~.
When operating on trigonometric functions, the calculator assumes the angle to be in radians unless otherwise stated. To express an angle in either degrees or grads, first clear the display, then press either D E G EXEC or G R A D EXEC, respectively; then key in the expression. To revert to radians, clear the display, then press R A D EXEC. Radians, degrees, and grads are also programmable commands.
VARIABLES
The simple "scalar" variables are A through Z and A~ through Z9 (286 total).
Simple variables can be used in keyboard operations; e.g., pressing A 3 _ 7 EXEC assigns the value of 7 to A3. Unless the value of A3 is then changed or erased from memory, pressing 4 * A 3 EXEC will display 28. If a variable is undefined, any attempt to use this variable in an expression (other than by assigning a value to it) will result in an error message.
An array is an ordered collection of numerical data. An array ~subscripted) variable can have either one or two dimensions as indicated by the subscripts, which are presented as numbers within parentheses. A(n) is a one-dimensional array (or column vector) where m designates the row of the element; A(m,n) is a two-dimensional array where m designates the row and n designates the column of the element.
The maximum si~e of an array is limited by the available calculator memory.
At normal 12-point precision, the effective memory limitations would be approx-imately a (30, 30) array.
Arrays should be referenced in either a common statement or a dimension state-ment before use in a program; if not, the program defaults to either a 10 element array for a singly subscripted array, or a 10 by 10 array for doubly subscripted arrays.
~046644 TAPE CASSETTES
The present Calculator is capable of operating with 10 tape cassettes:
One cassette is available through the built-in (internal) cassette drive.
Four peripheral cassette drives can be connected directly to the calculator through the four I/O slots in the rear panel.
Five more peripheral cassette drives can be added if the user has an I/O ex-pander box (in all, 11 peripheral devices can be added by having an expander box).
SYNTAX
The tape cassette commands have general syntactical rules which will be briefly described. The general command form, with the minor variations, is:
CO~MAND [UNIT] [FILE], or COMMAND [UNIT] (FILE) [LNX1 [LNX2]]
Brackets [ ] indicate that the enclosed information is optional; parentheses ( ) indicate that the enclosed information is required with the particular command.
COMMAND - The various commands will be individually discussed.
UNIT - Individual units are referenced by the number sign, #, followed by the select code; the internal cassette is designated by #10 (if no select code is given, the internal cassette is assumed);
the nine peripheral cassettes are identified by #1 through #9.
FILE - Files within individual cassettes are identified by file numbers;
if no file is identified by number, the scratch-pad (or default) file, file 0, is assumed.
LNX1 ~ indicates the beginning line number to be affected by the command.
LNX2 - indicates either the line number where program execution is to begin following the command implementation, or the ending line ~ - 75'A-iO4664~
number to be accessed in the command. In any command whose syntax allows LNX1 and LNX2, in order for LNX2 to be designated, LNX1 must have been specified.
All information to be input following the command must be separated by commas.
In keyboard mode, press EXEC after fulfilling the syntax requirements of a particular command to implement the command.
104664~
PREPARING A FRESH CASSETTE
To prepare a fresh cassette (one which has no markings), first open the cas-sette door by pressing downward on the switch on the far right of the keyboard;
then insert the cassette (print-side up) into the slot built into the door;
be certain that the tape is wound around the left spindle - if it is not, but you wish to prepare that side of the cassette anyway, simply close the door and press REWIND.
To store information onto the cassette, first mark the files that are to be used.
PROGRAMMABLE COMMANDS
The following tape cassette commands are programmable: mark, store, load, merge, store key, load key, store data, load data, load binary, rewind, find, and tlist. These commands can also be used in the keyboard mode. The secure command, on the other hand, can be used only in the keyboard mode.
MARK
The mark command produces the designated number of files and defines the file lengths (by the number of 16-bit words per file).
~yntax: MARK [UNIT] (No. of FILES) (LENGT~) e.g., _ A R K # 1 0 , 5 , 1 0 0 0 EXEC - since unit #10 identifies_ _ _ _ _ _ _ _ _ _ _ _ the internal cassette, including it is superfluous; the '5' indicates the number of files to be made available; the '1000' signifies the number of 16-bit words per file.
Successive files on the tape can be marked with different word lengths as shown in the following example; MARK 3, 1000 EXEC then, MARK 2, 2000 EXEC will mark files 0, 1, 2 of the internal cassette with 1000-word lengths and will mark files 3, 4 of the same cassette with 2000-word lengths.
The length of a file can be changed; however, changing it will affect all the files following it by distorting their contents. To change the length of a particular file, first position the cassette at that file by using FIND (FIND will be discussed more thoroughly, later); then mark the file with the desired length. For Example: to mark file 12 of the internal cassette with 1000 words, press FIND 12 EXEC then press, MARK 1, 1000 EXEC
_ q~_ To mark files not previously marked (virgin files), first perform a TLI~; TLIST
will be discussed thoroughly later; but for now, merely knowing that TLIST ~UNIT]
EXEC will list all the marked files, is sufficient. To mark virgin files, it is first necessary to mark the last file listed in ~LISTt, As Previously discussed,this file is located bY the find command. Beainning with thls file, successive virgin files can be marked by the methods previously discussed.
To mark the beginning of a tape, be certain that the tape is completely rewound.
STO~E
The store co~mand will take the program line numbers in read/write m~mory, and put them in the desiqnated tape location where thay will be saved.
Syntax: STORE [UNITI [FILE] or STORE [UNIT~ (FILE) rLNXl [LNX2]]
e.q., S~O~ _ , 3 EXEC: select code X2 designates which casse~te is being accessed;
the ~rogram will then be stored on that cassette in file number 3.
In the store cc~and, LNXl a~d LNX2 are used to store a ~ortion of the program:
LNXl specifies the beqinning line number to be stored; LNX2 specifies the endinglir.e numher to be stored. If LNX2 is not specified, the last line to be stored is assumed to be the highest-numbered program line.
For LNX2 to be given, it is always necessary to have LNXl; this is true for any cassette command. In addition, whenever LNXl is to be given, the file to be accessed must be identified; e.g., STORE 3 , 60 , 150 EXEC: file 3 of the internal cassette is located; program lines 60 through 150 in memory will then be stored into file 3.
tThe number of files referenced in TLIST is always one more than the num~er rnarked by the user.
-q8-Note Once a cassette has been marked, any file that has been marked can be accessed by giving its designated file num-ber in a command; e.g., if five files are marked, informa-tion can be stored in file 4 even though file 3 is a virgin (empty) file, by pressing STORE 4 EXEC.
LOAD, LINK
The load command will take a program that is stored on a cassette and put it into the memory area.
Syntax: LOAD [UNIT] [FILE] or, LOAD [UNIT] (FILE) [LNX1 [LNX2]]
e.g., LOAD EXEC assumes the internal cassette, default file (file 0) is to be loaded into the calculator; any program previously in the 9830A memory will be erased.
LOAD 5 , 40 , 10 EXEC locates file 5 on the internal cassette; the entire pro-gram on this file is renumbered beginning at line number 40, and then the program is loaded into memory; program execution is initiated at line number 10. All program line numbers beginning at line 40, that were previously in memory, will be erased and replaced by the program being loaded; if the memory previously had line numbers 10, 20, 30, it will retain them.
In both the load and the merge command, the use of LNX1 and LNX2 can have various results. Rules for predicting the results are given at the conclu-sion of the merge command discussion.
By substituting LINK for LOAD in the previous syntax, the user can implement the link command. This command operates identically to the load command with one exception:
--78~-During program execution, if a load statement is encountered, the calculator functions as though R EXEC were pressed - that is, the old symbol table is destroyed and a new symbol table is built; on the other hand, if a link com-mand is encountered, the calculator functions as though CONT EXEC were pressed - that is, all variables retain their previous values.
_ qq_ MERGE
The merge command attempts to take program line numbers from the cassette and position them in read/write memory in front of the program currently there, between consecutive line numbers in the program currently there, or behind the program currently there. However, if any line number of the program to be entered matches a line number currently in the program, an error will result. In addition, if the line numbers of the two programs are interwoven, an error will occur; e.g., if the program currently in memory has line num-bers 10, 20, 30, 40 and if the program to be merged has line numbers 15, 25, 35, the merge command will cause an error message to occur even though no two line numbers matched.
Syntax: MERGE [UNIT] [FILE] or, MERGE [UNIT] (FILE) [LNX1 [LNX2]]
e.g., MERGE _ , 1 , 200, 100 EXEC - file 1 of the cassette with select code #2 is_ _ located; the entire program on this file is renumbered beginning at line num-ber 200 (LNX1) and then it is combined with the program currently in memory.
Following implementation of the command, program execution will begin at line number 100 (LNX2).
Either the merge or the load command can be used for stacking programs in read/write memory. The major difference between the two commands is as follows: LOAD will erase the line numbers previously in memory, beginning at the designated LNX1; MERGE, on the other hand, will retain all line numbers previously in 9830A memory.
In both the load and the merge command, LNX1 and LNX2 are predictable. Regard-less of the mode, LNX1 renumbers the program line numbers of the accessed file to begin at LNX1; the spacing between consecutive line numbers remains the _ qqA-10466~4 same; all GO TO statements, etc. are properly adjusted to reflect the new line numbers; this program is then loaded into user memory.
In program mode:
1. If LNX2 is given, program execution will continue at LNX2.
2. If LNX2 is not given, program execution will continue either at the next higher line number of the original program or at LNX1, whichever comes first.
In keyboard mode:
1. If LNX2 is given, program execution will begin at LNX2.
2. If LNX2 is not given, the calculator will halt after loading in the program.
~ - ~o -STORE REY, LOAD KEY
The store key command will take all user definable keys (upper left-hand region of the keyboard) that have been defined and put them on a cassette file, which wil be tagged as a key file.
The load key command takes the user definable information from the cassette and positions it in memory such that each user definable key performs the same operation that it previously did before being stored on tape.
Syntax: STORE ~EY [UNIT] (FILE) LOAD K~Y [UNIT] (FILE) Spacing may arbitrarily be left between the words STORE and REY and the words LOAD and KEY. In general, the ~P Lasic language ignores blank spaces (except, of course, in a quote field where every character and space is duplicated).
STORE DATA, LOAD DATA
The store data command takes a block of data from memory and puts it on a cassette. Normally, only arrays can be stored using this command; however, if no array is specified in the command, all data in the common statement of the program can be stored. The calculator allows simple variables in the common statement, as well as arrays in fact, the common statement can accept simple variables, array variables, integer arrays and variables, and split arrays and variablest-The load data command takes the data that was previously stored on a cassettefile, and loads t into mainline memory. If an array has been stored, then LOADDATA must specify an array; if LOADDATA does not specify an array, an error will result. If, on the other hand, the common area will be retrieved by the load data command (in this case, no particular array can be specified in the command, lest an error occur).
Syntax: STOREDATA [UNIT] (FILE) [ARRAY]
LOAD DATA [UNIT] (EILE) [ARRAY]
'l~J46644 he common statement acts like a dimension statement with the additional feature that data in common is saved from program to program.
10466~4 e.g., ' STORE DATA 6 , B EXEC will locate file 6 on the internal cassette; then the B array in the current program will be stored in this file. (A simple vari-able cannot be stored in this manner.) LOADDATA 6 , B EXEC can then retrieve the B array and load it into memory whenever it is needed; the following command could be given, also:
LOADDATA 6 , C EXEC: this would retrieve the B array and load it into memory in place of the C array, provided B and C are the same size and type.
Assume the common statement in a program looks like this: 1 COM A(8), B~5,5), D3, E.
Pressing: STORE DATA 2 EXEC will store all the common statement variables into file 2 of the internal cassette. Both the array variables and the simple variables will be retrieved by pressing: LOAD DATA 2 EXEC.
Pressing: LOAD DATA 2 , A EXEC is illegal and causes an error since no parti-cular array can be retrieved from a file if it was stored in common.
In all store and load data commands, the file to be accessed must be identi-fied, even if it is the default file (file 0).
LOAD BIN
The load binary co~m~nd will transfer binary information - assembly language program - from the cassette to the user memory. The assembly language program may be a system diagnostic, an I/O subroutine, or a simulated "option block" designed to perform some sPecific function.
The assembly language program cannot be listed or displayed.
Syntax: LOAD BIN [UNIT] (FILE) Note Files on cassettes are tagged as: pro~ram files, key files, data files, or binary files. If an attempt is made to load from a par-ticular file and the load command incorrectly identifies the file tage, an error will occur; e.g., pressing LOA~ KEY 1 EXEC when file 1 is a program file, causes an error message to appear.
REWIND
Pressing the REWIND key, located on the right-hand side of the keyboard, immediately rewinds the internal tape cassette to the clear leader.
To rewind any other cassette, R E W I N D must be typed in, followed by the select code of the particular cassette. (The internal cassette can also be rewound by typing in R E W I N D EXEC.) R E W I N D must be typed if the command is to be used in the programming mode.
Syntax: REWIND [UNIT]
e.g., _ E W I N D #2 EXEC will rewind the cassette with select code #2._ _ _ _ FIND
The find command ~previously mentioned in conjunction with the mark command) is used to locate a particular file. While the cassette is searching for the file number, a "lazy T" appears on the display. During this interval, the cassette is searching under interrupt control, thus returning control of the calculator keyboard to the user. This feature allows for the execution of one portion of a large program, while another portion is being found -thereby improving access time.
When the specified file is found, the cassette tape halts.
Syntax: FIND [UNIT] tFILE) e.g., FIND #3 , 2 EXEC causes the cassette with select code #3 to search until file number 2 is located.
Syntax: TLIST [UNIT]
The information for each file, on the designated cassette, is printed out on one line. There are no column headers identifying the information in each line;
the assumed headers are:
File No. File Typet Absolute Actual Program Line Nos. Common Area (Code no.) File Size File Size (Begintling) (Ending) (in words) (in words) (in words) (LNXl) (LNX2) tThe code numbers identifying the file types are as follows:
1 binary 2 data 3 program (source) 4 key In addition, if the file is secured, the number 2 appears in front of the code number (this applied only to binary, source, and key files); e.g., if "24" appears in the second column, the file is a secured key file.
If a file is a data file, LNX1, is superfluous; in this case the data is described in this column as:
0 full precision 1 split precision 2 integer precision 3 common If the file is not a program file, the last two columns will contain no information.
NoN-pRoGRAMMAsLE COMMA~DS
SECURE
This command has the capability of concealing program lines from potential users; that is, your program could be given to another, and that person could load and run it - however, he would not be able to fetch particular program lines for viewing purposes nor could he store the program on any other cas-sette file.
~J -83-~046644 An attempt to fetch a secured program line will result in the line number appearing on the display, followed by an *; attempts to list the program will result in the secured line numbers appearing followed by an *.
If any lines in a program are secured, the entire program is considered to be secured; that is, even though certain program statements are visible, none of the program can be reproduced onto another cassette file.
-83a-10~6644 Syntax: SEC [LNX1 [LNX2]] or SECURE [LNX1 [LNX2]]
It is therefore, possible to secure specific lines within a program; e.g., pressing:
SEC _ , 80 EXEC, followed by_ STORE 2 EXEC secures lines 30 through 80 of the program in memory and then stores both the secured and unsecured portions of the program into file 2 of the internal cassette.
When a program is initially secured, it can still be reproduced onto as many files as necessary; however, once the program is scratched from memory, (even though it can be loaded back into memory) it cannot be reproduced onto any cassette files.
When program lines are secured, the entire calculator is in the secured mode.
Therefore, afteL the secured program is stored away, the user should press SCRATCH A before inputting other programs - thus, avoiding "secured program"
errors.
User definable keys (when not being used as typing aids) can be secured, too.
Just press FETCH (particularkey) SEC EXEC and the designated key will be secured.
Note To protect all the information on a particular cassette, break one of the tabs on top of the cassette; this makes the cassette inaccessible for further stOrage.
PROGRAMMING
The programming language of the Calculator is, with minor varia-tions, BASIC as described below.
:
Instructions to the computer within a program are provided by program state-ments. Each statement in Basic has an associated line number which must appear in the left-most portion of the statement.t Statement line numbers appear in ascending order with 9999 being the largest possible line number.
A program statement, which has been correctly keyed in, can be stored in read/write memory by pressing the END OF ~INE (EOL) key. This key is situ-ated in an area corresponding to the carriage return/line feed key on a teletype keyboard.
AUTO #
As previously mentioned, statement line numbers can be automatically input.
In its simplest form, pressing AUTO # ExEc causes line number 10 to immedi-ately appear on the display awaiting the program statement. The line numbers of additional statements will be in ascending order with a spacing of ten between consecutive line numbers. The AUTO # ~AUTO) syntax and the examples to follow present some of the alternatives in automatic line numbering.
Syntax: AUTO # [LNXl [Spacing]]
LNXl is the beginning line number to be automaticaLly input; the desired spacing between lines can then be input if r,Nxl is given. If no spacing is indicated, a spacing of 10 is assumed.
e.g.,AUTO # 30 EXEC AUTO # 4 0 , 2 EXEC AUTO # EX EC
.
When AUTO # is pressed, AUTO appears in the display.
tThe length of a statement, including the line number and including appro-priate spacing, can be up to 80 characters.
10~66~4 Note Although the CLEAR and DELETE LINE keys have pre-viously been discussed, the following point should be made. If a program line currently being keyed in is found to be totally unacceptable (not worth salvaging by using the editing keys), it can be erased by using either the CLEAR or the DELETE LINE keys.
However, if the program line numbers have been automatically input, pressing CLEAR not only erases the entire display but also eliminates the AUTO #
mode, whereas pressing DELETE LINE erases only the program statement without affecting the line number itself.
PROGRAM VIEWING
There are two methods of viewing a program that is currently in memory:
1. List it on a printing device.
2. Bring it line-by-line to the display.
LI ST
The list command has two specific applications: it can be used to provide a total listing of the programs in read/
write memory, or it can be used to indicate the read/write memory available for inputting; e.g., LIST EXEC lists all program lines that are in memory on the user's standard printing device.
LIST #3 EXEC lists all program lines that are in memory on the peripheral with select code #3.
LIST 9999 EXEC causes the number of 16-bit words available in memory to be displayed.
~0 ~ ,~
If a specific program line is in the display, pressing ~ (down arrow) displays the nex~ higher-numbered program line, t pressing ~ ~up arrow), on the other hand, displays the next lower-numbered program line. When no program line is currently in the display, pressing would display the successively higher line from the one most recently displayed, whereas would display the successively lower line.
FETCH
In addition to viewing a program line-by-line, specific program lines can be immediately brought to the display by using the fetch command.
..
Syntax: FETCH [LNX1]
Mhere LNX1 is the specific line number to be accessed;
e.g., FETCH EXEC always displays the lowest-numbered program line.
FETCH 300 EXEC displays line 300 if it exists; if line 300 is not available (and there are other higher-numbered lines), the line immediately higher than 300 will be displayed; if there are no line numbers as high as 300, the highest-numbered line available in memory will be displayed.
PROGRAM EDITING
Any displayed program line can be edited by using the BACK, FORWARD, and INSERT KEYS.
The RECALL key, previously discussed, need only be briefly mentioned. A pro-, ... ~.
- gram line is keyed in; if an error message appears on the display when EOL is pressed, the program line can be reviewed by pressing RECALL. Appropriate editing can then be performed on the program line. The previously input line can always be recalled by pressing RECALL whether or not an error appears.
,, . ,, _ .
CLEAR and DELETE LINE have already been thoroughly discussed. Xowever, to reiterate, there are two methods of deleting a program line currently in memory:~
1. If the line is currently in the display, pressing DELETE LINE will erase it from memory (CLEAR only clears the display).
2. Any line in memory can be immediately deleted by keying in the appro-priate line number followed by EOL.
DELETE 1~466~
The delete command (to be distinguished from DELETE LINE) can selectively delete program lines.
Syntax: DELETE [LNXl [LNX2]] or DEL [LNXl [LNX2]]
Where LNXl is the first line to be deleted and LNX2 is the last line to be deleted:
e.g., DELETE EXEC deletes all program lines;
DELETE 40 EXEC deletes all statements beginning at line number 40;
_ DELETE _ , 80 EXEC deletes all lines numbered 50 through 80._ _ SCRATCH
The scratch command can erase a variety of things from memory:
e.g., SCRATCH EXEC erases all program lines and variables;
~CRATCH A EXEC erases everything from memory - program lines, user definable keys, variables (identical to turning the calculator off, then on again);
~CRATCH K EXEC erases all user definable keys (user definable keys will be discussed later);
~CRATCH V EXEC erases all variables;
~CRATCH (particular UD key) erases the particular user definable key that was pressed - pressing EXEC is not required in this case.
Scratch can be accessed either by keying in the seven letters or by pressing ~CRATCH.
RENUMBER
~he renumber command will take all the program line numbers and renumber them.
Synta~:: REWUMB13R I LNXI I SPAC INGI I or R'N f LNX ~ ISPACIIIGII
~ -88-Where LNX1 will be the new line number of the first program statement, and SPACING will be the spacing consecutive line numers:
e.g., REN EXEC will renumber all statements by numbering the first statement '10' with a spacing of 10 between statements;
-88a-1046644~ENUMBER _ EXEC renumbers the first statement '30' with a spacing of 10 between statements;
REN _ , 20 EXEC renumbers the first statement '45' with a spacing of 20_ between statements.
All statements in the program that reference another line number are appro-priately corrected with the renumber command; e.g., GO TO 80 would be corrected to reference the line that replaced 80.
PROGRAM DEBUGGING
NORMAL, TRACE
The TRACE key can be used to determine the order of statement execution for a program that is currently running. Pressing TRACE during program execution causes the line numbers to be printed in the order in which they are accessed;
then pressing NORMAL reverts the calculator to the normal mode. Thus, when a program is running, both TRACE and NORMAL are immediate execute keys.
When no program is running, to revert to either trace or normal mode requires pressing the appropriate key followed by EXEC. Trace mode can be set up to trace specific line numbers.
Syntax: TRACE [LNX1 [LNX2]]
Where LNX1 is the first line number to be traced, and LNX2 is the last line number to be traced;
e.g., TRACE 20 EXEC will trace beginning at line number 20 when the program is running.
TRACE 50 , 60 EXEC will trace beginning at line number 50 and ending at line ~ number 60, each time these line numbers are executed in the program.
STOP
The stop command can be a statement withi~ a program (to be discussed later) and can be used as a debugging tool.
'~
~046644 As a debugging tool, STOP is extremely valuable. A program that is running can be stopped at any time by pressing STOP (the current line number of the program will be displayed). If any program lines are then edited, the pro-gram must be rerun from the beginning, using the RUN key. If no editing has been performed, the program can continue where it left off if the CONT key (to be discussed in detail later) is pressed.
While a program is stopped, the values of variables can be checked to deter-mine if the program is doing what was intended; e.g., pressing A EXEC would determine the present value of the simple variable A.
.......
While a program is stopped, SToPt, can have another function. Pressing STOP
displays STOP; then keying in either one line number or two line numbers separated by a comma - indicates that the caluclator should stop program execution at these line numbers. Pressing CONT EXEC will then start program execution; e.g., STOP 80 EXEC then CONT EXEC or RUN EXEC will cause the pro-gram to halt at line number 80. Once a program is running under these con-ditions, there is one way to revert to normal program execution: After the program has halted, press STOP EXEC, then CONT EXEC, and the program will no longer stop at the give line numbers.
STEP
After a program is halted by a stop command, execution can continue by pressing STEP. STEP is always immediate execute; it causes the program to execute the appropriate statement and then to halt. Therefore, after each statement is executed, it can be checked to ensure that it performed the required function. When a particular function is considered satisfactory, either CONT or STEP can be pressed; COWT will execute the rest of the program while step will execute the next program statement only.
RUN, CONTINUE
Pressing RUW EXEC causes a program to begin execution at the first statement regardless of whether the program had previously been halted by a stop command;
however, if the program had been halted by a stop command, pressing CONT EXEC
will begin program execution where it had previously halted.
~, _go_ ;
.~
tWhen a key is not being used as an immediate execute key, whether the key itself is pressed or whether the letters displayed on the keys are individu-ally keyed in, is generally arbitrary.
, , _ -~ ~;
-9Oa-As previously mentioned, if a program is edited after it has been halted, program execution is reinitialized at the first line by RUN EXECt. However, if, during the halt, the values of variables are changed or other internally-programmed conditions are changed, then CONT EXEC must be pressed to keep these newly adjusted conditions intact. The following things can be done to the program while it is halted if, upon completion, the program is executed by pressing CONT EXEC:
1. Variables can be changed; e.g., B - 5 EXEC sets the simple variable B equal to 5.
2. Angular units in trigonometric functions can be changed to measure in radians, degrees, or grads, depending on the user's requirements;
e.g., DEG EXEC will assume all angles to be in degrees.
3. Write, print, and display statements can be input from the keyboard (these statements will be discussed later).
4. The data pointer, which indicates the next datum to be encountered, can be reset to the beginning of the data by typing R E S T O R E
EXEC.
5. The program can go to a particular statement and be available for execution there, e.g., GO TO 80 EXEC sets the program line counter to 80 for either step-by-step or continuous execution. 7If con-tinuous execution is desired at line number 80, the continue command can be employed, as discussed below.) IF ... THEN can also access a particular line number.
6. Any calculator-keyboard statements can be executed.
A halted program can be executed beginning at any line number by using the continue command; e.g., CONT 95 EXEC will continue execution starting at line number 95.
tThe initialize command, to be discussed later, is also legitimate.
A program can be run beginning at any line number; e.g., RUN 110 EXEC will begin program execution at line number 110 NOTE
The major difference between RUN and CONT is that RUN
initializes all variables in the program and reverts to all normal program modes, while CONT neither affects any variables nor affects any current program modes.
PROGRAM STATEMENTS
; LET
As in Basic LET A = 6 is a legitimate statement; however, the implied let statement is also allowed. Thus, A = 6 is the same as LET A = 6.
GO TO, GO SUB
The GO TO and GO SUB statements are the same as in Basic; however, each state-ment has one additional feature called respectively, the computed GO TO and the computer GO SUB. In either case an expression is evaluated and the rounded integer value of the expression is determined; the integer then acts as a pointer to a particular line number from a parameter listing in the statement. Some examples should explain this feature more clearly: ;
tIn all examples, the present value of T will be 2.) '20 GO TO T~2-3 OF 250, 350, 450 Slnce the integer value of the expression is one, the first parameter following "OF" will be accessed (line number 250).
80 GO SUB T12.5 OF 130, 260, 330, 370, 490 The rounded integer value of the expression is 5; therefore, the subroutine beginning at line number 490, the fifth parameter following "OF", will be accessed. tDecimal value of .5 and above are always rounded) to the next higher integer value.) ~046644 Any legitimate expression can be used; if the rounded value is either less than 1 or greater than the number of parameters following "OF", then the line number following the GO TO or Go SUB statement is executed.
~.
PRINT
The caluclator has one feature in the print statement not generally available in BASIC. Alphabetic information in a quote field can be printed in either upper or lower case letters. Printing in lower case is just the opposite of that on a regular typewriter; with shift or shift lock pressed, letters in-side the quote field will be printed in lower case (the display, however, will still appear in upper case). If the "at" symbol (@) is required, press SHIFT RESULT.
-Quote fields in both the format and write statements also have this "lowercase" feature available.
DISP~AY
The display statement performs the same function as a print statement; the difference is that the information appears on the display rather than on a printing device. Thus, when a permanent record of the information is desired, the print statement should be used.
The syntax used is DISP.
FORMAT, WRITE
The format statement is a means of structuring program printouts in a speci-fied manner. The write statement defines the variables, constants, etc. that will appear on the printout~ it also determines the device to be printed upon and the particular format statement to be followed. The following examples should adequately explain the features in both the format and the write statements:
e.g., 5 FORMAT P10.2 6 WRITE ~15, 5) .7 printout will be ~ 0.70 where the "~" indicates a blank space.
~046644 F10.2 - the "F" refers to fixed-point format; "10" refers to the total field . width reserved for the printout "2" refers to the number of digits to the right of the decimal point. Excess space to the right of the decimal point will be filled with zeros; one space is reserved for the decimal.
,-- .
~ , -93a-point; two spaces are reserves to the left of the decimal point, one for a digit preceding the decimal point, another for a sign (however, only minus signs are printed).
t15, 5) - in the write statement, the information within parentheses is re-quired. "15" refers to the printing device to be used (select code 15 referes to the standard printer); "5" refers to the line number of the format statement that is being accessed (in this case line number 5). The format statement, which is being accessed, can appear anywhere in the program listing.
A halted program can be executed beginning at any line number by using the continue command; e.g., CONT 95 EXEC will continue execution starting at line number 95.
tThe initialize command, to be discussed later, is also legitimate.
A program can be run beginning at any line number; e.g., RUN 110 EXEC will begin program execution at line number 110 NOTE
The major difference between RUN and CONT is that RUN
initializes all variables in the program and reverts to all normal program modes, while CONT neither affects any variables nor affects any current program modes.
PROGRAM STATEMENTS
; LET
As in Basic LET A = 6 is a legitimate statement; however, the implied let statement is also allowed. Thus, A = 6 is the same as LET A = 6.
GO TO, GO SUB
The GO TO and GO SUB statements are the same as in Basic; however, each state-ment has one additional feature called respectively, the computed GO TO and the computer GO SUB. In either case an expression is evaluated and the rounded integer value of the expression is determined; the integer then acts as a pointer to a particular line number from a parameter listing in the statement. Some examples should explain this feature more clearly: ;
tIn all examples, the present value of T will be 2.) '20 GO TO T~2-3 OF 250, 350, 450 Slnce the integer value of the expression is one, the first parameter following "OF" will be accessed (line number 250).
80 GO SUB T12.5 OF 130, 260, 330, 370, 490 The rounded integer value of the expression is 5; therefore, the subroutine beginning at line number 490, the fifth parameter following "OF", will be accessed. tDecimal value of .5 and above are always rounded) to the next higher integer value.) ~046644 Any legitimate expression can be used; if the rounded value is either less than 1 or greater than the number of parameters following "OF", then the line number following the GO TO or Go SUB statement is executed.
~.
The caluclator has one feature in the print statement not generally available in BASIC. Alphabetic information in a quote field can be printed in either upper or lower case letters. Printing in lower case is just the opposite of that on a regular typewriter; with shift or shift lock pressed, letters in-side the quote field will be printed in lower case (the display, however, will still appear in upper case). If the "at" symbol (@) is required, press SHIFT RESULT.
-Quote fields in both the format and write statements also have this "lowercase" feature available.
DISP~AY
The display statement performs the same function as a print statement; the difference is that the information appears on the display rather than on a printing device. Thus, when a permanent record of the information is desired, the print statement should be used.
The syntax used is DISP.
FORMAT, WRITE
The format statement is a means of structuring program printouts in a speci-fied manner. The write statement defines the variables, constants, etc. that will appear on the printout~ it also determines the device to be printed upon and the particular format statement to be followed. The following examples should adequately explain the features in both the format and the write statements:
e.g., 5 FORMAT P10.2 6 WRITE ~15, 5) .7 printout will be ~ 0.70 where the "~" indicates a blank space.
~046644 F10.2 - the "F" refers to fixed-point format; "10" refers to the total field . width reserved for the printout "2" refers to the number of digits to the right of the decimal point. Excess space to the right of the decimal point will be filled with zeros; one space is reserved for the decimal.
,-- .
~ , -93a-point; two spaces are reserves to the left of the decimal point, one for a digit preceding the decimal point, another for a sign (however, only minus signs are printed).
t15, 5) - in the write statement, the information within parentheses is re-quired. "15" refers to the printing device to be used (select code 15 referes to the standard printer); "5" refers to the line number of the format statement that is being accessed (in this case line number 5). The format statement, which is being accessed, can appear anywhere in the program listing.
7 - in the write statement, the information following the right paren-thesis is to be printed according to the designated formats. The value is always right-justified within its field width.
e.g., 20 A = 62.4 1 2 3 4 5 6,8 9 10 25 FORMAT ~ , ~.3, ~, ~.1, ~ 2F4.0, ~ E9.0 ~ 260 WRITE (15, 25) 231, 61, -12 4, ~ " IS~THE~VALUE~OF~A~, 4 _~- 1 2 4 6 7 8 10 printout will be:
S~THE~VALUE~OF~AA~0~A~A~7.E+01 The format statement, the write statement, and the printout all have individual fields referenced; nterlinking fields are represented by corresponding refer-ence numbers.
Since the write statement references the format statement numbered 25, values in the write statement will be formatted a,s specified in this format statement.
104~;644 REFERENCES
1 E12.2 indicates exponential (floating-point) notation with a field width of 12 and two digits to the right of the decimal point. The printout displays the exact form. Remember the field width must be large enough to include a leading sign, the decimal point and E+XY. Since printouts from the write statement are right justified and since "231" takes up only 8 of the 12 character field width, the four blank spaces are to the left of the value.
2 The value "-61" in the write statement totally fills the F7.3 field, therefore there is no space between this value and the previous value in the printout. Since F7.3 indicates three digits to the right of the decimal point, zeros are supplied in this case.
3 "X" indicates a space between values; therefore, the values supplied for the F7.3 and E8.1 formats will be separated in the printout by at least one space.
4 The value, -12.4 totally fills up E8.1, in fact, the last digit is sup-pressed since, with this field designation, only one digit can follow the decimal point.
"/" tells the printing device to skip one carriage return to the beginning of the next line.
6 2F4.0 specifies two consecutive fixed-point formats of F4.0 to be used for values in the write statement. The first format is for the value of A, which from program line number 20 is 62.4; when a fixed-point format specifies zero digits to the right of the decimal point, the value supplied is rounded to be an integer and the decimal point is suppressed -- 62, in this case. Since the carriage return had previously been spe-cified, this value is printed on the beginning of the next output line.
~ -95-104~;644 7 Quote fields are printed in the sequence in which they occur. Since this quote field is in the write statement, it is printed immediately after 62.4 is printed in F4.0 format. Note the space in front of "IS";
without this space, the printout woul1 read 62IS instead of 62 IS.
Quote fields can appear in either the format or write statements.
e.g., 20 A = 62.4 1 2 3 4 5 6,8 9 10 25 FORMAT ~ , ~.3, ~, ~.1, ~ 2F4.0, ~ E9.0 ~ 260 WRITE (15, 25) 231, 61, -12 4, ~ " IS~THE~VALUE~OF~A~, 4 _~- 1 2 4 6 7 8 10 printout will be:
S~THE~VALUE~OF~AA~0~A~A~7.E+01 The format statement, the write statement, and the printout all have individual fields referenced; nterlinking fields are represented by corresponding refer-ence numbers.
Since the write statement references the format statement numbered 25, values in the write statement will be formatted a,s specified in this format statement.
104~;644 REFERENCES
1 E12.2 indicates exponential (floating-point) notation with a field width of 12 and two digits to the right of the decimal point. The printout displays the exact form. Remember the field width must be large enough to include a leading sign, the decimal point and E+XY. Since printouts from the write statement are right justified and since "231" takes up only 8 of the 12 character field width, the four blank spaces are to the left of the value.
2 The value "-61" in the write statement totally fills the F7.3 field, therefore there is no space between this value and the previous value in the printout. Since F7.3 indicates three digits to the right of the decimal point, zeros are supplied in this case.
3 "X" indicates a space between values; therefore, the values supplied for the F7.3 and E8.1 formats will be separated in the printout by at least one space.
4 The value, -12.4 totally fills up E8.1, in fact, the last digit is sup-pressed since, with this field designation, only one digit can follow the decimal point.
"/" tells the printing device to skip one carriage return to the beginning of the next line.
6 2F4.0 specifies two consecutive fixed-point formats of F4.0 to be used for values in the write statement. The first format is for the value of A, which from program line number 20 is 62.4; when a fixed-point format specifies zero digits to the right of the decimal point, the value supplied is rounded to be an integer and the decimal point is suppressed -- 62, in this case. Since the carriage return had previously been spe-cified, this value is printed on the beginning of the next output line.
~ -95-104~;644 7 Quote fields are printed in the sequence in which they occur. Since this quote field is in the write statement, it is printed immediately after 62.4 is printed in F4.0 format. Note the space in front of "IS";
without this space, the printout woul1 read 62IS instead of 62 IS.
Quote fields can appear in either the format or write statements.
8 The value, .4 is also to be printed in F4.0 format. ~he rounded inte-ger value of .4 is 0 -- hence, the printout.
9 "3X" indicates there should be three spaces between the values supplied for the F4.0 and the E9.0 formats.
Expressions can be specified in write statements. The value of A+3 is 65.4; however, with this format, it will be rounded to 7.E+01. The decimal point is not suppressed in floating-point notation when zero is specified as the number of digits to the right of the decimal point.
\
-9Sa-If there are more values presented in the write statement than there are for-mats in the referenced format statement, the formats will be repeated; e.g.,
Expressions can be specified in write statements. The value of A+3 is 65.4; however, with this format, it will be rounded to 7.E+01. The decimal point is not suppressed in floating-point notation when zero is specified as the number of digits to the right of the decimal point.
\
-9Sa-If there are more values presented in the write statement than there are for-mats in the referenced format statement, the formats will be repeated; e.g.,
10 FORMAT F6.2, E10.2 . .. ,,,,,~
20 WRITE (15, 10) 18, 21, 19.3, 29.6, .71 printout will be:
A18.00~A2.10E+01 ~19.30~2.96E_01 ~0.71 After the first two values are printed according to the specified formats, the output printer's carriage return is activated, then two more values are printed according to the same two specified formats, etc.
Formatting Rules:
In fixed-point format, Fm.n, m stipulates total field width and n sti-pulates the number of digits to the right of the decimal point. If N>0, the minimum field width allowable is m = n + 3; e.g., F4.1 for a value of -.6 would print -0.6, which takes up the total field width of 4. If n = 0, the minimum field width is m = 2; e.g., F2.0 for a value of -7 would print -7, thus taking up the allotted field width.
In floating-point format, Em.n, m and n are the same as in fixed-point format. However, the minimum field width allowable is always m = n + 7.
The following are all allowed in format statements:
Fm.n - fixed-point formats;
Em.n - floating-point formats loften called exponential or scien-tific notation);
X - space;
/ - carriage return (for printing device);
"****" - quote field;
: B - binary format (where write statement could have octal num-ber, the binary equiv'alent would be output).
All of the above can be duplicated any number of times by leading the symbol with the appropriate number.
1~)46644 The following are all allowed in write statements: constants, variables, expressions, and quote fields. It should be noted that a write statement can be input from keyboard mode; that is, the write statement can reference the line number of a format statement in memory without being in the pro-gram itself.
The maximum width of both the fixed-point and the floating-point fields is 9,999. However, the programmer is effectively restricted by the allowable characters per line of the printing device.
The information in the format statement must be separated by commas.
The information in the write statement must be separated either by commas or semicolons; generally it makes no difference. However, one additional fea-ture of the write statement is that it can perform the identical operations as the print statement; the benefit is the ability of the write statement to select the device to be printed upon. To write up a punched tape photoreader with select code ~, the write statement could be set up in the following manner:
30 WRITE (2, *) A; B; C, D
The "*" indicates that no format statement is referenced; thus, WRITE acts like a PRINT statement: data will be left justified, semicolons pack the output fields, commas spread out the fields, etc.
P TAPE
As in BASIC , PTAPE causes the computer to read in a program from the punched tape photoreader. If the photoreader select code is 5, then pressing either ., . _ -- PTAPE #5 or PTA #5 will perform this task unless no photoreader is connected to the calculator. If a photoreader is not connected, the calculator will wait till one is hooked up to complete the command. During this time the dis-play will be blank.
"
.~
10466~4 During the implementation of this command, lines being loaded into memory have their syntax checked; if a line is in error, it will be rejected - thus, only those lines with correct syntax are loaded into the calculator. To obtain a record of the rejected lines, it is necessary to put the calculator in the print-all mode prior to pressing PTA #5; in print-all mode, all rejec-ted lines are printed.
.
Note To punch information onto paper tape, use the list command as discussed earlier.
~- :
, -97a-, ~t~
:1046644 MULTILINE FUNCTIONS
Multiline functions serve the same purpose as single-line functions with the added capability of heing able to describe more sophisticated functions.
In single-line functions the general form of the de-fining function is:
statement number DEF FN single letter A to Z tsimple variable)t - expression _ In multiline functions, the general form is the same aside from the equal sign and the expression; for in a multiline function, the expression can be spread out ove. many statement numbers. Thus, an extremely complicated expression can appear in a more simplified manner; additional flexibility is also gained in that the value of any variable within the expression can be computed for a given value of the argument of the function; e.g., 10 W = .5 When this program is run, D will return a 20 Y = 2 value of 32. The return statement returns 30 PRINT FNA (3) the result of FNA (X) which, in this case, 40 STOP is equal to D. Line 40, the stop statement 50 DEF FNA (X) is needed to keep the calculator from try-60 Z = X~2 + Y~2 ing to re-execute lines 50 through 90 after 70 Q = Z + 3 D is printed; without STOP in line 40, an 80 D ~ Q~W error occurs in line 60 since a second pass 90 RETURN D beginning at line 50, would be made with 100 STOP X undefined.
Any variable evaluated in the expression can be returned by the return state-ment, and multiple return statements are allowed; e.g., 10 X = 3 100 RETURN Z
20 INPUT Y 110 Q = z~2 30 WRITE (15,900) FNG (Y) 120 IF Q < 100 then 150 40 END 130 PRINT "Q ="
50 DEF FNG (Y) 140 RETURN Q
~ -98-~046644 \
60 Y = Y + l 150 PRINT "Z IS"
70 Z = Y~2*X 160 RETURN Z
80 IF z < 100 THEN 110 900 FORMAT F12.1 90 PRINT "Z =" 1000 END
tThe simple variable is a dummy variable which indicates where the actual argument of th- ~unction is used in the defining expression.
, -98a- -In this example, a variable can be returned from three different lines (100, 140, 160) depending on the initial value of Y; Z can be returned from both lines 100 and 160 if the value of Y meets certain criteria.
Caution must be taken as to the placement of the statement that calls the function (in both examples, statement 30), and it is generally advisable to put a stop statement immediately after this statement (as in line 40 of both examples); otherwise, an undesirable loop may develop.
If correctly entered, the function of a function can be evaluated.
STOP, END
STOP was previously discussed, with emphasis on its program debugging capa-bilities. Now it will be discussed as a program statement, emphasizing the differences between it and the end statement.
When the program encounters a stop statement, it halts and is waiting; if CONT EXEC is then pressed, the program will continue with the statement following the STOP. This is not true if an end statement is encountered;
the program will halt, but if CONT EXEC is pressed, the calculator will revert back to the lowest-numbered statement in memory. Therefore, the stop statement should be used between stacked programs that are to be run sequen-tially. When STOP is used in this manner, the values of simple variables can be passed from program to program.
A program should be terminated by encountering either a STOP or an END.
The highest-numbered program statement need not be an end statement.
INPUTTING DATA
Program data can be input in three ways: the input statement, the read and data statements, and the initialize command. The input statement and the read and data statements are thoroughly discussed below.
_99_ INITIALIZE
The INITIALIZE key, when pressed, allocates storage space in memory for array variables. After the required data is keyed in, the program can be executed by pressing CONT EXEC, remember - RUN EXEC erases the values of all variables, thereby -99a- , requiring all variables to be defined in the program itself.
Simple variables can always be input in keyboard mode without using the INITIALIZE key, as long as CONT EX~C is pressed to run the program. Since array variables can be input in keyboard mode by using the initiali~e com-mand, it is not necessary to define any variables in the program itself.
It is still necessary, however, to identify arrays in either a dimension or a common statement.
-100- ~
, USER - DEFINABLE KEYS
There are ten user-Definable Keys (UDK) in the upper left-hand block of the keyboard. There are, however, effectively 20 accessible UDK's since each key can be accessed normally or with the shift key held down.
To enter UDK mode, press FETC~ (particular UDK); the display will then read, KEY indicating the mode. To exit from UDK mode, press CLEAR E N D EXEC;
the scratch command can also be used to exit from UDK mode - this command will, of course, erase certain information in the process. UDK mode is automatically exited when certain sequences are followed; these cases will be discussed later.
The user-definable keys can be used effectively in three ways:
1. to represent text (where text can be used as a typing aid);
2. to represent functions (where different values can be passed to the function);
3. to represent programs.
REPRESENTING TEXT
If a key represents text, merely pressing the key will immediately display the text without erasing anything that was previously on the display. Thus, commonly used words and phrases can be put on keys to serve as typing aids.
Text can be put on a key in the following manner.
First, access a key by pressing FETCH (particular UDK). Then~ press * fol-lowed by a character stringt and finally EOL. Besides inputting the charac-ter string, pressing EOL in this sequence takes the user out of UDK mode.
Any time the programmer wishes to use a character string, he must press the key into which the desired character string was input.
If, for example, a key was accessed by FETC~ (particular UDK); then *
FORMAT F10.2,X, EtO 1 EOL was input. If subsequently program line number 60 .~ ~
needed this format, pressing 60 (particular UDK) EOL will put line number 60 into memory with the required format.
tThe maximum length for the character string (including the *) is 80 charac-ters.
-lOla-~046644 A typing-aid key can be used as an immediate execute command if an * is placed both in front of the text and following the text;
e.g., FETCH (UDK) * LOADDATA #4, 6, B * EOL
This command will be immediately executed whenever the UDK is pressed.
To use a key that has text, merely press the key. Pressing FETCH
(particular UDK) will display the * with the text; however, text can be edited if the fetch command is used. Pressing FETCH and then * will erase the old character string and then wait for new text to be input.
REPRESENTING FUNCTIONS
A user definable key can be used to represent functions - either single or multiline. In either case, after the key is accessed, the function must be preceded by a line number - input either manually or automatically.
After a key has been accessed, the following function could be input:
10 DEF FNA (X) = 7 * X -3 EOL
Whenever a value is to be passed to X (the argument of the function), first press the appropriate key; the display will read FNA. Then key in the appropriate value of the argument, which can be either a constant or an ex-pression (e.g., 20), and press EXEC; the value of the function will then be displayed (in this case, 137). The same result could have been achieved by using the fetch command; however, FNA would not appear automatically on the display; it would have to be keyed in along with the argument; e.g., FETCH
(UDK) FNA 20 EXEC would also display 137.
If a multiline function, DEF FNB (Z), has been input, pressing the appropriate UDK causes FNB to be displayed; as before, passing a value to the argument, Z, and then presslng EXEC will compute and display the value of the function.
Functions in màinline memory and in a UDK can he called, regardless of the current operating mode.
~046644 If a function in the calculator is defined in more than one place, the first function found with the designated name will be accessed. If the user is in UDK mode, the calculator will search for the function in the following order:
1. The current UDK program will be checked.
2. The first line of each key (in the order defined) will be checked.
3. Mainline memory will be checked.
If the user is not in UDK mode, the order of the search will be steps 3 and 2, 'respectively.
REPRESENTINS PROGRAMS
A UDK can be used to represent an entire program. Programming rules in UDK
mode are consistent with those discussed above. There is one restriction, however; if a common statement is used, its size must be less than or equal to the size of the common statement in the mainline pro-gram - for there is only one common area allocated to memory.
To run a program that is represented in a UDK, it is advisable to press RUN
(particular UDK) or FETCH (UDK~, then INIT (particular UDK). The program can be continued merely by pressing the (particular UDK); but if there are array variables in the program, pressing only the key will cause these vari-ables to be undefined (similar in this respect to the continue command, which neither destroys the old symbol table nor builds a new one). After executing the program, the calculator will exit from UDK mode.
Programs represented on a UDK generally use only simple variables for the obvious ease of handling.
To list program lines on a particular UDK, press:
LIST (particular UDK);
pressing LIST EXEC in the UDK mode will list the program lines on the key currently being accessed. To selectively list particular lines on the UDK, ~ -103-t ~046644 t it is first necessary to FETCH a key; then use the list command as discussed below.
To load a program from a cassette file onto one particular key, first FETCH
the key, then give the load command followed by EXEC. Program lines on a particular key can be -103a-stored onto the cassette in the same manner; text (as a typing aid), however, cannot be stored in this manner.
STORE KEY and LOAD KEY can be used for any UDK regardless of the information on the key. The use of these keys is discussed below.
-;.
--1 0~--lb~66~4 SrA I ~M EN l-.S
, ~.
This is a 3A~IC stctem~nt:
1,~ Ii~PUT A,B,C,D,E
COM~1E~TS
A statement corît~ins a maximum of ~0 characters A statem~nt may also be called a line.
.
-1 0S - ~
STATEM ~1~1T N Ul'A B~:RS
Each BASIC statement begins with a sta ~ment_umb~r (in this example~ 20):
2~ LET S-(A+B~C+D+E)/5 t ~ ~- ~ ~
COMMENTS
The number is called a statement number or a line number.
The statement number is chosen by you, the programmer. It may be any integer from 1 to 9999 inclusive.
Each statement has a unique statcment number. The con-lputer uses the numbers to keep the statements in order.
Statements may be entered in any order; they are usually numbered by fives or tens so that additional statements can be easily inserted. The computer keeps them in numeri-cal order no matter how they are entered. For exanlple, if statements are input in the sequence 30,10,2~; the computer arranges them ln the order: 1~,2~,30.
~ - -104~644 INSTRUCT~01'~$
2~ ~ tr ~ ur ~
The statement then gives an l-n~t~u~ oA to the ~omputer (in this example, PRINT):
: COMM~NTS
~nstru¢tlons are sometimes called statement types because they identify a type of statement. For example, the statement above is a "print" statement.
~ ' ., :
~ I ' J
~ ~ -107_ . ~, . . . .
O PE t~f~N D~
If the instruction requires further details, op~ra~ds ~numeric details) are supplied (In this example, 10;
on the previous page, "S"):
4~ G0 T0 1 , - OOMMENTS
The o~erands specify what the instruction acts upon; for example, what is PRINTed, or where to G0.
. . -108-.. .
iO~6644 P ~ A M
The sequence of BASIC statements 1~ INPUT A,B,C,D,E
given on the previous pages is 2~ LEI S=(A+B+C~D+E)/5 called d program. 30 PRINT S
The last statement in a program, 40 GO TO 10 as sho~n here, is 50 END
an END statement.
, CO~lENTS
The last (highest nun~ered) statement in a program must be an END statement.
'~ The END statement informs the computer that the program is fSnished.
~ -1 09- /
' _ . . .:. ~ -104~i644 FREE-F0 R~A ~T L~N~i UAt~
BASIC is a "free format" language--the computer ignores extra blank spaces in a statement. For examp1e~ these three statements are equivalent:
3~ PRINT S
3p PRINT S
3~PR~NTS
~ ( .
COMMENTS
When possible, leave a space between words and numbers in a statement. This makes a program easier for people to read.
~ .
.
.
TERM: SI~PLE VAR~Bl..
DEFI~ED IN BASIC AS: A letter (from A to Z); or a letter immediately followed by a digit (from 0 to ~).
EXAMPLES: A0 B
Z9 D - -- .-COMMENTS
Yariables are used to represent numeric values.
F~r instance, in the statement:
10 LET M5 = 96.7 M5 is a variable; 96.7 is the value of the variable M5.
There is one other type of variable in BASIC, the array (subscripted) varia~lei its use is explained in Section IV.
....... ~ ..................................................... , -Ill-10~644 T E R M ~ B E R
OEFINED IN BASIC AS: A decimal number (tt,e sign ~s opticnal) bet~een lE-99 and 9.999999993999E+99 Zero is included in this ranse.
EXAMPLES:
-10008 5 3.14159 lOE+37 126.257 O lO E37 lOE-37 16.01 .06784-lO E37 l.OE+2 --- TERfV3 ~ OTAT10 N
~EFINED IN BASIC AS: A means of expressing numbers having more than six decimal digits, ;n the form of a decimal number raised to some power of 1~. ;
EXAMPLES: 1.000~0E~06 is equal to 1,~0,000 and is read: "1 times 10 to the sixth power" (lx106).
2000E+04 is equal to 1~,200 1.02000E-04 is equal to .0~01~2 , COMMENTS
"E" notation ~s used to prlnt numbers ha~ln~ more than six signiflcant digits. It may also be used for input of any number.
When entering numbers in "E" notation, leading and trailing zeroes may be omitted from the number; the ~ sisn and leadir,g zeroes may be omitted from the exponent.
The precision of numbers is 12 decimals digits ~0~;64 X P ~ I~ S S I t~
DEFINED IN EASIC AS: A co~bination of variables, con- ' -stant,s 2nd operators which eval-uateS t. ~ numeric val~e.
EXAMPLES: (P + 5)~27 (where P has previously been assigned a numeric value.) Q - (N + 4) (where Q and N have previously ~ - been a,ssigned numeric values.) TERM: ARIT~METIC EVALU~TION
DEFINED IN BASIC AS: The process of calculating the value'of an expression.
~046644 ~. .
TI~E ASSII~;NN5EN-r OP~Al O~
SYMBOL: =
EXAMPLES: 1~ LET A = B2 = C = Q) 20 LET A9 = C5 30 LET Y = (N-(P.~5))/T
~ 4~ LET N5 = A + B2 5~ LET P5 = P6=P7=A-3=~8.fi GENERAL FORM: LET variable-- expression , PURPOSE
Assigns an arithmetic or logical value to a variahle.
COMMENTS
When used as an assignment operator, = is read "takes the value of," rather than "equals". It is, therefore, possible to use assignment statements such as:
LET X = X+2 ~ .
This i5 interpreted by BASIC as: "LET X take the value of (the present value of) X, plus two."
Several assignments may be made in the same statement, as in statements 1~ and 5~ above.
See Section V, "Logical Operations" for a description of logical assignments.
.
~046644 l AT3 ~ N A ~ Q P~ ~AT0 RS
SY,YBOLS: = ~ '> > ' '= ~= ' EXAM~LES: 10~ IF A=6 THEN 9~0 110 IF A+B >C THErl ~10 120 1 F 4 ' .B C+~ .E~ 920 ~ 130 IF C>=D*E T~lEi! 930 140 IF C9-= G~H IHEN 9'~
15~ I F P2 ','C'9 Tl-IE~ 95~1 16~ IF J ~' K THcN 95ja PURPOSE
._.. _~7_.................. Deterinines the logical relationship between two expressions, as equality:
inequality: # or <>
greater than: >
~ less than: <
greater than or equal to: ~=
less than or equal to: <=
COMMENTS
NOT~: ~t is not necessary for the novice to understand the nature of logical evaluation of relational operators, at this point.
The com~ents below are for the experienced programmer.
- Expressions using relational operators are logically evaluated, and assigned a value of "true" or "false" tthe num2ric value is l for "true," and 0 for false).
When the = symbol is used in such a way that it might have either an assignment or a relational function, ~ASIC assumes it is an assignment operator. For a description of the assiynment statement using logical ~ -~
operators, see Section V, "Logical Operations " .J
-115-~
10466~4 ARIT~ IC OPER~TO~S
c SYMBOLS: ~ * / ~ -EXAMPLES: 4~ LET Nl = X-5 5~ LET C2 = Nt3 6~ EET A = (B-C)/4 70 IET X = ((P~2)-(Y*X))/N~Q
PURPOSE
Represents an arithmetic operation, as:
exponentiate:
multiply: *
div;de:
add:
( subtract:
COMMENTS
The "-" symbol is also used as a sign for negat;ve numbers.
It is good practice to group arithmetic operations with parentheses when unsure of the exact order of precedence.
The order of precedence (hierarchy) is:
t /, with ~ having the highest priority. Operators on the same level of priority are acted upon from left to right in a statement.
_- See "Order of Precedence" in this Section for examples.
10 16~;44 ARIT~IMETIC OPERATOF~), CON~ lUED
The symbols + and - are also used ..c, indicate unary plus and unary minus. For example, negative numbers may be expressed in a statement ~lithout using parenthesis:
10 LET Al= -B
20 LET C2 - D ++E.
30 LET B5 = B --C
See "Order of Precedence" in this section for examples - - or ho~l unary + and unary - are interpreted. .
-117_ iO~6644 THE ~ND OPERATOR
~''- SYMBOL: AND
EXAMPLES: 6~ IF A9~Bl AND C~5 THEN 1,00 7,0 I F T7#T AND J=27 THEN 150 80 IF Pl AND R>l AND N AND V2 THEN 10 PURPOS E
Forms a logical conjunction between two expressions. If both are "true," the conjunction is "true"; if one or both are "false," the conjunction is "false."
~OTE: It is not necessary for the novice to understarld how this opera tor works . The comm~nts below are for experienced - progralr2mers.
COMMENTS
The numeric value of "true" is 1, of "false" is 0.
All non-zero values aré "true." For example, statement 90 would print either a 0 or a 1 (the logical value of the expression X AND
Y) rather than the actual numeric values of X and Y.
Control is transferred in an IF statement using AND, only ~hen all parts of the AND conjunction are "true." For instance, example statement 80 requires four "true" conditions before control is trans-ferred to statement 10.
See Section V, "Logical Operations" for a more complete description of logical evaluation.
10~66~4 T~ E ~ F~ O P~ ~ h~O
SYMBOL: OR
EX~MPLES~IF /\>1 ~P~ B<.5 T~,LN 5~,e
20 WRITE (15, 10) 18, 21, 19.3, 29.6, .71 printout will be:
A18.00~A2.10E+01 ~19.30~2.96E_01 ~0.71 After the first two values are printed according to the specified formats, the output printer's carriage return is activated, then two more values are printed according to the same two specified formats, etc.
Formatting Rules:
In fixed-point format, Fm.n, m stipulates total field width and n sti-pulates the number of digits to the right of the decimal point. If N>0, the minimum field width allowable is m = n + 3; e.g., F4.1 for a value of -.6 would print -0.6, which takes up the total field width of 4. If n = 0, the minimum field width is m = 2; e.g., F2.0 for a value of -7 would print -7, thus taking up the allotted field width.
In floating-point format, Em.n, m and n are the same as in fixed-point format. However, the minimum field width allowable is always m = n + 7.
The following are all allowed in format statements:
Fm.n - fixed-point formats;
Em.n - floating-point formats loften called exponential or scien-tific notation);
X - space;
/ - carriage return (for printing device);
"****" - quote field;
: B - binary format (where write statement could have octal num-ber, the binary equiv'alent would be output).
All of the above can be duplicated any number of times by leading the symbol with the appropriate number.
1~)46644 The following are all allowed in write statements: constants, variables, expressions, and quote fields. It should be noted that a write statement can be input from keyboard mode; that is, the write statement can reference the line number of a format statement in memory without being in the pro-gram itself.
The maximum width of both the fixed-point and the floating-point fields is 9,999. However, the programmer is effectively restricted by the allowable characters per line of the printing device.
The information in the format statement must be separated by commas.
The information in the write statement must be separated either by commas or semicolons; generally it makes no difference. However, one additional fea-ture of the write statement is that it can perform the identical operations as the print statement; the benefit is the ability of the write statement to select the device to be printed upon. To write up a punched tape photoreader with select code ~, the write statement could be set up in the following manner:
30 WRITE (2, *) A; B; C, D
The "*" indicates that no format statement is referenced; thus, WRITE acts like a PRINT statement: data will be left justified, semicolons pack the output fields, commas spread out the fields, etc.
P TAPE
As in BASIC , PTAPE causes the computer to read in a program from the punched tape photoreader. If the photoreader select code is 5, then pressing either ., . _ -- PTAPE #5 or PTA #5 will perform this task unless no photoreader is connected to the calculator. If a photoreader is not connected, the calculator will wait till one is hooked up to complete the command. During this time the dis-play will be blank.
"
.~
10466~4 During the implementation of this command, lines being loaded into memory have their syntax checked; if a line is in error, it will be rejected - thus, only those lines with correct syntax are loaded into the calculator. To obtain a record of the rejected lines, it is necessary to put the calculator in the print-all mode prior to pressing PTA #5; in print-all mode, all rejec-ted lines are printed.
.
Note To punch information onto paper tape, use the list command as discussed earlier.
~- :
, -97a-, ~t~
:1046644 MULTILINE FUNCTIONS
Multiline functions serve the same purpose as single-line functions with the added capability of heing able to describe more sophisticated functions.
In single-line functions the general form of the de-fining function is:
statement number DEF FN single letter A to Z tsimple variable)t - expression _ In multiline functions, the general form is the same aside from the equal sign and the expression; for in a multiline function, the expression can be spread out ove. many statement numbers. Thus, an extremely complicated expression can appear in a more simplified manner; additional flexibility is also gained in that the value of any variable within the expression can be computed for a given value of the argument of the function; e.g., 10 W = .5 When this program is run, D will return a 20 Y = 2 value of 32. The return statement returns 30 PRINT FNA (3) the result of FNA (X) which, in this case, 40 STOP is equal to D. Line 40, the stop statement 50 DEF FNA (X) is needed to keep the calculator from try-60 Z = X~2 + Y~2 ing to re-execute lines 50 through 90 after 70 Q = Z + 3 D is printed; without STOP in line 40, an 80 D ~ Q~W error occurs in line 60 since a second pass 90 RETURN D beginning at line 50, would be made with 100 STOP X undefined.
Any variable evaluated in the expression can be returned by the return state-ment, and multiple return statements are allowed; e.g., 10 X = 3 100 RETURN Z
20 INPUT Y 110 Q = z~2 30 WRITE (15,900) FNG (Y) 120 IF Q < 100 then 150 40 END 130 PRINT "Q ="
50 DEF FNG (Y) 140 RETURN Q
~ -98-~046644 \
60 Y = Y + l 150 PRINT "Z IS"
70 Z = Y~2*X 160 RETURN Z
80 IF z < 100 THEN 110 900 FORMAT F12.1 90 PRINT "Z =" 1000 END
tThe simple variable is a dummy variable which indicates where the actual argument of th- ~unction is used in the defining expression.
, -98a- -In this example, a variable can be returned from three different lines (100, 140, 160) depending on the initial value of Y; Z can be returned from both lines 100 and 160 if the value of Y meets certain criteria.
Caution must be taken as to the placement of the statement that calls the function (in both examples, statement 30), and it is generally advisable to put a stop statement immediately after this statement (as in line 40 of both examples); otherwise, an undesirable loop may develop.
If correctly entered, the function of a function can be evaluated.
STOP, END
STOP was previously discussed, with emphasis on its program debugging capa-bilities. Now it will be discussed as a program statement, emphasizing the differences between it and the end statement.
When the program encounters a stop statement, it halts and is waiting; if CONT EXEC is then pressed, the program will continue with the statement following the STOP. This is not true if an end statement is encountered;
the program will halt, but if CONT EXEC is pressed, the calculator will revert back to the lowest-numbered statement in memory. Therefore, the stop statement should be used between stacked programs that are to be run sequen-tially. When STOP is used in this manner, the values of simple variables can be passed from program to program.
A program should be terminated by encountering either a STOP or an END.
The highest-numbered program statement need not be an end statement.
INPUTTING DATA
Program data can be input in three ways: the input statement, the read and data statements, and the initialize command. The input statement and the read and data statements are thoroughly discussed below.
_99_ INITIALIZE
The INITIALIZE key, when pressed, allocates storage space in memory for array variables. After the required data is keyed in, the program can be executed by pressing CONT EXEC, remember - RUN EXEC erases the values of all variables, thereby -99a- , requiring all variables to be defined in the program itself.
Simple variables can always be input in keyboard mode without using the INITIALIZE key, as long as CONT EX~C is pressed to run the program. Since array variables can be input in keyboard mode by using the initiali~e com-mand, it is not necessary to define any variables in the program itself.
It is still necessary, however, to identify arrays in either a dimension or a common statement.
-100- ~
, USER - DEFINABLE KEYS
There are ten user-Definable Keys (UDK) in the upper left-hand block of the keyboard. There are, however, effectively 20 accessible UDK's since each key can be accessed normally or with the shift key held down.
To enter UDK mode, press FETC~ (particular UDK); the display will then read, KEY indicating the mode. To exit from UDK mode, press CLEAR E N D EXEC;
the scratch command can also be used to exit from UDK mode - this command will, of course, erase certain information in the process. UDK mode is automatically exited when certain sequences are followed; these cases will be discussed later.
The user-definable keys can be used effectively in three ways:
1. to represent text (where text can be used as a typing aid);
2. to represent functions (where different values can be passed to the function);
3. to represent programs.
REPRESENTING TEXT
If a key represents text, merely pressing the key will immediately display the text without erasing anything that was previously on the display. Thus, commonly used words and phrases can be put on keys to serve as typing aids.
Text can be put on a key in the following manner.
First, access a key by pressing FETCH (particular UDK). Then~ press * fol-lowed by a character stringt and finally EOL. Besides inputting the charac-ter string, pressing EOL in this sequence takes the user out of UDK mode.
Any time the programmer wishes to use a character string, he must press the key into which the desired character string was input.
If, for example, a key was accessed by FETC~ (particular UDK); then *
FORMAT F10.2,X, EtO 1 EOL was input. If subsequently program line number 60 .~ ~
needed this format, pressing 60 (particular UDK) EOL will put line number 60 into memory with the required format.
tThe maximum length for the character string (including the *) is 80 charac-ters.
-lOla-~046644 A typing-aid key can be used as an immediate execute command if an * is placed both in front of the text and following the text;
e.g., FETCH (UDK) * LOADDATA #4, 6, B * EOL
This command will be immediately executed whenever the UDK is pressed.
To use a key that has text, merely press the key. Pressing FETCH
(particular UDK) will display the * with the text; however, text can be edited if the fetch command is used. Pressing FETCH and then * will erase the old character string and then wait for new text to be input.
REPRESENTING FUNCTIONS
A user definable key can be used to represent functions - either single or multiline. In either case, after the key is accessed, the function must be preceded by a line number - input either manually or automatically.
After a key has been accessed, the following function could be input:
10 DEF FNA (X) = 7 * X -3 EOL
Whenever a value is to be passed to X (the argument of the function), first press the appropriate key; the display will read FNA. Then key in the appropriate value of the argument, which can be either a constant or an ex-pression (e.g., 20), and press EXEC; the value of the function will then be displayed (in this case, 137). The same result could have been achieved by using the fetch command; however, FNA would not appear automatically on the display; it would have to be keyed in along with the argument; e.g., FETCH
(UDK) FNA 20 EXEC would also display 137.
If a multiline function, DEF FNB (Z), has been input, pressing the appropriate UDK causes FNB to be displayed; as before, passing a value to the argument, Z, and then presslng EXEC will compute and display the value of the function.
Functions in màinline memory and in a UDK can he called, regardless of the current operating mode.
~046644 If a function in the calculator is defined in more than one place, the first function found with the designated name will be accessed. If the user is in UDK mode, the calculator will search for the function in the following order:
1. The current UDK program will be checked.
2. The first line of each key (in the order defined) will be checked.
3. Mainline memory will be checked.
If the user is not in UDK mode, the order of the search will be steps 3 and 2, 'respectively.
REPRESENTINS PROGRAMS
A UDK can be used to represent an entire program. Programming rules in UDK
mode are consistent with those discussed above. There is one restriction, however; if a common statement is used, its size must be less than or equal to the size of the common statement in the mainline pro-gram - for there is only one common area allocated to memory.
To run a program that is represented in a UDK, it is advisable to press RUN
(particular UDK) or FETCH (UDK~, then INIT (particular UDK). The program can be continued merely by pressing the (particular UDK); but if there are array variables in the program, pressing only the key will cause these vari-ables to be undefined (similar in this respect to the continue command, which neither destroys the old symbol table nor builds a new one). After executing the program, the calculator will exit from UDK mode.
Programs represented on a UDK generally use only simple variables for the obvious ease of handling.
To list program lines on a particular UDK, press:
LIST (particular UDK);
pressing LIST EXEC in the UDK mode will list the program lines on the key currently being accessed. To selectively list particular lines on the UDK, ~ -103-t ~046644 t it is first necessary to FETCH a key; then use the list command as discussed below.
To load a program from a cassette file onto one particular key, first FETCH
the key, then give the load command followed by EXEC. Program lines on a particular key can be -103a-stored onto the cassette in the same manner; text (as a typing aid), however, cannot be stored in this manner.
STORE KEY and LOAD KEY can be used for any UDK regardless of the information on the key. The use of these keys is discussed below.
-;.
--1 0~--lb~66~4 SrA I ~M EN l-.S
, ~.
This is a 3A~IC stctem~nt:
1,~ Ii~PUT A,B,C,D,E
COM~1E~TS
A statement corît~ins a maximum of ~0 characters A statem~nt may also be called a line.
.
-1 0S - ~
STATEM ~1~1T N Ul'A B~:RS
Each BASIC statement begins with a sta ~ment_umb~r (in this example~ 20):
2~ LET S-(A+B~C+D+E)/5 t ~ ~- ~ ~
COMMENTS
The number is called a statement number or a line number.
The statement number is chosen by you, the programmer. It may be any integer from 1 to 9999 inclusive.
Each statement has a unique statcment number. The con-lputer uses the numbers to keep the statements in order.
Statements may be entered in any order; they are usually numbered by fives or tens so that additional statements can be easily inserted. The computer keeps them in numeri-cal order no matter how they are entered. For exanlple, if statements are input in the sequence 30,10,2~; the computer arranges them ln the order: 1~,2~,30.
~ - -104~644 INSTRUCT~01'~$
2~ ~ tr ~ ur ~
The statement then gives an l-n~t~u~ oA to the ~omputer (in this example, PRINT):
: COMM~NTS
~nstru¢tlons are sometimes called statement types because they identify a type of statement. For example, the statement above is a "print" statement.
~ ' ., :
~ I ' J
~ ~ -107_ . ~, . . . .
O PE t~f~N D~
If the instruction requires further details, op~ra~ds ~numeric details) are supplied (In this example, 10;
on the previous page, "S"):
4~ G0 T0 1 , - OOMMENTS
The o~erands specify what the instruction acts upon; for example, what is PRINTed, or where to G0.
. . -108-.. .
iO~6644 P ~ A M
The sequence of BASIC statements 1~ INPUT A,B,C,D,E
given on the previous pages is 2~ LEI S=(A+B+C~D+E)/5 called d program. 30 PRINT S
The last statement in a program, 40 GO TO 10 as sho~n here, is 50 END
an END statement.
, CO~lENTS
The last (highest nun~ered) statement in a program must be an END statement.
'~ The END statement informs the computer that the program is fSnished.
~ -1 09- /
' _ . . .:. ~ -104~i644 FREE-F0 R~A ~T L~N~i UAt~
BASIC is a "free format" language--the computer ignores extra blank spaces in a statement. For examp1e~ these three statements are equivalent:
3~ PRINT S
3p PRINT S
3~PR~NTS
~ ( .
COMMENTS
When possible, leave a space between words and numbers in a statement. This makes a program easier for people to read.
~ .
.
.
TERM: SI~PLE VAR~Bl..
DEFI~ED IN BASIC AS: A letter (from A to Z); or a letter immediately followed by a digit (from 0 to ~).
EXAMPLES: A0 B
Z9 D - -- .-COMMENTS
Yariables are used to represent numeric values.
F~r instance, in the statement:
10 LET M5 = 96.7 M5 is a variable; 96.7 is the value of the variable M5.
There is one other type of variable in BASIC, the array (subscripted) varia~lei its use is explained in Section IV.
....... ~ ..................................................... , -Ill-10~644 T E R M ~ B E R
OEFINED IN BASIC AS: A decimal number (tt,e sign ~s opticnal) bet~een lE-99 and 9.999999993999E+99 Zero is included in this ranse.
EXAMPLES:
-10008 5 3.14159 lOE+37 126.257 O lO E37 lOE-37 16.01 .06784-lO E37 l.OE+2 --- TERfV3 ~ OTAT10 N
~EFINED IN BASIC AS: A means of expressing numbers having more than six decimal digits, ;n the form of a decimal number raised to some power of 1~. ;
EXAMPLES: 1.000~0E~06 is equal to 1,~0,000 and is read: "1 times 10 to the sixth power" (lx106).
2000E+04 is equal to 1~,200 1.02000E-04 is equal to .0~01~2 , COMMENTS
"E" notation ~s used to prlnt numbers ha~ln~ more than six signiflcant digits. It may also be used for input of any number.
When entering numbers in "E" notation, leading and trailing zeroes may be omitted from the number; the ~ sisn and leadir,g zeroes may be omitted from the exponent.
The precision of numbers is 12 decimals digits ~0~;64 X P ~ I~ S S I t~
DEFINED IN EASIC AS: A co~bination of variables, con- ' -stant,s 2nd operators which eval-uateS t. ~ numeric val~e.
EXAMPLES: (P + 5)~27 (where P has previously been assigned a numeric value.) Q - (N + 4) (where Q and N have previously ~ - been a,ssigned numeric values.) TERM: ARIT~METIC EVALU~TION
DEFINED IN BASIC AS: The process of calculating the value'of an expression.
~046644 ~. .
TI~E ASSII~;NN5EN-r OP~Al O~
SYMBOL: =
EXAMPLES: 1~ LET A = B2 = C = Q) 20 LET A9 = C5 30 LET Y = (N-(P.~5))/T
~ 4~ LET N5 = A + B2 5~ LET P5 = P6=P7=A-3=~8.fi GENERAL FORM: LET variable-- expression , PURPOSE
Assigns an arithmetic or logical value to a variahle.
COMMENTS
When used as an assignment operator, = is read "takes the value of," rather than "equals". It is, therefore, possible to use assignment statements such as:
LET X = X+2 ~ .
This i5 interpreted by BASIC as: "LET X take the value of (the present value of) X, plus two."
Several assignments may be made in the same statement, as in statements 1~ and 5~ above.
See Section V, "Logical Operations" for a description of logical assignments.
.
~046644 l AT3 ~ N A ~ Q P~ ~AT0 RS
SY,YBOLS: = ~ '> > ' '= ~= ' EXAM~LES: 10~ IF A=6 THEN 9~0 110 IF A+B >C THErl ~10 120 1 F 4 ' .B C+~ .E~ 920 ~ 130 IF C>=D*E T~lEi! 930 140 IF C9-= G~H IHEN 9'~
15~ I F P2 ','C'9 Tl-IE~ 95~1 16~ IF J ~' K THcN 95ja PURPOSE
._.. _~7_.................. Deterinines the logical relationship between two expressions, as equality:
inequality: # or <>
greater than: >
~ less than: <
greater than or equal to: ~=
less than or equal to: <=
COMMENTS
NOT~: ~t is not necessary for the novice to understand the nature of logical evaluation of relational operators, at this point.
The com~ents below are for the experienced programmer.
- Expressions using relational operators are logically evaluated, and assigned a value of "true" or "false" tthe num2ric value is l for "true," and 0 for false).
When the = symbol is used in such a way that it might have either an assignment or a relational function, ~ASIC assumes it is an assignment operator. For a description of the assiynment statement using logical ~ -~
operators, see Section V, "Logical Operations " .J
-115-~
10466~4 ARIT~ IC OPER~TO~S
c SYMBOLS: ~ * / ~ -EXAMPLES: 4~ LET Nl = X-5 5~ LET C2 = Nt3 6~ EET A = (B-C)/4 70 IET X = ((P~2)-(Y*X))/N~Q
PURPOSE
Represents an arithmetic operation, as:
exponentiate:
multiply: *
div;de:
add:
( subtract:
COMMENTS
The "-" symbol is also used as a sign for negat;ve numbers.
It is good practice to group arithmetic operations with parentheses when unsure of the exact order of precedence.
The order of precedence (hierarchy) is:
t /, with ~ having the highest priority. Operators on the same level of priority are acted upon from left to right in a statement.
_- See "Order of Precedence" in this Section for examples.
10 16~;44 ARIT~IMETIC OPERATOF~), CON~ lUED
The symbols + and - are also used ..c, indicate unary plus and unary minus. For example, negative numbers may be expressed in a statement ~lithout using parenthesis:
10 LET Al= -B
20 LET C2 - D ++E.
30 LET B5 = B --C
See "Order of Precedence" in this section for examples - - or ho~l unary + and unary - are interpreted. .
-117_ iO~6644 THE ~ND OPERATOR
~''- SYMBOL: AND
EXAMPLES: 6~ IF A9~Bl AND C~5 THEN 1,00 7,0 I F T7#T AND J=27 THEN 150 80 IF Pl AND R>l AND N AND V2 THEN 10 PURPOS E
Forms a logical conjunction between two expressions. If both are "true," the conjunction is "true"; if one or both are "false," the conjunction is "false."
~OTE: It is not necessary for the novice to understarld how this opera tor works . The comm~nts below are for experienced - progralr2mers.
COMMENTS
The numeric value of "true" is 1, of "false" is 0.
All non-zero values aré "true." For example, statement 90 would print either a 0 or a 1 (the logical value of the expression X AND
Y) rather than the actual numeric values of X and Y.
Control is transferred in an IF statement using AND, only ~hen all parts of the AND conjunction are "true." For instance, example statement 80 requires four "true" conditions before control is trans-ferred to statement 10.
See Section V, "Logical Operations" for a more complete description of logical evaluation.
10~66~4 T~ E ~ F~ O P~ ~ h~O
SYMBOL: OR
EX~MPLES~IF /\>1 ~P~ B<.5 T~,LN 5~,e
11,~ PRJNT C OR D
120 LET D - X OR Y .-130 Ii (X ANU Y3 OR (P AND Q) THE~I 60 PURPOSE
Forlns the logical disjunction of two expressions. If , . . . . .
either or both of the expressions are true, the OR dis-junction is "true"; if both expressions are "false," the OR disjunction is "false."
NOTE: It is not necessary for the novice to understand how this operator wor~s. ~he comments below are for ; experienced programmers.
COMMENTS
The numeric values are: "true" = 1, "false" = ~.
~; .
' All non-zero values are true; all zero values are false.
Control is transferred in an IF statement using OR, when either or both of the two expressions evaluate to "true."
.: , See Section V, "Logical Operations" for a more complete description of logical evaluation.
.' '' ' ' ' .
, -119- 1 , .
. , .
,; .
10~66~
Tll E ~ OT 0 PL l:~AT0 R
- SYMBOL: NOT
EXAMPLES: 30 LET X = Y =. 0 35 IF ilOT A THEN 3~ -~5 IF (NOT C) AND A THEN 4 55 LET G5 = ~OT P
65 PRI NT NOT (X AND Y) 7~ I F NOT (A=B) THEN 5,~
~~
PURPOSE
Logicall~ evaluates the complement of a given expression.
NOTB. It is not necessary for the novice to understand how this operdtor works. T~e com~ents below are lntended for experienced programmers.
( - COMMENTS
If A = ~, then NOT A = l; if A has a non-zero value, NOT A - 0.
' ; The numeric values are: "true" - 1, "false" = ~; for example, state~ent 65 above would print "1", since the expression NOT (X AND Y) is true.
i~
! Note that the logical specifications of an expression may be changed by evaluating the complement. In statement 35 above, if A equals zero, the evaluation would be "true"
~1); since A has a numeric value of 0, it has a logical ~ value of "false," making NOT A "true."
( - See Section V, "Logical Operations" for a more complete description of logical evaluation.
'. ' I
~; - 1 2 0 -... .
- - .
iO~6644 OF~DE~ OF Pr~C~:~)ENCE
The order of per,ornling oporctions is:
t high~s ~ prec~dence NOT unary + un~ry -, +
Rela tional Opera tors AND
OR lowes t pr~!c~dence COMMENTS --If two operators are on the same level, the order of execution is left to r;ght~ for example:
5 + 6*7 is evaluated as: 5 ~ (6x7) 7114*2/5 is evaluated as: (7/14~x2 Parentheses override the order of precedence in all cases, for example:
~ 5 +- (6x3) is evaluated as: 5 + l8 and 3 + (6+(2~2)) is evaluated as: 3 + (6+4) Unary + and - may be used; the parentheses are assumed by - BASIC. tor example: . .
A + + B is interpreted: A ~ (+B) C - + D -5 is interpreted: C - (+D)-5 Leading unary + signs are omitted from output by BASIC, but remain in program listings.
ST~TEM ~ITS
Statements are instructions to thecalc~lator ~h~y are contain~d in numbered lines within a program, and execute in the order Oc their line numbers. Statements cannot be executed without run-- ning a program. They tell the c~lculator what to do while a pro-gram is running.
Here are some examples mentioned in Section I: -LET
PRINT
INPUT
Do not attempt to memorize every détail in the "Statements"
( - subsection; there is too much material to master in a single - session. By experimenting with the sample progranls and at-tempting to write your own programs, you will learn more quickly than by memorizing.
-122_ .. . : . , ~0~6644 THE: LET ~TA-r~M~ T
_ EXAMPLES: 1~ LET A = 5.~2 2~ LET X - Y7 = Z =
30 LET B9 = 5~ !X~2) 40 EET D = (~*C2~N)/(A*(N/2)) GENERAL FORM r statem~nt number LET variable -- number or expr~ssion or variable...
PURPOSE
.
Used to assign or specif~y the value of a variable. The value may be an expression, a number, or a variable.
COMMENTS
The assignment statement must contain:
1. A statement number, 2 . L,ET i s op t i ona l 3. The variable to be assigned a vaiue (for example, B9 in statement 30 above), 4. The assignment operator, an = sign, 5. The number, expression or variable to be assigned to the varidble (for example, 5*(X~2) in statement 30 above).
Statement 2~ in the example above sho~s the use of an assignment ; to give the same value (0) to several variables. This is a use~ul featùre for initializing variables in the beginning of a program.
.. .
,' ~ .
'' ' ' ! ) . .. I
, -123- 1 lO'~fi644 REM
EXAMPLES:1~ REM--THIS IS ~N EXAMPLE
2~ REM- OF REM STAIEMENTS
- 3~ REM-----/////i;;**l!!!!!
40 REM. STATEMENTS ARE NOI EXECUT'-~ BY BASIC
GENERAL FORM: _ ate.ment number REM any remark or series of characters ~ .
PURPOSE
- Allows insertion of a line of-remarks or comment in the listing of a program.
. . -- ~ .
COMMENTS
Must be preceded by a line number. Any series of characters may follow REM.
REM lines are part of a BASIC program and are printed when the program is listed or punched; however, they are ignored when the program is executing.
Remarks are easier to read if REM is followed by d punctuation mark, a~ in the example statements.
.
~ r~
10~6~;44 P RI NT
This sample program gives a variety of examples of the PRINT statement.
The results are sho~n below~
1e) LET A=B=O=l 20 LET Dl-E9=2 30 PRINT A, e,C,Dl,E3 40 PRINT A/ B,B/C/Dl~ E9 50 PRINT "NOTE TIIE PO~:!ER TO EVALUATE AN EXPP.ESSION AND PRINT THE"
60 PRINT "VALUE IN THE SAI~E STATE~lENT.' 90 REIM* "PRINT" ~IITH NO OPERAI'ID CAUSES THE TELEPRlNlER TO SKIP A LINE.
100 PRINT "'A' DIVIDED BY 'E9' ="iAjE9 110 PRINT "11111", "22222", "33333", "44444", "55555", "66666"
120 PRINT "11111"; "22222", "33333"; "44444"; "55555"; "66666"
-- RESULTS ----------------------------RUN
20.05 NOTE THE POI~ER TO EVALUATE AN EXPRESSION AND PRINT TIIE
VALUE IN THE SAME STATEMENT.
'A' DIVIDED BY 'E9' = .5 111112222233333444'~45555566666 ~ -NOT~: I17e ", " and "; " used in statements 11~ and 12,~ have very different effects on the fo~mat.
': , ' '' i 10466J~4 PRINT, CONl~INUED
. ~
GENERAL FORM:
statement number PRI ~T ex~ression ~ expression , ...
or statement number PRINT "an~_text" , expression ; ...
or statement number _ RINT "text" , expression , ''t_xt" , "text" , ...
or statement nùmber PRINT an~ co.~ination of text and/or expressions or statement number PRINT
PURPOSE ' -Causes the expressions or "text" to be output to the Printer Causes the printer to skip a line when used without an operand~
COMMENTS
Note the effects of , and ; on the output of the sample program. If a com~d ls used to separate PRINT operands, five fields are prlnted per printer line. If semicolon is used, up to twelve "packed" numeric fields are output per .printer line (72 characters).
~ Text in quotes is printed literally.
~OTE: A ~a~iable name is considered as a simple expression by ~ASIC For example, a statemen~ for the first general form shown above ml'ght be:
10~ PRlNT A1, ~2, C3 or . 110 PRINT A, 2, X, T9 where the variables ~epresent numeric expressions.
Remember that variable values must be defined in an assignment, INPUT, READ
or ~OR st~tement before being used ~n a' PRINT statement.
P~ T, CONTlNlj~:D
Ending a PRINT statement ~lith a semicolon causes the o~tput to be printed on the same line, rather than ~enerating a return linefeed after the statement is executed. For example, the sequence:
20 LET X = 1 30 PRINT X;
40 LET X=X+l , produces o~tput in this format: .
1 2 3 4 5 6 -7 8 9 10 1i 12 13 14 15 16 17 18 19 20 21 22 23 2~
Similarly, ending a PRINT statement with a comma causes output to fill all five fields on a line before moving to the next line.
The trailing comma in statement 30 in the sequence:
2~ LET X = 1 30 PRINT X, 4~ LET X=X+l produces output in this format:
A PRINT statement without an operand (statements 70 and 80 in the sample program) generates a ~et~n linefe~d.
~127-lo46644 GO TO A~D ~iULTlBR~!NCI~ GO TO
~.,.
~ EXAMPLES: t0 I ET X = 20 .
40 GO TO X+Y OF 41~,420,430 ..
80 GOTO t 0 - 9~ GO T() N OF 10~,150,1~0,190 GENER~L FORi î: - ' sta~ement number GO TO statement n~lrber state~ent num~er GO TO expression OF sequence of statement numbers PURPOSE
GO TO transfers control to the statement specified.
- ~,6,., GO TO expressio~...rounds ~he expression to an integer n and transfers control to the nth statement number follo~ing OF.
CO~l~lENTS
GO TO may be written: GOTO or GO TO.
Must be followed by the statement number to ~hich control is transferred, or expression OF, and a sequence of statement numbers.
GO TO overrides the normal execution sequence of statements in a program.
If there is no statement number corresponding to the value of the expression, the GO TO is ignored.
Useful for repeating a task infinitely, or "jumping" (GGing TO) anotiler part ofa program if certain conditions are present.
GO TO silould not be used to enter FOR-~'EYT locps; doing so ~ay produce unpredict-able results or fatal errors~
. "' . I
.. ..
10~664 OS U ~ U
' !i EXAI~PLE: 50 READ AZ
.~ 6~ IF A2<100 TH-N 80 380 ~TOP (STOP frequently precedes the first statement o~
a subroutine, to prevent ac~idental entry.) 390 REM--THIS SU-ROUTINE hSKS FOR A l OR 0 REPLY.
400 PRINT "A2 IS>100"
410 PRINT "DO YOl WANT TO CONTINUE";
430 IF~ N ~0 THE~I 45 440 LET A2 = 0 60~ END
GENERAL FORM: statement num~er GOSUB statement number starting subroutine statement number RETURN
PURPOSE
GOSUB transfers control to the specified statement number.
RETU2N transfers control to the statement follo~ling the GOSUB - .
statem~nt ~lhich transferred control.
GOSUB...RETU2l'l eliminates the need to repeat frequelltly used qroups of statements in, a pi~ogram.
~' .
.~
' 10~664d,~ .
~ULT36~.ANC~ ~OSU~3 ~ EXA~IPLES: 20 Go$UE 3 OF 10~ 20~ 3~ 4~ 5~0 - ~ 60 GOSUB N+l OF 20~ 21~ 22 - 7~ GOSUB r~ OF 8~ 2Z~ 380.~8~ 58 GErlEi~A~ FORM:
state~ent num~er GOSUB fxpression OF seq~cnc~ of statement nu~b~rs ...
PURPOSE
, .
GOSUB espression rounds the expression to an integer n and transfers control to the nth statement lumber follo~ing OF.
COMMENTS
Subroutines should be exited only ~lith a RETURN statement The expression indicates which of the specified subroutines will be executed. For example stat~ment 2~ above transfers control to the subroutine beginning ~lith st~atement 3~0. The expression specifies which statement in the sequence of~five statements is used as the starting one in the subroutine.
The expression is evaluated as an integer. Non-inteoer va!ues are rounded to the nearest integer.
If the ~xpression evaluates to a number greater than the number of state-ments specified or less than 1 the GOSUB is ignored.
.
Statem~ent numbers in the sequence follo~ling OF must be separate~ by comnlas.
.
,~
.; .. ~ .
, ~ -130-, ."
10~ 4 I F. ..T~
SAMPLE ~ROG~.AM: 10 L~
20 RE~D X
30 IF X <=N THErl 6~
40 PRINT "X IS OVFR", N ---50 GO TO l00 --60 PP~INT "X IS LESS THAN OR EQUAl TO"; r~
Q~ ~TnP
GENER.~' FORM:
statemen1: number IF exPression relational op expression THEN statement nu~7ber PURPOSE
Transfers control to a specified statement: if a specified condition is true.
COI~MENTS
.
Sometimes described as a conditional transfer; "GO TO" is implied by IF...THEN, if the condition is true. In the example above, if X<=l~, the message in statement 60 is printed (statement 60 is executed).
Since numbers are not always repre ented exactly in the computer, the = oper-ator should be used carefully in I-...THEN statements. Limits, such as <=,>=, etc. should be used in an IF expre-sion, rather than =, whenever possible.
If the specified condition for tralsfer is not true, the program will continue executing in sequence. In the exanple ahove, if X~l~, the message in state-ment ~0 prints.
The relational operator is optional in logical evaluations.
See Section V, "Logical Operations," for a more complete description oflogical evaluatior,.
10~;64~
FOR...I~EXT
EXAMPLES~ FOR Pl = 1 TO 5 1 l e) FOP~ Ql = N TO X
120 LET D - X OR Y .-130 Ii (X ANU Y3 OR (P AND Q) THE~I 60 PURPOSE
Forlns the logical disjunction of two expressions. If , . . . . .
either or both of the expressions are true, the OR dis-junction is "true"; if both expressions are "false," the OR disjunction is "false."
NOTE: It is not necessary for the novice to understand how this operator wor~s. ~he comments below are for ; experienced programmers.
COMMENTS
The numeric values are: "true" = 1, "false" = ~.
~; .
' All non-zero values are true; all zero values are false.
Control is transferred in an IF statement using OR, when either or both of the two expressions evaluate to "true."
.: , See Section V, "Logical Operations" for a more complete description of logical evaluation.
.' '' ' ' ' .
, -119- 1 , .
. , .
,; .
10~66~
Tll E ~ OT 0 PL l:~AT0 R
- SYMBOL: NOT
EXAMPLES: 30 LET X = Y =. 0 35 IF ilOT A THEN 3~ -~5 IF (NOT C) AND A THEN 4 55 LET G5 = ~OT P
65 PRI NT NOT (X AND Y) 7~ I F NOT (A=B) THEN 5,~
~~
PURPOSE
Logicall~ evaluates the complement of a given expression.
NOTB. It is not necessary for the novice to understand how this operdtor works. T~e com~ents below are lntended for experienced programmers.
( - COMMENTS
If A = ~, then NOT A = l; if A has a non-zero value, NOT A - 0.
' ; The numeric values are: "true" - 1, "false" = ~; for example, state~ent 65 above would print "1", since the expression NOT (X AND Y) is true.
i~
! Note that the logical specifications of an expression may be changed by evaluating the complement. In statement 35 above, if A equals zero, the evaluation would be "true"
~1); since A has a numeric value of 0, it has a logical ~ value of "false," making NOT A "true."
( - See Section V, "Logical Operations" for a more complete description of logical evaluation.
'. ' I
~; - 1 2 0 -... .
- - .
iO~6644 OF~DE~ OF Pr~C~:~)ENCE
The order of per,ornling oporctions is:
t high~s ~ prec~dence NOT unary + un~ry -, +
Rela tional Opera tors AND
OR lowes t pr~!c~dence COMMENTS --If two operators are on the same level, the order of execution is left to r;ght~ for example:
5 + 6*7 is evaluated as: 5 ~ (6x7) 7114*2/5 is evaluated as: (7/14~x2 Parentheses override the order of precedence in all cases, for example:
~ 5 +- (6x3) is evaluated as: 5 + l8 and 3 + (6+(2~2)) is evaluated as: 3 + (6+4) Unary + and - may be used; the parentheses are assumed by - BASIC. tor example: . .
A + + B is interpreted: A ~ (+B) C - + D -5 is interpreted: C - (+D)-5 Leading unary + signs are omitted from output by BASIC, but remain in program listings.
ST~TEM ~ITS
Statements are instructions to thecalc~lator ~h~y are contain~d in numbered lines within a program, and execute in the order Oc their line numbers. Statements cannot be executed without run-- ning a program. They tell the c~lculator what to do while a pro-gram is running.
Here are some examples mentioned in Section I: -LET
INPUT
Do not attempt to memorize every détail in the "Statements"
( - subsection; there is too much material to master in a single - session. By experimenting with the sample progranls and at-tempting to write your own programs, you will learn more quickly than by memorizing.
-122_ .. . : . , ~0~6644 THE: LET ~TA-r~M~ T
_ EXAMPLES: 1~ LET A = 5.~2 2~ LET X - Y7 = Z =
30 LET B9 = 5~ !X~2) 40 EET D = (~*C2~N)/(A*(N/2)) GENERAL FORM r statem~nt number LET variable -- number or expr~ssion or variable...
PURPOSE
.
Used to assign or specif~y the value of a variable. The value may be an expression, a number, or a variable.
COMMENTS
The assignment statement must contain:
1. A statement number, 2 . L,ET i s op t i ona l 3. The variable to be assigned a vaiue (for example, B9 in statement 30 above), 4. The assignment operator, an = sign, 5. The number, expression or variable to be assigned to the varidble (for example, 5*(X~2) in statement 30 above).
Statement 2~ in the example above sho~s the use of an assignment ; to give the same value (0) to several variables. This is a use~ul featùre for initializing variables in the beginning of a program.
.. .
,' ~ .
'' ' ' ! ) . .. I
, -123- 1 lO'~fi644 REM
EXAMPLES:1~ REM--THIS IS ~N EXAMPLE
2~ REM- OF REM STAIEMENTS
- 3~ REM-----/////i;;**l!!!!!
40 REM. STATEMENTS ARE NOI EXECUT'-~ BY BASIC
GENERAL FORM: _ ate.ment number REM any remark or series of characters ~ .
PURPOSE
- Allows insertion of a line of-remarks or comment in the listing of a program.
. . -- ~ .
COMMENTS
Must be preceded by a line number. Any series of characters may follow REM.
REM lines are part of a BASIC program and are printed when the program is listed or punched; however, they are ignored when the program is executing.
Remarks are easier to read if REM is followed by d punctuation mark, a~ in the example statements.
.
~ r~
10~6~;44 P RI NT
This sample program gives a variety of examples of the PRINT statement.
The results are sho~n below~
1e) LET A=B=O=l 20 LET Dl-E9=2 30 PRINT A, e,C,Dl,E3 40 PRINT A/ B,B/C/Dl~ E9 50 PRINT "NOTE TIIE PO~:!ER TO EVALUATE AN EXPP.ESSION AND PRINT THE"
60 PRINT "VALUE IN THE SAI~E STATE~lENT.' 90 REIM* "PRINT" ~IITH NO OPERAI'ID CAUSES THE TELEPRlNlER TO SKIP A LINE.
100 PRINT "'A' DIVIDED BY 'E9' ="iAjE9 110 PRINT "11111", "22222", "33333", "44444", "55555", "66666"
120 PRINT "11111"; "22222", "33333"; "44444"; "55555"; "66666"
-- RESULTS ----------------------------RUN
20.05 NOTE THE POI~ER TO EVALUATE AN EXPRESSION AND PRINT TIIE
VALUE IN THE SAME STATEMENT.
'A' DIVIDED BY 'E9' = .5 111112222233333444'~45555566666 ~ -NOT~: I17e ", " and "; " used in statements 11~ and 12,~ have very different effects on the fo~mat.
': , ' '' i 10466J~4 PRINT, CONl~INUED
. ~
GENERAL FORM:
statement number PRI ~T ex~ression ~ expression , ...
or statement number PRINT "an~_text" , expression ; ...
or statement number _ RINT "text" , expression , ''t_xt" , "text" , ...
or statement nùmber PRINT an~ co.~ination of text and/or expressions or statement number PRINT
PURPOSE ' -Causes the expressions or "text" to be output to the Printer Causes the printer to skip a line when used without an operand~
COMMENTS
Note the effects of , and ; on the output of the sample program. If a com~d ls used to separate PRINT operands, five fields are prlnted per printer line. If semicolon is used, up to twelve "packed" numeric fields are output per .printer line (72 characters).
~ Text in quotes is printed literally.
~OTE: A ~a~iable name is considered as a simple expression by ~ASIC For example, a statemen~ for the first general form shown above ml'ght be:
10~ PRlNT A1, ~2, C3 or . 110 PRINT A, 2, X, T9 where the variables ~epresent numeric expressions.
Remember that variable values must be defined in an assignment, INPUT, READ
or ~OR st~tement before being used ~n a' PRINT statement.
P~ T, CONTlNlj~:D
Ending a PRINT statement ~lith a semicolon causes the o~tput to be printed on the same line, rather than ~enerating a return linefeed after the statement is executed. For example, the sequence:
20 LET X = 1 30 PRINT X;
40 LET X=X+l , produces o~tput in this format: .
1 2 3 4 5 6 -7 8 9 10 1i 12 13 14 15 16 17 18 19 20 21 22 23 2~
Similarly, ending a PRINT statement with a comma causes output to fill all five fields on a line before moving to the next line.
The trailing comma in statement 30 in the sequence:
2~ LET X = 1 30 PRINT X, 4~ LET X=X+l produces output in this format:
A PRINT statement without an operand (statements 70 and 80 in the sample program) generates a ~et~n linefe~d.
~127-lo46644 GO TO A~D ~iULTlBR~!NCI~ GO TO
~.,.
~ EXAMPLES: t0 I ET X = 20 .
40 GO TO X+Y OF 41~,420,430 ..
80 GOTO t 0 - 9~ GO T() N OF 10~,150,1~0,190 GENER~L FORi î: - ' sta~ement number GO TO statement n~lrber state~ent num~er GO TO expression OF sequence of statement numbers PURPOSE
GO TO transfers control to the statement specified.
- ~,6,., GO TO expressio~...rounds ~he expression to an integer n and transfers control to the nth statement number follo~ing OF.
CO~l~lENTS
GO TO may be written: GOTO or GO TO.
Must be followed by the statement number to ~hich control is transferred, or expression OF, and a sequence of statement numbers.
GO TO overrides the normal execution sequence of statements in a program.
If there is no statement number corresponding to the value of the expression, the GO TO is ignored.
Useful for repeating a task infinitely, or "jumping" (GGing TO) anotiler part ofa program if certain conditions are present.
GO TO silould not be used to enter FOR-~'EYT locps; doing so ~ay produce unpredict-able results or fatal errors~
. "' . I
.. ..
10~664 OS U ~ U
' !i EXAI~PLE: 50 READ AZ
.~ 6~ IF A2<100 TH-N 80 380 ~TOP (STOP frequently precedes the first statement o~
a subroutine, to prevent ac~idental entry.) 390 REM--THIS SU-ROUTINE hSKS FOR A l OR 0 REPLY.
400 PRINT "A2 IS>100"
410 PRINT "DO YOl WANT TO CONTINUE";
430 IF~ N ~0 THE~I 45 440 LET A2 = 0 60~ END
GENERAL FORM: statement num~er GOSUB statement number starting subroutine statement number RETURN
PURPOSE
GOSUB transfers control to the specified statement number.
RETU2N transfers control to the statement follo~ling the GOSUB - .
statem~nt ~lhich transferred control.
GOSUB...RETU2l'l eliminates the need to repeat frequelltly used qroups of statements in, a pi~ogram.
~' .
.~
' 10~664d,~ .
~ULT36~.ANC~ ~OSU~3 ~ EXA~IPLES: 20 Go$UE 3 OF 10~ 20~ 3~ 4~ 5~0 - ~ 60 GOSUB N+l OF 20~ 21~ 22 - 7~ GOSUB r~ OF 8~ 2Z~ 380.~8~ 58 GErlEi~A~ FORM:
state~ent num~er GOSUB fxpression OF seq~cnc~ of statement nu~b~rs ...
PURPOSE
, .
GOSUB espression rounds the expression to an integer n and transfers control to the nth statement lumber follo~ing OF.
COMMENTS
Subroutines should be exited only ~lith a RETURN statement The expression indicates which of the specified subroutines will be executed. For example stat~ment 2~ above transfers control to the subroutine beginning ~lith st~atement 3~0. The expression specifies which statement in the sequence of~five statements is used as the starting one in the subroutine.
The expression is evaluated as an integer. Non-inteoer va!ues are rounded to the nearest integer.
If the ~xpression evaluates to a number greater than the number of state-ments specified or less than 1 the GOSUB is ignored.
.
Statem~ent numbers in the sequence follo~ling OF must be separate~ by comnlas.
.
,~
.; .. ~ .
, ~ -130-, ."
10~ 4 I F. ..T~
SAMPLE ~ROG~.AM: 10 L~
20 RE~D X
30 IF X <=N THErl 6~
40 PRINT "X IS OVFR", N ---50 GO TO l00 --60 PP~INT "X IS LESS THAN OR EQUAl TO"; r~
Q~ ~TnP
GENER.~' FORM:
statemen1: number IF exPression relational op expression THEN statement nu~7ber PURPOSE
Transfers control to a specified statement: if a specified condition is true.
COI~MENTS
.
Sometimes described as a conditional transfer; "GO TO" is implied by IF...THEN, if the condition is true. In the example above, if X<=l~, the message in statement 60 is printed (statement 60 is executed).
Since numbers are not always repre ented exactly in the computer, the = oper-ator should be used carefully in I-...THEN statements. Limits, such as <=,>=, etc. should be used in an IF expre-sion, rather than =, whenever possible.
If the specified condition for tralsfer is not true, the program will continue executing in sequence. In the exanple ahove, if X~l~, the message in state-ment ~0 prints.
The relational operator is optional in logical evaluations.
See Section V, "Logical Operations," for a more complete description oflogical evaluatior,.
10~;64~
FOR...I~EXT
EXAMPLES~ FOR Pl = 1 TO 5 1 l e) FOP~ Ql = N TO X
12~ FOR R2 = N TO X STEP 2.5 130 FOR S = 1 TO X STEP Y
14~ NEXT S
15~ NEXT R2 160 NEXT Ql 17~ NEXT Pl ~ o ~ _~ _ _ _ _ _ _ ~ _ _ _ _ Sample Program - Variable Number Of Loorfi 40 PRINT "HOW MANY TIMES DO YOU WANT TO LOOP";
5~ I NPUT A
- - 6~ EO R J = 1 TO A
7~ PRINT "THIS IS LOOP"; J
8~ READ N1, N2 , N3 -- 9~ PRINT "THESE DATA ITEMS l~lERE READ:" N1; N2; N3 1,~0 PRINT "SUM ="; (Nl+N2+N3) NEXT J
120 DATA 5, 6, 7, 8, 9, 10, 11, 12 ~ 130 DATA 13, 14, 15, 16, 17, 18, 19, 2,0, 21 140 DATA 22, 23; 24, 25, 26, 27, 28, 29, 30 15~ DATA 31, 32, 33, 34 16~ END
~ GENERAL EORM:
- statement number FOR simple variable -- initial val_e TO ~inal value or ~---- statement no. FOR simple var. -- initial value TO final value STEP step value .
statement number NEXT slm~le variable ~OT~: The sam~ simple vàriable must be used in both ~1e F~R and N~XT state-; ments of a loop.
, -132-~0~6644 F O ~ r C O N~TI N U ~ D
PURPOSE
Allows controlled repetition of a group Gf statements within a program.
COI~'lEN TS
Initial valuet final value and step value may be any expression.
S~EP and step value are optional; if no step value is specified, the computer will automatically increment ~y one each time it executes the loop.
How the loop works The simple variable is assigned the value of the initial value; the value of the simple variable is increased by 1 (or by the step value) each time the loop executes. When the value of the simple variable passes the final value, control is transferred to the statement following the "NEXT" statement.
The initial, final, and step values are all evaluated upon entry to the loop and remain unchanged after entry. For example, FOR I = l TO I + 5 goes from l to 6; that is, the f;nal value does not "move" as I increases with each pass through th~ loop~
For further details on the STEP feature, see "FOR...NEXT with STEP" in Section III
Try running the sample program if you are not sure what happens when FOR.o.
NEXT loops are used in a program.
~, . .
10~6644 NESTiNG ~O~..NEXr LOOPS
.
Several FOR...NEXT loops may be used in the same program;
they may also be nested (placed inside one another). There are two important features of FOR...NEXT loops:
1. FOR.~.NEXT loops may be nested.
----1 0 FO R Al = 1 TO 5 Range of loop Al - ~20 ~OR B2 = N TO P
-3~ FOP~ C3 = X TO Y STEP R
Range of loop B2 ~ ~
Range of loop C3 ~ -8p NEXT C3 9,~ NEXT B2 - 1~0 NEXT Al 2. The range of FOR...NEXT loops may not overlap. The loops in the example above are nested correctly. This example shows improper nesting.
10 FO R I = 1 TO 5 .
~;
--30 tOR J = 1 TO N
; ~he r~nge of loops I and J overlap. ~50 NEXT I
.
- - 9~ NEXT J
' . . I I
--1 ~4-.
10~664~
~ ~, . .
~ ~A~, ~ATA AND R~:S 3 CRE
Sample Program using READ and DATA
l5 FOR I=l TO 5 4~ LET X=A~2 4~ PRINT Ai" SQUARED =";X
50 ~EXT I
55 DATA 5.24,6.75,30.8,72.65,89.72 6~ END
... 7~.. .. , ~ .. . . .. ...
.
" Each data item may be read only once in this progral~.
TSE keeps track of data ~lith a "pointer." ~Ihen the ~ first READ statement is encountered, the "pointer"
fndfcates that the ffrst item in the first DATA state-ment is to be read; the po;nter is then moved to the second item of data, and so on.
In this example, after the loop has executed five times, the pointer remains at the end of the data lis~.' To reread the data, it is necessary to reset the pointer. A RESTORE statement moves the pointer back to the first data item.
.
( ') .
..
10466~4 ~EAD, DATA AND RE~iT~RE, CONT~NVEl:) Sample Program Using READ, DATA and RESTORE
2~ FOR I=l TO 5 30 REA~ A
~2 40 LET X=A~2 5~ PR~l A; "SQUARED -",X
6~ NEXI I
80 RESTORE c 100 FOR J=l TO 5 11~ READ ~ - -120 LET Y=B~4 . 13~ PP~INT B; "T~ THE FOURTH POWER =";Y
~ 140 NEXT J
150 DATA 5.24,6.75,30.8,72.65,89.?2 GENERAL FO~:
stateme.~t number READ vari~bl~ , variable ,...
s~eement number DATA nun~er or string , number or string ,...
sta~ement number RESTORE
statement ~umber RESTORE sta~eme~t number PURPOSE
The READ statement instructs TSB to read an item from a ~ATA statement.
The DATA statement is used for specifying data in a program. The data is read in sequence from first to last DATA statements, and from left to right within the DATA statement.
~ The RESTORE state,llent resets the pointer to the first data item, allowing data to be re-read.
RESTORE follo~led by a statement number resets the pointer to the first data item, beginning at the specified statemen~.
. . .
. -136-. ~ ~ .--4664~
~EA~, ~)A~ A~iD R~:S~OF~E:, CGN I II~UE~) :~ .
CON~IENTS
READ statements require at least one DATA
Std tement in the same program.
Items in a DATA statement must be separated - by comnas. String and numeric data may ~e mixed.
. .
DATA statements may be placed anywhere in 2 program. ~he data items will be read in se-quence as required.
DATA statements do not execute; they merely specify data.
. ,,. ,~ .
The RUN command automatically sets the pointer to the first data item.
If you are not sure of the effects of READ, OATA, and RESTORE, try running the sample programs.
",~ :
rv,.;. ~i~ ?, ~ , r rrl ' r ~ ~; ~?:': ' r A;~
10~6 WAIT
EXAMPLE 9~0 WAIT (10~0) ~90 WAIT (3~0) GENER~L FORM: s~c:atement nur~ e~ _lAIT ~ ~xpres~ion max. value of 32767 ) ' PURPOSE
Introduces delays into a program. WAIT causes the program to wait the specified number of miiliseconds (maximum 32767 mitliseconds~ before continuing execution.
COMMENTS
The time delay produced by WAIT is not precisely the number of milliseconds specified because there is no provision to account for time elapsed during calculation or terminal-computer conmunlcatton.
One millisecond - l/lOOO second.
~'. , ~g ----~04664A
TE~M: ROU~INE
DEF~NED IN BASIC AS: A sequer,ce of program statements which produces a certain result.
~ ~s~"~
PURPOSE
Routines are used for frequently perforined operations, saving the programlner the work of defining an operation each time he uses it~ and saving computer memory space.
COM~ENIS
A routine may also be called a program, subroutine, or sub-program.
The task performed by a routine is defined by the programmer.
~' _ .- ~
~0~6644 T ~ S~ R I ~l G
DEFINED IN BASIC ~S: 0 to 255 printer characters enclosed by quotation marks (one line on a tele~rinter terminal).
COMMENTS
. , ~ -5 --Sample strings: "ANY CH~RACTERS'?*/~
"TEXT l234567,.."
Quotation nlarks may not be used within a string.
Strings are used only in PRINT statements.
The statement number PRINT, and quotation marks are not included in the 65 character count. Each statement may contain up to 72 characters. Maximu!n string length is 72 characters minus 6 characters for "PRINT", two for the quotation mar~s, and the num-ber of characters in the statement number.
TEI~M: FUNCT10~
~ ~..... ~..... .......
DEFTNED IN BASIC AS: The mathematical relationship between two variables (X and Y, for examp~e) such that for each value of X there is one and only one value of Y.
CO~lENTS
Thc independent variable in a function is called an argument;
the dependent variable is the function value. For instance, if X is the argunient, the function value is the square root of X, and Y takes the value of the function, -~
,' ~0'~664~
TER1~: A R ~\Y 0F~ ~lQTRlX
DEFINED IN BASIC AS: An ordered co11ection of nume1~ic data (nilmbers ) .
COM~ENTS
Arrays are divided into columns (vertica1) and rows (hcri~ontal):
C R~W.S
U
N
S
Arrays may have one or two dimensions. For example, ~ 3.2 C 4.3 is a one-dimensional array, while 6 , 5 , 4 3 , 2 , 1 is a two-dimensional array.
Array elements are referenced by their row and column Position For instanceJ if the two examples above were arrays A and Z
respectivel~, 2.1 would be A(2); similarly, ~ wou1d be Z(3,1).
The references to array elements are called subscripts, and set apart with parenthéses. For example, P(1,5) references the fifth element of the first ro~ of array P; 1 and 5 are the sub-scripts. In X~11,N) M and N are the subscripts.
' 10'~644 TE~M: WORl) , ~EFINED IN BASIC AS: The amount of computer memory space occupied by two teleprinter characters.
COMMENTS
Numbers require th'O words of memory space when stored as numbers.. When used within a string, numbers require 1/2 word of space per character in the number.
109~644 SUE~ROU~IN~S AND.l~INCTIONS
The follo~ing pages ex~l~in BASIC ,eatures useful for re-petitive operations -- subroutines, programlller-defined functions and standard func-tions.
The program~1ler-defined f~ature~, such as GOSUB, FOR...NEYl with STEP, and DEF FrJ become m~re useful as the user gains experience and learns to use them as shortcuts~
Standard mathematical and trigonolnetric functions are convenient timesavers for programmers at any level.
They are treated as numeric expressions by BASIC.
.
10~66~
FOR...NEXT WIT~I ST~P
EXAMF'LES: 20 FOR 15 = 1 TO 20 STEP 2 40 FOR N2 = 0 TO -10 STEP -2 80 FOR P = 1 TO N STEP X5 90 FOR X = N TO W STEP (N~2-V) .
GENERAL FORM:
statem~nt no. FOR simple var. = expression Tn exp~ession STEP expression PURPOS E
Allows the user to specify the size of the increment of the FOR variable.
COMMENTS
The step si~e need not be an integer. For instance, 100 FOR N = 1 TO 2 STEP .01 ~s a valid statement which produces approximately 100 loop executions, incrementing N by .Ol each time.
A step s;ze of 1 is assumed if STEP is omitted from a FOR statement.
A negative step size may be used, as shown in statement 40 above.
10~fi4~
GENERAL M~THEMATlCAl. FU~ICTIONS
EXAMPLES 642 PRI'lT EXP(N); ABS(N) 652 IF RND (0)~=.5 THEN 9 662 IF INT (R) # 5 THEN 91 ~72 PRINT SQR (X); LOG (X) GENERAL FORM: The general mathematical fur,ctions may be used as expressions, or as parts of an expression.
~ PURPOSE
Facilitates the use of common mathematical functions by pre-defining thern as:
ABS (expression) the absolute value of the expression;
EXP ~expression) the constant e raised to the power of the expression value (in statement 642 above, e~N) ( INT (expression) the largest integer < the e~pression;
LOG ~expression) the logarithm of the positively valued expression to the base e;
RND (expression) a random number between 1 and 0; the expression is a dummy arsumenti SQR (expression) the square root of the positively valued expression.
,, COMMENTS
: T~e RND function is restartablei the sequence of random numbers using RND
is identical each time a program is RUN.
,.~ . / _ ... . ..
10a~6644 TRIGO~IC)MET :~IC t~lJNCTION~
EXAMPLES: 500 PRINT SIN(X) COS(Y) 510 PRI~T 3*SI~,(e); TAI~I (C2) 520 ~RINr AT~l (22.3) 53~ IF SI~i (A2) <1 THEN 80~
5~0 IF SIN (B3) = 1 ArlD SI~!X) <1 THE~ ~0 PURPQSE
-Facilitates the use of comnon trigcnometric functions by -pre-defining them, as.
S~N (exp~ession) the sine of the express;on COS ~xp~ession) the cosine of the expressicn TAN (ex~ression) the tangent of the expression ATN (exPression) the arctangent of the expression COMMENtS
The function is of the value of the expression (the value in parentheses, also called the argument).
The trigonometric functions may be used as expressions or parts of an expression.
The angle o~ ~he trlgoIlometric functions can be specified as radians, degrees, or grads by exccuting a RAD, DEG~ or &RAD statementO The calculator assumes radians if no~
specified.
THE TAB AiYD SGN FUNC:T!ONS
EXAMPLES: 500 IF SGN (X) ~ 0 THEN 8~0 510 LET Y = SGrl(X) ~
52~ PRINT TAB (5); A2; tAB (2~)"1EXT"
530 PRINT TAB (N),X,Y,Z2 540 PRINT TAB (X+2) 'iHEADINIG''; R5 GENERAL FO~ The TA~ and SGN may be used as expressions, or p~rts of an expression. The function forms are:
T~5 ( expression indicating nurilber of spaces to be moved ) SGN ( expression ) PURPOSE
TAB (expression) ;S used only in a PRINT statement, and causes the terminal typeface to move to the space number specified by the expression (0 to 71). The expression value after TAB is rounded to the nearest integer. Expression values greater that 71 cause a return linefeed to be generated.
SGN (expression) returns a 1 if the expression is greater than 0, returns a 0 if the expression equals 0, returns a -1 if the expression is less than 0.
~0~664 SE:C~ION 1 M~ I ~ICES
This section explains matrix manipulation. It is intended to sho~ the matrix capabilities of BASIC and assurnes that the programnler has some knowledge of matrix theory.
TE~M: M~T~,X (A~RAY) DEFINED IN BASIC AS: An ordered collection of numeric data (nurnbers).
Matrix elements are referenced by subscripts following the matrix variable, indicating the ro~ and column of the ele-ment. For example, if matrix A is:
the element 5 is referenced by A(2,2); likewise, 8 is A(3,2).
I See Section XlI,"Vocabulary" for a more complete description of matrices ( . ! ~
,; .. ~ _~
' . ~ . .
10~66 Dlr~
EXAMPLES: 110 DIM A (5~), B(2~,2~) 120 DIM Z (5,2~) 130 DIM S (5,25) 140 DI~ R (~
GENERAL FORM:
st~temeAt n~mber DIM matrix variahle ( inteae~ ) or - statement number DIM m~trix variable ( in~eger , ~nteger ) PURPOSE
Reserves working space in memory for a matrix.
The maximum integer value (matrix bound) is 255.
.
COMMENTS
The integers refer to the number of matr;x elements if only one dimens;on ~s supplied, or to the number of rows and columns respec~ively, if two dimens;ons are given.
A matrix (array) variable is any single letter from A to Z.
Arrays not mentioned in a DIM statement are assumed to h~ve lO elements ~f one-dimensional, or lO rows and columns if two-dimensional.
The working size of a matrix may be smaller than its physicdl size. For example, an array declared 9 x 9 in a DIM statement may be used to store fewer than gl elenlents; the DIM statement supplies only an upper bound on the number of elen1ents.
The absolute makir,!u;n matrix size depends on the melnory size of the computer.
-149_ ' ~046644 MAT...;Z~
EXAMPLES: 305 ~lAT A = ZER
310 ,~lAl Z - ZER (N) 315 MAT ~ - ZER (3~
32~ MAI R = ZER (N, P) GENERAL ~ORM:
statcment number MAT matrix variable - ZER
. _ _ _ _ _ _ or stat~nent numb~r MAT matrix variabl~ -- 7ER ( expr~ssion ) or state~ent nu~ber ~4T matrix variable - ZE2 ~ expression , ex~r ssion ) PURPOSE
Sets all elements of the specified matrix equal to 0; a new working size may be established.
COMMENTS
The new working size in a MAT...ZER is an implicit DIM statement, and may not exceed the limit set by the ~IM statement on the total number of elements in,an array.
Since 0 has a logical value of "false,"
MAT...ZER is useful in logical initialization.
I
~0~66 M ~T.. .C0 N
~,~.. , ,.,,~, . -~r~T~ ~ ~
EXAMPLES: 205 MAT C = CON
210 MAT A = CON (N,N) 220 MAT Z = CON (5,20) 230 MAT Y = CON (5~) GENERAL FORM:
stateme~t ~umber MAT matrix variable _ CON
~ ~ or statement number MAT matrix variable _ CON ( expression ) or statem~nt numher MAT matrix variab~ = CON ( expressio~ , eYpr~sion ) _ _ _ _ . _ _ _ PURPOSE
Sets up a matrix with all elements equal to 1, a new working size may be specified, wl~hin the limits of the original DIM statement on the total number of elements.
~ COMMENTS
The new working size (an implicit DIM statement) may be omitted as in example statement 205.
Note that since 1 has a logical value of "true,"
the MAT...CON statement is useful for logical initialization.
The expressions in new size specifications should evaluate to integers. Non-integers are rounded to the nearest integer value.
' ~0~669~
P~INTIl~G Sll~!GL~ MATRIX ELEr~'i'EN~S
... ... .~ .
EXAMPLES: 8~0 PRINT A(3) 81~ PRINT A(3,3);
820 PRI,~T F(X) jE; C5;R(N) 83~ PRINT G(X,Y) 840 PRINT Z(X,Y), Z(1,5), Z(X~), Z(Y~
GENERAL EORM:
statement number PRINT matrix variable ( expressi~n ) ...
_ _ _ _ _ _ _ or statement number PRINT matrix varic~ble ( expression , expression ) ...
PURPDSE
.
Causes the spec;fied matrix element(s) to be printed.
COMMENTS
Expressions used as subscripts should evaluate to integers. Non-intégers are rounded to the nearest ;nteger value.
, A trailing semicolon packs output into twelve elements per teleprinter line, if possible (statement 810 above). A trailing comma or retu~n prints five elements per line.
Expressions (or subscripts) following the matrix variable designate the row and column of the matrix element. Do not confuse these with new working size specifications, such as those following a MAT ~~
IDN statement.
10'~6~i44 t INPU-~rrlNG 5EI'~'~;LE ~.91~TRIA ELE~ NTS
EXAMPLES: 6~ INPUT A(5) 610 I~lPUT e(5,s) 620 INPUT R(X), N, A(3,3),S,T
630 INPUT Z(X,Y), P3, '~I
64~ INPUT Z(X,Y), ~(Xll, Y+l), ~Xt-R3, YTS2) GENERAL FORM:
stat~rnent nurnber I-l-p-ul ma_ri.x_variahle ( ex~r~s~c~n or statement number INPUT ~ tri~ variab.le 1 e~pre~sslon, ~xp.r~ssion 1 ...
, PURPOSE
Allows input of a specified matrix element from the ~c~bo~rd, COI~ ENTS
- The subscripts (in expressions) used after the matrix variable designate the row and column of the matrix ~ element. Do not confuse these expressions with work-tng size specifications, such as those following a AT READ statement..
Expression used as subscripts should eva1uate to integers. Non-integers are rounded to the nearest integer value.
Inputting, printing, and reading indi\~idual array elements are logically equivalent to simple vari-ables and may be intermixed in INPUT, PRINT, and READ StatelnentS.
MAT PRINT
PURPOSE
Causes an entire matrix to be printed, row by row, with double spacing between rows.
COMMENTS
Matrices may be printed in "packed"
rows up to 12 elements wide by using the ";" separatos, as in example statement 5~5.
10~6~Gi44 READING ~i~TRIX ELE~ 5TS
EXAMPLES: 9~0 READ A(6) 91~ REA~ A(9,g) 920 READ C(X); P; R7 93~ READ C(X,Y~
940 READ Z(X,Y), P(R2, S5), X(4) GENERAL FOP~M~
statem~nt nun~er READ n1atrix variable ( expression or statem~!nt rlumber READ ma~:rix variable 1 expression, cxpre~,sion ) ...
PURPOSE
Causes the specified matrix element to be read from the current DATA statement.
COMMENTS
~xpressions (used as subscr;pts) should e~aluate to integers. Non-int~gers are rounded to the nearest integer.
Expressions following the matrix variable designate the row and cc1umn of the matrix element. Do not confuse these with working size specifications, such as those following MAT READ statement.
The MAT READ statement is used .to read an ent;re matrix from DATA statements. See details in this section.
~0~66~4 1'~1RT RER9 . ~ EXAMPLES: 350 MAl READ A
370 MAT READ B(5',C,D
38~ MAT READ Z (5,8) 39a t~,AT READ l~ (P3,Q~) GENERAL FORM:
statcment numl~er ,~AT READ matr.ix variable ~ or statem~nt nu~r MAT READ matrix variable ( expression ) ...
or statement num~er MAT READ matrix variab~e ( ~xpressio~ , e~pression ) ...
PURPOSE
Reads an entire matrix from DATA statements.
A new working size may be specified, within the limits of the original DIM statement.
COMMENTS
MAT READ causes the entire matri~ to be filled ; from the current DATA staten1ent in the row, , column order: 1,1; 1,2; 1,3; etc. In this ~ case, the DIM statement controls the number of elements read.
10~ 6~91 MATR3~ h.D~lT5C~N
EXAMPLES: 310 MAT C = R + A
32~ MAT X = X + Y
330 MAT P = ~ + M
GENERAL FORM:
statement number MAT matrix variahle - matrix varia*le + matrix variable PURPQSE
Establishes a matrix equal to the sum of two matrices of identical dimensions; addition is performed element-by-element.
COMMENTS .
....
~ The resu~ting matrix must be previously ment;oned in a DIM statement if it has more than lO elements, or lO x lO ele-ments if two-dimensional. Dimensions must be the same as the operand matrices.
The san~ matrix may appear on both sides of the = sign, as in example statement 32~.
104~6~
MQTR3X SllÇ3~RAC-l~lCN
EXAMPLES: 550 MAT C = h - B
560 MAl B = B - Z
570 MAT X - X.- A
GENERAL FORM:
stat~nent nwl~er MAT mat~ix var_kle - mat~ix va~ le - matri.Y varlable PURPOSE
Establishes a matrix equal to the difference of two matrices of identical dimensions; sub-traction is perforlned element-t)~-ele,llent.
' CO~lMENTS
The resulting matrix must be previous1y tnentioned in a DIM statement if it has more t;lan lO elements, or IO x lO e1ements if two-dimensiona1. Its dimension n'ust be the same as the operand matrices.
The same matrix may appear on both sides of the = siqn, as in examp1e statement 560.
-158-.
~04~644 A-r R I Y~ M ~J LTI PL~ CATI O N
EXAMPLES: 93~ ~lAT Z = B * C
940 MAT X = A *h 950 ~IAT C - Z * B
GENERAL FORM:
statement number MAT matrix variable ~ mat~ix variable * matrix va~iable PURPOSE
Establishes a matrix equal to the product of the two specified matrices.
COMMENTS
Follow;ng the rules of matrix multiplication, if the dimensions of matrix B = ~P,N) and ma-trix C - (N,Q), multiplying matrix B by matrix C results in a matrix of dimensions ~P,Q).
Note that the product matrix must have an appropriate working size.
The same matrix varlable may not appear on both sides of the = sign.
--159 _ , , , 10~6644 SC~ R 1~LTIPLIC/~ rlOI~I
EXAMPLES: 110 MA~ A = (5) * B
115 MAT C = ~1~) * C
12~ I~AT C (N/3) * X
130 M~T P = (Q7*N5) * R
GENERAL FORM:
stat~ment nurnb~r MAT matrix variable - ( ~xpression ) * matrix va~iable PURPOSE
.- Establishes a matrix equal to the pro-~ duct of a matrix multiplied by a speci-fied expression (number); that is, each element of the original matrix is multi-plied by the number.
COMMENTS
The resulting matrix must be previously mentioned in a DIM statement if it con-tains more than 10 elements ( 10 x 10 if two-dimensional).
The same matrix variable may appear on both sides of the = sign.
.
Both matrices must have the same working size.
10~644 COPYING 1~ M~TRIX
EXAMPLES: 405 MAT B 'A A
41~ MAT X = Y
420 MAT Z = B
GENERAL FORM:
statement ~lumber MAT matrix variabl~ = matrix variable PURPOSE
--Copies a specified matrix into a matrix of the same dirnensions;
copying is performed element-by-element.
COMMENTS
The resulting matrix must be previously mentioned in a DIM statement if it has more than 10 elements, or 10 x 10 if two-dimens;onal. It must have the same di-mensions as the copied matrix.
. , ~ . ~ , .
..
.
., ~
.:
10~bi644 NT~TY MAT~IX
EXAMPLES: 205 MAr A = IDN
210 MAT B - IDN (3,3) 215 I~T Z = IDN (Q5, Q5) 220 MAT S = IDN (6, 6) GENERAL FORM:
s~atement numher MAT arrav variable - IDN
~r stateme~lt number MAT _ r~y ~ariable - IDN ( x~res.sion , e~pression ) ~ PURPOSE
Establishes an identity matrix (all 0's, with a diagonal from left to right of all l's); a new workin~ size may be specified.
(, COMMENTS
The IDN matrix must be two-dimensional ana square.
Specifying a new working size has the effect of a DIM statement.
Sample identity matrix: l 0 0 ~ 1 0 ~04~;644 RI~ T~A~YSPOSITION
EXAMPLES: 959 MAT Z - TR~ (A) 969 MhT X = TRN (B) G79 MAT Z = TRN (C) GENERAL FORM:
stat~ nt numb~r MAT mat:rix variahle ~ TRN ( matrix variable ) __ _ _ __ PURPOSE
Establishes a matrix as the transposition of . ~
a specified matrix (transposes rows and columns).
. COMMENTS
, Sample transposition:
Original Transposed l 2 3 l 4 7 Note that the dimensions of the resulting matr;x must be the reverse of the original matrix. For instance, if A has dimensions of 6,5 and MAT C =
TRN (A), C must have dimensions of 5,6.
Matrices cannot be transposed or inverted into themselvesO
104~644 M/~T~5~ IN~'~RSIO~Y
EXAMPLES: 38~ MAT A = INV(B) 390 MAT C = INV (A) 400 M~T Z = INV (Z) G ENERAL FORM:
statem~nt number MAT matrix varic~ble ~ INV ( mat:rix varia~le PU RP OS E
Establishes a square matrix as the inverse of the specified square matrix of the same dimensions.
COMMENTS
The inverse is the matrix by ~hich you multiply the original matrix to obtain an identity matrix.
For example, Original Inverse Indentity /1 0 O~ /1 0 O~ ~1 0 O~
I " ol x 1-~ ~ ~J = (~ ~ ~~
\l 1 1/ \0-1 1/ \o o 1/
-Number representation in BASIC is accurate to 6 7 decimal digits; matrix elements are rounded accordingly.
10~644 S~'llO~
LOGIC~L O~ ATION5 LOGIGAL VALUES A~D NUMERIC VALUES
A distinction should be made between logical values and the numeric values produced by logical evaluation, when using the logical capability of BASIC.
......
The logical value of an expression is determined by defi-- nitions established in the user's pro~ram. - -The numeric values produced by logical evaluation are as-signed by BASIC. The user may not assign these values.
~ogical value is the value of an expression or statement, u5in9 the criteria.
( any nonzerc expression value = "true"
any expression value of zero = "false"
When an expression or statement is logically evaluated, it is assigned one of two numeric values, either:
19 meaning the expression or statement is "true", or meaning the expression or statement is "false".
10~;644 I~EL~TIO~ .L OPEF~ATO~S
,.
There are two ~lays to use the rel2tional operators in logical evalua-tlons:
l. As a simple check on the numeric value of an expression.
EXAMPLES: l50 IF B=7 THEN 6~
2~0 IF A9~27.65 THEN 700 300 IF (Z/l0),~ THEN 80~
When a statement is evaluated, if the "IF" condition is currently true~(for example, B - 7 in statement 150)l then control is trans-ferred to the spec;fied statement; if it is not true, contro~ passes to the next statement in the program.
Note that the numeric value produced by the logical evaluation is un-important when the relational operators are used in this way. The user is concerned only w;th the presence or absence of the conditon indicated in the IF statement.
RELATIONQL OPEF~/~TOR~, col~l ri 2. As a check on the numeric value produced by logically evaluating an expression, that is: "true" = 1, "false" = 0.
EXAMPLES 610 LET X=27 615 PRI~T X=27 620 PRINT X~27 630 PRINT X>=27 , The example PRINT statements give the numeric values produced by logi-cal evaluation. For instance, statement 615 is ir,terpreted by BASIC
as "Print 1 if X equals 27, 0 if X does not equal 27." There are only two logical alternatives; 1 is used to represent "true," and 0 "false."
.
'- The numeric value of the logical evaluation is dependent on, but dis-tinct from, the value of- the expression. In the example above, X equals 27S but the numeric value of the logical expression X=27 is 1 since it describes a "true" condition.
,.
167- .
._ There are two ways to use the Boolean Operators.
1. As logical checks on the value of an expression or expressions.
EXAMPLES: 510 IF A1 OR B THEN 670 54~ IF X THE~ 7~p ~ , . . ..
Statement 510 is interpreted: "If either Al is true (has a non-zero value) or B is true (has a non-zero value), then transfer control to statement 67~
Similarly, statenlent 540 is interpreted: "If X is true (has a non-zero value),then transfer control to statement 700."
The Boolean operators evaluate expressions for the;r logical values only: these arc "true" = any non-zero value, "false" - zero. For example, if B3 ~ 9 and C9 = -~, statement 52~ would evalua~e to "true," since both B3 and C9 have a non-zero value.
2. As a check on the numeric value produced by logically evaluating an expres-sion, that is: "true" - 1, "false" = 0.
EXAMPLES: 4g~ LET B ~ C - 7 5~ PRINT B AND C
520 PR~NT NOT B
Staten~ents 500 - 52~ return a numeric value of either 1, indicating that the statement has a logical value of "true", or 0, indicating a logical value of "false".
~ote that the cr;teria for determining the log;cal values are:
true = any non-zero expression value false = an expression value of 0. ~
The numeric value 1 or 0 is assigned accordingly. . ~' lO ~ ;4~
SEC~ION Vl SYF~TA)~ ~EQUI~ NTS I~F B~SIC
.. r LEGEND
::= "is defined as..."
¦ "or"
< > enclose an element of BAS~C
LANGUAGE RULES
lo The <com statement>, if any exists, must be the first statement presented and have the lowest sequence number; the last state-ment must be an ~END statement~.
( 2. A sequence number may not exceed 9999 and must be non-zero.
3. Exponent integers may not have more than tl~o digits.
4. A formal bound may not exceed 255 and must be non-zero.
5. A subroutine number must lie between l and 63, inclusive.
.
6. Strings may not contain the quote character (").
7. A <bound part> for an IDN must be doubly subscripted.
8, An array may not be inverted or transposed into itself.
An array may not be replaced by itself multiplied by another array.
( 10~;44 SYNTAX R ~Q U I R E r~s ~ N TS
(l) <basic progra~ <program statement>¦<basic program><program statement> ~, <program staten~nt~ ::= <sequence number><basic statement>carriage return <sequence number> ::= <integer>
<basic statement> ::= <let statement>¦<dim statement>¦<com statement>
" ' <def statement~l<rem statement>l<go to statemen~>
'' <if statement>l<for statement>l<next statement>
<gosub statement>¦<return statement>l<end statement>¦
<stop statement> <wait statement> <call statement>l ~data statement> <read statenlent~ <restore statement>¦
<input statement: ~I<print statemen,>l<mat statement>
~let statement> ~ let head><formula>
~let head> .:= LET<variable>=¦<let head><variable>=
<formula> ~:= <conjunction~¦<formula>OR<conjunction~
cconiunction> .:- <boolean primary>¦<conjunction>AND<boolean primary>
~boolean primary> ~ arithmetic expression>¦~boolean primary>
~relational operat~r><arithmetic expression>
! <arithmetic expression> := <term>¦<arithmetic expression> + <term>¦
arithmetic expression> - <term>
<termP o:- ~factor>l<term~*<factor>l<term>/<factor>
<factor> ~ ~primary>¦<sign><primary>¦NOT<primary>
<prim~ry~ operand~¦<primary>~<operand>
<relational operator> ~ <=1-1#1~>
coperand> ~:- <variable>¦<unsigned number>¦<system function>¦
~function>l<formula operand>
<variahle> o:- <simple variable>¦<subscripted variable>
<sim~le variable~ ::= <letter>¦<letter><digit>
<subscripted variable> ::= <array identifier><subscript head><subscript>
<right bracket>
. . <array identifier> ::= ~letter>
~ <subscript head> ~:- <left bracket>¦<left bracket><subscript>
~subscript> .:= ~formula>
<letter> ' :- A¦B¦C¦D¦~¦F¦G¦H¦I¦J¦K¦L¦M¦N¦O¦P¦Q¦R¦S¦T¦U¦V¦~¦X¦Y¦Z~digit> o.= 0¦112¦3¦4¦516¦718¦9 <left bracket> ~:= (I[
~right bracket~ 1]
<sign>
<ulsigned number, ~ = <decimal part>¦<decimal part><exponent>
, J
~0'~66~4 ~ . .
SYNT~.X REQUIF'EMENTS, CONTlNUE~;n .: ..... .
' ,... - f ,.
.-. - .-- cdecimal part> ::= <integer>l<integc~>.~integer>l.<integ~r~ -~- : <integer~ ::= <digit>¦~integer><digit~
<exponent< ::= E~integer>¦E<sign><integer,~3) ;~
<system function> ::= <system function name~par2meterpart~
cSyStem function name> ::= SIN¦COS¦TAN¦ATN¦EXP¦LOGIABSlSQRlINTlRNDlSGN
<parameter part~ s <left bracket><actual parameter>~right bracket~
<actual parameter> ::= <formula~
~function~ ::= FN<letter~<parameter part>
formula operand> ::= cleft bracket><formula><right bracket>
<dim statement~ ::= DIM~formal arra~ list>
<formal array list> ::= <formal array>l~formal array list~,<formal array>
cformal array> ::= <array identifier><formal bound head~<formal bound~
<right bracket>
cformal bound head> ::= <left bracket>¦<left bracket><formal bound>, <formal bound> ::= <integer> ~4) <com statement> ::= COM~formal array list~
.- <def statement> ::= DEF FNcletter><left brac~et><formal paranleter>
<right bracket>=cformula>
cformal Darameter> ' :-= <sim.nle Y2ri.2ble?
crem stateMent> ::= REM<character string>
<character string> ::= any teletype character except carriage return, alt mode, escape, rubout, or line feed, or null, control B, control C, left arro~
<goto statement> ::= GO TO<sequence number>
cjf statement> ::= IF<formula>THEN<sequence number>
<for statement> ::= ~for head>¦<for head>STEP<step size>
~ <for head> ::= FOR<for variable>=<initial value>TO<limit value>
<for variable> ::= <simple variable>
<initial value> ::= <formula>
<limit value> ::= <formula>
<step size> ::= <formula>
<next statement> ::= NEXT<for variable>
C9osub statement ::= GOSU8<sequence number>
<return statement> ::= RETURN
<end statement> ::= END
( <stop statemcnt~ ::= STOP
~0~6~
SYNTAX F~EQU I R~M ENTS, CONTINUED
~ait statement~ ::= WAIT<parameter part~
<call statement~ ::= CALL<call head~<right bracket>
~call head~ ::= <left bracket><subroutine number~l<call head>, <actual parameter>
~subroutine number> ::= <integer>(5) <data statement~ ::= DATA<constant>¦<data statement~,<constant~
<constant~ ::-. <unsigned number~¦<sign>~unsigned number>
<read statement> ::= READ<variable list~
<variable list> :::= <variable>¦~variable list>, <variable>
<restore statement> ::= RESTORE
<input statement> ::= INPUT<variable list~ -<print statement> ::= <print head>¦<print head><print formula>
<print head~ ::= PRINT¦<print head><print part>
<print part> ::= <string>¦<string~<delinliter>¦<print formula>
<delimiter>l<print formula><string>
<print formula~<string><delimiter>
<string~ ::= "<character string>"(6) <delimiter> ::= ,1, <print formula~ ::= <formula>¦TAB<parameter part>
<mat statement~ ::= MAT<mat body>
<mat body> ::= <mat read>¦<mat print>¦<mat replacement>
<mat read> ::= READ<actual array>¦<mat read>, <actual array~
<actual array> ::= <array identifier~¦<array identifier><bound part>
<bound part~ ::= <actual bound head><actual bound><right bracket~
<actual bound head> ::= <left bracket~¦<left bracket><actual bound~, cactual bound~ ::= <forn,ula~
<mat print> ::= PRINT<mat print part>¦PRINT<mat print part><delimiter~
mat print part~ ::= <array identifier~¦<mat print part><delimiter~
<array identifier>
~mat replacement> ::= <array identifier>=<mat formula~
~mat formula> ::= <array identifier>¦<mat function>¦<array identifier>
<mat operator><array identifier>l<formula operand~*
<erray identifier~
I
~.. . . . ..
104664 !/~
SY~ i A~ F; E~2UI ~l~M ~N~ , CON ~INUED
<mat funct;on~ ::= <mat initialization> <mat initialization>cbound part~¦
INV<array parameter> TRN<array parameter>
<mat initialization> = ZERlcoNlIDN(7) <array parameter~ ::= <left bracket~array identifier><right bracket>(8) <mat operator> . = +I-I*
, . .
, . _ ~046644 STRINGS PLUG-IN READ-ONLY MEMORY MODULE
The strings plug-in read-only memory module makes available t~ the user all of the string variables functions and operations associates with standard BASIC programming language. Two additional functions not usually provided in most versions of BASIC language have been implemented.
These include a POS function for determing the position of a substring within a string and a VAL function for deter-mining the position of a substring within a string and a VAL function for determining the numeric value of a string.
A discussion of these and other string functions and op-erations follows.
String "- ~ A set of 1 to 255 characters or the null string (no -- characters).
e.g. "ABCDEF"
"12345"
.. ..
String Variable A variable used to store strings; consists of a single letter (A to Z) followed by a $.
e.g. A$; B$; Z$
Substring Variable A single character or a set of contiguous characters from within a string variable. The substring is defined by a subccripted string variable. A single subscript specifies the first character of the substring and implies that all characters following are part of the substring. Two subscripts specify the first and last characters of the substring.
e.g. A$ = "ABCDEF"
A$(4) = DEF
A$(1,3) = ABC
DIM Statement General Form:
stmt # DIM string var ( #chars in string ) Purpose:
Reserves storage space for strings longer than 1 character.
~046644 Comments:
The number of characters specified for a string in its DIM statement must be expressed as an integer form 1 to 255.
Strings not mentioned in a ~IM statement are assumed to have length 1. The length mentioned in the DI~ statement specifies the maximum number of characters which may be assigned and is known as the physical length. The actual length is the actual number of characters which has been assigned.
e.g. DIM A$(1~), B(5,5), B$(25S) Source String Semantic Description A source string is an entity from which a string value is extracted. If no substring designator is specified for a string variable, the value of the source string is the entire logical string curretnly assigned to it. Substring designator expressions must be at least 1 in value and the second may be no smaller than one less than the first. If one subscript is given, the value is the entire logical string beginning at the character specified by the subscript. The subscript may be no larger than the actual length of the string plus 1. I~ two substring expressions are given, the source string value is the substring whose first and last characters are designated. If the specified substring extends beyond the logical length o~ the string, spaces are used to fill out the substring.
Assignment Statement General Form:
line # [LET] destination string = source string Destination String:
A destlnation string is an entire string variable or part of a string variable into which a source string is to be copied. ~he definition of the action depends on the number of substring subscripts specified in the destination string.
If no subscript qualifier is specified, the entire de~tination variable is replaced by the source string. The physlcal length of the destination string must be large enough to accommodate the entire source string.
If one substring subscript is specified, the entire value of the destination variable, beginning at the designated charact-r, i8 replàced by the source string. That part of the sCriPt Value must be nO mor Suhscript value is Unchan d actual length of the destination variable.
u b s r l p t m u s t b e n o m o r e t h n o n ~ g r e t e r t h a n t h e 1 o g i c a l .~
must be no greater than the physical length of the destinationvariable. The specified section of the destination string is replaced by the source string. If the source string is longer than the destination, it is truncated on the right. If the source string is shorter, as many trailing blanks are appended as necessary. The new actual length of the destination string is the larger of the old actual length and the second subscript.
String Input Statement General Form:
stmt # INPUT string or substring variable Purpose:
Allows string values to be entered from the keyboard.
Comments:
Numeric variables may be used in the same input statement as string variables. Placing a single string variable in an input t' ~;
statement allows the string value to be entered without en~
closing it in quotation marks. If multiple string variables are ;--used each string value must be enclosed in quotation marks, and the values separated by commas. ~ ~-' . -'; '~
e.g. 10 INPUT A$, B$, C, A1, A$(1,5) ;~
String Print Statement General Form: - ~-stmt # PRINT string or substring variable, --Purpose:
Causes the current value of the specified string orsubstri~g variable to be output on the standard output device.
Comments:
Strings and numeric values may be mixed in a print statement.
8telng var1ables are specified identically to numeric variables, They are prlnted under the same format rules as quote fields string and substring variables are printed as source strings A maxlmum of 72 characters can be printed using the pti7n2t statement, i.e., all strings ~72 characters are truncated ~ ' lO~j6~ ~
String Read Statemell-t General Form stmt # READ strillg or substring variable Purpose:
Causes the value of a specified striIlg cr substring variable to be read from a data statement.
Comments:
Mixed string and numeric values may be read~ If the wrong data type is given in the data sta~ement an error is given.
e.g. lO READ A, B$(1,1~), C$, B
String If Statement General Form:
stmt X IF str.~ar. rel.oper string THEN stmt #
Purpose:
Compares two strings. If the specified condition is true, control is transferred to the specified statement.
Comments:
Strings are compared one character at a time, from le4t to rlght; the first di~ference determines the relation. If one string ends before a difference is found, the shortest string is considered the smaller one.
Characters are compared by their ASCII representations.
The relational operators allowed are~ , <, >, <=, >-, O
e.g. 10 IF A$ - ~SA~ THFN 20 Strin~ Data Statement General Form:
stmt ~ DA~A ~'strilg t~xt", "string text", --,.
i ~()46644 Purpose:
Specifies data in a program (string or/and numeric) Comments:
String values must be enclosed by quotation marks and separated by commas.
Steing and numeric values may be mixed in a single data statement.
e.g. 10 DATA "ABC", 1.2, "DEF"
String Write Statement ~~~
General Form:
stmt # WRITE ( device # , format stat #
string or substring variable Purpose:
Similar to the print statement but allows the specifi-cation of the output device and format statement. No field specifications are made for string variables in the format statement. They are treated identically to string constants (quote .fields).
String Display Statement General Form:
stmt # DISP string or substring variable Purpose:
Identical to print statement except output device is 32 character display.
LEN Function General Form:
LEN stringor LEN (string) Purpose:
Obtain the length of a string for use in an arithmetic ' -178- - ~
.:
10 ~6644 Comment:
The actual letlgtil is found ~tliC~l is not necessari]y the same as the physical length reserved in the DI~I statcment.
e.g, LE~ (r~ABCD") = 4 POS Function General Form:
POS string , string or POS ( strin~ ~ string ) Purpose:
Determine the position of a substring ~Yithin a string, Comments:
If the second string argument is a part of the first, the value of the function is the position in thc- first string at which the second string starts. If the second string in the argument is not a part of the first, the value of the func-tion is zero.
e.g. POS (~ABCD~' , "C") = 3 VAL Function General Form:
VAL string or VAL ( string ) Purpose:
Determine the numeric value of a string~
~~ Comments:
The VAL functi.on converts a strin~ of di~its into a number, The string is converted into a number by the same rules used in a numeric input statement, e,g. VAL ("123") = 123 _1 79 _ .
::
., . ~.. . t lV46644 ERROR ~ESSAGES FOR STRING OPTION BLOCR
70 - string IF error 71 - string function syntax error 72 - negative string length 73 - non-contiguous string ~74 - string overflow 75 - data is of wrong type 76 - VAL function argument not numeric BNF SYNTAX DESCRIPTION
<literal string~ ::="<character strinq>"
~character string~ ::=<character~¦~character string>
~character~
~character> ::= any ASCII character except NULL, LINE FEED, RETURN
<letter> ::= A¦B¦ ~-- X¦Y¦Z
~sublist) =<expression>¦<expression~,<expression>
<string variable> ::=~simple string variable>~
Csimple string variable>(<sublist>) <simple string variable> ::=<letter~$
~relational operator~ ::=C~ #~
~assignment statement> ::=LET~destination string~=<source strin~
T ~destination string~=~source string>
<destingation string> ::=~string variable>
~source string~ string variable>~literal string~
CIF statement~ IF~destination string>~relational operator~ ~source string>THEN~line number>
~data statement> ::=DATA<constant>l~data statement~, <constant>
~conqtant> ::=~numeric constant>¦<literal string>
~read statement~ ::=REA~<variable list>
~variable list> ::<read variable>l~variable list~, ~read variable~
~read variable> ::=~numeric variable> ¦~string variable>
<input statement> ::=INPUT~variable list~
<print statement> ~ print ~>¦ ~print 2>
<print 1~ ::=printl<print 2>,j<print 2>;~<print 3>
:
~6644 ~print 2~ print 1><~rint expression~¦
Cprint 3 ~rint 3> ::=(type statement><literal string~
<print expression> =~expression>¦<source string>
WRITE and DISP statements have the same syntax as the PRINT
statement.
~LEN function> ::=LEN~source string>¦LEN(~source string>) <VAL function> ::=VAL~source strin~jVAL(~source string>) <POS function~ ::=POS<source string~,<soUrce string>l POS(~source string~,~sc,urce string>) '~ '.
r -, - -10~66~
EXTENDED INPUT/OUTPUT PLUG-IN READ-ONLY MEMORY MODULE
The extended I/O read-only memory module (hereinafter referred to as the extended I/O ROM) provides additional functions and statements so that the calculator can be made compatible with a wide variety of peripheral devices. Added functlons include decimal-to-binary and octal-to-decimal conversion, status code inquiry for peripheral ~evices, control of spacing and line feeds in output records, and - others Use of these functions requires no special programming techniques; once the ROM is plugged in, its functions and statements become a part of the calculator, in the same way as, for example, the square root function is part of the calculator.
Some read-only memory units decrease the amount of programmable memory available to the user by automatically requiring a portion of that memory for their own internal usage, but the extended I/O ROM has no such requirement and does not affect memory availability.
The following table describes the extended I/O ROM
functions and statements Parameters shown underlined in the table are explained immediately following the table.
Parameters shown in brackets may or may not be included as parts of a statement.
\
10~i6~
- - .
.
~~ FUh'CTION ~E~IONIC DESCRIPTION OF FUNCTION SYNTAX
BIN Converts declmal expression to its binary BIN exp . equlvalent. For use ln output-to-blnary stora~e device; also provides increased control of print format.
OCT Converts octal expression to decimal OCT exp equivalent. For use in construction of I code conversion tables; see "Conversion Tables".
~TAT Returns code of operational status (on, STAT select code off, wait, etc.) for the device specified by the select code.
CHAR Returns one byte of data from the device CHAR select code specified by the select code regardless oi the data structure.
L'~' Advance~ printer or tyPewriter the number LIN exp of lllles represented by the expression.
SPA Advances printer or typewriter carriage SPA ex~
the number of spaces represcnted by the expresslon.
ROT Converts expression 1 to binary equiva- ROT(exp l,exp 2) ; lent; performs rotation right the number of positions represented by expresslon 2; returns decimal equivalent. For use ' ln special input or output code trans---- latlon, INOR Comblnes binary equivalents of expres- INOR(exp l,exp 2) sion 1 and expression 2 in an "inclusive or" lo~lc operation. Returns decimal equivalent. For use ln special input or output code translation.
-184_ 10~;644 -_ .L 1 . ' ' .
- ~ FUNCTION b~EUONIC DESCRIPTION OF FUNCTION SYNTAX
: : BIAND . Combines binary equivalents of expression BIAND(exp 1, exp 2) 1 and expression 2 in an "and" logic operation Returns decimnl equivalent For use in special input or output trans-lation.
STATEb~NT SYNTAX ¦ DESCRIPTION OF STATE.~NT
ENTER (select code or string name, format~,conversion table~) list r. FOR function¦ ~
--L J
Inputs data from named device or string with optional -~
conversion to ASCII code; includes capability for iteration.
OUTPUT (select code or string name, format [, conversion table~ ) list Outputs data to named device or string with optional conversion to ASCII code, -10 ~;44 :: PARA~TER EXPLANATION
exp Expression - selcct code A numcric code, from 1 to 15, uniquely representing the input or output device, as follows:
select code 1-9 User assignable.
select code 10 Cassette Memory.
- - select code 11-13 reserved.
select code 14 Plotter.
select code 15 Typewriter or Printer, string name A single letter followed by a "$". Valid only when String RO~I is also plugged ln. -~
format To reference a FORh~T statement, the line number of that .. ~..
statement is shown; for free-form data, an asterisk ($~
is shown.
conversion table The variable or array name given to a conversion tahle See heading "Conversion Tables".
list A list of variables, literals, expressions or numerics separated by commas FOR functions To input multiple data items from one record into an array, Syntax as follows:
(FOR var 1 exp TO exp, [(FOR var 2- exp TO exp,] name(var l[,var 2~ )[)] ) 10~
CONVERSION TABLES
Using a pre-established conversion table, a string of characters or an array of data can be converted from one code to another. The calculator makes use of standard ASCII~ codes.
Let us refer to all non-ASCII representation codes used by printers, card readers, paper tape readers, punches, type-writers, etc. as "foreign codes."
A conversion table is defined in the BASIC language program DIM statement. Only single-dimensioned integer arrays are considered valid for use as conversion tables. In the following DIM statements, A and B are valid array structures for conversion tables, but C, D, and E are not.
DIM AI (150), CI(20, 30) DIM BI ( 80), D(200), E(15, 15) In order to insert conversion table information in the array, the foreign code must first be ~own Suppose your paper tape reader uses EIA** coded tape. The chart following shows symbols and the equivalent tape punches for EIA code, with the octal code equivalent for each symbol.
* Amerlcan Standard Code for Information Interchange.
** Electronic Industries Association Standard Code.
~0~66~4 - 188-STANDARD TAPE
cHANriEL AIUMBERS E I A
a 7 6 5 4 '~ 3 2 1 (2ERO) 0 ) 040 ~ 1 ~ 001 ~ 2 - @ 002 3 - i 023 ~ ~ 4--S 004 ~ ~ ~ S - / 025 6 - ~ 026 ~ 7 - 6 007 ~ ~ 8 - ~ 010 ~ ~ . ~ 9 - ( 031 a --A 141 - ~ ~ ~ ~ b --13 142 ~ c - C 163 ~ , d - D 144 ~ ~ ~ ~ ~ ~ e - E 165 f --F 166 O ~ <~ --G 147 ~ ~ ~ ~ h --H 150 ~ - - - - ~ i --I 171 ~ ~ ' ~ i --J 121 ~ ~ . ~ Ic --it 122 ~ ~ ~ O1 - 1, 103 S ~ ~ ~ m --M 124 ~ ~ - ~n --N 105 ~ ~ o o ~ - O 106 p--P 127 ~ ~ Q ~ ~ - Q 130 r - R 111 5 _ 5 062 ~ . ~ ~t - T 043 ~ - ~ - U--U 0~4 ~ ~ ~ ov - V 045 x _ X 06/
~ ~ ~ ' Y --Y 070 . ~ , SPAC~ 020 - ~ 100 ~ -. ~/ _ ? 061 ~ ~ ~ ~STOP 013 ~~ ~ . ~ ~ 133 ~ ~ ~ . ~ ~' - ' 073 ~ _ ~ 153 ~ ~ - ~ P(iNCII ON 114 ~ ~c ~ . ~ UPPER CASE 174 ~~. ~ . ~ -- TAB 076 ~ ~ ~ ~ COh-~ROL 016 ~ ~ . ~ ~ ~PUNCII OPP 067 ~ ~ ~ ~ ~ DATA SELECTOR(AUX.3) 037 OI~I PEED (AUX. ~ 117 ~ ~ . ~ BACK SPACE 062 ~ ~? ~ . - ~
~ -- ~
~ ~ ~ ~ ~ ~ ADDRESS IDEN.(AUX~! 135 ~ ~ ~ ~ . ~ LOWER CAS~ 172 ~ -- ~ ~ ~ .
O ~ . ~ -~ ~ O ~ ~ ~ ~ ~ I~APE PE~D 177 . CAR. RE~. 200 . . I
o ~D
v 11 ~ ~ ~ W ~I O~ ~ n oT
~ f) - -co. 1-' I; - . ~n O
cr~, 0 z 3 r 7c ~ T C) ~rl m O ('I W p ~ ~; ! u _ _ _ _ _ _ _ _ _ _ _ _ n ~
lO~
The following charl; shows the information to be pro-grammed into the conversion table.
sp O~0 ~ ) oLJ(~ r~
oL~ (3 /Y 7 . !.(~2~. . .. :
~ 3 C /~3 /a3 . .
g Oy~l 3 t jty ~~ / 0~ , _ _ _ _ 7 _ _ _ f 0 7 _. . _ .. . . . . ., .. . . . . .. .. .. / _ . . . _ . .. . .... _. _ . .
... .7 . . . ~ ~ 2 / ~ 2 _ ~
. . . _ . .~.. ~ Z . i~ /22 //3_ _ _ L / ~ 3 _ .. . . . . ... _ . . . ... _ _ . _ _ .
',G7~,, ' 0~ 2y ~ r ' ~ ~
-~ C0 ' C~ ~J ~~ OS' ~6 3 ~ ,Z ' ~ (~) '' /QC~ 7 ,, 6~ .--------~J-~7---- /27 / 20, . . , ~ Q / 3~ ~ 2~ ~ i L~o ~ i 2 2 ------ --- ' I . ~~~6'-4!' ~ S 62 1 i23 ., . ,., Z ,,o,o~0'6,~ T' ,~3 __3 o 23,___. ~OZ3 _ (J _ 6~ '2 r- . 4 oa~ .
. . . 5~ ~ 2 5--~ O ~ 2 .... 6 . ~ o .. ~~~~. X 67 ~ 30 __ 7 0 7_ o 6 ~ . . 7~ . _ _ . . . . _ . . _ a 7~ Z ~7 J 32~ _ ~ ~ f0 7,/
.. . . . _ . . . . . , . .. , .. .. . ., . .. _ . ~ ~
. . .. . ~ _ . . . .. .. . .: . . . . .. . . . . ., . . . ~ . . . .. _ _ , _ . . . _ _ .. . ... __~ _ . ~ _-- \. ).~3 .. . . . . _ .. _ _ . _ . .... . . . _ _ . . _ ~ 73 ~ /3~
.C a?Y; ~3~-~ . ~ 7 ~
i~ ~7.7G . . . ....... . . .. ....
i? ~7,~
C~R~ _ 20~ d/2 ~ . . .... ....
10'16644 The conversion table portion of a BASIC program is shown on the chart below. Each statement defines one element in the conversion Table A with the use of the OCT function: the octal notation does not need to be translated to decimal. If decimal notation was supplied in the symbol tables, the OCT
function could have been omitted; however, it is common to obtain symbol tables in the octal form rather than in decimal form.
10 DIM AI~128]
2~ A OCT20]=OCT40 30 A-OCT73]=OCT54 40 A OCT1~0]=OCT55 50 A-OCT153]=OCT56 6~ A OCT61]=OCT57 7~ A OCT40]=OCT6 8~ A OCTl]=OCT61 9~ A OCT2]=62 1~ A OCT23]=OCT63 110 A-OCT4]=OCT 64 120 A OCT25]=OCT65 130 A OCT26]=OCT66 140 A OCT7]=OCT67 15~ A-OCTl~ =OCT7 160 A OCT31 =OCT71 170 A OCT201 =CCT12 180 A OCT141 =OCT101 19~ A-OCT142 =OCT102 200 A OCT163 =OCT103 21~ A OCT144-=OCT104 ~ 220 A OCT165 =OCT105 23~ A:OCT166-=OCT106 24~ A OCT147 =OCT107 25~ A OCT15~-=OCTll~
260 A~OCT171 =OCTlll 270 A OCT121 =OCT112 28~ A-OCT122 =OCT113 290 A OCT103 =OCT114 3~0 A rOCTl 24 =OCT115 31~ A~OCT105~=OCT116 32~ A OCT106 =OCT117 33~ ArOCT127 =OCT120 34~ A OCT13~ =OCT121 35~ A OCTlll =OCT122 36~ A OCT62-=OCT123 37~ A OCT43 =OCT124 38~ A OCT64 =OCT125 390 A OCT45 =OCT126 4~0 A OCT46-=OCT127 410 A OCT67-=OCT130 42~ A OCT76-=OCT131 430 A OCT51 =OCT132 10~6644 ENTER
When a CHAR rcquest is keyed into the calculator for the paper tape reader, conversion is not done and the calculator will display t,le decimal equivalent of the EIA octal code for the symbol taken from the paper tape. In order to have automatic code conversion, the program must contain an ENTER statement.
410 ENTER (9r 420, A) B
B will be read and its ASCII equivalent found in the conversion table A. If data contained in a string is to be converted to ASCII code, the string name is used instead of the select code, and in this way conversion can be done internally as well as at time of input or output.
OUTPUT
For output of data in a foreign code, automatic code conversion is invoked by use of the OUTPUT statement.
500 OUTPUT (8, 510, A) B
The ASCII B will be found in the conversion table A and changed to the foreign code equivalent before output. Notice that the same conversion table A is used for input and output. The ENTER
~0 ~tatemont caus~s the calculator to look for ASCII code, (on the right of the equals (=) signs in the table), and assume that it is receiving foreign code; whereas the OUTPUT statement causes the calculator to assume it has ASCII code, and to look for the foreign code (on the left of the equals (=) signs in the table) above.
ERROR CODES
Program diagnostic or error conditions found in the Extended I/O ROM:
NVMBER EXPLANATION
30ERROR 83 End of data reached or data contains more than ten (10) blanks in a row.
ERROR 84 Invalid format specification: format must be free format (*), E format or F format.
~ - 192 --- 104~i~44-ERROR 85 Num~ric input syntax error: multiple decimal poiLts, more than one E in E format, etc..
ERROR 86 Conversion table.not found. Check for integer initialization in DIM statement.
- Iq~
10~ 44 TERMINAL PLUG-IN READ-ONLY MEMORY MODULE
The terminal plug-in read-only memory module that is available with the calculator allows the user to enter, store, and edit free-text. It also allows the user to communicate, either directly or through an external modem, with another calculator, a computer or a time-sharing computer system The calculator may transmit or receive BASIC language programs or free-text To put the calculator into terminal mode, the user types in TERM and actuates the EXECUTE key If he wants to use the calculator for data transmission, he can specify one or two optional parameters following the TERM mnemonic The first parameter is the select code of the modem interface module. If another select code is not specified the calculator assumes select code four The second parameter is the baud rate of the transmitted dataO If not specified, the calculator will assume 110 baud which is the same rate as a standard ASR232 teletypewriter. For example, to transmit or receive on select code six at 300 baud, the user enters TERM,6,300 followed by actuation of the EXECUTE key The selectable baud rate is continuous in integer increments from 3 to 300. The conversion of characters from parallel to serial format is done automatically within the calculator firmware, so the modem interface circuitry is simplified and no switches are required to change baud rate~
While the calculator is operating in the terminal mode, lines of text may be entered from tlle keyboard and terminated with the END-OF-LINE key These lines must be preceded by a line number, but there is no syntax requirement for the remainder of the line. All of the line-by-line and iO ~i644 character-by-character editing features o~ the calculator are available in this mode. These include listing, backspace, forward space, insert character, delete character, and display shift control. Automatic line numbering is also available. In addition, the tape cassette commands, the PTAPE command, the PRINT ALL command, and the LIST command operate normally. The LIST command syntax has been ex-panded to include LISTX, which means list without line numbers, as well as LIST#SC or LISTX#SC where SC is the select code of the modem interfa~e, which means transmit the information through the modem to the remote system WLen the calculator is operating in the terminal mode, five of the user-definable keys take on special meaning Key f5 becomes a teletype shift key and f6 becomes a teletype control ~ey These keys and the lower case shift key allow the user to generate any seven-bit ASCII code. To generate a teletype shift or control character, the user first actuates the f5 or f6 keys and then actuates the appropriate key on the alpha section of the keyboard. For example, to generate a ~control C", the f6 key and the C key are actuated sequen-tially. No character is entered into the display until after ~ c~
the chosen alpha key is ~ht The character entered into the display may or may not be the same as the alpha character For instance a ~'shift O" generates the symbol ~
Key f8 is used in the terminal mode to select even or odd parity for transmitted characters When the terminal mode is first entered, even parity is assumed. The user may then convert to odd parity by actuating key f8. The display will then indicate ODD. To revert back to even parity the user actuates key f8 again, and the display indicates EVEN.
.
Key f9 is used in the terminal mode as a transmit key.
To transmit a message through the modem inter~ace, the message is typed into the display from the keyboard, and then ~ c~
the line is terminated by hittin~ key f9 The calculator g then serializes the characters entered, and transmits them at the selected baud rate For example, to obtain a listing of a program from a remote time-sharing computer service, the user enters LIST f9. The transmit key may also be used to enter the responses in a sign-on procedure for a time-sharing service.
Key f7 is used to place the calculator into a mode for saving, in memory, an incoming program. For example, to receive and store a program from a time-sharing computer service, the user actuates key f7 followed by LIST f9. As the program is listed from the time-sharing service, the lines are stored in the calculator's user memory as free-text. If the f7 key is not actuated just prior to entering LIST f9, the program will be printed on the external line printer.
Once a program has been entered as free-text, either from a remote source or from the keyboard, and if it is a BASIC program, it may be checked for syntax errors and con-verted to BASIC program format in memory. This is done by typlng COMP ~ollowed by actuation of the EXECUTE keyO Any syntax errors will be listed, and only the lines which have correct BASIC syntax will be translated. Incorrect lines will remain in ~ree~text format. After a program has been trans-lated by the COMP command, it may be executed locally using any of the normal execution commands, i.e. RUN, CONT, etc.
An attempt to execute an untranslated line will cause an error message (ERROR 79) to be displayed.
iO4~
The receiving section of the modem driver routine operates under interrupt control which allows the user to execute programs locally and remotely at the same time, For example, the user may want to run a program on a time-sharing computer sy~tem that may take several minutes to complete, He may start that program by transmitting a RUN command.
While that program is being executed, the calculator is free for normal keyboard operation or program execution. The ~ ;s only limitation in the mode is that ~h~ calculator may not use the display or printer at the same time as it is receiving information from the remote program.
.
10~6~i44 PLOTTER PLUG-IN READ-ONLY MEMORY MODULE
The plotter plug-in read-only memory module enables the calculator to control an Hewlett-Packard 9862A calculator plotter, providing permanent graphic solutions to problems solved by the calculatorO
In general, the plotter command set can be considered as consisting o~ two ~roups plotting commands and writing commands. The user can specify any plotting units he pleases, the calculator then automatically scales those units to fit the chosen plotting area. Also, the calculator keyboard characters can be drawn in different sizes and directions.
The 'plotting~ commands enable the system to automati-cally scale user-units; draw X and Y axes of any length, any-where in the plotting area; make any desired tic-marks on the axes; plot points or functions; lower or raise the pen, either before or after movement; temporarily translate the established origin to any point within the plotting area and then plot, still in user-units, with respect to the new origin; plot in increments (that is, in user-units, plot any point with respect to the current pen position).
The Iwriting' commands enable most calculator keyboard characters to be 'printed' on the plotter. The user can specify the position, height and width of the characters, and the di~ection in which they will be printed. A 'centering' com-mand ~CPLOT) enables labels to be centered on some particular point, thus simplifying labelling of axes and of specific points on the graph. The format of labels and numbers - field width, fixed or floating point, the number of digits following the decimal point, etc. - is specified by standard FORMAT
statements. In addition, a unique LETTER command establishes . _ 10~ 44 a 'typewriter' mode enabling the plotter to be controlled and positioned from the calculator kcyboard, on a character-by-character basis; this allows the user to add extra labelling or individual comments to his graphs.
INITIALIZING THE PLOTTER
Before plotting, the plotter must be prepared and the physical limits of the plotting area must be established The front-panel controls on the plotter are used for this purpose.
LINE AND CHART HOLD
The LINE pushbutton is the power switch for the plotter;
press it to apply power, and press it again to remove power;
the white LINE lamp lights whenever the plotter is ON.
Pressing CHART HOLD activates the electro-static paper hold-down mechanismO Pressing CHART HOLD again deactivates it. The plotter will not plot or letter, and the pen holder and arm will move freely in all directions when CHART HOLD is deactivated~
LOADING PAPER
To load paper, release CHART HOLD and manually move the pen arm all the way to one side of the plotter. Lay a sheet of paper on the plotting surface and smooth out any ir-regularities in the papér (you may also wish to ensure that the paper is squarely against the ridge at the bottom of the plotting surface); then activate CH M T HOLD.
GRAPH LIMITS
The graph limit controls are used to determine the physical size of the plot.
LOWER LEFT and the two knobs to its left are used to determine the physical location of the lower left hand corner of the plotting area 10 1tjt~4 UPPER ~IG}IT and the two knobs to its right are used to determine the physical location o~ the upper right-hand corner of the plotting area. Together, the upper right-hand corner and the lower left-hand corner determinc the size of the plotting area.
Also, altering the lower left-hand setting will trans-late the upper right-hand setting by the same direction and amount.
To specify the lower left-hand corner of the plotting area, press LOWER LEFT; the pen will move (without touching the paper) to the lower left-hand corner of the plotting area This point can be set anywhere within the lower left-hand quarter of the plotting surface (platen) by adjusting the two knobs associated with LOWER LEFT, Once the lower left-hand corner has been set, the upper right-hand corner is set in the same general way by pressing UPPER RIGHT and adjusting the two knobs associated with it Once the plotting area has been determined, it can be relocated by moving the position of the lower left-hand corner - the upper right-hand corner will 'track' the changec PLOTTING COMMANDS
NOTES: 1. All commands can be activated either from the keyboard or from a program except where noted 2 All values in the following statements can be numbers, variables or expressions except where noted.
3 Any parameter enclosed in square brackets is optional as far as the statement containing it is concerned. However, program sense may dictate that the parameter be present in specific cases - - - - - - - ---THE SCALE STATEMENT
SCALE Xmin, Xmax, Ymin, Ymax Examples:
SCALE -10, 10, -5, 5 SCALE-4PI, 4PI~ 3, 1.1 establishes the full-scale units for the plot. Xmin to Xmax and Ymin to Ymax correspond exactly to the limits of the horizontal and vertical edges, respectively, of the plotting , area (the area is established mechanically as previously described). This also establishes the point, on or off the plotting area, where the original of the graph (0, 0) is located.
A SCALE statement must be executed before any plotting can occur~ Once established the scale remains established until one of the following occurs:
~ new SCALE statement is executed.
The program is initialized.
A SCRATCH or SCRATCH A or SCRATCH V is executed.
The calculator is switched off.
The parameters (X, Y, etc.) in the SCALE statement must be given in the correct order. If the minimum or maximum values are switched no ÉRROR message will occur; however, sub-sequent plotting commands may not be executed properly.
The SCALE statement has no effect on the position of the pen.
THE PEN STATEMENT
PEN
The PEN statement is a 'stand-alone' instruction re-qulring no parameter. It raises the pen without otherwise changing its position relative to the plotting area, Instructions to raise or lower the pen, either before or after movement, can ~e easily included in several other statements (see PLOT and IPLOT) so there is no special 'lower pen' instruction.
THE OFFSET STATEMENT
OFFSET X, Y
Example: OFFSET 3, -3 Temporarily offsets the origin (point 0, 0 established by the previous SCALE statement) by an amount, and in the direction, determined by the values (in user-units) of X and , , ~
Y. All future plotting commands are then made with respect to the new origin until such time as that origin is again changed by means of, for example, a new OFFSET or a new SCALE state-ment The OFFSET statements are not accumulative; that is, a new 'offset' is with respect to the original origin and not with respect to the last offset origin Offsetting greatly simplifies plotting, from the user's point of view, when it becomes necessary to divide the plotting area into several smaller segments and then make a separate plot in each segment. As the plot is made in each segment it is not necessary for the user to 'correct' each point before plotting; instead OFFSET statement moves the origin to some convenient point within that segment so that the calculator automatically makes the necessary 'corrections' for each point plotted THE AXI S STATEMENT
X AXIS Y-offset [, itic [, start point, end point]]
or Y AXIS X-offset [, +tic [, start point, end point~]
X AXIS 3, 1, -4, 4 1 O L~
Draws an X-(or Y-) axis according to the parameters given in the AXIS statement. The pen is automatically raised both be-fore and after drawing the axis, (NOTE: The following describes the X-axis; the same information is applicable to the Y-axis if 'left' and 'right' for the X-axis are read as, respectively, 'bottom' and 'top' for the Y-axis,) 1, ~f no optional parameters are given, draws a straight line from left to right across the complete plotting area ~from Xmin to ~max), The line crosses the Y-axis at a point determined by the value of "y-offset', 2. If a 'tic' parameter is included then tic marks are made along the axis as it is drawn; the value for 'tic' deter-mines the spacing9 in user-units, between tics, The first tic is drawn at the starting point of the line. The tic parameter is usually positive (the sign is not required), but occasionally a negative tic spacing is useful - see 4, below.
3. If the start point/end point parameters are given, then the axis is drawn only between the points specified - from the start point to the end point.
4. a, A negative tic spacing when no start point/end point parameters are given results in a tic only at the left end (Xmin) of the axis.
b. If the start point parameter is more poaitive than (i.e., to the right of) the end point parameter, then the axis is drawn from right to left; in this case, negative tic spacing results in normal tic marks being drawn along the axis.
3D c, With the start point/end point parameters the same as 10~ i4-~
in b above, a positive tic spacing results in a tic only at the ri~ht end (Xmax) of the axis.
THE PLOT STATEMENT
PLOT X, Y ~, control pen]
PLOT SIN(X), COS(X), -2 Moves the pen to the co-ordinate specified by the value of X and Y.
When no optional 'control pen' parameter is given:
If the pen was raised, it moves to the point specified and then lowers.
If the pen was lowered, it remains lowered while moving to the point specified, thus drawing a line on the plotting surface.
The 'Control Pen' Parameter The value and sign of this parameter in the PLOT
(and IPLOT) statements determines whether the pen will be raised or lowered before or after it moves to the specified point.
If the parameter is:
negative - control occurs after movement;
positive - control occurs before movement;
odd - raises pen if it was lowered;
even - lowers pen if it was raised The value of the control parameter can be any number in the range i32767. If the value is not an integer then it is automatically rounded up or down according to the value of the fractional part of the number; that is up for .5 or greaterS
or down for less than .5 (Rounding is the same as the standard rounding in the calculator; it is not the same as the INT function, where the value becomes that of the next lower integer ) THE IPLOT STATEMENT
IPLOT deltaX, deltaY ~, control pen]
IPLOT 2, -3A/4, 1 Moves the pen (from its current position) in the X direction and in the Y direction, by the amounts specified by 'deltaX' and'deltaY', respectively.
The 'control pen' parameter is optional and operates exactly as described previously - sèe the PLOT STATEMENT.
Notice that the action of the IPLOT statement is such that it is as if, during the execution of that statement only, the origin (O, O) of the graph is offset to the current position of the pen. Pen movement is then related to that offset origin.
The IPLOT statement is most useful when drawing regular geometric shapes such as, for example, a swastika (~). In this case each point is more easily plotted with respect to the previous point, rather than with respect to the origin of the graphO
THE LABEL. STATEMENT
LABEL (FORMAT statement number or *[, character heigth in %, Aspect ratio, angle of rotation r, paper heigth/paper width]~) print list Examples: LABEL (x, 2, 2, 0, 8 5/11) "PLOTTE~"
LABEL (100) 1, A, SIN(X) The LABEL statement is used to write alpha and numeric characters with the plotter. Several parameters are allowed which can be used to control the size, shape, and angle of rotation of the character printed. The character height can be specified in percent of the paper height. The aspect ratio is the ratio of ao the character height to the character width before any rotation.
~O ~t;6~4 The angle of rotation of characters printed can be given This parameter can be given in degrees, radians, or grads and is dependent on a previously given DEG, RAD, or GRAD state-ment. A fourth parameter can be specified. This is the ratio of the actual measured height of the plot paper to the measured width as set by the upper right and lower left posi-tions. This parameter is necessary to keep proper aspect ratio of characters printed on an angle on a non-square plot.
. . .
If not specified, the calculator will assume character height =
2.5%, aspect ratio = 2, rotation = 0, and paper ratio = 1.
The format specification and the print list are the same as a WRITE statement. If a FORMAT statement number is - specified, the print list is written on the plotter using the specification given in the FORMAT statement. All sec~fications are allowed except "B". If an "*" is used, the print list will be written according to standard format. This includes the normal definition of comma and semi-colon spacing, string fields, TAB, etc.
- The LABEL statement will start printing characters at the current pen position. Anytime an end of line is needed, the plotter pen will return to the character position directly below the first character of the current line, simulating a carriage return, line feed.
If the string variables option block is also plugged into the memory, then string variables are allowed in the print list~
THE LETTER STATEMENT
LETTER
When the LETTER statement is executéd, the calculator enters a unique 'typewriter' modc with the plotter as the printing device While in this mode when the user hits any printing character on the keyboard, that character is immediately printed on the plotter at the current pen position. An EOL or EXECUTE will cause a carriage return, line-feed to be simulated In ad-dition, while in this mode the t, 1, ~, and ~ keys can be used to position the pen The t and 1 keys can cause the pen to move up or down one character position The ~ and ~ keys cause the pen to move left or right one character position.
If the shift key is held down at the same time as a pen control key, the pen will move one~tenth of a character position.
Character size, aspect ratio, and rotation can be specified by giving a LABEL statement prior to the LETTER statement.
THE CPLOT STATEMENT
CPLOT delta X characters, delta Y characters Example: CPLOT 5, - 3 The CPLOT statement is similar to the IP~T statement in that it moves the pen to a position relative to the current pen position. The difference is that the delta X and delta Y
values are specified in character size units In the example above the pen would move five character position down This statement is particularly useful in positioning the pen when labeling a plot using the LABEL statement One character space is defined as follows:
1 ~ ~ Lower-left corner .- of character above , The LETTER ~A~' for - example -~ ~ Lower-left corner of next character , ....
lO~fj6~
The error messages givcn by the plotter module are:
~RROR 80 - No scale statement executed before PLOT, IPLOT, OFFSET, or AXIS.
~RROR 81 - Character size too large (limited to = 20%) or binary mode not allowed.
~RROR 82 - OFFSET, POINT 1, or POINT 2 out of range during axis execution or tic increment in axis statement is too small.
10~6~;4~
MATRIX PLUG-IN READ-ONLY MEMORY MODULE
The Matrix read-only memory module enables the cal-culator to understand the MAT statements of BASIC. These ; statements facilitate the matrix operations of addition, sub-traction, initialization, scalar multiplicationj matrix multi-plication transposition, and inversion. A function additional to standard BASIC language matrix operations is provided for computing the determinate of a square matrix. The MAT READ
and MAT PRINT commands facilitate entering data into an array and the prirting thereof. The MAT INPUT command which appears in some versions of BASIC is not allowed. The matrix operations are allowed on split precision or integer arrays as well as full floating point arrays~
The operations performed by this matrix module are summarized below and additional information is provided above on pages 148-164.
A. MAT READ
reads numeric information from DATA statements into an array MAT READ A
MAT READ A(3,5) MAT READ B,W(8),X,Y
B~ MAT PRINT
prints complete arrays close pac~ing specified with a semicolon MAT PRINT A
MAT PRINT A, MAT PRINT R,S;V;W
C ZER, CON, and IDN operations ZER: initialize an array to all zeros CON: lnitialize an array to all ones IDN: initialize an array to the identity matrix : ' 104~;644 MAT A = ZER
MAT Q = CON(9) MAT I - IDN(4,4) D, MAT assignment statements assign to a matrix the result of a MAT operation 1) MAT A = B
assigns elements of A from array B
.- 2) MAT A = B ~ C
performs indicated addition or subtraction and assigns result to A
any of A, B, and C may be the same matrix 3) MAT A = B * C
performs indicated multiplication and assigns result to A
array A must be distinct from B or C
4) MAT A = (expression) * B
performs the indicated scalar multiply (each element of B is multiplied by the value of the expression) and assigns the result to A
5) MAT A = TRN(B) assigns the transpose of B to A
array A must be distinct from B
6) MAT A = INV(B) assigns the inverse of B to A
A and B may be the same matrix E. DET operation calculates the determinant of a square matrix MAT D4 = DET(A) 104~;44 KEY CODES AND MNEMONICS
All of the keys of the keyboard input unit and their associated mnemonics and binary keycodes are listed in the Table below~ Every key has one mnemonic and two keycodes, (namely, a shifted keycode and an unshifted keycode). Key-codes are applied to the CPU in eight-bit binary form. The first four bits of each keycode are given in the left-most vertical column of the table below and the next three bits of each keycode are given in the uppermost row of the table -- ~ 10 below. The eighth bit of each keycode is the shift bit and is determined by whether or not the shift key of the key-b~ard input unit is depressed. Keycodes entered into the CPU from the keyboard input unit or from the program storage section of the memory unit are processed by the keyboard in-put routine 204 as generally described above in connection with Figure 9 and as shown in detail in Figures 88A-G.
KEYCODE AND MNEMONIC TABLE
D0 Dl D2 D3 D4 D5 D6 D7 b6 0 0 0 0 b5 0 0 1 1 0 0 b4 0 1 0 1 0 1 0 b3b2blbO
O O O O f O RECALL SPACE 0 p PA
0 0 0 1 fl FETCH 1 A Q STOP
O O 1 0 f2 BACK 2 B R EOL
_~. O O 1 1 f3 FWD 3 C S DL
O 1 0 0 f 4 1 4 D T FXD
O 1 0 1 f5 t 5 E U FLT
O 1 1 0 f 6 ~ 6 F V SCRATCH
0 1 1 1 f7 ~ 7 G W AUTO
1 0 0 0 f8 LOAD ( 8 H X
; 1 0 0 1f 9 STORE ) ~ I Y
1 0 1 1EXEC / + K RESULT
1 1 O O CONT , L
1 1 1 0 TRACE NORMAL . N
1 1 1 1 RUN INSERT / O hN
EXp 104~644 BASIC INSTRUCTION SET
Every routine and subroutine of the calculator comprises a sequence of one or more of 71 basic sixteen-bit instructions listed below. These 71 insturctions are all implemented serially by the micro-processor in a time period which varies according to the specific instruction, to whether or not it is indirect, and to whether or not the skip condition has been met.
Upon completion of the execution of each instruction, the program counter (P register) has been incremented by one except for instructions JMP, JSM, and the skip instructions in which the skip condition has been met. The M-register if left with contents identical to the P-register. The contents of the addressed memory location and the A and B registers are left unchanged unless specified otherwise.
Memory Reference Group The 14 memory reference instructions refer to a specific address in memory determined by the address field <m>, by the ZERO/CURRENT
page bit, and by the DIRECT/INDIRECT bit. Page addressing and indirect addressing are both described in detail in the reference manuals for the Hewlett-Packard Model 2116 computer (hereinafter referred to as the HP 2116).
The address field <m> is a 10 bit field consisting of bits O
through 9. The ZERO/CURRENT page bit is bit 10 and the DIRECT/INDIRECT bit is bit 15, except for reference to the A
or B register in which case bit 8 becomes the DIRECT/INDIRECT
bit. An indirect-reference is denoted by a <,I> following the address <m>.
REGISTER REFERENCE OF A OR B REGISTER: If the location <A> or <B> is used in place of <m> for any memory reference instruction, the instruction will treat the contents of A or B exactly as it would the contents of location <m>. See the note below on the special restr1ction for direct register reference of A or B.
ADA m,I Add to A. The contents of the addressed memory location m are added (binary add) to contents of the A register, and the sum reamins in the A register. If carry occurs from bit 15, the E register is loaded with OOOl, otherwise E is left unchanged.
ADB m,I Add to B. Otherwise identical to ADA.
104~64~
Memory Reference Group (continued) CPA m,I Compare to A and skip if unequal. The contents of the addressed memory location are compared with the contents of the A register. If the two 16-bit words are different, the next instruct;on is skipped; that is, the P and M
- registers are advanced by two instead of one. Otherwise, the next instruction will be executed in normal sequence.
CPB m,I Compare to B and skip is unequal. Otherwise identical to CPA.
LDA m,I Load into A. The A register is loaded with the contents of the addressed memory location.
LDB m,I Load into B. The B register is loaded with the contents of the addressed memory location.
STA m,I Store A. The contents of the A register are stored into the addressed memory location. The previous contents of the addressed memory location are lost.
STB m,I Store B. Otherwise identical to STA.
IOR m,I "Inclusive OR" to A. The contents of the addressed location are combined with the contents of the A register - as an "INCLUSIVE OR" logic operation.
ISZ m,I Increment and Skip if Zero. The ISZ instruction adds ONE to the contents of the addressed memory location. If the result of this operation is ZERO, the next instruction is skipped; that is, the P and M registers are advanced by TWO instead of ONE. The incremental value is written back into the addressed memory location. Use of ISZ with the A or B register is limited to indirect reference; see foot-note on restrictions.
AND m,I Logical "AND" to A. The contents of the addressed location are combined with the contents of the A register as an "AND" logic operation.
DSZ m,I Decrement and Skip if Zero. The DSZ instruction subtracts ONE from the contents of the addressed memory location. If the result of this operation is zero, the next instruction is skipped. The decremented value is written back into the addressed memory location. Use of DSZ ~ith the A or B register is limited to indirect reference; see footnote on restrictions.
104~644 JSM m,I Jump to Subroutine. The JSM instruction permits jumping to a subroutine in either ROM or R/W memory. The contents of the P register is stored at the address contained in location 1777 (stack pointer). The contents of the stack pointer is incremented by one, and both M
and P are loaded with the referenced memory location.
JMP m,I Jump. This instruction transfers control to the contents of the addressed location. That is, the referenced memory location is loaded into both M and P registers, effecting a jump to that location.
Shift-Rotate Group' The eight shift-rotate instructions all contain a 4 bit variable shift field <n> which permits a shift of one through 16 bits;
that is, 1 < n < 16. If <n> is omitted, the shift will be treated as a one bit shift. The shift code appearing in bits 8,7,6,5 is the binary code for n-l, except for SAL and SBL, in which cases the complementary code for n-l is used.
M R n Arithmetic right shift of A. The A register is shifted right n places with the sign bit (bit 15) filling all vacated bit positions. That is, the n+l most significant bits become equal to the sign bit.
ABR n Arithmetic right shift of B. Otherwise identical to AAR.
SAR n Shift A right. The A register is shifted right n places with all vacated bit positions cleared. That is, the n most significant bits become equal to zero.
SBR n Shift B right. Otherwise identical to SAR.
SAL n Shift A left. The A register is shifted left n places with the n least significant bits equal to zero.
SBL n Shift B left. Otherwise identical to SAL.
M R n Rotate A right. The A register is rotated right n places, with bit O rotated around to bit 15.
RBR n Rotate B right. Otherwise identical to RAR.
, -213-Alter-Skip Group The sixteen alter-skip instructions all contain a 5-bit variable skip field <n> which, upon meeting the skip condition, permits a relative branch to any one of 32 locations. Bits 9,8,7,6,5 are coded for positive or negative relative branching in which the number <n> is the number to be added to the current address, (skip in forward direction), and the number <-n> is the number to be subtracted from the current address, (skip in negative direction). If <n> is omitted, it will be inter-preted as a ONE.
<n>=O CODE=OOOOO REPEAT SAME INSTRUCTION
<n>=l CODE=OOOOl DO NEXT INSTRUCTION
<n>=2 CODE=OOO10 SKIP ONE INSTRUCTION
<n>=15 CODE=Ollll ADD 15 TO ADDRESS
<n>=-l CODE=lllll DO PREVIOUS INSTRUCTION
<n>=-16 CODE=10000 SUBTRACT 16 FROM ADDRESS
<n>=nothing CODE=OOOOl DO NEXT INSTRUCTION
The alter bits consist of bits 10 and bits 4. The letter <S>
following the instruction places a ONE in bit 10 which causes the tested bit to be set after the test. Similarly the letter <C> will place a ONE in bit 4 to clear the test bit. If both a set and clear bit are given, the set will take precedence.
Alter bits do not apply to SZA, SZB, SIA, and SIB.
SZA n Ski~ if A zero. If all 16 bits of the A register are zero, skip to location defined by n.
SZB n Skip if B zero. Otherwise identical to SZA.
RZA n Skip if A not zero. This is a "Reverse Sense" skip of SZ.
RZB n Skip if B not zero. Otherwise identical to RZA.
SIA n Skip if A zero; then increment A. The A register is tested for zero, then incremented by one. If all 16 bits of A were zero before incrementing, skip to location defined by n.
SIB n Skip if A not zero; then increment B. Otherwise identical RIA n Skip if A not zeroi then increment A. This is a "Reverse Sense" skip of SIA.
RIB jnd Skip if B not zero; then increment B. Otherwise SLA n,S/C Skip if Least Significant bit of A is zero If the least significant bit (bit O) of the A register is zero, skip to location defined by n. If either S or C is present, the test bit is altered accordingly after test.
4~
Alter-Skip Group (continued) SLB n,StC Skip if Least Significant bit of B is zero. Other-wise identical to SLA.
SAM n,S/C Skip if A is Minus. If the sign bit (bit 15) of the A register if a ONE, skip to location defined by n. If either S or C is present, bit 15 is altered after the test.
SBM n,S/C Skip if B is Minus. Otherwise identical to SAM.
SAP n,S/C Skip if A is Positive. If the sign bit (bit 15) of the A register is a ZERO, skip to location defined by n.
If either S or C is present, bit 15 is altered after the test.
SBP n,S/C Skip if B is Positive. Otherwise identical to SAP.
SES n,S/C Skip if Least Significant bit of E is Set. If bit O of the E register is a ONE, skip to location defined by n. If either S or C is present, the entire E register is set or cleared respectively.
SEC n,S/C Skip if Least Significant bit of E is Clear. If bit O of the E register is a ZERO, skip to location defined by n. If either S or C is present, the entire E register is set or cleared respectively.
Complement-Execute-DMA Group.
These seven instructions include complement operations and several special-purpose instructions chosen to speed up printing and extended memory operations.
CMA Complement A. The A register is replaced by its One's complement.
CMB Complement B. The B register is replaced by its One's complement.
TCA Two's Complement A. The A register is replaced by its One's Complement and incremented by one.
TCB Two's complement B. The B register is replaced by its One's Complement and incremented by one.
EXA Execute A. The contents of the A register are treated as the current instruction, and executed in the norma1 manner.
-~ ~ - The A register is 1eft unchanged un1ess the instruction code causes A to be altered.
EXB Execute B. Otherwise identical to EXA.
DMA Direct Memory Access. The DMA control in Extended Memory is enabled by setting the indirect bit in M and giving a WTM
instruction. The next ROM clock transfers A~M and the following two cycles transfer B+M. ROM clock then remains inhibited until released by DMA contro1.
\ 104~ii644 Note: Special Restriction for Direct Register Reference of A or B
For the five register reference instructions which involve a write operation during execution, a register reference to A or B must be restricted to an INDIRECT reference. These instructions are STA, STB, ISZ, DSZ, and JSM. A DIRECT register reference to A or B with these instructions may result in program modification.
(This is different from the hp 2116 in which a memory reference to the A or B register is treated as a reference to locations O
or 1 respectively.) A reference to location O or 1 will actually refer to loca~ions O or 1 in Read Only Memory.
Input/Output Group (IOG) The eleven IOG instructions, when given with a select code, are used for the purpose of checking flags, setting or clearing flag and control flip-flops, and transferring data between the A/B
registers and the I/O register.
STF <SC> Set the flag. Set the flag flip-flop of the channel indicated by select code <SC>.
CLF <SC> Clear the flag flip-flop of the channel indicated by select code <SC>.
SFC <SC> Skip if flag clear. If the flag flip-flop is clear in the channel indicated by <SC>, skip the next instruction.
SFS <SC> H/C Skip if flag set. If the flag flip-flop is set in the channel indicated by <SC>, skip the next instruction. H/C indicates if the flag flip-flop should be held or cleared after executing SFS.
CLC ~SC> H/C Clear control. C1ear the control flip-flop in the channel indicated by <SC>. H/C indicates if the flag flip-flop should be held or cleared after executing CLC.
STC ~SC> H/C Set Control. Set the control flip-flop in the channel indicated by <SC>. H/C indicates if the flag flip-flop should be held or cleared after executing STC.
OT* <SC> H/C Output A or B. Sixteen bits from the A/B register are output to the I/O register. H/C allows holding or clearing the flag flop after execution of OT*.
The different select codes allow different functions to take place after loading the I/O register.
SC=OO Data from the A or B register is output eight bits at a time for each OT*
instruction given. The A or B register is rotated right eight bits.
, -216-,5 10~64~
- Input-Output Group (IOG), continued SC=Ol The I/O register is loaded with 16 bits from the A/B registers.
SC-02 Data from the A/B register is output one bit at a time for each OT* instruction for the purpose of giving data to the Magnetic Card Reader. The I/O register is unchanged.
SC-04 The I/O register is loaded with 16 bits from the A/B register and the control flip flop for the printer is then set.
SC-08 The I/O register is loaded with 16 bits from the A/B register and the control flip flop for the display is then set.
SC=16 The I/O register is loaded with 16 bits from the A/B register and then data in the I/O register is transferred to the switch latches.
LI* <01> H/C Load into A or B. Load 16 bits of data into the A/B register from the I/O register. H/C allows holding or clearing the flag flop after Ll* has been executed.
-- LI* <00> The least significant 8 bits of the I/O register are loaded into the most significant locations in the A or B register.
MI* <01> H/C Merge into A or B. Merge 16 bits of data into the A/B register from the I/O register by "inclusive or". H/C allows hold;ng or clearing the flag flop after Ml* has been executed.
MI* <00> The least significant 8 bits of the I/O register are combined by inc1usive OR with the least significant 8 bits of the A or B register, and rotated to the most significant bit locations of the A or B register.
10'l~;6~
MAC Instruction Group A total of 16 MAC instructions are available for operation (a) with the whole floating-point data (like transfer, shifts, etc.), or (b) with two floating-point data words to speed up digit and word loops in arithmetic routines.
NOTE: <Ao 3> means: contents of A-register bit O to 3 AR 1 is a mnemonix for arithmetic pseudo-register located in R/W memory on addresses 1744 to 1747 (octal) AR 2 is a mnemonix for arithmetic pseudo-register located in R/W memory on addresses 1754 to 1757 (octal) D. means: mantissas i-th decimal digit;
most significant digit is Dl least significant digit is D12 decimal point is located between Dl and D2 Every operation with mantissa means BCD-coded decimal operation.
RET Return 16-bit-nulnber stored at highest occupied address in stack is transferred to P- and M-registers. Stack pointer (=next free address in stack) is decremented by one.
- <A>, <B>, <E~, unchanged.
MOV Move overflow The contents of E-register is transferred to A . Rest of A-register and E-register are filled by zeros.~ 3 <B> unchanged.
CLR Clear a floating-point data register in R/W memory on location <A>
ZERO~cA>, <A>+l, <A>+2, <A>+3 <A>, >B>, <E> unchanged XFR Floating-point data transfer in R/W memory from location <A> to location <B>
Routine starts with exponent word transfer Data on location <A~ is unchanged <E> unchanged.
....
lO'~t;~;44 MRX ARl mantissa is shifted to right n-times. Exponent word remains unchanged.
<Bo 3>= n (binary coded) 1st shift: <A0-3>~Dl; Dj~j+l; D12 is jth shift: ~t ~ Dl; Dj~Dj+l; D12 is lost nth shift: ~ Dl; Dj~j+l; D12 ~ Ao 3 O ~ E, A4 15 each shift: <Bo_3> - 1 ~ Bo 3 <B4_15> unchanged MRY AR2 mantissa is shifted to right n-times.
Otherwise identical to MRX
MLS AR2 mar. issa is shifted to left once.
Exponent word remains unchanged.
D~2; D; ~ Dj_li Dl ~ Ao 3 <B> unchanged DRS ARl mantissa is shifted to right once Exponent word remains unchanged Dl; D; ~ Dj+l; D12 ~ Ao 3 ZERO ~ E and A4 15 <B> unchanged DLS ARl mantissa is shifted to left once. Exponent word reamins unchanged.
<Ao 3> ' D12; Dj ~ D; l; Dl ~ A3 3 E, A4 15 ~B> unchanged FXA Fixed-point addition Mantissas in pseudo-registers AR2 and ARl are added together and result is placed into AR2. Both exponent words remain unchanged. When overflow occurs "OOOl"
is set into E-reg., in opposite case <E> will be zero.
<AR2> + <ARl> + DC ~ AR2 DC = ~if <E> was OOOO before routine execution DC = 1 if <E> was 1111 before routine execution <B>, <ARl> unchanged 104~;64~
FMP Fast multiply Mantissas in pseudo-registers AR2 and ARl are added together <Bo 3>-times and result is placed into ARa.
Total decimal overflow is placed to Ao 3. Both ex-ponent words remain unchanged.
<AR2> + <ARl> * <Bo 3>+DC ~ AR2 DC = O if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution ZERO ~ E, A4 15 <ARl> unchanged FDV Fast divide Mantissas in pseudo-registers AR2 and ARl are added together so many times until first decimal overflow occurs. Result is placed into AR2. Both exponent words remain unchanged. Each addition without over-flow causes +l increment of <B>.
1st addition: <AR2> + <ARl> + DC ~ AR2 DC = O if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution next additions: <AR2> ~ <ARl> ~ AR2 ZERO ~ E
<ARl> unchanged CMX lO's complement of ARl mantissa is placed back to ARl, and ZERO is set into E-register. Exponent word remains unchanged <B> unchanged CMY lO's complement of AR2 mantissa.
Otherwise identical to CMY
MDI Mantissa decimal increment.
Mantissa on location <A> is incremented by decimal ONE
on D12 level, result is placed into the same location, and zero is set into E-reg.
Exponent word is unchanged.
When overflow occurs, result mantissa will be 1,000 0000 0000 (dec) and 0001 (bin) will be set into E-reg.
<B> unchanged.
NRM Normalization Mantissa in pseudo-register AR2 is rotated to the left to get Dl ~ O. Number of these 4-bit left shifts is stored in Bo 3 in binary form (<B4 15>=0) when <Bo 3> = 0,1,2,. . . . 11 (dec) -~ <E> = 0000 when <Bo 3>= 12 (dec)=~ mantissa is zero, and <E> =0001 Exponent word remains unchanged ~A> unchanged.
,, 10~fà644 The binary codes of all of the above instructions are listed ~,n the following coding table, where * implies the A or B
register, D/I means direct/indirect, A/B means A register/B
register, Z/C means zero pace (base page) (current page, H/S
means hold test bit/set test bit, and H/C means hold test bit/
clear test bit. D/I, A/B, Z/C, H/S, and H/C are all coded as 0/1.
CODING TABLE
MEMORY o---- AD~ D/lo o 0 AIR Z/C ADDRESS--REFERENCE - ---- CP- Dl ~ n I A/B 'IC
GROUP - LD' ~/ t 0 A/B IC
-,--- ST~ ~/ o I A/B .IC
- 10 ~ ~/ o O o /~
-~--- 15~ O./C
-~-- - A~ B ~/ 0 0 ./C
- --- D'- ~1 0 ./C
~ JiS~p ~/ n ~ /cc SHIFT 0 --0 A'R 0 A/E SHIFT .000 ROTATE 07---2 S~R 0 1 1 1 A/B- CODE -- 0 1 GROUP 07 -4 S~L 0 1 1 1 A/B -- - 0 1 0 07---6 R~R 0 1 1 1 A/B -- ~ ti I I
ALTER- 07- 0 SZ' 0 1 1 1 A/B O SKIP 0 o 0 SKIP 07 - 0 RZ' 0 1 1 1 A/B I CODE 0 o 0 GROUP 07---0 Sl' 0 1 1 1 A/B o I I t 0 0 07---0 Rl~ 0 I II A/B I I 1 0 0 0 07---1 ~3L' 0 1 11 A/B H/S HIC i 0 0 07---2 S~M 0 1 11 A/B H/S H/C i o I
07- J S~P 0 1 11 A/B H/S H/C i o I
07 --~ SES 0 1 11 A/B H/S H/C I 1 0 07 - 5 SEC 0 1 11 A/B H/S H/C i 1 0 REGISTER07 17 ADA 0 1 1 1 A/8 D/l 0 0 0 0 1 1 REFERENCE07 37ADR ~ I I I ~/B ~ D/l 0 0 0 1 1 1 t;ROUP 07 -57 CPA 0 1 1 1 A/B - D/l 0 0 1 0 1 1 07 -77 CPB 0 1 1 1 A/B -- DEi 0 0 1 1 1 1 07--17 LDA 0 1 1 1 A/8- D/iO I 00 1 1 07 37 LDB 0 1 1 1 A/B .. D/l 0 1 0 1 1 1 07.577 STB 0 1 Ir A8 1 0 1 1 1 1 1 1 0--17 IOR 0 1 11 A/8 D/l 1 0 0 0 i I I
117 1~1~ISZ o I II A/8 -- I 1 0 0 1 1 1 I
07.. 57 AND o II I A/R D/l 1 0 1 0 1 1 1\7.1177 DSZ O I I I AIP. I I O I I I I
07 717 JSM O I I I A/B - I I 1 0 o I I
07- 37 JMP o I I I A/B DA I 1 0 1 1 1 10~6~ ~ 4 ., . . .. . . . .. . .. ... . _ ... ... ... .
CoOlNG tA~L~ - CO~tltv UL-t:~
G~o~lp acrqL I~STR IS ~ 9 6~ ~ ~ s ~ 3-! 2 1 0 C ~ ~q P O -~ - o I fi ~: X ~ ~ / ~ / % ~ o EX~C~IJE O 7 o o 3 ~, D~ A o / / / O - -- _ _ o oMfl o 7 - o, 6 C t~
O ~ - o 7 G T C ~,~O I I I /B / I / I I /
I N P v~ 1 7 2 7 - -5 r~ I I I I ~ / o - / / / / ~-SEL~Cr _ oVrPur ~ 7 ~ 7 - -C L 1~ I t t I - I I / I I I
GA~oP ~ 7 - ?- - S t CI I I ~ c I / I O
. ~ . 1 7 - ~ ~ - 5 F SI I I / - I /~c I ~ I t~
7 ~ ~ ~ C ~t t / ~ ~c / C~ / I
1 7 ~ 6 - --5 T CI I I I ~ /c / ~ ~ O
/ 7 ~ O T ~i~t I t I /)/~ ~ ~/~c. o O I /
7 2 ~ /A~B I ~/c ~ / ~ I
7 - C~ t / t ~ /c O O o /
MAc !70 L~G2 R~rI / I I o ~ Q ~ O O ao o I O
~1~0~ 7~ Ot~2 ~VI I I IO C~ o o O O O~ O o I
i7 ~~~~ C~RI I I I ~ oO ~ ~ O O oo C~OO
/7000L~ XFP~I I I I~o~ oO o ooo / oo 17Y~l ~o I'IRXI I I II o o I u c~ o I I C) O o 17Yy70 1''1,~y1 / I I I oo t O O - I / I ~ O o 1 71 ~ 0 01~1 L SI I I I O O I I ~ O o t~ O o O
1 7t~ YI o D~ SI I I I t~ O ~ I t~ v o O I . O o o 1 75 ~¦ t7 t~C~ ~ 51 ¦ I / / O ~ ~ O O O C) o O G O
I 70 56~ flI I I I C~ t) O I o l l I O O t O
~ 71 46 ~ ~-~1 PI I I Io o I I o o I I C~ o G O
~~ 17~42t) FD~.~I I I IC)oC~ I C)O C) I t~ ooc~
1 7L~OO C M,'CI ~ 0 l o o o oCJ OO C~
/70yoo ~M'I'/ I I I0~O 10 ~ ~~~ ~~~
1 70 S ~It~~1 D ~:I / I I t~ C70 I O / / C~O OOC~
) 7/ ~ 1'3 1;~ ;11 1 1 1 0 0/ 1 O O / O l ~ ~ O
~' , io~ t;~
DETAILED LISTING OF ROUTINES
AND SUBROUTINES OF BASIC INSTRUCTIONS
A complete listing of all of the routines and sub-routines of basic instructions employed by the calculator and of all of the constants employed by ~hese routines and subroutines is given below. All of th~se routines, subroutines, and constants are stored either in the basic ROM or in the plug-in ROM modules employed therewithO Each page within the listing is numbered at the upper left-hand corner, and its number within the specification as a whole is indicated at the bottom of the page. Each line of each page is separately numbered in the first column from the left-hand side of the page. This facilitates reference to different parts of the listing. Des-criptive headings are also provided throughout the listing to identify routines, subroutines, groups of constants, different portions of the ROM, the plug-in ROM modules, etc. Each instruc-tion of each routine or subroutine and each constant stored in the ROM or plug-in ROM modules is represented in octal form by six digits in the third column from the left-hand side of the page, and the address of the ROM location in which each such instruction or constant is stored is represented in octal form by five digits in the second column from the left-hand side of the page.
Mnemonic labels serving as symbolic addresses or names are glven in the fourth column from the left-hand side of the page for most of the constants and many of the instructions to facilitate references to these constan's and instructions and associated instructions. The mnemonic codc- of each basic instruction and of each pseudo instruction is given in the fifth column from the left-hand side of thc page. As noted above, each basic instruction is employed as a step in a r ~0~ 4~
routine or subroutine of one or more basic instructions and therefore has an address in the ROM. Pseudo instructions such as ORG, EQU, etc. which appear (and are recognizable as not being one of the 71 basic machine instructions listed above) are used for control of the Assembler, which translates the symbolic/mnemonic coding of the fourth, fifth, and sixth columns into the address and contents of ROM registers which appear in the second and third columns. (See chapter 4 of the Hewlett-Packard "Assembler Programmer's Reference Manual"
of April~ 1970.) They are not employed as steps in the routines and subroutines performed by the calculator and therefore have no addresses in the ROM. Mnemonic operand codes are given in the sixth column from the left-hand side of the page, and descriptive comments are given to the right of the sixth column The format, assembly, and use of the listing is explained in greater detail in the above-mentioned Hewlett-Packard "Assembler Programmer's Reference Manual".
In addition, cross-reference symbol tables are included directly below each group of routines and subroutines for pro-viding an alphabetical listing of each of the mnemonic labels and operands. The number contained in the first column to the right of each mnemonic in the cross-reference table represents the line in the associated routine or subroutine listing at which that mnemonic appears as a label in column four. Sub-sequent columns beyond the first column to the right of each mnemonic in the cross-reference table represent the line in the associated routine or subroutine listing at which that mnemonic appears as an operand in column six.
10~ 4 PAGE 00~2 #el 9R30 ~ S~S~M SOFtWARE
~001 A5M8-A~L~C
~3~ MAIN SYST~M ~IR~W~E L~StING 3-27-72 0004- ,, ~005 ~O000 O~G 0 ~006~
0007 O0000 164121 J~p START-I START OF ~ONITOR
0008 60001 043060 0CT ~3060 CONSTANT NEE0E0 ~Y PQocEssoQ
~009 Z0002 161463 JSM lNtEL .1 I~TERRUP~
10~
0011 e0003 ~fl0000 Ch OC~ O ONE
~012 ~0004 t~l0000 OCT O1000~ 0000
14~ NEXT S
15~ NEXT R2 160 NEXT Ql 17~ NEXT Pl ~ o ~ _~ _ _ _ _ _ _ ~ _ _ _ _ Sample Program - Variable Number Of Loorfi 40 PRINT "HOW MANY TIMES DO YOU WANT TO LOOP";
5~ I NPUT A
- - 6~ EO R J = 1 TO A
7~ PRINT "THIS IS LOOP"; J
8~ READ N1, N2 , N3 -- 9~ PRINT "THESE DATA ITEMS l~lERE READ:" N1; N2; N3 1,~0 PRINT "SUM ="; (Nl+N2+N3) NEXT J
120 DATA 5, 6, 7, 8, 9, 10, 11, 12 ~ 130 DATA 13, 14, 15, 16, 17, 18, 19, 2,0, 21 140 DATA 22, 23; 24, 25, 26, 27, 28, 29, 30 15~ DATA 31, 32, 33, 34 16~ END
~ GENERAL EORM:
- statement number FOR simple variable -- initial val_e TO ~inal value or ~---- statement no. FOR simple var. -- initial value TO final value STEP step value .
statement number NEXT slm~le variable ~OT~: The sam~ simple vàriable must be used in both ~1e F~R and N~XT state-; ments of a loop.
, -132-~0~6644 F O ~ r C O N~TI N U ~ D
PURPOSE
Allows controlled repetition of a group Gf statements within a program.
COI~'lEN TS
Initial valuet final value and step value may be any expression.
S~EP and step value are optional; if no step value is specified, the computer will automatically increment ~y one each time it executes the loop.
How the loop works The simple variable is assigned the value of the initial value; the value of the simple variable is increased by 1 (or by the step value) each time the loop executes. When the value of the simple variable passes the final value, control is transferred to the statement following the "NEXT" statement.
The initial, final, and step values are all evaluated upon entry to the loop and remain unchanged after entry. For example, FOR I = l TO I + 5 goes from l to 6; that is, the f;nal value does not "move" as I increases with each pass through th~ loop~
For further details on the STEP feature, see "FOR...NEXT with STEP" in Section III
Try running the sample program if you are not sure what happens when FOR.o.
NEXT loops are used in a program.
~, . .
10~6644 NESTiNG ~O~..NEXr LOOPS
.
Several FOR...NEXT loops may be used in the same program;
they may also be nested (placed inside one another). There are two important features of FOR...NEXT loops:
1. FOR.~.NEXT loops may be nested.
----1 0 FO R Al = 1 TO 5 Range of loop Al - ~20 ~OR B2 = N TO P
-3~ FOP~ C3 = X TO Y STEP R
Range of loop B2 ~ ~
Range of loop C3 ~ -8p NEXT C3 9,~ NEXT B2 - 1~0 NEXT Al 2. The range of FOR...NEXT loops may not overlap. The loops in the example above are nested correctly. This example shows improper nesting.
10 FO R I = 1 TO 5 .
~;
--30 tOR J = 1 TO N
; ~he r~nge of loops I and J overlap. ~50 NEXT I
.
- - 9~ NEXT J
' . . I I
--1 ~4-.
10~664~
~ ~, . .
~ ~A~, ~ATA AND R~:S 3 CRE
Sample Program using READ and DATA
l5 FOR I=l TO 5 4~ LET X=A~2 4~ PRINT Ai" SQUARED =";X
50 ~EXT I
55 DATA 5.24,6.75,30.8,72.65,89.72 6~ END
... 7~.. .. , ~ .. . . .. ...
.
" Each data item may be read only once in this progral~.
TSE keeps track of data ~lith a "pointer." ~Ihen the ~ first READ statement is encountered, the "pointer"
fndfcates that the ffrst item in the first DATA state-ment is to be read; the po;nter is then moved to the second item of data, and so on.
In this example, after the loop has executed five times, the pointer remains at the end of the data lis~.' To reread the data, it is necessary to reset the pointer. A RESTORE statement moves the pointer back to the first data item.
.
( ') .
..
10466~4 ~EAD, DATA AND RE~iT~RE, CONT~NVEl:) Sample Program Using READ, DATA and RESTORE
2~ FOR I=l TO 5 30 REA~ A
~2 40 LET X=A~2 5~ PR~l A; "SQUARED -",X
6~ NEXI I
80 RESTORE c 100 FOR J=l TO 5 11~ READ ~ - -120 LET Y=B~4 . 13~ PP~INT B; "T~ THE FOURTH POWER =";Y
~ 140 NEXT J
150 DATA 5.24,6.75,30.8,72.65,89.?2 GENERAL FO~:
stateme.~t number READ vari~bl~ , variable ,...
s~eement number DATA nun~er or string , number or string ,...
sta~ement number RESTORE
statement ~umber RESTORE sta~eme~t number PURPOSE
The READ statement instructs TSB to read an item from a ~ATA statement.
The DATA statement is used for specifying data in a program. The data is read in sequence from first to last DATA statements, and from left to right within the DATA statement.
~ The RESTORE state,llent resets the pointer to the first data item, allowing data to be re-read.
RESTORE follo~led by a statement number resets the pointer to the first data item, beginning at the specified statemen~.
. . .
. -136-. ~ ~ .--4664~
~EA~, ~)A~ A~iD R~:S~OF~E:, CGN I II~UE~) :~ .
CON~IENTS
READ statements require at least one DATA
Std tement in the same program.
Items in a DATA statement must be separated - by comnas. String and numeric data may ~e mixed.
. .
DATA statements may be placed anywhere in 2 program. ~he data items will be read in se-quence as required.
DATA statements do not execute; they merely specify data.
. ,,. ,~ .
The RUN command automatically sets the pointer to the first data item.
If you are not sure of the effects of READ, OATA, and RESTORE, try running the sample programs.
",~ :
rv,.;. ~i~ ?, ~ , r rrl ' r ~ ~; ~?:': ' r A;~
10~6 WAIT
EXAMPLE 9~0 WAIT (10~0) ~90 WAIT (3~0) GENER~L FORM: s~c:atement nur~ e~ _lAIT ~ ~xpres~ion max. value of 32767 ) ' PURPOSE
Introduces delays into a program. WAIT causes the program to wait the specified number of miiliseconds (maximum 32767 mitliseconds~ before continuing execution.
COMMENTS
The time delay produced by WAIT is not precisely the number of milliseconds specified because there is no provision to account for time elapsed during calculation or terminal-computer conmunlcatton.
One millisecond - l/lOOO second.
~'. , ~g ----~04664A
TE~M: ROU~INE
DEF~NED IN BASIC AS: A sequer,ce of program statements which produces a certain result.
~ ~s~"~
PURPOSE
Routines are used for frequently perforined operations, saving the programlner the work of defining an operation each time he uses it~ and saving computer memory space.
COM~ENIS
A routine may also be called a program, subroutine, or sub-program.
The task performed by a routine is defined by the programmer.
~' _ .- ~
~0~6644 T ~ S~ R I ~l G
DEFINED IN BASIC ~S: 0 to 255 printer characters enclosed by quotation marks (one line on a tele~rinter terminal).
COMMENTS
. , ~ -5 --Sample strings: "ANY CH~RACTERS'?*/~
"TEXT l234567,.."
Quotation nlarks may not be used within a string.
Strings are used only in PRINT statements.
The statement number PRINT, and quotation marks are not included in the 65 character count. Each statement may contain up to 72 characters. Maximu!n string length is 72 characters minus 6 characters for "PRINT", two for the quotation mar~s, and the num-ber of characters in the statement number.
TEI~M: FUNCT10~
~ ~..... ~..... .......
DEFTNED IN BASIC AS: The mathematical relationship between two variables (X and Y, for examp~e) such that for each value of X there is one and only one value of Y.
CO~lENTS
Thc independent variable in a function is called an argument;
the dependent variable is the function value. For instance, if X is the argunient, the function value is the square root of X, and Y takes the value of the function, -~
,' ~0'~664~
TER1~: A R ~\Y 0F~ ~lQTRlX
DEFINED IN BASIC AS: An ordered co11ection of nume1~ic data (nilmbers ) .
COM~ENTS
Arrays are divided into columns (vertica1) and rows (hcri~ontal):
C R~W.S
U
N
S
Arrays may have one or two dimensions. For example, ~ 3.2 C 4.3 is a one-dimensional array, while 6 , 5 , 4 3 , 2 , 1 is a two-dimensional array.
Array elements are referenced by their row and column Position For instanceJ if the two examples above were arrays A and Z
respectivel~, 2.1 would be A(2); similarly, ~ wou1d be Z(3,1).
The references to array elements are called subscripts, and set apart with parenthéses. For example, P(1,5) references the fifth element of the first ro~ of array P; 1 and 5 are the sub-scripts. In X~11,N) M and N are the subscripts.
' 10'~644 TE~M: WORl) , ~EFINED IN BASIC AS: The amount of computer memory space occupied by two teleprinter characters.
COMMENTS
Numbers require th'O words of memory space when stored as numbers.. When used within a string, numbers require 1/2 word of space per character in the number.
109~644 SUE~ROU~IN~S AND.l~INCTIONS
The follo~ing pages ex~l~in BASIC ,eatures useful for re-petitive operations -- subroutines, programlller-defined functions and standard func-tions.
The program~1ler-defined f~ature~, such as GOSUB, FOR...NEYl with STEP, and DEF FrJ become m~re useful as the user gains experience and learns to use them as shortcuts~
Standard mathematical and trigonolnetric functions are convenient timesavers for programmers at any level.
They are treated as numeric expressions by BASIC.
.
10~66~
FOR...NEXT WIT~I ST~P
EXAMF'LES: 20 FOR 15 = 1 TO 20 STEP 2 40 FOR N2 = 0 TO -10 STEP -2 80 FOR P = 1 TO N STEP X5 90 FOR X = N TO W STEP (N~2-V) .
GENERAL FORM:
statem~nt no. FOR simple var. = expression Tn exp~ession STEP expression PURPOS E
Allows the user to specify the size of the increment of the FOR variable.
COMMENTS
The step si~e need not be an integer. For instance, 100 FOR N = 1 TO 2 STEP .01 ~s a valid statement which produces approximately 100 loop executions, incrementing N by .Ol each time.
A step s;ze of 1 is assumed if STEP is omitted from a FOR statement.
A negative step size may be used, as shown in statement 40 above.
10~fi4~
GENERAL M~THEMATlCAl. FU~ICTIONS
EXAMPLES 642 PRI'lT EXP(N); ABS(N) 652 IF RND (0)~=.5 THEN 9 662 IF INT (R) # 5 THEN 91 ~72 PRINT SQR (X); LOG (X) GENERAL FORM: The general mathematical fur,ctions may be used as expressions, or as parts of an expression.
~ PURPOSE
Facilitates the use of common mathematical functions by pre-defining thern as:
ABS (expression) the absolute value of the expression;
EXP ~expression) the constant e raised to the power of the expression value (in statement 642 above, e~N) ( INT (expression) the largest integer < the e~pression;
LOG ~expression) the logarithm of the positively valued expression to the base e;
RND (expression) a random number between 1 and 0; the expression is a dummy arsumenti SQR (expression) the square root of the positively valued expression.
,, COMMENTS
: T~e RND function is restartablei the sequence of random numbers using RND
is identical each time a program is RUN.
,.~ . / _ ... . ..
10a~6644 TRIGO~IC)MET :~IC t~lJNCTION~
EXAMPLES: 500 PRINT SIN(X) COS(Y) 510 PRI~T 3*SI~,(e); TAI~I (C2) 520 ~RINr AT~l (22.3) 53~ IF SI~i (A2) <1 THEN 80~
5~0 IF SIN (B3) = 1 ArlD SI~!X) <1 THE~ ~0 PURPQSE
-Facilitates the use of comnon trigcnometric functions by -pre-defining them, as.
S~N (exp~ession) the sine of the express;on COS ~xp~ession) the cosine of the expressicn TAN (ex~ression) the tangent of the expression ATN (exPression) the arctangent of the expression COMMENtS
The function is of the value of the expression (the value in parentheses, also called the argument).
The trigonometric functions may be used as expressions or parts of an expression.
The angle o~ ~he trlgoIlometric functions can be specified as radians, degrees, or grads by exccuting a RAD, DEG~ or &RAD statementO The calculator assumes radians if no~
specified.
THE TAB AiYD SGN FUNC:T!ONS
EXAMPLES: 500 IF SGN (X) ~ 0 THEN 8~0 510 LET Y = SGrl(X) ~
52~ PRINT TAB (5); A2; tAB (2~)"1EXT"
530 PRINT TAB (N),X,Y,Z2 540 PRINT TAB (X+2) 'iHEADINIG''; R5 GENERAL FO~ The TA~ and SGN may be used as expressions, or p~rts of an expression. The function forms are:
T~5 ( expression indicating nurilber of spaces to be moved ) SGN ( expression ) PURPOSE
TAB (expression) ;S used only in a PRINT statement, and causes the terminal typeface to move to the space number specified by the expression (0 to 71). The expression value after TAB is rounded to the nearest integer. Expression values greater that 71 cause a return linefeed to be generated.
SGN (expression) returns a 1 if the expression is greater than 0, returns a 0 if the expression equals 0, returns a -1 if the expression is less than 0.
~0~664 SE:C~ION 1 M~ I ~ICES
This section explains matrix manipulation. It is intended to sho~ the matrix capabilities of BASIC and assurnes that the programnler has some knowledge of matrix theory.
TE~M: M~T~,X (A~RAY) DEFINED IN BASIC AS: An ordered collection of numeric data (nurnbers).
Matrix elements are referenced by subscripts following the matrix variable, indicating the ro~ and column of the ele-ment. For example, if matrix A is:
the element 5 is referenced by A(2,2); likewise, 8 is A(3,2).
I See Section XlI,"Vocabulary" for a more complete description of matrices ( . ! ~
,; .. ~ _~
' . ~ . .
10~66 Dlr~
EXAMPLES: 110 DIM A (5~), B(2~,2~) 120 DIM Z (5,2~) 130 DIM S (5,25) 140 DI~ R (~
GENERAL FORM:
st~temeAt n~mber DIM matrix variahle ( inteae~ ) or - statement number DIM m~trix variable ( in~eger , ~nteger ) PURPOSE
Reserves working space in memory for a matrix.
The maximum integer value (matrix bound) is 255.
.
COMMENTS
The integers refer to the number of matr;x elements if only one dimens;on ~s supplied, or to the number of rows and columns respec~ively, if two dimens;ons are given.
A matrix (array) variable is any single letter from A to Z.
Arrays not mentioned in a DIM statement are assumed to h~ve lO elements ~f one-dimensional, or lO rows and columns if two-dimensional.
The working size of a matrix may be smaller than its physicdl size. For example, an array declared 9 x 9 in a DIM statement may be used to store fewer than gl elenlents; the DIM statement supplies only an upper bound on the number of elen1ents.
The absolute makir,!u;n matrix size depends on the melnory size of the computer.
-149_ ' ~046644 MAT...;Z~
EXAMPLES: 305 ~lAT A = ZER
310 ,~lAl Z - ZER (N) 315 MAT ~ - ZER (3~
32~ MAI R = ZER (N, P) GENERAL ~ORM:
statcment number MAT matrix variable - ZER
. _ _ _ _ _ _ or stat~nent numb~r MAT matrix variabl~ -- 7ER ( expr~ssion ) or state~ent nu~ber ~4T matrix variable - ZE2 ~ expression , ex~r ssion ) PURPOSE
Sets all elements of the specified matrix equal to 0; a new working size may be established.
COMMENTS
The new working size in a MAT...ZER is an implicit DIM statement, and may not exceed the limit set by the ~IM statement on the total number of elements in,an array.
Since 0 has a logical value of "false,"
MAT...ZER is useful in logical initialization.
I
~0~66 M ~T.. .C0 N
~,~.. , ,.,,~, . -~r~T~ ~ ~
EXAMPLES: 205 MAT C = CON
210 MAT A = CON (N,N) 220 MAT Z = CON (5,20) 230 MAT Y = CON (5~) GENERAL FORM:
stateme~t ~umber MAT matrix variable _ CON
~ ~ or statement number MAT matrix variable _ CON ( expression ) or statem~nt numher MAT matrix variab~ = CON ( expressio~ , eYpr~sion ) _ _ _ _ . _ _ _ PURPOSE
Sets up a matrix with all elements equal to 1, a new working size may be specified, wl~hin the limits of the original DIM statement on the total number of elements.
~ COMMENTS
The new working size (an implicit DIM statement) may be omitted as in example statement 205.
Note that since 1 has a logical value of "true,"
the MAT...CON statement is useful for logical initialization.
The expressions in new size specifications should evaluate to integers. Non-integers are rounded to the nearest integer value.
' ~0~669~
P~INTIl~G Sll~!GL~ MATRIX ELEr~'i'EN~S
... ... .~ .
EXAMPLES: 8~0 PRINT A(3) 81~ PRINT A(3,3);
820 PRI,~T F(X) jE; C5;R(N) 83~ PRINT G(X,Y) 840 PRINT Z(X,Y), Z(1,5), Z(X~), Z(Y~
GENERAL EORM:
statement number PRINT matrix variable ( expressi~n ) ...
_ _ _ _ _ _ _ or statement number PRINT matrix varic~ble ( expression , expression ) ...
PURPDSE
.
Causes the spec;fied matrix element(s) to be printed.
COMMENTS
Expressions used as subscripts should evaluate to integers. Non-intégers are rounded to the nearest ;nteger value.
, A trailing semicolon packs output into twelve elements per teleprinter line, if possible (statement 810 above). A trailing comma or retu~n prints five elements per line.
Expressions (or subscripts) following the matrix variable designate the row and column of the matrix element. Do not confuse these with new working size specifications, such as those following a MAT ~~
IDN statement.
10'~6~i44 t INPU-~rrlNG 5EI'~'~;LE ~.91~TRIA ELE~ NTS
EXAMPLES: 6~ INPUT A(5) 610 I~lPUT e(5,s) 620 INPUT R(X), N, A(3,3),S,T
630 INPUT Z(X,Y), P3, '~I
64~ INPUT Z(X,Y), ~(Xll, Y+l), ~Xt-R3, YTS2) GENERAL FORM:
stat~rnent nurnber I-l-p-ul ma_ri.x_variahle ( ex~r~s~c~n or statement number INPUT ~ tri~ variab.le 1 e~pre~sslon, ~xp.r~ssion 1 ...
, PURPOSE
Allows input of a specified matrix element from the ~c~bo~rd, COI~ ENTS
- The subscripts (in expressions) used after the matrix variable designate the row and column of the matrix ~ element. Do not confuse these expressions with work-tng size specifications, such as those following a AT READ statement..
Expression used as subscripts should eva1uate to integers. Non-integers are rounded to the nearest integer value.
Inputting, printing, and reading indi\~idual array elements are logically equivalent to simple vari-ables and may be intermixed in INPUT, PRINT, and READ StatelnentS.
MAT PRINT
PURPOSE
Causes an entire matrix to be printed, row by row, with double spacing between rows.
COMMENTS
Matrices may be printed in "packed"
rows up to 12 elements wide by using the ";" separatos, as in example statement 5~5.
10~6~Gi44 READING ~i~TRIX ELE~ 5TS
EXAMPLES: 9~0 READ A(6) 91~ REA~ A(9,g) 920 READ C(X); P; R7 93~ READ C(X,Y~
940 READ Z(X,Y), P(R2, S5), X(4) GENERAL FOP~M~
statem~nt nun~er READ n1atrix variable ( expression or statem~!nt rlumber READ ma~:rix variable 1 expression, cxpre~,sion ) ...
PURPOSE
Causes the specified matrix element to be read from the current DATA statement.
COMMENTS
~xpressions (used as subscr;pts) should e~aluate to integers. Non-int~gers are rounded to the nearest integer.
Expressions following the matrix variable designate the row and cc1umn of the matrix element. Do not confuse these with working size specifications, such as those following MAT READ statement.
The MAT READ statement is used .to read an ent;re matrix from DATA statements. See details in this section.
~0~66~4 1'~1RT RER9 . ~ EXAMPLES: 350 MAl READ A
370 MAT READ B(5',C,D
38~ MAT READ Z (5,8) 39a t~,AT READ l~ (P3,Q~) GENERAL FORM:
statcment numl~er ,~AT READ matr.ix variable ~ or statem~nt nu~r MAT READ matrix variable ( expression ) ...
or statement num~er MAT READ matrix variab~e ( ~xpressio~ , e~pression ) ...
PURPOSE
Reads an entire matrix from DATA statements.
A new working size may be specified, within the limits of the original DIM statement.
COMMENTS
MAT READ causes the entire matri~ to be filled ; from the current DATA staten1ent in the row, , column order: 1,1; 1,2; 1,3; etc. In this ~ case, the DIM statement controls the number of elements read.
10~ 6~91 MATR3~ h.D~lT5C~N
EXAMPLES: 310 MAT C = R + A
32~ MAT X = X + Y
330 MAT P = ~ + M
GENERAL FORM:
statement number MAT matrix variahle - matrix varia*le + matrix variable PURPQSE
Establishes a matrix equal to the sum of two matrices of identical dimensions; addition is performed element-by-element.
COMMENTS .
....
~ The resu~ting matrix must be previously ment;oned in a DIM statement if it has more than lO elements, or lO x lO ele-ments if two-dimensional. Dimensions must be the same as the operand matrices.
The san~ matrix may appear on both sides of the = sign, as in example statement 32~.
104~6~
MQTR3X SllÇ3~RAC-l~lCN
EXAMPLES: 550 MAT C = h - B
560 MAl B = B - Z
570 MAT X - X.- A
GENERAL FORM:
stat~nent nwl~er MAT mat~ix var_kle - mat~ix va~ le - matri.Y varlable PURPOSE
Establishes a matrix equal to the difference of two matrices of identical dimensions; sub-traction is perforlned element-t)~-ele,llent.
' CO~lMENTS
The resulting matrix must be previous1y tnentioned in a DIM statement if it has more t;lan lO elements, or IO x lO e1ements if two-dimensiona1. Its dimension n'ust be the same as the operand matrices.
The same matrix may appear on both sides of the = siqn, as in examp1e statement 560.
-158-.
~04~644 A-r R I Y~ M ~J LTI PL~ CATI O N
EXAMPLES: 93~ ~lAT Z = B * C
940 MAT X = A *h 950 ~IAT C - Z * B
GENERAL FORM:
statement number MAT matrix variable ~ mat~ix variable * matrix va~iable PURPOSE
Establishes a matrix equal to the product of the two specified matrices.
COMMENTS
Follow;ng the rules of matrix multiplication, if the dimensions of matrix B = ~P,N) and ma-trix C - (N,Q), multiplying matrix B by matrix C results in a matrix of dimensions ~P,Q).
Note that the product matrix must have an appropriate working size.
The same matrix varlable may not appear on both sides of the = sign.
--159 _ , , , 10~6644 SC~ R 1~LTIPLIC/~ rlOI~I
EXAMPLES: 110 MA~ A = (5) * B
115 MAT C = ~1~) * C
12~ I~AT C (N/3) * X
130 M~T P = (Q7*N5) * R
GENERAL FORM:
stat~ment nurnb~r MAT matrix variable - ( ~xpression ) * matrix va~iable PURPOSE
.- Establishes a matrix equal to the pro-~ duct of a matrix multiplied by a speci-fied expression (number); that is, each element of the original matrix is multi-plied by the number.
COMMENTS
The resulting matrix must be previously mentioned in a DIM statement if it con-tains more than 10 elements ( 10 x 10 if two-dimensional).
The same matrix variable may appear on both sides of the = sign.
.
Both matrices must have the same working size.
10~644 COPYING 1~ M~TRIX
EXAMPLES: 405 MAT B 'A A
41~ MAT X = Y
420 MAT Z = B
GENERAL FORM:
statement ~lumber MAT matrix variabl~ = matrix variable PURPOSE
--Copies a specified matrix into a matrix of the same dirnensions;
copying is performed element-by-element.
COMMENTS
The resulting matrix must be previously mentioned in a DIM statement if it has more than 10 elements, or 10 x 10 if two-dimens;onal. It must have the same di-mensions as the copied matrix.
. , ~ . ~ , .
..
.
., ~
.:
10~bi644 NT~TY MAT~IX
EXAMPLES: 205 MAr A = IDN
210 MAT B - IDN (3,3) 215 I~T Z = IDN (Q5, Q5) 220 MAT S = IDN (6, 6) GENERAL FORM:
s~atement numher MAT arrav variable - IDN
~r stateme~lt number MAT _ r~y ~ariable - IDN ( x~res.sion , e~pression ) ~ PURPOSE
Establishes an identity matrix (all 0's, with a diagonal from left to right of all l's); a new workin~ size may be specified.
(, COMMENTS
The IDN matrix must be two-dimensional ana square.
Specifying a new working size has the effect of a DIM statement.
Sample identity matrix: l 0 0 ~ 1 0 ~04~;644 RI~ T~A~YSPOSITION
EXAMPLES: 959 MAT Z - TR~ (A) 969 MhT X = TRN (B) G79 MAT Z = TRN (C) GENERAL FORM:
stat~ nt numb~r MAT mat:rix variahle ~ TRN ( matrix variable ) __ _ _ __ PURPOSE
Establishes a matrix as the transposition of . ~
a specified matrix (transposes rows and columns).
. COMMENTS
, Sample transposition:
Original Transposed l 2 3 l 4 7 Note that the dimensions of the resulting matr;x must be the reverse of the original matrix. For instance, if A has dimensions of 6,5 and MAT C =
TRN (A), C must have dimensions of 5,6.
Matrices cannot be transposed or inverted into themselvesO
104~644 M/~T~5~ IN~'~RSIO~Y
EXAMPLES: 38~ MAT A = INV(B) 390 MAT C = INV (A) 400 M~T Z = INV (Z) G ENERAL FORM:
statem~nt number MAT matrix varic~ble ~ INV ( mat:rix varia~le PU RP OS E
Establishes a square matrix as the inverse of the specified square matrix of the same dimensions.
COMMENTS
The inverse is the matrix by ~hich you multiply the original matrix to obtain an identity matrix.
For example, Original Inverse Indentity /1 0 O~ /1 0 O~ ~1 0 O~
I " ol x 1-~ ~ ~J = (~ ~ ~~
\l 1 1/ \0-1 1/ \o o 1/
-Number representation in BASIC is accurate to 6 7 decimal digits; matrix elements are rounded accordingly.
10~644 S~'llO~
LOGIC~L O~ ATION5 LOGIGAL VALUES A~D NUMERIC VALUES
A distinction should be made between logical values and the numeric values produced by logical evaluation, when using the logical capability of BASIC.
......
The logical value of an expression is determined by defi-- nitions established in the user's pro~ram. - -The numeric values produced by logical evaluation are as-signed by BASIC. The user may not assign these values.
~ogical value is the value of an expression or statement, u5in9 the criteria.
( any nonzerc expression value = "true"
any expression value of zero = "false"
When an expression or statement is logically evaluated, it is assigned one of two numeric values, either:
19 meaning the expression or statement is "true", or meaning the expression or statement is "false".
10~;644 I~EL~TIO~ .L OPEF~ATO~S
,.
There are two ~lays to use the rel2tional operators in logical evalua-tlons:
l. As a simple check on the numeric value of an expression.
EXAMPLES: l50 IF B=7 THEN 6~
2~0 IF A9~27.65 THEN 700 300 IF (Z/l0),~ THEN 80~
When a statement is evaluated, if the "IF" condition is currently true~(for example, B - 7 in statement 150)l then control is trans-ferred to the spec;fied statement; if it is not true, contro~ passes to the next statement in the program.
Note that the numeric value produced by the logical evaluation is un-important when the relational operators are used in this way. The user is concerned only w;th the presence or absence of the conditon indicated in the IF statement.
RELATIONQL OPEF~/~TOR~, col~l ri 2. As a check on the numeric value produced by logically evaluating an expression, that is: "true" = 1, "false" = 0.
EXAMPLES 610 LET X=27 615 PRI~T X=27 620 PRINT X~27 630 PRINT X>=27 , The example PRINT statements give the numeric values produced by logi-cal evaluation. For instance, statement 615 is ir,terpreted by BASIC
as "Print 1 if X equals 27, 0 if X does not equal 27." There are only two logical alternatives; 1 is used to represent "true," and 0 "false."
.
'- The numeric value of the logical evaluation is dependent on, but dis-tinct from, the value of- the expression. In the example above, X equals 27S but the numeric value of the logical expression X=27 is 1 since it describes a "true" condition.
,.
167- .
._ There are two ways to use the Boolean Operators.
1. As logical checks on the value of an expression or expressions.
EXAMPLES: 510 IF A1 OR B THEN 670 54~ IF X THE~ 7~p ~ , . . ..
Statement 510 is interpreted: "If either Al is true (has a non-zero value) or B is true (has a non-zero value), then transfer control to statement 67~
Similarly, statenlent 540 is interpreted: "If X is true (has a non-zero value),then transfer control to statement 700."
The Boolean operators evaluate expressions for the;r logical values only: these arc "true" = any non-zero value, "false" - zero. For example, if B3 ~ 9 and C9 = -~, statement 52~ would evalua~e to "true," since both B3 and C9 have a non-zero value.
2. As a check on the numeric value produced by logically evaluating an expres-sion, that is: "true" - 1, "false" = 0.
EXAMPLES: 4g~ LET B ~ C - 7 5~ PRINT B AND C
520 PR~NT NOT B
Staten~ents 500 - 52~ return a numeric value of either 1, indicating that the statement has a logical value of "true", or 0, indicating a logical value of "false".
~ote that the cr;teria for determining the log;cal values are:
true = any non-zero expression value false = an expression value of 0. ~
The numeric value 1 or 0 is assigned accordingly. . ~' lO ~ ;4~
SEC~ION Vl SYF~TA)~ ~EQUI~ NTS I~F B~SIC
.. r LEGEND
::= "is defined as..."
¦ "or"
< > enclose an element of BAS~C
LANGUAGE RULES
lo The <com statement>, if any exists, must be the first statement presented and have the lowest sequence number; the last state-ment must be an ~END statement~.
( 2. A sequence number may not exceed 9999 and must be non-zero.
3. Exponent integers may not have more than tl~o digits.
4. A formal bound may not exceed 255 and must be non-zero.
5. A subroutine number must lie between l and 63, inclusive.
.
6. Strings may not contain the quote character (").
7. A <bound part> for an IDN must be doubly subscripted.
8, An array may not be inverted or transposed into itself.
An array may not be replaced by itself multiplied by another array.
( 10~;44 SYNTAX R ~Q U I R E r~s ~ N TS
(l) <basic progra~ <program statement>¦<basic program><program statement> ~, <program staten~nt~ ::= <sequence number><basic statement>carriage return <sequence number> ::= <integer>
<basic statement> ::= <let statement>¦<dim statement>¦<com statement>
" ' <def statement~l<rem statement>l<go to statemen~>
'' <if statement>l<for statement>l<next statement>
<gosub statement>¦<return statement>l<end statement>¦
<stop statement> <wait statement> <call statement>l ~data statement> <read statenlent~ <restore statement>¦
<input statement: ~I<print statemen,>l<mat statement>
~let statement> ~ let head><formula>
~let head> .:= LET<variable>=¦<let head><variable>=
<formula> ~:= <conjunction~¦<formula>OR<conjunction~
cconiunction> .:- <boolean primary>¦<conjunction>AND<boolean primary>
~boolean primary> ~ arithmetic expression>¦~boolean primary>
~relational operat~r><arithmetic expression>
! <arithmetic expression> := <term>¦<arithmetic expression> + <term>¦
arithmetic expression> - <term>
<termP o:- ~factor>l<term~*<factor>l<term>/<factor>
<factor> ~ ~primary>¦<sign><primary>¦NOT<primary>
<prim~ry~ operand~¦<primary>~<operand>
<relational operator> ~ <=1-1#1~>
coperand> ~:- <variable>¦<unsigned number>¦<system function>¦
~function>l<formula operand>
<variahle> o:- <simple variable>¦<subscripted variable>
<sim~le variable~ ::= <letter>¦<letter><digit>
<subscripted variable> ::= <array identifier><subscript head><subscript>
<right bracket>
. . <array identifier> ::= ~letter>
~ <subscript head> ~:- <left bracket>¦<left bracket><subscript>
~subscript> .:= ~formula>
<letter> ' :- A¦B¦C¦D¦~¦F¦G¦H¦I¦J¦K¦L¦M¦N¦O¦P¦Q¦R¦S¦T¦U¦V¦~¦X¦Y¦Z~digit> o.= 0¦112¦3¦4¦516¦718¦9 <left bracket> ~:= (I[
~right bracket~ 1]
<sign>
<ulsigned number, ~ = <decimal part>¦<decimal part><exponent>
, J
~0'~66~4 ~ . .
SYNT~.X REQUIF'EMENTS, CONTlNUE~;n .: ..... .
' ,... - f ,.
.-. - .-- cdecimal part> ::= <integer>l<integc~>.~integer>l.<integ~r~ -~- : <integer~ ::= <digit>¦~integer><digit~
<exponent< ::= E~integer>¦E<sign><integer,~3) ;~
<system function> ::= <system function name~par2meterpart~
cSyStem function name> ::= SIN¦COS¦TAN¦ATN¦EXP¦LOGIABSlSQRlINTlRNDlSGN
<parameter part~ s <left bracket><actual parameter>~right bracket~
<actual parameter> ::= <formula~
~function~ ::= FN<letter~<parameter part>
formula operand> ::= cleft bracket><formula><right bracket>
<dim statement~ ::= DIM~formal arra~ list>
<formal array list> ::= <formal array>l~formal array list~,<formal array>
cformal array> ::= <array identifier><formal bound head~<formal bound~
<right bracket>
cformal bound head> ::= <left bracket>¦<left bracket><formal bound>, <formal bound> ::= <integer> ~4) <com statement> ::= COM~formal array list~
.- <def statement> ::= DEF FNcletter><left brac~et><formal paranleter>
<right bracket>=cformula>
cformal Darameter> ' :-= <sim.nle Y2ri.2ble?
crem stateMent> ::= REM<character string>
<character string> ::= any teletype character except carriage return, alt mode, escape, rubout, or line feed, or null, control B, control C, left arro~
<goto statement> ::= GO TO<sequence number>
cjf statement> ::= IF<formula>THEN<sequence number>
<for statement> ::= ~for head>¦<for head>STEP<step size>
~ <for head> ::= FOR<for variable>=<initial value>TO<limit value>
<for variable> ::= <simple variable>
<initial value> ::= <formula>
<limit value> ::= <formula>
<step size> ::= <formula>
<next statement> ::= NEXT<for variable>
C9osub statement ::= GOSU8<sequence number>
<return statement> ::= RETURN
<end statement> ::= END
( <stop statemcnt~ ::= STOP
~0~6~
SYNTAX F~EQU I R~M ENTS, CONTINUED
~ait statement~ ::= WAIT<parameter part~
<call statement~ ::= CALL<call head~<right bracket>
~call head~ ::= <left bracket><subroutine number~l<call head>, <actual parameter>
~subroutine number> ::= <integer>(5) <data statement~ ::= DATA<constant>¦<data statement~,<constant~
<constant~ ::-. <unsigned number~¦<sign>~unsigned number>
<read statement> ::= READ<variable list~
<variable list> :::= <variable>¦~variable list>, <variable>
<restore statement> ::= RESTORE
<input statement> ::= INPUT<variable list~ -<print statement> ::= <print head>¦<print head><print formula>
<print head~ ::= PRINT¦<print head><print part>
<print part> ::= <string>¦<string~<delinliter>¦<print formula>
<delimiter>l<print formula><string>
<print formula~<string><delimiter>
<string~ ::= "<character string>"(6) <delimiter> ::= ,1, <print formula~ ::= <formula>¦TAB<parameter part>
<mat statement~ ::= MAT<mat body>
<mat body> ::= <mat read>¦<mat print>¦<mat replacement>
<mat read> ::= READ<actual array>¦<mat read>, <actual array~
<actual array> ::= <array identifier~¦<array identifier><bound part>
<bound part~ ::= <actual bound head><actual bound><right bracket~
<actual bound head> ::= <left bracket~¦<left bracket><actual bound~, cactual bound~ ::= <forn,ula~
<mat print> ::= PRINT<mat print part>¦PRINT<mat print part><delimiter~
mat print part~ ::= <array identifier~¦<mat print part><delimiter~
<array identifier>
~mat replacement> ::= <array identifier>=<mat formula~
~mat formula> ::= <array identifier>¦<mat function>¦<array identifier>
<mat operator><array identifier>l<formula operand~*
<erray identifier~
I
~.. . . . ..
104664 !/~
SY~ i A~ F; E~2UI ~l~M ~N~ , CON ~INUED
<mat funct;on~ ::= <mat initialization> <mat initialization>cbound part~¦
INV<array parameter> TRN<array parameter>
<mat initialization> = ZERlcoNlIDN(7) <array parameter~ ::= <left bracket~array identifier><right bracket>(8) <mat operator> . = +I-I*
, . .
, . _ ~046644 STRINGS PLUG-IN READ-ONLY MEMORY MODULE
The strings plug-in read-only memory module makes available t~ the user all of the string variables functions and operations associates with standard BASIC programming language. Two additional functions not usually provided in most versions of BASIC language have been implemented.
These include a POS function for determing the position of a substring within a string and a VAL function for deter-mining the position of a substring within a string and a VAL function for determining the numeric value of a string.
A discussion of these and other string functions and op-erations follows.
String "- ~ A set of 1 to 255 characters or the null string (no -- characters).
e.g. "ABCDEF"
"12345"
.. ..
String Variable A variable used to store strings; consists of a single letter (A to Z) followed by a $.
e.g. A$; B$; Z$
Substring Variable A single character or a set of contiguous characters from within a string variable. The substring is defined by a subccripted string variable. A single subscript specifies the first character of the substring and implies that all characters following are part of the substring. Two subscripts specify the first and last characters of the substring.
e.g. A$ = "ABCDEF"
A$(4) = DEF
A$(1,3) = ABC
DIM Statement General Form:
stmt # DIM string var ( #chars in string ) Purpose:
Reserves storage space for strings longer than 1 character.
~046644 Comments:
The number of characters specified for a string in its DIM statement must be expressed as an integer form 1 to 255.
Strings not mentioned in a ~IM statement are assumed to have length 1. The length mentioned in the DI~ statement specifies the maximum number of characters which may be assigned and is known as the physical length. The actual length is the actual number of characters which has been assigned.
e.g. DIM A$(1~), B(5,5), B$(25S) Source String Semantic Description A source string is an entity from which a string value is extracted. If no substring designator is specified for a string variable, the value of the source string is the entire logical string curretnly assigned to it. Substring designator expressions must be at least 1 in value and the second may be no smaller than one less than the first. If one subscript is given, the value is the entire logical string beginning at the character specified by the subscript. The subscript may be no larger than the actual length of the string plus 1. I~ two substring expressions are given, the source string value is the substring whose first and last characters are designated. If the specified substring extends beyond the logical length o~ the string, spaces are used to fill out the substring.
Assignment Statement General Form:
line # [LET] destination string = source string Destination String:
A destlnation string is an entire string variable or part of a string variable into which a source string is to be copied. ~he definition of the action depends on the number of substring subscripts specified in the destination string.
If no subscript qualifier is specified, the entire de~tination variable is replaced by the source string. The physlcal length of the destination string must be large enough to accommodate the entire source string.
If one substring subscript is specified, the entire value of the destination variable, beginning at the designated charact-r, i8 replàced by the source string. That part of the sCriPt Value must be nO mor Suhscript value is Unchan d actual length of the destination variable.
u b s r l p t m u s t b e n o m o r e t h n o n ~ g r e t e r t h a n t h e 1 o g i c a l .~
must be no greater than the physical length of the destinationvariable. The specified section of the destination string is replaced by the source string. If the source string is longer than the destination, it is truncated on the right. If the source string is shorter, as many trailing blanks are appended as necessary. The new actual length of the destination string is the larger of the old actual length and the second subscript.
String Input Statement General Form:
stmt # INPUT string or substring variable Purpose:
Allows string values to be entered from the keyboard.
Comments:
Numeric variables may be used in the same input statement as string variables. Placing a single string variable in an input t' ~;
statement allows the string value to be entered without en~
closing it in quotation marks. If multiple string variables are ;--used each string value must be enclosed in quotation marks, and the values separated by commas. ~ ~-' . -'; '~
e.g. 10 INPUT A$, B$, C, A1, A$(1,5) ;~
String Print Statement General Form: - ~-stmt # PRINT string or substring variable, --Purpose:
Causes the current value of the specified string orsubstri~g variable to be output on the standard output device.
Comments:
Strings and numeric values may be mixed in a print statement.
8telng var1ables are specified identically to numeric variables, They are prlnted under the same format rules as quote fields string and substring variables are printed as source strings A maxlmum of 72 characters can be printed using the pti7n2t statement, i.e., all strings ~72 characters are truncated ~ ' lO~j6~ ~
String Read Statemell-t General Form stmt # READ strillg or substring variable Purpose:
Causes the value of a specified striIlg cr substring variable to be read from a data statement.
Comments:
Mixed string and numeric values may be read~ If the wrong data type is given in the data sta~ement an error is given.
e.g. lO READ A, B$(1,1~), C$, B
String If Statement General Form:
stmt X IF str.~ar. rel.oper string THEN stmt #
Purpose:
Compares two strings. If the specified condition is true, control is transferred to the specified statement.
Comments:
Strings are compared one character at a time, from le4t to rlght; the first di~ference determines the relation. If one string ends before a difference is found, the shortest string is considered the smaller one.
Characters are compared by their ASCII representations.
The relational operators allowed are~ , <, >, <=, >-, O
e.g. 10 IF A$ - ~SA~ THFN 20 Strin~ Data Statement General Form:
stmt ~ DA~A ~'strilg t~xt", "string text", --,.
i ~()46644 Purpose:
Specifies data in a program (string or/and numeric) Comments:
String values must be enclosed by quotation marks and separated by commas.
Steing and numeric values may be mixed in a single data statement.
e.g. 10 DATA "ABC", 1.2, "DEF"
String Write Statement ~~~
General Form:
stmt # WRITE ( device # , format stat #
string or substring variable Purpose:
Similar to the print statement but allows the specifi-cation of the output device and format statement. No field specifications are made for string variables in the format statement. They are treated identically to string constants (quote .fields).
String Display Statement General Form:
stmt # DISP string or substring variable Purpose:
Identical to print statement except output device is 32 character display.
LEN Function General Form:
LEN stringor LEN (string) Purpose:
Obtain the length of a string for use in an arithmetic ' -178- - ~
.:
10 ~6644 Comment:
The actual letlgtil is found ~tliC~l is not necessari]y the same as the physical length reserved in the DI~I statcment.
e.g, LE~ (r~ABCD") = 4 POS Function General Form:
POS string , string or POS ( strin~ ~ string ) Purpose:
Determine the position of a substring ~Yithin a string, Comments:
If the second string argument is a part of the first, the value of the function is the position in thc- first string at which the second string starts. If the second string in the argument is not a part of the first, the value of the func-tion is zero.
e.g. POS (~ABCD~' , "C") = 3 VAL Function General Form:
VAL string or VAL ( string ) Purpose:
Determine the numeric value of a string~
~~ Comments:
The VAL functi.on converts a strin~ of di~its into a number, The string is converted into a number by the same rules used in a numeric input statement, e,g. VAL ("123") = 123 _1 79 _ .
::
., . ~.. . t lV46644 ERROR ~ESSAGES FOR STRING OPTION BLOCR
70 - string IF error 71 - string function syntax error 72 - negative string length 73 - non-contiguous string ~74 - string overflow 75 - data is of wrong type 76 - VAL function argument not numeric BNF SYNTAX DESCRIPTION
<literal string~ ::="<character strinq>"
~character string~ ::=<character~¦~character string>
~character~
~character> ::= any ASCII character except NULL, LINE FEED, RETURN
<letter> ::= A¦B¦ ~-- X¦Y¦Z
~sublist) =<expression>¦<expression~,<expression>
<string variable> ::=~simple string variable>~
Csimple string variable>(<sublist>) <simple string variable> ::=<letter~$
~relational operator~ ::=C~ #~
~assignment statement> ::=LET~destination string~=<source strin~
T ~destination string~=~source string>
<destingation string> ::=~string variable>
~source string~ string variable>~literal string~
CIF statement~ IF~destination string>~relational operator~ ~source string>THEN~line number>
~data statement> ::=DATA<constant>l~data statement~, <constant>
~conqtant> ::=~numeric constant>¦<literal string>
~read statement~ ::=REA~<variable list>
~variable list> ::<read variable>l~variable list~, ~read variable~
~read variable> ::=~numeric variable> ¦~string variable>
<input statement> ::=INPUT~variable list~
<print statement> ~ print ~>¦ ~print 2>
<print 1~ ::=printl<print 2>,j<print 2>;~<print 3>
:
~6644 ~print 2~ print 1><~rint expression~¦
Cprint 3 ~rint 3> ::=(type statement><literal string~
<print expression> =~expression>¦<source string>
WRITE and DISP statements have the same syntax as the PRINT
statement.
~LEN function> ::=LEN~source string>¦LEN(~source string>) <VAL function> ::=VAL~source strin~jVAL(~source string>) <POS function~ ::=POS<source string~,<soUrce string>l POS(~source string~,~sc,urce string>) '~ '.
r -, - -10~66~
EXTENDED INPUT/OUTPUT PLUG-IN READ-ONLY MEMORY MODULE
The extended I/O read-only memory module (hereinafter referred to as the extended I/O ROM) provides additional functions and statements so that the calculator can be made compatible with a wide variety of peripheral devices. Added functlons include decimal-to-binary and octal-to-decimal conversion, status code inquiry for peripheral ~evices, control of spacing and line feeds in output records, and - others Use of these functions requires no special programming techniques; once the ROM is plugged in, its functions and statements become a part of the calculator, in the same way as, for example, the square root function is part of the calculator.
Some read-only memory units decrease the amount of programmable memory available to the user by automatically requiring a portion of that memory for their own internal usage, but the extended I/O ROM has no such requirement and does not affect memory availability.
The following table describes the extended I/O ROM
functions and statements Parameters shown underlined in the table are explained immediately following the table.
Parameters shown in brackets may or may not be included as parts of a statement.
\
10~i6~
- - .
.
~~ FUh'CTION ~E~IONIC DESCRIPTION OF FUNCTION SYNTAX
BIN Converts declmal expression to its binary BIN exp . equlvalent. For use ln output-to-blnary stora~e device; also provides increased control of print format.
OCT Converts octal expression to decimal OCT exp equivalent. For use in construction of I code conversion tables; see "Conversion Tables".
~TAT Returns code of operational status (on, STAT select code off, wait, etc.) for the device specified by the select code.
CHAR Returns one byte of data from the device CHAR select code specified by the select code regardless oi the data structure.
L'~' Advance~ printer or tyPewriter the number LIN exp of lllles represented by the expression.
SPA Advances printer or typewriter carriage SPA ex~
the number of spaces represcnted by the expresslon.
ROT Converts expression 1 to binary equiva- ROT(exp l,exp 2) ; lent; performs rotation right the number of positions represented by expresslon 2; returns decimal equivalent. For use ' ln special input or output code trans---- latlon, INOR Comblnes binary equivalents of expres- INOR(exp l,exp 2) sion 1 and expression 2 in an "inclusive or" lo~lc operation. Returns decimal equivalent. For use ln special input or output code translation.
-184_ 10~;644 -_ .L 1 . ' ' .
- ~ FUNCTION b~EUONIC DESCRIPTION OF FUNCTION SYNTAX
: : BIAND . Combines binary equivalents of expression BIAND(exp 1, exp 2) 1 and expression 2 in an "and" logic operation Returns decimnl equivalent For use in special input or output trans-lation.
STATEb~NT SYNTAX ¦ DESCRIPTION OF STATE.~NT
ENTER (select code or string name, format~,conversion table~) list r. FOR function¦ ~
--L J
Inputs data from named device or string with optional -~
conversion to ASCII code; includes capability for iteration.
OUTPUT (select code or string name, format [, conversion table~ ) list Outputs data to named device or string with optional conversion to ASCII code, -10 ~;44 :: PARA~TER EXPLANATION
exp Expression - selcct code A numcric code, from 1 to 15, uniquely representing the input or output device, as follows:
select code 1-9 User assignable.
select code 10 Cassette Memory.
- - select code 11-13 reserved.
select code 14 Plotter.
select code 15 Typewriter or Printer, string name A single letter followed by a "$". Valid only when String RO~I is also plugged ln. -~
format To reference a FORh~T statement, the line number of that .. ~..
statement is shown; for free-form data, an asterisk ($~
is shown.
conversion table The variable or array name given to a conversion tahle See heading "Conversion Tables".
list A list of variables, literals, expressions or numerics separated by commas FOR functions To input multiple data items from one record into an array, Syntax as follows:
(FOR var 1 exp TO exp, [(FOR var 2- exp TO exp,] name(var l[,var 2~ )[)] ) 10~
CONVERSION TABLES
Using a pre-established conversion table, a string of characters or an array of data can be converted from one code to another. The calculator makes use of standard ASCII~ codes.
Let us refer to all non-ASCII representation codes used by printers, card readers, paper tape readers, punches, type-writers, etc. as "foreign codes."
A conversion table is defined in the BASIC language program DIM statement. Only single-dimensioned integer arrays are considered valid for use as conversion tables. In the following DIM statements, A and B are valid array structures for conversion tables, but C, D, and E are not.
DIM AI (150), CI(20, 30) DIM BI ( 80), D(200), E(15, 15) In order to insert conversion table information in the array, the foreign code must first be ~own Suppose your paper tape reader uses EIA** coded tape. The chart following shows symbols and the equivalent tape punches for EIA code, with the octal code equivalent for each symbol.
* Amerlcan Standard Code for Information Interchange.
** Electronic Industries Association Standard Code.
~0~66~4 - 188-STANDARD TAPE
cHANriEL AIUMBERS E I A
a 7 6 5 4 '~ 3 2 1 (2ERO) 0 ) 040 ~ 1 ~ 001 ~ 2 - @ 002 3 - i 023 ~ ~ 4--S 004 ~ ~ ~ S - / 025 6 - ~ 026 ~ 7 - 6 007 ~ ~ 8 - ~ 010 ~ ~ . ~ 9 - ( 031 a --A 141 - ~ ~ ~ ~ b --13 142 ~ c - C 163 ~ , d - D 144 ~ ~ ~ ~ ~ ~ e - E 165 f --F 166 O ~ <~ --G 147 ~ ~ ~ ~ h --H 150 ~ - - - - ~ i --I 171 ~ ~ ' ~ i --J 121 ~ ~ . ~ Ic --it 122 ~ ~ ~ O1 - 1, 103 S ~ ~ ~ m --M 124 ~ ~ - ~n --N 105 ~ ~ o o ~ - O 106 p--P 127 ~ ~ Q ~ ~ - Q 130 r - R 111 5 _ 5 062 ~ . ~ ~t - T 043 ~ - ~ - U--U 0~4 ~ ~ ~ ov - V 045 x _ X 06/
~ ~ ~ ' Y --Y 070 . ~ , SPAC~ 020 - ~ 100 ~ -. ~/ _ ? 061 ~ ~ ~ ~STOP 013 ~~ ~ . ~ ~ 133 ~ ~ ~ . ~ ~' - ' 073 ~ _ ~ 153 ~ ~ - ~ P(iNCII ON 114 ~ ~c ~ . ~ UPPER CASE 174 ~~. ~ . ~ -- TAB 076 ~ ~ ~ ~ COh-~ROL 016 ~ ~ . ~ ~ ~PUNCII OPP 067 ~ ~ ~ ~ ~ DATA SELECTOR(AUX.3) 037 OI~I PEED (AUX. ~ 117 ~ ~ . ~ BACK SPACE 062 ~ ~? ~ . - ~
~ -- ~
~ ~ ~ ~ ~ ~ ADDRESS IDEN.(AUX~! 135 ~ ~ ~ ~ . ~ LOWER CAS~ 172 ~ -- ~ ~ ~ .
O ~ . ~ -~ ~ O ~ ~ ~ ~ ~ I~APE PE~D 177 . CAR. RE~. 200 . . I
o ~D
v 11 ~ ~ ~ W ~I O~ ~ n oT
~ f) - -co. 1-' I; - . ~n O
cr~, 0 z 3 r 7c ~ T C) ~rl m O ('I W p ~ ~; ! u _ _ _ _ _ _ _ _ _ _ _ _ n ~
lO~
The following charl; shows the information to be pro-grammed into the conversion table.
sp O~0 ~ ) oLJ(~ r~
oL~ (3 /Y 7 . !.(~2~. . .. :
~ 3 C /~3 /a3 . .
g Oy~l 3 t jty ~~ / 0~ , _ _ _ _ 7 _ _ _ f 0 7 _. . _ .. . . . . ., .. . . . . .. .. .. / _ . . . _ . .. . .... _. _ . .
... .7 . . . ~ ~ 2 / ~ 2 _ ~
. . . _ . .~.. ~ Z . i~ /22 //3_ _ _ L / ~ 3 _ .. . . . . ... _ . . . ... _ _ . _ _ .
',G7~,, ' 0~ 2y ~ r ' ~ ~
-~ C0 ' C~ ~J ~~ OS' ~6 3 ~ ,Z ' ~ (~) '' /QC~ 7 ,, 6~ .--------~J-~7---- /27 / 20, . . , ~ Q / 3~ ~ 2~ ~ i L~o ~ i 2 2 ------ --- ' I . ~~~6'-4!' ~ S 62 1 i23 ., . ,., Z ,,o,o~0'6,~ T' ,~3 __3 o 23,___. ~OZ3 _ (J _ 6~ '2 r- . 4 oa~ .
. . . 5~ ~ 2 5--~ O ~ 2 .... 6 . ~ o .. ~~~~. X 67 ~ 30 __ 7 0 7_ o 6 ~ . . 7~ . _ _ . . . . _ . . _ a 7~ Z ~7 J 32~ _ ~ ~ f0 7,/
.. . . . _ . . . . . , . .. , .. .. . ., . .. _ . ~ ~
. . .. . ~ _ . . . .. .. . .: . . . . .. . . . . ., . . . ~ . . . .. _ _ , _ . . . _ _ .. . ... __~ _ . ~ _-- \. ).~3 .. . . . . _ .. _ _ . _ . .... . . . _ _ . . _ ~ 73 ~ /3~
.C a?Y; ~3~-~ . ~ 7 ~
i~ ~7.7G . . . ....... . . .. ....
i? ~7,~
C~R~ _ 20~ d/2 ~ . . .... ....
10'16644 The conversion table portion of a BASIC program is shown on the chart below. Each statement defines one element in the conversion Table A with the use of the OCT function: the octal notation does not need to be translated to decimal. If decimal notation was supplied in the symbol tables, the OCT
function could have been omitted; however, it is common to obtain symbol tables in the octal form rather than in decimal form.
10 DIM AI~128]
2~ A OCT20]=OCT40 30 A-OCT73]=OCT54 40 A OCT1~0]=OCT55 50 A-OCT153]=OCT56 6~ A OCT61]=OCT57 7~ A OCT40]=OCT6 8~ A OCTl]=OCT61 9~ A OCT2]=62 1~ A OCT23]=OCT63 110 A-OCT4]=OCT 64 120 A OCT25]=OCT65 130 A OCT26]=OCT66 140 A OCT7]=OCT67 15~ A-OCTl~ =OCT7 160 A OCT31 =OCT71 170 A OCT201 =CCT12 180 A OCT141 =OCT101 19~ A-OCT142 =OCT102 200 A OCT163 =OCT103 21~ A OCT144-=OCT104 ~ 220 A OCT165 =OCT105 23~ A:OCT166-=OCT106 24~ A OCT147 =OCT107 25~ A OCT15~-=OCTll~
260 A~OCT171 =OCTlll 270 A OCT121 =OCT112 28~ A-OCT122 =OCT113 290 A OCT103 =OCT114 3~0 A rOCTl 24 =OCT115 31~ A~OCT105~=OCT116 32~ A OCT106 =OCT117 33~ ArOCT127 =OCT120 34~ A OCT13~ =OCT121 35~ A OCTlll =OCT122 36~ A OCT62-=OCT123 37~ A OCT43 =OCT124 38~ A OCT64 =OCT125 390 A OCT45 =OCT126 4~0 A OCT46-=OCT127 410 A OCT67-=OCT130 42~ A OCT76-=OCT131 430 A OCT51 =OCT132 10~6644 ENTER
When a CHAR rcquest is keyed into the calculator for the paper tape reader, conversion is not done and the calculator will display t,le decimal equivalent of the EIA octal code for the symbol taken from the paper tape. In order to have automatic code conversion, the program must contain an ENTER statement.
410 ENTER (9r 420, A) B
B will be read and its ASCII equivalent found in the conversion table A. If data contained in a string is to be converted to ASCII code, the string name is used instead of the select code, and in this way conversion can be done internally as well as at time of input or output.
OUTPUT
For output of data in a foreign code, automatic code conversion is invoked by use of the OUTPUT statement.
500 OUTPUT (8, 510, A) B
The ASCII B will be found in the conversion table A and changed to the foreign code equivalent before output. Notice that the same conversion table A is used for input and output. The ENTER
~0 ~tatemont caus~s the calculator to look for ASCII code, (on the right of the equals (=) signs in the table), and assume that it is receiving foreign code; whereas the OUTPUT statement causes the calculator to assume it has ASCII code, and to look for the foreign code (on the left of the equals (=) signs in the table) above.
ERROR CODES
Program diagnostic or error conditions found in the Extended I/O ROM:
NVMBER EXPLANATION
30ERROR 83 End of data reached or data contains more than ten (10) blanks in a row.
ERROR 84 Invalid format specification: format must be free format (*), E format or F format.
~ - 192 --- 104~i~44-ERROR 85 Num~ric input syntax error: multiple decimal poiLts, more than one E in E format, etc..
ERROR 86 Conversion table.not found. Check for integer initialization in DIM statement.
- Iq~
10~ 44 TERMINAL PLUG-IN READ-ONLY MEMORY MODULE
The terminal plug-in read-only memory module that is available with the calculator allows the user to enter, store, and edit free-text. It also allows the user to communicate, either directly or through an external modem, with another calculator, a computer or a time-sharing computer system The calculator may transmit or receive BASIC language programs or free-text To put the calculator into terminal mode, the user types in TERM and actuates the EXECUTE key If he wants to use the calculator for data transmission, he can specify one or two optional parameters following the TERM mnemonic The first parameter is the select code of the modem interface module. If another select code is not specified the calculator assumes select code four The second parameter is the baud rate of the transmitted dataO If not specified, the calculator will assume 110 baud which is the same rate as a standard ASR232 teletypewriter. For example, to transmit or receive on select code six at 300 baud, the user enters TERM,6,300 followed by actuation of the EXECUTE key The selectable baud rate is continuous in integer increments from 3 to 300. The conversion of characters from parallel to serial format is done automatically within the calculator firmware, so the modem interface circuitry is simplified and no switches are required to change baud rate~
While the calculator is operating in the terminal mode, lines of text may be entered from tlle keyboard and terminated with the END-OF-LINE key These lines must be preceded by a line number, but there is no syntax requirement for the remainder of the line. All of the line-by-line and iO ~i644 character-by-character editing features o~ the calculator are available in this mode. These include listing, backspace, forward space, insert character, delete character, and display shift control. Automatic line numbering is also available. In addition, the tape cassette commands, the PTAPE command, the PRINT ALL command, and the LIST command operate normally. The LIST command syntax has been ex-panded to include LISTX, which means list without line numbers, as well as LIST#SC or LISTX#SC where SC is the select code of the modem interfa~e, which means transmit the information through the modem to the remote system WLen the calculator is operating in the terminal mode, five of the user-definable keys take on special meaning Key f5 becomes a teletype shift key and f6 becomes a teletype control ~ey These keys and the lower case shift key allow the user to generate any seven-bit ASCII code. To generate a teletype shift or control character, the user first actuates the f5 or f6 keys and then actuates the appropriate key on the alpha section of the keyboard. For example, to generate a ~control C", the f6 key and the C key are actuated sequen-tially. No character is entered into the display until after ~ c~
the chosen alpha key is ~ht The character entered into the display may or may not be the same as the alpha character For instance a ~'shift O" generates the symbol ~
Key f8 is used in the terminal mode to select even or odd parity for transmitted characters When the terminal mode is first entered, even parity is assumed. The user may then convert to odd parity by actuating key f8. The display will then indicate ODD. To revert back to even parity the user actuates key f8 again, and the display indicates EVEN.
.
Key f9 is used in the terminal mode as a transmit key.
To transmit a message through the modem inter~ace, the message is typed into the display from the keyboard, and then ~ c~
the line is terminated by hittin~ key f9 The calculator g then serializes the characters entered, and transmits them at the selected baud rate For example, to obtain a listing of a program from a remote time-sharing computer service, the user enters LIST f9. The transmit key may also be used to enter the responses in a sign-on procedure for a time-sharing service.
Key f7 is used to place the calculator into a mode for saving, in memory, an incoming program. For example, to receive and store a program from a time-sharing computer service, the user actuates key f7 followed by LIST f9. As the program is listed from the time-sharing service, the lines are stored in the calculator's user memory as free-text. If the f7 key is not actuated just prior to entering LIST f9, the program will be printed on the external line printer.
Once a program has been entered as free-text, either from a remote source or from the keyboard, and if it is a BASIC program, it may be checked for syntax errors and con-verted to BASIC program format in memory. This is done by typlng COMP ~ollowed by actuation of the EXECUTE keyO Any syntax errors will be listed, and only the lines which have correct BASIC syntax will be translated. Incorrect lines will remain in ~ree~text format. After a program has been trans-lated by the COMP command, it may be executed locally using any of the normal execution commands, i.e. RUN, CONT, etc.
An attempt to execute an untranslated line will cause an error message (ERROR 79) to be displayed.
iO4~
The receiving section of the modem driver routine operates under interrupt control which allows the user to execute programs locally and remotely at the same time, For example, the user may want to run a program on a time-sharing computer sy~tem that may take several minutes to complete, He may start that program by transmitting a RUN command.
While that program is being executed, the calculator is free for normal keyboard operation or program execution. The ~ ;s only limitation in the mode is that ~h~ calculator may not use the display or printer at the same time as it is receiving information from the remote program.
.
10~6~i44 PLOTTER PLUG-IN READ-ONLY MEMORY MODULE
The plotter plug-in read-only memory module enables the calculator to control an Hewlett-Packard 9862A calculator plotter, providing permanent graphic solutions to problems solved by the calculatorO
In general, the plotter command set can be considered as consisting o~ two ~roups plotting commands and writing commands. The user can specify any plotting units he pleases, the calculator then automatically scales those units to fit the chosen plotting area. Also, the calculator keyboard characters can be drawn in different sizes and directions.
The 'plotting~ commands enable the system to automati-cally scale user-units; draw X and Y axes of any length, any-where in the plotting area; make any desired tic-marks on the axes; plot points or functions; lower or raise the pen, either before or after movement; temporarily translate the established origin to any point within the plotting area and then plot, still in user-units, with respect to the new origin; plot in increments (that is, in user-units, plot any point with respect to the current pen position).
The Iwriting' commands enable most calculator keyboard characters to be 'printed' on the plotter. The user can specify the position, height and width of the characters, and the di~ection in which they will be printed. A 'centering' com-mand ~CPLOT) enables labels to be centered on some particular point, thus simplifying labelling of axes and of specific points on the graph. The format of labels and numbers - field width, fixed or floating point, the number of digits following the decimal point, etc. - is specified by standard FORMAT
statements. In addition, a unique LETTER command establishes . _ 10~ 44 a 'typewriter' mode enabling the plotter to be controlled and positioned from the calculator kcyboard, on a character-by-character basis; this allows the user to add extra labelling or individual comments to his graphs.
INITIALIZING THE PLOTTER
Before plotting, the plotter must be prepared and the physical limits of the plotting area must be established The front-panel controls on the plotter are used for this purpose.
LINE AND CHART HOLD
The LINE pushbutton is the power switch for the plotter;
press it to apply power, and press it again to remove power;
the white LINE lamp lights whenever the plotter is ON.
Pressing CHART HOLD activates the electro-static paper hold-down mechanismO Pressing CHART HOLD again deactivates it. The plotter will not plot or letter, and the pen holder and arm will move freely in all directions when CHART HOLD is deactivated~
LOADING PAPER
To load paper, release CHART HOLD and manually move the pen arm all the way to one side of the plotter. Lay a sheet of paper on the plotting surface and smooth out any ir-regularities in the papér (you may also wish to ensure that the paper is squarely against the ridge at the bottom of the plotting surface); then activate CH M T HOLD.
GRAPH LIMITS
The graph limit controls are used to determine the physical size of the plot.
LOWER LEFT and the two knobs to its left are used to determine the physical location of the lower left hand corner of the plotting area 10 1tjt~4 UPPER ~IG}IT and the two knobs to its right are used to determine the physical location o~ the upper right-hand corner of the plotting area. Together, the upper right-hand corner and the lower left-hand corner determinc the size of the plotting area.
Also, altering the lower left-hand setting will trans-late the upper right-hand setting by the same direction and amount.
To specify the lower left-hand corner of the plotting area, press LOWER LEFT; the pen will move (without touching the paper) to the lower left-hand corner of the plotting area This point can be set anywhere within the lower left-hand quarter of the plotting surface (platen) by adjusting the two knobs associated with LOWER LEFT, Once the lower left-hand corner has been set, the upper right-hand corner is set in the same general way by pressing UPPER RIGHT and adjusting the two knobs associated with it Once the plotting area has been determined, it can be relocated by moving the position of the lower left-hand corner - the upper right-hand corner will 'track' the changec PLOTTING COMMANDS
NOTES: 1. All commands can be activated either from the keyboard or from a program except where noted 2 All values in the following statements can be numbers, variables or expressions except where noted.
3 Any parameter enclosed in square brackets is optional as far as the statement containing it is concerned. However, program sense may dictate that the parameter be present in specific cases - - - - - - - ---THE SCALE STATEMENT
SCALE Xmin, Xmax, Ymin, Ymax Examples:
SCALE -10, 10, -5, 5 SCALE-4PI, 4PI~ 3, 1.1 establishes the full-scale units for the plot. Xmin to Xmax and Ymin to Ymax correspond exactly to the limits of the horizontal and vertical edges, respectively, of the plotting , area (the area is established mechanically as previously described). This also establishes the point, on or off the plotting area, where the original of the graph (0, 0) is located.
A SCALE statement must be executed before any plotting can occur~ Once established the scale remains established until one of the following occurs:
~ new SCALE statement is executed.
The program is initialized.
A SCRATCH or SCRATCH A or SCRATCH V is executed.
The calculator is switched off.
The parameters (X, Y, etc.) in the SCALE statement must be given in the correct order. If the minimum or maximum values are switched no ÉRROR message will occur; however, sub-sequent plotting commands may not be executed properly.
The SCALE statement has no effect on the position of the pen.
THE PEN STATEMENT
PEN
The PEN statement is a 'stand-alone' instruction re-qulring no parameter. It raises the pen without otherwise changing its position relative to the plotting area, Instructions to raise or lower the pen, either before or after movement, can ~e easily included in several other statements (see PLOT and IPLOT) so there is no special 'lower pen' instruction.
THE OFFSET STATEMENT
OFFSET X, Y
Example: OFFSET 3, -3 Temporarily offsets the origin (point 0, 0 established by the previous SCALE statement) by an amount, and in the direction, determined by the values (in user-units) of X and , , ~
Y. All future plotting commands are then made with respect to the new origin until such time as that origin is again changed by means of, for example, a new OFFSET or a new SCALE state-ment The OFFSET statements are not accumulative; that is, a new 'offset' is with respect to the original origin and not with respect to the last offset origin Offsetting greatly simplifies plotting, from the user's point of view, when it becomes necessary to divide the plotting area into several smaller segments and then make a separate plot in each segment. As the plot is made in each segment it is not necessary for the user to 'correct' each point before plotting; instead OFFSET statement moves the origin to some convenient point within that segment so that the calculator automatically makes the necessary 'corrections' for each point plotted THE AXI S STATEMENT
X AXIS Y-offset [, itic [, start point, end point]]
or Y AXIS X-offset [, +tic [, start point, end point~]
X AXIS 3, 1, -4, 4 1 O L~
Draws an X-(or Y-) axis according to the parameters given in the AXIS statement. The pen is automatically raised both be-fore and after drawing the axis, (NOTE: The following describes the X-axis; the same information is applicable to the Y-axis if 'left' and 'right' for the X-axis are read as, respectively, 'bottom' and 'top' for the Y-axis,) 1, ~f no optional parameters are given, draws a straight line from left to right across the complete plotting area ~from Xmin to ~max), The line crosses the Y-axis at a point determined by the value of "y-offset', 2. If a 'tic' parameter is included then tic marks are made along the axis as it is drawn; the value for 'tic' deter-mines the spacing9 in user-units, between tics, The first tic is drawn at the starting point of the line. The tic parameter is usually positive (the sign is not required), but occasionally a negative tic spacing is useful - see 4, below.
3. If the start point/end point parameters are given, then the axis is drawn only between the points specified - from the start point to the end point.
4. a, A negative tic spacing when no start point/end point parameters are given results in a tic only at the left end (Xmin) of the axis.
b. If the start point parameter is more poaitive than (i.e., to the right of) the end point parameter, then the axis is drawn from right to left; in this case, negative tic spacing results in normal tic marks being drawn along the axis.
3D c, With the start point/end point parameters the same as 10~ i4-~
in b above, a positive tic spacing results in a tic only at the ri~ht end (Xmax) of the axis.
THE PLOT STATEMENT
PLOT X, Y ~, control pen]
PLOT SIN(X), COS(X), -2 Moves the pen to the co-ordinate specified by the value of X and Y.
When no optional 'control pen' parameter is given:
If the pen was raised, it moves to the point specified and then lowers.
If the pen was lowered, it remains lowered while moving to the point specified, thus drawing a line on the plotting surface.
The 'Control Pen' Parameter The value and sign of this parameter in the PLOT
(and IPLOT) statements determines whether the pen will be raised or lowered before or after it moves to the specified point.
If the parameter is:
negative - control occurs after movement;
positive - control occurs before movement;
odd - raises pen if it was lowered;
even - lowers pen if it was raised The value of the control parameter can be any number in the range i32767. If the value is not an integer then it is automatically rounded up or down according to the value of the fractional part of the number; that is up for .5 or greaterS
or down for less than .5 (Rounding is the same as the standard rounding in the calculator; it is not the same as the INT function, where the value becomes that of the next lower integer ) THE IPLOT STATEMENT
IPLOT deltaX, deltaY ~, control pen]
IPLOT 2, -3A/4, 1 Moves the pen (from its current position) in the X direction and in the Y direction, by the amounts specified by 'deltaX' and'deltaY', respectively.
The 'control pen' parameter is optional and operates exactly as described previously - sèe the PLOT STATEMENT.
Notice that the action of the IPLOT statement is such that it is as if, during the execution of that statement only, the origin (O, O) of the graph is offset to the current position of the pen. Pen movement is then related to that offset origin.
The IPLOT statement is most useful when drawing regular geometric shapes such as, for example, a swastika (~). In this case each point is more easily plotted with respect to the previous point, rather than with respect to the origin of the graphO
THE LABEL. STATEMENT
LABEL (FORMAT statement number or *[, character heigth in %, Aspect ratio, angle of rotation r, paper heigth/paper width]~) print list Examples: LABEL (x, 2, 2, 0, 8 5/11) "PLOTTE~"
LABEL (100) 1, A, SIN(X) The LABEL statement is used to write alpha and numeric characters with the plotter. Several parameters are allowed which can be used to control the size, shape, and angle of rotation of the character printed. The character height can be specified in percent of the paper height. The aspect ratio is the ratio of ao the character height to the character width before any rotation.
~O ~t;6~4 The angle of rotation of characters printed can be given This parameter can be given in degrees, radians, or grads and is dependent on a previously given DEG, RAD, or GRAD state-ment. A fourth parameter can be specified. This is the ratio of the actual measured height of the plot paper to the measured width as set by the upper right and lower left posi-tions. This parameter is necessary to keep proper aspect ratio of characters printed on an angle on a non-square plot.
. . .
If not specified, the calculator will assume character height =
2.5%, aspect ratio = 2, rotation = 0, and paper ratio = 1.
The format specification and the print list are the same as a WRITE statement. If a FORMAT statement number is - specified, the print list is written on the plotter using the specification given in the FORMAT statement. All sec~fications are allowed except "B". If an "*" is used, the print list will be written according to standard format. This includes the normal definition of comma and semi-colon spacing, string fields, TAB, etc.
- The LABEL statement will start printing characters at the current pen position. Anytime an end of line is needed, the plotter pen will return to the character position directly below the first character of the current line, simulating a carriage return, line feed.
If the string variables option block is also plugged into the memory, then string variables are allowed in the print list~
THE LETTER STATEMENT
LETTER
When the LETTER statement is executéd, the calculator enters a unique 'typewriter' modc with the plotter as the printing device While in this mode when the user hits any printing character on the keyboard, that character is immediately printed on the plotter at the current pen position. An EOL or EXECUTE will cause a carriage return, line-feed to be simulated In ad-dition, while in this mode the t, 1, ~, and ~ keys can be used to position the pen The t and 1 keys can cause the pen to move up or down one character position The ~ and ~ keys cause the pen to move left or right one character position.
If the shift key is held down at the same time as a pen control key, the pen will move one~tenth of a character position.
Character size, aspect ratio, and rotation can be specified by giving a LABEL statement prior to the LETTER statement.
THE CPLOT STATEMENT
CPLOT delta X characters, delta Y characters Example: CPLOT 5, - 3 The CPLOT statement is similar to the IP~T statement in that it moves the pen to a position relative to the current pen position. The difference is that the delta X and delta Y
values are specified in character size units In the example above the pen would move five character position down This statement is particularly useful in positioning the pen when labeling a plot using the LABEL statement One character space is defined as follows:
1 ~ ~ Lower-left corner .- of character above , The LETTER ~A~' for - example -~ ~ Lower-left corner of next character , ....
lO~fj6~
The error messages givcn by the plotter module are:
~RROR 80 - No scale statement executed before PLOT, IPLOT, OFFSET, or AXIS.
~RROR 81 - Character size too large (limited to = 20%) or binary mode not allowed.
~RROR 82 - OFFSET, POINT 1, or POINT 2 out of range during axis execution or tic increment in axis statement is too small.
10~6~;4~
MATRIX PLUG-IN READ-ONLY MEMORY MODULE
The Matrix read-only memory module enables the cal-culator to understand the MAT statements of BASIC. These ; statements facilitate the matrix operations of addition, sub-traction, initialization, scalar multiplicationj matrix multi-plication transposition, and inversion. A function additional to standard BASIC language matrix operations is provided for computing the determinate of a square matrix. The MAT READ
and MAT PRINT commands facilitate entering data into an array and the prirting thereof. The MAT INPUT command which appears in some versions of BASIC is not allowed. The matrix operations are allowed on split precision or integer arrays as well as full floating point arrays~
The operations performed by this matrix module are summarized below and additional information is provided above on pages 148-164.
A. MAT READ
reads numeric information from DATA statements into an array MAT READ A
MAT READ A(3,5) MAT READ B,W(8),X,Y
B~ MAT PRINT
prints complete arrays close pac~ing specified with a semicolon MAT PRINT A
MAT PRINT A, MAT PRINT R,S;V;W
C ZER, CON, and IDN operations ZER: initialize an array to all zeros CON: lnitialize an array to all ones IDN: initialize an array to the identity matrix : ' 104~;644 MAT A = ZER
MAT Q = CON(9) MAT I - IDN(4,4) D, MAT assignment statements assign to a matrix the result of a MAT operation 1) MAT A = B
assigns elements of A from array B
.- 2) MAT A = B ~ C
performs indicated addition or subtraction and assigns result to A
any of A, B, and C may be the same matrix 3) MAT A = B * C
performs indicated multiplication and assigns result to A
array A must be distinct from B or C
4) MAT A = (expression) * B
performs the indicated scalar multiply (each element of B is multiplied by the value of the expression) and assigns the result to A
5) MAT A = TRN(B) assigns the transpose of B to A
array A must be distinct from B
6) MAT A = INV(B) assigns the inverse of B to A
A and B may be the same matrix E. DET operation calculates the determinant of a square matrix MAT D4 = DET(A) 104~;44 KEY CODES AND MNEMONICS
All of the keys of the keyboard input unit and their associated mnemonics and binary keycodes are listed in the Table below~ Every key has one mnemonic and two keycodes, (namely, a shifted keycode and an unshifted keycode). Key-codes are applied to the CPU in eight-bit binary form. The first four bits of each keycode are given in the left-most vertical column of the table below and the next three bits of each keycode are given in the uppermost row of the table -- ~ 10 below. The eighth bit of each keycode is the shift bit and is determined by whether or not the shift key of the key-b~ard input unit is depressed. Keycodes entered into the CPU from the keyboard input unit or from the program storage section of the memory unit are processed by the keyboard in-put routine 204 as generally described above in connection with Figure 9 and as shown in detail in Figures 88A-G.
KEYCODE AND MNEMONIC TABLE
D0 Dl D2 D3 D4 D5 D6 D7 b6 0 0 0 0 b5 0 0 1 1 0 0 b4 0 1 0 1 0 1 0 b3b2blbO
O O O O f O RECALL SPACE 0 p PA
0 0 0 1 fl FETCH 1 A Q STOP
O O 1 0 f2 BACK 2 B R EOL
_~. O O 1 1 f3 FWD 3 C S DL
O 1 0 0 f 4 1 4 D T FXD
O 1 0 1 f5 t 5 E U FLT
O 1 1 0 f 6 ~ 6 F V SCRATCH
0 1 1 1 f7 ~ 7 G W AUTO
1 0 0 0 f8 LOAD ( 8 H X
; 1 0 0 1f 9 STORE ) ~ I Y
1 0 1 1EXEC / + K RESULT
1 1 O O CONT , L
1 1 1 0 TRACE NORMAL . N
1 1 1 1 RUN INSERT / O hN
EXp 104~644 BASIC INSTRUCTION SET
Every routine and subroutine of the calculator comprises a sequence of one or more of 71 basic sixteen-bit instructions listed below. These 71 insturctions are all implemented serially by the micro-processor in a time period which varies according to the specific instruction, to whether or not it is indirect, and to whether or not the skip condition has been met.
Upon completion of the execution of each instruction, the program counter (P register) has been incremented by one except for instructions JMP, JSM, and the skip instructions in which the skip condition has been met. The M-register if left with contents identical to the P-register. The contents of the addressed memory location and the A and B registers are left unchanged unless specified otherwise.
Memory Reference Group The 14 memory reference instructions refer to a specific address in memory determined by the address field <m>, by the ZERO/CURRENT
page bit, and by the DIRECT/INDIRECT bit. Page addressing and indirect addressing are both described in detail in the reference manuals for the Hewlett-Packard Model 2116 computer (hereinafter referred to as the HP 2116).
The address field <m> is a 10 bit field consisting of bits O
through 9. The ZERO/CURRENT page bit is bit 10 and the DIRECT/INDIRECT bit is bit 15, except for reference to the A
or B register in which case bit 8 becomes the DIRECT/INDIRECT
bit. An indirect-reference is denoted by a <,I> following the address <m>.
REGISTER REFERENCE OF A OR B REGISTER: If the location <A> or <B> is used in place of <m> for any memory reference instruction, the instruction will treat the contents of A or B exactly as it would the contents of location <m>. See the note below on the special restr1ction for direct register reference of A or B.
ADA m,I Add to A. The contents of the addressed memory location m are added (binary add) to contents of the A register, and the sum reamins in the A register. If carry occurs from bit 15, the E register is loaded with OOOl, otherwise E is left unchanged.
ADB m,I Add to B. Otherwise identical to ADA.
104~64~
Memory Reference Group (continued) CPA m,I Compare to A and skip if unequal. The contents of the addressed memory location are compared with the contents of the A register. If the two 16-bit words are different, the next instruct;on is skipped; that is, the P and M
- registers are advanced by two instead of one. Otherwise, the next instruction will be executed in normal sequence.
CPB m,I Compare to B and skip is unequal. Otherwise identical to CPA.
LDA m,I Load into A. The A register is loaded with the contents of the addressed memory location.
LDB m,I Load into B. The B register is loaded with the contents of the addressed memory location.
STA m,I Store A. The contents of the A register are stored into the addressed memory location. The previous contents of the addressed memory location are lost.
STB m,I Store B. Otherwise identical to STA.
IOR m,I "Inclusive OR" to A. The contents of the addressed location are combined with the contents of the A register - as an "INCLUSIVE OR" logic operation.
ISZ m,I Increment and Skip if Zero. The ISZ instruction adds ONE to the contents of the addressed memory location. If the result of this operation is ZERO, the next instruction is skipped; that is, the P and M registers are advanced by TWO instead of ONE. The incremental value is written back into the addressed memory location. Use of ISZ with the A or B register is limited to indirect reference; see foot-note on restrictions.
AND m,I Logical "AND" to A. The contents of the addressed location are combined with the contents of the A register as an "AND" logic operation.
DSZ m,I Decrement and Skip if Zero. The DSZ instruction subtracts ONE from the contents of the addressed memory location. If the result of this operation is zero, the next instruction is skipped. The decremented value is written back into the addressed memory location. Use of DSZ ~ith the A or B register is limited to indirect reference; see footnote on restrictions.
104~644 JSM m,I Jump to Subroutine. The JSM instruction permits jumping to a subroutine in either ROM or R/W memory. The contents of the P register is stored at the address contained in location 1777 (stack pointer). The contents of the stack pointer is incremented by one, and both M
and P are loaded with the referenced memory location.
JMP m,I Jump. This instruction transfers control to the contents of the addressed location. That is, the referenced memory location is loaded into both M and P registers, effecting a jump to that location.
Shift-Rotate Group' The eight shift-rotate instructions all contain a 4 bit variable shift field <n> which permits a shift of one through 16 bits;
that is, 1 < n < 16. If <n> is omitted, the shift will be treated as a one bit shift. The shift code appearing in bits 8,7,6,5 is the binary code for n-l, except for SAL and SBL, in which cases the complementary code for n-l is used.
M R n Arithmetic right shift of A. The A register is shifted right n places with the sign bit (bit 15) filling all vacated bit positions. That is, the n+l most significant bits become equal to the sign bit.
ABR n Arithmetic right shift of B. Otherwise identical to AAR.
SAR n Shift A right. The A register is shifted right n places with all vacated bit positions cleared. That is, the n most significant bits become equal to zero.
SBR n Shift B right. Otherwise identical to SAR.
SAL n Shift A left. The A register is shifted left n places with the n least significant bits equal to zero.
SBL n Shift B left. Otherwise identical to SAL.
M R n Rotate A right. The A register is rotated right n places, with bit O rotated around to bit 15.
RBR n Rotate B right. Otherwise identical to RAR.
, -213-Alter-Skip Group The sixteen alter-skip instructions all contain a 5-bit variable skip field <n> which, upon meeting the skip condition, permits a relative branch to any one of 32 locations. Bits 9,8,7,6,5 are coded for positive or negative relative branching in which the number <n> is the number to be added to the current address, (skip in forward direction), and the number <-n> is the number to be subtracted from the current address, (skip in negative direction). If <n> is omitted, it will be inter-preted as a ONE.
<n>=O CODE=OOOOO REPEAT SAME INSTRUCTION
<n>=l CODE=OOOOl DO NEXT INSTRUCTION
<n>=2 CODE=OOO10 SKIP ONE INSTRUCTION
<n>=15 CODE=Ollll ADD 15 TO ADDRESS
<n>=-l CODE=lllll DO PREVIOUS INSTRUCTION
<n>=-16 CODE=10000 SUBTRACT 16 FROM ADDRESS
<n>=nothing CODE=OOOOl DO NEXT INSTRUCTION
The alter bits consist of bits 10 and bits 4. The letter <S>
following the instruction places a ONE in bit 10 which causes the tested bit to be set after the test. Similarly the letter <C> will place a ONE in bit 4 to clear the test bit. If both a set and clear bit are given, the set will take precedence.
Alter bits do not apply to SZA, SZB, SIA, and SIB.
SZA n Ski~ if A zero. If all 16 bits of the A register are zero, skip to location defined by n.
SZB n Skip if B zero. Otherwise identical to SZA.
RZA n Skip if A not zero. This is a "Reverse Sense" skip of SZ.
RZB n Skip if B not zero. Otherwise identical to RZA.
SIA n Skip if A zero; then increment A. The A register is tested for zero, then incremented by one. If all 16 bits of A were zero before incrementing, skip to location defined by n.
SIB n Skip if A not zero; then increment B. Otherwise identical RIA n Skip if A not zeroi then increment A. This is a "Reverse Sense" skip of SIA.
RIB jnd Skip if B not zero; then increment B. Otherwise SLA n,S/C Skip if Least Significant bit of A is zero If the least significant bit (bit O) of the A register is zero, skip to location defined by n. If either S or C is present, the test bit is altered accordingly after test.
4~
Alter-Skip Group (continued) SLB n,StC Skip if Least Significant bit of B is zero. Other-wise identical to SLA.
SAM n,S/C Skip if A is Minus. If the sign bit (bit 15) of the A register if a ONE, skip to location defined by n. If either S or C is present, bit 15 is altered after the test.
SBM n,S/C Skip if B is Minus. Otherwise identical to SAM.
SAP n,S/C Skip if A is Positive. If the sign bit (bit 15) of the A register is a ZERO, skip to location defined by n.
If either S or C is present, bit 15 is altered after the test.
SBP n,S/C Skip if B is Positive. Otherwise identical to SAP.
SES n,S/C Skip if Least Significant bit of E is Set. If bit O of the E register is a ONE, skip to location defined by n. If either S or C is present, the entire E register is set or cleared respectively.
SEC n,S/C Skip if Least Significant bit of E is Clear. If bit O of the E register is a ZERO, skip to location defined by n. If either S or C is present, the entire E register is set or cleared respectively.
Complement-Execute-DMA Group.
These seven instructions include complement operations and several special-purpose instructions chosen to speed up printing and extended memory operations.
CMA Complement A. The A register is replaced by its One's complement.
CMB Complement B. The B register is replaced by its One's complement.
TCA Two's Complement A. The A register is replaced by its One's Complement and incremented by one.
TCB Two's complement B. The B register is replaced by its One's Complement and incremented by one.
EXA Execute A. The contents of the A register are treated as the current instruction, and executed in the norma1 manner.
-~ ~ - The A register is 1eft unchanged un1ess the instruction code causes A to be altered.
EXB Execute B. Otherwise identical to EXA.
DMA Direct Memory Access. The DMA control in Extended Memory is enabled by setting the indirect bit in M and giving a WTM
instruction. The next ROM clock transfers A~M and the following two cycles transfer B+M. ROM clock then remains inhibited until released by DMA contro1.
\ 104~ii644 Note: Special Restriction for Direct Register Reference of A or B
For the five register reference instructions which involve a write operation during execution, a register reference to A or B must be restricted to an INDIRECT reference. These instructions are STA, STB, ISZ, DSZ, and JSM. A DIRECT register reference to A or B with these instructions may result in program modification.
(This is different from the hp 2116 in which a memory reference to the A or B register is treated as a reference to locations O
or 1 respectively.) A reference to location O or 1 will actually refer to loca~ions O or 1 in Read Only Memory.
Input/Output Group (IOG) The eleven IOG instructions, when given with a select code, are used for the purpose of checking flags, setting or clearing flag and control flip-flops, and transferring data between the A/B
registers and the I/O register.
STF <SC> Set the flag. Set the flag flip-flop of the channel indicated by select code <SC>.
CLF <SC> Clear the flag flip-flop of the channel indicated by select code <SC>.
SFC <SC> Skip if flag clear. If the flag flip-flop is clear in the channel indicated by <SC>, skip the next instruction.
SFS <SC> H/C Skip if flag set. If the flag flip-flop is set in the channel indicated by <SC>, skip the next instruction. H/C indicates if the flag flip-flop should be held or cleared after executing SFS.
CLC ~SC> H/C Clear control. C1ear the control flip-flop in the channel indicated by <SC>. H/C indicates if the flag flip-flop should be held or cleared after executing CLC.
STC ~SC> H/C Set Control. Set the control flip-flop in the channel indicated by <SC>. H/C indicates if the flag flip-flop should be held or cleared after executing STC.
OT* <SC> H/C Output A or B. Sixteen bits from the A/B register are output to the I/O register. H/C allows holding or clearing the flag flop after execution of OT*.
The different select codes allow different functions to take place after loading the I/O register.
SC=OO Data from the A or B register is output eight bits at a time for each OT*
instruction given. The A or B register is rotated right eight bits.
, -216-,5 10~64~
- Input-Output Group (IOG), continued SC=Ol The I/O register is loaded with 16 bits from the A/B registers.
SC-02 Data from the A/B register is output one bit at a time for each OT* instruction for the purpose of giving data to the Magnetic Card Reader. The I/O register is unchanged.
SC-04 The I/O register is loaded with 16 bits from the A/B register and the control flip flop for the printer is then set.
SC-08 The I/O register is loaded with 16 bits from the A/B register and the control flip flop for the display is then set.
SC=16 The I/O register is loaded with 16 bits from the A/B register and then data in the I/O register is transferred to the switch latches.
LI* <01> H/C Load into A or B. Load 16 bits of data into the A/B register from the I/O register. H/C allows holding or clearing the flag flop after Ll* has been executed.
-- LI* <00> The least significant 8 bits of the I/O register are loaded into the most significant locations in the A or B register.
MI* <01> H/C Merge into A or B. Merge 16 bits of data into the A/B register from the I/O register by "inclusive or". H/C allows hold;ng or clearing the flag flop after Ml* has been executed.
MI* <00> The least significant 8 bits of the I/O register are combined by inc1usive OR with the least significant 8 bits of the A or B register, and rotated to the most significant bit locations of the A or B register.
10'l~;6~
MAC Instruction Group A total of 16 MAC instructions are available for operation (a) with the whole floating-point data (like transfer, shifts, etc.), or (b) with two floating-point data words to speed up digit and word loops in arithmetic routines.
NOTE: <Ao 3> means: contents of A-register bit O to 3 AR 1 is a mnemonix for arithmetic pseudo-register located in R/W memory on addresses 1744 to 1747 (octal) AR 2 is a mnemonix for arithmetic pseudo-register located in R/W memory on addresses 1754 to 1757 (octal) D. means: mantissas i-th decimal digit;
most significant digit is Dl least significant digit is D12 decimal point is located between Dl and D2 Every operation with mantissa means BCD-coded decimal operation.
RET Return 16-bit-nulnber stored at highest occupied address in stack is transferred to P- and M-registers. Stack pointer (=next free address in stack) is decremented by one.
- <A>, <B>, <E~, unchanged.
MOV Move overflow The contents of E-register is transferred to A . Rest of A-register and E-register are filled by zeros.~ 3 <B> unchanged.
CLR Clear a floating-point data register in R/W memory on location <A>
ZERO~cA>, <A>+l, <A>+2, <A>+3 <A>, >B>, <E> unchanged XFR Floating-point data transfer in R/W memory from location <A> to location <B>
Routine starts with exponent word transfer Data on location <A~ is unchanged <E> unchanged.
....
lO'~t;~;44 MRX ARl mantissa is shifted to right n-times. Exponent word remains unchanged.
<Bo 3>= n (binary coded) 1st shift: <A0-3>~Dl; Dj~j+l; D12 is jth shift: ~t ~ Dl; Dj~Dj+l; D12 is lost nth shift: ~ Dl; Dj~j+l; D12 ~ Ao 3 O ~ E, A4 15 each shift: <Bo_3> - 1 ~ Bo 3 <B4_15> unchanged MRY AR2 mantissa is shifted to right n-times.
Otherwise identical to MRX
MLS AR2 mar. issa is shifted to left once.
Exponent word remains unchanged.
D~2; D; ~ Dj_li Dl ~ Ao 3 <B> unchanged DRS ARl mantissa is shifted to right once Exponent word remains unchanged Dl; D; ~ Dj+l; D12 ~ Ao 3 ZERO ~ E and A4 15 <B> unchanged DLS ARl mantissa is shifted to left once. Exponent word reamins unchanged.
<Ao 3> ' D12; Dj ~ D; l; Dl ~ A3 3 E, A4 15 ~B> unchanged FXA Fixed-point addition Mantissas in pseudo-registers AR2 and ARl are added together and result is placed into AR2. Both exponent words remain unchanged. When overflow occurs "OOOl"
is set into E-reg., in opposite case <E> will be zero.
<AR2> + <ARl> + DC ~ AR2 DC = ~if <E> was OOOO before routine execution DC = 1 if <E> was 1111 before routine execution <B>, <ARl> unchanged 104~;64~
FMP Fast multiply Mantissas in pseudo-registers AR2 and ARl are added together <Bo 3>-times and result is placed into ARa.
Total decimal overflow is placed to Ao 3. Both ex-ponent words remain unchanged.
<AR2> + <ARl> * <Bo 3>+DC ~ AR2 DC = O if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution ZERO ~ E, A4 15 <ARl> unchanged FDV Fast divide Mantissas in pseudo-registers AR2 and ARl are added together so many times until first decimal overflow occurs. Result is placed into AR2. Both exponent words remain unchanged. Each addition without over-flow causes +l increment of <B>.
1st addition: <AR2> + <ARl> + DC ~ AR2 DC = O if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution next additions: <AR2> ~ <ARl> ~ AR2 ZERO ~ E
<ARl> unchanged CMX lO's complement of ARl mantissa is placed back to ARl, and ZERO is set into E-register. Exponent word remains unchanged <B> unchanged CMY lO's complement of AR2 mantissa.
Otherwise identical to CMY
MDI Mantissa decimal increment.
Mantissa on location <A> is incremented by decimal ONE
on D12 level, result is placed into the same location, and zero is set into E-reg.
Exponent word is unchanged.
When overflow occurs, result mantissa will be 1,000 0000 0000 (dec) and 0001 (bin) will be set into E-reg.
<B> unchanged.
NRM Normalization Mantissa in pseudo-register AR2 is rotated to the left to get Dl ~ O. Number of these 4-bit left shifts is stored in Bo 3 in binary form (<B4 15>=0) when <Bo 3> = 0,1,2,. . . . 11 (dec) -~ <E> = 0000 when <Bo 3>= 12 (dec)=~ mantissa is zero, and <E> =0001 Exponent word remains unchanged ~A> unchanged.
,, 10~fà644 The binary codes of all of the above instructions are listed ~,n the following coding table, where * implies the A or B
register, D/I means direct/indirect, A/B means A register/B
register, Z/C means zero pace (base page) (current page, H/S
means hold test bit/set test bit, and H/C means hold test bit/
clear test bit. D/I, A/B, Z/C, H/S, and H/C are all coded as 0/1.
CODING TABLE
MEMORY o---- AD~ D/lo o 0 AIR Z/C ADDRESS--REFERENCE - ---- CP- Dl ~ n I A/B 'IC
GROUP - LD' ~/ t 0 A/B IC
-,--- ST~ ~/ o I A/B .IC
- 10 ~ ~/ o O o /~
-~--- 15~ O./C
-~-- - A~ B ~/ 0 0 ./C
- --- D'- ~1 0 ./C
~ JiS~p ~/ n ~ /cc SHIFT 0 --0 A'R 0 A/E SHIFT .000 ROTATE 07---2 S~R 0 1 1 1 A/B- CODE -- 0 1 GROUP 07 -4 S~L 0 1 1 1 A/B -- - 0 1 0 07---6 R~R 0 1 1 1 A/B -- ~ ti I I
ALTER- 07- 0 SZ' 0 1 1 1 A/B O SKIP 0 o 0 SKIP 07 - 0 RZ' 0 1 1 1 A/B I CODE 0 o 0 GROUP 07---0 Sl' 0 1 1 1 A/B o I I t 0 0 07---0 Rl~ 0 I II A/B I I 1 0 0 0 07---1 ~3L' 0 1 11 A/B H/S HIC i 0 0 07---2 S~M 0 1 11 A/B H/S H/C i o I
07- J S~P 0 1 11 A/B H/S H/C i o I
07 --~ SES 0 1 11 A/B H/S H/C I 1 0 07 - 5 SEC 0 1 11 A/B H/S H/C i 1 0 REGISTER07 17 ADA 0 1 1 1 A/8 D/l 0 0 0 0 1 1 REFERENCE07 37ADR ~ I I I ~/B ~ D/l 0 0 0 1 1 1 t;ROUP 07 -57 CPA 0 1 1 1 A/B - D/l 0 0 1 0 1 1 07 -77 CPB 0 1 1 1 A/B -- DEi 0 0 1 1 1 1 07--17 LDA 0 1 1 1 A/8- D/iO I 00 1 1 07 37 LDB 0 1 1 1 A/B .. D/l 0 1 0 1 1 1 07.577 STB 0 1 Ir A8 1 0 1 1 1 1 1 1 0--17 IOR 0 1 11 A/8 D/l 1 0 0 0 i I I
117 1~1~ISZ o I II A/8 -- I 1 0 0 1 1 1 I
07.. 57 AND o II I A/R D/l 1 0 1 0 1 1 1\7.1177 DSZ O I I I AIP. I I O I I I I
07 717 JSM O I I I A/B - I I 1 0 o I I
07- 37 JMP o I I I A/B DA I 1 0 1 1 1 10~6~ ~ 4 ., . . .. . . . .. . .. ... . _ ... ... ... .
CoOlNG tA~L~ - CO~tltv UL-t:~
G~o~lp acrqL I~STR IS ~ 9 6~ ~ ~ s ~ 3-! 2 1 0 C ~ ~q P O -~ - o I fi ~: X ~ ~ / ~ / % ~ o EX~C~IJE O 7 o o 3 ~, D~ A o / / / O - -- _ _ o oMfl o 7 - o, 6 C t~
O ~ - o 7 G T C ~,~O I I I /B / I / I I /
I N P v~ 1 7 2 7 - -5 r~ I I I I ~ / o - / / / / ~-SEL~Cr _ oVrPur ~ 7 ~ 7 - -C L 1~ I t t I - I I / I I I
GA~oP ~ 7 - ?- - S t CI I I ~ c I / I O
. ~ . 1 7 - ~ ~ - 5 F SI I I / - I /~c I ~ I t~
7 ~ ~ ~ C ~t t / ~ ~c / C~ / I
1 7 ~ 6 - --5 T CI I I I ~ /c / ~ ~ O
/ 7 ~ O T ~i~t I t I /)/~ ~ ~/~c. o O I /
7 2 ~ /A~B I ~/c ~ / ~ I
7 - C~ t / t ~ /c O O o /
MAc !70 L~G2 R~rI / I I o ~ Q ~ O O ao o I O
~1~0~ 7~ Ot~2 ~VI I I IO C~ o o O O O~ O o I
i7 ~~~~ C~RI I I I ~ oO ~ ~ O O oo C~OO
/7000L~ XFP~I I I I~o~ oO o ooo / oo 17Y~l ~o I'IRXI I I II o o I u c~ o I I C) O o 17Yy70 1''1,~y1 / I I I oo t O O - I / I ~ O o 1 71 ~ 0 01~1 L SI I I I O O I I ~ O o t~ O o O
1 7t~ YI o D~ SI I I I t~ O ~ I t~ v o O I . O o o 1 75 ~¦ t7 t~C~ ~ 51 ¦ I / / O ~ ~ O O O C) o O G O
I 70 56~ flI I I I C~ t) O I o l l I O O t O
~ 71 46 ~ ~-~1 PI I I Io o I I o o I I C~ o G O
~~ 17~42t) FD~.~I I I IC)oC~ I C)O C) I t~ ooc~
1 7L~OO C M,'CI ~ 0 l o o o oCJ OO C~
/70yoo ~M'I'/ I I I0~O 10 ~ ~~~ ~~~
1 70 S ~It~~1 D ~:I / I I t~ C70 I O / / C~O OOC~
) 7/ ~ 1'3 1;~ ;11 1 1 1 0 0/ 1 O O / O l ~ ~ O
~' , io~ t;~
DETAILED LISTING OF ROUTINES
AND SUBROUTINES OF BASIC INSTRUCTIONS
A complete listing of all of the routines and sub-routines of basic instructions employed by the calculator and of all of the constants employed by ~hese routines and subroutines is given below. All of th~se routines, subroutines, and constants are stored either in the basic ROM or in the plug-in ROM modules employed therewithO Each page within the listing is numbered at the upper left-hand corner, and its number within the specification as a whole is indicated at the bottom of the page. Each line of each page is separately numbered in the first column from the left-hand side of the page. This facilitates reference to different parts of the listing. Des-criptive headings are also provided throughout the listing to identify routines, subroutines, groups of constants, different portions of the ROM, the plug-in ROM modules, etc. Each instruc-tion of each routine or subroutine and each constant stored in the ROM or plug-in ROM modules is represented in octal form by six digits in the third column from the left-hand side of the page, and the address of the ROM location in which each such instruction or constant is stored is represented in octal form by five digits in the second column from the left-hand side of the page.
Mnemonic labels serving as symbolic addresses or names are glven in the fourth column from the left-hand side of the page for most of the constants and many of the instructions to facilitate references to these constan's and instructions and associated instructions. The mnemonic codc- of each basic instruction and of each pseudo instruction is given in the fifth column from the left-hand side of thc page. As noted above, each basic instruction is employed as a step in a r ~0~ 4~
routine or subroutine of one or more basic instructions and therefore has an address in the ROM. Pseudo instructions such as ORG, EQU, etc. which appear (and are recognizable as not being one of the 71 basic machine instructions listed above) are used for control of the Assembler, which translates the symbolic/mnemonic coding of the fourth, fifth, and sixth columns into the address and contents of ROM registers which appear in the second and third columns. (See chapter 4 of the Hewlett-Packard "Assembler Programmer's Reference Manual"
of April~ 1970.) They are not employed as steps in the routines and subroutines performed by the calculator and therefore have no addresses in the ROM. Mnemonic operand codes are given in the sixth column from the left-hand side of the page, and descriptive comments are given to the right of the sixth column The format, assembly, and use of the listing is explained in greater detail in the above-mentioned Hewlett-Packard "Assembler Programmer's Reference Manual".
In addition, cross-reference symbol tables are included directly below each group of routines and subroutines for pro-viding an alphabetical listing of each of the mnemonic labels and operands. The number contained in the first column to the right of each mnemonic in the cross-reference table represents the line in the associated routine or subroutine listing at which that mnemonic appears as a label in column four. Sub-sequent columns beyond the first column to the right of each mnemonic in the cross-reference table represent the line in the associated routine or subroutine listing at which that mnemonic appears as an operand in column six.
10~ 4 PAGE 00~2 #el 9R30 ~ S~S~M SOFtWARE
~001 A5M8-A~L~C
~3~ MAIN SYST~M ~IR~W~E L~StING 3-27-72 0004- ,, ~005 ~O000 O~G 0 ~006~
0007 O0000 164121 J~p START-I START OF ~ONITOR
0008 60001 043060 0CT ~3060 CONSTANT NEE0E0 ~Y PQocEssoQ
~009 Z0002 161463 JSM lNtEL .1 I~TERRUP~
10~
0011 e0003 ~fl0000 Ch OC~ O ONE
~012 ~0004 t~l0000 OCT O1000~ 0000
13 ~o0~s ~o~0 OCt O 0~0 ~14~
~015 ~0Q6 O0~000 C5 OCT a~e0~0 P~2 ~016 ~B007 01~560 OCT 1256~ 1570 e017 C0010 074543 OCT ~q4543 7963 ~01~ ~Q011 ~232e0 OCt 0~32a~ 2680 C101S~
~020 C0012 ~00B01 .1 DEC I
~021~ ~
oa22 ~0013 g004~0 C7 0CT ~604~ 0~PI
4023 ~0al4 ~53451 OCT 053451 5729 0024 ~0015 C53571 0CT 053571 5779 ~025 ~0016 ~50450 0CT o~0450 5128 e026~
0~27 e0Q17 ~0gae2 .2 DEC 2 802a ~0020 ~0003 .3 ~EC 3 a029 ~21 ca~004 .4 ~EC 4 e030 ~ 20~22 ~ 005 ~5 DEC 5 a031 00023 000006 .6 DEC
ed32 ~oa24 aaQ~07 .7 DEC 7 G033 a0025 ~0001C .B DEC 6 e034 00026 600011 .9 OEC ~
~035 Q~02~ ~Oa~13 ~11 DEC 11 e036 e~030 ~B0al4 .12 DEC ~2' ~037 ~0~31 ~aOO15 CRT~ OCT 15 d038 00031 EOL EQU CRTN
0039 ~0031 ~ 13 EQU C~T~
~ ~4 0 * * ~ ** ~
ff041* PQlNTE~S TO FUNCTION5 C~STANTS
~042-0043 00027 DPE~R ECU ~11 PO~NrER TO lO00PI
6044 00~23 Pl~2 ~au ~6 PO~TER TO PIo2 045 eo0Z0 ONE E'CU ~3 POI~TER TO THE Co~sT~NT ONE
O047**~***~****~4~**~*~
004B 0~032 ~02017 .15 DEC 15 1JO49 ~OJ33 00002C .16 DEC 16 B050 00034 000025 .21 DEC cl ~051 0~035 ~a0026 .22 DEC 22 ~052 20036 600027 .Z3 ~EC 23 0053 oOa37 00~j4 .28 ~EC 2a ~54 eOa40 ~00037 .31 DEC 3~
~055 eO041 1~00040 .32 DEC 32 ~1056 eO042 eao041 .33 DEC 33 ~057 00043 ~0~042 .34 DEC ~
lo~t;~ ~
.
PAGE OC03 ~01 9~30 MAIN SYSTE~ SOF7~ARE
~058 e~044 ~00045 ,37 DEC 37 ~059 00045 ~0a050 .40 ~EC 40 d060 QOO46 S0a051 .41 9EC 41 e061 00047 ~00053 .43 DEC 43 ca62 e~os0 o00aSS .45 DEC 45 0063 OaOSl 000056 .46 DEC 46 0064 e~052 eOO060 .48 OEC 48 ~065 e0053 oao072 .58 GEC 5~
~066 a0054 ~00077 .63 ~EC ~3 C068 000~6 ~23420 .lE4 DEC 1000a oa69 O~05~ oal7s0 .1000 DEC 1000 0070 ~0060 000144 .100 DEC 100 ~071' 00061 ~0~al2 .10 ~EC 10 0~7Z 0~061 LNFD Eau .10 0073 eO062 100000 fLG9T OCT 100000 0074 OBa63 ~00143 .99 DEC 99 a075 00064 100094 INTFL OCT 100004 ~076 00065 a7660~ OP~SK OCt 76000 ~077 00066 077777 INF OCT 77777 4078 00067 100037 TYPFL OCT 100a37 0079 00070 101777 OPOM~ OCT 101777 ~080 a0071 Oael05 E OCT 105 C081 C0072 ~00106 F OCT 106 ~082 00073 ~a0123 S OCT 123 ao83 80032 91~ EQU .15 G084 e0033 B20 ~CU ~16 ~085 00074 0aO022 B22 OCT 22 ao86 90~75 oa0a23 ~23 OCT Z3 ~087 aO035 ' ~26 ~OU -22 ~088 ~0036 B27 ~QU .23 eoa~ ~076 000036 836 OCt 36 090 ~0040 837 FCU ~31 ~091 ~0043 942 ~OU .34 0092 O00~7 e00044 944 OCT 44 C093 ~0100 ~0~052 ~52 OC~ 52 ~a94 00053 B72 ~GU .S8 O095 ~0101 ~ealaO 910~ OCT 10 ~96 Z0102 ~0~133 8133 OC~ 133 0097 00103 ~0P14a B140 0C~ 140 0098 Oolo4 000177 B177 OCT 177 ~,~
~099 00105 000377 ~377 OCT 377 dl00 80Z13 9400 EOU C~ . i 4101 0OlO~ 000177 B?7? OCT 7?7 4I02 00107 001000 B1000 OCT 100a ~103 ~0110 0014a0 B1400 OCT 1400 ~I04 00111 001740 B1740 OCT 1740 ~105 eO112 ~1760 ~1760 OCt 176 0106 00113 001774 B1774 ~CT 1774 ~107 Z0114 Oal775 B17~5 OCT 1775 olOB ~0115 001777 P1777 ocr 1777 6109 eoll6 e02000 QTOP OCT 2000 0110 ~0117 a~2400 ~24ao OCt 2400 ~1 00120 ~0~00 ~3000 OC~ 3000 fll 12 00121 0~4000 9400H OCl' 4000 ~113 Qal22 ~06000 ~6K OCt o0a0 ~t~
10~
PAGE Oa04 ~01 9830 MAIN S~STEM SOFTWARE
~114 ~0a04 ~10~ EOU C6~1 ~115 00~04 QPOP ECU Bl~
~116 80123 0120a0 ~12K OCT 12000 ~117 00123 R~OP ~OU ~12K
OllB ~0124 J320a0 EXPOP OC~ 3200 ~119~ a0125 C500Q0 LROP OCt 50000 el20 00126 OS~O~0 LPOP OCT 52a~0 el21 20127 1700~0 B170K OCT 17000a ~122 ~0130 013777 FRO~A OCT 13777 C123 Cal31 37777 LQOMA OC~ 37777B LAST RO~ ~LOCK
~124 00132 177777 ~1 DEC -1 0126 0~134 t?7775 M3 DEC -3 ~127 0O135 177774 M4 DEC -4 0129 ~al37 177772 M6 DEC -6 0130 00140 177767 ~9 DEC -9 ~131 80141 177766 M10 DEC -la tl32 00142 177765 Mll DEC -11 el33 Cal43 177764 M12 ~EC -12 ~134 OQ144 177763 ~13 ~EC -13 el3s 0al4s 177762 M14 DEC -14 C136 ~0146 177761 M15 ~EC -15 ~137 ~0147 177751 M23 ~EC -23 ~138 O0150 177747 M25 DEC -25 0139 60151 17774B ~32 DEC -32 el40 e0152 177734 M36 DEC -36 ~141 ~0153 177720 M48 DEC -48 4142 ~0154 1777~0 M64 ~EC -64 gl43 ~0155 177660 M80 DEC -80 ~144 e~l56 177634 M100 DEC -100 dl45 ~C157 177400 M256 ~EC -256 C146 6al60 176000 M1024 ~EC -1024 ~147 Q0161 1s436a MAXSN DEC -1000e -(MAXIMU~ ALLOWA~LE LINE NU~RER) ~148 00162 043116 FN ASC l.f~
~I49~
~150~ MAtH CONSTANtS T~T A~E NEEOED ON BASE PAGE
elsl~
~152 00163 1774~1 ZAP OCT 177401 C153 a0164 ~63440 MASKl OCT 06344a ~154 eO165 461400 ~ASKS 0Ct 06140~
2~7 ; .
PAGE 0005 ~01 9q30 MAIN S~STEM SOFTWAQE
~156-~157 C0166 40440 F~A~ DEF 40440B FI~St WOQD R/W
015B ~0112 RStKA EQU B176~ StAQT OF QETUQN StACK
el59 ~0167 ~02454 W~ItE DEF WRIT PRINTER ~ND DISPLAY DRIVER
0160 e0170 ~02533 CLERA ~EF CLEbR CLEAQ QEFRESH BUFfER
el61 0all6 REED EGU UTOP KEy~oARD DRIvER aTOP IS = 2~00 ~162 00121 START EQU B4000 0163 ~01tl 004741 QUNA DEf RuN P~ASE 2~ S~MBOL TbBLE
0164 ~0172 ~10012 XEC4A DEF ~EC4 STATEMENt E~ECUTION EXIT
0165 Q0173 004044 PEX~A DEf PEXMK
~166 ~0174 ao4037 RDYDA DEf RDYPT
~167 a0122 LISTA EaU B6K
al68 e0175 003072 tSRHA GEF T~SQH TA~LE SEARCH
0169 00176 e07450 ELINA DEF OLINE OUTPUT I/O BUFFER
al70 a0177 ~053Q5 SSrMA DEF SSYMT
el71 00200 011433 OPC~A DEF OPC~K CHECK FOR UNDEFINED OPERAND
0172 ae2dl 01~563 FOR~A DEF FORMX EVALUATE FORMULA
~173 002a2 ~12040 FSCA ~EF FSC
al74 ~203 004511 ACTSA DEF ACt5T
0175 30204 ~04500 DELSA 0EF DELST
~176 202~5 ~04355 AERRA DEF AERR
~177 e0206 eo4360 EQQA ~Ef ERROR
C178 ~0207 ~00000 INTEA BSS 1 KEyBQARD INTERRUPT L~NK
~179 Oa210 ~00090 OUTIA ~SS 1 OUTPUt AN INTEGER
2180 86211 003200 .~UFA DEF IO~UF~IOBUF FIRST CHAR OF I00 BUFFER
dl81 00212 023322 .SLBF DEF RBUFF~R~UFF FIRST CHAQ OF REFQESH BUFFER
dl~2 e0213 001744 ARlA DEF ARl 0183 ~0214 601754 AR2A DEF AR2 Q184 00215 ~01773 TMPOP ~EF RES REsuLT QEGISTER POI~tE~
4145 0d216 O00d~0 .FADA BSS 1 ADD
61~6 ~0217 00aOa0 .FSBA HSS 1 SUBTRACt alS7 ~0220 a00000 .FMPA ~SS 1 MULtPY
218a 00221 000000 .FDVA ~SS 1 ~IVIDE
OlB9 ~0222 005447 ENTFA DEF ENTfN
0190 3d223 ~O~O .FSR ~S5 1 SOUARE Root ~191 20224,~a0000 UPAQA OSS 1 UP ARROW
el92 ~0225 O000Q0 FLTQA ~SS 1 01~3 00226 200B00 fLtFA ~SS 1 ~194 e0227 ~0a00a fXFLA ~SS 1 OI~S 30230 e~0000 FLTSA BSS 1 ~196 ~0Z31 a0a0~0 SPL~A ~SS 1 al97 00232 ~0a000 SNFLA ~SS 1 ~198 00233 ~01551 BEND DEF RBUfF I~O ~UFFER END
~1~9 FOZ33 S~UFA EOU 9EN0 a200 00234 e06353 NMOtA DEF NMOUT NUM~ER OuTpuT ROUTINE
~201 a0235 007027 FiLLA D~F flLL OUTPUT ~LA~KS
0202 00236 003442 SLEND ~EF RBUFF~R9UFF~80 REFRESH 9UFFEQ END
~203 50111 TMPA E~U B1740 e204 OOllQ 9ADRP EOU 91400 POI~TE~ POINt~R TO I~O BUFFER
e206 e0123 FOPBS ECU B12K
0207 eO237 ~16516 SALTA DEF SALT
~208 ~0240 405257 MDIMA DEF MDI~
0209 00241 C19413 SYTSA DEF S~TSH
~210 00242 ~5711 DCOMA DEF DCO~P
0211 0024~ ~0~000 NU~CA HSS 1 2~j ~0~644 PAGE OeQ6 ~01 9R30 MAI~ SYSTEM SOFT~ARE
~212 e0244 eoa0~0 NU~OA BS5 1 0213 00245 ~1656 G~STA DEf GE~S~
a214 ~0246 ~12231 VAROA D~F VAROP
e215 00247 010112 ECALA DEF ECAL E~ECUTE CALC ~O~E
ff216 Ofl250 004625 OVCHA OEF OvcHK
~217 e0251 004575 CLPlA DEF CLPRl ~218 0~252 e05416 E~tEA DEF ENTER
~219 C0253 607672 CHRSA DEF CHRST
e22a 00254 0~3317 XSC~A DEF XSCRl SCRATCH KEYS
B221 00255 ~lQ040 XEC6A DEF ~EC6 a222 ~0256 ~1~425 FOAAA DEF FDATA
0223 8~257 a0566D FNOAA DEF fhD~D
2224 eO26a 005671 fNDlA UEF Fh~Al 0225 eO261 ~0?547 IOSTA OEf IOST I~O STATUS CHECK
~226 0C262 61Q467 I~REA O~F I~REt 0227 d0263 0C3336 SUMPA DEF SUMP
~228 e0264 ea2504 CQCKA DEf CRCHK OUTPU~ SUPRESSED CREF
~229 OD265 el5501 IOHEA D~F IOHED
d230 e0266 ~07249 QTCHA.OEF aTcH~ CHECK FOR STRI~G
6231~*~*~**** 4~*~*O~4*~ *~*
~232 a233 e0267 ~00900 BSS 1 CHECKSUM ~ORD******~***~*~
. .
10~)644 . ~ .
.. .. .
.
PAGE O~lo? 1101 9830--EQROU TA~LE
G235 ~02~0 ~0062s El D.F SYSER ROM CONFIGURATION ERRoR
0236 eo2-1 000561 D.F FSCE4 MEMoQy OVERFLOW
02;7 ~02-2 004l77 D.F NCALC StMT NOT ALLO~ED IN CALC MOOE
~2_8 s02-3 000726 D:F SYE25 YISSING OQ BAD TNTEGFP
0 3~ t0 ~4 004243 ES. D.F NSTMT NO STATEMENT OR CO~MAND RECOGNISED
e 4a 0o ~s 012134 DEF FSCE3 UNQECOGNISED OPERAND
~~4 0~l-6 001152 DEF NOEOF CHARS FOLLO~ StMT LOGICAL END
J-4~ -7 ~04307 DEF syEls MISSIN6 pRlNT DELIMETER
G~4D o~ a 0042s3 DEF UKERR IMPROPER TrplNG AID ASSIGNMFNT
0244 Ctl3~1 003ls5 E10 DEF KERR KEr UNDEFlNED
~24s 00302 ~oooo0 ~ss l ~246 ~0303 ~o~ooo ~ss l e247 00304 001165 OEF SYE12 51GN GIVEN BUT NO NUM~ER
0248 00305 000511 DEt COMCE~l UISSING COMMA
G249 00306 000s22 EIS DEF FSCEI NO LEFT PAQEN
02s0 00307 000s3s DEF FSCE2 NO RIGHT PAREN
d251 eo310 OlS432 DEF ARREI MlSSING SUBSCRIDT
e2s2 eo311 012452 DEF STRNP STRING NOT PERMITTED
02s3 00:12 0076~0 DEF NOST MISSING OQ BAD STRING
e2s4 ~0.l3 00?665 E20 DEF SYE14 NO CLGSING OuoTE
o255 eo~l4 J12433 DEF syNE4 MlSSING OR BAD FUNCTION l-D-02s6 eo31s 012515 OEF syNEs MlSslNG PARAMEtER
0 5? ~~~.r ~03s04 D.F NDAT~ M-SSING OR BAD DATA ITEM
C~58 o~- oa-?23 D.F SYNE7 M'.'SING THEN
~ 59 ~ 0-s6s E25 D.F MlsoF M-~ SING OF
0 60 ~D~ Olh461 DF.F SYE:3 M-~slNG VARlABLE
o~61 0~3-l 0 ~464 D_F s~N-s M-~SING FoR vARlAsLE
0-62 to3~: 0 473 DEF SYN-9 MISSING T0 0~63 003-~4 t.2s00 DEF SYE.~ MISSING STEP
o~64 003-5 F.2522 E30 DEF S~N-6 MISSING ASSlGNMENT IN FOR STMT
0~6s 00~6 004273 DEF S~N~2 LET STMt HAS NO STORE
a~6~ o B-7 ~r3531 DEF fMT-R IMpRopER FORMAT SPEC
o~h' 0~ d ~43~ O F srNE3 MJSPLACED COM STATEMENT
~d ~ I ~ o~~ D-: CMEQR IMPROP :Q COM DECLARATION
IJ' E:15 D ~ hERS APQAr ~IOU9Lr D~FINED
~ Op~ D.- ssr~3 PRECIS-ON DOuBLr DEFINED
~ 7 ~ 0 1~ S~ME2 INCO~J5 STENt DlMENsloNs ERl~ ARRAr HAS UN~NOWN DIMENSIONS
aol~ ~0~? ~ D~F MERs DIMENSIONS TOO LAQGE
7~ ~0 3 ' ~ 44~ E40 ~:F EQ8 OPERAND IS UNDEflNED
~ 7r ~ ~4~ ~o~L2 ~ .F NlNtT APRAY OQ STRING NOT lNlrrALl2ED
~ 7~ D'4 ~ ''4 1 I~:F ER~, SU~ icpl~T EXC E~S BOUNDS
7 ~ 4 ~o- 17 u f SCGRP s-L .Ct ConE LESS T~AN I OR GT~ THAN lS
n4 E45 D~ F TAIEQ S-A EM .NTS US G FORMAT CANNOT USE TAB
-O ~343s ~ F ~EI~R ouT OF D A TA
E50 U:F MEQll LAST STYT IS NOt ~END~
D_oa0 Ei~ S I
. 14 ~ 000 ~SS I
0 15d ~ ~ S ~HqOOO DSS 1 ~_ 2~ () . .
~O~ 4~
PAGE 0~0~ ~el BASE PAGE ~OUTINES
OE290~
0291~ ~1ULTI EXIT PoINT REtURNS
d292~
e293 ~0356 B60365 RETN3 JSM RET2 RETuRN TO P~3 ~294 e03s7 e314~1 RETN2 STA RS~VF RETUQN TO P~2 IE295 0~360 ~21777 LDA RSpTQ
~296 e036l ~00132 ADA M1 a297 oa362 ~70637 IS2 A~I INCREMENT RETURN ADDQESS
~298 eo363 0214al LDA R5A\lE RESTORE (A) e299 ~0364 170402 RET
e3~0~
~i301 0036s a3l4el QET2 STA QsA\lE
0302 00366 e21777 LDA KSPTR
~303 eo367 000133 ADA M2 e304 eo370 070637 IS~ A.l INCREMENT QETuRN ADDRESS
630s 00371 e214sl LDA RSAVE RESTORE (A) 17a4~2 RET
~307~
~308 BO373 ~24212 IC~'l' LDB ~SLBF GET SINGLE LINE C\lARACTER COUNT
e309 eo374 ~174117 W~3UfF LDA a i~310 ea375 ~7~76 TcA
~311 ~0376 oal4e0 AOA BAt)DR COMPUTE CHAR COUNT
~312~377 1704d2 ~E~
~313~
~314~ GET A PARAMETER IN ~B) fROt~ P 1 a3ls~
~316 ~04~e ~25777 GPAR~ LOB RSPTR
e3170e4al oa4133 ADB ~2 ~318~0402 ~74637 ISZ a I
~31g00403 074537 LDE3 E~ ~ I
~32000404 065375 J~p FIX~4 e32l~ .
0322~ T~ANSfEq FROY AR2 TO ARl ~323~
e324co40s ~24213 XFARl LDB AR1A
S325e04t,6 020214 LDA AR2A
6326004a? 1700~4 XFR
~327~0410 004134 ADB M3 QESTORE ~) ~328eo4 ~ 402 RET
132g~' ,- 0330~ CONVERT AND StORE Ah OPERAND VALUE
~331-~332- AQ2~ SOURCE
0333~ ~A)~ DESTlNAtlON ~YPE
334 ~Q) ~ DESt~NAtlON ADof~Ess Q336 90412 125413 RSULT LDB HSTPT~I
a338 ~ fl414 121413 LD A HStPr.I
0339 ~0415 045413 JS2 HSTPT
~340 00416 0~0206 StOQE R~Q S IF flIT 4-1 a3342 ~0420 0?~602 SZA 13 NO~ ET PQECISTO~ flITS
3344 0422 35727 SIB ~IN2 SAVE ADD ESS
~1 -- ..... .. _. __.. _____............................................. _ ~ _ .
~V~
.
PAGE 0009 ~01 BASE PAGE ~OUTINES
~34~ e~4~4 ~444 JMP STOR2 YES
~34 ~4lr ~040~ STORI JSM XFARI INTEGER~ SAVE IN ARI
~34B 1104 t~ hO2Z JSM FLTRA~l CONVERT INTEGER
~34~ 0~4 ~ 1 ~443- J~P INTOV OVERFLO~ EXIT
~35~ e '430 3572 SIB MBIN2~l STORE INTEGER
~35 eO43 ~64444 JhP XFAR2 RESTORE AR2 ~ 5 0043 60205 INTOV JSM AERRA,I EMIT OVERFLOW
035- 0043; ?7~27 DEC -105 INTEGER OVERFLO~
~3~4 ~04.4 a24a66 LDE INF SPT ~AXIMUM POSITIVE INTEGER
0 5 ~0435 021744 LDA AR~ GET 4ANTISSA SIGN
03 6 00436 07~ SLA STORI~3 POSITIVE?
63e7 004 7 074076 TC8 NO
~3~0 00440 064430 JMP STORI~3 ~359 00441 ~604~5 STOR2 JS4 XFARI SAVE IN PRI
0360 00442 ~25727 LD8 MRIN2 RECALL AnDRESS
~361 00443 16a230 JSM FLISA I CONVERT TO SPLIT AND STORE
~3~2-S363 00444 ~20213 XFAR2 LDA ARIA
~364 00445 824214 L08 AR2A
0365 ~0446 170004 XfQ
C367- STORE AN OPERAND NAhE AND T~PE
0368~
0369- (A)r ASCII CODE FOR LETTER
~37Q- ENTER AT STROP~1 ~ITH PRE AOJUSTED OPEQAND TYPE
~371- EXIT- ~A)- CO4PLEIEU OPER~TOR-OPERAND PAIR
~372-6373 CO4-O 004151 STROP ADE M32 NUMERICA~LY ADJUST OPERAND TYPE
~374 004 1 000154 ADA M64 GET 5 ~IT CODE FOR OPERAND NAME
OJ75 ~04-2 070544 SAL 5 COMDINE THE
C376 ~04-3 ~74217 IOR a T~O OPERAND PARTS AND THE
0377 ~0454 141706 IOR SBPTR I OPERATOR-OPERAND PAIR
~378-~379- UPDATE SYNTAX 8UFFER POINTEP AhD CMECK FOR OVERFLOW
~ IBD-- .
0455 131706 STA SaPTR I STORE ~A) PEFORE UPD~TE
~.~1 QO457 131?06 StA SBPT5.1 SAVE lA) a-dL eO460 17a402 R~T
~ FIND ANU STORE ONE-CHARACIF5 OPEPATORS
~~ ~ (A)-SOURCE CHARACTER
J~B- (P)5NUM9EP OF ENTRlEs TO PE SEARCHED
- P~l-STARTING TA8LE ADDRESS-I
~ 0462 ~64464 SrMC2 LD3 2 ALTERNATE ENTRY TO SPARCH TWO SY~P,OL5 C ~3 00463 ~24012 SYMC1 LDS .1 ALTERNATE ENTRr TO SEARCH ONE SYM80L
t39' ~0464 ~3S466 SYMCK STa LOCLI SAVE ~ TO PE SEARcHEn 439~ ~0465 ~31467 STA LOCL2 SAVE SOURCE CH4RACTE5 ~39 eO46~ ~60400 JSM GPARM GET STARTING ADDRESS
~9 ~047; ~745770 SYMl SIR ~1 INCRE ENT TA3LE ADDRESS
6400 ~047 ~70342 SAR 8 POSITION It 0401 ~047 011467 CPA LOCL2 MATCH SOUPCE CH~R?
23, .. ...... .
, ._.,~
~0~6~
PA6E 0010 ~01 BASE PAGE ROUTINES
2402 e~473 064500 J~P SYM2 YES
4403 00474 es5466 DSZ LOCLl NO~ CONTINUE SEARcH?
~404 00475 064467 JMp SYMl YES
O405 GO476 ~21467 LDA LOCL2 NO- RESToRE C~ARACTER
~406 ~0477 17q4B2 RET RETuRN TO P~2- NOT FOUND
~407 e0500 0201?3 SYM2 LOA FOPBS COMPUTE
0408 ~0501 67~076 TCA
~409 e05~2 ~74~17 ~A B OP-CODE
~410 Y0503 ~64543 Jhp STSRH~4 SHIFT-SToRE-RETURN Tn P~3 6411' e412- CHEC~ FOQ A COM~A
~413~
0414 eOS04 060463 COMCK JSM SYMCl C~ECK FOQ
Q415 e0505 012001 CEf 12001R COMMA-l a416 ~0506 170402 KEt NOT FOU~n - QETURN TO P~l ~417 0~507 064357 J~p RETN2 FOUND- RETURN TO P~2 4418~
a419 0~510 ~60504 COMcE JSM COMCK C~ECK FOR COMMA
0420 00511 16~2Q6 JSM ERRA~I ERROR If NoT FouND
~421 00512 170402 ~ET
~422~
a423~ C~ECK FOR LEFT PARE~THESIS
~424-0425 00513 ~60461 LpcK JSM SYMC2 LEFT PARFN
~426 00514 012023 DEF 12023~ ~BRAC-l ~427 e0515 170402 RET NO~ QETURN TO P~l e428 e~S16 02B126 LDA LPOP YES- RECODE A LEFT
0429 0~5]7 064544 J~p STSQH~5 P~QEN AN~ RETURN ~O P~2 ~430~
~431 00520 061055 JSM GNEXT GET NExt CHAR
~432 ~0521 B60513 LPC~E JSM LPCK DEMAND A
~433 80522 160206 FSCEl JSM EQQ~-I LEFT PARE~ OR BRACKET
B434 ~0523 1?04B2 QET
~435-~430~ C~EC~ FOR RIG~T PAQENTHEsIs ~437 d438 00524 060461 QPCK JSM 5Y~C2 RIGHt P~RE~
~439 605~5 ~12003 ~Ef 1200~ PQAN-l 0440 oa5~6 17~402 ~ET NO- RETURN TO P~l ~441 ~0-~7 020~04 ~CA RP~p YES. RECODE A RIG~T
~442 OO''30 660455 JSM SBRUD-l PAQEN AND INC S~PT~
~443 ~O'': l 061055 J5M GNEXT GET NEXT ChAR
444 OO':2 ~64357 JMp RET~2 RETURN TO P~2 ~44~ ~0533,~61055 JSM G~EXT GE~ NEX~ CHAR
J44 60S34 06e524 RPC~E JSM RpcK DEMA~D A QIGHT
44 ~0535 160206 FSCE2 J5M ERR~-I LEET PAREN OQ SRACKET
045~
~451 S~ARC~ TA~LE ~N~ SIORE OP CODE IF FOUND
C453 ~0537 160175 STSQM JS TjR A~I SEARC TABLE
23~3 10~64~
pAGE Oell #~1 ~ASE PAGE RouTINEs .
~458 e0544 131796 stA S~PTQ.I SToQE OP CODE
~459 e0545 C6'3~ ~Mp RET~2 REtURN TO P~2 a460~
~461- SEARCH TABLE AND STORE EXPA~DED OP CODE
~462~
0463 ~546 16~175 STEXP JSM TsRH~I SEARC~ TA~LE
~464 00547 17~402 QET
C465 aO550 070544 SAL 5 ASSE~PLE AND
0466 ~o551 ~4G065 IOR OP~SK STORE
0467 00552 864544 J~p StSRH~5 ~468~
0469~ BUMP H-ST~CK POINTER AND CHECK fOQ OVERFLOW
e470~
0471 ~0553 655413 ~STP DSz HSTPT ~I~C PnI~TER
0412 ~0554 ~25413 L~9 HSTPT
~473 40555 074076 TCP
0474 ~0556 005412 ADB LSTPT
0475 ~0557 004017 AD8 .2 ~476 00560 e75012 S8M StsQ~l oVERLAP? RETuRN IF NOT
~477 Ga561 160206 MER~ JS~ ERRA.I
~479 00561 FSCE4 EGU ~ER~
a48 0481- STACK l~) ON L-sT~cK A~D C~ECK OVERFLO~
~482~
0483 00562 ~25421 L~B PRADD
~484 00563 445412 SLWST 152 LSTP~ ~NC Po~Tf~
~4aS t0564 135412 SIH LSTPT-I STORE V~LUE
~486 eO565 064554 JhP ~HSTP~l CHECK FOR OVERFLOW
~487~
04B8~ FETC~ TOP OF L-STACK
0489~ , ~49~ 00566 031421 StA PRA~O
0491 00s67 121412 UNSTK LDA LSTPT.I
0492 ~570 ~55412 DSZ LStPt 0493 ~¢571 170402 RET
e494~
~495~ PREPARE fOR SR4NCH THROUG~ ~8LE
0496~ -8497 e~S72 0254Zl LD9 PRA~D
~498 ~0573 ~3S472 STB TEMPS
~499 ~0574 12s472 NEXTL L~B TEMPS,I QEAD AND SAvE
~500 ~0575 074073 S~P ~1-C CLEAR SECURlTr ~IT
~501 ~0576 035427 S~B ~LNUM CURRENT LINE ~UMBEQ
02 e0577 e2s472 LD9 TEMPS FlND ADDRESS
es03 e~600 661a07 JSM NEXTA OF NEXT STATE~ENt t504 S0601 ~35421 STB PRADD SAVE IT
e505 t0602 045472 ISZ TEMPS
dS06' Q0603 125472 LDP TEMRS,l READ OP CoDE
~5~7 ea604 074073 S~P *~l-C
e5~8 ~06~5 645472 ISZ T~MPS
65Q9 00606 074442 NEXTl SHR 10 ~510 e0607 674076 TC~ GET NEGATIVE OF OP CODE
~511 00610 635466 S7B LOCLl SAVE -~OP CODE) eS12 Q0611 121472 LGA TEMPS~I
CS13 00612 ~5~065 AhD OPMSK GET PAGE
104~i~4~
PAGE 0gl2 #el BASE PAGE QOUTINES
fS14 00613 ~24130 FPAGE L~9 FROMA GET fIRSt tA8LE ADDkESS
~515 00614 e744s7 CPA B-I IS THIS THE PAGE?
~516 eo61s 170402 ~ET Y~S. ~B) = LAST WORD OF PAfiE
~517 e0616 ~14131 CPB LROMA ALL ROM'S SEARCHED?
~518 00617 064622 JMp FPAGl YES- CHECK BINARY AQEA
f51g f0620 ~04116 ACB ~~P NO. CHECK NEXT ROM
a520 00621 Q64614 J~p FPAGE~l es21 00622 e2s4f3 FPAGl LOB MAW
C522 f0623 111403 C~A MAW-I IS CODE JN R/W?
23 ~0624 170402 RET YES. (B) = MA~
~524 ao62s 160206 SYSER JSM ERRA-I NO~ THE PRopER BLOC~ IS NOT IN
e52s~
~5 ~527~
Q528~ SAVE B~DQ AND SBPTR
~529~
oa626 ~2s400 SAV~P LDB BADOR
~531 00627 ç3s71s S~B SBADR
G532 oa630 G25706 LDB SBPTR
G533 e0631 G35716 StB SSBPT
es34 ~2632 17~4~2 RET
e53s-0s36~ REStORE BADDP AND S~PT~
e537~
G533 00633 021715 RESBl LDA SBADQ
0s39 ~634 f31400 STA ~ADDR
0540 f~635 021716 LDA 558Pt e541 C0636 8317~6 SIA sapTR
es42 00637 17f402 RET
as43-GS44 00640 G60633 RESBP JSH RESBl 4s4s BO641 1217~6 LUA SBPTR.I E~ASE
4546 f0642 f50065 ~o OPMSK OPERAN~
~547 00643 131706 STA SBPTR~I
G548 00644 170402 REt as4s-4550~ SCRATCH SYM~OL TA0LE AND I~ITIALI2E StACKS
~551-ess2 oa64s ~2s4f4 MlNTt LD9 LWAM
~553 00646 ~3s407 STB 5Y~tP
e554 e0647 C35406 StB VALuE
0555 00650 664653 JMp INITS~2 ~556~
tS57~ lNItlALlZE STACKS fOR SYNtAx f559 e0651 020662 INITS LDA HFLGA
0560 00652 l70000 CLR CLEA~ HALt AND TRACE FLAGS
0561 eo6s3 025426 LOB PaPTO SCkATcH L-STACK
0562 a0654 ~f4132 AD8 Ml ~56~ ee655 ~35412 st~ LSTPt ~564 f0656 ~25407 INITl LDB SYMTP SCQATCH H-sTAcK
0565 e0657 ~74f70 SIB *~1 es66 00660 f35413 St8 ~STPt 4567 00661 164242 J~p UCOMA.I QESET DATA PoINtERs ~568 eO662 ~al436 HFLGA 8EF HFLGI
~569~
2~
10~
PAGE 0e13 #0l BASE PAGE KOUTINES
es70~ SUBROUTINE To BUILD A PROGR~M INTEGER LESS THAN 10000 as71~
057Z 00663 655490 GSZ ~ADDR ~ACK UP POINTER
~573 00664 024161 LNU~ LD9 MAXSN CALL PGINT WIT~ 000 6574 ~d665 145706 IS2 5BPTR.I F~AG FOR QESEQUENCAeLE INTEGER
C576 SUBQOUTI~E TO BUILD A PRo6RAM INTEGER AND SToQE IT
0577~ I~ THE S-~UFFER A~D FLAG T~E PREvIous WoRD
a57B~ tM~XlMUM ALL0~ABLE I~TEGER) 0579~
SS80 e0666 121706 PGINT LDA S~PTR.I SEt ~581 4~667 ~72053 SAP ~ S "INTEGER
0582 00670 ~00a20 ADA .3 FOLLOWS"
o5B3 eG671 e6~45s JSM SaPUn-l FL~G
~584 a0672 ~35477 STB TEMP4 SAVE UPP~R ~IMIt ~ ~585 eo673 G61055 ~SM GNEXT
0586 e0674 664677 J~P INTCK~1 ~587~
858B~ SUB~OUTINE TO BUIL~ AN INTEGER AND STORE IT IN SBUFFER
~589~ (~)=F~RST CHAQACtER
e590~ IMAXIMUM ALLOw~aLE I~TEGEQ) es9a-~592 00675 C24161 LOB MAXSN ~UILD A LINE #
t 0593' ~594 Q0576 03S477 INTCK S~ TEMp4 SAVE UPPER LIMIT
~595 e0677 e74742 SBR 16 INITIALIZE
0596 ~0700 035722 STB I~TGR PAQTIAL REsuLT
~597 00701 ~6a750 JSM DIGC~ IST C~AR A DIGIT?
~598 Q07~2 064725 J~p SYE25-l NO
6599 e07~3 060750 INTCl JSH ~lGCK DIGIT?
060~ ~9704 ~64716 J~P INTC2 NO
~601 00705 821722 LDA I~TGR QECALL PARTIAL QESULT
Q602 50706 035722 STB INTGR SA~E LATEST DIGIT
~603 e0707 e24061 LO9 ~10 MULTIPLr PAQTIAL
Q604 ~0710 ~612~1 JSM I~PY RESULT BY 10 Ç605 e0711 ~01722 ADA INtG~ A~D LATEST DIGIT
0606 eO?lZ e7aSS2 SA~ SYE25~1 SKIR IF nVERfLo~
~607 e0713 ~31?22 stA I~TGQ StOQE PARTIAL RESULT
0605 t0714 ~61055 - USM GNEXT GET NEXT CHARACTEQ
~609 00715 ~64703 JMP I~TCl e610 00716 t25722 INtC2 LOB INTGR SKlP THQoUGH LINK
~611 00717 135706 STB S~PTR~I STORE INTEGER
0612 ~0720 C74~5Q S2~ SyE2s-l IF ZERO
C613 00721 005477 AO~ TEMP4 SUBTRACT LIMIt ~614 ~3722 076153 SBp SYE25-l.S SKIP IF TOO L~QGE
~615 90723 ~25?22 LOB INTGR QEtUR~ WITH
~616 6~?24 964456 J~P SBPUD INtEGEQ IN ~B)S NEXt C~AQ IN ~A) 061B Q0726 16B206 SYE25 JSMZ EFLRAAGI RETURN ON ERROQ FLAG SET?
e619 ~0727 064357 JMP RET~2 YES. QETuQN TO P~2 e621 GET ADDQESSES FOR S~STE~ Co~MAhDs 0623~ RETUR~s tE~P4= ADDRESS OF FIRst LINF~
B624 (~)= A~DRE55 OF LAST LINE~l 23~, 10~i64~
/
PAGE 0014 ~01 P~AsE PAOE ROUTINES
~626 00730 074070 GETAD SIB ~~1 ADD 1 TO SECOND TO
~62? 00731 035477 STB TEMP4 MA~E ADD~Ess INCLUSIVE
~628 0B732 074076 TcB IS fIQST
063~ e0734 C75513 S9P SYE25 THAN SECoND
0631 ~0735 661075 JSM F~DPS FIND ADDRES5 OF flRST
~632 00736 064740 J~P ~2 G633 Q0737 Q64740 J~P ~1 e634~
0635~ C~LL FNnPS AND RETURN TO P~1 0636~
~637 00740 021477 LOA TEMp4 4638 ~0741 63547? 51B TEMP4 ; ~639 00742 ~61~75 FND JSM fNDPS
D640 e0743 170402 RET
C641 ~0744 170402 RET
C642 00745 170402 ~ET
~643~
~644~ C~ECK IF CHAQ IN (A~ IS A DIGIT
~645* RETUQN TO P~1 IF ~OT FOUND
~646~ QETURN TO P~2 If FOUNDt ASCII IN (~); DIGIT IN (B) ~647~
6648 00746 a3a071 DLIMT OCT 30071 a-s 0649 00747 040532 LLIMt OCT 40532 A-Z
a650 e075Q 824746 DIGCK LDJ DLI~T LoDA LIMITS FOR DIGITS
0651 eO751 S64753 JMp LIMIT CMECK LIMITS AND RETQUN
~652 C653~ CHECK IF CHAR l~ (A) IS A LETTE~
C654- RETURN TO P-1 IF hOT FOUNn 0655* RETUR~ TOP~2 IF FOUND
0656~
~657 ~0752 e24747 LETC~ LDB LLIMT LOAD LIMITS FOR LETTFR
0658~ ENtEQ INtO LIMIt DIREcTLy ~659~
~660 ~C753 ~35466 LJMIT ST~ LOCL1 SAVE LIMIT5 ~661 e0tS4 ~74346 ~R a 0662 0a755 074342 5~R 8 GET UPPER LIMITS
~663 ~756 ~74056 C~
~664 00757 070037 AO~ A CODE EXCEEDS
~665 ~0760 B75253 SBP FND~3 UPPER LIMIT?
C666 0076l 625466 LOB LOCL1 NO
~667 00762 074342 S~R 6 GET LOWER LlMlT
~~66B e0763 Ct4076 TCL
0669 ~0764 070037 ADB A CODE LESS THAN
~670 00765 e75012 S~M FhD~3 LO~EQ LIMIT
~671 e0766 67a137 LD~ A NO- CODE IN LIMITS
~672 ~0r67 Oa4153 AOp M48 YES. RETURN TO P~2 4673 00770 e64357 JMp RETN2 ~674~
C675~ GET OPERAND
~676*
0677 00771 121472 GTOPP LOA TE~PS I
~678 ~0772 ~50070 AhD OPD
~680~*~
a6~l*
23 'jt 10~64 ~
PAGE Oe15 #01 84SE PAGE ~OUtINES
06~2 907?4 O00000 6SS 10 ~6~4-~
~6~5 ~686 ~687~
9688~ CoMPUtE ADDRESS OF NExT LINE
68g~
~690 ~1a06 ~35466 STfl LOCL1 0691 a1007 074117 NEXTA LOA B SAVE ADDRESS Of CURR~NT LINE
~692 e1~1Q 670070 SIA ~1 GET
C693 41011 070517 LDA A-I ST~TEMENT
0694 31012 05a104 AhD B177 LENGTH
0695 01013 670037 ADa A CO~PUTE A~DREss OF ~EXT LI~E
~696 ~1014 1704a2 RET
~6~7~
a699- T~IS SU9ROUtINE SloRES A CHARAcTER
0700~ IN A 9UFEER. THt BuFFEQ POINTEQ
0701- IS USCD TO INDICAlE WMF-RE IN THE
~702~ BUFFEQ THE CHARACTEP IS TC 9E STORED
e703- THE R,UFFER IS UNDIST(JR9ED EXCEPT
t704~ WHERF T~E POINTER PO1NTS.
~705-~706~
~707~ E~tRY CONDItIONS:
o?0a- t~)=BU~FE~ POINTLR POI~TER
o709~ (Al=CHARACTE~ tO B~F STOR~6 e710~ RIGHT JusllFIED WITH LEADIN5 ~S
.~711 e7l2~
~714-0715 e1015 e20041 06LNK LDA ~32 0716 ~1016 ~2411Q O~tXT LDP ~A~qP OPTION~L ENTQr POINT
¢717 C1017 031467 OUTCR 514 LOCL2 S~VE CHAR~cTEQ TO BE STOREn t718 el02a ~74517 LDA ~.1 FETCH BIJFFER PoINTEQ
0719 Q1021 011623 CPA PEND ~T 1~0 F~n?
~720 R1022 170402 REt YES
e721 01023 074637 IS2 ~-I RU~P ~UFFER PoINTER
C722 01024 070137 ~6 A
~723 21025 ~74006 R~R 1 ~724 21026 ~70002 SAR 1 C725 01027 07aS17 LDA A-1 FETC~ flUF'ER ~ORD
~726 01~0 ~74112 5~
e727 01031 079346 ~AR 8 SET A TO STORE IN LEFT HALF
~728 ~1032 050157 A~D ~256 C729 e1033 ~41467 iOR LOCL2 a730 a1~34 074132 SeM ~2-C
0731 01~135 070346 f~AR ~ RotATE IF FLAG I~AS SEt d732 1036 ~174557 S-IA ~- I STOI~E NFW BUFFER WORD
~1735-0736~ T~t 15 SUF~ROUT I NE F~ tCHF S
~737- A CH~RACTER FQ0~4 ~ RUFFER
i4~
PAGE 0~16 #~1 ~ASE PAGE ROUTINES
~73g~
0~40~ ENTRY CONDItION5 0741- t~ UFFER P0INTEQ PnINTEQ
e743~
~744~ EXIt CONDITIONS:
~745~ (A)=R-BIT CHARACTER
G746~ tPJ)=BUfFEQ POINTER POTNTER
~747 ~749~
G750 el040 G24110 LD~ BADRP GET NEX~ CHAR FROM I/O ~UFFER
~751 P1041 Q35466 GETCH STB LOCLI SAVE POI~TEQ POINTER
~752 0l~42 ~74517 LDA B-I FETCH BIJFFER POINTEQ
~753 e 1043 otRoa2 SAR 1 ~754 01044 G70517 LOh A.I FETC~ TWO CHARACTERS
a7ss e 1045 074537 LOB B I
~756 ~lt~46 074111 SLB GEt1 TOP ~ALF WORD?
4757 01047 ~70346 RAR 8 NO MovE QIGHT HLAF Tn LEFT
0758 el~50 ~7a342 GET1 SAR 8 TA~E TOP ~ALF
0759 e1051 145466 ISZ LOCLI.I BUMP PoINTER
~76~ 01052 1?0402 RET YES
e76l~
C762 OlZ53 ~24111 GTMP LDB TMPA
d763 eleS4 a65041 JMp GETCH
~764 ~765 0766 ~1055 ~24110 G~EXT LDB BA~RP GET CHAR. AND CONVER~
0767 Q1~56 061362 JSM GTCON
G768 01057 011707 CPA ~LANK BLANK?
0769 01060 065055 JMp g-3 YES. IGNORE IT
~770 elB61 1704~2 RET rEs~ RETUPN TO P-l -~771~
~772~ GET CHAQACTER ROUTI~ES
~773~
~'774 ela62 020233 GFRST LDA S3UFA
G775 ~1063 031706 STA jBPTR INITIALIZF SYNT~X 9UFFER POINTEQ
~776 el~64 G~211 L~A ~BUFA SET BUFFER POINTER ~O STAQT
~777 0l06s 031400 STA ~AD~R OF I~O BUFFER
G77B ~la66 061B55 GETSK JSM GNEXt GET A CHAQACTER
~t79 01067 Q10031 CPA EOL END OF L~NE?
~780 ~1070 170402 RET rES- RETU~N TO P-l 78i 01071 Gh4357 JMp RET~2 NO- RETUQN TO P~2 7B3 FTNO SEQUENTIAL POSItION OF LINE ~ GIVEN IN tA) ~7B5- RETUQN P-l :BErOND ~ND OF PROGRA~
B7B6~ P-2:eETWEEh LINES
G787~ P~3:FOUND
77B8 TEMP3=tB)=~DDRESS OF LINE OR ~EXT LINE IN SFQUENCE
LSTLN=LINE NUMBEQ OF PQEVJOUS LINE
07~ 72 12a233 LOA SBUFA~I GET SYNTAX SEOUENCE ~
B793 81074 031427 SlA CLINE SAVE FOR LIsT ROUTINE
23.) - 10~6~4~
PAGE 0017 ~01 BASE PAGE ~cuTIN~s ~794 e1075 e31476 FNDPS S~A TEMp3 SAVE SEQUENCE
~795 e 1016 ~25424 LCB PBUFF
~796 G1a7t 015423 FNDP1 CP9 PBPTQ ENO OF PROGR4M?
~797 O1100 665117 J~P FNDP4 YES- RETURN TO P~1 t798 e1101 074517 LDA B-I GET CURR~NT #
~799 e1102 67G073 SAP ~1.C CLEAR SEClJRE BIT
~800 S1103 07aS10 52A F~DP2 EXIT P~3 IF TypING ATD KEY
~801 ~1104 07fl~76 TCA SUBTRACT CuRRENT ~ FQOM
~802 O1105 e~01476 ADA TEMP3 DESIRED Y
0803 01106 070412 5AM FhDP3 CURRENT>oESIRED? IF YES. P~2 08a4 01107 a70330 SIA FNDP2 EOUAL? TF YES~P-3 (a)=1 ~805 O1110 074517 LDA B.I SAVE
~806' ~1111 ~70a73 SPp ~1.C
~808 ~1113 C610e7 JSM ~EXTA CO~PlJTE AD~REss OF ~EXT LINE
~8~9 e1114 C65077 J~p FNDP1 ~810 elll5 ~6e36s FN~P2 JSM RET2 P~3 ~811 el116 ~693fis FN~P3 JSM RET2 P~2 ~812 el117 035476 FNDP4 SIB TE~P3 P~1~ SAVE STATE~ENT ~DDRESS
~813 ~112~ 1704a2 KET
Q814~
0815~ MovE WOQDS TO HIGHER MFMORr esl6-~817- TEMP2=LASt ~ORD~1 OF SOURCE
~818- TEMP3=FIRST WOQD OF SOURCE
~819- T'EMP4-LAST WORD-1 OF DESTTNATIO~
~820-~821 01121 ~25475 ~VTOH LCB TE~P2 FETCH SOU~CE ADD~ESS
0822 81122 015476 ~ C~B TEMP3 ALL RELOCATION DONE?
ff823 01123 170402 REt ~824 ~1124 ¢55477 ~52 TEMP4, RACK UP DESTI~ATION POINTEQ
e825 e1125 004132 4DB M1 RACK UP SOuRcE POINTFQ
~826 e1126 074517 LOA B-I ~OVE
Q827 e112? 131477 STA tEMP~.T WORD
~828 ~1130 ~65122 JMp MVtOM~1 as3~ fETC~ ~N TNTE~EQ ~LLOWING 7FRO
es3l~
0832 e1131 620132 PGIN0 LOA Ml FLAG tO ~ETURN
~833 P1132 a31724 S~A GFL4r~ ON OVERFLOW o~ 0 ~834 ~1133 060666 JSM PGINT FETCH INTEG~ER
~835 e1134 170402 RET WITHIN LIMITs ~836 ~1135 445706 ISZ S9PtQ OVERfLO~ oR ZEQo: UP~AtE POTNtER
~837 ~1136 075710 SZ~ ~-2 SKIP If ZERO
088339~ e 1 137 064726 J~P SYE2S ~USt BE ovERFL
~840~ ~ETC~ A LETTER
0841~ EXIT:D~I IF NExT CHAR IS NoT ~ LETtERsCHAQ IN (A) 842 P~2 IF L~TTE~: LETTEQ IN TEMP1: ~ExT CHAR IN ~A) AN~ TE~P2 ~B44 O114~ 061ass LTQ JSM GNEXT
e~4s ~1141 060752 JSM LEtCK LEttEQ?
4846 e1142 17~4O2 STA TEMPI NO- REtURN TO P~1 e~49 t1145 031475 S~A TEMP2 SAVE SECnND CHAQACTEQ
2~
10~;69~
PAGE 0el9 ~Pl BASE PAGE QOUTINES
01146 6643s7 J~p RETN~ RETUQN To P~2 ~851~
essz~ E~D AND RESTORE STA~EMENT SYNTAX
OB53~
~8s4 01147 86l0ss ENDS JSM GNEXT CHECY FOP ADDITIoN~L CHARACTERS
~855 6lls0 945706 ISZ SBPTQ
ess6 ellsl ~6ll53 EOST JSM EOLCK
~8s7 ~1152 168206 NOEOF JSM ERRA~I
~8s8~
osss~ SUBQOUTINE TO CHECK FOR EOL
es60~
~861 alls3 G10031 EOLCK C~A EOL EOL?
~862 ~1154 1642e3 J~p ACTS~-I YES~ JUMP DIREcTLy To ACTST
~B63 ~llSS I 704a2 QET
~864~
C865~ INPUT A CONSTANT
~866~
0867 ~1156 S61166 CONST J5~ GSIGN GET SIGN
ea6~ ~1157 G~5721 StB SIGN STORE IT
es69 el 16Q 160243 JSM NU~CA~I FETC~ UNSIGNED Nu~BEQ
0870 ell6l o6slh3 JMp CONS3 NONE FOUND
~871 ell62 0643s7 JMp RETN2 FQU~D. RETURN TO P~2 z872 ~1163 ~2s72l CONS3 LDB SIGN
~873 C1164 ~746l0 SZB GSIGQ SKIP IF NO SIGN GIVEN
~874 01165 16a206 SYE12 05M ERRA-I SIGN GIVFN WITMouT NU~BER
as7s-ds76~ GET THE SIGN OF A NUM9ER
~8?7-~878 ell66 ~61055 GSIGN JSM GNEXT
~879 ell67 a74742 S~R 16 es80 01170 ~10047 CPA ~43 "~"?
esel ~1171 874236 SI9 GSIGl~l YES
~882 ell72 OlO050 C~A ~4s ~-"?
ess3 ell73 C24132 LD8 Ml YES
~B84 01174 074210 GSIGl SZB GSIGR SKIP IF Nn SIGN GIVEN
C885 e117s G35470 StB L2Tl SAVE SIGN
~ C886. ell7~ 061055 JS~ GNEXT GET CHARACTER FOLLOWI~G SlfiN
eBs7 01177 C25470 LCB L2Tl RECALL SIGN
essB ~120~ 1704~2 GSI6R ~ET
~99-~890~ ~ULTIPLr 2 INTEGFRS rN ~A) ~ND ~) AND RFTURN
8892 QESULT IN ~A)S IF PQODUCT ~ 32K~ 0 0893 el201 031466 IMPY StA MC~ND SAVE MULTIPLIC~ND
~~94 ~1202 670742 SGQ 16 INITIALIZE PRoDucT
6~9s ~1203 074151 zMprl SLS *~3 SKIP IF MULTIPLtEQ 91T IS ZEQ
as96 G1204 00l466 AOA ~CAND ~Dn MULTIPLICANn TO PRODUCT
0~97 ~1205 071552 S~M IMPYR SKIP IF RFsuLT >32K
y900 e 12~17 ~ 75450 5~R I S4VF PRonuCT
~901 ~1211 ~214h6 LDA MC4Nn ~ULTIPLY
0902 01212 001466 ADA MCAND MULTIPLTCA~D
B904 1213 e71252 S~A MC4ND SKIP IF RESULT ~32K
~905 al215 ~21467 LDA PRoD PEC4LL PRODUCT
Z~l l 10'~
PAGE 0019 #01 B~SE PAGE ~OUTINES
eg06 el216 0652~3 J~P IMPYl 0907 el200 IMPYR EQU GSIGR
~9a8~
~90g~ EVALUATE FORMULA 4ND FETC~ ~ESULT TO AR2 0910~
~911 01217 16~201 FETCH JSM FOR~A-I EVALU~TE F~RMULA
~912 01220 160200 JSM OPCHA-I fiET ADDQFSS OF RESULT
e913 ~1221 ~45413 ISZ HSTPT
~914 el222 045413 ISZ ~STPT REMOVE FROM STAcK
~91S el223 074117 LGA a 0916 01224 064445 J~P XFbR2~1 TRANSFER TO AQ~
~917~
~91B~ SUOROUTINE TO LEAVE KEY DEFINITION MODE
e9ls~
~920 el225 02142Z LDEF LDA ~KPTP
~921 el226 070410 SZA *~B
eg22 el22~ 0214~5 ~OA P~UFO
4923 elZ30 031424 SlA PBUFF RESTORE P~UFF .
~924 el231 021426 LDA R~P~O
e925 C1232 ~31423 SIA P~pTR ~ESTOQE PBPTR
e926 el233 07e742 S~R 16 ag27 01234 e31422 SIA U~PTR CLEAR USEQ KEY FLAG
~92a ~1235 C31432 SIA ORosT CLEAR nATA REQUEST FLAG
~929 01236 170402 RET
~930 ~531~
~932*****~*~**~**~**~ *
~933' ~934~ MATH ROUTINES
~35 S936~
~937~ STnRE ROUTINES
es3s~
0939 ~-1237 E74117 STAR2 LDA B bDD THE FXPoNENT OF
a940 01240 e01744 ADA ARlF AR1 AND THE ~ REGI5T~R, e941 C1241 C5el63 A~D ZAP CLEAR OO~ ~ITS 1-7 A~D
~942 ~1242 e31754 STA ARZE STORE IN AR2 ~943~
0944 el243 874040 A~R 2 OFFSET THE TWO ABOVE
0945 ~1244 ~21744 LOA ARlE OuANTITIEs ANn RE-~DD
~946 e 1245 070040 AAR Z TO CHECK FOR A
o947 el246 074017 ADA B MAXIMUM E~PONENT
a94~ ~1247 e7~137 LD8 A SAVE THE SIGN OF THE EXPONENT
~949 el250 070113 SPP ~2 IF IT IS POSITIVE
0950 21251 070076 TcA COMPLEMENT IT
~951 Q1252 000164 AOA MASKl AOD A POsITIVE 10~ To IT
~952 el253 ~70312 5A~ OF SKIP IF AN OVERFLOW ~AS nCCURED
~953~
~ ~954 21254 025755 ZONK LDB AR2E ~1 e9s5 01255 076150 R20 ZONK 1 ~956 01256 ~20214 CLAQ2 LDA AR2A CLEAR AR2 ~957 ~1257 1700a~ CLR
~958 el260 17~40Z ~O~Kl ~ET
g6 ~961 ~1261 ~21754 OF t OA AR2E OTHERWISE SET UP BI~S 0 ANn 15 OF
24 ,j "~
~r - . . . _ 10~
PAGE Oe20 ~01 ~ASE PAGE ~OUTINES
0962 Z1262 070111 SLA ~2 FOR M~X OR MIN ANSWER
0963 91263 ~76e51 SL~ ~l S AND ITS SIGN
~964-~565 01264 074213 S~P OVF~
~966-d967 ~1265 160205 UNFW JSM AERRA,I
e96B e 1266 177633 DEC -101 ~969 01267 ~65256 J~P CLAR2 es70-0971 el270 G61274 OVFw JSM STM~X
0972 01271 1602fl5 JSM AEQQA,I
~973 01272 177634 DEC -100 ~974 01273 1704Q2 RET
a975-Og76 0l274 061256 STMAX JS~ CLAQ2 0977 el275 074352 S~u .OVER
~979 el276 ~45757 ISZ AR2E~3 ~980 el277 17040B CMY
~981 Q1300 020165 LDA MASKS
~982 el301 031754 S~A AR2E
09R3~ 01302 F74111 SLP ~ 2 ~984 e 1303 045754 ISZ AR2E
~985 01304 170402 .OVER REt ~986~
s987 01305 47Q742 ROUND S~R 16 CLEAR THE A REGIsTER AND
09~S el3~6 174470 URy PERFOQM A RIGHT SHTFT ~ TI~ES
~9~9 el307 000136 ADA ~5 IF THE LAsT SHIFT~D
~90 01310 070175 SEC ~3 C OUT DIGIT IS =>5 I~NCQEMENT THE
e991 01311 t20214 LDA AR2a ~932 01312 17P540 MDI MANTISS~
~993 01313 ltO4Q2 ~ET THEN RETURN
~994~
a995-~996~ **~**~*~ *
~997~
~99~-~999~
1000 ~1314 ltl400 ODGIT MLS
1001 ~1315 000052 ADA .4~
1002 ~1316 065016 J~P ONEXT
1004 el317 a7as37 SGNS LOB A I GET EXPO~ENT WORD
~0~5 0132a ~700~0 SIA ~~1 ,1006 ~1321 a7~51? LDA A I GET MANTISSA
1007 01322 070210 SZA ~4 C~ECK IF ~ANTISSA WAS ZERO
100S el~23 02P012 LOA .1 1009 01324 0?4111 SLB ~2 SKIp IF SIGN IS 0 1010 el325 e2P132 LDA Ml oTHERWIsE SET A - -1 1011 ~1326 a7~137 IDB A TRANSFER A INTO B
1012 8l327 170402 ~ET
1013~
1014 ~1330 031466 .NPWR STA LOCLl 1015 el331 e21450 LDA PMoDE
1016 el332 031702 S~A NpRIN
1017 81333 021466 LOA LOCLl 24'~
:
lOl~tJ~4~
PAGF 0e21 ~01 ~A5E PAGE RouTINEs 1018 el334 164167 JhP WRITE.I
la20 el335 3357OZ NPWRT Sl~ ~PRI~
1021 51336 164167 J~p ~RITE.I
1023 01337 d35701 NDWQT Sla NDISP
1024 01340 164167 Jhp ~ITE.I
1025~
1026 01341 160170 JSM CLERA.I
1027 ~1342 021450 CRLF LCA ~MoDE
1028 01343 ~72450 R2A CRl 1029 91344 42P031 CRLFl L~A CRTN
1030 el345 ~61353 JS~ TTY OUTPUT CRTN
1031 Q1346 07a74Z S~R 16 1032 01347 160261 JSM IOSTA.I STOP KEY?
1033 el359 e2a040 LD~ ~31 YES- SET CPLF SUPRESSE~ FLAG
IQ34 el351 0316Z2 S~A TERM
1035 el352 020061 L~A LNFD OUTPUT LINE FEEn 1036~
1037~ GENERAL DRTVER
1~38~
1039 el353 16~261 TTY JSM IOSTA,I STOP KEY?
1040 el354 17fl4~2 CRl RET YLS
la41 91355 ~41447 IOR SLCO~
1043 ~1357 172141 OTA 1 1044 91360 1736~1 S~C l~C
lU45 ~1361 170402 RET
1~46~ .
104?~ CONVERT F~OM LOWER CASE
104B~
1049 ~1362 051041 GTCON JSM GETcH
1050 el363 070137 LCB A
1~51 el364 e5~1~3 a~D ~140 1052 al365 el01e3 C~A ~140 1053 01366 ~04151 A~B M32 1054 ~1367 t~74117 LOA
lQ55 9137~ 17e4a2 RET
1056~
1057~ TEMPl IS POINTI~G AT AD~RESS oF THE VARIABLF JN SYMOBL TABLE
lU58* ON RETURN ~A) = TYPE CODE
1059* tB) = ADDRESS
1060~
1061 al371 C25474 FIX L~B TEMPl lU62 ~1372 074517 LDA B-I
1063 el373 ~5~040 A~D B37 1064 01374 004132 ADB Ml 1065 ~1375 ~74537 LOB B-l 1066 el376 170402 RET
1057~
1068~*~**~****~***~*s****~**a~sss***~s**~**~****
1 ~6g~
1070 el377 60a000 BSS 1 CHEC~S(JM WoRD FOR 4DD.~S 100tA TO 1377 1071~
1072~'**~**~*~*g****~************************,,.*
1073~
2'1 ' .
10~6ti~/~
PAGE OQ22 ~01 9830--BASE PAGE REA~-~RITE ~EMORr 1075 el400 ~ O~G 1400~
1076 Q1400 000000 BADDR ass 1 0URRENT CHAR PoINTER
1077 al401 02Q0a0 RSAVE BS5 1 SAVE (~) IN REtN2 la7B el402 G~a000 OTPTR ~SS 1 REF~ES~ PoINTFR
1079 01403 ~000a~ ~AW BSS 1 LAsT WORD Of R/W MEM
1080 el404 o00~e0 L~AM BSS 1 LAST WORD AVAILABLE FOR ~SFR
1081 ~1405 Gaa000 FWUP BSS 1 FIRST WOQD OF COMMO~ OR M~INLINE
1082 C1406 Q000e0 VALUE BSS 1 FIRST WO~D -1 OF VALlJE TA~LE
1083 01407 O00000 SYMTP BSS 1 FIRST WOR~ -1 oF sr~oL TABLE
1084 ~1410 00a000 LSTA~ BSS 1 FIRST ~OQD OF OpERAToR STACK
10g5 01411 4a0000 TSTPT BSS 1 TEMPO~ARY STACK PoINTER
1096' 81412 e00000 LSTPT BSS 1 OPERATOR STACK PoINTER
1087 el413 G000a0 HSTPT 855 1 OPEQAND STACK POINTER
1~8B ~1414 e0Q0Q0 DSTPT ~SS 1 ~ATA STATE~ENT
1089 tl415 ~a0~00 NXTDT BSS 1 POI~TERS
1090 el416 ~000~0 M0DE ~SS 1 PROGRAM=0: KEYBOARD=I
1091 ~1417 9C0~00 PAR~A ~SS 1 P~RAMETEU ADDRESS
1092 el420 80 W90 PARMN BSS 1 PAQAMETER NAME
10~3 01421 aoa0D0 PRAD~ ~SS 1 LAST WORD~l OF CURRENT ST~T
1094 01422 00~0fl0 UKPTR BSS 1 USER KEY POINTER
1095 Q1423 O000~0 PBPTR BSS 1 LAST WORD OF CuRRENT PROGQAM
1096 01424 o0aa00 PBUFf BSS 1 FIRST wORn OF CURRENT PROGRAM
1097 01425 ~000~0 PBUfO BSS 1 FIRST ~ORD OF ~AINLINE
la~B el426 O00aB0 PBPTO BSS 1 LAST WORD~l OF MAINLINE
10g9 01427 ~a0000 .LNUM BSS 1 CURRENT LINE NuMBER
1100 01430 ~a000 LNI~C BSS 1 auTO LINE I~CQE~ENT
2101 01431 O0Q000 CLINE BSS 1 CURQENT LINE FoR LIST
ilO2 Q1432 000000 DRQST BS5 1 INP~T ST~T FLAG
1103 01433 o0P0e0 TFLAG Bss 1 PTAPE FLAG
1104 el434 oa0~00 UNITS BSS 1 TRIG UNITs 1105 el435 0~40~0 SEC BSS 1 SECURE PQOGRA~ FLAG
L106 01436 a0G0P0 HFLGI BSS 2 STOP ADDREssEs 1107 el440 c00~a0 TFLfil BSS 2 TQACE LI~IT AnnREssEs 1108 01442 ~O0000 STPFL ~SS 1 ~TnP fLAG
1109 el443 G00Q00 KEYFG BSS 1 ~FYBOARD FLAG
1110 ~1444 ~00000 SAVEA BS5 1 INTERQupT
1 l l l e 1445 ~300Q0 SAVE~ ~SS 1 1112 ~1446 O00000 ~DRSS 8SS 1 TEMPOQARIES
1113 ~1447 eoQ00o SLCOD ~SS 1 SELECT CODE
1114 Q1450 a0a0~0 PMODE BSS 1 CQINT-ALL FLAG
1115 01451 c000a0 CTYPE ~SS 1 KErBOAQD -1116 el452 0000~B CPLAC BSS 1 FORMAT FLAGS
1117 01453 ca0000 PQFLG ~SS 1 PRINT~DISP FLAG
1118 el454 800000 RCOUt BSS 1 FORMAt 1119 01455 P0Q000 FORMT ~SS 1 1120 ~1456 ~0QO00 FOR~S BSS 1 1121 C1457 OQ0000 FOQME BSS 1 5T~tEMENT FLAGS
Ll22 01460 00~000 FTMPl ass 1 CURQENT OPER~TOP CODE
1123 01461 O00~00 FTMP2 HSS 1 CUQRENT OPERATOR PREcEDEN~E
1124 01462 a000ae REEDL ~SS 1 KEYPOARD DRIvER LINK
1125 0l463 a00000 INTEL hSS 1 INTEQRUPT LINK
1126 01464 P0a~a0 ~ss 2 UNUSED
1128~ TEMPORAQIES
1129~
1130 01466 ~0~0~0 LOCLI ~S5 1 2 ~
10 ~t;6~4 PAGE 002~ *01 9830--B~SE PAGE PEAO-WRITE ME~ORY
1131 51467 eaP~0~ LOCL2 ~SS 1 1132 D1470 ~00~g0 L2TI BSS 1 1133 01471 ~0e~0Y L2T2 ~SS 1 11~4 01472 ~00a~0 TE~PS ass 1 1135 el473 0~00C0 TEMP BSS 1 1136 el473 M~OXl EQU TEMP
~137 el474 000000 TEMPl ~SS 1 1138 ~1475 ~00000 TE~P2 ~SS 1 1139 el476 a00000 TEMP3 ~SS 1 1140 ~1477 00~0~0 TEMP4 BSS 1 1141~
1142~ BUFfERS
1143~
1144 O1500 ~00~Q0 IO~UF ffSS 41 INPUT AN~ REcALL BUFfEQ
1145 elS51 O00000 PPUFF ~SS 41 SI~GLE LINE REFREsH RUfFER
1146~
1147~ PRINT ROUTINE FLAGS
~149 el622 000000 TERM ~SS 1 CRLF FLA6 1150 B1623 O0Q000 PEND BS5 1 RUFFEQ OvERFLOw FLAG
llSl 01624 000000 PPFF qSS 1 9UFFER PolNTER OR TA~ ELAG
1153 el62~ a0~a~ ~SS 2 U~USED
1154~
1155~ ~T~ TEMPORARIES
~156~
1157 01630 ~000~Q TQE0E 8SS 4 1158 gl634 e00000 QSLTE ass 4 115g~
1160~ STATEMENT SYNTAX AND E~ECUTION TE~POQARIES
1161~
1162 el64~ ~0~0~e ST ~SS 32 1163~
1164~ SYSTEM Sy~tAx ~ND EXECUTION TEMPORARIES
1165~
1166 01700 ~00000 ~55 1 5~VED FOR PRocEssoR
1167 017~1 fla~e NOJSP ~SS 1 1168 el702 B000~ NPRIN ~SS 1 1169 91703 000000 PLACE ~SS 1 1170 el704 0000e0 ~IOTH HSS 1 1171 P1705 000~0~ FLOAT ~SS 1 11~2 ~17~6 a0a00~ S~PTR ~55 1 1173 ~170? ~0~ee0 ~LANK RSS 1 1174 0171~ ~00e00 MSFLG BSS 1 1175 ~1711 000000 DFLAG ~SS 1 ~176 e 1712 00~000 PFLAG ~SS 1 1177 el713 QO00Q0 UFLAG ~SS 1 1178 P1714 ~000~ SfLAG ~SS 1 11?9 01715 e0~a00 S~DR HSS 1 lla~ ~1715 ~0a090 SSBPT ~SS 1 1191 0171~ e00000 NUM t~SS 1 11~2 01717 OPTYP FQU NUM
1183 ~1720 ~a009 LASTN flSS 1 1184 01721 ~QO000 SIGN BSS 1 lleS el721 MAXIN ECU SIGN
1186 01722 o000a0 EXP BS5 1 24a;
lO'~b~
PAGE OQ24 ~01 9R30--BASE PAGE QE~-wRlTE ME~OQY
1187 01722 INtG~ EOU EXP
1188 C1723 0000~0 ARYAD BSS 1 1189 ~1724 O00000 GFLAG BSS 1 1190 01725 ~00000 NXTST YSS 1 1191 ~1726 ~00000 ~INl BSS 1 1192 el727 00009e MBIN2 BS5 1 1194- A~ITHMETIC QEGISTE~S AND QETUQN STACK
1196 el740 0~G 1740 1197 el740 oa0000 XC ~SS 4 1198 ~1744 ~00000 ARl BSS 4 1199 0175~ o~a0 YC ~SS 4 1200 ~1754 e00000 AR2 BSS 4 1201 el760 ~000e0 RSTAK BSS 11 RETURN STACK
1202 el773 ~000Q0 RES BSS 4 RESULt REGISTER
1203 ~1777 8000e0 RSPTR BSS 1 REtURN ST~CK PoINTER
~ ~r~
~ --10'~
PAGE 0a25 #01 EQUATES
1205 el466 ~CAND EQU LOCLl 1206 e1467 PROD EGU LOCL2 1207 ~1744 ARlE ECU ARl 129~ ~1754 AQ2E FQU AR2 1209 01730 CO~L ECU ~BIN2~1 1210 el731 TYPE EOU M~IN2~2 1211 C1640 TEPPP ~au St 1212 01641 SPRDD EGU ST~l 1213 01642 SAVE EQU S~2 1214 el453 AQW EOU PRFLG
1215 tl740 tMP EQU ~C
1216 ~1741 TMPl EQU XC~l 1217 01742 tMP2 EQU XC~2 1218 0174~ tMP3 EGU XC~3 1219 0175Q tMP4 EQU YC
1220 0l75l t~P5 EGU YC~l 1221 el706 TMP5 ~OU S~PTP
1222 el752 TMP6A EQU YC-2 1223 01460 TMP7 EGU FTMPl 1224 21474 tMP9 EGU TEMPS~2 1225 01475 TMPl~ EQU TEMP5~3 1226 el476 TMPll EQU TE~PS~4 1227 el477 TMP12 EQU TEMps~s 1230 ~1704 ~KPt~ EQU ~IDT~
1231 Ql?41 R EQU TMPl 1232 e 1742 L ECU TMP2 1233 01751 DIGIt ECU T~P5 1234 01743 INDEX EGU T~P3 1235 ~1750 R~ASE EGU TMP4 1237~ ' 12~ e004~ PLUS ECU ~43 1239 e0aS0 MINUS EOU ~45 1240 00051 POINT EQU ~46 1241 ea052 ~6~ EOU .4A
1242 e0053 COLON EQU .58 1243 e0a77 DOLA~ EOU 344 1244 00116 ~2~ EOU QToP
1245 eo004 XECA ECU ~10K
2'~
PAGE 0~26 ~1 KEY~OARD EN~RY AND nISPLAY
1248~
1249~ REED SU~R0UTINE
1250~
1251~ ENtRY CONDItIONS: NONE
1253- EXIT CONDITIONS:
1255- AN INPUT RECORD IS IN THE I~O
1256~ BUFFEQ. tllE LAST CHAR IS AN EOL-1258~
1259~ IF A ~ELETE LINE IS HIT
1260- PETUQ~ TO P~l- oT~EQwIsE
1261- RETUR~ tO P~2.
1263~
1264 02000 ORG 2000~7 1267 e2000 ~20236 REEDl LDA SLEND
1268 52001 031623 StA PE~D
1269 g2002 620062 LOA FLC-7R7T
1270 02003 e31416 S~A MO~E SET TO PQOGRAM SYNTAX
1271 02004 ~21433 LOA TFLAG
1272 a2005 ~7Q110 52A ~2 PTADE COMUAND?
1273 02006 96~6 7 Jhp PREED
1274 B2007 031473 S~A CCNT
lZ75 ~2910 93l704 SIA ~7KPTR
1276- G~T fIRST KEY
lZ77 02011 ~63046 REEDE JsM CALLK GE~ FIR5T KEY
l278~2Q1 2 966~11 J~P *-1 12a0e2014 P6f7223 J~P DELl 12~71e201s g25430 LDB LN I NC
12B2e20l6 ole074 CPA B22 F7'ACt~SPACE?
lZB3C2017 a74112 S~M REE YES ~ SK I P I F L I sr I NPUT
e74e2Q20 ~66032 J~P REED7 e21 0ss400 RFE ~sz ~7ADDQ ~ES- ~7ACKUP POINTEQ
12B6e2022 It45623 ISZ PE~D
1287e2023 a20041 LDA ~32 l2e7802024 ~61016 J5M ONEXt 12890202s 055400 DSZ t~ADDQ W1~7E OUT LAz'~-t .29002026 0ss623 ~sz PEND REStoRE E~D OF ~U~FER POINTFR
292e2030 ~31430 StA LNINC GEt our OF AUTO
29302~31 ~66~745 J~p RE~n~7 1294 ~2a32 a62s33 REED7 JSM CLE~R CLEAQ T~E DISPLAY
1295 Q2a33 ~21430 LDA LNINC
1296 02~34 970153 SAp REEn4 LIST WAS LAST~7 1297 02035 ~7a742 S~R 16 129B e2a36 ~31430 S~A LNINC 0ET OUT OF AUTO
1299 02037 07021e REED4 S2A REE~6-? AUTO LI~F.?
130002040 0Z5427 LOp .LNU~ YES OUTPUT
1301c2a4l 160210 J5~ OUrlA~I
1302o2042 04s400 ISZ ~ADD~ oUTPuT A P~LANK
130302043 ~21751 LOA T~p5 2~ '~
.
~O'~ti6~
PAGE 0e27 #~1 ~EYBOARD ENTRY AND OISPLAy 1304 e2044 ~66047 J~p REEDG
1305~ GET NEXT KEY
1306 e2045 ~63046 REED6 JSM CALLK GET NEXT ~Er 13e7 e2046 a66045 J~P ~-1 13Q8 e2047 alOO74 REEDG CPA B22 BbCKSPACF?
~309 82QSC 066707 O~P BKSP
1310 02051 ~10075 CPA B23 FOQWARD?
1311 02~52 ~66725 0~p FOR~n YES
1312 e2053 ~12436 CPA B152 CLEAQ?
1313 02054 ~67665 J~P ECLP YES
1314 ~2055 OlgO27 CFA ~11 EXECUTE KEY?
1315 c2a56 045416 ISZ MoDE YES
1316 e2057 0501~3 AN~ MSK65 1317 e2060 ~72510 R2A REED2 BITS 5~6=0?
131B ~2061 021751 LDA TMPS YES
1319 e2~62 O0al41 ADA Ml0 1320 e2063 ~70413 SAp REED2~1 ~EF KEY?
1322 Q2~65 074210 SZ~ ~4 1323 C2C66 C2'751 LDA TMP5 1324 e24~67 S4~101 IOR ~100 SET S~IFT 4IT FOR DEF-KEYS.
1325 ~2070 031751 STA T~PS
1326 e2071 067131 JMp KEYPR
1327 e2072 Olal~3 REED2 CPA MSK65 8ITS 5~6=1?
1328 C2073 ~66103 . J~P REEo3 YES
1329 02~74 ~21706 LDA TMP6 NO
1330 e2Q75 07~610 SZA REEDs S~IFTED?
1331 e2~76 ~21751 LDA THPS
1332 a2~77 ~6e752 JSM LETCK YES. LOWFQ CASE LETTEQ?
133-~ e2100 066103 J~P REEn3 ~O
1334 021C1 440041 IOR .32 CONVERt CODE
1335 e2142 ~66110 J~P REED
1337 e2104 ~63071 JS~ T~SQl CODE IN VALUE TABLE?
1335 42105 066124 J~P REEDn NO
1339 e21a6 010022 CFA .5 ENTEQ EXPO~ENT?
1340 a2107 ~a41Cl ADA ~100 YES- FOQM ~SCII E
1341 e211~ 0317Sl S~A TMPS
1342~
1343~ ALL CO~VERSIONS COMPLETE
1344 e2111 021751 PEEn5 LDA TMPS
1345 t2112 ~10031 CFA CRT~
1346 C2113 666172 J~p EOLL EXECUTE OQ STORE
1347 ~2114 ~257~4 LOB BKPTQ
1348 e2115 ~74210 52D REEDs CURS
1349 e2116 027122 LD~ ~KPT4 YES
1350 0211? 061017 J5M OUtCR REPL4CE CHARACTFR
1351 e2120 06673B Jhp FORW0~3 SCROLL IF NECES5AQr 1352 e2121 ~61C16 REED9 J5u O~EX~ PUT CHAR aT END OF LTNE
1353 ~2122 962737 JSM LEFT SCROLL IF NECESSARY
1354 e2123 a66045 J~P REED6 133556 e2124 2h373 REEDD LOEI EXPTq SEARCH F~R MuLTI-cH4Q KEY
1358 e 2126 666213 JMP REED~ ~~
1359 62127 631751 StA TMPS
?~j() 10'~64~
PAGE 0e28 ~01 KEYBOARD EN~RY AN~ ~ISPL~Y
\
1360 e2130 062521 JS~ CLRST CLEAR FLAG IF "STOP"
1361 ~2131 062533 JSM CLEAQ
1362 ~2132 026443 LD~ COMT4 1363 e2133 ~21751 LOA TMP5 1364 02134 162441 JSM MOUT~I OUTPUT FPOM SYSTEM CO~MAND TABLE
1365 22135 e66045 JMp REED6 1366 ~2136 ~62533 PRALL JSM CLEAQ CLEAR BUFFER
1367 ~2137 ~21450 LDA PMO~E
136B e2140 07el30 SIA ~2 1369 e2141 070742 SAR 16 1370 02142 a31450 StA PMODE
1371 92143 02'444 LDB OFF~ GET ~DDRFSS Of "OFF"
1372 ~2144 ~72110 R2A ~2 O~?
1373 ~2145 ~0402fl ADB .3 YES. GET ADDRESS OF "ON "
1374 e2146 020020 LOA ~3 1375 e2147 S61335 JSM NPWQt 13t6 0215a ~66QIl J~P REEnE GET FIRST KEY AGAIN
1377~
137B' STEP AND CONT EXECUIION
1380 e2151 031442 STEP STA STPFL SET POSITIVE NO~-ZEQO
1381 e2152 070742 SAR 16 1382 e2153 ~25421 CONT LDB PRADD
~3B3 e2154 074273 SBP CO~Tl.C HAS AN EDIT OCCURQEO?
1384 e2155 072110 RZA CO~TK YES- LINE ~ GIVE~?
13~5 Q2156 ~74517 LDA ~-1 NO. EXECUTE FRO~ BE0IN~ING
1386 e2157 631725 CONTK SIA ~XTST YES- EXECUTE FROM 8EGINNING
1387. e2160 1640~4 JMP XEC~.I
13~8 02161 ~7~250 CONTl 52A ~S LINE ~ GIVEN~
1389 e2162 061075 JS~ F~DPS YES~ FIND ADDRESS
1390 02163 164174 JMP RDyDA, 1391 e2164 ~6~165 J~P 4-1 1392 e2165 D35421 S13 PRADD StORE AD~QESS
1393 e2166 662533 JSM CLEAQ
1394 ~2167 ~31416 StA MODE SET TO PRoGRAM EXECUTION
1395 e2170 B25421 LD9 PRADD
1396 02171 164255 JMP ~EC6A.I CON~INUE EXECUTIO~
1397~
1398~ ~Q~CESS EXEC OQ STOQE
1399 ~21t2 ~45623 EOLL ISZ PEND GUAR~NTEE ~OOM FOR EOL
1400 e2173 061~16 JSM O~EXT
1401 e2174 a24233 LOB aE~D
1402 e2175 035477 STB TEMP4 1404 02177 ~35476 StD TE~P3 1405 ~2200 004046 GDB ~41 1406 ~2201 661122 JSM MVtOH~l MOVE INPUT RECoQD tO I/O ~UFF
1407 e2202 060373 JS~ IC~T
1408 02203 ~0~132 ADA ~1 1409 02204 07~250 S2A REEDt SKIP IF NULL REcoQD
1410 e2205 ~2545e LDB PMODE
1411 022~6 ~76150 R~ REEDt 1412 e2207 ~24211 LCO .BUF~
1413 62210 061337 JSM ND~QT
1414 ~2211 F62502 REE~T JSU CQC
1415 C2212 ~64357 Jhp ~ETN2 2~i 10 ~644 PAGE Qe29 ~01 KEY~04QD E~IRY 4ND ~ISPLAy 1416~
1417 02213 013124 REEn8 CPA B33 DIVIDE?
1418 e2214 ~22437 LDA ~57 rES. GET ~5CII
1419 02215 ~26361 LDB EDlt2 1420 e2216 663072 JSM TBSRH CODE IN E~IT T4BLE?
1421 02217 ~66110 J~P REE~5-1 NO
1422 92220 ~440 ~A BE~
1423 e2221 ~7a737 JMp A I
1424~
1426 ~2222 170402 DEL2 RET
1427 02223 ~21430 DELl LDA LNINC
1428 e2224 071713 SAP DEL2 1430 e2226 130233 SIA SBUFA I
1431 02227 070742 S~R 16 1432 02230 ~3143Q STA LNINC
1433 e2231 164204 J~P DELS~I
1434~
1435~ RECALL
1436~
1437 e2232 ~62533 EREC JS~ CLEAR
1438 ~2233 ~55473 DS2 CCNT SET PEcALL FLAG
1439 e2234 024211 LDfl BUF4 1440 02235 ~35740 RSLTI Sl~ TMP . GET ST4QTING bDDRESS OF IO BUFF
1441 C2236 ~66a45 J~P REED6 1443- I~ITIALTZE V~RIA~LES
1444~
1445 e2237 020056 I~'ITV LDA .lE4 1446 e2240 164171 JMP R~A,t RUN 100~0 144t~ QESUL~ KEY
1448 0224l 020101 RSLT LDA ~10a CODE FOR
1449 e2242 ~25706 LO~ TM~6 1450 ~2243 074110 S2B ~2 SHIFTED?
1451 e2244 J66110 J~,P REE05-1 YES
1452 02245 026445 LO~ RES4 1453 Q2246 ~20020 RFNXl LGA .3 1454 02247 S31473 STA CCNT COUNT=3 1455 ~2250 ~66235 J~p RSLtl 1457~
145a 02251 666136 P~L J~P PR~LL
1459 ~2252 666151 StPL J~,P ST~P
2~,' 10 ~ti644 PAGE 0~30 #~1 KEYBOARn ENTRY A~n OIsPLAy 1461~
1462~ FETCH EXECUTION
1463~
1464 e2253 000132 EFET ADA M1 1465 e2254 031431 SlA CLINE
1466~
1467- ThIS ROUTINE LIsTs ONE LINE
1468~ Of T~E PROGRAM, ThE FIRST
1469~ LI~JE TO 9E LISTED IS THE FIRST
1470~ LINE OF THE PRoBRAM.
1472~
1473 e2255 062353 DNARW JSM SAROW CHECK FOR NULL PROGRAM
1474 02256 ~74310 S2B ~4 SKIP IF TY~ING AID KEY
1475 e2257 ~70079 SIA ~1 1476 e2260 0610?5 J5~ FNDPS fIND LINE
1477 e2261 066277 JMp U3 P~ST END oF PRoGRAM
1478 02262 066301 Jhp U5-1 BET~EEN LINEs 1479 e2263 0663~1 JMp U5-1 l4e0-1481~ T~IS ROUTINE LIsTs ONE LINE
1482~ OF t~E PROGRAM. ThE FIRST LINE
1493~ TO BE LISTED IS ThE LASt ~INE
1484~ OF T~E PROGQa~.
1487 C2264 ~Z1424 U4 LDA PBUFf GET FIRST LINE
1488 e2~65 ~663~2 J~p US
14B9 e2265 ~6Z353 UPARW JSU SAR0W CHECK fOR NULL PROG
- 1490 ~2267 ~75650 52B U4 SKIP IF TYPING AID
1491 02270 ~72110 RZA u1 CLINE =0?
1492 C2271 62~056 LDA . lE4 YES- FINn LAST LI~JE OF PQOG
1493 e2212 061a?5 U1 JSM FNDPS FI~D LI~E
1494 02273 066277 JMP U3 PAST END oF PRoG
1495 e22?4 S66275 J~p 4~1 qETWEEN LINEs 1496 ~2275 ~15424 CPB P3UFF FIRST LINF?
1497 e2276 a66301 JMP uS-1 YES
1498 e2~?7 ~21720 U3 LDA LASTN GET PREVTO~S LI~E
1499 e2300 ~60742 JSM FND
1500 02301 ~74117 LOA 9 GET ADDRFSS IN ~A) 1501 ~2302 074742 US 59R 16 1502 02303 ~35453 STB ARW FLAG LIST ~ouTINE
1503 02304 635460 SlB TMP?
1504 02305 167120 JMp LISTQ I
15oS~
1506~ T~SERT ~Nn DELETE ChAQActER
1507~
1508 e 2306 066045 J~P REED6 1509 02307 0257a4 INSRT LDB 9KPTR
1510 02310 ~75710 S29 INSRT-1 ANY BAcKspAcE YFT?
1511 02311 625409 LD9 ~ADDR
1512 e2312 021706 LDA T~P6 1514~ DELETE S2A INS0 SHIFT FLAG SET?
1516 2315 ~25704 LD9 hKPTR YES. DINC END OF LINE POI~TER
25'3 10'~ 4-~
PAGE Oe~l ~01 KEYBOARD EN~RY AND OISPL~y 1517 e2316 ~35740 SIB TMp SET ~OINTE~ TO CURSOQ CH~RACTEQ
151B ~2317 ~25740 DELCl LCB TMP
1519 02320 0154a0 CPB ~ADDR LASt CHAR~
1520 02321 ~66347 JMp INS2~1 YES- OUTPUT A BLANK
1.521 t2322 ~45740 ISZ TMP
1522 22323 ~61053 USM ~tMP GET CHARACTEQ
1523 02324 ~55740 GSZ TMP
1524 e2325 ~55740 DSZ TMP
1525 e2326 ~24111 LDB TMPA STORE SHIFTED LEFT O~E
1526 e2327 ~61017 JSM OUTCR
1527 ~2330 ~66317 JMP ~ELCl 1528~ INSERT
1529 e2331 B14236 INS0 CPB S~END
1530 ~2332 ~66045 JMp REED6 LINF FuLL
1531 02333 004132 AD9 Ml 1532 ~2334 ~35740 INSl S~ TMP
1533 e2335 ~61053 JS~ GTMP GET C~ARACTER
1535 e2337 OlS704 CPB hKPTR ~T CuQsoR PosITloN?
1536 02340 466346 J~P INS2 YES
1537 92341 ~24111 LD8 TMP~ NO, MOVE R~G~T 1 PLACE
1538 e2342 661017 JSM OUTCR
1539 e2343 e2s740 LDB T~P
1540 C2344 004134 A~a ~3 BAC~ UP PoINTER TO hEXT
1541 02345 066334 JMP INSl C~AR LEFT
1542 e2346 645400 INS2 ISZ ~ADnQ UPD~TE END OF LINF POINTER
1543 e2347 62004} LDA ~32 1544 ~2350 a24111 LD~ T~P~
1545 02351 n61~17 ~SM OUTCR INSEQT A ~LANK
1546 e23s2 666045 JMp REED~
154B- SUBROUTIN,E FOR UP A~D DowN ~RROW ROUTINE5 1550 C2353 021424 S~ROW LDA PBUfF
1552 62355 164174 J~p RDYD~I NULL PROG~M ABORT
1553 e2356 ~21431 LOA CLI~~
1554 e2357 125424 LDB PBUfF, 1555 62?160 170402 R~T
6~
PAGE 0632 #01 KEY~OARD E~RY A~n ~IsPLay 1557~
1558~ T~IS SECTION CoNT~INs TABLES
1559- POINTERS USED I~ IHE b~OVE ROUTINE
1561~
~562{
1564 ~2361 ~04744 ~DIT2 DEF ~ 2 1565 e2362 012643 DEf 12600R-EE~UPARW
1566 e2363 012232 ~EF 12200~-EEB~D~ARW
1567 e2364 ~15214 DEF 15200B-EEB~INITV
1568 ~2365 065616 DEF ~s6Q0~-EEB~RsLT
1569 e2366 C06627 DEF 6600~-EE~STPL
1570 Q2367 017664 DEF 17600q-EEB~INsRT
1571 ~237a 07160~ DEF 7160~9-EEB~DELI
1572 02371 a70226 DEF 702e0a-EEB~pAL
1573 e2372 ~103Q7 D~F 103009-EEB~EREc 1574 02223 EEB EO~ DELl 1577' EXPA~DI~G DEY TABLE
1578~
15A0 52373 004770 EXPt~ DEF ~ 2 1581 e2374 ~P76el ~CT 7~el R~l~
1582 e2375 ~14600 OCt 14600 STORE
1553 e2376 ~1422~ OCT 142Z0 LO4D
1584 e2377 0172e7 OCT 17207 ~9R~AL
1585 ~24a~ 006212 OCT 6212 CONtINUE
15~6 ~24al ~07226 OCT 7Z26 T~ACE
1587 624a2 ~77637 OCT 77637 STOP
158B 02403 ~17216 OCT 1721fi ~oRMAL
1539 e2404 al0604 OCT 1~6a4 FETC~
1590 62405 072214 OCT 72214 ~IXE~
1591 e2406 ~72615 OCT 72615 FLOAT
1592' 32407 ~05Z03 OCt 5203 LIST
1593 22410 Q732e2 OCT 73202 SCRATCH
1594 e2411 0737~5 OCT 73705 ~UTO
1597~ KEY V~LUE tABLE
1599 ~2412 OZS026 VALUP DEF ~ 2 1600 02413 ~05615 OCt 5615 FOL
1601 O2414 ~71215 OCt 71215 STORE
160Z ~241S 020240 OCT 2~40 ~L~NK
1603 ~2416 ~3a641 nCT 30641 1604 e2417 032244 OCT 32244 1605 ~2420 03~645 OCt 32645 1606 02421 ~676~5 OCt 67605 1607 O2422 ~31643 OCT 31643 #
160~ 02424 ~33246 OCT 33246 1610 e2425 e33647 OCT 33647 1611 e2426 034250 OCT 34250 1612 82427 e34651 OCT 34651 25~) :~OL~t;6~4 PAGE ae33 ~01 KEYRO~RD ENTRY AND BIsPLAy 1613 e243a OZ7677 OCT z7677 ?
1614 e2431 ~26274 OCT 26274 <
1615 t2432 027276 OCT 27Z76 >
1616 e2433 435252 OCT 35252 4 1617 O2434 ~35653 OCT 35653 1618 e2435 e30355 OCT 3~1355 1621~
1622 Oal03 MS~65 ECU 3140 1623 ~2436 ~00152 ~152 OCT 152 1624 Q2437 600057 B57 OCt 57 1625 e2440 ~02223 ~EEB DEF EE~
1626 e2441 ~06326 ~OUTA ~EF MCOUT
1627 e2442 0034~2 ~PtR DEf R~uFF~RBuFF~48 1628 02443 oa7062 CO~TA DEf L~Ll~L9L1~0 1629 02444 e05117 OFF~ DEf ~*~7 1630 ~2445 905114 ~ESA ~EF ~ 2 1631 e2446 051105 ASC 4.QESnFFON
e244~ 051517 92450 ~43106 e2451 ~47516 632 02452 02a04e~ TOBLN OCT 20~4 1634~
1635 a2453 o~00a0 ~SS 1 ***** CHEcKsu~***~*
~C;' ~ t~
PAGE 0~34 #01 KEYBOARD E~TRY AND DISPLAy 1637~ WRI~E SUBROUTINE
1639~ ENTRY CONDITIONS
1641~ (A)=CHAQACTER COU~T
1642- (~)=POI~TER TO FI*ST CHAQ
1643~ NPQIN~ FOR PRINT ABO~T
1644~ N~ISP#0 PQI~T O~LY
1647 82454 07a410 WRIT SZA RIT3L SKIP IF NULL COUNT
1648 02455 ~31741 STA TMPl 1649 22456 ~35740 ST~ TMP INITIALIZE PoINTER
1650 e2457 861053 RITEl JSM GT~P GET CHARACTER
1651 0246~ ~10027 C0A .11 EXECUTE?
1652 e2461 ~20100 LDA BS2 YES CHA~IGE TO * FOR KEY
1653 e2462 025701 LD~ ~OISP
1654 22463 010~31 CPA CRTN CRTN CHAR~CTEQ?
1655 ~2464 C66476 RIT3L JMp RITE3 YESt ABORT
1656 e24fiS ~t631~ RZB RITE2-1 DISPLAY ~ISABLED?
1657 024~6 ~70150 SZA RITE4 NO NULL~
1658 e2467 661016 JSM JNEXT OUTPUT TO DIspLAy 3UfFER
1659' ~247e ~21467 LDA LOCL2 QECALL C~ARAC~EQ
1660 a2471 S25702 RITE4 LD9 NPRI~
1661 e2472 ~76110 ~ZB RITE2 PRINT DIS~BLED?
1662 e24?3 ~61353 JSM TTY hO. PQINT CHAR
1663 02474 ~55741 RITE2 DS2 TMPl MORE CHARAcTERs?
1664 e2475 ~66457 U~P RITEI YES
1665 62476 ~7~742 RJTE3 SAR 16 RESET fLAGS
1666t2477 031702 STA NPRIN
166742500 ~31701 S~A NDISP
1668~2591 17~402 RETA RE~
1669~
1671025~3 074350 SZB CQCl PRINT ALL?
1672 e2504 625450 CRCHK LDB Q~ODE
1673~2505 e74150 5Z9 CRC2 PRI~T ALL?
1674Q2506 ~25453 LDB PRFLG
167592sa7 C74352 S~ CTERM
1676~2510 8Z5622 CQC2 LDB TERM
1677~2511 a75410 SZ~ RETA
167802512 172700 CQCI SFC ~ WAIT UNTIL "STOP~ KEY
1679~2513 066512 ~P ~ S QELFASED
1680e2514 G62521 0SM CLRST CLEAR ''STOP~ FL~G
16Sle2515 e61344 JSM CQL~I
1682~
1683 02516 ~74742 CTEQM 53R 16 1684 02517 035~22 STB TER~
1685 ~2520 1734a2 RET
1687 82521 P25442 CLRST LO~ STPFL
16a8e2522 ~14040 CRB 31 SET FROM KEYBOARD?
16892523 866525 J P ~2 YES. CLEAQ IT
1691e2525 ~74742 S~ 16 1692e2526 635442 SIB STPFL
25', ~o'~
PAGE 0e35 ~01 KEYBOARD ENIRY AND ~IsPL~i 1693 e2521 e35433 STg TFLAG
1694 e253a 17~402 REt 1696~
1697 02531 027117 GTMPZ LOB T~P2A
1698 02532 065e41 J~p GETC~
1700~
1701~ THIS SUBROUTI~E CLE~Rs t~E DISPLAr 17~2-1703 02533 C70742 CLEAR S~R 16 1704 e2534 ~31704 SIA B~PTR
1705 e2535 ~2~212 LDA .SLPF
1707 e2537 4314C0 STA B4~0Q
1708 ~2540 ~31625 STA PIRSt 1709 02541 ~24233 LDB BENn 1710 e2542 022452 LDA ToBLN
1711 e2543 674557 CLE1 STA B-I
1712 ~2544 ~17123 CP8 E~DW
1713 e2545 ~66476 J~P RIT~3 1714 22546 C77670 ~I~ CLE1 NO
1715~
1716~ I~Q STATU5 CHEC~ ~OUTINE
~717~
1718 02547 e25442 IOSt LDB STPFL
1719 B255G 01404e CPF .31 STOP fL~G?
1720 e2551 17G402 RET YES
1721 e2552 e-2s447 LD~ SLCOn NO
1722 ~2553 172741 STF 1 TURN INTERRUPT OFF
1723 ~2SS4 17~141 O~
1724 e2555 172741 S~F 1 GET STAtUS IN I~O REG
1725 e2556 177241 L15 1-C tUR~ INTERRupT ON
1726 e2557 0744~6 ~e~ ~
1727 02560 G75353 S~P IOSt ~EVICE ~uSY?
1728 e2561 ~64357 J~P ~ET~2 NO
25~
- lO'~
PAGE Ot36 #Ol KEYBO~D ENTRY ~N~ ~ISPLAy 1730~
1732~ THIS SU~ROUTlNE REFREs~Es 1733- THE SINGLE LI~E ~ISPLAY
1735 ~2562 e2l4B2 REFRS LOA OTPTQ
1736 e2563 ~31740 STA TMP
1737 ~2564 e00033 ~CA .16 1739 C2566 074742 S~R 16 1740 ~2567 ~35741 RE1 ST~ TMP1 1741 ~2570 624111 LDB TMP~
1742 02571 661362 JSU GTcnN
1743 02572 ~703a4 RE3 SAL 10 1744 ~2573 ~31743 StA T~P3 1745 ~2574 ~2?117 LOB TMP2A
1746 02575 ~61362 JS~ ~TCON
1747 Q2576 ~50054 RE4 A~D .63 174B e2577 0706C4 ~AL 4 174~ ~2600 ~41743 IOR T~P3 1750 02601 ~41741 IOR TMPl FORM OUTPUT WORn 1751 02602 173750 CLF & Tl)RN DISPL~Y OfF
1753 02504 ~25443 L~ KEYFB
1754 e2605 172741 SIF 1 INTERRUPT OFF
1755 02606 674353 5~p RE2 INTERRUPT OCCURRED?
1756 ~2607 ~25741 ~~B T~Pl - 1757 C261e ~14a33 CP~ .16 -1758 Q2611 066615 U~P RE2 1759 e2612 ~74~70 SIB ~1 1761 ~2614 ~66567 JYP RE1 1763 C2616 170402 RET TURN INTERRupT ON
2S~
10~6~;~4 PAGE 0037 #al ~EY~OARD ENtRY ~ND ~lSPLAy 1765~
1766~ PTAPE COM~ANn EXECUTION
1768' T~TS QOUTINE RE~D5 P~OGR~S FRo~
1769~ TH~ P~OTO?EADER. 10 OR ~O~E NULLS
1770~ CONSTltUT LE~DE~ OR TRAILER w~ICH
1771~ ARE THE P?OGRAM DELIMITER5.
1772~
1773~ INPUT COD-S
1t74~
1775~ DATA 64 ASCII SET
1776~
1777~ CO~TROL
1779~ 176 ALT MODE=DELETE LINE
1780~ - 33 E5C MODE=DELEtE LINE
17B1- 137 LEFt AQRO~=DELETE CHAR
1782~ 177 RU801JT= IGNORE
1783~ 15 CRTN= IG~ORE
1784~ 12 LNFD= END OF RECORD
1785~ RETUQN TC
1786~
1787~ P~1 IF NULL REcoRD
1788~ P~2 C~HER~lSE
1789 025l7 07~2~4 PREED SAL 12 1790 02620 031447 S~b SLCOD
1791 02621 ~20211 LDA .BUFA
1792 02622 6314a- STA BADDQ
1793 ~2623 ~20132 LDA M1 1794 ~2624 031751 STA T~P5 CLEAR DELETE LINE FLAG
1795 ~2625 02F141 LDA M1fl 1796 ~2626 031741 51A TMPl SET FEEO HOLE COUNTER
1798~
~801 02627 B62547 P1 JSM IOST STOP KEY?
1802 e2630 ~6~704 J~P P7 rES
1803 J2631 ~2Q1~1 LDA B40a0 GET INPUT STATus 9I~ .
'804 ~2632 061355 JS~ CR1-1 CALL FOR INPUT
~805 02633 ~62547 JSM lOST
806 ~2634 e66704 P4 JMp P7 STOP
807 ~2635 074117 - LCA
808 t2636 G7B3~6 RAR 7 8B9 e2637 eS0104 A~D ~177 1810 ~2640 67231B R2A P3 NULL?
1811 e2641 045741 I52 TMP1 10 FEED HoLEs?
1812 ~2642 Q66627 J~p P1 NO
1813 02643 021742 LDA tMP2 1814 e2644 ~7'4i3 S~P P4 TQA~LER?
lB15 e2645 S6h625 J~p P1-2 ~O~ LEADER
~B16 e2646 ~31742 P3 SIA TMP2 RESET LEAOER FLA6 lB17 02647 010104 CPA B177 RUBOUT?
1818 92650 G66625 Jhp Pl-2 YES
1819 e2651 010031 CPA CRTN CRTN?
182B e2hS2 ~66625 JhP P1-2 YES. IGNORE
2~i~
~0~6644 PAGE 0~38 ~01 KEYBOARO ENIRY AND DISPL~Y
.
BZl 026s3 Cl312O CPA B137 LEFT ARROW~
~6670 JMP PS YES. BACKSPACE
18Z3 02655 ~12061 CPA LNFD LINE fEED?
1024 e26s6 C2C03 LDA EOL YES- CH4NGE TO END oF Lin~ ch~r~ct~
~825 e26s7 ~1312~ CFA B33 ESCAPE MODE?
lB26 t2660 a66624 J~P Pl-3 YES. SET DELETE FLA6 e2661 01312 CPA B176 ALT MODE?
lB28 02662 06662~ JMP Pl-3 YES. DELETE
lB29 e2663 06101O JSM ONEXT
1830 02664 ~21467 LDA LOCL2 lB31 C2665 ~1003 CPA EOL END Of RECORD~
1832 e2666 066673 JMP ~2 YE~
lB33 e2667 ~2540~ LDB BADDR
lB34 e26t0 01713~ CPB IGE~D FULL?
~1835 e2671 ~ss40- P6 DS2 BADDR
1836 02672 06662~ JhP Pl-2 lB37 e2673 J20127 P2 LOA ~170~
~B3s e2674 e3144- S~A ~LCOD SET TO STANDARD PRINTER
1039 6267s ~457s: ISZ TMP5 C~ECK ~ELETE FLAG
1041 e2677 06435' JMP RETN2 ACCEPT
1842 e2700 ~2s4a~ P5 LDB 8ADDQ
1843 6270l ~1421 CPB .~UFA RUFFER EMPTY~
1844 ~2702 ~6662~ ~p Pl-2 rES- IGNORE
lB45 a2703 06667 J~p P6 NO~ BACKSPACE
1847 027as P6101~ JSM ONEXT PUT EOL CHAR IN ~UFFEQ
ls4B 02706 16417- J~p R~YDA-I EXIT PTAPE MoDE
-b ~
10'1t~4 ~
PAGE 0039 ~al KEY~BOARD ENTRy AND ~TSPLAy lBS0~
1851~ B~CKSPACE
1852~
1853 02707 ~21704 PKSP LDA BKPTR
1854 e2710 ~72350 Q~A B~2 FIRST BAC~SPACE?
1855 e2711 U21400 LDA 8ADOR YES
1856 e2712 ~10212 C~A ~SLBf NULL RECORD?
BS7 e2713 ~66045 JMp REED6 YES
185B e2714 G21400 LOA ~ADDQ
1859 02?15 a31704 S~A BKPTR
1860 e2716 G66723 J~p BKl-l PUT POINTER AT LAST CHAR
1861 e2717 ~10212 BK2 CPA .SL~ ALREADY ~T FIRST CHAR?
862 e2720 ~66045 J~p REED6 YES
1863 e2721 U114a2 CRA OTPTR LEFTMOST ON SCREEN?
1864 92722 GS54~,2 DSZ OTPTR YES- SCROLL
1865 e2723 ~55704 DSz BKPTR BACKSPACE CURSoR
1866 e2724 U66045 BKl J~p REED6 1~67~ ~
1868~ FORW~RD S¦PACE
1869~
1870 e2725 02~7~4~FORWn LDA BKPTR
1871 02726 070310 S~A F~l S~IP IF NO BACKSPACE HAS OCCURRED
1872 02727 0457a4 ISZ BKPTR
1873 02730 021402 L~A OTPTR
1874 02731 ~a2c41~ ADA .32 1875 e2732 ~117041 CPA aKPTR ON QIGHT OF SCREEN?
1876 02733 011400 C~A BADDQ YES~ LINE FULL?
1877 ~2734 066045 FWl J~p REED6 lB78 e2735 ~454a2 ISZ OTPTQ NO- SCROLL
1879 22736 066~45 J~p ~EED6 881~ LEFT SU~ROUTINE
lB82-1883~ SHTFr THE 32 C~ARACTER DISPLAY LEFT
18B4~
lB~S e2737 ~21400 LEFT LOA ~ADDR IS THE LAsT CHAQ
18B6 ~,Z740 ~00151 AOA ~32 ALREAnY TO THE LEFT OF
1887 PZ741 07ff0~6 TCA
18B8 ~2742 u014e2 ADA OTPTP THE EN~ OF DISPLAY~
lBB9 ~2743 970113 SAp *~2 IB90 ~2744 ~454d2 lSZ OTPTR NO~ SC~OLL
892~
lB93~ QIGHT S~G~OUTINE
1894~
1895~ SHTFT THE 32 CHA~AC7ER DISPLAY RIGHT
1896- ONE POSITION. IF THE FIQST CH~QACTEQ
lBB987 IS IN THE LEFT~OST PosITloN~ A~OQT.
lB99 Q2746 a21402 RIGHT L8A OTPTQ
1900 62747 ~10212 CPA ~SL~F
1901 e2750 17a402 ~ET
1902 e2751 GS5402 0S2 ~TPTQ NO
1903 Q2752 17a402 ~ET
Z~,' ~0'~6~;44 PAGE 0040 #01 KEYBOARD E~tRr A~D ~ISPLAy 1905~ KEYI~ SU~ROUTINE
1 ~06~
19~7~ THIS SU9RCUTINE ScANS ALL
1908~ INPUT DEVlCES SEAQCHING FOR
1909~ A~ INPUT CO~E. IT REFRESHES
1910~ THF DISPL~Y ~HILE ~AlTIN~
1911~ EXIT WITH CODE IN ~Al 1912~
1913 ~2753 0?4742 KEYIN SBR 16 l91S e2755 ~11704 C~A aKPTQ CURSOR PAST END?
1916 02756 035704 5-B BKPTQ YES~ CLEAR POINTER
191B ~2760 0?2110 ~ZA ~2 1919 02761 ~67002 JMp KEY~l -19~0 ~2762 061~53 05M GTMP GEt CHAQACTE~
1921 e2763 ~31751 STA T~PS SAVE UNco~vERTED C~AR
1922 t2764 ~70550 SZA KEyNl-3 EMpTy ~uFFER?
1923 02765 061363 JSM GTCO~- l CONVERT
1924 62766 C11751 CPA T~PS ~ID CO~VERSION DCCURR?
1925 ~2767 066771 JMp ~2 NO
1926 e2770 ~43121 IOR B200 YES. SET SHI~T BIT
1927 e2771 025473 LD~ CCNT
1928 B2772 ~19031 CPA EOL E~D OF LINE?
1929 e2773 ~74212 sa~ ~4 RECALL MO~E?
1930 e2774 ess473 DSZ CC~ NO- DINC PoI~TEQ
1931 e 2775 170402 RE T
1932 e2?76 17e4~2 REt RETURN ~ITH CHAR I~ ~A) 1933 02777 ~74742 se~ 16 1934 03000 035473 Sla CCNt QESET POTNTER
1935 93aal 066756 ' J~P KEy~7-l 936 03002 01175~ KEY~1 StA TMP4 SET CURSnR COUNTER TO ZERD
.937 ~3003 963024 JSM KEYN6 _938 ~3004 02'7~4 LDB BKPTQ
_939 03005 e74250 SZB KEY~3 CURSOR?
1940 e3006 ~2?122 LCB BKPTA YES
1941 63007 061a41 J~M GETCH
1942 03010 031751 STA TMP5 SAVE CHAR ~T CURSOR POSITIO~
1943 e3011 055704 DSZ ~KPTR
1944 Q3012 ~25443 KEY~3 LDB KEYFG
1945 ~3013 ~74612 S6~ KEYN2 HAS KEY INpuT OCCURRED?
1946 e3014 fl21704 LDA ~KPtQ YES
1947 ~3015 Q?0250 SZA KEY~5 CURSOR?
1948 03016 ~21751 LDA TMP5 YES. RESTORE CH~RACTER
1949 e301t ~2712Z LDB aKPtA
1950 03~20 ~61017 JSM OUTCR
l9S1 ~3a21 ~55704 DSz BKPTR
1952 ~3022 ~21443 KEY~5 LDA ~EYFO.
1953 e3a23 JS~105 AhD d377 1954 03024 e~24132 ~EY~6 LCB M1 1956 03a26 17a402 5IB KEYfG RESET KEY ~ CCURREr) FLAG
1957 e3027 ~2S704 KEY~2 LDB ~KPTQ
1958 ~3a30 ~74610 52B KEYh4 CURSOR?
1959 e3031 G2S750 LDB TM~4 YES
1960 ~3032 ~04132 ADB Ml 26~
lO~
PAGE Oe41 ~01 KEYBOARD ENTRy A~D DI8PLAy -1961 93033 6}4136 CPB ~5 1962 oe3~34 ~24a61 LGB .10 1963 ~3035 ~35750 SIB TMp4 1964 e3036 a21751 LDA ThP5 1965 03037 ~74113 S~P ~2 1966 t3040 a2~037 L~A .28 1967 C3a41 027122 L~B ~KPTA
1968 03042 061017 JSM OUTCR RE~LACE CHARAcTER ~ITH CURSOR
1969 ~3043 0ss7a4 DSZ a~PTR
1970 e3044 ~62562 ~EYN4 JSM REFRs 1972~
1973* CALL KEYIN AND EXEC~TE RIGMT AND LEFT ARROWS
1974*
1975* P~l5ARR0w5 P~2=OTHERWISE
1976 e3a46 ~62753 C~LLK JSM KEYIN
1977 ~3047 ~74742 S~R 16 1978 C3050 ~70346 KAR ~
1979 03051 ~70133 S~P ~2.C SHIFTED?
1980 e3052 024132 LOB Ml YES
1981 53053 e3s706 SIB T~P6 1982 03as4 ~70346 ~R 8 1983 a3055 031751 S~A TMp5 1984 e3056 010036 CPA B27 RIGHT ARROW
1985 e3~57 C66746 JMp ~IGHT YES
1986 03060 ~10035 CPA B26 1987 ~3061 J65737 J~P LEFT LEFT ARROW
1988 e3a62 064357 JMP RETN2 ~6~1 1 0 ~
PAGE Oe42 ~01 KEy OARD EhTRr AND ~IsPLAr 1990~
1991~ TABLE SEARCH ROUtI~E
1992~
~9g3-1994~ THIS SUBROUTINE COMPARES T~E
1995' INPUT STR-NG ~ITh ST~INGS IN
1996~ A TA~Lt. IF A S~CCESS~UL Co~pARE
1997~ I5 MAOE AN 6-~IT CODE I5 ~ETuRNED
1998' 19994 ENTRY CONDITIONS:
2000- (A)=FIQST CH4~ACTER OF INpuT STRIN~
20a1~ (~)=POINTEQ TO FIRST C4AR OF TABLE
2002~
2003~ EXTT CO~DITIONS:
20044 IF MATrH, REtlJ~N TO P~ ~ITH CODE
2005~ IN A OTHERWISt ~ErURN 70 P~1 2007~
2006 e3Q63 ~62531 TB56 J5~ GTMP2 2009 ~3064 a70306 RAR 7 2010 e3a65 C70511 SLA TBS5 oP CODE?
2011 e3066 07040Z SAR 9 YES- RIGHT JusTIFr 2012 Q3~67 CS0054 AN~ .63 2013 e3070 064357 J~P RETN2 2014 Q3071 e21751 TBSR1 LDA TMPS
2015 ~3~72 03'750 T~SRH S~A T~P4 SAVE INPUT CHAR
2016 83073 035742 51~ TMP2 I~ITIALIZE TABLE POINTER
2017 e3~74 925400 LO~ BA~DR
201~ 03075 035752 SIB TMP6~ SAVE INPUT PoINTER
2020 e3077 055742 T~55 GS2 TMP2 2021 631a0 061055 JS~ GNEXT FETCH NEXT INPUT CHAR
2022 e3101 C31743 T~52 5lA TMP3 STORE C~AR~CTER
2~23 e31~2 ~62531 JS~ P2 2e24 23103 ~11743 CPA t~D3 CHAR~CTE~S ~ATC~?
2025 23104 e67063 J~p TBSh YES- C~TINUE
2026 03105 ~25752 LCR T~P6~ N~- PESTO~t BADnR
2027 e3106 ~35400 STB ~A~nR
2~28 e31a7 062531 J~ GT~p~
2029 03110 a7~306 RAQ 7 2030 03111 071711 SLA 4-2 CMA~ IS OP CODE?
2031 ~3112 070153 S~P T~S4 LAST ENtRY?
2033 e31143 121750~ LCA TM~4 REtlJRN tO P~1 2034 03115 ~2175e T~S4 LDA TMP4 2035 03116 067101~ JMp T~S2 CONTINUE
26~) 10'~ 4 i PAGE 0043 ~01 KEYB~OARn ENTRy ~ND DISPL~Y
2037~
203B~ CON5T4NTS~ TE~PORARIES- EtC.
2039~ USED IN AIOVE ROUTINES
2041~
2042 Q3117 001742 TMP2A UEF T~P-2 Z043 0312a aO6006 LISTR DEF LISTl 2044 e3121 0~02a0 8~00 OCT ~a0 2~45 03122 aO1704 8KPTA DEF ~KPTP
2046 03123 ~0l62l~ENDw ~EF RBUFF~40 2050 03127 O~el63 DELIN OCT 163 2051 C3130 eO33Zl;lOEND DEF IoEuF-loEuF~3 ~6(.
PA~E 0~44 #01 DEFI~E-A-KE~-ROUTINES
2~53 2054~ DEFINF-A-KEY-QOUTI~E~
2055~
2056- THE FIRST WORD OF EAC~ DEFI~ITION CO~TbINS THE
2057~ KEYCODE OF tHAT KE~. rHE SFCOND WORD CONTAINS THE LE~GTH
2058~ OF THE DEFINIrION RLus 1. ~HILE IN DEFINITION McDE
2059~ "UKPTQ" POINTS THE THE LE~G~H WORD.
2a60-2061 ~3131 06a62~ KEYPR JSM SAV~P SAVE BADDR
2~62 03132 02a212 LDA .SL!BF
2063 03133 031400 STA ~ADDR
2064 03134 ~61055 JSM G~EXT SET UP FOR TA~LE SEARCH
2065 03135 B27152 LDB K~BA
2066 ~3136 160175 JS~ TSRHA~I SEARC~ TABLE
2067 a3137 ~67153 J~p RCAL NOT FOUND
2068 03140 ~74742 SER 16 2069 e3141 03~432 5IB D~QS~
2070 J3142 ~50024 AND .7 2071 03143 ~03145 hCA JTBA A-PEG ~AS OPCODE
20?2 03144 079737 JMp A~I
2073~
2074 Q~3145 103145 JT~A DEF JTBL-l,l 2075 e3146 ~03253 JT~L DEF XRU~ RUN
2077 ~3150 ~03330 DEF ~LST LIST
2078 ~3151 a03261 DEF XKEY FETCH
2079~
20B0 ~3152 OB7155 KTBA DEF KTBL~KTBLll '; 267 10~ 4 PA5E 0Q45 *fl1 DfFINE-~-KE~-ROUTINFS
20~2 e3153 ~60633 RCAL JSU ~ES~l RESTORE HADDR
20~3 e3154 063346 J~U HUN~ FIND T~E LOCATION
2084 a3155 160206 KERR JS~ ER~A.I NOT FOUND~ EQROQ
2085 03156 ~74517 L~A B~l 2a86 03157 ~31466 S~A LOCL1 SAVE LENGTH WORD
2087 0316a ~70744 SAL 1 208B a3161 0~0136 ACA M5 AssuME oD~ COUNT
20~9 23162 ~72113 SbP ~2 ~ULL DEFINITION?
209~ 03163 ~66045 J~p REED6 YES~ IG~OPE
2091 e3164 ~31473 S~A CCNT SAVE CHAR~CTER COUNT
2092 ~3165 035470 BT9 L2T1 SAVE LOCATION
2093 03166 ~74070 SI~
2094 03167 0?4517 LDA B-I LOnK AT LI~E #
l 2095 ~317~ ~74070 âl~ *~1 ~ 2096 a3171 e7011C 52A ~'2 IS THIS ~ TypING AID?
2Q97 03172 067222 J~p KF~X NO -2098 e3173 074744 SBL 1 YES
2~99 ~3174 635740 SlB TMP SAVE C~ARACTER PoINTEQ
2100 e3175 ~74002 S~R 1 2101 U3176 e05466 A~B LOCL1 2102 03177 ~04134 AD9 M3 2103 032~ ~74517 LDA ~-I LOOK ~T LAST WORD
2104 C3201 ~50105 AND B377 2105 032a2 a704~0 SZA 4-9 21~6~
2107 e3203 Q45473 IS2 CCNT CORRECT COUNT
2108 03204 Q10100 CPA AST~1 CHECK FoR
2109 ~3205 067207 J~P ~-2 2110- 032~6 666045 J~P REED6 2111 ~3207 ~74517 LDA B-I
2112 03210 a50157 A~D M256 2113 A3211 ~40027 IOQ AIEX1 IEX CO~F
2114 ~3212 ~67220 JMP ~6 2115~
2116 93213 ~74517 LOA B-I
2117 ~3214 ~13362 CPA ASTQ2 C~ECK Fn 2118 03215 ~67217 J~P ~'2 2119 e3216 ~65045 J~p REED6 2120 63217 J2~363 LDA AIEX2 IEX CODE
2121 ~3220 074557 SIA B-I
2122 03221 0~6~45 J~P REE~6 2124 03222 a74517 RfNX LDb B-I C~ECK FDR LEGITIM~TF FU~CTIO~
Z125 e3223 ~50065 - AND K1 (0760afl) 2126 ~3224 olaJo4 C~A K2 ~0100~fl) 2127 e3225 076130 RI8 ~'Z
2128 ~3Z26 067246 JMP RRU~ NOT DFF
2129 03227 074517 LDb B-I
2130 e3230 053.357 A~D K3 (176037~
2131 e3231 ~1336~ C~ ~4 (01~037) 2132 ~3232 ~67234 J~P ~Z
2133 e3233 067246 J~P RRUN ~OT DEf 2134 ~3234 32C16Z LOA F~
2135 ~3235 831754 S~A AQ2 ~FN~
2136 e3236 07451? LDA B-I
213~ G3237 ~?0202 SAQ 5 E~TRACt THE LETTER
26l~
10~;44 PAGE 0046 ff01 DEFINE-A-KE~-ROUTINFS
2138 ~3240 650040 AhD ~31 2139 ~3241 ~401al IOR B100 2140 ~3242 ~70404 S~L ~
2141 e3243 e31755 S~A AR2-1 "~("
2142 ~3244 027361 LD8 ALCLl GET POINTFK
2143 ~3245 a66246 J~p RFNXl SET UP coU~T
2144~
2146 e3247 ~25470 LD8 L2Tl YES. CAN RUN
2147 e32s0 063336 JSM SUMP
2148 ~3251 ~70742 SAR 16 2149 G3252 ~66157 J~p CONTK CONTINUE F~OM BEGIN~ZNG OF KEY
2151 63253 ~61225 XRUN JSM LDEF INSURE NnT IN KEY MOnE
2152 e3254 063346 JSM HU~T
2153 Q3255 ~67155 ~p KERR KEY U~DEFINED
2154 e3256 063336 JSM SUMP SEt UP PROGRAM POINTERS
2155 03257 67a742 S~R 16 2156 ~3260 16~171 Jhp RU~.T RUN
2157~
2156~ . -2159 03261 ~61225 XKEY JSM LDEF INSURE NnT IN DEFINITION MODE
2160 03262 063346 JSM ~UNT FIND THE LOCATION
2161 e3263 ~63270 JS~ NEWK NOT FOUND- NEW KEY RE~UIQED
2162 ~3264 063336 JSM SUMP
2163 a3265 G60651 JSM INITS INITIALI2E STACKS
2164 C3266 ~70742 SAR 16 2165 e3267 Q66254 J~p EFET~l FETCH FIRST LINE
2166~
2167 ~3270 160242 NEWK JSM DcoMA~I DECOMPILE PRoGRAM
2168 ~3271 G21405 LCA FWUP ADD A NEW KEY TO DEFINITIO~ ARE4 2169 e3272 031476 SlA tEMp3 2170 ~3273 ~20017 LDA ~2 2171 ~3274 160250 JSM OVCHA~I CMECK FoQ OVERFLO~
2172 ~3275 ~61121 JSM MVtOH M0VE COQE
2173 h3276 021751 LOA TMPS
2174 ~3277 1314~5 STA FWUP-I STOQE ~F~I KEY
2175 ~3300 ~45405 ISZ FWUP
2176 e3301 ~254es L~8 F~UP
2177 ~3302 045405 lSZ FWUP UPDATE FWUP
2178 C3303 ~2aO12 LDA .1 2179 03304 074557 S~A 8~I INITI~LIZE LENGTH ~ORD
2140 ~3305 045424 ZSZ P~UFF
2141 ~3306 045424 ~EWKI iSZ PBUFF UPDAtE PBUFF
21B2 e3307 170402 QET
~6~
lV;~
PAGE 0e47 ~01 nEF'NE-A-KE~-ROUTI~FS
2184~
21BS~ SCRATCH ~ KEY
21B7 e3310 ~61225 XSC~ JSM LDEf I~SURE NOT IN DEf I~ITION MODE
21B8 B3311 160242 JSM DCO~I nECO~PILF
21B9 03312 ~63346 JSM HUNT FIND THE LOCATION
2190 ~3313 164174 J~P RD~DA,I NOT FOUND- IGNORE
2192 03315 c7a437 ADB A-I END OF A~EA
2193 63316 ~00132 A~A Ml STAPT OF AREA
2194 ~3317 031477 XSCQl SIA TEMP4 2195 ~332~ 160251 JS~ CLPlA.I CLOSE UP AREA
2196 ~3321 ~2;405 LGA FWUP
2197 ~3322 074017 ADA B
219B ~3323 03140' SlA F~UP UPDATE FWUP
2199 C3324 ~05424 AD~ PBUFF
2200 03325 e3s424 SIB P~UFF UPDATE PBUFF
220~1 ~3326 ~6~651 JSM INITS INITIALIZE STAC~S
22~2 e3327 164174 J~ip RDYD~.I RETURN TO MONITOR
2203~
2204~ ~IST A DEFI~ITION
2205~
2206 e3330 05334h XLST JSM ~u~t FI~D ~E LOCATION
220~ e3331 ~6761~ J~p XLSTl~l NOT FOUND
2208 ~3332 074117 LDA ~
2209 03333 07043' A~B A-I ENO OF ~REA
2210 ~3334 e7a07i~ SIA ~1 START OF AREA
2211 e3335 ~67614 J~P ~LSTl LIST DEFJ~ITIO~
2213~ SET UP MISC-LLANEOUS PoI~TERS
2214~
2215 ~3336 021424 SU~P LDA PBUFF
2216 e3337 03142' STA PQUFO SAVE OLD P~uFF
2217 e3340 03542~ STB UKPt~
221B ~3341 ~35424 S~Q PBUFF
2219 Q3342 ~74517 LOA B.l 2220 e3343 C70~3' ACQ A
2221 ~3344 ~3542~ Sl~ PBPTP ESTABLIS~ NE~ PBP~Q
2222 e334s 06730~ J~P ~EWKl ?70 10~ 64~
PAGE 0~48 #01 DEFINE-b-KFY-QOUTINFS
2224~
2225~ SUBQOUTI~E TC FIND A DEFINED KEr AREA
2227~ ~EtUQN TO P~ IF NoT FOU~
2228- QETUQN T0 P~ IF FOU~D WITH P-REG = A~DRESS OF L~NGTH WORn 2229~
2230 ~3346 ~24166 HUNT LO~3 FWA~ START SEARCHING 4T FhAM
2231 ~3347 ~15405 HUNl CP~ FWUP
2232 ~3350 170402 ~ET UNDEFINED
2233 a3351 074517 LDA B I
2234 a3352 074070 SIB ~ 1 EXTQACT THIS KEYCODE
2235 e3353 011751 CP~ TMP5 AND Co~pAQE WITH DESI~ED
2236 ~3354 B64357 JMp ~ETN2 FOUND IT
2237 e3355 074437 AOB a- I
223B B3356 067347 JMp HUNl 22~9-2240~ CO~S~ANTS
2242 eo065 Kl EGU 0PMsK ~076000) 2243 eO004 ~2 EGU ~10K ~0100~0) 2244 a3357 176e37 K3 OCT 176a37 2246 03361 003730 ALCLl DEf ~2~AQ2 2247 801¢0 ASTQl EOU B52 2249 ff0a27 AIEXl EQU 11 2250 ~3363 ~QS4¢g AIEx2 OCT 005400 l~ fi44 PAGE 0~49 ~el SYST~M ~A~LEs 2252~
2253~ NON-FOQ~ULA OPEQ~T0~S
2254' 2Z55 ~3364 052110 -OP13 A5C 2 tH~N
e3365 04?516 2256 e3366 l5all7 OCT 150117 tHENS 20 2257 23367 C43321 ¦ OCT Q'l3321 Of 21 2258 e3370 0432~3 FtA~E OCt 43203 F 3 2259 03}71 042704 OCt 42704 E 4t EOT
2260 63372 ~41206 OCt 41206 B 6 2261 03373 ~542~7 OC~ 542~7 X 7 2262 g3374 027710 OCT 27710 ~ 10S EOT
2263 ~3375 027311 OCt 27311 .3 11~ EOT
2264 ~3376 ~51524 ¦FOPST ASC 2 StEP
~3~77 ~4Z52~ -2265 ~3400 156524 OCT 1$6524 STEP 35 2266 03401 047736 OCT ~47736 TO; 36 2267 63402 047522 OR ASC l OQ
226H e3403 1131~1 OCT 113101 OQ; 26 2269 034~4 047104 ASC l ND
2270 e3405 153516 OCT 153516 AND; 27 2271 B3406 04~524 ASC l OT
2272 -~3407 154076 GTE ~Ct 154076 NOT; 30 2273 e341C C36631 OCT 035631 >=; 31 2274 03411 ~36075 A5C 1.<=
2275 ~3412 ~15~74 OCt 115a74 ~= ~2 2276 B3413 S37320 OCt 03732fA <~; 20 2~t8~ SYSTFM COMM ~ND JU~P TABLE
2280 C3414 C04322¦ A~5 FLt-~
2281 e3415 0043221 A~S Fl~ED~~
2242 e3416 o0e437l ~S Pt~P~
22B3 B3417 176534¦Lf3Ll A~S CON~-~
2284 ~3420 ~01237 A~S DELEt-*
2Z85 Q3421 B01244l A~S RENUM-~
2286 03422 ~4335 A~5 t~OQ~L-~
Z2~7 Q3423 ~04331 A~5 TQACE-~
2288 ~3424 O~P151 A~5 AUTO-4 2289 e3425 1766261 A~S EFET-~
2290 93426 000155 A~S LISTC-g 2291 e3427 OQlZ12 A95 SCQAT-~
2292 C3430 ~01311 A~S RUN-~
2293~
2294~ SYSTE~ COMMA~D ~A~E TA~LE
2295~
2296 03431 Ç511R5 C~D13 ASC l RE
2297 C3432 ~4721~ 0CT 4721R QEN; 001000 2298 03433 ~42105 ASC l~DE
2299 C3434 ~462~1~ OCt ~46271 DELETE; 1 2300 93435 Ç50124 A5C I PT
2301 03436 e4065~ OCT 4~653 PTAPE; 1011011 2303 03440 ~154214 OCT 54214 FI~E~)~ 00~100.
2304 e3441 ~143114 ASC 1 ~FL
7305 B3442 li52215 OCT S;2215 FLO~T; 001101 27~
lO~f;644 PAGE OOS0 ~Ol SYSTEM TA~LES
2306 03443 052122 ASC 2.TQbC
B3444 ~4a5~3 2307 C3445 042666 OCT 4266~t TRACF; 110110 2308 ~3446 ~47117 ASC 3.NOR~AL
e3447 651115 a34s0 a40sl4 2309 Q3451 1035e3 OCT 103503 NOQMbL: 000111 2310 03452 047516 ASC 1 ~O~
2311 63453 ~52252 . OCT 52252 CONT: 101010 2312 C3454 651524 ASC 2~sTop ~3455 B47520 2313 03456 1375Ql OCT 137501 STOP; 111111 t~o JUMP) 2314 ~3457 ~52524 ASC l -UT
2315 03460 0476e5 OCT 47605 AUTO 000101 2316 C3461 051524 ASC 2.sTOR
a3462 047522 2317 e3463 042600 OCt 42600 STO~E; a00000 (NO JUMP) 2318 C3464 046117 ASC 2~LOAO
a3465 040504 2319 e3466 110114 KTBL OCt 110114 LOAD; 010000 ~NO JUMP) 2320 Q3467 ~44523 ASC 1 ~ IS
2321 03470 ~52203 OCT 52203 LISTs 000011 2322 03471 051125 ASC l-RU
2323- ~3472 047241 OCT 047241 QUN~ 100001 2324 e3473 oslse3 ASC 3,SCPaTC
e3474 ~51101 ~3475 ~52103 2325 e3476 644202 OCT 44202 SCRATCH: 000010 2326 ~3477 0431e5 ASC 2.fETC
~3s~a ~52103 2327 83501 ~44344 OCT 44344 FETCHS 100~00 lO~j6~4 !
PAGE 0eSl #91 SYNTAX
2330~ DATA STATEM-NT SyN~hx 2331~
2332 23502 ~45706 DATAS lSZ SBPTQ
2333 B3~a3 061156 JSM CO~ST LOOK FOR ~ NuM~ER
2334 23504 160206 NDATA JSM ERRA~I NOt FOU~D
2335 ~3505 169244 JSM NUMOa,l FOUND: SToRE lN SYNt~X PUFFER
2336 83506 0605a4 DATA2 0SM COMC~ COMMA?
2337 e35a7 065151 JMp EOST ~~
2338 B351a ~67502 J~p UATAS
2340~ FORMAT ST~TE~ENT SY~TA~
2341~
2342 ~3511 e61QS5 F~TS JSM GNEXT GET FIRST CMAR OF ~EXT SPEC
2343 03512 060750 JSM DIGCK DIGIT?
2344 e3513 067521 JMp FMTF NO
2345 e3514 ~35724 STB GfL4G YES~ SET FOR EQROR O~ OVERFLO~
Z346 83515 ~55400 DSZ BADDR FETCH AND
2347 e3516 024161 LDP MAxs~ STORE
2348 03517 c6e666 JSM PGI~T QEPEAT FIELD
2349 e3520 ~67522 JMP *~2 2350 e3521 6457a6 FMTF ISZ SBPtR ~OVE TO NEw WOQD
2351 e3522 a27ss2 LDB FADD LOOK FO~
2352 e3523 06as46 JSM S~EXP "F" OQ "E"
2353 e3524 G67537 J~p FMTB NOT FOUND
2354 ~3525 G24161 LDP MAXS~ FOUND$ FETCH AND
2355 e3526 06~666 J5~ PGIh~ STORF FIELD ~IDTH
2356 e3527 C2755: L~ ~ A~D LOOK FOQ
2357 G353~ ~60546 JSM STEXP
2358 a3531 16a206 FMTER JSM ER~A-I NOT FOU~D
2359 e3532 ~24161 FMTD LD~ MAXS~
2360 33533 861131 JSM PGIN0 FE~C~ D~GIT FIELD. ALLOW 0 2361' ~3534 261153 FMTC JSM EOLCK EOL?
2362 03535 06a51l' JS~ CO~CE NO. DEMAND A CO~MA
2363 03536 067511 J~p FMTS GET MEXT SPEc 2364 03537 027554 fMT~ LDB BADD
2365 e3540 06~546 JS~ STEXP SE4RCH FOP "B", ~lX'~, OR
2366 ~3541 06754 JMP FMTOT ~OT FOUNO
2367 O3542 ~61QS' JSM GNEXT FOUND
2368 t3543 045706 ISZ SBPtR
2369 Q3544 06~534 JhP FMTC DEMAND CoMMA O~ EOL
23?0 ~3545 al0a43 FMTOT CPA B42 oUOtE?
2371 ~3546 ~67550 JMp ~2 23?2 O354? ~6?531 JMp FMTER NO
2373 ~355~ 16Q245 JSM GtStA~I YES- GET ~UOTE FIELD
2374 ~3551 &67534 J~P fMTC
Z375 e3552 60676Q fADD DEF FTA~L~FTABL
2376 O3553 ~06772 .ADD DEF fTAqL~FTABL~l~
2377 ~3554 006764 BADD DEF FtA~L~FTABL~4 2379 GOTO AND GOSU~ STATEMENt SY~TAx 2381 ~3555 ~6a626 GOtOS JSM SAVFP SAVE BAnDQ AND S~PTR
2384 03560 G67572 JSM L~U LOO~ FOR A LINEONNUQROR FR~M INtCK
27~ :
10~ 4 PAGE 0~52 #Bl SYN-AX
Z355 Q3561 a6~640 GOTOl JSM RES8P RE~JOQE POINTERS
2386 ~3562 16~20Z Ja~ FSCA.I FETCM FORMULA
23~7 ~3563 P27574 LD~ OfA
23S8 e3564 B6~546 JSM STEXP STO~E "OF" AS EXPANDFD OPEQ~tOR
23B9 ~3565 1602~6 MISOF JSM ERRA,I NOT FOUNn 2390 e3566 J6~664 GOTO2 JSM LNUM FETCH LINE NUM8ER
2391 Q3567 C61153 Ja~ EOLCK EOL?
2392 G3570 ~6a51 a JSM COMCf DE~ND A CO~MA
2393 e3571 ~675~6 JMp GOrO2 2394 e3572 G61153 GOTO3 JSM EOLC~ EOL~
2395 ~3573 067561 JMP GOTOl ~O- TRY FOQ A FORMULA INSTEAD
2396 03574 B06755 OfA DEF FOP13~FOP13~5 2397~
2398~ AUTO SYSTEM COMMAND
2400 035?5 C63647 AUTO JSM GETLN GET oPTIoNAL PA~AMETER5 24~1 e35?6 020061 LCA .10 2402 ~35?7 524061 LD8 .1~
2403 23600 ~3142? S~A .LNU~ SET INITIAL LINE NUM8ER
24~4 ~3601 03543~ ST~ LNINC SET INCREMENT
2405 23602 164173 JMp PEXMA~I
2406~
2407~ LIST EXFCUTION
2408~
2409 23603 a61055 LISTC JSM GNExT GET NExt CHAQACTEP
2410, ~3604 G13627 CPA 843 l~"?
2411 a3605 067623 J~P LSTC2 YES.
2412 g3606 ~55400 DSZ BADDR RESET Po~TER
2413 e3607 ~53647 LSTCl JSM GETL~ GET OPTIONAL LINE #~S
2415 036ll 224a56 LD,B ~lE4 2416 ~3612 G60730 JSM GETAD GET ~DD~ESSES
2417 23613 ~21477 L~A TEMP4 241S D3614 160122 XLSTl JSM LIStA~I LIST
2419 ~3615 160170 JSM CLERA.I CLEAQ BUFFER
2421 Q361? 074~76 TCB
2422 03620 0~5413 AD~ HSTPT COMPUTE WORDS 8ETWEEN STACKS
2423 e3621 160210 JSM OUTIA~I PUT I~ RUFFE~
2424 03622 164173 J~P PEx~A~l 2425 03623 06~664 LSTC2 JSM LhUM FETC~ SE~ECT CODE
2426 e3624 574204 S~L 12 2427 e3625 ~35447 St8 SLCOD
2428 e3626 067607 J~P LSTCl 2429 P3627 40a~43 ~43 OCT 43 2430~
2431~ STOP ST~TFMENT SYNTAX
2432~
2433 e3630 g65147 J~P ENDS
2434 e3631 C21416 STOPS LOA MODE
2435 e3632 C71711 SLA STOPS-I SKIP Tf P~OG
2436 e3633 063647 JSM GETL~ GET P~RAMETERs 2437 ~3634 ~2~56 LDA ~lE4 2438 e363s e24d56 LDB ~lE4 SET DEFAULT PARA~ETEQs 2439 63636 ~6~741 JSM fND-1 FIND ADDQESS OF flRST
2440 e3637 ~15423 CPB P8PTQ PAST END nF PRoG?
\
PAGE 0~53 #~1 SYN-AX
2441 ~3640 ~74742 SeR 16 YES- CLEAP FLAG
2442 e3641 035436 STB ~fLGl 2443 R3642 ~6074~ JSM FND-2 FIND ADDQESS OF SECOND
2444 e3643 ~15423 CPB PBPTQ
2445 ~3644 ~74742 53R 16 2446 ~3645 ~35437 SIB HFLGl~l 2447 C3646 164174 J~p RDYDA.I
2449~
2450- SU9ROUTINE -O BUILD AND STO~E N>0 LINE NUMPERS
2451- RETUR~ TO P~l~NONE GIVEN
2452~ P~2:1 GIVEN ~A)=NUM8ER
2453~ P~3:2 GTvEN (A)=FIQST~ (B)=SECOND
2454~ NUM8EQS A?E STOQED SEPARA~ED ~Y COMMAS IN S-~UFFER
2455~
2456 ~3647 e61066 GETLN JSM GETSK GET NEXT CHAQ
2457 03650 170402 ~Et ~ONE GIVEN
2458 ~3651 06~750 JSM DIGCK DIGIT?
2459 03652 067647 J~P GETLN NO- IGNOR IT
2460 e3653 ~60663 JSM L~UM-1 ~UILD FIQST INTEGER
2461. 03654 ~35720 Sl~ LAStN SAVE lST ~
2462 ~3655 610031 CPA EOL END OF LINE?
2463 03656 a67662 J~P GETL2 YES-RETURN TO P~2 - 2464- e3657 060365 JSM ~ET2 INCREMENT RETuRN ADDRESS
2465 Q3660 G6a510 JSM COMCE FINV AND RECORD A CO~A
2466 ~3661 06a664 JSM LNUM GET NEXT LINE NUM~ER
2467 ~3662 ~21720 GETL2 LDA LASTN MOVE'TO (A~
2468 e3663 064357 5ETLR J~P RETN2 RETURN TO P~2 OR P~3 ~ 2469~
2470 03664 OOOO0~ ~SS 1 }**~*~*CMECKSUM*******
2471~ , 2472~ CLEAR ROUTI~E
2474 e3665 ~70742 ECLR SAQ 16 2475 03h66 C31430 STA LNINC CLEAR AUTO MODE
24~6 t3667 17~402 ~ET PErUR~ To P~l 2477~ 3677 ~S L4S~
247q~ M~rH tA9LES ~EQE
.
27~:;
10 ~t~6'~
PAGE 0~54 ~01 983~--MONIIOR
24~0 2481 ~400~ OkG 40~0~
2483 ~,4a0a 02a116 ENTRY LDA Q~OP CLEAR THE BASE PAGE
2485 e4002 000135 ADA M4 24a6 04003 a7371~ ~ZA ~-2 2487 e4004 ~24066 LC3 INF DETE~MINE THE
24~P e4005 004160 M~wCK AOB M1024 2489 ~4006 ~74577 STB B-l 2490 04007 074477 CPB B-I LAST ~ORD Of R/W
2491 0401a ~66012 JMp ~-2 YES , IT WAS
2492 e4011 066005 JMp MAWcK C~ECK NEXT PAGE
2493~
2495' 04012 074557 S7A B-I INITIALIZE LAST WORD
2496 ~4013 ~35423 S~B MAW
2497 04B14 ~04132 ~CB Ml SET THE POINTER
2498 04015 ~35404 57B L~A~ TO THE LAsT AVAILA~LE WOQD
2499 a4~16 ~24116 LOB REED
2500 04017 e35462 ST9 QEEOL INITIALIZE KEY~OARD LINK
2501 04020 g24207 LDB INTEA
2502 04021 ~35463 STB INTEL IhITIALIZE INTERRUP7 LINK
2503 e4~22 ~20026 LDA ~9 2504 04023 e31452 57A CPLAC SET DECIM~L SETTING TO 9 2505 e4024 ~31451 SlA CTYPE SET MODE TO "FLoAT"
2506 ~4025 ff45434 ' ISz UNITS INITIALIZE TO Q~DI~NS
2507 ~4026 e45450 ISZ P~ODE INITI~ALIZE TO N0RMAL
250~ Q4027 02q166 KILLK LOA F~AM INITIALIZE STAQT OF
2509 04030 0314a5 57A F~UP USER PROGRAM(SCRATCH KEYS) 2510 ~4031 ~20112 KILLP LD~ ~STKA INITIIALIZE RETuR~
2511 ~4032 a31777 57A RSPTQ POINTER
2512 e4033 062734 JSM 5CQP INITIALI7E PROGRAM POINTEQS
2513 04034 ~6i233 JSu LDEF-fi RESET USEQ KEY POINTEQ
2514 04035 ~60645 KI-LV JSM hINlT INITIALIZE SYMBOL TA~LE
2515 ~4036 060651 JSM INITS INITIALIZE STACKS AND fLAGS
2516 04037 ~?a742 ROYPT SAQ 16 2517 ~4040 e31433 ~A TFLAG CLEA~ PT~PE FL~ç
2518 e4a41 031430 SIA L~INC SET TO ~A~AL
2519~
2520 ~4042 16a170 JSM CLER~I CLE4R DlsPLAY
2521 ~4043 ~31622 5lA TERM QESET CRLF FLAG
2522 Q4044 ~0742 PEXMK SAR 16 2523 04045 ~31701 S~A NDISP
2524 ~4046 031702 5~A NpRIN
2526 0405a ~70510 S~A PEXM3 SKIP IF NoT DAT~ QEOUEST
2527 04051 d20012 ~DA .1 2528 e4P52 026267 LD~ ~MRKA PQINT A ?
2529 ~4053 061330 JS~ .~PWQ
2530 O4054 066100 ~MP REX~I
2531~ PTAPE SYSTEM CO~MAhO
2532 04055 e31433 PT~PE STA TFLAç StORE DEVTCE CODE
2533 ~4056 07~110 ~ 2 2534 C4057 ~64726 JMp SYE25 SELECT ConE NOT GIVE~
2535 e4062 G20132 LDA M1 10~ 4 PAGE 0~55 #01 ~30~-MoNIToR
2536 04061 ~31742 STA TMP2 SET FLAG FOQ L~ADEQ
2537 ~4062 0?0742 'EXM3 SAQ 16 2538 e4063 631442 STA STPFL CLEAP THE STEP-5Top FLA6 2539 e4D64 ~20127 LoA B170K
2540 04065 ~31447 5lA SLCOD SET TO STANDARD PRINTER
2~41 Q4066 ~21420 LDA BADDR
2542 04067 ~10212 CPA .SLBF BLAN~ SCREEN?
2543 e4270 066072 JMp ~2 YES
2544 ~4~71 066100 JMp ?EXMI
2545 ~4072 026264 LOB LTADn GET ADDRESS OF LA2Y-T
2546, ~4073 ~21422 LCA UKPTQ
2547 04~74 ~70170 SIA ~3 S~IP IF NoT KEY ~ODE (A)=l 2548 ~4075 ~4134 ADB M3 GEt ADD~FSS Of KEY-LAZY-T
2549 e4076 020021 LCA .4 Z550 ~4077 ~61335 JSM NPWQT WRITE ON DISPLAY
2551~
2552 e4100 e24112 PEX~l LDB RSTKA
2553 84101 035777 5~B RSPTQ QESET STAcK
2554 ~4102 020041 AL~UM LOA .32 2555 Q4103 0317~7 STA BLANK SET TO IGNOR ~LANKS
2556 ~41a4 ~21430 LDA LNINC
2557 041a5 070410 52A GTRCl SKI3 IF MANUAL
2558 ~4106 621701 LDA NDISP
2559 Q41a7 672350 k~A GTRCl~l SKIP IF MEssAGE ON SCREEN
2560 C4110 160170 JSM CLERA.I CLEAP OFF LAZY-T
2561 04111 025427 LO~ .LNU~
2562 a4112 160210 JSM OUTIA.I .PUT LINE # IN BUFFER~
2563 C4113 ~45400 ISZ BADDR oUTPuT A SPAcE
2564 e4114 066116 J~P ~2 2565 e4115 0~1427 GTQCl SlA .LNUM SET LINE # IF MANUAL
2566 ~4116 1614h2 GTRCD JSM REEDL~I READ ~ECORD
2567 04117 ~66042 ~p PEXMK-2 ~ULL RECORD
2568 04120 ~61062 JSM GFRST GET FIRST CHAR I~ (A) 2569 ~4121 e66042 J~p PEXMK-2 NULL RECOR~
2570 e4122 074?42 S9Q 16 25~1 e4123 G35724~ ST~ GFL~G SET FLAG ~OR INTEGER ERQOR
25?2 t4124 C25432 LDB DROSt 2573 e4125 0?4730 SI8 CKRCD SKIP IF NoT DAT~ REOUEST
2574 ~4126 ~35642~ STB SAVE SAVE QETIJRN ADD*ESS
2575 e4127 074742 SBR 16 25?6 ~4130 035432 ST~ ~ROST CLEAR THE INPUT ~LAG
2577 04131 035416 STB MOD~ SET TO PRO~.RAM EXECUtION MODE
2578 04132 160Z37 JSM SAL~A.I STATEME~T GIVEN?
2579 04133 066260 JMP GTRC2 ~0 25a0 04134 e20127 GTRC3 LDA ~170K YES
2582 4136 22270 STA SLCOD SET TO STA~DARO PRINtER
2g84 34140 061062 JS~ GFRST SET TO CALC SYNTAX MODE
2585 a4141 ~00a00 . NOp '~ CHECKSlJM
25S6 04142 ~65154 JMp S~NTX
2587 d4143 e25416 CKRCD LCB MODE
2588 ~4144 074111 SLB ~'2 SKIP IF EOL
2589 04145 ~66154 JMP SrNTX EXECUTE? DONT ALLOW LINE #
a4146 0101~0 C~A STAQ FI~ST CMA~ AN "*"?
2591 04147 066251 J~P UKDEF YES
27~3 :10~;44 1 . - - -PAGE 0056 ~01 9530--MONITOR
2~92 04150 060675 JSM INTC~-I BUILD A LTNE Y
2~93 ~4151 035427 5IB .LNUM STORE LINE #
2 94- tA) CONTAINS NEXT CHAR
2'~95 04152 010031 CRA EOL END OF LINE?
2~96 e4153 066500 ~hP DELST YES DELETE LINE FROM CODE
2~97-2 9B 04'5L 025426 SYNTX ~OB PBPTO GET MAINLINE END POINTEQ
2 99 ~4 S~ 015424 I_PB PaUFF NULL PROGQAM?
2600 04 SO ~62734 JSM SCRP YES INSURE NO SPURIOUS COU~ON EXISTS2601 ~4 5' 6'4026 LDEI 9 SET STORE FLAG FALSE
2602 64 hrJ ~ ',710 SIB MSFLG ~DONT RECOGNISE AS516NMENT) 2603 ~4 6' 0'5413 LOfl HSTPT INITIALIZF
2604 ~416~ 6R4132 ~05 Ml THE S-STAC~
2605 e4 6. 035472 stg TEMPS POINTER
2606 ~4 64 0-4742 SEIR 16 2607 64 65 035711 ~IE DFL~G CLEAR DEFINE FL4G
2608 ~4 66 035714 ~B SFLAG
2609 04_b7 160237 STMT JSM SALTA~l SEARCH TAPLES FOR STATEMENT26 0 e4''0 06h201 Jhp CMND NoT FOUND
26 1 e4 ~I J45706 ~5,7 S9PTR
26_2 ~4_~2 135706 '~lR 59PtR,I STORE THE PAGE
26 3 64 ~3 0'54'6 _DB MODE
~6 4 04 74 ~42 1 LB STMTI SKIP IF PRoGRAM MODE
'6.S ~4 75 ~703~4 ;~L 1~ SHIFT OP CODE
'6 6 ~4 76 ~01 2 ;AM STMTI SKIP IF STMT TYPE IS ALLOwFD
''6 7 64 77 ~623OO NCALC JSM ERROR STMT NOT ALLOWEO IN CALC
'61B C4~0a '65471 STMTl JMP TEMp~t ~RANCH TO CODE POR STATEMENT
~619 ~4'0_ ~241.~ CMND _GF Ml SEARCH TABLES FOR
'6''~ ~4'~'' 6e23~ JSM SALTA~I SY5TEM COMMAND
6 54 ~ 0662' jMp ILET NOT FOUND
''6 ~ 04~~4 07474' CMNDF SlR 16 ~6 ~ e4'd5 03543 S 1 CLINE RESET POINTER FOR LIST
Rh''4 04''~h 03~43O S I LNINC RESET AUTO
~6~ r4~ 41h S~q MODE SET T0 PROG
'~ ~4 o ~' 442 S~P SIPFL CLEAQ "STEP" FLAG
h 4~ 0~'4 SAY 4 GET ~ OF PARAMETEQS ALLO~ED
D ~4 ~n 1 52A JCMND 9QANCH IM~EDlATELy 4 q4 _ 6- 3~ JSM GETLA,I GET LINE ~ PARAMEtEQ5 h 1~ i 4 4 ~'~74' SAR 16 NONE GIVFN~ASSUME a b~4 5 ~24aSh LOB IE4 ONLY ONE GlvENl ASSUME INFlNlTy b~ 1'4 6 ~1473 JCMND JSM TEMP I RRANCH To CoMMAND ExEcuTloN
0-3- A_ COM~ANO JllMP TO PEAM~ o~ QD~PT EXCEPT fETCH
' h3~- ~MI~H JUMPS tO QEADI THE FOLLOWING TWO INSTQUCTlONs \ O~'~ AQE REtuRN EXltS FOR READ
~b3b 042l7 G66042 JhP PEX~-2 ~03' ~4220 066120 JMp 6TRCD-2 6~8-~6~4 e4221 070742 ILET SAR 16 GFT SPElcAL CHAR fOR IMPLIED LET
~64~ ~4222 066164 JMP STMT-~ FIND 9LOCK FOQ IMPLIEO LET
~4 -~4' ~4''3 ~5~4'~ ILETS USZ BADDR
64~ 14' ~ Q6 0 JSM BNEXT RECALL CHARActER
044 ~4-~r ~5r41 d ~5Z 9ADDR
645 ~4 ~6R7' JSM LETC~ LETtER?
646 ~4 ~6h2~ JhP ILETl~l NO~ tRY INPLlEo DISP
~647 ~4 10 ~6~6~6 J5M SAVRP SAVE POINTERS
.
F~ ~ ...... .
10~6fi44 PAGE 0~57 #01 9B3~--MoNlToR
264B e4231 G62274 JSM LETS~ TRY "LET" SNTAX
2649 ~4232 066244 J~iP NSTMT~I OK- CHECK FOR EOL~
265~ 04233 ~6a640 ILETl JSM REsqP QESTOQE PolNTERs 2651 e4234 e20125 LDA P~roP STO~E CODE FOR
2652 ~4235 ~55706 GSZ SBPTR
2653 e4236 131706 STA SBPTR,I IMpLIED LET
2654 ~4237 645706 ISZ SBPTR
2655 e4240 025416 LCB MODE
2656 24241 ~74111 SLB ~ST~T S~IP IF PROG
2657 ~4242 ~62315 JSM PRNTS TRY l'PRINT" SYNTAX
2658 Z4243 062360 NSTMT JSM ERROR NO STATEMENT TYPE C~N BE FOUND
2659 64244 ~61153 JSM EOLCK END OF LINE?
2660 e4245 ~21416 L~A MO~E NO
2661 a4246 670111 SLA ~-2 2662 04247 ~66233 J~p ILE~l TRY PQINT SYNT~X IF CALC ~onE
2663 ~4250 665152 JhP NOEOF
2665 04251 021422 UKDEF LOA UKPTR IN KFY DFfINITION MO~E?
2666 24252 ~72110 RZA ~2 2667 e4253 16C2a6 UKERR JSM E~RA.T NO~ DEFINITIoN NOT ALLOWED
2668 ~4254 ~74742 SBR 16 2669 e4255 1357P6 SIB SBPTQ~I SET A 0 LINE NUMBER
2670 e4256 160253 JSM CHRSA,I ACCEPT AN ASCII STRING
2671 C4257 ~6652~ J~p ACTKY ACCEPT nEFINITIoN
2672~
2673 0426a 024132 GTRC2 LOB Ml 2674 ~4261 16~237 JSM SALTA~I SYSTEM COMMAND IN "INPUT"?
2675 a4262 165642 JMP SAVE-I NO~ RETURN ~ATA TO INPUT ST~T
2676 e4263 066134 Jhp GTRC3 YES- A~ORT INPUT
a677~
2678 C4264 010555 LTADD DEf ~*~S
2679 ~4265 045505 ASC l-KE
2680 e4266 ~54437 OCT 54437 Y-L~ZY-T
2681 04267 C~131 OURKA DEF .63-.~3~1 2652 a42?0 1~0001 CALSN OCT 100001 26S3 00116 IMPOP ECU ~ToP oP CODE 1 2684 ~0125 PQTOP EGU LaOP oP CODE 24 2685 O0100 STAQ E~ BS2 2687~
26S8~ LEt STATE~ENT SYNTAX
2689~
2690 04271 e62274 LETS JSM LETSN
2691 04272 065151 J~P EOST
2692 04273 160206 SYNE2 JS~ ERQ~.
2694~ LET SYNTAr $UBQOUTINE
2695~ EXIT P~lS StoRE OCC~RRED
2696~ P~2S NO SToRE OCCU~RED
2697~
2698 a4274 eSS710 LETSN ~SZ MSFLfi ENABLE AssIGNME~T
2699 Q4275 16~2e2 JSM FSC~I GET FOR~ULA
2700 ~4276 025714 LDF SFLAG
2703 e4301 ~64357 JMp RETN2 NO
104t~6~4 PAGE~Oes8 #01 s830--hoNIToR
2704~
2705~ WRITE AND PRINT StLTEMENT SYNTAX
27a7 e43~2 160265 ~ITF JSM IO~EA-I GET DEVICE AND FORMAT
2708 ~4303 ~6~534 JsM ~PC~E GET QIG~T PAREN
2709 ~43~4 0ss400 DSz ~ADDR
2710 943~5 ~5s706 ~SZ SBPTR
2711~
2712 04306 062315 PQINS JSM PRNTs CHEcK SyNTA~ ~Tn ACTST IF ~K) 2713 ~43~7 16~206 SYElS JSM ERRA,I IMPROPEQ SYNTAX
2714~
2715~ PRINt STATE~ENT SYNTAX SUBROUTINE
2716~
2717 ~4310 010043 PRINl CPA B42 QUOTE?
2718 e4311 066325 J~P PRlN2~4 YES
2719 ~4312 060461 JSM SYMC2 2720 a4313 6120el DEF COMMA-l COM~A OR SEMICo~oN?
2721 04314 ~66321 J~p PRIN2 NO
2722 04315 ~24132 PRNtS LD9 M 1 2723 ~4316 035712 STB PFLAG ENABLE FOR~ULA AND TA8 2724 Q4jl7 ~61e66 JSM GETSK
2725 04320 ~65150 J~P EOST-l 2726 a4321 610~43 PQIN2 C~A B42 QUOTE?
2727 ~4322 ~66324 JMp ~2 YES
2728 a4323 ~66334 J~p PRIN3 NO
2729 ~4324 045706 ISZ SBPTR
2730 ~4325 160245 JSM GTSTA,I RECORD STRING coNstANT
2731 Q4326 ~61153 JSM ~OLC~ EOL?
2732 e4327 074742 S~Q 16 2733 04330 135706 STB 58PtR.I CLEAP OUT NEXT ~ORD
2734 ~4331 ~24132 LOB Ml 2735 a4332 635712 SIB PFLAG ENABLE FORMULA
2736 04333 066310 J~p PRINl 2737 D4334 ~45712 PQIN3 ISZ PfLAfi~ t~F~ OR FOQMULA PEQMItTED?
2738 ~4335 170402 RET NO- RETUQN- IMPQOPER SYNTAX
2739 e4336 026354 LDB TA~A
274~ a4337 16~175 JS~ TSQMa,I LOOK FOR ~TAB"
2741 ~434fl ~66350 Jhp PRIN4 NO
2742 ~4341 070544 SAL ~
2744 e4343 C60454 JSM SBPUD-2 STORE CODE FOR TAB
2746 e434s 1357a6 ST~ SBPtQ.I
2747 D434h 16P2~2 JSM FSCA . I GET T~B FORMULA
2748 ~4347 ~6635~ JMp PRIN5 2749 ~4350 1~554~a PRIN4 D52 8ADDR PIACK UP P~)INtER
2750 04351 16a202 Js~ FSCA.2 FETC~ FORMULA
2751 a4352 061153 PRIN5 JS~ EOLCK EOL?
2752 ~4353 ~66310 J~p PRINl NO
2753 04354 ~23?73 Tb8b DEF Tb9~TAR~l PAGE 0eS9 #01 9830--MoNIToR
275s~
27s6~ OUTPUT EQROQ # ~ 'l P~ l 2758 e435s G6Q405 AERR JSM XFARl SAVE AR2 IN ARl 27s9 ~4356 06~400 JSM GPAR~ GET ERROR ~ IN ~B) 2760 e43s7 056370 JMp ERR
276l~
2762- OUTPUT ~RQOR # fRO~ ERRoR TA~LE
2763~ .
2764 e4360 05s777 EQQOR DSZ RSpTQ
276s 04361 121777 LDA ~SPTR,I ERROR SOUQCE IN ~A) 2766 OE4362 ~26476 LDB ERBs TABLE ADDRESS IN ~B~
2767 a4363 G74070 518 *~1 INC ADD2FSS
2768 84364 ~744s7 CPA ~-I MATCH?
2769 Q4365 ~74~76 TC~ YES
2770 a4366 e7s6s3 s~p ~-3 CONT INUE IF NO ~AtC~
2771 04367 006476 ADB ER~S COMPUIE NEGATI~E OF ~RROR #
2772 ~43?0 G35706 EQRl SIB SBPTQ SAVE -~ERROR #
2773 04371 02l450 LOA PMODE
774 04372 072350 R~A E~R2 277,s ~4373 G21433 LOA TFLAG
2776 ~4374 6702s0 52A ERR2 SKIP IF NoT PTAPE
2777 0437s 02~60 LDA .10a 2778 e437~ 624211 LDB .BUF~
2779 G4~77 66l337 JSM NDWQT PRI~T LI~E IF PTAPE ~ND P-ALL
2780 ~4400 ~61344 JSM CRLFl 2781 ~4401 02~4l6 EQR2 LDA MODE
2782 ~4402 070112~ SA~ ~z SKIP IF SYNTA~ ~onE
27~3 e44~3 160264 JSM CQCK~I TER~INATE CURRENT LI~E
2784 ~4404 160170 JSM CLFRA,I CLEAR BUFFER
27S5 Q440s 03s622 S~R TERM SET UNTEP~INATE~ FLAG
Z786 e4406 G2~127 LDA B17~K
2787 e4407 b31447 STA SLCOD SET TO STANDAR~ PRINTER
278B ~4410 ~20023 LDA ~5 27es 04411 e26464 LD~ EMSfiA
27g0 04412 C61335 JSM ~PWRt PUT "ERQOR" I~ ~UFFEQ
2791 B4413 0257n6 LDB SaPtR
2792 04414 0?4076 TcB
2793 04415 160210 J5M OUTIA,I ouTPut PosITIvE EQROR #
2794 e4416 92s427 L~ .LNU~ IS A LI~E ~U~BEQ
2795 e4417 ~74310 SZB ERR3 ' APPLICA~LE
2796 a4420 020026 LOA ~9 2797 04421 e264~s LOB L~SGA
27g8 e4422 ~61335 JSM NPWR~ PUT "I~ LINE " IN BUFFEQ
2799 e4423 e2s427 LD8 ~LNU~
2800 04424 160210 JiM OUTI~I OUTPUT LINE
2801 ~442s ~454C0 ERQ3 I~2 BADDR
2802 a4426 04s4a0 ~sz BADDQ oUtPUT ? FLANKS
2803 ~4427 ~21433 LDA TFLAG
2804 ~443a C72110 R2A ~2 2805 e4431 e72~53 SAP ~l-S SET TO ~PPI~T" IF PT~PE
2806 e4432 031453 SIA PRFLG SET "DISP"FLAG
2807 e4433 160176 JSM ELINA~I ouTpuT ERQOR
2808 e4434 160264 JSM CRC~A~I GlvE CRLF IF P-ALL OQ PT~PE
2809 ~443s 0257C6 ERR4 LOB SBPTQ QECALL - (EQROR
2B10 e4436 ~!114132 ~f:E~ Ml ERROR l?
28~
DEMANDES OU BREVETS VOLUMINEUX
11~ PRÉSENTE PARTIE DE C I I E DEMANDE OU CE BREVET
COMPREND PLUS D'UN TOME.
CECI EST LE OME i DE
-NOl E: Pour les tomes additionel~, veuillez contacter le Bureau canadien des brevets JUMBO APPL CATIONS/PATENTS
THIS SECTION OF THE APPLlCATlON/iATENT CONTAINS MORE
THAN ONE VOLUME
THIS IS VOLUME I _ OF ~' - NOTE: For additional volumes ~clease c~ntac~ the Canadian Patent O.ffice
~015 ~0Q6 O0~000 C5 OCT a~e0~0 P~2 ~016 ~B007 01~560 OCT 1256~ 1570 e017 C0010 074543 OCT ~q4543 7963 ~01~ ~Q011 ~232e0 OCt 0~32a~ 2680 C101S~
~020 C0012 ~00B01 .1 DEC I
~021~ ~
oa22 ~0013 g004~0 C7 0CT ~604~ 0~PI
4023 ~0al4 ~53451 OCT 053451 5729 0024 ~0015 C53571 0CT 053571 5779 ~025 ~0016 ~50450 0CT o~0450 5128 e026~
0~27 e0Q17 ~0gae2 .2 DEC 2 802a ~0020 ~0003 .3 ~EC 3 a029 ~21 ca~004 .4 ~EC 4 e030 ~ 20~22 ~ 005 ~5 DEC 5 a031 00023 000006 .6 DEC
ed32 ~oa24 aaQ~07 .7 DEC 7 G033 a0025 ~0001C .B DEC 6 e034 00026 600011 .9 OEC ~
~035 Q~02~ ~Oa~13 ~11 DEC 11 e036 e~030 ~B0al4 .12 DEC ~2' ~037 ~0~31 ~aOO15 CRT~ OCT 15 d038 00031 EOL EQU CRTN
0039 ~0031 ~ 13 EQU C~T~
~ ~4 0 * * ~ ** ~
ff041* PQlNTE~S TO FUNCTION5 C~STANTS
~042-0043 00027 DPE~R ECU ~11 PO~NrER TO lO00PI
6044 00~23 Pl~2 ~au ~6 PO~TER TO PIo2 045 eo0Z0 ONE E'CU ~3 POI~TER TO THE Co~sT~NT ONE
O047**~***~****~4~**~*~
004B 0~032 ~02017 .15 DEC 15 1JO49 ~OJ33 00002C .16 DEC 16 B050 00034 000025 .21 DEC cl ~051 0~035 ~a0026 .22 DEC 22 ~052 20036 600027 .Z3 ~EC 23 0053 oOa37 00~j4 .28 ~EC 2a ~54 eOa40 ~00037 .31 DEC 3~
~055 eO041 1~00040 .32 DEC 32 ~1056 eO042 eao041 .33 DEC 33 ~057 00043 ~0~042 .34 DEC ~
lo~t;~ ~
.
PAGE OC03 ~01 9~30 MAIN SYSTE~ SOF7~ARE
~058 e~044 ~00045 ,37 DEC 37 ~059 00045 ~0a050 .40 ~EC 40 d060 QOO46 S0a051 .41 9EC 41 e061 00047 ~00053 .43 DEC 43 ca62 e~os0 o00aSS .45 DEC 45 0063 OaOSl 000056 .46 DEC 46 0064 e~052 eOO060 .48 OEC 48 ~065 e0053 oao072 .58 GEC 5~
~066 a0054 ~00077 .63 ~EC ~3 C068 000~6 ~23420 .lE4 DEC 1000a oa69 O~05~ oal7s0 .1000 DEC 1000 0070 ~0060 000144 .100 DEC 100 ~071' 00061 ~0~al2 .10 ~EC 10 0~7Z 0~061 LNFD Eau .10 0073 eO062 100000 fLG9T OCT 100000 0074 OBa63 ~00143 .99 DEC 99 a075 00064 100094 INTFL OCT 100004 ~076 00065 a7660~ OP~SK OCt 76000 ~077 00066 077777 INF OCT 77777 4078 00067 100037 TYPFL OCT 100a37 0079 00070 101777 OPOM~ OCT 101777 ~080 a0071 Oael05 E OCT 105 C081 C0072 ~00106 F OCT 106 ~082 00073 ~a0123 S OCT 123 ao83 80032 91~ EQU .15 G084 e0033 B20 ~CU ~16 ~085 00074 0aO022 B22 OCT 22 ao86 90~75 oa0a23 ~23 OCT Z3 ~087 aO035 ' ~26 ~OU -22 ~088 ~0036 B27 ~QU .23 eoa~ ~076 000036 836 OCt 36 090 ~0040 837 FCU ~31 ~091 ~0043 942 ~OU .34 0092 O00~7 e00044 944 OCT 44 C093 ~0100 ~0~052 ~52 OC~ 52 ~a94 00053 B72 ~GU .S8 O095 ~0101 ~ealaO 910~ OCT 10 ~96 Z0102 ~0~133 8133 OC~ 133 0097 00103 ~0P14a B140 0C~ 140 0098 Oolo4 000177 B177 OCT 177 ~,~
~099 00105 000377 ~377 OCT 377 dl00 80Z13 9400 EOU C~ . i 4101 0OlO~ 000177 B?7? OCT 7?7 4I02 00107 001000 B1000 OCT 100a ~103 ~0110 0014a0 B1400 OCT 1400 ~I04 00111 001740 B1740 OCT 1740 ~105 eO112 ~1760 ~1760 OCt 176 0106 00113 001774 B1774 ~CT 1774 ~107 Z0114 Oal775 B17~5 OCT 1775 olOB ~0115 001777 P1777 ocr 1777 6109 eoll6 e02000 QTOP OCT 2000 0110 ~0117 a~2400 ~24ao OCt 2400 ~1 00120 ~0~00 ~3000 OC~ 3000 fll 12 00121 0~4000 9400H OCl' 4000 ~113 Qal22 ~06000 ~6K OCt o0a0 ~t~
10~
PAGE Oa04 ~01 9830 MAIN S~STEM SOFTWARE
~114 ~0a04 ~10~ EOU C6~1 ~115 00~04 QPOP ECU Bl~
~116 80123 0120a0 ~12K OCT 12000 ~117 00123 R~OP ~OU ~12K
OllB ~0124 J320a0 EXPOP OC~ 3200 ~119~ a0125 C500Q0 LROP OCt 50000 el20 00126 OS~O~0 LPOP OCT 52a~0 el21 20127 1700~0 B170K OCT 17000a ~122 ~0130 013777 FRO~A OCT 13777 C123 Cal31 37777 LQOMA OC~ 37777B LAST RO~ ~LOCK
~124 00132 177777 ~1 DEC -1 0126 0~134 t?7775 M3 DEC -3 ~127 0O135 177774 M4 DEC -4 0129 ~al37 177772 M6 DEC -6 0130 00140 177767 ~9 DEC -9 ~131 80141 177766 M10 DEC -la tl32 00142 177765 Mll DEC -11 el33 Cal43 177764 M12 ~EC -12 ~134 OQ144 177763 ~13 ~EC -13 el3s 0al4s 177762 M14 DEC -14 C136 ~0146 177761 M15 ~EC -15 ~137 ~0147 177751 M23 ~EC -23 ~138 O0150 177747 M25 DEC -25 0139 60151 17774B ~32 DEC -32 el40 e0152 177734 M36 DEC -36 ~141 ~0153 177720 M48 DEC -48 4142 ~0154 1777~0 M64 ~EC -64 gl43 ~0155 177660 M80 DEC -80 ~144 e~l56 177634 M100 DEC -100 dl45 ~C157 177400 M256 ~EC -256 C146 6al60 176000 M1024 ~EC -1024 ~147 Q0161 1s436a MAXSN DEC -1000e -(MAXIMU~ ALLOWA~LE LINE NU~RER) ~148 00162 043116 FN ASC l.f~
~I49~
~150~ MAtH CONSTANtS T~T A~E NEEOED ON BASE PAGE
elsl~
~152 00163 1774~1 ZAP OCT 177401 C153 a0164 ~63440 MASKl OCT 06344a ~154 eO165 461400 ~ASKS 0Ct 06140~
2~7 ; .
PAGE 0005 ~01 9q30 MAIN S~STEM SOFTWAQE
~156-~157 C0166 40440 F~A~ DEF 40440B FI~St WOQD R/W
015B ~0112 RStKA EQU B176~ StAQT OF QETUQN StACK
el59 ~0167 ~02454 W~ItE DEF WRIT PRINTER ~ND DISPLAY DRIVER
0160 e0170 ~02533 CLERA ~EF CLEbR CLEAQ QEFRESH BUFfER
el61 0all6 REED EGU UTOP KEy~oARD DRIvER aTOP IS = 2~00 ~162 00121 START EQU B4000 0163 ~01tl 004741 QUNA DEf RuN P~ASE 2~ S~MBOL TbBLE
0164 ~0172 ~10012 XEC4A DEF ~EC4 STATEMENt E~ECUTION EXIT
0165 Q0173 004044 PEX~A DEf PEXMK
~166 ~0174 ao4037 RDYDA DEf RDYPT
~167 a0122 LISTA EaU B6K
al68 e0175 003072 tSRHA GEF T~SQH TA~LE SEARCH
0169 00176 e07450 ELINA DEF OLINE OUTPUT I/O BUFFER
al70 a0177 ~053Q5 SSrMA DEF SSYMT
el71 00200 011433 OPC~A DEF OPC~K CHECK FOR UNDEFINED OPERAND
0172 ae2dl 01~563 FOR~A DEF FORMX EVALUATE FORMULA
~173 002a2 ~12040 FSCA ~EF FSC
al74 ~203 004511 ACTSA DEF ACt5T
0175 30204 ~04500 DELSA 0EF DELST
~176 202~5 ~04355 AERRA DEF AERR
~177 e0206 eo4360 EQQA ~Ef ERROR
C178 ~0207 ~00000 INTEA BSS 1 KEyBQARD INTERRUPT L~NK
~179 Oa210 ~00090 OUTIA ~SS 1 OUTPUt AN INTEGER
2180 86211 003200 .~UFA DEF IO~UF~IOBUF FIRST CHAR OF I00 BUFFER
dl81 00212 023322 .SLBF DEF RBUFF~R~UFF FIRST CHAQ OF REFQESH BUFFER
dl~2 e0213 001744 ARlA DEF ARl 0183 ~0214 601754 AR2A DEF AR2 Q184 00215 ~01773 TMPOP ~EF RES REsuLT QEGISTER POI~tE~
4145 0d216 O00d~0 .FADA BSS 1 ADD
61~6 ~0217 00aOa0 .FSBA HSS 1 SUBTRACt alS7 ~0220 a00000 .FMPA ~SS 1 MULtPY
218a 00221 000000 .FDVA ~SS 1 ~IVIDE
OlB9 ~0222 005447 ENTFA DEF ENTfN
0190 3d223 ~O~O .FSR ~S5 1 SOUARE Root ~191 20224,~a0000 UPAQA OSS 1 UP ARROW
el92 ~0225 O000Q0 FLTQA ~SS 1 01~3 00226 200B00 fLtFA ~SS 1 ~194 e0227 ~0a00a fXFLA ~SS 1 OI~S 30230 e~0000 FLTSA BSS 1 ~196 ~0Z31 a0a0~0 SPL~A ~SS 1 al97 00232 ~0a000 SNFLA ~SS 1 ~198 00233 ~01551 BEND DEF RBUfF I~O ~UFFER END
~1~9 FOZ33 S~UFA EOU 9EN0 a200 00234 e06353 NMOtA DEF NMOUT NUM~ER OuTpuT ROUTINE
~201 a0235 007027 FiLLA D~F flLL OUTPUT ~LA~KS
0202 00236 003442 SLEND ~EF RBUFF~R9UFF~80 REFRESH 9UFFEQ END
~203 50111 TMPA E~U B1740 e204 OOllQ 9ADRP EOU 91400 POI~TE~ POINt~R TO I~O BUFFER
e206 e0123 FOPBS ECU B12K
0207 eO237 ~16516 SALTA DEF SALT
~208 ~0240 405257 MDIMA DEF MDI~
0209 00241 C19413 SYTSA DEF S~TSH
~210 00242 ~5711 DCOMA DEF DCO~P
0211 0024~ ~0~000 NU~CA HSS 1 2~j ~0~644 PAGE OeQ6 ~01 9R30 MAI~ SYSTEM SOFT~ARE
~212 e0244 eoa0~0 NU~OA BS5 1 0213 00245 ~1656 G~STA DEf GE~S~
a214 ~0246 ~12231 VAROA D~F VAROP
e215 00247 010112 ECALA DEF ECAL E~ECUTE CALC ~O~E
ff216 Ofl250 004625 OVCHA OEF OvcHK
~217 e0251 004575 CLPlA DEF CLPRl ~218 0~252 e05416 E~tEA DEF ENTER
~219 C0253 607672 CHRSA DEF CHRST
e22a 00254 0~3317 XSC~A DEF XSCRl SCRATCH KEYS
B221 00255 ~lQ040 XEC6A DEF ~EC6 a222 ~0256 ~1~425 FOAAA DEF FDATA
0223 8~257 a0566D FNOAA DEF fhD~D
2224 eO26a 005671 fNDlA UEF Fh~Al 0225 eO261 ~0?547 IOSTA OEf IOST I~O STATUS CHECK
~226 0C262 61Q467 I~REA O~F I~REt 0227 d0263 0C3336 SUMPA DEF SUMP
~228 e0264 ea2504 CQCKA DEf CRCHK OUTPU~ SUPRESSED CREF
~229 OD265 el5501 IOHEA D~F IOHED
d230 e0266 ~07249 QTCHA.OEF aTcH~ CHECK FOR STRI~G
6231~*~*~**** 4~*~*O~4*~ *~*
~232 a233 e0267 ~00900 BSS 1 CHECKSUM ~ORD******~***~*~
. .
10~)644 . ~ .
.. .. .
.
PAGE O~lo? 1101 9830--EQROU TA~LE
G235 ~02~0 ~0062s El D.F SYSER ROM CONFIGURATION ERRoR
0236 eo2-1 000561 D.F FSCE4 MEMoQy OVERFLOW
02;7 ~02-2 004l77 D.F NCALC StMT NOT ALLO~ED IN CALC MOOE
~2_8 s02-3 000726 D:F SYE25 YISSING OQ BAD TNTEGFP
0 3~ t0 ~4 004243 ES. D.F NSTMT NO STATEMENT OR CO~MAND RECOGNISED
e 4a 0o ~s 012134 DEF FSCE3 UNQECOGNISED OPERAND
~~4 0~l-6 001152 DEF NOEOF CHARS FOLLO~ StMT LOGICAL END
J-4~ -7 ~04307 DEF syEls MISSIN6 pRlNT DELIMETER
G~4D o~ a 0042s3 DEF UKERR IMPROPER TrplNG AID ASSIGNMFNT
0244 Ctl3~1 003ls5 E10 DEF KERR KEr UNDEFlNED
~24s 00302 ~oooo0 ~ss l ~246 ~0303 ~o~ooo ~ss l e247 00304 001165 OEF SYE12 51GN GIVEN BUT NO NUM~ER
0248 00305 000511 DEt COMCE~l UISSING COMMA
G249 00306 000s22 EIS DEF FSCEI NO LEFT PAQEN
02s0 00307 000s3s DEF FSCE2 NO RIGHT PAREN
d251 eo310 OlS432 DEF ARREI MlSSING SUBSCRIDT
e2s2 eo311 012452 DEF STRNP STRING NOT PERMITTED
02s3 00:12 0076~0 DEF NOST MISSING OQ BAD STRING
e2s4 ~0.l3 00?665 E20 DEF SYE14 NO CLGSING OuoTE
o255 eo~l4 J12433 DEF syNE4 MlSSING OR BAD FUNCTION l-D-02s6 eo31s 012515 OEF syNEs MlSslNG PARAMEtER
0 5? ~~~.r ~03s04 D.F NDAT~ M-SSING OR BAD DATA ITEM
C~58 o~- oa-?23 D.F SYNE7 M'.'SING THEN
~ 59 ~ 0-s6s E25 D.F MlsoF M-~ SING OF
0 60 ~D~ Olh461 DF.F SYE:3 M-~slNG VARlABLE
o~61 0~3-l 0 ~464 D_F s~N-s M-~SING FoR vARlAsLE
0-62 to3~: 0 473 DEF SYN-9 MISSING T0 0~63 003-~4 t.2s00 DEF SYE.~ MISSING STEP
o~64 003-5 F.2522 E30 DEF S~N-6 MISSING ASSlGNMENT IN FOR STMT
0~6s 00~6 004273 DEF S~N~2 LET STMt HAS NO STORE
a~6~ o B-7 ~r3531 DEF fMT-R IMpRopER FORMAT SPEC
o~h' 0~ d ~43~ O F srNE3 MJSPLACED COM STATEMENT
~d ~ I ~ o~~ D-: CMEQR IMPROP :Q COM DECLARATION
IJ' E:15 D ~ hERS APQAr ~IOU9Lr D~FINED
~ Op~ D.- ssr~3 PRECIS-ON DOuBLr DEFINED
~ 7 ~ 0 1~ S~ME2 INCO~J5 STENt DlMENsloNs ERl~ ARRAr HAS UN~NOWN DIMENSIONS
aol~ ~0~? ~ D~F MERs DIMENSIONS TOO LAQGE
7~ ~0 3 ' ~ 44~ E40 ~:F EQ8 OPERAND IS UNDEflNED
~ 7r ~ ~4~ ~o~L2 ~ .F NlNtT APRAY OQ STRING NOT lNlrrALl2ED
~ 7~ D'4 ~ ''4 1 I~:F ER~, SU~ icpl~T EXC E~S BOUNDS
7 ~ 4 ~o- 17 u f SCGRP s-L .Ct ConE LESS T~AN I OR GT~ THAN lS
n4 E45 D~ F TAIEQ S-A EM .NTS US G FORMAT CANNOT USE TAB
-O ~343s ~ F ~EI~R ouT OF D A TA
E50 U:F MEQll LAST STYT IS NOt ~END~
D_oa0 Ei~ S I
. 14 ~ 000 ~SS I
0 15d ~ ~ S ~HqOOO DSS 1 ~_ 2~ () . .
~O~ 4~
PAGE 0~0~ ~el BASE PAGE ~OUTINES
OE290~
0291~ ~1ULTI EXIT PoINT REtURNS
d292~
e293 ~0356 B60365 RETN3 JSM RET2 RETuRN TO P~3 ~294 e03s7 e314~1 RETN2 STA RS~VF RETUQN TO P~2 IE295 0~360 ~21777 LDA RSpTQ
~296 e036l ~00132 ADA M1 a297 oa362 ~70637 IS2 A~I INCREMENT RETURN ADDQESS
~298 eo363 0214al LDA R5A\lE RESTORE (A) e299 ~0364 170402 RET
e3~0~
~i301 0036s a3l4el QET2 STA QsA\lE
0302 00366 e21777 LDA KSPTR
~303 eo367 000133 ADA M2 e304 eo370 070637 IS~ A.l INCREMENT QETuRN ADDRESS
630s 00371 e214sl LDA RSAVE RESTORE (A) 17a4~2 RET
~307~
~308 BO373 ~24212 IC~'l' LDB ~SLBF GET SINGLE LINE C\lARACTER COUNT
e309 eo374 ~174117 W~3UfF LDA a i~310 ea375 ~7~76 TcA
~311 ~0376 oal4e0 AOA BAt)DR COMPUTE CHAR COUNT
~312~377 1704d2 ~E~
~313~
~314~ GET A PARAMETER IN ~B) fROt~ P 1 a3ls~
~316 ~04~e ~25777 GPAR~ LOB RSPTR
e3170e4al oa4133 ADB ~2 ~318~0402 ~74637 ISZ a I
~31g00403 074537 LDE3 E~ ~ I
~32000404 065375 J~p FIX~4 e32l~ .
0322~ T~ANSfEq FROY AR2 TO ARl ~323~
e324co40s ~24213 XFARl LDB AR1A
S325e04t,6 020214 LDA AR2A
6326004a? 1700~4 XFR
~327~0410 004134 ADB M3 QESTORE ~) ~328eo4 ~ 402 RET
132g~' ,- 0330~ CONVERT AND StORE Ah OPERAND VALUE
~331-~332- AQ2~ SOURCE
0333~ ~A)~ DESTlNAtlON ~YPE
334 ~Q) ~ DESt~NAtlON ADof~Ess Q336 90412 125413 RSULT LDB HSTPT~I
a338 ~ fl414 121413 LD A HStPr.I
0339 ~0415 045413 JS2 HSTPT
~340 00416 0~0206 StOQE R~Q S IF flIT 4-1 a3342 ~0420 0?~602 SZA 13 NO~ ET PQECISTO~ flITS
3344 0422 35727 SIB ~IN2 SAVE ADD ESS
~1 -- ..... .. _. __.. _____............................................. _ ~ _ .
~V~
.
PAGE 0009 ~01 BASE PAGE ~OUTINES
~34~ e~4~4 ~444 JMP STOR2 YES
~34 ~4lr ~040~ STORI JSM XFARI INTEGER~ SAVE IN ARI
~34B 1104 t~ hO2Z JSM FLTRA~l CONVERT INTEGER
~34~ 0~4 ~ 1 ~443- J~P INTOV OVERFLO~ EXIT
~35~ e '430 3572 SIB MBIN2~l STORE INTEGER
~35 eO43 ~64444 JhP XFAR2 RESTORE AR2 ~ 5 0043 60205 INTOV JSM AERRA,I EMIT OVERFLOW
035- 0043; ?7~27 DEC -105 INTEGER OVERFLO~
~3~4 ~04.4 a24a66 LDE INF SPT ~AXIMUM POSITIVE INTEGER
0 5 ~0435 021744 LDA AR~ GET 4ANTISSA SIGN
03 6 00436 07~ SLA STORI~3 POSITIVE?
63e7 004 7 074076 TC8 NO
~3~0 00440 064430 JMP STORI~3 ~359 00441 ~604~5 STOR2 JS4 XFARI SAVE IN PRI
0360 00442 ~25727 LD8 MRIN2 RECALL AnDRESS
~361 00443 16a230 JSM FLISA I CONVERT TO SPLIT AND STORE
~3~2-S363 00444 ~20213 XFAR2 LDA ARIA
~364 00445 824214 L08 AR2A
0365 ~0446 170004 XfQ
C367- STORE AN OPERAND NAhE AND T~PE
0368~
0369- (A)r ASCII CODE FOR LETTER
~37Q- ENTER AT STROP~1 ~ITH PRE AOJUSTED OPEQAND TYPE
~371- EXIT- ~A)- CO4PLEIEU OPER~TOR-OPERAND PAIR
~372-6373 CO4-O 004151 STROP ADE M32 NUMERICA~LY ADJUST OPERAND TYPE
~374 004 1 000154 ADA M64 GET 5 ~IT CODE FOR OPERAND NAME
OJ75 ~04-2 070544 SAL 5 COMDINE THE
C376 ~04-3 ~74217 IOR a T~O OPERAND PARTS AND THE
0377 ~0454 141706 IOR SBPTR I OPERATOR-OPERAND PAIR
~378-~379- UPDATE SYNTAX 8UFFER POINTEP AhD CMECK FOR OVERFLOW
~ IBD-- .
0455 131706 STA SaPTR I STORE ~A) PEFORE UPD~TE
~.~1 QO457 131?06 StA SBPT5.1 SAVE lA) a-dL eO460 17a402 R~T
~ FIND ANU STORE ONE-CHARACIF5 OPEPATORS
~~ ~ (A)-SOURCE CHARACTER
J~B- (P)5NUM9EP OF ENTRlEs TO PE SEARCHED
- P~l-STARTING TA8LE ADDRESS-I
~ 0462 ~64464 SrMC2 LD3 2 ALTERNATE ENTRY TO SPARCH TWO SY~P,OL5 C ~3 00463 ~24012 SYMC1 LDS .1 ALTERNATE ENTRr TO SEARCH ONE SYM80L
t39' ~0464 ~3S466 SYMCK STa LOCLI SAVE ~ TO PE SEARcHEn 439~ ~0465 ~31467 STA LOCL2 SAVE SOURCE CH4RACTE5 ~39 eO46~ ~60400 JSM GPARM GET STARTING ADDRESS
~9 ~047; ~745770 SYMl SIR ~1 INCRE ENT TA3LE ADDRESS
6400 ~047 ~70342 SAR 8 POSITION It 0401 ~047 011467 CPA LOCL2 MATCH SOUPCE CH~R?
23, .. ...... .
, ._.,~
~0~6~
PA6E 0010 ~01 BASE PAGE ROUTINES
2402 e~473 064500 J~P SYM2 YES
4403 00474 es5466 DSZ LOCLl NO~ CONTINUE SEARcH?
~404 00475 064467 JMp SYMl YES
O405 GO476 ~21467 LDA LOCL2 NO- RESToRE C~ARACTER
~406 ~0477 17q4B2 RET RETuRN TO P~2- NOT FOUND
~407 e0500 0201?3 SYM2 LOA FOPBS COMPUTE
0408 ~0501 67~076 TCA
~409 e05~2 ~74~17 ~A B OP-CODE
~410 Y0503 ~64543 Jhp STSRH~4 SHIFT-SToRE-RETURN Tn P~3 6411' e412- CHEC~ FOQ A COM~A
~413~
0414 eOS04 060463 COMCK JSM SYMCl C~ECK FOQ
Q415 e0505 012001 CEf 12001R COMMA-l a416 ~0506 170402 KEt NOT FOU~n - QETURN TO P~l ~417 0~507 064357 J~p RETN2 FOUND- RETURN TO P~2 4418~
a419 0~510 ~60504 COMcE JSM COMCK C~ECK FOR COMMA
0420 00511 16~2Q6 JSM ERRA~I ERROR If NoT FouND
~421 00512 170402 ~ET
~422~
a423~ C~ECK FOR LEFT PARE~THESIS
~424-0425 00513 ~60461 LpcK JSM SYMC2 LEFT PARFN
~426 00514 012023 DEF 12023~ ~BRAC-l ~427 e0515 170402 RET NO~ QETURN TO P~l e428 e~S16 02B126 LDA LPOP YES- RECODE A LEFT
0429 0~5]7 064544 J~p STSQH~5 P~QEN AN~ RETURN ~O P~2 ~430~
~431 00520 061055 JSM GNEXT GET NExt CHAR
~432 ~0521 B60513 LPC~E JSM LPCK DEMAND A
~433 80522 160206 FSCEl JSM EQQ~-I LEFT PARE~ OR BRACKET
B434 ~0523 1?04B2 QET
~435-~430~ C~EC~ FOR RIG~T PAQENTHEsIs ~437 d438 00524 060461 QPCK JSM 5Y~C2 RIGHt P~RE~
~439 605~5 ~12003 ~Ef 1200~ PQAN-l 0440 oa5~6 17~402 ~ET NO- RETURN TO P~l ~441 ~0-~7 020~04 ~CA RP~p YES. RECODE A RIG~T
~442 OO''30 660455 JSM SBRUD-l PAQEN AND INC S~PT~
~443 ~O'': l 061055 J5M GNEXT GET NEXT ChAR
444 OO':2 ~64357 JMp RET~2 RETURN TO P~2 ~44~ ~0533,~61055 JSM G~EXT GE~ NEX~ CHAR
J44 60S34 06e524 RPC~E JSM RpcK DEMA~D A QIGHT
44 ~0535 160206 FSCE2 J5M ERR~-I LEET PAREN OQ SRACKET
045~
~451 S~ARC~ TA~LE ~N~ SIORE OP CODE IF FOUND
C453 ~0537 160175 STSQM JS TjR A~I SEARC TABLE
23~3 10~64~
pAGE Oell #~1 ~ASE PAGE RouTINEs .
~458 e0544 131796 stA S~PTQ.I SToQE OP CODE
~459 e0545 C6'3~ ~Mp RET~2 REtURN TO P~2 a460~
~461- SEARCH TABLE AND STORE EXPA~DED OP CODE
~462~
0463 ~546 16~175 STEXP JSM TsRH~I SEARC~ TA~LE
~464 00547 17~402 QET
C465 aO550 070544 SAL 5 ASSE~PLE AND
0466 ~o551 ~4G065 IOR OP~SK STORE
0467 00552 864544 J~p StSRH~5 ~468~
0469~ BUMP H-ST~CK POINTER AND CHECK fOQ OVERFLOW
e470~
0471 ~0553 655413 ~STP DSz HSTPT ~I~C PnI~TER
0412 ~0554 ~25413 L~9 HSTPT
~473 40555 074076 TCP
0474 ~0556 005412 ADB LSTPT
0475 ~0557 004017 AD8 .2 ~476 00560 e75012 S8M StsQ~l oVERLAP? RETuRN IF NOT
~477 Ga561 160206 MER~ JS~ ERRA.I
~479 00561 FSCE4 EGU ~ER~
a48 0481- STACK l~) ON L-sT~cK A~D C~ECK OVERFLO~
~482~
0483 00562 ~25421 L~B PRADD
~484 00563 445412 SLWST 152 LSTP~ ~NC Po~Tf~
~4aS t0564 135412 SIH LSTPT-I STORE V~LUE
~486 eO565 064554 JhP ~HSTP~l CHECK FOR OVERFLOW
~487~
04B8~ FETC~ TOP OF L-STACK
0489~ , ~49~ 00566 031421 StA PRA~O
0491 00s67 121412 UNSTK LDA LSTPT.I
0492 ~570 ~55412 DSZ LStPt 0493 ~¢571 170402 RET
e494~
~495~ PREPARE fOR SR4NCH THROUG~ ~8LE
0496~ -8497 e~S72 0254Zl LD9 PRA~D
~498 ~0573 ~3S472 STB TEMPS
~499 ~0574 12s472 NEXTL L~B TEMPS,I QEAD AND SAvE
~500 ~0575 074073 S~P ~1-C CLEAR SECURlTr ~IT
~501 ~0576 035427 S~B ~LNUM CURRENT LINE ~UMBEQ
02 e0577 e2s472 LD9 TEMPS FlND ADDRESS
es03 e~600 661a07 JSM NEXTA OF NEXT STATE~ENt t504 S0601 ~35421 STB PRADD SAVE IT
e505 t0602 045472 ISZ TEMPS
dS06' Q0603 125472 LDP TEMRS,l READ OP CoDE
~5~7 ea604 074073 S~P *~l-C
e5~8 ~06~5 645472 ISZ T~MPS
65Q9 00606 074442 NEXTl SHR 10 ~510 e0607 674076 TC~ GET NEGATIVE OF OP CODE
~511 00610 635466 S7B LOCLl SAVE -~OP CODE) eS12 Q0611 121472 LGA TEMPS~I
CS13 00612 ~5~065 AhD OPMSK GET PAGE
104~i~4~
PAGE 0gl2 #el BASE PAGE QOUTINES
fS14 00613 ~24130 FPAGE L~9 FROMA GET fIRSt tA8LE ADDkESS
~515 00614 e744s7 CPA B-I IS THIS THE PAGE?
~516 eo61s 170402 ~ET Y~S. ~B) = LAST WORD OF PAfiE
~517 e0616 ~14131 CPB LROMA ALL ROM'S SEARCHED?
~518 00617 064622 JMp FPAGl YES- CHECK BINARY AQEA
f51g f0620 ~04116 ACB ~~P NO. CHECK NEXT ROM
a520 00621 Q64614 J~p FPAGE~l es21 00622 e2s4f3 FPAGl LOB MAW
C522 f0623 111403 C~A MAW-I IS CODE JN R/W?
23 ~0624 170402 RET YES. (B) = MA~
~524 ao62s 160206 SYSER JSM ERRA-I NO~ THE PRopER BLOC~ IS NOT IN
e52s~
~5 ~527~
Q528~ SAVE B~DQ AND SBPTR
~529~
oa626 ~2s400 SAV~P LDB BADOR
~531 00627 ç3s71s S~B SBADR
G532 oa630 G25706 LDB SBPTR
G533 e0631 G35716 StB SSBPT
es34 ~2632 17~4~2 RET
e53s-0s36~ REStORE BADDP AND S~PT~
e537~
G533 00633 021715 RESBl LDA SBADQ
0s39 ~634 f31400 STA ~ADDR
0540 f~635 021716 LDA 558Pt e541 C0636 8317~6 SIA sapTR
es42 00637 17f402 RET
as43-GS44 00640 G60633 RESBP JSH RESBl 4s4s BO641 1217~6 LUA SBPTR.I E~ASE
4546 f0642 f50065 ~o OPMSK OPERAN~
~547 00643 131706 STA SBPTR~I
G548 00644 170402 REt as4s-4550~ SCRATCH SYM~OL TA0LE AND I~ITIALI2E StACKS
~551-ess2 oa64s ~2s4f4 MlNTt LD9 LWAM
~553 00646 ~3s407 STB 5Y~tP
e554 e0647 C35406 StB VALuE
0555 00650 664653 JMp INITS~2 ~556~
tS57~ lNItlALlZE STACKS fOR SYNtAx f559 e0651 020662 INITS LDA HFLGA
0560 00652 l70000 CLR CLEA~ HALt AND TRACE FLAGS
0561 eo6s3 025426 LOB PaPTO SCkATcH L-STACK
0562 a0654 ~f4132 AD8 Ml ~56~ ee655 ~35412 st~ LSTPt ~564 f0656 ~25407 INITl LDB SYMTP SCQATCH H-sTAcK
0565 e0657 ~74f70 SIB *~1 es66 00660 f35413 St8 ~STPt 4567 00661 164242 J~p UCOMA.I QESET DATA PoINtERs ~568 eO662 ~al436 HFLGA 8EF HFLGI
~569~
2~
10~
PAGE 0e13 #0l BASE PAGE KOUTINES
es70~ SUBROUTINE To BUILD A PROGR~M INTEGER LESS THAN 10000 as71~
057Z 00663 655490 GSZ ~ADDR ~ACK UP POINTER
~573 00664 024161 LNU~ LD9 MAXSN CALL PGINT WIT~ 000 6574 ~d665 145706 IS2 5BPTR.I F~AG FOR QESEQUENCAeLE INTEGER
C576 SUBQOUTI~E TO BUILD A PRo6RAM INTEGER AND SToQE IT
0577~ I~ THE S-~UFFER A~D FLAG T~E PREvIous WoRD
a57B~ tM~XlMUM ALL0~ABLE I~TEGER) 0579~
SS80 e0666 121706 PGINT LDA S~PTR.I SEt ~581 4~667 ~72053 SAP ~ S "INTEGER
0582 00670 ~00a20 ADA .3 FOLLOWS"
o5B3 eG671 e6~45s JSM SaPUn-l FL~G
~584 a0672 ~35477 STB TEMP4 SAVE UPP~R ~IMIt ~ ~585 eo673 G61055 ~SM GNEXT
0586 e0674 664677 J~P INTCK~1 ~587~
858B~ SUB~OUTINE TO BUIL~ AN INTEGER AND STORE IT IN SBUFFER
~589~ (~)=F~RST CHAQACtER
e590~ IMAXIMUM ALLOw~aLE I~TEGEQ) es9a-~592 00675 C24161 LOB MAXSN ~UILD A LINE #
t 0593' ~594 Q0576 03S477 INTCK S~ TEMp4 SAVE UPPER LIMIT
~595 e0677 e74742 SBR 16 INITIALIZE
0596 ~0700 035722 STB I~TGR PAQTIAL REsuLT
~597 00701 ~6a750 JSM DIGC~ IST C~AR A DIGIT?
~598 Q07~2 064725 J~p SYE25-l NO
6599 e07~3 060750 INTCl JSH ~lGCK DIGIT?
060~ ~9704 ~64716 J~P INTC2 NO
~601 00705 821722 LDA I~TGR QECALL PARTIAL QESULT
Q602 50706 035722 STB INTGR SA~E LATEST DIGIT
~603 e0707 e24061 LO9 ~10 MULTIPLr PAQTIAL
Q604 ~0710 ~612~1 JSM I~PY RESULT BY 10 Ç605 e0711 ~01722 ADA INtG~ A~D LATEST DIGIT
0606 eO?lZ e7aSS2 SA~ SYE25~1 SKIR IF nVERfLo~
~607 e0713 ~31?22 stA I~TGQ StOQE PARTIAL RESULT
0605 t0714 ~61055 - USM GNEXT GET NEXT CHARACTEQ
~609 00715 ~64703 JMP I~TCl e610 00716 t25722 INtC2 LOB INTGR SKlP THQoUGH LINK
~611 00717 135706 STB S~PTR~I STORE INTEGER
0612 ~0720 C74~5Q S2~ SyE2s-l IF ZERO
C613 00721 005477 AO~ TEMP4 SUBTRACT LIMIt ~614 ~3722 076153 SBp SYE25-l.S SKIP IF TOO L~QGE
~615 90723 ~25?22 LOB INTGR QEtUR~ WITH
~616 6~?24 964456 J~P SBPUD INtEGEQ IN ~B)S NEXt C~AQ IN ~A) 061B Q0726 16B206 SYE25 JSMZ EFLRAAGI RETURN ON ERROQ FLAG SET?
e619 ~0727 064357 JMP RET~2 YES. QETuQN TO P~2 e621 GET ADDQESSES FOR S~STE~ Co~MAhDs 0623~ RETUR~s tE~P4= ADDRESS OF FIRst LINF~
B624 (~)= A~DRE55 OF LAST LINE~l 23~, 10~i64~
/
PAGE 0014 ~01 P~AsE PAOE ROUTINES
~626 00730 074070 GETAD SIB ~~1 ADD 1 TO SECOND TO
~62? 00731 035477 STB TEMP4 MA~E ADD~Ess INCLUSIVE
~628 0B732 074076 TcB IS fIQST
063~ e0734 C75513 S9P SYE25 THAN SECoND
0631 ~0735 661075 JSM F~DPS FIND ADDRES5 OF flRST
~632 00736 064740 J~P ~2 G633 Q0737 Q64740 J~P ~1 e634~
0635~ C~LL FNnPS AND RETURN TO P~1 0636~
~637 00740 021477 LOA TEMp4 4638 ~0741 63547? 51B TEMP4 ; ~639 00742 ~61~75 FND JSM fNDPS
D640 e0743 170402 RET
C641 ~0744 170402 RET
C642 00745 170402 ~ET
~643~
~644~ C~ECK IF CHAQ IN (A~ IS A DIGIT
~645* RETUQN TO P~1 IF ~OT FOUND
~646~ QETURN TO P~2 If FOUNDt ASCII IN (~); DIGIT IN (B) ~647~
6648 00746 a3a071 DLIMT OCT 30071 a-s 0649 00747 040532 LLIMt OCT 40532 A-Z
a650 e075Q 824746 DIGCK LDJ DLI~T LoDA LIMITS FOR DIGITS
0651 eO751 S64753 JMp LIMIT CMECK LIMITS AND RETQUN
~652 C653~ CHECK IF CHAR l~ (A) IS A LETTE~
C654- RETURN TO P-1 IF hOT FOUNn 0655* RETUR~ TOP~2 IF FOUND
0656~
~657 ~0752 e24747 LETC~ LDB LLIMT LOAD LIMITS FOR LETTFR
0658~ ENtEQ INtO LIMIt DIREcTLy ~659~
~660 ~C753 ~35466 LJMIT ST~ LOCL1 SAVE LIMIT5 ~661 e0tS4 ~74346 ~R a 0662 0a755 074342 5~R 8 GET UPPER LIMITS
~663 ~756 ~74056 C~
~664 00757 070037 AO~ A CODE EXCEEDS
~665 ~0760 B75253 SBP FND~3 UPPER LIMIT?
C666 0076l 625466 LOB LOCL1 NO
~667 00762 074342 S~R 6 GET LOWER LlMlT
~~66B e0763 Ct4076 TCL
0669 ~0764 070037 ADB A CODE LESS THAN
~670 00765 e75012 S~M FhD~3 LO~EQ LIMIT
~671 e0766 67a137 LD~ A NO- CODE IN LIMITS
~672 ~0r67 Oa4153 AOp M48 YES. RETURN TO P~2 4673 00770 e64357 JMp RETN2 ~674~
C675~ GET OPERAND
~676*
0677 00771 121472 GTOPP LOA TE~PS I
~678 ~0772 ~50070 AhD OPD
~680~*~
a6~l*
23 'jt 10~64 ~
PAGE Oe15 #01 84SE PAGE ~OUtINES
06~2 907?4 O00000 6SS 10 ~6~4-~
~6~5 ~686 ~687~
9688~ CoMPUtE ADDRESS OF NExT LINE
68g~
~690 ~1a06 ~35466 STfl LOCL1 0691 a1007 074117 NEXTA LOA B SAVE ADDRESS Of CURR~NT LINE
~692 e1~1Q 670070 SIA ~1 GET
C693 41011 070517 LDA A-I ST~TEMENT
0694 31012 05a104 AhD B177 LENGTH
0695 01013 670037 ADa A CO~PUTE A~DREss OF ~EXT LI~E
~696 ~1014 1704a2 RET
~6~7~
a699- T~IS SU9ROUtINE SloRES A CHARAcTER
0700~ IN A 9UFEER. THt BuFFEQ POINTEQ
0701- IS USCD TO INDICAlE WMF-RE IN THE
~702~ BUFFEQ THE CHARACTEP IS TC 9E STORED
e703- THE R,UFFER IS UNDIST(JR9ED EXCEPT
t704~ WHERF T~E POINTER PO1NTS.
~705-~706~
~707~ E~tRY CONDItIONS:
o?0a- t~)=BU~FE~ POINTLR POI~TER
o709~ (Al=CHARACTE~ tO B~F STOR~6 e710~ RIGHT JusllFIED WITH LEADIN5 ~S
.~711 e7l2~
~714-0715 e1015 e20041 06LNK LDA ~32 0716 ~1016 ~2411Q O~tXT LDP ~A~qP OPTION~L ENTQr POINT
¢717 C1017 031467 OUTCR 514 LOCL2 S~VE CHAR~cTEQ TO BE STOREn t718 el02a ~74517 LDA ~.1 FETCH BIJFFER PoINTEQ
0719 Q1021 011623 CPA PEND ~T 1~0 F~n?
~720 R1022 170402 REt YES
e721 01023 074637 IS2 ~-I RU~P ~UFFER PoINTER
C722 01024 070137 ~6 A
~723 21025 ~74006 R~R 1 ~724 21026 ~70002 SAR 1 C725 01027 07aS17 LDA A-1 FETC~ flUF'ER ~ORD
~726 01~0 ~74112 5~
e727 01031 079346 ~AR 8 SET A TO STORE IN LEFT HALF
~728 ~1032 050157 A~D ~256 C729 e1033 ~41467 iOR LOCL2 a730 a1~34 074132 SeM ~2-C
0731 01~135 070346 f~AR ~ RotATE IF FLAG I~AS SEt d732 1036 ~174557 S-IA ~- I STOI~E NFW BUFFER WORD
~1735-0736~ T~t 15 SUF~ROUT I NE F~ tCHF S
~737- A CH~RACTER FQ0~4 ~ RUFFER
i4~
PAGE 0~16 #~1 ~ASE PAGE ROUTINES
~73g~
0~40~ ENTRY CONDItION5 0741- t~ UFFER P0INTEQ PnINTEQ
e743~
~744~ EXIt CONDITIONS:
~745~ (A)=R-BIT CHARACTER
G746~ tPJ)=BUfFEQ POINTER POTNTER
~747 ~749~
G750 el040 G24110 LD~ BADRP GET NEX~ CHAR FROM I/O ~UFFER
~751 P1041 Q35466 GETCH STB LOCLI SAVE POI~TEQ POINTER
~752 0l~42 ~74517 LDA B-I FETCH BIJFFER POINTEQ
~753 e 1043 otRoa2 SAR 1 ~754 01044 G70517 LOh A.I FETC~ TWO CHARACTERS
a7ss e 1045 074537 LOB B I
~756 ~lt~46 074111 SLB GEt1 TOP ~ALF WORD?
4757 01047 ~70346 RAR 8 NO MovE QIGHT HLAF Tn LEFT
0758 el~50 ~7a342 GET1 SAR 8 TA~E TOP ~ALF
0759 e1051 145466 ISZ LOCLI.I BUMP PoINTER
~76~ 01052 1?0402 RET YES
e76l~
C762 OlZ53 ~24111 GTMP LDB TMPA
d763 eleS4 a65041 JMp GETCH
~764 ~765 0766 ~1055 ~24110 G~EXT LDB BA~RP GET CHAR. AND CONVER~
0767 Q1~56 061362 JSM GTCON
G768 01057 011707 CPA ~LANK BLANK?
0769 01060 065055 JMp g-3 YES. IGNORE IT
~770 elB61 1704~2 RET rEs~ RETUPN TO P-l -~771~
~772~ GET CHAQACTER ROUTI~ES
~773~
~'774 ela62 020233 GFRST LDA S3UFA
G775 ~1063 031706 STA jBPTR INITIALIZF SYNT~X 9UFFER POINTEQ
~776 el~64 G~211 L~A ~BUFA SET BUFFER POINTER ~O STAQT
~777 0l06s 031400 STA ~AD~R OF I~O BUFFER
G77B ~la66 061B55 GETSK JSM GNEXt GET A CHAQACTER
~t79 01067 Q10031 CPA EOL END OF L~NE?
~780 ~1070 170402 RET rES- RETU~N TO P-l 78i 01071 Gh4357 JMp RET~2 NO- RETUQN TO P~2 7B3 FTNO SEQUENTIAL POSItION OF LINE ~ GIVEN IN tA) ~7B5- RETUQN P-l :BErOND ~ND OF PROGRA~
B7B6~ P-2:eETWEEh LINES
G787~ P~3:FOUND
77B8 TEMP3=tB)=~DDRESS OF LINE OR ~EXT LINE IN SFQUENCE
LSTLN=LINE NUMBEQ OF PQEVJOUS LINE
07~ 72 12a233 LOA SBUFA~I GET SYNTAX SEOUENCE ~
B793 81074 031427 SlA CLINE SAVE FOR LIsT ROUTINE
23.) - 10~6~4~
PAGE 0017 ~01 BASE PAGE ~cuTIN~s ~794 e1075 e31476 FNDPS S~A TEMp3 SAVE SEQUENCE
~795 e 1016 ~25424 LCB PBUFF
~796 G1a7t 015423 FNDP1 CP9 PBPTQ ENO OF PROGR4M?
~797 O1100 665117 J~P FNDP4 YES- RETURN TO P~1 t798 e1101 074517 LDA B-I GET CURR~NT #
~799 e1102 67G073 SAP ~1.C CLEAR SEClJRE BIT
~800 S1103 07aS10 52A F~DP2 EXIT P~3 IF TypING ATD KEY
~801 ~1104 07fl~76 TCA SUBTRACT CuRRENT ~ FQOM
~802 O1105 e~01476 ADA TEMP3 DESIRED Y
0803 01106 070412 5AM FhDP3 CURRENT>oESIRED? IF YES. P~2 08a4 01107 a70330 SIA FNDP2 EOUAL? TF YES~P-3 (a)=1 ~805 O1110 074517 LDA B.I SAVE
~806' ~1111 ~70a73 SPp ~1.C
~808 ~1113 C610e7 JSM ~EXTA CO~PlJTE AD~REss OF ~EXT LINE
~8~9 e1114 C65077 J~p FNDP1 ~810 elll5 ~6e36s FN~P2 JSM RET2 P~3 ~811 el116 ~693fis FN~P3 JSM RET2 P~2 ~812 el117 035476 FNDP4 SIB TE~P3 P~1~ SAVE STATE~ENT ~DDRESS
~813 ~112~ 1704a2 KET
Q814~
0815~ MovE WOQDS TO HIGHER MFMORr esl6-~817- TEMP2=LASt ~ORD~1 OF SOURCE
~818- TEMP3=FIRST WOQD OF SOURCE
~819- T'EMP4-LAST WORD-1 OF DESTTNATIO~
~820-~821 01121 ~25475 ~VTOH LCB TE~P2 FETCH SOU~CE ADD~ESS
0822 81122 015476 ~ C~B TEMP3 ALL RELOCATION DONE?
ff823 01123 170402 REt ~824 ~1124 ¢55477 ~52 TEMP4, RACK UP DESTI~ATION POINTEQ
e825 e1125 004132 4DB M1 RACK UP SOuRcE POINTFQ
~826 e1126 074517 LOA B-I ~OVE
Q827 e112? 131477 STA tEMP~.T WORD
~828 ~1130 ~65122 JMp MVtOM~1 as3~ fETC~ ~N TNTE~EQ ~LLOWING 7FRO
es3l~
0832 e1131 620132 PGIN0 LOA Ml FLAG tO ~ETURN
~833 P1132 a31724 S~A GFL4r~ ON OVERFLOW o~ 0 ~834 ~1133 060666 JSM PGINT FETCH INTEG~ER
~835 e1134 170402 RET WITHIN LIMITs ~836 ~1135 445706 ISZ S9PtQ OVERfLO~ oR ZEQo: UP~AtE POTNtER
~837 ~1136 075710 SZ~ ~-2 SKIP If ZERO
088339~ e 1 137 064726 J~P SYE2S ~USt BE ovERFL
~840~ ~ETC~ A LETTER
0841~ EXIT:D~I IF NExT CHAR IS NoT ~ LETtERsCHAQ IN (A) 842 P~2 IF L~TTE~: LETTEQ IN TEMP1: ~ExT CHAR IN ~A) AN~ TE~P2 ~B44 O114~ 061ass LTQ JSM GNEXT
e~4s ~1141 060752 JSM LEtCK LEttEQ?
4846 e1142 17~4O2 STA TEMPI NO- REtURN TO P~1 e~49 t1145 031475 S~A TEMP2 SAVE SECnND CHAQACTEQ
2~
10~;69~
PAGE 0el9 ~Pl BASE PAGE QOUTINES
01146 6643s7 J~p RETN~ RETUQN To P~2 ~851~
essz~ E~D AND RESTORE STA~EMENT SYNTAX
OB53~
~8s4 01147 86l0ss ENDS JSM GNEXT CHECY FOP ADDITIoN~L CHARACTERS
~855 6lls0 945706 ISZ SBPTQ
ess6 ellsl ~6ll53 EOST JSM EOLCK
~8s7 ~1152 168206 NOEOF JSM ERRA~I
~8s8~
osss~ SUBQOUTINE TO CHECK FOR EOL
es60~
~861 alls3 G10031 EOLCK C~A EOL EOL?
~862 ~1154 1642e3 J~p ACTS~-I YES~ JUMP DIREcTLy To ACTST
~B63 ~llSS I 704a2 QET
~864~
C865~ INPUT A CONSTANT
~866~
0867 ~1156 S61166 CONST J5~ GSIGN GET SIGN
ea6~ ~1157 G~5721 StB SIGN STORE IT
es69 el 16Q 160243 JSM NU~CA~I FETC~ UNSIGNED Nu~BEQ
0870 ell6l o6slh3 JMp CONS3 NONE FOUND
~871 ell62 0643s7 JMp RETN2 FQU~D. RETURN TO P~2 z872 ~1163 ~2s72l CONS3 LDB SIGN
~873 C1164 ~746l0 SZB GSIGQ SKIP IF NO SIGN GIVEN
~874 01165 16a206 SYE12 05M ERRA-I SIGN GIVFN WITMouT NU~BER
as7s-ds76~ GET THE SIGN OF A NUM9ER
~8?7-~878 ell66 ~61055 GSIGN JSM GNEXT
~879 ell67 a74742 S~R 16 es80 01170 ~10047 CPA ~43 "~"?
esel ~1171 874236 SI9 GSIGl~l YES
~882 ell72 OlO050 C~A ~4s ~-"?
ess3 ell73 C24132 LD8 Ml YES
~B84 01174 074210 GSIGl SZB GSIGR SKIP IF Nn SIGN GIVEN
C885 e117s G35470 StB L2Tl SAVE SIGN
~ C886. ell7~ 061055 JS~ GNEXT GET CHARACTER FOLLOWI~G SlfiN
eBs7 01177 C25470 LCB L2Tl RECALL SIGN
essB ~120~ 1704~2 GSI6R ~ET
~99-~890~ ~ULTIPLr 2 INTEGFRS rN ~A) ~ND ~) AND RFTURN
8892 QESULT IN ~A)S IF PQODUCT ~ 32K~ 0 0893 el201 031466 IMPY StA MC~ND SAVE MULTIPLIC~ND
~~94 ~1202 670742 SGQ 16 INITIALIZE PRoDucT
6~9s ~1203 074151 zMprl SLS *~3 SKIP IF MULTIPLtEQ 91T IS ZEQ
as96 G1204 00l466 AOA ~CAND ~Dn MULTIPLICANn TO PRODUCT
0~97 ~1205 071552 S~M IMPYR SKIP IF RFsuLT >32K
y900 e 12~17 ~ 75450 5~R I S4VF PRonuCT
~901 ~1211 ~214h6 LDA MC4Nn ~ULTIPLY
0902 01212 001466 ADA MCAND MULTIPLTCA~D
B904 1213 e71252 S~A MC4ND SKIP IF RESULT ~32K
~905 al215 ~21467 LDA PRoD PEC4LL PRODUCT
Z~l l 10'~
PAGE 0019 #01 B~SE PAGE ~OUTINES
eg06 el216 0652~3 J~P IMPYl 0907 el200 IMPYR EQU GSIGR
~9a8~
~90g~ EVALUATE FORMULA 4ND FETC~ ~ESULT TO AR2 0910~
~911 01217 16~201 FETCH JSM FOR~A-I EVALU~TE F~RMULA
~912 01220 160200 JSM OPCHA-I fiET ADDQFSS OF RESULT
e913 ~1221 ~45413 ISZ HSTPT
~914 el222 045413 ISZ ~STPT REMOVE FROM STAcK
~91S el223 074117 LGA a 0916 01224 064445 J~P XFbR2~1 TRANSFER TO AQ~
~917~
~91B~ SUOROUTINE TO LEAVE KEY DEFINITION MODE
e9ls~
~920 el225 02142Z LDEF LDA ~KPTP
~921 el226 070410 SZA *~B
eg22 el22~ 0214~5 ~OA P~UFO
4923 elZ30 031424 SlA PBUFF RESTORE P~UFF .
~924 el231 021426 LDA R~P~O
e925 C1232 ~31423 SIA P~pTR ~ESTOQE PBPTR
e926 el233 07e742 S~R 16 ag27 01234 e31422 SIA U~PTR CLEAR USEQ KEY FLAG
~92a ~1235 C31432 SIA ORosT CLEAR nATA REQUEST FLAG
~929 01236 170402 RET
~930 ~531~
~932*****~*~**~**~**~ *
~933' ~934~ MATH ROUTINES
~35 S936~
~937~ STnRE ROUTINES
es3s~
0939 ~-1237 E74117 STAR2 LDA B bDD THE FXPoNENT OF
a940 01240 e01744 ADA ARlF AR1 AND THE ~ REGI5T~R, e941 C1241 C5el63 A~D ZAP CLEAR OO~ ~ITS 1-7 A~D
~942 ~1242 e31754 STA ARZE STORE IN AR2 ~943~
0944 el243 874040 A~R 2 OFFSET THE TWO ABOVE
0945 ~1244 ~21744 LOA ARlE OuANTITIEs ANn RE-~DD
~946 e 1245 070040 AAR Z TO CHECK FOR A
o947 el246 074017 ADA B MAXIMUM E~PONENT
a94~ ~1247 e7~137 LD8 A SAVE THE SIGN OF THE EXPONENT
~949 el250 070113 SPP ~2 IF IT IS POSITIVE
0950 21251 070076 TcA COMPLEMENT IT
~951 Q1252 000164 AOA MASKl AOD A POsITIVE 10~ To IT
~952 el253 ~70312 5A~ OF SKIP IF AN OVERFLOW ~AS nCCURED
~953~
~ ~954 21254 025755 ZONK LDB AR2E ~1 e9s5 01255 076150 R20 ZONK 1 ~956 01256 ~20214 CLAQ2 LDA AR2A CLEAR AR2 ~957 ~1257 1700a~ CLR
~958 el260 17~40Z ~O~Kl ~ET
g6 ~961 ~1261 ~21754 OF t OA AR2E OTHERWISE SET UP BI~S 0 ANn 15 OF
24 ,j "~
~r - . . . _ 10~
PAGE Oe20 ~01 ~ASE PAGE ~OUTINES
0962 Z1262 070111 SLA ~2 FOR M~X OR MIN ANSWER
0963 91263 ~76e51 SL~ ~l S AND ITS SIGN
~964-~565 01264 074213 S~P OVF~
~966-d967 ~1265 160205 UNFW JSM AERRA,I
e96B e 1266 177633 DEC -101 ~969 01267 ~65256 J~P CLAR2 es70-0971 el270 G61274 OVFw JSM STM~X
0972 01271 1602fl5 JSM AEQQA,I
~973 01272 177634 DEC -100 ~974 01273 1704Q2 RET
a975-Og76 0l274 061256 STMAX JS~ CLAQ2 0977 el275 074352 S~u .OVER
~979 el276 ~45757 ISZ AR2E~3 ~980 el277 17040B CMY
~981 Q1300 020165 LDA MASKS
~982 el301 031754 S~A AR2E
09R3~ 01302 F74111 SLP ~ 2 ~984 e 1303 045754 ISZ AR2E
~985 01304 170402 .OVER REt ~986~
s987 01305 47Q742 ROUND S~R 16 CLEAR THE A REGIsTER AND
09~S el3~6 174470 URy PERFOQM A RIGHT SHTFT ~ TI~ES
~9~9 el307 000136 ADA ~5 IF THE LAsT SHIFT~D
~90 01310 070175 SEC ~3 C OUT DIGIT IS =>5 I~NCQEMENT THE
e991 01311 t20214 LDA AR2a ~932 01312 17P540 MDI MANTISS~
~993 01313 ltO4Q2 ~ET THEN RETURN
~994~
a995-~996~ **~**~*~ *
~997~
~99~-~999~
1000 ~1314 ltl400 ODGIT MLS
1001 ~1315 000052 ADA .4~
1002 ~1316 065016 J~P ONEXT
1004 el317 a7as37 SGNS LOB A I GET EXPO~ENT WORD
~0~5 0132a ~700~0 SIA ~~1 ,1006 ~1321 a7~51? LDA A I GET MANTISSA
1007 01322 070210 SZA ~4 C~ECK IF ~ANTISSA WAS ZERO
100S el~23 02P012 LOA .1 1009 01324 0?4111 SLB ~2 SKIp IF SIGN IS 0 1010 el325 e2P132 LDA Ml oTHERWIsE SET A - -1 1011 ~1326 a7~137 IDB A TRANSFER A INTO B
1012 8l327 170402 ~ET
1013~
1014 ~1330 031466 .NPWR STA LOCLl 1015 el331 e21450 LDA PMoDE
1016 el332 031702 S~A NpRIN
1017 81333 021466 LOA LOCLl 24'~
:
lOl~tJ~4~
PAGF 0e21 ~01 ~A5E PAGE RouTINEs 1018 el334 164167 JhP WRITE.I
la20 el335 3357OZ NPWRT Sl~ ~PRI~
1021 51336 164167 J~p ~RITE.I
1023 01337 d35701 NDWQT Sla NDISP
1024 01340 164167 Jhp ~ITE.I
1025~
1026 01341 160170 JSM CLERA.I
1027 ~1342 021450 CRLF LCA ~MoDE
1028 01343 ~72450 R2A CRl 1029 91344 42P031 CRLFl L~A CRTN
1030 el345 ~61353 JS~ TTY OUTPUT CRTN
1031 Q1346 07a74Z S~R 16 1032 01347 160261 JSM IOSTA.I STOP KEY?
1033 el359 e2a040 LD~ ~31 YES- SET CPLF SUPRESSE~ FLAG
IQ34 el351 0316Z2 S~A TERM
1035 el352 020061 L~A LNFD OUTPUT LINE FEEn 1036~
1037~ GENERAL DRTVER
1~38~
1039 el353 16~261 TTY JSM IOSTA,I STOP KEY?
1040 el354 17fl4~2 CRl RET YLS
la41 91355 ~41447 IOR SLCO~
1043 ~1357 172141 OTA 1 1044 91360 1736~1 S~C l~C
lU45 ~1361 170402 RET
1~46~ .
104?~ CONVERT F~OM LOWER CASE
104B~
1049 ~1362 051041 GTCON JSM GETcH
1050 el363 070137 LCB A
1~51 el364 e5~1~3 a~D ~140 1052 al365 el01e3 C~A ~140 1053 01366 ~04151 A~B M32 1054 ~1367 t~74117 LOA
lQ55 9137~ 17e4a2 RET
1056~
1057~ TEMPl IS POINTI~G AT AD~RESS oF THE VARIABLF JN SYMOBL TABLE
lU58* ON RETURN ~A) = TYPE CODE
1059* tB) = ADDRESS
1060~
1061 al371 C25474 FIX L~B TEMPl lU62 ~1372 074517 LDA B-I
1063 el373 ~5~040 A~D B37 1064 01374 004132 ADB Ml 1065 ~1375 ~74537 LOB B-l 1066 el376 170402 RET
1057~
1068~*~**~****~***~*s****~**a~sss***~s**~**~****
1 ~6g~
1070 el377 60a000 BSS 1 CHEC~S(JM WoRD FOR 4DD.~S 100tA TO 1377 1071~
1072~'**~**~*~*g****~************************,,.*
1073~
2'1 ' .
10~6ti~/~
PAGE OQ22 ~01 9830--BASE PAGE REA~-~RITE ~EMORr 1075 el400 ~ O~G 1400~
1076 Q1400 000000 BADDR ass 1 0URRENT CHAR PoINTER
1077 al401 02Q0a0 RSAVE BS5 1 SAVE (~) IN REtN2 la7B el402 G~a000 OTPTR ~SS 1 REF~ES~ PoINTFR
1079 01403 ~000a~ ~AW BSS 1 LAsT WORD Of R/W MEM
1080 el404 o00~e0 L~AM BSS 1 LAST WORD AVAILABLE FOR ~SFR
1081 ~1405 Gaa000 FWUP BSS 1 FIRST WOQD OF COMMO~ OR M~INLINE
1082 C1406 Q000e0 VALUE BSS 1 FIRST WO~D -1 OF VALlJE TA~LE
1083 01407 O00000 SYMTP BSS 1 FIRST WOR~ -1 oF sr~oL TABLE
1084 ~1410 00a000 LSTA~ BSS 1 FIRST ~OQD OF OpERAToR STACK
10g5 01411 4a0000 TSTPT BSS 1 TEMPO~ARY STACK PoINTER
1096' 81412 e00000 LSTPT BSS 1 OPERATOR STACK PoINTER
1087 el413 G000a0 HSTPT 855 1 OPEQAND STACK POINTER
1~8B ~1414 e0Q0Q0 DSTPT ~SS 1 ~ATA STATE~ENT
1089 tl415 ~a0~00 NXTDT BSS 1 POI~TERS
1090 el416 ~000~0 M0DE ~SS 1 PROGRAM=0: KEYBOARD=I
1091 ~1417 9C0~00 PAR~A ~SS 1 P~RAMETEU ADDRESS
1092 el420 80 W90 PARMN BSS 1 PAQAMETER NAME
10~3 01421 aoa0D0 PRAD~ ~SS 1 LAST WORD~l OF CURRENT ST~T
1094 01422 00~0fl0 UKPTR BSS 1 USER KEY POINTER
1095 Q1423 O000~0 PBPTR BSS 1 LAST WORD OF CuRRENT PROGQAM
1096 01424 o0aa00 PBUFf BSS 1 FIRST wORn OF CURRENT PROGRAM
1097 01425 ~000~0 PBUfO BSS 1 FIRST ~ORD OF ~AINLINE
la~B el426 O00aB0 PBPTO BSS 1 LAST WORD~l OF MAINLINE
10g9 01427 ~a0000 .LNUM BSS 1 CURRENT LINE NuMBER
1100 01430 ~a000 LNI~C BSS 1 auTO LINE I~CQE~ENT
2101 01431 O0Q000 CLINE BSS 1 CURQENT LINE FoR LIST
ilO2 Q1432 000000 DRQST BS5 1 INP~T ST~T FLAG
1103 01433 o0P0e0 TFLAG Bss 1 PTAPE FLAG
1104 el434 oa0~00 UNITS BSS 1 TRIG UNITs 1105 el435 0~40~0 SEC BSS 1 SECURE PQOGRA~ FLAG
L106 01436 a0G0P0 HFLGI BSS 2 STOP ADDREssEs 1107 el440 c00~a0 TFLfil BSS 2 TQACE LI~IT AnnREssEs 1108 01442 ~O0000 STPFL ~SS 1 ~TnP fLAG
1109 el443 G00Q00 KEYFG BSS 1 ~FYBOARD FLAG
1110 ~1444 ~00000 SAVEA BS5 1 INTERQupT
1 l l l e 1445 ~300Q0 SAVE~ ~SS 1 1112 ~1446 O00000 ~DRSS 8SS 1 TEMPOQARIES
1113 ~1447 eoQ00o SLCOD ~SS 1 SELECT CODE
1114 Q1450 a0a0~0 PMODE BSS 1 CQINT-ALL FLAG
1115 01451 c000a0 CTYPE ~SS 1 KErBOAQD -1116 el452 0000~B CPLAC BSS 1 FORMAT FLAGS
1117 01453 ca0000 PQFLG ~SS 1 PRINT~DISP FLAG
1118 el454 800000 RCOUt BSS 1 FORMAt 1119 01455 P0Q000 FORMT ~SS 1 1120 ~1456 ~0QO00 FOR~S BSS 1 1121 C1457 OQ0000 FOQME BSS 1 5T~tEMENT FLAGS
Ll22 01460 00~000 FTMPl ass 1 CURQENT OPER~TOP CODE
1123 01461 O00~00 FTMP2 HSS 1 CUQRENT OPERATOR PREcEDEN~E
1124 01462 a000ae REEDL ~SS 1 KEYPOARD DRIvER LINK
1125 0l463 a00000 INTEL hSS 1 INTEQRUPT LINK
1126 01464 P0a~a0 ~ss 2 UNUSED
1128~ TEMPORAQIES
1129~
1130 01466 ~0~0~0 LOCLI ~S5 1 2 ~
10 ~t;6~4 PAGE 002~ *01 9830--B~SE PAGE PEAO-WRITE ME~ORY
1131 51467 eaP~0~ LOCL2 ~SS 1 1132 D1470 ~00~g0 L2TI BSS 1 1133 01471 ~0e~0Y L2T2 ~SS 1 11~4 01472 ~00a~0 TE~PS ass 1 1135 el473 0~00C0 TEMP BSS 1 1136 el473 M~OXl EQU TEMP
~137 el474 000000 TEMPl ~SS 1 1138 ~1475 ~00000 TE~P2 ~SS 1 1139 el476 a00000 TEMP3 ~SS 1 1140 ~1477 00~0~0 TEMP4 BSS 1 1141~
1142~ BUFfERS
1143~
1144 O1500 ~00~Q0 IO~UF ffSS 41 INPUT AN~ REcALL BUFfEQ
1145 elS51 O00000 PPUFF ~SS 41 SI~GLE LINE REFREsH RUfFER
1146~
1147~ PRINT ROUTINE FLAGS
~149 el622 000000 TERM ~SS 1 CRLF FLA6 1150 B1623 O0Q000 PEND BS5 1 RUFFEQ OvERFLOw FLAG
llSl 01624 000000 PPFF qSS 1 9UFFER PolNTER OR TA~ ELAG
1153 el62~ a0~a~ ~SS 2 U~USED
1154~
1155~ ~T~ TEMPORARIES
~156~
1157 01630 ~000~Q TQE0E 8SS 4 1158 gl634 e00000 QSLTE ass 4 115g~
1160~ STATEMENT SYNTAX AND E~ECUTION TE~POQARIES
1161~
1162 el64~ ~0~0~e ST ~SS 32 1163~
1164~ SYSTEM Sy~tAx ~ND EXECUTION TEMPORARIES
1165~
1166 01700 ~00000 ~55 1 5~VED FOR PRocEssoR
1167 017~1 fla~e NOJSP ~SS 1 1168 el702 B000~ NPRIN ~SS 1 1169 91703 000000 PLACE ~SS 1 1170 el704 0000e0 ~IOTH HSS 1 1171 P1705 000~0~ FLOAT ~SS 1 11~2 ~17~6 a0a00~ S~PTR ~55 1 1173 ~170? ~0~ee0 ~LANK RSS 1 1174 0171~ ~00e00 MSFLG BSS 1 1175 ~1711 000000 DFLAG ~SS 1 ~176 e 1712 00~000 PFLAG ~SS 1 1177 el713 QO00Q0 UFLAG ~SS 1 1178 P1714 ~000~ SfLAG ~SS 1 11?9 01715 e0~a00 S~DR HSS 1 lla~ ~1715 ~0a090 SSBPT ~SS 1 1191 0171~ e00000 NUM t~SS 1 11~2 01717 OPTYP FQU NUM
1183 ~1720 ~a009 LASTN flSS 1 1184 01721 ~QO000 SIGN BSS 1 lleS el721 MAXIN ECU SIGN
1186 01722 o000a0 EXP BS5 1 24a;
lO'~b~
PAGE OQ24 ~01 9R30--BASE PAGE QE~-wRlTE ME~OQY
1187 01722 INtG~ EOU EXP
1188 C1723 0000~0 ARYAD BSS 1 1189 ~1724 O00000 GFLAG BSS 1 1190 01725 ~00000 NXTST YSS 1 1191 ~1726 ~00000 ~INl BSS 1 1192 el727 00009e MBIN2 BS5 1 1194- A~ITHMETIC QEGISTE~S AND QETUQN STACK
1196 el740 0~G 1740 1197 el740 oa0000 XC ~SS 4 1198 ~1744 ~00000 ARl BSS 4 1199 0175~ o~a0 YC ~SS 4 1200 ~1754 e00000 AR2 BSS 4 1201 el760 ~000e0 RSTAK BSS 11 RETURN STACK
1202 el773 ~000Q0 RES BSS 4 RESULt REGISTER
1203 ~1777 8000e0 RSPTR BSS 1 REtURN ST~CK PoINTER
~ ~r~
~ --10'~
PAGE 0a25 #01 EQUATES
1205 el466 ~CAND EQU LOCLl 1206 e1467 PROD EGU LOCL2 1207 ~1744 ARlE ECU ARl 129~ ~1754 AQ2E FQU AR2 1209 01730 CO~L ECU ~BIN2~1 1210 el731 TYPE EOU M~IN2~2 1211 C1640 TEPPP ~au St 1212 01641 SPRDD EGU ST~l 1213 01642 SAVE EQU S~2 1214 el453 AQW EOU PRFLG
1215 tl740 tMP EQU ~C
1216 ~1741 TMPl EQU XC~l 1217 01742 tMP2 EQU XC~2 1218 0174~ tMP3 EGU XC~3 1219 0175Q tMP4 EQU YC
1220 0l75l t~P5 EGU YC~l 1221 el706 TMP5 ~OU S~PTP
1222 el752 TMP6A EQU YC-2 1223 01460 TMP7 EGU FTMPl 1224 21474 tMP9 EGU TEMPS~2 1225 01475 TMPl~ EQU TEMP5~3 1226 el476 TMPll EQU TE~PS~4 1227 el477 TMP12 EQU TEMps~s 1230 ~1704 ~KPt~ EQU ~IDT~
1231 Ql?41 R EQU TMPl 1232 e 1742 L ECU TMP2 1233 01751 DIGIt ECU T~P5 1234 01743 INDEX EGU T~P3 1235 ~1750 R~ASE EGU TMP4 1237~ ' 12~ e004~ PLUS ECU ~43 1239 e0aS0 MINUS EOU ~45 1240 00051 POINT EQU ~46 1241 ea052 ~6~ EOU .4A
1242 e0053 COLON EQU .58 1243 e0a77 DOLA~ EOU 344 1244 00116 ~2~ EOU QToP
1245 eo004 XECA ECU ~10K
2'~
PAGE 0~26 ~1 KEY~OARD EN~RY AND nISPLAY
1248~
1249~ REED SU~R0UTINE
1250~
1251~ ENtRY CONDItIONS: NONE
1253- EXIT CONDITIONS:
1255- AN INPUT RECORD IS IN THE I~O
1256~ BUFFEQ. tllE LAST CHAR IS AN EOL-1258~
1259~ IF A ~ELETE LINE IS HIT
1260- PETUQ~ TO P~l- oT~EQwIsE
1261- RETUR~ tO P~2.
1263~
1264 02000 ORG 2000~7 1267 e2000 ~20236 REEDl LDA SLEND
1268 52001 031623 StA PE~D
1269 g2002 620062 LOA FLC-7R7T
1270 02003 e31416 S~A MO~E SET TO PQOGRAM SYNTAX
1271 02004 ~21433 LOA TFLAG
1272 a2005 ~7Q110 52A ~2 PTADE COMUAND?
1273 02006 96~6 7 Jhp PREED
1274 B2007 031473 S~A CCNT
lZ75 ~2910 93l704 SIA ~7KPTR
1276- G~T fIRST KEY
lZ77 02011 ~63046 REEDE JsM CALLK GE~ FIR5T KEY
l278~2Q1 2 966~11 J~P *-1 12a0e2014 P6f7223 J~P DELl 12~71e201s g25430 LDB LN I NC
12B2e20l6 ole074 CPA B22 F7'ACt~SPACE?
lZB3C2017 a74112 S~M REE YES ~ SK I P I F L I sr I NPUT
e74e2Q20 ~66032 J~P REED7 e21 0ss400 RFE ~sz ~7ADDQ ~ES- ~7ACKUP POINTEQ
12B6e2022 It45623 ISZ PE~D
1287e2023 a20041 LDA ~32 l2e7802024 ~61016 J5M ONEXt 12890202s 055400 DSZ t~ADDQ W1~7E OUT LAz'~-t .29002026 0ss623 ~sz PEND REStoRE E~D OF ~U~FER POINTFR
292e2030 ~31430 StA LNINC GEt our OF AUTO
29302~31 ~66~745 J~p RE~n~7 1294 ~2a32 a62s33 REED7 JSM CLE~R CLEAQ T~E DISPLAY
1295 Q2a33 ~21430 LDA LNINC
1296 02~34 970153 SAp REEn4 LIST WAS LAST~7 1297 02035 ~7a742 S~R 16 129B e2a36 ~31430 S~A LNINC 0ET OUT OF AUTO
1299 02037 07021e REED4 S2A REE~6-? AUTO LI~F.?
130002040 0Z5427 LOp .LNU~ YES OUTPUT
1301c2a4l 160210 J5~ OUrlA~I
1302o2042 04s400 ISZ ~ADD~ oUTPuT A P~LANK
130302043 ~21751 LOA T~p5 2~ '~
.
~O'~ti6~
PAGE 0e27 #~1 ~EYBOARD ENTRY AND OISPLAy 1304 e2044 ~66047 J~p REEDG
1305~ GET NEXT KEY
1306 e2045 ~63046 REED6 JSM CALLK GET NEXT ~Er 13e7 e2046 a66045 J~P ~-1 13Q8 e2047 alOO74 REEDG CPA B22 BbCKSPACF?
~309 82QSC 066707 O~P BKSP
1310 02051 ~10075 CPA B23 FOQWARD?
1311 02~52 ~66725 0~p FOR~n YES
1312 e2053 ~12436 CPA B152 CLEAQ?
1313 02054 ~67665 J~P ECLP YES
1314 ~2055 OlgO27 CFA ~11 EXECUTE KEY?
1315 c2a56 045416 ISZ MoDE YES
1316 e2057 0501~3 AN~ MSK65 1317 e2060 ~72510 R2A REED2 BITS 5~6=0?
131B ~2061 021751 LDA TMPS YES
1319 e2~62 O0al41 ADA Ml0 1320 e2063 ~70413 SAp REED2~1 ~EF KEY?
1322 Q2~65 074210 SZ~ ~4 1323 C2C66 C2'751 LDA TMP5 1324 e24~67 S4~101 IOR ~100 SET S~IFT 4IT FOR DEF-KEYS.
1325 ~2070 031751 STA T~PS
1326 e2071 067131 JMp KEYPR
1327 e2072 Olal~3 REED2 CPA MSK65 8ITS 5~6=1?
1328 C2073 ~66103 . J~P REEo3 YES
1329 02~74 ~21706 LDA TMP6 NO
1330 e2Q75 07~610 SZA REEDs S~IFTED?
1331 e2~76 ~21751 LDA THPS
1332 a2~77 ~6e752 JSM LETCK YES. LOWFQ CASE LETTEQ?
133-~ e2100 066103 J~P REEn3 ~O
1334 021C1 440041 IOR .32 CONVERt CODE
1335 e2142 ~66110 J~P REED
1337 e2104 ~63071 JS~ T~SQl CODE IN VALUE TABLE?
1335 42105 066124 J~P REEDn NO
1339 e21a6 010022 CFA .5 ENTEQ EXPO~ENT?
1340 a2107 ~a41Cl ADA ~100 YES- FOQM ~SCII E
1341 e211~ 0317Sl S~A TMPS
1342~
1343~ ALL CO~VERSIONS COMPLETE
1344 e2111 021751 PEEn5 LDA TMPS
1345 t2112 ~10031 CFA CRT~
1346 C2113 666172 J~p EOLL EXECUTE OQ STORE
1347 ~2114 ~257~4 LOB BKPTQ
1348 e2115 ~74210 52D REEDs CURS
1349 e2116 027122 LD~ ~KPT4 YES
1350 0211? 061017 J5M OUtCR REPL4CE CHARACTFR
1351 e2120 06673B Jhp FORW0~3 SCROLL IF NECES5AQr 1352 e2121 ~61C16 REED9 J5u O~EX~ PUT CHAR aT END OF LTNE
1353 ~2122 962737 JSM LEFT SCROLL IF NECESSARY
1354 e2123 a66045 J~P REED6 133556 e2124 2h373 REEDD LOEI EXPTq SEARCH F~R MuLTI-cH4Q KEY
1358 e 2126 666213 JMP REED~ ~~
1359 62127 631751 StA TMPS
?~j() 10'~64~
PAGE 0e28 ~01 KEYBOARD EN~RY AN~ ~ISPL~Y
\
1360 e2130 062521 JS~ CLRST CLEAR FLAG IF "STOP"
1361 ~2131 062533 JSM CLEAQ
1362 ~2132 026443 LD~ COMT4 1363 e2133 ~21751 LOA TMP5 1364 02134 162441 JSM MOUT~I OUTPUT FPOM SYSTEM CO~MAND TABLE
1365 22135 e66045 JMp REED6 1366 ~2136 ~62533 PRALL JSM CLEAQ CLEAR BUFFER
1367 ~2137 ~21450 LDA PMO~E
136B e2140 07el30 SIA ~2 1369 e2141 070742 SAR 16 1370 02142 a31450 StA PMODE
1371 92143 02'444 LDB OFF~ GET ~DDRFSS Of "OFF"
1372 ~2144 ~72110 R2A ~2 O~?
1373 ~2145 ~0402fl ADB .3 YES. GET ADDRESS OF "ON "
1374 e2146 020020 LOA ~3 1375 e2147 S61335 JSM NPWQt 13t6 0215a ~66QIl J~P REEnE GET FIRST KEY AGAIN
1377~
137B' STEP AND CONT EXECUIION
1380 e2151 031442 STEP STA STPFL SET POSITIVE NO~-ZEQO
1381 e2152 070742 SAR 16 1382 e2153 ~25421 CONT LDB PRADD
~3B3 e2154 074273 SBP CO~Tl.C HAS AN EDIT OCCURQEO?
1384 e2155 072110 RZA CO~TK YES- LINE ~ GIVE~?
13~5 Q2156 ~74517 LDA ~-1 NO. EXECUTE FRO~ BE0IN~ING
1386 e2157 631725 CONTK SIA ~XTST YES- EXECUTE FROM 8EGINNING
1387. e2160 1640~4 JMP XEC~.I
13~8 02161 ~7~250 CONTl 52A ~S LINE ~ GIVEN~
1389 e2162 061075 JS~ F~DPS YES~ FIND ADDRESS
1390 02163 164174 JMP RDyDA, 1391 e2164 ~6~165 J~P 4-1 1392 e2165 D35421 S13 PRADD StORE AD~QESS
1393 e2166 662533 JSM CLEAQ
1394 ~2167 ~31416 StA MODE SET TO PRoGRAM EXECUTION
1395 e2170 B25421 LD9 PRADD
1396 02171 164255 JMP ~EC6A.I CON~INUE EXECUTIO~
1397~
1398~ ~Q~CESS EXEC OQ STOQE
1399 ~21t2 ~45623 EOLL ISZ PEND GUAR~NTEE ~OOM FOR EOL
1400 e2173 061~16 JSM O~EXT
1401 e2174 a24233 LOB aE~D
1402 e2175 035477 STB TEMP4 1404 02177 ~35476 StD TE~P3 1405 ~2200 004046 GDB ~41 1406 ~2201 661122 JSM MVtOH~l MOVE INPUT RECoQD tO I/O ~UFF
1407 e2202 060373 JS~ IC~T
1408 02203 ~0~132 ADA ~1 1409 02204 07~250 S2A REEDt SKIP IF NULL REcoQD
1410 e2205 ~2545e LDB PMODE
1411 022~6 ~76150 R~ REEDt 1412 e2207 ~24211 LCO .BUF~
1413 62210 061337 JSM ND~QT
1414 ~2211 F62502 REE~T JSU CQC
1415 C2212 ~64357 Jhp ~ETN2 2~i 10 ~644 PAGE Qe29 ~01 KEY~04QD E~IRY 4ND ~ISPLAy 1416~
1417 02213 013124 REEn8 CPA B33 DIVIDE?
1418 e2214 ~22437 LDA ~57 rES. GET ~5CII
1419 02215 ~26361 LDB EDlt2 1420 e2216 663072 JSM TBSRH CODE IN E~IT T4BLE?
1421 02217 ~66110 J~P REE~5-1 NO
1422 92220 ~440 ~A BE~
1423 e2221 ~7a737 JMp A I
1424~
1426 ~2222 170402 DEL2 RET
1427 02223 ~21430 DELl LDA LNINC
1428 e2224 071713 SAP DEL2 1430 e2226 130233 SIA SBUFA I
1431 02227 070742 S~R 16 1432 02230 ~3143Q STA LNINC
1433 e2231 164204 J~P DELS~I
1434~
1435~ RECALL
1436~
1437 e2232 ~62533 EREC JS~ CLEAR
1438 ~2233 ~55473 DS2 CCNT SET PEcALL FLAG
1439 e2234 024211 LDfl BUF4 1440 02235 ~35740 RSLTI Sl~ TMP . GET ST4QTING bDDRESS OF IO BUFF
1441 C2236 ~66a45 J~P REED6 1443- I~ITIALTZE V~RIA~LES
1444~
1445 e2237 020056 I~'ITV LDA .lE4 1446 e2240 164171 JMP R~A,t RUN 100~0 144t~ QESUL~ KEY
1448 0224l 020101 RSLT LDA ~10a CODE FOR
1449 e2242 ~25706 LO~ TM~6 1450 ~2243 074110 S2B ~2 SHIFTED?
1451 e2244 J66110 J~,P REE05-1 YES
1452 02245 026445 LO~ RES4 1453 Q2246 ~20020 RFNXl LGA .3 1454 02247 S31473 STA CCNT COUNT=3 1455 ~2250 ~66235 J~p RSLtl 1457~
145a 02251 666136 P~L J~P PR~LL
1459 ~2252 666151 StPL J~,P ST~P
2~,' 10 ~ti644 PAGE 0~30 #~1 KEYBOARn ENTRY A~n OIsPLAy 1461~
1462~ FETCH EXECUTION
1463~
1464 e2253 000132 EFET ADA M1 1465 e2254 031431 SlA CLINE
1466~
1467- ThIS ROUTINE LIsTs ONE LINE
1468~ Of T~E PROGRAM, ThE FIRST
1469~ LI~JE TO 9E LISTED IS THE FIRST
1470~ LINE OF THE PRoBRAM.
1472~
1473 e2255 062353 DNARW JSM SAROW CHECK FOR NULL PROGRAM
1474 02256 ~74310 S2B ~4 SKIP IF TY~ING AID KEY
1475 e2257 ~70079 SIA ~1 1476 e2260 0610?5 J5~ FNDPS fIND LINE
1477 e2261 066277 JMp U3 P~ST END oF PRoGRAM
1478 02262 066301 Jhp U5-1 BET~EEN LINEs 1479 e2263 0663~1 JMp U5-1 l4e0-1481~ T~IS ROUTINE LIsTs ONE LINE
1482~ OF t~E PROGRAM. ThE FIRST LINE
1493~ TO BE LISTED IS ThE LASt ~INE
1484~ OF T~E PROGQa~.
1487 C2264 ~Z1424 U4 LDA PBUFf GET FIRST LINE
1488 e2~65 ~663~2 J~p US
14B9 e2265 ~6Z353 UPARW JSU SAR0W CHECK fOR NULL PROG
- 1490 ~2267 ~75650 52B U4 SKIP IF TYPING AID
1491 02270 ~72110 RZA u1 CLINE =0?
1492 C2271 62~056 LDA . lE4 YES- FINn LAST LI~JE OF PQOG
1493 e2212 061a?5 U1 JSM FNDPS FI~D LI~E
1494 02273 066277 JMP U3 PAST END oF PRoG
1495 e22?4 S66275 J~p 4~1 qETWEEN LINEs 1496 ~2275 ~15424 CPB P3UFF FIRST LINF?
1497 e2276 a66301 JMP uS-1 YES
1498 e2~?7 ~21720 U3 LDA LASTN GET PREVTO~S LI~E
1499 e2300 ~60742 JSM FND
1500 02301 ~74117 LOA 9 GET ADDRFSS IN ~A) 1501 ~2302 074742 US 59R 16 1502 02303 ~35453 STB ARW FLAG LIST ~ouTINE
1503 02304 635460 SlB TMP?
1504 02305 167120 JMp LISTQ I
15oS~
1506~ T~SERT ~Nn DELETE ChAQActER
1507~
1508 e 2306 066045 J~P REED6 1509 02307 0257a4 INSRT LDB 9KPTR
1510 02310 ~75710 S29 INSRT-1 ANY BAcKspAcE YFT?
1511 02311 625409 LD9 ~ADDR
1512 e2312 021706 LDA T~P6 1514~ DELETE S2A INS0 SHIFT FLAG SET?
1516 2315 ~25704 LD9 hKPTR YES. DINC END OF LINE POI~TER
25'3 10'~ 4-~
PAGE Oe~l ~01 KEYBOARD EN~RY AND OISPL~y 1517 e2316 ~35740 SIB TMp SET ~OINTE~ TO CURSOQ CH~RACTEQ
151B ~2317 ~25740 DELCl LCB TMP
1519 02320 0154a0 CPB ~ADDR LASt CHAR~
1520 02321 ~66347 JMp INS2~1 YES- OUTPUT A BLANK
1.521 t2322 ~45740 ISZ TMP
1522 22323 ~61053 USM ~tMP GET CHARACTEQ
1523 02324 ~55740 GSZ TMP
1524 e2325 ~55740 DSZ TMP
1525 e2326 ~24111 LDB TMPA STORE SHIFTED LEFT O~E
1526 e2327 ~61017 JSM OUTCR
1527 ~2330 ~66317 JMP ~ELCl 1528~ INSERT
1529 e2331 B14236 INS0 CPB S~END
1530 ~2332 ~66045 JMp REED6 LINF FuLL
1531 02333 004132 AD9 Ml 1532 ~2334 ~35740 INSl S~ TMP
1533 e2335 ~61053 JS~ GTMP GET C~ARACTER
1535 e2337 OlS704 CPB hKPTR ~T CuQsoR PosITloN?
1536 02340 466346 J~P INS2 YES
1537 92341 ~24111 LD8 TMP~ NO, MOVE R~G~T 1 PLACE
1538 e2342 661017 JSM OUTCR
1539 e2343 e2s740 LDB T~P
1540 C2344 004134 A~a ~3 BAC~ UP PoINTER TO hEXT
1541 02345 066334 JMP INSl C~AR LEFT
1542 e2346 645400 INS2 ISZ ~ADnQ UPD~TE END OF LINF POINTER
1543 e2347 62004} LDA ~32 1544 ~2350 a24111 LD~ T~P~
1545 02351 n61~17 ~SM OUTCR INSEQT A ~LANK
1546 e23s2 666045 JMp REED~
154B- SUBROUTIN,E FOR UP A~D DowN ~RROW ROUTINE5 1550 C2353 021424 S~ROW LDA PBUfF
1552 62355 164174 J~p RDYD~I NULL PROG~M ABORT
1553 e2356 ~21431 LOA CLI~~
1554 e2357 125424 LDB PBUfF, 1555 62?160 170402 R~T
6~
PAGE 0632 #01 KEY~OARD E~RY A~n ~IsPLay 1557~
1558~ T~IS SECTION CoNT~INs TABLES
1559- POINTERS USED I~ IHE b~OVE ROUTINE
1561~
~562{
1564 ~2361 ~04744 ~DIT2 DEF ~ 2 1565 e2362 012643 DEf 12600R-EE~UPARW
1566 e2363 012232 ~EF 12200~-EEB~D~ARW
1567 e2364 ~15214 DEF 15200B-EEB~INITV
1568 ~2365 065616 DEF ~s6Q0~-EEB~RsLT
1569 e2366 C06627 DEF 6600~-EE~STPL
1570 Q2367 017664 DEF 17600q-EEB~INsRT
1571 ~237a 07160~ DEF 7160~9-EEB~DELI
1572 02371 a70226 DEF 702e0a-EEB~pAL
1573 e2372 ~103Q7 D~F 103009-EEB~EREc 1574 02223 EEB EO~ DELl 1577' EXPA~DI~G DEY TABLE
1578~
15A0 52373 004770 EXPt~ DEF ~ 2 1581 e2374 ~P76el ~CT 7~el R~l~
1582 e2375 ~14600 OCt 14600 STORE
1553 e2376 ~1422~ OCT 142Z0 LO4D
1584 e2377 0172e7 OCT 17207 ~9R~AL
1585 ~24a~ 006212 OCT 6212 CONtINUE
15~6 ~24al ~07226 OCT 7Z26 T~ACE
1587 624a2 ~77637 OCT 77637 STOP
158B 02403 ~17216 OCT 1721fi ~oRMAL
1539 e2404 al0604 OCT 1~6a4 FETC~
1590 62405 072214 OCT 72214 ~IXE~
1591 e2406 ~72615 OCT 72615 FLOAT
1592' 32407 ~05Z03 OCt 5203 LIST
1593 22410 Q732e2 OCT 73202 SCRATCH
1594 e2411 0737~5 OCT 73705 ~UTO
1597~ KEY V~LUE tABLE
1599 ~2412 OZS026 VALUP DEF ~ 2 1600 02413 ~05615 OCt 5615 FOL
1601 O2414 ~71215 OCt 71215 STORE
160Z ~241S 020240 OCT 2~40 ~L~NK
1603 ~2416 ~3a641 nCT 30641 1604 e2417 032244 OCT 32244 1605 ~2420 03~645 OCt 32645 1606 02421 ~676~5 OCt 67605 1607 O2422 ~31643 OCT 31643 #
160~ 02424 ~33246 OCT 33246 1610 e2425 e33647 OCT 33647 1611 e2426 034250 OCT 34250 1612 82427 e34651 OCT 34651 25~) :~OL~t;6~4 PAGE ae33 ~01 KEYRO~RD ENTRY AND BIsPLAy 1613 e243a OZ7677 OCT z7677 ?
1614 e2431 ~26274 OCT 26274 <
1615 t2432 027276 OCT 27Z76 >
1616 e2433 435252 OCT 35252 4 1617 O2434 ~35653 OCT 35653 1618 e2435 e30355 OCT 3~1355 1621~
1622 Oal03 MS~65 ECU 3140 1623 ~2436 ~00152 ~152 OCT 152 1624 Q2437 600057 B57 OCt 57 1625 e2440 ~02223 ~EEB DEF EE~
1626 e2441 ~06326 ~OUTA ~EF MCOUT
1627 e2442 0034~2 ~PtR DEf R~uFF~RBuFF~48 1628 02443 oa7062 CO~TA DEf L~Ll~L9L1~0 1629 02444 e05117 OFF~ DEf ~*~7 1630 ~2445 905114 ~ESA ~EF ~ 2 1631 e2446 051105 ASC 4.QESnFFON
e244~ 051517 92450 ~43106 e2451 ~47516 632 02452 02a04e~ TOBLN OCT 20~4 1634~
1635 a2453 o~00a0 ~SS 1 ***** CHEcKsu~***~*
~C;' ~ t~
PAGE 0~34 #01 KEYBOARD E~TRY AND DISPLAy 1637~ WRI~E SUBROUTINE
1639~ ENTRY CONDITIONS
1641~ (A)=CHAQACTER COU~T
1642- (~)=POI~TER TO FI*ST CHAQ
1643~ NPQIN~ FOR PRINT ABO~T
1644~ N~ISP#0 PQI~T O~LY
1647 82454 07a410 WRIT SZA RIT3L SKIP IF NULL COUNT
1648 02455 ~31741 STA TMPl 1649 22456 ~35740 ST~ TMP INITIALIZE PoINTER
1650 e2457 861053 RITEl JSM GT~P GET CHARACTER
1651 0246~ ~10027 C0A .11 EXECUTE?
1652 e2461 ~20100 LDA BS2 YES CHA~IGE TO * FOR KEY
1653 e2462 025701 LD~ ~OISP
1654 22463 010~31 CPA CRTN CRTN CHAR~CTEQ?
1655 ~2464 C66476 RIT3L JMp RITE3 YESt ABORT
1656 e24fiS ~t631~ RZB RITE2-1 DISPLAY ~ISABLED?
1657 024~6 ~70150 SZA RITE4 NO NULL~
1658 e2467 661016 JSM JNEXT OUTPUT TO DIspLAy 3UfFER
1659' ~247e ~21467 LDA LOCL2 QECALL C~ARAC~EQ
1660 a2471 S25702 RITE4 LD9 NPRI~
1661 e2472 ~76110 ~ZB RITE2 PRINT DIS~BLED?
1662 e24?3 ~61353 JSM TTY hO. PQINT CHAR
1663 02474 ~55741 RITE2 DS2 TMPl MORE CHARAcTERs?
1664 e2475 ~66457 U~P RITEI YES
1665 62476 ~7~742 RJTE3 SAR 16 RESET fLAGS
1666t2477 031702 STA NPRIN
166742500 ~31701 S~A NDISP
1668~2591 17~402 RETA RE~
1669~
1671025~3 074350 SZB CQCl PRINT ALL?
1672 e2504 625450 CRCHK LDB Q~ODE
1673~2505 e74150 5Z9 CRC2 PRI~T ALL?
1674Q2506 ~25453 LDB PRFLG
167592sa7 C74352 S~ CTERM
1676~2510 8Z5622 CQC2 LDB TERM
1677~2511 a75410 SZ~ RETA
167802512 172700 CQCI SFC ~ WAIT UNTIL "STOP~ KEY
1679~2513 066512 ~P ~ S QELFASED
1680e2514 G62521 0SM CLRST CLEAR ''STOP~ FL~G
16Sle2515 e61344 JSM CQL~I
1682~
1683 02516 ~74742 CTEQM 53R 16 1684 02517 035~22 STB TER~
1685 ~2520 1734a2 RET
1687 82521 P25442 CLRST LO~ STPFL
16a8e2522 ~14040 CRB 31 SET FROM KEYBOARD?
16892523 866525 J P ~2 YES. CLEAQ IT
1691e2525 ~74742 S~ 16 1692e2526 635442 SIB STPFL
25', ~o'~
PAGE 0e35 ~01 KEYBOARD ENIRY AND ~IsPL~i 1693 e2521 e35433 STg TFLAG
1694 e253a 17~402 REt 1696~
1697 02531 027117 GTMPZ LOB T~P2A
1698 02532 065e41 J~p GETC~
1700~
1701~ THIS SUBROUTI~E CLE~Rs t~E DISPLAr 17~2-1703 02533 C70742 CLEAR S~R 16 1704 e2534 ~31704 SIA B~PTR
1705 e2535 ~2~212 LDA .SLPF
1707 e2537 4314C0 STA B4~0Q
1708 ~2540 ~31625 STA PIRSt 1709 02541 ~24233 LDB BENn 1710 e2542 022452 LDA ToBLN
1711 e2543 674557 CLE1 STA B-I
1712 ~2544 ~17123 CP8 E~DW
1713 e2545 ~66476 J~P RIT~3 1714 22546 C77670 ~I~ CLE1 NO
1715~
1716~ I~Q STATU5 CHEC~ ~OUTINE
~717~
1718 02547 e25442 IOSt LDB STPFL
1719 B255G 01404e CPF .31 STOP fL~G?
1720 e2551 17G402 RET YES
1721 e2552 e-2s447 LD~ SLCOn NO
1722 ~2553 172741 STF 1 TURN INTERRUPT OFF
1723 ~2SS4 17~141 O~
1724 e2555 172741 S~F 1 GET STAtUS IN I~O REG
1725 e2556 177241 L15 1-C tUR~ INTERRupT ON
1726 e2557 0744~6 ~e~ ~
1727 02560 G75353 S~P IOSt ~EVICE ~uSY?
1728 e2561 ~64357 J~P ~ET~2 NO
25~
- lO'~
PAGE Ot36 #Ol KEYBO~D ENTRY ~N~ ~ISPLAy 1730~
1732~ THIS SU~ROUTlNE REFREs~Es 1733- THE SINGLE LI~E ~ISPLAY
1735 ~2562 e2l4B2 REFRS LOA OTPTQ
1736 e2563 ~31740 STA TMP
1737 ~2564 e00033 ~CA .16 1739 C2566 074742 S~R 16 1740 ~2567 ~35741 RE1 ST~ TMP1 1741 ~2570 624111 LDB TMP~
1742 02571 661362 JSU GTcnN
1743 02572 ~703a4 RE3 SAL 10 1744 ~2573 ~31743 StA T~P3 1745 ~2574 ~2?117 LOB TMP2A
1746 02575 ~61362 JS~ ~TCON
1747 Q2576 ~50054 RE4 A~D .63 174B e2577 0706C4 ~AL 4 174~ ~2600 ~41743 IOR T~P3 1750 02601 ~41741 IOR TMPl FORM OUTPUT WORn 1751 02602 173750 CLF & Tl)RN DISPL~Y OfF
1753 02504 ~25443 L~ KEYFB
1754 e2605 172741 SIF 1 INTERRUPT OFF
1755 02606 674353 5~p RE2 INTERRUPT OCCURRED?
1756 ~2607 ~25741 ~~B T~Pl - 1757 C261e ~14a33 CP~ .16 -1758 Q2611 066615 U~P RE2 1759 e2612 ~74~70 SIB ~1 1761 ~2614 ~66567 JYP RE1 1763 C2616 170402 RET TURN INTERRupT ON
2S~
10~6~;~4 PAGE 0037 #al ~EY~OARD ENtRY ~ND ~lSPLAy 1765~
1766~ PTAPE COM~ANn EXECUTION
1768' T~TS QOUTINE RE~D5 P~OGR~S FRo~
1769~ TH~ P~OTO?EADER. 10 OR ~O~E NULLS
1770~ CONSTltUT LE~DE~ OR TRAILER w~ICH
1771~ ARE THE P?OGRAM DELIMITER5.
1772~
1773~ INPUT COD-S
1t74~
1775~ DATA 64 ASCII SET
1776~
1777~ CO~TROL
1779~ 176 ALT MODE=DELETE LINE
1780~ - 33 E5C MODE=DELEtE LINE
17B1- 137 LEFt AQRO~=DELETE CHAR
1782~ 177 RU801JT= IGNORE
1783~ 15 CRTN= IG~ORE
1784~ 12 LNFD= END OF RECORD
1785~ RETUQN TC
1786~
1787~ P~1 IF NULL REcoRD
1788~ P~2 C~HER~lSE
1789 025l7 07~2~4 PREED SAL 12 1790 02620 031447 S~b SLCOD
1791 02621 ~20211 LDA .BUFA
1792 02622 6314a- STA BADDQ
1793 ~2623 ~20132 LDA M1 1794 ~2624 031751 STA T~P5 CLEAR DELETE LINE FLAG
1795 ~2625 02F141 LDA M1fl 1796 ~2626 031741 51A TMPl SET FEEO HOLE COUNTER
1798~
~801 02627 B62547 P1 JSM IOST STOP KEY?
1802 e2630 ~6~704 J~P P7 rES
1803 J2631 ~2Q1~1 LDA B40a0 GET INPUT STATus 9I~ .
'804 ~2632 061355 JS~ CR1-1 CALL FOR INPUT
~805 02633 ~62547 JSM lOST
806 ~2634 e66704 P4 JMp P7 STOP
807 ~2635 074117 - LCA
808 t2636 G7B3~6 RAR 7 8B9 e2637 eS0104 A~D ~177 1810 ~2640 67231B R2A P3 NULL?
1811 e2641 045741 I52 TMP1 10 FEED HoLEs?
1812 ~2642 Q66627 J~p P1 NO
1813 02643 021742 LDA tMP2 1814 e2644 ~7'4i3 S~P P4 TQA~LER?
lB15 e2645 S6h625 J~p P1-2 ~O~ LEADER
~B16 e2646 ~31742 P3 SIA TMP2 RESET LEAOER FLA6 lB17 02647 010104 CPA B177 RUBOUT?
1818 92650 G66625 Jhp Pl-2 YES
1819 e2651 010031 CPA CRTN CRTN?
182B e2hS2 ~66625 JhP P1-2 YES. IGNORE
2~i~
~0~6644 PAGE 0~38 ~01 KEYBOARO ENIRY AND DISPL~Y
.
BZl 026s3 Cl312O CPA B137 LEFT ARROW~
~6670 JMP PS YES. BACKSPACE
18Z3 02655 ~12061 CPA LNFD LINE fEED?
1024 e26s6 C2C03 LDA EOL YES- CH4NGE TO END oF Lin~ ch~r~ct~
~825 e26s7 ~1312~ CFA B33 ESCAPE MODE?
lB26 t2660 a66624 J~P Pl-3 YES. SET DELETE FLA6 e2661 01312 CPA B176 ALT MODE?
lB28 02662 06662~ JMP Pl-3 YES. DELETE
lB29 e2663 06101O JSM ONEXT
1830 02664 ~21467 LDA LOCL2 lB31 C2665 ~1003 CPA EOL END Of RECORD~
1832 e2666 066673 JMP ~2 YE~
lB33 e2667 ~2540~ LDB BADDR
lB34 e26t0 01713~ CPB IGE~D FULL?
~1835 e2671 ~ss40- P6 DS2 BADDR
1836 02672 06662~ JhP Pl-2 lB37 e2673 J20127 P2 LOA ~170~
~B3s e2674 e3144- S~A ~LCOD SET TO STANDARD PRINTER
1039 6267s ~457s: ISZ TMP5 C~ECK ~ELETE FLAG
1041 e2677 06435' JMP RETN2 ACCEPT
1842 e2700 ~2s4a~ P5 LDB 8ADDQ
1843 6270l ~1421 CPB .~UFA RUFFER EMPTY~
1844 ~2702 ~6662~ ~p Pl-2 rES- IGNORE
lB45 a2703 06667 J~p P6 NO~ BACKSPACE
1847 027as P6101~ JSM ONEXT PUT EOL CHAR IN ~UFFEQ
ls4B 02706 16417- J~p R~YDA-I EXIT PTAPE MoDE
-b ~
10'1t~4 ~
PAGE 0039 ~al KEY~BOARD ENTRy AND ~TSPLAy lBS0~
1851~ B~CKSPACE
1852~
1853 02707 ~21704 PKSP LDA BKPTR
1854 e2710 ~72350 Q~A B~2 FIRST BAC~SPACE?
1855 e2711 U21400 LDA 8ADOR YES
1856 e2712 ~10212 C~A ~SLBf NULL RECORD?
BS7 e2713 ~66045 JMp REED6 YES
185B e2714 G21400 LOA ~ADDQ
1859 02?15 a31704 S~A BKPTR
1860 e2716 G66723 J~p BKl-l PUT POINTER AT LAST CHAR
1861 e2717 ~10212 BK2 CPA .SL~ ALREADY ~T FIRST CHAR?
862 e2720 ~66045 J~p REED6 YES
1863 e2721 U114a2 CRA OTPTR LEFTMOST ON SCREEN?
1864 92722 GS54~,2 DSZ OTPTR YES- SCROLL
1865 e2723 ~55704 DSz BKPTR BACKSPACE CURSoR
1866 e2724 U66045 BKl J~p REED6 1~67~ ~
1868~ FORW~RD S¦PACE
1869~
1870 e2725 02~7~4~FORWn LDA BKPTR
1871 02726 070310 S~A F~l S~IP IF NO BACKSPACE HAS OCCURRED
1872 02727 0457a4 ISZ BKPTR
1873 02730 021402 L~A OTPTR
1874 02731 ~a2c41~ ADA .32 1875 e2732 ~117041 CPA aKPTR ON QIGHT OF SCREEN?
1876 02733 011400 C~A BADDQ YES~ LINE FULL?
1877 ~2734 066045 FWl J~p REED6 lB78 e2735 ~454a2 ISZ OTPTQ NO- SCROLL
1879 22736 066~45 J~p ~EED6 881~ LEFT SU~ROUTINE
lB82-1883~ SHTFr THE 32 C~ARACTER DISPLAY LEFT
18B4~
lB~S e2737 ~21400 LEFT LOA ~ADDR IS THE LAsT CHAQ
18B6 ~,Z740 ~00151 AOA ~32 ALREAnY TO THE LEFT OF
1887 PZ741 07ff0~6 TCA
18B8 ~2742 u014e2 ADA OTPTP THE EN~ OF DISPLAY~
lBB9 ~2743 970113 SAp *~2 IB90 ~2744 ~454d2 lSZ OTPTR NO~ SC~OLL
892~
lB93~ QIGHT S~G~OUTINE
1894~
1895~ SHTFT THE 32 CHA~AC7ER DISPLAY RIGHT
1896- ONE POSITION. IF THE FIQST CH~QACTEQ
lBB987 IS IN THE LEFT~OST PosITloN~ A~OQT.
lB99 Q2746 a21402 RIGHT L8A OTPTQ
1900 62747 ~10212 CPA ~SL~F
1901 e2750 17a402 ~ET
1902 e2751 GS5402 0S2 ~TPTQ NO
1903 Q2752 17a402 ~ET
Z~,' ~0'~6~;44 PAGE 0040 #01 KEYBOARD E~tRr A~D ~ISPLAy 1905~ KEYI~ SU~ROUTINE
1 ~06~
19~7~ THIS SU9RCUTINE ScANS ALL
1908~ INPUT DEVlCES SEAQCHING FOR
1909~ A~ INPUT CO~E. IT REFRESHES
1910~ THF DISPL~Y ~HILE ~AlTIN~
1911~ EXIT WITH CODE IN ~Al 1912~
1913 ~2753 0?4742 KEYIN SBR 16 l91S e2755 ~11704 C~A aKPTQ CURSOR PAST END?
1916 02756 035704 5-B BKPTQ YES~ CLEAR POINTER
191B ~2760 0?2110 ~ZA ~2 1919 02761 ~67002 JMp KEY~l -19~0 ~2762 061~53 05M GTMP GEt CHAQACTE~
1921 e2763 ~31751 STA T~PS SAVE UNco~vERTED C~AR
1922 t2764 ~70550 SZA KEyNl-3 EMpTy ~uFFER?
1923 02765 061363 JSM GTCO~- l CONVERT
1924 62766 C11751 CPA T~PS ~ID CO~VERSION DCCURR?
1925 ~2767 066771 JMp ~2 NO
1926 e2770 ~43121 IOR B200 YES. SET SHI~T BIT
1927 e2771 025473 LD~ CCNT
1928 B2772 ~19031 CPA EOL E~D OF LINE?
1929 e2773 ~74212 sa~ ~4 RECALL MO~E?
1930 e2774 ess473 DSZ CC~ NO- DINC PoI~TEQ
1931 e 2775 170402 RE T
1932 e2?76 17e4~2 REt RETURN ~ITH CHAR I~ ~A) 1933 02777 ~74742 se~ 16 1934 03000 035473 Sla CCNt QESET POTNTER
1935 93aal 066756 ' J~P KEy~7-l 936 03002 01175~ KEY~1 StA TMP4 SET CURSnR COUNTER TO ZERD
.937 ~3003 963024 JSM KEYN6 _938 ~3004 02'7~4 LDB BKPTQ
_939 03005 e74250 SZB KEY~3 CURSOR?
1940 e3006 ~2?122 LCB BKPTA YES
1941 63007 061a41 J~M GETCH
1942 03010 031751 STA TMP5 SAVE CHAR ~T CURSOR POSITIO~
1943 e3011 055704 DSZ ~KPTR
1944 Q3012 ~25443 KEY~3 LDB KEYFG
1945 ~3013 ~74612 S6~ KEYN2 HAS KEY INpuT OCCURRED?
1946 e3014 fl21704 LDA ~KPtQ YES
1947 ~3015 Q?0250 SZA KEY~5 CURSOR?
1948 03016 ~21751 LDA TMP5 YES. RESTORE CH~RACTER
1949 e301t ~2712Z LDB aKPtA
1950 03~20 ~61017 JSM OUTCR
l9S1 ~3a21 ~55704 DSz BKPTR
1952 ~3022 ~21443 KEY~5 LDA ~EYFO.
1953 e3a23 JS~105 AhD d377 1954 03024 e~24132 ~EY~6 LCB M1 1956 03a26 17a402 5IB KEYfG RESET KEY ~ CCURREr) FLAG
1957 e3027 ~2S704 KEY~2 LDB ~KPTQ
1958 ~3a30 ~74610 52B KEYh4 CURSOR?
1959 e3031 G2S750 LDB TM~4 YES
1960 ~3032 ~04132 ADB Ml 26~
lO~
PAGE Oe41 ~01 KEYBOARD ENTRy A~D DI8PLAy -1961 93033 6}4136 CPB ~5 1962 oe3~34 ~24a61 LGB .10 1963 ~3035 ~35750 SIB TMp4 1964 e3036 a21751 LDA ThP5 1965 03037 ~74113 S~P ~2 1966 t3040 a2~037 L~A .28 1967 C3a41 027122 L~B ~KPTA
1968 03042 061017 JSM OUTCR RE~LACE CHARAcTER ~ITH CURSOR
1969 ~3043 0ss7a4 DSZ a~PTR
1970 e3044 ~62562 ~EYN4 JSM REFRs 1972~
1973* CALL KEYIN AND EXEC~TE RIGMT AND LEFT ARROWS
1974*
1975* P~l5ARR0w5 P~2=OTHERWISE
1976 e3a46 ~62753 C~LLK JSM KEYIN
1977 ~3047 ~74742 S~R 16 1978 C3050 ~70346 KAR ~
1979 03051 ~70133 S~P ~2.C SHIFTED?
1980 e3052 024132 LOB Ml YES
1981 53053 e3s706 SIB T~P6 1982 03as4 ~70346 ~R 8 1983 a3055 031751 S~A TMp5 1984 e3056 010036 CPA B27 RIGHT ARROW
1985 e3~57 C66746 JMp ~IGHT YES
1986 03060 ~10035 CPA B26 1987 ~3061 J65737 J~P LEFT LEFT ARROW
1988 e3a62 064357 JMP RETN2 ~6~1 1 0 ~
PAGE Oe42 ~01 KEy OARD EhTRr AND ~IsPLAr 1990~
1991~ TABLE SEARCH ROUtI~E
1992~
~9g3-1994~ THIS SUBROUTINE COMPARES T~E
1995' INPUT STR-NG ~ITh ST~INGS IN
1996~ A TA~Lt. IF A S~CCESS~UL Co~pARE
1997~ I5 MAOE AN 6-~IT CODE I5 ~ETuRNED
1998' 19994 ENTRY CONDITIONS:
2000- (A)=FIQST CH4~ACTER OF INpuT STRIN~
20a1~ (~)=POINTEQ TO FIRST C4AR OF TABLE
2002~
2003~ EXTT CO~DITIONS:
20044 IF MATrH, REtlJ~N TO P~ ~ITH CODE
2005~ IN A OTHERWISt ~ErURN 70 P~1 2007~
2006 e3Q63 ~62531 TB56 J5~ GTMP2 2009 ~3064 a70306 RAR 7 2010 e3a65 C70511 SLA TBS5 oP CODE?
2011 e3066 07040Z SAR 9 YES- RIGHT JusTIFr 2012 Q3~67 CS0054 AN~ .63 2013 e3070 064357 J~P RETN2 2014 Q3071 e21751 TBSR1 LDA TMPS
2015 ~3~72 03'750 T~SRH S~A T~P4 SAVE INPUT CHAR
2016 83073 035742 51~ TMP2 I~ITIALIZE TABLE POINTER
2017 e3~74 925400 LO~ BA~DR
201~ 03075 035752 SIB TMP6~ SAVE INPUT PoINTER
2020 e3077 055742 T~55 GS2 TMP2 2021 631a0 061055 JS~ GNEXT FETCH NEXT INPUT CHAR
2022 e3101 C31743 T~52 5lA TMP3 STORE C~AR~CTER
2~23 e31~2 ~62531 JS~ P2 2e24 23103 ~11743 CPA t~D3 CHAR~CTE~S ~ATC~?
2025 23104 e67063 J~p TBSh YES- C~TINUE
2026 03105 ~25752 LCR T~P6~ N~- PESTO~t BADnR
2027 e3106 ~35400 STB ~A~nR
2~28 e31a7 062531 J~ GT~p~
2029 03110 a7~306 RAQ 7 2030 03111 071711 SLA 4-2 CMA~ IS OP CODE?
2031 ~3112 070153 S~P T~S4 LAST ENtRY?
2033 e31143 121750~ LCA TM~4 REtlJRN tO P~1 2034 03115 ~2175e T~S4 LDA TMP4 2035 03116 067101~ JMp T~S2 CONTINUE
26~) 10'~ 4 i PAGE 0043 ~01 KEYB~OARn ENTRy ~ND DISPL~Y
2037~
203B~ CON5T4NTS~ TE~PORARIES- EtC.
2039~ USED IN AIOVE ROUTINES
2041~
2042 Q3117 001742 TMP2A UEF T~P-2 Z043 0312a aO6006 LISTR DEF LISTl 2044 e3121 0~02a0 8~00 OCT ~a0 2~45 03122 aO1704 8KPTA DEF ~KPTP
2046 03123 ~0l62l~ENDw ~EF RBUFF~40 2050 03127 O~el63 DELIN OCT 163 2051 C3130 eO33Zl;lOEND DEF IoEuF-loEuF~3 ~6(.
PA~E 0~44 #01 DEFI~E-A-KE~-ROUTINES
2~53 2054~ DEFINF-A-KEY-QOUTI~E~
2055~
2056- THE FIRST WORD OF EAC~ DEFI~ITION CO~TbINS THE
2057~ KEYCODE OF tHAT KE~. rHE SFCOND WORD CONTAINS THE LE~GTH
2058~ OF THE DEFINIrION RLus 1. ~HILE IN DEFINITION McDE
2059~ "UKPTQ" POINTS THE THE LE~G~H WORD.
2a60-2061 ~3131 06a62~ KEYPR JSM SAV~P SAVE BADDR
2~62 03132 02a212 LDA .SL!BF
2063 03133 031400 STA ~ADDR
2064 03134 ~61055 JSM G~EXT SET UP FOR TA~LE SEARCH
2065 03135 B27152 LDB K~BA
2066 ~3136 160175 JS~ TSRHA~I SEARC~ TABLE
2067 a3137 ~67153 J~p RCAL NOT FOUND
2068 03140 ~74742 SER 16 2069 e3141 03~432 5IB D~QS~
2070 J3142 ~50024 AND .7 2071 03143 ~03145 hCA JTBA A-PEG ~AS OPCODE
20?2 03144 079737 JMp A~I
2073~
2074 Q~3145 103145 JT~A DEF JTBL-l,l 2075 e3146 ~03253 JT~L DEF XRU~ RUN
2077 ~3150 ~03330 DEF ~LST LIST
2078 ~3151 a03261 DEF XKEY FETCH
2079~
20B0 ~3152 OB7155 KTBA DEF KTBL~KTBLll '; 267 10~ 4 PA5E 0Q45 *fl1 DfFINE-~-KE~-ROUTINFS
20~2 e3153 ~60633 RCAL JSU ~ES~l RESTORE HADDR
20~3 e3154 063346 J~U HUN~ FIND T~E LOCATION
2084 a3155 160206 KERR JS~ ER~A.I NOT FOUND~ EQROQ
2085 03156 ~74517 L~A B~l 2a86 03157 ~31466 S~A LOCL1 SAVE LENGTH WORD
2087 0316a ~70744 SAL 1 208B a3161 0~0136 ACA M5 AssuME oD~ COUNT
20~9 23162 ~72113 SbP ~2 ~ULL DEFINITION?
209~ 03163 ~66045 J~p REED6 YES~ IG~OPE
2091 e3164 ~31473 S~A CCNT SAVE CHAR~CTER COUNT
2092 ~3165 035470 BT9 L2T1 SAVE LOCATION
2093 03166 ~74070 SI~
2094 03167 0?4517 LDA B-I LOnK AT LI~E #
l 2095 ~317~ ~74070 âl~ *~1 ~ 2096 a3171 e7011C 52A ~'2 IS THIS ~ TypING AID?
2Q97 03172 067222 J~p KF~X NO -2098 e3173 074744 SBL 1 YES
2~99 ~3174 635740 SlB TMP SAVE C~ARACTER PoINTEQ
2100 e3175 ~74002 S~R 1 2101 U3176 e05466 A~B LOCL1 2102 03177 ~04134 AD9 M3 2103 032~ ~74517 LDA ~-I LOOK ~T LAST WORD
2104 C3201 ~50105 AND B377 2105 032a2 a704~0 SZA 4-9 21~6~
2107 e3203 Q45473 IS2 CCNT CORRECT COUNT
2108 03204 Q10100 CPA AST~1 CHECK FoR
2109 ~3205 067207 J~P ~-2 2110- 032~6 666045 J~P REED6 2111 ~3207 ~74517 LDA B-I
2112 03210 a50157 A~D M256 2113 A3211 ~40027 IOQ AIEX1 IEX CO~F
2114 ~3212 ~67220 JMP ~6 2115~
2116 93213 ~74517 LOA B-I
2117 ~3214 ~13362 CPA ASTQ2 C~ECK Fn 2118 03215 ~67217 J~P ~'2 2119 e3216 ~65045 J~p REED6 2120 63217 J2~363 LDA AIEX2 IEX CODE
2121 ~3220 074557 SIA B-I
2122 03221 0~6~45 J~P REE~6 2124 03222 a74517 RfNX LDb B-I C~ECK FDR LEGITIM~TF FU~CTIO~
Z125 e3223 ~50065 - AND K1 (0760afl) 2126 ~3224 olaJo4 C~A K2 ~0100~fl) 2127 e3225 076130 RI8 ~'Z
2128 ~3Z26 067246 JMP RRU~ NOT DFF
2129 03227 074517 LDb B-I
2130 e3230 053.357 A~D K3 (176037~
2131 e3231 ~1336~ C~ ~4 (01~037) 2132 ~3232 ~67234 J~P ~Z
2133 e3233 067246 J~P RRUN ~OT DEf 2134 ~3234 32C16Z LOA F~
2135 ~3235 831754 S~A AQ2 ~FN~
2136 e3236 07451? LDA B-I
213~ G3237 ~?0202 SAQ 5 E~TRACt THE LETTER
26l~
10~;44 PAGE 0046 ff01 DEFINE-A-KE~-ROUTINFS
2138 ~3240 650040 AhD ~31 2139 ~3241 ~401al IOR B100 2140 ~3242 ~70404 S~L ~
2141 e3243 e31755 S~A AR2-1 "~("
2142 ~3244 027361 LD8 ALCLl GET POINTFK
2143 ~3245 a66246 J~p RFNXl SET UP coU~T
2144~
2146 e3247 ~25470 LD8 L2Tl YES. CAN RUN
2147 e32s0 063336 JSM SUMP
2148 ~3251 ~70742 SAR 16 2149 G3252 ~66157 J~p CONTK CONTINUE F~OM BEGIN~ZNG OF KEY
2151 63253 ~61225 XRUN JSM LDEF INSURE NnT IN KEY MOnE
2152 e3254 063346 JSM HU~T
2153 Q3255 ~67155 ~p KERR KEY U~DEFINED
2154 e3256 063336 JSM SUMP SEt UP PROGRAM POINTERS
2155 03257 67a742 S~R 16 2156 ~3260 16~171 Jhp RU~.T RUN
2157~
2156~ . -2159 03261 ~61225 XKEY JSM LDEF INSURE NnT IN DEFINITION MODE
2160 03262 063346 JSM ~UNT FIND THE LOCATION
2161 e3263 ~63270 JS~ NEWK NOT FOUND- NEW KEY RE~UIQED
2162 ~3264 063336 JSM SUMP
2163 a3265 G60651 JSM INITS INITIALI2E STACKS
2164 C3266 ~70742 SAR 16 2165 e3267 Q66254 J~p EFET~l FETCH FIRST LINE
2166~
2167 ~3270 160242 NEWK JSM DcoMA~I DECOMPILE PRoGRAM
2168 ~3271 G21405 LCA FWUP ADD A NEW KEY TO DEFINITIO~ ARE4 2169 e3272 031476 SlA tEMp3 2170 ~3273 ~20017 LDA ~2 2171 ~3274 160250 JSM OVCHA~I CMECK FoQ OVERFLO~
2172 ~3275 ~61121 JSM MVtOH M0VE COQE
2173 h3276 021751 LOA TMPS
2174 ~3277 1314~5 STA FWUP-I STOQE ~F~I KEY
2175 ~3300 ~45405 ISZ FWUP
2176 e3301 ~254es L~8 F~UP
2177 ~3302 045405 lSZ FWUP UPDATE FWUP
2178 C3303 ~2aO12 LDA .1 2179 03304 074557 S~A 8~I INITI~LIZE LENGTH ~ORD
2140 ~3305 045424 ZSZ P~UFF
2141 ~3306 045424 ~EWKI iSZ PBUFF UPDAtE PBUFF
21B2 e3307 170402 QET
~6~
lV;~
PAGE 0e47 ~01 nEF'NE-A-KE~-ROUTI~FS
2184~
21BS~ SCRATCH ~ KEY
21B7 e3310 ~61225 XSC~ JSM LDEf I~SURE NOT IN DEf I~ITION MODE
21B8 B3311 160242 JSM DCO~I nECO~PILF
21B9 03312 ~63346 JSM HUNT FIND THE LOCATION
2190 ~3313 164174 J~P RD~DA,I NOT FOUND- IGNORE
2192 03315 c7a437 ADB A-I END OF A~EA
2193 63316 ~00132 A~A Ml STAPT OF AREA
2194 ~3317 031477 XSCQl SIA TEMP4 2195 ~332~ 160251 JS~ CLPlA.I CLOSE UP AREA
2196 ~3321 ~2;405 LGA FWUP
2197 ~3322 074017 ADA B
219B ~3323 03140' SlA F~UP UPDATE FWUP
2199 C3324 ~05424 AD~ PBUFF
2200 03325 e3s424 SIB P~UFF UPDATE PBUFF
220~1 ~3326 ~6~651 JSM INITS INITIALIZE STAC~S
22~2 e3327 164174 J~ip RDYD~.I RETURN TO MONITOR
2203~
2204~ ~IST A DEFI~ITION
2205~
2206 e3330 05334h XLST JSM ~u~t FI~D ~E LOCATION
220~ e3331 ~6761~ J~p XLSTl~l NOT FOUND
2208 ~3332 074117 LDA ~
2209 03333 07043' A~B A-I ENO OF ~REA
2210 ~3334 e7a07i~ SIA ~1 START OF AREA
2211 e3335 ~67614 J~P ~LSTl LIST DEFJ~ITIO~
2213~ SET UP MISC-LLANEOUS PoI~TERS
2214~
2215 ~3336 021424 SU~P LDA PBUFF
2216 e3337 03142' STA PQUFO SAVE OLD P~uFF
2217 e3340 03542~ STB UKPt~
221B ~3341 ~35424 S~Q PBUFF
2219 Q3342 ~74517 LOA B.l 2220 e3343 C70~3' ACQ A
2221 ~3344 ~3542~ Sl~ PBPTP ESTABLIS~ NE~ PBP~Q
2222 e334s 06730~ J~P ~EWKl ?70 10~ 64~
PAGE 0~48 #01 DEFINE-b-KFY-QOUTINFS
2224~
2225~ SUBQOUTI~E TC FIND A DEFINED KEr AREA
2227~ ~EtUQN TO P~ IF NoT FOU~
2228- QETUQN T0 P~ IF FOU~D WITH P-REG = A~DRESS OF L~NGTH WORn 2229~
2230 ~3346 ~24166 HUNT LO~3 FWA~ START SEARCHING 4T FhAM
2231 ~3347 ~15405 HUNl CP~ FWUP
2232 ~3350 170402 ~ET UNDEFINED
2233 a3351 074517 LDA B I
2234 a3352 074070 SIB ~ 1 EXTQACT THIS KEYCODE
2235 e3353 011751 CP~ TMP5 AND Co~pAQE WITH DESI~ED
2236 ~3354 B64357 JMp ~ETN2 FOUND IT
2237 e3355 074437 AOB a- I
223B B3356 067347 JMp HUNl 22~9-2240~ CO~S~ANTS
2242 eo065 Kl EGU 0PMsK ~076000) 2243 eO004 ~2 EGU ~10K ~0100~0) 2244 a3357 176e37 K3 OCT 176a37 2246 03361 003730 ALCLl DEf ~2~AQ2 2247 801¢0 ASTQl EOU B52 2249 ff0a27 AIEXl EQU 11 2250 ~3363 ~QS4¢g AIEx2 OCT 005400 l~ fi44 PAGE 0~49 ~el SYST~M ~A~LEs 2252~
2253~ NON-FOQ~ULA OPEQ~T0~S
2254' 2Z55 ~3364 052110 -OP13 A5C 2 tH~N
e3365 04?516 2256 e3366 l5all7 OCT 150117 tHENS 20 2257 23367 C43321 ¦ OCT Q'l3321 Of 21 2258 e3370 0432~3 FtA~E OCt 43203 F 3 2259 03}71 042704 OCt 42704 E 4t EOT
2260 63372 ~41206 OCt 41206 B 6 2261 03373 ~542~7 OC~ 542~7 X 7 2262 g3374 027710 OCT 27710 ~ 10S EOT
2263 ~3375 027311 OCt 27311 .3 11~ EOT
2264 ~3376 ~51524 ¦FOPST ASC 2 StEP
~3~77 ~4Z52~ -2265 ~3400 156524 OCT 1$6524 STEP 35 2266 03401 047736 OCT ~47736 TO; 36 2267 63402 047522 OR ASC l OQ
226H e3403 1131~1 OCT 113101 OQ; 26 2269 034~4 047104 ASC l ND
2270 e3405 153516 OCT 153516 AND; 27 2271 B3406 04~524 ASC l OT
2272 -~3407 154076 GTE ~Ct 154076 NOT; 30 2273 e341C C36631 OCT 035631 >=; 31 2274 03411 ~36075 A5C 1.<=
2275 ~3412 ~15~74 OCt 115a74 ~= ~2 2276 B3413 S37320 OCt 03732fA <~; 20 2~t8~ SYSTFM COMM ~ND JU~P TABLE
2280 C3414 C04322¦ A~5 FLt-~
2281 e3415 0043221 A~S Fl~ED~~
2242 e3416 o0e437l ~S Pt~P~
22B3 B3417 176534¦Lf3Ll A~S CON~-~
2284 ~3420 ~01237 A~S DELEt-*
2Z85 Q3421 B01244l A~S RENUM-~
2286 03422 ~4335 A~5 t~OQ~L-~
Z2~7 Q3423 ~04331 A~5 TQACE-~
2288 ~3424 O~P151 A~5 AUTO-4 2289 e3425 1766261 A~S EFET-~
2290 93426 000155 A~S LISTC-g 2291 e3427 OQlZ12 A95 SCQAT-~
2292 C3430 ~01311 A~S RUN-~
2293~
2294~ SYSTE~ COMMA~D ~A~E TA~LE
2295~
2296 03431 Ç511R5 C~D13 ASC l RE
2297 C3432 ~4721~ 0CT 4721R QEN; 001000 2298 03433 ~42105 ASC l~DE
2299 C3434 ~462~1~ OCt ~46271 DELETE; 1 2300 93435 Ç50124 A5C I PT
2301 03436 e4065~ OCT 4~653 PTAPE; 1011011 2303 03440 ~154214 OCT 54214 FI~E~)~ 00~100.
2304 e3441 ~143114 ASC 1 ~FL
7305 B3442 li52215 OCT S;2215 FLO~T; 001101 27~
lO~f;644 PAGE OOS0 ~Ol SYSTEM TA~LES
2306 03443 052122 ASC 2.TQbC
B3444 ~4a5~3 2307 C3445 042666 OCT 4266~t TRACF; 110110 2308 ~3446 ~47117 ASC 3.NOR~AL
e3447 651115 a34s0 a40sl4 2309 Q3451 1035e3 OCT 103503 NOQMbL: 000111 2310 03452 047516 ASC 1 ~O~
2311 63453 ~52252 . OCT 52252 CONT: 101010 2312 C3454 651524 ASC 2~sTop ~3455 B47520 2313 03456 1375Ql OCT 137501 STOP; 111111 t~o JUMP) 2314 ~3457 ~52524 ASC l -UT
2315 03460 0476e5 OCT 47605 AUTO 000101 2316 C3461 051524 ASC 2.sTOR
a3462 047522 2317 e3463 042600 OCt 42600 STO~E; a00000 (NO JUMP) 2318 C3464 046117 ASC 2~LOAO
a3465 040504 2319 e3466 110114 KTBL OCt 110114 LOAD; 010000 ~NO JUMP) 2320 Q3467 ~44523 ASC 1 ~ IS
2321 03470 ~52203 OCT 52203 LISTs 000011 2322 03471 051125 ASC l-RU
2323- ~3472 047241 OCT 047241 QUN~ 100001 2324 e3473 oslse3 ASC 3,SCPaTC
e3474 ~51101 ~3475 ~52103 2325 e3476 644202 OCT 44202 SCRATCH: 000010 2326 ~3477 0431e5 ASC 2.fETC
~3s~a ~52103 2327 83501 ~44344 OCT 44344 FETCHS 100~00 lO~j6~4 !
PAGE 0eSl #91 SYNTAX
2330~ DATA STATEM-NT SyN~hx 2331~
2332 23502 ~45706 DATAS lSZ SBPTQ
2333 B3~a3 061156 JSM CO~ST LOOK FOR ~ NuM~ER
2334 23504 160206 NDATA JSM ERRA~I NOt FOU~D
2335 ~3505 169244 JSM NUMOa,l FOUND: SToRE lN SYNt~X PUFFER
2336 83506 0605a4 DATA2 0SM COMC~ COMMA?
2337 e35a7 065151 JMp EOST ~~
2338 B351a ~67502 J~p UATAS
2340~ FORMAT ST~TE~ENT SY~TA~
2341~
2342 ~3511 e61QS5 F~TS JSM GNEXT GET FIRST CMAR OF ~EXT SPEC
2343 03512 060750 JSM DIGCK DIGIT?
2344 e3513 067521 JMp FMTF NO
2345 e3514 ~35724 STB GfL4G YES~ SET FOR EQROR O~ OVERFLO~
Z346 83515 ~55400 DSZ BADDR FETCH AND
2347 e3516 024161 LDP MAxs~ STORE
2348 03517 c6e666 JSM PGI~T QEPEAT FIELD
2349 e3520 ~67522 JMP *~2 2350 e3521 6457a6 FMTF ISZ SBPtR ~OVE TO NEw WOQD
2351 e3522 a27ss2 LDB FADD LOOK FO~
2352 e3523 06as46 JSM S~EXP "F" OQ "E"
2353 e3524 G67537 J~p FMTB NOT FOUND
2354 ~3525 G24161 LDP MAXS~ FOUND$ FETCH AND
2355 e3526 06~666 J5~ PGIh~ STORF FIELD ~IDTH
2356 e3527 C2755: L~ ~ A~D LOOK FOQ
2357 G353~ ~60546 JSM STEXP
2358 a3531 16a206 FMTER JSM ER~A-I NOT FOU~D
2359 e3532 ~24161 FMTD LD~ MAXS~
2360 33533 861131 JSM PGIN0 FE~C~ D~GIT FIELD. ALLOW 0 2361' ~3534 261153 FMTC JSM EOLCK EOL?
2362 03535 06a51l' JS~ CO~CE NO. DEMAND A CO~MA
2363 03536 067511 J~p FMTS GET MEXT SPEc 2364 03537 027554 fMT~ LDB BADD
2365 e3540 06~546 JS~ STEXP SE4RCH FOP "B", ~lX'~, OR
2366 ~3541 06754 JMP FMTOT ~OT FOUNO
2367 O3542 ~61QS' JSM GNEXT FOUND
2368 t3543 045706 ISZ SBPtR
2369 Q3544 06~534 JhP FMTC DEMAND CoMMA O~ EOL
23?0 ~3545 al0a43 FMTOT CPA B42 oUOtE?
2371 ~3546 ~67550 JMp ~2 23?2 O354? ~6?531 JMp FMTER NO
2373 ~355~ 16Q245 JSM GtStA~I YES- GET ~UOTE FIELD
2374 ~3551 &67534 J~P fMTC
Z375 e3552 60676Q fADD DEF FTA~L~FTABL
2376 O3553 ~06772 .ADD DEF fTAqL~FTABL~l~
2377 ~3554 006764 BADD DEF FtA~L~FTABL~4 2379 GOTO AND GOSU~ STATEMENt SY~TAx 2381 ~3555 ~6a626 GOtOS JSM SAVFP SAVE BAnDQ AND S~PTR
2384 03560 G67572 JSM L~U LOO~ FOR A LINEONNUQROR FR~M INtCK
27~ :
10~ 4 PAGE 0~52 #Bl SYN-AX
Z355 Q3561 a6~640 GOTOl JSM RES8P RE~JOQE POINTERS
2386 ~3562 16~20Z Ja~ FSCA.I FETCM FORMULA
23~7 ~3563 P27574 LD~ OfA
23S8 e3564 B6~546 JSM STEXP STO~E "OF" AS EXPANDFD OPEQ~tOR
23B9 ~3565 1602~6 MISOF JSM ERRA,I NOT FOUNn 2390 e3566 J6~664 GOTO2 JSM LNUM FETCH LINE NUM8ER
2391 Q3567 C61153 Ja~ EOLCK EOL?
2392 G3570 ~6a51 a JSM COMCf DE~ND A CO~MA
2393 e3571 ~675~6 JMp GOrO2 2394 e3572 G61153 GOTO3 JSM EOLC~ EOL~
2395 ~3573 067561 JMP GOTOl ~O- TRY FOQ A FORMULA INSTEAD
2396 03574 B06755 OfA DEF FOP13~FOP13~5 2397~
2398~ AUTO SYSTEM COMMAND
2400 035?5 C63647 AUTO JSM GETLN GET oPTIoNAL PA~AMETER5 24~1 e35?6 020061 LCA .10 2402 ~35?7 524061 LD8 .1~
2403 23600 ~3142? S~A .LNU~ SET INITIAL LINE NUM8ER
24~4 ~3601 03543~ ST~ LNINC SET INCREMENT
2405 23602 164173 JMp PEXMA~I
2406~
2407~ LIST EXFCUTION
2408~
2409 23603 a61055 LISTC JSM GNExT GET NExt CHAQACTEP
2410, ~3604 G13627 CPA 843 l~"?
2411 a3605 067623 J~P LSTC2 YES.
2412 g3606 ~55400 DSZ BADDR RESET Po~TER
2413 e3607 ~53647 LSTCl JSM GETL~ GET OPTIONAL LINE #~S
2415 036ll 224a56 LD,B ~lE4 2416 ~3612 G60730 JSM GETAD GET ~DD~ESSES
2417 23613 ~21477 L~A TEMP4 241S D3614 160122 XLSTl JSM LIStA~I LIST
2419 ~3615 160170 JSM CLERA.I CLEAQ BUFFER
2421 Q361? 074~76 TCB
2422 03620 0~5413 AD~ HSTPT COMPUTE WORDS 8ETWEEN STACKS
2423 e3621 160210 JSM OUTIA~I PUT I~ RUFFE~
2424 03622 164173 J~P PEx~A~l 2425 03623 06~664 LSTC2 JSM LhUM FETC~ SE~ECT CODE
2426 e3624 574204 S~L 12 2427 e3625 ~35447 St8 SLCOD
2428 e3626 067607 J~P LSTCl 2429 P3627 40a~43 ~43 OCT 43 2430~
2431~ STOP ST~TFMENT SYNTAX
2432~
2433 e3630 g65147 J~P ENDS
2434 e3631 C21416 STOPS LOA MODE
2435 e3632 C71711 SLA STOPS-I SKIP Tf P~OG
2436 e3633 063647 JSM GETL~ GET P~RAMETERs 2437 ~3634 ~2~56 LDA ~lE4 2438 e363s e24d56 LDB ~lE4 SET DEFAULT PARA~ETEQs 2439 63636 ~6~741 JSM fND-1 FIND ADDQESS OF flRST
2440 e3637 ~15423 CPB P8PTQ PAST END nF PRoG?
\
PAGE 0~53 #~1 SYN-AX
2441 ~3640 ~74742 SeR 16 YES- CLEAP FLAG
2442 e3641 035436 STB ~fLGl 2443 R3642 ~6074~ JSM FND-2 FIND ADDQESS OF SECOND
2444 e3643 ~15423 CPB PBPTQ
2445 ~3644 ~74742 53R 16 2446 ~3645 ~35437 SIB HFLGl~l 2447 C3646 164174 J~p RDYDA.I
2449~
2450- SU9ROUTINE -O BUILD AND STO~E N>0 LINE NUMPERS
2451- RETUR~ TO P~l~NONE GIVEN
2452~ P~2:1 GIVEN ~A)=NUM8ER
2453~ P~3:2 GTvEN (A)=FIQST~ (B)=SECOND
2454~ NUM8EQS A?E STOQED SEPARA~ED ~Y COMMAS IN S-~UFFER
2455~
2456 ~3647 e61066 GETLN JSM GETSK GET NEXT CHAQ
2457 03650 170402 ~Et ~ONE GIVEN
2458 ~3651 06~750 JSM DIGCK DIGIT?
2459 03652 067647 J~P GETLN NO- IGNOR IT
2460 e3653 ~60663 JSM L~UM-1 ~UILD FIQST INTEGER
2461. 03654 ~35720 Sl~ LAStN SAVE lST ~
2462 ~3655 610031 CPA EOL END OF LINE?
2463 03656 a67662 J~P GETL2 YES-RETURN TO P~2 - 2464- e3657 060365 JSM ~ET2 INCREMENT RETuRN ADDRESS
2465 Q3660 G6a510 JSM COMCE FINV AND RECORD A CO~A
2466 ~3661 06a664 JSM LNUM GET NEXT LINE NUM~ER
2467 ~3662 ~21720 GETL2 LDA LASTN MOVE'TO (A~
2468 e3663 064357 5ETLR J~P RETN2 RETURN TO P~2 OR P~3 ~ 2469~
2470 03664 OOOO0~ ~SS 1 }**~*~*CMECKSUM*******
2471~ , 2472~ CLEAR ROUTI~E
2474 e3665 ~70742 ECLR SAQ 16 2475 03h66 C31430 STA LNINC CLEAR AUTO MODE
24~6 t3667 17~402 ~ET PErUR~ To P~l 2477~ 3677 ~S L4S~
247q~ M~rH tA9LES ~EQE
.
27~:;
10 ~t~6'~
PAGE 0~54 ~01 983~--MONIIOR
24~0 2481 ~400~ OkG 40~0~
2483 ~,4a0a 02a116 ENTRY LDA Q~OP CLEAR THE BASE PAGE
2485 e4002 000135 ADA M4 24a6 04003 a7371~ ~ZA ~-2 2487 e4004 ~24066 LC3 INF DETE~MINE THE
24~P e4005 004160 M~wCK AOB M1024 2489 ~4006 ~74577 STB B-l 2490 04007 074477 CPB B-I LAST ~ORD Of R/W
2491 0401a ~66012 JMp ~-2 YES , IT WAS
2492 e4011 066005 JMp MAWcK C~ECK NEXT PAGE
2493~
2495' 04012 074557 S7A B-I INITIALIZE LAST WORD
2496 ~4013 ~35423 S~B MAW
2497 04B14 ~04132 ~CB Ml SET THE POINTER
2498 04015 ~35404 57B L~A~ TO THE LAsT AVAILA~LE WOQD
2499 a4~16 ~24116 LOB REED
2500 04017 e35462 ST9 QEEOL INITIALIZE KEY~OARD LINK
2501 04020 g24207 LDB INTEA
2502 04021 ~35463 STB INTEL IhITIALIZE INTERRUP7 LINK
2503 e4~22 ~20026 LDA ~9 2504 04023 e31452 57A CPLAC SET DECIM~L SETTING TO 9 2505 e4024 ~31451 SlA CTYPE SET MODE TO "FLoAT"
2506 ~4025 ff45434 ' ISz UNITS INITIALIZE TO Q~DI~NS
2507 ~4026 e45450 ISZ P~ODE INITI~ALIZE TO N0RMAL
250~ Q4027 02q166 KILLK LOA F~AM INITIALIZE STAQT OF
2509 04030 0314a5 57A F~UP USER PROGRAM(SCRATCH KEYS) 2510 ~4031 ~20112 KILLP LD~ ~STKA INITIIALIZE RETuR~
2511 ~4032 a31777 57A RSPTQ POINTER
2512 e4033 062734 JSM 5CQP INITIALI7E PROGRAM POINTEQS
2513 04034 ~6i233 JSu LDEF-fi RESET USEQ KEY POINTEQ
2514 04035 ~60645 KI-LV JSM hINlT INITIALIZE SYMBOL TA~LE
2515 ~4036 060651 JSM INITS INITIALIZE STACKS AND fLAGS
2516 04037 ~?a742 ROYPT SAQ 16 2517 ~4040 e31433 ~A TFLAG CLEA~ PT~PE FL~ç
2518 e4a41 031430 SIA L~INC SET TO ~A~AL
2519~
2520 ~4042 16a170 JSM CLER~I CLE4R DlsPLAY
2521 ~4043 ~31622 5lA TERM QESET CRLF FLAG
2522 Q4044 ~0742 PEXMK SAR 16 2523 04045 ~31701 S~A NDISP
2524 ~4046 031702 5~A NpRIN
2526 0405a ~70510 S~A PEXM3 SKIP IF NoT DAT~ QEOUEST
2527 04051 d20012 ~DA .1 2528 e4P52 026267 LD~ ~MRKA PQINT A ?
2529 ~4053 061330 JS~ .~PWQ
2530 O4054 066100 ~MP REX~I
2531~ PTAPE SYSTEM CO~MAhO
2532 04055 e31433 PT~PE STA TFLAç StORE DEVTCE CODE
2533 ~4056 07~110 ~ 2 2534 C4057 ~64726 JMp SYE25 SELECT ConE NOT GIVE~
2535 e4062 G20132 LDA M1 10~ 4 PAGE 0~55 #01 ~30~-MoNIToR
2536 04061 ~31742 STA TMP2 SET FLAG FOQ L~ADEQ
2537 ~4062 0?0742 'EXM3 SAQ 16 2538 e4063 631442 STA STPFL CLEAP THE STEP-5Top FLA6 2539 e4D64 ~20127 LoA B170K
2540 04065 ~31447 5lA SLCOD SET TO STANDARD PRINTER
2~41 Q4066 ~21420 LDA BADDR
2542 04067 ~10212 CPA .SLBF BLAN~ SCREEN?
2543 e4270 066072 JMp ~2 YES
2544 ~4~71 066100 JMp ?EXMI
2545 ~4072 026264 LOB LTADn GET ADDRESS OF LA2Y-T
2546, ~4073 ~21422 LCA UKPTQ
2547 04~74 ~70170 SIA ~3 S~IP IF NoT KEY ~ODE (A)=l 2548 ~4075 ~4134 ADB M3 GEt ADD~FSS Of KEY-LAZY-T
2549 e4076 020021 LCA .4 Z550 ~4077 ~61335 JSM NPWQT WRITE ON DISPLAY
2551~
2552 e4100 e24112 PEX~l LDB RSTKA
2553 84101 035777 5~B RSPTQ QESET STAcK
2554 ~4102 020041 AL~UM LOA .32 2555 Q4103 0317~7 STA BLANK SET TO IGNOR ~LANKS
2556 ~41a4 ~21430 LDA LNINC
2557 041a5 070410 52A GTRCl SKI3 IF MANUAL
2558 ~4106 621701 LDA NDISP
2559 Q41a7 672350 k~A GTRCl~l SKIP IF MEssAGE ON SCREEN
2560 C4110 160170 JSM CLERA.I CLEAP OFF LAZY-T
2561 04111 025427 LO~ .LNU~
2562 a4112 160210 JSM OUTIA.I .PUT LINE # IN BUFFER~
2563 C4113 ~45400 ISZ BADDR oUTPuT A SPAcE
2564 e4114 066116 J~P ~2 2565 e4115 0~1427 GTQCl SlA .LNUM SET LINE # IF MANUAL
2566 ~4116 1614h2 GTRCD JSM REEDL~I READ ~ECORD
2567 04117 ~66042 ~p PEXMK-2 ~ULL RECORD
2568 04120 ~61062 JSM GFRST GET FIRST CHAR I~ (A) 2569 ~4121 e66042 J~p PEXMK-2 NULL RECOR~
2570 e4122 074?42 S9Q 16 25~1 e4123 G35724~ ST~ GFL~G SET FLAG ~OR INTEGER ERQOR
25?2 t4124 C25432 LDB DROSt 2573 e4125 0?4730 SI8 CKRCD SKIP IF NoT DAT~ REOUEST
2574 ~4126 ~35642~ STB SAVE SAVE QETIJRN ADD*ESS
2575 e4127 074742 SBR 16 25?6 ~4130 035432 ST~ ~ROST CLEAR THE INPUT ~LAG
2577 04131 035416 STB MOD~ SET TO PRO~.RAM EXECUtION MODE
2578 04132 160Z37 JSM SAL~A.I STATEME~T GIVEN?
2579 04133 066260 JMP GTRC2 ~0 25a0 04134 e20127 GTRC3 LDA ~170K YES
2582 4136 22270 STA SLCOD SET TO STA~DARO PRINtER
2g84 34140 061062 JS~ GFRST SET TO CALC SYNTAX MODE
2585 a4141 ~00a00 . NOp '~ CHECKSlJM
25S6 04142 ~65154 JMp S~NTX
2587 d4143 e25416 CKRCD LCB MODE
2588 ~4144 074111 SLB ~'2 SKIP IF EOL
2589 04145 ~66154 JMP SrNTX EXECUTE? DONT ALLOW LINE #
a4146 0101~0 C~A STAQ FI~ST CMA~ AN "*"?
2591 04147 066251 J~P UKDEF YES
27~3 :10~;44 1 . - - -PAGE 0056 ~01 9530--MONITOR
2~92 04150 060675 JSM INTC~-I BUILD A LTNE Y
2~93 ~4151 035427 5IB .LNUM STORE LINE #
2 94- tA) CONTAINS NEXT CHAR
2'~95 04152 010031 CRA EOL END OF LINE?
2~96 e4153 066500 ~hP DELST YES DELETE LINE FROM CODE
2~97-2 9B 04'5L 025426 SYNTX ~OB PBPTO GET MAINLINE END POINTEQ
2 99 ~4 S~ 015424 I_PB PaUFF NULL PROGQAM?
2600 04 SO ~62734 JSM SCRP YES INSURE NO SPURIOUS COU~ON EXISTS2601 ~4 5' 6'4026 LDEI 9 SET STORE FLAG FALSE
2602 64 hrJ ~ ',710 SIB MSFLG ~DONT RECOGNISE AS516NMENT) 2603 ~4 6' 0'5413 LOfl HSTPT INITIALIZF
2604 ~416~ 6R4132 ~05 Ml THE S-STAC~
2605 e4 6. 035472 stg TEMPS POINTER
2606 ~4 64 0-4742 SEIR 16 2607 64 65 035711 ~IE DFL~G CLEAR DEFINE FL4G
2608 ~4 66 035714 ~B SFLAG
2609 04_b7 160237 STMT JSM SALTA~l SEARCH TAPLES FOR STATEMENT26 0 e4''0 06h201 Jhp CMND NoT FOUND
26 1 e4 ~I J45706 ~5,7 S9PTR
26_2 ~4_~2 135706 '~lR 59PtR,I STORE THE PAGE
26 3 64 ~3 0'54'6 _DB MODE
~6 4 04 74 ~42 1 LB STMTI SKIP IF PRoGRAM MODE
'6.S ~4 75 ~703~4 ;~L 1~ SHIFT OP CODE
'6 6 ~4 76 ~01 2 ;AM STMTI SKIP IF STMT TYPE IS ALLOwFD
''6 7 64 77 ~623OO NCALC JSM ERROR STMT NOT ALLOWEO IN CALC
'61B C4~0a '65471 STMTl JMP TEMp~t ~RANCH TO CODE POR STATEMENT
~619 ~4'0_ ~241.~ CMND _GF Ml SEARCH TABLES FOR
'6''~ ~4'~'' 6e23~ JSM SALTA~I SY5TEM COMMAND
6 54 ~ 0662' jMp ILET NOT FOUND
''6 ~ 04~~4 07474' CMNDF SlR 16 ~6 ~ e4'd5 03543 S 1 CLINE RESET POINTER FOR LIST
Rh''4 04''~h 03~43O S I LNINC RESET AUTO
~6~ r4~ 41h S~q MODE SET T0 PROG
'~ ~4 o ~' 442 S~P SIPFL CLEAQ "STEP" FLAG
h 4~ 0~'4 SAY 4 GET ~ OF PARAMETEQS ALLO~ED
D ~4 ~n 1 52A JCMND 9QANCH IM~EDlATELy 4 q4 _ 6- 3~ JSM GETLA,I GET LINE ~ PARAMEtEQ5 h 1~ i 4 4 ~'~74' SAR 16 NONE GIVFN~ASSUME a b~4 5 ~24aSh LOB IE4 ONLY ONE GlvENl ASSUME INFlNlTy b~ 1'4 6 ~1473 JCMND JSM TEMP I RRANCH To CoMMAND ExEcuTloN
0-3- A_ COM~ANO JllMP TO PEAM~ o~ QD~PT EXCEPT fETCH
' h3~- ~MI~H JUMPS tO QEADI THE FOLLOWING TWO INSTQUCTlONs \ O~'~ AQE REtuRN EXltS FOR READ
~b3b 042l7 G66042 JhP PEX~-2 ~03' ~4220 066120 JMp 6TRCD-2 6~8-~6~4 e4221 070742 ILET SAR 16 GFT SPElcAL CHAR fOR IMPLIED LET
~64~ ~4222 066164 JMP STMT-~ FIND 9LOCK FOQ IMPLIEO LET
~4 -~4' ~4''3 ~5~4'~ ILETS USZ BADDR
64~ 14' ~ Q6 0 JSM BNEXT RECALL CHARActER
044 ~4-~r ~5r41 d ~5Z 9ADDR
645 ~4 ~6R7' JSM LETC~ LETtER?
646 ~4 ~6h2~ JhP ILETl~l NO~ tRY INPLlEo DISP
~647 ~4 10 ~6~6~6 J5M SAVRP SAVE POINTERS
.
F~ ~ ...... .
10~6fi44 PAGE 0~57 #01 9B3~--MoNlToR
264B e4231 G62274 JSM LETS~ TRY "LET" SNTAX
2649 ~4232 066244 J~iP NSTMT~I OK- CHECK FOR EOL~
265~ 04233 ~6a640 ILETl JSM REsqP QESTOQE PolNTERs 2651 e4234 e20125 LDA P~roP STO~E CODE FOR
2652 ~4235 ~55706 GSZ SBPTR
2653 e4236 131706 STA SBPTR,I IMpLIED LET
2654 ~4237 645706 ISZ SBPTR
2655 e4240 025416 LCB MODE
2656 24241 ~74111 SLB ~ST~T S~IP IF PROG
2657 ~4242 ~62315 JSM PRNTS TRY l'PRINT" SYNTAX
2658 Z4243 062360 NSTMT JSM ERROR NO STATEMENT TYPE C~N BE FOUND
2659 64244 ~61153 JSM EOLCK END OF LINE?
2660 e4245 ~21416 L~A MO~E NO
2661 a4246 670111 SLA ~-2 2662 04247 ~66233 J~p ILE~l TRY PQINT SYNT~X IF CALC ~onE
2663 ~4250 665152 JhP NOEOF
2665 04251 021422 UKDEF LOA UKPTR IN KFY DFfINITION MO~E?
2666 24252 ~72110 RZA ~2 2667 e4253 16C2a6 UKERR JSM E~RA.T NO~ DEFINITIoN NOT ALLOWED
2668 ~4254 ~74742 SBR 16 2669 e4255 1357P6 SIB SBPTQ~I SET A 0 LINE NUMBER
2670 e4256 160253 JSM CHRSA,I ACCEPT AN ASCII STRING
2671 C4257 ~6652~ J~p ACTKY ACCEPT nEFINITIoN
2672~
2673 0426a 024132 GTRC2 LOB Ml 2674 ~4261 16~237 JSM SALTA~I SYSTEM COMMAND IN "INPUT"?
2675 a4262 165642 JMP SAVE-I NO~ RETURN ~ATA TO INPUT ST~T
2676 e4263 066134 Jhp GTRC3 YES- A~ORT INPUT
a677~
2678 C4264 010555 LTADD DEf ~*~S
2679 ~4265 045505 ASC l-KE
2680 e4266 ~54437 OCT 54437 Y-L~ZY-T
2681 04267 C~131 OURKA DEF .63-.~3~1 2652 a42?0 1~0001 CALSN OCT 100001 26S3 00116 IMPOP ECU ~ToP oP CODE 1 2684 ~0125 PQTOP EGU LaOP oP CODE 24 2685 O0100 STAQ E~ BS2 2687~
26S8~ LEt STATE~ENT SYNTAX
2689~
2690 04271 e62274 LETS JSM LETSN
2691 04272 065151 J~P EOST
2692 04273 160206 SYNE2 JS~ ERQ~.
2694~ LET SYNTAr $UBQOUTINE
2695~ EXIT P~lS StoRE OCC~RRED
2696~ P~2S NO SToRE OCCU~RED
2697~
2698 a4274 eSS710 LETSN ~SZ MSFLfi ENABLE AssIGNME~T
2699 Q4275 16~2e2 JSM FSC~I GET FOR~ULA
2700 ~4276 025714 LDF SFLAG
2703 e4301 ~64357 JMp RETN2 NO
104t~6~4 PAGE~Oes8 #01 s830--hoNIToR
2704~
2705~ WRITE AND PRINT StLTEMENT SYNTAX
27a7 e43~2 160265 ~ITF JSM IO~EA-I GET DEVICE AND FORMAT
2708 ~4303 ~6~534 JsM ~PC~E GET QIG~T PAREN
2709 ~43~4 0ss400 DSz ~ADDR
2710 943~5 ~5s706 ~SZ SBPTR
2711~
2712 04306 062315 PQINS JSM PRNTs CHEcK SyNTA~ ~Tn ACTST IF ~K) 2713 ~43~7 16~206 SYElS JSM ERRA,I IMPROPEQ SYNTAX
2714~
2715~ PRINt STATE~ENT SYNTAX SUBROUTINE
2716~
2717 ~4310 010043 PRINl CPA B42 QUOTE?
2718 e4311 066325 J~P PRlN2~4 YES
2719 ~4312 060461 JSM SYMC2 2720 a4313 6120el DEF COMMA-l COM~A OR SEMICo~oN?
2721 04314 ~66321 J~p PRIN2 NO
2722 04315 ~24132 PRNtS LD9 M 1 2723 ~4316 035712 STB PFLAG ENABLE FOR~ULA AND TA8 2724 Q4jl7 ~61e66 JSM GETSK
2725 04320 ~65150 J~P EOST-l 2726 a4321 610~43 PQIN2 C~A B42 QUOTE?
2727 ~4322 ~66324 JMp ~2 YES
2728 a4323 ~66334 J~p PRIN3 NO
2729 ~4324 045706 ISZ SBPTR
2730 ~4325 160245 JSM GTSTA,I RECORD STRING coNstANT
2731 Q4326 ~61153 JSM ~OLC~ EOL?
2732 e4327 074742 S~Q 16 2733 04330 135706 STB 58PtR.I CLEAP OUT NEXT ~ORD
2734 ~4331 ~24132 LOB Ml 2735 a4332 635712 SIB PFLAG ENABLE FORMULA
2736 04333 066310 J~p PRINl 2737 D4334 ~45712 PQIN3 ISZ PfLAfi~ t~F~ OR FOQMULA PEQMItTED?
2738 ~4335 170402 RET NO- RETUQN- IMPQOPER SYNTAX
2739 e4336 026354 LDB TA~A
274~ a4337 16~175 JS~ TSQMa,I LOOK FOR ~TAB"
2741 ~434fl ~66350 Jhp PRIN4 NO
2742 ~4341 070544 SAL ~
2744 e4343 C60454 JSM SBPUD-2 STORE CODE FOR TAB
2746 e434s 1357a6 ST~ SBPtQ.I
2747 D434h 16P2~2 JSM FSCA . I GET T~B FORMULA
2748 ~4347 ~6635~ JMp PRIN5 2749 ~4350 1~554~a PRIN4 D52 8ADDR PIACK UP P~)INtER
2750 04351 16a202 Js~ FSCA.2 FETC~ FORMULA
2751 a4352 061153 PRIN5 JS~ EOLCK EOL?
2752 ~4353 ~66310 J~p PRINl NO
2753 04354 ~23?73 Tb8b DEF Tb9~TAR~l PAGE 0eS9 #01 9830--MoNIToR
275s~
27s6~ OUTPUT EQROQ # ~ 'l P~ l 2758 e435s G6Q405 AERR JSM XFARl SAVE AR2 IN ARl 27s9 ~4356 06~400 JSM GPAR~ GET ERROR ~ IN ~B) 2760 e43s7 056370 JMp ERR
276l~
2762- OUTPUT ~RQOR # fRO~ ERRoR TA~LE
2763~ .
2764 e4360 05s777 EQQOR DSZ RSpTQ
276s 04361 121777 LDA ~SPTR,I ERROR SOUQCE IN ~A) 2766 OE4362 ~26476 LDB ERBs TABLE ADDRESS IN ~B~
2767 a4363 G74070 518 *~1 INC ADD2FSS
2768 84364 ~744s7 CPA ~-I MATCH?
2769 Q4365 ~74~76 TC~ YES
2770 a4366 e7s6s3 s~p ~-3 CONT INUE IF NO ~AtC~
2771 04367 006476 ADB ER~S COMPUIE NEGATI~E OF ~RROR #
2772 ~43?0 G35706 EQRl SIB SBPTQ SAVE -~ERROR #
2773 04371 02l450 LOA PMODE
774 04372 072350 R~A E~R2 277,s ~4373 G21433 LOA TFLAG
2776 ~4374 6702s0 52A ERR2 SKIP IF NoT PTAPE
2777 0437s 02~60 LDA .10a 2778 e437~ 624211 LDB .BUF~
2779 G4~77 66l337 JSM NDWQT PRI~T LI~E IF PTAPE ~ND P-ALL
2780 ~4400 ~61344 JSM CRLFl 2781 ~4401 02~4l6 EQR2 LDA MODE
2782 ~4402 070112~ SA~ ~z SKIP IF SYNTA~ ~onE
27~3 e44~3 160264 JSM CQCK~I TER~INATE CURRENT LI~E
2784 ~4404 160170 JSM CLFRA,I CLEAR BUFFER
27S5 Q440s 03s622 S~R TERM SET UNTEP~INATE~ FLAG
Z786 e4406 G2~127 LDA B17~K
2787 e4407 b31447 STA SLCOD SET TO STANDAR~ PRINTER
278B ~4410 ~20023 LDA ~5 27es 04411 e26464 LD~ EMSfiA
27g0 04412 C61335 JSM ~PWRt PUT "ERQOR" I~ ~UFFEQ
2791 B4413 0257n6 LDB SaPtR
2792 04414 0?4076 TcB
2793 04415 160210 J5M OUTIA,I ouTPut PosITIvE EQROR #
2794 e4416 92s427 L~ .LNU~ IS A LI~E ~U~BEQ
2795 e4417 ~74310 SZB ERR3 ' APPLICA~LE
2796 a4420 020026 LOA ~9 2797 04421 e264~s LOB L~SGA
27g8 e4422 ~61335 JSM NPWR~ PUT "I~ LINE " IN BUFFEQ
2799 e4423 e2s427 LD8 ~LNU~
2800 04424 160210 JiM OUTI~I OUTPUT LINE
2801 ~442s ~454C0 ERQ3 I~2 BADDR
2802 a4426 04s4a0 ~sz BADDQ oUtPUT ? FLANKS
2803 ~4427 ~21433 LDA TFLAG
2804 ~443a C72110 R2A ~2 2805 e4431 e72~53 SAP ~l-S SET TO ~PPI~T" IF PT~PE
2806 e4432 031453 SIA PRFLG SET "DISP"FLAG
2807 e4433 160176 JSM ELINA~I ouTpuT ERQOR
2808 e4434 160264 JSM CRC~A~I GlvE CRLF IF P-ALL OQ PT~PE
2809 ~443s 0257C6 ERR4 LOB SBPTQ QECALL - (EQROR
2B10 e4436 ~!114132 ~f:E~ Ml ERROR l?
28~
DEMANDES OU BREVETS VOLUMINEUX
11~ PRÉSENTE PARTIE DE C I I E DEMANDE OU CE BREVET
COMPREND PLUS D'UN TOME.
CECI EST LE OME i DE
-NOl E: Pour les tomes additionel~, veuillez contacter le Bureau canadien des brevets JUMBO APPL CATIONS/PATENTS
THIS SECTION OF THE APPLlCATlON/iATENT CONTAINS MORE
THAN ONE VOLUME
THIS IS VOLUME I _ OF ~' - NOTE: For additional volumes ~clease c~ntac~ the Canadian Patent O.ffice
Claims (17)
PROPERTY OR PRIVILEGE IS CLAIMED ARE DEFINED AS FOLLOWS:
1. Electronic data processing apparatus comprising:
keyboard input means for entering lines of one or more alphameric characters each into said electronic data processing apparatus;
said keyboard input means including insertion control means for controlling the insertion of one or more characters into a line of one or more alphameric characters;
first memory means for storing lines of one or more alpha-meric characters each;
second memory means, coupled to said keyboard input means and first memory means, for storing a line of one or more alpha-meric characters entered into said electronic data processing apparatus from said keyboard input means or recalled from said first memory means;
display means, coupled to said second memory means, for visually displaying a line of one or more alphameric characters stored in said second memory means;
said display means including means for visually displaying a cursor for designating any character position of the displayed line of one or more alphameric characters;
said keyboard input means including cursor control means for controlling the position of said cursor; and logic means, coupled to said keyboard input means, second memory means, and display means, for positioning said cursor to designate any character position of the displayed line of one or more alphameric characters in response to actuation of said cursor control means;
said logic means being responsive to each actuation of said insertion control means for shifting selected ones of the alphameric characters in the line of one or more alphameric characters then stored in said second memory means and displayed by said display means to insert a blank character at the charac-ter position then designated by said cursor.
keyboard input means for entering lines of one or more alphameric characters each into said electronic data processing apparatus;
said keyboard input means including insertion control means for controlling the insertion of one or more characters into a line of one or more alphameric characters;
first memory means for storing lines of one or more alpha-meric characters each;
second memory means, coupled to said keyboard input means and first memory means, for storing a line of one or more alpha-meric characters entered into said electronic data processing apparatus from said keyboard input means or recalled from said first memory means;
display means, coupled to said second memory means, for visually displaying a line of one or more alphameric characters stored in said second memory means;
said display means including means for visually displaying a cursor for designating any character position of the displayed line of one or more alphameric characters;
said keyboard input means including cursor control means for controlling the position of said cursor; and logic means, coupled to said keyboard input means, second memory means, and display means, for positioning said cursor to designate any character position of the displayed line of one or more alphameric characters in response to actuation of said cursor control means;
said logic means being responsive to each actuation of said insertion control means for shifting selected ones of the alphameric characters in the line of one or more alphameric characters then stored in said second memory means and displayed by said display means to insert a blank character at the charac-ter position then designated by said cursor.
2. Electronic data processing apparatus as in claim 1 wherein said cursor control means comprises a single control key for moving said cursor to the left and a single control key for moving said cursor to the right.
3. Electronic data processing apparatus as in claim 1 wherein:
said keyboard input means includes a space bar; and said logic means is responsive to actuation of said space bar for introducing a blank character at one or more character positions in a line of one or more alphameric charac-ters stored or being stored in said second memory means.
said keyboard input means includes a space bar; and said logic means is responsive to actuation of said space bar for introducing a blank character at one or more character positions in a line of one or more alphameric charac-ters stored or being stored in said second memory means.
4. Electronic data processing apparatus as in claim 1 wherein any alphameric character designated by actuation of any alphameric key of said keyboard input means may be inserted at the character position occupied by each blank character.
5. Electronic data processing apparatus as in claim 1 wherein said insertion control means comprises a single control key.
6. Electronic data processing apparatus as in claim 1 wherein:
said keyboard input means includes deletion control means for controlling the deletion of one or more characters from a line of one or more alphameric characters; and said logic means is responsive to actuation of said deletion control means for deleting a character from the line of one or more alphameric characters then stored in said second memory means and displayed by said display means at the charac-ter position then designated by said cursor.
said keyboard input means includes deletion control means for controlling the deletion of one or more characters from a line of one or more alphameric characters; and said logic means is responsive to actuation of said deletion control means for deleting a character from the line of one or more alphameric characters then stored in said second memory means and displayed by said display means at the charac-ter position then designated by said cursor.
7. Electronic data processing apparatus as in claim 6 wherein:
said deletion control means comprises a shift control key and one other control key; and said logic means is responsive to simultaneous actuation of those two keys for deleting a character from the line of one or more alphameric characters then stored in said second memory means and displayed by said display means at the charac-ter position then designated by said cursor.
said deletion control means comprises a shift control key and one other control key; and said logic means is responsive to simultaneous actuation of those two keys for deleting a character from the line of one or more alphameric characters then stored in said second memory means and displayed by said display means at the charac-ter position then designated by said cursor.
8. Electronic data processing apparatus as in claim 1 wherein:
said keyboard input means includes display position control means for controlling the position of the displayed line of one or more alphameric characters; and said logic means is responsive to actuation of said display position control means for moving the displayed line of one or more alphameric characters either to the left or the right independently of said cursor.
said keyboard input means includes display position control means for controlling the position of the displayed line of one or more alphameric characters; and said logic means is responsive to actuation of said display position control means for moving the displayed line of one or more alphameric characters either to the left or the right independently of said cursor.
9. Electronic data processing apparatus as in claim 8 wherein said display position control means comprises a single control key for moving the displayed line of one or more alpha-meric characters to the left, and a single control key for moving the displayed line of one or more alphameric characters to the right.
10. Electronic data processing apparatus as in claim 8 wherein:
said keyboard input means includes storage control means for storing a line of one or more alphameric characters in said first memory means; and said logic means is responsive to actuation of said storage control means for transferring the line of one or more alphameric characters then stored in said second memory means and displayed by said display means from said second memory means to said first memory means irrespective of the position of said cursor or the displayed line of one or more alphameric characters.
said keyboard input means includes storage control means for storing a line of one or more alphameric characters in said first memory means; and said logic means is responsive to actuation of said storage control means for transferring the line of one or more alphameric characters then stored in said second memory means and displayed by said display means from said second memory means to said first memory means irrespective of the position of said cursor or the displayed line of one or more alphameric characters.
11. Electronic data processing apparatus as in claim 10 wherein said storage control means comprises a single control key.
12. Electronic data processing apparatus as in claim 1 wherein:
said keyboard input means includes a plurality of numeric keys for entering lines of one or more alphameric characters each into said electronic data processing apparatus;
said keyboard input means further includes a memory recall control key for recalling a designated line or one or more alpha-meric characters from said first memory means to said second memory means;
each line of one or more alphameric characters stored in said first memory means being associated with a separate line number; and said logic means is coupled to said keyboard input means and first and second memory means for transferring a line of one or more alphameric characters from said first memory means to said second memory means in response to sequential actuation of said memory recall control key and one or more of said numeric keys designating the line number associated with the line of one or more alphameric characters to be transferred.
said keyboard input means includes a plurality of numeric keys for entering lines of one or more alphameric characters each into said electronic data processing apparatus;
said keyboard input means further includes a memory recall control key for recalling a designated line or one or more alpha-meric characters from said first memory means to said second memory means;
each line of one or more alphameric characters stored in said first memory means being associated with a separate line number; and said logic means is coupled to said keyboard input means and first and second memory means for transferring a line of one or more alphameric characters from said first memory means to said second memory means in response to sequential actuation of said memory recall control key and one or more of said numeric keys designating the line number associated with the line of one or more alphameric characters to be transferred.
13. Electronic data processing apparatus as in claim 12 wherein:
said keyboard input means includes first and second memory control keys;
said logic means includes a line number counter for designating the line number associated with the line of one or more alphameric characters then stored in said second memory means; and said logic means is responsive to actuation of said first memory control key or said second memory control key for incre-menting or decrementing, respectively, said line number counter and for transferring the line of one or more alphameric charac-ters associated with the line number then designated by said line number counter from said first memory means to said second memory means.
said keyboard input means includes first and second memory control keys;
said logic means includes a line number counter for designating the line number associated with the line of one or more alphameric characters then stored in said second memory means; and said logic means is responsive to actuation of said first memory control key or said second memory control key for incre-menting or decrementing, respectively, said line number counter and for transferring the line of one or more alphameric charac-ters associated with the line number then designated by said line number counter from said first memory means to said second memory means.
14. Electronic data processing apparatus as in claim 13 wherein said logic means is responsive to successive actuation of said first memory control key or said second memory control key for successively incrementing or decrementing, respectively, said line number counter and for successively transferring the lines of one or more alphameric characters associated with the line numbers successively designated by said line number counter from said first memory means to said second memory means.
15. Electronic data processing apparatus as in claim 1 wherein:
said keyboard input means includes one or more control keys for terminating each line of one or more alphameric charac-ters entered into said electronic data processing apparatus, and a recall key for recalling a line of one or more alphameric characters to said second memory means;
said electronic data processing apparatus includes third memory means, coupled to said keyboard input means and second memory means, for storing the line of one or more alphameric characters most recently terminated by one of said control keys;
and said electronic data processing apparatus including logic means, coupled to said keyboard input means and first and second memory means, for transferring the line of one or more alphameric characters then stored in said second memory means to said first memory means in response to actuation of said recall key.
said keyboard input means includes one or more control keys for terminating each line of one or more alphameric charac-ters entered into said electronic data processing apparatus, and a recall key for recalling a line of one or more alphameric characters to said second memory means;
said electronic data processing apparatus includes third memory means, coupled to said keyboard input means and second memory means, for storing the line of one or more alphameric characters most recently terminated by one of said control keys;
and said electronic data processing apparatus including logic means, coupled to said keyboard input means and first and second memory means, for transferring the line of one or more alphameric characters then stored in said second memory means to said first memory means in response to actuation of said recall key.
16. Electronic data processing apparatus as in claim 1 wherein:
said first memory means is operable for storing a program of one or more lines of one or more alphameric characters each;
said electronic data processing apparatus includes processing means, coupled to said keyboard input means and first and second memory means, for executing said program to perform a selected calculation or some other function and for storing the result of the selected calculation in said second memory means;
said keyboard input means includes memory recall control means for recalling a designated line of one or more alphameric characters from said first memory means to said second memory means, program halt control means for halting the execution of said program by said processing means, and program continue control means for resuming the execution of said program by said processing means; and said logic means is coupled to said keyboard input means, first and second memory means, and processing means for halting execution of said program in response to actuation of said program halt control means, for thereafter transferring a designated line of one or more alphameric characters of said program from said first memory means to said second memory means in response to actuation of said memory recall control means, and for thereafter resuming execution of said program, at the point where its execution was halted, in response to actuation of said program continue control means.
said first memory means is operable for storing a program of one or more lines of one or more alphameric characters each;
said electronic data processing apparatus includes processing means, coupled to said keyboard input means and first and second memory means, for executing said program to perform a selected calculation or some other function and for storing the result of the selected calculation in said second memory means;
said keyboard input means includes memory recall control means for recalling a designated line of one or more alphameric characters from said first memory means to said second memory means, program halt control means for halting the execution of said program by said processing means, and program continue control means for resuming the execution of said program by said processing means; and said logic means is coupled to said keyboard input means, first and second memory means, and processing means for halting execution of said program in response to actuation of said program halt control means, for thereafter transferring a designated line of one or more alphameric characters of said program from said first memory means to said second memory means in response to actuation of said memory recall control means, and for thereafter resuming execution of said program, at the point where its execution was halted, in response to actuation of said program continue control means.
17. Electronic data processing apparatus as in claim 16 wherein:
said memory recall control means comprises a memory recall control key operable with one or more numeric keys for recalling a designated line of one or more alphameric characters of said program from said first memory means to said second memory means;
said program halt control means comprises a single control key; and said program continue control means also comprises a single control key.
said memory recall control means comprises a memory recall control key operable with one or more numeric keys for recalling a designated line of one or more alphameric characters of said program from said first memory means to said second memory means;
said program halt control means comprises a single control key; and said program continue control means also comprises a single control key.
Priority Applications (1)
Application Number | Priority Date | Filing Date | Title |
---|---|---|---|
CA316,026A CA1099020A (en) | 1972-07-07 | 1978-11-09 | Programmable calculator |
Applications Claiming Priority (1)
Application Number | Priority Date | Filing Date | Title |
---|---|---|---|
US26989972A | 1972-07-07 | 1972-07-07 |
Publications (1)
Publication Number | Publication Date |
---|---|
CA1046644A true CA1046644A (en) | 1979-01-16 |
Family
ID=23029094
Family Applications (1)
Application Number | Title | Priority Date | Filing Date |
---|---|---|---|
CA174,483A Expired CA1046644A (en) | 1972-07-07 | 1973-06-19 | Programmable calculator |
Country Status (9)
Country | Link |
---|---|
JP (1) | JPS5545943B2 (en) |
CA (1) | CA1046644A (en) |
CH (1) | CH597649A5 (en) |
DE (7) | DE2365570A1 (en) |
FR (1) | FR2192338B1 (en) |
GB (9) | GB1444148A (en) |
HK (3) | HK68278A (en) |
IT (1) | IT990351B (en) |
ZA (1) | ZA734414B (en) |
Families Citing this family (17)
Publication number | Priority date | Publication date | Assignee | Title |
---|---|---|---|---|
JPS5526502B2 (en) * | 1974-06-06 | 1980-07-14 | ||
JPS5416160A (en) * | 1977-07-07 | 1979-02-06 | Fuji Electric Co Ltd | Waveform shaping circuit |
JPS5576451A (en) * | 1978-12-04 | 1980-06-09 | Casio Comput Co Ltd | Program checking system |
DE2929545A1 (en) * | 1979-07-20 | 1981-01-29 | Heidenhain Gmbh Dr Johannes | METHOD AND CIRCUIT ARRANGEMENT FOR PROGRAMMING AND / OR CHANGING PROGRAMS IN NUMERICALLY CONTROLLED MACHINES |
IT1188909B (en) * | 1980-02-26 | 1988-01-28 | Alessandro Mascioli | MINIATURIZED WRITING MACHINE WITH ELECTRONIC STORAGE OF MULTIPLE WRITING AND TRANSFER PAGES FOR READING ON THE DISPLAY LINE AND / OR CONNECTED PRINTER |
DE3028850A1 (en) * | 1980-07-30 | 1982-03-04 | Robert Bosch Gmbh, 7000 Stuttgart | Vehicle test device with memory cassette - containing EPROM and optical transfer system with protective cover |
JPS5781656A (en) * | 1980-11-07 | 1982-05-21 | Canon Inc | Program computer |
JPS57100562A (en) * | 1980-12-15 | 1982-06-22 | Sony Corp | Word processor |
JPS58195251A (en) * | 1982-05-07 | 1983-11-14 | Sony Corp | Command extending device |
DE3325153A1 (en) * | 1982-07-12 | 1984-01-12 | Sharp K.K., Osaka | PROGRAMMABLE ELECTRONIC COMPUTER |
GB2129175B (en) * | 1982-10-26 | 1986-04-30 | Atomic Energy Authority Uk | Draughting machine |
JPS59218534A (en) * | 1983-03-24 | 1984-12-08 | Fanuc Ltd | Connection control system of external device |
JPS5927364A (en) * | 1983-06-30 | 1984-02-13 | Brother Ind Ltd | Electronic typewriter having operating function |
JPS59103165A (en) * | 1983-09-27 | 1984-06-14 | Sharp Corp | Electronic computor with program |
US5112626A (en) * | 1990-12-31 | 1992-05-12 | The Pillsbury Company | Aerated frozen dessert compositions and products |
US5175013A (en) * | 1990-12-31 | 1992-12-29 | The Pillsbury Company | Frozen dessert compositions and products |
US6379736B1 (en) | 1999-10-05 | 2002-04-30 | The Pillsbury Company | Gelato composition |
-
1973
- 1973-06-19 CA CA174,483A patent/CA1046644A/en not_active Expired
- 1973-06-28 ZA ZA00734414A patent/ZA734414B/en unknown
- 1973-07-04 DE DE2365570*A patent/DE2365570A1/en active Pending
- 1973-07-04 DE DE2365543*A patent/DE2365543A1/en active Pending
- 1973-07-04 DE DE2365568*A patent/DE2365568A1/en active Pending
- 1973-07-04 DE DE2365569*A patent/DE2365569A1/en active Pending
- 1973-07-04 DE DE2365542*A patent/DE2365542A1/en active Pending
- 1973-07-04 DE DE19732333908 patent/DE2333908A1/en active Pending
- 1973-07-04 DE DE2365567*A patent/DE2365567A1/en active Pending
- 1973-07-05 CH CH977473A patent/CH597649A5/xx not_active IP Right Cessation
- 1973-07-06 GB GB335176A patent/GB1444148A/en not_active Expired
- 1973-07-06 GB GB334876A patent/GB1444145A/en not_active Expired
- 1973-07-06 GB GB335076A patent/GB1444147A/en not_active Expired
- 1973-07-06 GB GB334776A patent/GB1444144A/en not_active Expired
- 1973-07-06 GB GB334676A patent/GB1444143A/en not_active Expired
- 1973-07-06 GB GB334976A patent/GB1444146A/en not_active Expired
- 1973-07-06 GB GB3226973A patent/GB1444141A/en not_active Expired
- 1973-07-06 JP JP7583573A patent/JPS5545943B2/ja not_active Expired
- 1973-07-06 GB GB334576A patent/GB1444142A/en not_active Expired
- 1973-07-06 GB GB335276A patent/GB1444149A/en not_active Expired
- 1973-07-09 IT IT51340/73A patent/IT990351B/en active
- 1973-07-09 FR FR7325068A patent/FR2192338B1/fr not_active Expired
-
1978
- 1978-11-23 HK HK682/78A patent/HK68278A/en unknown
- 1978-11-23 HK HK680/78A patent/HK68078A/en unknown
- 1978-11-23 HK HK681/78A patent/HK68178A/en unknown
Also Published As
Publication number | Publication date |
---|---|
ZA734414B (en) | 1975-02-26 |
JPS5545943B2 (en) | 1980-11-20 |
DE2365567A1 (en) | 1975-06-12 |
DE2365543A1 (en) | 1975-04-30 |
GB1444144A (en) | 1976-07-28 |
DE2365570A1 (en) | 1975-05-22 |
CH597649A5 (en) | 1978-04-14 |
HK68078A (en) | 1978-12-01 |
GB1444148A (en) | 1976-07-28 |
GB1444142A (en) | 1976-07-28 |
JPS4948257A (en) | 1974-05-10 |
HK68278A (en) | 1978-12-01 |
DE2365542A1 (en) | 1975-05-22 |
FR2192338B1 (en) | 1975-02-07 |
GB1444143A (en) | 1976-07-28 |
GB1444145A (en) | 1976-07-28 |
DE2333908A1 (en) | 1974-01-24 |
DE2365568A1 (en) | 1975-07-17 |
GB1444141A (en) | 1976-07-28 |
HK68178A (en) | 1978-12-01 |
IT990351B (en) | 1975-06-20 |
GB1444149A (en) | 1976-07-28 |
DE2365569A1 (en) | 1975-06-12 |
GB1444147A (en) | 1976-07-28 |
FR2192338A1 (en) | 1974-02-08 |
GB1444146A (en) | 1976-07-28 |
Similar Documents
Publication | Publication Date | Title |
---|---|---|
CA1046644A (en) | Programmable calculator | |
Crowley-Milling et al. | The NODAL System for the SPS | |
US4180854A (en) | Programmable calculator having string variable editing capability | |
US3374466A (en) | Data processing system | |
US3304418A (en) | Binary-coded decimal adder with radix correction | |
US4012725A (en) | Programmable calculator | |
CA1080851A (en) | Programmable calculator | |
US3328763A (en) | Electronic desk-type computer | |
DE2264898A1 (en) | ELECTRONIC CALCULATOR | |
JPS631615B2 (en) | ||
Rice et al. | SYMBOL: A major departure from classic software dominated von Neumann computing systems | |
CA1169569A (en) | Method for editing spatially related data in an interactive text processing system | |
EP0575066A2 (en) | Error handling in a state-free system | |
JPH0568735B2 (en) | ||
US3641329A (en) | Improvements in electronic computer keyboard control | |
Wright | The facts on file dictionary of computer science | |
US3042902A (en) | Information location apparatus | |
Whiting et al. | Microprocessors in CRT terminals | |
Barton et al. | No. 2 ESS: Service programs | |
Barrett et al. | C and UNIX: tools for software design | |
Alston et al. | Quest: An On‐Line Event‐Processing Routine | |
Manual | Be-ALGOL | |
CA1058760A (en) | Programmable calculator with definable keys | |
East | FOCAL LSL PROGRAMMING MANUAL. | |
Moyd | FORTRAN Implementation of Tutorial Input |