Apple II manual Strings, $=ROCKWELL R6500 Print A$ Rockwell R6500, LEN Function, LEFT$ Function

Page 229

If more values are read than there are numbers in the DATA statements, an out of data (OD) error occurs. That is why in line 40 we check to see if -999999 was read. This is not one of the numbers to be matched, but is used as a flag to indicate that all of the data (possible correct guesses) has been read. Therefore, if -999999 was read, we know that the guess was incorrect.

Before going back to line 10 for another guess, we need to make the READ's begin with the first piece of data again. This is the function of the "RESTORE." After the RESTORE is encountered, the next piece of data read will be the first number in the first DATA statement again.

DATA

statements may be

placed anywhere within the program. Only READ statements make use

of the DATA statements

in a program, and any other time they are encountered during program

execution they will be

ignored.

212

STRINGS

 

A list of characters is referred to as a "String." Rockwell, R6500, and THIS IS A TEST are all strings. Like numeric variables, string variables can be assigned specific values. String variables are

distinguished from numeric variables by a "$" after the variable name.

For example, try the following:

A$="ROCKWELL R6500"

PRINT A$

ROCKWELL R6500

In this example, we set the string variable A$ to the string value "ROCKWELL R6500." Note that we also enclosed the character string so be assigned to A$ in quotes.

LEN FUNCTION

Now that we have set A$ to a string value, we can find out what the length of this value is (the number of characters it contains). We do this as follows:

PRINT LEN(A$),LEN("MICROCOMPUTER")

14 13

The "LEN" function returns an integer equal to the number of characters in a string.

A string expression may contain from 0 to 255 characters. A string containing 0 characters is called the "null" string. Before a string variable is set to a value in the program, it is initialized to the null

string. Printing a null string on the terminal will cause no characters to be printed, and the printer or cursor will not be advanced to the next column. Try the following:

PRINT LEN(Q$);Q$;3 0 3

Another way to create the null string is: Q$=""

Setting a string variable to the null string can be used to free up the string space used by a non-null string variable.

LEFT$ FUNCTION

It is often desirable to access parts of a string and manipulate them. Now that we have set A$ to "ROCKWELL R6500," we might want to print out only the first eight characters of A$. We would

do so like this:

PRINT LEFT$(A$,8)

ROCKWELL

"LEFT$" is a string function which returns a string composed of the leftmost N characters of its string argument. Here is another example:

FOR N=1 TO LEN(A$):PRINT LEFT$(A$,N):NEXT N

R

RO

ROC

ROCK

