nam   Dloadxc
         ttl   program module       

* Disassembled 2010/01/24 10:42:49 by Disasm v1.5 (C) 1988 by RML

         ifp1
         use   defsfile
         endc
tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $01
         mod   eom,name,tylg,atrv,start,size
u0000    rmb   1
u0001    rmb   1
u0002    rmb   1
u0003    rmb   1
u0004    rmb   1
u0005    rmb   1
u0006    rmb   1
u0007    rmb   1
u0008    rmb   1
u0009    rmb   2
u000B    rmb   10
u0015    rmb   1
u0016    rmb   1
u0017    rmb   1
u0018    rmb   128
u0098    rmb   1
u0099    rmb   1
u009A    rmb   32
u00BA    rmb   2
u00BC    rmb   232
size     equ   .
name     equ   *
         fcs   /Dloadxc/
         fcb   $43 C
         fcb   $6F o
         fcb   $70 p
         fcb   $79 y
         fcb   $72 r
         fcb   $69 i
         fcb   $67 g
         fcb   $68 h
         fcb   $74 t
         fcb   $20 
         fcb   $28 (
         fcb   $43 C
         fcb   $29 )
         fcb   $20 
         fcb   $31 1
         fcb   $39 9
         fcb   $38 8
         fcb   $38 8
         fcb   $42 B
         fcb   $79 y
         fcb   $20 
         fcb   $4B K
         fcb   $65 e
         fcb   $69 i
         fcb   $74 t
         fcb   $68 h
         fcb   $20 
         fcb   $41 A
         fcb   $6C l
         fcb   $70 p
         fcb   $68 h
         fcb   $6F o
         fcb   $6E n
         fcb   $73 s
         fcb   $6F o
         fcb   $4C L
         fcb   $69 i
         fcb   $63 c
         fcb   $65 e
         fcb   $6E n
         fcb   $63 c
         fcb   $65 e
         fcb   $64 d
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $41 A
         fcb   $6C l
         fcb   $70 p
         fcb   $68 h
         fcb   $61 a
         fcb   $20 
         fcb   $53 S
         fcb   $6F o
         fcb   $66 f
         fcb   $74 t
         fcb   $77 w
         fcb   $61 a
         fcb   $72 r
         fcb   $65 e
         fcb   $20 
         fcb   $54 T
         fcb   $65 e
         fcb   $63 c
         fcb   $68 h
         fcb   $6E n
         fcb   $6F o
         fcb   $6C l
         fcb   $6F o
         fcb   $67 g
         fcb   $69 i
         fcb   $65 e
         fcb   $73 s
         fcb   $41 A
         fcb   $6C l
         fcb   $6C l
         fcb   $20 
         fcb   $72 r
         fcb   $69 i
         fcb   $67 g
         fcb   $68 h
         fcb   $74 t
         fcb   $73 s
         fcb   $20 
         fcb   $72 r
         fcb   $65 e
         fcb   $73 s
         fcb   $65 e
         fcb   $72 r
         fcb   $76 v
         fcb   $65 e
         fcb   $64 d
         fcb   $EC l
         fcb   $E6 f
         fcb   $EA j
         fcb   $F5 u
         fcb   $E9 i
         fcb   $A0 
         fcb   $E2 b
         fcb   $ED m
         fcb   $F1 q
         fcb   $E9 i
         fcb   $F0 p
         fcb   $EF o
         fcb   $F4 t
         fcb   $F0 p
L007F    fcb   $45 E
         fcb   $6E n
         fcb   $74 t
         fcb   $65 e
         fcb   $72 r
         fcb   $20 
         fcb   $66 f
         fcb   $69 i
         fcb   $6C l
         fcb   $65 e
         fcb   $6E n
         fcb   $61 a
         fcb   $6D m
         fcb   $65 e
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $64 d
         fcb   $6F o
         fcb   $77 w
         fcb   $6E n
         fcb   $6C l
         fcb   $6F o
         fcb   $61 a
         fcb   $64 d
         fcb   $2D -
         fcb   $2D -
         fcb   $3E >
L009C    fcb   $00 
         fcb   $1D 
L009E    fcb   $46 F
         fcb   $69 i
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $6F o
         fcb   $70 p
         fcb   $65 e
         fcb   $6E n
         fcb   $2C ,
         fcb   $20 
         fcb   $72 r
         fcb   $65 e
         fcb   $61 a
         fcb   $64 d
         fcb   $79 y
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $73 s
         fcb   $65 e
         fcb   $6E n
         fcb   $64 d
         fcb   $2E .
         fcb   $2E .
         fcb   $2E .
         fcb   $0D 
L00BA    fcb   $46 F
         fcb   $69 i
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $74 t
         fcb   $72 r
         fcb   $61 a
         fcb   $6E n
         fcb   $73 s
         fcb   $66 f
         fcb   $65 e
         fcb   $72 r
         fcb   $20 
         fcb   $73 s
         fcb   $75 u
         fcb   $63 c
         fcb   $63 c
         fcb   $65 e
         fcb   $73 s
         fcb   $73 s
         fcb   $66 f
         fcb   $75 u
         fcb   $6C l
         fcb   $0D 
