Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/verify.asm @ 2898:28ed72477814 lwtools-port
Dummy merge of default branch into lwtools
hg -y merge --tool=internal:fail default
hg revert --all --no-backup --rev .
hg resolve -a -m
This dummy merge discards any changes from the default branch
so that the result is the same as what lwtools already had.
When merging back to default branch later, the discarded
changes will be discarded there also, so the result
will be that the default branch will contain what
the lwtools branch had before these merges.
Only scripts/burst was "rescued" from default branch.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sat, 11 Jan 2014 18:40:44 +0100 |
| parents | 84ea83668304 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Verify - Verify a module's CRC | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
6 * Edt/Rev YYYY/MM/DD Modified by |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
9 * 5 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
10 * From Tandy OS-9 Level One VR 02.00.00. |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
11 * |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
12 * 6 2003/01/18 Boisy G. Pitre |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
13 * Option modified to require dash in front. |
| 0 | 14 |
| 15 nam Verify | |
| 16 ttl Verify a module's CRC | |
| 17 | |
| 18 * Disassembled 98/09/15 00:03:43 by Disasm v1.6 (C) 1988 by RML | |
| 19 | |
| 20 ifp1 | |
| 21 use defsfile | |
| 22 endc | |
| 23 | |
| 24 tylg set Prgrm+Objct | |
| 25 atrv set ReEnt+rev | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
924
diff
changeset
|
26 rev set $00 |
| 908 | 27 edition set 6 |
| 0 | 28 |
| 29 mod eom,name,tylg,atrv,start,size | |
| 30 | |
| 924 | 31 org 0 |
| 908 | 32 crc1 rmb 1 |
| 33 crc2 rmb 1 | |
| 34 crc3 rmb 1 | |
| 35 readcnt rmb 2 | |
| 36 dovfy rmb 1 | |
| 37 bufptr rmb 2 | |
| 38 bufsiz rmb 2 | |
| 39 bytesrd rmb 57 | |
| 0 | 40 u0043 rmb 195 |
| 908 | 41 buffer rmb 1000 |
| 0 | 42 size equ . |
| 43 | |
| 44 name fcs /Verify/ | |
| 45 fcb edition | |
| 46 | |
| 908 | 47 start leas >buffer,u point S to buffer |
| 48 sts <bufptr save pointer to buffer | |
| 49 tfr y,d transfer end of our mem to D | |
| 50 subd <bufptr subtract bufptr address | |
| 51 std <bufsiz | |
| 52 clr <dovfy | |
| 53 L0023 ldd ,x+ get two chars | |
| 54 cmpa #C$SPAC space? | |
| 55 beq L0023 branch if so | |
| 56 andb #$5F make uppercase | |
| 57 cmpd #$2D55 -U ? | |
| 0 | 58 bne L0031 |
| 908 | 59 inc <dovfy we will do verify |
| 60 L0031 ldd #M$IDSize get module id size | |
| 61 std <readcnt save read count | |
| 62 lbsr DoRead | |
| 0 | 63 bcs L004D |
| 908 | 64 cmpy #M$IDSize |
| 65 bne BadMod | |
| 66 ldd ,x get first two bytes | |
| 67 cmpd #M$ID12 OS-9 module sync bytes? | |
| 68 bne BadMod branch if not | |
| 69 bsr DoCRCChk check header parity | |
| 0 | 70 bra L0031 |
| 908 | 71 L004D cmpb #E$EOF end of file error? |
| 72 bne Exit branch if not | |
| 73 clrb else clear carry | |
| 74 Exit os9 F$Exit and exit | |
| 75 | |
| 76 BadMod ldb #E$BMID | |
| 77 bra Exit | |
| 78 | |
| 79 * Here is where we check the module | |
| 80 DoCRCChk clrb | |
| 81 * First we will check the header parity | |
| 82 lda #M$Parity | |
| 0 | 83 L005C eorb ,x+ |
| 84 deca | |
| 85 bne L005C | |
| 908 | 86 lda <dovfy get verify flag |
| 87 bne UpdtHdrP branch if we must do verify | |
| 0 | 88 eorb ,x |
| 89 incb | |
| 90 beq L0070 | |
| 908 | 91 leax >HdrBad,pcr |
| 0 | 92 bra L0074 |
| 908 | 93 L0070 leax >HdrGood,pcr |
| 94 L0074 lbsr WriteLn | |
| 0 | 95 bra L007C |
| 908 | 96 UpdtHdrP comb |
| 0 | 97 stb ,x |
| 908 | 98 L007C ldx <bufptr |
| 0 | 99 ldy $02,x |
| 100 leay -$03,y | |
| 908 | 101 sty <readcnt |
| 0 | 102 ldd #$FFFF |
| 908 | 103 std <crc1 |
| 104 stb <crc3 | |
| 0 | 105 bsr L00D6 |
| 908 | 106 lda <dovfy |
| 107 bne UpdtCRC | |
| 0 | 108 ldd #$0003 |
| 908 | 109 std <readcnt |
| 0 | 110 bsr L00D6 |
| 908 | 111 lda <crc1 |
| 112 cmpa #CRCCon1 | |
| 0 | 113 bne L00A8 |
| 908 | 114 ldd <crc2 |
| 115 cmpd #CRCCon23 | |
| 0 | 116 beq L00AE |
| 908 | 117 L00A8 leax >CRCBad,pcr |
| 0 | 118 bra L00B2 |
| 908 | 119 L00AE leax >CRCGood,pcr |
| 120 L00B2 bsr WriteLn | |
| 0 | 121 bra L00CF |
| 908 | 122 UpdtCRC com <crc1 |
| 123 com <crc2 | |
| 124 com <crc3 | |
| 125 lda #$01 to standard out | |
| 126 leax ,u point to CRCs | |
| 127 ldy #$0003 3 bytes | |
| 128 os9 I$Write write it out | |
| 129 bcs Exit branch if error | |
| 0 | 130 clra |
| 131 os9 I$Read | |
| 908 | 132 bcs Exit |
| 0 | 133 L00CF rts |
| 908 | 134 L00D0 bsr DoRead |
| 135 lbcs Exit | |
| 136 L00D6 ldy <bytesrd | |
| 0 | 137 beq L00D0 |
| 138 os9 F$CRC | |
| 908 | 139 lda <dovfy |
| 0 | 140 beq L00EB |
| 908 | 141 lda #$01 standard output |
| 142 os9 I$Write write it | |
| 143 lbcs Exit branch if error | |
| 144 L00EB ldd <readcnt | |
| 145 subd <bytesrd | |
| 146 std <readcnt | |
| 0 | 147 bne L00D0 |
| 908 | 148 std <bytesrd |
| 0 | 149 rts |
| 908 | 150 |
| 151 DoRead clra | |
| 152 ldx <bufptr get buffer pointer | |
| 153 ldy <bufsiz get buffer size | |
| 154 cmpy <readcnt compare against read count | |
| 155 bls ExecRead if lower, use bufsiz | |
| 156 ldy <readcnt else read count | |
| 157 ExecRead os9 I$Read read data | |
| 158 sty <bytesrd save read count | |
| 0 | 159 rts |
| 908 | 160 |
| 161 WriteLn lda #$02 | |
| 162 ldy #80 | |
| 0 | 163 os9 I$WritLn |
| 164 rts | |
| 908 | 165 |
| 166 HdrGood fcc "Header parity is correct." | |
| 0 | 167 fcb C$CR |
| 908 | 168 |
| 169 HdrBad fcc "Header parity is INCORRECT !" | |
| 0 | 170 fcb C$CR |
| 908 | 171 |
| 172 CRCGood fcc "CRC is correct." | |
| 0 | 173 fcb C$CR |
| 908 | 174 |
| 175 CRCBad fcc "CRC is INCORRECT !" | |
| 0 | 176 fcb C$CR |
| 177 | |
| 178 emod | |
| 179 eom equ * | |
| 180 end |