         nam   sformat
         ttl   program module       

* Disassembled 02/07/15 07:16:29 by Disasm v1.6 (C) 1988 by RML

         ifp1
         use   /dd/defs/os9defs
         endc
tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $00
         mod   eom,name,tylg,atrv,start,size
u0000    rmb   1
u0001    rmb   2
u0003    rmb   1
u0004    rmb   1
u0005    rmb   2
u0007    rmb   2
u0009    rmb   1
u000A    rmb   1
u000B    rmb   1
u000C    rmb   1
u000D    rmb   1
u000E    rmb   1
u000F    rmb   1
u0010    rmb   1
u0011    rmb   1
u0012    rmb   1
u0013    rmb   1
u0014    rmb   2
u0016    rmb   1
u0017    rmb   1
u0018    rmb   2
u001A    rmb   1
u001B    rmb   2
u001D    rmb   6
u0023    rmb   1
u0024    rmb   2
u0026    rmb   5
u002B    rmb   2
u002D    rmb   3
u0030    rmb   3
u0033    rmb   1
u0034    rmb   1
u0035    rmb   2
u0037    rmb   1
u0038    rmb   1
u0039    rmb   20
u004D    rmb   2
u004F    rmb   21
u0064    rmb   9
u006D    rmb   1
u006E    rmb   3
u0071    rmb   1
u0072    rmb   1
u0073    rmb   1
u0074    rmb   1
u0075    rmb   2
u0077    rmb   2
u0079    rmb   2
u007B    rmb   1
u007C    rmb   10
u0086    rmb   7
u008D    rmb   1
u008E    rmb   1
u008F    rmb   2
u0091    rmb   1
u0092    rmb   3
u0095    rmb   3
u0098    rmb   3
u009B    rmb   1
u009C    rmb   2
u009E    rmb   2
u00A0    rmb   8
u00A8    rmb   1
u00A9    rmb   1
u00AA    rmb   1
u00AB    rmb   1
u00AC    rmb   1
u00AD    rmb   32
u00CD    rmb   9
u00D6    rmb   18
u00E8    rmb   21
u00FD    rmb   6514
u1A6F    rmb   506
size     equ   .
name     equ   *
         fcs   /sformat/
         fcb   $1B 
         fcb   $28 (
         fcb   $63 c
         fcb   $29 )
         fcb   $20 
         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   $31 1
         fcb   $39 9
         fcb   $38 8
         fcb   $33 3
         fcb   $20 
         fcb   $44 D
         fcb   $2E .
         fcb   $50 P
         fcb   $2E .
         fcb   $4A J
         fcb   $6F o
         fcb   $68 h
         fcb   $6E n
         fcb   $73 s
         fcb   $6F o
         fcb   $6E n
L0033    fcb   $0A 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $44 D
         fcb   $6F o
         fcb   $75 u
         fcb   $62 b
         fcb   $6C l
         fcb   $65 e
         fcb   $0A 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $53 S
         fcb   $69 i
         fcb   $6E n
         fcb   $67 g
         fcb   $6C l
         fcb   $65 e
         fcb   $09 
         fcb   $20 
         fcb   $44 D
         fcb   $65 e
         fcb   $6E n
         fcb   $73 s
         fcb   $69 i
         fcb   $74 t
         fcb   $79 y
         fcb   $0D 
         fcb   $0B 
         fcb   $20 
         fcb   $43 C
         fcb   $79 y
         fcb   $6C l
         fcb   $69 i
         fcb   $6E n
         fcb   $64 d
         fcb   $65 e
         fcb   $72 r
         fcb   $73 s
         fcb   $0D 
         fcb   $07 
         fcb   $20 
         fcb   $73 s
         fcb   $69 i
         fcb   $64 d
         fcb   $65 e
         fcb   $73 s
         fcb   $0D 
         fcb   $12 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $43 C
         fcb   $6F o
         fcb   $6C l
         fcb   $6F o
         fcb   $72 r
         fcb   $20 
         fcb   $43 C
         fcb   $6F o
         fcb   $6D m
         fcb   $70 p
         fcb   $75 u
         fcb   $74 t
         fcb   $65 e
         fcb   $72 r
         fcb   $11 
L007B    fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $4F O
         fcb   $53 S
         fcb   $2D -
         fcb   $39 9
         fcb   $20 
         fcb   $53 S
         fcb   $74 t
         fcb   $61 a
         fcb   $6E n
         fcb   $64 d
         fcb   $61 a
         fcb   $72 r
         fcb   $64 d
         fcb   $08 
         fcb   $20 
         fcb   $66 f
         fcb   $6F o
         fcb   $72 r
         fcb   $6D m
         fcb   $61 a
         fcb   $74 t
         fcb   $0D 
         fcb   $0F 
         fcb   $20 
         fcb   $54 T
         fcb   $72 r
         fcb   $6B k
         fcb   $20 
         fcb   $30 0
         fcb   $20 
         fcb   $53 S
         fcb   $65 e
         fcb   $63 c
         fcb   $74 t
         fcb   $6F o
         fcb   $72 r
         fcb   $73 s
         fcb   $0D 
         fcb   $0F 
         fcb   $20 
         fcb   $53 S
         fcb   $65 e
         fcb   $63 c
         fcb   $74 t
         fcb   $6F o
         fcb   $72 r
         fcb   $73 s
         fcb   $2F /
         fcb   $54 T
         fcb   $72 r
         fcb   $61 a
         fcb   $63 c
         fcb   $6B k
