Manuals / Apple / Home Audio / Speaker

Apple II manual Ora, Stocom STA

Models: II

1 257

Download 257 pages 49.17 Kb

Page 105

0179	809F	20	64	80		JSR	SAVINT
0180	80A2	20	D3	80		JSR	DBOFF	;STOP NMI'S
0181	80A5	AD 56 A6				LDA	TV
0182	80A8	D0	05			BNE	TVNZ
0183	80AA A9 32					LDA	#'2'
0184	80AC 4C 53 80					JMP	IDISP
0185	80AF 20 37 83				TVNZ	JSR	OPCCOM	;TRACE WITH DELAY
0186	80B2	AD 5D A6				LDA	AR
0187	80B5	20	4A	83		JSR	OBCRLF	;DISPLAY ACC
0188	80B8	20	5A	83		JSR	DELAY
0189	80BB 90 10					BCC	TRACON	;STOP IF KEY ENTERED
0190	80BD 4C 03 80					JMP	WARM
0191	80C0	20	86	8B	TRCOFF JSR ACCESS			;DISABLE NMIS
0192	80C3	38				SEC
0193	80C4	20	64	80		JSR	SAVINT
0194	80C7	20	D3	80		JSR	DBOFF
0195	80CA 6C 74 A6					JMP	(TRCVEC)	;AND GO TO SPECIAL TRACE
0196	80CD 20 E4 80				TRACON JSR		DBON	;ENABLE NMI'S
0197	80D0	4C	FD 83			JMP	GO1ENT+3	;AND RESUME (NO WRITE PROT)
0198	80D3	AD 01 AC			DBOFF	LDA	OR3A	;PULSE DEBUG OFF
0199	80D6	29	DF			AND	#$DF
0200	80D8	09	10			ORA	#$10
0201	80DA 8D 01 AC					STA	OR3A
0202	80DD AD 03 AC					LDA	DDR3A
0203	80E0	09	30			ORA	#$30
0204	80E2	D0	0F			BNE	DBNEW-3	;RELEASE FLIP FLOP SO KEY WORKS
0205	80E4	AD 01 AC			DBON	LDA	OR3A	;PULSE DEBUG ON
0206	80E7	29	EF			AND	#$EF
0207	80E9	09	20			ORA	#$20
0208	80EB 8D 01 AC					STA	OR3A
0209	80EE AD 03 AC					LDA	DDR3A
0210	80F1	09	30			ORA	#$30
0211	80F3	8D	03	AC		STA	DDR3A
0212	80F6	AD 03 AC			DBNEW	LDA	DDR3A	;RELEASE FLIP FLOP
0213	80F9	29	CF			AND	#$CF
0214	80FB 8D 03 AC					STA	DDR3A
0215	80FE 60					RTS
0216	80FF				;
0217	80FF				; GETCOM - GET COMMAND AND 0-3 PARMS
0218	80FF				;
0219	80FF 20 4D 83				GETCOM JSR		CRLF
0220	8102	A9	2E			LDA	#'.'	;PROMPT
0221	8104	20	47	8A		JSR	OUTCHR
0222	8107	20	1B	8A	GETC1	JSR	INCHR
0223	810A	F0	F3			BEQ	GETCOM	;CARRIAGE RETURN?
0224	810C	C9	7F			CMP	#$7F	;DELETE?
0225	810E	F0	F7			BEQ	GETC1
0226	8110	C9	00			CMP	#0	;NULL?
0227	8112	F0	F3			BEQ	GETC1
0228	8114				; L,S,U NEED TO BE HASHED 2 BYTES TO ONE
0229	8114	C9	53			CMP	#'S'
0230	8116	F0	1B			BEQ	HASHUS
0231	8118	C9	55			CMP	#'U'
0232	811A	F0	17			BEQ	HASHUS
0233	811C	C9	4C			CMP	#'L'
0234	811E	F0	0F			BEQ	HASHL
0235	8120	8D	57	A6	STOCOM STA		LSTCOM
0236	8123	20	42	83		JSR	SPACE
0237	8126	20	08	82		JSR	PSHOVE	;ZERO PARMS
0238	8129	20	08	82		JSR	PSHOVE
0239	812C	4C	20	82		JMP	PARM	;AND GO GET PARMS
0240	812F	A9	01		HASHL	LDA	#$01	;HASH LOAD CMDS TO ONE BYTE

