ORG $0000
 FCC /COPYRIGHT (C) 1982:/
 FCC /PHILIPS T.M.C./
;
; Port A bit Equates
;
PA0BIT EQU 0
PA1BIT EQU 1
PA2BIT EQU 2
PA3BIT EQU 3
PLLOLK EQU 4 ; Synthesiser Out of Lock
RSTBIT EQU 5 ; Reset input
PTTBIT EQU 6 ; PTT input
CRADLE EQU 7 ; Cradle switch
;
; Port B bit equates
;
SERDAT EQU 0
SERCLK EQU 1
L3CLK EQU 2
L2CLK EQU 3
L1CLK EQU 4
PCBIT EQU 5 ; Synthesiser Clock ???
PEBIT EQU 6 ; Synthesiser Enable
EXPBIT EQU 7 ; NSC810 Expander enable
;
; Latch 1 data
;
EVC0 EQU 0 ; Electronic Volume control
EVC1 EQU 1
EVC2 EQU 2
EVC3 EQU 3
PWRMED EQU 4 ; Medium Power control
PWRLOW EQU 5 ; Low power Control
;
; Latch 2 Data
;
TXENAB EQU 0 ; TX Enable
VCOOFF EQU 1 ; VCO Offset Control
RXENAB EQU 2 ; RX AF enable
MICINH EQU 3 ; Microphone Inhibit
ALTONE EQU 4 ; Alarm Tone
SPENAB EQU 5 ; Speacker enable
;
; Latch 3 Data
;
ADCA0 EQU 0 ; ADC select
ADCA1 EQU 1
ADCA2 EQU 2
ADCST EQU 3 ; ADC Start
ECONO EQU 4 ; Economizer
RELAY EQU 5 ; Relay output
;
; Internal 6805E2 I/O Ports
;
PADATA EQU $0000
PBDATA EQU $0001
Z0002 EQU $0002
PADIR EQU $0004
PBDIR EQU $0005
TMDATA EQU $0008
TMCTRL EQU $0009
;
; Internal RAM
;
 ORG $0010
Z0010 EQU $0010
Z0011 EQU $0011
Z0012 EQU $0012
Z0013 EQU $0013
Z0014 EQU $0014
Z0015 EQU $0015
Z0016 EQU $0016
Z0017 EQU $0017
Z0018 EQU $0018
Z0019 EQU $0019
Z001A EQU $001A
Z001B EQU $001B
Z001C EQU $001C
Z001D EQU $001D
Z001E EQU $001E
Z001F EQU $001F
Z0020 EQU $0020
;
; Self modifying code to do
; 16 bit indexed look up
;
Z0021 EQU $0021 ; Self modifying code - LDA $0100,X
Z0022 EQU $0022
Z0023 EQU $0023
Z0024 EQU $0024 ; Self Modifying code - RTS
;
Z0025 EQU $0025 ; Channel index count
Z0026 EQU $0026
Z0027 EQU $0027
Z0028 EQU $0028 
L2DATA EQU $0029 ; Latch 2 Data
L3DATA EQU $002A ; Latch 3 Data
Z002B EQU $002B
L1DATA EQU $002C ; Latch 1 - Inverted
Z002D EQU $002D
Z002E EQU $002E
Z002F EQU $002F
Z0030 EQU $0030
Z0031 EQU $0031
Z0032 EQU $0032
Z0033 EQU $0033
Z0034 EQU $0034
Z0035 EQU $0035
Z0036 EQU $0036
Z0037 EQU $0037
Z0038 EQU $0038
Z0039 EQU $0039
Z003A EQU $003A
Z003B EQU $003B
Z003C EQU $003C
Z003D EQU $003D
Z0040 EQU $0040
Z0041 EQU $0041
Z0042 EQU $0042
Z0043 EQU $0043
ADCPTR EQU $0044 ; ADC Slot pointer
ADCMND EQU $0045 ; ADC Chan 1 - Mute Noise Detect
ADCRXS EQU $0046 ; ADC Chan 2 - RX Signal Level
ADCPLL EQU $0047 ; ADC Chan 3 - PLL Voltage
ADC10V EQU $0048 ; ADC Chan 4 - +10V
ADCMAD EQU $0049 ; ADC Chan 5 - Mute Adjust
ADCRFP EQU $004A ; ADC Chan 6 - RF Power
Z004B EQU $004B
Z004C EQU $004C
Z004D EQU $004D
Z004E EQU $004E
;
; top 4 bits = scan group
;
Z004F EQU $004F
;
Z0050 EQU $0050
Z0051 EQU $0051
Z0052 EQU $0052
ADDRHI EQU $0053 ; Address for something
ADDRLO EQU $0054
Z0055 EQU $0055
Z0056 EQU $0056
;
; Timers
;
Z0057 EQU $0057
Z0058 EQU $0058
Z0059 EQU $0059
Z005A EQU $005A
Z005B EQU $005B
Z005C EQU $005C
Z005D EQU $005D
Z005E EQU $005E
Z005F EQU $005F
Z0060 EQU $0060
Z0061 EQU $0061
;
;
;
Z0062 EQU $0062
Z0063 EQU $0063
Z0064 EQU $0064
Z0065 EQU $0065
Z0066 EQU $0066
Z0067 EQU $0067
Z0068 EQU $0068
;
; NSC810 I/O Expander is mapped here
;
 ORG $0080
Z0080 EQU $0080
Z0081 EQU $0081
Z0082 EQU $0082
Z0084 EQU $0084
Z0085 EQU $0085
Z0086 EQU $0086
;
 ORG $00A0
Z00A0 EQU $00A0
Z00A1 EQU $00A1
Z00A2 EQU $00A2
Z00A3 EQU $00A3
Z00A4 EQU $00A4
Z00BE EQU $00BE
Z00BF EQU $00BF
Z00C0 EQU $00C0
Z00C1 EQU $00C1
Z00C2 EQU $00C2
Z00C3 EQU $00C3
Z00C7 EQU $00C7
Z00C8 EQU $00C8
Z00C9 EQU $00C9
Z00CE EQU $00CE
Z00CF EQU $00CF
Z00D3 EQU $00D3
Z00D4 EQU $00D4
Z00D5 EQU $00D5
Z00D9 EQU $00D9
Z00DB EQU $00DB
Z00DE EQU $00DE
Z00DF EQU $00DF
Z00E0 EQU $00E0
Z00E1 EQU $00E1
Z00E7 EQU $00E7
Z00E8 EQU $00E8
Z00E9 EQU $00E9
Z00EA EQU $00EA
Z00EB EQU $00EB
Z00EC EQU $00EC
;---------------------------------------------
;
; Start of Program Code
;
;---------------------------------------------
;
; Enter here on reset
;
 ORG $0100
RSTVEC SEI 
 RSP 
 JSR Z01CA
 JSR Z01C1
 JSR Z01D3
 LDA #$19
 BSR Z0152
 BSR Z013E
 CLR Z003B
 CLR Z003C
 BCLR 1,Z001A
 LDA Z0020
 BCLR RSTBIT,PADIR ; Set PA5 as input
 BRSET RSTBIT,PADATA,Z0128 ; Test for reset
 CMP #$11
 BEQ Z0189
 CMP #$99
 BNE Z015C
 BRA Z0136
Z0128 CMP #$99
 BEQ Z0189
 CMP #$11
 BNE Z015C
 LDA #$99
 STA Z0020
 BSET 5,L3DATA
Z0136 BSET RSTBIT,PADIR ; Set PA5 as Output
 JSR Z1574
 JMP Z01FE
;
;
;
Z013E LDA Z002B
 CMP Z1F2E
 BNE Z015C
;
;
;
 LDX #$05
Z0147 LDA Z002E,X
 CMP Z1F32,X
 BNE Z015C
 DECX 
 BNE Z0147
 RTS 
;
;
;
Z0152 LDX #$A3
Z0154 DECX 
 BNE Z0154
 DECA 
 BNE Z0152
 NOP 
 RTS 
;
;
;
Z015C JSR Z0D2C
 JSR Z03C3
 CLR Z00A2
 LDX #$04
 CLR Z00DE
 CLR Z00DF
 BCLR 7,Z00A0
Z016C LDA Z1F2D,X
 STA L3DATA,X
 DECX 
 BNE Z016C
 LDA Z1F32
 STA Z0068
 LDA Z002E
 STA Z0050
 STA Z0052
 LDX #$05
Z0181 LDA Z1F32,X
 STA Z002E,X
 DECX 
Z0188 EQU *+1
 BNE Z0181
Z0189 BCLR 6,L2DATA
 JSR Z07ED
 BSR Z0191
 STOP 
Z0191 LDA #$11
 STA Z0020
 BRCLR 6,Z0011,Z019C
 LDA Z0050
 STA Z002E
Z019C BSR Z01C1
 BSET 6,TMCTRL
 LDA #$07
 STA L3DATA
 JSR Z03D2
 LDA #$21
 BSR Z01D5
;
 CLR PADATA
 BSET L1CLK,PBDATA
 BCLR L1CLK,PBDATA
 BCLR PLLOLK,PADIR ; PA4 = Input 
 BCLR RSTBIT,PADIR ; PA5 = input
 CLR PBDATA
 JSR Z158C
 CLR Z0080
 CLR Z0081
 CLR Z0082
 RTS 
;
;
;
Z01C1 LDA #$3F
 STA PADIR
 LDA #$FE
 STA PBDIR
 RTS 
;
;
;
Z01CA LDA #$00
Z01CC STA PADATA
 LDA #$22
 STA PBDATA
 RTS 
;
;
;
Z01D3 LDA #$2D
Z01D5 STA PADATA
 BSET L2CLK,PBDATA
 BCLR L2CLK,PBDATA
 RTS 
;
;
;
Z01DC LDA #$DB ; Opcode LDA $0100,X
 STA Z0021
 LDA #$01 
 STA Z0022
 LDX #$00
 CLR Z0023
 LDA #$81 ; Opcode RTS
 STA Z0024
 CLRA 
Z01ED JSR Z0021
 INCX 
 BNE Z01ED
 INC Z0022
 BRCLR 5,Z0022,Z01ED
 INCA 
 BNE Z01FB
 RTS 
;
;
;
Z01FB JMP RSTVEC
Z01FE JSR Z13DE
 BRSET 0,Z001F,Z0207
 BRSET 6,Z0011,Z0207
Z0207 ROR Z0022
 BRCLR 0,Z0032,Z0218
 BRCLR 4,Z001B,Z0210
 SEC 
Z0210 ROR Z00BF
 BRCLR 4,Z00A2,Z0216
 SEC 
Z0216 ROR Z00BF
Z0218 JSR Z03C3
 LDX #$A0
 LDA #$A4
 JSR Z03C7
 BRCLR 7,Z0022,Z0227
 BSET 0,Z001F
Z0227 BRCLR 0,Z0032,Z0234
 BRCLR 7,Z00BF,Z0234
 BSET 4,Z00A2
 BRCLR 6,Z00BF,Z0234
 BSET 4,Z001B
Z0234 CLR Z0036
 CLR Z0028
 LDA #$09
 STA Z0062
 LDA #$FF
 STA TMDATA
 LDA #$0F
 STA TMCTRL
 LDA #$40
 STA Z005E
 BSET 2,Z0011
 LDA L3DATA
 AND #$20
 ORA #$07
 STA L3DATA
 JSR Z03D2
 BCLR 7,L2DATA
 JSR Z158C
 JSR Z01DC
 LDA Z1FA9
 BRSET 7,Z0081,Z0267
 BSET 7,Z0014
 LDA #$FF
Z0267 STA Z00C8
 CLI 
Z026A LDA Z0028
 CMP #$19
 BCS Z026A
 CLR Z0010
 LDA #$AA
 JSR Z0BE5
 JSR Z06EA
 BRCLR 5,Z001B,Z027F
 BSET 3,Z0016
Z027F LDA #$02
 STA Z0061
 BSET 7,Z0016
 BRCLR 4,Z00A2,Z0290
 LDA #$A7
 JSR Z0BE5
 BRCLR 4,Z001B,Z0290
Z0290 BRCLR 6,Z0013,Z0295
 BSET 7,Z0018
Z0295 JSR Z0D36
 JSR Z1530
 BRCLR 6,Z0013,Z02A2
 LDA Z0002
 STA Z002D
Z02A2 BRCLR 0,Z001A,Z02A8
 JSR Z0574
