; -----------------------------------------------------------------------------
; Printer Server v1.11 (c) Acorn 1982
; reverse engineered by Eelco Huininga using phpDisassembler v1.06 (using 6502 architecture)
; DOS Filename   : Printer Server 1.11.rom
; Acorn filename : $.PS111
; Load address   : 00008000
; Exec address   : 00008000
; Length         : 00002000
; -----------------------------------------------------------------------------

gsinit = &FFC2
gsread = &FFC5
osfind = &FFCE
osrdch = &FFE0
osasci = &FFE3
osnewl = &FFE7
oswrch = &FFEE
osword = &FFF1
osbyte = &FFF4


8000  00                 .       BRK
8001  00                 .       BRK
8002  00                 .       BRK
8003  4C 1A 80           L..     JMP &801A
8006  82                 .       ...
8007  0B                 .       ...
8008  00                 .       BRK
8009  50 53              PS      BVC &805E
800B  00                 .       BRK
800C  28                 (       PLP
800D  43                 C       ...
800E  29 20              )       AND #&20
8010  41 63              Ac      EOR (&63,X)
8012  6F                 o       ...
8013  72                 r       ...
8014  6E 20 31           n 1     ROR &3120
8017  39 38 32           982     AND &3238,Y

.service
801A  48                 H       PHA
801B  BD F0 0D           ...     LDA &0DF0,X
801E  2A                 *       ROL A
801F  68                 h       PLA
8020  90 01              ..      BCC &8023
8022  60                 `       RTS
.
8023  C9 02              ..      CMP #&02                             ; Private workspace claim
8025  F0 09              ..      BEQ &8030
8027  C9 04              ..      CMP #&04                             ; * command
8029  F0 71              .q      BEQ &809C
802B  C9 09              ..      CMP #&09                             ; *HELP
802D  F0 1F              ..      BEQ &804E
802F  60                 `       RTS

; -----------------------------------------------------------------------------
; Service call &02: Private workspace claim
; -----------------------------------------------------------------------------
.
8030  48                 H       PHA
8031  98                 .       TYA
8032  9D F0 0D           ...     STA &0DF0,X                          ; Save workspace PAGE in &0DF0+rom number
8035  85 FB              ..      STA &FB
8037  A9 00              ..      LDA #&00
8039  85 FA              ..      STA &FA                              ; (&FA) is pointer to workspace
803B  A0 D5              ..      LDY #&D5
803D  AD 20 02           . .     LDA &0220
8040  91 FA              ..      STA (&FA),Y                          ; &xxD5-&xxD6 = Original event vector
8042  C8                 .       INY
8043  AD 21 02           .!.     LDA &0221
8046  91 FA              ..      STA (&FA),Y
8048  A4 FB              ..      LDY &FB
804A  C8                 .       INY
804B  C8                 .       INY                                  ; Reserve 2 pages (512 bytes) for workspace
804C  68                 h       PLA
804D  60                 `       RTS

; -----------------------------------------------------------------------------
; Service call &09: *HELP
; -----------------------------------------------------------------------------
.
804E  8A                 .       TXA
804F  48                 H       PHA
8050  B1 F2              ..      LDA (&F2),Y
8052  C9 0D              ..      CMP #&0D
8054  D0 10              ..      BNE &8066
8056  20 74 80            t.     JSR &8074
8059  A2 00              ..      LDX #&00
.
805B  BD 17 82           ...     LDA &8217,X
.
805E  30 0F              0.      BMI &806F
8060  20 E3 FF            ..     JSR osasci
8063  E8                 .       INX
8064  D0 F5              ..      BNE &805B
.
8066  20 74 80            t.     JSR &8074
8069  20 82 80            ..     JSR &8082
806C  20 8F 80            ..     JSR &808F
.
806F  68                 h       PLA
8070  AA                 .       TAX
8071  A9 09              ..      LDA #&09
8073  60                 `       RTS
.
8074  A2 00              ..      LDX #&00
.
8076  BD 4E 81           .N.     LDA &814E,X
8079  30 06              0.      BMI &8081
807B  20 E3 FF            ..     JSR osasci
807E  E8                 .       INX
807F  D0 F5              ..      BNE &8076
.
8081  60                 `       RTS
.
8082  A2 00              ..      LDX #&00
.
8084  BD 64 81           .d.     LDA &8164,X
8087  30 F8              0.      BMI &8081
8089  20 E3 FF            ..     JSR osasci
808C  E8                 .       INX
808D  D0 F5              ..      BNE &8084
.
808F  A2 00              ..      LDX #&00
.
8091  BD 2B 82           .+.     LDA &822B,X
8094  30 EB              0.      BMI &8081
8096  20 E3 FF            ..     JSR osasci
8099  E8                 .       INX
809A  D0 F5              ..      BNE &8091

; -----------------------------------------------------------------------------
; Service call &04: Unrecognized * command
; -----------------------------------------------------------------------------
.
809C  8A                 .       TXA
809D  48                 H       PHA
809E  98                 .       TYA
809F  48                 H       PHA
80A0  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
80A3  A2 00              ..      LDX #&00
.
80A5  BD D6 80           ...     LDA &80D6,X
80A8  30 1B              0.      BMI &80C5
80AA  F0 23              .#      BEQ &80CF
80AC  51 F2              Q.      EOR (&F2),Y
80AE  29 DF              ).      AND #&DF
80B0  D0 05              ..      BNE &80B7
80B2  C8                 .       INY
80B3  E8                 .       INX
80B4  4C A5 80           L..     JMP &80A5
.
80B7  E8                 .       INX
80B8  BD D6 80           ...     LDA &80D6,X
80BB  10 FA              ..      BPL &80B7
80BD  E8                 .       INX
80BE  E8                 .       INX
80BF  68                 h       PLA
80C0  A8                 .       TAY
80C1  48                 H       PHA
80C2  4C A5 80           L..     JMP &80A5
.
80C5  B1 F2              ..      LDA (&F2),Y
80C7  C9 0D              ..      CMP #&0D
80C9  F0 62              .b      BEQ &812D
80CB  C9 20              .       CMP #&20
80CD  F0 5E              .^      BEQ &812D
.
80CF  68                 h       PLA
80D0  A8                 .       TAY
80D1  68                 h       PLA
80D2  AA                 .       TAX
80D3  A9 04              ..      LDA #&04
80D5  60                 `       RTS

; -----------------------------------------------------------------------------
; List of commands
; -----------------------------------------------------------------------------
.
80D6  50 53              PS      BVC &812B
80D8  45 52              ER      EOR &52
80DA  56 80              V.      LSR &80,X
80DC  00                 .       BRK
80DD  42                 B       ...
80DE  41 4E              AN      EOR (&4E,X)
80E0  4E 45 52           NER     LSR &5245
80E3  80                 .       ...
80E4  01 50              .P      ORA (&50,X)
80E6  52                 R       ...
80E7  45 80              E.      EOR &80
80E9  02                 .       ...
80EA  50 4F              PO      BVC &813B
80EC  53                 S       ...
80ED  54                 T       ...
80EE  80                 .       ...
80EF  03                 .       ...
80F0  45 4E              EN      EOR &4E
80F2  44                 D       ...
80F3  54                 T       ...
80F4  45 58              EX      EOR &58
80F6  54                 T       ...
80F7  80                 .       ...
80F8  04                 .       ...
80F9  4E 4F 42           NOB     LSR &424F
80FC  41 4E              AN      EOR (&4E,X)
80FE  4E 45 52           NER     LSR &5245
8101  80                 .       ...
8102  05 49              .I      ORA &49
8104  47                 G       ...
8105  4E 4F 52           NOR     LSR &524F
8108  45 80              E.      EOR &80
810A  06 4F              .O      ASL &4F
810C  75 74              ut      ADC &74,X
810E  70 75              pu      BVS &8185
8110  74                 t       ...
8111  54                 T       ...
8112  6F                 o       ...
8113  53                 S       ...
8114  63                 c       ...
8115  72                 r       ...
8116  65 65              ee      ADC &65
8118  6E 80 07           n..     ROR &0780
811B  4F                 O       ...
811C  75 74              ut      ADC &74,X
811E  70 75              pu      BVS &8195
8120  74                 t       ...
8121  54                 T       ...
8122  6F                 o       ...
8123  50 72              Pr      BVC &8197
8125  69 6E              in      ADC #&6E
8127  74                 t       ...
8128  65 72              er      ADC &72
812A  80                 .       ...
812B  08                 .       PHP
812C  00                 .       BRK
.
812D  E8                 .       INX
812E  BD D6 80           ...     LDA &80D6,X
8131  0A                 .       ASL A
8132  AA                 .       TAX
8133  BD 3D 81           .=.     LDA &813D,X
8136  48                 H       PHA
8137  BD 3C 81           .<.     LDA &813C,X
813A  48                 H       PHA
.
813B  60                 `       RTS

; -----------------------------------------------------------------------------
; Jump table for commands
; -----------------------------------------------------------------------------
.
813C  23 83              #.      EQUW &8323                    ; *PSERV
813E  1C 85              ..      EQUW &851C                    ; *BANNER
8140  37 85              7.      EQUW &8537                    ; *PRE
8142  4E 85              N.      EQUW &854E                    ; *POST
8144  5F 85              _.      EQUW &855F                    ; *ENDTEXT
8146  33 85              3.      EQUW &8533                    ; *NOBANNER
8148  70 85              p.      EQUW &8570                    ; *IGNORE
814A  53 84              S.      EQUW &8453                    ; *OutputToScreen
814C  5C 84              \.      EQUW &845C                    ; *OutputToPrinter

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
814E  0D 50 72           .Pr     EQUS "Printer Server 1.11"
814F  50 72              Pr      BVC &81C3
8151  69 6E              in      ADC #&6E
8153  74                 t       ...
8154  65 72              er      ADC &72
8156  20 53 65            Se     JSR &6553
8159  72                 r       ...
815A  76 65              ve      ROR &65,X
815C  72                 r       ...
815D  20 31 2E            1.     JSR &2E31
8160  31 31              11      AND (&31),Y
8162  0D 80 0D           ...     ORA &0D80
8165  20 20 42             B     JSR &4220
8168  61 6E              an      ADC (&6E,X)
816A  6E 65 72           ner     ROR &7265
816D  20 20 20                   JSR &2020
8170  3C                 <       ...
8171  20 62 61            ba     JSR &6162
8174  6E 6E 65           nne     ROR &656E
8177  72                 r       ...
8178  20 74 65            te     JSR &6574
817B  78                 x       SEI
817C  74                 t       ...
817D  20 3E 0D            >.     JSR &0D3E
8180  20 20 45             E     JSR &4520
8183  6E 64 74           ndt     ROR &7464
8186  65 78              ex      ADC &78
8188  74                 t       ...
8189  20 20 28             (     JSR &2820
818C  3C                 <       ...
818D  20 65 6E            en     JSR &6E65
8190  64                 d       ...
8191  20 74 65            te     JSR &6574
8194  78                 x       SEI
.
8195  74                 t       ...
8196  20 3E 29            >)     JSR &293E
8199  0D 20 20           .       ORA &2020
819C  4E 6F 62           Nob     LSR &626F
819F  61 6E              an      ADC (&6E,X)
81A1  6E 65 72           ner     ROR &7265
81A4  20 0D 20            .      JSR &200D
81A7  20 50 73            Ps     JSR &7350
81AA  65 72              er      ADC &72
81AC  76 20              v       ROR &20,X
81AE  20 20 20                   JSR &2020
81B1  28                 (       PLP
81B2  3C                 <       ...
81B3  20 70 72            pr     JSR &7270
81B6  69 6E              in      ADC #&6E
81B8  74                 t       ...
81B9  65 72              er      ADC &72
81BB  20 74 79            ty     JSR &7974
81BE  70 65              pe      BVS &8225
81C0  20 3E 20            >      JSR &203E
.
81C3  28                 (       PLP
81C4  20 3C 20            <      JSR &203C
81C7  74                 t       ...
81C8  79 70 65           ype     ADC &6570,Y
81CB  20 74 65            te     JSR &6574
81CE  78                 x       SEI
81CF  74                 t       ...
81D0  20 3E 29            >)     JSR &293E
81D3  29 0D              ).      AND #&0D
81D5  20 20 50             P     JSR &5020
81D8  72                 r       ...
81D9  65 20              e       ADC &20
81DB  20 20 20                   JSR &2020
81DE  20 20 3C             <     JSR &3C20
81E1  20 70 72            pr     JSR &7270
81E4  65 2D              e-      ADC &2D
81E6  62                 b       ...
81E7  61 6E              an      ADC (&6E,X)
81E9  6E 65 72           ner     ROR &7265
81EC  20 74 65            te     JSR &6574
81EF  78                 x       SEI
81F0  74                 t       ...
81F1  20 3E 29            >)     JSR &293E
81F4  0D 20 20           .       ORA &2020
81F7  50 6F              Po      BVC &8268
81F9  73                 s       ...
81FA  74                 t       ...
81FB  20 20 20                   JSR &2020
81FE  20 20 3C             <     JSR &3C20
8201  20 70 6F            po     JSR &6F70
8204  73                 s       ...
8205  74                 t       ...
8206  2D 62 61           -ba     AND &6162
8209  6E 6E 65           nne     ROR &656E
820C  72                 r       ...
820D  20 74 65            te     JSR &6574
8210  78                 x       SEI
8211  74                 t       ...
8212  20 3E 29            >)     JSR &293E
8215  0D 80 20           ..      ORA &2080
8218  20 50 53            PS     JSR &5350
821B  65 72              er      ADC &72
821D  76 0D              v.      ROR &0D,X
821F  20 20 50             P     JSR &5020
8222  72                 r       ...
8223  69 6E              in      ADC #&6E
.
8225  74                 t       ...
8226  65 72              er      ADC &72
8228  73                 s       ...
8229  0D 80 0D           ...     ORA &0D80
822C  20 20 54             T     JSR &5420
822F  68                 h       PLA
8230  65 20              e       ADC &20
8232  66 6F              fo      ROR &6F
8234  6C 6C 6F           llo     JMP (&6F6C)
8237  77                 w       ...
8238  69 6E              in      ADC #&6E
823A  67                 g       ...
823B  20 70 72            pr     JSR &7270
823E  69 6E              in      ADC #&6E
8240  74                 t       ...
8241  65 72              er      ADC &72
8243  20 74 79            ty     JSR &7974
8246  70 65              pe      BVS &82AD
8248  73                 s       ...
8249  20 61 72            ar     JSR &7261
824C  65 20              e       ADC &20
824E  61 63              ac      ADC (&63,X)
8250  63                 c       ...
8251  65 70              ep      ADC &70
8253  74                 t       ...
8254  65 64              ed      ADC &64
8256  0D 20 20           .       ORA &2020
8259  30 20              0       BMI &827B
825B  3A                 :       ...
825C  20 44 65            De     JSR &6544
825F  66 61              fa      ROR &61
8261  75 6C              ul      ADC &6C,X
8263  74                 t       ...
8264  0D 20 20           .       ORA &2020
8267  31 20              1       AND (&20),Y
8269  3A                 :       ...
826A  20 4F 6C            Ol     JSR &6C4F
826D  6C 69 76           liv     JMP (&7669)
8270  65 74              et      ADC &74
8272  74                 t       ...
8273  69 20              i       ADC #&20
8275  69 6E              in      ADC #&6E
8277  6B                 k       ...
8278  20 6A 65            je     JSR &656A
.
827B  74                 t       ...
827C  0D 20 20           .       ORA &2020
827F  32                 2       ...
8280  20 3A 20            :      JSR &203A
8283  45 70              Ep      EOR &70
8285  73                 s       ...
8286  6F                 o       ...
8287  6E 20 4D           n M     ROR &4D20
828A  58                 X       CLI
828B  38                 8       SEC
828C  30 2F              0/      BMI &82BD
828E  46 58              FX      LSR &58
8290  38                 8       SEC
8291  30 0D              0.      BMI &82A0
8293  20 20 33             3     JSR &3320
8296  20 3A 20            :      JSR &203A
8299  57                 W       ...
829A  61 6C              al      ADC (&6C,X)
829C  74                 t       ...
829D  65 72              er      ADC &72
829F  73                 s       ...
.
82A0  20 4D 69            Mi     JSR &694D
82A3  63                 c       ...
82A4  72                 r       ...
82A5  6F                 o       ...
82A6  73                 s       ...
82A7  79 73 74           yst     ADC &7473,Y
82AA  65 6D              em      ADC &6D
82AC  73                 s       ...
.
82AD  20 32 30            20     JSR &3032
82B0  30 30              00      BMI &82E2
82B2  0D 20 20           .       ORA &2020
82B5  34                 4       ...
82B6  20 3A 20            :      JSR &203A
82B9  4D 61 6E           Man     EOR &6E61
82BC  6E 65 73           nes     ROR &7365
82BF  6D 61 6E           man     ADC &6E61
82C2  6E 20 54           n T     ROR &5420
82C5  61 6C              al      ADC (&6C,X)
82C7  6C 79 20           ly      JMP (&2079)
82CA  4D 54 31           MT1     EOR &3154
82CD  38                 8       SEC
82CE  30 0D              0.      BMI &82DD
82D0  20 20 35             5     JSR &3520
82D3  20 3A 20            :      JSR &203A
82D6  4D 61 6E           Man     EOR &6E61
82D9  6E 65 73           nes     ROR &7365
82DC  6D 61 6E           man     ADC &6E61
82DF  6E 20 54           n T     ROR &5420
.
82E2  61 6C              al      ADC (&6C,X)
82E4  6C 79 20           ly      JMP (&2079)
82E7  4D 54 31           MT1     EOR &3154
82EA  34                 4       ...
82EB  30 0D              0.      BMI &82FA
82ED  20 20 36             6     JSR &3620
82F0  20 3A 20            :      JSR &203A
82F3  4D 69 63           Mic     EOR &6369
82F6  72                 r       ...
82F7  6F                 o       ...
82F8  20 50 65            Pe     JSR &6550
82FB  72                 r       ...
82FC  69 70              ip      ADC #&70
82FE  68                 h       PLA
82FF  65 72              er      ADC &72
8301  61 6C              al      ADC (&6C,X)
8303  73                 s       ...
8304  20 4D 50            MP     JSR &504D
8307  49 39              I9      EOR #&39
8309  39 47 0D           9G.     AND &0D47,Y
830C  20 20 37             7     JSR &3720
830F  20 3A 20            :      JSR &203A
8312  46 6C              Fl      LSR &6C
8314  6F                 o       ...
8315  72                 r       ...
8316  69 64              id      ADC #&64
8318  61 20              a       ADC (&20,X)
831A  44                 D       ...
831B  61 74              at      ADC (&74,X)
831D  61 20              a       ADC (&20,X)
831F  42                 B       ...
8320  4E 59 0D           NY.     LSR &0D59
8323  80                 .       ...

; -----------------------------------------------------------------------------
; *PSERV
; -----------------------------------------------------------------------------
.

8324  20 B6 86            ..     JSR &86B6                 ; Initialize workspace pointer at &A8-&A9
8327  88                 .       DEY
.
8328  C8                 .       INY
8329  B1 F2              ..      LDA (&F2),Y
832B  C9 20              .       CMP #&20
832D  F0 F9              ..      BEQ &8328                 ; Skip spaces
832F  38                 8       SEC
8330  E9 0D              ..      SBC #&0D
8332  48                 H       PHA
8333  F0 27              .'      BEQ &835C                 ; Jump if no parameter was given
8335  68                 h       PLA
8336  38                 8       SEC
8337  E9 23              .#      SBC #&23
8339  90 04              ..      BCC &833F
833B  C9 08              ..      CMP #&08
833D  90 05              ..      BCC &8344
.
833F  A2 0A              ..      LDX #&0A
8341  4C 1A 86           L..     JMP &861A                 ; Generate error &AA: Bad printer type
.
8344  48                 H       PHA
8345  C8                 .       INY
8346  B1 F2              ..      LDA (&F2),Y
8348  C9 0D              ..      CMP #&0D
834A  F0 04              ..      BEQ &8350
834C  C9 20              .       CMP #&20
834E  D0 EF              ..      BNE &833F
.
8350  88                 .       DEY
.
8351  C8                 .       INY
8352  B1 F2              ..      LDA (&F2),Y
8354  C9 0D              ..      CMP #&0D
8356  F0 04              ..      BEQ &835C
8358  C9 20              .       CMP #&20
835A  D0 F5              ..      BNE &8351
.
835C  A2 F0              ..      LDX #&F0
835E  A9 06              ..      LDA #&06
8360  20 94 85            ..     JSR &8594
8363  A8                 .       TAY
8364  F0 0B              ..      BEQ &8371
.
8366  A9 20              .       LDA #&20
8368  A2 00              ..      LDX #&00
836A  81 A8              ..      STA (&A8,X)
836C  E6 A8              ..      INC &A8
836E  88                 .       DEY
836F  D0 F5              ..      BNE &8366
.
8371  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
8374  68                 h       PLA
8375  A0 B3              ..      LDY #&B3
8377  91 A8              ..      STA (&A8),Y
8379  A9 34              .4      LDA #&34                             ; *FX &34 (Delete receive control block)
837B  A2 01              ..      LDX #&01                             ; Control blocks &01-&10
.
837D  20 F4 FF            ..     JSR osbyte
8380  E8                 .       INX
8381  E0 11              ..      CPX #&11
8383  D0 F8              ..      BNE &837D
8385  A9 A8              ..      LDA #&A8
8387  A2 00              ..      LDX #&00
8389  A0 FF              ..      LDY #&FF
838B  20 19 87            ..     JSR &8719                            ; *FX &A8 (Read address of extended vector table)
838E  86 AA              ..      STX &AA
8390  84 AB              ..      STY &AB
8392  A0 30              .0      LDY #&30
8394  A9 B9              ..      LDA #&B9                             ; Event handler at &89B9
8396  91 AA              ..      STA (&AA),Y
8398  C8                 .       INY
8399  A9 89              ..      LDA #&89                             ; Event handler at &89B9
839B  91 AA              ..      STA (&AA),Y
839D  C8                 .       INY
839E  68                 h       PLA
839F  AA                 .       TAX
83A0  68                 h       PLA
83A1  48                 H       PHA
83A2  91 AA              ..      STA (&AA),Y                          ; ROM number
83A4  8A                 .       TXA
83A5  48                 H       PHA
83A6  08                 .       PHP
83A7  78                 x       SEI
83A8  A9 30              .0      LDA #&30                             ; Extended vector jump
83AA  8D 20 02           . .     STA &0220
83AD  A9 FF              ..      LDA #&FF                             ; Extended vector jump
83AF  8D 21 02           .!.     STA &0221
83B2  28                 (       PLP
83B3  A9 0E              ..      LDA #&0E
83B5  A2 05              ..      LDX #&05
83B7  20 F4 FF            ..     JSR osbyte                           ; *FX 14, 5: Enable interval timer crossing 0 event
83BA  A9 0E              ..      LDA #&0E
83BC  A2 06              ..      LDX #&06
83BE  20 F4 FF            ..     JSR osbyte                           ; *FX 14, 6: Enable ESCAPE pressed event
83C1  A9 E6              ..      LDA #&E6
83C3  A2 01              ..      LDX #&01
83C5  20 F4 FF            ..     JSR osbyte                           ; *FX 230, 1: Write flags determining ESCAPE events
83C8  20 4F 86            O.     JSR &864F                           ; Set up Econet RECEIVE for port numbers &D0 (PrinterServerReply) and &D1 (PrinterServerData)
83CB  A0 B3              ..      LDY #&B3
83CD  B1 A8              ..      LDA (&A8),Y
83CF  48                 H       PHA
83D0  A8                 .       TAY
83D1  A9 1E              ..      LDA #&1E
83D3  A2 1A              ..      LDX #&1A
83D5  20 7E 86            ~.     JSR &867E
83D8  98                 .       TYA
83D9  38                 8       SEC
83DA  E9 1E              ..      SBC #&1E
83DC  A0 AF              ..      LDY #&AF
83DE  91 A8              ..      STA (&A8),Y
83E0  68                 h       PLA
83E1  48                 H       PHA
83E2  A8                 .       TAY
83E3  A9 B0              ..      LDA #&B0
83E5  A2 6A              .j      LDX #&6A
83E7  20 7E 86            ~.     JSR &867E
83EA  98                 .       TYA
83EB  38                 8       SEC
83EC  E9 B0              ..      SBC #&B0
83EE  A0 B0              ..      LDY #&B0
83F0  91 A8              ..      STA (&A8),Y
83F2  68                 h       PLA
83F3  48                 H       PHA
83F4  A8                 .       TAY
83F5  A9 70              .p      LDA #&70
83F7  A2 84              ..      LDX #&84
83F9  20 7E 86            ~.     JSR &867E
83FC  98                 .       TYA
83FD  38                 8       SEC
83FE  E9 70              .p      SBC #&70
8400  A0 B1              ..      LDY #&B1
8402  91 A8              ..      STA (&A8),Y
8404  68                 h       PLA
8405  A8                 .       TAY
8406  A9 00              ..      LDA #&00
8408  A2 00              ..      LDX #&00
840A  20 7E 86            ~.     JSR &867E
840D  98                 .       TYA
840E  38                 8       SEC
840F  E9 00              ..      SBC #&00
8411  A0 B2              ..      LDY #&B2
8413  91 A8              ..      STA (&A8),Y
8415  A0 AE              ..      LDY #&AE
8417  A9 00              ..      LDA #&00
8419  91 A8              ..      STA (&A8),Y
841B  A0 86              ..      LDY #&86
841D  91 A8              ..      STA (&A8),Y
841F  A0 B4              ..      LDY #&B4
8421  91 A8              ..      STA (&A8),Y
8423  A0 D8              ..      LDY #&D8
8425  91 A8              ..      STA (&A8),Y
8427  A9 FF              ..      LDA #&FF
8429  A0 C0              ..      LDY #&C0
842B  91 A8              ..      STA (&A8),Y
842D  A9 1A              ..      LDA #&1A                            ; *FX 3, &1A
842F  A0 D7              ..      LDY #&D7
8431  91 A8              ..      STA (&A8),Y                         ; *OutputToPrinter
8433  A0 BF              ..      LDY #&BF                            ; Halt/OS-call/User/JSR/POKE/PEEK: all are not allowed
8435  A9 05              ..      LDA #&05                            ; OSWORD &13 function &05: Write protection mask
8437  91 A8              ..      STA (&A8),Y
8439  C8                 .       INY
843A  A9 3F              .?      LDA #&3F
843C  91 A8              ..      STA (&A8),Y
843E  A2 BF              ..      LDX #&BF
8440  A4 A9              ..      LDY &A9
8442  A9 13              ..      LDA #&13                            ; OSWORD &13: Read/Write station infomation
8444  20 F1 FF            ..     JSR osword
8447  20 65 89            e.     JSR &8965                           ; Set up &9F PrintServerEnquiry receive block
844A  20 C6 86            ..     JSR &86C6                           ; Initialize interval timer
.
844D  68                 h       PLA
844E  A8                 .       TAY
844F  68                 h       PLA
8450  AA                 .       TAX
8451  A9 00              ..      LDA #&00
8453  60                 `       RTS

