Manuals / Apple / Home Audio / Speaker

Apple II manual BNE INRT2

Models: II

1 257

Download 257 pages 49.17 Kb

Page 124

1357	8A2F D0 0B					BNE	INRT2
1358	8A31	AD 53 A6				LDA	TECHO
1359	8A34	49	40			EOR	#$40	;TOGGLE CTL O BIT
1360	8A36	8D	53	A6		STA	TECHO
1361	8A39	18				CLC
1362	8A3A 90 E2					BCC	INCHR+3	;GET GET ANOTHER CHAR
1363	8A3C C9 0D				INRT2	CMP	#$0D	;CARRIAGE RETURN?
1364	8A3E 4C B8 81					JMP	RESXAF
1365	8A41	6C	61	A6	INJINV JMP		(INVEC+1)
1366	8A44	20	09	83	NBASOC JSR		NIBASC	;NIBBLE TO ASCII, OUTCHR
1367	8A47	20	88	81	OUTCHR JSR		SAVER
1368	8A4A 2C 53 A6					BIT	TECHO	;LOOK AT CTRL O FLAG
1369	8A4D 70 03					BVS	*+5
1370	8A4F 20 55 8A					JSR	INJOUV
1371	8A52	4C	C4	81		JMP	RESALL
1372	8A55	6C	64	A6	INJOUV JMP		(OUTVEC+1)
1373	8A58	20	88	81	INTCHR JSR		SAVER	;IN TERMINAL CHAR
1374	8A5B A9 00					LDA	#0
1375	8A5D 85 F9					STA	$F9
1376	8A5F AD 02 A4				LOOK	LDA	PBDA	;FIND LEADING EDGE
1377	8A62	2D	54	A6		AND	TOUTFL
1378	8A65	38				SEC
1379	8A66	E9	40			SBC	#$40
1380	8A68	90	F5			BCC	LOOK
1381	8A6A 20 E9 8A				TIN	JSR	DLYH	;TERMINAL BIT
1382	8A6D AD 02 A4					LDA	PBDA
1383	8A70	2D	54	A6		AND	TOUTFL
1384	8A73	38				SEC
1385	8A74	E9	40			SBC #$40		;OR BITS 7,7 (TTY,CRT)
1386	8A76	2C	53	A6		BIT TECHO		;ECHO BIT?
1387	8A79	10	06			BPL	DMY1
1388	8A7B 20 D4 8A					JSR	OUT
1389	8A7E 4C 87 8A					JMP	SAVE
1390	8A81	A0	07		DMY1	LDY	#7
1391	8A83	88			TLP1	DEY
1392	8A84	D0	FD			BNE	TLP1
1393	8A86	EA				NOP
1394	8A87	66	F9		SAVE	ROR	$F9
1395	8A89	20	E9	8A		JSR	DLYH
1396	8A8C 48					PHA		;TIMING
1397	8A8D B5 00					LDA	0,X
1398	8A8F 68					PLA
1399	8A90	90	D8			BCC	TIN
1400	8A92	20	E9	8A		JSR	DLYH
1401	8A95	18				CLC
1402	8A96	20	D4	8A		JSR	OUT
1403	8A99	A5	F9			LDA	$F9
1404	8A9B 49 FF					EOR	#$FF
1405	8A9D 4C B8 81					JMP	RESXAF
1406	8AA0 85 F9				TOUT	STA	$F9	;TERMINAL CHR OUT
1407	8AA2 20 88 81					JSR	SAVER
1408	8AA5 20 E9 8A					JSR	DLYH	;DELAY 1/2 BIT TIME
1409	8AA8 A9 30					LDA	#$30	;SET FOR OUTPUT
1410	8AAA 8D 03 A4					STA	PBDA+1	;DATA DIRECTION
1411	8AAD A5 F9					LDA	$F9	;RECOVER CHR DATA
1412	8AAF A2 0B					LDX	#$0B	;START BIT,8DATA, 3STOPS
1413	8AB1 49 FF					EOR	#$FF	;INVERT DATA
1414	8AB3 38					SEC		;START BIT
1415	8AB4 20 D4 8A				OUTC	JSR	OUT	;OUTPUT BIT FROM CARRY
1416	8AB7 20 E6 8A					JSR	DLYF	;WAIT FULL BIT TIME
1417	8ABA A0 06					LDY	#$06
1418	8ABC 88				PHAKE	DEY

