Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/binex.asm @ 814:fd9d07c31d20
Moved files from CMDS
| author | boisy |
|---|---|
| date | Mon, 13 Jan 2003 13:41:48 +0000 |
| parents | e9ce43cc215e |
| children | c6e6cf68e03e |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Binex - Motorola S-Record utility | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
8 * 67 From Tandy OS-9 Level One VR 02.00.00 |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
9 * 68 Set proper edition |
| 0 | 10 |
| 11 nam Binex | |
| 12 ttl Motorola S-Record utility | |
| 13 | |
| 14 * Disassembled 98/09/15 00:08:52 by Disasm v1.6 (C) 1988 by RML | |
| 15 | |
| 16 ifp1 | |
| 17 use defsfile | |
| 18 endc | |
| 19 | |
| 20 tylg set Prgrm+Objct | |
| 21 atrv set ReEnt+rev | |
| 22 rev set $01 | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
23 edition set 68 |
| 0 | 24 |
| 25 mod eom,name,tylg,atrv,start,size | |
| 26 | |
| 27 u0000 rmb 1 | |
| 28 u0001 rmb 1 | |
| 29 u0002 rmb 2 | |
| 30 u0004 rmb 1 | |
| 31 u0005 rmb 1 | |
| 32 u0006 rmb 1 | |
| 33 u0007 rmb 2 | |
| 34 u0009 rmb 1 | |
| 35 u000A rmb 2 | |
| 36 u000C rmb 1 | |
| 37 u000D rmb 31 | |
| 38 u002C rmb 1 | |
| 39 u002D rmb 1 | |
| 40 u002E rmb 1 | |
| 41 u002F rmb 2 | |
| 42 u0031 rmb 2 | |
| 43 u0033 rmb 2 | |
| 44 u0035 rmb 656 | |
| 45 size equ . | |
| 46 | |
| 47 name fcs /Binex/ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
48 fcb edition |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
49 |
| 0 | 50 fcc "Copyright 1982 Motorola, Inc." |
| 51 fcb $01 | |
| 52 | |
| 53 start stx <u0002 | |
| 54 lda #$01 | |
| 55 os9 I$Open | |
| 56 bcc L003C | |
| 57 L0039 os9 F$Exit | |
| 58 L003C sta <u0000 | |
| 59 stx <u0002 | |
| 60 lda #$02 | |
| 61 ldb #$7F | |
| 62 os9 I$Create | |
| 63 bcs L0039 | |
| 64 sta <u0001 | |
| 65 stx <u0002 | |
| 66 ldd #$0000 | |
| 67 sta <u0006 | |
| 68 std <u000A | |
| 69 std <u002F | |
| 70 ldx #$5330 | |
| 71 stx <u002D | |
| 72 ldx #$3030 | |
| 73 stx <u0031 | |
| 74 stx <u0033 | |
| 75 L0062 leax >L0217,pcr | |
| 76 lda #$01 | |
| 77 ldy #$0022 | |
| 78 os9 I$Write | |
| 79 leax <u0031,u | |
| 80 lda #$00 | |
| 81 ldy #$0005 | |
| 82 os9 I$ReadLn | |
| 83 leay -$01,y | |
| 84 cmpy #$0000 | |
| 85 beq L0062 | |
| 86 cmpy #$0004 | |
| 87 bhi L0062 | |
| 88 beq L00A7 | |
| 89 tfr y,d | |
| 90 pshs b | |
| 91 decb | |
| 92 leax <u0031,u | |
| 93 leay $04,x | |
| 94 L0095 lda b,x | |
| 95 sta ,-y | |
| 96 decb | |
| 97 bpl L0095 | |
| 98 ldb #$04 | |
| 99 subb ,s+ | |
| 100 lda #$30 | |
| 101 L00A2 sta ,-y | |
| 102 decb | |
| 103 bgt L00A2 | |
| 104 L00A7 lbsr L0178 | |
| 105 leax >L01F9,pcr | |
| 106 lda #$01 | |
| 107 ldy #$001E | |
| 108 os9 I$Write | |
| 109 leax u000C,u | |
| 110 lda #$00 | |
| 111 ldy #$0015 | |
| 112 os9 I$ReadLn | |
| 113 leay -$01,y | |
| 114 cmpy #$0000 | |
| 115 bne L0120 | |
| 116 L00CA lda <u0000 | |
| 117 leax u000C,u | |
| 118 ldy #$0020 | |
| 119 os9 I$Read | |
| 120 lbcs L0160 | |
| 121 cmpy #$0000 | |
| 122 lbeq L0160 | |
| 123 lda <u0006 | |
| 124 bne L0120 | |
| 125 inc <u0006 | |
| 126 lda #$31 | |
| 127 sta <u002E | |
| 128 ldx <u0004 | |
| 129 stx <u000A | |
| 130 ldx u000C,u | |
| 131 cmpx #$87CD | |
| 132 beq L0120 | |
| 133 leax >L0239,pcr | |
| 134 pshs y | |
| 135 ldy #$003C | |
| 136 lda #$01 | |
| 137 os9 I$Write | |
| 138 leax <u0035,u | |
| 139 ldy #$0002 | |
| 140 lda #$00 | |
| 141 os9 I$ReadLn | |
| 142 puls y | |
| 143 lda <u0035,u | |
| 144 anda #$DF | |
| 145 cmpa #$59 | |
| 146 beq L0120 | |
| 147 L011C clrb | |
| 148 os9 F$Exit | |
| 149 L0120 sty <u0007 | |
| 150 tfr y,d | |
| 151 addb #$03 | |
| 152 stb <u0009 | |
| 153 leax u0009,u | |
| 154 clra | |
| 155 ldb ,x | |
| 156 L012E adda ,x+ | |
| 157 decb | |
| 158 bne L012E | |
| 159 coma | |
| 160 sta ,x | |
| 161 leax u0009,u | |
| 162 leay <u002F,u | |
| 163 ldb ,x | |
| 164 incb | |
| 165 L013E bsr L01B6 | |
| 166 decb | |
| 167 bne L013E | |
| 168 ldb #$0D | |
| 169 stb ,y | |
| 170 leax <u002D,u | |
| 171 ldy #$0073 | |
| 172 lda <u0001 | |
| 173 os9 I$WritLn | |
| 174 lbcs L0039 | |
| 175 ldd <u000A | |
| 176 addd <u0007 | |
| 177 std <u000A | |
| 178 lbra L00CA | |
| 179 L0160 cmpb #$D3 | |
| 180 lbne L0039 | |
| 181 lda #$39 | |
| 182 cmpa <u002E | |
| 183 beq L011C | |
| 184 sta <u002E | |
| 185 ldx <u0004 | |
| 186 stx <u000A | |
| 187 ldy #$0000 | |
| 188 bra L0120 | |
| 189 L0178 bsr L017C | |
| 190 sta <u0004 | |
| 191 L017C lda ,x+ | |
| 192 bsr L0197 | |
| 193 lsla | |
| 194 lsla | |
| 195 lsla | |
| 196 lsla | |
| 197 anda #$F0 | |
| 198 pshs a | |
| 199 lda ,x+ | |
| 200 bsr L0197 | |
| 201 adda ,s+ | |
| 202 sta <u0005 | |
| 203 adda <u002C | |
| 204 sta <u002C | |
| 205 lda <u0005 | |
| 206 rts | |
| 207 L0197 suba #$30 | |
| 208 bmi L01A6 | |
| 209 cmpa #$09 | |
| 210 ble L01A5 | |
| 211 suba #$07 | |
| 212 cmpa #$0F | |
| 213 bhi L01A6 | |
| 214 L01A5 rts | |
| 215 L01A6 leax >L01D7,pcr | |
| 216 lda #$02 | |
| 217 ldy #$00FF | |
| 218 os9 I$WritLn | |
| 219 lbra L011C | |
| 220 L01B6 pshs b,a | |
| 221 lda ,x+ | |
| 222 tfr a,b | |
| 223 lsra | |
| 224 lsra | |
| 225 lsra | |
| 226 lsra | |
| 227 bsr L01CC | |
| 228 sta ,y+ | |
| 229 tfr b,a | |
| 230 bsr L01CC | |
| 231 sta ,y+ | |
| 232 puls pc,b,a | |
| 233 L01CC anda #$0F | |
| 234 adda #$30 | |
| 235 cmpa #$39 | |
| 236 bls L01D6 | |
| 237 adda #$07 | |
| 238 L01D6 rts | |
| 239 L01D7 fcc "** NON-HEX CHARACTER ENCOUNTERED" | |
| 240 fcb $07,C$CR | |
| 241 L01F9 fcc "Enter name for header record: " | |
| 242 L0217 fcc "Enter starting address for file: $" | |
| 243 L0239 fcb $07,C$CR,C$LF | |
| 244 fcc "** Not a binary load module file. Proceed anyway (Y/N)? " | |
| 245 | |
| 246 emod | |
| 247 eom equ * | |
| 248 end |