view 3rdparty/packages/os9l2bbs/cmds/Menu.asm @ 3295:6b7a7b233925 default tip

makefile: Allow PORTS with level1/2 mix https://sourceforge.net/p/nitros9/feature-requests/10/
author Tormod Volden <debian.tormod@gmail.com>
date Tue, 19 Apr 2022 18:12:17 +0200 (2022-04-19)
parents f87ec0b216c8
children
line wrap: on
line source
           nam    menu
           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    2
U0007      rmb    2
U0009      rmb    2
U000B      rmb    1
U000C      rmb    1
U000D      rmb    2
U000F      rmb    2
U0011      rmb    2
U0013      rmb    2
U0015      rmb    4
U0019      rmb    4
U001D      rmb    1
U001E      rmb    1
U001F      rmb    1
U0020      rmb    1
U0021      rmb    16
U0031      rmb    8
U0039      rmb    3
U003C      rmb    3
U003F      rmb    3
U0042      rmb    3
U0045      rmb    9
U004E      rmb    23
U0065      rmb    32
U0085      rmb    206
U0153      rmb    40
U017B      rmb    120
U01F3      rmb    3200
U0E73      rmb    2
U0E75      rmb    80
U0EC5      rmb    1
U0EC6      rmb    4449
size       equ    .

name       fcs    /menu/                                                * 000D 6D 65 6E F5    menu
           fcc    "Copyright (C) 1988By Keith AlphonsoLicenced to Alpha Software TechnologiesAll rights reserved" * 0011 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                                                   * 006E EC             l
           fcb    $E6                                                   * 006F E6             f
           fcb    $EA                                                   * 0070 EA             j
           fcb    $F5                                                   * 0071 F5             u
           fcb    $E9                                                   * 0072 E9             i
           fcb    $A0                                                   * 0073 A0
           fcb    $E2                                                   * 0074 E2             b
           fcb    $ED                                                   * 0075 ED             m
           fcb    $F1                                                   * 0076 F1             q
           fcb    $E9                                                   * 0077 E9             i
           fcb    $F0                                                   * 0078 F0             p
           fcb    $EF                                                   * 0079 EF             o
           fcb    $F4                                                   * 007A F4             t
           fcb    $F0                                                   * 007B F0             p
L007C      fcc    "shell"                                               * 007C 73 68 65 6C 6C shell
           fcb    $0D                                                   * 0081 0D             .
L0082      fcc    "Usage is:"                                           * 0082 55 73 61 67 65 20 69 73 3A Usage is:
           fcb    $0A                                                   * 008B 0A             .
           fcc    "MENU <menuname> <cmdname>"                           * 008C 4D 45 4E 55 20 3C 6D 65 6E 75 6E 61 6D 65 3E 20 3C 63 6D 64 6E 61 6D 65 3E MENU <menuname> <cmdname>
           fcb    $0A                                                   * 00A5 0A             .
           fcb    $0D                                                   * 00A6 0D             .
L00A7      fcb    $0A                                                   * 00A7 0A             .
           fcb    $0A                                                   * 00A8 0A             .
           fcb    $0D                                                   * 00A9 0D             .
L00AA      fcc    "Sorry, you do not have access to that option"        * 00AA 53 6F 72 72 79 2C 20 79 6F 75 20 64 6F 20 6E 6F 74 20 68 61 76 65 20 61 63 63 65 73 73 20 74 6F 20 74 68 61 74 20 6F 70 74 69 6F 6E Sorry, you do not have access to that option
           fcb    $0D                                                   * 00D6 0D             .
L00D7      fcc    "A user priority level has been specified incorrectly!" * 00D7 41 20 75 73 65 72 20 70 72 69 6F 72 69 74 79 20 6C 65 76 65 6C 20 68 61 73 20 62 65 65 6E 20 73 70 65 63 69 66 69 65 64 20 69 6E 63 6F 72 72 65 63 74 6C 79 21 A user priority level has been specified incorrectly!
           fcb    $0D                                                   * 010C 0D             .
L010D      fcc    "/dd/bbs/BBS.userstats"                               * 010D 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                                                   * 0122 0D             .
L0123      fcc    "I'm sorry, but your time has expired!"               * 0123 49 27 6D 20 73 6F 72 72 79 2C 20 62 75 74 20 79 6F 75 72 20 74 69 6D 65 20 68 61 73 20 65 78 70 69 72 65 64 21 I'm sorry, but your time has expired!
           fcb    $0D                                                   * 0148 0D             .
L0149      fcc    "WARNING!!  You have only a few minutes left online!" * 0149 57 41 52 4E 49 4E 47 21 21 20 20 59 6F 75 20 68 61 76 65 20 6F 6E 6C 79 20 61 20 66 65 77 20 6D 69 6E 75 74 65 73 20 6C 65 66 74 20 6F 6E 6C 69 6E 65 21 WARNING!!  You have only a few minutes left online!
           fcb    $0D                                                   * 017C 0D             .
