Mercurial > hg > Members > kono > nitros9-code
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 *