           nam    BBS.reply
           ttl    program module

           ifp1
           use    defsfile
           endc

tylg       set    Prgrm+Objct
atrv       set    ReEnt+rev
rev        set    $01

           mod    eom,name,tylg,atrv,start,size

U0000      rmb    1
U0001      rmb    1
U0002      rmb    1
U0003      rmb    1
U0004      rmb    1
U0005      rmb    1
U0006      rmb    1
U0007      rmb    1
U0008      rmb    2
U000A      rmb    2
U000C      rmb    1
U000D      rmb    1
U000E      rmb    1
U000F      rmb    1
U0010      rmb    2
U0012      rmb    2
U0014      rmb    2
U0016      rmb    1
U0017      rmb    1
U0018      rmb    2
U001A      rmb    2
U001C      rmb    200
U00E4      rmb    1
U00E5      rmb    5
U00EA      rmb    1
U00EB      rmb    2
U00ED      rmb    2
U00EF      rmb    60
U012B      rmb    2
U012D      rmb    2
U012F      rmb    20
U0143      rmb    30
U0161      rmb    6
U0167      rmb    2
U0169      rmb    2
U016B      rmb    2
U016D      rmb    2
U016F      rmb    6
U0175      rmb    2
U0177      rmb    2
U0179      rmb    2
U017B      rmb    16
U018B      rmb    8000
U20CB      rmb    80
U211B      rmb    32
U213B      rmb    1
U213C      rmb    399
size       equ    .

name       fcs    /BBS.reply/                                            * 000D 42 42 53 2E 72 65 70 6C F9 BBS.reply
           fcc    "Copyright (C) 1988By Keith AlphonsoLicenced to Alpha Software TechnologiesAll rights reserved" * 0016 43 6F 70 79 72 69 67 68 74 20 28 43 29 20 31 39 38 38 42 79 20 4B 65 69 74 68 20 41 6C 70 68 6F 6E 73 6F 4C 69 63 65 6E 63 65 64 20 74 6F 20 41 6C 70 68 61 20 53 6F 66 74 77 61 72 65 20 54 65 63 68 6E 6F 6C 6F 67 69 65 73 41 6C 6C 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 Copyright (C) 1988By Keith AlphonsoLicenced to Alpha Software TechnologiesAll rights reserved
           fcb    $EC                                                   * 0073 EC             l
           fcb    $E6                                                   * 0074 E6             f
           fcb    $EA                                                   * 0075 EA             j
           fcb    $F5                                                   * 0076 F5             u
           fcb    $E9                                                   * 0077 E9             i
           fcb    $A0                                                   * 0078 A0
           fcb    $E2                                                   * 0079 E2             b
           fcb    $ED                                                   * 007A ED             m
           fcb    $F1                                                   * 007B F1             q
           fcb    $E9                                                   * 007C E9             i
           fcb    $F0                                                   * 007D F0             p
           fcb    $EF                                                   * 007E EF             o
           fcb    $F4                                                   * 007F F4             t
           fcb    $F0                                                   * 0080 F0             p
L0081      fcc    "BBS.msg.inx"                                         * 0081 42 42 53 2E 6D 73 67 2E 69 6E 78 BBS.msg.inx
           fcb    $0D                                                   * 008C 0D             .
L008D      fcc    "BBS.msg"                                             * 008D 42 42 53 2E 6D 73 67 BBS.msg
           fcb    $0D                                                   * 0094 0D             .
           fcb    $0A                                                   * 0095 0A             .
           fcc    "Enter subject of message"                            * 0096 45 6E 74 65 72 20 73 75 62 6A 65 63 74 20 6F 66 20 6D 65 73 73 61 67 65 Enter subject of message
           fcb    $0D                                                   * 00AE 0D             .
           fcb    $0A                                                   * 00AF 0A             .
           fcb    $3E                                                   * 00B0 3E             >
           fcb    $00                                                   * 00B1 00             .
           fcb    $1C                                                   * 00B2 1C             .
L00B3      fcb    $0A                                                   * 00B3 0A             .
           fcb    $0A                                                   * 00B4 0A             .
           fcc    "    Please enter message now            (Blank line ends)" * 00B5 20 20 20 20 50 6C 65 61 73 65 20 65 6E 74 65 72 20 6D 65 73 73 61 67 65 20 6E 6F 77 20 20 20 20 20 20 20 20 20 20 20 20 28 42 6C 61 6E 6B 20 6C 69 6E 65 20 65 6E 64 73 29     Please enter message now            (Blank line ends)
           fcb    $0D                                                   * 00EE 0D             .
L00EF      fcc    "----------------------------------------------------------------" * 00EF 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------------------------------------------------------
           fcb    $0D                                                   * 012F 0D             .
L0130      fcc    "/dd/bbs/BBS.alias"                                   * 0130 2F 64 64 2F 62 62 73 2F 42 42 53 2E 61 6C 69 61 73 /dd/bbs/BBS.alias
           fcb    $0D                                                   * 0141 0D             .
L0142      fcb    $0A                                                   * 0142 0A             .
           fcc    "[A]bort [D]one [E]dit [C]ontinue or [L]ist"          * 0143 5B 41 5D 62 6F 72 74 20 5B 44 5D 6F 6E 65 20 5B 45 5D 64 69 74 20 5B 43 5D 6F 6E 74 69 6E 75 65 20 6F 72 20 5B 4C 5D 69 73 74 [A]bort [D]one [E]dit [C]ontinue or [L]ist
           fcb    $0D                                                   * 016D 0D             .
L016E      fcc    "Enter line #"                                        * 016E 45 6E 74 65 72 20 6C 69 6E 65 20 23 Enter line #
           fcb    $0D                                                   * 017A 0D             .
L017B      fcb    $3E                                                   * 017B 3E             >
L017C      fcb    $0A                                                   * 017C 0A             .
           fcb    $0D                                                   * 017D 0D             .
L017E      fcb    $08                                                   * 017E 08             .
           fcb    $20                                                   * 017F 20
           fcb    $08                                                   * 0180 08             .
L0181      fcc    "/dd/bbs/BBS.userstats"                               * 0181 2F 64 64 2F 62 62 73 2F 42 42 53 2E 75 73 65 72 73 74 61 74 73 /dd/bbs/BBS.userstats
           fcb    $0D                                                   * 0196 0D             .