Image 229
Contents Apple II Original ROM Information Qjjj Data0005A0 FDA9A920 EDFDA98D 4CEDFDA9 8D4CEDFD Page Page Page JI@ Page 001AC0 FFFFE1E1 EFEEE7E8 EEE7F3FB FBEEE1EF 001AA0 F3FFE8E1 E8E8EFEB FFFFE0FF Ffefeeef001AE0 E8EEE7E8 Efefeeef Eeefeeee Efeeeeee 001DB0 9CDD9CDE DD9EC3DD Cfcacdcb 00479AAD 001FB0 Ffffffff FFFF2071 E14CBFEF 2003EEA9 Page FA60FFFF DDBAF9F0 0DBDBAF902E61FBD JJJ 60FFFFFF .JJAEAEA8AD Page Page Return Page LOC0 System Monitor CopyrightLOC1 BaslMask INY NO, INC Index X-COORD LDY PCH PRMN1 LDA FMT1 DFB Format Above EOR STA A3H FAE2 A2 FB Tabv STA Vtabs to ROW in A-REG STA Bash BCC Clreol Clear to END of Line NXTA4 INC A4L Incr 2-BYTE A4 STA BASL,Y Replace Flashing Screen Fdad A5 3C LT2 LDA A2L,X Copy A2 2 Bytes to Ioprt LDA A2L SET RAM IN/OUT Vectors BCC RD3 Loop Until Done STA A3H,X DFB LIST-1 FFF3 CC BRTBL,X SaveLSR Prepare Carry for BC, BNC Stat LDA R0L JSR STAT2 Push LOW PC Byte VIA R12 CMP LDA IN,YBNE Nomove JSRDCR MloopBNZ Mloop RTNBNC INRBNZ BM1Load Indirect ExampleStore Indirect Load DOUBLE-BYTE IndirectPOP Indirect Store DOUBLE-BYTE IndirectStore POP Indirect Subtract ACCPOP DOUBLE-BYTE Indirect BF A0 SET $A0BF CompareLOOP1 SUB BNC LOOP1Decrement Return to 6502 ModeLOOP2 BNZ LOOP2Branch if Carry SET Branch if no CarryBranch if Plus LOOP3 SUBBranch if not Minus ONE Branch if Minus ONEBreak Return from Sweet 16 SubroutineSTA IND+1 LDA OPTBL,X LDA #ADRHSTA IND JMP Page Page Sweet 16 Introduction Page Source Print Dbload Sweet REM Ctrl D DSPInput Enter String a $ , a $ NVAPrint Print Goto Poke 776 , a REM Poke DestinationCall -605 Return REM XAM8 in Monitor SweetBaum MINI-ASSEMBLERMneml MnemrSBC PCL Form ADDR-PC-2 JSR Cout Position FORM7 STX A1H Save Index CLC ORGSTA BNENorm LDA EXP1 ZERO? Shift Dividend Left Floating Point Representation LOW Floating Point PackageHigh LOW EXP Mantissa StoredFloating Point Representation Examples Number Exponent MantissaFloating Point Subroutine Descriptions Page Page Page Page STY STY Init MANT1 LDYCalling Sequence HIGH-ORDERPage Page Page Page Page Page Mmmmmmmm SeeeeeeeFsub ORG SET Base page Adresses STA X2,X Common LOG of MANT/EXP1 Result in MANT/EXP1 Ovflw BRK Overflow 1EBB STA X2,X Load EXP/MANT2 with Z 1EBD DEX 1EBE BPL LF3 Right Shift MANT1 or Swap with MANT2 on Carry YES,RETURN with MANT1 NormalizedCMP AddendNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDX Load X for High Byte of Exponent Errata for Rankins Floating Point RoutinesLDA STA Fadd LOGFsub FmulPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Mdend RTLOG1Normx Object Code Dump Page Hsbdry TapdelToutfl LstcomUrcvec Outvec=UBRKVC =UIRQVCADC TAXStocom STA ORABPL HASHUS+2 Restore Except A,F STX BEQCPX JMPChksad PHP Exwrap RTSOutxah PHA TXANibasc and #$0F Nibble in a to Ascii in a BCS INST1 RTI Ldbyte JSR Inbyte Verify MEM E1PARM JMP STD2 MORED2 LDY JSR Brtt INC Ercnt UP to FF MEM3EX CLC SBC P3L BNE Exitgk Ksconf LDA Txtmov LDA BNE INRT2 Outone Newdev LDA Dftxfr LDXLDA Toutfl 8BFF 0D Msfirst Ddrdig BufadhLOADT2 STA Mode BNE Lcerr Last Char not Kgettr LDA H8DFF BCC PACKT3 DUMPT1 TXA DumptDMPT1A LDA DUMPT4 LDYOutbth LDX Outcht STX Register Name PatchHS Tape Boundary Udrah Rockwell InternationalUddra NowlnLength OldlenMovad TMASK1 =MOVADChecksum CurposTabuff TABUF2Write Edge Detect Control not Used Because KB EQS CRBCFD2A0A0A0A0 DB TO,EQSSEI Disable Interrupt RS6 JSR Crlow Clear Display E1AC Have Valid Command Space Comm Nxtadd TYALOAD1A LDA ForLOADK5 LDX JMP LOADK5 Next E46A EE INC Bkflg SET FLG OUTCK1 PHA Outcks LDADUMPT1 LDA Dumpta LDXE5EA TOGTA1 LDA TOGTA2 LDA BCC JD3 MSG Whereo LDY CPY ANY OtherSTA Outflg Outall PHA Output PHAROL Priflg Restore FLG Wrax JSR Numa EAA3 CA DEX Memerr JSR STA STIY+2 Dehalf LDA EC5E 4A LSR Only ROW Debkey LDX Onekey LDAED3B GET a Char from Tape Subroutine Edba LSR Cpiy Make Room for MSB Outtty PHA OUTD2A TXA OUTD1A CPXOUTDD1 PHA LDA First Chip Select Prndot LDA LDA #PRTIME/256 Start T2 for 1.7 Msec BIT Imask See if DOT is SET Newcol LDA NEW Print ROWBkcksm LDA Ckbuff LDAOUTTA2 LDX OUTTA1 PHAZero Leftmost Column F2E1 3E7E7F3E7F7FCOL0DB BGYU76HN Getfmt TAX RtmodeMNNDX1 LSR MNNDX2 LSRPLA PRADR2 LDAPRADR4 DEX BPL PCADJ4 AIM Text Editor LDA END+1 CMP with END AF E7 JMP KEP RUB COMMAND-FIND String JMP CHN1 See if WE RAN Past END of Buffer Limit BEQ REP2 SBC Oldlen GOGO1 RTS FB46 8A9AAABACADA ROM TableStartm JSR Rdaddr LDY IMMED1 LDX Tryjmp LDABrnchc JMP OPCMP1 LDAConvrt LDA Brcomp LDA FORMD2 LDXCompbr LDX Forwrd LDA Backwd LDACuread TXA MATCH1 JMPPATCH4 LDX CURPO2 Dont do Anything if 8D PATC15 JSR Crlf Decode Command ADDS1A AddblkBkcksm BrcompCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 E6AC AIM 65 Microcomputer Monitor Program ListingAIM 65 Microcomputer Basic Language Reference Manual Table of ContentsIntroduction Entering Basic Installing Basic in the AIM ROM Installation ProcedureMemory SIZE? WIDTH?Reentering Basic Exiting BasicBasic Cursor Printer ControlASC Getting Started with Basic Basic Command SETCHR$ Indirect Commands Direct and Indirect Commands Direct CommandsOperating on Programs and Lines Listing a ProgramReplacing a Line Deleting a LineDeleting a Program List Printing DataNumber Format Print ONE Half Equals 1/2Number Output Format Input R Variables Assigning Variables with AN Input StatementVariable Names Print A, A*2 LET Z=7 Print Z, Z-A PSTG$Reserved Words Remarks Program Using RelationsRelational Tests Input BSquare Root Program LoopingAN Improved Square Root Program Print NsqrnPrint Nsqrn Next N Another Square Root ProgramCOUNT-BACKWARD Program Some Other Looping OperationsPrint I,J Next Next J Print What is the NumberMatrix Operations Sort ProgramInput N Print BAD GUESS, TRY Again RestorePrint Must be Integer Stopping a Program$=ROCKWELL R6500 Print A$ Rockwell R6500 StringsLEN Function Print LENA$,LENMICROCOMPUTERMID$ Function RIGHT$ FunctionPrint C$ Basic FOR-ROCKWELL-R6500 VAL and Strs Functions Print B$ Basic for Rockwell R6500CHR$ Function Data AIM 65,DOGName Example PURPOSE/USE DIM Additional String ConsiderationsInput Input X$ Print Print X$ESC Operators Symbol Sample StatementCntl Print Print X/1.3Negation Symbol Sample Statement PURPOSE/USERelational Operators Operator Argument Result Not Not If not Q3 thenPrint Intruder Alert CommandsAlert Statement SYNTAX/FUNCTION Example ClearStatement SYNTAX/FUNCTION List Statement SYNTAX/FUNCTION FREStatement SYNTAX/FUNCTION Load Statement SYNTAX/FUNCTION NEWStatement SYNTAX/FUNCTION Example Save Statement SYNTAX/FUNCTION Example RUNProgram Statements Statement SYNTAX/FUNCTION Example DEFStatement SYNTAX/FUNCTION END Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION For Statement SYNTAX/FUNCTION Goto Statement SYNTAX/FUNCTION GosubStatement SYNTAX/FUNCTION IF...GOTO Statement SYNTAX/FUNCTION IF...THENStatement SYNTAX/FUNCTION LET If X0 then Print ERROR, X Negative Goto ExampleStatement SYNTAX/FUNCTION Next Statement SYNTAX/FUNCTION ON...GOSUBSymbol SYNTAX/FUNCTION Wait Statement SYNTAX/FUNCTION RestoreExample Restore Return Statement SYNTAX/FUNCTION ReturnStatement SYNTAX/FUNCTION POS Statement SYNTAX/FUNCTION InputStatement SYNTAX/FUNCTION Print Print Value ISAStatement SYNTAX/FUNCTION SPC Statement SYNTAX/FUNCTION ReadStatement SYNTAX/FUNCTION TAB String Functions Statement SYNTAX/FUNCTION ASCStatement SYNTAX/FUNCTION LEN Statement SYNTAX/FUNCTION LEFT$Statement SYNTAX/FUNCTION MID$ Statement SYNTAX/FUNCTION RIGHT$Statement SYNTAX/FUNCTION ATN Arithmetic Functions Statement SYNTAX/FUNCTION ABSStatement SYNTAX/FUNCTION COS Statement SYNTAX/FUNCTION EXPPrint Sgnx Statement SYNTAX/FUNCTION Example SGNStatement SYNTAX/FUNCTION Example SIN Print Sinx?XX Error Error MessagesInverse Hyperbolic Secant Space Hints TAB, SPCPRINTX,Y,Z Speed Hints Storage Allocation InformationConverting Basic Programs not Written for AIM 65 Basic This is Probably the Most Important Speed HintOLD AIM OLDAscii Character Codes Decimal Assembly Language SubroutinesNUL SOH$AE Address ContentInputnumbern PrintxRUN NUMBER? Recording on Cassette Using the Basic Save CommandStoring AIM 65 Basic Programs on Cassette OUT=T F= Cassette Operations Using the AIM 65 EditorOUT=T F=FNAME T= IN=Entered by Alter Memory M ATN ImplementationOF9C 0FACSaving ATN Object Code on Cassette WIDTH? Bytes Free AIM 65 Basic
Related manuals
Manual 19 pages 1.54 Kb