Z02A8 JSR Z0475
 BRCLR 3,Z001C,Z02B1
 JSR Z03DF
Z02B1 BRCLR 2,Z001C,Z02BA
 BRCLR 7,Z0055,Z02BA
 JSR Z0726
Z02BA BRCLR 1,Z001C,Z02C3
 BRCLR 7,Z0055,Z02C3
 JSR Z071A
Z02C3 JSR Z0429
 BRCLR 2,Z0011,Z02CC
 JSR Z0508
Z02CC BRCLR 7,Z005E,Z02D2
 JSR Z051C
Z02D2 BRCLR 3,Z0011,Z02D8
 JSR Z0526
Z02D8 BRCLR 5,Z001C,Z02DE
 JSR Z0534
Z02DE BRCLR 6,Z001C,Z02E4
 JSR Z0559
Z02E4 BRCLR 1,Z0012,Z02F1
 BRSET 4,Z00A2,Z02F1
 BCLR 1,Z0012
 LDA #$A6
 JSR Z0BE5
Z02F1 BRCLR 2,Z0012,Z02FE
 BRSET 4,Z00A2,Z02FE
 BCLR 2,Z0012
 LDA #$A4
 JSR Z0BE5
Z02FE BRSET 6,PADATA,Z0309
 BRSET 0,Z0015,Z030F
 JSR Z061A
 BRA Z030F
Z0309 BRCLR 0,Z0015,Z030F
 JSR Z0653
Z030F BRCLR 7,PADATA,Z0319
 BRCLR 0,Z0014,Z0319
 BSET 4,Z0011
 BRA Z031B
Z0319 BCLR 4,Z0011
Z031B LDA Z0017
 BEQ Z0323
 BSET MICINH,L2DATA
 BRA Z0325
Z0323 BCLR MICINH,L2DATA
Z0325 BRSET 6,Z0012,Z032B
 JSR Z0567
Z032B BRCLR 6,Z0012,Z0339
 LDA Z0010
 BNE Z0339
 BCLR 6,Z0012
 LDA #$C0
 JSR Z0BE5
Z0339 BRCLR 5,Z0011,Z033F
 JSR Z066C
Z033F BRCLR 0,Z0011,Z0345
 JSR Z0468
Z0345 BRCLR 4,Z0014,Z034F
 BRCLR 7,Z005C,Z034F
 BCLR 4,Z0014
 BCLR 1,Z0014
Z034F BRCLR 1,Z0015,Z0358
 BRCLR 7,Z005B,Z0358
 JSR Z064F
Z0358 BRCLR 0,Z0014,Z0361
 BRCLR 7,Z005A,Z0361
 JSR Z060D
Z0361 BRCLR 3,Z002F,Z0367
 JSR Z0542
Z0367 BRCLR 7,Z0061,Z036C
 BCLR 7,Z0016
Z036C JMP Z0D58
;
; Timer Interrupt entry point
;
TIMVEC LDA #$09 ; reset prescaler, prescale div by 2
 LDX #$C5 ; 5.0MHz divide by 197 x 2 = 
 STX TMDATA
 STA TMCTRL
 BSET PCBIT,PBDATA
 INC Z0028
 BRCLR 0,Z0028,Z03BE
 BCLR SERCLK,PBDATA
 LDA Z0028
 AND #$1E
 STA Z0027
 LSRA 
 ADD Z0027
 TAX 
 JMP Z038D,X
Z038D JMP Z03BD
 JMP Z09D0
 JMP Z03BD
 JMP Z09DA
 JMP Z03BD
 JMP Z09FB
 JMP Z09AB
 JMP Z03BD
 JMP Z0AE9
 JMP Z0B40
 JMP OUTL1
 JMP Z09DA
 JMP Z03BD
 JMP Z09FB
 JMP Z03BD
 JMP Z03BD
Z03BD RTI 
;
; Control Head serial clock
;
Z03BE BSET SERCLK,PBDATA
 JMP Z08D8
;
;
;
Z03C3 LDX #$10
 LDA #$20
Z03C7 STA Z0021
Z03C9 CPX Z0021
 BEQ Z03D1
 CLR ,X
 INCX 
 BRA Z03C9
Z03D1 RTS 
Z03D2 LDX PADATA
 LDA L3DATA
 STA PADATA
 BSET L3CLK,PBDATA
 BCLR L3CLK,PBDATA
 STX PADATA
 RTS 
Z03DF BRCLR 7,Z0063,Z0428
 BCLR 3,Z001C
 JSR Z0C09
 BRCLR 4,Z0013,Z03EE
 BCLR 4,Z0013
 BRA Z0420
Z03EE BRSET 5,Z0014,Z041E
 BRCLR 6,Z0011,Z040F
 BRSET 3,Z001F,Z0405
 BSET 1,Z001D
 BSET 1,Z001E
 LDA Z004F
 ORA #$0F
 JSR Z0C24
 BCLR 3,Z001C
 RTS 
Z0405 BSET 1,Z001D
 BSET 1,Z001E
 JSR Z0C14
 BCLR 3,Z001C
 RTS 
Z040F BSET 1,Z001D
 BCLR 1,Z001E
 BRCLR 7,Z00A0,Z041B
 JSR Z14B7
 BRA Z041E
Z041B JSR Z0C14
Z041E BCLR 5,Z0014
Z0420 BRCLR 6,Z0012,Z0428
 LDA #$C1
 JSR Z0BE5
Z0428 RTS 
Z0429 LDX Z0015
 BEQ Z045A
 BRCLR 0,Z0011,Z044A
 BRSET 4,Z0014,Z0467
 BRCLR 1,Z0014,Z0443
 BRSET TXENAB,L2DATA,Z0467
 BSET TXENAB,L2DATA
 BSET 1,Z0013
Z043D BRSET 1,Z0013,Z043D
 CLR ADCRFP ; ADC RF Power
 RTS 
Z0443 JSR Z06A5
 BCC Z0467
 BRA Z045D
Z044A TXA 
 AND #$03
 BEQ Z0452
 JMP Z061F
Z0452 JSR Z06A5
 BCS Z0467
 JMP Z06BC
Z045A BRCLR 0,Z0011,Z0467
Z045D JSR Z06EA
 BCLR 1,Z0014
 BRCLR 6,Z0013,Z0467
 BSET 7,Z0018
Z0467 RTS 
Z0468 BRCLR TXENAB,L2DATA,Z0474
 LDA ADCRFP ; ADC RF Power
 CMP #$15
 BCS Z0474
 JMP Z0189
Z0474 RTS 
Z0475 BRCLR 0,Z001B,Z047C
 BCLR 5,Z0013
 BRA Z0488
Z047C BRCLR 1,Z001B,Z0495
 BRSET 5,Z0013,Z048B
 LDA #$02
 STA Z0059
 BSET 5,Z0013
Z0488 BSET 7,L2DATA
 RTS 
Z048B BRCLR 7,Z0059,Z0488
 BCLR 7,L2DATA
 BCLR 1,Z001B
 BCLR 5,Z0013
 RTS 
Z0495 BRSET 2,Z001B,Z04D8
 BRCLR 3,Z001B,Z04BA
 BRSET 7,Z001B,Z04A6
 LDA #$37
 STA Z005D
 BSET 7,Z001B
 BRA Z04D8
Z04A6 BRCLR 7,Z005D,Z04D8
Z04A9 BCLR 7,L2DATA
 BCLR 6,Z001B
 LDA Z0036
 AND #$0F
 STA Z0036
 BCLR 5,Z0013
 BCLR 7,Z001B
 BCLR 3,Z001B
 RTS 
Z04BA BRCLR 4,Z001B,Z04A9
 BRCLR 6,Z001B,Z04D8
 BCLR 7,L2DATA
 BRSET 5,Z0013,Z04CC
 LDA #$12
 STA Z0059
 BSET 5,Z0013
 RTS 
Z04CC BRCLR 7,Z0059,Z04D7
 BCLR 5,Z0013
Z04D1 LDA Z001B
 EOR #$40
 STA Z001B
Z04D7 RTS 
Z04D8 BRSET 5,Z0013,Z04E8
 LDA #$01
 STA Z0059
 BSET 5,Z0013
Z04E1 LDA L2DATA
 EOR #$80
 STA L2DATA
 RTS 
Z04E8 BRCLR 7,Z0059,Z04D7
 LDA #$01
 STA Z0059
 BSR Z04E1
 BRCLR 4,Z001B,Z04D7
 LDA Z0036
 ADD #$10
 STA Z0036
 CMP #$70
 BCS Z04D7
 BCLR 5,Z0013
 LDA Z0036
 AND #$0F
 STA Z0036
 BRA Z04D1
Z0508 LDA #$E7
 JSR Z0BE5
 CLRX 
Z050E LDA Z1F10,X
 JSR Z0BE5
 INCX 
 CPX #$03
 BNE Z050E
 BCLR 2,Z0011
 RTS 
Z051C JSR Z1409
 LDA #$13
 STA Z005E
 BSET 3,Z0011
 RTS 
Z0526 BRSET 5,Z001C,Z0533
 LDA #$E4
 JSR Z0BE5
 JSR Z0C73
 BCLR 3,Z0011
Z0533 RTS 
Z0534 BRCLR 7,Z005F,Z053E
 BRSET 3,Z0014,Z053F
 BSET 3,Z0014
 BCLR 5,Z001C
Z053E RTS 
Z053F JMP Z0189
Z0542 BRCLR 0,Z0011,Z0558
 BRSET 6,Z001C,Z0558
 LDA Z0015
 BIT #$03
 BEQ Z0558
 BRSET 7,Z001C,Z0558
 LDA Z1F38
 STA Z0067
 BSET 6,Z001C
Z0558 RTS 
Z0559 LDA Z0067
 BNE Z0566
 BCLR 6,Z001C
 JSR Z1360
 BSET 2,Z0016
 BSET 0,Z001B
Z0566 RTS 
Z0567 LDA Z0010
 BMI Z056C
 RTS 
Z056C BSET 6,Z0012
 LDA #$C1
 JSR Z0BE5
 RTS 
Z0574 LDA Z0038
 BCLR 0,Z001A
 BRSET 2,Z001A,Z059B
 BRSET 3,Z001A,Z059B
 CMP #$30
 BCS Z0599
 CMP #$3F
 BLS Z05B1
 SUB #$44
 BMI Z0599
 STA Z0021
 LSLA 
 ADD Z0021
 TAX 
 CPX #$15
 BHI Z0599
 BCLR 0,Z0010
 JMP Z059C,X
Z0599 BSET 0,Z0010
Z059B RTS 
Z059C JMP Z0610
 JMP Z064F
 JMP Z0606
 JMP Z060D
 JMP Z05D5
 JMP Z0667
 JMP Z157E
Z05B1 CLRX 
Z05B2 CMP Z05BF,X
 BEQ Z05C3
 INCX 
 CPX #$04
 BNE Z05B2
Z05BC BSET 3,Z001B
 RTS 
Z05BF FCC "1247"
Z05C3 LDA Z1F58,X
 STA Z0021
 LSLA 
 ADD Z0021
 TAX 
Z05CC CPX #$1B
 BCC Z05BC
 BCLR 0,Z0010
 JMP Z05D6,X
Z05D5 RTS 
Z05D6 JMP Z05D5
 JMP Z072D
 JMP Z0770
 JMP Z073B
 JMP Z079D
 JMP Z100C
 JMP Z05F1
 JMP Z141C
 JMP Z147B
Z05F1 BRSET 2,Z0019,Z05FE
 BRCLR 4,Z0033,Z0603
 BRSET 5,Z001B,Z0603
 BSET 2,Z0019
 BRA Z0600
Z05FE BCLR 2,Z0019
Z0600 BSET 1,Z001B
 RTS 
Z0603 JMP Z07EA
Z0606 BSET 0,Z0014
 LDA #$38
 STA Z005A
 RTS 
Z060D BCLR 0,Z0014
 RTS 
Z0610 BSET 1,Z0015
 LDA #$38
 STA Z005B
 BRA Z061C
 BRA Z061C
Z061A BSET 0,Z0015
Z061C BCLR 2,Z0017
 RTS 
Z061F BRCLR 4,Z00A2,Z062F
 BCLR 4,Z001B
 BCLR 4,Z00A2
 BSET 2,Z0012
 BRCLR 4,Z0019,Z062F
 BSET 1,Z0012
 BCLR 2,Z0012