L0197      fcc    "User name not found!"                                * 0197 55 73 65 72 20 6E 61 6D 65 20 6E 6F 74 20 66 6F 75 6E 64 21 User name not found!
           fcb    $0D                                                   * 01AB 0D             .
L01AC      fcc    "Address message to (BLANK for ALL)"                  * 01AC 41 64 64 72 65 73 73 20 6D 65 73 73 61 67 65 20 74 6F 20 28 42 4C 41 4E 4B 20 66 6F 72 20 41 4C 4C 29 Address message to (BLANK for ALL)
           fcb    $0D                                                   * 01CE 0D             .
           fcb    $0A                                                   * 01CF 0A             .
start      stx    U0008,U                                               * 01D0 AF 48          /H
           clr    >U00EA,U                                              * 01D2 6F C9 00 EA    oI.j
           clr    >U00E4,U                                              * 01D6 6F C9 00 E4    oI.d
           clr    U0006,U                                               * 01DA 6F 46          oF
           os9    F$ID                                                  * 01DC 10 3F 0C       .?.
           lbcs   L063B                                                 * 01DF 10 25 04 58    .%.X
           sty    U000A,U                                               * 01E3 10 AF 4A       ./J
           ldy    #0                                                    * 01E6 10 8E 00 00    ....
           os9    F$SUser                                               * 01EA 10 3F 1C       .?.
           lbcs   L063B                                                 * 01ED 10 25 04 4A    .%.J
           leax   >L0081,PC                                             * 01F1 30 8D FE 8C    0.~.
           lda    #3                                                    * 01F5 86 03          ..
           os9    I$Open                                                * 01F7 10 3F 84       .?.
           lbcs   L063B                                                 * 01FA 10 25 04 3D    .%.=
           sta    U0000,U                                               * 01FE A7 C4          'D
           leax   >U00EB,U                                              * 0200 30 C9 00 EB    0I.k
           ldy    #64                                                   * 0204 10 8E 00 40    ...@
           lda    U0000,U                                               * 0208 A6 C4          &D
           os9    I$Read                                                * 020A 10 3F 89       .?.
           lbcs   L063B                                                 * 020D 10 25 04 2A    .%.*
           lda    #6                                                    * 0211 86 06          ..
           sta    U0003,U                                               * 0213 A7 43          'C
           ldd    >U00EB,U                                              * 0215 EC C9 00 EB    lI.k
           addd   #1                                                    * 0219 C3 00 01       C..
           std    >U00EB,U                                              * 021C ED C9 00 EB    mI.k
           clr    U000E,U                                               * 0220 6F 4E          oN
           clr    U000F,U                                               * 0222 6F 4F          oO
L0224      aslb                                                         * 0224 58             X
           rola                                                         * 0225 49             I
           rol    U000F,U                                               * 0226 69 4F          iO
           dec    U0003,U                                               * 0228 6A 43          jC
           bne    L0224                                                 * 022A 26 F8          &x
           std    <U0010,U                                              * 022C ED C8 10       mH.
           lda    U0000,U                                               * 022F A6 C4          &D
           ldx    U000E,U                                               * 0231 AE 4E          .N
           pshs   U                                                     * 0233 34 40          4@
           ldu    <U0010,U                                              * 0235 EE C8 10       nH.
           os9    I$Seek                                                * 0238 10 3F 88       .?.
           lbcs   L063B                                                 * 023B 10 25 03 FC    .%.|
           puls   U                                                     * 023F 35 40          5@
           leax   >U0161,U                                              * 0241 30 C9 01 61    0I.a
           os9    F$Time                                                * 0245 10 3F 15       .?.
           ldx    U0008,U                                               * 0248 AE 48          .H
           leay   >U0143,U                                              * 024A 31 C9 01 43    1I.C
           ldb    #30                                                   * 024E C6 1E          F.
L0250      lda    ,X+                                                   * 0250 A6 80          &.
           sta    ,Y+                                                   * 0252 A7 A0          '
           cmpa   #13                                                   * 0254 81 0D          ..
           beq    L025B                                                 * 0256 27 03          '.
           decb                                                         * 0258 5A             Z
           bne    L0250                                                 * 0259 26 F5          &u
L025B      leax   >L0130,PC                                             * 025B 30 8D FE D1    0.~Q
           lda    #1                                                    * 025F 86 01          ..
           os9    I$Open                                                * 0261 10 3F 84       .?.
           lbcs   L063B                                                 * 0264 10 25 03 D3    .%.S
           sta    U0002,U                                               * 0268 A7 42          'B
L026A      leax   >L01AC,PC                                             * 026A 30 8D FF 3E    0..>
           ldy    #36                                                   * 026E 10 8E 00 24    ...$
           lda    #1                                                    * 0272 86 01          ..
           os9    I$Write                                               * 0274 10 3F 8A       .?.
           leax   >U213B,U                                              * 0277 30 C9 21 3B    0I!;
           ldy    #200                                                  * 027B 10 8E 00 C8    ...H
           clra                                                         * 027F 4F             O
           os9    I$ReadLn                                              * 0280 10 3F 8B       .?.
           cmpy   #1                                                    * 0283 10 8C 00 01    ....
           ble    L02F1                                                 * 0287 2F 68          /h
L0289      lda    ,X+                                                   * 0289 A6 80          &.
           anda   #223                                                  * 028B 84 DF          ._
           sta    -$01,X                                                * 028D A7 1F          '.
           cmpa   #13                                                   * 028F 81 0D          ..
           bne    L0289                                                 * 0291 26 F6          &v
L0293      leax   <U001C,U                                              * 0293 30 C8 1C       0H.
           ldy    #200                                                  * 0296 10 8E 00 C8    ...H
           lda    U0002,U                                               * 029A A6 42          &B
           os9    I$ReadLn                                              * 029C 10 3F 8B       .?.
           bcs    L02D4                                                 * 029F 25 33          %3
           leay   >U213B,U                                              * 02A1 31 C9 21 3B    1I!;
           leax   <U001C,U                                              * 02A5 30 C8 1C       0H.
L02A8      lda    ,X+                                                   * 02A8 A6 80          &.
           cmpa   #44                                                   * 02AA 81 2C          .,
           beq    L02B6                                                 * 02AC 27 08          '.
           anda   #223                                                  * 02AE 84 DF          ._
           cmpa   ,Y+                                                   * 02B0 A1 A0          !
           bne    L0293                                                 * 02B2 26 DF          &_
           bra    L02A8                                                 * 02B4 20 F2           r
