Header for : Exbin
Module size: $1BA  #442
Module CRC : $14D934 (Good)
Hdr parity : $93
Exec. off  : $0030  #48
Data size  : $02A6  #678
Edition    : $43  #67
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

* Disassembly by Os9disasm of exbin

 mod L01ba,L000d,$11,$81,L0030,D02a6

* OS-9 system function equates

F$Exit equ $06
I$Create equ $83
I$Open equ $84
I$Write equ $8a
I$ReadLn equ $8b
I$WritLn equ $8c

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 1
D0002 rmb 2
D0004 rmb 1
D0005 rmb 1
D0006 rmb 2
D0008 rmb 1
D0009 rmb 2
D000b rmb 1
D000c rmb 1
D000d rmb 1
D000e rmb 1
D000f rmb 1
D0010 rmb 2
D0012 rmb 2
D0014 rmb 658
D02a6 equ .

L000d fcb $45
 asl   $6269
 ldu   3,u
 clr   -16,s
 rol   29289
 asr   8,s
 lsr   $2031
 rts   
 fcb $38
 fcb $32
 bra   L006f
 clr   -12,s
 clr   -14,s
 clr   12,s
 fcb $61
 bge   L004b
 rola  
 jmp   3,s
 bgt   L0031
L0030 stx   D0002
L0031 equ *-1
 lda   #1
 os9 I$Open
 bcc   L003c
L0039 os9 F$Exit
L003c sta   D0000
 stx   D0002
 lda   #2
 ldb   #$7f
 os9 I$Create
 bcs   L0039
 sta   D0001
L004b stx   D0002
 ldd   #0
 std   D0009
 std   D000b
 sta   D000f
 ldx   #$4e61
 stx   D0010
 ldx   #$6d65
 stx   D0012
 ldx   #15648
 stx   D0014
L0065 lda   D0000
 leax  22,u
 ldy   #$0100
 os9 I$ReadLn
L006f equ *-2
 lblo  L0114
 leax  22,u
 tfr   x,y
 tfr   x,d
 addd  #$0100
 std   D0006
L0081 lda   ,x+
 cmpa  #$53
 beq   L008d
 cmpx  D0006
 bne   L0081
 bra   L0065
L008d lda   ,x+
 suba  #$30
 sta   D000e
 beq   L009e
 cmpa  #9
 bne   L009b
 bra   L0065
L009b deca  
 bne   L0065
L009e bsr   L011f
 sta   D0008
 suba  #3
 sta   D000c
 sta   D000d
 bsr   L011b
 tst   D000e
 beq   L00cd
 pshs  x
 ldx   D0009
 lda   D000f
 beq   L00c0
 cmpx  D0004
 beq   L00c6
 leax  L018d,pcr
 bra   L00de
L00c0 ldx   D0004
 lda   #1
 sta   D000f
L00c6 ldb   D000c
 abx   
 stx   D0009
 puls  x
L00cd bsr   L011f
 sta   ,y+
 dec   D000d
 bpl   L00cd
 lda   D0008
 inca  
 beq   L00eb
 leax  L0171,pcr
L00de lda   #2
 ldy   #$00ff
 os9 I$WritLn
L00e7 clrb  
 lbra  L0039
L00eb lda   D000e
 bne   L0102
 lda   #$0d
 sta   ,-y
 lda   #1
 ldy   #$00ff
 leax  16,u
 os9 I$WritLn
 lbra  L0065
L0102 lda   D0001
 ldy   D000b
 leax  22,u
 os9 I$Write
 lbhs  L0065
 lbra  L0039
L0114 cmpb  #$d3
 beq   L00e7
 lbra  L0039
L011b bsr   L011f
 sta   D0004
L011f lda   ,x+
 bsr   L013a
 asla  
 asla  
 asla  
 asla  
 anda  #$f0
 pshs  a
 lda   ,x+
 bsr   L013a
 adda  ,s+
 sta   D0005
 adda  D0008
 sta   D0008
 lda   D0005
 rts   
L013a suba  #$30
 bmi   L0149
 cmpa  #9
 ble   L0148
 suba  #7
 cmpa  #$0f
 bhi   L0149
L0148 rts   
L0149 leax  >L014f,pcr
 bra   L00de
L014f bpl   L017b
 bra   L01a1
 clra  
 fcb $4e
 blt   L019f
 fcb $45
 lslb  
 bra   L019e
 asla  
 fcb $41
 fcb $52
 fcb $41
 coma  
 lsrb  
 fcb $45
 fcb $52
 bra   L01aa
 fcb $4e
 coma  
 clra  
 fcb $55
 fcb $4e
 lsrb  
 fcb $45
 fcb $52
 fcb $45
 lsra  
 asr   D000d
L0171 bpl   L019d
 bra   L01b8
 asla  
 fcb $45
 coma  
 fcb $4b
 comb  
 fcb $55
L017b tsta  
 bra   L01c3
 fcb $52
 fcb $52
 clra  
 fcb $52
 bra   L01c8
 fcb $45
 lsrb  
 fcb $45
 coma  
 lsrb  
 fcb $45
 lsra  
 asr   D000d
L018d bpl   L01b9
 bra   L01df
 clra  
 fcb $4e
 blt   L01d8
 clra  
 fcb $4e
 lsrb  
 rola  
 asra  
 fcb $55
 clra  
 fcb $55
L019d comb  
L019e bra   L01e1
L019f equ *-1
 lsra  
L01a1 lsra  
 fcb $52
 fcb $45
 comb  
 comb  
 bra   L01fb
 negb  
 fcb $41
L01aa coma  
 fcb $45
 bra   L01f2
 fcb $45
 lsrb  
 fcb $45
 coma  
 lsrb  
 fcb $45
 lsra  
 asr   D000d

 emod 

L01ba equ *

 end

Return to OS-9 or Top