; -----------------------------------------------------------------------------
; *OutputToScreen
; -----------------------------------------------------------------------------
.
8454  A9 44              .D      LDA #&44                            ; *FX3, &44
8456  A0 D7              ..      LDY #&D7
8458  91 A8              ..      STA (&A8),Y
845A  4C 4D 84           LM.     JMP &844D

; -----------------------------------------------------------------------------
; *OutputToPrinter
; -----------------------------------------------------------------------------
.
845D  A9 1A              ..      LDA #&1A                            ; *FX3, &1A
845F  A0 D7              ..      LDY #&D7
8461  91 A8              ..      STA (&A8),Y
8463  4C 4D 84           LM.     JMP &844D
8466  80                 .       ...
8467  1B                 .       ...
8468  33                 3       ...
8469  1B                 .       ...
846A  27                 '       ...
846B  80                 .       ...
846C  0E 80 1B           ...     ASL &1B80
846F  0F                 .       ...
8470  80                 .       ...
8471  1B                 .       ...
8472  5B                 [       ...
8473  30 77              0w      BMI &84EC
8475  80                 .       ...
8476  0E 80 1B           ...     ASL &1B80
8479  0E 80 1B           ...     ASL &1B80
847C  5B                 [       ...
847D  32                 2       ...
847E  43                 C       ...
847F  80                 .       ...
8480  2A                 *       ROL A
8481  2A                 *       ROL A
8482  20 45 63            Ec     JSR &6345
8485  6F                 o       ...
8486  6E 65 74           net     ROR &7465
8489  80                 .       ...
848A  2A                 *       ROL A
848B  2A                 *       ROL A
848C  20 45 63            Ec     JSR &6345
848F  6F                 o       ...
8490  6E 65 74           net     ROR &7465
8493  80                 .       ...
8494  2A                 *       ROL A
8495  2A                 *       ROL A
8496  20 45 63            Ec     JSR &6345
8499  6F                 o       ...
849A  6E 65 74           net     ROR &7465
849D  80                 .       ...
849E  2A                 *       ROL A
849F  2A                 *       ROL A
84A0  20 45 63            Ec     JSR &6345
84A3  6F                 o       ...
84A4  6E 65 74           net     ROR &7465
84A7  80                 .       ...
84A8  2A                 *       ROL A
84A9  2A                 *       ROL A
84AA  20 45 63            Ec     JSR &6345
84AD  6F                 o       ...
84AE  6E 65 74           net     ROR &7465
84B1  80                 .       ...
84B2  2A                 *       ROL A
84B3  2A                 *       ROL A
84B4  20 45 63            Ec     JSR &6345
84B7  6F                 o       ...
84B8  6E 65 74           net     ROR &7465
84BB  80                 .       ...
84BC  2A                 *       ROL A
84BD  2A                 *       ROL A
84BE  20 45 63            Ec     JSR &6345
84C1  6F                 o       ...
84C2  6E 65 74           net     ROR &7465
84C5  80                 .       ...
84C6  2A                 *       ROL A
84C7  2A                 *       ROL A
84C8  20 45 63            Ec     JSR &6345
84CB  6F                 o       ...
84CC  6E 65 74           net     ROR &7465
84CF  80                 .       ...
84D0  0C                 .       ...
84D1  80                 .       ...
84D2  0D 0A 0A           ...     ORA &0A0A
84D5  0A                 .       ASL A
84D6  0A                 .       ASL A
84D7  0A                 .       ASL A
84D8  0A                 .       ASL A
84D9  0A                 .       ASL A
84DA  0A                 .       ASL A
84DB  0A                 .       ASL A
84DC  0A                 .       ASL A
84DD  80                 .       ...
84DE  0C                 .       ...
84DF  80                 .       ...
84E0  0C                 .       ...
84E1  80                 .       ...
84E2  0C                 .       ...
84E3  80                 .       ...
84E4  0C                 .       ...
84E5  80                 .       ...
84E6  0C                 .       ...
84E7  80                 .       ...
84E8  0C                 .       ...
84E9  80                 .       ...
84EA  0D 0A 80           ...     ORA &800A
84ED  0D 1B 34           ..4     ORA &341B
84F0  1B                 .       ...
84F1  25 0D              %.      AND &0D
84F3  0A                 .       ASL A
84F4  0D 0A 80           ...     ORA &800A
84F7  0D 14 0D           ...     ORA &0D14
84FA  0A                 .       ASL A
84FB  0D 0A 80           ...     ORA &800A
84FE  0D 1B 0E           ...     ORA &0E1B
8501  0D 0A 0D           ...     ORA &0D0A
8504  0A                 .       ASL A
8505  80                 .       ...
8506  0D 1B 5B           ..[     ORA &5B1B
8509  34                 4       ...
850A  77                 w       ...
850B  0D 80 0D           ...     ORA &0D80
850E  0F                 .       ...
850F  0A                 .       ASL A
8510  0D 80 0D           ...     ORA &0D80
8513  1B                 .       ...
8514  0F                 .       ...
8515  0D 80 0D           ...     ORA &0D80
8518  1B                 .       ...
8519  5B                 [       ...
851A  31 43              1C      AND (&43),Y
851C  80                 .       ...
851D  A2 1E              ..      LDX #&1E
851F  A9 40              .@      LDA #&40
8521  20 94 85            ..     JSR &8594
8524  A2 1E              ..      LDX #&1E
8526  A0 AF              ..      LDY #&AF
8528  20 BF 85            ..     JSR &85BF
852B  A9 FF              ..      LDA #&FF
.
852D  A0 C0              ..      LDY #&C0
852F  91 A8              ..      STA (&A8),Y
8531  4C 4D 84           LM.     JMP &844D
8534  A9 00              ..      LDA #&00
8536  F0 F5              ..      BEQ &852D
8538  A2 00              ..      LDX #&00
853A  A9 1E              ..      LDA #&1E
853C  20 94 85            ..     JSR &8594
853F  A2 00              ..      LDX #&00
8541  A0 B2              ..      LDY #&B2
8543  20 BF 85            ..     JSR &85BF
8546  A0 B2              ..      LDY #&B2
8548  B1 A8              ..      LDA (&A8),Y
854A  91 A8              ..      STA (&A8),Y
854C  4C 4D 84           LM.     JMP &844D
854F  A2 70              .p      LDX #&70
8551  A9 40              .@      LDA #&40
8553  20 94 85            ..     JSR &8594
8556  A2 70              .p      LDX #&70
8558  A0 B1              ..      LDY #&B1
855A  20 BF 85            ..     JSR &85BF
855D  4C 4D 84           LM.     JMP &844D
8560  A2 B0              ..      LDX #&B0
8562  A9 40              .@      LDA #&40
8564  20 94 85            ..     JSR &8594
8567  A2 B0              ..      LDX #&B0
8569  A0 B0              ..      LDY #&B0
856B  20 BF 85            ..     JSR &85BF
856E  4C 4D 84           LM.     JMP &844D
8571  38                 8       SEC
8572  20 C2 FF            ..     JSR gsinit
8575  F0 05              ..      BEQ &857C
8577  20 C5 FF            ..     JSR gsread
857A  90 04              ..      BCC &8580
.
857C  A9 00              ..      LDA #&00
857E  F0 0D              ..      BEQ &858D
.
8580  48                 H       PHA
8581  20 C5 FF            ..     JSR gsread
8584  68                 h       PLA
8585  90 31              .1      BCC &85B8
8587  A0 D9              ..      LDY #&D9
8589  91 A8              ..      STA (&A8),Y
858B  A9 FF              ..      LDA #&FF
.
858D  A0 D8              ..      LDY #&D8
858F  91 A8              ..      STA (&A8),Y
8591  4C 4D 84           LM.     JMP &844D

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8594  48                 H       PHA
8595  8A                 .       TXA
8596  18                 .       CLC
8597  65 A8              e.      ADC &A8
8599  85 A8              ..      STA &A8
859B  E6 A9              ..      INC &A9
859D  38                 8       SEC
859E  20 C2 FF            ..     JSR gsinit
.
85A1  20 C5 FF            ..     JSR gsread
85A4  A2 00              ..      LDX #&00
85A6  B0 15              ..      BCS &85BD
85A8  81 A8              ..      STA (&A8,X)
85AA  E6 A8              ..      INC &A8
85AC  68                 h       PLA
85AD  AA                 .       TAX
85AE  CA                 .       DEX
85AF  8A                 .       TXA
85B0  48                 H       PHA
85B1  D0 EE              ..      BNE &85A1
85B3  20 C5 FF            ..     JSR gsread
85B6  B0 05              ..      BCS &85BD
.
85B8  A2 00              ..      LDX #&00
85BA  4C 1A 86           L..     JMP &861A                          ; Generate error &A9: Too long
.
85BD  68                 h       PLA
85BE  60                 `       RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
85BF  86 A9              ..      STX &A9
85C1  A5 A8              ..      LDA &A8
85C3  38                 8       SEC
85C4  E5 A9              ..      SBC &A9
85C6  48                 H       PHA
85C7  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
85CA  68                 h       PLA
85CB  91 A8              ..      STA (&A8),Y
85CD  60                 `       RTS

; -----------------------------------------------------------------------------
; Poll RECEIVE block in Y, and return result in A
; -----------------------------------------------------------------------------
.
85CE  B1 A8              ..      LDA (&A8),Y
85D0  F0 0B              ..      BEQ &85DD
85D2  AA                 .       TAX
85D3  98                 .       TYA
85D4  48                 H       PHA
85D5  A9 33              .3      LDA #&33
85D7  20 19 87            ..     JSR &8719                            ; *FX &33, 
85DA  68                 h       PLA
85DB  A8                 .       TAY
85DC  8A                 .       TXA
.
85DD  60                 `       RTS

;
; 
;
.
85DE  A0 84              ..      LDY #&84                             ; Control block number for &D0: PrinterServerQuery
85E0  20 E5 85            ..     JSR &85E5
85E3  A0 85              ..      LDY #&85                             ; Control block number for &D1: PrinterServerData
.
85E5  B1 A8              ..      LDA (&A8),Y
85E7  F0 0E              ..      BEQ &85F7
85E9  AA                 .       TAX
85EA  98                 .       TYA
85EB  48                 H       PHA
85EC  A9 34              .4      LDA #&34
85EE  20 19 87            ..     JSR &8719                            ; *FX &34, 
85F1  68                 h       PLA
85F2  A8                 .       TAY
85F3  A9 00              ..      LDA #&00
85F5  91 A8              ..      STA (&A8),Y
.
85F7  60                 `       RTS
.
85F8  18                 .       CLC
85F9  65 A8              e.      ADC &A8
85FB  85 AA              ..      STA &AA
85FD  A9 00              ..      LDA #&00
85FF  65 A9              e.      ADC &A9
8601  85 AB              ..      STA &AB
8603  E6 A9              ..      INC &A9
.
8605  8A                 .       TXA
8606  F0 0F              ..      BEQ &8617
8608  48                 H       PHA
8609  B1 A8              ..      LDA (&A8),Y
860B  A2 00              ..      LDX #&00
860D  81 AA              ..      STA (&AA,X)
860F  E6 AA              ..      INC &AA
8611  C8                 .       INY
8612  68                 h       PLA
8613  AA                 .       TAX
8614  CA                 .       DEX
8615  D0 EE              ..      BNE &8605
.
8617  C6 A9              ..      DEC &A9
8619  60                 `       RTS


.
861A  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
861D  A0 DB              ..      LDY #&DB
.
861F  BD 33 86           .3.     LDA &8633,X
8622  91 A8              ..      STA (&A8),Y
8624  F0 04              ..      BEQ &862A
8626  E8                 .       INX
8627  C8                 .       INY
8628  D0 F5              ..      BNE &861F
.
862A  A0 DA              ..      LDY #&DA
862C  91 A8              ..      STA (&A8),Y
862E  84 A8              ..      STY &A8
8630  6C A8 00           l..     JMP (&00A8)

.
8633  A9 54              .       EQUB &A9                             ; Error number &A9
8634  54 6F 6F           Too
8635  6F                 o       ...
8636  6F                 o       ...
8637  20 6C 6F            lo     JSR &6F6C
863A  6E 67 00           ng.     ROR &0067

.
863D  AA                 .       EQUB &AA                             ; Error number &AA
863E  42                 B       ...
863F  61 64              ad      ADC (&64,X)
8641  20 70 72            pr     JSR &7270
8644  69 6E              in      ADC #&6E
8646  74                 t       ...
8647  65 72              er      ADC &72
8649  20 74 79            ty     JSR &7974
864C  70 65              pe      BVS &86B3
864E  00                 .       BRK

; -----------------------------------------------------------------------------
; Set up Econet RECEIVE for port numbers &D0 (PrinterServerReply) and &D1 (PrinterServerData)
; -----------------------------------------------------------------------------
.
864F  20 DC 86            ..     JSR &86DC                             ; Setup Econet control block at &xx88 to receive &80 bytes to &xx00-&xx7F
8652  A0 8A              ..      LDY #&8A
8654  A9 D0              ..      LDA #&D0                              ; Port &D0 (PrinterServerReply)
8656  91 A8              ..      STA (&A8),Y
8658  20 0B 87            ..     JSR &870B                             ; Make an OSWORD &11 call (Econet Receive)
865B  A0 84              ..      LDY #&84
865D  91 A8              ..      STA (&A8),Y                           ; Store control block number in &xx84
865F  20 DC 86            ..     JSR &86DC                             ; Setup Econet control block at &xx88 to receive &80 bytes to &xx00-&xx7F
8662  A0 8A              ..      LDY #&8A
8664  A9 D1              ..      LDA #&D1                              ; Port &D1 (PrinterServerData)
8666  91 A8              ..      STA (&A8),Y
8668  20 0B 87            ..     JSR &870B                             ; Make an OSWORD &11 call (Econet Receive)
866B  A0 85              ..      LDY #&85
866D  91 A8              ..      STA (&A8),Y                           ; Store control block number in &xx85
866F  A9 00              ..      LDA #&00
8671  A0 82              ..      LDY #&82
8673  91 A8              ..      STA (&A8),Y                           ; &xx82 = 0
8675  A0 86              ..      LDY #&86
8677  91 A8              ..      STA (&A8),Y                           ; &xx86 = 0
8679  A0 A4              ..      LDY #&A4
867B  91 A8              ..      STA (&A8),Y                           ; &xxa4 = 0
867D  60                 `       RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
867E  E6 A9              ..      INC &A9
8680  48                 H       PHA
8681  CA                 .       DEX
.
8682  E8                 .       INX
8683  88                 .       DEY
8684  30 09              0.      BMI &868F
.
8686  BD 66 84           .f.     LDA &8466,X
8689  30 F7              0.      BMI &8682
868B  E8                 .       INX
868C  4C 86 86           L..     JMP &8686
.
868F  68                 h       PLA
8690  A8                 .       TAY
.
8691  BD 66 84           .f.     LDA &8466,X
8694  30 07              0.      BMI &869D
8696  91 A8              ..      STA (&A8),Y
8698  E8                 .       INX
8699  C8                 .       INY
869A  4C 91 86           L..     JMP &8691
.
869D  C6 A9              ..      DEC &A9
869F  60                 `       RTS

; -----------------------------------------------------------------------------
; Toggle bit 1 of &xxA4
; -----------------------------------------------------------------------------
.
86A0  A0 A4              ..      LDY #&A4
86A2  B1 A8              ..      LDA (&A8),Y
86A4  49 01              I.      EOR #&01
86A6  91 A8              ..      STA (&A8),Y
86A8  60                 `       RTS

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
86A9  A0 AB              ..      LDY #&AB
86AB  A9 64              .d      LDA #&64
86AD  91 A8              ..      STA (&A8),Y
86AF  A0 82              ..      LDY #&82
86B1  A9 04              ..      LDA #&04
.
86B3  91 A8              ..      STA (&A8),Y
86B5  60                 `       RTS

; -----------------------------------------------------------------------------
; Initialize workspace pointer at &A8-&A9
; -----------------------------------------------------------------------------
.
86B6  8A                 .       TXA
86B7  48                 H       PHA
86B8  A6 F4              ..      LDX &F4
86BA  BD F0 0D           ...     LDA &0DF0,X
86BD  85 A9              ..      STA &A9
86BF  A9 00              ..      LDA #&00
86C1  85 A8              ..      STA &A8
86C3  68                 h       PLA
86C4  AA                 .       TAX
86C5  60                 `       RTS

; -----------------------------------------------------------------------------
; Initialize interval timer
; -----------------------------------------------------------------------------
.
86C6  A9 FF              ..      LDA #&FF
86C8  A0 BE              ..      LDY #&BE
.
86CA  91 A8              ..      STA (&A8),Y
86CC  88                 .       DEY
86CD  C0 BA              ..      CPY #&BA
86CF  B0 F9              ..      BCS &86CA
86D1  A2 BA              ..      LDX #&BA
86D3  A4 A9              ..      LDY &A9
86D5  A9 04              ..      LDA #&04                            ; OSWORD &04: Write interval timer
86D7  4C F1 FF           L..     JMP osword
.
86DA  60                 `       RTS
.
86DB  60                 `       RTS

; -----------------------------------------------------------------------------
; Setup Econet control block at &xx88 to receive &80 bytes to &xx00-&xx7F
; -----------------------------------------------------------------------------
.
86DC  A0 88              ..      LDY #&88
.
86DE  B9 76 86           .v.     LDA &8676,Y                         ; &86FE - &870A
86E1  91 A8              ..      STA (&A8),Y
86E3  C8                 .       INY
86E4  C0 95              ..      CPY #&95
86E6  D0 F6              ..      BNE &86DE
86E8  A5 A9              ..      LDA &A9                             ; MSB of workspace
86EA  A0 8E              ..      LDY #&8E
86EC  91 A8              ..      STA (&A8),Y                         ; Set MSB of buffer start
86EE  A0 92              ..      LDY #&92
86F0  91 A8              ..      STA (&A8),Y                         ; Set MSB of buffer end
86F2  A9 B8              ..      LDA #&B8
86F4  A0 A8              ..      LDY #&A8
86F6  91 A8              ..      STA (&A8),Y                         ; &xxA8 = &B8
86F8  C8                 .       INY
86F9  A9 0B              ..      LDA #&0B
86FB  91 A8              ..      STA (&A8),Y                         ; &xxA9 = &0B
86FD  60                 `       RTS

.
86FE  00                 .       BRK                                 ; Always &00
86FF  7F                 .       ...                                 ; Always &7F
8700  00                 .       BRK                                 ; Receiving port
8701  00                 .       BRK                                 ; Station
8702  00                 .       BRK                                 ; Station
8703  00                 .       BRK                                 ; Address of buffer start
8704  00                 .       BRK
8705  FF                 .       ...
8706  FF                 .       ...
8707  80                 .       ...                                 ; Address of buffer end
8708  00                 .       BRK
8709  FF                 .       ...
870A  FF                 .       ...

; -----------------------------------------------------------------------------
; Make an OSWORD &11 call (Econet Receive)
; -----------------------------------------------------------------------------
.
870B  A9 11              ..      LDA #&11                            ; Receive
870D  A2 88              ..      LDX #&88
870F  A4 A9              ..      LDY &A9
8711  20 1F 87            ..     JSR &871F                           ; Call OSWORD
8714  A0 88              ..      LDY #&88
8716  B1 A8              ..      LDA (&A8),Y
8718  60                 `       RTS                                 ; Return result in A

; -----------------------------------------------------------------------------
; Make an OSBYTE call
; -----------------------------------------------------------------------------
.
8719  20 F4 FF            ..     JSR osbyte
871C  4C 22 87           L".     JMP &8722

; -----------------------------------------------------------------------------
; Make an OSWORD call
; -----------------------------------------------------------------------------
.
871F  20 F1 FF            ..     JSR osword
.
8722  60                 `       RTS
.
8723  8A                 .       TXA
8724  D0 06              ..      BNE &872C
8726  B0 04              ..      BCS &872C
8728  A9 20              .       LDA #&20
872A  D0 04              ..      BNE &8730
.
872C  18                 .       CLC
872D  69 30              i0      ADC #&30
872F  38                 8       SEC
.
8730  91 A8              ..      STA (&A8),Y
8732  60                 `       RTS
.
8733  A0 BF              ..      LDY #&BF
8735  B1 A8              ..      LDA (&A8),Y
8737  D0 08              ..      BNE &8741
8739  A0 A5              ..      LDY #&A5
873B  B1 A8              ..      LDA (&A8),Y
873D  29 04              ).      AND #&04
873F  D0 02              ..      BNE &8743
.
8741  A9 00              ..      LDA #&00
.
8743  60                 `       RTS
.
8744  A5 A8              ..      LDA &A8
8746  85 AA              ..      STA &AA
8748  A5 A9              ..      LDA &A9
874A  85 AB              ..      STA &AB
874C  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
874F  20 33 87            3.     JSR &8733
8752  F0 02              ..      BEQ &8756
8754  A9 FF              ..      LDA #&FF
.
8756  A0 AA              ..      LDY #&AA
8758  91 A8              ..      STA (&A8),Y
875A  A9 80              ..      LDA #&80
875C  A2 FC              ..      LDX #&FC
875E  A0 FF              ..      LDY #&FF
8760  20 19 87            ..     JSR &8719                            ; *FX 128, 252, 255
8763  E0 19              ..      CPX #&19
8765  B0 1B              ..      BCS &8782
8767  38                 8       SEC
8768  A0 B5              ..      LDY #&B5
876A  B1 A8              ..      LDA (&A8),Y
876C  E9 01              ..      SBC #&01
876E  91 A8              ..      STA (&A8),Y
8770  C8                 .       INY
8771  B1 A8              ..      LDA (&A8),Y
8773  E9 00              ..      SBC #&00
8775  91 A8              ..      STA (&A8),Y
8777  D0 CA              ..      BNE &8743
8779  A0 B4              ..      LDY #&B4
877B  A9 02              ..      LDA #&02
877D  91 A8              ..      STA (&A8),Y
877F  4C 43 87           LC.     JMP &8743
.
8782  20 9A 89            ..     JSR &899A ; &xxB5=&D0, &xxB6=&07
8785  A0 D7              ..      LDY #&D7
8787  B1 A8              ..      LDA (&A8),Y
8789  AA                 .       TAX
878A  A9 03              ..      LDA #&03
878C  20 19 87            ..     JSR &8719                           ; *FX 3, x
878F  8A                 .       TXA
8790  48                 H       PHA
8791  A0 A2              ..      LDY #&A2
8793  B1 A8              ..      LDA (&A8),Y
8795  AA                 .       TAX
8796  68                 h       PLA
8797  E8                 .       INX
8798  CA                 .       DEX
8799  F0 7D              .}      BEQ &8818
879B  48                 H       PHA
879C  A9 13              ..      LDA #&13
879E  A0 A6              ..      LDY #&A6
87A0  91 A8              ..      STA (&A8),Y
87A2  A0 A3              ..      LDY #&A3
87A4  B1 A8              ..      LDA (&A8),Y
87A6  A8                 .       TAY
.
87A7  8A                 .       TXA
87A8  F0 63              .c      BEQ &880D
87AA  48                 H       PHA
87AB  98                 .       TYA
87AC  48                 H       PHA
87AD  B1 AA              ..      LDA (&AA),Y
87AF  C9 03              ..      CMP #&03
87B1  D0 06              ..      BNE &87B9
87B3  A0 BF              ..      LDY #&BF
87B5  B1 A8              ..      LDA (&A8),Y
87B7  D0 6A              .j      BNE &8823
.
87B9  A0 D8              ..      LDY #&D8
87BB  B1 A8              ..      LDA (&A8),Y
87BD  F0 0B              ..      BEQ &87CA
87BF  68                 h       PLA
87C0  48                 H       PHA
87C1  A8                 .       TAY
87C2  B1 AA              ..      LDA (&AA),Y
87C4  A0 D9              ..      LDY #&D9
87C6  D1 A8              ..      CMP (&A8),Y
87C8  F0 26              .&      BEQ &87F0
.
87CA  A0 FF              ..      LDY #&FF
87CC  A2 00              ..      LDX #&00
87CE  A9 F6              ..      LDA #&F6
87D0  20 F4 FF            ..     JSR osbyte                                         ; *FX 230, 0, 255: Read flags determining ESCAPE effect
87D3  68                 h       PLA
87D4  A8                 .       TAY
87D5  8A                 .       TXA
87D6  D1 AA              ..      CMP (&AA),Y
87D8  D0 1B              ..      BNE &87F5
87DA  98                 .       TYA
87DB  48                 H       PHA
87DC  A9 06              ..      LDA #&06
87DE  E8                 .       INX
87DF  20 F4 FF            ..     JSR osbyte
87E2  68                 h       PLA
87E3  48                 H       PHA
87E4  A8                 .       TAY
87E5  B1 AA              ..      LDA (&AA),Y
87E7  20 34 88            4.     JSR &8834
87EA  AA                 .       TAX
87EB  A9 06              ..      LDA #&06
87ED  20 F4 FF            ..     JSR osbyte
.
87F0  68                 h       PLA
87F1  A8                 .       TAY
87F2  4C FA 87           L..     JMP &87FA
.
87F5  B1 AA              ..      LDA (&AA),Y
87F7  20 34 88            4.     JSR &8834
.
87FA  68                 h       PLA
87FB  AA                 .       TAX
87FC  98                 .       TYA
87FD  48                 H       PHA
87FE  A0 A6              ..      LDY #&A6
8800  B1 A8              ..      LDA (&A8),Y
8802  38                 8       SEC
8803  E9 01              ..      SBC #&01
8805  91 A8              ..      STA (&A8),Y
8807  CA                 .       DEX
8808  68                 h       PLA
8809  A8                 .       TAY
880A  C8                 .       INY
880B  B0 9A              ..      BCS &87A7
.
880D  98                 .       TYA
880E  A0 A3              ..      LDY #&A3
8810  91 A8              ..      STA (&A8),Y
8812  8A                 .       TXA
8813  A0 A2              ..      LDY #&A2
8815  91 A8              ..      STA (&A8),Y
.
8817  68                 h       PLA
.
8818  AA                 .       TAX
8819  A9 03              ..      LDA #&03
881B  20 19 87            ..     JSR &8719 ; *FX 3,x
881E  A0 A2              ..      LDY #&A2
8820  B1 A8              ..      LDA (&A8),Y
8822  60                 `       RTS
.
8823  68                 h       PLA
8824  68                 h       PLA
8825  A9 FF              ..      LDA #&FF
8827  A0 AA              ..      LDY #&AA
8829  91 A8              ..      STA (&A8),Y
882B  A9 00              ..      LDA #&00
882D  A0 A2              ..      LDY #&A2
882F  91 A8              ..      STA (&A8),Y
8831  4C 17 88           L..     JMP &8817
.
8834  48                 H       PHA
8835  98                 .       TYA
8836  48                 H       PHA
8837  AD B7 FF           ...     LDA &FFB7
883A  85 FA              ..      STA &FA
883C  AD B8 FF           ...     LDA &FFB8
883F  85 FB              ..      STA &FB
8841  A0 0E              ..      LDY #&0E
8843  B1 FA              ..      LDA (&FA),Y
8845  48                 H       PHA
8846  C8                 .       INY
8847  B1 FA              ..      LDA (&FA),Y
8849  85 FB              ..      STA &FB
884B  68                 h       PLA
884C  85 FA              ..      STA &FA
884E  68                 h       PLA
884F  A8                 .       TAY
8850  68                 h       PLA
8851  6C FA 00           l..     JMP (&00FA)



; -----------------------------------------------------------------------------
; -----------------------------------------------------------------------------
.
8854  A0 87              ..      LDY #&87                            ; &xx87: Receive control block number
8856  20 CE 85            ..     JSR &85CE                           ; Poll RECEIVE block in Y, and return result in A
8859  30 03              0.      BMI &885E                           ; Jump if a message is received
885B  4C 10 89           L..     JMP &8910
.
885E  A0 87              ..      LDY #&87
8860  B1 A8              ..      LDA (&A8),Y                         ; Receive control block number in A
8862  A0 95              ..      LDY #&95
8864  91 A8              ..      STA (&A8),Y
8866  A2 95              ..      LDX #&95
8868  A4 A9              ..      LDY &A9
886A  A9 11              ..      LDA #&11                            ; OSWORD &11: Open or read network receive block
886C  20 F1 FF            ..     JSR osword
886F  A9 2F              ./      LDA #&2F
8871  85 AA              ..      STA &AA
8873  A6 A9              ..      LDX &A9                             ; Workspace + &0100
8875  E8                 .       INX
8876  86 AB              ..      STX &AB                             ; Workspace + &022F
8878  A0 C1              ..      LDY #&C1
.
887A  B1 A8              ..      LDA (&A8),Y
887C  C9 61              .a      CMP #&61
887E  90 08              ..      BCC &8888
8880  C9 7B              .{      CMP #&7B
8882  B0 04              ..      BCS &8888
8884  29 DF              ).      AND #&DF                            ; Make character upper-case
8886  91 A8              ..      STA (&A8),Y                         
.
8888  C8                 .       INY
8889  C0 C7              ..      CPY #&C7                            ; Make first 6 characters of message upper case
888B  D0 ED              ..      BNE &887A
888D  A0 C1              ..      LDY #&C1
.
888F  B1 A8              ..      LDA (&A8),Y
8891  59 7C 88           Y|.     EOR &887C,Y                         ; &887D+&C1=&893D: "Print "
8894  29 DF              ).      AND #&DF
8896  D0 07              ..      BNE &889F
8898  C8                 .       INY
8899  C0 C7              ..      CPY #&C7
889B  F0 19              ..      BEQ &88B6
889D  D0 F0              ..      BNE &888F
.
889F  A0 C1              ..      LDY #&C1
.
88A1  B1 AA              ..      LDA (&AA),Y
88A3  C9 61              .a      CMP #&61
88A5  90 06              ..      BCC &88AD
88A7  C9 7B              .{      CMP #&7B
88A9  B0 02              ..      BCS &88AD
88AB  29 DF              ).      AND #&DF
.
88AD  51 A8              Q.      EOR (&A8),Y
88AF  D0 5C              .\      BNE &890D
88B1  C8                 .       INY
88B2  C0 C7              ..      CPY #&C7
88B4  D0 EB              ..      BNE &88A1
.                                                                    ; Print command received
88B6  B1 A8              ..      LDA (&A8),Y                         ; Get printer type
88B8  C9 07              ..      CMP #&07                            ; Only printer types 0 to 7 are supported 
88BA  B0 51              .Q      BCS &890D                           ; Jump if 7th character > &07
88BC  0A                 .       ASL A
88BD  AA                 .       TAX
88BE  BD 58 89           .X.     LDA &8958,X
88C1  48                 H       PHA
88C2  BD 57 89           .W.     LDA &8957,X
88C5  48                 H       PHA
88C6  60                 `       RTS

88C7  C8                 .       INY
88C8  B1 A8              ..      LDA (&A8),Y
88CA  D0 41              .A      BNE &890D
88CC  A0 B4              ..      LDY #&B4
88CE  B1 A8              ..      LDA (&A8),Y
88D0  08                 .       PHP
88D1  A0 C1              ..      LDY #&C1
88D3  91 A8              ..      STA (&A8),Y
88D5  C8                 .       INY
88D6  28                 (       PLP
88D7  F0 12              ..      BEQ &88EB
88D9  A0 8B              ..      LDY #&8B
88DB  B1 A8              ..      LDA (&A8),Y
88DD  A0 C2              ..      LDY #&C2
88DF  91 A8              ..      STA (&A8),Y
88E1  A0 8C              ..      LDY #&8C
88E3  B1 A8              ..      LDA (&A8),Y
88E5  A0 C3              ..      LDY #&C3
88E7  91 A8              ..      STA (&A8),Y
88E9  A0 C4              ..      LDY #&C4
.
88EB  98                 .       TYA
88EC  48                 H       PHA
88ED  A0 82              ..      LDY #&82
88EF  B1 A8              ..      LDA (&A8),Y
88F1  A0 83              ..      LDY #&83
88F3  91 A8              ..      STA (&A8),Y
88F5  A0 97              ..      LDY #&97
88F7  A9 9E              ..      LDA #&9E
88F9  91 A8              ..      STA (&A8),Y
88FB  A0 9E              ..      LDY #&9E
88FD  68                 h       PLA
88FE  91 A8              ..      STA (&A8),Y
8900  A9 64              .d      LDA #&64
8902  A0 B7              ..      LDY #&B7
8904  91 A8              ..      STA (&A8),Y
8906  A9 0A              ..      LDA #&0A
8908  A0 82              ..      LDY #&82
890A  91 A8              ..      STA (&A8),Y
890C  60                 `       RTS
.
890D  20 65 89            e.     JSR &8965                 ; Set up &9F PrintServerEnquiry receive block
.
8910  A9 00              ..      LDA #&00
8912  60                 `       RTS

.
8913  C8                 .       INY
8914  B1 A8              ..      LDA (&A8),Y
8916  D0 0C              ..      BNE &8924
8918  A0 C1              ..      LDY #&C1
.
891A  B9 82 88           ...     LDA &8882,Y
891D  F0 CC              ..      BEQ &88EB
891F  91 A8              ..      STA (&A8),Y
8921  C8                 .       INY
8922  D0 F6              ..      BNE &891A
.
8924  A0 C1              ..      LDY #&C1
.
8926  B9 92 88           ...     LDA &8892,Y
8929  D0 C0              ..      BNE &88EB
892B  91 A8              ..      STA (&A8),Y
892D  C8                 .       INY
892E  D0 F6              ..      BNE &8926
8930  A0 C1              ..      LDY #&C1
.
8932  B1 AA              ..      LDA (&AA),Y
8934  91 A8              ..      STA (&A8),Y
8936  C8                 .       INY
8937  C0 C7              ..      CPY #&C7
8939  D0 F7              ..      BNE &8932
893B  F0 AE              ..      BEQ &88EB

.
893D  50 72              Pr      BVC &89B1
893F  69 6E              in      ADC #&6E
8941  74                 t       ...
8942  20 4E 6F            No     JSR &6F4E
8945  74                 t       ...
8946  20 61 20            a      JSR &2061
8949  73                 s       ...
894A  70 6F              po      BVS &89BB
894C  6F                 o       ...
894D  6C 65 72           ler     JMP (&7265)
8950  2E FF 00           ...     ROL &00FF
8953  00                 .       BRK
8954  00                 .       BRK
8955  00                 .       BRK
8956  FF                 .       ...

8957  0C 89              ..      DW  &890C                 ; 0: Default
8959  C6 88              ..      DW  &88C6                 ; 1: Olivetti Ink Jet
895B  0C 89              ..      DW  &890C                 ; 2: Epson MX80/FX80
895D  12 89              ..      DW  &8912                 ; 3: Walters Microsystems 2000
895F  12 89              ..      DW  &8912                 ; 4: Mannesmann Tally MT180
8961  12 89              ..      DW  &8912                 ; 5: Mannesmann Tally MT140
8963  2F 89              /.      DW  &892F                 ; 6: Micro Peripherals MPI99G
                                                           ; 7: Florida Data BNY


; -----------------------------------------------------------------------------
; Set up &9F PrintServerEnquiry receive block
; -----------------------------------------------------------------------------
.
8965  A0 95              ..      LDY #&95
.
8967  B9 F8 88           ...     LDA &88F8,Y
896A  91 A8              ..      STA (&A8),Y
896C  C8                 .       INY
896D  C0 A2              ..      CPY #&A2
896F  D0 F6              ..      BNE &8967
8971  A5 A9              ..      LDA &A9
8973  A0 9B              ..      LDY #&9B
8975  91 A8              ..      STA (&A8),Y
8977  A0 9F              ..      LDY #&9F
8979  91 A8              ..      STA (&A8),Y
897B  A9 11              ..      LDA #&11                            ; OSWORD &11: Open or read network receive block
897D  A2 95              ..      LDX #&95
897F  A4 A9              ..      LDY &A9
8981  20 F1 FF            ..     JSR osword
8984  A0 95              ..      LDY #&95
8986  B1 A8              ..      LDA (&A8),Y
8988  A0 87              ..      LDY #&87
898A  91 A8              ..      STA (&A8),Y
898C  60                 `       RTS
898D  00                 .       BRK
898E  7F                 .       ...
898F  9F                 .       ...
8990  00                 .       BRK
8991  00                 .       BRK
8992  C1 00              ..      CMP (&00,X)
8994  FF                 .       ...
8995  FF                 .       ...
8996  C9 00              ..      CMP #&00
8998  FF                 .       ...
8999  FF                 .       ...

;
; &xxB5=&D0, &xxB6=&07
;
.
899A  A0 B5              ..      LDY #&B5
899C  A9 D0              ..      LDA #&D0
899E  91 A8              ..      STA (&A8),Y
89A0  C8                 .       INY
89A1  A9 07              ..      LDA #&07
89A3  91 A8              ..      STA (&A8),Y
89A5  60                 `       RTS
.
89A6  A0 B8              ..      LDY #&B8
89A8  B1 A8              ..      LDA (&A8),Y
89AA  A0 8B              ..      LDY #&8B
89AC  D1 A8              ..      CMP (&A8),Y
89AE  D0 08              ..      BNE &89B8
89B0  A0 B9              ..      LDY #&B9
89B2  B1 A8              ..      LDA (&A8),Y
89B4  A0 8C              ..      LDY #&8C
89B6  D1 A8              ..      CMP (&A8),Y
.
89B8  60                 `       RTS

; -----------------------------------------------------------------------------
; Event handler
; -----------------------------------------------------------------------------
.
89B9  08                 .       PHP
89BA  85 FA              ..      STA &FA
89BC  48                 H       PHA
89BD  98                 .       TYA
89BE  48                 H       PHA
89BF  8A                 .       TXA
89C0  48                 H       PHA
89C1  A2 03              ..      LDX #&03
.
89C3  B5 A8              ..      LDA &A8,X                            ; Preserve &A8-&AB
89C5  48                 H       PHA
89C6  CA                 .       DEX
89C7  10 FA              ..      BPL &89C3
89C9  20 B6 86            ..     JSR &86B6                            ; Initialize workspace pointer at &A8-&A9
89CC  A5 FA              ..      LDA &FA
89CE  C9 05              ..      CMP #&05
89D0  F0 07              ..      BEQ &89D9                            ; Interval timer crossing 0 event
89D2  C9 06              ..      CMP #&06
89D4  F0 20              .       BEQ &89F6                            ; ESCAPE pressed event
89D6  4C 13 8D           L..     JMP &8D13
.
89D9  20 DA 86            ..     JSR &86DA                            ; Does nothing (RTS)
89DC  20 C6 86            ..     JSR &86C6                            ; Initialize interval timer
89DF  20 54 88            T.     JSR &8854
89E2  F0 03              ..      BEQ &89E7
89E4  4C 13 8D           L..     JMP &8D13
.
89E7  A0 82              ..      LDY #&82
89E9  B1 A8              ..      LDA (&A8),Y
89EB  0A                 .       ASL A
89EC  AA                 .       TAX
89ED  BD 15 8A           ...     LDA &8A15,X
89F0  48                 H       PHA
89F1  BD 14 8A           ...     LDA &8A14,X
89F4  48                 H       PHA
89F5  60                 `       RTS
.
89F6  A0 07              ..      LDY #&07
.
89F8  B9 0C 8A           ...     LDA &8A0C,Y
89FB  AA                 .       TAX
89FC  A9 0F              ..      LDA #&0F
89FE  20 F4 FF            ..     JSR osbyte                             ; Flush buffers
8A01  88                 .       DEY
8A02  10 F4              ..      BPL &89F8
8A04  A9 7D              .}      LDA #&7D
8A06  20 F4 FF            ..     JSR osbyte                             ; Set ESCAPE condition
8A09  4C 13 8D           L..     JMP &8D13

8A0C  00                 .                                             ; Buffer &00: Keyboard buffer
8A0D  01                 .                                             ; Buffer &01: RS423 input buffer
8A0E  02                 .                                             ; Buffer &02: RS423 output buffer
8A0F  04                 .                                             ; Buffer &04: Sound channel 0 buffer
8A10  05                 .                                             ; Buffer &05: Sound channel 1 buffer
8A11  06                 .                                             ; Buffer &06: Sound channel 2 buffer
8A12  07                 .                                             ; Buffer &07: Sound channel 3 buffer
8A13  08                 .                                             ; Buffer &08: Speech buffer

; -----------------------------------------------------------------------------
; Jump table
; -----------------------------------------------------------------------------
.
8A14  2B 8A              +.      
8A16  87 8B              ..      
8A18  ED 8B              ..
8A1A  03 8C              ..
8A1C  11 8C              ..
8A1E  49 8C              I.      
8A20  91 8C              ..      
8A22  06 8D              ..      
8A24  A7 8C              ..      
8A26  0A 8B              ..
8A28  B7 8C              ..
8A2A  E3 8C              ..

; -----------------------------------------------------------------------------
; Event handler
; -----------------------------------------------------------------------------
.
8A2C  A0 84              ..      LDY #&84                              ; Control block number for port &D0 (PrinterServerReply)
8A2E  20 CE 85            ..     JSR &85CE                             ; Poll RECEIVE block in Y, and return result in A
8A31  30 2E              0.      BMI &8A61                             ; Jump if something was received on port &D0
8A33  A0 85              ..      LDY #&85                              ; Control block number for port &D1 (PrinterServerData)
8A35  20 CE 85            ..     JSR &85CE                             ; Poll RECEIVE block in Y, and return result in A
8A38  30 27              0'      BMI &8A61                             ; Jump if something was received on port &D1
8A3A  A0 86              ..      LDY #&86
8A3C  B1 A8              ..      LDA (&A8),Y
8A3E  F0 17              ..      BEQ &8A57
8A40  A0 A8              ..      LDY #&A8
8A42  B1 A8              ..      LDA (&A8),Y
8A44  38                 8       SEC
8A45  E9 01              ..      SBC #&01
8A47  91 A8              ..      STA (&A8),Y
8A49  C8                 .       INY
8A4A  B1 A8              ..      LDA (&A8),Y
8A4C  E9 00              ..      SBC #&00
8A4E  91 A8              ..      STA (&A8),Y
8A50  D0 05              ..      BNE &8A57
8A52  88                 .       DEY
8A53  B1 A8              ..      LDA (&A8),Y
8A55  F0 03              ..      BEQ &8A5A
.
8A57  4C 72 8B           Lr.     JMP &8B72
.
8A5A  A9 07              ..      LDA #&07
8A5C  F0 03              ..      BEQ &8A61
8A5E  4C 6E 8B           Ln.     JMP &8B6E

.
8A61  B1 A8              ..      LDA (&A8),Y                           ; Control block number in A
8A63  A0 88              ..      LDY #&88
8A65  91 A8              ..      STA (&A8),Y
8A67  20 0B 87            ..     JSR &870B                             ; Make an OSWORD &11 call (Econet Receive)
8A6A  A0 8A              ..      LDY #&8A
8A6C  B1 A8              ..      LDA (&A8),Y
8A6E  C9 D0              ..      CMP #&D0                              ; Was it port &D0 (PrinterServerReply) ?
8A70  F0 09              ..      BEQ &8A7B
8A72  C9 D1              ..      CMP #&D1                              ; Was it port &D1 (PrinterServerData) ?
8A74  F0 05              ..      BEQ &8A7B
.
8A76  A9 06              ..      LDA #&06
8A78  4C 6E 8B           Ln.     JMP &8B6E

; 
; Packet received on port &D0 (PrinterServerReply) or &D1 (PrinterServerData)
;
.
8A7B  20 9A 89            ..     JSR &899A                             ; &xxB5=&D0, &xxB6=&07
8A7E  A0 B4              ..      LDY #&B4
8A80  A9 01              ..      LDA #&01
8A82  91 A8              ..      STA (&A8),Y                           ; &xxB4=&01
8A84  20 DE 85            ..     JSR &85DE
8A87  A0 86              ..      LDY #&86
8A89  B1 A8              ..      LDA (&A8),Y                           ; Destination network
8A8B  08                 .       PHP
8A8C  A0 89              ..      LDY #&89
8A8E  B1 A8              ..      LDA (&A8),Y                           ; Control byte of received package
8A90  A0 A5              ..      LDY #&A5
8A92  91 A8              ..      STA (&A8),Y
8A94  28                 (       PLP
8A95  D0 20              .       BNE &8AB7                             ; Not on our local Econet network, so it needs to be routed to a bridge
8A97  A0 A4              ..      LDY #&A4
8A99  91 A8              ..      STA (&A8),Y
8A9B  48                 H       PHA
8A9C  20 A6 89            ..     JSR &89A6
8A9F  F0 15              ..      BEQ &8AB6
8AA1  4C A8 8A           L..     JMP &8AA8
.
8AA4  68                 h       PLA
8AA5  4C 76 8A           Lv.     JMP &8A76
.
8AA8  A0 00              ..      LDY #&00
8AAA  B1 A8              ..      LDA (&A8),Y
8AAC  F0 04              ..      BEQ &8AB2
8AAE  C9 02              ..      CMP #&02
8AB0  D0 F2              ..      BNE &8AA4
.
8AB2  A0 BF              ..      LDY #&BF
8AB4  91 A8              ..      STA (&A8),Y
.
8AB6  68                 h       PLA
.
8AB7  A0 A4              ..      LDY #&A4
8AB9  51 A8              Q.      EOR (&A8),Y
8ABB  6A                 j       ROR A
8ABC  90 06              ..      BCC &8AC4
8ABE  20 A9 86            ..     JSR &86A9
8AC1  4C 6E 8B           Ln.     JMP &8B6E
.
8AC4  A0 8A              ..      LDY #&8A
8AC6  B1 A8              ..      LDA (&A8),Y                           ; Port number of received Econet package
8AC8  A8                 .       TAY
8AC9  A9 01              ..      LDA #&01
8ACB  C0 D0              ..      CPY #&D0                              ; Was it port &D0 (PrinterServerReply) ?
8ACD  F0 04              ..      BEQ &8AD3
8ACF  A0 91              ..      LDY #&91
8AD1  B1 A8              ..      LDA (&A8),Y                           ; &xxA2 = &01 for PrintServerQuery, = &xx91 for PrintServerData
.
8AD3  A0 A2              ..      LDY #&A2
8AD5  91 A8              ..      STA (&A8),Y
8AD7  20 33 87            3.     JSR &8733
8ADA  F0 09              ..      BEQ &8AE5
8ADC  A0 A2              ..      LDY #&A2
8ADE  B1 A8              ..      LDA (&A8),Y
8AE0  38                 8       SEC
8AE1  E9 01              ..      SBC #&01
8AE3  91 A8              ..      STA (&A8),Y
.
8AE5  A0 86              ..      LDY #&86
8AE7  B1 A8              ..      LDA (&A8),Y
8AE9  F0 03              ..      BEQ &8AEE
8AEB  4C 60 8B           L`.     JMP &8B60
.
8AEE  A0 AE              ..      LDY #&AE
8AF0  B1 A8              ..      LDA (&A8),Y
8AF2  F0 17              ..      BEQ &8B0B
8AF4  20 A6 89            ..     JSR &89A6
8AF7  F0 67              .g      BEQ &8B60
8AF9  A0 B0              ..      LDY #&B0
8AFB  B1 A8              ..      LDA (&A8),Y
8AFD  A0 A2              ..      LDY #&A2
8AFF  91 A8              ..      STA (&A8),Y
8B01  A9 B0              ..      LDA #&B0
8B03  A0 A3              ..      LDY #&A3
8B05  91 A8              ..      STA (&A8),Y
8B07  A9 08              ..      LDA #&08
8B09  D0 63              .c      BNE &8B6E
.
8B0B  A0 86              ..      LDY #&86
8B0D  A9 FF              ..      LDA #&FF
8B0F  91 A8              ..      STA (&A8),Y
8B11  A0 AE              ..      LDY #&AE
8B13  91 A8              ..      STA (&A8),Y
8B15  A0 8B              ..      LDY #&8B
8B17  B1 A8              ..      LDA (&A8),Y
8B19  A0 B8              ..      LDY #&B8
8B1B  91 A8              ..      STA (&A8),Y
8B1D  A0 8C              ..      LDY #&8C
8B1F  B1 A8              ..      LDA (&A8),Y
8B21  A0 B9              ..      LDY #&B9
8B23  91 A8              ..      STA (&A8),Y
8B25  A0 C0              ..      LDY #&C0
8B27  B1 A8              ..      LDA (&A8),Y
8B29  D0 03              ..      BNE &8B2E
8B2B  4C F5 8B           L..     JMP &8BF5
.
8B2E  A0 B2              ..      LDY #&B2
8B30  B1 A8              ..      LDA (&A8),Y
8B32  AA                 .       TAX
8B33  48                 H       PHA
8B34  A9 00              ..      LDA #&00
8B36  A0 00              ..      LDY #&00
8B38  20 F8 85            ..     JSR &85F8
8B3B  A0 AF              ..      LDY #&AF
8B3D  B1 A8              ..      LDA (&A8),Y
8B3F  AA                 .       TAX
8B40  68                 h       PLA
8B41  18                 .       CLC
8B42  69 00              i.      ADC #&00
8B44  A0 1E              ..      LDY #&1E
8B46  20 F8 85            ..     JSR &85F8
8B49  A0 AF              ..      LDY #&AF
8B4B  B1 A8              ..      LDA (&A8),Y
8B4D  18                 .       CLC
8B4E  A0 B2              ..      LDY #&B2
8B50  71 A8              q.      ADC (&A8),Y
8B52  A0 A2              ..      LDY #&A2
8B54  91 A8              ..      STA (&A8),Y
8B56  A9 00              ..      LDA #&00
8B58  A0 A3              ..      LDY #&A3
8B5A  91 A8              ..      STA (&A8),Y
8B5C  A9 01              ..      LDA #&01
8B5E  D0 0E              ..      BNE &8B6E
.
8B60  A0 86              ..      LDY #&86
8B62  A9 FF              ..      LDA #&FF
8B64  91 A8              ..      STA (&A8),Y
8B66  A0 A3              ..      LDY #&A3
8B68  A9 00              ..      LDA #&00
8B6A  91 A8              ..      STA (&A8),Y
8B6C  A9 03              ..      LDA #&03
.
8B6E  A0 82              ..      LDY #&82
8B70  91 A8              ..      STA (&A8),Y
.
8B72  4C 13 8D           L..     JMP &8D13
8B75  20 2A 2A            **     JSR &2A2A
8B78  20 53 74            St     JSR &7453
8B7B  61 74              at      ADC (&74,X)
8B7D  69 6F              io      ADC #&6F
8B7F  6E 20 78           n x     ROR &7820
8B82  78                 x       SEI
8B83  78                 x       SEI
8B84  20 2A 2A            **     JSR &2A2A
8B87  80                 .       ...
8B88  20 44 87            D.     JSR &8744
8B8B  D0 5E              .^      BNE &8BEB
8B8D  A0 82              ..      LDY #&82
8B8F  A9 02              ..      LDA #&02
8B91  91 A8              ..      STA (&A8),Y
8B93  E6 A9              ..      INC &A9
8B95  A0 5E              .^      LDY #&5E
.
8B97  B9 17 8B           ...     LDA &8B17,Y
8B9A  30 05              0.      BMI &8BA1
8B9C  91 A8              ..      STA (&A8),Y
8B9E  C8                 .       INY
8B9F  D0 F6              ..      BNE &8B97
.
8BA1  A0 8B              ..      LDY #&8B
8BA3  A2 FF              ..      LDX #&FF
8BA5  C6 A9              ..      DEC &A9
8BA7  B1 A8              ..      LDA (&A8),Y
8BA9  E6 A9              ..      INC &A9
.
8BAB  E8                 .       INX
8BAC  38                 8       SEC
8BAD  E9 64              .d      SBC #&64
8BAF  B0 FA              ..      BCS &8BAB
8BB1  48                 H       PHA
8BB2  A0 6A              .j      LDY #&6A
8BB4  18                 .       CLC
8BB5  20 23 87            #.     JSR &8723
8BB8  68                 h       PLA
8BB9  08                 .       PHP
8BBA  18                 .       CLC
8BBB  69 64              id      ADC #&64
8BBD  A2 FF              ..      LDX #&FF
.
8BBF  E8                 .       INX
8BC0  38                 8       SEC
8BC1  E9 0A              ..      SBC #&0A
8BC3  B0 FA              ..      BCS &8BBF
8BC5  28                 (       PLP
8BC6  48                 H       PHA
8BC7  A0 6B              .k      LDY #&6B
8BC9  20 23 87            #.     JSR &8723
8BCC  68                 h       PLA
8BCD  08                 .       PHP
8BCE  18                 .       CLC
8BCF  69 0A              i.      ADC #&0A
8BD1  AA                 .       TAX
8BD2  A0 6C              .l      LDY #&6C
8BD4  28                 (       PLP
8BD5  20 23 87            #.     JSR &8723
8BD8  C6 A9              ..      DEC &A9
8BDA  A0 B1              ..      LDY #&B1
8BDC  B1 A8              ..      LDA (&A8),Y
8BDE  18                 .       CLC
8BDF  69 12              i.      ADC #&12
8BE1  A0 A2              ..      LDY #&A2
8BE3  91 A8              ..      STA (&A8),Y
8BE5  A9 5E              .^      LDA #&5E
8BE7  A0 A3              ..      LDY #&A3
8BE9  91 A8              ..      STA (&A8),Y
.
8BEB  4C 13 8D           L..     JMP &8D13
8BEE  E6 A9              ..      INC &A9
8BF0  20 44 87            D.     JSR &8744
8BF3  D0 0C              ..      BNE &8C01
.
8BF5  20 A0 86            ..     JSR &86A0                          ; Toggle bit 1 of &xxA4
8BF8  A9 00              ..      LDA #&00
8BFA  A0 AA              ..      LDY #&AA
8BFC  91 A8              ..      STA (&A8),Y
8BFE  20 A9 86            ..     JSR &86A9
.
8C01  4C 13 8D           L..     JMP &8D13
8C04  20 44 87            D.     JSR &8744
8C07  D0 06              ..      BNE &8C0F
8C09  20 A0 86            ..     JSR &86A0                          ; Toggle bit 1 of &xxA4
8C0C  20 A9 86            ..     JSR &86A9
.
8C0F  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; Transmit the block at (&A8), &89
; -----------------------------------------------------------------------------
.
8C12  A0 A5              ..      LDY #&A5
8C14  B1 A8              ..      LDA (&A8),Y
8C16  29 01              ).      AND #&01
8C18  09 80              ..      ORA #&80
8C1A  A0 89              ..      LDY #&89
8C1C  91 A8              ..      STA (&A8),Y
8C1E  A9 01              ..      LDA #&01                            ; Address of buffer end
8C20  A0 91              ..      LDY #&91
8C22  91 A8              ..      STA (&A8),Y
8C24  A2 89              ..      LDX #&89
8C26  A4 A9              ..      LDY &A9
8C28  A9 10              ..      LDA #&10                            ; Transmit
8C2A  20 1F 87            ..     JSR &871F                           ; Call OSWORD
8C2D  A0 89              ..      LDY #&89
8C2F  B1 A8              ..      LDA (&A8),Y
8C31  F0 14              ..      BEQ &8C47                           ; Was the transmission succesfull?
8C33  A0 AB              ..      LDY #&AB
8C35  B1 A8              ..      LDA (&A8),Y
8C37  38                 8       SEC
8C38  E9 01              ..      SBC #&01
8C3A  91 A8              ..      STA (&A8),Y
8C3C  D0 03              ..      BNE &8C41
8C3E  4C 72 8C           Lr.     JMP &8C72
.
8C41  A0 82              ..      LDY #&82
8C43  A9 05              ..      LDA #&05
8C45  91 A8              ..      STA (&A8),Y
.
8C47  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8C4A  A9 32              .2      LDA #&32
8C4C  20 19 87            ..     JSR &8719 ; *FX &32, x
8C4F  8A                 .       TXA
8C50  30 3D              0=      BMI &8C8F
8C52  29 40              )@      AND #&40
8C54  F0 04              ..      BEQ &8C5A
8C56  A9 04              ..      LDA #&04
8C58  D0 31              .1      BNE &8C8B
.
8C5A  A0 AA              ..      LDY #&AA
8C5C  B1 A8              ..      LDA (&A8),Y
8C5E  F0 12              ..      BEQ &8C72
8C60  A0 B0              ..      LDY #&B0
8C62  B1 A8              ..      LDA (&A8),Y
8C64  A0 A2              ..      LDY #&A2
8C66  91 A8              ..      STA (&A8),Y
8C68  A9 B0              ..      LDA #&B0
8C6A  A0 A3              ..      LDY #&A3
8C6C  91 A8              ..      STA (&A8),Y
8C6E  A9 06              ..      LDA #&06
8C70  D0 19              ..      BNE &8C8B
.
8C72  A0 8D              ..      LDY #&8D
8C74  20 DE 86            ..     JSR &86DE
8C77  A0 88              ..      LDY #&88
8C79  A9 00              ..      LDA #&00
8C7B  91 A8              ..      STA (&A8),Y
8C7D  C8                 .       INY
8C7E  A9 7F              ..      LDA #&7F
8C80  91 A8              ..      STA (&A8),Y
8C82  20 0B 87            ..     JSR &870B                             ; Make an OSWORD &11 call (Econet Receive)
8C85  A0 84              ..      LDY #&84
8C87  91 A8              ..      STA (&A8),Y                           ; Store control block number for &D0: PrinterServerQuery
8C89  A9 00              ..      LDA #&00
.
8C8B  A0 82              ..      LDY #&82
8C8D  91 A8              ..      STA (&A8),Y
.
8C8F  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8C92  E6 A9              ..      INC &A9
8C94  20 44 87            D.     JSR &8744
8C97  D0 0C              ..      BNE &8CA5
8C99  A9 00              ..      LDA #&00
8C9B  A0 AE              ..      LDY #&AE
8C9D  91 A8              ..      STA (&A8),Y
8C9F  A9 07              ..      LDA #&07
8CA1  A0 82              ..      LDY #&82
8CA3  91 A8              ..      STA (&A8),Y
.
8CA5  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8CA8  E6 A9              ..      INC &A9
8CAA  20 44 87            D.     JSR &8744
8CAD  D0 06              ..      BNE &8CB5
8CAF  A9 09              ..      LDA #&09
8CB1  A0 82              ..      LDY #&82
8CB3  91 A8              ..      STA (&A8),Y
.
8CB5  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8CB8  A9 80              ..      LDA #&80                            ; 
8CBA  A0 96              ..      LDY #&96
8CBC  91 A8              ..      STA (&A8),Y
8CBE  A2 96              ..      LDX #&96
.
8CC0  A4 A9              ..      LDY &A9
8CC2  A9 10              ..      LDA #&10                            ; OSWORD &10: Network transmit
8CC4  20 F1 FF            ..     JSR osword
8CC7  A0 96              ..      LDY #&96
8CC9  B1 A8              ..      LDA (&A8),Y
8CCB  F0 14              ..      BEQ &8CE1                           ; Jump if transmission was succesfull
8CCD  A0 B7              ..      LDY #&B7
8CCF  B1 A8              ..      LDA (&A8),Y
8CD1  38                 8       SEC
8CD2  E9 01              ..      SBC #&01
8CD4  91 A8              ..      STA (&A8),Y
8CD6  D0 03              ..      BNE &8CDB
8CD8  4C F9 8C           L..     JMP &8CF9
.
8CDB  A0 82              ..      LDY #&82
8CDD  A9 0B              ..      LDA #&0B
8CDF  91 A8              ..      STA (&A8),Y
                                                                     ; Transmission was succesfull
.
8CE1  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8CE4  A9 32              .2      LDA #&32                            ; Poll transmission
8CE6  20 F4 FF            ..     JSR osbyte
8CE9  8A                 .       TXA
8CEA  30 18              0.      BMI &8D04                           ; Jump if transmission isn't completed
8CEC  29 40              )@      AND #&40
8CEE  F0 09              ..      BEQ &8CF9                           ; Jump if transmission was successfull
8CF0  A9 0A              ..      LDA #&0A
8CF2  A0 82              ..      LDY #&82
8CF4  91 A8              ..      STA (&A8),Y
8CF6  4C 13 8D           L..     JMP &8D13
.
8CF9  20 65 89            e.     JSR &8965                           ; Set up &9F PrintServerEnquiry receive block
8CFC  A0 83              ..      LDY #&83
8CFE  B1 A8              ..      LDA (&A8),Y
8D00  A0 82              ..      LDY #&82
8D02  91 A8              ..      STA (&A8),Y
.
8D04  4C 13 8D           L..     JMP &8D13

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8D07  20 DE 85            ..     JSR &85DE
8D0A  20 4F 86            O.     JSR &864F                           ; Set up Econet RECEIVE for port numbers &D0 and &D1
8D0D  A0 B4              ..      LDY #&B4
8D0F  A9 00              ..      LDA #&00
8D11  91 A8              ..      STA (&A8),Y
.
8D13  20 DB 86            ..     JSR &86DB                           ; Does nothing (RTS)
8D16  A0 D5              ..      LDY #&D5
8D18  B1 A8              ..      LDA (&A8),Y
8D1A  85 FA              ..      STA &FA
8D1C  C8                 .       INY
8D1D  B1 A8              ..      LDA (&A8),Y
8D1F  85 FB              ..      STA &FB
8D21  A2 00              ..      LDX #&00
.
8D23  68                 h       PLA
8D24  95 A8              ..      STA &A8,X
8D26  E8                 .       INX
8D27  E0 04              ..      CPX #&04
8D29  D0 F8              ..      BNE &8D23
8D2B  68                 h       PLA
.
8D2C  AA                 .       TAX
8D2D  68                 h       PLA
8D2E  A8                 .       TAY
8D2F  68                 h       PLA
8D30  28                 (       PLP
8D31  6C FA 00           l..     JMP (&00FA)

; -----------------------------------------------------------------------------
; 
; -----------------------------------------------------------------------------
.
8D34  E8                 .       INX
8D35  D0 F5              ..      BNE &8D2C
8D37  60                 `       RTS
8D38  0D 54 68           .Th     ORA &6854
8D3B  65 20              e       ADC &20
8D3D  61 75              au      ADC (&75,X)
8D3F  74                 t       ...
8D40  68                 h       PLA
8D41  6F                 o       ...
8D42  72                 r       ...
8D43  73                 s       ...
8D44  20 6F 66            of     JSR &666F
8D47  20 41 4E            AN     JSR &4E41
8D4A  46 53              FS      LSR &53
8D4C  20 61 72            ar     JSR &7261
8D4F  65 3B              e;      ADC &3B
8D51  0D 42 20           .B      ORA &2042
8D54  43                 C       ...
8D55  6F                 o       ...
8D56  63                 c       ...
8D57  6B                 k       ...
8D58  62                 b       ...
8D59  75 72              ur      ADC &72,X
8D5B  6E 0D 4A           n.J     ROR &4A0D
8D5E  20 44 75            Du     JSR &7544
8D61  6E 6E 0D           nn.     ROR &0D6E
8D64  42                 B       ...
8D65  20 52 6F            Ro     JSR &6F52
8D68  62                 b       ...
8D69  65 72              er      ADC &72
8D6B  74                 t       ...
8D6C  73                 s       ...
8D6D  6F                 o       ...
8D6E  6E 0D 4A           n.J     ROR &4A0D
8D71  20 57 69            Wi     JSR &6957
8D74  6C 6C 73           lls     JMP (&736C)
8D77  0D 00 98           ...     ORA &9800
8D7A  48                 H       PHA
8D7B  A9 77              .w      LDA #&77
8D7D  8D 07 0E           ...     STA &0E07
8D80  20 F4 FF            ..     JSR osbyte                                     ; *FX 119: Close any SPOOL or EXEC files
8D83  A0 00              ..      LDY #&00
8D85  84 B4              ..      STY &B4
8D87  20 99 B7            ..     JSR &B799
8D8A  A9 00              ..      LDA #&00
8D8C  8D 07 0E           ...     STA &0E07
8D8F  68                 h       PLA
8D90  A8                 .       TAY
8D91  B1 BB              ..      LDA (&BB),Y
8D93  20 58 92            X.     JSR &9258
8D96  90 24              .$      BCC &8DBC
8D98  20 6E 91            n.     JSR &916E
8D9B  B0 0A              ..      BCS &8DA7
8D9D  8D 01 0E           ...     STA &0E01
8DA0  20 09 8E            ..     JSR &8E09
8DA3  C8                 .       INY
8DA4  20 6E 91            n.     JSR &916E
.
8DA7  F0 13              ..      BEQ &8DBC
8DA9  8D 00 0E           ...     STA &0E00
8DAC  A2 FF              ..      LDX #&FF
.
8DAE  E8                 .       INX
8DAF  BD 77 A4           .w.     LDA &A477,X
8DB2  9D 05 0F           ...     STA &0F05,X
8DB5  10 F7              ..      BPL &8DAE
8DB7  20 06 AF            ..     JSR &AF06
8DBA  F0 03              ..      BEQ &8DBF
.
8DBC  20 02 AF            ..     JSR &AF02
.
8DBF  A0 FF              ..      LDY #&FF
.
8DC1  C8                 .       INY
8DC2  B9 05 0F           ...     LDA &0F05,Y
8DC5  C9 0D              ..      CMP #&0D
8DC7  F0 31              .1      BEQ &8DFA
8DC9  C9 3A              .:      CMP #&3A
8DCB  D0 F4              ..      BNE &8DC1
8DCD  20 EE FF            ..     JSR oswrch
8DD0  84 B4              ..      STY &B4
.
8DD2  A9 FF              ..      LDA #&FF
8DD4  85 98              ..      STA &98
8DD6  20 70 95            p.     JSR &9570
8DD9  20 E0 FF            ..     JSR osrdch
8DDC  C9 15              ..      CMP #&15
8DDE  D0 0B              ..      BNE &8DEB
8DE0  A4 B4              ..      LDY &B4
8DE2  D0 EE              ..      BNE &8DD2
.
8DE4  C4 B4              ..      CPY &B4
8DE6  F0 EA              ..      BEQ &8DD2
8DE8  88                 .       DEY
8DE9  D0 E7              ..      BNE &8DD2
.
8DEB  C9 7F              ..      CMP #&7F
8DED  F0 F5              ..      BEQ &8DE4
8DEF  99 05 0F           ...     STA &0F05,Y
8DF2  C8                 .       INY
8DF3  C9 0D              ..      CMP #&0D
8DF5  D0 DB              ..      BNE &8DD2
8DF7  20 E7 FF            ..     JSR osnewl
.
8DFA  98                 .       TYA
8DFB  48                 H       PHA
8DFC  20 73 94            s.     JSR &9473
8DFF  20 94 98            ..     JSR &9894
8E02  68                 h       PLA
8E03  AA                 .       TAX
8E04  E8                 .       INX
8E05  A0 00              ..      LDY #&00
8E07  F0 1B              ..      BEQ &8E24
.
8E09  20 65 A8            e.     JSR &A865
8E0C  4D 01 0E           M..     EOR &0E01
8E0F  D0 03              ..      BNE &8E14
8E11  8D 01 0E           ...     STA &0E01
.
8E14  60                 `       RTS
.
8E15  A0 00              ..      LDY #&00
8E17  B1 BE              ..      LDA (&BE),Y
8E19  C9 26              .&      CMP #&26
8E1B  D0 03              ..      BNE &8E20
8E1D  4C C1 A1           L..     JMP &A1C1
.
8E20  20 02 AF            ..     JSR &AF02
8E23  A8                 .       TAY
.
8E24  20 AD 94            ..     JSR &94AD
8E27  AE 03 0F           ...     LDX &0F03
8E2A  F0 2C              .,      BEQ &8E58
8E2C  AD 05 0F           ...     LDA &0F05
8E2F  A0 17              ..      LDY #&17
8E31  D0 16              ..      BNE &8E49
8E33  20 95 92            ..     JSR &9295
8E36  C9 08              ..      CMP #&08
8E38  B0 1E              ..      BCS &8E58
8E3A  AA                 .       TAX
8E3B  20 32 AF            2.     JSR &AF32
8E3E  98                 .       TYA
8E3F  A0 13              ..      LDY #&13
8E41  D0 06              ..      BNE &8E49
8E43  E0 05              ..      CPX #&05
8E45  B0 11              ..      BCS &8E58
8E47  A0 0E              ..      LDY #&0E
.
8E49  E8                 .       INX
8E4A  88                 .       DEY
8E4B  10 FC              ..      BPL &8E49
8E4D  A8                 .       TAY
8E4E  BD EF 89           ...     LDA &89EF,X
8E51  48                 H       PHA
8E52  BD CA 89           ...     LDA &89CA,X
8E55  48                 H       PHA
8E56  A6 BB              ..      LDX &BB
.
8E58  60                 `       RTS

8E59  50 52              PR      BVC &8EAD
8E5B  49 4E              IN      EOR #&4E
8E5D  54                 T       ...
8E5E  20 01 00            ..     JSR &0001
8E61  1B                 .       ...
8E62  FF                 .       ...
8E63  1E FF 21           ..!     ASL &21FF,Y
8E66  FF                 .       ...
8E67  24 FF              $.      BIT &FF
8E69  27                 '       ...
8E6A  FF                 .       ...
8E6B  2A                 *       ROL A
8E6C  FF                 .       ...
8E6D  2D FF 35           -.5     AND &35FF
8E70  99 4A BE           .J.     STA &BE4A,Y
8E73  9B                 .       ...
8E74  44                 D       ...
8E75  CE B7 57           ..W     DEC &57B7
8E78  4D B8 42           M.B     EOR &42B8
8E7B  2F                 /       ...
8E7C  9E                 .       ...
8E7D  41 4E              AN      EOR (&4E,X)
8E7F  9D 52 33           .R3     STA &3352,X
8E82  8E A2 00           ...     STX &00A2
8E85  A0 FF              ..      LDY #&FF
.
8E87  4C F4 FF           L..     JMP osbyte
8E8A  7A                 z       ...
8E8B  A9 A2              ..      LDA #&A2
8E8D  00                 .       BRK
8E8E  A0 00              ..      LDY #&00
8E90  F0 F5              ..      BEQ &8E87
8E92  A5 EF              ..      LDA &EF
8E94  E9 31              .1      SBC #&31
8E96  C9 04              ..      CMP #&04
8E98  B0 11              ..      BCS &8EAB
8E9A  AA                 .       TAX
8E9B  A9 00              ..      LDA #&00
8E9D  85 A9              ..      STA &A9
8E9F  98                 .       TYA
8EA0  A0 21              .!      LDY #&21
8EA2  4C 49 8E           LI.     JMP &8E49
8EA5  C0 16              ..      CPY #&16
8EA7  B0 02              ..      BCS &8EAB
8EA9  A0 16              ..      LDY #&16
.
8EAB  60                 `       RTS
.
8EAC  98                 .       TYA
.
8EAD  C9 21              .!      CMP #&21
8EAF  90 02              ..      BCC &8EB3
8EB1  A9 21              .!      LDA #&21
.
8EB3  A0 0B              ..      LDY #&0B
8EB5  91 9C              ..      STA (&9C),Y
8EB7  60                 `       RTS
8EB8  84 9D              ..      STY &9D
8EBA  C8                 .       INY
8EBB  84 9F              ..      STY &9F
8EBD  C8                 .       INY
8EBE  98                 .       TYA
8EBF  A4 F4              ..      LDY &F4
8EC1  99 F0 0D           ...     STA &0DF0,Y
8EC4  AC 87 FE           ...     LDY &FE87
8EC7  A9 00              ..      LDA #&00
8EC9  85 9C              ..      STA &9C
8ECB  85 9E              ..      STA &9E
8ECD  85 A8              ..      STA &A8
8ECF  8D 60 0D           .`.     STA &0D60
8ED2  A0 00              ..      LDY #&00
8ED4  91 9C              ..      STA (&9C),Y
8ED6  A9 8F              ..      LDA #&8F
8ED8  A2 01              ..      LDX #&01
8EDA  A0 0E              ..      LDY #&0E
8EDC  20 F4 FF            ..     JSR osbyte                           ; Issue paged ROM service request: &01=Absolute workspace claim, &0E=&0E00
8EDF  20 AC 8E            ..     JSR &8EAC
8EE2  AD 8D 02           ...     LDA &028D
8EE5  F0 59              .Y      BEQ &8F40
8EE7  20 C0 8C            ..     JSR &8CC0
8EEA  8D 6C 0D           .l.     STA &0D6C
8EED  A8                 .       TAY
.
8EEE  91 CC              ..      STA (&CC),Y
8EF0  91 9E              ..      STA (&9E),Y
8EF2  C8                 .       INY
8EF3  D0 F9              ..      BNE &8EEE
8EF5  A0 08              ..      LDY #&08
8EF7  91 9C              ..      STA (&9C),Y
8EF9  20 17 B0            ..     JSR &B017
8EFC  A0 02              ..      LDY #&02
8EFE  A9 FE              ..      LDA #&FE
8F00  8D 00 0E           ...     STA &0E00
8F03  91 9C              ..      STA (&9C),Y
8F05  A9 00              ..      LDA #&00
8F07  8D 01 0E           ...     STA &0E01
8F0A  C8                 .       INY
8F0B  91 9C              ..      STA (&9C),Y
8F0D  A0 03              ..      LDY #&03
8F0F  91 9E              ..      STA (&9E),Y
8F11  88                 .       DEY
8F12  A9 EB              ..      LDA #&EB
8F14  91 9E              ..      STA (&9E),Y
8F16  A2 03              ..      LDX #&03
.
8F18  BD 48 8F           .H.     LDA &8F48,X
8F1B  9D 6C 0D           .l.     STA &0D6C,X
8F1E  CA                 .       DEX
8F1F  D0 F7              ..      BNE &8F18
8F21  8E 68 0D           .h.     STX &0D68
8F24  8E 05 0E           ...     STX &0E05
8F27  20 E2 AA            ..     JSR &AAE2
8F2A  CA                 .       DEX
8F2B  8E 71 0D           .q.     STX &0D71
.
8F2E  A5 A8              ..      LDA &A8
8F30  20 CE A0            ..     JSR &A0CE
8F33  B0 08              ..      BCS &8F3D
8F35  A9 3F              .?      LDA #&3F
8F37  91 9E              ..      STA (&9E),Y
8F39  E6 A8              ..      INC &A8
8F3B  D0 F1              ..      BNE &8F2E
.
8F3D  20 8C 8F            ..     JSR &8F8C
.
8F40  AC 18 FE           ...     LDY &FE18
8F43  98                 .       TYA
8F44  D0 06              ..      BNE &8F4C
.
8F46  4C 15 92           L..     JMP &9215

8F49  FF                 .       ...       ; 0D6D
8F4A  28                 (       PLP       ; 0D6E
8F4B  0A                 .       ASL A     ; 0D6F
.
8F4C  C8                 .       INY
8F4D  F0 F7              ..      BEQ &8F46
8F4F  A0 01              ..      LDY #&01
8F51  91 9C              ..      STA (&9C),Y
8F53  A2 40              .@      LDX #&40
8F55  8E 61 0D           .a.     STX &0D61
8F58  A9 03              ..      LDA #&03
8F5A  20 1B AB            ..     JSR &AB1B
8F5D  20 74 80            t.     JSR &8074
8F60  A9 A8              ..      LDA #&A8
8F62  20 83 8E            ..     JSR &8E83
8F65  86 B8              ..      STX &B8
8F67  84 B9              ..      STY &B9
8F69  A0 36              .6      LDY #&36
8F6B  8C 24 02           .$.     STY &0224
8F6E  A2 01              ..      LDX #&01
.
8F70  B9 54 8E           .T.     LDA &8E54,Y
8F73  91 B8              ..      STA (&B8),Y
8F75  C8                 .       INY
8F76  B9 54 8E           .T.     LDA &8E54,Y
8F79  91 B8              ..      STA (&B8),Y
8F7B  C8                 .       INY
8F7C  A5 F4              ..      LDA &F4
8F7E  91 B8              ..      STA (&B8),Y
8F80  C8                 .       INY
8F81  CA                 .       DEX
8F82  D0 EC              ..      BNE &8F70
8F84  20 99 8F            ..     JSR &8F99
8F87  20 B9 8C            ..     JSR &8CB9
8F8A  C8                 .       INY
8F8B  60                 `       RTS
.
8F8C  A0 09              ..      LDY #&09
.
8F8E  B9 FE 0D           ...     LDA &0DFE,Y
8F91  91 9C              ..      STA (&9C),Y
8F93  88                 .       DEY
8F94  C0 01              ..      CPY #&01
8F96  D0 F6              ..      BNE &8F8E
8F98  60                 `       RTS
.
8F99  2C 6C 0D           ,l.     BIT &0D6C
8F9C  10 2C              .,      BPL &8FCA
8F9E  A0 00              ..      LDY #&00
8FA0  20 99 B7            ..     JSR &B799
8FA3  A9 77              .w      LDA #&77
8FA5  20 F4 FF            ..     JSR osbyte
8FA8  20 8C 8F            ..     JSR &8F8C
8FAB  A0 76              .v      LDY #&76
8FAD  A9 00              ..      LDA #&00
8FAF  18                 .       CLC
.
8FB0  79 00 10           y..     ADC &1000,Y
8FB3  88                 .       DEY
8FB4  10 FA              ..      BPL &8FB0
8FB6  A0 77              .w      LDY #&77
8FB8  10 03              ..      BPL &8FBD
.
8FBA  B9 00 10           ...     LDA &1000,Y
.
8FBD  91 CC              ..      STA (&CC),Y
8FBF  88                 .       DEY
8FC0  10 F8              ..      BPL &8FBA
8FC2  AD 6C 0D           .l.     LDA &0D6C
8FC5  29 7F              ).      AND #&7F
8FC7  8D 6C 0D           .l.     STA &0D6C
.
8FCA  60                 `       RTS
.
8FCB  08                 .       PHP
8FCC  48                 H       PHA
8FCD  98                 .       TYA
8FCE  48                 H       PHA
8FCF  A0 76              .v      LDY #&76
8FD1  A9 00              ..      LDA #&00
8FD3  18                 .       CLC
.
8FD4  71 CC              q.      ADC (&CC),Y
8FD6  88                 .       DEY
8FD7  10 FB              ..      BPL &8FD4
8FD9  A0 77              .w      LDY #&77
8FDB  D1 CC              ..      CMP (&CC),Y
8FDD  D0 05              ..      BNE &8FE4
8FDF  68                 h       PLA
8FE0  A8                 .       TAY
8FE1  68                 h       PLA
8FE2  28                 (       PLP
8FE3  60                 `       RTS
.
8FE4  A9 AA              ..      LDA #&AA
8FE6  20 B8 96            ..     JSR &96B8 ; Generate 'Bad net sum' error message
8FE9  6E 65 74           net     ROR &7465
8FEC  20 73 75            su     JSR &7573
8FEF  6D 00 20           m.      ADC &2000
8FF2  45 91              E.      EOR &91
8FF4  45 63              Ec      EOR &63
8FF6  6F                 o       ...
8FF7  6E 65 74           net     ROR &7465
8FFA  20 53 74            St     JSR &7453
8FFD  61 74              at      ADC (&74,X)
8FFF  69 6F              io      ADC #&6F
9001  6E 20 A0           n .     ROR &A020
9004  01 B1              ..      ORA (&B1,X)
9006  9C                 .       ...
9007  20 85 AF            ..     JSR &AF85
900A  A9 20              .       LDA #&20
900C  2C A1 FE           ,..     BIT &FEA1
900F  F0 0D              ..      BEQ &901E
9011  20 45 91            E.     JSR &9145
9014  20 4E 6F            No     JSR &6F4E
9017  20 43 6C            Cl     JSR &6C43
901A  6F                 o       ...
901B  63                 c       ...
901C  6B                 k       ...
901D  EA                 .       NOP
.
901E  20 E7 FF            ..     JSR osnewl
9021  60                 `       RTS
9022  28                 (       PLP
9023  3C                 <       ...
9024  64                 d       ...
9025  69 72              ir      ADC #&72
9027  3E 29 00           >).     ROL &0029,X
902A  28                 (       PLP
902B  3C                 <       ...
902C  73                 s       ...
902D  74                 t       ...
902E  6E 2E 20           n.      ROR &202E
9031  69 64              id      ADC #&64
9033  2E 3E 29           .>)     ROL &293E
9036  20 3C 75            <u     JSR &753C
9039  73                 s       ...
903A  65 72              er      ADC &72
903C  20 69 64            id     JSR &6469
903F  2E 3E 20           .>      ROL &203E
9042  0D 28 28           .((     ORA &2828
9045  3A                 :       ...
9046  3C                 <       ...
9047  43                 C       ...
9048  52                 R       ...
9049  3E 29 3C           >)<     ROL &3C29,X
904C  70 61              pa      BVS &90AF
904E  73                 s       ...
904F  73                 s       ...
9050  77                 w       ...
9051  6F                 o       ...
9052  72                 r       ...
9053  64                 d       ...
9054  3E 29 00           >).     ROL &0029,X
9057  3C                 <       ...
9058  6F                 o       ...
9059  62                 b       ...
905A  6A                 j       ROR A
905B  65 63              ec      ADC &63
905D  74                 t       ...
905E  3E 00 3C           >.<     ROL &3C00,X
9061  66 69              fi      ROR &69
9063  6C 65 6E           len     JMP (&6E65)
9066  61 6D              am      ADC (&6D,X)
9068  65 3E              e>      ADC &3E
906A  20 28 3C            (<     JSR &3C28
906D  6F                 o       ...
906E  66 66              ff      ROR &66
9070  73                 s       ...
9071  65 74              et      ADC &74
9073  3E 20 0D           > .     ROL &0D20,X
9076  28                 (       PLP
9077  3C                 <       ...
9078  61 64              ad      ADC (&64,X)
907A  64                 d       ...
907B  72                 r       ...
907C  65 73              es      ADC &73
907E  73                 s       ...
907F  3E 29 29           >))     ROL &2929,X
9082  00                 .       BRK
9083  3C                 <       ...
9084  64                 d       ...
9085  69 72              ir      ADC #&72
9087  3E 00 3C           >.<     ROL &3C00,X
908A  64                 d       ...
908B  69 72              ir      ADC #&72
908D  3E 20 28           > (     ROL &2820,X
9090  3C                 <       ...
9091  6E 75 6D           num     ROR &6D75
9094  62                 b       ...
9095  65 72              er      ADC &72
9097  3E 29 00           >).     ROL &0029,X
909A  28                 (       PLP
909B  3A                 :       ...
909C  3C                 <       ...
909D  43                 C       ...
909E  52                 R       ...
909F  3E 29 20           >)      ROL &2029,X
90A2  3C                 <       ...
90A3  70 61              pa      BVS &9106
90A5  73                 s       ...
90A6  73                 s       ...
90A7  77                 w       ...
90A8  6F                 o       ...
90A9  72                 r       ...
90AA  64                 d       ...
90AB  3E 20 0D           > .     ROL &0D20,X
90AE  3C                 <       ...
.
90AF  6E 65 77           new     ROR &7765
90B2  20 70 61            pa     JSR &6170
90B5  73                 s       ...
90B6  73                 s       ...
90B7  77                 w       ...
90B8  6F                 o       ...
90B9  72                 r       ...
90BA  64                 d       ...
90BB  3E 00 28           >.(     ROL &2800,X
90BE  3C                 <       ...
90BF  73                 s       ...
90C0  74                 t       ...
90C1  6E 2E 20           n.      ROR &202E
90C4  69 64              id      ADC #&64
90C6  2E 3E 7C           .>|     ROL &7C3E
90C9  3C                 <       ...
90CA  70 73              ps      BVS &913F
90CC  20 74 79            ty     JSR &7974
90CF  70 65              pe      BVS &9136
90D1  3E 29 00           >).     ROL &0029,X
90D4  3C                 <       ...
90D5  6F                 o       ...
90D6  62                 b       ...
90D7  6A                 j       ROR A
90D8  65 63              ec      ADC &63
90DA  74                 t       ...
90DB  3E 20 28           > (     ROL &2820,X
90DE  4C 29 28           L)(     JMP &2829
90E1  57                 W       ...
90E2  29 28              )(      AND #&28
90E4  52                 R       ...
90E5  29 28              )(      AND #&28
90E7  2F                 /       ...
90E8  28                 (       PLP
90E9  57                 W       ...
90EA  29 28              )(      AND #&28
90EC  52                 R       ...
90ED  29 29              ))      AND #&29
90EF  00                 .       BRK
90F0  3C                 <       ...
90F1  66 69              fi      ROR &69
90F3  6C 65 6E           len     JMP (&6E65)
90F6  61 6D              am      ADC (&6D,X)
90F8  65 3E              e>      ADC &3E
90FA  20 3C 6E            <n     JSR &6E3C
90FD  65 77              ew      ADC &77
90FF  20 66 69            fi     JSR &6966
9102  6C 65 6E           len     JMP (&6E65)
9105  61 6D              am      ADC (&6D,X)
9107  65 3E              e>      ADC &3E
9109  00                 .       BRK
910A  28                 (       PLP
910B  3C                 <       ...
910C  73                 s       ...
910D  74                 t       ...
910E  6E 2E 20           n.      ROR &202E
9111  69 64              id      ADC #&64
9113  2E 3E 29           .>)     ROL &293E
9116  00                 .       BRK
9117  3C                 <       ...
9118  66 69              fi      ROR &69
911A  6C 65 6E           len     JMP (&6E65)
911D  61 6D              am      ADC (&6D,X)
911F  65 3E              e>      ADC &3E
9121  00                 .       BRK
9122  06 FF              ..      ASL &FF
9124  07                 .       ...
9125  34                 4       ...
9126  3D 60 66           =`f     AND &6660,X
9129  77                 w       ...
912A  9A                 .       TXS
912B  B1 CD              ..      LDA (&CD),Y
912D  E7                 .       ...
912E  F4                 .       ...
.
912F  48                 H       PHA
9130  4A                 J       LSR A
9131  4A                 J       LSR A
9132  4A                 J       LSR A
9133  4A                 J       LSR A
9134  20 38 91            8.     JSR &9138
9137  68                 h       PLA
.
9138  29 0F              ).      AND #&0F
913A  C9 0A              ..      CMP #&0A
913C  90 02              ..      BCC &9140
913E  69 06              i.      ADC #&06
.
9140  69 30              i0      ADC #&30
9142  4C E3 FF           L..     JMP osasci
.
9145  68                 h       PLA
9146  85 B8              ..      STA &B8
9148  68                 h       PLA
9149  85 B9              ..      STA &B9
914B  A0 00              ..      LDY #&00
.
914D  E6 B8              ..      INC &B8
914F  D0 02              ..      BNE &9153
9151  E6 B9              ..      INC &B9
.
9153  B1 B8              ..      LDA (&B8),Y
9155  30 14              0.      BMI &916B
9157  A5 B8              ..      LDA &B8
9159  48                 H       PHA
915A  A5 B9              ..      LDA &B9
915C  48                 H       PHA
915D  B1 B8              ..      LDA (&B8),Y
915F  20 E3 FF            ..     JSR osasci
9162  68                 h       PLA
9163  85 B9              ..      STA &B9
9165  68                 h       PLA
9166  85 B8              ..      STA &B8
9168  4C 4D 91           LM.     JMP &914D
.
916B  6C B8 00           l..     JMP (&00B8)
.
916E  A9 00              ..      LDA #&00
9170  85 B2              ..      STA &B2
9172  B1 BE              ..      LDA (&BE),Y
9174  C9 26              .&      CMP #&26
9176  D0 36              .6      BNE &91AE
9178  C8                 .       INY
9179  B1 BE              ..      LDA (&BE),Y
917B  B0 0B              ..      BCS &9188
.
917D  C8                 .       INY
917E  B1 BE              ..      LDA (&BE),Y
9180  C9 2E              ..      CMP #&2E
9182  F0 77              .w      BEQ &91FB
9184  C9 21              .!      CMP #&21
9186  90 52              .R      BCC &91DA
.
9188  C9 30              .0      CMP #&30
918A  90 0C              ..      BCC &9198
918C  C9 3A              .:      CMP #&3A
918E  90 0A              ..      BCC &919A
9190  29 5F              )_      AND #&5F
9192  69 B8              i.      ADC #&B8
9194  B0 72              .r      BCS &9208
9196  C9 FA              ..      CMP #&FA
.
9198  90 6E              .n      BCC &9208
.
919A  29 0F              ).      AND #&0F
919C  85 B3              ..      STA &B3
919E  A5 B2              ..      LDA &B2
91A0  C9 10              ..      CMP #&10
91A2  B0 6D              .m      BCS &9211
91A4  0A                 .       ASL A
91A5  0A                 .       ASL A
91A6  0A                 .       ASL A
91A7  0A                 .       ASL A
91A8  65 B3              e.      ADC &B3
91AA  85 B2              ..      STA &B2
91AC  90 CF              ..      BCC &917D
.
91AE  B1 BE              ..      LDA (&BE),Y
91B0  C9 2E              ..      CMP #&2E
91B2  F0 47              .G      BEQ &91FB
91B4  C9 21              .!      CMP #&21
91B6  90 22              ."      BCC &91DA
91B8  20 60 92            `.     JSR &9260
91BB  90 6C              .l      BCC &9229
91BD  29 0F              ).      AND #&0F
91BF  85 B3              ..      STA &B3
91C1  06 B2              ..      ASL &B2
91C3  B0 4C              .L      BCS &9211
91C5  A5 B2              ..      LDA &B2
91C7  0A                 .       ASL A
91C8  B0 47              .G      BCS &9211
91CA  0A                 .       ASL A
91CB  B0 44              .D      BCS &9211
91CD  65 B2              e.      ADC &B2
91CF  B0 40              .@      BCS &9211
91D1  65 B3              e.      ADC &B3
91D3  B0 3C              .<      BCS &9211
91D5  85 B2              ..      STA &B2
91D7  C8                 .       INY
91D8  D0 D4              ..      BNE &91AE
.
91DA  A5 B4              ..      LDA &B4
91DC  10 05              ..      BPL &91E3
91DE  A5 B2              ..      LDA &B2
91E0  F0 53              .S      BEQ &9235
91E2  60                 `       RTS
.
91E3  A5 B2              ..      LDA &B2
91E5  C9 FF              ..      CMP #&FF
91E7  F0 2C              .,      BEQ &9215
91E9  A5 B2              ..      LDA &B2
91EB  D0 0C              ..      BNE &91F9
91ED  A5 B4              ..      LDA &B4
91EF  F0 24              .$      BEQ &9215
91F1  88                 .       DEY
91F2  B1 BE              ..      LDA (&BE),Y
91F4  C8                 .       INY
91F5  49 2E              I.      EOR #&2E
91F7  D0 1C              ..      BNE &9215
.
91F9  38                 8       SEC
91FA  60                 `       RTS
.
91FB  A5 B4              ..      LDA &B4
91FD  D0 2A              .*      BNE &9229
91FF  E6 B4              ..      INC &B4
9201  A5 B2              ..      LDA &B2
9203  C9 FF              ..      CMP #&FF
9205  F0 3D              .=      BEQ &9244
9207  60                 `       RTS
.
9208  A9 F1              ..      LDA #&F1
920A  20 B8 96            ..     JSR &96B8 ; Generate 'Bad hex' error message
920D  68                 h       PLA
920E  65 78              ex      ADC &78
9210  00                 .       BRK
.
9211  24 B4              $.      BIT &B4
9213  30 20              0       BMI &9235
.
9215  A9 D0              ..      LDA #&D0
9217  20 B8 96            ..     JSR &96B8 ; Generate 'Bad station number' error message
921A  73                 s       ...
921B  74                 t       ...
921C  61 74              at      ADC (&74,X)
921E  69 6F              io      ADC #&6F
9220  6E 20 6E           n n     ROR &6E20
9223  75 6D              um      ADC &6D,X
9225  62                 b       ...
9226  65 72              er      ADC &72
9228  00                 .       BRK
.
9229  A9 F0              ..      LDA #&F0
922B  20 B8 96            ..     JSR &96B8 ; Generate 'Bad number' error message
922E  6E 75 6D           num     ROR &6D75
9231  62                 b       ...
9232  65 72              er      ADC &72
9234  00                 .       BRK
.
9235  A9 94              ..      LDA #&94
9237  20 B8 96            ..     JSR &96B8 ; Generate 'Bad parameter' error message
923A  70 61              pa      BVS &929D
923C  72                 r       ...
923D  61 6D              am      ADC (&6D,X)
923F  65 74              et      ADC &74
9241  65 72              er      ADC &72
9243  00                 .       BRK
.
9244  A9 D1              ..      LDA #&D1
9246  20 B8 96            ..     JSR &96B8 ; Generate 'Bad network number' error message
9249  6E 65 74           net     ROR &7465
924C  77                 w       ...
924D  6F                 o       ...
924E  72                 r       ...
924F  6B                 k       ...
9250  20 6E 75            nu     JSR &756E
9253  6D 62 65           mbe     ADC &6562
9256  72                 r       ...
9257  00                 .       BRK
.
9258  C9 26              .&      CMP #&26
925A  F0 0A              ..      BEQ &9266
925C  C9 2E              ..      CMP #&2E
925E  F0 06              ..      BEQ &9266
.
9260  C9 3A              .:      CMP #&3A
9262  B0 03              ..      BCS &9267
9264  C9 30              .0      CMP #&30
.
9266  60                 `       RTS
.
9267  18                 .       CLC
9268  60                 `       RTS
.
9269  A0 0E              ..      LDY #&0E
926B  B1 BB              ..      LDA (&BB),Y
926D  29 3F              )?      AND #&3F
926F  A2 04              ..      LDX #&04
9271  D0 04              ..      BNE &9277
.
9273  29 1F              ).      AND #&1F
9275  A2 FF              ..      LDX #&FF
.
9277  85 B8              ..      STA &B8
9279  A9 00              ..      LDA #&00
.
927B  E8                 .       INX
927C  46 B8              F.      LSR &B8
927E  90 03              ..      BCC &9283
9280  1D 86 92           ...     ORA &9286,X
.
9283  D0 F6              ..      BNE &927B
9285  60                 `       RTS
9286  50 20              P       BVC &92A8
9288  05 02              ..      ORA &02
928A  88                 .       DEY
928B  04                 .       ...
928C  08                 .       PHP
928D  80                 .       ...
928E  10 01              ..      BPL &9291
9290  02                 .       ...
.
9291  86 F2              ..      STX &F2
9293  84 F3              ..      STY &F3
.
9295  85 BD              ..      STA &BD
9297  86 BE              ..      STX &BE
9299  84 BF              ..      STY &BF
.
929B  86 BB              ..      STX &BB
.
929D  84 BC              ..      STY &BC
.
929F  08                 .       PHP
92A0  46 98              F.      LSR &98
92A2  28                 (       PLP
92A3  60                 `       RTS
.
92A4  A2 04              ..      LDX #&04
.
92A6  B5 AF              ..      LDA &AF,X
.
92A8  55 B3              U.      EOR &B3,X
92AA  D0 03              ..      BNE &92AF
92AC  CA                 .       DEX
92AD  D0 F7              ..      BNE &92A6
.
92AF  60                 `       RTS
92B0  A2 20              .       LDX #&20
92B2  A0 2F              ./      LDY #&2F
92B4  60                 `       RTS
.
92B5  08                 .       PHP
92B6  48                 H       PHA
92B7  8A                 .       TXA
92B8  48                 H       PHA
92B9  BA                 .       TSX
92BA  BD 02 01           ...     LDA &0102,X
92BD  20 6B B4            k.     JSR &B46B
92C0  30 1F              0.      BMI &92E1
92C2  A9 40              .@      LDA #&40
92C4  1D 60 10           .`.     ORA &1060,X
92C7  9D 60 10           .`.     STA &1060,X
92CA  D0 15              ..      BNE &92E1
.
92CC  08                 .       PHP
92CD  48                 H       PHA
92CE  8A                 .       TXA
92CF  48                 H       PHA
92D0  BA                 .       TSX
92D1  BD 02 01           ...     LDA &0102,X
92D4  20 6B B4            k.     JSR &B46B
92D7  30 08              0.      BMI &92E1
92D9  A9 BF              ..      LDA #&BF
92DB  3D 60 10           =`.     AND &1060,X
92DE  9D 60 10           .`.     STA &1060,X
.
92E1  68                 h       PLA
92E2  AA                 .       TAX
92E3  68                 h       PLA
92E4  28                 (       PLP
92E5  60                 `       RTS
92E6  20 27 93            '.     JSR &9327
92E9  8A                 .       TXA
92EA  48                 H       PHA
92EB  20 49 93            I.     JSR &9349
92EE  20 97 AE            ..     JSR &AE97
92F1  68                 h       PLA
92F2  AA                 .       TAX
92F3  20 09 93            ..     JSR &9309
92F6  C9 0D              ..      CMP #&0D
92F8  D0 17              ..      BNE &9311
.
92FA  A9 CC              ..      LDA #&CC
92FC  20 B8 96            ..     JSR &96B8 ; Generate 'Bad filenamee' error message
92FF  66 69              fi      ROR &69
9301  6C 65 20           le      JMP (&2065)
9304  6E 61 6D           nam     ROR &6D61
9307  65 00              e.      ADC &00
.
9309  AD 30 0E           .0.     LDA &0E30
930C  C9 26              .&      CMP #&26
930E  F0 EA              ..      BEQ &92FA
9310  60                 `       RTS
.
9311  20 09 93            ..     JSR &9309
9314  9D 05 0F           ...     STA &0F05,X
9317  E8                 .       INX
9318  C9 0D              ..      CMP #&0D
931A  F0 06              ..      BEQ &9322
931C  20 B7 AE            ..     JSR &AEB7
931F  4C 11 93           L..     JMP &9311
.
9322  A0 00              ..      LDY #&00
9324  4C 24 8E           L$.     JMP &8E24
.
9327  98                 .       TYA
9328  48                 H       PHA
.
9329  CA                 .       DEX
932A  BD F0 A3           ...     LDA &A3F0,X
932D  10 FA              ..      BPL &9329
932F  E8                 .       INX
9330  A0 00              ..      LDY #&00
.
9332  BD F0 A3           ...     LDA &A3F0,X
9335  30 07              0.      BMI &933E
9337  99 05 0F           ...     STA &0F05,Y
933A  E8                 .       INX
933B  C8                 .       INY
933C  D0 F4              ..      BNE &9332
.
933E  A9 20              .       LDA #&20
9340  99 05 0F           ...     STA &0F05,Y
9343  C8                 .       INY
9344  98                 .       TYA
9345  AA                 .       TAX
9346  68                 h       PLA
9347  A8                 .       TAY
.
9348  60                 `       RTS
.
9349  A9 00              ..      LDA #&00
934B  AA                 .       TAX
934C  8D D8 10           ...     STA &10D8
.
934F  B1 BE              ..      LDA (&BE),Y
9351  C9 20              .       CMP #&20
9353  D0 03              ..      BNE &9358
9355  C8                 .       INY
9356  D0 F7              ..      BNE &934F
.
9358  C9 22              ."      CMP #&22
935A  D0 07              ..      BNE &9363
935C  C8                 .       INY
935D  4D D8 10           M..     EOR &10D8
9360  8D D8 10           ...     STA &10D8
.
9363  B1 BE              ..      LDA (&BE),Y
9365  C9 22              ."      CMP #&22
9367  D0 08              ..      BNE &9371
9369  4D D8 10           M..     EOR &10D8
936C  8D D8 10           ...     STA &10D8
936F  A9 20              .       LDA #&20
.
9371  9D 30 0E           .0.     STA &0E30,X
9374  C8                 .       INY
9375  E8                 .       INX
9376  C9 0D              ..      CMP #&0D
9378  D0 E9              ..      BNE &9363
937A  AD D8 10           ...     LDA &10D8
937D  F0 C9              ..      BEQ &9348
937F  A5 FD              ..      LDA &FD
9381  20 B8 96            ..     JSR &96B8 ; Generate 'Bad string' error message
9384  73                 s       ...
9385  74                 t       ...
9386  72                 r       ...
9387  69 6E              in      ADC #&6E
9389  67                 g       ...
938A  00                 .       BRK
938B  20 27 93            '.     JSR &9327
938E  8A                 .       TXA
938F  48                 H       PHA
9390  20 32 AF            2.     JSR &AF32
9393  20 49 93            I.     JSR &9349
9396  20 97 AE            ..     JSR &AE97
9399  68                 h       PLA
939A  AA                 .       TAX
.
939B  AD 30 0E           .0.     LDA &0E30
939E  C9 0D              ..      CMP #&0D
93A0  D0 0C              ..      BNE &93AE
.
93A2  A9 B0              ..      LDA #&B0
93A4  20 B8 96            ..     JSR &96B8 ; Generate 'Bad rename' error message
93A7  72                 r       ...
93A8  65 6E              en      ADC &6E
93AA  61 6D              am      ADC (&6D,X)
93AC  65 00              e.      ADC &00
.
93AE  9D 05 0F           ...     STA &0F05,X
93B1  E8                 .       INX
93B2  C9 20              .       CMP #&20
93B4  F0 06              ..      BEQ &93BC
93B6  20 B7 AE            ..     JSR &AEB7
93B9  4C 9B 93           L..     JMP &939B
.
93BC  20 B7 AE            ..     JSR &AEB7
93BF  AD 30 0E           .0.     LDA &0E30
93C2  C9 20              .       CMP #&20
93C4  F0 F6              ..      BEQ &93BC
93C6  AD 71 10           .q.     LDA &1071
93C9  48                 H       PHA
93CA  20 32 AF            2.     JSR &AF32
93CD  8A                 .       TXA
93CE  48                 H       PHA
93CF  20 97 AE            ..     JSR &AE97
93D2  68                 h       PLA
93D3  AA                 .       TAX
93D4  68                 h       PLA
93D5  CD 71 10           .q.     CMP &1071
93D8  D0 C8              ..      BNE &93A2
93DA  4C 11 93           L..     JMP &9311
93DD  B1 BE              ..      LDA (&BE),Y
93DF  C9 26              .&      CMP #&26
93E1  D0 7F              ..      BNE &9462
93E3  C8                 .       INY
93E4  B1 BE              ..      LDA (&BE),Y
93E6  C9 0D              ..      CMP #&0D
93E8  F0 04              ..      BEQ &93EE
93EA  C9 20              .       CMP #&20
93EC  D0 17              ..      BNE &9405
.
93EE  A0 FF              ..      LDY #&FF
.
93F0  C8                 .       INY
93F1  B1 BE              ..      LDA (&BE),Y
93F3  99 05 0F           ...     STA &0F05,Y
93F6  C9 26              .&      CMP #&26
93F8  D0 F6              ..      BNE &93F0
93FA  A9 0D              ..      LDA #&0D
93FC  99 05 0F           ...     STA &0F05,Y
93FF  C8                 .       INY
9400  98                 .       TYA
9401  AA                 .       TAX
9402  4C 22 93           L".     JMP &9322
.
9405  C9 2E              ..      CMP #&2E
9407  F0 03              ..      BEQ &940C
9409  4C FA 92           L..     JMP &92FA
.
940C  C8                 .       INY
940D  84 B0              ..      STY &B0
940F  A9 04              ..      LDA #&04
9411  8D 05 0F           ...     STA &0F05
9414  AD 71 10           .q.     LDA &1071
9417  09 40              .@      ORA #&40
9419  8D 71 10           .q.     STA &1071
941C  A2 01              ..      LDX #&01
941E  20 06 AF            ..     JSR &AF06
9421  A0 12              ..      LDY #&12
9423  20 AD 94            ..     JSR &94AD
9426  AD 05 0F           ...     LDA &0F05
9429  C9 02              ..      CMP #&02
942B  F0 0F              ..      BEQ &943C
942D  A9 D6              ..      LDA #&D6
942F  20 D1 96            ..     JSR &96D1 ; Generate 'Not found' error message
9432  4E 6F 74           Not     LSR &746F
9435  20 66 6F            fo     JSR &6F66
9438  75 6E              un      ADC &6E,X
943A  64                 d       ...
943B  00                 .       BRK
.
943C  AD 03 0E           ...     LDA &0E03
943F  8D 05 0F           ...     STA &0F05
9442  A2 01              ..      LDX #&01
9444  A0 07              ..      LDY #&07
9446  20 AD 94            ..     JSR &94AD
9449  A2 01              ..      LDX #&01
944B  8E 05 0F           ...     STX &0F05
944E  8E 06 0F           ...     STX &0F06
9451  E8                 .       INX
9452  A4 B0              ..      LDY &B0
9454  20 06 AF            ..     JSR &AF06
9457  A0 06              ..      LDY #&06
9459  20 AD 94            ..     JSR &94AD
945C  AC 05 0F           ...     LDY &0F05
945F  4C F4 A2           L..     JMP &A2F4
.
9462  4C 15 8E           L..     JMP &8E15
.
9465  A9 90              ..      LDA #&90
.
9467  20 73 94            s.     JSR &9473
946A  85 C1              ..      STA &C1
946C  A9 03              ..      LDA #&03
946E  85 C4              ..      STA &C4
9470  C6 C0              ..      DEC &C0
9472  60                 `       RTS
.
9473  48                 H       PHA
9474  A0 0B              ..      LDY #&0B
.
9476  B9 8B 94           ...     LDA &948B,Y
9479  99 C0 00           ...     STA &00C0,Y
947C  C0 02              ..      CPY #&02
947E  10 06              ..      BPL &9486
9480  B9 00 0E           ...     LDA &0E00,Y
9483  99 C2 00           ...     STA &00C2,Y
.
9486  88                 .       DEY
9487  10 ED              ..      BPL &9476
9489  68                 h       PLA
948A  60                 `       RTS
948B  80                 .       ...
948C  99 00 00           ...     STA &0000,Y
948F  00                 .       BRK
9490  0F                 .       ...
9491  FF                 .       ...
9492  FF                 .       ...
9493  FF                 .       ...
9494  0F                 .       ...
9495  FF                 .       ...
9496  FF                 .       ...
.
9497  48                 H       PHA
9498  38                 8       SEC
9499  B0 1A              ..      BCS &94B5
.
949B  B8                 .       CLV
949C  50 16              P.      BVC &94B4
949E  A0 00              ..      LDY #&00
94A0  20 99 B7            ..     JSR &B799
94A3  A9 77              .w      LDA #&77
94A5  20 F4 FF            ..     JSR osbyte                                  ; Close any SPOOL or EXEC files
94A8  20 59 B5            Y.     JSR &B559
94AB  A0 17              ..      LDY #&17
.
94AD  B8                 .       CLV
.
94AE  AD 02 0E           ...     LDA &0E02
94B1  8D 02 0F           ...     STA &0F02
.
94B4  18                 .       CLC
.
94B5  08                 .       PHP
94B6  8C 01 0F           ...     STY &0F01
94B9  A0 01              ..      LDY #&01
.
94BB  B9 03 0E           ...     LDA &0E03,Y
94BE  99 03 0F           ...     STA &0F03,Y
94C1  88                 .       DEY
94C2  10 F7              ..      BPL &94BB
94C4  2C 71 10           ,q.     BIT &1071
94C7  70 0A              p.      BVS &94D3
94C9  10 0E              ..      BPL &94D9
94CB  AD 04 0E           ...     LDA &0E04
94CE  8D 03 0F           ...     STA &0F03
94D1  50 06              P.      BVC &94D9
.
94D3  AD 02 0E           ...     LDA &0E02
94D6  8D 03 0F           ...     STA &0F03
.
94D9  28                 (       PLP
.
94DA  08                 .       PHP
94DB  A9 90              ..      LDA #&90
94DD  8D 00 0F           ...     STA &0F00
94E0  20 73 94            s.     JSR &9473
94E3  8A                 .       TXA
94E4  69 05              i.      ADC #&05
94E6  85 C8              ..      STA &C8
94E8  28                 (       PLP
94E9  B0 1A              ..      BCS &9505
94EB  08                 .       PHP
94EC  20 37 98            7.     JSR &9837
94EF  28                 (       PLP
.
94F0  08                 .       PHP
94F1  20 65 94            e.     JSR &9465
94F4  20 DD 95            ..     JSR &95DD
94F7  28                 (       PLP
.
94F8  C8                 .       INY
94F9  B1 C4              ..      LDA (&C4),Y
94FB  AA                 .       TAX
94FC  F0 06              ..      BEQ &9504
94FE  50 02              P.      BVC &9502
9500  69 2A              i*      ADC #&2A
.
9502  D0 0A              ..      BNE &950E
.
9504  60                 `       RTS
.
9505  68                 h       PLA
9506  A2 C0              ..      LDX #&C0
9508  C8                 .       INY
9509  20 24 AC            $.     JSR &AC24
950C  90 EA              ..      BCC &94F8
.
950E  8E 09 0E           ...     STX &0E09
9511  AD 07 0E           ...     LDA &0E07
9514  08                 .       PHP
9515  D0 04              ..      BNE &951B
9517  E0 BF              ..      CPX #&BF
9519  D0 36              .6      BNE &9551
.
951B  A9 40              .@      LDA #&40
951D  48                 H       PHA
951E  A2 F0              ..      LDX #&F0
.
9520  68                 h       PLA
9521  1D C8 0F           ...     ORA &0FC8,X
9524  48                 H       PHA
9525  BD C8 0F           ...     LDA &0FC8,X
9528  29 C0              ).      AND #&C0
952A  9D C8 0F           ...     STA &0FC8,X
952D  E8                 .       INX
952E  30 F0              0.      BMI &9520
9530  8E 07 0E           ...     STX &0E07
9533  20 59 B5            Y.     JSR &B559
9536  68                 h       PLA
9537  6A                 j       ROR A
9538  90 0D              ..      BCC &9547
953A  20 45 91            E.     JSR &9145
953D  44                 D       ...
953E  61 74              at      ADC (&74,X)
9540  61 20              a       ADC (&20,X)
9542  4C 6F 73           Los     JMP &736F
9545  74                 t       ...
9546  0D AE 09           ...     ORA &09AE
9549  0E 28 F0           .(.     ASL &F028
954C  04                 .       ...
954D  68                 h       PLA
954E  68                 h       PLA
954F  68                 h       PLA
9550  60                 `       RTS
.
9551  A0 01              ..      LDY #&01
9553  E0 A8              ..      CPX #&A8
9555  B0 04              ..      BCS &955B
9557  A9 A8              ..      LDA #&A8
9559  91 C4              ..      STA (&C4),Y
.
955B  A0 FF              ..      LDY #&FF
.
955D  C8                 .       INY
955E  B1 C4              ..      LDA (&C4),Y
9560  99 00 01           ...     STA &0100,Y
9563  49 0D              I.      EOR #&0D
9565  D0 F6              ..      BNE &955D
9567  99 00 01           ...     STA &0100,Y
956A  88                 .       DEY
956B  98                 .       TYA
956C  AA                 .       TAX
956D  4C F0 96           L..     JMP &96F0
.
9570  A5 FF              ..      LDA &FF
9572  25 98              %.      AND &98
9574  10 8E              ..      BPL &9504 ; RTS
9576  A9 7E              .~      LDA #&7E
9578  20 F4 FF            ..     JSR osbyte
957B  A9 06              ..      LDA #&06
957D  4C 4E 96           LN.     JMP &964E
9580  A0 00              ..      LDY #&00
9582  B1 9C              ..      LDA (&9C),Y
9584  F0 03              ..      BEQ &9589
.
9586  4C DD AC           L..     JMP &ACDD
.
9589  09 09              ..      ORA #&09
958B  91 9C              ..      STA (&9C),Y
958D  A2 80              ..      LDX #&80
958F  A0 80              ..      LDY #&80
9591  B1 9C              ..      LDA (&9C),Y
9593  48                 H       PHA
9594  C8                 .       INY
9595  B1 9C              ..      LDA (&9C),Y
9597  A0 0F              ..      LDY #&0F
9599  91 9E              ..      STA (&9E),Y
959B  88                 .       DEY
959C  68                 h       PLA
959D  91 9E              ..      STA (&9E),Y
959F  20 EA 8A            ..     JSR &8AEA
95A2  20 85 AA            ..     JSR &AA85
95A5  A2 01              ..      LDX #&01
95A7  A0 00              ..      LDY #&00
95A9  A9 C9              ..      LDA #&C9
95AB  20 F4 FF            ..     JSR osbyte
95AE  20 DD AC            ..     JSR &ACDD
95B1  A9 00              ..      LDA #&00
95B3  20 D1 96            ..     JSR &96D1 ; Generate 'Remoted' error message
95B6  52                 R       ...
95B7  65 6D              em      ADC &6D
95B9  6F                 o       ...
95BA  74                 t       ...
95BB  65 64              ed      ADC &64
95BD  00                 .       BRK
95BE  A0 00              ..      LDY #&00
95C0  B1 9C              ..      LDA (&9C),Y
95C2  F0 C5              ..      BEQ &9589
95C4  A0 80              ..      LDY #&80
95C6  B1 9C              ..      LDA (&9C),Y
95C8  A0 0E              ..      LDY #&0E
95CA  D1 9E              ..      CMP (&9E),Y
95CC  D0 B8              ..      BNE &9586
95CE  A0 82              ..      LDY #&82
95D0  B1 9C              ..      LDA (&9C),Y
95D2  A8                 .       TAY
95D3  A2 00              ..      LDX #&00
95D5  20 DD AC            ..     JSR &ACDD
95D8  A9 99              ..      LDA #&99
95DA  4C F4 FF           L..     JMP osbyte
.
95DD  AD 6E 0D           .n.     LDA &0D6E
95E0  48                 H       PHA
95E1  AD 61 0D           .a.     LDA &0D61
95E4  48                 H       PHA
95E5  A5 9B              ..      LDA &9B
95E7  D0 05              ..      BNE &95EE
95E9  09 80              ..      ORA #&80
95EB  8D 61 0D           .a.     STA &0D61
.
95EE  A9 00              ..      LDA #&00
95F0  48                 H       PHA
95F1  48                 H       PHA
95F2  A8                 .       TAY
95F3  BA                 .       TSX
.
95F4  B1 9A              ..      LDA (&9A),Y
95F6  30 0F              0.      BMI &9607
95F8  DE 01 01           ...     DEC &0101,X
95FB  D0 F7              ..      BNE &95F4
95FD  DE 02 01           ...     DEC &0102,X
9600  D0 F2              ..      BNE &95F4
9602  DE 04 01           ...     DEC &0104,X
9605  D0 ED              ..      BNE &95F4
.
9607  68                 h       PLA
9608  68                 h       PLA
9609  68                 h       PLA
960A  8D 61 0D           .a.     STA &0D61
960D  68                 h       PLA
960E  F0 0A              ..      BEQ &961A
9610  60                 `       RTS
.
9611  2C 6C 0D           ,l.     BIT &0D6C
9614  10 03              ..      BPL &9619
9616  8D 09 0E           ...     STA &0E09 ; Last known error number
.
9619  60                 `       RTS

;
; 
;
.
961A  A2 08              ..      LDX #&08
961C  BC AD 97           ...     LDY &97AD,X
961F  A2 00              ..      LDX #&00
9621  8E 00 01           ...     STX &0100
9624  B9 B9 97           ...     LDA &97B9,Y ; 'No reply from station' error messge
9627  20 11 96            ..     JSR &9611
.
962A  B9 B9 97           ...     LDA &97B9,Y
962D  9D 01 01           ...     STA &0101,X
9630  F0 04              ..      BEQ &9636
9632  E8                 .       INX
9633  C8                 .       INY
9634  D0 F4              ..      BNE &962A
.
9636  20 4D 97            M.     JSR &974D
9639  A9 00              ..      LDA #&00
963B  9D 01 01           ...     STA &0101,X
963E  4C F0 96           L..     JMP &96F0
.
9641  A1 9A              ..      LDA (&9A,X)
9643  C9 41              .A      CMP #&41
9645  D0 02              ..      BNE &9649
9647  A9 42              .B      LDA #&42
.
9649  B8                 .       CLV
964A  50 05              P.      BVC &9651
.
964C  A1 9A              ..      LDA (&9A,X)
.
964E  2C 91 94           ,..     BIT &9491
.
9651  29 07              ).      AND #&07
9653  48                 H       PHA
9654  C9 02              ..      CMP #&02
9656  D0 42              .B      BNE &969A
9658  08                 .       PHP
9659  AA                 .       TAX
965A  BC AD 97           ...     LDY &97AD,X
965D  B9 B9 97           ...     LDA &97B9,Y
9660  20 11 96            ..     JSR &9611
9663  A2 00              ..      LDX #&00
9665  8E 00 01           ...     STX &0100
.
9668  B9 B9 97           ...     LDA &97B9,Y
966B  9D 01 01           ...     STA &0101,X
966E  F0 04              ..      BEQ &9674
9670  C8                 .       INY
9671  E8                 .       INX
9672  D0 F4              ..      BNE &9668
.
9674  20 4D 97            M.     JSR &974D
9677  28                 (       PLP
9678  70 0C              p.      BVS &9686
967A  A9 A4              ..      LDA #&A4
967C  20 11 96            ..     JSR &9611
967F  8D 01 01           ...     STA &0101
9682  A0 0B              ..      LDY #&0B
9684  D0 02              ..      BNE &9688
.
9686  A0 09              ..      LDY #&09
.
9688  B9 AD 97           ...     LDA &97AD,Y ; Error ' not listening'
968B  A8                 .       TAY
.
968C  B9 B9 97           ...     LDA &97B9,Y
968F  9D 01 01           ...     STA &0101,X
9692  F0 04              ..      BEQ &9698
9694  C8                 .       INY
9695  E8                 .       INX
9696  D0 F4              ..      BNE &968C
.
9698  F0 15              ..      BEQ &96AF
.
969A  AA                 .       TAX
969B  BC AD 97           ...     LDY &97AD,X
969E  A2 00              ..      LDX #&00
96A0  8E 00 01           ...     STX &0100
96A3  B9 B9 97           ...     LDA &97B9,Y
96A6  20 11 96            ..     JSR &9611
.
96A9  B9 B9 97           ...     LDA &97B9,Y
96AC  9D 01 01           ...     STA &0101,X
.
96AF  F0 3F              .?      BEQ &96F0
96B1  C8                 .       INY
96B2  E8                 .       INX
96B3  D0 F4              ..      BNE &96A9
96B5  42                 B       ...
96B6  61 64              ad      ADC (&64,X)

; -----------------------------------------------------------------------------
; Generate 'Bad (...)' error message
; -----------------------------------------------------------------------------

.
96B8  20 11 96            ..     JSR &9611
96BB  A8                 .       TAY                        ; Error number in Y
96BC  68                 h       PLA
96BD  85 B0              ..      STA &B0
96BF  68                 h       PLA
96C0  85 B1              ..      STA &B1
96C2  A2 00              ..      LDX #&00
.
96C4  E8                 .       INX
96C5  BD B4 96           ...     LDA &96B4,X                ; Bad (...)
96C8  9D 01 01           ...     STA &0101,X
96CB  C9 20              .       CMP #&20
96CD  D0 F5              ..      BNE &96C4
96CF  F0 0C              ..      BEQ &96DD
.
96D1  20 11 96            ..     JSR &9611
96D4  A8                 .       TAY
96D5  68                 h       PLA
96D6  85 B0              ..      STA &B0
96D8  68                 h       PLA
96D9  85 B1              ..      STA &B1
96DB  A2 00              ..      LDX #&00
.
96DD  8C 01 01           ...     STY &0101                   ; Error number
96E0  98                 .       TYA
96E1  48                 H       PHA
96E2  A0 00              ..      LDY #&00
96E4  8C 00 01           ...     STY &0100                   ; BRK (start of error message)
.
96E7  E8                 .       INX
96E8  C8                 .       INY
96E9  B1 B0              ..      LDA (&B0),Y
96EB  9D 01 01           ...     STA &0101,X
96EE  D0 F7              ..      BNE &96E7
.
96F0  20 8A B9            ..     JSR &B98A
96F3  D0 08              ..      BNE &96FD
96F5  68                 h       PLA
96F6  C9 DE              ..      CMP #&DE
96F8  F0 46              .F      BEQ &9740
.
96FA  4C 00 01           L..     JMP &0100
.
96FD  8D 08 0E           ...     STA &0E08
9700  48                 H       PHA
9701  8A                 .       TXA
9702  48                 H       PHA
9703  20 8A B9            ..     JSR &B98A
9706  85 B0              ..      STA &B0
9708  A9 00              ..      LDA #&00
970A  91 9C              ..      STA (&9C),Y
970C  A9 C6              ..      LDA #&C6
970E  20 83 8E            ..     JSR &8E83
9711  C4 B0              ..      CPY &B0
9713  F0 09              ..      BEQ &971E
9715  E4 B0              ..      CPX &B0
9717  D0 13              ..      BNE &972C
9719  48                 H       PHA
971A  A9 C6              ..      LDA #&C6
971C  D0 04              ..      BNE &9722
.
971E  98                 .       TYA
971F  48                 H       PHA
9720  A9 C7              ..      LDA #&C7
.
9722  20 8C 8E            ..     JSR &8E8C
9725  68                 h       PLA
9726  A8                 .       TAY
9727  A9 00              ..      LDA #&00
9729  20 CE FF            ..     JSR osfind
.
972C  68                 h       PLA
972D  AA                 .       TAX
972E  A0 0A              ..      LDY #&0A
9730  B9 AD 97           ...     LDA &97AD,Y ; Error ' on channel'
9733  A8                 .       TAY
.
9734  B9 B9 97           ...     LDA &97B9,Y
9737  9D 01 01           ...     STA &0101,X
973A  F0 04              ..      BEQ &9740
973C  E8                 .       INX
973D  C8                 .       INY
973E  D0 F4              ..      BNE &9734
.
9740  86 B2              ..      STX &B2
9742  68                 h       PLA
9743  20 71 97            q.     JSR &9771
9746  A9 00              ..      LDA #&00
9748  9D 02 01           ...     STA &0102,X
974B  F0 AD              ..      BEQ &96FA
.
974D  A9 20              .       LDA #&20
974F  9D 01 01           ...     STA &0101,X
9752  E8                 .       INX
9753  86 B2              ..      STX &B2
9755  A0 03              ..      LDY #&03
9757  B1 9A              ..      LDA (&9A),Y
9759  F0 0C              ..      BEQ &9767
975B  20 7C 97            |.     JSR &977C
975E  A6 B2              ..      LDX &B2
9760  A9 2E              ..      LDA #&2E
9762  9D 01 01           ...     STA &0101,X
9765  E6 B2              ..      INC &B2
.
9767  A0 02              ..      LDY #&02
9769  B1 9A              ..      LDA (&9A),Y
976B  20 7C 97            |.     JSR &977C
976E  A6 B2              ..      LDX &B2
9770  60                 `       RTS
.
9771  A8                 .       TAY
9772  A9 20              .       LDA #&20
9774  A6 B2              ..      LDX &B2
9776  9D 01 01           ...     STA &0101,X
9779  E6 B2              ..      INC &B2
977B  98                 .       TYA
.
977C  A8                 .       TAY
977D  2C 91 94           ,..     BIT &9491
9780  A9 64              .d      LDA #&64
9782  20 8D 97            ..     JSR &978D
9785  A9 0A              ..      LDA #&0A
9787  20 8D 97            ..     JSR &978D
978A  A9 01              ..      LDA #&01
978C  B8                 .       CLV
.
978D  85 B3              ..      STA &B3
978F  98                 .       TYA
9790  A2 2F              ./      LDX #&2F
9792  08                 .       PHP
9793  38                 8       SEC
.
9794  E8                 .       INX
9795  E5 B3              ..      SBC &B3
9797  B0 FB              ..      BCS &9794
9799  65 B3              e.      ADC &B3
979B  28                 (       PLP
979C  A8                 .       TAY
979D  8A                 .       TXA
979E  C9 30              .0      CMP #&30
97A0  D0 02              ..      BNE &97A4
97A2  70 08              p.      BVS &97AC
.
97A4  B8                 .       CLV
97A5  A6 B2              ..      LDX &B2
97A7  9D 01 01           ...     STA &0101,X
97AA  E6 B2              ..      INC &B2
.
97AC  60                 `       RTS

97AD  00                 .       DB &00        ; 00: Pointer to 'A0 Line jammed'
97AE  0D                 .       DB &0D        ; 01: Pointer to 'A1 Net error'
97AF  18                 .       DB &18        ; 02: Pointer to 'A2 Station'
97B0  21                 !       DB &21        ; 03: Pointer to 'A3 No clock'
97B1  2B                 +       DB &2B        ; 04: Pointer to '11 Escape'
97B2  2B                 +       DB &2B        ; 05: Pointer to '11 Escape'
97B3  2B                 +       DB &2B        ; 06: Pointer to '11 Escape'
97B4  33                 3       DB &33        ; 07: Pointer to 'CB Bad option'
97B5  3F                 ?       DB &3F        ; 08: Pointer to 'A5 No reply from station'
97B6  56                 V       DB &56        ; 09: Pointer to ' not listening'
97B7  65                 e       DB &65        ; 0A: Pointer to ' on channel'
97B8  71                 q       DB &71        ; 0B: Pointer to ' not present'

97B9  A0                 .       DB &A0        ; Error number &A0
97BA  4C 69 6E           Lin     JMP &6E69
97BD  65 20              e       ADC &20
97BF  6A                 j       ROR A
97C0  61 6D              am      ADC (&6D,X)
97C2  6D 65 64           med     ADC &6465
97C5  00                 .       BRK
97C6  A1 4E              .N      LDA (&4E,X)
97C8  65 74              et      ADC &74
97CA  20 65 72            er     JSR &7265
97CD  72                 r       ...
97CE  6F                 o       ...
97CF  72                 r       ...
97D0  00                 .       BRK
97D1  A2 53              .S      LDX #&53
97D3  74                 t       ...
97D4  61 74              at      ADC (&74,X)
97D6  69 6F              io      ADC #&6F
97D8  6E 00 A3           n..     ROR &A300
97DB  4E 6F 20           No      LSR &206F
97DE  63                 c       ...
97DF  6C 6F 63           loc     JMP (&636F)
97E2  6B                 k       ...
97E3  00                 .       BRK
97E4  11 45              .E      ORA (&45),Y
97E6  73                 s       ...
97E7  63                 c       ...
97E8  61 70              ap      ADC (&70,X)
97EA  65 00              e.      ADC &00
97EC  CB                 .       ...
97ED  42                 B       ...
97EE  61 64              ad      ADC (&64,X)
97F0  20 6F 70            op     JSR &706F
97F3  74                 t       ...
97F4  69 6F              io      ADC #&6F
97F6  6E 00 A5           n..     ROR &A500
97F9  4E 6F 20           No      LSR &206F
97FC  72                 r       ...
97FD  65 70              ep      ADC &70
97FF  6C 79 20           ly      JMP (&2079)
9802  66 72              fr      ROR &72
9804  6F                 o       ...
9805  6D 20 73           m s     ADC &7320
9808  74                 t       ...
9809  61 74              at      ADC (&74,X)
980B  69 6F              io      ADC #&6F
980D  6E 00 20           n.      ROR &2000
9810  6E 6F 74           not     ROR &746F
9813  20 6C 69            li     JSR &696C
9816  73                 s       ...
9817  74                 t       ...
9818  65 6E              en      ADC &6E
981A  69 6E              in      ADC #&6E
981C  67                 g       ...
981D  00                 .       BRK
981E  20 6F 6E            on     JSR &6E6F
9821  20 63 68            ch     JSR &6863
9824  61 6E              an      ADC (&6E,X)
9826  6E 65 6C           nel     ROR &6C65
9829  00                 .       BRK
982A  20 6E 6F            no     JSR &6F6E
982D  74                 t       ...
982E  20 70 72            pr     JSR &7270
9831  65 73              es      ADC &73
9833  65 6E              en      ADC &6E
9835  74                 t       ...
9836  00                 .       BRK
.
9837  A2 C0              ..      LDX #&C0
9839  86 9A              ..      STX &9A
983B  A2 00              ..      LDX #&00
983D  86 9B              ..      STX &9B
983F  AD 6D 0D           .m.     LDA &0D6D
9842  D0 02              ..      BNE &9846
9844  A9 FF              ..      LDA #&FF
.
9846  A0 60              .`      LDY #&60
9848  48                 H       PHA
9849  98                 .       TYA
984A  48                 H       PHA
984B  A2 00              ..      LDX #&00
984D  A1 9A              ..      LDA (&9A,X)
.
984F  81 9A              ..      STA (&9A,X)
9851  48                 H       PHA
9852  20 C9 98            ..     JSR &98C9
9855  0A                 .       ASL A
9856  10 2A              .*      BPL &9882
9858  0A                 .       ASL A
9859  F0 23              .#      BEQ &987E
985B  20 70 95            p.     JSR &9570
985E  68                 h       PLA
985F  AA                 .       TAX
9860  68                 h       PLA
9861  A8                 .       TAY
9862  68                 h       PLA
9863  F0 0E              ..      BEQ &9873
.
9865  E9 01              ..      SBC #&01
9867  48                 H       PHA
9868  98                 .       TYA
9869  48                 H       PHA
986A  8A                 .       TXA
.
986B  CA                 .       DEX
986C  D0 FD              ..      BNE &986B
986E  88                 .       DEY
986F  D0 FA              ..      BNE &986B
9871  F0 DC              ..      BEQ &984F
.
9873  CD 6D 0D           .m.     CMP &0D6D
9876  D0 06              ..      BNE &987E
9878  A9 80              ..      LDA #&80
987A  85 98              ..      STA &98
987C  D0 E7              ..      BNE &9865
.
987E  AA                 .       TAX
987F  4C 4C 96           LL.     JMP &964C
.
9882  68                 h       PLA
9883  68                 h       PLA
9884  68                 h       PLA
9885  4C 9F 92           L..     JMP &929F
9888  88                 .       DEY
9889  00                 .       BRK
988A  FD FD 3A           ..:     SBC &3AFD,X
988D  0D FF FF           ...     ORA &FFFF
9890  3E 0D FF           >..     ROL &FF0D,X
9893  FF                 .       ...
.
9894  A0 C0              ..      LDY #&C0
9896  84 9A              ..      STY &9A
9898  A0 00              ..      LDY #&00
989A  84 9B              ..      STY &9B
989C  A0 0B              ..      LDY #&0B
.
989E  BE 88 98           ...     LDX &9888,Y
98A1  E0 FD              ..      CPX #&FD
98A3  F0 06              ..      BEQ &98AB
98A5  B1 9A              ..      LDA (&9A),Y
98A7  48                 H       PHA
98A8  8A                 .       TXA
98A9  91 9A              ..      STA (&9A),Y
.
98AB  88                 .       DEY
98AC  10 F0              ..      BPL &989E
98AE  AD 6F 0D           .o.     LDA &0D6F
98B1  48                 H       PHA
98B2  98                 .       TYA
98B3  48                 H       PHA
98B4  A2 00              ..      LDX #&00
98B6  A1 9A              ..      LDA (&9A,X)
.
98B8  81 9A              ..      STA (&9A,X)
98BA  48                 H       PHA
98BB  20 C9 98            ..     JSR &98C9
98BE  0A                 .       ASL A
98BF  10 32              .2      BPL &98F3
98C1  0A                 .       ASL A
98C2  D0 1A              ..      BNE &98DE
.
98C4  A2 00              ..      LDX #&00
98C6  4C 41 96           LA.     JMP &9641
.
98C9  0E 60 0D           .`.     ASL &0D60
98CC  90 FB              ..      BCC &98C9
98CE  A5 9A              ..      LDA &9A
98D0  85 A0              ..      STA &A0
98D2  A5 9B              ..      LDA &9B
98D4  85 A1              ..      STA &A1
98D6  20 8C 85            ..     JSR &858C
.
98D9  A1 9A              ..      LDA (&9A,X)
98DB  30 FC              0.      BMI &98D9
98DD  60                 `       RTS
.
98DE  68                 h       PLA
98DF  AA                 .       TAX
98E0  68                 h       PLA
98E1  A8                 .       TAY
98E2  68                 h       PLA
98E3  F0 DF              ..      BEQ &98C4
98E5  E9 01              ..      SBC #&01
98E7  48                 H       PHA
98E8  98                 .       TYA
98E9  48                 H       PHA
98EA  8A                 .       TXA
.
98EB  CA                 .       DEX
98EC  D0 FD              ..      BNE &98EB
98EE  88                 .       DEY
98EF  D0 FA              ..      BNE &98EB
98F1  F0 C5              ..      BEQ &98B8
.
98F3  68                 h       PLA
98F4  68                 h       PLA
98F5  68                 h       PLA
98F6  A0 00              ..      LDY #&00
.
98F8  BE 88 98           ...     LDX &9888,Y
98FB  E0 FD              ..      CPX #&FD
98FD  F0 03              ..      BEQ &9902
98FF  68                 h       PLA
9900  91 9A              ..      STA (&9A),Y
.
9902  C8                 .       INY
9903  C0 0C              ..      CPY #&0C
9905  D0 F1              ..      BNE &98F8
9907  60                 `       RTS
.
9908  A0 01              ..      LDY #&01
.
990A  B1 BB              ..      LDA (&BB),Y
990C  99 F2 00           ...     STA &00F2,Y
990F  88                 .       DEY
9910  10 F8              ..      BPL &990A
9912  C8                 .       INY
9913  A2 FF              ..      LDX #&FF
9915  18                 .       CLC
9916  20 C2 FF            ..     JSR gsinit
9919  F0 0B              ..      BEQ &9926
.
991B  20 C5 FF            ..     JSR gsread
991E  B0 06              ..      BCS &9926
9920  E8                 .       INX
9921  9D 30 0E           .0.     STA &0E30,X
9924  90 F5              ..      BCC &991B
.
9926  E8                 .       INX
9927  A9 0D              ..      LDA #&0D
9929  9D 30 0E           .0.     STA &0E30,X
992C  A9 30              .0      LDA #&30
992E  85 BE              ..      STA &BE
9930  A9 0E              ..      LDA #&0E
9932  85 BF              ..      STA &BF
9934  60                 `       RTS
9935  20 95 92            ..     JSR &9295
9938  20 08 99            ..     JSR &9908
993B  20 32 AF            2.     JSR &AF32
993E  20 97 AE            ..     JSR &AE97
9941  A5 BD              ..      LDA &BD
9943  10 7E              .~      BPL &99C3
9945  C9 FF              ..      CMP #&FF
9947  F0 03              ..      BEQ &994C
9949  4C C7 9C           L..     JMP &9CC7
.
994C  20 02 AF            ..     JSR &AF02
994F  A0 02              ..      LDY #&02
9951  A9 92              ..      LDA #&92
9953  85 98              ..      STA &98
9955  8D 02 0F           ...     STA &0F02
9958  20 9B 94            ..     JSR &949B
995B  A0 06              ..      LDY #&06
995D  B1 BB              ..      LDA (&BB),Y
995F  D0 08              ..      BNE &9969
9961  20 72 9A            r.     JSR &9A72
9964  20 84 9A            ..     JSR &9A84
9967  90 06              ..      BCC &996F
.
9969  20 84 9A            ..     JSR &9A84
996C  20 72 9A            r.     JSR &9A72
.
996F  A0 04              ..      LDY #&04
.
9971  B5 B0              ..      LDA &B0,X
9973  95 C8              ..      STA &C8,X
9975  7D 0D 0F           }..     ADC &0F0D,X
9978  95 B4              ..      STA &B4,X
997A  E8                 .       INX
997B  88                 .       DEY
997C  D0 F3              ..      BNE &9971
997E  38                 8       SEC
997F  ED 10 0F           ...     SBC &0F10
9982  85 B7              ..      STA &B7
9984  20 95 9B            ..     JSR &9B95
9987  20 98 99            ..     JSR &9998
998A  A2 02              ..      LDX #&02
.
998C  BD 10 0F           ...     LDA &0F10,X
998F  9D 05 0F           ...     STA &0F05,X
9992  CA                 .       DEX
9993  10 F7              ..      BPL &998C
9995  4C 1F 9A           L..     JMP &9A1F
.
9998  20 A4 92            ..     JSR &92A4
999B  F0 25              .%      BEQ &99C2
999D  A9 92              ..      LDA #&92
999F  85 C1              ..      STA &C1
.
99A1  A2 03              ..      LDX #&03
.
99A3  B5 C8              ..      LDA &C8,X
99A5  95 C4              ..      STA &C4,X
99A7  B5 B4              ..      LDA &B4,X
99A9  95 C8              ..      STA &C8,X
99AB  CA                 .       DEX
99AC  10 F5              ..      BPL &99A3
99AE  A9 7F              ..      LDA #&7F
99B0  85 C0              ..      STA &C0
99B2  20 DD 95            ..     JSR &95DD
99B5  A0 03              ..      LDY #&03
.
99B7  B9 C8 00           ...     LDA &00C8,Y
99BA  59 B4 00           Y..     EOR &00B4,Y
99BD  D0 E2              ..      BNE &99A1
99BF  88                 .       DEY
99C0  10 F5              ..      BPL &99B7
.
99C2  60                 `       RTS
.
99C3  F0 03              ..      BEQ &99C8
99C5  4C EF 9A           L..     JMP &9AEF
.
99C8  A2 04              ..      LDX #&04
99CA  A0 0E              ..      LDY #&0E
99CC  38                 8       SEC
.
99CD  B1 BB              ..      LDA (&BB),Y
99CF  99 A6 00           ...     STA &00A6,Y
99D2  20 91 9A            ..     JSR &9A91
99D5  F1 BB              ..      SBC (&BB),Y
99D7  99 03 0F           ...     STA &0F03,Y
99DA  48                 H       PHA
99DB  B1 BB              ..      LDA (&BB),Y
99DD  99 A6 00           ...     STA &00A6,Y
99E0  68                 h       PLA
99E1  91 BB              ..      STA (&BB),Y
99E3  20 7E 9A            ~.     JSR &9A7E
99E6  CA                 .       DEX
99E7  D0 E4              ..      BNE &99CD
99E9  A0 09              ..      LDY #&09
.
99EB  B1 BB              ..      LDA (&BB),Y
99ED  99 03 0F           ...     STA &0F03,Y
99F0  88                 .       DEY
99F1  D0 F8              ..      BNE &99EB
99F3  A9 91              ..      LDA #&91
99F5  85 98              ..      STA &98
99F7  8D 02 0F           ...     STA &0F02
99FA  85 B8              ..      STA &B8
99FC  A2 0B              ..      LDX #&0B
99FE  20 04 AF            ..     JSR &AF04
9A01  A0 01              ..      LDY #&01
9A03  A5 BD              ..      LDA &BD
9A05  C9 07              ..      CMP #&07
9A07  08                 .       PHP
9A08  D0 02              ..      BNE &9A0C
9A0A  A0 1D              ..      LDY #&1D
.
9A0C  20 9B 94            ..     JSR &949B
9A0F  20 95 9B            ..     JSR &9B95
9A12  28                 (       PLP
9A13  D0 04              ..      BNE &9A19
9A15  A2 00              ..      LDX #&00
9A17  F0 09              ..      BEQ &9A22
.
9A19  AD 05 0F           ...     LDA &0F05
9A1C  20 9A 9A            ..     JSR &9A9A
.
9A1F  20 F0 94            ..     JSR &94F0
.
9A22  8E 08 0F           ...     STX &0F08
9A25  A0 0E              ..      LDY #&0E
9A27  AD 05 0F           ...     LDA &0F05
9A2A  20 73 92            s.     JSR &9273
9A2D  F0 03              ..      BEQ &9A32
.
9A2F  B9 F7 0E           ...     LDA &0EF7,Y
.
9A32  91 BB              ..      STA (&BB),Y
9A34  C8                 .       INY
9A35  C0 12              ..      CPY #&12
9A37  D0 F6              ..      BNE &9A2F
9A39  AC 06 0E           ...     LDY &0E06
9A3C  F0 45              .E      BEQ &9A83
9A3E  A0 F4              ..      LDY #&F4
.
9A40  B9 FF 0F           ...     LDA &0FFF,Y
9A43  20 E3 FF            ..     JSR osasci
9A46  C8                 .       INY
9A47  D0 F7              ..      BNE &9A40
9A49  A0 05              ..      LDY #&05
9A4B  20 62 9A            b.     JSR &9A62
9A4E  20 57 9A            W.     JSR &9A57
9A51  20 E7 FF            ..     JSR osnewl
9A54  4C C7 9C           L..     JMP &9CC7
.
9A57  A0 09              ..      LDY #&09
9A59  20 62 9A            b.     JSR &9A62
9A5C  A0 0C              ..      LDY #&0C
9A5E  A2 03              ..      LDX #&03
9A60  D0 02              ..      BNE &9A64
.
9A62  A2 04              ..      LDX #&04
.
9A64  B1 BB              ..      LDA (&BB),Y
9A66  20 2F 91            /.     JSR &912F
9A69  88                 .       DEY
9A6A  CA                 .       DEX
9A6B  D0 F7              ..      BNE &9A64
9A6D  A9 20              .       LDA #&20
9A6F  4C E3 FF           L..     JMP osasci
.
9A72  A0 05              ..      LDY #&05
.
9A74  B1 BB              ..      LDA (&BB),Y
9A76  99 AE 00           ...     STA &00AE,Y
9A79  88                 .       DEY
9A7A  C0 02              ..      CPY #&02
9A7C  B0 F6              ..      BCS &9A74
.
9A7E  C8                 .       INY
.
9A7F  C8                 .       INY
9A80  C8                 .       INY
9A81  C8                 .       INY
9A82  C8                 .       INY
.
9A83  60                 `       RTS
.
9A84  A0 0D              ..      LDY #&0D
9A86  8A                 .       TXA
.
9A87  91 BB              ..      STA (&BB),Y
9A89  B9 02 0F           ...     LDA &0F02,Y
9A8C  88                 .       DEY
9A8D  C0 02              ..      CPY #&02
9A8F  B0 F6              ..      BCS &9A87
.
9A91  88                 .       DEY
.
9A92  88                 .       DEY
9A93  88                 .       DEY
9A94  88                 .       DEY
9A95  60                 `       RTS
.
9A96  68                 h       PLA
9A97  A4 BC              ..      LDY &BC
9A99  60                 `       RTS
.
9A9A  48                 H       PHA
9A9B  20 A4 92            ..     JSR &92A4
9A9E  F0 F6              ..      BEQ &9A96
.
9AA0  A2 00              ..      LDX #&00
9AA2  A0 04              ..      LDY #&04
9AA4  8E 08 0F           ...     STX &0F08
9AA7  8E 09 0F           ...     STX &0F09
9AAA  18                 .       CLC
.
9AAB  B5 B0              ..      LDA &B0,X
9AAD  95 C4              ..      STA &C4,X
9AAF  7D 06 0F           }..     ADC &0F06,X
9AB2  95 C8              ..      STA &C8,X
9AB4  95 B0              ..      STA &B0,X
9AB6  E8                 .       INX
9AB7  88                 .       DEY
9AB8  D0 F1              ..      BNE &9AAB
9ABA  B0 0D              ..      BCS &9AC9
9ABC  38                 8       SEC
.
9ABD  B9 B0 00           ...     LDA &00B0,Y
9AC0  F9 B4 00           ...     SBC &00B4,Y
9AC3  C8                 .       INY
9AC4  CA                 .       DEX
9AC5  D0 F6              ..      BNE &9ABD
9AC7  90 09              ..      BCC &9AD2
.
9AC9  A2 03              ..      LDX #&03
.
9ACB  B5 B4              ..      LDA &B4,X
9ACD  95 C8              ..      STA &C8,X
9ACF  CA                 .       DEX
9AD0  10 F9              ..      BPL &9ACB
.
9AD2  68                 h       PLA
9AD3  48                 H       PHA
9AD4  08                 .       PHP
9AD5  85 C1              ..      STA &C1
9AD7  A9 80              ..      LDA #&80
9AD9  85 C0              ..      STA &C0
9ADB  20 37 98            7.     JSR &9837
9ADE  A5 B8              ..      LDA &B8
9AE0  20 67 94            g.     JSR &9467
9AE3  28                 (       PLP
9AE4  B0 B0              ..      BCS &9A96
9AE6  A9 91              ..      LDA #&91
9AE8  85 C1              ..      STA &C1
9AEA  20 DD 95            ..     JSR &95DD
9AED  D0 B1              ..      BNE &9AA0
.
9AEF  8D 05 0F           ...     STA &0F05
9AF2  C9 07              ..      CMP #&07
9AF4  90 05              ..      BCC &9AFB
9AF6  D0 4F              .O      BNE &9B47
9AF8  4C C8 99           L..     JMP &99C8
.
9AFB  C9 06              ..      CMP #&06
9AFD  F0 3D              .=      BEQ &9B3C
9AFF  C9 05              ..      CMP #&05
9B01  F0 53              .S      BEQ &9B56
9B03  C9 04              ..      CMP #&04
9B05  F0 45              .E      BEQ &9B4C
9B07  C9 01              ..      CMP #&01
9B09  F0 15              ..      BEQ &9B20
9B0B  0A                 .       ASL A
9B0C  0A                 .       ASL A
9B0D  A8                 .       TAY
9B0E  20 92 9A            ..     JSR &9A92
9B11  A2 03              ..      LDX #&03
.
9B13  B1 BB              ..      LDA (&BB),Y
9B15  9D 06 0F           ...     STA &0F06,X
9B18  88                 .       DEY
9B19  CA                 .       DEX
9B1A  10 F7              ..      BPL &9B13
9B1C  A2 05              ..      LDX #&05
9B1E  D0 15              ..      BNE &9B35
.
9B20  20 69 92            i.     JSR &9269
9B23  8D 0E 0F           ...     STA &0F0E
9B26  A0 09              ..      LDY #&09
9B28  A2 08              ..      LDX #&08
.
9B2A  B1 BB              ..      LDA (&BB),Y
9B2C  9D 05 0F           ...     STA &0F05,X
9B2F  88                 .       DEY
9B30  CA                 .       DEX
9B31  D0 F7              ..      BNE &9B2A
9B33  A2 0A              ..      LDX #&0A
.
9B35  20 04 AF            ..     JSR &AF04
9B38  A0 13              ..      LDY #&13
9B3A  D0 05              ..      BNE &9B41
.
9B3C  20 02 AF            ..     JSR &AF02
9B3F  A0 14              ..      LDY #&14
.
9B41  2C 91 94           ,..     BIT &9491
9B44  20 AE 94            ..     JSR &94AE
.
9B47  B0 49              .I      BCS &9B92
9B49  4C C7 9C           L..     JMP &9CC7
.
9B4C  20 69 92            i.     JSR &9269
9B4F  8D 06 0F           ...     STA &0F06
9B52  A2 02              ..      LDX #&02
9B54  D0 DF              ..      BNE &9B35
.
9B56  A2 01              ..      LDX #&01
9B58  20 04 AF            ..     JSR &AF04
9B5B  A0 12              ..      LDY #&12
9B5D  20 AD 94            ..     JSR &94AD
9B60  AD 11 0F           ...     LDA &0F11
9B63  8E 11 0F           ...     STX &0F11
9B66  8E 14 0F           ...     STX &0F14
9B69  20 73 92            s.     JSR &9273
9B6C  AE 05 0F           ...     LDX &0F05
9B6F  F0 20              .       BEQ &9B91
9B71  A0 0E              ..      LDY #&0E
9B73  91 BB              ..      STA (&BB),Y
9B75  88                 .       DEY
9B76  A2 0C              ..      LDX #&0C
.
9B78  BD 05 0F           ...     LDA &0F05,X
9B7B  91 BB              ..      STA (&BB),Y
9B7D  88                 .       DEY
9B7E  CA                 .       DEX
9B7F  D0 F7              ..      BNE &9B78
9B81  E8                 .       INX
9B82  E8                 .       INX
9B83  A0 11              ..      LDY #&11
.
9B85  BD 12 0F           ...     LDA &0F12,X
9B88  91 BB              ..      STA (&BB),Y
9B8A  88                 .       DEY
9B8B  CA                 .       DEX
9B8C  10 F7              ..      BPL &9B85
9B8E  AE 05 0F           ...     LDX &0F05
.
9B91  8A                 .       TXA
.
9B92  4C C9 9C           L..     JMP &9CC9
.
9B95  A0 00              ..      LDY #&00
9B97  AE 03 0F           ...     LDX &0F03
9B9A  D0 19              ..      BNE &9BB5
.
9B9C  B1 BE              ..      LDA (&BE),Y
9B9E  C9 21              .!      CMP #&21
9BA0  90 06              ..      BCC &9BA8
9BA2  99 F3 10           ...     STA &10F3,Y
9BA5  C8                 .       INY
9BA6  D0 F4              ..      BNE &9B9C
.
9BA8  A9 20              .       LDA #&20
9BAA  99 F3 10           ...     STA &10F3,Y
9BAD  C8                 .       INY
9BAE  C0 0C              ..      CPY #&0C
9BB0  90 F6              ..      BCC &9BA8
9BB2  60                 `       RTS
.
9BB3  E8                 .       INX
9BB4  C8                 .       INY
.
9BB5  BD 05 0F           ...     LDA &0F05,X
9BB8  99 F3 10           ...     STA &10F3,Y
9BBB  10 F6              ..      BPL &9BB3
9BBD  60                 `       RTS
9BBE  20 CB 8F            ..     JSR &8FCB
9BC1  85 BD              ..      STA &BD
9BC3  20 9B 92            ..     JSR &929B
9BC6  09 00              ..      ORA #&00
9BC8  10 2E              ..      BPL &9BF8
9BCA  0A                 .       ASL A
9BCB  F0 03              ..      BEQ &9BD0
9BCD  4C C4 9C           L..     JMP &9CC4
.
9BD0  98                 .       TYA
9BD1  C9 20              .       CMP #&20
9BD3  B0 03              ..      BCS &9BD8
.
9BD5  4C 82 B4           L..     JMP &B482
.
9BD8  C9 30              .0      CMP #&30
9BDA  B0 F9              ..      BCS &9BD5
9BDC  20 99 B7            ..     JSR &B799
9BDF  98                 .       TYA
9BE0  48                 H       PHA
9BE1  AA                 .       TAX
9BE2  A0 00              ..      LDY #&00
9BE4  84 BD              ..      STY &BD
9BE6  84 BC              ..      STY &BC
.
9BE8  BD 10 10           ...     LDA &1010,X
9BEB  91 BB              ..      STA (&BB),Y
9BED  20 86 BC            ..     JSR &BC86
9BF0  C8                 .       INY
9BF1  C0 04              ..      CPY #&04
9BF3  D0 F3              ..      BNE &9BE8
9BF5  68                 h       PLA
9BF6  85 BC              ..      STA &BC
.
9BF8  C9 05              ..      CMP #&05
9BFA  B0 4F              .O      BCS &9C4B
9BFC  C0 00              ..      CPY #&00
9BFE  D0 03              ..      BNE &9C03
9C00  4C D5 9C           L..     JMP &9CD5
.
9C03  48                 H       PHA
9C04  8A                 .       TXA
9C05  48                 H       PHA
9C06  98                 .       TYA
9C07  48                 H       PHA
9C08  20 F2 B4            ..     JSR &B4F2
9C0B  68                 h       PLA
9C0C  20 8F B9            ..     JSR &B98F
9C0F  BD 30 10           .0.     LDA &1030,X
9C12  8D 05 0F           ...     STA &0F05
9C15  68                 h       PLA
9C16  AA                 .       TAX
9C17  68                 h       PLA
9C18  4A                 J       LSR A
9C19  F0 4F              .O      BEQ &9C6A
9C1B  08                 .       PHP
9C1C  48                 H       PHA
9C1D  A6 BB              ..      LDX &BB
9C1F  A4 BC              ..      LDY &BC
9C21  20 99 B7            ..     JSR &B799
9C24  B9 10 10           ...     LDA &1010,Y
9C27  8D 05 0F           ...     STA &0F05
9C2A  68                 h       PLA
9C2B  8D 06 0F           ...     STA &0F06
9C2E  28                 (       PLP
9C2F  98                 .       TYA
9C30  48                 H       PHA
9C31  90 1B              ..      BCC &9C4E
9C33  A0 03              ..      LDY #&03
.
9C35  B5 03              ..      LDA &03,X
9C37  99 07 0F           ...     STA &0F07,Y
9C3A  CA                 .       DEX
9C3B  88                 .       DEY
9C3C  10 F7              ..      BPL &9C35
9C3E  A0 0D              ..      LDY #&0D
9C40  A2 05              ..      LDX #&05
9C42  20 AD 94            ..     JSR &94AD
9C45  86 BD              ..      STX &BD
9C47  68                 h       PLA
9C48  20 B5 92            ..     JSR &92B5
.
9C4B  4C C7 9C           L..     JMP &9CC7
.
9C4E  A0 0C              ..      LDY #&0C
9C50  A2 02              ..      LDX #&02
9C52  20 AD 94            ..     JSR &94AD
9C55  85 BD              ..      STA &BD
9C57  A6 BB              ..      LDX &BB
9C59  A0 02              ..      LDY #&02
9C5B  95 03              ..      STA &03,X
.
9C5D  B9 05 0F           ...     LDA &0F05,Y
9C60  95 02              ..      STA &02,X
9C62  CA                 .       DEX
9C63  88                 .       DEY
9C64  10 F7              ..      BPL &9C5D
9C66  68                 h       PLA
9C67  4C C7 9C           L..     JMP &9CC7
.
9C6A  B0 20              .       BCS &9C8C
9C6C  A5 BC              ..      LDA &BC
9C6E  20 6B B4            k.     JSR &B46B
9C71  A4 BB              ..      LDY &BB
9C73  BD 00 10           ...     LDA &1000,X
9C76  99 00 00           ...     STA &0000,Y
9C79  BD 10 10           ...     LDA &1010,X
9C7C  99 01 00           ...     STA &0001,Y
9C7F  BD 20 10           . .     LDA &1020,X
9C82  99 02 00           ...     STA &0002,Y
9C85  A9 00              ..      LDA #&00
9C87  99 03 00           ...     STA &0003,Y
9C8A  F0 3B              .;      BEQ &9CC7
.
9C8C  8D 06 0F           ...     STA &0F06
9C8F  8A                 .       TXA
9C90  48                 H       PHA
9C91  A0 03              ..      LDY #&03
.
9C93  B5 03              ..      LDA &03,X
9C95  99 07 0F           ...     STA &0F07,Y
9C98  CA                 .       DEX
9C99  88                 .       DEY
9C9A  10 F7              ..      BPL &9C93
9C9C  A0 0D              ..      LDY #&0D
9C9E  A2 05              ..      LDX #&05
9CA0  20 AD 94            ..     JSR &94AD
9CA3  86 BD              ..      STX &BD
9CA5  68                 h       PLA
9CA6  A8                 .       TAY
9CA7  A5 BC              ..      LDA &BC
9CA9  20 CC 92            ..     JSR &92CC
9CAC  20 6B B4            k.     JSR &B46B
9CAF  B9 00 00           ...     LDA &0000,Y
9CB2  9D 00 10           ...     STA &1000,X
9CB5  B9 01 00           ...     LDA &0001,Y
9CB8  9D 10 10           ...     STA &1010,X
9CBB  B9 02 00           ...     LDA &0002,Y
9CBE  9D 20 10           . .     STA &1020,X
9CC1  4C C7 9C           L..     JMP &9CC7
.
9CC4  20 99 B7            ..     JSR &B799
.
9CC7  A5 BD              ..      LDA &BD
.
9CC9  48                 H       PHA
9CCA  A9 00              ..      LDA #&00
9CCC  20 8F B9            ..     JSR &B98F
9CCF  68                 h       PLA
9CD0  A6 BB              ..      LDX &BB
9CD2  A4 BC              ..      LDY &BC
9CD4  60                 `       RTS
.
9CD5  C9 02              ..      CMP #&02
9CD7  B0 13              ..      BCS &9CEC
9CD9  A8                 .       TAY
9CDA  D0 04              ..      BNE &9CE0
9CDC  A9 05              ..      LDA #&05
9CDE  D0 E9              ..      BNE &9CC9
.
9CE0  B9 0A 0E           ...     LDA &0E0A,Y
9CE3  91 BB              ..      STA (&BB),Y
9CE5  88                 .       DEY
9CE6  10 F8              ..      BPL &9CE0
9CE8  94 02              ..      STY &02
9CEA  94 03              ..      STY &03
.
9CEC  F0 02              ..      BEQ &9CF0
.
9CEE  A9 00              ..      LDA #&00
.
9CF0  4A                 J       LSR A
9CF1  10 D6              ..      BPL &9CC9
.
9CF3  29 3F              )?      AND #&3F
9CF5  D0 F7              ..      BNE &9CEE
9CF7  8A                 .       TXA
9CF8  20 3D B5            =.     JSR &B53D
9CFB  49 80              I.      EOR #&80
9CFD  0A                 .       ASL A
9CFE  8D 05 0F           ...     STA &0F05
9D01  2A                 *       ROL A
9D02  8D 06 0F           ...     STA &0F06
9D05  20 92 AE            ..     JSR &AE92
9D08  A2 02              ..      LDX #&02
9D0A  20 04 AF            ..     JSR &AF04
9D0D  A0 06              ..      LDY #&06
9D0F  2C 91 94           ,..     BIT &9491
9D12  38                 8       SEC
9D13  66 98              f.      ROR &98
9D15  20 AE 94            ..     JSR &94AE
9D18  B0 6D              .m      BCS &9D87
9D1A  A9 FF              ..      LDA #&FF
9D1C  20 8F B9            ..     JSR &B98F
9D1F  AD 05 0F           ...     LDA &0F05
9D22  48                 H       PHA
9D23  A9 04              ..      LDA #&04
9D25  8D 05 0F           ...     STA &0F05
9D28  A2 01              ..      LDX #&01
.
9D2A  BD 06 0F           ...     LDA &0F06,X
9D2D  9D 05 0F           ...     STA &0F05,X
9D30  E8                 .       INX
9D31  C9 0D              ..      CMP #&0D
9D33  D0 F5              ..      BNE &9D2A
9D35  A0 12              ..      LDY #&12
9D37  20 AD 94            ..     JSR &94AD
9D3A  A5 BD              ..      LDA &BD
9D3C  29 BF              ).      AND #&BF
9D3E  0D 05 0F           ...     ORA &0F05
9D41  09 01              ..      ORA #&01
9D43  A8                 .       TAY
9D44  29 02              ).      AND #&02
9D46  F0 23              .#      BEQ &9D6B
9D48  68                 h       PLA
9D49  20 09 B5            ..     JSR &B509
9D4C  D0 33              .3      BNE &9D81
9D4E  20 CB 8F            ..     JSR &8FCB
9D51  20 95 92            ..     JSR &9295
9D54  AA                 .       TAX
9D55  20 32 AF            2.     JSR &AF32
9D58  8A                 .       TXA
9D59  F0 2F              ./      BEQ &9D8A
9D5B  20 B5 AF            ..     JSR &AFB5
9D5E  AC 70 10           .p.     LDY &1070
9D61  F0 90              ..      BEQ &9CF3
9D63  98                 .       TYA
9D64  A2 00              ..      LDX #&00
9D66  8E 70 10           .p.     STX &1070
9D69  F0 1C              ..      BEQ &9D87
.
9D6B  AD 06 0F           ...     LDA &0F06
9D6E  6A                 j       ROR A
9D6F  B0 0C              ..      BCS &9D7D
9D71  6A                 j       ROR A
9D72  90 09              ..      BCC &9D7D
9D74  2C 07 0F           ,..     BIT &0F07
9D77  10 04              ..      BPL &9D7D
9D79  98                 .       TYA
9D7A  09 20              .       ORA #&20
9D7C  A8                 .       TAY
.
9D7D  68                 h       PLA
9D7E  20 09 B5            ..     JSR &B509
.
9D81  AA                 .       TAX
9D82  98                 .       TYA
9D83  9D 40 10           .@.     STA &1040,X
9D86  8A                 .       TXA
.
9D87  4C C9 9C           L..     JMP &9CC9
.
9D8A  20 99 B7            ..     JSR &B799
9D8D  98                 .       TYA
9D8E  D0 13              ..      BNE &9DA3
9D90  A5 BB              ..      LDA &BB
9D92  48                 H       PHA
9D93  A9 77              .w      LDA #&77
9D95  20 F4 FF            ..     JSR osbyte
9D98  68                 h       PLA
9D99  85 BB              ..      STA &BB
9D9B  A9 00              ..      LDA #&00
9D9D  85 BD              ..      STA &BD
9D9F  85 BC              ..      STA &BC
9DA1  F0 06              ..      BEQ &9DA9
.
9DA3  20 7A B4            z.     JSR &B47A
9DA6  BD 30 10           .0.     LDA &1030,X
.
9DA9  8D 05 0F           ...     STA &0F05
9DAC  A2 01              ..      LDX #&01
9DAE  A0 07              ..      LDY #&07
9DB0  20 AD 94            ..     JSR &94AD
9DB3  A4 BC              ..      LDY &BC
9DB5  D0 07              ..      BNE &9DBE
9DB7  B8                 .       CLV
9DB8  20 5D B5            ].     JSR &B55D
.
9DBB  4C C7 9C           L..     JMP &9CC7
.
9DBE  A9 00              ..      LDA #&00
9DC0  99 10 10           ...     STA &1010,Y
9DC3  99 40 10           .@.     STA &1040,Y
9DC6  F0 F3              ..      BEQ &9DBB
9DC8  F0 0B              ..      BEQ &9DD5
9DCA  E0 04              ..      CPX #&04
9DCC  D0 04              ..      BNE &9DD2
9DCE  C0 04              ..      CPY #&04
9DD0  90 0D              ..      BCC &9DDF
.
9DD2  CA                 .       DEX
9DD3  D0 05              ..      BNE &9DDA
.
9DD5  8C 06 0E           ...     STY &0E06
9DD8  90 E1              ..      BCC &9DBB
.
9DDA  A9 07              ..      LDA #&07
9DDC  4C 4E 96           LN.     JMP &964E
.
9DDF  8C 05 0F           ...     STY &0F05
9DE2  A0 16              ..      LDY #&16
9DE4  20 AD 94            ..     JSR &94AD
9DE7  A4 BC              ..      LDY &BC
9DE9  8C 05 0E           ...     STY &0E05
9DEC  10 CD              ..      BPL &9DBB
9DEE  20 CB 8F            ..     JSR &8FCB
9DF1  48                 H       PHA
9DF2  A5 BC              ..      LDA &BC
9DF4  48                 H       PHA
9DF5  8E C9 10           ...     STX &10C9
9DF8  20 30 B7            0.     JSR &B730
9DFB  F0 0C              ..      BEQ &9E09
9DFD  B9 00 10           ...     LDA &1000,Y
9E00  DD 98 10           ...     CMP &1098,X
9E03  90 04              ..      BCC &9E09
9E05  A2 FF              ..      LDX #&FF
9E07  30 02              0.      BMI &9E0B
.
9E09  A2 00              ..      LDX #&00
.
9E0B  68                 h       PLA
9E0C  A8                 .       TAY
9E0D  68                 h       PLA
9E0E  60                 `       RTS
.
9E0F  A0 09              ..      LDY #&09
9E11  20 16 9E            ..     JSR &9E16
9E14  A0 01              ..      LDY #&01
.
9E16  18                 .       CLC
.
9E17  A2 FC              ..      LDX #&FC
.
9E19  B1 BB              ..      LDA (&BB),Y
9E1B  24 B2              $.      BIT &B2
9E1D  30 06              0.      BMI &9E25
9E1F  7D 0A 0E           }..     ADC &0E0A,X
9E22  4C 28 9E           L(.     JMP &9E28
.
9E25  FD 0A 0E           ...     SBC &0E0A,X
.
9E28  91 BB              ..      STA (&BB),Y
9E2A  C8                 .       INY
9E2B  E8                 .       INX
9E2C  D0 EB              ..      BNE &9E19
9E2E  60                 `       RTS
9E2F  20 CB 8F            ..     JSR &8FCB
9E32  20 95 92            ..     JSR &9295
9E35  48                 H       PHA
9E36  20 32 AF            2.     JSR &AF32
9E39  68                 h       PLA
9E3A  AA                 .       TAX
9E3B  F0 05              ..      BEQ &9E42
9E3D  CA                 .       DEX
9E3E  E0 08              ..      CPX #&08
9E40  90 03              ..      BCC &9E45
.
9E42  4C C7 9C           L..     JMP &9CC7
.
9E45  8A                 .       TXA
9E46  A0 00              ..      LDY #&00
9E48  48                 H       PHA
9E49  C9 04              ..      CMP #&04
9E4B  90 03              ..      BCC &9E50
9E4D  4C 82 9F           L..     JMP &9F82
.
9E50  B1 BB              ..      LDA (&BB),Y
9E52  48                 H       PHA
9E53  20 F2 B4            ..     JSR &B4F2
9E56  68                 h       PLA
9E57  A8                 .       TAY
9E58  20 99 B7            ..     JSR &B799
9E5B  BD 30 10           .0.     LDA &1030,X
9E5E  8D 05 0F           ...     STA &0F05
9E61  A9 00              ..      LDA #&00
9E63  8D 06 0F           ...     STA &0F06
9E66  BD 00 10           ...     LDA &1000,X
9E69  8D 07 0F           ...     STA &0F07
9E6C  BD 10 10           ...     LDA &1010,X
9E6F  8D 08 0F           ...     STA &0F08
9E72  BD 20 10           . .     LDA &1020,X
9E75  8D 09 0F           ...     STA &0F09
9E78  A0 0D              ..      LDY #&0D
9E7A  A2 05              ..      LDX #&05
9E7C  20 AD 94            ..     JSR &94AD
9E7F  68                 h       PLA
9E80  20 DD 9E            ..     JSR &9EDD
9E83  08                 .       PHP
9E84  A0 00              ..      LDY #&00
9E86  B1 BB              ..      LDA (&BB),Y
9E88  B0 05              ..      BCS &9E8F
9E8A  20 CC 92            ..     JSR &92CC
9E8D  10 03              ..      BPL &9E92
.
9E8F  20 B5 92            ..     JSR &92B5
.
9E92  8C 06 0F           ...     STY &0F06
9E95  20 D6 9E            ..     JSR &9ED6
9E98  8D 05 0F           ...     STA &0F05
9E9B  A0 0C              ..      LDY #&0C
9E9D  A2 02              ..      LDX #&02
9E9F  20 AD 94            ..     JSR &94AD
9EA2  20 D2 9E            ..     JSR &9ED2
9EA5  A0 09              ..      LDY #&09
9EA7  AD 05 0F           ...     LDA &0F05
9EAA  9D 00 10           ...     STA &1000,X
9EAD  91 BB              ..      STA (&BB),Y
9EAF  C8                 .       INY
9EB0  AD 06 0F           ...     LDA &0F06
9EB3  9D 10 10           ...     STA &1010,X
9EB6  91 BB              ..      STA (&BB),Y
9EB8  C8                 .       INY
9EB9  AD 07 0F           ...     LDA &0F07
9EBC  9D 20 10           . .     STA &1020,X
9EBF  91 BB              ..      STA (&BB),Y
9EC1  A9 00              ..      LDA #&00
9EC3  C8                 .       INY
9EC4  91 BB              ..      STA (&BB),Y
9EC6  28                 (       PLP
9EC7  90 04              ..      BCC &9ECD
9EC9  A5 BD              ..      LDA &BD
9ECB  C9 03              ..      CMP #&03
.
9ECD  A9 00              ..      LDA #&00
9ECF  4C C9 9C           L..     JMP &9CC9
.
9ED2  A0 00              ..      LDY #&00
9ED4  B1 BB              ..      LDA (&BB),Y
.
9ED6  20 AD B4            ..     JSR &B4AD
9ED9  BD 30 10           .0.     LDA &1030,X
9EDC  60                 `       RTS
.
9EDD  48                 H       PHA
9EDE  20 D2 9E            ..     JSR &9ED2
9EE1  8D 05 0F           ...     STA &0F05
9EE4  A0 0B              ..      LDY #&0B
9EE6  A2 06              ..      LDX #&06
.
9EE8  B1 BB              ..      LDA (&BB),Y
9EEA  9D 06 0F           ...     STA &0F06,X
9EED  88                 .       DEY
9EEE  C0 08              ..      CPY #&08
9EF0  D0 01              ..      BNE &9EF3
9EF2  88                 .       DEY
.
9EF3  CA                 .       DEX
9EF4  D0 F2              ..      BNE &9EE8
9EF6  68                 h       PLA
9EF7  4A                 J       LSR A
9EF8  48                 H       PHA
9EF9  90 01              ..      BCC &9EFC
9EFB  E8                 .       INX
.
9EFC  8E 06 0F           ...     STX &0F06
9EFF  A0 0B              ..      LDY #&0B
9F01  A2 91              ..      LDX #&91
9F03  68                 h       PLA
9F04  48                 H       PHA
9F05  F0 03              ..      BEQ &9F0A
9F07  A2 92              ..      LDX #&92
9F09  88                 .       DEY
.
9F0A  8E 02 0F           ...     STX &0F02
9F0D  86 B8              ..      STX &B8
9F0F  A2 08              ..      LDX #&08
9F11  AD 05 0F           ...     LDA &0F05
9F14  20 97 94            ..     JSR &9497
9F17  A2 00              ..      LDX #&00
9F19  A1 BB              ..      LDA (&BB,X)
9F1B  AA                 .       TAX
9F1C  BD 40 10           .@.     LDA &1040,X
9F1F  49 01              I.      EOR #&01
9F21  9D 40 10           .@.     STA &1040,X
9F24  18                 .       CLC
9F25  A2 04              ..      LDX #&04
.
9F27  B1 BB              ..      LDA (&BB),Y
9F29  99 AF 00           ...     STA &00AF,Y
9F2C  99 C7 00           ...     STA &00C7,Y
9F2F  20 7F 9A            ..     JSR &9A7F
9F32  71 BB              q.      ADC (&BB),Y
9F34  99 AF 00           ...     STA &00AF,Y
9F37  20 92 9A            ..     JSR &9A92
9F3A  CA                 .       DEX
9F3B  D0 EA              ..      BNE &9F27
9F3D  E8                 .       INX
.
9F3E  BD 03 0F           ...     LDA &0F03,X
9F41  9D 06 0F           ...     STA &0F06,X
9F44  CA                 .       DEX
9F45  10 F7              ..      BPL &9F3E
9F47  68                 h       PLA
9F48  D0 08              ..      BNE &9F52
9F4A  AD 02 0F           ...     LDA &0F02
9F4D  20 9A 9A            ..     JSR &9A9A
9F50  B0 03              ..      BCS &9F55
.
9F52  20 98 99            ..     JSR &9998
.
9F55  20 67 9F            g.     JSR &9F67
9F58  86 B2              ..      STX &B2
9F5A  20 0F 9E            ..     JSR &9E0F
9F5D  C6 B2              ..      DEC &B2
9F5F  38                 8       SEC
9F60  20 17 9E            ..     JSR &9E17
9F63  0E 05 0F           ...     ASL &0F05
9F66  60                 `       RTS
.
9F67  08                 .       PHP
9F68  20 F0 94            ..     JSR &94F0
9F6B  28                 (       PLP
9F6C  60                 `       RTS
.
9F6D  A0 15              ..      LDY #&15
9F6F  20 AD 94            ..     JSR &94AD
9F72  AD 05 0E           ...     LDA &0E05
9F75  8D 16 0F           ...     STA &0F16
9F78  86 B0              ..      STX &B0
9F7A  86 B1              ..      STX &B1
9F7C  A9 12              ..      LDA #&12
9F7E  85 B2              ..      STA &B2
9F80  D0 4E              .N      BNE &9FD0
.
9F82  A0 04              ..      LDY #&04
9F84  AD 63 0D           .c.     LDA &0D63
9F87  F0 07              ..      BEQ &9F90
9F89  D1 BB              ..      CMP (&BB),Y
9F8B  D0 03              ..      BNE &9F90
9F8D  88                 .       DEY
9F8E  F1 BB              ..      SBC (&BB),Y
.
9F90  85 A9              ..      STA &A9
.
9F92  B1 BB              ..      LDA (&BB),Y
9F94  99 BD 00           ...     STA &00BD,Y
9F97  88                 .       DEY
9F98  D0 F8              ..      BNE &9F92
9F9A  68                 h       PLA
9F9B  29 03              ).      AND #&03
9F9D  F0 CE              ..      BEQ &9F6D
9F9F  4A                 J       LSR A
9FA0  F0 02              ..      BEQ &9FA4
9FA2  B0 6B              .k      BCS &A00F
.
9FA4  A8                 .       TAY
9FA5  B9 03 0E           ...     LDA &0E03,Y
9FA8  8D 03 0F           ...     STA &0F03
9FAB  AD 04 0E           ...     LDA &0E04
9FAE  8D 04 0F           ...     STA &0F04
9FB1  AD 02 0E           ...     LDA &0E02
9FB4  8D 02 0F           ...     STA &0F02
9FB7  A2 12              ..      LDX #&12
9FB9  8E 01 0F           ...     STX &0F01
9FBC  A9 0D              ..      LDA #&0D
9FBE  8D 06 0F           ...     STA &0F06
9FC1  85 B2              ..      STA &B2
9FC3  4A                 J       LSR A
9FC4  8D 05 0F           ...     STA &0F05
9FC7  18                 .       CLC
9FC8  20 DA 94            ..     JSR &94DA
9FCB  86 B1              ..      STX &B1
9FCD  E8                 .       INX
9FCE  86 B0              ..      STX &B0
.
9FD0  A5 A9              ..      LDA &A9
9FD2  D0 11              ..      BNE &9FE5
9FD4  A6 B0              ..      LDX &B0
9FD6  A4 B1              ..      LDY &B1
.
9FD8  BD 05 0F           ...     LDA &0F05,X
9FDB  91 BE              ..      STA (&BE),Y
9FDD  E8                 .       INX
9FDE  C8                 .       INY
9FDF  C6 B2              ..      DEC &B2
9FE1  D0 F5              ..      BNE &9FD8
9FE3  F0 27              .'      BEQ &A00C
.
9FE5  20 73 A0            s.     JSR &A073
9FE8  A9 01              ..      LDA #&01
9FEA  A6 BB              ..      LDX &BB
9FEC  A4 BC              ..      LDY &BC
9FEE  E8                 .       INX
9FEF  D0 01              ..      BNE &9FF2
9FF1  C8                 .       INY
.
9FF2  20 06 04            ..     JSR &0406
9FF5  A6 B0              ..      LDX &B0
9FF7  BD 05 0F           ...     LDA &0F05,X
9FFA  8D E5 FE           ...     STA &FEE5
9FFD  E8                 .       INX
9FFE  A0 06              ..      LDY #&06