L00D3    fcb   $46 F
         fcb   $69 i
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $74 t
         fcb   $72 r
         fcb   $61 a
         fcb   $6E n
         fcb   $73 s
         fcb   $66 f
         fcb   $65 e
         fcb   $72 r
         fcb   $20 
         fcb   $75 u
         fcb   $6E n
         fcb   $73 s
         fcb   $75 u
         fcb   $63 c
         fcb   $63 c
         fcb   $65 e
         fcb   $73 s
         fcb   $73 s
         fcb   $66 f
         fcb   $75 u
         fcb   $6C l
         fcb   $0D 
L00EE    fcb   $50 P
         fcb   $72 r
         fcb   $65 e
         fcb   $73 s
         fcb   $73 s
         fcb   $20 
         fcb   $3C <
         fcb   $43 C
         fcb   $54 T
         fcb   $52 R
         fcb   $4C L
         fcb   $3E >
         fcb   $3C <
         fcb   $58 X
         fcb   $3E >
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $61 a
         fcb   $62 b
         fcb   $6F o
         fcb   $72 r
         fcb   $74 t
         fcb   $0D 
L0107    fcb   $04 
L0108    fcb   $0A 
         fcb   $0D 
L010A    fcb   $54 T
         fcb   $6F o
         fcb   $74 t
         fcb   $61 a
         fcb   $6C l
         fcb   $20 
         fcb   $6E n
         fcb   $75 u
         fcb   $6D m
         fcb   $62 b
         fcb   $65 e
         fcb   $72 r
         fcb   $20 
         fcb   $6F o
         fcb   $66 f
         fcb   $20 
         fcb   $62 b
         fcb   $6C l
         fcb   $6F o
         fcb   $63 c
         fcb   $6B k
         fcb   $73 s
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $64 d
         fcb   $6F o
         fcb   $77 w
         fcb   $6E n
         fcb   $6C l
         fcb   $6F o
         fcb   $61 a
         fcb   $64 d
         fcb   $3A :
