Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/exbin.asm @ 2758:e4a0f58a5f9b
Found that people who do not have the envirornment variable NITROS9DIR set before building the project get a error missing file "/rules.mak". Found this is caused do to the fact that the code to set this envirornment variable is in the rules.mak which can't get loaded.
To fix this the code needed to set the envirornment variable that is in the rules.mak is now in the makefile(s) right before the include for the rules.mak file. This should fix the problem for those who do not have the NITROS9DIR envirornment variable preset.
| author | drencor-xeen |
|---|---|
| date | Mon, 14 Jan 2013 14:37:46 -0600 |
| 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