Manuals / Apple / Home Audio / Speaker

Apple II manual BCS INST1

Models: II

1 257

Download 257 pages 49.17 Kb

Page 111

0551	838E	B0	FB			BCS	INST1
0552	8390	38				SEC
0553	8391	60			INST2	RTS
0554	8392	6C	67	A6	INJISV JMP		(INSVEC+1)
0555	8395				;
0556	8395				;
0557	8395				; *** EXECUTE BLOCKS BEGIN HERE
0558	8395				;
0559	8395				BZPARM =*
0560	8395				; ZERO PARM COMMANDS
0561	8395				;
0562	8395	C9	52		REGZ	CMP #'R'		;DISP REGISTERS
0563	8397	D0	5A			BNE GOZ		;PC,S,F,A,X,Y
0564	8399	20	4D	83	RGBACK JSR		CRLF
0565	839C	A9	50			LDA	#'P'
0566	839E	20	47	8A		JSR	OUTCHR
0567	83A1	20	42	83		JSR	SPACE
0568	83A4	20	EE 82			JSR	OUTPC
0569	83A7	20	D6	81		JSR	COMINB
0570	83AA B0 13					BCS	NH3
0571	83AC 8D 34 A6					STA	SCR4
0572	83AF 20 D9 81					JSR	INBYTE
0573	83B2	B0	0B			BCS	NH3
0574	83B4	8D	59	A6		STA	PCLR
0575	83B7	AD 34 A6				LDA	SCR4
0576	83BA 8D 5A A6					STA	PCHR
0577	83BD 90 09					BCC	M34
0578	83BF D0 02				NH3	BNE	NOTCR
0579	83C1	18			EXITRG CLC
0580	83C2	60			EXRGP1 RTS
0581	83C3	20	CB 81		NOTCR	JSR	ADVCK
0582	83C6	D0	FA			BNE	EXRGP1
0583	83C8	A0	00		M34	LDY	#0
0584	83CA C8				M35	INY
0585	83CB C0 06					CPY	#6
0586	83CD F0 CA					BEQ	RGBACK
0587	83CF 20 4D 83					JSR	CRLF
0588	83D2	B9	99	8F		LDA	RGNAM-1,Y	;GET REG NAME
0589	83D5				; OUTPUT 3		SPACES TO LINE UP DISPLAY
0590	83D5	20	47	8A		JSR	OUTCHR
0591	83D8	20	42	83		JSR	SPACE
0592	83DB 20 3F 83					JSR	SPC2
0593	83DE B9 5A A6					LDA	PCHR,Y
0594	83E1	20	D3	81		JSR	OBCMIN
0595	83E4	B0	05			BCS	M36
0596	83E6	99	5A	A6		STA	PCHR,Y
0597	83E9	90	DF			BCC	M35
0598	83EB F0 D4				M36	BEQ	EXITRG
0599	83ED 20 CB 81					JSR	ADVCK
0600	83F0	F0	D8			BEQ	M35
0601	83F2	60				RTS
0602	83F3	C9	47		GOZ	CMP	#'G'
0603	83F5	D0	20			BNE	LPZB
0604	83F7	20	4D	83		JSR	CRLF
0605	83FA 20 9C 8B				GO1ENT JSR		NACCES	;WRITE PROT MONITOR RAM
0606	83FD AE 5B A6					LDX	SR	;RESTORE REGS
0607	8400	9A				TXS
0608	8401	AD 5A A6				LDA	PCHR
0609	8404	48				PHA
0610	8405	AD 59 A6				LDA	PCLR
0611	8408	48			NR10	PHA
0612	8409	AD 5C A6				LDA	FR

Image 111

Apple II manual BCS INST1

Contents

Apple II Original ROM Information Qjjj Data0005A0 FDA9A920 EDFDA98D 4CEDFDA9 8D4CEDFD Page Page Page JI@ Page 001AA0 F3FFE8E1 E8E8EFEB FFFFE0FF Ffefeeef 001AC0 FFFFE1E1 EFEEE7E8 EEE7F3FB FBEEE1EF001AE0 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 IndirectStore DOUBLE-BYTE Indirect POP IndirectStore POP Indirect ACC SubtractPOP 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 BreakLDA #ADRH STA IND+1 LDA OPTBL,XSTA 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 Seeeeeee MmmmmmmmFsub 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 Errata for Rankins Floating Point Routines LDX Load X for High Byte of ExponentLDA STA Fmul LOGFadd FsubPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM RTLOG1 MdendNormx 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 Bufadh DdrdigLOADT2 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 OUTD1A CPX OUTD2A TXAOUTDD1 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 LSRPRADR2 LDA PLAPRADR4 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 ROM Table FB46 8A9AAABACADAStartm JSR Rdaddr LDY IMMED1 LDX Tryjmp LDAOPCMP1 LDA Brnchc JMPConvrt LDA FORMD2 LDX Brcomp LDACompbr 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 ListingTable of Contents AIM 65 Microcomputer Basic Language Reference ManualIntroduction WIDTH? Installing Basic in the AIM ROM Installation ProcedureEntering Basic Memory SIZE?Printer Control Exiting BasicReentering Basic Basic CursorGetting Started with Basic Basic Command SET ASCCHR$ Listing a Program Direct and Indirect Commands Direct CommandsIndirect Commands Operating on Programs and LinesList Printing Data Deleting a LineReplacing a Line Deleting a ProgramPrint ONE Half Equals 1/2 Number FormatNumber Output Format Variables Assigning Variables with AN Input Statement Input RVariable Names PSTG$ Print A, A*2 LET Z=7 Print Z, Z-AReserved 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 PrintSymbol Sample Statement PURPOSE/USE NegationRelational 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 DIM Statement SYNTAX/FUNCTION ENDStatement 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 SINError Messages ?XX ErrorInverse Hyperbolic Secant TAB, SPC Space HintsPRINTX,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 InputnumbernRecording on Cassette Using the Basic Save Command RUN NUMBER?Storing 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