Apple ii - Manuals

Apple ii – Manual in PDF format online.

Manuals:

Manual

Manual Apple ii

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

Summary

Page 20 - 7 A2L EQU $3E

57 A2L EQU $3E 58 A2H EQU $3F 59 A3L EQU $40 60 A3H EQU $41 61 A4L EQU $42 62 A4H EQU $43 63 A5L EQU $44 64 A5H EQU $45 65 ACC EQU $45 66 XREG EQU $46 67 YREG EQU $47 68 STATUS EQU $48 69 SPNT EQU $49 70 RNDL EQU $4E 71 RNDH EQU $4F 72 ACL EQU $50 73 ACH EQU $51 74 XTNDL EQU $52 75 XTNDH EQU $53 76 ...

Page 26 - FADC: 85 40 456 STA A3L LABELS

FA70: 29 1F 395 AND #$1F FA72: 49 14 396 EOR #$14FA74: C9 04 397 CMP #$04 ;COPY USER INST TO XEQ AREA FA76: F0 02 398 BEQ XQ2 ; WITH TRAILING NOPSFA78: B1 3A 399 XQ1 LDA (PCL),Y ;CHANGE REL BRANCH FA7A: 99 3C 00 400 XQ2 STA XQT,Y ; DISP TO 4 FORFA7D: 88 401 DEY ; JMP TO BRANCH OR FA7E: 10 F8 402 BPL...

Page 30 - FC3E: 90 5C 643 BCC CLREOL E, CLEAR TO END OF LINE

FC3E: 90 5C 643 BCC CLREOL ; E, CLEAR TO END OF LINE FC40: D0 E9 644 BNE RTS4 ; NOT F, RETURNFC42: A4 24 645 CLREOP LDY CH ;CURSOR H TO Y INDEX FC44: A5 25 646 LDA CV ;CURSOR V TO A-REGISTERFC46: 48 647 CLEOP1 PHA ;SAVE CURRENT LINE ON STK FC47: 20 24 FC 648 JSR VTABZ ;CALC BASE ADDRESSFC4A: 20 9E F...

Page 31 - FD24: 10 F5 766 BPL KEYIN LOOP