L017D      fcb    $1F                                                   * 017D 1F             .
           fcb    $1C                                                   * 017E 1C             .
           fcb    $1F                                                   * 017F 1F             .
           fcb    $1E                                                   * 0180 1E             .
           fcb    $1F                                                   * 0181 1F             .
           fcb    $1E                                                   * 0182 1E             .
           fcb    $1F                                                   * 0183 1F             .
           fcb    $1F                                                   * 0184 1F             .
           fcb    $1E                                                   * 0185 1E             .
           fcb    $1F                                                   * 0186 1F             .
           fcb    $1E                                                   * 0187 1E             .
           fcb    $1F                                                   * 0188 1F             .
start      pshs   U,Y,X,D                                               * 0189 34 76          4v
           os9    F$ID                                                  * 018B 10 3F 0C       .?.
           sty    <U0013,U                                              * 018E 10 AF C8 13    ./H.
           puls   U,Y,X,D                                               * 0192 35 76          5v
           ldd    #2573                                                 * 0194 CC 0A 0D       L..
           std    >U0E73,U                                              * 0197 ED C9 0E 73    mI.s
           sty    U000B,U                                               * 019B 10 AF 4B       ./K
           leay   <U0045,U                                              * 019E 31 C8 45       1HE
L01A1      lda    ,X+                                                   * 01A1 A6 80          &.
           cmpx   U000B,U                                               * 01A3 AC 4B          ,K
           lbhi   L0586                                                 * 01A5 10 22 03 DD    .".]
           sta    ,Y+                                                   * 01A9 A7 A0          '
           cmpa   #32                                                   * 01AB 81 20          .
           bne    L01A1                                                 * 01AD 26 F2          &r
           lda    #13                                                   * 01AF 86 0D          ..
           sta    -$01,Y                                                * 01B1 A7 3F          '?
           leay   <U0065,U                                              * 01B3 31 C8 65       1He
L01B6      lda    ,X+                                                   * 01B6 A6 80          &.
           cmpx   U000B,U                                               * 01B8 AC 4B          ,K
           lbhi   L0586                                                 * 01BA 10 22 03 C8    .".H
           sta    ,Y+                                                   * 01BE A7 A0          '
           cmpa   #13                                                   * 01C0 81 0D          ..
           bne    L01B6                                                 * 01C2 26 F2          &r
           leax   >L010D,PC                                             * 01C4 30 8D FF 45    0..E
           lda    #1                                                    * 01C8 86 01          ..
           os9    I$Open                                                * 01CA 10 3F 84       .?.
           lbcs   L027C                                                 * 01CD 10 25 00 AB    .%.+
           sta    U0000,U                                               * 01D1 A7 C4          'D
L01D3      leax   <U0019,U                                              * 01D3 30 C8 19       0H.
           ldy    #32                                                   * 01D6 10 8E 00 20    ...
           lda    U0000,U                                               * 01DA A6 C4          &D
           os9    I$Read                                                * 01DC 10 3F 89       .?.
           bcs    L01EC                                                 * 01DF 25 0B          %.
           ldd    <U0013,U                                              * 01E1 EC C8 13       lH.
           cmpd   <U0019,U                                              * 01E4 10 A3 C8 19    .#H.
           bne    L01D3                                                 * 01E8 26 E9          &i
           bra    L01F4                                                 * 01EA 20 08           .
L01EC      lda    U0000,U                                               * 01EC A6 C4          &D
           os9    I$Close                                               * 01EE 10 3F 8F       .?.
           lbra   L027C                                                 * 01F1 16 00 88       ...
L01F4      ldd    <U0031,U                                              * 01F4 EC C8 31       lH1
           cmpd   #0                                                    * 01F7 10 83 00 00    ....
           lbeq   L0277                                                 * 01FB 10 27 00 78    .'.x
           ldb    <U0021,U                                              * 01FF E6 C8 21       fH!
           clra                                                         * 0202 4F             O
           addd   <U0031,U                                              * 0203 E3 C8 31       cH1
           cmpd   #60                                                   * 0206 10 83 00 3C    ...<
           bcs    L0263                                                 * 020A 25 57          %W
L020C      subd   #60                                                   * 020C 83 00 3C       ..<
           pshs   D                                                     * 020F 34 06          4.
           lda    <U0020,U                                              * 0211 A6 C8 20       &H
           inca                                                         * 0214 4C             L
           cmpa   #24                                                   * 0215 81 18          ..
           bcs    L0258                                                 * 0217 25 3F          %?
           clr    <U0020,U                                              * 0219 6F C8 20       oH
           lda    <U001F,U                                              * 021C A6 C8 1F       &H.
           inca                                                         * 021F 4C             L
           leax   >L017D,PC                                             * 0220 30 8D FF 59    0..Y
           ldb    <U001E,U                                              * 0224 E6 C8 1E       fH.
           decb                                                         * 0227 5A             Z
           leax   B,X                                                   * 0228 30 85          0.
           cmpa   0,X                                                   * 022A A1 84          !.
           bcs    L0253                                                 * 022C 25 25          %%
           lda    #1                                                    * 022E 86 01          ..
           sta    <U001F,U                                              * 0230 A7 C8 1F       'H.
           lda    <U001E,U                                              * 0233 A6 C8 1E       &H.
           inca                                                         * 0236 4C             L
           cmpa   #12                                                   * 0237 81 0C          ..
           blt    L024E                                                 * 0239 2D 13          -.
           lda    #1                                                    * 023B 86 01          ..
           sta    <U001E,U                                              * 023D A7 C8 1E       'H.
           lda    <U001D,U                                              * 0240 A6 C8 1D       &H.
           inca                                                         * 0243 4C             L
           cmpa   #100                                                  * 0244 81 64          .d
           bcs    L0249                                                 * 0246 25 01          %.
           clra                                                         * 0248 4F             O