II specifications

The Apple II, launched in April 1977, was one of the first highly successful mass-produced microcomputer products. It marked a significant leap in personal computing, setting standards for future developments in the industry. Created by Steve Wozniak and Steve Jobs, the Apple II differentiated itself with its user-friendly design, appealing aesthetics, and robust capabilities.

One of the standout features of the Apple II was its open architecture, which allowed users to expand and enhance the computer's functionality. This design enabled hundreds of third-party hardware and software developers to contribute to its ecosystem, resulting in an array of peripherals, including printers, modems, and storage devices. The Apple II utilized a MOS Technology 6502 microprocessor running at a clock speed of 1 MHz. Initially equipped with 4 KB of RAM, the machine could be expanded to 48 KB, accommodating more complex applications and programs.

The Apple II was also notable for its colorful graphics. It was one of the first computers to support color display, offering a 6-color palette with a resolution of 280x192 pixels in 16 colors when using its Color Graphics Card. This feature significantly enhanced the visual appeal of games and educational software developed for the platform, making computing more accessible and entertaining for various audiences.

Apple's commitment to user experience was evident in the design of the machine. It featured an integrated keyboard and a plastic case, which was both durable and visually appealing. The self-contained design included drive bays for floppy disk drives, allowing for quicker data access than traditional tape drives. It also supported audio output, enabling sound effects and music, a novelty at the time.

The introduction of the Apple DOS operating system further underscored the machine's capabilities. DOS streamlined file management and made it easier for users to navigate and manage their data. The combination of hardware and software positioned the Apple II as an educational tool and a gaming platform, fostering a vibrant software ecosystem.

The Apple II family continued to evolve, with variations like the Apple II+, IIe, and IIgs being introduced over the years. These iterations brought enhancements in memory, processing power, and graphics capabilities. The legacy of the Apple II endures, not only as a foundational product in personal computing but also as a symbol of innovation that paved the way for future advancements in technology. Its impact is still felt today, as it inspired countless developers and shaped the trajectory of the computer industry.