L02B6      lda    ,Y+                                                   * 02B6 A6 A0          &
           cmpa   #13                                                   * 02B8 81 0D          ..
           bne    L0293                                                 * 02BA 26 D7          &W
           lbsr   L07D2                                                 * 02BC 17 05 13       ...
           std    >U0169,U                                              * 02BF ED C9 01 69    mI.i
           lda    U0002,U                                               * 02C3 A6 42          &B
           pshs   U                                                     * 02C5 34 40          4@
           ldu    #0                                                    * 02C7 CE 00 00       N..
           ldx    #0                                                    * 02CA 8E 00 00       ...
           os9    I$Seek                                                * 02CD 10 3F 88       .?.
           puls   U                                                     * 02D0 35 40          5@
           bra    L02F8                                                 * 02D2 20 24           $
L02D4      leax   >L0197,PC                                             * 02D4 30 8D FE BF    0.~?
           ldy    #200                                                  * 02D8 10 8E 00 C8    ...H
           lda    #1                                                    * 02DC 86 01          ..
           os9    I$WritLn                                              * 02DE 10 3F 8C       .?.
           lda    U0002,U                                               * 02E1 A6 42          &B
           pshs   U                                                     * 02E3 34 40          4@
           ldu    #0                                                    * 02E5 CE 00 00       N..
           ldx    #0                                                    * 02E8 8E 00 00       ...
           os9    I$Seek                                                * 02EB 10 3F 88       .?.
           lbra   L026A                                                 * 02EE 16 FF 79       ..y
L02F1      ldd    #-1                                                   * 02F1 CC FF FF       L..
           std    >U0169,U                                              * 02F4 ED C9 01 69    mI.i
L02F8      leax   >L00B3,PC                                             * 02F8 30 8D FD B7    0.}7
           ldy    #200                                                  * 02FC 10 8E 00 C8    ...H
           lda    #1                                                    * 0300 86 01          ..
           os9    I$WritLn                                              * 0302 10 3F 8C       .?.
           lbcs   L063B                                                 * 0305 10 25 03 32    .%.2
           leax   >L00EF,PC                                             * 0309 30 8D FD E2    0.}b
           ldy    #80                                                   * 030D 10 8E 00 50    ...P
           os9    I$WritLn                                              * 0311 10 3F 8C       .?.
           lbcs   L063B                                                 * 0314 10 25 03 23    .%.#
           ldd    #0                                                    * 0318 CC 00 00       L..
           std    U000C,U                                               * 031B ED 4C          mL
L031D      ldd    U000C,U                                               * 031D EC 4C          lL
           addd   #1                                                    * 031F C3 00 01       C..
           std    U000C,U                                               * 0322 ED 4C          mL
           cmpd   #99                                                   * 0324 10 83 00 63    ...c
           bge    L0335                                                 * 0328 2C 0B          ,.
           lbsr   L0432                                                 * 032A 17 01 05       ...
           cmpy   #1                                                    * 032D 10 8C 00 01    ....
           bls    L0335                                                 * 0331 23 02          #.
           bra    L031D                                                 * 0333 20 E8           h
L0335      leax   >L0142,PC                                             * 0335 30 8D FE 09    0.~.
           ldy    #200                                                  * 0339 10 8E 00 C8    ...H
           lda    #1                                                    * 033D 86 01          ..
           os9    I$WritLn                                              * 033F 10 3F 8C       .?.
           leax   >L017B,PC                                             * 0342 30 8D FE 35    0.~5
           ldy    #1                                                    * 0346 10 8E 00 01    ....
           os9    I$Write                                               * 034A 10 3F 8A       .?.
           leax   U0005,U                                               * 034D 30 45          0E
           clra                                                         * 034F 4F             O
           ldy    #1                                                    * 0350 10 8E 00 01    ....
           os9    I$Read                                                * 0354 10 3F 89       .?.
           leax   >L017C,PC                                             * 0357 30 8D FE 21    0.~!
           ldy    #1                                                    * 035B 10 8E 00 01    ....
           lda    #1                                                    * 035F 86 01          ..
           os9    I$WritLn                                              * 0361 10 3F 8C       .?.
           lda    U0005,U                                               * 0364 A6 45          &E
           anda   #223                                                  * 0366 84 DF          ._
           cmpa   #65                                                   * 0368 81 41          .A
           lbeq   L063E                                                 * 036A 10 27 02 D0    .'.P
           cmpa   #68                                                   * 036E 81 44          .D
           lbeq   L0487                                                 * 0370 10 27 01 13    .'..
           cmpa   #69                                                   * 0374 81 45          .E
           beq    L038B                                                 * 0376 27 13          '.
           cmpa   #67                                                   * 0378 81 43          .C
           beq    L0382                                                 * 037A 27 06          '.
           cmpa   #76                                                   * 037C 81 4C          .L
           beq    L03F1                                                 * 037E 27 71          'q
           bra    L0335                                                 * 0380 20 B3           3
L0382      ldd    U000C,U                                               * 0382 EC 4C          lL
           subd   #1                                                    * 0384 83 00 01       ...
           std    U000C,U                                               * 0387 ED 4C          mL
           bra    L031D                                                 * 0389 20 92           .