L00B4    fcb   $0D 
         fcb   $16 
         fcb   $43 C
         fcb   $6F o
         fcb   $6C l
         fcb   $6F o
         fcb   $72 r
         fcb   $20 
         fcb   $43 C
         fcb   $6F o
         fcb   $6D m
         fcb   $70 p
         fcb   $75 u
         fcb   $74 t
         fcb   $65 e
         fcb   $72 r
         fcb   $20 
         fcb   $46 F
         fcb   $6F o
         fcb   $72 r
         fcb   $6D m
         fcb   $61 a
         fcb   $74 t
         fcb   $3F ?
         fcb   $0F 
         fcb   $44 D
         fcb   $6F o
         fcb   $75 u
         fcb   $62 b
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $44 D
         fcb   $65 e
         fcb   $6E n
         fcb   $73 s
         fcb   $69 i
         fcb   $74 t
         fcb   $79 y
         fcb   $3F ?
         fcb   $0D 
         fcb   $44 D
         fcb   $6F o
         fcb   $75 u
         fcb   $62 b
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $53 S
         fcb   $69 i
         fcb   $64 d
         fcb   $65 e
         fcb   $64 d
         fcb   $3F ?
         fcb   $11 
         fcb   $4E N
         fcb   $6F o
         fcb   $2E .
         fcb   $20 
         fcb   $6F o
         fcb   $66 f
         fcb   $20 
         fcb   $43 C
         fcb   $79 y
         fcb   $6C l
         fcb   $69 i
         fcb   $6E n
         fcb   $64 d
         fcb   $65 e
         fcb   $72 r
         fcb   $73 s
         fcb   $3D =
         fcb   $01 
         fcb   $0D 
         fcb   $13 
         fcb   $46 F
         fcb   $4F O
         fcb   $52 R
         fcb   $4D M
         fcb   $41 A
         fcb   $54 T
         fcb   $20 
         fcb   $50 P
         fcb   $41 A
         fcb   $52 R
         fcb   $41 A
         fcb   $4D M
         fcb   $45 E
         fcb   $54 T
         fcb   $45 E
         fcb   $52 R
         fcb   $53 S
         fcb   $3A :
         fcb   $0D 
         fcb   $11 
         fcb   $46 F
         fcb   $6F o
         fcb   $72 r
         fcb   $6D m
         fcb   $61 a
         fcb   $74 t
         fcb   $74 t
         fcb   $69 i
         fcb   $6E n
         fcb   $67 g
         fcb   $20 
         fcb   $64 d
         fcb   $72 r
         fcb   $69 i
         fcb   $76 v
         fcb   $65 e
         fcb   $20 
         fcb   $1D 
         fcb   $79 y
         fcb   $20 
         fcb   $28 (
         fcb   $79 y
         fcb   $65 e
         fcb   $73 s
         fcb   $29 )
         fcb   $2C ,
         fcb   $20 
         fcb   $6E n
         fcb   $20 
         fcb   $28 (
         fcb   $6E n
         fcb   $6F o
         fcb   $29 )
         fcb   $2C ,
         fcb   $20 
         fcb   $6F o
         fcb   $72 r
         fcb   $20 
         fcb   $71 q
         fcb   $20 
         fcb   $28 (
         fcb   $71 q
         fcb   $75 u
         fcb   $69 i
         fcb   $74 t
         fcb   $29 )
         fcb   $0D 
         fcb   $06 
         fcb   $52 R
         fcb   $65 e
         fcb   $61 a
         fcb   $64 d
         fcb   $79 y
         fcb   $3F ?
         fcb   $0D 
         fcb   $56 V
         fcb   $6F o
         fcb   $6C l
         fcb   $75 u
         fcb   $6D m
         fcb   $65 e
         fcb   $20 
         fcb   $4E N
         fcb   $61 a
         fcb   $6D m
         fcb   $65 e
         fcb   $3D =
         fcb   $0D 
         fcb   $12 
         fcb   $56 V
         fcb   $65 e
         fcb   $72 r
         fcb   $69 i
         fcb   $66 f
         fcb   $79 y
         fcb   $69 i
         fcb   $6E n
         fcb   $67 g
         fcb   $20 
         fcb   $54 T
         fcb   $72 r
         fcb   $61 a
         fcb   $63 c
         fcb   $6B k
         fcb   $73 s
         fcb   $3A :
         fcb   $0D 
         fcb   $0E 
         fcb   $20 
         fcb   $47 G
         fcb   $6F o
         fcb   $6F o
         fcb   $64 d
         fcb   $20 
         fcb   $53 S
         fcb   $65 e
         fcb   $63 c
         fcb   $74 t
         fcb   $6F o
         fcb   $72 r
         fcb   $73 s
         fcb   $0D 
         fcb   $1D 
         fcb   $2A *
         fcb   $2A *
         fcb   $2A *
         fcb   $20 
         fcb   $53 S
         fcb   $54 T
         fcb   $41 A
         fcb   $4E N
         fcb   $44 D
         fcb   $41 A
         fcb   $52 R
         fcb   $44 D
         fcb   $20 
         fcb   $44 D
         fcb   $49 I
         fcb   $53 S
         fcb   $4B K
         fcb   $20 
         fcb   $46 F
         fcb   $4F O
         fcb   $52 R
         fcb   $4D M
         fcb   $41 A
         fcb   $54 T
         fcb   $20 
         fcb   $2A *
         fcb   $2A *
         fcb   $2A *
         fcb   $0D 
         fcb   $20 
         fcb   $28 (
         fcb   $43 C
         fcb   $29 )
         fcb   $20 
         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   $31 1
         fcb   $39 9
         fcb   $38 8
         fcb   $33 3
         fcb   $20 
         fcb   $44 D
         fcb   $2E .
         fcb   $50 P
         fcb   $2E .
         fcb   $20 
         fcb   $4A J
         fcb   $6F o
         fcb   $68 h
         fcb   $6E n
         fcb   $73 s
         fcb   $6F o
         fcb   $6E n
         fcb   $0D 
         fcb   $14 
         fcb   $41 A
         fcb   $4C L
         fcb   $4C L
         fcb   $20 
         fcb   $52 R
         fcb   $49 I
         fcb   $47 G
         fcb   $48 H
         fcb   $54 T
         fcb   $53 S
         fcb   $20 
         fcb   $52 R
         fcb   $45 E
         fcb   $53 S
         fcb   $45 E
         fcb   $52 R
         fcb   $56 V
         fcb   $45 E
         fcb   $44 D
         fcb   $0D 
         fcb   $0D 
         fcb   $53 S
         fcb   $59 Y
         fcb   $4E N
         fcb   $54 T
         fcb   $41 A
         fcb   $58 X
         fcb   $20 
         fcb   $45 E
         fcb   $52 R
         fcb   $52 R
         fcb   $4F O
         fcb   $52 R
         fcb   $0D 
         fcb   $1D 
         fcb   $75 u
         fcb   $73 s
         fcb   $65 e
         fcb   $3A :
         fcb   $20 
         fcb   $53 S
         fcb   $46 F
         fcb   $4F O
         fcb   $52 R
         fcb   $4D M
         fcb   $41 A
         fcb   $54 T
         fcb   $20 
         fcb   $2F /
         fcb   $64 d
         fcb   $65 e
         fcb   $76 v
         fcb   $6E n
         fcb   $61 a
         fcb   $6D m
         fcb   $65 e
         fcb   $20 
         fcb   $5B [
         fcb   $6F o
         fcb   $70 p
         fcb   $74 t
         fcb   $73 s
         fcb   $5D ]
         fcb   $0D 
         fcb   $1A 
         fcb   $20 
         fcb   $6F o
         fcb   $70 p
         fcb   $74 t
         fcb   $73 s
         fcb   $3A :
         fcb   $20 
         fcb   $53 S
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $53 S
         fcb   $69 i
         fcb   $6E n
         fcb   $67 g
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $64 d
         fcb   $65 e
         fcb   $6E n
         fcb   $73 s
         fcb   $69 i
         fcb   $74 t
         fcb   $79 y
         fcb   $0D 
         fcb   $1A 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $44 D
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $44 D
         fcb   $6F o
         fcb   $75 u
         fcb   $62 b
         fcb   $6C l
         fcb   $65 e
         fcb   $20 
         fcb   $64 d
         fcb   $65 e
         fcb   $6E n
         fcb   $73 s
         fcb   $69 i
         fcb   $74 t
         fcb   $79 y
         fcb   $0D 
         fcb   $11 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $52 R
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $52 R
         fcb   $65 e
         fcb   $61 a
         fcb   $64 d
         fcb   $79 y
         fcb   $0D 
         fcb   $12 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $31 1
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $31 1
         fcb   $20 
         fcb   $73 s
         fcb   $69 i
         fcb   $64 d
         fcb   $65 e
         fcb   $0D 
         fcb   $13 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $32 2
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $32 2
         fcb   $20 
         fcb   $73 s
         fcb   $69 i
         fcb   $64 d
         fcb   $65 e
         fcb   $73 s
         fcb   $0D 
         fcb   $12 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $34 4
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $34 4
         fcb   $38 8
         fcb   $20 
         fcb   $54 T
         fcb   $50 P
         fcb   $49 I
         fcb   $0D 
         fcb   $1C 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $4F O
         fcb   $20 
         fcb   $3D =
         fcb   $20 
         fcb   $4F O
         fcb   $53 S
         fcb   $2D -
         fcb   $39 9
         fcb   $20 
         fcb   $53 S
         fcb   $74 t
         fcb   $64 d
         fcb   $2E .
         fcb   $20 
         fcb   $66 f
         fcb   $6F o
         fcb   $72 r
         fcb   $6D m
         fcb   $61 a
         fcb   $74 t
         fcb   $0D 
         fcb   $13 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $22 "
         fcb   $64 d
         fcb   $69 i
         fcb   $73 s
         fcb   $6B k
         fcb   $20 
         fcb   $6E n
         fcb   $61 a
         fcb   $6D m
         fcb   $65 e
         fcb   $22 "
         fcb   $0D 
         fcb   $1A 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $27 '
         fcb   $6E n
         fcb   $6F o
         fcb   $2E .
         fcb   $20 
         fcb   $6F o
         fcb   $66 f
         fcb   $20 
         fcb   $63 c
         fcb   $79 y
         fcb   $6C l
         fcb   $69 i
         fcb   $6E n
         fcb   $64 d
         fcb   $65 e
         fcb   $72 r
         fcb   $73 s
         fcb   $27 '
         fcb   $0D 
         fcb   $14 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $20 
         fcb   $3A :
         fcb   $49 I
         fcb   $6E n
         fcb   $74 t
         fcb   $65 e
         fcb   $72 r
         fcb   $6C l
         fcb   $65 e
         fcb   $61 a
         fcb   $76 v
         fcb   $65 e
         fcb   $3A :
         fcb   $0D 
         fcb   $11 
         fcb   $43 C
         fcb   $68 h
         fcb   $61 a
         fcb   $6E n
         fcb   $67 g
         fcb   $65 e
         fcb   $20 
         fcb   $74 t
         fcb   $6F o
         fcb   $20 
         fcb   $34 4
         fcb   $38 8
         fcb   $20 
         fcb   $74 t
         fcb   $70 p
         fcb   $69 i
         fcb   $3F ?
         fcb   $13 
         fcb   $53 S
         fcb   $79 y
         fcb   $73 s
         fcb   $74 t
         fcb   $65 e
         fcb   $6D m
         fcb   $20 
         fcb   $53 S
         fcb   $65 e
         fcb   $63 c
         fcb   $74 t
         fcb   $6F o
         fcb   $72 r
         fcb   $20 
         fcb   $42 B
         fcb   $41 A
         fcb   $44 D
         fcb   $07 
         fcb   $0D 
         fcb   $01 
         fcb   $28 (
L0304    fcb   $27 '
         fcb   $FF 
         fcb   $01 
         fcb   $FF 
         fcb   $06 
         fcb   $00 
         fcb   $01 
         fcb   $FC 
         fcb   $0C 
         fcb   $FF 
         fcb   $05 
         fcb   $00 
         fcb   $01 
         fcb   $00 
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $01 
         fcb   $01 
         fcb   $F7 w
         fcb   $0A 
         fcb   $FF 
         fcb   $06 
         fcb   $00 
         fcb   $01 
         fcb   $FB 
         fcb   $00 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $08 
         fcb   $FF 
         fcb   $02 
         fcb   $FF 
         fcb   $01 
         fcb   $52 R
L0328    fcb   $50 P
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F6 v
         fcb   $01 
         fcb   $FC 
         fcb   $20 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $01 
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FB 
         fcb   $00 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $01 
         fcb   $50 P
L034C    fcb   $20 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F6 v
         fcb   $01 
         fcb   $FC 
         fcb   $20 
         fcb   $4E N
         fcb   $08 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FE 
         fcb   $04 
         fcb   $01 
         fcb   $01 
         fcb   $F7 w
         fcb   $16 
         fcb   $4E N
         fcb   $0C 
         fcb   $00 
         fcb   $03 
         fcb   $F5 u
         fcb   $01 
         fcb   $FB 
         fcb   $00 
         fcb   $E5 e
         fcb   $01 
         fcb   $F7 w
         fcb   $18 
         fcb   $4E N
start    equ   *
         pshs  u
         clrb  
L0371    clr   ,u+
         decb  
         bne   L0371
         puls  u
         stu   <u0005
L037A    lda   ,x+
         cmpa  #$20
         beq   L037A
         cmpa  #$2F
         bne   L03EA
         sta   <u0023
         os9   F$PrsNam 
         bcs   L03EA
         stb   <u001A
         inc   <u001A
         leay  <u0024,u
L0392    lda   ,x+
         sta   -$07,y
         sta   ,y+
         decb  
         bne   L0392
         lda   #$40
         ldb   #$0D
         std   ,y
         stb   -$07,y
         stx   <u0001
         lbsr  L05FB
         lbra  L1AAD
         clra  
         lbsr  L1AB1
         fcb   $4B K
         fcb   $18 
         lbsr  L05FB
         jmp   <u004F
         leax  <u001D,u
         os9   I$Attach 
         lbcs  L09B9
         stu   <u001B
         ldu   <u0005
         lda   #$01
         clrb  
         leax  <u004D,u
         os9   I$GetStt 
         lbcs  L09B9
         ldb   $07,x
         stb   <u006D
         clr   $07,x
         clrb  
         os9   I$SetStt 
         bcs   L03E7
         leax  <u0023,u
         lda   #$02
         os9   I$Open   
         bcc   L03F1
L03E7    lbra  L09A6
L03EA    lbsr  L0AB8
         clrb  
         os9   F$Exit   
L03F1    sta   <u0000
         ldb   #$00
         leax  <u006E,u
         os9   I$GetStt 
         bcs   L03E7
         lda   <u0072,u
         tfr   a,b
         anda  #$01
         sta   <u000D
         andb  #$02
         stb   <u000C
         lda   <u0071,u
         tfr   a,b
         anda  #$81
         lbne  L0AAB
         andb  #$20
         stb   <u0011
         ldd   <u0074,u
         std   <u000E
         ldd   <u0077,u
         stb   <u0013
         ldd   <u0079,u
         stb   <u0012
         ldb   <u007B,u
         stb   <u0010
         bra   L0436
L042F    cmpa  #$60
         bls   L0435
         suba  #$20
L0435    rts   
L0436    ldx   <u0001
L0438    lda   ,x+
         bsr   L042F
         cmpa  #$0D
         lbeq  L0502
         ldb   #$01
         tst   <u0011
         bne   L0456
         cmpa  #$53
         bne   L0456
         clr   <u000D
         lda   #$0A
         sta   <u0012
         sta   <u0013
         bra   L0438
L0456    cmpa  #$44
         bne   L045E
         stb   <u000D
         bra   L0438
L045E    cmpa  #$52
         bne   L0480
         stb   <u0003
         bra   L0438
         cmpa  #$43
         bne   L0478
         lda   #$20
         sta   <u0011
         stb   <u000D
         lda   #$12
         sta   <u0012
         sta   <u0013
         bra   L0438
L0478    cmpa  #$4F
         bne   L0480
         clr   <u0011
         bra   L0438
L0480    cmpa  #$31
         bne   L0488
         stb   <u000F
         bra   L0438
L0488    cmpa  #$32
         bne   L0497
         cmpb  <u0075
         lbeq  L0AAB
         incb  
         stb   <u000F
         bra   L0438
L0497    cmpa  #$34
         bne   L049F
         clr   <u000C
         bra   L04D5
L049F    cmpa  #$27
         bne   L04BD
         lbsr  L069E
         lbcs  L0AB0
         cmpd  <u0073
         lbhi  L0AAB
         stb   <u000E
         lda   ,x+
         cmpa  #$27
         lbne  L0AB0
         bra   L04D5
L04BD    cmpa  #$22
         bne   L04EF
         inc   <u0004
         leay  >u00AD,u
         ldb   #$20
L04C9    lda   ,x+
         cmpa  #$22
         bne   L04D8
L04CF    lda   ,-y
         ora   #$80
         sta   ,y
L04D5    lbra  L0438
L04D8    cmpa  #$0D
         lbeq  L0AB0
         sta   ,y+
         decb  
         bne   L04C9
L04E3    lda   ,x+
         cmpa  #$22
         beq   L04CF
         cmpa  #$0D
         beq   L04CF
         bra   L04E3
L04EF    cmpa  #$3A
         bne   L04D5
         lbsr  L069E
         stb   <u0010
         lda   ,x+
         cmpa  #$3A
         lbne  L0AB0
         bra   L04D5
L0502    bsr   L057F
         clr   <u008D
         lsl   >$0E0D
         tst   <u0026
         eim   #$8D,<u0071
         oim   #$20,<u0003
         bsr   L057F
         neg   <u008D
         rol   $02,x
         ldb   <u000E
         lbsr  L0638
         bsr   L057F
         com   <u00D6
         clr   <u0017
         oim   #$14,<u008D
         rolb  
         lsr   <u000D
         fcb   $11 
         beq   L0530
         bsr   L057F
         eim   #$20,<u0003
L0530    bsr   L057F
         ror   <u008D
         deca  
         asr   <u00D6
         nop   
         lbsr  L0638
         bsr   L057F
         lsl   <u00D6
         sync  
         lbsr  L0638
         bsr   L057F
         rol   <u008D
         pulu  dp,b,a
         bsr   L057F
L054B    fcb   $10 
         ldb   <u001A
         clra  
         tfr   d,y
         leax  <u0023,u
         lda   #$01
         os9   I$WritLn 
         lbcs  L03E7
         bsr   L057F
         jmp   <u000D
         com   <u0010
         bne   L0566
         bita  #$8D
         lbsr  L16F7
         sexw  
         nop   
         lbsr  L061D
         lbeq  L06EB
         cmpa  #$51
         lbeq  L09A0
         cmpa  #$4E
         bne   L0546
         bra   L0581
L057F    bra   L05FB
L0581    bra   L059D
         bsr   L05FB
         dec   <u000F
         fcb   $11 
         lbsr  L061D
         bne   L059D
         lda   #$20
         sta   <u0011
         lda   #$12
         sta   <u0012
         sta   <u0013
         lda   #$01
         sta   <u000D
         bra   L05B6
L059D    tst   <u0011
         bne   L05B6
         lda   #$0A
         sta   <u0012
         sta   <u0013
         bsr   L05FB
         tim   #$0F,<u000D
         bsr   L061D
         bne   L05B6
         inc   <u000D
         lda   #$10
         sta   <u0013
L05B6    tst   <u000C
         beq   L05C3
         bsr   L05FB
         bcs   L054B
         fcb   $5E ^
         bne   L05C3
         clr   <u000C
L05C3    lda   <u0075
         cmpa  #$01
         beq   L05D6
         bsr   L05FB
         inc   <u0086
         oim   #$97,<u000F
         bsr   L061D
         bne   L05D6
         inc   <u000F
L05D6    bsr   L05FB
         tst   <u0010
         ldx   #$0050
         leax  >u00CD,u
         clra  
         os9   I$ReadLn 
         lbcs  L03E7
         lbsr  L069E
         bcs   L05D6
         cmpd  <u0073
         bhi   L05D6
         stb   <u000E
         bsr   L05FB
         jmp   <u0016
         stu   >$0735
         ldw   ,x+
         pshs  x
         leax  >L0033,pcr
L0605    tsta  
         beq   L060E
         ldb   ,x+
         abx   
         deca  
         bra   L0605
L060E    ldb   ,x+
         clra  
         tfr   d,y
         lda   #$01
         os9   I$WritLn 
         lbcs  L03E7
         rts   
L061D    clr   ,-s
         tfr   s,x
         ldy   #$0001
         clra  
         os9   I$Read   
         lbcs  L03E7
         bsr   L05FB
         jmp   <u0035
         aim   #$17,<u00FD
         orb   >$8159
         rts   
L0638    clra  
         leax  <u002B,u
         ldy   #$0004
         bsr   L065D
         leax  <u002D,u
         ldy   #$0003
         lda   #$01
         os9   I$WritLn 
         lbcs  L03E7
         rts   
L0653    beq   L0665
         com   <u00E8
         neg   <u0064
         neg   <u000A
         neg   <u0001
L065D    pshs  y
         pshs  x,b,a
         lda   #$30
         ldb   #$05
L0665    stb   $04,s
L0667    sta   ,x+
         decb  
         bne   L0667
         puls  x,b,a
         pshs  x,b,a
         leay  <L0653,pcr
L0673    subd  ,y
         bcs   L067B
         inc   ,x
         bra   L0673
L067B    addd  ,y++
         leax  $01,x
         dec   $04,s
         bne   L0673
         puls  x,b,a
         puls  y
         pshs  y
         tst   $01,s
         beq   L069B
         lda   #$30
         ldb   #$20
L0691    cmpa  ,x
         bne   L069B
         stb   ,x+
         dec   $01,s
         bne   L0691
L069B    leas  $02,s
         rts   
L069E    pshs  y
         leay  u0007,u
         bsr   L06A6
         puls  pc,y
L06A6    clrb  
         clra  
         std   ,y
L06AA    lda   ,x+
         cmpa  #$20
         beq   L06AA
         cmpa  #$30
         bcs   L06E2
         cmpa  #$39
         bhi   L06E2
         suba  #$30
         sta   $01,y
L06BC    ldb   ,x+
         cmpb  #$30
         bcs   L06E5
         cmpb  #$39
         bhi   L06E5
         subb  #$30
         clra  
         pshs  b,a
         lda   $01,y
         ldb   #$0A
         mul   
         pshs  b,a
         lda   ,y
         ldb   #$0A
         mul   
         tfr   b,a
         clrb  
         addd  ,s++
         addd  ,s++
         std   ,y
         bra   L06BC
L06E2    comb  
         bra   L06E6
L06E5    clrb  
L06E6    leax  -$01,x
         ldd   ,y
         rts   
L06EB    lda   <u0000
         ldb   #$03
         os9   I$SetStt 
         lda   <u000D
         pshs  a
         tst   <u0011
         beq   L070E
         leax  >L034C,pcr
L06FE    lda   <u0012
         lbsr  L0A01
         clra  
         clrb  
         lbsr  L09BC
         puls  a
         sta   <u000D
         bra   L0716
L070E    leax  >L0304,pcr
         clr   <u000D
         bra   L06FE
L0716    leax  >L034C,pcr
         tst   <u0011
         bne   L0734
         leax  >L0304,pcr
         tst   <u000D
         beq   L0734
         leax  >L0328,pcr
         lda   <u0013
         cmpa  #$10
         bls   L0734
         leax  >L034C,pcr
L0734    lda   <u0013
         lbsr  L0A01
         bra   L0746
L073B    lda   <u0009
         inca  
         cmpa  <u000E
         beq   L0755
         clrb  
         lbsr  L09BC
L0746    lda   <u000F
         cmpa  #$02
         bne   L073B
         lda   <u0009
         ldb   #$01
         lbsr  L09BC
         bra   L073B
L0755    lda   <u0013
         sta   <u0091
         sta   <u00A0
         ldd   <u008F
         addd  #$0007
         lsra  
         rorb  
         lsra  
         rorb  
         lsra  
         rorb  
         std   <u0092
         subd  #$0001
         pshs  a
         ldb   #$02
         addb  ,s+
         stb   <u0098
         ldb   #$01
         stb   <u0095
         lda   <u000C
         ora   <u000D
         lsla  
         ldb   <u000F
         cmpb  #$02
         bne   L0783
         inca  
L0783    sta   <u009E
         lda   <u00AD
         leax  >u00A8,u
         os9   F$Time   
         sta   <u00AD
         tst   <u0004
         bne   L07B8
         lbsr  L05FB
         sync  
         leax  >u00AD,u
         ldy   #$0020
         clra  
         os9   I$ReadLn 
         lbcs  L03E7
         tfr   y,d
L07AA    decb  
         lda   b,x
         tstb  
         beq   L07B4
         cmpa  #$0D
         beq   L07AA
L07B4    ora   #$80
         sta   b,x
L07B8    lda   #$FF
         sta   <u009B
         ldd   <u00A9
         addd  <u00AB
         pshs  b,a
         ldb   <u00AC
         leax  >u00AD,u
L07C8    lda   ,s
         eora  b,x
         sta   ,s
         rola  
         rol   $01,s
         rol   ,s
         decb  
         bne   L07C8
         puls  b,a
         addd  <u000D
         subd  <u0011
         addd  <u0005
         subd  <u0001
         std   <u009C
         leax  >u00CD,u
         ldy   #$1000
L07EA    clr   ,x+
         leay  -$01,y
         bne   L07EA
         lda   <u0000
         ldb   #$03
         os9   I$SetStt 
         ldy   #$0100
         leax  >u008E,u
         os9   I$Write  
         lbcs  L03E7
         ldd   <u0092
         inca  
         clrb  
         tfr   d,y
         leax  >u00CD,u
         lda   #$FF
L0812    sta   ,x+
         leay  -$01,y
         bne   L0812
         ldy   <u008F
         leax  >u00CD,u
         clra  
         clrb  
         os9   F$DelBit 
         ldb   <u0092
         addb  #$02
         addb  <u007C
         std   <u0037
         tfr   d,y
         clra  
         clrb  
         os9   F$AllBit 
         lda   <u0000
         os9   I$Close  
         bcc   L083D
L083A    lbra  L09A6
L083D    leax  <u0023,u
         lda   #$01
         os9   I$Open   
         bcs   L083A
         sta   <u0000
         leax  >u1A6F,u
         ldy   #$0100
         os9   I$Read   
         bcs   L083A
         os9   I$Read   
         bcs   L083A
         lda   <u0000
         os9   I$Close  
         bcs   L083A
         leax  <u0023,u
         lda   #$03
         os9   I$Open   
         bcs   L083A
         sta   <u0000
         ldd   <u008F
         std   <u0035
         lda   <u0000
         ldx   #$0000
         tfr   x,u
         os9   I$Seek   
         ldu   <u0005
         lbcs  L091A
         lbsr  L05FB
         sexw  
L0886    ldd   <u0030
         cmpd  <u008F
         lbeq  L091D
         tst   <u0034
         bne   L08B6
         ldy   #$0001
         leax  >L00B4,pcr
         lda   #$01
         os9   I$Write  
         bcs   L091A
         ldb   <u0033
         lbsr  L0638
         leax  >L007B,pcr
         ldy   #$0001
         lda   #$01
         os9   I$WritLn 
         bcs   L091A
L08B6    leax  >u1A6F,u
         ldy   #$0100
         lda   <u0000
         os9   I$Read   
         bcc   L08F6
         ldd   <u0030
         cmpd  <u0037
         bcs   L0914
         ldy   #$0001
         leax  >u00CD,u
         os9   F$AllBit 
         ldd   <u0035
         subd  #$0001
         std   <u0035
         clrb  
L08DF    pshs  b
         ldd   <u0030
         addd  #$0001
         pshs  b,a
         clrb  
         pshs  b
         puls  u,x
         lda   <u0000
         os9   I$Seek   
         ldu   <u0005
         bcs   L091A
L08F6    ldd   <u0030
         addd  #$0001
         std   <u0030
         inc   <u0034
         ldb   <u0012
         clra  
         cmpd  <u0030
         bcc   L0909
         ldb   <u0013
L0909    cmpb  <u0034
         bne   L0911
         clr   <u0034
         inc   <u0033
L0911    lbra  L0886
L0914    lbsr  L05FB
         bne   L08DF
         oim   #$16,<u0000
         adca  #$17
         ldd   >$DB0E
         ldd   <u0035
         leax  <u002B,u
         ldy   #$0004
         lbsr  L065D
         leax  <u002B,u
         ldy   #$0005
         lda   #$01
         os9   I$WritLn 
         bcs   L091A
         lbsr  L05FB
         fcb   $15 
         ldx   #$0000
         ldu   #$0100
         lda   <u0000
         os9   I$Seek   
         ldu   <u0005
         bcs   L091A
         leax  >u00CD,u
         lda   <u0098
         deca  
         clrb  
         leax  d,x
         lda   #$BF
         sta   ,x
         ldd   <u00A8
         std   $03,x
         std   $0D,x
         ldd   <u00AA
         std   $05,x
         sta   $0F,x
         lda   <u00AC
         sta   $07,x
         lda   #$40
         sta   $0C,x
         ldb   <u0098
         stb   >$011F,x
         stb   >$013F,x
         incb  
         stb   <$12,x
         ldb   <u007C
         decb  
         stb   <$14,x
         ldd   #$2EAE
         std   >$0100,x
         stb   >$0120,x
         lda   <u0038
         deca  
         clrb  
         tfr   d,y
         leax  >u00CD,u
         lda   <u0000
         os9   I$Write  
         bcs   L09A6
L09A0    ldu   <u001B
         os9   I$Detach 
L09A5    clrb  
L09A6    pshs  b,cc
         ldb   <u006D
         ldu   <u0005
         leax  <u004D,u
         stb   $07,x
         lda   #$01
         clrb  
         os9   I$SetStt 
         puls  b,cc
L09B9    os9   F$Exit   
L09BC    bsr   L09E9
         pshs  u
         clra  
         ldb   <u000D
         orb   <u000C
         lslb  
         orb   <u000A
         tfr   d,y
         ldb   <u0009
         pshs  b,a
         leax  >u00CD,u
         puls  u
         lda   <u0000
         ldb   #$04
         os9   I$SetStt 
         bcc   L09DF
         bra   L09A6
L09DF    ldd   <u008F
         addb  <u000B
         adca  #$00
         std   <u008F
         puls  pc,u
L09E9    std   <u0009
         ldb   <u000B
         pshs  b
         ldx   <u0014
L09F1    ldd   <u0009
         std   ,x
         tfr   x,d
         addd  <u0018
         tfr   d,x
         dec   ,s
         bne   L09F1
         puls  pc,b
L0A01    sta   <u000B
         ldb   <u0010
         lbsr  L0A7E
         leay  >u00CD,u
         clrb  
         pshs  x,b,a
         ldd   -$02,x
         std   <u0018
         ldb   #$05
         bsr   L0A6F
         stx   <u0016
         ldb   #$03
         bsr   L0A6F
         sty   <u0014
         ldb   #$09
         bsr   L0A6F
         ldb   ,s
         decb  
         pshs  b
L0A29    ldx   <u0016
         ldb   #$0C
         bsr   L0A6F
         dec   ,s
         bne   L0A29
         leas  $01,s
         leax  >u1A6F,u
         tfr   x,d
         pshs  y
         subd  ,s
         std   ,s
         ldx   $04,s
         lda   $01,x
         puls  x
L0A47    sta   ,y+
         leax  -$01,x
         bne   L0A47
         ldy   <u0014
         leax  <u0039,u
         ldb   $01,s
L0A55    lda   b,x
         tst   <u0011
         beq   L0A5C
         inca  
L0A5C    sta   $02,y
L0A5E    incb  
         stb   $01,s
         tfr   y,d
         addd  <u0018
         tfr   d,y
         ldb   $01,s
         cmpb  ,s
         bne   L0A55
         puls  pc,x,b,a
L0A6F    pshs  b
L0A71    ldd   ,x++
L0A73    stb   ,y+
         deca  
         bne   L0A73
         dec   ,s
         bne   L0A71
         puls  pc,b
L0A7E    pshs  x,b,a
         leax  <u0039,u
         lda   #$FF
         ldb   #$14
L0A87    sta   ,x+
         decb  
         bne   L0A87
         leax  <u0039,u
         clra  
         clrb  
         bra   L0A94
L0A93    incb  
L0A94    cmpb  ,s
         bcs   L0A9A
         subb  ,s
L0A9A    tst   b,x
         bpl   L0A93
         sta   b,x
         inca  
         cmpa  ,s
         beq   L0AA9
         addb  $01,s
         bra   L0A94
L0AA9    puls  pc,x,b,a
L0AAB    ldb   #$F9
         os9   F$Exit   
L0AB0    bsr   L0AB8
         lbra  L09A5
L0AB5    lbra  L05FB
L0AB8    bsr   L0AB5
         daa   
         bsr   L0AB5
         orcc  #$8D
         bitb  >$1B8D
         sbcb  >$1C8D
         stu   -$03,x
         bsr   L0AB5
         exg   a,0
         adcb  -$01,x
         bsr   L0AB5
         bra   L0A5E
         addd  $02,y
         bsr   L0AB5
         bls   L0A64
         std   <u0024
         rts   
         fcb   $01 
         fcb   $E9 i
         emod
eom      equ   *
