Manuals / Apple / Home Audio / Speaker

Apple II manual STA Mode

Models: II

1 257

Download 257 pages 49.17 Kb

Page 131

1791	8C8E 85		FD			STA	MODE
1792	8C90	20	26	8E		JSR	RDBYTX	;READ ID BYTE ON TAPE
1793	8C93	8D	00	A4		STA	DIG	;DISPLAY ON LED (NOT DECODED)
1794	8C96	CD	4E	A6		CMP	ID	;COMPARE WITH REQUESTED ID
1795	8C99	F0	29			BEQ	LOADT5	;LOAD IF EQUAL
1796	8C9B AD		4E	A6		LDA	ID	;COMPARE WITH 0
1797	8C9E C9		00			CMP	#0
1798	8CA0 F0		22			BEQ	LOADT5	;IF 0, LOAD ANYWAY
1799	8CA2 C9		FF			CMP	#$FF	;COMPARE WITH FF
1800	8CA4 F0		07			BEQ LOADT6		;IF FF, USE REQUEST SA TO LOAD
1801	8CA6
1802	8CA6 24		FD			BIT MODE		;UNWANTED RECORD, KIM OR HS?
1803	8CA8 30		16			BMI	HWRONG
1804	8CAA 4C		7B	8C		JMP LOADT2		;IF KIM, RESTART SEARCH
1805	8CAD
1806	8CAD				; SA (&EA IF USED) COME FROM REQUEST. DISCARD TAPE VALUES
1807	8CAD				; (BUFAD		ALREADY SET TO SA BY 'START')
1808	8CAD				;
1809	8CAD 20		74	8E	LOADT6 JSR RDCHK			;GET SAL FROM TAPE
1810	8CB0 20		74	8E		JSR RDCHK		;GET SAH FROM TAPE
1811	8CB3 24		FD			BIT MODE		;HS OR KIM?
1812	8CB5 10		52			BPL LOADT7		;IF KIM, START READING DATA
1813	8CB7 20		74	8E		JSR RDCHK		;HS, GET EAH, EAL FROM TAPE
1814	8CBA 20		74	8E		JSR RDCHK		; ... BUT IGNORE
1815	8CBD 4C		DE 8C			JMP LT7H		;START READING HS DATA
1816	8CC0
1817	8CC0				; SA ( & EA IF USED) COME FROM TAPE. SA REPLACES BUFAD
1818	8CC0
1819	8CC0 A9		C0		HWRONG LDA #$C0			;READ THRU TO GE TO NEXT REC
1820	8CC2 85		FD			STA MODE		;BUT DON'T CHECK CKSUM, NO FRAME ERR
1821	8CC4
1822	8CC4 20		74	8E	LOADT5 JSR RDCHK			;GET SAL FROM TAPE
1823	8CC7 85		FE			STA BUFADL		;PUT IN BUF START L
1824	8CC9 20		74	8E		JSR RDCHK		;SAME FOR SAH
1825	8CCC 85		FF			STA	BUFADH
1826	8CCE				;(SAL - H STILL HAVE REQUEST VALUE)
1827	8CCE 24		FD			BIT MODE		;HS OR KIM?
1828	8CD0 10		37			BPL LOADT7		;IF KIM, START READING RECORD
1829	8CD2 20		74	8E		JSR RDCHK		;HS. GET & SAVE EAL,EAH
1830	8CD5 8D		4A	A6		STA	EAL
1831	8CD8 20		74	8E		JSR	RDCHK
1832	8CDB 8D		4B	A6		STA	EAH
1833	8CDE
1834	8CDE				; READ HS DATA
1835	8CDE
1836	8CDE 20		E5	8D	LT7H	JSR RDBYTH		;GET NEXT BYTE
1837	8CE1 A6		FE			LDX BUFADL		;CHECK FOR END OF DATA + 1
1838	8CE3 EC		4A	A6		CPX	EAL
1839	8CE6 D0		07			BNE	LT7HA
1840	8CE8 A6		FF			LDX	BUFADH
1841	8CEA EC		4B	A6		CPX	EAH
1842	8CED F0		14			BEQ	LT7HB
1843	8CEF 20		77	8E	LT7HA	JSR	CHKT	;NOT END, UPDATE CHECKSUM
1844	8CF2 24		FD			BIT	MODE	;WRONG RECORD?
1845	8CF4 70		04			BVS	LT7HC	;IF SO, DONT STORE BYTE
1846	8CF6 A0		00			LDY	#0	;STORE BYTE
1847	8CF8 91		FE			STA	(BUFADL),Y
1848	8CFA E6		FE		LT7HC	INC	BUFADL	;BUMP BUFFER ADDR
1849	8CFC D0		E0			BNE	LT7H
1850	8CFE E6		FF			INC	BUFADH	;CARRY
1851	8D00	4C	DE 8C			JMP	LT7H
1852	8D03

