Apple II User Manual

1915   8D69 85 F8       SY100  STA BDRY

1916   8D6B A9 6D              LDA #$6D
1917   8D6D 8D 00 A4           STA DIG         ;INDICATE NO SYNC ON LEDS

1918   8D70 A5 FD              LDA MODE        ;TURN ON OUT OF SYNC MODE
1919   8D72 09 40              ORA #$40        ;BIT6

1920   8D74 85 FD              STA MODE
1921   8D76 A9 7F       SYNC5  LDA #$7F        ;TEST FOR CR DOWN ON HKB

1922   8D78 8D 01 A4           STA DDRDIG
1923   8D7B 2C 00 A4           BIT DIG

1924   8D7E 10 CB              BPL USRREQ      ;CR KEY DOWN - EXIT (ERRORS)
1925   8D80 20 9F 8D           JSR SYNBIT

1926   8D83 66 FC              ROR CHAR
1927   8D85 A5 FC              LDA CHAR

1928   8D87 C9 16              CMP #SYN
1929   8D89 D0 EB              BNE SYNC5

1930   8D8B A2 0A       SYNC10 LDX #10         ;NOW MAKE SURE CAN GET 10 SYNS
1931   8D8D 20 E1 8D           JSR RDCHTX

1932   8D90 C9 16              CMP #SYN
1933   8D92 D0 E2              BNE SYNC5

1934   8D94 CA                 DEX
1935   8D95 D0 F6              BNE SYNC10+2

1936   8D97 8E 00 A4           STX DIG         ;TURN OFF DISPLAY
1937   8D9A CA                 DEX             ;X=$FF

1938   8D9B 8E 01 A4           STX DDRDIG
1939   8D9E 60                 RTS

1940   8D9F             ;SYNBIT - GET BIT IN SYN SEARCH. IF HS, ENTER WITH
1941   8D9F             ;  TIMER STARTED BY PREV BIT, BIT RETURNED IN CARRY.

1942   8D9F
1943   8D9F 24 FD       SYNBIT BIT MODE        ;KIM OR HS?

1944   8DA1 10 69              BPL RDBITK      ;KIM
1945   8DA3 20 CA 8D           JSR GETTR       ;HS

1946   8DA6 B0 22              BCS GETTR       ;IF SHORT, GET NEXT TRANS
1947   8DA8 60                 RTS             ;BIT IS ZERO

1948   8DA9
1949   8DA9 84 FD       START  STY MODE        ;MODE PARM PASSED IN [Y]

1950   8DAB 20 86 8B           JSR ACCESS      ;FIX BASIC WARM START BUG
1951   8DAE A9 09              LDA #9

1952   8DB0 20 A5 89           JSR CONFIG      ;PARTIAL I/O CONFIGURATION
1953   8DB3 20 2E 83           JSR ZERCK       ;ZERO THE CHECK SUM

1954   8DB6 20 9C 82           JSR P2SCR       ;MOVE SA TO FE,FF IN PAGE ZERO
1955   8DB9 A2 EC              LDX #$EC

1956   8DBB 8E 0C A0    STCC   STX VIAPCR      ;TAPE ON
1957   8DBE 60                 RTS

1958   8DBF
1959   8DBF             ; GETTR - GET TRANSITION TIME FROM 6532 CLOCK

1960   8DBF             ; DESTROYS A,Y
1961   8DBF

1962   8DBF A9 00       KGETTR LDA #0          ;KIM GETTR - GET FULL CYCLE
1963   8DC1 85 F9              STA OLD         ;FORCE GETTR POLARITY

1964   8DC3 AD 00 A0    KG100  LDA TAPIN       ;WAIT TIL INPUT LO
1965   8DC6 29 40              AND #$40

1966   8DC8 D0 F9              BNE KG100
1967   8DCA

1968   8DCA A0 FF       GETTR  LDY #$FF
1969   8DCC AD 00 A0    NOTR   LDA TAPIN

1970   8DCF 29 40              AND #$40
1971   8DD1 C5 F9              CMP OLD

1972   8DD3 F0 F7              BEQ NOTR        ;NO CHANGE
1973   8DD5 85 F9              STA OLD

1974   8DD7 AD 06 A4           LDA TIMER
1975   8DDA 8C 15 A4           STY TIM8        ;RESTART CLOCK

1976   8DDD 18                 CLC