|
0
|
1 ********************************************************************
|
|
|
2 * Verify - Verify a module's CRC
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 Original Tandy distribution version
|
|
|
9
|
|
|
10 nam Verify
|
|
|
11 ttl Verify a module's CRC
|
|
|
12
|
|
|
13 * Disassembled 98/09/15 00:03:43 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 5
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 1
|
|
|
27 u0001 rmb 1
|
|
|
28 u0002 rmb 1
|
|
|
29 u0003 rmb 2
|
|
|
30 u0005 rmb 1
|
|
|
31 u0006 rmb 2
|
|
|
32 u0008 rmb 2
|
|
|
33 u000A rmb 57
|
|
|
34 u0043 rmb 195
|
|
|
35 u0106 rmb 1000
|
|
|
36 size equ .
|
|
|
37
|
|
|
38 name fcs /Verify/
|
|
|
39 fcb edition
|
|
|
40
|
|
|
41 start leas >u0106,u
|
|
|
42 sts <u0006
|
|
|
43 tfr y,d
|
|
|
44 subd <u0006
|
|
|
45 std <u0008
|
|
|
46 clr <u0005
|
|
|
47 L0023 lda ,x+
|
|
|
48 cmpa #$20
|
|
|
49 beq L0023
|
|
|
50 anda #$5F
|
|
|
51 cmpa #$55
|
|
|
52 bne L0031
|
|
|
53 inc <u0005
|
|
|
54 L0031 ldd #$0009
|
|
|
55 std <u0003
|
|
|
56 lbsr L00F6
|
|
|
57 bcs L004D
|
|
|
58 cmpy #$0009
|
|
|
59 bne L0055
|
|
|
60 ldd ,x
|
|
|
61 cmpd #$87CD
|
|
|
62 bne L0055
|
|
|
63 bsr L0059
|
|
|
64 bra L0031
|
|
|
65 L004D cmpb #$D3
|
|
|
66 bne L0052
|
|
|
67 clrb
|
|
|
68 L0052 os9 F$Exit
|
|
|
69 L0055 ldb #$CD
|
|
|
70 bra L0052
|
|
|
71 L0059 clrb
|
|
|
72 lda #$08
|
|
|
73 L005C eorb ,x+
|
|
|
74 deca
|
|
|
75 bne L005C
|
|
|
76 lda <u0005
|
|
|
77 bne L0079
|
|
|
78 eorb ,x
|
|
|
79 incb
|
|
|
80 beq L0070
|
|
|
81 leax >L012F,pcr
|
|
|
82 bra L0074
|
|
|
83 L0070 leax >L0115,pcr
|
|
|
84 L0074 lbsr L010B
|
|
|
85 bra L007C
|
|
|
86 L0079 comb
|
|
|
87 stb ,x
|
|
|
88 L007C ldx <u0006
|
|
|
89 ldy $02,x
|
|
|
90 leay -$03,y
|
|
|
91 sty <u0003
|
|
|
92 ldd #$FFFF
|
|
|
93 std <u0000
|
|
|
94 stb <u0002
|
|
|
95 bsr L00D6
|
|
|
96 lda <u0005
|
|
|
97 bne L00B6
|
|
|
98 ldd #$0003
|
|
|
99 std <u0003
|
|
|
100 bsr L00D6
|
|
|
101 lda <u0000
|
|
|
102 cmpa #$80
|
|
|
103 bne L00A8
|
|
|
104 ldd <u0001
|
|
|
105 cmpd #$0FE3
|
|
|
106 beq L00AE
|
|
|
107 L00A8 leax >L015C,pcr
|
|
|
108 bra L00B2
|
|
|
109 L00AE leax >L014C,pcr
|
|
|
110 L00B2 bsr L010B
|
|
|
111 bra L00CF
|
|
|
112 L00B6 com <u0000
|
|
|
113 com <u0001
|
|
|
114 com <u0002
|
|
|
115 lda #$01
|
|
|
116 leax ,u
|
|
|
117 ldy #$0003
|
|
|
118 os9 I$Write
|
|
|
119 bcs L0052
|
|
|
120 clra
|
|
|
121 os9 I$Read
|
|
|
122 bcs L0052
|
|
|
123 L00CF rts
|
|
|
124 L00D0 bsr L00F6
|
|
|
125 lbcs L0052
|
|
|
126 L00D6 ldy <u000A
|
|
|
127 beq L00D0
|
|
|
128 os9 F$CRC
|
|
|
129 lda <u0005
|
|
|
130 beq L00EB
|
|
|
131 lda #$01
|
|
|
132 os9 I$Write
|
|
|
133 lbcs L0052
|
|
|
134 L00EB ldd <u0003
|
|
|
135 subd <u000A
|
|
|
136 std <u0003
|
|
|
137 bne L00D0
|
|
|
138 std <u000A
|
|
|
139 rts
|
|
|
140 L00F6 clra
|
|
|
141 ldx <u0006
|
|
|
142 ldy <u0008
|
|
|
143 cmpy <u0003
|
|
|
144 bls L0104
|
|
|
145 ldy <u0003
|
|
|
146 L0104 os9 I$Read
|
|
|
147 sty <u000A
|
|
|
148 rts
|
|
|
149 L010B lda #$02
|
|
|
150 ldy #$0050
|
|
|
151 os9 I$WritLn
|
|
|
152 rts
|
|
|
153 L0115 fcc "Header parity is correct."
|
|
|
154 fcb C$CR
|
|
|
155 L012F fcc "Header parity is INCORRECT !"
|
|
|
156 fcb C$CR
|
|
|
157 L014C fcc "CRC is correct."
|
|
|
158 fcb C$CR
|
|
|
159 L015C fcc "CRC is INCORRECT !"
|
|
|
160 fcb C$CR
|
|
|
161
|
|
|
162 emod
|
|
|
163 eom equ *
|
|
|
164 end
|
