Technical information

Micro-KIM Users Manual
©
'

CARD # LOC CODE CARD
229 18D1 C9 FF CMP #$FF DEFAULT FF, IGNORE SA ON
230 18D3 F0 17 BEQ LOADT6 TAPE
231 18D5 D0 9C BNE LOADT
232 ;
233 18D7 20 F3 19 LOADT5 JSR RDBYT GET SA FROM TAPE
234 18DA 20 4C 19 JSR CHKT
235 18DD 8D ED 17 STA VEB+1 SAVX IN VEB+1,2
236 18E0 20 F3 19 JSR RDBYT
237 18E3 20 4C 19 JSR CHKT
238 18E6 8D EE 17 STA VEB+2
239 18E9 4C F8 18 JMP LOADT7
240 ;
241 18EC 20 F3 19 LOADT6 JSR RDBYT GET SA BUT IGNORE
242 18EF 20 4C 19 JSR CHKT
243 18F2 20 F3 19 JSR RDBYT
244 18F5 20 4C 19 JSR CHKT
245 ;
246 ;
247 18F8 A2 02 LOADT7 LDX #$02 GET 2 CHARS
248 18FA 20 24 1A LOAD13 JSR RDCHT GET CHAR (X)
249 18FD C9 2F CMP #$2F LOOK FOR LAST CHAR
250 18FF F0 14 BEQ LOADT8
251 1901 20 00 1A JSR PACKT CONVERT TO HEX
252 1904 D0 23 BNE LOADT9 Y=1 NON-HEX CHAR
253 1906 CA DEX
254 1907 D0 F1 BNE LOAD13
255 ;
256 1909 20 4C 19 JSR CHKT COMPUTE CHECKSUM
257 190C 4C EC 17 JMP VEB SAVX DATA IN MEMORY
258 190F 20 EA 19 LOAD12 JSR INCVEB INCREMENT DATA POINTER
259 1912 4C F8 18 JMP LOADT7
260 ;
261 1915 20 F3 19 LOADT8 JSR RDBYT END OF DATA, COMPARE CHKSUM
262 1918 CD E7 17 CMP CHKL
263 191B D0 0C BNE LOADT9
264 191D 20 F3 19 JSR RDBYT
265 1920 CD E8 17 CMP CHKH
266 1923 D0 04 BNE LOADT9
267 1925 A9 00 LDA #$00 NORMAL EXIT
268 1927 F0 02 BEQ LOAD10
269 ;
270 1929 A9 FF LOADT9 LDA #$FF ERROR EXIT
271 192B 85 FA LOAD10 STA POINTL
272 192D 85 FB STA POINTH
273 192F 4C 4F 1C JMP START
274 ;
276 ;
277 ; SUBROUTINES FOLLOW
278 ;
279 ; SUB TO MOVE SA TO VEB+1,2
280 ;
281 1932 AD F5 17 INTVEB LDA SAL MOVE SA TO VEB+1,2
282 1935 8D ED 17 STA VEB+1
283 1938 AD F6 17 LDA SAH
284 193B 8D EE 17 STA VEB+2
285 193E A9 60 LDA #$60 RTS INST
286 1940 8D EF 17 STA VEB+3
287 1943 A9 00 LDA #$00 CLEAR CHKSUM AREA