Z062F BRCLR 2,Z002F,Z0635
 BRSET 4,Z0019,Z064C
Z0635 BRSET 7,Z001C,Z064C
 BSR Z06A5
 BCS Z064C
 JSR Z06BC
 BCS Z064C
 JSR Z1368
 LDA Z0017
 BNE Z064C
 JMP Z03EE
 RTS 
Z064C BSET 0,Z001B
 RTS 
Z064F BCLR 1,Z0015
 BRA Z0655
Z0653 BCLR 0,Z0015
Z0655 JSR Z1360
 BSET 2,Z0017
 BCLR 6,Z001C
 BCLR 0,Z001B
 BCLR 2,Z0016
 JSR Z1574
 RTS 
 JMP Z1574
Z0667 BCLR 5,Z001C
 BCLR 3,Z0014
 RTS 
Z066C BRSET 0,Z0011,Z0683
 BRSET 2,Z001C,Z06A4
 BRSET 6,L3DATA,Z06A4
 BRSET 6,Z0011,Z06A4
 BRCLR 6,Z0013,Z067E
 BRSET 5,Z0016,Z06A4
Z067E JSR Z07ED
 BRA Z0694
Z0683 BRSET 1,Z001C,Z069D
 BRSET 0,Z002F,Z06A4
 LDA #$11
 STA Z0055
 BSET 1,Z001C
 LDA Z002E
 JSR Z0842
Z0694 LDA Z002D
 BMI Z069D
 ADD #$08
 STA Z002D
 RTS 
Z069D BSET 4,Z0010
 BRCLR 0,Z0011,Z06A4
 BSET 1,Z0014
Z06A4 RTS 
Z06A5 BRSET 6,Z0010,Z06B8
 LDA Z0016
 AND #$F0
 BNE Z06B8
 LDA Z0015
 AND #$F0
 BNE Z06BA
 LDA Z0016
 BEQ Z06BA
Z06B8 SEC 
 RTS 
Z06BA CLC 
 RTS 
Z06BC JSR Z1137
 LDA #$11
 STA Z0055
 BSET 1,Z001C
 BCLR 2,Z001C
 JSR Z0BDE
 BCLR 0,Z0012
 BRSET 0,Z002F,Z06DA
 BSET 1,Z0011
 BSR Z06E3
 LDA Z002E
 JSR Z0842
 BCS Z06E0
Z06DA BCLR TXENAB,L2DATA
 BSET 0,Z0011
 CLC 
 RTS 
Z06E0 BCLR 1,Z001C
 RTS 
Z06E3 LDA Z002D
 AND #$07
 STA Z002D
 RTS 
Z06EA BCLR 1,Z001C
 BSET TXENAB,L2DATA
 BSET 1,Z0013
Z06F0 BRSET 1,Z0013,Z06F0
 CLR ADCRFP ; ADC RF Power
 BCLR 4,Z0014
 BSET 2,Z0017
 JSR Z0E0D
 BRSET 2,Z00A1,Z0704
 LDA #$A0
 JSR Z0BE5
Z0704 BCLR 0,Z0011
 BSR Z06E3
 BSET 6,L2DATA
 JSR Z07ED
 BCLR 6,L2DATA
 BCS Z0717
 BRSET 6,Z0018,Z072C
 JMP Z03EE
Z0717 JMP Z07EA
Z071A BCLR 1,Z001C
 BCLR 0,Z001B
 LDA #$A2
 JSR Z0BE5
 JMP Z0E2C
Z0726 BCLR 2,Z001C
 BCLR 1,Z0018
 BCLR 0,Z0018
Z072C RTS 
Z072D BRSET 7,Z00A0,Z07A0
 BRSET 0,Z0011,Z0792
 BRSET 6,Z0011,Z0792
 BSR Z0764
 INCA 
 BRA Z0751
Z073B BRSET 7,Z00A0,Z0773
 BRSET 0,Z0011,Z0792
 BRSET 6,Z0011,Z0792
 BSR Z0764
Z0746 SUB #$0A
 BCC Z0746
 ADD #$0A
 SUB Z002E
 NEGA 
 ADD #$0A
Z0751 CMP Z1F3E
 BLS Z0759
 LDA Z1F3F
Z0759 STA Z002E
 BSR Z0794
 JSR Z07ED
 BCC Z07CF
 BRA Z072D
Z0764 LDA Z002E
 BRCLR 6,Z0013,Z076F
 LDA Z0050
 STA Z002E
 BCLR 6,Z0013
Z076F RTS 
Z0770 BRCLR 7,Z00A0,Z0776
Z0773 JMP Z14A5
Z0776 BRSET 0,Z0011,Z0792
 BRSET 6,Z0011,Z0792
 BSR Z0764
 DECA 
 CMP Z1F3F
 BCC Z0787
 LDA Z1F3E
Z0787 STA Z002E
 BSR Z0794
 JSR Z07ED
 BCS Z0770
 BRA Z07CF
Z0792 BRA Z07EA
Z0794 JSR Z1242
 LDA #$A0
 JSR Z0BE5
 RTS 
Z079D BRCLR 7,Z00A0,Z07A3
Z07A0 JMP Z14A9
Z07A3 BRSET 0,Z0011,Z0792
 BRSET 6,Z0011,Z0792
 BSR Z0764
Z07AB SUB #$0A
 BCC Z07AB
 TAX 
 ADD #$0A
 SUB Z002E
 NEGA 
 STA Z002E
 TXA 
 INCA 
 BPL Z07BD
 ADD #$0A
Z07BD ADD Z002E
 STA Z002E
 CMP Z1F3E
 BHI Z079D
 CMP Z1F3F
 BCS Z079D
 BSR Z07ED
 BCS Z079D
Z07CF BSET 1,Z001B
 BCLR 5,Z0016
 BCLR 7,Z0018
 BRCLR 6,Z0013,Z07E2
 LDA Z002E
 STA Z0050
 STA Z0052
 CLR Z001F
 BSET 7,Z0018
Z07E2 CLR Z0010
 JSR Z06E3
 JMP Z03EE
Z07EA BSET 3,Z001B
 RTS 
Z07ED LDA Z002E
Z07EF BSET 1,Z0018
 BSET 2,Z001C
 LDX #$18
 STX Z0055
 BCLR 1,Z0011
 BSR Z0842
 BCS Z0841
 BRSET 6,L2DATA,Z0809
 JSR Z0021
 STA Z0034
 INCX 
 JSR Z0021
 STA Z0035
Z0809 JSR Z139E
 LDX #$05
 JSR Z0021
 BIT #$08
 BNE Z0818
 BCLR 5,Z0082
 BRA Z081A
Z0818 BSET 5,Z0082
Z081A BRSET 6,L2DATA,Z0840
 JSR Z0D36
 LDX #$05
 JSR Z0021
 AND #$30
 BNE Z082E
 LDA L1DATA
 LSRA 
 LSRA 
 AND #$30
Z082E AND #$10
 STA Z0021
 LDA L1DATA
 AND #$EF
 ADD Z0021
 JSR Z0BDE
 STA L1DATA
 JSR Z1530
Z0840 CLC 
Z0841 RTS 
;
;
;
Z0842 JSR IXCHAN
 LDX #$02
 BRCLR 1,Z0011,Z084C
 LDX #$05
Z084C STX Z0025
 LDA #$D6 ; LDA <addr>,X ???
 STA Z0021
 LDA #$81 ; RTS
 STA Z0024
;
 JSR Z0021 ; get channel byte
 BIT #$80
 BNE Z085E
 SEC 
 RTS 
;
Z085E BRCLR 1,Z0011,Z0866
 BSET 0,Z0018
 JSR Z0AE0
Z0866 BRSET 1,Z0011,Z0882
 BCLR 3,Z0016
 BCLR 5,Z001B
 BIT #$10
 BEQ Z0875
 BSET 5,Z001B
 BCLR 2,Z0019
Z0875 JSR Z1107
 BIT #$08
 BEQ Z0880
 BCLR 5,L1DATA
 BRA Z0882
;
Z0880 BSET 5,L1DATA
Z0882 AND #$40
 BEQ Z088A
 BSET VCOOFF,L2DATA
 BRA Z088C
;
Z088A BCLR VCOOFF,L2DATA
Z088C DECX 
 DECX 
 BSR STBSYN ; Strobe PC
 LDA Z1F2D
 STA PADATA
 BSET PEBIT,PBDATA ; Enable synthesiser
 BSR STBSYN
 BSR STBSYN
Z089B JSR Z0021 ; Load channel byte
 BSR OUTSYN
 LSRA 
 LSRA 
 LSRA 
 LSRA 
 BSR OUTSYN
 INCX 
 CPX Z0025
 BNE Z089B
;
 JSR Z0021 ; Load channel byte
 ORA #$08
 BSR OUTSYN
 LDA Z1F2C
 BSR OUTSYN
 LDA Z1F2D
 BSR OUTSYN
;
 BCLR PEBIT,PBDATA
 LDX #$06
 CLC 
 RTS 
;
; Program Sysnthesiser.
;
OUTSYN STA PADATA ; program synthersiser $08C0
STBSYN BCLR PCBIT,PBDATA ; Strobe sythesiser clock $08C2
 BSET PCBIT,PBDATA
 RTS 
;
; 8 bytes per channel entry
; channel table starts at $1BE0
;
IXCHAN CLRX ; $08C7
 LSLA 
 ROLX 
 LSLA 
 ROLX 
 LSLA 
 ROLX 
 ADD #$E0 ; channel table LSB
 STA Z0023
 TXA 
 ADC #$1B ; channel table MSB
 STA Z0022
 RTS 
;
;
;
Z08D8 LDA Z0017
 BEQ Z08E0
 BSET MICINH,L2DATA
 BRA Z08E2
Z08E0 BCLR MICINH,L2DATA
;
Z08E2 LDA L2DATA
 EOR #$10
 BMI Z08EA
 AND #$EF
;
Z08EA LDX PADATA ; Save data on port A
 STA PADATA
 STA L2DATA
 BSET L2CLK,PBDATA
 BCLR L2CLK,PBDATA
 STX PADATA
;
 BCLR 1,Z0013
 BRSET 4,Z001A,Z0935
 BRSET SERDAT,PBDIR,Z0962
 BRSET SERDAT,PBDATA,Z0914
 BSET 4,Z001A
 BCLR 5,Z001A
 BCLR 6,Z001A
 BCLR 2,Z001A
 BCLR 3,Z001A
 CLR Z003A
 LDA #$80
 STA Z0039
 JMP Z0991
;
;
;
Z0914 BRCLR 1,Z001A,Z0991
 BRSET 7,Z001A,Z0991
 CLR Z0039
 BSET SERDAT,PBDIR ; Serial data = output
 BCLR SERDAT,PBDATA
 LDX Z003C
 LDA Z003D,X
 STA Z0037
 TXA 
 ADD #$01
 AND #$03
 STA Z003C
 CMP Z003B
 BNE Z0991
 BCLR 1,Z001A
 BRA Z0991
;
;
;
Z0935 BRSET 6,Z001A,Z0953
 BRCLR SERDAT,PBDATA,Z093D
 INC Z003A
Z093D ROLA 
 BRSET 5,Z001A,Z094A
 RORA 
 ROR Z0039
 BCC Z0991
 BSET 5,Z001A
 BRA Z0991
Z094A BSET 6,Z001A
 BRCLR 0,Z003A,Z0991
 BSET 2,Z001A
 BRA Z0991
;
;
;
Z0953 BRSET SERDAT,PBDATA,Z0958
 BSET 3,Z001A
Z0958 LDA Z0039
 STA Z0038
 BSET 0,Z001A
 BCLR 4,Z001A
 BRA Z0991
Z0962 LDA Z0039
 BNE Z0968
 STA Z003A
Z0968 ADD #$01
 STA Z0039
 CMP #$0B
 BNE Z0974
 BCLR SERDAT,PBDIR ; Serial data = input
 BRA Z0991
;
Z0974 CMP #$09
 BCC Z0986
 ROR Z0037
 BCS Z0980
Z097C BCLR SERDAT,PBDATA
 BRA Z0991
Z0980 BSET SERDAT,PBDATA
 INC Z003A
 BRA Z0991
Z0986 BEQ Z098C
 BSET SERDAT,PBDATA
 BRA Z0991
Z098C BRCLR 0,Z003A,Z097C
 BSET SERDAT,PBDATA
