changeset 25:ad78331ace28

Prego; The basic09 interpreter.
author roug
date Sat, 06 Apr 2002 14:47:31 +0000
parents 01a6e267aa38
children 33ae014c4b25
files 3rdparty/packages/basic09/README 3rdparty/packages/basic09/basic09.asm 3rdparty/packages/basic09/edit.asm 3rdparty/packages/basic09/gfx-d64.asm 3rdparty/packages/basic09/inkey-d64.asm 3rdparty/packages/basic09/runb.asm
diffstat 6 files changed, 22001 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/README	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,43 @@
+Though RunB (the I-CODE interpreter) came on the OS-9 disks,
+Basic09 was not distributed as part of the OS-9 system.
+You had to purchase it separately. I therefore considered it
+more appropiate to treat both applications as a united
+3rd party package.
+
+The Basic09 I own was purchased from Dragon Data Ltd. They
+had changed the welcome message, but otherwise I think it
+is exactly the same Basic09 as was distributed by Microware.
+
+            BASIC09
+COPYRIGHT 1980 BY MOTOROLA INC.
+  AND MICROWARE SYSTEMS CORP.
+   REPRODUCED UNDER LICENSE
+     TO DRAGON DATA LTD.
+    ALL RIGHTS RESERVED.
+
+Basic09
+Ready
+B:
+
+Identification
+---------------------------------
+Header for:  Basic09
+Module size: $5AB5    #23221
+Module CRC:  $E3C48D (Good)
+Hdr parity:  $d1 (Good)
+Exec. off:   $07AA    #1962
+Data size:   $1000    #4096
+Edition:     $16      #22
+Ty/La At/Rv: $11 $81
+Prog mod, 6809 obj, re-en
+
+Header for:  RunB
+Module size: $2F99    #12185
+Module CRC:  $A4D050 (Good)
+Hdr parity:  $88 (Good)
+Exec. off:   $0195    #405
+Data size:   $1000    #4096
+Edition:     $16      #22
+Ty/La At/Rv: $11 $81
+Prog mod, 6809 obj, re-en
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/basic09.asm	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,12367 @@
+********************************************************************
+* progname - program module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Basic09 from Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/04/06 14:47:31  roug
+* Prego; The basic09 interpreter.
+*
+*
+
+         nam   Basic09
+         ttl   program module       
+
+* Disassembled 02/04/06 16:19:46 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   /dd/defs/os9defs
+         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   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   1
+u0015    rmb   1
+u0016    rmb   1
+u0017    rmb   1
+u0018    rmb   1
+u0019    rmb   1
+u001A    rmb   1
+u001B    rmb   1
+u001C    rmb   2
+u001E    rmb   1
+u001F    rmb   1
+u0020    rmb   1
+u0021    rmb   1
+u0022    rmb   1
+u0023    rmb   2
+u0025    rmb   1
+u0026    rmb   1
+u0027    rmb   3
+u002A    rmb   2
+u002C    rmb   1
+u002D    rmb   1
+u002E    rmb   1
+u002F    rmb   1
+u0030    rmb   1
+u0031    rmb   1
+u0032    rmb   1
+u0033    rmb   1
+u0034    rmb   1
+u0035    rmb   1
+u0036    rmb   1
+u0037    rmb   2
+u0039    rmb   1
+u003A    rmb   1
+u003B    rmb   1
+u003C    rmb   1
+u003D    rmb   1
+u003E    rmb   1
+u003F    rmb   1
+u0040    rmb   2
+u0042    rmb   1
+u0043    rmb   1
+u0044    rmb   1
+u0045    rmb   1
+u0046    rmb   2
+u0048    rmb   1
+u0049    rmb   1
+u004A    rmb   1
+u004B    rmb   1
+u004C    rmb   1
+u004D    rmb   1
+u004E    rmb   2
+u0050    rmb   1
+u0051    rmb   1
+u0052    rmb   1
+u0053    rmb   1
+u0054    rmb   1
+u0055    rmb   1
+u0056    rmb   1
+u0057    rmb   1
+u0058    rmb   1
+u0059    rmb   1
+u005A    rmb   2
+u005C    rmb   2
+u005E    rmb   1
+u005F    rmb   1
+u0060    rmb   1
+u0061    rmb   1
+u0062    rmb   2
+u0064    rmb   2
+u0066    rmb   1
+u0067    rmb   1
+u0068    rmb   1
+u0069    rmb   1
+u006A    rmb   1
+u006B    rmb   1
+u006C    rmb   1
+u006D    rmb   1
+u006E    rmb   1
+u006F    rmb   1
+u0070    rmb   2
+u0072    rmb   2
+u0074    rmb   1
+u0075    rmb   1
+u0076    rmb   1
+u0077    rmb   1
+u0078    rmb   1
+u0079    rmb   1
+u007A    rmb   1
+u007B    rmb   1
+u007C    rmb   1
+u007D    rmb   1
+u007E    rmb   1
+u007F    rmb   1
+u0080    rmb   1
+u0081    rmb   1
+u0082    rmb   1
+u0083    rmb   1
+u0084    rmb   1
+u0085    rmb   1
+u0086    rmb   1
+u0087    rmb   1
+u0088    rmb   1
+u0089    rmb   1
+u008A    rmb   1
+u008B    rmb   1
+u008C    rmb   2
+u008E    rmb   2
+u0090    rmb   1
+u0091    rmb   1
+u0092    rmb   2
+u0094    rmb   1
+u0095    rmb   1
+u0096    rmb   1
+u0097    rmb   1
+u0098    rmb   1
+u0099    rmb   1
+u009A    rmb   1
+u009B    rmb   1
+u009C    rmb   1
+u009D    rmb   1
+u009E    rmb   1
+u009F    rmb   1
+u00A0    rmb   1
+u00A1    rmb   1
+u00A2    rmb   1
+u00A3    rmb   1
+u00A4    rmb   1
+u00A5    rmb   1
+u00A6    rmb   1
+u00A7    rmb   1
+u00A8    rmb   1
+u00A9    rmb   1
+u00AA    rmb   1
+u00AB    rmb   1
+u00AC    rmb   1
+u00AD    rmb   1
+u00AE    rmb   1
+u00AF    rmb   1
+u00B0    rmb   1
+u00B1    rmb   2
+u00B3    rmb   1
+u00B4    rmb   1
+u00B5    rmb   2
+u00B7    rmb   2
+u00B9    rmb   1
+u00BA    rmb   1
+u00BB    rmb   1
+u00BC    rmb   1
+u00BD    rmb   1
+u00BE    rmb   1
+u00BF    rmb   2
+u00C1    rmb   2
+u00C3    rmb   2
+u00C5    rmb   1
+u00C6    rmb   1
+u00C7    rmb   1
+u00C8    rmb   2
+u00CA    rmb   1
+u00CB    rmb   1
+u00CC    rmb   1
+u00CD    rmb   1
+u00CE    rmb   1
+u00CF    rmb   1
+u00D0    rmb   1
+u00D1    rmb   1
+u00D2    rmb   1
+u00D3    rmb   1
+u00D4    rmb   2
+u00D6    rmb   2
+u00D8    rmb   1
+u00D9    rmb   1
+u00DA    rmb   1
+u00DB    rmb   1
+u00DC    rmb   1
+u00DD    rmb   1
+u00DE    rmb   1
+u00DF    rmb   1
+u00E0    rmb   1
+u00E1    rmb   1
+u00E2    rmb   2
+u00E4    rmb   1
+u00E5    rmb   1
+u00E6    rmb   2
+u00E8    rmb   2
+u00EA    rmb   1
+u00EB    rmb   4
+u00EF    rmb   3
+u00F2    rmb   1
+u00F3    rmb   2
+u00F5    rmb   4
+u00F9    rmb   1
+u00FA    rmb   4
+u00FE    rmb   1
+u00FF    rmb   1
+u0100    rmb   3840
+size     equ   .
+L000D    fcb   $00 
+         fcb   $C5 E
+         fcb   $1C 
+         fcb   $8E 
+         fcb   $25 %
+         fcb   $43 C
+         fcb   $31 1
+         fcb   $D1 Q
+         fcb   $3B ;
+         fcb   $F2 r
+         fcb   $50 P
+         fcb   $6D m
+         fcb   $00 
+         fcb   $00 
+name     equ   *
+L001B    fcs   /Basic09/
+         fcb   $16 
+         fcb   $07 
+L0024    fcb   $0C 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $42 B
+         fcb   $41 A
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $30 0
+         fcb   $39 9
+         fcb   $0A 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $50 P
+         fcb   $59 Y
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $47 G
+         fcb   $48 H
+         fcb   $54 T
+         fcb   $20 
+         fcb   $31 1
+         fcb   $39 9
+         fcb   $38 8
+         fcb   $30 0
+         fcb   $20 
+         fcb   $42 B
+         fcb   $59 Y
+         fcb   $20 
+         fcb   $4D M
+         fcb   $4F O
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $4C L
+         fcb   $41 A
+         fcb   $20 
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $43 C
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $20 
+         fcb   $4D M
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $57 W
+         fcb   $41 A
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $20 
+         fcb   $53 S
+         fcb   $59 Y
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $4D M
+         fcb   $53 S
+         fcb   $20 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $50 P
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $44 D
+         fcb   $55 U
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $20 
+         fcb   $55 U
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $52 R
+         fcb   $20 
+         fcb   $4C L
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $53 S
+         fcb   $45 E
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $20 
+         fcb   $44 D
+         fcb   $52 R
+         fcb   $41 A
+         fcb   $47 G
+         fcb   $4F O
+         fcb   $4E N
+         fcb   $20 
+         fcb   $44 D
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $41 A
+         fcb   $20 
+         fcb   $4C L
+         fcb   $54 T
+         fcb   $44 D
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         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   $2E .
+         fcb   $8A 
+         fcb   $34 4
+         fcb   $16 
+         fcb   $E6 f
+         fcb   $F8 x
+         fcb   $04 
+         fcb   $30 0
+         fcb   $8C 
+         fcb   $08 
+         fcb   $EC l
+         fcb   $85 
+         fcb   $30 0
+         fcb   $8B 
+         fcb   $AF /
+         fcb   $64 d
+         fcb   $35 5
+         fcb   $96 
+         fcb   $0E 
+         fcb   $A5 %
+         fcb   $11 
+         fcb   $9B 
+         fcb   $07 
+         fcb   $AD -
+         fcb   $07 
+         fcb   $A3 #
+         fcb   $17 
+         fcb   $D2 R
+         fcb   $0D 
+         fcb   $87 
+         fcb   $0D 
+         fcb   $81 
+         fcb   $0D 
+         fcb   $A3 #
+         fcb   $1A 
+         fcb   $B6 6
+         fcb   $12 
+         fcb   $0D 
+         fcb   $18 
+         fcb   $C5 E
+         fcb   $10 
+         fcb   $20 
+         fcb   $0F 
+         fcb   $3A :
+         fcb   $0F 
+         fcb   $C0 @
+         fcb   $0F 
+         fcb   $C5 E
+L00F3    fcb   $9D 
+         fcb   $1E 
+         fcb   $04 
+L00F6    fcb   $9D 
+         fcb   $1E 
+         fcb   $02 
+L00F9    fcb   $9D 
+         fcb   $1E 
+         fcb   $00 
+L00FC    fcb   $9D 
+         fcb   $21 !
+         fcb   $00 
+L00FF    fcb   $9D 
+         fcb   $24 $
+         fcb   $00 
+L0102    fcb   $9D 
+         fcb   $24 $
+         fcb   $04 
+L0105    fcb   $9D 
+         fcb   $24 $
+         fcb   $02 
+L0108    fcb   $9D 
+         fcb   $2A *
+         fcb   $02 
+L010B    fcb   $9D 
+         fcb   $1E 
+         fcb   $0A 
+L010E    fcb   $9D 
+         fcb   $1E 
+         fcb   $06 
+L0111    fcb   $9D 
+         fcb   $21 !
+         fcb   $02 
+L0114    fcb   $9D 
+         fcb   $21 !
+         fcb   $06 
+L0117    fcb   $9D 
+         fcb   $21 !
+         fcb   $04 
+         fcb   $9D 
+         fcb   $24 $
+         fcb   $0A 
+L011D    fcb   $9D 
+         fcb   $24 $
+         fcb   $0C 
+L0120    fcb   $9D 
+         fcb   $24 $
+         fcb   $08 
+L0123    fcb   $9D 
+         fcb   $2A *
+         fcb   $00 
+         fcb   $00 
+         fcb   $72 r
+         fcb   $02 
+L0129    fcb   $01 
+         fcb   $01 
+         fcb   $50 P
+         fcb   $41 A
+         fcb   $52 R
+         fcb   $41 A
+         fcb   $CD M
+         fcb   $02 
+         fcb   $01 
+         fcb   $54 T
+         fcb   $59 Y
+         fcb   $50 P
+         fcb   $C5 E
+         fcb   $03 
+         fcb   $01 
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $CD M
+         fcb   $04 
+         fcb   $01 
+         fcb   $44 D
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $C1 A
+         fcb   $05 
+         fcb   $01 
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $D0 P
+         fcb   $06 
+         fcb   $01 
+         fcb   $42 B
+         fcb   $59 Y
+         fcb   $C5 E
+         fcb   $07 
+         fcb   $01 
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $CE N
+         fcb   $08 
+         fcb   $01 
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $46 F
+         fcb   $C6 F
+         fcb   $09 
+         fcb   $01 
+         fcb   $50 P
+         fcb   $41 A
+         fcb   $55 U
+         fcb   $53 S
+         fcb   $C5 E
+         fcb   $0A 
+         fcb   $01 
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $C7 G
+         fcb   $0B 
+         fcb   $01 
+         fcb   $52 R
+         fcb   $41 A
+         fcb   $C4 D
+         fcb   $0C 
+         fcb   $01 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $54 T
+         fcb   $55 U
+         fcb   $52 R
+         fcb   $CE N
+         fcb   $0D 
+         fcb   $01 
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $D4 T
+         fcb   $0F 
+         fcb   $01 
+         fcb   $50 P
+         fcb   $4F O
+         fcb   $4B K
+         fcb   $C5 E
+         fcb   $10 
+         fcb   $01 
+         fcb   $49 I
+         fcb   $C6 F
+         fcb   $11 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4C L
+         fcb   $53 S
+         fcb   $C5 E
+         fcb   $12 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $C6 F
+         fcb   $13 
+         fcb   $01 
+         fcb   $46 F
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $14 
+         fcb   $01 
+L0195    fcb   $4E N
+         fcb   $45 E
+         fcb   $58 X
+         fcb   $D4 T
+         fcb   $15 
+         fcb   $01 
+         fcb   $57 W
+         fcb   $48 H
+         fcb   $49 I
+         fcb   $4C L
+         fcb   $C5 E
+         fcb   $16 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $57 W
+         fcb   $48 H
+         fcb   $49 I
+         fcb   $4C L
+         fcb   $C5 E
+         fcb   $17 
+         fcb   $01 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $50 P
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $D4 T
+         fcb   $18 
+         fcb   $01 
+         fcb   $55 U
+         fcb   $4E N
+         fcb   $54 T
+         fcb   $49 I
+         fcb   $CC L
+         fcb   $19 
+         fcb   $01 
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $4F O
+         fcb   $D0 P
+         fcb   $1A 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $4F O
+         fcb   $D0 P
+         fcb   $1B 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $58 X
+         fcb   $49 I
+         fcb   $54 T
+         fcb   $49 I
+         fcb   $C6 F
+         fcb   $1C 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $58 X
+         fcb   $49 I
+         fcb   $D4 T
+         fcb   $1D 
+         fcb   $01 
+         fcb   $4F O
+         fcb   $CE N
+         fcb   $1E 
+         fcb   $01 
+         fcb   $45 E
+         fcb   $52 R
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $1F 
+         fcb   $01 
+L01E6    fcb   $47 G
+         fcb   $4F O
+         fcb   $54 T
+         fcb   $CF O
+         fcb   $21 !
+         fcb   $01 
+L01EC    fcb   $47 G
+         fcb   $4F O
+         fcb   $53 S
+         fcb   $55 U
+         fcb   $C2 B
+         fcb   $23 #
+         fcb   $01 
+L01F3    fcb   $52 R
+         fcb   $55 U
+         fcb   $CE N
+         fcb   $24 $
+         fcb   $01 
+         fcb   $4B K
+         fcb   $49 I
+         fcb   $4C L
+         fcb   $CC L
+         fcb   $25 %
+         fcb   $01 
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $50 P
+         fcb   $55 U
+         fcb   $D4 T
+         fcb   $26 &
+         fcb   $01 
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $D4 T
+         fcb   $27 '
+         fcb   $01 
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $C4 D
+         fcb   $28 (
+         fcb   $01 
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $D8 X
+         fcb   $29 )
+         fcb   $01 
+         fcb   $43 C
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $2A *
+         fcb   $01 
+         fcb   $4F O
+         fcb   $50 P
+         fcb   $45 E
+         fcb   $CE N
+         fcb   $2B +
+         fcb   $01 
+         fcb   $53 S
+         fcb   $45 E
+         fcb   $45 E
+         fcb   $CB K
+         fcb   $2C ,
+         fcb   $01 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $C4 D
+         fcb   $2D -
+         fcb   $01 
+         fcb   $57 W
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $2E .
+         fcb   $01 
+         fcb   $47 G
+         fcb   $45 E
+         fcb   $D4 T
+         fcb   $2F /
+         fcb   $01 
+         fcb   $50 P
+         fcb   $55 U
+         fcb   $D4 T
+         fcb   $30 0
+         fcb   $01 
+         fcb   $43 C
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $53 S
+         fcb   $C5 E
+         fcb   $31 1
+         fcb   $01 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $C5 E
+         fcb   $32 2
+         fcb   $01 
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $33 3
+         fcb   $01 
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $41 A
+         fcb   $49 I
+         fcb   $CE N
+         fcb   $34 4
+         fcb   $01 
+L0260    fcb   $53 S
+         fcb   $48 H
+         fcb   $45 E
+         fcb   $4C L
+         fcb   $CC L
+         fcb   $35 5
+         fcb   $01 
+L0267    fcb   $42 B
+         fcb   $41 A
+         fcb   $53 S
+         fcb   $C5 E
+         fcb   $37 7
+         fcb   $01 
+L026D    fcb   $52 R
+         fcb   $45 E
+         fcb   $CD M
+         fcb   $39 9
+         fcb   $01 
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $C4 D
+         fcb   $40 @
+         fcb   $03 
+         fcb   $42 B
+         fcb   $59 Y
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $41 A
+         fcb   $03 
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $47 G
+         fcb   $45 E
+         fcb   $D2 R
+         fcb   $42 B
+         fcb   $03 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $CC L
+         fcb   $43 C
+         fcb   $03 
+         fcb   $42 B
+         fcb   $4F O
+         fcb   $4F O
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $CE N
+         fcb   $44 D
+         fcb   $03 
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $C7 G
+         fcb   $45 E
+         fcb   $03 
+L029D    fcb   $54 T
+         fcb   $48 H
+         fcb   $45 E
+         fcb   $CE N
+         fcb   $46 F
+         fcb   $03 
+         fcb   $54 T
+         fcb   $CF O
+         fcb   $47 G
+         fcb   $03 
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $D0 P
+         fcb   $48 H
+         fcb   $03 
+         fcb   $44 D
+         fcb   $CF O
+         fcb   $49 I
+         fcb   $03 
+         fcb   $55 U
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $C7 G
+         fcb   $3D =
+         fcb   $03 
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $55 U
+         fcb   $52 R
+         fcb   $C5 E
+         fcb   $92 
+         fcb   $04 
+         fcb   $41 A
+         fcb   $44 D
+         fcb   $44 D
+         fcb   $D2 R
+         fcb   $94 
+         fcb   $04 
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $5A Z
+         fcb   $C5 E
+         fcb   $96 
+         fcb   $04 
+         fcb   $50 P
+         fcb   $4F O
+         fcb   $D3 S
+         fcb   $97 
+         fcb   $04 
+L02D4    fcb   $45 E
+         fcb   $52 R
+         fcb   $D2 R
+         fcb   $98 
+         fcb   $04 
+         fcb   $4D M
+         fcb   $4F O
+         fcb   $C4 D
+         fcb   $9A 
+         fcb   $04 
+         fcb   $52 R
+         fcb   $4E N
+         fcb   $C4 D
+         fcb   $9C 
+         fcb   $04 
+         fcb   $53 S
+         fcb   $55 U
+         fcb   $42 B
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $D2 R
+         fcb   $9B 
+         fcb   $04 
+         fcb   $50 P
+         fcb   $C9 I
+         fcb   $9F 
+         fcb   $04 
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $CE N
+         fcb   $A0 
+         fcb   $04 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $D3 S
+         fcb   $A1 !
+         fcb   $04 
+         fcb   $54 T
+         fcb   $41 A
+         fcb   $CE N
+         fcb   $A2 "
+         fcb   $04 
+         fcb   $41 A
+         fcb   $53 S
+         fcb   $CE N
+         fcb   $A3 #
+         fcb   $04 
+         fcb   $41 A
+         fcb   $43 C
+         fcb   $D3 S
+         fcb   $A4 $
+         fcb   $04 
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $CE N
+         fcb   $A5 %
+         fcb   $04 
+         fcb   $45 E
+         fcb   $58 X
+         fcb   $D0 P
+         fcb   $A8 (
+         fcb   $04 
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $C7 G
+         fcb   $A9 )
+         fcb   $04 
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $47 G
+         fcb   $31 1
+         fcb   $B0 0
+         fcb   $9D 
+         fcb   $04 
+         fcb   $53 S
+         fcb   $47 G
+         fcb   $CE N
+         fcb   $A6 &
+         fcb   $04 
+         fcb   $41 A
+         fcb   $42 B
+         fcb   $D3 S
+         fcb   $AA *
+         fcb   $04 
+         fcb   $53 S
+         fcb   $51 Q
+         fcb   $52 R
+         fcb   $D4 T
+         fcb   $AA *
+         fcb   $04 
+         fcb   $53 S
+         fcb   $51 Q
+         fcb   $D2 R
+         fcb   $AC ,
+         fcb   $04 
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $D4 T
+         fcb   $AE .
+         fcb   $04 
+         fcb   $46 F
+         fcb   $49 I
+         fcb   $D8 X
+         fcb   $B0 0
+         fcb   $04 
+         fcb   $46 F
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $41 A
+         fcb   $D4 T
+         fcb   $B2 2
+         fcb   $04 
+         fcb   $53 S
+         fcb   $D1 Q
+         fcb   $B4 4
+         fcb   $04 
+         fcb   $50 P
+         fcb   $45 E
+         fcb   $45 E
+         fcb   $CB K
+         fcb   $B5 5
+         fcb   $04 
+         fcb   $4C L
+         fcb   $4E N
+         fcb   $4F O
+         fcb   $D4 T
+         fcb   $B6 6
+         fcb   $04 
+         fcb   $56 V
+         fcb   $41 A
+         fcb   $CC L
+         fcb   $B7 7
+         fcb   $04 
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $CE N
+         fcb   $B8 8
+         fcb   $04 
+         fcb   $41 A
+         fcb   $53 S
+         fcb   $C3 C
+         fcb   $B9 9
+         fcb   $04 
+         fcb   $4C L
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $C4 D
+         fcb   $BA :
+         fcb   $04 
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $BB ;
+         fcb   $04 
+         fcb   $4C L
+         fcb   $58 X
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $BC <
+         fcb   $04 
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $55 U
+         fcb   $C5 E
+         fcb   $BD =
+         fcb   $04 
+         fcb   $46 F
+         fcb   $41 A
+         fcb   $4C L
+         fcb   $53 S
+         fcb   $C5 E
+         fcb   $BE >
+         fcb   $04 
+         fcb   $45 E
+         fcb   $4F O
+         fcb   $C6 F
+         fcb   $BF ?
+         fcb   $04 
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $4D M
+         fcb   $A4 $
+         fcb   $C0 @
+         fcb   $04 
+         fcb   $4D M
+         fcb   $49 I
+         fcb   $44 D
+         fcb   $A4 $
+         fcb   $C1 A
+         fcb   $04 
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $46 F
+         fcb   $54 T
+         fcb   $A4 $
+         fcb   $C2 B
+         fcb   $04 
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $47 G
+         fcb   $48 H
+         fcb   $54 T
+         fcb   $A4 $
+         fcb   $C3 C
+         fcb   $04 
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $52 R
+         fcb   $A4 $
+         fcb   $C4 D
+         fcb   $04 
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $A4 $
+         fcb   $C6 F
+         fcb   $04 
+         fcb   $44 D
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $A4 $
+         fcb   $C7 G
+         fcb   $04 
+         fcb   $54 T
+         fcb   $41 A
+         fcb   $C2 B
+         fcb   $CD M
+         fcb   $05 
+         fcb   $4E N
+         fcb   $4F O
+         fcb   $D4 T
+         fcb   $D0 P
+         fcb   $05 
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $C4 D
+         fcb   $D1 Q
+         fcb   $05 
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $D2 R
+         fcb   $05 
+         fcb   $58 X
+         fcb   $4F O
+         fcb   $D2 R
+         fcb   $F7 w
+         fcb   $03 
+         fcb   $55 U
+         fcb   $50 P
+         fcb   $44 D
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $F8 x
+         fcb   $03 
+         fcb   $45 E
+         fcb   $58 X
+         fcb   $45 E
+         fcb   $C3 C
+         fcb   $F9 y
+         fcb   $03 
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $D2 R
+L03DE    fcb   $40 @
+         fcb   $00 
+         fcb   $00 
+         fcb   $00 
+         fcb   $FD 
+         fcb   $49 I
+         fcb   $00 
+         fcb   $FD 
+         fcb   $4D M
+         fcb   $00 
+         fcb   $FD 
+         fcb   $50 P
+         fcb   $00 
+         fcb   $FD 
+         fcb   $52 R
+         fcb   $00 
+         fcb   $FD 
+         fcb   $55 U
+         fcb   $00 
+         fcb   $FD 
+         fcb   $58 X
+         fcb   $00 
+         fcb   $FD 
+         fcb   $5A Z
+         fcb   $00 
+         fcb   $FD 
+         fcb   $5D ]
+         fcb   $00 
+         fcb   $FD 
+         fcb   $61 a
+         fcb   $00 
+         fcb   $FD 
+         fcb   $65 e
+         fcb   $00 
+         fcb   $FD 
+         fcb   $67 g
+         fcb   $00 
+         fcb   $FD 
+         fcb   $69 i
+         fcb   $00 
+         fcb   $FD 
+         fcb   $6E n
+         fcb   $40 @
+         fcb   $00 
+         fcb   $00 
+         fcb   $00 
+         fcb   $FD 
+         fcb   $6D m
+         fcb   $00 
+         fcb   $FD 
+         fcb   $70 p
+         fcb   $63 c
+         fcb   $FD 
+         fcb   $71 q
+         fcb   $02 
+         fcb   $FD 
+         fcb   $74 t
+         fcb   $01 
+         fcb   $FD 
+         fcb   $78 x
+         fcb   $22 "
+         fcb   $0F 
+         fcb   $E7 g
+         fcb   $01 
+         fcb   $FD 
+         fcb   $7D ý
+         fcb   $62 b
+         fcb   $FD 
+         fcb   $81 
+         fcb   $01 
+         fcb   $FD 
+         fcb   $88 
+         fcb   $02 
+         fcb   $FD 
+         fcb   $8D 
+         fcb   $01 
+         fcb   $FD 
+         fcb   $91 
+         fcb   $62 b
+         fcb   $FD 
+         fcb   $94 
+         fcb   $02 
+         fcb   $FD 
+         fcb   $9A 
+         fcb   $63 c
+         fcb   $FD 
+         fcb   $9F 
+         fcb   $00 
+         fcb   $FD 
+         fcb   $A5 %
+         fcb   $00 
+         fcb   $FD 
+         fcb   $A6 &
+         fcb   $20 
+         fcb   $0F 
+         fcb   $76 v
+         fcb   $20 
+         fcb   $0F 
+         fcb   $73 s
+         fcb   $20 
+         fcb   $0F 
+         fcb   $6A j
+         fcb   $20 
+         fcb   $0F 
+         fcb   $67 g
+         fcb   $20 
+         fcb   $0F 
+         fcb   $B0 0
+         fcb   $00 
+         fcb   $FD 
+         fcb   $AD -
+         fcb   $00 
+         fcb   $FD 
+         fcb   $B0 0
+         fcb   $00 
+         fcb   $FD 
+         fcb   $B4 4
+         fcb   $00 
+         fcb   $FD 
+         fcb   $B8 8
+         fcb   $00 
+         fcb   $FD 
+         fcb   $BA :
+         fcb   $00 
+         fcb   $FD 
+         fcb   $BC <
+         fcb   $00 
+         fcb   $FD 
+         fcb   $C1 A
+         fcb   $00 
+         fcb   $FD 
+         fcb   $C4 D
+         fcb   $00 
+         fcb   $FD 
+         fcb   $C7 G
+         fcb   $00 
+         fcb   $FD 
+         fcb   $CA J
+         fcb   $00 
+         fcb   $FD 
+         fcb   $CE N
+         fcb   $00 
+         fcb   $FD 
+         fcb   $D0 P
+         fcb   $00 
+         fcb   $FD 
+         fcb   $D2 R
+         fcb   $00 
+         fcb   $FD 
+         fcb   $D6 V
+         fcb   $00 
+         fcb   $FD 
+         fcb   $DC \
+         fcb   $00 
+         fcb   $FD 
+         fcb   $E1 a
+         fcb   $00 
+         fcb   $FD 
+         fcb   $E5 e
+         fcb   $20 
+         fcb   $0F 
+         fcb   $6D m
+         fcb   $20 
+         fcb   $0F 
+         fcb   $6A j
+         fcb   $20 
+         fcb   $0F 
+         fcb   $A1 !
+         fcb   $20 
+         fcb   $0F 
+         fcb   $98 
+         fcb   $00 
+         fcb   $FD 
+         fcb   $E8 h
+         fcb   $20 
+         fcb   $0F 
+         fcb   $2B +
+         fcb   $20 
+         fcb   $0F 
+         fcb   $28 (
+         fcb   $40 @
+         fcb   $00 
+         fcb   $00 
+         fcb   $20 
+         fcb   $0F 
+         fcb   $96 
+         fcb   $40 @
+         fcb   $20 
+         fcb   $5C \
+         fcb   $20 
+         fcb   $0E 
+         fcb   $21 !
+         fcb   $10 
+         fcb   $FD 
+         fcb   $D8 X
+         fcb   $10 
+         fcb   $FD 
+         fcb   $DB [
+         fcb   $10 
+         fcb   $FD 
+         fcb   $E1 a
+         fcb   $10 
+         fcb   $FD 
+         fcb   $E4 d
+         fcb   $10 
+         fcb   $FD 
+         fcb   $EA j
+         fcb   $20 
+         fcb   $0F 
+         fcb   $5F _
+         fcb   $60 `
+         fcb   $FD 
+         fcb   $F2 r
+         fcb   $60 `
+         fcb   $FD 
+         fcb   $F3 s
+         fcb   $00 
+         fcb   $FD 
+         fcb   $F6 v
+         fcb   $00 
+         fcb   $FD 
+         fcb   $F7 w
+         fcb   $20 
+         fcb   $0F 
+         fcb   $8A 
+         fcb   $40 @
+         fcb   $2C ,
+         fcb   $00 
+         fcb   $40 @
+         fcb   $3A :
+         fcb   $00 
+         fcb   $40 @
+         fcb   $28 (
+         fcb   $00 
+         fcb   $40 @
+         fcb   $29 )
+         fcb   $00 
+         fcb   $40 @
+         fcb   $5B [
+         fcb   $00 
+         fcb   $40 @
+         fcb   $5D ]
+         fcb   $00 
+         fcb   $40 @
+         fcb   $3B ;
+         fcb   $20 
+         fcb   $40 @
+         fcb   $3A :
+         fcb   $3D =
+         fcb   $40 @
+         fcb   $3D =
+         fcb   $00 
+         fcb   $40 @
+         fcb   $23 #
+         fcb   $00 
+         fcb   $20 
+         fcb   $15 
+         fcb   $EC l
+         fcb   $20 
+         fcb   $0E 
+         fcb   $92 
+         fcb   $20 
+         fcb   $0E 
+         fcb   $8F 
+         fcb   $20 
+         fcb   $0E 
+         fcb   $8C 
+         fcb   $20 
+         fcb   $0E 
+         fcb   $89 
+         fcb   $20 
+         fcb   $0E 
+         fcb   $86 
+         fcb   $20 
+         fcb   $0E 
+         fcb   $83 
+         fcb   $21 !
+         fcb   $0E 
+         fcb   $80 
+         fcb   $22 "
+         fcb   $0E 
+         fcb   $7D ý
+         fcb   $23 #
+         fcb   $0E 
+         fcb   $7A z
+         fcb   $20 
+         fcb   $0E 
+         fcb   $73 s
+         fcb   $21 !
+         fcb   $0E 
+         fcb   $70 p
+         fcb   $22 "
+         fcb   $0E 
+         fcb   $6D m
+         fcb   $23 #
+         fcb   $0E 
+         fcb   $6A j
+         fcb   $26 &
+         fcb   $0E 
+         fcb   $9F 
+         fcb   $27 '
+         fcb   $0E 
+         fcb   $AD -
+         fcb   $24 $
+         fcb   $0E 
+         fcb   $7B û
+         fcb   $24 $
+         fcb   $0E 
+         fcb   $B9 9
+         fcb   $27 '
+         fcb   $0E 
+         fcb   $CB K
+         fcb   $11 
+         fcb   $FD 
+         fcb   $AC ,
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $11 
+         fcb   $FD 
+         fcb   $AC ,
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $10 
+         fcb   $FD 
+         fcb   $AC ,
+         fcb   $10 
+         fcb   $FD 
+         fcb   $AE .
+         fcb   $12 
+         fcb   $FD 
+         fcb   $B0 0
+         fcb   $12 
+         fcb   $FD 
+         fcb   $AD -
+         fcb   $11 
+         fcb   $FD 
+         fcb   $AF /
+         fcb   $10 
+         fcb   $FD 
+         fcb   $B9 9
+         fcb   $12 
+         fcb   $FD 
+         fcb   $AE .
+         fcb   $11 
+         fcb   $FD 
+         fcb   $E6 f
+         fcb   $11 
+         fcb   $FD 
+         fcb   $E3 c
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B1 1
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B3 3
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B5 5
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B7 7
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B9 9
+         fcb   $11 
+         fcb   $FD 
+         fcb   $BB ;
+         fcb   $11 
+         fcb   $FD 
+         fcb   $BD =
+         fcb   $11 
+         fcb   $FD 
+         fcb   $D0 P
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CD M
+         fcb   $11 
+         fcb   $FD 
+         fcb   $B9 9
+         fcb   $11 
+         fcb   $FD 
+         fcb   $BB ;
+         fcb   $11 
+         fcb   $FD 
+         fcb   $C9 I
+         fcb   $11 
+         fcb   $FD 
+         fcb   $C6 F
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CE N
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CB K
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CD M
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CA J
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CC L
+         fcb   $11 
+         fcb   $FD 
+         fcb   $C9 I
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CD M
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CA J
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CB K
+         fcb   $11 
+         fcb   $FD 
+         fcb   $CE N
+         fcb   $11 
+         fcb   $FD 
+         fcb   $D1 Q
+         fcb   $11 
+         fcb   $FD 
+         fcb   $D3 S
+         fcb   $11 
+         fcb   $FD 
+         fcb   $D5 U
+         fcb   $12 
+         fcb   $FD 
+         fcb   $D7 W
+         fcb   $12 
+         fcb   $FD 
+         fcb   $DA Z
+         fcb   $12 
+         fcb   $FD 
+         fcb   $DC \
+         fcb   $10 
+         fcb   $FD 
+         fcb   $DF _
+         fcb   $10 
+         fcb   $FD 
+         fcb   $E2 b
+         fcb   $11 
+         fcb   $FD 
+         fcb   $E6 f
+         fcb   $11 
+         fcb   $FD 
+         fcb   $E8 h
+         fcb   $13 
+         fcb   $FD 
+         fcb   $EC l
+         fcb   $12 
+         fcb   $FD 
+         fcb   $EF o
+         fcb   $12 
+         fcb   $FD 
+         fcb   $F3 s
+         fcb   $11 
+         fcb   $FD 
+         fcb   $F8 x
+         fcb   $11 
+         fcb   $FD 
+         fcb   $FB 
+         fcb   $11 
+         fcb   $FD 
+         fcb   $F8 x
+         fcb   $10 
+         fcb   $FD 
+         fcb   $FB 
+         fcb   $11 
+         fcb   $FD 
+         fcb   $FF 
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $80 
+         fcb   $00 
+         fcb   $00 
+         fcb   $11 
+         fcb   $FD 
+         fcb   $F2 r
+         fcb   $51 Q
+         fcb   $2D -
+         fcb   $00 
+         fcb   $51 Q
+         fcb   $2D -
+         fcb   $00 
+         fcb   $0A 
+         fcb   $FD 
+         fcb   $EE n
+         fcb   $09 
+         fcb   $FD 
+         fcb   $F0 p
+         fcb   $09 
+         fcb   $FD 
+         fcb   $F1 q
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3E >
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3E >
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3E >
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3E >
+         fcb   $4B K
+         fcb   $3D =
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3D =
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3D =
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3D =
+         fcb   $00 
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $3D =
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $3D =
+         fcb   $4B K
+         fcb   $3E >
+         fcb   $3D =
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3D =
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3D =
+         fcb   $4B K
+         fcb   $3C <
+         fcb   $3D =
+         fcb   $4C L
+         fcb   $2B +
+         fcb   $00 
+         fcb   $4C L
+         fcb   $2B +
+         fcb   $00 
+         fcb   $4C L
+         fcb   $2B +
+         fcb   $00 
+         fcb   $4C L
+         fcb   $2D -
+         fcb   $00 
+         fcb   $4C L
+         fcb   $2D -
+         fcb   $00 
+         fcb   $4D M
+         fcb   $2A *
+         fcb   $00 
+         fcb   $4D M
+         fcb   $2A *
+         fcb   $00 
+         fcb   $4D M
+         fcb   $2F /
+         fcb   $00 
+         fcb   $4D M
+         fcb   $2F /
+         fcb   $00 
+         fcb   $4E N
+         fcb   $5E ^
+         fcb   $00 
+         fcb   $4E N
+         fcb   $2A *
+         fcb   $2A *
+         fcb   $20 
+         fcb   $0D 
+         fcb   $3C <
+         fcb   $21 !
+         fcb   $0D 
+         fcb   $39 9
+         fcb   $22 "
+         fcb   $0D 
+         fcb   $36 6
+         fcb   $23 #
+         fcb   $0D 
+         fcb   $33 3
+         fcb   $20 
+         fcb   $0D 
+         fcb   $2C ,
+         fcb   $21 !
+         fcb   $0D 
+         fcb   $29 )
+         fcb   $22 "
+         fcb   $0D 
+         fcb   $26 &
+         fcb   $23 #
+         fcb   $0D 
+         fcb   $23 #
+         fcb   $00 
+         fcb   $02 
+         fcb   $02 
+L0651    fcb   $03 
+         fcb   $91 
+         fcb   $A4 $
+         fcb   $02 
+         fcb   $E4 d
+         fcb   $8D 
+         fcb   $00 
+         fcb   $0E 
+         fcb   $02 
+         fcb   $07 
+         fcb   $FC 
+         fcb   $42 B
+         fcb   $59 Y
+         fcb   $C5 E
+         fcb   $02 
+         fcb   $D4 T
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $D2 R
+         fcb   $0F 
+         fcb   $15 
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $D4 T
+         fcb   $0F 
+         fcb   $0F 
+         fcb   $C5 E
+         fcb   $06 
+         fcb   $7E þ
+         fcb   $4C L
+         fcb   $49 I
+         fcb   $53 S
+         fcb   $D4 T
+         fcb   $07 
+         fcb   $3D =
+         fcb   $52 R
+         fcb   $55 U
+         fcb   $CE N
+         fcb   $08 
+         fcb   $09 
+         fcb   $4B K
+         fcb   $49 I
+         fcb   $4C L
+         fcb   $CC L
+         fcb   $06 
+         fcb   $5F _
+         fcb   $53 S
+         fcb   $41 A
+         fcb   $56 V
+         fcb   $C5 E
+         fcb   $04 
+         fcb   $28 (
+         fcb   $4C L
+         fcb   $4F O
+         fcb   $41 A
+         fcb   $C4 D
+         fcb   $03 
+         fcb   $91 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $41 A
+         fcb   $4D M
+         fcb   $C5 E
+         fcb   $04 
+         fcb   $A8 (
+         fcb   $50 P
+         fcb   $41 A
+         fcb   $43 C
+         fcb   $CB K
+         fcb   $02 
+         fcb   $69 i
+         fcb   $4D M
+         fcb   $45 E
+         fcb   $CD M
+         fcb   $03 
+         fcb   $70 p
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $C4 D
+         fcb   $03 
+         fcb   $6F o
+         fcb   $43 C
+         fcb   $48 H
+         fcb   $D8 X
+         fcb   $00 
+         fcb   $02 
+         fcb   $02 
+L06AA    fcb   $03 
+         fcb   $38 8
+         fcb   $A4 $
+         fcb   $09 
+         fcb   $C7 G
+         fcb   $8D 
+         fcb   $00 
+         fcb   $0E 
+         fcb   $02 
+         fcb   $09 
+         fcb   $D0 P
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $4E N
+         fcb   $D4 T
+         fcb   $02 
+         fcb   $7A z
+         fcb   $44 D
+         fcb   $49 I
+         fcb   $D2 R
+         fcb   $09 
+         fcb   $93 
+         fcb   $D1 Q
+         fcb   $0A 
+         fcb   $0C 
+         fcb   $4C L
+         fcb   $49 I
+         fcb   $53 S
+         fcb   $D4 T
+         fcb   $0A 
+         fcb   $B7 7
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $D4 T
+         fcb   $0B 
+         fcb   $25 %
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $41 A
+         fcb   $54 T
+         fcb   $C5 E
+         fcb   $0A 
+         fcb   $A9 )
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $CE N
+         fcb   $0A 
+         fcb   $A3 #
+         fcb   $54 T
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $46 F
+         fcb   $C6 F
+         fcb   $0A 
+         fcb   $9C 
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $C7 G
+         fcb   $0A 
+         fcb   $97 
+         fcb   $52 R
+         fcb   $41 A
+         fcb   $C4 D
+         fcb   $0A 
+         fcb   $92 
+         fcb   $4C L
+         fcb   $45 E
+         fcb   $D4 T
+         fcb   $09 
+         fcb   $74 t
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $D0 P
+         fcb   $0B 
+         fcb   $18 
+         fcb   $42 B
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $CB K
+         fcb   $00 
+         fcb   $08 
+         fcb   $02 
+L0701    fcb   $0F 
+         fcb   $86 
+         fcb   $CC L
+         fcb   $0F 
+         fcb   $83 
+         fcb   $EC l
+         fcb   $12 
+         fcb   $7C ü
+         fcb   $C4 D
+         fcb   $12 
+         fcb   $79 y
+         fcb   $E4 d
+         fcb   $0E 
+         fcb   $C3 C
+         fcb   $AB +
+         fcb   $0E 
+         fcb   $C0 @
+         fcb   $AD -
+         fcb   $0E 
+         fcb   $BD =
+         fcb   $8D 
+         fcb   $0E 
+         fcb   $D4 T
+         fcb   $A0 
+         fcb   $00 
+         fcb   $04 
+         fcb   $02 
+         fcb   $10 
+         fcb   $28 (
+         fcb   $D3 S
+         fcb   $10 
+         fcb   $28 (
+         fcb   $C3 C
+         fcb   $11 
+         fcb   $A6 &
+         fcb   $D2 R
+         fcb   $12 
+         fcb   $57 W
+         fcb   $D1 Q
+L0728    fcb   $0E 
+         fcb   $52 R
+         fcb   $65 e
+         fcb   $61 a
+         fcb   $64 d
+         fcb   $F9 y
+L072E    fcb   $57 W
+         fcb   $68 h
+         fcb   $61 a
+         fcb   $74 t
+         fcb   $BF ?
+L0733    fcb   $20 
+         fcb   $66 f
+         fcb   $72 r
+         fcb   $65 e
+         fcb   $E5 e
+L0738    fcb   $50 P
+         fcb   $72 r
+         fcb   $6F o
+         fcb   $67 g
+         fcb   $72 r
+         fcb   $61 a
+         fcb   $ED m
+L073F    fcb   $50 P
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $55 U
+         fcb   $52 R
+         fcb   $C5 E
+         fcb   $0D 
+L0749    fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $4E N
+         fcb   $61 a
+         fcb   $6D m
+         fcb   $65 e
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $50 P
+         fcb   $72 r
+         fcb   $6F o
+         fcb   $63 c
+         fcb   $2D -
+         fcb   $53 S
+         fcb   $69 i
+         fcb   $7A z
+         fcb   $65 e
+         fcb   $20 
+         fcb   $20 
+         fcb   $44 D
+         fcb   $61 a
+         fcb   $74 t
+         fcb   $61 a
+         fcb   $2D -
+         fcb   $53 S
+         fcb   $69 i
+         fcb   $7A z
+         fcb   $E5 e
+L076A    fcb   $52 R
+         fcb   $65 e
+         fcb   $77 w
+         fcb   $72 r
+         fcb   $69 i
+         fcb   $74 t
+         fcb   $65 e
+         fcb   $3F ?
+         fcb   $3A :
+         fcb   $20 
+L0774    fcb   $52 R
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $47 G
+         fcb   $45 E
+         fcb   $87 
+L077A    fcb   $0E 
+         fcb   $42 B
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $4B K
+         fcb   $3A :
+         fcb   $A0 
+L0782    fcb   $63 c
+         fcb   $61 a
+         fcb   $6C l
+         fcb   $6C l
+         fcb   $65 e
+         fcb   $64 d
+         fcb   $20 
+         fcb   $62 b
+         fcb   $F9 y
+L078B    fcb   $6F o
+         fcb   $EB k
+L078D    fcb   $44 D
+         fcb   $BA :
+L078F    fcb   $45 E
+         fcb   $BA :
+L0791    fcb   $42 B
+         fcb   $BA :
+L0793    fcb   $63 c
+         fcb   $61 a
+         fcb   $6E n
+         fcb   $27 '
+         fcb   $74 t
+         fcb   $20 
+         fcb   $66 f
+         fcb   $69 i
+         fcb   $6E n
+         fcb   $64 d
+         fcb   $BA :
+L079E    fcb   $A6 &
+         fcb   $63 c
+         fcb   $1F 
+         fcb   $8B 
+         fcb   $D7 W
+         fcb   $35 5
+         fcb   $08 
+         fcb   $34 4
+         fcb   $43 C
+         fcb   $06 
+         fcb   $34 4
+         fcb   $3B ;
+start    equ   *
+         pshs  u
+         leau  >u0100,u
+         clra  
+         clrb  
+L07B2    std   ,--u
+         cmpu  ,s
+         bhi   L07B2
+         puls  b,a
+         leau  ,x
+         std   <u0000
+         inca  
+         sta   <u00D9
+         std   <u0080
+         std   <u0082
+         adda  #$02
+         std   <u0046
+         std   <u0044
+         inca  
+         tfr   d,s
+         std   <u0004
+         inca  
+         std   <u0008
+         std   <u004A
+         tfr   u,d
+         subd  <u0000
+         std   <u0002
+         clra  
+         ldb   #$01
+         std   <u002D
+         sta   <u00BD
+         lda   #$03
+L07E5    os9   I$Close  
+         inca  
+         cmpa  #$10
+         bcs   L07E5
+         lda   #$02
+         os9   I$Dup    
+         sta   <u00BE
+         clr   <u0035
+         pshs  x
+         leax  <L079E,pcr
+         os9   F$Icpt   
+         ldx   <u0008
+         clra  
+         clrb  
+L0802    std   ,--x
+         cmpx  <u0004
+         bhi   L0802
+         leax  >L0000,pcr
+         pshs  x
+         ldx   <u0000
+         leax  <$1B,x
+         leay  >L000D,pcr
+L0817    lda   #$7E
+         sta   ,x+
+         ldd   ,y++
+         addd  ,s
+         std   ,x++
+         ldd   ,y
+         bne   L0817
+         leas  $02,s
+         lbsr  L00FF
+         puls  y
+         leax  >L0129,pcr
+         stx   <u009E
+         ldb   ,y
+         cmpb  #$0D
+         beq   L088F
+         leax  <L0849,pcr
+         pshs  y
+         bsr   L0859
+         lbsr  L0F7A
+         bcc   L0878
+         lbsr  L0AAC
+         bra   L0878
+L0849    puls  y
+         bsr   L0856
+         ldx   <u0004
+         ldd   ,x
+         std   <u002F
+         lbsr  L0DB0
+L0856    leax  <L089B,pcr
+L0859    puls  u
+         bsr   L0882
+         pshs  u
+         clr   <u0034
+         ldd   <u0000
+         addd  <u0002
+         subd  <u0008
+         subd  <u000A
+         std   <u000C
+         leau  $02,s
+         stu   <u0046
+         stu   <u0044
+         leas  >-$00FE,s
+         jmp   [<-u0002,u]
+L0878    lds   <u00B7
+         puls  b,a
+         std   <u00B7
+L087F    lbra  L0DA4
+L0882    ldd   <u00B7
+         pshs  b,a
+         sts   <u00B7
+         ldd   $02,s
+         stx   $02,s
+         tfr   d,pc
+L088F    leax  >L0024,pcr
+         bsr   L08B9
+         leax  >L001B,pcr
+         bsr   L08B9
+L089B    bsr   L0856
+         leax  >L0728,pcr
+         bsr   L08B9
+         leax  >L0791,pcr
+         leay  >L0651,pcr
+         clr   <u0084
+         bsr   L08BC
+         bcc   L0878
+         bsr   L08B5
+         bra   L0878
+L08B5    leax  >L072E,pcr
+L08B9    lbra  L1248
+L08BC    pshs  y,x
+         clr   <u0035
+         lbsr  L1254
+         bsr   L087F
+         lda   <u00BD
+         beq   L08CC
+         os9   I$Close  
+L08CC    clr   <u00BD
+         lbsr  L0B16
+         bcc   L08E1
+         cmpb  #$D3
+         bne   L08FE
+         ldd   #$6279
+         std   ,y
+         ldd   #$650D
+         std   $02,y
+L08E1    ldx   $02,s
+         lda   #$80
+         lbsr  L00F3
+         bne   L08F8
+         lbsr  L00F6
+         beq   L08FE
+         leax  $03,x
+         lda   #$20
+         lbsr  L00F3
+         beq   L08FE
+L08F8    ldd   ,x
+         leas  $04,s
+         jmp   d,x
+L08FE    coma  
+         puls  pc,y,x
+         lbsr  L0A79
+         bne   L0925
+         leax  ,y
+         ldd   <u0008
+         addd  <u000A
+         inca  
+         subd  <u0000
+         pshs  b,a
+         lbsr  L1731
+         bcs   L092F
+         cmpd  ,s++
+         bcs   L0931
+         os9   F$Mem    
+         bcs   L0925
+         subd  #$0001
+         std   <u0002
+L0925    lbsr  L0DA4
+         ldd   <u0002
+         bsr   L09A3
+L092C    lbra  L124D
+L092F    leas  $02,s
+L0931    coma  
+         rts   
+         leax  ,y
+         lbsr  L0D48
+         leax  >L0749,pcr
+         lbsr  L1248
+         ldy   <u0004
+         bra   L0984
+L0944    pshs  y,x
+         lda   #$20
+         tst   $06,x
+         beq   L094E
+         lda   #$2D
+L094E    lbsr  L135C
+         lda   #$20
+         cmpx  <u002F
+         bne   L0959
+         lda   #$2A
+L0959    lbsr  L135C
+         ldd   $04,x
+         leax  d,x
+         lbsr  L1343
+         ldd   #$1102
+         bsr   L0996
+         ldd   #$1C0B
+         bsr   L0996
+         ldd   $0B,x
+         addd  #$0040
+         cmpd  <u000C
+         bcs   L097C
+         lda   #$3F
+         lbsr  L135C
+L097C    bsr   L092C
+         puls  y,x
+         tst   <u0035
+         bne   L0988
+L0984    ldx   ,y++
+         bne   L0944
+L0988    ldd   <u000C
+         bsr   L09A3
+         leax  >L0733,pcr
+         lbsr  L124A
+         lbra  L0D3A
+L0996    pshs  b
+         ldb   #$10
+         lbsr  L0108
+         puls  b
+         ldx   $02,s
+         ldd   b,x
+L09A3    pshs  y,x,b,a
+         pshs  b,a
+         leay  <L09D6,pcr
+L09AA    ldx   #$2F00
+L09AD    puls  b,a
+L09AF    leax  >$0100,x
+         subd  ,y
+         bcc   L09AF
+         addd  ,y++
+         pshs  b,a
+         ldd   ,y
+         tfr   x,d
+         beq   L09CF
+         cmpd  #$3000
+         beq   L09AA
+         lbsr  L135C
+         ldx   #$2F01
+         bra   L09AD
+L09CF    lbsr  L135C
+         leas  $02,s
+         puls  pc,y,x,b,a
+L09D6    beq   L09E8
+         com   <u00E8
+         neg   <u0064
+         neg   <u000A
+         neg   <u0001
+         neg   <u0000
+         lbsr  L0A79
+         leau  ,y
+         clrb  
+L09E8    incb  
+         lda   ,y+
+         cmpa  #$0D
+         bne   L09E8
+         clra  
+         tfr   d,y
+         leax  >L0260,pcr
+         lda   #$01
+         clrb  
+         os9   F$Fork   
+         bcs   L0A6F
+         pshs  a
+L0A00    os9   F$Wait   
+         cmpa  ,s
+         bne   L0A00
+         leas  $01,s
+         tstb  
+         bne   L0A6F
+         rts   
+         lda   #$83
+         bra   L0A13
+         lda   #$84
+L0A13    leax  ,y
+         os9   I$ChgDir 
+         bcs   L0A6F
+         rts   
+         bsr   L0A86
+         lbsr  L0F57
+         bcs   L0A75
+         pshs  x
+         ldx   ,x
+         tst   $06,x
+         bne   L0A75
+         bsr   L0A79
+         beq   L0A31
+L0A2E    comb  
+         puls  pc,x
+L0A31    lbsr  L00F6
+         beq   L0A2E
+         pshs  y
+         lbsr  L0F57
+         bcs   L0A41
+         cmpx  $02,s
+         bne   L0A6D
+L0A41    ldx   $02,s
+         lbsr  L1A17
+         puls  x
+         ldy   <u004A
+L0A4B    lda   ,x+
+         sta   ,y+
+         bpl   L0A4B
+         sty   <u00AB
+         ldx   [,s++]
+         ldd   $04,x
+         leay  d,x
+         ldb   <$18,x
+         lda   <u00A6
+         sta   <$18,x
+         clra  
+         lbsr  L199A
+         addd  <u005E
+         std   <u005E
+L0A6A    lbra  L197E
+L0A6D    ldb   #$2C
+L0A6F    lbsr  L1270
+L0A72    lbra  L0878
+L0A75    ldb   #$2B
+         bra   L0A6F
+L0A79    ldb   ,y+
+         cmpb  #$2C
+         beq   L0A85
+         cmpb  #$20
+         beq   L0A85
+         leay  -$01,y
+L0A85    rts   
+L0A86    lbsr  L00F6
+         bne   L0A99
+L0A8B    ldy   <u002F
+         beq   L0A95
+         ldd   $04,y
+         leay  d,y
+         rts   
+L0A95    leay  >L0738,pcr
+L0A99    rts   
+L0A9A    ldb   #$2B
+         bra   L0AA6
+L0A9E    ldb   #$20
+L0AA0    pshs  b
+         bsr   L0A6A
+         puls  b
+L0AA6    cmpb  #$D3
+         beq   L0A72
+         bra   L0A6F
+L0AAC    leax  ,y
+         lda   #$01
+         os9   I$Open   
+         bcs   L0AA6
+         sta   <u00BD
+         bsr   L0B16
+         bsr   L0B25
+         bne   L0A9A
+L0ABD    lbsr  L00F6
+         beq   L0A9A
+         pshs  y
+         lbsr  L0F57
+         bcs   L0AD1
+         ldy   ,s
+         leay  -$01,y
+         lbsr  L0E81
+L0AD1    ldy   ,s
+         lbsr  L0EE6
+         lbsr  L1A17
+         puls  x
+         lbsr  L1248
+L0ADF    ldb   <u0035
+         bne   L0AA0
+         bsr   L0B16
+         bcs   L0AA0
+         lda   <u000C
+         cmpa  #$02
+         bcs   L0A9E
+         bsr   L0B25
+         beq   L0AFD
+         ldy   <u0080
+         ldd   <u0060
+         std   <u005C
+         lbsr  L15EF
+         bra   L0ADF
+L0AFD    ldx   <u0080
+         pshs  y,x
+L0B01    lda   ,x+
+         cmpa  #$0D
+         bne   L0B01
+         stx   <u0080
+         stx   <u0082
+         lbsr  L0111
+         puls  y,x
+         stx   <u0080
+         stx   <u0082
+         bra   L0ABD
+L0B16    lda   <u00BD
+         ldx   <u0080
+         ldy   #$0100
+         os9   I$ReadLn 
+         ldy   <u0080
+         rts   
+L0B25    lbsr  L00F6
+         leax  >L073F,pcr
+L0B2C    lda   ,x+
+         eora  ,y+
+         anda  #$DF
+         bne   L0B39
+         tst   -$01,x
+         bpl   L0B2C
+         clra  
+L0B39    rts   
+         lbsr  L0C6C
+         ldu   <u0046
+         bra   L0B62
+L0B41    ldy   ,y
+         tst   $06,y
+         lbne  L0E51
+         lda   <$17,y
+         rora  
+         lbcs  L0E51
+         ldd   $0D,y
+         leay  d,y
+         ldd   -$03,y
+         lslb  
+         rola  
+         inca  
+         cmpd  <u000C
+         lbhi  L0F52
+L0B62    ldy   ,--u
+         bne   L0B41
+         ldd   #$0607
+         lbsr  L0D54
+         ldy   <u0046
+         stu   <u0046
+         lbra  L0C63
+L0B75    pshs  y
+         lbsr  L1A17
+         clr   <u00D9
+         lbsr  L0111
+         inc   <u00D9
+         ldx   <u0062
+         leay  ,x
+         ldd   <u0000
+         addd  <u0002
+         tfr   d,u
+         ldd   -$03,x
+         beq   L0C01
+         pshs  u
+L0B91    pshs  b,a
+         leax  $01,x
+         ldd   ,x
+         pshu  b,a
+         clr   ,x+
+         clr   ,x+
+L0B9D    lda   ,x+
+         bpl   L0B9D
+         puls  b,a
+         subd  #$0001
+         bne   L0B91
+         ldy   <u005E
+         bra   L0BBA
+L0BAD    ldd   ,y
+         ldx   <u0062
+         leax  d,x
+         ldd   $01,x
+         sty   $01,x
+         std   ,y++
+L0BBA    lbsr  L1BAB
+         bcc   L0BAD
+         puls  u
+         ldx   <u0062
+         ldd   -$03,x
+         leay  ,x
+L0BC7    leau  -u0002,u
+         pshs  u,b,a
+         clra  
+         ldu   $01,x
+         beq   L0BED
+         pshs  x
+         tfr   y,d
+         subd  <u0062
+         bra   L0BDC
+L0BD8    std   ,u
+         leau  ,x
+L0BDC    ldx   ,u
+         bne   L0BD8
+         std   ,u
+         puls  x
+         lda   ,x
+         sta   ,y+
+         ldu   [<$02,s]
+         stu   ,y++
+L0BED    leax  $03,x
+L0BEF    ldb   ,x+
+         cmpa  #$A0
+         bne   L0BF7
+         stb   ,y+
+L0BF7    tstb  
+         bpl   L0BEF
+         puls  u,b,a
+         subd  #$0001
+         bne   L0BC7
+L0C01    ldx   <u002F
+         ldd   $02,x
+         pshs  b,a
+         clr   ,y+
+         clr   ,y+
+         clr   ,y+
+         tfr   y,d
+         subd  <u002F
+         std   $02,x
+         ldd   ,s
+         subd  $02,x
+         std   ,s
+         addd  <u000C
+         std   <u000C
+         ldd   <u000A
+         subd  ,s++
+         std   <u000A
+         addd  <u0008
+         std   <u004A
+         ldb   #$22
+         stb   $06,x
+         ldb   #$80
+         stb   <$17,x
+         leau  ,y
+         ldd   #$FFFF
+         std   ,--u
+         sta   ,-u
+         ldb   #$07
+L0C3B    eora  b,x
+         decb  
+         bpl   L0C3B
+         sta   $08,x
+         ldy   $02,x
+         leay  -$03,y
+         os9   F$CRC    
+         com   ,u+
+         com   ,u+
+         com   ,u+
+         ldy   $02,x
+         lda   #$02
+         os9   I$Write  
+         lda   #$C0
+         sta   <$17,x
+         lbcs  L0D9F
+         puls  y
+L0C63    ldx   ,--y
+         lbne  L0B75
+         lbra  L0D3A
+L0C6C    bsr   L0C86
+         lda   ,y
+         cmpa  #$0D
+         bne   L0C83
+         ldx   <u0046
+         ldx   [<-$02,x]
+         ldd   $04,x
+         leax  d,x
+         lbsr  L1343
+         lbsr  L12B8
+L0C83    leax  ,y
+         rts   
+L0C86    ldu   <u0046
+         stu   <u0044
+         lbsr  L0A79
+         beq   L0CAF
+         cmpb  #$2A
+         bne   L0CB4
+         ldx   <u0004
+L0C95    ldd   ,x
+         beq   L0C9D
+         tfr   x,d
+         leax  $02,x
+L0C9D    std   ,--u
+         bne   L0C95
+         stu   <u0044
+         lda   ,y
+         cmpa  #$0D
+         beq   L0CAB
+         leay  $01,y
+L0CAB    sty   <u0082
+         rts   
+L0CAF    lbsr  L00F6
+         bne   L0CC2
+L0CB4    sty   <u0082
+         lbsr  L0A8B
+         lbsr  L0F57
+         bcc   L0CCA
+L0CBF    lbra  L0A75
+L0CC2    lbsr  L0F57
+         bcs   L0CBF
+         sty   <u0082
+L0CCA    stx   ,--u
+         ldy   <u0082
+         lbsr  L0A79
+         bne   L0CD9
+         lbsr  L00F6
+         bne   L0CC2
+L0CD9    clra  
+         clrb  
+         bra   L0C9D
+         tst   <u000C
+         lbeq  L0F52
+         lda   #$80
+         sta   <u0084
+         bsr   L0C6C
+         bra   L0CEF
+         bsr   L0C86
+         leax  ,y
+L0CEF    stx   <u005C
+         bsr   L0D48
+         ldy   <u0046
+         stu   <u0046
+         bra   L0D32
+L0CFA    pshs  y
+         ldy   [,y]
+         sty   <u002F
+         ldd   $09,y
+         addd  <u002F
+         std   <u005E
+         ldd   $0F,y
+         addd  <u002F
+         std   <u0060
+         ldd   $0D,y
+         addd  <u002F
+         std   <u0062
+         tst   $06,y
+         bne   L0D30
+         leax  <L0D24,pcr
+         lbsr  L0882
+         lbsr  L10CD
+L0D21    lbra  L0878
+L0D24    tst   <u0084
+         bmi   L0D30
+         ldx   [,s]
+         lbsr  L1A17
+         lbsr  L0111
+L0D30    puls  y
+L0D32    ldx   ,--y
+         bne   L0CFA
+L0D36    bsr   L0D3A
+         bra   L0D21
+L0D3A    pshs  b
+         lda   #$02
+         os9   I$Close  
+         lda   <u00BE
+         os9   I$Dup    
+         puls  pc,b
+L0D48    lbsr  L0A79
+         cmpb  #$0D
+         beq   L0D9E
+         stx   <u0082
+         ldd   #$020B
+L0D54    pshs  u,x,b,a
+         lda   #$02
+         os9   I$Close  
+         ldd   ,s
+         os9   I$Create 
+         bcc   L0D9C
+         cmpb  #$DA
+         bne   L0D9F
+         ldd   ,s
+         ldx   $02,s
+         os9   I$Open   
+         bcs   L0D9F
+         leax  >L076A,pcr
+         ldy   #$000A
+         lda   <u00BE
+         os9   I$WritLn 
+         clra  
+         leax  ,--s
+         ldy   #$0002
+         os9   I$ReadLn 
+         puls  b,a
+         eora  #$59
+         anda  #$DF
+         bne   L0D36
+         lda   #$02
+         ldb   #$02
+         ldx   #$0000
+         leau  ,x
+         os9   I$SetStt 
+         bcs   L0D9F
+L0D9C    puls  pc,u,y,b,a
+L0D9E    rts   
+L0D9F    bsr   L0D3A
+         lbra  L0A6F
+L0DA4    clr   <u007D
+         inc   <u007D
+         pshs  x
+         ldx   <u0080
+         stx   <u0082
+         puls  pc,x
+L0DB0    lbsr  L00F6
+         bne   L0DC8
+         pshs  y
+         lbsr  L0A86
+         ldx   ,s
+L0DBC    lda   ,y+
+         sta   ,x+
+         bpl   L0DBC
+         lda   #$0D
+         sta   ,x
+         puls  y
+L0DC8    lbsr  L0F7A
+         lbcs  L0A75
+         ldx   ,x
+         stx   <u002F
+         lda   $06,x
+         beq   L0DDF
+         anda  #$0F
+         cmpa  #$02
+         bne   L0E51
+         bra   L0DE5
+L0DDF    lda   <$17,x
+         rora  
+         bcs   L0E51
+L0DE5    lbsr  L00F9
+         ldy   <u004A
+         ldb   ,y
+         cmpb  #$3D
+         beq   L0E51
+         sty   <u005E
+         sty   <u005C
+         ldx   <u00AB
+         stx   <u0060
+         stx   <u004A
+         ldd   <u000C
+         pshs  y,b,a
+         lbsr  L00FC
+         puls  y,b,a
+         std   <u000C
+         sty   <u004A
+         ldx   <u002F
+         lda   <$17,x
+         rora  
+         bcs   L0E51
+         leas  >$0102,s
+         ldd   <u0000
+         addd  <u0002
+         tfr   d,y
+         std   <u0046
+         std   <u0044
+         ldu   #$0000
+         stu   <u0031
+         stu   <u00B3
+         inc   <u00B4
+         clr   <u0036
+         ldd   <u004A
+         ldx   <u000C
+         pshs  x,b,a
+         leax  >L0E48,pcr
+         lbsr  L0882
+         ldx   <u004A
+         lbsr  L0102
+         lbsr  L0DA4
+         ldx   <u002F
+         lbsr  L0105
+         bra   L0E4E
+L0E48    puls  x,b,a
+         std   <u004A
+         stx   <u000C
+L0E4E    lbra  L0878
+L0E51    ldb   #$33
+         lbra  L0A6F
+         bsr   L0E78
+         clrb  
+         os9   F$Exit   
+         lbsr  L00F6
+         beq   L0E74
+         lbsr  L0F57
+         bcs   L0E74
+         ldu   <u0046
+         clra  
+         clrb  
+         pshu  x,b,a
+         inca  
+         sta   <u0035
+         bsr   L0E88
+         clr   <u0035
+         rts   
+L0E74    comb  
+         ldb   #$2B
+         rts   
+L0E78    ldy   <u0082
+         lda   #$2A
+         sta   ,y
+         sta   <u0035
+L0E81    lbsr  L0C86
+         clr   <u002F
+         clr   <u0030
+L0E88    ldu   <u0046
+         stu   <u0044
+         bra   L0ECC
+L0E8E    ldx   ,x
+         ldb   $06,x
+         beq   L0EA9
+         cmpb  #$22
+         bne   L0E9E
+         ldb   <$17,x
+         lslb  
+         bmi   L0EA9
+L0E9E    pshs  u
+         leau  ,x
+         os9   F$UnLink 
+         puls  u
+         bra   L0EC7
+L0EA9    tst   <u0035
+         bne   L0ECC
+         ldx   ,u
+         lbsr  L0F9F
+         ldy   ,x
+         ldd   <u000A
+         subd  $02,y
+         std   <u000A
+         ldd   $02,y
+         addd  <u000C
+         std   <u000C
+         ldd   <u004A
+         subd  $02,y
+         std   <u004A
+L0EC7    ldd   #$FFFF
+         std   [,u]
+L0ECC    ldx   ,--u
+         bne   L0E8E
+         ldx   <u0004
+         tfr   x,y
+L0ED4    ldd   ,x++
+         cmpd  #$FFFF
+         beq   L0ED4
+L0EDC    std   ,y++
+         bne   L0ED4
+         cmpd  ,y
+         bne   L0EDC
+         rts   
+L0EE6    bsr   L0F57
+         bcs   L0EEB
+         rts   
+L0EEB    pshs  u,x
+         tfr   x,d
+         cmpb  #$FE
+         beq   L0F52
+         ldx   <u000C
+         cmpx  #$00FF
+         bcs   L0F52
+         leax  <-$1C,x
+         ldu   <u004A
+         ldb   #$FF
+L0F01    incb  
+         clr   b,u
+         cmpb  #$18
+         bne   L0F01
+L0F08    incb  
+         leax  -$01,x
+         beq   L0F52
+         inc   <u0018,u
+         lda   ,y+
+         sta   b,u
+         bpl   L0F08
+         incb  
+         stx   <u000C
+         clra  
+         std   <u0015,u
+         std   u0009,u
+         std   u000F,u
+         stu   [,s]
+         pshs  b
+         addd  #$0003
+         std   u0002,u
+         std   u000D,u
+         addd  <u000A
+         std   <u000A
+         ldd   #$87CD
+         std   ,u
+         ldd   #$0019
+         std   u0004,u
+         ldd   #$0081
+         std   u0006,u
+         ldd   #$0016
+         std   u000B,u
+         puls  b
+         leax  d,u
+         ldb   #$03
+         sta   ,x+
+         std   ,x++
+         stx   <u004A
+         puls  pc,u,x
+L0F52    ldb   #$20
+         lbra  L0A6F
+L0F57    pshs  u,y
+         ldx   <u0004
+L0F5B    ldy   ,s
+         ldu   ,x++
+         beq   L0F77
+         ldd   u0004,u
+         leau  d,u
+L0F66    lda   ,y+
+         eora  ,u+
+         anda  #$DF
+         bne   L0F5B
+         clra  
+         tst   -u0001,u
+         bpl   L0F66
+L0F73    leax  -$02,x
+         puls  pc,u,b,a
+L0F77    coma  
+         bra   L0F73
+L0F7A    bsr   L0F57
+         bcs   L0F7F
+         rts   
+L0F7F    pshs  u,y,x
+         ldb   $01,s
+         cmpb  #$FE
+         beq   L0F52
+         leax  ,y
+         clra  
+         clrb  
+         os9   F$Link   
+         bcc   L0F99
+         ldx   $02,s
+         clra  
+         clrb  
+         os9   F$Load   
+         bcs   L0F9D
+L0F99    stx   $02,s
+         stu   [,s]
+L0F9D    puls  pc,u,y,x
+L0F9F    pshs  y,x
+         ldd   <u0008
+         addd  <u000A
+         tfr   d,y
+         ldx   ,x
+         sty   [,s]
+         ldd   $02,x
+         bsr   L0FCC
+         pshs  y,x,b,a
+         ldx   <u0004
+         bra   L0FC4
+L0FB6    cmpd  $02,s
+         bcs   L0FC4
+         cmpd  $04,s
+         bhi   L0FC4
+         subd  ,s
+         std   -$02,x
+L0FC4    ldd   ,x++
+         bne   L0FB6
+         leas  $06,s
+         puls  pc,y,x
+L0FCC    pshs  u,y,x,b,a
+         ldu   #$0000
+         tfr   x,d
+         subd  $04,s
+         pshs  x,b,a
+         addd  $04,s
+         beq   L100B
+L0FDB    lda   ,x
+         pshs  a
+         bra   L0FE9
+L0FE1    lda   ,y
+         sta   ,x
+         leau  u0001,u
+         tfr   y,x
+L0FE9    tfr   x,d
+         addd  $05,s
+         cmpd  $09,s
+         bcs   L0FF4
+         addd  $01,s
+L0FF4    tfr   d,y
+         cmpd  $03,s
+         bne   L0FE1
+         puls  a
+         sta   ,x
+         leax  $01,y
+         stx   $02,s
+         leau  u0001,u
+         tfr   u,d
+         addd  ,s
+         bne   L0FDB
+L100B    leas  $04,s
+         puls  pc,u,y,x,b,a
+         pshs  u,y,x,b,a
+         lda   <u0036
+         cmpa  #$39
+         beq   L1051
+         tst   <u00A0
+         bne   L1093
+         inc   <u00A0
+         lda   <u0035
+         bne   L104D
+         ldd   <u00B3
+         subd  #$0001
+         bhi   L1072
+         bmi   L1037
+L102A    lbsr  L0DA4
+         leax  >L077A,pcr
+         lbsr  L1343
+         lbsr  L1236
+L1037    leax  >L078D,pcr
+         leay  >L06AA,pcr
+         lbsr  L08BC
+         bcc   L1037
+         lda   <u0035
+         bne   L104D
+         lbsr  L08B5
+         bra   L1037
+L104D    cmpa  #$02
+         bne   L102A
+L1051    lbsr  L011D
+         lda   #$03
+L1056    cmpa  <u00BE
+         beq   L105D
+         os9   I$Close  
+L105D    inca  
+         cmpa  #$10
+         bcs   L1056
+         lbra  L0878
+         lbsr  L0A79
+         bne   L1077
+         leax  ,y
+         lbsr  L1731
+         bcc   L107A
+         rts   
+L1072    bsr   L107A
+         clrb  
+         bra   L1079
+L1077    ldb   #$01
+L1079    clra  
+L107A    std   <u00B3
+         lsl   <u0034
+         coma  
+         ror   <u0034
+         bra   L108F
+         lbsr  L0DA4
+         lsl   <u0034
+         lsr   <u0034
+         ldd   #$0001
+         std   <u00B3
+L108F    leas  $02,s
+         clr   <u00A0
+L1093    puls  pc,u,y,x,b,a
+         ldy   <u0019
+         jsr   ,y
+         pshs  u,y,x,b,a
+         cmpy  <u0046
+         beq   L10CB
+         ldb   <u007D
+         ldx   <u0080
+         ldu   <u0082
+         pshs  u,x,b
+         stu   <u0080
+         lbsr  L0DA4
+         lda   #$3D
+         lbsr  L135C
+         ldb   ,y
+         addb  #$01
+         cmpb  #$06
+         bcc   L10C0
+         leax  ,y
+         lbsr  L1393
+L10C0    lbsr  L124D
+         puls  u,x,b
+         stb   <u007D
+         stx   <u0080
+         stu   <u0082
+L10CB    puls  pc,u,y,x,b,a
+L10CD    lbsr  L1234
+         tst   <$17,x
+         bmi   L10F3
+         ldx   <u005E
+L10D7    clr   <u0074
+L10D9    tst   <u0035
+         bne   L10F3
+         leay  ,x
+         lbsr  L1BB2
+         bsr   L10F5
+         exg   x,y
+         cmpx  <u0060
+         bcs   L10D9
+         cmpx  <u005C
+         bne   L10F3
+         cmpy  <u0060
+         bcs   L10D9
+L10F3    clra  
+         rts   
+L10F5    pshs  u,y,x
+         lbsr  L0DA4
+         ldx   <u002F
+         tst   <$17,x
+         bmi   L117C
+         ldx   ,s
+         tfr   y,d
+         subd  ,s
+         bmi   L1179
+         pshs  x,b,a
+         addd  #$0040
+         cmpd  <u000C
+         lbcc  L0F52
+         tst   <u0084
+         bmi   L1141
+         lda   #$20
+         cmpx  <u005C
+         bhi   L1128
+         beq   L1126
+         cmpy  <u005C
+         bls   L1128
+L1126    lda   #$2A
+L1128    lbsr  L135C
+         cmpx  <u0060
+         bcc   L1141
+         tfr   x,d
+         subd  <u005E
+         ldx   <u0082
+         lbsr  L0114
+         lda   #$20
+         sta   ,x+
+         stx   <u0082
+         lbsr  L1259
+L1141    puls  y,b,a
+         cmpy  <u0060
+         bcc   L1179
+         ldu   <u004A
+         lbsr  L19D8
+         lbsr  L11DB
+         stu   <u005C
+         leax  d,u
+         stx   <u0060
+         stx   <u004A
+         leay  ,u
+         tst   <u0084
+         bmi   L116C
+         leax  ,y
+         lbsr  L1660
+         bne   L116C
+         leax  >L02D4,pcr
+         lbsr  L1254
+L116C    lbsr  L0DA4
+         lbsr  L1AAF
+         lbsr  L1274
+         bsr   L11BE
+         dec   <u0083
+L1179    lbsr  L124D
+L117C    puls  pc,u,y,x
+         ldx   <u002F
+         tst   <$17,x
+         bpl   L1187
+         coma  
+         rts   
+L1187    ldy   <u0080
+         lbsr  L010B
+         bsr   L11DB
+         ldx   <u004A
+         lbsr  L1660
+         beq   L11BE
+         stx   <u005E
+         stx   <u005C
+         leay  ,x
+         ldx   <u00AB
+         stx   <u0060
+         stx   <u004A
+         lbsr  L0117
+         ldx   <u002F
+         lda   <$17,x
+         clr   <$17,x
+         tsta  
+         bne   L11BE
+         leax  <L11BE,pcr
+         lbsr  L0882
+         ldx   <u005E
+         lbsr  L0120
+         lbra  L0878
+L11BE    pshs  u,y,x,b,a
+         ldu   <u0046
+         pulu  y,x,b,a
+         sty   <u000A
+         stx   <u000C
+         std   <u004A
+         pulu  y,x,b,a
+         sty   <u0060
+         stx   <u005E
+         std   <u005C
+L11D4    stu   <u0046
+         stu   <u0044
+         clra  
+         puls  pc,u,y,x,b,a
+L11DB    pshs  u,y,x,b,a
+         ldu   <u0046
+         ldd   <u005C
+         ldx   <u005E
+         ldy   <u0060
+         pshu  y,x,b,a
+         ldd   <u004A
+         ldx   <u000C
+         ldy   <u000A
+         pshu  y,x,b,a
+         bra   L11D4
+         ldy   <u0031
+         leax  >L073F,pcr
+L11FA    bsr   L120C
+         lbsr  L1343
+         ldx   $03,y
+         bsr   L123F
+         leax  >L0782,pcr
+         ldy   $07,y
+         bne   L11FA
+L120C    lbra  L0DA4
+         lbsr  L00F6
+         beq   L1232
+         lbsr  L0F57
+         bcs   L1232
+         ldx   ,x
+         ldy   <u0031
+L121E    ldy   $07,y
+         beq   L1232
+         cmpx  $03,y
+         bne   L121E
+         lsl   ,y
+         coma  
+         ror   ,y
+         leax  >L078B,pcr
+         bra   L1248
+L1232    coma  
+         rts   
+L1234    bsr   L120C
+L1236    leax  >L073F,pcr
+         lbsr  L1343
+         ldx   <u002F
+L123F    pshs  x
+         leax  <$19,x
+         bsr   L124A
+         puls  pc,x
+L1248    bsr   L120C
+L124A    lbsr  L137B
+L124D    lbsr  L135A
+         bsr   L1259
+         bra   L120C
+L1254    bsr   L120C
+         lbsr  L137B
+L1259    pshs  y,x,b,a
+         ldd   <u0082
+         subd  <u0080
+         bls   L126E
+         tfr   d,y
+         ldx   <u0080
+         lda   #$02
+         os9   I$WritLn 
+         bcc   L126E
+         bsr   L1270
+L126E    puls  pc,y,x,b,a
+L1270    os9   F$PErr   
+         rts   
+L1274    ldy   <u005C
+         cmpy  <u0060
+         bcc   L12B8
+         ldb   ,y
+         cmpb  #$3A
+         bne   L128C
+         leay  $01,y
+         lbsr  L13B8
+         lbsr  L1345
+         ldb   ,y
+L128C    tst   <u0084
+         bmi   L12A1
+         bsr   L12E2
+         ldb   <u0074
+         pshs  b
+         bsr   L12C1
+         puls  a
+         sta   <u0074
+         tfr   b,a
+         lbsr  L1337
+L12A1    ldb   ,y+
+         bmi   L12AD
+         bsr   L12E2
+         bsr   L12C1
+         bsr   L12F5
+         bra   L12B0
+L12AD    lbsr  L1472
+L12B0    cmpy  <u0060
+         bcs   L12A1
+L12B5    sty   <u005C
+L12B8    lda   #$0D
+         lbra  L135C
+         leas  $02,s
+         bra   L12B5
+L12C1    sta   ,-s
+         bmi   L12DF
+         anda  #$03
+         beq   L12DF
+         cmpa  #$01
+         bne   L12D1
+         inc   <u0074
+         bra   L12DF
+L12D1    decb  
+         bpl   L12D5
+         clrb  
+L12D5    cmpa  #$03
+         beq   L12DF
+         dec   <u0074
+         bpl   L12DF
+         clr   <u0074
+L12DF    lda   ,s+
+         rts   
+L12E2    leax  >L03DE,pcr
+         tstb  
+         bpl   L12EB
+         subb  #$2A
+L12EB    lda   #$03
+         mul   
+         leax  d,x
+         lda   ,x
+         rts   
+L12F3    bsr   L12E2
+L12F5    leax  $01,x
+         anda  #$60
+         beq   L1301
+         cmpa  #$60
+         bne   L1313
+         leay  $02,y
+L1301    lda   -$01,x
+         pshs  a
+         ldd   ,x
+         leax  d,x
+         puls  a
+         anda  #$18
+         cmpa  #$10
+         beq   L137B
+         bra   L1341
+L1313    cmpa  #$20
+         bne   L131B
+         ldd   ,x
+         jmp   d,x
+L131B    bsr   L1323
+         bsr   L131F
+L131F    lda   ,x+
+         bne   L135C
+L1323    lda   <u007D
+         cmpa  #$41
+         bcs   L1340
+         lda   #$0A
+         bsr   L135C
+         clr   <u007D
+         tst   <u0084
+         bmi   L1340
+         lda   <u0074
+         adda  #$03
+L1337    lsla  
+         adda  #$06
+         ldb   #$10
+         lbsr  L0108
+         clra  
+L1340    rts   
+L1341    bsr   L1345
+L1343    bsr   L137B
+L1345    pshs  u,b,a
+         bsr   L1323
+         bcc   L1358
+         ldu   <u0082
+         lda   #$20
+         cmpa  -u0001,u
+         beq   L1358
+         cmpu  <u0080
+         bne   L1360
+L1358    puls  pc,u,b,a
+L135A    lda   #$0D
+L135C    pshs  u,b,a
+         ldu   <u0082
+L1360    sta   ,u+
+         ldd   <u0082
+         subd  <u0080
+         tsta  
+         bne   L136D
+         inc   <u007D
+         stu   <u0082
+L136D    puls  pc,u,b,a
+         lda   #$2E
+         bsr   L135C
+L1373    ldx   ,y++
+         ldd   <u0062
+         leax  d,x
+         leax  $03,x
+L137B    pshs  x
+L137D    lda   ,x
+         anda  #$7F
+         bsr   L135C
+         tst   ,x+
+         bpl   L137D
+         puls  pc,x
+         ldb   #$03
+         ldx   <u0044
+         pshs  y,b
+         leay  -$01,y
+         bra   L1395
+L1393    pshs  y,b
+L1395    ldd   $04,y
+         std   ,--x
+         ldd   $02,y
+         std   ,--x
+         ldd   ,y
+         std   ,--x
+         leay  ,x
+         puls  b
+         bra   L13C5
+         ldb   ,y
+         clra  
+         bra   L13BA
+         leax  >L01EC,pcr
+         bra   L13B6
+         leax  >L01E6,pcr
+L13B6    bsr   L1341
+L13B8    ldd   ,y++
+L13BA    pshs  y
+         ldy   <u0044
+         leay  -$06,y
+         std   $01,y
+         ldb   #$02
+L13C5    lbsr  L0108
+         puls  pc,y
+L13CA    bsr   L13DA
+L13CC    lda   ,y+
+         cmpa  #$FF
+         beq   L13DA
+         bsr   L135C
+         cmpa  #$22
+         bne   L13CC
+         bra   L13CA
+L13DA    lda   #$22
+L13DC    lbra  L135C
+         lda   #$24
+         bsr   L13DC
+         ldb   #$14
+         lbsr  L0108
+         leay  $02,y
+         rts   
+         leax  >L0267,pcr
+         lbsr  L1343
+         lda   -$01,y
+         adda  #$FB
+         bra   L13DC
+         leax  >L01F3,pcr
+L13FC    lbsr  L1343
+         lbra  L1373
+         leax  >L0195,pcr
+         leay  $01,y
+         bsr   L13FC
+         leay  $06,y
+         rts   
+         leax  >L029D,pcr
+         lbsr  L1341
+         lda   ,y
+         cmpa  #$3A
+         beq   L141C
+         inc   <u0074
+L141C    rts   
+L141D    bvc   L13C9
+         leax  >L141D,pcr
+         bra   L1429
+         leax  >L026D,pcr
+L1429    lbsr  L1343
+         ldb   ,y+
+L142E    decb  
+         beq   L141C
+         lda   ,y+
+         bsr   L13DC
+L1435    bra   L142E
+         com   <u00EF
+         bita  <u0001
+         std   ,--w
+         aim   #$ED,<u00F2
+         lsr   <u00EF
+         anda  <u0080
+         stu   [e,x]
+         neg   <u00A6
+         suba  -$0C,y
+         aim   #$86,<u003A
+L144D    bsr   L13DC
+         leax  <L1435,pcr
+L1452    leax  $02,x
+         lda   ,s
+         anda  ,x
+         cmpa  ,x+
+         bne   L1452
+         tsta  
+         beq   L1470
+         eora  ,s
+         sta   ,s
+         ldd   ,x
+         leax  d,x
+         lbsr  L137B
+         lda   #$2B
+         tst   ,s
+         bne   L144D
+L1470    puls  pc,a
+L1472    pshs  u
+         ldu   <u0044
+         clr   ,-u
+         clr   ,-u
+         leay  -$01,y
+L147C    ldb   ,y
+         bpl   L14AD
+         lbsr  L12E2
+         tfr   a,b
+         lda   ,y+
+         bitb  #$80
+         bne   L147C
+         orb   #$80
+         pshu  b,a
+         bitb  #$18
+         bne   L147C
+         andb  #$7F
+         pshu  b,a
+         bitb  #$04
+         bne   L14A1
+         ldd   ,y++
+         std   u0002,u
+         bra   L147C
+L14A1    leay  -$01,y
+         sty   u0002,u
+         ldb   ,y+
+         lbsr  L1B51
+         bra   L147C
+L14AD    sty   <u005C
+         leay  ,u
+         clra  
+         clrb  
+         std   ,--y
+         pshs  b,a
+         sta   <u00BF
+         sta   <u00B1
+L14BC    ldd   ,u++
+         bitb  #$08
+         beq   L14E7
+         andb  #$07
+         cmpb  <u00BF
+         bhi   L14DB
+         bne   L14D8
+         cmpb  #$06
+         bne   L14D4
+         tst   <u00B1
+         beq   L14D8
+         bra   L14DB
+L14D4    tst   <u00B1
+         beq   L14DB
+L14D8    lbsr  L156A
+L14DB    stb   <u00BF
+         orb   #$80
+         std   ,--y
+         lda   #$01
+         sta   <u00B1
+         bra   L14BC
+L14E7    clr   <u00B1
+         bitb  #$03
+         beq   L1516
+         bitb  #$04
+         bne   L1516
+         bitb  #$10
+         bne   L14F9
+         pulu  x
+         stx   ,--y
+L14F9    std   ,--y
+         andb  #$03
+         bsr   L156A
+         cmpa  #$BE
+         bne   L1508
+         ldx   #$54FF
+         stx   ,--y
+L1508    ldx   #$4B80
+         bra   L150F
+L150D    stx   ,--y
+L150F    decb  
+         bne   L150D
+         stb   <u00BF
+L1514    bra   L14BC
+L1516    bitb  #$10
+         bne   L151E
+         pulu  x
+L151C    pshs  x
+L151E    pshs  b,a
+         cmpa  #$89
+         bcs   L1528
+         cmpa  #$8C
+         bls   L14BC
+L1528    ldd   ,y++
+         tstb  
+         bmi   L1533
+         beq   L1541
+         ldx   ,y++
+         bra   L151C
+L1533    pshs  b,a
+         clr   $01,s
+         bitb  #$10
+         bne   L1528
+         andb  #$07
+         stb   <u00BF
+         bra   L1514
+L1541    ldx   ,u++
+         beq   L1552
+         pshu  x
+         std   ,--y
+         bra   L1514
+L154B    puls  y
+         ldb   ,y+
+         lbsr  L12F3
+L1552    ldd   ,s++
+         beq   L1565
+         bitb  #$04
+         bne   L154B
+         leay  ,s
+         exg   a,b
+         lbsr  L12F3
+         leas  ,y
+         bra   L1552
+L1565    ldy   <u005C
+         puls  pc,u
+L156A    ldx   ,s
+         pshs  x
+         ldx   #$4E00
+         stx   $02,s
+         ldx   #$4DFF
+         stx   ,--y
+         rts   
+         lbsr  L0A86
+         lbsr  L0EE6
+         ldy   ,x
+         tst   $06,y
+         bne   L15CE
+         pshs  x
+         lbsr  L1A17
+         lbsr  L1234
+         ldy   <u005E
+         bsr   L15DC
+L1593    lda   <u0035
+         cmpa  #$02
+         bne   L159C
+         lbsr  L197C
+L159C    leax  >L078F,pcr
+         leay  >L0701,pcr
+         lbsr  L08BC
+         bcc   L1593
+         tst   <u0035
+         bne   L1593
+         leax  >L1593,pcr
+         pshs  x
+         ldx   <u0080
+         lsl   ,x
+         lsr   ,x
+         lbsr  L1731
+         lbcs  L08B5
+         lbsr  L19F6
+         lda   ,x
+         cmpa  #$0D
+         beq   L15DC
+         ldy   <u0080
+         bra   L15EA
+L15CE    coma  
+         rts   
+         leax  -$01,y
+         lsl   ,x
+         asr   ,x
+         lbsr  L16DB
+         lbsr  L16A6
+L15DC    sty   <u005C
+         lbsr  L166B
+         leax  ,y
+         lbsr  L1BB2
+         lbra  L1696
+L15EA    bsr   L15EF
+         bcc   L15DC
+         rts   
+L15EF    tst   <u000C
+         beq   L1659
+         clr   <u00A0
+         lbsr  L010B
+         ldx   <u004A
+         lda   ,x
+         cmpa  #$3A
+         bne   L1647
+         clra  
+         clrb  
+         sta   ,-s
+         ldy   <u005C
+         lbsr  L19F9
+         cmpy  <u0060
+         bcc   L1618
+         ldd   $01,x
+         cmpd  $01,y
+         bls   L1618
+         inc   ,s
+L1618    ldy   <u005E
+         ldd   $01,x
+         lbsr  L19F6
+         tst   ,s+
+         bne   L162B
+         bcc   L162B
+         cmpy  <u005C
+         bcc   L1647
+L162B    sty   <u005C
+         cmpy  <u0060
+         bcc   L1647
+         ldx   <u004A
+         ldd   $01,x
+         cmpd  $01,y
+         bne   L1647
+         pshs  y
+         lbsr  L1BB2
+         tfr   y,d
+         subd  ,s++
+         bra   L1649
+L1647    clra  
+         clrb  
+L1649    ldy   <u005C
+         lbsr  L199A
+         ldx   <u005C
+         bsr   L1660
+         bne   L1657
+         leay  ,x
+L1657    clra  
+         rts   
+L1659    ldb   #$20
+         lbsr  L1270
+         coma  
+         rts   
+L1660    lda   ,x
+         cmpa  #$3A
+         bne   L1668
+         lda   $03,x
+L1668    cmpa  #$3D
+         rts   
+L166B    ldx   #$0000
+         ldy   <u005E
+L1671    cmpy  <u005C
+         bcc   L1680
+         leax  $01,x
+         lbsr  L1BB2
+         cmpy  <u0060
+         bcs   L1671
+L1680    sty   <u005C
+         stx   <u00B5
+         clra  
+         rts   
+         bsr   L16B7
+         bsr   L16A6
+         cmpx  <u005E
+         bhi   L1696
+         pshs  y,x
+         lbsr  L1234
+         puls  y,x
+L1696    ldd   <u0060
+         pshs  b,a
+         sty   <u0060
+         lbsr  L10D7
+         puls  b,a
+         std   <u0060
+         clra  
+         rts   
+L16A6    pshs  x,b
+         ldx   <u0082
+         ldb   ,x
+         cmpb  #$0D
+         bne   L16B2
+         puls  pc,x,b
+L16B2    leas  $05,s
+         lbra  L08B5
+L16B7    lda   ,y+
+         cmpa  #$20
+         beq   L16B7
+         cmpa  #$2A
+         bne   L16CA
+         sty   <u0082
+         ldx   <u005E
+         ldy   <u0060
+         rts   
+L16CA    leax  -$01,y
+         bsr   L16DB
+         bcs   L16DA
+         ldx   <u005C
+         cmpy  <u005C
+         bcc   L16DA
+         exg   x,y
+         clra  
+L16DA    rts   
+L16DB    clr   ,-s
+         ldd   ,x
+         cmpa  #$2B
+         bne   L16F0
+         ldy   <u0060
+L16E6    cmpb  #$2A
+         bne   L16FB
+         leax  $02,x
+         stx   <u0082
+         puls  pc,a
+L16F0    cmpa  #$2D
+         bne   L16FD
+         inc   ,s
+         ldy   <u005E
+         bra   L16E6
+L16FB    leax  $01,x
+L16FD    lda   ,x
+         cmpa  #$30
+         bcs   L1707
+         cmpa  #$39
+         bls   L170C
+L1707    ldd   #$0001
+         bra   L1710
+L170C    bsr   L1731
+         bcs   L172B
+L1710    stx   <u0082
+         ldy   <u005C
+         tst   ,s+
+         beq   L1726
+         ldy   <u005E
+         pshs  b,a
+         ldd   <u00B5
+         subd  ,s++
+         bcc   L1726
+         clra  
+         clrb  
+L1726    lbsr  L1BB8
+         clra  
+         rts   
+L172B    ldy   <u005C
+         com   ,s+
+         rts   
+L1731    ldy   <u0046
+         lbsr  L0123
+         lda   ,y+
+         cmpa  #$02
+         beq   L1742
+         clra  
+         ldd   ,y
+         bne   L1743
+L1742    coma  
+L1743    rts   
+         clrb  
+         bra   L1749
+         ldb   #$01
+L1749    leas  -$0F,s
+         stb   ,s
+         lda   ,y
+         clr   $01,s
+         cmpa  #$2A
+         bne   L1759
+         sta   $01,s
+         leay  $01,y
+L1759    ldb   ,y+
+         cmpb  #$20
+         beq   L1759
+         tfr   b,a
+         sty   <u0082
+         lbsr  L1893
+         stu   $02,s
+         lbmi  L196E
+         tst   ,s
+         beq   L177A
+         lbsr  L1893
+         stu   $04,s
+         lbmi  L196E
+L177A    cmpa  #$0D
+         beq   L1786
+         lda   ,y+
+         cmpa  #$0D
+         lbne  L196E
+L1786    ldu   <u0046
+         stu   $0D,s
+L178A    lda   ,-y
+         sta   ,-u
+         cmpy  <u0082
+         bhi   L178A
+         stu   <u0046
+         stu   <u0044
+         ldd   $02,s
+         leau  d,u
+         leau  u0001,u
+         stu   $06,s
+         ldy   <u005C
+         sty   $0B,s
+         clr   $0A,s
+         lbra  L1861
+L17AA    lbsr  L0DA4
+         sty   <u005C
+         lbsr  L1274
+         ldy   <u0080
+         leay  $05,y
+         lsl   $0A,s
+         asr   $0A,s
+L17BC    tst   <u0035
+         bne   L1823
+         ldd   <u0082
+         subd  $02,s
+         ldx   <u0046
+         lbsr  L18A7
+         bcs   L1818
+         lda   #$81
+         sta   $0A,s
+         tst   ,s
+         beq   L1818
+         ldd   <u0082
+         addd  $04,s
+         subd  $02,s
+         subd  <u0080
+         cmpd  #$00E6
+         bhi   L1818
+         ldx   <u0082
+         exg   x,y
+         ldd   $02,s
+         lbsr  L0FCC
+         tfr   y,d
+         subd  $02,s
+         tfr   d,y
+         ldu   $06,s
+         pshs  x,b,a
+L17F4    lda   ,u+
+         sta   ,y+
+         cmpa  #$FF
+         bne   L17F4
+         leay  -$01,y
+         ldd   ,s++
+         subd  ,s
+         puls  x
+         lbsr  L0FCC
+         sty   <u0082
+         ldd   $04,s
+         leay  d,x
+         ldd   $02,s
+         bne   L1814
+         leay  $01,y
+L1814    tst   $01,s
+         bne   L17BC
+L1818    tst   $0A,s
+         bpl   L185B
+         ldy   $08,s
+         ldd   ,s
+         bne   L182E
+L1823    ldx   $0D,s
+         stx   <u0046
+         stx   <u0044
+         leas  $0F,s
+         lbra  L15DC
+L182E    lbsr  L1259
+         sty   $0B,s
+         tst   ,s
+         beq   L185B
+         leax  ,y
+         lbsr  L1BB2
+         lbsr  L198E
+         sty   <u005C
+         ldy   <u0080
+         lbsr  L15EF
+         sty   <u005C
+         ldy   $08,s
+         lbsr  L1BB2
+         cmpy  <u005C
+         bne   L186B
+         tst   $01,s
+         beq   L186B
+L185B    ldy   $08,s
+         lbsr  L1BB2
+L1861    sty   $08,s
+         cmpy  <u0060
+         lbcs  L17AA
+L186B    lbsr  L0DA4
+         tst   $0A,s
+         bne   L1882
+         leax  >L0793,pcr
+         lbsr  L1343
+         ldy   <u0046
+         lbsr  L13CA
+         lbsr  L124D
+L1882    ldy   $0B,s
+         sty   <u005C
+         ldx   $0D,s
+         stx   <u0046
+         stx   <u0044
+         leas  $0F,s
+         lbra  L166B
+L1893    ldu   #$FFFF
+L1896    cmpa  #$0D
+         beq   L18A2
+         leau  u0001,u
+         lda   ,y+
+         cmpb  -$01,y
+         bne   L1896
+L18A2    clr   -$01,y
+         com   -$01,y
+         rts   
+L18A7    pshs  b,a
+         bra   L18BB
+L18AB    pshs  y,x
+L18AD    lda   ,x+
+         cmpa  #$FF
+         beq   L18C3
+         cmpa  ,y+
+         beq   L18AD
+         puls  y,x
+         leay  $01,y
+L18BB    cmpy  ,s
+         bls   L18AB
+         coma  
+         puls  pc,b,a
+L18C3    puls  y,x
+         clra  
+         puls  pc,b,a
+         ldd   #$0064
+         ldx   #$000A
+         pshs  x,b,a
+         leax  ,y
+         ldy   <u00B5
+         lda   ,x
+         cmpa  #$2A
+         bne   L18E3
+         ldy   #$0000
+L18DF    leax  $01,x
+         lda   ,x
+L18E3    cmpa  #$20
+         beq   L18DF
+         pshs  y
+         cmpa  #$0D
+         beq   L1905
+         lbsr  L1731
+         bcs   L196A
+         std   $02,s
+         lda   ,x+
+         cmpa  #$0D
+         beq   L1905
+         lbsr  L1731
+         bcs   L196A
+         std   $04,s
+         bmi   L196A
+         lda   ,x
+L1905    cmpa  #$0D
+         bne   L196A
+         bsr   L197E
+         ldd   ,s++
+         ldy   <u005E
+         lbsr  L1BB8
+         sty   <u005C
+         ldd   ,s
+         lbsr  L19F6
+         clr   ,-s
+         cmpy  <u005C
+         bcs   L1973
+         bsr   L1949
+         cmpx  #$0000
+         ble   L1973
+         tst   <u0035
+         bne   L1935
+         tst   <u0035
+         bne   L1935
+         inc   ,s
+         bsr   L1949
+L1935    leas  $05,s
+         ldx   $02,s
+         lbsr  L1A17
+         ldy   <u005E
+         ldd   <u00B5
+         lbsr  L1BB8
+         sty   <u005C
+         clra  
+         rts   
+L1949    ldy   <u005C
+         ldx   $03,s
+L194E    clra  
+         clrb  
+         lbsr  L19F9
+         cmpy  <u0060
+         bcc   L1969
+         tst   $02,s
+         beq   L195E
+         stx   $01,y
+L195E    lbsr  L1BB2
+         tfr   x,d
+         addd  $05,s
+         tfr   d,x
+         bpl   L194E
+L1969    rts   
+L196A    leas  $06,s
+         bra   L1970
+L196E    leas  $0F,s
+L1970    lbra  L08B5
+L1973    leax  >L0774,pcr
+         lbsr  L1248
+         bra   L1935
+L197C    leas  $04,s
+L197E    lbsr  L0111
+         clra  
+         rts   
+         lbsr  L16B7
+         lbsr  L16A6
+         bsr   L198E
+         lbra  L15DC
+L198E    ldd   <u004A
+         std   <u00AB
+         tfr   y,d
+         pshs  x
+         subd  ,s++
+         leay  ,x
+L199A    pshs  u,y,x,b,a
+         leax  d,y
+         pshs  x
+         ldy   <u00AB
+         ldd   <u004A
+         subd  ,s
+         beq   L19AC
+         lbsr  L0FCC
+L19AC    ldd   <u00AB
+         ldu   ,s
+         subd  ,s++
+         bls   L19BA
+         ldy   $04,s
+         lbsr  L010E
+L19BA    ldd   <u00AB
+         subd  <u004A
+         ldy   $04,s
+         leay  d,y
+         sty   $04,s
+         subd  ,s++
+         pshs  b,a
+         addd  <u0060
+         std   <u0060
+         std   <u004A
+         ldd   <u000C
+         subd  ,s
+         std   <u000C
+         puls  pc,u,y,x,b,a
+L19D8    pshs  y,x,b,a
+         leay  d,y
+         leau  d,u
+         andb  #$03
+L19E0    beq   L19EF
+         lda   ,-y
+         sta   ,-u
+         decb  
+         bra   L19E0
+L19E9    ldx   ,--y
+         ldd   ,--y
+         pshu  x,b,a
+L19EF    cmpy  $04,s
+         bne   L19E9
+         puls  pc,y,x,b,a
+L19F6    ldy   <u005E
+L19F9    pshs  b,a
+         bra   L1A00
+L19FD    lbsr  L1BB2
+L1A00    cmpy  <u0060
+         bcc   L1A14
+         lda   ,y
+         cmpa  #$3A
+         bne   L19FD
+         ldd   ,s
+         cmpd  $01,y
+         bhi   L19FD
+         puls  pc,b,a
+L1A14    coma  
+         puls  pc,b,a
+L1A17    pshs  u,y,x,b,a
+         lbsr  L0F9F
+         ldx   ,x
+         stx   <u002F
+         ldd   $09,x
+         addd  <u002F
+         std   <u005E
+         ldd   $0F,x
+         addd  <u002F
+         std   <u0060
+         std   <u004A
+         ldd   $02,x
+         subd  $0F,x
+         pshs  b,a
+         ldd   <u0000
+         addd  <u0002
+         subd  ,s
+         tfr   d,u
+         std   <u0066
+         ldd   <u002F
+         addd  $0F,x
+         tfr   d,y
+         puls  b,a
+         bsr   L19D8
+         ldd   $0D,x
+         subd  $0F,x
+         subd  #$0003
+         std   <u0068
+         addd  <u0066
+         addd  #$0003
+         std   <u0062
+         ldd   $02,x
+         subd  $0D,x
+         addd  #$0003
+         std   <u0064
+         ldy   <u005E
+         bsr   L1AAF
+         ldx   <u0062
+         ldd   -$03,x
+         beq   L1A87
+L1A6C    pshs  b,a
+         leau  ,x
+         leax  $03,x
+L1A72    ldb   ,x+
+         bpl   L1A72
+         lda   #$02
+         cmpb  #$A4
+         bne   L1A7E
+         lda   #$04
+L1A7E    sta   ,u
+         puls  b,a
+         subd  #$0001
+         bgt   L1A6C
+L1A87    ldx   <u0066
+         ldd   <u0068
+         leax  d,x
+         stx   <u00DA
+         stx   <u0066
+         addd  <u000C
+         std   <u000C
+         clr   <u0068
+         clr   <u0069
+         puls  pc,u,y,x,b,a
+L1A9B    ldb   ,y+
+         bpl   L1AA1
+         subb  #$2A
+L1AA1    clra  
+         leax  >L1BBE,pcr
+         ldb   d,x
+         lsrb  
+         lsrb  
+         lsrb  
+         lsrb  
+         lbsr  L1B5E
+L1AAF    cmpy  <u0060
+         bcs   L1A9B
+         rts   
+L1AB5    daa   
+         lbsr  L2FFC
+         pshs  u,b,a
+         bgt   L1B0A
+         mul   
+         brn   L1B13
+         exg   x,0
+         orcc  #$0F
+         lda   -$01,y
+         adda  #$93
+         sta   -$01,y
+         leay  $01,y
+L1ACC    leay  $01,y
+         rts   
+         dec   -$01,y
+         dec   -$01,y
+         dec   -$01,y
+         rts   
+         ldd   ,y
+         addd  <u005E
+         tfr   d,x
+         ldd   -$02,x
+         std   ,y++
+         dec   -$03,y
+         rts   
+         lda   ,y+
+         cmpa  #$85
+         bne   L1AEC
+         leay  $09,y
+         rts   
+L1AEC    clrb  
+         bsr   L1B0C
+         leay  $07,y
+         rts   
+         lda   ,y
+         cmpa  #$4F
+         bne   L1ACC
+         leay  $05,y
+         rts   
+L1AFB    lda   ,y+
+         cmpa  #$FF
+         bne   L1AFB
+         rts   
+         ldb   ,y
+         clra  
+         leay  d,y
+         rts   
+         ldb   -$01,y
+L1B0A    andb  #$04
+L1B0C    lda   #$60
+         pshs  b,a
+         lda   #$85
+         sta   -$01,y
+         ldx   <u0062
+         ldd   -$03,x
+         ldu   ,y
+         bra   L1B29
+L1B1C    puls  b,a
+L1B1E    subd  #$0001
+         beq   L1B4E
+         leax  $03,x
+L1B25    tst   ,x+
+         bpl   L1B25
+L1B29    cmpu  $01,x
+         bne   L1B1E
+         pshs  b,a
+         lda   ,x
+         anda  #$E0
+         cmpa  $02,s
+         bne   L1B1C
+         lda   ,x
+         anda  #$18
+         bne   L1B1C
+         lda   ,x
+         anda  #$04
+         eora  $03,s
+         bne   L1B1C
+         tfr   x,d
+         subd  <u0062
+         std   ,y++
+         leas  $02,s
+L1B4E    leas  $02,s
+         rts   
+L1B51    tstb  
+         bpl   L1B56
+         subb  #$2A
+L1B56    leax  <L1BBE,pcr
+         clra  
+         ldb   d,x
+         andb  #$0F
+L1B5E    leax  >L1AB5,pcr
+         ldb   b,x
+         jmp   b,x
+L1B66    pshs  u
+         ldb   ,y+
+L1B6A    cmpb  ,u+
+         bhi   L1B6A
+         puls  u
+         beq   L1B7A
+         bsr   L1B51
+L1B74    cmpy  <u0060
+         bcs   L1B66
+         coma  
+L1B7A    puls  pc,u,x,b,a
+L1B7C    tfr   y,x
+         abx   
+         stu   >$3456
+         leau  >L1B7C,pcr
+         bra   L1B74
+L1B88    fcb   $3E >
+L1B89    swi   
+         fcb   $FF 
+         pshs  u,x,b,a
+         leau  <L1B88,pcr
+         bra   L1B74
+L1B92    pshs  u,x,b,a
+         leau  <L1B89,pcr
+         bra   L1B74
+L1B99    bls   L1B20
+         lda   #$87
+         eora  #$89
+         ora   #$8B
+         cmpx  #$F2F3
+         andb  >$F5F6
+         stb   >$F8F9
+         stu   >$3456
+         leau  <L1B99,pcr
+         bra   L1B74
+L1BB2    clra  
+         clrb  
+L1BB4    bsr   L1B92
+         bcs   L1BBD
+L1BB8    subd  #$0001
+         bcc   L1BB4
+L1BBD    rts   
+L1BBE    neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0022
+         neg   <u0000
+         lsr   $00,x
+         bhi   L1BD6
+L1BD6    neg   <u0000
+         bhi   L1BDA
+L1BDA    bhi   L1BDC
+L1BDC    neg   <u0022
+         sbca  <u0022
+         sbca  <u0022
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0077
+         asr   >$0022
+         sbca  <u0077
+         asr   >$0000
+         neg   <u0000
+         neg   <u0000
+         suba  #$00
+         bhi   L1C28
+         neg   <u0000
+         fcb   $11 
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         bhi   L1BB7
+         sbca  ,-y
+         sbca  ,-y
+         bhi   L1C3D
+         bhi   L1C3F
+         bhi   L1C41
+         bhi   L1C43
+         fcb   $11 
+         bhi   L1C57
+         fcb   $55 U
+         bhi   L1C27
+L1C27    neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         suba  >$0000
+         neg   <u0000
+         suba  >$0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         suba  >$0000
+         neg   <u00B0
+         neg   <u00B0
+         neg   <u00B0
+         neg   <u00B0
+         neg   <u00B0
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u00B0
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u00B0
+         neg   <u0000
+         neg   <u0000
+         suba  >$C000
+         suba  >$C000
+         suba  >$C0D0
+         neg   <u00B0
+         subb  #$D0
+         neg   <u00B0
+         subb  #$00
+         suba  >$C000
+         suba  >$C000
+         suba  >$00B0
+         neg   <u00B0
+         neg   <u0000
+         sbcb  ,-s
+         sbcb  ,-s
+         sbcb  ,-s
+         sbcb  ,-s
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L1C9E,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L1C9E    aim   #$E9,<u0007
+         tim   #$08,>$7508
+         comb  
+         lsl   <u0008
+         oim   #$74,<u009D
+         fcb   $1B 
+         aim   #$9D,<u001B
+         lsr   <u009D
+         fcb   $1B 
+         ror   <u009D
+         bpl   L1CB6
+L1CB6    jsr   <u001B
+         nop   
+         neg   <u0021
+         com   <u00CB
+         adcb  <u000A
+         cwai  #$BE
+         addb  #$D9
+         dec   <u003E
+         cmpx  >$CBE4
+         dec   <u003C
+         jsr   >$CBE4
+         dec   <u003D
+L1CCF    cmpx  >$CBE1
+         dec   <u003E
+         jsr   >$CBE1
+         dec   <u003D
+         ldx   >$CB52
+         lsl   <u003A
+         jsr   >$CBF1
+         eim   #$2A,<u00AA
+         addb  #$38
+         oim   #$28,<u00AA
+         addb  #$3E
+         aim   #$DC,<u00CB
+         addd  <u000A
+         ldx   >$CBD6
+         dec   <u00BC
+         addb  #$DD
+         rol   <u00BD
+         addb  #$E7
+         eim   #$AB,<u00CB
+         orb   $05,x
+         jsr   d,u
+         ldd   $05,x
+         ora   d,u
+         ldu   $05,x
+         stx   d,u
+         subb  >$05DE
+         addb  #$4C
+         inc   <u00BA
+         addb  #$4F
+         inc   <u00DB
+         addb  #$50
+         inc   <u00DD
+         addb  #$51
+         inc   <u00BB
+         addb  #$54
+         tim   #$A3,<u00CB
+         bne   L1D25
+         stx   >$CB37
+         oim   #$A1,<u00A1
+         neg   <u000C
+         ora   #$CB
+         fcb   $4B K
+         inc   <u00AC
+         addb  #$4D
+         inc   <u00A8
+         addb  #$4E
+         inc   <u00A9
+         andb  <u0089
+         inc   <u00AE
+         brn   L1CCF
+         ror   <u00A2
+         neg   <u0091
+         ror   <u00A4
+         addb  #$3F
+         aim   #$8D,<u0003
+         adda  >$0122
+         oim   #$12,<u0001
+         bhi   L1D53
+         com   >$02C9
+         com   <u00AB
+         com   <u00AB
+         com   <u00AB
+         aim   #$C9,<u0003
+         adda  $03,x
+         adda  $03,x
+         adda  $03,x
+         addd  #$03BB
+         oim   #$81,<u0001
+         ora   #$01
+         stx   <u0003
+         adda  $01,x
+         subd  $01,x
+         andb  #$01
+         ldu   #$01DD
+         com   <u00AB
+         oim   #$D9,<u0003
+         adda  $01,x
+         std   <u0001
+         cmpb  $01,x
+         std   <u0001
+         ldd   $03,x
+         ldd   <u0002
+         beq   L1D8D
+         adda  >$0227
+L1D8D    com   <u00BB
+         aim   #$54,<u0003
+         ldd   <u0002
+         lda   <u0002
+         adcb  #$03
+         ldd   <u0003
+         ldd   <u0003
+         leau  $03,x
+         leau  $03,x
+         bls   L1DA4
+         orb   >$0307
+         com   <u0011
+         com   <u0011
+         com   <u0072
+         com   <u007C
+         com   <u00DC
+         com   <u00DC
+         com   <u00DC
+         com   <u0080
+         com   <u0080
+         com   <u0098
+         com   <u0098
+         aim   #$C9,<u0096
+         tim   #$34,<u0002
+         ldx   <u00A7
+         lda   #$0D
+L1DC5    lsl   ,x
+         lsr   ,x
+         cmpa  ,x+
+         bne   L1DC5
+         ldx   <u00A7
+         bsr   L1E08
+         ldd   <u00B9
+         subd  <u00A7
+         pshs  b
+         ldx   <u00AF
+         stx   <u00AB
+         ldy   <u00A7
+         lda   #$3D
+         lbsr  L23FE
+         lbsr  L20E1
+         lbsr  L23FE
+         lda   #$20
+         ldx   <u0080
+L1DED    sta   ,x+
+         dec   ,s
+         bpl   L1DED
+         ldd   #$5E0D
+         std   -$01,x
+         ldx   <u0080
+         bsr   L1E08
+         puls  b,a
+         lbsr  L1CAA
+         ldx   <u0046
+         stx   <u0044
+L1E05    lbra  L1CB0
+L1E08    ldy   #$0100
+         lda   <u002E
+         os9   I$WritLn 
+         rts   
+         puls  x
+         lbsr  L1CAD
+         lbsr  L1F79
+         lbsr  L2135
+         sty   <u00A7
+         ldx   <u00AB
+         stx   <u00AF
+L1E24    bsr   L1E35
+         lda   <u00A3
+         lbsr  L23FE
+         cmpa  #$3E
+         beq   L1E24
+         cmpa  #$3F
+         bne   L1DBD
+         bra   L1E05
+L1E35    lbsr  L2327
+         lda   <u00A4
+         cmpa  #$01
+         bne   L1E4B
+         ldb   <u00A3
+         clra  
+         lslb  
+         rola  
+         leax  >L1D49,pcr
+         ldd   d,x
+         jmp   d,x
+L1E4B    cmpa  #$02
+         lbne  L210F
+L1E51    pshs  x
+         ldx   <u00AB
+         leax  -$01,x
+         stx   <u00AB
+         puls  pc,x
+         lbsr  L2150
+         cmpa  #$DD
+         lbne  L2108
+         bsr   L1E51
+         lda   #$53
+         lbsr  L23FE
+L1E6B    lbsr  L2150
+         cmpa  #$4D
+         bne   L1E84
+         lbsr  L2157
+         bne   L1E7F
+         lbsr  L2157
+         bne   L1E7F
+         lbsr  L2157
+L1E7F    lbsr  L22A8
+         bsr   L1EB2
+L1E84    lbsr  L218A
+         beq   L1E6B
+         cmpa  #$4C
+         bne   L1EAC
+         bsr   L1EB2
+         ldb   <u00A4
+         cmpb  #$00
+         beq   L1EAA
+         cmpb  #$03
+         bne   L1EB5
+         cmpa  #$44
+         bne   L1EAA
+         bsr   L1EB2
+         cmpa  #$4F
+         bne   L1EAC
+         lbsr  L2157
+         cmpa  #$50
+         bne   L1EB5
+L1EAA    bsr   L1EB2
+L1EAC    cmpa  #$51
+         beq   L1E6B
+         bra   L1E51
+L1EB2    lbra  L2327
+L1EB5    lda   #$18
+         bra   L1F1F
+L1EB9    lbsr  L23FE
+         bsr   L1F06
+         lbsr  L218A
+         beq   L1EB9
+L1EC3    lda   #$55
+L1EC5    lbsr  L23FE
+         bra   L1F14
+         lbsr  L2125
+         lbsr  L218F
+         lbra  L2122
+         bsr   L1F22
+         cmpa  #$45
+         bne   L1EE4
+         lbsr  L23FE
+         lbsr  L2135
+         bcc   L1F28
+         lbra  L1E35
+L1EE4    lda   #$26
+         bra   L1F1F
+         bsr   L1F14
+         bra   L1F32
+         lbsr  L217C
+         lbsr  L2116
+         lda   <u00A3
+         cmpa  #$46
+         bne   L1F09
+         bsr   L1F04
+         lda   <u00A3
+         cmpa  #$47
+         bne   L1EC3
+         bsr   L1F04
+         bra   L1EC3
+L1F04    bsr   L1EC5
+L1F06    lbra  L2125
+L1F09    lda   #$27
+         bra   L1F1F
+         lbsr  L217C
+         bsr   L1F14
+         bsr   L1F14
+L1F14    lbra  L215F
+         bsr   L1F22
+         cmpa  #$48
+         beq   L1F30
+         lda   #$1F
+L1F1F    lbra  L1DBF
+L1F22    bsr   L1F06
+         bra   L1EC3
+         bsr   L1F14
+L1F28    bra   L1F76
+         bsr   L1F22
+         cmpa  #$45
+         bne   L1EE4
+L1F30    bsr   L1F9A
+L1F32    lbra  L1E35
+         ldd   <u00AB
+         pshs  y,b,a
+         lbsr  L2327
+         cmpa  #$1E
+         bne   L1F49
+         leas  $04,s
+         bsr   L1F76
+         cmpa  #$1F
+         beq   L1F73
+         rts   
+L1F49    puls  y,b,a
+         std   <u00AB
+         bsr   L1F22
+         ldx   <u00AB
+         leax  -$01,x
+         pshs  x
+         cmpa  #$1F
+         beq   L1F65
+         cmpa  #$21
+         beq   L1F65
+         lda   #$21
+         bra   L1F1F
+L1F61    bsr   L1F9A
+         lda   #$3A
+L1F65    inc   [,s]
+         bsr   L1F73
+         lbsr  L218A
+         beq   L1F61
+         puls  pc,x
+         lbsr  L20F7
+L1F73    lbsr  L213F
+L1F76    lbra  L20F4
+L1F79    sty   <u00A7
+         ldx   <u004A
+         stx   <u00AF
+         stx   <u00AB
+         clr   <u00BB
+         clr   <u00BC
+         rts   
+         bsr   L1F79
+         inc   <u00A0
+         lbsr  L20F4
+         bsr   L1FA9
+         clr   <u00A0
+         lda   <u00A3
+         cmpa  #$3F
+         lbne  L1DBD
+L1F9A    lbra  L23FE
+         lbsr  L20F7
+         pshs  x
+         lbsr  L217C
+         ldb   #$23
+         stb   [,s++]
+L1FA9    cmpa  #$4D
+         bne   L1FDE
+L1FAD    bsr   L1F9A
+         ldd   <u00AB
+         pshs  y,b,a
+         lbsr  L2327
+         ldd   #$0005
+         cmpa  <u00A4
+         beq   L1FC1
+         stb   <u00A4
+         bra   L1FC4
+L1FC1    lbsr  L216B
+L1FC4    puls  y,b,a
+         std   <u00AB
+         ldb   <u00A4
+         cmpb  #$05
+         beq   L1FD1
+         lbsr  L2246
+L1FD1    lbsr  L22FD
+         lbsr  L218A
+         beq   L1FAD
+         pshs  a
+         lbra  L22E0
+L1FDE    rts   
+         sty   <u00A9
+         lbsr  L216F
+         bne   L1FF0
+         sty   <u00A9
+         bsr   L200B
+         bsr   L1F9A
+         bsr   L1F76
+L1FF0    ldy   <u00A9
+         cmpa  #$90
+         bne   L2003
+         lbsr  L2327
+         lbsr  L1F76
+L1FFD    bsr   L200B
+L1FFF    lda   #$4B
+         bsr   L2069
+L2003    bsr   L205C
+         lbsr  L2184
+         beq   L1FFF
+L200A    rts   
+L200B    lbsr  L2184
+         beq   L200A
+         bra   L2066
+         sty   <u00A9
+         lbsr  L216F
+         beq   L2023
+         cmpa  #$49
+         beq   L2027
+L201E    ldy   <u00A9
+         bra   L202E
+L2023    cmpa  #$49
+         bne   L203D
+L2027    lbsr  L2122
+         bra   L203D
+L202C    bsr   L2069
+L202E    lbsr  L2446
+         cmpa  #$0D
+L2033    lbeq  L20F4
+         cmpa  #$5C
+         beq   L2033
+         bsr   L206E
+L203D    lbsr  L2184
+         beq   L202C
+         rts   
+         sty   <u00A9
+         lbsr  L216F
+         beq   L1FFD
+         ldy   <u00A9
+         bra   L2003
+         sty   <u00A9
+         lbsr  L216F
+         beq   L203D
+         bra   L201E
+         bsr   L2061
+L205C    inc   <u00BC
+         lbra  L2169
+L2061    lbsr  L216F
+         bne   L20C0
+L2066    lbsr  L218F
+L2069    lbra  L23FE
+         bsr   L2061
+L206E    lbra  L2125
+L2071    bge   L2074
+         blt   L2077
+         stb   >$03F8
+         lsr   <u00F9
+         suba  #$00
+         lbsr  L2327
+         cmpa  #$54
+         bne   L20C0
+         bsr   L205C
+         bsr   L2066
+         bsr   L206E
+         lda   <u00A3
+         cmpa  #$4C
+         bne   L20FD
+         lda   #$4A
+         bsr   L2069
+         clr   ,-s
+L2095    bsr   L20F4
+         leax  <L2071,pcr
+L209A    cmpa  ,x++
+         bhi   L209A
+         bne   L20B0
+         ldb   -$01,x
+         orb   ,s
+         stb   ,s
+         bsr   L20F4
+         cmpa  #$E7
+         beq   L2095
+         lda   ,s+
+         bne   L2069
+L20B0    lda   #$0F
+         bra   L20C2
+L20B4    lbsr  L218A
+         bne   L20FD
+         bsr   L2069
+         lbsr  L216F
+         beq   L20B4
+L20C0    lda   #$1C
+L20C2    lbra  L1DBF
+         bsr   L2135
+         bra   L20F4
+         lbsr  L2446
+         leay  $01,y
+         suba  #$30
+         beq   L20F4
+         cmpa  #$01
+         lbne  L21B2
+         bsr   L20F7
+         lda   #$36
+         lbsr  L23FE
+         bra   L20F4
+L20E1    ldx   <u00AB
+         lbsr  L2446
+         clra  
+L20E7    lbsr  L23FE
+         inc   ,x
+         lda   ,y+
+         cmpa  #$0D
+         bne   L20E7
+         leay  -$01,y
+L20F4    lbsr  L2327
+L20F7    ldx   <u00AD
+         stx   <u00AB
+         lda   <u00A3
+L20FD    rts   
+L20FE    lda   <u00A4
+         cmpa  #$00
+         beq   L20FD
+         lda   #$0C
+         bra   L20C2
+L2108    lda   #$1B
+L210A    bra   L20C2
+         lbsr  L2327
+L210F    bsr   L20FE
+         inc   <u00BC
+         lbsr  L21E5
+L2116    lda   <u00A3
+         cmpa  #$52
+         beq   L2122
+         cmpa  #$DD
+         bne   L2108
+         lda   #$53
+L2122    lbsr  L23FE
+L2125    lda   #$39
+L2127    ldx   <u0044
+         clrb  
+         lbsr  L22A3
+L212D    bsr   L219D
+         lbsr  L224B
+         bcc   L212D
+L2134    rts   
+L2135    lbsr  L2446
+         lbsr  L2457
+         bcs   L2134
+         lda   #$3A
+L213F    bsr   L2166
+         lbsr  L238F
+         beq   L214C
+         ldd   ,x
+         lbgt  L23F5
+L214C    lda   #$10
+         bra   L210A
+L2150    bsr   L2154
+         bsr   L20FE
+L2154    lbra  L1EB2
+L2157    lda   #$8E
+         bsr   L213F
+         bsr   L2154
+         bra   L218A
+L215F    clra  
+         bsr   L2166
+         bsr   L2166
+         bra   L2177
+L2166    lbra  L23FE
+L2169    bsr   L2154
+L216B    bsr   L20FE
+         bra   L21E5
+L216F    bsr   L20F4
+         cmpa  #$54
+         bne   L217B
+         bsr   L2122
+L2177    lda   <u00A3
+         cmpa  <u00A3
+L217B    rts   
+L217C    bsr   L2154
+         lbsr  L20FE
+L2181    lbra  L20F4
+L2184    lda   <u00A3
+         cmpa  #$51
+         beq   L218E
+L218A    lda   <u00A3
+         cmpa  #$4B
+L218E    rts   
+L218F    bsr   L218A
+         beq   L218E
+         lda   #$1D
+         bra   L21B4
+L2197    clrb  
+         bsr   L21DE
+         lbsr  L20F7
+L219D    bsr   L21D3
+         bsr   L21B7
+         cmpa  #$4D
+         beq   L2197
+         ldb   <u00A4
+         cmpb  #$06
+         beq   L2181
+         cmpb  #$04
+         bne   L216B
+         lbra  L22B3
+L21B2    lda   #$12
+L21B4    lbra  L1DBF
+L21B7    cmpa  #$CD
+         beq   L21CC
+         cmpa  #$EA
+         bne   L218E
+         lda   ,y
+         lbsr  L2457
+         bcc   L21D6
+         cmpa  #$2E
+         beq   L21D6
+         lda   #$CE
+L21CC    ldb   #$07
+         bsr   L21DE
+         lbsr  L20F7
+L21D3    lbra  L2327
+L21D6    leay  -$01,y
+         lbsr  L1E51
+         lbra  L2363
+L21DE    ldx   <u0044
+         std   ,--x
+         stx   <u0044
+         rts   
+L21E5    ldd   #$8500
+L21E8    pshs  b,a
+         ldd   <u00A1
+         bsr   L21DE
+         puls  b,a
+         bsr   L21DE
+         lbsr  L20F7
+         lbsr  L20F4
+         clrb  
+         cmpa  #$4D
+         beq   L220F
+L21FD    cmpa  #$89
+         bne   L2230
+         bsr   L2240
+         bsr   L2230
+         bsr   L21D3
+         lbsr  L20FE
+         ldd   #$8900
+         bra   L21E8
+L220F    bsr   L2240
+         incb  
+         pshs  b
+         lbsr  L22FD
+         lbsr  L218A
+         bne   L2227
+         ldb   ,s+
+         cmpb  #$03
+         bcs   L220F
+         lda   #$2A
+         lbra  L1DBF
+L2227    bsr   L22A8
+         lbsr  L20F4
+         puls  b
+         bra   L21FD
+L2230    clr   <u00BC
+         ldx   <u0044
+         addb  ,x++
+         lbsr  L23FC
+         ldd   ,x++
+         stx   <u0044
+         lbra  L23F5
+L2240    tst   <u00BC
+         beq   L2273
+         clr   <u00BC
+L2246    lda   #$0E
+L2248    lbra  L23FE
+L224B    ldb   <u00A3
+         clra  
+         cmpb  #$4E
+         beq   L2274
+         tstb  
+         bpl   L225C
+         lbsr  L1CB6
+         bita  #$08
+         bne   L2274
+L225C    ldx   <u0044
+L225E    ldd   ,x++
+         cmpa  #$4D
+         beq   L22AE
+         bsr   L2248
+         tstb  
+         bne   L225E
+         cmpa  #$39
+         bne   L2270
+         lbsr  L1E51
+L2270    stx   <u0044
+         coma  
+L2273    rts   
+L2274    anda  #$07
+         tfr   a,b
+         ldx   <u0044
+         bra   L2280
+L227C    lda   ,x++
+         bsr   L22F8
+L2280    cmpb  $01,x
+         bcs   L227C
+         bhi   L22A1
+         cmpb  #$06
+         beq   L22A1
+         tstb  
+         bne   L227C
+         lda   ,x++
+         cmpa  #$4D
+         bne   L2299
+         stx   <u0044
+         bsr   L22E7
+         bra   L224B
+L2299    cmpa  #$39
+         beq   L22F0
+         bsr   L22F8
+         bra   L2270
+L22A1    lda   <u00A3
+L22A3    std   ,--x
+         stx   <u0044
+L22A7    rts   
+L22A8    lda   <u00A3
+         cmpa  #$4E
+         beq   L22A7
+L22AE    lda   #$25
+L22B0    lbra  L1DBF
+L22B3    lbsr  L1E51
+         lda   <u00A3
+         pshs  a
+         bsr   L22E7
+         ldb   ,s
+         lbsr  L1CB6
+         leax  <L22E0,pcr
+         pshs  x
+         anda  #$03
+         beq   L22F4
+         cmpa  #$02
+         beq   L2304
+         bhi   L230B
+         ldb   $02,s
+         cmpb  #$92
+         beq   L231A
+         cmpb  #$94
+         beq   L231A
+         cmpb  #$BE
+         beq   L230F
+         bra   L22FB
+L22E0    bsr   L22A8
+         puls  a
+         lbsr  L23FE
+L22E7    lbra  L20F4
+L22EA    lda   <u00A3
+         cmpa  #$4D
+         beq   L22A7
+L22F0    lda   #$22
+         bra   L22B0
+L22F4    leas  $02,s
+         puls  a
+L22F8    lbra  L23FE
+L22FB    bsr   L22EA
+L22FD    clra  
+         lbsr  L2127
+         lbra  L1E51
+L2304    bsr   L22FB
+L2306    lbsr  L218F
+         bra   L22FD
+L230B    bsr   L2304
+         bra   L2306
+L230F    bsr   L22EA
+         bsr   L22E7
+         cmpa  #$54
+         beq   L22FD
+         lbra  L20C0
+L231A    bsr   L22EA
+         incb  
+         lbsr  L23FC
+         lbra  L2169
+L2323    lda   #$0A
+         bra   L22B0
+L2327    ldd   <u00AB
+         std   <u00AD
+         lbsr  L2446
+         sty   <u00B9
+         lbsr  L2419
+         lbne  L23CA
+         lda   ,y
+         lbsr  L2457
+         bcc   L2363
+         leax  >L1CBC,pcr
+         lda   #$80
+         lbsr  L2513
+         beq   L2323
+         ldb   ,x
+         leau  <L2386,pcr
+         jmp   b,u
+L2351    ldd   $01,x
+L2353    stb   <u00A4
+         sta   <u00A3
+         lbra  L23FE
+         lda   ,y
+         lbsr  L2457
+         bcs   L2351
+         leay  -$01,y
+L2363    bsr   L238F
+         bne   L2378
+         ldd   #$8F05
+L236A    sta   <u00A3
+L236C    bsr   L23BF
+         lda   ,x+
+         decb  
+         bpl   L236C
+         lda   #$06
+         sta   <u00A4
+         rts   
+L2378    ldd   #$8E02
+         tst   ,x
+         bne   L236A
+         ldd   #$8D01
+         leax  $01,x
+         bra   L236A
+L2386    leay  -$01,y
+         bsr   L238F
+         ldd   #$9102
+         bra   L236A
+L238F    lbsr  L2446
+         leax  ,y
+         ldy   <u0044
+         lbsr  L1CB3
+         exg   x,y
+         bcs   L23A3
+         lda   ,x+
+         cmpa  #$02
+         rts   
+L23A3    lda   #$16
+         bra   L23C3
+         bsr   L2351
+         bra   L23AD
+L23AB    bsr   L23FE
+L23AD    lda   ,y+
+         cmpa  #$0D
+         beq   L23C1
+         cmpa  #$22
+         bne   L23AB
+         cmpa  ,y+
+         beq   L23AB
+         leay  -$01,y
+         lda   #$FF
+L23BF    bra   L23FE
+L23C1    lda   #$29
+L23C3    lbra  L1DBF
+L23C6    lda   #$31
+         bra   L23C3
+L23CA    ldx   <u009E
+         lbsr  L2511
+         beq   L23D8
+         stx   <u00A1
+         ldd   ,x
+L23D5    lbra  L2353
+L23D8    tst   <u00A0
+         bmi   L23C6
+         ldx   <u0062
+         lbsr  L2511
+         bne   L23EA
+         tst   <u00A0
+         bne   L23C6
+         lbsr  L247D
+L23EA    ldd   #$8500
+         bsr   L23D5
+         tfr   x,d
+         subd  <u0062
+         std   <u00A1
+L23F5    bsr   L23FE
+         bsr   L23FC
+         lda   <u00A3
+         rts   
+L23FC    tfr   b,a
+L23FE    pshs  x,b,a
+         ldx   <u00AB
+         sta   ,x+
+         stx   <u00AB
+         ldd   <u00AB
+         subd  <u004A
+         cmpb  #$FF
+         bcc   L2411
+         clra  
+         puls  pc,x,b,a
+L2411    lda   #$0D
+         lbsr  L1CAA
+         lbra  L1CB0
+L2419    bsr   L2446
+         pshs  y
+         ldb   #$02
+         stb   <u00A5
+         clrb  
+         bsr   L2461
+         bcs   L2442
+         leay  $01,y
+L2428    incb  
+         lda   ,y+
+         bsr   L2453
+         bcc   L2428
+         cmpa  #$24
+         bne   L243A
+         incb  
+         leay  $01,y
+         lda   #$04
+         sta   <u00A5
+L243A    leay  -$01,y
+         lda   #$80
+         ora   -$01,y
+         sta   -$01,y
+L2442    stb   <u00A6
+         puls  pc,y
+L2446    lda   ,y+
+         cmpa  #$20
+         beq   L2446
+         cmpa  #$0A
+         beq   L2446
+         leay  -$01,y
+         rts   
+L2453    bsr   L2461
+         bcc   L247C
+L2457    cmpa  #$30
+         bcs   L247C
+         cmpa  #$39
+         bls   L247A
+         bra   L2477
+L2461    anda  #$7F
+         cmpa  #$41
+         bcs   L247C
+         cmpa  #$5A
+         bls   L247A
+         cmpa  #$5F
+         beq   L247C
+         cmpa  #$61
+         bcs   L247C
+         cmpa  #$7A
+         bls   L247A
+L2477    orcc  #$01
+         rts   
+L247A    andcc #$FE
+L247C    rts   
+L247D    ldx   <u0062
+         ldd   -$03,x
+         addd  #$0001
+         std   -$03,x
+         ldb   <u00A6
+         clra  
+         addd  #$0003
+         sty   <u00A9
+         bsr   L24D7
+         pshs  y
+         lda   <u00A5
+         clrb  
+         std   ,y++
+         clr   ,y+
+         ldx   <u00A9
+L249C    lda   ,x+
+         sta   ,y+
+         bpl   L249C
+         leay  ,x
+         puls  pc,x
+L24A6    pshs  u,b,a
+         ldd   <u000C
+         subd  ,s
+         bcc   L24B3
+         lda   #$20
+         lbra  L1DBF
+L24B3    std   <u000C
+         ldd   <u0066
+         subd  ,s
+         std   <u0066
+         ldu   <u00DA
+         ldd   <u00DA
+         subd  ,s
+         std   <u00DA
+         tfr   d,y
+         ldd   <u0066
+         subd  <u00DA
+         addd  <u0068
+         bsr   L24F1
+         ldd   <u0068
+         addd  ,s++
+         std   <u0068
+         leax  ,u
+         puls  pc,u
+L24D7    pshs  u,b,a
+         bsr   L24A6
+         subd  ,s
+         std   <u0068
+         leau  ,x
+         leax  $03,y
+         stx   <u0062
+         ldd   <u0064
+         bsr   L24F1
+         addd  ,s++
+         std   <u0064
+         leax  ,u
+         puls  pc,u
+L24F1    pshs  x,b,a
+         leax  d,u
+         pshs  x
+L24F7    bitb  #$03
+         beq   L2508
+         lda   ,u+
+         sta   ,y+
+         decb  
+         bra   L24F7
+L2502    pulu  x,b,a
+         std   ,y++
+         stx   ,y++
+L2508    cmpu  ,s
+         bcs   L2502
+         clr   ,s++
+         puls  pc,x,b,a
+L2511    lda   #$20
+L2513    pshs  u,y,x,a
+         ldu   -$03,x
+         ldb   -$01,x
+L2519    stx   $01,s
+         cmpu  #$0000
+         beq   L2541
+         leau  -u0001,u
+         ldy   $03,s
+         leax  b,x
+L2528    lda   ,x+
+         eora  ,y+
+         beq   L253A
+         cmpa  ,s
+         beq   L253A
+         leax  -$01,x
+L2534    lda   ,x+
+         bpl   L2534
+         bra   L2519
+L253A    tst   -$01,x
+         bpl   L2528
+         sty   $03,s
+L2541    puls  pc,u,y,x,a
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L2553,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L2553    ror   <u00E6
+         tim   #$36,<u0001
+         bvc   L255B
+         subd  <u009D
+         fcb   $1B 
+         aim   #$9D,<u001B
+         ror   <u009D
+         fcb   $1B 
+         sexw  
+L2564    jsr   <u001E
+         lsl   <u009D
+         exg   d,w
+L256A    asr   <u0086
+         oim   #$FE,<u0001
+         sta   $02,x
+         aim   #$03,<u00A9
+         asr   <u0007
+         asr   <u009F
+         asr   <u009F
+         asr   <u009F
+         asr   <u0007
+         asr   <u009F
+         asr   <u009F
+         asr   <u009F
+         com   <u00D3
+         com   <u00D1
+         lsr   <u0023
+         lsr   <u00AF
+         lsr   <u00CA
+         lsr   <u00E1
+         lsr   <u00F3
+         eim   #$8B,<u0005
+         orb   <u0005
+         eorb  $06,x
+         neg   <u0006
+         asr   <u0006
+         fcb   $1B 
+         ror   <u001F
+         ror   <u0023
+         ror   <u0040
+         lsr   <u002A
+         lsr   <u0099
+         lsr   <u004B
+         tim   #$0C,<u0004
+         fcb   $4B K
+         tim   #$0C,<u0006
+         ldx   <u0007
+         lda   #$06
+         andb  $07,x
+         asr   <u0007
+         lda   #$07
+         lda   #$07
+         fcb   $45 E
+         asr   <u0045
+         asr   <u0061
+         ror   <u00E4
+         asr   <u0007
+         asr   <u006F
+         asr   <u006F
+         asr   <u0079
+         asr   <u0097
+         asr   <u0086
+         asr   <u0086
+         asr   <u0086
+         asr   <u009F
+         asr   <u009F
+         oim   #$47,<u0001
+         asra  
+         asr   <u0007
+         neg   <u00DC
+         tim   #$0C,<u000B
+         inc   <u0001
+         nega  
+         oim   #$97,<u0001
+         sta   <u0020
+         bra   L25F3
+         neg   <u0043
+         nega  
+         bvc   L2617
+         neg   <u0043
+         coma  
+         coma  
+         coma  
+         coma  
+         coma  
+         coma  
+         eim   #$00,<u0043
+         coma  
+         coma  
+         neg   <u0045
+         neg   <u0025
+         neg   <u0045
+         neg   <u0005
+         neg   <u0021
+         brn   L2652
+         beq   L2634
+         bhi   L2631
+         bhi   L2671
+         neg   $01,s
+         fcb   $87 
+         ora   #$89
+         adca  #$81
+         bita  #$00
+         suba  #$81
+         subb  ,s+
+         subb  ,s+
+         subb  $0B,s
+         eim   #$00,<u006C
+         inc   $0C,s
+         tst   $00,x
+         neg   <u006D
+         neg   <u0000
+         jmp   $00,x
+         neg   <u0000
+L2631    jmp   $00,x
+         neg   <u0000
+         tst   $00,x
+         neg   <u006D
+         neg   <u0000
+         tst   <u0000
+         neg   <u0006
+         neg   <u0006
+         neg   <u0006
+         neg   <u0044
+         lsra  
+         ldd   ,y
+         tst   <u00D9
+         bne   L265E
+         pshs  b,a
+         leay  -$01,y
+         ldd   <u0060
+L2652    std   <u00AB
+         ldd   #$0003
+         lbsr  L2561
+         puls  b,a
+         bra   L2660
+L265E    leay  $02,y
+L2660    lbsr  L29C7
+         bcc   L2677
+         std   ,x
+         tfr   y,d
+         subd  <u005E
+         leax  $02,x
+L266D    ldu   ,x
+         std   ,x
+L2671    leax  ,u
+         bne   L266D
+         bra   L267B
+L2677    lda   #$4B
+         bsr   L26B7
+L267B    leax  >L256A,pcr
+         ldb   ,y+
+         bpl   L2688
+         ldd   #$03D1
+         bra   L2692
+L2688    lslb  
+         clra  
+         ldd   d,x
+         cmpd  #$03D1
+         bcs   L26A8
+L2692    tst   <u00C7
+         bne   L26A8
+         inc   <u00C7
+         pshs  b,a
+         tfr   y,d
+         subd  <u005E
+         subd  #$0001
+         ldu   <u002F
+         std   <u0015,u
+         puls  b,a
+L26A8    jmp   d,x
+         ldx   <u002F
+         lda   #$01
+         sta   <$17,x
+         ldb   ,y+
+         clra  
+         leay  d,y
+         rts   
+L26B7    pshs  y,x,b,a
+         ldx   <u002F
+         lda   #$01
+         sta   <$17,x
+         lda   <u0084
+         bmi   L26E4
+         ldd   $04,s
+         subd  <u005E
+         leas  -$05,s
+         leax  ,s
+         bsr   L26E6
+         lda   #$20
+         sta   ,x+
+         lda   #$02
+         leax  ,s
+         ldy   #$0005
+         os9   I$Write  
+         leas  $05,s
+         ldb   ,s
+         lbsr  L255B
+L26E4    puls  pc,y,x,b,a
+L26E6    bsr   L26EA
+         tfr   b,a
+L26EA    pshs  a
+         lsra  
+         lsra  
+         lsra  
+         lsra  
+         bsr   L26F6
+         puls  a
+         anda  #$0F
+L26F6    adda  #$30
+         cmpa  #$39
+         bls   L26FE
+         adda  #$07
+L26FE    sta   ,x+
+         rts   
+L2701    ldb   ,y
+         bsr   L270A
+         bne   L2709
+L2707    leay  $01,y
+L2709    rts   
+L270A    cmpb  #$3F
+         beq   L2710
+         cmpb  #$3E
+L2710    rts   
+         lbsr  L2F2C
+         ldb   <u00CF
+         beq   L271C
+         lda   #$4C
+         bsr   L26B7
+L271C    leay  $04,y
+         lda   #$40
+         sta   <u00CE
+         ldd   <u00C1
+         pshs  b,a
+         clra  
+         clrb  
+         std   <u00C1
+         bsr   L2770
+         ldd   <u00CC
+         subd  <u0060
+         beq   L2763
+         addd  #$0003
+         cmpd  <u000C
+         lbcc  L29F6
+         pshs  y,x
+         lbsr  L2564
+         ldd   <u00C1
+         leau  ,y
+         std   ,y++
+         clr   ,y+
+         ldx   <u0060
+L274B    ldd   ,x++
+         subd  <u0062
+         std   ,y++
+         inc   u0002,u
+         cmpx  <u00CC
+         bcs   L274B
+         tfr   u,d
+         puls  y,x
+         subd  <u0066
+         std   $01,x
+         lda   #$25
+         sta   ,x
+L2763    puls  b,a
+         std   <u00C1
+         rts   
+         lda   #$80
+         bra   L276E
+         lda   #$60
+L276E    sta   <u00CE
+L2770    ldd   <u0060
+         pshs  x,b,a
+         std   <u00CC
+L2776    bsr   L27C9
+         ldb   ,y+
+         cmpb  #$4B
+         beq   L2776
+         cmpb  #$4C
+         beq   L2788
+         leay  -$01,y
+         ldb   #$01
+         bra   L278C
+L2788    lbsr  L2823
+         clrb  
+L278C    pshs  y,b
+         ldx   $03,s
+         ldd   <u00CC
+         std   $03,s
+         stx   <u00CC
+         subd  <u00CC
+         lslb  
+         rola  
+         addd  $03,s
+         cmpd  <u00DA
+         lbcc  L29F6
+         bra   L27B7
+L27A5    ldu   ,x++
+         tst   ,s
+         beq   L27B4
+         lda   ,u
+         sta   <u00D1
+         lbsr  L306C
+         std   <u00D6
+L27B4    lbsr  L2861
+L27B7    cmpx  $03,s
+         bcs   L27A5
+         ldd   <u00CC
+         std   $03,s
+         puls  y,b
+         ldb   ,y+
+         cmpb  #$51
+         beq   L2776
+         puls  pc,x,b,a
+L27C9    lbsr  L2F2C
+         ldb   <u00CF
+         beq   L27E8
+         lda   #$4C
+         lbsr  L26B7
+         leay  $03,y
+         ldb   ,y
+         cmpb  #$4D
+         bne   L27E7
+         leay  $01,y
+L27DF    bsr   L2817
+         ldb   ,y+
+         cmpb  #$4B
+         beq   L27DF
+L27E7    rts   
+L27E8    ldd   <u00CC
+         addd  #$000A
+         cmpd  <u00DA
+         lbcc  L29F6
+         ldx   <u00CC
+         ldd   <u00D2
+         std   ,x++
+         leau  ,x
+         clr   ,x+
+         leay  $03,y
+         ldb   ,y
+         cmpb  #$4D
+         bne   L2814
+         leay  $01,y
+L2808    bsr   L2817
+         std   ,x++
+         inc   ,u
+         ldb   ,y+
+         cmpb  #$4B
+         beq   L2808
+L2814    stx   <u00CC
+         rts   
+L2817    ldb   ,y+
+         clra  
+         cmpb  #$8D
+         beq   L2820
+         lda   ,y+
+L2820    ldb   ,y+
+         rts   
+L2823    lda   ,y+
+         cmpa  #$85
+         beq   L2844
+         suba  #$40
+         sta   <u00D1
+         cmpa  #$04
+         bne   L283F
+         ldb   ,y
+         cmpb  #$4F
+         bne   L283F
+         leay  $01,y
+         bsr   L2817
+         leay  $01,y
+         bra   L285E
+L283F    lbsr  L306C
+         bra   L285E
+L2844    leay  -$01,y
+         lbsr  L2F2C
+         leay  $03,y
+         ldb   <u00CF
+         cmpb  #$20
+         beq   L2856
+         lda   #$18
+         lbra  L26B7
+L2856    ldd   $01,x
+         std   <u00D2
+         ldx   <u0066
+         ldd   d,x
+L285E    std   <u00D6
+         rts   
+L2861    ldb   ,x+
+         beq   L28B9
+         pshs  b
+         lslb  
+         lslb  
+         lslb  
+         stb   <u00D0
+         lsrb  
+         lsrb  
+         leax  b,x
+         addb  #$04
+         pshs  u,x
+         lda   <u00D1
+         cmpa  #$04
+         bcs   L287C
+         addb  #$02
+L287C    clra  
+         cmpd  <u000C
+         lbhi  L29F6
+         lbsr  L2564
+         ldx   ,s
+         leau  $02,y
+         ldd   #$0001
+         std   ,u++
+L2890    ldd   ,--x
+         std   ,u++
+         bsr   L28E0
+         dec   $04,s
+         bne   L2890
+         lda   <u00D1
+         cmpa  #$04
+         bls   L28A5
+         ldd   <u00D2
+         std   ,u
+         coma  
+L28A5    ldd   <u00D6
+         bcs   L28AB
+         std   ,u
+L28AB    bsr   L28E0
+         tfr   y,d
+         puls  u,x
+         subd  <u0066
+         std   u0001,u
+         leas  $01,s
+         bra   L28C9
+L28B9    stb   <u00D0
+         lda   <u00D1
+         cmpa  #$04
+         bhi   L28C5
+         ldd   <u00D6
+         bra   L28C7
+L28C5    ldd   <u00D2
+L28C7    std   u0001,u
+L28C9    lda   <u00D1
+         ora   <u00D0
+         ora   <u00CE
+         sta   ,u
+         pshs  x
+         leax  ,u
+         lbsr  L2FD7
+         ldx   <u00CC
+         stu   ,x++
+         stx   <u00CC
+         puls  pc,x
+L28E0    pshs  b,a
+         ldb   $02,y
+         mul   
+         bne   L290C
+         lda   $01,s
+         ldb   $02,y
+         mul   
+         tsta  
+         bne   L290C
+         stb   $02,y
+         lda   ,s
+         ldb   $03,y
+         mul   
+         tsta  
+         bne   L290C
+         addb  $02,y
+         bcs   L290C
+         stb   $02,y
+         lda   $01,s
+         ldb   $03,y
+         mul   
+         adda  $02,y
+         bcs   L290C
+         std   $02,y
+         puls  pc,b,a
+L290C    lda   #$49
+         lbsr  L26B7
+         puls  pc,b,a
+         ldu   <u00CA
+         bne   L291F
+         tfr   y,d
+         subd  <u005E
+         std   <u00C8
+         bra   L2925
+L291F    tfr   y,d
+         subd  <u005E
+         std   ,u
+L2925    lbsr  L2D4E
+         lbsr  L2E3B
+         ldb   ,y+
+         cmpb  #$4B
+         beq   L2925
+         sty   <u00CA
+         ldd   <u00C8
+         std   ,y++
+         lbra  L2707
+         leay  -$01,y
+         bsr   L296D
+         leay  $01,y
+         lbsr  L2D4E
+         lbsr  L2E3B
+         sta   <u00D1
+         lbsr  L2E3B
+         cmpa  <u00D1
+         beq   L296A
+         cmpa  #$02
+         bhi   L2967
+         beq   L295A
+         lda   #$C8
+         bra   L295C
+L295A    lda   #$CB
+L295C    ldb   <u00D1
+         cmpb  #$02
+         bhi   L2967
+         lbsr  L2FA7
+         bra   L296A
+L2967    lbsr  L2A0F
+L296A    lbra  L2701
+L296D    lda   ,y
+         cmpa  #$0E
+         lbne  L2D4E
+         leay  $01,y
+         lbsr  L2D4E
+L297A    lda   -$03,y
+         cmpa  #$85
+         bcc   L2988
+         ldd   <u00D2
+         subd  <u0062
+         std   -$02,y
+         lda   #$85
+L2988    adda  #$6D
+         sta   -$03,y
+         rts   
+         bsr   L298F
+L298F    bsr   L2A03
+         leay  $01,y
+         rts   
+         ldb   ,y+
+         cmpb  #$1E
+         beq   L29AE
+         leay  -$01,y
+         bsr   L298F
+         ldd   ,y++
+L29A0    pshs  b,a
+         leay  $01,y
+         bsr   L29B5
+         puls  b,a
+         subd  #$0001
+         bne   L29A0
+         rts   
+L29AE    ldb   ,y+
+         lbsr  L270A
+         beq   L29C6
+L29B5    ldd   ,y
+         bsr   L29C7
+         ldd   $02,x
+         bcc   L29C0
+         sty   $02,x
+L29C0    std   ,y
+         inc   -$01,y
+         leay  $03,y
+L29C6    rts   
+L29C7    ldx   <u0066
+         pshs  b,a
+         bra   L29D6
+L29CD    ldd   ,x
+         anda  #$7F
+         cmpd  ,s
+         beq   L29F1
+L29D6    leax  -$04,x
+         cmpx  <u00DA
+         bcc   L29CD
+         ldd   <u000C
+         subd  #$0004
+         bcs   L29F6
+         std   <u000C
+         ldd   ,s
+         ora   #$80
+         std   ,x
+         clra  
+         clrb  
+         std   $02,x
+         stx   <u00DA
+L29F1    lda   ,x
+         rola  
+         puls  pc,b,a
+L29F6    lda   #$20
+         sta   <u0036
+         lbsr  L26B7
+         lbsr  L30D4
+         lbra  L255E
+L2A03    lbsr  L2D4E
+         lbsr  L2E3B
+         cmpa  #$02
+         beq   L2A14
+         bcs   L29C6
+L2A0F    lda   #$47
+         lbra  L26B7
+L2A14    lda   #$C8
+         lbra  L2FA7
+         lbsr  L2B98
+         lda   $03,y
+         cmpa  #$3A
+         beq   L2A27
+         lda   #$10
+         lbra  L2B91
+L2A27    pshs  y
+         leay  $04,y
+         bsr   L29B5
+         tfr   y,d
+         subd  <u005E
+         std   [,s++]
+         rts   
+         ldd   #$1002
+         lbsr  L2BC6
+         ldu   $01,x
+         sty   $01,x
+         leay  $02,y
+         lbsr  L2701
+         tfr   y,d
+         subd  <u005E
+         std   ,u
+         rts   
+         ldd   #$1001
+         lbsr  L2BC6
+         leay  $01,y
+L2A53    tfr   y,d
+         subd  <u005E
+         std   [<$01,x]
+         lbra  L2BEA
+         lbsr  L2F2C
+         lbsr  L2ECC
+         cmpa  #$60
+         bne   L2A71
+         lda   <u00D1
+         cmpa  #$01
+         beq   L2A7D
+         cmpa  #$02
+         beq   L2A7D
+L2A71    lda   #$46
+         lbsr  L26B7
+         ldd   #$FFFF
+         std   <u00D2
+         bra   L2A89
+L2A7D    ldb   <u00D0
+         bne   L2A71
+         adda  #$80
+         sta   ,y
+         ldd   $01,x
+         std   $01,y
+L2A89    ldx   <u0044
+         leax  -$07,x
+         stx   <u0044
+         lda   <u00D1
+         sta   ,x
+         ldd   <u00D2
+         subd  <u0062
+         std   $01,x
+         clra  
+         clrb  
+         std   $05,x
+         leay  $04,y
+         bsr   L2ADA
+         bsr   L2ABD
+         std   $03,x
+         lda   ,y
+         cmpa  #$47
+         bne   L2AAF
+         bsr   L2ABD
+         std   $05,x
+L2AAF    leay  $01,y
+         sty   ,--x
+         lda   #$13
+         sta   ,-x
+         stx   <u0044
+         leay  $03,y
+L2ABC    rts   
+L2ABD    ldd   <u00C1
+         pshs  b,a
+         std   $01,y
+         ldx   <u0044
+         lda   ,x
+         leax  >L3067,pcr
+         ldb   a,x
+         clra  
+         addd  <u00C1
+         std   <u00C1
+         leay  $03,y
+         bsr   L2ADA
+         ldx   <u0044
+         puls  pc,b,a
+L2ADA    lbsr  L2D4E
+         lbsr  L2E3B
+         cmpa  ,u
+         beq   L2ABC
+         cmpa  #$02
+         bcs   L2AF0
+         lbne  L2A0F
+         lda   #$C8
+         bra   L2AF2
+L2AF0    lda   #$CB
+L2AF2    lbra  L2FA7
+         leay  -$01,y
+         ldd   #$130B
+         lbsr  L2BC6
+         ldd   $02,y
+         cmpd  $04,x
+         beq   L2B0B
+         lda   #$46
+         lbsr  L26B7
+         bra   L2B3A
+L2B0B    addd  <u0062
+         exg   d,x
+         ldx   $01,x
+         exg   d,x
+         std   $02,y
+         lda   $03,x
+         anda  #$02
+         sta   $01,y
+         ldd   $06,x
+         std   $04,y
+         ldd   $08,x
+         std   $06,y
+         beq   L2B27
+         inc   $01,y
+L2B27    ldu   $01,x
+         tfr   y,d
+         subd  <u005E
+         addd  #$0001
+         std   ,u
+         leau  u0003,u
+         tfr   u,d
+         subd  <u005E
+         std   $08,y
+L2B3A    leay  $0B,y
+         lbsr  L2BEA
+         leax  $07,x
+         stx   <u0044
+         rts   
+         leau  -$01,y
+         pshs  u
+         bsr   L2B98
+         puls  b,a
+         std   ,y
+         lda   #$15
+         bra   L2B91
+         ldd   #$1503
+         bsr   L2BC6
+         ldx   $01,x
+         ldd   ,x
+         subd  <u005E
+         std   ,y
+         leay  $03,y
+         tfr   y,d
+         subd  <u005E
+         std   ,x
+         lbra  L2BEA
+         lda   #$17
+L2B6C    lbsr  L2707
+         bra   L2BBC
+         bsr   L2B98
+         lda   #$17
+L2B75    leay  -$01,y
+         ldb   #$03
+         bsr   L2BC6
+         ldd   $01,x
+         subd  <u005E
+         std   $01,y
+         leay  $04,y
+         bra   L2BEA
+         lda   #$19
+         bra   L2B6C
+         lda   #$19
+         bra   L2B75
+         bsr   L2B98
+         lda   #$1B
+L2B91    bsr   L2BBC
+         leay  $03,y
+         lbra  L2701
+L2B98    lbsr  L2D4E
+         lbsr  L2E3B
+         cmpa  #$03
+         beq   L2BA7
+         lda   #$47
+         lbsr  L26B7
+L2BA7    leay  $01,y
+         rts   
+         ldd   #$1B03
+         bsr   L2BC6
+         leau  ,y
+         leay  $03,y
+         lbsr  L2A53
+         stu   ,--x
+         lda   #$1C
+         bra   L2BC1
+L2BBC    ldx   <u0044
+         sty   ,--x
+L2BC1    sta   ,-x
+         stx   <u0044
+         rts   
+L2BC6    pshs  a
+         ldx   <u0044
+         bra   L2BCE
+L2BCC    leax  $03,x
+L2BCE    cmpx  <u0046
+         bcc   L2BDC
+         lda   ,x
+         cmpa  #$1C
+         beq   L2BCC
+         cmpa  ,s
+         beq   L2BE8
+L2BDC    leas  $03,s
+         lda   #$45
+         lbsr  L26B7
+         leay  b,y
+         lbra  L2701
+L2BE8    puls  pc,a
+L2BEA    ldx   <u0044
+         bra   L2BFD
+L2BEE    lda   ,x
+         cmpa  #$1C
+         bne   L2C03
+         tfr   y,d
+         subd  <u005E
+         std   [<$01,x]
+         leax  $03,x
+L2BFD    cmpx  <u0046
+         bcs   L2BEE
+         bra   L2C05
+L2C03    leax  $03,x
+L2C05    stx   <u0044
+         rts   
+         leay  -$01,y
+         lbsr  L2F2C
+         lda   <u00CF
+         beq   L2C2A
+         cmpa  #$A0
+         beq   L2C37
+         cmpa  #$60
+         bcs   L2C23
+         lda   <u00D0
+         bne   L2C23
+         lda   <u00D1
+         cmpa  #$04
+         beq   L2C37
+L2C23    lda   #$4C
+         lbsr  L26B7
+         bra   L2C37
+L2C2A    lda   #$A0
+         sta   ,x
+         ldd   <u00C5
+         std   $01,x
+         addd  #$0002
+         std   <u00C5
+L2C37    leay  $03,y
+         ldb   ,y+
+         cmpb  #$4D
+         bne   L2C4D
+L2C3F    lbsr  L296D
+         lbsr  L2E3B
+         ldb   ,y+
+         cmpb  #$4B
+         beq   L2C3F
+         leay  $01,y
+L2C4D    rts   
+         bsr   L2C9B
+         leay  -$01,y
+         cmpb  #$90
+         bne   L2C5B
+         lbsr  L2CF4
+         leay  $01,y
+L2C5B    lbsr  L296D
+         lbsr  L2E3B
+         cmpa  #$05
+         bcs   L2C6A
+         lda   #$4D
+         lbsr  L26B7
+L2C6A    lda   ,y+
+         cmpa  #$4B
+         beq   L2C5B
+         rts   
+         bsr   L2C9B
+         cmpb  #$49
+         bne   L2C7B
+         bsr   L2CF4
+L2C79    ldb   ,y+
+L2C7B    cmpb  #$4B
+         beq   L2C79
+         cmpb  #$51
+         beq   L2C79
+         lbsr  L270A
+         beq   L2CAE
+         leay  -$01,y
+         lbsr  L2D4E
+         lbsr  L2E3B
+         cmpa  #$05
+         bcs   L2C79
+         lda   #$47
+         lbsr  L26B7
+         bra   L2C79
+L2C9B    ldb   ,y+
+         cmpb  #$54
+         bne   L2CAE
+         lbsr  L2A03
+L2CA4    ldb   ,y+
+         cmpb  #$4B
+         beq   L2CA4
+         cmpb  #$51
+         beq   L2CA4
+L2CAE    rts   
+         leay  $01,y
+         lbsr  L296D
+         lbsr  L2E3B
+         cmpa  #$01
+         beq   L2CBE
+         lbsr  L2A0F
+L2CBE    leay  $01,y
+         bsr   L2CF4
+         lda   ,y+
+         cmpa  #$4A
+         bne   L2CCA
+         leay  $02,y
+L2CCA    rts   
+         bsr   L2CEB
+         bsr   L2D4E
+         lbsr  L2E3B
+         cmpa  #$42
+         bls   L2D09
+         lbra  L2A0F
+         bsr   L2CEB
+         lbsr  L296D
+         lbsr  L2E3B
+         bra   L2D09
+L2CE3    bsr   L2CEB
+         cmpb  #$4B
+         beq   L2CE3
+         bra   L2D09
+L2CEB    leay  $01,y
+         lbra  L298F
+         bsr   L2CF4
+         bra   L2D09
+L2CF4    bsr   L2D4E
+         lbsr  L2E3B
+         cmpa  #$04
+         beq   L2D00
+         lbsr  L2A0F
+L2D00    rts   
+         ldb   ,y+
+         cmpb  #$3A
+         lbeq  L29B5
+L2D09    lbra  L2701
+L2D0C    cmpb  #$96
+         bcc   L2D15
+         lbsr  L2E48
+         bra   L2D4E
+L2D15    cmpb  #$F2
+         lbcc  L3076
+         subb  #$96
+         leax  >L25EA,pcr
+         leax  b,x
+         ldb   ,x
+         lbeq  L3076
+         andb  #$1F
+         beq   L2D33
+         leau  <L2D8B,pcr
+         lslb  
+         jsr   b,u
+L2D33    ldb   ,x
+         andb  #$E0
+         beq   L2D49
+         clra  
+         rolb  
+         rola  
+         rolb  
+         rola  
+         rolb  
+         rola  
+         cmpa  #$07
+         bne   L2D49
+         lbsr  L2FBD
+         bra   L2D4E
+L2D49    lbsr  L2E24
+         leay  $01,y
+L2D4E    ldb   ,y
+         bmi   L2D0C
+         rts   
+L2D53    bsr   L2D58
+         incb  
+         bra   L2D5A
+L2D58    ldb   #$C8
+L2D5A    lbsr  L2E3B
+         cmpa  #$02
+         bcs   L2D6E
+         beq   L2D67
+         bsr   L2DAC
+         bra   L2D6C
+L2D67    tfr   b,a
+         lbsr  L2FA7
+L2D6C    lda   #$01
+L2D6E    rts   
+L2D6F    bsr   L2D74
+         incb  
+         bra   L2D76
+L2D74    ldb   #$CB
+L2D76    lbsr  L2E3B
+         cmpa  #$02
+         beq   L2D8A
+         bcs   L2D83
+         bsr   L2DAC
+         bra   L2D88
+L2D83    tfr   b,a
+         lbsr  L2FA7
+L2D88    lda   #$02
+L2D8A    rts   
+L2D8B    bra   L2DA9
+         bra   L2D58
+         bra   L2D53
+         bra   L2D74
+         bra   L2D6F
+         bra   L2DC7
+         bra   L2DB1
+         bra   L2DDD
+         bra   L2DDB
+         bra   L2DE8
+         bra   L2DED
+         bra   L2E19
+         bra   L2E17
+         bra   L2DFC
+         bra   L2DF2
+L2DA9    lbra  L3076
+L2DAC    lda   #$43
+         lbra  L26B7
+L2DB1    bsr   L2DD0
+         pshs  a
+         bsr   L2DD0
+         cmpa  ,s+
+         beq   L2DC9
+         lda   #$CB
+         bcc   L2DC0
+         inca  
+L2DC0    lbsr  L2FA7
+         lda   #$02
+         bra   L2DCD
+L2DC7    bsr   L2DD0
+L2DC9    cmpa  #$02
+         bne   L2DCF
+L2DCD    inc   ,y
+L2DCF    rts   
+L2DD0    bsr   L2E3B
+         cmpa  #$02
+         bls   L2DDA
+         bsr   L2DAC
+         lda   #$02
+L2DDA    rts   
+L2DDB    bsr   L2DDD
+L2DDD    bsr   L2E3B
+         cmpa  #$04
+         beq   L2DE7
+         bsr   L2DAC
+         lda   #$04
+L2DE7    rts   
+L2DE8    lbsr  L2D58
+         bra   L2DDD
+L2DED    lbsr  L2D53
+         bra   L2DDD
+L2DF2    lda   #$03
+         bsr   L2E09
+         bne   L2DFC
+         ldb   #$03
+         bra   L2E04
+L2DFC    lda   #$04
+         bsr   L2E09
+         bne   L2DB1
+         ldb   #$02
+L2E04    addb  ,y
+         stb   ,y
+         rts   
+L2E09    ldu   <u0044
+         cmpa  ,u+
+         bne   L2E16
+         cmpa  ,u+
+         bne   L2E16
+         stu   <u0044
+         clrb  
+L2E16    rts   
+L2E17    bsr   L2E19
+L2E19    bsr   L2E3B
+         cmpa  #$03
+         beq   L2E23
+         bsr   L2DAC
+         lda   #$03
+L2E23    rts   
+L2E24    cmpa  #$00
+         bne   L2E2A
+         lda   #$01
+L2E2A    ldu   <u0044
+         cmpa  #$05
+         bne   L2E36
+         ldd   <u00D4
+         std   ,--u
+         lda   #$05
+L2E36    sta   ,-u
+         stu   <u0044
+         rts   
+L2E3B    ldu   <u0044
+         lda   ,u+
+         cmpa  #$05
+         bne   L2E45
+         leau  u0002,u
+L2E45    stu   <u0044
+         rts   
+L2E48    cmpb  #$85
+         lbcs  L3076
+         cmpb  #$89
+         bcs   L2E94
+         subb  #$8D
+         lbcs  L2EF0
+         leau  <L2E5E,pcr
+         lslb  
+         jmp   b,u
+L2E5E    bra   L2E70
+         bra   L2E72
+         bra   L2E78
+         bra   L2E7E
+         bra   L2E72
+         bra   L2E88
+         bra   L2E91
+         bra   L2E88
+         bra   L2E91
+L2E70    leay  -$01,y
+L2E72    leay  $03,y
+         lda   #$01
+         bra   L2E24
+L2E78    leay  $06,y
+         lda   #$02
+         bra   L2E24
+L2E7E    ldb   ,y+
+         cmpb  #$FF
+         bne   L2E7E
+         lda   #$04
+         bra   L2E24
+L2E88    lbsr  L297A
+         bsr   L2E3B
+         lda   #$01
+         bsr   L2E24
+L2E91    leay  $01,y
+         rts   
+L2E94    lbsr  L2F2C
+         bsr   L2ECC
+         cmpa  #$60
+         beq   L2EA8
+         cmpa  #$80
+         beq   L2EA8
+         lda   #$12
+         lbsr  L26B7
+         bra   L2EC5
+L2EA8    ldb   #$85
+         lbsr  L2F47
+         ldb   ,y
+         cmpb  #$85
+         bne   L2EC5
+         ldb   <u00CF
+         cmpb  #$60
+         bne   L2EC5
+         cmpa  #$05
+         bcc   L2EC5
+         adda  #$80
+         sta   ,y
+         ldd   $01,x
+         std   $01,y
+L2EC5    lda   <u00D1
+         leay  $03,y
+         lbra  L2E24
+L2ECC    lda   <u00CF
+         cmpa  #$00
+         bne   L2EEF
+         ldd   #$0060
+         sta   <u00D0
+         stb   <u00CF
+         lda   #$60
+         ora   <u00D1
+         sta   ,x
+         anda  #$07
+         cmpa  #$04
+         bne   L2EEA
+         ldd   #$0020
+         std   $01,x
+L2EEA    lbsr  L2FD7
+         lda   <u00CF
+L2EEF    rts   
+L2EF0    bsr   L2F2C
+         ldb   #$89
+         bsr   L2F47
+         lbsr  L2E3B
+         cmpa  #$05
+         beq   L2F02
+         ldu   #$FFFF
+         bra   L2F04
+L2F02    ldu   -u0002,u
+L2F04    pshs  u
+         bsr   L2EC5
+         puls  u
+         cmpu  #$FFFF
+         beq   L2F27
+         ldb   u0002,u
+         stb   <u00D6
+         ldd   <u00D2
+         subd  <u0062
+         leau  u0003,u
+L2F1A    cmpd  ,u++
+         beq   L2F46
+         dec   <u00D6
+         bne   L2F1A
+         lda   #$14
+         bra   L2F29
+L2F27    lda   #$42
+L2F29    lbra  L26B7
+L2F2C    ldd   $01,y
+         addd  <u0062
+         std   <u00D2
+         ldx   <u00D2
+L2F34    lda   ,x
+         anda  #$E0
+         sta   <u00CF
+         lda   ,x
+         anda  #$18
+         sta   <u00D0
+         lda   ,x
+         anda  #$07
+         sta   <u00D1
+L2F46    rts   
+L2F47    pshs  b
+         ldb   ,y
+         subb  ,s+
+         bne   L2F5C
+         tst   <u00D0
+         beq   L2F86
+         lda   #$05
+         sta   <u00D1
+         ldd   #$FFFF
+         bra   L2FA2
+L2F5C    lslb  
+         lslb  
+         lslb  
+         cmpb  <u00D0
+         beq   L2F68
+         lda   #$41
+         lbsr  L26B7
+L2F68    lda   #$C8
+         sta   <u00D8
+L2F6C    lbsr  L2E3B
+         cmpa  #$02
+         bcs   L2F80
+         beq   L2F7C
+         lda   #$47
+         lbsr  L26B7
+         bra   L2F80
+L2F7C    lda   <u00D8
+         bsr   L2FA7
+L2F80    inc   <u00D8
+         subb  #$08
+         bne   L2F6C
+L2F86    lda   <u00D1
+         cmpa  #$05
+         bne   L2FA6
+         ldd   $01,x
+         addd  <u0066
+         tfr   d,u
+         ldb   <u00D0
+         beq   L2F9E
+         lsrb  
+         lsrb  
+         addb  #$04
+         ldd   b,u
+         bra   L2FA0
+L2F9E    ldd   u0002,u
+L2FA0    addd  <u0066
+L2FA2    std   <u00D4
+         lda   <u00D1
+L2FA6    rts   
+L2FA7    pshs  x,b
+         ldx   <u000C
+         cmpx  #$0010
+         lbls  L29F6
+         ldx   <u0060
+         sta   ,x+
+         stx   <u00AB
+         clrb  
+         bsr   L2FC3
+         puls  pc,x,b
+L2FBD    ldd   <u0060
+         std   <u00AB
+         ldb   #$01
+L2FC3    clra  
+         lbra  L2561
+L2FC7    neg   <u0049
+         neg   <u005C
+         neg   <u0060
+         neg   <u006A
+         neg   <u0066
+         neg   <u0072
+         neg   <u0072
+         neg   <u0076
+L2FD7    pshs  u,y,x
+         leay  <L2FC7,pcr
+         ldb   ,x
+         andb  #$E0
+         cmpb  #$60
+         beq   L2FEE
+         cmpb  #$40
+         beq   L2FEE
+         cmpb  #$80
+         bne   L300E
+         leay  $08,y
+L2FEE    ldb   ,x
+         andb  #$18
+         beq   L2FF8
+         ldd   $06,y
+         bra   L300C
+L2FF8    ldb   ,x
+         andb  #$07
+L2FFC    cmpb  #$04
+         bcs   L300A
+         bhi   L3006
+         ldd   $02,y
+         bra   L300C
+L3006    ldd   $04,y
+         bra   L300C
+L300A    ldd   ,y
+L300C    jsr   d,y
+L300E    puls  pc,u,y,x
+         lda   ,x
+         anda  #$07
+         leay  $01,x
+         bsr   L306C
+L3018    pshs  b,a
+         ldd   <u00C1
+         std   ,y
+         addd  ,s++
+         std   <u00C1
+         rts   
+         bsr   L3052
+         bra   L3018
+         bsr   L3052
+         addd  <u0066
+         tfr   d,x
+         ldd   ,x
+         bra   L3018
+         bsr   L3049
+         bra   L3018
+         leay  $01,x
+L3037    ldd   <u00C3
+         std   ,y
+         addd  #$0004
+         std   <u00C3
+         rts   
+         bsr   L3052
+         bra   L3037
+         bsr   L3049
+         bra   L3037
+L3049    ldd   $01,x
+         addd  <u0066
+         tfr   d,y
+         ldd   $02,y
+         rts   
+L3052    ldd   #$0004
+         lbsr  L2564
+         ldx   $04,s
+         ldd   $01,x
+         std   $02,y
+         tfr   y,d
+         subd  <u0066
+         std   $01,x
+         ldd   $02,y
+         rts   
+L3067    oim   #$02,<u0005
+         oim   #$20,<u0034
+         addr  a,0
+         ldb   >$E686
+         clra  
+         puls  pc,x
+L3076    ldy   <u0060
+         lda   #$30
+         lbra  L26B7
+L307E    oim   #$02,<u0003
+         asr   <u0008
+         rol   <u0037
+         fcb   $38 8
+         fcb   $3E >
+         swi   
+         fcb   $FF 
+         ldd   #$0016
+         std   <u00C1
+         clrb  
+         std   <u00C3
+         std   <u00C5
+         sta   <u00C7
+         std   <u00C8
+         std   <u00CA
+         ldx   <u002F
+         sta   <$17,x
+         std   <$15,x
+         ldy   <u005E
+         bra   L30CB
+L30A6    pshs  y
+         lbsr  L267B
+         puls  x
+         ldb   <u00D9
+         bne   L30CB
+         lda   ,x
+         leau  <L307E,pcr
+L30B6    cmpa  ,u+
+         bcs   L30CB
+         bne   L30B6
+         pshs  x
+         tfr   y,d
+         subd  ,s++
+         leay  ,x
+         ldu   <u004A
+         stu   <u00AB
+         lbsr  L2561
+L30CB    ldx   <u0060
+         clr   ,x
+         cmpy  <u0060
+         bcs   L30A6
+L30D4    ldx   <u0066
+         bra   L30F4
+L30D8    lda   ,x
+         bpl   L30F4
+         anda  #$7F
+         sta   ,x
+         ldy   $02,x
+L30E3    ldu   ,y
+         ldd   ,x
+         std   ,y
+         dec   -$01,y
+         lda   #$4A
+         lbsr  L26B7
+         leay  ,u
+         bne   L30E3
+L30F4    leax  -$04,x
+         cmpx  <u00DA
+         bcc   L30D8
+         ldd   <u0066
+         subd  <u00DA
+         addd  <u000C
+         std   <u000C
+         ldx   <u0044
+         bra   L311A
+L3106    ldy   $01,x
+         lda   #$45
+         lbsr  L26B7
+         lda   ,x
+         cmpa  #$13
+         bne   L3116
+         leax  $07,x
+L3116    leax  $03,x
+         stx   <u0044
+L311A    cmpx  <u0046
+         bcs   L3106
+         ldu   <u0066
+         ldy   <u0060
+         ldd   <u0064
+         addd  <u0068
+         lbsr  L2567
+         ldx   <u002F
+         ldd   <u00C8
+         std   <$13,x
+         ldd   <u00C1
+         std   <$11,x
+         addd  <u00C5
+         std   <u00C5
+         std   $0B,x
+         ldb   <$18,x
+         clra  
+         addd  #$0019
+         std   $09,x
+         addd  <u0060
+         subd  <u005E
+         std   $0F,x
+         addd  <u0068
+         addd  #$0003
+         std   $0D,x
+         subd  #$0003
+         addd  <u0064
+         std   $02,x
+         addd  <u002F
+         std   <u004A
+         subd  <u0008
+         std   <u000A
+         ldd   <u002F
+         addd  $0D,x
+         std   <u0062
+         ldd   <u002F
+         addd  $0F,x
+         std   <u0066
+         ldu   <u0062
+         bra   L31CB
+L3171    leax  ,u
+         lbsr  L2F34
+         lda   <u00CF
+         cmpa  #$60
+         bcs   L31A6
+         cmpa  #$A0
+         bne   L3188
+         ldd   $01,x
+         addd  <u00C1
+         std   $01,x
+         bra   L31C5
+L3188    cmpa  #$80
+         bne   L31A6
+         ldb   <u00D0
+         bne   L319A
+         lda   <u00D1
+         cmpa  #$04
+         bcc   L319A
+         leax  u0001,u
+         bra   L31A0
+L319A    ldd   u0001,u
+         addd  <u0066
+         tfr   d,x
+L31A0    ldd   ,x
+         addd  <u00C5
+         std   ,x
+L31A6    lda   <u00D1
+         cmpa  #$05
+         bne   L31C5
+         ldb   <u00D0
+         beq   L31B6
+         lsrb  
+         lsrb  
+         addb  #$04
+         bra   L31B8
+L31B6    ldb   #$02
+L31B8    clra  
+         addd  u0001,u
+         ldx   <u0066
+         leay  d,x
+         ldd   ,y
+         ldd   d,x
+         std   ,y
+L31C5    leau  u0003,u
+L31C7    lda   ,u+
+         bpl   L31C7
+L31CB    cmpu  <u004A
+         bcs   L3171
+         rts   
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L31E1,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L31E1    dec   <u0007
+         neg   <u00E5
+         rol   <u0067
+         lsl   <u0003
+         oim   #$B6,<u0008
+         oim   #$08,>$7B9D
+         fcb   $1B 
+         ror   <u009D
+         fcb   $1B 
+         inc   <u009D
+         fcb   $1B 
+         jmp   <u009D
+         fcb   $1B 
+         aim   #$9D,<u001B
+         neg   <u009D
+         fcb   $1B 
+         dec   <u009D
+         fcb   $1B 
+         fcb   $10 
+L3204    jsr   <u001E
+         ror   <u009D
+         beq   L320E
+L320A    jsr   <u0027
+         dec   <u009D
+L320E    beq   L3212
+L3210    jsr   <u0027
+L3212    inc   <u009D
+         beq   L3224
+L3216    jsr   <u0027
+         neg   <u009D
+         bpl   L321E
+L321C    jsr   <u001B
+L321E    fcb   $18 
+L321F    jsr   <u001B
+         lbra  LCF3F
+L3224    orcc  #$9D
+         fcb   $1B 
+         andcc #$08
+         nop   
+         lsl   <u0012
+         lsl   <u0012
+         lsl   <u0012
+         lsl   <u0012
+         com   <u00A0
+         com   <u00B1
+         lsl   <u002A
+         lsl   <u0034
+         com   <u00B4
+         lsl   <u001E
+         lsl   <u0022
+         com   <u00DA
+         oim   #$6F,<u0002
+         ldu   $03,x
+         subd  <u0001
+         tst   >$018D
+         oim   #$94,<u0002
+         ldx   $01,x
+         eora  $01,x
+         sta   <u0001
+         bsr   L3258
+         clr   $01,x
+         sta   <u0001
+         clr   $01,x
+         bsr   L3260
+         sta   <u0001
+         bsr   L3266
+         addd  >$07B8
+L3266    lsl   <u001A
+         oim   #$8D,<u0008
+         orcc  #$03
+         ora   >$084B
+         rol   <u00B4
+         lsr   <u00AF
+         ror   <u0017
+         asr   <u003E
+         asr   <u004B
+         lsr   <u0049
+         lsr   <u0052
+         lsr   <u0080
+         eim   #$8C,<u0006
+         subd  $06,x
+         eorb  <u0006
+         stu   <u0007
+         tim   #$07,<u0018
+         asr   <u0031
+         asr   <u0061
+         asr   <u007D
+         asr   <u00FE
+         lsl   <u0001
+         lsl   <u0009
+         lsl   <u0009
+         oim   #$58,<u0001
+         tst   $01,x
+         tst   $08,x
+         clr   <u0008
+         orcc  #$01
+         inc   $01,x
+         inc   $03,x
+         nop   
+         com   <u0021
+         com   <u0030
+         com   <u0012
+         com   <u0049
+         com   <u007C
+L32B4    comb  
+         lsrb  
+         clra  
+         negb  
+         bra   L32FF
+         jmp   $03,s
+         clr   -$0B,s
+         jmp   -$0C,s
+         eim   #$72,$05,s
+         lsr   $0A,x
+         stu   >$A688
+         lbsr  LB7CC
+         beq   L32D1
+         ldb   #$33
+         bra   L32ED
+L32D1    tfr   s,d
+         subd  #$0100
+         cmpd  <u0080
+         bcc   L32DF
+         ldb   #$39
+         bra   L32ED
+L32DF    ldd   <u000C
+         subd  $0B,x
+         bcs   L32EB
+         cmpd  #$0100
+         bcc   L32F0
+L32EB    ldb   #$20
+L32ED    lbra  L39E4
+L32F0    std   <u000C
+         tfr   y,d
+         subd  $0B,x
+         exg   d,u
+         sts   u0005,u
+         std   u0007,u
+         stx   u0003,u
+L32FF    ldd   #$0001
+         std   <u0042
+         sta   u0001,u
+         sta   <u0013,u
+         stu   <u0014,u
+         bsr   L333A
+         ldd   <$13,x
+         beq   L3315
+         addd  <u005E
+L3315    std   <u0039
+         ldd   $0B,x
+         leay  d,u
+         pshs  y
+         ldd   <$11,x
+         leay  d,u
+         clra  
+         clrb  
+         bra   L3328
+L3326    std   ,y++
+L3328    cmpy  ,s
+         bcs   L3326
+         leas  $02,s
+         ldx   <u002F
+         ldd   <u005E
+         addd  <$15,x
+         tfr   d,x
+         bra   L337A
+L333A    stx   <u002F
+         stu   <u0031
+         ldd   $0D,x
+         addd  <u002F
+         std   <u0062
+         ldd   $0F,x
+         addd  <u002F
+         std   <u0066
+         std   <u0060
+         ldd   $09,x
+         addd  <u002F
+         std   <u005E
+         ldd   <u0014,u
+         std   <u0046
+         std   <u0044
+         rts   
+L335A    stx   <u005C
+         lda   <u0034
+         beq   L3378
+         bpl   L336B
+         anda  #$7F
+         sta   <u0034
+         lbsr  L321C
+         lda   <u0034
+L336B    rora  
+         bcc   L3378
+         leay  ,x
+         lbsr  L3201
+         clr   <u0074
+         lbsr  L321F
+L3378    bsr   L3397
+L337A    cmpx  <u0060
+         bcs   L335A
+         bra   L338A
+         ldb   ,x
+         lbsr  L3838
+         beq   L338A
+         lbsr  L383F
+L338A    lbsr  L3A5C
+         ldu   <u0031
+         lds   u0005,u
+         ldu   u0007,u
+L3394    rts   
+         leax  $02,x
+L3397    ldb   ,x+
+         bpl   L339D
+         addb  #$40
+L339D    lslb  
+         clra  
+         ldu   <u000E
+         ldd   d,u
+         jmp   d,u
+         jsr   <u0016
+         tst   $02,y
+         beq   L33B5
+         leax  $03,x
+         ldb   ,x
+         cmpb  #$3B
+         bne   L3394
+         leax  $01,x
+L33B5    ldd   ,x
+         addd  <u005E
+         tfr   d,x
+         rts   
+         leax  $01,x
+         rts   
+         jsr   <u0016
+         tst   $02,y
+         beq   L33B5
+         leax  $03,x
+         rts   
+L33C8    neg   <u0026
+         neg   <u003F
+         neg   <u007B
+         neg   <u00C6
+         leay  <L33C8,pcr
+L33D3    ldb   ,x+
+         lslb  
+         ldd   b,y
+         ldu   <u0031
+         jmp   d,y
+         ldd   ,x
+         leay  d,u
+         bra   L33F9
+         ldd   ,x
+         leay  d,u
+         ldd   $04,x
+         lda   d,u
+         bpl   L33F9
+         bra   L3419
+         ldd   ,x
+         leay  d,u
+         ldd   ,y
+         addd  #$0001
+         std   ,y
+L33F9    ldd   $02,x
+         leax  $06,x
+         ldd   d,u
+         cmpd  ,y
+         bge   L33B5
+         leax  $03,x
+         rts   
+         ldd   ,x
+         leay  d,u
+         ldd   $04,x
+         ldd   d,u
+         pshs  a
+         addd  ,y
+         std   ,y
+         tst   ,s+
+         bpl   L33F9
+L3419    ldd   $02,x
+         leax  $06,x
+         ldd   d,u
+         cmpd  ,y
+         ble   L33B5
+         leax  $03,x
+         rts   
+         ldy   <u0046
+         clrb  
+         bsr   L3477
+         bra   L3467
+         ldy   <u0046
+         clrb  
+         bsr   L3477
+         ldd   $04,x
+         addd  #$0004
+         ldu   <u0031
+         lda   d,u
+         lsra  
+         bcc   L3467
+         bra   L34B5
+         ldy   <u0046
+         clrb  
+         bsr   L3477
+         leay  -$06,y
+         ldd   #$0180
+         std   $01,y
+         clra  
+         clrb  
+         std   $03,y
+         sta   $05,y
+         lbsr  L3207
+         bsr   L34C5
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+L3467    ldb   #$02
+         bsr   L3477
+         leax  $06,x
+         lbsr  L320A
+         lble  L33B5
+         leax  $03,x
+         rts   
+L3477    ldd   b,x
+         addd  <u0031
+         tfr   d,u
+         leay  -$06,y
+         lda   #$02
+         ldb   ,u
+         std   ,y
+         ldd   u0001,u
+         std   $02,y
+         ldd   u0003,u
+         std   $04,y
+         rts   
+         ldy   <u0046
+         clrb  
+         bsr   L3477
+         stu   <u00D2
+         ldb   #$04
+         bsr   L3477
+         lda   u0004,u
+         sta   <u00D1
+         lbsr  L3207
+         bsr   L34C5
+         ldu   <u00D2
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+         lsr   <u00D1
+         bcc   L3467
+L34B5    ldb   #$02
+         bsr   L3477
+         leax  $06,x
+         lbsr  L320A
+         lbge  L33B5
+         leax  $03,x
+L34C4    rts   
+L34C5    ldb   <u0034
+         bitb  #$01
+         beq   L34C4
+         lbra  L3225
+L34CE    stu   >$0EFF
+         sexw  
+         stu   >$59FF
+         oim   #$E6,,x+
+         cmpb  #$82
+         beq   L34FE
+         bsr   L3549
+         bsr   L34F1
+         ldb   -$01,x
+         cmpb  #$47
+         bne   L34E8
+         bsr   L34F1
+L34E8    lbsr  L33B5
+         leay  <L34CE,pcr
+         lbra  L33D3
+L34F1    ldd   ,x++
+         addd  <u0031
+         pshs  b,a
+         jsr   <u0016
+         ldd   $01,y
+         std   [,s++]
+         rts   
+L34FE    bsr   L3558
+         bsr   L350C
+         ldb   -$01,x
+         cmpb  #$47
+         bne   L34E8
+         bsr   L350C
+         bra   L34E8
+L350C    ldd   ,x++
+         addd  <u0031
+         pshs  b,a
+         jsr   <u0016
+         bra   L3562
+         jsr   <u0016
+L3518    cmpa  #$04
+         bcs   L3520
+         pshs  u
+         ldu   <u003E
+L3520    pshs  u,a
+         leax  $01,x
+         jsr   <u0016
+L3526    puls  a
+         lsla  
+         leau  <L352E,pcr
+         jmp   a,u
+L352E    bra   L3544
+         bra   L3553
+         bra   L3562
+         bra   L3544
+         bra   L3585
+         bra   L35AA
+         ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L3544    ldb   $02,y
+         stb   [,s++]
+         rts   
+L3549    ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L3553    ldd   $01,y
+         std   [,s++]
+         rts   
+L3558    ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L3562    puls  u
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+         rts   
+         ldd   ,x
+         addd  <u0066
+         tfr   d,u
+         ldd   ,u
+         addd  <u0031
+         pshs  b,a
+         ldd   u0002,u
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L3585    puls  u,b,a
+         tstb  
+         bne   L358B
+         deca  
+L358B    sta   <u003E
+         ldy   $01,y
+         sty   <u0048
+L3593    lda   ,y+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L35A2
+         decb  
+         bne   L3593
+         dec   <u003E
+         bpl   L3593
+L35A2    clra  
+         rts   
+         lbsr  L320D
+         lbra  L3518
+L35AA    puls  u,b,a
+         cmpd  $03,y
+         bls   L35B3
+         ldd   $03,y
+L35B3    ldy   $01,y
+         exg   y,u
+         lbra  L3204
+         jsr   <u0016
+         ldd   $01,y
+         pshs  b,a
+         jsr   <u0016
+         ldb   $02,y
+         stb   [,s++]
+         rts   
+         lbsr  L383F
+         lda   <u002E
+         sta   <u007F
+         leax  >L32B4,pcr
+         lbsr  L3748
+         lbra  L31EF
+         lbra  L31F2
+         lbsr  L383F
+         lbra  L321C
+         ldd   ,x
+         leax  $03,x
+L35E6    ldy   <u0031
+         ldu   <$14,y
+         cmpu  <u004A
+         bhi   L35F6
+         ldb   #$35
+         lbra  L39E4
+L35F6    stx   ,--u
+         stu   <$14,y
+         stu   <u0046
+         addd  <u005E
+         tfr   d,x
+         rts   
+         ldy   <u0031
+         cmpy  <$14,y
+         bhi   L3610
+         ldb   #$36
+         lbra  L39E4
+L3610    ldu   <$14,y
+         ldx   ,u++
+         stu   <$14,y
+         stu   <u0046
+         rts   
+         ldd   ,x
+         cmpa  #$1E
+         beq   L3656
+         jsr   <u0016
+         ldd   ,x
+         lslb  
+         rola  
+         lslb  
+         rola  
+         addd  #$0002
+         leau  d,x
+         pshs  u
+         ldd   $01,y
+         ble   L3654
+         cmpd  ,x++
+         bhi   L3654
+         subd  #$0001
+         lslb  
+         rola  
+         lslb  
+         rola  
+         addd  #$0001
+         ldd   d,x
+         pshs  b,a
+         ldb   ,x
+         cmpb  #$22
+         puls  x,b,a
+         beq   L35E6
+         addd  <u005E
+         tfr   d,x
+         rts   
+L3654    puls  pc,x
+L3656    ldu   <u0031
+         cmpb  #$20
+         bne   L366B
+         ldd   $02,x
+         addd  <u005E
+         std   <u0011,u
+         lda   #$01
+         sta   <u0013,u
+         leax  $05,x
+         rts   
+L366B    clr   <u0013,u
+         leax  $02,x
+         rts   
+         bsr   L368F
+         ldb   #$0B
+         os9   I$Create 
+         bra   L367F
+         bsr   L368F
+         os9   I$Open   
+L367F    lbcs  L39E4
+         puls  u,b
+         cmpb  #$01
+         bne   L368B
+         clr   ,u+
+L368B    sta   ,u
+         puls  pc,x
+L368F    leax  $01,x
+         lbsr  L3762
+         leax  $01,x
+         jsr   <u0016
+         lda   #$03
+         cmpb  #$4A
+         bne   L36A0
+         lda   ,x++
+L36A0    ldu   $03,s
+         stx   $03,s
+         ldx   $01,y
+         jmp   ,u
+         lbsr  L379F
+         jsr   <u0016
+         ldb   #$0E
+         lbsr  L3219
+         lbcs  L39E6
+         rts   
+L36B7    swi   
+         fcb   $20 
+         stu   >$2A2A
+         bra   L3707
+         jmp   -$10,s
+         eim   #$74,>$2065
+         aim   #$72,>$6F72
+         bra   L36F7
+         bra   L373E
+         eim   #$65,$0E,s
+         lsr   >$6572
+         bra   L36FE
+         bpl   L36E3
+         stu   >$962E
+         lbsr  L379F
+         lda   #$2C
+         sta   <u00DD
+         pshs  x
+L36E2    ldx   ,s
+         ldb   ,x
+         cmpb  #$90
+         bne   L36F2
+         jsr   <u0016
+         pshs  x
+         ldx   $01,y
+         bra   L36F7
+L36F2    pshs  x
+         leax  <L36B7,pcr
+L36F7    bsr   L3748
+         puls  x
+         lda   <u007F
+         cmpa  <u002E
+         bne   L3705
+         lda   <u002D
+         sta   <u007F
+L3705    ldb   #$06
+L3707    lbsr  L3219
+         bcc   L3719
+         cmpb  #$03
+         lbne  L39E6
+         lbsr  L3A0C
+         clr   <u0036
+         bra   L36E2
+L3719    bsr   L372C
+         bcc   L3724
+         leax  <L36BA,pcr
+         bsr   L3748
+         bra   L36E2
+L3724    ldb   ,x+
+         cmpb  #$4B
+         beq   L3719
+         puls  pc,b,a
+L372C    bsr   L3762
+         ldb   ,s
+         addb  #$07
+         ldy   <u0046
+         lbsr  L3219
+         lbcc  L3526
+         lda   ,s
+L373E    cmpa  #$04
+         bcs   L3744
+         leas  $02,s
+L3744    leas  $03,s
+         coma  
+         rts   
+L3748    pshs  y
+         leas  -$06,s
+         leay  ,s
+         stx   $01,y
+         ldd   <u0080
+         std   <u0082
+         ldb   #$05
+         lbsr  L3219
+         ldb   #$00
+         lbsr  L3219
+         leas  $06,s
+         puls  pc,y
+L3762    lda   ,x+
+         cmpa  #$0E
+         bne   L376C
+         jsr   <u0016
+         bra   L3791
+L376C    suba  #$80
+         cmpa  #$04
+         bcs   L3787
+         beq   L3779
+         lbsr  L320D
+         bra   L3791
+L3779    ldd   ,x++
+         addd  <u0066
+         tfr   d,u
+         ldd   u0002,u
+         std   <u003E
+         ldd   ,u
+         bra   L3789
+L3787    ldd   ,x++
+L3789    addd  <u0031
+         tfr   d,u
+         lda   -$03,x
+         suba  #$80
+L3791    puls  y
+         cmpa  #$04
+         bcs   L379B
+         pshs  u
+         ldu   <u003E
+L379B    pshs  u,a
+         jmp   ,y
+L379F    ldb   ,x
+         cmpb  #$54
+         bne   L37B1
+         leax  $01,x
+         jsr   <u0016
+         cmpb  #$4B
+         beq   L37AF
+         leax  -$01,x
+L37AF    lda   $02,y
+L37B1    sta   <u007F
+         rts   
+         ldb   ,x
+         cmpb  #$54
+         bne   L37DE
+         bsr   L379F
+         clr   <u00DD
+         cmpb  #$4B
+         bne   L37C4
+         leax  -$01,x
+L37C4    ldb   #$06
+         lbsr  L3219
+         bcc   L37D7
+         cmpb  #$E4
+         beq   L37C4
+L37CF    lbra  L39E6
+L37D2    lbsr  L372C
+         bcs   L37CF
+L37D7    ldb   ,x+
+         cmpb  #$4B
+         beq   L37D2
+         rts   
+L37DE    bsr   L3838
+         beq   L381B
+L37E2    bsr   L37EB
+         ldb   ,x+
+         cmpb  #$4B
+         beq   L37E2
+         rts   
+L37EB    lbsr  L3762
+         bsr   L381D
+         lda   ,s
+         bne   L37F5
+         inca  
+L37F5    cmpa  ,y
+         lbeq  L3526
+         cmpa  #$02
+         bcs   L3805
+         beq   L3811
+L3801    ldb   #$47
+         bra   L3825
+L3805    lda   ,y
+         cmpa  #$02
+         bne   L3801
+         lbsr  L3210
+         lbra  L3526
+L3811    cmpa  ,y
+         bcs   L3801
+         lbsr  L3213
+         lbra  L3526
+L381B    leax  $01,x
+L381D    pshs  x
+         ldx   <u0039
+         bne   L3828
+         ldb   #$4F
+L3825    lbra  L39E4
+L3828    jsr   <u0016
+         cmpb  #$4B
+         beq   L3834
+         ldd   ,x
+         addd  <u005E
+         tfr   d,x
+L3834    stx   <u0039
+         puls  pc,x
+L3838    cmpb  #$3F
+         beq   L383E
+         cmpb  #$3E
+L383E    rts   
+L383F    lda   <u002E
+         lbsr  L379F
+         ldd   <u0080
+         std   <u0082
+         ldb   ,x+
+         cmpb  #$49
+         beq   L388C
+L384E    bsr   L3838
+         beq   L3874
+L3852    cmpb  #$4B
+         beq   L3868
+         cmpb  #$51
+         beq   L386C
+         leax  -$01,x
+         jsr   <u0016
+         ldb   ,y
+         addb  #$01
+         bsr   L3884
+         ldb   -$01,x
+         bra   L384E
+L3868    ldb   #$0D
+         bsr   L3884
+L386C    ldb   ,x+
+         bsr   L3838
+         bne   L3852
+         bra   L3878
+L3874    ldb   #$0C
+         bsr   L3884
+L3878    ldb   #$00
+         bsr   L3884
+         lda   <u00DE
+         clr   <u00DE
+         tsta  
+         bne   L3889
+L3883    rts   
+L3884    lbsr  L3219
+         bcc   L3883
+L3889    lbra  L39E6
+L388C    jsr   <u0016
+         ldd   <u004A
+         std   <u008E
+         std   <u008C
+         ldu   <u0046
+         pshs  u,b,a
+         clr   <u0094
+         ldd   <u0048
+         std   <u004A
+L389E    ldb   -$01,x
+         bsr   L3838
+         beq   L38C0
+         ldb   ,x+
+         bsr   L3838
+         beq   L38BB
+         leax  -$01,x
+         ldb   #$11
+         lbsr  L3219
+         bcc   L389E
+         puls  u,b,a
+         std   <u004A
+         stu   <u0046
+         bra   L3889
+L38BB    leay  <L3878,pcr
+         bra   L38C3
+L38C0    leay  <L3874,pcr
+L38C3    puls  u,b,a
+         std   <u004A
+         stu   <u0046
+         jmp   ,y
+         lda   <u002E
+         lbsr  L379F
+         ldu   <u0080
+         stu   <u0082
+         ldb   ,x+
+         lbsr  L3838
+         beq   L38FD
+         cmpb  #$4B
+         beq   L38EB
+         leax  -$01,x
+         bra   L38EB
+L38E3    clra  
+         ldb   #$12
+         lbsr  L3219
+         bcs   L3889
+L38EB    jsr   <u0016
+         ldb   ,y
+         addb  #$01
+         lbsr  L3219
+         bcs   L3889
+         ldb   -$01,x
+         lbsr  L3838
+         bne   L38E3
+L38FD    lbra  L3874
+         bsr   L3913
+         os9   I$Read   
+         bra   L390C
+         bsr   L3913
+         os9   I$Write  
+L390C    leax  ,u
+         bcc   L3932
+L3910    lbra  L39E4
+L3913    lbsr  L379F
+         lbsr  L3762
+         leau  ,x
+         puls  a
+         cmpa  #$04
+         bcc   L392C
+         leax  >L3B44,pcr
+         ldb   a,x
+         clra  
+         tfr   d,y
+         bra   L392E
+L392C    puls  y
+L392E    puls  x
+         lda   <u007F
+L3932    rts   
+L3933    lbsr  L379F
+         os9   I$Close  
+         bcs   L3910
+         cmpb  #$4B
+         beq   L3933
+         rts   
+         ldb   ,x+
+         cmpb  #$3B
+         beq   L3950
+         ldu   <u002F
+         ldd   <u0013,u
+L394B    addd  <u005E
+         std   <u0039
+         rts   
+L3950    ldd   ,x
+         addd  #$0001
+         leax  $03,x
+         bra   L394B
+         jsr   <u0016
+         pshs  x
+         ldx   $01,y
+         os9   I$Delete 
+L3962    bcs   L3910
+         puls  pc,x
+         jsr   <u0016
+         lda   #$03
+L396A    pshs  x
+         ldx   $01,y
+         os9   I$ChgDir 
+         bra   L3962
+         jsr   <u0016
+         lda   #$04
+         bra   L396A
+         lbsr  L3762
+         ldy   <u0046
+         leay  -$06,y
+         ldb   <u007F
+         clra  
+         std   $01,y
+         lbra  L3526
+         jsr   <u0016
+         ldy   $01,y
+         pshs  u,y,x
+         lbsr  L31F5
+         puls  u,y,x
+         bsr   L39C9
+         sts   <u00B1
+         lds   <u0080
+         os9   F$Chain  
+         lds   <u00B1
+         bra   L39E4
+         jsr   <u0016
+         pshs  u,x
+         ldy   $01,y
+         bsr   L39C9
+         os9   F$Fork   
+         bcs   L39E4
+         pshs  a
+L39B5    os9   F$Wait   
+         cmpa  ,s
+         bne   L39B5
+         leas  $01,s
+         tstb  
+         bne   L39E4
+         puls  pc,u,x
+L39C3    comb  
+         lsla  
+         fcb   $45 E
+         inca  
+         inca  
+         tst   <u009E
+         lsla  
+         lda   #$0D
+         sta   -$01,x
+         tfr   x,d
+         leax  >L39C3,pcr
+         leau  ,y
+         pshs  y
+         subd  ,s++
+         tfr   d,y
+         clra  
+         clrb  
+         rts   
+         jsr   <u0016
+         ldb   $02,y
+L39E4    stb   <u0036
+L39E6    ldu   <u0031
+         beq   L3A04
+         tst   <u0013,u
+         beq   L39FD
+         lds   u0005,u
+         ldx   <u0011,u
+         ldd   <u0014,u
+         std   <u0046
+         lbra  L335A
+L39FD    bsr   L3A0C
+         bsr   L3A5C
+         lbra  L31EF
+L3A04    lbsr  L31F8
+         lbra  L31EF
+L3A0A    jmp   <u00FF
+L3A0C    leax  <L3A0A,pcr
+         lbsr  L3748
+         ldx   <u005C
+         leay  ,x
+         lbsr  L3201
+         clr   <u0074
+         lbsr  L321F
+         ldb   <u0036
+         lbsr  L31F8
+         lbra  L321C
+         clrb  
+         bra   L3A2B
+         ldb   #$01
+L3A2B    clra  
+         std   <u0042
+         leax  $01,x
+         rts   
+         ldb   ,x+
+         clra  
+         leax  d,x
+         rts   
+         exg   x,pc
+         rts   
+         leay  ,x
+         lbsr  L3201
+         leax  ,y
+         rts   
+         ldb   #$33
+         bra   L39E4
+         lda   #$01
+         bra   L3A4B
+         clra  
+L3A4B    ldu   <u0031
+         sta   u0001,u
+         leax  $01,x
+         rts   
+L3A52    lda   <u0034
+         bita  #$01
+         bne   L3A72
+         ora   #$01
+         bra   L3A64
+L3A5C    lda   <u0034
+         bita  #$01
+         beq   L3A72
+         anda  #$FE
+L3A64    sta   <u0034
+         ldd   <u0017
+         pshs  b,a
+         ldd   <u0019
+         std   <u0017
+         puls  b,a
+         std   <u0019
+L3A72    rts   
+         lbsr  L320D
+         pshs  x
+         ldb   <u00CF
+         cmpb  #$A0
+         beq   L3A9F
+         ldy   <u0048
+         ldx   <u003E
+L3A83    lda   ,u+
+         leax  -$01,x
+         beq   L3A91
+         sta   ,y+
+         cmpa  #$FF
+         bne   L3A83
+         lda   ,--y
+L3A91    ora   #$80
+         sta   ,y
+         ldy   <u0048
+         lbsr  L31FB
+         bcs   L3ADD
+         leau  ,x
+L3A9F    ldd   ,u
+         bne   L3AB1
+         ldy   <u00D2
+         leay  $03,y
+         lbsr  L31FB
+         bcs   L3ADD
+         ldd   ,x
+         std   ,u
+L3AB1    ldx   ,s
+         std   ,s
+         ldu   <u0031
+         lda   <u0034
+         sta   ,u
+         ldb   <u0043
+         stb   u0002,u
+         ldd   <u004A
+         std   u000D,u
+         ldd   <u0040
+         std   u000F,u
+         ldd   <u0039
+         std   u0009,u
+         bsr   L3B48
+         stx   u000B,u
+         puls  x
+         lda   $06,x
+         beq   L3B0C
+         cmpa  #$22
+         beq   L3B0C
+         cmpa  #$21
+         beq   L3AE2
+L3ADD    ldb   #$2B
+L3ADF    lbra  L39E4
+L3AE2    ldd   u0005,u
+         pshs  b,a
+         sts   u0005,u
+         leas  ,y
+         ldd   <u0040
+         pshs  y
+         subd  ,s++
+         lsra  
+         rorb  
+         lsra  
+         rorb  
+         pshs  b,a
+         ldd   $09,x
+         leay  >L32C6,pcr
+         jsr   d,x
+         ldu   <u0031
+         lds   u0005,u
+         puls  x
+         stx   u0005,u
+         bcc   L3B25
+         bra   L3ADF
+L3B0C    lbsr  L3A5C
+         lda   <u0034
+         anda  #$7F
+         sta   <u0034
+         lbsr  L32C6
+         lda   ,u
+         bita  #$01
+         beq   L3B25
+         lbsr  L3A52
+         lda   ,u
+         sta   <u0034
+L3B25    ldd   u000D,u
+         std   <u004A
+         ldd   u000F,u
+         std   <u0040
+         ldd   u0009,u
+         std   <u0039
+         ldb   u0002,u
+         sex   
+         std   <u0042
+         ldx   u0003,u
+         lbsr  L333A
+         ldx   u000B,u
+         ldd   <u0044
+         subd  <u004A
+         std   <u000C
+         rts   
+L3B44    oim   #$02,<u0005
+         oim   #$34,<u0040
+         ldb   ,x+
+         clra  
+         pshs  x,a
+         cmpb  #$4D
+         bne   L3BCA
+         leay  ,s
+L3B55    pshs  y
+         ldb   ,x
+         cmpb  #$0E
+         beq   L3B8C
+         jsr   <u0016
+         leax  -$01,x
+         cmpa  #$02
+         beq   L3B6F
+         cmpa  #$04
+         beq   L3B7C
+         ldd   $01,y
+         std   $04,y
+         lda   ,y
+L3B6F    ldb   #$06
+         leau  <L3B44,pcr
+         subb  a,u
+         leau  b,y
+         stu   <u0046
+         bra   L3B90
+L3B7C    ldu   $01,y
+         ldd   <u0048
+         subd  <u004A
+         std   <u003E
+         ldd   <u0048
+         std   <u004A
+         lda   #$04
+         bra   L3B90
+L3B8C    leax  $01,x
+         jsr   <u0016
+L3B90    puls  y
+         inc   ,y
+         cmpa  #$04
+         bcs   L3B9C
+         pshs  u
+         ldu   <u003E
+L3B9C    pshs  u,a
+         ldb   ,x+
+         cmpb  #$4B
+         beq   L3B55
+         leax  $01,x
+         stx   $01,y
+         leax  <L3B44,pcr
+         ldu   <u0046
+         stu   <u0040
+L3BAF    puls  b
+         cmpb  #$04
+         bcs   L3BB9
+         puls  b,a
+         bra   L3BBC
+L3BB9    ldb   b,x
+         clra  
+L3BBC    std   ,--u
+         puls  b,a
+         std   ,--u
+         dec   ,y
+         bne   L3BAF
+         leay  ,u
+         bra   L3BD0
+L3BCA    ldy   <u0046
+         sty   <u0040
+L3BD0    tfr   y,d
+         subd  <u004A
+         lbcs  L32EB
+         std   <u000C
+         puls  pc,u,x,a
+         jsr   <u0016
+         ldy   $01,y
+         pshs  x
+         lbsr  L31FE
+         puls  pc,x
+         lbsr  L3216
+         leax  >L3228,pcr
+         stx   <u000E
+         rts   
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L3C02,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L3C02    sexw  
+         pulu  cc
+         asr   $03,x
+         eora  <u0004
+         ora   >$061B
+         lsl   <u0030
+         rol   <u0022
+         lsl   <u00EA
+L3C12    jsr   <u001B
+         lsl   <u009D
+         bcc   L3C1E
+L3C18    jsr   <u002A
+         aim   #$9D,<u001B
+         orcc  #$12
+         rol   -$0E,x
+         blt   L3C35
+         fcb   $45 E
+         nop   
+         nop   
+         nop   
+         stu   -$0E,x
+         addd  >$1343
+         sync  
+         lbsr  L44B6
+         lsl   <u00EB
+         lsl   <u00F2
+         lsl   <u004E
+         lsl   <u007F
+         ror   <u00E0
+         oim   #$F3,<u0002
+         stu   $06,x
+         addb  #$06
+         cmpb  <u0006
+         stb   <u0007
+         deca  
+         asr   <u008E
+         asr   <u001C
+         asr   <u0022
+         asr   <u0070
+         ror   <u00FE
+         asr   <u0032
+         asr   <u007C
+         asr   <u0010
+         asr   <u0068
+         asr   <u003A
+         asr   <u0082
+         asr   <u000A
+         asr   <u0060
+         asr   <u0042
+         asr   <u0088
+         asr   <u0016
+         asr   <u002A
+         asr   <u0076
+         asr   <u0004
+         oim   #$FA,<u0002
+         ldd   >$0830
+         aim   #$03,<u0002
+         ldb   >$020C
+         lsr   <u0017
+         aim   #$67,<u0005
+         lsl   >$0681
+         ror   <u0081
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+L3C9E    oim   #$CC,<u0001
+         sbcb  $02,x
+         eorb  <u0006
+         adca  >$0812
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00B3
+         neg   <u00B3
+         neg   <u00B3
+         neg   <u00B3
+         oim   #$C8,<u0001
+         ldu   <u0002
+         fcb   $C7 G
+         asr   <u00E2
+         oim   #$DE,<u000A
+         ora   #$0A
+         ora   #$0A
+         cmpx  <u000A
+         cmpx  <u0009
+         cwai  #$09
+         bgt   L3CD8
+         std   $09,x
+         bitb  >$1125
+         jmp   <u004E
+         nop   
+         sbcb  #$09
+         bra   L3CE4
+         nop   
+         tst   <u00CD
+         tst   <u00FA
+         jmp   <u0008
+         inc   <u0072
+L3CE4    inc   <u00B3
+         tst   <u004E
+         tim   #$AF,<u0009
+         neg   <u0008
+         adcb  >$0AF6
+         dec   <u00EA
+         rol   <u0040
+         rol   <u0040
+         lsl   <u004E
+         dec   <u0011
+         rol   <u003B
+         lsl   <u0086
+         lsl   <u004E
+         rol   <u003B
+         dec   <u0050
+         dec   <u0059
+         rol   <u000B
+         dec   <u00C5
+         dec   <u006A
+         ldf   >$1208
+         dec   <u00CA
+         dec   <u00DA
+         dec   <u00D2
+         dec   <u00B4
+         dec   <u00B9
+         sync  
+         suba  #$12
+         ora   $01,x
+         fcb   $52 R
+         oim   #$68,<u0002
+         fcb   $5E ^
+         ror   <u003F
+         asr   <u00A2
+         asr   <u00C1
+L3D2A    ldy   <u0046
+         ldd   <u004A
+         std   <u0048
+         bra   L3D3A
+L3D33    lslb  
+         ldu   <u0010
+         ldd   b,u
+         jsr   d,u
+L3D3A    ldb   ,x+
+         bmi   L3D33
+         clra  
+         lda   ,y
+         rts   
+         bsr   L3D69
+L3D44    pshs  pc,u
+         ldu   <u0012
+         lsla  
+         ldd   a,u
+         leau  d,u
+         stu   $02,s
+         puls  pc,u
+         bsr   L3D61
+         bra   L3D44
+         leas  $02,s
+         lda   #$F2
+         bra   L3D6B
+         leas  $02,s
+         lda   #$F6
+         bra   L3D63
+L3D61    lda   #$89
+L3D63    sta   <u00A3
+         clr   <u003B
+         bra   L3D6F
+L3D69    lda   #$85
+L3D6B    sta   <u00A3
+         sta   <u003B
+L3D6F    ldd   ,x++
+         addd  <u0062
+         std   <u00D2
+         ldu   <u00D2
+         lda   ,u
+         anda  #$E0
+         sta   <u00CF
+         eora  #$80
+         sta   <u00CE
+         lda   ,u
+         anda  #$07
+         ldb   -$03,x
+         subb  <u00A3
+         pshs  b,a
+         lda   ,u
+         anda  #$18
+         lbeq  L3E28
+         ldd   u0001,u
+         addd  <u0066
+         tfr   d,u
+         ldd   ,u
+         std   <u003C
+         lda   $01,s
+         bne   L3DAD
+         lda   #$05
+         sta   ,s
+         ldd   u0002,u
+         std   <u003E
+         clra  
+         clrb  
+         bra   L3E00
+L3DAD    leay  -$06,y
+         clra  
+         clrb  
+         std   $01,y
+         leau  u0004,u
+         bra   L3DBE
+L3DB7    ldd   ,u
+         std   $01,y
+         lbsr  L3EAA
+L3DBE    ldd   $07,y
+         subd  <u0042
+         cmpd  ,u++
+         bcs   L3DCC
+         ldb   #$37
+         lbra  L3C15
+L3DCC    addd  $01,y
+         std   $07,y
+         dec   $01,s
+         bne   L3DB7
+         lda   ,s
+         beq   L3DE8
+         cmpa  #$02
+         bcs   L3DEC
+         beq   L3DF4
+         cmpa  #$04
+         bcs   L3DE8
+         ldd   ,u
+         std   <u003E
+         bra   L3DF7
+L3DE8    ldd   $07,y
+         bra   L3DF0
+L3DEC    ldd   $07,y
+         lslb  
+         rola  
+L3DF0    leay  $0C,y
+         bra   L3E00
+L3DF4    ldd   #$0005
+L3DF7    std   $01,y
+         lbsr  L3EAA
+         ldd   $01,y
+         leay  $06,y
+L3E00    tst   <u00CE
+         bne   L3E1C
+         pshs  b,a
+         ldd   <u003C
+         addd  <u0031
+         cmpd  <u0040
+         bcc   L3E61
+         tfr   d,u
+         puls  b,a
+         cmpd  u0002,u
+         bhi   L3E61
+         addd  ,u
+         bra   L3E5C
+L3E1C    addd  <u003C
+         tst   <u003B
+         bne   L3E5A
+L3E22    addd  $01,y
+         leay  $06,y
+         bra   L3E5C
+L3E28    lda   ,s
+         cmpa  #$04
+         ldd   u0001,u
+         bcs   L3E3A
+         addd  <u0066
+         tfr   d,u
+         ldd   u0002,u
+         std   <u003E
+         ldd   ,u
+L3E3A    tst   <u003B
+         beq   L3E22
+         addd  <u0031
+         tfr   d,u
+         tst   <u00CE
+         bne   L3E5E
+         cmpd  <u0040
+         bcc   L3E61
+         ldd   <u003E
+         cmpd  u0002,u
+         bcs   L3E56
+         ldd   u0002,u
+         std   <u003E
+L3E56    ldu   ,u
+         bra   L3E5E
+L3E5A    addd  <u0031
+L3E5C    tfr   d,u
+L3E5E    clra  
+         puls  pc,b,a
+L3E61    ldb   #$38
+         lbra  L3C15
+         leau  ,x+
+         bra   L3E70
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L3E70    ldb   ,u
+         clra  
+         leay  -$06,y
+         std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         leau  ,x++
+         bra   L3E86
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L3E86    ldd   ,u
+         leay  -$06,y
+         std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         clra  
+         clrb  
+         subd  $01,y
+         std   $01,y
+         rts   
+         ldd   $07,y
+         addd  $01,y
+         leay  $06,y
+         std   $01,y
+         rts   
+         ldd   $07,y
+         subd  $01,y
+         leay  $06,y
+         std   $01,y
+         rts   
+L3EAA    ldd   $07,y
+         beq   L3EE3
+         cmpd  #$0002
+         bne   L3EB8
+         ldd   $01,y
+         bra   L3EC4
+L3EB8    ldd   $01,y
+         beq   L3EC6
+         cmpd  #$0002
+         bne   L3ECA
+         ldd   $07,y
+L3EC4    lslb  
+         rola  
+L3EC6    std   $07,y
+         bra   L3EE3
+L3ECA    lda   $08,y
+         mul   
+         sta   $03,y
+         lda   $08,y
+         stb   $08,y
+         ldb   $01,y
+         mul   
+         addb  $03,y
+         lda   $07,y
+         stb   $07,y
+         ldb   $02,y
+         mul   
+         addb  $07,y
+         stb   $07,y
+L3EE3    leay  $06,y
+         rts   
+L3EE6    clr   ,y
+         ldd   $07,y
+         bpl   L3EF4
+         nega  
+         negb  
+         sbca  #$00
+         std   $07,y
+         com   ,y
+L3EF4    ldd   $01,y
+         bpl   L3F00
+         nega  
+         negb  
+         sbca  #$00
+         std   $01,y
+         com   ,y
+L3F00    cmpd  #$0002
+         rts   
+L3F05    bsr   L3EE6
+         bne   L3F17
+         ldd   $07,y
+         beq   L3F24
+         asra  
+         rorb  
+         std   $07,y
+         ldd   #$0000
+         rolb  
+         bra   L3F4E
+L3F17    ldd   $01,y
+         bne   L3F20
+         ldb   #$2D
+         lbra  L3C15
+L3F20    ldd   $07,y
+         bne   L3F29
+L3F24    leay  $06,y
+         std   $03,y
+         rts   
+L3F29    tsta  
+         bne   L3F34
+         exg   a,b
+         std   $07,y
+         ldb   #$08
+         bra   L3F36
+L3F34    ldb   #$10
+L3F36    stb   $03,y
+         clra  
+         clrb  
+L3F3A    lsl   $08,y
+         rol   $07,y
+         rolb  
+         rola  
+         subd  $01,y
+         bmi   L3F48
+         inc   $08,y
+         bra   L3F4A
+L3F48    addd  $01,y
+L3F4A    dec   $03,y
+         bne   L3F3A
+L3F4E    std   $09,y
+         tst   ,y
+         bpl   L3F62
+         nega  
+         negb  
+         sbca  #$00
+         std   $09,y
+         ldd   $07,y
+         nega  
+         negb  
+         sbca  #$00
+         std   $07,y
+L3F62    leay  $06,y
+         rts   
+         leay  -$06,y
+         ldb   ,x+
+         lda   #$02
+         std   ,y
+         ldd   ,x++
+         std   $02,y
+         ldd   ,x++
+         std   $04,y
+         rts   
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L3F7C    leay  -$06,y
+         lda   #$02
+         ldb   ,u
+         std   ,y
+         ldd   u0001,u
+         std   $02,y
+         ldd   u0003,u
+         std   $04,y
+         rts   
+         lda   $05,y
+         eora  #$01
+         sta   $05,y
+         rts   
+L3F94    ldb   $05,y
+         eorb  #$01
+         stb   $05,y
+L3F9A    pshs  x
+         tst   $02,y
+         beq   L3FB0
+         tst   $08,y
+         bne   L3FB4
+L3FA4    ldd   $01,y
+         std   $07,y
+         ldd   $03,y
+         std   $09,y
+         lda   $05,y
+         sta   $0B,y
+L3FB0    leay  $06,y
+         puls  pc,x
+L3FB4    lda   $07,y
+         suba  $01,y
+         bvc   L3FBE
+         bpl   L3FA4
+         bra   L3FB0
+L3FBE    bmi   L3FC6
+         cmpa  #$1F
+         ble   L3FCE
+         bra   L3FB0
+L3FC6    cmpa  #$E1
+         blt   L3FA4
+         ldb   $01,y
+         stb   $07,y
+L3FCE    ldb   $0B,y
+         andb  #$01
+         stb   ,y
+         eorb  $05,y
+         andb  #$01
+         stb   $01,y
+         ldb   $0B,y
+         andb  #$FE
+         stb   $0B,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         tsta  
+         beq   L401A
+         bpl   L4012
+         nega  
+         leax  $06,y
+         bsr   L406B
+         tst   $01,y
+         beq   L4022
+L3FF4    subd  $04,y
+         exg   d,x
+         sbcb  $03,y
+         sbca  $02,y
+         bcc   L4036
+         coma  
+         comb  
+         exg   d,x
+         coma  
+         comb  
+         addd  #$0001
+         exg   d,x
+         bcc   L400E
+         addd  #$0001
+L400E    dec   ,y
+         bra   L4036
+L4012    leax  ,y
+         bsr   L406B
+         stx   $02,y
+         std   $04,y
+L401A    ldx   $08,y
+         ldd   $0A,y
+         tst   $01,y
+         bne   L3FF4
+L4022    addd  $04,y
+         exg   d,x
+         adcb  $03,y
+         adca  $02,y
+         bcc   L4036
+         rora  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         inc   $07,y
+         exg   d,x
+L4036    tsta  
+         bmi   L4049
+L4039    dec   $07,y
+         lbvs  L40C6
+         exg   d,x
+         lslb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         bpl   L4039
+L4049    exg   d,x
+         addd  #$0001
+         exg   d,x
+         bcc   L405A
+         addd  #$0001
+         bcc   L405A
+         rora  
+         inc   $07,y
+L405A    std   $08,y
+         tfr   x,d
+         andb  #$FE
+         tst   ,y
+         beq   L4065
+         incb  
+L4065    std   $0A,y
+         leay  $06,y
+         puls  pc,x
+L406B    suba  #$10
+         bcs   L4089
+         suba  #$08
+         bcs   L407A
+         pshs  a
+         clra  
+         ldb   $02,x
+         bra   L4080
+L407A    adda  #$08
+         pshs  a
+         ldd   $02,x
+L4080    ldx   #$0000
+         tst   ,s
+         beq   L40B2
+         bra   L40A6
+L4089    adda  #$08
+         bcc   L409C
+         pshs  a
+         clra  
+         ldb   $02,x
+         ldx   $03,x
+         tst   ,s
+         bne   L40A8
+         exg   d,x
+         bra   L40B2
+L409C    adda  #$08
+         pshs  a
+         ldd   $02,x
+         ldx   $04,x
+         bra   L40A8
+L40A6    exg   d,x
+L40A8    lsra  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         dec   ,s
+         bne   L40A6
+L40B2    leas  $01,s
+         rts   
+L40B5    bsr   L40BC
+         lbcs  L3C15
+         rts   
+L40BC    pshs  x
+         lda   $02,y
+         bpl   L40C6
+         lda   $08,y
+         bmi   L40D2
+L40C6    clra  
+         clrb  
+         std   $07,y
+         std   $09,y
+         sta   $0B,y
+         leay  $06,y
+         puls  pc,x
+L40D2    lda   $01,y
+         adda  $07,y
+         bvc   L40DF
+L40D8    bpl   L40C6
+         comb  
+         ldb   #$32
+         puls  pc,x
+L40DF    sta   $07,y
+         ldb   $0B,y
+         eorb  $05,y
+         andb  #$01
+         stb   ,y
+         lda   $0B,y
+         anda  #$FE
+         sta   $0B,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         mul   
+         sta   ,-s
+         clr   ,-s
+         clr   ,-s
+         lda   $0B,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4109
+         inc   ,s
+L4109    lda   $0A,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4116
+         inc   ,s
+L4116    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         lda   $0B,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L412B
+         inc   ,s
+L412B    lda   $0A,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4138
+         inc   ,s
+L4138    lda   $09,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4145
+         inc   ,s
+L4145    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         lda   $0B,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L415A
+         inc   ,s
+L415A    lda   $0A,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4167
+         inc   ,s
+L4167    lda   $09,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4174
+         inc   ,s
+L4174    lda   $08,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4181
+         inc   ,s
+L4181    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         stb   $0B,y
+         lda   $0A,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L4198
+         inc   ,s
+L4198    lda   $09,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L41A5
+         inc   ,s
+L41A5    lda   $08,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L41B2
+         inc   ,s
+L41B2    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         stb   $0A,y
+         lda   $09,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L41C9
+         inc   ,s
+L41C9    lda   $08,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L41D6
+         inc   ,s
+L41D6    lda   $08,y
+         ldb   $02,y
+         mul   
+         addd  ,s
+         bmi   L41EB
+         lsl   $0B,y
+         rol   $0A,y
+         rol   $02,s
+         rolb  
+         rola  
+         dec   $07,y
+         bvs   L4204
+L41EB    std   $08,y
+         lda   $02,s
+         ldb   $0A,y
+         addd  #$0001
+         bcc   L4209
+         inc   $09,y
+         bne   L420B
+         inc   $08,y
+         bne   L420B
+         ror   $08,y
+         inc   $07,y
+         bvc   L420B
+L4204    leas  $03,s
+         lbra  L40D8
+L4209    andb  #$FE
+L420B    orb   ,y
+         std   $0A,y
+         leay  $06,y
+         leas  $03,s
+         clrb  
+         puls  pc,x
+L4216    bsr   L421D
+         lbcs  L3C15
+L421C    rts   
+L421D    comb  
+         ldb   #$2D
+         tst   $02,y
+         beq   L421C
+         pshs  x
+         tst   $08,y
+         lbeq  L40C6
+         lda   $07,y
+         suba  $01,y
+         lbvs  L40D8
+         sta   $07,y
+         lda   #$21
+         ldb   $05,y
+         eorb  $0B,y
+         andb  #$01
+         std   ,y
+         lsr   $02,y
+         ror   $03,y
+         ror   $04,y
+         ror   $05,y
+         ldd   $08,y
+         ldx   $0A,y
+         lsra  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         clr   $0B,y
+         bra   L4258
+L4256    exg   d,x
+L4258    subd  $04,y
+         exg   d,x
+         bcc   L4261
+         subd  #$0001
+L4261    subd  $02,y
+         beq   L4294
+         bmi   L4290
+L4267    orcc  #$01
+L4269    dec   ,y
+         beq   L42E1
+         rol   $0B,y
+         rol   $0A,y
+         rol   $09,y
+         rol   $08,y
+         exg   d,x
+         lslb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         bcc   L4256
+         exg   d,x
+         addd  $04,y
+         exg   d,x
+         bcc   L428A
+         addd  #$0001
+L428A    addd  $02,y
+         beq   L4294
+         bpl   L4267
+L4290    andcc #$FE
+         bra   L4269
+L4294    leax  ,x
+         bne   L4267
+         ldb   ,y
+         decb  
+         subb  #$10
+         blt   L42B6
+         subb  #$08
+         blt   L42AB
+         stb   ,y
+         lda   $0B,y
+         ldb   #$80
+         bra   L42D4
+L42AB    addb  #$08
+         stb   ,y
+         ldd   #$8000
+         ldx   $0A,y
+         bra   L42D6
+L42B6    addb  #$08
+         blt   L42C4
+         stb   ,y
+         ldx   $09,y
+         lda   $0B,y
+         ldb   #$80
+         bra   L42D6
+L42C4    addb  #$07
+         stb   ,y
+         ldx   $08,y
+         ldd   $0A,y
+         orcc  #$01
+L42CE    rolb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+L42D4    exg   d,x
+L42D6    andcc #$FE
+         dec   ,y
+         bpl   L42CE
+         exg   d,x
+         tsta  
+         bra   L42E5
+L42E1    ldx   $0A,y
+         ldd   $08,y
+L42E5    bmi   L42F5
+         exg   d,x
+         rolb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         dec   $07,y
+         lbvs  L40C6
+L42F5    exg   d,x
+         addd  #$0001
+         exg   d,x
+         bcc   L430A
+         addd  #$0001
+         bcc   L430A
+         rora  
+         inc   $07,y
+         lbvs  L40D8
+L430A    std   $08,y
+         tfr   x,d
+         andb  #$FE
+         orb   $01,y
+         std   $0A,y
+         inc   $07,y
+         lbvs  L40D8
+L431A    leay  $06,y
+         clrb  
+         puls  pc,x
+         pshs  x
+         ldd   $07,y
+         beq   L431A
+         ldx   $01,y
+         bne   L4338
+         leay  $06,y
+L432B    ldd   #$0180
+         std   $01,y
+         clr   $03,y
+         clr   $04,y
+         clr   $05,y
+         puls  pc,x
+L4338    std   $01,y
+         stx   $07,y
+         ldd   $09,y
+         ldx   $03,y
+         std   $03,y
+         stx   $09,y
+         lda   $0B,y
+         ldb   $05,y
+         sta   $05,y
+         stb   $0B,y
+         puls  x
+         lbsr  L4794
+         lbsr  L40B5
+         lbra  L484D
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+         ldb   ,u
+         clra  
+         leay  -$06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   $08,y
+         andb  $02,y
+         bra   L4379
+         ldb   $08,y
+         orb   $02,y
+         bra   L4379
+         ldb   $08,y
+         eorb  $02,y
+L4379    leay  $06,y
+         std   $01,y
+         rts   
+         com   $02,y
+         rts   
+L4381    pshs  y,x
+         ldx   $01,y
+         ldy   $07,y
+         sty   <u0048
+L438B    lda   ,y+
+         cmpa  ,x+
+         bne   L4395
+         cmpa  #$FF
+         bne   L438B
+L4395    inca  
+         inc   -$01,x
+         cmpa  -$01,x
+         puls  pc,y,x
+         bsr   L4381
+         bcs   L43EE
+         bra   L43F2
+         bsr   L4381
+         bls   L43EE
+         bra   L43F2
+         bsr   L4381
+         beq   L43EE
+         bra   L43F2
+         bsr   L4381
+         bne   L43EE
+         bra   L43F2
+         bsr   L4381
+         bcc   L43EE
+         bra   L43F2
+         bsr   L4381
+         bhi   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         blt   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         ble   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         bne   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         beq   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         bge   L43EE
+         bra   L43F2
+         ldd   $07,y
+         subd  $01,y
+         ble   L43F2
+L43EE    ldb   #$FF
+         bra   L43F4
+L43F2    ldb   #$00
+L43F4    clra  
+         leay  $06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   $08,y
+         cmpb  $02,y
+         beq   L43EE
+         bra   L43F2
+         ldb   $08,y
+         cmpb  $02,y
+         bne   L43EE
+         bra   L43F2
+         bsr   L4432
+         blt   L43EE
+         bra   L43F2
+         bsr   L4432
+         ble   L43EE
+         bra   L43F2
+         bsr   L4432
+         bne   L43EE
+         bra   L43F2
+         bsr   L4432
+         beq   L43EE
+         bra   L43F2
+         bsr   L4432
+         bge   L43EE
+         bra   L43F2
+         bsr   L4432
+         bgt   L43EE
+         bra   L43F2
+L4432    pshs  y
+         andcc #$F0
+         lda   $08,y
+         bne   L444A
+         lda   $02,y
+         beq   L4448
+L443E    lda   $05,y
+L4440    anda  #$01
+         bne   L4448
+L4444    andcc #$F0
+         orcc  #$08
+L4448    puls  pc,y
+L444A    lda   $02,y
+         bne   L4454
+         lda   $0B,y
+         eora  #$01
+         bra   L4440
+L4454    lda   $0B,y
+         eora  $05,y
+         anda  #$01
+         bne   L443E
+         leau  $06,y
+         lda   $05,y
+         anda  #$01
+         beq   L4466
+         exg   u,y
+L4466    ldd   u0001,u
+         cmpd  $01,y
+         bne   L4448
+         ldd   u0003,u
+         cmpd  $03,y
+         bne   L447A
+         lda   u0005,u
+         cmpa  $05,y
+         beq   L4448
+L447A    bcs   L4444
+         andcc #$F0
+         puls  pc,y
+L4480    clrb  
+         stb   <u003E
+L4483    ldu   <u0048
+         leay  -$06,y
+         stu   $01,y
+         sty   <u0044
+L448C    cmpu  <u0044
+         bcc   L44AB
+         lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L44A4
+         decb  
+         bne   L448C
+         dec   <u003E
+         bpl   L448C
+         lda   #$FF
+         sta   ,u+
+L44A4    stu   <u0048
+         lda   #$04
+         sta   ,y
+         rts   
+L44AB    ldb   #$2F
+         lbra  L3C15
+         ldd   ,x++
+         addd  <u0066
+         tfr   d,u
+L44B6    ldd   ,u
+         addd  <u0031
+         ldu   u0002,u
+         stu   <u003E
+         tfr   d,u
+         pshs  x
+         ldb   <u003F
+         bne   L44C8
+         dec   <u003E
+L44C8    leax  ,u
+         bsr   L4483
+         puls  pc,x
+         ldu   $01,y
+         leay  $06,y
+L44D2    lda   ,u+
+         sta   -u0002,u
+         cmpa  #$FF
+         bne   L44D2
+         leau  -u0001,u
+         stu   <u0048
+         rts   
+         ldd   <u003E
+         leay  -$06,y
+         std   $03,y
+         stu   $01,y
+         lda   #$05
+         sta   ,y
+         rts   
+L44EC    clra  
+         clrb  
+         std   $04,y
+         ldd   $01,y
+         bne   L44FB
+         stb   $03,y
+         lda   #$02
+         sta   ,y
+         rts   
+L44FB    ldu   #$0210
+         tsta  
+         bpl   L4507
+         nega  
+         negb  
+         sbca  #$00
+         inc   $05,y
+L4507    tsta  
+         bne   L450F
+         ldu   #$0208
+         exg   a,b
+L450F    tsta  
+         bmi   L4518
+L4512    leau  -u0001,u
+         lslb  
+         rola  
+         bpl   L4512
+L4518    std   $02,y
+         stu   ,y
+         rts   
+         leay  $06,y
+         bsr   L44EC
+         leay  -$06,y
+         rts   
+L4524    ldb   $01,y
+         bgt   L4537
+         bmi   L4533
+         lda   $02,y
+         bpl   L4533
+         ldd   #$0001
+         bra   L457A
+L4533    clra  
+         clrb  
+         bra   L4582
+L4537    subb  #$10
+         bhi   L4575
+         bne   L454F
+         ldd   $02,y
+         ror   $05,y
+         bcc   L4582
+         cmpd  #$8000
+         bne   L4575
+         tst   $04,y
+         bpl   L4582
+         bra   L4575
+L454F    cmpb  #$F8
+         bhi   L4561
+         pshs  b
+         ldd   $02,y
+         std   $03,y
+         clr   $02,y
+         puls  b
+         addb  #$08
+         beq   L456A
+L4561    lsr   $02,y
+         ror   $03,y
+         ror   $04,y
+         incb  
+         bne   L4561
+L456A    ldd   $02,y
+         tst   $04,y
+         bpl   L457A
+         addd  #$0001
+         bvc   L457A
+L4575    ldb   #$34
+         lbra  L3C15
+L457A    ror   $05,y
+         bcc   L4582
+         nega  
+         negb  
+         sbca  #$00
+L4582    std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         leay  $06,y
+         bsr   L4524
+         leay  -$06,y
+         rts   
+         leay  $0C,y
+         bsr   L4524
+         leay  -$0C,y
+         rts   
+         lda   $05,y
+         anda  #$FE
+         sta   $05,y
+         rts   
+         ldd   $01,y
+         bpl   L45A8
+         nega  
+         negb  
+         sbca  #$00
+         std   $01,y
+L45A8    rts   
+         clra  
+         ldb   [<$01,y]
+         std   $01,y
+         rts   
+         lda   $02,y
+         beq   L45C4
+         lda   $05,y
+         anda  #$01
+         bne   L45C7
+L45BA    ldb   #$01
+         bra   L45C9
+         ldd   $01,y
+         bmi   L45C7
+         bne   L45BA
+L45C4    clrb  
+         bra   L45C9
+L45C7    ldb   #$FF
+L45C9    sex   
+         bra   L45D3
+         ldb   <u0036
+         clr   <u0036
+L45D0    clra  
+         leay  -$06,y
+L45D3    std   $01,y
+         lda   #$01
+         sta   ,y
+L45D9    rts   
+         ldb   <u007D
+         bra   L45D0
+L45DE    ldb   $05,y
+         asrb  
+         lbcs  L4FB0
+         ldb   #$1F
+         stb   <u006E
+         ldd   $01,y
+         beq   L45D9
+         inca  
+         asra  
+         sta   $01,y
+         ldd   $02,y
+         bcs   L45FF
+         lsra  
+         rorb  
+         std   -$04,y
+         ldd   $04,y
+         rora  
+         rorb  
+         bra   L4603
+L45FF    std   -$04,y
+         ldd   $04,y
+L4603    std   -$02,y
+         clra  
+         clrb  
+         std   $02,y
+         std   $04,y
+         std   -$06,y
+         std   -$08,y
+         bra   L4621
+L4611    orcc  #$01
+         rol   $05,y
+         rol   $04,y
+         rol   $03,y
+         rol   $02,y
+         dec   <u006E
+         beq   L4663
+         bsr   L4678
+L4621    ldb   -$04,y
+         subb  #$40
+         stb   -$04,y
+         ldd   -$06,y
+         sbcb  $05,y
+         sbca  $04,y
+         std   -$06,y
+         ldd   -$08,y
+         sbcb  $03,y
+         sbca  $02,y
+         std   -$08,y
+         bpl   L4611
+L4639    andcc #$FE
+         rol   $05,y
+         rol   $04,y
+         rol   $03,y
+         rol   $02,y
+         dec   <u006E
+         beq   L4663
+         bsr   L4678
+         ldb   -$04,y
+         addb  #$C0
+         stb   -$04,y
+         ldd   -$06,y
+         adcb  $05,y
+         adca  $04,y
+         std   -$06,y
+         ldd   -$08,y
+         adcb  $03,y
+         adca  $02,y
+         std   -$08,y
+         bmi   L4639
+         bra   L4611
+L4663    ldd   $02,y
+         bra   L466D
+L4667    dec   $01,y
+         lbvs  L40C6
+L466D    lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L4667
+         std   $02,y
+         rts   
+L4678    bsr   L467A
+L467A    lsl   -$01,y
+         rol   -$02,y
+         rol   -$03,y
+         rol   -$04,y
+         rol   -$05,y
+         rol   -$06,y
+         rol   -$07,y
+         rol   -$08,y
+         rts   
+         lbsr  L3F05
+         ldd   $03,y
+         std   $01,y
+         rts   
+L4693    leau  -$0C,y
+         pshs  y
+L4697    ldd   ,y++
+         std   ,u++
+         cmpu  ,s
+         bne   L4697
+         leas  $02,s
+         leay  -u000C,u
+         lbsr  L4216
+         bsr   L46AF
+         lbsr  L40B5
+         lbra  L3F94
+L46AF    lda   $01,y
+         bgt   L46BC
+         clra  
+         clrb  
+         std   $01,y
+         std   $03,y
+         stb   $05,y
+L46BB    rts   
+L46BC    cmpa  #$1F
+         bcc   L46BB
+         leau  $06,y
+         ldb   -u0001,u
+         andb  #$01
+         pshs  u,b
+         leau  $01,y
+L46CA    leau  u0001,u
+         suba  #$08
+         bcc   L46CA
+         beq   L46DE
+         ldb   #$FF
+L46D4    lslb  
+         inca  
+         bne   L46D4
+         andb  ,u
+         stb   ,u+
+         bra   L46E2
+L46DE    leau  u0001,u
+L46E0    sta   ,u+
+L46E2    cmpu  $01,s
+         bne   L46E0
+         puls  u,b
+         orb   $05,y
+         stb   $05,y
+         rts   
+         leay  -$06,y
+         ldd   $07,y
+         std   $01,y
+         lbra  L3EAA
+         leay  -$06,y
+         ldd   $0A,y
+         std   $04,y
+         ldd   $08,y
+         std   $02,y
+         ldd   $06,y
+         std   ,y
+         lbra  L40B5
+         ldd   <u0080
+         ldu   <u0082
+         pshs  u,b,a
+         ldd   $01,y
+         std   <u0080
+         std   <u0082
+         std   <u0048
+         leay  $06,y
+         ldb   #$09
+         lbsr  L3C18
+         puls  u,b,a
+         std   <u0080
+         stu   <u0082
+         lbcs  L4FB0
+         rts   
+         lbsr  L3D3A
+         leay  -$06,y
+         stu   $01,y
+L472F    lda   #$01
+         sta   ,y
+         leax  $01,x
+         rts   
+L4736    oim   #$02,<u0005
+         oim   #$17,<u00F5
+         std   >$313A
+         cmpa  #$04
+         bcc   L474C
+         leau  >L4736,pcr
+         ldb   a,u
+         clra  
+         bra   L474E
+L474C    ldd   <u003E
+L474E    std   $01,y
+         bra   L472F
+         ldd   #$00FF
+         bra   L475A
+         ldd   #$0000
+L475A    leay  -$06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         com   $01,y
+         com   $02,y
+         rts   
+         ldd   $01,y
+         anda  $07,y
+         andb  $08,y
+         bra   L477E
+         ldd   $01,y
+         eora  $07,y
+         eorb  $08,y
+         bra   L477E
+         ldd   $01,y
+         ora   $07,y
+         orb   $08,y
+L477E    std   $07,y
+         leay  $06,y
+         rts   
+L4783    stu   >$DE5B
+         eorb  <u00AA
+         bsr   L4794
+         leau  >L4783,pcr
+         lbsr  L3F7C
+         lbra  L40B5
+L4794    pshs  x
+         ldb   $05,y
+         asrb  
+         lbcs  L4FB0
+         ldd   $01,y
+         lbeq  L4FB0
+         pshs  a
+         ldb   #$01
+         stb   $01,y
+         leay  <-$1A,y
+         leax  <$1B,y
+         leau  ,y
+         lbsr  L4BB5
+         lbsr  L4CB0
+         clra  
+         clrb  
+         std   <$14,y
+         std   <$16,y
+         sta   <$18,y
+         leax  >L4C68,pcr
+         stx   <$19,y
+         lbsr  L48F2
+         leax  <$14,y
+         leau  <$1B,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         leay  <$1A,y
+         ldb   #$02
+         stb   ,y
+         ldb   $05,y
+         orb   #$01
+         stb   $05,y
+         puls  b
+         bsr   L47F3
+         puls  x
+         lbra  L3F9A
+L47EE    neg   <u00B1
+         aim   #$17,>$F81D
+         bpl   L47F7
+         negb  
+L47F7    anda  #$01
+         pshs  b,a
+         leau  >L47EE,pcr
+         lbsr  L3F7C
+         ldb   $05,y
+         lda   $01,s
+         cmpa  #$01
+         beq   L4845
+         mul   
+         stb   $05,y
+         ldb   $04,y
+         sta   $04,y
+         lda   $01,s
+         mul   
+         addb  $04,y
+         adca  #$00
+         stb   $04,y
+         ldb   $03,y
+         sta   $03,y
+         lda   $01,s
+         mul   
+         addb  $03,y
+         adca  #$00
+         stb   $03,y
+         ldb   $02,y
+         sta   $02,y
+         lda   $01,s
+         mul   
+         addb  $02,y
+         adca  #$00
+         beq   L4841
+L4834    inc   $01,y
+         lsra  
+         rorb  
+         ror   $03,y
+         ror   $04,y
+         ror   $05,y
+         tsta  
+         bne   L4834
+L4841    stb   $02,y
+         ldb   $05,y
+L4845    andb  #$FE
+         orb   ,s
+         stb   $05,y
+         puls  pc,b,a
+L484D    pshs  x
+         ldb   $01,y
+         beq   L4869
+         cmpb  #$07
+         ble   L4860
+         ldb   $05,y
+         rorb  
+         rorb  
+         eorb  #$80
+         lbra  L4905
+L4860    cmpb  #$E4
+         lble  L432B
+         tstb  
+         bpl   L4873
+L4869    clr   ,-s
+         ldb   $05,y
+         andb  #$01
+         beq   L48B6
+         bra   L48A4
+L4873    lda   #$71
+         mul   
+         adda  $01,y
+         ldb   $05,y
+         andb  #$01
+         pshs  b,a
+         eorb  $05,y
+         stb   $05,y
+         ldb   ,s
+L4884    lbsr  L47F3
+         lbsr  L3F94
+         ldb   $01,y
+         ble   L4896
+         addb  ,s
+         stb   ,s
+         ldb   $01,y
+         bra   L4884
+L4896    puls  b,a
+         pshs  a
+         tstb  
+         beq   L48B6
+         nega  
+         sta   ,s
+         orb   $05,y
+         stb   $05,y
+L48A4    leau  >L47EE,pcr
+         lbsr  L3F7C
+         lbsr  L3F9A
+         dec   ,s
+         ldb   $05,y
+         andb  #$01
+         bne   L48A4
+L48B6    leay  <-$1A,y
+         leax  <$1B,y
+         leau  <$14,y
+         lbsr  L4BB5
+         lbsr  L4CB0
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         leax  >L4C4A,pcr
+         stx   <$19,y
+         bsr   L48F2
+         leax  ,y
+         leau  <$1B,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         leay  <$1A,y
+         puls  b
+         addb  $01,y
+         bvs   L4905
+         lda   #$02
+         std   ,y
+         puls  pc,x
+L48F2    lda   #$01
+         sta   <u009A
+         leax  >L4D58,pcr
+         stx   <u0095
+         leax  >$005F,x
+         stx   <u0097
+         lbra  L4B80
+L4905    leay  -$06,y
+         lbpl  L40C6
+         ldb   #$32
+         lbra  L3C15
+         pshs  x
+         bsr   L4946
+         ldd   $01,y
+         lbeq  L4A7A
+         cmpd  #$0180
+         bgt   L492C
+         bne   L492F
+         ldd   $03,y
+         bne   L492C
+         lda   $05,y
+         lbeq  L49F7
+L492C    lbra  L4FB0
+L492F    lbsr  L49B4
+         leay  <-$14,y
+         leax  <$15,y
+         leau  ,y
+         lbsr  L4BB5
+         lbsr  L4CB0
+         leax  <$1B,y
+         lbra  L4A27
+L4946    ldb   $05,y
+         andb  #$01
+         stb   <u006D
+         eorb  $05,y
+         stb   $05,y
+         rts   
+         leau  <L4994,pcr
+         pshs  u,x
+         bsr   L4946
+         ldd   $01,y
+         lbeq  L49F7
+         cmpd  #$0180
+         bgt   L492C
+         bne   L497E
+         ldd   $03,y
+         bne   L492C
+         lda   $05,y
+         bne   L492C
+         lda   <u006D
+         bne   L4977
+         clrb  
+         std   $01,y
+         puls  pc,u,x
+L4977    leay  $06,y
+         puls  u,x
+         lbra  L4AEC
+L497E    bsr   L49B4
+         leay  <-$14,y
+         leax  <$1B,y
+         leau  ,y
+         lbsr  L4BB5
+         lbsr  L4CB0
+         leax  <$15,y
+         lbra  L4A27
+L4994    lda   $05,y
+         bita  #$01
+         beq   L49AE
+         ldu   <u0031
+         tst   u0001,u
+         beq   L49A8
+         leau  <L49AF,pcr
+         lbsr  L3F7C
+         bra   L49AB
+L49A8    lbsr  L4AEC
+L49AB    lbra  L3F9A
+L49AE    rts   
+L49AF    lsl   <u00B4
+         neg   <u0000
+         neg   <u0096
+         tst   -$0C,y
+         aim   #$31,<u00A8
+         ldu   <L49BF,pcr
+         oim   #$ED,<u002C
+         lda   #$80
+         clrb  
+         std   $0E,y
+         clra  
+         std   <$10,y
+         ldd   <$12,y
+         std   ,y
+         std   $06,y
+         ldd   <$14,y
+         std   $02,y
+         std   $08,y
+         ldd   <$16,y
+         std   $04,y
+         std   $0A,y
+         lbsr  L40B5
+         lbsr  L3F94
+         lbsr  L45DE
+         puls  a
+         sta   <u006D
+         rts   
+         pshs  x
+         lbsr  L4946
+         ldb   $01,y
+         cmpb  #$18
+         blt   L4A00
+L49F7    leay  $06,y
+         lbsr  L4AEC
+         dec   $01,y
+         bra   L4A53
+L4A00    leay  <-$1A,y
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         ldb   <$1B,y
+         bra   L4A1D
+L4A12    asr   ,y
+         ror   $01,y
+         ror   $02,y
+         ror   $03,y
+         ror   $04,y
+         decb  
+L4A1D    cmpb  #$02
+         bgt   L4A12
+         stb   <$1B,y
+         leax  <$1B,y
+L4A27    leau  $0A,y
+         lbsr  L4BB5
+         lbsr  L4CB0
+         clra  
+         clrb  
+         std   <$14,y
+         std   <$16,y
+         sta   <$18,y
+         leax  >L4C15,pcr
+         stx   <$19,y
+         lbsr  L4B72
+         leax  <$14,y
+         leau  <$1B,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         leay  <$1A,y
+L4A53    lda   $05,y
+         ora   <u006D
+         sta   $05,y
+         ldu   <u0031
+         tst   u0001,u
+         beq   L4A7A
+         leau  >L4AE7,pcr
+         lbsr  L3F7C
+         lbsr  L40B5
+         bra   L4A7A
+         pshs  x
+         lbsr  L4AF3
+         leax  $0A,y
+         bsr   L4A80
+         lda   $05,y
+L4A76    eora  <u009C
+L4A78    sta   $05,y
+L4A7A    lda   #$02
+         sta   ,y
+         puls  pc,x
+L4A80    leau  <$1B,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         leay  <$14,y
+         leax  >L4D53,pcr
+         leau  $01,y
+         lbsr  L4BB5
+         lbra  L40B5
+         pshs  x
+         bsr   L4AF3
+         leax  ,y
+         bsr   L4A80
+         lda   $05,y
+         eora  <u009B
+         bra   L4A78
+         pshs  x
+         bsr   L4AF3
+         leax  $0A,y
+         leau  <$1B,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         leax  ,y
+         leay  <$14,y
+         leau  $01,y
+         lbsr  L4BB5
+         lbsr  L4CCA
+         ldd   $01,y
+         bne   L4AD4
+         leay  $06,y
+         ldd   #$7FFF
+L4ACB    std   $01,y
+         lda   #$FF
+         std   $03,y
+         deca  
+         bra   L4AD9
+L4AD4    lbsr  L4216
+         lda   $05,y
+L4AD9    eora  <u009B
+         bra   L4A76
+         aim   #$C9,<u000F
+         orb   <u00A2
+L4AE2    addb  >$8EFA
+         puls  x,a
+L4AE7    ror   <u00E5
+         bgt   L4ACB
+         andb  <u0033
+         bsr   L4AEE
+         std   -$0A,x
+         andb  >$89DE
+         leay  $0D,s
+         fcb   $41 A
+         beq   L4B03
+         leau  >L4AE2,pcr
+         lbsr  L3F7C
+         lbsr  L40B5
+L4B03    clr   <u009B
+         ldb   $05,y
+         andb  #$01
+         stb   <u009C
+         eorb  $05,y
+         stb   $05,y
+         bsr   L4AEC
+         inc   $01,y
+         lbsr  L4432
+         blt   L4B1F
+         lbsr  L4693
+         bsr   L4AEC
+         bra   L4B21
+L4B1F    dec   $01,y
+L4B21    lbsr  L4432
+         blt   L4B33
+         inc   <u009B
+         lda   <u009C
+         eora  #$01
+         sta   <u009C
+         lbsr  L3F94
+         bsr   L4AEC
+L4B33    dec   $01,y
+         lbsr  L4432
+         ble   L4B4D
+         lda   <u009B
+         eora  #$01
+         sta   <u009B
+         inc   $01,y
+         lda   $0B,y
+         ora   #$01
+         sta   $0B,y
+         lbsr  L3F9A
+         leay  -$06,y
+L4B4D    leay  <-$14,y
+         leax  >L4C1C,pcr
+         stx   <$19,y
+         leax  <$1B,y
+         leau  <$14,y
+         bsr   L4BB5
+         lbsr  L4CB0
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         std   $0A,y
+         std   $0C,y
+         sta   $0E,y
+L4B72    leax  >L4D12,pcr
+         stx   <u0095
+         leax  >$0041,x
+         stx   <u0097
+         clr   <u009A
+L4B80    ldb   #$25
+         stb   <u0099
+         clr   <u009D
+L4B86    leau  <$1B,y
+         ldx   <u0095
+         cmpx  <u0097
+         bcc   L4B97
+         bsr   L4BB5
+         leax  $05,x
+         stx   <u0095
+         bra   L4B9B
+L4B97    ldb   #$01
+         bsr   L4C07
+L4B9B    leax  ,y
+         leau  $05,y
+         bsr   L4BC7
+         tst   <u009A
+         bne   L4BAB
+         leax  $0A,y
+         leau  $0F,y
+         bsr   L4BC7
+L4BAB    jsr   [<$19,y]
+         inc   <u009D
+         dec   <u0099
+         bne   L4B86
+         rts   
+L4BB5    pshs  y,x
+         lda   ,x
+         ldy   $01,x
+         ldx   $03,x
+         sta   ,u
+         sty   u0001,u
+         stx   u0003,u
+         puls  pc,y,x
+L4BC7    ldb   ,x
+         sex   
+         ldb   <u009D
+         lsrb  
+         lsrb  
+         lsrb  
+         bcc   L4BD2
+         incb  
+L4BD2    pshs  b
+         beq   L4BDB
+L4BD6    sta   ,u+
+         decb  
+         bne   L4BD6
+L4BDB    ldb   #$05
+         subb  ,s+
+         beq   L4BE8
+L4BE1    lda   ,x+
+         sta   ,u+
+         decb  
+         bne   L4BE1
+L4BE8    leau  -u0005,u
+         ldb   <u009D
+         andb  #$07
+         beq   L4C14
+         cmpb  #$04
+         bcs   L4C07
+         subb  #$08
+         lda   ,x
+L4BF8    lsla  
+         rol   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         incb  
+         bne   L4BF8
+         rts   
+L4C07    asr   ,u
+         ror   u0001,u
+         ror   u0002,u
+         ror   u0003,u
+         ror   u0004,u
+         decb  
+         bne   L4C07
+L4C14    rts   
+L4C15    lda   $0A,y
+         eora  ,y
+         coma  
+         bra   L4C1F
+L4C1C    lda   <$14,y
+L4C1F    tsta  
+         bpl   L4C36
+         leax  ,y
+         leau  $0F,y
+         bsr   L4C78
+         leax  $0A,y
+         leau  $05,y
+         bsr   L4C94
+         leax  <$14,y
+         leau  <$1B,y
+         bra   L4C78
+L4C36    leax  ,y
+         leau  $0F,y
+         bsr   L4C94
+         leax  $0A,y
+         leau  $05,y
+         bsr   L4C78
+         leax  <$14,y
+         leau  <$1B,y
+         bra   L4C94
+L4C4A    leax  <$14,y
+         leau  <$1B,y
+         bsr   L4C94
+         bmi   L4C78
+         bne   L4C62
+         ldd   $01,x
+         bne   L4C62
+         ldd   $03,x
+         bne   L4C62
+         ldb   #$01
+         stb   <u0099
+L4C62    leax  ,y
+         leau  $05,y
+         bra   L4C78
+L4C68    leax  ,y
+         leau  $05,y
+         bsr   L4C78
+         cmpa  #$20
+         bcc   L4C94
+         leax  <$14,y
+         leau  <$1B,y
+L4C78    ldd   $03,x
+         addd  u0003,u
+         std   $03,x
+         ldd   $01,x
+         bcc   L4C89
+         addd  #$0001
+         bcc   L4C89
+         inc   ,x
+L4C89    addd  u0001,u
+         std   $01,x
+         lda   ,x
+         adca  ,u
+         sta   ,x
+         rts   
+L4C94    ldd   $03,x
+         subd  u0003,u
+         std   $03,x
+         ldd   $01,x
+         bcc   L4CA5
+         subd  #$0001
+         bcc   L4CA5
+         dec   ,x
+L4CA5    subd  u0001,u
+         std   $01,x
+         lda   ,x
+         sbca  ,u
+         sta   ,x
+         rts   
+L4CB0    ldb   ,u
+         clr   ,u
+         addb  #$04
+         bge   L4CC7
+         negb  
+         lbra  L4C07
+L4CBC    lsl   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         decb  
+L4CC7    bne   L4CBC
+         rts   
+L4CCA    lda   ,u
+         bpl   L4CD7
+         clra  
+         clrb  
+         std   ,u
+         std   u0002,u
+         sta   u0004,u
+         rts   
+L4CD7    ldd   #$2004
+L4CDA    decb  
+         lsl   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         bmi   L4CEE
+         deca  
+         bne   L4CDA
+         clrb  
+         std   ,u
+         rts   
+L4CEE    lda   ,u
+         stb   ,u
+         ldb   u0001,u
+         sta   u0001,u
+         lda   u0002,u
+         stb   u0002,u
+         ldb   u0003,u
+         addd  #$0001
+         andb  #$FE
+         std   u0003,u
+         bcc   L4D11
+         inc   u0002,u
+         bne   L4D11
+         inc   u0001,u
+         bne   L4D11
+         ror   u0001,u
+         inc   ,u
+L4D11    rts   
+L4D12    inc   <u0090
+         std   >$AA22
+         asr   <u006B
+         daa   
+         cmpb  #$58
+         com   <u00EB
+         jmp   [>$2601]
+         std   >$5BA9
+         adda  $00,x
+         stu   >$AADD
+         adca  >$007F
+         bitb  >$56EF
+         neg   <u003F
+         ldu   >$AAB7
+         neg   <u001F
+         stu   >$D556
+         neg   <u000F
+         stu   >$FAAB
+         neg   <u0007
+         stu   >$FF55
+         neg   <u0003
+         stu   >$FFEB
+         neg   <u0001
+         stu   >$FFFD
+         neg   <u0001
+         neg   <u0000
+         neg   <u0000
+         adda  <u0074
+         std   <$0B,y
+         lbsr  L6EDB
+         jmp   >$067C
+         eorb  #$FB
+         leax  $03,x
+         cmpa  <u00FE
+         eorb  >$F301
+         sbcb  -$10,s
+         ror   >$E300
+         eorb  >$5186
+         oim   #$00,<u007E
+         dec   <u006C
+         abx   
+         neg   <u003F
+         cmpa  #$51
+         aim   #$00,-$01,x
+         subb  $0A,y
+         tim   #$00,$0F,x
+         eorb  >$0551
+         neg   <u0007
+         ldu   >$00AA
+         neg   <u0003
+         stu   >$8015
+         neg   <u0001
+         stu   >$E003
+         neg   <u0000
+         stu   >$F800
+         neg   <u0000
+         clr   >$FE00
+         neg   <u0000
+         swi   
+         fcb   $FF 
+         suba  #$00
+         neg   <u001F
+         stu   >$E000
+         neg   <u000F
+         stu   >$F800
+         neg   <u0007
+         stu   >$FE00
+         neg   <u0004
+         neg   <u0000
+L4DB7    jmp   <u0012
+         sexw  
+         sbca  [d,y]
+         nega  
+         ldb   $0D,y
+         pshu  x,dp,cc
+         aim   #u00E9,$0F,u
+         clrb  
+         std   <u004C
+         std   <u004E
+         pshs  a
+         lda   $02,y
+         beq   L4DE5
+         ldb   $05,y
+         bitb  #$01
+         bne   L4DD9
+         com   ,s
+         bra   L4DE5
+L4DD9    addb  #$FE
+         addb  $01,y
+         lda   $04,y
+         std   <u0052
+         ldd   $02,y
+         std   <u0050
+L4DE5    lda   <u0053
+         ldb   <u0057
+         mul   
+         std   <u004E
+         lda   <u0052
+         ldb   <u0057
+         mul   
+         addd  <u004D
+         bcc   L4DF7
+         inc   <u004C
+L4DF7    std   <u004D
+         lda   <u0053
+         ldb   <u0056
+         mul   
+         addd  <u004D
+         bcc   L4E04
+         inc   <u004C
+L4E04    std   <u004D
+         lda   <u0051
+         ldb   <u0057
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0052
+         ldb   <u0056
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0053
+         ldb   <u0055
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0050
+         ldb   <u0057
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0051
+         ldb   <u0056
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0052
+         ldb   <u0055
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0053
+         ldb   <u0054
+         mul   
+         addb  <u004C
+         stb   <u004C
+         ldd   <u004E
+         addd  <u005A
+         std   <u0052
+         ldd   <u004C
+         adcb  <u0059
+         adca  <u0058
+         std   <u0050
+         tst   ,s+
+         bne   L4E81
+         ldd   <u0050
+         std   $02,y
+         ldd   <u0052
+         std   $04,y
+         clr   $01,y
+L4E61    lda   #$1F
+         pshs  a
+         ldd   $02,y
+         bmi   L4E77
+L4E69    dec   ,s
+         beq   L4E77
+         dec   $01,y
+         lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L4E69
+L4E77    std   $02,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         puls  pc,b
+L4E81    ldd   <u0052
+         andb  #$FE
+         std   ,--y
+         ldd   <u0050
+         std   ,--y
+         clra  
+         clrb  
+         std   ,--y
+         bsr   L4E61
+         lbra  L40B5
+         ldd   <u0048
+         ldu   $01,y
+         subd  $01,y
+         subd  #$0001
+         stu   <u0048
+L4E9F    std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         ldd   $01,y
+         std   <u0048
+         ldb   [<$01,y]
+         clra  
+         bra   L4E9F
+         ldd   $01,y
+         tsta  
+         lbne  L4FB0
+         ldu   <u0048
+         stu   $01,y
+         stb   ,u+
+         lbsr  L4FD3
+         sty   <u0044
+         cmpu  <u0044
+         lbcc  L44AB
+         rts   
+L4ECB    ldd   $01,y
+         ble   L4EDD
+         addd  $07,y
+         tfr   d,u
+         cmpd  <u0048
+         bcc   L4EDA
+         bsr   L4F59
+L4EDA    leay  $06,y
+         rts   
+L4EDD    leay  $06,y
+         ldu   $01,y
+         bra   L4F59
+         ldd   $01,y
+         ble   L4EDD
+         pshs  x
+         ldd   <u0048
+         subd  $01,y
+         subd  #$0001
+         cmpd  $07,y
+         bls   L4F03
+         tfr   d,x
+         ldu   $07,y
+L4EF9    lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         bne   L4EF9
+         stu   <u0048
+L4F03    leay  $06,y
+         puls  pc,x
+         ldd   $01,y
+         ble   L4F0F
+         ldd   $07,y
+         bgt   L4F17
+L4F0F    ldd   $01,y
+         leay  $06,y
+         std   $01,y
+         bra   L4ECB
+L4F17    subd  #$0001
+         beq   L4F0F
+         addd  $0D,y
+         cmpd  <u0048
+         bcs   L4F27
+         leay  $06,y
+         bra   L4EDD
+L4F27    pshs  x
+         tfr   d,x
+         ldb   $02,y
+         ldu   $0D,y
+L4F2F    lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L4F42
+         decb  
+         bne   L4F2F
+         dec   $01,y
+         bpl   L4F2F
+         lda   #$FF
+         sta   ,u+
+L4F42    stu   <u0048
+         leay  $0C,y
+         puls  pc,x
+         ldu   <u0048
+         leau  -u0001,u
+L4F4C    cmpu  $01,y
+         beq   L4F59
+         lda   ,-u
+         cmpa  #$20
+         beq   L4F4C
+         leau  u0001,u
+L4F59    lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         rts   
+         pshs  y,x
+         ldd   <u0048
+         subd  $01,y
+         addd  $07,y
+         addd  #$0001
+         ldx   $07,y
+         ldy   $01,y
+         lbsr  L3C12
+         bcc   L4F79
+         clra  
+         clrb  
+         bra   L4F82
+L4F79    tfr   y,d
+         ldx   $02,s
+         subd  $01,x
+         addd  #$0001
+L4F82    puls  y,x
+         std   $07,y
+         lda   #$01
+         sta   $06,y
+         leay  $06,y
+         rts   
+         ldb   #$02
+         bra   L4F93
+         ldb   #$03
+L4F93    lda   <u007D
+         ldu   <u0082
+         pshs  u,x,a
+         lbsr  L3C18
+         bcs   L4FB0
+         ldx   <u0082
+         lda   #$FF
+         sta   ,x
+         ldx   $03,s
+         lbsr  L4480
+         puls  u,x,a
+         sta   <u007D
+         stu   <u0082
+         rts   
+L4FB0    ldb   #$43
+         lbra  L3C15
+         pshs  x
+         ldd   $01,y
+         blt   L4FB0
+         sty   <u0044
+         ldu   <u0048
+         stu   $01,y
+         lda   #$20
+L4FC4    cmpb  <u007D
+         bls   L4FD5
+         sta   ,u+
+         decb  
+         cmpu  <u0044
+         bcs   L4FC4
+         lbra  L44AB
+L4FD3    pshs  x
+L4FD5    lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         lda   #$04
+         sta   ,y
+         puls  pc,x
+         pshs  x
+         leay  -$06,y
+         leax  -$06,y
+         ldu   <u0048
+         stu   $01,y
+         os9   F$Time   
+         bcs   L4FD5
+         bsr   L500A
+         lda   #$2F
+         bsr   L5008
+         lda   #$2F
+         bsr   L5008
+         lda   #$20
+         bsr   L5008
+         lda   #$3A
+         bsr   L5008
+         lda   #$3A
+         bsr   L5008
+         bra   L4FD5
+L5008    sta   ,u+
+L500A    lda   ,x+
+         ldb   #$2F
+L500E    incb  
+         suba  #$0A
+         bcc   L500E
+         stb   ,u+
+         ldb   #$3A
+L5017    decb  
+         inca  
+         bne   L5017
+         stb   ,u+
+         rts   
+         lda   $02,y
+         ldb   #$06
+         os9   I$GetStt 
+         bcc   L502F
+         cmpb  #$D3
+         bne   L502F
+         ldb   #$FF
+         bra   L5031
+L502F    ldb   #$00
+L5031    clra  
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   #$06
+         pshs  y,x,b
+         tfr   dp,a
+         ldb   #$50
+         tfr   d,y
+         leax  >L4DB7,pcr
+L5047    ldd   ,x++
+         std   ,y++
+         dec   ,s
+         bne   L5047
+         leax  >L3C9E,pcr
+         stx   <u0010
+         leax  >L3D1E,pcr
+         stx   <u0012
+         lda   #$7E
+         sta   <u0016
+         leax  >L3D2A,pcr
+         stx   <u0017
+         leax  >L3C1B,pcr
+         stx   <u0019
+         puls  pc,y,x,b
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L507D,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L507D    neg   <u00BA
+         neg   <u0010
+L5081    jsr   <u0027
+         inc   <u009D
+         beq   L5095
+L5087    jsr   <u0027
+         lsl   <u009D
+         beq   L5093
+         pshs  pc,x,b,a
+         lslb  
+         leax  <L509B,pcr
+L5093    ldd   b,x
+L5095    leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L509B    lsr   <u005F
+         eim   #$C3,<u0005
+         addd  #$04B7
+         eim   #$B3,<u0005
+         ora   $04,x
+         deca  
+         aim   #$58,<u0002
+         tim   #$02,-$0B,y
+         aim   #$A2,<u0002
+         clr   >$05F9
+         eim   #$E9,<u0004
+         lsl   >$0A11
+L50BB    eim   #$DA,<u0006
+         ora   >$0562
+         asr   <u0059
+L50C3    ror   <u0002
+         beq   L50D7
+         com   <u00E8
+         neg   <u0064
+         neg   <u000A
+L50CD    lsr   <u00A0
+         neg   <u0000
+         neg   <u0007
+         eorb  #$00
+         neg   <u0000
+L50D7    dec   <u00FA
+         neg   <u0000
+         neg   <u000E
+         cmpx  <u0040
+         neg   <u0000
+         fcb   $11 
+         addd  #$5000
+         neg   <u0014
+         andb  >$2400
+         neg   <u0018
+         eora  <u0096
+         suba  #$00
+         fcb   $1B 
+         ldx   >$BC20
+         neg   <u001E
+         ldu   $0B,s
+         bvc   L50FA
+L50FA    bhi   L5091
+         aim   #$F9,<u0000
+         bcs   L50BB
+         coma  
+         sta   >$4028
+         eorb  [,u]
+         bita  -$10,x
+         bge   L509C
+         anda  #$E7
+         bpl   L513E
+         bita  >$E620
+         andb  >$32E3
+         clrb  
+         adca  -$0E,y
+         pshu  pc,dp,b,a
+         fcb   $1B 
+         adcb  #$C0
+         rts   
+         cmpa  >$A2BC
+         bgt   L515F
+         ldu   <u000B
+         tim   #u003A,$00,u
+         ora   #$C7
+         bls   L5130
+L512C    lsrb  
+         aim   #$75,>$65FF
+L5131    rora  
+         oim   #$6C,-$0D,s
+         eim   #$FF,-$0C,y
+         nega  
+         leay  -$06,y
+         clra  
+         clrb  
+         sta   <u0075
+         sta   <u0076
+         sta   <u0077
+         sta   <u0078
+         sta   <u0079
+         std   $04,y
+         std   $02,y
+         sta   $01,y
+         lbsr  L5379
+         bcc   L515B
+         leax  -$01,x
+         cmpa  #$2C
+         bne   L51C7
+         lbra  L51E4
+L515B    cmpa  #$24
+         lbeq  L529B
+         cmpa  #$2B
+         beq   L516B
+         cmpa  #$2D
+         bne   L516D
+         inc   <u0078
+L516B    lda   ,x+
+L516D    cmpa  #$2E
+         bne   L5179
+         tst   <u0077
+         bne   L51C7
+         inc   <u0077
+         bra   L516B
+L5179    lbsr  L57C7
+         bcs   L51CE
+         pshs  a
+         inc   <u0076
+         ldd   $04,y
+         ldu   $02,y
+         bsr   L51B4
+         std   $04,y
+         stu   $02,y
+         bsr   L51B4
+         bsr   L51B4
+         addd  $04,y
+         exg   d,u
+         adcb  $03,y
+         adca  $02,y
+         bcs   L51C1
+         exg   d,u
+         addb  ,s+
+         adca  #$00
+         bcc   L51A8
+         leau  u0001,u
+         stu   $02,y
+         beq   L51C3
+L51A8    std   $04,y
+         stu   $02,y
+         tst   <u0077
+         beq   L516B
+         inc   <u0079
+         bra   L516B
+L51B4    lslb  
+         rola  
+         exg   d,u
+         rolb  
+         rola  
+         exg   d,u
+         bcs   L51BF
+         rts   
+L51BF    leas  $02,s
+L51C1    leas  $01,s
+L51C3    ldb   #$3C
+         bra   L51C9
+L51C7    ldb   #$3B
+L51C9    stb   <u0036
+         coma  
+         puls  pc,u
+L51CE    eora  #$45
+         anda  #$DF
+         beq   L51F7
+         leax  -$01,x
+         tst   <u0076
+         bne   L51DC
+         bra   L51C7
+L51DC    tst   <u0077
+         bne   L5225
+         ldd   $02,y
+         bne   L5225
+L51E4    ldd   $04,y
+         bmi   L5225
+         tst   <u0078
+         beq   L51F0
+         nega  
+         negb  
+         sbca  #$00
+L51F0    std   $01,y
+L51F2    lda   #$01
+         lbra  L527E
+L51F7    lda   ,x
+         cmpa  #$2B
+         beq   L5203
+         cmpa  #$2D
+         bne   L5205
+         inc   <u0075
+L5203    leax  $01,x
+L5205    lbsr  L57C5
+         bcs   L51C7
+         tfr   a,b
+         lbsr  L57C5
+         bcc   L5215
+         leax  -$01,x
+         bra   L521C
+L5215    pshs  a
+         lda   #$0A
+         mul   
+         addb  ,s+
+L521C    tst   <u0075
+         bne   L5221
+         negb  
+L5221    addb  <u0079
+         stb   <u0079
+L5225    ldb   #$20
+         stb   $01,y
+         ldd   $02,y
+         bne   L5236
+         cmpd  $04,y
+         bne   L5236
+         clr   $01,y
+         bra   L527C
+L5236    tsta  
+         bmi   L5243
+L5239    dec   $01,y
+         lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L5239
+L5243    std   $02,y
+         clr   <u0075
+         ldb   <u0079
+         beq   L5274
+         bpl   L5250
+         negb  
+         inc   <u0075
+L5250    cmpb  #$13
+         bls   L5264
+         subb  #$13
+         pshs  b
+         leau  >L5127,pcr
+         bsr   L5284
+         puls  b
+         lbcs  L51C3
+L5264    decb  
+         lda   #$05
+         mul   
+         leau  >L50CD,pcr
+         leau  b,u
+         bsr   L5284
+         lbcs  L51C3
+L5274    lda   $05,y
+         anda  #$FE
+         ora   <u0078
+         sta   $05,y
+L527C    lda   #$02
+L527E    sta   ,y
+         andcc #$FE
+         puls  pc,u
+L5284    leay  -$06,y
+         ldd   ,u
+         std   $01,y
+         ldd   u0002,u
+         std   $03,y
+         ldb   u0004,u
+         stb   $05,y
+         lda   <u0075
+         lbeq  L5087
+         lbra  L508A
+L529B    lbsr  L57C5
+         bcc   L52B0
+         cmpa  #$61
+         bcs   L52A6
+         suba  #$20
+L52A6    cmpa  #$41
+         bcs   L52C5
+         cmpa  #$46
+         bhi   L52C5
+         suba  #$37
+L52B0    inc   <u0076
+         ldb   #$04
+L52B4    lsl   $02,y
+         rol   $01,y
+         lbcs  L51C3
+         decb  
+         bne   L52B4
+         adda  $02,y
+         sta   $02,y
+         bra   L529B
+L52C5    leax  -$01,x
+         tst   <u0076
+         lbeq  L51C7
+         lbra  L51F2
+         pshs  x
+         ldx   <u0082
+         lbsr  L5137
+         bcc   L52DB
+L52D9    puls  pc,x
+L52DB    cmpa  #$02
+         beq   L52E2
+         lbsr  L5084
+L52E2    lbsr  L536D
+         bcs   L52EE
+         ldb   #$3D
+         stb   <u0036
+         coma  
+         puls  pc,x
+L52EE    stx   <u0082
+         clra  
+         puls  pc,x
+         pshs  x
+         ldx   <u0082
+         lbsr  L5137
+         bcs   L52D9
+         cmpa  #$01
+         bne   L5313
+         tst   $01,y
+         beq   L52E2
+         bra   L5313
+         pshs  x
+         ldx   <u0082
+         lbsr  L5137
+         bcs   L52D9
+         cmpa  #$01
+         beq   L52E2
+L5313    ldb   #$3A
+         stb   <u0036
+         coma  
+         puls  pc,x
+         pshs  u,x
+         leay  -$06,y
+         ldu   <u004A
+         stu   $01,y
+         lda   #$04
+         sta   ,y
+         ldx   <u0082
+L5328    lda   ,x+
+         bsr   L537F
+         bcs   L5332
+         sta   ,u+
+         bra   L5328
+L5332    stx   <u0082
+         lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         clra  
+         puls  pc,u,x
+         pshs  x
+         leay  -$06,y
+         lda   #$03
+         sta   ,y
+         clr   $02,y
+         ldx   <u0082
+         bsr   L5379
+         bcs   L5368
+         cmpa  #$54
+         beq   L5362
+         cmpa  #$74
+         beq   L5362
+         eora  #$46
+         anda  #$DF
+         beq   L5364
+         ldb   #$3A
+         stb   <u0036
+         coma  
+         puls  pc,x
+L5362    com   $02,y
+L5364    bsr   L536D
+         bcc   L5364
+L5368    stx   <u0082
+         clra  
+         puls  pc,x
+L536D    lda   ,x+
+         cmpa  #$20
+         bne   L537F
+         bsr   L5379
+         bcc   L538E
+         bra   L5390
+L5379    lda   ,x+
+         cmpa  #$20
+         beq   L5379
+L537F    cmpa  <u00DD
+         beq   L5390
+         cmpa  #$0D
+         beq   L538E
+         cmpa  #$FF
+         beq   L538E
+         andcc #$FE
+         rts   
+L538E    leax  -$01,x
+L5390    orcc  #$01
+         rts   
+L5393    pshs  u,x
+         clra  
+         sta   $03,y
+         sta   <u0076
+         sta   <u0078
+         lda   #$04
+         sta   <u007E
+         ldd   $01,y
+         bpl   L53AA
+         nega  
+         negb  
+         sbca  #$00
+         inc   <u0078
+L53AA    leau  >L50C3,pcr
+L53AE    clr   <u007A
+         leau  u0002,u
+L53B2    subd  ,u
+         bcs   L53BA
+         inc   <u007A
+         bra   L53B2
+L53BA    addd  ,u
+         tst   <u007A
+         bne   L53C4
+         tst   $03,y
+         beq   L53CF
+L53C4    inc   $03,y
+         pshs  a
+         lda   <u007A
+         lbsr  L54D3
+         puls  a
+L53CF    dec   <u007E
+         bne   L53AE
+         tfr   b,a
+         lbsr  L54D3
+         leay  $06,y
+         puls  pc,u,x
+L53DC    pshs  u,x
+         clr   <u0075
+         clr   <u0078
+         clr   <u007C
+         clr   <u007B
+         clr   <u0079
+         clr   <u0076
+         leau  ,x
+         ldd   #$0A30
+L53EF    stb   ,u+
+         deca  
+         bne   L53EF
+         ldd   $01,y
+         bne   L53FC
+         inca  
+         lbra  L54CD
+L53FC    ldb   $05,y
+         bitb  #$01
+         beq   L5408
+         stb   <u0078
+         andb  #$FE
+         stb   $05,y
+L5408    ldd   $01,y
+         bpl   L540F
+         inc   <u0075
+         nega  
+L540F    cmpa  #$03
+         bls   L5440
+         ldb   #$9A
+         mul   
+         lsra  
+         nop   
+         nop   
+         tfr   a,b
+         tst   <u0075
+         beq   L5420
+         negb  
+L5420    stb   <u0079
+         cmpa  #$13
+         bls   L5433
+         pshs  a
+         leau  >L5127,pcr
+         lbsr  L5284
+         puls  a
+         suba  #$13
+L5433    leau  >L50CD,pcr
+         deca  
+         ldb   #$05
+         mul   
+         leau  d,u
+         lbsr  L5284
+L5440    ldd   $02,y
+         tst   $01,y
+         beq   L546C
+         bpl   L5458
+L5448    lsra  
+         rorb  
+         ror   $04,y
+         ror   $05,y
+         ror   <u007C
+         inc   $01,y
+         bne   L5448
+         std   $02,y
+         bra   L546C
+L5458    lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         rol   <u007B
+         dec   $01,y
+         bne   L5458
+         std   $02,y
+         inc   <u0079
+         lda   <u007B
+         bsr   L54D3
+L546C    ldd   $02,y
+         ldu   $04,y
+L5470    clr   <u007B
+         bsr   L54DA
+         std   $02,y
+         stu   $04,y
+         pshs  a
+         lda   <u007B
+         sta   <u007C
+         puls  a
+         bsr   L54DA
+         bsr   L54DA
+         exg   d,u
+         addd  $04,y
+         exg   d,u
+         adcb  $03,y
+         adca  $02,y
+         pshs  a
+         lda   <u007B
+         adca  <u007C
+         bsr   L54D3
+         lda   <u0076
+         cmpa  #$09
+         puls  a
+         beq   L54AA
+         cmpd  #$0000
+         bne   L5470
+         cmpu  #$0000
+         bne   L5470
+L54AA    sta   ,y
+         lda   <u0076
+         cmpa  #$09
+         bcs   L54CB
+         ldb   ,y
+         bpl   L54CB
+L54B6    lda   ,-x
+         inca  
+         sta   ,x
+         cmpa  #$39
+         bls   L54CB
+         lda   #$30
+         sta   ,x
+         cmpx  ,s
+         bne   L54B6
+         inc   ,x
+         inc   <u0079
+L54CB    lda   #$09
+L54CD    sta   <u0076
+         leay  $06,y
+         puls  pc,u,x
+L54D3    ora   #$30
+         sta   ,x+
+         inc   <u0076
+         rts   
+L54DA    exg   d,u
+         lslb  
+         rola  
+         exg   d,u
+         rolb  
+         rola  
+         rol   <u007B
+         rts   
+         pshs  y,x
+         ldx   <u0080
+         stx   <u0082
+         lda   #$01
+         sta   <u007D
+         ldy   #$0100
+         lda   <u007F
+         os9   I$ReadLn 
+         bra   L550D
+         pshs  y,x
+         ldd   <u0082
+         subd  <u0080
+         beq   L5511
+         tfr   d,y
+         ldx   <u0080
+         stx   <u0082
+         lda   <u007F
+         os9   I$WritLn 
+L550D    bcc   L5511
+         stb   <u0036
+L5511    puls  pc,y,x
+         pshs  u,x
+         lda   ,y
+         cmpa  #$02
+         beq   L551F
+         ldu   $01,y
+         bra   L5526
+L551F    lda   $01,y
+         bgt   L552B
+         ldu   #$0000
+L5526    ldx   #$0000
+         bra   L5547
+L552B    ldx   $02,y
+         ldu   $04,y
+         suba  #$20
+         bcs   L5538
+         ldb   #$4E
+         coma  
+         bra   L554E
+L5538    exg   x,d
+         lsra  
+         rorb  
+         exg   d,u
+         rora  
+         rorb  
+         exg   d,x
+         exg   x,u
+         inca  
+         bne   L5538
+L5547    lda   <u007F
+         os9   I$Seek   
+         bcc   L5550
+L554E    stb   <u0036
+L5550    puls  pc,u,x
+         pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L53DC
+         pshs  x
+         lda   #$09
+         leax  $09,x
+L5561    ldb   ,-x
+         cmpb  #$30
+         bne   L556C
+         deca  
+         cmpa  #$01
+         bne   L5561
+L556C    sta   <u0076
+         puls  x
+         ldb   <u0079
+         bgt   L5595
+         negb  
+         tfr   b,a
+         cmpb  #$09
+         bhi   L55AF
+         addb  <u0076
+         cmpb  #$09
+         bhi   L55AF
+         pshs  a
+         lbsr  L562C
+         clra  
+         bsr   L55FB
+         puls  b
+         tstb  
+         beq   L5591
+         lbsr  L561D
+L5591    lda   <u0076
+         bra   L55A8
+L5595    cmpb  #$09
+         bhi   L55AF
+         lbsr  L562C
+         tfr   b,a
+         bsr   L55EA
+         bsr   L55FB
+         lda   <u0076
+         suba  <u0079
+         bls   L55AA
+L55A8    bsr   L55EA
+L55AA    leas  $0A,s
+         clra  
+         puls  pc,u,x
+L55AF    bsr   L562C
+         lda   #$01
+         bsr   L55EA
+         bsr   L55FB
+         lda   <u0076
+         deca  
+         bne   L55BD
+         inca  
+L55BD    bsr   L55EA
+         bsr   L55C3
+         bra   L55AA
+L55C3    lda   #$45
+         bsr   L55FD
+         lda   <u0079
+         deca  
+         pshs  a
+         bpl   L55D4
+         neg   ,s
+         bsr   L5630
+         bra   L55D6
+L55D4    bsr   L5634
+L55D6    puls  b
+         clra  
+L55D9    subb  #$0A
+         bcs   L55E0
+         inca  
+         bra   L55D9
+L55E0    addb  #$0A
+         bsr   L55E6
+         tfr   b,a
+L55E6    adda  #$30
+         bra   L55FD
+L55EA    tfr   a,b
+         tstb  
+         beq   L55F6
+L55EF    lda   ,x+
+         bsr   L55FD
+         decb  
+         bne   L55EF
+L55F6    rts   
+L55F7    lda   #$20
+         bra   L55FD
+L55FB    lda   #$2E
+L55FD    pshs  u,a
+         leau  <-$40,s
+         cmpu  <u0082
+         bhi   L5613
+         cmpa  #$0D
+         beq   L5613
+         lda   #$50
+         sta   <u0036
+         sta   <u00DE
+         bra   L561B
+L5613    ldu   <u0082
+         sta   ,u+
+         stu   <u0082
+         inc   <u007D
+L561B    puls  pc,u,a
+L561D    lda   #$30
+L561F    tstb  
+         beq   L5627
+L5622    bsr   L55FD
+         decb  
+         bne   L5622
+L5627    rts   
+L5628    tst   <u0078
+         beq   L55F7
+L562C    tst   <u0078
+         beq   L5627
+L5630    lda   #$2D
+         bra   L55FD
+L5634    lda   #$2B
+         bra   L55FD
+L5638    lda   #$20
+         bra   L561F
+L563C    bsr   L55FD
+L563E    lda   ,x+
+         cmpa  #$FF
+         bne   L563C
+         rts   
+         pshs  x
+         ldx   $01,y
+L5649    bsr   L563E
+         clra  
+         puls  pc,x
+         pshs  x
+         leax  >L512C,pcr
+         lda   $02,y
+         bne   L5649
+         leax  >L5131,pcr
+         bra   L5649
+         pshs  u,x
+         leas  -$05,s
+         leax  ,s
+         lbsr  L5393
+         bsr   L562C
+         lda   <u0076
+         leax  ,s
+         lbsr  L55EA
+         leas  $05,s
+         clra  
+         puls  pc,u,x
+         tfr   a,b
+L5677    pshs  u
+         ldu   <u0082
+         subb  <u007D
+         bls   L5681
+         bsr   L5638
+L5681    clra  
+         puls  pc,u
+         lbsr  L55F7
+L5687    lda   <u007D
+         anda  #$0F
+         cmpa  #$01
+         beq   L569B
+         lbsr  L55F7
+         bra   L5687
+         lda   #$0D
+         clr   <u007D
+         lbsr  L55FD
+L569B    clra  
+         rts   
+         pshs  u
+         lda   #$04
+         leau  ,y
+         tst   ,u
+         bne   L56AA
+         asra  
+         leau  u0001,u
+L56AA    sta   <u0086
+         tfr   a,b
+         asrb  
+         lbsr  L5846
+         puls  pc,u
+L56B4    clrb  
+         stb   <u0087
+         cmpa  #$3C
+         beq   L56C7
+         cmpa  #$3E
+         bne   L56C2
+         incb  
+         bra   L56C7
+L56C2    cmpa  #$5E
+         bne   L56CB
+         decb  
+L56C7    stb   <u0087
+         lda   ,x+
+L56CB    cmpa  #$2C
+         beq   L5707
+         cmpa  #$FF
+         bne   L56E5
+         lda   <u0094
+         beq   L56DB
+         leax  -$01,x
+         bra   L56F0
+L56DB    ldx   <u008E
+         tst   <u00DC
+         beq   L56E9
+         clr   <u00DC
+         bra   L5707
+L56E5    cmpa  #$29
+         beq   L56EC
+L56E9    orcc  #$01
+         rts   
+L56EC    lda   <u0094
+         beq   L56E9
+L56F0    dec   <u0092
+         bne   L5705
+         ldu   <u0046
+         pulu  y,a
+         sta   <u0092
+         sty   <u0090
+         stu   <u0046
+         lda   ,x+
+         dec   <u0094
+         bra   L56CB
+L5705    ldx   <u0090
+L5707    stx   <u008C
+         andcc #$FE
+         rts   
+L570C    rola  
+         neg   <u00DF
+         lsla  
+         neg   <u00DC
+         fcb   $52 R
+         neg   <u00CF
+         fcb   $45 E
+         neg   <u00CC
+         comb  
+         neg   <u00D3
+         fcb   $42 B
+         neg   <u00D0
+         lsrb  
+         neg   <u000A
+         lslb  
+         neg   <u0012
+         beq   L5726
+L5726    orcc  #$00
+         bsr   L56CB
+         bcs   L5790
+         ldb   <u0086
+         lbsr  L5677
+         bra   L575B
+         bsr   L56CB
+         bcs   L5790
+         ldb   <u0086
+         lbsr  L5638
+         bra   L575B
+L573E    cmpa  #$FF
+         beq   L5790
+         cmpa  #$27
+         bne   L574E
+         lda   ,x+
+         bsr   L56CB
+         bcs   L5790
+         bra   L575B
+L574E    lbsr  L55FD
+         lda   ,x+
+         bra   L573E
+         pshs  y,x
+         clr   <u00DC
+         inc   <u00DC
+L575B    ldx   <u008C
+         bsr   L57AB
+         bcs   L577A
+         cmpa  #$28
+         bne   L5794
+         lda   <u0092
+         stb   <u0092
+         beq   L5794
+         inc   <u0094
+         ldu   <u0046
+         ldy   <u0090
+         pshu  y,a
+         stu   <u0046
+         stx   <u0090
+         lda   ,x+
+L577A    leay  >L570C,pcr
+         clrb  
+L577F    pshs  a
+         eora  ,y
+         anda  #$DF
+         puls  a
+         beq   L579B
+         leay  $03,y
+         incb  
+         tst   ,y
+         bne   L577F
+L5790    ldb   #$3F
+         bra   L5796
+L5794    ldb   #$3E
+L5796    stb   <u0036
+         coma  
+         puls  pc,y,x
+L579B    stb   <u0085
+         ldd   $01,y
+         leay  d,y
+         bsr   L57AB
+         bcc   L57A7
+         ldb   #$01
+L57A7    stb   <u0086
+         jmp   ,y
+L57AB    bsr   L57C5
+         bcs   L57D4
+         tfr   a,b
+         bsr   L57C5
+         bcs   L57D1
+         bsr   L57D7
+         bsr   L57C5
+         bcs   L57D1
+         bsr   L57D7
+         tsta  
+         beq   L57C1
+         clrb  
+L57C1    lda   ,x+
+         bra   L57D1
+L57C5    lda   ,x+
+L57C7    cmpa  #$30
+         bcs   L57D4
+         cmpa  #$39
+         bhi   L57D4
+         suba  #$30
+L57D1    andcc #$FE
+         rts   
+L57D4    orcc  #$01
+         rts   
+L57D7    pshs  a
+         lda   #$0A
+         mul   
+         addb  ,s+
+         adca  #$00
+         rts   
+         cmpa  #$2E
+         bne   L5790
+         bsr   L57AB
+         bcs   L5790
+         stb   <u0089
+         lbsr  L56B4
+         bcs   L5790
+         puls  y,x
+         inc   <u00DC
+         ldb   <u0085
+         lbeq  L589C
+         decb  
+         beq   L580F
+         decb  
+         lbeq  L5952
+         decb  
+         lbeq  L59F9
+         decb  
+         lbeq  L5907
+         lbra  L58ED
+L580F    jsr   <u0016
+         cmpa  #$04
+         bcs   L5825
+         ldu   $01,y
+         clrb  
+L5818    lda   ,u+
+         cmpa  #$FF
+         beq   L5821
+         incb  
+         bne   L5818
+L5821    ldu   $01,y
+         bra   L5846
+L5825    leau  $01,y
+         lda   ,y
+         cmpa  #$02
+         bne   L5831
+         ldb   #$05
+         bra   L5846
+L5831    cmpa  #$01
+         bne   L583B
+         ldb   #$02
+         cmpb  <u0086
+         bcs   L583F
+L583B    ldb   #$01
+         leau  u0001,u
+L583F    tfr   b,a
+         lsla  
+         cmpa  <u0086
+         bhi   L587C
+L5846    tst   <u0087
+         beq   L5872
+         bmi   L5859
+         pshs  b
+         lslb  
+         pshs  b
+         ldb   <u0086
+         subb  ,s+
+         bcs   L5870
+         bra   L5865
+L5859    pshs  b
+         lslb  
+         pshs  b
+         ldb   <u0086
+         subb  ,s+
+         bcs   L5870
+         asrb  
+L5865    pshs  b
+         lda   <u0086
+         suba  ,s+
+         sta   <u0086
+         lbsr  L5638
+L5870    puls  b
+L5872    lda   ,u
+         lsra  
+         lsra  
+         lsra  
+         lsra  
+         bsr   L588C
+         beq   L588A
+L587C    lda   ,u+
+         bsr   L588C
+         beq   L588A
+         decb  
+         bne   L5872
+         ldb   <u0086
+         lbsr  L5638
+L588A    clra  
+         rts   
+L588C    anda  #$0F
+         cmpa  #$09
+         bls   L5894
+         adda  #$07
+L5894    lbsr  L55E6
+         dec   <u0086
+         rts   
+L589A    coma  
+         rts   
+L589C    jsr   <u0016
+         cmpa  #$02
+         bcs   L58A7
+         bne   L589A
+         lbsr  L5081
+L58A7    pshs  u,x
+         leas  -$05,s
+         leax  ,s
+         lbsr  L5393
+         ldb   <u0086
+         decb  
+         subb  <u0076
+         bpl   L58BE
+         leas  $05,s
+         puls  u,x
+         lbra  L59F0
+L58BE    tst   <u0087
+         beq   L58CC
+         bmi   L58DD
+         lbsr  L5638
+         lbsr  L5628
+         bra   L58E3
+L58CC    lbsr  L5628
+         pshs  b
+         lda   <u0076
+         lbsr  L55EA
+         puls  b
+         lbsr  L5638
+         bra   L58E8
+L58DD    lbsr  L5628
+         lbsr  L561D
+L58E3    lda   <u0076
+         lbsr  L55EA
+L58E8    leas  $05,s
+         clra  
+         puls  pc,u,x
+L58ED    jsr   <u0016
+         cmpa  #$03
+         bne   L589A
+         pshs  u,x
+         leax  >L512C,pcr
+         ldb   #$04
+         lda   $02,y
+         bne   L591B
+         leax  >L5131,pcr
+         ldb   #$05
+         bra   L591B
+L5907    jsr   <u0016
+         cmpa  #$04
+         bne   L589A
+         pshs  u,x
+         ldx   $01,y
+         ldd   <u0048
+         subd  $01,y
+         subd  #$0001
+         tsta  
+         bne   L591F
+L591B    cmpb  <u0086
+         bls   L5921
+L591F    ldb   <u0086
+L5921    tfr   b,a
+         negb  
+         addb  <u0086
+         tst   <u0087
+         beq   L5938
+         bmi   L593C
+         pshs  a
+         lbsr  L5638
+         puls  a
+         lbsr  L55EA
+         bra   L594F
+L5938    pshs  b
+         bra   L5947
+L593C    lsrb  
+         bcc   L5940
+         incb  
+L5940    pshs  b,a
+         lbsr  L5638
+         puls  a
+L5947    lbsr  L55EA
+         puls  b
+         lbsr  L5638
+L594F    clra  
+         puls  pc,u,x
+L5952    jsr   <u0016
+         cmpa  #$02
+         beq   L595F
+         lbcc  L589A
+         lbsr  L5084
+L595F    pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L53DC
+         lda   <u0079
+         cmpa  #$09
+         bgt   L597F
+         lbsr  L5A53
+         lda   <u0086
+         suba  #$02
+         bmi   L597F
+         suba  <u0089
+         bmi   L597F
+         suba  <u008A
+         bpl   L5985
+L597F    leas  $0A,s
+         puls  u,x
+         bra   L59F0
+L5985    sta   <u0088
+         leax  ,s
+         ldb   <u0087
+         beq   L5995
+         bmi   L599B
+         bsr   L59D2
+         bsr   L59A7
+         bra   L59A2
+L5995    bsr   L59A7
+         bsr   L59D2
+         bra   L59A2
+L599B    bsr   L59D2
+         bsr   L59AA
+         lbsr  L5628
+L59A2    leas  $0A,s
+         clra  
+         puls  pc,u,x
+L59A7    lbsr  L5628
+L59AA    lda   <u008A
+         lbsr  L55EA
+         lbsr  L55FB
+         ldb   <u0079
+         bpl   L59E2
+         negb  
+         cmpb  <u0089
+         bls   L59BD
+         ldb   <u0089
+L59BD    pshs  b
+         lbsr  L561D
+         ldb   <u0089
+         subb  ,s+
+         stb   <u0089
+         lda   <u008B
+         cmpa  <u0089
+         bls   L59D0
+         lda   <u0089
+L59D0    bra   L59E4
+L59D2    ldb   <u0088
+         lbra  L5638
+L59D7    lbsr  L5628
+         lda   <u008A
+         lbsr  L55EA
+         lbsr  L55FB
+L59E2    lda   <u008B
+L59E4    lbsr  L55EA
+         ldb   <u0089
+         subb  <u008B
+         ble   L59F8
+         lbra  L561D
+L59F0    ldb   <u0086
+         lda   #$2A
+         lbsr  L561F
+         clra  
+L59F8    rts   
+L59F9    jsr   <u0016
+         cmpa  #$02
+         beq   L5A06
+         lbcc  L589A
+         lbsr  L5084
+L5A06    pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L53DC
+         lda   <u0079
+         pshs  a
+         lda   #$01
+         sta   <u0079
+         bsr   L5A53
+         puls  a
+         ldb   <u0079
+         cmpb  #$01
+         beq   L5A22
+         inca  
+L5A22    ldb   #$01
+         stb   <u008A
+         sta   <u0079
+         lda   <u0086
+         suba  #$06
+         bmi   L5A36
+         suba  <u0089
+         bmi   L5A36
+         suba  <u008A
+         bpl   L5A3C
+L5A36    leas  $0A,s
+         puls  u,x
+         bra   L59F0
+L5A3C    sta   <u0088
+         ldb   <u0087
+         beq   L5A4B
+         bsr   L59D2
+         bsr   L59D7
+         lbsr  L55C3
+         bra   L5A50
+L5A4B    bsr   L59D7
+         lbsr  L55C3
+L5A50    lbra  L59A2
+L5A53    pshs  x
+         lda   <u0079
+         adda  <u0089
+         bne   L5A61
+         lda   ,x
+         cmpa  #$35
+         bcc   L5A78
+L5A61    deca  
+         bmi   L5A94
+         cmpa  #$07
+         bhi   L5A94
+         leax  a,x
+         ldb   $01,x
+         cmpb  #$35
+         bcs   L5A94
+L5A70    inc   ,x
+         ldb   ,x
+         cmpb  #$39
+         bls   L5A94
+L5A78    ldb   #$30
+         stb   ,x
+         leax  -$01,x
+         cmpx  ,s
+         bcc   L5A70
+         ldx   ,s
+         leax  $08,x
+L5A86    lda   ,-x
+         sta   $01,x
+         cmpx  ,s
+         bhi   L5A86
+         lda   #$31
+         sta   ,x
+         inc   <u0079
+L5A94    puls  x
+         lda   <u0079
+         bpl   L5A9B
+         clra  
+L5A9B    sta   <u008A
+         nega  
+         adda  #$09
+         bpl   L5AA3
+         clra  
+L5AA3    cmpa  <u0089
+         bls   L5AA9
+         lda   <u0089
+L5AA9    sta   <u008B
+         rts   
+         ldb   #$30
+         stb   <u0036
+         coma  
+         rts   
+         emod
+eom      equ   *
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/edit.asm	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,2840 @@
+********************************************************************
+* Edit - External editor with same syntax as the builtin of Basic09
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Basic09 from Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/04/06 14:47:31  roug
+* Prego; The basic09 interpreter.
+*
+*
+
+         nam   Edit
+         ttl   External editor with same syntax as the builtin of Basic09
+
+* Disassembled 02/04/06 16:38:45 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   /dd/defs/os9defs
+         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   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   2
+u0014    rmb   2
+u0016    rmb   2
+u0018    rmb   2
+u001A    rmb   2
+u001C    rmb   2
+u001E    rmb   5
+u0023    rmb   1
+u0024    rmb   1
+u0025    rmb   1
+u0026    rmb   1
+u0027    rmb   2
+u0029    rmb   1
+u002A    rmb   1
+u002B    rmb   2
+u002D    rmb   2
+u002F    rmb   1
+u0030    rmb   2
+u0032    rmb   4
+u0036    rmb   1
+u0037    rmb   1
+u0038    rmb   1
+u0039    rmb   1
+u003A    rmb   1
+u003B    rmb   1
+u003C    rmb   1
+u003D    rmb   1
+u003E    rmb   1
+u003F    rmb   1
+u0040    rmb   1
+u0041    rmb   1
+u0042    rmb   1
+u0043    rmb   1
+u0044    rmb   1
+u0045    rmb   2
+u0047    rmb   1
+u0048    rmb   1
+u0049    rmb   2
+u004B    rmb   2
+u004D    rmb   1
+u004E    rmb   1
+u004F    rmb   2
+u0051    rmb   4
+u0055    rmb   2
+u0057    rmb   13
+u0064    rmb   7
+u006B    rmb   2
+u006D    rmb   2
+u006F    rmb   5
+u0074    rmb   7
+u007B    rmb   14
+u0089    rmb   1
+u008A    rmb   4
+u008E    rmb   16
+u009E    rmb   7
+u00A5    rmb   1
+u00A6    rmb   11
+u00B1    rmb   3
+u00B4    rmb   2
+u00B6    rmb   15
+u00C5    rmb   8
+u00CD    rmb   2
+u00CF    rmb   2
+u00D1    rmb   2
+u00D3    rmb   2
+u00D5    rmb   1
+u00D6    rmb   18
+u00E8    rmb   4
+u00EC    rmb   1
+u00ED    rmb   10
+u00F7    rmb   4
+u00FB    rmb   3
+u00FE    rmb   121
+u0177    rmb   255
+u0276    rmb   40
+u029E    rmb   384
+u041E    rmb   2049
+size     equ   .
+name     equ   *
+         fcs   /Edit/
+         fcb   $03 
+         fcb   $28 (
+         fcb   $43 C
+         fcb   $29 )
+         fcb   $31 1
+         fcb   $39 9
+         fcb   $38 8
+         fcb   $31 1
+         fcb   $4D M
+         fcb   $69 i
+         fcb   $63 c
+         fcb   $72 r
+         fcb   $6F o
+         fcb   $77 w
+         fcb   $61 a
+         fcb   $72 r
+         fcb   $65 e
+L0022    fcb   $01 
+         fcb   $16 
+         fcb   $02 
+         fcb   $6C l
+         fcb   $16 
+         fcb   $0C 
+         fcb   $0F 
+         fcb   $16 
+         fcb   $0B 
+         fcb   $C0 @
+         fcb   $16 
+         fcb   $0B 
+         fcb   $B4 4
+         fcb   $16 
+         fcb   $0F 
+         fcb   $DD ]
+         fcb   $16 
+         fcb   $07 
+         fcb   $3B ;
+         fcb   $16 
+         fcb   $06 
+         fcb   $B2 2
+         fcb   $16 
+         fcb   $06 
+         fcb   $DB [
+         fcb   $16 
+         fcb   $07 
+         fcb   $01 
+         fcb   $16 
+         fcb   $04 
+         fcb   $60 `
+         fcb   $16 
+         fcb   $04 
+         fcb   $27 '
+         fcb   $16 
+         fcb   $05 
+         fcb   $8F 
+         fcb   $16 
+         fcb   $05 
+         fcb   $DC \
+         fcb   $16 
+         fcb   $00 
+         fcb   $47 G
+         fcb   $16 
+         fcb   $0B 
+         fcb   $46 F
+         fcb   $16 
+         fcb   $0A 
+         fcb   $AE .
+L0053    fcb   $86 
+         fcb   $00 
+         fcb   $A7 '
+         fcb   $C8 H
+         fcb   $23 #
+         fcb   $3B ;
+L0059    fcb   $9E 
+         fcb   $0E 
+         fcb   $6E n
+         fcb   $84 
+L005D    fcb   $96 
+         fcb   $26 &
+         fcb   $17 
+         fcb   $00 
+         fcb   $A5 %
+         fcb   $86 
+         fcb   $3A :
+         fcb   $17 
+         fcb   $00 
+         fcb   $A0 
+         fcb   $9E 
+         fcb   $12 
+         fcb   $30 0
+         fcb   $89 
+         fcb   $01 
+         fcb   $77 w
+         fcb   $96 
+         fcb   $0A 
+         fcb   $10 
+         fcb   $8E 
+         fcb   $00 
+         fcb   $80 
+         fcb   $10 
+         fcb   $3F ?
+         fcb   $8B 
+         fcb   $24 $
+         fcb   $09 
+         fcb   $C1 A
+         fcb   $D3 S
+         fcb   $10 
+         fcb   $27 '
+         fcb   $10 
+         fcb   $CF O
+         fcb   $16 
+         fcb   $12 
+         fcb   $29 )
+         fcb   $39 9
+L0082    fcb   $34 4
+         fcb   $16 
+         fcb   $17 
+         fcb   $06 
+         fcb   $50 P
+         fcb   $8D 
+         fcb   $02 
+         fcb   $35 5
+         fcb   $96 
+L008B    fcb   $34 4
+         fcb   $06 
+         fcb   $17 
+         fcb   $00 
+         fcb   $A0 
+         fcb   $8D 
+         fcb   $02 
+         fcb   $35 5
+         fcb   $86 
+L0094    fcb   $34 4
+         fcb   $36 6
+         fcb   $10 
+         fcb   $83 
+         fcb   $00 
+         fcb   $00 
+         fcb   $27 '
+         fcb   $2A *
+         fcb   $31 1
+         fcb   $8B 
+         fcb   $34 4
+         fcb   $20 
+         fcb   $0D 
+         fcb   $37 7
+         fcb   $27 '
+         fcb   $08 
+         fcb   $86 
+         fcb   $20 
+         fcb   $8D 
+         fcb   $5F _
+         fcb   $8D 
+         fcb   $5D ]
+         fcb   $8D 
+         fcb   $5B [
+         fcb   $0D 
+         fcb   $23 #
+         fcb   $27 '
+         fcb   $14 
+         fcb   $A6 &
+         fcb   $80 
+         fcb   $8D 
+         fcb   $53 S
+         fcb   $AC ,
+         fcb   $E4 d
+         fcb   $27 '
+         fcb   $06 
+         fcb   $81 
+         fcb   $0D 
+         fcb   $26 &
+         fcb   $F0 p
+         fcb   $20 
+         fcb   $E2 b
+         fcb   $81 
+         fcb   $0D 
+         fcb   $27 '
+         fcb   $02 
+         fcb   $8D 
+         fcb   $3B ;
+         fcb   $35 5
+         fcb   $20 
+         fcb   $35 5
+         fcb   $B6 6
+L00C8    fcb   $34 4
+         fcb   $26 &
+         fcb   $DC \
+         fcb   $02 
+         fcb   $5D ]
+         fcb   $27 '
+         fcb   $11 
+         fcb   $A1 !
+         fcb   $E4 d
+         fcb   $26 &
+         fcb   $0D 
+         fcb   $DC \
+         fcb   $21 !
+         fcb   $C3 C
+         fcb   $00 
+         fcb   $01 
+         fcb   $DD ]
+         fcb   $21 !
+         fcb   $D6 V
+         fcb   $20 
+         fcb   $C9 I
+         fcb   $00 
+         fcb   $D7 W
+         fcb   $20 
+         fcb   $8D 
+         fcb   $4E N
+         fcb   $1F 
+         fcb   $02 
+         fcb   $A6 &
+         fcb   $E4 d
+         fcb   $10 
+         fcb   $3F ?
+         fcb   $8A 
+         fcb   $10 
+         fcb   $25 %
+         fcb   $11 
+         fcb   $BD =
+         fcb   $35 5
+         fcb   $A6 &
+L00EF    fcb   $34 4
+         fcb   $02 
+         fcb   $8D 
+         fcb   $0C 
+         fcb   $96 
+         fcb   $37 7
+         fcb   $0F 
+         fcb   $37 7
+         fcb   $8D 
+         fcb   $92 
+         fcb   $97 
+         fcb   $37 7
+         fcb   $35 5
+         fcb   $82 
+L00FD    fcb   $8D 
+         fcb   $00 
+L00FF    fcb   $34 4
+         fcb   $02 
+         fcb   $86 
+         fcb   $0D 
+         fcb   $8D 
+         fcb   $02 
+         fcb   $35 5
+         fcb   $82 
+L0107    fcb   $34 4
+         fcb   $32 2
+         fcb   $96 
+         fcb   $0B 
+         fcb   $10 
+         fcb   $8E 
+         fcb   $00 
+         fcb   $01 
+         fcb   $1F 
+         fcb   $41 A
+         fcb   $0D 
+         fcb   $41 A
+         fcb   $2B +
+         fcb   $04 
+         fcb   $0D 
+         fcb   $3E >
+         fcb   $27 '
+         fcb   $07 
+         fcb   $10 
+         fcb   $3F ?
+         fcb   $8C 
+         fcb   $10 
+         fcb   $25 %
+         fcb   $11 
+         fcb   $8A 
+         fcb   $35 5
+         fcb   $B2 2
+L0122    fcb   $34 4
+         fcb   $10 
+         fcb   $A6 &
+         fcb   $80 
+         fcb   $81 
+         fcb   $0D 
+         fcb   $10 
+         fcb   $27 '
+         fcb   $11 
+         fcb   $46 F
+         fcb   $8D 
+         fcb   $04 
+         fcb   $35 5
+         fcb   $90 
+L0130    fcb   $86 
+         fcb   $0D 
+L0132    fcb   $34 4
+         fcb   $30 0
+         fcb   $C6 F
+         fcb   $0D 
+         fcb   $10 
+         fcb   $8E 
+         fcb   $00 
+         fcb   $00 
+         fcb   $9C 
+         fcb   $1C 
+         fcb   $27 '
+         fcb   $0E 
+         fcb   $31 1
+         fcb   $21 !
+         fcb   $E1 a
+         fcb   $84 
+         fcb   $27 '
+         fcb   $08 
+         fcb   $A1 !
+         fcb   $80 
+         fcb   $26 &
+         fcb   $F2 r
+         fcb   $31 1
+         fcb   $3F ?
+         fcb   $20 
+         fcb   $06 
+         fcb   $81 
+         fcb   $0D 
+         fcb   $10 
+         fcb   $26 &
+         fcb   $11 
+         fcb   $20 
+         fcb   $1F 
+         fcb   $20 
+         fcb   $10 
+         fcb   $83 
+         fcb   $00 
+         fcb   $00 
+         fcb   $35 5
+         fcb   $B0 0
+L015A    fcb   $34 4
+         fcb   $56 V
+         fcb   $10 
+         fcb   $3F ?
+         fcb   $10 
+         fcb   $35 5
+         fcb   $D6 V
+start    equ   *
+         tfr   u,d
+         std   <u0012
+         sts   <u001E
+         leas  >u041E,u
+         addd  #$041F
+         std   <u0014
+         std   <u0016
+         std   <u001C
+         std   <u001A
+         pshs  u,y,x,b,a
+         leax  >L0022,pcr
+         stx   <u000C
+         leax  >L005D,pcr
+         stx   <u000E
+         leax  >L09DD,pcr
+         stx   <u0010
+         ldd   #$0000
+         std   <u0051
+         std   <u006F
+         std   <u0089
+         leax  >L1482,pcr
+         stx   <u004D
+         leax  >L13CF,pcr
+         stx   <u006B
+         leax  >L0000,pcr
+         stx   <u004F
+         stx   <u006D
+         leax  >L13B0,pcr
+         lda   #$01
+         os9   F$Link   
+         bcs   L01B5
+         jsr   ,y
+L01B5    leax  >L13B6,pcr
+         lda   #$01
+         os9   F$Link   
+         bcs   L01C2
+         jsr   ,y
+L01C2    puls  u,y,x,b,a
+         lda   #$FF
+         sta   <u0041
+         inca  
+         sta   <u0001
+         sta   <u0003
+         sta   <u0005
+         sta   <u0007
+         sta   <u000A
+         sta   <u003D
+         inca  
+         sta   <u000B
+         sta   <u003E
+         sta   <u0040
+         lda   #$45
+         sta   <u0026
+         clr   <u0036
+         lbsr  L0691
+         cmpa  #$0D
+         beq   L0260
+         lbsr  L015A
+         bcs   L0259
+         lda   #$01
+         stx   <u0032
+         os9   I$Open   
+         bcs   L024B
+         ldb   #$01
+         std   <u0000
+         pshs  x
+         leay  >u00F7,u
+         leax  >L139F,pcr
+         ldd   #$0007
+         lbsr  L0B96
+         pshs  y
+         ldx   <u0032
+L020F    cmpx  $02,s
+         beq   L0220
+         lda   ,x+
+         sta   ,y+
+         cmpa  #$2F
+         bne   L020F
+         sty   ,s
+         bra   L020F
+L0220    puls  y
+         leax  >L13A7,pcr
+         ldd   #$0008
+         lbsr  L0B96
+         ldx   <u0032
+         ldd   ,s
+         subd  <u0032
+         sty   <u0032
+         lbsr  L0B96
+         lda   #$0D
+         sta   ,y
+         puls  x
+         lbsr  L0691
+         cmpa  #$0D
+         bne   L024B
+         leax  >u00FE,u
+         inc   <u0036
+L024B    ldd   #$020B
+         os9   I$Create 
+         bcs   L025B
+         ldb   #$02
+         std   <u0002
+         bra   L0260
+L0259    ldb   #$D8
+L025B    orcc  #$01
+         os9   F$Exit   
+L0260    ldy   #$0000
+         sty   <u0024
+         lda   #$42
+         lbsr  L06EA
+         lbsr  L073F
+         lda   #$42
+         ldy   #$0001
+         lbsr  L06EA
+         leax  >L0053,pcr
+         ldu   <u0012
+         os9   F$Icpt   
+         tst   <u0001
+         beq   L028F
+         ldd   <u001E
+         subd  <u001C
+         subd  #$0400
+         lbsr  L0F43
+L028F    lbsr  L00FD
+L0292    ldu   <u0012
+         leas  >u041E,u
+         leax  >u029E,u
+         stx   <u0045
+         stx   <u0047
+         leax  <-$28,x
+         stx   <u0049
+         lda   #$FF
+         sta   <u0041
+         sta   <u0023
+         lda   <u0040
+         sta   <u003E
+         clr   <u003B
+         clr   <u003A
+         clr   <u003C
+         lda   #$01
+         sta   <u0037
+         tst   <u003D
+         beq   L02CB
+         tst   <u0039
+         bne   L02CB
+         leax  >L1398,pcr
+         lbsr  L00EF
+         lbsr  L00FF
+L02CB    clr   <u003D
+         clr   <u0039
+         lbsr  L0059
+         leax  >u0177,u
+         lbsr  L0130
+         leay  d,x
+         sty   <u002B
+         ldy   #$0000
+         sty   <u0029
+         leau  >u0276,u
+         stu   <u0027
+         lda   ,x
+         cmpa  #$20
+         bne   L02F8
+         leax  $01,x
+         lbsr  L0BDE
+         bra   L0292
+L02F8    cmpa  #$0D
+         bne   L0308
+         ldx   <u001A
+         lbsr  L06B2
+         stx   <u001A
+         lbsr  L008B
+         bra   L0292
+L0308    bsr   L0310
+         lbsr  L00FF
+         lbra  L0292
+L0310    ldd   <u0043
+         pshs  b,a
+         ldd   <u0045
+         std   <u0043
+         pshs  b,a
+         lda   <u003E
+         pshs  a
+         clr   <u002F
+         inc   <u0041
+L0322    cmpx  <u002B
+         lbcc  L03B8
+         lbsr  L0691
+         cmpa  #$0D
+         bne   L0335
+         leax  $01,x
+         clr   <u002F
+         bra   L0322
+L0335    ldd   <u0027
+         pshs  b,a
+         stu   <u0027
+         ldd   <u0029
+         pshs  b,a
+         ldd   <u002B
+         pshs  b,a
+         pshs  u
+         lbsr  L0691
+         sta   <u0038
+         lbsr  L03D3
+         pshs  x
+         pshs  u
+         leax  <L039D,pcr
+         pshu  x
+         pshu  u
+         tfr   d,x
+         lda   <u0038
+         tst   <u003B
+         bne   L0372
+         tst   <u003C
+         bne   L0372
+         tst   <u003D
+         beq   L0397
+         tst   <u003A
+         bne   L0372
+         cmpa  #$3A
+         bne   L0372
+         stb   <u003D
+L0372    cmpa  #$5B
+         bne   L0378
+         inc   <u003A
+L0378    cmpa  #$5D
+         bne   L039D
+         dec   <u003A
+         bpl   L039D
+         tst   <u003C
+         bne   L0395
+         lbsr  L0964
+         tst   <u003B
+         bne   L038F
+         clr   <u003D
+         bra   L039D
+L038F    clr   <u003B
+         bra   L039D
+         bra   L039D
+L0395    clr   <u003C
+L0397    lda   <u0041
+         clr   <u0039
+         jsr   ,y
+L039D    puls  u
+         puls  x
+         puls  u
+         puls  b,a
+         std   <u002B
+         puls  b,a
+         std   <u0029
+         puls  b,a
+         std   <u0027
+         tst   <u0023
+         lbeq  L127B
+         lbra  L0322
+L03B8    dec   <u0041
+         puls  a
+         sta   <u003E
+         puls  b,a
+         std   <u0045
+         puls  b,a
+         std   <u0043
+         tst   <u003D
+         beq   L03D2
+         lda   #$01
+         sta   <u003D
+         clr   <u003C
+         clr   <u003B
+L03D2    rts   
+L03D3    lbsr  L0691
+         bsr   L040E
+         beq   L0400
+         leax  $01,x
+         lbsr  L04A1
+         lbeq  L1269
+         pshs  y
+         tfr   d,y
+         ldd   ,y
+         leay  d,y
+         sty   <u002B
+         ldy   ,s
+         lbsr  L04F4
+         tfr   y,d
+         puls  y
+         sty   <u0029
+         leay  >L0310,pcr
+         rts   
+L0400    pshs  b,a
+         lbsr  L04F4
+         ldd   #$0000
+         std   <u0029
+         std   <u002B
+         puls  pc,y
+L040E    ldb   ,x+
+         lbsr  L04D0
+         tfr   a,b
+L0415    ldy   <u0012
+         leay  <$4D,y
+         cmpb  #$2E
+         bne   L0425
+         ldy   <u0012
+         leay  <$6B,y
+L0425    sty   <u004B
+         ldy   ,y
+L042B    lda   ,y
+         bne   L043C
+         ldy   <u004B
+         leay  $04,y
+         sty   <u004B
+         ldy   ,y
+         beq   L045D
+L043C    cmpb  #$2E
+         beq   L0446
+         cmpb  ,y+
+         bne   L044A
+         bra   L044E
+L0446    bsr   L046B
+         beq   L044E
+L044A    bsr   L0462
+         bra   L042B
+L044E    pshs  y
+         bsr   L0462
+         ldd   -$02,y
+         ldy   <u004B
+         addd  $02,y
+         orcc  #$04
+         puls  pc,y
+L045D    leax  -$01,x
+         andcc #$FB
+         rts   
+L0462    lda   ,y+
+         cmpa  #$0D
+         bne   L0462
+         leay  $02,y
+         rts   
+L046B    pshs  y,x,b,a
+         lda   ,y
+         bsr   L04DA
+         bne   L049D
+L0473    sty   $04,s
+         lda   ,y+
+         bsr   L04D0
+         bne   L0491
+         pshs  a
+         lda   ,x+
+         bsr   L04D0
+         cmpa  ,s+
+         beq   L0473
+L0486    sty   $04,s
+         lda   ,y+
+         bsr   L04DA
+         beq   L0486
+         bra   L049D
+L0491    lda   ,x
+         bsr   L04DA
+         beq   L049D
+         stx   $02,s
+         orcc  #$04
+         bra   L049F
+L049D    andcc #$FB
+L049F    puls  pc,y,x,b,a
+L04A1    pshs  u
+         ldu   <u0014
+         lbsr  L0691
+L04A8    lda   u0004,u
+         cmpa  #$4D
+         bne   L04C0
+         leay  u000B,u
+         lbsr  L069A
+         bsr   L046B
+         beq   L04C4
+         ldd   ,u
+         leau  d,u
+         cmpu  <u001C
+         bcs   L04A8
+L04C0    orcc  #$04
+         puls  pc,u
+L04C4    lbsr  L069A
+         lbsr  L0691
+         tfr   u,d
+         andcc #$FB
+         puls  pc,u
+L04D0    cmpa  #$61
+         bcs   L04DA
+         cmpa  #$7A
+         bhi   L04DA
+         suba  #$20
+L04DA    cmpa  #$5F
+         beq   L04EE
+         cmpa  #$41
+         bcs   L04F1
+         cmpa  #$5A
+         bls   L04EE
+         cmpa  #$61
+         bcs   L04F1
+         cmpa  #$7A
+         bhi   L04F1
+L04EE    orcc  #$04
+         rts   
+L04F1    andcc #$FB
+         rts   
+L04F4    clr   <u0042
+         pshs  b,a
+L04F8    lbsr  L069A
+         lbsr  L0691
+         bsr   L052B
+L0500    cmpa  #$0D
+         beq   L0525
+         cmpa  #$4C
+         bne   L050F
+         pshu  x
+         lbsr  L06C2
+         bra   L0525
+L050F    cmpa  #$23
+         bne   L0517
+         bsr   L0540
+         bra   L04F8
+L0517    cmpa  #$24
+         lbne  L1287
+L051D    bsr   L0553
+         cmpa  #$24
+         beq   L051D
+         bra   L0500
+L0525    ldb   <u0042
+         pshu  b
+         puls  pc,b,a
+L052B    lbsr  L069A
+         pshs  a
+         cmpa  #$0D
+         beq   L053E
+         inc   <u0042
+L0536    leay  $01,y
+         lda   ,y
+         bsr   L04DA
+         beq   L0536
+L053E    puls  pc,a
+L0540    pshs  b,a
+         lda   ,x
+         cmpa  #$23
+         bne   L054C
+         bsr   L05B3
+         bra   L0551
+L054C    lbsr  L05D6
+         pshu  b,a
+L0551    puls  pc,b,a
+L0553    pshs  b
+         lbsr  L0691
+         cmpa  #$24
+         bne   L0562
+         bsr   L05B3
+         bsr   L052B
+         bra   L057E
+L0562    pshu  x
+         lbsr  L0122
+         leax  d,x
+         leax  $02,x
+         bsr   L052B
+         cmpa  #$24
+         bne   L057E
+         pshs  x,a
+         lbsr  L0691
+         cmpa  #$24
+         puls  x,a
+         beq   L057E
+         leax  -$01,x
+L057E    puls  pc,b
+L0580    pshs  y,x,a
+         ldy   <u0029
+         ldb   #$00
+L0587    lbsr  L069A
+         cmpa  #$0D
+         beq   L05AB
+         lbsr  L0691
+         addb  #$01
+         lda   ,x+
+         cmpa  ,y+
+         bne   L059E
+         lbsr  L046B
+         beq   L05AD
+L059E    ldx   $01,s
+L05A0    lda   ,y+
+         lbsr  L04DA
+         beq   L05A0
+         leay  -$01,y
+         bra   L0587
+L05AB    ldb   #$00
+L05AD    stx   $01,s
+         cmpb  #$00
+         puls  pc,y,x,a
+L05B3    pshs  y
+         lda   ,x
+         cmpa  #$24
+         beq   L05C1
+         cmpa  #$23
+         lbne  L1287
+L05C1    bsr   L0580
+         lbeq  L1290
+         ldy   <u0027
+         negb  
+         addb  $04,y
+         lslb  
+         leay  $05,y
+         ldd   b,y
+         pshu  b,a
+         puls  pc,y
+L05D6    lda   ,x
+         cmpa  #$2A
+         bne   L05E3
+         leax  $01,x
+         ldd   #$FFFF
+         bra   L05F3
+L05E3    ldd   #$0000
+         bsr   L0600
+         bne   L05EF
+         ldd   #$0001
+         bra   L05F3
+L05EF    bsr   L0600
+         bne   L05EF
+L05F3    rts   
+L05F4    beq   L0606
+         com   <u00E8
+         neg   <u0064
+         neg   <u000A
+         neg   <u0001
+         neg   <u0000
+L0600    pshs  y,b,a
+         ldb   ,x
+         subb  #$30
+L0606    cmpb  #$0A
+         bcc   L0622
+         leax  $01,x
+         lda   #$00
+         ldy   #$000A
+L0612    addd  ,s
+         lbcs  L1266
+         leay  -$01,y
+         bne   L0612
+         std   ,s
+         andcc #$FB
+         puls  pc,y,b,a
+L0622    orcc  #$04
+         puls  pc,y,b,a
+L0626    pshs  y,x,b,a
+         leax  >L05F4,pcr
+         ldy   #$2F20
+L0630    leay  >$0100,y
+         subd  ,x
+         bcc   L0630
+         addd  ,x++
+         pshs  b,a
+         ldd   ,x
+         tfr   y,d
+         beq   L0659
+         ldy   #$2F30
+         cmpd  #$3020
+         bne   L0652
+         ldy   #$2F20
+         tfr   b,a
+L0652    lbsr  L0107
+         puls  b,a
+         bra   L0630
+L0659    lbsr  L0107
+         leas  $02,s
+         puls  pc,y,x,b,a
+L0660    pshs  x,b,a
+         ldx   <u0027
+         ldd   -$02,x
+         puls  pc,x,b,a
+L0668    pshs  x,b,a
+         tst   <u0023
+         beq   L0683
+         ldx   <u0027
+         ldd   -$02,x
+         beq   L0683
+         cmpd  #$FFFF
+         bne   L067E
+         andcc #$FB
+         bra   L0683
+L067E    subd  #$0001
+         std   -$02,x
+L0683    puls  pc,x,b,a
+L0685    pshs  x,b,a
+         ldx   <u0027
+         ldd   -$02,x
+         cmpd  #$FFFF
+         puls  pc,x,b,a
+L0691    lda   ,x+
+         cmpa  #$20
+         beq   L0691
+         leax  -$01,x
+         rts   
+L069A    lda   ,y+
+         cmpa  #$20
+         beq   L069A
+         leay  -$01,y
+         rts   
+L06A3    pshs  b,a
+         ldd   <u001C
+         sty   <u001C
+         bsr   L06B2
+         pshs  cc
+         std   <u001C
+         puls  pc,b,a,cc
+L06B2    pshs  a
+L06B4    cmpx  <u001C
+         beq   L06C0
+         lda   ,x+
+         cmpa  #$0D
+         bne   L06B4
+         andcc #$FB
+L06C0    puls  pc,a
+L06C2    cmpx  <u001C
+         beq   L06CE
+         bsr   L06B2
+         cmpx  <u0018
+         beq   L06CE
+         leax  -$01,x
+L06CE    andcc #$FB
+         rts   
+L06D1    bsr   L06D7
+         beq   L06E9
+         leax  -$01,x
+L06D7    pshs  a
+L06D9    cmpx  <u0018
+         beq   L06E7
+         lda   ,-x
+         cmpa  #$0D
+         bne   L06D9
+         leax  $01,x
+         andcc #$FB
+L06E7    puls  a
+L06E9    rts   
+L06EA    pshs  y,x,b,a
+         ldd   #$000B
+         ldy   <u001C
+         lbsr  L0BC0
+         leax  d,y
+         sty   <u0016
+         stx   <u001C
+         stx   <u0018
+         stx   <u001A
+         std   ,y
+         std   $02,y
+         lda   ,s
+         sta   $04,y
+         ldd   $04,s
+         std   $05,y
+         ldd   <u0000
+         std   <u0004
+         ldd   <u0002
+         std   <u0006
+         puls  pc,y,x,b,a
+L0716    pshs  y,x,b,a
+         stx   <u001A
+         ldd   ,x
+         lbsr  L0BEC
+         nega  
+         negb  
+         sbca  #$00
+         ldx   <u001C
+         leax  d,x
+         stx   <u0016
+         leay  $0B,x
+         sty   <u0018
+         ldd   $02,x
+         leay  d,x
+         sty   <u001A
+         ldd   $07,x
+         std   <u0004
+         ldd   $09,x
+         std   <u0006
+         puls  pc,y,x,b,a
+L073F    pshs  y,x,b,a
+         ldx   <u0016
+         ldd   <u001C
+         subd  <u0016
+         std   ,x
+         ldd   <u001A
+         subd  <u0016
+         std   $02,x
+         ldd   <u0004
+         std   $07,x
+         ldd   <u0006
+         std   $09,x
+         lda   $04,x
+         cmpa  #$42
+         bne   L0763
+         ldd   $05,x
+         std   <u0024
+         bra   L076E
+L0763    ldy   <u0014
+         sty   <u001A
+         ldd   ,x
+         lbsr  L0C38
+L076E    puls  pc,y,x,b,a
+L0770    pshs  b,a
+         ldx   <u0014
+L0774    lda   $04,x
+         cmpa  #$42
+         bne   L0781
+         ldd   ,s
+         cmpd  $05,x
+         beq   L0788
+L0781    lbsr  L089B
+         bcs   L0774
+         andcc #$FB
+L0788    puls  pc,b,a
+         ldx   <u0012
+         ldd   u0005,u
+         addd  #$041F
+         leax  d,x
+         cmpx  <u001C
+         bls   L07A1
+         os9   F$Mem    
+         lbcs  L12AA
+         sty   <u001E
+L07A1    pulu  pc,u
+         lbsr  L0922
+         lbsr  L00FF
+         ldd   <u001C
+         subd  <u0014
+         lbsr  L0626
+         lda   #$20
+         lbsr  L0107
+         lbsr  L0107
+         ldd   <u001E
+         subd  <u0014
+         lbsr  L0626
+         lbsr  L00FF
+         lbra  L0929
+         ldx   <u0016
+         lda   $04,x
+         cmpa  #$42
+         lbne  L127E
+         ldd   <u001C
+         subd  <u0016
+         std   ,x
+         ldd   u0005,u
+         cmpd  $05,x
+         beq   L07F9
+         bsr   L0770
+         beq   L07F3
+         ldd   #$000B
+         lbsr  L0BC0
+         lbsr  L073F
+         lda   #$42
+         ldy   u0005,u
+         lbsr  L06EA
+         pulu  pc,u
+L07F3    lbsr  L073F
+         lbsr  L0716
+L07F9    pulu  pc,u
+         tst   <u0041
+         lbne  L127E
+         ldx   <u0016
+         lda   $04,x
+         cmpa  #$42
+         lbne  L127E
+         ldx   $05,x
+         ldy   <u0024
+         pshs  y,x
+         ldx   u0005,u
+         lbsr  L0691
+         cmpa  $01,x
+         bne   L0825
+         lbsr  L073F
+         lda   #$4D
+         lbsr  L06EA
+         bra   L0836
+L0825    leax  $01,x
+         lbsr  L04A1
+         lbeq  L1278
+         lbsr  L073F
+         tfr   d,x
+         lbsr  L0716
+L0836    puls  y,x
+         stx   <u0024
+         sty   <u002D
+         lda   #$4D
+         sta   <u0026
+         pulu  pc,u
+         lbsr  L0922
+         leax  >L13C6,pcr
+         lbsr  L00EF
+         ldx   <u0014
+L084F    ldb   $04,x
+         cmpb  #$42
+         bne   L0873
+         ldd   $05,x
+         cmpx  <u0016
+         beq   L0863
+         cmpd  <u0024
+         beq   L0866
+         lda   #$20
+         cmpx  #$862A
+         cmpx  #$8624
+         lbsr  L0107
+         ldd   $05,x
+         lbsr  L0626
+         lbsr  L00FF
+L0873    bsr   L089B
+         bcs   L084F
+         leax  >L13BE,pcr
+         lbsr  L00EF
+         ldx   <u0014
+L0880    pshs  x
+         lda   $04,x
+         cmpa  #$4D
+         bne   L0893
+         leax  $0B,x
+         lbsr  L008B
+         puls  x
+         bsr   L089B
+         bcs   L0880
+L0893    lbsr  L00FF
+         lbsr  L0929
+         pulu  pc,u
+L089B    pshs  b,a
+         ldd   ,x
+         leax  d,x
+         cmpx  <u001C
+         puls  pc,b,a
+         tst   <u0041
+         lbne  L127E
+         ldx   u0005,u
+         lda   ,x+
+         pshs  a
+         lbsr  L0691
+         lbsr  L04A1
+         lbeq  L1278
+         tfr   d,y
+         ldd   ,y
+         ldx   <u001A
+         pshs  x,b,a
+         sty   <u001A
+         lbsr  L0BEC
+         ldd   <u0016
+         subd  ,s
+         std   <u0016
+         ldd   <u0018
+         subd  ,s
+         std   <u0018
+         ldd   <u001C
+         subd  ,s
+         std   <u001C
+         puls  x
+         puls  b,a
+         pshs  x
+         subd  ,s++
+         std   <u001A
+         pulu  pc,u
+         pshs  u
+         ldx   u0005,u
+         lbsr  L0130
+         tfr   d,y
+         tfr   x,u
+         leax  <L090C,pcr
+         lda   #$01
+         ldb   #$00
+         os9   F$Fork   
+         lbcs  L12AA
+         os9   F$Wait   
+         tstb  
+         lbne  L12AA
+         puls  u
+         pulu  pc,u
+L090C    comb  
+         lsla  
+         fcb   $45 E
+         inca  
+         inca  
+         tst   <u00EC
+         fcb   $45 E
+         beq   L0918
+         lda   #$01
+L0918    sta   <u003E
+         tst   <u0041
+         bne   L0920
+         sta   <u0040
+L0920    pulu  pc,u
+L0922    lda   <u003E
+         sta   <u003F
+         inc   <u003E
+         rts   
+L0929    lda   <u003F
+         sta   <u003E
+         rts   
+         ldx   ,u
+         ldx   $02,x
+         ldy   <u0045
+         cmpy  <u0049
+         lbls  L128D
+         stx   ,--y
+         ldx   #$0000
+         stx   ,--y
+         sty   <u0045
+         pulu  pc,u
+         ldx   <u0045
+         ldd   ,x
+         addd  #$0001
+         std   ,x
+         cmpd  u0005,u
+         bcs   L095A
+         bsr   L0964
+         pulu  pc,u
+L095A    ldy   $02,x
+         ldx   ,u
+         sty   $02,x
+         pulu  pc,u
+L0964    pshs  x
+         ldx   <u0045
+         leax  $04,x
+         cmpx  <u0043
+         lbhi  L128A
+         stx   <u0045
+         puls  pc,x
+         bsr   L0922
+         ldx   <u001A
+         lbsr  L0660
+         beq   L098A
+L097D    lbsr  L008B
+         lbsr  L06B2
+         beq   L098A
+         lbsr  L0668
+         bne   L097D
+L098A    bsr   L0929
+         pulu  pc,u
+         bsr   L0922
+         lbsr  L0660
+         beq   L09AF
+         ldx   <u001A
+         lbsr  L06D7
+         bra   L09A1
+L099C    lbsr  L06D1
+         beq   L09A6
+L09A1    lbsr  L0668
+         bne   L099C
+L09A6    pshs  x
+         ldd   <u001A
+         subd  ,s++
+         lbsr  L0094
+L09AF    lbsr  L0929
+         pulu  pc,u
+         inc   <u002F
+         ldd   u0005,u
+         std   <u0030
+         bne   L09BE
+         clr   <u002F
+L09BE    pulu  pc,u
+L09C0    lbsr  L06B2
+         beq   L09D4
+L09C5    pshs  b,a
+         ldd   <u0030
+         lbsr  L0B01
+         puls  b,a
+         bne   L09C0
+         cmpx  <u001A
+         bcs   L09C0
+L09D4    rts   
+L09D5    pshs  y,x
+         ldx   <u0010
+         stx   $02,s
+         puls  pc,x
+L09DD    pshs  y,b,a
+         ldx   <u001A
+         lda   ,y+
+         tst   <u002F
+         beq   L09E9
+         bsr   L09C5
+L09E9    pshs  y,x
+L09EB    cmpa  ,y
+         beq   L0A0B
+         ldb   ,y+
+         cmpx  <u001C
+         bcc   L0A05
+         cmpb  ,x+
+         beq   L09EB
+         puls  y,x
+         leax  $01,x
+         tst   <u002F
+         beq   L09E9
+         bsr   L09C0
+         bra   L09E9
+L0A05    orcc  #$01
+         bra   L0A0B
+         andcc #$FE
+L0A0B    puls  y,x
+         puls  pc,y,b,a
+L0A0F    lbsr  L1126
+         tst   <u0041
+         bne   L0A29
+         tst   <u003D
+         beq   L0A29
+         inc   <u0039
+         lbsr  L0922
+         leax  >L1318,pcr
+         lbsr  L00EF
+         lbsr  L0929
+L0A29    pulu  pc,u
+L0A2B    pshs  y,x,b,a
+         lbsr  L0660
+         andcc #$FE
+         beq   L0A4E
+         ldx   u0005,u
+         lbsr  L0122
+L0A39    ldy   u0005,u
+         bsr   L09D5
+         bcs   L0A4E
+         lbsr  L0082
+         leax  d,x
+         stx   <u001A
+         lbsr  L0668
+         bne   L0A39
+         andcc #$FE
+L0A4E    puls  pc,y,x,b,a
+L0A50    pshs  y,x,b,a
+         lbsr  L0660
+         andcc #$FE
+         beq   L0A94
+         ldx   u0005,u
+         lbsr  L0122
+         pshs  b,a
+         ldx   u0007,u
+         lbsr  L0122
+         pshs  b,a
+L0A67    ldd   $02,s
+         subd  ,s
+         lbsr  L0BC0
+         ldy   u0007,u
+         lbsr  L09D5
+         bcs   L0A92
+         stx   <u001A
+         ldd   ,s
+         lbsr  L100F
+         ldx   u0005,u
+         leax  $01,x
+         ldd   $02,s
+         lbsr  L0BE3
+         ldx   <u001A
+         lbsr  L0082
+         lbsr  L0668
+         bne   L0A67
+         andcc #$FE
+L0A92    leas  $04,s
+L0A94    puls  pc,y,x,b,a
+         lbsr  L0A2B
+         lbcs  L0A0F
+         rts   
+         lbsr  L0A50
+         lbcs  L0A0F
+         rts   
+         ldx   <u001A
+         lbsr  L0A50
+         bra   L0AB2
+         ldx   <u001A
+         lbsr  L0A2B
+L0AB2    pshs  cc
+         cmpx  <u001A
+         beq   L0ABF
+         ldx   <u001A
+         lbsr  L06D7
+         stx   <u001A
+L0ABF    puls  cc
+         lbcs  L0A0F
+         rts   
+         lbsr  L0660
+         beq   L0AFF
+         ldx   u0005,u
+         lbsr  L0122
+         leax  $01,x
+L0AD2    pshs  x,b,a
+         ldx   <u001A
+         cmpx  <u001C
+         bcs   L0ADF
+         lbsr  L1126
+         bra   L0AFF
+L0ADF    lbsr  L06C2
+         ldd   ,s
+         lbsr  L0BC0
+         stx   <u001A
+         ldx   $02,s
+         lbsr  L0BE3
+         ldx   <u001A
+         lbsr  L0082
+         lbsr  L06B2
+         stx   <u001A
+         puls  x,b,a
+         lbsr  L0668
+         bne   L0AD2
+L0AFF    pulu  pc,u
+L0B01    pshs  y
+         cmpd  #$0000
+         beq   L0B26
+         tfr   d,y
+         lbsr  L06D7
+L0B0E    lda   ,x
+         cmpa  #$0D
+         beq   L0B20
+         cmpx  <u001C
+         bcc   L0B20
+         leax  $01,x
+         leay  -$01,y
+         bne   L0B0E
+         leax  -$01,x
+L0B20    tfr   y,d
+         cmpd  #$0000
+L0B26    puls  pc,y
+         lbsr  L0660
+         beq   L0B5C
+         ldx   <u001A
+         ldd   u0005,u
+         bsr   L0B01
+         stx   <u001A
+         std   u0005,u
+         beq   L0B5C
+         tfr   d,y
+         lbsr  L0668
+         beq   L0B5C
+         leay  -$01,y
+         lda   #$20
+         ldx   <u001C
+         pshs  x
+L0B48    cmpx  <u001E
+         lbcc  L126F
+         sta   ,x+
+         lbsr  L0668
+         bne   L0B48
+         tfr   y,d
+         puls  x
+         lbsr  L0BE3
+L0B5C    pulu  pc,u
+         lbsr  L0660
+         beq   L0B94
+         ldx   <u001A
+         lbsr  L06D7
+         pshs  x
+         ldx   u0005,u
+         lbsr  L0122
+         leax  $01,x
+         ldy   <u001C
+L0B74    bsr   L0B96
+         lbeq  L126F
+         lbsr  L0668
+         bne   L0B74
+         ldx   <u001C
+         tfr   y,d
+         subd  <u001C
+         bsr   L0BE3
+         lda   #$0D
+         bsr   L0BB5
+         ldx   ,s
+         ldd   <u001A
+         subd  ,s++
+         lbsr  L0094
+L0B94    pulu  pc,u
+L0B96    pshs  u,x,b,a
+         tfr   d,u
+L0B9A    cmpy  <u001E
+         bcc   L0BB1
+         cmpu  #$0000
+         beq   L0BAD
+         lda   ,x+
+         sta   ,y+
+         leau  -u0001,u
+         bra   L0B9A
+L0BAD    andcc #$FB
+         puls  pc,u,x,b,a
+L0BB1    orcc  #$04
+         puls  pc,u,x,b,a
+L0BB5    pshs  x,b,a
+         tfr   s,x
+         ldd   #$0001
+         bsr   L0BE3
+         puls  pc,x,b,a
+L0BC0    pshs  x
+         ldx   <u001C
+         leax  d,x
+         cmpx  <u001E
+         lbcc  L126F
+         puls  pc,x
+L0BCE    pshs  y
+         ldy   <u001C
+         bsr   L0B96
+         lbeq  L126F
+         sty   <u001C
+         puls  pc,y
+L0BDE    lda   #$0D
+         lbsr  L0132
+L0BE3    bsr   L0BCE
+         bsr   L0C38
+         addd  <u001A
+         std   <u001A
+         rts   
+L0BEC    pshs  u,y,x,b,a
+         cmpd  #$0000
+         beq   L0C36
+         std   <u00CF
+         ldd   <u001A
+         subd  <u001C
+         tfr   d,y
+         addd  ,s
+         std   <u00D1
+         ldd   <u001C
+         subd  <u00CF
+         std   <u00D3
+         ldx   <u001C
+         lda   ,-x
+         stx   <u00D5
+         sta   <u00CD
+         bra   L0C22
+L0C10    cmpx  <u00D5
+         bne   L0C1E
+         lda   <u00CD
+         sta   ,u
+         lda   ,-x
+         stx   <u00D5
+         sta   <u00CD
+L0C1E    leay  $01,y
+         beq   L0C36
+L0C22    ldd   <u00D1
+L0C24    tfr   x,u
+         leax  d,x
+         lda   ,x
+         sta   ,u
+         cmpx  <u00D3
+         bcc   L0C10
+         ldd   <u00CF
+         leay  $01,y
+         bne   L0C24
+L0C36    puls  pc,u,y,x,b,a
+L0C38    pshs  b,a
+         ldd   <u001C
+         subd  <u001A
+         subd  ,s
+         bsr   L0BEC
+         puls  pc,b,a
+         lbsr  L0660
+         beq   L0CAF
+         ldd   <u0024
+         lbsr  L0770
+         pshs  x
+         ldd   ,x
+         leay  d,x
+         leax  $0B,x
+         pshs  x
+L0C58    pshs  y
+         cmpx  ,s++
+         bne   L0C63
+         lbsr  L1126
+         bra   L0C6D
+L0C63    lbsr  L06A3
+         beq   L0C6D
+         lbsr  L0668
+         bne   L0C58
+L0C6D    tfr   x,d
+         subd  ,s
+         puls  y,x
+         pshs  b,a
+         lbsr  L0094
+         ldd   $02,y
+         subd  #$000B
+         subd  ,s
+         bcc   L0C84
+         ldd   #$0000
+L0C84    addd  #$000B
+         std   $02,y
+         ldd   ,y
+         subd  ,s
+         std   ,y
+         ldd   <u0016
+         subd  ,s
+         std   <u0016
+         ldd   <u0018
+         subd  ,s
+         std   <u0018
+         puls  b,a
+         ldy   <u001A
+         stx   <u001A
+         ldx   <u001C
+         sty   <u001C
+         lbsr  L0BEC
+         stx   <u001C
+         sty   <u001A
+L0CAF    pulu  pc,u
+         lbsr  L0660
+         beq   L0D0D
+         ldx   <u001C
+         pshs  x
+         ldd   <u0024
+         lbsr  L0770
+         pshs  x
+         ldx   <u001A
+         pshs  x
+L0CC5    cmpx  <u001C
+         bcs   L0CCE
+         lbsr  L1126
+         bra   L0CD8
+L0CCE    lbsr  L06B2
+         beq   L0CD8
+         lbsr  L0668
+         bne   L0CC5
+L0CD8    tfr   x,d
+         subd  ,s
+         puls  y,x
+         lbsr  L0094
+         leax  d,x
+         pshs  x,b,a
+         stx   <u001C
+         ldd   ,y
+         addd  ,s
+         std   ,y
+         ldd   $02,y
+         leax  d,y
+         stx   <u001A
+         addd  ,s
+         std   $02,y
+         ldd   <u0016
+         addd  ,s
+         std   <u0016
+         ldd   <u0018
+         addd  ,s
+         std   <u0018
+         puls  y,x,b,a
+         lbsr  L0C38
+         stx   <u001A
+         sty   <u001C
+L0D0D    pulu  pc,u
+         tst   <u0005
+         beq   L0D4D
+         lbsr  L0660
+         beq   L0D7A
+         ldx   <u001C
+L0D1A    leay  >$0080,x
+         cmpy  <u001E
+         bls   L0D28
+         bsr   L0D68
+         lbra  L126F
+L0D28    lda   <u0004
+         ldy   #$0080
+         os9   I$ReadLn 
+         bcc   L0D5F
+         pshs  b
+         bsr   L0D68
+         puls  b
+         cmpb  #$D3
+         lbne  L12AA
+         ldd   <u0004
+         cmpd  <u0000
+         beq   L0D4D
+         os9   I$Close  
+         lbcs  L12AA
+L0D4D    clr   <u0005
+         lbsr  L1126
+         tst   <u0041
+         bne   L0D5D
+         leax  >L138A,pcr
+         lbsr  L00EF
+L0D5D    bra   L0D7A
+L0D5F    tfr   y,d
+         leax  d,x
+         lbsr  L0668
+         bne   L0D1A
+L0D68    tfr   x,d
+         subd  <u001C
+         ldx   <u001A
+         pshs  x,b,a
+         ldx   <u001C
+         lbsr  L0BE3
+         puls  x,b,a
+         lbsr  L0094
+L0D7A    rts   
+         tst   <u0007
+         lbeq  L1275
+         lbsr  L0660
+         beq   L0DB5
+         ldy   <u001A
+L0D89    tfr   y,x
+         lbsr  L0130
+         bne   L0D9D
+         bsr   L0DA9
+         lbsr  L1126
+         leax  >L137C,pcr
+         lbsr  L00EF
+         rts   
+L0D9D    leay  d,x
+         lda   <u0006
+         lbsr  L00C8
+         lbsr  L0668
+         bne   L0D89
+L0DA9    ldx   <u001A
+         tfr   y,d
+         subd  <u001A
+         lbsr  L0094
+         lbsr  L100F
+L0DB5    rts   
+         ldd   <u0004
+         cmpd  <u0000
+         beq   L0DC9
+         tstb  
+         beq   L0DC9
+         os9   I$Close  
+         lbcs  L12AA
+         clr   <u0005
+L0DC9    ldx   u0005,u
+         ldb   ,x+
+         cmpb  ,x
+         bne   L0DD7
+         ldd   <u0000
+         std   <u0004
+         pulu  pc,u
+L0DD7    lbsr  L0EC6
+         lbne  L12A8
+         lda   #$01
+         os9   I$Open   
+         lbcs  L12AA
+         ldb   #$01
+         std   <u0004
+         pulu  pc,u
+         ldd   <u0006
+         cmpd  <u0002
+         beq   L0E00
+         tstb  
+         beq   L0E00
+         os9   I$Close  
+         lbcs  L12AA
+         clr   <u0007
+L0E00    ldx   u0005,u
+         ldb   ,x+
+         cmpb  ,x
+         bne   L0E0E
+         ldd   <u0002
+         std   <u0006
+         pulu  pc,u
+L0E0E    lbsr  L0EC6
+         lbne  L12A8
+         ldd   #$021B
+         os9   I$Create 
+         lbcs  L12AA
+         ldb   #$01
+         std   <u0006
+         pulu  pc,u
+         ldx   u0005,u
+         ldb   ,x+
+         lbsr  L0EC6
+         lbne  L12A8
+         lda   #$01
+         os9   I$Open   
+         lbcs  L12AA
+         sta   <u0008
+L0E3B    ldx   <u001C
+         ldy   #$000B
+         bsr   L0EB7
+         lda   <u0008
+         os9   I$Read   
+         bcs   L0E6E
+         lda   $04,x
+         cmpa  #$4D
+         beq   L0E58
+         ldd   $05,x
+         beq   L0E58
+         ldb   #$D3
+         bra   L0E6E
+L0E58    clr   $08,x
+         clr   $0A,x
+         ldd   ,x
+         subd  #$000B
+         tfr   d,y
+         leax  $0B,x
+         bsr   L0EB7
+         lda   <u0008
+         os9   I$Read   
+         bcc   L0E7F
+L0E6E    pshs  b
+         lda   <u0008
+         os9   I$Close  
+         puls  b
+         cmpb  #$D3
+         lbne  L12AA
+         pulu  pc,u
+L0E7F    lbsr  L0691
+         pshs  x
+         lbsr  L04A1
+         puls  x
+         bne   L0E3B
+         lbsr  L008B
+         ldx   <u001C
+         ldd   ,x
+         ldy   <u001A
+         leax  d,x
+         stx   <u001C
+         pshs  y,b,a
+         ldx   <u0014
+         stx   <u001A
+         lbsr  L0C38
+         ldd   <u0016
+         addd  ,s
+         std   <u0016
+         ldd   <u0018
+         addd  ,s
+         std   <u0018
+         puls  y,b,a
+         leay  d,y
+         sty   <u001A
+         bra   L0E3B
+L0EB7    pshs  y,b,a
+         tfr   y,d
+         leay  d,x
+         cmpy  <u001E
+         lbcc  L126F
+         puls  pc,y,b,a
+L0EC6    lbsr  L0691
+         pshs  y,x
+         leay  ,x
+L0ECD    cmpb  ,y+
+         bne   L0ECD
+         pshs  y
+         lbsr  L015A
+         bcs   L0EE1
+         cmpy  ,s++
+         bcc   L0EE1
+         orcc  #$04
+         puls  pc,y,x
+L0EE1    andcc #$FB
+         puls  pc,y,x
+         ldx   #$FFFF
+         pshs  x
+         ldx   u0007,u
+         leax  $01,x
+         lbsr  L0691
+L0EF1    lbsr  L04A1
+         lbeq  L1278
+         pshs  b,a
+         lbsr  L0691
+         ldy   u0007,u
+         cmpa  ,y
+         bne   L0EF1
+         ldx   u0005,u
+         ldb   ,x+
+         bsr   L0EC6
+         lbne  L12A8
+         ldd   #$021B
+         os9   I$Create 
+         lbcs  L12AA
+         sta   <u0008
+L0F1A    puls  x
+         cmpx  #$FFFF
+         beq   L0F3C
+         ldd   #$0000
+         std   $05,x
+         ldy   ,x
+         lda   <u0008
+         os9   I$Write  
+         bcc   L0F1A
+         pshs  b
+         lda   <u0008
+         os9   I$Close  
+         puls  b
+         lbra  L12AA
+L0F3C    lda   <u0008
+         os9   I$Close  
+         pulu  pc,u
+L0F43    tst   <u0001
+         beq   L0F8E
+         ldx   <u001C
+         leay  d,x
+         leay  >$0080,y
+         cmpy  <u001E
+         bcs   L0F5D
+         cmpd  #$0080
+         bcs   L0F8E
+         subd  #$0080
+L0F5D    tfr   d,y
+         lda   <u0000
+         os9   I$Read   
+         bcs   L0F77
+         tfr   y,d
+         leax  d,x
+         stx   <u001C
+         ldy   #$0080
+         lda   <u0000
+         os9   I$ReadLn 
+         bcc   L0F88
+L0F77    cmpb  #$D3
+         lbne  L12AA
+         leax  >L138A,pcr
+         lbsr  L00EF
+         clr   <u0005
+         bra   L0F8E
+L0F88    tfr   y,d
+         leax  d,x
+         stx   <u001C
+L0F8E    rts   
+         tst   <u0003
+         beq   L0FA8
+         ldx   <u0018
+         ldd   <u001A
+         subd  <u0018
+         tfr   d,y
+         lda   <u0002
+         os9   I$Write  
+         stx   <u001A
+         tfr   y,d
+         bsr   L100F
+         bsr   L0F43
+L0FA8    pulu  pc,u
+         lbsr  L0660
+         beq   L0FD4
+         ldx   <u001A
+         lbsr  L06D7
+         stx   <u001A
+         pshs  x
+L0FB8    cmpx  <u001C
+         bne   L0FC1
+         lbsr  L1126
+         bra   L0FCE
+L0FC1    lbsr  L008B
+         lbsr  L06B2
+         beq   L0FCE
+         lbsr  L0668
+         bne   L0FB8
+L0FCE    tfr   x,d
+         subd  ,s++
+         bsr   L100F
+L0FD4    pulu  pc,u
+         lbsr  L0660
+         beq   L0FFA
+         ldx   <u001A
+         pshs  x
+L0FDF    cmpx  <u001C
+         bne   L0FE8
+         lbsr  L1126
+         bra   L0FEF
+L0FE8    leax  $01,x
+         lbsr  L0668
+         bne   L0FDF
+L0FEF    tfr   x,d
+         subd  ,s
+         puls  x
+         lbsr  L0094
+         bsr   L100F
+L0FFA    pulu  pc,u
+         ldx   <u001A
+         lbsr  L0130
+         beq   L100D
+         subd  #$0001
+         beq   L100D
+         bsr   L100F
+         lbsr  L0082
+L100D    pulu  pc,u
+L100F    pshs  b,a
+         lbsr  L0BEC
+         ldd   <u001C
+         subd  ,s
+         std   <u001C
+         puls  pc,b,a
+         lbsr  L0660
+         beq   L1035
+         ldx   <u001A
+L1023    cmpx  <u0018
+         bne   L102C
+         lbsr  L1126
+         bra   L1033
+L102C    leax  -$01,x
+         lbsr  L0668
+         bne   L1023
+L1033    stx   <u001A
+L1035    pulu  pc,u
+         lbsr  L0660
+         beq   L1035
+         ldx   <u001A
+L103E    cmpx  <u001C
+         bne   L1047
+         lbsr  L1126
+         bra   L1033
+L1047    leax  $01,x
+         lbsr  L0668
+         bne   L103E
+         bra   L1033
+         ldx   <u001A
+         lbsr  L0660
+         bne   L105C
+         lbsr  L06C2
+         bra   L106F
+L105C    cmpx  <u001C
+         bne   L1065
+         lbsr  L1126
+         bra   L106F
+L1065    lbsr  L06B2
+         beq   L106F
+         lbsr  L0668
+         bne   L105C
+L106F    stx   <u001A
+         lbsr  L008B
+         pulu  pc,u
+         ldx   <u001A
+         lbsr  L0660
+         bne   L1082
+         lbsr  L06D7
+         bra   L106F
+L1082    cmpx  <u0018
+         bne   L108B
+         lbsr  L1126
+         bra   L106F
+L108B    lbsr  L06D1
+         beq   L106F
+         lbsr  L0668
+         bne   L1082
+         bra   L106F
+         ldx   <u0018
+         stx   <u001A
+         pulu  pc,u
+         ldx   <u001C
+         stx   <u001A
+         pulu  pc,u
+         lda   #$01
+         sta   <u003C
+         clr   <u003A
+         pulu  pc,u
+L10AB    lda   #$01
+         sta   <u003D
+         clr   <u003A
+         pulu  pc,u
+L10B3    clra  
+         sta   <u003D
+         sta   <u003A
+         pulu  pc,u
+         ldx   <u001A
+         cmpx  <u001C
+         beq   L10AB
+         lda   ,x
+         cmpa  #$0D
+         beq   L10AB
+         bra   L10B3
+         ldx   <u001A
+         cmpx  <u001C
+         beq   L10B3
+         lda   ,x
+         cmpa  #$0D
+         beq   L10B3
+         bra   L10AB
+         ldx   <u001A
+         cmpx  <u001C
+         bne   L10B3
+         bra   L10AB
+         ldx   <u001A
+         cmpx  <u001C
+         beq   L10B3
+         bra   L10AB
+         bsr   L10F2
+         bne   L10AB
+         bra   L10B3
+         bsr   L10F2
+         beq   L10AB
+         bra   L10B3
+L10F2    ldx   u0005,u
+         ldy   <u001A
+         ldb   ,x+
+L10F9    cmpb  ,x
+         beq   L110A
+         cmpy  <u001C
+         beq   L1108
+         lda   ,x+
+         cmpa  ,y+
+         beq   L10F9
+L1108    andcc #$FB
+L110A    rts   
+         tst   <u0005
+         bne   L10B3
+         bra   L10AB
+         lda   <u0005
+         beq   L10B3
+         bra   L10AB
+         ldd   u0005,u
+         beq   L10B3
+         bra   L10AB
+         lda   #$00
+         lbsr  L0685
+         beq   L10B3
+         bra   L10AB
+L1126    pshs  a
+         lbsr  L0685
+         beq   L1133
+         lda   #$01
+         sta   <u003D
+         clr   <u003A
+L1133    puls  pc,a
+         lda   #$00
+         sta   <u003D
+         sta   <u003A
+         inca  
+         sta   <u003B
+         pulu  pc,u
+         lda   #$00
+         sta   <u003A
+         inca  
+         sta   <u003D
+         sta   <u003B
+         pulu  pc,u
+         pulu  pc,u
+         tst   <u0041
+         lbne  L127E
+         ldx   <u0016
+         lda   $04,x
+         cmpa  #$42
+         beq   L11C5
+         ldx   <u001C
+         cmpx  <u0018
+         lbeq  L1281
+         lda   #$0D
+         cmpa  -$01,x
+         beq   L1175
+         leax  $01,x
+         cmpx  <u001E
+         lbcc  L126F
+         sta   -$01,x
+         stx   <u001C
+L1175    ldx   <u0018
+         lbsr  L0691
+         lbsr  L04DA
+         lbne  L1281
+         pshs  x
+L1183    lda   ,x+
+         lbsr  L04DA
+         beq   L1183
+         cmpa  #$20
+         beq   L119C
+         cmpa  #$0D
+         beq   L119C
+         cmpa  #$24
+         beq   L119C
+         cmpa  #$23
+         lbne  L1281
+L119C    ldx   ,s
+         lbsr  L04A1
+         lbne  L1284
+         ldb   #$2E
+         puls  x
+         lbsr  L0415
+         lbeq  L1284
+         lbsr  L073F
+         ldd   <u0024
+         lbsr  L0770
+         lbsr  L0716
+         ldd   <u002D
+         std   <u0024
+         lda   #$45
+         sta   <u0026
+         pulu  pc,u
+L11C5    ldd   #$0001
+         lbsr  L0770
+         cmpx  <u0016
+         beq   L11D2
+         lbra  L126C
+L11D2    ldy   <u0012
+         leay  >$0089,y
+L11D9    ldx   ,y++
+         beq   L11E4
+         jsr   ,x
+         os9   F$UnLink 
+         bra   L11D9
+L11E4    ldx   <u0018
+         ldd   <u001C
+         subd  <u0018
+         tfr   d,y
+L11EC    ldd   <u0002
+         cmpb  #$00
+         beq   L1261
+         os9   I$Write  
+         bcs   L1263
+         ldx   <u0014
+         ldd   <u001E
+         subd  <u0014
+         tfr   d,y
+         ldd   <u0000
+         cmpb  #$00
+         beq   L1261
+         os9   I$Read   
+         bcc   L11EC
+         cmpb  #$D3
+         bne   L1263
+         tst   <u0036
+         beq   L1261
+         ldd   <u001E
+         subd  <u0014
+         os9   F$Mem    
+         bcs   L1263
+         lda   <u0000
+         os9   I$Close  
+         bcs   L1263
+         lda   <u0002
+         os9   I$Close  
+         bcs   L1263
+         ldx   <u0032
+         os9   I$Delete 
+         bcs   L1261
+         ldy   <u0032
+L1233    ldx   <u0032
+L1235    lda   ,y+
+         sta   ,x+
+         cmpa  #$2F
+         beq   L1233
+         cmpa  #$0D
+         bne   L1235
+         ldy   <u0012
+         leax  >$00FE,y
+         tfr   x,u
+         lbsr  L0130
+         leax  >$00F7,y
+         tfr   d,y
+         ldd   #$0100
+         os9   F$Fork   
+         bcs   L1263
+         os9   F$Wait   
+         tstb  
+         bne   L1263
+L1261    ldb   #$00
+L1263    os9   F$Exit   
+L1266    ldb   #$00
+         cmpx  #$C60B
+         cmpx  #$C613
+         cmpx  #$C622
+         cmpx  #$C633
+         cmpx  #$C641
+         cmpx  #$C64F
+         cmpx  #$C659
+         cmpx  #$C65F
+         cmpx  #$C66D
+         cmpx  #$C67C
+         cmpx  #$C687
+         cmpx  #$C694
+         cmpx  #$C694
+         cmpx  #$C6A5
+         lda   #$FF
+         sta   <u0023
+         inc   <u003E
+         leax  >L12C9,pcr
+         clra  
+         leax  d,x
+         lbsr  L00EF
+         lbsr  L00FF
+         lbra  L0292
+L12A8    ldb   #$D7
+L12AA    inc   <u003E
+         pshs  b
+         leax  <L12C5,pcr
+         ldy   #$0004
+         lda   <u000B
+         os9   I$Write  
+         puls  b
+         os9   F$PErr   
+         lbsr  L00FF
+         lbra  L0292
+L12C5    clra  
+         comb  
+         rts   
+         bra   L130C
+         fcb   $41 A
+         lsra  
+         bra   L131C
+         fcb   $55 U
+         tsta  
+         fcb   $42 B
+         fcb   $45 E
+         fcb   $52 R
+         tst   <u0057
+         lsla  
+         fcb   $41 A
+         lsrb  
+         bra   L1319
+         swi   
+         fcb   $0D 
+         bpl   L12FE
+         fcb   $4E N
+         clra  
+         lsrb  
+         bra   L1325
+         fcb   $55 U
+         rora  
+         bra   L130A
+         leay  $00,y
+         bpl   L12F8
+         bpl   L1344
+         clra  
+         fcb   $52 R
+         fcb   $4B K
+         comb  
+         negb  
+         fcb   $41 A
+         coma  
+         fcb   $45 E
+         bra   L133D
+         fcb   $55 U
+L12F8    inca  
+         inca  
+         bpl   L1309
+         tsta  
+         rola  
+L12FE    comb  
+         comb  
+         rola  
+         fcb   $4E N
+         asra  
+         bra   L1349
+         fcb   $45 E
+         inca  
+         rola  
+         tsta  
+L1309    tst   <u002A
+         rora  
+L130C    rola  
+         inca  
+         fcb   $45 E
+         bra   L1354
+         inca  
+         clra  
+         comb  
+         fcb   $45 E
+         lsra  
+         bpl   L1325
+L1318    fcb   $4E N
+L1319    clra  
+         lsrb  
+         bra   L1363
+         clra  
+         fcb   $55 U
+         fcb   $4E N
+         lsra  
+         tst   <u0042
+         fcb   $52 R
+         fcb   $45 E
+L1325    fcb   $41 A
+         fcb   $4B K
+         tst   <u004D
+         fcb   $41 A
+         coma  
+         fcb   $52 R
+         clra  
+         bra   L1378
+         comb  
+         bra   L1381
+         negb  
+         fcb   $45 E
+         fcb   $4E N
+         tst   <u0042
+         fcb   $41 A
+         lsra  
+         bra   L1388
+         fcb   $41 A
+         coma  
+L133D    fcb   $52 R
+         clra  
+         bra   L138F
+         fcb   $41 A
+         tsta  
+         fcb   $45 E
+L1344    tst   <u0044
+         fcb   $55 U
+         negb  
+         inca  
+L1349    bra   L1398
+         fcb   $41 A
+         coma  
+         fcb   $52 R
+         clra  
+         tst   <u0042
+         fcb   $41 A
+         lsra  
+         bra   L13AB
+         fcb   $41 A
+         fcb   $52 R
+         bra   L13A5
+         rola  
+         comb  
+         lsrb  
+         tst   <u0042
+         fcb   $52 R
+         fcb   $41 A
+         coma  
+         fcb   $4B K
+         fcb   $45 E
+L1363    lsrb  
+         bra   L13B3
+         rola  
+         comb  
+         tsta  
+         fcb   $41 A
+         lsrb  
+         coma  
+         lsla  
+         tst   <u0055
+         fcb   $4E N
+         lsra  
+         fcb   $45 E
+         rora  
+         rola  
+         fcb   $4E N
+         fcb   $45 E
+         lsra  
+         bra   L13CF
+         fcb   $41 A
+         fcb   $52 R
+         tst   <u002A
+         fcb   $45 E
+         fcb   $4E N
+         lsra  
+         bra   L13D1
+         rora  
+         bra   L13D9
+         fcb   $45 E
+         lslb  
+         lsrb  
+L1388    bpl   L1397
+L138A    bpl   L13D1
+         fcb   $4E N
+         lsra  
+         bra   L13DF
+         rora  
+         bra   L13D9
+         rola  
+         inca  
+         fcb   $45 E
+         bpl   L13A5
+L1398    bpl   L13E0
+         fcb   $41 A
+         rola  
+         inca  
+         bpl   L13AC
+L139F    fcb   $52 R
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $41 A
+         tsta  
+         fcb   $45 E
+L13A5    bra   L13B4
+L13A7    comb  
+         coma  
+         fcb   $52 R
+         fcb   $41 A
+L13AB    lsrb  
+L13AC    coma  
+         lsla  
+         bra   L13BD
+L13B0    fcb   $45 E
+         lsra  
+         lsrb  
+L13B3    negb  
+L13B4    leas  $0D,x
+L13B6    fcb   $45 E
+         lsra  
+         lsrb  
+         inca  
+         rola  
+         fcb   $42 B
+         leay  $0D,x
+L13BE    tsta  
+         fcb   $41 A
+         coma  
+         fcb   $52 R
+         clra  
+         comb  
+         abx   
+         tst   <u0042
+         fcb   $55 U
+         rora  
+         rora  
+         fcb   $45 E
+         fcb   $52 R
+         comb  
+         abx   
+         tst   <u004D
+         fcb   $41 A
+L13D1    coma  
+         bcc   L13E1
+         asr   <u00FB
+         fcb   $45 E
+         clra  
+         rora  
+L13D9    tst   <u0011
+         fcb   $11 
+         fcb   $4E N
+         fcb   $45 E
+         clra  
+L13DF    rora  
+L13E0    tst   <u0011
+         tim   #$45,<u004F
+         fcb   $42 B
+         tst   <u0010
+         ldu   <u004E
+         fcb   $45 E
+         clra  
+         fcb   $42 B
+         tst   <u0010
+         ldb   <u0045
+         clra  
+         inca  
+         tst   <u0010
+         eorb  #$4E
+         fcb   $45 E
+         clra  
+         inca  
+         tst   <u0010
+         ora   >$5A45
+         fcb   $52 R
+         clra  
+         bls   L1410
+         fcb   $11 
+         lbsr  L675B
+         fcb   $41 A
+         fcb   $52 R
+         bls   L1418
+         fcb   $11 
+         sex   
+         comb  
+         lsrb  
+         fcb   $52 R
+L1410    bcc   L141F
+         fcb   $10 
+         ldb   u000E,u
+         comb  
+         lsrb  
+         fcb   $52 R
+L1418    bcc   L1427
+         ldq   u0004,u
+         rola  
+         fcb   $52 R
+L141F    tst   <u0008
+         coma  
+         comb  
+         tst   <u0011
+         puls  u,b,a
+L1427    tst   <u0011
+         nega  
+         comb  
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $52 R
+         coma  
+         lsla  
+         bls   L1456
+         tst   <u000A
+         lda   <u0043
+         lsla  
+         fcb   $41 A
+         fcb   $4E N
+         asra  
+         fcb   $45 E
+         bls   L1461
+         bcc   L144C
+         dec   <u009E
+         inca  
+         clra  
+         fcb   $41 A
+         lsra  
+         bcc   L1454
+         jmp   <u0025
+         comb  
+         fcb   $41 A
+         rorb  
+L144C    fcb   $45 E
+         bcc   L1473
+         tst   <u000E
+         bitb  -u000D,u
+         rola  
+L1454    decb  
+         fcb   $45 E
+L1456    tst   <u0007
+         subd  u0004,u
+         fcb   $45 E
+         inca  
+         bcc   L146B
+         lsl   <u00A5
+         fcb   $52 R
+L1461    fcb   $45 E
+         fcb   $41 A
+         lsra  
+         bcc   L1473
+         tst   <u00B6
+         asrb  
+         fcb   $52 R
+         rola  
+L146B    lsrb  
+         fcb   $45 E
+         bcc   L147C
+         tst   <u00ED
+         comb  
+         lsla  
+L1473    fcb   $45 E
+         inca  
+         inca  
+         bra   L14C4
+         tst   <u0008
+         stb   u000E,u
+L147C    fcb   $45 E
+         asrb  
+         tst   <u000F
+         fcb   $8F 
+         neg   <u0041
+         bls   L1492
+         rol   <u00B4
+         inca  
+         bls   L1497
+         rol   <u0074
+         lslb  
+         bls   L149C
+         rol   <u008E
+         bmi   L14B6
+         tst   <u0010
+         negb  
+         blt   L14BB
+         tst   <u0010
+         ror   >$4423
+         tst   <u000F
+         ora   u0005,u
+         bls   L14C7
+         tst   <u000A
+         ldb   #$3C
+         bls   L14B6
+         fcb   $10 
+         andcc #$3E
+         bls   L14BB
+         cmpr  s,b
+         bls   L14D7
+         tst   <u000B
+         fcb   $5E ^
+L14B6    fcb   $4B K
+         bls   L14C6
+         clr   <u00D6
+L14BB    comb  
+         bls   L14E2
+         tst   <u000A
+         jsr   u0003,u
+         bls   L14E8
+L14C4    bcc   L14D3
+L14C6    dec   <u00A6
+         fcb   $55 U
+         tst   <u000F
+         ldd   >$5423
+         tst   <u000B
+         bvc   L1514
+         bls   L14E1
+         asr   <u00C5
+         fcb   $5E ^
+L14D7    tst   <u0010
+         sta   <u002F
+         tst   <u0010
+         jsr   <u004D
+         bls   L14EE
+L14E1    asr   <u008A
+         rorb  
+         bls   L14F3
+         rol   <u0012
+L14E8    asra  
+         bls   L14F8
+         inc   <u0044
+         negb  
+L14EE    bls   L14FD
+         inc   <u00B1
+         fcb   $5B [
+L14F3    tst   <u0009
+         bgt   L1554
+         bls   L1506
+         rol   <u0048
+         abx   
+         tst   <u0010
+         subd  -u000E,u
+         bls   L150F
+         tst   <u000F
+         asrb  
+         bls   L1514
+         tst   <u007B
+         brn   L1557
+         tst   <u0011
+         fcb   $4B K
+         fcb   $51 Q
+L150F    tst   <u0011
+         tsta  
+         fcb   $00 
+         emod
+eom      equ   *
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/gfx-d64.asm	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,316 @@
+********************************************************************
+* progname - program module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Basic09 from Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/04/06 14:47:31  roug
+* Prego; The basic09 interpreter.
+*
+*
+
+         nam   GFX
+         ttl   subroutine module    
+
+* Disassembled 02/04/06 16:39:17 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   /dd/defs/os9defs
+         endc
+tylg     set   Sbrtn+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+         mod   eom,name,tylg,atrv,start,size
+u0000    rmb   0
+size     equ   .
+name     equ   *
+         fcs   /GFX/
+         fcb   $01 
+L0011    fcb   $01 
+         fcb   $2B +
+         fcb   $41 A
+         fcb   $6C l
+         fcb   $70 p
+         fcb   $68 h
+         fcb   $61 a
+         fcb   $FF 
+         fcb   $01 
+         fcb   $02 
+         fcb   $43 C
+         fcb   $69 i
+         fcb   $72 r
+         fcb   $63 c
+         fcb   $6C l
+         fcb   $65 e
+         fcb   $FF 
+         fcb   $00 
+         fcb   $C7 G
+         fcb   $43 C
+         fcb   $6C l
+         fcb   $65 e
+         fcb   $61 a
+         fcb   $72 r
+         fcb   $FF 
+         fcb   $00 
+         fcb   $AE .
+         fcb   $43 C
+         fcb   $6F o
+         fcb   $6C l
+         fcb   $6F o
+         fcb   $72 r
+         fcb   $FF 
+         fcb   $01 
+         fcb   $8E 
+         fcb   $47 G
+         fcb   $43 C
+         fcb   $6F o
+         fcb   $6C l
+         fcb   $72 r
+         fcb   $FF 
+         fcb   $01 
+         fcb   $74 t
+         fcb   $47 G
+         fcb   $4C L
+         fcb   $6F o
+         fcb   $63 c
+         fcb   $FF 
+         fcb   $01 
+         fcb   $BF ?
+         fcb   $4A J
+         fcb   $6F o
+         fcb   $79 y
+         fcb   $53 S
+         fcb   $74 t
+         fcb   $6B k
+         fcb   $FF 
+         fcb   $00 
+         fcb   $D7 W
+         fcb   $4C L
+         fcb   $69 i
+         fcb   $6E n
+         fcb   $65 e
+         fcb   $FF 
+         fcb   $00 
+         fcb   $A2 "
+         fcb   $4D M
+         fcb   $6F o
+         fcb   $64 d
+         fcb   $65 e
+         fcb   $FF 
+         fcb   $00 
+         fcb   $A6 &
+         fcb   $4D M
+         fcb   $6F o
+         fcb   $76 v
+         fcb   $65 e
+         fcb   $FF 
+         fcb   $00 
+         fcb   $B2 2
+         fcb   $50 P
+         fcb   $6F o
+         fcb   $69 i
+         fcb   $6E n
+         fcb   $74 t
+         fcb   $FF 
+         fcb   $01 
+         fcb   $2F /
+         fcb   $51 Q
+         fcb   $75 u
+         fcb   $69 i
+         fcb   $74 t
+         fcb   $FF 
+         fcb   $00 
+         fcb   $00 
+start    equ   *
+         leas  -$09,s
+         ldd   $0B,s
+         beq   L00AD
+         tsta  
+         bne   L00AD
+         leau  >L0011,pcr
+L007D    ldy   ,u++
+         beq   L00A9
+         ldx   $0D,s
+L0084    lda   ,x+
+         eora  ,u+
+         anda  #$DF
+         beq   L0094
+         leau  -$01,u
+L008E    tst   ,u+
+         bpl   L008E
+         bra   L007D
+L0094    tst   -$01,u
+         bpl   L0084
+         tfr   y,d
+         leay  >L0011,pcr
+         leay  d,y
+         leax  ,s
+         leau  <$11,s
+         ldd   $0B,s
+         jmp   ,y
+L00A9    ldb   #$30
+         bra   L00AF
+L00AD    ldb   #$38
+L00AF    coma  
+         leas  $09,s
+         rts   
+         lda   #$0F
+         bra   L00B9
+         lda   #$15
+L00B9    cmpb  #$03
+         bne   L00AD
+         bra   L010B
+         lda   #$11
+         bra   L00DE
+         cmpb  #$03
+         beq   L00D4
+         cmpb  #$04
+         bne   L00AD
+         leau  <$19,s
+         lbsr  L015E
+         leau  <$11,s
+L00D4    lda   #$18
+         bra   L010B
+         cmpb  #$01
+         beq   L00E4
+         lda   #$10
+L00DE    cmpb  #$02
+         bne   L00AD
+         bra   L0136
+L00E4    lda   #$13
+         bra   L0142
+         cmpb  #$06
+         bhi   L00AD
+         cmpb  #$03
+         bcs   L015B
+         bitb  #$01
+         bne   L0103
+         leau  <$19,s
+         cmpb  #$04
+         beq   L00FE
+         leau  <$21,s
+L00FE    bsr   L015E
+         leau  <$11,s
+L0103    cmpb  #$04
+         bls   L0109
+         bsr   L0164
+L0109    lda   #$16
+L010B    sta   ,x+
+         bsr   L016E
+         bsr   L016E
+         bra   L0144
+         cmpb  #$05
+         bhi   L015B
+         cmpb  #$02
+         bcs   L015B
+         bitb  #$01
+         beq   L012E
+         leau  <$15,s
+         cmpb  #$03
+         beq   L0129
+         leau  <$1D,s
+L0129    bsr   L015E
+         leau  <$11,s
+L012E    cmpb  #$03
+         bls   L0134
+         bsr   L0164
+L0134    lda   #$1A
+L0136    sta   ,x+
+         bsr   L016E
+         bra   L0144
+         lda   #$0E
+         bra   L0142
+         lda   #$12
+L0142    sta   ,x+
+L0144    bsr   L0149
+         leas  $09,s
+         rts   
+L0149    tfr   x,d
+         leax  $02,s
+         pshs  x
+         subd  ,s++
+         tfr   d,y
+         lda   #$01
+         os9   I$Write  
+         rts   
+L0159    leas  $06,s
+L015B    lbra  L00AD
+L015E    lda   #$11
+         sta   ,x+
+         bra   L016E
+L0164    puls  y
+         lda   #$15
+         sta   ,x+
+         bsr   L016E
+         pshs  y
+L016E    pshs  y,b,a
+         ldd   [,u++]
+         sta   ,x+
+         pulu  y
+         leay  -$01,y
+         beq   L0183
+         leay  -$01,y
+         bne   L0159
+         tsta  
+         bne   L0159
+         stb   -$01,x
+L0183    puls  pc,y,b,a
+         cmpb  #$02
+         bne   L015B
+         ldx   <$13,s
+         leax  -$02,x
+         bne   L015B
+         lda   #$01
+         ldb   #$12
+         os9   I$GetStt 
+         bcs   L019C
+         stx   [<$11,s]
+L019C    leas  $09,s
+         rts   
+         cmpb  #$02
+         beq   L01AD
+         cmpb  #$04
+         bne   L015B
+         bsr   L0164
+         bsr   L0149
+         bcs   L019C
+L01AD    lda   #$01
+         ldb   #$12
+         os9   I$GetStt 
+         bcs   L019C
+         tfr   a,b
+         bra   L01ED
+L01BA    leau  $04,u
+         pshs  u,x
+         ldx   -$02,u
+         ldu   -$04,u
+         leax  -$01,x
+         beq   L01CC
+         leax  -$01,x
+         bne   L0159
+         clr   ,u+
+L01CC    stb   ,u+
+         puls  pc,u,x
+         cmpb  #$05
+         bne   L015B
+         clr   ,x+
+         bsr   L016E
+         ldx   -$02,x
+         lda   #$01
+         ldb   #$13
+         os9   I$GetStt 
+         bcs   L019C
+         tfr   a,b
+         bsr   L01BA
+         tfr   x,d
+         bsr   L01BA
+         tfr   y,d
+L01ED    bsr   L01BA
+         leas  $09,s
+         rts   
+         emod
+eom      equ   *
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/inkey-d64.asm	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,67 @@
+********************************************************************
+* progname - program module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Basic09 from Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/04/06 14:47:31  roug
+* Prego; The basic09 interpreter.
+*
+*
+
+         nam   Inkey
+         ttl   subroutine module    
+
+* Disassembled 02/04/06 16:39:17 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   /dd/defs/os9defs
+         endc
+tylg     set   Sbrtn+Objct   
+atrv     set   ReEnt+rev
+rev      set   $01
+         mod   eom,name,tylg,atrv,start,size
+u0000    rmb   0
+size     equ   .
+name     equ   *
+         fcs   /Inkey/
+start    equ   *
+         leax  $04,s
+         ldd   $02,s
+         cmpd  #$0001
+         beq   L0033
+         cmpd  #$0002
+         bne   L0057
+         ldd   [<$04,s]
+         ldx   $06,s
+         leax  -$01,x
+         beq   L0031
+         leax  -$01,x
+         bne   L0057
+         tfr   b,a
+L0031    leax  $08,s
+L0033    ldu   $02,x
+         ldx   ,x
+         ldb   #$FF
+         stb   ,x
+         cmpu  #$0002
+         bcs   L0043
+         stb   $01,x
+L0043    ldb   #$01
+         os9   I$GetStt 
+         bcs   L0052
+         ldy   #$0001
+         os9   I$Read   
+         rts   
+L0052    cmpb  #$F6
+         bne   L0059
+         rts   
+L0057    ldb   #$38
+L0059    coma  
+         rts   
+         emod
+eom      equ   *
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/basic09/runb.asm	Sat Apr 06 14:47:31 2002 +0000
@@ -0,0 +1,6368 @@
+********************************************************************
+* progname - program module
+*
+* $Id$
+*
+* Ed.    Comments                                       Who YY/MM/DD
+* ------------------------------------------------------------------
+*  -     Original Basic09 from Dragon Data distribution version
+*
+* $Log$
+* Revision 1.1  2002/04/06 14:47:31  roug
+* Prego; The basic09 interpreter.
+*
+*
+
+         nam   RunB
+         ttl   program module       
+
+* Disassembled 02/04/06 16:22:39 by Disasm v1.6 (C) 1988 by RML
+
+         ifp1
+         use   /dd/defs/os9defs
+         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   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   1
+u0019    rmb   2
+u001B    rmb   1
+u001C    rmb   2
+u001E    rmb   1
+u001F    rmb   3
+u0022    rmb   4
+u0026    rmb   1
+u0027    rmb   1
+u0028    rmb   2
+u002A    rmb   2
+u002C    rmb   1
+u002D    rmb   1
+u002E    rmb   1
+u002F    rmb   1
+u0030    rmb   1
+u0031    rmb   1
+u0032    rmb   1
+u0033    rmb   1
+u0034    rmb   1
+u0035    rmb   1
+u0036    rmb   3
+u0039    rmb   1
+u003A    rmb   1
+u003B    rmb   1
+u003C    rmb   2
+u003E    rmb   1
+u003F    rmb   1
+u0040    rmb   2
+u0042    rmb   1
+u0043    rmb   1
+u0044    rmb   2
+u0046    rmb   2
+u0048    rmb   2
+u004A    rmb   1
+u004B    rmb   1
+u004C    rmb   1
+u004D    rmb   1
+u004E    rmb   2
+u0050    rmb   1
+u0051    rmb   1
+u0052    rmb   1
+u0053    rmb   1
+u0054    rmb   1
+u0055    rmb   1
+u0056    rmb   1
+u0057    rmb   1
+u0058    rmb   1
+u0059    rmb   1
+u005A    rmb   2
+u005C    rmb   2
+u005E    rmb   1
+u005F    rmb   1
+u0060    rmb   2
+u0062    rmb   2
+u0064    rmb   2
+u0066    rmb   1
+u0067    rmb   1
+u0068    rmb   1
+u0069    rmb   1
+u006A    rmb   1
+u006B    rmb   1
+u006C    rmb   1
+u006D    rmb   1
+u006E    rmb   2
+u0070    rmb   2
+u0072    rmb   2
+u0074    rmb   1
+u0075    rmb   1
+u0076    rmb   1
+u0077    rmb   1
+u0078    rmb   1
+u0079    rmb   1
+u007A    rmb   1
+u007B    rmb   1
+u007C    rmb   1
+u007D    rmb   1
+u007E    rmb   1
+u007F    rmb   1
+u0080    rmb   1
+u0081    rmb   1
+u0082    rmb   3
+u0085    rmb   1
+u0086    rmb   1
+u0087    rmb   1
+u0088    rmb   1
+u0089    rmb   1
+u008A    rmb   1
+u008B    rmb   1
+u008C    rmb   1
+u008D    rmb   1
+u008E    rmb   2
+u0090    rmb   1
+u0091    rmb   1
+u0092    rmb   1
+u0093    rmb   1
+u0094    rmb   1
+u0095    rmb   1
+u0096    rmb   1
+u0097    rmb   2
+u0099    rmb   1
+u009A    rmb   1
+u009B    rmb   1
+u009C    rmb   1
+u009D    rmb   1
+u009E    rmb   2
+u00A0    rmb   2
+u00A2    rmb   1
+u00A3    rmb   1
+u00A4    rmb   1
+u00A5    rmb   1
+u00A6    rmb   1
+u00A7    rmb   1
+u00A8    rmb   1
+u00A9    rmb   1
+u00AA    rmb   1
+u00AB    rmb   1
+u00AC    rmb   1
+u00AD    rmb   1
+u00AE    rmb   1
+u00AF    rmb   2
+u00B1    rmb   2
+u00B3    rmb   1
+u00B4    rmb   3
+u00B7    rmb   2
+u00B9    rmb   1
+u00BA    rmb   1
+u00BB    rmb   1
+u00BC    rmb   1
+u00BD    rmb   1
+u00BE    rmb   3
+u00C1    rmb   3
+u00C4    rmb   1
+u00C5    rmb   1
+u00C6    rmb   4
+u00CA    rmb   1
+u00CB    rmb   1
+u00CC    rmb   1
+u00CD    rmb   1
+u00CE    rmb   1
+u00CF    rmb   1
+u00D0    rmb   1
+u00D1    rmb   1
+u00D2    rmb   1
+u00D3    rmb   6
+u00D9    rmb   1
+u00DA    rmb   2
+u00DC    rmb   1
+u00DD    rmb   1
+u00DE    rmb   1
+u00DF    rmb   1
+u00E0    rmb   1
+u00E1    rmb   1
+u00E2    rmb   3
+u00E5    rmb   2
+u00E7    rmb   1
+u00E8    rmb   2
+u00EA    rmb   1
+u00EB    rmb   6
+u00F1    rmb   1
+u00F2    rmb   3
+u00F5    rmb   4
+u00F9    rmb   1
+u00FA    rmb   3
+u00FD    rmb   1
+u00FE    rmb   1
+u00FF    rmb   1
+u0100    rmb   3840
+size     equ   .
+L000D    fcb   $00 
+         fcb   $D9 Y
+         fcb   $04 
+         fcb   $68 h
+         fcb   $06 
+         fcb   $D8 X
+         fcb   $06 
+         fcb   $EB k
+         fcb   $10 
+         fcb   $DF _
+         fcb   $25 %
+         fcb   $51 Q
+         fcb   $00 
+         fcb   $00 
+name     equ   *
+         fcs   /RunB/
+         fcb   $16 
+         fcb   $06 
+         fcb   $0C 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $42 B
+         fcb   $41 A
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $30 0
+         fcb   $39 9
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $52 R
+         fcb   $53 S
+         fcb   $20 
+         fcb   $56 V
+         fcb   $45 E
+         fcb   $52 R
+         fcb   $53 S
+         fcb   $49 I
+         fcb   $4F O
+         fcb   $4E N
+         fcb   $20 
+         fcb   $30 0
+         fcb   $31 1
+         fcb   $2E .
+         fcb   $30 0
+         fcb   $30 0
+         fcb   $2E .
+         fcb   $30 0
+         fcb   $30 0
+         fcb   $0A 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $50 P
+         fcb   $59 Y
+         fcb   $52 R
+         fcb   $49 I
+         fcb   $47 G
+         fcb   $48 H
+         fcb   $54 T
+         fcb   $20 
+         fcb   $31 1
+         fcb   $39 9
+         fcb   $38 8
+         fcb   $30 0
+         fcb   $20 
+         fcb   $42 B
+         fcb   $59 Y
+         fcb   $20 
+         fcb   $4D M
+         fcb   $4F O
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $4C L
+         fcb   $41 A
+         fcb   $20 
+         fcb   $49 I
+         fcb   $4E N
+         fcb   $43 C
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $20 
+         fcb   $4D M
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $57 W
+         fcb   $41 A
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $20 
+         fcb   $53 S
+         fcb   $59 Y
+         fcb   $53 S
+         fcb   $54 T
+         fcb   $45 E
+         fcb   $4D M
+         fcb   $53 S
+         fcb   $20 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $50 P
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $44 D
+         fcb   $55 U
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $20 
+         fcb   $55 U
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $45 E
+         fcb   $52 R
+         fcb   $20 
+         fcb   $4C L
+         fcb   $49 I
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $4E N
+         fcb   $53 S
+         fcb   $45 E
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $54 T
+         fcb   $4F O
+         fcb   $20 
+         fcb   $54 T
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $44 D
+         fcb   $59 Y
+         fcb   $20 
+         fcb   $43 C
+         fcb   $4F O
+         fcb   $52 R
+         fcb   $50 P
+         fcb   $2E .
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         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   $2E .
+         fcb   $8A 
+         fcb   $34 4
+         fcb   $16 
+         fcb   $E6 f
+         fcb   $F8 x
+         fcb   $04 
+         fcb   $30 0
+         fcb   $8C 
+         fcb   $08 
+         fcb   $EC l
+         fcb   $85 
+         fcb   $30 0
+         fcb   $8B 
+         fcb   $AF /
+         fcb   $64 d
+         fcb   $35 5
+         fcb   $96 
+         fcb   $03 
+         fcb   $00 
+         fcb   $03 
+         fcb   $25 %
+         fcb   $01 
+         fcb   $65 e
+         fcb   $01 
+         fcb   $5B [
+         fcb   $03 
+         fcb   $29 )
+         fcb   $02 
+         fcb   $7C ü
+         fcb   $02 
+         fcb   $76 v
+         fcb   $02 
+         fcb   $98 
+         fcb   $03 
+         fcb   $4A J
+         fcb   $9D 
+         fcb   $1E 
+         fcb   $04 
+L00FE    fcb   $9D 
+         fcb   $1E 
+         fcb   $02 
+L0101    fcb   $9D 
+         fcb   $1E 
+         fcb   $00 
+L0104    fcb   $9D 
+         fcb   $21 !
+         fcb   $00 
+L0107    fcb   $9D 
+         fcb   $24 $
+         fcb   $00 
+L010A    fcb   $9D 
+         fcb   $24 $
+         fcb   $04 
+L010D    fcb   $9D 
+         fcb   $24 $
+         fcb   $02 
+         fcb   $9D 
+         fcb   $2A *
+         fcb   $02 
+         fcb   $0E 
+         fcb   $52 R
+         fcb   $65 e
+         fcb   $61 a
+         fcb   $64 d
+         fcb   $F9 y
+         fcb   $57 W
+         fcb   $68 h
+         fcb   $61 a
+         fcb   $74 t
+         fcb   $BF ?
+         fcb   $20 
+         fcb   $66 f
+         fcb   $72 r
+         fcb   $65 e
+         fcb   $E5 e
+L0123    fcb   $50 P
+         fcb   $72 r
+         fcb   $6F o
+         fcb   $67 g
+         fcb   $72 r
+         fcb   $61 a
+         fcb   $ED m
+         fcb   $50 P
+         fcb   $52 R
+         fcb   $4F O
+         fcb   $43 C
+         fcb   $45 E
+         fcb   $44 D
+         fcb   $55 U
+         fcb   $52 R
+         fcb   $C5 E
+         fcb   $0D 
+         fcb   $0A 
+         fcb   $20 
+         fcb   $20 
+         fcb   $4E N
+         fcb   $61 a
+         fcb   $6D m
+         fcb   $65 e
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $20 
+         fcb   $50 P
+         fcb   $72 r
+         fcb   $6F o
+         fcb   $63 c
+         fcb   $2D -
+         fcb   $53 S
+         fcb   $69 i
+         fcb   $7A z
+         fcb   $65 e
+         fcb   $20 
+         fcb   $20 
+         fcb   $44 D
+         fcb   $61 a
+         fcb   $74 t
+         fcb   $61 a
+         fcb   $2D -
+         fcb   $53 S
+         fcb   $69 i
+         fcb   $7A z
+         fcb   $E5 e
+         fcb   $52 R
+         fcb   $65 e
+         fcb   $77 w
+         fcb   $72 r
+         fcb   $69 i
+         fcb   $74 t
+         fcb   $65 e
+         fcb   $3F ?
+         fcb   $3A :
+         fcb   $20 
+         fcb   $52 R
+         fcb   $41 A
+         fcb   $4E N
+         fcb   $47 G
+         fcb   $45 E
+         fcb   $87 
+         fcb   $0E 
+         fcb   $42 B
+         fcb   $52 R
+         fcb   $45 E
+         fcb   $41 A
+         fcb   $4B K
+         fcb   $3A :
+         fcb   $A0 
+         fcb   $63 c
+         fcb   $61 a
+         fcb   $6C l
+         fcb   $6C l
+         fcb   $65 e
+         fcb   $64 d
+         fcb   $20 
+         fcb   $62 b
+         fcb   $F9 y
+         fcb   $6F o
+         fcb   $EB k
+         fcb   $44 D
+         fcb   $BA :
+         fcb   $45 E
+         fcb   $BA :
+         fcb   $42 B
+         fcb   $BA :
+         fcb   $63 c
+         fcb   $61 a
+         fcb   $6E n
+         fcb   $27 '
+         fcb   $74 t
+         fcb   $20 
+         fcb   $66 f
+         fcb   $69 i
+         fcb   $6E n
+         fcb   $64 d
+         fcb   $BA :
+L0189    fcb   $A6 &
+         fcb   $63 c
+         fcb   $1F 
+         fcb   $8B 
+         fcb   $D7 W
+         fcb   $35 5
+         fcb   $08 
+         fcb   $34 4
+         fcb   $43 C
+         fcb   $06 
+         fcb   $34 4
+         fcb   $3B ;
+start    equ   *
+         pshs  u
+         leau  >u0100,u
+         clra  
+         clrb  
+L019D    std   ,--u
+         cmpu  ,s
+         bhi   L019D
+         puls  b,a
+         leau  ,x
+         std   <u0000
+         inca  
+         sta   <u00D9
+         std   <u0080
+         std   <u0082
+         adda  #$02
+         std   <u0046
+         std   <u0044
+         inca  
+         tfr   d,s
+         std   <u0004
+         inca  
+         std   <u0008
+         std   <u004A
+         tfr   u,d
+         subd  <u0000
+         std   <u0002
+         clra  
+         ldb   #$01
+         std   <u002D
+         sta   <u00BD
+         lda   #$03
+L01D0    os9   I$Close  
+         inca  
+         cmpa  #$10
+         bcs   L01D0
+         lda   #$02
+         os9   I$Dup    
+         sta   <u00BE
+         clr   <u0035
+         pshs  x
+         leax  <L0189,pcr
+         os9   F$Icpt   
+         ldx   <u0008
+         clra  
+         clrb  
+L01ED    std   ,--x
+         cmpx  <u0004
+         bhi   L01ED
+         leax  >L0000,pcr
+         pshs  x
+         ldx   <u0000
+         leax  <$1B,x
+         leay  >L000D,pcr
+L0202    lda   #$7E
+         sta   ,x+
+         ldd   ,y++
+         addd  ,s
+         std   ,x++
+         ldd   ,y
+         bne   L0202
+         leas  $02,s
+         lbsr  L0107
+         puls  y
+         bsr   L0222
+         ldx   <u0004
+         ldd   ,x
+         std   <u002F
+         lbsr  L02B9
+L0222    leax  <L025B,pcr
+         puls  u
+         bsr   L024E
+         pshs  u
+         clr   <u0034
+         ldd   <u0000
+         addd  <u0002
+         subd  <u0008
+         subd  <u000A
+         std   <u000C
+         leau  $02,s
+         stu   <u0046
+         stu   <u0044
+         leas  >-$00FE,s
+         jmp   [<-u0002,u]
+L0244    lds   <u00B7
+         puls  b,a
+         std   <u00B7
+         lbra  L02AD
+L024E    ldd   <u00B7
+         pshs  b,a
+         sts   <u00B7
+         ldd   $02,s
+         stx   $02,s
+         tfr   d,pc
+L025B    bsr   L0222
+         lbra  L035F
+         ldb   #$2C
+L0262    lbsr  L040E
+         lbra  L0244
+L0268    ldb   #$2B
+         bra   L0262
+         ldb   ,y+
+         cmpb  #$2C
+         beq   L0278
+         cmpb  #$20
+         beq   L0278
+         leay  -$01,y
+L0278    rts   
+L0279    lbsr  L00FE
+         bne   L028C
+         ldy   <u002F
+         beq   L0288
+         ldd   $04,y
+         leay  d,y
+         rts   
+L0288    leay  >L0123,pcr
+L028C    rts   
+L028D    ldu   <u0046
+         stu   <u0044
+         ldx   <u0004
+L0293    ldd   ,x
+         beq   L029B
+         tfr   x,d
+         leax  $02,x
+L029B    std   ,--u
+         bne   L0293
+         stu   <u0044
+         lda   ,y
+         cmpa  #$0D
+         beq   L02A9
+         leay  $01,y
+L02A9    sty   <u0082
+         rts   
+L02AD    clr   <u007D
+         inc   <u007D
+         pshs  x
+         ldx   <u0080
+         stx   <u0082
+         puls  pc,x
+L02B9    lbsr  L00FE
+         bne   L02D1
+         pshs  y
+         lbsr  L0279
+         ldx   ,s
+L02C5    lda   ,y+
+         sta   ,x+
+         bpl   L02C5
+         lda   #$0D
+         sta   ,x
+         puls  y
+L02D1    lbsr  L03E9
+         lbcs  L0268
+         ldx   ,x
+         stx   <u002F
+         lda   $06,x
+         beq   L02E8
+         anda  #$0F
+         cmpa  #$02
+         bne   L035A
+         bra   L02EE
+L02E8    lda   <$17,x
+         rora  
+         bcs   L035A
+L02EE    lbsr  L0101
+         ldy   <u004A
+         ldb   ,y
+         cmpb  #$3D
+         beq   L035A
+         sty   <u005E
+         sty   <u005C
+         ldx   <u00AB
+         stx   <u0060
+         stx   <u004A
+         ldd   <u000C
+         pshs  y,b,a
+         lbsr  L0104
+         puls  y,b,a
+         std   <u000C
+         sty   <u004A
+         ldx   <u002F
+         lda   <$17,x
+         rora  
+         bcs   L035A
+         leas  >$0102,s
+         ldd   <u0000
+         addd  <u0002
+         tfr   d,y
+         std   <u0046
+         std   <u0044
+         ldu   #$0000
+         stu   <u0031
+         stu   <u00B3
+         inc   <u00B4
+         clr   <u0036
+         ldd   <u004A
+         ldx   <u000C
+         pshs  x,b,a
+         leax  >L0351,pcr
+         lbsr  L024E
+         ldx   <u004A
+         lbsr  L010A
+         lbsr  L02AD
+         ldx   <u002F
+         lbsr  L010D
+         bra   L0357
+L0351    puls  x,b,a
+         std   <u004A
+         stx   <u000C
+L0357    lbra  L0244
+L035A    ldb   #$33
+         lbra  L0262
+L035F    bsr   L0381
+         clrb  
+         os9   F$Exit   
+         lbsr  L00FE
+         beq   L037D
+         lbsr  L03C6
+         bcs   L037D
+         ldu   <u0046
+         clra  
+         clrb  
+         pshu  x,b,a
+         inca  
+         sta   <u0035
+         bsr   L0391
+         clr   <u0035
+         rts   
+L037D    comb  
+         ldb   #$2B
+         rts   
+L0381    ldy   <u0082
+         lda   #$2A
+         sta   ,y
+         sta   <u0035
+         lbsr  L028D
+         clr   <u002F
+         clr   <u0030
+L0391    ldu   <u0046
+         stu   <u0044
+         bra   L03A7
+L0397    ldx   ,x
+         pshs  u
+         leau  ,x
+         os9   F$UnLink 
+         puls  u
+         ldd   #$FFFF
+         std   [,u]
+L03A7    ldx   ,--u
+         bne   L0397
+         ldx   <u0004
+         tfr   x,y
+L03AF    ldd   ,x++
+         cmpd  #$FFFF
+         beq   L03AF
+L03B7    std   ,y++
+         bne   L03AF
+         cmpd  ,y
+         bne   L03B7
+         rts   
+L03C1    ldb   #$20
+         lbra  L0262
+L03C6    pshs  u,y
+         ldx   <u0004
+L03CA    ldy   ,s
+         ldu   ,x++
+         beq   L03E6
+         ldd   u0004,u
+         leau  d,u
+L03D5    lda   ,y+
+         eora  ,u+
+         anda  #$DF
+         bne   L03CA
+         clra  
+         tst   -u0001,u
+         bpl   L03D5
+L03E2    leax  -$02,x
+         puls  pc,u,b,a
+L03E6    coma  
+         bra   L03E2
+L03E9    bsr   L03C6
+         bcs   L03EE
+         rts   
+L03EE    pshs  u,y,x
+         ldb   $01,s
+         cmpb  #$FE
+         beq   L03C1
+         leax  ,y
+         clra  
+         clrb  
+         os9   F$Link   
+         bcc   L0408
+         ldx   $02,s
+         clra  
+         clrb  
+         os9   F$Load   
+         bcs   L040C
+L0408    stx   $02,s
+         stu   [,s]
+L040C    puls  pc,u,y,x
+L040E    os9   F$PErr   
+         rts   
+         pshs  b,a
+         bra   L0426
+L0416    pshs  y,x
+L0418    lda   ,x+
+         cmpa  #$FF
+         beq   L042E
+         cmpa  ,y+
+         beq   L0418
+         puls  y,x
+         leay  $01,y
+L0426    cmpy  ,s
+         bls   L0416
+         coma  
+         puls  pc,b,a
+L042E    puls  y,x
+         clra  
+L0431    puls  pc,b,a
+         pshs  x,b,a
+L0435    leax  <L0442,pcr
+         lda   ,y+
+L043A    cmpa  ,x++
+         bcs   L043A
+         ldb   ,-x
+         jmp   b,x
+L0442    sbcb  >$1792
+         daa   
+         cmpa  <u0013
+         suba  <u0017
+         fcb   $8F 
+         tst   <u008E
+         tst   <u008D
+         tst   <u0055
+         rol   <u004B
+         tim   #$3E,<u0011
+         neg   <u0007
+         leay  $03,y
+         leay  $01,y
+         leay  $01,y
+         bra   L0435
+L0460    tst   ,y+
+         bpl   L0460
+         bra   L0435
+         puls  pc,x,b,a
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L0478,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L0478    neg   <u0095
+         oim   #$AA,<u0002
+         leax  $02,x
+         jmp   <u009D
+         fcb   $1B 
+         aim   #$9D,<u001B
+         lsr   <u009D
+         fcb   $1B 
+         ror   <u009D
+         bpl   L048C
+L048C    neg   <u0007
+         com   <u00CB
+         fcb   $4B K
+         inc   <u00AC
+         addb  #$4D
+         inc   <u00A8
+         addb  #$4E
+         inc   <u00A9
+         andb  <u0089
+         inc   <u00AE
+         brn   L0431
+         ror   <u00A2
+         neg   <u0091
+         ror   <u00A4
+         addb  #$3F
+         aim   #$8D,<u0096
+         tim   #$34,<u0002
+         ldx   <u00A7
+         lda   #$0D
+L04B3    lsl   ,x
+         lsr   ,x
+         cmpa  ,x+
+         bne   L04B3
+         ldx   <u00A7
+         bsr   L04F5
+         ldd   <u00B9
+         subd  <u00A7
+         pshs  b
+         ldx   <u00AF
+         stx   <u00AB
+         ldy   <u00A7
+         lda   #$3D
+         lbsr  L0607
+         lda   #$3F
+         lbsr  L0607
+         lda   #$20
+         ldx   <u0080
+L04DA    sta   ,x+
+         dec   ,s
+         bpl   L04DA
+         ldd   #$5E0D
+         std   -$01,x
+         ldx   <u0080
+         bsr   L04F5
+         puls  b,a
+         lbsr  L0480
+         ldx   <u0046
+         stx   <u0044
+         lbra  L0486
+L04F5    ldy   #$0100
+         lda   <u002E
+         os9   I$WritLn 
+         rts   
+L04FF    sty   <u00A7
+         ldx   <u004A
+         stx   <u00AF
+         stx   <u00AB
+         clr   <u00BB
+         clr   <u00BC
+         rts   
+         bsr   L04FF
+         inc   <u00A0
+         lbsr  L0542
+         bsr   L0523
+         clr   <u00A0
+         lda   <u00A3
+         cmpa  #$3F
+         lbne  L04AB
+L0520    lbra  L0607
+L0523    cmpa  #$4D
+         bne   L0541
+L0527    bsr   L0520
+         ldd   <u00AB
+         lbsr  L056B
+         ldb   <u00A4
+         cmpb  #$06
+         bne   L0541
+         lbsr  L0542
+         lbsr  L054C
+         beq   L0527
+         pshs  a
+         lbra  L055D
+L0541    rts   
+L0542    lbsr  L056B
+         ldx   <u00AD
+         stx   <u00AB
+         lda   <u00A3
+         rts   
+L054C    lda   <u00A3
+         cmpa  #$4B
+         rts   
+L0551    rts   
+L0552    lda   <u00A3
+         cmpa  #$4E
+         beq   L0551
+         lda   #$25
+L055A    lbra  L04AD
+L055D    bsr   L0552
+         puls  a
+         lbsr  L0607
+         lbra  L0542
+L0567    lda   #$0A
+         bra   L055A
+L056B    ldd   <u00AB
+         std   <u00AD
+         lbsr  L064F
+         sty   <u00B9
+         lda   ,y
+         lbsr  L0660
+         bcc   L05A0
+         leax  >L048F,pcr
+         lda   #$80
+         lbsr  L06A8
+         beq   L0567
+         ldb   ,x
+         leau  <L05C3,pcr
+         jmp   b,u
+L058E    ldd   $01,x
+         stb   <u00A4
+         sta   <u00A3
+         lbra  L0607
+         lda   ,y
+         lbsr  L0660
+         bcs   L058E
+         leay  -$01,y
+L05A0    bsr   L05CC
+         bne   L05B5
+         ldd   #$8F05
+L05A7    sta   <u00A3
+L05A9    bsr   L05FC
+         lda   ,x+
+         decb  
+         bpl   L05A9
+         lda   #$06
+         sta   <u00A4
+         rts   
+L05B5    ldd   #$8E02
+         tst   ,x
+         bne   L05A7
+         ldd   #$8D01
+         leax  $01,x
+         bra   L05A7
+L05C3    leay  -$01,y
+         bsr   L05CC
+         ldd   #$9102
+         bra   L05A7
+L05CC    lbsr  L064F
+         leax  ,y
+         ldy   <u0044
+         lbsr  L0489
+         exg   x,y
+         bcs   L05E0
+         lda   ,x+
+         cmpa  #$02
+         rts   
+L05E0    lda   #$16
+         bra   L0600
+         bsr   L058E
+         bra   L05EA
+L05E8    bsr   L0607
+L05EA    lda   ,y+
+         cmpa  #$0D
+         beq   L05FE
+         cmpa  #$22
+         bne   L05E8
+         cmpa  ,y+
+         beq   L05E8
+         leay  -$01,y
+         lda   #$FF
+L05FC    bra   L0607
+L05FE    lda   #$29
+L0600    lbra  L04AD
+         lda   #$31
+         bra   L0600
+L0607    pshs  x,b,a
+         ldx   <u00AB
+         sta   ,x+
+         stx   <u00AB
+         ldd   <u00AB
+         subd  <u004A
+         cmpb  #$FF
+         bcc   L061A
+         clra  
+         puls  pc,x,b,a
+L061A    lda   #$0D
+         lbsr  L0480
+         lbra  L0486
+         bsr   L064F
+         pshs  y
+         ldb   #$02
+         stb   <u00A5
+         clrb  
+         bsr   L066A
+         bcs   L064B
+         leay  $01,y
+L0631    incb  
+         lda   ,y+
+         bsr   L065C
+         bcc   L0631
+         cmpa  #$24
+         bne   L0643
+         incb  
+         leay  $01,y
+         lda   #$04
+         sta   <u00A5
+L0643    leay  -$01,y
+         lda   #$80
+         ora   -$01,y
+         sta   -$01,y
+L064B    stb   <u00A6
+         puls  pc,y
+L064F    lda   ,y+
+         cmpa  #$20
+         beq   L064F
+         cmpa  #$0A
+         beq   L064F
+         leay  -$01,y
+         rts   
+L065C    bsr   L066A
+         bcc   L0685
+L0660    cmpa  #$30
+         bcs   L0685
+         cmpa  #$39
+         bls   L0683
+         bra   L0680
+L066A    anda  #$7F
+         cmpa  #$41
+         bcs   L0685
+         cmpa  #$5A
+         bls   L0683
+         cmpa  #$5F
+         beq   L0685
+         cmpa  #$61
+         bcs   L0685
+         cmpa  #$7A
+         bls   L0683
+L0680    orcc  #$01
+         rts   
+L0683    andcc #$FE
+L0685    rts   
+         pshs  x,b,a
+         leax  d,u
+         pshs  x
+L068C    bitb  #$03
+         beq   L069D
+         lda   ,u+
+         sta   ,y+
+         decb  
+         bra   L068C
+L0697    pulu  x,b,a
+         std   ,y++
+         stx   ,y++
+L069D    cmpu  ,s
+         bcs   L0697
+         clr   ,s++
+         puls  pc,x,b,a
+         lda   #$20
+L06A8    pshs  u,y,x,a
+         ldu   -$03,x
+         ldb   -$01,x
+L06AE    stx   $01,s
+         cmpu  #$0000
+         beq   L06D6
+         leau  -u0001,u
+         ldy   $03,s
+         leax  b,x
+L06BD    lda   ,x+
+         eora  ,y+
+         beq   L06CF
+         cmpa  ,s
+         beq   L06CF
+         leax  -$01,x
+L06C9    lda   ,x+
+         bpl   L06C9
+         bra   L06AE
+L06CF    tst   -$01,x
+         bpl   L06BD
+         sty   $03,s
+L06D6    puls  pc,u,y,x,a
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L06E8,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L06E8    neg   <u0002
+         rts   
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L06FB,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L06FB    rol   <u00DA
+         neg   <u00D9
+         rol   <u003A
+         asr   <u00E1
+         oim   #$9C,<u0008
+         lsra  
+         lsl   <u004E
+L0709    jsr   <u001B
+         ror   <u009D
+         fcb   $1B 
+         inc   <u009D
+         fcb   $1B 
+         jmp   <u009D
+         fcb   $1B 
+         aim   #$9D,<u001B
+         neg   <u009D
+         fcb   $1B 
+         dec   <u009D
+         fcb   $1B 
+         fcb   $10 
+L071E    jsr   <u001E
+         ror   <u009D
+         beq   L0728
+L0724    jsr   <u0027
+         dec   <u009D
+L0728    beq   L072C
+L072A    jsr   <u0027
+L072C    inc   <u009D
+         beq   L073E
+L0730    jsr   <u0027
+         neg   <u009D
+         bpl   L0738
+L0736    asr   <u00F1
+L0738    asr   <u00F1
+         asr   <u00F1
+         asr   <u00F1
+L073E    asr   <u00F1
+         com   <u008C
+         com   <u009D
+         lsl   <u0009
+         lsl   <u0013
+         com   <u00A0
+         asr   <u00FD
+         lsl   <u0001
+         com   <u00C4
+         oim   #$61,<u0002
+         orb   <u0003
+         clr   >$016F
+         oim   #$7F,<u0001
+         lda   #$02
+         ora   <u0001
+         ora   <u0001
+         adca  #$01
+         clr   >$0161
+         oim   #$89,<u0001
+         oim   #$01,-$01,s
+         oim   #$89,<u0001
+         clr   >$03DD
+         asr   <u00A2
+         asr   <u00F9
+         oim   #$7F,<u0007
+         adcb  >$03A4
+         lsl   <u002A
+         rol   <u0093
+         lsr   <u0099
+         ror   <u0001
+         asr   <u0028
+         asr   <u0035
+         lsr   <u0033
+         lsr   <u003C
+         lsr   <u006A
+         eim   #$76,<u0006
+         bsr   L0799
+         sbcb  #$06
+         adcb  #$06
+         bitb  >$0702
+         asr   <u001B
+         asr   <u004B
+         asr   <u0067
+         asr   <u00DD
+         asr   <u00E0
+         asr   <u00E8
+         asr   <u00E8
+         oim   #$4A,<u0001
+         clrb  
+         oim   #$5F,<u0007
+         ldu   $07,x
+         adcb  >$015E
+         oim   #$5E,<u0002
+         ldu   >$030D
+         com   <u001C
+         aim   #$FE,<u0003
+         puls  a,cc
+         lsl   -u000D,u
+         lsrb  
+         clra  
+         negb  
+         bra   L080D
+         jmp   $03,s
+         clr   -$0B,s
+         jmp   -$0C,s
+         eim   #$72,$05,s
+         lsr   $0A,x
+         stu   >$A688
+         lbsr  L8CDA
+         beq   L07DF
+         ldb   #$33
+         bra   L07FB
+L07DF    tfr   s,d
+         subd  #$0100
+         cmpd  <u0080
+         bcc   L07ED
+         ldb   #$39
+         bra   L07FB
+L07ED    ldd   <u000C
+         subd  $0B,x
+         bcs   L07F9
+         cmpd  #$0100
+         bcc   L07FE
+L07F9    ldb   #$20
+L07FB    lbra  L0EDC
+L07FE    std   <u000C
+         tfr   y,d
+         subd  $0B,x
+         exg   d,u
+         sts   u0005,u
+         std   u0007,u
+         stx   u0003,u
+L080D    ldd   #$0001
+         std   <u0042
+         sta   u0001,u
+         sta   <u0013,u
+         stu   <u0014,u
+         bsr   L0848
+         ldd   <$13,x
+         beq   L0823
+         addd  <u005E
+L0823    std   <u0039
+         ldd   $0B,x
+         leay  d,u
+         pshs  y
+         ldd   <$11,x
+         leay  d,u
+         clra  
+         clrb  
+         bra   L0836
+L0834    std   ,y++
+L0836    cmpy  ,s
+         bcs   L0834
+         leas  $02,s
+         ldx   <u002F
+         ldd   <u005E
+         addd  <$15,x
+         tfr   d,x
+         bra   L087A
+L0848    stx   <u002F
+         stu   <u0031
+         ldd   $0D,x
+         addd  <u002F
+         std   <u0062
+         ldd   $0F,x
+         addd  <u002F
+         std   <u0066
+         std   <u0060
+         ldd   $09,x
+         addd  <u002F
+         std   <u005E
+         ldd   <u0014,u
+         std   <u0046
+         std   <u0044
+         rts   
+L0868    stx   <u005C
+         lda   <u0034
+         beq   L0878
+         bpl   L0878
+         anda  #$7F
+         sta   <u0034
+         ldb   <u0035
+         bra   L07FB
+L0878    bsr   L0897
+L087A    cmpx  <u0060
+         bcs   L0868
+         bra   L088A
+         ldb   ,x
+         lbsr  L0D30
+         beq   L088A
+         lbsr  L0D37
+L088A    lbsr  L0F49
+         ldu   <u0031
+         lds   u0005,u
+         ldu   u0007,u
+L0894    rts   
+         leax  $02,x
+L0897    ldb   ,x+
+         bpl   L089D
+         addb  #$40
+L089D    lslb  
+         clra  
+         ldu   <u000E
+         ldd   d,u
+         jmp   d,u
+         jsr   <u0016
+         tst   $02,y
+         beq   L08B5
+         leax  $03,x
+         ldb   ,x
+         cmpb  #$3B
+         bne   L0894
+         leax  $01,x
+L08B5    ldd   ,x
+         addd  <u005E
+         tfr   d,x
+         rts   
+         leax  $01,x
+         rts   
+         jsr   <u0016
+         tst   $02,y
+         beq   L08B5
+         leax  $03,x
+         rts   
+L08C8    neg   <u0026
+         neg   <u003F
+         neg   <u007B
+         neg   <u00C6
+         leay  <L08C8,pcr
+L08D3    ldb   ,x+
+         lslb  
+         ldd   b,y
+         ldu   <u0031
+         jmp   d,y
+         ldd   ,x
+         leay  d,u
+         bra   L08F9
+         ldd   ,x
+         leay  d,u
+         ldd   $04,x
+         lda   d,u
+         bpl   L08F9
+         bra   L0919
+         ldd   ,x
+         leay  d,u
+         ldd   ,y
+         addd  #$0001
+         std   ,y
+L08F9    ldd   $02,x
+         leax  $06,x
+         ldd   d,u
+         cmpd  ,y
+         bge   L08B5
+         leax  $03,x
+         rts   
+         ldd   ,x
+         leay  d,u
+         ldd   $04,x
+         ldd   d,u
+         pshs  a
+         addd  ,y
+         std   ,y
+         tst   ,s+
+         bpl   L08F9
+L0919    ldd   $02,x
+         leax  $06,x
+         ldd   d,u
+         cmpd  ,y
+         ble   L08B5
+         leax  $03,x
+         rts   
+         ldy   <u0046
+         clrb  
+         bsr   L0977
+         bra   L0967
+         ldy   <u0046
+         clrb  
+         bsr   L0977
+         ldd   $04,x
+         addd  #$0004
+         ldu   <u0031
+         lda   d,u
+         lsra  
+         bcc   L0967
+         bra   L09B5
+         ldy   <u0046
+         clrb  
+         bsr   L0977
+         leay  -$06,y
+         ldd   #$0180
+         std   $01,y
+         clra  
+         clrb  
+         std   $03,y
+         sta   $05,y
+         lbsr  L0721
+         bsr   L09C5
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+L0967    ldb   #$02
+         bsr   L0977
+         leax  $06,x
+         lbsr  L0724
+         lble  L08B5
+         leax  $03,x
+         rts   
+L0977    ldd   b,x
+         addd  <u0031
+         tfr   d,u
+         leay  -$06,y
+         lda   #$02
+         ldb   ,u
+         std   ,y
+         ldd   u0001,u
+         std   $02,y
+         ldd   u0003,u
+         std   $04,y
+         rts   
+         ldy   <u0046
+         clrb  
+         bsr   L0977
+         stu   <u00D2
+         ldb   #$04
+         bsr   L0977
+         lda   u0004,u
+         sta   <u00D1
+         lbsr  L0721
+         bsr   L09C5
+         ldu   <u00D2
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+         lsr   <u00D1
+         bcc   L0967
+L09B5    ldb   #$02
+         bsr   L0977
+         leax  $06,x
+         lbsr  L0724
+         lbge  L08B5
+         leax  $03,x
+         rts   
+L09C5    ldb   <u0034
+         rts   
+L09C8    stu   >$14FF
+         orcc  #$FF
+         clrb  
+         stu   >$67E6
+         suba  #$C1
+         sbca  #$27
+         bhi   L0964
+         tim   #$8D,-$0F,x
+         ldb   -$01,x
+         cmpb  #$47
+         bne   L09E2
+         bsr   L09EB
+L09E2    lbsr  L08B5
+         leay  <L09C8,pcr
+         lbra  L08D3
+L09EB    ldd   ,x++
+         addd  <u0031
+         pshs  b,a
+         jsr   <u0016
+         ldd   $01,y
+         std   [,s++]
+         rts   
+         bsr   L0A52
+         bsr   L0A06
+         ldb   -$01,x
+         cmpb  #$47
+         bne   L09E2
+         bsr   L0A06
+         bra   L09E2
+L0A06    ldd   ,x++
+         addd  <u0031
+         pshs  b,a
+         jsr   <u0016
+         bra   L0A5C
+         jsr   <u0016
+L0A12    cmpa  #$04
+         bcs   L0A1A
+         pshs  u
+         ldu   <u003E
+L0A1A    pshs  u,a
+         leax  $01,x
+         jsr   <u0016
+L0A20    puls  a
+         lsla  
+         leau  <L0A28,pcr
+         jmp   a,u
+L0A28    bra   L0A3E
+         bra   L0A4D
+         bra   L0A5C
+         bra   L0A3E
+         bra   L0A7F
+         bra   L0AA4
+         ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L0A3E    ldb   $02,y
+         stb   [,s++]
+         rts   
+         ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L0A4D    ldd   $01,y
+         std   [,s++]
+         rts   
+L0A52    ldd   ,x
+         addd  <u0031
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L0A5C    puls  u
+         ldd   $01,y
+         std   ,u
+         ldd   $03,y
+         std   u0002,u
+         lda   $05,y
+         sta   u0004,u
+         rts   
+         ldd   ,x
+         addd  <u0066
+         tfr   d,u
+         ldd   ,u
+         addd  <u0031
+         pshs  b,a
+         ldd   u0002,u
+         pshs  b,a
+         leax  $03,x
+         jsr   <u0016
+L0A7F    puls  u,b,a
+         tstb  
+         bne   L0A85
+         deca  
+L0A85    sta   <u003E
+         ldy   $01,y
+         sty   <u0048
+L0A8D    lda   ,y+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L0A9C
+         decb  
+         bne   L0A8D
+         dec   <u003E
+         bpl   L0A8D
+L0A9C    clra  
+         rts   
+         lbsr  L0727
+         lbra  L0A12
+L0AA4    puls  u,b,a
+         cmpd  $03,y
+         bls   L0AAD
+         ldd   $03,y
+L0AAD    ldy   $01,y
+         exg   y,u
+         lbra  L071E
+         jsr   <u0016
+         ldd   $01,y
+         pshs  b,a
+         jsr   <u0016
+         ldb   $02,y
+         stb   [,s++]
+         rts   
+         lbsr  L0D37
+         lda   <u002E
+         sta   <u007F
+         leax  >L07C2,pcr
+         lbsr  L0C40
+         lbra  L0709
+         lbra  L070C
+         lbsr  L0D37
+         rts   
+         ldd   ,x
+         leax  $03,x
+L0ADE    ldy   <u0031
+         ldu   <$14,y
+         cmpu  <u004A
+         bhi   L0AEE
+         ldb   #$35
+         lbra  L0EDC
+L0AEE    stx   ,--u
+         stu   <$14,y
+         stu   <u0046
+         addd  <u005E
+         tfr   d,x
+         rts   
+         ldy   <u0031
+         cmpy  <$14,y
+         bhi   L0B08
+         ldb   #$36
+         lbra  L0EDC
+L0B08    ldu   <$14,y
+         ldx   ,u++
+         stu   <$14,y
+         stu   <u0046
+         rts   
+         ldd   ,x
+         cmpa  #$1E
+         beq   L0B4E
+         jsr   <u0016
+         ldd   ,x
+         lslb  
+         rola  
+         lslb  
+         rola  
+         addd  #$0002
+         leau  d,x
+         pshs  u
+         ldd   $01,y
+         ble   L0B4C
+         cmpd  ,x++
+         bhi   L0B4C
+         subd  #$0001
+         lslb  
+         rola  
+         lslb  
+         rola  
+         addd  #$0001
+         ldd   d,x
+         pshs  b,a
+         ldb   ,x
+         cmpb  #$22
+         puls  x,b,a
+         beq   L0ADE
+         addd  <u005E
+         tfr   d,x
+         rts   
+L0B4C    puls  pc,x
+L0B4E    ldu   <u0031
+         cmpb  #$20
+         bne   L0B63
+         ldd   $02,x
+         addd  <u005E
+         std   <u0011,u
+         lda   #$01
+         sta   <u0013,u
+         leax  $05,x
+         rts   
+L0B63    clr   <u0013,u
+         leax  $02,x
+         rts   
+         bsr   L0B87
+         ldb   #$0B
+         os9   I$Create 
+         bra   L0B77
+         bsr   L0B87
+         os9   I$Open   
+L0B77    lbcs  L0EDC
+         puls  u,b
+         cmpb  #$01
+         bne   L0B83
+         clr   ,u+
+L0B83    sta   ,u
+         puls  pc,x
+L0B87    leax  $01,x
+         lbsr  L0C5A
+         leax  $01,x
+         jsr   <u0016
+         lda   #$03
+         cmpb  #$4A
+         bne   L0B98
+         lda   ,x++
+L0B98    ldu   $03,s
+         stx   $03,s
+         ldx   $01,y
+         jmp   ,u
+         lbsr  L0C97
+         jsr   <u0016
+         ldb   #$0E
+         lbsr  L0733
+         lbcs  L0EDE
+         rts   
+L0BAF    swi   
+         fcb   $20 
+         stu   >$2A2A
+         bra   L0BFF
+         jmp   -$10,s
+         eim   #$74,>$2065
+         aim   #$72,>$6F72
+         bra   L0BEF
+         bra   L0C36
+         eim   #$65,$0E,s
+         lsr   >$6572
+         bra   L0BF6
+         bpl   L0BDB
+         stu   >$962E
+         lbsr  L0C97
+         lda   #$2C
+         sta   <u00DD
+         pshs  x
+L0BDA    ldx   ,s
+         ldb   ,x
+         cmpb  #$90
+         bne   L0BEA
+         jsr   <u0016
+         pshs  x
+         ldx   $01,y
+         bra   L0BEF
+L0BEA    pshs  x
+         leax  <L0BAF,pcr
+L0BEF    bsr   L0C40
+         puls  x
+         lda   <u007F
+         cmpa  <u002E
+         bne   L0BFD
+         lda   <u002D
+         sta   <u007F
+L0BFD    ldb   #$06
+L0BFF    lbsr  L0733
+         bcc   L0C11
+         cmpb  #$03
+         lbne  L0EDE
+         lbsr  L0F04
+         clr   <u0036
+         bra   L0BDA
+L0C11    bsr   L0C24
+         bcc   L0C1C
+         leax  <L0BB2,pcr
+         bsr   L0C40
+         bra   L0BDA
+L0C1C    ldb   ,x+
+         cmpb  #$4B
+         beq   L0C11
+         puls  pc,b,a
+L0C24    bsr   L0C5A
+         ldb   ,s
+         addb  #$07
+         ldy   <u0046
+         lbsr  L0733
+         lbcc  L0A20
+         lda   ,s
+L0C36    cmpa  #$04
+         bcs   L0C3C
+         leas  $02,s
+L0C3C    leas  $03,s
+         coma  
+         rts   
+L0C40    pshs  y
+         leas  -$06,s
+         leay  ,s
+         stx   $01,y
+         ldd   <u0080
+         std   <u0082
+         ldb   #$05
+         lbsr  L0733
+         ldb   #$00
+         lbsr  L0733
+         leas  $06,s
+         puls  pc,y
+L0C5A    lda   ,x+
+         cmpa  #$0E
+         bne   L0C64
+         jsr   <u0016
+         bra   L0C89
+L0C64    suba  #$80
+         cmpa  #$04
+         bcs   L0C7F
+         beq   L0C71
+         lbsr  L0727
+         bra   L0C89
+L0C71    ldd   ,x++
+         addd  <u0066
+         tfr   d,u
+         ldd   u0002,u
+         std   <u003E
+         ldd   ,u
+         bra   L0C81
+L0C7F    ldd   ,x++
+L0C81    addd  <u0031
+         tfr   d,u
+         lda   -$03,x
+         suba  #$80
+L0C89    puls  y
+         cmpa  #$04
+         bcs   L0C93
+         pshs  u
+         ldu   <u003E
+L0C93    pshs  u,a
+         jmp   ,y
+L0C97    ldb   ,x
+         cmpb  #$54
+         bne   L0CA9
+         leax  $01,x
+         jsr   <u0016
+         cmpb  #$4B
+         beq   L0CA7
+         leax  -$01,x
+L0CA7    lda   $02,y
+L0CA9    sta   <u007F
+         rts   
+         ldb   ,x
+         cmpb  #$54
+         bne   L0CD6
+         bsr   L0C97
+         clr   <u00DD
+         cmpb  #$4B
+         bne   L0CBC
+         leax  -$01,x
+L0CBC    ldb   #$06
+         lbsr  L0733
+         bcc   L0CCF
+         cmpb  #$E4
+         beq   L0CBC
+L0CC7    lbra  L0EDE
+L0CCA    lbsr  L0C24
+         bcs   L0CC7
+L0CCF    ldb   ,x+
+         cmpb  #$4B
+         beq   L0CCA
+         rts   
+L0CD6    bsr   L0D30
+         beq   L0D13
+L0CDA    bsr   L0CE3
+         ldb   ,x+
+         cmpb  #$4B
+         beq   L0CDA
+         rts   
+L0CE3    lbsr  L0C5A
+         bsr   L0D15
+         lda   ,s
+         bne   L0CED
+         inca  
+L0CED    cmpa  ,y
+         lbeq  L0A20
+         cmpa  #$02
+         bcs   L0CFD
+         beq   L0D09
+L0CF9    ldb   #$47
+         bra   L0D1D
+L0CFD    lda   ,y
+         cmpa  #$02
+         bne   L0CF9
+         lbsr  L072A
+         lbra  L0A20
+L0D09    cmpa  ,y
+         bcs   L0CF9
+         lbsr  L072D
+         lbra  L0A20
+L0D13    leax  $01,x
+L0D15    pshs  x
+         ldx   <u0039
+         bne   L0D20
+         ldb   #$4F
+L0D1D    lbra  L0EDC
+L0D20    jsr   <u0016
+         cmpb  #$4B
+         beq   L0D2C
+         ldd   ,x
+         addd  <u005E
+         tfr   d,x
+L0D2C    stx   <u0039
+         puls  pc,x
+L0D30    cmpb  #$3F
+         beq   L0D36
+         cmpb  #$3E
+L0D36    rts   
+L0D37    lda   <u002E
+         lbsr  L0C97
+         ldd   <u0080
+         std   <u0082
+         ldb   ,x+
+         cmpb  #$49
+         beq   L0D84
+L0D46    bsr   L0D30
+         beq   L0D6C
+L0D4A    cmpb  #$4B
+         beq   L0D60
+         cmpb  #$51
+         beq   L0D64
+         leax  -$01,x
+         jsr   <u0016
+         ldb   ,y
+         addb  #$01
+         bsr   L0D7C
+         ldb   -$01,x
+         bra   L0D46
+L0D60    ldb   #$0D
+         bsr   L0D7C
+L0D64    ldb   ,x+
+         bsr   L0D30
+         bne   L0D4A
+         bra   L0D70
+L0D6C    ldb   #$0C
+         bsr   L0D7C
+L0D70    ldb   #$00
+         bsr   L0D7C
+         lda   <u00DE
+         clr   <u00DE
+         tsta  
+         bne   L0D81
+L0D7B    rts   
+L0D7C    lbsr  L0733
+         bcc   L0D7B
+L0D81    lbra  L0EDE
+L0D84    jsr   <u0016
+         ldd   <u004A
+         std   <u008E
+         std   <u008C
+         ldu   <u0046
+         pshs  u,b,a
+         clr   <u0094
+         ldd   <u0048
+         std   <u004A
+L0D96    ldb   -$01,x
+         bsr   L0D30
+         beq   L0DB8
+         ldb   ,x+
+         bsr   L0D30
+         beq   L0DB3
+         leax  -$01,x
+         ldb   #$11
+         lbsr  L0733
+         bcc   L0D96
+         puls  u,b,a
+         std   <u004A
+         stu   <u0046
+         bra   L0D81
+L0DB3    leay  <L0D70,pcr
+         bra   L0DBB
+L0DB8    leay  <L0D6C,pcr
+L0DBB    puls  u,b,a
+         std   <u004A
+         stu   <u0046
+         jmp   ,y
+         lda   <u002E
+         lbsr  L0C97
+         ldu   <u0080
+         stu   <u0082
+         ldb   ,x+
+         lbsr  L0D30
+         beq   L0DF5
+         cmpb  #$4B
+         beq   L0DE3
+         leax  -$01,x
+         bra   L0DE3
+L0DDB    clra  
+         ldb   #$12
+         lbsr  L0733
+         bcs   L0D81
+L0DE3    jsr   <u0016
+         ldb   ,y
+         addb  #$01
+         lbsr  L0733
+         bcs   L0D81
+         ldb   -$01,x
+         lbsr  L0D30
+         bne   L0DDB
+L0DF5    lbra  L0D6C
+         bsr   L0E0B
+         os9   I$Read   
+         bra   L0E04
+         bsr   L0E0B
+         os9   I$Write  
+L0E04    leax  ,u
+         bcc   L0E2A
+L0E08    lbra  L0EDC
+L0E0B    lbsr  L0C97
+         lbsr  L0C5A
+         leau  ,x
+         puls  a
+         cmpa  #$04
+         bcc   L0E24
+         leax  >L1031,pcr
+         ldb   a,x
+         clra  
+         tfr   d,y
+         bra   L0E26
+L0E24    puls  y
+L0E26    puls  x
+         lda   <u007F
+L0E2A    rts   
+L0E2B    lbsr  L0C97
+         os9   I$Close  
+         bcs   L0E08
+         cmpb  #$4B
+         beq   L0E2B
+         rts   
+         ldb   ,x+
+         cmpb  #$3B
+         beq   L0E48
+         ldu   <u002F
+         ldd   <u0013,u
+L0E43    addd  <u005E
+         std   <u0039
+         rts   
+L0E48    ldd   ,x
+         addd  #$0001
+         leax  $03,x
+         bra   L0E43
+         jsr   <u0016
+         pshs  x
+         ldx   $01,y
+         os9   I$Delete 
+L0E5A    bcs   L0E08
+         puls  pc,x
+         jsr   <u0016
+         lda   #$03
+L0E62    pshs  x
+         ldx   $01,y
+         os9   I$ChgDir 
+         bra   L0E5A
+         jsr   <u0016
+         lda   #$04
+         bra   L0E62
+         lbsr  L0C5A
+         ldy   <u0046
+         leay  -$06,y
+         ldb   <u007F
+         clra  
+         std   $01,y
+         lbra  L0A20
+         jsr   <u0016
+         ldy   $01,y
+         pshs  u,y,x
+         lbsr  L070F
+         puls  u,y,x
+         bsr   L0EC1
+         sts   <u00B1
+         lds   <u0080
+         os9   F$Chain  
+         lds   <u00B1
+         bra   L0EDC
+         jsr   <u0016
+         pshs  u,x
+         ldy   $01,y
+         bsr   L0EC1
+         os9   F$Fork   
+         bcs   L0EDC
+         pshs  a
+L0EAD    os9   F$Wait   
+         cmpa  ,s
+         bne   L0EAD
+         leas  $01,s
+         tstb  
+         bne   L0EDC
+         puls  pc,u,x
+L0EBB    comb  
+         lsla  
+         fcb   $45 E
+         inca  
+         inca  
+         tst   <u009E
+         lsla  
+         lda   #$0D
+         sta   -$01,x
+         tfr   x,d
+         leax  >L0EBB,pcr
+         leau  ,y
+         pshs  y
+         subd  ,s++
+         tfr   d,y
+         clra  
+         clrb  
+         rts   
+         jsr   <u0016
+         ldb   $02,y
+L0EDC    stb   <u0036
+L0EDE    ldu   <u0031
+         beq   L0EFC
+         tst   <u0013,u
+         beq   L0EF5
+         lds   u0005,u
+         ldx   <u0011,u
+         ldd   <u0014,u
+         std   <u0046
+         lbra  L0868
+L0EF5    bsr   L0F04
+         bsr   L0F49
+         lbra  L0709
+L0EFC    lbsr  L0712
+         lbra  L0709
+L0F02    jmp   <u00FF
+L0F04    leax  <L0F02,pcr
+         lbsr  L0C40
+         lbsr  L070F
+         ldb   <u0036
+         os9   F$Exit   
+         rts   
+         clrb  
+         bra   L0F18
+         ldb   #$01
+L0F18    clra  
+         std   <u0042
+         leax  $01,x
+         rts   
+         ldb   ,x+
+         clra  
+         leax  d,x
+         rts   
+         exg   x,pc
+         rts   
+         leay  ,x
+         lbsr  L071B
+         leax  ,y
+         rts   
+         ldb   #$33
+         bra   L0EDC
+         lda   #$01
+         bra   L0F38
+         clra  
+L0F38    ldu   <u0031
+         sta   u0001,u
+         leax  $01,x
+         rts   
+L0F3F    lda   <u0034
+         bita  #$01
+         bne   L0F5F
+         ora   #$01
+         bra   L0F51
+L0F49    lda   <u0034
+         bita  #$01
+         beq   L0F5F
+         anda  #$FE
+L0F51    sta   <u0034
+         ldd   <u0017
+         pshs  b,a
+         ldd   <u0019
+         std   <u0017
+         puls  b,a
+         std   <u0019
+L0F5F    rts   
+         lbsr  L0727
+         pshs  x
+         ldb   <u00CF
+         cmpb  #$A0
+         beq   L0F8C
+         ldy   <u0048
+         ldx   <u003E
+L0F70    lda   ,u+
+         leax  -$01,x
+         beq   L0F7E
+         sta   ,y+
+         cmpa  #$FF
+         bne   L0F70
+         lda   ,--y
+L0F7E    ora   #$80
+         sta   ,y
+         ldy   <u0048
+         lbsr  L0715
+         bcs   L0FCA
+         leau  ,x
+L0F8C    ldd   ,u
+         bne   L0F9E
+         ldy   <u00D2
+         leay  $03,y
+         lbsr  L0715
+         bcs   L0FCA
+         ldd   ,x
+         std   ,u
+L0F9E    ldx   ,s
+         std   ,s
+         ldu   <u0031
+         lda   <u0034
+         sta   ,u
+         ldb   <u0043
+         stb   u0002,u
+         ldd   <u004A
+         std   u000D,u
+         ldd   <u0040
+         std   u000F,u
+         ldd   <u0039
+         std   u0009,u
+         bsr   L1035
+         stx   u000B,u
+         puls  x
+         lda   $06,x
+         beq   L0FF9
+         cmpa  #$22
+         beq   L0FF9
+         cmpa  #$21
+         beq   L0FCF
+L0FCA    ldb   #$2B
+L0FCC    lbra  L0EDC
+L0FCF    ldd   u0005,u
+         pshs  b,a
+         sts   u0005,u
+         leas  ,y
+         ldd   <u0040
+         pshs  y
+         subd  ,s++
+         lsra  
+         rorb  
+         lsra  
+         rorb  
+         pshs  b,a
+         ldd   $09,x
+         leay  >L07D4,pcr
+         jsr   d,x
+         ldu   <u0031
+         lds   u0005,u
+         puls  x
+         stx   u0005,u
+         bcc   L1012
+         bra   L0FCC
+L0FF9    lbsr  L0F49
+         lda   <u0034
+         anda  #$7F
+         sta   <u0034
+         lbsr  L07D4
+         lda   ,u
+         bita  #$01
+         beq   L1012
+         lbsr  L0F3F
+         lda   ,u
+         sta   <u0034
+L1012    ldd   u000D,u
+         std   <u004A
+         ldd   u000F,u
+         std   <u0040
+         ldd   u0009,u
+         std   <u0039
+         ldb   u0002,u
+         sex   
+         std   <u0042
+         ldx   u0003,u
+         lbsr  L0848
+         ldx   u000B,u
+         ldd   <u0044
+         subd  <u004A
+         std   <u000C
+         rts   
+L1031    oim   #$02,<u0005
+         oim   #$34,<u0040
+         ldb   ,x+
+         clra  
+         pshs  x,a
+         cmpb  #$4D
+         bne   L10B7
+         leay  ,s
+L1042    pshs  y
+         ldb   ,x
+         cmpb  #$0E
+         beq   L1079
+         jsr   <u0016
+         leax  -$01,x
+         cmpa  #$02
+         beq   L105C
+         cmpa  #$04
+         beq   L1069
+         ldd   $01,y
+         std   $04,y
+         lda   ,y
+L105C    ldb   #$06
+         leau  <L1031,pcr
+         subb  a,u
+         leau  b,y
+         stu   <u0046
+         bra   L107D
+L1069    ldu   $01,y
+         ldd   <u0048
+         subd  <u004A
+         std   <u003E
+         ldd   <u0048
+         std   <u004A
+         lda   #$04
+         bra   L107D
+L1079    leax  $01,x
+         jsr   <u0016
+L107D    puls  y
+         inc   ,y
+         cmpa  #$04
+         bcs   L1089
+         pshs  u
+         ldu   <u003E
+L1089    pshs  u,a
+         ldb   ,x+
+         cmpb  #$4B
+         beq   L1042
+         leax  $01,x
+         stx   $01,y
+         leax  <L1031,pcr
+         ldu   <u0046
+         stu   <u0040
+L109C    puls  b
+         cmpb  #$04
+         bcs   L10A6
+         puls  b,a
+         bra   L10A9
+L10A6    ldb   b,x
+         clra  
+L10A9    std   ,--u
+         puls  b,a
+         std   ,--u
+         dec   ,y
+         bne   L109C
+         leay  ,u
+         bra   L10BD
+L10B7    ldy   <u0046
+         sty   <u0040
+L10BD    tfr   y,d
+         subd  <u004A
+         lbcs  L07F9
+         std   <u000C
+         puls  pc,u,x,a
+         jsr   <u0016
+         ldy   $01,y
+         pshs  x
+         lbsr  L0718
+         puls  pc,x
+         lbsr  L0730
+         leax  >L0736,pcr
+         stx   <u000E
+         rts   
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L10EF,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L10EF    sexw  
+         pshs  cc
+         lsr   $03,x
+         bita  <u0004
+         sta   >$0618
+         lsl   <u002D
+         rol   <u001F
+         lsl   <u00E7
+L10FF    jsr   <u001B
+         lsl   <u009D
+         bcc   L110B
+L1105    jsr   <u002A
+         aim   #$12,<u0069
+         nop   
+L110B    blt   L111F
+         fcb   $45 E
+         nop   
+         nop   
+         nop   
+         stu   -$0E,x
+         addd  >$1343
+         sync  
+         lbsr  L19A0
+         lsl   <u00EB
+         lsl   <u00F2
+         lsl   <u004E
+         lsl   <u007F
+         ror   <u00E0
+         oim   #$F3,<u0002
+         stu   $06,x
+         addb  #$06
+         cmpb  <u0006
+         stb   <u0007
+         deca  
+         asr   <u008E
+         asr   <u001C
+         asr   <u0022
+         asr   <u0070
+         ror   <u00FE
+         asr   <u0032
+         asr   <u007C
+         asr   <u0010
+         asr   <u0068
+         asr   <u003A
+         asr   <u0082
+         asr   <u000A
+         asr   <u0060
+         asr   <u0042
+         asr   <u0088
+         asr   <u0016
+         asr   <u002A
+         asr   <u0076
+         asr   <u0004
+         oim   #$FA,<u0002
+         ldd   >$0830
+         aim   #$03,<u0002
+         ldb   >$020C
+         lsr   <u0017
+         aim   #$67,<u0005
+         lsl   >$0681
+         ror   <u0081
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00B7
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u00BD
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+         neg   <u0000
+L1188    oim   #$CC,<u0001
+         sbcb  $02,x
+         eorb  <u0006
+         adca  >$0812
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00A4
+         neg   <u00B3
+         neg   <u00B3
+         neg   <u00B3
+         neg   <u00B3
+         oim   #$C8,<u0001
+         ldu   <u0002
+         fcb   $C7 G
+         asr   <u00E2
+         oim   #$DE,<u000A
+         ora   #$0A
+         ora   #$0A
+         cmpx  <u000A
+         cmpx  <u0009
+         cwai  #$09
+         bgt   L11C2
+         std   $09,x
+         bitb  >$1125
+         jmp   <u004E
+         nop   
+         sbcb  #$09
+         bra   L11CE
+         nop   
+         tst   <u00CD
+         tst   <u00FA
+         jmp   <u0008
+         inc   <u0072
+L11CE    inc   <u00B3
+         tst   <u004E
+         tim   #$AF,<u0009
+         neg   <u0008
+         adcb  >$0AF6
+         dec   <u00EA
+         rol   <u0040
+         rol   <u0040
+         lsl   <u004E
+         dec   <u0011
+         rol   <u003B
+         lsl   <u0086
+         lsl   <u004E
+         rol   <u003B
+         dec   <u0050
+         dec   <u0059
+         rol   <u000B
+         dec   <u00C5
+         dec   <u006A
+         ldf   >$1208
+         dec   <u00CA
+         dec   <u00DA
+         dec   <u00D2
+         dec   <u00B4
+         dec   <u00B9
+         sync  
+         suba  #$12
+         ora   $01,x
+         fcb   $52 R
+         oim   #$68,<u0002
+         fcb   $5E ^
+         ror   <u003F
+         asr   <u00A2
+         asr   <u00C1
+L1214    ldy   <u0046
+         ldd   <u004A
+         std   <u0048
+         bra   L1224
+L121D    lslb  
+         ldu   <u0010
+         ldd   b,u
+         jsr   d,u
+L1224    ldb   ,x+
+         bmi   L121D
+         clra  
+         lda   ,y
+         rts   
+         bsr   L1253
+L122E    pshs  pc,u
+         ldu   <u0012
+         lsla  
+         ldd   a,u
+         leau  d,u
+         stu   $02,s
+         puls  pc,u
+         bsr   L124B
+         bra   L122E
+         leas  $02,s
+         lda   #$F2
+         bra   L1255
+         leas  $02,s
+         lda   #$F6
+         bra   L124D
+L124B    lda   #$89
+L124D    sta   <u00A3
+         clr   <u003B
+         bra   L1259
+L1253    lda   #$85
+L1255    sta   <u00A3
+         sta   <u003B
+L1259    ldd   ,x++
+         addd  <u0062
+         std   <u00D2
+         ldu   <u00D2
+         lda   ,u
+         anda  #$E0
+         sta   <u00CF
+         eora  #$80
+         sta   <u00CE
+         lda   ,u
+         anda  #$07
+         ldb   -$03,x
+         subb  <u00A3
+         pshs  b,a
+         lda   ,u
+         anda  #$18
+         lbeq  L1312
+         ldd   u0001,u
+         addd  <u0066
+         tfr   d,u
+         ldd   ,u
+         std   <u003C
+         lda   $01,s
+         bne   L1297
+         lda   #$05
+         sta   ,s
+         ldd   u0002,u
+         std   <u003E
+         clra  
+         clrb  
+         bra   L12EA
+L1297    leay  -$06,y
+         clra  
+         clrb  
+         std   $01,y
+         leau  u0004,u
+         bra   L12A8
+L12A1    ldd   ,u
+         std   $01,y
+         lbsr  L1394
+L12A8    ldd   $07,y
+         subd  <u0042
+         cmpd  ,u++
+         bcs   L12B6
+         ldb   #$37
+         lbra  L1102
+L12B6    addd  $01,y
+         std   $07,y
+         dec   $01,s
+         bne   L12A1
+         lda   ,s
+         beq   L12D2
+         cmpa  #$02
+         bcs   L12D6
+         beq   L12DE
+         cmpa  #$04
+         bcs   L12D2
+         ldd   ,u
+         std   <u003E
+         bra   L12E1
+L12D2    ldd   $07,y
+         bra   L12DA
+L12D6    ldd   $07,y
+         lslb  
+         rola  
+L12DA    leay  $0C,y
+         bra   L12EA
+L12DE    ldd   #$0005
+L12E1    std   $01,y
+         lbsr  L1394
+         ldd   $01,y
+         leay  $06,y
+L12EA    tst   <u00CE
+         bne   L1306
+         pshs  b,a
+         ldd   <u003C
+         addd  <u0031
+         cmpd  <u0040
+         bcc   L134B
+         tfr   d,u
+         puls  b,a
+         cmpd  u0002,u
+         bhi   L134B
+         addd  ,u
+         bra   L1346
+L1306    addd  <u003C
+         tst   <u003B
+         bne   L1344
+L130C    addd  $01,y
+         leay  $06,y
+         bra   L1346
+L1312    lda   ,s
+         cmpa  #$04
+         ldd   u0001,u
+         bcs   L1324
+         addd  <u0066
+         tfr   d,u
+         ldd   u0002,u
+         std   <u003E
+         ldd   ,u
+L1324    tst   <u003B
+         beq   L130C
+         addd  <u0031
+         tfr   d,u
+         tst   <u00CE
+         bne   L1348
+         cmpd  <u0040
+         bcc   L134B
+         ldd   <u003E
+         cmpd  u0002,u
+         bcs   L1340
+         ldd   u0002,u
+         std   <u003E
+L1340    ldu   ,u
+         bra   L1348
+L1344    addd  <u0031
+L1346    tfr   d,u
+L1348    clra  
+         puls  pc,b,a
+L134B    ldb   #$38
+         lbra  L1102
+         leau  ,x+
+         bra   L135A
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L135A    ldb   ,u
+         clra  
+         leay  -$06,y
+         std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         leau  ,x++
+         bra   L1370
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L1370    ldd   ,u
+         leay  -$06,y
+         std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         clra  
+         clrb  
+         subd  $01,y
+         std   $01,y
+         rts   
+         ldd   $07,y
+         addd  $01,y
+         leay  $06,y
+         std   $01,y
+         rts   
+         ldd   $07,y
+         subd  $01,y
+         leay  $06,y
+         std   $01,y
+         rts   
+L1394    ldd   $07,y
+         beq   L13CD
+         cmpd  #$0002
+         bne   L13A2
+         ldd   $01,y
+         bra   L13AE
+L13A2    ldd   $01,y
+         beq   L13B0
+         cmpd  #$0002
+         bne   L13B4
+         ldd   $07,y
+L13AE    lslb  
+         rola  
+L13B0    std   $07,y
+         bra   L13CD
+L13B4    lda   $08,y
+         mul   
+         sta   $03,y
+         lda   $08,y
+         stb   $08,y
+         ldb   $01,y
+         mul   
+         addb  $03,y
+         lda   $07,y
+         stb   $07,y
+         ldb   $02,y
+         mul   
+         addb  $07,y
+         stb   $07,y
+L13CD    leay  $06,y
+         rts   
+L13D0    clr   ,y
+         ldd   $07,y
+         bpl   L13DE
+         nega  
+         negb  
+         sbca  #$00
+         std   $07,y
+         com   ,y
+L13DE    ldd   $01,y
+         bpl   L13EA
+         nega  
+         negb  
+         sbca  #$00
+         std   $01,y
+         com   ,y
+L13EA    cmpd  #$0002
+         rts   
+L13EF    bsr   L13D0
+         bne   L1401
+         ldd   $07,y
+         beq   L140E
+         asra  
+         rorb  
+         std   $07,y
+         ldd   #$0000
+         rolb  
+         bra   L1438
+L1401    ldd   $01,y
+         bne   L140A
+         ldb   #$2D
+         lbra  L1102
+L140A    ldd   $07,y
+         bne   L1413
+L140E    leay  $06,y
+         std   $03,y
+         rts   
+L1413    tsta  
+         bne   L141E
+         exg   a,b
+         std   $07,y
+         ldb   #$08
+         bra   L1420
+L141E    ldb   #$10
+L1420    stb   $03,y
+         clra  
+         clrb  
+L1424    lsl   $08,y
+         rol   $07,y
+         rolb  
+         rola  
+         subd  $01,y
+         bmi   L1432
+         inc   $08,y
+         bra   L1434
+L1432    addd  $01,y
+L1434    dec   $03,y
+         bne   L1424
+L1438    std   $09,y
+         tst   ,y
+         bpl   L144C
+         nega  
+         negb  
+         sbca  #$00
+         std   $09,y
+         ldd   $07,y
+         nega  
+         negb  
+         sbca  #$00
+         std   $07,y
+L144C    leay  $06,y
+         rts   
+         leay  -$06,y
+         ldb   ,x+
+         lda   #$02
+         std   ,y
+         ldd   ,x++
+         std   $02,y
+         ldd   ,x++
+         std   $04,y
+         rts   
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+L1466    leay  -$06,y
+         lda   #$02
+         ldb   ,u
+         std   ,y
+         ldd   u0001,u
+         std   $02,y
+         ldd   u0003,u
+         std   $04,y
+         rts   
+         lda   $05,y
+         eora  #$01
+         sta   $05,y
+         rts   
+L147E    ldb   $05,y
+         eorb  #$01
+         stb   $05,y
+L1484    pshs  x
+         tst   $02,y
+         beq   L149A
+         tst   $08,y
+         bne   L149E
+L148E    ldd   $01,y
+         std   $07,y
+         ldd   $03,y
+         std   $09,y
+         lda   $05,y
+         sta   $0B,y
+L149A    leay  $06,y
+         puls  pc,x
+L149E    lda   $07,y
+         suba  $01,y
+         bvc   L14A8
+         bpl   L148E
+         bra   L149A
+L14A8    bmi   L14B0
+         cmpa  #$1F
+         ble   L14B8
+         bra   L149A
+L14B0    cmpa  #$E1
+         blt   L148E
+         ldb   $01,y
+         stb   $07,y
+L14B8    ldb   $0B,y
+         andb  #$01
+         stb   ,y
+         eorb  $05,y
+         andb  #$01
+         stb   $01,y
+         ldb   $0B,y
+         andb  #$FE
+         stb   $0B,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         tsta  
+         beq   L1504
+         bpl   L14FC
+         nega  
+         leax  $06,y
+         bsr   L1555
+         tst   $01,y
+         beq   L150C
+L14DE    subd  $04,y
+         exg   d,x
+         sbcb  $03,y
+         sbca  $02,y
+         bcc   L1520
+         coma  
+         comb  
+         exg   d,x
+         coma  
+         comb  
+         addd  #$0001
+         exg   d,x
+         bcc   L14F8
+         addd  #$0001
+L14F8    dec   ,y
+         bra   L1520
+L14FC    leax  ,y
+         bsr   L1555
+         stx   $02,y
+         std   $04,y
+L1504    ldx   $08,y
+         ldd   $0A,y
+         tst   $01,y
+         bne   L14DE
+L150C    addd  $04,y
+         exg   d,x
+         adcb  $03,y
+         adca  $02,y
+         bcc   L1520
+         rora  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         inc   $07,y
+         exg   d,x
+L1520    tsta  
+         bmi   L1533
+L1523    dec   $07,y
+         lbvs  L15B0
+         exg   d,x
+         lslb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         bpl   L1523
+L1533    exg   d,x
+         addd  #$0001
+         exg   d,x
+         bcc   L1544
+         addd  #$0001
+         bcc   L1544
+         rora  
+         inc   $07,y
+L1544    std   $08,y
+         tfr   x,d
+         andb  #$FE
+         tst   ,y
+         beq   L154F
+         incb  
+L154F    std   $0A,y
+         leay  $06,y
+         puls  pc,x
+L1555    suba  #$10
+         bcs   L1573
+         suba  #$08
+         bcs   L1564
+         pshs  a
+         clra  
+         ldb   $02,x
+         bra   L156A
+L1564    adda  #$08
+         pshs  a
+         ldd   $02,x
+L156A    ldx   #$0000
+         tst   ,s
+         beq   L159C
+         bra   L1590
+L1573    adda  #$08
+         bcc   L1586
+         pshs  a
+         clra  
+         ldb   $02,x
+         ldx   $03,x
+         tst   ,s
+         bne   L1592
+         exg   d,x
+         bra   L159C
+L1586    adda  #$08
+         pshs  a
+         ldd   $02,x
+         ldx   $04,x
+         bra   L1592
+L1590    exg   d,x
+L1592    lsra  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         dec   ,s
+         bne   L1590
+L159C    leas  $01,s
+         rts   
+L159F    bsr   L15A6
+         lbcs  L1102
+         rts   
+L15A6    pshs  x
+         lda   $02,y
+         bpl   L15B0
+         lda   $08,y
+         bmi   L15BC
+L15B0    clra  
+         clrb  
+         std   $07,y
+         std   $09,y
+         sta   $0B,y
+         leay  $06,y
+         puls  pc,x
+L15BC    lda   $01,y
+         adda  $07,y
+         bvc   L15C9
+L15C2    bpl   L15B0
+         comb  
+         ldb   #$32
+         puls  pc,x
+L15C9    sta   $07,y
+         ldb   $0B,y
+         eorb  $05,y
+         andb  #$01
+         stb   ,y
+         lda   $0B,y
+         anda  #$FE
+         sta   $0B,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         mul   
+         sta   ,-s
+         clr   ,-s
+         clr   ,-s
+         lda   $0B,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L15F3
+         inc   ,s
+L15F3    lda   $0A,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1600
+         inc   ,s
+L1600    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         lda   $0B,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1615
+         inc   ,s
+L1615    lda   $0A,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1622
+         inc   ,s
+L1622    lda   $09,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L162F
+         inc   ,s
+L162F    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         lda   $0B,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1644
+         inc   ,s
+L1644    lda   $0A,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1651
+         inc   ,s
+L1651    lda   $09,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L165E
+         inc   ,s
+L165E    lda   $08,y
+         ldb   $05,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L166B
+         inc   ,s
+L166B    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         stb   $0B,y
+         lda   $0A,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L1682
+         inc   ,s
+L1682    lda   $09,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L168F
+         inc   ,s
+L168F    lda   $08,y
+         ldb   $04,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L169C
+         inc   ,s
+L169C    ldb   $02,s
+         ldx   ,s
+         stx   $01,s
+         clr   ,s
+         stb   $0A,y
+         lda   $09,y
+         ldb   $02,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L16B3
+         inc   ,s
+L16B3    lda   $08,y
+         ldb   $03,y
+         mul   
+         addd  $01,s
+         std   $01,s
+         bcc   L16C0
+         inc   ,s
+L16C0    lda   $08,y
+         ldb   $02,y
+         mul   
+         addd  ,s
+         bmi   L16D5
+         lsl   $0B,y
+         rol   $0A,y
+         rol   $02,s
+         rolb  
+         rola  
+         dec   $07,y
+         bvs   L16EE
+L16D5    std   $08,y
+         lda   $02,s
+         ldb   $0A,y
+         addd  #$0001
+         bcc   L16F3
+         inc   $09,y
+         bne   L16F5
+         inc   $08,y
+         bne   L16F5
+         ror   $08,y
+         inc   $07,y
+         bvc   L16F5
+L16EE    leas  $03,s
+         lbra  L15C2
+L16F3    andb  #$FE
+L16F5    orb   ,y
+         std   $0A,y
+         leay  $06,y
+         leas  $03,s
+         clrb  
+         puls  pc,x
+L1700    bsr   L1707
+         lbcs  L1102
+L1706    rts   
+L1707    comb  
+         ldb   #$2D
+         tst   $02,y
+         beq   L1706
+         pshs  x
+         tst   $08,y
+         lbeq  L15B0
+         lda   $07,y
+         suba  $01,y
+         lbvs  L15C2
+         sta   $07,y
+         lda   #$21
+         ldb   $05,y
+         eorb  $0B,y
+         andb  #$01
+         std   ,y
+         lsr   $02,y
+         ror   $03,y
+         ror   $04,y
+         ror   $05,y
+         ldd   $08,y
+         ldx   $0A,y
+         lsra  
+         rorb  
+         exg   d,x
+         rora  
+         rorb  
+         clr   $0B,y
+         bra   L1742
+L1740    exg   d,x
+L1742    subd  $04,y
+         exg   d,x
+         bcc   L174B
+         subd  #$0001
+L174B    subd  $02,y
+         beq   L177E
+         bmi   L177A
+L1751    orcc  #$01
+L1753    dec   ,y
+         beq   L17CB
+         rol   $0B,y
+         rol   $0A,y
+         rol   $09,y
+         rol   $08,y
+         exg   d,x
+         lslb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         bcc   L1740
+         exg   d,x
+         addd  $04,y
+         exg   d,x
+         bcc   L1774
+         addd  #$0001
+L1774    addd  $02,y
+         beq   L177E
+         bpl   L1751
+L177A    andcc #$FE
+         bra   L1753
+L177E    leax  ,x
+         bne   L1751
+         ldb   ,y
+         decb  
+         subb  #$10
+         blt   L17A0
+         subb  #$08
+         blt   L1795
+         stb   ,y
+         lda   $0B,y
+         ldb   #$80
+         bra   L17BE
+L1795    addb  #$08
+         stb   ,y
+         ldd   #$8000
+         ldx   $0A,y
+         bra   L17C0
+L17A0    addb  #$08
+         blt   L17AE
+         stb   ,y
+         ldx   $09,y
+         lda   $0B,y
+         ldb   #$80
+         bra   L17C0
+L17AE    addb  #$07
+         stb   ,y
+         ldx   $08,y
+         ldd   $0A,y
+         orcc  #$01
+L17B8    rolb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+L17BE    exg   d,x
+L17C0    andcc #$FE
+         dec   ,y
+         bpl   L17B8
+         exg   d,x
+         tsta  
+         bra   L17CF
+L17CB    ldx   $0A,y
+         ldd   $08,y
+L17CF    bmi   L17DF
+         exg   d,x
+         rolb  
+         rola  
+         exg   d,x
+         rolb  
+         rola  
+         dec   $07,y
+         lbvs  L15B0
+L17DF    exg   d,x
+         addd  #$0001
+         exg   d,x
+         bcc   L17F4
+         addd  #$0001
+         bcc   L17F4
+         rora  
+         inc   $07,y
+         lbvs  L15C2
+L17F4    std   $08,y
+         tfr   x,d
+         andb  #$FE
+         orb   $01,y
+         std   $0A,y
+         inc   $07,y
+         lbvs  L15C2
+L1804    leay  $06,y
+         clrb  
+         puls  pc,x
+         pshs  x
+         ldd   $07,y
+         beq   L1804
+         ldx   $01,y
+         bne   L1822
+         leay  $06,y
+L1815    ldd   #$0180
+         std   $01,y
+         clr   $03,y
+         clr   $04,y
+         clr   $05,y
+         puls  pc,x
+L1822    std   $01,y
+         stx   $07,y
+         ldd   $09,y
+         ldx   $03,y
+         std   $03,y
+         stx   $09,y
+         lda   $0B,y
+         ldb   $05,y
+         sta   $05,y
+         stb   $0B,y
+         puls  x
+         lbsr  L1C7E
+         lbsr  L159F
+         lbra  L1D37
+         ldd   ,x++
+         addd  <u0031
+         tfr   d,u
+         ldb   ,u
+         clra  
+         leay  -$06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   $08,y
+         andb  $02,y
+         bra   L1863
+         ldb   $08,y
+         orb   $02,y
+         bra   L1863
+         ldb   $08,y
+         eorb  $02,y
+L1863    leay  $06,y
+         std   $01,y
+         rts   
+         com   $02,y
+         rts   
+L186B    pshs  y,x
+         ldx   $01,y
+         ldy   $07,y
+         sty   <u0048
+L1875    lda   ,y+
+         cmpa  ,x+
+         bne   L187F
+         cmpa  #$FF
+         bne   L1875
+L187F    inca  
+         inc   -$01,x
+         cmpa  -$01,x
+         puls  pc,y,x
+         bsr   L186B
+         bcs   L18D8
+         bra   L18DC
+         bsr   L186B
+         bls   L18D8
+         bra   L18DC
+         bsr   L186B
+         beq   L18D8
+         bra   L18DC
+         bsr   L186B
+         bne   L18D8
+         bra   L18DC
+         bsr   L186B
+         bcc   L18D8
+         bra   L18DC
+         bsr   L186B
+         bhi   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         blt   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         ble   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         bne   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         beq   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         bge   L18D8
+         bra   L18DC
+         ldd   $07,y
+         subd  $01,y
+         ble   L18DC
+L18D8    ldb   #$FF
+         bra   L18DE
+L18DC    ldb   #$00
+L18DE    clra  
+         leay  $06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   $08,y
+         cmpb  $02,y
+         beq   L18D8
+         bra   L18DC
+         ldb   $08,y
+         cmpb  $02,y
+         bne   L18D8
+         bra   L18DC
+         bsr   L191C
+         blt   L18D8
+         bra   L18DC
+         bsr   L191C
+         ble   L18D8
+         bra   L18DC
+         bsr   L191C
+         bne   L18D8
+         bra   L18DC
+         bsr   L191C
+         beq   L18D8
+         bra   L18DC
+         bsr   L191C
+         bge   L18D8
+         bra   L18DC
+         bsr   L191C
+         bgt   L18D8
+         bra   L18DC
+L191C    pshs  y
+         andcc #$F0
+         lda   $08,y
+         bne   L1934
+         lda   $02,y
+         beq   L1932
+L1928    lda   $05,y
+L192A    anda  #$01
+         bne   L1932
+L192E    andcc #$F0
+         orcc  #$08
+L1932    puls  pc,y
+L1934    lda   $02,y
+         bne   L193E
+         lda   $0B,y
+         eora  #$01
+         bra   L192A
+L193E    lda   $0B,y
+         eora  $05,y
+         anda  #$01
+         bne   L1928
+         leau  $06,y
+         lda   $05,y
+         anda  #$01
+         beq   L1950
+         exg   u,y
+L1950    ldd   u0001,u
+         cmpd  $01,y
+         bne   L1932
+         ldd   u0003,u
+         cmpd  $03,y
+         bne   L1964
+         lda   u0005,u
+         cmpa  $05,y
+         beq   L1932
+L1964    bcs   L192E
+         andcc #$F0
+         puls  pc,y
+L196A    clrb  
+         stb   <u003E
+L196D    ldu   <u0048
+         leay  -$06,y
+         stu   $01,y
+         sty   <u0044
+L1976    cmpu  <u0044
+         bcc   L1995
+         lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L198E
+         decb  
+         bne   L1976
+         dec   <u003E
+         bpl   L1976
+         lda   #$FF
+         sta   ,u+
+L198E    stu   <u0048
+         lda   #$04
+         sta   ,y
+         rts   
+L1995    ldb   #$2F
+         lbra  L1102
+         ldd   ,x++
+         addd  <u0066
+         tfr   d,u
+L19A0    ldd   ,u
+         addd  <u0031
+         ldu   u0002,u
+         stu   <u003E
+         tfr   d,u
+         pshs  x
+         ldb   <u003F
+         bne   L19B2
+         dec   <u003E
+L19B2    leax  ,u
+         bsr   L196D
+         puls  pc,x
+         ldu   $01,y
+         leay  $06,y
+L19BC    lda   ,u+
+         sta   -u0002,u
+         cmpa  #$FF
+         bne   L19BC
+         leau  -u0001,u
+         stu   <u0048
+         rts   
+         ldd   <u003E
+         leay  -$06,y
+         std   $03,y
+         stu   $01,y
+         lda   #$05
+         sta   ,y
+         rts   
+L19D6    clra  
+         clrb  
+         std   $04,y
+         ldd   $01,y
+         bne   L19E5
+         stb   $03,y
+         lda   #$02
+         sta   ,y
+         rts   
+L19E5    ldu   #$0210
+         tsta  
+         bpl   L19F1
+         nega  
+         negb  
+         sbca  #$00
+         inc   $05,y
+L19F1    tsta  
+         bne   L19F9
+         ldu   #$0208
+         exg   a,b
+L19F9    tsta  
+         bmi   L1A02
+L19FC    leau  -u0001,u
+         lslb  
+         rola  
+         bpl   L19FC
+L1A02    std   $02,y
+         stu   ,y
+         rts   
+         leay  $06,y
+         bsr   L19D6
+         leay  -$06,y
+         rts   
+L1A0E    ldb   $01,y
+         bgt   L1A21
+         bmi   L1A1D
+         lda   $02,y
+         bpl   L1A1D
+         ldd   #$0001
+         bra   L1A64
+L1A1D    clra  
+         clrb  
+         bra   L1A6C
+L1A21    subb  #$10
+         bhi   L1A5F
+         bne   L1A39
+         ldd   $02,y
+         ror   $05,y
+         bcc   L1A6C
+         cmpd  #$8000
+         bne   L1A5F
+         tst   $04,y
+         bpl   L1A6C
+         bra   L1A5F
+L1A39    cmpb  #$F8
+         bhi   L1A4B
+         pshs  b
+         ldd   $02,y
+         std   $03,y
+         clr   $02,y
+         puls  b
+         addb  #$08
+         beq   L1A54
+L1A4B    lsr   $02,y
+         ror   $03,y
+         ror   $04,y
+         incb  
+         bne   L1A4B
+L1A54    ldd   $02,y
+         tst   $04,y
+         bpl   L1A64
+         addd  #$0001
+         bvc   L1A64
+L1A5F    ldb   #$34
+         lbra  L1102
+L1A64    ror   $05,y
+         bcc   L1A6C
+         nega  
+         negb  
+         sbca  #$00
+L1A6C    std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         leay  $06,y
+         bsr   L1A0E
+         leay  -$06,y
+         rts   
+         leay  $0C,y
+         bsr   L1A0E
+         leay  -$0C,y
+         rts   
+         lda   $05,y
+         anda  #$FE
+         sta   $05,y
+         rts   
+         ldd   $01,y
+         bpl   L1A92
+         nega  
+         negb  
+         sbca  #$00
+         std   $01,y
+L1A92    rts   
+         clra  
+         ldb   [<$01,y]
+         std   $01,y
+         rts   
+         lda   $02,y
+         beq   L1AAE
+         lda   $05,y
+         anda  #$01
+         bne   L1AB1
+L1AA4    ldb   #$01
+         bra   L1AB3
+         ldd   $01,y
+         bmi   L1AB1
+         bne   L1AA4
+L1AAE    clrb  
+         bra   L1AB3
+L1AB1    ldb   #$FF
+L1AB3    sex   
+         bra   L1ABD
+         ldb   <u0036
+         clr   <u0036
+L1ABA    clra  
+         leay  -$06,y
+L1ABD    std   $01,y
+         lda   #$01
+         sta   ,y
+L1AC3    rts   
+         ldb   <u007D
+         bra   L1ABA
+L1AC8    ldb   $05,y
+         asrb  
+         lbcs  L249A
+         ldb   #$1F
+         stb   <u006E
+         ldd   $01,y
+         beq   L1AC3
+         inca  
+         asra  
+         sta   $01,y
+         ldd   $02,y
+         bcs   L1AE9
+         lsra  
+         rorb  
+         std   -$04,y
+         ldd   $04,y
+         rora  
+         rorb  
+         bra   L1AED
+L1AE9    std   -$04,y
+         ldd   $04,y
+L1AED    std   -$02,y
+         clra  
+         clrb  
+         std   $02,y
+         std   $04,y
+         std   -$06,y
+         std   -$08,y
+         bra   L1B0B
+L1AFB    orcc  #$01
+         rol   $05,y
+         rol   $04,y
+         rol   $03,y
+         rol   $02,y
+         dec   <u006E
+         beq   L1B4D
+         bsr   L1B62
+L1B0B    ldb   -$04,y
+         subb  #$40
+         stb   -$04,y
+         ldd   -$06,y
+         sbcb  $05,y
+         sbca  $04,y
+         std   -$06,y
+         ldd   -$08,y
+         sbcb  $03,y
+         sbca  $02,y
+         std   -$08,y
+         bpl   L1AFB
+L1B23    andcc #$FE
+         rol   $05,y
+         rol   $04,y
+         rol   $03,y
+         rol   $02,y
+         dec   <u006E
+         beq   L1B4D
+         bsr   L1B62
+         ldb   -$04,y
+         addb  #$C0
+         stb   -$04,y
+         ldd   -$06,y
+         adcb  $05,y
+         adca  $04,y
+         std   -$06,y
+         ldd   -$08,y
+         adcb  $03,y
+         adca  $02,y
+         std   -$08,y
+         bmi   L1B23
+         bra   L1AFB
+L1B4D    ldd   $02,y
+         bra   L1B57
+L1B51    dec   $01,y
+         lbvs  L15B0
+L1B57    lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L1B51
+         std   $02,y
+         rts   
+L1B62    bsr   L1B64
+L1B64    lsl   -$01,y
+         rol   -$02,y
+         rol   -$03,y
+         rol   -$04,y
+         rol   -$05,y
+         rol   -$06,y
+         rol   -$07,y
+         rol   -$08,y
+         rts   
+         lbsr  L13EF
+         ldd   $03,y
+         std   $01,y
+         rts   
+L1B7D    leau  -$0C,y
+         pshs  y
+L1B81    ldd   ,y++
+         std   ,u++
+         cmpu  ,s
+         bne   L1B81
+         leas  $02,s
+         leay  -u000C,u
+         lbsr  L1700
+         bsr   L1B99
+         lbsr  L159F
+         lbra  L147E
+L1B99    lda   $01,y
+         bgt   L1BA6
+         clra  
+         clrb  
+         std   $01,y
+         std   $03,y
+         stb   $05,y
+L1BA5    rts   
+L1BA6    cmpa  #$1F
+         bcc   L1BA5
+         leau  $06,y
+         ldb   -u0001,u
+         andb  #$01
+         pshs  u,b
+         leau  $01,y
+L1BB4    leau  u0001,u
+         suba  #$08
+         bcc   L1BB4
+         beq   L1BC8
+         ldb   #$FF
+L1BBE    lslb  
+         inca  
+         bne   L1BBE
+         andb  ,u
+         stb   ,u+
+         bra   L1BCC
+L1BC8    leau  u0001,u
+L1BCA    sta   ,u+
+L1BCC    cmpu  $01,s
+         bne   L1BCA
+         puls  u,b
+         orb   $05,y
+         stb   $05,y
+         rts   
+         leay  -$06,y
+         ldd   $07,y
+         std   $01,y
+         lbra  L1394
+         leay  -$06,y
+         ldd   $0A,y
+         std   $04,y
+         ldd   $08,y
+         std   $02,y
+         ldd   $06,y
+         std   ,y
+         lbra  L159F
+         ldd   <u0080
+         ldu   <u0082
+         pshs  u,b,a
+         ldd   $01,y
+         std   <u0080
+         std   <u0082
+         std   <u0048
+         leay  $06,y
+         ldb   #$09
+         lbsr  L1105
+         puls  u,b,a
+         std   <u0080
+         stu   <u0082
+         lbcs  L249A
+         rts   
+         lbsr  L1224
+         leay  -$06,y
+         stu   $01,y
+L1C19    lda   #$01
+         sta   ,y
+         leax  $01,x
+         rts   
+L1C20    oim   #$02,<u0005
+         oim   #$17,<u00F5
+         std   >$313A
+         cmpa  #$04
+         bcc   L1C36
+         leau  >L1C20,pcr
+         ldb   a,u
+         clra  
+         bra   L1C38
+L1C36    ldd   <u003E
+L1C38    std   $01,y
+         bra   L1C19
+         ldd   #$00FF
+         bra   L1C44
+         ldd   #$0000
+L1C44    leay  -$06,y
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         com   $01,y
+         com   $02,y
+         rts   
+         ldd   $01,y
+         anda  $07,y
+         andb  $08,y
+         bra   L1C68
+         ldd   $01,y
+         eora  $07,y
+         eorb  $08,y
+         bra   L1C68
+         ldd   $01,y
+         ora   $07,y
+         orb   $08,y
+L1C68    std   $07,y
+         leay  $06,y
+         rts   
+L1C6D    stu   >$DE5B
+         eorb  <u00AA
+         bsr   L1C7E
+         leau  >L1C6D,pcr
+         lbsr  L1466
+         lbra  L159F
+L1C7E    pshs  x
+         ldb   $05,y
+         asrb  
+         lbcs  L249A
+         ldd   $01,y
+         lbeq  L249A
+         pshs  a
+         ldb   #$01
+         stb   $01,y
+         leay  <-$1A,y
+         leax  <$1B,y
+         leau  ,y
+         lbsr  L209F
+         lbsr  L219A
+         clra  
+         clrb  
+         std   <$14,y
+         std   <$16,y
+         sta   <$18,y
+         leax  >L2152,pcr
+         stx   <$19,y
+         lbsr  L1DDC
+         leax  <$14,y
+         leau  <$1B,y
+         lbsr  L209F
+         lbsr  L21B4
+         leay  <$1A,y
+         ldb   #$02
+         stb   ,y
+         ldb   $05,y
+         orb   #$01
+         stb   $05,y
+         puls  b
+         bsr   L1CDD
+         puls  x
+         lbra  L1484
+L1CD8    neg   <u00B1
+         aim   #$17,>$F81D
+         bpl   L1CE1
+         negb  
+L1CE1    anda  #$01
+         pshs  b,a
+         leau  >L1CD8,pcr
+         lbsr  L1466
+         ldb   $05,y
+         lda   $01,s
+         cmpa  #$01
+         beq   L1D2F
+         mul   
+         stb   $05,y
+         ldb   $04,y
+         sta   $04,y
+         lda   $01,s
+         mul   
+         addb  $04,y
+         adca  #$00
+         stb   $04,y
+         ldb   $03,y
+         sta   $03,y
+         lda   $01,s
+         mul   
+         addb  $03,y
+         adca  #$00
+         stb   $03,y
+         ldb   $02,y
+         sta   $02,y
+         lda   $01,s
+         mul   
+         addb  $02,y
+         adca  #$00
+         beq   L1D2B
+L1D1E    inc   $01,y
+         lsra  
+         rorb  
+         ror   $03,y
+         ror   $04,y
+         ror   $05,y
+         tsta  
+         bne   L1D1E
+L1D2B    stb   $02,y
+         ldb   $05,y
+L1D2F    andb  #$FE
+         orb   ,s
+         stb   $05,y
+         puls  pc,b,a
+L1D37    pshs  x
+         ldb   $01,y
+         beq   L1D53
+         cmpb  #$07
+         ble   L1D4A
+         ldb   $05,y
+         rorb  
+         rorb  
+         eorb  #$80
+         lbra  L1DEF
+L1D4A    cmpb  #$E4
+         lble  L1815
+         tstb  
+         bpl   L1D5D
+L1D53    clr   ,-s
+         ldb   $05,y
+         andb  #$01
+         beq   L1DA0
+         bra   L1D8E
+L1D5D    lda   #$71
+         mul   
+         adda  $01,y
+         ldb   $05,y
+         andb  #$01
+         pshs  b,a
+         eorb  $05,y
+         stb   $05,y
+         ldb   ,s
+L1D6E    lbsr  L1CDD
+         lbsr  L147E
+         ldb   $01,y
+         ble   L1D80
+         addb  ,s
+         stb   ,s
+         ldb   $01,y
+         bra   L1D6E
+L1D80    puls  b,a
+         pshs  a
+         tstb  
+         beq   L1DA0
+         nega  
+         sta   ,s
+         orb   $05,y
+         stb   $05,y
+L1D8E    leau  >L1CD8,pcr
+         lbsr  L1466
+         lbsr  L1484
+         dec   ,s
+         ldb   $05,y
+         andb  #$01
+         bne   L1D8E
+L1DA0    leay  <-$1A,y
+         leax  <$1B,y
+         leau  <$14,y
+         lbsr  L209F
+         lbsr  L219A
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         leax  >L2134,pcr
+         stx   <$19,y
+         bsr   L1DDC
+         leax  ,y
+         leau  <$1B,y
+         lbsr  L209F
+         lbsr  L21B4
+         leay  <$1A,y
+         puls  b
+         addb  $01,y
+         bvs   L1DEF
+         lda   #$02
+         std   ,y
+         puls  pc,x
+L1DDC    lda   #$01
+         sta   <u009A
+         leax  >L2242,pcr
+         stx   <u0095
+         leax  >$005F,x
+         stx   <u0097
+         lbra  L206A
+L1DEF    leay  -$06,y
+         lbpl  L15B0
+         ldb   #$32
+         lbra  L1102
+         pshs  x
+         bsr   L1E30
+         ldd   $01,y
+         lbeq  L1F64
+         cmpd  #$0180
+         bgt   L1E16
+         bne   L1E19
+         ldd   $03,y
+         bne   L1E16
+         lda   $05,y
+         lbeq  L1EE1
+L1E16    lbra  L249A
+L1E19    lbsr  L1E9E
+         leay  <-$14,y
+         leax  <$15,y
+         leau  ,y
+         lbsr  L209F
+         lbsr  L219A
+         leax  <$1B,y
+         lbra  L1F11
+L1E30    ldb   $05,y
+         andb  #$01
+         stb   <u006D
+         eorb  $05,y
+         stb   $05,y
+         rts   
+         leau  <L1E7E,pcr
+         pshs  u,x
+         bsr   L1E30
+         ldd   $01,y
+         lbeq  L1EE1
+         cmpd  #$0180
+         bgt   L1E16
+         bne   L1E68
+         ldd   $03,y
+         bne   L1E16
+         lda   $05,y
+         bne   L1E16
+         lda   <u006D
+         bne   L1E61
+         clrb  
+         std   $01,y
+         puls  pc,u,x
+L1E61    leay  $06,y
+         puls  u,x
+         lbra  L1FD6
+L1E68    bsr   L1E9E
+         leay  <-$14,y
+         leax  <$1B,y
+         leau  ,y
+         lbsr  L209F
+         lbsr  L219A
+         leax  <$15,y
+         lbra  L1F11
+L1E7E    lda   $05,y
+         bita  #$01
+         beq   L1E98
+         ldu   <u0031
+         tst   u0001,u
+         beq   L1E92
+         leau  <L1E99,pcr
+         lbsr  L1466
+         bra   L1E95
+L1E92    lbsr  L1FD6
+L1E95    lbra  L1484
+L1E98    rts   
+L1E99    lsl   <u00B4
+         neg   <u0000
+         neg   <u0096
+         tst   -$0C,y
+         aim   #$31,<u00A8
+         ldu   <L1EA9,pcr
+         oim   #$ED,<u002C
+         lda   #$80
+         clrb  
+         std   $0E,y
+         clra  
+         std   <$10,y
+         ldd   <$12,y
+         std   ,y
+         std   $06,y
+         ldd   <$14,y
+         std   $02,y
+         std   $08,y
+         ldd   <$16,y
+         std   $04,y
+         std   $0A,y
+         lbsr  L159F
+         lbsr  L147E
+         lbsr  L1AC8
+         puls  a
+         sta   <u006D
+         rts   
+         pshs  x
+         lbsr  L1E30
+         ldb   $01,y
+         cmpb  #$18
+         blt   L1EEA
+L1EE1    leay  $06,y
+         lbsr  L1FD6
+         dec   $01,y
+         bra   L1F3D
+L1EEA    leay  <-$1A,y
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         ldb   <$1B,y
+         bra   L1F07
+L1EFC    asr   ,y
+         ror   $01,y
+         ror   $02,y
+         ror   $03,y
+         ror   $04,y
+         decb  
+L1F07    cmpb  #$02
+         bgt   L1EFC
+         stb   <$1B,y
+         leax  <$1B,y
+L1F11    leau  $0A,y
+         lbsr  L209F
+         lbsr  L219A
+         clra  
+         clrb  
+         std   <$14,y
+         std   <$16,y
+         sta   <$18,y
+         leax  >L20FF,pcr
+         stx   <$19,y
+         lbsr  L205C
+         leax  <$14,y
+         leau  <$1B,y
+         lbsr  L209F
+         lbsr  L21B4
+         leay  <$1A,y
+L1F3D    lda   $05,y
+         ora   <u006D
+         sta   $05,y
+         ldu   <u0031
+         tst   u0001,u
+         beq   L1F64
+         leau  >L1FD1,pcr
+         lbsr  L1466
+         lbsr  L159F
+         bra   L1F64
+         pshs  x
+         lbsr  L1FDD
+         leax  $0A,y
+         bsr   L1F6A
+         lda   $05,y
+L1F60    eora  <u009C
+L1F62    sta   $05,y
+L1F64    lda   #$02
+         sta   ,y
+         puls  pc,x
+L1F6A    leau  <$1B,y
+         lbsr  L209F
+         lbsr  L21B4
+         leay  <$14,y
+         leax  >L223D,pcr
+         leau  $01,y
+         lbsr  L209F
+         lbra  L159F
+         pshs  x
+         bsr   L1FDD
+         leax  ,y
+         bsr   L1F6A
+         lda   $05,y
+         eora  <u009B
+         bra   L1F62
+         pshs  x
+         bsr   L1FDD
+         leax  $0A,y
+         leau  <$1B,y
+         lbsr  L209F
+         lbsr  L21B4
+         leax  ,y
+         leay  <$14,y
+         leau  $01,y
+         lbsr  L209F
+         lbsr  L21B4
+         ldd   $01,y
+         bne   L1FBE
+         leay  $06,y
+         ldd   #$7FFF
+L1FB5    std   $01,y
+         lda   #$FF
+         std   $03,y
+         deca  
+         bra   L1FC3
+L1FBE    lbsr  L1700
+         lda   $05,y
+L1FC3    eora  <u009B
+         bra   L1F60
+         aim   #$C9,<u000F
+         orb   <u00A2
+L1FCC    addb  >$8EFA
+         puls  x,a
+L1FD1    ror   <u00E5
+         bgt   L1FB5
+         andb  <u0033
+         bsr   L1FD8
+         std   -$0A,x
+         andb  >$89DE
+         leay  $0D,s
+         fcb   $41 A
+         beq   L1FED
+         leau  >L1FCC,pcr
+         lbsr  L1466
+         lbsr  L159F
+L1FED    clr   <u009B
+         ldb   $05,y
+         andb  #$01
+         stb   <u009C
+         eorb  $05,y
+         stb   $05,y
+         bsr   L1FD6
+         inc   $01,y
+         lbsr  L191C
+         blt   L2009
+         lbsr  L1B7D
+         bsr   L1FD6
+         bra   L200B
+L2009    dec   $01,y
+L200B    lbsr  L191C
+         blt   L201D
+         inc   <u009B
+         lda   <u009C
+         eora  #$01
+         sta   <u009C
+         lbsr  L147E
+         bsr   L1FD6
+L201D    dec   $01,y
+         lbsr  L191C
+         ble   L2037
+         lda   <u009B
+         eora  #$01
+         sta   <u009B
+         inc   $01,y
+         lda   $0B,y
+         ora   #$01
+         sta   $0B,y
+         lbsr  L1484
+         leay  -$06,y
+L2037    leay  <-$14,y
+         leax  >L2106,pcr
+         stx   <$19,y
+         leax  <$1B,y
+         leau  <$14,y
+         bsr   L209F
+         lbsr  L219A
+         ldd   #$1000
+         std   ,y
+         clra  
+         std   $02,y
+         sta   $04,y
+         std   $0A,y
+         std   $0C,y
+         sta   $0E,y
+L205C    leax  >L21FC,pcr
+         stx   <u0095
+         leax  >$0041,x
+         stx   <u0097
+         clr   <u009A
+L206A    ldb   #$25
+         stb   <u0099
+         clr   <u009D
+L2070    leau  <$1B,y
+         ldx   <u0095
+         cmpx  <u0097
+         bcc   L2081
+         bsr   L209F
+         leax  $05,x
+         stx   <u0095
+         bra   L2085
+L2081    ldb   #$01
+         bsr   L20F1
+L2085    leax  ,y
+         leau  $05,y
+         bsr   L20B1
+         tst   <u009A
+         bne   L2095
+         leax  $0A,y
+         leau  $0F,y
+         bsr   L20B1
+L2095    jsr   [<$19,y]
+         inc   <u009D
+         dec   <u0099
+         bne   L2070
+         rts   
+L209F    pshs  y,x
+         lda   ,x
+         ldy   $01,x
+         ldx   $03,x
+         sta   ,u
+         sty   u0001,u
+         stx   u0003,u
+         puls  pc,y,x
+L20B1    ldb   ,x
+         sex   
+         ldb   <u009D
+         lsrb  
+         lsrb  
+         lsrb  
+         bcc   L20BC
+         incb  
+L20BC    pshs  b
+         beq   L20C5
+L20C0    sta   ,u+
+         decb  
+         bne   L20C0
+L20C5    ldb   #$05
+         subb  ,s+
+         beq   L20D2
+L20CB    lda   ,x+
+         sta   ,u+
+         decb  
+         bne   L20CB
+L20D2    leau  -u0005,u
+         ldb   <u009D
+         andb  #$07
+         beq   L20FE
+         cmpb  #$04
+         bcs   L20F1
+         subb  #$08
+         lda   ,x
+L20E2    lsla  
+         rol   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         incb  
+         bne   L20E2
+         rts   
+L20F1    asr   ,u
+         ror   u0001,u
+         ror   u0002,u
+         ror   u0003,u
+         ror   u0004,u
+         decb  
+         bne   L20F1
+L20FE    rts   
+L20FF    lda   $0A,y
+         eora  ,y
+         coma  
+         bra   L2109
+L2106    lda   <$14,y
+L2109    tsta  
+         bpl   L2120
+         leax  ,y
+         leau  $0F,y
+         bsr   L2162
+         leax  $0A,y
+         leau  $05,y
+         bsr   L217E
+         leax  <$14,y
+         leau  <$1B,y
+         bra   L2162
+L2120    leax  ,y
+         leau  $0F,y
+         bsr   L217E
+         leax  $0A,y
+         leau  $05,y
+         bsr   L2162
+         leax  <$14,y
+         leau  <$1B,y
+         bra   L217E
+L2134    leax  <$14,y
+         leau  <$1B,y
+         bsr   L217E
+         bmi   L2162
+         bne   L214C
+         ldd   $01,x
+         bne   L214C
+         ldd   $03,x
+         bne   L214C
+         ldb   #$01
+         stb   <u0099
+L214C    leax  ,y
+         leau  $05,y
+         bra   L2162
+L2152    leax  ,y
+         leau  $05,y
+         bsr   L2162
+         cmpa  #$20
+         bcc   L217E
+         leax  <$14,y
+         leau  <$1B,y
+L2162    ldd   $03,x
+         addd  u0003,u
+         std   $03,x
+         ldd   $01,x
+         bcc   L2173
+         addd  #$0001
+         bcc   L2173
+         inc   ,x
+L2173    addd  u0001,u
+         std   $01,x
+         lda   ,x
+         adca  ,u
+         sta   ,x
+         rts   
+L217E    ldd   $03,x
+         subd  u0003,u
+         std   $03,x
+         ldd   $01,x
+         bcc   L218F
+         subd  #$0001
+         bcc   L218F
+         dec   ,x
+L218F    subd  u0001,u
+         std   $01,x
+         lda   ,x
+         sbca  ,u
+         sta   ,x
+         rts   
+L219A    ldb   ,u
+         clr   ,u
+         addb  #$04
+         bge   L21B1
+         negb  
+         lbra  L20F1
+L21A6    lsl   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         decb  
+L21B1    bne   L21A6
+         rts   
+L21B4    lda   ,u
+         bpl   L21C1
+         clra  
+         clrb  
+         std   ,u
+         std   u0002,u
+         sta   u0004,u
+         rts   
+L21C1    ldd   #$2004
+L21C4    decb  
+         lsl   u0004,u
+         rol   u0003,u
+         rol   u0002,u
+         rol   u0001,u
+         rol   ,u
+         bmi   L21D8
+         deca  
+         bne   L21C4
+         clrb  
+         std   ,u
+         rts   
+L21D8    lda   ,u
+         stb   ,u
+         ldb   u0001,u
+         sta   u0001,u
+         lda   u0002,u
+         stb   u0002,u
+         ldb   u0003,u
+         addd  #$0001
+         andb  #$FE
+         std   u0003,u
+         bcc   L21FB
+         inc   u0002,u
+         bne   L21FB
+         inc   u0001,u
+         bne   L21FB
+         ror   u0001,u
+         inc   ,u
+L21FB    rts   
+L21FC    inc   <u0090
+         std   >$AA22
+         asr   <u006B
+         daa   
+         cmpb  #$58
+         com   <u00EB
+         jmp   [>$2601]
+         std   >$5BA9
+         adda  $00,x
+         stu   >$AADD
+         adca  >$007F
+         bitb  >$56EF
+         neg   <u003F
+         ldu   >$AAB7
+         neg   <u001F
+         stu   >$D556
+         neg   <u000F
+         stu   >$FAAB
+         neg   <u0007
+         stu   >$FF55
+         neg   <u0003
+         stu   >$FFEB
+         neg   <u0001
+         stu   >$FFFD
+         neg   <u0001
+         neg   <u0000
+         neg   <u0000
+         adda  <u0074
+         std   <$0B,y
+         lbsr  L43C5
+         jmp   >$067C
+         eorb  #$FB
+         leax  $03,x
+         cmpa  <u00FE
+         eorb  >$F301
+         sbcb  -$10,s
+         ror   >$E300
+         eorb  >$5186
+         oim   #$00,<u007E
+         dec   <u006C
+         abx   
+         neg   <u003F
+         cmpa  #$51
+         aim   #$00,-$01,x
+         subb  $0A,y
+         tim   #$00,$0F,x
+         eorb  >$0551
+         neg   <u0007
+         ldu   >$00AA
+         neg   <u0003
+         stu   >$8015
+         neg   <u0001
+         stu   >$E003
+         neg   <u0000
+         stu   >$F800
+         neg   <u0000
+         clr   >$FE00
+         neg   <u0000
+         swi   
+         fcb   $FF 
+         suba  #$00
+         neg   <u001F
+         stu   >$E000
+         neg   <u000F
+         stu   >$F800
+         neg   <u0007
+         stu   >$FE00
+         neg   <u0004
+         neg   <u0000
+L22A1    jmp   <u0012
+         sexw  
+         sbca  [d,y]
+         nega  
+         ldb   $0D,y
+         pshu  x,dp,cc
+         aim   #u00E9,$0F,u
+         clrb  
+         std   <u004C
+         std   <u004E
+         pshs  a
+         lda   $02,y
+         beq   L22CF
+         ldb   $05,y
+         bitb  #$01
+         bne   L22C3
+         com   ,s
+         bra   L22CF
+L22C3    addb  #$FE
+         addb  $01,y
+         lda   $04,y
+         std   <u0052
+         ldd   $02,y
+         std   <u0050
+L22CF    lda   <u0053
+         ldb   <u0057
+         mul   
+         std   <u004E
+         lda   <u0052
+         ldb   <u0057
+         mul   
+         addd  <u004D
+         bcc   L22E1
+         inc   <u004C
+L22E1    std   <u004D
+         lda   <u0053
+         ldb   <u0056
+         mul   
+         addd  <u004D
+         bcc   L22EE
+         inc   <u004C
+L22EE    std   <u004D
+         lda   <u0051
+         ldb   <u0057
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0052
+         ldb   <u0056
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0053
+         ldb   <u0055
+         mul   
+         addd  <u004C
+         std   <u004C
+         lda   <u0050
+         ldb   <u0057
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0051
+         ldb   <u0056
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0052
+         ldb   <u0055
+         mul   
+         addb  <u004C
+         stb   <u004C
+         lda   <u0053
+         ldb   <u0054
+         mul   
+         addb  <u004C
+         stb   <u004C
+         ldd   <u004E
+         addd  <u005A
+         std   <u0052
+         ldd   <u004C
+         adcb  <u0059
+         adca  <u0058
+         std   <u0050
+         tst   ,s+
+         bne   L236B
+         ldd   <u0050
+         std   $02,y
+         ldd   <u0052
+         std   $04,y
+         clr   $01,y
+L234B    lda   #$1F
+         pshs  a
+         ldd   $02,y
+         bmi   L2361
+L2353    dec   ,s
+         beq   L2361
+         dec   $01,y
+         lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L2353
+L2361    std   $02,y
+         ldb   $05,y
+         andb  #$FE
+         stb   $05,y
+         puls  pc,b
+L236B    ldd   <u0052
+         andb  #$FE
+         std   ,--y
+         ldd   <u0050
+         std   ,--y
+         clra  
+         clrb  
+         std   ,--y
+         bsr   L234B
+         lbra  L159F
+         ldd   <u0048
+         ldu   $01,y
+         subd  $01,y
+         subd  #$0001
+         stu   <u0048
+L2389    std   $01,y
+         lda   #$01
+         sta   ,y
+         rts   
+         ldd   $01,y
+         std   <u0048
+         ldb   [<$01,y]
+         clra  
+         bra   L2389
+         ldd   $01,y
+         tsta  
+         lbne  L249A
+         ldu   <u0048
+         stu   $01,y
+         stb   ,u+
+         lbsr  L24BD
+         sty   <u0044
+         cmpu  <u0044
+         lbcc  L1995
+         rts   
+L23B5    ldd   $01,y
+         ble   L23C7
+         addd  $07,y
+         tfr   d,u
+         cmpd  <u0048
+         bcc   L23C4
+         bsr   L2443
+L23C4    leay  $06,y
+         rts   
+L23C7    leay  $06,y
+         ldu   $01,y
+         bra   L2443
+         ldd   $01,y
+         ble   L23C7
+         pshs  x
+         ldd   <u0048
+         subd  $01,y
+         subd  #$0001
+         cmpd  $07,y
+         bls   L23ED
+         tfr   d,x
+         ldu   $07,y
+L23E3    lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         bne   L23E3
+         stu   <u0048
+L23ED    leay  $06,y
+         puls  pc,x
+         ldd   $01,y
+         ble   L23F9
+         ldd   $07,y
+         bgt   L2401
+L23F9    ldd   $01,y
+         leay  $06,y
+         std   $01,y
+         bra   L23B5
+L2401    subd  #$0001
+         beq   L23F9
+         addd  $0D,y
+         cmpd  <u0048
+         bcs   L2411
+         leay  $06,y
+         bra   L23C7
+L2411    pshs  x
+         tfr   d,x
+         ldb   $02,y
+         ldu   $0D,y
+L2419    lda   ,x+
+         sta   ,u+
+         cmpa  #$FF
+         beq   L242C
+         decb  
+         bne   L2419
+         dec   $01,y
+         bpl   L2419
+         lda   #$FF
+         sta   ,u+
+L242C    stu   <u0048
+         leay  $0C,y
+         puls  pc,x
+         ldu   <u0048
+         leau  -u0001,u
+L2436    cmpu  $01,y
+         beq   L2443
+         lda   ,-u
+         cmpa  #$20
+         beq   L2436
+         leau  u0001,u
+L2443    lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         rts   
+         pshs  y,x
+         ldd   <u0048
+         subd  $01,y
+         addd  $07,y
+         addd  #$0001
+         ldx   $07,y
+         ldy   $01,y
+         lbsr  L10FF
+         bcc   L2463
+         clra  
+         clrb  
+         bra   L246C
+L2463    tfr   y,d
+         ldx   $02,s
+         subd  $01,x
+         addd  #$0001
+L246C    puls  y,x
+         std   $07,y
+         lda   #$01
+         sta   $06,y
+         leay  $06,y
+         rts   
+         ldb   #$02
+         bra   L247D
+         ldb   #$03
+L247D    lda   <u007D
+         ldu   <u0082
+         pshs  u,x,a
+         lbsr  L1105
+         bcs   L249A
+         ldx   <u0082
+         lda   #$FF
+         sta   ,x
+         ldx   $03,s
+         lbsr  L196A
+         puls  u,x,a
+         sta   <u007D
+         stu   <u0082
+         rts   
+L249A    ldb   #$43
+         lbra  L1102
+         pshs  x
+         ldd   $01,y
+         blt   L249A
+         sty   <u0044
+         ldu   <u0048
+         stu   $01,y
+         lda   #$20
+L24AE    cmpb  <u007D
+         bls   L24BF
+         sta   ,u+
+         decb  
+         cmpu  <u0044
+         bcs   L24AE
+         lbra  L1995
+L24BD    pshs  x
+L24BF    lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         lda   #$04
+         sta   ,y
+         puls  pc,x
+         pshs  x
+         leay  -$06,y
+         leax  -$06,y
+         ldu   <u0048
+         stu   $01,y
+         os9   F$Time   
+         bcs   L24BF
+         bsr   L24F4
+         lda   #$2F
+         bsr   L24F2
+         lda   #$2F
+         bsr   L24F2
+         lda   #$20
+         bsr   L24F2
+         lda   #$3A
+         bsr   L24F2
+         lda   #$3A
+         bsr   L24F2
+         bra   L24BF
+L24F2    sta   ,u+
+L24F4    lda   ,x+
+         ldb   #$2F
+L24F8    incb  
+         suba  #$0A
+         bcc   L24F8
+         stb   ,u+
+         ldb   #$3A
+L2501    decb  
+         inca  
+         bne   L2501
+         stb   ,u+
+         rts   
+         lda   $02,y
+         ldb   #$06
+         os9   I$GetStt 
+         bcc   L2519
+         cmpb  #$D3
+         bne   L2519
+         ldb   #$FF
+         bra   L251B
+L2519    ldb   #$00
+L251B    clra  
+         std   $01,y
+         lda   #$03
+         sta   ,y
+         rts   
+         ldb   #$06
+         pshs  y,x,b
+         tfr   dp,a
+         ldb   #$50
+         tfr   d,y
+         leax  >L22A1,pcr
+L2531    ldd   ,x++
+         std   ,y++
+         dec   ,s
+         bne   L2531
+         leax  >L1188,pcr
+         stx   <u0010
+         leax  >L1208,pcr
+         stx   <u0012
+         lda   #$7E
+         sta   <u0016
+         leax  >L1214,pcr
+         stx   <u0017
+         puls  pc,y,x,b
+         pshs  x,b,a
+         ldb   [<$04,s]
+         leax  <L2561,pcr
+         ldd   b,x
+         leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L2561    neg   <u00BA
+         neg   <u0010
+L2565    jsr   <u0027
+         inc   <u009D
+         beq   L2579
+L256B    jsr   <u0027
+         lsl   <u009D
+         beq   L2577
+         pshs  pc,x,b,a
+         lslb  
+         leax  <L257F,pcr
+L2577    ldd   b,x
+L2579    leax  d,x
+         stx   $04,s
+         puls  pc,x,b,a
+L257F    lsr   <u005F
+         eim   #$C3,<u0005
+         addd  #$04B7
+         eim   #$B3,<u0005
+         ora   $04,x
+         deca  
+         aim   #$58,<u0002
+         tim   #$02,-$0B,y
+         aim   #$A2,<u0002
+         clr   >$05F9
+         eim   #$E9,<u0004
+         lsl   >$0A11
+L259F    eim   #$DA,<u0006
+         ora   >$0562
+         asr   <u0059
+L25A7    ror   <u0002
+         beq   L25BB
+         com   <u00E8
+         neg   <u0064
+         neg   <u000A
+L25B1    lsr   <u00A0
+         neg   <u0000
+         neg   <u0007
+         eorb  #$00
+         neg   <u0000
+L25BB    dec   <u00FA
+         neg   <u0000
+         neg   <u000E
+         cmpx  <u0040
+         neg   <u0000
+         fcb   $11 
+         addd  #$5000
+         neg   <u0014
+         andb  >$2400
+         neg   <u0018
+         eora  <u0096
+         suba  #$00
+         fcb   $1B 
+         ldx   >$BC20
+         neg   <u001E
+         ldu   $0B,s
+         bvc   L25DE
+L25DE    bhi   L2575
+         aim   #$F9,<u0000
+         bcs   L259F
+         coma  
+         sta   >$4028
+         eorb  [,u]
+         bita  -$10,x
+         bge   L2580
+         anda  #$E7
+         bpl   L2622
+         bita  >$E620
+         andb  >$32E3
+         clrb  
+         adca  -$0E,y
+         pshu  pc,dp,b,a
+         fcb   $1B 
+         adcb  #$C0
+         rts   
+         cmpa  >$A2BC
+         bgt   L2643
+         ldu   <u000B
+         tim   #u003A,$00,u
+         ora   #$C7
+         bls   L2614
+L2610    lsrb  
+         aim   #$75,>$65FF
+L2615    rora  
+         oim   #$6C,-$0D,s
+         eim   #$FF,-$0C,y
+         nega  
+         leay  -$06,y
+         clra  
+         clrb  
+         sta   <u0075
+         sta   <u0076
+         sta   <u0077
+         sta   <u0078
+         sta   <u0079
+         std   $04,y
+         std   $02,y
+         sta   $01,y
+         lbsr  L285D
+         bcc   L263F
+         leax  -$01,x
+         cmpa  #$2C
+         bne   L26AB
+         lbra  L26C8
+L263F    cmpa  #$24
+         lbeq  L277F
+         cmpa  #$2B
+         beq   L264F
+         cmpa  #$2D
+         bne   L2651
+         inc   <u0078
+L264F    lda   ,x+
+L2651    cmpa  #$2E
+         bne   L265D
+         tst   <u0077
+         bne   L26AB
+         inc   <u0077
+         bra   L264F
+L265D    lbsr  L2CAB
+         bcs   L26B2
+         pshs  a
+         inc   <u0076
+         ldd   $04,y
+         ldu   $02,y
+         bsr   L2698
+         std   $04,y
+         stu   $02,y
+         bsr   L2698
+         bsr   L2698
+         addd  $04,y
+         exg   d,u
+         adcb  $03,y
+         adca  $02,y
+         bcs   L26A5
+         exg   d,u
+         addb  ,s+
+         adca  #$00
+         bcc   L268C
+         leau  u0001,u
+         stu   $02,y
+         beq   L26A7
+L268C    std   $04,y
+         stu   $02,y
+         tst   <u0077
+         beq   L264F
+         inc   <u0079
+         bra   L264F
+L2698    lslb  
+         rola  
+         exg   d,u
+         rolb  
+         rola  
+         exg   d,u
+         bcs   L26A3
+         rts   
+L26A3    leas  $02,s
+L26A5    leas  $01,s
+L26A7    ldb   #$3C
+         bra   L26AD
+L26AB    ldb   #$3B
+L26AD    stb   <u0036
+         coma  
+         puls  pc,u
+L26B2    eora  #$45
+         anda  #$DF
+         beq   L26DB
+         leax  -$01,x
+         tst   <u0076
+         bne   L26C0
+         bra   L26AB
+L26C0    tst   <u0077
+         bne   L2709
+         ldd   $02,y
+         bne   L2709
+L26C8    ldd   $04,y
+         bmi   L2709
+         tst   <u0078
+         beq   L26D4
+         nega  
+         negb  
+         sbca  #$00
+L26D4    std   $01,y
+L26D6    lda   #$01
+         lbra  L2762
+L26DB    lda   ,x
+         cmpa  #$2B
+         beq   L26E7
+         cmpa  #$2D
+         bne   L26E9
+         inc   <u0075
+L26E7    leax  $01,x
+L26E9    lbsr  L2CA9
+         bcs   L26AB
+         tfr   a,b
+         lbsr  L2CA9
+         bcc   L26F9
+         leax  -$01,x
+         bra   L2700
+L26F9    pshs  a
+         lda   #$0A
+         mul   
+         addb  ,s+
+L2700    tst   <u0075
+         bne   L2705
+         negb  
+L2705    addb  <u0079
+         stb   <u0079
+L2709    ldb   #$20
+         stb   $01,y
+         ldd   $02,y
+         bne   L271A
+         cmpd  $04,y
+         bne   L271A
+         clr   $01,y
+         bra   L2760
+L271A    tsta  
+         bmi   L2727
+L271D    dec   $01,y
+         lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         bpl   L271D
+L2727    std   $02,y
+         clr   <u0075
+         ldb   <u0079
+         beq   L2758
+         bpl   L2734
+         negb  
+         inc   <u0075
+L2734    cmpb  #$13
+         bls   L2748
+         subb  #$13
+         pshs  b
+         leau  >L260B,pcr
+         bsr   L2768
+         puls  b
+         lbcs  L26A7
+L2748    decb  
+         lda   #$05
+         mul   
+         leau  >L25B1,pcr
+         leau  b,u
+         bsr   L2768
+         lbcs  L26A7
+L2758    lda   $05,y
+         anda  #$FE
+         ora   <u0078
+         sta   $05,y
+L2760    lda   #$02
+L2762    sta   ,y
+         andcc #$FE
+         puls  pc,u
+L2768    leay  -$06,y
+         ldd   ,u
+         std   $01,y
+         ldd   u0002,u
+         std   $03,y
+         ldb   u0004,u
+         stb   $05,y
+         lda   <u0075
+         lbeq  L256B
+         lbra  L256E
+L277F    lbsr  L2CA9
+         bcc   L2794
+         cmpa  #$61
+         bcs   L278A
+         suba  #$20
+L278A    cmpa  #$41
+         bcs   L27A9
+         cmpa  #$46
+         bhi   L27A9
+         suba  #$37
+L2794    inc   <u0076
+         ldb   #$04
+L2798    lsl   $02,y
+         rol   $01,y
+         lbcs  L26A7
+         decb  
+         bne   L2798
+         adda  $02,y
+         sta   $02,y
+         bra   L277F
+L27A9    leax  -$01,x
+         tst   <u0076
+         lbeq  L26AB
+         lbra  L26D6
+         pshs  x
+         ldx   <u0082
+         lbsr  L261B
+         bcc   L27BF
+L27BD    puls  pc,x
+L27BF    cmpa  #$02
+         beq   L27C6
+         lbsr  L2568
+L27C6    lbsr  L2851
+         bcs   L27D2
+         ldb   #$3D
+         stb   <u0036
+         coma  
+         puls  pc,x
+L27D2    stx   <u0082
+         clra  
+         puls  pc,x
+         pshs  x
+         ldx   <u0082
+         lbsr  L261B
+         bcs   L27BD
+         cmpa  #$01
+         bne   L27F7
+         tst   $01,y
+         beq   L27C6
+         bra   L27F7
+         pshs  x
+         ldx   <u0082
+         lbsr  L261B
+         bcs   L27BD
+         cmpa  #$01
+         beq   L27C6
+L27F7    ldb   #$3A
+         stb   <u0036
+         coma  
+         puls  pc,x
+         pshs  u,x
+         leay  -$06,y
+         ldu   <u004A
+         stu   $01,y
+         lda   #$04
+         sta   ,y
+         ldx   <u0082
+L280C    lda   ,x+
+         bsr   L2863
+         bcs   L2816
+         sta   ,u+
+         bra   L280C
+L2816    stx   <u0082
+         lda   #$FF
+         sta   ,u+
+         stu   <u0048
+         clra  
+         puls  pc,u,x
+         pshs  x
+         leay  -$06,y
+         lda   #$03
+         sta   ,y
+         clr   $02,y
+         ldx   <u0082
+         bsr   L285D
+         bcs   L284C
+         cmpa  #$54
+         beq   L2846
+         cmpa  #$74
+         beq   L2846
+         eora  #$46
+         anda  #$DF
+         beq   L2848
+         ldb   #$3A
+         stb   <u0036
+         coma  
+         puls  pc,x
+L2846    com   $02,y
+L2848    bsr   L2851
+         bcc   L2848
+L284C    stx   <u0082
+         clra  
+         puls  pc,x
+L2851    lda   ,x+
+         cmpa  #$20
+         bne   L2863
+         bsr   L285D
+         bcc   L2872
+         bra   L2874
+L285D    lda   ,x+
+         cmpa  #$20
+         beq   L285D
+L2863    cmpa  <u00DD
+         beq   L2874
+         cmpa  #$0D
+         beq   L2872
+         cmpa  #$FF
+         beq   L2872
+         andcc #$FE
+         rts   
+L2872    leax  -$01,x
+L2874    orcc  #$01
+         rts   
+L2877    pshs  u,x
+         clra  
+         sta   $03,y
+         sta   <u0076
+         sta   <u0078
+         lda   #$04
+         sta   <u007E
+         ldd   $01,y
+         bpl   L288E
+         nega  
+         negb  
+         sbca  #$00
+         inc   <u0078
+L288E    leau  >L25A7,pcr
+L2892    clr   <u007A
+         leau  u0002,u
+L2896    subd  ,u
+         bcs   L289E
+         inc   <u007A
+         bra   L2896
+L289E    addd  ,u
+         tst   <u007A
+         bne   L28A8
+         tst   $03,y
+         beq   L28B3
+L28A8    inc   $03,y
+         pshs  a
+         lda   <u007A
+         lbsr  L29B7
+         puls  a
+L28B3    dec   <u007E
+         bne   L2892
+         tfr   b,a
+         lbsr  L29B7
+         leay  $06,y
+         puls  pc,u,x
+L28C0    pshs  u,x
+         clr   <u0075
+         clr   <u0078
+         clr   <u007C
+         clr   <u007B
+         clr   <u0079
+         clr   <u0076
+         leau  ,x
+         ldd   #$0A30
+L28D3    stb   ,u+
+         deca  
+         bne   L28D3
+         ldd   $01,y
+         bne   L28E0
+         inca  
+         lbra  L29B1
+L28E0    ldb   $05,y
+         bitb  #$01
+         beq   L28EC
+         stb   <u0078
+         andb  #$FE
+         stb   $05,y
+L28EC    ldd   $01,y
+         bpl   L28F3
+         inc   <u0075
+         nega  
+L28F3    cmpa  #$03
+         bls   L2924
+         ldb   #$9A
+         mul   
+         lsra  
+         nop   
+         nop   
+         tfr   a,b
+         tst   <u0075
+         beq   L2904
+         negb  
+L2904    stb   <u0079
+         cmpa  #$13
+         bls   L2917
+         pshs  a
+         leau  >L260B,pcr
+         lbsr  L2768
+         puls  a
+         suba  #$13
+L2917    leau  >L25B1,pcr
+         deca  
+         ldb   #$05
+         mul   
+         leau  d,u
+         lbsr  L2768
+L2924    ldd   $02,y
+         tst   $01,y
+         beq   L2950
+         bpl   L293C
+L292C    lsra  
+         rorb  
+         ror   $04,y
+         ror   $05,y
+         ror   <u007C
+         inc   $01,y
+         bne   L292C
+         std   $02,y
+         bra   L2950
+L293C    lsl   $05,y
+         rol   $04,y
+         rolb  
+         rola  
+         rol   <u007B
+         dec   $01,y
+         bne   L293C
+         std   $02,y
+         inc   <u0079
+         lda   <u007B
+         bsr   L29B7
+L2950    ldd   $02,y
+         ldu   $04,y
+L2954    clr   <u007B
+         bsr   L29BE
+         std   $02,y
+         stu   $04,y
+         pshs  a
+         lda   <u007B
+         sta   <u007C
+         puls  a
+         bsr   L29BE
+         bsr   L29BE
+         exg   d,u
+         addd  $04,y
+         exg   d,u
+         adcb  $03,y
+         adca  $02,y
+         pshs  a
+         lda   <u007B
+         adca  <u007C
+         bsr   L29B7
+         lda   <u0076
+         cmpa  #$09
+         puls  a
+         beq   L298E
+         cmpd  #$0000
+         bne   L2954
+         cmpu  #$0000
+         bne   L2954
+L298E    sta   ,y
+         lda   <u0076
+         cmpa  #$09
+         bcs   L29AF
+         ldb   ,y
+         bpl   L29AF
+L299A    lda   ,-x
+         inca  
+         sta   ,x
+         cmpa  #$39
+         bls   L29AF
+         lda   #$30
+         sta   ,x
+         cmpx  ,s
+         bne   L299A
+         inc   ,x
+         inc   <u0079
+L29AF    lda   #$09
+L29B1    sta   <u0076
+         leay  $06,y
+         puls  pc,u,x
+L29B7    ora   #$30
+         sta   ,x+
+         inc   <u0076
+         rts   
+L29BE    exg   d,u
+         lslb  
+         rola  
+         exg   d,u
+         rolb  
+         rola  
+         rol   <u007B
+         rts   
+         pshs  y,x
+         ldx   <u0080
+         stx   <u0082
+         lda   #$01
+         sta   <u007D
+         ldy   #$0100
+         lda   <u007F
+         os9   I$ReadLn 
+         bra   L29F1
+         pshs  y,x
+         ldd   <u0082
+         subd  <u0080
+         beq   L29F5
+         tfr   d,y
+         ldx   <u0080
+         stx   <u0082
+         lda   <u007F
+         os9   I$WritLn 
+L29F1    bcc   L29F5
+         stb   <u0036
+L29F5    puls  pc,y,x
+         pshs  u,x
+         lda   ,y
+         cmpa  #$02
+         beq   L2A03
+         ldu   $01,y
+         bra   L2A0A
+L2A03    lda   $01,y
+         bgt   L2A0F
+         ldu   #$0000
+L2A0A    ldx   #$0000
+         bra   L2A2B
+L2A0F    ldx   $02,y
+         ldu   $04,y
+         suba  #$20
+         bcs   L2A1C
+         ldb   #$4E
+         coma  
+         bra   L2A32
+L2A1C    exg   x,d
+         lsra  
+         rorb  
+         exg   d,u
+         rora  
+         rorb  
+         exg   d,x
+         exg   x,u
+         inca  
+         bne   L2A1C
+L2A2B    lda   <u007F
+         os9   I$Seek   
+         bcc   L2A34
+L2A32    stb   <u0036
+L2A34    puls  pc,u,x
+         pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L28C0
+         pshs  x
+         lda   #$09
+         leax  $09,x
+L2A45    ldb   ,-x
+         cmpb  #$30
+         bne   L2A50
+         deca  
+         cmpa  #$01
+         bne   L2A45
+L2A50    sta   <u0076
+         puls  x
+         ldb   <u0079
+         bgt   L2A79
+         negb  
+         tfr   b,a
+         cmpb  #$09
+         bhi   L2A93
+         addb  <u0076
+         cmpb  #$09
+         bhi   L2A93
+         pshs  a
+         lbsr  L2B10
+         clra  
+         bsr   L2ADF
+         puls  b
+         tstb  
+         beq   L2A75
+         lbsr  L2B01
+L2A75    lda   <u0076
+         bra   L2A8C
+L2A79    cmpb  #$09
+         bhi   L2A93
+         lbsr  L2B10
+         tfr   b,a
+         bsr   L2ACE
+         bsr   L2ADF
+         lda   <u0076
+         suba  <u0079
+         bls   L2A8E
+L2A8C    bsr   L2ACE
+L2A8E    leas  $0A,s
+         clra  
+         puls  pc,u,x
+L2A93    bsr   L2B10
+         lda   #$01
+         bsr   L2ACE
+         bsr   L2ADF
+         lda   <u0076
+         deca  
+         bne   L2AA1
+         inca  
+L2AA1    bsr   L2ACE
+         bsr   L2AA7
+         bra   L2A8E
+L2AA7    lda   #$45
+         bsr   L2AE1
+         lda   <u0079
+         deca  
+         pshs  a
+         bpl   L2AB8
+         neg   ,s
+         bsr   L2B14
+         bra   L2ABA
+L2AB8    bsr   L2B18
+L2ABA    puls  b
+         clra  
+L2ABD    subb  #$0A
+         bcs   L2AC4
+         inca  
+         bra   L2ABD
+L2AC4    addb  #$0A
+         bsr   L2ACA
+         tfr   b,a
+L2ACA    adda  #$30
+         bra   L2AE1
+L2ACE    tfr   a,b
+         tstb  
+         beq   L2ADA
+L2AD3    lda   ,x+
+         bsr   L2AE1
+         decb  
+         bne   L2AD3
+L2ADA    rts   
+L2ADB    lda   #$20
+         bra   L2AE1
+L2ADF    lda   #$2E
+L2AE1    pshs  u,a
+         leau  <-$40,s
+         cmpu  <u0082
+         bhi   L2AF7
+         cmpa  #$0D
+         beq   L2AF7
+         lda   #$50
+         sta   <u0036
+         sta   <u00DE
+         bra   L2AFF
+L2AF7    ldu   <u0082
+         sta   ,u+
+         stu   <u0082
+         inc   <u007D
+L2AFF    puls  pc,u,a
+L2B01    lda   #$30
+L2B03    tstb  
+         beq   L2B0B
+L2B06    bsr   L2AE1
+         decb  
+         bne   L2B06
+L2B0B    rts   
+L2B0C    tst   <u0078
+         beq   L2ADB
+L2B10    tst   <u0078
+         beq   L2B0B
+L2B14    lda   #$2D
+         bra   L2AE1
+L2B18    lda   #$2B
+         bra   L2AE1
+L2B1C    lda   #$20
+         bra   L2B03
+L2B20    bsr   L2AE1
+L2B22    lda   ,x+
+         cmpa  #$FF
+         bne   L2B20
+         rts   
+         pshs  x
+         ldx   $01,y
+L2B2D    bsr   L2B22
+         clra  
+         puls  pc,x
+         pshs  x
+         leax  >L2610,pcr
+         lda   $02,y
+         bne   L2B2D
+         leax  >L2615,pcr
+         bra   L2B2D
+         pshs  u,x
+         leas  -$05,s
+         leax  ,s
+         lbsr  L2877
+         bsr   L2B10
+         lda   <u0076
+         leax  ,s
+         lbsr  L2ACE
+         leas  $05,s
+         clra  
+         puls  pc,u,x
+         tfr   a,b
+L2B5B    pshs  u
+         ldu   <u0082
+         subb  <u007D
+         bls   L2B65
+         bsr   L2B1C
+L2B65    clra  
+         puls  pc,u
+         lbsr  L2ADB
+L2B6B    lda   <u007D
+         anda  #$0F
+         cmpa  #$01
+         beq   L2B7F
+         lbsr  L2ADB
+         bra   L2B6B
+         lda   #$0D
+         clr   <u007D
+         lbsr  L2AE1
+L2B7F    clra  
+         rts   
+         pshs  u
+         lda   #$04
+         leau  ,y
+         tst   ,u
+         bne   L2B8E
+         asra  
+         leau  u0001,u
+L2B8E    sta   <u0086
+         tfr   a,b
+         asrb  
+         lbsr  L2D2A
+         puls  pc,u
+L2B98    clrb  
+         stb   <u0087
+         cmpa  #$3C
+         beq   L2BAB
+         cmpa  #$3E
+         bne   L2BA6
+         incb  
+         bra   L2BAB
+L2BA6    cmpa  #$5E
+         bne   L2BAF
+         decb  
+L2BAB    stb   <u0087
+         lda   ,x+
+L2BAF    cmpa  #$2C
+         beq   L2BEB
+         cmpa  #$FF
+         bne   L2BC9
+         lda   <u0094
+         beq   L2BBF
+         leax  -$01,x
+         bra   L2BD4
+L2BBF    ldx   <u008E
+         tst   <u00DC
+         beq   L2BCD
+         clr   <u00DC
+         bra   L2BEB
+L2BC9    cmpa  #$29
+         beq   L2BD0
+L2BCD    orcc  #$01
+         rts   
+L2BD0    lda   <u0094
+         beq   L2BCD
+L2BD4    dec   <u0092
+         bne   L2BE9
+         ldu   <u0046
+         pulu  y,a
+         sta   <u0092
+         sty   <u0090
+         stu   <u0046
+         lda   ,x+
+         dec   <u0094
+         bra   L2BAF
+L2BE9    ldx   <u0090
+L2BEB    stx   <u008C
+         andcc #$FE
+         rts   
+L2BF0    rola  
+         neg   <u00DF
+         lsla  
+         neg   <u00DC
+         fcb   $52 R
+         neg   <u00CF
+         fcb   $45 E
+         neg   <u00CC
+         comb  
+         neg   <u00D3
+         fcb   $42 B
+         neg   <u00D0
+         lsrb  
+         neg   <u000A
+         lslb  
+         neg   <u0012
+         beq   L2C0A
+L2C0A    orcc  #$00
+         bsr   L2BAF
+         bcs   L2C74
+         ldb   <u0086
+         lbsr  L2B5B
+         bra   L2C3F
+         bsr   L2BAF
+         bcs   L2C74
+         ldb   <u0086
+         lbsr  L2B1C
+         bra   L2C3F
+L2C22    cmpa  #$FF
+         beq   L2C74
+         cmpa  #$27
+         bne   L2C32
+         lda   ,x+
+         bsr   L2BAF
+         bcs   L2C74
+         bra   L2C3F
+L2C32    lbsr  L2AE1
+         lda   ,x+
+         bra   L2C22
+         pshs  y,x
+         clr   <u00DC
+         inc   <u00DC
+L2C3F    ldx   <u008C
+         bsr   L2C8F
+         bcs   L2C5E
+         cmpa  #$28
+         bne   L2C78
+         lda   <u0092
+         stb   <u0092
+         beq   L2C78
+         inc   <u0094
+         ldu   <u0046
+         ldy   <u0090
+         pshu  y,a
+         stu   <u0046
+         stx   <u0090
+         lda   ,x+
+L2C5E    leay  >L2BF0,pcr
+         clrb  
+L2C63    pshs  a
+         eora  ,y
+         anda  #$DF
+         puls  a
+         beq   L2C7F
+         leay  $03,y
+         incb  
+         tst   ,y
+         bne   L2C63
+L2C74    ldb   #$3F
+         bra   L2C7A
+L2C78    ldb   #$3E
+L2C7A    stb   <u0036
+         coma  
+         puls  pc,y,x
+L2C7F    stb   <u0085
+         ldd   $01,y
+         leay  d,y
+         bsr   L2C8F
+         bcc   L2C8B
+         ldb   #$01
+L2C8B    stb   <u0086
+         jmp   ,y
+L2C8F    bsr   L2CA9
+         bcs   L2CB8
+         tfr   a,b
+         bsr   L2CA9
+         bcs   L2CB5
+         bsr   L2CBB
+         bsr   L2CA9
+         bcs   L2CB5
+         bsr   L2CBB
+         tsta  
+         beq   L2CA5
+         clrb  
+L2CA5    lda   ,x+
+         bra   L2CB5
+L2CA9    lda   ,x+
+L2CAB    cmpa  #$30
+         bcs   L2CB8
+         cmpa  #$39
+         bhi   L2CB8
+         suba  #$30
+L2CB5    andcc #$FE
+         rts   
+L2CB8    orcc  #$01
+         rts   
+L2CBB    pshs  a
+         lda   #$0A
+         mul   
+         addb  ,s+
+         adca  #$00
+         rts   
+         cmpa  #$2E
+         bne   L2C74
+         bsr   L2C8F
+         bcs   L2C74
+         stb   <u0089
+         lbsr  L2B98
+         bcs   L2C74
+         puls  y,x
+         inc   <u00DC
+         ldb   <u0085
+         lbeq  L2D80
+         decb  
+         beq   L2CF3
+         decb  
+         lbeq  L2E36
+         decb  
+         lbeq  L2EDD
+         decb  
+         lbeq  L2DEB
+         lbra  L2DD1
+L2CF3    jsr   <u0016
+         cmpa  #$04
+         bcs   L2D09
+         ldu   $01,y
+         clrb  
+L2CFC    lda   ,u+
+         cmpa  #$FF
+         beq   L2D05
+         incb  
+         bne   L2CFC
+L2D05    ldu   $01,y
+         bra   L2D2A
+L2D09    leau  $01,y
+         lda   ,y
+         cmpa  #$02
+         bne   L2D15
+         ldb   #$05
+         bra   L2D2A
+L2D15    cmpa  #$01
+         bne   L2D1F
+         ldb   #$02
+         cmpb  <u0086
+         bcs   L2D23
+L2D1F    ldb   #$01
+         leau  u0001,u
+L2D23    tfr   b,a
+         lsla  
+         cmpa  <u0086
+         bhi   L2D60
+L2D2A    tst   <u0087
+         beq   L2D56
+         bmi   L2D3D
+         pshs  b
+         lslb  
+         pshs  b
+         ldb   <u0086
+         subb  ,s+
+         bcs   L2D54
+         bra   L2D49
+L2D3D    pshs  b
+         lslb  
+         pshs  b
+         ldb   <u0086
+         subb  ,s+
+         bcs   L2D54
+         asrb  
+L2D49    pshs  b
+         lda   <u0086
+         suba  ,s+
+         sta   <u0086
+         lbsr  L2B1C
+L2D54    puls  b
+L2D56    lda   ,u
+         lsra  
+         lsra  
+         lsra  
+         lsra  
+         bsr   L2D70
+         beq   L2D6E
+L2D60    lda   ,u+
+         bsr   L2D70
+         beq   L2D6E
+         decb  
+         bne   L2D56
+         ldb   <u0086
+         lbsr  L2B1C
+L2D6E    clra  
+         rts   
+L2D70    anda  #$0F
+         cmpa  #$09
+         bls   L2D78
+         adda  #$07
+L2D78    lbsr  L2ACA
+         dec   <u0086
+         rts   
+L2D7E    coma  
+         rts   
+L2D80    jsr   <u0016
+         cmpa  #$02
+         bcs   L2D8B
+         bne   L2D7E
+         lbsr  L2565
+L2D8B    pshs  u,x
+         leas  -$05,s
+         leax  ,s
+         lbsr  L2877
+         ldb   <u0086
+         decb  
+         subb  <u0076
+         bpl   L2DA2
+         leas  $05,s
+         puls  u,x
+         lbra  L2ED4
+L2DA2    tst   <u0087
+         beq   L2DB0
+         bmi   L2DC1
+         lbsr  L2B1C
+         lbsr  L2B0C
+         bra   L2DC7
+L2DB0    lbsr  L2B0C
+         pshs  b
+         lda   <u0076
+         lbsr  L2ACE
+         puls  b
+         lbsr  L2B1C
+         bra   L2DCC
+L2DC1    lbsr  L2B0C
+         lbsr  L2B01
+L2DC7    lda   <u0076
+         lbsr  L2ACE
+L2DCC    leas  $05,s
+         clra  
+         puls  pc,u,x
+L2DD1    jsr   <u0016
+         cmpa  #$03
+         bne   L2D7E
+         pshs  u,x
+         leax  >L2610,pcr
+         ldb   #$04
+         lda   $02,y
+         bne   L2DFF
+         leax  >L2615,pcr
+         ldb   #$05
+         bra   L2DFF
+L2DEB    jsr   <u0016
+         cmpa  #$04
+         bne   L2D7E
+         pshs  u,x
+         ldx   $01,y
+         ldd   <u0048
+         subd  $01,y
+         subd  #$0001
+         tsta  
+         bne   L2E03
+L2DFF    cmpb  <u0086
+         bls   L2E05
+L2E03    ldb   <u0086
+L2E05    tfr   b,a
+         negb  
+         addb  <u0086
+         tst   <u0087
+         beq   L2E1C
+         bmi   L2E20
+         pshs  a
+         lbsr  L2B1C
+         puls  a
+         lbsr  L2ACE
+         bra   L2E33
+L2E1C    pshs  b
+         bra   L2E2B
+L2E20    lsrb  
+         bcc   L2E24
+         incb  
+L2E24    pshs  b,a
+         lbsr  L2B1C
+         puls  a
+L2E2B    lbsr  L2ACE
+         puls  b
+         lbsr  L2B1C
+L2E33    clra  
+         puls  pc,u,x
+L2E36    jsr   <u0016
+         cmpa  #$02
+         beq   L2E43
+         lbcc  L2D7E
+         lbsr  L2568
+L2E43    pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L28C0
+         lda   <u0079
+         cmpa  #$09
+         bgt   L2E63
+         lbsr  L2F37
+         lda   <u0086
+         suba  #$02
+         bmi   L2E63
+         suba  <u0089
+         bmi   L2E63
+         suba  <u008A
+         bpl   L2E69
+L2E63    leas  $0A,s
+         puls  u,x
+         bra   L2ED4
+L2E69    sta   <u0088
+         leax  ,s
+         ldb   <u0087
+         beq   L2E79
+         bmi   L2E7F
+         bsr   L2EB6
+         bsr   L2E8B
+         bra   L2E86
+L2E79    bsr   L2E8B
+         bsr   L2EB6
+         bra   L2E86
+L2E7F    bsr   L2EB6
+         bsr   L2E8E
+         lbsr  L2B0C
+L2E86    leas  $0A,s
+         clra  
+         puls  pc,u,x
+L2E8B    lbsr  L2B0C
+L2E8E    lda   <u008A
+         lbsr  L2ACE
+         lbsr  L2ADF
+         ldb   <u0079
+         bpl   L2EC6
+         negb  
+         cmpb  <u0089
+         bls   L2EA1
+         ldb   <u0089
+L2EA1    pshs  b
+         lbsr  L2B01
+         ldb   <u0089
+         subb  ,s+
+         stb   <u0089
+         lda   <u008B
+         cmpa  <u0089
+         bls   L2EB4
+         lda   <u0089
+L2EB4    bra   L2EC8
+L2EB6    ldb   <u0088
+         lbra  L2B1C
+L2EBB    lbsr  L2B0C
+         lda   <u008A
+         lbsr  L2ACE
+         lbsr  L2ADF
+L2EC6    lda   <u008B
+L2EC8    lbsr  L2ACE
+         ldb   <u0089
+         subb  <u008B
+         ble   L2EDC
+         lbra  L2B01
+L2ED4    ldb   <u0086
+         lda   #$2A
+         lbsr  L2B03
+         clra  
+L2EDC    rts   
+L2EDD    jsr   <u0016
+         cmpa  #$02
+         beq   L2EEA
+         lbcc  L2D7E
+         lbsr  L2568
+L2EEA    pshs  u,x
+         leas  -$0A,s
+         leax  ,s
+         lbsr  L28C0
+         lda   <u0079
+         pshs  a
+         lda   #$01
+         sta   <u0079
+         bsr   L2F37
+         puls  a
+         ldb   <u0079
+         cmpb  #$01
+         beq   L2F06
+         inca  
+L2F06    ldb   #$01
+         stb   <u008A
+         sta   <u0079
+         lda   <u0086
+         suba  #$06
+         bmi   L2F1A
+         suba  <u0089
+         bmi   L2F1A
+         suba  <u008A
+         bpl   L2F20
+L2F1A    leas  $0A,s
+         puls  u,x
+         bra   L2ED4
+L2F20    sta   <u0088
+         ldb   <u0087
+         beq   L2F2F
+         bsr   L2EB6
+         bsr   L2EBB
+         lbsr  L2AA7
+         bra   L2F34
+L2F2F    bsr   L2EBB
+         lbsr  L2AA7
+L2F34    lbra  L2E86
+L2F37    pshs  x
+         lda   <u0079
+         adda  <u0089
+         bne   L2F45
+         lda   ,x
+         cmpa  #$35
+         bcc   L2F5C
+L2F45    deca  
+         bmi   L2F78
+         cmpa  #$07
+         bhi   L2F78
+         leax  a,x
+         ldb   $01,x
+         cmpb  #$35
+         bcs   L2F78
+L2F54    inc   ,x
+         ldb   ,x
+         cmpb  #$39
+         bls   L2F78
+L2F5C    ldb   #$30
+         stb   ,x
+         leax  -$01,x
+         cmpx  ,s
+         bcc   L2F54
+         ldx   ,s
+         leax  $08,x
+L2F6A    lda   ,-x
+         sta   $01,x
+         cmpx  ,s
+         bhi   L2F6A
+         lda   #$31
+         sta   ,x
+         inc   <u0079
+L2F78    puls  x
+         lda   <u0079
+         bpl   L2F7F
+         clra  
+L2F7F    sta   <u008A
+         nega  
+         adda  #$09
+         bpl   L2F87
+         clra  
+L2F87    cmpa  <u0089
+         bls   L2F8D
+         lda   <u0089
+L2F8D    sta   <u008B
+         rts   
+         ldb   #$30
+         stb   <u0036
+         coma  
+         rts   
+         emod
+eom      equ   *