Manuals / Apple / Home Audio / Speaker

Apple II manual LT2 LDA A2L,X Copy A2 2 Bytes to

Models: II

1 257

Download 257 pages 49.17 Kb

Page 34

FE20: A2 01	891	LT	LDX	#$01
FE22: B5 3E	892	LT2	LDA	A2L,X	;COPY A2 (2 BYTES) TO
FE24: 95 42	893		STA	A4L,X	;	A4 AND A5
FE26: 95 44	894		STA	A5L,X
FE28: CA	895		DEX
FE29: 10 F7	896		BPL	LT2
FE2B: 60	897		RTS
FE2C: B1 3C	898	MOVE	LDA	(A1L),Y	;MOVE (A1 TO A2) TO
FE2E: 91 42	899		STA	(A4L),Y	;	(A4)
FE30: 20 B4 FC	900		JSR	NXTA4
FE33: 90 F7	901		BCC	MOVE
FE35: 60	902		RTS
FE36: B1 3C	903	VFY	LDA	(A1L),Y	;VERIFY (A1 TO A2) WITH
FE38: D1 42	904		CMP	(A4L),Y	;	(A4)
FE3A: F0 1C	905		BEQ	VFYOK
FE3C: 20 92 FD	906		JSR	PRA1
FE3F: B1 3C	907		LDA	(A1L),Y
FE41: 20 DA FD	908		JSR	PRBYTE
FE44: A9 A0	909		LDA	#$A0
FE46: 20 ED FD	910		JSR	COUT
FE49: A9 A8	911		LDA	#$A8
FE4B: 20 ED FD	912		JSR	COUT
FE4E: B1 42	913		LDA	(A4L),Y
FE50: 20 DA FD	914		JSR	PRBYTE
FE53: A9 A9	915		LDA	#$A9
FE55: 20 ED FD	916		JSR	COUT
FE58: 20 B4 FC	917	VFYOK	JSR	NXTA4
FE5B: 90 D9	918		BCC	VFY
FE5D: 60	919		RTS
FE5E: 20 75 FE	920	LIST	JSR	A1PC	;MOVE A1 (2 BYTES) TO
FE61: A9 14	921		LDA	#$14	;	PC IF SPEC'D AND
FE63: 48	922	LIST2	PHA		;	DISEMBLE 20 INSTRS
FE64: 20 D0 F8	923		JSR	INSTDSP
FE67: 20 53 F9	924		JSR	PCADJ	;ADJUST PC EACH INSTR
FE6A: 85 3A	925		STA	PCL
FE6C: 84 3B	926		STY	PCH
FE6E: 68	927		PLA
FE6F: 38	928		SEC
FE70: E9 01	929		SBC	#$01	;NEXT OF 20 INSTRS
FE72: D0 EF	930		BNE	LIST2
FE74: 60	931		RTS
FE75: 8A	932	A1PC	TXA		;IF USER SPEC'D ADR
FE76: F0 07	933		BEQ	A1PCRTS	;	COPY FROM A1 TO PC
FE78: B5 3C	934	A1PCLP	LDA	A1L,X
FE7A: 95 3A	935		STA	PCL,X
FE7C: CA	936		DEX
FE7D: 10 F9	937		BPL	A1PCLP
FE7F: 60	938	A1PCRTS	RTS
FE80: A0 3F	939	SETINV	LDY	#$3F	;SET FOR INVERSE VID
FE82: D0 02	940		BNE	SETIFLG	; VIA COUT1
FE84: A0 FF	941	SETNORM	LDY	#$FF	;SET FOR NORMAL VID
FE86: 84 32	942	SETIFLG	STY	INVFLG
FE88: 60	943		RTS
FE89: A9 00	944	SETKBD	LDA	#$00	;SIMULATE PORT #0 INPUT
FE8B: 85 3E	945	INPORT	STA	A2L	;	SPECIFIED (KEYIN ROUTINE)
FE8D: A2 38	946	INPRT	LDX	#KSWL
FE8F: A0 1B	947		LDY	#KEYIN
FE91: D0 08	948		BNE	IOPRT
FE93: A9 00	949	SETVID	LDA	#$00	;SIMULATE PORT #0 OUTPUT
FE95: 85 3E	950	OUTPORT	STA	A2L	;	SPECIFIED (COUT1 ROUTINE)
FE97: A2 36	951	OUTPRT	LDX	#CSWL
FE99: A0 F0	952		LDY	#COUT1

Image 34

Apple II manual LT2 LDA A2L,X Copy A2 2 Bytes to