Z0991 DEC Z0055
 DEC Z0056
 DEC Z00E7
 DEC Z00E8
 BCLR 5,Z0011
 LDA Z001C
 AND #$06
 BNE Z09AA
 BCLR 4,PADIR
 BRCLR PLLOLK,PADATA,Z09A8
 BSET 5,Z0011
Z09A8 BSET 4,PADIR
Z09AA RTI 
Z09AB LDA L3DATA
 AND #$30
 BRSET 5,Z0028,Z09C1
 BRSET 6,Z0028,Z09BB
 ORA #$04
 LDX #ADC10V ; #$48 ADC +10V supply rail
 BRA Z09E2
;
Z09BB ORA #$05
 LDX #ADCMAD ; #$49 ADC Mute Adjust
 BRA Z09E2
;
Z09C1 BRSET 6,Z0028,Z09CA
 ORA #$06
 LDX #ADCRFP ; #$4A ; ADC RF Power
 BRA Z09E2
;
Z09CA ORA #$03
Z09CC LDX #ADCPLL ; #$47 ADC PLL Voltage 
 BRA Z09E2
;
Z09D0 LDA L3DATA
 AND #$30
 ORA #$02
 LDX #$46
 BRA Z09E2
;
;
;
Z09DA LDA L3DATA
 AND #$30
 ORA #$01
 LDX #ADCMND ; LDX #$45 Mute Noise detect
Z09E2 STX ADCPTR
 LDX PADATA
 STA PADATA
 BSET L3CLK,PBDATA
 BCLR L3CLK,PBDATA
 LDA TMDATA
 STA Z0043
 LDA Z0028
 STA Z0042
 BSET 3,PADATA
 BSET L3CLK,PBDATA
 STX PADATA
 RTI 
;
;
;
Z09FB LDA Z002D
 AND #$07
 TAX 
 LSLX 
 LDA ADCMAD ; ADC Mute Adjust
 CMP #$50
 BLS Z0A09
 LDA #$50
Z0A09 CMP Z0A4C,X
 BCS Z0A2A
 CMP Z0A4D,X
 BHI Z0A26
 LSRX 
 BRSET 4,Z0031,Z0A36
 BRSET 6,Z0013,Z0A5C
 LDA Z002D
 STX Z002D
 AND #$F8
 ORA Z002D
 STA Z002D
 BRA Z0A5C
Z0A26 INCX 
 INCX 
 BRA Z0A2C
Z0A2A DECX 
 DECX 
Z0A2C BRSET 4,Z0031,Z0A09
 BRSET 6,Z0013,Z0A09
 BSET 5,Z0018
 BRA Z0A09
Z0A36 BRCLR 4,Z0033,Z0A5C
 BRSET 5,Z001B,Z0A48
 CPX #$02
 BHI Z0A44
 BSET 2,Z0019
 BRA Z0A5C
Z0A44 CPX #$05
 BCS Z0A5C
Z0A48 BCLR 2,Z0019
 BRA Z0A5C
;
;
;
Z0A4C FCB $00
Z0A4D FCB $0B,$09,$15,$13,$1F,$1D,$29,$27
 FCB $33,$31,$3D,$3B,$47,$45,$FF
;
;
;
Z0A5C BRCLR 5,Z0018,Z0A64
 JSR Z0AE0
 BCLR 5,Z0018
Z0A64 BRSET 5,Z0011,Z0AD9
 BRSET 0,Z0018,Z0ADB
 LDA Z002D
 AND #$07
 TAX 
 LDA ADCMND ; Mute Noise Detect
 BRCLR 4,Z0019,Z0A8E
 CMP Z1F1C,X ; Mute Noise Threshold table
 BLS Z0AA5
 CMP Z004B
 BMI Z0A9D
;
 LDA Z004C
 AND #$3F
 TAX 
 LSRX 
 LSRX 
 LSRX 
 LDA Z1F24,X
 STA Z004D
 BSET 5,Z0019
 BRA Z0AA3
;
;
;
Z0A8E CMP Z1F14,X
 BCC Z0AA5
 BSET 4,Z0019
 BCLR 5,Z0019
 BSET 1,Z0012
 BCLR 2,Z0012
 BRA Z0AA5
Z0A9D BCLR 5,Z0019
 BSET 2,Z0012
 BCLR 1,Z0012
Z0AA3 BCLR 4,Z0019
Z0AA5 LDA Z004B
 STA Z004C
 LDA ADCMND
 STA Z004B
 BRCLR 5,Z0019,Z0ABA
 DEC Z004D
 BNE Z0ABA
 BCLR 5,Z0019
 BSET 2,Z0012
 BCLR 1,Z0012
Z0ABA LDA Z0019
 AND #$0F
 BNE Z0ACA
 LDA Z0018
 BNE Z0ADB
 LDA Z0019
 AND #$F0
 BEQ Z0ADB
Z0ACA BRCLR 4,Z002F,Z0AD0
 BRSET 4,Z0011,Z0AD4
Z0AD0 BCLR SPENAB,L2DATA
 BRA Z0AD6
;
Z0AD4 BSET SPENAB,L2DATA
Z0AD6 BCLR RXENAB,L2DATA
 RTI 
Z0AD9 BSR Z0AE0
Z0ADB BSET SPENAB,L2DATA
 BSET RXENAB,L2DATA
 RTI 
Z0AE0 BSET 2,Z0012
 BCLR 1,Z0012
 BCLR 4,Z0019
 BCLR 5,Z0019
 RTS 
Z0AE9 BRSET 5,Z0028,Z0B07
 DEC Z0057
 DEC Z0058
 DEC Z0059
 DEC Z005A
 DEC Z005B
 DEC Z005C
 DEC Z005D
 DEC Z005E
 DEC Z005F
 DEC Z0060
 DEC Z0061
 DEC Z00E9
 DEC Z00EA
Z0B06 RTI 
;
;
;
Z0B07 BRSET 6,Z0028,Z0B2B
 BRSET 7,Z0028,Z0B20
 DEC Z0062
 BNE Z0B06
 LDA #$09
 STA Z0062
 DEC Z0063
 DEC Z0064
 DEC Z0065
 DEC Z00EB
 DEC Z00EC
 RTI 
;
;
;
Z0B20 DEC Z0066
 BNE Z0B2A
 LDA #$5E
 STA Z0066
 DEC Z0067
Z0B2A RTI 
;
;
;
Z0B2B BRCLR 7,Z0028,Z0B2F
 RTI 
Z0B2F JMP Z0D57
;
; Output to Latch 1
;
OUTL1 LDX PADATA
 LDA L1DATA
 COMA 
 STA PADATA
 BSET L1CLK,PBDATA
 BCLR L1CLK,PBDATA
 STX PADATA
 RTI 
;
;
;
Z0B40 BRSET 5,Z0028,Z0B53
 BRSET 6,Z0028,Z0B51
 BSR Z0B80
 JSR Z0C7A
 BCC Z0B73
 BSET 6,Z0010
 BRA Z0B73
Z0B51 BRA Z0B73
Z0B53 BRSET 4,Z0014,Z0B73
 BRSET 6,Z0028,Z0B68
 JSR Z0C95
 BNE Z0B73
 BCC Z0B64
 BSET 7,Z0010
 BRA Z0B73
Z0B64 BCLR 7,Z0010
 BRA Z0B73
Z0B68 JSR Z0C86
 BNE Z0B73
 BCC Z0B73
 BSET 5,Z0010
 BSET 1,Z0014
Z0B73 JSR Z013E
 LDA Z0068
 CMP Z1F32
 BEQ Z0B7F
 BSET 3,Z0010
Z0B7F RTI 
Z0B80 CLRA 
 CLRX 
 ADD Z01CC
 SUB Z05CC
 EOR Z09CC
 ADD Z0DCC
 ADD Z11CC
 SUB Z15CC
 EOR Z19CC
 ADD Z1ACC
 ADD Z1F65
 BNE Z0BAD
 LDX #$05
Z0BA1 ADD Z1F32,X
 DECX 
 BNE Z0BA1
 ADD Z1F66
 BNE Z0BAD
 RTS 
Z0BAD INCX 
 JMP Z0188,X
;
; Here on ADC hardware interrupt
;
IRQVEC BCLR L3CLK,PBDATA
 LDA Z0028
 CMP Z0042
 BEQ Z0BBD
 BSET 2,Z0010
 BRA Z0BC6
;
; Perform ADC conversion
;
Z0BBD LDA Z0043
 SUB TMDATA
 SUB #$1E
 LDX ADCPTR
 STA ,X
;
Z0BC6 BSET PCBIT,PBDATA
;
; ADC I/O
;
 LDX PADATA
 LDA L3DATA
 STA PADATA
 BSET L3CLK,PBDATA
 BCLR L3CLK,PBDATA
 STX PADATA
;
 LDA Z0020
 CMP #$99
 BEQ Z0BDD
 JMP Z015C
Z0BDD RTI 
;
;
;
Z0BDE LDX #$04
 STX Z005C
 BSET 4,Z0014
 RTS 
;
Z0BE5 STX Z0025
Z0BE7 LDX Z003B
 CPX Z003C
 BNE Z0BF2
 BRCLR 1,Z001A,Z0BF2
 BRA Z0BE7
Z0BF2 STA Z003D,X
 TXA 
 INCA 
 AND #$03
 STA Z003B
 BSET 1,Z001A
 LDX Z0025
 CLC 
 RTS 
Z0C00 CLR Z0041
 RTS 
 BCLR 0,Z0012
 BCLR 0,Z001C
 BSR Z0C00
Z0C09 LDA #$E5
 BCLR 3,Z001C
 BRA Z0BE5
Z0C0F BSR Z0BE5
 TXA 
 BRA Z0BE5
Z0C14 LDA Z002E
 BRCLR 6,Z0013,Z0C1B
 LDA Z0050
Z0C1B JSR Z0CDB
 BIT #$F0
 BNE Z0C24
 ORA #$F0
Z0C24 STA Z0041
 AND #$0F
 CMP #$0F
 BEQ Z0C39
 ADD #$30
 TAX 
 BRCLR 1,Z001E,Z0C3B
 LDA #$81
 JSR Z0C0F
 BRA Z0C40
Z0C39 LDX #$20
Z0C3B LDA #$80
 JSR Z0C0F
Z0C40 LDA Z0041
 LSRA 
 LSRA 
 LSRA 
 LSRA 
 CMP #$0F
 BEQ Z0C57
 ADD #$30
 TAX 
 BRCLR 1,Z001E,Z0C59
 LDA #$83
 JSR Z0C0F
 BRA Z0C5E
Z0C57 LDX #$20
Z0C59 LDA #$82
 JSR Z0C0F
Z0C5E BSR Z0C66
 BRCLR 3,Z001C,Z0C65
 BSET 4,Z0013
Z0C65 RTS 
Z0C66 BCLR 3,Z001C
 BRCLR 1,Z002F,Z0C72
 LDA Z1F3B
 STA Z0063
 BSET 3,Z001C
Z0C72 RTS 
Z0C73 LDA #$38
 STA Z005F
 BSET 5,Z001C
 RTS 
Z0C7A BRCLR 6,L3DATA,Z0C80
 BRCLR 2,Z001F,Z0CC8
Z0C80 LDA ADC10V ; ADC +10V supply rail
 LDX #$00
 BRA Z0CCB
;
Z0C86 LDA Z001C
 AND #$06
 BNE Z0CC8
 BRSET 6,Z0018,Z0CC8
 LDA ADCPLL ; ADC PLL voltage
 LDX #$06
 BRA Z0CCB
;
Z0C95 BRCLR 0,Z0011,Z0CA6
 LDA L1DATA
 LSRA 
 LSRA 
 LSRA 
 AND #$06
 ADD #$08
 TAX 
 LDA ADCRFP ; ADC RF Power
 BRA Z0CCB
;
Z0CA6 BRSET 2,Z001C,Z0CC8
 BRSET 0,Z002F,Z0CC8
 LDA ADCRFP ; ADC RF Power
 CMP #$15
 BCS Z0CD5
 SEI 
 JSR Z0191
 BSET 4,PADIR
Z0CB8 LDA #$01
 JSR Z0152
 BSET PLLOLK,PADATA
 LDA #$01
 JSR Z0152
 BCLR PLLOLK,PADATA
 BRA Z0CB8
Z0CC8 LDA #$01
 RTS 
