Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/exbin.asm @ 1652:558cab468052
RG fixed a bug in the Vavasour emulator clock2 module.
clock2 is now of type Sbrtn instead of Systm. clock.asm has been modified
to link to this type.
| author | boisy |
|---|---|
| date | Sat, 17 Jul 2004 12:20:31 +0000 |
| parents | 84ea83668304 |
| children |
line wrap: on
line source
******************************************************************** * Exbin - Motorola S-Record utility * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 67 ????/??/?? * From Tandy OS-9 Level One VR 02.00.00. * * 1 2003/01/14 Boisy G. Pitre * Restarted edition, removed Motorola copyright. nam Exbin ttl Motorola S-Record utility * Disassembled 98/09/15 00:16:49 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $00 edition set 1 mod eom,name,tylg,atrv,start,size org 0 u0000 rmb 1 u0001 rmb 1 u0002 rmb 2 u0004 rmb 1 u0005 rmb 1 u0006 rmb 2 u0008 rmb 1 u0009 rmb 2 u000B rmb 1 u000C rmb 1 u000D rmb 1 u000E rmb 1 u000F rmb 1 u0010 rmb 2 u0012 rmb 2 u0014 rmb 2 u0016 rmb 656 size equ . name fcs /Exbin/ fcb edition * fcc "Copyright 1982 Motorola, Inc." * fcb $01 start stx <u0002 lda #READ. os9 I$Open bcc L003C L0039 os9 F$Exit L003C sta <u0000 stx <u0002 lda #WRITE. ldb #SHARE.+PEXEC.+PWRIT.+PREAD.+EXEC.+UPDAT. os9 I$Create bcs L0039 sta <u0001 stx <u0002 ldd #$0000 std <u0009 std <u000B sta <u000F ldx #$4E61 stx <u0010 ldx #$6D65 stx <u0012 ldx #$3D20 stx <u0014 L0065 lda <u0000 leax <u0016,u ldy #$0100 os9 I$ReadLn lbcs L0114 leax <u0016,u tfr x,y tfr x,d addd #$0100 std <u0006 L0081 lda ,x+ cmpa #$53 beq L008D cmpx <u0006 bne L0081 bra L0065 L008D lda ,x+ suba #$30 sta <u000E beq L009E cmpa #$09 bne L009B bra L0065 L009B deca bne L0065 L009E bsr L011F sta <u0008 suba #$03 sta <u000C sta <u000D bsr L011B tst <u000E beq L00CD pshs x ldx <u0009 lda <u000F beq L00C0 cmpx <u0004 beq L00C6 leax >NonCtg,pcr bra L00DE L00C0 ldx <u0004 lda #$01 sta <u000F L00C6 ldb <u000C abx stx <u0009 puls x L00CD bsr L011F sta ,y+ dec <u000D bpl L00CD lda <u0008 inca beq L00EB leax >CSumErr,pcr L00DE lda #$02 ldy #$00FF os9 I$WritLn L00E7 clrb lbra L0039 L00EB lda <u000E bne L0102 lda #$0D sta ,-y lda #$01 ldy #$00FF leax <u0010,u os9 I$WritLn lbra L0065 L0102 lda <u0001 ldy <u000B leax <u0016,u os9 I$Write lbcc L0065 lbra L0039 L0114 cmpb #$D3 beq L00E7 lbra L0039 L011B bsr L011F sta <u0004 L011F lda ,x+ bsr L013A lsla lsla lsla lsla anda #$F0 pshs a lda ,x+ bsr L013A adda ,s+ sta <u0005 adda <u0008 sta <u0008 lda <u0005 rts L013A suba #$30 bmi L0149 cmpa #$09 ble L0148 suba #$07 cmpa #$0F bhi L0149 L0148 rts L0149 leax >NonHex,pcr bra L00DE NonHex fcc "** Non-hex character encountered" fcb C$BELL,C$CR CSumErr fcc "** Checksum error detected" fcb C$BELL,C$CR NonCtg fcc "** Non-contiguous address space detected" fcb C$BELL,C$CR emod eom equ * end