# HG changeset patch # User boisy # Date 1026787872 0 # Node ID a2023f60ac37b357bfe39f294baa264f5b400f4b # Parent a7d1dd92b04f117d4f7444751bcbe2f3ae2a0565 Still needs work, but its a start diff -r a7d1dd92b04f -r a2023f60ac37 level1/cmds/basic09.asm --- /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 L0000,pcr + pshs x + ldx 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 -$00FE,s + jmp [<-u0002,u] +L088F lds L0024,pcr + bsr L08D0 + leax >L001B,pcr + bsr L08D0 +L08B2 bsr L086D + leax >L073F,pcr + bsr L08D0 + leax >L07A8,pcr + leay >L0668,pcr + clr L0745,pcr +L08D0 lbra L125F +L08D3 pshs y,x + clr L0760,pcr + lbsr L125F + ldy 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 $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 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 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 L0756,pcr +L0B43 lda ,x+ + eora ,y+ + anda #$DF + bne L0B50 + tst -$01,x + bpl L0B43 + clra +L0B50 rts + lbsr L0C83 + ldu L0781,pcr + ldy #$000A + lda $0102,s + ldd L0E5F,pcr + lbsr L0899 + ldx L0791,pcr + lbsr L135A + lbsr L124D +L104E leax >L07A4,pcr + leay >L06C1,pcr + lbsr L08D3 + bcc L104E + lda L02EB,pcr + lbsr L126B +L1183 lbsr L0DBB + lbsr L1AC6 + lbsr L128B + bsr L11D5 + dec 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 L07A2,pcr + bra L125F +L1249 coma + rts +L124B bsr L1223 +L124D leax >L0756,pcr + lbsr L135A + ldx 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 L0203,pcr + bra L13CD + leax >L01FD,pcr +L13CD bsr L1358 +L13CF ldd ,y++ +L13D1 pshs y + ldy 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 L1434,pcr + bra L1440 + leax >L0284,pcr +L1440 lbsr L135A + ldb ,y+ +L1445 decb + beq L1433 + lda ,y+ + bsr L13F3 +L144C bra L1445 + com L07A6,pcr + leay >L0718,pcr + lbsr L08D3 + bcc L15AA + tst L15AA,pcr + pshs x + ldx L07AA,pcr + lbsr L135A + ldy 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 L1BD5,pcr + ldb d,x + lsrb + lsrb + lsrb + lsrb + lbsr L1B75 +L1AC6 cmpy 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 $3456 + leau >L1B93,pcr + bra L1B8B +L1B9F fcb $3E > +L1BA0 swi + fcb $FF + pshs u,x,b,a + leau $F5F6 + stb >$F8F9 + stu >$3456 + leau $0022 + sbca $0000 + neg $0000 + neg $0000 + neg $0000 + neg $C000 + suba >$C000 + suba >$C0D0 + neg $C000 + suba >$C000 + suba >$00B0 + neg $7508 + comb + lsl $CBE4 + dec $CBE4 + dec $CBE1 + dec $CBE1 + dec $CB52 + lsl $CBF1 + eim #$2A,$CBD6 + dec $05DE + addb #$4C + inc $CB37 + oim #$A1,$0122 + oim #$12,$02C9 + com $0227 +L1DA4 com $0307 + com L1D60,pcr + ldd d,x + jmp d,x +L1E62 cmpa #$02 + lbne L2126 +L1E68 pshs x + ldx $03F8 + lsr L1CD3,pcr + lda #$80 + lbsr L252A + beq L233A + ldb ,x + leau L2581,pcr + ldb ,y+ + bpl L269F + ldd #$03D1 + bra L26A9 +L269F lslb + clra + ldd d,x + cmpd #$03D1 + bcs L26BF +L26A9 tst L307E,pcr + ldb a,x + clra + addd L2601,pcr + leax b,x + ldb ,x + lbeq L308D + andb #$1F + beq L2D4A + leau $E686 + clra + puls pc,x +L308D ldy + swi + fcb $FF + ldd #$0016 + std $7B9D + fcb $1B + ror $018D + oim #$94,$07B8 +L327D lsl $084B + rol $A688 + lbsr LB7E3 + beq L32E8 + ldb #$33 + bra L3304 +L32E8 tfr s,d + subd #$0100 + cmpd $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 L32CB,pcr + lbsr L375F + lbra L3206 + lbra L3209 + lbsr L3856 + lbra L3233 + ldd ,x + leax $03,x +L35FD ldy $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 L3B5B,pcr + ldb a,x + clra + tfr d,y + bra L3945 +L3943 puls y +L3945 puls x + lda L39DA,pcr + leau ,y + pshs y + subd ,s++ + tfr d,y + clra + clrb + rts + jsr L32DD,pcr + jsr d,x + ldu L323F,pcr + stx $061B + lsl $1343 + sync + lbsr L44CD + lsl $0830 + aim #$03,$020C + lsr $0681 + ror $0812 + neg $1125 + jmp $0AF6 + dec $1208 + dec $313A + cmpa #$04 + bcc L4763 + leau >L474D,pcr + ldb a,u + clra + bra L4765 +L4763 ldd $DE5B + eorb 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 $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 L4D6F,pcr + stx $005F,x + stx 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 L4AFE,pcr + lbsr L3F93 + lbsr L40CC + bra L4A91 + pshs x + lbsr L4B0A + leax $0A,y + bsr L4A97 + lda $05,y +L4A8D eora L4D6A,pcr + leau $01,y + lbsr L4BCC + lbra L40CC + pshs x + bsr L4B0A + leax ,y + bsr L4A97 + lda $05,y + eora $8EFA + puls x,a +L4AFE ror $89DE + leay $0D,s + fcb $41 A + beq L4B1A + leau >L4AF9,pcr + lbsr L3F93 + lbsr L40CC +L4B1A clr 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 $0041,x + stx $AA22 + asr $2601] + std >$5BA9 + adda $00,x + stu >$AADD + adca >$007F + bitb >$56EF + neg $AAB7 + neg $D556 + neg $FAAB + neg $FF55 + neg $FFEB + neg $FFFD + neg $067C + eorb #$FB + leax $03,x + cmpa $F301 + sbcb -$10,s + ror >$E300 + eorb >$5186 + oim #$00,$0551 + neg $00AA + neg $8015 + neg $E003 + neg $F800 + neg $FE00 + neg $E000 + neg $F800 + neg $FE00 + neg L4DCE,pcr +L505E ldd ,x++ + std ,y++ + dec ,s + bne L505E + leax >L3CB5,pcr + stx L3D35,pcr + stx L3D41,pcr + stx L3C32,pcr + stx $05F9 + eim #$E9,$0A11 +L50D2 eim #$DA,$0562 + asr $2400 + neg $BC20 + neg $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 $65FF +L5148 rora + oim #$6C,-$0D,s + eim #$FF,-$0C,y + nega + leay -$06,y + clra + clrb + sta 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 L50DA,pcr +L53C5 clr 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 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 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 L5143,pcr + ldb #$04 + lda $02,y + bne L5932 + leax >L5148,pcr + ldb #$05 + bra L5932 +L591E jsr