Contents

Apple II Original ROM Information Data Qjjj0005A0 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 02E61FBD JJJ DDBAF9F0 0DBDBAF9FA60FFFF 60FFFFFF .JJAEAEA8AD Page Page Return Page LOC1 System Monitor CopyrightLOC0 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 Save BRTBL,XLSR Prepare Carry for BC, BNC Stat LDA R0L JSR STAT2 Push LOW PC Byte VIA R12 BNE Nomove LDA IN,YCMP JSRBNZ Mloop MloopDCR RTNBNZ INRBNC BM1Store Indirect ExampleLoad Indirect Load DOUBLE-BYTE IndirectPOP Indirect Store DOUBLE-BYTE IndirectStore POP Indirect Subtract ACCPOP DOUBLE-BYTE Indirect LOOP1 SUB CompareBF A0 SET $A0BF BNC LOOP1LOOP2 Return to 6502 ModeDecrement BNZ LOOP2Branch if Plus Branch if no CarryBranch if Carry SET LOOP3 SUBBreak Branch if Minus ONEBranch if not Minus ONE Return from Sweet 16 SubroutineSTA IND+1 LDA OPTBL,X LDA #ADRHSTA IND JMP Page Page Sweet 16 Introduction Page Source Input Enter String a $ , a $ DSPPrint Dbload Sweet REM Ctrl D NVACall -605 Return REM XAM8 in Monitor Poke 776 , a REM Poke DestinationPrint Print Goto SweetMneml MINI-ASSEMBLERBaum MnemrSBC PCL Form ADDR-PC-2 JSR Cout Position FORM7 STX A1H Save Index STA ORGCLC BNENorm LDA EXP1 ZERO? Shift Dividend Left Floating Point Package Floating Point Representation LOWFloating Point Representation Examples StoredHigh LOW EXP Mantissa Number Exponent MantissaFloating Point Subroutine Descriptions Page Page Page Page Calling Sequence STY Init MANT1 LDYSTY 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 CMP YES,RETURN with MANT1 NormalizedRight Shift MANT1 or Swap with MANT2 on Carry AddendNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDX Load X for High Byte of Exponent Errata for Rankins Floating Point RoutinesLDA STA Fsub LOGFadd FmulPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Mdend RTLOG1Normx Object Code Dump Page Toutfl TapdelHsbdry Lstcom=UBRKVC OutvecUrcvec =UIRQVCTAX ADCORA Stocom STABPL HASHUS+2 Restore Except A,F CPX BEQSTX JMPOutxah PHA Exwrap RTSChksad PHP 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 Dftxfr LDX Newdev LDALDA Toutfl 8BFF 0D Msfirst Ddrdig BufadhLOADT2 STA Mode BNE Lcerr Last Char not Kgettr LDA H8DFF BCC PACKT3 DMPT1A LDA DumptDUMPT1 TXA DUMPT4 LDYOutbth LDX Register Name Patch Outcht STXHS Tape Boundary Uddra Rockwell InternationalUdrah NowlnMovad OldlenLength TMASK1 =MOVADTabuff CurposChecksum TABUF2Write Edge Detect Control not Used Because KB CRB EQSDB TO,EQS CFD2A0A0A0A0SEI Disable Interrupt RS6 JSR Crlow Clear Display E1AC Have Valid Command Nxtadd TYA Space CommFor LOAD1A LDALOADK5 LDX JMP LOADK5 Next E46A EE INC Bkflg SET FLG Outcks LDA OUTCK1 PHADumpta LDX DUMPT1 LDAE5EA TOGTA1 LDA TOGTA2 LDA BCC JD3 MSG Whereo LDY ANY Other CPYSTA Outflg Output PHA Outall PHAROL Priflg Restore FLG Wrax JSR Numa EAA3 CA DEX Memerr JSR STA STIY+2 Dehalf LDA EC5E 4A LSR Only ROW Onekey LDA Debkey LDXED3B 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 NEW Print ROW Newcol LDACkbuff LDA Bkcksm LDAOUTTA1 PHA OUTTA2 LDXF2E1 3E7E7F3E7F7FCOL0 Zero Leftmost ColumnDB BGYU76HN MNNDX1 LSR RtmodeGetfmt TAX 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 Tryjmp LDA IMMED1 LDXBrnchc JMP OPCMP1 LDAConvrt LDA Brcomp LDA FORMD2 LDXCompbr LDX Backwd LDA Forwrd LDAMATCH1 JMP Curead TXAPATCH4 LDX CURPO2 Dont do Anything if 8D PATC15 JSR Crlf Decode Command Bkcksm AddblkADDS1A BrcompCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 AIM 65 Microcomputer Monitor Program Listing E6ACAIM 65 Microcomputer Basic Language Reference Manual Table of ContentsIntroduction Memory SIZE? Installing Basic in the AIM ROM Installation ProcedureEntering Basic WIDTH?Basic Cursor Exiting BasicReentering Basic Printer ControlASC Getting Started with Basic Basic Command SETCHR$ Operating on Programs and Lines Direct and Indirect Commands Direct CommandsIndirect Commands Listing a ProgramDeleting a Program Deleting a LineReplacing a Line 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 Relational Tests Program Using RelationsRemarks Input BAN Improved Square Root Program LoopingSquare Root Program Print NsqrnCOUNT-BACKWARD Program Another Square Root ProgramPrint Nsqrn Next N Some Other Looping OperationsMatrix Operations Print What is the NumberPrint I,J Next Next J Sort ProgramPrint Must be Integer Print BAD GUESS, TRY Again RestoreInput N Stopping a ProgramLEN Function Strings$=ROCKWELL R6500 Print A$ Rockwell R6500 Print LENA$,LENMICROCOMPUTERRIGHT$ Function MID$ FunctionCHR$ Function Print B$ Basic for Rockwell R6500Print C$ Basic FOR-ROCKWELL-R6500 VAL and Strs Functions Data AIM 65,DOGInput Input X$ Additional String ConsiderationsName Example PURPOSE/USE DIM Print Print X$Cntl Print Operators Symbol Sample StatementESC Print X/1.3Negation Symbol Sample Statement PURPOSE/USERelational Operators Not If not Q3 then Operator Argument Result NotAlert CommandsPrint Intruder Alert Statement SYNTAX/FUNCTION Example ClearStatement SYNTAX/FUNCTION Load Statement SYNTAX/FUNCTION FREStatement SYNTAX/FUNCTION List Statement SYNTAX/FUNCTION NEWProgram Statements Statement SYNTAX/FUNCTION Example RUNStatement SYNTAX/FUNCTION Example Save Statement SYNTAX/FUNCTION Example DEFStatement SYNTAX/FUNCTION END Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION For Statement SYNTAX/FUNCTION IF...GOTO Statement SYNTAX/FUNCTION GosubStatement SYNTAX/FUNCTION Goto Statement SYNTAX/FUNCTION IF...THENStatement SYNTAX/FUNCTION Next If X0 then Print ERROR, X Negative Goto ExampleStatement SYNTAX/FUNCTION LET Statement SYNTAX/FUNCTION ON...GOSUBExample Restore Return Statement SYNTAX/FUNCTION RestoreSymbol SYNTAX/FUNCTION Wait Statement SYNTAX/FUNCTION ReturnStatement SYNTAX/FUNCTION Print Statement SYNTAX/FUNCTION InputStatement SYNTAX/FUNCTION POS Print Value ISAStatement SYNTAX/FUNCTION TAB Statement SYNTAX/FUNCTION ReadStatement SYNTAX/FUNCTION SPC String Functions Statement SYNTAX/FUNCTION ASCStatement SYNTAX/FUNCTION MID$ Statement SYNTAX/FUNCTION LEFT$Statement SYNTAX/FUNCTION LEN Statement SYNTAX/FUNCTION RIGHT$Statement SYNTAX/FUNCTION COS Arithmetic Functions Statement SYNTAX/FUNCTION ABSStatement SYNTAX/FUNCTION ATN Statement SYNTAX/FUNCTION EXPStatement SYNTAX/FUNCTION Example SIN Statement SYNTAX/FUNCTION Example SGNPrint Sgnx Print Sinx?XX Error Error MessagesInverse Hyperbolic Secant Space Hints TAB, SPCPRINTX,Y,Z Storage Allocation Information Speed HintsOLD AIM This is Probably the Most Important Speed HintConverting Basic Programs not Written for AIM 65 Basic OLDNUL Assembly Language SubroutinesAscii Character Codes Decimal SOHInputnumbern Address Content$AE PrintxRUN NUMBER? Recording on Cassette Using the Basic Save CommandStoring AIM 65 Basic Programs on Cassette OUT=T F=FNAME T= Cassette Operations Using the AIM 65 EditorOUT=T F= IN=OF9C ATN ImplementationEntered by Alter Memory M 0FACWIDTH? Bytes Free AIM 65 Basic Saving ATN Object Code on Cassette