Manuals / Apple / Home Audio / Speaker

Apple II manual LSR Cpiy Make Room for MSB

Models: II

1 257

Download 257 pages 49.17 Kb

Page 175

2151	EE2E 4E 2A A4		LSR	CPIY	;MAKE ROOM FOR MSB
2152	EE31 0D 2A A4		ORA	CPIY	;OR IN SIGN BIT
2153	EE34 8D 2A A4		STA CPIY		;REPLACE CHAR
2154	EE37 88		DEY
2155	EE38 D0 F1		BNE	GETA1
2156	EE3A 60		RTS
2157	EE3B	;GET ONE BIT FROM TAPE AND
2158	EE3B	;RETURN IT		IN SIGN OF A (MSB)
2159	EE3B AD 08 A4	RDBIT	LDA	TSPEED	;ARE WE IN C7 OR 5B,5A FREQUENC`
2160	EE3E 30 27		BMI	RDBIT4	;JUMP TO C7 FREQ FORMAT
2161	EE40 20 75 EE		JSR	CKFREQ	;START BIT IN HIGH FREQ
2162	EE43 20 75 EE	RDBIT1 JSR		CKFREQ	;HIGH TO LOW FREQ TRANS
2163	EE46 B0 FB		BCS	RDBIT1
2164	EE48 AD 96 A4		LDA DIV64		;GET HIGH FREQ TIMING
2165	EE4B 48		PHA
2166	EE4C A9 FF		LDA #$FF		;SET UP TIMER
2167	EE4E 8D 96 A4		STA	DIV64
2168	EE51 20 75 EE	RDBIT2 JSR		CKFREQ	;LOW TO HIGH FREQ TRANS
2169	EE54 90 FB		BCC RDBIT2		;WAIT TILL FREQ IS HIGH
2170	EE56 68		PLA
2171	EE57 38		SEC
2172	EE58 ED 96 A4		SBC DIV64		;(256-T1) - (256-T2) =T2-T1
2173	EE5B 48		PHA		;LOW FREQ TIME-HIGH FREQ TIME
2174	EE5C A9 FF		LDA	#$FF
2175	EE5E 8D 96 A4		STA DIV64		;SET UP TIMER
2176	EE61 68		PLA
2177	EE62 49 FF		EOR	#$FF
2178	EE64 29 80		AND	#$80
2179	EE66 60		RTS
2180	EE67	;EACH BIT STARTS WITH HALF PULSE OF 2400 & THEN
2181	EE67	;3 HALF PULSES OF 1200 HZ FOR 0 ,3 PUSLES OF 2400 FOR 1
2182	EE67	;THE READING IS MADE ON THE FOURTH 1/2 PULSE ,WHERE
2183	EE67	;THE SIGNAL HAS STABILIZED
2184	EE67 20 75 EE	RDBIT4 JSR CKFREQ			;SEE WHICH FREQ
2185	EE6A 90 FB		BCC	RDBIT4
2186	EE6C 20 75 EE		JSR	CKFREQ
2187	EE6F 20 75 EE		JSR	CKFREQ
2188	EE72 4C B5 FF		JMP PATC24		;NOW READ THE BIT
2189	EE75
2190	EE75 2C 00 A8	CKFREQ BIT DRB			;ARE WE HIGH OR LOW ?
2191	EE78 30 27		BMI	CKF4
2192	EE7A 2C 00 A8	CKF1	BIT	DRB	;WAIT TILL HIGH
2193	EE7D 10 FB		BPL	CKF1
2194	EE7F 65 00		ADC	$00	;EQUALIZER
2195	EE81 AD 09 A8	CKF2	LDA T2H		;SAVE CNTR
2196	EE84 48		PHA
2197	EE85 AD 08 A8		LDA	T2L
2198	EE88 48		PHA
2199	EE89 A9 FF		LDA	#$FF
2200	EE8B 8D 09 A8		STA	T2H	;START CNTR
2201	EE8E AD 08 A4		LDA	TSPEED
2202	EE91 30 06		BMI CKF3		;SUPER SPEED ?
2203	EE93 68		PLA
2204	EE94 CD 08 A4		CMP TSPEED		;HIGH OR LOW FREC
2205	EE97 68		PLA		;C=1 IF HIGH ,C=0 IF LOW
2206	EE98 60		RTS
2207	EE99 68	CKF3	PLA
2208	EE9A CD 08 A4		CMP TSPEED		;CENTER FREQ
2209	EE9D 68	CKF3A	PLA
2210	EE9E E9 FE		SBC	#$FE
2211	EEA0 60		RTS
2212	EEA1 2C 00 A8	CKF4	BIT DRB		;WAIT TILL LOW

Image 175

Apple II manual LSR Cpiy Make Room for MSB

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 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 IndirectPOP Indirect Store DOUBLE-BYTE IndirectStore POP Indirect Subtract ACCPOP DOUBLE-BYTE Indirect 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+1 LDA OPTBL,X LDA #ADRHSTA IND JMP 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 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 Addend YES,RETURN with MANT1 NormalizedRight Shift MANT1 or Swap with MANT2 on Carry CMPNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDX Load X for High Byte of Exponent Errata for Rankins Floating Point RoutinesLDA STA Fmul LOGFadd FsubPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Mdend RTLOG1Normx 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 Ddrdig BufadhLOADT2 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 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 MNNDX2 LSR RtmodeGetfmt TAX MNNDX1 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 Brcomp AddblkADDS1A BkcksmCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 E6AC AIM 65 Microcomputer Monitor Program ListingAIM 65 Microcomputer Basic Language Reference Manual Table of ContentsIntroduction WIDTH? Installing Basic in the AIM ROM Installation ProcedureEntering Basic Memory SIZE?Printer Control Exiting BasicReentering Basic Basic CursorASC Getting Started with Basic Basic Command SETCHR$ 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 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 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 PrintNegation Symbol Sample Statement PURPOSE/USERelational Operators 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 END Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION For 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 SIN?XX Error Error MessagesInverse Hyperbolic Secant Space Hints TAB, SPCPRINTX,Y,Z 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 InputnumbernRUN NUMBER? Recording on Cassette Using the Basic Save CommandStoring AIM 65 Basic Programs on Cassette 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