FCB3: 60 705 RTS FCB4: E6 42 706 NXTA4 INC A4L ;INCR 2-BYTE A4FCB6: D0 02 707 BNE NXTA1 ; AND A1 FCB8: E6 43 708 INC A4HFCBA: A5 3C 709 NXTA1 LDA A1L ;INCR 2-BYTE A1. FCBC: C5 3E 710 CMP A2LFCBE: A5 3D 711 LDA A1H ; AND COMPARE TO A2 FCC0: E5 3F 712 SBC A2HFCC2: E6 3C 713 INC A1L ; (CARRY SET IF >...

Page 35 - FE9B: A5 3E 953 IOPRT LDA A2L SET RAM IN/OUT VECTORS

FE9B: A5 3E 953 IOPRT LDA A2L ;SET RAM IN/OUT VECTORS FE9D: 29 0F 954 AND #$0FFE9F: F0 06 955 BEQ IOPRT1 FEA1: 09 C0 956 ORA #IOADR/256FEA3: A0 00 957 LDY #$00 FEA5: F0 02 958 BEQ IOPRT2FEA7: A9 FD 959 IOPRT1 LDA #COUT1/256 FEA9: 94 00 960 IOPRT2 STY LOC0,XFEAB: 95 01 961 STA LOC1,X FEAD: 60 962 RTS...

Page 63 - F60C: 88 180 DEY BACKUP A CHAR

F58F: 20 ED FD 119 JSR COUT ;POSITION. F592: 20 3A FF 120 RESETZ JSR BELLF595: A9 A1 121 NXTLINE LDA #$A1 ;'!' F597: 85 33 122 STA PROMPT ;INITIALIZE PROMPTF599: 20 67 FD 123 JSR GETLNZ ;GET LINE. F59C: 20 C7 FF 124 JSR ZMODE ;INIT SCREEN STUFFF59F: AD 00 02 125 LDA IN ;GET CHAR F5A2: C9 A0 126 CMP ...

Page 85 - * COMMON LOG OF MANT/EXP1 RESULT IN MANT/EXP1

* COMMON LOG OF MANT/EXP1 RESULT IN MANT/EXP1 *1DBC 20 00 1D LOG10 JSR LOG COMPUTE NATURAL LOG 1DBF A2 03 LDX =31DC1 BD CD 1D L10 LDA LN10,X 1DC4 95 04 STA X2,X LOAD EXP/MANT2 WITH 1/LN(10)1DC6 CA DEX 1DC7 10 F8 BPL L101DC9 20 77 1F JSR FMUL LOG10(X)=LN(X)/LN(10) 1DCC 60 RTS * 1DCD 7E 6F LN10 DCM 0....

Page 86 - E3B 00 OVFLW BRK OVERFLOW

1E3B 00 OVFLW BRK OVERFLOW *1E3C 20 2C 1F CONTIN JSR FLOAT FLOAT INT 1E3F A2 03 LDX =31E41 B5 10 ENTD LDA Z,X 1E43 95 04 STA X2,X LOAD EXP/MANT2 WITH Z1E45 CA DEX 1E46 10 F9 BPL ENTD1E48 20 4A 1F JSR FSUB Z*Z-FLOAT(INT) 1E4B A2 03 LDX =3 4 BYTE MOVE1E4D B5 08 ZSAV LDA X1,X 1E4F 95 10 STA Z,X SAVE EX...

Page 87 - EBB 95 04 STA X2,X LOAD EXP/MANT2 WITH Z

1EBB 95 04 STA X2,X LOAD EXP/MANT2 WITH Z 1EBD CA DEX1EBE 10 F9 BPL LF3 1EC0 20 9D 1F JSR FDIV Z/(**** )1EC3 A2 03 LDX =3 4 BYTE TRANSFER 1EC5 BD E5 1D LD12 LDA MHLF,X1EC8 95 04 STA X2,X LOAD EXP/MANT2 WITH .5 1ECA CA DEX1ECB 10 F8 BPL LD12 1ECD 20 50 1F JSR FADD +Z/(***)+.51ED0 38 SEC ADD INT TO EX...

Page 89 - FEC D0 F7 BNE FIX-3 NO, SHIFT

1F8D 90 AF NORMX BCC NORM IF EXEN, NORMALIZE PRODUCT, ELSE COMPLEMENT 1F8F 38 FCOMPL SEC SET CARRY FOR SUBTRACT1F90 A2 03 LDX =$03 INDEX FOR 3 BYTE SUBTRACTION 1F92 A9 00 COMPL1 LDA =$00 CLEAR A1F94 F5 08 SBC X1,X SUBTRACT BYTE OF EXP1 1F96 95 08 STA X1,X RESTORE IT1F98 CA DEX NEXT MORE SIGNIFICANT ...

Page 93 - 8 0003 ORG 3 SET BASE PAGE ADRESSES

mant1 and act as floating point registers. On entry to the subroutines these registers contain the numbers to be operated upon and contain the result on return, The function of the registers is given before each entry point in the source listing. There are three error traps which will cause a softwa...

Page 98 - 34 1F40 0A ASL UPPER TWO BITS UNEQUAL?

279 1ED7 60 RTS RETURN ANS=(.5+Z/(-Z+D+C2*Z*Z- B2/(Z*Z+A2))*2**(INT+1) 280 1ED8 80 5C L2E DCM 1.4426950409 LOG BASE 2 OF E 55 1E 281 1EDC 86 57 A2 DCM 87.417497202 6A E1 282 1EE0 89 4D B2 DCM 617.9722695 3F 1D 283 1EE4 7B 46 C2 DCM .03465735903 4A 70 284 1EE8 83 4F D DCM 9.9545957821 A3 03 285 * 286...

Page 100 - 47 END; OBJECT CODE DUMP

396 * 397 1F9D 20 0D 1F FDIV JSR MD1 TAKE ABS VAL OF MANT1, MANT2 398 1FA0 E5 08 SBC X1 SUBTRACT EXP1 FROM EXP2 399 1FA2 20 CD 1F JSR MD2 SAVE AS QUOTIENT EXP 400 1FA5 38 DIV1 SEC SET CARRY FOR SUBTRACT 401 1FA6 A2 02 LDX =$02 INDEX FOR 3-BYTE INSTRUCTION 402 1FA8 B5 05 DIV2 LDA M2,X 403 1FAA F5 0C ...

Page 103 - 055 A659 PCLR .BLOCK 1 PROG CTR

0055 A659 PCLR .BLOCK 1 ;PROG CTR 0056 A65A PCHR .BLOCK 10057 A65B SR .BLOCK 1 ;STACK 0058 A65C FR .BLOCK 1 ;FLAGS0059 A65D AR .BLOCK 1 ;AREG 0060 A65E XR .BLOCK 1 ;XREG0061 A65F YR .BLOCK 1 ;YREG 0062 A660 ;0063 A660 ; I/O VECTORS FOLLOW 0064 A660 ;0065 A660 INVEC .BLOCK 3 ;IN CHAR 0066 A663 OUTVEC...

Page 129 - 728 8C78 BUFADL =$FE RUNNING BUFFER ADR

1667 8C38 71 .DB $71 ;F 1668 8C39 F0 .DB $F0 ;CR1669 8C3A 40 .DB $40 ;DASH 1670 8C3B 70 .DB $70 ;>1671 8C3C 00 .DB $00 ;SHIFT 1672 8C3D 6F .DB $6F ;G1673 8C3E 50 .DB $50 ;R 1674 8C3F 54 .DB $54 ;M1675 8C40 38 .DB $38 ;L2 1676 8C41 6D .DB $6D ;S21677 8C42 01 .DB $01 ;U0 1678 8C43 08 .DB $08 ;U1167...

Page 137 - 163 8F01 E6 FE INC BUFADL BUMP BUFFER ADDR

2163 8F01 E6 FE INC BUFADL ;BUMP BUFFER ADDR 2164 8F03 D0 C9 BNE DUMPT22165 8F05 E6 FF INC BUFADH ;CARRY 2166 8F07 4C CE 8E JMP DUMPT22167 8F0A 24 FD OUTCTX BIT MODE ;HS OR KIM? 2168 8F0C 10 48 BPL OUTCHT ;KIM2169 8F0E 2170 8F0E ; OUTBTH - NO CLOCK2171 8F0E ; A,X DESTROYED 2172 8F0E ; MUST RESIDE ON...

Page 138 - 286 8FB1 2C .DB $2C KIM TAPE BOUNDARY

2225 8F56 8E 38 A6 OUTCHT STX SCR8 ;PRESERVE X 2226 8F59 8C 39 A6 STY SCR9 ;DITTO Y2227 8F5C 85 FC STA CHAR 2228 8F5E A9 FF LDA #$FF ;USE FF W/SHIFTS TO COUNT BITS2229 8F60 48 KIMBIT PHA ;SAVE BIT CTR 2230 8F61 AD 02 A4 LDA TPOUT ;GET CURRENT OUTPUT LEVEL2231 8F64 46 FC LSR CHAR ;GET DATA BIT IN CAR...

Page 141 - 118 A415 CURPO2 .BLOCK 1 DISPLAY POINTER

0057 00E5 END .BLOCK 2 ;LIMITS OF BUFFER (END) 0058 00E7 SAVE .BLOCK 2 ;USED BY REPLACE0059 00E9 OLDLEN .BLOCK 1 ;ORIG LENGTH 0060 00EA LENGTH .BLOCK 1 ;NEW LENGTH0061 00EB STRING .BLOCK 20 ;FIND STRING 0062 00FF0063 0100 *=$0100 0064 0100 ;BREAKPOINTS AND USER I/O HANDLERS0065 0100 BKS .BLOCK 8 ;BR...

Page 142 - 119 A416 CURPOS .BLOCK 1 PRINTER POINTER

0119 A416 CURPOS .BLOCK 1 ;PRINTER POINTER 0120 A417 CNTH30 .BLOCK 1 ;BAUD RATE &...0121 A418 CNTL30 .BLOCK 1 ;DELAY FOR TTY 0122 A419 COUNT .BLOCK 1 ;# OF LINES (0-99)0123 A41A S1 .BLOCK 2 ;START ADDRESS 0124 A41C ADDR .BLOCK 2 ;END ADDRESS0125 A41E CKSUM .BLOCK 2 ;CHECKSUM 0126 A420 S2 =BKS+6 ...

Page 143 - 181 A484 WRITE EDGE DETECT CONTROL (NOT USED BECAUSE KB)

0181 A484 ; WRITE EDGE DETECT CONTROL (NOT USED BECAUSE KB) 0182 A484 *=$A4840183 A484 DNPA7 .BLOCK 1 ;DISABLE PA7 INT ,NEG EDGE DET 0184 A485 DPPA7 .BLOCK 1 ;DIS PA7 INT ,POS EDGE DETE0185 A486 ENPA7 .BLOCK 1 ;ENA PA7 INT ,NEG EDG DET 0186 A487 EPPA7 .BLOCK 1 ;ENA PA7 INT ,POS EDG DET0187 A488 0188...

Page 144 - 304 E000 ALL MSGS HAVE MSB=1 OF LAST CHAR TO END IT

0243 A810 ; ****************************** 0244 A810 ; REGISTERS FOR DISPLAY (6520)0245 AC00 *=$AC00 0246 AC00 RA .BLOCK 1 ;REGISTER A0247 AC01 CRA .BLOCK 1 ;CONTROL REG A 0248 AC02 RB .BLOCK 1 ;REG B0249 AC03 CRB .BLOCK 1 ;CONTROL REG B 0250 AC040251 AC04 ;CHR 00-03 ENA BY $AC04-AC07 0252 AC04 ;CHR...

Page 145 - 362 E0BF D8 RSET CLD CLEAR DEC MODE

0305 E000 46524F4DBD M1 .DB "FROM",EQS 0306 E005 54 4F BD M3 .DB "TO",EQS0307 E008 202A2A2A2A20M4 .DB " **** PS AA XX YY S",$D3 0307 E00E 50532041412058582059592053D30308 E01C 4D4F5245BF M5 .DB "MORE",$BF 0309 E021 4F 4E A0 M6 .DB "ON",$A0 ;"ON "0310 E...

Page 146 - 363 E0C0 78 SEI DISABLE INTERRUPT

0363 E0C0 78 SEI ;DISABLE INTERRUPT 0364 E0C1 A2 FF LDX #$FF ;INIT STACK PTR0365 E0C3 9A TXS 0366 E0C4 8E 24 A4 STX SAVS ;ALSO INIT SAVED STACK PTR0367 E0C7 ;INITIALIZE 6522 0368 E0C7 A2 0E LDX #140369 E0C9 BD 43 E7 RS1 LDA INTAB1,X ;PB1-PB0,PA7-PA0 FOR PRNTR 0370 E0CC 9D 00 A8 STA DRB,X ;PB2=TTO,PB...

Page 148 - 487 E1AC HAVE VALID COMMAND

0487 E1AC ;HAVE VALID COMMAND 0488 E1AC 8A MCM3 TXA ;CONVERT TO WORD (MULT BY 2)0489 E1AD 0A ASL A ;2 BYTES (ADDR) 0490 E1AE AA TAX0491 E1AF BD E5 E1 LDA MONCOM,X ;GET ADDRESS OF COMMAND PROCESSOR 0492 E1B2 8D 7D A4 STA JUMP0493 E1B5 BD E6 E1 LDA MONCOM+1,X 0494 E1B8 8D 7E A4 STA JUMP+10495 E1BB 20 ...

Page 150 - 665 E35C CE 11 A4 DEC PRIFLG RESTORE PRINTR FLG

0604 E2E0 BE 1C A4 LDX ADDR,Y 0605 E2E3 4C 42 EA JMP WRAX0606 E2E6 0607 E2E6 ;***** L COMMAND-GENERAL LOAD *****0608 E2E6 ;LOAD OBJECT FROM TTY,USER,TYPE OR TAPE IN KIM-1 FORMAT 0609 E2E6 20 48 E8 LOAD JSR WHEREI ;WHERE INPUT0610 E2E9 ;GET ";" , # OF BYTES AND SA 0611 E2E9 20 93 E9 LOAD1 JSR...

Page 151 - 666 E35F 20 BD ED JSR ADDBK1 JUST OUTPUT BLK CNT

0666 E35F 20 BD ED JSR ADDBK1 ;JUST OUTPUT BLK CNT 0667 E362 A2 01 LDX #1 ;RESTORE X0668 E364 ;CHECK IF FILE IS CORRECT 0669 E364 BD 16 01 LOADT2 LDA TABUFF,X ;NOW CHCK FILE NAME0670 E367 DD 2D A4 CMP NAME-1,X 0671 E36A D0 C3 BNE LOADTA ;IF NO FILENAME GET0672 E36C E8 INX ;ANOTHER BLOCK 0673 E36D E0...

Page 158 - 161 E731 38 SEC ONE MORE TO PROG CNTR

1100 E6C9 D0 2F BNE BRK4 ;IF $10 TAPE CNTRL IS OFF 1101 E6CB1102 E6CB ;***** 2 COMMAND-TOGGLE TAPE 2 CONTROL ***** 1103 E6CB AD 00 A8 TOGTA2 LDA DRB1104 E6CE 49 20 EOR #$20 ;INVERT PB5 1105 E6D0 8D 00 A8 STA DRB1106 E6D3 29 20 AND #$20 1107 E6D5 F0 1A BEQ BRK31108 E6D7 D0 21 BNE BRK4 1109 E6D91110 E...

Page 162 - 345 E892 A9 0D LDA #CR OUTPUT LAST LINE IF ON

1345 E892 A9 0D LDA #CR ;OUTPUT LAST LINE IF ON 1346 E894 4C 00 F0 JMP OUTPRI ;& CLEAR PRINTER PTR1347 E897 ;USER SET UP 1348 E897 C9 55 WHRO3 CMP #'U' ;USR RTN?1349 E899 D0 04 BNE WHRO4 1350 E89B 18 CLC ;CLR FLG FOR INITIALIZATION1351 E89C 6C 0A 01 JMP (UOUT) ;USER OUTPUT SETUP 1352 E89F ;ANY O...

Page 164 - 469 E973 READ AND ECHO A CHAR FROM KB OR TTY

1469 E973 ;READ AND ECHO A CHAR FROM KB OR TTY 1470 E973 20 83 FE REDOUT JSR CUREAD1471 E976 C9 0D RED2 CMP #CR 1472 E978 F0 C1 BEQ RCHT1 ;DO NOT ECHO <CR>1473 E97A 1474 E97A ;OUTPUTS A CHAR TO EITHER TTY OR D/P1475 E97A 48 OUTPUT PHA ;SAVE IT 1476 E97B AD 11 A4 OUT1 LDA PRIFLG ;IF LSB=1 OUTPU...

Page 165 - 592 EA42 WRITE A THEN X IN ASCII TO THE OUTPUT DEV

1531 E9DE 2E 11 A4 ROL PRIFLG ;RESTORE FLG 1532 E9E1 60 RTS1533 E9E2 ;USER DEFINED 1534 E9E2 C9 55 OUTA3 CMP #'U' ;USER ROUTINE?1535 E9E4 D0 04 BNE OUTA4 1536 E9E6 38 SEC ;SET FLG FOR NORMAL OUTPUT1537 E9E7 6C 0A 01 JMP (UOUT) ;YES 1538 E9EA ;NOWHERE OR TO TTY ,D/P1539 E9EA C9 58 OUTA4 CMP #'X' ;EAT...

Page 167 - 655 EAA3 CA DEX

1655 EAA3 CA DEX 1656 EAA4 D0 F9 BNE PAK21657 EAA6 AE 2D A4 LDX CPIY+3 ;REST X 1658 EAA9 AD 29 A4 LDA STIY+21659 EAAC 18 CLC 1660 EAAD 60 RTS1661 EAAE 1662 EAAE ;GET FOUR BYTE ADDR ,TAKE LAST FOUR CHR TO...1663 EAAE ;CALCULATE ADDR .ALLOW DELETE ALSO 1664 EAAE 20 D8 E7 ADDIN JSR EQUAL1665 EAB1 AD 15...

Page 171 - 903 EC5E 4A LSR A ONLY ROW 1

1903 EC5E 4A LSR A ;ONLY ROW 1 1904 EC5F 90 06 BCC GETK00 ;GOT YOU1905 EC61 68 PLA 1906 EC62 CA DEX1907 EC63 D0 F0 BNE GETK0 1908 EC65 F0 DC BEQ GETKY ;THERE IS A MISTAKE CHECK AGAIN1909 EC67 68 GETK00 PLA ;NOW GET STBKEY INTO X 1910 EC68 AD 2B A4 LDA STBKEY ;CLMN INTO X1911 EC6B 49 FF EOR #$FF ;COM...

Page 172 - 965 ECC3 E0 00 CPX #0 IF SHIFT IS NOT ADV PAPER

1965 ECC3 E0 00 CPX #0 ;IF SHIFT IS NOT ADV PAPER 1966 ECC5 F0 25 BEQ GETK10 ;NO SHIFT ,SO ADVPAPER1967 ECC7 29 4F AND #$4F ;CONVRT TO "@" 1968 ECC9 C9 1C GETK11 CMP #$1C ;SEE IF TOGGL PRIFLG (CONTRL PRI)1969 ECCB D0 14 BNE GETK13 1970 ECCD 20 E1 E6 JSR PRITR ;GO TOGGLE FLG1971 ECD0 A0 01 LD...

Page 173 - 027 ED3B GET A CHAR FROM TAPE SUBROUTINE

2027 ED3B ;GET A CHAR FROM TAPE SUBROUTINE 2028 ED3B ;A BUFFER IS USED TO GET BLOCKS OF DATA2029 ED3B ;FROM TAPE ,EXCEPT WHEN FORMAT EQUAL TO 2030 ED3B ;KIM-1 (THE WHOLE FILE IS LOADED AT ONE TIME)2031 ED3B 20 9E EB TIBYTE JSR PHXY ;PUSH X 2032 ED3E AE 36 A4 LDX TAPTR ;POINTER FOR BUFFER2033 ED41 E0...

Page 174 - 150 EE2B 20 3B EE GETA1 JSR RDBIT GET NEXT DATA BIT

2089 EDB7 4C A1 E1 JMP COMIN 2090 EDBA2091 EDBA ;ADD 1 TO BLK COUNT AND OUTPUT IT 2092 EDBA EE 15 01 ADDBLK INC BLK ;INCR BLK CNT2093 EDBD EE 11 A4 ADDBK1 INC PRIFLG ;SO DONT OUTPUT TO PRINTR 2094 EDC0 A9 12 LDA #18 ;ONLY OUTPUT IN THIS POSITION2095 EDC2 8D 15 A4 STA CURPO2 2096 EDC5 AD 4A A4 LDA DI...

Page 175 - 151 EE2E 4E 2A A4 LSR CPIY MAKE ROOM FOR MSB

2151 EE2E 4E 2A A4 LSR CPIY ;MAKE ROOM FOR MSB 2152 EE31 0D 2A A4 ORA CPIY ;OR IN SIGN BIT2153 EE34 8D 2A A4 STA CPIY ;REPLACE CHAR 2154 EE37 88 DEY2155 EE38 D0 F1 BNE GETA1 2156 EE3A 60 RTS2157 EE3B ;GET ONE BIT FROM TAPE AND 2158 EE3B ;RETURN IT IN SIGN OF A (MSB)2159 EE3B AD 08 A4 RDBIT LDA TSPEE...

Page 177 - 336 EF80 AA TAX BACK TO X

2275 EF17 E0 3C OUTD1A CPX #60 ;LAST CHAR FOR DISP? 2276 EF19 90 05 BCC OUTD22277 EF1B 20 AC EB JSR PLXY ;GO BACK 2278 EF1E 68 PLA ;DO NOT STORE2279 EF1F 60 RTS 2280 EF20 9D 38 A4 OUTD2 STA DIBUFF,X ;PUT CHAR IN BUFF2281 EF23 EE 15 A4 INC CURPO2 ;INC POINTER 2282 EF26 E0 14 CPX #20 ;DISPLAY FULL?228...

Page 183 - 647 F1D2 CHCK ACTIVE BUFFER AND LOAD A CHR

2647 F1D2 ;CHCK ACTIVE BUFFER AND LOAD A CHR 2648 F1D2 ;CARRY=0 IF ONLY 1 BUFFER ,C=1 IF 2 BUFFERS2649 F1D2 AD 12 A4 CKBUFF LDA INFLG 2650 F1D5 CD 13 A4 CMP OUTFLG2651 F1D8 D0 08 BNE CBUFF1 2652 F1DA C9 54 CMP #'T' ;SEE IF INFLG=OUTFLG = T2653 F1DC D0 04 BNE CBUFF1 2654 F1DE 38 SEC ;USE PAGE 1 FOR O...

Page 192 - 193 F77D 20 F8 FE JSR PATC12 CLR, SO WE CAN OUTPUT TO PRI

3132 F706 4C AF E7 JMP KEP 3133 F709 A0 00 UPNO LDY #03134 F70B 20 E9 F8 JSR ATBOT 3135 F70E 90 03 BCC UP13136 F710 4C 5C FA JMP ENDERR 3137 F713 B1 DF UP1 LDA (NOWLN),Y3138 F715 F0 09 BEQ UP4 3139 F717 C8 INY3140 F718 C9 0D CMP #CR 3141 F71A D0 F7 BNE UP13142 F71C 98 TYA 3143 F71D 20 2A F9 JSR ADDA...

Page 197 - 503 F9CF A5 EA R100 LDA LENGTH NEW LINE IS LONGER

3442 F951 F0 EB BEQ REP2 3443 F953 B9 38 A4 R88 LDA DIBUFF,Y3444 F956 91 DF STA (NOWLN),Y 3445 F958 20 4A FA JSR GOGO3446 F95B 88 DEY 3447 F95C 10 F5 BPL R883448 F95E 60 RTS 3449 F95F B0 6E R2W BCS R100 ;LENGTH > OLDLEN3450 F961 3451 F961 ;LENGTH < OLDLEN3452 F961 20 34 F9 JSR SAVNOW ;PUT NOWL...

Page 199 - 624 FAE2 CODE AND STORES IT IN THE DESIGNATED MEMORY AREA

3566 FA55 8D 1D A4 STA ADDR+1 3567 FA58 4C 33 EB JMP MEMERR3568 FA5B 60 GOGO1 RTS ;OK 3569 FA5C3570 FA5C 20 44 EB ENDERR JSR CLR ;CLEAR PNTR 3571 FA5F A0 72 LDY #EMSG2-M1 ;PRINT "END"3572 FA61 20 AF E7 JSR KEP 3573 FA64 20 D8 F6 JSR DNNO ;BACK UP TO LAST LINE3574 FA67 20 42 E8 JSR TTYTST ;IF...

Page 200 - 662 FBB5 20 DB E2 JSR WRITAZ WRITE ADDRESS

3625 FAE2 3626 FAE2 ;ROM TABLE LOCATIONS:3627 FAE2 00020008F2FFTYPTR1 .DB 00,02,00,08,$F2,$FF,$80,01 3627 FAE8 80013628 FAEA C0E2C0C0FF00 .DB $C0,$E2,$C0,$C0,$FF,00,00 3628 FAF0 003629 FAF1 0800108040C0TYPTR2 .DB 08,00,$10,$80,$40,$C0,00,$C0 3629 FAF7 00C03630 FAF9 00400000E420 .DB $00,$40,00,00,$E4...

Page 202 - 725 FC3A 4C CB FC JMP OPCOMP

3725 FC3A 4C CB FC JMP OPCOMP 3726 FC3D 4C B6 FC HATCJ JMP HATCH3727 FC40 A9 04 TRY34 LDA #04 ;CHECK FOR ABSOLUTE OR ZP,X ORZP,` 3728 FC42 CD 31 A4 CMP TEMPX3729 FC45 90 15 BCC ABSIND 3730 FC47 A2 02 LDX #023731 FC49 20 F1 FD JSR XORYZ ;CC = X, CS = Y, NE = ABSOLUTE 3732 FC4C D0 58 BNE ABSOL3733 FC4...

Page 205 - 911 FDBB 38 CMPBR1 SEC COMPUTE BRANCH RELATIVE ADDRESS

3911 FDBB 38 CMPBR1 SEC ;COMPUTE BRANCH RELATIVE ADDRESS 3912 FDBC AD 35 A4 LDA OPCODE+13913 FDBF ED 26 01 SBC MOVAD 3914 FDC2 8D 35 A4 STA OPCODE+13915 FDC5 AD 36 A4 LDA OPCODE+2 3916 FDC8 ED 27 01 SBC MOVAD+13917 FDCB 8D 36 A4 STA OPCODE+2 3918 FDCE C9 00 CMP #003919 FDD0 F0 0E BEQ FORWRD 3920 FDD...

Page 210 - COUNT A419 CKSUM A41E CPIY A42A

COUNT A419 CKSUM A41E CPIY A42A CRA AC01 CRB AC03 CR 000DCOMIN E1A1 COMB E1C4 CHNGG E2A0 CHNG1 E2A6 CH2 E2B8 CH4 E2C0CH3 E2C5 CKERR E385 CKER0 E38E CKER00 E394 CKER1 E396 CKER2 E3A3CHEKAR E54B CHEKA E54E CGPC E5D4 CGPC0 E5D7 CGPC1 E5DD CGPS E5EACGA E5EE CGX E5F2 CGY E5F6 CGS E5FA CGALL E5FC CLRBK E6...

Page 211 - NXTADD E2CD NXTA1 E2DA NXT5 E60D

GID1 E427 GOERR E608 GCNT E785 GCN1 E78C GETTTY EBDB GET1 EBE2GET3 EBED GETKD0 EC38 GETKEY EC40 GETKY EC43 GETK0 EC55 GETK00 EC67GETK1 EC71 GETK1B EC80 GETK2 EC82 GETK3 EC8D GETK4 EC93 GETK5 ECA4GETK6 ECB9 GETK7 ECBE GETK8 ECBF GETK11 ECC9 GETK12 ECD2 GETK13 ECE1GETK14 ECEB GETK10 ECEC GETTAP EE29 G...

Page 214 - For example, line 468 in the printed listing is:

UT1LH A007 UT2L A008 UT2H A009 USR A00A UACR A00B UPCR A00CUIFR A00D UIER A00E UDRA A00F UIN 0108 UOUT 010A UP F6F9UPNO F709 UP1 F713 UP4 F720 VECKSM E694 VECK1 E69E VECK2 E6ACVALID FCDD VECK5 FF66 VECK4 FF6F WRITAZ E2DB WRITAD E2DD WHEREI E848WHE1 E85C WHE2 E868 WHE3 E870 WHEREO E871 WHRO1 E885 WHR...