L012D    fcb   $86 
         fcb   $FF 
         fcb   $A7 '
         fcb   $42 B
         fcb   $30 0
         fcb   $C9 I
         fcb   $00 
         fcb   $BC <
         fcb   $4F O
         fcb   $5F _
         fcb   $10 
         fcb   $3F ?
         fcb   $8D 
         fcb   $30 0
         fcb   $88 
         fcb   $E0 `
         fcb   $6F o
         fcb   $88 
         fcb   $24 $
         fcb   $30 0
         fcb   $C9 I
         fcb   $00 
         fcb   $BC <
         fcb   $4F O
         fcb   $5F _
         fcb   $10 
         fcb   $3F ?
         fcb   $8E 
         fcb   $39 9
start    equ   *
         lda   ,x
         cmpa  #$0D
         bne   L016A
         leax  >L007F,pcr
         ldy   >L009C,pcr
         lda   #$01
         os9   I$Write  
         leax  >u009A,u
         ldy   #$0020
         clra  
         os9   I$ReadLn 
L016A    stx   >u00BA,u
         lbsr  L012D
         lda   #$01
         ldx   >u00BA,u
         os9   I$Open   
         lbcs  L031D
         sta   ,u
         leax  >L010A,pcr
         ldy   #$0023
         lda   #$01
         os9   I$Write  
         lda   ,u
         ldb   #$02
         pshs  u
         os9   I$GetStt 
         tfr   u,y
         puls  u
         lda   #$07
         sta   u0006,u
L019E    tfr   x,d
         lsra  
         rorb  
         tfr   d,x
         tfr   y,d
         rora  
         rorb  
         tfr   d,y
         dec   u0006,u
         bne   L019E
         tfr   y,d
         leax  u000B,u
         addd  #$0001
         lbsr  L039D
         leax  u000B,u
         ldy   #$0005
         lda   #$01
         os9   I$Write  
         leax  >L0108,pcr
         ldy   #$0001
         lda   #$01
         os9   I$WritLn 
         leax  >L00EE,pcr
         ldy   #$00C8
         lda   #$01
         os9   I$WritLn 
         leax  >L009E,pcr
         ldy   #$00C8
         lda   #$01
         os9   I$WritLn 
L01EA    leax  u0001,u
         ldy   #$0001
         clra  
         os9   I$Read   
         lda   u0001,u
         cmpa  #$43
         beq   L0206
         cmpa  #$18
         lbeq  L030F
         cmpa  #$15
         bne   L01EA
         bra   L0208
L0206    clr   u0002,u
L0208    lda   #$01
         sta   <u0015,u
         sta   <u0016,u
         coma  
         sta   <u0017,u
L0214    leax  <u0018,u
         ldy   #$0080
         lda   ,u
         os9   I$Read   
         lbcs  L02DD
         cmpy  #$0080
         beq   L023C
         tfr   y,d
         leax  d,x
         clra  
L022F    sta   ,x+
         leay  $01,y
         cmpy  #$0080
         bcs   L022F
         leax  <u0018,u
L023C    tst   u0002,u
         beq   L0255
         clr   >u0098,u
         ldb   #$80
L0246    lda   ,x+
         adda  >u0098,u
         sta   >u0098,u
         decb  
         bne   L0246
         bra   L029D
L0255    ldd   #$0000
         std   >u0098,u
         lda   #$80
         sta   u0003,u
L0260    lda   ,x+
         clrb  
         eora  >u0098,u
         eorb  >u0099,u
         std   >u0098,u
         lda   #$08
         sta   u0004,u
L0273    lda   >u0098,u
         bita  #$80
         beq   L028B
         ldd   >u0098,u
         lslb  
         rola  
         eora  #$10
         eorb  #$21
         std   >u0098,u
         bra   L0291
L028B    lslb  
         rola  
         std   >u0098,u
L0291    dec   u0004,u
         bne   L0273
         dec   u0003,u
         bne   L0260
         ldd   >u0098,u
L029D    leax  <u0015,u
         tst   u0002,u
         beq   L02AA
         ldy   #$0084
         bra   L02AE
L02AA    ldy   #$0085
L02AE    lda   #$01
         os9   I$Write  
         leax  u0001,u
         ldy   #$0001
         clra  
         os9   I$Read   
         lda   u0001,u
         cmpa  #$15
         beq   L029D
         cmpa  #$06
         beq   L02CF
         cmpa  #$18
         beq   L030F
         lda   #$01
         bra   L031D
L02CF    lda   <u0016,u
         inca  
         sta   <u0016,u
         coma  
         sta   <u0017,u
         lbra  L0214
L02DD    cmpb  #$D3
         lbne  L031D
         leax  >L0107,pcr
         ldy   #$0001
         lda   #$01
         os9   I$Write  
         leax  u0001,u
         ldy   #$0001
         clra  
         os9   I$Read   
         lda   u0001,u
         cmpa  #$06
         bne   L030F
         leax  >L00BA,pcr
         ldy   #$00C8
         lda   #$01
         os9   I$WritLn 
         bra   L031C
L030F    leax  >L00D3,pcr
         ldy   #$00C8
         lda   #$01
         os9   I$WritLn 
L031C    clrb  
L031D    pshs  b
         bsr   L0326
         puls  b
         os9   F$Exit   
L0326    leax  >u00BC,u
         leax  <-$20,x
         lda   #$01
         sta   <$24,x
         leax  >u00BC,u
         clra  
         clrb  
         os9   I$SetStt 
         rts   
         pshs  y
L033E    lda   ,x+
         cmpa  #$30
         bcs   L033E
         cmpa  #$39
         bhi   L033E
         leax  -$01,x
L034A    lda   ,x+
         cmpa  #$30
         bcs   L0356
         cmpa  #$39
         bhi   L0356
         bra   L034A
L0356    pshs  x
         leax  -$01,x
         clr   u0007,u
         clr   u0008,u
         ldd   #$0001
         std   u0009,u
L0363    lda   ,-x
         cmpa  #$30
         bcs   L0397
         cmpa  #$39
         bhi   L0397
         suba  #$30
         sta   u0005,u
         ldd   #$0000
L0374    tst   u0005,u
         beq   L037E
         addd  u0009,u
         dec   u0005,u
         bra   L0374
L037E    addd  u0007,u
         std   u0007,u
         lda   #$0A
         sta   u0005,u
         ldd   #$0000
L0389    tst   u0005,u
         beq   L0393
         addd  u0009,u
         dec   u0005,u
         bra   L0389
L0393    std   u0009,u
         bra   L0363
L0397    ldd   u0007,u
         puls  x
         puls  pc,y
L039D    std   u0007,u
         lda   #$30
         sta   ,x
         sta   $01,x
         sta   $02,x
         sta   $03,x
         sta   $04,x
         ldd   #$2710
         std   u0009,u
         ldd   u0007,u
         lbsr  L03DE
         ldd   #$03E8
         std   u0009,u
         ldd   u0007,u
         bsr   L03DE
         ldd   #$0064
         std   u0009,u
         ldd   u0007,u
         bsr   L03DE
         ldd   #$000A
         std   u0009,u
         ldd   u0007,u
         bsr   L03DE
         ldd   #$0001
         std   u0009,u
         ldd   u0007,u
         bsr   L03DE
         lda   #$0D
         sta   ,x
         rts   
L03DE    subd  u0009,u
         bcs   L03E6
         inc   ,x
         bra   L03DE
L03E6    addd  u0009,u
         std   u0007,u
         leax  $01,x
         rts   
         emod
eom      equ   *
         end