Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/ident.asm @ 2879:531841047512 lwtools-port
boot_scsi.asm: Fix SCSI ID when booting from SCSI
Due to a typo it would probe for SCSI ID 4 instead
of default 0 (or 8 for HDBDOS/SuperDriver).
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 24 Nov 2013 16:08:53 +0100 |
| parents | 68405e756277 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Ident - Show module information | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1110
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:
1110
diff
changeset
|
7 * Comment |
| 0 | 8 * ------------------------------------------------------------------ |
|
1325
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1110
diff
changeset
|
9 * 7 ????/??/?? |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1110
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:
1110
diff
changeset
|
11 * |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1110
diff
changeset
|
12 * 8 2003/04/11 Boisy G. Pitre |
|
84ea83668304
Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents:
1110
diff
changeset
|
13 * Now reports modules with a lang of Obj6309. |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
14 * |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
15 * 8r1 2005/03/07 Boisy G. Pitre |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
16 * Fixed so that an unsupported language shows ???? |
| 0 | 17 |
| 18 nam Ident | |
| 19 ttl Show module information | |
| 20 | |
| 21 * Disassembled 98/09/20 15:54:44 by Disasm v1.6 (C) 1988 by RML | |
| 22 | |
| 23 ifp1 | |
| 24 use defsfile | |
| 25 endc | |
| 26 | |
|
921
617c1b90e623
Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents:
845
diff
changeset
|
27 DOHELP set 0 |
| 845 | 28 |
| 0 | 29 tylg set Prgrm+Objct |
| 30 atrv set ReEnt+rev | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
31 rev set $01 |
|
1110
a0381320f4b1
Ident now reports modules with a language byte of Obj6309
boisy
parents:
924
diff
changeset
|
32 edition set 8 |
| 0 | 33 |
| 34 mod eom,name,tylg,atrv,start,size | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
28
diff
changeset
|
35 |
| 924 | 36 org 0 |
| 0 | 37 u0000 rmb 1 |
| 38 u0001 rmb 1 | |
| 39 u0002 rmb 1 | |
| 40 u0003 rmb 1 | |
| 41 u0004 rmb 2 | |
| 42 u0006 rmb 2 | |
| 43 u0008 rmb 2 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
44 dolink rmb 1 |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
45 short rmb 1 |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
46 modvfy rmb 1 |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
47 fperm rmb 1 |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
48 modptr rmb 2 |
| 0 | 49 u0010 rmb 2 |
| 50 u0012 rmb 1 | |
| 51 u0013 rmb 1 | |
| 52 u0014 rmb 1 | |
| 53 u0015 rmb 1 | |
| 54 u0016 rmb 1 | |
| 55 u0017 rmb 1 | |
| 56 u0018 rmb 1 | |
| 28 | 57 path rmb 1 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
58 mtype rmb 1 |
| 0 | 59 u001B rmb 1 |
| 60 u001C rmb 2 | |
| 61 u001E rmb 2 | |
| 62 u0020 rmb 2 | |
| 63 u0022 rmb 66 | |
| 64 u0064 rmb 14 | |
| 65 u0072 rmb 14 | |
| 66 u0080 rmb 33 | |
| 67 u00A1 rmb 71 | |
| 68 u00E8 rmb 180 | |
| 69 u019C rmb 2048 | |
| 70 size equ . | |
| 71 | |
| 72 name fcs /Ident/ | |
| 73 fcb edition | |
| 74 | |
| 845 | 75 IFNE DOHELP |
| 76 HelpMsg fcb C$LF | |
| 77 fcc "Use: Ident [-opts] <path> [-opts]" | |
| 28 | 78 fcb C$LF |
| 845 | 79 fcc " -m = module in memory" |
| 28 | 80 fcb C$LF |
| 845 | 81 fcc " -s = short form" |
| 82 fcb C$LF | |
| 83 fcc " -v = don't verify CRC" | |
| 28 | 84 fcb C$LF |
| 845 | 85 fcc " -x = file in exec dir" |
| 28 | 86 fcb C$CR |
| 845 | 87 ENDC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
88 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
89 M_MInc fcs "Module header is incorrect!" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
90 M_Hdr fcs "Header for: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
91 M_MSiz fcs "Module size:" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
92 M_MCRC fcs "Module CRC: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
93 M_HdrP fcs "Hdr parity: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
94 M_ExOff fcs "Exec. off: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
95 M_DatSz fcs "Data Size: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
96 M_TLAR fcs "Ty/La At/Rv:" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
97 M_Edtn fcs "Edition: " |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
98 M_Mod fcs "mod," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
99 M_ReEn fcs "re-en," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
100 M_NonShr fcs "non-shr," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
101 M_RO fcs "R/O" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
102 M_RW fcs "R/W" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
103 M_Good fcs "(Good)" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
104 M_Bad fcc "(Bad)" |
| 28 | 105 fcb $80+C$BELL |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
106 |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
107 TypeTbl fcb T_BAD-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
108 fcb T_PR-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
109 fcb T_SU-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
110 fcb T_MU-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
111 fcb T_DA-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
112 fcb T_U5-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
113 fcb T_U6-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
114 fcb T_U7-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
115 fcb T_U8-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
116 fcb T_U9-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
117 fcb T_UA-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
118 fcb T_UB-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
119 fcb T_SY-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
120 fcb T_FM-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
121 fcb T_DRV-TypeTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
122 fcb T_DSC-TypeTbl |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
123 T_BAD fcs "bad type for" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
124 T_PR fcs "Prog" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
125 T_SU fcs "Subr" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
126 T_MU fcs "Multi" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
127 T_DA fcs "Data" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
128 T_U5 fcs "Usr 5" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
129 T_U6 fcs "Usr 6" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
130 T_U7 fcs "Usr 7" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
131 T_U8 fcs "Usr 8" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
132 T_U9 fcs "Usr 9" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
133 T_UA fcs "Usr A" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
134 T_UB fcs "Usr B" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
135 T_SY fcs "System" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
136 T_FM fcs "File Man" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
137 T_DRV fcs "Dev Dvr" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
138 T_DSC fcs "Dev Dsc" |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
139 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
140 LangTbl fcb L_DA-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
141 fcb L_68-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
142 fcb L_B09-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
143 fcb L_PSC-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
144 fcb L_C-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
145 fcb L_COB-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
146 fcb L_FOR-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
147 fcb L_63-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
148 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
149 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
150 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
151 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
152 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
153 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
154 fcb L_BAD-LangTbl |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
155 fcb L_BAD-LangTbl |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
156 L_DA fcs "Data," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
157 L_68 fcs "6809 obj," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
158 L_B09 fcs "BASIC09 I-code," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
159 L_PSC fcs "PASCAL P-code," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
160 L_C fcs "C I-code," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
161 L_COB fcs "COBOL I-code," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
162 L_FOR fcs "FORTRAN I-code," |
|
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
163 L_63 fcs "6309 obj," |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
164 L_BAD fcs "????" |
| 28 | 165 |
| 166 start leas >u019C,u | |
| 0 | 167 sts <u0006 |
| 168 tfr y,d | |
| 169 subd <u0006 | |
| 170 std <u0008 | |
| 171 leay <u0022,u | |
| 172 sty <u0000 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
173 clr <dolink |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
174 clr <short |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
175 clr <modvfy |
| 0 | 176 clr <u0018 |
| 28 | 177 lda #READ. |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
178 sta <fperm |
| 0 | 179 ldd #$0000 |
| 180 std <u0002 | |
| 181 std <u0004 | |
| 182 L0263 lda ,x+ | |
| 28 | 183 L0265 cmpa #C$SPAC |
| 0 | 184 beq L0263 |
| 28 | 185 cmpa #C$COMA |
| 0 | 186 beq L0263 |
| 28 | 187 cmpa #C$CR |
| 0 | 188 beq L02BB |
| 28 | 189 cmpa #'- |
| 0 | 190 beq L027E |
| 191 ldy <u0002 | |
| 192 bne L0263 | |
| 193 stx <u0002 | |
| 194 bra L0263 | |
| 195 L027E lda ,x+ | |
| 28 | 196 cmpa #'- |
| 0 | 197 beq L027E |
| 28 | 198 cmpa #'0 |
| 0 | 199 bcs L0265 |
| 28 | 200 eora #'M |
| 0 | 201 anda #$DF |
| 202 bne L0292 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
203 inc <dolink |
| 0 | 204 bra L027E |
| 205 L0292 lda -$01,x | |
| 28 | 206 eora #'S |
| 0 | 207 anda #$DF |
| 208 bne L029E | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
209 inc <short |
| 0 | 210 bra L027E |
| 211 L029E lda -$01,x | |
| 28 | 212 eora #'V |
| 0 | 213 anda #$DF |
| 214 bne L02AA | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
215 inc <modvfy |
| 0 | 216 bra L027E |
| 217 L02AA lda -$01,x | |
| 28 | 218 eora #'X |
| 0 | 219 anda #$DF |
| 220 bne L02B8 | |
| 28 | 221 lda #EXEC.+READ. |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
222 sta <fperm |
| 0 | 223 bra L027E |
| 845 | 224 L02B8 lbra ShowHelp |
| 0 | 225 L02BB ldx <u0002 |
| 845 | 226 lbeq ShowHelp |
| 0 | 227 leax -$01,x |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
228 tst <dolink |
| 0 | 229 beq L0314 |
| 230 pshs u | |
| 231 clra | |
| 232 os9 F$Link | |
| 233 lbcs L03D2 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
234 stu <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
235 ldd M$ID,u |
| 28 | 236 cmpd #M$ID12 |
| 0 | 237 beq L02EB |
| 238 puls u | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
239 L02DD leay >M_MInc,pcr |
| 0 | 240 lbsr L05FC |
| 241 lbsr L0612 | |
| 242 clrb | |
| 243 lbra L03D2 | |
| 244 L02EB ldd u0002,u | |
| 245 subd #$0003 | |
| 246 leax d,u | |
| 247 puls u | |
| 248 leay <u0010,u | |
| 249 pshs u | |
| 250 lda #$03 | |
| 251 L02FB ldb ,x+ | |
| 252 stb ,y+ | |
| 253 deca | |
| 254 bne L02FB | |
| 255 puls u | |
| 256 lbsr L03D5 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
257 ldu <modptr |
| 0 | 258 os9 F$UnLink |
| 259 lbcs L03D2 | |
| 260 clrb | |
| 261 lbra L03D2 | |
| 262 L0314 lda #$80 | |
| 263 sta <u00A1 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
264 lda <fperm |
| 0 | 265 os9 I$Open |
| 266 lbcs L03D2 | |
| 28 | 267 sta <path |
| 0 | 268 ldd #$0000 |
| 269 std <u001E | |
| 270 std <u0020 | |
| 271 std <u001C | |
| 272 L032C ldd <u0020 | |
| 273 addd <u001C | |
| 274 std <u0020 | |
| 275 bcc L033B | |
| 276 ldd <u001E | |
| 277 addd #$0001 | |
| 278 std <u001E | |
| 279 L033B pshs u | |
| 280 ldx <u001E | |
| 281 ldu <u0020 | |
| 28 | 282 lda <path |
| 0 | 283 os9 I$Seek |
| 284 lbcs L03D2 | |
| 285 puls u | |
| 286 leax <u0072,u | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
287 stx <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
288 ldy #M$Port |
| 0 | 289 os9 I$Read |
| 290 bcc L0360 | |
| 28 | 291 cmpb #E$EOF |
| 0 | 292 bne L03D2 |
| 293 bra L03C1 | |
| 294 L0360 ldd ,x | |
| 28 | 295 cmpd #M$ID12 |
| 0 | 296 lbne L02DD |
| 297 pshs u,x | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
298 ldd M$Size,x |
| 0 | 299 std <u001C |
| 300 addd <u0020 | |
| 301 tfr d,u | |
| 302 leau -u0003,u | |
| 303 ldx <u001E | |
| 304 bcc L037C | |
| 305 leax $01,x | |
| 28 | 306 L037C lda <path |
| 0 | 307 os9 I$Seek |
| 308 bcs L03D2 | |
| 309 puls u,x | |
| 310 leax <u0010,u | |
| 311 ldy #$0003 | |
| 28 | 312 lda <path |
| 0 | 313 os9 I$Read |
| 314 bcs L03D2 | |
| 315 pshs u,x | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
316 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
317 ldd M$Name,y |
| 0 | 318 addd <u0020 |
| 319 tfr d,u | |
| 320 ldx <u001E | |
| 321 bcc L03A4 | |
| 322 leax $01,x | |
| 28 | 323 L03A4 lda <path |
| 0 | 324 os9 I$Seek |
| 325 bcs L03D2 | |
| 326 puls u,x | |
| 327 leax >u0080,u | |
| 328 ldy #$0021 | |
| 28 | 329 lda <path |
| 0 | 330 os9 I$Read |
| 331 bcs L03D2 | |
| 332 bsr L03D5 | |
| 333 lbra L032C | |
| 334 L03C1 clrb | |
| 335 bra L03D2 | |
| 845 | 336 ShowHelp equ * |
| 337 IFNE DOHELP | |
| 338 lda #$01 | |
| 339 leax >HelpMsg,pcr | |
| 0 | 340 ldy #$00BA |
| 341 os9 I$WritLn | |
| 845 | 342 ENDC |
| 0 | 343 clrb |
| 344 L03D2 os9 F$Exit | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
345 L03D5 tst <short |
| 0 | 346 lbne L0502 |
| 347 lbsr L0612 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
348 leay >M_Hdr,pcr |
| 0 | 349 lbsr L05FC |
| 350 lbsr L04E9 | |
| 351 lbsr L0612 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
352 leay >M_MSiz,pcr |
| 0 | 353 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
354 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
355 ldd M$Size,y |
| 0 | 356 lbsr L05D2 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
357 leay >M_MCRC,pcr |
| 0 | 358 lbsr L05FC |
| 359 lbsr L0543 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
360 tst <modvfy |
| 0 | 361 bne L041E |
| 362 lbsr L0553 | |
| 363 tsta | |
| 364 beq L0417 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
365 leay >M_Bad,pcr |
| 0 | 366 lbsr L05FC |
| 367 bra L041E | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
368 L0417 leay >M_Good,pcr |
| 0 | 369 lbsr L05FC |
| 370 L041E lbsr L0612 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
371 leay >M_HdrP,pcr |
| 0 | 372 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
373 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
374 ldb M$Parity,y |
| 0 | 375 lbsr L0633 |
| 376 lbsr L0612 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
377 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
378 ldb M$Type,y |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
379 stb <mtype |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
380 andb #TypeMask |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
381 cmpb #Drivr |
| 0 | 382 beq L0444 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
383 cmpb #Prgrm |
| 0 | 384 bne L0462 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
385 L0444 leay >M_ExOff,pcr |
| 0 | 386 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
387 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
388 ldd M$Exec,y |
| 0 | 389 lbsr L05D2 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
390 leay >M_DatSz,pcr |
| 0 | 391 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
392 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
393 ldd M$Mem,y |
| 0 | 394 lbsr L05D2 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
395 L0462 leay >M_Edtn,pcr |
| 0 | 396 lbsr L05FC |
| 397 ldb <u0016 | |
| 398 pshs b | |
| 399 lbsr L0633 | |
| 400 ldb #$05 | |
| 401 lbsr L0654 | |
| 402 puls b | |
| 403 clra | |
| 404 lbsr L0649 | |
| 405 lbsr L0612 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
406 leay >M_TLAR,pcr |
| 0 | 407 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
408 ldb <mtype |
| 0 | 409 lbsr L0633 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
410 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
411 ldb M$Revs,y |
| 0 | 412 stb <u001B |
| 413 lbsr L0633 | |
| 414 lbsr L0612 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
415 ldb <mtype |
| 0 | 416 lsrb |
| 417 lsrb | |
| 418 lsrb | |
| 419 lsrb | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
420 leax >TypeTbl,pcr |
| 0 | 421 lda b,x |
| 422 leay a,x | |
| 423 lbsr L05FC | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
424 leay >M_Mod,pcr |
| 0 | 425 lbsr L05FC |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
426 ldb <mtype |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
427 andb #LangMask |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
428 leax >LangTbl,pcr |
| 0 | 429 lda b,x |
| 430 leay a,x | |
| 431 lbsr L05FC | |
| 432 ldb <u001B | |
| 433 bitb #$80 | |
| 434 beq L04CD | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
435 leay >M_ReEn,pcr |
| 0 | 436 lbsr L05FC |
| 437 bra L04D4 | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
438 L04CD leay >M_NonShr,pcr |
| 0 | 439 lbsr L05FC |
| 440 L04D4 bitb #$40 | |
| 441 beq L04DE | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
442 leay >M_RW,pcr |
| 0 | 443 bra L04E2 |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
444 L04DE leay >M_RO,pcr |
| 0 | 445 L04E2 lbsr L05FC |
| 446 lbsr L0612 | |
| 447 rts | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
448 L04E9 tst <dolink |
| 0 | 449 beq L04F6 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
450 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
451 ldd M$Name,y |
| 0 | 452 leay d,y |
| 453 bra L04FA | |
| 454 L04F6 leay >u0080,u | |
| 455 L04FA lbsr L05FC | |
| 456 lda ,y | |
| 457 sta <u0016 | |
| 458 rts | |
| 459 L0502 ldb #$06 | |
| 460 lbsr L0654 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
461 ldy <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
462 ldb M$Type,y |
| 0 | 463 lbsr L0633 |
| 464 bsr L0543 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
465 tst <modvfy |
| 0 | 466 beq L0519 |
| 467 lda #$20 | |
| 468 bra L0520 | |
| 469 L0519 bsr L0553 | |
| 470 tsta | |
| 471 bne L0520 | |
| 28 | 472 lda #C$PERD |
| 0 | 473 L0520 lbsr L0608 |
| 474 lbsr L0666 | |
| 475 bsr L04E9 | |
| 476 ldx <u0000 | |
| 477 pshs x | |
| 478 leax <u0022,u | |
| 479 stx <u0000 | |
| 480 ldb <u0016 | |
| 481 inc <u0018 | |
| 482 clra | |
| 483 lbsr L0692 | |
| 484 clr <u0018 | |
| 485 puls x | |
| 486 stx <u0000 | |
| 487 lbsr L0612 | |
| 488 rts | |
| 28 | 489 L0543 lda #'$ |
| 0 | 490 lbsr L0608 |
| 491 ldd <u0010 | |
| 492 lbsr L066E | |
| 493 ldb <u0012 | |
| 494 lbsr L0664 | |
| 495 rts | |
| 496 L0553 ldd #$FFFF | |
| 497 std <u0013 | |
| 498 stb <u0015 | |
| 499 pshs u,y,x | |
| 500 leau <u0013,u | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
501 tst <dolink |
| 0 | 502 beq L0571 |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
503 ldx <modptr |
|
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
504 ldy M$Size,x |
| 0 | 505 os9 F$CRC |
| 506 lbcs L03D2 | |
| 507 bra L058C | |
| 508 L0571 pshs u,x | |
| 509 ldx <u001E | |
| 510 ldu <u0020 | |
| 28 | 511 lda <path |
| 0 | 512 os9 I$Seek |
| 513 puls u,x | |
| 514 lbcs L03D2 | |
| 515 ldd <u001C | |
| 516 pshs b,a | |
| 517 bsr L05BF | |
| 518 puls b,a | |
| 519 std <u001C | |
| 520 L058C puls u,y,x | |
| 521 lda <u0013 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
522 cmpa #CRCCon1 |
| 0 | 523 bne L059E |
| 524 ldd <u0014 | |
|
1751
68405e756277
Properly inc'ed revision, more comments and symbols put into code for
boisy
parents:
1749
diff
changeset
|
525 cmpd #CRCCon23 |
| 0 | 526 bne L059E |
| 527 bra L05A1 | |
| 528 L059E lda #$3F | |
| 529 rts | |
| 530 L05A1 clra | |
| 531 rts | |
| 28 | 532 L05A3 lda <path |
| 0 | 533 ldx <u0006 |
| 534 ldy <u0008 | |
| 535 cmpy <u001C | |
| 536 bls L05B2 | |
| 537 ldy <u001C | |
| 538 L05B2 os9 I$Read | |
| 539 sty <u0004 | |
| 540 rts | |
| 541 L05B9 bsr L05A3 | |
| 542 lbcs L03D2 | |
| 543 L05BF ldy <u0004 | |
| 544 beq L05B9 | |
| 545 os9 F$CRC | |
| 546 ldd <u001C | |
| 547 subd <u0004 | |
| 548 std <u001C | |
| 549 bne L05B9 | |
| 550 std <u0004 | |
| 551 rts | |
| 552 L05D2 pshs b,a | |
| 553 bsr L0628 | |
| 554 ldb #$03 | |
| 555 bsr L0654 | |
| 556 puls b,a | |
| 557 bsr L0649 | |
| 558 bsr L0612 | |
| 559 rts | |
| 560 pshs b,a | |
| 561 andb #$F0 | |
| 562 lsrb | |
| 563 lsrb | |
| 564 lsrb | |
| 565 lsrb | |
| 28 | 566 L05E9 lda #'$ |
| 0 | 567 bsr L0608 |
| 568 lbsr L0682 | |
| 569 ldb #$02 | |
| 570 bsr L0654 | |
| 571 puls pc,b,a | |
| 572 pshs b,a | |
| 573 andb #$0F | |
| 574 bra L05E9 | |
| 575 L05FC lda ,y | |
| 576 anda #$7F | |
| 577 bsr L0608 | |
| 578 lda ,y+ | |
| 579 bpl L05FC | |
| 28 | 580 L0606 lda #C$SPAC |
| 0 | 581 L0608 pshs x |
| 582 ldx <u0000 | |
| 583 sta ,x+ | |
| 584 stx <u0000 | |
| 585 puls pc,x | |
| 586 L0612 pshs y,x,a | |
| 28 | 587 lda #C$CR |
| 0 | 588 bsr L0608 |
| 589 leax <u0022,u | |
| 590 stx <u0000 | |
| 28 | 591 ldy #80 |
| 0 | 592 lda #$01 |
| 593 os9 I$WritLn | |
| 594 puls pc,y,x,a | |
| 595 L0628 pshs a | |
| 28 | 596 lda #'$ |
| 0 | 597 bsr L0608 |
| 598 puls a | |
| 599 bsr L0660 | |
| 600 rts | |
| 601 L0633 pshs a | |
| 28 | 602 lda #'$ |
| 0 | 603 bsr L0608 |
| 604 puls a | |
| 605 bsr L0664 | |
| 606 rts | |
| 607 pshs a | |
| 28 | 608 lda #'$ |
| 0 | 609 bsr L0608 |
| 610 puls a | |
| 611 bsr L0682 | |
| 612 rts | |
| 613 L0649 pshs a | |
| 28 | 614 lda #'# |
| 0 | 615 bsr L0608 |
| 616 puls a | |
| 617 bsr L0692 | |
| 618 rts | |
| 619 L0654 pshs b,a | |
| 620 L0656 tstb | |
| 621 ble L065E | |
| 622 bsr L0606 | |
| 623 decb | |
| 624 bra L0656 | |
| 625 L065E puls pc,b,a | |
| 626 L0660 bsr L066E | |
| 627 bra L0666 | |
| 628 L0664 bsr L0674 | |
| 629 L0666 pshs a | |
| 28 | 630 lda #C$SPAC |
| 0 | 631 bsr L0608 |
| 632 puls pc,a | |
| 633 L066E exg a,b | |
| 634 bsr L0674 | |
| 635 tfr a,b | |
| 636 L0674 pshs b | |
| 637 andb #$F0 | |
| 638 lsrb | |
| 639 lsrb | |
| 640 lsrb | |
| 641 lsrb | |
| 642 bsr L0682 | |
| 643 puls b | |
| 644 andb #$0F | |
| 645 L0682 cmpb #$09 | |
| 646 bls L0688 | |
| 647 addb #$07 | |
| 648 L0688 addb #$30 | |
| 649 exg a,b | |
| 650 lbsr L0608 | |
| 651 exg a,b | |
| 652 rts | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
653 |
| 0 | 654 L0692 pshs u,y,b |
| 655 leau <L06C3,pcr | |
| 656 clr <u0017 | |
| 657 ldy #$0005 | |
| 658 L069D clr ,s | |
| 659 L069F subd ,u | |
| 660 bcs L06A7 | |
| 661 inc ,s | |
| 662 bra L069F | |
| 663 L06A7 addd ,u++ | |
| 664 pshs b | |
| 665 ldb $01,s | |
| 666 exg a,b | |
| 667 bsr L06CD | |
| 668 exg a,b | |
| 669 puls b | |
| 670 cmpy #$0002 | |
| 671 bgt L06BD | |
| 672 inc <u0017 | |
| 673 L06BD leay -$01,y | |
| 674 bne L069D | |
| 675 puls pc,u,y,b | |
|
1749
e6ad517c5ad3
EXPERIMENTAL... should show ??? for bad language in module header. Can someone please test?
boisy
parents:
1325
diff
changeset
|
676 L06C3 fdb 10000,1000,100,10,1 |
| 0 | 677 L06CD tsta |
| 678 beq L06D2 | |
| 679 sta <u0017 | |
| 680 L06D2 tst <u0017 | |
| 681 bne L06DF | |
| 682 tst <u0018 | |
| 683 beq L06DE | |
| 684 lda #$20 | |
| 685 bra L06E1 | |
| 686 L06DE rts | |
| 687 L06DF adda #$30 | |
| 688 L06E1 lbra L0608 | |
| 689 | |
| 690 emod | |
| 691 eom equ * | |
| 692 end |