;
; ADC Voltage range check
;
Z0CCB CMP Z1F00,X
 BCS Z0CD8
 CMP Z1F01,X
 BHI Z0CD8
Z0CD5 CLC 
 CLRA 
 RTS 
;
Z0CD8 SEC 
 CLRA 
 RTS 
;
;
;
Z0CDB CLRX 
 STA Z0021
 STX Z0022
 BMI Z0D1B
 CLR Z0023
 CLR Z0024
 CLR Z0025
 LDA #$10
 STA Z0026
Z0CEC LDX #$23
Z0CEE LDA ,X
 AND #$0F
 CMP #$05
 LDA ,X
 BCS Z0CF8
 ADD #$03
Z0CF8 CMP #$50
 BCS Z0CFE
 ADD #$30
Z0CFE STA ,X
 INCX 
 CPX #$26
 BNE Z0CEE
 LDX #$21
 CLRA 
Z0D07 ROLA 
 ROL ,X
 RORA 
 INCX 
 CPX #$26
 BNE Z0D07
 DEC Z0026
 BNE Z0CEC
 LDA Z0023
 LDX Z0024
 BMI Z0D1B
 CLC 
 RTS 
Z0D1B SEC 
 RTS 
 LSRA 
 LSRA 
 LSRA 
 LSRA 
 AND #$0F
 ADD #$30
 CMP #$39
 BLS Z0D2B
 ADD #$07
Z0D2B RTS 
Z0D2C LDA #$00
 STA Z004F
 BSR Z0D45
 LDA #$0F
 STA Z00C2
Z0D36 LDA Z0034
 AND #$3F
 BEQ Z0D44
 TAX 
 LDA Z0E56,X
 ORA #$40
 STA Z0081
Z0D44 RTS 
Z0D45 LDX #$0A
Z0D47 LDA Z1F66,X
 STA Z00C9,X
 LDA Z1F79,X
 STA Z00D3,X
 DECX 
 BNE Z0D47
 JMP Z1403
Z0D57 RTI 
Z0D58 BRSET 0,Z0011,Z0D5E
 JSR Z0DCF
Z0D5E BRSET 6,Z0081,Z0D64
 JSR Z0DFA
Z0D64 BRCLR 6,Z0015,Z0D6A
 JSR Z0E10
Z0D6A JSR Z0E7D
 BRCLR 6,Z0013,Z0D73
 JSR Z108E
Z0D73 BRSET 0,Z0011,Z0D79
 JSR Z0DCF
Z0D79 BRSET 0,Z0011,Z0D7F
 JSR Z1142
Z0D7F BRCLR 5,Z0015,Z0D85
 JSR Z11DE
Z0D85 BRCLR 4,Z00A3,Z0D8B
 JSR Z12E3
Z0D8B BRCLR 5,Z00A3,Z0D91
 JSR Z12D2
Z0D91 BRCLR 6,Z00A3,Z0D97
 JSR Z1316
Z0D97 JSR Z1328
 BRCLR 2,Z00A1,Z0DA0
 JSR Z1341
Z0DA0 BRCLR 7,Z0014,Z0DA6
 JSR Z14C6
Z0DA6 BRCLR 2,Z00A0,Z0DAC
 JSR Z1357
Z0DAC JSR Z1374
 BRCLR 0,Z00A3,Z0DBA
 LDA Z00A3
 BIT #$F0
 BNE Z0DBA
 BCLR 0,Z00A3
Z0DBA BRCLR 6,L3DATA,Z0DC0
 JSR Z14D1
Z0DC0 BRSET 1,Z0082,Z0DC6
 JSR Z0E45
Z0DC6 BRCLR 5,Z0031,Z0DCC
 JSR Z1557
Z0DCC JMP Z02A2
Z0DCF BRCLR 0,Z0030,Z0DF5
 BRCLR 2,Z0030,Z0DF5
 LDA Z0034
 BIT #$3F
 BEQ Z0DF5
 BRSET 4,Z0019,Z0DE5
 BCLR 3,Z0016
 BRSET 5,Z001B,Z0DF2
 BRA Z0DEF
Z0DE5 BRCLR 2,Z0082,Z0DF5
 BRCLR 5,Z001B,Z0DEF
 BSET 3,Z0016
 BRA Z0DF2
Z0DEF BRSET 4,Z0011,Z0DF5
Z0DF2 BSET 3,Z0018
 RTS 
Z0DF5 BCLR 3,Z0018
 BCLR 3,Z0016
 RTS 
Z0DFA BRCLR 7,Z00E9,Z0E0F
Z0DFD BSET 6,Z0081
 BRCLR 4,Z0011,Z0E0B
 LDA Z0015
 BIT #$03
 BEQ Z0E0B
 BRCLR 2,Z0016,Z0E0F
Z0E0B BCLR 6,Z0015
Z0E0D BSET 1,Z0082
Z0E0F RTS 
Z0E10 BRCLR 6,Z0081,Z0E2B
 BRCLR 0,Z0030,Z0DFD
 LDA Z0015
 CMP #$40
 BEQ Z0E22
 BRCLR 2,Z0016,Z0E2B
 BRSET 5,Z0015,Z0E2B
Z0E22 BRSET TXENAB,L2DATA,Z0E0B
 LDX #$05
 STX Z00E9
 BCLR 6,Z0081
Z0E2B RTS 
Z0E2C BRCLR 0,Z0030,Z0E44
 LDA Z0034
 BIT #$3F
 BEQ Z0E44
 BRSET 5,Z0015,Z0E3B
 BRCLR 4,Z0011,Z0E44
Z0E3B BSET 6,Z0081
 BCLR 1,Z0082
 BRCLR 1,Z0030,Z0E44
 BSET 6,Z0015
Z0E44 RTS 
Z0E45 BRSET 5,Z0015,Z0E51
 BRSET 4,Z0011,Z0E51
 BRCLR 6,Z0015,Z0E0D
 BRSET 6,Z0081,Z0E22
Z0E51 RTS 
 BSET 1,Z001B
Z0E56 EQU *+2
 JMP Z07EA
 FCB $38,$34,$30,$2C,$28,$24,$20,$1C
 FCB $39,$35,$31,$2D,$29,$25,$21,$1D
 FCB $3F,$3D,$3B,$3C,$37,$33,$2F,$19
 FCB $18,$15,$14,$11,$10,$0D,$0C,$09
 FCB $08,$05,$04,$01,$00,$2B
Z0E7D BRSET ECONO,L3DATA,Z0EAD
 BRCLR 0,Z001F,Z0EAE
 LDA #$04
 AND Z001F
 STA Z001F
 BSET 0,Z0016
 BSET 4,Z0018
 BSET 6,Z0011
 BCLR 6,L3DATA
 JSR Z03EE
 BRA Z0EAE
Z0E96 JSR Z0F62
 BCC Z0EA6
 BRSET 2,Z0082,Z0EA3
 BCLR 2,Z0014
 JMP Z0F4C
Z0EA3 BRCLR 7,Z0061,Z0EAD
Z0EA6 BCLR 2,Z0014
 BRA Z0ECF
Z0EAA BRCLR 0,Z0011,Z0ECF
Z0EAD RTS 
Z0EAE BRCLR 6,Z0011,Z0EAD
 BRSET 2,Z001C,Z0EAD
 BRSET 5,Z0011,Z0EAA
 BRSET 2,Z0014,Z0E96
 BRSET 3,Z001F,Z0EE8
 BRSET 1,Z001F,Z0F2A
 BRSET 4,Z0011,Z0F12
Z0EC3 BRCLR 4,Z001F,Z0ECF
 BRSET 7,Z0030,Z0ECC
 BRCLR 2,Z001F,Z0F45
Z0ECC BRCLR 7,Z0056,Z0F2E
Z0ECF BRSET 7,Z0011,Z0ED5
 JMP Z0F70
Z0ED5 BSET 3,Z001F
 BCLR 0,Z0016
 BCLR 7,Z0011
 BCLR 2,Z001F
 BCLR 4,Z0018
 LDA #$4B
 STA Z0060
 LDA Z0051
 JMP Z0FAC
Z0EE8 BRSET 2,Z001F,Z0EFC
 BRCLR 7,Z0060,Z0EFC
 BRSET 0,Z0011,Z0EFC
 BRSET 4,Z0011,Z0EFC
 BRSET 7,Z001F,Z0EFC
 JSR LDA16A
 BNE Z0EFF
Z0EFC JMP Z0FB1
Z0EFF BSET 7,Z0011
 BSET SPENAB,L2DATA
 BSET RXENAB,L2DATA
 LDA Z002E
 STA Z0051
Z0F09 BCLR 3,Z001F
 BSET 0,Z0016
 BSET 4,Z0018
 JMP Z0F9F
Z0F12 BRSET 7,Z0011,Z0EC3
 BSET 1,Z001F
 LDA Z002E
 STA Z0052
 JSR LDA16A
 BNE Z0F27
 LDA Z0050
 STA Z002E
 JMP Z0FA6
Z0F27 BRCLR 2,Z001F,Z0F09
Z0F2A BCLR 1,Z001F
 BRA Z0F59
Z0F2E BSR Z0F62
 BCC Z0F44
 BRCLR 0,Z0030,Z0F4C
 BRCLR 2,Z0030,Z0F4C
 LDA Z0034
 BIT #$3F
 BEQ Z0F4C
 BSET 2,Z0014
 LDA #$0E
 STA Z0061
Z0F44 RTS 
Z0F45 BRCLR 7,Z0056,Z0F44
 BSR Z0F62
 BCS Z0ECF
Z0F4C BRSET 7,Z0011,Z0F55
 LDA #$4B
 STA Z0060
 BRA Z0F59
Z0F55 BSET 1,Z001B
 BCLR 7,Z0011
Z0F59 BCLR 0,Z0016
 BCLR 4,Z0018
 BSET 3,Z001F
 JMP Z03EE
Z0F62 LDA Z002D
 AND #$07
 BNE Z0F69
 INCA 
Z0F69 TAX 
 LDA ADCMND ; ADC Mute Noise Detect
 CMP Z1F14,X
 RTS 
Z0F70 LDX #$00
 JSR LDA16X
 BEQ Z0F7A
 BRCLR 2,Z001F,Z0FA4
;
Z0F7A LDX #$0B
 JSR Z0021 ; LDA <addr>,X
 BNE Z0F83
 JMP Z103C
;
Z0F83 STA Z0025
 LDA Z004F
 AND #$0F
 CMP Z0025
 BCS Z0F94
 LDA Z004F
 AND #$F0
 STA Z004F
 CLRA 
Z0F94 ADD #$01
 TAX 
 JSR Z0021 ; LDA <addr>,X
 INC Z004F
 BCLR 2,Z001F
 BRA Z0FA6
;
;
;
Z0F9F LDX #$00
 JSR LDA16X
Z0FA4 BSET 2,Z001F
Z0FA6 LDX #$3B
 STX Z0056
 BSET 4,Z001F
Z0FAC STA Z002E
 JMP Z07ED
Z0FB1 BRSET 0,Z0011,Z0FD7
 BSR Z0F62
 BCC Z0FE5
 BRCLR 0,Z0030,Z0FED
 BRCLR 2,Z0030,Z0FED
 LDA Z0034
 BIT #$3F
 BEQ Z0FED
 BRCLR 2,Z0082,Z0FED
Z0FC7 BRSET 4,Z0011,Z0FF5
 BRSET 0,Z001B,Z0FD3
 BRCLR 7,Z001F,Z0FDE
 BRCLR 7,Z0061,Z0FDB
Z0FD3 BCLR 3,Z001F
 BSET 0,Z001F
Z0FD7 BCLR 6,Z001F
 BCLR 7,Z001F
Z0FDB BCLR 0,Z001B
 RTS 
Z0FDE LDA #$7F
 STA Z0061
 BSET 7,Z001F
 RTS 
Z0FE5 BRSET 2,Z001F,Z0FC7
 BRCLR 7,Z0030,Z0FD7
 BRA Z0FC7
Z0FED BRSET 2,Z001F,Z0FD7
 BRSET 7,Z0030,Z0FD7
 BRA Z0FC7
Z0FF5 BCLR 7,Z001F
 BRSET 6,Z001F,Z1004
 BRSET 0,Z001B,Z1003
 LDA #$20
 STA Z0065
 BSET 6,Z001F
Z1003 RTS 
Z1004 BRCLR 7,Z0065,Z1003
 BSET 0,Z001B
 BCLR 6,Z001F
 RTS 
