Header for : Rename
Module size: $11D  #285
Module CRC : $C94E50 (Good)
Hdr parity : $34
Exec. off  : $0014  #20
Data size  : $01D1  #465
Edition    : $05  #5
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

* Disassembly by Os9disasm of rename

 mod L011d,L000d,$11,$81,L0014,D01d1

* OS-9 system function equates

F$Exit equ $06
F$PrsNam equ $10
F$CmpNam equ $11
I$Open equ $84
I$ChgDir equ $86
I$Seek equ $88
I$Write equ $8a
I$GetStt equ $8d
I$Close equ $8f

* OS9 data area definitions

D0000 rmb 2
D0002 rmb 2
D0004 rmb 1
D0005 rmb 2
D0007 rmb 1
D0008 rmb 24
D0020 rmb 26
D003a rmb 2
D003c rmb 405
D01d1 equ .

L000d fcb $52
 fcb $65
 jmp   1,s
 tst   b,s
 fcb $05
L0014 cmpd  #4
 lblo  L00a8
 stx   D0000
 lda   #2
 os9 I$Open
 bcc   L0032
 cmpb  #$d6
 bne   L00a5
 ldx   D0000
 lda   #$82
 os9 I$Open
 bcs   L00a5
L0032 stx   D0005
 ldb   #0
 leax  32,u
 os9 I$GetStt
 bcs   L00a5
 os9 I$Close
 bcs   L00a5
 ldb   D0020
 cmpb  #1
 bne   L00a8
 bsr   L00ae
 bcs   L00a5
 ldx   D0002
 lda   #$0d
 sta   -1,x
 ldx   D0000
 lda   #3
 os9 I$ChgDir
 bcs   L00a5
 ldx   D0005
 ldb   D0008
 decb  
 lda   b,x
 ora   #$80
 sta   b,x
 incb  
 cmpb  D0004
 bne   L0075
 leay  ,x
 ldx   D0002
 os9 F$CmpNam
 bcc   L0082
L0075 ldx   D0005
 lda   #1
 os9 I$Open
 bcc   L00a8
 cmpb  #$d8
 bne   L00a8
L0082 leax  <L00ac,pcr
 lda   #$83
 os9 I$Open
 bcs   L00a5
 ldx   D003a
 ldu   D003c
 os9 I$Seek
 bcs   L00a5
 ldx   D0005
 ldy   D0007
 os9 I$Write
 bcs   L00a5
 os9 I$Close
 bcs   L00a5
 clrb  
L00a5 os9 F$Exit
L00a8 ldb   #$d7
 bra   L00a5
L00ac bgt   L00bb
L00ae ldx   D0000
 bsr   L00f6
 ldu   D0000
 lda   ,u
 cmpa  #$2f
 beq   L00c7
 lda   ,y
L00bb equ *-1
 cmpa  #$2f
 beq   L00c7
 leau  <L00ac,pcr
 stu   D0000
 bra   L00cd
L00c7 leax  ,y
 bsr   L00f6
 bcs   L00f2
L00cd stx   D0002
 stb   D0004
 leax  ,y
 bsr   L00f6
 bcc   L00cd
 ldb   D0004
 beq   L00f2
 ldx   D0005
 os9 F$PrsNam
 bcs   L00f2
 lda   ,y
 cmpa  #$2f
 beq   L00f2
 cmpb  #$1e
 bcc   L00f2
 stx   D0005
 clra  
 std   D0007
 rts   
L00f2 comb  
 ldb   #$d7
 rts   
L00f6 os9 F$PrsNam
 bcc   L0119
 clrb  
 leau  ,x
L00fe lda   ,u+
 bpl   L0107
 incb  
 cmpa  #$ae
 bne   L010c
L0107 incb  
 cmpa  #$2e
 beq   L00fe
L010c decb  
 beq   L0118
 leay  -1,u
 cmpb  #3
 bcc   L0118
 clrb  
 bra   L0119
L0118 coma  
L0119 rts   

 emod 

L011d equ *

 end

Return to OS-9 or Top