Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/utils/gene/vfy.asm @ 3087:a938d0f26711
Removed unnecessary b.asm file
author | boisy@tee-boy.com |
---|---|
date | Sat, 03 Oct 2015 14:51:30 -0500 |
parents | 2e740da2088e |
children |
rev | line source |
---|---|
2977
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1 * vfy.asm, module file verification tool |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
2 * Copyright (C) 1993-2014 Gene Heskett |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
3 * License: GPLv2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
4 * See vfy.doc for more licensing information |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
5 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
6 opt w 86 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
7 nam vfy Edition 17 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
8 ttl A new verify, finds, fixes modules in files |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
9 ************************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
10 * This verify will search thru any file to find a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
11 * valid module header in the $87CD format, get that |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
12 * modules size, do a header parity/crc check on it, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
13 * and if the -f option is on, will update the header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
14 * parity and CRC bytes in the file too. It then |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
15 * resumes the search of the named file for more |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
16 * modules and loops till <eof>. If it finds <eof> |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
17 * while doing the crc, the error is reported as such. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
18 * 2/18/93 version 7 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
19 * The housekeeping was pretty well complete, so it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
20 * wasn't very much trouble to add the file split |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
21 * ability to this, now we can even split out the |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
22 * kernal track modules, plus head and tail too! Ver 8 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
23 * 11.24.93 GH Ver 9Adding some stuffs from "fixmod" here |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
24 * Now have total control over its vebosity 11/24/93 GH Ver 10 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
25 * 11/24/93 GH, -ua,-ur,-ut,-ul=$hexval installed |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
26 * 11/26-27/93 GH fine tuning the above GH Ver 11 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
27 * 01/25/94 GH another minor mod so it doesn't complain |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
28 * if the header parity is correct even if told to fix GH Ver 12 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
29 * 11/11/94 GH Ver 13. bug smashing, didn't update datasize |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
30 * if header parity was ok. Wrong branch at hdr parity check, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
31 * if good it skipped the header update! Shame on me. :-( |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
32 * 11/14/94 GH Now it beeps and updates the header even if |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
33 * theres nothing wrong if the -f option is on. It doesn't |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
34 * hurt anything except the speed, but looking to fix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
35 * it anyway. Now it does a header/datasize update |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
36 * independantly of the crc fixes, fixing only the |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
37 * header of the named file for one of the header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
38 * fix variables, and the crc of that named file. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
39 * If the -f option is on, it will fix the crc's |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
40 * and headers all thru the file. A good way to |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
41 * clean up after ded when working on hand patches |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
42 * in the kernal track. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
43 * 05/04/95 GH, wasn't showing the correct info from the |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
44 * INIT module. Several minor changes there. Now ed #15 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
45 * 05/10/95 GH, adding the ability to change one module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
46 * in a file via the name match, -n=modname |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
47 * also put verbose control in (finally), now edition 16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
48 * Seeing if its possible to make it split a $62CD library |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
49 * after looking over the header format for an ROF file, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
50 * it might be better to do a whole new "libsplit" |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
51 ifp1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
52 use os9.d |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
53 endc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
54 ver set 17 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
55 atrev set reent+1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
56 * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
57 mod len,name,prgrm+objct,atrev,entry,dsiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
58 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
59 crcacc rmb 1 for new crc's |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
60 crcac2 rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
61 crcac3 rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
62 filecrc1 rmb 1 for the actual crc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
63 filecrc2 rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
64 filecrc3 rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
65 numptr rmb 2 ptr to src |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
66 linptr rmb 2 ptr to linbuff |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
67 linbuff rmb 8 max len for printables |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
68 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
69 **** the modules header directly loaded **** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
70 modid1 rmb 1 the $87 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
71 modid2 rmb 1 the $CD |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
72 modlen rmb 2 for the modules length |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
73 modname rmb 2 offset ptr to module name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
74 typelang rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
75 modatrev rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
76 checksum rmb 1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
77 execptr1 rmb 1 the exec offset in the header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
78 execptr2 rmb 1 more exec address |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
79 pdatasz1 rmb 1 the permanent data size from the header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
80 pdatasz2 rmb 1 more data size or IRQ Poll count |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
81 dvtblent rmb 1 the device table entries value for INIT |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
82 ***** the above loaded directly from the file **** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
83 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
84 modhstrt rmb 2 set by sethead at start of |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
85 modlstrt rmb 2 module being checked |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
86 lmnscrc rmb 2 length minus crc for seeks |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
87 flenms16 rmb 2 overall file size ms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
88 flenls16 rmb 2 ditto ls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
89 filesiz rmb 2 size of individual module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
90 modpos rmb 2 where in module now |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
91 seekms16 rmb 2 for seeks |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
92 seekls16 rmb 2 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
93 moddone rmb 1 flag for last read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
94 seperat rmb 1 flag for seperations |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
95 kernal rmb 1 flag to save it all |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
96 kbptrms rmb 1 msb of int |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
97 kbptr rmb 1 ptr to krnlbuf location |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
98 exdir rmb 1 for defining the access attributes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
99 inpath rmb 1 for pathnum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
100 outpath rmb 1 flag and output paths |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
101 kpath rmb 1 for kernal extras path |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
102 fixit rmb 1 tally for fix it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
103 fixname rmb 1 fix only this name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
104 fixty rmb 1 tally for individual fix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
105 fixla rmb 1 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
106 fixat rmb 1 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
107 fixrv rmb 1 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
108 sizyet rmb 1 size not displayed yet if set |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
109 exectyp rmb 1 is executable |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
110 lftnbbl rmb 1 controls left-right nibble processing |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
111 verbose rmb 1 do we wanta see the results |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
112 updtrv rmb 1 update revision nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
113 updtat rmb 1 update the attr nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
114 updtty rmb 1 update the modules type nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
115 updtla rmb 1 update the modules language nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
116 updtdtsz rmb 2 update modules memsize integer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
117 updthead rmb 1 controls the re-write of the header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
118 cmpname rmb 32 to hold wanted name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
119 datsiz equ . memory from 0 to here gets cleared |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
120 mdlname rmb 32 room for name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
121 krnlbuf rmb 64 enough for what I've seen |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
122 buffer rmb 256 save the disk buffer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
123 params rmb 200 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
124 stack rmb 200 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
125 dsiz equ . |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
126 * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
127 name fcs /VFY/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
128 fcb ver |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
129 helpmsg fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
130 fcc 'Syntax: vfy [-options] [-options] /path/filename' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
131 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
132 fcc / Options -> -f =fix (whole file) IF CRC is bad./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
133 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
134 fcc / -> -v =work silently./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
135 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
136 fcc / -> -n=name fix or adjust only "name" module./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
137 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
138 fcc / -> -x =file is in EXEC dir./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
139 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
140 fcc / -> -s =seperate MERGED file./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
141 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
142 fcc / -> -sk =seperate KERNAL file./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
143 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
144 fcc / -> -ua=$hexchar -ur=$hexchar -ut=$hexchar -ul=$hexchar/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
145 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
146 fcc / a=att nibl, r=rev nibl, t=type nibl, l=lang nibl, "$" required/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
147 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
148 fcc / -> -ud=$hexint to add (modulo $10000) data size./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
149 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
150 fcc / if -u, -f is enabled for first file encountered./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
151 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
152 fcc / if -n, -f is enabled for named file encountered./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
153 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
154 cpyrit fcc / VFY (c) 1993, 1994, 1995 by Maurice E.(Gene) Heskett/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
155 fcb $0D,$0A |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
156 msgsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
157 advise0 fcc /A header file called / |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
158 kernal0 fcc /KernalHead/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
159 fcb $0D put cr on name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
160 krnlhsz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
161 advise1 fcc /A tail file called / |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
162 kernal1 fcc /KernalTail/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
163 fcb $0D put cr on name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
164 krnltsz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
165 advlen fcc / with a length of $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
166 advend fcc / has been made./ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
167 hednamsg fcc /Header for : / |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
168 hedckmsg fcc /Header parity : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
169 ckbadsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
170 fixxmsg fcc / Repaired to: $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
171 newln fcb $0d,$0a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
172 hdgdsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
173 modlnmsg fcc /Module size : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
174 crcmsg fcc /Module CRC is : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
175 crcmsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
176 gdmsg fcc / (good)/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
177 fcb $0d,$0a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
178 gdsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
179 shdabeen fcc ' S/B $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
180 badmsg fcc / (bad)/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
181 fcb $07,$07,$07,$07,$07 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
182 badsiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
183 mdoffset fcc /Module found at offset $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
184 mdoffend fcc / in this file/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
185 mdoffnln fcb $0d,$0a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
186 ftopmem fcc /Top of free ram $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
187 ftopsiz equ *-ftopmem |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
188 ptabent fcc /, IRQ poll table entries $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
189 ptabsiz equ *-ptabent |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
190 dvtabent fcc /, Device table entries $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
191 dvtabsiz equ *-dvtabent |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
192 flenmsg fcc /Length of file: $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
193 howmany fcc /Bytes read : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
194 execoff fcc /Exec. off : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
195 datasiz fcc /Data Size : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
196 vertion fcc /Edition : $/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
197 tplgatrv fcc 'Ty/La At/Rv : $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
198 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
199 ******** The lookup table for TYPE |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
200 typelook equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
201 typunksz fdb sstmod-unktyp zero is not defined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
202 typunkst fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
203 typprgsz fdb sbrutn-prgtyp 1 is program |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
204 typprgst fdb prgtyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
205 typsubsz fdb mltmod-sbrutn 2 is subroutine |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
206 typsubst fdb sbrutn-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
207 typmltsz fdb dtmtyp-mltmod 3 is multi-mod |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
208 typmltst fdb mltmod-* whatever that is |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
209 typdatsz fdb unktyp-dtmtyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
210 typdatst fdb dtmtyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
211 typ5siz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
212 typ5str fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
213 typ6siz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
214 typ6str fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
215 typ7siz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
216 typ7str fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
217 typ8siz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
218 typ8str fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
219 typ9siz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
220 typ9str fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
221 typAsiz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
222 typAstr fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
223 typBsiz fdb sstmod-unktyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
224 typBstr fdb unktyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
225 typCsiz fdb fmntyp-sstmod |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
226 typCstr fdb sstmod-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
227 typDsiz fdb ddrtyp-fmntyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
228 typDstr fdb fmntyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
229 typEsiz fdb ddstyp-ddrtyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
230 typEstr fdb ddrtyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
231 typFsiz fdb ddssiz-ddstyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
232 typFstr fdb ddstyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
233 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
234 *********** The type defines *********** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
235 typstrs equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
236 prgtyp fcc /Program module/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
237 sbrutn fcc /Subroutine/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
238 mltmod fcc /Multi-Mod/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
239 dtmtyp fcc /Data module/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
240 unktyp fcc /Unknown type/ from 5 to B |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
241 sstmod fcc /System module/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
242 fmntyp fcc /File manager/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
243 ddrtyp fcc /Device driver/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
244 ddstyp fcc /Device descriptor/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
245 ddssiz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
246 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
247 *********** The lookup table for LANG |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
248 langlook equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
249 lan0siz fdb std809-sysdat 0 is data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
250 lan0str fdb sysdat-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
251 lan1siz fdb b09typ-std809 1 is 6809 object |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
252 lan1str fdb std809-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
253 lan2siz fdb pastyp-b09typ 2 is Basic09 I-code |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
254 lan2str fdb b09typ-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
255 lan3siz fdb ftntyp-pastyp 3 is Pascal P-code |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
256 lan3str fdb pastyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
257 lan4siz fdb ccityp-ftntyp 4 is Fortran I-code |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
258 lan4str fdb ftntyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
259 lan5siz fdb cbltyp-ccityp 5 is C I-code, in .r mods maybe |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
260 lan5str fdb ccityp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
261 lan6siz fdb obj309-cbltyp 6 is Cobol I-code |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
262 lan6str fdb cbltyp-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
263 lan7siz fdb unklan-obj309 7 is 6309 object (NATIVE mode) |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
264 lan7str fdb obj309-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
265 lan8siz fdb unklsz-unklan 8 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
266 lan8str fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
267 lan9siz fdb unklsz-unklan 9 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
268 lan9str fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
269 lanAsiz fdb unklsz-unklan 10 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
270 lanAstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
271 lanBsiz fdb unklsz-unklan 11 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
272 lanBstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
273 lanCsiz fdb unklsz-unklan 12 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
274 lanCstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
275 lanDsiz fdb unklsz-unklan 13 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
276 lanDstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
277 lanEsiz fdb unklsz-unklan 14 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
278 lanEstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
279 lanFsiz fdb unklsz-unklan 15 undefined |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
280 lanFstr fdb unklan-* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
281 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
282 *********** The language defines ********* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
283 lanstrs equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
284 sysdat fcc /, Data/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
285 std809 fcc /, 6809 object/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
286 b09typ fcc /, Basic09 I-code/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
287 pastyp fcc /, Pascal P-code/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
288 ftntyp fcc /, Fortran I-code/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
289 ccityp fcc /, C I-code/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
290 cbltyp fcc /, Cobol I-code/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
291 obj309 fcc /, 6309 object/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
292 unklan fcc /, Unknown language/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
293 unklsz equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
294 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
295 ********** The attr defines ************ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
296 rent1 fcc /, Re-enterable/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
297 rdonly fcc ', R/O' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
298 rwattr fcc ', R/W' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
299 ntv309 fcc /, NATIVE MODE!/ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
300 ntvend equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
301 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
302 ******* Beginning of some subroutines ******* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
303 * SKEQDLR - skip the = and $ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
304 * or detect a cmndline error |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
305 skeqdlr lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
306 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
307 cmpa #'= |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
308 lbne help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
309 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
310 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
311 cmpa #'$ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
312 lbne help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
313 lda ,x+ get next char as value to use |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
314 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
315 rts and return to sender |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
316 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
317 *********************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
318 * A switchable showit routine |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
319 showit pshs a,cc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
320 tst <verbose |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
321 beq showend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
322 lda #$02 stderr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
323 os9 I$Write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
324 showend puls a,cc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
325 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
326 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
327 ********************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
328 * A switchable newlnfd, exits thru showend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
329 newlnfd pshs a,cc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
330 tst <verbose |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
331 beq showend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
332 lda #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
333 os9 I$Writln |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
334 bra showend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
335 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
336 ****** the display subroutine ****** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
337 * entry - offset into lookup table in B |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
338 * entry - address of lookup table in X |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
339 tylandis clra just in case |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
340 abx 1st string location in x, add only! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
341 ldy ,x++ get size to print |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
342 ldd ,x get offset to object itself |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
343 pshs x save pointer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
344 addd ,s++ add offset & puls x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
345 tfr d,x back to x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
346 bsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
347 rts thats all for now folks |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
348 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
349 ********************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
350 * dfinemd - a subroutine to display |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
351 * the modules header defined data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
352 * first, set the tallies as to what it is |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
353 dfinemd leax exectyp,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
354 clra |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
355 ldb #verbose-exectyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
356 dfinclr sta ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
357 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
358 bne dfinclr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
359 ldb <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
360 andb #$F0 get type define |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
361 lsrb b/2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
362 lsrb b/4 so increment thru list=4 bytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
363 leax typelook,pcr top of type string list |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
364 bsr tylandis |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
365 ldb <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
366 andb #$0F |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
367 beq dfn1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
368 inc <exectyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
369 dfn1 aslb b*2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
370 aslb b*4 see reason above on b/4 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
371 leax langlook,pcr top of language string list |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
372 bsr tylandis |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
373 att0 ldb <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
374 bitb #$80 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
375 beq att1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
376 leax rent1,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
377 ldy #rdonly-rent1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
378 bsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
379 ldb <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
380 att1 bitb #$40 gimix module write protect |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
381 bne att2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
382 leax rdonly,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
383 ldy #rwattr-rdonly |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
384 bsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
385 ldb <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
386 bra att3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
387 att2 leax rwattr,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
388 ldy #ntv309-rwattr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
389 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
390 ldb <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
391 att3 bitb #$20 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
392 beq dis0 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
393 leax ntv309,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
394 ldy #ntvend-ntv309 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
395 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
396 dis0 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
397 ldy #2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
398 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
399 tst <exectyp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
400 beq dis2 not executable code! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
401 ldb <typelang testing for DESCR module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
402 cmpb #$F1 a device descriptor? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
403 beq dis3 no, skip the Exec,Data reports |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
404 leax execoff,pcr to msg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
405 ldy #datasiz-execoff |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
406 lbsr showit 'Exec offset :$' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
407 leax execptr1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
408 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
409 ldb #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
410 lbsr printit show num |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
411 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
412 ldy #2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
413 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
414 * numptr pointing at data size in module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
415 skdatup leax datasiz,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
416 ldy #vertion-datasiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
417 lbsr showit 'Data size :$' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
418 ldb #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
419 lbsr printit perm data size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
420 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
421 lbsr newlnfd newline it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
422 bra dis3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
423 dis2 ldb <typelang testing for INIT module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
424 cmpb #$C0 is it system+data=INIT? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
425 bne dis3 no, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
426 leax execptr1,u get it started at the right place |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
427 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
428 leax ftopmem,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
429 ldy #ftopsiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
430 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
431 ldb #$03 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
432 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
433 leax ptabent,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
434 ldy #ptabsiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
435 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
436 ldb #$01 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
437 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
438 leax dvtabent,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
439 ldy #dvtabsiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
440 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
441 ldb #$01 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
442 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
443 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
444 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
445 dis3 clr <sizyet |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
446 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
447 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
448 ******************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
449 * A routine to make ascii->hex |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
450 * ENTRY: valid data in a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
451 * EXIT : hex in a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
452 ascihex cmpa #'0 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
453 lblo help wrong! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
454 cmpa #'9 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
455 bls ascinum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
456 ** no numbers get thru here ** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
457 cmpa #'Z |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
458 blo asciup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
459 anda #$DF |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
460 asciup cmpa #'F |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
461 lbhi help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
462 suba #$07 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
463 ascinum suba #'0 ok sub the first $30 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
464 shiftit tst <lftnbbl |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
465 beq asciret |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
466 lsla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
467 lsla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
468 lsla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
469 lsla if lftnbbl shift it to left nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
470 asciret rts should be ok, but Murphy is watching! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
471 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
472 ******************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
473 * The REAL start of this program! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
474 * ENTRY: a command line full of data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
475 * pointed to by regs.x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
476 entry pshs d,x,y save possible params |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
477 leax crcacc,u clear some memory |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
478 ldb #datsiz out for us. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
479 clra |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
480 clrloop sta ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
481 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
482 bne clrloop |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
483 lda #READ. setup for data dir |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
484 sta <exdir |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
485 sta <verbose to enable it unless shut off |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
486 puls d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
487 decb arguments? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
488 lbeq help no,go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
489 incb back to right count! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
490 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
491 * and fall thru to setup, my command line checker with |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
492 * syntax relaxations, can take vfy -x -f filename, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
493 * or vfy -fx (-xf) filename, also -s, -sk, -k alone illegal |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
494 * also -v now works to shut it up GH |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
495 setup lda ,x+ get a char from cmnd line |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
496 decb track cmndline chars left |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
497 lbeq help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
498 setret cmpa #$20 a space? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
499 beq setup yup, go get next char |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
500 cmpa #'- is "-"? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
501 beq setup1 yup, go do the options |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
502 leax -1,x not space or -, rtn ptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
503 incb to restore count |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
504 lbra openit godoit, our other exit from here |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
505 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
506 setup1 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
507 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
508 cmpa #$41 is regs.a<#'A alpha char? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
509 bmi setret wasn't, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
510 anda #$df else make uppercase |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
511 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
512 ***** Edition 16 addition ***** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
513 cmpa #'V |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
514 bne setfix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
515 clr <verbose shut it up |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
516 bra setup1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
517 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
518 setfix cmpa #'F |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
519 bne setx nope, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
520 sta <fixit to nz it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
521 lda #UPDAT.+SHARE. we don't wanna share |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
522 setatts ora <exdir if we're fixing it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
523 sta <exdir |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
524 bra setup1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
525 setx cmpa #'X |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
526 bne setsepU |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
527 lda #EXEC. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
528 bra setatts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
529 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
530 ************ setsepU ************ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
531 * added to pick up args for "fixmod" |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
532 * like operations |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
533 setsepU cmpa #'U |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
534 lbne setsepS |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
535 lda ,x+ get next char to tell us what to do |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
536 decb track data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
537 lbeq help can't be out here |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
538 anda #$DF make uppercase |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
539 cmpa #'A change attr nibble? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
540 bne setsepR |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
541 setSepA lbsr skeqdlr checks errs, returns good char |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
542 sta <lftnbbl to nz it so ascihex will shift |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
543 sta <fixat to tally new data avail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
544 lbsr ascihex go make it a hexval |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
545 sta <updtat |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
546 clr <lftnbbl cancel the order |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
547 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
548 bra setup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
549 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
550 setsepR cmpa #'R change rev nibble? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
551 bne setsepT nope, maybe its Type |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
552 lbsr skeqdlr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
553 sta <fixrv to tally new data avail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
554 lbsr ascihex |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
555 sta <updtrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
556 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
557 bra setup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
558 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
559 setsepT cmpa #'T |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
560 bne setsepL maybe its Language nibble? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
561 lbsr skeqdlr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
562 sta <lftnbbl to nz it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
563 sta <fixty to tally new data avail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
564 lbsr ascihex |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
565 sta <updtty new Type value in left nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
566 clr <lftnbbl shut down the shifter |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
567 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
568 lbra setup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
569 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
570 setsepL cmpa #'L is it change lang nibble? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
571 bne setsepD might be data size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
572 lbsr skeqdlr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
573 sta <fixla to tally new data avail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
574 lbsr ascihex |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
575 sta <updtla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
576 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
577 lbra setup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
578 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
579 *************** setsepD *************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
580 * if more than 4 valid hex digits are entered |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
581 * on cmnd line, it will keep on looping, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
582 * keeping the last 4 in updtdtsz. You can add |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
583 * as little as one byte with this retriever or |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
584 * subtract since the addition is modulo $8000, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
585 * use -ud=$FFFE to subtract one byte! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
586 setsepD lbsr skeqdlr see if right syntax used |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
587 setdtsz lbsr ascihex returns val in reg.a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
588 pshs b we want this order on the stack |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
589 pshs a save the nibble on the stack |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
590 ldd <updtdtsz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
591 lslb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
592 rola times 2 now |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
593 lslb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
594 rola times 4 now |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
595 lslb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
596 rola times 8 now |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
597 lslb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
598 rola updtdtsz now *16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
599 orb ,s+ least sig nibble dummy! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
600 std <updtdtsz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
601 puls b thats why we wanted this order |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
602 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
603 decb tryin to track cmdln data used |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
604 lbeq help better be more data here! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
605 cmpa #$20 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
606 lbeq setup oops, out of data but ok |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
607 lbmi help real probs, no filename! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
608 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
609 bra setdtsz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
610 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
611 ************** setsepS *************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
612 * sets it up to seperate a merged file, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
613 * the kernal to be specific, but works |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
614 * on os9boot files too. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
615 setsepS cmpa #'S |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
616 bne SetName this was to help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
617 sta <seperat make nz to enable |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
618 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
619 decb obscure bug fixing |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
620 anda #$DF |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
621 cmpa #'K |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
622 bne setsep1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
623 lda #$30 a zero |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
624 sta <kernal to nz it and furnish number |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
625 lbra setup1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
626 setsep1 leax -1,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
627 incb bug fixing |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
628 lbra setup1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
629 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
630 ****** Edition 16 addition ****** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
631 SetName cmpa #'N |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
632 lbne help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
633 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
634 cmpa #'= |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
635 lbne help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
636 pshs y we're gonna diddle it, save it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
637 leay cmpname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
638 NameSave lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
639 cmpa #32 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
640 bls EndNmSv must be done, back out |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
641 cmpa #'9 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
642 bls noupcase |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
643 anda #$DF name uppercase |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
644 * ok, lets see what its doing |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
645 noupcase sta ,y+ and save it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
646 bra NameSave |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
647 EndNmSv clr ,y zero mark end of name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
648 inc <fixname |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
649 puls y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
650 bra setsep1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
651 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
652 **** end of setup, openit start **** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
653 openit decb filename there yet? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
654 lbeq help no, go squawk |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
655 lda <fixat |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
656 adda <fixrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
657 adda <fixla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
658 adda <fixty |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
659 adda <fixname |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
660 adda <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
661 beq openatok |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
662 lda #UPDAT.+SHARE. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
663 ora <exdir |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
664 sta <exdir |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
665 * first, if named, get rid of updthead silliness |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
666 openatok tst <fixname did we name a module? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
667 beq openit1 no, skip this |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
668 clr <updthead one or the other bud! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
669 openit1 lda <exdir get attributes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
670 os9 I$Open |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
671 lbcs help oh-oh, file not avail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
672 sta <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
673 lbsr getsiz get overall size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
674 lbsr seekmod start at 0, old readit lbl |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
675 readit lbsr readabyt opens head/tail files too |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
676 lda ,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
677 readit1 cmpa #$87 look for 1st byte |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
678 bne readit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
679 sta <modid1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
680 readit2 lbsr readabyt updates filepos via addseek |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
681 lda ,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
682 cmpa #$CD |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
683 bne readit1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
684 sta <modid2 we found a file! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
685 ldx #$0002 we've got 2 bytes of |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
686 stx <modpos a module, record it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
687 dec <kbptr cancel 2 outa non-mod buf |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
688 dec <kbptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
689 beq readit3 no use if zero |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
690 tst <kernal are we saving all |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
691 beq readit3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
692 lbsr openkern makes filepath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
693 lbsr clskrnl writes kbptr size buffer and closes up |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
694 readit3 clr <kbptr so's it don't accumulate |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
695 lda <inpath get rest of header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
696 leax modlen,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
697 ldy #$000C get dev table entries too |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
698 os9 I$read get those 12 bytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
699 lbsr addsect those 12 bytes to total len |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
700 ldd <modlen |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
701 subd #$03 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
702 std <lmnscrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
703 lbsr sethead ->GETNAM->SEEKMOD |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
704 leax mdoffset,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
705 ldy #mdoffend-mdoffset |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
706 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
707 leax modhstrt,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
708 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
709 ldb #$04 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
710 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
711 leax mdoffend,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
712 ldy #ftopmem-mdoffend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
713 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
714 initcrc leax crcacc,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
715 ldb #6 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
716 lda #$FF |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
717 psetcrc sta ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
718 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
719 bne psetcrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
720 lbsr chkhead go check/fix ty/la at/rv, parity, pdatasz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
721 ldy #$0E (was $D)Because parity fixed in mem, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
722 leax modid1,u crc displayed is right IF |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
723 os9 F$CRC we do crc of 1st 14 bytes in mem |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
724 * after chkhead! It should arrive here with modpos=14 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
725 tst <seperat |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
726 beq docrc0 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
727 lbsr openout |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
728 docrc0 inc <sizyet |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
729 docrc leax buffer,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
730 ldd <lmnscrc module length-crcbytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
731 subd <modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
732 cmpd #$100 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
733 bhi getmore |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
734 tfr d,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
735 inc <moddone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
736 bra getlast |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
737 getmore ldy #$100 get a sectors worth |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
738 getlast lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
739 os9 I$Read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
740 lbsr addsect doesn't chg x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
741 tst <sizyet |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
742 beq getcont |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
743 pshs d,x,y save count |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
744 lbsr dfinemd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
745 puls d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
746 getcont leax buffer,u the data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
747 pshs x,y save the pointer and quantity |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
748 os9 F$Crc U already points at crcacc! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
749 puls x,y restore |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
750 lda <outpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
751 beq doneyet we're not spliting it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
752 os9 I$Write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
753 lbcs help report error and quit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
754 doneyet tst <moddone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
755 beq docrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
756 pshs y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
757 ldd <crcacc now copy crc to filecrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
758 coma and make valid |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
759 comb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
760 std <filecrc1 in case its bad |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
761 ldb <crcac3 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
762 comb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
763 stb <filecrc3 ditto |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
764 bcc donyet2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
765 comb clear any carry |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
766 donyet2 tfr x,d |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
767 addd ,s++ puls the Y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
768 tfr d,x x now=crc location in buffer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
769 pshs x save it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
770 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
771 ldy #$03 the 3 crc bytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
772 os9 I$Read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
773 lbsr addsect add to filepos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
774 puls x retrieve crc addr, y still=3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
775 os9 F$CRC whole modules crc now in crcacc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
776 lbsr chkcrc go check, correct it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
777 lda <outpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
778 beq dunyet if zero, no path |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
779 leax filecrc1,u put good one out |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
780 ldy #3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
781 os9 I$Write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
782 os9 I$Close |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
783 clr <outpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
784 dunyet clr <moddone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
785 lbra readit see if more file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
786 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
787 ************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
788 * The EOF is found, close up, go home |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
789 cleanup bcc cleanup1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
790 comb we get here with the carry set |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
791 cleanup1 pshs x,u save so's the tail is right |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
792 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
793 ldu <flenls16 go back to real end of file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
794 ldx <flenms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
795 os9 I$Seek to end of file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
796 puls x,u recover tail pointers |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
797 os9 I$Close and close up w/o len change |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
798 tst <kernal are we saveing a kernal? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
799 beq cleanup2 if 0, nothing to write! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
800 lbsr openkern go open a path |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
801 lbsr clskrnl write and close it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
802 bcc cleanup2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
803 comb clear error flag |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
804 cleanup2 leax howmany,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
805 ldy #execoff-howmany |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
806 lbsr showit print the string |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
807 leax seekms16,u point at total length |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
808 stx numptr of file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
809 ldb #$04 bytes to print |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
810 lbsr printit convert to ascii and print |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
811 leax newln,pcr hang a newline on it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
812 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
813 alldun clrb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
814 os9 F$Exit all done folks! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
815 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
816 ************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
817 * CHKHEAD - checks, fixes header checksum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
818 * entry: header in memory at modid1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
819 chkhead leax hednamsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
820 ldy #hedckmsg-hednamsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
821 lbsr showit 'Header for: ' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
822 leax mdlname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
823 ldy #$20 maxlength |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
824 lbsr newlnfd show the filename with cr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
825 leax hedckmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
826 ldy #ckbadsiz-hedckmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
827 lbsr showit Header parity : $ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
828 ldb #$01 only one byte to convert |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
829 leax checksum,u pass address of checksum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
830 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
831 lbsr printit the parity byte |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
832 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
833 *********************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
834 * see if we got anything to fix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
835 * check attr,rev,typ,lang,dsize |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
836 * and update the memory image |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
837 lda <updthead will be 1 if right module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
838 adda <fixit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
839 beq psetpar nothin to fix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
840 tst <fixat else |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
841 beq revchk |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
842 atchk lda <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
843 anda #$0F clear the attrib nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
844 ora <updtat add in the attrib nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
845 sta <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
846 clr <fixat |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
847 revchk tst <fixrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
848 beq tychk |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
849 lda <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
850 anda #$F0 leave at nibble alone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
851 ora <updtrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
852 sta <modatrev |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
853 clr <fixrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
854 tychk tst <fixty |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
855 beq langchk |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
856 lda <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
857 anda #$0F clear out the type |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
858 ora <updtty |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
859 sta <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
860 clr <fixty |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
861 langchk tst <fixla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
862 beq chkdtsz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
863 lda <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
864 anda #$F0 leave upper nibble alone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
865 ora <updtla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
866 sta <typelang |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
867 clr <fixla |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
868 chkdtsz ldd <updtdtsz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
869 cmpd #$0000 anything there? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
870 beq psetpar |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
871 ldd <pdatasz1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
872 addd <updtdtsz we're not saveing the carry folks! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
873 std <pdatasz1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
874 clra |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
875 clrb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
876 std <updtdtsz to make it one time only! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
877 psetpar lda #$FF pset parity accumulator |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
878 ldb #$08 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
879 leax modid1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
880 headchk eora ,x+ and check the checksum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
881 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
882 bne headchk |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
883 cmpa ,x s/b equal |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
884 beq fxittst go see if data needs updt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
885 pshs a,x else save a few things |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
886 leax badmsg,pcr show its bad |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
887 ldy #badsiz-badmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
888 lbsr showit ' (bad)' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
889 puls a,x a had correct parity |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
890 sta ,x else fix in memory |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
891 stx <numptr point at it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
892 leax shdabeen,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
893 ldy #badmsg-shdabeen |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
894 lbsr showit ' S/B $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
895 ldb #$01 only one byte to convert |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
896 lbsr printit numptr already has src |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
897 fxittst lda <updthead either will trigger fix |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
898 adda <fixit if neither one is on, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
899 beq okmsg leave it alone |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
900 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
901 ******************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
902 * enableing the files fix, its now good in memory |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
903 pshs u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
904 ldx <modhstrt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
905 ldu <modlstrt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
906 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
907 os9 I$Seek back up to $87CD bytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
908 puls u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
909 leax modid1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
910 ldy #$0D bytes to write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
911 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
912 os9 I$Write insert ty/la at/rv,parity,exec,pdatasz in file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
913 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
914 lbsr seekmod to restore the file pointer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
915 leax fixxmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
916 ldy #newln-fixxmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
917 lbsr showit ' Repaired to $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
918 leax checksum,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
919 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
920 ldb #$01 numptr already set |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
921 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
922 okmsg leax gdmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
923 ldy #gdsiz-gdmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
924 lbsr newlnfd ' (Good)\n' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
925 lbsr seekmod to reset file ptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
926 headout leax modlnmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
927 ldy #crcmsg-modlnmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
928 lbsr showit 'Module size : $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
929 leax modlen,u point to size in header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
930 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
931 ldb #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
932 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
933 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
934 lbsr newlnfd finish this up |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
935 leax vertion,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
936 ldy #tplgatrv-vertion |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
937 lbsr showit 'Edition : $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
938 leax mdlname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
939 fndend lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
940 cmpa #$0D |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
941 bne fndend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
942 stx <numptr is -> at edition now |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
943 ldb #$01 one hex byte only |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
944 lbsr printit show it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
945 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
946 ldy #hdgdsiz-newln |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
947 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
948 leax tplgatrv,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
949 ldy #typelook-tplgatrv |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
950 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
951 leax typelang,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
952 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
953 ldb #$01 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
954 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
955 ldx <linptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
956 lda #$20 space it out for the |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
957 sta ,x+ following atrev byte |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
958 sta ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
959 sta ,x+ 3 spaces |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
960 lda #'$ and a $ sign |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
961 sta ,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
962 ldx <linptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
963 ldy #$04 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
964 lbsr showit show ' $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
965 ldb #$01 the prev call inc'ed numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
966 lbsr printit to the atrv byte! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
967 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
968 ldy #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
969 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
970 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
971 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
972 ************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
973 * CHKCRC of module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
974 * when called, it expects to see the $800FE3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
975 * (seed polynomial) in the crc accumulator |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
976 chkcrc pshs x save ptr to modules crc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
977 leax crcmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
978 ldy #crcmsiz-crcmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
979 lbsr showit Modules CRC is: $ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
980 puls x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
981 * Now, x still points at the modules crc bytes! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
982 * so we don't need a seperate number buffer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
983 pshs x we need it later |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
984 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
985 ldb #$03 three bytes to display |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
986 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
987 puls x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
988 ldd <crcacc now do the check |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
989 cmpd #$800F first two bytes |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
990 bne badcrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
991 lda <crcac3 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
992 cmpa #$E3 third |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
993 bne badcrc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
994 pshs x save it again |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
995 crcdun leax gdmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
996 ldy #gdsiz-gdmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
997 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
998 leax newln,pcr extra linefeed |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
999 ldy #$02 to seperate reports |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1000 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1001 clr <updthead stop this silliness |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1002 puls x fergot it once, major crash! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1003 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1004 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1005 ************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1006 * BADCRC - display results, check for |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1007 * fixit orders and fixit if told |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1008 badcrc pshs x save that pointer! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1009 leax badmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1010 ldy #badsiz-badmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1011 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1012 leax shdabeen,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1013 ldy #badmsg-shdabeen |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1014 lbsr showit Write ' S/B $' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1015 leax filecrc1,u show actual crc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1016 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1017 ldb #$03 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1018 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1019 lda <fixit is valid whole file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1020 adda <updthead one module only |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1021 beq crcdun wasn't told to fix it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1022 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1023 ********* enabling the fix ********** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1024 fixenbl leax seekls16,u we're gonna write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1025 ldd ,x to the file, seek to |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1026 subd #$03 crc start again |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1027 std ,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1028 bcc msigok |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1029 ldx <seekms16 if borrow, dec hi int |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1030 leax -1,x of addrress |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1031 stx <seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1032 msigok lbsr seekmod |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1033 leax filecrc1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1034 stx <numptr for later printout |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1035 ldy #$03 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1036 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1037 os9 I$Write and update the file! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1038 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1039 leax fixxmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1040 ldy #newln-fixxmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1041 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1042 ldy #$03 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1043 leax seekms16,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1044 bsr addseek to restore file ptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1045 ldb #$03 digits to print |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1046 lbsr printit numptr already set |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1047 clr <updthead to stop it at one module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1048 lbra crcdun go clean up end of crc display |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1049 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1050 ************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1051 * ADDSECT - add reg.Y to length of module & file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1052 * ENTRY Y bytes to add to present file size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1053 * X location of 4 byte accumulator (seekms16,u) |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1054 addsect pshs y first inc modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1055 ldd <modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1056 addd ,s++ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1057 std <modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1058 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1059 * and fall thru to ---- ADDSEEK |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1060 * ENTRY Y bytes to add to position in file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1061 * EXIT updated seekms16-seekls16 accumulator |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1062 addseek pshs x save present buffer addr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1063 pshs y updt passed file/seek pos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1064 leax seekms16,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1065 ldd 2,x seekls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1066 addd ,s++ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1067 std 2,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1068 bcc addout |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1069 ldd ,x seekms16 works but cumbersome |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1070 adcb #$00 methodology |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1071 std ,x seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1072 bcc addout |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1073 adca #$00 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1074 std ,x seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1075 addout puls x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1076 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1077 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1078 *************************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1079 * SETHEAD - we've found an $87CD, reset modlstrt and |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1080 * modhstrt to offset 0000 of module for name finding |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1081 * also potential bugfixing. The previous usage of the |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1082 * leau -9,u didn't set a borrow if it occurred. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1083 * This method does. Returning just to call getname |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1084 * was extra code, so now it falls thru since all we |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1085 * were doing is giving getname an anchor point. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1086 sethead ldd <seekls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1087 ldx <seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1088 subd <modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1089 std <modlstrt record starting pos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1090 bcc noborw |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1091 leax -1,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1092 noborw stx <modhstrt so we can recover |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1093 * and fall thru to getname |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1094 getname ldd <modlstrt our reference location |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1095 pshs d this pshs and ,s++ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1096 ldd <modname cancel |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1097 addd ,s++ each other |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1098 std <seekls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1099 bcc nocari |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1100 leax 1,x add carry to hi int |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1101 nocari stx <seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1102 getit bsr seekmod |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1103 leax mdlname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1104 gtbyt lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1105 ldy #$01 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1106 os9 I$Read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1107 ldb ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1108 bpl gtbyt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1109 andb #$7F cancel set msb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1110 stb -1,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1111 ldb #$0d add a cr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1112 stb ,x+ to stop writln |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1113 lda <inpath and get edition byte! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1114 ldy #$01 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1115 os9 I$Read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1116 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1117 ***** Edition 16 addition ******************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1118 * NAMECMP - controls middle of file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1119 * fixit by name function |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1120 * Entry: nz in "fixname" |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1121 * module name in "cmpname" |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1122 * Exit: nz in updthead, zero in fixname if match |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1123 * match is toupper of input name and saved name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1124 * till cr matches zero of saved name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1125 * by zeroing fixname, once done, don't waste |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1126 * more time by continuing to look at following mods |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1127 namecmp tst <fixname if a name, it won't be zero |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1128 beq noname don't have a name to look for |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1129 pshs y save it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1130 leay cmpname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1131 leax mdlname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1132 namecmp1 lda ,x+ get modules name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1133 cmpa #$0D till the cr we stashed |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1134 beq chkmatch |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1135 cmpa #'9 this might not be the right cmp! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1136 bls nocaseup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1137 anda #$DF make upcase |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1138 nocaseup cmpa ,y+ against upcased saved name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1139 bne nomatch ifne, no match found here |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1140 bra namecmp1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1141 chkmatch tst ,y ifeq, was end of saved name! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1142 bne nomatch |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1143 inc <updthead |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1144 clr <fixname zero the snooper flag |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1145 nomatch puls y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1146 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1147 * continue on with the previous code |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1148 noname ldx <modhstrt now restore file ptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1149 ldd <modlstrt to byte after parity |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1150 pshs d in header |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1151 ldd <modpos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1152 addd ,s++ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1153 std <seekls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1154 bcc ncri |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1155 leax 1,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1156 ncri stx <seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1157 * and fall through to SEEKMOD |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1158 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1159 ************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1160 * SEEKMOD - positions file r/w pointer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1161 * Entry = valid pathnum in inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1162 * presumes valid size in seekls16,seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1163 seekmod lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1164 pshs u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1165 ldx <seekms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1166 ldu <seekls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1167 os9 I$Seek |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1168 puls u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1169 bcs oops |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1170 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1171 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1172 ************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1173 * READABYT get one byte from the file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1174 readabyt lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1175 ldy #1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1176 leax buffer,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1177 os9 I$Read |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1178 bcs oops |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1179 pshs x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1180 leax seekms16,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1181 lbsr addseek add y to file position |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1182 readout puls x but not to modpos just yet! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1183 tst <kernal saving it all? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1184 beq readrts no, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1185 pshs b,x else save in 64 byte buffer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1186 leax krnlbuf,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1187 ldb <kbptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1188 leax b,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1189 lda buffer,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1190 sta ,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1191 incb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1192 stb <kbptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1193 cmpb #buffer-krnlbuf |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1194 lbeq helpnbf |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1195 puls b,x and restore |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1196 readrts rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1197 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1198 oops cmpb #E$EOF |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1199 lbeq cleanup |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1200 lbra help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1201 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1202 *************************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1203 * GETSIZ - function to get overall size of the file |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1204 * ENTRY valid pathum in 'inpath' |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1205 getsiz pshs u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1206 lda <inpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1207 ldb #SS.Size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1208 os9 I$Getstt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1209 bcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1210 stx <flenms16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1211 stu <flenls16 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1212 leax flenmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1213 ldy #howmany-flenmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1214 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1215 skppr20 puls u it needs U restored |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1216 leax flenms16,u so this works |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1217 stx <numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1218 ldb #$04 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1219 bsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1220 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1221 ldy #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1222 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1223 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1224 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1225 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1226 ************************************ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1227 * PRINTIT - a front end for hextoasc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1228 * ENTRY: address of src data in numptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1229 * regs.B=number of bytes to convert |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1230 printit pshs d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1231 leax linbuff,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1232 pshs x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1233 stx <linptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1234 tfr b,a save # to print |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1235 lsla dbl it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1236 pshs a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1237 clr ,-s so we can puls y later |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1238 bsr hextoasc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1239 puls y get y back |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1240 puls x and linebuff-> |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1241 lbsr showit display the number |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1242 puls d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1243 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1244 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1245 ********************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1246 * HEXTOASC - routine to print hex numbers |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1247 * ENTRY regs.b:#of chars to print, |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1248 * variable location numptr set to src of data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1249 * variable location linptr someplace in linbuff |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1250 hextoasc ldx <numptr defined in host routine |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1251 lda ,x+ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1252 stx <numptr save new ptr to next byte |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1253 pshs b save your counter |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1254 bsr hxbtoasc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1255 ldx <linptr also defined in host routine |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1256 std ,x++ |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1257 stx <linptr save new pos in output buffer |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1258 puls b |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1259 decb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1260 bne hextoasc till hex num all converted! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1261 rts and go print it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1262 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1263 ************************************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1264 * routine written up in the Rainbow (11/92) by Tim Kientzle. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1265 * It will convert the value passed in the A register to a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1266 * pair of ascii characters in A:B which are the directly |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1267 * printable ASCII representations of the original contents |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1268 * of A. Load A with byte of src num, call, store A nd B in |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1269 * order in the print buffer on return. Neat routine Tim! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1270 * I shrank it by 4 lines & 6 bytes though (GH). |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1271 hxbtoasc tfr a,b Make copy of a |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1272 anda #$0F mask off lower digit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1273 bsr nbltoasc |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1274 exg a,b stash in b, get a back |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1275 lsra getting high nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1276 lsra into position to |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1277 lsra convert it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1278 lsra |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1279 nbltoasc adda #$90 repeat for high nibble |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1280 daa generate carry if a>9 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1281 adca #$40 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1282 daa |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1283 rts returns a:b=two hexidecimal characters |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1284 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1285 wphlp comb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1286 ldb #$D6 no permission to write to it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1287 bra help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1288 helpnbf comb |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1289 ldb #$BF E$BufferToDamnSmall! |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1290 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1291 *********************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1292 * HELP an error exit with prompting |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1293 * Entry error in B,carry set |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1294 help pshs b,cc save stats for exit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1295 inc <verbose make sure the msg gets out |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1296 leax helpmsg,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1297 ldy #msgsiz-helpmsg |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1298 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1299 puls b,cc recover error |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1300 out os9 F$Exit and report the error |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1301 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1302 ************************************* |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1303 * OPENOUT - opens path for std module |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1304 * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1305 openout lda #READ.+WRITE. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1306 ldb #READ.+WRITE. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1307 leax mdlname,u point at name |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1308 os9 I$Create and attempt to make it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1309 bcc outhead made it ok, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1310 cmpb #218 oops, what error |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1311 bne help nope, not already exist, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1312 lda #READ.+WRITE. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1313 leax mdlname,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1314 os9 I$Open |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1315 bcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1316 outhead sta <outpath save pathnum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1317 leax modid1,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1318 ldy #14 write (repaired) module header w/exec & datsiz |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1319 os9 I$Write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1320 bcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1321 rts thats all for now, folks |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1322 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1323 ***************************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1324 * OPENKERN - to open extra bytes files |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1325 * pretty much self-contained |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1326 openkern pshs cc,a,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1327 lda <kernal |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1328 beq kerrts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1329 cmpa #$30 head or tail? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1330 bne opentail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1331 leax advise0,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1332 ldy #krnlhsz-advise0-1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1333 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1334 ldb <kbptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1335 bls kerrts if zero or less, go |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1336 leax kernal0,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1337 kopen lda #UPDAT. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1338 ldb #UPDAT. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1339 os9 I$Create |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1340 bcc kcont |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1341 cmpb #218 if exists, its ok |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1342 bne help else go yelp |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1343 bcc kopen1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1344 comb to clear that damned error |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1345 kopen1 ldb #UPDAT. |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1346 os9 I$Open |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1347 bcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1348 kcont sta <kpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1349 krts inc <kernal we been here, tally it |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1350 kerrts puls cc,a,x |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1351 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1352 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1353 opentail bcc opntail |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1354 comb carry set? |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1355 opntail cmpa #$31 skip boot, os9p1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1356 bne krts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1357 leax advise1,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1358 ldy #krnltsz-advise1-1 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1359 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1360 leax kernal1,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1361 bra kopen |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1362 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1363 *********************************** |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1364 * CLSKRNL - write & close extras |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1365 * valid size in kbptrms*256+kbptr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1366 clskrnl pshs d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1367 tst <kernal |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1368 beq clsoops shouldn't 'av come here |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1369 lda <kpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1370 ldy <kbptrms size to write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1371 leax krnlbuf,u saved data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1372 os9 I$Write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1373 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1374 lda <kpath |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1375 ldb #$05 get file pos |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1376 pshs x,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1377 os9 I$GetStt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1378 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1379 ldb #$02 set as new size |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1380 os9 I$SetStt |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1381 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1382 stu <kbptrms |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1383 puls x,u |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1384 os9 I$Close |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1385 lbcs help |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1386 leax kbptrms,u point at filesize data |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1387 stx <numptr save the filesize |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1388 leax advlen,pcr now point at "with a size of $" |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1389 ldy #advend-advlen get length to write |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1390 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1391 ldb #$02 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1392 lbsr printit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1393 leax advend,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1394 ldy #hednamsg-advend |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1395 lbsr showit |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1396 leax newln,pcr |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1397 ldy #2 |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1398 lbsr newlnfd |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1399 clr <kpath kill pathnum |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1400 clr <kbptr reset |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1401 clr <kbptrms |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1402 clsoops puls d,x,y |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1403 rts |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1404 emod |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1405 len equ * |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1406 end |
2e740da2088e
3rdparty/utils: Add disk with Gene's bootlink and vfy utilities
Tormod Volden <debian.tormod@gmail.com>
parents:
diff
changeset
|
1407 |