Z100C BSET 1,Z001B
 BCLR 0,Z001C
 BRCLR 4,Z0030,Z1062
 BRSET 0,Z0011,Z1062
 BRSET 6,Z0013,Z1062
 BRCLR 6,Z0011,Z101F
 JSR Z103C
;
;
;
Z101F LDA Z004F
 CLR Z004F
 AND #$F0
 ADD #$10
 BEQ Z1037
 CMP #$30
 BCC Z1037
 JSR SETSGP Set scan group
 LDX #$0B Get scan group count
 JSR LDA16X
 BNE Z1050 Branch if scan channels
Z1037 CLR Z004F
 JMP Z03EE
;
;
;
Z103C CLR Z001F
 BCLR 0,Z001B
 BCLR 4,Z0018
 BCLR 6,Z0011
 BCLR 7,Z0011
 LDA Z0050
 STA Z002E
 JSR Z07EF
 BCLR 0,Z0016
 RTS 
;
;
;
Z1050 BRSET 6,Z0013,Z1062
 JSR Z1255
 JSR Z1472
 LDA Z002E
 STA Z0050
 CLR Z001F
 BSET 0,Z001F
 RTS 
;
Z1062 JMP Z07EA
;
; Self Modifying code for 16 bit indexed LDA
;
LDA16A LDX #$00
LDA16X LDA #$D6 ; LDA <addr>,X
 STA Z0021
 LDA #$81 ; RTS
 STA Z0024
 LDA ADDRHI
 STA Z0022
 LDA ADDRLO
 STA Z0023
 JMP Z0021 ; Execute Load
;
; Scan group vectors
;
Z1077 EQU *-2
Z1078 EQU *-1
 FDB SCNGP1 ; BCLR 7,Z0040 Scan Group 1 ?
 FDB SCNGP2 ; BCLR 7,Z004C Scan Group 2 ?
;
; Self modifying code for scan groups
;
SETSGP STA Z004F
 LSRA 
 LSRA 
 LSRA 
 TAX 
 LDA Z1077,X
 STA ADDRHI
 LDA Z1078,X
 STA ADDRLO
 RTS 
;
;
;
Z108E BRCLR 1,Z0031,Z10BD
 BRSET 0,Z0011,Z10BD
 BRSET 2,Z001C,Z10BD
 CLRA 
 BRSET 5,Z0011,Z10C1
 LDA Z002D
 AND #$F8
 ADD #$02
 STA Z002D
 CLRA 
 BSR Z1122
 BRSET 7,Z0018,Z10B3
 BRSET 4,Z0019,Z10B8
 BRCLR 7,Z00E8,Z10BD
 BSET 7,Z0018
 BRA Z10F6
Z10B3 BRSET 1,Z001F,Z10BE
 BSET 1,Z001F
Z10B8 LDA Z1FB4
 STA Z00E8
Z10BD RTS 
Z10BE BRCLR 7,Z00E8,Z10BD
Z10C1 BRCLR 5,Z0016,Z10CA
 CMP Z0051
 BHI Z10DF
 BRA Z10E5
Z10CA TST Z0015
 BNE Z10BD
 JSR Z0F62
 BCC Z10F6
 BSET 5,Z0016
 BSR Z1129
 LDX Z002E
 STX ADDRHI
 CLR Z0051
 BRA Z10B8
Z10DF STA Z0051
 LDA Z002E
 STA Z0052
Z10E5 LDA Z0035
 AND #$7F
 INCA 
 CMP ADDRHI
 BNE Z10F6
 BCLR 7,Z0018
 BCLR 5,Z0016
 LDA Z0052
 BRA Z10FB
Z10F6 LDA Z0035
 AND #$7F
 INCA 
Z10FB LDX Z1FB4
 STX Z00E8
Z1100 STA Z002E
 BSET 6,Z00A0
 JMP Z07EF
Z1107 BSET 6,Z0013
 BIT #$20
 BNE Z1121
 BCLR 6,Z0013
 BCLR 5,Z0016
 BCLR 7,Z0018
 BRCLR 3,Z0031,Z111F
 BRCLR 6,L3DATA,Z111F
 BRSET 2,Z001F,Z111F
 BRSET 6,L2DATA,Z1121
Z111F BCLR 2,Z0019
Z1121 RTS 
Z1122 JSR Z0F62
 BCS Z1129
 CLRA 
 RTS 
Z1129 CMP Z1F1B
 BCS Z1132
 NEGA 
 AND #$7F
 RTS 
;
;
;
Z1132 LDA ADCRXS ; RX Signal strength
 ORA #$80
 RTS 
;
;
;
Z1137 BRCLR 1,Z0031,Z1141
 BRCLR 6,Z0013,Z1141
 LDA Z0052
 BRA Z1100
Z1141 RTS 
Z1142 BRSET 0,Z00A3,Z1181
 BRCLR 6,Z0080,Z1169
 LDA Z0080
 BSET 7,Z0080
 LDX #$14
Z114E DECX 
 BNE Z114E
 BCLR 7,Z0080
 AND #$0F
 LDX Z00C2
 STA Z00C2
 BRCLR 2,Z00A3,Z1189
 TST Z00BE
 BNE Z1182
 LDA Z00A3
 AND #$F2
 ORA #$01
 STA Z00A3
 RTS 
Z1169 BRCLR 2,Z00A3,Z1181
 BRCLR 7,Z00EA,Z1181
 BRSET 3,Z00A3,Z11C7
 LDX Z00C0
 LDA Z1F84,X
 TST Z00BE
 BNE Z117D
 LDA #$3D
Z117D STA Z00EA
 BSET 3,Z00A3
Z1181 RTS 
Z1182 CMP #$0E
 BNE Z1195
 TXA 
 BRA Z1195
Z1189 LDA #$F4
 STA Z00A3
 LDA Z00D4
 STA Z00BE
 CLR Z00C0
 LDA Z00C2
Z1195 LDX Z00C0
 BCLR 0,Z0013
 CMP #$0A
 BNE Z11A6
 BSET 0,Z0013
 BRCLR 2,Z0032,Z11C7
 BSET 1,Z00A3
 BRA Z11C1
Z11A6 CMP Z00D5,X
 BEQ Z11AC
 BCLR 4,Z00A3
Z11AC CMP Z1F8D,X
 BEQ Z11B3
 BCLR 5,Z00A3
Z11B3 CMP Z1F96,X
 BEQ Z11BA
 BCLR 6,Z00A3
Z11BA CMP Z1F9F,X
 BEQ Z11C1
 BCLR 7,Z00A3
Z11C1 LDA Z00A3
 BIT #$F0
 BNE Z11CA
Z11C7 CLR Z00A3
 RTS 
Z11CA DEC Z00BE
Z11CC INCX 
 STX Z00C0
 LDA Z1F83,X
 BRCLR 0,Z0013,Z11D9
 LSLA 
 ADD Z1F83,X
Z11D9 STA Z00EA
 BCLR 3,Z00A3
 RTS 
Z11DE BRCLR 0,Z0011,Z1238
 BRCLR 0,Z0032,Z1262
 BRCLR 0,Z00A1,Z1239
 BRSET 7,Z00A1,Z123B
 BRCLR 7,Z00E7,Z1264
 TST Z00C1
 BEQ Z11FD
 DEC Z00C1
 BEQ Z11FD
 LDX Z00BF
 LDA Z1F70,X
 STA Z00E7
 RTS 
Z11FD DEC Z00BE
 BEQ Z1265
Z1201 LDX Z00C0
 LDA ,X
 BRCLR 1,Z00A1,Z1218
 LDX Z00BF
 LDA Z1F8D,X
 BRCLR 6,Z002F,Z1218
 LDX Z00BE
 CPX #$01
 BNE Z1218
 LDX Z00C0
 LDA ,X
Z1218 BMI Z1220
 CMP Z00C3
 BNE Z1220
 LDA #$0E
Z1220 STA Z00C3
 ORA #$50
 JSR Z12C7
 BCLR 6,Z0080
 LDX Z00BF
 LDA Z1F71,X
 INC Z00C0
 INC Z00BF
 STA Z00E7
 LDA Z00C8
 STA Z00C1
Z1238 RTS 
Z1239 BRA Z1267
Z123B BRCLR 7,Z00E7,Z1264
 DEC Z00C1
 BNE Z1297
Z1242 LDA #$B0
 STA Z0084
 LDA #$0F
 BSR Z12C7
 JSR Z13DB
 LDA Z00A1
 AND #$08
 STA Z00A1
 BCLR 1,Z00A0
Z1255 BCLR 0,Z0017
 LDA Z1F7A
 STA Z00D4
 BRCLR 0,Z00A0,Z1262
 JSR Z13CD
Z1262 BCLR 5,Z0015
Z1264 RTS 
Z1265 BRA Z12B6
Z1267 BRSET 6,Z00A1,Z129C
 BSET 6,Z00A1
 BSET 0,Z0017
 LDX #$D4
 BRCLR 4,Z00A1,Z1275
 LDX #$CA
Z1275 STX Z00C0
 CLR Z00BF
 BSET 4,Z0080
 BCLR 6,Z0080
 LDA #$FF
 STA Z0084
 LDA #$5F
 BSR Z12C7
 BCLR 6,Z0080
 LDA Z1FAB
 BRSET 1,Z00A0,Z1295
 BRSET 3,Z00A1,Z1295
 BRSET 0,Z0033,Z1295
 LDA #$0A
Z1295 STA Z00C1
Z1297 LDA #$0C
 STA Z00E7
 RTS 
Z129C BRCLR 7,Z00E7,Z1264
 DEC Z00C1
 BNE Z1297
 BCLR 6,Z00A1
 LDX Z00C0
 LDA ,X
 STA Z00BE
 INCX 
 STX Z00C0
 LDA #$FF
 STA Z00C3
 BSET 0,Z00A1
 JMP Z1201
Z12B6 LDA #$5F
 BSR Z12C7
 BCLR 6,Z0080
 BCLR 1,Z00A1
 BSET 7,Z00A1
 LDA Z1FAC
 STA Z00C1
 BRA Z1297
Z12C7 STA Z0021
 LDA Z0080
 AND #$20
 ORA Z0021
 STA Z0080
 RTS 
Z12D2 BRSET 2,Z00A3,Z1315
 BCLR 5,Z00A3
 BRCLR 7,Z0034,Z1315
 BRCLR 2,Z0033,Z1315
 BSET 1,Z00A1
 BSET 4,Z001B
 BRA Z12F5
Z12E3 BRSET 2,Z00A3,Z1315
 BCLR 4,Z00A3
 BRCLR 1,Z0032,Z1315
 BRCLR 7,Z0034,Z1315
 BCLR 5,Z00A1
 BRSET 7,Z0033,Z1301
 BSET 1,Z001B
Z12F5 BSET 4,Z00A2
 LDA #$A7
 JSR Z0BE5
 BCLR 2,Z0018
 BRCLR 7,Z0032,Z1315
Z1301 BRSET 1,Z00A3,Z1315
 BSET 5,Z00A1
 BSET 5,Z0014
 BSET 3,Z00A1
 BCLR 4,Z00A1
 BSET 5,Z0015
Z130E BRSET 3,Z0032,Z1315
 LDX #$07
 STX Z00D4
Z1315 RTS 
Z1316 BRSET 2,Z00A3,Z1327
 BCLR 6,Z00A3
 BRSET 1,Z00A3,Z1327
 BRCLR 3,Z0033,Z1327
 BSET 5,Z0080
 LDA #$11
 STA Z00EB
Z1327 RTS 
Z1328 BRCLR 5,Z0080,Z133E
 BRSET 5,Z0032,Z1333
 BRCLR 7,Z00EB,Z133E
 BRA Z133C
Z1333 BRCLR 7,Z00A3,Z1340
 BRSET 2,Z00A3,Z1340
 BRSET 1,Z00A3,Z133E
Z133C BCLR 5,Z0080
Z133E BCLR 7,Z00A3
Z1340 RTS 
Z1341 BRSET 0,Z0011,Z134D
 BRSET 4,Z0019,Z1356
 BRCLR 6,Z0011,Z134D
 BRCLR 4,Z0011,Z1356
Z134D BSET 5,Z0015
 BCLR 2,Z00A1
 LDA Z1FAA
 STA Z00EC
Z1356 RTS 
Z1357 BRSET 1,Z00A0,Z135F
 BRCLR 7,Z00EC,Z135F
 BCLR 2,Z00A0