L038B      leax   >L016E,PC                                             * 038B 30 8D FD DF    0.}_
           ldy    #200                                                  * 038F 10 8E 00 C8    ...H
           lda    #1                                                    * 0393 86 01          ..
           os9    I$WritLn                                              * 0395 10 3F 8C       .?.
           leax   >L017B,PC                                             * 0398 30 8D FD DF    0.}_
           ldy    #1                                                    * 039C 10 8E 00 01    ....
           os9    I$Write                                               * 03A0 10 3F 8A       .?.
           clra                                                         * 03A3 4F             O
           leax   >U00E5,U                                              * 03A4 30 C9 00 E5    0I.e
           ldy    #3                                                    * 03A8 10 8E 00 03    ....
           os9    I$ReadLn                                              * 03AC 10 3F 8B       .?.
           lbsr   L07D2                                                 * 03AF 17 04 20       ..
           cmpd   U000C,U                                               * 03B2 10 A3 4C       .#L
           lbcc   L0335                                                 * 03B5 10 24 FF 7C    .$.|
           std    <U001A,U                                              * 03B9 ED C8 1A       mH.
           leax   >U00E5,U                                              * 03BC 30 C9 00 E5    0I.e
           lbsr   L0842                                                 * 03C0 17 04 7F       ...
           leax   >U00E5,U                                              * 03C3 30 C9 00 E5    0I.e
           lda    #58                                                   * 03C7 86 3A          .:
           sta    $02,X                                                 * 03C9 A7 02          '.
           ldy    #3                                                    * 03CB 10 8E 00 03    ....
           lda    #1                                                    * 03CF 86 01          ..
           os9    I$Write                                               * 03D1 10 3F 8A       .?.
           ldd    <U001A,U                                              * 03D4 EC C8 1A       lH.
           leax   >U018B,U                                              * 03D7 30 C9 01 8B    0I..
           lda    #80                                                   * 03DB 86 50          .P
           mul                                                          * 03DD 3D             =
           leax   D,X                                                   * 03DE 30 8B          0.
           ldy    #80                                                   * 03E0 10 8E 00 50    ...P
           lda    #1                                                    * 03E4 86 01          ..
           os9    I$WritLn                                              * 03E6 10 3F 8C       .?.
           ldd    <U001A,U                                              * 03E9 EC C8 1A       lH.
           bsr    L0432                                                 * 03EC 8D 44          .D
           lbra   L0335                                                 * 03EE 16 FF 44       ..D
L03F1      ldd    #0                                                    * 03F1 CC 00 00       L..
           std    U000C,U                                               * 03F4 ED 4C          mL
L03F6      ldd    U000C,U                                               * 03F6 EC 4C          lL
           addd   #1                                                    * 03F8 C3 00 01       C..
           std    U000C,U                                               * 03FB ED 4C          mL
           leax   >U00E5,U                                              * 03FD 30 C9 00 E5    0I.e
           lbsr   L0842                                                 * 0401 17 04 3E       ..>
           leax   >U00E5,U                                              * 0404 30 C9 00 E5    0I.e
           lda    #58                                                   * 0408 86 3A          .:
           sta    $02,X                                                 * 040A A7 02          '.
           lda    #1                                                    * 040C 86 01          ..
           ldy    #3                                                    * 040E 10 8E 00 03    ....
           os9    I$Write                                               * 0412 10 3F 8A       .?.
           leax   >U018B,U                                              * 0415 30 C9 01 8B    0I..
           ldd    U000C,U                                               * 0419 EC 4C          lL
           lda    #80                                                   * 041B 86 50          .P
           mul                                                          * 041D 3D             =
           leax   D,X                                                   * 041E 30 8B          0.
           ldy    #80                                                   * 0420 10 8E 00 50    ...P
           lda    #1                                                    * 0424 86 01          ..
           os9    I$WritLn                                              * 0426 10 3F 8C       .?.
           cmpy   #1                                                    * 0429 10 8C 00 01    ....
           bhi    L03F6                                                 * 042D 22 C7          "G
           lbra   L0335                                                 * 042F 16 FF 03       ...
L0432      leax   >U00E5,U                                              * 0432 30 C9 00 E5    0I.e
           pshs   D                                                     * 0436 34 06          4.
           lbsr   L0842                                                 * 0438 17 04 07       ...
           leax   >U00E5,U                                              * 043B 30 C9 00 E5    0I.e
           lda    #58                                                   * 043F 86 3A          .:
           sta    $02,X                                                 * 0441 A7 02          '.
           lda    #1                                                    * 0443 86 01          ..
           ldy    #3                                                    * 0445 10 8E 00 03    ....
           os9    I$Write                                               * 0449 10 3F 8A       .?.
           lbcs   L063B                                                 * 044C 10 25 01 EB    .%.k
           leax   >U20CB,U                                              * 0450 30 C9 20 CB    0I K
           ldb    U0006,U                                               * 0454 E6 46          fF
           clra                                                         * 0456 4F             O
           tfr    D,Y                                                   * 0457 1F 02          ..
           lda    #1                                                    * 0459 86 01          ..
           os9    I$Write                                               * 045B 10 3F 8A       .?.
           puls   D                                                     * 045E 35 06          5.
           lda    #80                                                   * 0460 86 50          .P
           mul                                                          * 0462 3D             =
           leax   >U018B,U                                              * 0463 30 C9 01 8B    0I..
           leax   D,X                                                   * 0467 30 8B          0.
           leay   >U20CB,U                                              * 0469 31 C9 20 CB    1I K
           ldb    #80                                                   * 046D C6 50          FP
           lda    U0006,U                                               * 046F A6 46          &F
           beq    L0480                                                 * 0471 27 0D          '.
           sta    <U0016,U                                              * 0473 A7 C8 16       'H.
L0476      lda    ,Y+                                                   * 0476 A6 A0          &
           sta    ,X+                                                   * 0478 A7 80          '.
           decb                                                         * 047A 5A             Z
           dec    <U0016,U                                              * 047B 6A C8 16       jH.
           bne    L0476                                                 * 047E 26 F6          &v
L0480      clra                                                         * 0480 4F             O
           tfr    D,Y                                                   * 0481 1F 02          ..
           lbsr   L0642                                                 * 0483 17 01 BC       ..<
           rts                                                          * 0486 39             9
L0487      leax   <U001C,U                                              * 0487 30 C8 1C       0H.
           ldy    #200                                                  * 048A 10 8E 00 C8    ...H
           lda    U0002,U                                               * 048E A6 42          &B
           os9    I$ReadLn                                              * 0490 10 3F 8B       .?.
           lbcs   L063B                                                 * 0493 10 25 01 A4    .%.$
L0497      lda    ,X+                                                   * 0497 A6 80          &.
           cmpa   #44                                                   * 0499 81 2C          .,
           bne    L0497                                                 * 049B 26 FA          &z
           lbsr   L07D2                                                 * 049D 17 03 32       ..2
           cmpd   U000A,U                                               * 04A0 10 A3 4A       .#J
           bne    L0487                                                 * 04A3 26 E2          &b
           leax   <U001C,U                                              * 04A5 30 C8 1C       0H.
           leay   >U012F,U                                              * 04A8 31 C9 01 2F    1I./
L04AC      lda    ,X+                                                   * 04AC A6 80          &.
           cmpa   #44                                                   * 04AE 81 2C          .,
           beq    L04B6                                                 * 04B0 27 04          '.
           sta    ,Y+                                                   * 04B2 A7 A0          '
           bra    L04AC                                                 * 04B4 20 F6           v