L0249      sta    <U001D,U                                              * 0249 A7 C8 1D       'H.
           bra    L025B                                                 * 024C 20 0D           .
L024E      sta    <U001E,U                                              * 024E A7 C8 1E       'H.
           bra    L025B                                                 * 0251 20 08           .
L0253      sta    <U001F,U                                              * 0253 A7 C8 1F       'H.
           bra    L025B                                                 * 0256 20 03           .
L0258      sta    <U0020,U                                              * 0258 A7 C8 20       'H
L025B      puls   D                                                     * 025B 35 06          5.
           cmpd   #60                                                   * 025D 10 83 00 3C    ...<
           bcc    L020C                                                 * 0261 24 A9          $)
L0263      stb    <U0021,U                                              * 0263 E7 C8 21       gH!
           lda    #6                                                    * 0266 86 06          ..
           leax   <U001D,U                                              * 0268 30 C8 1D       0H.
           leay   <U003F,U                                              * 026B 31 C8 3F       1H?
L026E      ldb    ,X+                                                   * 026E E6 80          f.
           stb    ,Y+                                                   * 0270 E7 A0          g
           deca                                                         * 0272 4A             J
           bne    L026E                                                 * 0273 26 F9          &y
           bra    L027C                                                 * 0275 20 05           .
L0277      lda    #101                                                  * 0277 86 65          .e
           sta    <U003F,U                                              * 0279 A7 C8 3F       'H?
