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