Apple II Manual De Usuario

2089   EDB7 4C A1 E1           JMP COMIN

2090   EDBA
2091   EDBA             ;ADD 1 TO BLK COUNT AND OUTPUT IT

2092   EDBA EE 15 01    ADDBLK INC BLK         ;INCR BLK CNT
2093   EDBD EE 11 A4    ADDBK1 INC PRIFLG      ;SO DONT OUTPUT TO PRINTR

2094   EDC0 A9 12              LDA #18         ;ONLY OUTPUT IN THIS POSITION
2095   EDC2 8D 15 A4           STA CURPO2

2096   EDC5 AD 4A A4           LDA DIBUFF+18   ;SAVE DISBUF (FOR EDIT)
2097   EDC8 48                 PHA

2098   EDC9 AD 4B A4           LDA DIBUFF+19
2099   EDCC 48                 PHA

2100   EDCD AE 13 A4           LDX OUTFLG      ;SAVE OUTFLG
2101   EDD0 A9 0D              LDA #CR

2102   EDD2 8D 13 A4           STA OUTFLG      ;TO OUTPUT TO TERMINAL
2103   EDD5 AD 16 01           LDA BLK+1       ;BLK CNT COMING FROM TAPE

2104   EDD8 20 46 EA           JSR NUMA        ;OUTPUT IN ASCII
2105   EDDB 8E 13 A4           STX OUTFLG      ;RESTORE OUTFLG

2106   EDDE 68                 PLA
2107   EDDF 8D 4B A4           STA DIBUFF+19

2108   EDE2 68                 PLA
2109   EDE3 8D 4A A4           STA DIBUFF+18

2110   EDE6 CE 11 A4           DEC PRIFLG      ;RESTORE PRI FLG
2111   EDE9 60                 RTS

2112   EDEA
2113   EDEA             ;SET TAPE (1 OR 2) FOR INPUT

2114   EDEA A9 37       TAISET LDA #$37        ;SET PB7 FOR INPUT
2115   EDEC 8D 02 A8           STA DDRB

2116   EDEF AD 34 A4           LDA TAPIN       ;INPUT FLG (TAP 1=2 OR TAP 2=1)
2117   EDF2 20 1C EE           JSR TIOSET      ;RESET PB4 OR PB5

2118   EDF5 A9 EE              LDA #MOFF+DATIN ;SET CA2=1 (DATA IN)
2119   EDF7 8D 0C A8           STA PCR

2120   EDFA A9 FF              LDA #$FF        ;PREPARE T2
2121   EDFC 8D 08 A8           STA T2L         ;LACTH

2122   EDFF             ;CHCK BIT BY BIT UNTIL $16
2123   EDFF 20 3B EE    SYNC   JSR RDBIT       ;GET A BIT IN MSB

2124   EE02 4E 2A A4           LSR CPIY        ;MAKE ROOM FOR BIT
2125   EE05 0D 2A A4           ORA CPIY        ;PUT BIT INTO MSB

2126   EE08 8D 2A A4           STA CPIY
2127   EE0B C9 16              CMP #$16        ;SYN CHAR ?

2128   EE0D D0 F0              BNE SYNC
2129   EE0F A2 05              LDX #$05        ;TEST FOR 5 SYN CHARS

2130   EE11 20 29 EE    SYNC1  JSR GETTAP
2131   EE14 C9 16              CMP #$16

2132   EE16 D0 E7              BNE SYNC        ;IF NOT 2 CHAR RE-SYNC
2133   EE18 CA                 DEX

2134   EE19 D0 F6              BNE SYNC1
2135   EE1B 60                 RTS

2136   EE1C
2137   EE1C             ;SET PB4 OR PB5 OFF

2138   EE1C             ;USED BY IN/OUT SET UPS
2139   EE1C D0 04       TIOSET BNE TIOS1       ;BRCH IF TAP1

2140   EE1E A9 14              LDA #$14        ;SET TAP 2 OFF (PB5=0)
2141   EE20 D0 02              BNE TIOS2

2142   EE22 A9 24       TIOS1  LDA #$24        ;SET TAP 1 OFF (PB4=0)
2143   EE24 8D 00 A8    TIOS2  STA DRB

2144   EE27 78                 SEI             ;DISABLE INTERR WHILE TAP
2145   EE28 60                 RTS

2146   EE29
2147   EE29             ;GET 1 CHAR FROM TAPE AND RETURN

2148   EE29             ;WITH CHR IN ACC, USE CPIY TO ASM CHR ,USES Y
2149   EE29 A0 08       GETTAP LDY #$08        ;READ 8 BITS

2150   EE2B 20 3B EE    GETA1  JSR RDBIT       ;GET NEXT DATA BIT