Z135F RTS 
Z1360 BRCLR 0,Z0011,Z1373
 BRSET 0,Z0033,Z1373
 BRA Z136B
Z1368 BRCLR 0,Z0033,Z1373
Z136B BRCLR 7,Z0035,Z1373
 JSR Z130E
 BSET 5,Z0015
Z1373 RTS 
Z1374 BRCLR 4,Z0011,Z1399
 BCLR 2,Z0018
 BRSET 1,Z0032,Z137F
 BRCLR 2,Z0033,Z13B7
Z137F BRSET 4,Z00A0,Z135F
 BSET 4,Z00A0
 BCLR 4,Z001B
 BRSET 5,Z0032,Z138B
 BSR Z133C
Z138B BCLR 4,Z00A2
 BSET 2,Z0012
 BRCLR 4,Z0019,Z1396
 BSET 1,Z0012
 BCLR 2,Z0012
Z1396 JMP Z03EE
Z1399 BRCLR 4,Z00A0,Z135F
 BCLR 4,Z00A0
Z139E BRCLR 1,Z0032,Z13B1
 BRCLR 7,Z0034,Z13B1
 BRSET 6,Z00A0,Z13B5
 BRSET 3,Z00A1,Z13B1
 BRSET 7,Z0033,Z13B1
 BSET 2,Z0018
 BRA Z13B3
Z13B1 BCLR 2,Z0018
Z13B3 BCLR 3,Z00A1
Z13B5 BCLR 6,Z00A0
Z13B7 RTS 
 BSET 0,Z00A0
 JSR Z130E
 BRCLR 3,Z0032,Z13C6
 LDX Z00D9
 STA Z00D9
 BRA Z13CA
Z13C6 LDX Z00DB
 STA Z00DB
Z13CA STX Z00C7
 RTS 
Z13CD LDA Z00C7
 BRCLR 3,Z0032,Z13D6
 STA Z00D9
 BRA Z13D8
Z13D6 STA Z00DB
Z13D8 BCLR 0,Z00A0
 RTS 
Z13DB BRCLR 4,Z00A1,Z13F9
Z13DE BRCLR 7,Z00A0,Z1402
Z13E1 BCLR 7,Z00A0
 BCLR 1,Z001D
 BCLR 1,Z001E
 LDA Z00CE
 STA Z00DE
 LDA Z00CF
 STA Z00DF
 LDA Z00E0
 STA Z00CE
 LDA Z00E1
 STA Z00CF
 BRA Z1403
Z13F9 RTS 
Z13FA CLRA 
 LDX #$18
Z13FD ADD Z00C9,X
 DECX 
 BNE Z13FD
Z1402 RTS 
Z1403 BSR Z13FA
 NEGA 
 STA Z00C9
 RTS 
Z1409 BRSET 7,Z00A0,Z141B
 BRSET 1,Z00A0,Z141B
 BRSET 5,Z0015,Z141B
 BSR Z13FA
 ADD Z00C9
 BEQ Z141B
 JMP Z0D45
Z141B RTS 
Z141C BRSET 7,Z0016,Z1462
 BRSET 3,Z0016,Z1462
 BRCLR 0,Z0032,Z1462
 BRCLR 7,Z0034,Z1462
 BRCLR 4,Z00A2,Z1438
 BCLR 4,Z00A2
 BCLR 4,Z001B
 BSET 2,Z0012
 BRCLR 4,Z0019,Z1438
 BSET 1,Z0012
 BCLR 2,Z0012
Z1438 BRSET 1,Z00A0,Z1468
 BRCLR 5,Z001B,Z1441
 BRSET 4,Z0019,Z1462
Z1441 BSET 4,Z00A1
 BRSET 2,Z00A0,Z1465
 BRSET 6,Z0011,Z1462
 BRSET 0,Z0011,Z144F
 JSR Z1574
Z144F BSET 1,Z001B
 BSET 2,Z00A0
 BSET 1,Z00A0
 BCLR 1,Z00A1
 BSET 2,Z00A1
 BRSET 0,Z0011,Z1461
 LDA #$A3
 JSR Z0BE5
Z1461 RTS 
Z1462 JSR Z07EA
Z1465 BCLR 4,Z00A1
 RTS 
Z1468 BRCLR 1,Z0033,Z147A
 BSET 1,Z001B
 BCLR 2,Z00A0
 JSR Z1242
Z1472 BRSET 0,Z0011,Z147A
 LDA #$A0
 JSR Z0BE5
Z147A RTS 
Z147B BRCLR 0,Z0032,Z14A2
 BRCLR 6,Z0033,Z14A2
 BSET 1,Z001B
 BRCLR 7,Z00A0,Z148D
 BCLR 7,Z00A0
 JSR Z13E1
 BRA Z149F
Z148D BSET 7,Z00A0
 LDA Z00CE
 STA Z00E0
 LDA Z00CF
 STA Z00E1
 LDA Z00DE
 STA Z00CE
 LDA Z00DF
 STA Z00CF
Z149F JMP Z03EE
Z14A2 JMP Z07EA
;
;
;
Z14A5 LDX #$CE
 BRA Z14AB
Z14A9 LDX #$CF
Z14AB INC ,X
 LDA ,X
 CMP #$09
 BLS Z14B2
 CLR ,X
Z14B2 BSET 1,Z001B
 JMP Z03EE
Z14B7 LDA Z00CE
 LSLA 
 LSLA 
 LSLA 
 LSLA 
 ORA Z00CF
 BSET 1,Z001D
 BSET 1,Z001E
 JMP Z0C24
Z14C6 BRCLR 7,Z0081,Z14D0
 BCLR 7,Z0014
 LDA Z1FA9
 STA Z00C8
Z14D0 RTS 
;
;
;
Z14D1 BRSET ECONO,L3DATA,Z14FD
 BRSET 2,Z001C,Z14ED
 BRSET 2,Z0019,Z150D
 BRSET 4,Z0019,Z150D
 BRSET 0,Z0011,Z150D
 BRSET 4,Z0011,Z150D
 LDA Z0015
 BNE Z150D
 BRSET 2,Z001F,Z14EE
 BRSET 7,Z0060,Z14F3
Z14ED RTS 
;
;
;
Z14EE BRCLR 7,Z0060,Z14ED
 BCLR 2,Z001F
Z14F3 BSET 6,Z0018
 BSET ECONO,L3DATA
 LDA Z1FB3
 STA Z0060
 RTS 
;
;
;
Z14FD BRCLR 7,Z0060,Z14ED
 BSR Z1515
 LDA Z1FB2
 STA Z0060
 JSR Z06EA
 BCLR 6,Z0018
 RTS 
Z150D BSET 2,Z001F
 LDA Z1FB1
 STA Z0060
 RTS 
;
;
;
Z1515 BCLR ECONO,L3DATA
 LDA #$0C
 JSR Z0152
 RTS 
;
;
;
 BRCLR 3,Z0031,Z1544
 BRCLR 1,Z0035,Z1544
 BRSET 6,Z0011,Z1544
 BRSET 6,Z0013,Z1544
 BSET 1,Z001B
 BRCLR 6,L3DATA,Z153C
 BRA Z154A
;
;
;
Z1530 BRCLR 3,Z0031,Z1543
 BRCLR 2,Z0035,Z1547
 BRSET 6,Z0011,Z1547
 BRSET 6,Z0013,Z1547
Z153C BSET 6,L3DATA
 LDA Z1FB2
 STA Z0060
Z1543 RTS 
Z1544 JMP Z07EA
Z1547 BRCLR 6,L3DATA,Z1543
Z154A BSR Z1515
 LDA Z1F00
 INCA 
 STA ADC10V ; ADC +10V Supply rail
 BCLR 6,Z0018
 BCLR 6,L3DATA
 RTS 
Z1557 BRSET 0,Z0011,Z1570
 BRSET 6,Z001C,Z1570
 BRSET 7,Z001C,Z1570
 LDA Z0067
 BNE Z1570
 DEC Z004E
 BMI Z1571
 BNE Z1579
 LDA #$02
 STA Z0067
 BSET 1,Z001B
Z1570 RTS 
Z1571 JMP Z0189
Z1574 LDA Z1FB5
 STA Z004E
Z1579 LDA #$B4
 STA Z0067
 RTS 
Z157E LDA #$EC
 JSR Z0BE5
 CLRX 
Z1584 LDA ,X
 JSR Z0BE5
 DECX 
 BNE Z1584
 RTS 
Z158C BRSET 6,Z0011,Z1594
 BRSET 0,Z001F,Z1594
 CLR Z004F
Z1594 LDA #$00
 STA Z0080
 LDA #$00
 STA Z0081
 LDA #$06
 STA Z0082
 LDA #$B0
 STA Z0084
 STA Z00A4
 LDA #$7F
 STA Z0085
 LDA #$3B
 STA Z0086
 RTS 
 FCB $00
