Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/pascal/cmds/pascals.asm @ 477:7a5d3fcbe2d8
Added Basic09 sources from Curtis Boyle
| author | boisy |
|---|---|
| date | Tue, 08 Oct 2002 03:27:42 +0000 |
| parents | 3008afb231a2 |
| children |
line wrap: on
line source
******************************************************************** * progname - program module * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * - Original Pascal 2.0 distribution version * * $Log$ * Revision 1.1 2002/04/05 08:23:28 roug * Checked in Pascal 2.0 * * nam PascalS ttl program module * Disassembled 02/04/05 10:05:53 by Disasm v1.6 (C) 1988 by RML ifp1 use /dd/defs/os9defs endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $06 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 4 u0010 rmb 4 u0014 rmb 2 u0016 rmb 2 u0018 rmb 2 u001A rmb 6 u0020 rmb 2 u0022 rmb 5 u0027 rmb 7 u002E rmb 1 u002F rmb 1 u0030 rmb 12 u003C rmb 1 u003D rmb 1 u003E rmb 2 u0040 rmb 1 u0041 rmb 1 u0042 rmb 2 u0044 rmb 2 u0046 rmb 2 u0048 rmb 1 u0049 rmb 5 u004E rmb 2 u0050 rmb 9 u0059 rmb 1 u005A rmb 1 u005B rmb 2 u005D rmb 1 u005E rmb 1 u005F rmb 2 u0061 rmb 2 u0063 rmb 2 u0065 rmb 2 u0067 rmb 2 u0069 rmb 2 u006B rmb 1 u006C rmb 1 u006D rmb 2 u006F rmb 1 u0070 rmb 1 u0071 rmb 1 u0072 rmb 1 u0073 rmb 1 u0074 rmb 1 u0075 rmb 1 u0076 rmb 2 u0078 rmb 1 u0079 rmb 1 u007A rmb 1 u007B rmb 81 u00CC rmb 5 u00D1 rmb 12 u00DD rmb 21 u00F2 rmb 2 u00F4 rmb 1 u00F5 rmb 1 u00F6 rmb 1 u00F7 rmb 3 u00FA rmb 3 u00FD rmb 1 u00FE rmb 1 u00FF rmb 4353 size equ . fcb $31 1 fcb $64 d fcb $31 1 fcb $28 ( fcb $43 C fcb $29 ) fcb $20 fcb $31 1 fcb $39 9 fcb $38 8 fcb $31 1 fcb $20 fcb $42 B fcb $59 Y fcb $20 fcb $4D M fcb $49 I fcb $43 C fcb $52 R fcb $4F O fcb $57 W fcb $41 A fcb $52 R fcb $45 E fcb $20 fcb $53 S fcb $59 Y fcb $53 S fcb $54 T fcb $45 E fcb $4D M fcb $53 S fcb $20 fcb $43 C fcb $4F O fcb $52 R fcb $50 P fcb $2E . fcb $20 fcb $20 fcb $41 A fcb $4C L fcb $4C L fcb $20 fcb $52 R fcb $49 I fcb $47 G fcb $48 H fcb $54 T fcb $53 S fcb $20 fcb $52 R fcb $45 E fcb $53 S fcb $45 E fcb $52 R fcb $56 V fcb $45 E fcb $44 D fcb $2E . name equ * fcs /PascalS/ fcb $06 fcb $EC l fcb $A1 ! fcb $DD ] fcb $CE N fcb $16 fcb $0D fcb $96 fcb $35 5 fcb $06 fcb $A4 $ fcb $E4 d fcb $E4 d fcb $61 a fcb $ED m fcb $E4 d fcb $16 fcb $0D fcb $8B fcb $35 5 fcb $06 fcb $AA * fcb $E4 d fcb $EA j fcb $61 a fcb $ED m fcb $E4 d fcb $16 fcb $0D fcb $80 fcb $35 5 fcb $06 fcb $A8 ( fcb $E4 d fcb $E8 h fcb $61 a fcb $ED m fcb $E4 d fcb $16 fcb $0D fcb $75 u fcb $9E fcb $04 fcb $AD - fcb $88 fcb $27 ' fcb $16 fcb $0D fcb $6D m fcb $9E fcb $04 fcb $AD - fcb $88 fcb $2A * fcb $16 fcb $0D fcb $65 e fcb $9E fcb $04 fcb $AD - fcb $88 fcb $2D - fcb $16 fcb $0D fcb $5D ] fcb $9E fcb $04 fcb $AD - fcb $88 fcb $30 0 fcb $16 fcb $0D fcb $55 U fcb $9E fcb $04 fcb $AD - fcb $88 fcb $33 3 fcb $16 fcb $0D fcb $4D M fcb $9E fcb $04 fcb $AD - fcb $88 fcb $36 6 fcb $16 fcb $0D fcb $45 E fcb $C6 F fcb $05 fcb $A6 & fcb $64 d fcb $34 4 fcb $02 fcb $5A Z fcb $26 & fcb $F9 y fcb $9E fcb $04 fcb $AD - fcb $88 fcb $A0 fcb $16 fcb $0D fcb $34 4 fcb $A6 & fcb $64 d fcb $88 fcb $01 fcb $A7 ' fcb $64 d fcb $16 fcb $0D fcb $2B + fcb $9E fcb $04 fcb $AD - fcb $88 fcb $18 fcb $16 fcb $0D fcb $23 # fcb $9E fcb $04 fcb $AD - fcb $88 fcb $9A fcb $16 fcb $0D fcb $1B fcb $9E fcb $04 fcb $AD - fcb $88 fcb $1B fcb $16 fcb $0D fcb $13 fcb $A6 & fcb $64 d fcb $84 fcb $FE fcb $A7 ' fcb $64 d fcb $16 fcb $0D fcb $0A fcb $9E fcb $04 fcb $AD - fcb $88 fcb $9D fcb $16 fcb $0D fcb $02 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $A3 # fcb $16 fcb $0C fcb $FA z fcb $9E fcb $04 fcb $AD - fcb $88 fcb $12 fcb $16 fcb $0C fcb $F2 r fcb $31 1 fcb $21 ! fcb $16 fcb $0C fcb $ED m fcb $C6 F fcb $20 fcb $A6 & fcb $E0 ` fcb $AA * fcb $E8 h fcb $1F fcb $A7 ' fcb $E8 h fcb $1F fcb $5A Z fcb $26 & fcb $F5 u fcb $16 fcb $0C fcb $DD ] fcb $C6 F fcb $20 fcb $A6 & fcb $E0 ` fcb $43 C fcb $A4 $ fcb $E8 h fcb $1F fcb $A7 ' fcb $E8 h fcb $1F fcb $5A Z fcb $26 & fcb $F4 t fcb $16 fcb $0C fcb $CC L fcb $C6 F fcb $20 fcb $A6 & fcb $E0 ` fcb $A4 $ fcb $E8 h fcb $1F fcb $A7 ' fcb $E8 h fcb $1F fcb $5A Z fcb $26 & fcb $F5 u fcb $16 fcb $0C fcb $BC < fcb $35 5 fcb $04 fcb $EA j fcb $E4 d fcb $E7 g fcb $E4 d fcb $16 fcb $0C fcb $B3 3 fcb $9E fcb $04 fcb $AD - fcb $0F fcb $16 fcb $0C fcb $AC , fcb $EC l fcb $E4 d fcb $34 4 fcb $06 fcb $9E fcb $04 fcb $AD - fcb $11 fcb $16 fcb $0C fcb $A1 ! fcb $A6 & fcb $E4 d fcb $2A * fcb $08 fcb $4F O fcb $5F _ fcb $A3 # fcb $E4 d fcb $29 ) fcb $05 fcb $ED m fcb $E4 d fcb $16 fcb $0C fcb $92 fcb $ED m fcb $E4 d fcb $C6 F fcb $C7 G fcb $D7 W fcb $D0 P fcb $96 fcb $3A : fcb $10 fcb $27 ' fcb $0C fcb $86 fcb $16 fcb $11 fcb $89 fcb $EC l fcb $62 b fcb $A3 # fcb $E1 a fcb $29 ) fcb $EB k fcb $ED m fcb $E4 d fcb $16 fcb $0C fcb $78 x fcb $35 5 fcb $06 fcb $E3 c fcb $E4 d fcb $29 ) fcb $E0 ` fcb $ED m fcb $E4 d fcb $16 fcb $0C fcb $6D m fcb $9E fcb $04 fcb $AD - fcb $14 fcb $16 fcb $0C fcb $66 f fcb $9E fcb $16 fcb $D6 V fcb $20 fcb $86 fcb $0E fcb $3D = fcb $30 0 fcb $8B fcb $EC l fcb $A1 ! fcb $D7 W fcb $5C \ fcb $97 fcb $5D ] fcb $E6 f fcb $07 fcb $D7 W fcb $5B [ fcb $2B + fcb $1A fcb $9E fcb $61 a fcb $A1 ! fcb $85 fcb $27 ' fcb $17 fcb $25 % fcb $12 fcb $9E fcb $63 c fcb $E6 f fcb $85 fcb $2B + fcb $0C fcb $D7 W fcb $5B [ fcb $9E fcb $61 a fcb $A6 & fcb $85 fcb $91 fcb $5D ] fcb $27 ' fcb $05 fcb $25 % fcb $EE n fcb $17 fcb $0E fcb $F8 x fcb $96 fcb $6C l fcb $26 & fcb $0F fcb $D6 V fcb $59 Y fcb $34 4 fcb $04 fcb $96 fcb $5B [ fcb $97 fcb $59 Y fcb $17 fcb $0E fcb $BF ? fcb $35 5 fcb $04 fcb $D7 W fcb $59 Y fcb $DC \ fcb $5B [ fcb $9B fcb $69 i fcb $34 4 fcb $06 fcb $16 fcb $0C fcb $18 fcb $EC l fcb $A1 ! fcb $30 0 fcb $CB K fcb $35 5 fcb $04 fcb $E7 g fcb $84 fcb $16 fcb $0C fcb $0D fcb $EC l fcb $A1 ! fcb $30 0 fcb $CB K fcb $35 5 fcb $06 fcb $ED m fcb $84 fcb $35 5 fcb $02 fcb $A7 ' fcb $02 fcb $35 5 fcb $06 fcb $ED m fcb $03 fcb $16 fcb $0B fcb $FA z fcb $EC l fcb $A1 ! fcb $E6 f fcb $CB K fcb $34 4 fcb $04 fcb $16 fcb $0B fcb $F1 q fcb $EC l fcb $A1 ! fcb $30 0 fcb $CB K fcb $EC l fcb $03 fcb $34 4 fcb $06 fcb $A6 & fcb $02 fcb $34 4 fcb $02 fcb $EC l fcb $84 fcb $16 fcb $0B fcb $DE ^ fcb $E6 f fcb $A0 fcb $8D fcb $43 C fcb $1F fcb $10 fcb $E3 c fcb $A1 ! fcb $16 fcb $0B fcb $D3 S fcb $E6 f fcb $A0 fcb $8D fcb $38 8 fcb $EC l fcb $A1 ! fcb $E6 f fcb $8B fcb $34 4 fcb $04 fcb $16 fcb $0B fcb $C8 H fcb $E6 f fcb $A0 fcb $8D fcb $2B + fcb $EC l fcb $A1 ! fcb $EC l fcb $8B fcb $16 fcb $0B fcb $BB ; fcb $E6 f fcb $A0 fcb $8D fcb $20 fcb $EC l fcb $A1 ! fcb $30 0 fcb $8B fcb $EC l fcb $03 fcb $34 4 fcb $06 fcb $A6 & fcb $02 fcb $34 4 fcb $02 fcb $EC l fcb $84 fcb $16 fcb $0B fcb $A6 & fcb $E6 f fcb $A0 fcb $8D fcb $0B fcb $EC l fcb $A1 ! fcb $30 0 fcb $8B fcb $35 5 fcb $04 fcb $E7 g fcb $84 fcb $16 fcb $0B fcb $99 L0255 fcb $5D ] fcb $26 & fcb $03 fcb $30 0 fcb $C4 D fcb $39 9 fcb $AE . fcb $45 E fcb $5A Z fcb $27 ' fcb $05 fcb $AE . fcb $05 fcb $5A Z fcb $26 & fcb $FB fcb $39 9 fcb $E6 f fcb $A0 fcb $8D fcb $EB k fcb $EC l fcb $A1 ! fcb $30 0 fcb $8B fcb $35 5 fcb $06 fcb $ED m fcb $84 fcb $16 fcb $0B fcb $79 y fcb $E6 f fcb $A0 fcb $8D fcb $DC \ fcb $EC l fcb $A1 ! fcb $30 0 fcb $8B fcb $35 5 fcb $06 fcb $ED m fcb $84 fcb $35 5 fcb $02 fcb $A7 ' fcb $02 fcb $35 5 fcb $06 fcb $ED m fcb $03 fcb $16 fcb $0B fcb $62 b fcb $DC \ fcb $14 fcb $20 fcb $16 fcb $35 5 fcb $06 fcb $20 fcb $12 fcb $E6 f fcb $22 " fcb $8D fcb $BD = fcb $EC l fcb $A4 $ fcb $E3 c fcb $23 # fcb $30 0 fcb $8B fcb $EC l fcb $A4 $ fcb $31 1 fcb $25 % fcb $20 fcb $0A fcb $1F fcb $30 0 fcb $E3 c fcb $A1 ! fcb $E3 c fcb $A1 ! fcb $1F fcb $01 fcb $EC l fcb $3C < fcb $10 fcb $9F fcb $0E fcb $1F fcb $02 fcb $C5 E fcb $01 fcb $27 ' fcb $08 fcb $A6 & fcb $82 fcb $34 4 fcb $02 fcb $31 1 fcb $3F ? fcb $27 ' fcb $08 fcb $EC l fcb $83 fcb $34 4 fcb $06 fcb $31 1 fcb $3E > fcb $26 & fcb $F8 x fcb $10 fcb $9E fcb $0E fcb $16 fcb $0B fcb $21 ! fcb $E6 f fcb $22 " fcb $8D fcb $84 fcb $EC l fcb $23 # fcb $30 0 fcb $8B fcb $EC l fcb $A4 $ fcb $31 1 fcb $25 % fcb $20 fcb $10 fcb $DC \ fcb $14 fcb $E3 c fcb $22 " fcb $1F fcb $01 fcb $20 fcb $04 fcb $EC l fcb $22 " fcb $30 0 fcb $CB K fcb $EC l fcb $A4 $ fcb $31 1 fcb $24 $ fcb $8D fcb $0E fcb $16 fcb $0A fcb $FE fcb $EC l fcb $A1 ! fcb $AE . fcb $EB k fcb $8D fcb $05 fcb $32 2 fcb $62 b fcb $16 fcb $0A fcb $F3 s fcb $DF _ fcb $10 fcb $10 fcb $9F fcb $0E fcb $33 3 fcb $62 b fcb $1F fcb $02 fcb $C5 E fcb $01 fcb $27 ' fcb $08 fcb $37 7 fcb $02 fcb $A7 ' fcb $80 fcb $31 1 fcb $3F ? fcb $27 ' fcb $08 fcb $37 7 fcb $06 fcb $ED m fcb $81 fcb $31 1 fcb $3E > fcb $26 & fcb $F8 x fcb $AE . fcb $E4 d fcb $32 2 fcb $C4 D fcb $10 fcb $9E fcb $0E fcb $DE ^ fcb $10 fcb $6E n fcb $84 fcb $1F fcb $30 0 fcb $E3 c fcb $A1 ! fcb $16 fcb $0A fcb $C2 B fcb $EC l fcb $A1 ! fcb $20 fcb $07 fcb $EC l fcb $A1 ! fcb $20 fcb $29 ) fcb $E6 f fcb $A0 fcb $4F O fcb $34 4 fcb $60 ` fcb $AE . fcb $64 d fcb $EE n fcb $66 f fcb $1F fcb $02 fcb $C5 E fcb $01 fcb $27 ' fcb $08 fcb $A6 & fcb $80 fcb $A7 ' fcb $C0 @ fcb $31 1 fcb $3F ? fcb $27 ' fcb $08 fcb $EC l fcb $81 fcb $ED m fcb $C1 A fcb $31 1 fcb $3E > fcb $26 & fcb $F8 x fcb $35 5 fcb $60 ` fcb $32 2 fcb $64 d fcb $16 fcb $0A fcb $96 fcb $E6 f fcb $A0 fcb $4F O fcb $DF _ fcb $10 fcb $35 5 fcb $40 @ fcb $33 3 fcb $CB K fcb $1F fcb $01 fcb $C5 E fcb $01 fcb $27 ' fcb $08 fcb $A6 & fcb $C2 B fcb $34 4 fcb $02 fcb $30 0 fcb $1F fcb $27 ' fcb $08 fcb $EC l fcb $C3 C fcb $34 4 fcb $06 fcb $30 0 fcb $1E fcb $26 & fcb $F8 x fcb $DE ^ fcb $10 fcb $16 fcb $0A fcb $72 r fcb $32 2 fcb $7F ÿ fcb $16 fcb $0A fcb $6D m fcb $32 2 fcb $7E þ fcb $16 fcb $0A fcb $68 h fcb $32 2 fcb $7B û fcb $16 fcb $0A fcb $63 c fcb $86 fcb $FF fcb $E6 f fcb $A0 fcb $50 P fcb $32 2 fcb $EB k fcb $16 fcb $0A fcb $59 Y fcb $4F O fcb $5F _ fcb $A3 # fcb $A1 ! fcb $32 2 fcb $EB k fcb $16 fcb $0A fcb $50 P fcb $6A j fcb $E4 d fcb $16 fcb $0A fcb $4B K fcb $6C l fcb $E4 d fcb $16 fcb $0A fcb $46 F fcb $EC l fcb $E4 d fcb $C3 C fcb $00 fcb $01 fcb $ED m fcb $E4 d fcb $16 fcb $0A fcb $3C < fcb $A6 & fcb $E4 d fcb $AB + fcb $A0 fcb $A7 ' fcb $E4 d fcb $16 fcb $0A fcb $33 3 fcb $A6 & fcb $E4 d fcb $A0 fcb $A0 fcb $A7 ' fcb $E4 d fcb $16 fcb $0A fcb $2A * fcb $EC l fcb $E4 d fcb $A3 # fcb $A1 ! fcb $ED m fcb $E4 d fcb $16 fcb $0A fcb $21 ! fcb $EC l fcb $A1 ! fcb $34 4 fcb $06 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $CD M fcb $35 5 fcb $06 fcb $E3 c fcb $E4 d fcb $ED m fcb $E4 d fcb $16 fcb $0A fcb $0F fcb $32 2 fcb $61 a fcb $E6 f fcb $E4 d fcb $C4 D fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $0A fcb $04 fcb $E6 f fcb $A0 fcb $D7 W fcb $0A fcb $27 ' fcb $07 fcb $A6 & fcb $A0 fcb $34 4 fcb $02 fcb $5A Z fcb $26 & fcb $F9 y fcb $C6 F fcb $20 fcb $D0 P fcb $0A fcb $27 ' fcb $05 fcb $6F o fcb $E2 b fcb $5A Z fcb $26 & fcb $FB fcb $16 fcb $09 fcb $E9 i fcb $E6 f fcb $A0 fcb $9E fcb $14 fcb $30 0 fcb $85 fcb $34 4 fcb $10 fcb $16 fcb $09 fcb $DE ^ fcb $32 2 fcb $C4 D fcb $35 5 fcb $40 @ fcb $35 5 fcb $24 $ fcb $D7 W fcb $20 fcb $32 2 fcb $62 b fcb $20 fcb $39 9 fcb $32 2 fcb $C4 D fcb $35 5 fcb $40 @ fcb $35 5 fcb $24 $ fcb $D7 W fcb $20 fcb $32 2 fcb $63 c fcb $20 fcb $2D - fcb $32 2 fcb $C4 D fcb $35 5 fcb $40 @ fcb $35 5 fcb $24 $ fcb $D7 W fcb $20 fcb $32 2 fcb $64 d fcb $20 fcb $21 ! fcb $E6 f fcb $A4 $ fcb $32 2 fcb $C4 D fcb $35 5 fcb $40 @ fcb $35 5 fcb $22 " fcb $97 fcb $20 fcb $4F O fcb $32 2 fcb $EB k fcb $32 2 fcb $62 b fcb $20 fcb $10 fcb $32 2 fcb $C4 D fcb $35 5 fcb $40 @ fcb $35 5 fcb $04 fcb $D7 W fcb $20 fcb $EC l fcb $A4 $ fcb $35 5 fcb $20 fcb $32 2 fcb $EB k fcb $32 2 fcb $62 b L0455 fcb $D6 V fcb $20 fcb $C1 A fcb $FF fcb $27 ' fcb $0B fcb $86 fcb $0E fcb $3D = fcb $9E fcb $16 fcb $30 0 fcb $8B fcb $EC l fcb $0C fcb $27 ' fcb $06 fcb $9E fcb $14 fcb $1E fcb $12 fcb $6E n fcb $84 fcb $1F fcb $20 fcb $97 fcb $5D ] fcb $97 fcb $5E ^ fcb $D7 W fcb $5A Z fcb $E6 f fcb $06 fcb $D7 W fcb $59 Y fcb $2B + fcb $0A fcb $9E fcb $61 a fcb $A1 ! fcb $85 fcb $10 fcb $27 ' fcb $0B fcb $F7 w fcb $22 " fcb $73 s fcb $16 fcb $0B fcb $F0 p fcb $EC l fcb $A1 ! fcb $31 1 fcb $AB + fcb $1F fcb $20 fcb $96 fcb $5E ^ fcb $DD ] fcb $7C ü fcb $E3 c fcb $E4 d fcb $E3 c fcb $E1 a fcb $97 fcb $5D ] fcb $D7 W fcb $5A Z fcb $91 fcb $5E ^ fcb $27 ' fcb $19 fcb $97 fcb $5E ^ fcb $D6 V fcb $59 Y fcb $9E fcb $63 c fcb $E6 f fcb $85 fcb $D7 W fcb $59 Y fcb $2B + fcb $0A fcb $9E fcb $61 a fcb $A6 & fcb $85 fcb $91 fcb $5D ] fcb $27 ' fcb $05 fcb $25 % fcb $EE n fcb $17 fcb $0B fcb $F8 x fcb $9E fcb $59 Y fcb $DC \ fcb $69 i fcb $EC l fcb $8B fcb $27 ' fcb $08 fcb $D3 S fcb $7C ü fcb $97 fcb $5D ] fcb $D7 W fcb $5A Z fcb $20 fcb $21 ! fcb $DC \ fcb $7C ü fcb $34 4 fcb $06 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $BE > fcb $AE . fcb $A1 ! fcb $20 fcb $08 fcb $AE . fcb $A1 ! fcb $64 d fcb $E0 ` fcb $10 fcb $25 % fcb $09 fcb $13 fcb $1F fcb $20 fcb $96 fcb $5E ^ fcb $30 0 fcb $8B fcb $1F fcb $10 fcb $97 fcb $5D ] fcb $D7 W fcb $5A Z fcb $96 fcb $5D ] fcb $97 fcb $5E ^ fcb $D6 V fcb $59 Y fcb $9E fcb $61 a fcb $A1 ! fcb $85 fcb $10 fcb $27 ' fcb $0B fcb $8A fcb $25 % fcb $14 fcb $9E fcb $63 c fcb $E6 f fcb $85 fcb $D7 W fcb $59 Y fcb $2B + fcb $1E fcb $9E fcb $61 a fcb $A6 & fcb $85 fcb $91 fcb $5D ] fcb $27 ' fcb $19 fcb $25 % fcb $EE n fcb $20 fcb $12 fcb $9E fcb $65 e fcb $E6 f fcb $85 fcb $D7 W fcb $59 Y fcb $2B + fcb $0A fcb $9E fcb $61 a fcb $A6 & fcb $85 fcb $91 fcb $5D ] fcb $27 ' fcb $05 fcb $22 " fcb $EE n fcb $16 fcb $0B fcb $57 W fcb $16 fcb $0B fcb $56 V fcb $35 5 fcb $04 fcb $E7 g fcb $F1 q fcb $16 fcb $08 fcb $C4 D fcb $AE . fcb $65 e fcb $35 5 fcb $06 fcb $ED m fcb $84 fcb $35 5 fcb $02 fcb $A7 ' fcb $02 fcb $35 5 fcb $06 fcb $ED m fcb $03 fcb $32 2 fcb $62 b fcb $16 fcb $08 fcb $B1 1 fcb $6F o fcb $E2 b fcb $16 fcb $08 fcb $AC , fcb $EC l fcb $A1 ! fcb $9E fcb $14 fcb $E6 f fcb $8B fcb $34 4 fcb $04 fcb $16 fcb $08 fcb $A1 ! fcb $EC l fcb $A1 ! fcb $9E fcb $14 fcb $30 0 fcb $8B fcb $EC l fcb $03 fcb $34 4 fcb $06 fcb $A6 & fcb $02 fcb $34 4 fcb $02 fcb $EC l fcb $84 fcb $16 fcb $08 fcb $8C fcb $EC l fcb $A1 ! fcb $9E fcb $14 fcb $30 0 fcb $8B fcb $35 5 fcb $04 fcb $E7 g fcb $84 fcb $16 fcb $08 fcb $81 fcb $EC l fcb $A1 ! fcb $9E fcb $14 fcb $30 0 fcb $8B fcb $35 5 fcb $06 fcb $ED m fcb $84 fcb $35 5 fcb $02 fcb $A7 ' fcb $02 fcb $35 5 fcb $06 fcb $ED m fcb $03 fcb $16 fcb $08 fcb $6C l fcb $35 5 fcb $10 fcb $EC l fcb $A1 ! fcb $A6 & fcb $8B fcb $34 4 fcb $02 fcb $16 fcb $08 fcb $61 a fcb $35 5 fcb $10 fcb $EC l fcb $A1 ! fcb $30 0 fcb $8B fcb $EC l fcb $03 fcb $34 4 fcb $06 fcb $A6 & fcb $02 fcb $34 4 fcb $02 fcb $EC l fcb $84 fcb $16 fcb $08 fcb $4C L fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $26 & fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $08 fcb $41 A fcb $6F o fcb $E4 d fcb $16 fcb $08 fcb $3C < fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $26 & fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $08 fcb $2F / fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $27 ' fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $08 fcb $22 " fcb $6F o fcb $E4 d fcb $16 fcb $08 fcb $1D fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $27 ' fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $08 fcb $10 fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $25 % fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $08 fcb $03 fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $FE fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $2D - fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $F1 q fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $24 $ fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $E4 d fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $DF _ fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $2C , fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $D2 R fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $22 " fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $C5 E fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $C0 @ fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $2E . fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $B3 3 fcb $35 5 fcb $02 fcb $A0 fcb $E4 d fcb $23 # fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $A6 & fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $A1 ! fcb $35 5 fcb $06 fcb $A3 # fcb $E0 ` fcb $2F / fcb $F5 u fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $94 fcb $C6 F fcb $10 fcb $D7 W fcb $0A fcb $30 0 fcb $E8 h fcb $20 fcb $EC l fcb $83 fcb $A4 $ fcb $E8 h fcb $20 fcb $E4 d fcb $E8 h fcb $21 ! fcb $A3 # fcb $84 fcb $26 & fcb $2E . fcb $0A fcb $0A fcb $26 & fcb $F0 p fcb $20 fcb $1E fcb $C6 F fcb $10 fcb $D7 W fcb $0A fcb $30 0 fcb $E8 h fcb $20 fcb $EC l fcb $83 fcb $A4 $ fcb $E8 h fcb $20 fcb $E4 d fcb $E8 h fcb $21 ! fcb $A3 # fcb $E8 h fcb $20 fcb $26 & fcb $14 fcb $0A fcb $0A fcb $26 & fcb $EF o fcb $20 fcb $04 fcb $8D fcb $1A fcb $26 & fcb $0A fcb $32 2 fcb $E8 h fcb $3F ? fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $53 S fcb $32 2 fcb $E8 h fcb $3F ? fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $4B K fcb $8D fcb $04 fcb $26 & fcb $EA j fcb $20 fcb $F2 r fcb $C6 F fcb $10 fcb $D7 W fcb $0A fcb $30 0 fcb $E8 h fcb $22 " fcb $EC l fcb $83 fcb $A3 # fcb $88 fcb $20 fcb $26 & fcb $04 fcb $0A fcb $0A fcb $26 & fcb $F5 u fcb $39 9 fcb $8D fcb $30 0 fcb $26 & fcb $09 fcb $C6 F fcb $01 fcb $32 2 fcb $63 c fcb $E7 g fcb $E4 d fcb $16 fcb $07 fcb $25 % fcb $32 2 fcb $63 c fcb $6F o fcb $E4 d fcb $16 fcb $07 fcb $1E fcb $8D fcb $1C fcb $26 & fcb $EC l fcb $20 fcb $F3 s fcb $8D fcb $16 fcb $23 # fcb $E6 f fcb $20 fcb $ED m fcb $8D fcb $10 fcb $22 " fcb $E0 ` fcb $20 fcb $E7 g fcb $8D fcb $0A fcb $24 $ fcb $DA Z fcb $20 fcb $E1 a fcb $8D fcb $04 fcb $25 % fcb $D4 T fcb $20 fcb $DB [ fcb $EC l fcb $A1 ! fcb $34 4 fcb $60 ` fcb $AE . fcb $68 h fcb $EE n fcb $66 f fcb $1F fcb $02 fcb $C5 E fcb $01 fcb $27 ' fcb $0A fcb $A6 & fcb $80 fcb $A0 fcb $C0 @ fcb $26 & fcb $0E fcb $31 1 fcb $3F ? fcb $27 ' fcb $0A fcb $EC l fcb $81 fcb $A3 # fcb $C1 A fcb $26 & fcb $04 fcb $31 1 fcb $3E > fcb $26 & fcb $F6 v fcb $35 5 fcb $E0 ` fcb $16 fcb $0B fcb $D7 W fcb $E6 f fcb $A0 fcb $C1 A fcb $3B ; fcb $22 " fcb $F7 w fcb $58 X fcb $30 0 fcb $8C fcb $04 fcb $EC l fcb $85 fcb $6E n fcb $8B fcb $01 fcb $8D fcb $01 fcb $98 fcb $01 fcb $A4 $ fcb $01 fcb $B8 8 fcb $01 fcb $C0 @ fcb $01 fcb $C8 H fcb $02 fcb $39 9 fcb $01 fcb $CF O fcb $01 fcb $D6 V fcb $01 fcb $DE ^ fcb $01 fcb $28 ( fcb $01 fcb $E5 e fcb $01 fcb $EC l fcb $01 fcb $F3 s fcb $01 fcb $20 fcb $01 fcb $FA z fcb $02 fcb $02 fcb $02 fcb $0A fcb $02 fcb $34 4 fcb $02 fcb $11 fcb $02 fcb $19 fcb $02 fcb $20 fcb $02 fcb $28 ( fcb $02 fcb $2C , fcb $02 fcb $30 0 fcb $01 fcb $75 u fcb $01 fcb $7D ý fcb $02 fcb $40 @ fcb $00 fcb $AA * fcb $00 fcb $A2 " fcb $00 fcb $9B fcb $01 fcb $30 0 fcb $00 fcb $94 fcb $00 fcb $8D fcb $01 fcb $40 @ fcb $01 fcb $85 fcb $01 fcb $48 H fcb $01 fcb $6D m fcb $00 fcb $E0 ` fcb $00 fcb $E8 h fcb $01 fcb $38 8 fcb $01 fcb $65 e fcb $01 fcb $50 P fcb $01 fcb $5E ^ fcb $01 fcb $57 W fcb $01 fcb $00 fcb $00 fcb $F0 p fcb $01 fcb $08 fcb $00 fcb $D8 X fcb $01 fcb $10 fcb $00 fcb $F8 x fcb $01 fcb $18 fcb $00 fcb $D0 P fcb $00 fcb $C1 A fcb $00 fcb $BA : fcb $00 fcb $C8 H fcb $00 fcb $B1 1 fcb $00 fcb $78 x fcb $00 fcb $7F ÿ fcb $00 fcb $86 fcb $EC l fcb $A1 ! fcb $32 2 fcb $EB k fcb $16 fcb $06 fcb $4C L fcb $9E fcb $04 fcb $AD - fcb $88 fcb $94 fcb $20 fcb $21 ! fcb $9E fcb $04 fcb $AD - fcb $88 fcb $6C l fcb $20 fcb $1A fcb $9E fcb $04 fcb $AD - fcb $88 fcb $5D ] fcb $20 fcb $13 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $60 ` fcb $20 fcb $0C fcb $9E fcb $04 fcb $AD - fcb $88 fcb $63 c fcb $20 fcb $05 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $66 f fcb $16 fcb $06 fcb $21 ! fcb $9E fcb $04 fcb $AD - fcb $88 fcb $69 i fcb $20 fcb $F6 v fcb $D6 V fcb $D0 P fcb $4F O fcb $97 fcb $D0 P fcb $ED m fcb $E4 d fcb $20 fcb $ED m fcb $9E fcb $04 fcb $AD - fcb $88 fcb $48 H fcb $20 fcb $E6 f fcb $9E fcb $04 fcb $AD - fcb $88 fcb $4B K fcb $20 fcb $DF _ fcb $9E fcb $04 fcb $AD - fcb $88 fcb $4E N fcb $16 fcb $05 fcb $FB fcb $9E fcb $04 fcb $AD - fcb $88 fcb $57 W fcb $16 fcb $05 fcb $F3 s fcb $9E fcb $04 fcb $AD - fcb $88 fcb $5A Z fcb $16 fcb $05 fcb $EB k fcb $9E fcb $04 fcb $AD - fcb $88 fcb $51 Q fcb $16 fcb $05 fcb $E3 c fcb $9E fcb $04 fcb $AD - fcb $88 fcb $54 T fcb $16 fcb $05 fcb $DB [ fcb $9E fcb $04 fcb $AD - fcb $88 fcb $45 E fcb $16 fcb $05 fcb $D3 S fcb $9E fcb $04 fcb $AD - fcb $88 fcb $42 B fcb $16 fcb $05 fcb $CB K fcb $9E fcb $04 fcb $AD - fcb $88 fcb $39 9 fcb $16 fcb $05 fcb $C3 C fcb $9E fcb $04 fcb $AD - fcb $88 fcb $3C < fcb $16 fcb $05 fcb $BB ; fcb $9E fcb $04 fcb $AD - fcb $88 fcb $3F ? fcb $16 fcb $05 fcb $B3 3 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $21 ! fcb $16 fcb $05 fcb $AB + fcb $9E fcb $04 fcb $AD - fcb $88 fcb $24 $ fcb $16 fcb $05 fcb $A3 # fcb $9E fcb $04 fcb $AD - fcb $88 fcb $1E fcb $16 fcb $05 fcb $9B fcb $9E fcb $04 fcb $AD - fcb $88 fcb $A6 & fcb $16 fcb $05 fcb $93 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $EB k fcb $16 fcb $05 fcb $8B fcb $9E fcb $04 fcb $AD - fcb $88 fcb $EE n fcb $16 fcb $05 fcb $83 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $97 fcb $16 fcb $05 fcb $7B û fcb $35 5 fcb $04 fcb $D7 W fcb $37 7 fcb $16 fcb $05 fcb $74 t fcb $35 5 fcb $04 fcb $D7 W fcb $3A : fcb $16 fcb $05 fcb $6D m fcb $35 5 fcb $04 fcb $D7 W fcb $38 8 fcb $16 fcb $05 fcb $66 f fcb $9E fcb $04 fcb $AD - fcb $88 fcb $E5 e fcb $16 fcb $05 fcb $5E ^ fcb $9E fcb $04 fcb $AD - fcb $88 fcb $E8 h fcb $16 fcb $05 fcb $56 V fcb $9E fcb $04 fcb $AD - fcb $88 fcb $D0 P fcb $16 fcb $05 fcb $4E N fcb $9E fcb $04 fcb $AD - fcb $88 fcb $DC \ fcb $16 fcb $05 fcb $46 F fcb $9E fcb $04 fcb $AD - fcb $88 fcb $DF _ fcb $16 fcb $05 fcb $3E > fcb $AE . fcb $E0 ` fcb $E6 f fcb $0B fcb $C4 D fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $05 fcb $33 3 fcb $AE . fcb $E0 ` fcb $E6 f fcb $0B fcb $C4 D fcb $02 fcb $54 T fcb $E7 g fcb $E4 d fcb $16 fcb $05 fcb $27 ' fcb $AE . fcb $E0 ` fcb $E6 f fcb $0B fcb $C4 D fcb $0C fcb $27 ' fcb $07 fcb $C6 F fcb $01 fcb $E7 g fcb $E4 d fcb $16 fcb $05 fcb $18 fcb $6F o fcb $E4 d fcb $16 fcb $05 fcb $13 fcb $9E fcb $04 fcb $AD - fcb $88 fcb $AC , fcb $16 fcb $05 fcb $0B fcb $9E fcb $04 fcb $AD - fcb $88 fcb $A9 ) fcb $16 fcb $05 fcb $03 fcb $9E fcb $04 fcb $AD - fcb $1A fcb $16 fcb $04 fcb $FC fcb $9E fcb $04 fcb $AD - fcb $06 fcb $16 fcb $04 fcb $F5 u fcb $9E fcb $04 fcb $AD - fcb $88 fcb $AF / fcb $16 fcb $04 fcb $ED m fcb $9E fcb $04 fcb $AD - fcb $03 fcb $16 fcb $04 fcb $E6 f fcb $9E fcb $04 fcb $AD - fcb $0C fcb $16 fcb $04 fcb $DF _ fcb $9E fcb $04 fcb $AD - fcb $09 fcb $16 fcb $04 fcb $D8 X fcb $9E fcb $04 fcb $AD - fcb $84 fcb $16 fcb $04 fcb $D1 Q fcb $9E fcb $04 fcb $AD - fcb $88 fcb $B2 2 fcb $16 fcb $04 fcb $C9 I fcb $9E fcb $04 fcb $AD - fcb $88 fcb $D9 Y fcb $16 fcb $04 fcb $C1 A fcb $9E fcb $04 fcb $AD - fcb $1D fcb $16 fcb $04 fcb $BA : fcb $9E fcb $04 fcb $AD - fcb $88 fcb $B5 5 fcb $16 fcb $04 fcb $B2 2 fcb $DC \ fcb $12 fcb $ED m fcb $F1 q fcb $16 fcb $04 fcb $AB + fcb $9E fcb $04 fcb $AD - fcb $88 fcb $D3 S fcb $16 fcb $04 fcb $A3 # fcb $C6 F fcb $31 1 fcb $20 fcb $09 fcb $C6 F fcb $2B + fcb $20 fcb $05 fcb $C6 F fcb $D0 P fcb $20 fcb $01 fcb $5F _ fcb $AE . fcb $E4 d fcb $E7 g fcb $0D fcb $9E fcb $04 fcb $AD - fcb $17 fcb $16 fcb $04 fcb $8B fcb $9E fcb $04 fcb $AD - fcb $88 fcb $C1 A fcb $16 fcb $04 fcb $83 fcb $AE . fcb $E4 d fcb $AC , fcb $A1 ! fcb $2D - fcb $0B fcb $AC , fcb $A1 ! fcb $2E . fcb $09 fcb $C6 F fcb $01 fcb $E7 g fcb $E2 b fcb $16 fcb $04 fcb $72 r fcb $31 1 fcb $22 " fcb $6F o fcb $E2 b fcb $16 fcb $04 fcb $6B k L0983 fcb $34 4 fcb $16 fcb $AE . fcb $64 d fcb $AF / fcb $62 b fcb $1F fcb $20 fcb $96 fcb $5E ^ fcb $ED m fcb $64 d fcb $9E fcb $04 fcb $35 5 fcb $86 fcb $E6 f fcb $E4 d fcb $C4 D fcb $FE fcb $10 fcb $27 ' fcb $04 fcb $53 S fcb $20 fcb $1D fcb $AE . fcb $E4 d fcb $9C fcb $34 4 fcb $25 % fcb $06 fcb $9C fcb $12 fcb $10 fcb $25 % fcb $04 fcb $45 E fcb $8D fcb $D8 X fcb $AD - fcb $88 fcb $B8 8 fcb $AE . fcb $E4 d fcb $AC , fcb $A1 ! fcb $2D - fcb $06 fcb $AC , fcb $A1 ! fcb $10 fcb $2F / fcb $04 fcb $34 4 fcb $8D fcb $C7 G fcb $AD - fcb $88 fcb $BB ; L09BF fcb $D1 Q fcb $3C < fcb $24 $ fcb $1C fcb $D7 W fcb $0A fcb $86 fcb $0E fcb $3D = fcb $9E fcb $16 fcb $30 0 fcb $8B fcb $AE . fcb $0C fcb $27 ' fcb $04 fcb $D6 V fcb $0A fcb $6E n fcb $84 fcb $96 fcb $20 fcb $34 4 fcb $02 fcb $D6 V fcb $0A fcb $D7 W fcb $20 fcb $16 fcb $02 fcb $68 h fcb $C6 F fcb $DF _ fcb $16 fcb $00 fcb $F3 s L09E4 fcb $D6 V fcb $2F / fcb $27 ' fcb $15 fcb $D6 V fcb $3C < fcb $D7 W fcb $0A fcb $9E fcb $16 fcb $EE n fcb $08 fcb $27 ' fcb $05 fcb $10 fcb $3F ? fcb $02 fcb $25 % fcb $13 fcb $30 0 fcb $0E fcb $0A fcb $0A fcb $26 & fcb $F1 q fcb $9E fcb $04 fcb $AD - fcb $88 fcb $CA J fcb $DE ^ fcb $06 fcb $10 fcb $3F ? fcb $02 fcb $25 % fcb $01 fcb $5F _ fcb $10 fcb $3F ? fcb $06 L0A0D fcb $53 S fcb $55 U fcb $50 P fcb $50 P fcb $4F O fcb $52 R fcb $D4 T start equ * stu <u0002 sty <u0000 stx <u000C leax -$01,y stx <u0050 leax <L09E4,pcr stx <u0008 leax <L09BF,pcr stx <u001A lda #$0E sta <u00D1 clra clrb stb <u002F stb <u0040 stb <u002E stb <u0022 leax <L0A0D,pcr lda #$21 os9 F$Link bcc L0A4D cmpb #$DD bne L0A4A os9 F$Load bcc L0A4D L0A4A os9 F$Exit L0A4D sty <u0004 stu <u0006 lda #$01 ldx <u000C os9 I$Open bcc L0A68 cmpb #$D8 bne L0AC7 lda #$21 ldx <u000C os9 I$Open bcs L0AC7 L0A68 sta <u003D stx <u004E ldd <u0000 subd <u0002 std <u003E ldb #$80 stb <u0041 L0A76 ldd <u003E L0A78 adda <u0041 bcs L0A86 std <u003E os9 F$Mem bcs L0A8C sty <u0000 L0A86 lsr <u0041 bne L0A76 bra L0A9A L0A8C cmpb #$CF bne L0AC7 ldd <u003E suba <u0041 lsr <u0041 bne L0A78 std <u003E L0A9A ldd <u0002 addd #$00D2 std <u005F addd #$0080 std <u0061 addd #$0080 std <u0063 addd #$0080 std <u0065 addd #$0080 std <u0067 addd #$0080 std <u0016 ldx <u0016 ldy #$0100 lda <u003D os9 I$Read bcc L0ADD L0AC7 stb <u002E ldb #$CB bra L0AD7 L0ACD ldb #$CC bra L0AD7 L0AD1 ldb #$7F bra L0AD7 L0AD5 ldb #$CD L0AD7 clra ldx <u0004 jsr <-$3C,x L0ADD lbsr L0CF6 ldx <u0016 ldd <$1C,x andb #$5F subd #$3144 bne L0AD1 ldx <u0016 ldd <$24,x bne L0AD5 ldd <$26,x std <u0042 ldd <$28,x std <u0044 ldd <$2A,x std <u0046 ldd <$2C,x std <u0048 ldd <$2E,x std <u0030 ldd <$30,x tsta bne L0ACD pshs b ldd <$22,x beq L0ACD tsta bne L0ACD stb <u003C lda #$0E mul addd <u0016 addd #$00FF clrb std <u0069 std <u0018 ldu <u0016 leau <u0020,u lbsr L0BF5 puls b stb <u002F ldu <u0069 clrb L0B3A stb ,-u cmpu <u005F bne L0B3A ldx <u0016 ldb <u003C stb <u000A L0B47 pshs x ldy #$0020 lda <u003D os9 I$Read lbcs L0AC7 puls x clra clrb std $08,x ldd $0E,x std $0C,x lda #$FF sta $06,x sta $07,x leax $0E,x dec <u000A bne L0B47 ldx <u0004 jsr <-$1E,x clr <u0049 lds <u0000 lda <u0048 sta <u006C clrb addd <u0069 bsr L0BE8 std <u0018 ldx <u0063 ldb <u0048 lda #$01 L0B87 sta ,x+ inca decb bne L0B87 lda #$FF sta -$01,x ldd <u0018 addd #$010E bsr L0BE8 std <u0018 addd <u0042 bsr L0BE8 addd <u0044 bsr L0BE8 addd <u0046 bsr L0BE8 addd #$01C5 bsr L0BE8 addd #$00FF clrb bsr L0BE8 tfr d,s leas -$01,s subd <u0002 os9 F$Mem bcs L0BE5 sty <u0000 lbsr L0C8C ldx <u0004 jsr <-$39,x ldx <u0016 clra clrb sta <u006B sta <u005D sta <u005A sta <u005E subd $02,x leax d,s pshs x ldx <u0016 ldd $04,x ldx <u0004 jsr <-$2A,x lbra L1077 L0BE5 lbra L0AC7 L0BE8 bcs L0BF0 cmpd <u0000 bhi L0BF0 rts L0BF0 ldb #$CE lbra L0AD7 L0BF5 pshs u,x,b,a clra ldb ,u tfr d,x clrb lda u0001,u tfr d,u lda <u003D os9 I$Seek bcs L0BE5 puls pc,u,x,b,a ldb ,y+ lbsr L0255 pshs x ldb ,y+ cmpb <u003C bcc L0C89 ldx <u0016 lda #$0E mul leax d,x ldx $0C,x beq L0C35 tfr y,d lda <u005E std <u000A ldb -$01,y ldy <u0014 jsr ,x ldy <u000A lbra L0455 L0C35 ldb -$01,y lda <u0020 pshs a stb <u0020 tfr y,d lda <u005E tfr d,y puls a pshs y,a pshs u leau ,s lda #$0E ldb <u0020 mul ldx <u0016 leax d,x stx <u000C clra clrb subd $02,x leax d,s pshs x ldx <u000C ldd $04,x ldx <u0004 jsr <-$2A,x clra sta <u005A sta <u005E sta <u005D ldb <u0020 lda #$0E mul ldx <u0016 leax d,x ldb $06,x bmi L0C86 ldx <u0061 lda b,x bne L0C86 stb <u0059 lbra L1079 L0C86 lbra L1077 L0C89 lbra L12E8 L0C8C ldb <u002F beq L0CDE stb <u000A ldu <u0002 leau <u0030,u lbsr L0BF5 L0C9A ldx <u0018 ldy #$0080 lda <u003D os9 I$Read lbcs L0AC7 ldx <u0018 leax $0C,x os9 F$PrsNam bcs L0CEE L0CB2 stx <u000C leax ,y os9 F$PrsNam bcc L0CB2 ldx <u0018 lda $02,x ldx <u000C os9 F$Link bcs L0CDF L0CC6 ldx <u0018 ldd ,x leay d,y ldb $03,x lda #$0E mul ldx <u0016 leax d,x sty $0C,x stu $08,x dec <u000A bne L0C9A L0CDE rts L0CDF cmpb #$DD bne L0CEE ldx <u0018 lda $02,x leax $0C,x os9 F$Load bcc L0CC6 L0CEE stb <u002E ldd #$00DE lbra L0AD7 L0CF6 ldx <u0016 clra clrb L0CFA adda ,x+ decb bne L0CFA tsta beq L0D08 ldd #$00E3 lbra L0AD7 L0D08 rts ldx <u0004 jsr <$15,x lbra L0DEE lda ,s+ lbeq L0DEE lbra L12F0 leax <$20,s ldd ,x tsta bne L0D3D lsrb lsrb lsrb comb lda b,x ldb $01,x andb #$07 leax <L0D45,pcr bita b,x beq L0D3D leas <$21,s ldb #$01 stb ,s lbra L0DEE L0D3D leas <$21,s clr ,s lbra L0DEE L0D45 oim #$02,<u0004 lsl <u0010 bra L0D8C suba #$35 ror <u00DD dec <u00CC neg <u0000 ldx #$0000 pshs x,b,a pshs x,b,a pshs x,b,a pshs x,b,a pshs x,b,a pshs x,b,a pshs x,b,a pshs x,b,a ldd <u000A tsta bne L0D7E leax <L0D45,pcr andb #$07 lda b,x leax <$20,s ldb <u000B lsrb lsrb lsrb comb sta b,x L0D7E lbra L0DEE ldx <u0014 ldd $02,x bra L0DEC ldx <u0014 ldd ,x bra L0DEC ldd u0009,u bra L0DEC ldd u0007,u bra L0DEC puls b,a std u0009,u bra L0DEE puls b,a std u0007,u bra L0DEE ldb ,y+ leax b,u pshs x bra L0DEE ldb ,y+ lda b,u pshs a bra L0DEE ldb ,y+ puls a sta b,u bra L0DEE ldb #$05 L0DBB lda ,y+ pshs a decb bne L0DBB bra L0DEE ldb ,y+ sex bra L0DEC ldx <u0014 ldb #$B0 subb -$01,y ldd b,x bra L0DEC ldb #$D0 subb -$01,y ldd b,u bra L0DEC ldb #$F0 subb -$01,y leax b,u puls b,a std ,x bra L0DEE ldb -$01,y subb #$90 clra L0DEC pshs b,a L0DEE ldb ,y+ leax <L0E5C,pcr abx abx ldd ,x jmp d,x ldb ,s eorb #$01 stb ,s bra L0DEE puls b andb ,s stb ,s bra L0DEE ldd ,y++ leax d,u puls b,a std ,x bra L0DEE ldd ,y++ ldd d,u bra L0DEC ldd ,s subd #$0001 std ,s bra L0DEE ldd ,s addd ,y++ std ,s bra L0DEE ldb ,y+ pshs b bra L0DEE ldd ,y++ bra L0DEC ldd ,y++ addd <u0014 bra L0DEC puls b,a std [,s++] bra L0DEE ldd ,y++ ldx <u0014 ldd d,x bra L0DEC ldd ,y++ ldx <u0014 leax d,x puls b,a std ,x bra L0DEE puls x ldd ,y++ ldd d,x bra L0DEC L0E5C sbcb >$A5F2 subd >$F2C2 ldu >$B8F2 fcb $4E N sbcb >$54F2 fcb $5B [ sbcb >$61F2 asr [?????] tst [?????] lsr >$F27A sbcb >$80F1 sbcb [,s++] addb [,s++] andb >$F22D sbcb >$B4F2 adda >$F2C4 sbcb >$CDFF com >$F557 sbcb >$E1F2 lda >$F2BF sbcb >$E6FF clr [?????] std [w,s] sta >$FB4C ldu >$6FF5 aim #$F5,<u0005 stu >$79F5 ror <u00F5 inc [b,s] ror >$F580 andb >$D2F4 bitb <u00F4 eorb <u00FA addd [w,s] clrb cmpb >$9DFF fcb $38 8 ldb >$85FA addd [>L5DB7,pcr] asrb ldu >$E1F2 abx ldu >$E5FE addb [w,s] ldd >$F468 andb >$8CF5 L0ECF ror [,s] sbcb [,s] adcb [,s] L0ED5 sta >$FF54 oim #$84,<u00F5 bmi L0ECF cmpx [f,s] bsr L0ED5 std [w,s] stb <u00F5 addb [b,s] cmpa [b,s] addb [,s] nega andb >$42F5 asrb stu >$32F4 sbcb <u00F4 cmpa [>$3AF4] ldu <u00FF abx ldb >$A4F6 anda >$F179 stb >$BAF6 adda >$F6CB cmpb >$79F7 ldb #$F6 cmpb >$F701 cmpb >$79F7 orb #$F7 lsl <u00F7 fcb $18 cmpb >$79F7 eorb #$F7 tfr f,v ble L0F12 rol >$F7C6 ldb >$BAF6 orb #$F1 rol >$F7AC addd >$1AF3 fcb $38 8 addd >$45F3 adda <u00F2 bitb [?????] subb >$F2F9 addd >$5AF2 ora <u00FE addb #$F2 cmpa [,--s] cmpa [?????] suba >$FECD sbcb >$B5F3 decb ldb >$36FF ror <u00F6 mul addd >$3EF6 inc <u00FE sbcb >$F615 L0F5A addd >$81F5 ldb [w,s] sbcb [b,s] std [,--s] bpl L0F5A stx >$FED4 bitb >$C2F3 lda #$F4 jmp >$F2A0 addd >$B3FA cwai #$F6 stu >$F6E4 stb >$15F7 L0F7B bvs L0F7B tim #$FE,$09,s ldu >$67FE eim #$FE,$03,s ldu >$61FE clrb ldu >$5DFE fcb $5B [ ldu >$59FE asrb ldu >$55FE comb ldu >$51FE clra ldu >$4DFE fcb $4B K ldu >$49FE asra ldu >$45FE coma ldu >$41FE swi fcb $FE mul ldu >$3BFE rts ldu >$37FE puls pc,u,y,x,dp,b,a leau [w,s] leay [w,s] L0FB9 ble L0FB9 blt L0FBA bitb #$FD adcb #$FE rol <u00FE asr <u00FE eim #$FE,<u0003 ldu >$01FD stu >$FDFD std >$FBFD adcb >$FDF7 std >$F5FD addd >$FDF1 std >$EFFD std [>LFBDE,pcr] adcb [>LF7E2,pcr] bitb [>LF3E6,pcr] cmpb [>LEFEA,pcr] std <u00FD addb <u00FD adcb <u00FD stb <u00FD bitb <u00FD addd <u00FD cmpb <u00FD fcb $CF O std >$91FD subd <u00FD addd <u00FD cmpb <u00FD fcb $CF O std >$CDFD addb #$FD adcb #$FD fcb $C7 G std >$C5FD addd #$FDC1 std >$BFFD jsr >$FDBB std >$B9FD sta >$FDB5 std >$B3FD cmpa >$FDAF std >$ADFD adda [>LBA2A,pcr] sta [>LB62E,pcr] subd [>LB232,pcr] stx <u00FD jsr <u00FD adda <u00FD adca <u00FD rolb std >$5DFD adda <u00FD adca <u00FD sta <u00FD bita <u00FD subd <u00FD cmpa <u00FD fcb $8F std >$8DFD adda #$FD adca #$FD fcb $87 std >$85FD subd #$FD81 clr <u005A ldb <u0059 lda <u005E inca sta <u005D sta <u005E ldx <u0063 lda b,x bmi L1077 sta <u0059 ldx <u0061 lda a,x cmpa <u005D beq L1079 L1077 bsr L10AE L1079 lda <u006C bne L107F bsr L1088 L107F ldd <u0059 adda <u0069 tfr d,y lbra L0DEE L1088 clrb ldx <u005F L108B lda b,x cmpb <u0059 beq L10A1 tsta beq L1099 deca sta b,x bne L109B L1099 inc <u006C L109B incb cmpb <u0048 bne L108B rts L10A1 inca beq L109B cmpa #$01 bne L10AA dec <u006C L10AA sta b,x bra L109B L10AE lda #$FE bra L10B4 lda #$FF L10B4 sta <u0075 lda <u006B bmi L1101 sta <u0070 clrb adda <u0069 std <u006D ldx <u0063 ldb <u006B lda b,x sta <u006B lbra L11AA L10CC ldb <u006F lda #$0E mul ldx <u0016 leax d,x stx <u000C L10D7 ldb $07,x bmi L114E ldx <u0063 cmpb <u0070 bne L10EC ldb <u0070 lda b,x ldx <u000C sta $07,x lbra L11AA L10EC stb <u0072 ldb b,x bmi L114E cmpb <u0070 bne L10EC ldb <u0070 lda b,x ldb <u0072 sta b,x lbra L11AA L1101 lda #$FF sta <u0073 sta <u0074 lda <u0020 ldb #$0E mul ldx <u0016 leax d,x lda $07,x sta <u0027 clr <u0070 L1116 ldb <u0070 ldx <u005F lda b,x cmpa <u0073 bhi L1142 cmpb <u0059 beq L1142 std <u000A ldx <u0067 lda b,x cmpa <u0020 bne L113C lda <u0027 bmi L113C ldx <u0063 L1134 cmpa <u000B beq L1142 lda a,x bpl L1134 L113C ldd <u000A sta <u0073 stb <u0074 L1142 inc <u0070 ldb <u0070 cmpb <u0048 bne L1116 ldb <u0074 bpl L1154 L114E ldd #$00CF lbra L0AD7 L1154 ldx <u0067 stb <u0070 lda b,x sta <u006F tfr b,a clrb adda <u0069 std <u006D ldb <u006F lda #$0E mul ldx <u0016 leax d,x stx <u000C ldb $06,x lbmi L10D7 ldx <u0063 cmpb <u0070 bne L118C ldb <u0070 ldb b,x ldx <u000C stb $06,x bmi L11AA ldx <u0065 lda #$FF sta b,x bra L11AA L118C stb <u0072 ldb b,x lbmi L10CC cmpb <u0070 bne L118C ldx <u0063 ldb <u0070 lda b,x ldb <u0072 sta b,x bmi L11AA ldx <u0065 ldb <u0072 stb a,x L11AA ldb <u0020 lda #$0E mul ldx <u0016 leax d,x stx <u0076 lda <u0075 cmpa #$FF bne L11C5 ldd $0A,x addb <u005D adca #$00 std <u0079 bra L11CD L11C5 ldd ,x addb <u005D adca #$00 std <u0079 L11CD clra sta <u0078 sta <u007B ldx <u005F ldb <u0070 lda b,x bne L11DC dec <u006C L11DC pshs u,y ldx <u0078 ldu <u007A lda <u003D os9 I$Seek L11E7 ldu ,s lbcs L0AC7 ldx <u006D ldy #$0100 lda <u003D os9 I$Read bcs L11E7 puls u,y lda #$FF sta <u0072 lda <u0075 cmpa #$FF bne L125F lda <u0070 sta <u005B ldx <u0076 ldb $07,x bpl L121F ldb <u0070 stb $07,x ldx <u0063 lda #$FF sta b,x lbra L12D3 L121D tfr a,b L121F ldx <u0061 lda b,x cmpa <u005D bhi L123C stb <u0072 ldx <u0063 lda b,x bpl L121D lda <u0070 sta b,x ldx <u0063 ldb #$FF stb a,x lbra L12D3 L123C ldb <u0072 bpl L124F ldx <u0076 ldb <u0070 lda $07,x stb $07,x ldx <u0063 sta b,x lbra L12D3 L124F ldx <u0063 lda b,x sta <u0071 lda <u0070 sta b,x ldb <u0071 stb a,x bra L12D3 L125F lda <u0070 sta <u0059 ldx <u0076 ldb $06,x bpl L127B lda <u0070 sta $06,x ldx <u0063 ldb #$FF stb a,x ldx <u0065 stb a,x bra L12D3 L1279 tfr a,b L127B ldx <u0061 lda b,x cmpa <u005D bhi L129D stb <u0072 ldx <u0063 lda b,x bpl L1279 lda <u0070 sta b,x ldx <u0065 ldb <u0072 stb a,x ldx <u0063 ldb #$FF stb a,x bra L12D3 L129D ldb <u0072 bpl L12BB ldx <u0076 ldb <u0070 lda $06,x sta <u0071 stb $06,x ldx <u0063 sta b,x ldx <u0065 lda #$FF sta b,x lda <u0071 stb a,x bra L12D3 L12BB ldx <u0063 lda b,x sta <u0071 lda <u0070 sta b,x ldb <u0071 stb a,x ldx <u0065 ldb <u0072 stb a,x ldb <u0071 sta b,x L12D3 ldx <u005F ldb <u0070 lda #$FF sta b,x ldx <u0067 lda <u0020 sta b,x ldx <u0061 lda <u005D sta b,x rts L12E8 ldb #$BF bra L12F6 ldb #$C3 bra L12F6 L12F0 ldb #$C5 bra L12F6 ldb #$C7 L12F6 clra lbsr L0983 jsr <-$3C,x emod eom equ *