US3859635A

Programmable calculator

Abstract

A modular read-write and read-only memory unit capable of employing both direct and indirect decimal and symbolic addressing, a central processing unit capable of performing both serial binary and parallel binary-coded-decimal direct and indirect memory register arithmetic, and an input-output control unit capable of bidirectionally transferring information between the central processing unit and a number of input and output units are controlled by a microprocessor included in the central processing unit. The input and output units include a keyboard input unit with a section capable of being defined by plug-in read-only memory modules and stored programs added by the user, a magnetic card reading and recording unit capable of bidirectionally transferring information between an external magnetic card and the calculator, and a solid state output display unit capable of displaying three lines of numeric information. An output printer unit capable of printing out every alphabetic and numeric character and many other symbols individually and in messages may also be included with the other input and output units.

US3859635A, drawing sheet 1 — Sheet 1 of 620

Term

Term ended

Expired 7 January 1992, 34.7 years ago.

17 claims: 1 independent, 16 dependent

1
We claim:1. An electronic desk type calculator, portable calculator, or the like including an input unit for entering information into the calculator, a basic first memory unit into which information may be written and from which information may be read, a basic second memory unit for storing routines and/or subroutines to be executed by the calculator in performing selected functions, plug-in adaptor means for enabling the user to removably plug one or more additional second memory units for storing routines and/or subroutines to be executed by the calculator in performing additional selected functions into the calculator to increase the number of functions that may be performed by the calculator, processing means responsive to information from the input unit or the basic first memory unit and to operating states within the calculator itself for selectively executing one or more of the routine and/or subroutines stored in the basic second memory unit to perform one or more of the selected functions employing information from one or both of the input and basic first memory units, said processing means being further responsive to information from the input unit or the basic first memory unit and to operating states within the calculator itself when an additional second memory unit is plugged into the calculator for selectively executing one or more of the routines and/or subroutines stored in that additional second memory unit to perform one or more of the additional selected functions employing information from one or both of the input and basic first memory units, and an output unit for providing an output indication of the results of the selected and additional selected functions performed by the calculator.

11,220 paragraphs in 936 sections, as filed

[57] ABSTRACT

A modular read-write and read-only memory unit capable of employing both direct and indirect decimal and symbolic addressing, a central processing unit ca pable of performing both serial binary and parallel binary-coded-decimal direct and indirect memory register arithmetic, and an input-output control unit capable of bidirectionally transferring information between the central processing unit and a number of input and output units are controlled by a microprocessor included in the central processing unit. The input and output units include a keyboard input unit with a section capable of being defined by plug-in read-only memory modules and stored programs added by the user, a magnetic card reading and recording unit capable of bidirectionally transferring information between an external magnetic card and the calculator, and a solid state output display unit capable of displaying three lines of numeric information. An output printer unit capable of printing out every alphabetic and numeric character and many other symbols individually and in messages may also be included with the other input and output units.

The memory, central processing, input-output control, input, and output units are employed to provide an adaptable programmable calculator that may be operated manually by the user from the keyboard input unit or automatically by a program stored in the memory unit. This calculator may also be employed to load programs into the memory unit from the keyboard input unit, to separately transfer either data or programs bidirectionally between the memory unit and an external magnetic card, to code programs stored in the memory unit as being secure when they are transferred to an external magnetic card and thereby prevent users of the calculator from re-transferring them to an external magnetic card or obtaining any indication of the individual program steps once they are reloaded into the calculator, to edit programs stored in the memory unit and to print out keystroke logs, program lists, labels, and messages. The read-write memory available to the user may be expanded by the addition of program storage memory modules or by the alteration of the data storage memory control.

Claims, 361 Drawing Figures

182

PATENTED JAN 71975 3,859,635

SHEET 01 OF 224

10,

FIGI

PATENTED JAN 71975

3,059,635

SHEET 02 OF 224

PATENTED JAN 71975

3,059,635

SHEET 03 OF 224

PATENTED JAN 71975

3,859,635

SHEET DU OF 224 1/0 REG1STER -----------1 I/O REGISTER AND GATES

PATENTED JAN 71975

3.859,635

SHEET 05 OF 224

PLUG-IN PLUG-IN . PLUG-IN

PATENTED JAH 71975

3,859,635

SHEET CS OF 224

1777 1776

1775 1774 1773

1772 1771 1770 1767 1766 1765 1764 1763 1762 1761 1760 1757 1756 1755 1754 1753 1752 1751 1750 1747 1746 1745 1744 1743 1742 1741 1740 1737 1736 1735 1734 1733 1732 1731 1730 1727 1726 1725 1724 1723 1722 1721 1720 1717 1716 1715 1714 1713 1712 1711 1710 1707 1706 1705 1704 1703 1702 1701 1700 1677 1676 1675 1674 1673

1672 1671 1670 1667 1666 1665 1664

Bits

PATENTED JAN 71975

3,859,635

SHEET D7 OF 224

Page 5

USER DEFINABLE FUNCTIONS

12013

12012

12011

12010

12007

12006

12005

12004

12003

12002

12001

12000 insert-delete protected function

<td colspan="2"> Security We</td><td> rd</td>

<td colspan="2"> Available</td><td></td>

<td colspan="2"> Print Code Bt</td><td> f f er</td>

<td colspan="2"> Temporary Di (Register Poi</td><td> splay nter)</td>

<td colspan="2"> Temporary Di (Decimal Posi</td><td> splay tion)</td>

<td colspan="2"> Temporary Dis (Character Poi</td><td> play nter)</td>

<td colspan="2"> Print FIs</td><td> g</td>

<td colspan="2"> Normalize 1</td><td> lag</td>

<td colspan="2"> Automatit Execution 1</td><td> lag</td>

p-6 Bits^

FIG 9

FIG 10

FIG 6

I 2 3 *—NUMBER OF VARIABLES—I

FIG II

PATENTED JAN 71975

3,859,635

SHEET 08 OF 224

FIG7A

3,859,635

PATENTED JAN 71975

SHEET C9 OF 224

PATENTED JAN 71975 3,859,635

SHEET 10 OF 224

DECIMAL OPERATION INSTRUCTION GROUP -----------------------------------------------------------------------------------------------------------------------------------------------------------------:---------------------------------------------------------------------------------------------------(I/O GROUP) (MAC-GROUP)

FLOWCHART PART 1

FLOWCHART

MftT 2

NOTE: SUBROUTINES FOR INDIVIDUAL INSTRUCTION EXECUTION USE COMMON PATHS, COMMON LOOPS, COMMON BRANCHES, ETC. IN THE DETAIL FLOWCHART

PATENTED JAN 71975

3,859.635

SHEET 11 OF 224

PATENTEDJAH 71975

SHEET 12 OF 224

3,859,635

BASIC KEYBOARD AND PRINTER ALPHA KEYBOARD

H (=) fs) (τ) A (=)0^-)

FIG 8

CALCULATOR KEYBOARD TO TYPEWRITER1 UNSHIFTED AND SHIFTED

•CARRIAGE RETURN/LINE FEED

FIG 12

PATENTED JAN 71975

3,859,635

SHEET 13 OF 224

FETCH KEYCODE FROM PROGRAM MEMORY

INCREMENT USER PROGRAM COUNTER

RESET AUTOMATIC EXECUTION · FLAG ( DISPLAY )

BUILD DISPLAY LIST FROM X.Y.ZOR

PROGRAM AREA

SET AUTOMATIC EXECUTION FLAG

DISPLAY FROM DISPLAY LIST

PRINT ADDRESS AND KEYCODE

PRINT KEYCOOE

IS IT CONTROL KEY <7—BIT CODE)

NEW KEY

DEPRESSED

KEYLOG

FLAG SET

PRGM.

MODE SET

CONTINU

KEYCODE

KEYLOG

FLAG SET

STORE KEYCODE IN USER PROGRAM MEMORY (interpreter)

I

SET USER PROGRAM COUNTER

TO ΛΜ

SELECTAND x EXECUTE ROUTINE FOR KEYCODE y

PAUSE

KEYCODE

STOP

KEYCODE

END

KEYCOOE

STOP KEY

DEPRESSED ON

AUTO.

XECUTION FLAG

SET?

INCREMENT USER PROGRAM COUNTER

REVERT TO DISPLAY FOR 0.25 SECOND

AUTO.

XECUTION FLAG

NY KEY DEPRESSED <

SET AUTOMATIC EXECUTION

FLAG

PATENTED JAN 71975

3,859,635

SHEET 1U OF 224

Ewreg.

&4>26

Proyavn Mode

Efrlulliikc-i, TVcorvwiA s+rp ovwi octal c<mW*. Ρύ-Ι-*·Ζ· ’ PC-*T, PC*!-*/.

___ik_

BuilU

Duplay List

T+ahtWes obspia^ ( UsP \w4o sajrcevvF lolankw«|, yv^cC ckac posi-ho*..

(df, 2fi) fill rocrhnes here. call

Display liauhne..

CalcoiaW lAcdc | TVanfrfart^s Χ,Ύ, a^d. ?I mta a. 'Όιί>ρΐΛΊ

I Lsf , an i5omofpU<c n\ap

I oP d<5t>lc>/edl dw+s.

FIG 14 itai/C Duplay Rlxas.

PATENTED JAN 71975

3.859,635

SHEET 15 OF 224

PATENTED JAN 71975

3,859,635

SHEET 16 OF 224

FIG I5B

PATENTEDJAN 71975 3,859,635

SHEET 17 OF 224

LIST

BUILDING PROCESS

E MR ACT Aho

ΌιίηιΤ AR.Z.

6ΗΛ2. Hat

ΟυτΡυΓ εχη>ΝΕΜΓ~

ΧλΙ FiAEP R>KT, THIS AluxOS, i X <o’ To ΑΡΗΕΑβ As IOOOOO.

—*“ 35? t^rr-s our

CMAK. Ftoi z time foe

FloATIMC ftiNf vAOK2:_______

Ϊ82 Ot&ns OUT

Output Blamk.

5HcUkb

ΤΗ»-ς Rt tcccee

FIG I5C

PATENTED JAN 71975 3,859,635

SHEET 18 OF 224

Btarrkm? geo di.

K H '! g U » <) β 7 ώ S’ / 3 2 to

Blanking: φ Blank -seymerl; Feif. φrf ie/ccP r&pibtr' fbs : 4-2 LefImoH- char, m rey nfer.

FIG 16 ΰυίροΊ~ b>l- -for ~f serjmervF display.

~2 ! OS7G*t ZGF - ΊΖ

FIG 17 b'tpfytiif but!+ m PjMd^Ukrk, Area.

If #4 dijil Ή -Ihc The ideatal 4 kf* bt-tpla^ /nF is a : bre,:

Φoooo /Ooo)

2OO/O

3ooi I

4O loO

F0/0/ o t / o ?oiii βI OoQ

9toot ~to /O blank.toil aaimaJ / / oo a-sfersk. (Pnn-ler only)//0/

Eki

IF -the displayed /ip'5-/e< '5 2o3s-------77id display hsP rnusi b<.

For 5ow»e T* £ I7HB, ΠΤοΒ, Π3Μβ$

FIG 18 Tnhsrnal display kisf Sbruc/ung.,

PATENTED JAN 71975

3,859,635

SHEET 19 3F 224

PATENTED JAN 71975 3.859.635

SHEET 20 OF 224

MONITOR FLOWCHART

FIG I9B

PATENTED JAN 71975

3,859.635

SHEET 21 OF 224

PATENTED·»» 71875 3,859.635

SHEET 22 Of 224

PRofe (,313) fixed (six)

Ziftecrwc tab is entity

Directive table ozney Ho. 310

Program Key processing fixed rey processing (^evcote /¼) («ycopE //φ)

FIG2IA FIG2ID

PATENTED JAN 71975

3,859,635

SHEET 23 OF 224

2>i<ecr/v£ τλκ,ε cmtcv Sigccrr/E tajlE «a>W

No 3ez ho. 3n gun Key pgocess !Ng fz.oA7 a-ex p<oces3»hg

OercocE mt') ( *w»s· //>)

FIG2IB FIG2IC

FIG 22 /Α,τ&εΡιβΕΓεΛ.

/iPECT/VE JfCYS P£OC£ss/f)& C7 bit a>Jes)

PATENTED JAH 71975

3,859,635

SHEET 2U OF 224

CiMt (<<0

Χ>ιβ€οτ/νε TABLE £WT*y · 3>φ I back, ζτερ αεν Pfjoc.essfnG

LKtVCaPC /^>/J ι>><εοτζν£ key

FIG 23

iKT£kp£ere(k p/oujCkAfitrs

Di«6<.TiU£ TMBIE CMTAr

FIG 24 gtgAA. <ey AAycf3s/A-*6 («Y£z>t>6 Λφ)

PATENTED JAN 71975

3,859,635

SHEET 25 OF 224

τ>ι£Έ.ί.Τ>νε· 7AIL£ CHTHy (Jo -?4 έ tuizecnvf table εμτ£ϋ

Mo. J4<

ENO jC£Y PROCE SS i hC, /ίχ<>ΐ£ yL )

FIG 25 stop xey peaces*/a/£ (ΚΕΫ&ο£ 4')

FIG 26

FIE 52 70

ρί P^ocessi (reycot>e 56)

FIG 28

Cl«£cnv£ 7A&LE EHTg-y

Mo. J?56

Txiaect!v£ ~tabl£ fHT/ey Mo. -?3 7

1/oTER.PeETEf. FLot^cHAfiTS

PATENTED JAN 71975

3,859,635

SHEET 26 OF 224 ,mTx (5?W)

PATENTED JAN 71975

3,859.635

SHEET 27 OF 224

PATENTED J«« TIST5

3.Θ59.635

SHEET 28 Of 224

MAGNI (426)

CLR (466)

DIGITS IN A NUMBER ENTRY

PATENTED JAN 71975

859,635

SHEET 29 OF 224

DPROC (456)

DIRECTIVE TABLE ENTRY NO. 221

DECIMAL POINT PROCESSING {KEYCODE 21)

FIG 31C

PATENTED JAN 71975

SHEET 20 OF 224

3,859,635

DIRECTIVE TABLE ENTRY (NO. 226) ENTER EXPONENT PROCESSING

FIG 32A

PATENTED JAN 71975

3,859,635

SHEET 31 OF 224

EEXL (510)

AIETURN FORA (MORE EXPONENT

DIGITS y

ENTER EXPONENT PROCESSING

NOTE: NON NUMERIC KEYCODE FOLLOWING EEX. (OTHER THAN CHS) WILL CAUSE THE ROUTING REGISTER TO BE DECREMENTED, THUS JUMPING TO THE NUMBER ENTRY TERMINATOR INSTEAD OF EEXL.

FIG 32B

PATENTED JAH 71975

3.859,635

SHEET 32 OF 2 24

CHGS <370

IblfCCTiVC 7ABLC CiJTfcy Ho. 232

Pxt>ceg3iM&

FIG 33

PATENTED JAN 7075

3,859,635

SHEET 33 OF 224

NUH6T (.555?

euTcfctb u>hcm a si,Ofj(.uCZ. oF 3>i0.(rs Is FouuouiC il> 3r

A NON- Mu HEX· C r€y

At>p oue to thE itovT^C. (EHiiTte, HuHeeA HAy M«T «βίε το BC TggM, MATgJ.

N>UHSEfc EAJTfty TEfi-H imAToA

PATENTED JAN 71975

3,859,635

SHEET 3U OF 224

PATENTEDJAN 71975 3,859,635

SHEET 35 OF 224

PHASE 2 ENTERED FOR EVERY VALUE OF Π IN'·

PATENTED JAN 71975

3,859.635

SHEET 36 OF 224

PATENTED JAN 71975

3,859.635

SHEET 37 OE 224

FIG 39B

THIS aPEeATioU />0 oTrtEil· CAAiZX^

IS Ho££ 3>ETA«LEt>

PATENTED JAN 71975

3,859,635

SHEET 38 OF 224

TtecteMeur me

Mt>ie.ecT Ft-ACf.

(jhcX£A!>C -rrlt. Mi>i££c.r zgvet ey /

48E.TC ^Φ»)

Μΰΐζεο-Γ process» img> (P£xot>£ 31 ) bitecrivE tarl£ eurty Mo. 231

FIG 40

B orwL b Process/ (#eye0i>e^ /3,/4^ οίεοτ/ν£ -m&t£ EMTfgy Mo.

FIG 41

PATENTED JAN 71975

SHEET 39 OF 224

3,859,635

/upiaec-T /9T>ogess cohputtat,qm

FIG 42

PATENTED^ 71975 3,859,635

SHEET UO Of 224

DECIMAL ADDRESS JUMPS. AND AUTO. ADDR. TERMINATION

PATENTED JAN 71975

SHEET U1 OF 224

3,859,635

FIG HH

PATENTED JAN

71975

3,859,635

SHEET U2 OF 224

IFXY (5015)

PATENTED^ 71975 3,859,635

SHEET U3 OF 224

sue./z?Er

3>ieecTiue table e*/r«y Mo. J77 (K€y<fot>f 77}

FIG 46

PATENTED JAN 71975

3,859.635

SHEET UU OF 224

PATENTED JAN 71975

3,859,635

SHEET US OF 224

FIG 47C

PATENTED^ 71975 3.859.635

SHEET U6 0F224

ToiUbr Ηόι_-γ\Ρι_Ο

PATENTED JAN 71975

3.859,635

SHEET U7 0F 224

PATENTED JAN 71975

SHEET U8 0F224

3,859,635

S'j&tc/c.t

1- fcom. -jue QOUMT ITJg,

Z I left shift AC2.

Put io—THE LOST Di&iT

Ejiguts iisj e. IK, \ν4ζ· ®OOTItL3T

ALLtrLtJ ujvmreutR. left in a

PATENTED JAN 71975

3,859,635

SHEET U9 OF 224

IdXnjt Square ^qcst-

PATENTED JAN 71975

3,859,635

SHEET SO OF 224

PATENTED^ 71975 3,859,635

SHEET 51 OF 224

Ci i) MVi

FIG 53

PATENTED JAN 71975

3,859,635

SHEET S2 OF 224

PATENTED JAN 71975

3,859,635

SHEET S3 OF 224

FIG 55A

PATENTED JAN 71975

3,859,635

SHEET SU OF 224

SEARCH BLOCKS—7000

Look UL2)

START OF SEARCH 6000 €400

II4OO

END OF SEARCH I2OOO

BLOCK. .SOM? Ch

Hsur/vE

FIG 56

PATENTED J*« 1 W5

3,859,635

SHEET S5 0F 224

PLOTTER ROUTINE

BASIC FORMAT BLOCK FLOWCHART - CONT, 706

PATENTED JAN 71975

3,859,635

SHEET SB Of 224

PLOTTER OUTPUT ROUTINE /755

FIG 59 ourpr (754)

FIG 58B

PLOTTER. /5 MOT RcAt, y IF·

I. Plotter rc kool**’·/ up a. Plotter /5 n*>f ort_

PATENTEDJAN 71975 3.859,635

SHEET 57 OF 224

FIG 60

PATENTED JAN 71975 3.859,635

SHEET 58 OF 224

4oiCft> OPE&TDON CRZObEfW Step·.)

FIG 61

PATENTED JAN 71875 3-859.635

SHEET 59 OF 224

FlAX Ανβιχ. imO -» (j->pTo /5-7778)

Pesr (οτ> cc .

R/uJ Aren.

osee. .

Houj /? 5£cuSE /£

By All U7JS8C.i_>S>K:T\ Ct/Eguqy.

FIG 62

PATENTED JAN 7 (975

SHEET GOOF 224

3,859,635

F+TF fa.aRt> CPEjgA-noN.

FIG 63

PATENTED JAN 71975

3,859,635

SHEET 61 OF 224

woeb to trwouo

CF Z*a iM Machine,

Eeco^d TXita OpfzahoK

FIG 64

PATENTED JAN 71575 3,859,635

SHEET 62 OF 224

LoAd Wta ορ&ζατίομ

FIG 65

PATENTED JAN 71975

3,859,635

SHEET

OF 224

Figir Pner

OF T~VP£ I3«XX.

Hcmj Am OpncHAi- 3-ocn. cam c-,ετ- τνε Μ£χτ~ κ£γ

Pay/mo, att£nvcm 7Z>

FIG 66

PATENTED^ 7(975

3,859,635

SHEET 6MF 224

PATENTED JAN 71975

3.859,635

SHEET 65 OF 224

EMez in fais fafae arc powers /o the tfarma/ prmler code fable.) which Con-hams 5~*7 dafa wo4nx iwfaormafaon -for every pon-fafac cdaracfar:

Block. Pointer Stkucturc. (t>icic4ivg_ Tcfap.^)

FIG 68A

PATENTED JAN 71975

3,859,635

SHEET 66 OF 224

#,/ = / Pnnha dal·.

B1/ -0 Don'lpnnha dal·.

Alpha Block. Cooe 6τα.ικτυκε.

FIG 68B

The Alpha block. mfierads turtk the. basic sySfiem. /«. -the. Το/ύχο>*<; i»ay Mewer -Hie pnnfi roofine. aefis Fve ///s of pnnter code. Htc dearth rov-hne ts called k> loak-Tor ·ίηθ Alpina. block.. 1+ this nob pnesenl·, ’ntc prinfi refipinc confix/ and. ρή„Η -Hie s~b> A th already ^pha dock, & prtSfrtl· Controlcjoes Ho th; the Alptfe_ blade, /ooks pF cenfism priml·· roufine, dzriadts τύ dc/erdine, •me. currenp posifiai <n fite hue.. Hf >r /s no-k-hn-<c fio pnni FINepioNia ’roHte basic prinfiPoafine u>dfioufietfireefino Hot, loiFdode. Xf- it ii flrnc -hprnfi HNe^oxncs, Me. alpha, rbufinc checks 7½^ subroutine. shack to dehernmne. tha.l· '/h /tf nof-jovha. numberpr<nfithal· tuas r*p*sied &.jfi /M p^cp a ^eMofjtc can rtconsfivch.

the key code -from The. display hsi-, accesses fihe. prmher- code., and jnsot/s il· trt place ol· hhe basic. r>uhnes S’ bh ceotg., A/pka. re4ums and Hie bane prmfi roufina. aonfincas. .

PATENTED JAN 71975

SHEET 67 OF 224

3.859,635

AcCEiS/Λ/ά FCiKjTEH. CODE.

FIG 69

PATENTED JAN 71975

3,859,835

SHEET 68 OF. 224

FIG 70A

PATENTED JAN 71975

3,859,635

SHEET £3 OF 224

FIG 70B

PATENTED JAN 71975

3,859,635

SHEET 7OOF 224

KcyCodE

--& brfc afASclZ data.

TyPE^/z/TEiE Mmemcmc.

TABLE BmpcTuRJE

FIG 71

PATENTED JAN 71975 3,859,635

SHEET 71 OF 224

7y/lfuz€/rEe List- /&udme

FIG 72

PATENTEDJAN 71975 3,859,635

SHEET 72 Of 224

ΤνΡΐκΑ/ί/τεβ. Fteiwf— βονηπε.

FIG 73

PATENTED JAN 71975

3,859,635

SHEET 73 OF 224

/ ψΈωίίιτε^ Alp*q Routine.

FIG 74

PATENTED JAN 71975

3,859,635

SHEET 7U OF 224 <2*4, >

all pey s ojj optional &loc.k. £Ajrek

FIG 75

P«rcp Qom >

Local jzKE ctius ixbcc £»τλυ

No. 50/6

PAqt£Ci Ag/ P^ocgss/M 6 κε/code /6

FIG 76

PATENTED JAN 71975

SHEET 75 OF 224

3,859,635 sficu

SD3/C HCMOt? ^CAdCH Raoriinc

FIG 77

USER IfEFiHABLE FLXCT/anz 8l0c<

PATENTEDJAM 71975

3,859,635

SHEET 76 OF 224

FI (2076)

I

PATENTED JAN 71975

SHEET 7 7 OF 224

3,859,635

<td colspan="2"> LOCAL DIRECTIVE TABLE ENTRIES:</td><td> KEYCODE</td>

FIG 79

USER DEFINABLE FUNCTIONS BLOCK PROCESSING FUNCTION CALLS

FIG 78B

PATENTED JAN 71975

3,859,635

SHEET 78 OF 224

USER DEFINABLE FUNCTION BLOCK

FRET 2146

PROCESSING F-RET LOCAL DIRECTIVE ENTRY NO. 2055 ' (KEYCODE 55)

PATENTED JAN 71975

3,859.635

SHEET 79 OF 224 (H7i)

Stcmk (,3m >

-ruCtJ aFF -THE FuMC.7~/aM FUMCr/aw STACK

L>e^F ------------------------------- RaciT/xic

FIG 81 FIG 82

USER DEFINABLE FUNCTION BLOCK

PATENTED JAN 71975

3,859,635

SHEET LOQF 224 fisn {Jani

Tutu aFF T»e T>Ei.ETl

L/GPT

FIG 84 delete, - PROTECT

FIG 83

USER DEFINABLE FUNCTION BLOCK

PATENTED^ 71975 3,859,635

SHEET £1 OF 224

EMPTY T»C FauCTtOM STACIE Tt/lAJ oFP THE FQUC.

FIG 85

USER DEFINABLE FUNCTION BLOCK

PATENTED JAN 71975

3,859,635

SHEET 82 OF 224

GET m£xT

FIG 87 ss/M G iocAC ΐ,ΜΟΠι/ί τΑ H.LC MO.

FIG 86

ΕΜΤΡγ

74)

PATENTED JAN 71975

3,859,635

SHEET 83 OF 224

ME

FIG 88

Λ Be* TO

FIG 89

USER DEFINABLE FUNCTION BLOCK

PATENTEDJAN 71975 3.859,635

SHEET eu OF 224

IX-ET

tu«« rue. i>£U6T£ t/6HT ____ («50 6ETK! fl- <v rs

GET 7*c *εϋ

PATENTED JAN 71975

3,859,635

SHEET

OF 224

Wo.

(.t&CoilC 44)

USER DEFINABLE FUNCTION BLOCK

PATENTED JAN 71975

3,859,635

SHEET EG OF 224

USER DEFINABLE FUNCTION BLOCK

PATENTED JAN 71975

SHEET 87 OF 224

3,859,635

/MSE&T ss//J<S

D.azc.rve 7»8ce e^rPy ( kC-YCoSE· 66) USER DEFINABLE FUNCTION

BLOCK

PATENTED JAN

71975

3,859,635

SHEET

OF 224

A<luH k.2^i if

μ #£r£g£UceE> AtoACsS

FIG 92

USER DEFINABLE FUNCTION BLOCK

PATENTED JAN 71975

3,859,635

SHEET 89 OF 224

PATENTED JAN 71975

3,859,635

SHEET SO OF 224

PATENTED JAN 71975

SHEET 91 OF 224

3,859,635

ACTbJF is tWe ~V>A«.Tl_ =*><iDe*SS of UAST ΟοΑΛίε. C.OM4TAMT ~ +

FIG 94A ,<n

PATENTED JAN 71975

3.859.635

SHEET 92 OF 224

FIG 94B

PATENTED JAN 71975

3,859,635

SHEET 23-OF 224

PATENTED JAN 71975

SHEET SU OF 224

3,859,635

SIG-rJ-ΕωΟΪ FNCfi^zr-l

FMCF<\ — pi_>tuCX\ON Fl^ oecgewEkrr blMT

CeoiMTFe) zzrzd

A. — 4j <*>= -x-

doM\jEve-r exHx) v I

TO &CC>

_ i

M'JL-TlFL'?

THIS Xt 84) UN (iu) Ξ^ΖΖΞ tlOKM A LI IF

Result of (~x)

NE&AX6 C

IF oRAQ. £χΡ <O ΖΞΓ~ή ANS = e-x

PATENTED JAN 71975

3,859,635

SHEET S5 Of 224

PATENTED JAN 71975

3.859,635

SHEET S6 0F

224

PATENTED JAN 71975

3,859,635

SHEET 97 OF 224

FIG 98B

PATENTED JAN 71975

SHEET 38 OF 224

3,859,635

PATENTED JAN 71975

SHEET 99 OF 224

3,859,635

Ρηκ3^ Jr

CUSBD B<? atN >

PATENTED JAN 71975

3,859.635

SHEET ICO OF 224

PATENTED JAN 71975

3,859,635

SHEET 101 OF 224

I A6L£-Qx) AMb A fc.

FIG 102

ρ-εΛομ τμε N»e xr cxsrie

PATENTED JAN 71975

SHEET IC2 OF 224

3.859,635

AtS.

PATENTED JAN 71975

3,859,635

SHEET 103 OF 224

PATENTED JAN 71975

SHEET 10U OF 224

3,859,635 —Tc» \3L Aft. a N b 10'

ArxlD

PATENTED JAN 71975

SHEET ICS OF 224

3,859,635

FIG 110

PATENTED JAN 71975

3,859,635

SHEET ICS OF 224 , Fl invites . + ecoNtsl Uegicee_s

FIG 112

FIG 114

PATENTED JAN 71975

3.859,635

SHEET 107 OF 224

PATENTED JAN 71975

3.859,635

SHEET 108 Of 224

PATENTED JAN 71975

3,859.635

SHEET 109 OF 224

PATENTED JAN 71975

3,859,635

SHEET 110 OF

224

PATENTED JAN 71975

SHEET 111 OF 224

3.859,635

PATENTED JAN 71975

3,859,635

SHEET 112 OF 224

PATENTED JAN 71975

3,959,635

SHEET 113 OF 224

MONITOR

PATENTED JAN 71975 3,859,635

SHEET 11H OF 224

PATENTED JAN 71975

3,859,635

SHEET 115 OF 224

PATENTED JAN 71975

859,635

SHEET 11B OF 224

PATENTED JAN 71975

3,859,635

SHEET 117 OF

224

PATENTED JAN 71975

3,859,635

SHEET 118 OF 224

OvHiiFirfl Rre/srra P0f PRfjrr ~ FftoM JU/a«,y

QGc GDC QM> QPo

Five <3valik.

Ten Q'Ke* QvALintiti

BIT

H sir •Ml COPf

Qn «««. IFItt

Λ3£

CC0

law

Ο·Β Bep T9B CAB oao ooi xco AU.

RffOM · fiODKtss cone

Ροη·5 fT-OCR· CODf «oMKa

FkiM/fky

Ί e/r rw*j

2Γ6 μ k OvaiiFir* C0E>t.

cce

Ooo

R- coor *- CoDg r«g

Qy«*

ISCC0MPA4 f>

Rm» J

Rom onc,fimz/frioN £56

U/MP, X 2P B.ri exr^o'o rC0

I ΧΤΛ

FIG 136

Micro PKocessoh

PATENTED JAN 71975

3,859,635

SHEET 119 OF 224

PATENTED JAN 71975

3.859,635

SHEET 120 OF 224

PATENTED JAN 71975

3,859,635

SHEET 121 OF 224

PATENTED JAN 71975

3,859,635

SHEET 122 Of 224

NOP-11 I

PATENTED JAN 71975

3,859,635

<td></td><td colspan="6"> SHEET 123 OF 224</td>

PATENTED J*N 71975

3,859.635

SHEET 12U OF 224

o.nsoiravio iiiaoisiii

PATENTED JAN 71975

3,859,635

SHEET 125 OF 224

REGISTER REFERENCE

GROUP I/O GROUP

(SKIP BIT IN Q06) FIGI38B

PATENTED JAN 71975

3,859,635

SHEET 126 OF 224

PATENTED JAN 71975

3,859,635

SHEET 127 OF 224

PATENTED JAN 71975

3.859,635

SHEET 128 OF 224

PATENTED JAN 71975 3,859,635

SHEET 129 OF 224

PATENTED^ 71975

3,859,635

SHEET 130 OF 224

PATENTEDJAN 71975

SHEET 1313F 224

3,859,635

3,859,635

PATENTED JAN 71975

SHEET 132 OF 224

MAC-INSTRUCTION CODING TABLE:

<td> MNEMONIX</td><td></td><td> in</td><td></td><td></td><td> CM</td><td></td><td> o</td><td></td><td> co</td><td> r-</td><td> to</td><td> m</td><td></td><td> co</td><td> CM</td><td> —</td><td> o</td><td> OCTAL</td>

USED DATA FORMAT:

<td> ADDRESS</td><td> LT)</td><td colspan="4"> 14 13 12 11 10 9 8 7 6 5 4 3 2 1.</td><td> o</td>

<td> M</td><td> se</td><td colspan="2"> exponent</td><td colspan="2"></td><td> sm</td>

D1 ... MOST SIGNIFICANT DIGIT

D12 .. LEAST SIGNIFICANT DIGIT se ... SIGN OF EXPONENT sm ... SIGN OF MANTISSA

DECIMAL POINT IS LOCATED BETWEEN D-j AND D?

USED ADDRESS AND CONSTANTS (OCTAL)

0001 COUNTER CONSTANT ADDRESS

1700 P-REGISTER CONTENTS STORAGE

1777 STACK-POINTER ADDRESS

Ί744-47 ARIΊ

1754-57 AR2J ARITHMETIC PSEUDOREGISTERS

043060 COUNTER CONSTANT

FIG 1381

PATENTED JAN 71975

3,859,635

SHEET 133 OF 224

INSTRUCTIONS

ADO - BINARY ADD = CARRY FLIP-FLOP + RgUS + S TO T - CARRY OUT TO CARRY FLIP-FLOP.

AND - LOGICAL AND = R-S TO TD11C BUS

BCD - BCD ARITHMETIC MODE OF ALU

BRC - BRANCH INHIBIT SOO IF QNM

CAB - COMPLEMENT AB FLIP-FLOP

IOR - INCLUSIVE OR R+S TO TD1IC

BUS

IOR-CBC - IOR, CLEAR BINARY CARRY FLIP-FLOP

IOR-SBC - IOR, SET BINARY CARRY FLIP-FLOP

IOS = PTR-XTR - INITIATES TRANSFER OF CONTROL TO I/O

IQN - INHIBIT SHIFT CLOCK IF QNM

MTS - TRANSFER Mp„ TO Smlc Ktb DUo

NOP - NO OPERATION ON XC INSTRUCTIONS

PTR - TRANSFER P„„ TO RBI|_ Ktb dUo

QAB ~ Qreg (BIT 11) TO AB FLIP-FLOP

OTR - TRANSFER Qre|. TO R^

RDM - REAO MEMORY (M) TO T„r„

Ktb

TBE - TRANSFER TBUS TO Ereg TO RBUS

TQR = UTR-XTR - TRANSFER QREG TO PRIMARY TRE- TRANSFER TREG TO EREG TO R^ TTM - TRANSFER TBUS TO Mreg TTP - TRANSFER TBl)s TO PREG TTQ - TRANSFER T^ TO QREG TTS - TRANSFER TREG TO SBUS

TTT - TRANSFER Τβυ5 TO TREQ

TTX - TRANSFER TR||_ TO A/BDrr bUo Ktb

TO6-ZTR - TRANSFER T^ TO QREG (BIT 6) UTR - ONE TO R„..c dUo

UTS - ONE TO SDIIC dUj

WTM - STORE Torr IN MEMORY Ktb

ADDRESS

Q14-Q11 P04

Q12 — PD5

QI 3 —-P06

Q14 —- P07

XOR - EXCLUSIVE OR R+S TO TB(JS

XTR - A/Breg TO Rbus

ZTR - ZERO TO RDI1_

Dub

ZTS - ZERO TO SBUS

ZTT - ZERO TO TBUS

ZTT-CBC - ZERO TO ΤΒ||ς, CLEAR BINARY CARRY dUo

FLIP-FLOP

FIG 138 J

PATENTED JAN 71975

3,859,635

SHEET 13U Of 224

PROG RAM HABLE

Clock

FIG 139

PATENTED JAN 71975

3.859,635

SHEET 135 OF 224

IQO0

PATENTED JAN 71975

3,859,635

SHEET 136 OF 224

PATENTED JAN 71975

3,859,635

SHEET 137 OF 224 uU

- $/-/« *22

« yji 77=7«

PATENTED JAN 71975

3.859,635

SHEET 138 OF 224

T/HIA/6 V/AVEFOHMS — Cc^tkal PAocmoft

PATENTED JAN 71975

3,859,635

SHEET 139 OF 224

FIG I42A

PATENTED JAN 71975

3,859,635

SHEET 1UOOF 22 4

SHif-T- C4OC.K

PATENTEDJAN 7Ϊ975 3,859,635

SHEET 1U1 OF 224

PATENTEDJAN 71975

SHEET 1U2 Of 224

3,859,635

PATENTED JAN 71975

3.859,635

SHEET 1U3 0F 224

FIG 143

BINARY /BCD /?RITH LOGIC UNIT

PATENTED JAN 71975

3.859,635

SHEET 1UU OF 224 >> >>

ALU CODE

(D

PATENTED JAN 71975

3,859,635

SHEET 1U5 0F 224

aouvwvojni ysaaaov

PATENTED JAN 71975

3,859,635

SHEET me OF 224

<td> SIGNALS GENERATED OUTSIDE MEMORY, I/O CONNECTOR</td><td> SIGNALS GENERATED ON REAC/wAir* MEMORY CARDS.</td><td> SIGNALS GE AERATED ON T’REGlSTER CARD</td><td> Signals generated on M-REGISTER CARD</td><td> SIGNALS GENERATED on control Board</td><td> SIGNALS ON ROM</td><td> GENERATCD BOARD</td>

<td> CCT- CONTROL CLOCK*M9 THE INVESTED ENVELOPE OF SCH SCK“ SHIFT CLOCK MCK- MEMORY CLOCK, A CONTINUOUS PULSE. TRAIli,USfl Bl THE MEMORY CONTROL FOR TIMING. OF THE MEMORY AMD REFRESH CYCLES TOO - I/t DATA. GOES TO COMTEK BOARD TO BE GATED TO 5· BUS XTS - ΧΛ TO S-BOS, THE SIGNAL WHO G ATES XOD TO Sr BUS SCO I·- COOED SIGNALS SCi WHICH GENERATE UTS-VHIT4TO i-BUi ZTSltRO >< < MTS-M-REE·. «. • T TS -τ-REE « > TTT· T- BUS TO T-REG, αν - TRUE. T-MS- DATA ON THIS BUS ACTS AS INPUTS TO MfrT REGISTERS 5-BUS- DATA FROM M ftT-REG IS TEAS, AS WELL AS 3# IS INVERTED AND OUTPUTED ___ ON THIS BUS. RDM- READ MEMORY, NEGATIVE TRUE. LASTS FOR tl. ___clock. Pulses WTS WRITE MEMORY, negative TRVE LASTS FOR IX ___ CLOCK PULSES ΣΝΗ — INHIBIT,NEGATIVE TRUE* THE PROCESSOR IS GTOPPtl 'NWLNEVERXNV is at zero Molts THE ΜΕΜΟΑγ CMHW GENERATES YR is SIGNAL WHILE A R/* MEMORY REFRESH CYCLE IS PRESENT. 1/5 ALSO Qi NEW IS IT. OTHER SIGNALS AT X/0 CONNECTOR NA*E SOURCE TOO T-REGISTU Toi v · TOl >. .. tos v. m</td><td> fNK><»5- kho/wmh DATA. OUTPUT FROM THE W03 AAEMOR-VSOO^k ‘«To ISO·*·-*» O - o OTHER· SIGNALS USED BY (.RWM^ ^Ame «source, ADO-AO4- CONTROL- Aos-AO 9 M-RLG CSbijU.) M-Kto C.SA (>X) M- «U.G iwtiwj T-ktS V B L COUTloL PCC. COHTBOL FIG</td><td> TOG-TIS—T- REGISTER DATA BITS. USEO AS DATA INTO MEMORY TOO-TOS ARE ALSO OUTPUT» TC THECPU<4UT FKOCESKW*) READ/KRlTE INPUTS. T-REG'STECk DKTR GATED WITH WE»,M3 TO BECOME INPUT DATA-TO VREMOK.'V OTHtR SIGNALS USED BY T-REG1STBR · • MAMS. SOU ACS P>OD(£X) ROM TQ.I CONTROL TSC CONTROL T*L CONTROL TPC CONTROL WEI CONTROL wei control RWb(*X) R/n MEM awE m-reg 147</td><td> MOO-MIS— M'REGlSTkR data Bits* USED TO GENBRAYE ADDRiSS AND CHIP SEL.%: information. (MOO ALSO 1» GATED OUT OH 5-bus BY MTS' jOO-107- ROM ADDRESS BITS, DECODES DOWN TO TWO Bns apailkug AX ROM OUTPUT Buffers. xovtSV SELECTS which rom OUTPUT BUFF· KES ARE BN ABLE0 CE6(>K)-CHIP ENABLE, BkC\c MACHINE SELECTS WAkCM R.OM CHIPS AKE TURNED ON. CEK(>^ - CHIP ENABLE, ADD-ON FUMCT. A EH - ADDRESS ENABLE, REN - RDIALWTU AOE-AOV ADDRESS BITS FOR R/W. ME MORN. (^V^GAID) CSBbliyGMlP SELECT, . BASK MACHINE A NEGATIVE TRUE CLOCK WHICH . SELECTS WHICH R/W OkllS AKE. TURNED OH, (tl gv&gkd) csaQul)-chi? select, ADD-ON. RWE - REMOTE KJMOLL· A *S* SIGMAL KHV TIME A k/n CHIP IS AAORESitO FOR A MACHINE MEMORY ClCCt OTHER SIGNALS USED BY THE M-REGISTER. NAME SOURCE T-Bu$ PROCUiol SCR », ffBP ii WTM 11 rm VLD . CONTROL MTS «. CSL ii GIF *i </td><td> VLb-V- LOAD, A SIGMA GENERATED HALF WAV THROUGH THE MEMORY CYCLE TO DISABLE THE ACTI PULL UP DEVICES OH THE R*U OUTM TKE-TREGISTI.R IMttfT T-WS AND TTT OR Too AND TTS PTS-R teLGISTER TO S-BIIS. GENERATE] from sco-Tci A00-M4— APDRESS BHS FOR R/W MEUMD Also used DOAiNG memory refksm. rsc - τ- register. S«.R\ES CLOCK. Tsc'*x<rrTt.Tx^ TPC - T-REGISTER. PARALLEL CLOCK. (STMVRS IN DATA FMM MEMORY) WEI - WRITE ENABLE 1 GATES COLT-REG DATA TO ΜΙΜΙΚΗ bURlVG |S1 HALF of memory cycle V*EX- WRITE ENABLE B GATES FVBW T-M DATA TO MEMORY DURING THE LAST HALf OF R HUMAN CYCLE YBLY-ENABLE. A clock which LEFT ATtllV FOR a READ {AND CLOCKED to gud during a wRixt. Ql/W memory omly> PCG- PRECHARGE. THE V“- UV CLOCK REQUIRED BY THE IVOS R/Vl MEMORY om t$ CSL- CHIP -SELECT CLOCK. THE SMM WHICH IS AN BED WITH M-REGASTfcft DATA TO PAOVIDA CHIP SELECTS· ΤΠ- REFRESH. OY WHEN THE lAEMORM 'S IN A RLFKlsH cycle. OTHER S IGNALS UUB by the control IYAME SOURCE ?cr PAOCtSSOR TOO T-AEG TOO PROCESSOR ITS u sco i‘ SCI υ T-oUS ii S-BU& ii SOK H KER u γ?ΠΙ n McK ii mH Ii MOO-MSS M-REG aen m- reg .</td><td colspan="2"> Md$ix)-aeao only data OTHER SIGNALS USED BY ROM NAME EOUKCE. CEA(M) M-REG CEBl^X) M-REG XOO*XO? M-KEG 10%,Tot, M-KEG VkO CONTROL</td>

SHEET 1U7 0F 224

PATENTED JAN TB75

3,859.635

R ZrONO <<c . r^.___«ο,., | o/ N/d s,& ίίκοι Kos+ , °'' 01 N!d s.JI HtfOJ. 4111- « n'f

g si Kid di tw oi —7σ7“«

Q 5 S Nd DI7 W ol--yrr/C SH x Ό 9 Aft/ S2I Tlti 01 -rrm « SY Zy £/ NU S.JI nd 01« 3-1 ΰ K b Hid r,0I 77^ 01«y-/

L Md 5,31 lid 01 -πππ-«. * 1 £ 8 N/d s.3I 11V 01«0-1

SI Mid S,3117tf 01«£-/ / NH 5,31 Hd 01 ^Oy«Q-l K 2 Ntd tjl TH 01«0-1

Ll £ £ Hid spi ΊΊΝ 01 /Oy« /-/ £ £ -hN!d DI Pd 01 y«3-t

PATENTED JAN 71975

SHEET 148 OF 224

3,859,635

vote; Pix> AssKnameMrs Age (ύΛ<Λό/υ n *** W, awess orrte#.ij>se s^akJjO.

PATENTED JAN 71975

3,859.635

SHEET 1U9 OF 224

Μ>τε: F/μ ass ''(^αολι^λιτ^ το *4.4. j?c'sf uwcis oTHgAtuna

PATENTEOJAN 71975 3.859,635

SHEET 150 OF 224 */ a<sy

PATENTED JAN 71975

3,859,635

SHEET 151 OF 224

-^<+1008 ^T«0I(]OH

-^«s^aoy « V37) si ooy «ειοοα « naan «60707

U)

- rsrq+UlsiNe^.^^ixJ'i V, 4 r> ®

R 3S S *·*Σ> + R )? £ 'Σι 5P ^wo^oo ooo i°?QS^4§p?8§gS§oooo rrPSMgiTEg

CEfl· O3j Oy, 5Za7 <3 fiL Pfih, PRIWR CEROS.Ob

CM in

4\«Ζ0ΟΟ8 J^«s0ooy ^H<S0GO8 -^-«roaoy —,.. -7-,, (^oXsoKoJ

-—l a <*v« jV<00aOd ^<70QOd ir«f0aoy ^<90OOH X .

PATENTEDJAN 71975 3,859,635

SHEET 152 OF 224

PATENTED JAN 71975

3,859.635

SHEET 153 OF 224

PATENTED JAN 71975

SHEET 15U OF 224

3,859,635

FIG I54B

<td> INPUT BUFFER</td><td> -—ο II</td>

THE SECTION BETWEEN A AND B IS REPEATED 3 MORE TIMES.

PATENTED JAN 71975

3,859,635

PATENTED JAN 71975

3.859,635

SHEET 156 OF 224

NOTES----THIS SYMBOL INDICATES CONNECTIONS WHICH CAN BE PROGRAMMED OPEN OR SHORT, -g]-

FOR A 512 x 0:

@ TIE OUTPUT PAIRS TOGETHER (Έ) DO NOT TIE 18 AND IB TOGETHER

FOR A 256 x 16:

@ DO NOT TIE OUTPUT PAIRS TOGETHER ® TIE 18 AND Iff TOGETHER

Θ VDD=+5Vvgg ’ +1zv <SWITCHED) (POSITIVE TRUE LOGIC) (4) RESISTANCES ASSUME lOil □

ALL W/l's ASSUME A 3μ TOTAL SIDE DIFFUSION

ALL CONTACTS SHOWN AS ( El ) ARE PROGRAMMABLE WITH GATE MASK

PATENTED JAN. 71975 3.859,635

SHEET IS7 Of 224

FIG I54Z

PATENTEOJAH ’«is

3,859,635

SHEET 1S8 OF 224

FIG 155

PATENTED JAN 71975

3.859,635

SHEET 159 OF 224

PATENTED JAN 71975

3,859,635

SHEET 160 OF 224.

Λ1 OO

PATENTED JAN 71975

3.859.635

SHEET 161 OF 224 octal / 7 7 777

O — 777 £000-2777 )3000-3 777 13 //000-/7 77 ___OJ._____

H38 )0 V.7A*

Λ7

CER RD.M, ^«1-15

CEA ROH

-^« l-U

Far·

-^« /-/6

CEB Fp.fi.

-^A< /- S

CEB Fpn -^« /-73

CEA^· ^«l-T tizv

CFR^·

Llo /-7?

17-6 l=> »-5000-37777

Uooo-6777

17-5 „ r7000-7777 1/7-¼ <

fi*Or /0000-10777 51^6

-------|n^,---------/6

CEA W -^«1-18

UOOO-H777 3

R8 ________________3 /6000-/6 777 /0-5

C.RI5

+iiv

CE θ F.OFI /-/¼

FIG I58B

PATENTED JAN 71975

SHEET 1E2 OF 224

3,859,635 sjtvn ssjkaw mm

£>

ϋ_ /OA/3 owt) <<: /19/-A d~3

-7^^-3 σ7Λ >> ' £tu a 4/W <<: //-/ c/tw ~onr« S/->

AOUf °'' 7-/

LOW <<: z-/ 9OIV « sow 8d -hOW 4·< X-l

Τσΐ7^<2-2 gow (OW «

FIG I58C

PATENTED^ 71975 3,059,635

SHEET 1B3 0F 224

FIG I58D

PATENTED JAN 71975 3,859,635

SHEET IGU OF 224

FIG 162'

PATENTED JAN 71975

3,859,635

SHEET 165 OF 224

Λ7» a-//» l-ioyy

MCK MEMORY CLOCK 8 MHi CONTINUOUS

A£JL

.BQQRESS ENHELE y|~7Y g rr

CONTROL CLOCK I

USED H^e ftno ltd SWSLE step tester, WHEN RT +5 THE PROCESSOR IS BETWEEN INSTRUCTIONS.

REF

ΪΑ2 <82Γ IT.

-—C*^r-

CIO.ISmF 4P— 5ΌΟ Hz.pun.

RSTflBLE

Η.ΙΐΚ Π-.Ί5-Κ η

C7 JSUF

FIG I59A

2-L Y> ---——

XV. INH Hf)LT5

PATENTED JAN 71975

3.859,635

SHEET 166 OF 224

RI^<3.O9K

PATENTED JAN 71875

3,859,635

SHEET 167 OF 224

IK I/O DPTfi yr— > 7^>|

e n-necnS-Bus

SCI u

2-J » I0_D f-j yy TT^ T/o to $bus f-L »fK +y R1Z +5V—\γ£Γ^RZf /-g y^L — z-nyy ™TS /-//»

2-c » 7~OO-!-K y^TTT

Τ'bus π> t-PFG -- I

2-E ». 1 ''SHIFT CLOCK

2-D yy-J/BUS yy TSC T-REQ SEPies CLOCK

1-+yy T PI T-G. TN pur

2-W;R

2-15; S »$ND1 h/jA yy^ND1

ImF

Έ>

2-N » -2-!3,P yySP^P +J_C7 i*F τΙ /g

UTS-ONE — S-BUS

7+Η5Ί· s

3J th

MQo

TT5- T-REG TO S-BUS 3

L«2' i irt 't5V

2/ ffg/

1—-r—ssv

1C5· 1C4,

GRD */ TO

T/(,V

ALL IC'* BUT 18( IT

U Y-//5 P/N ΤΡβ£ί(ι?ίο-θ233)

G//D2 TO

IC’S I8£11

Q IOf8

OATH ’B” IVPVT OUTPUT β OUTpuT 'Λ'·

COVfUT DOUZAZ COUHT UP OUTPUT C’· D“

FIG I59C a 3 ¥ 5 to - . t * ,

7l 0 uTPur Lgj QND ik /♦

H !O ?

Uce.t sv FHPUT

CLEPR BORROW CARRY

LORD

DHTA’CINput DRTfi OTh/Pur

PATENTED JAN 71975

3,859,635

SHEET 168 OF 224 •00 *

OQ

ΘΞΒΞΒΕΗΞΕΗΕΕΒΘΒΕΗ EBgEEgEECBEECHEESS ΘΘΕΒΕΒΗΒΗΞΕΕΕΒβΗΗ ^ΕΕΕΕΕΕΕΕΒΒΒΒΒΒΒΗ

Λ-7

TE3VD o 5

RFi7«

U/^ όόϊΤ^^ 1/2/^^^ uayM.

?r'2

FIG I59D

£-2 V-2 -h-2 S-2

PATENTED JAN 71975

3,859,635

SHEET 169 OF 224

4« »VLO : | I I I I

FIG 160

PATENTED JAN 71975

3,859,635

SHEET 170 OF 224 /-2

2-yyy

RZG /50 /-£ »-RQDl5 l-D »ftQC> — +ibV

Ji >

A

[C yyRQQlS

IB yyRQDii »RVD II__ i?3P z, 150 t-p yyRODII /w »£.qd 10

2-!0 »RVOQft-i?3l i5O

FIG I6IA »^—

-.-.popoa

ISO ,+lfcv ν«3?,3<|Κ

JR37 Ά

to ]r*a3<1K

I5o

PATENTED JAN 71975

3.859,635

SHEET 171 Of 224

PATENTED JAN 71975

3,859,635

SHEET 172 Of 224

2-3

1-9 l-K m

FL

2'5 /-J /-8 )-H

FF

2-L

2-P

»1?WE »&ΝΡ2· + 5~V TO DLL I(A 4.

BUT 17,18,19(20

GND *I, TO DLL TC'5·

BUT ?£/0 r&<f 2-rt bf—-- . TOIC's ?? c/t>f 17, I», 11 ?2O

1702-0551 lMfcu μ

C/2j_ C/3_

C!T_

C/S_ —· TO IC's

17,18,0 220

FIG I6IC

PATENTED JAN 71975

3,859,635

SHEET 173 OF 224

<td></td><td colspan="3"></td><td colspan="2"></td><td colspan="2"></td><td colspan="3"></td><td colspan="3"></td><td colspan="3"></td><td colspan="3"></td><td colspan="2"> prints/-/</td>

FIG I6ID

PATENTED JAN 71975

3,859,635

SHEET 17U OF 224 <Z)OS>H· IOS»ar ZOS»y εος »j-

0003¾

I OO33y 103 »i εο3>ν

PATENTED JAN 71975

3.859,635

SHEET 175 OF 224 oj οαι>^

0OG >7

TOO >\r

ZOQ >V foq>v 9 loq>>^ soa»s· 9OG»^· ^oa »7

PATENTED JAN 71975

3,859,635

SHEET 176 OF 224 ζ3 /6

PATENTED·!* TB7S 3.859.635

SHEET 177 Of 224

^<e>-ra -γ^τ-ια

C> O’

-7^«ε·ιο

W<*Ia -zs^s-ia w«wo ^<ZI4

PATENTEDJ*n 7ISIS 3.Θ59.635

SHEET 178 Of 224

<td rowspan="14"> INTERRUPT PERIPHERAI I/O REGISTER OUTPUTS AND INPUTS CONTROL CONTROL _________________</td><td> 8 DATA OUTPUT LINES DO 0-7</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> 4 STATUS OUTPUT LINES SO 0-3</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> 4.ADDRESS OUTPUT LINES CO 0—3</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> 8 DATA INPUT LINES DI 0-7</td><td></td><td></td><td></td><td></td><td></td><td></td><td rowspan="2"></td>

<td> 4 STATUS INPUT LINES SI 0-3</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> (DEVICE READY) 1 CONTROL ENABLE (CEO)</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> 1 DEVICE REQUEST (CFI)</td><td></td><td></td><td> *</td><td></td><td></td><td></td><td></td>

<td> 1 PREVENT INTERRUPT (SIH)</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> 1 SERVICE REQUEST (SSI)</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

ALL LINES ARE PARTY LINES AND CONNECT TO EACH OF THE 41/0 SLOTS.

FIG 163

Relationship of the I/O Lines.

PATENTED JAN 71975

3,859,635

SHEET 179 OF 224

I/O CLOCK I [

ENABLE FF___ / of- t>ecot>e* eMABLer>

______LI I J____r enter l/θ’ Lexit I/O _____________Ι,η*·1**!Ip*»1·* I___________

I/O ADDRESSf i t

FF SIGNALS 4----c— (1 LINE) output — starting address time--*· | next state time

OF 16 DECODER π OUTPUTS

STC| J-lst state

01® next state address given *f-2cd state during these times

I/O Control Board Timing Diagrams iSAto****^ C^xecutioas of S7~G

FIG 164

PATENTED JAN 71975

3.859,635

SHEET ISO DF 224 k

* o et

FIG 165

PATENTED JAN 71975

3^859,635

SHEET 181 OF 224

PATENTED JAN 71975

SHEET 182 OF 224

3,859,635

Output Wave Forms

I/O REG. π n |ρ··][]^^^.βε;πΞϊ^

DEVICE READY (CEO)

DEVICE REQUEST (CFI) control to I/O interface

peripheral done

Input Waveforms

I/O REGISTER DATA/STATUS/ ADDRESS data loaded in I/O REGISTER

DEVICE READY (CEO)

DEVICE REQUEST (CFI)

I/O REGISTER DATA/STATUS/ ADDRESS

load & check STATUS output address apd statu’s’ control to I/O interfaces.

Interrupt Waveforms

9810A

interrupt enabled

PREVENT .INTERRUPT (SIH)

SERVICE REQUEST (SSI)

peripheral done load data —

data entered

interrupt enabled disabled

FIG 170

PATENTED JAN 71975

3,859,635

SHEET 183 OF 224

PATENTED JAN 71975

SHEET 18U0F 224

3,859,635

FIG 173

General I/O Boara interrupt Logic.

Even No. Keys

Odd

No. Kays

FIG 179

PATENTED JAN 71975

3,859,635

SHEET 185 OF 224

FIG I74A

PATENTED JAN 71975

3,859,635

SHEET 186 Of 224

SENSE AMP

PATENTED JAN 71975

3,859,635

SHEET 187 OF 224

PATENTEOJAN 71975 3,859,635

SilEEI 188OF 224

PATENTED JAN 71975

3.859,635

SHEET 189 OF 224

Vo=v,-v2 + v3-v4+v5-v6 •figure 178

PATENTED JAN 71875 3,859,635

SHEET ISO OF 224

PATENTED JAN 71975

3,859,635

SHEET 191 OF 224

PATENTED JAH 71975

3,859,635

SHEET 122 OF 224 t/iV ™ FAOM /ΛΤ7ΖΛ/7 —Z4 V/HE8 fiecpADWS 5βοΑ<«ίΧ<=/, Pt V------- -..- J ' '

WREN pccoADrrrG

PATENTED JAH 71975

3,859,635

SHEET 193 OF 224

-zzv

fUL 30,/K.

GJoj

R3/Z /ML

W3

FIG I8IC

PATENTED JAM 71975

3,859,635

SHEET 19U 0F 224

PATENTED JAN 71975

3.859,635

SHEET 135 Of 224

5*77*/ <»***/) «3 ZLK

PI-KA /?/ /<?A

C1P!

[>Hp> j \ /OK

-/Λ» (NotoA I

Si</AcE

V itop. supply OAfZyy

FRoAf STRobE TA' V

XC.Z, P/Nf ' w /tK

-/Λ v'

PI- Ί

AV,*' <

Α5Λ

Qfoo

-I2V

ΛΑΟ*, T/o seuAc.E) en.)^ AV

CfW Λ//< 2-IM

022 3

FIG I8IE

WX

CA// ^>0 2 I > V7A <j// I M ' J ΛΛΟ OF ’----£ ¢/^ CARO, pecoRa /zv

C/XRfiz·//· S*/

Pf-2,3 ,a

PATENTED JAN 71975 3,859,635

SHEET 1S6 0F 224

FIG I8IF

PATENTED/*·· 7B75 3.859.635

SHEET 197 OF 224

FIG I8IG

PATENTED JAH 7 B75 3.859.635

SHEET 158 OF 224

PATENTED JAN 71975

3,859,635

SHEET 199 OF 224

PATENTED JAM 71975 3,859,635

SHEET 200 OF 224

0NETL0 ' Hl LITES DIODE

Tig- 183

PATENTED JAN

71975

3,859,635

SHEET 201 OF 224 co

H

E licn

R38 2 2071 ^ICI2 ^1012 φκΐΐ XlC12 φ IC12 ΛIC12 ΛΐΟΙ2 Λ ?6 Pe Pio Pio Pi? Pa ¥2¢8 $R62 >R65 sR59 $R6I £ R40 >R44 ±R42if

J 220Λ > 2 2 0712207L^22071 f 220Λ >22071> 22071: i fR64 J I R58i R60TI R39i I R43l R4I J J R37 J a i b 1 r Idle If I —1^24 ' —1^025 —|^Q23 —{^022 *1|^;3Β ] —|^ Γ —|^ξ2

1r53 i R56 }r50 R47 1RI9 'JiR16 ^R17l risIf >25.571 > 25.571 > 25.5Λ > 25.571 > 25.571 >25.571 >25.571 >3

R63.

ik:

+ d i b

Zd Zb Zc Zd Ze Zf Zg

|Ϊ4] [ill Π21 fill iio] [9] [81

D

QUAD.

A r-t

111 Lil L±J L5J [6j 17

2,3,5,6 18—^^ do φ

DO I

DO 2

R33 3911

R31 |

IK Ln,„ । >R32 , >39071

HlC8A °2 !l Ria!' 012 •39nj^

Zdec

IC11

D06

Φ 1 2 । RI2 i । R13 I I R15 I

I IC6a| 1IC6B I |lC6C |

4 5 6 rI_,r.l 1_1 .. .

[ R14 II R9 l.j R8 । j RIO '· Rll ] iIC6d||iC5b[iIC5A| |IC5C||IC5D|

N.C.

_G1

OF 10 LO DECODER

DIGIT SELECT JG·4A θ c D to : US 0 ns [®

IC7 fcA 1 IC7 —K--x3

2) J-9 IC7

-T15 A ►I4B *13C

IC1

IC9

184 A

PATENTED JAN 71975

3,859.635

SHEET 202 OF 224

INPUTS OUTPUTS

A 01Ϊ

D 0

9“

QI 0 1

QI QL

QI o I i o

Oil

0 I jOH 110 1

9 1(

Yl Q20 । I 021 I i Q19 I

I II I ''

I R52 I IR55 !

25.5Λ25.5Λ

ΤΓ

Ya Yb

R49 | 25.5Λ

T Yc

J-U- ru_ u._

IQ18 [J 07 J| 04

I II II

I R45 [ | R23 | | R20

05 fl Q6 | '

I H | . n*to ί । kzq ί : ncu । | R21 । । R22 i (25.5Aj [25.5fi.j [25.5Aj [25.5Aj (_39Λj

Yg Ydec

Τ -T -“I

Yd Ye Y

311

I 412

ΓΧ'

016

ΠοιΓ;

Λ-π

Q15 i | 014 [ *IC8g 5 6X| ‘ J 7 /

R34 IK

117 01 S I OX

R54'

25.5 Λ]

R35 390Λ 013 | 112

I------------1A + ICll|l3 r____J., D

Γ ___ 1Ί 005

I [Ϊ2 R287 I

1'0- ώ

-j-]4 39Λ|_ 0aonl

R36 39J1 g

Λ(WIIQ8 II 09 ii· i II 11^*1 K10 > ; KHO > I R2T; I R24II R25I।R26 < 25.5Λ! '25.5Λ1 ; 25.5(1' fcSSA' »25.5A[ | 39Λ'< I u-y

Xd Xe XF Xg Xdec

R48i I R45 I

R51 । 25.5Λ

T

Xd Xb Xc

DEC

Ϊ3

D04

PATENTED JAN 71975 3,859,635

SHEET 203OF 224

~i~iqure 185 r23O <228 <222 <228

186

PATENTED JAN 71975

3,859,635

SHEET 2C4 OF 224

C R Z

PATENTED JAN 71975

3.Θ59.635

SHEET 205 OF 224

GV3H VNflNHM IVUHWI '1 '/.fl d' g/0 >> n'3 7ia~^>81'3 —^>H3 sia )>i,-<?

77^>5'-5 -37^7/+7 S,'S gpa ^~3 ma y>£/'3 /04 έ'3 •spa'^^’3 ~^yo,-s i,jdd y> 7~3 ’J0d^> 11

o g

I' I a'3 4^>5'2 <*gg = vava o2r-ta oi 3~s

FIG I87B

PATENTED JAN 71975

3,059,635

SHEET 206 OF 224

PATENTED JAN 71975

3,859,635

SHEET 207 OF 224

Do 7 3

PATENTEDJAN 71975

SHEET 200 OF 224

3,859,635

FIG I89B

PATENTED JAN 71975

3,859,635

SHEET 209 Of 224

PATENTED JAN 71975 3,859,635

SHEET 210 OF 224

PATENTED JAN 71975 3,859,635

SHEET 211 OF 224

PATENTED JAN 71975

SHEET 212 QF 224

3,859,635

PATENTED JAN 71975

SHEET 213 OF 224

3.859,635

Flow Diagram of Printing Operation

FIG 193

PATENTED JAH 71975

3.859,635

SHEET 21U OF 224

POWER SYSTEM BLOCK DIAGRAM

FIG 194

PATENTED JAN 71975 3.859,635

SHEET 215 CF 224

PATENTED JAN 71375

3,859,635

SHEET 216 OF 224

FIG 196

PATENTED JAN 7H75

3,859.635

SHEET 217 OF 224

PATENTED JAN 71975

3.859,635

SHEET 218 OF 224

FIG I97B

PATENTED^

71975

859,635

SHEET 219 OF 224

ROW I

ROW 2

ROW 3

ROW 4

ROW 5

ROW 6

ROW 7

FEED BACK

FIG 192

6.9 μΓ</

50-cl +5 C5-C 4

FIG 198 + 5 + 5 SENSE

PATENTED^ 71975 3,859.635

SHEET 220 OF 224

FROM TIPEWRJTER

PATENTED JAH

7I97S

3,859,635

SHEET 221 OF 224

FUNCTION SOLENOIDS

Mi »<r uj

PROGRAM

SOLENOIDS

RESET SOLENOID

UPPER CASE SOLENOID

FIGI99B

POWER SUPPLIES: 5V, 24V

PATENTED JAN 71975

3,859,635

SHEET 222 OF 224

ENO OF LINE REED

1.5K -VA· 0+5

EOL FF +5 4.7K o wv

4| loL

DOXJ ODOI

DO 2

DO 3

DO 4

DO 5

DO 8 DOT o* o

OO 02, 3

ROM

COMPARE io n

Ί0 16 18 20 +5 E/D

COMPARE

LATCH

200A

PATENTED JAN 71975

3,859,635

SHEET 223 OF' 224

200 B

PATENTED JAN 71975 3,859,635

SHEET 22U OF 224

Tig 200 C

3,859,635

PROGRAMMABLE CALCULATOR

BACKGROUND OF THE INVENTION

This invention relates generally to calculators and improvements therein and more particularly to pro- 5 grammable calculators that may be controlled both manually from the keyboard input unit and automatically by a stored program loaded into the calculator from the keyboard input unit or an external record member.

Conventional 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 separately increase the amount of program and data storage memory or to perform special keyboard functions oriented toward the environment of the user.

They also typically cannot perform indirectly addressed numeric data register transfers and arithmetic without utilizing available working registers for addresses rather than data. This seriously limits their ability to efficiently perform complex operations such as file manipulations or matrix arithmetic. Moreover, they typically have a very limited capability for performing direct arithmetic between working and storage memory registers and little or no capability for performing indirect arithmetic between working and storage memory registers.

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 back 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 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 indication of the individual program steps once the program is reloaded into the calculator.

Conventional programmable calculators with selfcontained output printer units typically have a very limited alpha capability of only a few selected characters confined to certain columns of the printer. They are therefore typically unable to print out both a numeric and a distinct mnemonic representation of every program step of every program stored within the calculator. Furthermore, they are typically unable to print out labels for inputs to and outputs from the calculator or messages informing the user how to run programs with which he may be unfamiliar. Such features would be very helpful to the user both in editing programs and in simplifying their use.

In some conventional programmable calculators a program stored within the calculator may be edited by single stepping forward through the program while viewing an output display representing the lastencountered program step and its associated address and, in one case, also the presently-encountered program step and its associated address. However, these calculators typically cannot single step backward through the program or display the next program step to be encountered and its associated address. Moreover, they typically have no provision for inserting program steps into the program without reloading portions of the program and no provision for finding every occurrence of any designated program step. Such features would also be very helpful to the user in editing programs.

Conventional computer systems have or may be programmed to have much more capability than conventional programmable calculators. However, they are larger, more expensive, and less efficient in calculating elementary mathematical functions than conventional 10 programmable calculators. Moreover, a skilled programmer is typically required to utilize them. Due to these factors, conventional computer systems are best suited for handling large amounts of data or making highly iterative or very complex mathematical calcula15 tions.

SUMMARY OF THE INVENTION

The principal object of this invention is to provide an improved programmable calculator that has more ca20 pability and flexibility than conventional programmable calculators and that is smaller, less expensive, more efficient in calculating elementary mathematical functions, and easier to utilize than conventional computer systems.

Another object of this invention is to provide a programmable calculator in which the amount of program and data storage memory available to the user may be separately expanded and in which additional program and data storage memory made available to the user is 30 automatically accommodated by the calculator and the user informed when he has exceeded the capacity of either the program or data storage memory.

Another object of this invention is to provide a programmable calculator in which the functions per35 formed by the calculator may be readily expanded by the user and oriented toward the environment of the user and in which the added functions are automatically accommodated by the calculator.

Another object of this invention is to provide a pro40 grammable calculator in which the user may define keyboard functions to be performed by the calculator and may protect them from subsequently being inadvertently altered or destroyed.

Another object of this invention is to provide a programmable calculator capable of employing extensive indirect addressing to permit efficient manipulation of files and matrix operations.

Another object of this invention is to provide a pro5θ grammable calculator in which the user may employ υ either absolute or symbolic addressing and in which program jumps or subroutine calls may be made to absolute or symbolic addresses.

Another object of this invention is to provide a pro55 grammable calculator capable of performing both direct and indirect storage, recall, and exchange between working and storage memory registers.

Another object of this invention is to provide a programmable calculator capable of performing both direct and indirect arithmetic bidirectionally between working and storage memory registers.

Another object of this invention is to provide a programmable calculator capable of performing serial binary arithmetic, parallel-by-digit binary-coded-decimal 65 arithmetic, and logic operations.

Another object of this invention is to provide a programmable calculator in which either programs or data stored within the calculator may be separately re3,859,635 corded on an external magnetic record member and, subsequently, separately reloaded back into the calculator therefrom.

Another object of this invention is to provide a programmable calculator in which the user may designate any program stored within the calculator as being secure when it is recorded onto an external magnetic record member for subsequent re-entry into the calculator and in which the user is prevented from rerecording any secure program or obtaining any indication of its individual program steps once it is reloaded into the calculator.

Another object of this invention is to provide a programmable calculator capable of printing out every alphabetic and numeric character and many other symbols individually and in messages.

Another object of this invention is to provide a programmable calculator capable of printing out both a numeric and a mnemonic representation of each keyboard entry in a key-log listing.

Another object of this invention is to provide a programmable calculator capable of printing out a numeric representation of each numeric keyboard entry and calculated numeric result and a mark distinguishing each numeric keyboard entry from each calculated numeric result.

Another object of this invention is to provide a programmable calculator capable of printing out both a numeric and mnemonic representation of each step in a program stored within the calculator and a numeric indication of the address of each program step in a program listing.

Another object of this invention is to provide a programmable calculator capable of editing programs stored within the calculator more efficiently than conventional programmable calculators.

Another object of this invention is to provide a programmable calculator in which the user may single step either forward or backward through an internally stored program in a program entering mode to check the program and may single step forward through the program in a program-controlled operating mode to check the program execution.

Another object of this invention is to provide a programmable calculator in which the last program step encountered, the program step presently encountered, and the next program step to be encountered, while single stepping either forward or backward through a program stored within the calculator, may be displayed.

Another object of this invention is to provide a programmable calculator in which the user may insert program steps and automatically locate every occurrence of a designated program step in a program stored within the calculator.

Other and incidental objects of this invention will become apparent from a reading of this specification and an inspection of the accompanying drawings.

These objects are accomplished according to the illustrated preferred embodiment of this invention by employing a keyboard input unit, a magnetic card reading and recording unit, a solid state output display unit, an output printer unit, an input-output control unit, a memory unit and a central processing unit to provide an adaptable programmable calculator having manual operating, automatic operating, program entering, magnetic card reading, magnetic card recording, and alphameric printing modes. The keyboard input unit includes a group of data keys for entering numeric data into the calculator, a group of control keys for controlling the various modes and operations of the calculator and the format of the output display, and a group of definable keys for controlling additional functions that may be added by the user. All of the data keys and nearly all of the control keys may also be employed for programming the calculator, many of the control keys being provided solely for this purpose. The keyboard input unit also includes a group of indicator lights for informing the user of the status of the calculator. These indicator lights and all of the keys are mounted on a front panel of a housing for the calculator.

The magnetic card reading and recording unit includes a reading and recording head, a drive mechanism for driving a magnetic card from an input receptacle in the front panel of the calculator housing past the reading and recording head to an output receptacle in the front panel, and reading and recording drive circuits coupled to the reading and recording head for bidirectionally transferring information between the magnetic card and the calculator as determined by the control keys of the keyboard input unit. It also includes a pair of detectors and an associated control circuit for disabling the recording drive circuit whenever a notch is detected in the leading edge of the magnetic card to prevent information recorded on the magnetic card from being inadvertently destroyed. Such a notch may be provided in any magnetic card the user desires to protect by simply pushing out a perforated portion thereof.

The solid state output display unit includes three rows of light emitting diode arrays and associated drive circuits for selectively displaying three separate lines of numeric information. Numeric data may be displayed in either a fixed or a floating point format as determined by the control keys of the keyboard input unit.

The output printer unit includes a stationary thermal printing head with a row of resistive heating elements, a drive circuit for selectively energizing each heating element, and a stepping mechanism for driving a strip of thermal-sensitive recording paper past the stationary thermal printing head in seven steps for each line of alphameric information to be printed out. Every alphabetic and numeric character and many other symbols may be printed out individually or in messages as determined by the control keys of the keyboard input unit or by a program stored within the calculator.

The input-output unit includes a 16-bit universal shift register serving as an input-output register into which information may be transferred serially from the central processing unit or in parallel from the keyboard input and magnetic card reading and recording units and from which information may be transferred serially to the central processing unit or in parallel to the keyboard indicator lights and to the solid state output display, magnetic card reading and recording, and output printer units. It also includes control logic responsive to the central processing unit for controlling the transfer of information between 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, for example, a digitizer, a marked card reader, an X-Y plotter, a magnetic tape unit, and a typewriter. A plurality of peripheral units may be connected at the same time to the input-output control unit by simply plugging interface modules asso3,859,635 ciated with the selected peripheral units into receptacles provided therefore in a rear panel of the calculator housing.

The memory unit may employ both direct and indirect decimal and symbolic addressing. It includes a modular random-access read-write memory having a program storage section for storing a plurality of program steps and having a separate data storage section including a plurality of working registers, a plurality of associated display registers, and a plurality of storage registers for manipulating and storing data. These program and data storage sections of the read-write memory may be separately expanded without increasing the overall dimensions of the calculator by the addition of program storage modules or by the alteration of the data storage memory control. Additional read-write memory made available to the user is automatically accommodated by the calculator, and the user is automatically informed when the program or data storage capacity of the read-write memory has been exceeded.

The memory unit also includes a modular read-only memory in which routines and subroutines of basic instructions for performing the various functions of the calculator are stored. These routines and subroutines of the read-only memory may be expanded and adapted by the user to perform additional functions oriented toward the specific needs of the user. This is accomplished by simply plugging additional read-only memory modules into receptacles provided therefor in the top panel of the calculator housing. Added readonly memory modules are automatically accommodated by the calculator and may be associated with the definable keys of the keyboard input unit or employed to expand the operations associated with other keys. An overlay is employed with each added read-only memory module associated with the definable keys of the keyboard input unit to identify the additional functions that may then be performed by the calculator.

Plug-in read-only memory modules including, for example, an alpha module, a mathematics module, a statistics module, a definable functions module, and a typewriter module may be added to the read-only memory. The alpha module enables the calculator to print out every alphabetic character individually or in messages. It employs addressing enabling it to redefine most of the keys of the keyboard input unit so that it may be employed at the same time as other plug-in read-only memory modules. The mathematics module enables the calculator to perform trigonometric functions, coordinate transformations, vector arithmetic, and many other mathematical functions. Similarly, the statistics module enables the calculator to perform random number generations, accumulations of sums, sums of products and sums of squares for up to five variables, linear and multiple linear regressions, and many other statistical functions. It also permits the use of a correct key, included among the definable keys of the keyboard input unit, to automatically delete data from a statistical analysis. The definable functions module enables the user to store programs of his own choosing in the program storage section of the read-write memory, associate them with some of the definable keys of the keyboard input unit, and protect them from subsequently being inadvertently altered or destroyed. It also permits the use of an insert key and a find key, included among the definable keys of the keyboard input unit, to insert program steps in a program stored in the read6 write memory and to find evey occurrence of any designated program step in the stored program. The typewriter module enables the calculator to control the entire keyboard of a properly interfaced typewriter.

The memory unit further includes a pair of recirculating 16-bit serial shift registers. One of these registers serves as a memory address register for serially receiving information from an arithmetic-logic unit included in the central processing unit, for parallel addressing any memory location designated by the received information, and for serially transferring the received information back to the arithmetic-logic unit. The other of these registers serves as a memory access register for serially receiving information 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 as a four-bit parallel shift register for transferring four bits of binary-coded-decimal information in parallel to the arithmetic-logic unit.

The central processing unit includes four recirculating 16-bit serial shift registers, a four-bit serial shift register, the arithmetic logic unit, a programmable clock, and a microprocessor. Two of these 16-bit serial shift registers serve as accumulator registers for serially receiving information from and serially transferring 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 fourbit parallel shift register for receiving four bits of binary-coded-decimal information in parallel from and transferring four bits of such information in parallel to the arithmetic-logic unit. The two remaining 16-bit 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 performing 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 bi-directional direct and indirect arithmetic between any of a plurality of the working registers and any of the storage registers of the data storage section of the read-write memory.

The programmable clock is employed to supply a variable number of shift clock pulses to the arithmeticlogic unit and to the serial shift registers of the inputoutput, memory, and central processing units. It is also employed to supply clock control signals to the inputoutput control logic and to the microprocessor.

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 inputoutput control logic, for controlling the addressing and accessing of the memory unit, and for controlling the operation of the two accumulator registers, the program counter register, the extend register and the arith3,859,635 metic-logic unit. They also include a plurality of clock codes for controlling the operation of the programmable clock, a plurality of qualifier selection 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 provided for the calculator, control signals for the programmable 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 manual operating mode, the calculator is controlled by keycodes sequentially entered into the calculator from the keyboard input unit by the user. The solid state output display unit displays a numeric representation of the contents of three of the working registers and their associated display registers. These working registers and their associated display registers may contain the last-entered numeric operand and two previously entered or calculated numeric operands or results or three previously entered or calculated numeric operands or results. The output printer unit may be controlled by the user to selectively print out a numeric representation of any numeric data entered into the calculator from the keyboard input unit, a numeric representation of any result calculated by the calculator, and a mark distinguishing numeric data entries from calculated numeric results. If the alpha read-only memory module is plugged into the calculator, the output 35 printer unit may also be controlled by the user to print out labels for inputs to and outputs from the calculator and any other alphabetic information that may be desired.

When the calculator is in the manual operating 40 mode, it may also be operated in a key-log alphameric printing mode. The output printer unit then prints out a numeric representation of each keycode as it is entered by the user. If the alpha read-only memory module is plugged into the calculator, the output printer 45 unit also prints out a mnemonic representation of each such keycode.

In the automatic operating mode, the calculator is controlled by automatically obtaining keycodes stored as steps of a program in the program 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 or may be entered from the keyboard input unit by the User while the operation of the calculator is stopped for data either by the program or by the user. The solid state output display unit displays the final contents of the three registers and their associated display registers. This may include the final calculated numeric result and two previously entered or calculated numeric operands or results or three previously entered or calculated numeric operinds or results. The output printer unit prints out catenated numeric results and other numeric information iesignated by the program. If the alpha read-only memory module is plugged into the calculator, the output orinter unit also prints out any alphabetic information iesignated by the program.

When the calculator is in the automatic operating mode, the user may also employ a step program control key of the keyboard input unit to single step forward through the program being executed. This enables the 5 user to check the execution of the program step by step in order to determine whether the program, as entered into the calculator, does in fact carry out the desired sequence of operations.

In the program entering mode, keycodes are sequen10 tially entered by the user into the calculator from the keyboard input unit and are stored as steps of a program in the program storage section of the read-write memory. The program may include sequences of program steps that will be intrepreted, when the program 15 is executed, as alphabetic information to be printed out by the output printer unit if the alpha read-only memory module is plugged into the calculator. This alphabetic information may include labels for inputs to and outputs from the calculator, alphabetic messages for 20 facilitating the use of the program and the operation of the calculator, or any other alphabetic information that may be desired. While the user is entering a program into the calculator in the program entering mode, the solid state output display unit displays a numeric repre25 sentation of the last-entered program step and its associated address and the addresses of the next two program steps to be entered and the present contents of those addresses.

In the program entering mode, the user may also em30 ploy the step program control key and a back step control key of the keyboard input unit, to single step either forward or backward through any sequence of program steps stored in the program storage section of the readwrite memory. While the user is single stepping forward or backward through a sequence of program steps, the solid state output display unit displays a numeric representation of the last-encountered program step, the program step presently encountered, the next program step to be encountered, and the addresses of these program steps. If the definable functions read-only memory module is plugged into the calculator, the user may also employ the insert and find keys described above by switching to the manual operating mode. These features greatly facilitate the editing of programs stored in the program storage section of the read-write memory.

When the calculator is in the program entering mode, it may also be operated in a key-log alphameric printing mode. The output printer unit then prints out a numeric representation of each program step and its associated address as it is entered into the calculator from the keyboard input unit by the user. If the read-only memory module is plugged into the calculator, the output printer unit also prints out a mnemonic representation of each such program step.

When the calculator is in the program entering mode, it may also be operated in a list alphameric printing mode. The output printer unit then prints out a numeric representation of every program step then stored in the program storage section of the read-write memory and a numeric representation of the addresses of those program steps. If the alpha read-only memory module is plugged into the calculator, the output printer unit also prints out a mnemonic representation 65 of each such program step.

In the magnetic card reading mode, the magnetic card reading and recording unit may be employed by the user to separately load either data or programs into

3,859,635 the calculator from one or more external magnetic cards. Data and programs so loaded are separately stored in the data storage and program storage sections of the read-write memory.

In the magnetic card recording mode, the magnetic card reading and recording unit may be employed by the user to separately record either data or programs, separately stored in the data storage and program storage sections of the read-write memory, onto one or more external magnetic cards. Programs stored in the program storage section of the read-write memory may be coded by the user as being secure when they are recorded onto one or more external magnetic cards. The calculator detects such programs when they are reloaded into the calculator and prevents the user from re-recording them or obtaining any listing or other indication of the individual program steps.

DESCRIPTION OF THE DRAWINGS

FIG. 1 is a front perspective view of an adaptable programmable calculator according to the preferred embodiment of this invention.

FIG. 2 is a rear perspective view of the adaptable programmable calculator of FIG. 1.

FIGS. 3A-B are simplified block diagrams of the adaptable programmable calculator of FIGS. 1 and 2.

FIG. 4 is a memory map of the memory unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 5 is a detailed memory map of the dedicated portion of the data storage section of the read-write memory employed in the memory unit of FIGS. 3A-B and 4.

FIG. 6 is a detailed memory map of the dedicated 35 portion of the program storage section of the readwrite memory employed in the memory unit of FIGS. 3A-B and 4.

FIGS. 7A-C are simplified operational logic flow charts illustrating the operation of the microprocessor 40 employed in the central processing unit of FIGS. 3A-B.

FIG. 7' is a figure map showing how the operational flow charts of FIGS. 7 A-C fit together.

FIG. 8 is a plan view of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B showing how the keyboard input unit may be redefined by an alpha plug-in read-only memory module that may also be employed in the adaptable programmable calculator.

FIG. 9 is a plan view of the definable keys of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B and the overlay associated with a definable functions plug-in readonly memory module that may be employed in the adaptable programmable calculator.

FIG. 12 is a plan view of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B showing how the keyboard input unit may be redefined by a typewriter plug-in read-only 5 memory module that may also be employed in the adaptable programmable calculator.

FIG. 13 is a simplified flow chart of the overall control sequence employed for keycode processing in the adaptable programmable calculator of FIGS. 1, 2, and 10 3A-B.

FIG. 14 is a flow chart of the display routine of FIG. 13.

FIGS. 15 A-C are flow charts of the display list building routine of FIG. 14.

FIG. 16 is a map of the output bit assignment for The seven-segment display employed in the adaptable programmable calculator of FIGS 1, 2, and 3A-B.

FIG. 17 is a map of the display list built in the readwrite memory of FIGS. 3A-B, 4, and 5.

FIG. 18 is a map of the internal structure of the display list of FIG. 17.

FIGS. 19A-B are flow charts of the monitor routine employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 20A-B are flow charts of the interpreter routine of FIG. 13.

FIGS. 21 A-D are flow charts of the program mode key, run mode key, floating-point display key, and fixed-point display key processing routines, respectively, of FIG. 13.

FIG. 22 is a map of the status word register of FIG. 5 illustrating how it is employed by some of the routines of FIGS. 21A-D.

FIG. 23 is a flow chart of the back step key processing routine of FIG. 13.

FIG. 24 is a flow chart of the clear key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 25 is a flow chart of the end key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 26 is a flow chart of the stop key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 27 is a flow chart of the integer x key processing ,3 routine selectable by the interpreter routine of FIG. 13.

FIG. 28 is a flow chart of the pi key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 29 dis a flow chart of the clear x key processing routine selectable by the interpreter of FIG. 13.

FIGS. 30A-B are simplified flow charts of the number entry processing routine selectable by the interpreter of FIG. 13.

FIGS. 31A-C are flow charts of portions of the magnitude processing portions of the number entry routine of FIGS. 30A-B.

FIG. 10 is a plan view of the definable keys of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B and the overlay associated with a mathematics plug-in readonly memory module that may be employed in the 60 adaptable programmable calculator.

FIG. 11 is a plan view of the definable keys of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B and the 65 overlay associated with a statistics plug-in read-only memory module that may be employed in the adaptable programmable calculator.

FIGS. 32A-B are flow charts of exponent processing portions of the number entry routine of FIGS. 30A-B.

FIG. 33 is a flow chart of the change-sign processing portion of the number entry routine of FIGS. 30A-B.

FIG. 34 is a flow chart of the termination portion of the number entry routine of FIGS. 30A-B.

FIG. 35 is a flow chart of the up-key processing routine selectable by the interpreter of FIGS. 13.

FIG. 36 is a flow chart of the down-key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 37 is a flow chart of the roll-up key processing routine selectable by the interpreter routine of FIG. 13.

3,859,635

FIGS. 38A-B are simplified flow charts of the register transfer and register arithmetic routines selectable by the interpreter routine of FIG. 13.

FIGS. 39A-B are flow charts of the register transfer and automatic address termination routine employed in connection with the register transfer arithmetic key processing routine of FIGS. 38A-B.

FIG. 40 is a flow chart of the indirect-key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 41 is a flow chart of the a- and fe-register transfer key processing routines selectable by the interpreter routine of FIG. 13.

FIG. 42 is a flow chart of the indirect address computation routine employed in connection with the indirect-key processing routine of FIG. 40.

FIG. 43 is a flow chart of the decimal address jump and automatic address termination routine employed in connection with the go-to and if key processing routines selectable by the interpreter routine of FIG. 13.

FIG. 44 is a flow chart of the label-key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 45 is a flow chart of the if key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 46 is a flow chart of the subroutine/return key 25 processing routine selectable by the interpreter routine of FIG. 13.

FIGS. 47A-C are flow charts of the floating point add and subtract key processing routines selectable by the interpreter routine of FIG. 13.

FIG. 48 is a flow chart of the floating point multiply key processing routine selectable by the interpreter routine of FIG. 13.

FIGS. 49A-B are flow charts of the floating point division key processing routine of FIG. 13.

FIGS. 50A-C are flow charts of the floating point square root key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 51 is a flow chart of the store routine of FIG. 13.

FIG. 52 is a flow chart of the rounding routine employed in connection with several of the routines selectable by the interpreter routine of FIG. 13.

FIG. 53 is a flow chart of the x-squared key processing routine selectable by the interpreter routine of FIG.

13.

FIG. 54 is a flow chart of the reciprocal-x key processing routine selectable by the interpreter routine of FIG. 13.

FIGS. 55A-B are flow charts of the basic format key processing routine selectable by the interpreter routine 50 of FIG. 13.

FIG. 56 is a flow chart of a search routine that may be employed in connection with the basic format key processing routine of FIGS. 55-B.

FIG. 57 is a memory map illustrating the use of the 55 search routine of FIG. 56.

illustrating how a secure program is destroyed by an unsecure program.

FIG. 63 is a flow chart of the format recording portion of the record key processing routine of FIG. 13.

FIG. 64 is a flow chart of the data recording portion of the record key processing routione of FIG. 13.

FIG. 65 is a flow chart of the data loading portion of the load key processing routine of FIG. 13.

FIG. 66 is a flow chart showing how a plug-in read10 only memory module employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B can obtain keycodes from a program stored in the program storage section of the read-write memory of FIGS. 3A-B and 4.

FIGS. 67A-C show how the print routine accesses code information stored in tables in the data storage section of the read-write memory of FIGS. 3A-B and 4.

FIGS. 68A-B are memory maps of a directive table and a code table respectively, in an alpha plug-in readonly memory module that may be employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 69 is a flow chart showing how the printer code is accessed by an alpha plug-in read-only memory module employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 70A-B are flow charts of the typewriter format routine employed in connection with the format key processing routine selectable by the interpreter routine of FIG. 13.

FIG. 71 is a memory map of a typewriter mnemonic table in a typewriter plug-in read-only memory module 3 that may be employed in the adaptable programmable calculator of FIGS. 1, 2, and 1, 2, and B.

FIG. 72 is a flow chart of a typewriter list routine that may be performed when the typewriter read-only mem40 ory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 73 is a flow chart of a typewriter print routine that may be performed when the typewriter read-only memory module is plugged into the adaptable program45 mable calculator of FIGS. 1, 2, and 3A-B.

FIG. 74 is a flow chart of a typewriter alpha routine that may be performed when the typewriter read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 75 is a flow chart of a definable keycode entry routine employed when the definable functions readonly memory module is plugged into the calculator.

FIG. 76 is a flow chart of a protect key processing routine that may be performed when the definable functions read-only memory module is plugged into the calculator.

FIGS. 58A-B are flow charts of a plotter routine employed in connection with the basic format key processing routine of FIGS. 55A-B.

FIG. 59 is a map of a memory register employed in connection with the plotter routine of FIGS. 58A-B.

FIG. 60 is a flow chart of the program-step recording portion of the record key processing routine of FIG. 13.

FIG. 61 is a flow chart of the program-step loading portion of the load key processing routine of FIG. 13.

FIG. 62 is a memory map of the program storage section of the read-write memory of FIGS. 3A-B and 4-6

FIG. 77 is a flow chart of a memory search routine that may be performed when the definable functions read-only memory module is plugged into the calculator.

FIGS. 78A-B are flow charts of a definable function calls routine that may be performed when the definable functions read-only memory module is plugged into the calculator.

FIG. 79 is a directive table of the function calls that may be performed by the definable function calls routine of FIGS. 78A-B.

3,859,635

FIG. 80 is a flow chart of a definable function return routine employed with the definable function calls routine of FIGS. 78A-B.

FIG. 81 is a flow chart of a turn-off-the-function light subroutine employed by the definable function return 5 routine of FIG. 80.

FIG. 82 is a flow chart of a function stack checking subroutine employed by the definable function calls routine and the definable function return routine of FIGS. 78A-B and 80, respectively. 10

FIG. 83 is a flow chart of a delete-protect routine that may be performed when the definable functions readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 84 is a flow chart of a turn-off-the-delete-light 15 subroutine employed by the delete-protect routine of FIG. 83.

FIG. 85 is a flow chart of an empty-the-functionstack subroutine employed by the delete-protect routine of FIG. 83. 20

FIG. 86 is a flow chart of a find routine that may be performed when the definable functions read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B. 25

FIG. 87 is a flow chart of a get-the-next-key subroutoine employed by the find routine of FIG. 86.

FIG. 88 is a flow chart of a memory compactor routine that may be performed when the definable functions read-only memory module is plugged into the 30 adaptable programmable calculator of FIGS. 1,2,and 3A-B

FIG. 89 is a memory map illustrating the use of the memory compactor subroutine of FIGS. 88.

FIGS. 90A-C are flow charts of a delete routine that 35 may be performed when the definable functions readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3 A-B.

FIGS. 91 A-B are flow charts of an insert routine that may be performed when the definable functions readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 92 is a flow chart of an address calculating subroutine employed by the insert routine of FIGS. 91A-B.

FIGS. 93A-B are flow charts of a tangent x routine that may be performed when the mathematics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 94A-B are flow charts of an arctangent x routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 95A-B are flow charts of an e-to-the-x-power that may be performed when the mathematics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 96 is a flow chart of a natural logarithm x routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 97 is a flow chart of a subroutine employed by the tangent x and the e-to-the-x-power routines of FIGS. 93A-B and 95A-B, respectively.

FIG. 98A-B are flow charts of a subroutine employed by the tangent x and arctangent x routines of FIGS. 93A-B and 94A-B, respectively.

FIGS. 99A-B are flow charts of a subroutine employed by the e-to-the-x-power and natural logarithm x routines of FIGS. 95A-B and 96, respectively.

FIG. 100 is a flow chart of a subroutine employed by the arctangent x and natural logarithm x routines of FIGS. 94A-B and 96, respectively.

FIG. 101 is a flow chart of sine and cosine routines that may be performed when the mathematics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 102 is a flow chart of a table fix) routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 103 is a flow chart of an arc routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 104 is a flow chart of an arcsine routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 105 is a flow chart of an arccosine routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 106 is a flow chart of a conversion to polar coordinates routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 107 is a flow chart of a conversion to rectangular coordinates routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 108 is a flow chart of a 10-to-the-x-power routine that may be performed when the mathematics read-only memory module is plugged into the adapt40 able programmable calculator of FIGS. 1,2, and 3A-B.

FIG. 109 is a flow chart of an absolute value y routine that may be performed when the mathematics readonly memory module is plugged into the adaptable progammable calculator of FIGS. 1, 2, and 3A-B.

FIG. 110 is a flow chart of an x-to-the-y-power routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1,2, and 3A-B. 5θ FIG. 111 is a flow chart of a logarithm-to-the-base-10 υ routine that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1,2, and 3A-B.

FIG. 112 is a flow chart of a routine for converting 55 degrees, minutes, and seconds to degrees that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 113 is a flow chart of a routine for converting degrees to degrees, minutes, and seconds that may be performed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 114 is a flow chart of a subroutine employed by the routine of FIG. 113 for converting degrees to degrees, minutes, and seconds.

FIG. 115 is a flow chart of an x factorial routine that may be employed when the mathematics read-only

3,859,635 memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 116 is a flow chart of a recall routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 117 is a flow chart of an accumulate plus routine that may be employed when the mathematics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 118 is a flow chart of an accumulate minus routine that may be employed when the mathematics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 119A-B are flow charts of a rounding routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 120 is a flow chart of a scale routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 121 is a flow chart of a subroutine employed by the scale routine of FIG. 120.

FIG. 122 is a flow chart of a clear routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 123 is a flow chart of a definable f(x) routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 124 is a flow chart of a do-loop routine that may be employed when the mathematics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 125A-B are flow charts of a summation routine that may be performed when the statistics readonly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 126 is a flow chart of a correct routine that may be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 127 is a flow chart of a t-pair routine that may be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 128 is a flow chart of an x-squared routine that nay be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 129 is a flow chart of a mean value routine that nay be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 130 is a flow chart of a maximum/minimum rou:ine that may be performed when the statistics readbnly memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 131 is a flow chart of a variance routine that nay be performed when the statistics read-only mem>ry module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 132 is a flow chart of an initialize routine that nay be performed when the statistics read-only mem- ory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 133 is a flow chart of a regression routine that may be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 134 is a flow chart of a variables routine that may be performed when the statistics read-only memory module is plugged into the adaptable programma10 ble calculator of FIGS. 1, 2, and 3A-B.

FIG. 135 is a flow chart of an ^-correlation routine that may be performed when the statistics read-only memory module is plugged into the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 136 is a block diagram of the microprocessor of FIGS. 3A-B.

FIGS. 137A-D are detailed schematic diagrams of the microprocessor of FIGS. 34A-B and 136.

FIG. 137' is a figure map showing how the detailed 20 schematic diagrams of FIGS. 137A-D fit together.

FIGS. 138A-H are detailed flow charts illustrating the operation of the microprocessor of FIGS. 3A-B, 136, and 137A-D.

FIG. 138' is a figure map showing how the detailed 25 flow charts of FIGS. 138A-D fit together.

FIG. 138'' is a figure map showing how the detailed flow charts of FIGS. 138E-H fit together.

FIG. 1381 shows the macro-instruction coding table, the used data format, and the used address and constants for the micro-processor of FIGS. 3A-B and 136.

FIG. 138J is an instruction table for the microprocessor of FIGS. 3A-B and 136.

FIG. 139 is a block diagram of the programmable clock of FIGS. 3A-B.

FIGS. 140A-C are detailed schematic diagrams of the programmable clock of FIGS. 3A-B and 139 and of a portion of the input-output control unit of FIG. 3A-B.

FIG. 140' is a figure map showing how the detailed 40 schematic diagrams of FIGS. 149A-C fit together.

FIG. 141 is a waveform diagram illustrating the operation of the programmable clock of FIGS. 3A-B 139, and 140A-C.

FIGS. 142A-D are detailed schematic diagrams of 5 the shift register and arithmetic logic units of FIGS.

3A-B.

FIG. 142' is a figure map showing how the detailed schematic diagrams of FIGS. 142A-D fit together.

FIG. 143 is a block diagram of the arithmetic-logic unit of FIGS. 3A-B.

FIG. 144 is a table of the function code assignments of the arithmetic-logic unit of FIGS. 142A-D and 143.

FIG. 145 is a table of integrated circuits that may be „ employed to construct the ALU of FIGS. 142A-D and 143.

FIG. 146 is a block diagram of the memory unit of FIGS. 3A-B.

FIG. 147 is a table of mnemonics used in the memory 60 unit of FIG. 3.

FIG. 148 is a schematic diagram of the read-write memory of FIGS. 3A-B 4, and 146.

FIG. 149 is a schematic diagram of one of the add-on read-write memory modules of FIG. 146 that may be 65 plugged into the calculator to increase the amount of program storage memory available to the user.

FIG. 150 is a schematic diagram of the other add-on read-write memory module of FIG. 146 that may be

3,859,635 plugged into the calculator to further increase the amount of program storage memory available to the user.

FIG. 151 is a schematic diagram of the read-only memory of FIGS. 3A-B 4, and 146.

FIG. 152 is a schematic diagram of the add-on readonly memory modules of FIG. 146 that may be pluged into the calculator to increase the number of functions available to the user.

FIG. 153 is a block diagram of one of the read-only memory chips of FIGS. 151-152.

FIGS. 154A-D are schematic diagrams of one of the read-only memory chips of FIGS. 151-152.

FIG. 154' is a figure map showing how the detailed schematic diagrams of FIGS. 154A-D fit together.

FIG. 155 is a memory map of the memory unit of FIGS 3A-B and 4 illustrating how it is partitioned into the read-only and read-write memory chips of FIGS. 148-153 and 154A-D.

FIG. 156 is a flow chart illustrating how the row numbers of the lists stored in the read-only memory chips are computed.

FIG. 157 is a table of bit mumbers of actual bits used in connection with the flow chart of FIG. 156.

FIGS. 158A-D are detailed schematic diagrams of the memory address register of FIGS. 3A-B and 146.

FIG. 158' is a figure map showing how the detailed schematic diagrams of FIGS. 158A-D fit together.

FIGS. 159A-D are detailed schematic diagrams of the control circuitry of FIGS. 3 and 146.

FIG. 159' is a figure map showing how the detailed schematic diagrams of FIGS. 159A-D fit together.

FIG. 160 is a waveform diagram illustrating the operation of the control circuitry of FIGS. 159A-D.

FIGS. 161A-D are detailed schematic diagrams of the memory access register of FIGS. 3 A-B and 146.

FIG. 161' is a figure map showing how the detailed schematic diagrams of FIGS. 161A-D fit together.

FIGS. 162A-D are detailed schematic diagrams of the input-output register and gating control circuits employed in the input-output control unit of FIG. 3.

FIG. 162' is a figure map showing how the detailed schematic diagrams of FIGS. 162A-D fit together.

FIG. 163 is a schematic diagram of the source and and relationship of the input-output party lines connected to the peripheral interface module receptacles of FIG. 2.

FIG. 164 is a waveform diagram illustrating the operation of the control section of the input-output control unit FIGS. 3A-B and 140A-C.

FIG. 165 is a flow chart illustrating the operation of the control section of the input-output control unit of FIGS. 3A-B and 140A-C.

FIG. 166 is a schematic diagram of the address code decoding for the output section of the interface modules employed with the input-output control unit of FIGS. 3A-B.

FIG. 167 is a chart listing and defining all of the input-output lines of the input-output control unit of FIGS. 3A-B.

FIG. 168 is a waveform diagram of some of the output signals employed by the input-output control unit and associated interface modules of FIGS. 3A-B.

FIG. 169 is a waveform diagram of some of the input signals employed by the input-output control unit and associated interface modules of FIGS. 3A-B.

FIG. 170 is a waveform diagram illustrating the operation of the interrupt mode of operation of the inputoutput control unit of FIGS. 3A-B.

FIG. 171 is a schematic diagram of logic that may be used to interface an output peripheral to the inputoutput control unit of FIGS. 3A-B.

FIG. 172 is a schematic diagram of logic that may be used to interface an input peripheral to the inputoutput control unit of FIGS. 3A-B.

FIG. 173 is a schematic diagram of logic that may be used to interface an interrupting peripheral to the input-output control unit of FIGS. 3A-B.

FIGS. 174A-D are detailed schematic diagrams of the keyboard input unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 174' is a figure map showing how the detailed schematic diagrams of FIGS. 174A-D fit together.

FIG. 175 is a schematic diagram of one of the transformer pairs employed in the keyboard input of FIGS. 174A-D.

FIG. 176 is a pictorial view of a transformer employed in the keyboard input unit of FIG. 3.

FIG. 177 is a schematic diagram of the transformer of FIG. 176.

FIG. 178 is a schematic diagram of a portion of the keyboard input unit of FIGS. 174A-D.

FIG. 179 illustrates the required polarities for the drive and sense lines employed in the keyboard input unit of FIG. 3 and 176.

FIG. 180 is a block diagram of the magnetic card reading and recording unit employed in the calculator of FIGS. 1, 2, and 3A-B.

FIGS. 181A-G are schematic diagrams of the magnetic card reading and recording unit of FIG.180.

FIG. 181' is a figure map showing how the detailed schematic diagrams of FIGS. 181A-G fit together.

FIG. 182 is a block diagram illustrating how the magnetic card reading and recording unit of FIGS. 180 and 181A-G interacts with the calculator of FIGS. 1, 2, and 3A-B.

FIG. 183 is a block diagram of the output display unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIGS. 184A-B are detailed schematic diagrams of the output display unit of FIG. 183.

FIG. 184' is a figure map showing how the detailed schematic diagrams of FIGS. 184A-B fit together.

FIG. 185 is a block diagram of the output printer unit employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 186 is a cross-sectional view taken along the line A—A in FIG. 185.

FIGS. 187A-B are detailed schematic diagrams of the thermal printing head, isolation diodes, four group drivers, and one-of-10 decoder of FIG. 185.

FIG. 187' is a figure map showing how the detailed schematic diagrams of FIGS. 187A-B fit together.

FIG. 188 is a partial plan view of the thermal printing head of FIG. 185.

FIGS. 189A-D are a detailed schematic diagrams of the 20 dot drivers the internal 10-bit shift register, the motor drivers, the motor drive control circuit, and the printer timing circuit of the motor drivers of FIG. 185.

FIG. 190 is a figure map showing how the detailed schematic diagrams of FIGS. 189A-D fit together.

FIGS. 191A-B are detailed schematic diagrams of the motor drivers of FIG. 185.

3,859,635

FIG. Ι9Γ is a figure map showing how the detailed schematic diagrams of FIGS. 191A-B fit together.

FIG. 192 illustrates how the output printer unit of FIGS. 185-191 prints out each character.

FIG. 193 is a flow chart illustrating the printing oper- 5 ation of the output printer unit of FIGS. 186, 187 A-B, 188, 189A-D, and 191A-B.

FIG. 194 is a block diagram of the power supply system employed in the adaptable programmable calculator of FIGS. 1, 2, and 3A-B. 10

FIG. 195 is a detailed schematic of the 5 volt power supply of FIG. 194.

FIG. 196 is detailed schematic diagram of the 16, 20, and 24 volt power supplies of FIG. 194.

FIGS. 197A-B are detailed schematic diagrams of 15 the positive and negative 12 volt power supplies of FIG. 194.

FIG. 198 is a schematic diagram of an alternative ripple signal circuit that may be employed in the power supply of FIG. 195. 20

FIGS. 199A-B are block diagrams of an interface module that may be employed to interface a typewriter to the adaptable programmable calculator of FIGS. 1, 2, and 3A-B.

FIG. 199' is a figure map showing how the block dia- 25 grams of FIGS. 199A-B fit together.

FIGS. 200A-C are schematic diagrams of the interface module of FIGS. 199A-B.

FIG. 200' is a figure map showing how the schematic diagrams of FIGS. 200A-C fit together. 30

DESCRIPTION OF THE PREFERRED EMBODIMENT

GENERAL DESCRIPTION

Referring to FIGS. 1 and 2, there is shown an adaptable programmable calculator 10 including both a keyboard input unit 12 for entering information into and controlling the operation of the calculator and a magnetic card reading and recording unit 14 for recording 4θ information stored within the calculator onto one or 4 more external magnetic cards 16 and for subsequently loading the information recorded on these and other similar magnetic cards back into the calculator. The calculator also includes a solid state output display unit 45 18 for displaying three lines of numeric information stored within the calculator and a group of indicator lights 19, serving as part of the keyboard input unit, for indicating the status of the calculator. It may also include an output printer unit 20 for printing out alpha- 5θ meric information on a strip of thermal-sensitive recording paper 22. All of these input and output units are mounted within a single calculator housing 24 adjacenfto a curved front panel 26 thereof.

As shown in FIG. 2, a plurality of peripheral input 55 and output units 28 including, for example, a digitizer, a marked card reader, an X-Y plotter, and a typewriter may be connected to the calculator at the same time by .imply inserting interface modules 30 associated with Lhe selected peripheral units into any of four receptalies 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 loor 38 at the entrance of the receptacle swings down Blowing passage of the interface module. Once the in- 65 :erface module is fully inserted, a printed-circuit termilal board 40 contained within the interface module jlugs 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 any of three AC power outlets 42 provided therefor at the rear panel of calculator housing 24.

Referring to the simplified block diagram shown in FIGS. 3A-B, it may be seen that the calculator also includes an input-output control unit 44 (hereinafter referred to as the I/O 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 subroutines of basic instructions stored in the memory unit as required to process information entered into or stored within the calculator. The calculator also includes a bus system comprising an S-bus 50, a T-bus 52, and an R-bus 54 for transferring information from the memory and I/O control units to the CPU, from the CPU to the memory and I/O 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/O control unit 44 includes an input-output register 56 (hereinafter referred to as the I/O register), associated I/O gating control circuitry 58, and inputoutput control logic 60 (hereinafter referred to as the I/O control). I/O register56 comprises a universal 16bit shift register into which information may be transferred either bit-serially from CPU48 viaT-bus52orin parallel from keyboard input unit 12, magnetic card reading and recording unit 14, and peripheral input units 28 such as the marked card reader via twelve inputparty lines 62. Information may also be transferred from I/O register 56 either bit-serially to CPU 48 via S-bus 50 or in parallel to magnetic card reading and recording unit 14, solid state output display unit 18, indicator lights 19, output printer unit 20, and peripheral output units 28 such as the X-Y plotter or the typewriter via 16 output party lines 64.

I/O gating control circuitry 58 includes control circuits for controlling the transfer of information into and out of I/O register 56 in response to selected I/O qualifier control signals from CPU 48 and selected I/O control instructions from I/O control 60. It also includes an interrupt control circuit 65, a peripheral control circuit 66, a magnetic card control circuit 67, a printer control circuit 68, a display control circuit 69, and an indicator control circuit 70 for variously controlling the input and output units and issuing control signals QFG and EBT to I/O control 60 via two output lines71 and 72. These last mentioned control circuits variously perform their control functions in response to control signal POP from the power supply, I/O qualifier control signals from CPU 48, I/O control instructions from I/O control 60, and control signals from keyboard input unit 12. Interrupt control circuit 65 initiates the transfer of information into I/O 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 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/O register56, control associated peripheral

3,859,635 units 28, transfer information to and/or receive information from associated peripheral units 28, and in some cases initiate the transfer of information to I/O register 56 from the interface modules themselves. Magnetic card control circuit 67 enables magnetic card reading and recording unit 14 to respond to information in I/O register 56 and either read information into I/O register 56 from a magnetic card 16or record information onto a magnetic card 16 from I/O register 56. Printer control circuit 68, display control circuit 69, and indicator control circuit 70 enable output display unit 18, output printer unit 20, and indicator lights 19, respectively, to respond to information from I/O register 56.

When a basic I/O instruction obtained from memory unit 46 is to be executed, CPU 48 transfers control to I/O control 60 by issuing a pair of I/O microinstructions PTR and XTR thereto. In response to these I/O microinstructions from CPU 48, control signal POP from the power supply, control signals QFG and EBT from I/O gating control circuitry 58, and I/O qualifier and clock control signals from CPU48,I/O control 60 selectively issues one or more I/O control instructions to gating control circuitry 58 as required to execute the basic I/O instruction_designated by CPU 48 and issues control signals TTX, XTR, QRD, and SCB to CPU 48 via output lines 74-77. The I/O qualifier control signals issued to I/O control 60 and gating control circuitry 58 by CPU 48 are derived from the basic I/O instruction to be executed. Those qualifier control signals issued to I/O control 60 designate the specific I/O control instructions to be issued by I/O control 60, while those issued to gating control circuitry 58 designate selected control circuits to be employed in executing the basic I/O instruction.

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 (hereinafter referred to as the Tregister), and control circuitry 85 for these memories and registers RWM 78 and ROM 80 comprise MOStype semiconductor memories. As shown in the memory map of FIG. 4, they are organized into eight 1,024word pages. The basic RWM 78 contains a data storage section 86 of 512 16-bit words extending from address 1000 to address 1777 on page 0 and a separate program storage section 88 of 512 six-bit words extending from address 12000 to address 12777 on page 5. All addresses on the memory map are represented in octal form.

Data storage section 86 contains 49 four-word storage registers available to the user (as user addresses 000-048) for manipulating and storing data, 60 additional four-word storage registers that may be made available to the user (as user addresses 049-108) for the same purpose, and 76 words dedicated for use by CPU 48. The 60 additional four-word storage registers may be made available to the user by altering a control routine in the ROM section 80. This is accomplished by removing a top panel 90 of the calculator housing shown in FIG. 1, removing a printed circuit board containing the control routine to be altered, and substituting another printed circuit board containing the altered control routine. Additional data storage modules made available to the user are automatically accommodated by the calculator.

As shown in the more detailed memory map of FIG. 5, the dedicated portion of data storage section 86 includes 12 words (addresses 1750-1753, 1740-1743, and 1760-1763) employed as “X”, “Y”, and “Z” fourword working registers available to the user and 8 words (addresses 1764-1773) employed as a and b four-word storage registers available to the user. It also includes eight words (addresses 1744-1747 and 1754-1757) employed as “ARI” and “AR2” fourword working registers for performing binary-codeddecimal arithmetic; 12 words (addresses 1664-1677) employed as three (“ΤΓ”, “T2', and “T3'”) or more temporary storage registers in connection with a definable section 91 of keyboard input unit 12 (see FIG. 1); 16 words (addresses 1720-1737) employed as four (“TI”, “T2”, “T3”, and “T4”) or more temporary storage registers in connection with the remaining sections of the keyboard input unit; seven words (addresses 1711-1717) employed as a variable-length “system subroutine stack” for storing return addresses required by programs stored in ROM 80 and as temporary storage for housekeeping information required by CPU 48; one word (address 1777) employed as a “system stack pointer”; five words (addresses 1702-1706) employed as a “user subroutine stack” for storing return addresses required by programs entered into program storage section 88 of RWM 78 by the user; one word (address 1710 employed as a “user stack pointer”; one word (address 1701) employed as a “user program counter” for program steps entered into program storage section 88 by the user; one word (address 1707) employed as an “address of user 0000” register for storing the first address available to the user in program storage section 88; one word (address 1700) employed as a “microprocessor store” register for storing housekeeping information required by CPU 48; one word (address 1774) employed as an “interrupt store” register for storing information displaced from CPU 48 by some keyboard entries; one word (address 1775) employed as an “input buffer” register for storing keyboard information awaiting entry into CPU 48, and one word (address 1776) employed as a “status word” register for storing information regarding the present state of the calculator.

As shown in the memory map of FIG. 4, program storage section 88 of RWM 78 contains 500 one-word program step registers available to the user (as user addresses 0000-0499) for storing programs and 12 words dedicated for use by CPU 48. An additional 1,536 oneword program-step registers may be made available to the user (as user addresses 0500-2035) in steps of 512 words (addresses 13000-13777) and 1,024 words (addresses 14000 to 15777). This is accomplished by removing top panel 90 of the calculator housing shown in FIG. 1 and plugging additional program storage modules into the calculator. Added program storage modules are automatically accommodated by the calculator.

As shown in the more detailed memory map of FIG. 6, the dedicated portion of program storage section 88 includes one word (address 12013) employed as a “security word” register for storing a code designating a program stored in program storage section 88 as being secure. It also includes one word (address 12000) employed as an “execution flag ” register for storing infor3,859,635 mation indicating whether CPU 48 is being controlled by a program stored in the program storage section or by the keyboard input unit; two words (addresses 12001-12002) employed as “normalize flag” and “print flag” registers for storing information about numeric data being processed by CPU 48; three words (addresses 12003-12005) employed as “temporary display” registers for storing housekeeping information about the character position, decimal position, and register location of numeric information being displayed by the output display unit; one word (address 12006) employed as a “print code buffer” register for storing housekeeping information about alphameric information being printed out by the output printer unit; and four words (addresses 12007-12012) available for other uses.

As shown in the memory map of FIG. 4, the basic ROM 80 contains 2,048 16-bit words extending from address 0000 to address 0777 on page 0, from address 4000 to address 5777 on page 2, and from address 16000 to address 16777 on page 7. Routines 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 portions of ROM 80. An additional 3,072 16-bit words of ROM may also be added on pages 1, 3, and 4 in steps of 5 12 and 1,024 words. This is accomplished by simply inserting plug-in ROM modules 92 into receptacles 94 provided therefor in top panel 90 of the calculator housing as illustrated in FIG. 1 by the partially-inserted plug-in ROM module on the left. As each plug-in ROM module 92 is inserted into one of these receptacles a spring-loaded door 95 at the entrance of the receptacle swings down allowing passage of the plug-in ROM module. Once the plug-in ROM module is fully inserted as illustrated by the plug-in ROM module on the right, a printed circuit terminal board 96 contained within the plug-in ROM module plugs into a mating edge connector mounted inside the calculator. A handle 98 pivotally mounted at the top end of each plug-in ROM module 92 facilitates removal of the plug-in ROM module once it has been fully inserted into one of the receptacles 94.

Routines and subroutines of basic instructions (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 and associated with definable section 91 of keyboard input unit 12 or employed to expand the functions performed by this and other sections of the keyboard input unit.

Referring again to FIGS. 3A-B, M-register 82 of the memory unit comprises a recirculating 16-bit serial shift register into which information may be transferred bit-serially from CPU 48 via T-bus 52 and out of which information may be transferred bit-serially to CPU 48 via S-bus 50. Information shifted into M-register 82 may be employed to address any word in RWM 78 or ROM 80 via 15 output lines 106.

T-register 84 of the memory unit comprises a recirculating 16-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 16 parallel input lines 108. Information may be transferred from T-register 104 either bit-serially to CPU 48 via S-bus 50 or in parallel 5 to any addressed word in RWM 78 via 16 parallel output lines 110. The four least significant parallel of information contained in T-register 104 may comprise binary-coded-decimal information and may be transferred from the T-register in parallel to CPU 48 via 10 three parallel output lines 112 taken with S-bus 50.

The control circuitry 85 of the memory unit controls these transfers of information into and out of Mregister 82 and T-register 84, controls the addressing and accessing of RWM 78 and ROM 80, and refreshes 15 RWM 78. 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 arithmeticlogic unit 116 (hereinafter referred to as the ALU), a programmable clock 118, and a microprocessor 120. Register unit 114 comprises four recirculating 16-bit shift registers 122, 124, 126, and 128 and one four-bit shift register 130. Shift registers 122 and 124 serve as 16-bit serial accumulator registers (hereinafter referred to as the A-register and the B-register, respectively) into which information may be transferred bitserially 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 3θ A-register 122 also serve as a four-bit parallel accumulator register into which four bits of binary-codeddecimal information 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 35 may also be transferred in parallel to ALU 116 via three parallel output lines 134 taken with R-bus 54.

Shift register 126 serves as a 16-bit system program counter (hereinafter referred to as the P-register) into which information may be transferred bit-serially from 40 ALU 116 via T-bus 52 and out of which information may be transferred bit-serially to ALU 116 via R-bus 54. Information 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 5 output line 135.

Shift register 128 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 transferred bit-serially to ALU 116 via R-bus 54. Information contained in the five least-significant bit positions of Q-register 28 is transferred to I/O gating control circuitry 58 as five one-bit I/O qualifier control 55 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/O control 60 as six one-bit I/O qualifier control signals Q05-Q10 via six parallel output lines 138. Similarly, 60 information contained in the seven least-significant, the ninth and eleventh least-significant, 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 mi65 croprocessor 120 as 11 one-bit microprocessor qualifier control signals Q00-Q06, Q08, Q10, Q15, and QMR via 11 output lines 140. Information contained in the twelfth through the fifteenth least-significant bit po3,859,635 sitions of Q-register 128 may be transferred to microprocessor 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 leastsignificant bit position of T-register 84 via input line 144. Information may also be transferred out of Eregister 130 to ALU 116 via R-bus 54.

Register unit 114 also includes control circuitry 146 for controlling the transfer of parallel binary-codeddecimal information into and out of A-register 122 and the transfer of serial binary information into and out of A-register 122, B-register 124, P-register 126, Qregister 128, and E-register 130. This is accomplished in response to register microinstructions from microprocessor 120, control signals TTX and XTR from I/O 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/B flipflop) for enabling the transfer of information into and out of either the A-register 122 or the B-register 124 as determined by the state of the A/B flip-flop. 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 microinstruction CAB from microprocessor 120.

ALU 116 may perform either one-bit serial binary arithmetic on data received from T-register 84 or Mregister 82 via S-bus 50 and/or from any register of register unit 114 via R-bus 54 or four-bit parallel binarycoded-decimal arithmetic on data received from Tregister 84 via output lines 112 taken with S-bus 50 and/or from A-register 122 via output lines 134 taken with R-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 designated by ALU microinstructions from microprocessor 120 and are carried out in response to these microinstructions, shift clock control pulses from programmable clock 118, and control signal SCB from I/O control 60. Information is also transferred from ALU 116 to A-register 122 via output lines 132 or to I/O 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 OBC and QDC to microprocessor 120 via one of two output lines 152 and 154.

Programmable clock 118 includes a crystalcontrolled system clock 156, a clock decoder and generator 158, and a control gate 160. System clock 156 issues regularly recurring 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 82, 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 num ber 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 16 as determined by the number of bits of serial information required during each operation to be performed. In response to a control signal CCO from microprocessor 120, control gate 160 prevents any shift clock pulses from being 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 control60 via output line 168. In response to the regularly recurring 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 170.

Microprocessor 120 selectively issues two I/Omicroinstructions to I/O control 60 via two output lines 172, six memory microinstructions to memory unit 46 via six output lines 174, 13 register microinstructions to register unit 114 via 13 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 11 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 FIG. 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 successful, microprocessor 120 thereupon responds to this qualifier control signal by entering the basic machine operating loop and issuing microinstructions causing a 16-bit instruction stored in ROM 80 to be loaded into T-register 84 and transferred from there to Q-register 128. Microprocessor 120 thereupon sequentially responds to one or more additional qualifier control signals by issuing microinstructions and associated clock codes for executing the instruction then contained in Q-register 128 and causing another 16-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 UTR and XTR causing the microprocessor to respond to a fourbit primary address code from the Q-register by issuing additional microinstructions and associated clock codes for executing the instruction contained in the Qregister.

As illustrated by the basic machine operating loop shown in the flow chart of FIG. 7, microprocessor 120 initially responds to the qualifier control signal QNR either by issuing microinstructions and associated clock codes for interrupting the basic machine operating loop and executing an I/O service routine or by issuing microinstructions and associated clock codes for loading A/B flip-flop 148 with the information Qll

3,859,635 contained in Q-register 128. The manner in which microprocessor 120 responds is determined by the condition of the qualifier control signal QNR, which in turn indicates whether or not the basic machine operating loop should be interrupted.

Assuming the basic machine operating loop is not to be interrupted, microprocessor 120 loads the information Qll into A/B flip-flop 148 and responds to the qualifier control signal QMR either by issuing microinstructions for transferring an address portion of the instruction contained in Q-register 128 from T-register 84 into M-register 82 or by 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 QMR, which in turn indicates whether or not the instruction 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 Mregister 82 and responds to qualifier control signal Q10 either by issuing microinstructions and associated clock codes to select the base page of the memory (i.e. 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 obtained). 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 microinstructions and associated clock codes to execute an indirect memory access operation if the condition of this qualifier control signal indicates that the address information contained in M-register 82 is indirect.

Assuming the address information contained in Mregister 82 is direct (or upon completion of the indirect memory access operation), microprocessor 120 issues microinstructions and associated clock codes causing the microprocessor 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 10 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 16-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.

As illustrated by other possible paths of the basic machine operating loop shown in FIG. 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/Oinstruction is contained in Q-register 128, microprocessor 120 sequentially responds to qualifier control signals QNR, QMR, QIS, 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 FIG. 7 are variously contained within those flow chart blocks requiring decisions as will hereinafter become apparent.

KEY OPERATIONS

All operations performed by the calculator may be controlled or initiated by the keyboard input unit and/or by keycodes entered into the calculator from the keyboard input unit, the magnetic card reading and recording unit, or peripheral input units such as the marked card reader and stored as program steps in the program storage section of the RWM. The calculator responds to keycodes in basically the same manner whether obtaining them from the keyboard input unit or from the program storage section of the RWM. An operational description of the keyboard input unit is therefore now given with specific reference to FIGS. 1 and 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. The indicator lights 19 serve as a pilot light since at least two of them are always turned on while power is applied to the calculator.

As shown in FIG. 2, the calculator may be operated at 230, 200, 115, or 100 volts ± 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 within the range of 48 to 66 Hertz. The calculator is provided with a 6-amp fuse and either a 1-amp fuse for operation at a line voltage of 200 or 230 volts ± 10% or a 2-amp fuse for operation at a line voltage of 100 or 115 volts ± 10%. It is also provided with a three-conductor power cable 184 which, when plugged into an appropriate AC power outlet, grounds the calculator housing. The maximum power consumption of the calculator is 150 voltamps. No more than a total of 610 voltamps may be drawn from AC power outlets 42 provided for peripheral units 28.

Mode Keys (RUN, PRGM, KEY LOG)

When the calculator is first turned on, it is automatically initialized and placed in a manual operating mode. If the calculator is switched to some other operating mode, it may subsequently be placed in the manual operating mode again by simply depressing the RUN mode key. In the manual operating mode, operation of the calculator is manually controlled by the user from the keyboard input unit. During this mode the output display unit displays a decimal numeric representation of the contents of the x-, y-, and z-registers (or of associated memory registers in which the actual or intended contents of the x-, y-, and z-registers are temporarily stored and, for simplicity of description, are then considered to be the contents of the x-, y-, and z-registers). The contents of the x-, y-, and z-registers are displayed adjacent to the corresponding register designators “keyboard x”, “accumulator y”, and “temporary z”, respectively, in the display window. Depression of the RUN mode key also conditions the calculator for operation in an automatic operating mode, a first key-log printing mode, a program-list printing mode, a magnetic card reading mode, and a magnetic card recording mode as determined by other keys hereinafter explained. A run indicator light 19 positioned immediately below the RUN mode key is turned on

3,859,635 when the calculator is operating in any of the RUN modes.

The PRGM mode key is depressed to place the calculator in a program entering mode. In this mode keycodes sequentially entered by the user from the keyboard input unit are stored as program steps in successive program-step registers of the program storage section of the RWM as specified by the user program counter. As described above, 500 program-step registers (user addresses 0000-0499) are available, and 1536 additional program-step registers (user addresses (0500-2035) may be made available, to the user for this purpose. The program step register into which each program step is to be stored and from which each program step is to be obtained in any program-related operation is always specified by the user program counter. Thus, before entering a program or subprogram into the calculator, the user program counter must be set to the address of the program step register into which it is desired to store the initial program step of the program or subprogram to be entered (this address is hereinafter referred to as the desired starting address nnnn of the program). This may be accomplished, when the calculator is in a keyboard-controlled run mode, by depressing the GO TO key followed by the decimal-digit keys 0-9 specifying the desired starting address nnnn of the program. If the desired starting address is 0000, this may also be accomplished, when the calculator is in the manual operating mode by simply depressing the END key.

Once the user program counter is set to the desired starting address nnnn, the user may proceed to enter the program or subprogram by sequentially performing basically the same key operations that he would normally perform in the manual operating mode. Thus no special language need be learned to program the calculator. During the program entering mode the output display unit displays a decimal numeric representation of the last-entered program step and its associated address and the addresses of the next two program steps to be entered and the present contents of those addresses.

Depression of the PRGM mode key also conditions the calculator for operation in a second key-log printing mode and the program-list printing mode as determined by other keys hereinafter explained. A program mode indicator light 19 positioned immediately below the PRGM mode key is turned on when the calculator is operating in any of the PRGM modes.

The KEY LOG mode key is depressed, when the calculator is in the manual operating mode, to place the calculator in the first key-log printing mode. In this mode, the output printer unit prints out an octal numeric representation of each keyboard operation as it is performed by the user. This provides a permanent record of all keyboard operations (including regular data print-out operations), as illustrated by the following example:

Keyboard entry Key log

404 +33

505

335

-Continued Keyboard entry Key log

PRINT SPACE45

5.00000

If the alpha ROM module enabling the calculator to print out every alphabetic character and many symbols individually or in messages is plugged into the calculator, the output printer unit also prints out a mnemonic representation of each keyboard operation as it is performed by the user. This is illustrated by the following example:

Keyboard entry Key log

101

202 t UP27

303

404 + +33

505 ri- DIV35

PRINT_______

SPACE PNT45

5.00000

In the first key-log printing mode the output display unit displays the same information as during the manual operating mode.

The KEY LOG mode key is depressed, when the calculator is in the program entering mode, to place the calculator in the second key-log printing mode. In this mode the output printer unit prints out an octal numeric representation of each keycode as it is entered into the calculator from the keyboard input unit and a decimal numeric representation of the address at which each such keycode is stored as a program step in the program step in the program storage section of the RWM. This provides a permanent record of all keyboard-entered program steps, as illustrated by the following example:

Keyboard entry Key log

CLEAR 0000 20

0001 01

0002 02 t 000327

0004 - 03

0005 .....—-04 + 0006 33

0007 05

0008 30

PRINT

SPACE 0009 -— 45

STOP 001041

END 0011 46

If the alpha ROM module is plugged into the calculator, the output printer unit also prints out a mnemonic representation of each keyboard-entered program step. This is illustrated by the following example:

Keyboard entry Key log

CLEAR 0000- CLR— 20

0001- 1—01

0002- 2— 02

3,859,635

-Continued

Keyboard entry Key log

<td> PRINT</td><td> 0009-</td><td> PNT</td><td> — 45</td>

In the second key-log printing mode the output display unit displays the same information as during the program entering mode.

The KEY LOG mode key is a toggling on-off key (i.e. 15 repeated depressions of the key alternately switch the calculator in and out of either the first or the second keydog printing mode). A key-log indicator light 19 positioned immediately below the KEY LOG mode key is turned on when the calculator is operating in either 2θ key-log printing mode.

Program Keys (LIST, LOAD, RECORD)

The LIST program key is depressed, when the calculator is in the manual operating mode, first key-log printing mode, second key-log printing mode, or pro- 23 gram entering mode, to place the calculator in the program-list printing mode. In this mode, the output printer unit prints out an octal numeric representation of keycodes then stored as program steps in the program storage section of the RWM and a decimal nu- 30 meric representation of the addresses of these program steps. These program steps and addresses are printed out in a list beginning with the address initially specified by the user program counter and ending with the address specified by the user program counter when an END program step is encountered or the STOP key is depressed. The user may select the starting address jnnn of the list by depressing to GO TO key followed oy the decimal digit keys (0-9) designating the desired Harting address nnnn, or simply by depressing the END 40 <ey if the starting address is 0000. Similarily, the user nay terminate the list at any time by depressing the STOP key. When the program-list operation is termirated either by an END program step or by depression >f the STOP key, the calculator reverts to its original 4 nanual operating, first or second key-log printing, or arogram entering mode. If the program-list operation s terminated by an END program step, the user pro;ram counter specifies the address of the END program itep. However, if the program-list operation is termilated by depression of the STOP key, the user program :ounter specifies the address of the next program step o have been encountered had the STOP key not been lepressed. 55

The list printed out by the output printer unit serves is a permanent record of a sequence of program steps tored as a program, subprogram, or part thereof in the irogram storage section of the RWM and the address >f these program steps. A typical list is illustrated by 6θ he right- and left-hand columns of numbers printed >ut on the strip of thermal-sensitive recording paper 12. If the alpha ROM module is plugged into the calcuator, the output printer unit also prints out a mnenonic representation of each of these program steps. 65 'his is illustrated by the central column of alphameric haracters printed out on the same strip of thermalensitive recording paper.

The LOAD program key is depressed, when the calculator is in the manual operating mode or the first keylog printing mode, to place the calculator in the magnetic card reading mode. During this mode, program steps recorded on one or more external magnetic cards 16 are read by the magnetic card reading and recording unit and stored in the program storage section of the RWM. In order to properly accomplish this program loading operation:

1. The user program counter is set to the desired starting address nnnn of the program storage section to be loaded. This may be accomplished by depressing the GO TO key followed by those decimal degit keys designating the desired starting address nnnn, or simply by depressing the END key if the desired starting address is 0000.

2. A recorded magnetic card 16 inserted into an input receptable 186 of the magnetic card reading and recording unit with the first side 187 to be read placed in the operative reading and recording position as shown in FIG. 1.

3. The LOAD key is depressed, thereby causing the magnetic card reading and recording unit to begin reading the first recorded side of the magnetic card and turning on an INSERT CARD indicator light 19 positioned immediately below and between the LOAD and RECORD program keys. This program reading operation will terminate and the INSERT CARD indicator light will turn off when an END (i.e. terminating) program step is read. The calculator will thereupon revert to the original manual operating or first key-log printing mode with the user program counter specifying the address of the END program step. In any case, the magnetic card will be partially ejected at an output receptacle 188 of the magnetic card reading and recording unit after each reading pass has been completed.

4. If the INSERT CARD indicator light remains on and the magnetic card reading and recording unit continues to run, the partially ejected magnetic card is retrieved from output receptacle 188, turned around, and the same magnetic card (or another magnetic card, as appropriate) inserted into input receptacle 186 with the next side 189 to be read placed in the operative reading and recording position. The magnetic card reading and recording unit thereupon begins reading this next recorded side. This program reading operation is repeated, if necessary, until it is terminated by reading an END program step. If desired, program reading operation may also be terminated by depressing the STOP key. The calculator will thereupon also revert to the original manual operating or first key-log printing mode, but with the user program counter specifying the address of the next program step to have been read and loaded into the program storage section of the RWM had the program reading operation not been so terminated.

When the program reading operation is terminated by an END program step, the user program counter is left specifying the address of this END program step so that additional program steps, subprograms, and programs may be chain-loaded into the calculator without extra effort by simply repeating steps 2,3, and 4 above. The first additional program step will over-write the last encountered END program step thereby leaving only a final END program step at the completion of the composite program. Similarly, when the program reading operation is terminated by depressing the STOP

3,859,635 key, the user program counter is also left specifying the address of the next program step to have been read so that additional program steps, subprograms, and programs may also be chain-loaded by simply repeating steps 2, 3, and 4 above.

The RECORD program key is depressed, when the calculator is in the manual operating mode or the first key-log printing mode, to place the calculator in the magnetic card recording mode. During this mode program steps stored in the program storage section of the RWM arc recorded on one or more external magnetic cards by the magnetic card reading and recording unit. In order to properly accomplish this program recording operation:

1. The user program counter is set to the starting address nnnn of the stored program to be recorded. This may be accomplished by depressing the GO TO key followed by the decimal digit keys designating the required address nnnn, or simply by depressing the END key if the starting address is 0000.

2. A magnetic card 16 is inserted into input receptacle 186 of the magnetic card reading and recording unit with the first side 187 of the card to be recorded placed in the operative reading and recording position as shown.

3. The RECORD program key is depressed, thereby causing the magnetic card reading and recording unit to begin recording the stored program onto the first side of the magnetic card and turning on the INSERT CARD indicator light 19. This program recording operation will terminate and the INSERT CARD indicator light turn off when an END program step is recorded. The calculator will thereupon revert to the original manual operating or first key-log printing mode with the user program counter specifying the address of the END program step. In any case, the magnetic card will be partially ejected at output receptacle 188 of the magnetic card reading and recording unit after each recording pass has been completed.

4. If the INSERT CARD indicator light remains on, and the magnetic card reading and recording unit continues to run, the partially ejected card is retrieved from output receptacle 188, turned around, and the same magnetic card (or another magnetic card, as appropriate) inserted into input receptacle 186 with the next side 189 to be recorded placed in the operative reading and recording position. The magnetic card reading and recording unit thereupon begins recording on this next side. This program recording operation is repeated, if necessary, until it is terminated by recording an END program step. If no END program step is encountered, the calculator will continue to request more magnetic card recording passes until 2,036 program steps are recorded, regardless of the actual amount of program storage memory installed in the calculator. If desired, the recording operation can be terminated at any time by depressing the STOP key. The calculator will thereupon also revert to the original manual operating or first key-log printing mode but with the user program counter left specifying the address of the next program step to have been recorded had the recording operation not been so terminated.

Once the program is recorded on one or both sides of one or more magnetic cards 16, it may be protected against undesired erasures by punching out a perforated portion 190 at the leading edge of each side on which it is recorded. If a protected (notched) magnetic card is inserted into input receptacle 186 of the magnetic card reading and recording unit and the RECORD key depressed, the STATUS (error) indicator light 19 will turn on and will remain on while the magnetic card reading and recording unit drives the magnetic card to output receptacle 188, whereupon the STATUS light will be extinguished. Nothing will be recorded on the protected magnetic card during this recording pass nor will there be any impairment of the calculator itself or the information previously recorded on the protected magnetic card. The calculator and the magnetic card unit will simply continue to wait for a nonprotected magnetic card to be inserted into input receptacle 186 for the magnetic card reading and recording unit.

Automatic Operating Mode Control Keys (CONTINUE, STOP, END, PAUSE)

The CONTINUE key is depressed, when the calculator is in the manual operating mode or the first key-log printing mode, to start the automatic execution of a program or subprogram stored within the program storage section of the RWM. Automatic execution begins at the address specified by the user program counter. Thus, in order to execute a desired program or subprogram stored within the program storage section of the RWM:

1. The user program counter is set to the starting address nnnn of the desired program or subprogram. This is accomplished by depressing the GO TO key followed by those decimal digit keys designating the starting address nnnn of the desired program. If the starting address is 0000, this may be accomplished by simply depressing the END key.

2. The CONTINUE key is depressed, when the calculator is in the manual operating mode or the first keylog printing mode, to place the calculator in the automatic operating mode and begin automatic execution of the stored program or subprogram at the address nnnn specified by the user program counter. Automatic execution will continue until a STOP or END program step is encountered or a STOP key is depressed as described below.

The STOP key is depressed, when the calculator is in the automatic operating mode, to halt the automatic execution of a stored program or subprogram immediately after completion of the program step then being executed. Automatic execution of a stored program or subprogram is similarly halted when a STOP program step is encountered. In either case the calculator will thereupon revert to the original manual operating or first key-log printing mode with the program counter specifying the address of the next program step to be encountered. The user may then operate the calculator in the manual operating mode to enter data required by the program being executed or to perform other calculations. So long as the user does not depress the GO TO or END key or perform some other operation altering the last setting of the user program counter, he may resume automatic operation of the calculator at any time by simply depressing the CONTINUE key again.

As described above, the STOP key may also be depressed, when the calculator is in the program-list printing mode, the magnetic card reading mode, or the magnetic card recording mode to halt the program-list printing operation, the magnetic card reading operation or the magnetic card recording operations, respectively. In each of these cases the calculator will revert

3,859,635 to the mode it was in immediately prior to the halted operation with the user program counter specifying the address of the next program step to have been printed, read, or recorded had the STOP key not been depressed.

The END key is depressed, when the calculator is in the manual operating mode, to set the user program counter to address 0000 in the program storage section of the RWM (this is equivalent to depressing the GO TO, 0, 0, 0, and 0 keys). An END program step terminates the automatic execution of a stored program by the calculator and resets the user program counter to the first available address 0000 in the program storage section of the RWM. The calculator thereupon reverts to the original manual operating or first key-log printing mode, from which automatic operation was initiated. Automatic execution may then be resumed by depressing the CONTINUE key, if the desired starting address is 0000 or by repeating steps 1 and 2 described above in connection with the CONTINUE key if the desired starting address is not 0000. An END program step also clears any subroutine return-address to which return has not by then been made. As described above, it also terminates the program listing, magnetic card reading, and magnetic card recording operations.

The PAUSE key is typically used only as a program step. Automatic execution of a stored program or subprogram is automatically halted for a ¼ second pause interval whenever a PAUSE program step is encountered or the PAUSE key is depressed. This enables partial results of a calculation to be displayed by the output display unit during automatic execution of the stored program or subprogram. Successive PAUSE program steps may be employed to increase the duration of the pause interval by second increments. Automatic execution of the stored program or subprogram automatically resumes after the pause interval.

A PAUSE program step may also be used as a conditional step, permitting the user to stop the automatic operation of the calculator immediately after execution of any PAUSE program step. This is accomplished by simply depressing any key (other than STOP) during automatic execution of the program until the PAUSE program step has been executed. In other words, a PAUSE program step immediately followed by depression of any key other than STOP has the same effect as depressing STOP, with the advantage that automatic execution of a stored program or subprogram may thereby be precisely halted at one or more predetermined program steps if the user so desires. Automatic execution of the stored program may then be resumed by depressing the CONTINUE key.

Decimal Display Keys (FLOAT, FIX () )

These keys are employed to control the format of numbers displayed by the output display unit when the calculator is in the manual operating and first key-log printing modes. Either a fixed or a floating decimal aoint format may be used. A fixed point indicator light 19 positioned immediately below the FIX () key is :urned on when the fixed decimal point format is being jsed. Similarly, a floating point indicator light posiiioned immediately below the FLOAT key is turned on A'hen the floating decimal point format is being used.

In the fixed decimal point format, numbers appear in :he form in which they are most commonly written. The decimal point is fixed in its correct position. In the loating decimal point format, numbers appear in a normalized form with the decimal point located immediately after the most significant non-zero digit of the normalized number. Each normalized number is followed by an exponent comprising a positive or negative 5 power of 10 and representing the number of digit places that, and the direction in which, the decimal point must be moved to express the normalized number in the fixed decimal point format. The following examples illustrate the relationship between numbers ex10 pressed in both the fixed and floating decimal point formats.

<td> FIXED DECIMAL 15 POINT FORMAT</td><td colspan="2"> FLOATING DECIMAL POINT FORMAT</td>

When the calculator is turned on and automatically initialized, the output display unit displays numbers in the floating decimal point format. If the output display 25 is switched to the fixed decimal point format, it may subsequently be switched back to the floating decimal point format by simply depressing the FLOAT key. Every number displayed in the floating decimal point format includes the sign (if negative) and 10 most sig2θ nificant digits of the normalized number followed by the sign (if negative) of the exponent and two exponent digits. This is illustrated by the following examples:

NUMBERS TO FLOATING DECIMAL

BE DISPLAYED POINT DISPLAY

1234.5 1.23450000003

0.0012345 1.234500000-03

-1.2345 -1.23450000000

The output display may be changed to the fixed decimal point format by depressing the FIX () key followed by a decimal digit key designating the desired number n (0-9) of digits to be displayed to the right of the decimal point. Less significant digits are not displayed, and the least significant digit to be displayed is rounded up if the nondisplayed next least significant digit is five or greater. This is illustrated by the following examples for different values of n:

<td> 50</td><td> NUMBERS TO BE DISPLAYED</td><td> VALUES OF n</td><td> FIXED DECIMAL POINT DISPLAY</td>

60 If the FIX () key is depressed but not followed by a decimal digit key, the calculator will automatically treat the next key depressed as being the 0 key (i.e., n will thereupon equal 0 as in the last example).

Numbers of up to (and including) 10 significant dig65 its and their signs (if negative) may be displayed in the fixed decimal point format. Thus, (10—n) digits may be displayed to the left of the decimal point. If a number to be displayed has more than (10—n) digits to the left

3,859,635 of the decimal point (i.e. is too large for the selected value of n), the display of that number (not the whole display) overflows and thereupon reverts to the floating decimal point format. This is illustrated by the fixed decimal point display of FIG. 1 wherein the numbers contained in the x and y registers have overflowed and are therefore displayed in the floating decimal point format. It is also illustrated by the following example:

NUMBER TO VALUE ACTUAL

BE DISPLAYED OF n NUMBER DISPLAYED

1234567.89 5 1,23456789 06

If the first non-zero digit of a number to be displayed is more than n digits to the right of the decimal point (i.e. is too small for the selected value of n), the display of that number (not the whole display) underflows. In this case only zeros will be displayed. This is illustrated by the following example:

<td> NUMBER TO BE DISPLAYED</td><td> VALUE OF n</td><td> ACTUAL NUMBER DISPLAYED</td>

Regardless of the way in which numbers are displayed, the calculator always stores all numbers and performs all calculations in the floating decimal point format. Furthermore, regardless of the number of digits entered or displayed, each number is stored with 12 significant digits, their associated sign, a two-digit exponent, and its associated sign. Up to (and including) 10 significant digits, their associated sign, the two-digit exponent, and its associated sign can be displayed (however, no sign is displayed for positive numbers or exponents). The remaining two digits (called guard digits) are not displayed. They are employed to maintain greater than 10-place accuracy during calculations and also to automatically round the tenth displayed digit.

The calculator has a dynamic range of from ±10-98 to ±9.999999999(99) X 1088. Whenever this range is exceeded during a calculation the STATUS indicator light 19 turns on.

Numeric Data Entry Keys (0-9), ., ENTER EXP, CHG SIGN, π)

The decimal digit keys 0-9 are depressed to enter numbers into the x-register. Numbers are entered serially, the last digit entered becoming the least significant digit. For example, the number 1325 is entered by sequentially depressing the decimal digit keys 1, 3, 2, and 5. A number entered into the x-register is terminated as soon as any non-data-entry key is depressed. Another number entered into the x-register will automatically replace a terminated number, but will become a part of any non-terminated number.

The decimal point (.) key is depressed to enter the decimal point into the x-register. For example, the number 1.234 is entered by sequentially depressing the 1,., 2, 3, and 4 keys. Regardless of the display format, it is not necessary to use the decimal point key when entering integers. If the decimal point key is not used, the decimal point will be assumed to have followed the last-entered digit. When the fixed decimal point display format is used, the calculator automatically positions the decimal point. Similarly, when the floating decimal point display format is used the calculator automatically corrects the exponent according to the position of the decimal point.

The ENTER EXP key is depressed followed by one or two decimal digit keys to enter a one- or two-digit exponent (power of 10) into the x-register, the last digit entered becoming the least significant digit. If a third 10 digit is entered, it will terminate entry of the exponent and begin a new numeric data entry. A non-terminated number in the x-register may be multiplied directly by successive powers of ten by simply entering successive exponents. For example, the product of 8.3 X 102 X 1014 may be obtained by sequentially depressing the 8, ., 3, ENTER EXP, 2, ENTER EXP, 1, and 4 keys. If the ENTER EXP key is depressed as the first key of a numeric data entry (i.e. before any of the decimal digit 20 keys have been depressed or following a terminated number), the number 1 is entered into the x-register. For example, the number 1 X 1016 may be entered by depressing the ENTER EXP, 1, and 6 keys.

The CHG SIGN key is depressed to change the sign 25 of any terminated or unterminated number in the xregister. If the CHG SIGN key is depressed as the first key of a numeric data entry, it changes the sign of the number then in the x-register (whatever the sign may be) and, once that number is replaced by the first digit 3θ of the new data entry, it prefaces the new data entry with a negative sign. This is illustrated by the following example:

KEYS DEPRESSED CONTENTS OF x-Register

-123.45 CHG SIGN 123.45

-6.

_____________7 ~67·

The CHG SIGN key is also depressed immediately following the ENTER EXP key (or the last-entered 45 digit of the exponent) to enter negative exponents into the x-register. For example, the number 8.3 X 10-2 X 104 X 10-12 may be entered by sequentially depressing the keys 8, ., 3, ENTER EXP, CHG SIGN, 2, ENTER EXP, 4, ENTER EXP, CHG SIGN, 1, and 2 keys and 50 the number 1 X ICT18 may be entered by depressing the ENTER EXP, 1, 6, and CHG SIGN keys.

The π key is depressed to enter the value of π (i.e. 3.14159265360) into the x-register.

CLEAR keys (CLEAR x, CLEAR)

The CLEAR x key clears (i.e. sets to zero) the xregister. It does not affect any other registers.

The CLEAR key clears the χ-, y-, and z- (working) registers, clears the a- and b- (data storage) registers, and clears (or resets) the flag, which can be set by the 60 SET FLAG key as hereinafter explained. It does not affect any other registers.

When the calculator is switched on, all of the working, program, and data storage registers of the RWM 65 are automatically cleared. Any terminated numbers subsequently stored in them will automatically be cleared and replaced by any new data entry, Working Register Control Keys (J, f, ROLL ΐ, xx=»y)

3,859,635

The working register control keys are used to reposition the contents of the x-, y-, and z-registers. They do not affect any other registers.

When the f key is depressed, the contents of the yregister shift to the z-register and the contents of the Λ-register appear in both the x- and y-registers. The contents of the z-register are lost.

When the i key is depressed, the contents of the yregister shift to the x-register and the contents of the z-register appear in both the y- and z-registers. The contents of the x-register are lost.

When the ROLL T key is depressed, the contents of the x-register shift to the y-register, the contents of the y-register shift to the z-register, and the contents of the z-register shift to the x-register. No information is lost.

The Xfi-y key is depressed to exchange the contents of the x- and y-registers. The contents of the z-register are unaffected by this operation.

Arithmetic Keys (+, —, X) +)

These four keys are used to perform working register arithmetic operations in which the contents of the xand y-registers are employed as operands. The results of these arithmetic operations are stored in the yregister and the contents of the x-register remain unchanged by the arithmetic operations performed. These four keys do not affect any other registers.

The + key is depressed to add the number in the xregister to the number in the y-register, the sum appearing in the y-register.

The — key is depressed to subtract the number in the x-register from the number in the y-register, the difference appearing in the y-register.

The X is depressed to multiply the number in the yregister by the number in the x-register, the product appearing in the y-register.

The 4- key is depressed to divide the number in the y-register by the number in the x-register, the quotient appearing in the y-register.

The use of these keys and the working register control keys is illustrated by the following method of computing

[(3 X 4) + (8 — 9)]/[(8 X 2) - 6] = 1.1 :

<td> KEYS DEPRESSED</td><td> CONTENTS OF x-REGlSTER</td><td> CONTENTS OF y-REGlSTER</td><td> CONTENTS OF z-REGISTER</td>

<td> CLEAR</td><td> 0</td><td> 0</td><td> 0</td>

<td> rollT</td><td> 12</td><td> -1</td><td> 11</td>

The answer, appearing in the y-register, is underlined. Unary Function Keys ( χ/xfx2, 1/x, int x, CHG SIGN) These five keys are used to perform unary functions in which the contents of the x-register are employed as the argument. The results of the unary functions performed are placed in the x-register. These five keys do not affect any other registers.

The Vx key is depressed to calculate the square 5 root of the number in the x-register. If the number is negative, the square root of its absolute value is calculated and the STATUS indicator light 19 turned on. The STATUS indicator light remains on until the next key is depressed.

The xz key is depressed to calculate the square of the number in the x-register. If the number is greater than νΠΊΓ X 1049, the number 9.99999999999 X 1098 is placed in the x-register and the STATUS indicator light 19 turned on. The STATUS indicator light remains on 15 until the next key is depressed.

The 1/x key is depressed to calculate the reciprocal of the number in the x-register. For example, 1/9.8 may be calculated by sequentially depressing the 9,., 8, and 1/x keys.

The int x key is depressed to truncate the fractional part of the number in the x-register. It does not affect the sign of the integer part of the number. For example, if the number —5.9 is contained in the x-register when the int x key is depressed, the number —5.0 will remain.

The CHG SIGN key has already been described above in connection with the numeric data entry keys. Data-Storage and Register-Transfer Keys (a, b, x -> (), y -(), x «- (), y«±(), INDIRECT)

These keys are variously used to perform direct data 3θ storage and recall, direct storage-register arithmetic, indirect data~storage and recall, and indirect storageregister arithmetic operations. As illustrated below, the a and b keys are depressed following any of the remaining five keys of this group to specify the a- and b35 registers, respectively. The a and b keys may also be used to directly recall the contents of the a- and bregisters, respectively, to the x-register without changing the contents of the a- and b-registers themselves. Either of these functions of the a and b keys may be 4θ performed in response to a single keystroke thereof. For example, the contents of the b-register may be directly recalled to the x-register by simply depressing the b key alone. As noted above the contents of the bregister itself will remain unchanged by this recall oper45 ation.

The x -»(), y —>(), x <- (), and y<=»() keys are used to control the transfer of numeric data from the x- and y-registers to the a- and b-registers and 49 additional storage registers available to the user (at user addresses 000-048) in the data storage section of the RWM and from these storage registers to the x- and y-registers. If the 60 optional storage registers included in the data storage section of the RWM (at user addresses 55 049-108) are made available to the user, these same four keys may also be used to control the transfer of numeric data from the x- and y-registers to these optional storage registers and from them to the x- and yregisters.

6θ The specific storage register to or from which numeric data is transferred by these four keys is specified by the key or keys depressed immediately following them. Accordingly, the a key is used to specify the flregister, the b key to specify the b-register, and the dec65 imal digit keys 0-9 to selectively specify any of the available storage registers at user addresses 000-108 of the data storage section of the RWM. For simplicity of description, the available storage registers at user ad3,859,635 dresses 000-108 will hereinafter be referred to by their addresses (i.e. the storage register at any available address nnn will be referred to as register nnn). If a nonexistant or nonavailable storage register is designated, the STATUS indicator light is turned on, no data transfer or arithmetic operation is performed, and the operation of the calculator halts. (If such a register is designated while the calculator is automatically executing a stored program, the program-counter specifies the program step immediately following the improper operation.)

The x —> () key is depresssed followed by the a key, the b key, or decimal digit keys η, η, n to directly store the contents of the x-register in the α-register, the bregister, or register nnn respectively. In any case, the contents of the x-register remain unchanged by this operation. For example, π may be stored directly in the b register by sequentially depressing the π, x—» (), and b keys. Similarly, π may be stored directly in register 027, by sequentially depressing the π, x -» (), 0, 2, and 7 keys. In each of these examples, π will also remain in the x-register.

The y —> () key is depressed followed by the a key, the b key, or decimal digit keys η, η, n to directly store the contents of the y-register in the α-register, the bregister, or register nnn, respectively. In any case, the contents of the y-register remain unchanged by this operation. For example, a number contained in the yregister may be stored directly in register 000, without changing the contents of the y-register, by sequentially depressing the y -» (), 0, 0, and 0 keys.

The x <— () key is depressed followed by the a key, the b key, or decimal digit keys n, n, n, to directly recall the contents of the a-register, the b-register, or register nnn, respectively, to the x-register. In any case, the contents of the recalled register remain unchanged by this operation. For example, the contents of register 012 may be recalled to the x-register, without changing the contents of register 012, by sequentially depressing the x «- (), 0, 1, and 2 keys. Recall from the a- or bregister to the x-register may be accomplished in the same manner as described above, by simply depressing the a or b key alone.

The y«=*() key is depressed followed by the a key, the b key, or decimal digit keys n, n, n, to exchange the contents of the y-register with the contents of the flregister, the b-register, or register nnn, respectively. For example, a number in the y-register may be exchanged with a number in register 048 by depressing the y«=♦(), 0, 4, and 8 keys.

The direct storage and recall operations performed by the x-> (), y-> (), x «- (), and yi±() keys may be conveniently summarized by employing the following notation:

In this notation each pair of braces implies that any one of the enclosed group of key operations or storage registers may be selected. The order of the successive pairs of braces from left to right specifies the key-sequence required to perform the selected key operation with the selected storage register. Thus, any of the key operations enclosed in the left-hand pair of braces may be employed with any of the storage registers enclosed in the righthand pair of braces by first depressing the key performing the selected key operation and then depressing the key or keys designating the selected storage register. The usefullness of these direct storage and recall operations is illustrated by the following method of multiplying a series of numbers nt, n2, etc. by a constant K, where «i = 3, n2 = 11.2, etc. and K = 1.684:

<td> KEYS DEPRESSED</td><td> CONTENTS OF x-REGlSTER</td><td> CONTENTS OF y-REGISTER</td><td> CONTENTS OF a-REGISTER</td>

<td> CLEAR</td><td> 0</td><td> 0</td><td> 0</td>

The answers, appearing in the y-register, are underlined.

The x -► (), y -►(), x«- (), and y<=t() keys may also be employed with the +, —, X, and 4- arithmetic keys to perform direct register-arithmetic operations in which the contents of the x-register or the y-register are employed as one operand and the contents of the flregister, the b-register, or register nnn are employed as the other operand. These direct register-arithmetic operations may be summarized as follows by using the above-described notation:

Thus, the x —» () key may be employed to directly perform any of the arithmetic operations enclosed by the second pair of braces upon the contents of the xregister and the contents of any of the storage registers enclosed by the third pair of braces and store the result in the selected storage register without recalling the contents of the selected storage register and without changing the contents of the x-register. For example, the contents of the x-register may be subtracted from the contents of the b-register by sequentially depressing the x -» (), —, and b keys. The difference is stored in the b-register, and the contents of the x-register remain unchanged by the operation. Similarly, the contents of register 042 may be divided by the contents of the xregister by sequentially depressing the x -» (), 4-, 0, 4, and 2 keys. The quotient is stored in register 042, and the contents of the x-register itself remain unchanged by the operation.

The y —»() key may be similarly employed to directly perform any of the arithmetic operations enclosed by the second pair of braces upon the contents of the yregister and any of the storage registers enclosed by the third pair of braces and store the result in the selected

3,859,635 registers may not be used as the indirectly-addressed registers in these operations.

The indirect data storage and recall operations may be summarized as follows by again using the above5 described notation without braces for the INDIRECT storage register without recalling the contents of the selected storage register and without changing the contents of the y-register. For example, the contents of the y-registcr may be added to the contents of the aregister by sequentially depressing the y -> (), +, and a keys. The sum is stored in the α-register, and the contents of the y-register remain unchanged by the operation. Similarly, the contents of register 038 may be multiplied by the contents of the y-register by sequentially depressing the y -> (), x, 0, 3, and 8 keys. The product is stored in register 038, and the contents of the yregister remain unchanged by the operation.

The λ <- () key may be employed to directly perform any of the arithmetic operations enclosed by the second pair of braces upon the contents of the x-register and the contents of any of the storage registers enclosed by the third pair of braces and store the result in the x-register without changing the contents of the selected storage register. For example, the contents of the «-register may be added to the contents of the xregister by sequentially depressing the x«- (), +, and a keys. The sum is stored in the x-register, and the contents of the «-register remain unchanged by the operation. Similarly, the contents of the x-register may be multiplied by the contents of register 022 by sequentially depressing the x (), x, 0, 2, and 2 keys. The product is stored in the x-register, and the contents of register 022 remain unchanged by the operation.

The y s=t() key may be employed to directly perform any of the arithmetic operations enclosed by the second pair of braces upon the contents of the y-register and the contents of any of the storage registers enclosed by the third pair of braces and store the result in the y-register without changing the contents of the selected storage register (i.e. the yi±() may be used as though it were a y«-() key in performing registerarithmetic operations).

For example, the contents of the ((-register may be subtracted from the contents of the y-register by sequentially depressing the y**(), -, and b keys. The difference is stored in the y-register, and the contents of the h-register remain unchanged by the operation. Similarly, the contents of the y-register may be divided by the contents of regiters 039, by sequentially depressing the y-f^O, -T-, 0, 3, and 3 keys. The quotient is stored in the y-register, and the contents of register 039 remains unchanged by the operation.

The INDIRECT key is used with the above-described data-storage and register-transfer keys to perform indirect data-storage and recall and indirect registerarithmetic operations, in which the contents of a directly-addressed register (e.g. the «-register, the b-register or any of the registers nnn) are employed as the address of an indirectly-addressed storage register (e.g. any of the other storage registers nnn) to be used in these operations. When indirectly addressing any of the storage registers 000 through 048 or 108, care must be taken to insure that the directly-addressed register contains the proper address nnn of the indirectly addressedregister nnn. The indirect address used is the absolute value of the integer part of the contents of the directly iddressed register. Thus, 1.732 will be treated as the iddress of register 001,-6.99 as the address of register )06, 0.999 as the address of register 000, and 106.75 is the address of register 106. Since the storage regis:ers may only contain numeric data, the «- and bkey:

Thus, the x -»() and y -> () keys may be employed with the INDIRECT key to indirectly store the contents of the x- and y-registers, respectively in any storage register nnn designated by the contents of any of the other data storage registers. Moreover, this may be accom20 plished without changing the contents of the x- and yregisters or of the directly addressed storage register. For example, the contents of the x-register may be indirectly stored in the storage register designated by the contents of the «-register by sequentially depressing the 25 x ()> INDIRECT, and a keys. The contents of the xregister and the α-register remain unchanged by this operation. Similarly, the contents of the y-register may be indirectly stored in the storage register designated by the contents of register 022 by sequentially depress30 in8 >’—‘ ()> INDIRECT, 0, 2, and 2 keys. The contents of the y-register and register 022 remain unchanged by this operation.

The x «— () key may be similarly employed with the INDIRECT key to indirectly recall to the x-register the 35 contents of any storage register nnn designated by the contents of any of the other storage registers. This is accomplished without changing the contents of either the directly- or indirectly-addressed storage register. For example, the contents of the register nnn designated by 40 the contents of the /(-register may be indirectly recalled to the x-register by sequentially depressing the x «- (), INDIRECT, and b keys. The contents of the b-register and of the indirectly-addressed register remain unchanged by this operation.

The y*±() key may be employed with the INDIRECT key to indirectly exchange the contents of the y-register with the contents of any storage register nnn designated by the contents of any of the other storage registers. This is accomplished without changing the contents of the directly-addressed storage register. For example, the contents of the y-register may be indirectly exchanged with the contents of the register designated by register 041 by sequentially depressing the y«^(), INDIRECT, 0, 4, and 1 keys. The contents of register 041 55 remain unchanged by this operation.

The indirect register-arithmetic operations may be summarized as follows:

In connection with the indirect register arithmetic operations it should be noted that the INDIRECT key may also be depressed immediately after the selected

3,859,635 arithmetic key. Thus, the indirect register-arithmetic operations may also be summarized as follows:

/ +\

I If ίαΊ ?-►()( 1-( > < > INDIRECT

i <- (I ( j x i |( i FJ \nnn z

Thus, any of the x -+ (), y -» (), x «- (), and y «=#() keys may be employed with the INDIRECT key and any of the arithmetic keys to indirectly perform registerarithmetic operations employing the contents of either the x- or the y-register as one operand and the contents 15 of any of the storage registers nnn designated by the contents of any of the other storage registers as the other operand. In the case of the x -+ () and y -+ () keys, the results of these operations are stored in the indirectly addressed storage register nnn, and the con- 20 tents of the x- and y-registers and the directlyaddressed registers are not changed. Similarly, in the case of the x +- () and y«=?() keys, the results of these operations are stored in the x- and y-registers, respectively, and the contents of the directly and indirectly 25 addressed registers are not changed.

For example, the contents of the x-register may be added to the contents of the register nnn designated by the contents of the α-register by sequentially depressing the x -+ (), INDIRECT, +, and a keys. The sum is 30 stored in the indirectly-addressed register nnn, and the contents of the x-register and the α-register remain unchanged by this operation. Similarly, the contents of the storage register nnn designated by the contents of register 014 may be multiplied by the contents of the y-register by sequentially depressing the y -+ (), x, INDIRECT, 0, 1, and 4 keys. The product is stored in the indirectly-addressed storage register nnn, and the contents of the y-register and register 014 remain unchanged by the operation. Similarly, the contents of the register nnn designated by the contents of the h-register may be subtracted from the contents of the x-register by sequentially depressing the x «- (), INDIRECT, —, and b keys. The difference is stored in the x-register, and the contents of the b -register and the indirectlyaddressed register remain unchanged by the operation. As a last example, the contents of the y-register may be divided by the contents of the register nnn designated by the contents of register 008 by sequentially depressing the y<=t(), INDIRECT, + 0, 0, and 8 keys. The quotient is stored in the y-register, and the contents of register 008 and the indirectly-addressed register nnn remain unchanged by this operation.

Multiple-level indirect addressing may be performed to any desired level in the above described indirect data storage and recall and indirect register arithmetic operations by sequentially depressing the INDIRECT key once for each desired level. Multiple-level indirect data storage and recall may be summarized as follows:

Thus, for example, the contents of the x-register may be indirectly stored in the contents of register 017 designated by the contents of register 003 in turn designated by the contents of the α-register by sequentially 5 depressing the x -+ (), INDIRECT, INDIRECT, and a keys. The contents of the x-register, the α-register, and register 003 remain unchanged by this operation. Similarly, the contents of register 046 designated by the contents of register 031 in turn designated by the contents of register 000 in turn designated by the contents of register 025 may be exchanged with the contents of the y-register by sequentially depressing the y+*(), INDIRECT, INDIRECT, INDIRECT, 0, 2, and 5 keys. The contents of registers 025, 000 and 031, remain unchanged by this operation.

Multiple level indirect register-arithmetic may be similarly summarized as follows:

Thus, assuming, for example, that the 60 optional storage registers 049-108 are available to the user, the contents of the y-register may be subtracted from the contents of register 108 designated by the contents of register 082, in turn designated by the contents of register 049 by sequentially depressing the y -♦(), INDIRECT, INDIRECT, —, 0, 4,. and 9 keys. The difference is stored in register 108 and the contents of the y-register, 40 register 049, and register 082 remain unchanged by this operation. Similarly, the contents of the x-register may be divided by the contents of register 106 designated by the contents of register 056 in turn designated by the contents of the ft-register by sequentially depressing the 45 x<— (), INDIRECT, INDIRECT, INDIRECT, and b keys. The results are stored in the x-register, and the contents of the ft-register and registers 003, 056, and 106 remain unchanged by this operation.

Numeric Address Termination 50 As described above, each of the available numerically-addressed storage registers 000 through 048 or 108 employed in the foregoing data-storage and registertransfer operations is properly addressed by selectively 55 depressing the decimal digit keys to specify its three? digit address. Upon entry of the third digit, the numeric address is automatically terminated. Any immediately following digit entries are therefore not intrepreted as part of the numeric address, but rather as the beginning 60 of a new data entry. Thus, for example, if the x -+ (), 1, 0, 3» 2, and 5 keys are sequentially depressed, the contents of the x-register are stored in register 103, and the number 25 is entered into the x-register. Similarly, if the y -» (), +, 0, 0, 2,1, and + keys are sequentially 65 depressed, the contents of the y-register are added to the contents of register 002, and the number 1 is entered into the x-register and thereupon added to the contents of the y-register.

3,859,635

A numeric address may also be terminated, without entering leading zeros of the address, by depressing any non-numeric key except the STEP PRGM key or, if the calculator is in the manual operating or first key-log printing mode, the CONTINUE key. However, most of the terminating key entries that may be used will also be executed. For example, if the x -+ (), 2, and + keys are sequentially depressed, the contents of the xregister are stored in storage register 002 and also added to the contents of the y-register. Similarly, if the y -+ (), +, 3, 8, and a keys are sequentially depressed, the contents of the y-register are added to the contents of register 038, and the contents of the α-register are recalled to the x-register.

When the calculator is in the manual operating or first key-log printing mode, the STOP key may be used to terminate a numeric address if a no-operation address-terminating key entry is desired. For example, by simply depressing the x -» (), 3, and STOP keys the contents of the x-register may be stored in register 003 without performing any other operation. Similarly, when formulating or entering a program by which the calculator is to be controlled in the automatic operating mode, a CONTINUE program step may be employed to terminate a numeric address if a no-operation address-terminating program step is desired. For example, if the program steps y -♦ (), x, 2, 9, CONTINUE, and 3 are sequentially encountered when the calculator is in the automatic operating mode, the contents of register 29 are multiplied by the contents of the y-register, and the product is stored in register 29. No operation is performed by the CONTINUE program step, and the next program step 3 is stored in the x-register as the beginning of a new data entry.

Since every numeric storage register except optional registers 100-108 may be uniquely specified by less than three digits, these abbreviated addresstermination features permit significant reductions in the number of key-operations and program steps required to perform many calculations. Moreover, these same address termination features may be used in connection with the four-digit numeric addresses of the program storage section of the RWM to achieve still further reductions in the number of key-operations and program-steps required to perform many calculations. Program-Control Keys (GO TO, IF x<y, IF x=y, IF x>y, IF FLAG,

SET FLAG, LABEL, SUB/RETURN)

All of the previously-described keys except the FLOAT, FIX(), RUN, PRGM, KEY LOG, LIST, LOAD, and RECORD keys may be employed both for controlling the operation of the calculator during the manual operating and first key-log printing modes and for entering program steps into the calculator during the program entering and second key-log printing modes. When the calculator is in the manual operating mode, the user may continuously observe the output display of the contents of the x-, y-, and z-registers and, in accordance with his observations, make his own decisions about what to do next at any stage of the calculation. However, this is not possible when the calculator is executing a stored program at high speed in the rutomatic operating mode. The above eight programcontrol keys have therefore been provided to permit the calculator itself to test calculated quantities and nake decisions based on those tests during the automatic execution of an internally-stored program. These eight keys may be used to permit unconditional branching (or transfers), conditional branching (or transfers), symbolic or labelled branching, storage of “yes-no” in5 formation is a flag and conditional branching based on that “yes-no” information at a later stage in the execution of a program, and unconditional or conditional branches to pre-defined program routines with return to the main program sequence upon completion.

Branching instructions in a program cause the user program counter to specify an address other than the next sequential address in the program storage section of the RWM, whereupon execution of the program continues sequentially from the new address. If a 15 branch is conditional, the calculator makes a decision, based upon a specified condition, whether or not to branch. However, if the branch is unconditional, the calculator has no option, and must branch to the address specified in the program (e.g. by a GO TO pro20 gram step followed by a numeric address nnnn).

The GO TO key is depressed followed by decimal digit keys specifying a selected four-digit address nnnn in the program storage section of the RWM to set the user program counter to the selected address nnnn. 25 When this sequence of keycodes is encountered as a sequence of program steps, an unconditional branch is made to the address indicated and the program step stored at that address is executed. Execution of the program then automatically continues to run from that ad30 dress.

For simplicity of description the terms “keys” and “program steps” will hereinafter be used synonomously since the remaining keys of this group are used almost exclusively to enter keycodes into the calculator as pro35 gram steps during the program entering mode of the calculator. All of the program steps so entered are automatically executed during the automatic operating mode of the calculator.

The four IF keys are used for conditional branching. The IF x<y, IF x=y, and IF x>y keys compare the numeric values contained in the x- and y-registers to determine if the number in x is less than the number in y, equal to the number in y, or greater than the number in y respectively. The IF FLAG key tests the condition 3 (yes-no) of the flag, which is controlled by the SET FLAG key hereinafter explained. There can be only two possible results to each test made by each of these four keys. The condition tested is either “met” (YES) or “not met” (NO).

When the condition tested is met (YES), the next program step following the IF is automatically executed. However, when the condition tested is not met (NO), the calculator automatically skips (ignores) the 55 next four program steps and continues execution at the fifth program step following the IF.

If the program steps immediately following the IF constitute a numeric address nnnn and the condition tested is met (YES), an automatic branch is made to 60 that address nnnn. The program step stored at address nnnn is thereupon executed, and automatic execution of the program continued from there. If the program steps immediately following the IF constitute operations (e.g. +,T, etc.) then no branch occurs and the op65 erations are executed.

When an IF program step (other than IF FLAG) is encountered, the two numbers in the x- and y-registers are automatically rounded before the test is made. In

3,859,635 each register, the tenth digit of the number is rounded according to the value of the guard digits; the guard digits are then set equal to zero. Thus the numbers to be tested actually have the same values as would appear in a floating point display with all 10 significant digits displayed. After the test has been made, the numbers in the λ- and y-registers retain their rounded values. This means that the actual values of the number in the x- and y-registers may be different after the test than before. If the resulting slight loss in accuracy is undesirable, the numbers in the x- and y-registers can be stored in the data-storage section of the RWM before the IF test is made and can be recalled and substituted for the rounded numbers after the IF test is completed.

The use of the IF x>y and IF x<y keys is illustrated by employing the following sequence of program steps beginning with an IF x>y program step and including a three-step conditional routine for taking the absolute value of the contents of the y-register:

If the contents of the x-register are greater in value than the contents of the y-register (i.e. condition met), then every program step in this sequence is executed and the absolute value of the contents of the y-register is calculated. As described above CONTINUE is a nooperation program step. It is used in this and the following examples to fill in the fourth program step to be skipped if the test condition is not met. If the contents of the x-register are equal to or greater in value than than contents of the y-register (i.e. the condition is not met), then the four program steps immediately following the IF x>y program step are skipped and execution continues beginning with the 1 program step. In this case the absolute value of the contents of the y-register is not calculated.

The use of the IF x=y key is illustrated by employing the following sequence of program steps:

IF x=y 2 ) ( 4-step conditional sequence

CONTINUE f CONTINUE) +

If the contents of the x-register equal the contents of the y-register in value (i.e. condition met), then every program step in this sequence is executed. This results in an automatic branch to execute the program step stored at user address 0023. However, if the contents of the x-register do not equal the contents of the yregister in value (i.e. condition not met), the four program steps immediately following the IF x=y program step are skipped and execution continues beginning with the + program step.

The use of the IF FLAG key is illustrated by the following sequence of program steps:

IF FLAG i /

V ( 4-step conditional sequence

CONTINUE^ continue) SET FLAG

If the flag controlled by the SET FLAG key has been set (i.e. condition met), then every program step in this sequence is executed. This results in an automatic branch to execute the program step stored at user address 0041. However, if the flag controlled by the SET FLAG key has not been set (i.e. condition not met), then the four program steps immediately following the IF FLAG program step are skipped and execution continues beginning at the SET FLAG program step by setting the flag.

The SET FLAG key establishes the condition to be tested by the IF FLAG key. The YES condition is established when a SET FLAG keycode is encountered either as a program step or as a keyboard entry. The NO condition is established by clearing the flag. This occurs automatically whenever the calculator is switched on or whenever a CLEAR or IF FLAG keycode is encountered either as a program step or as a keyboard entry. If the flag condition must be retained for use later, the program must include a SET FLAG program step in the sequence of program steps executed following the flag-clearing program step. The flag enables the user to select the conditions which will determine whether a conditional branch (or operation) is to be made.

The LABEL key allows relocatable symbolic addresses to be used within a program. A LABEL key immediately followed by any other programmable key (e.g. LABEL, π) except the END key serves as a symbolic address that may be inserted in a program immediately before any program step a user may wish to relocate independently of its absolute (numeric) address. This symbolic address is relocated by a search command comprising a GO TO key immediately followed by the symbolic address itself (e.g. GO TO, LABEL, π). In response to this search command, the user program counter is reset to the first user available address 0000 in the program storage section of the RWM and is sequentially incremented in a search operation until the Symbolic address (e.g. LABEL, ir) is found. The user program counter then specifies the next address which is the program step designated by the symbolic address.

If the search command came from the keyboard, the calculator waits for the next key to be depressed. However, if the search command came from the program, then execution automatically continues at the program step designated by the symbolic address. The keys of the symbolic address itself serve as no-operation codes and are ignored during execution of the program. This may be illustrated by the following sequence of program steps.

PROGRAM

ADDRESS STEP

0098

0099 GO TO

0100 LABEL

3,859,635

-Continued

PROGRAM

ADDRESS STEP

0Ϊ01 : ΐ 5

0102 etc.

0362

0363 LABEL1θ

0364-?

0365f

0366 etc.

The search for the symbolic address “LABEL, is ini- 15 tiated immediately after address 0101 is designated by the user program counter and starts at address 0000. When the symbolic address is found, program execution continues with the t program step at address 0365. The 4- program, step 0101 and 0364, serving as part of 2θ the symbolic address are not executed.

A specific symbolic address cannot be used to specify more than one location at any one time. If it is, only the first (lowest order numeric address) specified will be valid (i.e. the point of transfer). Any number of differ- 25 ent labels can be used at one time, limited to the number of keys available to follow the LABEL key.

If transfer to an undefined symbolic address occurs, the calculator will search all of program memory, and if the symbolic address is not found, will stop with the 30 STATUS indicator light on. The program-counter will specify the next following program steps.

Branching to a symbolic addresss offers considerable advantages over branching to an absolute address. Programs with symbolic addresses can be stored anywhere 35 in the program storage section of the RWM and can be easily moved and relocated because there are no absolute addresses to be changed. Also, any time a program is to be corrected (i.e. program steps changed, added or deleted), any absolute addresses must be checked in 40 case they themselves must now be changed as a result of the corrections. This may entail substantial bookkeeping by the user. If symbolic addresses are used instead of absolute addresses, the corrections will not affect the symbolic addresses. 45

The main disadvantage of using symbolic addresses is that a search takes considerably more time (depending upon the location of the label in memory) than does a branch to an absolute address. Usually, this will have no significance because, in this case, “time” constitutes 3 only a few thousandths of a second. Even if time is a significant factor, the user may still take advantage of symbolic addresses by writing his original program with symbolic addresses and once the program has been 55 completely debugged, changing the symbolic addresses to the appropriate absolute addresses.

The SUB/RETURN key is used to transfer to (i.e. call) a subroutine (subprogram) and return from the subroutine to the point in the calling program where the transfer was initiated. Subroutines may be nested upto a depth of five. An attempt to nest to a depth of more than five is an error, stopping execution of the program and turning on the STATUS indicator light. Both the automatic initialization occuring at turn-on 65 and the END key (given either as a program step or a keyboard entry) automatically reset the nesting to a depth of zero so that all five depths are then available.

A GO TO key followed by a SUB/RETURN key and either an absolute numeric or symbolic labelled address may be used in the calling program to (unconditionally) call a subroutine. The address used specifies the starting address of the subroutine. If a symbolic address is used, the first two program steps of the subroutine must also be the same symbolic address. An IF key followed by GO TO and SUB/RETURN keys and either an absolute numeric or symbolic labelled starting address may also be used in the calling program to conditionally call a subroutine. Execution of the steps of the subroutine starts automatically as soon as the subroutine is called. A SUB/RETURN key must be included as the last step to be executed in the subroutine. The RETURN causes a branch to the “return-address” in the calling program. The return address is always the address immediately following the last step used to call the subroutine. Execution of the calling program then continues automatically, starting at the return address.

Any number of subroutines may be called individually during a program. However, it is also possible to use more than one subroutine at one time. One subroutine can call a second subroutine which, in turn, can call a third subroutine, and so on. This multiple-calling is known as “nesting”. The calculator can remember (store) from one to five return-addresses at a time so that the subroutines may be nested up to a depth of five. Returns are made on a “last-in, first-out” basis, the return always being made to the last return-address stored. As soon as the return is made, that returnaddress is forgotton (erased from storage) so that the previous address now becomes the “last” one. Thus the returning order is always the opposite of the calling order.

A program written as a subroutine may also be used as a “stand-alone” program. This is accomplished by depressing the END key to erase any return-addresses currently stored in the calculator and by not using the SUB/RETURN key when addressing the memory before the program is rUn.

Special Function Keys (FMT, PRINT/SPACE, PAPER)

The FMT (format) key is used to initiate special operations not otherwise defined and implemented by the other basic keys of the calculator. It is always used with other keys and, in effect, serves to re-define these other keys to implement the desired special operations. Several of these special operations associated with the FMT key are defined as part of the basic calculator. Others have been defined as part of associated plug-in ROM modules and are available only when the associated ROM modules are plugged into the calculator.

The command-sequences FMT, ΐ and FMT, I are used to operate the X-Y plotter peripheral unit. They are part of the basic calculator. The X-Y plotter-input commands are PEN ΐ, PEN J,, and x and y coordinates to which the pen-carriage is to be moved. The x and y coordinates are specified by decimal numbers in the range 0000 to 9999. The corresponding actual pen range of physical movement is determined by adjustments on the plotter itself. The FMT, T commandsequence causes the pen to be raised and the contents of the x- and y-registers to be fed to the plotter as the x and y coordinates to which the pen is to be moved. The FMT, I command-sequence lowers the pen and transmits the x-y coordinates. Note that for both commands the pen is raised or lowered first and the pen

3,859,635 carriage is then moved. The x-y coordinates in the xand y-registers must be pre-scaled by the user in the range 0000 to 9999. If these limits are violated, the following events occur:

1. If the contents of the x- and/or y-registers are less than 0000 (i.e. negative), 0000 is sent to the plotter, the pen is raised, moved, and lowered.

2. If the contents of the x- and/or y-registers are greater than 9999, 9999 is sent to the plotter, the pen is raised, moved, and lowered.

The result is to plot a series of dots along the boundary of the plot. The raising and lowering of the pen is a visual and audible warning to the user that he is plotting out-of-bounds.

The basic calculator includes provision for recording a user-program in the program storage section of the RWM as a secure program. This provision is completely distinct from a protected recording obtained by physically notching the magnetic card. A secure program is, by definition a program which can be executed only. It cannot be listed, recorded, looked at in the program mode, edited, or changed in any way. It is a program which can only be executed in the automatic operating mode at high speed by using the CONTINUE key (or step-by-step using the STEP PRGM key hereinafter explained).

Any program entered by the user from the keyboard input unit into the program storage section of the RWM, or any non-secure program loaded from a magnetic card, can be recorded as a secure program. This is accomplished in the same manner as described above in connection with the RECORD key except that the keys FMT and RECORD are sequentially depressed in the named order to initiate the recording operation. The program thereupon recorded on the magnetic card or cards is a secure program. The original program also remains in the program storage section of the RWM as a non-secure program, and can be recorded again, either as a secure or nonsecure program. It should be noted that once recording of a secure program has begun, it must be completed by continuing to insert cards until recording is terminated by an END program step. If the recording process is interrupted by depression of the STOP key, the recording will be terminated but the original program stored in the program storage section of the RWM then becomes a secure program and can only be executed — no further recordings can be made.

If a program stored in the program storage section of the RWM is a secure program (either by loading a program recorded as a secure program or by the STOP default outlined above) the following conditions prevail:

1. If the PRGM key is depressed, the entire program memory is cleared.

2. If LIST or RECORD are depressed, they are ignored, so that no listing or recording of the program can be made. These actions do not destroy the program — they are just ignored.

3. Since the program is destroyed by switching to the PRGM mode, the program cannot be changed or edited in any way.

Loading of a secure program is no different from loading a non-secure program — the same procedure holds. Several secure programs may be chain-loaded. If a non-secure program is loaded into the calculator when a secure program is already stored therein, the program storage section of the RWM is cleared of the secure program in all areas not loaded by the non secure program so that no trace of the secure program remains after loading the non-secure program. Thus, a non-secure program may not be chain-loaded after a secure program. However, the reverse can be done — a secure program can be chain-loaded to a non-secure program but the composite program is then secure.

The command sequence FMT, GO TO is used to implement automatic or program-controlled loading of magnetic program cards. The effect of FMT GO TO is the same as the following sequence: GO TO, 0 LOAD, GO TO, 0, and CONTINUE. This may be used to load a program from the keyboard, with automatic initiation of execution, or it may be used in a program to “link” programs. If the magnetic card reading and recording unit is not loaded with a magnetic card, the INSERT CARD indicator light will come on indicating to the user that magnetic card should be inserted. The LOAD routine operates in the same manner as described above in connection with the LOAD key and is terminated by an END program step on the magnetic card.

The command sequence FMT, x -* causes the contents of the available numeric-addressed data-registers in the data storage section of the RWM to be recorded on a magnetic card. The INSERT CARD indicator light comes on, and the recording continues, pass-after-pass, card-after-card until all registers are recorded, at which time the magnetic card reading and recording unit stops and the INSERT CARD indicator light goes out. If the FMT, x —> command sequence was executed from a stored-program, the program will return to execution at the keycode immediately following the x -» command. Recording may be terminated after any card by depressing the STOP key if the FMT x —► command sequence came from a stored program, execution may then be resumed by depressing the CONTINUE key.

The command sequence FMT x «- causes the loading of the available numeric-addressed datal registers in the data storage section of the RWM from one or more magnetic data cards. These registers are loaded cardafter-card until all the registers are loaded. The INSERT CARD light remains on, and the card unit continues to run until all are loaded. The loading may be terminated by a STOP key. If the FMT, x «- command sequence is executed from a stored program, executive resumes after a completed data load.

The PRINT/SPACE key causes the contents of the x-register to be printed in the same format as it is displayed (i.e. FIX (), n, or FLOAT). If additional PRINT/SPACE commands follow immediately, they will cause the printer to space (print a blank line). If the PRINT/SPACE command follows immediately after a numeric entry to x (from the keyboard or from a sequence of digit-keys in a program) the numeric printout is followed by an * (asterisk) indicating that this was a data entry and not a computed result.

The PAPER key is depressed to space the strip of thermal-sensitive paper used by the output printer unit. It continues to drive the paper upward until it is released.

Program Checking and Editing Keys (STEP/PRGM, BACK/STEP)

The STEP PRGM key is not programmable and is used, from the keyboard only, to single-step programs. When the calculator is in the manual operating mode the STEP PRGM key single-steps program execution. Each time STEP PRGM is depressed the program counter is incremented by one so that one program step

3,859,635 is executed. When the calculator is in the program mode the STEP PRGM key enables the program steps stored in the program storage section of the RWM to be viewed. Each time the STEP PRGM key is depressed, the program counter is incremented by one, so that the address and program step displayed in the yregister shifts to the z-register, those in the x-register shift to the y-register and the next higher address and program step appears in the x-register.

The BACK STEP key is not programmable and is used to decrement the user program counter by one each time it is pressed. This backs up the output display (i.e. does just the opposite of the STEP PRGM key). It should only be used in the program mode. If the STEP PRGM and BACK STEP keys are depressed alternately, the same program step will be executed repeatedly. This key is extremely useful in editing and checking programs and when used with the PRGM STEP key permits the user to advance either forward or backward through a stored program one step at a time. Definable and Redefinable Keys

The half keys A-O comprising the group of definable keys 91 enable the calculator to be tailored to the special needs of the user. Operation of these keys is defined by the various plug-in ROM modules 92 that may be used with the calculator. Without these ROM modules the definable keys 91 serve no function and accidently depressing them, or encountering them in the execution of a stored program, will result in a completely non-destructive no-operation.

The plug-in ROM modules 92 include the alpha ROM module mentioned above, a definable functions ROM module, a mathematics ROM module, a statistics ROM module, and a typewriter ROM module. Both the alpha ROM module and the typewriter ROM module redefine nearly all of the keys of the keyboard as well as defining the definable keys 91 themselves. The definable functions ROM module, the mathematics ROM module, and the statistics ROM module each uniquely define the definable keys alone and may each be used at the same time as the alpha ROM module or the typewriter ROM module.

A different overlay 192 is associated with each of the definable functions, mathematics, and statistics ROM modules and is employed with the definable keys 91 to identify the functions performed thereby when its associated ROM module is plugged into the calculator. Each of these overlays 192 comprises a thin metal template that fits over the definable keys 91 and latches into a recess around them. The graphics on these templates visually complete the key shapes and indicate the key function. A small tab positioned just above the nameplate releases each template, which then pops up enough to grasp. Three holes 196 near the top edge of each template allow direct viewing of three lightemitting diode indicator light used to indicate various operating conditions associated with the routines implemented by the ROM module. When the overly and its associated ROM module are not in use they may be secured together by a pair of tabs 198 provided on the ROM module.

A description of the additional key operations that may be provided by the plug-in ROM modules will now be given.

Alpha ROM Module

The Alpha ROM module redefines the keyboard input unit as indicated by the letters printed on the tops of the definable keys 91 and the letters and symbols printed on the front sides of most of the other keys to provide an “alpha keyboard” (see FIG. 8) containing 54 character-entry keys, five operational keys, and 16 5 “non-essential” keys (these non-essential keys are either inoperative or duplicate other keys during the alpha mode). During the alpha mode, the key-log feature is deactivated (thus, any keys pressed are not logged).

1° The 54 character-entry include all of the English alphabetic characters A-Z, all of the decimal numbers 0-9, and all of the following symbols @,V~,/(printed by thekey)_, x,—,+, π, -» , $, ?, (, ), %, ”, and

#. Depressing any of these keys during the alpha mode, 15 will cause the alphameric character or symbol indicated thereby to be printed out in line-printer fashion. The output printer unit operates as a line printer in that each character is not immediately printed out, but rather an entire line (16 characters) is first stored and υ then printed out. The print-out occurs as the 16th character is entered.

The five operational keys include the FMT key, the STOP key, a SPACE key (normally the CONTINUE 25 key), a CLEAR/RETURN key (normally the CLEAR key), and a PAPER key.

During the alpha mode, the following operational keys are depressed to perform various printing operations. Depressing the FMT key twice redefines the key30 board to the alpha mode, after which character keys may be depressed. After the last character is entered, depressing the FMT key causes a line print, a line feed, and returns the keyboard to normal operation. (The output display is blanked during the alpha mode, al35 though the contents of the x-, y-, and z-registers remain unchanged.) For example, the alphabet may be printed by sequentially depressing the RUN, STOP, FMT, FMT, A through Z, and FMT keys.

Depressing the SPACE key inserts a blank space in 40 the printed line (similar in operation to the space bar on the typewriter).

Depressing the CLEAR/RETURN key causes a line print and advances the printer to the next line (i.e. like a typewriter carriage-return and line feed operation).

The alpha mode remains set after this instruction. Successive CLEAR instructions will cause the printer to advance, without printing, one line for each instruction.

Depressing the STOP key terminates the alpha mode 50 without a line print or line feed. Any characters entered but not printed will be erased when STOP is pressed. This instruction is not programmable and should not be used while programming alpha messages.

The PAPER key is a manual paper advance control. This operation is not programmable.

The 16 “non-essential” keys include the I, xf±y, T, PRINT/SPACE, SUB/RETURN, END, BACK/STEP, STEP/PRGM, FLOAT, FIX (), RUN, PRGM, KEY LOG, LIST, LOAD, and RECORD keys. These keys are not essential for alpha printing operations. The non-essential keys which are programmable duplicate the SPACE key, while most of the non-programmable keys are “locked out” (i.e. not operational) during alpha printing operations. Pressing BACK STEP or STEP PRGM will cause 1 or 0, respectively, to be printed.

Definable Functions ROM Module

3,859,635

When the definable functions ROM module is plugged into the calculator, the user may employ the definable keys 91 to perform the redefined functions indentified by the associated overlay shown in FIG. 9. These functions include: 5

a. Defining special subroutines that can be called by a single key;

b. Protecting such subroutines against accidental erasure;

c. Deleting one, or more, of such subroutines when desired; and

d. Deleting, inserting, or searching for keycodes in any stored program.

a. Defining a Function 15

A user definable function can be any sequence of program steps, beginning with the key DEFINE F (i), where F( i) represents one of the keys Fl thru F9. The execution of such sequence of program steps must be terminated with the F-RET key in the same manner as 20 the SUB/RET key in the case of subroutines.

Example:

The following is a function which puts π in x, y, and z.

Program Step Key

0000 . DEFINE

0001Fl

0002Tr

0003f

0004f

0005 F-RET

The above function is identified by the key Fl. To execute this function simple press the Fl key in RUN mode or insert Fl in a program at the place you want it executed. 4θ

Example:

The following is a call on Fl from another program (the program here happens to be another function F2).

Program Step Key

0000 DEFINE

0001F3

0002CLR

0003 DEFINE*—

0004F2

The DEFINE at program step 0003 will be treated as an error when encountered during the execution of F3. The user here forgot to terminate the execution of F3 with F-RET. This error will cause the calculator to stop execution and turn on the STATUS light.

b. Protecting User Defined Functions

The protection feature allows the user to designate areas of memory to be a part of the calculator’s executive system.

i. Protecting A Single Function

Assume that you have just entered the definition of the function Fl in memory (the same Fl discussed earlier). After entering the last keystroke in the definition, namely F-RET, the program counter (y display) will point to program step 0006. Location 0005 which contains F-RET will be displayed in the z-register. Switch to the RUN mode. Press PROTECT. The light on the top of the PROTECT key (option 2 light) ..................

will come on. The definition of Fl is now protected up to and including the F-RET key. If you switch back to PROGRAM mode, whatever was in program step 0006 before will appear now to be at program step 0000. All the program steps used in defining Fl became “invisible”. For all purposes these program steps are now a part of the calculator system. You can still execute Fl by pressing the corresponding key in RUN mode, or by calling on it from another program or function.

ii. Protecting Several User Defined Functions Assume now that both the functions Fl and F2, described earlier, are to be protected. After protecting Fl Switch to the PROGRAM mode and enter the definition of F2, namely:

Program Step Key

0000 DEFINE 0001 F250

0002CLR

0003Fl

0004 F-RET

Program Step Key

0000 DEFINE

0001 F2

0002 CLR

0003 Ft

0004 F-RET

Notice that we have assigned the same program step 55 numbers to both the functions Fl and F2. Every function definition is assumed to start at program step 0000. All GO TO commands when present in a function are coded accordingly. This allows the user to define functions and delete them in a way independent of where 60 they actually reside in the calculator memory. The key DEFINE in both of the above functions serves to mark the start of the definition of a function in the calculator memory. This key is treated as an error if it is pressed during RUN mode. The key DEFINE is also treated as an error if the user attempts to execute it in a program.

Example:

After entering the definition of F2 switch to the RUN mode. Press DELETE PROTECT. The protect light indicator (option 2) will go off. Press PROTECT. Both the definitions of Fl and F2 are protected.

iii. Effect of Protection on User Memory

When protecting a certain number of keystrokes the calculator subtracts that number from the total number of program steps available in user memory. The user can compute the number of program steps available at any time as follows. In RUN mode, press END, DELETE, PROTECT, switch to the PROGRAM mode and read the program step number in the y display, assume this number is p. The number of program steps

3,859,635 available to the user are given by the simple formula:

Available Program Steps = n — p

The variable n in the above formula is 500, 1012 5 or 2036 according to the amount of user memory purchased.

After finding the value of p, as illustrated above, you can switch back to the RUN mode and press PROTECT again to re-establish the protection. 10 c. Deleting User Defined Functions

To delete a given function simply press the DELETE key followed by the name of the function to be deleted. The DELETE key only applies to the unprotected area of user memory. This prevents accidental erasure of 15 protected functions. Pressing the DELETE key causes the Insert/Delete light to come on (option 1) indicating that a memory modification operation is to be performed. If after pressing the DELETE key you find that you did not want to delete after all, you can press the 20 CLEAR key to abort the delete option. Pressing the CLEAR key at this time will cause the Insert/Delete light to go off. If the function to be deleted does not exist the error light will come on and the delete operation will be aborted. The DELETE key must be pressed 25 while the calculator is in RUN mode. The DELETE key may be followed by a function name (Fl thru F9), CLEAR, or a digit. Other keys following the DELETE key will turn on the error light and abort the delete operation. If encountered during the execution of a stored 30 program the DELETE key will cause the calculator to stop execution and turn on the error indicator.

DELETING THE LAST FUNCTION IN MEMORY

The delete operation is designed to delete a portion of user memory which starts with the DEFINE of the 35 function to be deleted and ending with the keystroke prior to the DEFINE of the next function in memory, or END. To illustrate, consider the following memory map.

that function the user will also delete that portion of memory which follows that function and terminates with an END. When deleting the last function in memory, the delete operation does not delete the END key. Thus deleting F2 from the memory map shown earlier will result in the following memory map.

<td> Program Step</td><td> Key</td>

<td> 0000</td><td> DEFINE</td>

The keystroke END becomes now the terminator to the definition of Fl.

d. General Editing Capabilities

In addition to deleting functions the user of the definable function block is offered the capability of deleting, inserting, and searching for individual keystrokes in memory. This feature is discussed next.

i. Deleting Individual Keystrokes

If the DELETE key is followed by a 4 digit address* the calculator will delete the keystroke contained in that address and move all the following keystrokes accordingly.

*See next paragraph on Automatic Address Termination for further details on address length.

Example:

Consider the memory map:

Program Step Key

<td> Program Step</td><td> Key</td>

<td> 0000</td><td> DEFINE*-</td>

<td> 0004</td><td> DEFINE</td>

When pressing DELETE Fl the calculator will delete the memory portion delimited by the two arrows in the memory map. After deletion the DEFINE at program step 0004 will move to program step 0000. The following keystrokes will move accordingly. Since the last function in a user memory is not likely to be followed by another DEFINE it is advisable to terminate that 65 function with the keystroke END as shown in the memory map (program step 0016). If the last function in memory is not terminated with END then by deleting

To delete the keystroke at program step 0002 press the DELETE key in RUN mode, (Insert/Delete light will come on), followed by the keys 0 0 0 2. The resulting memory map will be:

<td></td><td> Program Step</td><td> Key</td>

Notice that the keystroke previously at 0003 is now at program step 0002. All the keystrokes following the deleted key up to the last keystroke in memory have been moved accordingly.

AUTOMATIC ADDRESS TERMINATION AND ABORTING A DELETE:

In the above example we used a 4 digit address to specify the keystroke to be deleted. The user can use a 3, 2, or one digit address if such an address is terminated by a non-numeric key other than CLEAR. The following delete commands are equivalent to that given in the last example:

3,859,635

DELETE 2 STOP

DELETE 02 STOP

DEI.ETE 002 STOP

To abort a delete command before it is executed press the CLEAR key. The Insert/Delete light (option 1) will go off and the delete command will be cancelled. The CLEAR key can be pressed immediately after the DELETE key or during the entry of the address digits. No- 1° tice that the fourth digit in an address terminates that address. This digit signals to the calculator that the delete operation is to be performed. A CLEAR key following the fourth digit of an address will have no effect on a delete operation. After performing a delete opera- 15 tion the calculator switches off the Insert/Delete light. If the delete address is bigger than 2035 the status light will come on and the delete operation will be aborted. This number represents the maximum available program steps in the calculator.

ii. Inserting Individual Keystrokes

The definable function block also offers the user the capability of inserting key codes at any arbitrary program step.25

Example:

Consider the following memory map:

Program StepKey

0000CLR

0001GOTO

00029

0003 END

0004

To insert a keystroke before the key at program step 0002, press INSERT in RUN MODE, (the Insert/Delete light will come on), followed by 0 0 0 2. Switch to PROGRAM mode. The y display will point to program step 0002. At this location you will find that a CONTINUE (Code 47) has been inserted. The keystrokes originally at 0002 has now been moved to step 0003. All the key- 45 strokes which follow this keystroke have been moved accordingly. To put a new keystroke at 0002, simply press the new key while you are still in PROGRAM mode. The key pressed will replace the CONTINUE inserted earlier by the cal- 50 culator. Without replacing the CONTINUE at step 0002 the new memory map is as shown below:

Program Step Key

0000CLR

0001GO TO

0002CONT

00039

0004 END60

0005

The address in an INSERT command may ...... . be automatically terminated in the same manner described earlier in connection with DELETE. The insert operation can also be aborted in the same fashion.

Notice that the insert operation effects the content of all the program steps following the one designated in that operation.

iii. Searching for a Given Keystroke in Memory: The ability to search for a given keystroke in memory is provided by the FIND key. By pressing the FIND key, in RUN mode, followed by any other key on the keyboard the user commands the calculator to search for that key in memory starting at the current program counter value. If the key asked for is not found, the status light will come on. However if the key is found: the calculator will automatically switch to PROGRAM mode, and the Z register will contain the program step at which the key was found.

Example:

Consider protecting a function definition area in memory. This area is terminated with the key END. Reset the program counter to 0000 by pressing GO TO 0 or END, in RUN mode. Now press FIND END, the z-register will now contain the terminating END in the function area. Press RUN PROTECT. The function area is now protected up to and including that terminating END.

PROGRAMMING HINTS:

The definable functions can be nested five levels deep, irrespective of regular subroutine nesting. A higher nesting value will cause the calculator to stop execution and turn on the status light.

The light on top of the F-RET key (option 3) when lit indicates that the user is executing a sequence of keystrokes in a function definition. If you press STOP while this light is on you may stop the calculator in the middle of a function. To reinitialize program execution press DELETE, F-RET in RUN mode, the F-RET light will go off and the program counter adjusted to the value it had when the function area of memory was called.

Calling on a non-existant function from a stored program will cause the calculator to stop execution and turn on the status light. The program counter at this time will point to the program step which contains the name of the function called.

Mathematics ROM Module

When the mathematics ROM module is plugged into the calculator at the left-hand receptacle 94, the user may employ the definable keys 91 to perform the additional functions indicated by the mathematics overlay shown in FIG. 10. All of these additional functions are programmable. Any mathematically illegal functions performed either from the keyboard input unit or a stored program will turn on the STATUS light.

The units to be used in problems involving trigonometric functions or vector arithmetic are selected according to the procedure listed in Table A. The units specified by the appropriate indicator light above the definable key block.

Table A

Specifying Units To Specify: Press: Indication:

<td> DEGREES</td><td> TABLE N</td><td> 1</td><td></td><td></td><td></td>

<td> RADIANS</td><td> TABLE N</td><td> 2</td><td></td><td></td><td></td>

<td> GRADS</td><td> TABLE N</td><td> 3</td><td></td><td></td><td></td>

3,859,635

It should be noted that the setting of degrees, radians, and grads (360 degrees = 400 grads) is programmable.

Trigonometric functions of angles from 0° up to 5760° can be calculated at full accuracy; however, inverse trigonometric functions are calculated only for the principal values of the functions:

Θ = sin”' x; -90° « Θ « + 90° fl = cos-' x; 0° « Θ 180°

Θ = tan”1 x; -90° « Θ « + 90°

For instance: cos 150° = cos 210° = cos 510° = (etc.) = -.866

But: cos“' .866 = 150°.

The sin x key is depressed to calculate the Sine of the contents of the x-register and insert the result in the xregister.

The cos x key is depressed to calculate the Cosine of the contents of the x-register and insert the result in the x-register.

The tan x key is depressed to calculate the Tangent of the contents of the x-register and insert the result in the x-register.

The arc key is depressed followed by a trigonometric key to calculate the inverse trigonometric function of the contents of the x-register and insert the result in the x-register.

For example, the sin-1 0.5 may be calculated by sequentially depressing the TABLE N, 1,., 5, arc, and sin x keys. Depression of the TABLE N and 1 keys selected the units (degrees) per Table A above.

The following logarithmic and exponential functions may all be performed by employing one or two keystroke operations.

The TABLE N and 4 keys are sequentially depressed in the order named to calculate the logarithm (to base 10) of the contents of the x-register and display the result in the x-register.

The TABLE N and 5 keys are sequentially depressed in the order named to raise 10 to the power indicated by the contents of the x-register and display the result in the x-register (i.e. 10*)· For example, the number 0.69897 may be raised to the power indicated by the contents of the x-register by sequentially depressing the ., 6, 9, 8, 9, 7, TABLE N, and 5 keys.

The In x key is depressed to calculate the logarithm (to base e, i.e. natural logarithm) of the contents of the x-register and display the result in the x-register (i.e. In x). For example, the 5V 23 may be calculated by sequentially depressing the 2, 3, In χ, ΐ , 5, I, and ex keys.

The ex key is depressed to raise e (i.e. 2.718....) to the power indicated by the contents of the x-register and display the result in the x-register (i.e. ex).

The xu key is depressed to raise the contents of the x-register to the power indicated by the contents of the y-register. The result is displayed in the x-register, and the contents of the y-register remain unchanged.

The following keys provide capability for performing complex and vector arithmetic with a single keystroke operation.

The TO POLAR key is depressed to convert rectangular coordinates (consisting of x and y components in the x- and y-registers, respectively) to polar coordinates (fl = tan~*(y/x), R = Vxz+ys). When converting from rectangular (cartesian) to polar coordinates, the calculated angle fl will be within the range of—180° < fl « 180°. The final display is:

temporary z -----accumulator y (Angle#) keyboard x (Radius R)

For example, the coordinates 4, 3 (x, y) may be converted to polar form by sequentially depressing the TABLE N, 1 (these keys select the units, i.e. degrees), 3, t, 4, and TO POLAR keys.

The TO RECTANGULAR key is depressed to convert polar coordinates, when the radius (R) and the angle (fl) are in the x- and y-registers, respectively, to rectangular coordinates (y = R Sin fl, x = R Cos fl). The final display is:

temporary z accumulator y keyboard x

For example, the polar coordinates R = 8, fl = 120° (or —240°) may be converted to rectangular form by sequentially depressing the TABLE N, 1,1, 2,0,T, 8, and TO RECTANGULAR keys. The final display is:

(y component) (x component) temporary z accumulator y 6.928 keyboard x —4.000

The ACCUMULATE +, ACCUMULATE -, and RECALL keys are storage and recall keys associated with the a- and fl-data storage registers. These keys provide complete capabilities for vector addition and subtraction.

The ACCUMULATE + key is depressed to simultaneously add the contents of the x- and α-registers together and the contents of the y- and fl-registers together. The sums are entered in the a- and fl-registers, respectively, while the x- and y-registers remain unchanged.

The ACCUMULATE — key is depressed so simultaneously subtract the contents of the x-register from the contents of the α-register and the contents of the yregister from the contents of the fl-register. The remainders are entered into the a- and fl-registers, respectively, while the contents of the x- and y-registers remain unchanged.

The TABLE N key permits access to 10 more ROM functions than there are definable keys. A list of these functions is given in Table B below. The TABLE N key may be followed by any key. If this key is different from a numeric or FMT, no operation is performed.

Table B

TABLE N FUNCTION set degrees] sets argument

SET RADIANS? UNITS FOR TRIGONO-

SET GRADS ) METRIC FUNCTIONS

LoguX

10·1

DEGR, MIN, SEC -> DECIMAL DEGREES

DECIMAL DEGREES -r DEGR, MIN, SEC

ROUND

FMT AUTOMATIC SCALING

PLOTTER

The first five functions of the TABLE N key have already been explained above. However, this key may also be used to perform any of the next five functions

3,859,635 (namely, angle conversion, calculation X!, rounding a number to a specified power of 10, and plotter scaling) not previously described above.

The TABLE N and 6 keys are sequentially depressed in the order named to convert an angle expressed in degrees, minutes and seconds to decimal degrees. The angle must be entered into the calculator as follows:

DISPLAY temporary z ♦— (Degrees) accumulator y <— (Minutes) keyboard x <— (Seconds)

The result in decimal degrees, appears in the x-register, while the y- and z-registers are cleared. This is illustrated as follows:

temporary z — 0 accumulator y — 0 keyboard x —DECIMAL DEGREES

The TABLE N and 7 keys are sequentially depressed in the order named to convert an angle expressed in decimal degrees to degrees, minutes and seconds. The angle to be converted must be entered into the xregister, and the resultant angle appears as in the previous display. However, the contents of the y- and zregisters need not be zero for the instruction TABLE N, 7.

The TABLE N and 8 keys are sequentially depressed in the order named to replace the contents of the xregister with X! (where x 0 « |xl « 69).

The TABLE N and 9 keys are sequentially depressed in the order named to round the contents of the yregister to the power of 10 indicated by the integer value of the contents of the x-register. The rounded number appears in the x-register, while the y-register remains unchanged. For example, the number 5610.0 may be rounded to 102 (or nearest 100), by sequentially depressing the 5, 6, 1, 0, and ΐ followed by the 2, TABLE N, and 9 keys.

DISPLAY accumulator y 5610.000 keyboard x 5600.000 (y rounded)

Similarly, the contents of the y-register may be rounded 50 to another power (104) by sequentially depressing the 4, TABLE N, and 9 keys.

DISPLAY accumulator y 5610.000 keyboard x 10000.000 (y rounded)

A fractional number may be rounded by inserting a negative number into the x-register. For example, the number 0.005 may be rounded to the 10-2 or nearest 1/100 by sequentially depressing the ., 0, 0, 5, T, CHG SIGN, 2, TABLE N, and 9 keys.

DISPLAY accumulator)' 0.005 keyboard x 0.010 (y rounded)

A problem usually encountered when writing a calculator/plotter program is that of scaling the available problem variables to coordinates which the plotter can 5 use. The plotter scaling feature to be described, simplifies this typical plotting problem. The TABLE N, FMT, and T or I keys are sequentially depressed in the order named to replace the plotter problem variables, which are entered in corresponding x- and y-registers, with scaled coordinates. The user variable maxima and minima for this scaling operation are stored in user data storage registers 001-004. The foregoing sequence of keys controls the plotter (using the scaled variables) in the same manner as FMT, ΐ, or ! described above.

15 The DEFINABLE/( ) key is used to label and “call” an often used (or favorite) function which is programmed as a subroutine in the calculator. The definable function may be executed at any time from the keyboard by depressing the DEFINABLE key, or it may be called in a program by inserting the DEFINABLE (key) instruction. The definable function is programmed similar to a LABEL subroutine, while the function is executed as a normal subroutine; except it may be called with only one keystroke or program step. When the DEFINABLE / ( ) key is depressed the program counter searches for a subroutine labeled DEFINE/( ), executes, and returns. This key can be used both in keyboard and program control. A user written subroutine to be called by the DEFINABLE / ( ) key can be stored anywhere in the program memory, its first program steps must be LABEL, DEFINABLE / ( ); its last step must be SUB/RETURN. There are no restrictions on the operations this subroutine may per- 35 form. It is illustrated by the following example:

LABEL

DEFINABLE/( ) .r<=»y CHG SIGN (SUB/RETURN)

Whenever the key DEFINABLE/( ) is called either in RUN or PROGRAM mode, the hyperbolic cosine of the number in the x-register is computed and placed in the y-register by this subroutine.

The TABLE N and CLEAR x keys are depressed to clear all numerical storage registers without affecting the a- and h-registers or the x-, y- and z-registers.

A programmed subroutine may be repeated m number of times by inserting the following keys at the end of the subroutine: TABLE N, SUB RETURN, and n, where n may be any key from 0 to 9 indicating a data storage register that contains m, and m is equal to the absolute integer value of the contents of the n-register. After the subroutine has been repeated n times, the program exits the subroutine and resumes normal program operation at the program step following the subroutine “calling instructions”. The iterative subroutine feature may be added to a LABEL subroutine, but when the LABEL subroutine is called (during a program) the call instructions must cntain six program

3,859,635 steps. The following partial program shows how to call the LABEL π iterative subroutine.

Iterative “LABEL” Subroutine

STEP KEY (KEY/- COMMENT

CODE)

<td> 0401</td><td> CONTINUE</td><td> 47”</td><td> Subroutine</td>

<td> 0402</td><td> CONTINUE</td><td> 47</td><td> CALLS</td>

<td> 0403</td><td> GO TO</td><td> 44</td><td> Instructions</td>

<td> 0404</td><td> (SUB/RETURN)</td><td> 77</td><td></td>

<td> 0405</td><td> LABEL</td><td> 31</td><td> (6 keys)</td>

<td> 0406</td><td> 7Γ</td><td> 56_</td><td> Return from</td>

<td> 0407</td><td> —</td><td> 35</td><td> Subroutine</td>

Statistics ROM Module

The primary function of the statistics ROM module is to carry out the summations of variables, crossproducts, and squares needed as fundamental quantities in a variety of statistical analyses. These summations are generated in the general data storage user registers, and the user must be careful to avoid any operations which might destroy or alter the contents of these registers. The number of registers used is dependent on the number of variables treated — as defined by the user.

ymiit y>najt

RN

-Continued >23 >24 >25 >26 *27

Any registers not used in a specific sequence are available. For example, if 2 - variable operations are set 10 up, only registers 0 — 5 are in use, and 6 -* 20 are free for other purposes.

When the statistis ROM module is plugged into the calculator, the user may employ the definable keys 91 to perform the additional functions indicated by the 15 statistics overlay shown in FIG. 11. All of these additional functions are programmable and will hereinafter be described key-by-key.

The VARIABLES K key is used to define the number of variables to be treated, 1 to 5. It must be followed immediately by a digit key, 1 to 5. If any other key is depressed after this key, the STATUS light will be turned on, and the calculator will halt in the display mode. The VARIABLE key and the erroneous key following it are ignored — there is no other action.

If a correct digit key follows, one or more of the indicator lights will come on, to signal the number of variables selected. The pattern is:

The registers used are:

ο 1

I I 12 13 14

IS 19

J 1 -variable; x

------ 2-variable; x, y | 3-variable; x, y, z | ~~ 4-variable; x, y, z, a

F 5-variables; x, y, z, a, b

1-variable

2-variable 3-variable 4-variable 5-variable

I-light 2-light 3-light 1 and 3-lights 2 and 3-lights

The definition of the number of variables affects subsequent use of the Σ key, MAX/MIN key, and the INITIALIZE and CORRECT keys used in conjunction with it. The number of variables remains unchanged until the VARIABLES key is used to change it, which 40 may be done at any time.

Σ . '

This key is used to accumulate the data summations of variables,, cross-products, and squares as outlined previously. The number of summations is determined 45 by the VARIABLES key described above. That is, the contents of the registers utilized are:

rhese are graphically summarized in an easy-to-recall orm in this table:

l x y z a b

In addition to the user-registers 0 -» 20 utilized as hown above, registers 21 -» 27 are used for collection f maximum/minimum values, for the “seed” of the seudo-random number generator. This is shown beiw:

1-variable 2-variable 3-variable 4-variable 5-variable x, y x, y, z x, y< z, a x, y, z, a, b

If the summation key (Σ) is depressed without a previ55 ous definition of the number of variables (VARIABALES key followed by digit 1--5), the number of variables is set at three. It will remain at this setting unless changed by use of VARIABLES

The Σ key generates the summations, and leaves the 60 contents of x, y, z, a, and b unchanged.

The INITIALIZE and CORRECT keys work in conjunction with the summation key. They must precede the Σ key.

When the sequence INITIALIZE - Σ is used, all regis65 ters (defined by the number of variables set) involved in the summations are cleared to zero. This sequence should always be used before the start of a series of summations on a set of data — otherwise any previous

3,859,635 η ( > (0) Z~ n—1 ~ (0)-1

The results appear in the x, y, z registers in the pattern contents of the registers are included in the summations.

If, after depressing the Σ key, it is discovered that the contents of λ, y, z, a, or b were erroneous, the user may remove the erroneous data from the summation by de- 5 pressing CORRECT - Σ keys in that sequence. This will remove all variables, cross-products, and squares of that data from the summation. The user may then correct the data and reenter it by depressing the Σ key. Since x, y, z, a, and b are unchanged by the use of Σ (or 10 CORRECT - Σ ) this is most conveniently done when the erroneous data is still intact - i.e., immediately after Σ . However, if the erroneous data is not discovered until later, the user must reenter the erroneous data in x through b (only x and y if 2 - variable, etc.), use COR- 15 RECT - Σ, and then correct the erroneous data and enter it with the Σ key.

The user must be careful not to do any operations during a summation-sequence on data which will alter the contents of any user-registers involved in 20 the summation. However, the contents of any of the summation-registers may be recalled and used at any time, so long as they are not altered.

Once a data-sequence has been entered by use of the Σ key, the summations are available for any desired sta- 25 tistical analysis. For user convenience, four commonly used statistical processes are implemented, to be performed by a single keystroke. The function of these four keys will follow.

The MEAN key computes (from the collected summations) the arithmetic mean of up to three variables; x, y, and z. If four or five variables are set, the MEAN key operates on only three, and does not form the other two means (on a and b).

For various variable settings, the following computa- 35 tions are made, and appear in the x, y, z registers:

<td></td><td> 1-variable</td><td> 2-variable</td><td> 3-variable</td>

The contents of all summation-registers used in these computations remain unchanged.

The REGRESSION key performs linear regression (least-squares curve fitting) using the accumulated summations. The computations and results are controlled by the variable-setting, as outlined below.

Variable - 1: The regression of a single variable on itself is not performed. If REGRESSION is depressed with VARIABLES - 1 set, the STATUS light is turned on, and the calculator halts in the display mode. There will be no other action - the contents of x, y, z, and all summation — registers will be unchanged.

Variable - 2: The regression of the dependent variable on one independent variable is performed for the 30 equation:

y = a„ + atx

The results are placed in x, y, z in the pattern:

1-variable z φ.φ y ΦΦ x χ=(Σχ/η)=(( 1)/(0)) z—---:------φ.φ y------------Π»

X---------------a, where (1) means “contents of register - 1”.

2-variable

3-variable

Z φ.φ y y=(Xy/ )=((3)/(0))

X X z ζ=Σζ/η=((6)/(0)) y y

The contents of all summation-registers used in the computation remain unchanged.

Variable - 3: The regression of the dependent vari45 able on two independent is performed for the equation:

z = ao + aiX + aiy

The results are placed in x, y, z in the pattern:

These computations are carried out and the results appear in x, y, z as shown, without changing the contents of any of the summation registers.

The VARIANCE key computes (from the collected summations) the variance of up to three variables, x, y, and z. If four or five variables are set, the VARIANCE key operates on only three, and does not form the vaiance of a or b.

The following computations are performed:

(Σ»)8 n

η — 1 (2)(1)_2 (0) (0)-1 (3)2

2__co.) (0)-1

OS a.

The contents of all summation-registers used in the computation remain unchanged.

Variable 4 - and Variable - S: This situation is treated as Variable - 3. Four - and 5 - variable regression may be performed by user-programming. All summations required are generated by the Σ key when variables are set at 4 or 5. r2

The r2 key generates the correlation coefficient (a measure of goodness-of-fit) for the linear regressions performed by the REGRESSION key. The computations performed are controlled by the variable setting.

Variable - 1: No computations are performed—the key is ignored.

3,859,635

Variable - 2: The correlation coefficient of the linear regression for:

y = flo + atx is computed.

The computations performed are best described by introduction of a subsidiary quantity:

μχΝ = 1xtXj — [(Σ Χ()(Σ Xj)ln]

The correlation-coefficient for variable - 2 is then defined to be:

r2 = (μχγ)2/μχχμγν

This result is placed in register x, and y and z are cleared.

Variable - 3: The correlation-coefficient of the linear regression for:

z = a0+ atx + a2y is computed. This is:

αι μχζ + a2 μνζ)!μζζ

The result is placed in register x, and y and z are cleared.

The MAX/MIN key is used to collect the maximum and minimum values of the variables x, y, and z. Since these values are stored in registers 21 through 26, they do not affect the summation registers (Σ key). Thus, MAX/MIN information may be collected on the same data on which summation information is being collected.

The MAX/MIN storage registers 21 through 26 are initialized by the key-sequence INITIALIZE - MAX/MIN. This results in loading the registers with:

(21),(23),(25) (x,y,z)„»= 10 (22),(24),(26) (x,X,z).„ = -10

All six registers are initialized without regard to the variable-number setting.

When MAX/MIN is depressed, the contents of x(lvariable), xand y (2-variable) or x, y, and z (3,4, or 5variable) are compared to the stored contents of the max/min registers. If the new value is less than the contents of the associated “min” register, the new value is substituted— if not, the register is left unchanged. The maximums are handled correspondingly Thus, at any time the max/min registers contain the max/min of the input data since the last initialization. This data is not displayed—the user must recall it, as needed, from the appropriate register.

The CORRECT key does not work in association with the MAX/MIN key, since any previous values changed are lost irretrievably by the MAX/MIN operation.

The t key collects summations necessary to compute a /-statistic on data in x and y, and computes and displays the statistic. The overall action is quite different from the Σ key, which collects summations only, and leaves the original data unchanged. In contrast, the t key collects needed summations, computes and presents the /-statistic, and destroys the data just entered.

Further, the /-summations are stored in registers 0,1, and 2 which are the same registers used by the Σ key. Therefore, use of the Σ and/ key canot be intermixed.

The summations accumulated are:

n -» 0

S(x,-y) = XD -» I

2(x-y)2 = 2D2 -» 2

These are accumulated with each depression of the t key. The three registers may be cleared for starting a new data-sequence by the key-sequence INITIALIZE -/.

If an error is made in data entry and the erroneous data is included in the summations by depression of the / key, it is convenient to have a means for removing the erroneous data. However, the data has been destroyed in order to present the /-statistic which is computed after each key depression. When the user discovers the data error, he may reenter the erroneous data in x and y. Then, depression of CORRECT - t will remove the data from the summation. He may then reenter the correct data and include it by depressing the / key.

The computations performed from the summations are:

D = tD!n= [Σ(χ — y)]/«

V n(n— 1)

D is placed in the z - register, n in y, and / in x.

X2

The X2 key accumulates the summations and then 35 computes and presents the chi-squared statistic at each depression of the key. It’s general operation is the same as the t key in that:

1. Summations are accumulated in 0 and 1 so that use of X2 and Σ cannot be mixed.

2. The presentation of results after each key depression destroys the data entry in x and y. Correction for erroneous data can be accomplished by reentering the bad data and then depressing CORRECT - X2.

3. The registers used (0 and 1) are cleared by depressing INITIALIZE - X2.

The summations accumulated are:

n -► 0 50 Σ(χ - y)2/y -> 1

In the normal context for use of chi-square the “observed”value is in x, the “expected” value in y.

The RANDOM key causes the computation of a se55 quence of pseudo-random numbers, uniformly distributed in the interval 0 > RN » 1. The method used is congruential products. It is necessary for the user to provide a “seed” for the sequence before using the RANDOM key. A given seed will produce the same se60 quence of pseudo-random numbers each time it is used.

The seed should be stored by the user into register 27. After each depression of RANDOM, the newlygenerated pseudo-random will be stored in register 27 as a new seed, and the number will also be presented 65 in the x- register. They y and z registers remain unchanged.

The initial seed provided by the user should be selected with certain rules in mind in order to obtain ac

3,859,635 ccptablc pseudo-random number properties. They are: 1. Enter a decimal fraction consisting of 12 digits (i.e., enter a complete number including guarddigits, even though they cannot be seen).

2. The number should be odd.

3. The number should not be evenly divisible by 5.

The LOG|(ht, LOGex, and e* keys provide the specified mathematical function on the argument in x, and the result is left in the x-register. No other registers are changed.

Typewriter ROM Module

When the typewriter ROM module is plugged into the calculator, the keyboard input unit is redefined as shown in FIG. 12 so that the entire keyboard of a properly interfaced tyewriter such as the Facit Model 3841 (hereinafter referred to as the Model 61) may be completely cntrolled by the calculator. The Model 61 is capable of performing three basic operations:

1. Type data contained in the calculator’s xregister.

2. Type alphameric messages and control typewriter functions.

3. List programs contained in the calculator memory.

These operations are accomplished by calculator instructions given either from the keyboard or as program steps in a proper sequence. In this section, these instruction sequences will be described. Numerous examples are provided so that the user will be able to manually key the instruction sequences and observe the results. In normal operation, the instruction sequences would be placed in a program.

Table C provides, in brief form, the instruction sequences used to operate the Model 61. The table is not provided to teach typewriter operation; rather, it is provided for quick reference once the instruction sequences are understood.

All of the Model 61 instruction sequences presented in this section can be reduced into component parts consisting of one or more calculator instructions. For example, all of the Model 61 instruction sequences contain the two calculator instructions FMT and 2.

The instructions FMT and 2 service the special purpose of redefining the following calculator instructions so that they will be understood only by the typewriter. The two instructins, when thought of as a component part of an instruction sequence, can be considered as “the typewriter address”. Although these two instructions will be shown as part of each of the following instruction sequences, their meaning will not be explained again.

TABLE C

COMMAND SET Instruction Sequence: Typing a Number

Types the number in the x-register in a ! notation and location specified by the last w.d. instruction.

w specifies field width (location). The number will be right justified in the field. At turn-on, the calculator assumes a w of 20.

·· d specifies the number of digits to the right of the decimal point or specifies floating point.

Alphanumeric Typing

FMT 2 FMT Message FMT

Allows the user to type labels and headings. Also allows control of all keyboard functions except margin setting. Messages may include print instructions. Calculator keyboard has two modes, shifted and unshifted (see keyboard diagram on the back page).

Listing A Program

FMT 2 List

Lists the contents of the calculator’s memory beginning with the present location of the program counter and continuing until an end statement is encountered in the memory or stop on the calculator keyboard is pressed. The listing includes address location, key code, and key mnemonic.

All commands are available on program or manual request.

The instruction sequence FMT, 2, w.d, PRINT allows the user to type the data contained in the calculator’s x-register. In this sequence, the notation (fixed or floating point) of the typed data can be specified. In addition, the location where the data will be typed on the typewriter platen may also be specified. This instruction sequence consists of the following component parts:

FMT 2 — Typewriter address.

w.d. — Specifies the location and notation of the typed data.

PRINT — Causes the data point to be typed.

The instruction sequence is initiated with the typewriter address and is terminated by the PRINT instruction. The component parts of the instruction sequence have the following meaning for the typewriter.

w.d. — This component of the instruction sequence allows the location and notation of the typed data to be specified. The w part of the component specifies the location; the d part specifies the notation. The decimal point in the component delimits the two parts. Although a w cannot be given without also giving a d, they are best explained separately.

w specifies the field width (w) in which the data is to be typed. The left side of the field is defined by the location of the typewriter carriage when the data is typed. The right side of the field is defined by the value of w; For example, if the typewriter carriage were sitting 10 spaces from the left margin setting and w was specified as twenty, then after the data has been typed the carriage will be located 30 spaces from the left margin setting.

Any data typed in a field will automatically be typed in the right most spaces (right justified) of the field. The following drawing illustrates the number 123.45 right justified in a field of ten.

,ί ί I. I >ΓΦΙΊ*Ι<. ' w = 10

The field must be large enough to contain the typed data, including the decimal point and any signs that may be present in the data point. If, for one example, the data point were the digit one, a w of one would be large enough to contain the data point; however, if the data point were a negative one, a field width of two would be required. If the field is not large enough to contain the data point, the data Will not be typed; instead, the entire field would be filled with asterisks to notify you that the data point could not be fitted into the specified field width.

3,859,635

W may be specified as any number between 1 and 63 (inclusive). Since the data point is always right justified in the field, you will use w to place the data point at the desired location on the typewriter platen. Do not, however, set w so large that the data, when typed, exceeds the right margin setting. If the right margin is exceeded, the program will be stopped at the memory location following the PRINT instruction (explained later) that exceeded the right margin setting and the STATUS lamp will be lit.

When a w instruction is given, the value is automatically stored in the calculator. A w instruction, once given, need not be given again in a program and may be used any number of times when succeeding FMT, 2, PRINT (explained later) instruction sequences.

The value selected for w is lost when the calculator is switched OFF. When the calculator is switched ON a w of 20 is automatically stored.

The d part of the w.d. component allows the user to control the mode of the calculator display from a program and, therefore, the notation (fixed or floating point) Of the typed data.

In this instruction sequence, when the data in the calculator’s x-register is typed, it will be typed as it is displayed in the x-register. In order to provide the capability of specifying the notation (fixed or floating point) of the typed data, this instruction sequence is capable of controlling the format of the calculator display. This is provided by the d part of the w.d component.

The following table shows the relationship between d and the notation of the typed data.

<td> d</td><td> Typed Notation</td>

<td> Φ 1</td><td> decimal part and decimal point are suppressed one digit to the right of the decimal point is typed.</td>

<td> 2</td><td> two digits to the right of the decimal point are typed.</td>

<td> 9</td><td> nine digits to the right of the decimal point are typed. ♦—(decimal point) the data will be typed in</td>

<td></td><td> floating point notation.</td>

A data point in the calculator’s x-register will always contain a decimal point; however, if the data point is displayed with no digits to the right of the decimal point (e.g., 10.), the data, when typed, will be typed without the decimal point.

The d part of the w.d component is most easily thought of as a programmable FIX ( ) - FLOAT instruction. It has the same effect as those keys on the calculator display. Also, all of the rules of operation concerning overflow and underflow applicable to the FIX ( ) and FLOAT keys apply equally to d.

In the case of overflow, if the calculator display contains nine digits to the right of the decimal point and a data point containing two digits to the left of the decimal point is entered in the x-register, the register will overflow and display the data point in floating point notation. Exactly the same situation can occur with d. If you specify a d of nine and the data point in the xregister overflows, then the data point will be typed in floating point notation.

There is a potential problem in the interaction between w and d that the operator should be aware of.

For example, assume that w has been set for two and d has been specified as zero. If the data point in the xregister overflows and an attempt is made to type the data point, the field width of two will not be large enough to contain the data point in floating notation and two asterisks will be typed.

Whereas an overflow condition which exceeds the field width will cause asterisks to be typed, an underflow condition will not. In an underflow condition, the data point in the x-register has become so small that the d specification does not allow the data point to be displayed with enough accuracy. Like the overflow condition, the data point is, in essence, not typed. For example, assume the value of the data point in the x-register were 1.23 X 10-11 and dwere specified as zero. When the data point is typed it will be typed as zero.

The operator should be aware of the range in which the typed data will lie and set the w.d specification so that neither underflow or overflow occur. If the range is likely to be very great, the field width and d should be set so that the data point is typed in floating point notation (16 . . ).

Because dis essentially stored by changing the format of the calculator display, the value for d remains unchanged until the display format is changed. This can be done by giving another d instruction or by manually pressing the FLOAT or FIX ( ) keys. If, for example, you specify a d of two, stop the program and press FLOAT, then, when the data is typed it will be typed in floating point notation.

The PRINT component of this instruction sequence causes the typewriter to type the data contained in the calculator’s x-register. The data will be typed in the location and notation specified by the last w.d component given.

When a FMT, 2, w.d, PRINT instruction sequence has been executed, the instruction sequence will automatically be terminated and the typewriter address reset. This means that if you wished to type the same data twice, the entire instruction sequence (less w.d, explained later) must be given again.

In order to provide maximum programming flexibility, certain component parts of the FMT, 2, w.d, PRINT instruction sequence may, optionally, be omitted from the instruction sequence. The following variations of the sequence are allowable:

FMT, 2, w.d, PRINT — Type the data in the x-register in a specified location and notation.

FMT, 2, w.d — Establish a field width (w) and notation (d) which will be used later in the program by one or more FMT, 2, PRINT instruction sequences.

FMT, 2, PRINT — Type the data in the x-register in a location and notation stored earlier in the program.

The FMT, 2, w.d instruction sequence allows you to save program steps by specifying w and d only once in a program and reusing them any number of times with succeeding FMT, 2, PRINT instruction sequences.

The PRINT instruction in these sequences will automatically terminate the instruction sequence and reset the typewriter address. In the case of the FMT, 2, w.d instruction sequence, the instruction sequence is not terminated; however, the next calculator instruction, in addition to performing its normal function will terminate the sequence.

3,859,635 minating the FMT, 2, w.d instruction sequence, the instruction will be performed in its normal manner.

The use of the FMT, 2, w.d, PRINT instruction sequence is illustrated by the following example:

A piece of paper 8½ inches or wider is placed in the typewriter and the margin stops, paper guide and carriage set as shown below:

PRESS:

FMT,

Left Margin ΙΠ «—Slop

Right Margin

DISPLAY:

1.000000000 03 —» X, Y

Paper Guide

Paper Bail's . Graduated Typing Scale

This instruction sequence has specified floating point notation; however, this display can be manually overridden with the FIX ()- FLOAT keys:

Card Holder is keyed into

The number 1,000 register, and floating point display the calculator’s is selected.

PRESS: DISPLAY:

PRESS: TYPE-OUT:

FIX ( ) 2 1000.00 -» X FMT, 2, and PRINT w = 13,d = 2

DISPLAY:

PRESS:

DISPLAY:

FMT,

1.000000000 03-» X

13.2

1000.00--» X

1000.00

The w (13) was stored and the d(2) changed the display. The instruction sequence is not terminated, however, and a PRINT instruction may be added:

Data in the calculator’s x-register can be typed without a decimal point. THis is done by specifying a dof zero:

PRESS:

TYPE-OUT:

1000.00

PRINT

K = 13, d= 2

PRESS: FMT, 2, 4, ., 0, and PRINT

TYPE-OUT: »=4,d = 0

1000.00

The red pointer mark on the CARD HOLDER points to 13 on the PAPER BAIL’S graduated typing scale, not 14 as one might expect. That is because the scale starts at zero, not one.

The PRINT instruction has terminated the instruction sequence. To type the data again will require another instruction sequence:

1000.00 2 o

1000.001000

PRESS:

TYPE-OUT:

FMT, 2, PRINT

1000.00 1000.00 w = 13, d = 2

The data point just typed was typed in a field width of four, just large enough to contain the data. Spaces between this data type-out and the one previously typed could have been provided by specifying a larger field width, w.

Asterisks will be typed across a field that is not large enough to contain the data.

The FMT, 2, PRINT instruction sequence has used the w and d stored in the preceding FMT, 2, w.d instruction sequence. The type-out is right-justified on the twentysixth space as the left side of the field is defined by the location of the carriage when the data is typed.

It should be noted that a FMT, 2, w.d PRINT instruction sequence does not contain the capability of a carriage return/line feed instruction. This capability does exist, however, as explained below.

A FMT, 2, w.d instruction sequence is terminated by the next calculator instruction given. In addition to terPRESS:

TYPE-OUT:

FMT, 2, 3, ., 0, and PRINT w = 3, d = 0

1000.00

1000.001000··· 4 4 5

6 0

FMT, 2, FMT, MESSAGE, FMT instruction seThe quence allows labels and headings to be typed for data. With this instruction sequence, the user can control

3,859,635 both characters on each typewriter key and control all typewriter functions directly from the calculator, either by stored program step or manually, from the calculator keyboard.

The instruction sequence consists of the following component parts:

FMT 2 — Typewriter address

FMT — Established the TYPING

MESSAGES instruction sequence.

MESSAGE — Your label or heading

FMT — Terminates the instruction sequence.

Other calculator instructions which terminate this instruction sequence are:

LOAD STOP * STEP FLOAT PRGM

RUN KEYLOG RECORD END *

BACK STEP FIX ( ) PRGM LIST

Programmable instructions.

In the MESSAGE component of this instruction sequence, one programmable calculator instruction will control one typewriter key. Which character on the typewriter key will be typed or which typewriter function will be performed, will depend on the mode of the calculator keyboard when the instruction is given. In the MESSAGE component of this sequence, the calculator can be in one of two modes, unshifted or shifted.

When the instructions FMT, 2, FMT are given, the calculator keyboard will automatically be in the unshifted mode. In this mode of operation, the calculator instructions and the typewriter character typed or function performed have the correspondence shown by the characters and symbols included within the keys of FIG. 12.

The unshifted calculator keyboard can control the typewriter’s numbers and capital alphabet. In addition, the functions TAB CLEAR, TAB, CR/LF (Carriage return/Line feed), SPACE, BLACK RIBBON may also be performed. The FMT instruction and the blank keys shown in the diagram will terminate the instruction sequence. Three instructions (PRINT, TAB and SHIFT) available on the unshifted calculator keyboard require special mention.

A PRINT instruction placed in a MESSAGE will cause the data in the calculator’s x-register to be typed. The data will be typed in the location and notation specified by the last w.d given. A w.d may not be placed in a MESSAGE; however, they are stored when they are given and automatically recalled and Used with a PRINT instruction placed in a MESSAGE.

A TYPING MESSAGES instruction sequence will not affect the contents of the calculator’s display registers. Therefore, data can be placed in the x-register and typed with a PRINT instruction placed in this instruc tion sequence.

Giving a TAB instruction will cause the typewriter carriage to move either to the next tab set or to the right margin setting. If the carriage is less than two spaces from a tab setting and a TAB instruction is given, then that tab setting will be ignored by the typewriter and the carriage will move to the next tab setting or right margin setting.

The SHIFT instruction allows one to change the mode of the calculator’s keyboard. If the calculator keyboard were unshifted and a SHIFT instruction was given, then the calculator keyboard would be in the shifted mode. In the shifted mode of operation, the calculator instructions and the typewriter character typed or the function performed have the correspondence shown by the characters and symbols printed below the keys of FIG. 12.

The shifted calculator keyboard can control the typewriter’s small letter alphabet and the symbols above the numbers and in addition, the functions TAB CLEAR ALL (CLEAR ALL TABS), TAB SET, CR/LF, SPACE, BACK SPACE. The FMT instruction and the blank keys shown in the diagram will terminate the instruction sequence. The operation of the PRINT and SHIFT instructions on the shifted calculator keyboard are the same as on the unshifted keyboard. The two instructions that require special mention on the shifted calculator keyboard are the CR/LF instruction and the RED RIBBON instruction.

The CR/LF instruction will cause the typewriter to perform a carriage return and line feed. In addition, this instruction will cause the calculator keyboard to become unshifted.

A RED RIBBON instruction will cause the typewriter to type in red. Once red ribbon is selected, only two things can reset the red ribbon, they are, giving a BLACK RIBBON instruction (available on the calculator’s unshifted keyboard) or switching the calculator interface OFF. Terminating the TYPING MESSAGES instruction sequence wil not reset a RED RIBBON instruction.

The MESSAGE component of a TYPING MESSAGES instruction sequence may be any number of program steps (limited only by the size of the calculator memory). However, a typewritten line must not be allowed to exceed the right margin setting. If the right margin setting is exceeded, the program will stop at the second memory location following the instruction that exceeded the right margin setting and the STATUS lamp will light.

(It should be noted that if the right margin setting is exceeded in a typing data instruction sequence, the program will stop at the memory location immediately following the PRINT instruction that exceeded the right margin setting.)

Because of the two things an operator must keep track of, an example of TYPING MESSAGES is potentially confusing. For example, if the instruction A were placed in a MESSAGE, the operator could not easily predict whether the character typed would be A or a, further, the color would be unknown. Which character and which color would, of course, depend on whether the calculator keyboard were shifted or unshifted and the status of the ribbon color. The following format makes keeping track of these two things easier and, therefore, helps clarify the examples.

3,859,635

The format is essentially the standard programming pad format with five additional columns: B, R, S, U and PROG INST. Mark the B and R column so that you will know the status of the ribbon color, red or black. In the S arid U columns, you can mark the mode of the calculator keyboard when the instruction is given — S for shifted, U for unshifted. In the PROG INST column you can record the typewriter instruction that, considering the mode of the calculator keyboard, corresponds to the instruction in the KEY column. In the following examples, the PROG INST column will not be used except for typewriter instruction sequences.

To type messages the typewriter’s LEFT MARGIN STOP and PAPER GUIDE are set to zero. The typewriter carriage is positioned against the LEFT MARGIN STOP. A piece of paper 8½ inches or wider is placed in the typewriter and the RIGHT MARGIN STOP set to 70. The number 123.45 is keyed into the calculator’s x-register and a display mode of FIX (),3 selected. In this example, the MESSAGE “The value is” will be typed followed by the data just entered into the calculator’s x-register. This is accomplished by keying in the following instructions:

TYPE-OUT: The value is 123.45

Steps 0000-0004 25 The FMT 2 w.d instruction sequence established a field of seven with two digits to the right of the decimal point. The data point (123.45) requires a field width of six; setting the width to seven will ensure that there will be a space between the data and the last character

9Φεί1·

Steps 0008-0009

The BLK RIBBON instruction in step 0008 will ensure that the MESSAGE in this example is typed in black. Prior to that time the status of the ribbon color 35 was unknown; therefore, neither the B or R column was filled in.

The CR/LF instruction in step 0009 will ensure the MESSAGE is typed against the LEFT MARGIN STOP.

The next example performs the same type of opera40 tion with the instruction sequences used in a slightly different manner. In this example the TYPING MESSAGES instruction sequence will be used to type the message “123.45 squared =” in black and then set the red ribbon. Next a TYPING DATA instruction se45 quence is used to set a field width of ten with four digits

<td> 1</td><td></td><td></td><td> SHIFT</td><td> UP</td><td> 27</td><td></td><td></td><td></td>

<td> 4</td><td></td><td></td><td> SPACE</td><td> TNT·</td><td> 47</td><td></td><td></td><td></td>

<td> 0020</td><td></td><td></td><td> SPACE</td><td> CNT</td><td> 4i</td><td></td><td></td><td></td>

<td> 3</td><td></td><td></td><td> PRINT</td><td> PNT</td><td> 46</td><td></td><td></td><td></td>

3,859,635 :o the right of the decimal point, and type the data conaincd in the x-register.

If the number 123.45 is not still in the x-register from the last example, it is entered into the x-register and the following calculator keys are depressed in the order given:

(It should be noted that if the ribbon color status is red, the listing will be typed in red.)

This may be illustrated by entering a typewriter exer5 ciser program into the memory of the calculator and then:

<td> 3</td><td> 1</td><td></td><td> SPACE</td><td> CNT</td><td> “T7~</td><td></td><td></td><td></td>

<td> 4</td><td colspan="2"> 1 1</td><td> 1 SHIFT</td><td> OF</td><td> ”27“</td><td></td><td></td><td></td>

<td> 2</td><td colspan="2"> 1</td><td> SPACE</td><td> CNT</td><td> 47</td><td></td><td></td><td></td>

<td> 2</td><td colspan="3"> II PRINT</td><td> PNT</td><td> 48</td><td> ··</td><td></td><td></td>

In the last example, a BLK RIBBON instruction was ?iven. Since then, the ribbon color has not been changed. Therefore, in step 0003, the B column can be filled in even though a BLK RIBBON instruction was rot given.

At step 0024 a RED RIBBON instruction is given so :hat the data in the x-register will be typed in red. Remember, the red ribbon can be reset to black ribbon by 45 :wo things only, giving a BLK RIBBON instruction or turning the typewriter interface OFF.

TYPE-OUT: 123.45 Squared = 15239.9025 50 t may be noted that there is no space in the type-out retween the “=” and the data. That can be corrected n two ways:

1. Setting the w specification to 11. 55

2. Inserting a SPACE instruction immediately following the “=” instruction.

The instruction sequence FMT, 2, LIST allows the iser to list a program contained in the calculator memory. The listing will be typed in a column format with 60 :ach line consisting of the memory location, the mnenonic of the instruction stored in the location and the :ey code of the instruction. The listing will begin at the ocation of the program counter when this instruction equence is given and will continue until either an END nstruction is given or STOP on the calculator key>oard is pressed.

PRESS: END FMT 2 LIST

TYPE-OUT:

0000-UP —27 0001- » —36 0002—DN —25 0003-FMT—42 0004- 2 —02 0028-SFL—54 0029—S/R—77 0030-PNT—45 0031-CLR—20 0032—S/R—77 0033—END—46

KEY CODES AND MNEMONICS

All of the keys of the keyboard input unit and their associated octal keycodes and mnemonics are listed in Table D below. Every key has only one keycode and only one mnemonic (if it has a mnemonic), regardless of how many different functions it may be used to perform. The keycodes for the FLOAT, FIX (), RUN, PRGM, KEY LOG, LIST, LOAD, RECORD, BACK STEP, AND STEP PRGM keys are applied to the CPU in seven-bit binary form. Since these keycodes are used only to control the mode of the calculator, are not programmable, and are never printed out by the output printer unit, they have no associated mnemonic. All of the remaining keycodes are applied to the CPU in sixbit binary form, are programmable, and have a mnemonic that may be printed out by the output printer unit.

3,859,635

TABLE D

<td> KEY</td><td> KEY CODE</td><td> MNEMONIC</td><td> KEY</td><td> KEY CODE</td><td> MNEMONIC</td>

<td> 1</td><td> 01</td><td> 1</td><td> PRINT SPACE</td><td> 45</td><td> PNT</td>

<td> 3</td><td> 03</td><td> 3</td><td> CONTINUE</td><td> 47</td><td> CNT</td>

<td> 5</td><td> 05</td><td> 5</td><td> LABEL</td><td> 51</td><td> LBL</td>

<td> a</td><td> 13</td><td> a</td><td> PAUSE</td><td> 57</td><td> PSE</td>

<td> CLEAR</td><td> 20</td><td> CLR</td><td> int x</td><td> 64</td><td> INT</td>

<td rowspan="2"> rollT</td><td> 21</td><td></td><td> 1</td><td> 65</td><td> I</td>

<td> ENTER EXP</td><td> 26</td><td> EEX</td><td> L</td><td> 72</td><td> L</td>

<td> INDIRECT</td><td> 31</td><td> IND</td><td> J</td><td> 75</td><td> J</td>

<td> 4-</td><td> 33</td><td> +</td><td> SUB RETURN</td><td> 77</td><td> S/R</td>

<td> —</td><td> 34</td><td> —</td><td> RECORD</td><td> 102</td><td></td>

<td> CLEAR x</td><td> 37</td><td> CLX</td><td> KEY LOG</td><td> 105</td><td></td>

<td> IF FLAG</td><td> 43</td><td> IFG</td><td> FLOAT</td><td> 1 10</td><td></td>

PROCESSING KEYCODES

The manner in which keycodes entered into the CPU from the keyboard input unit or from the program storage section of the memory unit are processed is shown and described in the keycode processing flow chart of FIG. 13. Once the calculator is turned on, it operates in the display routine until a key is depressed. If a FLOAT, FIX (), RUN, PRGM, KEY LOG, LIST, LOAD, RECORD, BACK STEP, or STEP PRGM key (each having a seven-bit keycode) is depressed, the calculator operates in a director routine to determine which of these keys was depressed and thereupon selects the routine for performing the function required by that key. Upon completion of the selected routine, the calculator reverts to operation in the display routine.

If any other key (each having a six-bit keycode), except the CONTINUE key, is depressed and the PRGM key has not been depressed or has been followed by the RUN key, the calculator operates in the interpreter routine to determine which six-bit keycode it has received and to select the appropriate routine for performing the function required by that six-bit keycode. Unpon completion of the selected routine the calculator reverts to operation in the display routine.

If the CONTINUE key is depressed and the PRGM key has not been depressed or has been followed by the RUN key, the calculator operates in a fetch routine to sequentially fetch keycodes, as designated by the user program counter, from the program storage section of the RWM. Each fetched keycode is interpreted and the routine for performing the function required thereby selected in the same manner as if the fetched keycode had been received from the keyboard input unit. However, upon completion of the selected routine the calculator reverts to the fetch routine unless the fetched keycode was a STOP, END, or PAUSE (if the execution of the PAUSE is immediately followed by depression of a key), in which cases the calculator reverts to operation in the display routine.

If any key having a six-bit keycode is depressed and the PRGM key has been depressed and has not been followed by the RUN key, the calculator operates in a store routine to store the six-bit keycode received from the keyboard input unit as a program step in the program storage section of the RWM. Upon completion of this storage operation the calculator reverts to operation in the display routine.

If the KEY LOG key has been depressed and has not been followed by the RUN key or the PRGM key, the calculator also prints out each six-bit keycode received from the keyboard input unit in any of the abovementioned cases.

The display routine, the director routine, the interpreter routine, the routines for performing the various functions required by the six-bit and seven-bit keycodes, and other routines used by the calculator are shown and described in FIGS. 14-135.

BASIC INSTRUCTION SET

Every routine and subroutine of the calculator comprises a sequence of one or more of 71 basic 16 -bit instructions listed below these 71 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 IMP, JSM, and the skip instructions in which the skip condition has been met. The M-register is 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 0 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 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 restriction for direct register reference of A or B.

3,859,635

IDA m, 1 Add to A. The contents of the addressed memory location m are added (binary add) to contents of the A register, and the sum remains in the A register. If carry occurs from bit 15, the E register is loaded with 0001, otherwise E is left unchanged.

iDB m, I Add to B. Otherwise identical to ADA.

TA m, 1 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 instruction 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.

?PB m, 1 Compare to B and skip is unequal. Otherwise identical to CPA.

,DA m, I Load into A. The A register is loaded with the contents of the addressed memory location.

,DB m, 1 Load into B. The B register is loaded with the contents of the addressed memory location.

TA 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.

TB m, I Store B. Otherwise identical to STA.

OR 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.

SZ 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 footnote on restrictions.

lND m, Logical “AND” to A. The contents of the addressed location are combined with the contents of the A register as an “AND” logic operation.

>SZ 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 with the A or B register is limited to indirect reference; see footnote on restrictions.

SM 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 arid P are loaded with the referenced memory location.

MP 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.

ihift-Rotate Group

The eight shift-rotate instructions all contain a 4 bit ariable shift field <n> which permits a shift of one through 16 bits; that is 1 « n s 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— 1, except for SAL and SBL, in which cases the complemen5 tary code for η— 1 is used.

AAR 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+1 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.

RAR n Rotate A right. The A register is rotated right n places, with bit 0 rotated around to bit 15.

RBR n Rotate B right. Otherwise identical to RAR.

Alter-Skip Group

The 16 alter-skip instructions all contain a 5-bit vari20 able 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 for25 ward 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 interpreted as a ONE.

<td> <n>=O</td><td> CODE=00000</td><td> REPEAT SAME INSTRUCTION</td>

<td> <n>=l</td><td> CODE=00001</td><td> DO NEXT INSTRUCTION</td>

<td> <n>=2</td><td> CODE=00010</td><td> SKIP ONE INSTRUCTION</td>

<td> <n>=15</td><td> CODE=01I11</td><td> ADD 15 TO ADDRESS</td>

<td> <n>—1</td><td> CODE=11111</td><td> DO PREVIOUS INSTRUCTION</td>

<td> <«>=-16</td><td> CODE=10000</td><td> SUBTRACT 16 FROM ADDRESS</td>

<td> <«>=nothing</td><td> CODE=00001</td><td> DO NEXT INSTRUCTION</td>

35 The alter bits consist of bits 10 and bits 4. The letter <5> 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 Skip 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 SZA.

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 B zero; then increment B. Otherwise identical to SIA.

RIA n Skip if A not zero; then increment A. This is a “Reverse Sense” skip of SIA.

RIB n Skip if B not zero; then increment B. Otherwise identical to RIA.

SLA n, S/C Skip if Least Significant bit of A is zero. If the least significant bit (bit 0) 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.

SLB n, S/C Skip if Least Significant bit of B is zero. Otherwise identical to SLA.

SAM n, S/C Skip if A is Minus. If the sign bit (bit 15) of the

A register is a ONE, skip to location defined by n. If cither 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 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 0 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.

3,859,635

-Continued

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 normal manner. The A register is left unchanged unless 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 control.

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 0 or 1 will actually refer to locations 0 or 1 in Read Only Memory.

Input/Output Group (IOG)

The 11 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. Clear 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=00 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.

SC—01 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.

<td> SC=04</td><td> 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.</td>

<td>5 SC=08</td><td> 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.</td>

<td> SC=16</td><td> 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.</td>

<td> 10</td><td> register from the I/O register. H/C allows holding or clearing the flag flop after LI* has been executed.</td>

<td> LI* <00></td><td> The least significant 8 bits of the I/O register are loaded into the most significant locations in the A or B register.</td>

<td> MI* <01 > H/C</td><td> Merge into A or B. Merge 16 bits of data into the A/B register from the I/O register by “inclusive or”.</td>

<td> 15</td><td> H/C allows holding or clearing the flag flop after Ml* has been executed.</td>

<td> MI* <00></td><td> The least significant 8 bits of the I/O register are combined by inclusive 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.</td>

MAC Instruction Group

A total of 16 MAC instructions are available for operation

a. with the whole floating-point data (like transfer, 25 shifts, etc), or

b. with two floating-point data words to speed up digit and word loops in arithmetic routines.

NOTE:

<A0-3> means: contents of A-register bit 0 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 35 located in R/W memory on addresses 1754 to

1757 (octal)

Df means: mantissas i-th decimal digit;

most significant digit is DI least significant digit is D12 decimal point is located between DI and D2 Every operation with mantissa means BCD-coded decimal 40 operation.

RET Return 16-bit-number 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>, , <E> unchanged.

MOV Move overflow The Contents of E-register is transferred to Ae_3. Rest of A-register and E-register are filled by zeros. 45 unchanged.

CLR Clear a floating-point data register in R/W memory on location <A> ZERO—><A>, <A>+1, <A>+2, <A>+3 <A>, >B>, <E> unchanged

XFR Floating-point data transfer in R/W memory from location <A> to location

1 Routine starts with exponent word transfer.

Data on location <A> is unchanged.

<E> unchanged.

MRX ARI mantissa is shifted to right n-times. Exponent word remains unchanged.

<Bo-a> = n (binary coded) 1st shift: <A»_3>—*Di; D<-->D<+i; Dtl is lost 55 Jth shift: Θ —> Dt; D?—>DI+i; D13 is lost nth shift: (9 —> Dj! Dj—» D<+i; Du —> A·»-» θ -* E, A4-iS each shift: <B0_3> — 1 Be_3 <B4-u> unchanged

MRY AR2 mantissa is shifted to right n-times. Otherwise identical to MRX

MLS AR2 mantissa is shifted to left once. Exponent word remains unchanged.

e -> D)t; D( -> Di-G D, A<_3 unchanged

DRS AR 1 mantissa is shifted to right once Exponent word remains unchanged —* Dii Dj —*► Dj+I; Du —> A·-] 65 ZERO —> E and A4_1S unchanged

DLS ARI mantissa is shifted to left once. Exponent word remains unchanged.

<Ao~Dl3; Dj —* Df_|] D< ~~1► Ao—3

3,859,635

FXA

FMP

FDV — Continued cmx e -» E, a,_i5 unchanged Fixed-point addition Mantissas in pseudo-registers AR2 and ARI are added together and result is placed into AR2. Both exponent <words remain unchanged. When overflow occurs “0001 ” is set into E-reg., in opposite case <E> will be zero.

<AR2> + <AR1> 4- DC —* AR2 DC = 0 if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution , <ARI> unchanged Fast multiply Mantissas in pseudo-registers AR2 and ARI are added together <B0_3>-times and result is placed into AR2. Total decimal overflow is placed to A0-3. Both ex- ponent words remain unchanged.

<AR2> + <AR1> * <B0 3>+DC -> AR2 DC = 0 if <E> was 0000 before routine execution 15

DC == 1 if <E> was 1111 before routine execution ZERO -► E, A<_15 <AR1> unchanged Fast divide Mantissas in pseudo-registers AR2 and ARI are added, together so many times until first decimal overflow occurs. Result is placed into AR2. Both exponent words remain 20 unchanged. Each addition without overflow causes 4-1 increment of .

1st addition: <AR2> 4- <AR1> = DC —► AR2 DC = 0 if <E> was 0000 before routine execution DC = 1 if <E> was 1111 before routine execution 25 next additions: <AR2>4-<AR I > —> AR2 ZERO —► E <AR1> unchanged

10’s complement of ARI mantissa is placed back to ARI, and ZERO is set into E-register. Exponent word remains unchanged unchanged 10’s complement of AR2 mantissa. Otherwise identical to CMY Mantissa decimal increment.

Mantissa on location <A> is incremented by decimal ONE on Dlt level, result is placed back 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.

unchanged.

NRM Normalization

Mantissa in pseudo-register AR2 is rotated to the left to get Dj 0 0. Number of these 4-bit left shifts is stored in Bo-3 in binary form (<B4..|S>=O) when <Bt..3>H),l,2..... 11 (dcc)C>, <E>=0000

When <Bo_3>=1 2 (dec)M>mantissa is zero, and <E>= 0001 Exponent word remains unchanged <A>unchanged.

The binary codes of all of the above instructions are listed in 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 page (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

<td> GROUP</td><td> OCTAL</td><td> INSTR</td><td> 15</td><td> 14 13 12</td><td> 11 10</td><td> 987654321</td><td> 0</td>

<td> MEMORY</td><td> . -o—-</td><td> AD*</td><td> D/I</td><td> 0 0 0</td><td> A/B Z/C</td><td> «- MEMORY</td><td></td>

<td></td><td></td><td></td><td></td><td></td><td></td><td> ADDRESS</td><td></td>

<td> REFERENCE</td><td> -I--..</td><td> CP*</td><td> D/I</td><td> 0 0 1</td><td> A/B Z/C</td><td></td><td></td>

<td> GROUP</td><td> -2--</td><td> LD*</td><td> D/I</td><td> 0 I 0</td><td> A/B Z/C</td><td></td><td></td>

<td> SHIFT-</td><td> 07—0</td><td> A*R</td><td> 0</td><td> 1 1 1</td><td> A/B -</td><td colspan="2"> SHIFT - 0 0 0</td>

<td> ROTATE</td><td> 07—2</td><td> S*R</td><td> 0</td><td> I 1 1</td><td> A/B —</td><td colspan="2"> CODE -001</td>

<td> GROUP</td><td> 07—4</td><td> S*L</td><td> 0</td><td> 111</td><td> A/B -</td><td> U - 0</td><td> 1 0</td>

<td> ALTER-</td><td> 07—0</td><td> SZ*</td><td> 0</td><td> 1 11</td><td> A/B O</td><td> SKIP 0 1</td><td> 0 0</td>

<td> GROUP</td><td> 07—0</td><td> SI*</td><td> 0</td><td> 111</td><td> A/B 0</td><td> 0 1 1 0</td><td> 0 0</td>

<td> REGISTER</td><td> 07-17</td><td> ADA</td><td> 0</td><td> 1 1 1</td><td> A/B -</td><td> 1 D/10 0 0 0 1</td><td> 1 1</td>

<td> REFERENCE</td><td> 07-37</td><td> ADB</td><td> 0</td><td> ill</td><td> A/B -</td><td> I D/I 0 0 0 1 1</td><td> 1 1</td>

<td> GROUP</td><td> 07-57</td><td> CPA</td><td> 0</td><td> 1 1 1</td><td> A/B -</td><td> 1 D/I 0 0 10 1</td><td> 1 1</td>

3,859,635

CODING TABLE-Continued

<td> GROUP</td><td> OCTAL</td><td> INSTR</td><td> 15</td><td> 14 13 12</td><td> 11</td><td> 10</td><td> 9876543210</td>

<td> EXECUTE</td><td> 070036</td><td> DMA</td><td> 0</td><td> I 1 I</td><td> 0</td><td></td><td> 0 1111 0</td>

<td> INPUT OUTPUT GROUP</td><td> 07-076 1727- 1737— 17-717-5— 17-5-17-6— 17-1 — 17-2— 17-0-</td><td> TC* STF CLF SFC SFS GLC STC OT* LI* MI*</td><td> 0 1 1 1 1 I I I 1 1</td><td> 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1</td><td> A/B A/B A/B A/B</td><td> 1 1 1 1 1 1 1 1 1</td><td> 11111 0 0 1111 SELECT <— —> 11111 CODE H/C 1 1 1 0 H/C 1 0 1 0 H/C 1 0 1 1 H/C 110 0 H/C 0 0 1 1 H/C 0 1 0 1 H/C 0 0 0 1</td>

<td> GROUP</td><td> 170002</td><td> MOV</td><td> 1</td><td> 1 1 1</td><td> 0</td><td> 0</td><td> 0000 00001 0</td>

DETAILED LISTING OF ROUTINES AND SUBROUTINES OF BASIC INSTRUCTIONS

A complete listing of all of the routines and subrou- 50 tines of basic instructions employed by the calculator and of all of the constants employed by these routines and subroutines is given below. All of these routines, subroutines, and constants are stored either in the basic ROM or in the plug-in ROM modules employed there- 55 with. Each page of each different group of routines, subroutines, and constants is numbered at the top lefthand corner of the page, and each line of each page is separately numbered in the first column from the lefthand side of the page. This facilitates reference to different parts of the listing. Descriptive 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 instruction of each routine or subroutine and each constant 65 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 given in the fourth column from the lefthand side of the page for most of the constants and many of the instructions to facilitate references to these constants and instructions and associated instructions. The mnemonic code of each basic instruction and of each pseudo instruction is given in the fifth column from the left-hand side of the page. As noted above, each basic instruction is employed as a step in a routine or subroutine of one or more basic instructions and therefore has an address in the ROM. Psuedo 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

3,859,635 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”.

CONSTANT AREA INITIATOR CIN

<td></td><td> 3/-.-:2</td><td> 0/0047</td><td> CONTK</td><td> OCT</td><td> 47</td>

<td> .1331</td><td> .:++</td><td> 330.000</td><td> NUMBE</td><td> PSS</td><td> 1</td>

<td> 3333</td><td> /3(-40</td><td> 03 0',’ 30</td><td> RINCl</td><td> USS</td><td> 1</td>

<td> /10 4</td><td> k .-10 3</td><td> (+'(+((.·<,</td><td> XADOP</td><td> OCT</td><td> 4</td>

<td colspan="5"> CONSTANT AREA IN ITIATOR</td><td rowspan="2"> CIN</td>

<td></td><td colspan="4"> — Continued</td>

<td> 0019</td><td> 30022</td><td> «03047</td><td> CONTK</td><td> OCT</td><td> 47</td>

<td> 3033</td><td> 00040</td><td> 003330</td><td> RINCl</td><td> 855</td><td> 1</td>

<td> 2.049 /050</td><td> C0051 //051</td><td> 0 0 0 30 0</td><td> NIMCR</td><td> ORR HSS</td><td> 1</td>

3,859,635

<td></td><td colspan="2"> — Continued</td><td></td><td></td><td> US ι K</td><td> 031710</td>

<td> (</td><td> .OiiSTAN f AREA</td><td colspan="2"> IM IIATOR</td><td> CIM</td><td> USTKL</td><td> 000112</td>

<td> 00 73</td><td> 00376 000000</td><td> EEXA</td><td> BSS</td><td> 1</td><td> MINUS</td><td> 004263</td>

<td> 0085</td><td> 00112 001707</td><td> USTKL</td><td> OCT</td><td> 1707</td><td>15 D4</td><td> 030003</td>

<td> * NO</td><td> ERRORS*</td><td></td><td></td><td></td><td> y 4</td><td> 030054</td>

<td> ;:-US</td><td> 005135</td><td></td><td></td><td></td><td> 30 TtMpl</td><td> 001726</td>

<td> LABEL.</td><td> 035144</td><td></td><td></td><td></td><td> TEMP?</td><td> 001727</td>

<td> LrlLF</td><td> 005165</td><td></td><td></td><td></td><td> ADDRC</td><td> 001720</td>

<td> SuHPP</td><td> 035213</td><td></td><td></td><td></td><td> MASK</td><td> 000101</td>

<td> G S 8</td><td> 005222</td><td></td><td></td><td></td><td> IBiJF</td><td> 001775</td>

<td> GINCI</td><td> 005232</td><td></td><td></td><td></td><td> DI SP</td><td> 000017</td>

<td> S-.’F</td><td> 301721</td><td></td><td></td><td></td><td> * NO</td><td> ERRORS*</td>

programmable option prop

0001 ASMH , A · fl ,L , T ύι/33*ΤΗΕ FOLLWING ROUTINES PERFORM THE '4*Pf<0GRAM FUNCTIONS

i.W05* 16*

0007 04775 (JRG 47 758 .'/<0«* ·

0009*THE FOLLWING SUBROUTINES EXECUTE THE IF COM’''·. 3010*

<td> 0012*</td><td> ROUND .</td><td> X AND Y</td><td></td><td></td><td></td>

<td> ύ 014</td><td> 04776</td><td> 170004</td><td> XFR</td><td></td><td> TRANSFER M.UE [o AR2</td>

<td> 0015</td><td> 04777</td><td> 070075</td><td> SEC</td><td> *+l,C</td><td> CLEAR E</td>

<td> '3019</td><td> 05003</td><td> 001754</td><td> ADA</td><td> AR2</td><td> INCREMENT THE EXP</td>

3,859,635

100 — Continued

<td></td><td colspan="2"> P 1? 0(</td><td></td><td colspan="2"> ABLE OPTION</td><td colspan="2"> PROP</td>

<td> 0023</td><td> 05007</td><td> 174470</td><td></td><td> MRY</td><td></td><td> PUSH IN THE 0</td><td> vERFLOE</td>

<td> 0024</td><td> 0 5010</td><td> 021757</td><td></td><td> LDA</td><td> AR2+3</td><td> CLEAN THE GARD</td><td> 0 15 I TS</td>

<td> 0031</td><td> 0 5016</td><td> 170000</td><td></td><td> CLR</td><td></td><td> CLEAH Art 1</td><td></td>

<td> Ιόΐί935</td><td> 05022</td><td> 062775</td><td></td><td> JSM</td><td> RND</td><td> ROUND Y</td><td></td>

<td> 00 37</td><td> 05024</td><td> 170004</td><td></td><td> XFR</td><td></td><td> TRANSFER THE NE'i</td><td> •MLUE- OF Y</td>

<td> 0W40</td><td> 05027</td><td> 170004</td><td></td><td> XFR</td><td></td><td> PUT THE VALUE IN</td><td> rGOAί ING TEMPORARY</td>

<td> 0042</td><td> 05031</td><td> 062775</td><td></td><td> JSM</td><td> RND</td><td> ROUND X</td><td></td>

<td> 0044</td><td> 2 5033</td><td> 170004</td><td></td><td> XFR</td><td></td><td> PUT ROUNDED VALU</td><td> ;·. -’AC< IN x</td>

<td> 0047</td><td> 050.36</td><td> 062263</td><td></td><td> JSM</td><td> MINUS .</td><td> SUBTRACT X EG</td><td> OH Y</td>

<td> 0048</td><td> 05037</td><td> 021734</td><td></td><td> LDA</td><td> FT</td><td> LOAD THR RESU</td><td> LI’S EXPONENT</td>

<td> 0049</td><td> 0-5040</td><td> 025725</td><td></td><td> LDB</td><td> KBUF</td><td> RETREIVE THE</td><td> ! -ΊΓ KFY</td>

<td> 0 050</td><td> 05041</td><td> 074151</td><td></td><td> SLB</td><td> *♦3</td><td> X>Y CONDITION</td><td> -·« .</td>

<td> 0052</td><td> 25043</td><td> 067070</td><td></td><td> JMP</td><td> GOTO</td><td> PROCESS THU/.</td><td> GG'i/iflON</td>

<td> 0055</td><td> 0 5046</td><td> 070131</td><td></td><td> SLA</td><td> * + 2,C</td><td> YEStPOSSlBl .!</td><td> !!!!--</td>

<td> 0056</td><td> 0504'7</td><td> 067055</td><td></td><td> JMP</td><td> INCR</td><td> FALSE,ADJU5i</td><td> COUNTER</td>

<td> 1 · 1 M</td><td> -:·/</td><td> 06 /055</td><td></td><td> JMP</td><td> I NCR</td><td> PROCESS FALSE</td><td> CONDITION</td>

<td> . '62</td><td> ’<·»· 3 )</td><td> vi 2 S 7 w 1</td><td> INCH</td><td> LDB ί</td><td> >CN 1</td><td colspan="2"> LOAD THE PROG COUNTER</td>

<td> /265</td><td> 05060</td><td> 035720</td><td></td><td> STH</td><td> 172013</td><td colspan="2"> CLEAR THE CHANGE SIGN FLAG</td>

.1068» IF FLAG

,..069*

<td> -:0 70</td><td> 05362</td><td> 021776 IFLG</td><td> LDA PMODE</td><td> LOAD THE STATUS WORD</td>

<td> 0 371</td><td> 0 5063</td><td> 053236</td><td> AND FLMS</td><td> isolate The flag bit</td>

<td> 0 73</td><td> 4 5 0 65</td><td> 021776</td><td> LDA PMODE</td><td> RE-LOAD THE STATUS WORD</td>

<td> i.074</td><td> 05066</td><td> 050025</td><td> AND CLFM</td><td> CLEAR THE FLAG</td>

<td> 4075</td><td> 05067</td><td> 031776</td><td> STA PMODE</td><td> STORE THE NEW STATUS</td>

2077«

4078* GO TO PROCESSING

J 079*

2380‘THF GO TO IS PROCESSED USING

0W81*TUO ENTRIES. THE 1ST ENTRY

00H2«ACCFPTS THE GOTO KEYSTROKE.

2083*ThE 2ND ENTRY ACCEPTS THE 1ST,2ND, AND 3RD DIGIT

085* 3086*.

2087* FIRST ENTRY

008Θ*

0089 05070 027232 GOTO LOB GINCI SET THE NEXT

0290 25071 035723 GTOR STB RFLG ENTRY'S ADDRESS

2091 05072 020054 LDA M4 LOAD -4

3,859,635

102

101 — Continued

<td rowspan="2"> 3.592</td><td rowspan="2"> 05073</td><td rowspan="2"> PROG 031720</td><td colspan="3"> 1- .ΛΗΜΛΒΙ.Ε OPTION</td><td rowspan="2"> PROP INITIALIZE THE DIGIT COUNTER</td>

<td colspan="2"> STA</td><td> ADORC</td>

<td></td><td> 050 74</td><td> 074742</td><td></td><td> SBR</td><td> 16</td><td> CLEAR THE RESULT REGISTER</td>

<td> 3.597</td><td> 05100</td><td> 170402</td><td></td><td> RET</td><td></td><td> RETURN</td>

<td colspan="4"> ,;099»NCN-FIRST ENTRY</td><td></td><td></td><td></td>

<td> 0 1.)0</td><td> 05101</td><td> 067110</td><td></td><td> JMP</td><td> GT03</td><td> TERMINATION EXIT</td>

<td> 2102</td><td> 25102</td><td> 021725</td><td> GT02</td><td> LOA</td><td> KBUF</td><td> LOAD THE INPUT KEY</td>

<td> -.103</td><td> 05 1 0 3</td><td> 062176</td><td></td><td> JSM</td><td> MDEC</td><td> FIND THE BINARY EQUIVALENT</td>

<td> 1 04</td><td> 05124</td><td> 045720</td><td></td><td> ISZ</td><td> AODRC</td><td> 3 DIGITS IN?</td>

<td colspan="4"> 4108«EXECUTION ENTRY</td><td></td><td></td><td></td>

<td> .,110</td><td> 25106</td><td> 031722</td><td></td><td> STA</td><td> numf</td><td> RESET THE NUMBER FLAG</td>

<td> „11!</td><td> C 510 7</td><td> .:45721</td><td></td><td> IS?</td><td> PC, NT</td><td> INCREMENT THE PROG COUNTER</td>

<td> .: i t.j</td><td> /.5) I 0</td><td> 055701</td><td> G TO )</td><td> OS?</td><td> PC. NT</td><td> DECREMENT THE PROG COUNTER</td>

<td> ..1 I I</td><td> 05 1 I J</td><td> 4 2'· 7 17</td><td></td><td> 1.0,1</td><td> ATMP</td><td> LOAD THE ADDRESS VALUE</td>

<td> 1 1 ></td><td> ✓ 5112</td><td> .:/-,70 7</td><td></td><td> Al !d</td><td> KHAS</td><td> FIND ABSOLUTE ADDRESS</td>

<td> ,.11'.</td><td> 2 5] I )</td><td> .-45721</td><td></td><td> ISZ</td><td> 51.1 HF</td><td> SUBROUTINE JUMP?</td>

<td> :, 11 ·„</td><td> 2 5 1 1 4</td><td> 165721</td><td></td><td> JMP</td><td> SURF,I</td><td> YES.CHHANNEL TO GOSUB</td>

<td> ✓ 1 1 7.</td><td> 0 5 115</td><td> /)7 4 I 17</td><td> SGT</td><td colspan="2"> LOa B</td><td> TAKE A COPY OF THE ADDRESS</td>

<td> 118</td><td> 0 5116</td><td> 331720</td><td></td><td> STA</td><td> ADORC</td><td> RESET THE ADDRESS COUNTER</td>

<td> ., 1 1 9</td><td> 0 5117</td><td> 00'0055</td><td></td><td> ADA 1</td><td> MAX</td><td> CHECK IF OUT OF RANGE</td>

<td> 3 1 2 4</td><td> 05120</td><td> O 7 0352</td><td></td><td> SAP</td><td> *♦7</td><td> SKIP IF WITHIN RANGE</td>

<td> 0121</td><td> 25121</td><td> 120103</td><td></td><td> LOA 1</td><td> lXCF.I</td><td> LOAD THE EXECUTE FLAG</td>

<td> 2 1 22</td><td> 05122</td><td> 070210</td><td></td><td> SZA</td><td> *♦4</td><td> SKIP IF IN CALCULATOR MODE</td>

<td> „123</td><td> 25123</td><td> 225701</td><td></td><td> LDB</td><td> PCNT</td><td> LOAD THE PROF COUNTER</td>

<td> 2 124</td><td> 0 5124</td><td> 004023</td><td></td><td> ADB 1</td><td> -15</td><td> BACK UP THE PROG COUNTER</td>

<td> 2 126</td><td> 05126</td><td> 066110</td><td></td><td> JMP</td><td> EMST</td><td> LIGHT THE ERROR LIGHT AND STOP</td>

<td> 2 122</td><td> 05130</td><td> 124103</td><td></td><td> LOH</td><td> EXCF.I</td><td> LOAD THE EXECUTION FLAG</td>

<td> ¢:129</td><td> 25131</td><td> 076110</td><td></td><td> RZB</td><td> * + 2</td><td> SKIP IF EXECUTING A PROG</td>

<td> i 1 30</td><td> 05132</td><td> 266122</td><td></td><td> JMP</td><td> 4122B</td><td> terminate</td>

<td> 01 31</td><td> 25133</td><td> 0.35722</td><td></td><td> STB</td><td> NUMF</td><td> RESET THE NUMBER FLAG</td>

<td> 11132</td><td> 05134</td><td> 064167</td><td></td><td> JMP</td><td> IM IT</td><td> RETURN</td>

<td colspan="2"> 0,1.34»G0SUR 1</td><td colspan="2"> PROCESSING</td><td></td><td></td><td></td>

<td> .:135</td><td> 05135</td><td> ¢)21710</td><td> GSU.B</td><td> LOA</td><td> USTK</td><td> LOAD THE U STACK POINTER</td>

<td> 0 136</td><td> 05137,</td><td> 010112</td><td></td><td> CPA</td><td> USTKL</td><td> UPPER LIMIT REACHED</td>

<td> 0137</td><td> 05137</td><td> 066110</td><td></td><td> JMP</td><td> EMST</td><td> LIGHT THE ERROR LIGHT ANO STOP</td>

<td> Cl 30</td><td> 05140</td><td> 021701</td><td></td><td> LOA</td><td> PCNT</td><td> LOAD VALUE OF PROG COUNT</td>

<td> ✓ 139</td><td> 05 141</td><td> 131710</td><td></td><td> STA</td><td> USTK,I</td><td> REMEMBER THE RETURN AOOR</td>

<td> i h ✓</td><td> ✓ 5 14 2</td><td> W4 -5 1 1 U</td><td></td><td> 1 o /.</td><td> U3 1 l\</td><td> xiwnr.i’lcm inc. u ο i ml/TX</td>

<td> 3 141</td><td> 05143</td><td> 067115</td><td></td><td> JMP</td><td> SGT</td><td> PERFORM A SIMPLE GOTO</td>

<td colspan="2"> 0144«GC ΤΟ 1</td><td> LABEL ♦</td><td colspan="4"> 4ND LABEL KEY PROCESSING</td>

<td> 0 1 7</td><td> 05144</td><td> 023232</td><td> LABEL</td><td> LOA</td><td> G INC1</td><td></td>

<td> 2 14 0</td><td> 25145</td><td> 011723</td><td></td><td> CPA</td><td> RFLG</td><td> GOTO PRECEEDED?</td>

<td> 0 153</td><td> 05 152</td><td> 024060</td><td></td><td> LOB</td><td> MPWD</td><td> LOAD THE VALUE OF MAX MEMORY</td>

<td> 2154</td><td> 0 515.3</td><td> 035726</td><td></td><td> STB</td><td> TEMPI</td><td> STORE IN TEMPORARY</td>

<td> v 155</td><td> 25154</td><td> 025707</td><td></td><td> LOB</td><td> KBAS</td><td> LOAD START OF USER AREA</td>

<td> /.156</td><td> 05155</td><td> 035727</td><td></td><td> STB</td><td> TEMP2</td><td> RESET A LOCAL PROG COUNT</td>

<td> .’,159«</td><td> SEARCH</td><td> LOOP</td><td></td><td></td><td></td><td></td>

<td> ✓ 161</td><td> 05157</td><td> 115727</td><td> SUCH</td><td> CPB</td><td> TEMP2,</td><td> I IS CURRENT KEY A LABEL?</td>

<td> 162</td><td> 25160</td><td> 0,6 7165</td><td></td><td> JMP</td><td> LBLF</td><td> YES.STOP THE SEARCH</td>

<td> /, 163</td><td> 25161</td><td> 045727</td><td> SRC Hl</td><td> 15 Z</td><td> TEMP?</td><td> POINT TO THE NEXT KEY</td>

<td> < 164</td><td> 05162</td><td> 045726</td><td></td><td> ISZ</td><td> TEMPI</td><td> MEMORY EXHAUSTED?</td>

<td> ¢.166</td><td> 0517,4</td><td> 0661 10</td><td></td><td> JMP</td><td> EMST</td><td> LIGHT THE ERROR LIGHT A ND STOP</td>

3,859,635

103

104 — Continued

PL’L’LPAMMAJl OP ϊ ΙΟΝ

PROP

·.' 10 7 , I ;',·« l_ ΛI ;e- I. found 0 t 6 9 *

<td> i. i ? 3 : i 71</td><td> 25 165 2 5 i 66</td><td> 0.55 727 LHLF 125727</td><td> LiJB</td><td> TF MP? TEMP? , I</td><td> POINT TO THE PRECEEDING KEY LOAD THE PRECEEDING KEY</td>

<td> 0 173</td><td> 251721</td><td> 045727</td><td> ISZ</td><td> TEMP?</td><td> POINT TO THE LABEL’S NAME</td>

<td> 0 1 /4</td><td> 0 517 1</td><td> 014100</td><td> CPB</td><td> GSBK</td><td> GOSUH/RET PRECEEDED?</td>

<td> 2 1 75</td><td> 25 172</td><td> 067204</td><td> JMP</td><td> GSBP</td><td> YES,MAY BE ALRIGHT</td>

<td> '2 176</td><td> 25173</td><td> 014061 LBLF2</td><td> CPB</td><td> GTOK</td><td> GOTO PRECEEDED?</td>

<td> 2177</td><td> 25174</td><td> 067156</td><td> JMP</td><td> SRCH-1</td><td> YES.IGNORE LABEL KEY</td>

<td> fcl 78</td><td> 25175</td><td> 125727 LHLF1</td><td> LDB</td><td> TEMP?,I</td><td> LOAD THE LABEL’S NAME</td>

<td> 2 180</td><td> 25177</td><td> 070077</td><td> CPB</td><td> Λ</td><td> IS IT THE ONE SEARCHED FOR?</td>

<td> «181</td><td> 2 5200</td><td> 067202</td><td> JMP</td><td> «♦2</td><td> YES,TERMINATE</td>

<td> 2 18?</td><td> 2 5201</td><td> 067156</td><td> JMP</td><td> SRCH-1</td><td> RETURN TO THE SEARCH LOOP</td>

<td> 2 183</td><td> 25202</td><td> 025727</td><td> LDB</td><td> TEMP?</td><td> LOAD VALUE OF LOCAL PROG COUNT</td>

<td> 2184</td><td> 25203</td><td> 0671 13</td><td> JMP</td><td> SGT-?</td><td> RETURN TO THE GOTO</td>

<td> 2 186</td><td> 25204</td><td> 025727 GSBP</td><td> LDB</td><td> TEMP?</td><td> LOAD THE PROG POINTER</td>

<td> 2187</td><td> 2 5205</td><td> 304077</td><td> AD8</td><td> M3</td><td> POINT 2 KEYS BACK</td>

SUB/i-E 1 PROCESSING

<td> 2 1 9 3 *</td><td> THE FOI.</td><td> LOW[NG</td><td> CODE DEALS</td><td> WITH THE</td><td></td>

<td> >198</td><td> 05?! 1</td><td> 0 15 723</td><td> CPB</td><td> RFLG</td><td> GOTO PRECEEDED?</td>

<td> 2 1 19</td><td> 2-521?</td><td> 067222</td><td> JMP</td><td> GSB</td><td> YES,00 A GOSUB</td>

<td> 2 2 0 0</td><td> 2 5213</td><td> '321710</td><td> SUHRR LDA</td><td> US IK</td><td></td>

<td> 0 20 1</td><td> 2 5214</td><td> 01'1046</td><td> CPA</td><td> IJSTKR</td><td> USER STACK EMPTY?</td>

<td> 0 27 2</td><td> 0 5215</td><td> 066110</td><td> JMP</td><td> EMS I L</td><td> IGHT THE ERROR LIGHT AND STOP</td>

<td> 2 20 3</td><td> 05216</td><td> '355710</td><td> DSZ</td><td> USTK</td><td> DECREMENT THE STACK POINTER</td>

<td> 2204</td><td> 25217</td><td> 121710</td><td> LDA</td><td> USTK,I</td><td> LOAD THE RETURN ADDRESS</td>

<td> 020 5</td><td> «5220</td><td> '031701</td><td> STA</td><td> PCNT</td><td> STORE IN THE PROG COUNTER</td>

<td> £ 2 w 6</td><td> 2 5221</td><td> 067230</td><td> JMP</td><td> SFLG+3</td><td> RETURN</td>

<td> 020 8</td><td> «5222</td><td> 323235</td><td> GSB LDA</td><td> GS8A</td><td> GOSUB</td>

<td> 0209</td><td> «5223</td><td> 031721</td><td> STA</td><td> SU8F .</td><td> SET GOSUB TRANSFER IN INDF</td>

<td> £210</td><td> 35224</td><td> 17'0402</td><td> RET</td><td></td><td> RETURN</td>

<td> 0213*</td><td colspan="4"> INTERPRETER TABLE LINKAGE</td><td></td>

<td></td><td></td><td> IF,</td><td> AND SEI FLU</td><td> PROCESS</td><td> ING</td>

«223* '<.2-*4»SET FLAG r‘ ' *·> 1*

<td> . . f , ' ' !</td><td> /. · x p T c;</td><td> 021776 SFLG .</td><td> 1. DA</td><td> PMOOF</td>

<td></td><td> «022 7</td><td> 031776</td><td> STA</td><td> PMODF</td>

0232*LINKAGE AREA

02133*

LOAD THE STATUS WORD

OR WITH FLAG MASK

SET THE CHANGE SIGN FLAG

RE-INITIALIZE

3,859,635

105 106 — Continued

<td rowspan="2"> ¢234 »235 12236</td><td rowspan="2"> 05232 01723 01717</td><td rowspan="2"> 005102</td><td colspan="2"> [F, AND SE</td><td rowspan="2"> I f-LG PROCESSING GT02 17238 17178</td>

<td> GINCI RFLG ATMP</td><td> DEF ECU EOU</td>

<td> »239</td><td> 04110</td><td></td><td> EMST</td><td> EQU</td><td> 41108 EMERGENCY STOP</td>

<td> £)244</td><td> 00046</td><td></td><td> USTKB</td><td colspan="2"> EQU 46B</td>

<td> 0246</td><td> '04750</td><td></td><td> ERROR</td><td> EQU</td><td> 47508</td>

<td> 0247</td><td> 04263</td><td></td><td> MINUS</td><td> EQU</td><td> 42638</td>

<td> 0265</td><td> »1776</td><td></td><td> PMODE</td><td> EOU</td><td> 1 7768</td>

<td> 0275</td><td> 01725</td><td></td><td> KB UP-</td><td> EQU</td><td> 17258 INPUT KEY BUFFER</td>

<td> 0276</td><td> 01726</td><td></td><td> TEMPI</td><td> EQU</td><td> 17268</td>

<td> »280</td><td> 017 20</td><td></td><td> AOOHC</td><td> EQU</td><td> 17?’</td>

<td> »286</td><td> 01775</td><td></td><td> IBIJF</td><td> EQU</td><td> 17758</td>

12295* INTERPRETER TABLE LINKAGE

<td> »302</td><td> ¢2251 005144</td><td> DEF</td><td> LABEL</td>

• NO ERRORS*

IE FLAG

3,859,635

107

108

<td></td><td> 01:4 i) 2 2</td><td></td><td> RBADl</td><td> 000037</td>

<td> YINTO</td><td> 004064</td><td></td><td> XADD</td><td> 000004</td>

<td> INTOY</td><td> 004067</td><td></td><td> YADD</td><td> 000005</td>

<td> ACTRl</td><td> 004074</td><td></td><td> ZADD</td><td> 000006</td>

<td> ACTR4</td><td> 004103</td><td></td><td> ADDRC</td><td> 001716</td>

<td> COMP</td><td> 004166</td><td></td><td> ERROR</td><td> 004750</td>

<td> DPNT</td><td> 000020</td><td></td><td> OPERH</td><td> 000042</td>

<td></td><td></td><td></td><td> * NO</td><td> ERRORS*</td>

<td></td><td> «01</td><td> TRANSFI·1' ''LOCK</td><td> TRB</td><td></td>

<td> i; 0 33*1</td><td> HIS PART</td><td> PERFORMS *11. THE i</td><td colspan="2"> AGISTER TRANSFERS</td>

<td></td><td colspan="2"> VERY ROUTINE IS । ILL') A(</td><td> XCRDINGLY</td><td></td>

2;>05»

0J07*

4)008» LP ROUTINE

<td> RET</td><td> TRAP WORD»RETURN</td>

<td> 0015</td><td> 04003 170004</td><td> XFR</td><td> TRANSFER Y TO Z</td>

<td> 0018</td><td> 04006 170004</td><td> XFR</td><td> TRANSFER X TO Y</td>

<td> 0019</td><td> 04007 035720</td><td> STB CNGS</td><td> RESET THE CHANGE SIGN FLAG</td>

<td> 0020</td><td> 04010 064167</td><td> JMP INIT</td><td> RE-INITIALIZE</td>

<td> 0022*</td><td> INTERPRETER TABLE</td><td> ENTRY FOR UP</td><td></td>

<td> 0026</td><td> 04011</td><td> ORR</td><td> RESTORE THE ORIGIN</td>

0027* (•(^«♦EXECUTION OE REFERENCES TO A ANO 0 B0J0*

<td> 0031» 0032</td><td colspan="2"> 04011 021725 ABETC</td><td colspan="2"> LDA KBUF</td><td> LOAD THE INPUT KEY</td>

<td> 0033</td><td> 04012</td><td> 070704</td><td> SAL</td><td> 2</td><td> MULTIPLY CODE BY 4</td>

<td> 0034</td><td> 04013</td><td> 000037</td><td> ADA</td><td> RBADl</td><td> ADO TO BEGINING OF A6B AREA</td>

<td> 00 35</td><td> 24014</td><td> 024040</td><td> LDB</td><td> RINC1</td><td> LOAD THE ROUITNG VALUE</td>

<td> 0036</td><td> 24015</td><td> 015723</td><td> CP8</td><td> RFLG</td><td> TRANSFER FUNCTION PRECEEDED?</td>

<td> 0038</td><td> 04017</td><td> 066027</td><td> JMP</td><td> ΛΒ1</td><td> NO.TRANSFER A OR 8 INTO X</td>

<td> 0040</td><td> 04021</td><td> 066105</td><td> JMP</td><td> ACTR4+2</td><td> PERFORM THE TRANSFER</td>

3,859,635

109 110 — Continued

TRANSFER BLOCK TRH

<td> 0043»ROLL UP ROUTINE</td><td></td><td></td><td></td>

<td colspan="2"> 0044 04022 020006 ROLUP LOA</td><td> ZAOD</td><td></td>

<td> 2046 04024 170004</td><td> XFR</td><td></td><td> TRANSFER Z TO A TEMPORARY</td>

<td> 0047 04025 062001</td><td> JSM</td><td> UP</td><td> TRANS. Y TO Z. ANO X TO Y</td>

<td> 0050 04030 170004</td><td> XFR</td><td></td><td> TRANSFER Z TO X</td>

<td> 2051 04031 035720</td><td> STB</td><td> CNGS</td><td> RESET THE CHANGE SIGN FLAG</td>

<td> 2052 24032 064167 0053» 0054»</td><td> JMP</td><td> INIT</td><td> RE-INITIALIZE</td>

<td> 0055*INTERPRETER TABLE</td><td> ENTRY 1</td><td colspan="2"> fqR ROLL UP</td>

<td> ’.,'256 0 0222 004022</td><td> DEF</td><td> ROLUP</td><td></td>

<td> /'..SO 040 1 > 1 ,)'O ♦</td><td> ORR</td><td></td><td> RESTORE THE ORIGIN</td>

<td> 0064 04035 170004</td><td> XFR</td><td></td><td> TRANSFER Y TO X</td>

<td> 0067 04049 170004</td><td> XFR</td><td></td><td> TRANFER Z TO Y</td>

<td> 3068 04041 035720</td><td> STB</td><td> CNGS</td><td> RESET THE CHANGE SIGN FLAG</td>

<td> 0069 24042 064167 0070* 2071»</td><td> JMP</td><td> INIT</td><td> RE-INITIALIZE</td>

<td> 0072*INTERPRETER TABLE</td><td> ENTRY</td><td colspan="2"> FOR DOWN</td>

<td> 0076 04043 0077»</td><td> ORR</td><td></td><td> RESTORE THE ORIGIN</td>

<td colspan="2"> 0078*INOIRECT KEY PROCESSING</td><td></td><td></td>

<td> 2079» 0080 04043 021723 NIND</td><td> LDA</td><td> RFLG</td><td> LOAD THE ROUTING REGISTER</td>

<td> 0081 24044 010040</td><td> CPA</td><td> RINCl</td><td> KEY FOLLOWED A TRANSFER KEY?</td>

<td> 0082 04045 055721</td><td> OSZ</td><td> INOF</td><td> DECREMENT THE INDIRECT FLAG</td>

<td> «0Α5*ΓΝtfpwETER ΤΔΗΙ.Ε</td><td> ENTRY 1</td><td colspan="2"> for rkoi rec I</td>

<td> 0090 24050 0091» 0092* 0093*</td><td> ORR</td><td></td><td> RESTORE THE ORIGIN</td>

<td colspan="3"> B098»THE FOLLOWING ROUTINE PERFORMS</td><td> THE OPERATIONS</td>

<td> 0099»NEEDEO FOR X»(). X</td><td> TO ()</td><td> , Y TO</td><td> () » X EXCH Υ»</td>

<td> 0100»AND Y EXCHO. THE</td><td colspan="3"> ROUTINE IS CONSTRUCTED OF</td>

<td> 2101*THRF.E PHASES» THE</td><td> FIRST</td><td colspan="2"> PHASE ACCEPTS THE</td>

<td colspan="3"> 010?»KEY CODE FOR THE COMMANDS*. THE</td><td> SECOND PHASE</td>

<td> 0103»ACCEPTS THE FIRST</td><td> DIGIT</td><td> IN THE</td><td> REGISTER</td>

<td colspan="4"> 0 1'04»REFFRENCE> . THE THIRD PHASE ACCEPTS THE 2ND</td>

<td colspan="3"> fcl05»DlG.IT IN THE REGISTER REFERENCE</td><td> ♦AND PERFORMS THE</td>

<td> 0 106»TRANSFF.R 2 107» 0108« X TO ()» PHASE1 0109 04050 020004 XIMT</td><td> LDA</td><td> XADD</td><td> STORE THE ADDRESS OF THE</td>

<td> 0 110 04051 031715 XINT</td><td> 1 STA</td><td> ATMP</td><td> X REGISTER IN TEMPORARY</td>

<td> 0111 0405? 070742</td><td> SAR</td><td> 16</td><td> INITIALIZE THE RESULT LOCATION</td>

<td> 111</td><td rowspan="3"> BLOCK</td><td> 112</td>

<td></td><td> — Continued</td>

<td> TRANSFER</td><td> 1RB</td>

<td> 0113 04054 020034</td><td> LDA .3</td><td> LOAD DECIMAL 3</td>

<td> 0114 E.4355 .)3 1716 :115 04056 620/,)1</td><td> STA ADDRC LDA Ml</td><td> SIAM! REGISTER DIGIT COUNT</td>

<td> 0117 04060 031721</td><td> STA INDF</td><td> INDICATE ZERO INDIRECT</td>

<td> 0118 04061 024040</td><td> LDH RINC1</td><td> SET THE INCREMENT TO BE</td>

<td> 0119 04062 035723 XINT2 0120 04063 17040? 0121» 0122* 0123* Y TO (), PHASE1 0124*</td><td> STB RFLG RET</td><td> USED IN THE NUMBER RTN</td>

<td> 0125 04064 020005 YINTO</td><td> LDA YADD</td><td> STORE THE ADDRESS OF Y</td>

<td> 0126 04065 066051 0127* 0128* 0129* X*() , PHASE1 0130*</td><td> JMP XINT1</td><td> AND THE INCREMENT</td>

<td> 0131 04066 023004 XFRM</td><td> LDA XADD</td><td> STORE THE X ADDR, ANO FLAG</td>

<td> 0132 04067 072053 INTOY 0133 04070 066051 0134* 0135* 0136* Y EXCH (), PHASE1</td><td> SAP *+l,S JMP XINT1</td><td> AS NEGATIVE FOR LATER USE</td>

<td> 0137 04071 020005 YEXC</td><td> LDA YADD</td><td> STORE THE Y ADDR, AND FLAG</td>

<td> 0138 04072 066067 0139*</td><td> JMP INTOY</td><td> AS NEGATIVE FOR LATER USE</td>

<td colspan="3"> 0141·ϊNitnPRtTtR TAaLE ENTRY FUR ThmNSFER BLOCK 0142* 0143 00223 ORG 223B</td>

<td> 0151 00240 004064 0152 04073</td><td> DEF YINTO ORR</td><td> Y INTO () RESET THE ORIGIN</td>

0154*

0155* PHASE? OF THE TRANSFER ROUTINE

0156*

<td> 0157</td><td> 04073 066101</td><td> JMP ACTR3</td><td> TERMINATION ENTRY</td>

<td> 0158</td><td> 04074 021725 ACTR1</td><td> LDA KBUF</td><td> LOAD THE INPUT KEY</td>

<td> 0159</td><td> 04075 062176</td><td> JSM MDEC</td><td> CONVERT reference to bunary</td>

<td> 0160</td><td> 04076 055716</td><td> DSZ ADDRC</td><td> decrement the address counter</td>

<td> 0161 0162</td><td> 04077 170402 04100 045722</td><td> RET ISZ NUMF</td><td> RETURN IF NOT 3 DIGITS TERMINATE DIGIT SEQUENCE</td>

<td> 0163</td><td> 04101 025717 ACTR3</td><td> LDB ΘΤΜΡ</td><td> LOAD THE LAST RESULT</td>

<td> 0164 0165</td><td> 04102 074076 04103 074704 ACTR4</td><td colspan="2"> TCB MAKE NEGATIVE SBL 2 MULTIPLY BY 4</td>

<td> 0166</td><td> 04104 004033</td><td> AOB RBAD</td><td> FIND THE ACTUAL ADDRESS</td>

<td> ,:167</td><td> 04105 074117</td><td> LDA B</td><td> PUI THE ADDRESS INA</td>

<td> 0 168</td><td> 04106 000375</td><td> ADA NUM</td><td> CHECK WHETHER OUT OF RANGE</td>

<td> J 1 70</td><td> L4 11'.) 062750</td><td> JSM ERROR</td><td> LIGHT THE ERROR LIGHT</td>

<td> <,171</td><td> ¢.4111 '231722</td><td> STA NUMF</td><td> RESET . THE NUMBER FLAG</td>

<td> 01 72</td><td> 04112 064161</td><td> JMP 1618</td><td> STOP EXECUTION</td>

<td> 0173</td><td> 04113 045721</td><td> ISZ INDF</td><td> INDIRECT FLAG SET?</td>

<td> 0174</td><td> (34114 066147</td><td> JMP COMPI</td><td> NO, PROCESS AN INDIRECT</td>

<td> 0 175</td><td> 04115 021715 DREC</td><td> LDA ATMP</td><td> DIRECT,LOAD THE SOURCE ADDRESS</td>

<td> 0 1 76</td><td> 04116 045720</td><td> ISZ OPER</td><td> SKIP IF SIMPLE TRANSFER</td>

<td> 0177</td><td> 04117 165720</td><td> JMP OPER,</td><td> I PERFORM A TRANSFER FUCTION</td>

0178*

0179* a!90*AT THIS POINT THE A REGISTER CONTAINS THE

01B1*SOURCE ADDRESS,(X OR Y), AND THE B REGISTER ύ182*C0NTA I NS THE ACTUAL DESTINATION 0183*

3,859,635

113

114 — Continued

<td></td><td> τpanseer</td><td> BLOCK</td><td> TRB</td>

<td> 0184</td><td> 04120 070432 ETRA</td><td> SAM ETRA2,</td><td> C SKIP IF YEXCHO OR X*(></td>

<td> 0185</td><td> 04121 170004</td><td> XFR</td><td> PERFORM A TRANSFER</td>

<td> 0186</td><td> 04122 045722</td><td> ISZ NUMF</td><td> NUMBER FLAG SET?</td>

<td> 0187</td><td> 04123 064167</td><td> JMP INIT</td><td> RETURN</td>

<td> 0 1 88</td><td> 04124 020052</td><td> LOA CLR1A</td><td> RESET THE ROUTING REGISTER</td>

<td> 0189</td><td> 24125 031723</td><td> S ΓΑ RFLG</td><td> TO NUMBER ENTRY</td>

<td> 0 190</td><td> 04126 025725</td><td> LOB KBUF</td><td> LOAD the: INPUT KEY</td>

<td> 0192</td><td> 04130 035717 ETRA2</td><td> STB BTMP</td><td> STORE DESTINATION INTO TEMP</td>

<td> 0193</td><td> 04131 010005</td><td> CPA YADD</td><td> SOURCE ADDRESS IS Y?</td>

<td> '0194</td><td> 04132 066136</td><td> JMP EXCH</td><td> YES» PERFORM A Y EXCH (»</td>

<td> •3 195</td><td> «4133 070137 ETRAl</td><td> LOB A</td><td> NO» SWAP THE SOURCE AND DESTINATION</td>

<td> 0196</td><td> 04134 021/1/</td><td> LDA ΒΓΜΡ</td><td> auuRESSES</td>

<td> 0198</td><td> 04136 031720 EXCH</td><td> STA CTMP</td><td> STORE THE SOURCE ADDRESS</td>

<td> -0 199</td><td> 04137 024013</td><td> LOB TADD1</td><td> PICK A FLOATING TEMPORARY</td>

<td> 2 200</td><td> 04140 170004</td><td> XFR</td><td> INTO A DATA TEMPORARY</td>

<td> £201</td><td> 04141 021717</td><td> LDA BTMP</td><td> LOAD DESTINATION INTO A</td>

<td> 2202</td><td> 04142 025720</td><td> LOB CTMP</td><td> TRANSFER THE DESTINATION’S CONTENT</td>

<td> 0203</td><td> 04143 170004</td><td> XFR</td><td> TO THE Y REGISTER</td>

<td> 0204</td><td> 04144 020013</td><td> LOA TADD1</td><td> LOAD ADDRESS OF TEMPORARY</td>

<td> 0205</td><td> 04145 025717</td><td> LOB BTMP</td><td> LOAD DESTINATION ADDRESS</td>

<td> 0206</td><td> 04146 066121</td><td> JMP ETRA»1</td><td> PUT TEMPORARY INTO DESTINATION</td>

2207*

0208*INDI RECT ADDRESS PROCESSING

<td> 2210</td><td> 04147</td><td> 074117</td><td> COMPI</td><td> LDA</td><td> B</td><td> LOAD THE REGISTER’S ADDRESS</td>

<td> 2211</td><td> 04150</td><td> 024015</td><td></td><td> LDB</td><td> AR1AD</td><td> TRANSFER ITS CONTENT</td>

<td> 0213</td><td> 24152</td><td> 074742</td><td></td><td> SBR</td><td> 16</td><td> CLEAR B</td>

<td> 0214</td><td> 24153</td><td> 035717</td><td></td><td> STB</td><td> BTMP</td><td> CLEAR THE RESULT’S LOCATION</td>

<td> 0215</td><td> 04154</td><td> 021744</td><td></td><td> LDA</td><td> ARI</td><td> LOAD THE EXPONENT WORD</td>

<td> 2216</td><td> 04155</td><td> 070113</td><td></td><td> SAP</td><td> » + 2</td><td> GO ON IF POSITIVE</td>

<td> 02 17</td><td> 24156</td><td> 066104</td><td></td><td> JMP</td><td> ACTR4+</td><td> 1 ASSUME REFERENCE TO 000</td>

<td> 0218</td><td> 04157</td><td> 070342</td><td></td><td> SAR</td><td> 8</td><td> SHIFT DOWN THE EXPONENT</td>

<td> £220</td><td> 04161</td><td> 070037</td><td></td><td> ADB</td><td> A</td><td> ADD THE EXPONENT TO IT</td>

<td> 2221</td><td> 04162</td><td> 000077</td><td></td><td> ADA</td><td> M3</td><td> CHECK IF EXP >2</td>

<td> u222</td><td> 04163</td><td> 070112</td><td></td><td> SAM</td><td> *♦2</td><td> SKIP IF NOT BIGGER</td>

<td> 3223 ·</td><td> 2 4164</td><td> 024034</td><td></td><td> LDB</td><td> .3</td><td> RESTRICT ADDRESS ΓΟ 3 DIGITS</td>

<td> • P 2</td><td> 24 165</td><td> •J 357 16</td><td></td><td> STH</td><td> ADDRC</td><td> STORE IN THE ADDRESS COUNTER</td>

<td>1 t' 2 ‘ \</td><td> '·> 1 66</td><td> 174400</td><td> COMP</td><td> Dl.S</td><td></td><td> PICK Λ DIGIT FROM THE REGISTER</td>

<td> J P r·.</td><td> 2 4 147</td><td> 0621 /6</td><td></td><td> J5M</td><td> MDEC</td><td> FIND THE BINARY EQUIVALENT</td>

<td> ·.. <: 2 /</td><td> 2 4 1 70</td><td> 1’557 lb</td><td></td><td> DSZ</td><td> ADDDC</td><td> ALL DIGITS IN?</td>

<td> ,: 2 2 8</td><td> 04171</td><td> 066166</td><td></td><td> JMP</td><td> COMP</td><td> NO,REPEAT</td>

<td> 0229</td><td> 04172</td><td> 066102</td><td></td><td> JMP</td><td> ACTR3-·</td><td> 1 YES,COMPUTED ADDRESS IS IN B</td>

<td> 0 2 34</td><td> 24173</td><td> 024004</td><td> XEXY</td><td> LDB</td><td> XADO</td><td> STORE THE ADDRESS OF X</td>

<td> 2 2 35</td><td> 04174</td><td> 020005</td><td></td><td> LOA</td><td> YADD</td><td> PUT THE Y ADDRESS INTO A</td>

<td> 3236</td><td> 04175</td><td> 066130</td><td></td><td> JMP</td><td> ETRA2</td><td> PERFORM AN EXCHANGE</td>

<td colspan="3"> Z238»LlNKAGE TABLE</td><td> ENTRY</td><td> FOR '</td><td> Y EXCH</td><td> X</td>

0242* '0 243*

0244* DECIMAL TO BINARY CONVERTER

0245*

2246*THIS ROUTINE ACCEPTS A NUMBER IN A , AND £247*A NUMBER IN B. THE ROUTINE MULTIPLIES THE 0248*NUMRER IN A BY 10 AND ADDS B TO THE RESULT

<td> 2249* 2250</td><td> 24176</td><td> 025717 MDEC</td><td> LDB</td><td> BTMP</td><td> LOAD PREVIOUS</td><td> RESULT</td>

<td> 0253</td><td> 24201</td><td> 074037</td><td> ADB</td><td> B</td><td> TEN TIMES B</td><td></td>

<td> 0255</td><td> 24203</td><td> 035717</td><td> STB</td><td> BTMP</td><td> STORE THE NEW</td><td> RESULT</td>

3,859,635

115

116 — Continued

1RANSFER BLOCK

TRH

2258*

<td colspan="7"> 2259* I INTERPRETER TABLE ENTRY FOR A AND B KEYS</td><td></td>

<td> 2261</td><td> £0213</td><td> 004011</td><td></td><td> DEF</td><td> ABETC</td><td></td><td></td>

<td> 2263</td><td> 04205</td><td></td><td></td><td> ORR</td><td></td><td> RESTORE THE ORIGIN</td><td></td>

<td> 2266</td><td> 00020</td><td></td><td> DPNT</td><td> EOU</td><td> 208</td><td> OCTAL CODE FOR· .</td><td> ROM</td>

<td> 22 70</td><td> 0 1720</td><td></td><td> CNGS</td><td> ECU</td><td> 1720B</td><td> CHANGE SIGN FLAG</td><td> R/W.S</td>

<td> 2271</td><td> 00037</td><td></td><td> RBAD1</td><td> E QU</td><td> 378</td><td> BEGINING ADDR OF A</td><td> ROM</td>

<td> 8272</td><td> 000 33</td><td></td><td> RBAD</td><td> EoU</td><td> 33B</td><td> BASE ADDRESS OF USER</td><td> REG ROM</td>

<td> 2273</td><td> 01721</td><td></td><td> ItlDF</td><td> EQU</td><td> 17218</td><td></td><td></td>

<td> 2274</td><td> 0 0015</td><td></td><td> AR1AD</td><td> ECU</td><td> 158</td><td> ADDRESS OF ARI</td><td></td>

<td> 8275</td><td> 0 1 744</td><td></td><td> ARI</td><td> ECU</td><td> 1 7448</td><td> LOCATION OF ARI</td><td></td>

<td> 2276</td><td> 0 1715</td><td></td><td> ATMP</td><td> EQU</td><td> 1 715P</td><td> TEMPORARY STORAGE A</td><td> R/W«N ’</td>

<td> 2278</td><td> £0004</td><td></td><td> XADD</td><td> EQU</td><td> 48</td><td> ADDRESS OF X</td><td> ROM</td>

<td> 7 2 7 9</td><td> £1723</td><td></td><td> RFLG</td><td> EOU</td><td> 1723P</td><td> SHIFT INDICATOR</td><td> R/W»N</td>

<td> . 2'12</td><td> V.7,'5</td><td></td><td> ΥΛΓ)Ο</td><td> EQU</td><td> 5H</td><td colspan="2"> ADDRESS OF Y ROM</td>

<td> z . 3 I</td><td> . !</td><td></td><td> 1 ADO 1</td><td> EQU</td><td> 1 38</td><td> ADDRESS of decimal</td><td> TEMPORARY</td>

<td> ,.</td><td> if. ? 0 0 6</td><td></td><td> ZADD</td><td> i-.ou</td><td> 68</td><td> ADDRESS OF THE Z REF</td><td> ROM</td>

<td> 2284</td><td> 00167</td><td></td><td> INIT</td><td> EQU</td><td> 1678</td><td colspan="2"> INITIALIZATION ROUTINE</td>

<td> 2286</td><td> £ 1716</td><td></td><td> ADDRC</td><td> EQU</td><td> 1716P</td><td> ADDRESS COUNTER</td><td> R/W»N</td>

<td> 2287</td><td> 20063</td><td></td><td> .1</td><td> EQU</td><td> 638</td><td> DECIMAL 1</td><td> ROM</td>

<td> 2288</td><td> £0034</td><td></td><td> .3</td><td colspan="2"> EQU 348</td><td> DECIMAL 3</td><td></td>

<td> 2-289</td><td> 00031</td><td></td><td> Ml</td><td> EQU</td><td> 318</td><td> CONSTANT -1</td><td> ROM</td>

<td> 2290</td><td> 00077</td><td></td><td> M3</td><td> EQU</td><td> 778</td><td> DECIMAL -3</td><td> ROM</td>

<td> 0291</td><td> £172?</td><td></td><td> NUMF</td><td> EQU</td><td> 17228</td><td> NUMBER FLAG .</td><td> R/W.N</td>

<td> £292</td><td> 0 1725</td><td></td><td> KBUF</td><td> EQU</td><td> 17258</td><td> KEYCOOE BUFFER</td><td> R/W»N</td>

<td> £293</td><td> 24750</td><td></td><td> ERROR</td><td> EQU</td><td> 47508</td><td></td><td></td>

<td> 0297</td><td> 00357</td><td></td><td> INTR2</td><td> EQU</td><td> 3578</td><td colspan="2"> RECYCLING EMTRY TO INTERPRETER</td>

<td> 0300</td><td> 00042</td><td> 004120</td><td> OPERH</td><td> DEF</td><td> ETRA</td><td></td><td></td>

<td colspan="2"> 0302*DEFINITION OF 0303*</td><td> 2ND ENTRY</td><td> IN TRANSFER BLOCK</td>

<td> «305</td><td> £0040 004074</td><td> RINCi dEE</td><td> ACThi</td>

<td> 0306</td><td> £4205</td><td> ORR</td><td> RESTORE THE ORIGIN</td>

<td> 2337 * NO</td><td> ERRORS*</td><td> END</td><td></td>

,. 0 0 1 Chgs CHS!

('AGNI res HO ONE LONS

DPROC DPR1

CLP

CLR1 CLR?

EE XL EEXL1

EEX

FEX1

000377 (·’ A ·.·) 16 /.1/4 26 /.'0442 000444 0.00450 000451 000456 000465 000466 200471 000501 000510 020530 .000532 000543

ASMB»AvB,L»T

3,859,635

117

118 — Continued

<td></td><td> TRANSFER BLOCK</td><td colspan="2"> TRH</td>

<td> EXPC</td><td> 001721</td><td> NUMBE</td><td> 000036</td>

<td> CNSK</td><td> 000075</td><td> * NO</td><td> ERRORS*</td>

<td></td><td></td><td> CHANGE SIGN</td><td colspan="2"> ROUTINE</td><td> NMR</td>

<td> 0000</td><td> 0 0 3 77</td><td> 025723 CHGS</td><td> LDB</td><td> RFLG</td><td> LOAD THE ROUTING REGISTER</td>

<td> 0 00 8</td><td> 00401</td><td> 014076</td><td> CPB</td><td> EEXA</td><td> IN ENTER EXPONENT LOOP?</td>

<td> 0009</td><td> 00402</td><td> 064416</td><td> JMP</td><td> CHS1</td><td> YES,CHANNEL TO THAT PHASE</td>

<td> 0010</td><td> 00403</td><td> 025750</td><td> LOB</td><td> X</td><td> LOAD THE EXPONENT OF X</td>

<td> 0011</td><td> 00404</td><td> 110102</td><td> CPA</td><td> NORM,I</td><td> DURING NUMBER ENTRY?</td>

<td> 0012</td><td> 00405</td><td> 025744</td><td> LDB</td><td> ARI</td><td> YES,LOAD EXPONENT OF ARI</td>

<td> 0013</td><td> 00406</td><td> 076111</td><td> SLB</td><td> *♦2,5</td><td> SET MAGNITUDE SIGN IF CLEAR</td>

<td> 0014</td><td> 00407</td><td> 074071</td><td> SLB</td><td> »♦!,€</td><td> CLEAR MAG SIGN IF SET</td>

<td> 0015</td><td> 00410</td><td> 035750</td><td> STB</td><td> X</td><td> STORE NEW EXP IN X</td>

<td> 0016</td><td> 00411</td><td> 035744</td><td> STB</td><td> ARI</td><td> STORE NEW EXPONENT IN ARI</td>

<td> 0017</td><td> 00412</td><td> 031720</td><td> STA</td><td> CNGS</td><td> SET THE CHANGE SIGN FLAG</td>

<td> 0018</td><td> 00413</td><td> 110102</td><td> CPA</td><td> NORM,I</td><td> DURING NUMBER ENTRY?</td>

<td> 0020</td><td> 00415</td><td> 064167</td><td> JMP</td><td> INIT</td><td> RE-1NITIALIZE</td>

<td colspan="2"> 0022*CHANGE</td><td> SIGN DURING</td><td colspan="3"> EXPONENT ENTRY</td>

<td> 0023* 0024</td><td> 00416</td><td> 025744 CHSl</td><td> LDB</td><td> ARI</td><td> LOAD EXPONENT OF ARI</td>

<td> 0025</td><td> 00417</td><td> 005715</td><td> ADB</td><td> NEXR</td><td> SUBTRACT THE RESIDUE</td>

<td> 0026</td><td> e 0420</td><td> 074076</td><td> TC8</td><td></td><td> COMPLIMENT THE EXPONENT</td>

<td> 0027</td><td> 00421</td><td> 005716</td><td> ADB</td><td> EXR</td><td> ADD BACK THE RESIDUE</td>

<td> 0028</td><td> 00422</td><td> 055720</td><td> DSZ</td><td> CNGS</td><td> EXPONENT NEGATIVE?</td>

<td> 0029</td><td> 00423</td><td> 03Ϊ720</td><td> STA</td><td> CNGS</td><td> NO,MAKE IT NEGATIVE</td>

<td> 0 0 T0</td><td> 0O>Zi?4</td><td> MAz.530</td><td> JMP</td><td> EEXL 1</td><td> τγομτκιλτγ CHANGE SIGN</td>

0032*INTERPRETER TABLE LINKAGE

2033 30232 ORG 232B

0034 00232 0'20377 DEF CHGS

0035 00425 ORR

NUMBER ENTRY ROUTINE

NMR

0038·**»*« NUMBER ENTRY ROUTINE

0039* 1HIS ROUTINE BUILDS A FLOATING POINT NUMBER

0W40*(>LT OF INDIVIDUAL DIGIT ENTRIES

0041«IFF ROUTINE ALSO fAKES CARE OF THE

004,>*F NTF.R EXPONENT OFF RA I IONS

0043»

0044»

0045*

0046**CONTINUATOR ENTRY

<td> 0047</td><td> 00425</td><td> 064555</td><td> JMP</td><td> NUMBT</td><td> JUMP</td><td> TO TERMINATE ENTRY</td>

<td> 0048</td><td> 00426</td><td> 021725 MAGNI</td><td> LDA</td><td> KBUE</td><td> LOAD</td><td> THE INPUT KEY</td>

<td> 0050</td><td> 00430</td><td> 064451</td><td> JMP</td><td> NONS</td><td colspan="2"> PROCESS NON-SIGNIFICANT DIGIT</td>

<td> 0051</td><td> 00431</td><td> 025744</td><td> LDB</td><td> ARI</td><td> LOAD</td><td> THE EXPONENT WORD</td>

<td> 0052</td><td> 00432</td><td> 004105</td><td> ADB</td><td> SI</td><td colspan="2"> INCREMENT THE EXPONENT</td>

<td> 0053</td><td> 00433</td><td> 035744</td><td> STB</td><td> ARI</td><td> STORE</td><td> THE NEW EXPONENT</td>

<td> 0054</td><td> 0 0434</td><td> 045717</td><td> ISZ</td><td> DPTF</td><td> SKIP</td><td> IF DECIMAL POINT IS IN</td>

<td></td><td></td><td></td><td> 119</td><td></td><td></td><td> — Continued</td><td> 120</td><td></td>

<td></td><td></td><td> NUM</td><td> liEN L</td><td colspan="2"> j-lTEY ROUTINE</td><td> NMR</td><td></td><td></td>

<td> 0056</td><td> 00436</td><td> 055717</td><td></td><td> DSZ</td><td> DPTF</td><td> SET THE DECIMAL POINT</td><td> FLAG</td><td></td>

<td> 0057</td><td> 00437</td><td> 004032</td><td></td><td> ADB</td><td> MMSK</td><td colspan="2"> DECREMENT THE EXPONENT</td><td></td>

<td> 0 05Θ</td><td> 00440</td><td> 035744</td><td></td><td> STB</td><td> ARI</td><td colspan="2"> STORE THE NEW EXPONENT</td><td></td>

<td> 0059</td><td> 0044 1</td><td> 072150</td><td></td><td> RZA</td><td> TWO</td><td> SKIP IF CURRENT DIGIT</td><td> IS NOT</td><td> ZERO</td>

<td> 0062</td><td> 03444</td><td> 175400</td><td> TWO</td><td> OLS</td><td></td><td> PUSH THE CURRENT DIG</td><td> IT INTO</td><td> ARI</td>

<td> 0063</td><td> 00445</td><td> 073150</td><td></td><td> SZA</td><td> *♦3</td><td> SKIP IF NO OVERFLOW</td><td></td><td></td>

<td> 0065</td><td> 00447</td><td> 174430</td><td></td><td> MRX</td><td></td><td colspan="2"> PUSH OUT THE NEW DIGIT</td><td></td>

<td> 0066</td><td> 00450</td><td> 170402</td><td> one:</td><td> RET</td><td></td><td> RETURN</td><td></td><td></td>

<td> 0067</td><td> 00451</td><td> 071550</td><td> NONS</td><td> SZA</td><td> T 0</td><td> SKIP IF DIGIT IS 3</td><td></td><td></td>

<td> 0068</td><td> 00452</td><td> 045717</td><td></td><td> ISZ</td><td> DPTF</td><td> SKIP IF DECIMAL POINT</td><td> IS IN</td><td></td>

<td> 0069</td><td> 00453</td><td> 064442</td><td></td><td> JMP</td><td> TWS</td><td> SET THE SIGNIFICANT</td><td> FLAG</td><td></td>

<td> 0070</td><td> 00454</td><td> 055717</td><td></td><td> DSZ</td><td> OPTF</td><td> SET THE DECIMAL POINT</td><td> FLAG</td><td></td>

<td> 0071</td><td> 00455</td><td> 064444</td><td></td><td> JMP</td><td> TWO</td><td> PROCESS THE CURRENT</td><td> DIGIT</td><td></td>

<td colspan="2"> 0073*DECIMAL</td><td> . POINT</td><td colspan="2"> PROCESSING</td><td></td><td></td>

<td> 0074</td><td> 00456</td><td> 021717</td><td> DPROC</td><td> LDA</td><td> DPTF</td><td> LOAD THE DECIMAL POINT FLAG</td>

<td> 0075</td><td> 00457</td><td> 370312</td><td></td><td> SAM</td><td> DPR1</td><td> SKIP IF ALREDY SET</td>

<td> 0078</td><td> 00462</td><td> 031722</td><td></td><td> STA</td><td> NUMF</td><td> SET THE NUMBER FLAG</td>

<td> 0079</td><td> 00463</td><td> 045721</td><td></td><td> ISZ</td><td> SGF</td><td> SIGNIFICANT FLAG SET?</td>

<td> 0082*</td><td> •FIRST</td><td> ENTRY </td><td colspan="3"> IN NUMBER ROUTINE</td><td></td>

<td> 0085</td><td> 00467</td><td> 035722</td><td></td><td> STB</td><td> NUMF</td><td> SET THE DIGIT SEQUENCE FLAG</td>

<td> 0086</td><td> 00470</td><td> 165723</td><td></td><td> JMP</td><td> RELG,I</td><td> ROUTE ACCORDING TO RFLG</td>

<td> 0087</td><td> 00471</td><td> 020015</td><td> CLR1 .</td><td> LOA</td><td> AR1AC</td><td> LOAD ADDRESS OF ARI</td>

<td> 0089</td><td> 00473</td><td> 144102</td><td></td><td> ISZ</td><td> NORM , I</td><td> INDICATE INPUT IS NOT NORMALIZED</td>

<td> 0090</td><td> 00474</td><td> 055720</td><td></td><td> DSZ</td><td> CNGS</td><td> SKIP IF CHANGE SIGN DID NOT PRECEEO</td>

<td> 0091</td><td> 00475</td><td> 064477</td><td></td><td> JMP</td><td> »♦2</td><td> 00 NOT CHANGE SIGN</td>

<td> 0092</td><td> 00476</td><td> 045744</td><td></td><td> ISZ</td><td> ARI</td><td> MAKE MAGNITUDE NEGATIVE</td>

<td> 3093</td><td> 00477</td><td> 023041</td><td></td><td> LDA</td><td> INTA</td><td> LOAD ADDRESS OF WORK FLAGS</td>

<td> 0 0 94</td><td> 0 i' 500</td><td> 170000</td><td></td><td> CLR</td><td></td><td> CLEAR THE WORK FLAGS</td>

<td> 0 95</td><td> 0 0501</td><td> 020035</td><td> CLR2</td><td> LUA</td><td> MFXE</td><td> LOAD ADDRESS OF CONTINUATION ENTRY</td>

<td> 0046</td><td> 0 0502</td><td> 331723</td><td></td><td> S Γ A</td><td> RFLG</td><td> STORE IN THE ROUTING REGISTER</td>

<td> C0O 7</td><td> k. 0.50 3</td><td> v21725</td><td></td><td> LDA</td><td> KBUF</td><td> LOAD INPUT KEY</td>

<td> 0098</td><td> 00504</td><td> 010020</td><td></td><td> CPA</td><td> DPNT</td><td> DECIMAL POINT?</td>

<td> 0399</td><td> «0505</td><td> 064456</td><td></td><td> JMP</td><td> DPROC</td><td> YE,PROCESS DECIMAL POINT</td>

<td> 0100</td><td> «0506</td><td> 064427</td><td></td><td> JMP</td><td> MAGNI+1</td><td> NO,PROCESS MAGNITUDE</td>

3I02*ENTER EXPONENT PROCESSING

0103*

0104*

0106*ENTER EXPONENT LOOP

<td> 0107</td><td> 00507</td><td> 064555</td><td> JMP</td><td> NUMBT</td><td> TERMINATION ENTRY</td>

<td> 3108</td><td> 00510</td><td> B21725 EEXL</td><td> LDA</td><td> KBUF</td><td> LOAD THHE INPUT KEY</td>

<td> 0109</td><td> 0051 1</td><td> 055721</td><td> DSZ</td><td> EXPC</td><td> DECREMENT THE EXPONENT DIGIT COUNTER</td>

<td> 0110</td><td> 00512</td><td> 064514</td><td> JMP</td><td> *♦2</td><td> PROCEED</td>

<td> 0111</td><td> «0513</td><td> 064567</td><td> JMP</td><td> NUMT2</td><td> 2 EXP DIGITS ARE ALREADY IN</td>

<td> 0112</td><td> 0 0514</td><td> 025720</td><td> LDB</td><td> CNGS</td><td> LOAD THE CHANGE SIGN FLAG</td>

<td> 0113</td><td> 00515</td><td> 014063</td><td> CPB</td><td> .1</td><td> SKIP IF IT INDICATES POSIT EXPONENT</td>

<td> 0114</td><td> 00516</td><td> 070076</td><td> TCA</td><td></td><td> COMPLIMENT THE INPUT DIGIT</td>

<td> 0115</td><td> 0051 7</td><td> 070404</td><td> SAL</td><td> 8</td><td> POSITION THE NEW INPUT DIGIT</td>

<td> 0116</td><td> 00520</td><td> 025744</td><td> LDB</td><td> ARI</td><td> LOAD THE EXPONENT WORD</td>

<td> 0117</td><td> «0521</td><td> 005715</td><td> ADB</td><td> NEXR</td><td> SUiJTRACT THE RESIDUE</td>

<td> 0118</td><td> «0522</td><td> 035725</td><td> STB</td><td> BTMP</td><td> STORE THE OLD EXP</td>

<td> 0122</td><td> «0526</td><td> 070037</td><td> ADB</td><td> A</td><td> ADD IN THE NEW DIGIT</td>

<td> 0123</td><td> «0527</td><td> 005716</td><td> ADB</td><td> EXR</td><td> ADD THE EXPONENT RESIDUE BACK</td>

<td> 0124</td><td> 00530</td><td> 335744 EEXL1</td><td> STB</td><td> ARI</td><td> STORE THE NEW EXPONENT</td>

3,859,635

121

122 — Continued

<td></td><td> NUMBER EN1</td><td> r>< t rout inf</td><td> NMR</td>

<td colspan="2"> 0127*FIRST ENTRY 4128 «0532 420015 EEX</td><td> LOA AR1AO</td><td> NOT IN NUMBERENTRY</td>

<td> 0129 0130</td><td> 00533 170000 20534 045747</td><td> CLR ISZ AR1*3</td><td> CLEAR ARI PUT 1 IN ARI</td>

<td> 0131</td><td> 20535 055720</td><td> DSZ CNGS</td><td> SKIP IF CHANGE SIGN PRECEEDED</td>

<td> 0132 0133</td><td> 20536 064540 20537 045744</td><td> JMP *♦? ISZ ARI</td><td> MAKE MAGNITUDE NEGATIVE</td>

<td> 0134</td><td> 20540 144102</td><td> ISZ NORM,I</td><td> INDICATE NUMBER IS NOT NORMALIZED</td>

<td> 0135 0136</td><td> 20541 020031 20542 031722</td><td> LOA Ml STA NUMF</td><td> SET THE NUMBER FLAG</td>

<td> 0137</td><td> 20543 020076 EEX1</td><td> LOA EEXA</td><td> ENTRY DURING NUMBER BUILDING</td>

<td> 0138</td><td> «0544 031723</td><td> STA RFLG</td><td> SET ROUTING FLAG TO EEXL</td>

<td> 0139 0140</td><td> 00545 020034 00546 031721</td><td> LDA .3 STA EXPC</td><td> INIT THE EXP DIGIT COUNTER</td>

<td> 0141</td><td> 00547 031720</td><td> STA CNGS</td><td> FORCE EXPONENT SIGN ♦</td>

<td> 0142</td><td> 20550 021744</td><td> LDA ARI</td><td> LOAOTHE EXPONENT</td>

<td> 0143</td><td> 00551 031716</td><td> STA EXR</td><td> STORE EXPONENT RESIDUE</td>

<td> 2144 0145</td><td> «0552 070076 «0553 231715</td><td> TCA STA NEXR</td><td> COMPL.IMENT STORE NEGATIVE OF ABOVE</td>

<td> 0 146 0147» Z 148*1</td><td colspan="2"> «0554 170402 RET NUMBER ENTRY TERMINATION LOOP</td><td></td>

<td> J 149* «150</td><td> '/-155 045723 NUMBT</td><td> ISZ RFLG</td><td> CORRECT THE ROUTING REGISTER</td>

<td> z 1 51</td><td> / '56 021725</td><td> LDA khuf</td><td> LOAD THE I INPUT KEY</td>

<td> .)152</td><td> /.‘57 0100 20</td><td> CPA DPNT</td><td> DECIMAL POINT?</td>

<td> 0 153</td><td> '.S '·> 60 0644 5 6</td><td> JMP DPROC</td><td> YES»DO NOT TERMINATE</td>

<td> 0154</td><td> 0(1561 010074</td><td> CPA EEXK</td><td> ENTER EXPONENT?</td>

<td> 0155</td><td> 20562 264543</td><td> JMP EEX1</td><td> YES» PROCEED TO ENTER EXP</td>

<td> 0 156</td><td> «0563 010075</td><td> CPA CNSK</td><td> CHANGESIGN?</td>

<td> 0157</td><td> «0564 064377</td><td> JMP CHGS</td><td> YES.PROCESS CHANGE SIGN</td>

<td> 0 158</td><td> «0565 010110</td><td> CPA PRTK</td><td> DOES PRINT FOLLOW?</td>

<td> 0159</td><td> 00566 144107</td><td> ISZ PRTF»I</td><td> SET PRINT ENTRY FLAG</td>

<td> «162</td><td> «0570 024016</td><td> LOB AR2A0</td><td> NUMBER TO AR2</td>

<td> 0163 «164 0165 «166</td><td> 02571 170004 00572 020016 02573 171450 00574 074742</td><td> XFR LDA AR2AD NRM SBR 16</td><td> NORMALIZE CLEAR B</td>

<td> 0167</td><td> «0575 070135</td><td> SEC * + 2»C</td><td> SKIP IF MAGNITUDE IS NOT ZERO.</td>

<td> 0160</td><td> 00576 035754</td><td> STB AR2</td><td> CLEAR THE EXPONENT WORD</td>

<td> 0169</td><td> 0W577 134102</td><td> STB NORM»I</td><td> CLEAR THE NON-NORMALIZED FLAG</td>

<td> 0170</td><td> «0600 035722</td><td> STB NUMF</td><td> RESET THE NUMBER FLAG</td>

<td> 0171</td><td> «0601. 024004</td><td> LDB XADO</td><td> TRANSFER NORMALIZED NUMBER</td>

<td> 0173</td><td> «0603 060167</td><td> JSM INIT</td><td> RE-INITIALIZE</td>

<td> 0174</td><td> «0604 025725</td><td> LDB KBUF</td><td> LOAD THE FOLLOWING KEY</td>

<td colspan="3"> 2177*INTERPRETER LINKAGE</td><td colspan="2"> ENTRY FOR</td><td colspan="2"> ENTER EXPONENT</td>

<td> 0179</td><td> «0226</td><td> 000532</td><td> DEF</td><td> EEX</td><td> DEFINE</td><td> ENTRY</td>

<td> 0180</td><td> 20606</td><td></td><td> ORR</td><td></td><td> RESET</td><td> THE ORIGIN</td>

<td colspan="3"> 2186*IKTERPRETER LINKAGE</td><td colspan="2"> FOR NUMBER</td><td></td><td></td>

3,859,635

123

124

NUMBER ENTRY ROUTINE NMR-Continued

<td> £201</td><td> 0 0606</td><td></td><td></td><td> ORR</td><td></td><td> RESET THE ORIGIN</td><td></td>

<td> 0209</td><td> 00357</td><td></td><td> INTR2</td><td colspan="2"> EQU 3578</td><td> RECYCLING ENTRY TO</td><td> THE INTERPRETER</td>

<td> 0212</td><td> 0 0032</td><td></td><td> MMSK</td><td> EQU</td><td> 32B</td><td colspan="2"> DECREMENT FOR EXPONENT</td>

<td> 0214</td><td> 01723</td><td></td><td> RFLG</td><td> EQU</td><td> 17238</td><td> INCREMENT INDICATOR</td><td> R/W,N</td>

<td> 0215</td><td> 00020</td><td></td><td> OPNT</td><td> EQU</td><td> 20B</td><td> OCTAL CODE FOR .</td><td></td>

<td> 0216</td><td> 0 1744</td><td></td><td> ARI</td><td> EQU</td><td> 17448</td><td> LOCATION OF ARI</td><td></td>

<td> 0217</td><td> 00015</td><td></td><td> ARI AD</td><td> EQU</td><td> 158</td><td> ADDRESS OF ARI</td><td> ROM</td>

<td> 0221</td><td> 00167</td><td></td><td> INIT</td><td> EQU</td><td> 1678</td><td colspan="2"> INITIALIZATION ENTRY</td>

<td> 0223</td><td> 01721</td><td></td><td> SGF</td><td> EQU</td><td> 17218</td><td> SIGNIFICANT FLAG</td><td> R/W»N</td>

<td> 0224</td><td> 01722</td><td></td><td> NUMF</td><td> EQU</td><td> 17228</td><td> NUMBER ENTRY FLAG</td><td> R/W»N</td>

<td> 0225</td><td> 01717</td><td></td><td> DPTF</td><td> EQU</td><td> 17178</td><td> DECIMAL POINT FLAG</td><td> R/W,N</td>

<td> 0228</td><td> 01725</td><td></td><td> BTMP</td><td> EQU</td><td> 17258</td><td> TEMPORARY LOACTION</td><td> B R/W«S</td>

<td> 0229</td><td> 00031</td><td></td><td> Ml</td><td> EQU</td><td> 3 IB</td><td> DECIMAL -1</td><td> ROM</td>

<td> 0231</td><td> 00034</td><td></td><td> .3</td><td> EQU</td><td> 34B</td><td> DECIMAL 3</td><td> ROM</td>

<td> 0233</td><td> 01721</td><td></td><td> EXPC</td><td> EQU</td><td> 17218</td><td> EXP DIGIT COUNTER</td><td> R/W.N</td>

<td> 0 234</td><td> 00074</td><td></td><td> EEXK</td><td> EQU</td><td> 74B</td><td> OCTAL CODE FOR ENT</td><td> EXP ROM</td>

<td> 0235</td><td> 00075</td><td></td><td> CNSK</td><td> EQU</td><td> 75B</td><td> OCTAL CODE FOR CNG</td><td> SGN ROM</td>

<td> 0237</td><td> 01716</td><td></td><td> EXR</td><td> EQU</td><td> 17168</td><td> EXPONENT RESIDUE</td><td> R/W«N</td>

<td> 0238</td><td> 00102</td><td></td><td> NORM</td><td> EQU</td><td> 102B</td><td> NORMALIZED FLAG</td><td> R/W,N</td>

<td> 0244 0245 0246</td><td> 00035 00035 000426 00036 000466</td><td> NEXE NUMBE</td><td> ORG 35B DEF MAGNI DEF CLR</td><td> DEFINE</td><td> 1ST</td><td> ENTRY IN NUMBER</td>

<td> 0252 * NO</td><td> ERRORS*</td><td></td><td> ENO</td><td></td><td></td><td></td>

<td> <1001 INTPP INBUF f N TSP MSK S i OP MAXC * NO</td><td> 900622 001774 01775 J00043 000021 000376 . ERRORS*</td><td> A SMB,</td><td> A,L,T,B</td><td></td><td></td><td></td>

<td> 01)01 Cd'02 .: 5</td><td> 00002 00002 060622 0 0622 0O622 031774 C062J 020021</td><td> ASMB, IN IBP</td><td> A , L , T , B ORG 2B JSM INTRP ORG 622B S T A INBUF LOA STOP</td><td> SAVES LOAD THE</td><td> A IN ST01</td><td> INPUT BUFFER. » CODE</td>

3,859,635

125 126

NUMBER ENTRY ROUTINE NMR-Continued

<td> /..> A Ί</td><td> 0 0 ti 2 4</td><td> 172500</td><td> SF S 00</td><td> SKIP IF STOP IS INPUT</td>

<td> .5,) 0 8</td><td> 00625</td><td> 172241</td><td> LIA 01</td><td> LOAD A WITH INPUT KEY</td>

<td> ,,009</td><td> 00626</td><td> 050043</td><td> AND MSK</td><td> CLEAN UP KEYSTROKE.</td>

<td> C010</td><td> 00627</td><td> 031775</td><td> ST A INTSR</td><td> STORE KEYSTROKE IN LOC. KNOWN TO MONITOR.</td>

<td> Λ0 11</td><td> 00630</td><td> 000376</td><td> ADA MAXC</td><td> SUBTRACT MAX KEYCODE FROM A</td>

<td> 2412</td><td> 00631</td><td> 073713</td><td> SAP *-2»S</td><td> SKIP IF KEYCODE >111</td>

<td> 0013 00 14 0015</td><td> 00632 00633 01774</td><td> 021774 170402 INBUF</td><td> LOA INBUF RET EQU 1774B</td><td> RESTORE A.</td>

<td> 0 0 16 0017</td><td> 01775 00043</td><td> INTSR MSK</td><td> EQU 1775B EQU 43B</td><td></td>

<td> 0018 0 0 19</td><td> 00021 00376</td><td> STOP</td><td> EQU 21B ORG 376B</td><td> KEYCODE FOR STOP</td>

* NO ERRORS*

<td> FOUND</td><td> 000671</td>

<td> OUTPT</td><td> 000754</td>

<td> SECDI</td><td> 000373</td>

<td> • NO</td><td> ERRORS*</td>

ASMB,A»H,L»T

BASIC FORMAT BLOCK

<td> 0011</td><td> L0634</td><td> ORR</td><td> RESET THE ORIGIN</td>

012*

3,859,635

127

128

<td></td><td></td><td colspan="3"> BASIC FORMAT BLOCK -Continued</td>

<td> 2015</td><td> 00635</td><td> 024053</td><td> LDB TBLE</td><td> LOAD THE START OF THE INTERPRETER TABEL</td>

<td> 2017</td><td> 00637</td><td> 074537</td><td> LDB 8,1</td><td> LOAD THE CORRESPONDING ENRTY</td>

<td> 0019</td><td> 0 064 1</td><td> 064155</td><td> JMP FINT0</td><td> YES, EXECUTE END</td>

<td> 2022</td><td> 140644</td><td> 014302</td><td> CPB 3028</td><td> RECORD?</td>

<td> 0025</td><td> 00647</td><td> 064703</td><td> JMP PLTI</td><td> JUMP TO PLOTTER ROUTINE</td>

<td> 0027</td><td> 20651</td><td> 064705</td><td> JMP PLT2</td><td> YES, JUMP TO THE PLOTTER ROUTINE</td>

<td> 0029</td><td> 02653</td><td> 164172</td><td> JMP DTO,I</td><td> YES,TRANSFER DATA TO MAG CARD</td>

<td> ti o J i</td><td> «»f n □ □</td><td> x d *41 75</td><td> jhc ur κ n ♦ 1</td><td> VcSiPICK DATA FROM MAG CARD</td>

<td> 0033</td><td> 20657</td><td> 064161</td><td> JMP FINT1</td><td> YES,RETURN TO CALC MODE</td>

<td> 00 J4</td><td> 20660</td><td> 014247</td><td> CPB 247B</td><td> CONTINUE?</td>

<td> 0035</td><td> 20661</td><td> 064673</td><td> JMP PHTR</td><td> YES,START THE PHOTO READER</td>

<td> 2 037“</td><td> SE ARCH</td><td> ROUTINE</td><td></td><td></td>

<td> 2038</td><td> 00662</td><td> 024176 LOOK</td><td> LDB DNC</td><td> LOAD START OF SEARCH AREA</td>

<td> 0039</td><td> 00663</td><td> 014103</td><td> CPB ENDS</td><td> ALL BLOCKS TESTED?</td>

<td> 004.0</td><td> Vi 0664</td><td> 170402</td><td> RET</td><td> YES,RETURN</td>

<td> 0041</td><td> 20665</td><td> 074457</td><td> CPA B,I</td><td> DOES BLOCK START WITH SAME KEY?</td>

<td> 204?</td><td> 00666</td><td> 064671</td><td> JMP FOUND</td><td> YES,THIS IS THE BLOCK SEARCHED FOR</td>

<td> 0043</td><td> 20667</td><td> 004105</td><td> ADB INCR</td><td> NO,POINT TO THE NEXT BLOCK</td>

<td> e 0 4 4</td><td> 00670</td><td> 064663</td><td> JMP LOOK+1</td><td> COMPARE KEY WORDS</td>

<td> 0045</td><td> 20671</td><td> 074070 FOUND</td><td> SIB “*1</td><td> POINT TO 2ND WORD IN BLOCK</td>

<td> 0046</td><td> 20672</td><td> 074737</td><td> JMP B,I</td><td> JUMP TO OPTIONAL BLOCK</td>

<td colspan="4"> 0050*PhOTOREADER START UP</td><td></td>

<td> 0051</td><td> 20673</td><td> 020373 PHTR</td><td> LDA SECDI</td><td></td>

<td> 0052</td><td> Z06 Λ4</td><td> 173741</td><td> CLF 01</td><td> ENABLE THE INTERRUPT</td>

<td> 0053</td><td> 20675</td><td> 025775</td><td> LDB 1775B</td><td> LOAD INPUT BUFFER. IF POS, IMPLIES</td>

<td> Z054</td><td> 20676</td><td> 074112</td><td> SBM «♦?</td><td> SINGLE STEPPING OR KEYBOARD, SUPPRESS</td>

<td> 2055</td><td> 20677</td><td> 072051</td><td> SLA **1,S</td><td> CONTINUE FROM PHOTOREAOER.</td>

<td> 0056</td><td> 20700</td><td> 172141</td><td> OTA 01</td><td> OUTPUT THE SELECT CODE</td>

<td> 0058</td><td> 20702</td><td> 064161</td><td> JMP 161B</td><td> STOP THE EXECUTION IF ANY</td>

<td></td><td></td><td colspan="2"> PLOTTER ROUTINES .</td><td></td>

<td> vi <- 65</td><td> 2 0 706</td><td> 074742</td><td> 5 H R 16</td><td> CLEAR B</td>

<td> v, cj66</td><td> 20707</td><td> 1)35720</td><td> SIB 1 720P</td><td> INITIALIZE THE REG DEIFCT</td>

<td> x) 0 6 7</td><td> 20710</td><td> 035722</td><td> STB 1722«</td><td> INITIALIZE THE SYNC BIT</td>

<td> 0068</td><td> 2071 1</td><td> 060754</td><td> JSM OUTPT</td><td> OUTPUT</td>

<td> 0w70</td><td> 20713</td><td> 024016</td><td> LDB AR2AO</td><td> TRANSFER Y OR</td>

<td> 2073</td><td> 2 0716</td><td> 025754</td><td> LDB AR2</td><td> LOAD THE EXPONENT WORD</td>

<td> 00 /4</td><td> 20717</td><td> 074251</td><td> SLB PDAT1</td><td> SKIP IF MAG IS POSITIVE</td>

<td> 00 75</td><td> 20720</td><td> 031755</td><td> STA AR2 + 1</td><td> ASSUME 0 COORDINATES</td>

<td> 2077</td><td> 20722</td><td> 060754</td><td> JSM OUTPT</td><td></td>

<td> 0078</td><td> 20723</td><td> 064737</td><td> JMP OUT</td><td> OUTPUT THIS COORDINATE</td>

<td> 0079</td><td> 20724</td><td> 074153 PDAT1</td><td> SBP “ + 3</td><td> SKIP IF EXP IS POSITIVE</td>

<td> 2 080</td><td> 00725</td><td> 031755</td><td> STA AR2+1</td><td> ASSUME 0000</td>

<td> 0281</td><td> 20726</td><td> 064740</td><td> JMP OUT*!</td><td> OUTPUT OOOO</td>

<td> 2082</td><td> 20727</td><td> 074340</td><td> ABR 8</td><td> SHIFT THE EXPONENT DOWN</td>

<td> 2083</td><td> 20730</td><td> 074076</td><td> TCB</td><td> COMPLIMENT THE EXPONENT</td>

<td> 0086</td><td> £0733</td><td> 020057</td><td> LDA NINE</td><td> STORE 9999 AS COORDINATE</td>

3,859,635

129 130

PLOTTER ROUT INES -Continued

<td> 0/88 0089</td><td> 00735 064721 00736 1/4470 PDAT2</td><td> JMP PDAT0 MRY POSITION THE COORDINATE</td>

<td> ίΐ'ό 90</td><td> 20737 221755 OUT</td><td> LDA AR2*1 LOAD THE 4 MOST SIG DIGITS</td>

<td> (10 92</td><td> 00741 060754</td><td> JSM OUTPT OUTPUT THIS COORDINATE</td>

<td> 0095</td><td> 20744 021755</td><td> LDA AR2+1 LOAD THE 4 MOST SIG DIGITS AGAIN</td>

<td> 0096</td><td> 20745 050374</td><td> AND MSK ISOLATE THE BOTTOM TWO</td>

<td> «097</td><td> 20746 060754</td><td> JSM OUTPT OUTPUT THIS COORDINATE</td>

<td> 0098</td><td> 20747 021720</td><td> LDA 1720Θ LOAD THE REG SELECT FLAG</td>

<td> 0099</td><td> 00750 072710</td><td> RZA DONE SKIP IF INDICATES DONE</td>

<td> 0100</td><td> 20751 020005</td><td> LDA YADD LOAD THE ADDRESS OF Y</td>

<td> 0101</td><td> 20752 031720</td><td> STA 17208 SET THE REG SELECT FLAG TO NON-ZERO</td>

<td> 0102</td><td> 20753 064713</td><td> JMP PDAT+1 GET OOUT THE NEXT Y COORDINATE</td>

<td> 0103» 0104* 2 105</td><td> 20754 040372 OUTPT</td><td> IOR SECD PUT IN THE SELECT CODE</td>

<td> 0106</td><td> 20755 172141</td><td> OTA 01 OUTPUT THE SELECT CODE</td>

<td> 0107</td><td> 20756 172741</td><td> STF 01 PUT STATUS ON I/O REG</td>

<td> 0108</td><td> 20757 176241</td><td> LIB 01 INPUT THE STATUS</td>

<td> 0109</td><td> 20760 074504</td><td> SBL 6 POSITION THE STANDBY BIT</td>

<td> «110</td><td> 20761 274253</td><td> SBP DONE SKIP IF PLOTTER IS NOT AVAILABLE</td>

<td> '2112</td><td> 20763 172141</td><td> OTA 01 OUTPUT THE COMMAND</td>

<td> 0113</td><td> 20764 172601</td><td> STC 01 SET THE CONTROL</td>

<td> 2114</td><td> 20765 172701</td><td> SFC 01 SKIP IF DEVICE ISS NOT DONE</td>

<td> 2115</td><td> 20766 170402 DONE</td><td> HET RETURN</td>

0117*

v. 119*

120*L INKAGE AREA

<td> I 9</td><td> 20372</td><td> 163020</td><td> SECD</td><td> OCT 160020</td><td colspan="3"> SELECT CODE</td><td></td>

<td> >125</td><td> 00 105</td><td></td><td> SYNC</td><td> EOU 1058</td><td> SYNC</td><td> ΘΙΤ</td><td> NON -ZERO</td><td> 400 OCTAL</td>

<td colspan="2"> 0142*LINKAGE</td><td colspan="3"> IN INTERPRETER TABLE</td><td></td><td></td><td></td><td></td>

* NO ERRORS* — Continued

<td> CHECK</td><td> 0 0 5 / 7 4</td><td></td><td></td><td> INCM</td><td> 205403</td>

<td> Y /1 L Γ</td><td> , :··’> 314.</td><td></td><td></td><td> SINOT</td><td> 005411</td>

<td> i, I'lNF- M</td><td> 03 5 )17</td><td></td><td></td><td> CKFLT</td><td> 005424</td>

<td> FLICK</td><td> 605333</td><td></td><td> 65</td><td> ZERT</td><td> 005426</td>

<td> F I X .M</td><td> 005354</td><td></td><td></td><td> DIDEC</td><td> 005441</td>

3,859,635

131

132 — Continued — Continued

<td> FROUT</td><td> «05456</td><td></td><td></td><td></td><td></td><td> C-ITCH</td><td> «05626</td>

<td> RESTR</td><td> 005514</td><td></td><td></td><td></td><td> 5</td><td> RSTRT</td><td> 005625</td>

<td> CONTU</td><td> 005522</td><td></td><td></td><td></td><td></td><td> FETCH</td><td> 005627</td>

<td> OUTPT</td><td> 005543</td><td></td><td></td><td></td><td></td><td> GDI</td><td> 005644</td>

<td> ONE</td><td> 000063</td><td></td><td></td><td></td><td></td><td> CHECM</td><td> 005653</td>

<td> Ml</td><td> 000031</td><td></td><td></td><td></td><td rowspan="2"> 10</td><td> REGPT</td><td> 000104</td>

<td> M15</td><td> 005567</td><td></td><td></td><td></td><td> POSCT</td><td> 001754</td>

<td> AR2AD</td><td> 000016</td><td></td><td></td><td></td><td></td><td> OTHRP</td><td> 005661</td>

<td> ARI AD</td><td> 000015</td><td></td><td></td><td></td><td> 15</td><td> BUFFR</td><td> 001775</td>

<td> AH2</td><td> 001754</td><td></td><td></td><td></td><td></td><td> FLGMS</td><td> 005601</td>

<td> ELEVN</td><td> 005572</td><td></td><td></td><td></td><td></td><td> AR2ND</td><td> 001757</td>

<td> FLOAT</td><td> 001776</td><td></td><td></td><td></td><td> POSNR</td><td> 001736</td>

<td> EXPMT</td><td> 001754</td><td></td><td></td><td></td><td></td><td> PRGM</td><td> 005665</td>

<td> CPOS</td><td> 001735</td><td></td><td></td><td></td><td> 25</td><td> NtwPT</td><td> 005/13</td>

<td> P</td><td> 005576 </td><td></td><td></td><td></td><td></td><td> SUBEM</td><td> 005717</td>

<td> THREE</td><td> 000034</td><td></td><td></td><td></td><td rowspan="2"> 30</td><td> MAXP</td><td> 005757</td>

<td> BLANK</td><td> 005572</td><td></td><td></td><td></td><td> ABLNK</td><td> 005760</td>

<td> TEN</td><td> 000104</td><td></td><td></td><td></td><td></td><td> PCTMP</td><td> 001737</td>

<td> M3</td><td> 000077</td><td></td><td></td><td></td><td></td><td> OECMT</td><td> 001735</td>

<td> NORM</td><td> 001723</td><td></td><td></td><td></td><td></td><td> DECPT</td><td> 001754</td>

<td> M INUS</td><td> 000104</td><td></td><td></td><td></td><td></td><td> PAUSE</td><td> 005762</td>

<td> ALLON</td><td> 005601</td><td></td><td></td><td></td><td></td><td> CONST</td><td> 005601</td>

<td> FIFTN</td><td> 005601</td><td></td><td></td><td></td><td></td><td> MAX</td><td> 000055</td>

<td> F H t'F R</td><td> s'<56.'2</td><td></td><td></td><td></td><td> 40</td><td> BITMK * NO</td><td> 000770 ERRORS*</td>

<td></td><td> ?;««? 00017</td><td></td><td></td><td> ORG</td><td> 17 H</td><td colspan="2"> TELLS MONITOR WHERE DISPLAY IS.</td>

<td></td><td> :·,« 0.3 0 0017</td><td> 0056'02</td><td></td><td> DEF</td><td> ENTER</td><td colspan="2"> ENTRY PT FOR DISPLAY.</td>

<td></td><td> .:00 5 0 0257</td><td> 005762</td><td></td><td> DEF</td><td> PAUSE</td><td></td><td></td>

<td></td><td> 0007 «5274</td><td> 020003</td><td> CHECK</td><td> LOA</td><td> 3B</td><td> LOAD</td><td> THE POINTER TO THE REG ADDRESSES</td>

<td></td><td> «008 «5275</td><td> 133571</td><td></td><td> STA</td><td> PTR, I</td><td colspan="2"> REGISTER ADDRESSING.</td>

<td></td><td> «011 «5300</td><td> 020015</td><td></td><td> LDA</td><td> AR1AD</td><td colspan="2"> TRANSFER ARI TO</td>

<td></td><td> «014 25303</td><td> 123577</td><td></td><td> LDA</td><td> IPTR,I</td><td colspan="2"> DOUBLE INDIRECT.</td>

<td></td><td> 0019 25310</td><td> 004106</td><td></td><td> AD0</td><td> TWLVE</td><td></td><td></td>

<td></td><td> «021 25312</td><td> 067317</td><td></td><td> JMP</td><td> UNNRM</td><td></td><td></td>

<td></td><td> «022 05313</td><td> 123577</td><td> SKP1</td><td> LDA</td><td> IPTR,I</td><td colspan="2"> LOAD ADDRESS OF CURRENT REGISTER.</td>

<td></td><td> 3023 25314</td><td> 024016</td><td> YZENT</td><td> LDB</td><td> AR2AD</td><td colspan="2"> TRANSFER THE CURRENT REG</td>

<td></td><td> 2025 25316</td><td> 035737</td><td></td><td> STB</td><td> DI</td><td> SET</td><td> DI TO ANY LARGE NUMBER.</td>

<td></td><td> 0026 25317</td><td> 024015</td><td> UNNRM</td><td> LDB</td><td> AR1AD</td><td colspan="2"> INIT THE REGISTER PTR.</td>

<td></td><td> 0027 05320</td><td> «00015</td><td></td><td> LDA</td><td> ARI AD</td><td> LOAD</td><td> THE ADDRESS OF ARI</td>

3,859,635

133

134 — Continued

<td> 0028</td><td> 05321</td><td> 170000</td><td> CLR</td><td> INSURE NO NON BCD CODRS FOR ROUNDING</td>

<td></td><td> Z5323</td><td> 02 36 >j 1</td><td> lua rIFTN</td><td> INITIALIZE the DISPLAY</td>

<td> 0031</td><td> 0 53 24</td><td> 133576</td><td> STA P,I</td><td> CHARACTER COUNTER.</td>

<td> 0032</td><td> 05325</td><td> 020023</td><td> LDA MS</td><td> INITIALIZE THE POSITION COUNTER</td>

<td> 3033</td><td> 05326</td><td> 031736</td><td> STA POSNR</td><td></td>

<td> Z 0 3 4</td><td> 05327</td><td> 021776</td><td> LDA FLOAT</td><td> LOAD THE STATUS WORD</td>

<td> 0035</td><td> 05330</td><td> 050027</td><td> AND 278</td><td> ISOLATE THE MAIN MODE</td>

<td> 0037</td><td> 05332</td><td> 067665</td><td> JMP PRGM</td><td> JUMP TO PROG DISPLAY</td>

<td> Ζ03Θ</td><td> 05333</td><td> 025754 FLTCK</td><td> LD8 AR2</td><td> LOAD THE EXPONENT WORD</td>

<td> 0039</td><td> 05334</td><td> 074340</td><td> A8R 8</td><td> SHIFT DOWN</td>

<td> J040</td><td> 05335</td><td> 035754</td><td> STB EXPNT</td><td> STORE FOR NOW</td>

<td> z 041</td><td> 05336</td><td> 021776</td><td> LDA FLOAT</td><td></td>

<td> 3042</td><td> 05337</td><td> 070253</td><td> SAP DSET2</td><td> SKIP IF IN FLOATING PT.</td>

<td> 0043</td><td> 05340</td><td> 020106 DSET</td><td> LDA TWLVE</td><td></td>

<td> 0045</td><td> 05342</td><td> 027572</td><td> LDB ELEVN</td><td></td>

<td> 0047</td><td> 05344</td><td> 053601 DSET2</td><td> AND ALLON</td><td></td>

<td> 3054</td><td> 05353</td><td> 071253</td><td> SAP DSET</td><td> SKIP FI NO OVERFLOW.</td>

<td> 0055</td><td> 05 354</td><td> 023574 FI.XM</td><td> LDA FIVE</td><td> ROUNDING COUNT.</td>

<td> 0 058</td><td> 05357</td><td> 070415</td><td></td><td> SEC</td><td> TEST</td><td> OVERFLOW?</td>

<td> v; 059</td><td> /5360</td><td> <>4 5754</td><td></td><td> ISZ</td><td> EXPNT</td><td> INCREMENT THE EXPONENT</td>

<td> 0060</td><td> ' 5361</td><td> 06 /362</td><td></td><td> JMP</td><td> »»1</td><td> DUMMY JUMP FOR -1 EXPNT</td>

<td> 0067</td><td> 05370</td><td> 010106</td><td></td><td> CPA</td><td> TWLVE</td><td> BYPASS BLANKS IF IN FLOATING PT.</td>

<td> 0075</td><td> 25400</td><td> 074153</td><td></td><td> S8P</td><td> *♦3</td><td> (15-CPOS)>(13-DEC) . OUTPUT (13-DEO-l BLMKS</td>

<td> 0078</td><td> 05403</td><td> 070070</td><td> TNCM</td><td> SIA</td><td> *♦1</td><td> (13-DEC)>=(15-CPOS). OUTPUT (15-CPOS)-1 BLKS</td>

<td> 0080</td><td> 25405</td><td> 023572</td><td> ZOUT</td><td> LDA</td><td> BLANK</td><td></td>

<td> 0081</td><td> 05406</td><td> 063543</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

<td> 0086</td><td> 05413</td><td> 023572</td><td></td><td> LOA</td><td> BLANK</td><td></td>

<td> 0088</td><td> 05415</td><td> 020104</td><td></td><td> LDA</td><td> MINUS</td><td></td>

<td> 0089</td><td> 05416</td><td> 063543</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

<td> 0093</td><td> 05422</td><td> 021754</td><td></td><td> LDA</td><td> EXPNT</td><td></td>

<td> 0094</td><td> 05423</td><td> 070453</td><td></td><td> SAP</td><td> DIGOT</td><td></td>

<td> 0095</td><td> 05424</td><td> 021776</td><td> CKFLT</td><td> LDA</td><td> FLOAT</td><td></td>

3,859,635

135

136 — Continued

<td> 10096</td><td> 0 5425</td><td> 070352</td><td> SAM</td><td> DIGOT</td>

<td> 0090</td><td> 05427</td><td> 063543</td><td> JSM</td><td> OUTPT</td>

<td> 0099</td><td> 05430</td><td> 045754</td><td> ISZ</td><td> EXPNT</td>

<td> 0102</td><td> 05433</td><td> 067441</td><td> JMP</td><td> DIDEC</td>

<td> 0103</td><td> »5434</td><td> 171400 DIGOT</td><td> MLS</td><td></td>

<td> 0104</td><td> »5435</td><td> 063543</td><td> JSM</td><td> OUTPT</td>

<td> 0106</td><td> »5437</td><td> 010034</td><td> CPA</td><td> THREE</td>

<td> 0107</td><td> »5440</td><td> 067456</td><td> JMP</td><td> FROUT</td>

<td> 0108</td><td> 05441</td><td> 055737 DIDEC</td><td> DSZ</td><td> DI</td>

<td> 0109</td><td> «5442</td><td> 067434</td><td> JMP</td><td> DIGOT</td>

TO DSZ DI.

TO FLOAT PT ROUTINE.

IF DEC NOT OUT» PUT OUT A ZERO.

<td> «121</td><td> 05456</td><td> 123575</td><td> FROUT LDA</td><td> DEC» I</td>

<td> 0124</td><td> 05461</td><td> 025754</td><td> LOB</td><td> EXPNT</td>

<td> »125</td><td> «5462</td><td> 02.3572</td><td> LDA</td><td> BLANK</td>

<td> 0 127</td><td> «5464</td><td> 020104</td><td> LOA</td><td> MINUS</td>

<td> 0128</td><td> «5465</td><td> 063543</td><td> JSM</td><td> OUTPT</td>

<td> 0129</td><td> «5466</td><td> 021754</td><td> LDA</td><td> EXPNT</td>

<td> 0134</td><td> «5473</td><td> 035754</td><td> STB</td><td> DECPT</td>

<td> 0138</td><td> «5477</td><td> 043572</td><td> I0R</td><td> BLANK</td>

<td> «140</td><td> 25501</td><td> «24104</td><td> LOB</td><td> REGPT</td>

<td> 0149</td><td> 2 5512</td><td> 367514</td><td> JMP</td><td> RESTR</td>

<td> 0150</td><td> «5513</td><td> 067314</td><td> JMP</td><td> YZENT</td>

<td> 0151</td><td> 25514</td><td> 120102</td><td> RESTR LDA</td><td> 102B.T</td>

<td> 2157</td><td> «5522</td><td> 125734</td><td> CONTU LDB</td><td> REG» I</td>

<td> 0161</td><td> «5526</td><td> 021776</td><td> LDA</td><td> FLOAT</td>

OUTPUT ZEROS ON NUMB ENTRY.

KEEP DI AT ZERO WHILE OUTPUT BLANKS

ZERO IF OVERFLOW QR FT. PT.

EVEN DISPLAY FILE.

LD THE ADDRESS OF NEXT REGISTER. CHECK IF DONE YES»TREMINATE NO»CONSIDER THE NEXT REGISTER

SKIP IF IN PROG MODE CHECK DECIMAL POSITION.

3,859,635

138

137

<td> .: 1 70</td><td> £5637</td><td> /557 I f</td><td></td><td> DSZ</td><td> SSP</td><td> DONE, DECREMENT THE STACK POINTER</td>

<td> „1 74</td><td> l-:5S«>3</td><td> 04573ο</td><td> OUTPT</td><td> IbZ</td><td> POSNR</td><td></td>

<td> ,: 1 75</td><td> £554 4</td><td> 067522</td><td></td><td> JMP</td><td> CONTU</td><td></td>

<td> 2 177</td><td> 055/,6</td><td> 035736</td><td></td><td> SIB</td><td> POSNR</td><td></td>

<td> 2179</td><td> £5550</td><td> 067522</td><td></td><td> JMP</td><td> CONTU</td><td></td>

<td> £191</td><td> £5564</td><td> 004000</td><td></td><td> OCT</td><td> 4000</td><td> MINUS</td>

<td> 219?</td><td> £5565</td><td> 000000</td><td></td><td> OCT</td><td> 0</td><td> BLANK</td>

<td> 2193</td><td> £5566</td><td> 000200</td><td></td><td> OCT</td><td> 200</td><td> DECIMAL</td>

<td> 0198</td><td> £0106</td><td></td><td> TWLVE</td><td> EQU</td><td> 1068</td><td></td>

<td> £203</td><td> £5572</td><td> 000013</td><td> ELEVN</td><td> DEC</td><td> 11</td><td></td>

<td> £207</td><td> £1776</td><td></td><td> FLOAT</td><td> EQU</td><td> 1776B</td><td></td>

<td> 0211</td><td> £1754</td><td></td><td> EXRNT</td><td> EQU</td><td> 1754B</td><td></td>

<td> 2217</td><td> 0 0034</td><td></td><td> THREE</td><td> EQU</td><td> 34B</td><td></td>

<td> £218</td><td> £5572</td><td></td><td> BLANK</td><td> EQU</td><td> ELEVN</td><td></td>

<td> £219</td><td> £0106</td><td></td><td> DOT</td><td> EGU</td><td> TWLVE</td><td></td>

<td> £224</td><td> 00 104</td><td></td><td> MINUS</td><td> EOU</td><td> TEN</td><td></td>

2'225 (-)8/01 7 ALLON DEC 15 •?226 Ζ5601 FTFIi-l EOU AI..LON

1'1777 SSi M.U I 7/713 . ‘ r' K ?··Λ

«.22m £56/2 ?\76·;53 ENIER SPP 9+i,$ <23/ /66.)3 3/,7/5 STB 1 775H

3,859,635

139 140 — Continued

<td> £232</td><td> 0 5605</td><td> 36 3274</td><td></td><td> JSM</td><td> CHECK</td><td></td>

<td> 3233</td><td> £ 5606</td><td> 021775</td><td> CATCH</td><td> l LDA</td><td> BUFFR</td><td> CHECK BUFFER TO SPEED UP MARKED CARO</td>

<td> £234</td><td> 1'560 7</td><td> 070153</td><td></td><td> SAP</td><td> “ + 3</td><td> PROCESSING.</td>

<td> £235</td><td> 05610</td><td> 063617</td><td></td><td> JSM</td><td> DPASS</td><td></td>

<td> £2 36</td><td> £561 1</td><td> 067606</td><td></td><td> JMP</td><td> CATCH</td><td></td>

<td> ^237</td><td> £5612</td><td> £21776</td><td></td><td> LDA</td><td> FLOAT</td><td rowspan="2"> CLEAR ERROR CONDITION.</td>

<td> 0239</td><td> £5614</td><td> 031776</td><td></td><td> STA</td><td> FLOAT</td><td rowspan="2"> STORE ERRORLESS STATUS WORD.</td>

<td> 3240</td><td> £ 56 15</td><td> 021775</td><td></td><td> LDA</td><td> BUFFR</td>

<td> 2 24? 3243</td><td> £5617 £5620</td><td> 02.3661 031757</td><td> DPASS</td><td> LDA STA</td><td> OTHRP DPTR</td><td> ENTRY POINT DOES NOT CAAL DISPLAY BUILDER</td>

<td> £248</td><td> £5625</td><td> 070742</td><td> RSTRT</td><td> SAP</td><td> 16</td><td></td>

<td> £249</td><td> £5626</td><td> 031754</td><td></td><td> STA</td><td> POSCT</td><td></td>

<td> 2 250</td><td> £5627</td><td> 121756</td><td> FETCH</td><td> LDA</td><td> DREG.I</td><td></td>

<td> £25 3</td><td> £5632</td><td> '35 3601</td><td></td><td> AND</td><td> ALLON</td><td></td>

<td> £25 7</td><td> 35636</td><td> £41754</td><td></td><td> IOR</td><td> POSCT</td><td></td>

<td> £263 3 264.</td><td> 05644 £5645</td><td> 025754 0176'01</td><td> G01</td><td> LDB CPB</td><td> POSCT ALLON</td><td> THIS IS A FILLER TO EVEN DISP. TIMES.</td>

<td> £265</td><td> «5646</td><td> 067653</td><td></td><td> JMP</td><td> CHECM</td><td></td>

<td> £266</td><td> £5647</td><td> 17.3750</td><td></td><td> CLF</td><td> 8</td><td> DISABLE DISPLAY.</td>

<td> 0267</td><td> «5650</td><td> 172150</td><td> GO</td><td> OTA</td><td> Θ</td><td rowspan="2"> OUTPUT DATA TO DISPLAY.</td>

<td> 0268</td><td> £5651</td><td> 045754</td><td></td><td> ISZ</td><td> POSCT</td>

<td> £269</td><td> £5652</td><td> 067627</td><td></td><td> JMP</td><td> FETCH</td><td></td>

<td> 0270</td><td> '15653</td><td> 173750</td><td> CHECH</td><td> CLF</td><td> 8</td><td rowspan="2"> KEEP DISPLAY TIMES REL. CONSTANT.</td>

<td> £273</td><td> «5656</td><td> 017665</td><td></td><td> CPB</td><td> OTHRP+4</td><td></td>

<td> 0274</td><td> £5657</td><td> 170402</td><td></td><td> RET</td><td></td><td rowspan="2"> TERMINATE DISPLAY MANIP.</td>

<td> 0275</td><td> £5660</td><td> 067625</td><td></td><td> JMP</td><td> RSTRT</td>

<td> £276 .0277</td><td> £0104 £1754</td><td></td><td> REGPT POSCT</td><td> EQU EQU</td><td> TEN 1754(3</td><td> USED FOR DISPLAY FILE ADDRESSING.</td>

<td> £281</td><td> 05661</td><td> 005662</td><td> OTHRP</td><td> DEF</td><td> »♦1</td>

<td> £2 86</td><td> £560 1</td><td></td><td> FLGMS</td><td> EQU</td><td> ALLON</td>

<td> £291</td><td> £1736</td><td></td><td> POSNR</td><td> EQU</td><td> 1736B</td>

<td> £292</td><td> £5601</td><td></td><td> MASK</td><td> EQU</td><td> ALLON</td>

<td> 0296</td><td> 05666</td><td> 031754</td><td></td><td> STA</td><td> DECPT</td>

X REG SELECT.

REG select.

MASK IS 15 FOR FIX/FLOAT.

SHOWS WHAT POWER OF TEN TO USE LOAD THE PROG COUNTER

CHECK FOR OVERFLOW

SKIP IF IT DID NOT OVERFLOW LOAD VALUE OF MAX PERMIS PC

3,859,635

141

142 — Continued

<td> «301</td><td> 05673</td><td> 035701</td><td> STB</td><td> PC</td><td> STORE IT</td>

<td> «333</td><td> «5675</td><td> 000023</td><td> ADA</td><td> M5</td><td> TRICKY FORMULA TO COMPUTE WHAT</td>

<td> ri 304</td><td> «5676</td><td> 070076</td><td> TCA</td><td></td><td> VALUE OF PC TO USE.</td>

<td> «305</td><td> «5677</td><td> 025707</td><td> LDB</td><td> 1707B</td><td> CONVERT ABS PC TO RELATIVE.</td>

<td> 0 3-38</td><td> «5702</td><td> 031737</td><td> STA</td><td> PCTMP</td><td> TEMP PC.</td>

<td> 0311</td><td> «5705</td><td> 023760</td><td> LDA</td><td> AHLNK</td><td></td>

<td> «316</td><td> «5712</td><td> 067514</td><td> JMP</td><td> RESTR</td><td></td>

<td> «317</td><td> 05713</td><td> 125754</td><td> NEWPT LDB</td><td> DECPT, I</td><td></td>

<td> 0318</td><td> «5714</td><td> 035735</td><td> STB</td><td> DECMT</td><td></td>

<td> «320</td><td> «5716</td><td> 074742</td><td> SBR</td><td> 16</td><td> SKIP TO OUT IF LOOP IS ENDED.</td>

<td> «321</td><td> «5717</td><td> 021735</td><td> SUBEM ADA</td><td> DECMT</td><td></td>

<td> 0 324</td><td> «5722</td><td> 067717</td><td> JMP</td><td> SUBEM</td><td></td>

<td> 0 325</td><td> 05723</td><td> 031735</td><td> STA</td><td> DECMT</td><td></td>

<td> 0327</td><td> «5725</td><td> 063543</td><td> jsm</td><td> OUTPT</td><td></td>

<td> « 3 2 8</td><td> 05726</td><td> 021735</td><td> LDA</td><td> DECMT</td><td></td>

<td> 0330</td><td> «5730</td><td> 101754</td><td> ADA</td><td> DECPT,I</td><td></td>

<td> 0332</td><td> «5732</td><td> 045754</td><td> ISZ</td><td> DECPT</td><td></td>

<td> 0 333</td><td> «5733</td><td> 067713</td><td> JMP</td><td> NEWPT</td><td></td>

<td> 0335</td><td> «5735</td><td> 035735</td><td> STB</td><td> DECMT</td><td></td>

<td> «336</td><td> «5736</td><td> 020104</td><td> BOUT ' LDA</td><td> MINUS</td><td></td>

<td> 3 3 37</td><td> /'>7 37</td><td> 56^543</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

<td> V, 3 3 3</td><td> / 5 7 '41 ’</td><td> /.4 5 / 15</td><td></td><td> ISZ</td><td> DECMT</td><td></td>

<td> 1. 340</td><td> 115 74 2</td><td> 12 I 7 37</td><td></td><td> LDA</td><td> PC IMP ,</td><td> I HAS OUTPUTTED ALL BLANKS,</td>

<td> .13-( I</td><td> « 5743</td><td> 3 7-,1102</td><td></td><td> SAR</td><td> 3</td><td> NOW WORK ON OCTAL VALUES</td>

<td> «34?</td><td> «5744</td><td> -36 3543</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

<td> 2 34 3</td><td> 05745</td><td> 121737</td><td></td><td> LDA</td><td> PCTMP,</td><td> I</td>

<td> 0 345</td><td> «5747</td><td> '36 3543</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

<td> 3 346</td><td> «5750</td><td> 023572</td><td></td><td> LOA</td><td> BLANK</td><td></td>

<td> «347</td><td> «5751</td><td> «63543</td><td></td><td> JSM</td><td> OUTPT</td><td> NEATEN DESPLAY.</td>

<td> «34 9</td><td> «5753</td><td> 176030</td><td></td><td> DEC</td><td> -1000</td><td> 4 DIGIT ADDRESSING.</td>

<td> «354</td><td> «5760</td><td> 135673</td><td> ABLMK</td><td> OCT</td><td> 135673</td><td></td>

<td> «356</td><td> «1737</td><td></td><td> PCTMP</td><td> EGU</td><td> DI</td><td></td>

<td> «357</td><td> «17 35</td><td></td><td> DECMT</td><td> F.OU</td><td> CPOS</td><td></td>

<td> «358</td><td> «1754</td><td></td><td> DECPT</td><td> ECU</td><td> EXPNT</td><td></td>

<td> «360</td><td> 0'576?</td><td> 173741</td><td> PAUSE</td><td> CLF</td><td> 01</td><td> ENABLE INTERRUPT.</td>

<td> «36 1</td><td> 0 5 763</td><td> 06.3274</td><td></td><td> JSM</td><td> CHECK</td><td> BUILD DISPLAY LIST.</td>

<td> «36?</td><td> «5764</td><td> 021775</td><td></td><td> LDA</td><td> 1775B</td><td> LOAD INPUT BUFFER.</td>

<td> «364</td><td> «5 7 66</td><td> ¢164161</td><td></td><td> JMP</td><td> 161B</td><td> JMP STOP ROUTINE.</td>

<td> 0 365</td><td> 05767</td><td> ri 2 1631</td><td></td><td> i.DA</td><td> CONST</td><td></td>

<td> 036 7</td><td> «5771</td><td> 06 3617</td><td></td><td> JSM</td><td> OPASS</td><td></td>

<td> 0 3 70</td><td> 05774</td><td> 172741</td><td></td><td> STF</td><td> 01</td><td> TURN OFF INTERRUPT.</td>

<td> — Continued</td><td> 144</td>

<td> 237?</td><td> 05601 CONST EQU</td><td> FIFTN</td><td></td>

<td> 0374</td><td> 05776 167777 CEHR OCT</td><td> 167777 ERROR MASKING.</td><td></td>

<td> * NO</td><td> ERRORS*</td><td> — Continued</td><td></td>

<td></td><td></td><td> ,0 MANPT 016616</td><td></td>

<td></td><td></td><td> NORML 016627</td><td></td>

<td> clean</td><td> 016374</td><td> SET 016646</td><td></td>

<td> MAJFC</td><td> 016407</td><td>20 CKM1 016656</td><td></td>

<td> GETIT</td><td> 016447</td><td> STRT1 016660</td><td></td>

<td> SERCH</td><td> 000662</td><td> EOUT 016667</td><td></td>

<td> HERE</td><td> 016451</td><td> SPICE 016670</td><td></td>

<td> RETUR</td><td> 016470</td><td> ENDM 016002</td><td></td>

<td> PRTEM</td><td> 016472</td><td> KEYLG 016674</td><td></td>

<td> SPACE</td><td> 016501</td><td> 25 xORK 016712</td><td></td>

<td> ICHCK</td><td> 016511</td><td> FRCM1 316731</td><td></td>

<td> OUTWD</td><td> 001737</td><td> MSKA 200770</td><td></td>

<td> GROUP</td><td> 016532</td><td> ROT 616733</td><td></td>

<td> POS</td><td> 016533</td><td> UNROT 016736</td><td></td>

<td> ADDRS</td><td> 001735</td><td>35 KEYCG 1*16743</td><td></td>

<td> TEMP</td><td> 001734</td><td> THREE 000034</td><td></td>

<td> YDIS</td><td> 000013</td><td> 40 FLOAT 301776</td><td></td>

<td> ROTWD</td><td> 016540</td><td> ABLMK 016751</td><td></td>

<td> SIX</td><td> 016541</td><td> CHECK 016752</td><td></td>

<td> TBL.</td><td> 016542</td><td> SECUR 000111</td><td></td>

<td> CODBL</td><td> 016552</td><td> - * NO· ERRORS* 45</td><td></td>

<td> ;,z *p«</td><td> RASIC PI-INI ROUTINE.</td>

<td> ><>·</td><td> /,0113 0171674 UEF KEYLG KEYLOG ENTRY.</td>

<td> .’6</td><td> /0304 016650 DEF LISTM LIST ENTRY.</td>

<td> 00 2 7</td><td> 00305 316743 DEF KEYCG BIT DIDDLER ENTRY FOR DEYLOG.</td>

<td> 9</td><td> 00245 016616 DEF MANPT PRINTER ENTRY.</td>

<td> £011</td><td> 10007 016447 DEF GETIT FOR ALPHA PRINT ROUTINES</td>

<td> £013</td><td> 10023 216633 DEF NMBR FOR ALPHA PRINT ROUTINES</td>

<td> £015</td><td> 16374 177760 CLEAN OCT 177760 MOVE THESE TO MAG CARD AREA.</td>

<td> 0016</td><td> 16375 3'30273 RLNKM OCT 273</td>

<td> 0017</td><td> 16376 000015 THRTN DEC 13</td>

<td> 0019</td><td> 16377 370742 PRINT SAR 16</td>

<td colspan="6"> 145</td><td colspan="2"> 3,859,635 146 — Continued</td>

<td> 0v>20</td><td> 16400</td><td> 132534</td><td></td><td> STA</td><td> I,I I</td><td>=</td><td> VARIABLE SETTING SEVEN LINES FOR PRINTER.</td>

<td> 0 021</td><td> 16421</td><td> 070742</td><td> PR I NN</td><td> SAR</td><td> 16</td><td></td><td> DIFFERENT ENTRY POINTS DEP. ON FUNCTION .</td>

<td> 0 222</td><td> 16402</td><td> 132532</td><td></td><td> STA</td><td> GROUP,</td><td> I</td><td> 1 OF 4 CHRA GROUPS.</td>

<td> 2023</td><td> 16403</td><td> 070742</td><td> KILEM</td><td> SAR</td><td> 16</td><td></td><td> CHAR POS WITHIN</td>

<td> 2024</td><td> 16404</td><td> 132533</td><td></td><td> STA</td><td> POS,I</td><td></td><td> A GROUP.</td>

<td> 0 0 25</td><td> 16425</td><td> 373742</td><td> KILWD</td><td> SAR</td><td> 16</td><td></td><td></td>

<td> 0026</td><td> 164 0 6</td><td> 031737</td><td></td><td> STA</td><td> OUTWD</td><td></td><td> WORD TO OUTPUT TO PRINTER.</td>

<td> 2 02 7</td><td> 16407</td><td> 034013</td><td> MAJFC</td><td> LD8</td><td> YDIS</td><td></td><td> ADDRESS OF Y DISPLAY LIST.</td>

<td> 2028</td><td> 16410</td><td> 106532</td><td></td><td> ADB</td><td> GROUP,</td><td> I</td><td></td>

<td> 0029</td><td> 1641 1</td><td> 074517</td><td></td><td> LOA</td><td> 8,1</td><td></td><td> GETS CHARACTER FROM DISP FILE.</td>

<td> 0231</td><td> 16413</td><td> '374557</td><td></td><td> STA</td><td> 8,1</td><td></td><td> PUT IT BACK REPOSITIONED.</td>

<td> 0,0 32</td><td> 164 14</td><td> 052537</td><td></td><td> AND</td><td> MSK</td><td></td><td> ISOLATE CHAR.</td>

<td> 00 33</td><td> 16415</td><td> 031736</td><td></td><td> STA</td><td> CHAR</td><td></td><td> SAVE TEMPORARILY.</td>

<td> 00 .14</td><td> 16416</td><td> 070137</td><td></td><td> LDB</td><td> A</td><td></td><td> COMPUTE BASE ADDRESS OF CHAR. CODE.</td>

<td> 2 v) 3 6</td><td> 16420</td><td> 074071</td><td></td><td> SLB</td><td> **1,C</td><td></td><td> FORMS CHAR -1 FOR ODD CHARS.</td>

<td> 0038</td><td> 16422</td><td> 370002</td><td></td><td> SAR</td><td> 1</td><td></td><td> NOW HAVE OFFSET</td>

<td> 20 39</td><td> 16423</td><td> 002552</td><td></td><td> ADA</td><td> CODBL</td><td></td><td> START OF CODE TABLE.</td>

<td> 0040</td><td> 16424</td><td> 031735</td><td></td><td> STA</td><td> ADDRS</td><td></td><td> ADDRESS OF BYTE OF CODE FOR THIS CHAR.</td>

<td> 0W42</td><td> 16426</td><td> 022542</td><td></td><td> LDA</td><td> TBL</td><td></td><td> OFFSET TABLE.</td>

<td> 0044</td><td> 1643H</td><td> 070517</td><td></td><td> LDA</td><td> A,I</td><td></td><td> GETS EVEN ODO INSTRUCTIONS.</td>

<td> 2046</td><td> 16432</td><td> 070404</td><td></td><td> SAL</td><td> 8</td><td></td><td> EFFECTIVE MALSK.</td>

<td> 0 048</td><td> 16434</td><td> 031734</td><td></td><td> STA</td><td> TEMP</td><td></td><td> SAVE FOR EXTRACTION.</td>

<td> 0 050</td><td> 164 36</td><td> 001735</td><td></td><td> ADA</td><td> ADDRS</td><td></td><td> ACTUAL ADDRESS OF OF PTR CODE.</td>

<td> 0051</td><td> 16437</td><td> 07 053 7</td><td></td><td> LOB</td><td> Λ, I</td><td></td><td>11 ACTUAL PTR CODE.</td>

<td> 0052</td><td> 16440</td><td> 021734</td><td></td><td> LDA</td><td> TEMP</td><td></td><td> RESTORE ROTATION WORD.</td>

<td> 0054</td><td> 16442</td><td> 070544</td><td></td><td> SAL</td><td> 5</td><td colspan="2"> SETS ROTATION CODE.</td>

<td> 0 055</td><td> 16443</td><td> 342540</td><td></td><td> TOR</td><td> ROTWO</td><td></td><td> FORMS RBR N.</td>

<td> 0056</td><td> 16444</td><td> 070016</td><td></td><td> EXA</td><td></td><td></td><td> POSITIONS B.</td>

<td> 0257</td><td> 1,6445</td><td> 136535</td><td></td><td> STB</td><td> BUF , I</td><td></td><td> SAVES PRINT CODE</td>

<td> (-,358</td><td> 1 ( 4 4 6</td><td> 0225 36</td><td></td><td> LDA</td><td> 0CT42</td><td></td><td> FMf SEARCH</td>

<td> :-159</td><td> 164-,7</td><td> v) 6 ·.} (i h d</td><td> GE I I T</td><td> JSM</td><td> SERCH</td><td></td><td> FINDS ROUTINE</td>

<td> ; <60</td><td> 1 64 5 0</td><td> 126535</td><td></td><td> LDB</td><td> HUF, I</td><td></td><td> RESTORE B</td>

<td> <06 1</td><td> 4 ’ 6 ¢, 2</td><td></td><td> SERCh</td><td> ECU</td><td> 6628</td><td></td><td> ROUTINE THAI CHECKS FOR OPTIONAL BLOCKS</td>

<td> 2063</td><td> 16452</td><td> 074202</td><td></td><td> SBR</td><td> 5</td><td></td><td> MASK AND SET UP FOR POSITIONING.</td>

<td> <067</td><td> 16456</td><td> 321737</td><td></td><td> LDA</td><td> OUTWD</td><td></td><td> GETS OUTPT WORD</td>

<td> 0 069</td><td> 16460</td><td> 031737</td><td></td><td> STA</td><td> OUTWD</td><td></td><td></td>

<td> 00 Z0</td><td> 16461</td><td> 126533</td><td></td><td> LDB</td><td> POS,I</td><td></td><td> CHECK IF TIME TO OUTPUT.</td>

<td> 2071</td><td> 16462</td><td> 374311</td><td></td><td> SLB</td><td> RETUR</td><td></td><td> IF POS = 0 OR 2 DO NOT OUTPUT.</td>

<td> 00 72</td><td> 16463</td><td> 314034</td><td></td><td> CP8</td><td> THREE</td><td></td><td></td>

<td> 20 73</td><td> 16464</td><td> 066472</td><td></td><td> JMP</td><td> PRTEM</td><td></td><td> POS =3, GO OUTPUT WORD WITH PEN.</td>

<td> 2074</td><td> 16465</td><td> 031754</td><td></td><td> STA</td><td> HOLO</td><td></td><td> SAVE FOR LATER OUTPUT.</td>

<td> 0076</td><td> 16467</td><td> 066435</td><td></td><td> JMP</td><td> KILWD</td><td></td><td></td>

<td> 2077</td><td> 16470</td><td> 146533</td><td> RETUR</td><td> ISZ</td><td> POS,I</td><td></td><td> INCREMENT POS, FROM 0 OR 2. GROUP = CONST</td>

<td> 2078</td><td> 16471</td><td> 066407</td><td></td><td> JMP</td><td> MAJFC</td><td></td><td></td>

<td> 0 2 79</td><td> 164 72</td><td> 142532</td><td> PRTEM</td><td> IOR</td><td> GROUP,</td><td> I</td><td></td>

<td> 0080</td><td> 164 73</td><td> 062516</td><td></td><td> JSM</td><td> OUTK</td><td></td><td> OUTPUT AND WAIT FOR FLAG.</td>

<td> 0 081</td><td> 164 74</td><td> 122532</td><td></td><td> LDA</td><td> GROUP,</td><td> I</td><td></td>

<td> 2083</td><td> 16476</td><td> 070553</td><td></td><td> SAP</td><td> ICHCK</td><td></td><td> SOFTWARE PRINTER PROTECTION.</td>

<td> 0084</td><td> 164 77</td><td> 146532</td><td></td><td> ISZ</td><td> GROUP,</td><td> I</td><td></td>

<td> 0085</td><td> 16500</td><td> 066403</td><td></td><td> JMP</td><td> KTLEM</td><td></td><td></td>

<td> 0086</td><td> 16501</td><td> 026365</td><td> SPACE</td><td> LDB</td><td> 163658</td><td></td><td> SPACE THREE LINES.</td>

<td> 0 088</td><td> 16503</td><td> 031754</td><td></td><td> STA</td><td> HOLD</td><td></td><td> SAVE FOR LATER OUTPUT.</td>

147

148

3,859,635 — Continued

<td> 0089</td><td> 16S04</td><td colspan="2"> 142532</td><td> IOR</td><td colspan="2"> GROUP. I</td>

<td> 0090</td><td> 16505</td><td> 062516</td><td></td><td> JSM</td><td> OUTK</td><td> OUTPUT AND WAIT FOR FLAGS.</td>

<td> 0094</td><td> 16511</td><td> 122534</td><td> ICHCK</td><td> LDA</td><td> 1.1</td><td></td>

<td> 0096</td><td> 16513</td><td> 066501</td><td></td><td> JMP</td><td> SPACE</td><td></td>

<td> 0098</td><td> 16515</td><td> 066401</td><td></td><td> JMP</td><td> PRINN</td><td></td>

<td> 0099</td><td> 16516</td><td> 035737</td><td> OUTK</td><td> STB</td><td> OUTWD</td><td> SAVE CONTENTS OF B REG. HAS SPACING INFO</td>

<td> 0100</td><td> 16517</td><td> 024060</td><td></td><td> LDB</td><td> 60S</td><td> GET DELAY.</td>

<td> W101</td><td> 16520</td><td> 172504</td><td></td><td> SFS</td><td> 4</td><td> SKIP IF PRINTER NOT READY.</td>

<td> 0132</td><td> 16521</td><td> 066525</td><td></td><td> JMP</td><td> OK</td><td> PRINTER READY, OUTPUT STUFF.</td>

<td> U03</td><td> 16522</td><td> 077730</td><td></td><td> RIB</td><td> »-2</td><td> TIME NOT UP, CHECK PTF AGAIN.</td>

<td> 0104</td><td> 16523</td><td> 062736</td><td></td><td> JSM</td><td> UNROT</td><td> TIME UP, RESTORE STATUS.</td>

<td> 0105</td><td> 16524</td><td> 064161</td><td></td><td> JMP</td><td> STOP</td><td> AND STOP EVERYTHING.</td>

<td> 0 107</td><td> 16526</td><td> 176141</td><td></td><td> OTB</td><td> 1</td><td> OUTPUT FIRST GROUP.</td>

<td> 0 108</td><td> 16527</td><td> 172.144</td><td></td><td> OTA</td><td> 4</td><td> OUTPUT 2ND GROUP, WITH PEN.</td>

<td> /,109</td><td> 16530</td><td> 025737</td><td></td><td> LDB</td><td> OUTWD</td><td> RESTORE 0 REGISTER.</td>

<td> 0111</td><td> 01754</td><td></td><td> HOLD</td><td> EQU</td><td> 17540</td><td> TEMP LOCATION FOR PRINTER CODE.</td>

<td> 1 14</td><td> 16532 «12003</td><td> GROUP</td><td> OCT</td><td> 12003</td>

<td> . i 17</td><td> 'Z 1 7.35</td><td> AUDRS</td><td> ECU</td><td> 1735B</td>

<td> J 122</td><td> 0 0013</td><td> YDIS</td><td> EQU</td><td> 138 ADDRS OF Y ISPLAY LIST</td>

<td> /124</td><td> 16540 074006</td><td> ROTWD</td><td> OCT</td><td> 74006</td>

<td> 0129</td><td> 16552 016553</td><td> CODBL</td><td> DEF</td><td> *+l</td>

3,859,635

149

150 — Continued

<td> i 1 39</td><td> 16616</td><td> 162752</td><td> MANPT</td><td> JSM</td><td> CHECK, I</td><td></td><td></td>

<td> .:. 1 4 ?</td><td> 16 621</td><td> 270331</td><td></td><td> SLA</td><td> 110-. ML, C</td><td> LSB = 1 IF UNNORMAL IZEO.</td><td></td>

<td> 0145</td><td> 16624</td><td> 052374</td><td></td><td> AND</td><td> CLEAN</td><td> GET SET TO INSET E IS DIS LIST.</td><td></td>

<td> 0146</td><td> 16625</td><td> 042376</td><td></td><td> IOR</td><td> THRTN</td><td></td><td></td>

<td> 0148</td><td> 16627</td><td> 020012</td><td> NORML</td><td> LOA</td><td> XDIS</td><td></td><td></td>

<td> 2150</td><td> 16631</td><td> 031720</td><td></td><td> STA</td><td> 1720B</td><td> RESET THE CHANGE SIGN FLAG</td><td></td>

<td> 0152</td><td> 16633</td><td> 062377</td><td> NMBR</td><td> JSM</td><td> PRINT</td><td></td><td></td>

<td> 0153</td><td> 16634</td><td> 062736</td><td></td><td> JSM</td><td> UNROT</td><td></td><td></td>

<td> 0155</td><td> 16636</td><td> 010110</td><td></td><td> CPA</td><td> PRNT</td><td> IS IT A PRINT KEY?</td><td></td>

<td> 0157</td><td> 16640</td><td> 124103</td><td></td><td> LOB</td><td> 103B.I</td><td> LOAD THE EXECUTE FLAG.</td><td></td>

<td> 0158</td><td> 16641</td><td> 076150</td><td></td><td> RZB</td><td> *♦3</td><td> SKIP IF EXECUTING A PROG</td><td></td>

<td> 0159</td><td> 16642</td><td> 055777</td><td></td><td> DSZ</td><td> 1777Θ</td><td> DECREMENT THE SYSTEM STACK</td><td></td>

<td> 0161</td><td> 16644</td><td> 055701</td><td></td><td> DSZ</td><td> 17018</td><td> DEC STACK PTR, RET. AVIOOS EXECUTING</td><td> NEXT</td>

<td> 0162</td><td> 16645</td><td> 170402</td><td></td><td> RET</td><td></td><td> KEY AFTER SEQUENCES OF PRINTS ON STEP</td><td> PRGM</td>

<td> 0163</td><td> 16646</td><td> 062670</td><td> SET</td><td> JSM</td><td> SPICE</td><td> SPACE THE PRINTER</td><td></td>

<td> 0170*</td><td></td><td></td><td colspan="3"> TO CHANGE ptr</td><td> ORIGN, DEFINE THRTN DEC 13,</td><td></td>

<td> 0171*</td><td></td><td></td><td></td><td colspan="2"> THREE OEC 3,</td><td> AND M3 DEC -3.</td><td></td>

<td> 0172*</td><td></td><td></td><td colspan="3"> LIST ROUTINE.</td><td></td><td></td>

<td> 0173</td><td> 16650</td><td> 120111</td><td> LISTM</td><td> LDA</td><td> SECUR,I</td><td> GET SECURITY WORD.</td><td></td>

<td> 0174</td><td> 16651</td><td> 073610</td><td></td><td> RZA</td><td> SET-1</td><td> SECURE PROGRAM, DO NOT LIST.</td><td></td>

<td> 0176</td><td> 16653</td><td> 072053</td><td></td><td> SAP</td><td> «*1 ,s</td><td> BUFFER TO NEGATIVE.</td><td></td>

<td> 0178</td><td> 16655</td><td> 062670</td><td></td><td> JSM</td><td> SPICE</td><td> SPACE THE PRINTER</td><td></td>

<td> 0181</td><td> 16660</td><td> 162752</td><td> STRT1</td><td> JSM</td><td> CHECK,I</td><td></td><td></td>

<td> 2182</td><td> 16661</td><td> 062377</td><td></td><td> JSM</td><td> PRINT</td><td></td><td></td>

<td> 2188</td><td> 16667</td><td> 062736</td><td> EOUT</td><td> JSM</td><td> UNROT</td><td></td><td></td>

<td> 0189</td><td> 16670</td><td> 024024</td><td> SPICE</td><td> LDB</td><td> M10</td><td></td><td></td>

<td> 0190</td><td> 16671</td><td> 020034</td><td></td><td> LDA</td><td> THREE</td><td></td><td></td>

<td> 2191</td><td> 16672</td><td> 132532</td><td></td><td> STA</td><td> GROUP,I</td><td></td><td></td>

3,859,635

151

152 — Continued

<td> 1 96*</td><td></td><td colspan="2"> KEYLOG</td><td colspan="2"> ROUTINES.</td><td></td>

<td> 1 7</td><td> 166 74</td><td> /4.144</td><td> KEYLG</td><td> SOL</td><td> 9</td><td></td>

<td> 2200</td><td> 16677</td><td> 025775</td><td></td><td> LOB</td><td> 1775R</td><td> INPUT BUFFER.</td>

<td> £201</td><td> 16700</td><td> 021776</td><td></td><td> LOA</td><td> FLOAT</td><td></td>

<td> 2202</td><td> 16701</td><td> 070544</td><td></td><td> SAL</td><td> 5</td><td> POSITION KEYLOG BIT. ZERO IF OFF</td>

<td> 0204</td><td> 16703</td><td> 170402</td><td></td><td> RET</td><td></td><td> NO KEYLOG, RETURN.</td>

<td> £206</td><td> 16705</td><td> 070252</td><td></td><td> SAM</td><td> WORK</td><td> POSITIVE IF IN PROG MODE</td>

<td> 0207</td><td> 16706</td><td> 055701</td><td></td><td> DSZ</td><td> PC</td><td> FOOL LIST BUILDER.</td>

<td> 0208</td><td> 16707</td><td> 162752</td><td></td><td> JSM</td><td> CHECK,I</td><td></td>

<td> 0209</td><td> 16710</td><td> 045701</td><td></td><td> ISZ</td><td> PC</td><td> UNFOOL LIST BUILDER.</td>

<td> 0210</td><td> 16711</td><td> 066726</td><td></td><td> JMP</td><td> FRCM</td><td> FORCE TO PRGM MODE.</td>

<td> 0215</td><td> 16716</td><td> 074217</td><td></td><td> IOR</td><td> B</td><td> KEYCODE IN A.</td>

<td> 0217</td><td> 16720</td><td> 042375</td><td></td><td> IOR</td><td> BLNKM</td><td> BLANKS FILLING IN.</td>

<td> 2218</td><td> 16721</td><td> 031733</td><td></td><td> STA</td><td> 1733Θ</td><td> PUT IN Y DISPLAY LIST.</td>

<td> 0219</td><td> 16722</td><td> 022751'</td><td></td><td> LDA</td><td> ABLNK</td><td></td>

<td> 0222</td><td> 16725</td><td> 031730</td><td></td><td> STA</td><td> 17308</td><td> BLANKS THE DISPLAY LIST.</td>

<td> 2224</td><td> 16727</td><td> 062377</td><td></td><td> JSM</td><td> PRINT</td><td></td>

<td> 0225</td><td> 16730</td><td> 062736</td><td></td><td> JSM</td><td> UNROT</td><td></td>

<td> 2229</td><td> 16733</td><td> 021776</td><td> ROT</td><td> LDA</td><td> FLOAT</td><td></td>

<td> 0231</td><td> 16735</td><td> 064331</td><td></td><td> JMP</td><td> 331B</td><td> STORE AS STAUS WORD.</td>

<td> 0232</td><td> 16736</td><td> 021776</td><td> UNROT</td><td> LDA</td><td> FLOAT</td><td></td>

<td> 0236 0237»</td><td> 16742</td><td> 064330</td><td></td><td> JMP</td><td> 3308</td><td> OUTPUT STATUS L1TES.</td>

<td> 0238»</td><td></td><td colspan="4"> KEYLOG BIT DlDOLER.</td><td></td>

<td> 0239</td><td> 16743</td><td> 021776</td><td> KEYCG</td><td> LDA</td><td> FLOAT</td><td></td>

<td> 2244</td><td> 16750</td><td> 064330</td><td></td><td> JMP</td><td> 3308</td><td> STORES ANO OUTPUTS A STATUS.</td>

<td> 2245</td><td> 00034</td><td></td><td> THREE</td><td> EQU</td><td> 34Θ</td><td></td>

<td> 0249</td><td> 01776</td><td></td><td> FLOAT</td><td> EQU</td><td> 1776B</td><td></td>

<td> .: -./1</td><td> 167/1</td><td> 135673</td><td> AHLNK.</td><td> OCT</td><td> 135673</td><td></td>

<td> ../-.-2</td><td> I-',/·.-,?</td><td> fc-352 74</td><td> CHECK</td><td> OC i</td><td> 5274</td><td></td>

<td> . --/ .3</td><td> •Ζ.Ί 11</td><td></td><td> SECUR</td><td> EOU</td><td> 1118</td><td></td>

<td> /. NO</td><td colspan="2"> ERRORS»</td><td></td><td></td><td></td><td></td>

ASMR,rt»H»L»T

0001 SPCH OP TON NOOK NMHR ZHPOS

010000 010010

010023 010024

3,859,635

154

153 — Continued

<td> TORTH</td><td> 010027</td>

<td> WDPTR</td><td> 001755</td>

<td> OFFST</td><td> 001755</td>

<td> RWOPD</td><td> 001727</td>

<td> YLEST</td><td> 001733</td>

<td> ENTRY</td><td> 010117</td>

<td> GETKY</td><td> 010124</td>

<td> mskem</td><td> 010143</td>

<td> KEPPT</td><td> 010160</td>

<td> STPEM</td><td> 010167</td>

<td> APRNT</td><td> 010220</td>

<td> APRNM</td><td> 010222</td>

<td> AKILW</td><td> 010227</td>

<td> MAJFC</td><td> 010231</td>

<td> APRTM</td><td> 010272</td>

<td> ASPAC</td><td> 010301</td>

<td> AICHK</td><td> 010311</td>

<td> GOTFM</td><td> 010316</td>

— Continued

<td> AGRUP</td><td> 001756</td>

<td> AOUTW</td><td> 001746</td>

<td> ROTWO</td><td> 010327</td>

<td> FLOAT</td><td> 001776</td>

<td> GROUP</td><td> 010331</td>

<td> OFTBL</td><td> 010334</td>

<td> INRUF</td><td> 001775</td>

<td> SIXTN</td><td> 010336</td>

<td> THREE</td><td> 000034</td>

<td> 25 RETRN</td><td> 010341</td>

<td> TABLE</td><td> 000013</td>

<td> * NO</td><td> ERRORS*</td>

<td> > ο o 3 *</td><td></td><td></td><td colspan="3"> ALPHA BLOCK.</td><td></td>

<td> £005</td><td> 10000</td><td></td><td></td><td> ORG</td><td> 100008</td><td> START OF ALPHA BLOCK.</td>

<td> j.) 06</td><td> 10008</td><td> 0,00042</td><td> SRCH</td><td> OCT</td><td> 42 THE</td><td> SEARCH CODE FOR THIS BLOCK.</td>

<td> 0 8 O 7</td><td> 10001</td><td> 021777</td><td></td><td> LOA</td><td> 17778</td><td> STACK PTR, USE TO DETERMINE WHETHER</td>

<td></td><td> 10002</td><td> 000031</td><td></td><td> AOA</td><td> 31B</td><td> (-1) WANT ALPHA OR MNEM.</td>

<td> 0U«9</td><td> 10003</td><td> 070517</td><td></td><td> LOA</td><td> A,.I</td><td> GETE LOCATION OF RETURN PT.</td>

<td> 0010</td><td> 18004</td><td> 012007</td><td></td><td> CPA</td><td> 100078</td><td> IS IS THE PRINTER AREA.</td>

<td> 0012</td><td> 10806</td><td> 066117</td><td></td><td> JMP</td><td> ENTRY</td><td> NO , INPLIES,ALPHA.</td>

<td> 0014</td><td> 10010</td><td> 021777</td><td> OPTON</td><td> LOA</td><td> 17778</td><td> EXAMINE CONTENTS OF STACK TO</td>

<td> 0015</td><td> 10011</td><td> 002116</td><td></td><td> AOA</td><td> M2</td><td> DETERMINE IF ARE PRINTING A NUMBER</td>

<td> 0016</td><td> 10012</td><td> 070517</td><td></td><td> LOA</td><td> A,I</td><td> OR ARE DOING ALPHA OPERATION AS</td>

<td> 0017</td><td> 10013</td><td> 012023</td><td></td><td> CPA</td><td> NMBR</td><td> LIST, KEYLOG, ETC.</td>

<td> 0018</td><td> 10014</td><td> 170402</td><td></td><td> RET</td><td></td><td> DOING NUMBER PRINT, DO NOT ENTER ALPHA</td>

<td> 0019</td><td> 10015</td><td> 122331</td><td></td><td> LOA</td><td> GROUP,I</td><td> ONE OF THE OFF PAGE VARIABLES,</td>

<td> 0021</td><td> 10017</td><td> 066024</td><td></td><td> JMP</td><td> ZRPOS</td><td> CHECK FOR POS=0.</td>

<td> 0022</td><td> 10020</td><td> 010063</td><td></td><td> CPA</td><td> ONE</td><td> ALSO LEGAL.</td>

<td> 0023</td><td> 10021</td><td> 066027</td><td></td><td> JMP</td><td> TORTH</td><td> IS POS EQ 2 OR 3.</td>

<td> 0»26</td><td> 10024</td><td></td><td></td><td> ORG</td><td> 100248</td><td> NMBR SHOWS PRINT NUMBER.</td>

<td> 0027</td><td> 10024</td><td> 122332</td><td> ZRPOS</td><td> LOA</td><td> POSvT</td><td></td>

<td></td><td> A </JLI £_ f</td><td> ILLJJL</td><td> i O » X 1 II</td><td></td><td> f y A</td><td></td>

<td> 0031</td><td> 10030</td><td> 070002</td><td></td><td> SAR</td><td> 1</td><td> CHECK FOR TWO OR THREE.</td>

3,859,635

156

ALPHA PRINT BLOCK-Continued

155

<td> 0037</td><td> 10036 031755</td><td> STA WDPTR NOW WORD PTR IS IN A(0,l,2)</td>

<td> 0038</td><td> 10037 021733</td><td> LDA YLEST</td>

<td> 0041</td><td> 10042 021733</td><td> LDA YLEST</td>

<td> 0049</td><td> 10052 001755</td><td> ADA WDPTR</td>

<td> 0«50</td><td> 10053 002342 SNU</td><td> ADA DTBL DIRECTIVE TABLE.</td>

<td> 0051</td><td> 10054 070517</td><td> LDA A,I ENTRY OT CODE TABLE.</td>

<td> 0054</td><td> 10057 070342</td><td> SAR Θ HAS ENTRY OT CODE TABLE.</td>

<td> 0055</td><td> 10060 031727</td><td> STA RWORD</td>

<td> «056</td><td> 10061 370137</td><td> LDB A FOR COMPUTING CORRECT ENTRY</td>

<td> « 061</td><td> 10066</td><td> 024727</td><td></td><td> LOH</td><td> RWORD</td><td></td>

<td> 006?</td><td> 13067</td><td> 031755</td><td></td><td> STA</td><td> OFFST</td><td></td>

<td> 0063</td><td> 10070</td><td> 122334</td><td></td><td> LDA</td><td> OFTBL.I</td><td></td>

<td> 0069</td><td> 100 76</td><td> 031727</td><td></td><td> STA</td><td> RWORD</td><td></td>

<td> 0071</td><td> 10100</td><td> 001755</td><td></td><td> ADA</td><td> OFFST</td><td> HAS OFFSET FOR LINE.</td>

<td> 0073</td><td> 10102</td><td> 070537</td><td></td><td> LDB</td><td> A,I</td><td> GETS PRITNER CODE.</td>

<td> 0074</td><td> 10103</td><td> 021727</td><td></td><td> LDA</td><td> RWORD</td><td></td>

<td> 0076</td><td> 10105</td><td> 070544</td><td></td><td> SAL</td><td> 5</td><td> POSITIONS ROTATION.</td>

<td> 0077</td><td> 10106</td><td> 042327</td><td></td><td> IOR</td><td> ROTWD</td><td></td>

<td> 0079</td><td> 10110</td><td> 136112</td><td></td><td> STB</td><td> BUF,I</td><td> PUT PRINTER CODE IN SAFE PLACE</td>

<td> 0085</td><td> 01755</td><td></td><td> WDPTR</td><td> EQU</td><td> 1755B</td><td></td>

<td> „ »oo</td><td> t* 1 r □□</td><td></td><td> Orr ΰΙ</td><td> EGU</td><td> WDPTR</td><td></td>

<td> 0087</td><td> 01727</td><td></td><td> RWORO</td><td> EQU</td><td> 17278</td><td></td>

<td> 0088*</td><td colspan="3"> I .GROUP,AND POS</td><td> WILL</td><td colspan="2"> BE INDIRECT OT THE VARIABLES.</td>

<td> 0090</td><td> 01733</td><td></td><td> YLEST</td><td> EQU</td><td> 1733B</td><td></td>

<td> 0093*</td><td></td><td> ALPHA</td><td colspan="3"> PRINT BLOCK</td>

<td> «095</td><td> 13117</td><td> 021775</td><td> ENTRY</td><td> LDA</td><td> INBUF</td>

<td> 0097</td><td> 10121</td><td> 066124</td><td></td><td> JMP</td><td> GETKY</td>

<td> 0099</td><td> 10123</td><td> 031775</td><td></td><td> STA</td><td> INBUF</td>

<td> 0100</td><td> 10124</td><td> 070742</td><td> GETKY</td><td> SAR</td><td> 16</td>

STEP PROGRAM.

<td></td><td></td><td></td><td></td><td colspan="3"> ALPHA PRINT BLOCK-Continued</td>

<td> 0102</td><td> 10126</td><td> 120103</td><td></td><td> LDA</td><td> 103B,I</td><td> A PROGRAM WITH NO ENDING FORMAT.</td>

<td> 0 104</td><td> 10130</td><td> 121701</td><td></td><td> LDA</td><td> PCNT,I</td><td> GET KEY FROM MEMORY.</td>

<td> 0106</td><td> 10132</td><td> 025775</td><td></td><td> LDB</td><td> INBUF</td><td> CHECK FOR STOP.</td>

<td> 0109</td><td> 10135</td><td> 066143</td><td></td><td> JMP</td><td> MSKEM</td><td></td>

<td> 0110</td><td> 10136</td><td> 173741</td><td> NEXT</td><td> CLF</td><td> 01</td><td> ENABLE INTERRUPT.</td>

<td> 0111</td><td> 10137</td><td> 021775</td><td></td><td> LDA</td><td> INBUF</td><td></td>

<td> 0113</td><td> 10141</td><td> 076053</td><td></td><td> SBP</td><td> •♦1,S</td><td> AFTER KEY IS IN, RESET</td>

<td> 0114</td><td> 10142</td><td> 035775</td><td></td><td> STB</td><td> INBUF</td><td> INPUT BUFFER.</td>

<td> 0115</td><td> 10143</td><td> 050100</td><td> MSKEM</td><td> AND</td><td> MASK0</td><td> YES, CLOAN UP KEY IF 7 BIT.</td>

<td> 0117</td><td> 10145</td><td> 064161</td><td> 0UT1</td><td> JMP</td><td> 1618</td><td> GO TO STOP ROUTINE.</td>

<td> 0118</td><td> 10146</td><td> 012341</td><td></td><td> CPA</td><td> RETRN</td><td> IS IT A RETURN COMMAND(CARRAIGE RETURN)?</td>

<td> 0119</td><td> 10147</td><td> 066160</td><td></td><td> JMP</td><td> KEPPT</td><td> KEEP PRINTING ANOTHER LINE AFTER THIS.</td>

<td> 0121</td><td> 10151</td><td> 066163</td><td></td><td> JMP</td><td> BLNK1</td><td> CLEAR AND PRINT REST OF LINE.</td>

<td> 0122</td><td> 10152</td><td> 062170</td><td></td><td> JSM</td><td> FILL</td><td> VALID KEY, PUT IN BUFFER AREA.</td>

<td> 0125</td><td> 10155</td><td> 012336</td><td></td><td> CPA</td><td> SIXTN</td><td> IS BUFFER FULL?</td>

<td> 0126</td><td> 10156</td><td> 066161</td><td></td><td> JMP</td><td> PNTM</td><td> PRINT BUFFER AS IAS.</td>

<td> 0127</td><td> 10157</td><td> 066126</td><td></td><td> JMP</td><td> GETKY+</td><td> 2 BYPASS SETTING INPUT BUF NEG.</td>

<td> 0128</td><td> 10160</td><td> 062211</td><td> KEPPT</td><td> JSM</td><td> ALLF</td><td></td>

<td> 0129</td><td> 10161</td><td> 062220</td><td> PNTM</td><td> JSM</td><td> APRNT</td><td></td>

<td> 0130</td><td> 10162</td><td> 066124</td><td></td><td> JMP</td><td> GETKY</td><td></td>

<td> 0132</td><td> 10164</td><td> 070150</td><td></td><td> SZA</td><td> STPEM</td><td> TAKES CARE OF LBL-LBL ANO 17TH CHAR = LBL</td>

<td> 0134</td><td> 10166</td><td> 062220</td><td></td><td> JSM</td><td> APRNT</td><td></td>

<td> 0135</td><td> 10167</td><td> 170402</td><td> STPEM</td><td> RET</td><td></td><td> MAIN RETURN.</td>

<td> 0141</td><td> 10174</td><td> 000013</td><td></td><td> ADA</td><td> TABLE</td><td></td>

<td> 0142</td><td> 10175</td><td> 031745</td><td></td><td> STA</td><td> TEMP</td><td> ADD OF OCATION.</td>

<td> 0 155</td><td> 10211</td><td> 022335</td><td> ALLF</td><td> LDA</td><td> BLN</td><td> FILLS REMAINDER OF BUFFER WITN BLANKS.</td>

<td> 3159</td><td> 10215</td><td> 012336</td><td></td><td> CPA</td><td> SIXTN</td><td></td>

<td> 4 163</td><td> 10220</td><td> 070742</td><td> APRNT</td><td> SAR</td><td> 16</td><td> THIS ROUTINE PRINTS THE CONTENTS OF THE</td>

<td> 0165</td><td> 10222</td><td> 070742</td><td> APRNN</td><td> SAR</td><td> 16</td><td></td>

<td> 0166</td><td> 1022 3</td><td> 031744</td><td></td><td> STA</td><td> CNT</td><td> RESTART THE LINE COUNT.</td>

<td> 0167</td><td> 10224</td><td> 031756</td><td></td><td> STA</td><td> AGRUP</td><td></td>

<td> «168</td><td> 10225</td><td> 070742</td><td> AKILM</td><td> SAR</td><td> 16</td><td></td>

<td> 0170</td><td> 10227</td><td> 070742</td><td> AKILW</td><td> SAR</td><td> 16</td><td></td>

3,859,635

159

160

<td></td><td colspan="6"> ALPHA PRINT BLOCK-Continued</td>

<td> «171</td><td> 10230</td><td> 031746</td><td></td><td> STA</td><td> AOUTW</td><td> OUTPUT WORD.</td>

<td> 0 172</td><td> 10231</td><td> 021744</td><td> MAJFC</td><td> LDA</td><td> CNT</td><td> FETCH WD FROM BUFFER.</td>

<td> 0173</td><td> 10232</td><td> 012336</td><td></td><td> CPA</td><td> SIXTN</td><td></td>

<td> 0174</td><td> 10233</td><td> 066316</td><td></td><td> JMP</td><td> GOTEM</td><td></td>

<td> 0178</td><td> 10237</td><td> 004013</td><td></td><td> ADB</td><td> TABLE</td><td></td>

<td> £186</td><td> 10247</td><td> 000034</td><td></td><td> ADA</td><td> THREE</td><td></td>

<td> 0193</td><td> 10256</td><td> 021746</td><td></td><td> LDA</td><td> AOUTW</td><td></td>

<td> 0194</td><td> 10257</td><td> 074217</td><td></td><td> IOR</td><td> B</td><td> B IS PRINTER CODE.</td>

<td> 0195</td><td> 10260</td><td> 031746</td><td></td><td> STA</td><td> AOUTW</td><td> JUST AS IN BASIC PRINT ROUTINE</td>

<td> 0198</td><td> 10263</td><td> 014034</td><td></td><td> CPB</td><td> THREE</td><td></td>

<td> «199</td><td> 10264</td><td> 066272</td><td></td><td> JMP</td><td> APRTM</td><td> POS=3, OUTPUT WITH PEN.</td>

<td> 0200</td><td> 10265</td><td> 172141</td><td></td><td> OTA</td><td> 01</td><td> POS=1, OUTPUT WITHOUT PEN.</td>

<td> 0202</td><td> 10267</td><td> 066227</td><td></td><td> JMP</td><td> AKILW</td><td></td>

<td> 0,2(-)4</td><td> 10271</td><td> 066231</td><td> JMP</td><td> MAJFC</td>

<td> 02'. )5</td><td> 102 72</td><td> 041756 APRTM</td><td> IOR</td><td> AGRUP</td>

<td> 22/.7</td><td> 10274</td><td> i’21756</td><td> LDA</td><td> AGRUP</td>

<td> J 2 2 8</td><td> 10275</td><td> 01(10 34</td><td> CPA</td><td> THREE</td>

<td> .)2/9</td><td> 1027ο</td><td> 066311</td><td> JMP</td><td> AICHK</td>

<td> 0210</td><td> 10277</td><td> 045756</td><td> ISZ</td><td> AGRUP</td>

<td> 0211</td><td> 10300</td><td> 066225</td><td> JMP</td><td> AKILM</td>

<td> 3212</td><td> 10301</td><td> 324077 ASPAC</td><td> LDB</td><td> M3</td>

<td> «215</td><td> 10304</td><td> 041756</td><td> IOR</td><td> AGRUP</td>

<td> 0220</td><td> 10311</td><td> 122333 AICHK</td><td> LDA</td><td> I, I</td>

<td> 022?</td><td> 10313</td><td> 066301</td><td> JMP</td><td> ASPAC</td>

<td> 0224</td><td> 10315</td><td> 066222</td><td> JMP</td><td> APRNN</td>

<td> 0225</td><td> 10316</td><td> 020034 GOTEM</td><td> LDA</td><td> THREE</td>

<td> 0226</td><td> 10317</td><td> 031756</td><td> STA</td><td> AGRUP</td>

<td> 0227</td><td> 10320</td><td> 066311</td><td> JMP</td><td> AICHK</td>

<td> 8229</td><td> 10322</td><td> 020060</td><td> LOA</td><td> 60B TIME DELAY</td>

<td> 0234</td><td> 01756</td><td> AGRUP</td><td> EQU</td><td> 1756B</td>

<td> 0238</td><td> 01746</td><td> AOUTW</td><td> EQU</td><td> 17460</td>

3,859,635

161

162

ALPHA PRINT BLOCK-Continued

<td> 0240</td><td> 10327</td><td> 074006</td><td> ROTWD</td><td> OCT</td><td> 74006</td>

<td> 0243</td><td> 01776</td><td></td><td> FLOAT</td><td> EQU</td><td> 17768</td>

<td> 0 244</td><td> 10331</td><td> 012003</td><td> GROUP</td><td> OCT</td><td> 12003</td>

<td> 0247</td><td> 10334</td><td> 016542</td><td> OFTBL</td><td> OCT</td><td> 16542</td>

<td> 0251</td><td> 01775</td><td></td><td> INHUF</td><td> EQU</td><td> 17758</td>

<td> 0252</td><td> 10336</td><td> 000020</td><td> SIXTN</td><td> DEC</td><td> 16</td>

<td> 0255</td><td> 00034</td><td></td><td> THREE</td><td> EQU</td><td> 348</td>

<td> 0259</td><td> 10341</td><td> 000020</td><td> RETRN</td><td> OCT</td><td> 20</td>

<td> 0260</td><td> 0.0 01 3</td><td> TABLE</td><td> ECU</td><td> 13B</td>

<td> 0 2 61 *</td><td></td><td> CODE TABLES</td><td> FOR</td><td> PRINT ROUTINES.</td>

3,859,635

163

164

ALPHA PRINT BLOCK —Continued

3,859,635

166

165

ALPHA PRINT BLOCK-Continued

0295*

2296

3297

304

0305

0306

0307

Z‘> 1

0292

0293

0294

10540 023464

10541 027035

10542 023467

0298

3299 •2300

0301

C302

2303

END OF DIRECTIVE TABLE.

1960 7

10610

10.611

10612

10613

10614

1O615

10616

10617

10620

10621

10622

10623

10624

10625

10626

035060 041021 034036 922451 ? 22476 077020

075020 076037

041036 041020 037020

041161

036021 043077 043061 034204

OCT 35060,41021,34036,22451,22476

OCT 077020,75020,76037,41036,41020

OCT 37020,41161,36021,43077,43061

OCT 34204,10204,34001,2041,3056

167

168

3,859,635

ALPHA PRINT BLOCK—Continued

169

3,859,635

ALPHA PRINT BLOCK—Continued

10767 032020 13770 341034 If-771 045114 ?327 10772 000000

1-27 7 3 030604 U77't 020002 13775 010420 10776 020202 0328 * NO ERRORS*

OCT 0,306-24.20002,10420,20202

END — Continued

<td> AHDRT</td><td> 007015</td><td></td><td> CHECK</td><td> 007156</td>

<td> F IXD</td><td> 007037</td><td></td><td> FIFTN</td><td> 007162</td>

<td> ENDIT</td><td> 007050</td><td></td><td> Ml</td><td> 000031</td>

<td> FLOAT</td><td> 007051</td><td></td><td> 50 FORTN</td><td> 007163</td>

<td> PNTKY</td><td> 000110</td><td></td><td> ROUT</td><td> 001736</td>

<td> FMTKY</td><td> 007054</td><td></td><td> ASTER</td><td> 007164</td>

<td> LISTK</td><td> 007055</td><td></td><td> SPACE</td><td> 007165</td>

<td> PRINT</td><td> 007056</td><td></td><td> DBLNK</td><td> 007166</td>

<td> PNT</td><td> 007063</td><td></td><td> „ SETGT</td><td> 007167</td>

<td> 0Λ) I SO</td><td></td><td></td><td> rDONT</td><td> 001735</td>

<td> FIX0</td><td> 007106</td><td></td><td> wDCNT</td><td> 001734</td>

<td> CKM</td><td> 007130</td><td></td><td> OUTPT</td><td> 007205</td>

<td> OUTAL</td><td> 007136</td><td></td><td> 60 NMBR</td><td> 007216</td>

<td> DONE</td><td> 007144</td><td></td><td> REALO</td><td> 007217</td>

<td> ELEVN</td><td> 007152</td><td></td><td> 65 DLY1</td><td> 007242</td>

<td> TIMES</td><td> 007153</td><td></td><td> ERR</td><td> 007243</td>

<td> W</td><td> 007154</td><td></td><td> DELAY</td><td> 000063</td>

3,859,635

171

172

<td colspan="2"> — Continued</td><td colspan="3"> — Continued</td>

<td> LF</td><td> 000104</td><td></td><td> KEYIN</td><td> 007367</td>

<td> SCLFD</td><td> 007246</td><td></td><td> KOUT</td><td> 007414</td>

<td> TWO</td><td> 007247</td><td></td><td> SDIDL</td><td> 007433</td>

<td> ONE</td><td> 000063</td><td> 5</td><td> CRTAB</td><td> 007440</td>

<td> 0CT55</td><td> 007252</td><td></td><td> RETLF</td><td> 007466</td>

<td> DEC58</td><td> 007253</td><td></td><td> DOPRN</td><td> 007470</td>

<td> LISTM</td><td> 007254</td><td> 10</td><td> UPARO</td><td> 007472</td>

<td> KEYOT</td><td> 007277</td><td></td><td> DNARO</td><td> 007474</td>

<td> NXTL</td><td> 007321</td><td></td><td> SHIFT</td><td> 007475</td>

<td> CRLF</td><td> 007342</td><td></td><td> CLRAL</td><td> 007477</td>

<td> RUN</td><td> 007347</td><td> 15</td><td> GETKY</td><td> 007500</td>

<td> YADD</td><td> 000005</td><td></td><td> FLGCK</td><td> 007510</td>

<td> PC</td><td> 001701</td><td></td><td> MEMGT</td><td> 007512</td>

<td> SECUR</td><td> 007355</td><td></td><td> CONTU</td><td> 007532</td>

<td> END</td><td> 007356</td><td> 20</td><td> CNTKY</td><td> 000022</td>

<td> THREE</td><td> 000034</td><td></td><td> DISPY</td><td> 000017</td>

<td> FMT</td><td> 007365</td><td></td><td> • NO</td><td> ERRORS*</td>

9810 TYPEWRITER BLOCK.

<td> ·,: 0 04</td><td> 2 7000</td><td> 00>002</td><td></td><td> OCT</td><td> 2</td><td> SEARCH POINT ENTRY.</td>

<td> 0 005</td><td> 0 7001</td><td> 0200 JI</td><td></td><td> LUA</td><td> Ml</td><td> SET THE STEP PROGRAM FLAG.</td>

<td> 0 007</td><td> 0 7003</td><td> 063500</td><td></td><td> JSM</td><td> GETKY</td><td> GET NEXT KEY.</td>

<td> 0008</td><td> 0 7004</td><td> 013054</td><td></td><td> CPA</td><td> FMTKY</td><td> IS THIS A FORMAT KEY?</td>

<td> 0009</td><td> 27005</td><td> 067365</td><td></td><td> JMP</td><td> FMT</td><td> YES, START ALPHA PRINT.</td>

<td> 0010</td><td> 07006</td><td> 010110</td><td></td><td> CPA</td><td> PNTKY</td><td> PRINT OPERATION?</td>

<td> 0011</td><td> 07007</td><td> 067063</td><td></td><td> JMP</td><td> PNT</td><td> YES, CALL LIST BUILDER, PRINT, ETC.</td>

<td> 0012</td><td> 07010</td><td> 013055</td><td></td><td> CPA</td><td> LISTK</td><td> LIST KEY?</td>

<td> 0013</td><td> 07011</td><td> 067254</td><td></td><td> JMP</td><td> LISTM</td><td> YES, LIST PROGRAM ON TYPEWRITER.</td>

<td> 0014</td><td> 07012</td><td> 0(10024</td><td></td><td> ADA</td><td> M10</td><td> CHECK FOR A NUMBER.</td>

<td> 0015</td><td> 07013</td><td> 070212</td><td></td><td> SAM</td><td> «♦4</td><td> YESM, IT’S A NUMBER. USE FOR FIELD WIDTH</td>

<td> 0016</td><td> 07014</td><td> 000104</td><td></td><td> ADA</td><td> TEN</td><td> NO NUMBER, GEVE KEY TO INTERPRETER.</td>

<td> 0017</td><td> 07015</td><td> 070137</td><td> ABORT</td><td> LDB</td><td> A</td><td> BABY THE INTERPRETER.</td>

<td> 0019</td><td> 00362</td><td></td><td> INTR2</td><td> EOU</td><td> 362B</td><td> ADDS TABLE OFFSET TO B AND JUMPS TO ROUTINE</td>

<td> 0020</td><td> 07017</td><td> 000104</td><td></td><td> ADA</td><td> TEN</td><td> RESTORE THE NUMBER.</td>

<td> 0021</td><td> 07020</td><td> 133154</td><td></td><td> STA</td><td> W, I</td><td> PUT IN WIDTH ALLOCATED STORE.</td>

<td> 0022</td><td> 07021</td><td> 031717</td><td></td><td> STA</td><td> 17178</td><td> PAMPER TIMES TEN SU0R.</td>

<td> 0023</td><td> 07022</td><td> 063500</td><td></td><td> JSM</td><td> GETKY</td><td> GET NEXT KEY, COULD BE WIDTH OR TERMINATOR.</td>

<td> 0024</td><td> 07023</td><td> 000024</td><td></td><td> ADA</td><td> M10</td><td> DIGIT?</td>

<td> 0025</td><td> 07024</td><td> 070212</td><td></td><td> SAM</td><td> TENX</td><td> YES, USE AS PART OF WIDTH SPEC.</td>

<td> 0026</td><td> 07025</td><td> 013152</td><td></td><td> CPA</td><td> ELEVN</td><td> CHECK FOR DECIMAL.</td>

<td> 0027</td><td> 07026</td><td> 067037</td><td></td><td> JMP</td><td> FIXD</td><td> USE DECIMAL AS TERMINATOR FOR WIDTH.</td>

<td> 0028</td><td> 07027</td><td> 067014</td><td></td><td> JMP</td><td> ABORT-1</td><td> THIS KEY IS NOT PART OF SEQUENCE, ABORT</td>

<td> 0029*</td><td></td><td></td><td></td><td> BY</td><td colspan="2"> RETURNING KEY TO MONITOR.</td>

<td> 0030</td><td> 07030</td><td> 000104</td><td> TENX</td><td> ADA</td><td> TEN</td><td> RESTORE VALUE.</td>

<td> 0031</td><td> 07031</td><td> 163153</td><td></td><td> JSM</td><td> TIMES,I</td><td> TAKE 10 TEMES PREVIOUS DIGIT PLUS CURRENT D</td>

<td> 0032</td><td> 07032</td><td> 137154</td><td></td><td> STB</td><td> W,I</td><td> PUT RESULT IN WIDTH ALLOCATED STORE.</td>

<td> 0033</td><td> 07033</td><td> 063500</td><td> GETD</td><td> JSM</td><td> GETKY</td><td> GET DECIMAL SETTING KEY.</td>

<td> 0034</td><td> 07034</td><td> 010020</td><td></td><td> CPA</td><td> DOT</td><td> WAS IT A DECIMAL*?</td>

<td> 0036</td><td> 07036</td><td> 067015</td><td></td><td> JMP</td><td> ABORT</td><td> CAN’T RECOGNIZE, GIVE TO INTERPERETER.</td>

<td> 0037</td><td> 07037</td><td> 063500</td><td> FIXD</td><td> JSM</td><td> GETKY</td><td> WILL NOW SET DECIMAL FIELD.</td>

<td> 0038</td><td> 07040</td><td> 000024</td><td></td><td> ADA</td><td> M10</td><td> DIGIT?</td>

<td> 0039</td><td> 07041</td><td> 070413</td><td></td><td> SAP</td><td> FLOAT</td><td> NO, SET TO FLOATING PT.</td>

<td> 0040</td><td> 07042</td><td> 030104</td><td></td><td> ADA</td><td> TEN</td><td> RESTORE.</td>

<td> 004?</td><td> 07044</td><td> 021776</td><td></td><td> LDA</td><td> 1776B</td><td> CALCULATOR STATUS WORD.</td>

<td> 0043</td><td> 07045</td><td> 053155</td><td></td><td> AND</td><td> MSK</td><td> CLEAN LAST FOUR BITS.</td>

<td> 0044</td><td> 07046</td><td> 041737</td><td></td><td> I OR</td><td> TEMP</td><td> SET NEW DECIMAL FIELD.</td>

<td> 0045</td><td> 07047</td><td> 031776</td><td></td><td> STA</td><td> 1776B</td><td> ANO SAVE RESULT.</td>

<td> 0046</td><td> 07050</td><td> 067056</td><td> ENDIT</td><td> JMP</td><td> PRINT</td><td> CHECK NEXT KEY FOR PRINT?</td>

3,859,635

174

173

9810 TYPEWRITER BLOCK-Continued

<td> 0047</td><td> 07051</td><td> 021776</td><td> FLOAT</td><td> LOA</td><td> 1776B</td><td> SET MACHINE</td><td> TO FLOATING PT.</td>

<td> 0049</td><td> «7053</td><td> 067047</td><td></td><td> JMP</td><td> ENDIT-1</td><td colspan="2"> SAVE RESULT, CHECK NEXT KEY FOR PRINT</td>

<td> 0050</td><td> 00110</td><td></td><td> PNTKY</td><td> EQU</td><td> 110B</td><td></td><td></td>

<td> 0051</td><td> 07054</td><td> 000042</td><td> FMTKY</td><td> OCT</td><td> 42</td><td></td><td></td>

<td> 0052</td><td> «7055</td><td> 000104</td><td> LISTK</td><td> OCT</td><td> 104</td><td></td><td></td>

<td> 0053</td><td> 07056</td><td> 172160</td><td> PRINT</td><td> OTA</td><td> 16</td><td colspan="2"> OUTPUT STATUS.</td>

<td> 0054</td><td> 0 7057</td><td> 063500</td><td></td><td> JSM</td><td> GETKY</td><td></td><td></td>

<td> 0055</td><td> «7060</td><td> 010110</td><td></td><td> CPA</td><td> PNTKY</td><td> WAS IT A</td><td> PRINT?</td>

<td> 0057</td><td> 07062</td><td> 067015</td><td></td><td> JMP</td><td> ABORT</td><td></td><td></td>

TYPEWRITER PRINT ROUTINE.

<td> vi 0 6 0</td><td> 0 7063</td><td> 163156</td><td> PNI</td><td> JSM</td><td> CHECK,I</td><td> BUILD DISPLAY LIST.</td>

<td> ✓ 061</td><td> 0 7064</td><td> 123154</td><td></td><td> LOA</td><td> W, I</td><td> CHECK WIDTH.</td>

<td> 01)62</td><td> «7065</td><td> 072150</td><td></td><td> RZA</td><td> »*3</td><td> IF ZERO, SET TO INITIAL VALUE.</td>

<td> 0 064</td><td> 0 7067</td><td> I 3 3154</td><td></td><td> STA</td><td> W, I</td><td> INI.T IS PRESET VALUE (DEFAULT) .</td>

<td> ϋ’5</td><td> 37C7V)</td><td> ¢),:3161</td><td></td><td> ADA</td><td> M16</td><td> IF WIDTH LARGE, OU(PUT BLANKS</td>

<td></td><td> «73/1</td><td> 070213</td><td></td><td> SAP</td><td> SMAK</td><td> OUTPUT BLANKS TO RIGHT JUSTIFY.</td>

<td> 0068</td><td> « 70 73</td><td> 031736</td><td></td><td> STA</td><td> ROUT</td><td> SET ACTUAL NUMBER OF DIGITS OUT.</td>

<td> 0069</td><td> «7074</td><td> 067106</td><td></td><td> JMP</td><td> FIX0</td><td> CHECK FOR FIXED 0.</td>

<td> 0070</td><td> «7075</td><td> 023162</td><td> SMAK</td><td> LDA</td><td> FIFTN</td><td> SET ROUT TO FIFTEEN OEGITS OUT.</td>

<td> 0073</td><td> «7100</td><td> 103154</td><td></td><td> ADA</td><td> W,I</td><td> OUTPUT WW-15 BLANKS.</td>

<td> 0075</td><td> «7102</td><td> 023165</td><td> OUTSP</td><td> LDA</td><td> SPACE</td><td></td>

<td> 0076</td><td> 07103</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td></td>

<td> 0078</td><td> «7105</td><td> 067102</td><td></td><td> JMP</td><td> OUTSP</td><td> NOPE.</td>

<td> 0080</td><td> 07106</td><td> 020012</td><td> FIX0</td><td> LDA</td><td> 12Θ</td><td> SET UP GET OPERATION ON X DISPLAY REG.</td>

<td> 0081</td><td> 07107</td><td> 063167</td><td></td><td> JSM</td><td> SETGT</td><td></td>

<td> 0082</td><td> «7110</td><td> 027162</td><td></td><td> LDB</td><td> FIFTN</td><td> B*15, FOR OVERFLOW CHECK.</td>

<td> 0083</td><td> «7111</td><td> 021776</td><td></td><td> LOA</td><td> 1776B</td><td> IF FIXED ZERO, SUPPRESS DECIMAL OUT.</td>

<td> 0084</td><td> 07112</td><td> 070512</td><td></td><td> SAM</td><td> OK</td><td> FLOATING PT, CAN’T BE FIXED.</td>

<td> 0085</td><td> 07113</td><td> 053162</td><td></td><td> AND</td><td> FIFTN</td><td> CHECK LEAST 4 BITS FOR 0.</td>

<td> 0086</td><td> 07114</td><td> 072410</td><td></td><td> RZA</td><td> OK</td><td> NON ZERO, CANT BE FIXED ZERO.</td>

<td> 0087</td><td> «7115</td><td> 123154</td><td></td><td> LDA</td><td> W,1</td><td> IF W>15, WANT TO OUTPUT SPACE, OTHERWISE</td>

<td> 0090</td><td> 07120</td><td> 023165</td><td></td><td> LDA</td><td> SPACE</td><td> FIXED ZERO. SPACE ANO FOOL OVERFLOW.</td>

<td> 0091</td><td> 07121</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td> OUTPUT WITHOUT ASCII CONVERSION.</td>

<td> 0092</td><td> 07122</td><td> 055736</td><td></td><td> DSZ</td><td> ROUT</td><td> KEEP DECIMAL FROM GOING OUT.</td>

<td> 0093</td><td> 07123</td><td> 027163</td><td></td><td> LOB</td><td> FORTN</td><td></td>

<td> 0096</td><td> «7126</td><td> 074413</td><td></td><td> SBP</td><td> OUTAL</td><td> DO NOT CHECK ANY DIGITS FOR BLANKS.</td>

<td> 0098</td><td> 07130</td><td> 063173</td><td> CKM</td><td> JSM</td><td> GET</td><td> GET DIGIT FROM DISPLAY LIST.</td>

<td> 0099</td><td> «7131</td><td> 013166</td><td></td><td> CPA</td><td> DBLNK</td><td> IS THIS A BLANK IN THE DISPLAY LIST?</td>

<td> 0100</td><td> «7132</td><td> 067134</td><td></td><td> JMP</td><td> »♦2</td><td> YES, LOOK FOR MORE , CHECK ING FOR</td>

<td> 0101</td><td> 07133</td><td> 067145</td><td></td><td> JMP</td><td> STAR</td><td> OVERFLOW. STAR OUTPUTS ASTERISKS.</td>

<td> 3104</td><td> 07136</td><td> 021736</td><td> OUTAL</td><td> LDA</td><td> ROUT</td><td> OUTPUT THE DIGITS FROM DIL LIST.</td>

<td> 0105</td><td> 07137</td><td> 031737</td><td></td><td> STA</td><td> TEMP</td><td> NOW OUTPUT FIRST TEMP THINGS.</td>

<td> 0107</td><td> 07141</td><td> 063205</td><td></td><td> JSM</td><td> OUTPT</td><td></td>

0112 07145 023164 STAR ,:113 07146 ¢)63217

LOA ASTER

JSM REALO

OUTPUT *'S ON OVERFLOW.

OUTPUT WITHOUT ASCII CONVERSION.

3,859,635

176

175

TYPEWRITER PRINT ROUTINE-Continued

<td> «120</td><td> 07152</td><td> 000007 ELEVN</td><td> DEC</td><td> 7 A PURE KLUDGE, DETECTS DEC. AFTER SUB 10.</td>

<td> 0121</td><td> 07153</td><td> 004176 TIMES</td><td> OCT</td><td> 4176</td>

<td> 0122</td><td> 07154</td><td> 012007 W</td><td> OCT</td><td> 12007 WIDTH LOCATION.</td>

<td> 0126</td><td> 07156</td><td> 005274 CHECK</td><td> OCT</td><td> 5274</td>

<td> 0130</td><td> 07162</td><td> 000017 FIFTN</td><td> DEC</td><td> 15</td>

<td> 0132</td><td> 07163</td><td> 000016 FORTN</td><td> DEC</td><td> 14</td>

<td> 0134</td><td> 07164</td><td> 000052 ASTER</td><td> OCT</td><td> 52</td>

<td> 0135</td><td> 07165</td><td> 000040 SPACE</td><td> OCT</td><td> 40</td>

<td> 0136</td><td> 07166</td><td> 000013 DBLNK</td><td> DEC</td><td> 11</td>

INPUT OUTPUT SUBPROGRAMS.

<td> 2138</td><td> «7167</td><td> 031735</td><td> SETGT</td><td> STA WDPNT</td><td> SET TO ANY REGISTER ADDRESS.</td>

<td> 0140</td><td> 0 7171</td><td> 035734</td><td></td><td> STB WDCNT</td><td></td>

<td> '2 1 4 I</td><td> «7172</td><td> 170402</td><td></td><td> RE I</td><td> INITIALIZED VALUES FOR GET ROUTINE.</td>

<td> /: μ,?</td><td> «71 7.3</td><td> 12 1 7.35</td><td> GET</td><td> LDA WDPNT,</td><td> I</td>

<td> 2 14 3</td><td> «7174</td><td> 070546</td><td></td><td> RAR 12</td><td> STANDARD ACCESS METHOD.</td>

<td> 2144</td><td> «7175</td><td> 131735</td><td></td><td> STA WDPNT,</td><td> I</td>

<td> 0145</td><td> «7176</td><td> 053162</td><td></td><td> AND FIFTN</td><td> ISOLATE THE DISPLAY LIST MEMBER.</td>

<td> 0146</td><td> 07177</td><td> 045734</td><td></td><td> ISZ WDCNT</td><td></td>

<td> 2148</td><td> 07201</td><td> 063170</td><td></td><td> JSM SETGT*</td><td> 1 RESTORE WDCNT.</td>

<td> 0149</td><td> 07202</td><td> 045735</td><td></td><td> ISZ WDPNT</td><td></td>

<td> 0151</td><td> 01735</td><td></td><td> WDPNT</td><td> EQU 1735B</td><td></td>

<td> «152</td><td> «1734</td><td></td><td> WDCNT</td><td> EQU 1734B</td><td></td>

<td> 0155</td><td> 07205</td><td> 000024</td><td> OUTPT</td><td> ADA M10</td><td> IS THIS A NUMBER? CONVERT TO ASCII.</td>

<td> 0157</td><td> 07207</td><td> 013247</td><td></td><td> CPA TWO</td><td> NO, IS IT A DECIMAL.</td>

<td> «159</td><td> 2 7211</td><td> 010063</td><td></td><td> CPA ONE</td><td> IS IT A SPACE?</td>

<td> 0164</td><td> «7216</td><td> 003253</td><td> NMHH</td><td> ADA UEC58</td><td> CONVERl NUMBER TO ASCII.</td>

<td> 0165</td><td> 07217</td><td> 043246</td><td> REALO</td><td> IOR SCLED</td><td> CODE NOW IN A.</td>

<td> 0168</td><td> 27222</td><td> 074742</td><td></td><td> SBR 16</td><td> BEGIN TIME DELAY FOR TYPEWRITER UNCONNECTED</td>

<td> 0169</td><td> 07223</td><td> 020063</td><td> DLY</td><td> LDA DELAY</td><td></td>

<td> 0170</td><td> «7224</td><td> 172701</td><td></td><td> SFC 01</td><td> SKIP IF DEVICE NOT READY.</td>

<td> 0171</td><td> 07225</td><td> 067233</td><td></td><td> JMP EOL</td><td> CHECK FOR ENO OF LINE.</td>

<td> 0173</td><td> 27227</td><td> 074070</td><td></td><td> SIB *♦!</td><td> INCREMENT B FOR MULTIPLE DELAY.</td>

<td> «175</td><td> 07231</td><td> 064161</td><td></td><td> JMP 161B</td><td> YES, HALT PROGRAM.</td>

<td> 0178</td><td> 07234</td><td> 370604</td><td></td><td> SAL 4</td><td> STATUS LINE FROM TYPEWRITER INTERFACE.</td>

<td> 0179</td><td> 07235</td><td> 070112</td><td></td><td> SAM STP</td><td> END OF LINE, SKIP TO ERROR CONDITION.</td>

<td> 0180</td><td> 27236</td><td> 170402</td><td></td><td> RET</td><td> NO END OF LINE, RETURN.</td>

3,859,635

<td></td><td> 177</td><td> 178 INPUT OUTPUT SUBPROGRAMS.-Continued</td>

<td> 0181</td><td> 07237 163243 STP</td><td> JSM ERR,I END OF ILINE INDICATION.</td>

<td> 0182</td><td> 07240 063347</td><td> JSM RUN RESET TO RUN MODE.</td>

<td> 0183</td><td> 07241 064161</td><td> JMP 1618 JUMP TO STOP ROUTINE.</td>

<td> 0184</td><td> 07242 166170 DLY1</td><td> DEC -5000 DELAY FOR END OF LINE.</td>

<td> «186</td><td> 00063 DELAY</td><td> EQU 63B</td>

<td> 0190</td><td> 07246 170000 SCLED</td><td> OCT 170000</td>

<td></td><td> . TYPEWRITER</td><td> LIST ROUTINE.</td>

<td> 0198</td><td> «7254</td><td> 123355</td><td> LI STM</td><td> LDA</td><td> SECUR,I</td><td> GET THE SECURITY WORD.</td>

<td> «199</td><td> « 7255</td><td> 07 1050</td><td></td><td> RZA</td><td> STP-1</td><td> RETURN IF NON-ZERO => SECURE.</td>

<td> «200</td><td> «7 256</td><td> «217 lb</td><td></td><td> LDA</td><td> 17768</td><td> GET STATUS WORD.</td>

<td> «20 1</td><td> 1’7257</td><td> Λ 7'3406</td><td></td><td> WAR</td><td> 9</td><td> LOOK AT RUN/PROGRAM BIT.</td>

<td> 02«2</td><td> «7260</td><td> 070071</td><td></td><td> SLA</td><td> * + 1 ,C</td><td> FORCE TO PROGRAM MODE.</td>

<td> «203</td><td> «7261</td><td> 070306</td><td></td><td> RAR</td><td> 7</td><td> RESTORE.</td>

<td> 0205</td><td> «7263</td><td> 163156</td><td> KLU</td><td> JSM</td><td> CHECK,I</td><td> BUILD DISPLAY LIST.</td>

<td> 0206</td><td> 07264</td><td> 020013</td><td></td><td> LDA</td><td> 13B</td><td> Y DISPLAY LIST ADDRESS.</td>

<td> 0207</td><td> «7265</td><td> 063167</td><td></td><td> JSM</td><td> SETGT</td><td> INITIALIZE GET ROUTINE.</td>

<td> 0208</td><td> «7266</td><td> 063342</td><td></td><td> JSM</td><td> CRLF</td><td> OUTPUT CR/LF TO TYPEWRITER.</td>

<td> 0209</td><td> «7267</td><td> 023357</td><td></td><td> LDA</td><td> SIX</td><td> OUTPUT FIRST 6 ELEMENTS OF DISPLAY LIST.</td>

<td> 0211</td><td> 07271</td><td> 063173</td><td></td><td> JSM</td><td> GET</td><td> EXTRACTS FIRST ELEMENT OF DISPLAY LIST.</td>

<td> 0212</td><td> 07272</td><td> 063205</td><td></td><td> JSM</td><td> OUTPT</td><td> AND OUTPUTS IT.</td>

<td> 0216</td><td> 07276</td><td> 031737</td><td></td><td> STA</td><td> TEMP</td><td> YES, NOW PUT OUT 3 NMEMONIC CHARACTERS.</td>

<td> 0217</td><td> «7277</td><td> 121701</td><td> KEYOT</td><td> LOA</td><td> PC,I</td><td> GET CURRENT KEYCIDE.</td>

<td> 0218</td><td> «7300</td><td> 270002</td><td></td><td> SAR</td><td> 1</td><td> COMPUTE OFFSET ENTRY INTO CONVERSION TABLE.</td>

<td> 0221</td><td> 07303</td><td> 074017</td><td></td><td> ADA</td><td> B</td><td> BASIC OFFSET FOR CHARACTER NOW IN 8.</td>

<td> 0223</td><td> «7305</td><td> 014034</td><td></td><td> CPB</td><td> THREE</td><td> HAVE THREE CHARACTERS BEEN OUTPUTTED?</td>

<td> 0224</td><td> 07306</td><td> 067321</td><td></td><td> JMP</td><td> NXTL</td><td> NEXT LIST (REST OF DISPLAY LIST).</td>

<td> 0226</td><td> «7310</td><td> 074017</td><td></td><td> ADA</td><td> B</td><td> GET POINTER TO ACTUAL CODE FOR THAT CHARACTER</td>

<td> 222?</td><td> Μ7Ή 1</td><td> 223535</td><td></td><td> ADA</td><td> HASE</td><td> BASE OF CODE TABLE.</td>

<td> 0228</td><td> «7312</td><td> 070016</td><td></td><td> EXA</td><td colspan="2"> EXECUTE LOAD A INSTRUCTION. FETCH CODE.</td>

<td> 0229</td><td> 07313</td><td> 125701</td><td></td><td> LDB</td><td> PC, I</td><td> WANT TO POSITION CHODE.</td>

<td> 0232</td><td> 07316</td><td> 070342</td><td></td><td> SAR</td><td> 8</td><td> NOW CODE IS UNPACKED IN LEAST 8 BITS.</td>

<td> 0233</td><td> 27317</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td> OUTPUT EXACT CODE.</td>

<td> 0234</td><td> 27320</td><td> 067277</td><td></td><td> JMP</td><td> KEYOT</td><td> REPEAT FOR NECT CHARACTER.</td>

<td> 0236</td><td> 07321</td><td> 020023</td><td> NXTL</td><td> LDA</td><td> M5</td><td> OUTPUT REST OF DISPLAY LIST.</td>

<td> 0238</td><td> 07323</td><td> 063173</td><td></td><td> JSM</td><td> GET</td><td> BUPASS THE THREE CHARACTERS NOT OUTPUTTED.</td>

<td> 0241</td><td> «7326</td><td> 063173</td><td></td><td> JSM</td><td> GET</td><td> NOW WANT THIS CHARACTER.</td>

<td> 0242</td><td> «7327</td><td> 063225</td><td></td><td> JSM</td><td> OUTPT</td><td> OUTPUT IT.</td>

3,859,635

179

180

TYPEWRITER LIST ROUT INE.—Continued

<td> 0246</td><td> 0 7333</td><td> 013356</td><td> CPA</td><td> END</td><td> END OF LISTING?</td><td></td>

<td> 0248</td><td> 07335</td><td> 045701</td><td> ISZ</td><td> PC</td><td colspan="2"> NO, GET NEXT PROGRAM STEP.</td>

<td> 0249</td><td> «7336</td><td> 172700</td><td> SFC</td><td> 00</td><td> SKIP IF STOP KEY</td><td> NOT PRESSED</td>

<td> 0250</td><td> «733 7</td><td> 067360</td><td> JMP</td><td> OUTA</td><td> GO HANDLE STOP</td><td> OPERATION.</td>

<td> 0252 0253</td><td> 07341 0 7342</td><td> 063347 FINE 023245 CRLF</td><td> JSM RUN LOA CR</td><td> RESTORE RUN MODE. OUTPUT CR/LF.</td>

<td> «254</td><td> 0 7 343</td><td> 063217</td><td> JSM REALO</td><td></td>

<td> 0256</td><td> «7345</td><td> «63217</td><td> JSM REALO</td><td></td>

<td> 0257</td><td> 07346</td><td> 1 70402</td><td> RET</td><td> THIS IS REDUNDANT.</td>

<td> 0258</td><td> 27347</td><td> 021776 RUN</td><td> LDA 17768</td><td> GET STATUS WORD.</td>

<td> 0259</td><td> 07350</td><td> 070406</td><td> RAR 9</td><td> POSITION RUN/PROG BIT.</td>

<td> 0260</td><td> 07351</td><td> 072051</td><td> SLA **1,S</td><td> FORCE TO PROGRAM MODE.</td>

<td> 0261</td><td> 27352</td><td> 070306</td><td> RAR 7</td><td> RESTORE.</td>

<td> 0267</td><td> 27355</td><td> 012013 SECUR</td><td> OCT 12013</td><td> LOCATION OF SECURITY WORD.</td>

<td> 0270</td><td> 20034</td><td> THREE</td><td> EQU 34B</td><td></td>

<td> 0271</td><td> 27360</td><td> 063341 OUTA</td><td> JSM FINE</td><td> RESTORE RUN MODE, OUTPUT CR/LF.</td>

<td> 0272</td><td> 07361</td><td> 160017</td><td> JSM DISPY.I</td><td> AND GO TO DISPLAY ROUTINE, TO GOET</td>

<td> 0273</td><td> 27362</td><td> 010022</td><td> CPA CNTKY</td><td> NEXT KEY, IF CONTINUE, RETURN TO</td>

<td> 0274</td><td> 07363</td><td> 067254</td><td> JMP LISTM</td><td> TYPEWRITER LIST ROUTINE, ESSE</td>

<td> 0275</td><td> 27364</td><td> 064340</td><td> JMP 3408</td><td> ABORT AND EXECUTE KEY.</td>

TYPEWRITER ALPHA PRINT BLOCK.

<td rowspan="2"> 0277 ¢278</td><td colspan="2"> «7365 070742 FMT</td><td rowspan="2"> SAR 16 STA SHIFT,I</td><td rowspan="2"> CLEAR THE SHIFT CONDITION.</td>

<td> ¢2 79</td><td> 8 7 367</td><td> 063500 KEYIN</td><td> JSM GETKY</td><td> GET A KEY FOR PROCESSING.</td>

<td> «280</td><td> «7370</td><td> 07013?</td><td> LOH A</td><td> CHECK FOR 7 HIT CODE.</td>

<td> 0283</td><td> «7373</td><td> 055777</td><td> DSZ 1777B</td><td> DSZ STACK PTR TWICE TO</td>

<td> »284</td><td> «7374</td><td> 055777</td><td> DSZ 17778</td><td> GET TO BASE LEVEL.</td>

<td> 0285</td><td> 07375</td><td> 064342</td><td> JMP 342B</td><td> GIVE TO SYSTEM, TAKING KEY FROM</td>

<td> 0286* 0287</td><td> «7376</td><td> INPUT BUFFER 013472</td><td> CPA UPARO</td><td> UP ARROW IS SHIFT KEY.</td>

<td> 0288</td><td> «7377</td><td> 067433</td><td> JMP SDIDL</td><td> DIDDLE THE SHIFT WORD.</td>

<td> »289</td><td> «7400</td><td> 013054</td><td> CPA FMTKY</td><td> CLOSING FORMAT STRING?</td>

<td> 0290 0291</td><td> «7401 07402</td><td> 170402 013473</td><td> RET CPA CLR</td><td> YES, RETURN TO KEYBD OR PRGM. CLEAR KEY IS CR/LF,</td>

<td> 0292</td><td> «7403</td><td> 067466</td><td> JMP RETLF</td><td> GIVE CR/LF, RESET SHIFT.</td>

<td> 0293</td><td> «7404</td><td> 013474</td><td> CPA DNARO</td><td> CLEAR ALL TABS? YES IF ’</td>

<td> 0294</td><td> 07405</td><td> 067440</td><td> JMP CRTAB</td><td> IN UPPER CASE (SHIFTED CONDITION».</td>

<td> 3296</td><td> 07407</td><td> 064161</td><td> JMP 161B</td><td> YES, QUIT IMMEDIATELY.</td>

<td> 3298</td><td> «7411</td><td> 064161</td><td> JMP 1618</td><td> YES, STOP AND POINT OUT THE TROUBLE.</td>

<td> 3299</td><td> «7412</td><td> 010110</td><td> CPA PNTKY</td><td> IF THE PRINT KEY, PRINT THE X REGISTER</td>

<td> 0300</td><td> «7413</td><td> 067470</td><td> JMP OOPRN</td><td> AND CONTINUE IN STRING.</td>

<td> 5301</td><td> «7414</td><td> 031737 KOUT</td><td> STA TEMP</td><td> BEGIN NORMAL PROCESSING OF ALPHA KEY.</td>

<td> 3302 3303</td><td> 07415 «7416</td><td> 070002 070137</td><td> SAR 1 LD8 A</td><td> COMPUTE OFFSET FOR LOOKUP.</td>

<td> 3304 3305 3306</td><td> «7417 «7420 «7421</td><td> 070704 074017 000034</td><td> SAL 2 ADA 8 ADA THREE</td><td> GETTING TO UNSHIFTED OFFSET.</td>

<td> 3307</td><td> 0 7422</td><td> 103475</td><td> ADA SHIFT,!</td><td> SHIFT? 1IF YES, 0 IF NO.</td>

<td> 3308</td><td> «7423</td><td> 003535</td><td> ADA BASE</td><td> GET TABLE ADDRESS FOR TYPE CODE.</td>

<td> 3309 3310</td><td> «7424 27425</td><td> 025737 070016</td><td> LDB TEMP EXA LOAD</td><td> A WITH CODE» 8 IS ORIGINAL KEY.</td>

3,859,635

182

181

TYPEWRITER ALPHA PRINT HLOCK . — Continued

<td> 0314</td><td> 07431</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td> OUTPUT CODE,</td>

<td> 0315</td><td> 07432</td><td> 067367</td><td></td><td> JMP</td><td> KEYIN</td><td> AND GET ANOTHER KEY.</td>

<td> 031.6</td><td> 07433</td><td> 123475</td><td> SDIDL</td><td> LDA</td><td> SHIFT.I</td><td> IF SHIFT=1, MAKE IT 0.</td>

<td> 0318</td><td> 07435</td><td> 070076</td><td></td><td> TCA</td><td></td><td> IF SHIFT=0, MAKE IF 1.</td>

<td> 0319</td><td> 07436</td><td> 133475</td><td></td><td> STA</td><td> SHIFT,I</td><td></td>

<td> 0320</td><td> 0 7437</td><td> 067367</td><td></td><td> JMP</td><td> KEYIN</td><td></td>

<td> 0321</td><td> 07440</td><td> 127475</td><td> CRTAB</td><td> LDB</td><td> SHIFT,I</td><td> IF UPPER SHIFT, THEN CLEAR ALL</td>

<td> 0323</td><td> 07442</td><td> 067414</td><td></td><td> JMP</td><td> KOUT</td><td> TABS, ELSE CLEAR FROM CURRENT POSITION</td>

<td> 0325</td><td> 07444</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td> OUTPUT NOP TO TEST IF TYPE CONNECTED.</td>

<td> 0326</td><td> 07445</td><td> 023476</td><td> TBM</td><td> LOA</td><td> TAB</td><td> TAB TO RIGHT MARGIN.</td>

<td> 0327</td><td> £7446</td><td> 063461</td><td></td><td> JSM</td><td> PUTIT</td><td> OUTPUTS AND WAITS FOR FLAG.</td>

<td> 0328</td><td> 07447</td><td> 172241</td><td></td><td> LIA</td><td> 01</td><td> AT RIGHT MARGIN?</td>

<td> 0331*</td><td></td><td colspan="4"> IF A TAB HAS GONE PAST</td><td> THE RIGHT MARGIN SETTING,</td>

<td> 0332*</td><td></td><td colspan="2"> THEN NO END</td><td colspan="3"> OF LINE SENSOR WILL COME UP, SO</td>

<td> 0.333</td><td> 0 7451</td><td> 172700</td><td></td><td> SFC</td><td> 00</td><td> IT’S PASSIBLE TO LOCK UP. THUS,</td>

<td> 0 334</td><td> 0 7452</td><td> 064161</td><td></td><td> JMP</td><td> 161B</td><td> CHECK HERE FOR STOP KEY TO END LOOP.</td>

<td> 0337</td><td> 0 7453</td><td> 071513</td><td></td><td> SAP</td><td> TBM</td><td> NO, TAB AGAIN.</td>

<td> 0338</td><td> £ 7454</td><td> 023477</td><td></td><td> LDA</td><td> CLRAL</td><td></td>

<td> 0339</td><td> 07455</td><td> 063461</td><td></td><td> JSM</td><td> PUTIT</td><td> OUTPUT NOT CHECKING FOR ENO OF LINE.</td>

<td> 0340</td><td> 07456</td><td> «70742</td><td></td><td> SAR</td><td> 16</td><td> OUTPUT NOP TO CLEAR LINE SENSOR.</td>

<td> 0341</td><td> 07457</td><td> 063217</td><td></td><td> JSM</td><td> REALO</td><td> STANDARD OUTPUT.</td>

<td> 0342</td><td> 07460</td><td> 067365</td><td></td><td> JMP</td><td> FMT</td><td> CONTINUE CHECKING FOR MORE KEYS.</td>

<td> 0343</td><td> 07461</td><td> 172141</td><td> PUTIT</td><td> OTA</td><td> 1</td><td> OUTPUT TO TYPEWRITER.</td>

<td> ,0348</td><td> 07466</td><td> 063342</td><td> RETLF</td><td> JSM</td><td> CRLF</td><td> CR, LF OUTPUT.</td>

<td> 0349</td><td> 07467</td><td> 067365</td><td></td><td> JMP</td><td> FMT</td><td> RESET SHIFT.</td>

<td> 0351</td><td> 0 7470</td><td> 063063</td><td> DOPRN</td><td> JSM</td><td> PNT</td><td> PRINT X REGISTER.</td>

<td> 0353</td><td> 07472</td><td> 000027</td><td> UPARO</td><td> OCT</td><td> 27</td><td></td>

<td> 0355</td><td> 07474</td><td> 0110025</td><td> DNARO</td><td> OCT</td><td> 25</td><td></td>

<td> 0356</td><td> «7475</td><td> 012010</td><td> SHIFT</td><td> OCT</td><td> 12010</td><td> HOLDS SHIFT KEY.</td>

<td> 0357</td><td> 07476</td><td> 170040</td><td> TAB</td><td> OCT</td><td> 170040</td><td> REALLU A SPACE BECAUSE TYPEWRITER</td>

<td> 0358*</td><td> CANNOT</td><td colspan="2"> GIVE ENO OF</td><td> LINE</td><td colspan="2"> ON A TAB.</td>

<td> 0359</td><td> «7477</td><td> 170013</td><td> CLRAL</td><td> OCT</td><td> 170013</td><td> CLEAR ALL TABS.</td>

<td></td><td></td><td> KEY</td><td> FETCH</td><td colspan="3"> ALLOWING STEP PROGRAM.</td>

<td> 0361</td><td> «7500</td><td> 172700</td><td> GETKY</td><td> SFC</td><td> 0«</td><td> SKIP IF STOP NOT PRESSED.</td>

<td> 0362</td><td> 0 7501</td><td> 067517</td><td></td><td> JMP</td><td> DISP</td><td> STOP KEY PRESSED, TREAT AS STEP PROGRAM,</td>

<td> 0 363</td><td> 0 7502</td><td> 025775</td><td></td><td> LDB</td><td> INBUF</td><td> CHECK FOR STEP PROGRAM.</td>

<td> a 364</td><td> 0 7503</td><td> 014300</td><td></td><td> CPH</td><td> 300H</td><td> STOP PROGRAM?</td>

<td> £365</td><td> 0 7504</td><td> 067510</td><td></td><td> JMP</td><td> FLGCK</td><td> YES, CHECK THE FLAG.</td>

<td> 0367</td><td> 07506</td><td> 035720</td><td></td><td> STB</td><td> 1720B</td><td> CLEAR THE STEP PROGRAM FLAG,</td>

<td> 0368</td><td> 07507</td><td> 064115</td><td></td><td> JMP</td><td> 115B</td><td> AND GO TO THE REAL GETKY ROUTINE.</td>

<td> 0369</td><td> 07510</td><td> 025720</td><td> FLGCK</td><td> LDB</td><td> 1720B</td><td></td>

<td> 0371</td><td> 07512</td><td> 121701</td><td> MEMGT</td><td> LDA</td><td> PC, I</td><td> GET KEY FROM MEMORY.</td>

<td> 0373</td><td> «7514</td><td> 024031</td><td></td><td> LDB</td><td> Ml</td><td> SET STEP PROGRAM FLAG.</td>

3,859,635

183 184

KEY FETCH ALLOWING STEP PROGRAM —Continued

<td> 0376 0377</td><td> 07517 07520</td><td> 070742 031720</td><td> DISP</td><td> SAR STA</td><td> 16 1720B</td><td> CLEAR FLAG.</td>

<td> 2378</td><td> 07521</td><td> 160017</td><td></td><td> JSM</td><td> DISPY,I</td><td> JMP TO DISPLAY ROUTNE.</td>

<td> 0379</td><td> 07522</td><td> 010300</td><td></td><td> CPA</td><td> 300B</td><td> STEP PROGRAM?</td>

<td> 0380</td><td> 0 7523</td><td> 067512</td><td></td><td> JMP</td><td> MEMGT</td><td></td>

<td> 0381</td><td> 07524</td><td> 010022</td><td></td><td> CPA</td><td> CNTKY</td><td> IS THIS A CONTINUE?</td>

<td> 0382</td><td> 07525</td><td> 067532</td><td></td><td> JMP</td><td> CONTU</td><td> YES, TREAT AS CONTINUE.</td>

<td> 0384</td><td> 07527</td><td> 067521</td><td></td><td> JMP</td><td> DISP+2</td><td> YES, IGNORE IT.</td>

<td> 0386</td><td> 07531</td><td> 064340</td><td></td><td> JMP</td><td> 340Θ</td><td> GIVE TO MONITOR.</td>

<td> 0387</td><td> 07532</td><td> 072053</td><td> CONTU</td><td> SAP</td><td> »+l,S</td><td> SET INPUT BUFFER TO NEGATIVE, IN</td>

<td> 0388</td><td> 07533</td><td> 031775</td><td></td><td> STA</td><td> 1775B</td><td> PREPARATION FOR PROGRAM EXECUTION.</td>

<td> »390</td><td> 00022</td><td></td><td> CnTK r</td><td> EOU</td><td> 228</td><td> OCT m, CODt FOR CONTINUE.</td>

<td> 0391</td><td> 01775</td><td></td><td> INBUF</td><td> EQU</td><td> 1775B</td><td></td>

<td> 0392</td><td> 00017</td><td></td><td> DISpY</td><td> EQU</td><td> 17B</td><td></td>

TYPEWRITER CONVERSION TABLE.

0394*1YPEWRITER CODE CONVERSION TABLE. 0395*

0396*TRFPE ARE TWO KEYS ASSOCIATED WITH EACH FIVE WORDS OF TABLE. 0397*ODD NUMBERED KEYCODES USE THE RIGHT 8 BITS OF EACH WORD, 039H*AND EVEN NUMBERED KEYCODES USE THE LEFT 8 BITS. THE FIRST 0399*TFREE ENTRIES GIVE THE NMEMONIC CHARACTERS TO USE IN A LISTING 04»0*TBF NEXT ENTRY IS THE UNSHIFTED TYPEWRITER CHARACTER DURING 0401<AN ALPHA TYPE OPERATION, AND THE 5TH ENTRY IS THE SHIFTED 0402*TYPEWRITER CHARACTER.

0403*

<td> 2404</td><td> 07535</td><td> 023536 BASE</td><td> LDA</td><td> «♦1</td><td> ADDRESS INDEPENDENT TABLE</td><td> FETCH·</td>

<td> 0415</td><td> 07573</td><td> 075162</td><td> OCT</td><td> 75162</td><td rowspan="2"> END OF X**2, LOWER CASE</td><td> A·</td>

<td> 0417</td><td> 07575 07576</td><td> 061107 020040</td><td> OCT</td><td colspan="3"> 61107,20040,50507,70547 END OF LOWER B, G ENTRY</td>

<td> 0420</td><td> 07606</td><td> 041440</td><td> ASC</td><td> 5,C L.R</td><td> • > CLR,. ENTRY.</td><td></td>

3,859,635

186

185

TYPEWRITER CONVERSION TABLE -Continued £7607 046056 £7610 051040 £7611 020056 £7612 020076

<td> 0421</td><td> £7613</td><td> 051130</td><td> ASC</td><td> 4»RXUTP0iST</td><td></td><td></td>

<td> £424</td><td> 2 7623</td><td> 054014</td><td> OCT</td><td> 54014,74001</td><td> TAB CLEAR, SET,ETC</td><td> •</td>

<td> 0425</td><td> 07625</td><td> 042525</td><td> ASC</td><td> 3,EUEPX</td><td></td><td></td>

<td> 2426</td><td> £7630</td><td> 077040</td><td> OCT</td><td> 77040,57040</td><td> GETS UP AND RIGHT</td><td> ARROW.</td>

<td> 0427</td><td> 07632</td><td> 054111</td><td> ASC</td><td> 3,XIENYD</td><td></td><td></td>

<td> 0435</td><td> 07663</td><td> 043111</td><td> ASC</td><td> 5,FIMFTG ? ?</td><td></td><td></td>

<td> 0436</td><td> £7670</td><td> 043520</td><td> ASC</td><td> 4,GPTN0T#</td><td> GOTO, PRINT.</td><td></td>

<td> 0437</td><td> 27674</td><td> 004040</td><td> OCT</td><td> 4040</td><td> BACKSPACE ON UPPER</td><td> CASE GOTO</td>

<td> 0438</td><td> 2 7675</td><td> 042503</td><td> ASC</td><td> 5.ECNNDT</td><td></td><td></td>

07703 036502 .07704 054514 '•'705 022444

7706 022444

7707 054130

ASC 5,XXoYY ( (

3,859,635

187 188

TYPEWRITER CONVERSION TABLE-Continued

<td colspan="2"> 07710 03607b 07711 054531 07712 024042 07713 024042 0441 07714 051440 07715 043113 07716 046040 07717 036513 0442 07720 036553 0443 07721 050120 07722 044523 07723 020105 0444 07724 050051 07725 070051 0<»45*END OF PI, PAUSE. 0446 07726 020040 07727 042503 07730 020040 07731 042503 0447 07732 062543 0448 07733 020040 07734 040504 07735 020040 07736 040504 0449 07737 060544 0450 07740 044440 07741 047111 07742 052040 07743 053111 0451 07744 073151 0452 07745 020130 07746 041106 07747 020122 07750 041131 0453 07751 061171 0454 07752 020040 07753 046517 07754 020040 07755 046517 0455 07756 066557 0456 07757 020040 07760 046116 07761 020040 07762 046116 0457 07763 066156 0458 07764 020040 07765 044112 07766 020040 07767 044112 0459 07770 064152 0460 07771 051523</td><td> ASC OCT ASC OCT ASC OCT ASC OCT ASC OCT ASC OCT ASC OCT ASC OCT ASC OCT ASC</td><td colspan="2"> 4,S FKL =K 36553 3.PPIS E 50051,70051 4, EC EC 62543 4, AO AO 60544 4,1 NIT VI 73151 4, X0F RBY 61171 4, MO MO ' 66557 4, LN LN 66156 4, HJ HJ 64152 3,SSQ/TR</td><td> ENO END OF A END SQT</td><td> SET FLAG ,K • OF SET FLAG, K. .,D. OF B.XFR. X, SUB/RETURN.</td>

<td> 04 61 046? « NO MOVE DliNf SR CH PR TCP FINIS FI FI 1 FI2 NOTF FWNO</td><td> 07772 050457 07773 052122 07774 «75407 0.7775 055406 ERRORS» ASMH 002005 0 0 2« I 4 002017 002025 M02041 002076 002100 002103 002113 002116</td><td> OCT END , A ♦ B ,</td><td> 75407, L,T</td><td> 55406</td><td colspan="2"> — Continued FIE 002145 FRET 002146 FRET1 002150 FRET0 002155 FRET2 002161 FRET3 002170 FRET4 002176 65 STCHK 002203 CLEAN 002211 MLOW 002214 MHI 002215</td>

<td colspan="2"> — Continued</td><td></td><td colspan="2"> — Continued</td>

<td> RST2</td><td> 002224</td><td></td><td> CONTK</td><td> 300022</td>

<td> U'JLI</td><td> 002267</td><td></td><td> ERROR</td><td> 002072</td>

<td> DELT/</td><td> 002321</td><td></td><td> PRMSK</td><td> 002044</td>

<td> DELTA</td><td> 002355</td><td></td><td> 15 FNCB</td><td> 002047</td>

<td> GOOD</td><td> 002366</td><td></td><td> PRTCT</td><td> 002051</td>

<td> DELT5</td><td> 002400</td><td></td><td> FRETK</td><td> 002052</td>

<td> INSPT</td><td> 002424</td><td></td><td> AUSO</td><td> 000047</td>

<td> LAST</td><td> 002462</td><td></td><td> TEMPI</td><td> 001724</td>

<td> ACUM2</td><td> 002503</td><td></td><td> 25 PMODE</td><td> 001776</td>

<td> DLMSK</td><td> 002525</td><td></td><td> OSLO</td><td> 001707</td>

<td> DLMOF</td><td> 002531</td><td></td><td> P2</td><td> 000772</td>

<td> CAMCK</td><td> ,)/2534</td><td></td><td> ADDRC</td><td> 001721</td>

<td> F INDK</td><td> 0/2537</td><td></td><td> ♦ NO</td><td> ERRORS*</td>

USER DEFINABLE FUNCTION BLOCK

<td> 0003 02000 ,-,//4»LCCAL MONITOR .. ·' /5 * / 6 2 'Λ ‘3 / <12 5 7 2 5</td><td> ORG 2000R LDB KBUF</td><td> LOAD THE INPUT KEY</td><td></td>

<td> 0007 £2001 /06067</td><td> ADB DTBL1</td><td> FIND the table entry</td><td></td>

<td> 0008 020Λ2 035720</td><td> STB 1720B</td><td> RESET THE CHANGE SIGN FLAG</td><td></td>

<td> 0009 02003 074537</td><td> LDB B,I</td><td> FIND THE ROUTINE'S ADDRESS</td><td></td>

<td> 0010 02004 074737</td><td> JMP 8,1</td><td> JUMP TO THE ROUTINE</td><td></td>

<td> 0012»MOVE ROUTINE</td><td colspan="3"></td>

<td colspan="2"> 0013» AT ENTRY TO THIS SUBROUTINE, Ai>B</td><td> REG MUST CONTAIN THE</td><td></td>

<td> 0014*START I NG AND ENDING</td><td> ADDRESS OF THE</td><td> AREA TO BE MOVED.</td><td></td>

<td> 0015* 0016 02005 170004 MOVE</td><td> XFR</td><td> MOVE 4 WORDS</td><td></td>

<td> 0017 £2006 035724</td><td> STB TEMPI</td><td> STORE B TEMPORARILY</td><td></td>

<td> 0018 02007 004055</td><td> ADB MAX</td><td> ADD max ADDRESS TO B</td><td></td>

<td> 0019 £2010 074213</td><td> SBP DONE</td><td> SKIP ON ADDRESS OVERFLOW</td><td></td>

<td> 0020 02011 025724</td><td> LDB TEMPI</td><td> RESTORE B</td><td></td>

<td> 0021 02012 070070</td><td> SIA *♦!</td><td> INCREMENT A</td><td></td>

<td> 0022 02013 077530</td><td> RIB MOVE</td><td> INCREMENT B,AND PERFORM NEXT</td><td> TRANSFER</td>

<td> 0023 02014 170402 DONE 0025*LlNKAGE AREA 0026 02015 000000</td><td> RET BSS 2</td><td> ENTRIES FOR KEYCODES 15 AND</td><td> 16</td>

3,859,635

191 192

USER DEFINABLE FUNCTION BLOCK-Continued »w2H*$EahCh KOUlINE

0029* AT THE ENTRY TO THIS SUBROUTINE AREG MUST CONTAIN THE

0030* KEYCOOE SEARCHED FOR. WHEN RETURNING, THE SUBROUTINE WILL

0031* PUT IN B THE ADDRESS OF THE KEYCODE IF FOUND, OTHERWISE

0032* Θ WILL BE SET TO A NEGATIVE VALUE.

0033*

<td> 0034</td><td> 02017</td><td> 074457</td><td> SRCH</td><td> CPA</td><td> B,I</td><td> KEY MATCHES CURRENT ONE IN MEMORY</td>

<td> 0035</td><td> 02020</td><td> 170402</td><td></td><td> RET</td><td></td><td> YES, RETURN</td>

<td> 0036</td><td> 02021</td><td> 016064</td><td></td><td> CPB</td><td> ENM</td><td> MEMORY EXHAUSTED?</td>

<td> 0037</td><td> 02022</td><td> 074742</td><td></td><td> SBR</td><td> 16</td><td> YES,CLEAR B</td>

<td> 0038</td><td> 02023</td><td> 077630</td><td></td><td> RIB</td><td> SRCH</td><td> INCREMENT 0 AND TEST NEXT LOC IF POSSIBLE</td>

<td> 0039</td><td> 02024</td><td> 077613</td><td></td><td> SBP</td><td> SRCH+l.S</td><td> MAKE B NEGATIVE AND RESTURN</td>

<td colspan="5"> 0041*PROTECT KEY PROCESSING</td><td></td><td></td>

<td> 0043</td><td> 02025</td><td> 120103</td><td> PRTCP</td><td> LDA</td><td> EXCF.I</td><td> LOAD THE EXECUTE FLAG</td>

<td> 3044</td><td> 02026</td><td> 070110</td><td></td><td> SZA</td><td> *♦2</td><td> SKIP IF NOT EXECUTING A PROG</td>

<td> 0045</td><td> 02027</td><td> 166072</td><td></td><td> JMP</td><td> ERROR,I</td><td> ERROR,STOP EXECUTION</td>

<td> 0046</td><td> 02030</td><td> 120111</td><td></td><td> LDA</td><td> SECw,I</td><td> LOAD THE SECURITY WORD</td>

<td> 0047</td><td> 02031</td><td> 072410</td><td></td><td> RZA</td><td> FINIS</td><td> RETURN IF SECURE PROGRAM</td>

<td> 0048</td><td> 02032</td><td> 0/-1776</td><td></td><td> LDA</td><td> PMODE</td><td> LOAD THE STATUS WORD</td>

<td> 0049</td><td> 02033</td><td> 052044</td><td></td><td> AND</td><td> PRMSK</td><td> ISOLATE THE PROTECT BIT</td>

<td> 0050</td><td> 02034</td><td> 072250</td><td></td><td> RZA</td><td> FINIS</td><td> RETURN IF ALREADY PROTECTED</td>

<td> 0051</td><td> 02035</td><td> 022044</td><td></td><td> LDA</td><td> PRMSK</td><td> LOAD THE PROTECT MASK</td>

<td> 0052</td><td> 02036</td><td> 060130</td><td></td><td> JSM</td><td> 1308</td><td> TURN ON THE PROTECT BIT AND LIGHT</td>

<td> 0053</td><td> 02037</td><td> 025701</td><td></td><td> LDB</td><td> PCNT</td><td> LOAD THE NEW USER ORIGIN</td>

<td> «'3 5 4 0-/)55</td><td> «2040 035707 « 2-)4 1 364 167 FINIS</td><td> STH (JSLO JMP TN IT</td><td> STORE IN RETURN</td><td> POINTER</td>

<td> :.- 57L.</td><td> INKAGF. AREA</td><td></td><td></td><td></td>

<td> 0059</td><td> «2055 00000«</td><td> HSS 1</td><td> LINKAGE</td><td> FOR KEYCODE 55</td>

<td> 0061</td><td> 02060</td><td> ORG 2060B</td><td> LINKAGE</td><td> FOR KEYCODES 60 THRU 75</td>

<td> '3062</td><td> 02060 000000</td><td> HSS 14</td><td> LINKAGES</td><td> FOR. KEYCODES 60 THRU 75</td>

0064*PROCESSING OF FUNCTION CALL KEYS (FI) 0065*

<td> 0066</td><td> 02076 062203 FI</td><td> JSM</td><td> STCHK</td><td> CHECK THE FUNCTION STACK</td>

<td> «067</td><td> «2077 021665</td><td> LDA</td><td> FSTP</td><td> LOAD THE FUNCTION STACK POINTER</td>

<td> 0068</td><td> «2100 012046 FU</td><td> CPA</td><td> FSHL</td><td> IS STACK FULL?</td>

<td> 0069</td><td> «2101 166072</td><td> JMP</td><td> ERROR,I</td><td> ERROR,STIP EXECUTION</td>

<td> 0070</td><td> 0210? »24047</td><td> LDB</td><td> AUSO</td><td> LOAD THE ABSOLUTE USER ORIGIN</td>

<td> 0«72</td><td> 02104 062017</td><td> JSM</td><td> SRCH</td><td> SEARCH FOR A DEF</td>

<td> 0073</td><td> «2105 074312</td><td> SUM</td><td> NOTF</td><td> SKIP IF NON FOUND</td>

<td> 0074</td><td> «2106 074070</td><td> SIB</td><td> »*1</td><td> POINT TO KEY FOLLOWING DEF</td>

<td> 0077</td><td> «2111 066116</td><td> JMP</td><td> FWNO</td><td> YES, SEARCH SUCCEEDED</td>

<td> 0078</td><td> «2112 066103</td><td> JMP</td><td> FI2</td><td> SERCH SOME MORE</td>

<td> 0079</td><td> «2113 055701 NOTF</td><td> DSZ</td><td> PCNT</td><td> DECREMENT THE PROG COUNTER</td>

<td> 0 a 8 0</td><td> «2114 060167</td><td> JSM</td><td> INIT</td><td> RE-TNITIALT ZE</td>

<td> ««61</td><td> «2Ϊ15 169/)72</td><td> JMP</td><td> ERROm,I</td><td> STOP EXECUTION</td>

<td> 0083</td><td> 02116 035724 FWND</td><td> STB</td><td> TEMPI</td><td> STORE 9 TEMPORARILTY</td>

<td> 0 084</td><td> 02117 »21701</td><td> LDA</td><td> PCNT</td><td> LOAD THE VALUE OF THE PROG COUNTER</td>

<td> 0085</td><td> 02120 124103</td><td> LDB</td><td> EXCF,I</td><td> LOAD THE EXECUTE FLAG</td>

<td> 0 086</td><td> «2121 076110</td><td> RZB</td><td> »♦2</td><td> SKIP IF EXECUTING A PROGRAM</td>

<td> 0 087</td><td> «2122 072052</td><td> SAM</td><td> **1,S</td><td> INDICATE FI CAME FROM KEYBOARD</td>

<td> 008.8</td><td> «2123 131665</td><td> STA</td><td> FSTP,I</td><td> STORE THE RETURN ADDRESS</td>

<td> 0089</td><td> »2124 045665</td><td> ISZ</td><td> FSTP</td><td> INCREMENT THE FUNCTION STACK POINTER</td>

<td> 0090</td><td> 02125 021776</td><td> LDA</td><td> PMODE</td><td> LOAD THE STATUS WORD</td>

<td> 0091</td><td> «2126 042047</td><td> IOR</td><td> FNCB</td><td> TURN ON THE FUNCTION BIT</td>

<td> 0092</td><td> «2127 172160</td><td> OTA</td><td> 16</td><td> OUTPUT TO THE INDICATORS</td>

<td> 0093</td><td> «2130 031776</td><td> STA</td><td> PMODE</td><td> STORE THE NEW STATUS</td>

<td> 0094</td><td> «2131 021707</td><td> LDA</td><td> USLO</td><td> LOAD THE CURRENT LOCAL ORIGIN</td>

3,859,635

<td></td><td> USER DEFINABLE FUNCTION BLOCK-Continued</td>

<td> 0095 0096</td><td> 02132 131665 STA FSTP.I STORE IN FUNCTION STACK 02133 045665 ISZ FSTP</td>

<td> 0097</td><td> 02134 025724 LDB TEMPI RESTORE B</td>

<td> 0098</td><td> 02135 004031 ADB Ml POINT TO DEF</td>

<td> 0099</td><td> 02136 035707 STB USLO CHANGE THE LOCAL ORIGIN</td>

<td> 0100</td><td> 02137 004772 ADB P2 POINT TO FIRST EXECUTABLE KEY</td>

<td> 0101</td><td> 02140 035701 STB PCNT CHANGE THE PROG COUNTER</td>

<td> 0102</td><td> 02141 120103 LDA EXCF.l LOAD THE EXECUTION FLAG</td>

<td> 0 103</td><td> 02142 372150 RZA FIE SKIP IF EXECUTING A PROG</td>

<td> i 104</td><td> 02143 060167 JSM INIT RE-IN ITI ALIZE</td>

<td> 0105</td><td> 22144 064132 JMP CONT JUMP TO CONTINUE ENTRY</td>

<td> 0 106</td><td> 02145 064167 FIE JMP INIT RETUTN</td>

'3 1 38»F-RET PROCESSING ·: 1 09*

<td> / I 1 0</td><td> 0 214 6</td><td> 062203 FRET</td><td> JSM STCHK</td><td> CHECK THE FUNCTION STACK</td>

<td> t1 11·</td><td> /2147</td><td> 021665</td><td> LOA FSTP</td><td> LOAD THE FUNCTION STACK POINTER</td>

<td> 0 1 1 2</td><td> <2150</td><td> 912045 FPET1</td><td> CPA FSLL</td><td> IS FUNCI ION STACK EMPTY?</td>

<td> '2113</td><td> 02151</td><td> 166072</td><td> JMP ERROR»I</td><td> ERROR,STOP EXECUTION</td>

<td> J 1 14</td><td> 02152</td><td> 124103</td><td> LOH EXCF.l</td><td> LOAD THE EXECUTION FLAG</td>

<td> »1 15</td><td> 02153</td><td> 076310</td><td> RZR FRET?</td><td> SKIP IF EXECUTING A PROG</td>

<td> 2116</td><td> 02154</td><td> 025665</td><td> LDB FSTP</td><td> LOAD THE FUNCTION STACK POINTER</td>

<td> 0117</td><td> 02155</td><td> 006354 FRET0</td><td> ADB M2</td><td> SUBTRACT 2 FROM IT</td>

<td> 0118</td><td> 02156</td><td> 374517</td><td> LDA B»I</td><td> LOAD THE RETURN ADDRESS</td>

<td> 0119</td><td> 02157</td><td> 072052</td><td> SAM **1,S</td><td> MAKE IT NEGATIVE</td>

<td> /120</td><td> 02160</td><td> 074557</td><td> STA B,I</td><td> STORE IT BACK</td>

<td> 2121</td><td> 02161</td><td> 055.665 FRET2</td><td> OSZ FSTP</td><td> DECREMENT THE FUNCTION STACK POINTER</td>

<td> 2122</td><td> 22162</td><td> 121665</td><td> LDA FSTP.I</td><td> LOAD THE LOCAL ORIGIN VALUE</td>

<td> Z 1 23</td><td> 02163</td><td> 031707</td><td> SIA USLO</td><td> STORE AS USER ORIGIN</td>

<td> 2124</td><td> 02164</td><td> 055665</td><td> OSZ FSTP</td><td> POINT TO THE RETURN ADDRESS</td>

<td> 0125</td><td> 02165</td><td> 021665</td><td> LDA FSTP</td><td> LOAD THE POINTER VALUE</td>

<td> /126</td><td> 22166</td><td> 012045</td><td> CPA FSLL</td><td> IS STACK EMPTY?</td>

<td> 0127</td><td> 02167</td><td> 062176</td><td> JSM FRET4</td><td> YES,TURN OFF THE FUNCTION BIT</td>

<td> 0128</td><td> 22170</td><td> 121665 FRET3</td><td> LDA FSTP.I</td><td> LOAD THE RETURN ADDRESS</td>

<td> 0129</td><td> 02171</td><td> 070172</td><td> SAM **3,C</td><td> SKIP IF RETURN TO CALC MODE</td>

<td> 0130</td><td> 02172</td><td> 031701</td><td> STA PCNT</td><td> RESET THE PROG COUNTER</td>

<td> 2131</td><td> 22173</td><td> 064167</td><td> JMP INIT</td><td> RETUTN</td>

<td> 0132</td><td> 02174</td><td> 031701</td><td> STA PCNT</td><td> RESTORE THE PROG COUNTER</td>

<td> 0133</td><td> 02175</td><td> 064161</td><td> JMP 161Θ</td><td> STOP EXECUTION</td>

<td> 0135</td><td> 02176</td><td> 021776 FRET4</td><td> LDA PMODE</td><td> LOAD THE STATUS WORD</td>

<td> 0136</td><td> 02177</td><td> 052053</td><td> AND FOFM</td><td> TURN OFF THE FUNCTION BIT</td>

<td> 0 137</td><td> 02200</td><td> 031776</td><td> STA PMODE</td><td> STORE THE NEW STATUS</td>

<td> 0138 0139 0140* 0141*</td><td colspan="3"> 02201 172160 OTA 16 02202 170402 RET FUNCTION STACK CHECKER</td><td> OUTPUT TO THE INDICATORS RETURN</td>

<td> 2142</td><td> 02203</td><td> 021665 STCHK</td><td> LDA FSTP</td><td> LOAD THE FUNCTION STACK POINTER</td>

<td> 2143</td><td> 02204</td><td> 002214</td><td> ADA MLOW</td><td> CHECK IF LOWER THAN LEGAL</td>

<td> 0144</td><td> 02205</td><td> 070212</td><td> SAM CLEAN</td><td> RE-INITIALIZE IT IF LOWER</td>

<td> 2145</td><td> 02206</td><td> 021665</td><td> LDA FSTP</td><td> LOAD THE POINTER VALUE AGAIN</td>

<td> 0 146</td><td> 02207</td><td> 002215</td><td> ADA MHI</td><td> CHECK IF HIGHER THAN LEGAL</td>

<td> 0147</td><td> 02213</td><td> 070152</td><td> SAM CLEAN*?</td><td> SKIP IF WITHIN RANGE</td>

<td> 0148</td><td> 02211</td><td> 022045 CLEAN</td><td> LDA FSOR</td><td> LOAD THE FUNCTION STACK ORIGIN</td>

<td> 0149 0150</td><td> 02212 02213</td><td> 031665 170402</td><td> STA FSTP RET</td><td> INITIALIZE THE POINTER</td>

<td> 0156</td><td> 02216 066516</td><td> RST4</td><td> JMP ACUM4</td><td> TURN OFF THE DELETE LIGHT</td><td> AND RETURN</td>

<td> /157</td><td> 02217 120111</td><td> RST1</td><td> LDA SECW.I</td><td> LOAD THE SECURITY WORD</td><td></td>

<td> /158</td><td> 02220 073710</td><td></td><td> RZA RST4</td><td> RETURN IF A SECURE PROG</td><td></td>

<td> 0 159</td><td> 02221 062230</td><td></td><td> JSM RSTC</td><td> EMPTY THE FUNCTION STACK IF</td><td> NEEDED</td>

<td> 0160</td><td> 02222 024047</td><td></td><td> LDB AUSO</td><td> LOAD THE ABSOLUTE ORIGIN</td><td></td>

<td> 0161</td><td> 02223 035707</td><td></td><td> STB USLO</td><td> MAKE IT CURRENT ORIGIN</td><td></td>

3,859,635

195 196

USER DEFINABLE FUNCTION BLOCK - Continued

<td> 216?</td><td> 02224</td><td> 021776</td><td> RST2</td><td> LDA</td><td> PMODE</td><td> LOAD THE STATUS WORD</td>

<td> £163</td><td> .)2225</td><td> 052042</td><td></td><td> AND</td><td> PROF</td><td> TURN OFF THE PROTECT BIT</td>

<td> v 1 64</td><td> £2226</td><td> 066517</td><td></td><td> JMP</td><td> ACUM4+1</td><td> TURN OFF THE DELETE LIGHT</td>

<td> <166</td><td> '.'222 7</td><td> 362516</td><td> RSI 3</td><td> JSM</td><td> ACUM4</td><td> TURN OFF THE DELETE LIGHT</td>

<td> £167</td><td> /2230</td><td> 062203</td><td> RSTC</td><td> JSM</td><td> STCHK</td><td> CHECK THE FUNCTION STACK</td>

<td> £ 14 8</td><td> £2231</td><td> 321665</td><td></td><td> LDA</td><td> FSTP</td><td> LOAD THE FUNCTION STACK POINTER</td>

<td> £169</td><td> 02232</td><td> 012045</td><td></td><td> CPA</td><td> FSLL</td><td> IS STACK EMPTY?</td>

<td> 0 170</td><td> 02233</td><td> 170402</td><td></td><td> RET</td><td></td><td> RETURN</td>

<td> 2 171</td><td> £2234</td><td> 026043</td><td></td><td> LDB</td><td> FSL2</td><td> REDUCE THE STACK LEVEL TO ONE</td>

<td> 2172</td><td> 02235</td><td> 035665</td><td></td><td> STB</td><td> FSTP</td><td> STORE IN STACK POINTER</td>

<td> 0173</td><td> 02236</td><td> 122045</td><td></td><td> LOA</td><td> FSLL.I</td><td> LOAD THE 1ST RETURN ADDRESS</td>

<td> k 1 74</td><td> £2237</td><td> 070072</td><td></td><td> SAM</td><td> *♦1 ,C</td><td> CLEAR CALC FLAG IF ANY</td>

0!78*FIND KEY PROCESSING 2179*

<td> <181</td><td> 02243 025701</td><td> LDB PCNT</td><td> LOAD THE PROG COUNTER VALUE</td>

<td> 0182</td><td> 32244 062017</td><td> JSM SRCH</td><td> SEARCH FOR THE KEYCODE</td>

<td> 0183</td><td> '<2245 074113</td><td> SBP * + 2</td><td> SKIP IF FOUND</td>

<td> 0184</td><td> £2246 166072</td><td> JMP ERROR,I</td><td> INDICATE ERROR, NOT FOUNF</td>

<td> 0185</td><td> 02247 074070</td><td> SIB *+l</td><td> PUT KEY IN Z DISPLAY</td>

<td> 0186</td><td> 02250 035701</td><td> STB PCNT</td><td> ADJUST THE PROF COUNTER</td>

<td> 0187</td><td> ?2251 124111</td><td> LDB SECW.I</td><td> LOAD THE SECURITY WORD</td>

<td> 0188</td><td> 02252 074110</td><td> SZB * + 2</td><td> SSKIP IF NON SECURE PROG</td>

<td> 0189</td><td> 02253 064167</td><td> JMP INIT</td><td> RETURN IF SECURE</td>

<td> 0 190</td><td> <z2»4 060167</td><td> JSM INIT</td><td> RE-I N ITIAL I ZE</td>

<td> 0191</td><td> 02255 064326</td><td> JMP 3268</td><td> SWITCH TO PROG MODE</td>

0l93»TBE FOLLOWING SUBROUTINE FETCHES THE NEXT KEY. THIS 0194* ROUITNE ABORTS THE OPERATION IF KEY CAME FROM PROGRAM 0.195* STORAGE.

0196·

<td> 0197</td><td> 02256</td><td> 124103 GETK1</td><td> LDB EXCF,I</td><td> LOAD THE EXECUTION FLAG</td>

<td> 0198</td><td> 02257</td><td> 076410</td><td> RZB UGLY</td><td> SKIP IF EXECUTING A PROG</td>

<td> 0199</td><td> 02260</td><td> 060115</td><td> JSM GETK</td><td> CALL ON THE KEY FETCHER</td>

<td> 0 200</td><td> £2261</td><td> 124103</td><td> LDB EXCF,I</td><td> LOAD THE EXECUTION FLAG</td>

<td> 0201</td><td> 02262</td><td> 076250</td><td> RZB UGLY</td><td> SKIP IF KEY CAME FROM MEMORY</td>

<td> 0203</td><td> C2264</td><td> 160113</td><td> JSM KLOG,I</td><td> PRINT IT IF NEEDED</td>

<td> 0205</td><td> 02266</td><td> 170402</td><td> RET</td><td> RETURN</td>

<td> 0206</td><td> 02267</td><td> 166072 UGLY</td><td> JMP ERROR,I</td><td> STOP THE OPERATION</td>

<td colspan="2"> 0208*OELETE</td><td colspan="2"> KEY PROCESSING</td><td></td>

<td> 0210</td><td> 02270</td><td> 12010)3 DLET</td><td> LDA EXCF,I</td><td> LOAD THE EXECUTION FLAG</td>

<td> 0211</td><td> <2271</td><td> 073710</td><td> RZA UGLY</td><td> SKIP IF EXECUTING A PROG</td>

<td> 0212</td><td> Z2272</td><td> 021776</td><td> LDA PMODE</td><td> LOAD THE STATUS WORD</td>

<td> .!213</td><td> 02273</td><td> 042525</td><td> IOR DLMSK</td><td> TURN ON THE DELETE LIGHT</td>

<td> 0214</td><td> 2 2274</td><td> 031776</td><td> STA PMODE</td><td> STORE THE NEW STATUS</td>

<td> ' 2 15</td><td> £2275</td><td> 172160</td><td> OTA</td><td> 16</td><td> OUTPUT TO THE INDICATORS</td>

<td> 0217</td><td> 0 2277</td><td> 0 12534</td><td> CPA</td><td> CANCK</td><td> CANCEL KEY FOLLOWS?</td>

<td> / 2 1 8</td><td> 0 2 300</td><td> 066516</td><td> JMP</td><td> ACUM4</td><td> YES,RETURN</td>

<td> ·,· 2 1 9</td><td> 2 2301</td><td> 012051</td><td> CPA</td><td> PRTCT</td><td> DELETE-PROTECT?</td>

<td> 3221</td><td> 22303</td><td> 012052</td><td> CPA</td><td> FRETK</td><td> DELETE-FRET?</td>

<td> 0 223</td><td> 02305</td><td> 312533</td><td> CPA</td><td> DLTK</td><td> DELETE-DELETE?</td>

3,859,635

197 198

USER DEFINABLE FUNCTION BLOCK-Continued

<td> .’225</td><td> 02307</td><td> 084024</td><td></td><td> ADB</td><td> M10</td><td> CHECK IF KEY IS NUMERIC</td>

<td> «227</td><td> «2311</td><td> 031664</td><td></td><td> STA</td><td> TEMP?</td><td> STORE THE GIVEN DIGIT</td>

<td> «228</td><td> «2312</td><td> 062230</td><td></td><td> JSM</td><td> RSTC</td><td> RESET THE FUNCTION STACK IF NEEDED</td>

<td> 0 229</td><td> 0 2313</td><td> 062466</td><td></td><td> JSM</td><td> ACUM</td><td> CALCULATE THE REFERENCED ADDRESS</td>

<td> «231</td><td> '0 2315</td><td> 035701</td><td></td><td> STB</td><td> PCNT</td><td> POINT TO THE EMPTIED AREA</td>

<td> 02.32</td><td> «2316</td><td> 045664</td><td></td><td> ISZ</td><td> TEMP?</td><td> INCREMENT IT</td>

<td> «234</td><td> '02320</td><td> 062005</td><td></td><td> JSM</td><td> MOVE</td><td> MOVE MEMORY</td>

<td> «235</td><td> «2321</td><td> 062516</td><td> OELT0</td><td> . JSM</td><td> ACUM4</td><td> TURN OFF THE DELETE LIGHT</td>

<td> «236</td><td> «2322</td><td> 021721</td><td></td><td> LOA</td><td> ADDRC</td><td> LOAD THE.ADDRESS COUNTER</td>

<td> J237</td><td> '3 2323</td><td> 072110</td><td></td><td> RZA</td><td> * + 2</td><td> SKIP IF ADDRESS WAS TERMINATED AUTOMATICA</td>

<td> «238</td><td> «2324</td><td> 170402</td><td></td><td> RET</td><td></td><td> RETURN</td>

<td> /2.39</td><td> «2325</td><td> 025725</td><td></td><td> LDB</td><td> KBUF</td><td> LOAD THE TERMIAATING KEY</td>

<td> 0240</td><td> «2326</td><td> 064357</td><td></td><td> JMP</td><td> INTR?</td><td> GIVE IT TO THE INTERPRETER</td>

<td> 024-3</td><td> «2331</td><td> 074153</td><td></td><td> SBP</td><td> DELT3</td><td> SKIP IF >=60, LEGAL</td>

<td> J14 4</td><td> «2332</td><td> Ϊ02527</td><td> DELT2</td><td> J Sri</td><td> ERRi, I</td><td> TURN ON THE ERROR LIGHT</td>

<td> «245</td><td> 0 2333</td><td> 366516</td><td></td><td> JMP</td><td> ACUM4</td><td> ABORT THE DELETE OPERATIONS</td>

<td> -.1248</td><td> 02335</td><td> '006530</td><td></td><td> ADB</td><td> M76</td><td> CHECK IF KEYCODE >76</td>

<td> 0249</td><td> 02336</td><td> 075613</td><td></td><td> SBP</td><td> DELT2</td><td> ILLEGAL IF >= 76</td>

<td> 0250</td><td> «2337</td><td> 012533</td><td></td><td> CPA</td><td> OLTK</td><td> KEY IS DELETE?</td>

<td> «251</td><td> 02340</td><td> 066270</td><td></td><td> JMP</td><td> DLET</td><td> RE-INITIALIZE THE DELETE OPERATION</td>

<td> 0252</td><td> 02341</td><td> 012536</td><td></td><td> CPA</td><td> INTK</td><td> INTX KEY FOLLOWS?</td>

<td> 0253</td><td> 02342</td><td> 066332</td><td></td><td> JMP</td><td> DELT?</td><td> ERROR,ILLEGAL</td>

<td> ,’254</td><td> «2343</td><td> 012050</td><td></td><td> CPA</td><td> DEFK</td><td> KEY IS DEFINE?</td>

<td> «255</td><td> «2344</td><td> 066332</td><td></td><td> JMP</td><td> DELT?</td><td> ERROR,ILLEGAL</td>

<td> 0256</td><td> 02345</td><td> 012537</td><td></td><td> CPA</td><td> FINOK</td><td> KEY IS DEFINE?</td>

<td> 0 257</td><td> «2346</td><td> 066332</td><td></td><td> JMP</td><td> DELT?</td><td> ERROR, ILLEGAL</td>

<td> /259</td><td> «235«</td><td> 066332</td><td></td><td> JMP</td><td> DELT?</td><td> ERROR,ILLEGAL</td>

<td> «260</td><td> «2351</td><td> 0.31725</td><td></td><td> STA</td><td> KBUF</td><td> STORE KEY IN BUFFFER</td>

<td> .3261</td><td> «2352</td><td> 062230</td><td></td><td> JSM</td><td> RSTC</td><td> RESET THE FUNCTION STACK IF NEEDED</td>

<td> «262</td><td> «2353</td><td> 021725</td><td></td><td> LDA</td><td> KBUF</td><td> LOAD THE INPUT KEY</td>

<td> «26.3</td><td> «2354</td><td> 325707</td><td></td><td> LDB</td><td> USLO</td><td> LOAD THE LOCAL PROG ORIGIN</td>

<td> «264</td><td> «2355</td><td> 022050</td><td> DELT4</td><td> LDA</td><td> DEFK</td><td> LOAD CODE FOR DEFINE KEY</td>

<td> «265</td><td> «2356</td><td> 062017</td><td></td><td> JSM</td><td> SRCH</td><td> SEARCH FOR DEF</td>

<td> 0266</td><td> «2357</td><td> 074113</td><td></td><td> SBP</td><td> »♦2</td><td> SKIP IF SEARCH SUCCEEDED</td>

<td> /267</td><td> «236«</td><td> 066332</td><td> BAD</td><td> JMP</td><td> DELT2</td><td> ERROR,RETURN</td>

<td> 0268</td><td> «2361</td><td> 074070</td><td></td><td> SIB</td><td> *♦1</td><td> POINT TO KEY FOLLOWING DEF</td>

<td> 0 269</td><td> «2362</td><td> 021725</td><td></td><td> LDA</td><td> KBUF</td><td> LOAD THE F KEY SEARCHED FOR</td>

<td> «270</td><td> «2363</td><td> 074457</td><td></td><td> CPA</td><td> B,I</td><td> IS THIS THE FUNCTION TO BE DELETED?</td>

<td> < Z /,</td><td> H !</td><td> «35724</td><td> STB</td><td> tempi</td>

<td> .:278</td><td> «2373</td><td> 074253</td><td> SBP</td><td> DELTS</td>

<td> *280</td><td> «2375</td><td> 025724</td><td> LDB</td><td> TEMPI</td>

<td> ir. 286</td><td> «2403</td><td> 005724</td><td> ADB</td><td> TEMPI</td>

YES. GO AHEAD

NO, SEARCH SOME MORE

POINT TO The FUNCIION BEGINNING

STORE ADDRESS TEMPORARILY

LOAD CODE FOR DEF

POINT PASS THE DEF SEARCH FOR NEXT DEF

SKIP IF FOUND LOAD CODE FOR END LOAD SEARCH ADDRESS SEARCH FOR END INSTEAD ERROR IF NOT FOUND

LOAD THE PROG COUNTER

MAKE IT NEGATIVE

SUBTRACT FROM START OF DELETE ARESA SKIP IF COUNTER IS LESS

SUBTRACT FROM ENO OF DELETE AREA SKIP IF COUNTER IS SITTING IN BETWWEEN FINO THE LENGHT OF AREA TO BE MOVED

<td> USER DEFINABLE FUNCTION BLOCK-Continued</td>

<td> «294 <295</td><td> 02413 070037 ADB A 02414 074076 TCB NEG OF LENGTH IS AVAILABLE HERE</td>

<td> 0296 0 297</td><td> «2415 005701 AOB PCNT ADJUST THE PROG COUNTER 02416 066420 JMP * + 2</td>

<td> 0298</td><td> 02417 025724 DELT7 LDB TEMPI LOAD START OF AREA TO BE DELETED</td>

<td> ? 2. ‘ / 0</td><td> <j^:>701 STS PCNT ADJUST THE PROG COUNTER</td>

<td> «330 3 j «J 1 Ϊ13Λ2</td><td> 02421 025724 DELT6 LDB TEMPI 02422 06200b JSM MOVE MOVE IT 02423 066516 JMP ACUM4 TERMINATE</td>

<td colspan="2"> J304*INSERT</td><td> PROCESSING</td><td></td><td></td><td></td><td></td>

<td> 0 3 36</td><td> «2424</td><td> 120103 INSRT</td><td> LDA</td><td> EXCF.I</td><td> LOAD THE EXECUTE FLAG</td><td></td>

<td> 0 307</td><td> 02425</td><td> 070110</td><td> SZA</td><td> *♦2</td><td colspan="2"> SKIP IF IN CALCULATOR MODE</td>

<td> <.338</td><td> 0 2426</td><td> 166072</td><td> JMP</td><td> ERROR, I</td><td> ERROR,STOP EXECUTION</td><td></td>

<td> 0 3 09</td><td> 02427</td><td> 021776</td><td> LDA</td><td> PMODE</td><td> LOAD THE STATUS WORD</td><td></td>

<td> <310</td><td> 0 2433</td><td> 042525</td><td> IOR</td><td> DLMSK</td><td> TURN ON THE INSERT/DELETE</td><td> BIT</td>

<td> 0311</td><td> 02431</td><td> 031776</td><td> STA</td><td> PMODE</td><td> STORE THE NEW STATUS</td><td></td>

<td> <312</td><td> 0 2432</td><td> 172160</td><td> OTA</td><td> 16</td><td> OUTPUT TO THE INDICATORS</td><td></td>

<td> <313</td><td> 02433</td><td> 062256</td><td> JSM</td><td> GETKl</td><td> GET THE NEXT KEY</td><td></td>

<td> •3 3 14</td><td> 0 24 34</td><td> 004024</td><td> AD8</td><td> M10</td><td> CHECK IF NUMERIC</td><td></td>

<td> <316</td><td> 02436</td><td> 012534</td><td> CPA</td><td> CANCK</td><td> CANCEL KEY FOLLOWS?</td><td></td>

<td> <317</td><td> 02437</td><td> 366516</td><td> JMP</td><td> ACUM4</td><td> YES,RETURN</td><td></td>

<td> <318</td><td> 0 244'0</td><td> 012535</td><td> CPA</td><td> INSTK</td><td> INSERT KEY?</td><td></td>

<td> »’.319</td><td> 02441</td><td> 066424</td><td> JMP</td><td> INSRT</td><td> REPEAT THE INSERT LOOP</td><td></td>

<td> <320</td><td> 02442</td><td> 062516</td><td> JSM</td><td> ACUM4</td><td> TURN OFF THE DELETE BIT</td><td></td>

<td> <321</td><td> 02443</td><td> 166072</td><td> JMP</td><td> ERROR,I</td><td> ERROR</td><td></td>

<td> 3322</td><td> 0 2444</td><td> 031664</td><td> STA</td><td> TEMP2</td><td> STORE THE INPUT DIGIT</td><td></td>

<td> 3 323</td><td> «2445</td><td> 062230</td><td> JSM</td><td> RSTC</td><td> RESET THE FUNCTION STACK</td><td> IF NEEDED</td>

<td> .! J 24</td><td> «2446</td><td> 062466</td><td> JSM</td><td> ACUM</td><td> CALCULATE THE REFERENCED</td><td> ADDRESS</td>

<td> ύ 325</td><td> 02447</td><td> 022064</td><td> LDA</td><td> ENM</td><td> POINT TO ENO OF MEMORY</td><td></td>

<td> 0326</td><td> 02450</td><td> 031724</td><td></td><td> STA</td><td> TEMPI</td><td></td>

<td> nJ28</td><td> «2452</td><td> 066516</td><td></td><td> JMP</td><td> AC UM A</td><td> RETUhN</td>

<td> >. i 30</td><td> 0 24 54</td><td> .4/353 7</td><td></td><td> LDB</td><td> Λ, I</td><td> LOAD KEY FROM THAT ADDRESS</td>

<td> 0331</td><td> 02455</td><td> 135724</td><td></td><td> STH</td><td> TEMPI,1</td><td> MOVE IT</td>

<td> B333</td><td> 02457</td><td> 066462</td><td></td><td> JMP</td><td> LAST</td><td> YES,PERFORM LAST LOOP</td>

<td> 3334</td><td> 02460</td><td> 055724</td><td></td><td> DSZ</td><td> TEMPI</td><td> DECREMENT MEMORY POINTER</td>

<td> 0336</td><td> 02462</td><td> 024022</td><td> LAST</td><td> LDB</td><td> CONTK</td><td></td>

<td> <337</td><td> 02463</td><td> 070577</td><td></td><td> STB</td><td> A,I</td><td> PUT IN VACATED LOCATION</td>

<td> 033Θ</td><td> 02464</td><td> 031701</td><td></td><td> STA</td><td> PCNT</td><td> POINT TO THE INSERTED KEY</td>

<td> 0339</td><td> 02465</td><td> 066321</td><td></td><td> JMP</td><td> DELT0</td><td> RETURN</td>

0341*ADDRESS COMPUTING SUBROUTINE 0342*

<td> 0343</td><td> 02466 024034 ACUM</td><td> LDB</td><td> .3</td><td> INITIALIZE AN ADDRESS</td><td> COUNTER</td>

<td> «344</td><td> 02467 035721</td><td> STB</td><td> ADDRC</td><td></td><td></td>

<td> 3346</td><td> 02471 004024</td><td> ADB</td><td> M10</td><td> NUMERIC? </td><td></td>

<td> 0349</td><td> 02473 025664</td><td> LDB</td><td> TEMP2</td><td> LOAD THE PREVIOUS RESULT</td><td></td>

<td> 0356</td><td> 02501 055721</td><td> DSZ</td><td> ADDRC</td><td> 4 DIGITS ADDRESS TN?</td><td></td>

<td> 0357</td><td> 02502 066470</td><td> JMP</td><td> ACUM!</td><td> NO,GET THE NEXT DIGIT</td><td></td>

<td> 0358</td><td> «2503 031725 ACUM2</td><td> STA</td><td> KBUF</td><td colspan="2"> STORE THE TERMINATOR KEY</td>

<td> 0 359</td><td> 02504 012534</td><td> CPA</td><td> CANCK</td><td> KEY IS CANCEL?</td><td></td>

<td> 0360</td><td> 02505 066523</td><td> JMP</td><td> ACUM5</td><td> YES,ABORT THE INSERT OR</td><td> DELETE OPERATION</td>

3,859,635

202

201

USER DEFINABLE FUNCTION BLOCK-Continued

<td> 0361</td><td> 02506 025664</td><td> LDB TEMP2</td><td> LOAD THE COMPUTED RESULT</td>

<td> 0362</td><td> 02507 005707</td><td> ADB USLO</td><td> FIND THE ACTUAL ADDRESS</td>

<td> 0363</td><td> 02510 035664</td><td> STB TEMP2</td><td> STORE IT</td>

<td> 0364</td><td> 02511 004055</td><td> ADB MAX</td><td> CHECK IF ADDRESS OUT OF RANGE</td>

<td> 0366</td><td> 02513 062516</td><td> JSM ACUM4</td><td> TURN OFF THE DELETE LIGHT</td>

<td> 0367</td><td> 02514 166072</td><td> JMP ERROR,I</td><td> TURN ON THE ERROR LIGHT</td>

<td> 0368</td><td> «2515 170402 ACUM3</td><td> RET</td><td> NORMAL RETURN</td>

<td> «370</td><td> 02516 021776 ACUM4</td><td> LDA PMODE</td><td> LOAD THE STATUS WORD</td>

<td> 0371</td><td> 02517 052531</td><td> AND DLMOF</td><td> TURN OFF THE DELETE BIT</td>

<td> 0372</td><td> 02520 031776</td><td> STA PMODE</td><td> STORE THE NEW STATUS</td>

<td> 0373</td><td> 02521 172160</td><td> OTA 16</td><td> OUTPUT TO THE INDICATORS</td>

<td> 2374</td><td> 02522 064167</td><td> JMP INIT</td><td> RETURN</td>

<td> 0375</td><td> 02523 055777 ACUM5</td><td> DSZ SSP</td><td> DECREMENT THE SYSTEM STACK</td>

<td> «376</td><td> 02524 066516</td><td> JMP ACUM4</td><td> RETURN</td>

0378*LINKAGE AREA 0379 02525 020000 DLMSK

OCT 20000

<td> <+3</td><td> « 253 1</td><td> 157777</td><td> DLMOF</td><td> OCT</td><td> 157777</td><td></td><td></td>

<td> «386</td><td> «2534</td><td> 000020</td><td> CANCK</td><td> OCT</td><td> 20</td><td> CANCEL INSERT OR DELETE</td><td> (CLEAR!</td>

<td> 0387</td><td> 02535</td><td> 000066</td><td> INSTK</td><td> OCT</td><td> 66</td><td> CODE FOR INSERT</td><td></td>

<td> 0389</td><td> 02537</td><td> 000015</td><td> FINDK</td><td> OCT</td><td> 15</td><td></td><td></td>

<td> 039?</td><td> 00022</td><td></td><td> CONTK</td><td> EQU</td><td> 22B</td><td></td><td></td>

<td> 0 397</td><td> 02060</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F5 ENTRY</td><td></td>

<td> 0398</td><td> 22061</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F3 ENTRY</td><td></td>

<td> 0399</td><td> 02062</td><td> 002270</td><td></td><td> DEF</td><td> DLET</td><td> DELETE ENTRY</td><td></td>

<td> 0430</td><td> 02063</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F4 ENTRY</td><td></td>

<td> 0401</td><td> 02064</td><td> 015777</td><td> ENM</td><td> OCT</td><td> 15777</td><td> END MEMORY ADDRESS</td><td></td>

<td> 0433</td><td> 02066</td><td> 002424</td><td></td><td> DEF</td><td> INSRT</td><td> INSERT ENTRY</td><td></td>

<td> 0404</td><td> 02067</td><td> 002000</td><td> DTBL1</td><td> OCT</td><td> 2000</td><td> ADDRESS OF LOCAL DIRECTIVE</td><td rowspan="2"> TABLE</td>

<td> 0405</td><td> 02070</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F7 ENTRY</td>

<td> 0406</td><td> 02371</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F9 ENTRY</td><td></td>

<td> 0407</td><td> 02072</td><td> 004110</td><td> ERROR</td><td> OCT</td><td> 4110</td><td></td><td></td>

<td> 04w8</td><td> »2073</td><td> 202076</td><td></td><td> DEF</td><td> FI</td><td> Fo ENTRY</td><td></td>

<td> 0410</td><td> 02075</td><td> 002076</td><td></td><td> DEF</td><td> FI</td><td> F5 NEW ENTRY</td><td></td>

<td> 0413</td><td> 02015</td><td> 002242</td><td></td><td> DEF</td><td> FIND</td><td> FIND ENTRY</td><td></td>

<td> 0414 0415*</td><td> 02016</td><td> 002025</td><td></td><td> DEF</td><td> PRTCP</td><td> PROTECT ENTRY</td><td></td>

<td> 0417</td><td> 02055</td><td> 002146</td><td></td><td> DEF</td><td> FRET</td><td> F-RET ENTRY</td><td></td>

<td> 0422</td><td> 02044</td><td> 040000</td><td> PRMSK</td><td> OCT</td><td> 40000</td><td></td><td></td>

3,859,635

204

203

USER DEFINABLE FUNCTION BLOCK-Continued

<td> £427</td><td> 02050</td><td> 000072</td><td> DEFK</td><td> OCT</td><td> 72</td><td> CODE FOR DEFINE</td>

<td> 042B</td><td> 02051</td><td> 000016</td><td> PRTCT</td><td> OCT</td><td> 16</td><td></td>

<td> £429</td><td> 02052</td><td> 000055</td><td> FRETK</td><td> OCT</td><td> 55</td><td></td>

<td> ,)4 34</td><td> ‘•’1724</td><td></td><td> TEMPI</td><td> EOU</td><td> 17240</td><td></td>

<td> 2449</td><td> «1721</td><td></td><td> ADDRC</td><td> . EQU</td><td> 17210</td><td></td>

<td> * NO</td><td colspan="2"> ERRORS»</td><td></td><td></td><td></td><td></td>

<td> • NO ERRORS*</td><td></td>

<td> ,. / 4</td><td> «0 1 13</td><td></td><td> KELOG</td><td> ECU</td><td> 1 13fl</td><td> KFYI.OG ENTRY POINT</td>

<td></td><td> 00103</td><td></td><td> xeqfl</td><td> EQU</td><td> 1M3H</td><td> KEYBOARD EXECUSION FLAG</td>

<td> :. 06</td><td> «0115</td><td></td><td> GF I KE</td><td> EQU</td><td> 115<3</td><td> GEI-ANOTHER-KEY ENTRY</td>

<td> ,)/)07</td><td> «1725</td><td></td><td> KYBUF</td><td> EQU</td><td> 17258</td><td> KEYCODE BUFFER</td>

<td> £008</td><td> 01701</td><td></td><td> PGCNT</td><td> EQU</td><td> 17019</td><td></td>

<td> 0009</td><td> <0 8167</td><td></td><td> MON</td><td> EQU</td><td> 1678</td><td> MAIN CALC MONITOR ENTRY POINT</td>

<td> £011</td><td> 0 1665</td><td></td><td> COUT</td><td> EQU</td><td> 1665B</td><td> SUMMATION OUTER LOOP COUNTER</td>

<td> 3012</td><td> ύ 1 666</td><td></td><td> RPNTR</td><td> EQU</td><td> 1666B</td><td> SUMMATION REGISTER POINTER</td>

<td> 2013</td><td> «1667</td><td></td><td> CIN</td><td> EQU</td><td> 1667B</td><td> SUMMATION INNER LOOP COUNTER</td>

<td> «014</td><td> «1664</td><td></td><td> CLFLG</td><td> EQU</td><td> 16648</td><td> CLEAR-CORRECT FLAG WORD</td>

<td> V.1 w 15</td><td> «0064</td><td></td><td> PIP</td><td> EQU</td><td> 64B</td><td> POINTER TO PI</td>

<td> 3016</td><td> 00003</td><td></td><td> FOUR</td><td> EQU</td><td> 3Θ</td><td> BINARY CONSTANT FOUR</td>

<td> 0017</td><td> «0276</td><td></td><td> SORT</td><td> EQU</td><td> 2768</td><td> ENTRY (INDIRECT) TO SQUARE-ROOT</td>

<td> 0018</td><td> 00264</td><td></td><td> INTX</td><td> ECU</td><td> 2648</td><td> ENTRY (INDIRECT) TO INTEGER-PART</td>

<td> 0019</td><td> «0212</td><td></td><td> XSQR</td><td> EOU</td><td> 212Θ</td><td> ENTRY (INDIRECT) TO X-SQUARE</td>

<td> 0020.</td><td> 00330</td><td></td><td> STLIT</td><td> EQU</td><td> 330B</td><td> ENTRY TO SET-LIGHT ROUTINE(OTA,STA)</td>

<td> 0021</td><td> 2006 3</td><td></td><td> ONE</td><td> EQU</td><td> 63B</td><td> BINARY CONSTANT ONE</td>

<td> >. 0 s</td><td> 7 20 0'0</td><td> 02 1 7 25</td><td> STAT</td><td> LOA</td><td> KYBUF</td><td> GET KEYCODE</td>

<td> ..0 26</td><td> .:.? ’<1</td><td> 0’2121</td><td></td><td> ADA</td><td> BASE1</td><td> ADD OFFSET</td>

<td> )028</td><td> 2 2+).3</td><td> 07” 737</td><td></td><td> JMP</td><td> A, I</td><td> JUMP TO KEYCODE ROUTINE</td>

<td> .-..)29</td><td> «2004</td><td> 0/. 314 7</td><td></td><td> DEF</td><td> RAND</td><td> KEYCODE IS</td>

<td> 0031</td><td> «2006</td><td> 06'31 15</td><td> KEY?</td><td> JSM</td><td> GETKE</td><td> GET-SECOND-KEY ROUTINE</td>

3,859,635

206

205 — Continued

<td> ££ 32</td><td> £2007</td><td> £7«137</td><td></td><td> LOB</td><td> A</td><td> MOVE KEYCODE</td><td></td><td></td>

<td> 0033</td><td> «2010</td><td> 1?«1£3</td><td></td><td> LOA</td><td> XEOFL.I</td><td> GET EXECUTION FLAG</td><td></td><td></td>

<td> 0034</td><td> £2011</td><td> 07811«</td><td></td><td> RZA</td><td> *♦2</td><td colspan="2"> SKIP IF NOT FROM KEYBOARD</td><td></td>

<td> £035</td><td> «2012</td><td> 160113</td><td></td><td> JSM</td><td> KELOG.I</td><td colspan="2"> ITS FROM KEYBOARD, KEYLOG</td><td> IT</td>

<td> «038</td><td> C2014</td><td> 062006</td><td colspan="2"> VARBL JSM</td><td> KEY2</td><td> GO GET DIGIT KEY</td><td></td><td></td>

<td> 0043</td><td> 0 2021</td><td> 0161 01</td><td></td><td> CPB</td><td> THREE</td><td> IS IT THREE?</td><td></td><td></td>

<td> 0049</td><td> «2027</td><td> 166071</td><td></td><td> JMP</td><td> ERSTP.I</td><td> NOT CORRECT DIGIT-ERROR</td><td></td><td></td>

<td> «050</td><td> £2030</td><td> 022046</td><td> FVE</td><td> LDA</td><td> FLG2M</td><td> GET DIGIT-2 FLAG IN A</td><td></td><td></td>

<td> «052</td><td> «2032</td><td> 022045</td><td> FUR</td><td> LDA</td><td> FLG1M</td><td> GET DIGIT-1 FLAG IN A</td><td></td><td></td>

<td> £054</td><td> £2034</td><td> 070742</td><td> TREE</td><td> SAR</td><td> 16</td><td> CLEAR DIGIT FLAGS IN A</td><td></td><td></td>

<td> 0055</td><td> £2035</td><td> 042072</td><td> INCL</td><td> 3 I OR</td><td> FLG3M</td><td> PUT IN DIGIT-3 FLAG</td><td></td><td></td>

<td> 0056</td><td> £2'336</td><td> 070137</td><td> PUT!</td><td> T LDB</td><td> A</td><td> SAVE FLAGS</td><td></td><td></td>

<td> 005 7</td><td> «2037</td><td> 022056</td><td></td><td> LDA</td><td> FLGMS</td><td> GET FLAG MASK</td><td></td><td></td>

<td> 005«</td><td> £2040</td><td> 070056</td><td></td><td> CMA</td><td></td><td> MAKE IT FLAG-REMOVAL MASK</td><td></td><td></td>

<td> 0059</td><td> £2041</td><td> 051776</td><td></td><td> AND</td><td> FLGWO</td><td> GET FLAG-WORD,MASKING OUT</td><td> DIGIT</td><td> FLAGS</td>

<td> 0060</td><td> £2042</td><td> 074217</td><td></td><td> I OR</td><td> B</td><td> PUT NEW DIGIT FLAGS IN</td><td></td><td></td>

<td> 0062</td><td> 02044</td><td> £02014</td><td></td><td> DEF</td><td> VARBL</td><td> KEYCODE 55</td><td></td><td></td>

<td> 0063</td><td> 02045</td><td> £20030</td><td> FLG1</td><td> M OCT</td><td> 20000</td><td> OPTION 1 G FLAG</td><td></td><td></td>

<td> 3064</td><td> 02046</td><td> 040000</td><td> FLG2</td><td> M OCT</td><td> 40000</td><td> OTION 2 FLAG</td><td></td><td></td>

<td> 0065</td><td> 02047</td><td> 032526</td><td></td><td> DEF</td><td> REGR</td><td> KEYCODE 60</td><td></td><td></td>

<td> 0066</td><td> £2050</td><td> 302471</td><td></td><td> DEF</td><td> MEAN</td><td> KEYCODE 61</td><td></td><td></td>

<td> 0067</td><td> £2051</td><td> 002127</td><td></td><td> DEF</td><td> CLEAR</td><td> KEYCODE 62</td><td></td><td></td>

<td> 0068</td><td> «2052</td><td> 302434</td><td></td><td> DEF</td><td> VRNCE </td><td> KEYCODE 63</td><td></td><td></td>

<td> 0069</td><td> 02'353</td><td> 000002</td><td> TWO</td><td> OCT</td><td> 2</td><td> BINARY CONSTANT TWO</td><td></td><td></td>

<td> 3070</td><td> £2054</td><td> 003560</td><td></td><td> OEF</td><td> LNX</td><td> KEYCODE 65</td><td></td><td></td>

<td> 0071</td><td> «2055</td><td> 003177</td><td></td><td> DEF</td><td> RSQR</td><td> KEYCODE 66</td><td></td><td></td>

<td> «072</td><td> £2056</td><td> 064000</td><td colspan="2"> FLGMS OCT</td><td> 64000</td><td> DIGIT -FLAG MASK</td><td></td><td></td>

<td> 0073</td><td> 02057</td><td> 002717</td><td></td><td> OEF</td><td> TPAIR</td><td> KEYCODE 70</td><td></td><td></td>

<td> 0074</td><td> £2060</td><td> £02207</td><td></td><td> DEF</td><td> SUM</td><td> KEYCODE 71</td><td></td><td></td>

<td> 0075</td><td> «2061</td><td> 003023</td><td></td><td> DEF</td><td> CHI</td><td> KEYCODE 72</td><td></td><td></td>

<td> 0076</td><td> 02062</td><td> 003063</td><td></td><td> DEF</td><td> MAXM</td><td> KEYCODE 73</td><td></td><td></td>

<td> 0077</td><td> 02063</td><td> 003771</td><td></td><td> DEF</td><td> LOG</td><td> KEYCODE 74</td><td></td><td></td>

<td> 007B</td><td> «2064</td><td> 003421</td><td></td><td> DEF</td><td> EXP</td><td> KEYCODE 75</td><td></td><td></td>

<td> £079</td><td> £20'65</td><td> 004400</td><td> FMP</td><td> DEF</td><td> 4400B</td><td colspan="3"> ENTRY (INDIRECT) TO F.P. MULTIPLY</td>

<td></td><td colspan="2"> P2066 004263 FSU8</td><td> DEF</td><td> 42638</td><td> ENTRY</td><td> (INDIRECT. TO F.P. SUBTRACT</td><td></td><td></td>

<td> itifi 1</td><td colspan="2"> «2067 «04275 FAD</td><td> DEF</td><td> 42758</td><td> ENTRY</td><td> (INDIRECT. TO F.P. ADD</td><td></td><td></td>

<td> a/82</td><td colspan="2"> ¢2070 004453 FOV</td><td> DEF</td><td> 44538</td><td> ENTRY</td><td> (INDIRECT TO F.P. DIVIDE</td><td></td><td></td>

<td> /£8 3</td><td colspan="3"> «2/71 0041U E»STP OEF</td><td> 411/8</td><td> ENTRY</td><td> (INDIRECT) TO ERROR-STOP</td><td></td><td></td>

<td> £084</td><td colspan="3"> 02072 ¢44000 FLG3M OCT</td><td> 4 0/0</td><td> DIGIT-</td><td> 3 FLAG (MASK)</td><td></td><td></td>

<td> (5/86</td><td colspan="2"> «2073 06033« HEST</td><td> JSM</td><td> STLIT</td><td> OUTPUT</td><td> AND SAVE FLAG (INDICATOR) WORD</td><td></td><td></td>

<td></td><td colspan="2"> ¢2075 022046 TOO</td><td> LDA</td><td> FLG2M</td><td> DIGIT</td><td> WAS 2 - GET OIGIT-2 FLAG</td><td></td><td></td>

<td></td><td colspan="2"> P-2/77 022045 WON</td><td> LDA</td><td> FLG1M</td><td> DIGIT</td><td> WAS 1 - GET OIGIT-1 FLAG</td><td></td><td></td>

<td> » .<· 9 ?</td><td colspan="2"> -:2100 066036</td><td> ’ JMP</td><td> PUTIT</td><td></td><td></td><td></td><td></td>

<td></td><td colspan="3"> «2101 000W03 THREE OCT</td><td> 3</td><td> BINARY</td><td> CONSTANT THREE</td><td></td><td></td>

<td> fo/94</td><td colspan="2"> «2102 0300Z5 FIVE</td><td> OCT</td><td> 5‘</td><td> BINARY</td><td> CONSTANT FIVE</td><td></td><td></td>

<td> i /96</td><td colspan="2"> «2103 021664 CORR</td><td> LDA</td><td> CLFLG</td><td> COPREC</td><td> I KEY - GET CLEAR/CORRECT FLAGWORD</td><td></td><td></td>

<td> ? U97</td><td colspan="2"> «21/4 072Γ51</td><td> SLA</td><td> ♦US</td><td colspan="2"> SET CORRECT FLAG</td><td></td><td></td>

<td> .: * 98</td><td colspan="2"> «'1/5 031664</td><td> STA</td><td> CLFLG</td><td colspan="2"> PUT clear/correct flagwohd back</td><td></td><td></td>

<td> <. 1 11</td><td colspan="2"> «2110 066717</td><td> JMP</td><td> TPAIR</td><td></td><td></td><td></td><td></td>

<td> V 1 Z6</td><td colspan="3"> /?} 1 '·> 021 664 CANCI.. LDA</td><td> CLFLG</td><td> GET</td><td> CLEAR-CORRECT FLAG WQRD</td><td></td><td></td>

<td> C 1 /7</td><td colspan="2"> «2116 070071</td><td> SLA</td><td> «♦l.C</td><td colspan="2"> TURN OFF CORRECT FLAG. NEXT KEY WAS</td><td> WRONG</td><td></td>

<td> n / a</td><td colspan="2"> 22117 331664</td><td> STA</td><td> CLFLG</td><td> SAVE</td><td> FLAG WORD</td><td></td><td></td>

<td> 207</td><td> — Continued</td><td> 208</td>

<td> 2 J 1 0* dill (i?l?l</td><td> liH 767 BAShl OCT 1^1767</td><td colspan="2"> BASE FOR INDIRECT JUMP INTO KEY-TAHIE</td>

<td> rill? «Ρ1?? t113 ✓;? i ? * ;:114 tins i;?i>s el 16 Z?lPh</td><td> yHWNld K70 OCT 7d J00071 K/l OCT 71 000?· 14 K72 OCT 7? 02007J K73 OCT 73 O200W0 CKSM1 OCT «</td><td> KEYCODE 70 CONSTANT KEYCODE 71 CONSTANT KEYCODE 7?. CONSTANT KEYCODE 73 CONSTANT CHECK-SUM WORD FOR 2A00-2777 BLOCK</td><td></td>

118*

119*

<td> .: 1 20</td><td> 02127</td><td> 06?006</td><td> CLEAR</td><td> JSM</td><td> KEY2</td><td> CLEAR KEY - GET NEXT KEY</td>

<td> 2 124</td><td> 02133</td><td> 366150</td><td></td><td> JMP</td><td> SUMCL</td><td></td>

<td> 0126</td><td> 02135</td><td> 066143</td><td></td><td> JMP</td><td> CHICL</td><td></td>

<td> <3128</td><td> 02137</td><td> 066154</td><td></td><td> JMP</td><td> MAXCL</td><td></td>

<td> 0 129</td><td> 02140</td><td> 166071</td><td></td><td> JMP</td><td> ERSTP.I</td><td> WRONG KEY - ERROR</td>

<td> 3130</td><td> 02141</td><td> 022345</td><td> TCLR</td><td> LDA</td><td> R2</td><td> IT IS T - CLEAR R2,R1,R0</td>

<td> £132</td><td> 02143</td><td> 322344</td><td> CHICL</td><td> LDA</td><td> RI</td><td> IT IS CHI - CLEAR RI. R0</td>

<td> 0137</td><td> 02150</td><td> 021664</td><td> SUMCL</td><td> LDA</td><td> CLFLG</td><td> IT IS SUM - GET CLEAR/CORRECT FLAGWORD</td>

<td> 0138</td><td> 02151</td><td> 072053</td><td></td><td> SAP</td><td> *+l,S</td><td> SET CLEAR FLAG</td>

<td> 0139</td><td> 02152</td><td> 031664</td><td></td><td> STA</td><td> CLFLG</td><td> SAVE CLEAR/CORRECT FLAGWORD</td>

<td> 0140</td><td> 02153</td><td> 066207</td><td></td><td> JMP</td><td> SUMI</td><td> GO TO SUM ROUTINE TO CLEAR SUM REGISTER</td>

<td> 0142</td><td> 02154</td><td> 020015</td><td> MAXCL</td><td> LDA</td><td> AR1P</td><td> LOAD ARI PNTR, TO MAKE MAX NO. FOR INIT</td>

<td> 0143</td><td> 02155</td><td> 170000</td><td></td><td> CLR</td><td></td><td> CLEAR ARI</td>

<td> 0145</td><td> 02157</td><td> 174400</td><td></td><td> CMX</td><td></td><td> 10S COMPLEMENT TO GET ALL 9S</td>

<td> 0146</td><td> 02160</td><td> 026206</td><td></td><td> LOB</td><td> EX98</td><td> GET *E + 98 EXPONENT WORD</td>

<td> 0151</td><td> 02164</td><td> 170004</td><td></td><td> XFR</td><td></td><td> JMOVE +MAX TO XMIN</td>

<td> 0168</td><td> 02205</td><td> 064167</td><td></td><td> JMP</td><td> MON</td><td> GO TO DO SOME THING ELSE</td>

1 7 1»

172*

<td> /173</td><td> 0 22,1 7</td><td> 062337</td><td> SUM</td><td> JSM</td><td> GTFLG</td><td> GET</td><td> THE DIGIT FLAGS</td>

<td> (.175</td><td> «'2211</td><td> 062326</td><td></td><td> JSM</td><td> SET 3</td><td> NO</td><td> FLAGS - SET FOR 3-VARIAHLE</td>

<td> .: 1 76</td><td> 0 2212</td><td> 062334</td><td> SUMI</td><td> JSM</td><td> FLAG3</td><td> GET</td><td> DIGIT-3 FLAG OUT OF FLAGWORD</td>

<td> 0177</td><td> 0 2213</td><td> 051776</td><td></td><td> ANO</td><td> FLGWD</td><td></td><td> A SEE IF FLAG 3 SET</td>

<td> 0181</td><td> 02217</td><td> 022310</td><td></td><td> LDA</td><td> S4</td><td> IT</td><td> IS 5-SET UP SUM-LOOP ENTRY</td>

3,859,635

209

210 — Continued

<td> 0185</td><td> 02223</td><td> 073210 SZA SUM13</td><td> IT</td><td> IS 3 WITHOUT 1 - SKIP</td>

<td> 3186</td><td> 02224</td><td> 022311 LDA S3</td><td> IT</td><td> IS 4 - SET UP SUM-LOOP ENTRY</td>

<td> 0 189</td><td> 02227</td><td> 022312 SUM13 LOA S2</td><td> IT</td><td> IS 3-SET SUM-LOOP ENTRY TO R9 ANO Z</td>

<td> 0190</td><td> 02230</td><td> 026353 LDB R9</td><td></td><td> SET MAXIMUM SUMMATION REGISTER</td>

<td> 0 195</td><td> 02235</td><td> 026350 LDB R5</td><td></td><td> SET MAXIMUM SUMMATION REGISTER</td>

<td> 0198</td><td> 02240</td><td> 026345 LDB R2</td><td></td><td> SET MAXIMUM SUMMATION REGISTER</td>

<td> 0199</td><td> 02241</td><td> 031665 SUMR S1A COUT</td><td></td><td> SAVE OUTER LOOP COUNTER</td>

<td> 0 2 0 0</td><td> 02242</td><td> 035666 STB RPNiR</td><td></td><td> SAVE REGISTER POINTER</td>

<td> 0201</td><td> 02243</td><td> 021665 OLOOP LDA COUT</td><td></td><td> GET OUTER LOOP COUNTER</td>

<td> 0202</td><td> 02244</td><td> 031.667 STA CIN</td><td></td><td> MAKE INNER LOOP COUNTER THE SAME</td>

<td> 0203</td><td> 02245</td><td> 021664 ILOOP LDA CLFLG</td><td></td><td> GET CLEAR-CORRECT FLAG WORD</td>

<td> 0204</td><td> 02246</td><td> 070213 SAP IL0P1</td><td></td><td> SEE IF CLEAR FLAG ON</td>

<td> 3205</td><td> 02247</td><td> 021666 LDA RPNTR</td><td></td><td> IT IS, GET POINTER</td>

<td> 3206</td><td> 02250</td><td> 173000 CLR</td><td></td><td> CLEAR THE SUMMATION REGISTER</td>

<td> 0 2'37</td><td> 02251</td><td> 066271 JMP TESTI</td><td></td><td> GO TO TEST FOR INNER LOOP TERMINATION</td>

<td> 0208</td><td> 02252</td><td> 121667 IL0P1 LDA CIN,I</td><td></td><td> NOT CLEAR - LOAD FIRST FACTOR POINTER</td>

<td> 0210</td><td> 02254</td><td> 170004 XFR</td><td></td><td> MOVE FIRST FACTOR TO TEMP</td>

<td> 0211</td><td> 02255</td><td> 121665 LDA COUT,!</td><td></td><td> SET TO SECOND FACTOR</td>

<td> 0213</td><td> 02257</td><td> 162065 JSM FMP,I</td><td></td><td> PRODUCT OF FACTORS IN TEMP</td>

<td> 0214</td><td> 02260</td><td> 021664 LDA CLFLG</td><td></td><td> GET CLEAR-CORRECT FLAG WORD</td>

<td> 0215</td><td> 02261</td><td> 070251 SLA IL0P2</td><td></td><td> IF NO CORRECT FLAG, SKIP</td>

<td> 0216</td><td> 02262</td><td> 022324 LDA T2P</td><td></td><td> CORRECT ON - LOAD FROM</td>

<td> 0217</td><td> 0226 3</td><td> 025666 LDB RPNTR</td><td></td><td> SET TO</td>

<td> 0218</td><td> 02264</td><td> 162066 JSM FSUB.I</td><td></td><td> SUBTRACT OUT FACTOR AS CORRECTION</td>

<td> 0219</td><td> 02265</td><td> 066271 JMP TESTI</td><td></td><td> GO TO TEST FOR INNER LOOP TERMINATION</td>

<td> 0220</td><td> 02266</td><td> 022324 IL0P2 LDA T2P</td><td></td><td> NO CORRECT, SET TO</td>

<td> 0221</td><td> 02267</td><td> 025666 LOB RPNTR</td><td></td><td> SET TO</td>

<td> 0222</td><td> 02270</td><td> 162067 JSM FAD,I</td><td></td><td> ADD NEW FACTOR IN</td>

<td> 0223</td><td> 02271</td><td> 021666 TESTI LDA RPNTR</td><td></td><td> GET REGISTER POINTER</td>

<td> 0224</td><td> 22272</td><td> 000003 . ADA FOUR</td><td></td><td> MOVE TO NEXT REGISTER</td>

<td> 0225</td><td> 22273</td><td> 031666 STA RPNTR</td><td></td><td> SAVE THE NEW POINTER</td>

<td> 0226</td><td> 02274</td><td> 022315 LDA S</td><td></td><td> GET INNER LOOP LIMIT</td>

<td> 0227</td><td> 22275 011667</td><td> CPA CIN</td><td> SEE IF INNER LOOP DONE- SKIP</td><td> IF NOT</td>

<td> 0/28</td><td> 22276 066301</td><td> JMP TESTO</td><td colspan="2"> GO TO SEE IF OUTER LOOP IS DONE</td>

<td> 02?9</td><td> 0?277 045667</td><td> ISZ CIN</td><td> IT IS NOT DONE - MOVER FIRST</td><td> FACTOR PNTR</td>

<td> ii 2 3 0</td><td> 223VΆ .066245</td><td> JMP II.OOP</td><td> GO 00 THE INNER LOOP AGAIN</td><td></td>

<td> 3231</td><td colspan="2"> 22331 011565 ΤΕ5Γ0 CPA C0U1</td><td> SEE IF OUTER LOOP IS DONE</td><td></td>

<td> 32J?</td><td> 22 3;i? 066305</td><td> JMP FINS</td><td> OUTER LOOP DONE</td><td></td>

<td> 2*33</td><td> '22.303 045665</td><td> ISZ COUI</td><td> MOVE OUTER LOOP COUNTER</td><td></td>

<td> 0234 .</td><td> 02304 066243</td><td> JMP OLOOP</td><td> GO DO THE OUTER LOOP AGAIN</td><td></td>

<td> •3235</td><td> 0?305 07'4742 FINS</td><td> SAP 16</td><td> CLEAR A RESISTER</td><td></td>

<td> 3236</td><td> Z?3v>6 031664</td><td> SIA CLFLG</td><td> CLEAR OUT THE CLEAR-CORRECT</td><td> FLAG REISTER</td>

<td> 2/37</td><td> Z23(‘7 064167</td><td> JMP MON</td><td> GO TO DO ANOTHER KEY</td><td></td>

<td> V/V·</td><td> •3231V· 00?3 1 6. S4</td><td> OtF |jR</td><td> S-VARIARLE START-POINT</td><td></td>

<td> 32 39</td><td> // H 1 .00?31 I S3</td><td> • DEF AR</td><td> 4-VARIARLE start-point</td><td></td>

<td> 4/40</td><td> 1'231/: 00232«? S2</td><td> OFF ZR</td><td> 3-VARIABLE START POINT</td><td></td>

<td> Γ/4]</td><td> 02 1! 3 002321 SI</td><td> DEF YR</td><td> 2-VAHIABLE START POINT</td><td></td>

<td> /24?</td><td> v/314 002322 SM.</td><td> DEF XR</td><td> 1—VARIABLE START POINT</td><td></td>

<td> if/43</td><td> 002323 S</td><td> DEF WONE</td><td> CONSTANT 1.0 POINTER</td><td></td>

<td> r /44</td><td> 02316 031770 HR</td><td> OFF 17 70R</td><td> ADDRESS OF B-RE3ISTER</td><td></td>

<td> /,/«5</td><td> 2/317 0417*4 AR</td><td> DEF 17648</td><td> ADDRESS OF A-RE3ISTER</td><td></td>

<td> 3 2m 6</td><td> V2323 001760 ZR</td><td> DEF 1760H</td><td> ADDRESS OF Z-RE3ISTER</td><td></td>

<td> .-./4 7</td><td> C2321 001740 YR</td><td> DEF 17408</td><td> ADDRESS OF Y-RE3ISTER</td><td></td>

<td> 4 / 4 p</td><td> Z?3?2 001750 XR</td><td> DEF 17508</td><td> ADDRESS OF X-RE3ISTER</td><td></td>

<td></td><td> 3232 3 '40'3065 wONE</td><td> DEF -65H</td><td> CONSTANT 1.3 POINTER</td><td></td>

<td> £/50</td><td> 3/324 001670 T?P</td><td> DEF 16708</td><td> ADDRESS OF DECIMAL TEMP-2</td><td></td>

<td> 0251</td><td> 32325 001674 T3P</td><td> DEF 16748</td><td> ADDRESS OF DECIMAL TEMP-3</td><td></td>

<td> ,'2 56</td><td> 'Z2326 0??ki72</td><td> Sr Γ.3 LUA</td><td> FLG3M GFT DIGIT-3 MASK</td><td></td>

<td> 2287</td><td> '.2327 V41776</td><td> IOR</td><td colspan="2"> FLGWO PUT 3-FLAG IN FLAGWORD .</td>

<td> 0258</td><td> //130 064330</td><td> JMP</td><td colspan="2"> STLIT JUMP TO LIGHT SETTING ROUTINE (OTA,STA)</td>

3,859,635

211

212 — Continued

<td> 0261</td><td> 02331</td><td> 022046</td><td> FLAG? LOA</td><td> FLG2M</td><td> GET DIGIT-2 MASK</td>

<td> 0262</td><td> 22332</td><td> 051776</td><td> AND</td><td> FLGWD</td><td> SEE IF 2-FLAG ON</td>

<td> 0266</td><td> 02334</td><td> 022072</td><td> FLAG3 LDA</td><td> FLG3M</td><td> GET DIGIT-3 MASK</td>

<td> 0267</td><td> 22335</td><td> 051776</td><td> AND</td><td> FLGWD</td><td> SEE IF 3-FLAG ON</td>

<td> 2271</td><td> 02337</td><td> 022056</td><td> GTFLG LDA</td><td> FLGMS</td><td> GET FLAG WORD</td>

<td> 2272</td><td> 02340</td><td> 051776</td><td> AND</td><td> FLGWD</td><td> MASK TO GET DIGIT FLAGS</td>

3275* /276*

2/77* MU-TABLE

3278*

<td> 0281</td><td> «2343</td><td> 001654</td><td> XX</td><td> DEF</td><td> 1654B</td><td> RI MU-XX</td><td> TRIPLE</td>

<td> 0284</td><td> /2346</td><td> /01644</td><td> YY</td><td> DEF</td><td> 16448</td><td> R3 MU-YY</td><td> TRIPLE</td>

<td> 0287</td><td> 02351</td><td> 001630</td><td> ZZ</td><td> DEF</td><td> 1630B</td><td> R6 MU-ZZ</td><td> TRIPLE</td>

<td> 0290</td><td> 02354</td><td> 001654</td><td> XY</td><td> DEF</td><td> 16548</td><td> RI MU-XY</td><td> TRIPLE</td>

<td> 0293</td><td> 02357</td><td> 001654</td><td> XZ</td><td> DEF</td><td> 1654B</td><td> RI MU-XZ</td><td> TRIPLE</td>

<td> 0296</td><td> 02362</td><td> 001644</td><td> YZ</td><td> DEF</td><td> 16448</td><td> R3 MU-YZ</td><td> TRIPLE</td>

<td> «299* 0300</td><td> «2365</td><td> 002343</td><td> XXP</td><td> DEF</td><td> XX</td><td> POINTER FOR</td><td> MU-XX</td>

<td> 0301</td><td> 02366</td><td> 002346</td><td> YYP</td><td> DEF</td><td> YY</td><td> POINTER FOR</td><td> MU-YY</td>

<td> 0302</td><td> 02367</td><td> 002351</td><td> ZZP</td><td> DEF</td><td> zz</td><td> POINTER FOR</td><td> MU-ZZ</td>

<td> 0303</td><td> 02370</td><td> »02354</td><td> XYP</td><td> DEF</td><td> XY</td><td> POINTER FOR</td><td> MU-XY</td>

<td> »304</td><td> it3 t 1</td><td> 00?35 !</td><td> XZP</td><td> DEF</td><td> Az</td><td> POINTER FOR</td><td> MU-XZ</td>

<td> 0305</td><td> 02372</td><td> 002362</td><td> YZP</td><td> DEF</td><td> YZ</td><td> POINTER FOR</td><td> MU-YZ</td>

0306« »307*

0308* MU SUBROUTINE

0309«

<td> 0310</td><td> 02373 031665 MU</td><td> STA COUT</td><td> SAVE MAX-VARIABLE POINTER</td>

<td> 0311</td><td> 02374 121665</td><td> LDA COUT.I</td><td> GET FIRST FACTOR ADDRESS</td>

<td> 0313</td><td> 02376 170004</td><td> XFR</td><td> FIRST FACTOR TO TEMP</td>

<td> 0314</td><td> 02377 045665</td><td> ISZ COUT</td><td> MOVE POINTER TO SECOND FACTOR ADDRESS</td>

<td> 0315</td><td> 02400 121665</td><td> LDA COUT, I</td><td> GET SECOND FACTOR ADDRESS</td>

<td> 0317</td><td> 02402 162065</td><td> JSM FMP.I</td><td> PRODUCT IN TEMP</td>

<td> 0318</td><td> 02403 045665</td><td> ISZ COUT</td><td> MOVER POINTER TO THIRD FACTOR ADDRESS</td>

<td> 032]</td><td> 02406 162070</td><td> JSM FDV.I</td><td> DIVIDE PRODUCT BY N</td>

<td> 0322</td><td> 02407 121665</td><td> LDA COUT,I</td><td> GET THIRD FACTOR ADDRESS</td>

<td> 0324</td><td> 02411 162066</td><td> JSM FSUB.T</td><td> DIFFERENCE IN TEMP</td>

<td> 0325</td><td> 02412 126324</td><td> LDB T2P,I</td><td> GET EXPONENT WORD (SIGN) IN 8</td>

<td> 0 327</td><td> 02414 «74071</td><td> SLB *+l,C</td><td> ITS MINUS - CHANGE TO PLUS</td>

<td> 0329</td><td> 02416 076051 PLUS</td><td> SLB *»1,S</td><td> ITS PLUS - CHANGE TO MINUS</td>

<td> 0 3 80</td><td> «2417 136324</td><td> STB T2P.I</td><td> PUT ALTERED EXPONENT WORD BACK</td>

3,859,635

213

214 — Continued

,. 3 33· «3 14*

<td rowspan="2"> 3 35* . 3 36* .: * 3 I</td><td colspan="6"> MIJ-TO-V AP IANCF SUBROUTINE</td>

<td> «2421</td><td> 0P003.J</td><td> MUTVR</td><td> LDA</td><td> R0</td><td> SET PNTR TO GET N</td>

<td> , 338</td><td> 024/2</td><td> 026325</td><td></td><td> LDB</td><td> T3P</td><td> SET TO TO ANOTHER TEMP</td>

<td> «339</td><td> «2423</td><td> 170004</td><td></td><td> XFR</td><td></td><td> MOVE N TO ANOTHER TEMP</td>

<td> «345</td><td> «2431</td><td> 162070</td><td></td><td> JSM</td><td> FDV,I</td><td> DIVIDE MU BY (N-l) TO GET VARIANCE</td>

<td> «346</td><td> «2432</td><td> 022324</td><td></td><td> LDA</td><td> T2P</td><td> SET FROM PNTR TO GET RESULT</td>

<td> «.151*</td><td colspan="5"> VRNCE - SUBROUTINE TO COMPUTE</td><td> VARIANCE OF X, (Y,Z)</td>

<td> ,.353</td><td> «24 34</td><td> 3 6 32 52</td><td> VRNCE</td><td> JSM</td><td> CLER3</td><td> CLEAR Χ,Υ,Ζ REGISTERS</td>

<td> «3 54</td><td> «24 35</td><td> 062337</td><td></td><td> JSM</td><td> bTFLG</td><td> GET DIGIT FLAGS</td>

<td> «355</td><td> 02436</td><td> 072110</td><td></td><td> RZA</td><td> VRN1</td><td> IF VARIABLES DEFINED (ANY FLAG) - SKIP</td>

<td> «356</td><td> «2437</td><td> 166071</td><td></td><td> JMP</td><td> ERSTP,I</td><td> VARIABLES NOT DEFINED - ERROR</td>

<td> 0357</td><td> «2440</td><td> 062334</td><td> VRN1</td><td> JSM</td><td> FLAG3</td><td> SEE IF DIGIT-3 (3,4,5 VARIABLES) ON</td>

<td> «359</td><td> 02442</td><td> 066446</td><td></td><td> JMP</td><td> VRNC3</td><td> IT IS - DO 3-VARIABLE VARIANCE</td>

<td> «360</td><td> 02443</td><td> 062331</td><td> VRN2</td><td> JSM</td><td> FLAG?</td><td> SEE IF DIGIT-? ON</td>

<td> 0361</td><td> «2444</td><td> 070610</td><td></td><td> SZA</td><td> VRNC1</td><td> IT ISN'T - DO 1-VARIABLE VARIANCE</td>

<td> 0362</td><td> 02445</td><td> 066453</td><td></td><td> JMP</td><td> VRNC2</td><td> IT IS - DO 2-VARIABLE VARIANCE</td>

<td> «363</td><td> 02446</td><td> 022367</td><td> VRNC3</td><td> LDA</td><td> ZZP</td><td> DO VARIANCE OF Z</td>

<td> 0365</td><td> 02450</td><td> 062421</td><td></td><td> JSM</td><td> MUTVR</td><td></td>

<td> 0368</td><td> «2453</td><td> 022366</td><td> VRNC2</td><td> LOA</td><td> YYP</td><td> 00 VARIANCE OF Y</td>

<td> 0370</td><td> 02455</td><td> 062421</td><td></td><td> JSM</td><td> MUTVR</td><td></td>

<td> 0373</td><td> «2460</td><td> 022365</td><td> VRNC1</td><td> LDA</td><td> XXP</td><td> DO VARIANCE OF X</td>

<td> 0375</td><td> 02462</td><td> 062421</td><td></td><td> JSM</td><td> MUTVR</td><td></td>

<td> 0331</td><td> «2467</td><td> «51776</td><td></td><td> AND</td><td> FLGWD</td><td></td>

<td> 0385*</td><td colspan="5"> MEAN - SUBROUTINE TO COMPUTE</td><td> MEAN X (Y,Z)</td>

<td> 0 38 7</td><td> 02471</td><td> 063252</td><td> MEAN</td><td> JSM</td><td> CLER3</td><td> CLEAR Χ,Υ,Ζ REGISTERS</td>

<td> 0388</td><td> «2472</td><td> 062337</td><td></td><td> JSM</td><td> GTFLG</td><td> GET DIGIT FLAGS</td>

<td> 0389</td><td> «2473</td><td> 072110</td><td></td><td> RZA</td><td> MEN1</td><td> IF VARIABLES DEFINED (ANY FLAG) - SKIP</td>

<td> 0 39 0</td><td> 02474</td><td> 166071</td><td></td><td> JMP</td><td> ERSTP,I</td><td> VARIABLES NO DEFINED - ERROR</td>

<td> 0 391</td><td> «2475</td><td> 062334</td><td> MEN1</td><td> JSM</td><td> FLAG3</td><td> SEE IF DIGIT-3 (3,4,5 VARIABLES) ON</td>

<td> «393</td><td> «2477</td><td> 066503</td><td></td><td> JMP</td><td> MEAN3</td><td> IT IS - DO 3-VARIABLE MEAN</td>

<td> 0394</td><td> 0 2500</td><td> £62331</td><td> MEN2</td><td> JSM</td><td> FLAG?</td><td> SEE IF DIGIT-? ON</td>

<td> 0 395</td><td> «2501</td><td> 070710</td><td></td><td> SZA</td><td> MEAN!</td><td> IT ISN'T - DO 1-VARIABLE.MEAN</td>

<td> 0396</td><td> 02502</td><td> 066511</td><td></td><td> JMP</td><td> MEAN?</td><td> IT IS - DO 2-VARIABLE MEAN</td>

215

216

3,859,635 — Continued

<td> ..*19*</td><td colspan="6"> RFGR - SUBROUTINE TO DO REGRESSION COEFFICIENT COMPUTATION</td><td></td>

<td> .>*20»</td><td></td><td> F</td><td colspan="2"> OR 1 OH 2</td><td colspan="2"> INDEPENDENT F VARIABLE</td><td></td>

<td> «21* 3422</td><td> 02526</td><td> 062337</td><td> HEGR</td><td> JSM</td><td> GTFLG</td><td> GET DIGIT FLAGS</td><td></td>

<td> /*23</td><td> «2527</td><td> 072110</td><td></td><td> RZA</td><td> REG1</td><td> IF VARIABLES DEFINED (ANY FLAG)</td><td> - SKIP</td>

<td> 0*24</td><td> 0 2530</td><td> 166071</td><td></td><td> JMP</td><td> ERSTP.I</td><td> VARIABLES NO DEFINED - ERROR</td><td></td>

<td> 0425</td><td> 02531</td><td> 062334</td><td> REG1</td><td> JSM</td><td> FLAG3</td><td> SEE IF DIGIT 3 (3,4,5 VARIABLES)</td><td> ON</td>

<td> 0427</td><td> 02533</td><td> 066567</td><td></td><td> JMP</td><td> REGR3</td><td> IT IS - DO 3-VARIABLE REGRESSION</td><td></td>

<td> 0 4 28</td><td> 02534</td><td> 062331</td><td> REG2</td><td> JSM</td><td> FLAG2</td><td> SEE IF DIGIT-2 ON</td><td></td>

<td> '04 30</td><td> 02536</td><td> 066540</td><td></td><td> JMP</td><td> REGR2</td><td> IT IS - DO S-VARIABLE REGRESSION</td><td></td>

<td> 2431</td><td> 02537</td><td> 166071</td><td> REGR1</td><td> JMP</td><td> ERSTP,I</td><td> VARIABLE 1 - ERROR</td><td></td>

<td> ΰ*32</td><td> 02540</td><td> 022370</td><td> REGR2</td><td> LDA</td><td> XYP</td><td> DO 2-VARIABLE REGRESSION</td><td></td>

<td> 0449</td><td> 02561</td><td> 162066</td><td></td><td> JSM</td><td> FSUBtl</td><td> SUM-Y - A1*SUM-X IN Y</td><td></td>

<td> 0452</td><td> 02564</td><td> 162070</td><td></td><td> JSM</td><td> FOV,I</td><td> MAKE A-0 IN Y, BY DIVIDING BY</td><td> N</td>

<td> 0453</td><td> 02565</td><td> 063256</td><td></td><td> JSM</td><td> CLER1</td><td> CLEAR Z REGISTER</td><td></td>

<td> 0454</td><td> 02566</td><td> 064167</td><td></td><td> JMP</td><td> MON</td><td> GO DO NEXT THING</td><td></td>

<td> 0455</td><td> 02567</td><td> 062571</td><td> REGR3</td><td> JSM</td><td> REGR4</td><td> 3-VARIABLE REGRESSION - CALL AS</td><td> SUBR</td>

<td> £*56</td><td> 02570</td><td> 064167</td><td></td><td> JMP</td><td> MON</td><td> DO GO NEXT THING</td><td></td>

<td> 0457</td><td> 02571</td><td> 022372</td><td> REGR4</td><td> LDA</td><td> YZP</td><td colspan="2"> SUBROUTINE FOR 3-VARIABLE REGRESSION</td>

<td> .)475</td><td> 02613</td><td> 162066</td><td></td><td> JSM</td><td> FSUB,I</td><td> NUMERATOR IN X</td><td></td>

3,859,635

217

218 — Continued

<td> 0409</td><td> 02631</td><td> 162065</td><td></td><td> JSM</td><td> FMP.I</td><td> MU-XY SQUARED IN Z </td>

<td> 0492</td><td> 02634</td><td> 162066</td><td></td><td> JSM</td><td> FSUB,I</td><td> DENOM IN Z</td>

<td> £□30</td><td> £2 7/2</td><td> 162066</td><td></td><td> JSM</td><td> FSUBtl</td><td></td>

<td> 05 18</td><td> £2707</td><td> 022324</td><td> TXFR</td><td> LOA</td><td> T2P</td><td> TRANSFER DECIMAL TEMP TO X</td>

<td> 0544</td><td> 02713</td><td> 022324</td><td> TDVX</td><td> LOA</td><td> T2P</td><td> DIVIDE X BY DEC. TEMP - RESULT IN X</td>

3,859,635

220

219 — Continued

0549*

0550«

<td> asst* /->52»</td><td colspan="4"> [PAIR - SUBROUTINE</td><td colspan="2"> TO COMPUTE A RUNNING PAIRED-T STATISTIC</td>

<td> £553» j 554* 0555</td><td> 02717</td><td> 022321</td><td> TPAIR</td><td> LDA</td><td> YR</td><td></td>

<td> 0562</td><td> 02726</td><td> 021664</td><td></td><td> LOA</td><td> CLFLG</td><td> GET CLEAR-CORRECT FLAG WORD</td>

<td> 0564</td><td> 02730</td><td> 031664</td><td></td><td> STA</td><td> CLFLG</td><td> SAVE THE FLAG</td>

<td> 0567</td><td> 02733</td><td> 162066</td><td></td><td> JSM</td><td> FSUB.I</td><td> MAKE CORRECTION BY SUBTRACTING FACTOR</td>

<td> 0570</td><td> 02736</td><td> 162066</td><td></td><td> JSM</td><td> FSUB,I</td><td> MAKE CORRECTION ON D-SQUARE</td>

<td> 0575</td><td> 02743</td><td> 031664</td><td> TP2</td><td> STA</td><td> CLFLG</td><td> SAVE THE FLAG WORD</td>

<td> 0576</td><td> 02744</td><td> 022322</td><td></td><td> LDA</td><td> XR</td><td> ACCUMULATE (X-Y) SQUARED IN R2</td>

<td> 0579</td><td> 02747</td><td> 022324</td><td></td><td> LDA</td><td> T2P</td><td> ACCUMULATE (X-Y) IN RI</td>

<td> 0584</td><td> 02754</td><td> 162067</td><td></td><td> JSM</td><td> FAD,I</td><td> INCREMENT COUNTER</td>

<td> 0585</td><td> 02755</td><td> 021660</td><td> TP3</td><td> LDA</td><td> 1660B</td><td> CHECK IF N (R0) IS 1.0</td>

<td> 0589</td><td> 02761</td><td> 010066</td><td></td><td> CPA</td><td> 66B</td><td> COMPARE TO FIRST MAG.WORD OF DEC 1.0</td>

<td> 0590</td><td> 02762</td><td> 067015</td><td></td><td> JMP</td><td> DEFAL</td><td> IT IS 1.0 - D0N7T COMPUTE T</td>

<td> 0591</td><td> 02763</td><td> 022365</td><td></td><td> LDA</td><td> XXP</td><td> COMPUTE VARIANCE OF D-BAR</td>

<td> 0593</td><td> 02765</td><td> 062421</td><td></td><td> JSM</td><td> MUTVR</td><td></td>

<td> 0597</td><td> 02771</td><td> 026322</td><td></td><td> LDB</td><td> XR</td><td rowspan="2"> DIVIDE VARIANCE BY N</td>

<td> 0599</td><td> 02773</td><td> 160276</td><td></td><td> JSM</td><td> SORT,I</td><td> VARIANCE OF D IN X</td>

<td> 0616</td><td> £3014</td><td> 064167</td><td></td><td> JMP</td><td> MON</td><td> GO TO DO SOMETHING ELSE</td>

<td> 0617</td><td> 03015</td><td> 022322</td><td> DEF AL</td><td> LDA</td><td> XR</td><td> CLEAR X</td>

<td> 0619</td><td> 03017</td><td> 022320</td><td></td><td> LDA</td><td> ZR</td><td> CLEAR Z</td>

3,859,635

222

221 — Continued

2624»

0625*

0626» CHI - SUBROUTINE TO COMPUTE ANO DISPLAY CHI-SQUARF STATISTIC

Ld27* ,! i> 2 8 »

<td> 2636</td><td> 03032</td><td> 021664</td><td></td><td> LDA</td><td> CLFLG</td><td> GET THE FLAG WORD</td>

<td> 0637</td><td> 03033</td><td> 070471</td><td></td><td> SLA</td><td> CHI2.C</td><td> SKIP IF NOT CORRECT</td>

<td> 0638</td><td> 03034</td><td> 031664</td><td></td><td> STA</td><td> CLFLG</td><td> SAVE THE FLAG WORD</td>

<td> 0641</td><td> 03037</td><td> 162066</td><td></td><td> JSM</td><td> FSUB.I</td><td> SUBTRACT OUT FACTOR TO DO CORRECTION</td>

<td> 0646</td><td> 03044</td><td> 031664</td><td> CHI2</td><td> STA</td><td> CLFLG</td><td> SAVE THE FLAG WORD</td>

<td> ¢649</td><td> 03047</td><td> 162067</td><td></td><td> JSM</td><td> FAD,I</td><td> ADD IN THE NEW FACTOR</td>

<td> 0652</td><td> 03052</td><td> 162067</td><td></td><td> JSM</td><td> FAD» I</td><td> INCREMENT N</td>

maxm - SUBROUTINE TO KEEP RUNNING MIN AND MAX ON X (Y.Z)

0662»

0663· «664« 0665» 3 666»

<td> ✓ 667</td><td> «3063</td><td> ✓62337</td><td> MAXM</td><td> JSM</td><td> GTFLG</td><td> GET DIGIT 1</td><td> FLAGS</td>

<td> 0668</td><td> 03064</td><td> 072110</td><td></td><td> RZA</td><td> MX Al</td><td colspan="2"> IF VARIABLES DEFINED (ANY FLAG) - SKIP</td>

<td> 0669</td><td> 03065</td><td> 062326</td><td></td><td> JSM</td><td> SET3</td><td> VARIABLES 1</td><td> NOT DEFINED - SET FOR 3</td>

<td> 0670</td><td> 03066</td><td> 062334</td><td> MXA1</td><td> JSM</td><td> FLAG3</td><td colspan="2"> SEE IF OIGIT-3 (3.4,5 VARIABLES) ON</td>

<td> 0672</td><td> 03070</td><td> O67074</td><td></td><td> JMP</td><td> MAX3</td><td> IT IS - DO</td><td> 3-VARIABLE MAX/MIN</td>

<td> 0673</td><td> 03071</td><td> 062331</td><td> MXA2</td><td> JSM</td><td> FLAG2</td><td colspan="2"> SEE IF OIGIT-2 ON</td>

<td> 0674</td><td> 03072</td><td> 070410</td><td></td><td> SZA</td><td> MAXI</td><td> IT ISN’T -</td><td> DO 1-VARIABLE MAX/MIN</td>

<td> 0675</td><td> 03073</td><td> 067077</td><td></td><td> JMP</td><td> MAX2</td><td> IT IS - DO</td><td> 2-VARIABLE MAX/MIN</td>

<td> 067Θ</td><td> 03076</td><td> 063115</td><td></td><td> JSM</td><td> CHKMX</td><td> MAX/MIN OF</td><td> z</td>

<td> 0681</td><td> 03101</td><td> 063115</td><td></td><td> JSM</td><td> CHKMX</td><td> MAX/MIN OF</td><td> Y</td>

<td> 0684</td><td> 03104</td><td> 063115</td><td></td><td> JSM</td><td> CHKMX</td><td> MAX/MIN OF</td><td> X</td>

<td> 0685</td><td> 03105</td><td> 064167</td><td></td><td> JMP</td><td> MON</td><td colspan="2"> GO DO ANOTHER THING</td>

<td> 0686</td><td> 03106</td><td> 001534</td><td> R21</td><td> OCT</td><td> 1534</td><td> ADDRESS OF</td><td> XMIN</td>

<td> 0687</td><td> 03107</td><td> 001530</td><td> R22</td><td> OCT</td><td> 1530</td><td> ADDRESS OF</td><td> XMAX</td>

<td> 0688</td><td> 03110</td><td> 001524</td><td> R23</td><td> OCT</td><td> 1524</td><td> ADDRESS OF</td><td> YMIN</td>

<td> 0689</td><td> 03111</td><td> 001520</td><td> R24</td><td> OCT</td><td> 1520</td><td> ADDRESS OF</td><td> YMAX</td>

<td> 0690</td><td> 03112</td><td> 001514</td><td> R25</td><td> OCT</td><td> 1514</td><td> ADDRESS OF</td><td> ZMIN</td>

<td> 0691</td><td> «3113</td><td> 0W1510</td><td> R26 </td><td> OCT</td><td> 1810</td><td> ADDRESS OF</td><td> ZMAX</td>

<td> 0692</td><td> 03114</td><td> 001570</td><td> R14</td><td> OCT</td><td> 1570</td><td> ADDRESS OF</td><td> UPPER REG. FOR 4-VARIABLE SUM</td>

223

224

3,859,635 — Continued

<td rowspan="2"> ?, 6 9 4 * ,·κ95» « -j 9 6 * ,:697* J 698</td><td colspan="5"> CHKMX - SUBROUTINE TO CHECK ANO SET MIN AND/OR MAX OF 1 VARIABLE</td>

<td> 03115</td><td> 031665 CHKMX</td><td> STA</td><td> COUT</td><td> SAVE VARIABLE POINTER</td>

<td> «699</td><td> 03116</td><td> 035667</td><td> STB</td><td> CIN</td><td> SAVE MINIMUM-REGISTER POINTER</td>

<td> 0705</td><td> 23124</td><td> 122324</td><td> LOA</td><td> T2P.I</td><td> GET SIGN OF DIFFERENCE</td>

<td> «706</td><td> «3125</td><td> 070211</td><td> SLA</td><td> MX1</td><td> SKIP IF POSITIVE - SAME OLD MIN</td>

<td> 0711</td><td> 03132</td><td> 001667</td><td> ADA</td><td> CIN</td><td> MOVE REGISTER POINTER TO MAX</td>

<td> 0719</td><td> 03142</td><td> 070211</td><td> SLA</td><td> MX2</td><td> SKIP IF POSITIVE</td>

<td> «728»</td><td colspan="4"> HAND - SUBROUTINE TO MAKE</td><td> A RANDOM NUMBER</td>

<td> 0 7 30</td><td> 03147</td><td> 023176 RANI)</td><td> LDA</td><td> CPNTR</td><td> LOAD CONSTANT (MULTIPLIER) POINTER</td>

<td> 0 732</td><td> «3151</td><td> 162065</td><td> JSM</td><td> FMP.I</td><td> PRODUCT IN R27</td>

<td> 0736</td><td> 03155</td><td> 160264</td><td> JSM</td><td> ΙΝΤΧ,Ι</td><td> TRUNCATE COPY IN X To INTEGER</td>

<td> 0739</td><td> 03160</td><td> 162066</td><td> JSM</td><td> FSUB.I</td><td> SUBT. INTEGER-PART TO GET 0-1 R.N. IN R27</td>

<td> 0740</td><td> 03161</td><td> 023165</td><td> LDA</td><td> R27</td><td> MOVE NEW RANDOM NUMBER TO X</td>

<td> 0743</td><td> 03164</td><td> 064167</td><td> JMP</td><td> MON</td><td> GO DO ANOTHER THING</td>

<td> 0744</td><td> «3165</td><td> 001504 R27</td><td> OCT</td><td> 1504</td><td> ADDRESS OF- RANDOM NUMBER - R27</td>

<td> 0745</td><td> 03166</td><td> 000400 CNSTN</td><td> OCT</td><td> 400</td><td> DECIMAL 29.0 CONSTANT (MULTIPLIER) EXP.</td>

<td> 0746</td><td> 03167</td><td> 024400</td><td> OCT</td><td> 24400</td><td> DECIMAL 29.0 CONSTANT (MULTIPLIER) MAGI</td>

<td> 0747</td><td> 03170</td><td> 000000</td><td> OCT</td><td> 0</td><td> DECIMAL 29.0 CONSTANT (MULTIPLIER) MAG2</td>

<td> 0748</td><td> 03171</td><td> 000000</td><td> OCT</td><td> 0</td><td> DECIMAL 29.0 CONSTANT (MULTIPLIER) MAG3</td>

<td> 0749</td><td> 03172</td><td> 000000</td><td> OCT</td><td> 0</td><td> SPARE WORD</td>

<td> 0750</td><td> 03173</td><td> 000000</td><td> OCT</td><td> 0</td><td> SPARE WORD</td>

<td> «751</td><td> 03174</td><td> 000000 '</td><td> OCT</td><td> 0</td><td> SPARE WORD</td>

<td> 0752</td><td> 03175</td><td> 000000</td><td> OCT</td><td> 0</td><td> SPARE WORD</td>

<td> 0753</td><td> 03176</td><td> 003166 CPNTR</td><td> DEF</td><td> CNSTN</td><td> POINTER TO MULTIPLIER</td>

<td> 0755</td><td> 23177</td><td> 062337 RSQR</td><td> JSM</td><td> GTFLG</td><td> GET DIGIT FLAGS</td>

<td> 0 7 5 6</td><td> 0 3200</td><td> O72110</td><td> RZA</td><td> RSQ1</td><td> IF VARIABLES DEFINED (ANY FLAG) - SKIP</td>

<td> «757</td><td> «3201</td><td> 166071</td><td> JMP</td><td> ERSTP.</td><td> I VARIABLES NOT DEFINED - ERROR</td>

<td> 0 7 58</td><td> 0 3202</td><td> 62334 RSU1</td><td> JSM</td><td> FLAG3</td><td> SEE (F DIGIT-3 (3.4.5 VARIABLES) ON</td>

<td> 0 760</td><td> «3204</td><td> (-67225</td><td> JMP</td><td> RSQR3</td><td> IT IS - DO 3-VARIABLE CORR. COEFF.</td>

<td> «761</td><td> 03205</td><td> 062331 RSQ2</td><td> JSM</td><td> FLAG2</td><td> SEE IF DIGIT -2 ON</td>

<td> 0763</td><td> «3207</td><td> 067211</td><td> JMP</td><td> RSQR2</td><td> IT IS - DO 2-VARIABLE CORR. COEFF.</td>

<td> 0764</td><td> 03210</td><td> «64167 RSQ3</td><td> JMP</td><td> MON</td><td> 1-VARIABLE - GO DO SOMETHING ELSE</td>

<td> 0765</td><td> «3211</td><td> 022370 RSQR2</td><td> LOA</td><td> XYP</td><td> 2-VARIABLE CORR.COEFF.</td>

3,859,635

225

226 — Continued

<td> 0777</td><td> 03225</td><td> 062571 RSQR3</td><td> JSM</td><td> REGR4 3-VARIA8LE CORR.COEFF.</td>

<td> 0797</td><td> 03246</td><td> 022324 TMPX</td><td> LDA</td><td> T2P X MULTIPLIED BY TEMP, RESULT IN X</td>

<td> 0803</td><td> 03252</td><td> 022322 CLER3</td><td> LDA</td><td> XR CLEAR X</td>

<td> 0805</td><td> 03254</td><td> 022321 CLER2</td><td> LDA</td><td> YR CLEAR Y</td>

<td> 0807</td><td> 03256</td><td> 022320 CLER1</td><td> LDA</td><td> ZR CLEAR Z</td>

<td></td><td></td><td></td><td></td><td> — Continued</td>

<td> 0812*</td><td colspan="2"> R/W MEMORY AREA</td><td></td><td> 45 0840 00054 N4 EQU 54Θ</td>

<td> 0817</td><td> 01667</td><td> SHIFT</td><td> EQU</td><td> TEMP+3 0845 00012 AWRDN EQU 12B</td>

<td> 0818</td><td> «1670</td><td> COUNT</td><td> EQU</td><td> TEMP+4 0846 01725 KBUF EQU 1725B</td>

<td> 0819</td><td> 01671</td><td> RCPFG</td><td> EQU</td><td> TEMP>5 0847*</td>

<td> 0820</td><td> 01672</td><td> FNCFG</td><td> EQU</td><td> TEMP+6 0848 01724 ADRI EQU 1724B</td>

<td> ¢1824</td><td> 01730</td><td> ADHTE</td><td> EQU</td><td> 17308 0852 «0013 ADRT EQU 138</td>

<td> 0825*</td><td></td><td></td><td></td><td> 0853 «0167 SETUP EQU 167B</td>

<td> 0829*«</td><td> >·</td><td> LABELS</td><td></td><td> 0857*</td>

<td> 0832</td><td> 00016</td><td> AR2</td><td> EQU</td><td> 16B 0860* LINKAGE TO MATH SUBROUTINES</td>

<td> 0834</td><td> 00034</td><td> P3</td><td> EQU</td><td> 34B 65 0862 03261 004577 STMAX OCT 4577</td>

<td> 0835</td><td> 00003</td><td> P4</td><td> EQU</td><td> 38 0863 «3262 004741 ROUND OCT 4741</td>

3,859,635

227 — Continued

228 — Continued

<td> • -170* LINKAGE TO ARITHMETIC</td><td> 5 /877*</td><td> LINK WORDS TO THE KEYBOARD</td>

0883« £884*

<td> 0935</td><td> 03325</td><td> 003261</td><td> THETL</td><td> DEF</td><td> Cl-4</td><td></td>

£944*

0945***

PROGRAM SUBROUTINES

3,859,635

229

230 — Continued

<td> »947</td><td> 03333</td><td> 035672</td><td> INIT</td><td> STB</td><td> FNCFG</td><td></td><td></td><td></td><td></td><td></td>

<td> 0950</td><td> 0 3335</td><td> 031673</td><td></td><td> STA</td><td> SIGN</td><td colspan="2"> SAVE ORIGINAL SIGN</td><td></td><td></td><td></td>

<td> 0959</td><td> 03343</td><td> 074404</td><td></td><td> SBL</td><td> 8</td><td> ALLIGN SHIFTS</td><td></td><td></td><td></td><td></td>

<td> 0962</td><td> 03346</td><td> 035754</td><td></td><td> STB</td><td> AR2E</td><td> STORE EXPONENT</td><td></td><td></td><td></td><td></td>

<td> 0977</td><td> 03361</td><td> 163262</td><td></td><td> JSM</td><td> ROUND,!</td><td></td><td></td><td></td><td></td><td></td>

<td> 0979</td><td> 03362</td><td> 070075</td><td> ZERO</td><td> SEC</td><td> **1,C</td><td> CLEAR E REG</td><td></td><td></td><td></td><td></td>

<td> 0985</td><td> 03370</td><td> 070075</td><td></td><td> SEC</td><td> **1,C</td><td> CLEAR E IF ZERO</td><td></td><td></td><td></td><td></td>

<td> 0994</td><td> 03373</td><td> 020012</td><td> CLER</td><td> LDA</td><td> AWRDN</td><td></td><td></td><td></td><td></td><td></td>

<td></td><td></td><td></td><td></td><td></td><td></td><td></td><td colspan="2"> -Continued</td><td></td><td></td>

<td> 1001</td><td> 03402</td><td> 031666</td><td></td><td> STA</td><td> DIGIT</td><td> 1020 03414</td><td> 024015</td><td></td><td> LDB</td><td> ARI</td>

<td> 1008</td><td> 03404</td><td> 001665</td><td> UPTAB</td><td> ADA</td><td> TA8L0</td><td> 1026*</td><td></td><td></td><td></td><td></td>

3,859,635

<td></td><td> 231 — Continued</td><td> 232 — Continued</td>

<td> 1035»</td><td> 5 1063</td><td> 03443 001670 ADA COUNT</td>

<td> 10 36»</td><td> ·· MAIN PROGRAMS 1064</td><td> 03444 070604 SAL 4</td>

<td> 10 3 7»</td><td> 1065</td><td> 03445 031670 STA COUNT</td>

<td> 1046</td><td> 03424 035670 STB COUNT 15 1074*</td><td></td>

<td> 1047*</td><td> 1075</td><td> 03456 021670 LDA COUNT</td>

<td> 1051</td><td> 03430 074112 SBM *+2 1079</td><td> 03462 167261 STM1 JMP STMAX.I</td>

<td> 1053»</td><td> 1081</td><td> 03463 025670 LT3 LDB COUNT</td>

<td> 1056</td><td> 03434 031724 STA ADRI I084</td><td> 03466 021670 LOA COUNT</td>

<td></td><td> IJ“0 £3474 035671 NOEX</td><td> STB RCPFG</td>

<td></td><td> 1094 03476 023325</td><td> LDA THETL</td>

<td></td><td> 1095 03477 024012</td><td> LOB AWRDN</td>

<td></td><td> 1097 03501 035666</td><td> STB DIGIT</td>

<td></td><td> 1100 03504 035667</td><td> STB SHIFT</td>

<td></td><td> 1103 03507 145666</td><td> ISZ DIGIT,I</td>

<td></td><td> 1106 23512 045666</td><td> ISZ DIGIT</td>

<td></td><td> 1108 03514 063404</td><td> JSM UPTAB</td>

<td></td><td> 1111 03517 135666</td><td> STB DIGIT,I</td>

<td></td><td> 1115 03523 055667</td><td> DSZ SHIFT</td>

<td></td><td> 1118 03526 045666</td><td> ISZ DIGIT</td>

<td></td><td> 1120 03530 131666</td><td> STA DIGIT,I</td>

<td></td><td> 1121 03531 077670 1122*</td><td> RIB *-3 STORE LAST 6 DIGITS</td>

<td></td><td> 1126 03535 145666</td><td> ISZ DIGIT,I</td>

<td></td><td> 1132 03540 021671 BACK</td><td> LDA RCPFG</td>

<td></td><td> 1133 03541 031754</td><td> STA AR2E STORE EXPONENT</td>

3,859,635

233

234 — Continued

<td> 1134· 1135 1 136·</td><td> 0 3542</td><td> 171450</td><td> NRM</td><td></td><td> NORMALIZE ANSWER</td>

<td> 1 148</td><td> 0 3555</td><td> 020011 RESET</td><td> LDA</td><td> ADR0</td><td></td>

<td> 1150</td><td> 03557</td><td> 064167</td><td> JMP</td><td> SETUP</td><td></td>

1152* 1153*

<td> 1164</td><td> 03565</td><td> 167261</td><td></td><td> JMP</td><td> STMAX.I</td><td></td>

<td> 1170</td><td> 03572</td><td> 055666</td><td></td><td> OSZ</td><td> DIGIT</td><td></td>

<td> 1176</td><td> 03577</td><td> 031667</td><td></td><td> STA</td><td> SHIFT</td><td></td>

<td> 1179</td><td> 03602</td><td> 121666</td><td> PTP</td><td> LOA</td><td> DIGIT,I</td><td></td>

<td> 1183</td><td> 03606</td><td> 055666</td><td></td><td> OSZ</td><td> DIGIT</td><td></td>

<td> 1184</td><td> 03607</td><td> 055667</td><td></td><td> OSZ</td><td> SHIFT</td><td></td>

<td> 1190</td><td> ¢3615</td><td> 035667</td><td></td><td> STB</td><td> SHIFT</td><td></td>

<td> 1193</td><td> 03620</td><td> 063404</td><td></td><td> JSM</td><td> UPTAB</td><td></td>

<td> 1195</td><td> 03622</td><td> 025667</td><td></td><td> LDB</td><td> SHIFT</td><td></td>

<td> 1203</td><td> 03632</td><td> 125666</td><td></td><td> LDB</td><td> DIGIT,I</td><td></td>

<td> 1206</td><td> 03635</td><td> 055666</td><td></td><td> OSZ</td><td> DIGIT</td><td></td>

<td> 1207</td><td> 03636</td><td> 055667</td><td></td><td> DSZ</td><td> SHIFT</td><td></td>

235

236

3,859,635 — Continued

<td> 1216</td><td> 0 3643</td><td> 021673</td><td> LDA</td><td> SIGN GET EXPONENT WORD</td>

<td> 1220</td><td> 03647</td><td> 070076</td><td> TCA</td><td> COMPLEMENT IF NEGATIVE</td>

<td> 1261</td><td> 03707</td><td> 045730</td><td> ISZ</td><td> ADRTE</td>

<td> 126 7</td><td> «3715</td><td> 067555</td><td> JMP</td><td> RESET</td>

<td> 1273</td><td> «3716</td><td> 020012 PTJ</td><td> LDA</td><td> AWRDN</td>

<td> 1274</td><td> 03717</td><td> 031666</td><td> STA</td><td> DIGIT INITIALIZE DIGIT LOCATION</td>

<td> 1277</td><td> 03721</td><td> 031667</td><td> STA</td><td> SHIFT INITIALIZE COUNT</td>

<td> 1278</td><td> 03722</td><td> 025672</td><td> LDB</td><td> FNCFG</td>

3,859,635

<td></td><td></td><td></td><td></td><td></td><td></td><td> — Continued</td>

<td> 1289</td><td> 03733</td><td> 121666</td><td> PTI</td><td> LDA</td><td> DIGIT,I</td><td></td>

<td> 1290</td><td> 03734</td><td> 072110</td><td></td><td> RZA</td><td> «♦2</td><td> SKIP IF DIGIT NOT ZERO</td>

<td> 1295</td><td> 03740</td><td> 025667</td><td> PTH</td><td> LDB</td><td> SHIFT</td><td></td>

<td> 1297</td><td> 03742</td><td> 004106</td><td></td><td> ADB</td><td> P12</td><td> CALC SHIFT COUNT</td>

<td> 1299</td><td> 03744</td><td> 174430</td><td></td><td> MRX</td><td></td><td> SHIFT ARI</td>

<td> 1301</td><td> 03745</td><td> 025672</td><td></td><td> LDB</td><td> FNCFG</td><td></td>

<td> 1314</td><td> 03757</td><td> 155666</td><td></td><td> DSZ</td><td> DIGIT,I</td><td></td>

<td> 1317</td><td> ¢3761</td><td> 045666</td><td> PTG</td><td> ISZ</td><td> DIGIT</td><td></td>

<td> 1318</td><td> 03762</td><td> 055667</td><td></td><td> DSZ</td><td> SHIFT</td><td> DECREMENT COUNTER</td>

<td> 132 3</td><td> /3765</td><td> 025672</td><td></td><td> LOB</td><td> FNCFG</td><td></td>

132B··»******»»»**»·**·»*»*·*»*»*»·**·»**

1329«

« NO ERRORS* CROSS-REFERENCE SYMBOL TABLE

<td> ADRTE</td><td> 0824</td><td> 1261</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

3,859,635

239

240 cross-reference symbol table —Continued

<td> AWRON</td><td> 0845</td><td> 0994</td><td> 1095</td><td> 1273</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> CANCL</td><td> 0106</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> CHICL</td><td> 0132</td><td> 0126</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> CHKMX</td><td> 0698</td><td> 0678</td><td> 0681</td><td> «684</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> cksmi</td><td> 0116</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> CLEAR</td><td> 0120</td><td> 0067</td><td></td><td></td><td> •</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> CLFLG</td><td> 0014 0564</td><td> 0096 0575</td><td> 0098 0636</td><td> 0106 0638</td><td> 0108 0646</td><td> 0137</td><td> 0139</td><td> 0203</td><td> 0214</td><td> 0236</td><td> 0562</td>

<td> CHSTN</td><td> 0745</td><td> 0753</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> COUNT</td><td> 0818</td><td> 1046</td><td> 1063</td><td> 106S</td><td> 1075</td><td> 1081</td><td> 1084</td><td></td><td></td><td></td><td></td>

<td> CPNTR</td><td> 0753</td><td> 0730</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> deeal</td><td> 0617</td><td> 0590</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> DIGIT</td><td> 0816 1183</td><td> 1001 1203</td><td> 1097 1206</td><td> 1103 1274</td><td> 1106 1289</td><td> mi 1314</td><td> 1118 1317</td><td> 1120</td><td> 1126</td><td> 1170</td><td> 1179</td>

<td> ERSTP</td><td> 0083</td><td> 0049</td><td> 0129</td><td> 0356</td><td> 0390</td><td> 0424</td><td> 0431</td><td> 0757</td><td></td><td></td><td></td>

3,859,635

242

241 cross-reference symhol table -Continued

<td> flgms</td><td> 0072</td><td> 0057</td><td> 0271</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> FLGWD</td><td> 0003</td><td> 0059</td><td> 0177</td><td> 0257</td><td> «262</td><td> 0267</td><td> 0272</td><td> 0381</td><td></td><td></td><td></td>

<td> FNCFG</td><td> 0R20</td><td> 0997</td><td> 1278</td><td> 1301</td><td> 1323</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> GTFLG</td><td> 0271</td><td> 0173</td><td> 0359</td><td> 0388</td><td> «922</td><td> 0667</td><td> «755</td><td></td><td></td><td></td><td></td>

<td> ILOOP</td><td> 0203</td><td> 0230</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> KELOG</td><td> 0004</td><td> 0035</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> KYBUF</td><td> 0007</td><td> 0025</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> MAXCL</td><td> 0142</td><td> 0128</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

3,859,635

243

244 cross-reference symbol table-Continued

<td> MUTVR .</td><td> 0337</td><td> 0365 0370</td><td> 0375</td><td> 0S93</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> OLOOP</td><td> 0201</td><td> 0234</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td></td><td> CROSS-REFERENCE</td><td> SYMBOL TABLE -</td><td> Continued</td>

<td> PGCNT 0008</td><td></td><td></td><td></td>

<td> RCPFG 0819</td><td> 1090 1132</td><td></td><td></td>

<td></td><td></td><td></td><td></td><td colspan="3"> CROSS-REFERENCE SYMBOL TABLE</td><td colspan="2"> — Continued</td><td></td><td></td><td></td>

<td> RESET</td><td> 1148</td><td> 1267</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> ROUND</td><td> 0863</td><td> 0977</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> RPNTR</td><td> 0012</td><td> 0200</td><td></td><td> 0205</td><td> 0217</td><td> 0221</td><td> 0223</td><td></td><td> 0225</td><td></td><td></td>

<td> SETUP</td><td> 0853</td><td> 1150</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> SHIFT</td><td> 0817</td><td> 1100</td><td> 1115</td><td> 1176</td><td> 1184 .</td><td> 1190</td><td> 1195</td><td> 1207</td><td> 1277</td><td> 1295</td><td> 1318</td>

<td> STLIT</td><td> 0020</td><td> 0086</td><td> 0258</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> STMAX</td><td> 3862</td><td> 1079</td><td> 1164</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> SOMCL</td><td> 0137</td><td> 0124</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td></td><td></td><td></td><td> 249</td><td colspan="3"> 3,859,635 CROSS-REFERENCE SYMBOL TABLE</td><td colspan="2"> — Continued</td><td> 250</td><td></td><td></td>

<td> TESTI</td><td> 0223</td><td> 0207</td><td> 0219</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> TESTO</td><td> 0231</td><td> 0228</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> THETL</td><td> 0935</td><td> 1094</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> THREE</td><td> 0093</td><td> 0043</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> TPAJR</td><td> 3555</td><td> 0073</td><td> 0101</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> UPTAH</td><td> 1008</td><td> 1108</td><td> 1193</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> VHNCE</td><td> 0353</td><td> 0068</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

3,859,635

251 252 cross-reference symbol table-Continued

0529

<td></td><td></td><td> ASMH,A,H,C,L,T</td><td colspan="2"> — Continued</td>

<td> TFMP</td><td> «01664</td><td></td><td> RESET</td><td> 0020/4</td>

<td> TA;U 0</td><td> O0166S</td><td></td><td> STMAX</td><td> 002007</td>

<td> i .'-’IT</td><td> .1/1666</td><td></td><td> FALSE</td><td> /02010</td>

<td> •I</td><td> (>.·. 1 66 7</td><td></td><td> ROUND</td><td> 002011</td>

<td> FNCFG</td><td> 0/1672</td><td></td><td> FMP</td><td> 002014</td>

<td> AORXE</td><td> 001750</td><td></td><td> INTX</td><td> 000264</td>

<td> AORTE</td><td> 001730</td><td></td><td> YMX</td><td> 000234</td>

<td> AttRPE</td><td> 001672</td><td></td><td> FMT</td><td> 000242</td>

<td> AORYE</td><td> 001740</td><td></td><td> MULT</td><td> 000236</td>

<td> Nl</td><td> 000031</td><td></td><td> TWOPI</td><td> 002145</td>

<td> N10</td><td> 000/24</td><td></td><td> 40 GPERR</td><td> 002152</td>

<td> ADRI</td><td> 001724</td><td></td><td> THETT</td><td> 002162</td>

<td> UNITS</td><td> 001776</td><td></td><td> CKSM1</td><td> 002174</td>

<td> ERR</td><td> 0/0066</td><td></td><td> ERROR</td><td> 0/2176</td>

<td> NX CO</td><td> .GO 1 15</td><td></td><td> UNITM</td><td> 002203</td>

<td> I NIP</td><td> ,.//362</td><td></td><td> FINAL</td><td> 0022/4</td>

<td> KYLOG</td><td> 30’0113</td><td></td><td> LN 10</td><td> 0022/7</td>

3,859,635

254

253

<td colspan="2"> — Continued</td><td colspan="3"> — Continued</td>

<td> USERC</td><td> 002222</td><td></td><td> PTF</td><td> 003231</td>

<td> UPTAB</td><td> 002353</td><td> 1 j</td><td> RET2</td><td> 003352</td>

<td> COS</td><td> 002440</td><td></td><td> SCALE</td><td> 003422</td>

<td> ACSS</td><td> 002463</td><td> 30</td><td> DMSTO</td><td> 303452</td>

<td> ASN</td><td> 002464</td><td></td><td> DTDMS</td><td> 303465</td>

<td> XFACT</td><td> 003063</td><td></td><td> GRA</td><td> 003677</td>

<td> PTA</td><td> 003103</td><td></td><td> OULUP</td><td> 003733</td>

<td> PTH</td><td> 003136</td><td></td><td> THETL</td><td> 002152</td>

<td> PTD</td><td> 003140</td><td></td><td> FTABL</td><td> 002152</td>

<td> PTC</td><td> 003173</td><td></td><td> * NO</td><td> ERRORS*</td>

3,859,635

255

256

MATH BLOCK FOR THE 9810, CALLED 'CORD3·

<td colspan="6"> .-/ 'S* ΜΪΚΓ WINGERT 3 k: ? 7 «*<»«· *> * * -»*> u ο * » ««#*·»**<> «»·» o ·»«<>»» «</td>

<td> 0/08» 0B09</td><td> 02000</td><td></td><td> ORG</td><td> 2000B</td><td> OPTION BLOCK ORIGIN</td>

<td colspan="3"> 4010*</td><td colspan="3"> tHOWftOtfMO#</td>

<td> 001?» «013» 0014» 0015</td><td> R/W MEMORY 01664</td><td> AREA TEMP</td><td> EQU</td><td> 1664B</td><td> TEMPORARY</td>

<td> 0016</td><td> 01665</td><td> TABL0</td><td> EQU</td><td> TEMP+1</td><td> CORDIC CONSTANT ADDRESSES</td>

<td> 0017</td><td> 01666</td><td> DIGIT</td><td> EQU</td><td> TEMP*2</td><td> DIGIT STACK POINTER</td>

<td> «018</td><td> 01667</td><td> SHIFT</td><td> EQU</td><td> TEMP*3</td><td> SHIFT FACTOR</td>

<td> «019</td><td> 01670</td><td> COUNT</td><td> EOU</td><td> TEMP*4</td><td> BCD STORAGE</td>

<td> 0020</td><td> 01671</td><td> RCPFG</td><td> EQU</td><td> TEMP*5</td><td> RECIPROCAL FLAG</td>

<td> 0021</td><td> 01672</td><td> FNCFG</td><td> EQU</td><td> TEMP*6</td><td> FUNCTION FLAG</td>

<td> «022</td><td> 01673</td><td> SIGN</td><td> EQU</td><td> TEMP*7</td><td> EXPONENT WORD STORAGE</td>

<td> 8023</td><td> 21674</td><td> SAVE</td><td> EQU</td><td> TEMP+8</td><td> TEMPORARY</td>

<td> «024</td><td> 01675</td><td> RY2</td><td> EQU</td><td> TEMP+9</td><td> REGISTER ADDRESS STORAGE</td>

<td> 0025</td><td> 21676</td><td> RY1</td><td> EQU</td><td> TEMP+10</td><td> REGISTER ADDRESS STORAGE</td>

<td> 0027</td><td> 2 I 744</td><td> AR1E</td><td> EQU</td><td> 1744B</td><td> EXPONENT WORD OF ARI</td>

<td> 0028</td><td> 21754</td><td> AR2E</td><td> EQU</td><td> 1754Θ</td><td> EXPONENT WORD OF AR2</td>

<td> 0029</td><td> 21750</td><td> ADRXE</td><td> EQU</td><td> 1750B</td><td> EXPONENT WORD OF X</td>

<td> 02 30</td><td> '31730</td><td> ADRTE</td><td> EQU</td><td> 1730B</td><td> EXPONENT WORD OF T</td>

<td> 0031</td><td> 21672</td><td> ADRPE</td><td> EQU</td><td> 1672B</td><td> EXPONENT WORD OF P</td>

<td> 003?</td><td> 21740</td><td> ADRYF.</td><td> EQU</td><td> 1740B</td><td> EXPONENT WORD OF Y</td>

<td> / 3 7 * 0038* 0039» 0040</td><td> ** LABE 20015</td><td> LS ARI</td><td> EQU</td><td> 15B</td><td> ADDRESS OF ARI</td>

<td> 0041</td><td> 30016</td><td> AR2</td><td> EQU</td><td> 16B</td><td> ADDRESS OF AR2</td>

<td> 0042</td><td> 00063</td><td> Pl</td><td> EQU</td><td> 63B</td><td> POSITIVE ONE</td>

<td> 0043</td><td> 20772</td><td> P2</td><td> EQU</td><td> 772B</td><td> POSITIVE TWO</td>

<td> 0044</td><td> 20034</td><td> P3</td><td> EQU</td><td> 34B</td><td> POSITIVE THREE</td>

<td> 0045</td><td> 00003</td><td> P4</td><td> EQU</td><td> 38</td><td> POSITIVE FOUR</td>

<td> 0046</td><td> 00770</td><td> P7</td><td> EQU</td><td> 7708</td><td> POSITIVE SEVEN</td>

<td> 0047</td><td> 20104</td><td> P10</td><td> EQU</td><td> 1048</td><td> POSITIVE TEN</td>

<td> 0048</td><td> 20106</td><td> P12</td><td> EQU</td><td> 1068</td><td> POSITIVE TWELVE</td>

<td> 0049</td><td> 200 74</td><td> P22</td><td> EQU</td><td> 74B</td><td> POSITIVE 22</td>

<td> 0050</td><td> 00105</td><td> P256</td><td> EQU</td><td> 105Θ</td><td> POSITIVE 256</td>

<td> 0051</td><td> «0031</td><td> NI</td><td> EQU</td><td> 31B</td><td> NEGATIVE ONE</td>

<td> 0052</td><td> 00054</td><td> N4</td><td> EQU</td><td> 54B</td><td> NEGATIVE FOUR</td>

<td> 0053</td><td> 00023</td><td> N5</td><td> EQU</td><td> 238</td><td> NEGATIVE FIVE</td>

<td> 0054</td><td> 00024</td><td> N10</td><td> EQU</td><td> 24B</td><td> NEGATIVE TEN</td>

<td> 0055</td><td> 00101</td><td> N256</td><td> EQU</td><td> 101B</td><td> NEGATIVE 256</td>

<td> «056</td><td> 00032</td><td> EN2</td><td> EQU</td><td> 32B</td><td> NEGATIVE EXPONENT TWO</td>

<td> 0057</td><td> 00056</td><td> ONE</td><td> EQU</td><td> 568</td><td> ADDRESS OF FLOATING ONE</td>

<td> 0058</td><td> 00012</td><td> AWRDN</td><td> EQU</td><td> 128</td><td> ADDRESS OF DIGIT STACK</td>

<td> 0059</td><td> 30064</td><td> PI</td><td> EQU</td><td> 64B</td><td> ADDRESS OF PI</td>

<td> 0060</td><td> «0100</td><td> RETC</td><td> EQU</td><td> 100B</td><td> RETURN CODE (OCT 77)</td>

<td> 0062</td><td> «1724</td><td> ADRI</td><td> EQU</td><td> 1724Θ</td><td> ADDRESS OF SECOND OPERAND</td>

<td> 0063</td><td> «1720</td><td> ADR2</td><td> EQU</td><td> 1720Θ</td><td> ADDRESS OF FIRST OPERAND</td>

<td> 0064</td><td> 00004</td><td> AORX</td><td> EQU</td><td> 4B</td><td> ADDRESS OF X</td>

<td> 0065</td><td> «0005</td><td> ADRY</td><td> EQU</td><td> 5B</td><td> ADDRESS OF Y</td>

<td> 0066</td><td> 20011</td><td> AOR0</td><td> EQU</td><td> 118</td><td> ADDRESS OF THETA</td>

<td> 0067</td><td> «0013</td><td> ADRT</td><td> EQU</td><td> 138</td><td> ADDRESS OF T</td>

<td> 0068</td><td> 00007</td><td> ADRA</td><td> EQU</td><td> 7B</td><td> ADDRESS OF A</td>

<td> 0069</td><td> 00010</td><td> ADRB</td><td> EQU</td><td> 10B</td><td> ADDRESS OF B</td>

<td> 0070</td><td> 00033</td><td> ADRF</td><td> EQU</td><td> 33B</td><td> ADDRESS OF REGISTER 0</td>

<td> 0071</td><td> «0006</td><td> ADRZ</td><td> EQU</td><td> 6B</td><td> ADDRESS OF Z</td>

MATH BLOCK FOR the 9818, CALLED «CORD3 «-Continued

<td> 0072</td><td> 01776</td><td> UNI rs</td><td> EQU</td><td> 17768</td><td> STATUS WORD</td>

<td> 0073</td><td> 01725</td><td> KBUF</td><td> EQU</td><td> 17258</td><td> KEYCODE BUFFER</td>

<td> 0074</td><td> 00066</td><td> ERR</td><td> EQU</td><td> 668</td><td> EEROR HIT MASK</td>

<td> 0075</td><td> 00103</td><td> EXCF</td><td> EQU</td><td> 1038</td><td> EXECUTION FLAG</td>

<td> 0076</td><td> 01710</td><td> USP</td><td> EQU</td><td> 17108</td><td> USER STACK POINTER</td>

<td> 0077</td><td> 00132</td><td> EXEC</td><td> EQU</td><td> 1328</td><td> EXECUTER</td>

<td> 0078</td><td> 01721</td><td> SUBF</td><td> EQU</td><td> 1721B</td><td> SUBROUTINE FLAG</td>

<td> 0079</td><td> 00115</td><td> NXCO</td><td> EQU</td><td> 1158</td><td> NEXT CODE ROUTINE</td>

<td> 0080</td><td> 00362</td><td> INTP</td><td> EQU</td><td> 3628</td><td> INTERPRETER</td>

<td> 0081</td><td> 00167</td><td> SETUP</td><td> EQU</td><td> 1678</td><td> SETUP ROUTINE</td>

<td> 0082</td><td> 01707</td><td> ZZAD</td><td> EQU</td><td> 17078</td><td> BEGINNING OF PROGRAM MEMORY</td>

<td> 0083</td><td> 00113</td><td> KYLOG</td><td> EQU</td><td> 1138</td><td> KEYLOG ROUTINE</td>

<td> •„•/,.39»</td><td colspan="3"> LINKAGE TO 1 HE MAINLINE</td><td> ROUTINES</td><td></td>

<td> 0091</td><td> 02000 021725</td><td></td><td> LDA</td><td> KBUF</td><td> LOAD THE KEYCODE</td>

<td> 0093</td><td> 02002 070517</td><td> JTA</td><td> LOA</td><td> A,I</td><td> LOAD THE ADDRESS OF THE ROUTINE</td>

<td> 0094</td><td> 02003 070717</td><td></td><td> JSM</td><td> A,I</td><td> EXECUTE THE KEYCODE.ROUTINE</td>

<td> 0095</td><td> 02004 020011</td><td> RESET</td><td> LDA</td><td> ADR0</td><td> CLEAR THE SYSTEM</td>

<td> 0097</td><td> 02006 064167</td><td></td><td> JMP</td><td> SETUP</td><td> RETURN THRU THE SETUP ROUTINE</td>

0098*

0099*

0100***********************************

0101*

0102* LINKAGE TO MATH SUBROUTINES

0103*

<td> 0104</td><td> 02007</td><td> 004577</td><td> STMAX</td><td> OCT</td><td> 4577</td><td> LINK</td><td> TO</td><td> THE</td><td> STORE</td><td> MAXIMUM NO. ROUTINE</td>

<td> 0105</td><td> 02010</td><td> 004371</td><td> FALSE</td><td> OCT</td><td> 4371</td><td> LINK</td><td> TO</td><td> THE</td><td> STORE</td><td> ZERO ROUTINE</td>

<td> 0106</td><td> 02011</td><td> 004741</td><td> ROUND</td><td> OCT</td><td> 4741</td><td> LINK</td><td> TO</td><td> THE</td><td> ROUND</td><td> ROUTINE</td>

<td> 0107</td><td> 02012</td><td> 004366</td><td> TERM</td><td> OCT</td><td> 4366</td><td> LINK</td><td> TO</td><td> THE</td><td colspan="2"> CALCULATE EXPONENT ROUTINE</td>

0108*

0109*

0110·*«**»**»»*»*»***»************«*·»*

<td> 0112* LINKAGE TO ARITHMETIC</td>

<td> 11114 02013 0O4447 FD OCT 4447 LINK TO THE FLOATING DIVIDE ROUTINE</td>

<td> 0115 02014 004374 FMP OCT 4374 LINK TO THE FLOATING MULTIPLY ROUTINE</td>

<td> 0116 02015 004271 FAO OCT 4271 LINK TO THE FLOATING ADD ROUTINE</td>

<td> 0117 02016 004257 FSB OCT 4257 LINK TO THE FLOATING SUBTRACT ROUTINE</td>

;> 119*

0120* :1/ /i;> » luϊ««w«'iaw»m i ·-/ ·· /12.3* LINK 10 THE KEYBOARD „124*

<td> ','125</td><td> «0276</td><td> FSR</td><td> EQU</td><td> 2768</td><td> SQUARE ROOT</td>

<td> 0127</td><td> «0212</td><td> XSQ</td><td> EQU</td><td> 2128</td><td> X SQUARED</td>

<td> 0129</td><td> «0230</td><td> XEY</td><td> EQU</td><td> 2308</td><td> X exchange y</td>

<td> 0130</td><td> 00264</td><td> INTX</td><td> EQU</td><td> 2648</td><td> INTEGER X</td>

<td> 0131</td><td> 00234</td><td> YMX</td><td> EQU</td><td> 2348</td><td> Y MINUS X</td>

<td> 0132</td><td> 0 0242</td><td> FMT</td><td> EQU</td><td> 2428</td><td> FORMAT</td>

<td> 0133</td><td> «0236</td><td> MULT</td><td> EQU</td><td> 2368</td><td> Y TIMES X</td>

<td> W134</td><td> 00232</td><td> FSN</td><td> EQU</td><td> 2328</td><td> CHANGE SIGN</td>

<td> 0135</td><td> 00237</td><td> CLX</td><td> EQU</td><td> 237B</td><td> CLEAR X</td>

137» :Γ’»« .)1 39*******************************»*** ..1*0*

1* F ( ) TABLE £ 14?* ^143 22017 003707 DEF RET3 RETURN (TABLE 0)

<td></td><td></td><td colspan="2"> ΜΛ 1 H</td><td> BLOCK</td><td> FOR THE</td><td> 9810, CALLED ·C0R03·-Continued</td><td></td>

<td> /1-(4</td><td> £2^20</td><td> «03677</td><td></td><td> DEF</td><td> DEG</td><td> DEGREES</td><td></td>

<td> «145</td><td> £2/21</td><td> 003677</td><td></td><td> DEF</td><td> RAD</td><td> RADIANS</td><td></td>

<td> /146</td><td> £2/22</td><td> 003677</td><td></td><td> DEF</td><td> GRA</td><td> GRADS</td><td></td>

<td> 0167</td><td> £2/23</td><td> 0027/5</td><td></td><td> DEF</td><td> LOG</td><td> LOGRITHMN BASE 10</td><td></td>

<td> d 148</td><td> 02/24</td><td> 0/3416</td><td></td><td> DEF</td><td> TFNX</td><td> TEN TO THE POWER</td><td></td>

<td> 0149</td><td> C2025</td><td> 003452</td><td></td><td> DEF</td><td> DM ST D</td><td> DEGREES, MINUTES, SECONDS TO</td><td> DEGREES</td>

<td> /150</td><td> K2/2 6</td><td> 003465</td><td></td><td> DEF</td><td> DTOMS</td><td> DEGREES TO DEGREES, MINUTES,</td><td> SECONDS</td>

<td> «151</td><td> «2027</td><td> 003063</td><td></td><td> DEF</td><td> XFACT</td><td> X FACTORIAL</td><td></td>

<td> «152</td><td> 02030</td><td> 003602</td><td></td><td> DEF</td><td> RNDY</td><td> ROUND Y TO THE POWER IN X</td><td></td>

<td> 0201» «202</td><td> 02071</td><td> 001400</td><td> EP 3</td><td> OCT</td><td> 001400</td><td> POSITIVE 9999</td><td></td>

<td> 0206</td><td> 02074</td><td> 000300</td><td></td><td> DEC</td><td> 0000</td><td> ARCTAN(l)</td><td></td>

<td> /210» /211</td><td> '.121/0</td><td> «/)0/30</td><td></td><td> DEC</td><td> 0000</td><td> ARCTAN(.1)</td><td></td>

3,859,635

262

261

MATH BLOCK FOR THE 981», CALLED ’CORD3 ·—Continued

<td> 0221</td><td> 021 10</td><td> 000000</td><td> DEC</td><td> 0000</td><td> ARCTAN(.001)</td>

<td> 0226</td><td> 02114</td><td> 000000</td><td> OCT</td><td> 000000</td><td> ARCTAN(.0001)</td>

<td> 0231</td><td> 02120</td><td> 000000</td><td> OCT</td><td> 300000</td><td> ARCTAN (.00001)</td>

<td> 0241</td><td> 02130</td><td> 000400 C9</td><td> OCT</td><td> 000400</td><td> SIXTY</td>

<td> 0256</td><td> «2143</td><td> 177624 N108</td><td> DEC</td><td> -108</td><td> NEGATIVE 108</td>

<td> 0258</td><td> 02145</td><td> 002124 TWOPI</td><td> DEF</td><td> C4</td><td> ADDRESS OF ZPI</td>

<td> 0259</td><td> «2146</td><td> 002133 PI/2</td><td> DEF</td><td> C5</td><td> ADDRESS OF PI/2</td>

<td> 0260</td><td> 02147</td><td> 002137 DPERR</td><td> DEF</td><td> C7</td><td> DEGREES TO RADIANS CONSTANT ADDRESS</td>

<td> 0261</td><td> «2150</td><td> 003420</td><td> DEF</td><td> ABS</td><td> ABSOLUTE VALUE...KC=15</td>

<td> 0262</td><td> «2151</td><td> 003714</td><td> DEF</td><td> USER</td><td> USER DEFINED FUNCTION...KC=16</td>

<td> 0263</td><td> 02152</td><td> 002031 GPERR</td><td> DEF</td><td> C8</td><td> GRADS TO RADIANS CONSTNAT ADDRESS</td>

<td> 0264</td><td> 02153</td><td> 002130 CONV</td><td> DEF</td><td> C9</td><td> ADDRESS OF FLOATING 60</td>

<td> 0265</td><td> 02154</td><td> 000144 P100</td><td> OCT</td><td> 000144</td><td> POSITIVE 144</td>

<td> 0 266</td><td> «2155</td><td> 177634 N100</td><td> OCT</td><td> 177634</td><td> NEGATIVE 100</td>

<td> z2b7</td><td> «2156</td><td> «02071 FNS</td><td> DEF</td><td> EP3</td><td> ADDRESS OF FLOATING 9999</td>

<td></td><td> « 2 1 5 7</td><td> 176400 EN3</td><td> OCT</td><td> 176400</td><td> EXPONENT NEGATIVE 3</td>

<td> .:2 69</td><td> «2163</td><td> 172000 EN12</td><td> OCT</td><td> 172030</td><td> EXPONENT NEGATIVE 12</td>

<td> /27«</td><td> 02161</td><td> 002144 ΕΝΟΛ</td><td> DEF</td><td> END</td><td> END CODE ADDRESS</td>

<td> 0271</td><td> «2162</td><td> 002!ό64 THE f T</td><td> DEF</td><td> C2-1</td><td> TRIG CONSTANT TABLE</td>

<td> t/72</td><td> «2163</td><td> 030006 P6</td><td> DEC</td><td> 6</td><td> POSITIVE SIX</td>

<td> // 73</td><td> «2164</td><td> 00-4013 Pll</td><td> DEC</td><td> 11</td><td> POSITIVE 11</td>

<td> 0/74</td><td> «2165</td><td> 003015 P13</td><td> DEC</td><td> 13</td><td> POSITIVE 13</td>

<td> 0275</td><td> 02166</td><td> 000037 CLXC</td><td> OCT</td><td> 37</td><td> CLEAR X CODE</td>

<td> «276</td><td> «2167</td><td> 000042 P34</td><td> DEC</td><td> 34</td><td> POSITIVE 34</td>

<td> 0277</td><td> «2170</td><td> •177776 N2</td><td> DEC</td><td> -2</td><td> NEGATIVE 2</td>

<td> /2 78</td><td> «2171</td><td> 177764 N12</td><td> DEC</td><td> -12</td><td> NEGATIVE 12</td>

<td> 0279</td><td> 02172</td><td> 177763 N13</td><td> DEC</td><td> -13</td><td> NEGATIVE 13</td>

<td> 02u0</td><td> 02173</td><td> 177772 N6</td><td> DEC</td><td> -6</td><td> NEGATIVE 6</td>

<td> 0282</td><td> «2174</td><td> 000030 CKSM1</td><td> NOP</td><td colspan="2"> CHECKSUM WORD FOR THE FIRST 512 WORDS</td>

<td> 0285</td><td> 22176</td><td> 004750 ERROR</td><td> OCT</td><td> 4750</td><td> ERROR ROUTINE ADDRESS</td>

<td> 0 286</td><td> «2177</td><td> 001654 XMIN</td><td> OCT</td><td> 1654</td><td> XMIN ADDRESS (RD</td>

<td> 0 2 87</td><td> «2200</td><td> 001644 YMIN</td><td> OCT</td><td> 1644</td><td> YMIN ADDRESS (R3)</td>

<td> «1288</td><td> «2201</td><td> 040030 RADF</td><td> OCT</td><td> 040000</td><td> RADIAN FLAG BIT</td>

<td></td><td></td><td colspan="3"> MATh block</td><td> FOR THE</td><td> 9810, CALLED ’CORD3 ’—Continued</td>

<td> /' 2 9 0</td><td> £2203</td><td> 113777</td><td> UNITM</td><td> OCT</td><td> 113777</td><td> OPTION LIGHT MASK</td>

<td> 0291</td><td> £2204</td><td> 001664</td><td> FINAL</td><td> OCT</td><td> 1664</td><td> R REGISTER END</td>

<td> «292</td><td> 22205</td><td> 000073</td><td> ACSC</td><td> OCT</td><td> 73</td><td> COSINE KEYCODE</td>

<td> 0 293</td><td> «2206</td><td> 000071</td><td> ATNC</td><td> OCT</td><td> 71</td><td> TANGENT KEYCODE</td>

<td> «29Α</td><td> «2207</td><td> 032065</td><td> LN10</td><td> DEF</td><td> C2</td><td> ADDRESS OF LNI10)</td>

<td> V c. ’ n</td><td> 2 2 210</td><td> 033660</td><td></td><td> ucr</td><td> Γ</td><td> FUNCTION TABLE·..KC-55</td>

<td> •2296</td><td> «2211</td><td> 001672</td><td> ADRP</td><td> DEF</td><td> ADRPE</td><td> ADDRESS OF P</td>

<td> 3297</td><td> «2212</td><td> 005152</td><td> SRCH</td><td> OCT</td><td> 5152</td><td> SEARCH LABEL ROUTINE</td>

<td> 2 298</td><td> 22213</td><td> 003510</td><td></td><td> DEF</td><td> ACP</td><td> ACCUMULATE PLUS...KC=60</td>

<td> 2 299</td><td> «2214</td><td> 203475</td><td></td><td> DEF</td><td> RCL</td><td> RECALL...KC=61</td>

<td> 3320</td><td> 02215</td><td> 003516</td><td></td><td> DEF</td><td> TP</td><td> TO POLAR...KC=62</td>

<td> «321</td><td> 22216</td><td> 003502</td><td></td><td> DEF</td><td> ACM</td><td> ACCUMULATE MINUS...KC*63</td>

<td> «332</td><td> 22217</td><td> 005235</td><td> gsba</td><td> OCT</td><td> 5235</td><td> GO SUB ROUTINE</td>

<td> 33'33</td><td> «2220</td><td> 003000</td><td></td><td> DEF</td><td> LNX</td><td> NATURAL L0G...KC=65</td>

<td> 3304</td><td> 02221</td><td> 003561</td><td></td><td> DEF</td><td> TR</td><td> TO RECTANGULAR...KC=66</td>

<td> 2305</td><td> 22222</td><td> 000016</td><td> USERC</td><td> OCT</td><td> 16</td><td> DEFINABLE FIX) KEYCOOE</td>

<td> 0307</td><td> 0 2224</td><td> 002466</td><td></td><td> DEF</td><td> TAN</td><td> TNAGENT...KC=71</td>

<td> 2309</td><td> 0 2226</td><td> 002440</td><td></td><td> DEF</td><td> COS</td><td> COSINE...KC=73</td>

<td> «310</td><td> «2227</td><td> 002712</td><td></td><td> DEF</td><td> UPARO</td><td> X TO THE POWER Y...KC=74</td>

<td> «311</td><td> 02230</td><td> 002722</td><td></td><td> DEF</td><td> EXP</td><td> E TO THE POWER X...KC=75</td>

/313« / 3 1 a *

<td colspan="2"> <317*** 23 18* 0319* <320*** 0321» 0322 02231</td><td colspan="3"> PROGRAM SUBHOUT INES INITIALIZE 035672 ΙΝΓΤ STB FNCFG</td><td> STORE THE</td><td> FUNCTION FLAG</td>

<td> S 3 c 3</td><td> 02232</td><td> 120004</td><td> LDA</td><td> ADRX,I</td><td> SAVE THE</td><td> EXPONENT</td>

<td> 0324 0325*</td><td> «2233</td><td> 031673</td><td> STA</td><td> SIGN</td><td> WORD OF</td><td> THE ARGUMENT</td>

<td> «326</td><td> 02234</td><td> 020004 XTT</td><td> LDA</td><td> ADRX</td><td> SAVE THE</td><td> ADDRESS OF</td>

<td> 0327</td><td> «2235</td><td> 031720</td><td> STA</td><td> ADR2</td><td colspan="2"> THE ARGUMENT</td>

<td> «328 0329*</td><td> «2236</td><td> 066377</td><td> JMP</td><td> R1TT+1</td><td> LOAD THE</td><td> ARGUMENT INTO AR2</td>

«330** ******************** ********&#&,,»

<td> 0332**« NORMALIZE TWO FLOATING POINT NUMBERS</td>

<td> 03?5 022aI DIV ST°RE THE AD0RESS OF THE SECOND NUMBER B?240 062246 JSM NORM NORMALIZE THE FIRST NO. ANO</td>

<td> 0336 02241 024013 LDB ADRT TRANSFER IT</td>

<td>XFR INT0 ^SERVED LOCATION T</td>

<td> u o a LDA A0R1 L0AD THE AD0RESS OF THE SECOND NO.</td>

<td> 0339 02244 062246 JSM NORM NORMALIZE IT AND</td>

<td> 0340 0P245 067612 JMP TTX+1 TRANSFER IT INTO X</td>

0342 4 *«<uuunt,«fttf ft,,,,,#.,,,,#,.

0343*

<td colspan="2"> 0344**« 0345*</td><td> NORMALIZE</td><td colspan="3"> AND CORRECT THE EXPONENT</td>

<td> 0346</td><td> 02246</td><td colspan="2"> 062377 NORM JSM</td><td> R1TT+1</td><td> TRANSFER THE SPECIFIED NO. INTO AR2</td>

<td> 0347</td><td> 02247</td><td> 171450</td><td> NRM</td><td></td><td> NORMALIZE IT</td>

<td> 0348</td><td> 02250</td><td> 074404</td><td> SBL</td><td> 8</td><td> ADD THE NEGATIVE</td>

<td> 0349</td><td> 02251</td><td> 074076</td><td> TCB</td><td></td><td> NO. OF SHIFTS</td>

<td> 0350</td><td> «2252</td><td> 035754</td><td> ADB</td><td> AR2E</td><td> OT THE EXPONENT WORD</td>

<td> 035]</td><td> 02253</td><td> 035754</td><td> STB</td><td> AR2E</td><td> AND RESTORE IT</td>

<td> 0352</td><td> «2254</td><td> 020016</td><td> LDA</td><td> AR2</td><td> LOAD THE ADDRESS OF AR2</td>

<td> 0353</td><td> 02255</td><td> 170402</td><td> RET</td><td></td><td> RETURN</td>

355· i359***»*»»*************«****»»«»***»** .: V-7*

K.35R»·· FIND Th£ FRACTIONAL PAR F OF ONE NO. OF A SPECIFIED QUANTITY 7 359» <360 02256 063403 FRAC JSM GTOR+l DIVIDE THE NO. SPECIFIED IN 8 BY THAT IN A

<td colspan="5"> 265</td><td rowspan="2"> 3,859,635 266 9810» CALLED ·C0RD3· —Continued</td>

<td></td><td colspan="4"> MATH BLOCK FOR THE</td>

<td> «361* 0362</td><td> 02257 025754</td><td></td><td> LUB</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td>

<td> 0363</td><td> Ε2260 070742</td><td></td><td> SAW</td><td> 16</td><td> CLEAR THE A REGISTER</td>

<td> 0364</td><td> 02261 031670</td><td></td><td> STA</td><td> COUNT</td><td> CLEAR THE INTEGER STORAGE WORD</td>

<td> 0365</td><td> 02262 074252</td><td></td><td> SBM</td><td> * + 5</td><td> SKIP IF THE EXPONENT IS NEGATIVE</td>

<td> 0 366* 0367</td><td> 02263 004101</td><td></td><td> ADB</td><td> N256</td><td> SUBTRACT 1 FROM THE EXPONENT</td>

<td> 0368</td><td> 02264 171400</td><td></td><td> MLS</td><td></td><td> LEFT SHIFT THE MANTISSA</td>

<td> 0369</td><td> 22265 001670</td><td></td><td> ADA</td><td> COUNT</td><td> SAVE THE SHIFTED DIGIT AND</td>

<td> 0370</td><td> «2266 070604</td><td></td><td> SAL</td><td> 4</td><td> ALLIGN IT AND</td>

<td> 0371</td><td> 02267 031670</td><td></td><td> STA</td><td> COUNT</td><td> STORE IT</td>

<td> 0372</td><td> 02270 075553</td><td></td><td> S8P</td><td> «-5</td><td> SKIP IF THE EXPONENT IS STILL NEGATIVE</td>

<td> 0 3 73 «374*</td><td> ¢2271 035754</td><td></td><td> STH</td><td> AR2E</td><td rowspan="2"> STORE THE NEW EXPONENT NORMALIZE THE FRACTION JUST CALCULATED</td>

<td> 0376* 0377</td><td> 02273 063611</td><td></td><td> JSM</td><td> TTX</td><td> TRANSFER IT INTO X</td>

<td> 0378</td><td> «2274 021724</td><td></td><td> LDA</td><td> ADRI</td><td> MULTIPLY IT BY THE CONSTANT</td>

<td> 0379 0380*</td><td> 02275 067473</td><td></td><td> JHP</td><td> XAM</td><td> ORIGINALLY GIVEN IN A</td>

<td> 0383*</td><td colspan="2"> *« UNNORMALIZE</td><td colspan="3"> A NUMBER AND ROUND IT UP</td>

<td> 0385</td><td colspan="2"> 02276 025754 UNRM</td><td> LOB</td><td> AR2E</td><td> SKIP IF THE EXPONENT</td>

<td> 0336</td><td> 02277 074413</td><td></td><td> SHP</td><td> ZERO</td><td> IS NON-NEGATIVE</td>

<td> 0387</td><td> 02300 074340</td><td></td><td> ABR</td><td> 8</td><td> ALLIGN AND</td>

<td> 0388 0389*</td><td> 02301 074076</td><td></td><td> TCB</td><td></td><td> COMPLEMENT THE EXPONENT</td>

<td> «390</td><td> 02302 074117</td><td></td><td> LDA</td><td> B</td><td> IF THE EXPONENT IS</td>

<td> 0391</td><td> «2303 002171</td><td></td><td> AOA</td><td> N12</td><td> GREATER THAN 12 IN</td>

<td> Λ392</td><td> 02304 070112</td><td></td><td> SAM</td><td> *♦2</td><td> MAGNITUDE REPLACE IT</td>

<td> 0394* «395</td><td> 02306 162011</td><td></td><td> JSM</td><td> ROUND»</td><td> I SHIFT AND ROUND AR2 THHIS MANY TIMES</td>

<td> e«i»*·</td><td colspan="3"> · DETERMINE WHETHER AR2 1</td><td> S ZERO</td><td></td>

<td> ύ^></td><td> i23H7 070075 ZERO</td><td> SEC</td><td> •♦l.C</td><td colspan="2"> CLEAR THE OVERFLOW BIT</td>

<td> V/3</td><td> tP'll'A 021755</td><td> LCA</td><td> ΑΗΖΕ·1</td><td> ADO</td><td> THE THREE FANTISSA</td>

<td> V /ί,</td><td> 22311 00175b</td><td> ADA</td><td> AR2E+2</td><td colspan="2"> WORDS TOGETHER INTO THE</td>

<td> ΰ<·1ί;</td><td> 22312 001757</td><td> ADA</td><td> Α»2Ε»Ί</td><td> A</td><td> REGISTER</td>

<td> 34/6</td><td> 22313 072159</td><td> SFS</td><td> •♦3.S</td><td> SET</td><td> THE OVERFLOW ANO JUMP IF THE MANTISSA IS NONZERO</td>

<td> 04/7</td><td> 22319 072110</td><td> R2A</td><td> »♦2</td><td> JUMP</td><td> IF THE MANTISSA IS NONZERO (SECOND CHECK)</td>

<td> V0M</td><td> 22315 070075</td><td> SEC</td><td> »♦1 .C</td><td> THE</td><td> MANTISSA IS ZERO - CLEAR THE OVERFLOW BIT</td>

<td> t4?9</td><td> 0231b 025759</td><td> LDB</td><td> AR2E</td><td> LOAD</td><td> THE EXPONENT WORD</td>

<td> V10</td><td> 22317 170902</td><td> RET</td><td></td><td colspan="2"> RETURN</td>

<td colspan="3"> ·* CALCULATE SQP(1+OR-XX)</td><td></td><td></td>

<td> 34 I 6</td><td> /2320 031670 SCRT</td><td> ST A</td><td> COUNT</td><td colspan="2"> STORE THE CODE WORD</td>

<td> /4 1 A</td><td> 02321 062343</td><td> JSM</td><td> XAT</td><td colspan="2"> STORE THE NO·</td>

<td> ν</td><td> 02323 02175«</td><td> LDA</td><td> ADHXE</td><td> LOAD</td><td> THE EXPONENT WORD</td>

<td> v/c</td><td> «2 324 002202 4</td><td> AO A</td><td> GRAF</td><td colspan="2"> REPLACE THE NO. WITH</td>

<td> • V23</td><td> k?3?S 070113</td><td> SAP</td><td> •♦2</td><td colspan="2"> ZERO IT ITS EXPONENT</td>

<td> W</td><td> '/2326 162010</td><td> JSM</td><td> FALSE»</td><td> I IS</td><td> LESS THAN -8</td>

<td> V25</td><td> 02327 160212</td><td> JSM</td><td> XSQ»I</td><td colspan="2"> SQUARE THE NUMBER</td>

<td> W</td><td> ♦3 2 3'30 0216?/</td><td> LDA</td><td> COUNT</td><td colspan="2"> NEGATE THE NUMBER IF</td>

<td> V <0</td><td> 02’133 020056</td><td> LDA</td><td> ONE</td><td> ADD</td><td> THE NUMBER</td>

<td> /4 3?* V 13 •<4 34*</td><td> 02335 160276</td><td> JSM</td><td> FSRtl</td><td> TAKE</td><td> THE SQUARE ROOT OF THIS QUANTITY</td>

<td> v3S</td><td> 02336 021670 SCRT1</td><td> LDA</td><td> COUNT</td><td> LOAD</td><td> THE CODE WORD</td>

<td> 24 37.</td><td> 0234/ 02/013</td><td> LDA</td><td> ADRT</td><td> LET</td><td> A = ADDRESS OF ,T</td>

<td> /4 3R</td><td> 02341 0240/4</td><td> LDB</td><td> ADRX</td><td> LET</td><td> B=ADDRESS OF X</td>

<td> 3439</td><td> 02342 170402</td><td> RET</td><td></td><td colspan="2"> RETURN</td>

<td> V4fl</td><td> «2343 020004 XAT-</td><td> LDA</td><td> AORX</td><td> LET</td><td> A=AODRESS X .</td>

<td> β44 1</td><td> «2344 024013</td><td> LDB</td><td> ADRI</td><td> LET</td><td> B=AODRESS T</td>

<td> 344.?</td><td> 02-345 170402 CK</td><td> RET</td><td></td><td colspan="2"> RETURN</td>

3,859,635

267

268 math block for the 9810. called 'C0RD3· —Continued

0444· ^4^5·«·*«·««««««·*«·»»«·«««**«**«··««*«

0<*46· ^47··· TRIG PREFIX TO THE INITIALIZE ROUTINE 0448»

<td> 0449</td><td> 02346 074742 STN</td><td> SBM 16</td><td> CLEAR THE</td>

<td> 045?</td><td> 02351 062231</td><td> JSM INIT</td><td> LOAD THE ARGUMENT ANO SAVE ITS EXPONENT WORD</td>

<td> 04 5 3</td><td> fc’2.352 067355</td><td> JMP MODE</td><td> CONVERT THE ARGUMENT TO THE PROPER UNITS AND RETURN</td>

h 5 4 ·

04*55«*·**·«*««·««·*«*«««««««*«*β«««»«««

0**S6· 04*57·** FIND AND FETCH THE NEXT CORDIC CONSTANT £«♦58* z

06^9 fc?353 001665 UPTAH ADA TAHL0 CALCULATE THE NEXT CONSTANT ADDRESS

0463 «8354 031665 STA TAHL0 STORE IT AWAY

C'+M 03355 066364 JMP OTO + 1 TRANSFER IT INTO ARI AND RETURN

046?· 04 63·** ********<»*»**«*·****»**»·*·*··** 0464· j455««« FETCH THE NEXT KEYCODE

<td> ** *5 7</td><td> 22356</td><td> 06?115 NXCOl</td><td> JSM</td><td> NXCD</td><td> GET THE NEXT KEYCODE</td>

<td> 0468</td><td> 22357</td><td> 070137</td><td> LDB</td><td> A</td><td> DUPLICATE IT</td>

<td> £469</td><td> 02360</td><td> 120133 <</td><td> LDA</td><td> EXCFtI</td><td> RETURN IF NOT IN THE</td>

<td> 04 70</td><td> 02361</td><td> 073210</td><td> *2 A</td><td> CK</td><td> KEYLOG MODE</td>

<td> .‘471</td><td> 02362</td><td> 164113</td><td> JMP</td><td> KYLOG»I</td><td> PRINT THE CODE AND RETURN</td>

0473*

0475*

0476* FLOATING POINT NUMBER TRANSFER AREA

0477*

<td> 0478</td><td> 02363 020056 OTO</td><td> LDA ONE</td><td> TRANSFER ONE</td>

<td> 0479 0480 . 0481»</td><td> 02364 ¢24015 02365 067613</td><td> LOB ARI JMP TTX+2</td><td> INTO ARI AND RETURN</td>

<td> 0482</td><td> «2366 022146 P2T0</td><td> LDA PI/2</td><td> TRANSFER PI/2 ·</td>

<td> 0483 0484» 0485»</td><td> 02367 066364</td><td> JMP OTO+1</td><td> INTO ARI AND RETURN</td>

<td> 0486 0487 0488 0489»</td><td> 02370 020016 TTR1 «2371 025676 02372 067613</td><td> LDA AR2 LDB RY1 JMP TTX + 2</td><td> TRANSFER AR2 INTO RY1 AND RETURN</td>

<td> 0490 0491</td><td> 02373 020004 XTP 02374 026211</td><td> LDA ADRX LDB ADRP,</td><td> TRANSFER X INTO P</td>

<td> 0492 0493»</td><td> 02375 067613</td><td> JMP TTX+2</td><td> AND RETURN</td>

<td> 0494 0495 0496 0497»</td><td> 02376 021676 R1TT 02377 024016 02400 067613</td><td> LDA RY1 LDB AR2 JMP TTX + 2</td><td> TRANSFER RY1 INTO AR2 AND RETURN</td>

<td> 0498</td><td> 02401 020005 YTP</td><td> LDA ADRY</td><td> TRANSFER Y</td>

<td> 0499 0500»</td><td> 02402 066374</td><td> JMP XTP+1</td><td> INTO P AND RETURN</td>

<td> 05'31</td><td> 02403 020056 OTT</td><td> LDA ONE</td><td> TRANSFER ONE</td>

<td> «502 0503»</td><td> ¢2404 «66377</td><td> JMP RiTI*l</td><td> INTO AR2 AND RETURN</td>

<td> 0504 0505 0506»</td><td> «2405 022211 PTX 02406 067612</td><td> LDA ADRP JMP TTX + 1</td><td> TRANSFER P INTO X AND RETURN</td>

<td> Z507 0508</td><td> «2407 020016 TTO 02410 066364</td><td> LDA AR2 JMP OTO+1</td><td> TRANSFER AR2 INTO ARI</td>

0510·

0511»

U51?··»··«*»·*·*«♦*****·**«»·**··*«·***

0513·

11514·*· MAIN PROGRAMS

0515* 0516* .

0517··· CALCULATE THE SINE OF X 0518·

0519 02411 062346 SIN JSM SIN INITIALIZE FLAGS ANO FETCH THE ARGUMENT IN RADIANS k’520 72412 045664 ISZ TEMP SET THE TEMP FLAG = 1 «521 02413 062467 JSM ΤΑΝ·1 CALCULATE THE TANGENT ✓ 522· 0523 02414 031674 STA SAVE SAVE THE FLAG IN A

3,859,635

269

270

MATH BLOCK FOR THE 9810» CALLED · C0RD3 ·-Continued

<td></td><td> ¢2415 072130</td><td> RZA «*3</td><td> JUMP if THF ARGUMENT WAS NOT A MULTIPLE OF PI/2</td>

<td></td><td> £2417 066426</td><td> JMP CS</td><td> JUMP TO DETERMINE ITS SIGN</td>

<td></td><td> £2421 062320</td><td> JSM SCAT</td><td> JUMP TO CALCULATE SRT(XX*1></td>

<td> 3 5 ? 9 * 4 3 3 '£</td><td> £2422 063450</td><td> JSM FOV</td><td> CALCULATE X/SRKXX·!)</td>

<td> £531« 3632</td><td> £2423 020034</td><td> LDA ADRX</td><td> SAVE THE SQUARE ROOT</td>

<td> rfS33</td><td> 02424 026204</td><td> LDB FINAL</td><td> QUANTITY TU BE USED</td>

<td> £534 Zs35* 0336</td><td> £24?5 170004 02426 321754 CS </td><td> XFR LDA AR2E</td><td> IN THE TO RECT ROUTINE LOAD THE EXPONENT WORD</td>

<td> £637</td><td> £2427 072051</td><td> SLA **hS</td><td> SET THE MANTISSA SIGN</td>

<td> £538</td><td> £2430 025671</td><td> LDB RCPFG</td><td> LOAD THE RECIPROCAL FLAG</td>

<td> 3639</td><td> 02431 006170</td><td> ADB N2</td><td> DETERMINE WHETHER IT</td>

<td> 2541</td><td> £2433 005673</td><td> ADR SIGN</td><td> ADO THE ORIGINAL ARGUMENT SIGN TO THIS</td>

<td> 0642</td><td> £2434 074111</td><td> SLR «♦?</td><td> IF THE RESULT IS ONE</td>

<td> .:34 3</td><td> £2435 0700?!</td><td> SLA «♦! »C</td><td> THE FINAL ANSWER WILL BE ZERO, ELSE ONE</td>

<td> £544</td><td> 02436 074742</td><td> SHR 16</td><td> CLEAR THE B REGISTER</td>

<td> t»545</td><td> 02437 066614</td><td> JMP OUT</td><td> STORE THE ANSWER</td>

<td> 254 6· £549·</td><td> CALCULATE THE</td><td> COSINE OF</td><td> X</td>

<td> *5550« CbSl</td><td> 02440 062346 COS</td><td> JSM STN</td><td> INITIALIZE THE FLAGS AND FETCH THE ARGUMENT IN RADIX</td>

<td> £553</td><td> £2442 063712</td><td> JSM xaa</td><td> THE ARGUMENT</td>

<td> 0554</td><td> 02443 062232</td><td> JSM XTT-2</td><td> SET UP THE ARGUMENT ♦ ADDRESSES</td>

<td> 0555</td><td> 02444 066412</td><td> JMP SINH</td><td> CALCULATE THE SINE OF THIS QUANTITY</td>

0557* <558***»****»********»*«»*»**»»»*«*»*»*

0559*

<td> 1,560·*· PROCESS THE ARC KEYCODE</td><td colspan="2" rowspan="2"></td>

<td>

<td colspan="2"> «562 «2445 062356 ARC JSM NXCD1 FETCH THE NEXT KEYCOOE 0b63* .)564 «2446 014064 CPB ASNC IF IT IS SIN. «565 «2447 066464 JMP ASN JUMP TO THE ARCSINE ROUTINE «566 02450 016206 CPB ATNC IF IT IS TAN 0567 «2451 067353 JMP ATN JUMP TO THE ARCTANGENT ROUTINE «568 «2452 016205 CPB ACSC IF IT IS COS 0569 02453 0664S5 JMP ACS JUMP TO THE ARCCOSINE ROUTINE 0570 02454 170402 RET OTHERWISE IGNORE IT «571* 0572·*·******«****»*****·«*******·β»*** 0573* 0574·*· CALCULATE THE ARCCOSINF OF X 0575* «576 02455 020031 ACS LDA N1 LET THE CODEWORD BE -1 0577 02456 062621 JSM ASNS*1 CALCULATE THE ARCCOSINE OF X 3578 02457 021677 LDA GFG LOAD THE ORIGINAL EXPONENT WORD</td><td></td>

<td> 0579 «2460 070151 SLA ACSS SKIP IF THE MANTISSA SIGN 0580 02461 020064 LDA PI OTHERWISE ADD PI 0581 «2462 063712 JSM XAA TO THE RESULT</td><td> BIT IS</td><td> 0</td>

<td> 0582 «2463 067354 ACSS JMP EATN CONVERT THE ANSWER TO THE 0583* 05Θ4*********************************** 0585* 0586*·* CALCULATE THE ARCSINE OF X 0587* 0588 02464 062620 ASN JSM ASNS CALCULATE THE ARCSINE OF X</td><td> PROPER</td><td> UNITS</td>

<td> 0589 02465 067354 JMP EATN CONVERT THE ANSWER TO THE 0S41· 059?···*·*····♦··*»··*···*·«·♦··«·····* £^93· <544··· CALCULATE THE TANGENT OF X <545· <546 (¢2466 062346 TAN JSM STN FETCH THE ARGUMENT ANO INITIALIZE FLAGS «597« 0598 02467 024063 LDB Pl SET THE RECIPROCAL</td><td> PROPER</td><td> UNITS</td>

3,859,635

272

271

MATH BLOCK FOR THE 9810, CALLED »C0RD3»-Continued

<td> ib/5</td><td> 02475</td><td> 022145</td><td> LDA</td><td> TWOPI</td><td> REDUCE THE ARGUMENT TO</td>

<td> 0006</td><td> ¢2476</td><td> 062256</td><td> JSM</td><td> FRAC</td><td> A FRACTIONAL NO. OF CIRCLES</td>

<td> ¢607</td><td> 02477</td><td> 062307</td><td> JSM</td><td> ZERO</td><td> DETERMINE IF THE RESULT IS ZERO</td>

<td> 260 9</td><td> 0 2581</td><td> 075512</td><td> SHM</td><td> GET1</td><td> IT IS NON-ZEROSSKIP IF THE EXPONENT IS NEGATIVE</td>

<td> J 6 1 I</td><td> 32502</td><td> 062366</td><td> JSM</td><td> P2T0</td><td> OTHERWISE LOAD PI/2 INTO ARI</td>

<td> 261 ?</td><td> 32503</td><td> 170400</td><td> CMY</td><td></td><td> ANO SUBTRACT IT FROM THE</td>

<td> 0613</td><td> 32504</td><td> 074742</td><td> SHR</td><td> 16</td><td> ARGUMENT UNTIL AN</td>

<td> 0614</td><td> 025O5</td><td> 170420</td><td> FDV</td><td></td><td> OVERFLOW OCCURS</td>

<td> 0615</td><td> 02506</td><td> 035671</td><td> STB</td><td> HCPFG</td><td> SET RCPFG=THE NO. OF SUBTRACTS MINUS ONE</td>

<td> 06 17</td><td> 2 2507</td><td> 062.307</td><td> JSM</td><td> ZERO</td><td> DETERMINE IF THE RESULT IS ZERO</td>

<td> «620</td><td> 0251 1</td><td> 025671</td><td> LOH</td><td> RCPFG</td><td> LOAD THE RECIPROCAL FLAG</td>

<td> J6??</td><td> 025 13</td><td> 045671</td><td> ISZ</td><td> RCPFG</td><td> IF ITS ODD INCREMENT IT</td>

<td> 06?3</td><td> 02514</td><td> 166010 FAL1</td><td> JMP</td><td> FALSE,I</td><td> ANO STORF ZERO AND RETURN</td>

<td> 3 o 2 4</td><td> 0 2 5 15</td><td> 025754</td><td> LOB</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td>

<td> 06? 5</td><td> 2 2516</td><td> 055664</td><td> DSZ</td><td> TEMP</td><td> SKIP IF SIN OR COS ARE BEING CALCULATED</td>

<td> 06?6</td><td> 2 2517</td><td> 166007</td><td> JMP</td><td> STMAXtl</td><td> OTHERWISE STORE MAX.NO. AND RETURN</td>

<td> 2637</td><td> 32520</td><td> 170402</td><td> RET</td><td></td><td> RETURN</td>

<td> 0b?9</td><td> 02521</td><td> 062247</td><td> JSM</td><td> NORM+1</td><td> NORMALIZE THE RESULT AND CORRECT ITS EXPONENT</td>

<td> 2r-30</td><td> ??52?</td><td> 074352</td><td> SHM</td><td> GET</td><td> SKIP IF THE EXPONENT IS NEGATIVE</td>

<td> 0c31</td><td> 22523</td><td> 021673</td><td> LDA</td><td> SIGN</td><td> LOAD THE ORIGINAL EXPONENT WORD</td>

<td> 36 3?</td><td> 02524</td><td> 050063</td><td> ANO</td><td> Pl</td><td> SAVE THE MANTISSA SIGN</td>

<td> 06 33</td><td> 02525</td><td> 300101</td><td> ADA</td><td> N256</td><td> SET THE EXPONENT TO -1</td>

<td> 0b 34</td><td> 02526</td><td> 031754</td><td> STA</td><td> AR2E</td><td> ESTABLISH THIS AS THE EXPONENT</td>

<td> 0o35</td><td> 02527</td><td> 031673</td><td> STA</td><td> SIGN</td><td> WORD FOR THE REST OF THE ALGORITHMN</td>

<td> 0637</td><td> 02530</td><td> 066534</td><td> JMP</td><td> GET + 3</td><td> JUMP TO AVOID THE OFFSETlTHE NO. IS>1</td>

<td> 0638</td><td> 0?53l</td><td> 035673 GET</td><td> STB</td><td> SIGN</td><td> STORE THE NEW EXPONENT WORD</td>

<td> 0b39</td><td> 02532</td><td> 024063</td><td> LDB</td><td> Pl</td><td> LOAD 1) THE OFFSET</td>

<td> ?. 6 4 0</td><td> 02533</td><td> 162011</td><td> JSM</td><td> ROUND,!</td><td> OFFSET AND ROUND THE ARGUMENT</td>

<td> 064?</td><td> 02534</td><td> 063164</td><td> JSM</td><td> AWRS</td><td> INITIALIZE THE DIGIT STACK POINTER</td>

<td> 0644</td><td> 02535</td><td> 021754</td><td> LDA</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td>

<td> 0645</td><td> 02536</td><td> 070240</td><td> AAR</td><td> 6</td><td> OFFSET IT AND MULTIPLY IT BY 4</td>

<td> 0646</td><td> 02537</td><td> 070076</td><td> TCA</td><td></td><td> COMPLEMENT IT</td>

<td> 0647</td><td> 02540</td><td> 002162</td><td> ADA</td><td> THETT</td><td> CALCULATE THE ADDRESS OF THE PROPER COROIC CONSTANT</td>

<td> 0648</td><td> 02541</td><td> 025754</td><td> LOH</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td>

<td> 0649</td><td> '02542</td><td> 074.340</td><td> ABR</td><td> 8</td><td> ALLIGN IT</td>

<td> «6S0</td><td> 02543</td><td> 004770</td><td> AOB</td><td> P7</td><td> ADD 7 TO IT (THIS IS THE NO. OF CORDIC CONSTANTS TO</td>

<td> 0651</td><td> 02544</td><td> 074453</td><td> SHP</td><td> *♦9</td><td> SKIP IF THE RESULT IS POSITIVE</td>

<td> 0b5?</td><td> .02545</td><td> 171450</td><td> NRM</td><td></td><td> NORMALIZE THE NO.- ITS TOO SMALL</td>

<td> 0653</td><td> 02546</td><td> 063611</td><td> JSM</td><td> TTX</td><td> STORE IT IN X</td>

<td> 2654</td><td> 02547</td><td> 025671</td><td> LDB</td><td> RCPFG</td><td> LOAD THE RECIPROCAL FLAG</td>

<td> 2b55</td><td> 02550</td><td> 074U1</td><td> SLB</td><td> *♦2</td><td> AND JUMP TO GET THE EXPONENT WORD</td>

<td> 0657</td><td> 02552</td><td> 163217</td><td> JSM</td><td> ONVXtt</td><td> OTHERWISE RECIPROCATE X ANO</td>

<td> 0b58</td><td> 02553</td><td> 025671</td><td> LDB</td><td> RCPFG</td><td> JUMP TO GET THE</td>

<td> 2o59</td><td> 02554</td><td> 066612</td><td> •JMP</td><td> OUT-2</td><td> EXPONENT WORD</td>

<td> 0g60</td><td> 02555</td><td> 075410</td><td> SZB</td><td> »*8</td><td> IF THE EXPONENT WAS -7 DO THE ABOVE</td>

<td> 066?</td><td> 0 2556</td><td> 063101</td><td> JSM</td><td> IN </td><td> EXECUTE PHASE I OF THE COROIC ROUTINE-</td>

<td> 266 4</td><td> 02557</td><td> 021754</td><td> LDA</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td>

<td> 2o65</td><td> 02563</td><td> 000105</td><td> ADA</td><td> P256</td><td> INCREMENT THE EXPONENT BY 1</td>

<td> ? 6 6 6</td><td> 02561</td><td> 070340</td><td> AAR</td><td> 8</td><td> ALLIGN IT (THIS IS AN OFFSET FACTOR IN PHASE II)</td>

<td> «667</td><td> 02562</td><td> 074742</td><td> SBR</td><td> 16</td><td> STORE ZERO IN IHE</td>

<td> 0668</td><td> 02563</td><td> 035754</td><td> STH</td><td> AR2E</td><td> EXPONENT OF ARB</td>

<td> 0b69</td><td> 32564</td><td> 070137</td><td> LDH</td><td> A</td><td> DUPLICATE THE ABOVE CALCULATION</td>

<td> 0670</td><td> 02565</td><td> 07O076</td><td> TCA</td><td></td><td> COMPLEMENT IT</td>

<td> 0671</td><td> 02566</td><td> 006163</td><td> ADB</td><td> P6</td><td> ADD SIX TO IT (THIS IS THE NO. OF LOOPS OF PHASE IL</td>

<td> 0b7?</td><td> 02567</td><td> 063124</td><td> 4 JSM</td><td> IN2</td><td> EXECUTE PHASE II OF THE COROIC ROUTINE</td>

<td> 0674</td><td> 02570</td><td> 021671</td><td> LDA</td><td> RCPFG</td><td> LOAD THE RECIPROCAL FLAG</td>

<td> £677</td><td> 3257?</td><td> 021676</td><td> LDA</td><td> RY1</td><td> LOAD THE FACTORS FOR THE</td>

<td> 2678</td><td> 02573</td><td> 024015</td><td> LOB</td><td> ARI</td><td> FINAL RECIPROCAL DIVISION (X/Y)</td>

<td> 06 79</td><td> 32574</td><td> 066577</td><td> JMP</td><td> * + 3</td><td> JUMP TO NORMALIZE THEM</td>

<td> «6 80</td><td> 02575</td><td> 320315</td><td> LDA</td><td> ARI</td><td> LOAD THE ADDRESSES FOR THE</td>

<td> 0bHl</td><td> 02576</td><td> 025676</td><td> LDB</td><td> RY1</td><td> FINAL DIVISION (Y/X)</td>

<td> 0 683</td><td> 02577</td><td> 062237</td><td> JSM</td><td> DIV</td><td> NORMALIZE THE FACTORS ANO ESTABLISH THEIR EXPONENTS</td>

<td> 0684</td><td> 3 26Λ0</td><td> 062343</td><td> JSM</td><td> XAT</td><td> FETCH THE ADDRESSES</td>

<td> 0685</td><td> 02601</td><td> 063450</td><td> JSM</td><td> FOV</td><td> DO THE FINAL DIVISION</td>

<td> 2 66 7</td><td> 0260?</td><td> ¢25673</td><td> LDB</td><td> SIGN</td><td> LOAD THE ORIGINAL EXPONENT WORD</td>

<td> 0688</td><td> 02603</td><td> 005671</td><td> AOB</td><td> RCPFG</td><td> ADO THE RCPFG TO THE MANTISSA SIGN</td>

<td> 0689</td><td> 3 2604</td><td> 004105</td><td> ADB</td><td> P256</td><td> INCREMENT THE EXPONENT BY 1</td>

<td> 0691</td><td> 02605</td><td> 021671</td><td> LDA</td><td> RCPFG</td><td> LOAD THE RECIPROCAL FLAG</td>

<td> 069?</td><td> 22606</td><td> 070111</td><td> SLA</td><td> **2</td><td> IF IT IS ODD THE EXPONENT</td>

<td> «693</td><td> 02607</td><td> 066612</td><td> JMP</td><td> OUT-2</td><td> IS FINISHED SO JUMP</td>

3,859,635

<td></td><td> 273 MATH HLOCK F</td><td> 274 OP THE 9810, CALLED · C0RD3 ·—Continued</td>

<td> 2694 22610 074076</td><td> TCS</td><td> OTHERWISE COMPLEMENT IT AND</td>

<td> 0695 02611 006176</td><td> ADB D0010</td><td> PROPAGATE ANY LOW ORDER BITS INTO EXPONENT</td>

<td> 0697 02612 005677</td><td> ADB GFG</td><td> ADD GFG TO THE MANTISSA SIGN (FINAL SIGN)</td>

<td> 0698 02613 021754</td><td> LDA AR2E</td><td> THE FINAL EXPONENT WORD WILL BE</td>

<td> 0699 02614 031744</td><td> OUT STA ARIE</td><td> THE QUOTIENT EXPONENT OF THE QUOTIENT AND THIS COM</td>

<td> 0702 02616 031720</td><td> STA ADR2</td><td> RETURN ADDRESS</td>

<td colspan="2"> 2703 02617 166012 JMP</td><td> TERM· I CLEAN UP THE ANSWER AND RETURN</td>

/7 05· k‘, 7'46*** ******* *»#**«**«#*»<«*«»« <n* * » ο *

ΛΪΛ7*

<td colspan="2"> 0708***</td><td> SUBROUTINE</td><td colspan="2"> FOR ARCSINE</td><td> ANO ARC COSINE</td>

<td> 0711</td><td> 02621</td><td> 025750</td><td> LDB</td><td> ADRXE</td><td> SAVE THE ORIGINAL EXPONENT</td>

<td> 0712</td><td> 02622</td><td> 035673</td><td> STB</td><td> SIGN</td><td> FOR FUTURE</td>

<td> 0713</td><td> 02623</td><td> 035677</td><td> STB</td><td> GFG</td><td> REFERENCES</td>

<td> 0714 0715*</td><td> 02624</td><td> 062320</td><td> JSM</td><td> SCRT</td><td> CALCULATE SQR (1+OR-XX)</td>

<td> 0716</td><td> «2625</td><td> 000063</td><td> ADA</td><td> Pl</td><td> FETCH THE FIRST FOUR DIGITS</td>

<td> 0717</td><td> 02626</td><td> 070517</td><td> LDA</td><td> A,I</td><td> OF THE 'TO BE· DIVISOR</td>

<td> 0720</td><td> 02630</td><td> 062336</td><td> JSM</td><td> SCRT1</td><td> FETCH THE ADDRESSES FOR THE IDENTITY</td>

<td> 0721</td><td> 02631</td><td> 063450</td><td> JSM</td><td> FDV</td><td> DIVIDE THE TWO QUANTITITES</td>

<td> 0722 0723*</td><td> 02632</td><td> 063611</td><td> JSM</td><td> TTX</td><td> TRANSFER THE RESULT INTO X</td>

<td> 0726*'</td><td> K</td><td colspan="2"> CALCULATE THE</td><td colspan="2"> : ARCTANGENT</td><td> OF X</td><td></td><td></td>

<td> 0727* 0728</td><td> 02633</td><td> 026157</td><td> ATNS</td><td> LDB</td><td> EN3</td><td> FETCH THE ARGUMENT AND</td><td></td><td></td>

<td> 0729 0730*</td><td> 02634</td><td> 062231</td><td></td><td> JSM</td><td> INIT</td><td> INITIALIZE THE FLAGS</td><td></td><td></td>

<td> 0731</td><td> 02635</td><td> 062307</td><td></td><td> JSM</td><td> ZERO</td><td colspan="2"> DETERMINE WHETHER THE ARGUMENT IS</td><td> ZERO</td>

<td> 0732</td><td> 02636</td><td> 070114</td><td></td><td> SES</td><td> *♦2</td><td> IF THE ARGUMENT IS</td><td></td><td></td>

<td> 0733 3734*</td><td> »2637</td><td> 170402</td><td></td><td> RET</td><td></td><td> ZERO RETURN</td><td></td><td></td>

<td> »735</td><td> 02640</td><td> 074312</td><td></td><td> SBM</td><td> OK*1</td><td> SKIP IF THE EXPONENT IS</td><td> NEGATIVE</td><td></td>

<td> 0736</td><td> 02641</td><td> 006160</td><td></td><td> ADB</td><td> EN12</td><td> ADD -12 TO THE EXPONENT</td><td> AND</td><td></td>

<td> 0737</td><td> 02642</td><td> 074152</td><td></td><td> SBM</td><td> OK</td><td> SKIP IF THE RESULT IS</td><td rowspan="2"> NEGATIVE</td><td></td>

<td> 0738</td><td> 02643</td><td> 162010</td><td></td><td> JSM</td><td> FALSE·!</td><td> OTHERWISE STORE ZERO AND</td><td></td>

<td> 0740 0741*</td><td> 02645</td><td> 160217</td><td> OK</td><td> JSM</td><td> ONVX.I</td><td> RECIPROCATE THE ARGUMENT</td><td> IF IT IS</td><td> >1</td>

<td> 0742</td><td> 22646</td><td> 063770</td><td></td><td> JSM</td><td> CLER</td><td colspan="2"> CLEAR OUT THE DIGIT STACK AREA</td><td></td>

<td> 0743* 0744</td><td> 02647</td><td> 021754</td><td></td><td> LDA</td><td> AR2E</td><td> LOAD THE EXPONENT WORD</td><td></td><td></td>

<td> 0745</td><td> 02650</td><td> 070300</td><td></td><td> AAR</td><td> 7</td><td> DIVIDE IT BY 2</td><td></td><td></td>

<td> »746</td><td> 02651</td><td> 070076</td><td></td><td> TCA</td><td></td><td> COMPLEMENT IT</td><td></td><td></td>

<td> 0747</td><td> 02652</td><td> 000074</td><td></td><td> ADA</td><td> P22</td><td> CALCULATE 22-2(EXPONENT)</td><td> IA SHIFT</td><td rowspan="2"> FACTOR</td>

<td> 0750</td><td> 02654</td><td> 063124</td><td></td><td> JSM</td><td> IN2</td><td> EXECUTE PHASE II OF THE</td><td colspan="2"> CORDIC ROUTINE</td>

<td> 0751</td><td> 02655</td><td> 021754</td><td></td><td> LDA</td><td> AR2E</td><td> SAVE THE PRESENT</td><td></td><td></td>

<td> 0752</td><td> 02656</td><td> 031674</td><td></td><td> STA</td><td> SAVE</td><td> EXPONENT WORD</td><td></td><td></td>

<td> 0753</td><td> 02657</td><td> 070340</td><td></td><td> AAR</td><td> a</td><td> ALLIGN IT</td><td></td><td></td>

<td> 0754</td><td> 02660</td><td> 070076</td><td></td><td> TCA</td><td></td><td> COMPLEMENT IT</td><td></td><td></td>

<td> 0757</td><td> 02662</td><td> 002172</td><td></td><td> ADA</td><td> N13</td><td> IF THIS QUANTITY IS</td><td></td><td></td>

<td> 0758</td><td> 02663</td><td> 070112</td><td></td><td> SAM</td><td> *♦2</td><td> GREATER THAN 12</td><td></td><td></td>

<td> 0759</td><td> 02664</td><td> 020031</td><td></td><td> LDA</td><td> N1</td><td> REPLACE IT WITH 12</td><td></td><td></td>

<td> 0760</td><td> 02665</td><td> 002165</td><td></td><td> ADA</td><td> P13</td><td> OTHERWISE LEAVE IT</td><td></td><td></td>

3,859,635

275 276 hath block for the 9810. called .C0RD3' —Continued

<td colspan="2"> e/6i* 076? 0?666</td><td> 026145</td><td></td><td> LDB</td><td> IwOPI</td><td> LET B=THE ADDRESS PRIOR TO THE FIRST CORDIC ADDRESS</td>

<td> t763</td><td> 02667</td><td> 0633O1</td><td></td><td> JSM</td><td> IN3</td><td> EXECUTE PHASE '11 OF THE CORDIC ALGORITHM</td>

<td colspan="2"> 0 164* 0765 03670</td><td> 031673</td><td> POUT</td><td> LDA</td><td> SIGN</td><td> LOAD THE ORGINHAL EXPONENT WORD</td>

<td> 0766</td><td> 0267 1</td><td> 031754</td><td></td><td> STA</td><td> AR2E</td><td> STORE IT IN AR?</td>

<td colspan="2"> 07b7 03673 0768*</td><td> 070413</td><td></td><td> SAM</td><td> GONO</td><td> SKIP IF THE EXPONENT IS NEGATIVE</td>

<td> 0 769</td><td> 02673</td><td> 050063</td><td></td><td> AND</td><td> Pl</td><td> SAVE THE ORIGINAL</td>

<td colspan="2"> 0770 02674 0771*</td><td> 031754</td><td></td><td> STA</td><td> ARSE</td><td> SIGN OF THE HATISSA</td>

<td> ¢772</td><td> 03675</td><td> 025674</td><td></td><td> LDB</td><td> SAVE</td><td> LOAD THE INTERMEDIATE EXPONENT WORD</td>

<td colspan="2"> 0773 02676 ύ 774*</td><td> 062377</td><td></td><td> JSM</td><td> UNRM*1</td><td> UNNORMALIZE THE ANSWER</td>

<td> 0775</td><td> 03677</td><td> 063366</td><td></td><td> JSM</td><td> P?TO</td><td> SUBTRACT THE</td>

<td colspan="2"> 07 76* ¢777 <43700</td><td> 170400</td><td></td><td> Cmy</td><td></td><td> ANSWER FROM</td>

<td colspan="2"> O7d0 03703 c 781 ·</td><td> 062247</td><td> GONO</td><td> JSM</td><td> NORM*)</td><td> NORMALIZE THE RESULT</td>

<td> 0782</td><td> 03703</td><td> 074743</td><td> SOUT</td><td> SBP</td><td> 16</td><td> CLEAR THE B REGISTER</td>

.: /85* ,/ 36****** »»*»*»»»*»»»»»<»» »»*»»* »««»»»» .-/87* .’ 788*» CALCULATE THE LOG OF X

<td> Z 790</td><td> 0 2 705</td><td> 063000</td><td> LOG</td><td> JSH</td><td> LNX</td><td> CALC THE NATURAL LOG OF X</td>

<td> ύ 791</td><td> 02706</td><td> 022207</td><td></td><td> LOA</td><td> LN10</td><td> LOAD THE ADDRESS OF LNU0)</td>

<td> *792</td><td> 02707</td><td> 055672</td><td></td><td> OSZ</td><td> FNCFG</td><td> SKIP IF THE MAX NO. WAS STORED</td>

<td> «793</td><td> 02710</td><td> 067403</td><td></td><td> JMP</td><td> GTOR+1</td><td> DIVIDE THE RESULT BY LNI10)</td>

<td> 0 794 4)795*</td><td> «2711</td><td> 170402</td><td> RET6</td><td> RET</td><td></td><td> RETURN</td>

<td> /798*«799»</td><td> »«</td><td> RAISE X</td><td colspan="3"> ; TO THE POWER IN Y</td><td></td>

<td> 2 800</td><td> 02712</td><td> 021751</td><td> UPARO</td><td> LOA</td><td> ADRXE*1</td><td> LOAD THE FIRST FOUR DIGITS OF X</td>

<td> 2 301 3802»</td><td> 02713</td><td> 072210</td><td></td><td> RZA</td><td> REXP</td><td> SKIP IF THEY ARE NONZERO</td>

<td> 0803</td><td> 02714</td><td> 021740</td><td></td><td> LDA</td><td> AORYE</td><td> LOAD THE EXPONENT WORD OF Y</td>

<td> 0804</td><td> 02715</td><td> 071631</td><td></td><td> SLA</td><td> RET6.C</td><td> SKIP IF THE MANTISSA IS NEGATIVE</td>

<td> 2 0 05 0806*</td><td> 02716</td><td> 066776</td><td></td><td> JMP</td><td> BACK1</td><td> OTHERWISE JUMP TO STORE THE MAX. NO.</td>

<td> 0807</td><td> 02717</td><td> 063000</td><td> REXP</td><td> JSM</td><td> LNX</td><td> CALCULATE THE NATURAL LOG OF X</td>

<td> 0808</td><td> 02720</td><td> 020005</td><td></td><td> LDA</td><td> ADRY</td><td> MULTIPLY THE RESULT BY X</td>

<td> 0809</td><td> 02721</td><td> 063473</td><td></td><td> JSM</td><td> XAM</td><td> AND PASS INTO THE EXP ROUTINE</td>

0811*

0812**·*******»»**»***»**»»»»»·*»»***»*

0813* «814*** CALCULATE THE EXPONENTIAL OF X 0815*

<td> 0816</td><td> 02722 024063 EXP</td><td> LDB Pl</td><td> LOAD THE FUNCTION FLAG</td>

<td> 0817</td><td> 02723 062231</td><td> JSM INIT</td><td> FETCH THE ARGUMENT</td>

<td> 0819</td><td> «2724 025754</td><td> LDB AR2E</td><td> LOAD THE EXPONENT WORD AND</td>

<td> 0820</td><td> 02725 074152</td><td> SBM *+3</td><td> SKIP IF THE EXP IS NEGATIVE</td>

<td> 0821</td><td> 02726 006157</td><td> ADB EN3</td><td> OTHERWISE SUBTRACT 3 FROM IT</td>

<td> 0822</td><td> «2727 074353</td><td> SBP STM1-1</td><td> AND STORE MAX IF IT IS STILL POSITIVE</td>

<td> 0824</td><td> 02730 022207</td><td> LDA LN10</td><td> REDUCE THE ARGUMENT TO A</td>

<td> 0825</td><td> 02731 062256</td><td> JSM FRAC</td><td> FRACTION OF LN<10)</td>

<td> 0026</td><td> 02732 062276</td><td> JSM UNRM</td><td> UNNORMALIZE THIS QUANTITY</td>

<td> 0828</td><td> 02733 021670</td><td> LOA COUNT</td><td> LOAD THE INTEGER PART <N0. OF LN10'S></td>

<td> 0829</td><td> 02734 070542</td><td> SAR 12</td><td> CHECK TO SEE IF THERE</td>

<td> 0830</td><td> 02735 070150</td><td> SZA LT3</td><td> ARE THREE DIGITS</td>

<td> 0831</td><td> 02736 074044</td><td> SBL 15</td><td> IF THERE ARE JUMP TO</td>

<td> 0832</td><td> 02737 166007 STM1</td><td> JMP STMAX.I</td><td> THE STORE MAX ROUTINE</td>

<td> 0834</td><td> 02740 025670 LT3</td><td> LDB COUNT</td><td> LOAD THE NO. OF LN10’S</td>

<td> 0835</td><td> 02741 074404</td><td> SBL 8</td><td> ISOLATE THE</td>

3,859,635

277 278

MATH BLOCK FOR THE 9810, CALLED ·CORD3’-Continued

<td> 0836</td><td> 02742 074142</td><td> SBR 4</td><td> SECOND DIGIT IN B</td>

<td> 0837</td><td> 02743 021670</td><td> LDA COUNT</td><td> RELOAD THE NO. OF LNIO’S</td>

<td> 0838</td><td> 02744 070342</td><td> SAR 8</td><td> ISOLATE THE FIRST</td>

<td> 0839</td><td> 02745 070344</td><td> SAL 9</td><td> DIGIT AND ADD</td>

<td> 084k)</td><td> 02746 070037</td><td> AUB A</td><td> ΓΕΝ TIMES IT</td>

<td> 0842</td><td> 02750 070037</td><td> ADB A</td><td> B REGISTER</td>

<td> 0843</td><td> 02751 035671</td><td> STB RCPFG</td><td> STORE THIS QUANTITY IN RCPFG</td>

<td> 0845</td><td> 02752 063770</td><td> JSM CLER</td><td> CLEAR OUT THE DIGIT STACK AREA</td>

<td> 0847</td><td> 02753 022152</td><td> LDA THETL</td><td> LET A= THE ADDRESS AFTER THE LAST CONSTANT</td>

<td> 0848</td><td> 02754 024012</td><td> LDB AWRDN</td><td> INTIIALIZE THE</td>

<td> 0849</td><td> 02755 004031</td><td> ADB N1</td><td> DIGIT STACK</td>

<td> 0850</td><td> 02756 035666</td><td> STB DIGIT</td><td> POINTER</td>

<td> 0851</td><td> 02757 026163</td><td> LDB P6</td><td> LET B= THE NO. OF LOOPS TO BE CYCLED</td>

<td> 0952</td><td> 02760 063101</td><td> JSM IN</td><td> EXECUTE PHASE I OF THE ROUTINE</td>

<td> 0854</td><td> 02761 024023</td><td> LDB N5</td><td> STORE THE NEXT FIVE</td>

<td> 0855</td><td> 02762 045666</td><td> ISZ DIGIT</td><td> DIGITS OF THE RESULT</td>

<td> 0856</td><td> 02763 171400</td><td> MLS</td><td> INTO THE DIGIT STACK</td>

<td> 0857</td><td> 02764 131666</td><td> STA DIGIT,I</td><td> BY LEFT SHIFTING</td>

<td> 0858</td><td> 02765 077670</td><td> RIB *-3</td><td> THE RESULT</td>

<td> 0862</td><td> 02767 063234</td><td> JSM PTJ</td><td> EXECUTE PHASE IV OF THE ALGORITHM</td>

<td> 0864</td><td> 02770 021671</td><td> LDA RCPFG</td><td> STORE THE CALCULATED BINARY NO.</td>

<td> 0865</td><td> 02771 031754</td><td> STA AR2E</td><td> OF LN10’S IN THE EXPONENT BITS</td>

<td> 0867</td><td> 02772 171450</td><td> NRM</td><td> NORMALIZE THE ANSWER</td>

<td> 0869</td><td> 02773 021673</td><td> LDA SIGN</td><td> LOAD THE ORIGINAL EXPONENT WORD</td>

<td> 087 0</td><td> 02774 070151</td><td> SLA »*3</td><td> IF THE OR1GIANL MANTISSA WAS</td>

<td> 0871</td><td> Z2775 363611</td><td> JSM TTX</td><td> NEGATIVE TRANSFER THE ARGUMENT</td>

<td> 0872</td><td> 02776 160217</td><td> BACK1 JSM ONVX.I</td><td> RECIPROCATE X</td>

<td> 0874</td><td> 02777 066703</td><td> JMP SOUT</td><td> RETURN THRU THE RESET ROUTINE</td>

0H76*

77**·♦♦··♦♦**««*****♦♦···«·***♦**«*♦*

0H7ft*

0879··· CALCULATE THE NATURAL LOG OF X

0881*

<td></td><td> 03000 024031 LNX</td><td> LDB Nl</td><td> LET THE .FUNCTION FLAG BE -1</td>

<td> £883</td><td> ¢3001 062231</td><td> JSM INIT</td><td> FETCH THE ARGUMENT ANO INITIALIZE THE FLAGS</td>

<td> 0885 ·</td><td> 23402 062307</td><td> JSM ZERO</td><td> DETERMINE IF THE ARGUMENT IS NEGATIVE</td>

<td> 0887</td><td> 03004 024063</td><td> LDB Pl</td><td> JUMP TO STORE</td>

<td> 0HHR '</td><td> 03005 035672</td><td> SIB FNCFG</td><td> NEGATIVE INFINITY AND</td>

<td> 0889</td><td> ¢3006 166007</td><td> JMP STMAXiI</td><td> SET A FLAG FOR LOG BASE 10</td>

<td> Oh90</td><td> £3007 074111</td><td> SLB ·♦?</td><td> SKIP IF THE ARGUMENT IS NEGATIVE</td>

<td> 089 1</td><td> fc3010 162176</td><td> JSM ERROR»!</td><td> SET THE STATUS LIGHT IF IT IS</td>

<td> 0893</td><td> 03011 063770</td><td> JSM CLER</td><td> OTHERWISE CLEAR THE DIGIT STACK AND CONTINUE</td>

<td> 0*99</td><td> 03012 063234</td><td> JSM PTJ</td><td> EXECUTE PHASE IV OF THE ALGORITHM</td>

<td> 0895</td><td> 03013 055666</td><td> DSZ DIGIT</td><td> DECREMENT THE DIGIT STACK POINTER</td>

<td> 0897</td><td> 03014 422163</td><td> LDA P6</td><td> LET A=6 , THE NO. OF CONSTANTS USED</td>

<td> fc 898</td><td> 03015 «26207</td><td> LOB LN10</td><td> SET B= THE ADDRESS PRIOR TO THE FIRST CONSTANT</td>

<td> 0899</td><td> 03016 063301</td><td> JSM IN3</td><td> EXECUTE PHASE 111 OF THE ALGORITHM</td>

<td> 0901</td><td> 03017 06.3611</td><td>M JSM TTX</td><td> TRANSFER THE RESULT INTO X</td>

<td> ^904</td><td> 03020 020016</td><td> ' LDA AR2</td><td> CLEAR THE AR2</td>

<td> 4^05</td><td> 03021 170000</td><td> CLR</td><td> WORKING REGISTER</td>

<td> «907</td><td> 0302? 021673</td><td> LDA SIGN</td><td> LOAD THE ORIGINAL EXPONENT WORD</td>

<td> 4^08</td><td> 23023 00010b</td><td> ADA P256</td><td> INCREMENT THE EXPONENT BY 1</td>

<td> 0949</td><td> 03024 070340</td><td> AAR 8</td><td> ALLIGN THE EXPONENT</td>

<td> 0910</td><td> 03025 070113</td><td> SAP ·♦?</td><td> SKIP IF IT IS POSITIVE</td>

<td> 49 11</td><td> 03026 070076</td><td> 1CA</td><td> OTHERWISE COMPLEMENT IT</td>

<td> 0913</td><td> 030?7 002155</td><td> ADA N100</td><td> ADD -100 TO THE EXPONENT</td>

<td> 49lS</td><td> 03031 070153</td><td> SAP ·♦!</td><td> SKIP IF THE EXPONENT -100 IS POSITIVE</td>

3,859,635

<td> 2</td><td> 79</td><td rowspan="2"> 280 ? THE 9810· CALLED · C0RD3Continued</td>

<td> MATH</td><td> BLOCK FOf</td>

<td> 0916 03032 002154</td><td> ADA P100</td><td> RESTORE THE EXPONENT</td>

<td> 0917 03033 074742 0918»</td><td> SBH 16</td><td> CLEAR B</td>

<td> 0919 03034 000024</td><td> ADA N10</td><td> SUBTRACT 10 FROM THE EXPONENT</td>

<td> 0920 03035 070152</td><td> SAM *·3</td><td> IF THE ANSWER IS POSITIVE ADD</td>

<td> 0922 €3037 067034</td><td> JMP «-3</td><td> jump back to subtract another 10</td>

<td> λ923 03040 000104 0924·</td><td> ADA P10</td><td> RESTORE THE EXPONENT AND CONTINUE</td>

<td> 0925 03041 070037</td><td> ADB A</td><td> ADD THE REMAINING NO. OF COUNTS</td>

<td> 0926 03042 035755 0927·</td><td> STB AR2E·!</td><td> INTO Β AND STORE THE WORD IN AR2</td>

<td> 0928 03043 022071</td><td> LOA EP3</td><td> SET THE EXPONENT OF AR2</td>

<td> 0929 03044 031754</td><td> STA AR2E</td><td> EQUAL TO 3</td>

<td> 0930 03045 062247 0931· 093« 03046 026207 0933 03047 162014 0934* 0935 03050 020016 0936« 0937 03051 .024004 0938 03052 062237 0939*</td><td> JSM NORM·! LDB JSM LDA LDB JSM</td><td> NORMALIZE AR2 AND CORRECT THE EXPONENT LN10 MULTIPLY AR2 BY THE FMP,I NATURAL LOG OF TEN AR2 NORMALIZE THIS RESULT AND ADRX THE MANTISSA DERIVED DIV BY THE ALGORITHM</td>

<td> 0940 03053 145724 0941*</td><td> ISZ</td><td> ADRI»I CHANGE THE SIGN OF THE ALGORITHM MANTISSS</td>

<td> 0942 03054 021673</td><td> LDA</td><td> SIGN LOAD THE ORIGINAL EXPONENT WORD</td>

<td> 0943 03055 070113</td><td> SAP</td><td> «+2 IF THE EXPONENT IS NEGATIVE CHANGE</td>

<td> 0944 03056 045730 0945 03057 062343 0946 03060 162015 0947 03061 020013</td><td> ISZ JSM JSM LDA</td><td> ADRTE THE SIGN OF THE MULTIPLE OF LN10 XAT ADD THESE TWO FAD,I PARTIAL RESULTS ADRI TRANSFER THE RESULT</td>

<td> 0953*** CALCULATE X FACTORIAL</td>

<td> 0955 03063 063405 XFACT JSM PRE TAKE THE INTEGER ABSOLUTE VALUE OF X</td>

<td> 0956 03064 075710 SZB OUTS STORE ZERO IF X IS ZERO</td>

<td> «957 03065 021750 LDA ADRXE LOAD THE EXPONENT WORD</td>

<td> 0958 03066 000032 ADA EN2 IF THE EXPONENT IS GREATER THAN</td>

<td> 0959 03067 070112 SAM **2 OR EQUAL TO TWO JUMP TO</td>

<td> 0960 03070 166007 JMP STMAX.I THE STORE MAX ROUTINE</td>

<td> 0962 03071 062373 JSM XTP TRANSFER X INTO P</td>

<td> 0964 03072 020056 FAC3 LDA ONE SUBTRACT FLOATING</td>

<td> 0966 03074 162016 JSM FSB,I P TEMPORARY</td>

<td> 0968 03075 021673 LDA ADRPE+1 LOAD THE FIRST FOUR DIGITS OF P</td>

<td> 0969 03076 070410 SZA PTA + 3 RETURN IF THEY ARE ZERO</td>

<td> 0971 03077 063374 JSM PXX OTHERWISE. TRANSFER P TO X</td>

<td> 0972 03100 067072 JMP FAC3 JUMP BACK TO CONTINUE</td>

0974* 0975*

<td> 8977* 097R* 8979* 0980* 0 98] » * 0982* 0984* 2465</td><td> CORDIC « 83101</td><td> LOOP ««««««« phase: I 331665</td><td> IN</td><td> SIA</td><td> TABL0</td><td> STORE THE</td><td> CONSTANT ADDRESS</td>

<td> 098ft</td><td> 83102</td><td> 035667</td><td></td><td> STB</td><td> SHIFT</td><td> STORE THE</td><td> NO. OF LOOPS TO BE EXECUTED</td>

<td> 09H7* tj988</td><td> 83103</td><td> 06?307</td><td> PTA</td><td> JSM</td><td> ZERO</td><td> DETERMINE</td><td> IE THE NUMBER IS ZERO</td>

<td> 2990</td><td> «3105</td><td> 145666</td><td></td><td> ISZ</td><td> DIGIT.I</td><td> INCREMENT</td><td> THE LAST DIGIT COUNT</td>

<td> 0991 099?* 0993 09^4* 0995</td><td> (¢3106 . 03107 031 10</td><td> 170402 1 70403 045666</td><td></td><td> HET CMY ISZ</td><td> DIGIT</td><td colspan="2"> AND RETURN COMPLEMENT THE ARGUMENT INCREMENT THE POINTER TO THE DIGIT BEING CALCULATER</td>

3,859,635

281 282

MATH BLOCK FOR THE 9810, CALLED ·C0RD3·-Continued

<td> 0996* 0^9 7</td><td> 23111 ।</td><td> 020003</td><td></td><td> LOA 1</td><td> >4</td><td> FETCH THE NEXT CONSTANT</td><td></td>

<td> 0998</td><td> 0.3112 1</td><td> 262353</td><td></td><td colspan="2"> JSM UPTAB</td><td> INTO ARI</td><td></td>

<td> 0499· 1 000</td><td> 0 3113</td><td> 074004</td><td> <</td><td> SHL</td><td> 16</td><td> CLEAR B ANO SUBTRACT THE CONSTANT</td><td></td>

<td> 1»01</td><td> 03114</td><td> 172420</td><td></td><td> FOV</td><td></td><td> FROM THE ARGUMENT UNTIL OVERFLOW</td><td></td>

<td> 1 «02· 1003</td><td> 03115</td><td> 1 35666</td><td></td><td> STB 1</td><td> DIGIT,I</td><td colspan="2"> STORE THE NUMBER OF SUBTRACTS BEFORE OVERFLOW</td>

<td> 1004* 1 005.</td><td> 031 16</td><td> 170400</td><td></td><td> CMY</td><td></td><td> RESTORE THE ARGUMENT TO ITS LAST</td><td></td>

<td> 1 006</td><td> 031 17</td><td> 170560</td><td></td><td> f XA</td><td></td><td> POSITIVE VALUE</td><td></td>

<td rowspan="2"> 1?07· 1 008 10/9*</td><td rowspan="2"> 03120</td><td rowspan="2"> 171400</td><td rowspan="2"></td><td rowspan="2"> MLS</td><td rowspan="2"></td><td> LEFT SHIFT ALLIGN IT FOR THE NEXT LOOP</td><td rowspan="2"></td>

<td rowspan="2"> DECREMENT THE LOOP COUNTER AND</td>

<td> 10 1 0</td><td> J3121</td><td> 055667</td><td></td><td> DSZ</td><td> SHIFT</td><td></td>

<td> 1011</td><td> 03122</td><td> 067103</td><td></td><td> JMP</td><td> PTA</td><td> CONTINUE EXECUTING IF NONZERO</td><td></td>

<td> 1012</td><td> 03123</td><td> 170402</td><td></td><td> HET</td><td></td><td> OTHERWISE RETURN</td><td></td>

<td colspan="2"> 1017···</td><td colspan="2"> PHASE II</td><td></td><td></td><td></td><td></td>

<td> 1018* 1019</td><td> 03124</td><td> 031674</td><td> IN2</td><td> STA</td><td> SAVE</td><td> STORE THE SHIFT FACTOR</td><td></td>

<td> 1020 1021*</td><td> 03125</td><td> 035667</td><td></td><td> STB</td><td> SHIFT</td><td> STORE THE NO. OF LOOPS TO BE EXECUTED</td><td></td>

<td> 10'24</td><td> 03127</td><td> 020011</td><td></td><td> LDA</td><td> ADR0</td><td> ESTABLISH PY1 AS A</td><td></td>

<td> 1025</td><td> 231 30</td><td> 031676</td><td></td><td> STA</td><td> RY1</td><td> TEMPORARY LOCATION POINTER</td><td></td>

<td> 1026</td><td> 03131</td><td> 020004</td><td></td><td> LDA</td><td> ADRX</td><td> ESTABLISH RY2 AS A</td><td></td>

<td> 1027 1028*</td><td> 23132</td><td> 031675</td><td></td><td> STA</td><td> RY2</td><td> TEMPORARY LOCATION POINTER</td><td></td>

<td> 1029</td><td> 03133</td><td> 025672</td><td></td><td> LOB</td><td> FNCFG</td><td> JUMP OVER THE NEXT GROUP</td><td></td>

<td> 10 30</td><td> 03134</td><td> 076650</td><td></td><td> HZB</td><td> PTE</td><td> OF INSTRUCTIONS IF THE</td><td></td>

<td> 1031 1032* 1033»</td><td> 03135</td><td> 06716b</td><td> PTL1</td><td> JMP</td><td> PTL</td><td> ATN IS BEING EXECUTED</td><td></td>

<td> 1034</td><td> 0.3136</td><td> 076610</td><td> ΡΤΘ</td><td> ΡΖΘ</td><td> PTN</td><td> JUMP TO POINT N IF ARCTAN</td><td></td>

<td> 1035 1036*</td><td> 03137</td><td> 067173</td><td></td><td> JMP</td><td> PTC</td><td> OTHERWISE JUMP TO POINT C</td><td></td>

<td> 1037</td><td> 03140</td><td> 055666</td><td> PIO</td><td> DSZ</td><td> DIGIT</td><td> DECREMENT THE DIGIT STACK POINTER</td><td></td>

<td> 1038</td><td> 03141</td><td> 025672</td><td></td><td> LDB</td><td> FNCFG</td><td> LOAD THE FUNCTION FLAG</td><td></td>

<td> 1041</td><td> 03143</td><td> 021755</td><td></td><td> LOA</td><td> AR2E»1</td><td colspan="2"> LOAD THE FIRST FOUR DIGITS OF THE ARGUMENT</td>

<td> 104 2</td><td> 0 3144</td><td> 070542</td><td></td><td> SAR</td><td> 12</td><td> IF THE FIRST DIGIT IS NOT ZERO</td><td></td>

<td> 104 3</td><td> 03145</td><td> 070150</td><td></td><td> SZA</td><td> •♦3</td><td> THEN DO A RIGHT SHIFT</td><td></td>

<td> 1045</td><td> 03147</td><td> 067152</td><td></td><td> JMP</td><td> PTN</td><td> TO CONTINUE</td><td></td>

<td> 1046</td><td> 03150</td><td> 171400</td><td></td><td> MLS</td><td></td><td> OTHERWISE DO A LEFT SHIFT ON AR2</td><td></td>

<td> lfc47 104.A*</td><td> 03151</td><td> 062370</td><td> ρτε</td><td> JSM</td><td> TTR1</td><td> AND UPDATE RY1 WITH THIS VALUE</td><td></td>

<td> 1 049</td><td> 03152</td><td> 174400</td><td> PTN</td><td> CMX</td><td></td><td> COMPLEMENT ARI (X) AND</td><td></td>

<td> 1051</td><td> 03154</td><td> 070214</td><td></td><td> SES</td><td> »»6</td><td> SKI» IF AN OVERFLOW OCCURRED</td><td></td>

<td> 1052</td><td> 03155</td><td> 062376</td><td></td><td> jSm</td><td> R1TT</td><td> OTHERWISE THIS DIGIT IS FINISHED SO</td><td></td>

<td> 1053</td><td> 03156</td><td> 174400</td><td></td><td> CMX</td><td></td><td> RESTOR E AR2 WITH RY1 AND RECOMPLEMENT</td><td> ARI</td>

<td> 1054</td><td> 03157</td><td> 067231</td><td> PTF1</td><td> JMP</td><td> PTF</td><td> JUMP TO POINT F</td><td></td>

<td> 1055» 1056 1057*</td><td> C3160</td><td> 174400</td><td></td><td> CMX</td><td></td><td> THIS DIGIT IS NOT FINISHED, RECOMPLEMENT</td><td> ARI</td>

<td> 105R</td><td> 03161</td><td> 062307</td><td></td><td> JSM</td><td> ZERO</td><td> DETERMINE IF THE RESULT IS ZERO</td><td></td>

<td> 1059</td><td> 03162</td><td> 070534</td><td></td><td> SES</td><td> PTM,C</td><td> SKIP TO POINT M IF IT IS NOT</td><td></td>

<td> 1060</td><td> 03163</td><td> 155666</td><td></td><td> DSZ</td><td> DIGIT,</td><td colspan="2"> I IF IT IS,DECREMENT THE LAST CALCULATED DIGIT</td>

<td> 1061</td><td> 03164</td><td> 020012</td><td> AW«S</td><td> LDA</td><td> AwRON</td><td> TERMINATE THE DIGIT</td><td></td>

<td> 1062</td><td> 03165</td><td> 067776</td><td></td><td> JMP</td><td> KK</td><td> STACK POINTER</td><td></td>

<td> 1063</td><td> 03166</td><td> 024063</td><td> PTC</td><td> LDB</td><td> Pl</td><td> RIGHT SHIFT AR2 I DIGIT</td><td></td>

<td> 1064· 1065 1066·</td><td> 03167</td><td> 162011</td><td></td><td> JSM</td><td> ROUND,</td><td> I AND ROUND UP THE LAST DIGIT</td><td></td>

<td> 1067 1068·</td><td> 03170</td><td> > 062370</td><td></td><td> JSM</td><td> TTR1</td><td> TRANSFER THIS NEW AR2 INTO RY1</td><td></td>

<td> 1069</td><td> 03171</td><td> 121666</td><td></td><td> LDA</td><td> DIGIT,</td><td> I IF THE PRESENT DIGIT</td><td></td>

<td> 1074</td><td colspan="3"> 03174 021676</td><td> PTM</td><td> LOA</td><td> RY1 INTERCHANGE RY1</td><td></td>

<td> 1079</td><td colspan="3"> 03200 062370</td><td></td><td> JSM</td><td> TTR1 STORE RY1 IN RY2</td><td></td>

<td> 1081</td><td colspan="3"> 03201 021675</td><td></td><td> LDA</td><td> RY2 FETCH THE LAST</td><td></td>

3,859,635

284

283

MATH BLOCK FOR THE 981», CALLED 'C0RD3'-Continued

<td> 1083* 1084</td><td> 03203 021672</td><td> LDA FNCFG</td><td> LOAD THE FUNCTION FLAG</td>

<td> 1085» 1086</td><td> 03204 025667</td><td> LDB SHIFT</td><td> TAKE THE LOOP COUNTER</td>

<td> 1087</td><td> 03205 004031</td><td> ADB N1</td><td> SUBTRACT ONE FORM IT</td>

<td> 1088</td><td> 03206 074744</td><td> SBL 1</td><td> AND MULTIPLY IF BY 2</td>

<td> 1089* 1090</td><td> 03207 070150</td><td> SZA **3</td><td> IF THE TANGENT IS BEING CALCULATED</td>

<td> 1091* 1092 1093</td><td> 03210 074076 03211 067213</td><td> TCB JMP * + 2</td><td> ADD SAVE,THE SHIFT FACTOR TO IT TWICE</td>

<td> 1094* 1095</td><td> 03212 005674</td><td> ADB SAVE</td><td> OTHERWISE COMPLEMENT IT</td>

<td> 1097* 1098</td><td> 03214 074117</td><td> LDA B</td><td> IF THIS QUANTITY IS</td>

<td> 1099</td><td> 03215 002171</td><td> ADA N12</td><td> GREATER THAN 12 SKIP</td>

<td> 1100</td><td> 03216 070353</td><td> SAP PTK</td><td> TO POINT K</td>

<td> 1101* 1102</td><td> 03217 162011</td><td> JSM ROUND, I</td><td> OTHERWISE SHIFT RIGHT AR2 THIS MANY TIMES</td>

<td> 1103* 1104</td><td> 03220 025672</td><td> LDB FNCFG</td><td> IF THE TANGENT IS BEING</td>

<td> 1105</td><td> 03221 076110</td><td> RZB **2</td><td> CALCULATED SUBTRACT ARI FROM</td>

<td> 1106 1107 1108* 1109</td><td> 03222 170400 03223 170560 03224 062407</td><td> CMY FXA JSM TTO</td><td> AR2 » OTHERWISE ADD THE TWO TOGETHER INTO AR2 DUPLICATE AR2 INARI</td>

<td> 1110* mi</td><td> 03225 062376 PTK</td><td> JSM R1TT</td><td> TRANSFER RY1 INTO ARP (NEW Y)</td>

<td> 1112* 1113</td><td> 03226 025672</td><td> LDB FNCFG</td><td> DECREMENT THE DIGIT STACK</td>

<td> 1114</td><td> 03227 155666</td><td> OSZ DIGIT,I</td><td> DIGIT AND JUMP</td>

<td> 1115</td><td> 03230 067136</td><td> JMP PTB</td><td> TO POINT B IF NOT ZERO» CONTINUE IF IT IS</td>

<td> 1116* 1117</td><td> 03231 055667 PTF</td><td> DSZ SHIFT</td><td> DECREMENT THE MAIN LOOP COUNTER</td>

<td> 1118</td><td> 03232 067140</td><td> JMP PTD</td><td> JUMP TO POINT D IF IT IS NONZERO</td>

<td> 1119</td><td> 03233 170402</td><td> RET</td><td> OTHERWISE RETURN</td>

121*

122**·**»·***»***·*»*»»*·*»»***·**«»*

123*

124*·· PHASE III

125*

<td rowspan="2"> 126 127 128*</td><td colspan="2"> 03234 020012</td><td rowspan="2"> PTJ</td><td rowspan="2"> LDA AWRDN STA DIGIT</td><td rowspan="2"> INITIALIZE THE DIGIT STACK POINTER</td>

<td> 129</td><td> 03236</td><td> 020106</td><td></td><td> LDA P12</td><td> INITIALIZE THE LOOP</td>

<td> 130</td><td> 03237</td><td> 031667</td><td></td><td> STA SHIFT</td><td> COUNT TO 12</td>

<td> 131</td><td> 03240</td><td> 025672</td><td></td><td> LDB FNCFG</td><td> LOAD THE FUNCTION FLAG</td>

<td> 132</td><td> 03241</td><td> 074312</td><td></td><td> SBM PTS</td><td> SKIP IF LN IS BEING CALCULATED</td>

<td> 135</td><td> 03243</td><td> 025672</td><td> PTR</td><td> LDB FNCFG</td><td> LOAD THE FUNCTION FLAG</td>

<td> 136</td><td> 03244</td><td> 074253</td><td></td><td> S0P PTI</td><td> SKIP IF IT IS POSITIVE (EXP)</td>

<td> 137</td><td> 03245</td><td> 174400</td><td></td><td> CMX</td><td> OTHERWISE SUBTRACT</td>

<td> 139</td><td> «3247</td><td> 062407</td><td> PTS</td><td> JSM TTO</td><td> DUPLICATE THE RESULT IN ARI</td>

<td> 140</td><td> 03250</td><td> 067253</td><td></td><td> JMP PTH-2</td><td> PREPARE FOR THE NEXT SUBTRACTION</td>

<td> 142</td><td> 03251</td><td> 121666</td><td> PTI</td><td> LDA DIGIT,I</td><td> LOAD THE PRESENT DIGIT FROM THE</td>

<td> 143</td><td> 03252</td><td> 070750</td><td></td><td> SZA GOON-1</td><td> STACK AND SKIP IF IT IS ZERO</td>

<td> 145</td><td> 03253</td><td> 020104</td><td></td><td> LDA P10</td><td> INTIALIZE THE INNER</td>

<td> 146</td><td> 03254</td><td> 031665</td><td></td><td> STA TABL0</td><td> LOOP COUNT TO 10</td>

<td> 147</td><td> 03255</td><td> 025667</td><td> PTH</td><td> LDB SHIFT</td><td> CALCULATE THE SHIFT FACTOR</td>

<td> 148</td><td> 03256</td><td> 074076</td><td></td><td> TCB</td><td> FOR ARI OF 12-SHIFT AND</td>

<td> 150</td><td> rt -3 n c. n</td><td> 370742</td><td></td><td> SAR 16</td><td> CLEAR THE A REGISTER AND</td>

<td> is i</td><td> 03261</td><td> 174430</td><td></td><td> MRX</td><td> RIGHT SHIFT ARI B TIMES</td>

<td> 153</td><td> 03262</td><td> 025672</td><td></td><td> LDB FNCFG</td><td> IF THE EXP IS BEING CALCULATED</td>

<td> 154</td><td> 03263</td><td> 014063</td><td></td><td> CPB Pl</td><td> ANO THE LAST SHIFTED DIGIT IS</td>

3,859,635

285 286

MATH BLOCK FOR THE 98 10, CALLED · CORD3 ·— Continued

<td> 1155</td><td> 03264 000023</td><td> ADA N5</td><td> >=5, THEN INCREMENT THE NEXT SUM</td>

<td> 1159</td><td> 03266 070354</td><td> SES PTG</td><td> EXIT FROM THE INNER LOOP ON OVERFLOW</td>

<td> 1160</td><td> 03267 055665</td><td> DSZ TABL0</td><td> DECREMENT THE INNER LOOP COUNTER</td>

<td> 1161</td><td> 03270 067272</td><td> JMP GOON</td><td> CONTINUE IF IT IS NON ZERO</td>

<td> 1162</td><td> 03271 067275</td><td> JMP PTG</td><td> OTHERWISE JUMP TO POINT G</td>

<td> 1164</td><td> 03272 062407 GOON</td><td> JSM TTO</td><td> DUPLICATE AR2 IN ARI</td>

<td> 1165</td><td> 03273 155666</td><td> DSZ DIGIT,I</td><td> DECREMENT THE PRESENT STACK DIGIT AND</td>

<td> 1166</td><td> 03274 067255</td><td> JMP PTH</td><td> JUMP TO POINT H IF NON-ZERO</td>

<td> 1168</td><td> 03275 045666 PTG</td><td> ISZ DIGIT</td><td> INCREMENT THE DIGIT STACK POINTER</td>

<td> 1169</td><td> 03276 055667</td><td> DSZ SHIFT</td><td> DECREMENT THE MAIN LOOP COUNTER</td>

<td> 1170</td><td> 03277 067243</td><td> JMP PTR</td><td> JUMP BACK TO CONTINUE</td>

<td> 1171</td><td> 03300 170402</td><td> RET</td><td> OTHERWISE RETURN</td>

<td> 1173« 11 74*< 1175· 1 176*< 1177* 117Θ 1179 1130 1131* 118? 1 183 1 1 84* 1185 1 1 36 1 187 1188 1 189 1 190 Il 91 119?· 1193·. 1 194 1195 1 196 1 197 1198 1 1 99 12 30* 1/01 120? 1203 1/04 1/05 1/06 1/07 1 2'08* 1209 1/10 1211 1212 1/13* 1/14 1/15 1216 1217* 121ft 1/19 1220 1221 1222* 1/23 1224 1225 1226 1227 122Θ</td><td> 03301 03302 03303 03304 033M5 0 3306 03307 033)0 03311 03312 03313 03314 03315 0 3316 03317 0.3320 03321 03322 03323 03324 03325 03326 03327 03330 03331 03332 03333 03334 03335 03336 03337 03340 03341 03342 0 334 3 03344 03345 03346 «3347 «3350 «3351 «3352</td><td> »·««»·«<«««»« PHASE IV 035665 IN3 031664 0.31667 020016 170000 121666 PIP ' 070076 024063 1 74470 063345 055667 067306 070742 025664 074076 004106 035667 174470 020054 PTQ 062353 070742 025667 074650 004031 174430 000023 070175 020015 170540 125666 074076 171460 063345 055667 067323 170402 NAW 025672 IOD 074151 055666 170402 045666 170402 RET2</td><td> STB STA STA LDA CLR LDA TCA LDB MRY JSM DSZ JMP SAR LDB TCB ADB STB ’ MkY LDA JSM SAR LDB SZB ADR MRX ADA SEC LOA MDI LOB TCB FMP JSM DSZ JMP RET LDB SLB DSZ RET ISZ RET</td><td colspan="2"> TABLA STORE THE TABLE CONSTANT ADDRESS TEMP STORE THE· LOOP COUNTER TO SHIFT BE USED IN T.1E FIRST LOOP AR2 CLEAR OUT THE AR2 TEMPORARY RESISTER DIGIT,I LOAD THE PRESENT DIGIT FROM THE STACK, COMPLEMENT IT AND SHIFT Pl IT INTO THE MOST SIGNIFICANT LOCATION OF AR2 IOD POINT THE DIGIT STACK POINTER TO THE NEXT WORD SHIFT DECREMENT THE DIGIT STACK POINTER PTP IF IT IS NON-ZERO JUMP BACK TO GET THE NEXT DIGIT 16 CALCULATE 12 MINUS THE NUMBER OF TEMP DIGITS SHIFTED INTO AR2 ABOVE AND LET THIS BE THE LOOP COUNT P12 FOR THE NEXT SECTION SHIFT THEN SHIFT INTO AR2 THIS SAME NUMBER OF ZEROS N4 SUBTRACT 4 FROM THE PRESENT CONSTANT AOORESS UPTAB AND LOAD THIS CONSTANT INTO ARI 16 RIGHT SHIFT THIS CONSTANT THE NUMBER SHIFT OF COUNTS SPECIFIED RY THE LOOP COUNTER NAW MINUS ONE EXCEPT WHEN THIS NO. NI IS NEGATIVE IN WHICH CASE JUST EXIT FROM THE LOOP AND RETURN N5 IF THE LAST SHIFTED DIGIT •♦3.C IS =>5 THEN INCREMENT THE ARI CONSTANT LOCATED IN ARI BY ONE DIGIT,I LOAD ANO COMPLEMENT THE PRESENT DIGIT IN THE DIGIT STACK ADD ARI TO AR2 THIS MANY TIMES IOD POINT THE DIGIT STACK POINTER TO THE NEXT WORO SHIFT DECREMENT THE LOOP COUNTER ANO PTQ JUMP TO POINT Q IF IT IS NONZERO RETRUN IF IT IS ZERO FNCFG LOAD THE FUNCTION FLAG *+3 IF THE LN IS BEING CALCULATED DIGIT DECREMENT THE DIGIT STACK POINTER ANO RETURN DIGIT OTHERWISE INCREMENT THE DIGIT STACK POINTER AND RETURN</td>

<td> 1230* 1231·· 123?» 1233*« 1234* 1235 1236* 1/37 12-38* 1239*·</td><td colspan="4"> • CONTROL OF THE ARCTANGENT 23353 062633 ATN JSM ATNS 23354 020031 EATN LOA NI</td><td> *« ROUTINE CALCULATE THE ARCTAN OF X SET THE ATN FLAG FOR THE MODE CONVERSION « «</td>

3,859,635

287

288

MATH BLOCK FOR THE 9010, CALLED 'C0RD3·-Continued

<td> 1241·4</td><td> 1«</td><td> CONVFRI</td><td> X TO</td><td colspan="2"> A DIFFERENT</td><td> UNITS</td><td></td>

<td> 1242· 1243</td><td> 03355</td><td> 031665</td><td> MODE</td><td> STA</td><td> TABL0</td><td> STORE THE FUNCTION FLAG</td><td></td>

<td> 1244</td><td> 03356</td><td> 025776</td><td></td><td> LDB</td><td> UNITS</td><td> LOAD THE STATUS WORD</td><td></td>

<td> 1245</td><td> 03357</td><td> 074502</td><td></td><td> SBR</td><td> 1 1</td><td> SKIP IF THE GRACS BIT</td><td></td>

<td> 1247</td><td> 03361</td><td> 070752</td><td></td><td> SAM</td><td> RTOG</td><td colspan="2"> CONVERT X TO GRiDS IF THE ATN CALKED THE ROUTINE</td>

<td> 124R</td><td> 03362</td><td> 067402</td><td></td><td> JMP</td><td> GTOR</td><td> OTHERWISE CONVERT X TO RADIANS FROM</td><td> GRADS</td>

<td> 1249</td><td> »3363</td><td> 074204</td><td></td><td> SBL</td><td> 12</td><td> IF THE RADIANS FIT IS SET</td><td></td>

<td> 125»</td><td> »3364</td><td> 075312</td><td></td><td> SBM</td><td> RET2</td><td> EXECUTE A RETURN</td><td></td>

<td> 1251</td><td> »3365</td><td> 024063</td><td></td><td> LDB</td><td> Pl</td><td> OTHERWISE SET THE DEGREE BIT AND</td><td></td>

<td> 1252</td><td> 03366</td><td> 063677</td><td></td><td> JSM</td><td> DEG</td><td> TURN ON THAT LIGHT</td><td></td>

<td> 1253</td><td> 03367</td><td> 045665</td><td></td><td> ISZ</td><td> TABL0</td><td> CONVERT X TO DEGREES IF ATN CALLED</td><td> THE ROUTINE</td>

<td> 1254 1255»</td><td> »3370</td><td> 067376</td><td></td><td> JMP</td><td> DTOR</td><td> OTHERWISE CONVERT X TO RADIANS FROM</td><td> DEGREES</td>

<td> 1256</td><td> 03371</td><td> 022147</td><td> RTOD</td><td> LOA</td><td> DPERR</td><td> TRANSFER THE CONVERSION (DEGREES)</td><td></td>

<td> 1257</td><td> 03372</td><td> 062374</td><td></td><td> JSM</td><td> XTP*1</td><td> CONSTANT INTO A TEMPORARY P</td><td></td>

<td> 1258</td><td> 03373</td><td> 045675</td><td></td><td> ISZ</td><td> ADRPE+3</td><td> INCREMENT THE LAST DIGIT OF IT</td><td></td>

<td> 1259</td><td> 03374</td><td> 022211</td><td> PXX</td><td> LOA</td><td> ADRP</td><td> MULTIPLY THE X REGISTER</td><td></td>

<td> 126» 1261*</td><td> 2 3375</td><td> 067473</td><td></td><td> JMP</td><td> XAM</td><td> BY IT AND RETURN</td><td></td>

<td> 126?</td><td> 03376</td><td> 022147</td><td> DTOR</td><td> LOA</td><td> DPERR</td><td> CONVERT THE CONTENTS OF</td><td></td>

<td> 1263</td><td> 03377</td><td> 067403</td><td></td><td> JMP</td><td> GTOR+1</td><td> X TO RADIANS FROM DEGREES</td><td></td>

<td> U54· 1265</td><td> 03400</td><td> 022152</td><td> RTOG</td><td> LOA</td><td> GPERR</td><td> CONVERT THE CONTENTS OF</td><td></td>

<td> 1266 1267·</td><td> 03401</td><td> 067372</td><td></td><td> JMP</td><td> RTOD*1</td><td> X TO GRADS</td><td></td>

<td> 1268</td><td> 03402</td><td> 022152</td><td> GTOR</td><td> LDA</td><td> GPERR</td><td> CONVERT THE CONTENTS OF</td><td></td>

<td> 1269</td><td> 03403</td><td> 024004</td><td></td><td> LDB</td><td> ADRX</td><td> X TO RADIANS FROM</td><td></td>

<td> 1270</td><td> 03404</td><td> 067450</td><td></td><td> JMP</td><td> FOV</td><td> GRADS</td><td></td>

1272*

1273»**··»***»»»*******»»*****»»*»«»***

1274*

1275*** CALCULATE THE INTEGER ABSOLUTE VALUE OF X 1276*

<td> 1277</td><td> 03405</td><td> 160264</td><td> PRE</td><td> JSM</td><td> ΙΝΤΧ,Ι</td><td> TAKE THE INTEGER VALUE OF X</td>

<td> 1278</td><td> 03406</td><td> 020004</td><td> ABSX</td><td> LDA</td><td> ADRX</td><td> SAVE THE ADDRESS OF THE QUANTITY</td>

<td> 1279 1280*</td><td> 03407</td><td> 031720</td><td></td><td> STA</td><td> ADR2</td><td> BEING USED</td>

<td> 1281</td><td> 03410</td><td> 070537</td><td></td><td> LDB</td><td> A,I</td><td> LOAD THE EXPONENT WORD</td>

<td> 1282</td><td> 03411</td><td> 074071</td><td></td><td> SLB</td><td> •♦1,C</td><td> CLEAR THE MANTISSA SIGN BIT</td>

<td> 1283 1284*</td><td> 03412</td><td> 070577</td><td></td><td> STB</td><td> A,I</td><td> RESTORE IT</td>

<td> 1285</td><td> 0 3413</td><td> 025751</td><td></td><td> LDB</td><td> ADRXE*!</td><td> LOAD THE FIRST FOUR DIGITS OF X</td>

<td> 1286 1287 1288*</td><td> 03414 03415</td><td> 020056 170402</td><td></td><td> LDA RET</td><td> ONE</td><td> LOAD THE ADDRESS OF FLOATING ONE RETURN</td>

<td> 1291*’ 1292*</td><td> »«</td><td> RAISE</td><td> TEN TO</td><td> THE</td><td> POWER IN</td><td> X</td>

<td> 1293</td><td> 03416</td><td> 022207</td><td> TENX</td><td> LOA</td><td> LN10</td><td> MULTIPLY X BY LN(10> AND RAISE</td>

<td> 1294</td><td> 03417</td><td> 066721</td><td></td><td> JMP</td><td> REXP+2</td><td> E TO THIS POWER</td>

1295*

1296***********************************

1297»

1298*** TAKE THE ABSOLUTE VALUE OF Y

1299*

1300 03420 020005 ABS LDA ADRY LOAD THE ADDRESS OF THE Y REGISTER

1301 »3421 06741B JMP ABSX*2 TAKE THE ABSOLUTE VALUE OF Y

1303*

1304·*********»****·»*»***·**»»**««***»

1305»

1306·** SCALE THE X AND Y REGISTERS

<td> 1308</td><td> 03422</td><td> 022177</td><td> SCALE LOA</td><td> XMIN</td><td> LOAD THE</td><td> ADDRESS OF XMIN</td>

<td> 1309</td><td> 0 3423</td><td> 024004</td><td> LDB</td><td> ADRX</td><td> LOAD THE</td><td> ADDRESS OF X</td>

<td> 1310 1311*</td><td> 03424</td><td> 063431</td><td> JSM</td><td> SCL1</td><td> REPLACE</td><td> X WITH 9999(X-XMIN)/(ΧΜΑΧ-ΧΜΙΝ)</td>

<td> 1312</td><td> 03425</td><td> 022200</td><td> LOA</td><td> YMIN</td><td> LOAD THE</td><td> ADDRESS OF YMIN</td>

<td> 1313</td><td> 03426</td><td> 024005</td><td> LDB</td><td> ADRY</td><td> LOAD THE</td><td> ADDRESS OF Y</td>

<td> 1314</td><td> 03427</td><td> 063431</td><td> JSM</td><td> SCL1</td><td> REPLACE</td><td> Y WITH 9999(Y-YMIN)/(YMAX-YMIN)</td>

<td> 1315 1316* 1317*</td><td> 03430</td><td> 164242</td><td> JMP</td><td> FMT,I</td><td> JUMP TO</td><td> THE FORMAT ROUTINE</td>

3,859,635

289 290

MATH BLOCK FOR THE 9810, CALLED ’ CORD3 · —Continued

<td> 1318</td><td> 03431 031664</td><td> SCL1</td><td> STA TEMP</td><td> STORE THE ADDRESS OF THE MINMUM VARIABLE</td>

<td> 1319 1320*</td><td> 03432 035667</td><td></td><td> STB SHIFT</td><td> AND THE INDEPENDENT VARIABLE</td>

<td> 1321 1322*</td><td> 03433 162016</td><td></td><td> JSM FSB,I</td><td> SUBTRACT THE MIN FROM THE VARIABLE</td>

<td> 1323</td><td> 03434 021664</td><td></td><td> LDA TEMP</td><td> CALCULATE THE ADDRESS OF THE MAX VALUE</td>

<td> 1324</td><td> 03435 000054</td><td></td><td> ADA N4</td><td> AND TRANSFER THE MAX VALUE</td>

<td> 1325 1326 1327*</td><td> 03436 026211 03437 170004</td><td></td><td> LDB ADRP XFR</td><td> INTO A TEMPORARY STORAGE REGISTER P</td>

<td> 1328</td><td> 03440 021664</td><td></td><td> LDA TEMP</td><td> SUBTRACT THE MIN FACTOR</td>

<td> 1329</td><td> 03441 026211</td><td></td><td> LDB ADRP</td><td> FROM THE MAX FACTOR</td>

<td> 1332</td><td> »3443 022156</td><td></td><td> LOA fns</td><td> DIVIDE THIS QUANTITY</td>

<td> 1333</td><td> 03444 026211</td><td></td><td> LOB ADRP</td><td> BY THE MAXIMUM VALUE</td>

<td> 1334 1335*</td><td> 03445 162013</td><td></td><td> JSM FD,I</td><td> PLOT variable</td>

<td> 1336</td><td> 03446 022211</td><td></td><td> LDA ADRP</td><td> LOAD THE ADDRESS OF THE RESULT</td>

<td> 1337</td><td> 03447 025667</td><td></td><td> LDB SHIFT</td><td> LOAD THE ADDRESS OF SHIFTED VARIABLE</td>

<td> 1338</td><td> 03450 031724</td><td> FDV</td><td> STA ADRI</td><td> STORE THE ADDRESS OF THE DIVIDEND</td>

<td> 1339</td><td> 03451 166013</td><td></td><td> JMP FD,I</td><td> DIVIDE <A) BY (B></td>

1341*

1342*»*********************************

1343*

<td> 1344*·*</td><td> CONVERT</td><td> DEGREES,</td><td colspan="2"> MINUTES, AND SECONDS TO DECIMAL DEGREES</td>

<td> 1345* 1346 03452</td><td> 022153</td><td> DMSTD LDA</td><td> CONV</td><td> DIVIDE THE SECONDS QUANTITY</td>

<td> 1347 «3453 1348*</td><td> 063403</td><td> JSM</td><td> GTOR+1</td><td> BY 60 AND REPLACE IT</td>

<td> 1351 03455</td><td> 022153</td><td> LDA</td><td> CONV</td><td> DIVIDE THIS SUM IN REGISTER</td>

<td> 1352 03456 1353*</td><td> 063403</td><td> JSM</td><td> GTOR*1</td><td> Y BY SIXTY ANO PUT IT IN X</td>

<td> 1354 03457</td><td> 020006</td><td> LDA</td><td> ADRZ</td><td> ADD THE DEGREES QUANTITY TO</td>

<td> 1355 ¢3460</td><td> 063712</td><td> JSM</td><td> XAA</td><td> THIS QUANTITY IN X</td>

<td> 1356* 1357 03461</td><td> 020006</td><td> LDA</td><td> ADRZ</td><td> CLEAR OUT REGISTERS</td>

<td> 1358 03462</td><td> 170000</td><td> CLR</td><td></td><td> Z AND Y AND RETURN</td>

<td> 1359 03463</td><td> 020005</td><td> LDA</td><td> ADRY</td><td> LOAD THE ADDRESS OF Y</td>

<td> 1360 03464</td><td> 066005</td><td> JMP</td><td> RESET*!</td><td> RETURN</td>

1361*

1362****·*****»*********»****»»»*»«»·«»

1363*

1364**· CONVERT DECIMAL DEGREES TO DEGREES, MINUTES , AND SECONDS 1365*

<td> 1366</td><td> 03465 063466 DTDMS JSM DSUB</td><td> EXECUTE THE SUBROUTINE</td><td> TWICE AND RETURN</td>

<td> 1369</td><td> 03467 160264 JSM ΙΝΤΧ,Ι</td><td> TAKE THE INTEGER VALUE</td><td> OF X</td>

<td> 137«</td><td> 03470 160234 JSM ΥΜΧ,ΐ</td><td> SUBTRACT a FROM Y</td><td></td>

<td> 1371</td><td> 03471 160230 JSM ΧΕΥ,Ι</td><td> EXCHANGE X AND Y</td><td></td>

<td> 1372</td><td> 03472 022153 LOA CONV</td><td> MULTIPLY X BY</td><td></td>

<td> 1373</td><td> 03473 024004 XAM LDB AORX</td><td> FLOATING 60</td><td></td>

<td> 1374</td><td> 03474 166014 JMP FMP,I</td><td> AND RETURN</td><td></td>

1376*

377 •«•»•«»«»«»»•«••#«««»««»»»««<1 ««·»·«

1378*

1379*»* RECALL A AND B INTO X AND Y

1380*

1381 «3475 020010 RCL LDA ADRB TRANSFER THE

1382 03476 024005 LOB ADRY B REGISTER INTO

1383 03477 170004 XFR THE Y REGISTER

1384*

1385 03500 020007 LOA AORA TRANSFER THE A REGISTER

1386 03501 067612 JMP TTX*1 INTO THE X REGISTER

1387*

1388***********************************

1389* 1390*** SUBTRACT X AND Y FROM A ANO B

3,859,635

291

292

MATH BLOCK FOR THE 9810, CALLED ’C0RD3 · —Continued

<td colspan="2"> 1391* 1392 03502 020004 ACM LDA ADRX SUBTRACT THE X REGISTER 1393 03503 024007 LDB ADRA FROM THE QUANTITY 1394 03504 162016 JSM FSB,I IN THE A REGISTER 1395* 1396 03505 020005 LDA ADRY SUBTRACT THE Y REGISTER 1397 03506 024010 LDB ADRB FROM THE QUANTITY 1398 03507 166016 JMP FSB,I IN THE B REGISTER 1399* 1400**·**»·»»«***« »*·«««»««««·»« »««««»«« 1401* 1402**« ADD X AND Y TO A AND B 1403* 1404 03510 020005 ACP LDA ADRY ADO THE Y REGISTER 14B5 S3511 B24010 LDB ADRB TO THE QUANTITY IN 1406 03512 162015 JSM FAD,I THE B REGISTER 1407* 1408 03513 020004 LOA ADRX ADD THE X REGISTER 1409 03514 024007 LDB ADRA TO THE QUANTITY IN 1410 03515 166015 JMP FAD,I THE A REGISTER</td>

<td> 1412* 1413*«·«*««*«««»«»« 1414* 1415**“ CONVERT 1416* 1417 03516 062401 1418* 1419 03517 025740 1420 03520 074044 1421 03521 021750 1422 03522 050063 1423 03523 074017 1424 03524 031670 1425* 1426 03525 021751 1427 03526 072250 1428* 1429 03527 063420 1430 03530 022146 1431 03531 063612 1432 03532 067554 1433* 1434 03533 020004 1435 03534 026211 1436 03535 063450 1437* 1438 03536 160212 1439 03537 160230 1440 03540 160212 1442 03541 063711 1443* 1444 03542 160276 1445 03543 160230 1446* 1447 03544 062405 1448* 1449 03545 062633 1450* 1451 03546 063406 1452 03547 021670 1453 03550 070211 1454* 1455 03551 045750 1456 03552 020064 1457 03553 063712 1458* 1459 03554 021670 1460 03555 070113 1461 03556 160232 1462* 1463 03557 063354 1464 03560 164230</td><td> »«»«•»««««««»«4««««« RECTILLINEAR COORDINATES TO POLAR COORDINATES TP JSM YTP SAVE Y IN REGISTER P LOB ADRYE LOAD THE EXPONENT WORD OF Y SBL 15 LOCATE THE MANITSSA SIGN IN THE MSB OF LOA AORXE LOAD THE EXPONENT WORD OF X AND Pl ISOLATE THE MANTISSA SIGN ADA 8 COMBINE THIS WITH B AND STA COUNT STORE THESE MANTISSA SIGNS IN COUNT LDA ADRXE*1 SKIP IF THE X REGISTER RZA **5 IS NOT ZERO JSM ABS MAKE Y POSITIVE LOA PI/2 SUBTRACT PI/2 JSM TTX+1 FROM X ANO JUMP TO JMP NOMO FINALIZE IT LDA ADRX DIVIDE THE P REGISTER <Y> LDB ADRP BY X AND PUT THE JSM FDV ANSWER IN P JSM XSQ.I CALCULATE X SQUARED JSM ΧΕΥ,Ι EXCHANGE IT WITH Y JSM XSQ.I CALCULATE Y SQUARED JSM XAA-1 ADD Y TO X JSM FSR,I TAKE THE SQUARE ROOT OF IT JSM ΧΕΥ,Ι STORE THE NASWER IN Y JSM PTX RECALL THE QUOTIENT Y/X INTO X JSM ATNS CALCULATE THE ARCTAN IN RADIANS OF IT JSM ABSX FORCE THERESULT OF IT IN X POSITIVE LDA COUNT LOAD THE ORIGINAL MANTISSA SIGNS SLA NOMO SKIP IF THE SIGN OF X WAS POSITIVE ISZ ADRXE OTHERWISE SUBTRACT THE LDA PI X REGISTER FROM PI AND JSM XAA LEAVE THE ANSWER IN X NOMO LDA COUNT LOAD THE ORIGINAL MANTISSA SIGNS SAP *+2 IF THE ORIGINAL MANTISSA SIGNS JSM FSN.I WAS NEGATIVE CHANGE THE SIGN OF X JSM EATN CONVERT X TO THE PROPER UNITS JMP ΧΕΥ,Ι EXCHANGE REGISTERS X AND Y AND RETURN</td>

3,859,635

294 math BLOCK FOR THE 9810. CALLED ·CORD3·-Continued

293

1466·

1467·*****·**»·*»“**·**·****·»··«··»··»

1468»

J469·** CONVERT POLAR COORDINATES TO RECTILLINEAR COORDINATES 1470*

<td> 1471</td><td> «3561 160230</td><td> TR</td><td> JSM ΧΈΥ.Ι</td><td> EXCHANGE X AND Y</td>

<td> 1472 1473*</td><td> 03562 062411</td><td></td><td> JSM SIN</td><td> CALCULATE THE SINE OF X</td>

<td> 1474</td><td> 03563 160230</td><td></td><td> JSM ΧΕΥ,Ι</td><td> EXCHANGE X AND Y</td>

<td> 1475 1476*</td><td> 03564 160236</td><td></td><td> JSM MULT,I</td><td> CALCULATE XSIN Y IN Y</td>

<td> 1477</td><td> 03565 025674</td><td></td><td> LDB SAVE</td><td> SKIP IF THE COSINE IS NOT ZERO</td>

<td> 1480</td><td> 03567 021671</td><td></td><td> LDA RCPFG</td><td> LOAD THE RECIPROCAL FLAG FROM</td>

<td> 1481</td><td> 03570 010772</td><td></td><td> CPA P2</td><td> THE SINE CALCULATION AND SKIP</td>

<td> 1484</td><td> 03572 025741</td><td></td><td> LDB AORYE»1</td><td> SKIP IF THE Y REGISTER</td>

<td> 1487</td><td> 03574 001677</td><td></td><td> ADA GFG</td><td> ADD THE G FLAG TO THE RECIP FLAG</td>

<td> 1488</td><td> 03575 010063</td><td></td><td> CPA Pl</td><td> CHANGE THE SIGN OF X IF</td>

<td> 1489</td><td> 03576 160232</td><td> TCS</td><td> JSM FSN.I</td><td> THIS RESULT IS 1</td>

<td> 1490</td><td> 03577 022204</td><td> NZ</td><td> LDA FINAL</td><td> LOAD THE ADDRESS OF SORI1-TANY»2)</td>

<td> 1491</td><td> 03600 067403</td><td></td><td> JMP GTOR+1</td><td> AND DIVIDE X BY THIS AND RETURN</td>

1493·

1494»·····.···········«#··.··«··««·····

1495»

<td colspan="2"> 1496*·· 1497·</td><td> Wound</td><td colspan="3"> Y TO THE EXPONENT</td><td colspan="2"> IN X</td>

<td> 199ft</td><td> 03601</td><td> 169237</td><td> CLX1</td><td> JMP</td><td> CLXiT</td><td> STORE ZERO IN X AND RETURN</td><td></td>

<td> 154«</td><td> 03602</td><td> 160269</td><td> RNDY</td><td> JSM</td><td> INTXH</td><td> CALCULATE X=INTX</td><td></td>

<td> 1502</td><td> 03603</td><td> 024005</td><td></td><td> LOA</td><td> ADRY</td><td> TRANSFER Y INTO A</td><td></td>

<td> 1503</td><td> 0 3609</td><td> 062377</td><td></td><td> JSM</td><td> R1TT*1</td><td> WORKING TEMPORARY</td><td></td>

<td> 1505</td><td> «3605</td><td> 021750</td><td></td><td> LOA</td><td> ADRXE</td><td> CHECK TO SEE IF X IS</td><td></td>

<td> 150B</td><td> 03610</td><td> 071951</td><td></td><td> SLA</td><td> CLX1</td><td> STORE ZERO IF >; IS POSITIVE-</td><td></td>

<td> 1510</td><td> «3611</td><td> 020016</td><td> TTX</td><td> LDA</td><td> AR2</td><td> OTHERWISE SET THE X</td><td></td>

<td> 1511</td><td> «361?</td><td> 029009</td><td></td><td> LDB</td><td> ADRX</td><td> REGISTER EQUAL TO THE</td><td></td>

<td> 1512</td><td> «3613</td><td> 170009</td><td></td><td> XFR</td><td></td><td> Y REGISTER</td><td></td>

<td> 1513</td><td> «3619</td><td> 170902</td><td></td><td> RET</td><td></td><td> AND RETURN</td><td></td>

<td> 15)6</td><td> «3615</td><td> 421750</td><td></td><td> LDA</td><td> ADRXF</td><td> LOAD THE EXPONENT WORD OF X</td><td></td>

<td> 1517</td><td> «3616</td><td> 025751</td><td></td><td> LD0</td><td> ADRXE*!</td><td> LOAD THE FIRST 9 DIGITS OF X</td><td></td>

<td> 1518</td><td> «3617</td><td> 079592</td><td></td><td> < SBH</td><td> 12</td><td> ISOLATE THE FIRST DIGIT OF X</td><td></td>

<td> 1519</td><td> •J 1620</td><td> 070392</td><td></td><td> SAR</td><td> 8</td><td> ALLIGN THE EXPONENT OF X</td><td></td>

<td> 1520</td><td> 23621</td><td> 074931</td><td></td><td> SLA</td><td> MET,C</td><td> SKIP IF THE EXPONENT OF X IS 1</td><td></td>

<td> 152?</td><td></td><td> 079799</td><td></td><td> SHL</td><td> 1</td><td> OTHERWISE ADD THE</td><td></td>

<td> 1523</td><td> 23623</td><td> 079017</td><td></td><td> ADA</td><td> B</td><td> first digit of x</td><td></td>

<td> 1529</td><td> ¢3624</td><td> 0797 09</td><td></td><td> SBL</td><td> 2</td><td> INTO B TEN TIMES</td><td></td>

<td> 1525</td><td> K3625</td><td> 079017</td><td></td><td> ADA</td><td> B</td><td> TO CONVERT IT TO BINARY</td><td></td>

<td> 1526</td><td> ¢3626</td><td> 025751</td><td></td><td> LOB</td><td> ADRXE*!</td><td> THEN ISOLATE THE</td><td></td>

<td> 1527</td><td> ¢3627</td><td> 079609</td><td></td><td> SHL</td><td> 4</td><td> SECOND DIGIT</td><td></td>

<td> 15 30</td><td> ¢3631</td><td> 079017</td><td> MET</td><td> ADA</td><td> 8</td><td> ADD THIS UNITS DIGIT TO THE SUM</td><td> (POSSIBLY 01</td>

<td> 1531</td><td> 2 3632</td><td> 02575«</td><td></td><td> LDB</td><td> ADRXE</td><td> LOAD THE EXPONENT WORD</td><td></td>

<td> 15 33</td><td> «3634</td><td> 067636</td><td></td><td> JMp</td><td> **2</td><td> THE MANTISSA SIGN RIT IS 0</td><td></td>

<td> 1539 1515·</td><td> 23635</td><td> 070076</td><td></td><td> ICA</td><td></td><td> COMPLEMENT THE SUM IF IT IS 0</td><td></td>

<td> 1536</td><td> 23636</td><td> 025759</td><td></td><td> LDB</td><td> AR2E</td><td> LOAD THE EXPONENT WORD OF Y</td><td></td>

<td> 1537</td><td> 23637</td><td> 079390</td><td></td><td> A8R</td><td> B</td><td> ALLIGN IT</td><td></td>

<td> 1539</td><td> 2 364 1</td><td> 079076</td><td></td><td> TCB</td><td></td><td> AND SUBTRACT THIS</td><td></td>

<td> 1590</td><td> 0364?</td><td> 006169</td><td></td><td> AOB</td><td> Pl!</td><td> QUANTITY FROM 11</td><td></td>

<td> 1591 1592·</td><td> 03643</td><td> 079952</td><td></td><td> SHM</td><td> RND2</td><td> SKIP IF THE RESULT IS NEGATIVE</td><td></td>

<td> 1593</td><td> 23644</td><td> 079117</td><td></td><td> LDA</td><td> B</td><td> DUPLICATE THIS QUANTITY</td><td></td>

<td> 1599</td><td> 23645</td><td> 002172</td><td></td><td> ADA</td><td> N13</td><td> and check το see that</td><td></td>

<td> 1596</td><td> 23647</td><td> 169237</td><td></td><td> JMP</td><td> CLXrl</td><td> STORE ZERO IN X IF IT IS NOT AND</td><td> RETURN</td>

<td> 1547</td><td> 23650.</td><td> 035667</td><td></td><td> STB</td><td> SHIFT</td><td> SAVE THIS SHIFT COUNT</td><td></td>

<td> 1598</td><td> ¢3651</td><td> 162011</td><td></td><td> JSM</td><td> ROUND»I</td><td> SHIFT AND ROUND Y</td><td></td>

3,859,635

295

296

MATH BLOCK FOR THE 9810, CALLED · CORD3 ·-Continued

1549*

<td> 1550</td><td> £3652 171450</td><td> NRM</td><td> RENORMALIZE IT</td>

<td> 1551</td><td> £3653 015667</td><td> CPB SHIFT</td><td> STORE THIS RESULT IF THE NORMALIZE</td>

<td> 1552</td><td> 03654 066703 RND2</td><td> J*P SOUT</td><td> COVNT = THE SHIFT COUNT</td>

<td> 1553</td><td> £3655 024105</td><td> LDB P256</td><td> OTHERWISE INCREMENT THE</td>

<td> 1554</td><td> 03656 062252</td><td> JSM NORM+4</td><td> EXPONENT OF THE ANSWER BY 1</td>

<td> 1555</td><td> 03657 066703</td><td> JMP SOUT</td><td> AND RETURN THE ANSWER IN X</td>

1557*

<td colspan="2"> 1560***</td><td> PROCESS THE</td><td> TABLE</td><td> FUNCTION</td><td></td>

<td> 1561* 1562 1563*</td><td> 03660</td><td> 062356 F</td><td> JSM</td><td> NXCD1</td><td> FETCH THE NEXT KEYCODE</td>

<td> 1564</td><td> 03661</td><td> 016167</td><td> CPB</td><td> P34</td><td> JUMP TO THE SCALE ROUTINE</td>

<td> 1565 1566*</td><td> 03662</td><td> 067422</td><td> JMP</td><td> SCALE</td><td> IF IT IS FORMAT ..</td>

<td> 1567</td><td> 03663</td><td> 014100</td><td> CPB</td><td> RETC</td><td> JUMP TO THE DULUP ROUTINE</td>

<td> 1568 1569*</td><td> 03664</td><td> 067733</td><td> JMP</td><td> DULUP</td><td> IF IT IS RETURN</td>

<td> 1570</td><td> 03665</td><td> 074117</td><td> LDA</td><td> B</td><td> DUPLICATE THE CODE</td>

<td> 1571</td><td> 03666</td><td> 016166</td><td> CPB</td><td> CLXC</td><td> JUMP TO THE CLEAR-ALL ROUTINE</td>

<td> 1574</td><td> 03670</td><td> 000024</td><td> ADA</td><td> N10</td><td> SUBTRACT 10 FROM THE CODE</td>

<td> 1575 1576*</td><td> 03671</td><td> 070713</td><td> SAP</td><td> RET3</td><td> RETURN IF THE RESULT IS POSITIVE</td>

<td> 1577</td><td> 03672</td><td> 002152</td><td> ADA</td><td> FTABL</td><td> OTHERWISE CALCULATE THE PROPER</td>

<td> 1578 1579*</td><td> 03673</td><td> 066002</td><td> JMP</td><td> JTA</td><td> FUNCTION AND JUMP TO IT</td>

<td> 1581* 1582*· 1583*</td><td></td><td> CLEAR ALL OF</td><td> USER</td><td> ! AREA</td><td></td>

<td> 1584</td><td> 03674</td><td> 023710 CLRR</td><td> LDA</td><td> ADRL</td><td> LOAD THE ADDRESS OF THE END OF USER MEMORY</td>

<td> 1585</td><td> 03675</td><td> 026143</td><td> LDB</td><td> N108</td><td> LOAD THE NEGATIVE OF THE NO. OF REGISTERS*</td>

<td> 1586</td><td> 03676</td><td> 067772</td><td> JMP</td><td> CLER+2</td><td> JUMP TO CLEAR ALL DIGITAL REGISTERS</td>

1587* isee*·*»*******************************

1589»

<td colspan="2"> 1590»·*</td><td colspan="2"> TURN ON THE</td><td colspan="2"> PROPER OPTION</td><td> LIGHT</td>

<td> 1591* 1592</td><td> 23677</td><td> 021776</td><td> DEG</td><td> LOA</td><td> UNITS</td><td> LOAD THE STATUS WORD</td>

<td> 1593 1594*</td><td> 03700</td><td> 052203</td><td></td><td> AND</td><td> UNITM</td><td> CLEAR THE OPTION FLAGS</td>

<td> 1595</td><td> 03701</td><td> 014034</td><td></td><td> CPB</td><td> P3</td><td> SET THE DEGREE» RADIAN OR</td>

<td> 1596</td><td> 03702</td><td> 026201</td><td></td><td> LDB</td><td> RAOF</td><td> GRAD FLAG DEPENDING ON THE</td>

<td> 1597</td><td> 03703</td><td> 074106</td><td></td><td> RBR</td><td> 3</td><td> COUNT (1.2 OR 3) IN THE</td>

<td> 1598</td><td> 03704</td><td> 074017</td><td></td><td> ADA</td><td> 8</td><td> B REGISTER</td>

<td> 1599* 1600</td><td> 03705</td><td> 172160</td><td></td><td> OTA</td><td> 16</td><td> TURN ON / OFF THE PROPER LIGHTS</td>

<td> 1601</td><td> 03706</td><td> 031776</td><td></td><td> STA</td><td> UNITS</td><td> STORE THE NEW STATUS WORD</td>

<td> 1602 1603*</td><td> 03707</td><td> 170402</td><td> RET3</td><td> RET</td><td></td><td> AND RETURN</td>

<td> 1604* 1605</td><td> 03710</td><td> 001000</td><td> ADRL</td><td> OCT</td><td> 1000</td><td> LAST WORD OF USER REGISTERS</td>

<td> 1606</td><td> 03677</td><td></td><td> RAD</td><td> EOU</td><td> DEG</td><td> THE RADIAN· GRAD» AND DEGREE</td>

<td> 1607</td><td> 03677</td><td></td><td> GRA</td><td> EQU</td><td> DEG</td><td> ROUTINES ARE ONE</td>

1609·

610· ··♦·♦·*··♦« ·♦♦♦·♦«*♦· ··«»«·'·«····«

1611·

<td> 1614</td><td> 23711</td><td> 020005</td><td></td><td> LDA</td><td> AORY</td><td> LOAD THE ADDRESS OF Y</td>

<td> 1616</td><td> 23712</td><td> 024004</td><td> XAA</td><td> LDB</td><td> ADRX</td><td> LOAD THE ADDRESS OF X</td>

<td> 1617</td><td> 23713</td><td> 166015</td><td></td><td> JMP</td><td> FAD.I</td><td> JUMP TO THE FLOATING ADO ROUTINE</td>

<td> 1621*</td><td> ·«</td><td> EXFCUTE</td><td> THE</td><td> USER</td><td> DEFINED</td><td> FUNCTION</td>

<td> 1624</td><td> 23714</td><td> 011721</td><td></td><td> STA</td><td> SUBF</td><td> LINKAGE</td>

<td> 1625</td><td> 23716</td><td> 022222</td><td></td><td> LDA</td><td> USERC</td><td> LOAD THE USER KEY CODE</td>

<td> 1626</td><td> 23717</td><td> 124103</td><td></td><td> LOR</td><td> EXCF.I</td><td> LOAD THE EXECUTE FLAG AND</td>

<td> 1628</td><td> 23721</td><td> 166212</td><td></td><td> JMP</td><td> SRCH»I</td><td> IF IN PROGRAM CONTROL JUMP TO THE ROUTINE</td>

3,859,635

297

298

MATH BLOCK FOR THE 9810, CALLED «C0R03·-Continued

16/9»

<td> lr>30</td><td> 03722 162212</td><td> JSM SRCH.I</td><td> OTHERWISE FIND THE ADDRESS OF THE ROUTINE AND RETURN</td>

<td> |t>3)</td><td> 03723 021776</td><td> LDA UNITS</td><td> LOAD THE STATUS WORD</td>

<td> lb3?</td><td> «3729 050066</td><td> AND ERR</td><td> IF THE ERROR BIT IS SET</td>

<td> 1633</td><td> 03725 073110</td><td> RZA RET3</td><td> DO A RETURN</td>

<td> 1^34</td><td> 03726 021710</td><td> LDA USP</td><td> OTHERWISE DECREMENT THE</td>

<td> 1635</td><td> 03727 000.031</td><td> ADA Ml</td><td> STACK POINTER IN A AND</td>

<td> 1636</td><td> 03730 026161</td><td> LDB ENDA</td><td> STORE AN ENO STATEMENT IN THE</td>

<td> 1637</td><td> 03731 070577</td><td> STB A. I</td><td> NEXT LOCATION TO BE EXECUTED</td>

<td> lb3R</td><td> 03732 064132</td><td> JMP EXEC</td><td> JUMP TO THE EXECUTER</td>

1640·

1641·****··**·*·***·»»*·***·*··»·**»»**

1642*

<td colspan="2"> 1643*··</td><td colspan="5"> EXECUTE THE DO-LOOP FUNCTION</td>

<td> 1644· 1645</td><td> «3733</td><td> 062373</td><td> DULUP</td><td> JSM</td><td> XTP</td><td> STORE X IN P</td>

<td> 1647· 1648</td><td> «3735</td><td> 070704</td><td></td><td> SAL</td><td> 2</td><td> MULTIPLY IT BY 4</td>

<td> 1649</td><td> «3736</td><td> 070076</td><td></td><td> TCA</td><td></td><td> COMPLEMENT IF AND</td>

<td> 1650</td><td> «3737</td><td> 000033</td><td></td><td> ADA</td><td> ADRF</td><td> SUBTRACT IT FROM THE ADDRESS OF R0</td>

<td> 1651</td><td> 03740</td><td> 031664</td><td></td><td> STA</td><td> TEMP</td><td> STORE THIS REGISTER ADDRESS AWAY</td>

<td> 1652* 1653</td><td> 03741</td><td> 063612</td><td></td><td> JSM</td><td> TTX»1</td><td> TRANSFER THE COUNTER INTO X</td>

<td> 1654» 1655</td><td> 03742</td><td> 063405</td><td></td><td> JSM</td><td> PRE</td><td> TAKE THE INTEGER, ABSOLUTE VALUE OF IT</td>

<td> 1656</td><td> 03743</td><td> 074710</td><td></td><td> SZB</td><td> DL2</td><td> EXECUTE A RETURN IF IT IS ZERO</td>

<td> 1657</td><td> 03744</td><td> 024004</td><td></td><td> LDB</td><td> ADRX</td><td> SUBTRACT ONE FROM THE</td>

<td> 1658</td><td> 03745</td><td> 162016</td><td></td><td> JSM</td><td> FSB,I</td><td> COUNTER TN X</td>

<td> 1659* 1660</td><td> 03746</td><td> 021751</td><td></td><td> LDA</td><td> ADRXE+1</td><td> IF IT IS ZERO WE ARE DONE SO</td>

<td> 1663</td><td> 03750</td><td> 055710</td><td></td><td> DSZ</td><td> USP</td><td> DECREMENT THE USER STACK POINTER</td>

<td> 1664</td><td> 03751</td><td> 121710</td><td></td><td> LDA</td><td> USP, I</td><td> LOAD THE LAST RETURN ADDRESS</td>

<td> 1665</td><td> 03752</td><td> 002173</td><td></td><td> ADA</td><td> N6</td><td> SUBTRACT SIX FROM IT</td>

<td> 1666</td><td> 03753</td><td> 025707</td><td></td><td> LDB</td><td> ZZAO</td><td> LOAD THE ADDRESS OF STEP 00</td>

<td> 1667</td><td> 03754</td><td> 074076</td><td></td><td> TCB</td><td></td><td> COMPLEMENT IT AND</td>

<td> 1668</td><td> 03755</td><td> 070037</td><td></td><td> ADB</td><td> A</td><td> ADD IT TO THE ABOVE ADDRESS</td>

<td> 1669 1670*</td><td> »3756</td><td> 074112</td><td></td><td> SBM</td><td> DL1</td><td> SKIP IF THE RETURN ADDRESS IS ILLEGAL</td>

<td> 1671 1672·</td><td> 03757</td><td> 131710</td><td></td><td> STA</td><td> USP,I</td><td> OTHERWISE STORE THE NEW RETURN ADDRESS</td>

<td> 1673 1674*</td><td> 03760</td><td> 045710</td><td> DL1</td><td> ISZ</td><td> USP</td><td> RESTORE THE USER STACK POINTER</td>

<td> 1675</td><td> 03761</td><td> 020004</td><td> DL2</td><td> LDA</td><td> ADRX</td><td> TRANSFER THE NEW VALUE OF THE</td>

<td> 1676</td><td> 03762</td><td> 025664</td><td></td><td> LOB</td><td> TEMP</td><td> COUNTER BACK INTO</td>

<td> 1677</td><td> 03763</td><td> 170004</td><td></td><td> XFR</td><td></td><td> ITS REGISTER</td>

<td> 1678 1679*</td><td> 03764</td><td> 062405</td><td></td><td> JSM</td><td> PTX</td><td> RESTORE THE X REGISTER</td>

<td> 1680</td><td> 03765</td><td> 024100</td><td></td><td> LDB</td><td> RETC</td><td> LOAD A RETURN KEYCODE</td>

<td> 1681 1682*</td><td> 03766</td><td> 064362</td><td></td><td> JMP</td><td> INTP</td><td> JUMP TO THE INTERPRETER</td>

<td> 1683* 1684</td><td> 02152</td><td></td><td> THETL</td><td> EQU</td><td> GPERR</td><td> CORDIC LOG CONSTANT TABLE POINTER</td>

<td> 1685</td><td> 02152</td><td></td><td> FTABL</td><td> EQU</td><td> GPERR</td><td> TABLE FUNCTION LINK WORD</td>

<td> 1686</td><td> 02146</td><td></td><td> LINK</td><td> EQU</td><td> PI/2</td><td> KEYCOOE ROUTINE LINK WORD</td>

1688» ·»··*····«·····«····«···········

1690»

1691* CHECKSUM MORO FOR THE SECOND 512 WORDS <3000-37771 169?»

1693 «3767 30M00 CKSM2 NOP

1694»

95····*·· ··························*· 1696»

<td> 1697···</td><td> CLEAR OUT A SPECIFIED NO.</td><td> OF FLOATING POINT REGISTERS</td>

<td> 1699 «377«</td><td> «20012 CLEW LOA AWRON</td><td> LOAD THE ADDRESS OF THE DIGIT STACK</td>

<td> 1700 «3771</td><td> 02617« ' LDB N2</td><td> LOAD THE NO. OF CLR’S MINUS ONE</td>

<td> 1701 «377/</td><td> 170000 CLR</td><td> CLEAR 4 WORDS</td>

<td> 1702 «3773</td><td> 00000.3 ADA P9</td><td> ADD 4 TO THE ADDRESS</td>

<td> 1703 «3779</td><td> 077730 RIB *-2</td><td> SKIP IF THE COUNT IS NOT ZERO AND ADD 1 TO IT</td>

<td> 1709 33775</td><td> 000031 ADA N1</td><td> OTHERWISE SUBTRACT 1 FROM IT</td>

<td> 1705 03776</td><td> 031666 KK STA DIGIT</td><td> AND STORE THIS ADDRESS IN DIGIT</td>

<td> 17X6 »3777</td><td> 1704W2 RET</td><td> THIS WORD IS NOT NECESSARY</td>

<td colspan="2"> * NO EWROWS*</td><td></td>

3,859,635

299

CROSS-REFERENCE SYMBOL TABLE

300

<td> rfRON</td><td> 0058</td><td> 0848</td><td> 1061</td><td> 1126</td><td> 1699</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td colspan="5"> 301</td><td colspan="3" rowspan="2"> 3,859,635 table —Continued</td><td colspan="4" rowspan="2"> 302</td>

<td colspan="2"></td><td colspan="3"> CROSS-REFERENCE SYMBOL</td>

<td> CLftR</td><td> 1584</td><td> 1572</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> COUNT</td><td> 0019 1452</td><td> 0364 1459</td><td> 0'369 .</td><td> 0.371</td><td> 0416</td><td> 0427</td><td> 0435</td><td> 0828</td><td> 0834</td><td> 0837</td><td> 1424</td>

<td> DIGIT</td><td> 0017 1114</td><td> 0850 1127</td><td> 0855 1142</td><td> 0857 1165</td><td> 0895 1168</td><td> 0990 1185</td><td> 0995 1214</td><td> 1003 1225</td><td> 1037 1227</td><td> 1060 1705</td><td> 1069</td>

<td> DREPR</td><td> 0260</td><td> 1256</td><td> 1262</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> DTDMS</td><td> 1366</td><td> 0150</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> DULUP</td><td> 1645</td><td> 1568</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> ERROR</td><td> 0285</td><td> 0891</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> FALSE</td><td> 0105</td><td> 0424</td><td> 0623</td><td> 8738</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td colspan="2"></td><td colspan="2"> CROSS-REFERENCE</td><td> SYMBOL</td><td> TABLE -</td><td colspan="6"> Continued</td>

<td> FINAL</td><td> (1291</td><td> 0533</td><td> 1490</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> FNCFG</td><td> 0021</td><td>?3?2</td><td> 0792</td><td> 0888</td><td> 1029</td><td> 1038</td><td> 1084</td><td> 1104</td><td> 1113</td><td> 1131</td><td> 1135</td>

<td> ftarl</td><td> 1685</td><td> 1577</td><td></td><td></td><td></td><td> -</td><td></td><td></td><td></td><td></td><td></td>

<td> GPFpR</td><td> 0263</td><td> 1265</td><td> 1268</td><td> 1684</td><td> 1685</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> KftUF</td><td> 007'3 </td><td> 0091</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> KYLOG</td><td> 0083</td><td> 04 71</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td colspan="5"> 305</td><td colspan="3" rowspan="2"> 3,859,635 table —Continued</td><td colspan="4" rowspan="2"> 306</td>

<td colspan="2"></td><td colspan="3"> CROSS-REFERENCE SYMBOL</td>

3,859,635

308

307

CROSS-REFERENCE SYMBOL TABLE - Continued

<td> RCPFG</td><td> 0020 66 4 3</td><td> 0538 0599 0664 .1460</td><td> 0615</td><td> 0620</td><td> 0622</td><td> 0654</td><td> 0658</td><td> 0674</td><td> 0688</td><td> 0691</td>

<td> RESET</td><td> GH95</td><td> 1366</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> ROUND</td><td> 0106</td><td> 0395 0640</td><td> 1065</td><td> 1102</td><td> 1548</td><td></td><td></td><td></td><td></td><td></td>

<td> SCALF</td><td> 1 30ft</td><td> 1565</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

3,859,635

309 310 cross-reference symbol Table - Continued

<td> SETUP</td><td> 0081</td><td> 6097</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> SHIFT</td><td> C0I8 1198</td><td> 0986 1204</td><td> 1010 1219</td><td> 1020 1319</td><td> 1086 1337</td><td> 1117 1547</td><td> 1130 1551</td><td> 1147</td><td> 1169</td><td> 1180</td><td> 1190</td>

<td> THRTL</td><td> 1 6 6 4</td><td> 084 7</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> THFTT</td><td> 0271</td><td> «647</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> UNITS</td><td> 7/0 7?</td><td> 1244</td><td> 1592</td><td> 1601</td><td> 1631</td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> UPARO</td><td> 0800</td><td> 0310</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> uptah</td><td> 0459</td><td> 0998</td><td> 1202</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> UStRC</td><td> £305</td><td> 1625</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

<td> XFACT</td><td> 0955</td><td> 0151</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td>

3,859,635

312

311

CROSS-REFERENCE SYMBOL TABLE-Continued

<td colspan="3"></td><td colspan="3"> — Continued</td>

<td> OFF</td><td> 016000</td><td></td><td> 25</td><td> OATIN</td><td> 016330</td>

<td> END</td><td> 016002</td><td></td><td></td><td> WDBLD</td><td> 016331</td>

<td> FMTGT</td><td> 016004</td><td></td><td></td><td> FLAG</td><td> 016332</td>

<td> wDITM</td><td> 016012</td><td></td><td></td><td> JMP4</td><td> 016341</td>

<td> FMTRC</td><td> 016014</td><td></td><td></td><td> EOCL</td><td> 016345</td>

<td> WRITl</td><td> 016024</td><td></td><td rowspan="2"> 30</td><td> .END1</td><td> 016352</td>

<td> PRTED</td><td> 016027</td><td></td><td> .END.</td><td> .016354</td>

<td> READM</td><td> 016040</td><td></td><td></td><td> DATS!</td><td> 016363</td>

<td> NTERM</td><td> 016053</td><td></td><td></td><td> SETUP</td><td> 000031</td>

<td> LDATA</td><td> 016072</td><td></td><td> 35</td><td> PRGAD</td><td> 001701</td>

<td> INITM</td><td> 016077</td><td></td><td></td><td> INRUF</td><td> 001775</td>

<td> MORGT</td><td> 016104</td><td></td><td></td><td> MASK</td><td> 016364</td>

<td> LDDTA</td><td> 016124</td><td></td><td></td><td> BTCNT</td><td> 001736</td>

<td> LCALL</td><td> 016127</td><td></td><td> 40</td><td> FMTOT</td><td> 016366</td>

<td> ALLOK</td><td> 016133</td><td></td><td></td><td> HOLD</td><td> 001735</td>

<td> RDATA</td><td> 016134</td><td></td><td></td><td> SECUR</td><td> 000111</td>

<td> BYTE</td><td> 016144</td><td></td><td></td><td> PCSAV</td><td> 001734</td>

<td> FDATA</td><td> 016146</td><td></td><td></td><td> DP7</td><td> 000770</td>

<td> CONT</td><td> 016172</td><td></td><td></td><td> STATS</td><td> 001776</td>

<td> RECRO</td><td> 016201</td><td></td><td></td><td> STKPT</td><td> 001777</td>

<td> RCALL</td><td> 016204</td><td></td><td> 50</td><td> Ml</td><td> 000031</td>

<td> OUH</td><td> 016210</td><td></td><td></td><td> CRDFG</td><td> 001733</td>

<td> OKGO</td><td> 016212</td><td></td><td></td><td> MAXAD</td><td> 016367</td>

<td> WOGET</td><td> 016226</td><td></td><td rowspan="2"> 55</td><td> BASE</td><td> 000375</td>

<td> GO.ON</td><td> 016227</td><td></td><td> MAXWD</td><td> 016370</td>

<td> CRDIN</td><td> 016240</td><td></td><td></td><td> OCT77</td><td> 000100</td>

<td> LOOK</td><td> 016241</td><td></td><td></td><td> KLUDG</td><td> 016371</td>

<td> STOPK</td><td> 016247</td><td></td><td></td><td> DELAY</td><td> 016372</td>

<td> STOP</td><td> 016256</td><td></td><td></td><td> ALLCR</td><td> 016760</td>

<td> WOOUT</td><td> 016274</td><td></td><td></td><td> CKIT'</td><td> 016766</td>

<td> JMP 14 OUT1</td><td> 016317 016322</td><td></td><td> 65</td><td> DATA • NO</td><td> 001730 ERRORS*</td>

3,859,635

314

313

MAGNETIC CAH|) BLOCK.

CLEAR MEMORY ROUTINE.

<td> 5004</td><td> /8302</td><td> 016312</td><td></td><td> DEF</td><td> WRITM</td>

<td> /0 05</td><td> 4Ui3».'3</td><td> 016340</td><td></td><td> DEF</td><td> READM</td>

<td> 0007</td><td> «3114</td><td> 016760</td><td></td><td> DEF</td><td> ALLCR</td>

<td> 0009</td><td> 3/172</td><td> 016134</td><td></td><td> DEF</td><td> RDATA</td>

<td> 0010</td><td> «0173</td><td> 016004</td><td></td><td> DEF</td><td> FMTGT</td>

<td> 0011</td><td> 33174</td><td> 016014</td><td></td><td> DEF</td><td> FMTRC</td>

<td> «012</td><td> «0175</td><td> 016072</td><td></td><td> DEF</td><td> LDATA</td>

<td> 0018*</td><td></td><td colspan="4"> MAG CARD ROUTINES.</td>

<td> 0019* 0020</td><td> 16004</td><td> 021707</td><td> FMTGT</td><td> LDA</td><td> ZPC</td>

<td> 0022</td><td> 16036</td><td> 062040</td><td></td><td> JSM</td><td> READM</td>

<td> 0026* 0027</td><td> 16312</td><td> 120111</td><td> WRITM</td><td> LDA</td><td> SECUR,I</td>

<td> 0029</td><td> 16314</td><td> 120111</td><td> FMTRC</td><td> LDA</td><td> SECUR,I</td>

<td> 0033</td><td> 16020</td><td> 130111</td><td></td><td> STA</td><td> SECUR,I</td>

THIS IS THE CLX, DIV» END TO CATCH PC.

FORMAT GOTO ROUTINE.

SET USER PROGRAM CON. TO 0. LOAD CARD.

SET PC TO ZERO FOR EXECUTION. JUMP TO THE COTINUE ENTRY

GET AND CHECK SECURITY WORD.

IF ZERO» OK TO RECORD.

FORMAT RECORD ROUTINE.

DO NOT RESPOND IF SEC. WD.

SET SECURITY E TO NON ZERO AND NOT 1»S.

SET SW TO NON ZERO.

DO NORMAL RECORD»

CLEAR SECURITY WORD»

AND RETURN.

<td> 0038</td><td> 16024 072052 WR1T1 SAM **1»S</td><td> NEGATIVE FOR STOP PROCESSING,</td>

<td> 0039</td><td> 16*25 031775 STA INBUF</td><td></td>

<td> 0041</td><td> 16027 024031 PRTEO LDB SETUP</td><td> SET HEADS TO SAFE CONDITION.</td>

<td> 0043</td><td> 16031 070137 LDB A</td><td> SAVE A TO USE A FOR IOR OPERATION.</td>

<td> 0044</td><td> 16032 020066 LDA ELON</td><td> TURN ON ERROR LIGHT.</td>

<td> 0045</td><td> 16033 041776 IOR STATS</td><td></td>

<td> 0046</td><td> 16034 172160 OTA 16</td><td> OUTPUT TO LIGHT LATCHES.</td>

<td> 0047</td><td> 16035074117 LDA 8</td><td> RESTORE A, WHICH IS CODE TO RECORD.</td>

<td> 0048</td><td> 16036 062354 JSM .ENO.</td><td> EXPELL CARD, AND WAIT FOR ANOTHER.</td>

<td> 0049</td><td> 16037 066203 JMP RECRD+2</td><td></td>

<td rowspan="3"> 2051« 0052 0953 0054</td><td colspan="6"> LOAD ROUTINE. 16040 021776 READM LDA 17768 GET STATUS WORD.</td>

<td colspan="3" rowspan="2"> 16041 070504 16042 070112</td><td colspan="2"> SAL 6</td><td rowspan="2"> RETURN WITHOUT LOADING IF IN PROGRAM MODE, ELSE CAR LOOK AT</td>

<td> /055</td><td> 16343</td><td> 17/4/2</td><td> BET</td><td></td><td></td><td> SECURE PROGRAM.</td>

<td> ¢356</td><td> 16344</td><td> ¢21731</td><td> LOA</td><td> PC</td><td></td><td> PREPARE IO LSAVE USER PC.</td>

<td></td><td> 16345</td><td> /31734</td><td> STA</td><td> PCSAV</td><td></td><td> USE IN LATER CLEAR MEMORY. -</td>

<td> «jk’SR</td><td> 16^46</td><td> 07??52</td><td> SAM</td><td> •♦1.5</td><td></td><td> NEGATIVE FOR STOP PROCESSING.</td>

<td></td><td> 16/47'</td><td> /317 75</td><td> STA</td><td> INRUF</td><td></td><td></td>

<td> ϋν»60</td><td> 16 353</td><td> <37/742</td><td> SAP</td><td> 16</td><td></td><td> CLEAR OUT TEMP SW LOCATION</td>

<td> 3361</td><td> 1 6?51</td><td> 031737</td><td> STA</td><td> SAFE</td><td></td><td> FOR SUBSEQUENT ORING OPERATIONS.</td>

<td> Λ/63</td><td> 15^5 J</td><td> /217 17. NTEHM</td><td> LDA</td><td> SAFE</td><td></td><td> RET SW FROM CARO.</td>

<td> i'365</td><td> 16/55</td><td> >66/6 7</td><td> JMP</td><td> GUI T</td><td></td><td> WAS NONZERO. NOT MUCH TROUBLE.</td>

<td> 3 »>6 6</td><td> 1^356</td><td> 123111</td><td> LDA</td><td> SECUR</td><td> .1</td><td> GET CURRENT SECURITY WORD.</td>

<td> 4»’6R</td><td> 16^611</td><td> >21 70-7</td><td> LDA</td><td> ZPC</td><td></td><td> GET RELATIVE ORIGIN Of USER AREA.</td>

<td> Λ/69</td><td> 1 636 1</td><td> 025734</td><td> LDO</td><td> PCSAV</td><td></td><td> GET START OF LOADED PROGRAM.</td>

<td> 7/</td><td> 1 w</td><td> 062764</td><td> JSM-</td><td> CL PM</td><td></td><td> CLEAR MEMORY FROM A TO B-1.</td>

3,859,635

316

315 magnetic card BLOCK. — Continued

<td rowspan="3"> ''71 .'..’72 Z.-73 ·! v/ 7.4 11/75 /. / 7 Λ /-.4 7 7</td><td colspan="3"> J 4,46 3 021701</td><td colspan="2" rowspan="2"> LDA PC S1A *♦! LDB MAXAD JSM CLRM</td><td rowspan="3"> GET CURRENT ENO OF USER PROGRAM. INCREMENT TO AVOID CLEARING LAST LOCATION. B IS MAXIMUM USER PROGRAM ADDRESS. CLEAR FROM END OF USER PROG TO UPPER LIMIT. SET UP THE NEW SECURITY WORD. ENO ROUTINE.</td>

<td> LOA STA RET</td><td> SAFE SECURE</td>

<td> 0 /' 7 9 «</td><td></td><td></td><td colspan="3"> CARO HEADER UTILITY</td><td> ROUTINES.</td>

<td> ] * ? / H ?</td><td> 1-.072</td><td> ¢22.170</td><td> LDATA</td><td> LUA</td><td> MAXWl)</td><td> SET UP UPPER BOUND ON DATA(REGISTER 0).</td>

<td> .· · k4</td><td> 1 6'/ 7 4</td><td> ¢20031</td><td></td><td> LDA</td><td> Ml</td><td> SET CARD IN FLAG TO UNCHECKED.</td>

<td> ,:./ j,s</td><td> ii .’7S</td><td> 031733</td><td></td><td> S 1 A</td><td> CRDFG</td><td></td>

<td></td><td> 16’76</td><td> 0317 10</td><td></td><td> b I Λ</td><td> DATA</td><td> 1ELLS ROUTINES THAI DATA IS BEING RECORDED.</td>

<td> 4/ ·<7</td><td> 1 I 7</td><td> 0 71'742</td><td> INI TH</td><td> SAR</td><td> 16</td><td> INITIALIZE contents OF ptr.</td>

<td> u,v jq</td><td> 1 6 | 0 1</td><td> ¢20 ’ 7 7</td><td></td><td> LUA</td><td> MB</td><td> SET UP BYTE COUNTER AND STOP PROCESSING.</td>

<td></td><td> Η. In?</td><td> ¢117 75</td><td></td><td> STA</td><td> 1NHUF</td><td> STOP PROCESSING.</td>

<td></td><td> J A I .' 1</td><td> ¢3)7.32</td><td></td><td> STA</td><td> CNT</td><td> BYTE CONTFR.</td>

<td> . . 9?</td><td> 1 f. 1 /4</td><td> ¢62124</td><td> MORGT</td><td> JSM</td><td> LDOTA</td><td> GET. 6 HITS OF DATA IN A REGISTER.</td>

<td> .5 «'9 4</td><td> 16 106</td><td> 074246</td><td></td><td> RHH</td><td> 6</td><td> POSITION TO FORM WORD.</td>

<td> Z.'-*h</td><td> 1 A17</td><td> ¢74217</td><td></td><td> I OR</td><td> It</td><td> MERGE DATA ANO PREVIOUS DATA.</td>

<td> U*./ JP</td><td> 16 112</td><td> 066134</td><td></td><td> JMP</td><td> MOHGT</td><td> NO. GET MORE DATA.</td>

<td> «’ /99</td><td> 1A113</td><td> 125 7 n</td><td></td><td> LOH</td><td> PTR·!</td><td> YES. POSITION WORD PROPERLY.</td>

<td> •ΰ 1 v* ?</td><td> 16116</td><td> 0257 11</td><td></td><td> LOR</td><td> PT*</td><td> GFT VALUE OF POINTER. FOR</td>

<td> Ul'/3</td><td> 1 a 11 7</td><td> ¢34375</td><td></td><td> A(JB</td><td> BASE</td><td> CHECK IF ALL DATA REGISTERS HAVE BEEN RECORDED.</td>

<td> JP4</td><td> 16120</td><td> ¢74152</td><td></td><td> SHM</td><td> ENTR</td><td> YES, SKIP TO DRIVE CARO OUT.</td>

<td> /]?5</td><td> 1 61 21</td><td> 255731</td><td></td><td> DSZ</td><td> PTR</td><td> IT IS NOT , CONTINUE.</td>

<td> 4 1 -Afy</td><td> 16122</td><td> .)660 7 7</td><td></td><td> JMP</td><td> INITM</td><td> REPEAT FOR NEXT WORD.</td>

<td> 310Q</td><td> 16124</td><td> 045713</td><td> ldota</td><td> ISZ</td><td> CRDFG</td><td> HAS THE CARO BEEN CHECKED?</td>

<td> 1411«</td><td> 16126</td><td> 366133</td><td></td><td> JMP</td><td> ALLOK</td><td> YES, GET DATA.</td>

<td> 3111</td><td> 16126</td><td> 024031.</td><td></td><td> LUH</td><td> SETUP</td><td> NO, CHECK IT.</td>

<td> 31 IP</td><td> 16127</td><td> W62240</td><td> LCALL</td><td> JSM</td><td> CRDIN</td><td> TEST FOR CARD IN.</td>

<td> «113</td><td> 161.30</td><td> 062330</td><td></td><td> JSM</td><td> DATIN ·</td><td> GET FIRST DATA.</td>

<td> dl 14</td><td> 16131</td><td> 0417.37</td><td></td><td> IOH</td><td> SAFE</td><td> OR WITH ACCUMULATED CARO SECURITY WORD.</td>

<td> 01 15</td><td> 16132</td><td> 031737</td><td></td><td> STA</td><td> SAFE</td><td> SAVE ACCUMULATED SECURITY WORD.</td>

<td> 3116</td><td> 16133</td><td> 066330</td><td> ALLOK</td><td> JMP</td><td> DATIN</td><td> JUMP TO DATA ANO EXECUTE RETURN.</td>

<td> Ji 1 A</td><td> 16134 W21031</td><td> RDATA LDA Ml</td><td> BEGIN RECORD DATA ROUTINE.</td>

<td> 01 19</td><td> 16135 0.31733</td><td> STA CRDFG</td><td> SET CARO FLAG TO UNCHECKED. CAUSES CROIN</td>

<td> 01?«</td><td> 161 36 '331 730</td><td> STA DATA</td><td> LET ROUTINES KNOW DATA IS BEING RECORDED.</td>

<td> «I ? 1</td><td> 16137 031775</td><td> STA IN8UF</td><td> STOP PROCESSING.</td>

<td> ?P?</td><td> 16140 022370</td><td> LOA MAXrtD</td><td> REGISTER 0 0 F DATA.</td>

<td> M3</td><td> 16141 (*11731</td><td> STA PTR</td><td> INDEXED VARIABLE.</td>

<td> Jl?4</td><td> 10142 Ϊ20111</td><td> LOA SECUR,I</td><td> GET AND RECORD SECURITY WORD TO</td>

<td> Cl?5</td><td> 16143 0622.11</td><td> . JSM RECRO</td><td> KEEP FROM MESSING THINGS UP ON LOAD.</td>

<td> U?7</td><td> 1H45 3 117 32</td><td> STA CNT</td><td> SET CNTR FOR 3 6 BIT BYTES.</td>

<td> ri?8</td><td> 16146 121711</td><td> FDATA LDA PTR·!</td><td> GET 1ST 16 BIT WORD.</td>

<td> ft 1</td><td> 16147 270246</td><td> MAR fj</td><td> GET AND POSITION PROPER 6 BITS.</td>

<td> 4 1 3«</td><td> 16)51 13)731</td><td> STA PTR··!</td><td> STORE For NEXT BYTE OUT.</td>

<td> vl31</td><td> 1615 1 06 22'Ί</td><td> JSM WFCRO</td><td> RECORD 6 BITS OF DATA.</td>

<td> J 13?</td><td> 16152 '34 57.12</td><td> ,ISZ CNT</td><td> IND BYTE COUNT.</td>

<td> ;3 1 3 3</td><td> 16)53 066146</td><td> .JMP FDATA</td><td> PUT OUT NEXT BYTE.</td>

<td> /134</td><td> 16154 121731</td><td> LDA PT*·!</td><td> POSITION DATA SORO AFTER MESSING IT UP.</td>

<td> *1 M</td><td> 10157 02)731</td><td> LDA PTR</td><td> CHECK IF ALL</td>

<td> Cl 39</td><td> 16161 072652</td><td> SAM END!T</td><td> AREA IN MACHINE IS RECORDED.</td>

<td> M3</td><td> 16164 020031</td><td> .REC. LDA Ml</td><td> BASIC PROGRAM RECORD ROUTINE.</td>

<td> / i 4 4</td><td> 16)65 031733</td><td> 5ΤΛ CRDFG</td><td></td>

<td> .: lz*5</td><td> 16)66 070256</td><td> Cha</td><td> SET A TO ANYTHING BUT -1,</td>

<td> ? 1 4 6</td><td> 1616 7 0.31 7 3/</td><td> STA DATA</td><td> AND STOPE TO SHOW THAT ARE NOT REC DATA</td>

<td> 4 P-7</td><td> lol?/ 120111</td><td> DOIT LDA SECUR·!</td><td> RECORD SECURITY WORD.</td>

<td> Cl</td><td> 16171 062221</td><td> JSM rtECRD</td><td></td>

<td> 2149</td><td> 16172 121701</td><td> CONT L(JA PRGAD,!</td><td> GET PROGRAM WORD. .</td>

<td> «15«</td><td> 16Γ73 062201</td><td> JSM RECHD</td><td></td>

<td> «151</td><td> 16174 1217'31</td><td> LDA PRGADtl</td><td></td>

<td> C15?</td><td> 16Γ75 0120(12</td><td> CPA LND</td><td> IS PROGRAM DONE?</td>

<td> a'153- '</td><td> 16176 066352</td><td> ENQI-.T JMP ,FN01</td><td> DRIVE CARD OUT THEN EXECUTE RETURN.</td>

<td> /154</td><td> lol Tt 045731.</td><td> MOHE. ISZ PRGAD</td><td> NO, CONTINUE.</td>

3,859,635

317

318 magnetic card block.—Continued

<td> ij) 56</td><td> 16 2» I</td><td> 345733</td><td> RECRD</td><td> I sz</td><td> CRDFG</td><td> TEST IF CARD IN HAS BEEN CHECKED.</td>

<td> 1 57</td><td> 162.32</td><td> »166/12</td><td></td><td> jMfr</td><td> ’ OKGO</td><td> YES. CONTINUE..</td>

<td> ?15H</td><td> 162»3</td><td> 0/6363</td><td></td><td> LOB</td><td> OA1ST</td><td> NO. SET UP PROPER HEAD CONDITIONS</td>

<td> 4159</td><td> 1 62/4</td><td> W6//40</td><td> RCAI.L</td><td> JSM</td><td> CRD IN</td><td> TEST FOR CARDIN..</td>

<td> w 1</td><td> 162H5</td><td> 074/46</td><td></td><td> RHP</td><td> 2</td><td> TEST FOR PROTECTED CARD.</td>

<td> 4161</td><td> 16206</td><td> 07411/</td><td></td><td> SHM</td><td> OOH</td><td> CARD NOT PROTECTED. CONTINUE.</td>

<td> 4P>?</td><td> 16207</td><td> 0660/7</td><td></td><td> JMP</td><td> PRTED</td><td> CARD PROTECTED. GET ANOTHER.</td>

<td> 4 163</td><td> 16210</td><td> 0/4060</td><td> OOH</td><td> LDB</td><td> 608</td><td> GET A DELAY ON RECORD TO AVOID</td>

<td> LI 1 64</td><td> 16211</td><td> .176/30</td><td></td><td> RIB</td><td></td><td> MISSING FIRST STROBE ON LOAD.</td>

<td></td><td> 16212</td><td> 06/2 74</td><td> OK GO</td><td> JSM</td><td> RDOUT</td><td> OUTPUT 6 BITS.</td>

<td> .3166</td><td> 16213</td><td> 062/67</td><td></td><td> JSM</td><td> GET</td><td> GET SENSOR DATA ON END OF CARD.</td>

<td> /.15«</td><td> 11 2 1 5</td><td> <574/12</td><td></td><td> SHM</td><td> DON</td><td> NOT ENDED. NORMAL RETURN.</td>

<td> J 1^9</td><td> 16216</td><td> 06/35¼</td><td></td><td> JSM</td><td> .ENO.</td><td> CARO ENDEC. EXPELL CARD.</td>

<td> 31 70</td><td> 16017</td><td> 12.1111</td><td></td><td> LDA</td><td> SECUR·!</td><td> RECORD SECURITY WORD.</td>

<td> 4 17)</td><td> 16220</td><td> 066203</td><td></td><td> JMP</td><td> RECRD*?</td><td></td>

<td> 417/ vl 73»</td><td> 16221</td><td> 170402</td><td> DON</td><td> HET</td><td></td><td> NORMAL RETURN POINT.</td>

<td> .'174*</td><td></td><td colspan="3"> LOAD ROUTINE.</td><td></td><td></td>

<td> 017A</td><td> 1622S</td><td> 031730</td><td></td><td> STA</td><td> DATA</td><td> SHOW DATA NOT BEING LOADED.</td>

<td> 3179</td><td> 16226</td><td> 06/1/4</td><td> WOGET</td><td> JSM</td><td> LDDTA</td><td> INPUT 6 BITS.</td>

<td> »' 1 Η 4</td><td> 16.227</td><td> 131701</td><td> GO. ON</td><td> STA</td><td> PRGAD·I</td><td> STORE PROGRAM WORD.</td>

<td> .:191</td><td> 16230</td><td> 01/042</td><td></td><td> CHA</td><td> ENO</td><td> IS PROGRAM DENE?</td>

<td> i J 9?</td><td> 16’31</td><td> 066352</td><td></td><td> JMP</td><td> .FN01</td><td> EXPELL CARD AND EXECUTE RETURN.</td>

<td> 4 15?</td><td> 1 + 232</td><td> 522367</td><td> OK</td><td> LDA</td><td> MAXAD</td><td> NO. CONTINUE.</td>

<td> t.l«5</td><td> 16’34</td><td> 001741</td><td></td><td> ADA</td><td> HRGAD</td><td> IF POSITIVE. HAS OVERFLOWED.</td>

<td> '..1«6</td><td> 16235</td><td> 045701</td><td></td><td> ISZ</td><td> PRGAO</td><td></td>

<td> -,197</td><td> 16236</td><td> 07141/</td><td></td><td> SAM</td><td> WOGET</td><td></td>

<td> Ji-’9». .' 1 J 4 · 4 1 > 1</td><td> 16 240</td><td> 06/3/5</td><td> CROIN</td><td> JSM</td><td> out/</td><td></td>

<td> ;i i >?</td><td> 16241</td><td></td><td> LOOK</td><td> JSM</td><td> GET</td><td> LOAD SENSOR DATA.</td>

<td> j.193</td><td> 16042</td><td> 074346</td><td></td><td> RHR</td><td colspan="2"> 7 CHECK TOP SENSOR OF CARD.</td>

<td> ·,' 1 94</td><td> 16 24 3</td><td> 074213</td><td></td><td> SPP</td><td> STOPK</td><td> SKIPS IF UNBLOCKED.</td>

<td> ui'*5</td><td> 1 6244</td><td> ? 7460t></td><td></td><td> HHH</td><td> 1 3</td><td> CONTINUE THE TES1 FOR CARD IN.</td>

<td> ./1^6</td><td> 16 045</td><td> 075611</td><td></td><td> SLR</td><td> LOOK</td><td> NOT IN IF SKIP. TY AGAIN.</td>

<td></td><td> 16 047</td><td> 470137</td><td> SIOPK</td><td> LDB</td><td> A</td><td rowspan="2"> SAVE A SO CAN TURN ON LOAD LIGHT.</td>

<td> 4 1 9Q</td><td> Ir 250</td><td> 0/1776</td><td></td><td> LDA</td><td> STATS</td>

<td> rJi Λ0</td><td> 16261</td><td> 04 0105'</td><td></td><td> IOR</td><td> LLON</td><td> TURN ON LOAD LIGHT.</td>

<td> I / ‘A ?</td><td> 16253</td><td> 074117</td><td></td><td> LDA</td><td> H</td><td> RESTORE A.</td>

<td> ic ’3</td><td> 16254</td><td> .1/5775</td><td> JMP10</td><td> LDB</td><td> INRDF</td><td> NO. TEST FRO STOP.</td>

<td> f /M?</td><td> 16256</td><td> 06/352</td><td> JSM</td><td> .FND1</td><td> TURN OFF CRRO READER.</td>

<td> 3/ 4R</td><td> 16261</td><td> 055777</td><td></td><td> USZ</td><td> STKPT</td><td></td>

<td> *'//· 9</td><td> 16262</td><td> 121777</td><td></td><td> LDA</td><td> STKPT.I</td><td></td>

<td> //)0</td><td> 16263</td><td> 41/373</td><td></td><td> CPA</td><td> PCI</td><td rowspan="2"> WAS THIS CALLED FROM RECORD MODE?</td>

<td> Z/12</td><td> 16265</td><td> 062053</td><td></td><td> JSM</td><td> NTERM</td><td></td>

<td> 0//0</td><td> 16274</td><td> 0/6365 MDOU1</td><td> LDB M?</td><td> A REG HAS WO TO B RECORDED.</td>

<td> >221</td><td> 162/5</td><td> 035736</td><td> STH BTCNT</td><td> SET UP HYTE COUNTER.</td>

<td> 04?/</td><td> 162/6</td><td> ¢/6366</td><td> LDB FMTOT</td><td> STROBE FORMAT.</td>

<td> 0 2/4</td><td> 16 3.1»</td><td> 0.317.35 HTOUT</td><td> STA HOLD</td><td> COMP. FOR PROPER POLARITY REC/LOAD.</td>

<td> 0//5</td><td> 163X1</td><td> 053770</td><td> AND DM7</td><td> MASK IN CONTROL BITS.</td>

<td> J/£7</td><td> 163»3</td><td> 17/141</td><td> (HA 01</td><td> A REGISTER OUTPUT.</td>

<td> ..//9</td><td> 16305</td><td> 32/372</td><td> LDA DELAY</td><td> THIS DELAY GIVES PACKING DENSITY.</td>

<td> .,/31</td><td> 1 6 >1 1</td><td> 176)41</td><td> CTH 01</td><td> OUTPUT STROBE.</td>

<td> 0/33</td><td> IMl 1</td><td> 374'006</td><td> HBR 1</td><td> GET NEXT STROBE.</td>

<td> Z/34</td><td> 16312</td><td> ¢522372</td><td> LDA DELAY</td><td> PACKING DENSITY DELAY.</td>

<td> J? 35</td><td> 16.31 3</td><td> 079030</td><td> H1A *</td><td> OFLAY UNTIL 3 MSB ARE READY TO OUTPT.</td>

<td> J 2 36</td><td> 16'14</td><td> 045736</td><td> ISZ BTCNT</td><td> TEST FOR END OF WORD.</td>

<td> .j? J5</td><td> 16316</td><td> 17'040?</td><td> PET</td><td> WORD IS FINISHED.</td>

3,859,635

319

320 magnetic card block.—Continued

<td> ;;/4)</td><td> 1*3/1</td><td> 066300</td><td> JMP</td><td> BTOUT RET OT OUTPUT 3 MSB.</td>

<td> r‘?4 3</td><td> 1*3/3</td><td> 172602</td><td> SIC</td><td> 0? OUTPUTS BITS 0 1 2 4 5 OF A REG</td>

<td> 3 2 4 ·+</td><td> 1 * i?4</td><td> 170402</td><td> hET</td><td> TO CARD READER.</td>

<td></td><td> 1*32*</td><td> 172742</td><td> STF</td><td> 02 OUTPUTS 6 LSB OF A TO CR.</td>

<td> .:/81</td><td> 16 132</td><td> 1725/2</td><td> FLAG</td><td> SF S</td><td> 02</td><td> TEST FOR CR STROBE FLAG.</td>

<td> 0254</td><td> 16335</td><td> 372212</td><td></td><td> SAM</td><td> JMP4»S</td><td> SKIP IF THIS IS MS THREE BITS.</td>

<td> 0/55</td><td> 16336</td><td> /74217</td><td></td><td> I OR</td><td> B</td><td> PUT IN THE CURRENT LS BITS.</td>

<td> /256</td><td> 16337</td><td> >552371</td><td></td><td> ANO</td><td> kludg</td><td> GET THE EXIRA HITS FROM GET OUT. BUT KEEP MSB</td>

<td> 0/57</td><td> 16 340</td><td> 066331</td><td></td><td> JMP</td><td> WO8LD</td><td> GET THE MS THREE HITS.</td>

<td> /2*8</td><td> 16 14 I</td><td> /74*44</td><td> JMP4</td><td> SHL</td><td> 3</td><td> POSITION THE MS 3 BITS.</td>

<td> J?59</td><td> 16 34?</td><td> 074217</td><td></td><td colspan="2"> IOR A</td><td> MERGE WITH OTHER 3 BITS</td>

<td> 0261</td><td> 16344</td><td> 170402</td><td></td><td colspan="2"> RET</td><td> return</td>

<td> LK?63</td><td> )6346-</td><td> 074 3/6</td><td></td><td> PRR</td><td> 7</td><td> LOAD SENSOR DATA AND ROTATE END.</td>

<td> 0/64</td><td> 16 347</td><td> £75152</td><td></td><td> SHM</td><td> FLAG</td><td> 0 CARD SENSTOR TO MSB.</td>

<td> z/*5</td><td> )6350</td><td> 362354</td><td></td><td> JSM</td><td> .END.</td><td> CARD ENDED. DRIVE CARO OUT.</td>

<td> 0266</td><td> 16 351</td><td> »6612*</td><td></td><td> JMP</td><td> LCALL-1</td><td> GET CARD, SECURITY WO, ETC.</td>

<td> uJ2*7</td><td> 16352</td><td> 025776</td><td> • END1</td><td colspan="2"> LDb STATS</td><td> TURN OFF LOAD LIGHT.</td>

<td> e?7i</td><td> 16356</td><td> 075712</td><td></td><td> S8M</td><td> • END.</td><td> MAKE SURE CARO PASSED DRIVE ROLLES.</td>

<td> /272</td><td> 16357</td><td> 02*217</td><td></td><td> LOH</td><td> OKGO+5</td><td> DELAY TILL CARO HAS PASSED ROLLERS.</td>

<td> /2 75</td><td> 16362</td><td> »66325</td><td></td><td> JMP</td><td> OUT2</td><td> TURN OUT CARD READER.</td>

<td> 0279</td><td> eofl.31</td><td></td><td> SETUP</td><td> EQU</td><td> 311</td><td> Ml.</td>

<td> i.2 81</td><td> 01701</td><td></td><td> PRGAD</td><td> EQU</td><td> 17015</td><td></td>

<td> 22k?</td><td> .01775</td><td></td><td> INHUF</td><td> EQU</td><td> 17758</td><td></td>

<td> 0285</td><td> •11736</td><td></td><td> HTCMT</td><td> EQU</td><td> 1736R</td><td></td>

<td> 04-36</td><td> 16366</td><td> 052525</td><td> FMTOT</td><td> OCT</td><td> 52525</td><td></td>

<td> ZzHR</td><td> 00111</td><td></td><td> SECUR</td><td> EQU</td><td> 1 i IB</td><td> SECURITY WORD.</td>

<td> 2289</td><td> 01734</td><td></td><td> PCSAV</td><td> EQU</td><td> 1734B</td><td></td>

<td> .229.3</td><td> 0 1776</td><td></td><td> STATS</td><td> EQU</td><td> -1.776H</td><td></td>

<td> il2‘>4</td><td> .:1701</td><td></td><td> PC</td><td> EQU</td><td> PRGAI) </td><td></td>

<td> /295</td><td> 01707</td><td></td><td> ZPC</td><td> E(JU</td><td> 1707R</td><td> FLOATING USER ORIGIN.</td>

<td> /296</td><td> 01777</td><td></td><td> STKPT</td><td> EQQ</td><td> 17778</td><td></td>

Z 2 9 8 * * β «no»» #<*·»**♦«

<td rowspan="2"> ί> 2 9 w · G3/0 ·</td><td colspan="3"> things inserted during development···*·</td>

<td> 03>l</td><td> Hl 733</td><td> CHDFG</td><td> EQU 1 733R</td>

<td> 0302</td><td> 16367 »15777</td><td> MAXAD</td><td> OCT 15777 UPPER USER AREA.</td>

<td> ύ 3 / 6</td><td> 16370 UA1663</td><td> MAXWD</td><td> OCT 166.3 UPPER ROUND TO DATA AREA.</td>

<td> 03G9</td><td> 16371 100H07</td><td> KLUDG</td><td> OCT 100007 USED TO GET MSB AND THREE LSB.</td>

<td> /310</td><td> 1*372 177754</td><td> DELAY</td><td> OCT 177754</td>

<td> Z311</td><td> 16373 016204</td><td> PCI</td><td> UEF RCALL USED TO DETERMINE CALLER ON STOP KEY</td>

<td> 0314</td><td> 16760</td><td> 070742 ALLCR SAW</td><td> 16</td>

<td> 0315</td><td> 16761</td><td> 133111 SIA</td><td> SFCUR.I</td>

<td> 031 7</td><td> 16763</td><td> 026367 LOB</td><td> MAXAO</td>

CLEAR SECURITY WORD.

SET TO CLEAR ALL USER MEMORY.

CLEARS FROM A TO B-J. BOMBS IF 8<A.

WANT TO DEPOSIT B INTO At INDIRECT.

DONE YET7

YES. RETURN.

3,859,635

321

MAGNETIC CARD BLOCK.-Continued

322

NO, CLEAR LOCATION A.

A ALWAYS NON ZERO. INCREMENT A.

TEMP R/W.

W327·****************************** 2328 END » NO ERRORS*

MICROPROCESSOR

All of the above-listed routines and subroutines of basic instructions are implemented by the basic computing system shown in FIGS. 3A-B. Central control of this system is achieved by microprocessor 120. As shown in the block diagram of FIG. 136 and in the detailed schematic diagram of FIGS. 137A-D, the microprocessor comprises a bipolar ROM 200 including seven ROM chips organized into 256 words of 28 bits. Eight J-K flip-flops contain the ROM address; (i.e. a 4-bit primary address and a 4-bit secondary address). A single chip 16-bit data selector permits any one of 16 different qualifier lines to be tested with a 4-bit qualifier code. This 4-bit qualifier code ROM chip serves a dual function in that it provides a complementing code to the 4 primary address flip-flops as well as selecting the proper qualifier to be tested. If branching in any ROM state is desired, the microinstruction BRC must also be given. BRC occurring with a QN (qualifier not met) signal from the data selector will cause the least significant bit of the address code to be inhibited to the secondary address flip-flop, thus causing the address to “branch” according to the state of the qualifier.

An additional feature of this ROM organization is the IQN microinstruction (inhibit if qualifier not met). When the IQN is given and the qualifier selected by the qualifier code is not met, the signal CCO (clock code zero) goes low. This inhibits all shift clock pulses from the clock decoder which in effect prevents execution of microinstructions in that ROM state.

To minimize the ROM word length, two three-toeight-line decoders are used to expand 3 R-code outputs and 3 X-code outputs into a total of 14 microinstructions. Also the SCO and SCI outputs from ROM No. 5 are decoded in the Memory. The ALU code outputs, ACO, AC1, and AC2 are treated as address inputs to the ALU ROM and therefore need no decoding.

The microprocessor is responsible for the following:

1. Issuing a four-bit clock code to the clock decoder during each ROM state.

2. Issuing microinstructions to the memory, including the read and write microinstructions.

3. Issuing microinstructions to the shift registers for gating serial data into or out of the proper registers.

4. Issuing a four-bit ALU code to the Arith Logic Unit to select the proper binary or BCD arithmetic function.

5. Performing logical decisions (branching) based on the states of 16 qualifier inputs to the microprocessor.

6. Issuing next address information to the ROM address flip-flops in the microprocessor.

7. Transferring control to the input/output controller via the I/O strobe for execution of input or output instructions.

The full set of 28 ROM outputs with their associated microinstructions, the list of 16 qualifiers and assigned codes, and the microprocessor mnemonics are contained in the following tables:

MICRO-INSTRUCTION SET TABLE «-POSITIVE

TRUE-*

NEGATIVE TRUE OUTPUTS

CONTROL ROM FIELD OUTPUT

DECODED ^-INSTRUCTION OUTPUT

FUNCTION

GENERAL 1. ION

2. BRC

3. TTT

4. TTM

5. XTR

S-CODE 6. SCI

7. SCO

Decoded In Memory SCI SCO ZTS 0O

MTS 01

TTS 10

UTS 11

INHIBIT SHIFT CLOCK IF QUALIFIER NOT MET. BRANCH: INHIBITS SOO IF QUALIFIER NOT MET.

T BUS -* T REG

T BUS -> M 5.

A/B REG-» R BUS

ZERO -> S BUS M REG-* S BUS T REG -* S BUS

ONE -» S BUS

R-CODE

8. RC2

9. RCI

10. RC0

Decoded In Microprocesser RC2 RCI RC0 UTR 0 00

PTR 0 0I

TRE 0 10

ONE -* R BUS

P REG -» R BUS

T REG —< E REG-, R BUS STORE CONTENTS T REG -, MEMORY

T BUS —» Q REG (BIT 6)

Q REG -» R BUS

READ MEMORY <M> -* T REG

ZERO -* R BUS

WTMZTR 0 1

TQ6ZTR 1 0

OTR I 0

RDM ZTR I I

ZTR 1 1

Decoded In Microprocessor

XC2 XC1 XC0

3,859,635

323

324

MICRO-INSTRUCTION SET TABLE - Continued

<td> POSITIVE TRUE</td><td> NEGATIVE TRUE OUTPUTS</td>

FUNCTION

CON TROL ROM DECODED ^-INSTRUCTION

FIELD OUTPUT OUTPUT

<td> 1 3.xco ALU 14. AC2 15. AC1 16. ACO</td><td> BCD TBE CAB TTP TTX NOP XOR AND IOR ZTT ZTT CBC IOR CBC IOR SBC ADD</td><td colspan="2"> 0 1 0 1 1 0 1 0 1 1 1 I Decoded In ALU AC2 AC1 0 0 0 0 0 1 0 1 1 0 1 0 1 1 1 1</td><td> 0 1 0 1 0 1 ACO 0 1 0 1 0 I 0 1</td><td colspan="4"> BCD ARITHMETIC MODE OF ALU T BUS -» E REG -» R BUS COMPLEMENT THE AB FLIP-FLOP T BUS -* P REG T BUS -» A/B REG NONE OF THE ABOVE EXCLUSIVE OR ......R + —»T BUS LOGICAL AND ..... R S —» T BUS INCLUSIVE OR .., R + S —► T BUS ZERO-» T BUS ZERO -» T BUS, CLEAR BINARY CARRY INCLUSIVE OR, CLEAR BINARY CARRY INCLUSIVE OR, SET BINARY CARRY BINARY ADD</td>

<td> CONTROL FIELD CLOCK QUALIFIER SECONDARY ADDRESS 28. SOO</td><td colspan="2"> ROM OUTPUT 17. CC1 18. CC2 19. CC4 20: CC8 21. QC3 22. QC2 23. QCI 24. QCO 25. SO3 26. SO2 27. SOI met, the SOO bit is inhibited.</td><td colspan="4"> FUNCTION This 4-bit code initializes a presettable down counter to generate any number of shift clocks from 1 through 16. .Shift is inhibited by IQN if QUALIFIER not met._ This 4-bit code performs two functions: (I.) Addressing the data selector to select one of sixteen QUALIFIER inputs, e(2.) Provides complement code to PRIMARY Flip This 4-bit code provides complement *1 code to the SECONDARY Flip-Flops. Jf BRC is given and QUALIFIER is notj</td><td> Flops^</td><td></td>

SPECIAL MICRO-INSTRUCTIONS TOR = UTR XTR .....TRANSFERS

O-REGISTER TO PRIMARY ADDRESS as shown

IOS = PTR XTR ... .INITIATES

Q14Q11 012 Q13 014

PO4 PO5 PO6 PO7

a) TRANSFER OF CONTROL TO I/O IF 010 = 1

b) SETS “SINGLE SERVICE” FF IN I/O VIA SRA IF O10 = 0 SPECIAL OPERATIONS

BCD SUM-» A <B_n> = BCD UTR ROM CLOCK CLEAR DECIMAL CARRY = QAB ROM CLOCK SET DECIMAL CARRY = UTR BCD ROM CLOCK DECIMAL ADD = BCD ZTT......T <(l_3> +A 0

IQ’s COMPLEMENT W/DEC1MAL ADD = BCD ADD ......

,.,. T ,-F A <e_3> —» 0 <o-a>

<0-3>

QUALIFIER SET TABLE

QUALIFIER CODE

QC3 QC2 QC1 QCO MNE- FUNCTION

MONIC

<td> 0</td><td> 0</td><td> 0</td><td> 0</td><td> QOO</td><td> SHIFT/SKIP ONE BIT</td>

<td> 0</td><td> 0</td><td> 0</td><td> 1</td><td> Q01</td><td> SHIFT/SKIP TWO BITS</td>

<td> 0</td><td> 0</td><td> 1</td><td> 0</td><td> 002</td><td> SHIFT/SKIP FOUR BITS</td>

<td> 0</td><td> 0</td><td> 1</td><td> 1</td><td> Q03</td><td> SHIFT/SKIP EIGHT BITS</td>

<td> 0</td><td> 1</td><td> 0</td><td> 0</td><td> Q04</td><td> FAST SQUARE ROOT QUALIFIER</td>

<td> 0</td><td> 1</td><td> 0</td><td> 1</td><td> 005</td><td> SET BIT IN A/S GROUP; FDV QUALIFIER</td>

<td> 0</td><td> 1</td><td> 1</td><td> 0</td><td> 006</td><td> T-BUS QUALIFIER VIA TO6</td>

<td> 0</td><td> 1</td><td> I</td><td> 1</td><td> QBC</td><td> BINARY CARRY FROM ALU</td>

<td> 1</td><td> 0</td><td> 0</td><td> 0</td><td> OPO</td><td> P-REGISTER BIT O, FOR BCD COUNTING</td>

<td> 1</td><td> 0</td><td> 0</td><td> 1</td><td> 015</td><td> INDIRECT ADDRESS, CLEAR BIT IN A/S GROUP</td>

<td> 1</td><td> 0</td><td> 1</td><td> 0</td><td> OMR</td><td> MEMORY REFERENCE QUALIFIER</td>

<td> 1</td><td> 0</td><td> 1</td><td> 1</td><td> 010</td><td> CURRENT PAGE QUALIFIER FXA QUALIFIER</td>

<td> 1</td><td> 1</td><td> 0</td><td> 0</td><td> ONR</td><td> ΝΟΝ-SERVICE REQUEST QUALIFIER</td>

<td> 1</td><td> 1</td><td> 0</td><td> 1</td><td> 008</td><td> FMP QUALIFIER</td>

<td> 1</td><td> 1</td><td> 1</td><td> 0</td><td> QDC</td><td> DECIMAL CARRY FROM ALU</td>

<td> I</td><td> 1</td><td> 1</td><td> 1</td><td> * ORD</td><td> ROM DISABLE (NORMALLY ZERO)</td>

POP WILL PRESET ROM ADDRESS FLIP-FLOPS AT TURN-ON • ORD MAY BE USED WITH IQN TO INSURE ZERO SHIFT EXCEPT WHEN IN I/O LOOP

3,859,635

325 326 microprocessor mnemonics microprocessor mnemonics - Continued

Clock Signals

<td> MCK</td><td> Memory Clock</td>

<td> SCK</td><td> Shift Clock</td>

<td> XTC</td><td> External Clock</td>

<td> RCF</td><td> ROM Clock for Flip Flops</td>

<td> RCA</td><td> ROM Clock for Address Flip Flops</td>

<td> IIC</td><td> Inhibit Internal Clock</td>

<td> INH</td><td> Inhibit Clock</td>

<td> IPS</td><td> Inhibit ROM Clock (Also primary</td>

<td></td><td> and secondary Flip Flop)</td>

<td> CC4 1</td><td> Clock Code: Binary Code that</td>

<td> CC2 I</td><td> programs the number of</td>

<td> CCI7</td><td> shift clocks</td>

<td> CC*</td><td> Inhibits Shift Clocks</td>

<td> Address Mnemonics FoF</td><td> Power on Preset</td>

<td> IQN</td><td> Inhibit if Qualifier not met</td>

<td> BRC</td><td> Branch</td>

<td> O-Register</td><td></td>

<td> TOR</td><td rowspan="2"> Transfer Qll, Q12, Q13, 014 to primary addr. Flip Flops</td>

<td> TTg</td><td> T-Bus to O-Register Q-Register to R-Bus</td>

<td> 05 ></td><td> Bits 1φ- φ of O-Register</td>

Data Qualifiers

<td> QP4</td><td colspan="3"> Bit φ of P-Register</td><td> ROM</td><td> CHIP</td>

Clock Signals

<td> ORD QNR</td><td> Qualifier ROM Disable (1/0 Interiipt) Qualifier No Request (keyboard</td>

<td></td><td> Interupt)</td>

<td>3 QDC</td><td> Decimal Carry</td>

<td> QBC</td><td> Binary Carry</td>

<td> Memory</td><td></td>

<td> TTT</td><td> T-Bus to T-Register</td>

<td> 10 TIM</td><td> T-Bus to M-Register</td>

<td>lu RDM</td><td> Read Memory</td>

<td> WTM</td><td> Write Memory</td>

<td> A, B, P, E-Registers</td><td></td>

<td> QAB</td><td> Q-Register to AB Flip Flop</td>

<td> AB = φ</td><td> A-Register Operation</td>

<td> AB = φ</td><td> B-Register Operation</td>

<td> 15 TTX (ROM)</td><td> T-Bus to A or B Register</td>

<td></td><td> (Originates at ROM Decoder)</td>

<td> XTR</td><td> A or B Register to R-Bus</td>

<td> TTP</td><td> T-Bus to P-Register</td>

<td> PTR</td><td> P-Registers to K-Bus</td>

<td> TBE</td><td> T-Bus to E-Register to R-Bus</td>

<td> TRE</td><td> T-Register to E-Register</td>

<td> 20 UTR</td><td> Units to R-Bus</td>

<td> ACl f</td><td> Arithmetic Codes for Arithmetic</td>

<td> AC*)</td><td> Logic Unit</td>

<td> BCD</td><td> Decimal Arithmetic</td>

<td> SDR</td><td> Disables ROMs For Single Step</td>

<td></td><td> Tester Operation</td>

Each of the ROM chips of FIGS. 136 and 137 A-D is organized into 256 words of 4 bits each constructed in accordance with the following table, where each L represents a low (or 0) state and each H represents a high or (1) state:

<td> HHHH</td><td> LHrIH</td><td> HHLH</td><td> HHLH</td>

SN23703

SN23704

3,859,635

327 328

ROM CHIP 4

ROM CHIP 5

SN2370 4

0086 2055,(19,1,91024

0007 ROMS 0088 02,11,71

3,859,635

329 330

ROM CHIP 5 —Continued

.0.12

ROM CHIP 6

0123 2356,09,2,4,01024

0124 R0M6

0125 02,11,71

3,859,635

331

332

SN23707

ROM CHIP 7

<td> (! 18 3</td><td> ! 5 ? * 5 ?</td><td> LLL;'I L^LL HHiiH LHLH LHHH LLHH HHHH HLLL</td>

ROM CHIP 8

SN2370 7

0197 20'58,09,1,4,01.024

0196 ROMS

0199 02,11,71

0200 733 ___

3,859,635

334

333

ROM CHIP 8-Continued

<td> 0220</td><td> 152«</td><td> 1 <> n</td><td> Η Η ΗI</td><td> HHHL</td><td> HHHL</td><td> HHHL</td><td> HHHH</td><td> HHHri</td><td> HL Hl.</td><td> HHHL</td>

<td> 0229</td><td> 22 4«</td><td> 231 .</td><td> HJHKL</td><td> LHHH</td><td> LLLL</td><td> HHLH</td><td> HHHH</td><td> LHLH</td><td> HHHH</td><td> HHHH</td>

ROM CHIP 9

<td> 0256</td><td> 144-151</td><td> HLLH</td><td> HHHH</td><td> HHLL</td><td> HLHH</td><td> HHLL</td><td> HLLH</td><td> HiiKH</td><td> HHLL</td>

3,859,635

335

336

Each of the 71 basic instructions employed by the calculator is implemented by one or more of the abovedescribed microinstructions and associated control signals issued by the microprocessor. The manner in which this is accomplished is shown and described in detail in the flow charts of FIGS. 138A-H. Each rectangular box of these flow charts represents a state of ROM 200 of the microprocessor and includes the mnemonic of the microinstructions and control signals stored in that ROM state. The number at the upper right-hand corner of each of these rectangular boxes represents the number of shift clock pulses required by the microinstructions of that ROM state. A simplified overview of these detailed flow charts is shown in FIG. 7.

PROGRAMABLE CLOCK

Given a computing system organized to process binary data serially and under control of microinstructions stored in ROM 200 as shown in FIGS. 3A-B and 136, the implementation of a general purpose instruction set requires that some number of bits be shifted into or out of the storage registers. Depending on the operation being performed, the number of bits may vary from zero to n, where n is the number of bits in a single machine word.

If each clock period of the ROM clock corresponds to a one bit shift, a count loop must be employed to provide the desired number of shifts. A rather large number of such count loops would exist in order to implement an entire .instruction set. An alternative method is to provide additional hardware which permits assignment of the desired number of shifts in a single state of ROM 200. Such an arrangement requires a variable cycle time for each state of ROM 200, but results in a very substantive saving in total number of ROM states.

To implement a variable number of shift clocks in a single state of the microprocessor, two separate clocks are required. The shift clock is applied to the data storage registers in the memory, the shift register block, the arithmetic logic unit and the input/output block. The ROM clock is applied to the ROM address flip-flops in the microprocessor, and occurs once for each state in the microprogram. The number of shift clock pulses that occur in any given ROM state is determined by a 4-bit clock code sent to the clock decoder from the microprocessor.

If no shift clocks are desired, a separated signal CC0 from the microprocessor inhibits the shift clock output, independent of the clock code issued in that state. In, this way, any number of shifts between and including zero and 16 may be implemented with a 4-bit clock code and an inhibit signal.

This inhibit signal offers an additional powerful feature when gated by the qualifier test logic in the microprocessor as shown in FIG. 136. The qualifier test logic including a 4-bit qualifier code from ROM 3 that selects one of 16 qualifier inputs to the data selector. The data selector output QN (qualifier not met) will be high if the selected qualifier input was low. By using the QN signal to gate the inhibit microinstruction, IQN, the shift clock will be inhibited only when the qualifier is not met. Thus all microinstructions requiring shift clocks that are issued in a given ROM state may be either executed or inhibited, depending on the logical state of the qualifier under test.

The ROM clock is applied to the eight J-K flip-flops which address the 256 word microprocessor ROM. During any given state, the complementing (J-K) inputs to the four primary address flip-flops are set up by the qualifier code or ^-register code, the four secondary address flip-flop inputs are determined by the ROM 4 outputs, the BRC microinstruction, and the 5 data selector output QN. Where ROM clock goes low, the negative edge-triggered flip-flops will cause transition of the ROM address to the next ROM state.

As shown in the block diagram of FIG. 139 and the detailed schematic diagram of FIGS. 140A-C, a crystal 10 controlled system clock output is inverted to generate memory clock, MCK. This signal is again inverted to clock a D flip-flop having an output (control clock), which will go low if the end-of-count signal (borrow) from the down counter has occurred at the D input. 15 The ROM clock will also go low at this time, initiating a new ROM state in the microprocessor. Control clock will normally remain low for one system clock period, and in turn generates a load signal which is delayed a half period from control clock by means of a second D 20 flip-flop. The 4-bit clock code from the microprocessor is preset into the counter while the load signal is low.

As the load signal goes high, ROM clock also goes high, completing the fixed interval portion of ROM clock and shift clock as shown in FIG. 141. A series of 25 clock pulses are now gated onto shift clock, SCK, until the preset counter has counted down to zero, causing control clock to again go low, completing the ROM cycle.

The inhibit signal, INH, from memory may lengthen 30 the normal fixed interval of ROM clock by clearing the D flip-flop and holding control clock low. This may occur during memory refresh or external test operations. In this situation, the counter remains preset and the correct number of shifts will be generated when the inhibit goes away.

SHIFT REGISTER UNIT

As shown in the detailed schematic diagrams of 40 FIGS. 137A-D and 142A-D, A-register 122, B-register 124, P-register 126, Q-register 128, and E-register 130 comprise bipolar status registers, the contents of which are recirculated when data is output to the R-bus or the S-bus. Full control of these registers in use and type of 45 operations performed is maintained by the microinstructions from the from the microprocessor. The number of bits to be shifted in any one ROM state of the microprocessor is determined by the number of shift clocks from the clock decoder. This shift clock appears 50 at the shift clock input of each shift register that is enabled by the microprocessor during that ROM cycle.

ARITHMETIC LOGIC UNIT

The development of complex and read-only memory arrays on a single chip have made possible a hardware implementation of central processing units (CPUs) and arithmetic logic units (ALUs) with far fewer components than were previously possible. In this application, 60 two bipolar read-only memory chips are combined with carry flip-flops and adapted to perform 1-bit binary logic and arithmetic operations as well as 4-bit binary coded decimal (BCD) arithmetic operations. The two bipolar read-only memory chips may comprise, for ex65 ample. Hewlett-Packard 16-pin dual-in-line packaged bipolar ROMs organized into 256 words by 4-bits and of the same type as shown and described in U.S. Pat. App. Ser. No. 12,262 filed Feb. 18, 1970 by John C. Barrett et al. and assigned to the same assignee as this patent application.

3,859,635

337

The binary/BCD Arithmetic Logic Unit consists of five integrated circuits connected as shown in the block diagram of FIG. 143 and the detailed schematic diagram of FIGS. 142A-D. Specifically, the packages consist of two 1024-bit ROMs, a dual D-type flip-flop and two quad two-input NAND gates. The function code input BCD selects between the binary mode and BCD mode of operation.

In the binary mode, the function code inputs ACO, AC1, and AC2 select the desired logical function or arithmetic operation as given in FIG. 144. The binary input data enters ROM No. 1 on the carry, S-bus and R-bus input lines, and the binary result appears on the T-bus and binary carry output lines. ROM No. 2 is not used in the binary mode.

In the BCD mode of operation, the two function code lines ACO and AC1 are disabled from the Microprocessor and these two lines carry the TO2 and TO3 bits of BCD data from the T-Register. The ALU function code line AC2 is used to select the desired BCD operation. If AC2 is low, the 4-bit output Σο, Σι, Σι, Σ3 will be the BCD sum of the two BCD data inputs. If AC2 is high and decimal carry has been set, the 4-bit output Σο, Σι, Σ2, Σ3 will be the BCD Tens Complement of the BCD data from the T-Register. In the BCD mode, the binary carry output will be disabled and the decimal carry output will be enabled to ROM No. 1.

Although only one-fourth of the available registers in ROM No. 1 are required for the eight binary operations, the concept of adding a second 1024-bit ROM to perform the BCD operations grew from several basic concepts:

1. The least significant BCD sum bit, Σο, is always identical to the binary sum bit; therefore, only three additional outputs, Σι, Σ2, and Σ3 need be generated. For BCD complement operations, the decimal carry flip-flop defines whether or not the least significant bit should be complemented.

2. In forming the “nine’s complement” of the TRegister BCD data in ROM No. 1, it can be seen that for 8421 code the second least significant bit TO1 is the same before and after forming the complement. Thus only two bits, TO2 and TO3 need be complemented prior to input into ROM No. 2. The ten’s complement with add is then found by presetting decimal carry and performing a BCD sum of the three most significant digits in ROM No. 2.

3. With only eight ROM inputs available, some sharing of inputs is required for ROM No, 1. During binary operations, all four function codes and only one bit of T-Register data is required. During BCD operations, all four bits of T-Register data and only two function codes are required. Use of two NAND gates in wire-OR connection with the open collector function codes ACO and AC1 permits sharing of the two inputs.

This arrangement left one input still available to ROM No. 2. By programming this input to always make output DC! true, the micro-instruction UTR can serve two purposes—placing units on the R-bus and also set decimal carry if BCD is true. When BCD is false, clock is inhibited to decimal carry. This feature permits saving decimal carry information during all binary operations. Similarly, binary carry is saved during the four binary operations AND, IOR, XOR, and ZTT by connecting AC2 such that when AC2 is false the shift clock is inhibited to the binary carry flip-flop.

338

In summary, the mode select input BCD performs the following functions:

1. Addresses the proper 128 word set of word lines in ROM No. 1.

2. Enables the TO2 and TO3 data lines to ROM No.

only in BCD mode.

3. Enables clock to decimal carry flip-flop only in BCD mode.

4. Selects binary carry or decimal carry into ROM No. 1 as appropriate.

5. Transfers outputs Σο, Σι, Σ2, Σ3 to A-Register only in BCD mode.

The remaining three ALU function codes select the proper set of word lines in ROM No. I to perform the eight binary functions listed in FIG. 144. In addition, the AC2 input performs the following functions.

1. Enables clock to binary carry flip-flop only during the four carry-related binary functions and the BCD comp/add function.

2. In the BCD mode, AC2 causes BCD data bit TOO, TO2 and TO3 to convert the nine’s complement form.

The ALU has a total of 15 inputs which include eight data inputs, two clock inputs and five microinstructions. Four data output lines are required, and two additional output lines from carry flip-flops are available as qualifier inputs to the microprocessor. The ALU and shift register mnemonics are listed in the following table:

SHIFT REGISTERS & ALU BOARD MNEMONICS

TRE T-Register to E-Register to It-Bus

TOA Bit φ of T-Register _

TBE T-Bus to E-Register to R-Bus

TTX - TEST T-Bus to A/B-Register from Tester

TTX - I/O T-Bus to A/B-Register from I/O (Board No. 12)

TTX - ROM T-Bus to A/B-Register from μ-Processor ' (Board No. 13) ____

TTX Logical “OR” of Three TTX Signals

AB Status of AB-Flip-Flop

AB = O A-Reg. Operation ____ AB = 1 B-Reg. Operation

XTR A/B Register toR-Bus

UTR Logical “ 1 ” to R-Bus

TQR Q-Register to Primary Address Flip-Flops

AB. Complement of AB

TTP T-Bus to P-Register

SCK Shift Clock

QP0 Qualifier, Bit φ of P-Register

PTR P-Register to R-Bus

QO0 Q-Register Bit φ

QTR Q-Register to R-Bus

RCK ROM Clock

QAB Q-Register to AB-Flip-Flop, also clears decimal carry.

SCB Set Binary Carry

QDC Qualifier, Decimal Carry

BCD Decimal Arithmetic

AC2 ALU Operation Code

QBC Qualifier, Binary Carry

S-BUS Data Bus

AC1 ALU Operation Code

AC£ ALU Operation Code

TO2 Bit 2 of T-Register

TO3 Bit 3 of T-Register

SDR Signal to Disable ROMs

TO1 Bit 1 of T-Register

T-BUS Data Bus

ALU Arithmetic Logic Unit (—) Indicates Negative True Signal

FIG. 145 lists five dual-in-line integrated circuits that may be employed in the ALU. The following table gives an example of how the two ALU ROM chips shown in FIGS. 142A-D and 143 can be constructed to implement the above described ALU functions (in this table each 1 represents a low state and each 0 represents a high state):

3,859,635

339

340

13301-9-06/

ROM #1

<td> 40/</td><td> 0003;</td><td></td><td> 41/</td><td> flOOO;</td><td> • 42/.</td><td> 0 Ο O 0;</td><td> 43/</td><td> 103 3</td>

<td> 64/</td><td> 1 100;</td><td></td><td> 65/</td><td> 1 130;</td><td> 66/</td><td> 1 iflfl;</td><td> 67/ '</td><td> 1 100</td>

<td> 1 52/</td><td> 001 1;</td><td></td><td> 153/</td><td> iflii;</td><td> 154/</td><td> 1011;</td><td> 1 55/</td><td> 0111</td>

<td> 1 83/</td><td> 0003;</td><td></td><td> 181/</td><td> 3300; ·</td><td> 182/</td><td> OflOPi;</td><td> 183/</td><td> 03SO</td>

<td> P.?z.z</td><td> 30 30;</td><td></td><td> 22 5/</td><td> fiiioa;</td><td> 22 6/</td><td> 0033;</td><td> 22 7/</td><td> 0300</td>

<td> 22:/</td><td> 330«;</td><td></td><td> 229/</td><td> (2009;</td><td> 23·.’/</td><td> 0O00;</td><td> 231/</td><td> OOflfl</td>

3,859,635

341

342

ROM #2

I33O1 -03 :< 7/

<td> /</td><td> 008 01 '</td><td> 1 /</td><td> OOOfJ;</td><td> 2/</td><td> 00 30;</td><td> 3/</td><td> 00 00</td>

<td> 32/</td><td> 0990;</td><td> 33/</td><td> socio;</td><td> 34/</td><td> 0000;</td><td> 3 5/</td><td> 0 00 0</td>

<td> 36/</td><td> SOOS;</td><td> 3 7/</td><td> O0O0;</td><td> 38/</td><td> ΘΟΡΙΟ;</td><td> 39/</td><td> 9030</td>

<td> 1 56/</td><td> 1019;</td><td> 1 57/</td><td> 0390;</td><td> 1 58/</td><td> OOOfi;</td><td> 159/</td><td> 000 0</td>

<td> ?'+:/</td><td> 1001;</td><td> 2 09/</td><td> 0111;</td><td> 2 1 3/</td><td> liter</td><td> 211/</td><td> 1100</td>

<td> 232/</td><td> ooiKi; ‘</td><td> 2 33/</td><td> 0000;</td><td> 2 3 4/</td><td> 0330;.</td><td> 2 3 5/</td><td> 0090</td>

3,859,635

343

MEMORY UNIT

The calculator uses an all semiconductor memory system. Peripheral circuitry is bipolar and the memory consists of n-channel MOS read only memory (ROM) and p-channel MOS read/write memory (RWM). 5 Addressing and physical layout of the memory module is done so that the number of words can be increased from 3K in the basic machine to 7.5K in the largest machine. The smallest increment of memory that can be added in 512 words. Provisions have been 10 made to contain all add-on RWM within the memory module. Add-on ROM is external to the memory module, behind the display.

The basic machine contains 3K words of memory, organized into 2K x 16 ROM, 512 X 16 and 512 X 6 15 RWM. The 16 bit RWM words are divided into 109 user registers (four words) and 76 words for processor use. The 6 bit RWM words are program steps. The largest machine contains 5K words of ROM and 2.5K words of RWM, of which 512 words are 16 bit. 20 Read/Write Memory

As shown in FIGS. 146-150 memory is made up of 1024 X 1, dynamic, Read/write memory chips (Intel 1103). These devices are P-channel, MOS using silicon gate technology. To maintain the contents of memory, 25 the device must be refreshed every 2 ms. This is accomplished by performing a read cycle at a given address. On each chip are 32 refresh amplifiers so that each read cycle, 32 cells get refreshed. The entire chip is then refreshed by cycling through the lower 5 address 30 bits and reading each distinct address. The refresh period is 20 p.s at least every 2 ms.

Logic levels on all input lines to the RWM chips are 0 to + 16v. This includes the three clock lines (chip select, Y-enable or write, and precharge), 10 address 35 lines, and input data. The output data, however, is a current of 600 /xa or more into IK ohms or less. This low level output is “wire-or able” with other chips to build larger systems.

Read Only Memory 40

As shown in FIG. 146,147,151, and 152 ROM chips are 4096 bit, n-channel MOS arranged 512 X 8. The devices are static and consume no power when not enabled. Data is retrieved from the ROMs by pulling the chip enable line from 0 to + 12v (turning the chip on), 45 addressing the desired cells (0 or 4v levels) and selecting which output devices are to be enabled (4v or Ov). The output levels are sufficient to drive one TTL gate directly, and can be “wire-or/ed” for large systems.

As further shown in FIGS. 153 and 154 A-D, each 50 ROM chip comprises six input buffers. These input buffers generate both the input and its complement. On the basis of the 64 possible combinations of the 6inputs Iq—I5, one of the 64 lines in the decoder is selected. The selected line enables one of the vertical 55 lines in the 64 X 64 bit storage array. For example, let Io - Is = 0 and I, - lg be “don’t cares”. This means line X00 (octal) is selected.

The two 8 out of 32 select decoders must choose 16 lines from the 64 horizontal lines selected by the verti- 60 cal line X00- (The 8 out of 32 select decoder is actually a 2 put of 8 decoder repeated 4 times in each of the section A - B.) The output from four MOS FET’s a, b, c, and d are wire or/ed. MOS devices a', b', c', and d' are also connected similarly. If Ie and I7 = 0, horizontal 65 lines 1XX, 2XX, 3XX, 5XX, 6XX, 7XX are grounded in each of the four sections A-B. This insures that MOS FET’s fl, c, d, b', c', and d' are non-conductive. This allows signals on lines 0ΧΧ and 4XX to pass into the output sections through transistors a and a'.

344

The output section contains the output buffer, 1 out of 2 decoder, and the output drivers s. The output butter provides a stage of gain and “wire or’s” four lines from the storage array. The 1 our of 2 decoder clamps the gates of 2 of the 4 output drivers in each section A-B by enabling either line I8 or its complement (1/). This disables 1 of 2 signals coming from the output buffer. The output drivers then can be tied together with line (e) for a 512 X 8 organization.

Each of the above-listed constants and routines and subroutines of basic instructions employed by the calculator is stored in these ROM chips. This is accomplished by partitioning the 0 to 16,777 octal addresses of the memory map of FIG. 4 into 51210 X 8]0 blocks which is the capacity of each 4096-bit ROM chip. These blocks are represented in the memory map of FIG. 155. The next step is the inversion of the 8 bits (if the input was 1, it is now a 0) and complimenting of the address (i.e. once the octal addresses 0 - 16,777 are partitioned into 512 X 8 blocks, only the last 3 octal digits are important). For this reason, address 777g goes to 000,776e goes to 001, ........ and 000 goes to

777«.

The 16 bits of each constant and basic instruction are stored in the 5121O x 8,0 ROM chips by organizing the ROM chips into 64 X 64 bit matrices and computing the row and column numbers of each bit of each matrix by operating on each address and the particular bit (15 through 8, or 7 through 0). The column number is computed by subtracting the last two digits of the address from 1008. For example, the column number of address 000 = 1008 — 008 = 100 = 6410 and the column number of address 777 = 1008 — 778 = 1. The computation of the row number (referred to as IR in the flowchart of FIG. 156) can best be described by referring to the flowchart of FIG. 156 and the associated table of FIG. 157. Once the row and column numbers are found it is a simple matter of storing in that location of the matrix that particular bit (i.e., a 1 ora 0). A 0 is stored at a designated location by forming a metal gate to complete a MOS FET device at that location, and a 1 is stored at a designated location by leaving off the metal gate so that a MOS FET device is not formed at that location.

M-Register

As shown in FIGS. 146, 147, and 158 A-D included on the Μ-Register board is the 16 bit Address or MRegister, all chip enable decoding and buffering, and address buffers for both ROM and RWM. The register uses four, four bit, serial in and out, parallel in and out shift Registers. Upon receipt of a ITT instruction from the microprocessor, serial data from the T-Bus is accepted into the M-register. Nothing is done with this data until either a read or write instruction is received, then one of two decoders are enabled. These chip Enable decoders uniquely decode which block of 512 words, either ROM or RMW, is being addressed. If ROM is being addressed, the signal is inverted and amplified to +12v. For RWM the Chip Enable enables a gate, which allows a 16 Volt clock signal to reach the enabled RWM chips. The clock wave-form is generated on the control card.

The dynamic characteristic of the RWM chips, requires that all chips be enabled simultaneously during a refresh cycle, to refresh the entire read/write memory. The buffer circuits in the output of the Chip Enable decoders allow the chip select clock to reach all of the RWM chips during refresh but only those being accessed, during a read or write cycle.

3,859,635

345

Open collector nand gates with resistor pull-ups are used as buffers for the ROM address lines. Using the open collector gates, the address lines can be pulled above the required 4v level. The nand gates are enabled during a memory cycle so that the ROM address lines are inhibited at a 5v level. The RWM address lines must pull from Ov to + 16v. High voltage, open collector, inverters with discrete transistor pull-ups are used as buffers for the 5 most significant bits. The 5 least significant address bits are bussed to the control card where they are used in part of the refresh circuitry. Control

A memory cycle consists of a read or write instruction from the processor accompanied by 12 clock pulses from the shift clock. As shown in FIGS. 146, 147, 159 A-D, and 160 control uses these pulses and instructions to generate the clocks required by the RWM chips. A synchronous 4 bit counter (SN74193) is used to count clock pulses and the 4 outputs are decoded by a 1 of 16 decoder (SN74154) to generate J and K input to flip-flops. The outputs from the flipflops are then buffered to become the required clock signals (Precharge, Y-enable, chip select).

Refreshing the read/write memory is also taken care of by the control card. An astable multivibrator with a repetition rate of 500 hz. minimum generates a signal which allows a refresh cycle to occur. A flip-flop generates the actual signal (REF), but only if the astable multivibrator signal is high, there is no read or write cycle in progress and the processor signal, CCT, is high. CCT goes high between processor instructions, thus it is known that nothing is going to be interrupted when REF is generated. REF is then buffered by an open collector inverter and given to the processor as INH. INH halts the machine and the refresh cycle begins.

The same counter used for a memory cycle, is used during refresh to again generate the necessary clocks (Precharge and chip select). When the counter returns to state 0 and REF is present, a second counter is advanced one count. This second counter provides the refresh addresses which go to the RWM only if REF is present. When this counter returns to state 0, it causes REF and INH to return to preset conditions and the machine continues normal operation.

A further function of the control card is to make the 1024X1 memory chips appear to the processor like 512 X 2 chips. This is done by accessing the RWM twice during each memory cycle. Hence, half-way through each refresh or memory cycle a flip-flop changes state to generate one address bit. The M-register thus provides only 9 address bits and the control card 1 bit, independent of the M-register.

Other signals generated on the control card, direct the flow of data in the T-register.

T-Register

Data to and from the memory is temporarily stored in the T-register. As shown in FIGS. 146, 147, and 161 A-D four 4-bit, serial in and out, parallel in and out shift registers make up the actual T-register. The registers have a mode control (TMC) which when low, allows serial data flow and when high, allows parallel data flow.

Serial data enters the T-register in the presence of a TTT instruction. Data is serially transmitted to the S-bus during a TTS instruction, and simultaneously recirculated into the T-register to prevent loss of data.

Parallel data is accepted from either ROM or RWM during a read cycle. The ROM data is buffered by nand gates and the RWM by sense amplifiers followed by the

346 same nand gates. Multiplexing the RWM means that only one-half the data bits are transmitted between RWM and the R-register during each half of the memory cycle. The first half of the read cycle, the odd bits are loaded into the T-register. To complete the transfer these bits must be shifted right one place and the odd bits again loaded from the RWM. This is done by allowing the odd bits to appear as data at the input of the even bits. When new data is clocked into the T-register during the second half of the read cycle, the even inputs are also clocked in, filling the T-register. This isn’t done with ROM since all ROM is transferred 16 bits parallel.

Data is written into memory in a manner similar to the way data is read from RWM. The bits are 16v levels, after buffering, and are written by the odd bits followed by the even bits. The nand gates between the Tregister and the 16v buffers are gates from the control card to handle the write multiplexing.

INPUT-OUTPUT CONTROL UNIT

The input-output control unit allows the calculator to communicate with the internal input, input-output, and output units and with external peripheral devices. As shown in FIGS. 140 A-C and 162 A-D, the inputoutput control unit is contained on two printed circuit boards; the “Control and System Clock” board and the “I/O Register and Gate Interface” board. A third board, shown in FIG. 163, is an I/O motherboard providing room for connecting four external interface cards to the calculator.

The internal input, input-output, and ouput units are distinguished from peripheral devices by the fact that the I/O language set addresses them directly. Hence each I/O instruction contains an internal peripheral address as part of its makeup. The five internal directlyaddressable input, input-output, and output units are the I/O register, the magnetic card reader, the output printer, the x-, y-, and z- register display, and the keyboard mode lights.

The external peripheral devices are indirectly addressable and are connected via cable to an interface card which is plugged into the I/O motherboard at the rear of the calculator. The term indirectly addressable is defined here to mean the external peripheral devices are addressed by lines leading from the four most significant bits in the I/O register, thereby requiring an address word to be loaded into the directly addressable I/O register.

I/O CONTROL AND SYSTEM CLOCK SECTION

The function of the I/O Control and System Clock Section is to provide control to the I/O Register and Gate Interface Section. This is accomplished by use of an I/O instruction set stored in the main memory of the calculator.

The microprocessor causes instructions from the memory unit to be loaded into the T-Register and then to be transferred to the Q-Register. The microprocessor determines the type of instruction and causes the proper execution of the instruction. If the instruction is an I/O type, control is transferred by the microprocessor to the I/O Control and System Clock Section.

The microprocessor remains in a two state waiting loop while the I/O Control section is active. Time in the wait loop is between 0.72 μ seconds and 6.5 μ seconds.

Bits 5 through 10 from the Q-Register are connected to the I/O Control section and remain constant during an I/O instruction execution time. Bits 5 through 8 representing the I/O instruction code are gated to the I/O

3,859,635

347

348 address flip flops and entered on each clock time while the I/O is inactive. The four outputs of the address flip flops are connected to the address input of a 1 of 16 decoder and represent the starting state address of the I/O instruction to be executed. When the I/O Control Sec- 5 lion is enabled, the input gates passing bits 5 through Ϊ to the I/O address flip flops are closed and the 1 of 16 decoder enabled. This allows the starting state I/O nicro instructions to come from the 1 of 16 decoder.

The next state address coming from the closed input iq ’ates will be the exit state (1111=178) unless modified yy reopening the gates to let the original starting state code through or by modifying the output of one or nore of the input gates using a “wire or” connection coming from the 1 of 16 decoder output. This address 15 s sent to the I/O address flip flops inputs and clocked n on the leading edge of the first half clock cycle. The irst half clock cycle turns off the 1 of 16 decoder and :he address changes. The second half clock cycle enables the 1 of 16 decoder, allowing the next state micro 20 nstruction to appear. (See FIG. 164 for the timing deicribed above.) The process continues until the exit state is encountered. On the exit state, the I/O Control s disabled and control is returned to the microprocessor. 25

The I/O instructions involving the transfer of data beween the I/O and the CPU (OT, LI, MI), require 16 sasses through the same state (1 pass for each of 16 sits). This is achieved by checking the output of a 16 jit down counter and then decrementing after each 30 jass through the state. If the counter indicates 0 has not ?een reached, it causes the starting state address to be eloaded into the address flip flops by opening the input ;ates. When 16 passes have been indicated by the counter, the input gates are not allowed to open; how- 35 ;ver, the next state (1111) is modified by the output of he 1 of 16 decoder through a. wire-or connection on he 2cd bit to give state 1101. This address is input to he I/O address flip flops as in the proceeding paragraph. 40

The above-described operation of the I/O control lection is also illustrated and further described in the low chart of FIG. 165.

Bit 9 is called a hold/clear bit. It allows a clear flag CLF) to take place or not to take place after execuion of the other I/O instructions. (STF excepted)

Bit 10 is used in conjunction with the micro instrucions PTR and XTR to give control to the I/O.

The I/O control and programmable clock mnemonics 5Q ire given in the following table:

I/O CONTROL BOARD MNEMONICS

<td colspan="2"> I/O CONTROL BOARD MNEMONICS-Continued</td>

<td> ORD</td><td> do. ROM Disable</td>

<td> RCA</td><td> ROM Clock Address</td>

<td> RCF</td><td> ROM Clock Flip Flop</td>

<td> SCB</td><td> Set Carry Bit</td>

<td> SCK</td><td> Shift Clock</td>

<td> SCT</td><td> Shift Clock to Tester</td>

<td> SRA</td><td> Service Request Acknowledge</td>

<td> STC</td><td> Set Control</td>

<td> TCK</td><td> Tester Clock</td>

<td> TTO</td><td> T-Bus to Output</td>

<td> XTO</td><td> External OSC</td>

cc$ CCI CC2 CC4 CCS CCT CEM CLC CLF

DRC

EBT

EOW nc INH IPS

ITS

OFG 05 06 07 08

Clock Code Zero do. One do. Two do. Four do. Eight

Control Clock to Tester Call Extended Memory Clear Control Clear Flag Data Register Clock Eight Bit Transfer End of Word Inhibit Internal OSC Inhibit Clock Inhibit Primary/Secondary Input to S-Bus Memory Clock Power On Pulse P-Reg to R-Bus

Qualifier Flag do. Five do. Six do. Seven do. Eight

Note: (—) indicates negative true signal

I/O REGISTER AND GATE INTERFACE SECTION As shown in FIGS. 162 A-D, the directly addressable I/O Register (address 01) is a 16 bit universal (Parallel in/out, Serial in/out) register that is connected to the calculator processor by the serial-in S-Bus and the serial-out T-Bus. Information is passed non-inverted from the A or B registers bit serial to the I/O Register with the I/O instruction OTX 01. Sixteen lines connected to the parallel outputs of the I/O Register provide data out to the internal input, imput-output, and output units and to the external output interfaces. (NOTE: each I/O unit or interface may place only 1 TTL load on the output lines.)

Parallel entry to the I/O Register is through 12 party lines connected to the 12 least significant parallel inputs. The input lines are negative true with all input interfaces tying to the lines through open collectors. Care must be taken to insure there is no disturbance to the lines while an interface is inactive. Input information is passed inverted to the A or B Register Bit serial with the I/O instructions LIX 01 or MIX 01. (The inversion puts positive true information into the A or B register.) Input information is entered into the I/O Register in three ways:

a. Service Request.

Entry by the service request method is controlled by a service inhibit flip flop. When the service inhibit flip flop has been cleared with the I/O instruction CLF 01, a service request may be initiated by returning the S§I (Service Strobe Input) party line to ground through an open collector on the interface. This signal causes the parallel inputs to be strobed into the I/O Register and sends a request for service (QNR) to the microprocessor. The microprocessor prior to receiving a request for service would have been cycling through various instruction paths and checking for a service request after execution of each instruction. Upon receipt of a request for service, the processor interrupts the sequence of instructions it was doing and loads an address into the Μ-Register which contains the starting address of the service routine. At the same time a signal, SR A (Service Request Acknowledge), turns off the service inhibit flip flop and also sets the single service flip flop which permits only one service interrupt to the processor per service strobe input. The single service flip flop is reset when the service strobe is removed. All lines from an interface using the service request method for entering information are inhibited when the Service Inhibit flip flop is set.

b. Return of Channel Flag After Command was

Given to an External Peripheral Device.

This method implies the calculator must control

3,859,635

349

350 the peripheral. That is to say the calculator transmits the indirect address and control enable (CEO) from the “I/O Register and gate interface” section to the interface with the expectation of information being returned by the periph- 5 eral through the interface to the I/O Register. Because of this expectation, only limited instructions may be performed by the calculator while waiting. The Service Request method must be inhibited during this wait so that input information 10 is not destroyed by another peripheral using Service Request.

When a controlled peripheral responds, its flag and data are processed at the interface. The signal CFI (Channel Flag In) causes the loading of par- I5 allel data from the interface into the I/O register and clears the control enable flip flop so that the CEO signal is removed from the interface. The calculator can interrogate the Control Enable flip flop with the instructions SFS 01 or SFC 01 2θ to determine when data has been loaded in.

c. Giving the I/O Instruction STF 01.

The instruction STF 01 as described in a sets the service inhibit flip flop inhibiting the service request mode of entry. The STF 01 instruction also 2 causes a parallel load of the input lines into the I/O Register.

The I/O Register is used to transfer data and control between the calculator and the directly addressable 3θ magnetic card reader (address 02). To record information on a card, the control word and data is transferred from the A Register to the I/O Register. The I/O instruction STC02 clocks this information via MLS into a latch located at the card reader. The strobe bit for the 35 recorded data is output to the I/O Register from the B Register. The I/O instruction STF02 clocks the strobe latch located at the card reader via MCR. The I/O instruction STF01 loads status from the card reader into the I/O Register (see 1-C). This status is transferred to 40 the A or B Register where it is processed.

To enter information from the magnetic card reader a control word is transferred from the A-Register to the card reader latch as above. When a strobe is encountered from the card, the card reader sends a signal, 45 MFL, to the I/O Register and gate interface section, which sets the magnetic card flag flip flop. The I/O instruction SFS02 is used to determine the state of the magnetic card flag flip flop. When the flip flop is set, data is loaded into the I/O Register with the I/O instruc- 50 tion STF01.

The directly-addressable output printer (address 04) requires 26 bits of parallel information from the calculator. Sixteen bits come from the I/O Register and 10 bits come from a register at the printer. A 16 bit word 55 with “don’t cares” in the least 6 significant bits is transferred to the I/O Register with the I/O instruction OTX 01. A second 16 bit word is transferred to the I/O Register with the instruction OTX 04. The 10 valid printer bits already in the I/O Register overflow into the 10 bit 60 printer register. The significance of the address 04 in the OTX instruction is that it allows the microinstruction EOW (End of Word) to set the printer enable flip flop after the 16th bit has been transferred. At the end of the printers response it returns a signal (PTF) to the D printer enable flip flop clearing it. The printer enable flip flop can also be cleared with the I/O instruction CLF 04. The state of the printer enable flip flop is checked with the I/O instructions SFC 04 or SFS 04.

The directly-addressable output display (address 08) recieves information from the I/O Register. A 16 bit word is transferred to the I/O Register with the instruction OTX 08. The address 08 allows the display enable flip flop to be set with the micro-instruction EOW after the 16th bit has been transferred. The display enable flip flop sends a signal DEN to the display indicating information is ready in the I/O Register. The display enable flip flop is cleared with the I/O instruction CLF 08.

The directly-addressable keyboard indicator lights (address 16) are used to indicate the mode for various keys. The lights are driven from a latch or series of latches which get information from the I/O Register. Information is transferred to the I/O Register with the I/O instruction OTX 16. After the 16th bit has been transferred, the microinstruction EOW and address 16 send a signal KLS which strobes the information from the I/O Register into the keyboard lights latch.

The keyboard does not have an address. It transfers information to the CPU through the I/O Register using the Service Request method described in a above. The keyboard is disabled while the service inhibit flip flop is set except for the stop key which when depressed sends the signal STP which is processed independent of the service inhibit flip flop.

All external peripheral interfaces are indirectly addressed from the four most significant bits in the I/O Register. Thus to communicate with an external peripheral, an address (0000 excluded) must be loaded into the I/O Register. Data and status will be loaded at the same time if the peripheral is to act as a receiver. If the peripheral is to act as a transmitter, only the address and status need be loaded. Next, the I/O instruction STC 01 sets the Control Enable Out flip flop. This flip flop sends a signal CEO to all external interface slots. The CEO signal and the decoded (from the 4 bit address) address allow the interface to command the peripheral. After the peripheral has responded, information given back to the interface by the peripheral is processed to the I/O Register in the manner described under b, “Return of Channel Flag After Command was Given to an External Peripheral Device”.

The I/O Register and gating control circuit mnemonics are given in the following table:

I/O REGISTER AND GATE BOARD

CEC CFI CLF CO», 1,2,3 DEN

DI», 1,2,3,4,5,6,7

DO», 1,2,3,4,5,6,7 DRC

EBT EOW IOD KLS MCR MFL MLS PEN POP PTF

ΟΨ QI 02 03 04 QFG QNR SIH SI», 1,2,3 SO», 1,2,3

Control Enable Out

Channel Flag In Clear Flag Code Out Display Enable Data In Data Out Data Register Clock Eight Bit Transfer End of Word I/O Data Key Lights Strobe Mag Card Reset Mag Flag Mag Latch Strobe Printer Enable Power On Pulse Printer Flag Qualifier Bit φ do. 1 do.2 do.3 do.4 do. Flag do. Not Request

Service Inhibit

Status In

Status Out

3,859,635

351

-Continued

I/O REGIS TER AND GATE BOARD

SRA Service Request Acknowledge

SSI Service Strobe In

STC Set Control

SIP Stop

STI· Set Flag

Τ-Bus T-Bus

ΊΊΌ T Bus to Output

NOTH; (—) indicates negative true signal

As shown in FIG. 166, when addressing a peripheral device, bits loaded into the four most significant locations in the I/O register from the CPU constitute the peripheral address code. As part of the output party line system the address code is routed to all I/O interface slots. Each I/O interface card decodes the four line address code to a unique single line for use on that particular I/O card. The binary codes 10 through 15 have been reserved for dedicated peripheral addresses which are used by dedicated keys (from the keyboard) and dedicated I/O drivers. Binary codes 1 through 9 are for general use. Code 0 is a non-addressing code and is used in operations that do not involve addressing a specific peripheral. The following table summarizes the address code assignments:

<td></td><td></td><td> ADDRESS CODE ASSIGNMENTS</td>

<td> ADD-</td><td> 4-BIT</td><td> ASSIGNED PERIPHERAL</td>

<td> 15</td><td> HHHH</td><td> TYPEWRITER</td>

<td> 14</td><td> HHHI.</td><td> PLOTTER</td>

<td> 12</td><td> HH1.L</td><td> KEYBOARD & KEYBOARD-LIKE PERIPHERALS</td>

<td> 9</td><td> HLl.H</td><td> GENERAL USE; ONE OF NINE SELECTABLE</td>

<td> Φ</td><td> Li.El.</td><td> USED ON INTERRUPT I/O INTERFACE CARDS WHEN THE INTERRUPT BECOMES</td>

<td></td><td></td><td> ENABLED</td>

The general usage codes (1-9) are decoded outputs from a four line to 1 of 10 decoder (SN 7442 for example). It is intended that the codes 1 through 9 be jumper selectable. This would allow the user to select a code for his system peripherals or allow him to use more than one of the same peripheral by selecting different address codes.

Since the I/O register is used to communicate with 55 the internal input, input-output, and output units as well as peripheral devices, a given peripheral’s address code will appear randomly in the I/O register address field with there being no intention of expecting the peripheral to respond: Therefore, a second piece of infor- 60 mation is necessary for the I/O interface card to form a unique signal which will indicate to the peripheral to respond. This second piece of information is control information and is described hereinafter.

The I/O interface cards contain TTL compatible 65 logic for manipulating control and data from the calculator and/or the peripheral. All I/O interface cards which arc intended to be used with the calculator must provide storage cither on the I/O interface card or in the peripheral. Thus data being transferred from the

352 calculator to the I/O card must be stored at the instant the peripheral is requested to respond. Likewise data coming from a peripheral must be stored until the calculator accepts it. This requirement is important and must be considered on all compatible interface cards.

The calculator can supply up to 100 ma. maximum at +5 volts to each I/O interface card. Power exceeding this absolute maximum must be supplied by the peripheral.

The following table lists the pin assignments for all I/O lines at the plug-in slots on the calculator back plane, as viewed from the rear of the calculator, left to right.

____________________________________’ ________________________________________________

<td></td><td colspan="2"> EXTERNAL I/O INTERFACE</td>

<td></td><td colspan="2"> PIN ASSIGNMENTS</td>

FIG. 167 lists all I/O lines with brief definitions and specifications and FIG. 163 shows the source and rela40 live relationship of the I/O lines. The output address data lines (Co O—3) transmit the address code along the party lines to all interface slots. These lines will go high and low according to information being shifted in or out of the I/O Register. At anytime a peripheral is addressed the lines will become steady 1 instruction time (8 jus) before control information is passed to the I/O interface card or before data or status is taken from the I/O interface card or before data or status is taken from the I/O interface card and will remain constant until the control information is removed. After the control information is removed, the state of the I/O lines become unpredictable until the next addressing takes place. Address data coming to the I/O interface card is positive true and each interface may place 1 TTL load on each address line.

The output data lines (DO 0-7) output data from the A or B accumulator in 8 bit bytes from the eight least significant locations in the I/O register to all interface card slots. The logic state is positive true (Data = 1 = High). Each interface card may place 1 standard TTL load on each data line.

The output data status lines (SO 0-3) output status data from the A or B accumulator and are driven from the next four locations above the data out positions in the I/O register. (DO positions = 0 thru 7; SO positions = 8 thru 11.) These lines are used for sending additional information to a peripheral. The logic state is positive true. One standard TTL load may be placed on each output data status line. (Special drivers, fast data transfer, and interrupt do not make use of SO 3.)

3,859,635

353

The input data lines (DI 0-7) transmit input data in 8 bit bytes to the eight least significant bit positions of the I/O register (locations 0 thru 7) from the I/O interface card. Each “Data In” line has a IK pull up resistor to +5 volts and under the party line system must be driven low for a logical 1 from open collector gates on each addressed I/O interface card. The logic state is negative true.

The input data status lines (SI 0-3) receive information from the I/O interface cards and transmit it to locations 8 through 11 in the I/O register. Each line has a 1K pull us resistor to +5 volts. These lines are used to provide additional information to the calculator about the state of a peripheral. The logic state is negative true.

The negative true “Device Ready” output line (CEO) transmits a control signal, which when combined with an address code will initiate a peripheral response on the addressed I/O interface card. Device Ready is controlled by the I/O interface driver and therefore may look different depending upon the driver. For example, when the calculator wishes to transmit data to the I/O interface card or to initiate a peripheral response prior to receiving data from the peripheral, the calculator causes the Device Ready output lines to go low and stay low until the peripheral response is over and the calculator receives the signal “Device Request” (CFI) from the I/O interface card. The Device Ready flip-flop always receives a clear signal whenever the I/O reister completes a parallel load.

The Device Request party line CFI when driven low from an open collector gate on the I/O interface card will cause the loading to parallel input information into the 12 least significant locations of the I/O register. The active state of the line is low (negative true).

The peripheral flag, indicating to the I/O interface card the peripheral has received data/control or is ready to input data, is gated through an open collector nand gate onto the Device Request (CFI) party line. The open collector gate is enabled by the I/O interface card’s address and Device Ready (CEO). The Device Request line is pulled up inside the calculator by a IK resistor to +5 volts. ____

The Device Request (CFI) signal must stay low until Device Ready (CEO) has been cleared (goes high). At this time data transfer has terminated and peripheral’s flag and control must be cleared in preparation for the next pass. Since a parallel load in the I/O register causes the Device Ready flip-flop to receive a clear signal, when a Device Request (CFI) is entered, a parallel load takes place and afterward Device Ready (CEO) is cleared. The calculator uses Device Request in its general mode of data transfer. ____

The Half Status output line (STP) is a line that goes low when the STOP key On the calculator is depressed. It will stay low for the duration of the key depression. One standard TTL load may be placed on this line by each I/O interface card. ___

The prevent Interrupt output line (SIH), when low indicates to the I/O interface card that a request for service must not be given to the calculator. One standard TTL load may be placed on this line by each I/O interface card. ___

The Service Request (Lo) lines (SSI), when driven low, causes the loading of parallel input information into the 12 least significant locations of the I/O register and causes a CPU interrupt for service. The peripheral’s request for service is gated with the Prevent Interrupt (SIH) line onto the Service Request party line

354 through an open collector nand gate. A IK pull-up resistor to +5 volts is connected to the line inside the calculator.

The line 10/20 is used on the I/O interface card to differentiate between the present calculator and other calculators, thereby permitting the use of compatible I/O interface cards. It is grounded in the case of the present calculator and open in the case of others.

The general format for all data transfer consists of 8 bit parallel bytes (this calculator, like the HewlettPackard model 9100 calculator uses a 7 bit field). Other data formats are handled by specially developed drivers, such as the ROM plug-in module employed for driving the typewriter.

The state of a peripheral is generally checked before attempting an output. This is done by first inhibiting the interrupt system. The address of the I/O interface card is shifted into the I/O register. The decoded address code enables the open collector gates on the I/O interface card. The status of the peripheral is passed to the Status In lines and loaded into the I/O register with an I/O instruction issued by the calculator. The I/O register information is transferred to the A or B accumulator and processed. If the peripheral is ready, the output data word consisting of the address code, output status (if necessary) and the eight bit data byte is formed in the A or B accumulator. The output data word is transferred to the I/O register after which the Device Ready (CEO) flip-flop is set. The I/O interface card receives the data, address code and Device Ready and a peripheral response is initiated. The calculator interrogates the state of the Device Ready flip-flop to determine when the I/O interface card has received the information and the peripheral response is done. The peripheral I/O interface card signals the calculator it is done by transmitting the Device Request (CIF) signal to the calculator. The output waveforms are shown in FIG. 168.

Before inputing data from an I/O interface card it is necessary to determine if the peripheral has responded and is ready to input data. After a peripheral response has been initiated, as described previously, the calculator waits for the Device Request (CFI) which loads the data into the I/O Register and clears the Device Ready (CEO). The calculator checks the state of Device Ready and when it goes false (CEO = HIGH), the calculator knows data is present in the I/O Register and proceeds to shift it into the A or B accumulators for processing. The input waveforms are shown in FIG. 169.

When blocks of data are to be transferred between a peripheral and the calculator, the interrupt is turned off, and transfer rates as high as 100,000 bits/sec may be possible. Before either input or output of a block of data can start, it is necessary for the calculator to check the status of the peripheral to see if it is turned on and ready. Register will remain unchanged during the block transfer. A single I/O instruction shifts the 8 bit byte of data from the eight least significant locations in A or B to the eight data locations in the I/O Register; gives Device Ready (CEO) goes low) 120 ns after the shift is completed; and shifts the 8 most significant bits in A or B to the eight least significant locations in A or B in preparation for the next transfer. (Note the Address and status field in the I/O Register are not disturbed in the shifting). Device Ready stays true (low) until the peripheral has received the data and is ready for more. The I/O interface card then returns Device Request (CFI) to the calculator. The receiving of Device Re3,859,635

355 quest by the calculator causes loading of the parallel input party lines into the input status and input data locations of the I/O Register, and clears the Device Ready signal (CEO) goes high). The logic sense of Device Ready is observed by the calculator and when it goes false (CEO = High) the CPU proceeds to output the next eight bit byte of data.

If the output I/O interface card is not returning information on the input lines all input lines will be high when the loading, described in the preceding paragraph, takes place. Therefore, if at the beginning the code in the output status field is being used by the I/O interface card and must remain something other than all high it will be necessary for the I/O interface card to receive the output status from the calculator and return it back to the status inputs so that when Device Request occurs the status field does not get changed in the I/O Register.

Input: After determining if the peripheral is ready to start transferring a block of data the calculator turns off the interrupt and shifts the address code into the I/O Register. (The Address code remains unchanged during the block transfer.) The Device Ready is given (CEO = Low) to the calculator when the 8 bit data byte is ready for input. The Device Request signal causes the input data and status to be loaded into the I/O Register and causes Device Ready to go false (CEO = High). The calculator by checking when Device Ready goes false knows the data has been loaded. A single I/O instruction shifts the 8 bit data byte from the I/O Register

356

B 8 places to the right) and causes Device Ready to go true (CEO = Low) 120 ns after the last bit has been shifted into A or B. As before if output status is to be retained on the I/O interface card it must be returned 5 to the I/O Register upon each input data transfer. Wave forms illustrating high speed operations resemble the wave forms for the calculator in FIGS. 8 and 9.

The interrupt system is controlled by the Service Inhibit flip-flop. An interrupting peripheral is allowed to 10 request service for input from the processor anytime the Prevent Interrupt line is disabled (SIH = High). The calculator allows only those peripherals which use the calculator key-codes to interrupt, and these must be user controlled such that only one interrupt at a time 15 is taking place. Data (keycodes) is loaded into the I/O Register at the instant the Service Request is given by the I/O interface card (SSI = Low) if Prevent Interrupt is disabled (SIH = High) or if Prevent Interrupt having been enabled (SIH = Low) goes high while Service Re20 quest is being given. At the same time a qualifier is routed to the CPU indicating a request for service is active. Recognizing the request for service the CPU branches to the service routine which enables Prevent Interrupt (SIH = Low) and loads the starting address for the software service routine into the M-Register. After servicing the interrupt entry the Prevent Interrupt is disabled (SIH = High) and the next interrupt allowed to take place. The interrupt waveforms are shown in FIG. 170.

The following table lists the general I/O instruction set and the associated codes:

I/O INSTRUCTION SET

NAME INSTRUCTION INSTRUCTION CODE EXECUTION

<td> STF 9 gs</td><td> H</td><td> H</td><td> H</td><td> H</td><td> _</td><td> H</td><td> L</td><td> H</td><td> H</td><td> H</td><td> H</td><td> SELECT CD</td>

into the eight most significant locations in the A or B 45 The following describes the function of each I/O inaccumulators (shifting the previous information in A or struction with the five allowable select codes.

stf <sc>

STF φφ STF φΐ

STF φ2

STF φ4,φ8, 16

CLF <CF>

CLF φφ

CLF φΐ

CLF φ2

CLF φ4

CLF φ8

CLF 16

Set the flag. STF is a 240 ns positive true pulse which accomplishes the following with the various select codes.

Not used by the calculator.

a. Sets the Service Inhibit flip-flop to the true state (SIH—Low; interrupt not allowed).

b. Causes parallel input data and status to be loaded into the I/O Register.

Generates a 240 ns positive true MCR pulse for the magnetic card reader.

Not used by the calculator.

Clear the flag. CLF is a 240 ns positive true pulse which accomplishes the follow? ing with the various select codes.

Not used by the calculator a. Clears the Service Inhibit flip-flop to the false state. (SIH—High; interrupt allowed.)

b. Loads address locations in I/O Register with ^’s. (φ—Low) ____

c. Clears Device Ready flip-flop (CEOHigh).

Clears magnetic card reader flag flipflop.

Clears Printer Enable flip-flop (PEN= Low). ____

Clears Display Enable flip-flop (DEN= High).

Generates a 240 ns positive true KLS pulse.

3,859,635

357

358

SFC <SC> n.t

SFC

SFS <SC>

SFS

CLC <SC>

STC <SC>

STC STC

STC

OTX <sc>

OTX

H/C

ΦΦ

Φ1

Φ2 φ4

H/C

ΦΦ φΐ ψ2 φ4

H/C

ΦΦ ΦΙ

Φ2 φ4, φ8, 16

H/C

ΦΦ

OTX

OTX OTX

OTX

LIX <SC>

L1X

LIX

MIX <SC>

Φ1 φ2 φ4

H/C

ΦΦ φΊ φ2, φ4, φ8, 16

H/C

Skip if flag clear. SFC is a 240 ns positive true pulse which accomplishes the following with the various select codes. If C is given a 240 ns CLF pulse is given after SFC.

Causes the next instruction to be skipped if the STOP key has not been depressed.

Causes the next instruction to be skipped if Device Ready is true (CEO=Low). Causes the next instruction to be skipped if the magnetic card reader flag flipflop is clear.

Causes the next instruction to be skipped if the printer enable flip-flop is clear. (PEN=Low).

Skip is flag set. SFS is a 240 ns positive true pulse which accomplishes the following with the various codes. If C is given then a 240 ns CLF Pulse is issued after SFS.

Causes the next instruction to be skipped if the STOP key is depressed.

Causes the next instruction to be skipped if Device Ready is false (CEO=High). Causes the next instruction to be skipped if the magnetic card reader flag flip-flop is set.

Causes the next instruction to be skipped if the printer enable flip-flop is set (PEN=High). ___

Clear Control. CLC is a 240 ns negative true pulse and is not used by the calculator. If C is given then a 240 ns positive true CLF pulse is given after CLC.

Set the Control. STC is a 240 ns positive true pulse which accomplishes the following with the various select codes. If C is given a 240 ns CLF pulse is issued after STC.

Not used by the calculator. ____

Sets the Device Ready flip-flop (CEO= Low).

Generates a 240 ns positive true MLS pulse for the magnetic card reader. Not used by the calculator.

Output A or B causes data bits from A or B to be shifted to the I/O Register and accomplishes the following with the various select codes. If C if given, a 240 ns CLF pulse is given after OTX is executed.

The 8 least significant bits in the A or B register are shifted non-inverted to the 8 least significant locations in the I/O Register, and 120 ns after the 8th shift the Device Ready flip-flop is set (CEO=Low). The 8 most significant bits are shifted right 8 places and the least 8 significant bits are recirculated to the 8 most significant locations in the A or B registers. The 8 most significant bits in the I/O Register are untouched.

Sixteen bits from the A or B register are shifted non-inverted to the I/O Register. The data in A or B recirculates.

Not used by the calculator

Same as OTX φΐ and in addition, 120 ns after the 16th bit has been shifted the printer enable flip-flop is set.

Same as OTX φΐ and in addition, 120 ns after the 16th bit has been shifted the display enable flip-flop is set.

Same as.OTX φΐ and in addition, 120 hj after the 16th bit has been shifted the 240 ns KLS signal is generated.

Load into A or B. Loads data bits from the I/O Register into the A or B Registers and accomplishes the following with the various select codes. If C is given, a 240 ns CLF pulse is given after LIX is executed.

The eight least significant bits in the I/O Register are shifted inverted to the eight most significant locations of A or B, and 120 ns after the Sth shift the Device Ready flip-flop is set (CEO=Low). A or B is shifted right eight places as the I/O Register data comes in. The 8 most significant bits in the I/O Register are untouched.

The 16 bits of the I/O register are transferred inverted to the A or B register. Data in the I/O Register is lost.

Not used by the calculator.

Merge into A or B. Merges data from the

3,859,635

360

MIX φφ

MIX φΐ

359

I/O Register into A or B registers and accomplishes the following with various select codes. If C is given, a 240 ns CLF pulse is given after MIX is executed. The eight least significant bits in the I/O register are merged with the eight least significant bits of the A or B register and shifted to the 8 most significant locations of A or B; 120 ns after the merge takes place the Device Ready flip-flop is set (CEO=Low). A or B shifts right 8 places as the data is merged and shifted to the most significant locations. The 8 most significant bits of the I/O Register are untouched. The 16 bits of the I/O Register are merged with the 16 bits of the A or B register and contained in the A or B register.

MIX 02, 04, 08, 16 Not used by the calculator. Examples of various drivers which transfer data are given below:

Example 1: Typical Subroutine to Get Status of I/O Device.

Calling Sequence:

LDB Select Code JSM Stat

<td> Stat STF 1</td><td> Turn off the interrupt system.</td><td></td>

<td> OTB 1</td><td> Load I/O Register with select code.</td><td></td>

<td> STF 1</td><td> Load I/O Register with status of I/O</td><td></td>

<td></td><td> device.</td><td></td>

<td> LIA 1</td><td> Loan A Register with status information.</td><td></td>

<td> CLF I</td><td> Turn on interrupt.</td><td></td>

<td> RET</td><td> Return.</td><td> 30</td>

Example 2: Typical Subroutine to Output an 8 bit character.

Calling Sequence:

OTA 1 Output 16 bits to the I/O Register.

STC 1

SFS 1 Loop until I/O flag is set by the

JMP · I output device.

CLF I

Example 3: High speed output where the calculator is faster than output device

Calling Sequence:

OUT2

ST* I —(Number of 16 bit words to be output)+l ST* J Address of first word in the array.

LDB SC Select Code

JSM OUT2

JSM STAT Get status of output device

RAR 9 and position it.

Example 4A: Typical subroutine to input an 8 character.

Calling sequence is:

LDB Select code

JSM In

... Return is made with the data in the A Register.

<td> STF OTB STC</td><td> 1 1 1,0</td><td> Turn off interrupt system Load I/O Register with the select code Pulse the flag & turn interrupt system on</td><td> 60</td>

<td> JSM</td><td> STAT</td><td> Get status off the input device</td><td></td>

<td> RAR</td><td> 9</td><td> and position it.</td><td></td>

<td> SAP</td><td> *—2, C</td><td> If device is busy then continue to</td><td></td>

<td> SAR RET</td><td> 7</td><td> loop else position data bits Return.</td><td> 65</td>

<td> SAP</td><td> OUT2</td><td> If. device is busy, continue to loop</td><td></td>

<td> STF</td><td> 1</td><td> Turn off interrupt system.</td><td></td>

<td> OTB</td><td> 1</td><td> Output select code</td><td></td>

<td> LDB</td><td> 1</td><td> B Counter for number of words to be output</td><td></td>

-Continued

LDB Select code

JSM In

... Return is made with the data in the A Register.

<td> OTA</td><td> Φ</td><td> Output 8 bits from A</td>

<td> SFS</td><td> 1</td><td> Loop until device sets</td>

<td> ISZ</td><td> J</td><td> Increment array address pointer</td>

<td> RIB</td><td> *—7</td><td> Increment count and loop if not finished.</td>

<td> CLF RET</td><td> 1</td><td> Turn on interrupt system Return</td>

Example 3B: If the output device is faster than the calculator then fewer instructions can be used.

ΟΤΑφ Output first 8 bits

ΟΤΑφ Output second 8 bits.

Example 5A: High speed input where the calculator is faster than the input device.

Calling sequence:

ST* I ST* j LDB SC JSM In2 In 2 JSM STAT RAR 9 SAP In2 STF 1 OTB I STC 1 LDB I SEC *+l, C SFS I JMP *-l LIA φ SEC *-3, S STA J, I ISZ J RIB *—7 CLF 1 RET

-(Number of 16 bit words to be input)+l Address

Select code

Get status of input device arid position it.

If device is busy, continue to loop Turn off interrupt system Output select code Command device to read R<—Counter for number of words to be input Ε4-φ

Loop until input device sets flag

Load 8 bits from I/O Register

If and E—► 1 then loop to input last 8 bits Save data word in array Increment array address pointer Increment count and loop if not finished.

Turn on interrupt system Return

Example SB: If the input device is faster than the calculator then the number of instructions can be reduced.

LIA φ Input first 8 bits

LIA φ Input second 8 bits

3,859,635

361

All output I/O interface cards which are to be fully interchangeable with both the present and other calculators must have storage either on the I/O interface card or in the peripheral to which information is being transmitted. FIG. 171 illustrates the logic used to interface an X-Y plotter which has storage on the I/O interface card.

Blocks A and B are the storage latches which store information coming from the I/O register. When the output of gate C goes high, data is latched; when low, the outputs of the latch track the inputs. Gates D decode the Address code (14 = 1110) and pass it positive true to gate E. Device Ready (CEO) is also passed positive true to gate (E). Gates (H) are open collector and pass status and Device Request (CFI) onto the input party lines. An example of a 9810A output would be: Output the address 14 which enables status gates H and see if the power is on. If on, output address, status, and data to gates A, B, and D. The output of C is low allowing data and status to pass. Next give Device Ready (CEO = Low) this enables flip-flop G, clocks flip-flop F which causes A and B to latch, and sends control to the peripheral. The peripheral acknowledges receipt of control by returning FLAG (FLAG = High) in a busy state this continues to keep A and B latched and clears control flip-flop F. When the peripheral is done acting, the FLAG is returned to the not busy state (FLAG = Low) which clocks flip-flop G and causes output at C to go low enabling A and B. The output of G drives the CFI gate which has been enabled from E and CFI goes low. CFI is received by the calculator which responds by returning CEO high. This causes the output of E to go low, clearing flip-flop G and returning CFI high. This completes one output cycle.

All input I/O interface cards which are to be fully interchangeable with both the present and other calculators must have storage either on the I/O interface card or in the peripheral from which information is being received. FIG. 172 illustrates the logic required on a general purpose interface card with storage.

Block A is used to store information coming from the peripheral. B stores status coming from the I/O register which may be needed by the peripheral. The output tracks the input whenever the enable on the latch is low. Block C decodes the address code into one of 10 addresses which are jumper selectable. An example of a calculator input would be as follows. The address code would be decoded by C. The calculator would load status through the open collector input status gates D. If the peripheral is on and ready, the address code and output status (if necessary) would be sent to B and C. The decoded address is passed, positive true, to gate E. The enable at B is low so that status is passed to the peripheral. The Device Ready is given (CEO =Low) and comes to E positive true. The output of E clocks flipflop F through gate H. The output of F gives control to the peripheral and also enables A to receive data. The peripheral responds in a busy state (FLAG = High). When data is ready to be input the FLAG is driven low. Data is latched when the FLAG goes low in A. Also when FLAG goes low, G, having been enabled by the output of H, is clocked driving J from its Q output. I is enabled by the output of H and so CFI is driven low. Data is loaded into the I/O register from open collector gates I and CEO driven high as a result of the calculator receiving CFI. This clears flip-flop G and disables the input gates I completing an input cycle.

FIG. 173 illustrates the logic required, on an I/O interface board, to input using the interrupt.

362

A power preset circuit, block A, will be necessary on this card to prevent an interrupt when the peripheral power is turned off or on. This can usually be done by sensing the peripherals’ +5 volts and presetting when the voltage drops below 3 to 4 volts.

The calculator must be in a display routine such that the Prevent Interrupt is false (SIH = High) before an interrupt can take place. This enables the flip-flop B to be clocked from the peripheral FLAG. The clock inputs to E and F have been high enabling the storage latches prior to the receipt of FLAG. FLAG clocks B causing E and F to latch, enabling open collector gates H through gates I and J, and drives gate G which sends Service Interrupt (SSI = Low) to the calculator. The calculator responds by loading the data into the I/O register and returning Prevent Interrupt true (SIH = Low). This clears (B). Prevent Interrupt is returned false after the entry has been processed and the cycle is complete.

KEYBOARD INPUT UNIT

The keyboard input unit is shown in FIGS. 174A-D and 175. It includes a contactless keyboard of the type shown and described in U.S. Patent application Ser. No. 74,949 entitled NONCONTACTING KEYBOARD, filed on Sep. 24, 1970, issued as U.S. Pat. No. 3,668,697 on June 6, 1972, and assigned to the same assignee as this patent application. The contactless keyboard is made up of an array of printed circuit transformers. Each transformer has its secondary and primary interlaced in a spiral coil as shown in FIGS. 176-177. The secondaries of all the coils are tied in series to form the sense line. The primaries of the coils are arranged in separate pairs. Each coil is connected in series, with opposite polarity, to its pair as shown in FIG. 178. Every pair has a drive and sink line, which is being selected and driven by the scanner.

Centered above each coil is a metal disc at the end of the key shaft. When a key is depressed the disc proximates the coil. The disc acts like a shorted turn and reduces the coupling of the coil, and unbalances the pair. This unbalance is amplified by the comparator, when it is greater than the on bias. The comparator triggers the one shot, which turns off the scanner and lowers the on bias. The scanner remains at its present state, which corresponds to the drive and sink line of the key depressed. This state is the keycode of the key pressed. When the key is released a spring retracks the key and disc. When the unbalance is less than the new bias, the comparator turns off and the scanner starts again ready for a new key. The two bias levels give the key mechanical hysteresis.

When two keys are depressed the first one down will be entered, and as long as a key is down no other key can be entered. An exception is when the other key is its pair. In this case the two keys will cancel each other. When the first key is released, the second one will be entered. When the first key is released, while more than one other key is down, the next key to be entered will be the next in the scan sequence, not necessarily the second key down.

For the keyboard to work each pair of primary coils must be balanced. To balance a pair of coils the following rules should be used when laying out the printed circuit board:

1. Sense lines must run in pairs. The closer the better.

They should be thin traces.

2. The sense windings of a pair of coils can be anywhere on the sense line. For best results they should be close.

3,859,635

363

3. Drive lines should be in pairs when possible. Drive clamp and source lines should be grouped together well away from the sense lines. When a drive line crosses a sense line it should be at right angles.

4. Connect to spiral so to add a turn (or part of a 5 turn) not to subtract. Try to duplicate additional turns on a spiral pair. Connect to spiral at a right angle, from a distance.

5. For a pair of spirals separated by some distance, run the common connection away from the sense [θ line and in the drive grouping.

6. Check each pair of spirals for errors in drive or sense polarity. This can cause either an incorrect code (least digit), or a constant full output. One method to check for proper polarity is to assign 15 current direction for both drive and sense. Then at each spiral check for proper polarity. This is illustrated in FIG. 179.

MAGNETIC CARD READING AND RECORDING UNIT

The magnetic card reading and recording unit is shown in the block diagram of FIG. 180 and in the detailed schematic diagram of FIGS. 181A-G. The manner in which it interacts with the calculator and operates to record and load secure and unsecure programs and to separately record and load data is shown and described in the block diagram of FIG. 182, the flow charts of FIGS. 60-61 and 63-65, and in the memory map of FIG. 62.

Operation of the card reader is largely automatic. It is only necessary to specify the type of operation and the limits desired. These commands are entered via the calculator keyboard. The calculator then determines the necessary commands required to cause the magnetic card reader to perform.the desired operation.

Several modes of operation are possible. Programs can be recorded on magnetic cards and loaded back into the calculator. Similarly, program and data information can be recorded and loaded, or data alone. Very long programs or blocks of data can be stored on several cards. The information is loaded back into the calculator by inserting the cards into the reader in the same sequence as they were recorded. The proper linking of the information stored on the cards is automatically performed by the calculator.

Information is stored on the magnetic card in 3 bit bytes. Three tracks record the information and a fourth track provides a timing mark. Two bytes form six bit words in the calculator. The card reader automatically begins and terminates the recording, irrespective of the length of card used. Different card lengths can be mixed together without affecting the operation of the reader. Cards may be interchanged from one calculator to another.

No mechanical switches are used in the card reader. The only moving part is the card drive motor and capstan. The mechanical assembly and electronics assembly are modular and can be replaced as separate and independent units in the calculator.

OUTPUT DISPLAY UNIT

As shown in FIGS. 183 and 184A-B, the output display unit includes three 15-character rows of sevensegment light-emitting diode arrays. Each array requires an anode driver for each of its seven segments and one for the decimal point. The cathodes are common to all the diodes in one character. Respective anodes for the characters of a register are tied together to

364 one driver. A series PNP transistor enables one of three sets of eight anode drivers each. The cathodes of a column of three characters are tied together to one of 15 cathode drivers.

The data required to operate the display is as follows: 1. Four bits to determine the column to be enabled. 2. One of three bits to determine the register.

3. Eight bits to determine the diodes of a character to be lighted.

4. A line to enable the display when the data is present.

The duty cycle is less than 1/45 requiring pulses of more current than a character could stand continuously. A retriggerable one shot is fired at every display enable pulse and will disable the column drivers after 1/2 ms. if the machine hangs up.

OUTPUT PRINTER UNIT

Several methods have been described for producing printed characters by thermal means (see particularly U.S. Pat. No. 3,161,457 issued to H. Schroeder et al.) but they typically employ a rectangular matrix of resistors to form an entire character at once. Commercial versions of this sort of printer are marketed by National Cash Register and Texas Instruments. As described in Schroeder’s patent, a matrix five elements wide and seven elements high is typically employed.

The output printer unit employed in this calculator is constructed as shown in FIGS. 185,186,187A-B, 188, 189A-D, and 191A-B. It includes a row of print elements distributed linearly across a printing head, as shown in FIG. 188, to print a 16-character line. Each print element is an electrical resistor, of a size and shape intended to produce a dot on thermally-sensitive paper moved at right angles to the line of print elements. Dots are formed in the conventional manner by pulsing the resistor element with a pulse of electrical current, which raises its temperature by joule heating.

Each of the 16 characters of each line is formed in a 5x7 dot matrix. For example, as illustrated in FIG. 192 the letter A is produced by printing the darkened dots in the top row and then stepping down to the next row, etc.

Each line of print contains 16 5 X 7 matrices. The matrices are made of seven rows of 80 dots spaced in five dot groups to produce 16 characters. The printer produces each line of print by printing the top row of all 16 characters and then stepping down to print row 2 until all seven rows are printed. Three blank steps are then added to produce the space between lines.

Each of the seven rows of printing contains 80 dots (five for.each of the 16 characters) which may or may not be printed. This requires that 80 information bits be supplied for each row printed. To accomplsih this, each row is split into four groups of 20 dots (four characters). (Since the I/O Register of thej calculator is only 16 bits long an extra 10 bit shift register is contained in the printer hardware.) Each group of 20 bits is transmitted to the printer along with the group number by the I/O Register and is printed when the printer enable signal is given. The printer then prints that group of dots and returns a printer flag signal to the calculator. The next group of information is then supplied until all 28 groups have been printed. The three step commands are then given to provide the space between lines.

The printer requires the following information to print any group of dots:

1. Dots to be printed,

2. group number, and

3,859,635

365

3. Printer enable.

As shown and described in the flow chart of FIG. 193, this information is transmitted to the printer through the calculator I/O register. Since the total number of information bits needed is greater than the I/O registers 5 length, two 16 bit words are transmitted to the printer. The first 16 bit word contains the dot patterns for characters 1 and 2 as shown in the following table:

CONTENT OF I/O REGISTER AFTER FIRST 10 LOADING

Character 2 Character 1

366

As shown in FIGS. 185-186, paper is loaded into the ooutput printer unit by lifting the wire bucket cover 220 and placing a roll of paper 222 with the free end into the paper bucket formed by the front and rear bucket halves, 224 and 226 respectively. The only care needed by the operator is to be sure that the paper uprolls forward from the bottom. The wire bucket cover performs a dual function of keeping the free end of the paper in the bucket while loading and after the paper is loaded prevents the free end from reloading itself through the mechanism.

1. II It JI L II It II

Dot Dot Dot Dot Φ Φ Φ Φ Φ Φ

DOG DOS DOI D03 D02 D01 Ώ0φ

The weight of the paper then stretches the rubber belts 228 and the roll of paper rolls forward until it rests against the paper guide 230. The paper rolls forward due to the “downhill” slope of the belt from the top of the rear idler pulley 232 to the bottom of the paper guide. With the roll of paper in the position described above the belts moving forward the free end of the paper is constrained by the belts, paper guide and roll to move below the paper guide and between it and the belts.

The belts are driven by the drive pulley 234 which is in turn driven by a gear set from the platen 236. The

C03 <X)2 C01 <Μφ S03 8(12 SOI 80φ DO

Φ—Don’t Care

Character 1 is contained in bits SO2-SO0 and DO7, DO6 with the left dot in bit SO2 and the right dot in DO6. Character 2 is contained in bit CO3-CO0 and 20 SO3 with the left dot in CO3 and the right dot in SO3. When the I/O Register is loaded with the second 16 bit word these bits will appear in the internal 10 bit shift register. The second 16 bit word contains the dot pattern for characters 3 and 4 and the group number as 25 shown in the following table:

I/O REGISTER AFTER SECOND LOADING

Character 3

Group

L 11 Dot

R JI L 11

Dot Dot

R HOil

Dot φ φ φ φ 10

U03 (.’02 C01 CO* S03 S02 SOI SO* D07 D06 D05 D04 D03 D02 DOI DO* *—Don’t Care

Character 3 is contained in bits SO2-SO0 and DO7, DO6 with the left dot in SO2 and the right dot in DO6.

Character 4 is contained in bits CO3-CO0 and SO3 with the left dot in CO3 and the right dot in SO3. The group number is contained in bits DOO and DO2. Groups are numbered as follows:

<td> GROUP</td><td> PRINTED CHARACTERS From Left to Right</td><td> D01</td><td> DOO</td><td> 45</td>

When group 4 is detected the printer automatically steps to the next line. The time interval between printer enable and the return of printer flag is extended to 55 allow the system to physically move. The printing speed is given in the following table:

Total Time to Print I line Lines per second

Group 1

Group 2

Group 3

Group 4

Row 1

Row 2

Row 3

Row 4

Row 5

Row 6

Row 7

Space Space Space ms 8 ms ms ms ms ms ms ms ms ms ms 18 ms ms ί 8 ms

348 ms

2.87 ms platen is driven by the motor 238 via a belt and gear set. The diameter and speed of the platen is such that its surface speed is approximately 5% faster than that of the belts to insure that the paper is always under tension after loading is completed. The drive and rear idler pulleys are crowned so that the belts will be selfcentering. The front idler pulley 270 is flat and serves to keep the lower portion of the belt out of the bucket area.

The print head 242 is pressed against the paper and platen by means of a spring, hence it is necessary to remove the print head from the platen while loading paper. This is accomplished by the head lifter and paper deflector 244 such that when it is rotated on its axis it cams the print head off the platen and positions a small plate in the path of the paper which guides the paper up and between the platen and print head.

The paper is guided through the mechanism while loading and while the printer is working by edge guiding the paper. Ordinarily paper does not lend itself well to edge guiding due to its very low compressive strength. To overcome this the paper is bent around the convex bottom surface of the paper guide and the belt, which is under tension, is very near the edge thereby preventing the paper from buckling. The relationship of the paper, paper guide and belts can be seen by looking at Section AA of Figure 186.

When selecting materials for the various parts of the loading mechanism it is important to be sure that the coefficients of friction between the various parts are compatible. The C.F. between the paper and paper guide should be low relative to the C.F. between the paper and belts in order that the belts can drive the

3,859,635

367 paper through the mechanism. Similarly, the C.F. between the paper and platen should be high relative to the C.F. between print head and paper in order that the paper can be driven through while printing. In addition, the drag introduced by the belt and paper guide due to the paper moving faster than the belt while printing must not be so great as to tear the paper or impose an impossible load on the motor.

The right half of top panel 90 of the calculator housing is hinged at the back and provided with a handle 246 at the front so that it may readily be raised by the user and stopped at an oblique upright position to expose and facilitate replenishment of the supply of thermal-sensitive paper for the output printer unit and also to serve as a music stand for holding operating or program-running instructions or any other material the user desired. A transparent plastic retainer is mounted on the underside of the hinged right half of the top panel 90 to hold such material.

POWER SUPPLY

The power supply system employed in the caluclator is constructed as shown in FIGS. 194-196 and 197A-B. As shown in FIG. 194, a centertapped transformer secondary is connected to terminals 2-3, 2-1, 2-2, and 2-4. The AC voltage from the transformer is rectified by diodes CR1 and CR2 and filtered by capacitor Cl. The output of this rectifier/filter circuit is nominally 18 volts DC at 2.7 amps with a 2 volt peak to peak ripple.

QI and 02 serve as a switch to connect the 5 volt output bus to the 18 volt unregulated supply through inductors LI and L2. CR3 serves to clamp the input of LI to ground when QI and Q2 are switched off. Current flow in LI and L2 are substantially constant and ;qual to the load current.

Loss in high current transistor Q2 is minimized because 02 can be completely saturated. Loss in driver ransistor Ql is minimized because Ql can also be satuated. Resistor R7 limits the maximum drive current to )2. Losses in R7 can be minimized by proper positionng of the tap on LI consistent with transistor parameers and circuit requirements.

IC1 is a linear differential amplifier integrated circuit o drive Ql and Q2. Any differential amplifier with suficient voltage capability and bandwidth will work, lihce the amplifier employed is linear, R7 and R4 have ieen included in the circuit to provide sufficient hystersis for reliable switching. This hysteresis stabilizes the witching frequency and thus stabilizes the switching jsses.

Because hysteresis has been added to the circuit, a ignificant ripple signal (at the switching frequency) rust be present on the feedback signal to the amplifier, his need for a ripple signal limits the amount of capacy that can appear between the output of LI and round. L2 serves to isolate this point from the rest of ie system. The amount of capacity that can appear beveen the output of L2 and ground is essentially unlimed and significantly reduces power supply ripple, and reatly improves response to load transients.

The second winding of L2 is a path for the feedback om the remote sensing. The required ripple signal is ided to the feedback signal by transformer action in 2. Another possible configuration is shown in FIG »8.

The power supply also includes an overvoltage crowir circuit (Qr, CR4, and R9) and a short circuit shut)wn circuit (using Q5). In the event that the +5 volt is is grounded, or the crowbar is triggered, Q5 satutes and locks IC1 off.

368

The resistor R8 makes a current generator of IC1. Resistors R5 and R6 discharge the bases of Ql and Q2 respectively. IC2 and its associated components generate a “power on pulse” to initialize the instrument. IC1 is referenced and powered from an external +12 volt supply. Powering the IC from +12 rather than the unregulated +18 reduces power dissipation in IC1.

The +24 volt supply of FIG. 196 is referenced by the +16 volt supply with the amplifier common returning to +12 volts to minimize power loss and voltage stress in IC1 of FIG. 196. The +12 volt supply of FIG. 197A references the +12, +5, and +16 supplies directly. The +12 amplifier IC1 of FIG. 197A may be biased either from the unregulated supply for the +12 volt supply or from the operating +16 volt supply. Diodes CR5 and CR6 determine the appropriate source. This provides a greater power supply margin for the +12 volt supply. Similarly the +16 volt amplifier is biased from the +20 to give that supply greater margin.

AU supplies except the +20 volt supply are current limited. The +24 volt supply is current limited at a value greater than the rating of its series fuse. If a short circuit occurs in the +24 volt supply, it will current limit until the fuse opens. The average current from this supply is 1.1 amps with transients to 2 amps. The current limit is set to 2.5 amps. There is not sufficient thermal capacity available to allow Ql of FIG. 196 to carry sustained short circuit current so the fuse has been included to protect the various power supply components. All supplies except the +20 volt supply are crowbar protected against over-voltage.

TYPEWRITER INTERFACE

This interface couples the Facit-Odhner model 3841 output typewriter to the calculator.

The unit mounts directly on the back of the typewriter. Communications with the calculator are made through about 5 feet of cable which is terminated by the I/O plug containing a board for buffering and some logic.

Referring to FIGS. 199A-B and 200A-C, characters from the calculator appear on the data lines as ASCII codes. These codes are recoded by a ROM into the six bit Facit typewriter code for the 46 type bars, and one bit for upper case shift. Functions such as space, tab, line feed, etc. are recoded for easy recognition in the interface since each function must be driven by a separate line. A data latch after the ROM holds codes for processing. If new data arrives during this processing, the two codes are compared to determine if they both drive the same type bar and if they are both numbers. Non-repeating numbers can be typed at 14.5 characters per second, otherwise typing speed is 12 characters per second (reduce these speeds 17% for 50HZ operation). Codes in the latch are gated to the program solenoids or the function solenoids by the control logic.

To understand the coding, notice that two blocks of codes on the Facit typewriter code map are empty. If all function codes are put in these blocks, they can be identified by control logic by testing for (6·4). Each function code puts a 1 on one of five lines and this line opens the correct solenoid gate. Bit 8 is Used to discriminate between two sets of function gates. In the case of a program solenoid code, bit 8 identifies numerals.

The control clock is provided by a sync, pulse which is generated in the typewriter-by a vaned wheel attached to the end of the main drive shaft. The vanes interrupt a light beam. When a type cycle is initiated, a

3,859,635

369 modulo 8 counter counts sync, pulses and the count is decoded by a 1 or 8 decoder. At each of the eight states, combinational logic can enable solenoid gates, set or clear flag flip-flops or change the counter to state zero, or state 6, or inhibit the counter.

Contents936

620 sheets

Sheet 1
Sheet 2
Sheet 3
Sheet 4
Sheet 5
Sheet 6
Sheet 7
Sheet 8
Sheet 9
Sheet 10
Sheet 11
Sheet 12
Sheet 13
Sheet 14
Sheet 15
Sheet 16
Sheet 17
Sheet 18
Sheet 19
Sheet 20
Sheet 21
Sheet 22
Sheet 23
Sheet 24
Sheet 25
Sheet 26
Sheet 27
Sheet 28
Sheet 29
Sheet 30
Sheet 31
Sheet 32
Sheet 33
Sheet 34
Sheet 35
Sheet 36
Sheet 37
Sheet 38
Sheet 39
Sheet 40
Sheet 41
Sheet 42
Sheet 43
Sheet 44
Sheet 45
Sheet 46
Sheet 47
Sheet 48
Sheet 49
Sheet 50
Sheet 51
Sheet 52
Sheet 53
Sheet 54
Sheet 55
Sheet 56
Sheet 57
Sheet 58
Sheet 59
Sheet 60
Sheet 61
Sheet 62
Sheet 63
Sheet 64
Sheet 65
Sheet 66
Sheet 67
Sheet 68
Sheet 69
Sheet 70
Sheet 71
Sheet 72
Sheet 73
Sheet 74
Sheet 75
Sheet 76
Sheet 77
Sheet 78
Sheet 79
Sheet 80
Sheet 81
Sheet 82
Sheet 83
Sheet 84
Sheet 85
Sheet 86
Sheet 87
Sheet 88
Sheet 89
Sheet 90
Sheet 91
Sheet 92
Sheet 93
Sheet 94
Sheet 95
Sheet 96
Sheet 97
Sheet 98
Sheet 99
Sheet 100
Sheet 101
Sheet 102
Sheet 103
Sheet 104
Sheet 105
Sheet 106
Sheet 107
Sheet 108
Sheet 109
Sheet 110
Sheet 111
Sheet 112
Sheet 113
Sheet 114
Sheet 115
Sheet 116
Sheet 117
Sheet 118
Sheet 119
Sheet 120
Sheet 121
Sheet 122
Sheet 123
Sheet 124
Sheet 125
Sheet 126
Sheet 127
Sheet 128
Sheet 129
Sheet 130
Sheet 131
Sheet 132
Sheet 133
Sheet 134
Sheet 135
Sheet 136
Sheet 137
Sheet 138
Sheet 139
Sheet 140
Sheet 141
Sheet 142
Sheet 143
Sheet 144
Sheet 145
Sheet 146
Sheet 147
Sheet 148
Sheet 149
Sheet 150
Sheet 151
Sheet 152
Sheet 153
Sheet 154
Sheet 155
Sheet 156
Sheet 157
Sheet 158
Sheet 159
Sheet 160
Sheet 161
Sheet 162
Sheet 163
Sheet 164
Sheet 165
Sheet 166
Sheet 167
Sheet 168
Sheet 169
Sheet 170
Sheet 171
Sheet 172
Sheet 173
Sheet 174
Sheet 175
Sheet 176
Sheet 177
Sheet 178
Sheet 179
Sheet 180
Sheet 181
Sheet 182
Sheet 183
Sheet 184
Sheet 185
Sheet 186
Sheet 187
Sheet 188
Sheet 189
Sheet 190
Sheet 191
Sheet 192
Sheet 193
Sheet 194
Sheet 195
Sheet 196
Sheet 197
Sheet 198
Sheet 199
Sheet 200
Sheet 201
Sheet 202
Sheet 203
Sheet 204
Sheet 205
Sheet 206
Sheet 207
Sheet 208
Sheet 209
Sheet 210
Sheet 211
Sheet 212
Sheet 213
Sheet 214
Sheet 215
Sheet 216
Sheet 217
Sheet 218
Sheet 219
Sheet 220
Sheet 221
Sheet 222
Sheet 223
Sheet 224
Sheet 225
Sheet 226
Sheet 227
Sheet 228
Sheet 229
Sheet 230
Sheet 231
Sheet 232
Sheet 233
Sheet 234
Sheet 235
Sheet 236
Sheet 237
Sheet 238
Sheet 239
Sheet 240
Sheet 241
Sheet 242
Sheet 243
Sheet 244
Sheet 245
Sheet 246
Sheet 247
Sheet 248
Sheet 249
Sheet 250
Sheet 251
Sheet 252
Sheet 253
Sheet 254
Sheet 255
Sheet 256
Sheet 257
Sheet 258
Sheet 259
Sheet 260
Sheet 261
Sheet 262
Sheet 263
Sheet 264
Sheet 265
Sheet 266
Sheet 267
Sheet 268
Sheet 269
Sheet 270
Sheet 271
Sheet 272
Sheet 273
Sheet 274
Sheet 275
Sheet 276
Sheet 277
Sheet 278
Sheet 279
Sheet 280
Sheet 281
Sheet 282
Sheet 283
Sheet 284
Sheet 285
Sheet 286
Sheet 287
Sheet 288
Sheet 289
Sheet 290
Sheet 291
Sheet 292
Sheet 293
Sheet 294
Sheet 295
Sheet 296
Sheet 297
Sheet 298
Sheet 299
Sheet 300
Sheet 301
Sheet 302
Sheet 303
Sheet 304
Sheet 305
Sheet 306
Sheet 307
Sheet 308
Sheet 309
Sheet 310
Sheet 311
Sheet 312
Sheet 313
Sheet 314
Sheet 315
Sheet 316
Sheet 317
Sheet 318
Sheet 319
Sheet 320
Sheet 321
Sheet 322
Sheet 323
Sheet 324
Sheet 325
Sheet 326
Sheet 327
Sheet 328
Sheet 329
Sheet 330
Sheet 331
Sheet 332
Sheet 333
Sheet 334
Sheet 335
Sheet 336
Sheet 337
Sheet 338
Sheet 339
Sheet 340
Sheet 341
Sheet 342
Sheet 343
Sheet 344
Sheet 345
Sheet 346
Sheet 347
Sheet 348
Sheet 349
Sheet 350
Sheet 351
Sheet 352
Sheet 353
Sheet 354
Sheet 355
Sheet 356
Sheet 357
Sheet 358
Sheet 359
Sheet 360
Sheet 361
Sheet 362
Sheet 363
Sheet 364
Sheet 365
Sheet 366
Sheet 367
Sheet 368
Sheet 369
Sheet 370
Sheet 371
Sheet 372
Sheet 373
Sheet 374
Sheet 375
Sheet 376
Sheet 377
Sheet 378
Sheet 379
Sheet 380
Sheet 381
Sheet 382
Sheet 383
Sheet 384
Sheet 385
Sheet 386
Sheet 387
Sheet 388
Sheet 389
Sheet 390
Sheet 391
Sheet 392
Sheet 393
Sheet 394
Sheet 395
Sheet 396
Sheet 397
Sheet 398
Sheet 399
Sheet 400
Sheet 401
Sheet 402
Sheet 403
Sheet 404
Sheet 405
Sheet 406
Sheet 407
Sheet 408
Sheet 409
Sheet 410
Sheet 411
Sheet 412
Sheet 413
Sheet 414
Sheet 415
Sheet 416
Sheet 417
Sheet 418
Sheet 419
Sheet 420
Sheet 421
Sheet 422
Sheet 423
Sheet 424
Sheet 425
Sheet 426
Sheet 427
Sheet 428
Sheet 429
Sheet 430
Sheet 431
Sheet 432
Sheet 433
Sheet 434
Sheet 435
Sheet 436
Sheet 437
Sheet 438
Sheet 439
Sheet 440
Sheet 441
Sheet 442
Sheet 443
Sheet 444
Sheet 445
Sheet 446
Sheet 447
Sheet 448
Sheet 449
Sheet 450
Sheet 451
Sheet 452
Sheet 453
Sheet 454
Sheet 455
Sheet 456
Sheet 457
Sheet 458
Sheet 459
Sheet 460
Sheet 461
Sheet 462
Sheet 463
Sheet 464
Sheet 465
Sheet 466
Sheet 467
Sheet 468
Sheet 469
Sheet 470
Sheet 471
Sheet 472
Sheet 473
Sheet 474
Sheet 475
Sheet 476
Sheet 477
Sheet 478
Sheet 479
Sheet 480
Sheet 481
Sheet 482
Sheet 483
Sheet 484
Sheet 485
Sheet 486
Sheet 487
Sheet 488
Sheet 489
Sheet 490
Sheet 491
Sheet 492
Sheet 493
Sheet 494
Sheet 495
Sheet 496
Sheet 497
Sheet 498
Sheet 499
Sheet 500
Sheet 501
Sheet 502
Sheet 503
Sheet 504
Sheet 505
Sheet 506
Sheet 507
Sheet 508
Sheet 509
Sheet 510
Sheet 511
Sheet 512
Sheet 513
Sheet 514
Sheet 515
Sheet 516
Sheet 517
Sheet 518
Sheet 519
Sheet 520
Sheet 521
Sheet 522
Sheet 523
Sheet 524
Sheet 525
Sheet 526
Sheet 527
Sheet 528
Sheet 529
Sheet 530
Sheet 531
Sheet 532
Sheet 533
Sheet 534
Sheet 535
Sheet 536
Sheet 537
Sheet 538
Sheet 539
Sheet 540
Sheet 541
Sheet 542
Sheet 543
Sheet 544
Sheet 545
Sheet 546
Sheet 547
Sheet 548
Sheet 549
Sheet 550
Sheet 551
Sheet 552
Sheet 553
Sheet 554
Sheet 555
Sheet 556
Sheet 557
Sheet 558
Sheet 559
Sheet 560
Sheet 561
Sheet 562
Sheet 563
Sheet 564
Sheet 565
Sheet 566
Sheet 567
Sheet 568
Sheet 569
Sheet 570
Sheet 571
Sheet 572
Sheet 573
Sheet 574
Sheet 575
Sheet 576
Sheet 577
Sheet 578
Sheet 579
Sheet 580
Sheet 581
Sheet 582
Sheet 583
Sheet 584
Sheet 585
Sheet 586
Sheet 587
Sheet 588
Sheet 589
Sheet 590
Sheet 591
Sheet 592
Sheet 593
Sheet 594
Sheet 595
Sheet 596
Sheet 597
Sheet 598
Sheet 599
Sheet 600
Sheet 601
Sheet 602
Sheet 603
Sheet 604
Sheet 605
Sheet 606
Sheet 607
Sheet 608
Sheet 609
Sheet 610
Sheet 611
Sheet 612
Sheet 613
Sheet 614
Sheet 615
Sheet 616
Sheet 617
Sheet 618
Sheet 619
Sheet 620

Every citation, both ways

Citations
Document	Relation	Office	Cited during
US4152770A	Cited by	United States of America	Search report
US4158228A	Cited by	United States of America	Search report
US4158233A	Cited by	United States of America	Search report
US4158231A	Cited by	United States of America	Search report
US4218760A	Cited by	United States of America	Search report
US4156918A	Cited by	United States of America	Search report
US4126898A	Cited by	United States of America	Search report
US4152769A	Cited by	United States of America	Search report
US4471460A	Cited by	United States of America	Search report
US4091446A	Cited by	United States of America	Search report
US4156285A	Cited by	United States of America	Search report
US4127897A	Cited by	United States of America	Search report
CN111431422A	Cited by	China	Search report
US4006464A	Cited by	United States of America	Search report
US4403303A	Cited by	United States of America	Search report
US4202041A	Cited by	United States of America	Search report
US4352164A	Cited by	United States of America	Search report
US3987420A	Cited by	United States of America	Search report
US4156282A	Cited by	United States of America	Search report
US4476541A	Cited by	United States of America	Search report
JPS54109352A	Cited by	Japan	Search report
US4384771A	Cited by	United States of America	Search report
US7322888B2	Cited by	United States of America	Search report
US4016542A	Cited by	United States of America	Search report
US4187547A	Cited by	United States of America	Search report
US4455618A	Cited by	United States of America	Search report
US4281390A	Cited by	United States of America	Search report
US4366553A	Cited by	United States of America	Search report
JPS56124967A	Cited by	Japan	Search report
US4177518A	Cited by	United States of America	Search report
US4179748A	Cited by	United States of America	Search report
JPS56124968A	Cited by	Japan	Search report
CN102541801A	Cited by	China	Search report
US4158236A	Cited by	United States of America	Search report
US4213179A	Cited by	United States of America	Search report
US4321688A	Cited by	United States of America	Search report
US4498144A	Cited by	United States of America	Search report
US4169290A	Cited by	United States of America	Search report
US4177520A	Cited by	United States of America	Search report
US4145752A	Cited by	United States of America	Search report
US4181965A	Cited by	United States of America	Search report
US4471461A	Cited by	United States of America	Search report
US4546448A	Cited by	United States of America	Search report
US4218755A	Cited by	United States of America	Search report
US4139893A	Cited by	United States of America	Search report
US4567573A	Cited by	United States of America	Search report
US4200913A	Cited by	United States of America	Search report
US4064490A	Cited by	United States of America	Search report
US4156917A	Cited by	United States of America	Search report
US4090247A	Cited by	United States of America	Search report
US4145742A	Cited by	United States of America	Search report
US4164019A	Cited by	United States of America	Search report
US4159525A	Cited by	United States of America	Search report
US4152771A	Cited by	United States of America	Search report
US4220991A	Cited by	United States of America	Search report
US4161031A	Cited by	United States of America	Search report
US4164039A	Cited by	United States of America	Search report
US4085446A	Cited by	United States of America	Search report
US4162532A	Cited by	United States of America	Search report
US2005079909A1	Cited by	United States of America	Pre-grant
US4433387A	Cited by	United States of America	Search report
US4152774A	Cited by	United States of America	Search report
US4755902A	Cited by	United States of America	Search report
US4322816A	Cited by	United States of America	Search report
US4178633A	Cited by	United States of America	Search report
US3364395A	Cites	United States of America	Search report
US3416139A	Cites	United States of America	Search report
US3436734A	Cites	United States of America	Search report
US3533076A	Cites	United States of America	Search report
US3533078A	Cites	United States of America	Search report
US3602894A	Cites	United States of America	Search report
US3623012A	Cites	United States of America	Search report
US3623156A	Cites	United States of America	Search report
US3629850A	Cites	United States of America	Search report
US3631403A	Cites	United States of America	Search report
US3631536A	Cites	United States of America	Search report

Document	Office	Kind	Date
15343771	United States of America	A	1971-06-15
153437	–	–	–
US19710153437	–	–	–