Z15B0 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00
Z15CC FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
Z19CC FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
Z1ACC FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00
;
; Channel Table
; Bytes 0 - 2 = RX
; Bytes 3 - 5 = TX
; Byte  6
; Byte  7 next scan channel
;
Z1BE8 EQU *
 FCB $FE,$7D,$C6,$A8,$6F,$BE,$00,00 ; 01
 FCB $FD,$7D,$C6,$A7,$6F,$BE,$00,00 ; 02
 FCB $FC,$7D,$C6,$A6,$6F,$BE,$00,00 ; 03
 FCB $FB,$7D,$C6,$9F,$6F,$BE,$00,00 ; 04
 FCB $FA,$7D,$C6,$9E,$6F,$BE,$00,00 ; 05
 FCB $F9,$7D,$C6,$9D,$6F,$BE,$00,00 ; 06
 FCB $F8,$7D,$C6,$9C,$6F,$BE,$00,00 ; 07
 FCB $F7,$7D,$C6,$9B,$6F,$BE,$00,00 ; 08
 FCB $F6,$7D,$C6,$9A,$6F,$BE,$00,00 ; 09
 FCB $EF,$7D,$C6,$99,$6F,$BE,$00,00 ; 10
 FCB $EE,$7D,$C6,$98,$6F,$BE,$00,00 ; 11
 FCB $ED,$7D,$C6,$97,$6F,$BE,$00,00 ; 12
 FCB $EC,$7D,$C6,$96,$6F,$BE,$00,00 ; 13
 FCB $EB,$7D,$C6,$8F,$6F,$BE,$00,00 ; 14
 FCB $EA,$7D,$C6,$8E,$6F,$BE,$00,00 ; 15
 FCB $E9,$7D,$C6,$8D,$6F,$BE,$00,00 ; 16
 FCB $E8,$7D,$C6,$8C,$6F,$BE,$00,00 ; 17
 FCB $E7,$7D,$C6,$8B,$6F,$BE,$00,00 ; 18
 FCB $E6,$7D,$C6,$8A,$6F,$BE,$00,00 ; 19
 FCB $DF,$7D,$C6,$89,$6F,$BE,$00,00 ; 20
 FCB $DE,$7D,$C6,$88,$6F,$BE,$00,00 ; 21
 FCB $DD,$7D,$C6,$87,$6F,$BE,$00,00 ; 22
 FCB $DC,$7D,$C6,$86,$6F,$BE,$00,00 ; 23
 FCB $DB,$7D,$C6,$7F,$6F,$BE,$00,00 ; 24
 FCB $DA,$7D,$C6,$7E,$6F,$BE,$00,00 ; 25
 FCB $D9,$7D,$C6,$7D,$6F,$BE,$00,00 ; 26
 FCB $D8,$7D,$C6,$7C,$6F,$BE,$00,00 ; 27
 FCB $D7,$7D,$C6,$7B,$6F,$BE,$00,00 ; 28
 FCB $D6,$7D,$C6,$7A,$6F,$BE,$00,00 ; 29
 FCB $CF,$7D,$C6,$79,$6F,$BE,$00,00 ; 30
 FCB $CE,$7D,$C6,$78,$6F,$BE,$00,00 ; 31
 FCB $CD,$7D,$C6,$77,$6F,$BE,$00,00 ; 32
 FCB $CC,$7D,$C6,$76,$6F,$BE,$00,00 ; 33
 FCB $CB,$7D,$C6,$6F,$6F,$BE,$00,00 ; 34
 FCB $CA,$7D,$C6,$6E,$6F,$BE,$00,00 ; 35
 FCB $C9,$7D,$C6,$6D,$6F,$BE,$00,00 ; 36
 FCB $C8,$7D,$C6,$6C,$6F,$BE,$00,00 ; 37
 FCB $C7,$7D,$C6,$6B,$6F,$BE,$00,00 ; 38
 FCB $C6,$7D,$C6,$6A,$6F,$BE,$00,00 ; 39
 FCB $BF,$7D,$C6,$69,$6F,$BE,$00,00 ; 40
 FCB $FE,$7D,$C6,$78,$6F,$BE,$00,00 ; 41
 FCB $FD,$7D,$C6,$77,$6F,$BE,$00,00 ; 42
 FCB $FC,$7D,$C6,$76,$6F,$BE,$00,00 ; 43
 FCB $FB,$7D,$C6,$6F,$6F,$BE,$00,00 ; 44
 FCB $FA,$7D,$C6,$6E,$6F,$BE,$00,00 ; 45
 FCB $F9,$7D,$C6,$6D,$6F,$BE,$00,00 ; 46
 FCB $F8,$7D,$C6,$6C,$6F,$BE,$00,00 ; 47
 FCB $F7,$7D,$C6,$6B,$6F,$BE,$00,00 ; 48
 FCB $C9,$7D,$C6,$6A,$6F,$BE,$00,00 ; 49
 FCB $C6,$7D,$C6,$6D,$6F,$BE,$00,00 ; 50
 FCB $BE,$7D,$C6,$68,$6F,$BE,$00,00 ; 51
 FCB $BD,$7D,$C6,$67,$6F,$BE,$00,00 ; 52
 FCB $BC,$7D,$C6,$66,$6F,$BE,$00,00 ; 53
 FCB $BB,$7D,$C6,$FF,$6E,$BE,$00,00 ; 54
 FCB $BA,$7D,$C6,$FE,$6E,$BE,$00,00 ; 55
 FCB $B9,$7D,$C6,$FD,$6E,$BE,$00,00 ; 56
 FCB $B8,$7D,$C6,$FC,$6E,$BE,$00,00 ; 57
 FCB $B7,$7D,$C6,$FB,$6E,$BE,$00,00 ; 58
 FCB $B6,$7D,$C6,$FA,$6E,$BE,$00,00 ; 59
 FCB $AF,$7D,$C6,$F9,$6E,$BE,$00,00 ; 60
 FCB $96,$87,$C6,$6A,$6F,$BE,$00,00 ; 61
 FCB $A6,$87,$C6,$6A,$6F,$BE,$00,00 ; 62
 FCB $9C,$87,$C6,$6A,$6F,$BE,$00,00 ; 63
 FCB $6C,$87,$C6,$6A,$6F,$BE,$00,00 ; 64
 FCB $DF,$86,$E6,$6A,$6F,$BE,$00,98 ; 65
 FCB $E6,$86,$E6,$6A,$6F,$BE,$00,96 ; 66
 FCB $FF,$86,$E6,$6A,$6F,$BE,$00,94 ; 67
 FCB $8B,$87,$E6,$6A,$6F,$BE,$00,92 ; 68
 FCB $E9,$86,$E6,$6A,$6F,$BE,$00,89 ; 69
 FCB $7B,$87,$E6,$6A,$6F,$BE,$00,87 ; 70
 FCB $8E,$87,$E6,$6A,$6F,$BE,$00,85 ; 71
 FCB $6D,$87,$E6,$6A,$6F,$BE,$00,84 ; 72
 FCB $7C,$87,$C6,$6A,$6F,$BE,$00,00 ; 73
 FCB $7E,$87,$C6,$6A,$6F,$BE,$00,00 ; 74
 FCB $FD,$86,$C6,$6A,$6F,$BE,$00,00 ; 75
 FCB $FA,$86,$C6,$6A,$6F,$BE,$00,00 ; 76
 FCB $FF,$7D,$C6,$A9,$6F,$BE,$00,00 ; 77
 FCB $66,$7E,$C6,$AA,$6F,$BE,$00,00 ; 78
 FCB $67,$7E,$C6,$AB,$6F,$BE,$00,00 ; 79
 FCB $68,$7E,$C6,$AC,$6F,$BE,$00,00 ; 80
 FCB $00,$00,$00,$00,$00,$00,$00,00 ; 81
 FCB $F7,$86,$E6,$6A,$6F,$BE,$00,71 ; 82
 FCB $F8,$86,$E6,$6A,$6F,$BE,$00,81 ; 83
 FCB $F9,$86,$E6,$6A,$6F,$BE,$00,82 ; 84
 FCB $6B,$87,$E6,$6A,$6F,$BE,$00,83 ; 85
 FCB $7A,$87,$E6,$6A,$6F,$BE,$00,70 ; 86
 FCB $66,$87,$E6,$6A,$6F,$BE,$00,69 ; 87
 FCB $6E,$87,$E6,$6A,$6F,$BE,$00,86 ; 88
 FCB $DE,$86,$E6,$6A,$6F,$BE,$00,68 ; 89
 FCB $E7,$86,$E6,$6A,$6F,$BE,$00,88 ; 90
 FCB $FE,$86,$E6,$6A,$6F,$BE,$00,67 ; 91
 FCB $87,$87,$E6,$6A,$6F,$BE,$00,90 ; 92
 FCB $89,$87,$E6,$6A,$6F,$BE,$00,91 ; 93
 FCB $EC,$86,$E6,$6A,$6F,$BE,$00,66 ; 94
 FCB $ED,$86,$E6,$6A,$6F,$BE,$00,93 ; 95
 FCB $67,$87,$E6,$6A,$6F,$BE,$00,65 ; 96
 FCB $68,$87,$E6,$6A,$6F,$BE,$00,95 ; 97
 FCB $8D,$87,$E6,$6A,$6F,$BE,$00,64 ; 98
 FCB $8F,$87,$E6,$6A,$6F,$BE,$00,97 ; 99
;
; Configuration Data
;
 ORG $1F00
Z1F00 EQU * ; Voltage range low
Z1F01 EQU *+1 ; Voltage Range Hi
 FCB $25,$4B ; +10V regulated
 FCB $1B,$82
 FCB $00,$38
 FCB $0D,$68 ; PLL Voltage Range
 FCB $00,$82 ; RF Power 0
 FCB $00,$15 ; RF Power 1
 FCB $09,$32 ; RF Power 2
 FCB $1A,$82 ; RF Power 3
;
;
;
Z1F10 FCB $02,$60,$06,$EB
Z1F14 FCB $57,$2A,$23,$1C,$17,$13,$10
Z1F1B FCB $0E
;
; Mute Noise Detect Threshold
; Indexed by Mute setting
;
Z1F1C FCB $57,$31,$31,$31,$31,$31,$31,$31
;
;
;
Z1F24 FCB $01,$0A,$14,$1E,$28,$32,$3C,$46
;
;
;
Z1F2C FCB $0F
Z1F2D FCB $05
Z1F2E FCB $5A,$F4,$02
;
; Default Power-up Channel
;
Z1F31 FCB $01
;
Z1F32 FCB $A5
;
Z1F33 FCB $00
.INTDSP EQU 1 ; Intermittant display bit
.TXINH EQU 2 ; TX Inhibit all channels
.TXLIM EQU 3 ; TX Limit Timer enable 
;
Z1F34 FCB $90
.CTCENC EQU 0 ; CTCSS Encode 
.CTCRTB EQU 1 ; CTCSS Reverse Tone Burst
.CTCDEC EQU 2 ; CTCSS Decode / Fitted
.SCANEN EQU 4 ; Scanning enable bit
.SCANOC EQU 7 ; Scan for Vacant=0 / Occupied=1
;
Z1F35 FCB $83
.VOTING EQU 1 ; Enable voting
.FIXMUT EQU 4 ; Set for fixed mute
.TMR8HR EQU 5 ; 8 hour display timer bit
;
Z1F36 FCB $08
; = $8B HW 92480810 (CCIR) SW 000000000200003
; = $01 HW 92480840 (EIA?) SW 000000000101200
.SELENC EQU 0 ; Selcall encode at a wild guess
.SELDEC EQU 1 ; Selcall Decode at a wild guess
.URGENC EQU 7 ; Possibly Urgent Selcall codes
;
Z1F37 FCB $40
; = $54 HW 92480810 (CCIR) SW 000000000200003
; = $51 HW 92480840 (EIA?) SW 000000000101200
; EQU 0 ; Selcall Encode ???
; EQU 2 ; Selcall Decode ???
;
.MUTDEF EQU 4 ; Mute defeat bit
;
Z1F38 FCB $00 ; TX limit Timer
.ONEMIN EQU $07
.THRMIN EQU $13
.FIVMIN EQU $1F
.TENMIN EQU $3D
;
Z1F39 FCB $00
Z1F3A FCB $0B
Z1F3B FCB $05,$01,$03
;
; $1F3E Chan No (in Hex) of Higest Channel Programmed
;
Z1F3E FCB $50
;
; $1F3F Chan No (in Hex) of Lowest Channel Programmed
;
Z1F3F FCB $01
;
; Scan Group 1 Channels
;
SCNGP1 EQU *
PRIGP1 FCB $00 ; Priority channel scan group 1
 FCB $29,$2A,$2B,$2C
 FCB $2D,$2E,$2F,$30
 FCB $00,$00
 FCB $08 ; Scan group 1 channel count
;
; Scan Group 2 channels
;
SCNGP2 EQU *
PRIGP2 FCB $00 ; Priority channel scan group 2
 FCB $3D,$3E,$3F,$40
 FCB $49,$4A,$4B,$4C
 FCB $00,$00
 FCB $08 ; scan group 2 channel count
;
; From Terry VK4KTP
; Supposedly channel up/down buttons
; swap the order and channel up/down works in reverse
;
Z1F58 FCB $01,$02
;
;$1F5A something to do with scanning
Z1F5A FCB $05 
; (set to $05 for scanning)
; (set to $08 for Selcall)
;
Z1F5B FCB $00
; (set to $07 for Selcall & CTCSS )
;
 FCB $00,$00,$00,$00
 FCB $00,$00,$00,$00
;
; Checksum bytes
;
Z1F64 FCB $E7 ; EPROM CHECKSUM ????
Z1F65 FCB $1E ; ??? Channel table checksum ???
Z1F66 FCB $A5 ; Personatilty Checksum ???
;
; TX SELCALL TONES
;
Z1F67 FCB $00 ; TX tone count
Z1F68 FCB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
Z1F70 FCB $0F
;
; TX Tone Period
;
Z1F71 FCB $00,$00,$00,$00,$00,$00,$00,$00
Z1F79 FCB $00
;
; RX Selcall tones
;
Z1F7A FCB $00 ; RX tone count
Z1F7B FCB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
Z1F83 FCB $0F
;
; RX Tone periods
;
Z1F84 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00
;
; Urgent Call Tones
;
Z1F8D FCB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
 FCB $0F
;
; Alarm ON(OFF?) Tones
;
Z1F96 FCB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
 FCB $0F
;
; Alarm OFF(ON?) Tones
Z1F9F FCB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
 FCB $0F
;
;
;
Z1FA8 FCB $07
Z1FA9 FCB $00
Z1FAA FCB $0B
Z1FAB FCB $3C
Z1FAC FCB $0A,$12,$23,$24,$12
Z1FB1 FCB $4B
Z1FB2 FCB $03
Z1FB3 FCB $0D
Z1FB4 FCB $3B
Z1FB5 FCB $10,$08,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$00,$00,$00,$00,$00
 FCB $00,$00,$00,$21,$12
;
; Date Binary File - stored in DDMMYY format (in decimal)
;
Z1FE2 FCB $08,$06,$98
;
;
;
 FCB $05,$0A,$FF,$F0,$51,$80
;
; Master Binary File
;
; 30 30 32 30 3A "0020:" FM91  (Harware Code: 9502 97340000)
; 30 30 32 38 3A "0028:" FM92L (Harware Code: 9502 92330000)
; 30 30 32 39 3A "0029:" FM92R (Harware Code: 9502 92340000)
;
Z1FEB FCB $30,$30,$32,$39,$3A
;
; Interrupt vectors
;
 ORG $1FF0
 FDB $0000
 FDB TIMVEC
 FDB TIMVEC
 FDB TIMVEC
 FDB TIMVEC
 FDB IRQVEC
 FDB RSTVEC
 FDB RSTVEC
 END RSTVEC