Image 124

Apple II manual BNE INRT2

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 DDBAF9F0 0DBDBAF9 FA60FFFF02E61FBD JJJ 60FFFFFF .JJAEAEA8AD Page Page Return Page System Monitor Copyright LOC0LOC1 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 LDA IN,Y CMPBNE Nomove JSRMloop DCRBNZ Mloop RTNINR BNCBNZ BM1Example Load IndirectStore Indirect Load DOUBLE-BYTE IndirectPOP Indirect Store DOUBLE-BYTE IndirectStore POP Indirect Subtract ACCPOP DOUBLE-BYTE Indirect Compare BF A0 SET $A0BFLOOP1 SUB BNC LOOP1Return to 6502 Mode DecrementLOOP2 BNZ LOOP2Branch if no Carry Branch if Carry SETBranch if Plus LOOP3 SUBBranch if Minus ONE Branch if not Minus ONEBreak Return from Sweet 16 SubroutineSTA IND+1 LDA OPTBL,X LDA #ADRHSTA IND JMP Page Page Sweet 16 Introduction Page Source DSP Print Dbload Sweet REM Ctrl DInput Enter String a $ , a $ NVAPoke 776 , a REM Poke Destination Print Print GotoCall -605 Return REM XAM8 in Monitor SweetMINI-ASSEMBLER BaumMneml MnemrSBC PCL Form ADDR-PC-2 JSR Cout Position FORM7 STX A1H Save Index ORG CLCSTA BNENorm LDA EXP1 ZERO? Shift Dividend Left Floating Point Package Floating Point Representation LOWStored High LOW EXP MantissaFloating Point Representation Examples Number Exponent MantissaFloating Point Subroutine Descriptions Page Page Page Page STY Init MANT1 LDY STYCalling Sequence 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 YES,RETURN with MANT1 Normalized Right Shift MANT1 or Swap with MANT2 on CarryCMP AddendNormx BCC Norm If EXEN, Normalize PRODUCT, Else Complement LDX Load X for High Byte of Exponent Errata for Rankins Floating Point RoutinesLDA STA LOG FaddFsub FmulPage Mantissa MOD 9/76 Load X for Later M2MHL Contin 1EAD LFA LDA Z,X L2E DCM Mdend RTLOG1Normx Object Code Dump Page Tapdel HsbdryToutfl LstcomOutvec Urcvec=UBRKVC =UIRQVCTAX ADCORA Stocom STABPL HASHUS+2 Restore Except A,F BEQ STXCPX JMPExwrap RTS Chksad PHPOutxah 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 Dftxfr LDX Newdev LDALDA Toutfl 8BFF 0D Msfirst Ddrdig BufadhLOADT2 STA Mode BNE Lcerr Last Char not Kgettr LDA H8DFF BCC PACKT3 Dumpt DUMPT1 TXADMPT1A LDA DUMPT4 LDYOutbth LDX Register Name Patch Outcht STXHS Tape Boundary Rockwell International UdrahUddra NowlnOldlen LengthMovad TMASK1 =MOVADCurpos ChecksumTabuff 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 Rtmode Getfmt TAXMNNDX1 LSR 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 Addblk ADDS1ABkcksm BrcompCRA Goerr Namo E8CF NAMO1 RD2 EA5D RD1 AIM 65 Microcomputer Monitor Program Listing E6ACAIM 65 Microcomputer Basic Language Reference Manual Table of ContentsIntroduction Installing Basic in the AIM ROM Installation Procedure Entering BasicMemory SIZE? WIDTH?Exiting Basic Reentering BasicBasic Cursor Printer ControlASC Getting Started with Basic Basic Command SETCHR$ Direct and Indirect Commands Direct Commands Indirect CommandsOperating on Programs and Lines Listing a ProgramDeleting a Line Replacing a LineDeleting a Program 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 Program Using Relations RemarksRelational Tests Input BLooping Square Root ProgramAN Improved Square Root Program Print NsqrnAnother Square Root Program Print Nsqrn Next NCOUNT-BACKWARD Program Some Other Looping OperationsPrint What is the Number Print I,J Next Next JMatrix Operations Sort ProgramPrint BAD GUESS, TRY Again Restore Input NPrint Must be Integer Stopping a ProgramStrings $=ROCKWELL R6500 Print A$ Rockwell R6500LEN Function Print LENA$,LENMICROCOMPUTERRIGHT$ Function MID$ FunctionPrint B$ Basic for Rockwell R6500 Print C$ Basic FOR-ROCKWELL-R6500 VAL and Strs FunctionsCHR$ Function Data AIM 65,DOGAdditional String Considerations Name Example PURPOSE/USE DIMInput Input X$ Print Print X$Operators Symbol Sample Statement ESCCntl Print Print X/1.3Negation Symbol Sample Statement PURPOSE/USERelational Operators Not If not Q3 then Operator Argument Result NotCommands Print Intruder AlertAlert Statement SYNTAX/FUNCTION Example ClearStatement SYNTAX/FUNCTION FRE Statement SYNTAX/FUNCTION ListStatement SYNTAX/FUNCTION Load Statement SYNTAX/FUNCTION NEWStatement SYNTAX/FUNCTION Example RUN Statement SYNTAX/FUNCTION Example SaveProgram Statements Statement SYNTAX/FUNCTION Example DEFStatement SYNTAX/FUNCTION END Statement SYNTAX/FUNCTION DIMStatement SYNTAX/FUNCTION For Statement SYNTAX/FUNCTION Gosub Statement SYNTAX/FUNCTION GotoStatement SYNTAX/FUNCTION IF...GOTO Statement SYNTAX/FUNCTION IF...THENIf X0 then Print ERROR, X Negative Goto Example Statement SYNTAX/FUNCTION LETStatement SYNTAX/FUNCTION Next Statement SYNTAX/FUNCTION ON...GOSUBStatement SYNTAX/FUNCTION Restore Symbol SYNTAX/FUNCTION WaitExample Restore Return Statement SYNTAX/FUNCTION ReturnStatement SYNTAX/FUNCTION Input Statement SYNTAX/FUNCTION POSStatement SYNTAX/FUNCTION Print Print Value ISAStatement SYNTAX/FUNCTION Read Statement SYNTAX/FUNCTION SPCStatement SYNTAX/FUNCTION TAB String Functions Statement SYNTAX/FUNCTION ASCStatement SYNTAX/FUNCTION LEFT$ Statement SYNTAX/FUNCTION LENStatement SYNTAX/FUNCTION MID$ Statement SYNTAX/FUNCTION RIGHT$Arithmetic Functions Statement SYNTAX/FUNCTION ABS Statement SYNTAX/FUNCTION ATNStatement SYNTAX/FUNCTION COS Statement SYNTAX/FUNCTION EXPStatement SYNTAX/FUNCTION Example SGN Print SgnxStatement SYNTAX/FUNCTION Example SIN Print Sinx?XX Error Error MessagesInverse Hyperbolic Secant Space Hints TAB, SPCPRINTX,Y,Z Storage Allocation Information Speed HintsThis is Probably the Most Important Speed Hint Converting Basic Programs not Written for AIM 65 BasicOLD AIM OLDAssembly Language Subroutines Ascii Character Codes DecimalNUL SOHAddress Content $AEInputnumbern PrintxRUN NUMBER? Recording on Cassette Using the Basic Save CommandStoring AIM 65 Basic Programs on Cassette Cassette Operations Using the AIM 65 Editor OUT=T F=OUT=T F=FNAME T= IN=ATN Implementation Entered by Alter Memory MOF9C 0FACWIDTH? Bytes Free AIM 65 Basic Saving ATN Object Code on Cassette