Mercurial > hg > Members > kono > nitros9-code
changeset 229:a2023f60ac37
Still needs work, but its a start
| author | boisy |
|---|---|
| date | Tue, 16 Jul 2002 02:51:12 +0000 |
| parents | a7d1dd92b04f |
| children | 3d2fa54fe8fb |
| files | level1/cmds/basic09.asm |
| diffstat | 1 files changed, 12216 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/basic09.asm Tue Jul 16 02:51:12 2002 +0000 @@ -0,0 +1,12216 @@ + nam Basic09 + ttl program module + +* Disassembled 02/07/15 21:36:55 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set $16 + + 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 $DC \ + fcb $1C + fcb $A5 % + fcb $25 % + fcb $5A Z + fcb $31 1 + fcb $E8 h + fcb $3C < + fcb $09 + fcb $50 P + fcb $84 + fcb $00 + fcb $00 + +name equ * +L001B fcs /Basic09/ + fcb edition + + fcb $07 +L0024 fcb $0C + fcc " BASIC09" + fcb C$LF + fcc " RS VERSION 01.00.00" + fcb C$LF + fcc "COPYRIGHT 1980 BY MOTOROLA INC." + fcb C$LF + fcc " AND MICROWARE SYSTEMS CORP." + fcb C$LF + fcc " REPRODUCED UNDER LICENSE" + fcb C$LF + fcc " TO TANDY CORP." + fcb C$LF + fcc " ALL RIGHTS RESERVED." + + 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 +L010A fcb $9D + fcb $1E + fcb $04 +L010D fcb $9D + fcb $1E + fcb $02 +L0110 fcb $9D + fcb $1E + fcb $00 +L0113 fcb $9D + fcb $21 ! + fcb $00 +L0116 fcb $9D + fcb $24 $ + fcb $00 +L0119 fcb $9D + fcb $24 $ + fcb $04 +L011C fcb $9D + fcb $24 $ + fcb $02 +L011F fcb $9D + fcb $2A * + fcb $02 +L0122 fcb $9D + fcb $1E + fcb $0A +L0125 fcb $9D + fcb $1E + fcb $06 +L0128 fcb $9D + fcb $21 ! + fcb $02 +L012B fcb $9D + fcb $21 ! + fcb $06 +L012E fcb $9D + fcb $21 ! + fcb $04 + fcb $9D + fcb $24 $ + fcb $0A +L0134 fcb $9D + fcb $24 $ + fcb $0C +L0137 fcb $9D + fcb $24 $ + fcb $08 +L013A fcb $9D + fcb $2A * + fcb $00 + fcb $00 + fcb $72 r + fcb $02 +L0140 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 +L01AC 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 +L01FD fcb $47 G + fcb $4F O + fcb $54 T + fcb $CF O + fcb $21 ! + fcb $01 +L0203 fcb $47 G + fcb $4F O + fcb $53 S + fcb $55 U + fcb $C2 B + fcb $23 # + fcb $01 +L020A 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 +L0277 fcb $53 S + fcb $48 H + fcb $45 E + fcb $4C L + fcb $CC L + fcb $35 5 + fcb $01 +L027E fcb $42 B + fcb $41 A + fcb $53 S + fcb $C5 E + fcb $37 7 + fcb $01 +L0284 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 +L02B4 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 +L02EB 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 +L03F5 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 +L0668 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 +L06C1 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 +L0718 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 +L073F fcb $0E + fcb $52 R + fcb $65 e + fcb $61 a + fcb $64 d + fcb $F9 y +L0745 fcb $57 W + fcb $68 h + fcb $61 a + fcb $74 t + fcb $BF ? +L074A fcb $20 + fcb $66 f + fcb $72 r + fcb $65 e + fcb $E5 e +L074F fcb $50 P + fcb $72 r + fcb $6F o + fcb $67 g + fcb $72 r + fcb $61 a + fcb $ED m +L0756 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 +L0760 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 +L0781 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 +L078B fcb $52 R + fcb $41 A + fcb $4E N + fcb $47 G + fcb $45 E + fcb $87 +L0791 fcb $0E + fcb $42 B + fcb $52 R + fcb $45 E + fcb $41 A + fcb $4B K + fcb $3A : + fcb $A0 +L0799 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 +L07A2 fcb $6F o + fcb $EB k +L07A4 fcb $44 D + fcb $BA : +L07A6 fcb $45 E + fcb $BA : +L07A8 fcb $42 B + fcb $BA : +L07AA 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 : +L07B5 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 +L07C9 std ,--u + cmpu ,s + bhi L07C9 + 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 +L07FC os9 I$Close + inca + cmpa #$10 + bcs L07FC + lda #$02 + os9 I$Dup + sta <u00BE + clr <u0035 + pshs x + leax <L07B5,pcr + os9 F$Icpt + ldx <u0008 + clra + clrb +L0819 std ,--x + cmpx <u0004 + bhi L0819 + leax >L0000,pcr + pshs x + ldx <u0000 + leax <$1B,x + leay >L000D,pcr +L082E lda #$7E + sta ,x+ + ldd ,y++ + addd ,s + std ,x++ + ldd ,y + bne L082E + leas $02,s + lbsr L0116 + puls y + leax >L0140,pcr + stx <u009E + ldb ,y + cmpb #$0D + beq L08A6 + leax <L0860,pcr + pshs y + bsr L0870 + lbsr L0F91 + bcc L088F + lbsr L0AC3 + bra L088F +L0860 puls y + bsr L086D + ldx <u0004 + ldd ,x + std <u002F + lbsr L0DC7 +L086D leax <L08B2,pcr +L0870 puls u + bsr L0899 + 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] +L088F lds <u00B7 + puls b,a + std <u00B7 +L0896 lbra L0DBB +L0899 ldd <u00B7 + pshs b,a + sts <u00B7 + ldd $02,s + stx $02,s + tfr d,pc +L08A6 leax >L0024,pcr + bsr L08D0 + leax >L001B,pcr + bsr L08D0 +L08B2 bsr L086D + leax >L073F,pcr + bsr L08D0 + leax >L07A8,pcr + leay >L0668,pcr + clr <u0084 + bsr L08D3 + bcc L088F + bsr L08CC + bra L088F +L08CC leax >L0745,pcr +L08D0 lbra L125F +L08D3 pshs y,x + clr <u0035 + lbsr L126B + bsr L0896 + lda <u00BD + beq L08E3 + os9 I$Close +L08E3 clr <u00BD + lbsr L0B2D + bcc L08F8 + cmpb #$D3 + bne L0915 + ldd #$6279 + std ,y + ldd #$650D + std $02,y +L08F8 ldx $02,s + lda #$80 + lbsr L010A + bne L090F + lbsr L010D + beq L0915 + leax $03,x + lda #$20 + lbsr L010A + beq L0915 +L090F ldd ,x + leas $04,s + jmp d,x +L0915 coma + puls pc,y,x + lbsr L0A90 + bne L093C + leax ,y + ldd <u0008 + addd <u000A + inca + subd <u0000 + pshs b,a + lbsr L1748 + bcs L0946 + cmpd ,s++ + bcs L0948 + os9 F$Mem + bcs L093C + subd #$0001 + std <u0002 +L093C lbsr L0DBB + ldd <u0002 + bsr L09BA +L0943 lbra L1264 +L0946 leas $02,s +L0948 coma + rts + leax ,y + lbsr L0D5F + leax >L0760,pcr + lbsr L125F + ldy <u0004 + bra L099B +L095B pshs y,x + lda #$20 + tst $06,x + beq L0965 + lda #$2D +L0965 lbsr L1373 + lda #$20 + cmpx <u002F + bne L0970 + lda #$2A +L0970 lbsr L1373 + ldd $04,x + leax d,x + lbsr L135A + ldd #$1102 + bsr L09AD + ldd #$1C0B + bsr L09AD + ldd $0B,x + addd #$0040 + cmpd <u000C + bcs L0993 + lda #$3F + lbsr L1373 +L0993 bsr L0943 + puls y,x + tst <u0035 + bne L099F +L099B ldx ,y++ + bne L095B +L099F ldd <u000C + bsr L09BA + leax >L074A,pcr + lbsr L1261 + lbra L0D51 +L09AD pshs b + ldb #$10 + lbsr L011F + puls b + ldx $02,s + ldd b,x +L09BA pshs y,x,b,a + pshs b,a + leay <L09ED,pcr +L09C1 ldx #$2F00 +L09C4 puls b,a +L09C6 leax >$0100,x + subd ,y + bcc L09C6 + addd ,y++ + pshs b,a + ldd ,y + tfr x,d + beq L09E6 + cmpd #$3000 + beq L09C1 + lbsr L1373 + ldx #$2F01 + bra L09C4 +L09E6 lbsr L1373 + leas $02,s + puls pc,y,x,b,a +L09ED beq L09FF + com <u00E8 + neg <u0064 + neg <u000A + neg <u0001 + neg <u0000 + lbsr L0A90 + leau ,y + clrb +L09FF incb + lda ,y+ + cmpa #$0D + bne L09FF + clra + tfr d,y + leax >L0277,pcr + lda #$01 + clrb + os9 F$Fork + bcs L0A86 + pshs a +L0A17 os9 F$Wait + cmpa ,s + bne L0A17 + leas $01,s + tstb + bne L0A86 + rts + lda #$83 + bra L0A2A + lda #$84 +L0A2A leax ,y + os9 I$ChgDir + bcs L0A86 + rts + bsr L0A9D + lbsr L0F6E + bcs L0A8C + pshs x + ldx ,x + tst $06,x + bne L0A8C + bsr L0A90 + beq L0A48 +L0A45 comb + puls pc,x +L0A48 lbsr L010D + beq L0A45 + pshs y + lbsr L0F6E + bcs L0A58 + cmpx $02,s + bne L0A84 +L0A58 ldx $02,s + lbsr L1A2E + puls x + ldy <u004A +L0A62 lda ,x+ + sta ,y+ + bpl L0A62 + sty <u00AB + ldx [,s++] + ldd $04,x + leay d,x + ldb <$18,x + lda <u00A6 + sta <$18,x + clra + lbsr L19B1 + addd <u005E + std <u005E +L0A81 lbra L1995 +L0A84 ldb #$2C +L0A86 lbsr L1287 +L0A89 lbra L088F +L0A8C ldb #$2B + bra L0A86 +L0A90 ldb ,y+ + cmpb #$2C + beq L0A9C + cmpb #$20 + beq L0A9C + leay -$01,y +L0A9C rts +L0A9D lbsr L010D + bne L0AB0 +L0AA2 ldy <u002F + beq L0AAC + ldd $04,y + leay d,y + rts +L0AAC leay >L074F,pcr +L0AB0 rts +L0AB1 ldb #$2B + bra L0ABD +L0AB5 ldb #$20 +L0AB7 pshs b + bsr L0A81 + puls b +L0ABD cmpb #$D3 + beq L0A89 + bra L0A86 +L0AC3 leax ,y + lda #$01 + os9 I$Open + bcs L0ABD + sta <u00BD + bsr L0B2D + bsr L0B3C + bne L0AB1 +L0AD4 lbsr L010D + beq L0AB1 + pshs y + lbsr L0F6E + bcs L0AE8 + ldy ,s + leay -$01,y + lbsr L0E98 +L0AE8 ldy ,s + lbsr L0EFD + lbsr L1A2E + puls x + lbsr L125F +L0AF6 ldb <u0035 + bne L0AB7 + bsr L0B2D + bcs L0AB7 + lda <u000C + cmpa #$02 + bcs L0AB5 + bsr L0B3C + beq L0B14 + ldy <u0080 + ldd <u0060 + std <u005C + lbsr L1606 + bra L0AF6 +L0B14 ldx <u0080 + pshs y,x +L0B18 lda ,x+ + cmpa #$0D + bne L0B18 + stx <u0080 + stx <u0082 + lbsr L0128 + puls y,x + stx <u0080 + stx <u0082 + bra L0AD4 +L0B2D lda <u00BD + ldx <u0080 + ldy #$0100 + os9 I$ReadLn + ldy <u0080 + rts +L0B3C lbsr L010D + leax >L0756,pcr +L0B43 lda ,x+ + eora ,y+ + anda #$DF + bne L0B50 + tst -$01,x + bpl L0B43 + clra +L0B50 rts + lbsr L0C83 + ldu <u0046 + bra L0B79 +L0B58 ldy ,y + tst $06,y + lbne L0E68 + lda <$17,y + rora + lbcs L0E68 + ldd $0D,y + leay d,y + ldd -$03,y + lslb + rola + inca + cmpd <u000C + lbhi L0F69 +L0B79 ldy ,--u + bne L0B58 + ldd #$0607 + lbsr L0D6B + ldy <u0046 + stu <u0046 + lbra L0C7A +L0B8C pshs y + lbsr L1A2E + clr <u00D9 + lbsr L0128 + inc <u00D9 + ldx <u0062 + leay ,x + ldd <u0000 + addd <u0002 + tfr d,u + ldd -$03,x + beq L0C18 + pshs u +L0BA8 pshs b,a + leax $01,x + ldd ,x + pshu b,a + clr ,x+ + clr ,x+ +L0BB4 lda ,x+ + bpl L0BB4 + puls b,a + subd #$0001 + bne L0BA8 + ldy <u005E + bra L0BD1 +L0BC4 ldd ,y + ldx <u0062 + leax d,x + ldd $01,x + sty $01,x + std ,y++ +L0BD1 lbsr L1BC2 + bcc L0BC4 + puls u + ldx <u0062 + ldd -$03,x + leay ,x +L0BDE leau -u0002,u + pshs u,b,a + clra + ldu $01,x + beq L0C04 + pshs x + tfr y,d + subd <u0062 + bra L0BF3 +L0BEF std ,u + leau ,x +L0BF3 ldx ,u + bne L0BEF + std ,u + puls x + lda ,x + sta ,y+ + ldu [<$02,s] + stu ,y++ +L0C04 leax $03,x +L0C06 ldb ,x+ + cmpa #$A0 + bne L0C0E + stb ,y+ +L0C0E tstb + bpl L0C06 + puls u,b,a + subd #$0001 + bne L0BDE +L0C18 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 +L0C52 eora b,x + decb + bpl L0C52 + 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 L0DB6 + puls y +L0C7A ldx ,--y + lbne L0B8C + lbra L0D51 +L0C83 bsr L0C9D + lda ,y + cmpa #$0D + bne L0C9A + ldx <u0046 + ldx [<-$02,x] + ldd $04,x + leax d,x + lbsr L135A + lbsr L12CF +L0C9A leax ,y + rts +L0C9D ldu <u0046 + stu <u0044 + lbsr L0A90 + beq L0CC6 + cmpb #$2A + bne L0CCB + ldx <u0004 +L0CAC ldd ,x + beq L0CB4 + tfr x,d + leax $02,x +L0CB4 std ,--u + bne L0CAC + stu <u0044 + lda ,y + cmpa #$0D + beq L0CC2 + leay $01,y +L0CC2 sty <u0082 + rts +L0CC6 lbsr L010D + bne L0CD9 +L0CCB sty <u0082 + lbsr L0AA2 + lbsr L0F6E + bcc L0CE1 +L0CD6 lbra L0A8C +L0CD9 lbsr L0F6E + bcs L0CD6 + sty <u0082 +L0CE1 stx ,--u + ldy <u0082 + lbsr L0A90 + bne L0CF0 + lbsr L010D + bne L0CD9 +L0CF0 clra + clrb + bra L0CB4 + tst <u000C + lbeq L0F69 + lda #$80 + sta <u0084 + bsr L0C83 + bra L0D06 + bsr L0C9D + leax ,y +L0D06 stx <u005C + bsr L0D5F + ldy <u0046 + stu <u0046 + bra L0D49 +L0D11 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 L0D47 + leax <L0D3B,pcr + lbsr L0899 + lbsr L10E4 +L0D38 lbra L088F +L0D3B tst <u0084 + bmi L0D47 + ldx [,s] + lbsr L1A2E + lbsr L0128 +L0D47 puls y +L0D49 ldx ,--y + bne L0D11 +L0D4D bsr L0D51 + bra L0D38 +L0D51 pshs b + lda #$02 + os9 I$Close + lda <u00BE + os9 I$Dup + puls pc,b +L0D5F lbsr L0A90 + cmpb #$0D + beq L0DB5 + stx <u0082 + ldd #$020B +L0D6B pshs u,x,b,a + lda #$02 + os9 I$Close + ldd ,s + os9 I$Create + bcc L0DB3 + cmpb #$DA + bne L0DB6 + ldd ,s + ldx $02,s + os9 I$Open + bcs L0DB6 + leax >L0781,pcr + ldy #$000A + lda <u00BE + os9 I$WritLn + clra + leax ,--s + ldy #$0002 + os9 I$ReadLn + puls b,a + eora #$59 + anda #$DF + bne L0D4D + lda #$02 + ldb #$02 + ldx #$0000 + leau ,x + os9 I$SetStt + bcs L0DB6 +L0DB3 puls pc,u,y,b,a +L0DB5 rts +L0DB6 bsr L0D51 + lbra L0A86 +L0DBB clr <u007D + inc <u007D + pshs x + ldx <u0080 + stx <u0082 + puls pc,x +L0DC7 lbsr L010D + bne L0DDF + pshs y + lbsr L0A9D + ldx ,s +L0DD3 lda ,y+ + sta ,x+ + bpl L0DD3 + lda #$0D + sta ,x + puls y +L0DDF lbsr L0F91 + lbcs L0A8C + ldx ,x + stx <u002F + lda $06,x + beq L0DF6 + anda #$0F + cmpa #$02 + bne L0E68 + bra L0DFC +L0DF6 lda <$17,x + rora + bcs L0E68 +L0DFC lbsr L0110 + ldy <u004A + ldb ,y + cmpb #$3D + beq L0E68 + sty <u005E + sty <u005C + ldx <u00AB + stx <u0060 + stx <u004A + ldd <u000C + pshs y,b,a + lbsr L0113 + puls y,b,a + std <u000C + sty <u004A + ldx <u002F + lda <$17,x + rora + bcs L0E68 + 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 >L0E5F,pcr + lbsr L0899 + ldx <u004A + lbsr L0119 + lbsr L0DBB + ldx <u002F + lbsr L011C + bra L0E65 +L0E5F puls x,b,a + std <u004A + stx <u000C +L0E65 lbra L088F +L0E68 ldb #$33 + lbra L0A86 + bsr L0E8F + clrb + os9 F$Exit + lbsr L010D + beq L0E8B + lbsr L0F6E + bcs L0E8B + ldu <u0046 + clra + clrb + pshu x,b,a + inca + sta <u0035 + bsr L0E9F + clr <u0035 + rts +L0E8B comb + ldb #$2B + rts +L0E8F ldy <u0082 + lda #$2A + sta ,y + sta <u0035 +L0E98 lbsr L0C9D + clr <u002F + clr <u0030 +L0E9F ldu <u0046 + stu <u0044 + bra L0EE3 +L0EA5 ldx ,x + ldb $06,x + beq L0EC0 + cmpb #$22 + bne L0EB5 + ldb <$17,x + lslb + bmi L0EC0 +L0EB5 pshs u + leau ,x + os9 F$UnLink + puls u + bra L0EDE +L0EC0 tst <u0035 + bne L0EE3 + ldx ,u + lbsr L0FB6 + ldy ,x + ldd <u000A + subd $02,y + std <u000A + ldd $02,y + addd <u000C + std <u000C + ldd <u004A + subd $02,y + std <u004A +L0EDE ldd #$FFFF + std [,u] +L0EE3 ldx ,--u + bne L0EA5 + ldx <u0004 + tfr x,y +L0EEB ldd ,x++ + cmpd #$FFFF + beq L0EEB +L0EF3 std ,y++ + bne L0EEB + cmpd ,y + bne L0EF3 + rts +L0EFD bsr L0F6E + bcs L0F02 + rts +L0F02 pshs u,x + tfr x,d + cmpb #$FE + beq L0F69 + ldx <u000C + cmpx #$00FF + bcs L0F69 + leax <-$1C,x + ldu <u004A + ldb #$FF +L0F18 incb + clr b,u + cmpb #$18 + bne L0F18 +L0F1F incb + leax -$01,x + beq L0F69 + inc <u0018,u + lda ,y+ + sta b,u + bpl L0F1F + 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 +L0F69 ldb #$20 + lbra L0A86 +L0F6E pshs u,y + ldx <u0004 +L0F72 ldy ,s + ldu ,x++ + beq L0F8E + ldd u0004,u + leau d,u +L0F7D lda ,y+ + eora ,u+ + anda #$DF + bne L0F72 + clra + tst -u0001,u + bpl L0F7D +L0F8A leax -$02,x + puls pc,u,b,a +L0F8E coma + bra L0F8A +L0F91 bsr L0F6E + bcs L0F96 + rts +L0F96 pshs u,y,x + ldb $01,s + cmpb #$FE + beq L0F69 + leax ,y + clra + clrb + os9 F$Link + bcc L0FB0 + ldx $02,s + clra + clrb + os9 F$Load + bcs L0FB4 +L0FB0 stx $02,s + stu [,s] +L0FB4 puls pc,u,y,x +L0FB6 pshs y,x + ldd <u0008 + addd <u000A + tfr d,y + ldx ,x + sty [,s] + ldd $02,x + bsr L0FE3 + pshs y,x,b,a + ldx <u0004 + bra L0FDB +L0FCD cmpd $02,s + bcs L0FDB + cmpd $04,s + bhi L0FDB + subd ,s + std -$02,x +L0FDB ldd ,x++ + bne L0FCD + leas $06,s + puls pc,y,x +L0FE3 pshs u,y,x,b,a + ldu #$0000 + tfr x,d + subd $04,s + pshs x,b,a + addd $04,s + beq L1022 +L0FF2 lda ,x + pshs a + bra L1000 +L0FF8 lda ,y + sta ,x + leau u0001,u + tfr y,x +L1000 tfr x,d + addd $05,s + cmpd $09,s + bcs L100B + addd $01,s +L100B tfr d,y + cmpd $03,s + bne L0FF8 + puls a + sta ,x + leax $01,y + stx $02,s + leau u0001,u + tfr u,d + addd ,s + bne L0FF2 +L1022 leas $04,s + puls pc,u,y,x,b,a + pshs u,y,x,b,a + lda <u0036 + cmpa #$39 + beq L1068 + tst <u00A0 + bne L10AA + inc <u00A0 + lda <u0035 + bne L1064 + ldd <u00B3 + subd #$0001 + bhi L1089 + bmi L104E +L1041 lbsr L0DBB + leax >L0791,pcr + lbsr L135A + lbsr L124D +L104E leax >L07A4,pcr + leay >L06C1,pcr + lbsr L08D3 + bcc L104E + lda <u0035 + bne L1064 + lbsr L08CC + bra L104E +L1064 cmpa #$02 + bne L1041 +L1068 lbsr L0134 + lda #$03 +L106D cmpa <u00BE + beq L1074 + os9 I$Close +L1074 inca + cmpa #$10 + bcs L106D + lbra L088F + lbsr L0A90 + bne L108E + leax ,y + lbsr L1748 + bcc L1091 + rts +L1089 bsr L1091 + clrb + bra L1090 +L108E ldb #$01 +L1090 clra +L1091 std <u00B3 + lsl <u0034 + coma + ror <u0034 + bra L10A6 + lbsr L0DBB + lsl <u0034 + lsr <u0034 + ldd #$0001 + std <u00B3 +L10A6 leas $02,s + clr <u00A0 +L10AA puls pc,u,y,x,b,a + ldy <u0019 + jsr ,y + pshs u,y,x,b,a + cmpy <u0046 + beq L10E2 + ldb <u007D + ldx <u0080 + ldu <u0082 + pshs u,x,b + stu <u0080 + lbsr L0DBB + lda #$3D + lbsr L1373 + ldb ,y + addb #$01 + cmpb #$06 + bcc L10D7 + leax ,y + lbsr L13AA +L10D7 lbsr L1264 + puls u,x,b + stb <u007D + stx <u0080 + stu <u0082 +L10E2 puls pc,u,y,x,b,a +L10E4 lbsr L124B + tst <$17,x + bmi L110A + ldx <u005E +L10EE clr <u0074 +L10F0 tst <u0035 + bne L110A + leay ,x + lbsr L1BC9 + bsr L110C + exg x,y + cmpx <u0060 + bcs L10F0 + cmpx <u005C + bne L110A + cmpy <u0060 + bcs L10F0 +L110A clra + rts +L110C pshs u,y,x + lbsr L0DBB + ldx <u002F + tst <$17,x + bmi L1193 + ldx ,s + tfr y,d + subd ,s + bmi L1190 + pshs x,b,a + addd #$0040 + cmpd <u000C + lbcc L0F69 + tst <u0084 + bmi L1158 + lda #$20 + cmpx <u005C + bhi L113F + beq L113D + cmpy <u005C + bls L113F +L113D lda #$2A +L113F lbsr L1373 + cmpx <u0060 + bcc L1158 + tfr x,d + subd <u005E + ldx <u0082 + lbsr L012B + lda #$20 + sta ,x+ + stx <u0082 + lbsr L1270 +L1158 puls y,b,a + cmpy <u0060 + bcc L1190 + ldu <u004A + lbsr L19EF + lbsr L11F2 + stu <u005C + leax d,u + stx <u0060 + stx <u004A + leay ,u + tst <u0084 + bmi L1183 + leax ,y + lbsr L1677 + bne L1183 + leax >L02EB,pcr + lbsr L126B +L1183 lbsr L0DBB + lbsr L1AC6 + lbsr L128B + bsr L11D5 + dec <u0083 +L1190 lbsr L1264 +L1193 puls pc,u,y,x + ldx <u002F + tst <$17,x + bpl L119E + coma + rts +L119E ldy <u0080 + lbsr L0122 + bsr L11F2 + ldx <u004A + lbsr L1677 + beq L11D5 + stx <u005E + stx <u005C + leay ,x + ldx <u00AB + stx <u0060 + stx <u004A + lbsr L012E + ldx <u002F + lda <$17,x + clr <$17,x + tsta + bne L11D5 + leax <L11D5,pcr + lbsr L0899 + ldx <u005E + lbsr L0137 + lbra L088F +L11D5 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 +L11EB stu <u0046 + stu <u0044 + clra + puls pc,u,y,x,b,a +L11F2 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 L11EB + ldy <u0031 + leax >L0756,pcr +L1211 bsr L1223 + lbsr L135A + ldx $03,y + bsr L1256 + leax >L0799,pcr + ldy $07,y + bne L1211 +L1223 lbra L0DBB + lbsr L010D + beq L1249 + lbsr L0F6E + bcs L1249 + ldx ,x + ldy <u0031 +L1235 ldy $07,y + beq L1249 + cmpx $03,y + bne L1235 + lsl ,y + coma + ror ,y + leax >L07A2,pcr + bra L125F +L1249 coma + rts +L124B bsr L1223 +L124D leax >L0756,pcr + lbsr L135A + ldx <u002F +L1256 pshs x + leax <$19,x + bsr L1261 + puls pc,x +L125F bsr L1223 +L1261 lbsr L1392 +L1264 lbsr L1371 + bsr L1270 + bra L1223 +L126B bsr L1223 + lbsr L1392 +L1270 pshs y,x,b,a + ldd <u0082 + subd <u0080 + bls L1285 + tfr d,y + ldx <u0080 + lda #$02 + os9 I$WritLn + bcc L1285 + bsr L1287 +L1285 puls pc,y,x,b,a +L1287 os9 F$PErr + rts +L128B ldy <u005C + cmpy <u0060 + bcc L12CF + ldb ,y + cmpb #$3A + bne L12A3 + leay $01,y + lbsr L13CF + lbsr L135C + ldb ,y +L12A3 tst <u0084 + bmi L12B8 + bsr L12F9 + ldb <u0074 + pshs b + bsr L12D8 + puls a + sta <u0074 + tfr b,a + lbsr L134E +L12B8 ldb ,y+ + bmi L12C4 + bsr L12F9 + bsr L12D8 + bsr L130C + bra L12C7 +L12C4 lbsr L1489 +L12C7 cmpy <u0060 + bcs L12B8 +L12CC sty <u005C +L12CF lda #$0D + lbra L1373 + leas $02,s + bra L12CC +L12D8 sta ,-s + bmi L12F6 + anda #$03 + beq L12F6 + cmpa #$01 + bne L12E8 + inc <u0074 + bra L12F6 +L12E8 decb + bpl L12EC + clrb +L12EC cmpa #$03 + beq L12F6 + dec <u0074 + bpl L12F6 + clr <u0074 +L12F6 lda ,s+ + rts +L12F9 leax >L03F5,pcr + tstb + bpl L1302 + subb #$2A +L1302 lda #$03 + mul + leax d,x + lda ,x + rts +L130A bsr L12F9 +L130C leax $01,x + anda #$60 + beq L1318 + cmpa #$60 + bne L132A + leay $02,y +L1318 lda -$01,x + pshs a + ldd ,x + leax d,x + puls a + anda #$18 + cmpa #$10 + beq L1392 + bra L1358 +L132A cmpa #$20 + bne L1332 + ldd ,x + jmp d,x +L1332 bsr L133A + bsr L1336 +L1336 lda ,x+ + bne L1373 +L133A lda <u007D + cmpa #$41 + bcs L1357 + lda #$0A + bsr L1373 + clr <u007D + tst <u0084 + bmi L1357 + lda <u0074 + adda #$03 +L134E lsla + adda #$06 + ldb #$10 + lbsr L011F + clra +L1357 rts +L1358 bsr L135C +L135A bsr L1392 +L135C pshs u,b,a + bsr L133A + bcc L136F + ldu <u0082 + lda #$20 + cmpa -u0001,u + beq L136F + cmpu <u0080 + bne L1377 +L136F puls pc,u,b,a +L1371 lda #$0D +L1373 pshs u,b,a + ldu <u0082 +L1377 sta ,u+ + ldd <u0082 + subd <u0080 + tsta + bne L1384 + inc <u007D + stu <u0082 +L1384 puls pc,u,b,a + lda #$2E + bsr L1373 +L138A ldx ,y++ + ldd <u0062 + leax d,x + leax $03,x +L1392 pshs x +L1394 lda ,x + anda #$7F + bsr L1373 + tst ,x+ + bpl L1394 + puls pc,x + ldb #$03 + ldx <u0044 + pshs y,b + leay -$01,y + bra L13AC +L13AA pshs y,b +L13AC ldd $04,y + std ,--x + ldd $02,y + std ,--x + ldd ,y + std ,--x + leay ,x + puls b + bra L13DC + ldb ,y + clra + bra L13D1 + leax >L0203,pcr + bra L13CD + leax >L01FD,pcr +L13CD bsr L1358 +L13CF ldd ,y++ +L13D1 pshs y + ldy <u0044 + leay -$06,y + std $01,y + ldb #$02 +L13DC lbsr L011F + puls pc,y +L13E1 bsr L13F1 +L13E3 lda ,y+ + cmpa #$FF + beq L13F1 + bsr L1373 + cmpa #$22 + bne L13E3 + bra L13E1 +L13F1 lda #$22 +L13F3 lbra L1373 + lda #$24 + bsr L13F3 + ldb #$14 + lbsr L011F + leay $02,y + rts + leax >L027E,pcr + lbsr L135A + lda -$01,y + adda #$FB + bra L13F3 + leax >L020A,pcr +L1413 lbsr L135A + lbra L138A + leax >L01AC,pcr + leay $01,y + bsr L1413 + leay $06,y + rts + leax >L02B4,pcr + lbsr L1358 + lda ,y + cmpa #$3A + beq L1433 + inc <u0074 +L1433 rts +L1434 bvc L13E0 + leax >L1434,pcr + bra L1440 + leax >L0284,pcr +L1440 lbsr L135A + ldb ,y+ +L1445 decb + beq L1433 + lda ,y+ + bsr L13F3 +L144C bra L1445 + com <u00EF + bita <u0001 + std ,--w + aim #$ED,<u00F2 + lsr <u00EF + anda <u0080 + stu [e,x] + neg <u00A6 + suba -$0C,y + aim #$86,<u003A +L1464 bsr L13F3 + leax <L144C,pcr +L1469 leax $02,x + lda ,s + anda ,x + cmpa ,x+ + bne L1469 + tsta + beq L1487 + eora ,s + sta ,s + ldd ,x + leax d,x + lbsr L1392 + lda #$2B + tst ,s + bne L1464 +L1487 puls pc,a +L1489 pshs u + ldu <u0044 + clr ,-u + clr ,-u + leay -$01,y +L1493 ldb ,y + bpl L14C4 + lbsr L12F9 + tfr a,b + lda ,y+ + bitb #$80 + bne L1493 + orb #$80 + pshu b,a + bitb #$18 + bne L1493 + andb #$7F + pshu b,a + bitb #$04 + bne L14B8 + ldd ,y++ + std u0002,u + bra L1493 +L14B8 leay -$01,y + sty u0002,u + ldb ,y+ + lbsr L1B68 + bra L1493 +L14C4 sty <u005C + leay ,u + clra + clrb + std ,--y + pshs b,a + sta <u00BF + sta <u00B1 +L14D3 ldd ,u++ + bitb #$08 + beq L14FE + andb #$07 + cmpb <u00BF + bhi L14F2 + bne L14EF + cmpb #$06 + bne L14EB + tst <u00B1 + beq L14EF + bra L14F2 +L14EB tst <u00B1 + beq L14F2 +L14EF lbsr L1581 +L14F2 stb <u00BF + orb #$80 + std ,--y + lda #$01 + sta <u00B1 + bra L14D3 +L14FE clr <u00B1 + bitb #$03 + beq L152D + bitb #$04 + bne L152D + bitb #$10 + bne L1510 + pulu x + stx ,--y +L1510 std ,--y + andb #$03 + bsr L1581 + cmpa #$BE + bne L151F + ldx #$54FF + stx ,--y +L151F ldx #$4B80 + bra L1526 +L1524 stx ,--y +L1526 decb + bne L1524 + stb <u00BF +L152B bra L14D3 +L152D bitb #$10 + bne L1535 + pulu x +L1533 pshs x +L1535 pshs b,a + cmpa #$89 + bcs L153F + cmpa #$8C + bls L14D3 +L153F ldd ,y++ + tstb + bmi L154A + beq L1558 + ldx ,y++ + bra L1533 +L154A pshs b,a + clr $01,s + bitb #$10 + bne L153F + andb #$07 + stb <u00BF + bra L152B +L1558 ldx ,u++ + beq L1569 + pshu x + std ,--y + bra L152B +L1562 puls y + ldb ,y+ + lbsr L130A +L1569 ldd ,s++ + beq L157C + bitb #$04 + bne L1562 + leay ,s + exg a,b + lbsr L130A + leas ,y + bra L1569 +L157C ldy <u005C + puls pc,u +L1581 ldx ,s + pshs x + ldx #$4E00 + stx $02,s + ldx #$4DFF + stx ,--y + rts + lbsr L0A9D + lbsr L0EFD + ldy ,x + tst $06,y + bne L15E5 + pshs x + lbsr L1A2E + lbsr L124B + ldy <u005E + bsr L15F3 +L15AA lda <u0035 + cmpa #$02 + bne L15B3 + lbsr L1993 +L15B3 leax >L07A6,pcr + leay >L0718,pcr + lbsr L08D3 + bcc L15AA + tst <u0035 + bne L15AA + leax >L15AA,pcr + pshs x + ldx <u0080 + lsl ,x + lsr ,x + lbsr L1748 + lbcs L08CC + lbsr L1A0D + lda ,x + cmpa #$0D + beq L15F3 + ldy <u0080 + bra L1601 +L15E5 coma + rts + leax -$01,y + lsl ,x + asr ,x + lbsr L16F2 + lbsr L16BD +L15F3 sty <u005C + lbsr L1682 + leax ,y + lbsr L1BC9 + lbra L16AD +L1601 bsr L1606 + bcc L15F3 + rts +L1606 tst <u000C + beq L1670 + clr <u00A0 + lbsr L0122 + ldx <u004A + lda ,x + cmpa #$3A + bne L165E + clra + clrb + sta ,-s + ldy <u005C + lbsr L1A10 + cmpy <u0060 + bcc L162F + ldd $01,x + cmpd $01,y + bls L162F + inc ,s +L162F ldy <u005E + ldd $01,x + lbsr L1A0D + tst ,s+ + bne L1642 + bcc L1642 + cmpy <u005C + bcc L165E +L1642 sty <u005C + cmpy <u0060 + bcc L165E + ldx <u004A + ldd $01,x + cmpd $01,y + bne L165E + pshs y + lbsr L1BC9 + tfr y,d + subd ,s++ + bra L1660 +L165E clra + clrb +L1660 ldy <u005C + lbsr L19B1 + ldx <u005C + bsr L1677 + bne L166E + leay ,x +L166E clra + rts +L1670 ldb #$20 + lbsr L1287 + coma + rts +L1677 lda ,x + cmpa #$3A + bne L167F + lda $03,x +L167F cmpa #$3D + rts +L1682 ldx #$0000 + ldy <u005E +L1688 cmpy <u005C + bcc L1697 + leax $01,x + lbsr L1BC9 + cmpy <u0060 + bcs L1688 +L1697 sty <u005C + stx <u00B5 + clra + rts + bsr L16CE + bsr L16BD + cmpx <u005E + bhi L16AD + pshs y,x + lbsr L124B + puls y,x +L16AD ldd <u0060 + pshs b,a + sty <u0060 + lbsr L10EE + puls b,a + std <u0060 + clra + rts +L16BD pshs x,b + ldx <u0082 + ldb ,x + cmpb #$0D + bne L16C9 + puls pc,x,b +L16C9 leas $05,s + lbra L08CC +L16CE lda ,y+ + cmpa #$20 + beq L16CE + cmpa #$2A + bne L16E1 + sty <u0082 + ldx <u005E + ldy <u0060 + rts +L16E1 leax -$01,y + bsr L16F2 + bcs L16F1 + ldx <u005C + cmpy <u005C + bcc L16F1 + exg x,y + clra +L16F1 rts +L16F2 clr ,-s + ldd ,x + cmpa #$2B + bne L1707 + ldy <u0060 +L16FD cmpb #$2A + bne L1712 + leax $02,x + stx <u0082 + puls pc,a +L1707 cmpa #$2D + bne L1714 + inc ,s + ldy <u005E + bra L16FD +L1712 leax $01,x +L1714 lda ,x + cmpa #$30 + bcs L171E + cmpa #$39 + bls L1723 +L171E ldd #$0001 + bra L1727 +L1723 bsr L1748 + bcs L1742 +L1727 stx <u0082 + ldy <u005C + tst ,s+ + beq L173D + ldy <u005E + pshs b,a + ldd <u00B5 + subd ,s++ + bcc L173D + clra + clrb +L173D lbsr L1BCF + clra + rts +L1742 ldy <u005C + com ,s+ + rts +L1748 ldy <u0046 + lbsr L013A + lda ,y+ + cmpa #$02 + beq L1759 + clra + ldd ,y + bne L175A +L1759 coma +L175A rts + clrb + bra L1760 + ldb #$01 +L1760 leas -$0F,s + stb ,s + lda ,y + clr $01,s + cmpa #$2A + bne L1770 + sta $01,s + leay $01,y +L1770 ldb ,y+ + cmpb #$20 + beq L1770 + tfr b,a + sty <u0082 + lbsr L18AA + stu $02,s + lbmi L1985 + tst ,s + beq L1791 + lbsr L18AA + stu $04,s + lbmi L1985 +L1791 cmpa #$0D + beq L179D + lda ,y+ + cmpa #$0D + lbne L1985 +L179D ldu <u0046 + stu $0D,s +L17A1 lda ,-y + sta ,-u + cmpy <u0082 + bhi L17A1 + 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 L1878 +L17C1 lbsr L0DBB + sty <u005C + lbsr L128B + ldy <u0080 + leay $05,y + lsl $0A,s + asr $0A,s +L17D3 tst <u0035 + bne L183A + ldd <u0082 + subd $02,s + ldx <u0046 + lbsr L18BE + bcs L182F + lda #$81 + sta $0A,s + tst ,s + beq L182F + ldd <u0082 + addd $04,s + subd $02,s + subd <u0080 + cmpd #$00E6 + bhi L182F + ldx <u0082 + exg x,y + ldd $02,s + lbsr L0FE3 + tfr y,d + subd $02,s + tfr d,y + ldu $06,s + pshs x,b,a +L180B lda ,u+ + sta ,y+ + cmpa #$FF + bne L180B + leay -$01,y + ldd ,s++ + subd ,s + puls x + lbsr L0FE3 + sty <u0082 + ldd $04,s + leay d,x + ldd $02,s + bne L182B + leay $01,y +L182B tst $01,s + bne L17D3 +L182F tst $0A,s + bpl L1872 + ldy $08,s + ldd ,s + bne L1845 +L183A ldx $0D,s + stx <u0046 + stx <u0044 + leas $0F,s + lbra L15F3 +L1845 lbsr L1270 + sty $0B,s + tst ,s + beq L1872 + leax ,y + lbsr L1BC9 + lbsr L19A5 + sty <u005C + ldy <u0080 + lbsr L1606 + sty <u005C + ldy $08,s + lbsr L1BC9 + cmpy <u005C + bne L1882 + tst $01,s + beq L1882 +L1872 ldy $08,s + lbsr L1BC9 +L1878 sty $08,s + cmpy <u0060 + lbcs L17C1 +L1882 lbsr L0DBB + tst $0A,s + bne L1899 + leax >L07AA,pcr + lbsr L135A + ldy <u0046 + lbsr L13E1 + lbsr L1264 +L1899 ldy $0B,s + sty <u005C + ldx $0D,s + stx <u0046 + stx <u0044 + leas $0F,s + lbra L1682 +L18AA ldu #$FFFF +L18AD cmpa #$0D + beq L18B9 + leau u0001,u + lda ,y+ + cmpb -$01,y + bne L18AD +L18B9 clr -$01,y + com -$01,y + rts +L18BE pshs b,a + bra L18D2 +L18C2 pshs y,x +L18C4 lda ,x+ + cmpa #$FF + beq L18DA + cmpa ,y+ + beq L18C4 + puls y,x + leay $01,y +L18D2 cmpy ,s + bls L18C2 + coma + puls pc,b,a +L18DA 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 L18FA + ldy #$0000 +L18F6 leax $01,x + lda ,x +L18FA cmpa #$20 + beq L18F6 + pshs y + cmpa #$0D + beq L191C + lbsr L1748 + bcs L1981 + std $02,s + lda ,x+ + cmpa #$0D + beq L191C + lbsr L1748 + bcs L1981 + std $04,s + bmi L1981 + lda ,x +L191C cmpa #$0D + bne L1981 + bsr L1995 + ldd ,s++ + ldy <u005E + lbsr L1BCF + sty <u005C + ldd ,s + lbsr L1A0D + clr ,-s + cmpy <u005C + bcs L198A + bsr L1960 + cmpx #$0000 + ble L198A + tst <u0035 + bne L194C + tst <u0035 + bne L194C + inc ,s + bsr L1960 +L194C leas $05,s + ldx $02,s + lbsr L1A2E + ldy <u005E + ldd <u00B5 + lbsr L1BCF + sty <u005C + clra + rts +L1960 ldy <u005C + ldx $03,s +L1965 clra + clrb + lbsr L1A10 + cmpy <u0060 + bcc L1980 + tst $02,s + beq L1975 + stx $01,y +L1975 lbsr L1BC9 + tfr x,d + addd $05,s + tfr d,x + bpl L1965 +L1980 rts +L1981 leas $06,s + bra L1987 +L1985 leas $0F,s +L1987 lbra L08CC +L198A leax >L078B,pcr + lbsr L125F + bra L194C +L1993 leas $04,s +L1995 lbsr L0128 + clra + rts + lbsr L16CE + lbsr L16BD + bsr L19A5 + lbra L15F3 +L19A5 ldd <u004A + std <u00AB + tfr y,d + pshs x + subd ,s++ + leay ,x +L19B1 pshs u,y,x,b,a + leax d,y + pshs x + ldy <u00AB + ldd <u004A + subd ,s + beq L19C3 + lbsr L0FE3 +L19C3 ldd <u00AB + ldu ,s + subd ,s++ + bls L19D1 + ldy $04,s + lbsr L0125 +L19D1 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 +L19EF pshs y,x,b,a + leay d,y + leau d,u + andb #$03 +L19F7 beq L1A06 + lda ,-y + sta ,-u + decb + bra L19F7 +L1A00 ldx ,--y + ldd ,--y + pshu x,b,a +L1A06 cmpy $04,s + bne L1A00 + puls pc,y,x,b,a +L1A0D ldy <u005E +L1A10 pshs b,a + bra L1A17 +L1A14 lbsr L1BC9 +L1A17 cmpy <u0060 + bcc L1A2B + lda ,y + cmpa #$3A + bne L1A14 + ldd ,s + cmpd $01,y + bhi L1A14 + puls pc,b,a +L1A2B coma + puls pc,b,a +L1A2E pshs u,y,x,b,a + lbsr L0FB6 + 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 L19EF + 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 L1AC6 + ldx <u0062 + ldd -$03,x + beq L1A9E +L1A83 pshs b,a + leau ,x + leax $03,x +L1A89 ldb ,x+ + bpl L1A89 + lda #$02 + cmpb #$A4 + bne L1A95 + lda #$04 +L1A95 sta ,u + puls b,a + subd #$0001 + bgt L1A83 +L1A9E 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 +L1AB2 ldb ,y+ + bpl L1AB8 + subb #$2A +L1AB8 clra + leax >L1BD5,pcr + ldb d,x + lsrb + lsrb + lsrb + lsrb + lbsr L1B75 +L1AC6 cmpy <u0060 + bcs L1AB2 + rts +L1ACC daa + lbsr L3013 + pshs u,b,a + bgt L1B21 + mul + brn L1B2A + exg x,0 + orcc #$0F + lda -$01,y + adda #$93 + sta -$01,y + leay $01,y +L1AE3 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 L1B03 + leay $09,y + rts +L1B03 clrb + bsr L1B23 + leay $07,y + rts + lda ,y + cmpa #$4F + bne L1AE3 + leay $05,y + rts +L1B12 lda ,y+ + cmpa #$FF + bne L1B12 + rts + ldb ,y + clra + leay d,y + rts + ldb -$01,y +L1B21 andb #$04 +L1B23 lda #$60 + pshs b,a + lda #$85 + sta -$01,y + ldx <u0062 + ldd -$03,x + ldu ,y + bra L1B40 +L1B33 puls b,a +L1B35 subd #$0001 + beq L1B65 + leax $03,x +L1B3C tst ,x+ + bpl L1B3C +L1B40 cmpu $01,x + bne L1B35 + pshs b,a + lda ,x + anda #$E0 + cmpa $02,s + bne L1B33 + lda ,x + anda #$18 + bne L1B33 + lda ,x + anda #$04 + eora $03,s + bne L1B33 + tfr x,d + subd <u0062 + std ,y++ + leas $02,s +L1B65 leas $02,s + rts +L1B68 tstb + bpl L1B6D + subb #$2A +L1B6D leax <L1BD5,pcr + clra + ldb d,x + andb #$0F +L1B75 leax >L1ACC,pcr + ldb b,x + jmp b,x +L1B7D pshs u + ldb ,y+ +L1B81 cmpb ,u+ + bhi L1B81 + puls u + beq L1B91 + bsr L1B68 +L1B8B cmpy <u0060 + bcs L1B7D + coma +L1B91 puls pc,u,x,b,a +L1B93 tfr y,x + abx + stu >$3456 + leau >L1B93,pcr + bra L1B8B +L1B9F fcb $3E > +L1BA0 swi + fcb $FF + pshs u,x,b,a + leau <L1B9F,pcr + bra L1B8B +L1BA9 pshs u,x,b,a + leau <L1BA0,pcr + bra L1B8B +L1BB0 bls L1B37 + lda #$87 + eora #$89 + ora #$8B + cmpx #$F2F3 + andb >$F5F6 + stb >$F8F9 + stu >$3456 + leau <L1BB0,pcr + bra L1B8B +L1BC9 clra + clrb +L1BCB bsr L1BA9 + bcs L1BD4 +L1BCF subd #$0001 + bcc L1BCB +L1BD4 rts +L1BD5 neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0022 + neg <u0000 + lsr $00,x + bhi L1BED +L1BED neg <u0000 + bhi L1BF1 +L1BF1 bhi L1BF3 +L1BF3 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 L1C3F + neg <u0000 + fcb $11 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + neg <u0000 + bhi L1BCE + sbca ,-y + sbca ,-y + bhi L1C54 + bhi L1C56 + bhi L1C58 + bhi L1C5A + fcb $11 + bhi L1C6E + fcb $55 U + bhi L1C3E +L1C3E 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 <L1CB5,pcr + ldd b,x + leax d,x + stx $04,s + puls pc,x,b,a +L1CB5 aim #$E9,<u0007 + tim #$08,>$7508 + comb + lsl <u0008 + oim #$74,<u009D + fcb $1B + aim #$9D,<u001B + lsr <u009D + fcb $1B + ror <u009D + bpl L1CCD +L1CCD jsr <u001B + nop + neg <u0021 + com <u00CB + adcb <u000A + cwai #$BE + addb #$D9 + dec <u003E + cmpx >$CBE4 + dec <u003C + jsr >$CBE4 + dec <u003D +L1CE6 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 L1D3C + 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 L1CE6 + ror <u00A2 + neg <u0091 + ror <u00A4 + addb #$3F + aim #$8D,<u0003 + adda >$0122 + oim #$12,<u0001 + bhi L1D6A + 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 L1DA4 + adda >$0227 +L1DA4 com <u00BB + aim #$54,<u0003 + ldd <u0002 + lda <u0002 + adcb #$03 + ldd <u0003 + ldd <u0003 + leau $03,x + leau $03,x + bls L1DBB + 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 +L1DDC lsl ,x + lsr ,x + cmpa ,x+ + bne L1DDC + ldx <u00A7 + bsr L1E1F + ldd <u00B9 + subd <u00A7 + pshs b + ldx <u00AF + stx <u00AB + ldy <u00A7 + lda #$3D + lbsr L2415 + lbsr L20F8 + lbsr L2415 + lda #$20 + ldx <u0080 +L1E04 sta ,x+ + dec ,s + bpl L1E04 + ldd #$5E0D + std -$01,x + ldx <u0080 + bsr L1E1F + puls b,a + lbsr L1CC1 + ldx <u0046 + stx <u0044 +L1E1C lbra L1CC7 +L1E1F ldy #$0100 + lda <u002E + os9 I$WritLn + rts + puls x + lbsr L1CC4 + lbsr L1F90 + lbsr L214C + sty <u00A7 + ldx <u00AB + stx <u00AF +L1E3B bsr L1E4C + lda <u00A3 + lbsr L2415 + cmpa #$3E + beq L1E3B + cmpa #$3F + bne L1DD4 + bra L1E1C +L1E4C lbsr L233E + lda <u00A4 + cmpa #$01 + bne L1E62 + ldb <u00A3 + clra + lslb + rola + leax >L1D60,pcr + ldd d,x + jmp d,x +L1E62 cmpa #$02 + lbne L2126 +L1E68 pshs x + ldx <u00AB + leax -$01,x + stx <u00AB + puls pc,x + lbsr L2167 + cmpa #$DD + lbne L211F + bsr L1E68 + lda #$53 + lbsr L2415 +L1E82 lbsr L2167 + cmpa #$4D + bne L1E9B + lbsr L216E + bne L1E96 + lbsr L216E + bne L1E96 + lbsr L216E +L1E96 lbsr L22BF + bsr L1EC9 +L1E9B lbsr L21A1 + beq L1E82 + cmpa #$4C + bne L1EC3 + bsr L1EC9 + ldb <u00A4 + cmpb #$00 + beq L1EC1 + cmpb #$03 + bne L1ECC + cmpa #$44 + bne L1EC1 + bsr L1EC9 + cmpa #$4F + bne L1EC3 + lbsr L216E + cmpa #$50 + bne L1ECC +L1EC1 bsr L1EC9 +L1EC3 cmpa #$51 + beq L1E82 + bra L1E68 +L1EC9 lbra L233E +L1ECC lda #$18 + bra L1F36 +L1ED0 lbsr L2415 + bsr L1F1D + lbsr L21A1 + beq L1ED0 +L1EDA lda #$55 +L1EDC lbsr L2415 + bra L1F2B + lbsr L213C + lbsr L21A6 + lbra L2139 + bsr L1F39 + cmpa #$45 + bne L1EFB + lbsr L2415 + lbsr L214C + bcc L1F3F + lbra L1E4C +L1EFB lda #$26 + bra L1F36 + bsr L1F2B + bra L1F49 + lbsr L2193 + lbsr L212D + lda <u00A3 + cmpa #$46 + bne L1F20 + bsr L1F1B + lda <u00A3 + cmpa #$47 + bne L1EDA + bsr L1F1B + bra L1EDA +L1F1B bsr L1EDC +L1F1D lbra L213C +L1F20 lda #$27 + bra L1F36 + lbsr L2193 + bsr L1F2B + bsr L1F2B +L1F2B lbra L2176 + bsr L1F39 + cmpa #$48 + beq L1F47 + lda #$1F +L1F36 lbra L1DD6 +L1F39 bsr L1F1D + bra L1EDA + bsr L1F2B +L1F3F bra L1F8D + bsr L1F39 + cmpa #$45 + bne L1EFB +L1F47 bsr L1FB1 +L1F49 lbra L1E4C + ldd <u00AB + pshs y,b,a + lbsr L233E + cmpa #$1E + bne L1F60 + leas $04,s + bsr L1F8D + cmpa #$1F + beq L1F8A + rts +L1F60 puls y,b,a + std <u00AB + bsr L1F39 + ldx <u00AB + leax -$01,x + pshs x + cmpa #$1F + beq L1F7C + cmpa #$21 + beq L1F7C + lda #$21 + bra L1F36 +L1F78 bsr L1FB1 + lda #$3A +L1F7C inc [,s] + bsr L1F8A + lbsr L21A1 + beq L1F78 + puls pc,x + lbsr L210E +L1F8A lbsr L2156 +L1F8D lbra L210B +L1F90 sty <u00A7 + ldx <u004A + stx <u00AF + stx <u00AB + clr <u00BB + clr <u00BC + rts + bsr L1F90 + inc <u00A0 + lbsr L210B + bsr L1FC0 + clr <u00A0 + lda <u00A3 + cmpa #$3F + lbne L1DD4 +L1FB1 lbra L2415 + lbsr L210E + pshs x + lbsr L2193 + ldb #$23 + stb [,s++] +L1FC0 cmpa #$4D + bne L1FF5 +L1FC4 bsr L1FB1 + ldd <u00AB + pshs y,b,a + lbsr L233E + ldd #$0005 + cmpa <u00A4 + beq L1FD8 + stb <u00A4 + bra L1FDB +L1FD8 lbsr L2182 +L1FDB puls y,b,a + std <u00AB + ldb <u00A4 + cmpb #$05 + beq L1FE8 + lbsr L225D +L1FE8 lbsr L2314 + lbsr L21A1 + beq L1FC4 + pshs a + lbra L22F7 +L1FF5 rts + sty <u00A9 + lbsr L2186 + bne L2007 + sty <u00A9 + bsr L2022 + bsr L1FB1 + bsr L1F8D +L2007 ldy <u00A9 + cmpa #$90 + bne L201A + lbsr L233E + lbsr L1F8D +L2014 bsr L2022 +L2016 lda #$4B + bsr L2080 +L201A bsr L2073 + lbsr L219B + beq L2016 +L2021 rts +L2022 lbsr L219B + beq L2021 + bra L207D + sty <u00A9 + lbsr L2186 + beq L203A + cmpa #$49 + beq L203E +L2035 ldy <u00A9 + bra L2045 +L203A cmpa #$49 + bne L2054 +L203E lbsr L2139 + bra L2054 +L2043 bsr L2080 +L2045 lbsr L245D + cmpa #$0D +L204A lbeq L210B + cmpa #$5C + beq L204A + bsr L2085 +L2054 lbsr L219B + beq L2043 + rts + sty <u00A9 + lbsr L2186 + beq L2014 + ldy <u00A9 + bra L201A + sty <u00A9 + lbsr L2186 + beq L2054 + bra L2035 + bsr L2078 +L2073 inc <u00BC + lbra L2180 +L2078 lbsr L2186 + bne L20D7 +L207D lbsr L21A6 +L2080 lbra L2415 + bsr L2078 +L2085 lbra L213C +L2088 bge L208B + blt L208E + stb >$03F8 + lsr <u00F9 + suba #$00 + lbsr L233E + cmpa #$54 + bne L20D7 + bsr L2073 + bsr L207D + bsr L2085 + lda <u00A3 + cmpa #$4C + bne L2114 + lda #$4A + bsr L2080 + clr ,-s +L20AC bsr L210B + leax <L2088,pcr +L20B1 cmpa ,x++ + bhi L20B1 + bne L20C7 + ldb -$01,x + orb ,s + stb ,s + bsr L210B + cmpa #$E7 + beq L20AC + lda ,s+ + bne L2080 +L20C7 lda #$0F + bra L20D9 +L20CB lbsr L21A1 + bne L2114 + bsr L2080 + lbsr L2186 + beq L20CB +L20D7 lda #$1C +L20D9 lbra L1DD6 + bsr L214C + bra L210B + lbsr L245D + leay $01,y + suba #$30 + beq L210B + cmpa #$01 + lbne L21C9 + bsr L210E + lda #$36 + lbsr L2415 + bra L210B +L20F8 ldx <u00AB + lbsr L245D + clra +L20FE lbsr L2415 + inc ,x + lda ,y+ + cmpa #$0D + bne L20FE + leay -$01,y +L210B lbsr L233E +L210E ldx <u00AD + stx <u00AB + lda <u00A3 +L2114 rts +L2115 lda <u00A4 + cmpa #$00 + beq L2114 + lda #$0C + bra L20D9 +L211F lda #$1B +L2121 bra L20D9 + lbsr L233E +L2126 bsr L2115 + inc <u00BC + lbsr L21FC +L212D lda <u00A3 + cmpa #$52 + beq L2139 + cmpa #$DD + bne L211F + lda #$53 +L2139 lbsr L2415 +L213C lda #$39 +L213E ldx <u0044 + clrb + lbsr L22BA +L2144 bsr L21B4 + lbsr L2262 + bcc L2144 +L214B rts +L214C lbsr L245D + lbsr L246E + bcs L214B + lda #$3A +L2156 bsr L217D + lbsr L23A6 + beq L2163 + ldd ,x + lbgt L240C +L2163 lda #$10 + bra L2121 +L2167 bsr L216B + bsr L2115 +L216B lbra L1EC9 +L216E lda #$8E + bsr L2156 + bsr L216B + bra L21A1 +L2176 clra + bsr L217D + bsr L217D + bra L218E +L217D lbra L2415 +L2180 bsr L216B +L2182 bsr L2115 + bra L21FC +L2186 bsr L210B + cmpa #$54 + bne L2192 + bsr L2139 +L218E lda <u00A3 + cmpa <u00A3 +L2192 rts +L2193 bsr L216B + lbsr L2115 +L2198 lbra L210B +L219B lda <u00A3 + cmpa #$51 + beq L21A5 +L21A1 lda <u00A3 + cmpa #$4B +L21A5 rts +L21A6 bsr L21A1 + beq L21A5 + lda #$1D + bra L21CB +L21AE clrb + bsr L21F5 + lbsr L210E +L21B4 bsr L21EA + bsr L21CE + cmpa #$4D + beq L21AE + ldb <u00A4 + cmpb #$06 + beq L2198 + cmpb #$04 + bne L2182 + lbra L22CA +L21C9 lda #$12 +L21CB lbra L1DD6 +L21CE cmpa #$CD + beq L21E3 + cmpa #$EA + bne L21A5 + lda ,y + lbsr L246E + bcc L21ED + cmpa #$2E + beq L21ED + lda #$CE +L21E3 ldb #$07 + bsr L21F5 + lbsr L210E +L21EA lbra L233E +L21ED leay -$01,y + lbsr L1E68 + lbra L237A +L21F5 ldx <u0044 + std ,--x + stx <u0044 + rts +L21FC ldd #$8500 +L21FF pshs b,a + ldd <u00A1 + bsr L21F5 + puls b,a + bsr L21F5 + lbsr L210E + lbsr L210B + clrb + cmpa #$4D + beq L2226 +L2214 cmpa #$89 + bne L2247 + bsr L2257 + bsr L2247 + bsr L21EA + lbsr L2115 + ldd #$8900 + bra L21FF +L2226 bsr L2257 + incb + pshs b + lbsr L2314 + lbsr L21A1 + bne L223E + ldb ,s+ + cmpb #$03 + bcs L2226 + lda #$2A + lbra L1DD6 +L223E bsr L22BF + lbsr L210B + puls b + bra L2214 +L2247 clr <u00BC + ldx <u0044 + addb ,x++ + lbsr L2413 + ldd ,x++ + stx <u0044 + lbra L240C +L2257 tst <u00BC + beq L228A + clr <u00BC +L225D lda #$0E +L225F lbra L2415 +L2262 ldb <u00A3 + clra + cmpb #$4E + beq L228B + tstb + bpl L2273 + lbsr L1CCD + bita #$08 + bne L228B +L2273 ldx <u0044 +L2275 ldd ,x++ + cmpa #$4D + beq L22C5 + bsr L225F + tstb + bne L2275 + cmpa #$39 + bne L2287 + lbsr L1E68 +L2287 stx <u0044 + coma +L228A rts +L228B anda #$07 + tfr a,b + ldx <u0044 + bra L2297 +L2293 lda ,x++ + bsr L230F +L2297 cmpb $01,x + bcs L2293 + bhi L22B8 + cmpb #$06 + beq L22B8 + tstb + bne L2293 + lda ,x++ + cmpa #$4D + bne L22B0 + stx <u0044 + bsr L22FE + bra L2262 +L22B0 cmpa #$39 + beq L2307 + bsr L230F + bra L2287 +L22B8 lda <u00A3 +L22BA std ,--x + stx <u0044 +L22BE rts +L22BF lda <u00A3 + cmpa #$4E + beq L22BE +L22C5 lda #$25 +L22C7 lbra L1DD6 +L22CA lbsr L1E68 + lda <u00A3 + pshs a + bsr L22FE + ldb ,s + lbsr L1CCD + leax <L22F7,pcr + pshs x + anda #$03 + beq L230B + cmpa #$02 + beq L231B + bhi L2322 + ldb $02,s + cmpb #$92 + beq L2331 + cmpb #$94 + beq L2331 + cmpb #$BE + beq L2326 + bra L2312 +L22F7 bsr L22BF + puls a + lbsr L2415 +L22FE lbra L210B +L2301 lda <u00A3 + cmpa #$4D + beq L22BE +L2307 lda #$22 + bra L22C7 +L230B leas $02,s + puls a +L230F lbra L2415 +L2312 bsr L2301 +L2314 clra + lbsr L213E + lbra L1E68 +L231B bsr L2312 +L231D lbsr L21A6 + bra L2314 +L2322 bsr L231B + bra L231D +L2326 bsr L2301 + bsr L22FE + cmpa #$54 + beq L2314 + lbra L20D7 +L2331 bsr L2301 + incb + lbsr L2413 + lbra L2180 +L233A lda #$0A + bra L22C7 +L233E ldd <u00AB + std <u00AD + lbsr L245D + sty <u00B9 + lbsr L2430 + lbne L23E1 + lda ,y + lbsr L246E + bcc L237A + leax >L1CD3,pcr + lda #$80 + lbsr L252A + beq L233A + ldb ,x + leau <L239D,pcr + jmp b,u +L2368 ldd $01,x +L236A stb <u00A4 + sta <u00A3 + lbra L2415 + lda ,y + lbsr L246E + bcs L2368 + leay -$01,y +L237A bsr L23A6 + bne L238F + ldd #$8F05 +L2381 sta <u00A3 +L2383 bsr L23D6 + lda ,x+ + decb + bpl L2383 + lda #$06 + sta <u00A4 + rts +L238F ldd #$8E02 + tst ,x + bne L2381 + ldd #$8D01 + leax $01,x + bra L2381 +L239D leay -$01,y + bsr L23A6 + ldd #$9102 + bra L2381 +L23A6 lbsr L245D + leax ,y + ldy <u0044 + lbsr L1CCA + exg x,y + bcs L23BA + lda ,x+ + cmpa #$02 + rts +L23BA lda #$16 + bra L23DA + bsr L2368 + bra L23C4 +L23C2 bsr L2415 +L23C4 lda ,y+ + cmpa #$0D + beq L23D8 + cmpa #$22 + bne L23C2 + cmpa ,y+ + beq L23C2 + leay -$01,y + lda #$FF +L23D6 bra L2415 +L23D8 lda #$29 +L23DA lbra L1DD6 +L23DD lda #$31 + bra L23DA +L23E1 ldx <u009E + lbsr L2528 + beq L23EF + stx <u00A1 + ldd ,x +L23EC lbra L236A +L23EF tst <u00A0 + bmi L23DD + ldx <u0062 + lbsr L2528 + bne L2401 + tst <u00A0 + bne L23DD + lbsr L2494 +L2401 ldd #$8500 + bsr L23EC + tfr x,d + subd <u0062 + std <u00A1 +L240C bsr L2415 + bsr L2413 + lda <u00A3 + rts +L2413 tfr b,a +L2415 pshs x,b,a + ldx <u00AB + sta ,x+ + stx <u00AB + ldd <u00AB + subd <u004A + cmpb #$FF + bcc L2428 + clra + puls pc,x,b,a +L2428 lda #$0D + lbsr L1CC1 + lbra L1CC7 +L2430 bsr L245D + pshs y + ldb #$02 + stb <u00A5 + clrb + bsr L2478 + bcs L2459 + leay $01,y +L243F incb + lda ,y+ + bsr L246A + bcc L243F + cmpa #$24 + bne L2451 + incb + leay $01,y + lda #$04 + sta <u00A5 +L2451 leay -$01,y + lda #$80 + ora -$01,y + sta -$01,y +L2459 stb <u00A6 + puls pc,y +L245D lda ,y+ + cmpa #$20 + beq L245D + cmpa #$0A + beq L245D + leay -$01,y + rts +L246A bsr L2478 + bcc L2493 +L246E cmpa #$30 + bcs L2493 + cmpa #$39 + bls L2491 + bra L248E +L2478 anda #$7F + cmpa #$41 + bcs L2493 + cmpa #$5A + bls L2491 + cmpa #$5F + beq L2493 + cmpa #$61 + bcs L2493 + cmpa #$7A + bls L2491 +L248E orcc #$01 + rts +L2491 andcc #$FE +L2493 rts +L2494 ldx <u0062 + ldd -$03,x + addd #$0001 + std -$03,x + ldb <u00A6 + clra + addd #$0003 + sty <u00A9 + bsr L24EE + pshs y + lda <u00A5 + clrb + std ,y++ + clr ,y+ + ldx <u00A9 +L24B3 lda ,x+ + sta ,y+ + bpl L24B3 + leay ,x + puls pc,x +L24BD pshs u,b,a + ldd <u000C + subd ,s + bcc L24CA + lda #$20 + lbra L1DD6 +L24CA 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 L2508 + ldd <u0068 + addd ,s++ + std <u0068 + leax ,u + puls pc,u +L24EE pshs u,b,a + bsr L24BD + subd ,s + std <u0068 + leau ,x + leax $03,y + stx <u0062 + ldd <u0064 + bsr L2508 + addd ,s++ + std <u0064 + leax ,u + puls pc,u +L2508 pshs x,b,a + leax d,u + pshs x +L250E bitb #$03 + beq L251F + lda ,u+ + sta ,y+ + decb + bra L250E +L2519 pulu x,b,a + std ,y++ + stx ,y++ +L251F cmpu ,s + bcs L2519 + clr ,s++ + puls pc,x,b,a +L2528 lda #$20 +L252A pshs u,y,x,a + ldu -$03,x + ldb -$01,x +L2530 stx $01,s + cmpu #$0000 + beq L2558 + leau -u0001,u + ldy $03,s + leax b,x +L253F lda ,x+ + eora ,y+ + beq L2551 + cmpa ,s + beq L2551 + leax -$01,x +L254B lda ,x+ + bpl L254B + bra L2530 +L2551 tst -$01,x + bpl L253F + sty $03,s +L2558 puls pc,u,y,x,a + pshs x,b,a + ldb [<$04,s] + leax <L256A,pcr + ldd b,x + leax d,x + stx $04,s + puls pc,x,b,a +L256A ror <u00E6 + tim #$36,<u0001 + bvc L2572 + subd <u009D + fcb $1B + aim #$9D,<u001B + ror <u009D + fcb $1B + sexw +L257B jsr <u001E + lsl <u009D + exg d,w +L2581 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 L260A + neg <u0043 + nega + bvc L262E + neg <u0043 + coma + coma + coma + coma + coma + coma + eim #$00,<u0043 + coma + coma + neg <u0045 + neg <u0025 + neg <u0045 + neg <u0005 + neg <u0021 + brn L2669 + beq L264B + bhi L2648 + bhi L2688 + 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 +L2648 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 L2675 + pshs b,a + leay -$01,y + ldd <u0060 +L2669 std <u00AB + ldd #$0003 + lbsr L2578 + puls b,a + bra L2677 +L2675 leay $02,y +L2677 lbsr L29DE + bcc L268E + std ,x + tfr y,d + subd <u005E + leax $02,x +L2684 ldu ,x + std ,x +L2688 leax ,u + bne L2684 + bra L2692 +L268E lda #$4B + bsr L26CE +L2692 leax >L2581,pcr + ldb ,y+ + bpl L269F + ldd #$03D1 + bra L26A9 +L269F lslb + clra + ldd d,x + cmpd #$03D1 + bcs L26BF +L26A9 tst <u00C7 + bne L26BF + inc <u00C7 + pshs b,a + tfr y,d + subd <u005E + subd #$0001 + ldu <u002F + std <u0015,u + puls b,a +L26BF jmp d,x + ldx <u002F + lda #$01 + sta <$17,x + ldb ,y+ + clra + leay d,y + rts +L26CE pshs y,x,b,a + ldx <u002F + lda #$01 + sta <$17,x + lda <u0084 + bmi L26FB + ldd $04,s + subd <u005E + leas -$05,s + leax ,s + bsr L26FD + lda #$20 + sta ,x+ + lda #$02 + leax ,s + ldy #$0005 + os9 I$Write + leas $05,s + ldb ,s + lbsr L2572 +L26FB puls pc,y,x,b,a +L26FD bsr L2701 + tfr b,a +L2701 pshs a + lsra + lsra + lsra + lsra + bsr L270D + puls a + anda #$0F +L270D adda #$30 + cmpa #$39 + bls L2715 + adda #$07 +L2715 sta ,x+ + rts +L2718 ldb ,y + bsr L2721 + bne L2720 +L271E leay $01,y +L2720 rts +L2721 cmpb #$3F + beq L2727 + cmpb #$3E +L2727 rts + lbsr L2F43 + ldb <u00CF + beq L2733 + lda #$4C + bsr L26CE +L2733 leay $04,y + lda #$40 + sta <u00CE + ldd <u00C1 + pshs b,a + clra + clrb + std <u00C1 + bsr L2787 + ldd <u00CC + subd <u0060 + beq L277A + addd #$0003 + cmpd <u000C + lbcc L2A0D + pshs y,x + lbsr L257B + ldd <u00C1 + leau ,y + std ,y++ + clr ,y+ + ldx <u0060 +L2762 ldd ,x++ + subd <u0062 + std ,y++ + inc u0002,u + cmpx <u00CC + bcs L2762 + tfr u,d + puls y,x + subd <u0066 + std $01,x + lda #$25 + sta ,x +L277A puls b,a + std <u00C1 + rts + lda #$80 + bra L2785 + lda #$60 +L2785 sta <u00CE +L2787 ldd <u0060 + pshs x,b,a + std <u00CC +L278D bsr L27E0 + ldb ,y+ + cmpb #$4B + beq L278D + cmpb #$4C + beq L279F + leay -$01,y + ldb #$01 + bra L27A3 +L279F lbsr L283A + clrb +L27A3 pshs y,b + ldx $03,s + ldd <u00CC + std $03,s + stx <u00CC + subd <u00CC + lslb + rola + addd $03,s + cmpd <u00DA + lbcc L2A0D + bra L27CE +L27BC ldu ,x++ + tst ,s + beq L27CB + lda ,u + sta <u00D1 + lbsr L3083 + std <u00D6 +L27CB lbsr L2878 +L27CE cmpx $03,s + bcs L27BC + ldd <u00CC + std $03,s + puls y,b + ldb ,y+ + cmpb #$51 + beq L278D + puls pc,x,b,a +L27E0 lbsr L2F43 + ldb <u00CF + beq L27FF + lda #$4C + lbsr L26CE + leay $03,y + ldb ,y + cmpb #$4D + bne L27FE + leay $01,y +L27F6 bsr L282E + ldb ,y+ + cmpb #$4B + beq L27F6 +L27FE rts +L27FF ldd <u00CC + addd #$000A + cmpd <u00DA + lbcc L2A0D + ldx <u00CC + ldd <u00D2 + std ,x++ + leau ,x + clr ,x+ + leay $03,y + ldb ,y + cmpb #$4D + bne L282B + leay $01,y +L281F bsr L282E + std ,x++ + inc ,u + ldb ,y+ + cmpb #$4B + beq L281F +L282B stx <u00CC + rts +L282E ldb ,y+ + clra + cmpb #$8D + beq L2837 + lda ,y+ +L2837 ldb ,y+ + rts +L283A lda ,y+ + cmpa #$85 + beq L285B + suba #$40 + sta <u00D1 + cmpa #$04 + bne L2856 + ldb ,y + cmpb #$4F + bne L2856 + leay $01,y + bsr L282E + leay $01,y + bra L2875 +L2856 lbsr L3083 + bra L2875 +L285B leay -$01,y + lbsr L2F43 + leay $03,y + ldb <u00CF + cmpb #$20 + beq L286D + lda #$18 + lbra L26CE +L286D ldd $01,x + std <u00D2 + ldx <u0066 + ldd d,x +L2875 std <u00D6 + rts +L2878 ldb ,x+ + beq L28D0 + pshs b + lslb + lslb + lslb + stb <u00D0 + lsrb + lsrb + leax b,x + addb #$04 + pshs u,x + lda <u00D1 + cmpa #$04 + bcs L2893 + addb #$02 +L2893 clra + cmpd <u000C + lbhi L2A0D + lbsr L257B + ldx ,s + leau $02,y + ldd #$0001 + std ,u++ +L28A7 ldd ,--x + std ,u++ + bsr L28F7 + dec $04,s + bne L28A7 + lda <u00D1 + cmpa #$04 + bls L28BC + ldd <u00D2 + std ,u + coma +L28BC ldd <u00D6 + bcs L28C2 + std ,u +L28C2 bsr L28F7 + tfr y,d + puls u,x + subd <u0066 + std u0001,u + leas $01,s + bra L28E0 +L28D0 stb <u00D0 + lda <u00D1 + cmpa #$04 + bhi L28DC + ldd <u00D6 + bra L28DE +L28DC ldd <u00D2 +L28DE std u0001,u +L28E0 lda <u00D1 + ora <u00D0 + ora <u00CE + sta ,u + pshs x + leax ,u + lbsr L2FEE + ldx <u00CC + stu ,x++ + stx <u00CC + puls pc,x +L28F7 pshs b,a + ldb $02,y + mul + bne L2923 + lda $01,s + ldb $02,y + mul + tsta + bne L2923 + stb $02,y + lda ,s + ldb $03,y + mul + tsta + bne L2923 + addb $02,y + bcs L2923 + stb $02,y + lda $01,s + ldb $03,y + mul + adda $02,y + bcs L2923 + std $02,y + puls pc,b,a +L2923 lda #$49 + lbsr L26CE + puls pc,b,a + ldu <u00CA + bne L2936 + tfr y,d + subd <u005E + std <u00C8 + bra L293C +L2936 tfr y,d + subd <u005E + std ,u +L293C lbsr L2D65 + lbsr L2E52 + ldb ,y+ + cmpb #$4B + beq L293C + sty <u00CA + ldd <u00C8 + std ,y++ + lbra L271E + leay -$01,y + bsr L2984 + leay $01,y + lbsr L2D65 + lbsr L2E52 + sta <u00D1 + lbsr L2E52 + cmpa <u00D1 + beq L2981 + cmpa #$02 + bhi L297E + beq L2971 + lda #$C8 + bra L2973 +L2971 lda #$CB +L2973 ldb <u00D1 + cmpb #$02 + bhi L297E + lbsr L2FBE + bra L2981 +L297E lbsr L2A26 +L2981 lbra L2718 +L2984 lda ,y + cmpa #$0E + lbne L2D65 + leay $01,y + lbsr L2D65 +L2991 lda -$03,y + cmpa #$85 + bcc L299F + ldd <u00D2 + subd <u0062 + std -$02,y + lda #$85 +L299F adda #$6D + sta -$03,y + rts + bsr L29A6 +L29A6 bsr L2A1A + leay $01,y + rts + ldb ,y+ + cmpb #$1E + beq L29C5 + leay -$01,y + bsr L29A6 + ldd ,y++ +L29B7 pshs b,a + leay $01,y + bsr L29CC + puls b,a + subd #$0001 + bne L29B7 + rts +L29C5 ldb ,y+ + lbsr L2721 + beq L29DD +L29CC ldd ,y + bsr L29DE + ldd $02,x + bcc L29D7 + sty $02,x +L29D7 std ,y + inc -$01,y + leay $03,y +L29DD rts +L29DE ldx <u0066 + pshs b,a + bra L29ED +L29E4 ldd ,x + anda #$7F + cmpd ,s + beq L2A08 +L29ED leax -$04,x + cmpx <u00DA + bcc L29E4 + ldd <u000C + subd #$0004 + bcs L2A0D + std <u000C + ldd ,s + ora #$80 + std ,x + clra + clrb + std $02,x + stx <u00DA +L2A08 lda ,x + rola + puls pc,b,a +L2A0D lda #$20 + sta <u0036 + lbsr L26CE + lbsr L30EB + lbra L2575 +L2A1A lbsr L2D65 + lbsr L2E52 + cmpa #$02 + beq L2A2B + bcs L29DD +L2A26 lda #$47 + lbra L26CE +L2A2B lda #$C8 + lbra L2FBE + lbsr L2BAF + lda $03,y + cmpa #$3A + beq L2A3E + lda #$10 + lbra L2BA8 +L2A3E pshs y + leay $04,y + bsr L29CC + tfr y,d + subd <u005E + std [,s++] + rts + ldd #$1002 + lbsr L2BDD + ldu $01,x + sty $01,x + leay $02,y + lbsr L2718 + tfr y,d + subd <u005E + std ,u + rts + ldd #$1001 + lbsr L2BDD + leay $01,y +L2A6A tfr y,d + subd <u005E + std [<$01,x] + lbra L2C01 + lbsr L2F43 + lbsr L2EE3 + cmpa #$60 + bne L2A88 + lda <u00D1 + cmpa #$01 + beq L2A94 + cmpa #$02 + beq L2A94 +L2A88 lda #$46 + lbsr L26CE + ldd #$FFFF + std <u00D2 + bra L2AA0 +L2A94 ldb <u00D0 + bne L2A88 + adda #$80 + sta ,y + ldd $01,x + std $01,y +L2AA0 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 L2AF1 + bsr L2AD4 + std $03,x + lda ,y + cmpa #$47 + bne L2AC6 + bsr L2AD4 + std $05,x +L2AC6 leay $01,y + sty ,--x + lda #$13 + sta ,-x + stx <u0044 + leay $03,y +L2AD3 rts +L2AD4 ldd <u00C1 + pshs b,a + std $01,y + ldx <u0044 + lda ,x + leax >L307E,pcr + ldb a,x + clra + addd <u00C1 + std <u00C1 + leay $03,y + bsr L2AF1 + ldx <u0044 + puls pc,b,a +L2AF1 lbsr L2D65 + lbsr L2E52 + cmpa ,u + beq L2AD3 + cmpa #$02 + bcs L2B07 + lbne L2A26 + lda #$C8 + bra L2B09 +L2B07 lda #$CB +L2B09 lbra L2FBE + leay -$01,y + ldd #$130B + lbsr L2BDD + ldd $02,y + cmpd $04,x + beq L2B22 + lda #$46 + lbsr L26CE + bra L2B51 +L2B22 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 L2B3E + inc $01,y +L2B3E ldu $01,x + tfr y,d + subd <u005E + addd #$0001 + std ,u + leau u0003,u + tfr u,d + subd <u005E + std $08,y +L2B51 leay $0B,y + lbsr L2C01 + leax $07,x + stx <u0044 + rts + leau -$01,y + pshs u + bsr L2BAF + puls b,a + std ,y + lda #$15 + bra L2BA8 + ldd #$1503 + bsr L2BDD + ldx $01,x + ldd ,x + subd <u005E + std ,y + leay $03,y + tfr y,d + subd <u005E + std ,x + lbra L2C01 + lda #$17 +L2B83 lbsr L271E + bra L2BD3 + bsr L2BAF + lda #$17 +L2B8C leay -$01,y + ldb #$03 + bsr L2BDD + ldd $01,x + subd <u005E + std $01,y + leay $04,y + bra L2C01 + lda #$19 + bra L2B83 + lda #$19 + bra L2B8C + bsr L2BAF + lda #$1B +L2BA8 bsr L2BD3 + leay $03,y + lbra L2718 +L2BAF lbsr L2D65 + lbsr L2E52 + cmpa #$03 + beq L2BBE + lda #$47 + lbsr L26CE +L2BBE leay $01,y + rts + ldd #$1B03 + bsr L2BDD + leau ,y + leay $03,y + lbsr L2A6A + stu ,--x + lda #$1C + bra L2BD8 +L2BD3 ldx <u0044 + sty ,--x +L2BD8 sta ,-x + stx <u0044 + rts +L2BDD pshs a + ldx <u0044 + bra L2BE5 +L2BE3 leax $03,x +L2BE5 cmpx <u0046 + bcc L2BF3 + lda ,x + cmpa #$1C + beq L2BE3 + cmpa ,s + beq L2BFF +L2BF3 leas $03,s + lda #$45 + lbsr L26CE + leay b,y + lbra L2718 +L2BFF puls pc,a +L2C01 ldx <u0044 + bra L2C14 +L2C05 lda ,x + cmpa #$1C + bne L2C1A + tfr y,d + subd <u005E + std [<$01,x] + leax $03,x +L2C14 cmpx <u0046 + bcs L2C05 + bra L2C1C +L2C1A leax $03,x +L2C1C stx <u0044 + rts + leay -$01,y + lbsr L2F43 + lda <u00CF + beq L2C41 + cmpa #$A0 + beq L2C4E + cmpa #$60 + bcs L2C3A + lda <u00D0 + bne L2C3A + lda <u00D1 + cmpa #$04 + beq L2C4E +L2C3A lda #$4C + lbsr L26CE + bra L2C4E +L2C41 lda #$A0 + sta ,x + ldd <u00C5 + std $01,x + addd #$0002 + std <u00C5 +L2C4E leay $03,y + ldb ,y+ + cmpb #$4D + bne L2C64 +L2C56 lbsr L2984 + lbsr L2E52 + ldb ,y+ + cmpb #$4B + beq L2C56 + leay $01,y +L2C64 rts + bsr L2CB2 + leay -$01,y + cmpb #$90 + bne L2C72 + lbsr L2D0B + leay $01,y +L2C72 lbsr L2984 + lbsr L2E52 + cmpa #$05 + bcs L2C81 + lda #$4D + lbsr L26CE +L2C81 lda ,y+ + cmpa #$4B + beq L2C72 + rts + bsr L2CB2 + cmpb #$49 + bne L2C92 + bsr L2D0B +L2C90 ldb ,y+ +L2C92 cmpb #$4B + beq L2C90 + cmpb #$51 + beq L2C90 + lbsr L2721 + beq L2CC5 + leay -$01,y + lbsr L2D65 + lbsr L2E52 + cmpa #$05 + bcs L2C90 + lda #$47 + lbsr L26CE + bra L2C90 +L2CB2 ldb ,y+ + cmpb #$54 + bne L2CC5 + lbsr L2A1A +L2CBB ldb ,y+ + cmpb #$4B + beq L2CBB + cmpb #$51 + beq L2CBB +L2CC5 rts + leay $01,y + lbsr L2984 + lbsr L2E52 + cmpa #$01 + beq L2CD5 + lbsr L2A26 +L2CD5 leay $01,y + bsr L2D0B + lda ,y+ + cmpa #$4A + bne L2CE1 + leay $02,y +L2CE1 rts + bsr L2D02 + bsr L2D65 + lbsr L2E52 + cmpa #$42 + bls L2D20 + lbra L2A26 + bsr L2D02 + lbsr L2984 + lbsr L2E52 + bra L2D20 +L2CFA bsr L2D02 + cmpb #$4B + beq L2CFA + bra L2D20 +L2D02 leay $01,y + lbra L29A6 + bsr L2D0B + bra L2D20 +L2D0B bsr L2D65 + lbsr L2E52 + cmpa #$04 + beq L2D17 + lbsr L2A26 +L2D17 rts + ldb ,y+ + cmpb #$3A + lbeq L29CC +L2D20 lbra L2718 +L2D23 cmpb #$96 + bcc L2D2C + lbsr L2E5F + bra L2D65 +L2D2C cmpb #$F2 + lbcc L308D + subb #$96 + leax >L2601,pcr + leax b,x + ldb ,x + lbeq L308D + andb #$1F + beq L2D4A + leau <L2DA2,pcr + lslb + jsr b,u +L2D4A ldb ,x + andb #$E0 + beq L2D60 + clra + rolb + rola + rolb + rola + rolb + rola + cmpa #$07 + bne L2D60 + lbsr L2FD4 + bra L2D65 +L2D60 lbsr L2E3B + leay $01,y +L2D65 ldb ,y + bmi L2D23 + rts +L2D6A bsr L2D6F + incb + bra L2D71 +L2D6F ldb #$C8 +L2D71 lbsr L2E52 + cmpa #$02 + bcs L2D85 + beq L2D7E + bsr L2DC3 + bra L2D83 +L2D7E tfr b,a + lbsr L2FBE +L2D83 lda #$01 +L2D85 rts +L2D86 bsr L2D8B + incb + bra L2D8D +L2D8B ldb #$CB +L2D8D lbsr L2E52 + cmpa #$02 + beq L2DA1 + bcs L2D9A + bsr L2DC3 + bra L2D9F +L2D9A tfr b,a + lbsr L2FBE +L2D9F lda #$02 +L2DA1 rts +L2DA2 bra L2DC0 + bra L2D6F + bra L2D6A + bra L2D8B + bra L2D86 + bra L2DDE + bra L2DC8 + bra L2DF4 + bra L2DF2 + bra L2DFF + bra L2E04 + bra L2E30 + bra L2E2E + bra L2E13 + bra L2E09 +L2DC0 lbra L308D +L2DC3 lda #$43 + lbra L26CE +L2DC8 bsr L2DE7 + pshs a + bsr L2DE7 + cmpa ,s+ + beq L2DE0 + lda #$CB + bcc L2DD7 + inca +L2DD7 lbsr L2FBE + lda #$02 + bra L2DE4 +L2DDE bsr L2DE7 +L2DE0 cmpa #$02 + bne L2DE6 +L2DE4 inc ,y +L2DE6 rts +L2DE7 bsr L2E52 + cmpa #$02 + bls L2DF1 + bsr L2DC3 + lda #$02 +L2DF1 rts +L2DF2 bsr L2DF4 +L2DF4 bsr L2E52 + cmpa #$04 + beq L2DFE + bsr L2DC3 + lda #$04 +L2DFE rts +L2DFF lbsr L2D6F + bra L2DF4 +L2E04 lbsr L2D6A + bra L2DF4 +L2E09 lda #$03 + bsr L2E20 + bne L2E13 + ldb #$03 + bra L2E1B +L2E13 lda #$04 + bsr L2E20 + bne L2DC8 + ldb #$02 +L2E1B addb ,y + stb ,y + rts +L2E20 ldu <u0044 + cmpa ,u+ + bne L2E2D + cmpa ,u+ + bne L2E2D + stu <u0044 + clrb +L2E2D rts +L2E2E bsr L2E30 +L2E30 bsr L2E52 + cmpa #$03 + beq L2E3A + bsr L2DC3 + lda #$03 +L2E3A rts +L2E3B cmpa #$00 + bne L2E41 + lda #$01 +L2E41 ldu <u0044 + cmpa #$05 + bne L2E4D + ldd <u00D4 + std ,--u + lda #$05 +L2E4D sta ,-u + stu <u0044 + rts +L2E52 ldu <u0044 + lda ,u+ + cmpa #$05 + bne L2E5C + leau u0002,u +L2E5C stu <u0044 + rts +L2E5F cmpb #$85 + lbcs L308D + cmpb #$89 + bcs L2EAB + subb #$8D + lbcs L2F07 + leau <L2E75,pcr + lslb + jmp b,u +L2E75 bra L2E87 + bra L2E89 + bra L2E8F + bra L2E95 + bra L2E89 + bra L2E9F + bra L2EA8 + bra L2E9F + bra L2EA8 +L2E87 leay -$01,y +L2E89 leay $03,y + lda #$01 + bra L2E3B +L2E8F leay $06,y + lda #$02 + bra L2E3B +L2E95 ldb ,y+ + cmpb #$FF + bne L2E95 + lda #$04 + bra L2E3B +L2E9F lbsr L2991 + bsr L2E52 + lda #$01 + bsr L2E3B +L2EA8 leay $01,y + rts +L2EAB lbsr L2F43 + bsr L2EE3 + cmpa #$60 + beq L2EBF + cmpa #$80 + beq L2EBF + lda #$12 + lbsr L26CE + bra L2EDC +L2EBF ldb #$85 + lbsr L2F5E + ldb ,y + cmpb #$85 + bne L2EDC + ldb <u00CF + cmpb #$60 + bne L2EDC + cmpa #$05 + bcc L2EDC + adda #$80 + sta ,y + ldd $01,x + std $01,y +L2EDC lda <u00D1 + leay $03,y + lbra L2E3B +L2EE3 lda <u00CF + cmpa #$00 + bne L2F06 + ldd #$0060 + sta <u00D0 + stb <u00CF + lda #$60 + ora <u00D1 + sta ,x + anda #$07 + cmpa #$04 + bne L2F01 + ldd #$0020 + std $01,x +L2F01 lbsr L2FEE + lda <u00CF +L2F06 rts +L2F07 bsr L2F43 + ldb #$89 + bsr L2F5E + lbsr L2E52 + cmpa #$05 + beq L2F19 + ldu #$FFFF + bra L2F1B +L2F19 ldu -u0002,u +L2F1B pshs u + bsr L2EDC + puls u + cmpu #$FFFF + beq L2F3E + ldb u0002,u + stb <u00D6 + ldd <u00D2 + subd <u0062 + leau u0003,u +L2F31 cmpd ,u++ + beq L2F5D + dec <u00D6 + bne L2F31 + lda #$14 + bra L2F40 +L2F3E lda #$42 +L2F40 lbra L26CE +L2F43 ldd $01,y + addd <u0062 + std <u00D2 + ldx <u00D2 +L2F4B lda ,x + anda #$E0 + sta <u00CF + lda ,x + anda #$18 + sta <u00D0 + lda ,x + anda #$07 + sta <u00D1 +L2F5D rts +L2F5E pshs b + ldb ,y + subb ,s+ + bne L2F73 + tst <u00D0 + beq L2F9D + lda #$05 + sta <u00D1 + ldd #$FFFF + bra L2FB9 +L2F73 lslb + lslb + lslb + cmpb <u00D0 + beq L2F7F + lda #$41 + lbsr L26CE +L2F7F lda #$C8 + sta <u00D8 +L2F83 lbsr L2E52 + cmpa #$02 + bcs L2F97 + beq L2F93 + lda #$47 + lbsr L26CE + bra L2F97 +L2F93 lda <u00D8 + bsr L2FBE +L2F97 inc <u00D8 + subb #$08 + bne L2F83 +L2F9D lda <u00D1 + cmpa #$05 + bne L2FBD + ldd $01,x + addd <u0066 + tfr d,u + ldb <u00D0 + beq L2FB5 + lsrb + lsrb + addb #$04 + ldd b,u + bra L2FB7 +L2FB5 ldd u0002,u +L2FB7 addd <u0066 +L2FB9 std <u00D4 + lda <u00D1 +L2FBD rts +L2FBE pshs x,b + ldx <u000C + cmpx #$0010 + lbls L2A0D + ldx <u0060 + sta ,x+ + stx <u00AB + clrb + bsr L2FDA + puls pc,x,b +L2FD4 ldd <u0060 + std <u00AB + ldb #$01 +L2FDA clra + lbra L2578 +L2FDE neg <u0049 + neg <u005C + neg <u0060 + neg <u006A + neg <u0066 + neg <u0072 + neg <u0072 + neg <u0076 +L2FEE pshs u,y,x + leay <L2FDE,pcr + ldb ,x + andb #$E0 + cmpb #$60 + beq L3005 + cmpb #$40 + beq L3005 + cmpb #$80 + bne L3025 + leay $08,y +L3005 ldb ,x + andb #$18 + beq L300F + ldd $06,y + bra L3023 +L300F ldb ,x + andb #$07 +L3013 cmpb #$04 + bcs L3021 + bhi L301D + ldd $02,y + bra L3023 +L301D ldd $04,y + bra L3023 +L3021 ldd ,y +L3023 jsr d,y +L3025 puls pc,u,y,x + lda ,x + anda #$07 + leay $01,x + bsr L3083 +L302F pshs b,a + ldd <u00C1 + std ,y + addd ,s++ + std <u00C1 + rts + bsr L3069 + bra L302F + bsr L3069 + addd <u0066 + tfr d,x + ldd ,x + bra L302F + bsr L3060 + bra L302F + leay $01,x +L304E ldd <u00C3 + std ,y + addd #$0004 + std <u00C3 + rts + bsr L3069 + bra L304E + bsr L3060 + bra L304E +L3060 ldd $01,x + addd <u0066 + tfr d,y + ldd $02,y + rts +L3069 ldd #$0004 + lbsr L257B + ldx $04,s + ldd $01,x + std $02,y + tfr y,d + subd <u0066 + std $01,x + ldd $02,y + rts +L307E oim #$02,<u0005 + oim #$20,<u0034 + addr a,0 + ldb >$E686 + clra + puls pc,x +L308D ldy <u0060 + lda #$30 + lbra L26CE +L3095 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 L30E2 +L30BD pshs y + lbsr L2692 + puls x + ldb <u00D9 + bne L30E2 + lda ,x + leau <L3095,pcr +L30CD cmpa ,u+ + bcs L30E2 + bne L30CD + pshs x + tfr y,d + subd ,s++ + leay ,x + ldu <u004A + stu <u00AB + lbsr L2578 +L30E2 ldx <u0060 + clr ,x + cmpy <u0060 + bcs L30BD +L30EB ldx <u0066 + bra L310B +L30EF lda ,x + bpl L310B + anda #$7F + sta ,x + ldy $02,x +L30FA ldu ,y + ldd ,x + std ,y + dec -$01,y + lda #$4A + lbsr L26CE + leay ,u + bne L30FA +L310B leax -$04,x + cmpx <u00DA + bcc L30EF + ldd <u0066 + subd <u00DA + addd <u000C + std <u000C + ldx <u0044 + bra L3131 +L311D ldy $01,x + lda #$45 + lbsr L26CE + lda ,x + cmpa #$13 + bne L312D + leax $07,x +L312D leax $03,x + stx <u0044 +L3131 cmpx <u0046 + bcs L311D + ldu <u0066 + ldy <u0060 + ldd <u0064 + addd <u0068 + lbsr L257E + 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 L31E2 +L3188 leax ,u + lbsr L2F4B + lda <u00CF + cmpa #$60 + bcs L31BD + cmpa #$A0 + bne L319F + ldd $01,x + addd <u00C1 + std $01,x + bra L31DC +L319F cmpa #$80 + bne L31BD + ldb <u00D0 + bne L31B1 + lda <u00D1 + cmpa #$04 + bcc L31B1 + leax u0001,u + bra L31B7 +L31B1 ldd u0001,u + addd <u0066 + tfr d,x +L31B7 ldd ,x + addd <u00C5 + std ,x +L31BD lda <u00D1 + cmpa #$05 + bne L31DC + ldb <u00D0 + beq L31CD + lsrb + lsrb + addb #$04 + bra L31CF +L31CD ldb #$02 +L31CF clra + addd u0001,u + ldx <u0066 + leay d,x + ldd ,y + ldd d,x + std ,y +L31DC leau u0003,u +L31DE lda ,u+ + bpl L31DE +L31E2 cmpu <u004A + bcs L3188 + rts + pshs x,b,a + ldb [<$04,s] + leax <L31F8,pcr + ldd b,x + leax d,x + stx $04,s + puls pc,x,b,a +L31F8 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 +L321B jsr <u001E + ror <u009D + beq L3225 +L3221 jsr <u0027 + dec <u009D +L3225 beq L3229 +L3227 jsr <u0027 +L3229 inc <u009D + beq L323B +L322D jsr <u0027 + neg <u009D + bpl L3235 +L3233 jsr <u001B +L3235 fcb $18 +L3236 jsr <u001B + lbra LCF56 +L323B 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 L326F + clr $01,x + sta <u0001 + clr $01,x + bsr L3277 + sta <u0001 + bsr L327D + addd >$07B8 +L327D 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 +L32CB comb + lsrb + clra + negb + bra L3316 + jmp $03,s + clr -$0B,s + jmp -$0C,s + eim #$72,$05,s + lsr $0A,x + stu >$A688 + lbsr LB7E3 + beq L32E8 + ldb #$33 + bra L3304 +L32E8 tfr s,d + subd #$0100 + cmpd <u0080 + bcc L32F6 + ldb #$39 + bra L3304 +L32F6 ldd <u000C + subd $0B,x + bcs L3302 + cmpd #$0100 + bcc L3307 +L3302 ldb #$20 +L3304 lbra L39FB +L3307 std <u000C + tfr y,d + subd $0B,x + exg d,u + sts u0005,u + std u0007,u + stx u0003,u +L3316 ldd #$0001 + std <u0042 + sta u0001,u + sta <u0013,u + stu <u0014,u + bsr L3351 + ldd <$13,x + beq L332C + addd <u005E +L332C std <u0039 + ldd $0B,x + leay d,u + pshs y + ldd <$11,x + leay d,u + clra + clrb + bra L333F +L333D std ,y++ +L333F cmpy ,s + bcs L333D + leas $02,s + ldx <u002F + ldd <u005E + addd <$15,x + tfr d,x + bra L3391 +L3351 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 +L3371 stx <u005C + lda <u0034 + beq L338F + bpl L3382 + anda #$7F + sta <u0034 + lbsr L3233 + lda <u0034 +L3382 rora + bcc L338F + leay ,x + lbsr L3218 + clr <u0074 + lbsr L3236 +L338F bsr L33AE +L3391 cmpx <u0060 + bcs L3371 + bra L33A1 + ldb ,x + lbsr L384F + beq L33A1 + lbsr L3856 +L33A1 lbsr L3A73 + ldu <u0031 + lds u0005,u + ldu u0007,u +L33AB rts + leax $02,x +L33AE ldb ,x+ + bpl L33B4 + addb #$40 +L33B4 lslb + clra + ldu <u000E + ldd d,u + jmp d,u + jsr <u0016 + tst $02,y + beq L33CC + leax $03,x + ldb ,x + cmpb #$3B + bne L33AB + leax $01,x +L33CC ldd ,x + addd <u005E + tfr d,x + rts + leax $01,x + rts + jsr <u0016 + tst $02,y + beq L33CC + leax $03,x + rts +L33DF neg <u0026 + neg <u003F + neg <u007B + neg <u00C6 + leay <L33DF,pcr +L33EA ldb ,x+ + lslb + ldd b,y + ldu <u0031 + jmp d,y + ldd ,x + leay d,u + bra L3410 + ldd ,x + leay d,u + ldd $04,x + lda d,u + bpl L3410 + bra L3430 + ldd ,x + leay d,u + ldd ,y + addd #$0001 + std ,y +L3410 ldd $02,x + leax $06,x + ldd d,u + cmpd ,y + bge L33CC + leax $03,x + rts + ldd ,x + leay d,u + ldd $04,x + ldd d,u + pshs a + addd ,y + std ,y + tst ,s+ + bpl L3410 +L3430 ldd $02,x + leax $06,x + ldd d,u + cmpd ,y + ble L33CC + leax $03,x + rts + ldy <u0046 + clrb + bsr L348E + bra L347E + ldy <u0046 + clrb + bsr L348E + ldd $04,x + addd #$0004 + ldu <u0031 + lda d,u + lsra + bcc L347E + bra L34CC + ldy <u0046 + clrb + bsr L348E + leay -$06,y + ldd #$0180 + std $01,y + clra + clrb + std $03,y + sta $05,y + lbsr L321E + bsr L34DC + ldd $01,y + std ,u + ldd $03,y + std u0002,u + lda $05,y + sta u0004,u +L347E ldb #$02 + bsr L348E + leax $06,x + lbsr L3221 + lble L33CC + leax $03,x + rts +L348E 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 L348E + stu <u00D2 + ldb #$04 + bsr L348E + lda u0004,u + sta <u00D1 + lbsr L321E + bsr L34DC + ldu <u00D2 + ldd $01,y + std ,u + ldd $03,y + std u0002,u + lda $05,y + sta u0004,u + lsr <u00D1 + bcc L347E +L34CC ldb #$02 + bsr L348E + leax $06,x + lbsr L3221 + lbge L33CC + leax $03,x +L34DB rts +L34DC ldb <u0034 + bitb #$01 + beq L34DB + lbra L323C +L34E5 stu >$0EFF + sexw + stu >$59FF + oim #$E6,,x+ + cmpb #$82 + beq L3515 + bsr L3560 + bsr L3508 + ldb -$01,x + cmpb #$47 + bne L34FF + bsr L3508 +L34FF lbsr L33CC + leay <L34E5,pcr + lbra L33EA +L3508 ldd ,x++ + addd <u0031 + pshs b,a + jsr <u0016 + ldd $01,y + std [,s++] + rts +L3515 bsr L356F + bsr L3523 + ldb -$01,x + cmpb #$47 + bne L34FF + bsr L3523 + bra L34FF +L3523 ldd ,x++ + addd <u0031 + pshs b,a + jsr <u0016 + bra L3579 + jsr <u0016 +L352F cmpa #$04 + bcs L3537 + pshs u + ldu <u003E +L3537 pshs u,a + leax $01,x + jsr <u0016 +L353D puls a + lsla + leau <L3545,pcr + jmp a,u +L3545 bra L355B + bra L356A + bra L3579 + bra L355B + bra L359C + bra L35C1 + ldd ,x + addd <u0031 + pshs b,a + leax $03,x + jsr <u0016 +L355B ldb $02,y + stb [,s++] + rts +L3560 ldd ,x + addd <u0031 + pshs b,a + leax $03,x + jsr <u0016 +L356A ldd $01,y + std [,s++] + rts +L356F ldd ,x + addd <u0031 + pshs b,a + leax $03,x + jsr <u0016 +L3579 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 +L359C puls u,b,a + tstb + bne L35A2 + deca +L35A2 sta <u003E + ldy $01,y + sty <u0048 +L35AA lda ,y+ + sta ,u+ + cmpa #$FF + beq L35B9 + decb + bne L35AA + dec <u003E + bpl L35AA +L35B9 clra + rts + lbsr L3224 + lbra L352F +L35C1 puls u,b,a + cmpd $03,y + bls L35CA + ldd $03,y +L35CA ldy $01,y + exg y,u + lbra L321B + jsr <u0016 + ldd $01,y + pshs b,a + jsr <u0016 + ldb $02,y + stb [,s++] + rts + lbsr L3856 + lda <u002E + sta <u007F + leax >L32CB,pcr + lbsr L375F + lbra L3206 + lbra L3209 + lbsr L3856 + lbra L3233 + ldd ,x + leax $03,x +L35FD ldy <u0031 + ldu <$14,y + cmpu <u004A + bhi L360D + ldb #$35 + lbra L39FB +L360D stx ,--u + stu <$14,y + stu <u0046 + addd <u005E + tfr d,x + rts + ldy <u0031 + cmpy <$14,y + bhi L3627 + ldb #$36 + lbra L39FB +L3627 ldu <$14,y + ldx ,u++ + stu <$14,y + stu <u0046 + rts + ldd ,x + cmpa #$1E + beq L366D + jsr <u0016 + ldd ,x + lslb + rola + lslb + rola + addd #$0002 + leau d,x + pshs u + ldd $01,y + ble L366B + cmpd ,x++ + bhi L366B + subd #$0001 + lslb + rola + lslb + rola + addd #$0001 + ldd d,x + pshs b,a + ldb ,x + cmpb #$22 + puls x,b,a + beq L35FD + addd <u005E + tfr d,x + rts +L366B puls pc,x +L366D ldu <u0031 + cmpb #$20 + bne L3682 + ldd $02,x + addd <u005E + std <u0011,u + lda #$01 + sta <u0013,u + leax $05,x + rts +L3682 clr <u0013,u + leax $02,x + rts + bsr L36A6 + ldb #$0B + os9 I$Create + bra L3696 + bsr L36A6 + os9 I$Open +L3696 lbcs L39FB + puls u,b + cmpb #$01 + bne L36A2 + clr ,u+ +L36A2 sta ,u + puls pc,x +L36A6 leax $01,x + lbsr L3779 + leax $01,x + jsr <u0016 + lda #$03 + cmpb #$4A + bne L36B7 + lda ,x++ +L36B7 ldu $03,s + stx $03,s + ldx $01,y + jmp ,u + lbsr L37B6 + jsr <u0016 + ldb #$0E + lbsr L3230 + lbcs L39FD + rts +L36CE swi + fcb $20 + stu >$2A2A + bra L371E + jmp -$10,s + eim #$74,>$2065 + aim #$72,>$6F72 + bra L370E + bra L3755 + eim #$65,$0E,s + lsr >$6572 + bra L3715 + bpl L36FA + stu >$962E + lbsr L37B6 + lda #$2C + sta <u00DD + pshs x +L36F9 ldx ,s + ldb ,x + cmpb #$90 + bne L3709 + jsr <u0016 + pshs x + ldx $01,y + bra L370E +L3709 pshs x + leax <L36CE,pcr +L370E bsr L375F + puls x + lda <u007F + cmpa <u002E + bne L371C + lda <u002D + sta <u007F +L371C ldb #$06 +L371E lbsr L3230 + bcc L3730 + cmpb #$03 + lbne L39FD + lbsr L3A23 + clr <u0036 + bra L36F9 +L3730 bsr L3743 + bcc L373B + leax <L36D1,pcr + bsr L375F + bra L36F9 +L373B ldb ,x+ + cmpb #$4B + beq L3730 + puls pc,b,a +L3743 bsr L3779 + ldb ,s + addb #$07 + ldy <u0046 + lbsr L3230 + lbcc L353D + lda ,s +L3755 cmpa #$04 + bcs L375B + leas $02,s +L375B leas $03,s + coma + rts +L375F pshs y + leas -$06,s + leay ,s + stx $01,y + ldd <u0080 + std <u0082 + ldb #$05 + lbsr L3230 + ldb #$00 + lbsr L3230 + leas $06,s + puls pc,y +L3779 lda ,x+ + cmpa #$0E + bne L3783 + jsr <u0016 + bra L37A8 +L3783 suba #$80 + cmpa #$04 + bcs L379E + beq L3790 + lbsr L3224 + bra L37A8 +L3790 ldd ,x++ + addd <u0066 + tfr d,u + ldd u0002,u + std <u003E + ldd ,u + bra L37A0 +L379E ldd ,x++ +L37A0 addd <u0031 + tfr d,u + lda -$03,x + suba #$80 +L37A8 puls y + cmpa #$04 + bcs L37B2 + pshs u + ldu <u003E +L37B2 pshs u,a + jmp ,y +L37B6 ldb ,x + cmpb #$54 + bne L37C8 + leax $01,x + jsr <u0016 + cmpb #$4B + beq L37C6 + leax -$01,x +L37C6 lda $02,y +L37C8 sta <u007F + rts + ldb ,x + cmpb #$54 + bne L37F5 + bsr L37B6 + clr <u00DD + cmpb #$4B + bne L37DB + leax -$01,x +L37DB ldb #$06 + lbsr L3230 + bcc L37EE + cmpb #$E4 + beq L37DB +L37E6 lbra L39FD +L37E9 lbsr L3743 + bcs L37E6 +L37EE ldb ,x+ + cmpb #$4B + beq L37E9 + rts +L37F5 bsr L384F + beq L3832 +L37F9 bsr L3802 + ldb ,x+ + cmpb #$4B + beq L37F9 + rts +L3802 lbsr L3779 + bsr L3834 + lda ,s + bne L380C + inca +L380C cmpa ,y + lbeq L353D + cmpa #$02 + bcs L381C + beq L3828 +L3818 ldb #$47 + bra L383C +L381C lda ,y + cmpa #$02 + bne L3818 + lbsr L3227 + lbra L353D +L3828 cmpa ,y + bcs L3818 + lbsr L322A + lbra L353D +L3832 leax $01,x +L3834 pshs x + ldx <u0039 + bne L383F + ldb #$4F +L383C lbra L39FB +L383F jsr <u0016 + cmpb #$4B + beq L384B + ldd ,x + addd <u005E + tfr d,x +L384B stx <u0039 + puls pc,x +L384F cmpb #$3F + beq L3855 + cmpb #$3E +L3855 rts +L3856 lda <u002E + lbsr L37B6 + ldd <u0080 + std <u0082 + ldb ,x+ + cmpb #$49 + beq L38A3 +L3865 bsr L384F + beq L388B +L3869 cmpb #$4B + beq L387F + cmpb #$51 + beq L3883 + leax -$01,x + jsr <u0016 + ldb ,y + addb #$01 + bsr L389B + ldb -$01,x + bra L3865 +L387F ldb #$0D + bsr L389B +L3883 ldb ,x+ + bsr L384F + bne L3869 + bra L388F +L388B ldb #$0C + bsr L389B +L388F ldb #$00 + bsr L389B + lda <u00DE + clr <u00DE + tsta + bne L38A0 +L389A rts +L389B lbsr L3230 + bcc L389A +L38A0 lbra L39FD +L38A3 jsr <u0016 + ldd <u004A + std <u008E + std <u008C + ldu <u0046 + pshs u,b,a + clr <u0094 + ldd <u0048 + std <u004A +L38B5 ldb -$01,x + bsr L384F + beq L38D7 + ldb ,x+ + bsr L384F + beq L38D2 + leax -$01,x + ldb #$11 + lbsr L3230 + bcc L38B5 + puls u,b,a + std <u004A + stu <u0046 + bra L38A0 +L38D2 leay <L388F,pcr + bra L38DA +L38D7 leay <L388B,pcr +L38DA puls u,b,a + std <u004A + stu <u0046 + jmp ,y + lda <u002E + lbsr L37B6 + ldu <u0080 + stu <u0082 + ldb ,x+ + lbsr L384F + beq L3914 + cmpb #$4B + beq L3902 + leax -$01,x + bra L3902 +L38FA clra + ldb #$12 + lbsr L3230 + bcs L38A0 +L3902 jsr <u0016 + ldb ,y + addb #$01 + lbsr L3230 + bcs L38A0 + ldb -$01,x + lbsr L384F + bne L38FA +L3914 lbra L388B + bsr L392A + os9 I$Read + bra L3923 + bsr L392A + os9 I$Write +L3923 leax ,u + bcc L3949 +L3927 lbra L39FB +L392A lbsr L37B6 + lbsr L3779 + leau ,x + puls a + cmpa #$04 + bcc L3943 + leax >L3B5B,pcr + ldb a,x + clra + tfr d,y + bra L3945 +L3943 puls y +L3945 puls x + lda <u007F +L3949 rts +L394A lbsr L37B6 + os9 I$Close + bcs L3927 + cmpb #$4B + beq L394A + rts + ldb ,x+ + cmpb #$3B + beq L3967 + ldu <u002F + ldd <u0013,u +L3962 addd <u005E + std <u0039 + rts +L3967 ldd ,x + addd #$0001 + leax $03,x + bra L3962 + jsr <u0016 + pshs x + ldx $01,y + os9 I$Delete +L3979 bcs L3927 + puls pc,x + jsr <u0016 + lda #$03 +L3981 pshs x + ldx $01,y + os9 I$ChgDir + bra L3979 + jsr <u0016 + lda #$04 + bra L3981 + lbsr L3779 + ldy <u0046 + leay -$06,y + ldb <u007F + clra + std $01,y + lbra L353D + jsr <u0016 + ldy $01,y + pshs u,y,x + lbsr L320C + puls u,y,x + bsr L39E0 + sts <u00B1 + lds <u0080 + os9 F$Chain + lds <u00B1 + bra L39FB + jsr <u0016 + pshs u,x + ldy $01,y + bsr L39E0 + os9 F$Fork + bcs L39FB + pshs a +L39CC os9 F$Wait + cmpa ,s + bne L39CC + leas $01,s + tstb + bne L39FB + puls pc,u,x +L39DA comb + lsla + fcb $45 E + inca + inca + tst <u009E + lsla + lda #$0D + sta -$01,x + tfr x,d + leax >L39DA,pcr + leau ,y + pshs y + subd ,s++ + tfr d,y + clra + clrb + rts + jsr <u0016 + ldb $02,y +L39FB stb <u0036 +L39FD ldu <u0031 + beq L3A1B + tst <u0013,u + beq L3A14 + lds u0005,u + ldx <u0011,u + ldd <u0014,u + std <u0046 + lbra L3371 +L3A14 bsr L3A23 + bsr L3A73 + lbra L3206 +L3A1B lbsr L320F + lbra L3206 +L3A21 jmp <u00FF +L3A23 leax <L3A21,pcr + lbsr L375F + ldx <u005C + leay ,x + lbsr L3218 + clr <u0074 + lbsr L3236 + ldb <u0036 + lbsr L320F + lbra L3233 + clrb + bra L3A42 + ldb #$01 +L3A42 clra + std <u0042 + leax $01,x + rts + ldb ,x+ + clra + leax d,x + rts + exg x,pc + rts + leay ,x + lbsr L3218 + leax ,y + rts + ldb #$33 + bra L39FB + lda #$01 + bra L3A62 + clra +L3A62 ldu <u0031 + sta u0001,u + leax $01,x + rts +L3A69 lda <u0034 + bita #$01 + bne L3A89 + ora #$01 + bra L3A7B +L3A73 lda <u0034 + bita #$01 + beq L3A89 + anda #$FE +L3A7B sta <u0034 + ldd <u0017 + pshs b,a + ldd <u0019 + std <u0017 + puls b,a + std <u0019 +L3A89 rts + lbsr L3224 + pshs x + ldb <u00CF + cmpb #$A0 + beq L3AB6 + ldy <u0048 + ldx <u003E +L3A9A lda ,u+ + leax -$01,x + beq L3AA8 + sta ,y+ + cmpa #$FF + bne L3A9A + lda ,--y +L3AA8 ora #$80 + sta ,y + ldy <u0048 + lbsr L3212 + bcs L3AF4 + leau ,x +L3AB6 ldd ,u + bne L3AC8 + ldy <u00D2 + leay $03,y + lbsr L3212 + bcs L3AF4 + ldd ,x + std ,u +L3AC8 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 L3B5F + stx u000B,u + puls x + lda $06,x + beq L3B23 + cmpa #$22 + beq L3B23 + cmpa #$21 + beq L3AF9 +L3AF4 ldb #$2B +L3AF6 lbra L39FB +L3AF9 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 >L32DD,pcr + jsr d,x + ldu <u0031 + lds u0005,u + puls x + stx u0005,u + bcc L3B3C + bra L3AF6 +L3B23 lbsr L3A73 + lda <u0034 + anda #$7F + sta <u0034 + lbsr L32DD + lda ,u + bita #$01 + beq L3B3C + lbsr L3A69 + lda ,u + sta <u0034 +L3B3C 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 L3351 + ldx u000B,u + ldd <u0044 + subd <u004A + std <u000C + rts +L3B5B oim #$02,<u0005 + oim #$34,<u0040 + ldb ,x+ + clra + pshs x,a + cmpb #$4D + bne L3BE1 + leay ,s +L3B6C pshs y + ldb ,x + cmpb #$0E + beq L3BA3 + jsr <u0016 + leax -$01,x + cmpa #$02 + beq L3B86 + cmpa #$04 + beq L3B93 + ldd $01,y + std $04,y + lda ,y +L3B86 ldb #$06 + leau <L3B5B,pcr + subb a,u + leau b,y + stu <u0046 + bra L3BA7 +L3B93 ldu $01,y + ldd <u0048 + subd <u004A + std <u003E + ldd <u0048 + std <u004A + lda #$04 + bra L3BA7 +L3BA3 leax $01,x + jsr <u0016 +L3BA7 puls y + inc ,y + cmpa #$04 + bcs L3BB3 + pshs u + ldu <u003E +L3BB3 pshs u,a + ldb ,x+ + cmpb #$4B + beq L3B6C + leax $01,x + stx $01,y + leax <L3B5B,pcr + ldu <u0046 + stu <u0040 +L3BC6 puls b + cmpb #$04 + bcs L3BD0 + puls b,a + bra L3BD3 +L3BD0 ldb b,x + clra +L3BD3 std ,--u + puls b,a + std ,--u + dec ,y + bne L3BC6 + leay ,u + bra L3BE7 +L3BE1 ldy <u0046 + sty <u0040 +L3BE7 tfr y,d + subd <u004A + lbcs L3302 + std <u000C + puls pc,u,x,a + jsr <u0016 + ldy $01,y + pshs x + lbsr L3215 + puls pc,x + lbsr L322D + leax >L323F,pcr + stx <u000E + rts + pshs x,b,a + ldb [<$04,s] + leax <L3C19,pcr + ldd b,x + leax d,x + stx $04,s + puls pc,x,b,a +L3C19 sexw + pulu cc + asr $03,x + eora <u0004 + ora >$061B + lsl <u0030 + rol <u0022 + lsl <u00EA +L3C29 jsr <u001B + lsl <u009D + bcc L3C35 +L3C2F jsr <u002A + aim #$9D,<u001B + orcc #$12 + rol -$0E,x + blt L3C4C + fcb $45 E + nop + nop + nop + stu -$0E,x + addd >$1343 + sync + lbsr L44CD + 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 +L3CB5 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 L3CEF + std $09,x + bitb >$1125 + jmp <u004E + nop + sbcb #$09 + bra L3CFB + nop + tst <u00CD + tst <u00FA + jmp <u0008 + inc <u0072 +L3CFB 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 +L3D41 ldy <u0046 + ldd <u004A + std <u0048 + bra L3D51 +L3D4A lslb + ldu <u0010 + ldd b,u + jsr d,u +L3D51 ldb ,x+ + bmi L3D4A + clra + lda ,y + rts + bsr L3D80 +L3D5B pshs pc,u + ldu <u0012 + lsla + ldd a,u + leau d,u + stu $02,s + puls pc,u + bsr L3D78 + bra L3D5B + leas $02,s + lda #$F2 + bra L3D82 + leas $02,s + lda #$F6 + bra L3D7A +L3D78 lda #$89 +L3D7A sta <u00A3 + clr <u003B + bra L3D86 +L3D80 lda #$85 +L3D82 sta <u00A3 + sta <u003B +L3D86 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 L3E3F + ldd u0001,u + addd <u0066 + tfr d,u + ldd ,u + std <u003C + lda $01,s + bne L3DC4 + lda #$05 + sta ,s + ldd u0002,u + std <u003E + clra + clrb + bra L3E17 +L3DC4 leay -$06,y + clra + clrb + std $01,y + leau u0004,u + bra L3DD5 +L3DCE ldd ,u + std $01,y + lbsr L3EC1 +L3DD5 ldd $07,y + subd <u0042 + cmpd ,u++ + bcs L3DE3 + ldb #$37 + lbra L3C2C +L3DE3 addd $01,y + std $07,y + dec $01,s + bne L3DCE + lda ,s + beq L3DFF + cmpa #$02 + bcs L3E03 + beq L3E0B + cmpa #$04 + bcs L3DFF + ldd ,u + std <u003E + bra L3E0E +L3DFF ldd $07,y + bra L3E07 +L3E03 ldd $07,y + lslb + rola +L3E07 leay $0C,y + bra L3E17 +L3E0B ldd #$0005 +L3E0E std $01,y + lbsr L3EC1 + ldd $01,y + leay $06,y +L3E17 tst <u00CE + bne L3E33 + pshs b,a + ldd <u003C + addd <u0031 + cmpd <u0040 + bcc L3E78 + tfr d,u + puls b,a + cmpd u0002,u + bhi L3E78 + addd ,u + bra L3E73 +L3E33 addd <u003C + tst <u003B + bne L3E71 +L3E39 addd $01,y + leay $06,y + bra L3E73 +L3E3F lda ,s + cmpa #$04 + ldd u0001,u + bcs L3E51 + addd <u0066 + tfr d,u + ldd u0002,u + std <u003E + ldd ,u +L3E51 tst <u003B + beq L3E39 + addd <u0031 + tfr d,u + tst <u00CE + bne L3E75 + cmpd <u0040 + bcc L3E78 + ldd <u003E + cmpd u0002,u + bcs L3E6D + ldd u0002,u + std <u003E +L3E6D ldu ,u + bra L3E75 +L3E71 addd <u0031 +L3E73 tfr d,u +L3E75 clra + puls pc,b,a +L3E78 ldb #$38 + lbra L3C2C + leau ,x+ + bra L3E87 + ldd ,x++ + addd <u0031 + tfr d,u +L3E87 ldb ,u + clra + leay -$06,y + std $01,y + lda #$01 + sta ,y + rts + leau ,x++ + bra L3E9D + ldd ,x++ + addd <u0031 + tfr d,u +L3E9D 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 +L3EC1 ldd $07,y + beq L3EFA + cmpd #$0002 + bne L3ECF + ldd $01,y + bra L3EDB +L3ECF ldd $01,y + beq L3EDD + cmpd #$0002 + bne L3EE1 + ldd $07,y +L3EDB lslb + rola +L3EDD std $07,y + bra L3EFA +L3EE1 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 +L3EFA leay $06,y + rts +L3EFD clr ,y + ldd $07,y + bpl L3F0B + nega + negb + sbca #$00 + std $07,y + com ,y +L3F0B ldd $01,y + bpl L3F17 + nega + negb + sbca #$00 + std $01,y + com ,y +L3F17 cmpd #$0002 + rts +L3F1C bsr L3EFD + bne L3F2E + ldd $07,y + beq L3F3B + asra + rorb + std $07,y + ldd #$0000 + rolb + bra L3F65 +L3F2E ldd $01,y + bne L3F37 + ldb #$2D + lbra L3C2C +L3F37 ldd $07,y + bne L3F40 +L3F3B leay $06,y + std $03,y + rts +L3F40 tsta + bne L3F4B + exg a,b + std $07,y + ldb #$08 + bra L3F4D +L3F4B ldb #$10 +L3F4D stb $03,y + clra + clrb +L3F51 lsl $08,y + rol $07,y + rolb + rola + subd $01,y + bmi L3F5F + inc $08,y + bra L3F61 +L3F5F addd $01,y +L3F61 dec $03,y + bne L3F51 +L3F65 std $09,y + tst ,y + bpl L3F79 + nega + negb + sbca #$00 + std $09,y + ldd $07,y + nega + negb + sbca #$00 + std $07,y +L3F79 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 +L3F93 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 +L3FAB ldb $05,y + eorb #$01 + stb $05,y +L3FB1 pshs x + tst $02,y + beq L3FC7 + tst $08,y + bne L3FCB +L3FBB ldd $01,y + std $07,y + ldd $03,y + std $09,y + lda $05,y + sta $0B,y +L3FC7 leay $06,y + puls pc,x +L3FCB lda $07,y + suba $01,y + bvc L3FD5 + bpl L3FBB + bra L3FC7 +L3FD5 bmi L3FDD + cmpa #$1F + ble L3FE5 + bra L3FC7 +L3FDD cmpa #$E1 + blt L3FBB + ldb $01,y + stb $07,y +L3FE5 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 L4031 + bpl L4029 + nega + leax $06,y + bsr L4082 + tst $01,y + beq L4039 +L400B subd $04,y + exg d,x + sbcb $03,y + sbca $02,y + bcc L404D + coma + comb + exg d,x + coma + comb + addd #$0001 + exg d,x + bcc L4025 + addd #$0001 +L4025 dec ,y + bra L404D +L4029 leax ,y + bsr L4082 + stx $02,y + std $04,y +L4031 ldx $08,y + ldd $0A,y + tst $01,y + bne L400B +L4039 addd $04,y + exg d,x + adcb $03,y + adca $02,y + bcc L404D + rora + rorb + exg d,x + rora + rorb + inc $07,y + exg d,x +L404D tsta + bmi L4060 +L4050 dec $07,y + lbvs L40DD + exg d,x + lslb + rola + exg d,x + rolb + rola + bpl L4050 +L4060 exg d,x + addd #$0001 + exg d,x + bcc L4071 + addd #$0001 + bcc L4071 + rora + inc $07,y +L4071 std $08,y + tfr x,d + andb #$FE + tst ,y + beq L407C + incb +L407C std $0A,y + leay $06,y + puls pc,x +L4082 suba #$10 + bcs L40A0 + suba #$08 + bcs L4091 + pshs a + clra + ldb $02,x + bra L4097 +L4091 adda #$08 + pshs a + ldd $02,x +L4097 ldx #$0000 + tst ,s + beq L40C9 + bra L40BD +L40A0 adda #$08 + bcc L40B3 + pshs a + clra + ldb $02,x + ldx $03,x + tst ,s + bne L40BF + exg d,x + bra L40C9 +L40B3 adda #$08 + pshs a + ldd $02,x + ldx $04,x + bra L40BF +L40BD exg d,x +L40BF lsra + rorb + exg d,x + rora + rorb + dec ,s + bne L40BD +L40C9 leas $01,s + rts +L40CC bsr L40D3 + lbcs L3C2C + rts +L40D3 pshs x + lda $02,y + bpl L40DD + lda $08,y + bmi L40E9 +L40DD clra + clrb + std $07,y + std $09,y + sta $0B,y + leay $06,y + puls pc,x +L40E9 lda $01,y + adda $07,y + bvc L40F6 +L40EF bpl L40DD + comb + ldb #$32 + puls pc,x +L40F6 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 L4120 + inc ,s +L4120 lda $0A,y + ldb $05,y + mul + addd $01,s + std $01,s + bcc L412D + inc ,s +L412D ldb $02,s + ldx ,s + stx $01,s + clr ,s + lda $0B,y + ldb $03,y + mul + addd $01,s + std $01,s + bcc L4142 + inc ,s +L4142 lda $0A,y + ldb $04,y + mul + addd $01,s + std $01,s + bcc L414F + inc ,s +L414F lda $09,y + ldb $05,y + mul + addd $01,s + std $01,s + bcc L415C + inc ,s +L415C ldb $02,s + ldx ,s + stx $01,s + clr ,s + lda $0B,y + ldb $02,y + mul + addd $01,s + std $01,s + bcc L4171 + inc ,s +L4171 lda $0A,y + ldb $03,y + mul + addd $01,s + std $01,s + bcc L417E + inc ,s +L417E lda $09,y + ldb $04,y + mul + addd $01,s + std $01,s + bcc L418B + inc ,s +L418B lda $08,y + ldb $05,y + mul + addd $01,s + std $01,s + bcc L4198 + inc ,s +L4198 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 L41AF + inc ,s +L41AF lda $09,y + ldb $03,y + mul + addd $01,s + std $01,s + bcc L41BC + inc ,s +L41BC lda $08,y + ldb $04,y + mul + addd $01,s + std $01,s + bcc L41C9 + inc ,s +L41C9 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 L41E0 + inc ,s +L41E0 lda $08,y + ldb $03,y + mul + addd $01,s + std $01,s + bcc L41ED + inc ,s +L41ED lda $08,y + ldb $02,y + mul + addd ,s + bmi L4202 + lsl $0B,y + rol $0A,y + rol $02,s + rolb + rola + dec $07,y + bvs L421B +L4202 std $08,y + lda $02,s + ldb $0A,y + addd #$0001 + bcc L4220 + inc $09,y + bne L4222 + inc $08,y + bne L4222 + ror $08,y + inc $07,y + bvc L4222 +L421B leas $03,s + lbra L40EF +L4220 andb #$FE +L4222 orb ,y + std $0A,y + leay $06,y + leas $03,s + clrb + puls pc,x +L422D bsr L4234 + lbcs L3C2C +L4233 rts +L4234 comb + ldb #$2D + tst $02,y + beq L4233 + pshs x + tst $08,y + lbeq L40DD + lda $07,y + suba $01,y + lbvs L40EF + 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 L426F +L426D exg d,x +L426F subd $04,y + exg d,x + bcc L4278 + subd #$0001 +L4278 subd $02,y + beq L42AB + bmi L42A7 +L427E orcc #$01 +L4280 dec ,y + beq L42F8 + rol $0B,y + rol $0A,y + rol $09,y + rol $08,y + exg d,x + lslb + rola + exg d,x + rolb + rola + bcc L426D + exg d,x + addd $04,y + exg d,x + bcc L42A1 + addd #$0001 +L42A1 addd $02,y + beq L42AB + bpl L427E +L42A7 andcc #$FE + bra L4280 +L42AB leax ,x + bne L427E + ldb ,y + decb + subb #$10 + blt L42CD + subb #$08 + blt L42C2 + stb ,y + lda $0B,y + ldb #$80 + bra L42EB +L42C2 addb #$08 + stb ,y + ldd #$8000 + ldx $0A,y + bra L42ED +L42CD addb #$08 + blt L42DB + stb ,y + ldx $09,y + lda $0B,y + ldb #$80 + bra L42ED +L42DB addb #$07 + stb ,y + ldx $08,y + ldd $0A,y + orcc #$01 +L42E5 rolb + rola + exg d,x + rolb + rola +L42EB exg d,x +L42ED andcc #$FE + dec ,y + bpl L42E5 + exg d,x + tsta + bra L42FC +L42F8 ldx $0A,y + ldd $08,y +L42FC bmi L430C + exg d,x + rolb + rola + exg d,x + rolb + rola + dec $07,y + lbvs L40DD +L430C exg d,x + addd #$0001 + exg d,x + bcc L4321 + addd #$0001 + bcc L4321 + rora + inc $07,y + lbvs L40EF +L4321 std $08,y + tfr x,d + andb #$FE + orb $01,y + std $0A,y + inc $07,y + lbvs L40EF +L4331 leay $06,y + clrb + puls pc,x + pshs x + ldd $07,y + beq L4331 + ldx $01,y + bne L434F + leay $06,y +L4342 ldd #$0180 + std $01,y + clr $03,y + clr $04,y + clr $05,y + puls pc,x +L434F 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 L47AB + lbsr L40CC + lbra L4864 + 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 L4390 + ldb $08,y + orb $02,y + bra L4390 + ldb $08,y + eorb $02,y +L4390 leay $06,y + std $01,y + rts + com $02,y + rts +L4398 pshs y,x + ldx $01,y + ldy $07,y + sty <u0048 +L43A2 lda ,y+ + cmpa ,x+ + bne L43AC + cmpa #$FF + bne L43A2 +L43AC inca + inc -$01,x + cmpa -$01,x + puls pc,y,x + bsr L4398 + bcs L4405 + bra L4409 + bsr L4398 + bls L4405 + bra L4409 + bsr L4398 + beq L4405 + bra L4409 + bsr L4398 + bne L4405 + bra L4409 + bsr L4398 + bcc L4405 + bra L4409 + bsr L4398 + bhi L4405 + bra L4409 + ldd $07,y + subd $01,y + blt L4405 + bra L4409 + ldd $07,y + subd $01,y + ble L4405 + bra L4409 + ldd $07,y + subd $01,y + bne L4405 + bra L4409 + ldd $07,y + subd $01,y + beq L4405 + bra L4409 + ldd $07,y + subd $01,y + bge L4405 + bra L4409 + ldd $07,y + subd $01,y + ble L4409 +L4405 ldb #$FF + bra L440B +L4409 ldb #$00 +L440B clra + leay $06,y + std $01,y + lda #$03 + sta ,y + rts + ldb $08,y + cmpb $02,y + beq L4405 + bra L4409 + ldb $08,y + cmpb $02,y + bne L4405 + bra L4409 + bsr L4449 + blt L4405 + bra L4409 + bsr L4449 + ble L4405 + bra L4409 + bsr L4449 + bne L4405 + bra L4409 + bsr L4449 + beq L4405 + bra L4409 + bsr L4449 + bge L4405 + bra L4409 + bsr L4449 + bgt L4405 + bra L4409 +L4449 pshs y + andcc #$F0 + lda $08,y + bne L4461 + lda $02,y + beq L445F +L4455 lda $05,y +L4457 anda #$01 + bne L445F +L445B andcc #$F0 + orcc #$08 +L445F puls pc,y +L4461 lda $02,y + bne L446B + lda $0B,y + eora #$01 + bra L4457 +L446B lda $0B,y + eora $05,y + anda #$01 + bne L4455 + leau $06,y + lda $05,y + anda #$01 + beq L447D + exg u,y +L447D ldd u0001,u + cmpd $01,y + bne L445F + ldd u0003,u + cmpd $03,y + bne L4491 + lda u0005,u + cmpa $05,y + beq L445F +L4491 bcs L445B + andcc #$F0 + puls pc,y +L4497 clrb + stb <u003E +L449A ldu <u0048 + leay -$06,y + stu $01,y + sty <u0044 +L44A3 cmpu <u0044 + bcc L44C2 + lda ,x+ + sta ,u+ + cmpa #$FF + beq L44BB + decb + bne L44A3 + dec <u003E + bpl L44A3 + lda #$FF + sta ,u+ +L44BB stu <u0048 + lda #$04 + sta ,y + rts +L44C2 ldb #$2F + lbra L3C2C + ldd ,x++ + addd <u0066 + tfr d,u +L44CD ldd ,u + addd <u0031 + ldu u0002,u + stu <u003E + tfr d,u + pshs x + ldb <u003F + bne L44DF + dec <u003E +L44DF leax ,u + bsr L449A + puls pc,x + ldu $01,y + leay $06,y +L44E9 lda ,u+ + sta -u0002,u + cmpa #$FF + bne L44E9 + leau -u0001,u + stu <u0048 + rts + ldd <u003E + leay -$06,y + std $03,y + stu $01,y + lda #$05 + sta ,y + rts +L4503 clra + clrb + std $04,y + ldd $01,y + bne L4512 + stb $03,y + lda #$02 + sta ,y + rts +L4512 ldu #$0210 + tsta + bpl L451E + nega + negb + sbca #$00 + inc $05,y +L451E tsta + bne L4526 + ldu #$0208 + exg a,b +L4526 tsta + bmi L452F +L4529 leau -u0001,u + lslb + rola + bpl L4529 +L452F std $02,y + stu ,y + rts + leay $06,y + bsr L4503 + leay -$06,y + rts +L453B ldb $01,y + bgt L454E + bmi L454A + lda $02,y + bpl L454A + ldd #$0001 + bra L4591 +L454A clra + clrb + bra L4599 +L454E subb #$10 + bhi L458C + bne L4566 + ldd $02,y + ror $05,y + bcc L4599 + cmpd #$8000 + bne L458C + tst $04,y + bpl L4599 + bra L458C +L4566 cmpb #$F8 + bhi L4578 + pshs b + ldd $02,y + std $03,y + clr $02,y + puls b + addb #$08 + beq L4581 +L4578 lsr $02,y + ror $03,y + ror $04,y + incb + bne L4578 +L4581 ldd $02,y + tst $04,y + bpl L4591 + addd #$0001 + bvc L4591 +L458C ldb #$34 + lbra L3C2C +L4591 ror $05,y + bcc L4599 + nega + negb + sbca #$00 +L4599 std $01,y + lda #$01 + sta ,y + rts + leay $06,y + bsr L453B + leay -$06,y + rts + leay $0C,y + bsr L453B + leay -$0C,y + rts + lda $05,y + anda #$FE + sta $05,y + rts + ldd $01,y + bpl L45BF + nega + negb + sbca #$00 + std $01,y +L45BF rts + clra + ldb [<$01,y] + std $01,y + rts + lda $02,y + beq L45DB + lda $05,y + anda #$01 + bne L45DE +L45D1 ldb #$01 + bra L45E0 + ldd $01,y + bmi L45DE + bne L45D1 +L45DB clrb + bra L45E0 +L45DE ldb #$FF +L45E0 sex + bra L45EA + ldb <u0036 + clr <u0036 +L45E7 clra + leay -$06,y +L45EA std $01,y + lda #$01 + sta ,y +L45F0 rts + ldb <u007D + bra L45E7 +L45F5 ldb $05,y + asrb + lbcs L4FC7 + ldb #$1F + stb <u006E + ldd $01,y + beq L45F0 + inca + asra + sta $01,y + ldd $02,y + bcs L4616 + lsra + rorb + std -$04,y + ldd $04,y + rora + rorb + bra L461A +L4616 std -$04,y + ldd $04,y +L461A std -$02,y + clra + clrb + std $02,y + std $04,y + std -$06,y + std -$08,y + bra L4638 +L4628 orcc #$01 + rol $05,y + rol $04,y + rol $03,y + rol $02,y + dec <u006E + beq L467A + bsr L468F +L4638 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 L4628 +L4650 andcc #$FE + rol $05,y + rol $04,y + rol $03,y + rol $02,y + dec <u006E + beq L467A + bsr L468F + 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 L4650 + bra L4628 +L467A ldd $02,y + bra L4684 +L467E dec $01,y + lbvs L40DD +L4684 lsl $05,y + rol $04,y + rolb + rola + bpl L467E + std $02,y + rts +L468F bsr L4691 +L4691 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 L3F1C + ldd $03,y + std $01,y + rts +L46AA leau -$0C,y + pshs y +L46AE ldd ,y++ + std ,u++ + cmpu ,s + bne L46AE + leas $02,s + leay -u000C,u + lbsr L422D + bsr L46C6 + lbsr L40CC + lbra L3FAB +L46C6 lda $01,y + bgt L46D3 + clra + clrb + std $01,y + std $03,y + stb $05,y +L46D2 rts +L46D3 cmpa #$1F + bcc L46D2 + leau $06,y + ldb -u0001,u + andb #$01 + pshs u,b + leau $01,y +L46E1 leau u0001,u + suba #$08 + bcc L46E1 + beq L46F5 + ldb #$FF +L46EB lslb + inca + bne L46EB + andb ,u + stb ,u+ + bra L46F9 +L46F5 leau u0001,u +L46F7 sta ,u+ +L46F9 cmpu $01,s + bne L46F7 + puls u,b + orb $05,y + stb $05,y + rts + leay -$06,y + ldd $07,y + std $01,y + lbra L3EC1 + leay -$06,y + ldd $0A,y + std $04,y + ldd $08,y + std $02,y + ldd $06,y + std ,y + lbra L40CC + ldd <u0080 + ldu <u0082 + pshs u,b,a + ldd $01,y + std <u0080 + std <u0082 + std <u0048 + leay $06,y + ldb #$09 + lbsr L3C2F + puls u,b,a + std <u0080 + stu <u0082 + lbcs L4FC7 + rts + lbsr L3D51 + leay -$06,y + stu $01,y +L4746 lda #$01 + sta ,y + leax $01,x + rts +L474D oim #$02,<u0005 + oim #$17,<u00F5 + std >$313A + cmpa #$04 + bcc L4763 + leau >L474D,pcr + ldb a,u + clra + bra L4765 +L4763 ldd <u003E +L4765 std $01,y + bra L4746 + ldd #$00FF + bra L4771 + ldd #$0000 +L4771 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 L4795 + ldd $01,y + eora $07,y + eorb $08,y + bra L4795 + ldd $01,y + ora $07,y + orb $08,y +L4795 std $07,y + leay $06,y + rts +L479A stu >$DE5B + eorb <u00AA + bsr L47AB + leau >L479A,pcr + lbsr L3F93 + lbra L40CC +L47AB pshs x + ldb $05,y + asrb + lbcs L4FC7 + ldd $01,y + lbeq L4FC7 + pshs a + ldb #$01 + stb $01,y + leay <-$1A,y + leax <$1B,y + leau ,y + lbsr L4BCC + lbsr L4CC7 + clra + clrb + std <$14,y + std <$16,y + sta <$18,y + leax >L4C7F,pcr + stx <$19,y + lbsr L4909 + leax <$14,y + leau <$1B,y + lbsr L4BCC + lbsr L4CE1 + leay <$1A,y + ldb #$02 + stb ,y + ldb $05,y + orb #$01 + stb $05,y + puls b + bsr L480A + puls x + lbra L3FB1 +L4805 neg <u00B1 + aim #$17,>$F81D + bpl L480E + negb +L480E anda #$01 + pshs b,a + leau >L4805,pcr + lbsr L3F93 + ldb $05,y + lda $01,s + cmpa #$01 + beq L485C + 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 L4858 +L484B inc $01,y + lsra + rorb + ror $03,y + ror $04,y + ror $05,y + tsta + bne L484B +L4858 stb $02,y + ldb $05,y +L485C andb #$FE + orb ,s + stb $05,y + puls pc,b,a +L4864 pshs x + ldb $01,y + beq L4880 + cmpb #$07 + ble L4877 + ldb $05,y + rorb + rorb + eorb #$80 + lbra L491C +L4877 cmpb #$E4 + lble L4342 + tstb + bpl L488A +L4880 clr ,-s + ldb $05,y + andb #$01 + beq L48CD + bra L48BB +L488A lda #$71 + mul + adda $01,y + ldb $05,y + andb #$01 + pshs b,a + eorb $05,y + stb $05,y + ldb ,s +L489B lbsr L480A + lbsr L3FAB + ldb $01,y + ble L48AD + addb ,s + stb ,s + ldb $01,y + bra L489B +L48AD puls b,a + pshs a + tstb + beq L48CD + nega + sta ,s + orb $05,y + stb $05,y +L48BB leau >L4805,pcr + lbsr L3F93 + lbsr L3FB1 + dec ,s + ldb $05,y + andb #$01 + bne L48BB +L48CD leay <-$1A,y + leax <$1B,y + leau <$14,y + lbsr L4BCC + lbsr L4CC7 + ldd #$1000 + std ,y + clra + std $02,y + sta $04,y + leax >L4C61,pcr + stx <$19,y + bsr L4909 + leax ,y + leau <$1B,y + lbsr L4BCC + lbsr L4CE1 + leay <$1A,y + puls b + addb $01,y + bvs L491C + lda #$02 + std ,y + puls pc,x +L4909 lda #$01 + sta <u009A + leax >L4D6F,pcr + stx <u0095 + leax >$005F,x + stx <u0097 + lbra L4B97 +L491C leay -$06,y + lbpl L40DD + ldb #$32 + lbra L3C2C + pshs x + bsr L495D + ldd $01,y + lbeq L4A91 + cmpd #$0180 + bgt L4943 + bne L4946 + ldd $03,y + bne L4943 + lda $05,y + lbeq L4A0E +L4943 lbra L4FC7 +L4946 lbsr L49CB + leay <-$14,y + leax <$15,y + leau ,y + lbsr L4BCC + lbsr L4CC7 + leax <$1B,y + lbra L4A3E +L495D ldb $05,y + andb #$01 + stb <u006D + eorb $05,y + stb $05,y + rts + leau <L49AB,pcr + pshs u,x + bsr L495D + ldd $01,y + lbeq L4A0E + cmpd #$0180 + bgt L4943 + bne L4995 + ldd $03,y + bne L4943 + lda $05,y + bne L4943 + lda <u006D + bne L498E + clrb + std $01,y + puls pc,u,x +L498E leay $06,y + puls u,x + lbra L4B03 +L4995 bsr L49CB + leay <-$14,y + leax <$1B,y + leau ,y + lbsr L4BCC + lbsr L4CC7 + leax <$15,y + lbra L4A3E +L49AB lda $05,y + bita #$01 + beq L49C5 + ldu <u0031 + tst u0001,u + beq L49BF + leau <L49C6,pcr + lbsr L3F93 + bra L49C2 +L49BF lbsr L4B03 +L49C2 lbra L3FB1 +L49C5 rts +L49C6 lsl <u00B4 + neg <u0000 + neg <u0096 + tst -$0C,y + aim #$31,<u00A8 + ldu <L49D6,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 L40CC + lbsr L3FAB + lbsr L45F5 + puls a + sta <u006D + rts + pshs x + lbsr L495D + ldb $01,y + cmpb #$18 + blt L4A17 +L4A0E leay $06,y + lbsr L4B03 + dec $01,y + bra L4A6A +L4A17 leay <-$1A,y + ldd #$1000 + std ,y + clra + std $02,y + sta $04,y + ldb <$1B,y + bra L4A34 +L4A29 asr ,y + ror $01,y + ror $02,y + ror $03,y + ror $04,y + decb +L4A34 cmpb #$02 + bgt L4A29 + stb <$1B,y + leax <$1B,y +L4A3E leau $0A,y + lbsr L4BCC + lbsr L4CC7 + clra + clrb + std <$14,y + std <$16,y + sta <$18,y + leax >L4C2C,pcr + stx <$19,y + lbsr L4B89 + leax <$14,y + leau <$1B,y + lbsr L4BCC + lbsr L4CE1 + leay <$1A,y +L4A6A lda $05,y + ora <u006D + sta $05,y + ldu <u0031 + tst u0001,u + beq L4A91 + leau >L4AFE,pcr + lbsr L3F93 + lbsr L40CC + bra L4A91 + pshs x + lbsr L4B0A + leax $0A,y + bsr L4A97 + lda $05,y +L4A8D eora <u009C +L4A8F sta $05,y +L4A91 lda #$02 + sta ,y + puls pc,x +L4A97 leau <$1B,y + lbsr L4BCC + lbsr L4CE1 + leay <$14,y + leax >L4D6A,pcr + leau $01,y + lbsr L4BCC + lbra L40CC + pshs x + bsr L4B0A + leax ,y + bsr L4A97 + lda $05,y + eora <u009B + bra L4A8F + pshs x + bsr L4B0A + leax $0A,y + leau <$1B,y + lbsr L4BCC + lbsr L4CE1 + leax ,y + leay <$14,y + leau $01,y + lbsr L4BCC + lbsr L4CE1 + ldd $01,y + bne L4AEB + leay $06,y + ldd #$7FFF +L4AE2 std $01,y + lda #$FF + std $03,y + deca + bra L4AF0 +L4AEB lbsr L422D + lda $05,y +L4AF0 eora <u009B + bra L4A8D + aim #$C9,<u000F + orb <u00A2 +L4AF9 addb >$8EFA + puls x,a +L4AFE ror <u00E5 + bgt L4AE2 + andb <u0033 + bsr L4B05 + std -$0A,x + andb >$89DE + leay $0D,s + fcb $41 A + beq L4B1A + leau >L4AF9,pcr + lbsr L3F93 + lbsr L40CC +L4B1A clr <u009B + ldb $05,y + andb #$01 + stb <u009C + eorb $05,y + stb $05,y + bsr L4B03 + inc $01,y + lbsr L4449 + blt L4B36 + lbsr L46AA + bsr L4B03 + bra L4B38 +L4B36 dec $01,y +L4B38 lbsr L4449 + blt L4B4A + inc <u009B + lda <u009C + eora #$01 + sta <u009C + lbsr L3FAB + bsr L4B03 +L4B4A dec $01,y + lbsr L4449 + ble L4B64 + lda <u009B + eora #$01 + sta <u009B + inc $01,y + lda $0B,y + ora #$01 + sta $0B,y + lbsr L3FB1 + leay -$06,y +L4B64 leay <-$14,y + leax >L4C33,pcr + stx <$19,y + leax <$1B,y + leau <$14,y + bsr L4BCC + lbsr L4CC7 + ldd #$1000 + std ,y + clra + std $02,y + sta $04,y + std $0A,y + std $0C,y + sta $0E,y +L4B89 leax >L4D29,pcr + stx <u0095 + leax >$0041,x + stx <u0097 + clr <u009A +L4B97 ldb #$25 + stb <u0099 + clr <u009D +L4B9D leau <$1B,y + ldx <u0095 + cmpx <u0097 + bcc L4BAE + bsr L4BCC + leax $05,x + stx <u0095 + bra L4BB2 +L4BAE ldb #$01 + bsr L4C1E +L4BB2 leax ,y + leau $05,y + bsr L4BDE + tst <u009A + bne L4BC2 + leax $0A,y + leau $0F,y + bsr L4BDE +L4BC2 jsr [<$19,y] + inc <u009D + dec <u0099 + bne L4B9D + rts +L4BCC pshs y,x + lda ,x + ldy $01,x + ldx $03,x + sta ,u + sty u0001,u + stx u0003,u + puls pc,y,x +L4BDE ldb ,x + sex + ldb <u009D + lsrb + lsrb + lsrb + bcc L4BE9 + incb +L4BE9 pshs b + beq L4BF2 +L4BED sta ,u+ + decb + bne L4BED +L4BF2 ldb #$05 + subb ,s+ + beq L4BFF +L4BF8 lda ,x+ + sta ,u+ + decb + bne L4BF8 +L4BFF leau -u0005,u + ldb <u009D + andb #$07 + beq L4C2B + cmpb #$04 + bcs L4C1E + subb #$08 + lda ,x +L4C0F lsla + rol u0004,u + rol u0003,u + rol u0002,u + rol u0001,u + rol ,u + incb + bne L4C0F + rts +L4C1E asr ,u + ror u0001,u + ror u0002,u + ror u0003,u + ror u0004,u + decb + bne L4C1E +L4C2B rts +L4C2C lda $0A,y + eora ,y + coma + bra L4C36 +L4C33 lda <$14,y +L4C36 tsta + bpl L4C4D + leax ,y + leau $0F,y + bsr L4C8F + leax $0A,y + leau $05,y + bsr L4CAB + leax <$14,y + leau <$1B,y + bra L4C8F +L4C4D leax ,y + leau $0F,y + bsr L4CAB + leax $0A,y + leau $05,y + bsr L4C8F + leax <$14,y + leau <$1B,y + bra L4CAB +L4C61 leax <$14,y + leau <$1B,y + bsr L4CAB + bmi L4C8F + bne L4C79 + ldd $01,x + bne L4C79 + ldd $03,x + bne L4C79 + ldb #$01 + stb <u0099 +L4C79 leax ,y + leau $05,y + bra L4C8F +L4C7F leax ,y + leau $05,y + bsr L4C8F + cmpa #$20 + bcc L4CAB + leax <$14,y + leau <$1B,y +L4C8F ldd $03,x + addd u0003,u + std $03,x + ldd $01,x + bcc L4CA0 + addd #$0001 + bcc L4CA0 + inc ,x +L4CA0 addd u0001,u + std $01,x + lda ,x + adca ,u + sta ,x + rts +L4CAB ldd $03,x + subd u0003,u + std $03,x + ldd $01,x + bcc L4CBC + subd #$0001 + bcc L4CBC + dec ,x +L4CBC subd u0001,u + std $01,x + lda ,x + sbca ,u + sta ,x + rts +L4CC7 ldb ,u + clr ,u + addb #$04 + bge L4CDE + negb + lbra L4C1E +L4CD3 lsl u0004,u + rol u0003,u + rol u0002,u + rol u0001,u + rol ,u + decb +L4CDE bne L4CD3 + rts +L4CE1 lda ,u + bpl L4CEE + clra + clrb + std ,u + std u0002,u + sta u0004,u + rts +L4CEE ldd #$2004 +L4CF1 decb + lsl u0004,u + rol u0003,u + rol u0002,u + rol u0001,u + rol ,u + bmi L4D05 + deca + bne L4CF1 + clrb + std ,u + rts +L4D05 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 L4D28 + inc u0002,u + bne L4D28 + inc u0001,u + bne L4D28 + ror u0001,u + inc ,u +L4D28 rts +L4D29 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 L6EF2 + 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 +L4DCE 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 L4DFC + ldb $05,y + bitb #$01 + bne L4DF0 + com ,s + bra L4DFC +L4DF0 addb #$FE + addb $01,y + lda $04,y + std <u0052 + ldd $02,y + std <u0050 +L4DFC lda <u0053 + ldb <u0057 + mul + std <u004E + lda <u0052 + ldb <u0057 + mul + addd <u004D + bcc L4E0E + inc <u004C +L4E0E std <u004D + lda <u0053 + ldb <u0056 + mul + addd <u004D + bcc L4E1B + inc <u004C +L4E1B 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 L4E98 + ldd <u0050 + std $02,y + ldd <u0052 + std $04,y + clr $01,y +L4E78 lda #$1F + pshs a + ldd $02,y + bmi L4E8E +L4E80 dec ,s + beq L4E8E + dec $01,y + lsl $05,y + rol $04,y + rolb + rola + bpl L4E80 +L4E8E std $02,y + ldb $05,y + andb #$FE + stb $05,y + puls pc,b +L4E98 ldd <u0052 + andb #$FE + std ,--y + ldd <u0050 + std ,--y + clra + clrb + std ,--y + bsr L4E78 + lbra L40CC + ldd <u0048 + ldu $01,y + subd $01,y + subd #$0001 + stu <u0048 +L4EB6 std $01,y + lda #$01 + sta ,y + rts + ldd $01,y + std <u0048 + ldb [<$01,y] + clra + bra L4EB6 + ldd $01,y + tsta + lbne L4FC7 + ldu <u0048 + stu $01,y + stb ,u+ + lbsr L4FEA + sty <u0044 + cmpu <u0044 + lbcc L44C2 + rts +L4EE2 ldd $01,y + ble L4EF4 + addd $07,y + tfr d,u + cmpd <u0048 + bcc L4EF1 + bsr L4F70 +L4EF1 leay $06,y + rts +L4EF4 leay $06,y + ldu $01,y + bra L4F70 + ldd $01,y + ble L4EF4 + pshs x + ldd <u0048 + subd $01,y + subd #$0001 + cmpd $07,y + bls L4F1A + tfr d,x + ldu $07,y +L4F10 lda ,x+ + sta ,u+ + cmpa #$FF + bne L4F10 + stu <u0048 +L4F1A leay $06,y + puls pc,x + ldd $01,y + ble L4F26 + ldd $07,y + bgt L4F2E +L4F26 ldd $01,y + leay $06,y + std $01,y + bra L4EE2 +L4F2E subd #$0001 + beq L4F26 + addd $0D,y + cmpd <u0048 + bcs L4F3E + leay $06,y + bra L4EF4 +L4F3E pshs x + tfr d,x + ldb $02,y + ldu $0D,y +L4F46 lda ,x+ + sta ,u+ + cmpa #$FF + beq L4F59 + decb + bne L4F46 + dec $01,y + bpl L4F46 + lda #$FF + sta ,u+ +L4F59 stu <u0048 + leay $0C,y + puls pc,x + ldu <u0048 + leau -u0001,u +L4F63 cmpu $01,y + beq L4F70 + lda ,-u + cmpa #$20 + beq L4F63 + leau u0001,u +L4F70 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 L3C29 + bcc L4F90 + clra + clrb + bra L4F99 +L4F90 tfr y,d + ldx $02,s + subd $01,x + addd #$0001 +L4F99 puls y,x + std $07,y + lda #$01 + sta $06,y + leay $06,y + rts + ldb #$02 + bra L4FAA + ldb #$03 +L4FAA lda <u007D + ldu <u0082 + pshs u,x,a + lbsr L3C2F + bcs L4FC7 + ldx <u0082 + lda #$FF + sta ,x + ldx $03,s + lbsr L4497 + puls u,x,a + sta <u007D + stu <u0082 + rts +L4FC7 ldb #$43 + lbra L3C2C + pshs x + ldd $01,y + blt L4FC7 + sty <u0044 + ldu <u0048 + stu $01,y + lda #$20 +L4FDB cmpb <u007D + bls L4FEC + sta ,u+ + decb + cmpu <u0044 + bcs L4FDB + lbra L44C2 +L4FEA pshs x +L4FEC 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 L4FEC + bsr L5021 + lda #$2F + bsr L501F + lda #$2F + bsr L501F + lda #$20 + bsr L501F + lda #$3A + bsr L501F + lda #$3A + bsr L501F + bra L4FEC +L501F sta ,u+ +L5021 lda ,x+ + ldb #$2F +L5025 incb + suba #$0A + bcc L5025 + stb ,u+ + ldb #$3A +L502E decb + inca + bne L502E + stb ,u+ + rts + lda $02,y + ldb #$06 + os9 I$GetStt + bcc L5046 + cmpb #$D3 + bne L5046 + ldb #$FF + bra L5048 +L5046 ldb #$00 +L5048 clra + std $01,y + lda #$03 + sta ,y + rts + ldb #$06 + pshs y,x,b + tfr dp,a + ldb #$50 + tfr d,y + leax >L4DCE,pcr +L505E ldd ,x++ + std ,y++ + dec ,s + bne L505E + leax >L3CB5,pcr + stx <u0010 + leax >L3D35,pcr + stx <u0012 + lda #$7E + sta <u0016 + leax >L3D41,pcr + stx <u0017 + leax >L3C32,pcr + stx <u0019 + puls pc,y,x,b + pshs x,b,a + ldb [<$04,s] + leax <L5094,pcr + ldd b,x + leax d,x + stx $04,s + puls pc,x,b,a +L5094 neg <u00BA + neg <u0010 +L5098 jsr <u0027 + inc <u009D + beq L50AC +L509E jsr <u0027 + lsl <u009D + beq L50AA + pshs pc,x,b,a + lslb + leax <L50B2,pcr +L50AA ldd b,x +L50AC leax d,x + stx $04,s + puls pc,x,b,a +L50B2 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 +L50D2 eim #$DA,<u0006 + ora >$0562 + asr <u0059 +L50DA ror <u0002 + beq L50EE + com <u00E8 + neg <u0064 + neg <u000A +L50E4 lsr <u00A0 + neg <u0000 + neg <u0007 + eorb #$00 + neg <u0000 +L50EE 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 L5111 +L5111 bhi L50A8 + aim #$F9,<u0000 + bcs L50D2 + coma + sta >$4028 + eorb [,u] + bita -$10,x + bge L50B3 + anda #$E7 + bpl L5155 + bita >$E620 + andb >$32E3 + clrb + adca -$0E,y + pshu pc,dp,b,a + fcb $1B + adcb #$C0 + rts + cmpa >$A2BC + bgt L5176 + ldu <u000B + tim #u003A,$00,u + ora #$C7 + bls L5147 +L5143 lsrb + aim #$75,>$65FF +L5148 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 L5390 + bcc L5172 + leax -$01,x + cmpa #$2C + bne L51DE + lbra L51FB +L5172 cmpa #$24 + lbeq L52B2 + cmpa #$2B + beq L5182 + cmpa #$2D + bne L5184 + inc <u0078 +L5182 lda ,x+ +L5184 cmpa #$2E + bne L5190 + tst <u0077 + bne L51DE + inc <u0077 + bra L5182 +L5190 lbsr L57DE + bcs L51E5 + pshs a + inc <u0076 + ldd $04,y + ldu $02,y + bsr L51CB + std $04,y + stu $02,y + bsr L51CB + bsr L51CB + addd $04,y + exg d,u + adcb $03,y + adca $02,y + bcs L51D8 + exg d,u + addb ,s+ + adca #$00 + bcc L51BF + leau u0001,u + stu $02,y + beq L51DA +L51BF std $04,y + stu $02,y + tst <u0077 + beq L5182 + inc <u0079 + bra L5182 +L51CB lslb + rola + exg d,u + rolb + rola + exg d,u + bcs L51D6 + rts +L51D6 leas $02,s +L51D8 leas $01,s +L51DA ldb #$3C + bra L51E0 +L51DE ldb #$3B +L51E0 stb <u0036 + coma + puls pc,u +L51E5 eora #$45 + anda #$DF + beq L520E + leax -$01,x + tst <u0076 + bne L51F3 + bra L51DE +L51F3 tst <u0077 + bne L523C + ldd $02,y + bne L523C +L51FB ldd $04,y + bmi L523C + tst <u0078 + beq L5207 + nega + negb + sbca #$00 +L5207 std $01,y +L5209 lda #$01 + lbra L5295 +L520E lda ,x + cmpa #$2B + beq L521A + cmpa #$2D + bne L521C + inc <u0075 +L521A leax $01,x +L521C lbsr L57DC + bcs L51DE + tfr a,b + lbsr L57DC + bcc L522C + leax -$01,x + bra L5233 +L522C pshs a + lda #$0A + mul + addb ,s+ +L5233 tst <u0075 + bne L5238 + negb +L5238 addb <u0079 + stb <u0079 +L523C ldb #$20 + stb $01,y + ldd $02,y + bne L524D + cmpd $04,y + bne L524D + clr $01,y + bra L5293 +L524D tsta + bmi L525A +L5250 dec $01,y + lsl $05,y + rol $04,y + rolb + rola + bpl L5250 +L525A std $02,y + clr <u0075 + ldb <u0079 + beq L528B + bpl L5267 + negb + inc <u0075 +L5267 cmpb #$13 + bls L527B + subb #$13 + pshs b + leau >L513E,pcr + bsr L529B + puls b + lbcs L51DA +L527B decb + lda #$05 + mul + leau >L50E4,pcr + leau b,u + bsr L529B + lbcs L51DA +L528B lda $05,y + anda #$FE + ora <u0078 + sta $05,y +L5293 lda #$02 +L5295 sta ,y + andcc #$FE + puls pc,u +L529B leay -$06,y + ldd ,u + std $01,y + ldd u0002,u + std $03,y + ldb u0004,u + stb $05,y + lda <u0075 + lbeq L509E + lbra L50A1 +L52B2 lbsr L57DC + bcc L52C7 + cmpa #$61 + bcs L52BD + suba #$20 +L52BD cmpa #$41 + bcs L52DC + cmpa #$46 + bhi L52DC + suba #$37 +L52C7 inc <u0076 + ldb #$04 +L52CB lsl $02,y + rol $01,y + lbcs L51DA + decb + bne L52CB + adda $02,y + sta $02,y + bra L52B2 +L52DC leax -$01,x + tst <u0076 + lbeq L51DE + lbra L5209 + pshs x + ldx <u0082 + lbsr L514E + bcc L52F2 +L52F0 puls pc,x +L52F2 cmpa #$02 + beq L52F9 + lbsr L509B +L52F9 lbsr L5384 + bcs L5305 + ldb #$3D + stb <u0036 + coma + puls pc,x +L5305 stx <u0082 + clra + puls pc,x + pshs x + ldx <u0082 + lbsr L514E + bcs L52F0 + cmpa #$01 + bne L532A + tst $01,y + beq L52F9 + bra L532A + pshs x + ldx <u0082 + lbsr L514E + bcs L52F0 + cmpa #$01 + beq L52F9 +L532A 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 +L533F lda ,x+ + bsr L5396 + bcs L5349 + sta ,u+ + bra L533F +L5349 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 L5390 + bcs L537F + cmpa #$54 + beq L5379 + cmpa #$74 + beq L5379 + eora #$46 + anda #$DF + beq L537B + ldb #$3A + stb <u0036 + coma + puls pc,x +L5379 com $02,y +L537B bsr L5384 + bcc L537B +L537F stx <u0082 + clra + puls pc,x +L5384 lda ,x+ + cmpa #$20 + bne L5396 + bsr L5390 + bcc L53A5 + bra L53A7 +L5390 lda ,x+ + cmpa #$20 + beq L5390 +L5396 cmpa <u00DD + beq L53A7 + cmpa #$0D + beq L53A5 + cmpa #$FF + beq L53A5 + andcc #$FE + rts +L53A5 leax -$01,x +L53A7 orcc #$01 + rts +L53AA pshs u,x + clra + sta $03,y + sta <u0076 + sta <u0078 + lda #$04 + sta <u007E + ldd $01,y + bpl L53C1 + nega + negb + sbca #$00 + inc <u0078 +L53C1 leau >L50DA,pcr +L53C5 clr <u007A + leau u0002,u +L53C9 subd ,u + bcs L53D1 + inc <u007A + bra L53C9 +L53D1 addd ,u + tst <u007A + bne L53DB + tst $03,y + beq L53E6 +L53DB inc $03,y + pshs a + lda <u007A + lbsr L54EA + puls a +L53E6 dec <u007E + bne L53C5 + tfr b,a + lbsr L54EA + leay $06,y + puls pc,u,x +L53F3 pshs u,x + clr <u0075 + clr <u0078 + clr <u007C + clr <u007B + clr <u0079 + clr <u0076 + leau ,x + ldd #$0A30 +L5406 stb ,u+ + deca + bne L5406 + ldd $01,y + bne L5413 + inca + lbra L54E4 +L5413 ldb $05,y + bitb #$01 + beq L541F + stb <u0078 + andb #$FE + stb $05,y +L541F ldd $01,y + bpl L5426 + inc <u0075 + nega +L5426 cmpa #$03 + bls L5457 + ldb #$9A + mul + lsra + nop + nop + tfr a,b + tst <u0075 + beq L5437 + negb +L5437 stb <u0079 + cmpa #$13 + bls L544A + pshs a + leau >L513E,pcr + lbsr L529B + puls a + suba #$13 +L544A leau >L50E4,pcr + deca + ldb #$05 + mul + leau d,u + lbsr L529B +L5457 ldd $02,y + tst $01,y + beq L5483 + bpl L546F +L545F lsra + rorb + ror $04,y + ror $05,y + ror <u007C + inc $01,y + bne L545F + std $02,y + bra L5483 +L546F lsl $05,y + rol $04,y + rolb + rola + rol <u007B + dec $01,y + bne L546F + std $02,y + inc <u0079 + lda <u007B + bsr L54EA +L5483 ldd $02,y + ldu $04,y +L5487 clr <u007B + bsr L54F1 + std $02,y + stu $04,y + pshs a + lda <u007B + sta <u007C + puls a + bsr L54F1 + bsr L54F1 + exg d,u + addd $04,y + exg d,u + adcb $03,y + adca $02,y + pshs a + lda <u007B + adca <u007C + bsr L54EA + lda <u0076 + cmpa #$09 + puls a + beq L54C1 + cmpd #$0000 + bne L5487 + cmpu #$0000 + bne L5487 +L54C1 sta ,y + lda <u0076 + cmpa #$09 + bcs L54E2 + ldb ,y + bpl L54E2 +L54CD lda ,-x + inca + sta ,x + cmpa #$39 + bls L54E2 + lda #$30 + sta ,x + cmpx ,s + bne L54CD + inc ,x + inc <u0079 +L54E2 lda #$09 +L54E4 sta <u0076 + leay $06,y + puls pc,u,x +L54EA ora #$30 + sta ,x+ + inc <u0076 + rts +L54F1 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 L5524 + pshs y,x + ldd <u0082 + subd <u0080 + beq L5528 + tfr d,y + ldx <u0080 + stx <u0082 + lda <u007F + os9 I$WritLn +L5524 bcc L5528 + stb <u0036 +L5528 puls pc,y,x + pshs u,x + lda ,y + cmpa #$02 + beq L5536 + ldu $01,y + bra L553D +L5536 lda $01,y + bgt L5542 + ldu #$0000 +L553D ldx #$0000 + bra L555E +L5542 ldx $02,y + ldu $04,y + suba #$20 + bcs L554F + ldb #$4E + coma + bra L5565 +L554F exg x,d + lsra + rorb + exg d,u + rora + rorb + exg d,x + exg x,u + inca + bne L554F +L555E lda <u007F + os9 I$Seek + bcc L5567 +L5565 stb <u0036 +L5567 puls pc,u,x + pshs u,x + leas -$0A,s + leax ,s + lbsr L53F3 + pshs x + lda #$09 + leax $09,x +L5578 ldb ,-x + cmpb #$30 + bne L5583 + deca + cmpa #$01 + bne L5578 +L5583 sta <u0076 + puls x + ldb <u0079 + bgt L55AC + negb + tfr b,a + cmpb #$09 + bhi L55C6 + addb <u0076 + cmpb #$09 + bhi L55C6 + pshs a + lbsr L5643 + clra + bsr L5612 + puls b + tstb + beq L55A8 + lbsr L5634 +L55A8 lda <u0076 + bra L55BF +L55AC cmpb #$09 + bhi L55C6 + lbsr L5643 + tfr b,a + bsr L5601 + bsr L5612 + lda <u0076 + suba <u0079 + bls L55C1 +L55BF bsr L5601 +L55C1 leas $0A,s + clra + puls pc,u,x +L55C6 bsr L5643 + lda #$01 + bsr L5601 + bsr L5612 + lda <u0076 + deca + bne L55D4 + inca +L55D4 bsr L5601 + bsr L55DA + bra L55C1 +L55DA lda #$45 + bsr L5614 + lda <u0079 + deca + pshs a + bpl L55EB + neg ,s + bsr L5647 + bra L55ED +L55EB bsr L564B +L55ED puls b + clra +L55F0 subb #$0A + bcs L55F7 + inca + bra L55F0 +L55F7 addb #$0A + bsr L55FD + tfr b,a +L55FD adda #$30 + bra L5614 +L5601 tfr a,b + tstb + beq L560D +L5606 lda ,x+ + bsr L5614 + decb + bne L5606 +L560D rts +L560E lda #$20 + bra L5614 +L5612 lda #$2E +L5614 pshs u,a + leau <-$40,s + cmpu <u0082 + bhi L562A + cmpa #$0D + beq L562A + lda #$50 + sta <u0036 + sta <u00DE + bra L5632 +L562A ldu <u0082 + sta ,u+ + stu <u0082 + inc <u007D +L5632 puls pc,u,a +L5634 lda #$30 +L5636 tstb + beq L563E +L5639 bsr L5614 + decb + bne L5639 +L563E rts +L563F tst <u0078 + beq L560E +L5643 tst <u0078 + beq L563E +L5647 lda #$2D + bra L5614 +L564B lda #$2B + bra L5614 +L564F lda #$20 + bra L5636 +L5653 bsr L5614 +L5655 lda ,x+ + cmpa #$FF + bne L5653 + rts + pshs x + ldx $01,y +L5660 bsr L5655 + clra + puls pc,x + pshs x + leax >L5143,pcr + lda $02,y + bne L5660 + leax >L5148,pcr + bra L5660 + pshs u,x + leas -$05,s + leax ,s + lbsr L53AA + bsr L5643 + lda <u0076 + leax ,s + lbsr L5601 + leas $05,s + clra + puls pc,u,x + tfr a,b +L568E pshs u + ldu <u0082 + subb <u007D + bls L5698 + bsr L564F +L5698 clra + puls pc,u + lbsr L560E +L569E lda <u007D + anda #$0F + cmpa #$01 + beq L56B2 + lbsr L560E + bra L569E + lda #$0D + clr <u007D + lbsr L5614 +L56B2 clra + rts + pshs u + lda #$04 + leau ,y + tst ,u + bne L56C1 + asra + leau u0001,u +L56C1 sta <u0086 + tfr a,b + asrb + lbsr L585D + puls pc,u +L56CB clrb + stb <u0087 + cmpa #$3C + beq L56DE + cmpa #$3E + bne L56D9 + incb + bra L56DE +L56D9 cmpa #$5E + bne L56E2 + decb +L56DE stb <u0087 + lda ,x+ +L56E2 cmpa #$2C + beq L571E + cmpa #$FF + bne L56FC + lda <u0094 + beq L56F2 + leax -$01,x + bra L5707 +L56F2 ldx <u008E + tst <u00DC + beq L5700 + clr <u00DC + bra L571E +L56FC cmpa #$29 + beq L5703 +L5700 orcc #$01 + rts +L5703 lda <u0094 + beq L5700 +L5707 dec <u0092 + bne L571C + ldu <u0046 + pulu y,a + sta <u0092 + sty <u0090 + stu <u0046 + lda ,x+ + dec <u0094 + bra L56E2 +L571C ldx <u0090 +L571E stx <u008C + andcc #$FE + rts +L5723 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 L573D +L573D orcc #$00 + bsr L56E2 + bcs L57A7 + ldb <u0086 + lbsr L568E + bra L5772 + bsr L56E2 + bcs L57A7 + ldb <u0086 + lbsr L564F + bra L5772 +L5755 cmpa #$FF + beq L57A7 + cmpa #$27 + bne L5765 + lda ,x+ + bsr L56E2 + bcs L57A7 + bra L5772 +L5765 lbsr L5614 + lda ,x+ + bra L5755 + pshs y,x + clr <u00DC + inc <u00DC +L5772 ldx <u008C + bsr L57C2 + bcs L5791 + cmpa #$28 + bne L57AB + lda <u0092 + stb <u0092 + beq L57AB + inc <u0094 + ldu <u0046 + ldy <u0090 + pshu y,a + stu <u0046 + stx <u0090 + lda ,x+ +L5791 leay >L5723,pcr + clrb +L5796 pshs a + eora ,y + anda #$DF + puls a + beq L57B2 + leay $03,y + incb + tst ,y + bne L5796 +L57A7 ldb #$3F + bra L57AD +L57AB ldb #$3E +L57AD stb <u0036 + coma + puls pc,y,x +L57B2 stb <u0085 + ldd $01,y + leay d,y + bsr L57C2 + bcc L57BE + ldb #$01 +L57BE stb <u0086 + jmp ,y +L57C2 bsr L57DC + bcs L57EB + tfr a,b + bsr L57DC + bcs L57E8 + bsr L57EE + bsr L57DC + bcs L57E8 + bsr L57EE + tsta + beq L57D8 + clrb +L57D8 lda ,x+ + bra L57E8 +L57DC lda ,x+ +L57DE cmpa #$30 + bcs L57EB + cmpa #$39 + bhi L57EB + suba #$30 +L57E8 andcc #$FE + rts +L57EB orcc #$01 + rts +L57EE pshs a + lda #$0A + mul + addb ,s+ + adca #$00 + rts + cmpa #$2E + bne L57A7 + bsr L57C2 + bcs L57A7 + stb <u0089 + lbsr L56CB + bcs L57A7 + puls y,x + inc <u00DC + ldb <u0085 + lbeq L58B3 + decb + beq L5826 + decb + lbeq L5969 + decb + lbeq L5A10 + decb + lbeq L591E + lbra L5904 +L5826 jsr <u0016 + cmpa #$04 + bcs L583C + ldu $01,y + clrb +L582F lda ,u+ + cmpa #$FF + beq L5838 + incb + bne L582F +L5838 ldu $01,y + bra L585D +L583C leau $01,y + lda ,y + cmpa #$02 + bne L5848 + ldb #$05 + bra L585D +L5848 cmpa #$01 + bne L5852 + ldb #$02 + cmpb <u0086 + bcs L5856 +L5852 ldb #$01 + leau u0001,u +L5856 tfr b,a + lsla + cmpa <u0086 + bhi L5893 +L585D tst <u0087 + beq L5889 + bmi L5870 + pshs b + lslb + pshs b + ldb <u0086 + subb ,s+ + bcs L5887 + bra L587C +L5870 pshs b + lslb + pshs b + ldb <u0086 + subb ,s+ + bcs L5887 + asrb +L587C pshs b + lda <u0086 + suba ,s+ + sta <u0086 + lbsr L564F +L5887 puls b +L5889 lda ,u + lsra + lsra + lsra + lsra + bsr L58A3 + beq L58A1 +L5893 lda ,u+ + bsr L58A3 + beq L58A1 + decb + bne L5889 + ldb <u0086 + lbsr L564F +L58A1 clra + rts +L58A3 anda #$0F + cmpa #$09 + bls L58AB + adda #$07 +L58AB lbsr L55FD + dec <u0086 + rts +L58B1 coma + rts +L58B3 jsr <u0016 + cmpa #$02 + bcs L58BE + bne L58B1 + lbsr L5098 +L58BE pshs u,x + leas -$05,s + leax ,s + lbsr L53AA + ldb <u0086 + decb + subb <u0076 + bpl L58D5 + leas $05,s + puls u,x + lbra L5A07 +L58D5 tst <u0087 + beq L58E3 + bmi L58F4 + lbsr L564F + lbsr L563F + bra L58FA +L58E3 lbsr L563F + pshs b + lda <u0076 + lbsr L5601 + puls b + lbsr L564F + bra L58FF +L58F4 lbsr L563F + lbsr L5634 +L58FA lda <u0076 + lbsr L5601 +L58FF leas $05,s + clra + puls pc,u,x +L5904 jsr <u0016 + cmpa #$03 + bne L58B1 + pshs u,x + leax >L5143,pcr + ldb #$04 + lda $02,y + bne L5932 + leax >L5148,pcr + ldb #$05 + bra L5932 +L591E jsr <u0016 + cmpa #$04 + bne L58B1 + pshs u,x + ldx $01,y + ldd <u0048 + subd $01,y + subd #$0001 + tsta + bne L5936 +L5932 cmpb <u0086 + bls L5938 +L5936 ldb <u0086 +L5938 tfr b,a + negb + addb <u0086 + tst <u0087 + beq L594F + bmi L5953 + pshs a + lbsr L564F + puls a + lbsr L5601 + bra L5966 +L594F pshs b + bra L595E +L5953 lsrb + bcc L5957 + incb +L5957 pshs b,a + lbsr L564F + puls a +L595E lbsr L5601 + puls b + lbsr L564F +L5966 clra + puls pc,u,x +L5969 jsr <u0016 + cmpa #$02 + beq L5976 + lbcc L58B1 + lbsr L509B +L5976 pshs u,x + leas -$0A,s + leax ,s + lbsr L53F3 + lda <u0079 + cmpa #$09 + bgt L5996 + lbsr L5A6A + lda <u0086 + suba #$02 + bmi L5996 + suba <u0089 + bmi L5996 + suba <u008A + bpl L599C +L5996 leas $0A,s + puls u,x + bra L5A07 +L599C sta <u0088 + leax ,s + ldb <u0087 + beq L59AC + bmi L59B2 + bsr L59E9 + bsr L59BE + bra L59B9 +L59AC bsr L59BE + bsr L59E9 + bra L59B9 +L59B2 bsr L59E9 + bsr L59C1 + lbsr L563F +L59B9 leas $0A,s + clra + puls pc,u,x +L59BE lbsr L563F +L59C1 lda <u008A + lbsr L5601 + lbsr L5612 + ldb <u0079 + bpl L59F9 + negb + cmpb <u0089 + bls L59D4 + ldb <u0089 +L59D4 pshs b + lbsr L5634 + ldb <u0089 + subb ,s+ + stb <u0089 + lda <u008B + cmpa <u0089 + bls L59E7 + lda <u0089 +L59E7 bra L59FB +L59E9 ldb <u0088 + lbra L564F +L59EE lbsr L563F + lda <u008A + lbsr L5601 + lbsr L5612 +L59F9 lda <u008B +L59FB lbsr L5601 + ldb <u0089 + subb <u008B + ble L5A0F + lbra L5634 +L5A07 ldb <u0086 + lda #$2A + lbsr L5636 + clra +L5A0F rts +L5A10 jsr <u0016 + cmpa #$02 + beq L5A1D + lbcc L58B1 + lbsr L509B +L5A1D pshs u,x + leas -$0A,s + leax ,s + lbsr L53F3 + lda <u0079 + pshs a + lda #$01 + sta <u0079 + bsr L5A6A + puls a + ldb <u0079 + cmpb #$01 + beq L5A39 + inca +L5A39 ldb #$01 + stb <u008A + sta <u0079 + lda <u0086 + suba #$06 + bmi L5A4D + suba <u0089 + bmi L5A4D + suba <u008A + bpl L5A53 +L5A4D leas $0A,s + puls u,x + bra L5A07 +L5A53 sta <u0088 + ldb <u0087 + beq L5A62 + bsr L59E9 + bsr L59EE + lbsr L55DA + bra L5A67 +L5A62 bsr L59EE + lbsr L55DA +L5A67 lbra L59B9 +L5A6A pshs x + lda <u0079 + adda <u0089 + bne L5A78 + lda ,x + cmpa #$35 + bcc L5A8F +L5A78 deca + bmi L5AAB + cmpa #$07 + bhi L5AAB + leax a,x + ldb $01,x + cmpb #$35 + bcs L5AAB +L5A87 inc ,x + ldb ,x + cmpb #$39 + bls L5AAB +L5A8F ldb #$30 + stb ,x + leax -$01,x + cmpx ,s + bcc L5A87 + ldx ,s + leax $08,x +L5A9D lda ,-x + sta $01,x + cmpx ,s + bhi L5A9D + lda #$31 + sta ,x + inc <u0079 +L5AAB puls x + lda <u0079 + bpl L5AB2 + clra +L5AB2 sta <u008A + nega + adda #$09 + bpl L5ABA + clra +L5ABA cmpa <u0089 + bls L5AC0 + lda <u0089 +L5AC0 sta <u008B + rts + ldb #$30 + stb <u0036 + coma + rts + + emod +eom equ * + end