Mercurial > hg > Members > kono > nitros9-code
annotate 3rdparty/utils/gene/vfy.asm @ 3215:195c09cade21
Updated MMC Driver makefile so it will have place holders for
dsk, dskclean, and dskcopy so that make does not error out when
chaining into the driver tree to build disk images where applicable.
author | David Ladd <drencor-xeen@users.sourceforge.net> |
---|---|
date | Wed, 20 Dec 2017 16:07:36 -0600 |
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 |