Apple II User Manual
2101 8E87 20 A9 8D DUMPT JSR START ;INIT VIA & CKSUM, SA TO BUFAD & START
2102 8E8A A9 07 LDA #7 ;CODE FOR TAPE OUT
2103 8E8C 8D 02 A4 STA TAPOUT ;BIT 3 USED FOR HI/LO
2103 8E8C 8D 02 A4 STA TAPOUT ;BIT 3 USED FOR HI/LO
2104 8E8F A2 01 LDX #1 ;KIM DELAY CONSTANT (OUTER)
2105 8E91 A4 FD LDY MODE ;128 KIM, 0 HS
2105 8E91 A4 FD LDY MODE ;128 KIM, 0 HS
2106 8E93 10 03 BPL DUMPT1 ;KIM - DO 128 SYNS
2107 8E95 AE 30 A6 LDX TAPDEL ;HS INITIAL DELAY (OUTER)
2107 8E95 AE 30 A6 LDX TAPDEL ;HS INITIAL DELAY (OUTER)
2108 8E98 8A DUMPT1 TXA
2109 8E99 48 PHA
2109 8E99 48 PHA
2110 8E9A A9 16 DMPT1A LDA #SYN
2111 8E9C 20 0A 8F JSR OUTCTX
2111 8E9C 20 0A 8F JSR OUTCTX
2112 8E9F 88 DEY
2113 8EA0 D0 F8 BNE DMPT1A ;INNER LOOP (HS OR KIM)
2113 8EA0 D0 F8 BNE DMPT1A ;INNER LOOP (HS OR KIM)
2114 8EA2 68 PLA
2115 8EA3 AA TAX
2115 8EA3 AA TAX
2116 8EA4 CA DEX
2117 8EA5 D0 F1 BNE DUMPT1
2117 8EA5 D0 F1 BNE DUMPT1
2118 8EA7 A9 2A LDA #'*' ;WRITE START
2119 8EA9 20 0A 8F JSR OUTCTX
2119 8EA9 20 0A 8F JSR OUTCTX
2120 8EAC
2121 8EAC AD 4E A6 LDA ID ;WRITE ID
2121 8EAC AD 4E A6 LDA ID ;WRITE ID
2122 8EAF 20 3F 8F JSR OUTBTX
2123 8EB2
2123 8EB2
2124 8EB2 AD 4C A6 LDA SAL ;WRITE SA
2125 8EB5 20 3C 8F JSR OUTBCX
2125 8EB5 20 3C 8F JSR OUTBCX
2126 8EB8 AD 4D A6 LDA SAH
2127 8EBB 20 3C 8F JSR OUTBCX
2127 8EBB 20 3C 8F JSR OUTBCX
2128 8EBE
2129 8EBE ;
2129 8EBE ;
2130 8EBE 24 FD BIT MODE ;KIM OR HS
2131 8EC0 10 0C BPL DUMPT2
2131 8EC0 10 0C BPL DUMPT2
2132 8EC2
2133 8EC2 AD 4A A6 LDA EAL ;HS, WRITE EA
2133 8EC2 AD 4A A6 LDA EAL ;HS, WRITE EA
2134 8EC5 20 3C 8F JSR OUTBCX
2135 8EC8 AD 4B A6 LDA EAH
2135 8EC8 AD 4B A6 LDA EAH
2136 8ECB 20 3C 8F JSR OUTBCX
2137 8ECE
2137 8ECE
2138 8ECE A5 FE DUMPT2 LDA BUFADL ;CHECK FOR LAST BYTE
2139 8ED0 CD 4A A6 CMP EAL
2139 8ED0 CD 4A A6 CMP EAL
2140 8ED3 D0 25 BNE DUMPT4
2141 8ED5 A5 FF LDA BUFADH
2141 8ED5 A5 FF LDA BUFADH
2142 8ED7 CD 4B A6 CMP EAH
2143 8EDA D0 1E BNE DUMPT4
2143 8EDA D0 1E BNE DUMPT4
2144 8EDC
2145 8EDC A9 2F LDA #'/' ;LAST, WRITE "/"
2145 8EDC A9 2F LDA #'/' ;LAST, WRITE "/"
2146 8EDE 20 0A 8F JSR OUTCTX
2147 8EE1 AD 36 A6 LDA SCR6 ;WRITE CHECK SUM
2147 8EE1 AD 36 A6 LDA SCR6 ;WRITE CHECK SUM
2148 8EE4 20 3F 8F JSR OUTBTX
2149 8EE7 AD 37 A6 LDA SCR7
2149 8EE7 AD 37 A6 LDA SCR7
2150 8EEA 20 3F 8F JSR OUTBTX
2151 8EED
2151 8EED
2152 8EED A9 04 LDA #EOT ;WRITE TWO EOT'S
2153 8EEF 20 3F 8F JSR OUTBTX
2153 8EEF 20 3F 8F JSR OUTBTX
2154 8EF2 A9 04 LDA #EOT
2155 8EF4 20 3F 8F JSR OUTBTX
2155 8EF4 20 3F 8F JSR OUTBTX
2156 8EF7
2157 8EF7 DT3E =* ;(SET "OK" MARK)
2157 8EF7 DT3E =* ;(SET "OK" MARK)
2158 8EF7 4C 41 8D JMP OKEXIT
2159 8EFA
2159 8EFA
2160 8EFA A0 00 DUMPT4 LDY #0 ;GET BYTE
2161 8EFC B1 FE LDA (BUFADL),Y
2161 8EFC B1 FE LDA (BUFADL),Y
2162 8EFE 20 3C 8F JSR OUTBCX ;WRITE IT W/CHK SUM