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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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