Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/exbin.asm @ 710:4b8f2de93c51
Added DS40 target
| author | boisy |
|---|---|
| date | Sat, 04 Jan 2003 02:23:45 +0000 |
| parents | e9ce43cc215e |
| children | c6e6cf68e03e |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Exbin - 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 Made proper edition number BGP 02/07/14 |
| 0 | 10 |
| 11 nam Exbin | |
| 12 ttl Motorola S-Record utility | |
| 13 | |
| 14 * Disassembled 98/09/15 00:16:49 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 2 | |
| 33 u0008 rmb 1 | |
| 34 u0009 rmb 2 | |
| 35 u000B rmb 1 | |
| 36 u000C rmb 1 | |
| 37 u000D rmb 1 | |
| 38 u000E rmb 1 | |
| 39 u000F rmb 1 | |
| 40 u0010 rmb 2 | |
| 41 u0012 rmb 2 | |
| 42 u0014 rmb 2 | |
| 43 u0016 rmb 656 | |
| 44 size equ . | |
| 45 | |
| 46 name fcs /Exbin/ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
47 fcb edition |
|
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
0
diff
changeset
|
48 |
| 0 | 49 fcc "Copyright 1982 Motorola, Inc." |
| 50 fcb $01 | |
| 51 | |
| 52 start stx <u0002 | |
| 53 lda #$01 | |
| 54 os9 I$Open | |
| 55 bcc L003C | |
| 56 L0039 os9 F$Exit | |
| 57 L003C sta <u0000 | |
| 58 stx <u0002 | |
| 59 lda #$02 | |
| 60 ldb #$7F | |
| 61 os9 I$Create | |
| 62 bcs L0039 | |
| 63 sta <u0001 | |
| 64 stx <u0002 | |
| 65 ldd #$0000 | |
| 66 std <u0009 | |
| 67 std <u000B | |
| 68 sta <u000F | |
| 69 ldx #$4E61 | |
| 70 stx <u0010 | |
| 71 ldx #$6D65 | |
| 72 stx <u0012 | |
| 73 ldx #$3D20 | |
| 74 stx <u0014 | |
| 75 L0065 lda <u0000 | |
| 76 leax <u0016,u | |
| 77 ldy #$0100 | |
| 78 os9 I$ReadLn | |
| 79 lbcs L0114 | |
| 80 leax <u0016,u | |
| 81 tfr x,y | |
| 82 tfr x,d | |
| 83 addd #$0100 | |
| 84 std <u0006 | |
| 85 L0081 lda ,x+ | |
| 86 cmpa #$53 | |
| 87 beq L008D | |
| 88 cmpx <u0006 | |
| 89 bne L0081 | |
| 90 bra L0065 | |
| 91 L008D lda ,x+ | |
| 92 suba #$30 | |
| 93 sta <u000E | |
| 94 beq L009E | |
| 95 cmpa #$09 | |
| 96 bne L009B | |
| 97 bra L0065 | |
| 98 L009B deca | |
| 99 bne L0065 | |
| 100 L009E bsr L011F | |
| 101 sta <u0008 | |
| 102 suba #$03 | |
| 103 sta <u000C | |
| 104 sta <u000D | |
| 105 bsr L011B | |
| 106 tst <u000E | |
| 107 beq L00CD | |
| 108 pshs x | |
| 109 ldx <u0009 | |
| 110 lda <u000F | |
| 111 beq L00C0 | |
| 112 cmpx <u0004 | |
| 113 beq L00C6 | |
| 114 leax >L018D,pcr | |
| 115 bra L00DE | |
| 116 L00C0 ldx <u0004 | |
| 117 lda #$01 | |
| 118 sta <u000F | |
| 119 L00C6 ldb <u000C | |
| 120 abx | |
| 121 stx <u0009 | |
| 122 puls x | |
| 123 L00CD bsr L011F | |
| 124 sta ,y+ | |
| 125 dec <u000D | |
| 126 bpl L00CD | |
| 127 lda <u0008 | |
| 128 inca | |
| 129 beq L00EB | |
| 130 leax >L0171,pcr | |
| 131 L00DE lda #$02 | |
| 132 ldy #$00FF | |
| 133 os9 I$WritLn | |
| 134 L00E7 clrb | |
| 135 lbra L0039 | |
| 136 L00EB lda <u000E | |
| 137 bne L0102 | |
| 138 lda #$0D | |
| 139 sta ,-y | |
| 140 lda #$01 | |
| 141 ldy #$00FF | |
| 142 leax <u0010,u | |
| 143 os9 I$WritLn | |
| 144 lbra L0065 | |
| 145 L0102 lda <u0001 | |
| 146 ldy <u000B | |
| 147 leax <u0016,u | |
| 148 os9 I$Write | |
| 149 lbcc L0065 | |
| 150 lbra L0039 | |
| 151 L0114 cmpb #$D3 | |
| 152 beq L00E7 | |
| 153 lbra L0039 | |
| 154 L011B bsr L011F | |
| 155 sta <u0004 | |
| 156 L011F lda ,x+ | |
| 157 bsr L013A | |
| 158 lsla | |
| 159 lsla | |
| 160 lsla | |
| 161 lsla | |
| 162 anda #$F0 | |
| 163 pshs a | |
| 164 lda ,x+ | |
| 165 bsr L013A | |
| 166 adda ,s+ | |
| 167 sta <u0005 | |
| 168 adda <u0008 | |
| 169 sta <u0008 | |
| 170 lda <u0005 | |
| 171 rts | |
| 172 L013A suba #$30 | |
| 173 bmi L0149 | |
| 174 cmpa #$09 | |
| 175 ble L0148 | |
| 176 suba #$07 | |
| 177 cmpa #$0F | |
| 178 bhi L0149 | |
| 179 L0148 rts | |
| 180 L0149 leax >L014F,pcr | |
| 181 bra L00DE | |
| 182 L014F fcc "** NON-HEX CHARACTER ENCOUNTERED" | |
| 183 fcb $07,C$CR | |
| 184 L0171 fcc "** CHECKSUM ERROR DETECTED" | |
| 185 fcb $07,C$CR | |
| 186 L018D fcc "** NON-CONTIGUOUS ADDRESS SPACE DETECTED" | |
| 187 fcb $07,C$CR | |
| 188 | |
| 189 emod | |
| 190 eom equ * | |
| 191 end |