Mercurial > hg > Members > kono > nitros9-code
view level1/cmds/basic09.asm @ 286:326238550911
Additional command help
| author | boisy |
|---|---|
| date | Sun, 21 Jul 2002 22:12:06 +0000 |
| parents | a2023f60ac37 |
| children |
line wrap: on
line source
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