Filter
Top Products
1791 8C8E 85 FD STA MODE
1792 8C90 20 26 8E JSR RDBYTX ;READ ID BYTE ON TAPE
1793 8C93 8D 00 A4 STA DIG ;DISPLAY ON LED (NOT DECODED)
1794 8C96 CD 4E A6 CMP ID ;COMPARE WITH REQUESTED ID
1795 8C99 F0 29 BEQ LOADT5 ;LOAD IF EQUAL
1796 8C9B AD 4E A6 LDA ID ;COMPARE WITH 0
1797 8C9E C9 00 CMP #0
1798 8CA0 F0 22 BEQ LOADT5 ;IF 0, LOAD ANYWAY
1799 8CA2 C9 FF CMP #$FF ;COMPARE WITH FF
1800 8CA4 F0 07 BEQ LOADT6 ;IF FF, USE REQUEST SA TO LOAD
1801 8CA6
1802 8CA6 24 FD BIT MODE ;UNWANTED RECORD, KIM OR HS?
1803 8CA8 30 16 BMI HWRONG
1804 8CAA 4C 7B 8C JMP LOADT2 ;IF KIM, RESTART SEARCH
1805 8CAD
1806 8CAD ; SA (&EA IF USED) COME FROM REQUEST. DISCARD TAPE VALUES
1807 8CAD ; (BUFAD ALREADY SET TO SA BY 'START')
1808 8CAD ;
1809 8CAD 20 74 8E LOADT6 JSR RDCHK ;GET SAL FROM TAPE
1810 8CB0 20 74 8E JSR RDCHK ;GET SAH FROM TAPE
1811 8CB3 24 FD BIT MODE ;HS OR KIM?
1812 8CB5 10 52 BPL LOADT7 ;IF KIM, START READING DATA
1813 8CB7 20 74 8E JSR RDCHK ;HS, GET EAH, EAL FROM TAPE
1814 8CBA 20 74 8E JSR RDCHK ; ... BUT IGNORE
1815 8CBD 4C DE 8C JMP LT7H ;START READING HS DATA
1816 8CC0
1817 8CC0 ; SA ( & EA IF USED) COME FROM TAPE. SA REPLACES BUFAD
1818 8CC0
1819 8CC0 A9 C0 HWRONG LDA #$C0 ;READ THRU TO GE TO NEXT REC
1820 8CC2 85 FD STA MODE ;BUT DON'T CHECK CKSUM, NO FRAME ERR
1821 8CC4
1822 8CC4 20 74 8E LOADT5 JSR RDCHK ;GET SAL FROM TAPE
1823 8CC7 85 FE STA BUFADL ;PUT IN BUF START L
1824 8CC9 20 74 8E JSR RDCHK ;SAME FOR SAH
1825 8CCC 85 FF STA BUFADH
1826 8CCE ;(SAL - H STILL HAVE REQUEST VALUE)
1827 8CCE 24 FD BIT MODE ;HS OR KIM?
1828 8CD0 10 37 BPL LOADT7 ;IF KIM, START READING RECORD
1829 8CD2 20 74 8E JSR RDCHK ;HS. GET & SAVE EAL,EAH
1830 8CD5 8D 4A A6 STA EAL
1831 8CD8 20 74 8E JSR RDCHK
1832 8CDB 8D 4B A6 STA EAH
1833 8CDE
1834 8CDE ; READ HS DATA
1835 8CDE
1836 8CDE 20 E5 8D LT7H JSR RDBYTH ;GET NEXT BYTE
1837 8CE1 A6 FE LDX BUFADL ;CHECK FOR END OF DATA + 1
1838 8CE3 EC 4A A6 CPX EAL
1839 8CE6 D0 07 BNE LT7HA
1840 8CE8 A6 FF LDX BUFADH
1841 8CEA EC 4B A6 CPX EAH
1842 8CED F0 14 BEQ LT7HB
1843 8CEF 20 77 8E LT7HA JSR CHKT ;NOT END, UPDATE CHECKSUM
1844 8CF2 24 FD BIT MODE ;WRONG RECORD?
1845 8CF4 70 04 BVS LT7HC ;IF SO, DONT STORE BYTE
1846 8CF6 A0 00 LDY #0 ;STORE BYTE
1847 8CF8 91 FE STA (BUFADL),Y
1848 8CFA E6 FE LT7HC INC BUFADL ;BUMP BUFFER ADDR
1849 8CFC D0 E0 BNE LT7H
1850 8CFE E6 FF INC BUFADH ;CARRY
1851 8D00 4C DE 8C JMP LT7H
1852 8D03