1853 8D03 C9 2F LT7HB CMP #'/' ;EA, MUST BE "/"
1854 8D05 D0 29 BNE LCERR ;LAST CHAR NOT '/'
1855 8D07 F0 15 BEQ LT8A ;(ALWAYS)
1856 8D09
1857 8D09 ; READ KIM DATA
1858 8D09
1859 8D09 20 2A 8E LOADT7 JSR RDBYT
1860 8D0C B0 26 BCS LDT7A ;NONHEX OR LAST CHAR
1861 8D0E 20 77 8E JSR CHKT ;UPDATE CHECKSUM (PACKED BYTE)
1862 8D11 A0 00 LDY #0 ;STORE BYTE
1863 8D13 91 FE STA (BUFADL),Y
1864 8D15 E6 FE INC BUFADL ;BUMP BUFFER ADR
1865 8D17 D0 F0 BNE LOADT7 ;CARRY?
1866 8D19 E6 FF INC BUFADH
1867 8D1B 4C 09 8D JMP LOADT7
1868 8D1E
1869 8D1E ; TEST CHECKSUM & FINISH
1870 8D1E
1871 8D1E LOADT8 =*
1872 8D1E 20 26 8E LT8A JSR RDBYTX ;CHECK SUM
1873 8D21 CD 36 A6 CMP SCR6
1874 8D24 D0 16 BNE CKERR
1875 8D26 20 26 8E JSR RDBYTX
1876 8D29 CD 37 A6 CMP SCR7
1877 8D2C D0 0E BNE CKERR ;CHECK SUM ERROR
1878 8D2E F0 11 BEQ OKEXIT ;(ALWAYS)
1879 8D30
1880 8D30 A9 2F LCERR LDA #LSTCHR ;LAST CHAR IS NOT '/'
1881 8D32 D0 0A BNE NGEXIT ;(ALWAYS)
1882 8D34
1883 8D34 C9 2F LDT7A CMP #'/' ;LAST OR NONHEX?
1884 8D36 F0 E6 BEQ LOADT8 ;LAST
1885 8D38 FRERR ;FRAMING ERROR
1886 8D38 A9 FF NHERR LDA #NONHEX ;KIM ONLY, NON HEX CHAR READ
1887 8D3A D0 02 BNE NGEXIT ;(ALWAYS)
1888 8D3C
1889 8D3C A9 CC CKERR LDA #CHECK ;CHECKSUM ERROR
1890 8D3E
1891 8D3E 38 NGEXIT SEC ;ERROR INDICATOR TO MONITOR IS CARRY
1892 8D3F B0 01 BCS EXIT ;(ALWAYS)
1893 8D41
1894 8D41 18 OKEXIT CLC ;NO ERROR
1895 8D42
1896 8D42 24 FD EXIT BIT MODE
1897 8D44 50 08 BVC EX10 ;READING WRONG REC?
1898 8D46 A0 80 LDY #$80
1899 8D48 4C 78 8C JMP LOADT ;RESTART SEARCH
1900 8D4B
1901 8D4B 68 USRREQ PLA ;USER REQUESTS EXIT
1902 8D4C 68 PLA
1903 8D4D 38 SEC
1904 8D4E A2 CC EX10 LDX #$CC
1905 8D50 D0 69 BNE STCC ;STOP TAPE, RETURN
1906 8D52 AD 02 A0 SYNC LDA DDRIN ;CHANGE DATA DIRECTION
1907 8D55 29 BF AND #$BF
1908 8D57 8D 02 A0 STA DDRIN
1909 8D5A A9 00 LDA #0
1910 8D5C 8D 0B A0 STA VIAACR
1911 8D5F AD 31 A6 LDA KMBDRY ;SET UP BOUNDARY
1912 8D62 24 FD BIT MODE
1913 8D64 10 03 BPL SY100
1914 8D66 AD 32 A6 LDA HSBDRY