Image 105

Apple II manual Ora, Stocom STA

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 FA60FFFF DDBAF9F0 0DBDBAF902E61FBD JJJ 60FFFFFF .JJAEAEA8AD Page Page Return Page LOC0 System Monitor CopyrightLOC1 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 BRTBL,X SaveLSR Prepare Carry for BC, BNC Stat LDA R0L JSR STAT2 Push LOW PC Byte VIA R12 CMP LDA IN,YBNE Nomove JSRDCR MloopBNZ Mloop RTNBNC INRBNZ BM1Load Indirect ExampleStore Indirect Load DOUBLE-BYTE IndirectStore DOUBLE-BYTE Indirect POP IndirectStore POP Indirect ACC SubtractPOP DOUBLE-BYTE Indirect BF A0 SET $A0BF CompareLOOP1 SUB BNC LOOP1Decrement Return to 6502 ModeLOOP2 BNZ LOOP2Branch if Carry SET Branch if no CarryBranch if Plus LOOP3 SUBBranch if not Minus ONE Branch if Minus ONEBreak Return from Sweet 16 SubroutineLDA #ADRH STA IND+1 LDA OPTBL,XSTA IND JMP Page Page Sweet 16 Introduction Page Source Print Dbload Sweet REM Ctrl D DSPInput Enter String a $ , a $ NVAPrint Print Goto Poke 776 , a REM Poke DestinationCall -605 Return REM XAM8 in Monitor SweetBaum MINI-ASSEMBLERMneml MnemrSBC PCL Form ADDR-PC-2 JSR Cout Position FORM7 STX A1H Save Index CLC ORGSTA BNENorm LDA EXP1 ZERO? Shift Dividend Left Floating Point Representation LOW Floating Point PackageHigh LOW EXP Mantissa StoredFloating Point Representation Examples Number Exponent MantissaFloating Point Subroutine Descriptions Page Page Page Page STY STY Init MANT1 LDYCalling Sequence HIGH-ORDERPage 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 Right Shift MANT1 or Swap with MANT2 on Carry YES,RETURN with MANT1 NormalizedCMP AddendNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement Errata for Rankins Floating Point Routines LDX Load X for High Byte of ExponentLDA STA Fadd LOGFsub FmulPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM RTLOG1 MdendNormx Object Code Dump Page Hsbdry TapdelToutfl LstcomUrcvec Outvec=UBRKVC =UIRQVCADC TAXStocom STA ORABPL HASHUS+2 Restore Except A,F STX BEQCPX JMPChksad PHP Exwrap RTSOutxah PHA 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 Newdev LDA Dftxfr LDXLDA Toutfl 8BFF 0D Msfirst Bufadh DdrdigLOADT2 STA Mode BNE Lcerr Last Char not Kgettr LDA H8DFF BCC PACKT3 DUMPT1 TXA DumptDMPT1A LDA DUMPT4 LDYOutbth LDX Outcht STX Register Name PatchHS Tape Boundary Udrah Rockwell InternationalUddra NowlnLength OldlenMovad TMASK1 =MOVADChecksum CurposTabuff TABUF2Write 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 Getfmt TAX RtmodeMNNDX1 LSR MNNDX2 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 ADDS1A AddblkBkcksm BrcompCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 E6AC AIM 65 Microcomputer Monitor Program ListingTable of Contents AIM 65 Microcomputer Basic Language Reference ManualIntroduction Entering Basic Installing Basic in the AIM ROM Installation ProcedureMemory SIZE? WIDTH?Reentering Basic Exiting BasicBasic Cursor Printer ControlGetting Started with Basic Basic Command SET ASCCHR$ Indirect Commands Direct and Indirect Commands Direct CommandsOperating on Programs and Lines Listing a ProgramReplacing a Line Deleting a LineDeleting a Program List Printing DataPrint 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 Remarks Program Using RelationsRelational Tests Input BSquare Root Program LoopingAN Improved Square Root Program Print NsqrnPrint Nsqrn Next N Another Square Root ProgramCOUNT-BACKWARD Program Some Other Looping OperationsPrint I,J Next Next J Print What is the NumberMatrix Operations Sort ProgramInput N Print BAD GUESS, TRY Again RestorePrint Must be Integer Stopping a Program$=ROCKWELL R6500 Print A$ Rockwell R6500 StringsLEN Function Print LENA$,LENMICROCOMPUTERMID$ Function RIGHT$ FunctionPrint C$ Basic FOR-ROCKWELL-R6500 VAL and Strs Functions Print B$ Basic for Rockwell R6500CHR$ Function Data AIM 65,DOGName Example PURPOSE/USE DIM Additional String ConsiderationsInput Input X$ Print Print X$ESC Operators Symbol Sample StatementCntl Print Print X/1.3Symbol Sample Statement PURPOSE/USE NegationRelational Operators Operator Argument Result Not Not If not Q3 thenPrint Intruder Alert CommandsAlert Statement SYNTAX/FUNCTION Example ClearStatement SYNTAX/FUNCTION List Statement SYNTAX/FUNCTION FREStatement SYNTAX/FUNCTION Load Statement SYNTAX/FUNCTION NEWStatement SYNTAX/FUNCTION Example Save Statement SYNTAX/FUNCTION Example RUNProgram Statements Statement SYNTAX/FUNCTION Example DEFStatement SYNTAX/FUNCTION DIM Statement SYNTAX/FUNCTION ENDStatement SYNTAX/FUNCTION For Statement SYNTAX/FUNCTION Goto Statement SYNTAX/FUNCTION GosubStatement SYNTAX/FUNCTION IF...GOTO Statement SYNTAX/FUNCTION IF...THENStatement SYNTAX/FUNCTION LET If X0 then Print ERROR, X Negative Goto ExampleStatement SYNTAX/FUNCTION Next Statement SYNTAX/FUNCTION ON...GOSUBSymbol SYNTAX/FUNCTION Wait Statement SYNTAX/FUNCTION RestoreExample Restore Return Statement SYNTAX/FUNCTION ReturnStatement SYNTAX/FUNCTION POS Statement SYNTAX/FUNCTION InputStatement SYNTAX/FUNCTION Print Print Value ISAStatement SYNTAX/FUNCTION SPC Statement SYNTAX/FUNCTION ReadStatement SYNTAX/FUNCTION TAB String Functions Statement SYNTAX/FUNCTION ASCStatement SYNTAX/FUNCTION LEN Statement SYNTAX/FUNCTION LEFT$Statement SYNTAX/FUNCTION MID$ Statement SYNTAX/FUNCTION RIGHT$Statement SYNTAX/FUNCTION ATN Arithmetic Functions Statement SYNTAX/FUNCTION ABSStatement SYNTAX/FUNCTION COS Statement SYNTAX/FUNCTION EXPPrint Sgnx Statement SYNTAX/FUNCTION Example SGNStatement SYNTAX/FUNCTION Example SIN Print SinxError Messages ?XX ErrorInverse Hyperbolic Secant TAB, SPC Space HintsPRINTX,Y,Z Speed Hints Storage Allocation InformationConverting Basic Programs not Written for AIM 65 Basic This is Probably the Most Important Speed HintOLD AIM OLDAscii Character Codes Decimal Assembly Language SubroutinesNUL SOH$AE Address ContentInputnumbern PrintxRecording on Cassette Using the Basic Save Command RUN NUMBER?Storing AIM 65 Basic Programs on Cassette OUT=T F= Cassette Operations Using the AIM 65 EditorOUT=T F=FNAME T= IN=Entered by Alter Memory M ATN ImplementationOF9C 0FACSaving ATN Object Code on Cassette WIDTH? Bytes Free AIM 65 Basic