L04B6      lda    #13                                                   * 04B6 86 0D          ..
           sta    0,Y                                                   * 04B8 A7 A4          '$
           ldd    >U00ED,U                                              * 04BA EC C9 00 ED    lI.m
           std    >U012B,U                                              * 04BE ED C9 01 2B    mI.+
           ldd    >U00EF,U                                              * 04C2 EC C9 00 EF    lI.o
           std    >U012D,U                                              * 04C6 ED C9 01 2D    mI.-
           ldd    U000A,U                                               * 04CA EC 4A          lJ
           std    >U0167,U                                              * 04CC ED C9 01 67    mI.g
           leax   >U012B,U                                              * 04D0 30 C9 01 2B    0I.+
           lda    U0000,U                                               * 04D4 A6 C4          &D
           ldy    #64                                                   * 04D6 10 8E 00 40    ...@
           os9    I$Write                                               * 04DA 10 3F 8A       .?.
           lbcs   L063B                                                 * 04DD 10 25 01 5A    .%.Z
           leax   >L008D,PC                                             * 04E1 30 8D FB A8    0.{(
           lda    #3                                                    * 04E5 86 03          ..
           os9    I$Open                                                * 04E7 10 3F 84       .?.
           lbcs   L063B                                                 * 04EA 10 25 01 4D    .%.M
           sta    U0001,U                                               * 04EE A7 41          'A
           pshs   U                                                     * 04F0 34 40          4@
           ldx    >U00ED,U                                              * 04F2 AE C9 00 ED    .I.m
           lda    U0001,U                                               * 04F6 A6 41          &A
           ldu    >U00EF,U                                              * 04F8 EE C9 00 EF    nI.o
           os9    I$Seek                                                * 04FC 10 3F 88       .?.
           lbcs   L063B                                                 * 04FF 10 25 01 38    .%.8
           puls   U                                                     * 0503 35 40          5@
           lda    #0                                                    * 0505 86 00          ..
           sta    <U0012,U                                              * 0507 A7 C8 12       'H.
           ldd    #1                                                    * 050A CC 00 01       L..
           std    <U0014,U                                              * 050D ED C8 14       mH.
L0510      lda    <U0012,U                                              * 0510 A6 C8 12       &H.
           inca                                                         * 0513 4C             L
           sta    <U0012,U                                              * 0514 A7 C8 12       'H.
           cmpa   U000D,U                                               * 0517 A1 4D          !M
           bhi    L0541                                                 * 0519 22 26          "&
           ldb    #80                                                   * 051B C6 50          FP
           mul                                                          * 051D 3D             =
           leax   >U018B,U                                              * 051E 30 C9 01 8B    0I..
           leax   D,X                                                   * 0522 30 8B          0.
           ldy    #80                                                   * 0524 10 8E 00 50    ...P
           lda    U0001,U                                               * 0528 A6 41          &A
           os9    I$WritLn                                              * 052A 10 3F 8C       .?.
           lbcs   L063B                                                 * 052D 10 25 01 0A    .%..
           cmpy   #1                                                    * 0531 10 8C 00 01    ....
           bls    L0541                                                 * 0535 23 0A          #.
           tfr    Y,D                                                   * 0537 1F 20          .
           addd   <U0014,U                                              * 0539 E3 C8 14       cH.
           std    <U0014,U                                              * 053C ED C8 14       mH.
           bra    L0510                                                 * 053F 20 CF           O
L0541      ldd    >U00EF,U                                              * 0541 EC C9 00 EF    lI.o
           addd   <U0014,U                                              * 0545 E3 C8 14       cH.
           std    >U00EF,U                                              * 0548 ED C9 00 EF    mI.o
           bcc    L0559                                                 * 054C 24 0B          $.
           ldd    >U00ED,U                                              * 054E EC C9 00 ED    lI.m
           addd   #1                                                    * 0552 C3 00 01       C..
           std    >U00ED,U                                              * 0555 ED C9 00 ED    mI.m
L0559      pshs   U                                                     * 0559 34 40          4@
           lda    U0000,U                                               * 055B A6 C4          &D
           ldx    #0                                                    * 055D 8E 00 00       ...
           ldu    #0                                                    * 0560 CE 00 00       N..
           os9    I$Seek                                                * 0563 10 3F 88       .?.
           lbcs   L063B                                                 * 0566 10 25 00 D1    .%.Q
           puls   U                                                     * 056A 35 40          5@
           leax   >U00EB,U                                              * 056C 30 C9 00 EB    0I.k
           ldy    #64                                                   * 0570 10 8E 00 40    ...@
           lda    U0000,U                                               * 0574 A6 C4          &D
           os9    I$Write                                               * 0576 10 3F 8A       .?.
           lbcs   L063B                                                 * 0579 10 25 00 BE    .%.>
           leax   >L0181,PC                                             * 057D 30 8D FC 00    0.|.
           lda    #3                                                    * 0581 86 03          ..
           os9    I$Open                                                * 0583 10 3F 84       .?.
           bcc    L0591                                                 * 0586 24 09          $.
           ldb    #27                                                   * 0588 C6 1B          F.
           os9    I$Create                                              * 058A 10 3F 83       .?.
           lbcs   L063B                                                 * 058D 10 25 00 AA    .%.*
L0591      sta    U0007,U                                               * 0591 A7 47          'G
L0593      leax   >U016B,U                                              * 0593 30 C9 01 6B    0I.k
           ldy    #32                                                   * 0597 10 8E 00 20    ...
           lda    U0007,U                                               * 059B A6 47          &G
           os9    I$Read                                                * 059D 10 3F 89       .?.
           bcs    L05AD                                                 * 05A0 25 0B          %.
           ldd    >U016B,U                                              * 05A2 EC C9 01 6B    lI.k
           cmpd   U000A,U                                               * 05A6 10 A3 4A       .#J
           bne    L0593                                                 * 05A9 26 E8          &h
           bra    L05B6                                                 * 05AB 20 09           .
L05AD      cmpb   #211                                                  * 05AD C1 D3          AS
           lbne   L063B                                                 * 05AF 10 26 00 88    .&..
           lbra   L05F4                                                 * 05B3 16 00 3E       ..>
L05B6      ldd    >U0175,U                                              * 05B6 EC C9 01 75    lI.u
           addd   #1                                                    * 05BA C3 00 01       C..
           std    >U0175,U                                              * 05BD ED C9 01 75    mI.u
           lda    U0007,U                                               * 05C1 A6 47          &G
           ldb    #5                                                    * 05C3 C6 05          F.
           pshs   U                                                     * 05C5 34 40          4@
           os9    I$GetStt                                              * 05C7 10 3F 8D       .?.
           tfr    U,D                                                   * 05CA 1F 30          .0
           subd   #32                                                   * 05CC 83 00 20       ..
           bge    L05D3                                                 * 05CF 2C 02          ,.
           leax   -$01,X                                                * 05D1 30 1F          0.
L05D3      ldu    0,S                                                   * 05D3 EE E4          nd
           tfr    D,Y                                                   * 05D5 1F 02          ..
           lda    U0007,U                                               * 05D7 A6 47          &G
           tfr    Y,U                                                   * 05D9 1F 23          .#
           os9    I$Seek                                                * 05DB 10 3F 88       .?.
           lbcs   L063B                                                 * 05DE 10 25 00 59    .%.Y
           puls   U                                                     * 05E2 35 40          5@
           leax   >U016B,U                                              * 05E4 30 C9 01 6B    0I.k
           ldy    #32                                                   * 05E8 10 8E 00 20    ...
           lda    U0007,U                                               * 05EC A6 47          &G
           os9    I$Write                                               * 05EE 10 3F 8A       .?.
           lbra   L0634                                                 * 05F1 16 00 40       ..@
L05F4      leax   >U016B,U                                              * 05F4 30 C9 01 6B    0I.k
           ldd    #1                                                    * 05F8 CC 00 01       L..
           std    >U016D,U                                              * 05FB ED C9 01 6D    mI.m
           ldd    #0                                                    * 05FF CC 00 00       L..
           std    >U0175,U                                              * 0602 ED C9 01 75    mI.u
           std    >U0177,U                                              * 0606 ED C9 01 77    mI.w
           std    >U017B,U                                              * 060A ED C9 01 7B    mI.{
           std    >U0179,U                                              * 060E ED C9 01 79    mI.y
           ldd    U000A,U                                               * 0612 EC 4A          lJ
           std    >U016B,U                                              * 0614 ED C9 01 6B    mI.k
           leax   >U016F,U                                              * 0618 30 C9 01 6F    0I.o
           os9    F$Time                                                * 061C 10 3F 15       .?.
           lbcs   L063B                                                 * 061F 10 25 00 18    .%..
           leax   >U016B,U                                              * 0623 30 C9 01 6B    0I.k
           ldy    #32                                                   * 0627 10 8E 00 20    ...
           lda    U0007,U                                               * 062B A6 47          &G
           os9    I$Write                                               * 062D 10 3F 8A       .?.
           lbcs   L063B                                                 * 0630 10 25 00 07    .%..
L0634      clrb                                                         * 0634 5F             _
           ldy    U000A,U                                               * 0635 10 AE 4A       ..J
           os9    F$SUser                                               * 0638 10 3F 1C       .?.
L063B      os9    F$Exit                                                * 063B 10 3F 06       .?.
L063E      ldb    #1                                                    * 063E C6 01          F.
           bra    L063B                                                 * 0640 20 F9           y
L0642      lbsr   L079B                                                 * 0642 17 01 56       ..V
           ldb    U0006,U                                               * 0645 E6 46          fF
           leay   B,Y                                                   * 0647 31 A5          1%
           pshs   Y                                                     * 0649 34 20          4
           negb                                                         * 064B 50             P
           sex                                                          * 064C 1D             .
           leay   D,Y                                                   * 064D 31 AB          1+
           clr    U0006,U                                               * 064F 6F 46          oF
           cmpy   #0                                                    * 0651 10 8C 00 00    ....
           lbeq   L0711                                                 * 0655 10 27 00 B8    .'.8
           pshs   Y,X                                                   * 0659 34 30          40
           lda    #13                                                   * 065B 86 0D          ..
L065D      sta    ,X+                                                   * 065D A7 80          '.
           leay   -$01,Y                                                * 065F 31 3F          1?
           bne    L065D                                                 * 0661 26 FA          &z
           puls   Y,X                                                   * 0663 35 30          50
L0665      pshs   Y,X                                                   * 0665 34 30          40
           leax   U0005,U                                               * 0667 30 45          0E
           ldy    #1                                                    * 0669 10 8E 00 01    ....
           clra                                                         * 066D 4F             O
           os9    I$Read                                                * 066E 10 3F 89       .?.
           bcs    L069E                                                 * 0671 25 2B          %+
           lda    U0005,U                                               * 0673 A6 45          &E
           cmpa   #1                                                    * 0675 81 01          ..
           beq    L06A2                                                 * 0677 27 29          ')
           cmpa   #8                                                    * 0679 81 08          ..
           beq    L06C4                                                 * 067B 27 47          'G
           cmpa   #24                                                   * 067D 81 18          ..
           beq    L06E8                                                 * 067F 27 67          'g
           cmpa   #13                                                   * 0681 81 0D          ..
           lbeq   L070F                                                 * 0683 10 27 00 88    .'..
           cmpa   #32                                                   * 0687 81 20          .
           bcs    L069E                                                 * 0689 25 13          %.
           lda    #1                                                    * 068B 86 01          ..
           os9    I$Write                                               * 068D 10 3F 8A       .?.
           puls   Y,X                                                   * 0690 35 30          50
           lda    U0005,U                                               * 0692 A6 45          &E
           sta    ,X+                                                   * 0694 A7 80          '.
           leay   -$01,Y                                                * 0696 31 3F          1?
           lbeq   L0738                                                 * 0698 10 27 00 9C    .'..
           bra    L0665                                                 * 069C 20 C7           G
L069E      puls   Y,X                                                   * 069E 35 30          50
           bra    L0665                                                 * 06A0 20 C3           C
L06A2      puls   Y,X                                                   * 06A2 35 30          50
           leay   -$01,Y                                                * 06A4 31 3F          1?
           beq    L06BF                                                 * 06A6 27 17          '.
           lda    ,X+                                                   * 06A8 A6 80          &.
           cmpa   #13                                                   * 06AA 81 0D          ..
           beq    L06BD                                                 * 06AC 27 0F          '.
           pshs   Y,X                                                   * 06AE 34 30          40
           leax   -$01,X                                                * 06B0 30 1F          0.
           ldy    #1                                                    * 06B2 10 8E 00 01    ....
           lda    #1                                                    * 06B6 86 01          ..
           os9    I$Write                                               * 06B8 10 3F 8A       .?.
           bra    L06A2                                                 * 06BB 20 E5           e
L06BD      leax   -$01,X                                                * 06BD 30 1F          0.
L06BF      leay   $01,Y                                                 * 06BF 31 21          1!
           lbra   L0665                                                 * 06C1 16 FF A1       ..!
L06C4      puls   Y,X                                                   * 06C4 35 30          50
           leay   $01,Y                                                 * 06C6 31 21          1!
           cmpy   0,S                                                   * 06C8 10 AC E4       .,d
           bhi    L06E3                                                 * 06CB 22 16          ".
           pshs   Y,X                                                   * 06CD 34 30          40
           leax   >L017E,PC                                             * 06CF 30 8D FA AB    0.z+
           ldy    #3                                                    * 06D3 10 8E 00 03    ....
           lda    #1                                                    * 06D7 86 01          ..
           os9    I$Write                                               * 06D9 10 3F 8A       .?.
           puls   Y,X                                                   * 06DC 35 30          50
           leax   -$01,X                                                * 06DE 30 1F          0.
           lbra   L0665                                                 * 06E0 16 FF 82       ...
L06E3      leay   -$01,Y                                                * 06E3 31 3F          1?
           lbra   L0665                                                 * 06E5 16 FF 7D       ..}
L06E8      puls   Y,X                                                   * 06E8 35 30          50
           leay   $01,Y                                                 * 06EA 31 21          1!
           cmpy   0,S                                                   * 06EC 10 AC E4       .,d
           bhi    L06E3                                                 * 06EF 22 F2          "r
           pshs   Y,X                                                   * 06F1 34 30          40
           leax   >L017E,PC                                             * 06F3 30 8D FA 87    0.z.
           ldy    #3                                                    * 06F7 10 8E 00 03    ....
           lda    #1                                                    * 06FB 86 01          ..
           os9    I$Write                                               * 06FD 10 3F 8A       .?.
           puls   Y,X                                                   * 0700 35 30          50
           leax   -$01,X                                                * 0702 30 1F          0.
           cmpy   0,S                                                   * 0704 10 AC E4       .,d
           lbhi   L0665                                                 * 0707 10 22 FF 5A    .".Z
           pshs   Y,X                                                   * 070B 34 30          40
           bra    L06E8                                                 * 070D 20 D9           Y
L070F      puls   Y,X                                                   * 070F 35 30          50
L0711      lda    #13                                                   * 0711 86 0D          ..
           sta    ,X+                                                   * 0713 A7 80          '.
           pshs   Y,X                                                   * 0715 34 30          40
           leax   >L017C,PC                                             * 0717 30 8D FA 61    0.za
           ldy    #1                                                    * 071B 10 8E 00 01    ....
           lda    #1                                                    * 071F 86 01          ..
           os9    I$WritLn                                              * 0721 10 3F 8C       .?.
           puls   Y,X                                                   * 0724 35 30          50
           puls   D                                                     * 0726 35 06          5.
           pshs   Y                                                     * 0728 34 20          4
           subd   0,S                                                   * 072A A3 E4          #d
           leas   $02,S                                                 * 072C 32 62          2b
           tfr    D,Y                                                   * 072E 1F 02          ..
           leay   $01,Y                                                 * 0730 31 21          1!
           lbsr   L07B5                                                 * 0732 17 00 80       ...
           rts                                                          * 0735 39             9
           fcc    "50"                                                  * 0736 35 30          50
L0738      puls   D                                                     * 0738 35 06          5.
           pshs   Y                                                     * 073A 34 20          4
           subd   0,S                                                   * 073C A3 E4          #d
           leas   $02,S                                                 * 073E 32 62          2b
           addd   #1                                                    * 0740 C3 00 01       C..
           tfr    D,Y                                                   * 0743 1F 02          ..
           clrb                                                         * 0745 5F             _
L0746      leay   -$01,Y                                                * 0746 31 3F          1?
           beq    L0764                                                 * 0748 27 1A          '.
           lda    ,-X                                                   * 074A A6 82          &.
           cmpa   #32                                                   * 074C 81 20          .
           beq    L0775                                                 * 074E 27 25          '%
           pshs   Y,X                                                   * 0750 34 30          40
           leax   >L017E,PC                                             * 0752 30 8D FA 28    0.z(
           ldy    #3                                                    * 0756 10 8E 00 03    ....
           lda    #1                                                    * 075A 86 01          ..
           os9    I$Write                                               * 075C 10 3F 8A       .?.
           incb                                                         * 075F 5C             \
           puls   Y,X                                                   * 0760 35 30          50
           bra    L0746                                                 * 0762 20 E2           b
L0764      lda    #13                                                   * 0764 86 0D          ..
           sta    <$004F,X                                              * 0766 A7 88 4F       '.O
           ldy    #200                                                  * 0769 10 8E 00 C8    ...H
           lda    #1                                                    * 076D 86 01          ..
           os9    I$WritLn                                              * 076F 10 3F 8C       .?.
           puls   Y                                                     * 0772 35 20          5
           rts                                                          * 0774 39             9
L0775      lda    #13                                                   * 0775 86 0D          ..
           sta    ,X+                                                   * 0777 A7 80          '.
           pshs   Y,X                                                   * 0779 34 30          40
           stb    U0006,U                                               * 077B E7 46          gF
           leay   >U20CB,U                                              * 077D 31 C9 20 CB    1I K
L0781      lda    ,X+                                                   * 0781 A6 80          &.
           sta    ,Y+                                                   * 0783 A7 A0          '
           decb                                                         * 0785 5A             Z
           bne    L0781                                                 * 0786 26 F9          &y
           leax   >L017C,PC                                             * 0788 30 8D F9 F0    0.yp
           ldy    #1                                                    * 078C 10 8E 00 01    ....
           lda    #1                                                    * 0790 86 01          ..
           os9    I$WritLn                                              * 0792 10 3F 8C       .?.
           puls   Y,X                                                   * 0795 35 30          50
           lbsr   L07B5                                                 * 0797 17 00 1B       ...
           rts                                                          * 079A 39             9
L079B      pshs   Y,X,D                                                 * 079B 34 36          46
           leax   >U211B,U                                              * 079D 30 C9 21 1B    0I!.
           clra                                                         * 07A1 4F             O
           ldb    #0                                                    * 07A2 C6 00          F.
           os9    I$GetStt                                              * 07A4 10 3F 8D       .?.
           leax   <$FFE0,X                                              * 07A7 30 88 E0       0.`
           clr    <$0024,X                                              * 07AA 6F 88 24       o.$
           leax   <$0020,X                                              * 07AD 30 88 20       0.
           os9    I$SetStt                                              * 07B0 10 3F 8E       .?.
           puls   PC,Y,X,D                                              * 07B3 35 B6          56
L07B5      pshs   Y,X,D                                                 * 07B5 34 36          46
           leax   >U211B,U                                              * 07B7 30 C9 21 1B    0I!.
           clra                                                         * 07BB 4F             O
           ldb    #0                                                    * 07BC C6 00          F.
           os9    I$GetStt                                              * 07BE 10 3F 8D       .?.
           leax   <$FFE0,X                                              * 07C1 30 88 E0       0.`
           lda    #1                                                    * 07C4 86 01          ..
           sta    <$0024,X                                              * 07C6 A7 88 24       '.$
           leax   <$0020,X                                              * 07C9 30 88 20       0.
           clra                                                         * 07CC 4F             O
           os9    I$SetStt                                              * 07CD 10 3F 8E       .?.
           puls   PC,Y,X,D                                              * 07D0 35 B6          56
L07D2      pshs   Y                                                     * 07D2 34 20          4
L07D4      lda    ,X+                                                   * 07D4 A6 80          &.
           cmpa   #13                                                   * 07D6 81 0D          ..
           lbeq   L087B                                                 * 07D8 10 27 00 9F    .'..
           cmpa   #48                                                   * 07DC 81 30          .0
           bcs    L07D4                                                 * 07DE 25 F4          %t
           cmpa   #57                                                   * 07E0 81 39          .9
           bhi    L07D4                                                 * 07E2 22 F0          "p
           leax   -$01,X                                                * 07E4 30 1F          0.
L07E6      lda    ,X+                                                   * 07E6 A6 80          &.
           cmpa   #48                                                   * 07E8 81 30          .0
           bcs    L07F2                                                 * 07EA 25 06          %.
           cmpa   #57                                                   * 07EC 81 39          .9
           bhi    L07F2                                                 * 07EE 22 02          ".
           bra    L07E6                                                 * 07F0 20 F4           t
L07F2      pshs   X                                                     * 07F2 34 10          4.
           leax   -$01,X                                                * 07F4 30 1F          0.
           clr    <U0016,U                                              * 07F6 6F C8 16       oH.
           clr    <U0017,U                                              * 07F9 6F C8 17       oH.
           ldd    #1                                                    * 07FC CC 00 01       L..
           std    <U0018,U                                              * 07FF ED C8 18       mH.
L0802      lda    ,-X                                                   * 0802 A6 82          &.
           cmpa   #48                                                   * 0804 81 30          .0
           bcs    L083B                                                 * 0806 25 33          %3
           cmpa   #57                                                   * 0808 81 39          .9
           bhi    L083B                                                 * 080A 22 2F          "/
           suba   #48                                                   * 080C 80 30          .0
           sta    U0004,U                                               * 080E A7 44          'D
           ldd    #0                                                    * 0810 CC 00 00       L..
L0813      tst    U0004,U                                               * 0813 6D 44          mD
           beq    L081E                                                 * 0815 27 07          '.
           addd   <U0018,U                                              * 0817 E3 C8 18       cH.
           dec    U0004,U                                               * 081A 6A 44          jD
           bra    L0813                                                 * 081C 20 F5           u
L081E      addd   <U0016,U                                              * 081E E3 C8 16       cH.
           std    <U0016,U                                              * 0821 ED C8 16       mH.
           lda    #10                                                   * 0824 86 0A          ..
           sta    U0004,U                                               * 0826 A7 44          'D
           ldd    #0                                                    * 0828 CC 00 00       L..
L082B      tst    U0004,U                                               * 082B 6D 44          mD
           beq    L0836                                                 * 082D 27 07          '.
           addd   <U0018,U                                              * 082F E3 C8 18       cH.
           dec    U0004,U                                               * 0832 6A 44          jD
           bra    L082B                                                 * 0834 20 F5           u
L0836      std    <U0018,U                                              * 0836 ED C8 18       mH.
           bra    L0802                                                 * 0839 20 C7           G
L083B      ldd    <U0016,U                                              * 083B EC C8 16       lH.
           puls   X                                                     * 083E 35 10          5.
           puls   PC,Y                                                  * 0840 35 A0          5
L0842      pshs   Y                                                     * 0842 34 20          4
           std    <U0016,U                                              * 0844 ED C8 16       mH.
           lda    #48                                                   * 0847 86 30          .0
           sta    0,X                                                   * 0849 A7 84          '.
           sta    $01,X                                                 * 084B A7 01          '.
           ldd    #10                                                   * 084D CC 00 0A       L..
           std    <U0018,U                                              * 0850 ED C8 18       mH.
           ldd    <U0016,U                                              * 0853 EC C8 16       lH.
           bsr    L0869                                                 * 0856 8D 11          ..
           ldd    #1                                                    * 0858 CC 00 01       L..
           std    <U0018,U                                              * 085B ED C8 18       mH.
           ldd    <U0016,U                                              * 085E EC C8 16       lH.
           bsr    L0869                                                 * 0861 8D 06          ..
           lda    #13                                                   * 0863 86 0D          ..
           sta    0,X                                                   * 0865 A7 84          '.
           puls   PC,Y                                                  * 0867 35 A0          5
L0869      subd   <U0018,U                                              * 0869 A3 C8 18       #H.
           bcs    L0872                                                 * 086C 25 04          %.
           inc    0,X                                                   * 086E 6C 84          l.
           bra    L0869                                                 * 0870 20 F7           w
L0872      addd   <U0018,U                                              * 0872 E3 C8 18       cH.
           std    <U0016,U                                              * 0875 ED C8 16       mH.
           leax   $01,X                                                 * 0878 30 01          0.
           rts                                                          * 087A 39             9
L087B      ldd    #-1                                                   * 087B CC FF FF       L..
           puls   PC,Y                                                  * 087E 35 A0          5

           emod
eom        equ    *
           end