L027C      leax   >U0153,U                                              * 027C 30 C9 01 53    0I.S
           stx    U0005,U                                               * 0280 AF 45          /E
           leax   >U01F3,U                                              * 0282 30 C9 01 F3    0I.s
           stx    U0007,U                                               * 0286 AF 47          /G
           leax   >U017B,U                                              * 0288 30 C9 01 7B    0I.{
           stx    U0009,U                                               * 028C AF 49          /I
           leax   <U0065,U                                              * 028E 30 C8 65       0He
           lda    #1                                                    * 0291 86 01          ..
           os9    I$Open                                                * 0293 10 3F 84       .?.
           lbcs   L0594                                                 * 0296 10 25 02 FA    .%.z
           sta    U0002,U                                               * 029A A7 42          'B
L029C      ldx    U0005,U                                               * 029C AE 45          .E
           ldy    #1                                                    * 029E 10 8E 00 01    ....
           os9    I$Read                                                * 02A2 10 3F 89       .?.
           ldb    0,X                                                   * 02A5 E6 84          f.
           cmpb   #47                                                   * 02A7 C1 2F          A/
           beq    L02F4                                                 * 02A9 27 49          'I
           cmpb   #62                                                   * 02AB C1 3E          A>
           lbeq   L03AB                                                 * 02AD 10 27 00 FA    .'.z
           cmpb   #60                                                   * 02B1 C1 3C          A<
           lbeq   L03AB                                                 * 02B3 10 27 00 F4    .'.t
           cmpb   #61                                                   * 02B7 C1 3D          A=
           lbeq   L03AB                                                 * 02B9 10 27 00 EE    .'.n
           ldy    U0009,U                                               * 02BD 10 AE 49       ..I
           pshs   D                                                     * 02C0 34 06          4.
           lda    #45                                                   * 02C2 86 2D          .-
           sta    ,Y+                                                   * 02C4 A7 A0          '
           ldd    #-1                                                   * 02C6 CC FF FF       L..
           std    ,Y++                                                  * 02C9 ED A1          m!
           puls   D                                                     * 02CB 35 06          5.
           sty    U0009,U                                               * 02CD 10 AF 49       ./I
L02D0      cmpb   #97                                                   * 02D0 C1 61          Aa
           bcs    L02D8                                                 * 02D2 25 04          %.
           andb   #223                                                  * 02D4 C4 DF          D_
           stb    0,X                                                   * 02D6 E7 84          g.
L02D8      leax   $01,X                                                 * 02D8 30 01          0.
           stx    U0005,U                                               * 02DA AF 45          /E
           ldx    U0007,U                                               * 02DC AE 47          .G
           ldy    #80                                                   * 02DE 10 8E 00 50    ...P
           os9    I$ReadLn                                              * 02E2 10 3F 8B       .?.
           lbcs   L0594                                                 * 02E5 10 25 02 AB    .%.+
           sty    <$004E,X                                              * 02E9 10 AF 88 4E    ./.N
           leax   <$0050,X                                              * 02ED 30 88 50       0.P
           stx    U0007,U                                               * 02F0 AF 47          /G
           bra    L029C                                                 * 02F2 20 A8           (
L02F4      leax   >U0E75,U                                              * 02F4 30 C9 0E 75    0I.u
           ldy    #80                                                   * 02F8 10 8E 00 50    ...P
           os9    I$ReadLn                                              * 02FC 10 3F 8B       .?.
           lbcs   L0594                                                 * 02FF 10 25 02 91    .%..
           sty    <U0011,U                                              * 0303 10 AF C8 11    ./H.
           ldx    U0005,U                                               * 0307 AE 45          .E
           lda    #255                                                  * 0309 86 FF          ..
           sta    0,X                                                   * 030B A7 84          '.
           lda    U0002,U                                               * 030D A6 42          &B
           os9    I$Close                                               * 030F 10 3F 8F       .?.
           lbcs   L0594                                                 * 0312 10 25 02 7E    .%.~
           leax   <U0045,U                                              * 0316 30 C8 45       0HE
           lda    #1                                                    * 0319 86 01          ..
           os9    I$Open                                                * 031B 10 3F 84       .?.
           lbcs   L0594                                                 * 031E 10 25 02 72    .%.r
           sta    U0001,U                                               * 0322 A7 41          'A
           leax   >U0EC5,U                                              * 0324 30 C9 0E C5    0I.E
           ldy    #4000                                                 * 0328 10 8E 0F A0    ...
           lda    U0001,U                                               * 032C A6 41          &A
           os9    I$Read                                                * 032E 10 3F 89       .?.
           sty    <U0015,U                                              * 0331 10 AF C8 15    ./H.
           lbcs   L0594                                                 * 0335 10 25 02 5B    .%.[
           os9    I$Close                                               * 0339 10 3F 8F       .?.
           stx    U000B,U                                               * 033C AF 4B          /K
           tfr    Y,D                                                   * 033E 1F 20          .
           leax   D,X                                                   * 0340 30 8B          0.
           stx    U000F,U                                               * 0342 AF 4F          /O
           ldx    U000B,U                                               * 0344 AE 4B          .K
           ldy    #1                                                    * 0346 10 8E 00 01    ....
L034A      pshs   X                                                     * 034A 34 10          4.
           lda    #1                                                    * 034C 86 01          ..
           ldb    #1                                                    * 034E C6 01          F.
           os9    I$GetStt                                              * 0350 10 3F 8D       .?.
           lbcc   L0440                                                 * 0353 10 24 00 E9    .$.i
           ldy    <U0015,U                                              * 0357 10 AE C8 15    ..H.
           ldx    0,S                                                   * 035B AE E4          .d
L035D      lda    ,X+                                                   * 035D A6 80          &.
           cmpa   #13                                                   * 035F 81 0D          ..
           beq    L0374                                                 * 0361 27 11          '.
           leay   -$01,Y                                                * 0363 31 3F          1?
           bne    L035D                                                 * 0365 26 F6          &v
           puls   X                                                     * 0367 35 10          5.
           lda    #1                                                    * 0369 86 01          ..
           ldy    <U0015,U                                              * 036B 10 AE C8 15    ..H.
           os9    I$Write                                               * 036F 10 3F 8A       .?.
           bra    L037F                                                 * 0372 20 0B           .
L0374      puls   X                                                     * 0374 35 10          5.
           lda    #1                                                    * 0376 86 01          ..
           ldy    <U0015,U                                              * 0378 10 AE C8 15    ..H.
           os9    I$WritLn                                              * 037C 10 3F 8C       .?.
L037F      lbcs   L0594                                                 * 037F 10 25 02 11    .%..
           pshs   Y                                                     * 0383 34 20          4
           ldd    <U0015,U                                              * 0385 EC C8 15       lH.
           subd   0,S                                                   * 0388 A3 E4          #d
           std    <U0015,U                                              * 038A ED C8 15       mH.
           cmpd   #0                                                    * 038D 10 83 00 00    ....
           ble    L03A8                                                 * 0391 2F 15          /.
           puls   D                                                     * 0393 35 06          5.
           leax   D,X                                                   * 0395 30 8B          0.
           lda    #1                                                    * 0397 86 01          ..
           ldb    #1                                                    * 0399 C6 01          F.
           os9    I$GetStt                                              * 039B 10 3F 8D       .?.
           lbcc   L0440                                                 * 039E 10 24 00 9E    .$..
           cmpx   U000F,U                                               * 03A2 AC 4F          ,O
           bhi    L03A8                                                 * 03A4 22 02          ".
           bra    L034A                                                 * 03A6 20 A2           "
L03A8      lbra   L03F9                                                 * 03A8 16 00 4E       ..N
L03AB      pshs   X,A                                                   * 03AB 34 12          4.
           ldy    U0009,U                                               * 03AD 10 AE 49       ..I
           stb    ,Y+                                                   * 03B0 E7 A0          g
           leax   >U0085,U                                              * 03B2 30 C9 00 85    0I..
           pshs   Y                                                     * 03B6 34 20          4
           ldy    #6                                                    * 03B8 10 8E 00 06    ....
           os9    I$Read                                                * 03BC 10 3F 89       .?.
           leax   >U0085,U                                              * 03BF 30 C9 00 85    0I..
           lbsr   L0597                                                 * 03C3 17 01 D1       ..Q
           puls   Y                                                     * 03C6 35 20          5
           std    ,Y++                                                  * 03C8 ED A1          m!
           sty    U0009,U                                               * 03CA 10 AF 49       ./I
           puls   X,A                                                   * 03CD 35 12          5.
           ldy    #1                                                    * 03CF 10 8E 00 01    ....
           os9    I$Read                                                * 03D3 10 3F 89       .?.
           ldb    0,X                                                   * 03D6 E6 84          f.
           lbra   L02D0                                                 * 03D8 16 FE F5       .~u
L03DB      leax   >L0123,PC                                             * 03DB 30 8D FD 44    0.}D
           ldy    #200                                                  * 03DF 10 8E 00 C8    ...H
           lda    #1                                                    * 03E3 86 01          ..
           os9    I$WritLn                                              * 03E5 10 3F 8C       .?.
           lbra   L0582                                                 * 03E8 16 01 97       ...
L03EB      leax   >L0149,PC                                             * 03EB 30 8D FD 5A    0.}Z
           ldy    #200                                                  * 03EF 10 8E 00 C8    ...H
           lda    #1                                                    * 03F3 86 01          ..
           os9    I$WritLn                                              * 03F5 10 3F 8C       .?.
           rts                                                          * 03F8 39             9
L03F9      leax   <U0039,U                                              * 03F9 30 C8 39       0H9
           os9    F$Time                                                * 03FC 10 3F 15       .?.
           ldb    #6                                                    * 03FF C6 06          F.
           leax   <U0039,U                                              * 0401 30 C8 39       0H9
           leay   <U003F,U                                              * 0404 31 C8 3F       1H?
L0407      lda    ,X+                                                   * 0407 A6 80          &.
           cmpa   ,Y+                                                   * 0409 A1 A0          !
           lbhi   L03DB                                                 * 040B 10 22 FF CC    .".L
           bcs    L0414                                                 * 040F 25 03          %.
           decb                                                         * 0411 5A             Z
           bne    L0407                                                 * 0412 26 F3          &s
L0414      cmpb   #3                                                    * 0414 C1 03          A.
           bgt    L0431                                                 * 0416 2E 19          ..
           ldd    <U003C,U                                              * 0418 EC C8 3C       lH<
           addb   #5                                                    * 041B CB 05          K.
           cmpb   #60                                                   * 041D C1 3C          A<
           bcs    L0429                                                 * 041F 25 08          %.
           subb   #60                                                   * 0421 C0 3C          @<
           inca                                                         * 0423 4C             L
           cmpa   #24                                                   * 0424 81 18          ..
           bcs    L0429                                                 * 0426 25 01          %.
           clra                                                         * 0428 4F             O
L0429      cmpd   <U0042,U                                              * 0429 10 A3 C8 42    .#HB
           bls    L0431                                                 * 042D 23 02          #.
           bsr    L03EB                                                 * 042F 8D BA          .:
L0431      leax   >U0E75,U                                              * 0431 30 C9 0E 75    0I.u
           ldy    <U0011,U                                              * 0435 10 AE C8 11    ..H.
           leay   -$01,Y                                                * 0439 31 3F          1?
           lda    #1                                                    * 043B 86 01          ..
           os9    I$Write                                               * 043D 10 3F 8A       .?.
L0440      leax   U0003,U                                               * 0440 30 43          0C
           ldy    #1                                                    * 0442 10 8E 00 01    ....
           clra                                                         * 0446 4F             O
           os9    I$Read                                                * 0447 10 3F 89       .?.
           ldy    #2                                                    * 044A 10 8E 00 02    ....
           lda    #1                                                    * 044E 86 01          ..
           pshs   X                                                     * 0450 34 10          4.
           leax   >L00A7,PC                                             * 0452 30 8D FC 51    0.|Q
           os9    I$WritLn                                              * 0456 10 3F 8C       .?.
           puls   X                                                     * 0459 35 10          5.
           lda    0,X                                                   * 045B A6 84          &.
           cmpa   #63                                                   * 045D 81 3F          .?
           lbeq   L027C                                                 * 045F 10 27 FE 19    .'~.
           cmpa   #97                                                   * 0463 81 61          .a
           bcs    L046B                                                 * 0465 25 04          %.
           anda   #223                                                  * 0467 84 DF          ._
           sta    0,X                                                   * 0469 A7 84          '.
L046B      lda    0,X                                                   * 046B A6 84          &.
           leax   >U0153,U                                              * 046D 30 C9 01 53    0I.S
           clrb                                                         * 0471 5F             _
L0472      tst    0,X                                                   * 0472 6D 84          m.
           bmi    L03F9                                                 * 0474 2B 83          +.
           cmpa   ,X+                                                   * 0476 A1 80          !.
           beq    L0482                                                 * 0478 27 08          '.
           incb                                                         * 047A 5C             \
           cmpb   #40                                                   * 047B C1 28          A(
           bls    L0472                                                 * 047D 23 F3          #s
           lbra   L03F9                                                 * 047F 16 FF 77       ..w
L0482      pshs   B                                                     * 0482 34 04          4.
           lda    #3                                                    * 0484 86 03          ..
           mul                                                          * 0486 3D             =
           leax   >U017B,U                                              * 0487 30 C9 01 7B    0I.{
           leax   D,X                                                   * 048B 30 8B          0.
           lda    ,X+                                                   * 048D A6 80          &.
           cmpa   #60                                                   * 048F 81 3C          .<
           beq    L04DF                                                 * 0491 27 4C          'L
           cmpa   #62                                                   * 0493 81 3E          .>
           beq    L04EF                                                 * 0495 27 58          'X
           cmpa   #61                                                   * 0497 81 3D          .=
           beq    L04FF                                                 * 0499 27 64          'd
L049B      puls   B                                                     * 049B 35 04          5.
           lda    #80                                                   * 049D 86 50          .P
           mul                                                          * 049F 3D             =
           pshs   U                                                     * 04A0 34 40          4@
           leau   >U01F3,U                                              * 04A2 33 C9 01 F3    3I.s
           leau   D,U                                                   * 04A6 33 CB          3K
           lda    U0001,U                                               * 04A8 A6 41          &A
           anda   #223                                                  * 04AA 84 DF          ._
           cmpa   #67                                                   * 04AC 81 43          .C
           bne    L04CC                                                 * 04AE 26 1C          &.
           lda    U0002,U                                               * 04B0 A6 42          &B
           anda   #223                                                  * 04B2 84 DF          ._
           cmpa   #72                                                   * 04B4 81 48          .H
           bne    L04CC                                                 * 04B6 26 14          &.
           lda    U0003,U                                               * 04B8 A6 43          &C
           anda   #223                                                  * 04BA 84 DF          ._
           cmpa   #77                                                   * 04BC 81 4D          .M
           lbeq   L0557                                                 * 04BE 10 27 00 95    .'..
           cmpa   #88                                                   * 04C2 81 58          .X
           lbeq   L0549                                                 * 04C4 10 27 00 81    .'..
           cmpa   #68                                                   * 04C8 81 44          .D
           beq    L053B                                                 * 04CA 27 6F          'o
L04CC      lda    U0001,U                                               * 04CC A6 41          &A
           anda   #223                                                  * 04CE 84 DF          ._
           cmpa   #69                                                   * 04D0 81 45          .E
           bne    L051F                                                 * 04D2 26 4B          &K
           lda    U0002,U                                               * 04D4 A6 42          &B
           anda   #223                                                  * 04D6 84 DF          ._
           cmpa   #88                                                   * 04D8 81 58          .X
           bne    L051F                                                 * 04DA 26 43          &C
           lbra   L0582                                                 * 04DC 16 00 A3       ..#
L04DF      ldd    <U0013,U                                              * 04DF EC C8 13       lH.
           lbeq   L049B                                                 * 04E2 10 27 FF B5    .'.5
           cmpd   0,X                                                   * 04E6 10 A3 84       .#.
           lbcs   L049B                                                 * 04E9 10 25 FF AE    .%..
           bra    L050D                                                 * 04ED 20 1E           .
L04EF      ldd    <U0013,U                                              * 04EF EC C8 13       lH.
           lbeq   L049B                                                 * 04F2 10 27 FF A5    .'.%
           cmpd   0,X                                                   * 04F6 10 A3 84       .#.
           lbhi   L049B                                                 * 04F9 10 22 FF 9E    ."..
           bra    L050D                                                 * 04FD 20 0E           .
L04FF      ldd    <U0013,U                                              * 04FF EC C8 13       lH.
           lbeq   L049B                                                 * 0502 10 27 FF 95    .'..
           cmpd   0,X                                                   * 0506 10 A3 84       .#.
           lbeq   L049B                                                 * 0509 10 27 FF 8E    .'..
L050D      leax   >L00AA,PC                                             * 050D 30 8D FB 99    0.{.
           ldy    #200                                                  * 0511 10 8E 00 C8    ...H
           lda    #1                                                    * 0515 86 01          ..
           os9    I$WritLn                                              * 0517 10 3F 8C       .?.
           puls   B                                                     * 051A 35 04          5.
           lbra   L03F9                                                 * 051C 16 FE DA       .~Z
L051F      ldy    <U004E,U                                              * 051F 10 AE C8 4E    ..HN
           leax   >L007C,PC                                             * 0523 30 8D FB 55    0.{U
           ldb    #3                                                    * 0527 C6 03          F.
           lda    #17                                                   * 0529 86 11          ..
           os9    F$Fork                                                * 052B 10 3F 03       .?.
           puls   U                                                     * 052E 35 40          5@
           bcc    L0535                                                 * 0530 24 03          $.
           os9    F$PErr                                                * 0532 10 3F 0F       .?.
L0535      os9    F$Wait                                                * 0535 10 3F 04       .?.
           lbra   L03F9                                                 * 0538 16 FE BE       .~>
L053B      tfr    U,X                                                   * 053B 1F 31          .1
           puls   U                                                     * 053D 35 40          5@
           leax   $04,X                                                 * 053F 30 04          0.
           lda    #1                                                    * 0541 86 01          ..
           os9    I$ChgDir                                              * 0543 10 3F 86       .?.
           lbra   L027C                                                 * 0546 16 FD 33       .}3
L0549      tfr    U,X                                                   * 0549 1F 31          .1
           puls   U                                                     * 054B 35 40          5@
           leax   $04,X                                                 * 054D 30 04          0.
           lda    #4                                                    * 054F 86 04          ..
           os9    I$ChgDir                                              * 0551 10 3F 86       .?.
           lbra   L027C                                                 * 0554 16 FD 25       .}%
L0557      tfr    U,X                                                   * 0557 1F 31          .1
           puls   U                                                     * 0559 35 40          5@
           leay   <U0045,U                                              * 055B 31 C8 45       1HE
           leax   $04,X                                                 * 055E 30 04          0.
L0560      lda    ,X+                                                   * 0560 A6 80          &.
           cmpa   #32                                                   * 0562 81 20          .
           beq    L0560                                                 * 0564 27 FA          'z
           leax   -$01,X                                                * 0566 30 1F          0.
L0568      lda    ,X+                                                   * 0568 A6 80          &.
           sta    ,Y+                                                   * 056A A7 A0          '
           cmpa   #32                                                   * 056C 81 20          .
           bne    L0568                                                 * 056E 26 F8          &x
           lda    #13                                                   * 0570 86 0D          ..
           sta    -$01,Y                                                * 0572 A7 3F          '?
           leay   <U0065,U                                              * 0574 31 C8 65       1He
L0577      lda    ,X+                                                   * 0577 A6 80          &.
           sta    ,Y+                                                   * 0579 A7 A0          '
           cmpa   #13                                                   * 057B 81 0D          ..
           bne    L0577                                                 * 057D 26 F8          &x
           lbra   L027C                                                 * 057F 16 FC FA       .|z
L0582      clrb                                                         * 0582 5F             _
           os9    F$Exit                                                * 0583 10 3F 06       .?.
L0586      leax   >L0082,PC                                             * 0586 30 8D FA F8    0.zx
           ldy    #200                                                  * 058A 10 8E 00 C8    ...H
           lda    #1                                                    * 058E 86 01          ..
           os9    I$WritLn                                              * 0590 10 3F 8C       .?.
           clrb                                                         * 0593 5F             _
L0594      os9    F$Exit                                                * 0594 10 3F 06       .?.
L0597      pshs   Y                                                     * 0597 34 20          4
L0599      lda    ,X+                                                   * 0599 A6 80          &.
           cmpa   #13                                                   * 059B 81 0D          ..
           lbeq   L064E                                                 * 059D 10 27 00 AD    .'.-
           cmpa   #48                                                   * 05A1 81 30          .0
           bcs    L0599                                                 * 05A3 25 F4          %t
           cmpa   #57                                                   * 05A5 81 39          .9
           bhi    L0599                                                 * 05A7 22 F0          "p
           leax   -$01,X                                                * 05A9 30 1F          0.
L05AB      lda    ,X+                                                   * 05AB A6 80          &.
           cmpa   #48                                                   * 05AD 81 30          .0
           bcs    L05B7                                                 * 05AF 25 06          %.
           cmpa   #57                                                   * 05B1 81 39          .9
           bhi    L05B7                                                 * 05B3 22 02          ".
           bra    L05AB                                                 * 05B5 20 F4           t
L05B7      pshs   X                                                     * 05B7 34 10          4.
           leax   -$01,X                                                * 05B9 30 1F          0.
           clr    U000B,U                                               * 05BB 6F 4B          oK
           clr    U000C,U                                               * 05BD 6F 4C          oL
           ldd    #1                                                    * 05BF CC 00 01       L..
           std    U000D,U                                               * 05C2 ED 4D          mM
L05C4      lda    ,-X                                                   * 05C4 A6 82          &.
           cmpa   #48                                                   * 05C6 81 30          .0
           bcs    L05F8                                                 * 05C8 25 2E          %.
           cmpa   #57                                                   * 05CA 81 39          .9
           bhi    L05F8                                                 * 05CC 22 2A          "*
           suba   #48                                                   * 05CE 80 30          .0
           sta    U0004,U                                               * 05D0 A7 44          'D
           ldd    #0                                                    * 05D2 CC 00 00       L..
L05D5      tst    U0004,U                                               * 05D5 6D 44          mD
           beq    L05DF                                                 * 05D7 27 06          '.
           addd   U000D,U                                               * 05D9 E3 4D          cM
           dec    U0004,U                                               * 05DB 6A 44          jD
           bra    L05D5                                                 * 05DD 20 F6           v
L05DF      addd   U000B,U                                               * 05DF E3 4B          cK
           std    U000B,U                                               * 05E1 ED 4B          mK
           lda    #10                                                   * 05E3 86 0A          ..
           sta    U0004,U                                               * 05E5 A7 44          'D
           ldd    #0                                                    * 05E7 CC 00 00       L..
L05EA      tst    U0004,U                                               * 05EA 6D 44          mD
           beq    L05F4                                                 * 05EC 27 06          '.
           addd   U000D,U                                               * 05EE E3 4D          cM
           dec    U0004,U                                               * 05F0 6A 44          jD
           bra    L05EA                                                 * 05F2 20 F6           v
L05F4      std    U000D,U                                               * 05F4 ED 4D          mM
           bra    L05C4                                                 * 05F6 20 CC           L
L05F8      ldd    U000B,U                                               * 05F8 EC 4B          lK
           puls   X                                                     * 05FA 35 10          5.
           puls   PC,Y                                                  * 05FC 35 A0          5
           fcb    $ED                                                   * 05FE ED             m
           fcb    $4B                                                   * 05FF 4B             K
           fcb    $86                                                   * 0600 86             .
           fcb    $30                                                   * 0601 30             0
           fcb    $A7                                                   * 0602 A7             '
           fcb    $84                                                   * 0603 84             .
           fcb    $A7                                                   * 0604 A7             '
           fcb    $01                                                   * 0605 01             .
           fcb    $A7                                                   * 0606 A7             '
           fcb    $02                                                   * 0607 02             .
           fcb    $A7                                                   * 0608 A7             '
           fcb    $03                                                   * 0609 03             .
           fcb    $A7                                                   * 060A A7             '
           fcb    $04                                                   * 060B 04             .
           fcb    $CC                                                   * 060C CC             L
           fcb    $27                                                   * 060D 27             '
           fcb    $10                                                   * 060E 10             .
           fcb    $ED                                                   * 060F ED             m
           fcb    $4D                                                   * 0610 4D             M
           fcb    $EC                                                   * 0611 EC             l
           fcb    $4B                                                   * 0612 4B             K
           fcb    $17                                                   * 0613 17             .
           fcb    $00                                                   * 0614 00             .
           fcb    $29                                                   * 0615 29             )
           fcb    $CC                                                   * 0616 CC             L
           fcb    $03                                                   * 0617 03             .
           fcb    $E8                                                   * 0618 E8             h
           fcb    $ED                                                   * 0619 ED             m
           fcb    $4D                                                   * 061A 4D             M
           fcb    $EC                                                   * 061B EC             l
           fcb    $4B                                                   * 061C 4B             K
           fcb    $8D                                                   * 061D 8D             .
           fcb    $20                                                   * 061E 20
           fcb    $CC                                                   * 061F CC             L
           fcb    $00                                                   * 0620 00             .
           fcb    $64                                                   * 0621 64             d
           fcb    $ED                                                   * 0622 ED             m
           fcb    $4D                                                   * 0623 4D             M
           fcb    $EC                                                   * 0624 EC             l
           fcb    $4B                                                   * 0625 4B             K
           fcb    $8D                                                   * 0626 8D             .
           fcb    $17                                                   * 0627 17             .
           fcb    $CC                                                   * 0628 CC             L
           fcb    $00                                                   * 0629 00             .
           fcb    $0A                                                   * 062A 0A             .
           fcb    $ED                                                   * 062B ED             m
           fcb    $4D                                                   * 062C 4D             M
           fcb    $EC                                                   * 062D EC             l
           fcb    $4B                                                   * 062E 4B             K
           fcb    $8D                                                   * 062F 8D             .
           fcb    $0E                                                   * 0630 0E             .
           fcb    $CC                                                   * 0631 CC             L
           fcb    $00                                                   * 0632 00             .
           fcb    $01                                                   * 0633 01             .
           fcb    $ED                                                   * 0634 ED             m
           fcb    $4D                                                   * 0635 4D             M
           fcb    $EC                                                   * 0636 EC             l
           fcb    $4B                                                   * 0637 4B             K
           fcb    $8D                                                   * 0638 8D             .
           fcb    $05                                                   * 0639 05             .
           fcb    $86                                                   * 063A 86             .
           fcb    $0D                                                   * 063B 0D             .
           fcb    $A7                                                   * 063C A7             '
           fcb    $84                                                   * 063D 84             .
           fcb    $39                                                   * 063E 39             9
           fcb    $A3                                                   * 063F A3             #
           fcb    $4D                                                   * 0640 4D             M
           fcb    $25                                                   * 0641 25             %
           fcb    $04                                                   * 0642 04             .
           fcb    $6C                                                   * 0643 6C             l
           fcb    $84                                                   * 0644 84             .
           fcb    $20                                                   * 0645 20
           fcb    $F8                                                   * 0646 F8             x
           fcb    $E3                                                   * 0647 E3             c
           fcb    $4D                                                   * 0648 4D             M
           fcb    $ED                                                   * 0649 ED             m
           fcb    $4B                                                   * 064A 4B             K
           fcb    $30                                                   * 064B 30             0
           fcb    $01                                                   * 064C 01             .
           fcb    $39                                                   * 064D 39             9
L064E      leax   >L00D7,PC                                             * 064E 30 8D FA 85    0.z.
           ldy    #200                                                  * 0652 10 8E 00 C8    ...H
           lda    #1                                                    * 0656 86 01          ..
           os9    I$WritLn                                              * 0658 10 3F 8C       .?.
           lda    #1                                                    * 065B 86 01          ..
           lbra   L0594                                                 * 065D 16 FF 34       ..4

           emod
eom        equ    *
           end