Manuals / Apple / Home Audio / Speaker

Apple II manual SBC PCL Form ADDR-PC-2

Models: II

1 257

Download 257 pages 49.17 Kb

Page 62

F50D: 8A	57		TXA
F50E: 18	58		CLC
F50F: E5 3A	59		SBC	PCL	;FORM ADDR-PC-2
F511: 85 3E	60		STA	A2L
F513: 10 01	61		BPL	REL3
F515: C8	62		INY
F516: 98	63	REL3	TYA
F517: E5 3B	64		SBC	PCH
F519: D0 6B	65	ERR3	BNE	ERR	;ERROR IF >1-BYTE BRANCH
F51B: A4 2F	66	FINDOP	LDY	LENGTH
F51D: B9 3D 00	67	FNDOP2	LDA	A1H,Y	;MOVE INST TO (PC)
F520: 91 3A	68		STA	(PCL),Y
F522: 88	69		DEY
F523: 10 F8	70		BPL	FNDOP2
F525: 20 1A FC	71		JSR	CURSUP
F528: 20 1A FC	72		JSR	CURSUP	;RESTORE CURSOR
F52B: 20 D0 F8	73		JSR	INSTDSP	;TYPE FORMATTED LINE
F52E: 20 53 F9	74		JSR	PCADJ	;UPDATE PC
F531: 84 3B	75		STY	PCH
F533: 85 3A	76		STA	PCL
F535: 4C 95 F5	77		JMP	NXTLINE	;GET NEXT LINE
F538: 20 BE FF	78	FAKEMON3 JSR		TOSUB	;GO TO DELIM HANDLER
F53B: A4 34	79		LDY	YSAV	;RESTORE Y-INDEX
F53D: 20 A7 FF	80	FAKEMON	JSR	GETNUM	;READ PARAM
F540: 84 34	81		STY	YSAV	;SAVE Y-INDEX
F542: A0 17	82		LDY	#$17	;INIT DELIMITER INDEX
F544: 88	83	FAKEMON2 DEY			;CHECK NEXT DELIM
F545: 30 4B	84		BMI	RESETZ	;ERR IF UNRECOGNIZED DELIM
F547: D9 CC FF	85		CMP	CHRTBL,Y	;COMPARE WITH DELIM TABLE
F54A: D0 F8	86		BNE	FAKEMON2	;NO MATCH
F54C: C0 15	87		CPY	#$15	;MATCH, IS IT CR?
F54E: D0 E8	88		BNE	FAKEMON3	;NO, HANDLE IT IN MONITOR
F550: A5 31	89		LDA	MODE
F552: A0 00	90		LDY	#$0
F554: C6 34	91		DEC	YSAV
F556: 20 00 FE	92		JSR	BL1	;HANDLE CR OUTSIDE MONITOR
F559: 4C 95 F5	93		JMP	NXTLINE
F55C: A5 3D	94	TRYNEXT	LDA	A1H	;GET TRIAL OPCODE
F55E: 20 8E F8	95		JSR	INSDS2	;GET FMT+LENGTH FOR OPCODE
F561: AA	96		TAX
F562: BD 00 FA	97		LDA	MNEMR,X	;GET LOWER MNEMONIC BYTE
F565: C5 42	98		CMP	A4L	;MATCH?
F567: D0 13	99		BNE	NEXTOP	;NO, TRY NEXT OPCODE.
F569: BD C0 F9	100		LDA	MNEML,X	;GET UPPER MNEMONIC BYTE
F56C: C5 43	101		CMP	A4H	;MATCH?
F56E: D0 0C	102		BNE	NEXTOP	;NO, TRY NEXT OPCODE
F570: A5 44	103		LDA	FMT
F572: A4 2E	104		LDY	FORMAT	;GET TRIAL FORMAT
F574: C0 9D	105		CPY	#$9D	;TRIAL FORMAT RELATIVE?
F576: F0 88	106		BEQ	REL	;YES.
F578: C5 2E	107	NREL	CMP	FORMAT	;SAME FORMAT?
F57A: F0 9F	108		BEQ	FINDOP	;YES.
F57C: C6 3D	109	NEXTOP	DEC	A1H	;NO, TRY NEXT OPCODE
F57E: D0 DC	110		BNE	TRYNEXT
F580: E6 44	111		INC	FMT	;NO MORE, TRY WITH LEN=2
F582: C6 35	112		DEC	L	;WAS L=2 ALREADY?
F584: F0 D6	113		BEQ	TRYNEXT	;NO.
F586: A4 34	114	ERR	LDY	YSAV	;YES, UNRECOGNIZED INST.
F588: 98	115	ERR2	TYA
F589: AA	116		TAX
F58A: 20 4A F9	117		JSR	PRBL2	;PRINT ^ UNDER LAST READ
F58D: A9 DE	118		LDA	#$DE	;CHAR TO INDICATE ERROR

Image 62

Apple II manual SBC PCL Form ADDR-PC-2

Contents

Apple II Original ROM Information Data Qjjj0005A0 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 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 IndirectStore POP Indirect Store DOUBLE-BYTE IndirectPOP Indirect POP DOUBLE-BYTE Indirect ACCSubtract 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 JMP LDA #ADRHSTA IND+1 LDA OPTBL,X 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 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 CMP YES,RETURN with MANT1 NormalizedRight Shift MANT1 or Swap with MANT2 on Carry AddendNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDA STA Errata for Rankins Floating Point RoutinesLDX Load X for High Byte of Exponent Fsub LOGFadd FmulPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Normx RTLOG1Mdend 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 LOADT2 BufadhDdrdig 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 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 NEW Print ROW Newcol LDACkbuff LDA Bkcksm LDAOUTTA1 PHA OUTTA2 LDXF2E1 3E7E7F3E7F7FCOL0 Zero Leftmost ColumnDB BGYU76HN MNNDX1 LSR RtmodeGetfmt TAX MNNDX2 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 Tryjmp LDA IMMED1 LDXConvrt LDA OPCMP1 LDABrnchc JMP Compbr LDX FORMD2 LDXBrcomp LDA 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 E6ACIntroduction Table of ContentsAIM 65 Microcomputer Basic Language Reference Manual Memory SIZE? Installing Basic in the AIM ROM Installation ProcedureEntering Basic WIDTH?Basic Cursor Exiting BasicReentering Basic Printer ControlCHR$ Getting Started with Basic Basic Command SETASC 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 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 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.3Relational Operators Symbol Sample Statement PURPOSE/USENegation 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 For Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION END 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 SinxInverse Hyperbolic Secant Error Messages?XX Error PRINTX,Y,Z TAB, SPCSpace Hints 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 PrintxStoring AIM 65 Basic Programs on Cassette Recording on Cassette Using the Basic Save CommandRUN NUMBER? 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