annotate 3rdparty/utils/gene/vfy.asm @ 3087:a938d0f26711

Removed unnecessary b.asm file
author boisy@tee-boy.com
date Sat, 03 Oct 2015 14:51:30 -0500
parents 2e740da2088e
children
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