Image 131

Apple II manual STA Mode

Contents

Apple II Original ROM Information Qjjj Data0005A0 FDA9A920 EDFDA98D 4CEDFDA9 8D4CEDFD Page Page Page JI@ Page 001AE0 E8EEE7E8 Efefeeef Eeefeeee Efeeeeee 001AA0 F3FFE8E1 E8E8EFEB FFFFE0FF Ffefeeef001AC0 FFFFE1E1 EFEEE7E8 EEE7F3FB FBEEE1EF 001DB0 9CDD9CDE DD9EC3DD Cfcacdcb 00479AAD 001FB0 Ffffffff FFFF2071 E14CBFEF 2003EEA9 Page 60FFFFFF .JJ DDBAF9F0 0DBDBAF9FA60FFFF 02E61FBD JJJAEAEA8AD Page Page Return Page Basl System Monitor CopyrightLOC0 LOC1Mask 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 JSR LDA IN,YCMP BNE NomoveRTN MloopDCR BNZ MloopBM1 INRBNC BNZLoad DOUBLE-BYTE Indirect ExampleLoad Indirect Store IndirectStore POP Indirect Store DOUBLE-BYTE IndirectPOP Indirect POP DOUBLE-BYTE Indirect ACCSubtract BNC LOOP1 CompareBF A0 SET $A0BF LOOP1 SUBBNZ LOOP2 Return to 6502 ModeDecrement LOOP2LOOP3 SUB Branch if no CarryBranch if Carry SET Branch if PlusReturn from Sweet 16 Subroutine Branch if Minus ONEBranch if not Minus ONE BreakSTA IND JMP LDA #ADRHSTA IND+1 LDA OPTBL,X Page Page Sweet 16 Introduction Page Source NVA DSPPrint Dbload Sweet REM Ctrl D Input Enter String a $ , a $Sweet Poke 776 , a REM Poke DestinationPrint Print Goto Call -605 Return REM XAM8 in MonitorMnemr MINI-ASSEMBLERBaum MnemlSBC PCL Form ADDR-PC-2 JSR Cout Position FORM7 STX A1H Save Index BNE ORGCLC STANorm LDA EXP1 ZERO? Shift Dividend Left Floating Point Representation LOW Floating Point PackageNumber Exponent Mantissa StoredHigh LOW EXP Mantissa Floating Point Representation ExamplesFloating Point Subroutine Descriptions Page Page Page Page HIGH-ORDER STY Init MANT1 LDYSTY Calling SequencePage Page Page Page Page Page Fsub SeeeeeeeMmmmmmmm 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 Addend YES,RETURN with MANT1 NormalizedRight Shift MANT1 or Swap with MANT2 on Carry CMPNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDA STA Errata for Rankins Floating Point RoutinesLDX Load X for High Byte of Exponent Fmul LOGFadd FsubPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Normx RTLOG1Mdend Object Code Dump Page Lstcom TapdelHsbdry Toutfl=UIRQVC OutvecUrcvec =UBRKVCADC TAXStocom STA ORABPL HASHUS+2 Restore Except A,F JMP BEQSTX CPXTXA Exwrap RTSChksad PHP Outxah PHANibasc 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 LOADT2 BufadhDdrdig STA Mode BNE Lcerr Last Char not Kgettr LDA H8DFF BCC PACKT3 DUMPT4 LDY DumptDUMPT1 TXA DMPT1A LDAOutbth LDX Outcht STX Register Name PatchHS Tape Boundary Nowln Rockwell InternationalUdrah UddraTMASK1 =MOVAD OldlenLength MovadTABUF2 CurposChecksum TabuffWrite 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 OUTDD1 PHA OUTD1A CPXOUTD2A TXA 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 MNNDX2 LSR RtmodeGetfmt TAX MNNDX1 LSRPRADR4 DEX PRADR2 LDAPLA 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 Startm JSR ROM TableFB46 8A9AAABACADA Rdaddr LDY IMMED1 LDX Tryjmp LDAConvrt LDA OPCMP1 LDABrnchc JMP Compbr LDX FORMD2 LDXBrcomp LDA Forwrd LDA Backwd LDACuread TXA MATCH1 JMPPATCH4 LDX CURPO2 Dont do Anything if 8D PATC15 JSR Crlf Decode Command Brcomp AddblkADDS1A BkcksmCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 E6AC AIM 65 Microcomputer Monitor Program ListingIntroduction Table of ContentsAIM 65 Microcomputer Basic Language Reference Manual WIDTH? Installing Basic in the AIM ROM Installation ProcedureEntering Basic Memory SIZE?Printer Control Exiting BasicReentering Basic Basic CursorCHR$ Getting Started with Basic Basic Command SETASC Listing a Program Direct and Indirect Commands Direct CommandsIndirect Commands Operating on Programs and LinesList Printing Data Deleting a LineReplacing a Line Deleting a ProgramNumber Output Format Print ONE Half Equals 1/2Number Format Variable Names Variables Assigning Variables with AN Input StatementInput R Reserved Words PSTG$Print A, A*2 LET Z=7 Print Z, Z-A Input B Program Using RelationsRemarks Relational TestsPrint Nsqrn LoopingSquare Root Program AN Improved Square Root ProgramSome Other Looping Operations Another Square Root ProgramPrint Nsqrn Next N COUNT-BACKWARD ProgramSort Program Print What is the NumberPrint I,J Next Next J Matrix OperationsStopping a Program Print BAD GUESS, TRY Again RestoreInput N Print Must be IntegerPrint LENA$,LENMICROCOMPUTER Strings$=ROCKWELL R6500 Print A$ Rockwell R6500 LEN FunctionMID$ Function RIGHT$ FunctionData AIM 65,DOG Print B$ Basic for Rockwell R6500Print C$ Basic FOR-ROCKWELL-R6500 VAL and Strs Functions CHR$ FunctionPrint Print X$ Additional String ConsiderationsName Example PURPOSE/USE DIM Input Input X$Print X/1.3 Operators Symbol Sample StatementESC Cntl PrintRelational Operators Symbol Sample Statement PURPOSE/USENegation Operator Argument Result Not Not If not Q3 thenStatement SYNTAX/FUNCTION Example Clear CommandsPrint Intruder Alert AlertStatement SYNTAX/FUNCTION NEW Statement SYNTAX/FUNCTION FREStatement SYNTAX/FUNCTION List Statement SYNTAX/FUNCTION LoadStatement SYNTAX/FUNCTION Example DEF Statement SYNTAX/FUNCTION Example RUNStatement SYNTAX/FUNCTION Example Save Program StatementsStatement SYNTAX/FUNCTION For Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION END Statement SYNTAX/FUNCTION IF...THEN Statement SYNTAX/FUNCTION GosubStatement SYNTAX/FUNCTION Goto Statement SYNTAX/FUNCTION IF...GOTOStatement SYNTAX/FUNCTION ON...GOSUB If X0 then Print ERROR, X Negative Goto ExampleStatement SYNTAX/FUNCTION LET Statement SYNTAX/FUNCTION NextStatement SYNTAX/FUNCTION Return Statement SYNTAX/FUNCTION RestoreSymbol SYNTAX/FUNCTION Wait Example Restore ReturnPrint Value ISA Statement SYNTAX/FUNCTION InputStatement SYNTAX/FUNCTION POS Statement SYNTAX/FUNCTION PrintString Functions Statement SYNTAX/FUNCTION ASC Statement SYNTAX/FUNCTION ReadStatement SYNTAX/FUNCTION SPC Statement SYNTAX/FUNCTION TABStatement SYNTAX/FUNCTION RIGHT$ Statement SYNTAX/FUNCTION LEFT$Statement SYNTAX/FUNCTION LEN Statement SYNTAX/FUNCTION MID$Statement SYNTAX/FUNCTION EXP Arithmetic Functions Statement SYNTAX/FUNCTION ABSStatement SYNTAX/FUNCTION ATN Statement SYNTAX/FUNCTION COSPrint Sinx Statement SYNTAX/FUNCTION Example SGNPrint Sgnx Statement SYNTAX/FUNCTION Example SINInverse Hyperbolic Secant Error Messages?XX Error PRINTX,Y,Z TAB, SPCSpace Hints Speed Hints Storage Allocation InformationOLD This is Probably the Most Important Speed HintConverting Basic Programs not Written for AIM 65 Basic OLD AIMSOH Assembly Language SubroutinesAscii Character Codes Decimal NULPrintx Address Content$AE InputnumbernStoring AIM 65 Basic Programs on Cassette Recording on Cassette Using the Basic Save CommandRUN NUMBER? IN= Cassette Operations Using the AIM 65 EditorOUT=T F= OUT=T F=FNAME T=0FAC ATN ImplementationEntered by Alter Memory M OF9CSaving ATN Object Code on Cassette WIDTH? Bytes Free AIM 65 Basic