
*B=0000
*D=0173
*C=0196
*V=01D0
*P=9000
SF=L
CF=B
IA=ABCZ1.ASM

Pass 1:   Loading        ABCZ1.ASM
    48    End

IA=MBBWB.ASM

Pass 1:   Loading        MBBWB.ASM
     5     Loading       MH1.ASM
    75      Loading      MN6809.ASM
   132      End
  3759     End
  3760     Loading       MH2.ASM
  6145     End
  6146     Loading       MH3.ASM
  6803     End
  6804     Loading       OKIAB3.ASM
  6852     End
  7144    End

IA=TEST.ASM

Pass 1:   Loading        TEST.ASM
   724    End

IA=OKISND.ASM

Pass 1:   Loading        OKISND.ASM
   150    End

IA=REELS3.ASM

Pass 1:   Loading        REELS3.ASM
    20     Loading       SCOMAC.ASM
   174     End
   620    End

IA=BC4FLU.ASM

Pass 1:   Loading        BC4FLU.ASM
    30     Loading       MN6809.ASM
    87     End
   781     Loading       MN6809.ASM
   838     End
  1085     Loading       MN6809.ASM
  1142     End
  1562     Loading       MN6809.ASM
  1619     End
  2105    End

IA=BC4SYS.ASM

Pass 1:   Loading        BC4SYS.ASM
    12     Loading       MN6809.ASM
    69     End
   656     Loading       MN6809.ASM
   713     End
  1097     Loading       MN6809.ASM
  1154     End
  1225     Loading       MN6809.ASM
  1282     End
  1326     Loading       MN6809.ASM
  1383     End
  1517    End

EN

*B=0000
*D=0173
*C=0196
*V=01D0
*P=9000
SF=L
CF=B
IA=ABCZ1.ASM
                        ;*****************************************************************************
                        ;
                        ; Barcrest MPU4 AMERICAN BEAUTY - CZECH ARCADE (750 Jackpot) charecteriser.
                        ;
                                NAME    CZECH1
                        ;
                                *P
                        ;
                                EXT     NATION,TYPE,CRVERS,HOPM1,HOPM2,HOPV1,HOPV2,PALCOD
                                EXT     LAT,CZ,UKR,RUS
                        ;       
                                PERS    68XX
                        ;
                                *C
                        ;
      00A0              PALCOD  EQU     0A0             mp3gal
                        ;
      0000              LAT     EQU     000             Latvia
      0010              CZ      EQU     010             Czech Rep.
      0020              UKR     EQU     020
      0030              RUS     EQU     030
                        ;
      0010              NATION  EQU     CZ 
                        ;
      0001              TYPE    EQU     001     CZ 1= Arcade (750)
                        ;                         
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                        ;CRVERS must be altered along with HOPV1 & HOPV2
                        ;
      0000              CRVERS  EQU     000     Credit version 0= "10p play"
                        ;                                      1= "5p play"
                        ;                                      2= "2p play"
                        ;
                        ;Hopper coin value in credits (Alters with CRVERS)
                        ;               
      0014              HOPV1   EQU     20      hopper 1 coin (0=Not fitted)  
      000A              HOPV2   EQU     10      hopper 2 coin (0=Not fitted)
                        ;
                        ;Hopper coin value in meter units (constant)
                        ;
      0014              HOPM1   EQU     20
      000A              HOPM2   EQU     10
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;                       
                                END

IA=MBBWB.ASM
                        ;**********************************************************
                        ;
                        ;Barcrest MPU4  AMERICAN BEAUTY on BWB base I/O loom.
                        ;
                                COPY    MH1.ASM
                        ;*****************************************************************************
                        ;
                        ; Barcrest MPU4 AMERICAN BEAUTY - Trust Leisure
                        ;
                        ;       (c)   Max James Software
                        ;             47 Caemawr Gardens
                        ;             Porth          
                        ;             CF39 9DB
                        ;             Wales 
                        ;
                                NAME    SROLL
                        ;
                                *P
                        ;
                        ;------------------------------------------------------
                        ;
                                EXT     NOTEIN,NRDTAB,CRINH,SSSTAT,LPTERM,METERS,INPRED,CRDTB2,WILDAC
                                EXT     HTAB,SWINK,SWINH,SWINT,SWINU,SCRDK,SCRDH,SCRDT,SCRDU,DISSTK
                                EXT     LHOLD1,LHOLD2,LHOLD3,NSYMBS,WINSYM,OCHAN1,OCHAN2,QOKCH2,MUSOKI
                                EXT     SLIDES,ORPOSN,CREDIT,ZDBUGT,ZDBUGU,GSYMB6,GSYMB7,GSYMB8,LSTK5
                                EXT     GFLAGS,TESTST,TLLIST,MCOUNT,USRINT,DISPOT,FF1,FF2,TWILAC,DPAID
                                EXT     R1NVST,STEST,REEL1,REEL2,REEL3,CONPOT,RETTGP,RETWIN,QDBUG
                                EXT     R1SCHK,REEL4,WREEL1,WREEL2,WREEL3,WREEL4,WREEL5,WREEL6,CONPAI
                                EXT     REEL5,REEL58,GETPOS,GOREEL,INIRLS,R1DEML,R1DEMH,T1200,CRVERS
                                EXT     REEL6,STAKE,LLWL1A,LLWL2A,LLWL3A,LSTK3,OALARM,MTIMER,DISHM
                                EXT     ON,OF,LLWL1B,LLWL2B,LLWL3B,TOPCON,LSTAK1,LSTAK2,LSTAK5
                                EXT     SREFIL,NUMNUJ,WINVAL,WINVL2,RESET,QTEST,DWIN3,OKILOO,GAMTYP
                                EXT     F1,F2,WINTAB,GRDIST,PAYCON,WINBIT,QIDENT,DOCRED,CONW10
                                EXT     STARTC,STARTV,SLEV1G,SLEV2G,CRDTB3,SBDOOR,IWIN,DIPOS,NALT
                                EXT     MAX1G,MAX2G,MIN1G,MIN2G,LEV1G,LEV2G,SLEV5G,MAX5G,MIN5G,LEV5G
                                EXT     NUJTUN,AUTWIN,SMETER,VMTGP,VMWIN,VMETER,VMTRU,GALT,PARTY
                                EXT     VMAIM,SGAMBL,SCCASH,SCHOLD,SHOLD1,SHOLD2,SHOLD3,VMTCE,RCFLAG
                                EXT     ADJWV,CONWIN,STARTD,VMVERS,RSLSER,TLLIST,TOPLPS,BOTLPS,BUTLPS
                                EXT     WINPAT,WINPT2,NUJSND,DYLEDK,OPWBLP,GLOSE1,GLOSE2,GWIN1,GWIN2
                                EXT     MMNULL,MET12V,CLIMIT,CRED1,ADJWA,CLDNUJ,MET50V,PAYTAB,CGLOSE
                                EXT     DYHM,HMETER,LINES,ATEND,CONCRD,SLB2,MPOT,SSTART,TWINFX,OMYS
                                EXT     TOPFLG,RSPEED,SMUNT,DYLEDH,DYLEDT,DYLEDU,WIN,GALT,WINFX
                        ;
                                EXT     INTSER,MK4INI,TESTSW,TESTSI,TESTLP,CLRPOT,CABVER,NRDTAB
                                EXT     PRLPST,PRLPSI,PRLPLI,PRLPLX,GETRAN,TOPUP1,TOPUP2,NRDTB2
                                EXT     SWSTAT,R1SYMB,R1POSN,R1DIST,ADDA2X,NRDTB3,N2DTAB,N2DTB2
                                EXT     MUSREQ,MUSPTR,DELAYI,QWINAN,DISGWL,DISGV,DISGW,DISGL,N2DTB3
                                EXT     SWOPSX,DOTONI,MOVX2S,MOVS2X,GSYMBS,TOPWIN,COININ
                                EXT     SILENT,HEXDY0,HEXDY4,DOTONE,TSTART,TAUTOH,TSETCL
                                EXT     RHBANK,GAMTUN,LOSTUN,TESTLI,DOTEST,TFEWIN,CLOCK1,CLOCK3
                                EXT     RSDGO,TIMER,ALARM,INSPIN,FETTUN,SAMTUN,SHFTUN,STPTUN
                                EXT     LGROUP,GAMBLE,PREGAM,DYCRD1,DYBLK1,DYCLIM,PALCOD
                                EXT     DYWIN,DYGWIN,DYGLOS,DYBW,DYBG,DYBL,NATION,TYPE,NSYMB5
                                EXT     CNTHUD,CHKNVR,SETNVR,CLRNVR,REFTGP,REFWIN
                                EXT     GTIMER,STIMER,TGAWIN,TGALOS,FANCLR,CRDTCZ,NRDTCZ,N2DTCZ
                                EXT     RCGTUN,SHWTTN,TJKPOT,CRDTAB,BFALL,BPOCK,BZAPTN
                                EXT     BALLST,FANNUJ,FANCAL,FANINI,R1BEST,CZ,LAT,RUS,UKR
                                EXT     STUCK,MUSTIM,TCSTAT,DYCLR,DYCLMS,DOVMET,DYNM1,DYNM2,FANSIL
                                EXT     DYFM4,DYFM5,DYFM6,DYFM7,DYFM8,DYFM9,DYFM11,DYFM13,DYEURO
                                EXT     DYREFM,DYRS1,DYRS2,DYRL1,DYRL2,DYRL5,DYRS5,ADDCRD
                                EXT     DYBIJ,PROFDI,PROFDX,QRESET,QTIMER,NOTHGS,FDSTAT,TXCHAR,DELAY
                                EXT     NSYMBT,ATREEL,RSLOFF,LPANOF,SSTOP,FTIMER,LSHOLD,VLTRU
                                EXT     DYRS25,DYRL25,SECHOP,GSYMBT,INSPN2,LTOPST,STOPST,LSTART,LCOLEC
                                EXT     SCOLEC,TDUMP1,TDUMP2,TSTHP1,TSTHP2,LOCKON,LOCKOF,LWL1,LWL2
                                EXT     LWL3,LWL4,SPOT,LPOT,SSTK4,SSTK8,SSTK16,SSTK32,VLWIN
                                EXT     LSTK4,LSTK8,LSTK16,LSTK32,LCHOLD,SCHOLD,LSTAKE,SSTAKE,IMETER
                                EXT     MMTCI,MMTCO,MMTCR,MMTGP,HOPM1,HOPM2,HOPV1,HOPV2,CRDTU2,NRDTU2
                                EXT     VMTCI,VMTCO,VMTCR,VMTGP,NRDTUK,CRDTUK,N2DTUK,N2DTU2,VLTGP
                                EXT     NSYMBT,NSYMB6,NSYMB7,NSYMB8,CHECK1,CHECK2,CRDTU3,NRDTU3
                                EXT     N2DTU3
                        ;       
                        ;******************************************************
                        ;
                                PERS    68XX
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
                        ;******************************************************
                        ;
                                *C
0196                    STARTC  DS      0
                                *V
01D0                    STARTV  DS      0
                                *D
0173                    STARTD  DS      0
                        ;
      0080              OF      EQU     080
      0083              F1      EQU     083
      008C              F2      EQU     08C
      008F              ON      EQU     08F
      0085              FF1     EQU     085
      008A              FF2     EQU     08A
      0090              LPTERM  EQU     090
                        ;
      001A              IDIST   EQU     26      
                        ;
                        ;******************************************************
                        ;
                                *V
                        ;
01D0                    VMETER  DS      87              
                        ;
      0003              VMVERS  EQU     3
      0006              VMTCI   EQU     6
      0009              VMTKI   EQU     9       
      000C              VMTCO   EQU     12
      000F              VMTCA   EQU     15
      0012              VMTGP   EQU     18
      0015              VMWIN   EQU     21
      0018              VMTCR   EQU     24
      001B              VMAIM   EQU     27
      001E              VMTRU   EQU     30
      0021              VMLWIN  EQU     33
      0024              VMLTGP  EQU     36
      0027              VMTWIN  EQU     39
      002A              VMTTGP  EQU     42
                        ;
      002D              VLTCI   EQU     45
      0030              VLTKI   EQU     48
      0033              VLTCO   EQU     51
      0036              VLTCA   EQU     54
      0039              VLTGP   EQU     57
      003C              VLWIN   EQU     60
      003F              VLTCR   EQU     63
      0042              VLTRU   EQU     66
      0045              VLLWIN  EQU     69
      0048              VLLTGP  EQU     72
      004B              VLTWIN  EQU     75
      004E              VLTTGP  EQU     78
                        ;
      0051              VMTCE   EQU     81
      0054              VMPWR   EQU     84
      0057              VMGMON  EQU     87
                        ;
0227                    PCLOCK  DS      2
0229                    GCLOCK  DS      2
                        ;
022B                    TGPCNT  DS      1
022C                    WINCNT  DS      1
                        ;
022D                    CCOUNT  DS      2
                        ;
022F                    TCOCNT  DS      1
0230                    TCICNT  DS      1
0231                    TCRCNT  DS      1
                        ;
                        ;****************************************************************************
                        ;
                                *C
                        ;
      0027              QIDENT  EQU     027     
                        ;
0196                    CHECK1  DS      1
0197                    CHECK2  DS      1
                        ;
0198                    CRED1   DS      2
019A                    HMETER  DS      2       
019C                    POT     DS      2
019E                    POTDRP  DS      2
01A0                    ARROWS  DS      1
01A1                    VCRED1  DS      2
01A3                    VHM     DS      2
01A5                    VPOT    DS      2
01A7                    VPOTD   DS      2
01A9                    VARR    DS      1
01AA                    NVSTAT  DS      1
01AB                    PAYCON  DS      12
01B7                    TOPCON  DS      24
01CF                    PARTY   DS      1
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                                *D
                        ;
0173                    H1CNT   DS      2
0175                    H2CNT   DS      2
0177                    NEWCRD  DS      2
0179                    R1NVST  DS      8
0181                    GFLAGS  DS      1
0182                    GSTATE  DS      1
0183                    TCRED   DS      2
0185                    STAKE   DS      1
0186                    TSTAKE  DS      1
0187                    WILDAC  DS      1
0188                    OSTAKE  DS      1
0189                    HOLCAN  DS      1
018A                    TWILAC  DS      1
018B                    PAID    DS      2
018D                    SPAINH  DS      1
018E                    REFLAG  DS      1
                        ;
                                *B
                        ;
0000                    ATRFLG  DS      1
0001                    ATRCNT  DS      1
0002                    AHPATT  DS      1
0003                    NOCHNG  DS      1
0004                    NFLASH  DS      1
0005                    PAYCNT  DS      1
0006                    RTIMER  DS      2
0008                    ATIMER  DS      2
000A                    FTIMER  DS      2
000C                    XTIMER  DS      2
000E                    WTIMER  DS      2
0010                    YTIMER  DS      2
0012                    LRLCNT  DS      1
0013                    LRTIM   DS      1
0014                    LPHASE  DS      1
0015                    NUDFLG  DS      1
0016                    WINPAT  DS      1
0017                    WINPT2  DS      1
0018                    GAMEON  DS      1
0019                    ATRSTG  DS      1
001A                    SPFLAG  DS      1
001B                    ATMPTR  DS      1
001C                    TOPFLG  DS      1
001D                    GAMNO   DS      1
001E                    HWCNT   DS      1
001F                    MUSREQ  DS      2
0021                    MUSPTR  DS      2
0023                    MUSRQ2  DS      2
0025                    AZCPTR  DS      2
0027                    R1SCHK  DS      8
002F                    WIN     DS      2
0031                    WINVAL  DS      1
0032                    WINVL2  DS      1
0033                    KWSPIN  DS      1
0034                    GAMINH  DS      1
0035                    LINES   DS      1
0036                    FTIMEG  DS      1
0037                    WINBIT  DS      1
0038                    REFCNT  DS      2
003A                    APLAY   DS      1
003B                    TRATEM  DS      2
003D                    CRINH   DS      1
003E                    HTIMER  DS      2
0040                    WILWIN  DS      1
0041                    WINNUM  DS      1
0042                    FMASK   DS      1
0043                    FETPOS  DS      1
0044                    STOPOS  DS      1
0045                    MTIMER  DS      2
0047                    NALT    DS      1
0048                    HD1     DS      2
004A                    HSHOR1  DS      2
004C                    GAMTYP  DS      1
004D                    GLOSE1  DS      2
004F                    GLOSE2  DS      2
0051                    GWIN1   DS      2
0053                    GWIN2   DS      2
0055                    GALT    DS      1
0056                    ATIME1  DS      1
0057                    ATIME2  DS      1
0058                    ATIME3  DS      1
0059                    ATIME4  DS      1
005A                    ATIME5  DS      1
005B                    ATRCN1  DS      1
005C                    ATRCN2  DS      1
005D                    ATRCN3  DS      1
005E                    ATRCN4  DS      1
005F                    ATRCN5  DS      1
0060                    AZCPT1  DS      2
0062                    AZCPT2  DS      2
0064                    AZCPT3  DS      2
0066                    AZCPT4  DS      2
0068                    AZCPT5  DS      2
006A                    GAMALT  DS      1
                        ;
      0080              QTEST   EQU     %10000000
      0020              QDOOR   EQU     %00100000
      0010              QOKCH2  EQU     %00010000
      0004              QRWIN   EQU     %00000100
      0002              QRHUS   EQU     %00000010
      0001              QRHAV   EQU     %00000001
                        ;
                        ;*****************************************************
                        ;
      0001              QDBUG   EQU     %00000001               1.1             
      0002              QKEY    EQU     %00000010               1.2              
      0004              QTRANS  EQU     %00000100               1.3             
                        ;       EQU     %00001000               1.4             
                        ;       EQU     %00010000               1.5             
                        ;       EQU     %00100000               1.6             
      0040              QRT     EQU     %01000000               1.7              
      0080              QAPLAY  EQU     %10000000               1.8             
                        ;
      0001              QRC     EQU     %00000001               2.1     
                        ;       EQU     %00000010               2.2              
                        ;       EQU     %00000100               2.3              
      0008              QZCA    EQU     %00001000               2.4             
                        ;       EQU     %00010000               2.5             
                        ;       EQU     %00100000               2.6             
                        ;       EQU     %01000000               2.7              
                        ;       EQU     %10000000               2.8             
                        ;
                        ;******************************************************
                        ;
                        ;       INTERRUPT & RESET VECTORS
                        ;
                                **      0FFF4
                        ;
FFF4                    CHECKF  DS      4
                        ;
FFF8  EC57                      DATA    INTSER          IRQ
FFFA  9000                      DATA    INTRTI          SWI
FFFC  9000                      DATA    INTRTI          NMI
FFFE  93F3                      DATA    RESET           RES
                        ;
                                **      08000
                        ;
8000  FFF4 A000 0000            DATA    CHECKF,0A000,00000
8006  0000                      DATA    0
                        ;
                        ;******************************************************
                        ;
                                *P
                        ;
9000  3B                INTRTI  RTI
                        ;
                        ;******************************************************
                        ;
      0018              NSYMBS  EQU     24
      0018              NSYMBT  EQU     24              
                        ;
      0001              LEMO    EQU     001
      0002              PEAR    EQU     002
      0003              GRAP    EQU     003
      0004              MELO    EQU     004
      0005              BELL    EQU     005
      0006              IND     EQU     006
      0008              CHER    EQU     008
      0010              ORAN    EQU     010
      0020              PLUM    EQU     020
      0040              LEMAXE  EQU     040
      0080              PEAXE   EQU     080
      00F8              AXE     EQU     0F8
                        ;
      00FF              WILD    EQU     0FF             
                        ;
9001  03                REEL1   DB      GRAP
9002  04                        DB      MELO
9003  05                        DB      BELL
9004  10                        DB      ORAN
9005  41                        DB      LEMO+LEMAXE
9006  03                        DB      GRAP
9007  10                        DB      ORAN
9008  41                        DB      LEMO+LEMAXE
9009  20                        DB      PLUM
900A  82                        DB      PEAR+PEAXE
900B  08                        DB      CHER
900C  20                        DB      PLUM
900D  82                        DB      PEAR+PEAXE
900E  03                        DB      GRAP
900F  04                        DB      MELO
9010  05                        DB      BELL
9011  41                        DB      LEMO+LEMAXE
9012  08                        DB      CHER
9013  10                        DB      ORAN
9014  41                        DB      LEMO+LEMAXE
9015  20                        DB      PLUM
9016  82                        DB      PEAR+PEAXE
9017  04                        DB      MELO
9018  06                        DB      IND
                        ;
9019  03                REEL2   DB      GRAP
901A  04                        DB      MELO
901B  05                        DB      BELL
901C  41                        DB      LEMO+LEMAXE
901D  08                        DB      CHER       
901E  03                        DB      GRAP
901F  10                        DB      ORAN
9020  41                        DB      LEMO+LEMAXE
9021  20                        DB      PLUM
9022  82                        DB      PEAR+PEAXE
9023  06                        DB      IND 
9024  04                        DB      MELO
9025  41                        DB      LEMO+LEMAXE
9026  03                        DB      GRAP
9027  04                        DB      MELO
9028  05                        DB      BELL
9029  08                        DB      CHER            
902A  82                        DB      PEAR+PEAXE
902B  10                        DB      ORAN
902C  41                        DB      LEMO+LEMAXE
902D  20                        DB      PLUM
902E  82                        DB      PEAR+PEAXE
902F  10                        DB      ORAN
9030  20                        DB      PLUM
                        ;
9031  03                REEL3   DB      GRAP
9032  04                        DB      MELO
9033  05                        DB      BELL
9034  10                        DB      ORAN
9035  01                        DB      LEMO
9036  03                        DB      GRAP
9037  10                        DB      ORAN
9038  01                        DB      LEMO
9039  20                        DB      PLUM
903A  02                        DB      PEAR
903B  08                        DB      CHER
903C  20                        DB      PLUM
903D  02                        DB      PEAR
903E  03                        DB      GRAP
903F  04                        DB      MELO
9040  05                        DB      BELL
9041  06                        DB      IND        
9042  08                        DB      CHER
9043  10                        DB      ORAN
9044  01                        DB      LEMO
9045  20                        DB      PLUM
9046  02                        DB      PEAR
9047  F8                        DB      AXE 
9048  05                        DB      BELL
                        ;
9049  03                WREEL1  DB      GRAP
904A  04                        DB      MELO
904B  05                        DB      BELL
904C  10                        DB      ORAN
904D  41                        DB      LEMO+LEMAXE
904E  03                        DB      GRAP
904F  10                        DB      ORAN
9050  41                        DB      LEMO+LEMAXE
9051  20                        DB      PLUM
9052  82                        DB      PEAR+PEAXE
9053  08                        DB      CHER
9054  20                        DB      PLUM
9055  82                        DB      PEAR+PEAXE
9056  03                        DB      GRAP
9057  04                        DB      MELO
9058  05                        DB      BELL
9059  41                        DB      LEMO+LEMAXE
905A  08                        DB      CHER
905B  10                        DB      ORAN
905C  41                        DB      LEMO+LEMAXE
905D  20                        DB      PLUM
905E  82                        DB      PEAR+PEAXE
905F  04                        DB      MELO
9060  FF                        DB      WILD
                        ;
9061  03                WREEL2  DB      GRAP
9062  04                        DB      MELO
9063  05                        DB      BELL
9064  41                        DB      LEMO+LEMAXE
9065  08                        DB      CHER       
9066  03                        DB      GRAP
9067  10                        DB      ORAN
9068  41                        DB      LEMO+LEMAXE
9069  20                        DB      PLUM
906A  82                        DB      PEAR+PEAXE
906B  FF                        DB      WILD 
906C  04                        DB      MELO
906D  41                        DB      LEMO+LEMAXE
906E  03                        DB      GRAP
906F  04                        DB      MELO
9070  05                        DB      BELL
9071  08                        DB      CHER            
9072  82                        DB      PEAR+PEAXE
9073  10                        DB      ORAN
9074  41                        DB      LEMO+LEMAXE
9075  20                        DB      PLUM
9076  82                        DB      PEAR+PEAXE
9077  10                        DB      ORAN
9078  20                        DB      PLUM
                        ;
9079  03                WREEL3  DB      GRAP
907A  04                        DB      MELO
907B  05                        DB      BELL
907C  10                        DB      ORAN
907D  01                        DB      LEMO
907E  03                        DB      GRAP
907F  10                        DB      ORAN
9080  01                        DB      LEMO
9081  20                        DB      PLUM
9082  02                        DB      PEAR
9083  08                        DB      CHER
9084  20                        DB      PLUM
9085  02                        DB      PEAR
9086  03                        DB      GRAP
9087  04                        DB      MELO
9088  05                        DB      BELL
9089  FF                        DB      WILD        
908A  08                        DB      CHER
908B  10                        DB      ORAN
908C  01                        DB      LEMO
908D  20                        DB      PLUM
908E  02                        DB      PEAR
908F  F8                        DB      AXE 
9090  05                        DB      BELL
                        ;
                        ;- - - - - - - - - - - - - - - - - - - -
                        ;
      0001              SEVEN   EQU     001
      0006              STRAWB  EQU     006
      0008              COIN    EQU     008
      0080              TOPIND  EQU     080
      00B7              TWILD   EQU     0B7             
                        ;
9091  10                REEL4   DB      ORAN 
9092  10                        DB      ORAN 
9093  10                        DB      ORAN      
9094  10                        DB      ORAN 
9095  03                        DB      GRAP 
9096  03                        DB      GRAP 
9097  20                        DB      PLUM
9098  02                        DB      PEAR
9099  02                        DB      PEAR
909A  02                        DB      PEAR
909B  04                        DB      MELO
909C  04                        DB      MELO
909D  01                        DB      SEVEN
909E  06                        DB      STRAWB
909F  06                        DB      STRAWB
90A0  01                        DB      SEVEN   
90A1  20                        DB      PLUM 
90A2  A0                        DB      PLUM+TOPIND
90A3  20                        DB      PLUM
90A4  05                        DB      BELL
90A5  05                        DB      BELL
90A6  06                        DB      STRAWB
90A7  06                        DB      STRAWB
90A8  02                        DB      PEAR 
                        ;
90A9  06                REEL5   DB      STRAWB
90AA  06                        DB      STRAWB
90AB  06                        DB      STRAWB
90AC  06                        DB      STRAWB
90AD  20                        DB      PLUM 
90AE  08                        DB      COIN 
90AF  01                        DB      SEVEN
90B0  10                        DB      ORAN     
90B1  01                        DB      SEVEN
90B2  02                        DB      PEAR  
90B3  02                        DB      PEAR
90B4  02                        DB      PEAR                            
90B5  82                        DB      PEAR+TOPIND 
90B6  03                        DB      GRAP 
90B7  20                        DB      PLUM 
90B8  03                        DB      GRAP    
90B9  05                        DB      BELL 
90BA  04                        DB      MELO 
90BB  05                        DB      BELL
90BC  20                        DB      PLUM 
90BD  20                        DB      PLUM
90BE  10                        DB      ORAN 
90BF  10                        DB      ORAN 
90C0  10                        DB      ORAN 
                        ;
90C1  04                REEL6   DB      MELO 
90C2  06                        DB      STRAWB
90C3  06                        DB      STRAWB
90C4  86                        DB      STRAWB+TOPIND
90C5  06                        DB      STRAWB
90C6  20                        DB      PLUM 
90C7  20                        DB      PLUM
90C8  05                        DB      BELL
90C9  10                        DB      ORAN
90CA  10                        DB      ORAN
90CB  10                        DB      ORAN  
90CC  10                        DB      ORAN  
90CD  04                        DB      MELO 
90CE  01                        DB      SEVEN
90CF  01                        DB      SEVEN     
90D0  02                        DB      PEAR    
90D1  02                        DB      PEAR 
90D2  02                        DB      PEAR 
90D3  02                        DB      PEAR
90D4  05                        DB      BELL
90D5  20                        DB      PLUM
90D6  20                        DB      PLUM
90D7  03                        DB      GRAP 
90D8  03                        DB      GRAP 
                        ;
90D9  10                WREEL4  DB      ORAN 
90DA  10                        DB      ORAN 
90DB  10                        DB      ORAN      
90DC  10                        DB      ORAN 
90DD  03                        DB      GRAP 
90DE  03                        DB      GRAP 
90DF  20                        DB      PLUM
90E0  02                        DB      PEAR
90E1  02                        DB      PEAR
90E2  02                        DB      PEAR
90E3  04                        DB      MELO
90E4  04                        DB      MELO
90E5  01                        DB      SEVEN
90E6  06                        DB      STRAWB
90E7  06                        DB      STRAWB
90E8  01                        DB      SEVEN   
90E9  20                        DB      PLUM 
90EA  B7                        DB      TWILD
90EB  20                        DB      PLUM
90EC  05                        DB      BELL
90ED  05                        DB      BELL
90EE  06                        DB      STRAWB
90EF  06                        DB      STRAWB
90F0  02                        DB      PEAR 
                        ;
90F1  06                WREEL5  DB      STRAWB
90F2  06                        DB      STRAWB
90F3  06                        DB      STRAWB
90F4  06                        DB      STRAWB
90F5  20                        DB      PLUM 
90F6  08                        DB      COIN 
90F7  01                        DB      SEVEN
90F8  10                        DB      ORAN     
90F9  01                        DB      SEVEN
90FA  02                        DB      PEAR  
90FB  02                        DB      PEAR
90FC  02                        DB      PEAR            
90FD  B7                        DB      TWILD            
90FE  03                        DB      GRAP 
90FF  20                        DB      PLUM 
9100  03                        DB      GRAP    
9101  05                        DB      BELL 
9102  04                        DB      MELO 
9103  05                        DB      BELL
9104  20                        DB      PLUM 
9105  20                        DB      PLUM
9106  10                        DB      ORAN 
9107  10                        DB      ORAN 
9108  10                        DB      ORAN 
                        ;
9109  04                WREEL6  DB      MELO 
910A  06                        DB      STRAWB
910B  06                        DB      STRAWB
910C  B7                        DB      TWILD
910D  06                        DB      STRAWB
910E  20                        DB      PLUM 
910F  20                        DB      PLUM
9110  05                        DB      BELL
9111  10                        DB      ORAN
9112  10                        DB      ORAN
9113  10                        DB      ORAN  
9114  10                        DB      ORAN  
9115  04                        DB      MELO 
9116  01                        DB      SEVEN
9117  01                        DB      SEVEN     
9118  02                        DB      PEAR    
9119  02                        DB      PEAR 
911A  02                        DB      PEAR 
911B  02                        DB      PEAR
911C  05                        DB      BELL
911D  20                        DB      PLUM
911E  20                        DB      PLUM
911F  03                        DB      GRAP 
9120  03                        DB      GRAP 
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
9121  B6 0056           USRINT  LDAA    ATIME1
9124  10 27 0004                BEQ     USR020
9128  4A                        DECA
9129  B7 0056                   STAA    ATIME1
912C  B6 0057           USR020  LDAA    ATIME2
912F  10 27 0004                BEQ     USR030
9133  4A                        DECA
9134  B7 0057                   STAA    ATIME2
9137  B6 0058           USR030  LDAA    ATIME3
913A  10 27 0004                BEQ     USR040
913E  4A                        DECA
913F  B7 0058                   STAA    ATIME3
9142  B6 0059           USR040  LDAA    ATIME4
9145  10 27 0004                BEQ     USR050
9149  4A                        DECA
914A  B7 0059                   STAA    ATIME4
914D  B6 005A           USR050  LDAA    ATIME5
9150  10 27 0004                BEQ     USR060
9154  4A                        DECA
9155  B7 005A                   STAA    ATIME5
9158  9E 08             USR060  LDX     /ATIMER
915A  10 27 0004                BEQ     USR100
915E  30 1F                     DEX
9160  9F 08                     STX     /ATIMER
9162  9E 0A             USR100  LDX     /FTIMER
9164  10 27 0004                BEQ     USR200
9168  30 1F                     DEX
916A  9F 0A                     STX     /FTIMER
916C  9E 06             USR200  LDX     /RTIMER
916E  10 27 0004                BEQ     USR900
9172  30 1F                     DEX
9174  9F 06                     STX     /RTIMER
9176  9E 0C             USR900  LDX     /XTIMER
9178  10 27 0004                BEQ     USR950
917C  30 1F                     DEX
917E  9F 0C                     STX     /XTIMER
9180  9E 0E             USR950  LDX     /WTIMER
9182  10 27 0004                BEQ     USR960
9186  30 1F                     DEX
9188  9F 0E                     STX     /WTIMER
918A  9E 10             USR960  LDX     /YTIMER
918C  10 27 0004                BEQ     USR965
9190  30 1F                     DEX
9192  9F 10                     STX     /YTIMER
9194  BE 0045           USR965  LDX     MTIMER
9197  10 27 0005                BEQ     USR970
919B  30 1F                     DEX
919D  BF 0045                   STX     MTIMER
91A0  BE 003E           USR970  LDX     HTIMER
91A3  10 27 0005                BEQ     USR980
91A7  30 1F                     DEX
91A9  BF 003E                   STX     HTIMER
91AC  BE 0227           USR980  LDX     PCLOCK
91AF  30 01                     INX
91B1  BF 0227                   STX     PCLOCK
91B4  96 18                     LDAA    /GAMEON
91B6  10 27 0008                BEQ     USR990
91BA  BE 0229                   LDX     GCLOCK
91BD  30 01                     INX
91BF  BF 0229                   STX     GCLOCK
91C2  12                USR990  NOP
91C3  39                USR999  RTS
                        ;
91C4  BD EF84           LROFF   JSR     PRLPLI
91C7  80                        DB      OF
91C8  00 10 20                  DB      LREL1T,LREL1M,LREL1B
91CB  01 11 21                  DB      LREL2T,LREL2M,LREL2B
91CE  02 12 22 90               DB      LREL3T,LREL3M,LREL3B,LPTERM
91D2  39                        RTS
                        ;
91D3  34 02             RSLSER  PSHA
91D5  34 04                     PSHB
91D7                            PSHX
91D9  C6 03             RSLS06  LDAB    #3
91DB  8E 91F9                   LDX     #RSLTAB
91DE  B6 0185                   LDAA    STAKE
91E1  81 01                     CMPA    #1
91E3  10 27 0003                BEQ     RSLS10
91E7  8E 920B                   LDX     #RSLTB2
91EA  BD EF8E           RSLS10  JSR     PRLPLX
91ED  5A                        DECB
91EE  10 26 FFF8                BNE     RSLS10
91F2                            PULX
91F4  35 04                     PULB
91F6  35 02                     PULA
91F8  39                        RTS
                        ;
91F9  8F 10 80 00 20 90 RSLTAB  DB      ON,LREL1M,OF,LREL1T,LREL1B,LPTERM
91FF  8F 11 80 01 21 90         DB      ON,LREL2M,OF,LREL2T,LREL2B,LPTERM
9205  8F 12 80 02 22 90         DB      ON,LREL3M,OF,LREL3T,LREL3B,LPTERM
                        ;
920B  8F 10 8F 00 20 90 RSLTB2  DB      ON,LREL1M,ON,LREL1T,LREL1B,LPTERM
9211  8F 11 8F 01 21 90         DB      ON,LREL2M,ON,LREL2T,LREL2B,LPTERM
9217  8F 12 8F 02 22 90         DB      ON,LREL3M,ON,LREL3T,LREL3B,LPTERM
                        ;
921D  34 02             DISRLL  PSHA
921F  34 04                     PSHB
9221  B6 0185                   LDAA    STAKE
9224  81 01                     CMPA    #1
9226  10 26 005A                BNE     DRL200                  3 lines active
922A  BD F03F                   JSR     TESTLI                  1 line active
922D  31                        DB      LHOLD1
922E  10 27 000C                BEQ     DRL110
9232  BD EF84                   JSR     PRLPLI
9235  8F 10 80 00 20 90         DB      ON,LREL1M,OF,LREL1T,LREL1B,LPTERM       held or no hold av.
923B  7E 9247                   BRA     DRL115
923E  BD EF84           DRL110  JSR     PRLPLI
9241  83 10 80 00 20 90         DB      F1,LREL1M,OF,LREL1T,LREL1B,LPTERM       hold active
9247  BD F03F           DRL115  JSR     TESTLI                  
924A  32                        DB      LHOLD2
924B  10 27 000C                BEQ     DRL120
924F  BD EF84                   JSR     PRLPLI
9252  8F 11 80 01 21 90         DB      ON,LREL2M,OF,LREL2T,LREL2B,LPTERM       held or no hold av.
9258  7E 9264                   BRA     DRL125
925B  BD EF84           DRL120  JSR     PRLPLI
925E  83 11 80 01 21 90         DB      F1,LREL2M,OF,LREL2T,LREL2B,LPTERM       hold active
9264  BD F03F           DRL125  JSR     TESTLI                  
9267  40                        DB      LHOLD3
9268  10 27 000C                BEQ     DRL130
926C  BD EF84                   JSR     PRLPLI
926F  8F 12 80 02 22 90         DB      ON,LREL3M,OF,LREL3T,LREL3B,LPTERM       held or no hold av.
9275  7E 9281                   BRA     DRL135
9278  BD EF84           DRL130  JSR     PRLPLI
927B  83 12 80 02 22 90         DB      F1,LREL3M,OF,LREL3T,LREL3B,LPTERM       hold active
9281  7E 92D5           DRL135  BRA     DRL900
9284  BD F03F           DRL200  JSR     TESTLI                  3 line active
9287  31                        DB      LHOLD1
9288  10 27 000B                BEQ     DRL210
928C  BD EF84                   JSR     PRLPLI
928F  8F 10 00 20 90            DB      ON,LREL1M,LREL1T,LREL1B,LPTERM  held or no hold av.
9294  7E 929F                   BRA     DRL215
9297  BD EF84           DRL210  JSR     PRLPLI
929A  83 10 00 20 90            DB      F1,LREL1M,LREL1T,LREL1B,LPTERM  hold active
929F  BD F03F           DRL215  JSR     TESTLI                  
92A2  32                        DB      LHOLD2
92A3  10 27 000B                BEQ     DRL220
92A7  BD EF84                   JSR     PRLPLI
92AA  8F 11 01 21 90            DB      ON,LREL2M,LREL2T,LREL2B,LPTERM  held or no hold av.
92AF  7E 92BA                   BRA     DRL225
92B2  BD EF84           DRL220  JSR     PRLPLI
92B5  83 11 01 21 90            DB      F1,LREL2M,LREL2T,LREL2B,LPTERM  hold active
92BA  BD F03F           DRL225  JSR     TESTLI                  
92BD  40                        DB      LHOLD3
92BE  10 27 000B                BEQ     DRL230
92C2  BD EF84                   JSR     PRLPLI
92C5  8F 12 02 22 90            DB      ON,LREL3M,LREL3T,LREL3B,LPTERM  held or no hold av.
92CA  7E 92D5                   BRA     DRL900
92CD  BD EF84           DRL230  JSR     PRLPLI
92D0  83 12 02 22 90            DB      F1,LREL3M,LREL3T,LREL3B,LPTERM  hold active
92D5  35 04             DRL900  PULB
92D7  35 02                     PULA
92D9  39                        RTS
                        ;
92DA  34 02             FLAWIN  PSHA
92DC  BD 91C4                   JSR     LROFF
92DF  B6 0088                   LDAA    R1DIST+0
92E2  81 FF                     CMPA    #-1
92E4  10 27 003E                BEQ     FLA200          lower line
92E8  81 01                     CMPA    #1
92EA  10 27 0070                BEQ     FLA300          top line
92EE  B6 0041           FLA100  LDAA    WINNUM
92F1  81 01                     CMPA    #1
92F3  10 27 0013                BEQ     FLA110
92F7  81 02                     CMPA    #2
92F9  10 27 001B                BEQ     FLA120
92FD  BD EF84                   JSR     PRLPLI
9300  85 33 34 10 11 12         DB      FF1,LLWL1A,LLWL1B,LREL1M,LREL2M,LREL3M,LPTERM
9307  7E 9393                   BRA     FLA900
930A  BD EF84           FLA110  JSR     PRLPLI
930D  85 33 34 10 80 11         DB      FF1,LLWL1A,LLWL1B,LREL1M,OF,LREL2M,LREL3M,LPTERM
9315  7E 9393                   BRA     FLA900
9318  BD EF84           FLA120  JSR     PRLPLI
931B  85 33 34 10 11 80         DB      FF1,LLWL1A,LLWL1B,LREL1M,LREL2M,OF,LREL3M,LPTERM
9323  7E 9393                   BRA     FLA900
9326  B6 0041           FLA200  LDAA    WINNUM
9329  81 01                     CMPA    #1
932B  10 27 0013                BEQ     FLA210
932F  81 02                     CMPA    #2
9331  10 27 001B                BEQ     FLA220
9335  BD EF84                   JSR     PRLPLI
9338  85 53 54 20 21 22         DB      FF1,LLWL3A,LLWL3B,LREL1B,LREL2B,LREL3B,LPTERM
933F  7E 9393                   BRA     FLA900
9342  BD EF84           FLA210  JSR     PRLPLI
9345  85 53 54 20 80 21         DB      FF1,LLWL3A,LLWL3B,LREL1B,OF,LREL2B,LREL3B,LPTERM
934D  7E 9393                   BRA     FLA900
9350  BD EF84           FLA220  JSR     PRLPLI
9353  85 53 54 20 21 80         DB      FF1,LLWL3A,LLWL3B,LREL1B,LREL2B,OF,LREL3B,LPTERM
935B  7E 9393                   BRA     FLA900
935E  B6 0041           FLA300  LDAA    WINNUM
9361  81 01                     CMPA    #1
9363  10 27 0013                BEQ     FLA310
9367  81 02                     CMPA    #2
9369  10 27 001B                BEQ     FLA320
936D  BD EF84                   JSR     PRLPLI
9370  85 43 44 00 01 02         DB      FF1,LLWL2A,LLWL2B,LREL1T,LREL2T,LREL3T,LPTERM
9377  7E 9393                   BRA     FLA900
937A  BD EF84           FLA310  JSR     PRLPLI
937D  85 43 44 00 80 01         DB      FF1,LLWL2A,LLWL2B,LREL1T,OF,LREL2T,LREL3T,LPTERM
9385  7E 9393                   BRA     FLA900
9388  BD EF84           FLA320  JSR     PRLPLI
938B  85 43 44 00 01 80         DB      FF1,LLWL2A,LLWL2B,LREL1T,LREL2T,OF,LREL3T,LPTERM
9393  35 02             FLA900  PULA
9395  39                        RTS
                        ;
                        ;-----------------------------------------------------
                        ;
9396  7E BBA1           RSTUCK  JMP     TALARM
                        ;
9399  8E FFFA           SPCHEK  LDX     #-6
939C  A6 89 002D        ROK1    LDAA    R1SCHK+6,X
93A0  10 27 0003                BEQ     ROK
93A4  7E 9396                   JMP     RSTUCK
93A7  30 01             ROK     INX
93A9  10 26 FFEF                BNE     ROK1
93AD  39                        RTS
                        ;
93AE  8E FFFA           SPLUG   LDX     #-6
93B1  A6 89 017F        ROK2    LDAA    R1NVST+6,X
93B5  A1 89 0088                CMPA    R1POSN+6,X
93B9  10 27 0003                BEQ     ROK3
93BD  7E 9396                   JMP     RSTUCK
93C0  30 01             ROK3    INX
93C2  10 26 FFEB                BNE     ROK2
93C6  39                        RTS
                        ;
93C7  8E FFFD           TCHEK   LDX     #-3
93CA  A6 89 0088        TOK2    LDAA    R1POSN+6,X
93CE  81 17                     CMPA    #017
93D0  10 26 001E                BNE     TOK4
93D4  30 01                     INX
93D6  10 26 FFF0                BNE     TOK2
93DA  8E FFFD                   LDX     #-3
93DD  A6 89 0088        TOK2A   LDAA    R1POSN+6,X
93E1  A1 89 017F                CMPA    R1NVST+6,X
93E5  10 27 0003                BEQ     TOK3
93E9  7E 9396                   JMP     RSTUCK
93EC  30 01             TOK3    INX
93EE  10 26 FFEB                BNE     TOK2A
93F2  39                TOK4    RTS
                        ;
                        ;-----------------------------------------------------
                        ;
93F3  10 CE 07FF        RESET   LDS     #07FF
93F7  1A 10                     SEI
93F9  BD D8A1                   JSR     MK4INI
                        ;
93FC  BD AC8B                   JSR     I68681
                        ;
93FF  7F 003D                   CLR     CRINH
                        ;
9402  BD EC44           IN20    JSR     RHBANK
9405  84 01                     ANDA    #QRC
9407  10 26 0007                BNE     IN25
940B  BD EF0B                   JSR     CHKNVR
940E  10 27 0056                BEQ     IN30
9412  BD EEFA           IN25    JSR     CLRNVR
                        ;
9415  BD EF15                   JSR     SETNVR
9418  BE 0045           IN27    LDX     MTIMER
941B  10 26 000B                BNE     IN28
941F  8E 0014                   LDX     #20             
9422  BF 0045                   STX     MTIMER
9425  BD D511                   JSR     MUSOKI
9428  0105                      DATA    ORAMCL
942A  BD EC44           IN28    JSR     RHBANK
942D  84 01                     ANDA    #QRC
942F  10 26 FFE5                BNE     IN27
                        ;
                        ;
9433  8E 03E8                   LDX     #1000
9436  BF 019C                   STX     POT
9439  BD B00C                   JSR     SETDRP
943C  BD EF15                   JSR     SETNVR
                        ;
943F  BD D4D9                   JSR     SILENT
                        ;
9442  86 02                     LDAA    #QRHUS
9444  B7 0181                   STAA    GFLAGS
9447  86 02                     LDAA    #2
9449  B7 0179                   STAA    R1NVST+0
944C  B7 017A                   STAA    R1NVST+1
944F  B7 017B                   STAA    R1NVST+2
9452  B7 017C                   STAA    R1NVST+3
9455  B7 017D                   STAA    R1NVST+4
9458  B7 017E                   STAA    R1NVST+5
945B  86 01                     LDAA    #1
945D  B7 0185                   STAA    STAKE
9460  B7 0188                   STAA    OSTAKE
9463  86 20                     LDAA    #32
9465  B7 0186                   STAA    TSTAKE
                        ;
9468  8E A000           IN30    LDX     #0A000
946B  4F                        CLRA
946C  5F                        CLRB
946D  EB 89 0000        IN40    ADDB    0,X
9471  34 04 ABE0                ABA
9475  30 01                     INX
9477  8C 0000                   CPX     #00000
947A  10 26 FFEF                BNE     IN40
947E  4D                        TSTA
947F  10 26 FFFC                BNE     $
9483  5D                        TSTB
9484  10 26 FFFC                BNE     $
                        ;
9488  B6 0800                   LDAA    00800
948B  84 F8                     ANDA    #0F8
948D  81 A0                     CMPA    #PALCOD                                                 
948F  10 27 0003                BEQ     NOSUMC          
9493  7E 9493                   BRA     $
                        ;
9496  86 10             NOSUMC  LDAA    #NATION
9498  81 10                     CMPA    #CZ
949A  10 26 0019                BNE     IN60
949E  86 01                     LDAA    #TYPE
94A0  81 02                     CMPA    #2
94A2  10 26 0011                BNE     IN60
94A6  B6 0185                   LDAA    STAKE
94A9  81 02                     CMPA    #2
94AB  10 23 0008                BLS     IN60
94AF  86 01                     LDAA    #1              
94B1  B7 0185                   STAA    STAKE
94B4  B7 0188                   STAA    OSTAKE
94B7  BD E000           IN60    JSR     DYCRD1
94BA  BD B177                   JSR     DISHM
94BD  BD E190                   JSR     DISPOT
94C0  BD E1C6                   JSR     DISSTK
94C3  BD A8C8                   JSR     DISARR
                        ;
94C6  BD D7DE                   JSR     INIRLS
94C9  BD AAAA                   JSR     TOPROF
                        ;
94CC  7F 001C                   CLR     TOPFLG
                        ;
                        ;       
94CF  BD CD4A           IN66    JSR     LPANON
                        ;
94D2  86 10                     LDAA    #NATION
94D4  81 10                     CMPA    #CZ
94D6  10 26 000A                BNE     JUMP            
94DA  B6 018E                   LDAA    REFLAG
94DD  10 27 0003                BEQ     JUMP
94E1  BD C904                   JSR     PREFRS
                        ;
94E4  B6 0181           JUMP    LDAA    GFLAGS
94E7  84 DE                     ANDA    #0FF-(QDOOR+QRHAV)
94E9  B7 0181                   STAA    GFLAGS
94EC  B6 0182                   LDAA    GSTATE
94EF  7E 94F2                   BRA     IN70
                        ;
94F2  12                IN70    NOP
                        ;
94F3  7E 953D           IN80    JMP     ZC000
                        ;
94F6  BD CD4A           ATOFF   JSR     LPANON
94F9  BD EF84                   JSR     PRLPLI
94FC  80                        DB      OF
94FD  29 2A 2B 2C 38 39         DB      LSPOT,LS10,LS50,LS30,LSMYS,LS40,LS20,LS60,LPTERM
9506  39                        RTS
                        ;
9507  34 02             RESREL  PSHA
9509  34 04                     PSHB
950B                            PSHX
950D  8E FFFD                   LDX     #-3
9510  A6 89 0085        RR62    LDAA    R1POSN+3,X
9514  E6 89 017C                LDAB    R1NVST+3,X
9518  34 04 A0E0                SBA
951C  10 2A 0002                BPL     RR64
9520  8B 18             RR63    ADDA    #NSYMBS
9522  A7 89 008B        RR64    STAA    R1DIST+3,X
9526  30 01                     INX
9528  10 26 FFE4                BNE     RR62
952C  BD D599                   JSR     GOREEL  
952F  7D 00CA           RR65    TST     RSDGO
9532  10 26 FFF9                BNE     RR65
9536                            PULX
9538  35 04                     PULB
953A  35 02                     PULA
953C  39                        RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
953D  BD EF15           ZC000   JSR     SETNVR
9540  8E 0BB8                   LDX     #3000           Prepare Z.C.A.
9543  9F 08                     STX     /ATIMER
9545  8E C38D                   LDX     #BLAMPS         
9548  BF 0025                   STX     AZCPTR
954B  8E 0DAC                   LDX     #3500
954E  9F 06                     STX     /RTIMER
9550  9F 0E                     STX     /WTIMER
9552  BD 91D3                   JSR     RSLSER
9555  BE 0198                   LDX     CRED1
9558  10 26 00D7                BNE     ZC200
                        ;
955C  7F 0018                   CLR     GAMEON
                        ;
955F  8E 03E8                   LDX     #1000
9562  BF 0164                   STX     QTIMER
9565  B6 011D           ZC100   LDAA    SWSTAT+6
9568  84 C0                     ANDA    #QAPLAY+QRT
956A  10 27 0005                BEQ     ZC110
956E  86 01                     LDAA    #001
9570  B7 013F                   STAA    NOTEIN          AUTOPLAY
                        ;
9573  BE 019A           ZC110   LDX     HMETER
9576  10 26 000C                BNE     ZC150
957A  BD C2F2                   JSR     DOZCAT          Operate Z.C.A.
957D  BD BE90                   JSR     HWHIRL
9580  BD BF02                   JSR     DOZMES
9583  BD 973C                   JSR     RESDIS
9586  BD B050           ZC150   JSR     MALARM
9589  BD B265                   JSR     UPDOOR
958C  BD E4B2                   JSR     DOVMET
958F  BD CAA2                   JSR     REFILL
9592  BD B366                   JSR     UPVCLK
9595  BD E802                   JSR     DOTEST
9598  10 26 FE57                BNE     RESET
959C  BD BB9A                   JSR     DOCRED
959F  BD BAA5                   JSR     KEYIN
95A2  BE 019A                   LDX     HMETER
95A5  10 27 004A                BEQ     ZC180
95A9  BD EFB9                   JSR     PRLPSI
95AC  8F 52                     DB      ON,LTRANS
95AE  BD F098                   JSR     TESTSI
95B1  0A                        DB      STRANS
95B2  10 27 003D                BEQ     ZC180 
95B6  C6 04             ZCCL10  LDAB    #4              collects top meter in 4s (or lower) to credit
95B8  7D 019A                   TST     HMETER+0
95BB  10 26 000D                BNE     ZCCL11
95BF  B6 019B                   LDAA    HMETER+1
95C2  81 04                     CMPA    #4
95C4  10 24 0004                BHS     ZCCL11
95C8  34 02 E6E0                TAB
95CC  34 04             ZCCL11  PSHB
95CE  BD B158                   JSR     ACMCRD
95D1  35 04                     PULB
95D3  5A                        DECB
95D4  10 26 FFF4                BNE     ZCCL11
95D8  BD EF15                   JSR     SETNVR
95DB  BD E000                   JSR     DYCRD1
95DE  BD B177                   JSR     DISHM
95E1  BD B10C                   JSR     BLIP
95E4  BE 019A                   LDX     HMETER
95E7  10 27 0008                BEQ     ZC180
95EB  BD F098                   JSR     TESTSI
95EE  0A                        DB      STRANS
95EF  10 26 FFC3                BNE     ZCCL10
                        ;
95F3  BE 0198           ZC180   LDX     CRED1
95F6  10 27 FF6B                BEQ     ZC100
                        ;
95FA  7C 0018                   INC     GAMEON
                        ;
95FD  96 00                     LDAA    /ATRFLG
95FF  10 27 0030                BEQ     ZC200
9603  7F 001E                   CLR     HWCNT
9606  7F 001B                   CLR     ATMPTR
9609  7F 001C                   CLR     ATMPTR+1
960C  7F 0000                   CLR     ATRFLG
960F  7F 001C                   CLR     TOPFLG
9612  BD B177                   JSR     DISHM
9615  BD E190                   JSR     DISPOT
9618  BD A8C8                   JSR     DISARR
961B  BD E1C6                   JSR     DISSTK
961E  BD A1A3                   JSR     DTSTAK
9621  BD 94F6                   JSR     ATOFF
9624  BD AAAA                   JSR     TOPROF
9627  BD 91D3                   JSR     RSLSER
962A  8E 0000                   LDX     #0
962D  BD B164                   JSR     DISXWN
9630  BD E000                   JSR     DYCRD1
                        ;
9633  12                ZC200   NOP
                        ;
9634  B6 0181                   LDAA    GFLAGS
9637  34 02 E6E0                TAB
963B  C4 26                     ANDB    #QDOOR+QRWIN+QRHUS      := New "GFLAGS"
963D  85 86                     BITA    #QRWIN+QRHUS+QTEST
963F  10 26 000A                BNE     ZC300
9643  7D 0189                   TST     HOLCAN
9646  10 26 0003                BNE     ZC300   hold cancelled by stake raise before a reset
                        ;
964A  BD 96C3           ZC250   JSR     FL4HLD
964D  F7 0181           ZC300   STAB    GFLAGS
                        ;
9650  7F 0002                   CLR     AHPATT
9653  C5 01                     BITB    #QRHAV          If Hold available ...
9655  10 27 0032                BEQ     ZC500
9659  B6 011D                   LDAA    SWSTAT+6
965C  85 40                     BITA    #QRT
965E  10 26 0029                BNE     ZC500           AUTOPLAY WITHOUT HOLD
9662  BD B419           ZC310   JSR     PREWAH          ... AUTOmatic Holds
9665  97 02                     STAA    /AHPATT
                        ;       
9667  D6 02             ZC400   LDAB    /AHPATT
9669  C4 0F                     ANDB    #00F
966B  10 27 0019                BEQ     ZC450
966F  7F 0042                   CLR     FMASK
9672  86 31                     LDAA    #LHOLD1
9674  BD 969A                   BSR     ZC800
9677  86 32                     LDAA    #LHOLD2
9679  BD 969A                   BSR     ZC800
967C  86 40                     LDAA    #LHOLD3
967E  BD 969A                   BSR     ZC800
9681  12                        NOP                     JSR     AH1SND
9682  BD EF84                   JSR     PRLPLI
9685  8C 30 90                  DB      F2,LCHOLD,LPTERM
9688  BD 921D           ZC450   JSR     DISRLL          service lower reel lamps
                        ;
968B  8E 05DC           ZC500   LDX     #1500
968E  BF 0164                   STX     QTIMER
9691  8E 003C                   LDX     #60
9694  BF 0010                   STX     YTIMER
                        ;
9697  7E 975C                   JMP     SL000
                        ;
969A  54                ZC800   LSRB
969B  10 24 0018                BCC     ZC880
969F  34 04                     PSHB
96A1  C6 8F                     LDAB    #ON
96A3  BD EFD7                   JSR     PRLPST
96A6  7D 0042                   TST     FMASK
96A9  10 26 0004                BNE     ZC850
96AD  12                        NOP                     JSR     AH1SND
96AE  7E 96B2                   BRA     ZC860
96B1  12                ZC850   NOP                     JSR     AH2SND
96B2  7C 0042           ZC860   INC     FMASK
96B5  35 04                     PULB
96B7  39                ZC880   RTS
                        ;
96B8  12                AH2SND  NOP
96B9  BD D511           AH1SND  JSR     MUSOKI
96BC  0117                      DATA    OAHOLD
96BE  BD EF5E                   JSR     DELAYI
96C1  1E                        DB      30              sample time
96C2  39                        RTS
                        ;
96C3  CA 01             FL4HLD  ORAB    #QRHAV          Note HOLD available
96C5  F7 0181                   STAB    GFLAGS
96C8  BD EF84           FLSHLD  JSR     PRLPLI
96CB  83 31 32 40               DB      F1,LHOLD1,LHOLD2,LHOLD3
96CF  80 30                     DB      OF,LCHOLD
96D1  90                        DB      LPTERM
96D2  39                        RTS
                        ;
96D3  96 00             ATEND   LDAA    /ATRFLG
96D5  10 27 0009                BEQ     ATE900
96D9  7F 0019                   CLR     ATRSTG
96DC  7F 0000                   CLR     ATRFLG
96DF  BD 94F6                   JSR     ATOFF
96E2  39                ATE900  RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                        ;       Auto-Hold  Calculation  Table
                        ;
      0008              R4      EQU     %00001000
      0004              R3      EQU     %00000100
      0002              R2      EQU     %00000010
      0001              R1      EQU     %00000001
                        ;
                        A234    MACR
                                DB      \A
                                DB      %1100,(\B<4)+R1+R2
                                DB      %1010,(\B<4)+R1+R3
                                DB      %0110,(\B<4)+R2+R3
                                DB      0
                                ENDM
                        ;
96E3                    AHDTAB  A234    ,IND,8
96EB                            A234    ,BELL,7
96F3                            A234    ,MELO,6
96FB                            A234    ,GRAP,5
9703                            A234    ,PEAR,5
970B                            A234    ,PEAXE,4
9713                            A234    ,PLUM,4
971B                            A234    ,ORAN,3
9723                            A234    ,LEMO,3
972B                            A234    ,LEMAXE,2
9733                            A234    ,CHER,2
973B  00                        DB      0
                        ;
                        ;-------------------------------------------------------
                        ;
973C  7D 001B           RESDIS  TST     ATMPTR
973F  10 26 0018                BNE     SL050
9743  BE 0164                   LDX     QTIMER
9746  10 26 0011                BNE     SL050
974A  8E 05DC                   LDX     #1500
974D  BF 0164                   STX     QTIMER
9750  BD DDD4                   JSR     PROFDI
9753  11                        DB      QRESET
9754  80                        DB      080
9755  BD E000           SL011   JSR     DYCRD1
9758  BD E1C6                   JSR     DISSTK
975B  39                SL050   RTS
                        ;
975C  BD EF15           SL000   JSR     SETNVR
975F  BD B265                   JSR     UPDOOR
9762  BD B050           SL010   JSR     MALARM
9765  BD 973C                   JSR     RESDIS
9768  F6 0181                   LDAB    GFLAGS
976B  BD F098                   JSR     TESTSI
976E  17                        DB      SBDOOR
976F  10 27 0018                BEQ     SL100
9773  BD BA2E                   JSR     ORPOSN
9776  10 2B 0011                BMI     SL100           If not 1st game ...
977A  C5 80                     BITB    #QTEST
977C  10 26 000B                BNE     SL100
9780  BD 96C3                   JSR     FL4HLD
9783  BD 921D                   JSR     DISRLL
9786  CA 80                     ORAB    #QTEST
9788  F7 0181                   STAB    GFLAGS
                        ;
978B  BD E802           SL100   JSR     DOTEST
978E  10 26 FC61                BNE     RESET
                        ;
9792  BD BB9A                   JSR     DOCRED
9795  BD BAA5                   JSR     KEYIN
9798  BD CAA2                   JSR     REFILL
979B  BD B366                   JSR     UPVCLK
                        ;
979E  BD A23F                   JSR     AUTHMC          check for auto HM collect
                        ;
97A1  BE 019A                   LDX     HMETER
97A4  10 27 004A                BEQ     STD0
97A8  BD EFB9                   JSR     PRLPSI
97AB  8F 52                     DB      ON,LTRANS
97AD  BD F098                   JSR     TESTSI
97B0  0A                        DB      STRANS
97B1  10 27 006E                BEQ     SL101 
97B5  C6 04             HMCL10  LDAB    #4              collects top meter in 4s (or lower) to credit
97B7  7D 019A                   TST     HMETER+0
97BA  10 26 000D                BNE     HMCL11
97BE  B6 019B                   LDAA    HMETER+1
97C1  81 04                     CMPA    #4
97C3  10 24 0004                BHS     HMCL11
97C7  34 02 E6E0                TAB
97CB  34 04             HMCL11  PSHB
97CD  BD B158                   JSR     ACMCRD
97D0  35 04                     PULB
97D2  5A                        DECB
97D3  10 26 FFF4                BNE     HMCL11
97D7  BD EF15                   JSR     SETNVR
97DA  BD E000                   JSR     DYCRD1
97DD  BD B177                   JSR     DISHM
97E0  BD B10C                   JSR     BLIP
97E3  BE 019A                   LDX     HMETER
97E6  10 27 02AA                BEQ     HMCL20
97EA  BD F098                   JSR     TESTSI
97ED  0A                        DB      STRANS
97EE  10 26 FFC3                BNE     HMCL10
                        ;
97F2  B6 011D           STD0    LDAA    SWSTAT+6
97F5  85 04                     BITA    #QTRANS
97F7  10 26 0028                BNE     SL101   
97FB  BE 0198                   LDX     CRED1
97FE  8C 0004                   CPX     #4
9801  10 23 001E                BLS     SL101
9805  BD EFB9           STD000  JSR     PRLPSI
9808  83 52                     DB      F1,LTRANS
980A  BD F098           STD001  JSR     TESTSI
980D  0A                        DB      STRANS
980E  10 27 0011                BEQ     SL101
9812  BD EFB9           STD002  JSR     PRLPSI
9815  8F 52                     DB      ON,LTRANS
9817  BD AC49                   JSR     TCRDHM
981A  12                        NOP                     
981B  BD F098           STD005  JSR     TESTSI
981E  0A                        DB      STRANS
981F  10 26 FFF8                BNE     STD005
                        ;
9823  BE 019A           SL101   LDX     HMETER
9826  10 26 000D                BNE     SL102   
982A  BD BFE6                   JSR     DOCOLL
982D  10 26 0006                BNE     SL102
9831  BD BA35                   JSR     HSOFF
9834  7E 953D                   JMP     ZC000
                        ;
9837  F6 0181           SL102   LDAB    GFLAGS
983A  C5 01                     BITB    #QRHAV
983C  10 27 00C5                BEQ     SL300
9840  BD F098           SL105   JSR     TESTSI
9843  18                        DB      SCHOLD
9844  10 27 0013                BEQ     SL110
9848  BD F03F                   JSR     TESTLI
984B  30                        DB      LCHOLD
984C  10 26 000B                BNE     SL110
9850  BD 96C3                   JSR     FL4HLD
9853  BD 921D                   JSR     DISRLL
9856  BD D511                   JSR     MUSOKI
9859  0118                      DATA    OCHOLD
                        ;
985B  8E 98FB           SL110   LDX     #HSLTAB
985E  A6 89 0000        SL120   LDAA    0,X
9862  10 2B 009F                BMI     SL300
9866  BD F0A4                   JSR     TESTSW          ... and Switch pressed
9869  10 27 0085                BEQ     SL200
986D  F6 0181                   LDAB    GFLAGS
9870  C5 80                     BITB    #QTEST
9872  10 27 003B                BEQ     SL150           (If in TEST Mode ...
9876  C6 01                     LDAB    #1
9878  BD F098                   JSR     TESTSI
987B  18                        DB      SCHOLD          ... and CANCEL pressed
987C  10 26 0009                BNE     SL130
9880  50                        NEGB
9881  BD F098                   JSR     TESTSI
9884  1E                        DB      SNUDUP
9885  10 27 0028                BEQ     SL150
9889  96 0B             SL130   LDAA    /FTIMER+1
988B  10 26 001F                BNE     SL140
988F  A6 89 0002                LDAA    2,X
9893  8E 0088                   LDX     #R1DIST
9896  BD F0E7                   JSR     ADDA2X
9899  E7 89 0000                STAB    0,X             ... NUDGE reel)
989D  D7 15                     STAB    /NUDFLG
989F  BD D599                   JSR     GOREEL  
98A2  7D 00CA           SL131   TST     RSDGO
98A5  10 26 FFF9                BNE     SL131
98A9  8E 000A                   LDX     #10
98AC  9F 0A                     STX     /FTIMER
98AE  7E 9905           SL140   BRA     SL300
                        ;
98B1  BD F098           SL150   JSR     TESTSI
98B4  18                        DB      SCHOLD
98B5  10 26 0039                BNE     SL200
98B9  F6 0181           SL160   LDAB    GFLAGS
98BC  C5 01                     BITB    #QRHAV
98BE  10 27 0030                BEQ     SL200
98C2  A6 89 0001                LDAA    1,X
98C6  BD F04E                   JSR     TESTLP
98C9  10 2E 0025                BGT     SL200
98CD  34 04                     PSHB
98CF  C6 8F                     LDAB    #ON
98D1  BD EFD7                   JSR     PRLPST          ... light HOLD Lamp
98D4  35 04                     PULB
98D6  BD EF84                   JSR     PRLPLI
98D9  8C 30 90                  DB      F2,LCHOLD,LPTERM
98DC  BD 921D                   JSR     DISRLL
98DF  7D 0177                   TST     NEWCRD
98E2  10 26 000C                BNE     SL200
98E6  7D 0178                   TST     NEWCRD+1
98E9  10 26 0005                BNE     SL200
98ED  BD D511                   JSR     MUSOKI
98F0  0117                      DATA    OHOLD
                        ;
98F2  30 01             SL200   INX
98F4  30 01                     INX
98F6  30 01                     INX
98F8  7E 985E                   BRA     SL120
                        ;
98FB  19 31 00          HSLTAB  DB      SHOLD1,LHOLD1,0
98FE  1A 32 01                  DB      SHOLD2,LHOLD2,1
9901  1B 40 02                  DB      SHOLD3,LHOLD3,2
9904  FF                        DB      -1
                        ;
9905  F6 0185           SL300   LDAB    STAKE
9908  C1 01                     CMPB    #1
990A  10 26 0012                BNE     SL301
990E  BE 0198                   LDX     CRED1
9911  8C 0001                   CPX     #1
9914  10 22 002D                BHI     SL302
9918  BD EFB9                   JSR     PRLPSI
991B  80 50                     DB      OF,LSTAKE
991D  7E 9A39                   BRA     SL310
9920  7D 0198           SL301   TST     CRED1+0
9923  10 26 001E                BNE     SL302           OK
9927  B6 0199                   LDAA    CRED1+1
992A  34 04 A1E0                CBA
992E  10 24 0013                BHS     SL302           OK
9932  C1 02                     CMPB    #2
9934  10 27 00A3                BEQ     SL307           reset stake from 2 to 1
9938  C6 02                     LDAB    #2
993A  34 04 A1E0                CBA
993E  10 24 0094                BHS     SL306           reset stake from 5 to 2
9942  7E 99DB                   BRA     SL307           reset stake from 5 to 1
9945  BD EFB9           SL302   JSR     PRLPSI
9948  83 50                     DB      F1,LSTAKE
                        ;
994A  B6 011D                   LDAA    SWSTAT+6
994D  85 80                     BITA    #QAPLAY
994F  10 27 003C                BEQ     SL304
9953  86 10                     LDAA    #NATION
9955  81 10                     CMPA    #CZ
9957  10 26 001E                BNE     SL303
995B  86 01                     LDAA    #TYPE
995D  81 02                     CMPA    #2
995F  10 26 0016                BNE     SL303
9963  B6 0185                   LDAA    STAKE           
9966  C1 02                     CMPB    #2
9968  10 27 0023                BEQ     SL304
996C  BE 0198                   LDX     CRED1
996F  8C 0002                   CPX     #2
9972  10 24 0060                BHS     SL306
9976  7E 998F                   BRA     SL304
9979  7E 998F           SL303   JMP     SL304                   
997C  F6 0185                   LDAB    STAKE           autoplay - set to 5 if enough credit
997F  C1 05                     CMPB    #5
9981  10 27 000A                BEQ     SL304           
9985  BE 0198                   LDX     CRED1           
9988  8C 0005                   CPX     #5
998B  10 24 0042                BHS     SL305
                        ;
998F  BD F098           SL304   JSR     TESTSI
9992  1E                        DB      SSTAKE
9993  10 27 00A2                BEQ     SL310
9997  BD EFB9                   JSR     PRLPSI
999A  8F 50                     DB      ON,LSTAKE
999C  86 10                     LDAA    #NATION
999E  81 10                     CMPA    #CZ
99A0  10 26 0014                BNE     SL3049
99A4  86 01                     LDAA    #TYPE
99A6  81 02                     CMPA    #2
99A8  10 26 000C                BNE     SL3049
99AC  F6 0185                   LDAB    STAKE           
99AF  C1 02                     CMPB    #2
99B1  10 24 0026                BHS     SL307
99B5  7E 99D6                   JMP     SL306
99B8  F6 0185           SL3049  LDAB    STAKE
99BB  C1 05                     CMPB    #5
99BD  10 27 001A                BEQ     SL307
99C1  C1 01                     CMPB    #1
99C3  10 27 000F                BEQ     SL306
99C7  BE 0198                   LDX     CRED1
99CA  8C 0005                   CPX     #5
99CD  10 25 000A                BLO     SL307
99D1  C6 05             SL305   LDAB    #5
99D3  7E 99DD                   BRA     SL308
99D6  C6 02             SL306   LDAB    #2
99D8  7E 99DD                   BRA     SL308
99DB  C6 01             SL307   LDAB    #1
99DD  F7 0185           SL308   STAB    STAKE
99E0  BD E1C6                   JSR     DISSTK
99E3  BD D511                   JSR     MUSOKI
99E6  0113                      DATA    OSLSTK
99E8  B6 0181                   LDAA    GFLAGS
99EB  85 01                     BITA    #QRHAV
99ED  10 27 0023                BEQ     SL3085
99F1  F6 0185                   LDAB    STAKE
99F4  F1 0188                   CMPB    OSTAKE
99F7  10 27 0033                BEQ     SL309
99FB  86 01                     LDAA    #1              remove holds    
99FD  B7 0189                   STAA    HOLCAN
9A00  F6 0181                   LDAB    GFLAGS
9A03  C4 FE                     ANDB    #0FF-QRHAV              
9A05  F7 0181                   STAB    GFLAGS
9A08  BD EF84                   JSR     PRLPLI
9A0B  80 31 32 40 30            DB      OF,LHOLD1,LHOLD2,LHOLD3,LCHOLD
9A10  90                        DB      LPTERM
9A11  7E 9A2E                   BRA     SL309
9A14  7D 0189           SL3085  TST     HOLCAN
9A17  10 27 0013                BEQ     SL309
9A1B  F6 0185                   LDAB    STAKE
9A1E  F1 0188                   CMPB    OSTAKE
9A21  10 26 0009                BNE     SL309
9A25  7F 0189                   CLR     HOLCAN
9A28  F6 0181                   LDAB    GFLAGS
9A2B  BD 96C3                   JSR     FL4HLD          reinstate holds
9A2E  BD 921D           SL309   JSR     DISRLL
9A31  BD F098           SL3095  JSR     TESTSI
9A34  1E                        DB      SSTAKE
9A35  10 26 FFF8                BNE     SL3095
                        ;       
9A39  BE 019A           SL310   LDX     HMETER
9A3C  10 27 0246                BEQ     SL340
9A40  BD A1A3                   JSR     DTSTAK
9A43  BD EFB9           HM010   JSR     PRLPSI
9A46  83 72                     DB      F1,LCCASH
9A48  BD F098                   JSR     TESTSI
9A4B  09                        DB      SCCASH
9A4C  10 27 0065                BEQ     HM300
9A50  BD EF84           HMCALL  JSR     PRLPLI          
9A53  8F 72 90                  DB      ON,LCCASH,LPTERM
9A56  C6 64             HMCA10  LDAB    #100
9A58  BE 019A                   LDX     HMETER
9A5B  8C 0064                   CPX     #100
9A5E  10 24 000B                BHS     HMCA1Z
9A62  C6 04                     LDAB    #4
9A64  8C 0004                   CPX     #4
9A67  10 24 0002                BHS     HMCA1Z
9A6B  C6 01                     LDAB    #1
9A6D  34 04             HMCA1Z  PSHB
9A6F  BD B158                   JSR     ACMCRD          collects all top meter to credit
9A72  35 04                     PULB
9A74  5A                        DECB
9A75  10 26 FFF4                BNE     HMCA1Z
9A79  BD EF15                   JSR     SETNVR
9A7C  BD E000                   JSR     DYCRD1
9A7F  BD B177                   JSR     DISHM
9A82  BD B10C                   JSR     BLIP
9A85  BE 019A                   LDX     HMETER
9A88  10 26 FFCA                BNE     HMCA10
9A8C  BD F098           HMCA11  JSR     TESTSI
9A8F  09                        DB      SCCASH
9A90  10 26 FFF8                BNE     HMCA11
9A94  BD EF84           HMCL20  JSR     PRLPLI
9A97  80 4C 4D 5C 5D 6C         DB      OF,LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,LWL7,LWL8
9AA0  0F 1F 2F 3F 3E            DB      LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
9AA5  60 61 62 70               DB      LSTK4,LSTK8,LSTK16,LSTK32
9AA9  48 58 49 59 4A 5A         DB      L4A,L4B,L8A,L8B,L16A,L16B,L32A,L32B,LPTERM
9AB2  7E 9C86                   JMP     SL340           top meter zeroed
                        ;
9AB5  F6 0186           HM300   LDAB    TSTAKE
9AB8  C1 20                     CMPB    #32
9ABA  10 26 003E                BNE     HM310
9ABE  BE 019A                   LDX     HMETER
9AC1  8C 0020                   CPX     #32
9AC4  10 24 0027                BHS     HM305
9AC8  C6 10                     LDAB    #16
9ACA  8C 0010                   CPX     #16
9ACD  10 24 000B                BHS     HM303
9AD1  C6 08             HM302   LDAB    #8
9AD3  8C 0008                   CPX     #8
9AD6  10 24 0002                BHS     HM303
9ADA  C6 04             HM3025  LDAB    #4
9ADC  F7 0186           HM303   STAB    TSTAKE          Deselect
9ADF  86 01                     LDAA    #1
9AE1  B7 018D                   STAA    SPAINH
9AE4  BD A1A3                   JSR     DTSTAK
9AE7  BD D511                   JSR     MUSOKI
9AEA  0109                      DATA    ODTSTK
9AEC  7E 9C85                   BRA     HM348
9AEF  BD EF84           HM305   JSR     PRLPLI
9AF2  8F 70 83 62 61 60         DB      ON,LSTK32,F1,LSTK16,LSTK8,LSTK4,LPTERM
9AF9  7E 9BC9                   BRA     HM330
                        ;
9AFC  F6 0186           HM310   LDAB    TSTAKE
9AFF  C1 10                     CMPB    #16
9B01  10 26 002C                BNE     HM315
9B05  BE 019A                   LDX     HMETER
9B08  8C 0010                   CPX     #16
9B0B  10 25 FFC2                BLO     HM302           deselect
9B0F  8C 0020                   CPX     #32
9B12  10 25 000D                BLO     HM312
9B16  BD EF84                   JSR     PRLPLI
9B19  8F 62 83 70 61 60         DB      ON,LSTK16,F1,LSTK32,LSTK8,LSTK4,LPTERM
9B20  7E 9BC9                   BRA     HM330
9B23  BD EF84           HM312   JSR     PRLPLI
9B26  8F 62 80 70 83 61         DB      ON,LSTK16,OF,LSTK32,F1,LSTK8,LSTK4,LPTERM
9B2E  7E 9BC9                   BRA     HM330
                        ;       
9B31  F6 0186           HM315   LDAB    TSTAKE
9B34  C1 08                     CMPB    #8
9B36  10 26 0041                BNE     HM320
9B3A  BE 019A                   LDX     HMETER
9B3D  8C 0008                   CPX     #8
9B40  10 25 FF96                BLO     HM3025          deselect
9B44  8C 0020                   CPX     #32
9B47  10 25 000D                BLO     HM316
9B4B  BD EF84                   JSR     PRLPLI
9B4E  8F 61 83 70 62 60         DB      ON,LSTK8,F1,LSTK32,LSTK16,LSTK4,LPTERM
9B55  7E 9BC9                   BRA     HM330
9B58  8C 0010           HM316   CPX     #16
9B5B  10 25 000E                BLO     HM317
9B5F  BD EF84                   JSR     PRLPLI
9B62  8F 61 80 70 83 62         DB      ON,LSTK8,OF,LSTK32,F1,LSTK16,LSTK4,LPTERM
9B6A  7E 9BC9                   BRA     HM330
9B6D  BD EF84           HM317   JSR     PRLPLI
9B70  8F 61 80 70 62 83         DB      ON,LSTK8,OF,LSTK32,LSTK16,F1,LSTK4,LPTERM
9B78  7E 9BC9                   BRA     HM330
                        ;       
9B7B  BE 019A           HM320   LDX     HMETER
9B7E  8C 0020                   CPX     #32
9B81  10 25 000D                BLO     HM321
9B85  BD EF84                   JSR     PRLPLI
9B88  8F 60 83 70 62 61         DB      ON,LSTK4,F1,LSTK32,LSTK16,LSTK8,LPTERM
9B8F  7E 9BC9                   BRA     HM330
9B92  8C 0010           HM321   CPX     #16
9B95  10 25 000E                BLO     HM322
9B99  BD EF84                   JSR     PRLPLI
9B9C  8F 60 80 70 83 62         DB      ON,LSTK4,OF,LSTK32,F1,LSTK16,LSTK8,LPTERM
9BA4  7E 9BC9                   BRA     HM330
9BA7  8C 0008           HM322   CPX     #8
9BAA  10 25 000E                BLO     HM323
9BAE  BD EF84                   JSR     PRLPLI
9BB1  8F 60 80 70 62 83         DB      ON,LSTK4,OF,LSTK32,LSTK16,F1,LSTK8,LPTERM
9BB9  7E 9BC9                   BRA     HM330
9BBC  BD EF84           HM323   JSR     PRLPLI
9BBF  8F 60 80 70 62 61         DB      ON,LSTK4,OF,LSTK32,LSTK16,LSTK8,LPTERM
9BC6  7E 9BC9                   BRA     HM330
                        ;       
9BC9  BD F03F           HM330   JSR     TESTLI
9BCC  70                        DB      LSTK32
9BCD  10 26 0020                BNE     HM331
9BD1  B6 011D                   LDAA    SWSTAT+6
9BD4  85 80                     BITA    #QAPLAY
9BD6  10 26 0008                BNE     HM330A          autoplay - set to 32 if available
9BDA  BD F098                   JSR     TESTSI
9BDD  0E                        DB      SSTK32
9BDE  10 27 000F                BEQ     HM331
9BE2  BD EF84           HM330A  JSR     PRLPLI
9BE5  8F 70 80 62 61 60         DB      ON,LSTK32,OF,LSTK16,LSTK8,LSTK4,LPTERM
9BEC  C6 20                     LDAB    #32
9BEE  7E 9C5A                   BRA     HM340
9BF1  BD F03F           HM331   JSR     TESTLI
9BF4  62                        DB      LSTK16
9BF5  10 26 001C                BNE     HM332
9BF9  BD F098                   JSR     TESTSI
9BFC  0D                        DB      SSTK16
9BFD  10 27 0014                BEQ     HM332
9C01  BD EF84                   JSR     PRLPLI
9C04  8F 62 80 70 61 60         DB      ON,LSTK16,OF,LSTK32,LSTK8,LSTK4,LPTERM
9C0B  86 01                     LDAA    #1
9C0D  B7 018D                   STAA    SPAINH
9C10  C6 10                     LDAB    #16
9C12  7E 9C5A                   BRA     HM340
9C15  BD F03F           HM332   JSR     TESTLI
9C18  61                        DB      LSTK8
9C19  10 26 001C                BNE     HM333
9C1D  BD F098                   JSR     TESTSI
9C20  0C                        DB      SSTK8
9C21  10 27 0014                BEQ     HM333
9C25  BD EF84                   JSR     PRLPLI
9C28  8F 61 80 70 62 60         DB      ON,LSTK8,OF,LSTK32,LSTK16,LSTK4,LPTERM
9C2F  86 01                     LDAA    #1
9C31  B7 018D                   STAA    SPAINH
9C34  C6 08                     LDAB    #8
9C36  7E 9C5A                   BRA     HM340
9C39  BD F03F           HM333   JSR     TESTLI
9C3C  60                        DB      LSTK4
9C3D  10 26 0044                BNE     HM348
9C41  BD F098                   JSR     TESTSI
9C44  0B                        DB      SSTK4
9C45  10 27 003C                BEQ     HM348
9C49  BD EF84                   JSR     PRLPLI
9C4C  8F 60 80 70 62 61         DB      ON,LSTK4,OF,LSTK32,LSTK16,LSTK8,LPTERM
9C53  86 01                     LDAA    #1
9C55  B7 018D                   STAA    SPAINH
9C58  C6 04                     LDAB    #4
9C5A  F7 0186           HM340   STAB    TSTAKE          player alters stake
9C5D  BD A1A3                   JSR     DTSTAK
9C60  BD D511                   JSR     MUSOKI
9C63  010D                      DATA    OSTSTK
9C65  BD F098           HM342   JSR     TESTSI
9C68  0E                        DB      SSTK32
9C69  10 26 FFF8                BNE     HM342   
9C6D  BD F098                   JSR     TESTSI
9C70  0D                        DB      SSTK16
9C71  10 26 FFF0                BNE     HM342   
9C75  BD F098                   JSR     TESTSI
9C78  0C                        DB      SSTK8 
9C79  10 26 FFE8                BNE     HM342   
9C7D  BD F098                   JSR     TESTSI
9C80  0B                        DB      SSTK4 
9C81  10 26 FFE0                BNE     HM342   
                        ;
9C85  12                HM348   NOP
                        ;
9C86  BE 019A           SL340   LDX     HMETER
9C89  10 27 0039                BEQ     SL348
9C8D  B6 01A0                   LDAA    ARROWS
9C90  81 05                     CMPA    #5                      
9C92  10 25 0030                BLO     SL348
9C96  BD EFB9                   JSR     PRLPSI
9C99  8C 71                     DB      F2,LPOT
9C9B  BD F098                   JSR     TESTSI
9C9E  0F                        DB      SPOT
9C9F  10 27 0028                BEQ     SL349
9CA3  BD EF84                   JSR     PRLPLI
9CA6  8F 71 80 51 42 31         DB      ON,LPOT,OF,LSTART,LTOPST,LHOLD1,LHOLD2,LHOLD3,LCCASH,LTRANS
9CB0  30 60 61 62 70 90         DB      LCHOLD,LSTK4,LSTK8,LSTK16,LSTK32,LPTERM
9CB6  BD ACAA                   JSR     SPAR            arrow spin
9CB9  10 2D 0003                BLT     SL345           lost on arrow spin
9CBD  BD A7C6                   JSR     SPSERV          spin & service feature spin
9CC0  7F 01A0           SL345   CLR     ARROWS
9CC3  BD A8C8                   JSR     DISARR
9CC6  BD EFB9           SL348   JSR     PRLPSI
9CC9  80 71                     DB      OF,LPOT
                        ;
9CCB  BE 0177           SL349   LDX     NEWCRD
9CCE  10 26 0006                BNE     SL350
9CD2  96 0B                     LDAA    /FTIMER+1
9CD4  10 27 0029                BEQ     SL400           If START inhibit ...
9CD8  BD EFB9           SL350   JSR     PRLPSI
9CDB  80 51                     DB      OF,LSTART
9CDD  BD EFB9           SL360   JSR     PRLPSI
9CE0  80 42                     DB      OF,LTOPST
9CE2  B6 011D           SL370   LDAA    SWSTAT+6
9CE5  85 80                     BITA    #QAPLAY
9CE7  10 27 0013                BEQ     SL375           not autoplay
9CEB  7E 9CF6                   JMP     SL372           
9CEE  BD F03F                   JSR     TESTLI
9CF1  42                        DB      LTOPST
9CF2  10 27 05D0                BEQ     HMSPIN          play top if available
9CF6  BD F03F           SL372   JSR     TESTLI
9CF9  51                        DB      LSTART
9CFA  10 27 0050                BEQ     SL480           else lower if available
9CFE  7E 975C           SL375   JMP     SL000
                        ;
9D01  B6 0198           SL400   LDAA    CRED1+0
9D04  10 26 0012                BNE     SL410
9D08  B6 0199                   LDAA    CRED1+1
9D0B  B1 0185                   CMPA    STAKE
9D0E  10 24 0008                BHS     SL410
9D12  BD EFB9                   JSR     PRLPSI
9D15  80 51                     DB      OF,LSTART
9D17  7E 9D26                   BRA     SL420
9D1A  BD EFB9           SL410   JSR     PRLPSI
9D1D  8C 51                     DB      F2,LSTART
9D1F  BD 9D58                   JSR     TESTST
9D22  10 26 0028                BNE     SL480
9D26  B6 019A           SL420   LDAA    HMETER+0
9D29  10 26 000A                BNE     SL430
9D2D  B6 019B                   LDAA    HMETER+1
9D30  B1 0186                   CMPA    TSTAKE  
9D33  10 25 FFA6                BLO     SL360
9D37  BE 0198           SL430   LDX     CRED1
9D3A  10 27 FF9F                BEQ     SL360
9D3E  BD EFB9                   JSR     PRLPSI
9D41  8C 42                     DB      F2,LTOPST
9D43  BD F098                   JSR     TESTSI
9D46  1D                        DB      STOPST
9D47  10 26 057B                BNE     HMSPIN
9D4B  7E 9CE2                   BRA     SL370
                        ;
9D4E  BD EF84           SL480   JSR     PRLPLI
9D51  80 51 42 90               DB      OF,LSTART,LTOPST,LPTERM
9D55  7E 9DBD                   JMP     RS000
                        ;
9D58  BD F098           TESTST  JSR     TESTSI
9D5B  1F                        DB      SSTART
9D5C  39                TST20   RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
9D5D  05 0F 17 11       PAYTAB  DB      5,15,23,17      
9D61  07 13 1D 15               DB      7,19,29,21      
9D65  06 11 1A 13               DB      6,17,26,19      
9D69  08 13 21 18               DB      8,19,33,24      
9D6D  05 10 19 12               DB      5,16,25,18      
9D71  07 13 20 16               DB      7,19,32,22      
9D75  06 12 1C 14               DB      6,18,28,20      
9D79  08 13 22 1B               DB      8,19,34,27      
                        ;
9D7D  0F 0F 08 05 03 0E TOPTAB  DB      15,15,8,5,3,14,0,0                              
9D85  13 14 0A 06 03 12         DB      19,20,10,6,3,18,0,0                             
9D8D  11 11 0A 05 03 10         DB      17,17,10,5,3,16,0,0                             
9D95  15 16 0A 07 03 15         DB      21,22,10,7,3,21,0,0                             
9D9D  10 10 09 05 03 0F         DB      16,16,9,5,3,15,0,0                              
9DA5  14 15 0A 06 03 14         DB      20,21,10,6,3,20,0,0                             
9DAD  12 12 0A 06 03 11         DB      18,18,10,6,3,17,0,0                             
9DB5  16 18 0A 07 03 16         DB      22,24,10,7,3,22,0,0                             
                        ;
9DBD  7F 001C           RS000   CLR     TOPFLG
9DC0  BD B1A4                   JSR     LOCKOF
9DC3  7F 003D                   CLR     CRINH
9DC6  B6 0185                   LDAA    STAKE
9DC9  B7 0188                   STAA    OSTAKE
9DCC  7F 0189                   CLR     HOLCAN
                        ;       
9DCF  C6 FF                     LDAB    #0FF
9DD1  86 31                     LDAA    #LHOLD1
9DD3  BD F04E                   JSR     TESTLP
9DD6  10 2E 000C                BGT     RS001
9DDA  F7 0027                   STAB    R1SCHK+0
9DDD  BD EF84                   JSR     PRLPLI
9DE0  85 00 20 8A 10 90         DB      FF1,LREL1T,LREL1B,FF2,LREL1M,LPTERM
9DE6  C6 FF             RS001   LDAB    #0FF
9DE8  86 32                     LDAA    #LHOLD2
9DEA  BD F04E                   JSR     TESTLP
9DED  10 2E 000C                BGT     RS002
9DF1  F7 0028                   STAB    R1SCHK+1
9DF4  BD EF84                   JSR     PRLPLI
9DF7  85 01 21 8A 11 90         DB      FF1,LREL2T,LREL2B,FF2,LREL2M,LPTERM
9DFD  C6 FF             RS002   LDAB    #0FF
9DFF  86 40                     LDAA    #LHOLD3
9E01  BD F04E                   JSR     TESTLP
9E04  10 2E 000C                BGT     RS003
9E08  F7 0029                   STAB    R1SCHK+2
9E0B  BD EF84                   JSR     PRLPLI
9E0E  85 02 22 8A 12 90         DB      FF1,LREL3T,LREL3B,FF2,LREL3M,LPTERM
9E14  BD B5BA           RS003   JSR     GRDIST
9E17  BD D599           RS010   JSR     GOREEL          Start Reels spinning
                        ;
9E1A  BD AF6C                   JSR     UPDPLO          update pot & wild
                        ;
9E1D  7F 0015                   CLR     NUDFLG
9E20  7F 0003                   CLR     NOCHNG
                        ;
9E23  8E 9E44           RS090   LDX     #SOGOFF         For each lamp ...
9E26  A6 89 0000        RS100   LDAA    0,X
9E2A  81 90                     CMPA    #LPTERM
9E2C  10 27 001A                BEQ     RS200
9E30  BD F04E                   JSR     TESTLP          ... if flashing ...
9E33  10 2E 0008                BGT     RS150
9E37  C6 80                     LDAB    #OF
9E39  BD EFD7                   JSR     PRLPST          ... turn it OFF
9E3C  7E 9E3F                   BRA     RS150
9E3F  30 01             RS150   INX
9E41  7E 9E26                   BRA     RS100
                        ;
                        ;
9E44  30                SOGOFF  DB      LCHOLD
9E45  40                        DB      LHOLD3
9E46  32                        DB      LHOLD2
9E47  31                        DB      LHOLD1
9E48  51                        DB      LSTART
9E49  90                        DB      LPTERM
                        ;
9E4A  BD AE93           RS200   JSR     SPFOFF
9E4D  BD AAAA                   JSR     TOPROF
9E50  BD CD4A                   JSR     LPANON
9E53  BD EF84                   JSR     PRLPLI
9E56  80                        DB      OF
9E57  30 72 50 71               DB      LCWIN,LCCASH,LNUDUP,LPOT
9E5B  73 74 52 42 61 62         DB      LGAMH,LGAMT,LTRANS,LTOPST,LSTK8,LSTK16,LSTK32,LSTK4
9E63  90                        DB      LPTERM
                        ;
9E64  BD EF84                   JSR     PRLPLI
9E67  80                        DB      OF
9E68  4C 4D 5C 5D 6C 6D         DB      LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,LWL7,LWL8
9E70  0F 1F 2F 3F 3E            DB      LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
9E75  90                        DB      LPTERM
                        ;
9E76  F6 0185           RS800   LDAB    STAKE
9E79  34 04             RS810   PSHB
9E7B  BD BA58                   JSR     DECRD1
9E7E  BD 9FCB                   JSR     REFGAM          TGP meters & REFTGP
9E81  35 04                     PULB
9E83  5A                        DECB
9E84  10 26 FFF1                BNE     RS810
9E88  BD E000                   JSR     DYCRD1
                        ;
9E8B  F6 0181           SFLA00  LDAB    GFLAGS
9E8E  C4 F9                     ANDB    #0FF-(QRWIN+QRHUS)
9E90  8E 9F25                   LDX     #HLDTAB
9E93  A6 89 0000        SFLAG   LDAA    0,X
9E97  10 27 000E                BEQ     SFLG1A
9E9B  BD F04E                   JSR     TESTLP
9E9E  10 2F 0002                BLE     SFLG1
9EA2  CA 02                     ORAB    #QRHUS
9EA4  30 01             SFLG1   INX
9EA6  7E 9E93                   BRA     SFLAG
                        ;
9EA9  F7 0181           SFLG1A  STAB    GFLAGS
9EAC  BD A8AD                   JSR     RESARR
9EAF  BD ABF2                   JSR     RCNV
                        ;
                        ;
9EB2                    RS835   LDYI    #-3
9EB6  C6 FD                     LDAB    #-3
9EB8  12                RS840   NOP
9EB9                    RS880   LDAY    ,R1DEMH+3
9EBD  10 26 0008                BNE     RS884
9EC1                            LDAY    ,R1DEML+3
9EC5  10 27 0002                BEQ     RS890
9EC9  86 05             RS884   LDAA    #5
9ECB  34 04             RS890   PSHB
9ECD                            LDBY    ,R1DEMH+3
9ED1  35 04                     PULB
9ED3  10 26 FFF4                BNE     RS890
9ED7  34 04                     PSHB
9ED9                            LDBY    ,R1DEML+3
9EDD  35 04                     PULB
9EDF  10 26 FFE8                BNE     RS890
9EE3  4D                        TSTA
9EE4  10 27 0003                BEQ     RS895
9EE8  BD 9F43           RS892   JSR     RSOUND
                        ;
9EEB  5C                RS895   INCB
9EEC                            INY
9EEE  10 26 FFC6                BNE     RS840
9EF2  12                RS899   NOP                 
9EF3  7D 0187                   TST     WILDAC
9EF6  10 27 0005                BEQ     RS8995
9EFA  BD EFB9                   JSR     PRLPSI
9EFD  8F 63                     DB      ON,LLWILD
9EFF  BD EFB9           RS8995  JSR     PRLPSI
9F02  80 29                     DB      OF,LSPOT
                        ;
9F04  12                        NOP                     
                        ;       
9F05  7D 003A                   TST     APLAY
9F08  10 27 0005                BEQ     RS900
9F0C  86 01                     LDAA    #1
9F0E  B7 003A                   STAA    APLAY
                        ;
9F11  BD ACA0           RS900   JSR     CLRDST
9F14  BD D64A                   JSR     GETPOS
9F17  BD E98E                   JSR     GSYMBS
                        ;
9F1A  BD EF84           RS905   JSR     PRLPLI
9F1D  80                        DB      OF
9F1E  31 32 40 90               DB      LHOLD1,LHOLD2,LHOLD3,LPTERM
9F22  7E A082                   BRA     FA00
                        ;
9F25  31                HLDTAB  DB      LHOLD1
9F26  32                        DB      LHOLD2
9F27  40                        DB      LHOLD3
9F28  00                        DB      0
                        ;
9F29  34 02             NVREEL  PSHA
9F2B                            PSHX
9F2D  8E FFFA                   LDX     #-6
9F30  A6 89 0088        RS898   LDAA    R1POSN+6,X
9F34  A7 89 017F                STAA    R1NVST+6,X
9F38  30 01                     INX
9F3A  10 26 FFF2                BNE     RS898
9F3E                            PULX
9F40  35 02                     PULA
9F42  39                        RTS
                        ;
9F43  C1 FD             RSOUND  CMPB    #-3
9F45  10 27 004C                BEQ     RSO1
9F49  C1 FE                     CMPB    #-2
9F4B  10 27 0023                BEQ     RSO2
9F4F  B6 0185                   LDAA    STAKE
9F52  81 01                     CMPA    #1
9F54  10 27 000B                BEQ     RSO35
9F58  BD EF84                   JSR     PRLPLI
9F5B  8F 12 22 02 90            DB      ON,LREL3M,LREL3B,LREL3T,LPTERM
9F60  7E 9F6C                   BRA     RSO36
9F63  BD EF84           RSO35   JSR     PRLPLI
9F66  8F 12 80 22 02 90         DB      ON,LREL3M,OF,LREL3B,LREL3T,LPTERM
9F6C  BD 9FBD           RSO36   JSR     RS3
9F6F  7E 9FB5                   BRA     RSO5
9F72  B6 0185           RSO2    LDAA    STAKE
9F75  81 01                     CMPA    #1
9F77  10 27 000B                BEQ     RSO25
9F7B  BD EF84                   JSR     PRLPLI
9F7E  8F 11 21 01 90            DB      ON,LREL2M,LREL2B,LREL2T,LPTERM
9F83  7E 9F8F                   BRA     RSO26
9F86  BD EF84           RSO25   JSR     PRLPLI
9F89  8F 11 80 21 01 90         DB      ON,LREL2M,OF,LREL2B,LREL2T,LPTERM
9F8F  BD 9FBC           RSO26   JSR     RS2
9F92  7E 9FB5                   BRA     RSO5
9F95  B6 0185           RSO1    LDAA    STAKE
9F98  81 01                     CMPA    #1
9F9A  10 27 000B                BEQ     RSO15
9F9E  BD EF84                   JSR     PRLPLI
9FA1  8F 10 20 00 90            DB      ON,LREL1M,LREL1B,LREL1T,LPTERM
9FA6  7E 9FB2                   BRA     RSO16
9FA9  BD EF84           RSO15   JSR     PRLPLI
9FAC  8F 10 80 20 00 90         DB      ON,LREL1M,OF,LREL1B,LREL1T,LPTERM
9FB2  BD 9FBB           RSO16   JSR     RS1
9FB5  12                RSO5    NOP
9FB6  BD EF5E           RSRET   JSR     DELAYI
9FB9  08                        DB      8       
9FBA  39                        RTS
                        ;
9FBB  12                RS1     NOP
9FBC  12                RS2     NOP
9FBD  BD D511           RS3     JSR     MUSOKI
9FC0  0106                      DATA    ORSTP1
9FC2  39                        RTS
                        ;
9FC3  12                RS4     NOP
9FC4  12                RS5     NOP
9FC5  BD D511           RS6     JSR     MUSOKI
9FC8  0204                      DATA    ORSTP2
9FCA  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
9FCB  B6 0181           REFGAM  LDAA    GFLAGS
9FCE  84 80                     ANDA    #QTEST
9FD0  10 26 0052                BNE     RS820           IF NOT IN TEST ...
9FD4  C6 00                     LDAB    #CRVERS
9FD6  86 04                     LDAA    #4              
9FD8  C1 02                     CMPB    #2
9FDA  10 27 0012                BEQ     RS815           
9FDE  86 0A                     LDAA    #10             
9FE0  C1 01                     CMPB    #1
9FE2  10 27 000A                BEQ     RS815           
9FE6  86 14                     LDAA    #20
9FE8  C1 00                     CMPB    #0
9FEA  10 27 0002                BEQ     RS815
9FEE  86 05                     LDAA    #5              
9FF0  BB 022B           RS815   ADDA    TGPCNT
9FF3  B7 022B                   STAA    TGPCNT
9FF6  81 14                     CMPA    #20             
9FF8  10 25 001B                BLO     RS818           
9FFC  80 14                     SUBA    #20             
9FFE  B7 022B                   STAA    TGPCNT
A001  C6 01                     LDAB    #001
A003  BD B1F4                   JSR     IMETER
A006  08                        DB      MMTGP           
A007  12                        DB      VMTGP
A008  BD B1F4                   JSR     IMETER
A00B  FF                        DB      0FF
A00C  24                        DB      VMLTGP
A00D  BD B1F4                   JSR     IMETER
A010  FF                        DB      0FF
A011  39                        DB      VLTGP
A012  BD B1F4                   JSR     IMETER
A015  FF                        DB      0FF
A016  48                        DB      VLLTGP
A017  8E 9D5D           RS818   LDX     #PAYTAB
A01A  B6 011D                   LDAA    SWSTAT+6
A01D  84 38                     ANDA    #038
A01F  44                        LSRA
A020  BD F0E7                   JSR     ADDA2X
A023  BD ED7B                   JSR     REFTGP
A026  39                RS820   RTS
                        ;
A027  B6 0181           RETGAM  LDAA    GFLAGS
A02A  84 80                     ANDA    #QTEST
A02C  10 26 0051                BNE     RT820           IF NOT IN TEST ...
A030  C6 00                     LDAB    #CRVERS
A032  86 04                     LDAA    #4              
A034  C1 02                     CMPB    #2
A036  10 27 0012                BEQ     RT815           
A03A  86 0A                     LDAA    #10             
A03C  C1 01                     CMPB    #1
A03E  10 27 000A                BEQ     RT815           
A042  86 14                     LDAA    #20
A044  C1 00                     CMPB    #0
A046  10 27 0002                BEQ     RT815
A04A  86 05                     LDAA    #5              
A04C  BB 022B           RT815   ADDA    TGPCNT
A04F  B7 022B                   STAA    TGPCNT
A052  81 14                     CMPA    #20             
A054  10 25 001B                BLO     RT818           no TGP this time
A058  80 14                     SUBA    #20             
A05A  B7 022B                   STAA    TGPCNT
A05D  C6 01                     LDAB    #001
A05F  BD B1F4                   JSR     IMETER
A062  08                        DB      MMTGP
A063  12                        DB      VMTGP
A064  BD B1F4                   JSR     IMETER
A067  FF                        DB      0FF
A068  2A                        DB      VMTTGP
A069  BD B1F4                   JSR     IMETER
A06C  FF                        DB      0FF
A06D  39                        DB      VLTGP
A06E  BD B1F4                   JSR     IMETER
A071  FF                        DB      0FF
A072  4E                        DB      VLTTGP
A073  8E 9D7D           RT818   LDX     #TOPTAB
A076  B6 011D                   LDAA    SWSTAT+6
A079  84 38                     ANDA    #038
A07B  BD F0E7                   JSR     ADDA2X
A07E  BD ED16                   JSR     RETTGP
A081  39                RT820   RTS
                        ;
                        ;***************************************************
                        ;
                        ;       FEATURE & WIN ANALYSIS
                        ;
A082  7F 0040           FA00    CLR     WILWIN
A085  8E 0000                   LDX     #0
A088  BF 002F                   STX     WIN
A08B  BD E98E           FA01    JSR     GSYMBS
A08E  BD B486                   JSR     GETWIN
                        ;
A091  4D                FA05    TSTA                    REELWIN
A092  10 27 006E                BEQ     FANEX1
A096  B7 0041                   STAA    WINNUM
A099  BD 92DA                   JSR     FLAWIN
A09C  BD D511                   JSR     MUSOKI
A09F  0111                      DATA    OLWIN
A0A1  BD E069                   JSR     WINFX
A0A4  BD B4D1                   JSR     ADJWA
A0A7                    FA055   PSHX
A0A9  BE 002F                   LDX     WIN
A0AC  30 01                     INX
A0AE  BF 002F                   STX     WIN
A0B1                            PULX
A0B3  30 1F                     DEX
A0B5  10 26 FFEE                BNE     FA055
A0B9  BE 002F                   LDX     WIN
A0BC  BD B164                   JSR     DISXWN
A0BF  7F 0036                   CLR     FTIMEG
A0C2  F6 0181                   LDAB    GFLAGS
A0C5  CA 04                     ORAB    #QRWIN
A0C7  F7 0181                   STAB    GFLAGS
                        ;
A0CA  7D 0187                   TST     WILDAC
A0CD  10 27 0029                BEQ     FANEX
A0D1  B6 0155                   LDAA    R1SYMB+0
A0D4  81 FF                     CMPA    #WILD
A0D6  10 27 001B                BEQ     FAWW            reel 1 wild = wild win
A0DA  B6 0156                   LDAA    R1SYMB+1
A0DD  81 FF                     CMPA    #WILD
A0DF  10 27 0012                BEQ     FAWW            reel 2 wild = wild win
A0E3  B6 0041                   LDAA    WINNUM
A0E6  81 01                     CMPA    #1
A0E8  10 27 000E                BEQ     FANEX   single cherry win, wild symbol on reel 3 not used 
A0EC  B6 0157                   LDAA    R1SYMB+2
A0EF  81 FF                     CMPA    #WILD
A0F1  10 26 0005                BNE     FANEX
A0F5  86 01             FAWW    LDAA    #1
A0F7  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A0FA  BD EF5E           FANEX   JSR     DELAYI
A0FD  28                        DB      40              sample time - WINFX time
A0FE  BD 91D3                   JSR     RSLSER          reset reel lamps
A101  BD E1C6                   JSR     DISSTK          reset winline lamps
A104  F6 0185           FANEX1  LDAB    STAKE
A107  C1 01                     CMPB    #1
A109  10 27 002A                BEQ     FA06            1 line only
A10D  B6 0088                   LDAA    R1DIST+0
A110  10 27 0012                BEQ     FAN100          service line 2  
A114  10 2B 001C                BMI     FAN200          all lines serviced              
A118  86 FF                     LDAA    #-1             service line 3
A11A  B7 0088                   STAA    R1DIST+0
A11D  B7 0089                   STAA    R1DIST+1
A120  B7 008A                   STAA    R1DIST+2
A123  7E A08B                   BRA     FA01
A126  86 01             FAN100  LDAA    #1
A128  B7 0088                   STAA    R1DIST+0
A12B  B7 0089                   STAA    R1DIST+1
A12E  B7 008A                   STAA    R1DIST+2
A131  7E A08B                   BRA     FA01
A134  BD ACA0           FAN200  JSR     CLRDST
                        ;
A137  BE 002F           FA06    LDX     WIN
A13A  10 27 0062                BEQ     FA075
A13E  F6 0185                   LDAB    STAKE
A141  C1 05                     CMPB    #5
A143  10 26 0039                BNE     FA07
A147  BD EFB9                   JSR     PRLPSI
A14A  85 64                     DB      FF1,LSTK5
A14C  C6 02                     LDAB    #2
A14E  BE 002F                   LDX     WIN
A151                    FA064   PSHX
A153                    FA065   PSHX
A155  BE 002F                   LDX     WIN
A158  30 01                     INX
A15A  BF 002F                   STX     WIN
A15D                            PULX
A15F  30 1F                     DEX
A161  10 26 FFEE                BNE     FA065
A165  BE 002F                   LDX     WIN
A168  BD B164                   JSR     DISXWN
A16B  BD D511                   JSR     MUSOKI
A16E  0112                      DATA    OMWIN
A170  BD EF5E                   JSR     DELAYI
A173  3C                        DB      60
A174                            PULX
A176  5A                        DECB
A177  10 26 FFD6                BNE     FA064
A17B  BD EFB9                   JSR     PRLPSI
A17E  8F 64                     DB      ON,LSTK5
                        ;
A180  BD EF5E           FA07    JSR     DELAYI
A183  14                        DB      20
                        ;
A184  BD B3AF                   JSR     PREWIN          get best original reel win
A187  BD B48C                   JSR     GTW15           set WINBIT for best win
                        ;
A18A  BD B784                   JSR     DOGAMB
A18D  7D 0040                   TST     WILWIN
A190  10 27 000B                BEQ     GAMFIN
A194  7F 0187                   CLR     WILDAC
A197  7F 0040                   CLR     WILWIN
A19A  BD EFB9                   JSR     PRLPSI
A19D  80 63                     DB      OF,LLWILD
                        ;
A19F  12                GAMFIN  NOP
A1A0  7E B135           FA075   JMP     ENDOFG
                        ;
                        ;****************************************************
                        ;
A1A3  34 02             DTSTAK  PSHA
A1A5  B6 0186                   LDAA    TSTAKE
A1A8  81 20                     CMPA    #32
A1AA  10 27 0071                BEQ     DTS32
A1AE  81 10                     CMPA    #16
A1B0  10 27 0049                BEQ     DTS16
A1B4  81 08                     CMPA    #8 
A1B6  10 27 0021                BEQ     DTS8 
A1BA  BD EF84           DTS4    JSR     PRLPLI
A1BD  8F 0F 1F 2F 3F 3E         DB      ON,LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
A1C3  8F 4C 4D 5C 5D 6C         DB      ON,LWL1,LWL2,LWL3,LWL4,LWL5,OF,LWL6,LWL7,LWL8
A1CD  8F 48 58 80 49 59         DB      ON,L4A,L4B,OF,L8A,L8B,L16A,L16B,L32A,L32B,LPTERM
A1D8  7E A23C                   BRA     DTS900
A1DB  BD EF84           DTS8    JSR     PRLPLI
A1DE  8F 0F 1F 2F 3F 3E         DB      ON,LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
A1E4  8F 4C 4D 5C 5D 6C         DB      ON,LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,OF,LWL7,LWL8
A1EE  80 48 58 8F 49 59         DB      OF,L4A,L4B,ON,L8A,L8B,OF,L16A,L16B,L32A,L32B,LPTERM
A1FA  7E A23C                   BRA     DTS900
A1FD  BD EF84           DTS16   JSR     PRLPLI
A200  8F 0F 1F 2F 3F 3E         DB      ON,LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
A206  8F 4C 4D 5C 5D 6C         DB      ON,LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,LWL7,OF,LWL8
A210  80 48 58 49 59 8F         DB      OF,L4A,L4B,L8A,L8B,ON,L16A,L16B,OF,L32A,L32B,LPTERM
A21C  7E A23C                   BRA     DTS900
A21F  BD EF84           DTS32   JSR     PRLPLI
A222  8F 0F 1F 2F 3F 3E         DB      ON,LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
A228  8F 4C 4D 5C 5D 6C         DB      ON,LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,LWL7,LWL8
A231  80 48 58 49 59 4A         DB      OF,L4A,L4B,L8A,L8B,L16A,L16B,ON,L32A,L32B,LPTERM
A23C  35 02             DTS900  PULA
A23E  39                        RTS
                        ;
A23F  8E 07D0           AUTHMC  LDX     #2000
A242  86 10                     LDAA    #NATION
A244  81 10                     CMPA    #CZ
A246  10 26 000E                BNE     AHC100          
A24A  8E 2328                   LDX     #9000
A24D  86 01                     LDAA    #TYPE
A24F  81 01                     CMPA    #001
A251  10 27 0003                BEQ     AHC100                          
A255  8E 1770                   LDX     #6000
A258  BC 019A           AHC100  CPX     HMETER
A25B  10 22 0003                BHI     AHC900
A25F  BD A263                   JSR     HFACOL          AUTOCOLLECT
A262  39                AHC900  RTS
                        ;
A263  7F 008B           HFACOL  CLR     R1DIST+3
A266  7F 008C                   CLR     R1DIST+4
A269  7F 008D                   CLR     R1DIST+5
A26C  BD EFB9                   JSR     PRLPSI          
A26F  8F 72                     DB      ON,LCCASH
A271  C6 64             HFAC10  LDAB    #100
A273  BE 019A                   LDX     HMETER
A276  8C 0064                   CPX     #100
A279  10 24 000B                BHS     HFAC1Z
A27D  C6 04                     LDAB    #4
A27F  8C 0004                   CPX     #4
A282  10 24 0002                BHS     HFAC1Z
A286  C6 01                     LDAB    #1
A288  34 04             HFAC1Z  PSHB
A28A  BD B158                   JSR     ACMCRD          collects all top meter to credit
A28D  35 04                     PULB
A28F  5A                        DECB
A290  10 26 F7D9                BNE     HMCA1Z
A294  BD EF15                   JSR     SETNVR
A297  BD E000                   JSR     DYCRD1
A29A  BD B177                   JSR     DISHM
A29D  BD B10C                   JSR     BLIP
A2A0  BE 019A                   LDX     HMETER
A2A3  10 26 FFCA                BNE     HFAC10
A2A7  BD EF84                   JSR     PRLPLI
A2AA  80 4C 4D 5C 5D 6C         DB      OF,LWL1,LWL2,LWL3,LWL4,LWL5,LWL6,LWL7,LWL8
A2B3  0F 1F 2F 3F 3E            DB      LWL1B,LWL2B,LWL3B,LWL4B,LWL5B
A2B8  60 61 62 70               DB      LSTK4,LSTK8,LSTK16,LSTK32
A2BC  48 58 49 59 4A 5A         DB      L4A,L4B,L8A,L8B,L16A,L16B,L32A,L32B,LPTERM
A2C5  39                        RTS                     
                        ;
A2C6  86 01             HMSPIN  LDAA    #1
A2C8  97 1C                     STAA    /TOPFLG
A2CA  BD B1A4                   JSR     LOCKOF
A2CD  7F 003D                   CLR     CRINH
                        ;
A2D0  BD EF84           HMS200  JSR     PRLPLI
A2D3  80 72 50 42               DB      OF,LCCASH,LSTAKE,LTOPST
A2D7  71 31 32 40 30 51         DB      LPOT,LHOLD1,LHOLD2,LHOLD3,LCHOLD,LSTART,LTRANS,LPTERM
A2DF  8E A300                   LDX     #SOGOFT         For each lamp ...
A2E2  A6 89 0000        HRS100  LDAA    0,X
A2E6  81 90                     CMPA    #LPTERM
A2E8  10 27 0019                BEQ     HRS200
A2EC  BD F04E                   JSR     TESTLP          ... if flashing ...
A2EF  10 2E 0008                BGT     HRS150
A2F3  C6 80                     LDAB    #OF
A2F5  BD EFD7                   JSR     PRLPST          ... turn it OFF
A2F8  7E A2FB                   BRA     HRS150
A2FB  30 01             HRS150  INX
A2FD  7E A2E2                   BRA     HRS100
                        ;
                        ;
A300  60                SOGOFT  DB      LSTK4 
A301  61                        DB      LSTK8 
A302  62                        DB      LSTK16
A303  70                        DB      LSTK32
A304  90                        DB      LPTERM
                        ;
A305  F6 0186           HRS200  LDAB    TSTAKE                  
A308  BE 019A           HMS001  LDX     HMETER
A30B  30 1F             HMS002  DEX
A30D  5A                        DECB
A30E  10 26 FFF9                BNE     HMS002
A312  BF 019A                   STX     HMETER
A315  F6 0186                   LDAB    TSTAKE                  
A318  34 04             HMS003  PSHB
A31A  BD A027                   JSR     RETGAM
A31D  35 04                     PULB
A31F  5A                        DECB
A320  10 26 FFF4                BNE     HMS003
A324  BD EF15                   JSR     SETNVR
A327  BD B177                   JSR     DISHM
A32A  BD BA58                   JSR     DECRD1
A32D  BD E000                   JSR     DYCRD1
A330  BD A027                   JSR     RETGAM
                        ;
A333  BD EF15           HMS20   JSR     SETNVR
A336  BD C08C                   JSR     GRDIS2
A339  BD D599                   JSR     GOREEL                          Start Reels spinning
                        ;
A33C  BD 91C4                   JSR     LROFF
                        ;
A33F  BD F03F                   JSR     TESTLI
A342  31                        DB      LHOLD1
A343  10 2E 0009                BGT     HMS30
A347  BD EF84                   JSR     PRLPLI
A34A  85 13 8A 23 03 90         DB      FF1,LREL4M,FF2,LREL4B,LREL4T,LPTERM
A350  BD F03F           HMS30   JSR     TESTLI
A353  32                        DB      LHOLD2
A354  10 2E 0009                BGT     HMS31
A358  BD EF84                   JSR     PRLPLI
A35B  85 14 8A 24 04 90         DB      FF1,LREL5M,FF2,LREL5B,LREL5T,LPTERM
A361  BD F03F           HMS31   JSR     TESTLI
A364  40                        DB      LHOLD3
A365  10 2E 0009                BGT     HMS32
A369  BD EF84                   JSR     PRLPLI
A36C  85 15 8A 25 05 90         DB      FF1,LREL6M,FF2,LREL6B,LREL6T,LPTERM
A372  BD AC1C           HMS32   JSR     TCNV
A375  BD AEA2                   JSR     UPDPOT          pot & wild update
A378  BD AE93                   JSR     SPFOFF
A37B  BD A8AD                   JSR     RESARR
A37E  BD A8FF                   JSR     FLAARR
                        ;
A381                    HM835   LDYI    #-3
A385  5F                        CLRB
A386  12                HM840   NOP
A387                    HM880   LDAY    ,R1DEMH+6
A38B  10 26 0008                BNE     HM884
A38F                            LDAY    ,R1DEML+6
A393  10 27 0002                BEQ     HM890
A397  86 05             HM884   LDAA    #5
A399  34 04             HM890   PSHB
A39B                    HM891   LDBY    ,R1DEMH+6
A39F  10 26 FFF8                BNE     HM891
A3A3                            LDBY    ,R1DEML+6
A3A7  10 26 FFF0                BNE     HM891
A3AB  35 04                     PULB
A3AD  4D                        TSTA
A3AE  10 27 0032                BEQ     HM895
A3B2  5D                HM892   TSTB
A3B3  10 26 000E                BNE     HM893
A3B7  BD EF84                   JSR     PRLPLI
A3BA  8F 13 23 03 90            DB      ON,LREL4M,LREL4B,LREL4T,LPTERM
A3BF  BD 9FC3                   JSR     RS4
A3C2  7E A3E4                   BRA     HM895
A3C5  C1 01             HM893   CMPB    #1
A3C7  10 26 000E                BNE     HM894
A3CB  BD EF84                   JSR     PRLPLI
A3CE  8F 14 24 04 90            DB      ON,LREL5M,LREL5B,LREL5T,LPTERM
A3D3  BD 9FC4                   JSR     RS5
A3D6  7E A3E4                   BRA     HM895
A3D9  BD EF84           HM894   JSR     PRLPLI
A3DC  8F 15 25 05 90            DB      ON,LREL6M,LREL6B,LREL6T,LPTERM
A3E1  BD 9FC5                   JSR     RS6
                        ;
A3E4  5C                HM895   INCB
A3E5                            INY
A3E7  10 26 FF9B                BNE     HM840
A3EB  12                HM899   NOP      
                        ;
                        ;       JSR     TCHEK
                        ;
A3EC  BD A8C8                   JSR     DISARR
A3EF  BD EFB9                   JSR     PRLPSI
A3F2  80 29                     DB      OF,LSPOT
A3F4  7D 018A                   TST     TWILAC
A3F7  10 27 0005                BEQ     HM8995
A3FB  BD EFB9                   JSR     PRLPSI
A3FE  8F 2E                     DB      ON,LTWILD
A400  7D 003A           HM8995  TST     APLAY
A403  10 27 0005                BEQ     HFA000
A407  86 01                     LDAA    #1
A409  B7 003A                   STAA    APLAY
                        ;
                        ;       
A40C  BD EFB9           HFA000  JSR     PRLPSI
A40F  80 51                     DB      OF,LSTART
A411  7F 0040                   CLR     WILWIN
A414  BD D64A                   JSR     GETPOS
A417  BD EA00                   JSR     GSYMBT
A41A  7F 0031                   CLR     WINVAL
A41D  7F 0032                   CLR     WINVL2
A420  BD B4A5                   JSR     GETWN2          LINE 1
                        ;
A423  4D                        TSTA
A424  10 27 004A                BEQ     HFA100
                        ;
A428  BD AA46                   JSR     ACTROF
A42B  BD AA55                   JSR     FLLIN1
                        ;       
A42E  81 01                     CMPA    #MYS
A430  10 26 000C                BNE     HFA005
A434  BD A942                   JSR     GETMYS
A437  BD A7C2                   JSR     MYSSND
A43A  BD A7BB                   JSR     HMWSND
A43D  7E A446                   BRA     HFA006
A440  BD B4F5           HFA005  JSR     ADJWAT
A443  BD A7BB                   JSR     HMWSND
A446  BF 002F           HFA006  STX     WIN
A449  9E 2F             HFATES  LDX     /WIN
A44B  BD B164                   JSR     DISXWN
A44E  BD EF5E                   JSR     DELAYI
A451  64                        DB      100
A452  BD AAB9           HRES1   JSR     ADWNHM
A455  7D 018A                   TST     TWILAC
A458  10 27 0010                BEQ     HRES2
                        ;
A45C  BD EB4E                   JSR     NSYMB5
A45F  BD B4A5                   JSR     GETWN2
A462  4D                        TSTA
A463  10 26 0005                BNE     HRES2           normal win
                        ;
A467  86 01             FAWW0   LDAA    #1
A469  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A46C  BD A1A3           HRES2   JSR     DTSTAK          to reset winline lamps
A46F  BD AA46                   JSR     ACTROF
                        ;
A472  86 01             HFA100  LDAA    #1
A474  B7 008B                   STAA    R1DIST+3
A477  B7 008C                   STAA    R1DIST+4
A47A  B7 008D                   STAA    R1DIST+5        LINE 2
A47D  BD EA00                   JSR     GSYMBT
A480  7F 0031                   CLR     WINVAL
A483  7F 0032                   CLR     WINVL2
A486  BD B4A5                   JSR     GETWN2  
                        ;
A489  4D                        TSTA
A48A  10 27 004A                BEQ     HFA200
                        ;
A48E  BD AA46                   JSR     ACTROF
A491  BD AA60                   JSR     FLLIN2
                        ;
A494  81 01                     CMPA    #MYS
A496  10 26 000C                BNE     HFA105
A49A  BD A942                   JSR     GETMYS
A49D  BD A7C2                   JSR     MYSSND
A4A0  BD A7BB                   JSR     HMWSND
A4A3  7E A4AC                   BRA     HFA106
A4A6  BD B4F5           HFA105  JSR     ADJWAT
A4A9  BD A7BB                   JSR     HMWSND
A4AC  BF 002F           HFA106  STX     WIN
A4AF  9E 2F             HFBTES  LDX     /WIN
A4B1  BD B164                   JSR     DISXWN
A4B4  BD EF5E                   JSR     DELAYI
A4B7  64                        DB      100
A4B8  BD AAB9           H1RES1  JSR     ADWNHM
A4BB  7D 018A                   TST     TWILAC
A4BE  10 27 0010                BEQ     H1RES2
A4C2  BD EB4E                   JSR     NSYMB5
A4C5  BD B4A5                   JSR     GETWN2
A4C8  4D                        TSTA
A4C9  10 26 0005                BNE     H1RES2          normal win
                        ;
A4CD  86 01             FAWW1   LDAA    #1
A4CF  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A4D2  BD A1A3           H1RES2  JSR     DTSTAK          to reset winline lamps
A4D5  BD AA46                   JSR     ACTROF
                        ;
A4D8  86 FF             HFA200  LDAA    #-1
A4DA  B7 008B                   STAA    R1DIST+3
A4DD  B7 008C                   STAA    R1DIST+4
A4E0  B7 008D                   STAA    R1DIST+5        LINE 3
A4E3  BD EA00                   JSR     GSYMBT
A4E6  7F 0031                   CLR     WINVAL
A4E9  7F 0032                   CLR     WINVL2
A4EC  BD B4A5                   JSR     GETWN2  
                        ;
A4EF  4D                        TSTA
A4F0  10 27 004A                BEQ     HFA300
                        ;
A4F4  BD AA46                   JSR     ACTROF
A4F7  BD AA6B                   JSR     FLLIN3
                        ;
A4FA  81 01                     CMPA    #MYS
A4FC  10 26 000C                BNE     HFA205
A500  BD A942                   JSR     GETMYS
A503  BD A7C2                   JSR     MYSSND
A506  BD A7BB                   JSR     HMWSND
A509  7E A512                   BRA     HFA206
A50C  BD B4F5           HFA205  JSR     ADJWAT
A50F  BD A7BB                   JSR     HMWSND
A512  BF 002F           HFA206  STX     WIN
A515  9E 2F             HFCTES  LDX     /WIN
A517  BD B164                   JSR     DISXWN
                        ;
A51A  BD EF5E                   JSR     DELAYI
A51D  64                        DB      100
A51E  BD AAB9           H2RES1  JSR     ADWNHM
A521  7D 018A                   TST     TWILAC
A524  10 27 0010                BEQ     H2RES2
A528  BD EB4E                   JSR     NSYMB5
A52B  BD B4A5                   JSR     GETWN2
A52E  4D                        TSTA
A52F  10 26 0005                BNE     H2RES2          normal win
                        ;
A533  86 01             FAWW2   LDAA    #1
A535  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A538  BD A1A3           H2RES2  JSR     DTSTAK          to reset winline lamps
A53B  BD AA46                   JSR     ACTROF
                        ;
A53E  86 01             HFA300  LDAA    #1
A540  B7 008B                   STAA    R1DIST+3
A543  4F                        CLRA
A544  B7 008C                   STAA    R1DIST+4
A547  86 FF                     LDAA    #-1
A549  B7 008D                   STAA    R1DIST+5        LINE 4
A54C  BD EA00                   JSR     GSYMBT
A54F  7F 0031                   CLR     WINVAL
A552  7F 0032                   CLR     WINVL2
A555  BD B4A5                   JSR     GETWN2  
                        ;
A558  4D                        TSTA
A559  10 27 004A                BEQ     HFA400
                        ;
A55D  BD AA46                   JSR     ACTROF
A560  BD AA76                   JSR     FLLIN4
                        ;
A563  81 01                     CMPA    #MYS
A565  10 26 000C                BNE     HFA305
A569  BD A942                   JSR     GETMYS
A56C  BD A7C2                   JSR     MYSSND
A56F  BD A7BB                   JSR     HMWSND
A572  7E A57B                   BRA     HFA306
A575  BD B4F5           HFA305  JSR     ADJWAT
A578  BD A7BB                   JSR     HMWSND
A57B  BF 002F           HFA306  STX     WIN
A57E  9E 2F             HFDTES  LDX     /WIN
A580  BD B164                   JSR     DISXWN
A583  BD EF5E                   JSR     DELAYI
A586  64                        DB      100
A587  BD AAB9           H3RES1  JSR     ADWNHM
A58A  7D 018A                   TST     TWILAC
A58D  10 27 0010                BEQ     H3RES2
A591  BD EB4E                   JSR     NSYMB5
A594  BD B4A5                   JSR     GETWN2
A597  4D                        TSTA
A598  10 26 0005                BNE     H3RES2          normal win
                        ;
A59C  86 01             FAWW3   LDAA    #1
A59E  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A5A1  BD A1A3           H3RES2  JSR     DTSTAK          to reset winline lamps
A5A4  BD AA46                   JSR     ACTROF
                        ;
A5A7  86 FF             HFA400  LDAA    #-1
A5A9  B7 008B                   STAA    R1DIST+3
A5AC  4F                        CLRA
A5AD  B7 008C                   STAA    R1DIST+4
A5B0  86 01                     LDAA    #1
A5B2  B7 008D                   STAA    R1DIST+5        LINE 5
A5B5  BD EA00                   JSR     GSYMBT
A5B8  7F 0031                   CLR     WINVAL
A5BB  7F 0032                   CLR     WINVL2
A5BE  BD B4A5                   JSR     GETWN2  
                        ;
A5C1  4D                        TSTA
A5C2  10 27 004A                BEQ     HFA500
                        ;
A5C6  BD AA46                   JSR     ACTROF
A5C9  BD AA81                   JSR     FLLIN5
                        ;
A5CC  81 01                     CMPA    #MYS
A5CE  10 26 000C                BNE     HFA405
A5D2  BD A942                   JSR     GETMYS
A5D5  BD A7C2                   JSR     MYSSND
A5D8  BD A7BB                   JSR     HMWSND
A5DB  7E A5E4                   BRA     HFA406
A5DE  BD B4F5           HFA405  JSR     ADJWAT
A5E1  BD A7BB                   JSR     HMWSND
A5E4  BF 002F           HFA406  STX     WIN
A5E7  9E 2F             HFETES  LDX     /WIN
A5E9  BD B164                   JSR     DISXWN
A5EC  BD EF5E                   JSR     DELAYI
A5EF  64                        DB      100
A5F0  BD AAB9           H4RES1  JSR     ADWNHM
A5F3  7D 018A                   TST     TWILAC
A5F6  10 27 0010                BEQ     H4RES2
A5FA  BD EB4E                   JSR     NSYMB5
A5FD  BD B4A5                   JSR     GETWN2
A600  4D                        TSTA
A601  10 26 0005                BNE     H4RES2          normal win
                        ;
A605  86 01             FAWW4   LDAA    #1
A607  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A60A  BD A1A3           H4RES2  JSR     DTSTAK          to reset winline lamps
A60D  BD AA46                   JSR     ACTROF
                        ;
A610  7F 008B           HFA500  CLR     R1DIST+3
A613  7F 008C                   CLR     R1DIST+4
A616  7F 008D                   CLR     R1DIST+5        LINE 6
A619  B6 0186                   LDAA    TSTAKE
A61C  81 04                     CMPA    #4
A61E  10 27 0125                BEQ     HFA800
                        ;
A622  BD EA52                   JSR     GSYMB6
A625  7F 0031                   CLR     WINVAL
A628  7F 0032                   CLR     WINVL2
A62B  BD B4A5                   JSR     GETWN2  
                        ;
A62E  4D                        TSTA
A62F  10 27 004A                BEQ     HFA600
                        ;
A633  BD AA46                   JSR     ACTROF
A636  BD AA8C                   JSR     FLLIN6
                        ;
A639  81 01                     CMPA    #MYS
A63B  10 26 000C                BNE     HFA505
A63F  BD A942                   JSR     GETMYS
A642  BD A7C2                   JSR     MYSSND
A645  BD A7BB                   JSR     HMWSND
A648  7E A651                   BRA     HFA506
A64B  BD B4F5           HFA505  JSR     ADJWAT
A64E  BD A7BB                   JSR     HMWSND
A651  BF 002F           HFA506  STX     WIN
A654  9E 2F             HFFTES  LDX     /WIN
A656  BD B164                   JSR     DISXWN
A659  BD EF5E                   JSR     DELAYI
A65C  64                        DB      100
A65D  BD AAB9                   JSR     ADWNHM
A660  7D 018A                   TST     TWILAC
A663  10 27 0010                BEQ     H5RES2
A667  BD EB82                   JSR     NSYMB6
A66A  BD B4A5                   JSR     GETWN2
A66D  4D                        TSTA
A66E  10 26 0005                BNE     H5RES2          normal win
                        ;
A672  86 01             FAWW5   LDAA    #1
A674  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A677  BD A1A3           H5RES2  JSR     DTSTAK          to reset winline lamps
A67A  BD AA46                   JSR     ACTROF
                        ;
A67D  12                HFA600  NOP                     LINE 7
A67E  B6 0186                   LDAA    TSTAKE
A681  81 08                     CMPA    #8
A683  10 27 00C0                BEQ     HFA800
A687  BD EAA6                   JSR     GSYMB7
A68A  7F 0031                   CLR     WINVAL
A68D  7F 0032                   CLR     WINVL2
A690  BD B4A5                   JSR     GETWN2  
                        ;
A693  4D                        TSTA
A694  10 27 004A                BEQ     HFA700
                        ;
A698  BD AA46                   JSR     ACTROF
A69B  BD AA96                   JSR     FLLIN7
                        ;
A69E  81 01                     CMPA    #MYS
A6A0  10 26 000C                BNE     HFA605
A6A4  BD A942                   JSR     GETMYS
A6A7  BD A7C2                   JSR     MYSSND
A6AA  BD A7BB                   JSR     HMWSND
A6AD  7E A6B6                   BRA     HFA606
A6B0  BD B4F5           HFA605  JSR     ADJWAT
A6B3  BD A7BB                   JSR     HMWSND
A6B6  BF 002F           HFA606  STX     WIN
A6B9  9E 2F             HFGTES  LDX     /WIN
A6BB  BD B164                   JSR     DISXWN
A6BE  BD EF5E                   JSR     DELAYI
A6C1  64                        DB      100
A6C2  BD AAB9                   JSR     ADWNHM
A6C5  7D 018A                   TST     TWILAC
A6C8  10 27 0010                BEQ     H6RES2
A6CC  BD EBB8                   JSR     NSYMB7
A6CF  BD B4A5                   JSR     GETWN2
A6D2  4D                        TSTA
A6D3  10 26 0005                BNE     H6RES2          normal win
                        ;
A6D7  86 01             FAWW6   LDAA    #1
A6D9  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A6DC  BD A1A3           H6RES2  JSR     DTSTAK          to reset winline lamps
A6DF  BD AA46                   JSR     ACTROF
                        ;
A6E2  12                HFA700  NOP                     LINE 8
A6E3  B6 0186                   LDAA    TSTAKE
A6E6  81 10                     CMPA    #16
A6E8  10 27 005B                BEQ     HFA800
A6EC  BD EAFA                   JSR     GSYMB8
A6EF  7F 0031                   CLR     WINVAL
A6F2  7F 0032                   CLR     WINVL2
A6F5  BD B4A5                   JSR     GETWN2  
                        ;
A6F8  4D                        TSTA
A6F9  10 27 004A                BEQ     HFA800
                        ;
A6FD  BD AA46                   JSR     ACTROF
A700  BD AAA0                   JSR     FLLIN8
                        ;
A703  81 01                     CMPA    #MYS
A705  10 26 000C                BNE     HFA705
A709  BD A942                   JSR     GETMYS
A70C  BD A7C2                   JSR     MYSSND
A70F  BD A7BB                   JSR     HMWSND
A712  7E A71B                   BRA     HFA706
A715  BD B4F5           HFA705  JSR     ADJWAT
A718  BD A7BB                   JSR     HMWSND
A71B  BF 002F           HFA706  STX     WIN
A71E  9E 2F             HFHTES  LDX     /WIN
A720  BD B164                   JSR     DISXWN
A723  BD EF5E                   JSR     DELAYI
A726  64                        DB      100
A727  BD AAB9                   JSR     ADWNHM
A72A  7D 018A                   TST     TWILAC
A72D  10 27 0010                BEQ     H7RES2
A731  BD EBEE                   JSR     NSYMB8
A734  BD B4A5                   JSR     GETWN2
A737  4D                        TSTA
A738  10 26 0005                BNE     H7RES2          normal win
                        ;
A73C  86 01             FAWW7   LDAA    #1
A73E  B7 0040                   STAA    WILWIN          wild win - clear wild flag later
                        ;
A741  BD A1A3           H7RES2  JSR     DTSTAK          to reset winline lamps
A744  BD AA46                   JSR     ACTROF
                        ;
A747  7F 008B           HFA800  CLR     R1DIST+3
A74A  7F 008C                   CLR     R1DIST+4
A74D  7F 008D                   CLR     R1DIST+5
A750  BD EA00                   JSR     GSYMBT
A753  B6 0156                   LDAA    R1SYMB+1
A756  81 08                     CMPA    #COIN
A758  10 26 0041                BNE     HFA900
A75C  BD AA46                   JSR     ACTROF
A75F  BD EF84                   JSR     PRLPLI
A762  85 14 3C 90               DB      FF1,LREL5M,LSMID,LPTERM
A766  C6 03                     LDAB    #3
A768  B6 0186                   LDAA    TSTAKE
A76B  81 04                     CMPA    #4
A76D  10 27 0012                BEQ     HFA820
A771  C6 03                     LDAB    #3
A773  81 08                     CMPA    #8
A775  10 27 000A                BEQ     HFA820
A779  C6 04                     LDAB    #4              
A77B  81 10                     CMPA    #16
A77D  10 27 0002                BEQ     HFA820
A781  C6 06                     LDAB    #6
A783  BD A88F           HFA820  JSR     INCARR
A786  BD AA46                   JSR     ACTROF
A789  7F 018D                   CLR     SPAINH
A78C  BD EFB9                   JSR     PRLPSI
A78F  80 3C                     DB      OF,LSMID
A791  B6 01A0                   LDAA    ARROWS
A794  81 0B                     CMPA    #11
A796  10 26 0003                BNE     HFA900
A79A  BD A7C6           HFA850  JSR     SPSERV                  spin feature & service win
                        ;
A79D  7D 0040           HFA900  TST     WILWIN
A7A0  10 27 000B                BEQ     HFA905
A7A4  7F 018A                   CLR     TWILAC
A7A7  7F 0040                   CLR     WILWIN
A7AA  BD EFB9                   JSR     PRLPSI
A7AD  80 2E                     DB      OF,LTWILD
                        ;
A7AF  BD A23F           HFA905  JSR     AUTHMC                          
A7B2  12                        NOP
A7B3  12                        NOP
A7B4  12                        NOP                                     
A7B5  12                        NOP                                     
A7B6  12                        NOP                                     
A7B7  12                        NOP                             
A7B8  7E B135           HFA910  JMP     ENDOFG
                        ;
A7BB  BD D511           HMWSND  JSR     MUSOKI
A7BE  0111                      DATA    OTWIN
A7C0  12                        NOP                     JSR     WINFX
A7C1  39                        RTS
                        ;
A7C2  BD E0D4           MYSSND  JSR     TWINFX
A7C5  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
A7C6  BD EF84           SPSERV  JSR     PRLPLI
A7C9  85 08 90                  DB      FF1,LAR0,LPTERM
A7CC  BD D511                   JSR     MUSOKI
A7CF  010B                      DATA    OSPFAN
A7D1  BD EF5E                   JSR     DELAYI
A7D4  B4                        DB      180             sample time
A7D5  7F 01A0                   CLR     ARROWS
A7D8  BD A8C8                   JSR     DISARR
A7DB  BD ADA4                   JSR     SPFEAT
A7DE  B6 0043                   LDAA    FETPOS
A7E1  10 27 00A0                BEQ     HFSPOT                  pot won
A7E5  C6 10                     LDAB    #NATION
A7E7  C1 10                     CMPB    #CZ
A7E9  10 26 0039                BNE     SPS100                  
A7ED  81 04                     CMPA    #4
A7EF  10 27 006C                BEQ     HFSMYS                  mystery won
A7F3  8E 0064                   LDX     #100
A7F6  81 01                     CMPA    #1
A7F8  10 27 006F                BEQ     HFSWIN
A7FC  8E 0032                   LDX     #50
A7FF  81 02                     CMPA    #2
A801  10 27 0066                BEQ     HFSWIN
A805  8E 003C                   LDX     #60
A808  81 03                     CMPA    #3
A80A  10 27 005D                BEQ     HFSWIN
A80E  8E 0028                   LDX     #40
A811  81 05                     CMPA    #5
A813  10 27 0054                BEQ     HFSWIN
A817  8E 00C8                   LDX     #200
A81A  81 06                     CMPA    #6
A81C  10 27 004B                BEQ     HFSWIN
A820  8E 0050                   LDX     #80                     60
A823  7E A86B                   BRA     HFSWIN
                        ;
A826  81 04             SPS100  CMPA    #4
A828  10 27 0033                BEQ     HFSMYS                  mystery won
A82C  8E 000A                   LDX     #10
A82F  81 01                     CMPA    #1
A831  10 27 0036                BEQ     HFSWIN
A835  8E 0032                   LDX     #50
A838  81 02                     CMPA    #2
A83A  10 27 002D                BEQ     HFSWIN
A83E  8E 001E                   LDX     #30
A841  81 03                     CMPA    #3
A843  10 27 0024                BEQ     HFSWIN
A847  8E 0028                   LDX     #40
A84A  81 05                     CMPA    #5
A84C  10 27 001B                BEQ     HFSWIN
A850  8E 0014                   LDX     #20
A853  81 06                     CMPA    #6
A855  10 27 0012                BEQ     HFSWIN
A859  8E 0050                   LDX     #80                     60
A85C  7E A86B                   BRA     HFSWIN
A85F  BD A942           HFSMYS  JSR     GETMYS          
A862  BF 002F                   STX     WIN
A865  BD A7C2                   JSR     MYSSND
A868  7E A86E                   BRA     HFITES
A86B  BF 002F           HFSWIN  STX     WIN
A86E  BD A7BB           HFITES  JSR     HMWSND
A871  9E 2F             HFSM1   LDX     /WIN
A873  BD B164                   JSR     DISXWN
A876  BD EF5E                   JSR     DELAYI
A879  64                        DB      100
A87A  86 08                     LDAA    #008
A87C  B7 0037                   STAA    WINBIT          sub. all feature wins from FEAT controller 
A87F  BD AAB9                   JSR     ADWNHM
A882  7E A88E                   JMP     HFS900
                        ;
A885  BD B00C           HFSPOT  JSR     SETDRP
A888  BD B061                   JSR     POTFLA
A88B  BD AB58                   JSR     ADPTHM
A88E  39                HFS900  RTS
                        ;
                        ;
A88F  B6 01A0           INCARR  LDAA    ARROWS
A892  81 0B                     CMPA    #11
A894  10 27 0014                BEQ     INCA50          all lit
A898  7C 01A0                   INC     ARROWS
A89B  BD A8C8                   JSR     DISARR
A89E  BD D511                   JSR     MUSOKI
A8A1  0107                      DATA    OINCAR
A8A3  BD EF5E                   JSR     DELAYI
A8A6  28                        DB      40              sample time
A8A7  5A                        DECB
A8A8  10 26 FFE3                BNE     INCARR
A8AC  39                INCA50  RTS
                        ;
A8AD  B6 01A0           RESARR  LDAA    ARROWS
A8B0  10 26 0013                BNE     RESA90
A8B4  C6 01                     LDAB    #1
A8B6  BD F0F8                   JSR     GETRAN
A8B9  8B 80                     ADDA    #080
A8BB  10 25 0002                BCS     RESA50
A8BF  C6 02                     LDAB    #2
A8C1  F7 01A0           RESA50  STAB    ARROWS
A8C4  BD A8C8                   JSR     DISARR
A8C7  39                RESA90  RTS
                        ;
A8C8  34 02             DISARR  PSHA
A8CA  34 04                     PSHB
A8CC                            PSHX
A8CE  F6 01A0                   LDAB    ARROWS
A8D1  8E A936                   LDX     #ARLPS
A8D4  5A                DISA10  DECB
A8D5  34 04                     PSHB
A8D7  10 2B 0005                BMI     DISAOF
A8DB  C6 8F                     LDAB    #ON
A8DD  7E A8E2                   BRA     DISA50
A8E0  C6 80             DISAOF  LDAB    #OF
A8E2  A6 89 0000        DISA50  LDAA    0,X
A8E6  81 90                     CMPA    #LPTERM
A8E8  10 27 000A                BEQ     DISA90
A8EC  BD EFD7                   JSR     PRLPST
A8EF  30 01                     INX
A8F1  35 04                     PULB
A8F3  7E A8D4                   BRA     DISA10
A8F6  35 04             DISA90  PULB
A8F8                            PULX
A8FA  35 04                     PULB
A8FC  35 02                     PULA
A8FE  39                        RTS     
                        ;
A8FF  34 02             FLAARR  PSHA
A901  34 04                     PSHB
A903                            PSHX
A905  F6 01A0                   LDAB    ARROWS
A908  8E A936                   LDX     #ARLPS
A90B  5A                FLAA10  DECB
A90C  34 04                     PSHB
A90E  10 2B 0005                BMI     FLAAOF
A912  C6 85                     LDAB    #FF1
A914  7E A919                   BRA     FLAA50
A917  C6 80             FLAAOF  LDAB    #OF
A919  A6 89 0000        FLAA50  LDAA    0,X
A91D  81 90                     CMPA    #LPTERM
A91F  10 27 000A                BEQ     FLAA90
A923  BD EFD7                   JSR     PRLPST
A926  30 01                     INX
A928  35 04                     PULB
A92A  7E A90B                   BRA     FLAA10
A92D  35 04             FLAA90  PULB
A92F                            PULX
A931  35 04                     PULB
A933  35 02                     PULA
A935  39                        RTS     
                        ;
A936  09 0A 0B 0C 18 19 ARLPS   DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0,LPTERM
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
A942  86 10             GETMYS  LDAA    #NATION
A944  81 10                     CMPA    #CZ
A946  10 26 0020                BNE     GTM50
A94A  86 01                     LDAA    #TYPE
A94C  81 02                     CMPA    #2
A94E  10 26 0018                BNE     GTM50
A952  B6 0186                   LDAA    TSTAKE          
A955  8E AA2B                   LDX     #MYS32C
A958  81 20                     CMPA    #32
A95A  10 27 002D                BEQ     GTM100
A95E  8E AA10                   LDX     #MYS16C
A961  81 10                     CMPA    #16
A963  10 27 0024                BEQ     GTM100
A967  7E A97F                   BRA     GTM80
A96A  B6 0186           GTM50   LDAA    TSTAKE
A96D  8E A9F5                   LDX     #MYS32
A970  81 20                     CMPA    #32
A972  10 27 0015                BEQ     GTM100
A976  8E A9DA                   LDX     #MYS16
A979  81 10                     CMPA    #16
A97B  10 27 000C                BEQ     GTM100
A97F  8E A9BF           GTM80   LDX     #MYS8 
A982  81 08                     CMPA    #8 
A984  10 27 0003                BEQ     GTM100
A988  8E A9A4                   LDX     #MYS4 
A98B  BD F0F8           GTM100  JSR     GETRAN
A98E  AB 89 0000        GTM150  ADDA    0,X
A992  10 25 0009                BCS     GTM200
A996  30 01                     INX
A998  30 01                     INX
A99A  30 01                     INX
A99C  7E A98E                   BRA     GTM150
A99F  AE 89 0001        GTM200  LDX     1,X
A9A3  39                        RTS
                        ;
A9A4  48                MYS4    DB      048
A9A5  0004                      DATA    4
A9A7  20                        DB      020
A9A8  0008                      DATA    8
A9AA  20                        DB      020
A9AB  0008                      DATA    8
A9AD  20                        DB      020
A9AE  000C                      DATA    12
A9B0  20                        DB      020
A9B1  0010                      DATA    16
A9B3  18                        DB      018
A9B4  0020                      DATA    32
A9B6  10                        DB      010
A9B7  0028                      DATA    40
A9B9  08                        DB      008
A9BA  0030                      DATA    48
A9BC  08                        DB      008
A9BD  0064                      DATA    100
                        ;
A9BF  48                MYS8    DB      048
A9C0  0008                      DATA    8
A9C2  20                        DB      020
A9C3  0010                      DATA    16
A9C5  20                        DB      020
A9C6  0014                      DATA    20
A9C8  20                        DB      020
A9C9  0018                      DATA    24
A9CB  20                        DB      020
A9CC  0030                      DATA    48
A9CE  18                        DB      018
A9CF  0040                      DATA    64
A9D1  10                        DB      010
A9D2  0064                      DATA    100
A9D4  08                        DB      008
A9D5  0078                      DATA    120
A9D7  08                        DB      008
A9D8  012C                      DATA    300
                        ;
A9DA  48                MYS16   DB      048
A9DB  0010                      DATA    16
A9DD  20                        DB      020
A9DE  0020                      DATA    32
A9E0  20                        DB      020
A9E1  0028                      DATA    40
A9E3  20                        DB      020
A9E4  0030                      DATA    48
A9E6  20                        DB      020
A9E7  0078                      DATA    120
A9E9  18                        DB      018
A9EA  00A0                      DATA    160
A9EC  10                        DB      010
A9ED  00C8                      DATA    200
A9EF  08                        DB      008
A9F0  0104                      DATA    260
A9F2  08                        DB      008
A9F3  01F4                      DATA    500
                        ;
A9F5  48                MYS32   DB      048
A9F6  0020                      DATA    32
A9F8  20                        DB      020
A9F9  0040                      DATA    64
A9FB  20                        DB      020
A9FC  0050                      DATA    80
A9FE  20                        DB      020
A9FF  0064                      DATA    100
AA01  20                        DB      020
AA02  0064                      DATA    100
AA04  18                        DB      018
AA05  0104                      DATA    260
AA07  10                        DB      010
AA08  012C                      DATA    300
AA0A  08                        DB      008
AA0B  02EE                      DATA    750
AA0D  08                        DB      008
AA0E  02EE                      DATA    750
                        ;
AA10  48                MYS16C  DB      048
AA11  0010                      DATA    16
AA13  20                        DB      020
AA14  0020                      DATA    32
AA16  20                        DB      020
AA17  0028                      DATA    40
AA19  20                        DB      020
AA1A  0030                      DATA    48
AA1C  20                        DB      020
AA1D  0078                      DATA    120
AA1F  18                        DB      018
AA20  00A0                      DATA    160
AA22  10                        DB      010
AA23  00C8                      DATA    200
AA25  08                        DB      008
AA26  0104                      DATA    260
AA28  08                        DB      008
AA29  012C                      DATA    300
                        ;
AA2B  48                MYS32C  DB      048
AA2C  0020                      DATA    32
AA2E  20                        DB      020
AA2F  0040                      DATA    64
AA31  20                        DB      020
AA32  0050                      DATA    80
AA34  20                        DB      020
AA35  0064                      DATA    100
AA37  20                        DB      020
AA38  0064                      DATA    100
AA3A  18                        DB      018
AA3B  0104                      DATA    260
AA3D  10                        DB      010
AA3E  012C                      DATA    300
AA40  08                        DB      008
AA41  012C                      DATA    300
AA43  08                        DB      008
AA44  012C                      DATA    300
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - 
                        ;       
AA46  BD EF84           ACTROF  JSR     PRLPLI
AA49  80 13 14 15               DB      OF,LREL4M,LREL5M,LREL6M
AA4D  03 04 05                  DB      LREL4T,LREL5T,LREL6T
AA50  23 24 25 90               DB      LREL4B,LREL5B,LREL6B,LPTERM
AA54  39                ACT900  RTS
                        ;
AA55  BD EF84           FLLIN1  JSR     PRLPLI
AA58  83 4C 0F 13 14 15         DB      F1,LWL1,LWL1B,LREL4M,LREL5M,LREL6M,LPTERM
AA5F  39                        RTS
                        ;
AA60  BD EF84           FLLIN2  JSR     PRLPLI
AA63  83 4D 1F 03 04 05         DB      F1,LWL2,LWL2B,LREL4T,LREL5T,LREL6T,LPTERM
AA6A  39                        RTS
                        ;
AA6B  BD EF84           FLLIN3  JSR     PRLPLI
AA6E  83 5C 2F 23 24 25         DB      F1,LWL3,LWL3B,LREL4B,LREL5B,LREL6B,LPTERM
AA75  39                        RTS
                        ;
AA76  BD EF84           FLLIN4  JSR     PRLPLI
AA79  83 5D 3F 03 14 25         DB      F1,LWL4,LWL4B,LREL4T,LREL5M,LREL6B,LPTERM
AA80  39                        RTS
                        ;
AA81  BD EF84           FLLIN5  JSR     PRLPLI
AA84  83 6C 3E 23 14 05         DB      F1,LWL5,LWL5B,LREL4B,LREL5M,LREL6T,LPTERM
AA8B  39                        RTS
                        ;
AA8C  BD EF84           FLLIN6  JSR     PRLPLI
AA8F  83 6D 03 13 23 90         DB      F1,LWL6,LREL4T,LREL4M,LREL4B,LPTERM
AA95  39                        RTS
                        ;
AA96  BD EF84           FLLIN7  JSR     PRLPLI
AA99  83 7C 04 14 24 90         DB      F1,LWL7,LREL5T,LREL5M,LREL5B,LPTERM
AA9F  39                        RTS
                        ;
AAA0  BD EF84           FLLIN8  JSR     PRLPLI
AAA3  83 7D 05 15 25 90         DB      F1,LWL8,LREL6T,LREL6M,LREL6B,LPTERM
AAA9  39                        RTS
                        ;
AAAA  BD EF84           TOPROF  JSR     PRLPLI
AAAD  80 03 04 05               DB      OF,LREL4T,LREL5T,LREL6T
AAB1  13 14 15                  DB      LREL4M,LREL5M,LREL6M
AAB4  23 24 25 90               DB      LREL4B,LREL5B,LREL6B,LPTERM
AAB8  39                        RTS
                        ;       
                        ;
                        ;
AAB9  9E 2F             ADWNHM  LDX     /WIN
AABB  10 27 008C                BEQ     AWH900
AABF  C6 14                     LDAB    #20
AAC1  8C 0064                   CPX     #100
AAC4  10 24 000B                BHS     AWH100
AAC8  C6 04                     LDAB    #4
AACA  8C 0004                   CPX     #4
AACD  10 24 0002                BHS     AWH100
AAD1  C6 01                     LDAB    #1
AAD3  34 04             AWH100  PSHB    
AAD5  BE 002F                   LDX     WIN
AAD8  30 1F                     DEX
AADA  9F 2F                     STX     /WIN
AADC  BE 019A                   LDX     HMETER
AADF  30 01                     INX
AAE1  BF 019A                   STX     HMETER
AAE4  F6 0181                   LDAB    GFLAGS
AAE7  C5 80                     BITB    #QTEST
AAE9  10 26 0048                BNE     AWH800
AAED  86 01                     LDAA    #1
AAEF  BD EE03                   JSR     RETWIN
AAF2  C6 00                     LDAB    #CRVERS
AAF4  86 04                     LDAA    #4              1
AAF6  C1 02                     CMPB    #2
AAF8  10 27 0012                BEQ     AWH815          
AAFC  86 0A                     LDAA    #10             2
AAFE  C1 01                     CMPB    #1
AB00  10 27 000A                BEQ     AWH815          
AB04  86 14                     LDAA    #20             
AB06  C1 00                     CMPB    #0
AB08  10 27 0002                BEQ     AWH815          
AB0C  86 05                     LDAA    #5
AB0E  BB 022C           AWH815  ADDA    WINCNT
AB11  B7 022C                   STAA    WINCNT
AB14  81 14                     CMPA    #20
AB16  10 25 001B                BLO     AWH800          no WIN METER this time
AB1A  80 14                     SUBA    #20
AB1C  B7 022C                   STAA    WINCNT
AB1F  C6 01                     LDAB    #1
AB21  BD B1F4                   JSR     IMETER
AB24  FF                        DB      0FF
AB25  15                        DB      VMWIN
AB26  BD B1F4                   JSR     IMETER
AB29  FF                        DB      0FF
AB2A  27                        DB      VMTWIN
AB2B  BD B1F4                   JSR     IMETER
AB2E  FF                        DB      0FF
AB2F  3C                        DB      VLWIN
AB30  BD B1F4                   JSR     IMETER
AB33  FF                        DB      0FF
AB34  4B                        DB      VLTWIN
AB35  35 04             AWH800  PULB
AB37  5A                        DECB
AB38  10 26 FF97                BNE     AWH100
AB3C  BE 002F                   LDX     WIN
AB3F  BD B164                   JSR     DISXWN
AB42  BD B177                   JSR     DISHM
AB45  BD B102                   JSR     ABLIP
AB48  7E AAB9                   BRA     ADWNHM
AB4B  8E 0000           AWH900  LDX     #0
AB4E  BF 002F                   STX     WIN
AB51  BD B164                   JSR     DISXWN
AB54  BD EF15                   JSR     SETNVR
AB57  39                        RTS
                        ;
AB58  BE 019C           ADPTHM  LDX     POT
AB5B  10 27 008F                BEQ     APH900
AB5F  C6 64                     LDAB    #100
AB61  8C 0064                   CPX     #100
AB64  10 24 000B                BHS     APH100
AB68  C6 04                     LDAB    #4
AB6A  8C 0004                   CPX     #4
AB6D  10 24 0002                BHS     APH100
AB71  C6 01                     LDAB    #1
AB73  34 04             APH100  PSHB    
AB75  BE 019C                   LDX     POT
AB78  30 1F                     DEX
AB7A  BF 019C                   STX     POT
AB7D  BE 019A                   LDX     HMETER
AB80  30 01                     INX
AB82  BF 019A                   STX     HMETER
AB85  F6 0181                   LDAB    GFLAGS
AB88  C5 80                     BITB    #QTEST
AB8A  10 26 004D                BNE     APH800
AB8E  86 10                     LDAA    #010            Pot controller
AB90  B7 0037                   STAA    WINBIT
AB93  86 01                     LDAA    #1
AB95  BD EE03                   JSR     RETWIN
AB98  C6 00                     LDAB    #CRVERS
AB9A  86 04                     LDAA    #4
AB9C  C1 02                     CMPB    #2
AB9E  10 27 0012                BEQ     APH815          
ABA2  86 0A                     LDAA    #10
ABA4  C1 01                     CMPB    #1
ABA6  10 27 000A                BEQ     APH815          
ABAA  86 14                     LDAA    #20             
ABAC  C1 00                     CMPB    #0
ABAE  10 27 0002                BEQ     APH815
ABB2  86 05                     LDAA    #5
ABB4  BB 022C           APH815  ADDA    WINCNT
ABB7  B7 022C                   STAA    WINCNT
ABBA  81 14                     CMPA    #20
ABBC  10 25 001B                BLO     APH800          no WIN METER this time
ABC0  80 14                     SUBA    #20
ABC2  B7 022C                   STAA    WINCNT
ABC5  C6 01                     LDAB    #1
ABC7  BD B1F4                   JSR     IMETER
ABCA  FF                        DB      0FF
ABCB  15                        DB      VMWIN
ABCC  BD B1F4                   JSR     IMETER
ABCF  FF                        DB      0FF
ABD0  27                        DB      VMTWIN
ABD1  BD B1F4                   JSR     IMETER
ABD4  FF                        DB      0FF
ABD5  3C                        DB      VLWIN
ABD6  BD B1F4                   JSR     IMETER
ABD9  FF                        DB      0FF
ABDA  4B                        DB      VLTWIN
ABDB  35 04             APH800  PULB
ABDD  5A                        DECB
ABDE  10 26 FF91                BNE     APH100
ABE2  BD E190                   JSR     DISPOT
ABE5  BD B177                   JSR     DISHM
ABE8  BD B102                   JSR     ABLIP
ABEB  7E AB58                   BRA     ADPTHM
ABEE  BD EF15           APH900  JSR     SETNVR
ABF1  39                        RTS
                        ;
                        ;****************************************************
                        ;
ABF2  34 02             RCNV    PSHA
ABF4  8E FFFD                   LDX     #-3
ABF7  A6 89 0085        RCNV05  LDAA    R1POSN+3,X
ABFB  E6 89 008B                LDAB    R1DIST+3,X
ABFF  34 04 A0E0                SBA
AC03  80 18             RCNV10  SUBA    #NSYMBS
AC05  10 2E FFFA                BGT     RCNV10
AC09  8B 18             RCNV20  ADDA    #NSYMBS
AC0B  10 2F FFFA                BLE     RCNV20
AC0F  A7 89 017C                STAA    R1NVST+3,X
AC13  30 01                     INX
AC15  10 26 FFDE                BNE     RCNV05
AC19  35 02                     PULA
AC1B  39                        RTS
                        ;
AC1C  34 02             TCNV    PSHA
AC1E  8E FFFD                   LDX     #-3
AC21  A6 89 0088        TCNV05  LDAA    R1POSN+6,X
AC25  E6 89 008E                LDAB    R1DIST+6,X
AC29  34 04 A0E0                SBA
AC2D  80 18             TCNV10  SUBA    #NSYMBT
AC2F  10 2E FFFA                BGT     TCNV10
AC33  8B 18             TCNV20  ADDA    #NSYMBT
AC35  10 2F FFFA                BLE     TCNV20
AC39  A7 89 017F                STAA    R1NVST+6,X
AC3D  30 01                     INX
AC3F  10 26 FFDE                BNE     TCNV05
AC43  35 02                     PULA
AC45  39                        RTS
                        ;
                        ;
AC46  39                DISR1   RTS
AC47  39                DISR2   RTS
AC48  39                DISR5   RTS
                        ;
                        ;--------------------------------------------------------
                        ;
AC49  BE 019A           TCRDHM  LDX     HMETER
AC4C  8C 03E8                   CPX     #1000
AC4F  10 24 0037                BHS     TCR900
AC53  BE 0198                   LDX     CRED1
AC56  8C 0004                   CPX     #4
AC59  10 23 002D                BLS     TCR900
AC5D  C6 04             TCR100  LDAB    #4
AC5F  34 04             TCR110  PSHB
AC61  BD BA58                   JSR     DECRD1
                        ;       
AC64  BE 019A           TCR200  LDX     HMETER
AC67  30 01                     INX
AC69  BF 019A                   STX     HMETER
AC6C  35 04                     PULB
AC6E  5A                        DECB
AC6F  10 26 FFEC                BNE     TCR110
AC73  BD EF15                   JSR     SETNVR
AC76  BD E000                   JSR     DYCRD1
AC79  BD B177                   JSR     DISHM
AC7C  BD B0EE                   JSR     XBLIP2
AC7F  BD F098                   JSR     TESTSI
AC82  0A                        DB      STRANS
AC83  10 27 0003                BEQ     TCR900
AC87  7E AC49                   BRA     TCRDHM
AC8A  39                TCR900  RTS
                        ;
                        ;
AC8B  86 41             I68681  LDAA    #041
AC8D  B7 08EC                   STAA    008EC
AC90  86 33                     LDAA    #033
AC92  B7 08E5                   STAA    008E5
AC95  86 00                     LDAA    #000
AC97  B7 08E4                   STAA    008E4
AC9A  86 00                     LDAA    #000
AC9C  B7 08ED                   STAA    008ED
AC9F  39                        RTS
                        ;
ACA0  7F 0088           CLRDST  CLR     R1DIST+0
ACA3  7F 0089                   CLR     R1DIST+1
ACA6  7F 008A                   CLR     R1DIST+2
ACA9  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - -
                        ;
ACAA  BD F0F8           SPAR    JSR     GETRAN
ACAD  8B F5             SP100   ADDA    #245                            246
ACAF  10 25 FFFA                BCS     SP100
ACB3  8B 33                     ADDA    #51                             50
ACB5  B7 0044                   STAA    STOPOS          40->50          40->49
ACB8  8E 0000                   LDX     #0
ACBB  BF 015E                   STX     TIMER
ACBE  BF 0045                   STX     MTIMER
ACC1  8E AD2C                   LDX     #ARLPS2
ACC4                    SP200   PSHX
ACC6  BE 0045                   LDX     MTIMER
ACC9  10 26 000B                BNE     SP210
ACCD  BD D511                   JSR     MUSOKI
ACD0  0108                      DATA    OSPAR
ACD2  8E 0046                   LDX     #70
ACD5  BF 0045                   STX     MTIMER
ACD8                    SP210   PULX
ACDA  B6 015F                   LDAA    TIMER+1
ACDD  10 26 FFE3                BNE     SP200
ACE1  7D 0044                   TST     STOPOS
ACE4  10 27 0038                BEQ     SP300
ACE8                            PSHX
ACEA  8E AD6E                   LDX     #STPTIM
ACED  B6 0044                   LDAA    STOPOS
ACF0  BD F0E7                   JSR     ADDA2X
ACF3  A6 89 0000                LDAA    0,X
ACF7  B7 015F                   STAA    TIMER+1
ACFA                            PULX
ACFC                            PSHX
ACFE  A6 89 0000                LDAA    0,X
AD02  C6 80                     LDAB    #OF
AD04  BD EFD7                   JSR     PRLPST
AD07  B6 01A0                   LDAA    ARROWS
AD0A  BD F0E7                   JSR     ADDA2X
AD0D  A6 89 0000                LDAA    0,X
AD11  C6 8F                     LDAB    #ON
AD13  BD EFD7                   JSR     PRLPST
AD16                            PULX
AD18  30 01                     INX
AD1A  7A 0044                   DEC     STOPOS
AD1D  7E ACC4                   BRA     SP200
AD20  BD D4D9           SP300   JSR     SILENT
AD23  BD EF5E                   JSR     DELAYI
AD26  14                        DB      20
AD27  BD F03F                   JSR     TESTLI
AD2A  08                        DB      LAR0 
AD2B  39                        RTS
                        ;
AD2C  09 0A 0B 0C 18 19 ARLPS2  DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
AD37  09 0A 0B 0C 18 19         DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
AD42  09 0A 0B 0C 18 19         DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
AD4D  09 0A 0B 0C 18 19         DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
AD58  09 0A 0B 0C 18 19         DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
AD63  09 0A 0B 0C 18 19         DB      LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10,LAR0 
                        ;
AD6E  14 12 10 0E 0D 0C STPTIM  DB      20,18,16,14,13,12
AD74  0B 0A 09 08 07 06         DB      11,10,9,8,7,6
AD7A  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD80  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD86  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD8C  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD92  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD98  05 05 05 05 05 05         DB      5,5,5,5,5,5
AD9E  05 05 05 05 05 05         DB      5,5,5,5,5,5
                        ;
                        ;- - - - - - - - - - - - - - - - - - - -
                        ;
ADA4  7F 0043           SPFEAT  CLR     FETPOS
ADA7  BD F0F8           SPF050  JSR     GETRAN
ADAA  8B F8             SPF100  ADDA    #248                            246
ADAC  10 25 FFFA                BCS     SPF100
ADB0  8B 30                     ADDA    #48                             50
ADB2  B7 0044                   STAA    STOPOS          40->47          40->49
                        ;
ADB5  81 28                     CMPA    #40
ADB7  10 26 000D                BNE     SPF110          not pot 
ADBB  BE 019C                   LDX     POT
ADBE  BC 019E                   CPX     POTDRP
ADC1  10 24 005E                BHS     SPF150          
ADC5  7E ADA7                   BRA     SPF050           
ADC8  C6 10             SPF110  LDAB    #NATION
ADCA  C1 10                     CMPB    #CZ
ADCC  10 26 002B                BNE     SPF120          
                        ;
ADD0  81 2D                     CMPA    #45
ADD2  10 27 004D                BEQ     SPF150          
ADD6  81 2B                     CMPA    #43
ADD8  10 27 0047                BEQ     SPF150  
ADDC  81 2A                     CMPA    #42
ADDE  10 27 0041                BEQ     SPF150          
ADE2  F6 01BB                   LDAB    TOPCON+4        Feature controller      
ADE5  CB 10                     ADDB    #010
ADE7  10 2B FFBC                BMI     SPF050          
ADEB  BD F0F8                   JSR     GETRAN
ADEE  8A E0                     ORAA    #0E0
ADF0  34 04 ABE0                ABA
ADF4  10 24 FFAF                BCC     SPF050          
ADF8  7E AE23                   JMP     SPF150
                        ;
ADFB  81 29             SPF120  CMPA    #41
ADFD  10 27 0022                BEQ     SPF150          
AE01  81 2B                     CMPA    #43
AE03  10 27 001C                BEQ     SPF150          
AE07  81 2E                     CMPA    #46
AE09  10 27 0016                BEQ     SPF150          
AE0D  F6 01BB                   LDAB    TOPCON+4        Feature controller      
AE10  CB 10                     ADDB    #010
AE12  10 2B FF91                BMI     SPF050          
AE16  BD F0F8                   JSR     GETRAN
AE19  8A E0                     ORAA    #0E0
AE1B  34 04 ABE0                ABA
AE1F  10 24 FF84                BCC     SPF050          
                        ;
AE23  8E 0000           SPF150  LDX     #0
AE26  BF 015E                   STX     TIMER
AE29  BF 0045                   STX     MTIMER
AE2C  BE 0045           SPF200  LDX     MTIMER
AE2F  10 26 000B                BNE     SPF210
AE33  BD D511                   JSR     MUSOKI
AE36  010F                      DATA    OSPF 
AE38  8E 0064                   LDX     #100
AE3B  BF 0045                   STX     MTIMER
AE3E  B6 015F           SPF210  LDAA    TIMER+1
AE41  10 26 FFE7                BNE     SPF200
AE45  7D 0044                   TST     STOPOS
AE48  10 27 003F                BEQ     SPF300
AE4C  8E AD6E                   LDX     #STPTIM
AE4F  B6 0044                   LDAA    STOPOS
AE52  BD F0E7                   JSR     ADDA2X
AE55  A6 89 0000                LDAA    0,X
AE59  B7 015F                   STAA    TIMER+1
AE5C  8E AE97                   LDX     #SPFLPS
AE5F  B6 0043                   LDAA    FETPOS
AE62  BD F0E7                   JSR     ADDA2X
AE65  A6 89 0000                LDAA    0,X
AE69  C6 80                     LDAB    #OF
AE6B  BD EFD7                   JSR     PRLPST
AE6E  A6 89 0001                LDAA    1,X
AE72  C6 8F                     LDAB    #ON
AE74  BD EFD7                   JSR     PRLPST
AE77  7A 0044                   DEC     STOPOS
AE7A  B6 0043                   LDAA    FETPOS
AE7D  4C                        INCA
AE7E  81 08                     CMPA    #8
AE80  10 26 0001                BNE     SPF250
AE84  4F                        CLRA
AE85  B7 0043           SPF250  STAA    FETPOS
AE88  7E AE2C                   BRA     SPF200
AE8B  BD D4D9           SPF300  JSR     SILENT
AE8E  BD EF5E                   JSR     DELAYI
AE91  14                        DB      20
AE92  39                        RTS
                        ;
AE93  BD EF84           SPFOFF  JSR     PRLPLI
AE96  80                        DB      OF
AE97  29 2A 2B 2C 38 39 SPFLPS  DB      LSPOT,LS10,LS50,LS30,LSMYS,LS40,LS20,LS60,LSPOT
AEA0  90                        DB      LPTERM
AEA1  39                        RTS
                        ;
                        ;********************************************************
                        ;
      0BB8              POTLIM  EQU     3000           
                        ;
                        ;Update pot and wild from top game
                        ;
AEA2  BE 019C           UPDPOT  LDX     POT
AEA5  10 26 0009                BNE     UPP100
AEA9  8E 03E8                   LDX     #1000
AEAC  BF 019C                   STX     POT             reset pot
AEAF  7E AF18                   BRA     UPP900
AEB2  8C 0BB8           UPP100  CPX     #POTLIM
AEB5  10 24 008A                BHS     UPP990          
AEB9  F6 01BA                   LDAB    TOPCON+3        pot controller
AEBC  10 2B 0083                BMI     UPP990
AEC0  10 27 007F                BEQ     UPP990  
AEC4  8E 0000                   LDX     #0
AEC7  86 28                     LDAA    #40
AEC9  BD F0E7           UPP120  JSR     ADDA2X          1 unit of msb TOPCON = 40 points
AECC  5A                        DECB
AECD  10 26 FFF8                BNE     UPP120
AED1  BC 019C                   CPX     POT
AED4  10 23 006B                BLS     UPP990          not ready for increment
AED8  F6 0186                   LDAB    TSTAKE
AEDB  C1 04                     CMPB    #4
AEDD  10 27 0062                BEQ     UPP990          no inc. on stake 4
AEE1  BD F0F8                   JSR     GETRAN
AEE4  8B 15                     ADDA    #015
AEE6  10 24 0059                BCC     UPP990          1 in 12 chance of inc.
AEEA  86 14                     LDAA    #20             +20 (STAKE 32)
AEEC  C1 20                     CMPB    #32
AEEE  10 27 0012                BEQ     UPP200
AEF2  86 0F                     LDAA    #15             +15 (STAKE 16)
AEF4  C1 10                     CMPB    #16
AEF6  10 27 000A                BEQ     UPP200
AEFA  86 0A                     LDAA    #10             +10 (STAKE 8)
AEFC  C1 08                     CMPB    #8
AEFE  10 27 0002                BEQ     UPP200
AF02  86 05                     LDAA    #5              +5 (STAKE 4)
AF04  BE 019C           UPP200  LDX     POT
AF07  30 01                     INX
AF09  8C 0BB8                   CPX     #POTLIM
AF0C  10 22 0008                BHI     UPP900
AF10  BF 019C                   STX     POT
AF13  4A                        DECA
AF14  10 26 FFEC                BNE     UPP200
AF18  BD EF15           UPP900  JSR     SETNVR
AF1B  BD EFB9                   JSR     PRLPSI
AF1E  85 29                     DB      FF1,LSPOT
AF20  BD D511                   JSR     MUSOKI
AF23  0103                      DATA    OPOTUP
AF25  BD EF5E                   JSR     DELAYI
AF28  28                        DB      40              half sample time
AF29  BD E190                   JSR     DISPOT
AF2C  7D 018A                   TST     TWILAC          no new wild if pot inc. (sound!)
AF2F  10 26 0008                BNE     HMS426
AF33  BD EFB9                   JSR     PRLPSI
AF36  80 2E                     DB      OF,LTWILD
AF38  7E AF40                   BRA     HMS427  
AF3B  BD EFB9           HMS426  JSR     PRLPSI
AF3E  85 2E                     DB      FF1,LTWILD
AF40  7E AF6B           HMS427  JMP     UPP999
                        ;
AF43  7D 018A           UPP990  TST     TWILAC
AF46  10 26 001B                BNE     HMS326
AF4A  BD F0F8                   JSR     GETRAN
AF4D  8B 08                     ADDA    #008
AF4F  10 25 0008                BCS     HMS325          1 in 32 Chance of wild active
AF53  BD EFB9                   JSR     PRLPSI
AF56  80 2E                     DB      OF,LTWILD
AF58  7E AF6A                   BRA     HMS327  
AF5B  86 01             HMS325  LDAA    #1
AF5D  B7 018A                   STAA    TWILAC
AF60  BD D511                   JSR     MUSOKI
AF63  0116                      DATA    OTWILD  
AF65  BD EFB9           HMS326  JSR     PRLPSI
AF68  85 2E                     DB      FF1,LTWILD
AF6A  12                HMS327  NOP
AF6B  39                UPP999  RTS     
                        ;
                        ;Update pot and wild from lower game
                        ;
AF6C  BE 019C           UPDPLO  LDX     POT
AF6F  10 26 0009                BNE     UPL100
AF73  8E 03E8                   LDX     #1000
AF76  BF 019C                   STX     POT             reset pot
AF79  7E AFB8                   BRA     UPL900
AF7C  8C 0BB8           UPL100  CPX     #POTLIM
AF7F  10 24 0060                BHS     UPL990          pot full - update reserve ?
AF83  F6 01BA                   LDAB    TOPCON+3        pot controller
AF86  10 2B 0059                BMI     UPL990
AF8A  10 27 0055                BEQ     UPL990  
AF8E  8E 0000                   LDX     #0
AF91  86 28                     LDAA    #40
AF93  BD F0E7           UPL120  JSR     ADDA2X          1 unit of msb TOPCON = 40 points
AF96  5A                        DECB
AF97  10 26 FFF8                BNE     UPL120
AF9B  BC 019C                   CPX     POT
AF9E  10 23 0041                BLS     UPL990          not ready for increment
AFA2  86 05                     LDAA    #5              +5 
AFA4  BE 019C           UPL200  LDX     POT
AFA7  30 01                     INX
AFA9  8C 0BB8                   CPX     #POTLIM
AFAC  10 22 0008                BHI     UPL900
AFB0  BF 019C                   STX     POT
AFB3  4A                        DECA
AFB4  10 26 FFEC                BNE     UPL200
AFB8  BD EF15           UPL900  JSR     SETNVR
AFBB  BD EFB9                   JSR     PRLPSI
AFBE  85 29                     DB      FF1,LSPOT
AFC0  BD D511                   JSR     MUSOKI
AFC3  0103                      DATA    OPOTUP
AFC5  BD EF5E                   JSR     DELAYI
AFC8  28                        DB      40              half sample time
AFC9  BD E190                   JSR     DISPOT
AFCC  7D 0187                   TST     WILDAC          no new wild if pot inc. (sound!)
AFCF  10 26 0008                BNE     UMS426
AFD3  BD EFB9                   JSR     PRLPSI
AFD6  80 63                     DB      OF,LLWILD
AFD8  7E AFE0                   BRA     UMS427  
AFDB  BD EFB9           UMS426  JSR     PRLPSI
AFDE  85 63                     DB      FF1,LLWILD
AFE0  7E B00B           UMS427  JMP     UPL999
                        ;
AFE3  7D 0187           UPL990  TST     WILDAC
AFE6  10 26 001B                BNE     RS326
AFEA  BD F0F8                   JSR     GETRAN
AFED  8B 08                     ADDA    #008
AFEF  10 25 0008                BCS     RS325           1 in 32 Chance of wild active
AFF3  BD EFB9                   JSR     PRLPSI
AFF6  80 63                     DB      OF,LLWILD
AFF8  7E B00A                   BRA     RS327   
AFFB  86 01             RS325   LDAA    #1
AFFD  B7 0187                   STAA    WILDAC
B000  BD D511                   JSR     MUSOKI
B003  0116                      DATA    OWILD   
B005  BD EFB9           RS326   JSR     PRLPSI
B008  85 63                     DB      FF1,LLWILD
B00A  12                RS327   NOP
B00B  39                UPL999  RTS
                        ;
B00C  BD F0F8           SETDRP  JSR     GETRAN
B00F  8B EB             STD100  ADDA    #235
B011  10 25 FFFA                BCS     STD100
B015  8B 15                     ADDA    #21             0->20
B017  8E B026                   LDX     #POTTAB
B01A  48                        ASLA
B01B  BD F0E7                   JSR     ADDA2X
B01E  AE 89 0000                LDX     0,X
B022  BF 019E                   STX     POTDRP
B025  39                        RTS
                        ;
B026  044C              POTTAB  DATA    1100
B028  04B0                      DATA    1200
B02A  0578                      DATA    1400
B02C  05DC                      DATA    1500
B02E  0640                      DATA    1600
B030  0708                      DATA    1800
B032  07D0                      DATA    2000
B034  0898                      DATA    2200
B036  0960                      DATA    2400
B038  09C4                      DATA    2500
B03A  0A28                      DATA    2600
B03C  0AF0                      DATA    2800
B03E  0BB8                      DATA    3000
B040  0BB8                      DATA    3000
B042  0BB8                      DATA    3000
B044  0BB8                      DATA    3000
B046  0BB8                      DATA    3000
B048  0BB8                      DATA    3000
B04A  0BB8                      DATA    3000
B04C  0BB8                      DATA    3000
B04E  0BB8                      DATA    3000
                        ;
B050  86 10             MALARM  LDAA    #NATION
B052  81 10                     CMPA    #CZ
B054  10 26 0008                BNE     MAL100
B058  BD F098                   JSR     TESTSI          
B05B  08                        DB      SMETAL
B05C  10 27 0B41                BEQ     TALARM          meters disconnected
B060  39                MAL100  RTS
                        ;
                                END
                                COPY    MH2.ASM         
                        ;
                        ;       *P
                        ;
B061  34 02             POTFLA  PSHA
B063  34 04                     PSHB
B065                            PSHX
B067  BD CD7B           PF000   JSR     FLLPAN
B06A  BD D511                   JSR     MUSOKI
B06D  0102                      DATA    OJKPOT
B06F  8E 0898                   LDX     #2200           
B072  BF 0045                   STX     MTIMER
B075  8E 0000                   LDX     #0
B078  BF 015E                   STX     TIMER
B07B  7F 0047                   CLR     NALT
B07E  BE 015E           PF800   LDX     TIMER
B081  10 26 001B                BNE     PF850
B085  8E 0019                   LDX     #25
B088  BF 015E                   STX     TIMER
B08B  7C 0047                   INC     NALT
B08E  B6 0047                   LDAA    NALT
B091  85 01                     BITA    #001
B093  10 27 0006                BEQ     PF840
B097  BD E183                   JSR     CLRPOT
B09A  7E B0A0                   BRA     PF850
B09D  BD E190           PF840   JSR     DISPOT
B0A0  BE 0045           PF850   LDX     MTIMER
B0A3  10 26 FFD7                BNE     PF800
B0A7  BD E190                   JSR     DISPOT
B0AA  BD CDA0                   JSR     JAKOFF
B0AD  BD CD4A                   JSR     LPANON
B0B0                    PF900   PULX
B0B2  35 04                     PULB
B0B4  35 02                     PULA
B0B6  39                        RTS
                        ;
B0B7  34 02             JAKFLA  PSHA
B0B9  34 04                     PSHB
B0BB                            PSHX
B0BD  BD CD7B           JF000   JSR     FLLPAN
B0C0  BD D511                   JSR     MUSOKI
B0C3  0102                      DATA    OJKPOT
B0C5  8E 0898                   LDX     #2200           
B0C8  BF 0045                   STX     MTIMER
B0CB  BE 0045           JF800   LDX     MTIMER
B0CE  10 26 FFF9                BNE     JF800
B0D2  BD CDA0                   JSR     JAKOFF
B0D5  BD CD4A                   JSR     LPANON
B0D8                    JF900   PULX
B0DA  35 04                     PULB
B0DC  35 02                     PULA
B0DE  39                        RTS
                        ;
B0DF  BD EF5E           WINTUN  JSR     DELAYI
B0E2  0A                        DB      10
B0E3  39                        RTS
                        ;
B0E4  BD D511           XBLIP   JSR     MUSOKI
B0E7  0115                      DATA    OPWBLP
B0E9  BD EF5E                   JSR     DELAYI
B0EC  04                        DB      4               
B0ED  39                        RTS
                        ;
B0EE  BD D511           XBLIP2  JSR     MUSOKI
B0F1  0115                      DATA    OPWBLP
B0F3  BD EF5E                   JSR     DELAYI
B0F6  04                        DB      4
B0F7  39                        RTS
                        ;
B0F8  BD D511           TBLIP   JSR     MUSOKI
B0FB  0115                      DATA    OPWBLP
B0FD  BD EF5E                   JSR     DELAYI
B100  04                        DB      4               
B101  39                        RTS
                        ;
B102  BD D511           ABLIP   JSR     MUSOKI
B105  0115                      DATA    OPWBLP
B107  BD EF5E                   JSR     DELAYI
B10A  04                        DB      4               
B10B  39                        RTS
                        ;
B10C  BD D511           BLIP    JSR     MUSOKI
B10F  0114                      DATA    OPWBL2
B111  BD EF5E                   JSR     DELAYI
B114  0C                        DB      12              
B115  39                        RTS
                        ;
                        ;--------------------------------------------------
                        ;
B116  F6 0181           PCONT   LDAB    GFLAGS
B119  10 2B 0015                BMI     PCOK
B11D  F6 01AB                   LDAB    PAYCON
B120  10 2A 000E                BPL     PCOK
B124  BD F0F8                   JSR     GETRAN
B127  8A E0                     ORAA    #0E0
B129  50                        NEGB
B12A  34 04 ABE0                ABA
B12E  10 25 0002                BCS     PCEND
B132  1C FE             PCOK    CLC
B134  39                PCEND   RTS
                        ;
B135  7F 008B           ENDOFG  CLR     R1DIST+3
B138  7F 008C                   CLR     R1DIST+4
B13B  7F 008D                   CLR     R1DIST+5
                        ;
B13E  BD DDD4           ENDG70  JSR     PROFDI
B141  11 80                     DB      QRESET,080
B143  BD E000                   JSR     DYCRD1
B146  BD E1C6                   JSR     DISSTK
B149  BD AA46                   JSR     ACTROF
B14C  7E 953D                   JMP     ZC000
                        ;
                        ;--------------------------------------------------------
                        ;
B14F  BD EF84           HLDOFF  JSR     PRLPLI
B152  80                        DB      OF
B153  31                        DB      LHOLD1
B154  32                        DB      LHOLD2
B155  40                        DB      LHOLD3
B156  90                        DB      LPTERM
B157  39                        RTS
                        ;
                        ;--------------------------------------------------------
                        ;
B158  BD BA70           ACMCRD  JSR     INCRD1
B15B  BE 019A           ADM10   LDX     HMETER
B15E  30 1F                     DEX
B160  BF 019A                   STX     HMETER
B163  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - -
                        ;
B164  34 02             DISXWN  PSHA
B166  34 04                     PSHB
B168                            PSHX
B16A  BD B66B                   JSR     CONW10
B16D  BD E036                   JSR     DYWIN
B170                            PULX
B172  35 04                     PULB
B174  35 02                     PULA
B176  39                        RTS
                        ;
B177  34 02             DISHM   PSHA
B179  34 04                     PSHB
B17B                            PSHX
B17D  BE 019A                   LDX     HMETER
B180  BD B66B                   JSR     CONW10
B183  BD E143                   JSR     DYHM
B186                            PULX
B188  35 04                     PULB
B18A  35 02                     PULA
B18C  39                        RTS
                        ;
B18D  34 02             DISRC   PSHA
B18F  34 04                     PSHB
B191                            PSHX
B193  BE 0038                   LDX     REFCNT
B196  BD B66B                   JSR     CONW10
B199  BD E143                   JSR     DYHM
B19C                            PULX
B19E  35 04                     PULB
B1A0  35 02                     PULA
B1A2  39                        RTS
                        ;
                        ;*********************************************************
                        ;
                                *V
                        ;
0232                    MCOUNT  DS      0
                        ;
      0000              SLIDES  EQU     000
                        ;
      00F0              MET50V  EQU     0F0             
                        ;
0232                    MMETER  DS      8
                        ;
      0002              MMTCI   EQU     2
      0004              MMTCO   EQU     4
      0006              MMTCR   EQU     6
      0008              MMTGP   EQU     8
                        ;
023A  4E 4E             MMNULL  DB      'NN'
                        ;
      0004              NM      EQU     4
                        ;
                        ;***********************************************************
                        ;
                                *P
                        ;
B1A3  12                LOCREF  NOP
                        ;
B1A4  34 04             LOCKOF  PSHB
B1A6                            PSHX
B1A8  C6 01                     LDAB    #001            
B1AA  BD C5E6                   JSR     GH1LX           
B1AD  BC 0173                   CPX     H1CNT
B1B0  10 22 0002                BHI     LOF20           hopper
B1B4  CA 02                     ORAB    #002            cbox
B1B6  BD C5D8           LOF20   JSR     GH2LX           
B1B9  BC 0175                   CPX     H2CNT
B1BC  10 22 0002                BHI     LOF30           hopper
B1C0  CA 0C                     ORAB    #00C            cbox
B1C2  F7 0C02           LOF30   STAB    00C02
B1C5                    LOF50   PULX
B1C7  C6 80                     LDAB    #080
B1C9  F7 0C00                   STAB    00C00           notes INHIBITED
B1CC  35 04                     PULB
B1CE  39                        RTS
                        ;
B1CF                    LOCKON  PSHX
B1D1  C6 00                     LDAB    #000
B1D3  BD C5E6                   JSR     GH1LX
B1D6  BC 0173                   CPX     H1CNT
B1D9  10 22 0002                BHI     DOC70           hopper
B1DD  CA 02                     ORAB    #002            cbox
B1DF  BD C5D8           DOC70   JSR     GH2LX
B1E2  BC 0175                   CPX     H2CNT
B1E5  10 22 0002                BHI     DOC80           hopper
B1E9  CA 0C                     ORAB    #00C            cbox
B1EB  F7 0C02           DOC80   STAB    00C02
B1EE                            PULX
B1F0  7F 0C00                   CLR     00C00           notes ENABLED    
B1F3  39                        RTS
                        ;
                        ;******************************************************
                        ;
B1F4  BD F109           IMETER  JSR     SWOPSX
B1F7  34 04                     PSHB
B1F9  34 02                     PSHA
B1FB  5D                MET10   TSTB
B1FC  10 27 0059                BEQ     MET30
B200                            PSHX
B202                            PSHX
B204  A6 89 0000                LDAA    0,X
B208  81 FF                     CMPA    #0FF
B20A  10 27 0012                BEQ     MET15
B20E  8E 0230                   LDX     #MMETER-2
B211  BD F0E7                   JSR     ADDA2X
B214  6C 89 0001                INC     1,X
B218  10 26 0004                BNE     MET15
B21C  6C 89 0000                INC     0,X
B220                    MET15   PULX
B222  A6 89 0001                LDAA    1,X
B226  81 FF                     CMPA    #0FF
B228  10 27 0027                BEQ     MET29
B22C  8E 01CD                   LDX     #VMETER-3
B22F  BD F0E7           MET18   JSR     ADDA2X
B232  A6 89 0002                LDAA    2,X
B236  8B 01                     ADDA    #001
B238  19                        DAA
B239  A7 89 0002                STAA    2,X
B23D  A6 89 0001                LDAA    1,X
B241  89 00                     ADCA    #000
B243  19                        DAA
B244  A7 89 0001                STAA    1,X
B248  A6 89 0000                LDAA    0,X
B24C  89 00                     ADCA    #000
B24E  19                        DAA
B24F  A7 89 0000                STAA    0,X
B253                    MET29   PULX
B255  5A                        DECB
B256  7E B1FB                   BRA     MET10
B259  35 02             MET30   PULA
B25B  35 04                     PULB
B25D  30 01                     INX
B25F  30 01                     INX
B261  BD F109                   JSR     SWOPSX
B264  39                        RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
B265  34 02             UPDOOR  PSHA
B267  F6 0181                   LDAB    GFLAGS
B26A  BD F098                   JSR     TESTSI
B26D  17                        DB      SBDOOR
B26E  10 27 0006                BEQ     UPD15
B272  CA 20                     ORAB    #QDOOR
B274  43                        COMA
B275  7E B27A                   BRA     UPD20
B278  C4 DF             UPD15   ANDB    #0FF-QDOOR
B27A  F7 0181           UPD20   STAB    GFLAGS
B27D  B8 01AA                   EORA    NVSTAT
B280  84 80                     ANDA    #080
B282  10 26 0003                BNE     UPD25
B286  7E B30D                   JMP     UPD80
B289  B8 01AA           UPD25   EORA    NVSTAT
B28C  B7 01AA                   STAA    NVSTAT
B28F  34 02                     PSHA
B291  BD EF15                   JSR     SETNVR
B294  1F 41                     TSX
B296  6D 89 0000                TST     0,X
B29A  10 2A 002E                BPL     UPD50           JUST CLOSED
                        ;
B29E  8E 0198                   LDX     #CRED1
B2A1  A6 89 0000        UPD30   LDAA    0,X
B2A5  A7 89 0009                STAA    9,X
B2A9  30 01                     INX
B2AB  8C 01A1                   CPX     #VCRED1
B2AE  10 26 FFEF                BNE     UPD30
B2B2  7F 0198                   CLR     CRED1
B2B5  86 14                     LDAA    #20
B2B7  B7 0199                   STAA    CRED1+1         20 SERVICE CREDITS
B2BA  BD DF87                   JSR     DYCLR
B2BD  BD E000                   JSR     DYCRD1
B2C0  BD B177                   JSR     DISHM
B2C3  BD E190                   JSR     DISPOT
B2C6  BD A8C8                   JSR     DISARR
B2C9  7E B306                   JMP     UPD75
                        ;
B2CC  8E 0198           UPD50   LDX     #CRED1
B2CF  A6 89 0009        UPD55   LDAA    9,X
B2D3  A7 89 0000                STAA    0,X
B2D7  30 01                     INX
B2D9  8C 01A1                   CPX     #VCRED1
B2DC  10 26 FFEF                BNE     UPD55
                        ;
B2E0  BD DF87                   JSR     DYCLR
B2E3  BD E000                   JSR     DYCRD1
B2E6  BD B177                   JSR     DISHM
B2E9  BD E190                   JSR     DISPOT
B2EC  BD A8C8                   JSR     DISARR
                        ;
B2EF  F6 0181           UPD74   LDAB    GFLAGS
B2F2  C4 7E             UPD74A  ANDB    #0FF-(QRHAV+QTEST)
B2F4  F7 0181                   STAB    GFLAGS
                        ;
B2F7  BD BA35                   JSR     HSOFF
B2FA  BD EF15                   JSR     SETNVR
B2FD  35 02                     PULA
B2FF  8A 40                     ORAA    #040
B301  35 02                     PULA
B303  7E 93F3                   JMP     RESET
                        ;
B306  BD EF15           UPD75   JSR     SETNVR
B309  35 02                     PULA
B30B  8A 40                     ORAA    #040
B30D  35 02             UPD80   PULA
B30F  39                        RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
      0001              MYS     EQU     1
                        ;
B310  80                WINTB4  DB      TOPIND 
B311  0E 4A 00                  DB      %1110,(9<3)+2,0
B314  01                        DB      SEVEN
B315  0E 42 00                  DB      %1110,(8<3)+2,0
B318  05                        DB      BELL 
B319  0E 3A 00                  DB      %1110,(7<3)+2,0
B31C  04                        DB      MELO
B31D  0E 32 00                  DB      %1110,(6<3)+2,0
B320  03                        DB      GRAP 
B321  0E 2D 00                  DB      %1110,(5<3)+5,0
B324  06                        DB      STRAWB
B325  0E 25 00                  DB      %1110,(4<3)+5,0
B328  02                        DB      PEAR 
B329  0E 19 00                  DB      %1110,(3<3)+1,0
B32C  20                        DB      PLUM
B32D  0E 11 00                  DB      %1110,(2<3)+1,0
B330  10                        DB      ORAN
B331  0E 08 00                  DB      %1110,(MYS<3)+0,0
B334  00                        DB      0
                        ;
                        W343    MACR
                                DB      \A
                                DB      %1110,\B
                                DB      0
                                ENDM
                        ;
B335                    WINTAB  DS      0
B335                            W343    ,IND,(9<2)+3
B339                            W343    ,BELL,(8<2)+3
B33D                            W343    ,MELO,(7<2)+3
B341                            W343    ,GRAP,(6<2)+2
B345                            W343    ,PEAR,(6<2)+2
B349                            W343    ,PEAXE,(5<2)+2
B34D                            W343    ,PLUM,(5<2)+2
B351                            W343    ,ORAN,(4<2)+2
B355                            W343    ,LEMO,(4<2)+2
B359                            W343    ,LEMAXE,(3<2)+1
B35D  08                        DB      CHER
B35E  0E 0D 0C 09 08 05         DB      %1110,(3<2)+1,%1100,(2<2)+1,%1000,(1<2)+1,0
B365  00                        DB      0
                        ;
                        ;*****************************************************
                        ;
B366  34 02             UPVCLK  PSHA
B368  34 04                     PSHB
B36A  B6 0227                   LDAA    PCLOCK
B36D  81 18                     CMPA    #018
B36F  10 25 0017                BLO     UPV500
B373  B6 0227                   LDAA    PCLOCK
B376  80 17                     SUBA    #017
B378  B7 0227                   STAA    PCLOCK
B37B  B6 0228                   LDAA    PCLOCK+1
B37E  80 70                     SUBA    #070
B380  B7 0228                   STAA    PCLOCK+1
B383  C6 01                     LDAB    #1
B385  BD B1F4                   JSR     IMETER
B388  FF                        DB      0FF
B389  54                        DB      VMPWR
B38A  B6 0229           UPV500  LDAA    GCLOCK
B38D  81 18                     CMPA    #018
B38F  10 25 0017                BLO     UPV900
B393  B6 0229                   LDAA    GCLOCK
B396  80 17                     SUBA    #017
B398  B7 0229                   STAA    GCLOCK
B39B  B6 022A                   LDAA    GCLOCK+1
B39E  80 70                     SUBA    #070
B3A0  B7 022A                   STAA    GCLOCK+1
B3A3  C6 01                     LDAB    #1
B3A5  BD B1F4                   JSR     IMETER
B3A8  FF                        DB      0FF
B3A9  57                        DB      VMGMON
B3AA  35 04             UPV900  PULB
B3AC  35 02                     PULA
B3AE  39                        RTS
                        ;
                        ;------------------------------------------------------
                        ;
B3AF  BD E98E           PREWIN  JSR     GSYMBS
B3B2  8E B335                   LDX     #WINTAB
B3B5  BD E8CE                   JSR     QWINAN
B3B8  F6 0185                   LDAB    STAKE
B3BB  C1 01                     CMPB    #1
B3BD  10 27 0057                BEQ     PRE900
B3C1  34 02                     PSHA
B3C3  7C 0088                   INC     R1DIST+0
B3C6  7C 0089                   INC     R1DIST+1
B3C9  7C 008A                   INC     R1DIST+2
B3CC  BD E98E                   JSR     GSYMBS
B3CF  8E B335                   LDX     #WINTAB
B3D2  BD E8CE                   JSR     QWINAN
B3D5  35 04                     PULB
B3D7  34 04 A1E0                CBA
B3DB  10 22 0005                BHI     PRE100          line 2 win better
B3DF  34 04                     PSHB
B3E1  7E B3E6                   BRA     PRE200
B3E4  34 02             PRE100  PSHA
B3E6  7A 0088           PRE200  DEC     R1DIST+0
B3E9  7A 0088                   DEC     R1DIST+0
B3EC  7A 0089                   DEC     R1DIST+1
B3EF  7A 0089                   DEC     R1DIST+1
B3F2  7A 008A                   DEC     R1DIST+2
B3F5  7A 008A                   DEC     R1DIST+2
B3F8  BD E98E                   JSR     GSYMBS
B3FB  8E B335                   LDX     #WINTAB
B3FE  BD E8CE                   JSR     QWINAN
B401  35 04                     PULB
B403  34 04 A1E0                CBA
B407  10 22 0004                BHI     PRE800          line 3 win better
B40B  34 04 A6E0                TBA
B40F  7C 0088           PRE800  INC     R1DIST+0
B412  7C 0089                   INC     R1DIST+1
B415  7C 008A                   INC     R1DIST+2
B418  39                PRE900  RTS
                        ;
B419  BD E98E           PREWAH  JSR     GSYMBS
B41C  8E 96E3                   LDX     #AHDTAB
B41F  BD E8CE                   JSR     QWINAN
B422  F6 0185                   LDAB    STAKE
B425  C1 01                     CMPB    #1
B427  10 27 0057                BEQ     PAH900
B42B  34 02                     PSHA
B42D  7C 0088                   INC     R1DIST+0
B430  7C 0089                   INC     R1DIST+1
B433  7C 008A                   INC     R1DIST+2
B436  BD E98E                   JSR     GSYMBS
B439  8E 96E3                   LDX     #AHDTAB
B43C  BD E8CE                   JSR     QWINAN
B43F  35 04                     PULB
B441  34 04 A1E0                CBA
B445  10 22 0005                BHI     PAH100          line 2 win better
B449  34 04                     PSHB
B44B  7E B450                   BRA     PAH200
B44E  34 02             PAH100  PSHA
B450  7A 0088           PAH200  DEC     R1DIST+0
B453  7A 0088                   DEC     R1DIST+0
B456  7A 0089                   DEC     R1DIST+1
B459  7A 0089                   DEC     R1DIST+1
B45C  7A 008A                   DEC     R1DIST+2
B45F  7A 008A                   DEC     R1DIST+2
B462  BD E98E                   JSR     GSYMBS
B465  8E 96E3                   LDX     #AHDTAB
B468  BD E8CE                   JSR     QWINAN
B46B  35 04                     PULB
B46D  34 04 A1E0                CBA
B471  10 22 0004                BHI     PAH800          line 3 win better
B475  34 04 A6E0                TBA
B479  7C 0088           PAH800  INC     R1DIST+0
B47C  7C 0089                   INC     R1DIST+1
B47F  7C 008A                   INC     R1DIST+2
B482  39                PAH900  RTS
                        ;
B483  BD E98E           AUTWIN  JSR     GSYMBS
B486  8E B335           GETWIN  LDX     #WINTAB
B489  BD E8CE           GTW10   JSR     QWINAN
B48C  5F                GTW15   CLRB
B48D  4D                        TSTA
B48E  34 02                     PSHA
B490  10 27 000A                BEQ     GTW30
B494  84 03                     ANDA    #003
B496  C6 10                     LDAB    #010
B498  54                GTW20   LSRB
B499  4A                        DECA
B49A  10 2A FFFA                BPL     GTW20
B49E  D7 37             GTW30   STAB    /WINBIT
B4A0  35 02                     PULA
B4A2  44                        LSRA
B4A3  44                        LSRA
B4A4  39                        RTS
                        ;
B4A5  8E B310           GETWN2  LDX     #WINTB4
B4A8  BD E8CE                   JSR     QWINAN
B4AB  5F                        CLRB
B4AC  4D                        TSTA
B4AD  34 02                     PSHA
B4AF  10 27 000D                BEQ     GTW230
B4B3  84 07                     ANDA    #007
B4B5  C6 80                     LDAB    #080
B4B7  4A                GTW220  DECA
B4B8  10 2B 0004                BMI     GTW230  
B4BC  54                        LSRB
B4BD  7E B4B7                   BRA     GTW220
B4C0  D7 37             GTW230  STAB    /WINBIT
B4C2  35 02                     PULA
B4C4  44                        LSRA
B4C5  44                        LSRA
B4C6  44                        LSRA
B4C7  39                        RTS
                        ;
                        ;
B4C8  8E B310           PREWN2  LDX     #WINTB4
B4CB  BD E8CE                   JSR     QWINAN
B4CE  39                        RTS
                        ;
                        ;-------------------------------------------------------
                        ;
B4CF  96 31             ADJWV   LDAA    /WINVAL
B4D1  84 7F             ADJWA   ANDA    #07F
B4D3  10 27 000B                BEQ     ADJWV1
B4D7  8E B4E1           ADJWV0  LDX     #RWINTB-2
B4DA  48                ADJWV3  ASLA
B4DB  BD F0E7                   JSR     ADDA2X
B4DE  AE 89 0000                LDX     0,X
B4E2  39                ADJWV1  RTS
                        ;
B4E3  0002              RWINTB  DATA    2                       1
B4E5  0004                      DATA    4                       2
B4E7  0008                      DATA    8                       3
B4E9  000C                      DATA    12                      4
B4EB  0010                      DATA    16                      5
B4ED  0014                      DATA    20                      6
B4EF  0028                      DATA    40                      7
B4F1  0064                      DATA    100                     8
B4F3  00FA                      DATA    250                     9
                        ;
B4F5  34 04             ADJWAT  PSHB
B4F7  84 7F                     ANDA    #07F
B4F9  10 27 004E                BEQ     ADJWT1
B4FD  8E B54C                   LDX     #TWINT1-2
B500  F6 0186                   LDAB    TSTAKE
B503  C1 04                     CMPB    #4
B505  10 27 003A                BEQ     ADJWT0
B509  8E B55E                   LDX     #TWINT2-2
B50C  C1 08                     CMPB    #8
B50E  10 27 0031                BEQ     ADJWT0
B512  C6 10                     LDAB    #NATION
B514  C1 10                     CMPB    #CZ
B516  10 26 001A                BNE     ADJNC
B51A  C6 01                     LDAB    #TYPE
B51C  C1 02                     CMPB    #2
B51E  10 26 0012                BNE     ADJNC
B522  8E B594                   LDX     #CWINT3-2               
B525  F6 0186                   LDAB    TSTAKE
B528  C1 10                     CMPB    #16
B52A  10 27 0015                BEQ     ADJWT0
B52E  8E B5A6                   LDX     #CWINT4-2
B531  7E B543                   BRA     ADJWT0
B534  8E B570           ADJNC   LDX     #TWINT3-2
B537  F6 0186                   LDAB    TSTAKE
B53A  C1 10                     CMPB    #16
B53C  10 27 0003                BEQ     ADJWT0
B540  8E B582                   LDX     #TWINT4-2
B543  48                ADJWT0  ASLA
B544  BD F0E7                   JSR     ADDA2X
B547  AE 89 0000                LDX     0,X
B54B  35 04             ADJWT1  PULB
B54D  39                        RTS
                        ;
B54E  0004              TWINT1  DATA    4               MYS     1
B550  0008                      DATA    8                       2
B552  0008                      DATA    8                       3
B554  000C                      DATA    12                      4
B556  0010                      DATA    16                      5
B558  0020                      DATA    32                      6
B55A  0028                      DATA    40                      7
B55C  0030                      DATA    48                      8
B55E  0064                      DATA    100                     9
                        ;
B560  0008              TWINT2  DATA    8               MYS     1
B562  0010                      DATA    16                      2
B564  0014                      DATA    20                      3
B566  0018                      DATA    24                      4
B568  0030                      DATA    48                      5
B56A  0040                      DATA    64                      6
B56C  0064                      DATA    100                     7
B56E  0078                      DATA    120                     8
B570  012C                      DATA    300                     9
                        ;
B572  0010              TWINT3  DATA    16              MYS     1
B574  0020                      DATA    32                      2
B576  0028                      DATA    40                      3
B578  0030                      DATA    48                      4
B57A  0078                      DATA    120                     5
B57C  00A0                      DATA    160                     6
B57E  00C8                      DATA    200                     7
B580  0104                      DATA    260                     8
B582  01F4                      DATA    500                     9
                        ;
B584  0020              TWINT4  DATA    32              MYS     1
B586  0040                      DATA    64                      2
B588  0050                      DATA    80                      3
B58A  0064                      DATA    100                     4
B58C  0104                      DATA    260                     5
B58E  012C                      DATA    300                     6
B590  012C                      DATA    300                     7
B592  012C                      DATA    300                     8
B594  02EE                      DATA    750                     9
                        ;
B596  0010              CWINT3  DATA    16              MYS     1
B598  0020                      DATA    32                      2
B59A  0028                      DATA    40                      3
B59C  0030                      DATA    48                      4
B59E  0078                      DATA    120                     5
B5A0  00A0                      DATA    160                     6
B5A2  00C8                      DATA    200                     7
B5A4  0104                      DATA    260                     8
B5A6  012C                      DATA    300                     9
                        ;
B5A8  0020              CWINT4  DATA    32              MYS     1
B5AA  0040                      DATA    64                      2
B5AC  0050                      DATA    80                      3
B5AE  0064                      DATA    100                     4
B5B0  0104                      DATA    260                     5
B5B2  012C                      DATA    300                     6
B5B4  012C                      DATA    300                     7
B5B6  012C                      DATA    300                     8
B5B8  012C                      DATA    300                     9
                        ;
                        ;****************************************************
                        ;
B5BA  12                GRDIST  NOP
B5BB  C6 F8                     LDAB    #-8
B5BD  34 04             GRD10   PSHB
B5BF  C6 10                     LDAB    #16             
B5C1  F7 001A                   STAB    SPFLAG
B5C4  8E 0000                   LDX     #0
B5C7  86 31                     LDAA    #LHOLD1         Spin reel 1 ?
B5C9  BD B614                   JSR     GRD90
B5CC  86 32                     LDAA    #LHOLD2         Spin reel 2 ?
B5CE  BD B614                   JSR     GRD90
B5D1  86 40                     LDAA    #LHOLD3         Spin reel 3 ?
B5D3  BD B614                   JSR     GRD90
                        ;
B5D6  BD B3AF                   JSR     PREWIN          A := RW   
                        ;
B5D9  4D                GRD25   TSTA
B5DA  10 26 0003                BNE     GRD45
B5DE  7E B611                   JMP     GRD80           
                        ;
B5E1  C6 10             GRD45   LDAB    #16     
B5E3  8E 01AB           GRD46   LDX     #PAYCON
B5E6  84 03                     ANDA    #003            wins are 001,002 or 003
B5E8  B1 01CF                   CMPA    PARTY           
B5EB  10 27 0022                BEQ     GRD80           
B5EF  BD F0E7           GRD48   JSR     ADDA2X
B5F2  EB 89 0000                ADDB    0,X
B5F6  10 2B 000D                BMI     GRD70
B5FA  BD F0F8           GRD50   JSR     GETRAN
B5FD  8A E0                     ORAA    #0E0            
B5FF  34 04 ABE0                ABA
B603  10 25 000A                BCS     GRD80
                        ;
B607  35 04             GRD70   PULB
B609  5C                        INCB
B60A  10 27 0005                BEQ     GRD85
B60E  7E B5BD                   JMP     GRD10
B611  35 04             GRD80   PULB
B613  39                GRD85   RTS
                        ;
B614  34 02             GRD90   PSHA
B616  BD F0F8           GRD91   JSR     GETRAN
B619  7D 001A                   TST     SPFLAG
B61C  10 26 002A                BNE     GRD96
B620  8B 06             GRD92   ADDA    #6
B622  10 24 FFFA                BCC     GRD92
B626  8B 07                     ADDA    #7              
B628  34 04 ABE0        GRD93   ABA
B62C  34 02 E6E0                TAB
                        ;
B630  35 02                     PULA
B632  BD F04E                   JSR     TESTLP
B635  10 2E 000A                BGT     GRD94A
B639  E7 89 0088                STAB    R1DIST,X
B63D  7F 001A           GRD94   CLR     SPFLAG
B640  7E B647                   BRA     GRD95
B643  6F 89 0088        GRD94A  CLR     R1DIST,X
B647  30 01             GRD95   INX
B649  39                        RTS
                        ;
B64A  8B 18             GRD96   ADDA    #24
B64C  10 24 FFFA                BCC     GRD96
B650  7E B628                   BRA     GRD93
                        ;
                        ;-------------------------------------------------
                        ;
B653  BE 018B           CONPAI  LDX     PAID
B656  7E B66B                   BRA     CONW10
                        ;
B659  BE 0198           CONCRD  LDX     CRED1
B65C  7E B66B                   BRA     CONW10
                        ;
B65F  BE 019C           CONPOT  LDX     POT
B662  7E B66B                   BRA     CONW10
                        ;
B665  8E 0000           CONWIN  LDX     #0
B668  BD F0E7                   JSR     ADDA2X
B66B  BF 003B           CONW10  STX     TRATEM
B66E  4F                        CLRA
B66F  5F                        CLRB
B670  7D 003B           CONW20  TST     TRATEM
B673  10 27 0018                BEQ     CONW30
B677  7A 003B                   DEC     TRATEM
B67A  8B 56                     ADDA    #056
B67C  19                        DAA
B67D  34 02                     PSHA
B67F  34 04 A6E0                TBA
B683  89 02                     ADCA    #002
B685  19                        DAA
B686  34 02 E6E0                TAB
B68A  35 02                     PULA
B68C  7E B670                   BRA     CONW20
B68F  34 02             CONW30  PSHA
B691  B6 003C           CONW31  LDAA    TRATEM+1
B694  81 64                     CMPA    #100
B696  10 24 0009                BHS     CONW40
B69A  81 0A                     CMPA    #10
B69C  10 25 0036                BLO     CONW48
B6A0  7E B6B9                   BRA     CONW44
B6A3  B6 003C           CONW40  LDAA    TRATEM+1
B6A6  8B 9C                     ADDA    #-100
B6A8  B7 003C                   STAA    TRATEM+1
B6AB  34 04 A6E0                TBA
B6AF  8B 01                     ADDA    #001
B6B1  19                        DAA
B6B2  34 02 E6E0                TAB
B6B6  7E B691                   BRA     CONW31
                        ;
B6B9  B6 003C           CONW44  LDAA    TRATEM+1
B6BC  8B F6                     ADDA    #-10
B6BE  B7 003C                   STAA    TRATEM+1
B6C1  35 02                     PULA
B6C3  8B 10                     ADDA    #010
B6C5  19                        DAA
B6C6  34 02                     PSHA
B6C8  34 04 A6E0                TBA
B6CC  89 00                     ADCA    #000
B6CE  19                        DAA
B6CF  34 02 E6E0                TAB
B6D3  7E B691                   BRA     CONW31
                        ;
B6D6  7D 003C           CONW48  TST     TRATEM+1
B6D9  10 27 0018                BEQ     CONW50
B6DD  7A 003C                   DEC     TRATEM+1
B6E0  35 02                     PULA
B6E2  8B 01                     ADDA    #001
B6E4  19                        DAA
B6E5  34 02                     PSHA
B6E7  34 04 A6E0                TBA
B6EB  89 00                     ADCA    #000
B6ED  19                        DAA
B6EE  34 02 E6E0                TAB
B6F2  7E B691                   BRA     CONW31
                        ;
B6F5  35 02             CONW50  PULA
B6F7  39                        RTS             A:-LSB,B:-MSB
                        ;
                        ;******************************************************
                        ;
B6F8  04 04 05 05 06 06 AGTIM   DB      4,4,5,5,6,6,7,7,8,8,10,12,14,16,18,20,22,24
                        ;
B70A  BE 015E           FLAGAM  LDX     TIMER
B70D  10 26 002A                BNE     GAM160
B711  8E 0004                   LDX     #4
B714  BF 015E                   STX     TIMER
B717  86 73                     LDAA    #LGAMH  
B719  BD F04E                   JSR     TESTLP
B71C  10 2E 000F                BGT     GAM150
B720  C6 8F                     LDAB    #ON
B722  BD EFD7                   JSR     PRLPST
B725  86 74                     LDAA    #LGAMT
B727  C6 80                     LDAB    #OF
B729  BD EFD7                   JSR     PRLPST
B72C  7E B73B                   BRA     GAM160
B72F  C6 80             GAM150  LDAB    #OF
B731  BD EFD7                   JSR     PRLPST
B734  C6 8F                     LDAB    #ON
B736  86 74                     LDAA    #LGAMT
B738  BD EFD7                   JSR     PRLPST
B73B  BE 0160           GAM160  LDX     GTIMER
B73E  10 26 000C                BNE     GAM190
B742  8E 0032                   LDX     #50
B745  BF 0160                   STX     GTIMER
B748  7C 0055                   INC     GALT
B74B  BD E21D                   JSR     DISGWL
B74E  39                GAM190  RTS
                        ;
B74F  8E 0000           GETWL   LDX     #0
B752  BF 004D                   STX     GLOSE1
B755  B6 0030                   LDAA    WIN+1
B758  48                        ASLA
B759  B7 0052                   STAA    GWIN1+1
B75C  B6 002F                   LDAA    WIN
B75F  49                        ROLA
B760  B7 0051                   STAA    GWIN1           gamble #1 results (double/nothing)
                        ;
B763  B6 002F                   LDAA    WIN
B766  44                        LSRA
B767  B7 004F                   STAA    GLOSE2
B76A  B6 0030                   LDAA    WIN+1
B76D  46                        RORA
B76E  B7 0050                   STAA    GLOSE2+1
B771  B6 0030                   LDAA    WIN+1
B774  BB 0050                   ADDA    GLOSE2+1
B777  B7 0054                   STAA    GWIN2+1
B77A  B6 002F                   LDAA    WIN
B77D  B9 004F                   ADCA    GLOSE2
B780  B7 0053                   STAA    GWIN2           gamble #2 results
B783  39                        RTS
                        ;
B784  7F 001D           DOGAMB  CLR     GAMNO
B787  7F 004C                   CLR     GAMTYP
B78A  9E 2F             GAM050  LDX     /WIN
B78C  10 27 029A                BEQ     GAMEND
B790  86 10                     LDAA    #NATION
B792  81 10                     CMPA    #CZ
B794  10 26 0012                BNE     GAM05B
B798  86 01                     LDAA    #TYPE
B79A  81 02                     CMPA    #2
B79C  10 26 000A                BNE     GAM05B
B7A0  8C 0096                   CPX     #150
B7A3  10 24 019F                BHS     GAMJAK
B7A7  7E B7B1                   BRA     GAM05C
B7AA  8C 015E           GAM05B  CPX     #350
B7AD  10 24 0195                BHS     GAMJAK
B7B1  BD EF84           GAM05C  JSR     PRLPLI
B7B4  85 51 90                  DB      FF1,LGAMBL,LPTERM
B7B7  BE 002F                   LDX     WIN
B7BA  8C 0002                   CPX     #2
B7BD  10 27 0006                BEQ     GAM05A
B7C1  BD EF84                   JSR     PRLPLI
B7C4  8A 30 90                  DB      FF2,LCWIN,LPTERM
B7C7  B6 0030           GAM05A  LDAA    WIN+1
B7CA  85 01                     BITA    #001
B7CC  10 26 000A                BNE     GAM051          odd - no gamble select
B7D0  BE 002F                   LDX     WIN
B7D3  8C 0002                   CPX     #2
B7D6  10 26 000B                BNE     GAM052
B7DA  7F 004C           GAM051  CLR     GAMTYP
B7DD  BD EFB9                   JSR     PRLPSI
B7E0  80 42                     DB      OF,LSEGAM
B7E2  7E B7EA                   BRA     GAM053
B7E5  BD EFB9           GAM052  JSR     PRLPSI
B7E8  83 42                     DB      F1,LSEGAM
B7EA  7F 0055           GAM053  CLR     GALT
B7ED  8E 0000                   LDX     #0
B7F0  BF 0045                   STX     MTIMER
B7F3  BD E2E7                   JSR     DISGV
B7F6  BD B74F                   JSR     GETWL
B7F9  BE 0045           GAM110  LDX     MTIMER
B7FC  10 26 000B                BNE     GAM111
B800  8E 0078                   LDX     #120
B803  BF 0045                   STX     MTIMER          insert sample time
B806  BD D511                   JSR     MUSOKI
B809  0110                      DATA    OGAMAC 
B80B  BD B70A           GAM111  JSR     FLAGAM
B80E  B6 011D                   LDAA    SWSTAT+6
B811  85 80                     BITA    #QAPLAY
B813  10 26 0156                BNE     GAMTRA
                        ;
B817  BD F03F                   JSR     TESTLI
B81A  42                        DB      LSEGAM
B81B  10 26 002C                BNE     GAM195
B81F  BD F098                   JSR     TESTSI
B822  1D                        DB      SSEGAM
B823  10 27 0024                BEQ     GAM195
B827  BD EF84                   JSR     PRLPLI
B82A  8F 42 80 30 51 90         DB      ON,LSEGAM,OF,LCWIN,LGAMBL,LPTERM
B830  7C 004C                   INC     GAMTYP
B833  BD E21D                   JSR     DISGWL
B836  BD B70A           GAM194  JSR     FLAGAM
B839  BD F098                   JSR     TESTSI
B83C  1D                        DB      SSEGAM
B83D  10 26 FFF5                BNE     GAM194
B841  BD EF84                   JSR     PRLPLI
B844  8A 30 85 51 83 42         DB      FF2,LCWIN,FF1,LGAMBL,F1,LSEGAM,LPTERM
                        ;
B84B  BD F03F           GAM195  JSR     TESTLI
B84E  30                        DB      LCWIN
B84F  10 26 0011                BNE     GAM197
B853  B6 011D                   LDAA    SWSTAT+6
B856  85 80                     BITA    #QAPLAY
B858  10 26 0111                BNE     GAMTRA
B85C  BD F098                   JSR     TESTSI
B85F  18                        DB      SCWIN
B860  10 26 0109                BNE     GAMTRA
B864  B6 011D           GAM197  LDAA    SWSTAT+6
B867  85 80                     BITA    #QAPLAY
B869  10 26 0008                BNE     GAM199
B86D  BD F098                   JSR     TESTSI
B870  1F                        DB      SGAMBL
B871  10 27 FF84                BEQ     GAM110
B875  7C 006A           GAM199  INC     GAMALT
B878  B6 006A                   LDAA    GAMALT
B87B  85 01                     BITA    #001
B87D  10 26 000C                BNE     GAM200
B881  BD F0F8                   JSR     GETRAN
B884  8B 80                     ADDA    #080
B886  10 24 002C                BCC     GAM210
B88A  7E B896                   BRA     GAM201
B88D  BD F0F8           GAM200  JSR     GETRAN
B890  8B 80                     ADDA    #080
B892  10 25 0020                BCS     GAM210          win selected
                        ;
B896  BD F03F           GAM201  JSR     TESTLI
B899  74                        DB      LGAMT
B89A  10 2E 0038                BGT     GAMLOS
B89E  BE 015E           GAM208  LDX     TIMER
B8A1  10 26 FFF9                BNE     GAM208
B8A5  86 74                     LDAA    #LGAMT
B8A7  C6 8F                     LDAB    #ON
B8A9  BD EFD7                   JSR     PRLPST
B8AC  86 73                     LDAA    #LGAMH
B8AE  C6 80                     LDAB    #OF
B8B0  BD EFD7                   JSR     PRLPST
B8B3  7E B8D6                   BRA     GAMLOS
                        ;
B8B6  BD F03F           GAM210  JSR     TESTLI
B8B9  73                        DB      LGAMH
B8BA  10 2E 0055                BGT     GAMWIN
B8BE  BE 015E           GAM212  LDX     TIMER
B8C1  10 26 FFF9                BNE     GAM212
B8C5  86 73                     LDAA    #LGAMH
B8C7  C6 8F                     LDAB    #ON
B8C9  BD EFD7                   JSR     PRLPST
B8CC  86 74                     LDAA    #LGAMT
B8CE  C6 80                     LDAB    #OF
B8D0  BD EFD7                   JSR     PRLPST
B8D3  7E B913                   JMP     GAMWIN
                        ;
B8D6  BD EF84           GAMLOS  JSR     PRLPLI
B8D9  8F 51 80 30 42 90         DB      ON,LGAMBL,OF,LCWIN,LSEGAM,LPTERM
B8DF  BD E23F                   JSR     DISGL
B8E2  BE 004D                   LDX     GLOSE1
B8E5  B6 004C                   LDAA    GAMTYP
B8E8  85 01                     BITA    #001
B8EA  10 27 0003                BEQ     GAML20
B8EE  BE 004F                   LDX     GLOSE2  
B8F1  BF 002F           GAML20  STX     WIN
B8F4  12                        NOP                     
B8F5  12                        NOP                     
B8F6  BD D4D9                   JSR     SILENT
B8F9  BD EF5E                   JSR     DELAYI
B8FC  14                        DB      20
B8FD  BD D511                   JSR     MUSOKI
B900  010C                      DATA    OGLOSE
B902  BD EF5E                   JSR     DELAYI
B905  3C                        DB      60
B906  BD E000                   JSR     DYCRD1
B909  BE 002F                   LDX     WIN
B90C  10 26 0087                BNE     GAMT10
B910  7E BA2A                   JMP     GAMEND
                        ;
B913  BD EF84           GAMWIN  JSR     PRLPLI
B916  8F 51 80 30 42 90         DB      ON,LGAMBL,OF,LCWIN,LSEGAM,LPTERM
B91C  BD E294                   JSR     DISGW
B91F  BE 0051                   LDX     GWIN1
B922  B6 004C                   LDAA    GAMTYP
B925  85 01                     BITA    #001
B927  10 27 0003                BEQ     GAMW20
B92B  BE 0053                   LDX     GWIN2   
B92E  BF 002F           GAMW20  STX     WIN
B931  12                        NOP                     
B932  12                        NOP                     
B933  BD D4D9                   JSR     SILENT
B936  BD EF5E                   JSR     DELAYI
B939  14                        DB      20
B93A  BD D511                   JSR     MUSOKI
B93D  0119                      DATA    OGWIN 
B93F  BD EF5E                   JSR     DELAYI
B942  3C                        DB      60              sample time
B943  7E B78A                   JMP     GAM050
                        ;
B946  BD EF84           GAMJAK  JSR     PRLPLI
B949  8F 30                     DB      ON,LCWIN
B94B  80 42 51 73 74 90         DB      OF,LSEGAM,LGAMBL,LGAMH,LGAMT,LPTERM
B951  BD DDD4                   JSR     PROFDI
B954  11 7F 80                  DB      QRESET,07F,080
B957  BD E000                   JSR     DYCRD1
B95A  BE 002F                   LDX     WIN
B95D  BD B164                   JSR     DISXWN
B960  BD D4D9                   JSR     SILENT
B963  BD EF5E                   JSR     DELAYI
B966  14                        DB      20
B967  BD B0B7                   JSR     JAKFLA
B96A  7E B997                   JMP     GAMT10
                        ;
B96D  BD EF84           GAMTRA  JSR     PRLPLI
B970  8F 30                     DB      ON,LCWIN
B972  80 42 51 73 74 90         DB      OF,LSEGAM,LGAMBL,LGAMH,LGAMT,LPTERM
B978  BD DDD4                   JSR     PROFDI
B97B  11 7F 80                  DB      QRESET,07F,080
B97E  BD E000                   JSR     DYCRD1
B981  BE 002F                   LDX     WIN
B984  BD B164                   JSR     DISXWN
B987  BD D4D9                   JSR     SILENT
B98A  BD EF5E                   JSR     DELAYI
B98D  14                        DB      20
B98E  BD D511                   JSR     MUSOKI
B991  010E                      DATA    OTILL
B993  BD EF5E                   JSR     DELAYI
B996  32                        DB      50
                        ;
B997  9E 2F             GAMT10  LDX     /WIN
B999  10 27 008D                BEQ     GAMEND
B99D  C6 64                     LDAB    #100
B99F  8C 0064                   CPX     #100
B9A2  10 24 000B                BHS     GAMT11
B9A6  C6 04                     LDAB    #4
B9A8  8C 0064                   CPX     #100
B9AB  10 24 0002                BHS     GAMT11
B9AF  C6 01                     LDAB    #1
B9B1  34 04             GAMT11  PSHB
B9B3  BE 002F                   LDX     WIN
B9B6  30 1F                     DEX
B9B8  BF 002F                   STX     WIN
B9BB  BE 019A                   LDX     HMETER
B9BE  30 01                     INX
B9C0  BF 019A                   STX     HMETER
                        ;
B9C3  B6 0181                   LDAA    GFLAGS
B9C6  85 80                     BITA    #QTEST
B9C8  10 26 0048                BNE     GAMT20
B9CC  86 01             GAMT14  LDAA    #1
B9CE  BD EE63                   JSR     REFWIN
B9D1  C6 00                     LDAB    #CRVERS
B9D3  86 04                     LDAA    #4
B9D5  C1 02                     CMPB    #2
B9D7  10 27 0012                BEQ     GAMT16          2p play
B9DB  86 0A                     LDAA    #10
B9DD  C1 01                     CMPB    #1
B9DF  10 27 000A                BEQ     GAMT16          5p play
B9E3  86 14                     LDAA    #20             10p play
B9E5  C1 00                     CMPB    #0
B9E7  10 27 0002                BEQ     GAMT16
B9EB  86 05                     LDAA    #5              2.5p
B9ED  BB 022C           GAMT16  ADDA    WINCNT
B9F0  B7 022C                   STAA    WINCNT
B9F3  81 14                     CMPA    #20
B9F5  10 25 001B                BLO     GAMT20          no WIN METER this time
B9F9  80 14                     SUBA    #20
B9FB  B7 022C                   STAA    WINCNT
B9FE  C6 01                     LDAB    #1
BA00  BD B1F4                   JSR     IMETER
BA03  FF                        DB      0FF
BA04  15                        DB      VMWIN
BA05  BD B1F4                   JSR     IMETER
BA08  FF                        DB      0FF
BA09  21                        DB      VMLWIN
BA0A  BD B1F4                   JSR     IMETER
BA0D  FF                        DB      0FF
BA0E  3C                        DB      VLWIN
BA0F  BD B1F4                   JSR     IMETER
BA12  FF                        DB      0FF
BA13  45                        DB      VLLWIN
                        ;
BA14  35 04             GAMT20  PULB
BA16  5A                        DECB
BA17  10 26 FF96                BNE     GAMT11
                        ;
BA1B  BE 002F                   LDX     WIN
BA1E  BD B164                   JSR     DISXWN
BA21  BD B177                   JSR     DISHM
BA24  BD B0F8                   JSR     TBLIP           
BA27  7E B997                   BRA     GAMT10
                        ;
BA2A  BD EF15           GAMEND  JSR     SETNVR
BA2D  39                        RTS
                        ;
                        ;***************************************************************
                        ;
                        ;
BA2E  96 82             ORPOSN  LDAA    /R1POSN+0
BA30  9A 83                     ORAA    /R1POSN+1
BA32  9A 84                     ORAA    /R1POSN+2
BA34  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
BA35  BD EF84           HSOFF   JSR     PRLPLI
BA38  80                        DB      OF
BA39  52 71 60 61 62 70         DB      LTRANS,LPOT,LSTK4,LSTK8,LSTK16,LSTK32
BA3F  50                        DB      LSTAKE
BA40  42                        DB      LTOPST
BA41  51                        DB      LSTART
BA42  31                        DB      LHOLD1
BA43  32                        DB      LHOLD2
BA44  40                        DB      LHOLD3
BA45  72                        DB      LCCASH
BA46  30                        DB      LCWIN
BA47  30                        DB      LCHOLD
BA48  90                        DB      LPTERM
BA49  39                        RTS
                        ;
                        ;---------------------------------------------------------
                        ;
BA4A  B6 0198           ISCRD1  LDAA    CRED1+0
BA4D  BA 0199                   ORAA    CRED1+1
BA50  39                        RTS
                        ;
BA51  B6 0198           ISCRED  LDAA    CRED1+0
BA54  BA 0199                   ORAA    CRED1+1
BA57  39                        RTS
                        ;
BA58  34 02             DECRD1  PSHA
BA5A  34 04                     PSHB
BA5C  BE 0198                   LDX     CRED1
BA5F  30 1F                     DEX
BA61  10 2D 0006                BLT     DECR90
BA65  BF 0198                   STX     CRED1
BA68  BD EF15                   JSR     SETNVR
BA6B  35 04             DECR90  PULB
BA6D  35 02                     PULA
BA6F  39                        RTS
                        ;
BA70  34 02             INCRD1  PSHA
BA72  34 04                     PSHB
BA74                            PSHX
BA76  BD BA8F                   BSR     CHKLIM
BA79  10 25 000B                BCS     IN90
BA7D  BE 0198                   LDX     CRED1
BA80  30 01                     INX
BA82  BF 0198                   STX     CRED1
BA85  BD EF15                   JSR     SETNVR
BA88                    IN90    PULX
BA8A  35 04                     PULB
BA8C  35 02                     PULA
BA8E  39                        RTS
                        ;
BA8F                    CHKLIM  PSHX
BA91  BE 0198                   LDX     CRED1
BA94  8C 270F                   CPX     #9999           
BA97  10 24 0005                BHS     OVLIM           
                        ;
BA9B  1C FE             OKLIM   CLC
BA9D  7E BAA2                   BRA     CHK99
                        ;
BAA0  1A 01             OVLIM   SEC
BAA2                    CHK99   PULX
BAA4  39                        RTS
                        ;
                        ;*************************************************************
                        ;
BAA5  86 10             KEYIN   LDAA    #NATION
BAA7  81 30                     CMPA    #RUS
BAA9  10 26 0011                BNE     KEY000
BAAD  B6 011D                   LDAA    SWSTAT+6
BAB0  85 02                     BITA    #QKEY
BAB2  10 27 0008                BEQ     KEY000
BAB6  BD F098                   JSR     TESTSI
BAB9  10                        DB      SKEYIN
BABA  10 26 0001                BNE     KEY100
BABE  39                KEY000  RTS
BABF  BD EF84           KEY100  JSR     PRLPLI
BAC2  85 31 32 40 90            DB      FF1,LHOLD1,LHOLD2,LHOLD3,LPTERM
BAC7  BD F098                   JSR     TESTSI
BACA  19                        DB      SHOLD1
BACB  10 27 000D                BEQ     KEY200
BACF  C6 01                     LDAB    #1
BAD1  BD BB2B                   JSR     KOC
BAD4  BD F098           KEY150  JSR     TESTSI
BAD7  19                        DB      SHOLD1
BAD8  10 26 FFF8                BNE     KEY150
BADC  BD F098           KEY200  JSR     TESTSI
BADF  1A                        DB      SHOLD2
BAE0  10 27 000D                BEQ     KEY300
BAE4  C6 0A                     LDAB    #10
BAE6  BD BB2B                   JSR     KOC
BAE9  BD F098           KEY250  JSR     TESTSI
BAEC  1A                        DB      SHOLD2
BAED  10 26 FFF8                BNE     KEY250
BAF1  BD F098           KEY300  JSR     TESTSI
BAF4  1B                        DB      SHOLD3
BAF5  10 27 000D                BEQ     KEY400
BAF9  C6 64                     LDAB    #100
BAFB  BD BB2B                   JSR     KOC
BAFE  BD F098           KEY350  JSR     TESTSI
BB01  1B                        DB      SHOLD3
BB02  10 26 FFF8                BNE     KEY350
BB06  BD F098           KEY400  JSR     TESTSI
BB09  10                        DB      SKEYIN
BB0A  10 26 FFB1                BNE     KEY100
BB0E  BD EF84                   JSR     PRLPLI
BB11  80 31 32 40 30 90         DB      OF,LHOLD1,LHOLD2,LHOLD3,LCHOLD,LPTERM
BB17  F6 0181                   LDAB    GFLAGS
BB1A  C5 01                     BITB    #QRHAV
BB1C  10 27 000A                BEQ     KEY500
BB20  BD EF84                   JSR     PRLPLI
BB23  83 31 32 40 80 30         DB      F1,LHOLD1,LHOLD2,LHOLD3,OF,LCHOLD,LPTERM
BB2A  39                KEY500  RTS
                        ;
BB2B  34 04 A6E0        KOC     TBA
BB2F  34 02             KOC04   PSHA
BB31  BD BA70                   JSR     INCRD1
BB34  F6 0181                   LDAB    GFLAGS
BB37  C5 20                     BITB    #QDOOR
BB39  10 26 0039                BNE     KS820
BB3D  C6 00                     LDAB    #CRVERS
BB3F  86 04                     LDAA    #4
BB41  C1 02                     CMPB    #2
BB43  10 27 0012                BEQ     KS815           
BB47  86 0A                     LDAA    #10
BB49  C1 01                     CMPB    #1
BB4B  10 27 000A                BEQ     KS815           
BB4F  86 14                     LDAA    #20             
BB51  C1 00                     CMPB    #0
BB53  10 27 0002                BEQ     KS815
BB57  86 05                     LDAA    #5              
BB59  BB 0230           KS815   ADDA    TCICNT
BB5C  B7 0230                   STAA    TCICNT
BB5F  81 14                     CMPA    #20
BB61  10 25 0011                BLO     KS820           not this time
BB65  80 14                     SUBA    #20
BB67  B7 0230                   STAA    TCICNT
BB6A  C6 01                     LDAB    #001
BB6C  BD B1F4                   JSR     IMETER
BB6F  02                        DB      MMTCI
BB70  09                        DB      VMTKI
BB71  BD B1F4                   JSR     IMETER
BB74  FF                        DB      0FF
BB75  30                        DB      VLTKI 
BB76  35 02             KS820   PULA
BB78  4A                        DECA
BB79  10 26 FFB2                BNE     KOC04
                        ;
BB7D  BD DF87                   JSR     DYCLR
BB80  BD E000                   JSR     DYCRD1          ... COUNTING UP
BB83  BD D511                   JSR     MUSOKI
BB86  020A                      DATA    OCOIN
BB88  BD EF5E                   JSR     DELAYI
BB8B  0A                        DB      10              
BB8C  BE 0198           KOC68   LDX     CRED1
BB8F  8C 00C8                   CPX     #200
BB92  10 22 0003                BHI     KOC90
BB96  BD B1CF           KOC69   JSR     LOCKON
BB99  39                KOC90   RTS
                        ;
                        ;- - - - - - - - - - - - - - - - -
                        ;
BB9A  7D 013E           DOCRED  TST     STUCK
BB9D  10 27 0018                BEQ     DOC02
BBA1  BE 0045           TALARM  LDX     MTIMER
BBA4  10 26 FFF9                BNE     TALARM
BBA8  8E 0032                   LDX     #50
BBAB  BF 0045                   STX     MTIMER
BBAE  BD D511                   JSR     MUSOKI
BBB1  0101                      DATA    OALARM
BBB3  7E BBA1                   BRA     TALARM
                        ;
BBB6  7F 013E                   CLR     STUCK
                        ;
BBB9  12                DOC02   NOP
                        ;
                        ;
BBBA  F6 013B           DOC23   LDAB    COININ          If more coins in ...
BBBD  10 26 0003                BNE     DOC24
BBC1  7E BD11                   JMP     NOC20           
BBC4  BD B1A4           DOC24   JSR     LOCKOF
BBC7  7F 003D                   CLR     CRINH
BBCA  8E D9F7                   LDX     #CRDTCZ
BBCD  86 10                     LDAA    #NATION
BBCF  81 10                     CMPA    #CZ
BBD1  10 27 003B                BEQ     DOC25           
BBD5  8E DA37                   LDX     #CRDTUK
BBD8  81 20                     CMPA    #UKR
BBDA  10 27 0006                BEQ     DOC243
BBDE  81 30                     CMPA    #RUS
BBE0  10 26 0017                BNE     DOC245          
BBE4  86 00             DOC243  LDAA    #CRVERS
BBE6  81 02                     CMPA    #2
BBE8  10 27 0024                BEQ     DOC25           
BBEC  8E DA47                   LDX     #CRDTU2         
BBEF  81 01                     CMPA    #1
BBF1  10 27 001B                BEQ     DOC25
BBF5  8E DA57                   LDX     #CRDTU3         
BBF8  7E BC10                   BRA     DOC25
BBFB  8E DA07           DOC245  LDX     #CRDTAB         
BBFE  86 00                     LDAA    #CRVERS
BC00  10 27 000C                BEQ     DOC25
BC04  8E DA17                   LDX     #CRDTB2         
BC07  81 01                     CMPA    #1
BC09  10 27 0003                BEQ     DOC25
BC0D  8E DA27                   LDX     #CRDTB3         
BC10  E5 89 0000        DOC25   BITB    0,X             ... look for coin data
BC14  10 26 000B                BNE     DOC30
BC18  30 01                     INX
BC1A  30 01                     INX
BC1C  30 01                     INX
BC1E  30 01                     INX
BC20  7E BC10                   BRA     DOC25
                        ;
BC23  A6 89 0000        DOC30   LDAA    0,X
BC27  40                        NEGA
BC28  A4 89 0000                ANDA    0,X
BC2C  7A 013B           DOC35   DEC     COININ          Update "COININ"
BC2F  4A                        DECA
BC30  10 26 FFF8                BNE     DOC35
                        ;
BC34  7C 0003           DOC35A  INC     NOCHNG
BC37  BD F098                   JSR     TESTSI
BC3A  16                        DB      SREFIL
BC3B  10 26 0034                BNE     DOC61
BC3F  BD BA8F                   JSR     CHKLIM
BC42  10 24 0003                BCC     DOC36
BC46  7E BE81                   JMP     DOC65
                        ;
BC49                    DOC36   PSHX
BC4B  E6 89 0001        DOC39   LDAB    1,X             no. of credits  
BC4F  34 04 A6E0        DOC40   TBA
BC53  84 7F                     ANDA    #07F
BC55  10 27 0017                BEQ     DOC20
BC59  BD BA70           DOC04   JSR     INCRD1
BC5C  4A                        DECA
BC5D  10 26 FFF8                BNE     DOC04
BC61  BD DF87           DOC05   JSR     DYCLR
BC64  BD E000                   JSR     DYCRD1          ... COUNTING UP
BC67  BD D511                   JSR     MUSOKI
BC6A  020A                      DATA    OCOIN
BC6C  BD EF5E                   JSR     DELAYI
BC6F  0A                        DB      10              
BC70  12                DOC20   NOP             
BC71                    DOC60   PULX
BC73                    DOC61   PSHX
BC75  E6 89 0002                LDAB    2,X
BC79  C1 14                     CMPB    #HOPM1
BC7B  10 26 0015                BNE     DOC62
BC7F  BD C5E6                   JSR     GH1LX
BC82  BC 0173                   CPX     H1CNT
BC85  10 23 0023                BLS     DOC64           hopper 1 full
BC89  BE 0173                   LDX     H1CNT
BC8C  30 01                     INX
BC8E  BF 0173                   STX     H1CNT
BC91  7E BCAC                   BRA     DOC64
BC94  C1 0A             DOC62   CMPB    #HOPM2
BC96  10 26 0012                BNE     DOC64
BC9A  BD C5D8                   JSR     GH2LX
BC9D  BC 0175                   CPX     H2CNT
BCA0  10 23 0008                BLS     DOC64           hopper 2 full
BCA4  BE 0175                   LDX     H2CNT
BCA7  30 01                     INX
BCA9  BF 0175                   STX     H2CNT
BCAC                    DOC64   PULX
BCAE  F6 0181                   LDAB    GFLAGS
BCB1  C5 20                     BITB    #QDOOR
BCB3  10 26 01CA                BNE     DOC65
                        ;
BCB7  E6 89 0002                LDAB    2,X             no. of pulses
BCBB  BD F098                   JSR     TESTSI
BCBE  16                        DB      SREFIL
BCBF  10 27 0027                BEQ     DOC64A  
BCC3  5D                        TSTB
BCC4  10 27 01C4                BEQ     DOC69           not valid input
BCC8  10 2A 0011                BPL     DOC642          
BCCC  7C 0231                   INC     TCRCNT          Minus= 1/2 pulse
BCCF  B6 0231                   LDAA    TCRCNT
BCD2  81 02                     CMPA    #2
BCD4  10 25 01B4                BLO     DOC69
BCD8  7F 0231                   CLR     TCRCNT
BCDB  C6 01                     LDAB    #1
BCDD  BD B1F4           DOC642  JSR     IMETER
BCE0  06                        DB      MMTCR
BCE1  18                        DB      VMTCR
BCE2  BD B1F4                   JSR     IMETER
BCE5  FF                        DB      0FF  
BCE6  3F                        DB      VLTCR
BCE7  7E BE8C                   BRA     DOC69
                        ;
BCEA  5D                DOC64A  TSTB
BCEB  10 27 0192                BEQ     DOC65
BCEF  10 2A 0011                BPL     DOC64B          
BCF3  7C 0230                   INC     TCICNT          minus=1/2 pulse
BCF6  B6 0230                   LDAA    TCICNT
BCF9  81 02                     CMPA    #2
BCFB  10 25 0182                BLO     DOC65
BCFF  7F 0230                   CLR     TCICNT
BD02  C6 01                     LDAB    #1
BD04  BD B1F4           DOC64B  JSR     IMETER
BD07  02                        DB      MMTCI
BD08  06                        DB      VMTCI
BD09  BD B1F4                   JSR     IMETER
BD0C  FF                        DB      0FF  
BD0D  2D                        DB      VLTCI
BD0E  7E BE81                   JMP     DOC65
                        ;
BD11  12                NOC20   NOP
BD12  F6 013F                   LDAB    NOTEIN          
BD15  10 26 007C                BNE     NOC24
BD19  F6 0140                   LDAB    NOTEIN+1
BD1C  10 27 0161                BEQ     DOC65
BD20  BD B1A4                   JSR     LOCKOF
BD23  7F 003D                   CLR     CRINH
BD26  8E DA7B                   LDX     #N2DTCZ
BD29  86 10                     LDAA    #NATION
BD2B  81 10                     CMPA    #CZ
BD2D  10 27 003B                BEQ     N2C25
BD31  8E DADF                   LDX     #N2DTUK
BD34  81 20                     CMPA    #UKR
BD36  10 27 0006                BEQ     N2C245
BD3A  81 30                     CMPA    #RUS
BD3C  10 26 0017                BNE     N2C246
BD40  86 00             N2C245  LDAA    #CRVERS
BD42  81 02                     CMPA    #2
BD44  10 27 0024                BEQ     N2C25
BD48  8E DB11                   LDX     #N2DTU2
BD4B  81 01                     CMPA    #1
BD4D  10 27 001B                BEQ     N2C25
BD51  8E DAF8                   LDX     #N2DTU3
BD54  7E BD6C                   BRA     N2C25   
BD57  8E DA94           N2C246  LDX     #N2DTAB
BD5A  86 00                     LDAA    #CRVERS
BD5C  10 27 000C                BEQ     N2C25
BD60  8E DAAD                   LDX     #N2DTB2
BD63  81 01                     CMPA    #1
BD65  10 27 0003                BEQ     N2C25
BD69  8E DAC6                   LDX     #N2DTB3
BD6C  E5 89 0000        N2C25   BITB    0,X             ... look for coin data
BD70  10 26 000D                BNE     N2C30
BD74  30 01                     INX
BD76  30 01                     INX
BD78  30 01                     INX
BD7A  30 01                     INX
BD7C  30 01                     INX
BD7E  7E BD6C                   BRA     N2C25
                        ;
BD81  A6 89 0000        N2C30   LDAA    0,X
BD85  40                        NEGA
BD86  A4 89 0000                ANDA    0,X
BD8A  7A 0140           N2C35   DEC     NOTEIN+1        
BD8D  4A                        DECA
BD8E  10 26 FFF8                BNE     N2C35
BD92  7E BE07                   JMP     NOC35A
BD95  BD B1A4           NOC24   JSR     LOCKOF
BD98  7F 003D                   CLR     CRINH
BD9B  8E DA67                   LDX     #NRDTCZ
BD9E  86 10                     LDAA    #NATION
BDA0  81 10                     CMPA    #CZ
BDA2  10 27 003B                BEQ     NOC25
BDA6  8E DACB                   LDX     #NRDTUK
BDA9  81 20                     CMPA    #UKR
BDAB  10 27 0006                BEQ     NOC245
BDAF  81 30                     CMPA    #RUS
BDB1  10 26 0017                BNE     NOC246
BDB5  86 00             NOC245  LDAA    #CRVERS
BDB7  81 02                     CMPA    #2
BDB9  10 27 0024                BEQ     NOC25           
BDBD  8E DAFD                   LDX     #NRDTU2         
BDC0  81 01                     CMPA    #1
BDC2  10 27 001B                BEQ     NOC25           
BDC6  8E DAE4                   LDX     #NRDTU3         
BDC9  7E BDE1                   BRA     NOC25           
BDCC  8E DA80           NOC246  LDX     #NRDTAB
BDCF  86 00                     LDAA    #CRVERS
BDD1  10 27 000C                BEQ     NOC25
BDD5  8E DA99                   LDX     #NRDTB2
BDD8  81 01                     CMPA    #1
BDDA  10 27 0003                BEQ     NOC25
BDDE  8E DAB2                   LDX     #NRDTB3
BDE1  E5 89 0000        NOC25   BITB    0,X             ... look for coin data
BDE5  10 26 000D                BNE     NOC30
BDE9  30 01                     INX
BDEB  30 01                     INX
BDED  30 01                     INX
BDEF  30 01                     INX
BDF1  30 01                     INX
BDF3  7E BDE1                   BRA     NOC25
                        ;
BDF6  A6 89 0000        NOC30   LDAA    0,X
BDFA  40                        NEGA
BDFB  A4 89 0000                ANDA    0,X
BDFF  7A 013F           NOC35   DEC     NOTEIN          Update "COININ"
BE02  4A                        DECA
BE03  10 26 FFF8                BNE     NOC35
BE07  7C 0003           NOC35A  INC     NOCHNG
BE0A  BD F098                   JSR     TESTSI
BE0D  16                        DB      SREFIL
BE0E  10 26 0027                BNE     NOC61
BE12  BD BA8F                   JSR     CHKLIM
BE15  10 24 0003                BCC     NOC36
BE19  7E BE81                   JMP     DOC65
                        ;
BE1C                    NOC36   PSHX
BE1E  BD D498                   JSR     ADDCRD                          
BE21  BD EF15                   JSR     SETNVR                          
BE24  12                        NOP                             
BE25  12                        NOP                                     
BE26  12                        NOP                             
BE27  BD DF87                   JSR     DYCLR
BE2A  BD E000                   JSR     DYCRD1          ... COUNTING UP
BE2D  BD D511                   JSR     MUSOKI
BE30  020A                      DATA    OCOIN
BE32  BD EF5E                   JSR     DELAYI
BE35  0A                        DB      10              
BE36  12                NOC05   NOP             
BE37                    NOC60   PULX
BE39  F6 0181           NOC61   LDAB    GFLAGS
BE3C  C5 20                     BITB    #QDOOR
BE3E  10 26 003F                BNE     DOC65
BE42  BD F098                   JSR     TESTSI
BE45  16                        DB      SREFIL
BE46  10 27 001D                BEQ     NOC64A  
BE4A  AE 89 0003                LDX     3,X             no. of pulses
BE4E                    NOC62   PSHX
BE50  C6 01                     LDAB    #1
BE52  BD B1F4                   JSR     IMETER
BE55  06                        DB      MMTCR
BE56  18                        DB      VMTCR
BE57  BD B1F4                   JSR     IMETER
BE5A  FF                        DB      0FF  
BE5B  3F                        DB      VLTCR
BE5C                            PULX
BE5E  30 1F                     DEX
BE60  10 26 FFEA                BNE     NOC62
BE64  7E BE8C                   BRA     DOC69
BE67  AE 89 0003        NOC64A  LDX     3,X             no. of pulses
BE6B                    NOC64B  PSHX
BE6D  C6 01                     LDAB    #1
BE6F  BD B1F4                   JSR     IMETER
BE72  02                        DB      MMTCI
BE73  06                        DB      VMTCI
BE74  BD B1F4                   JSR     IMETER
BE77  FF                        DB      0FF  
BE78  2D                        DB      VLTCI
BE79                            PULX
BE7B  30 1F                     DEX
BE7D  10 26 FFEA                BNE     NOC64B
                        ;
BE81  12                DOC65   NOP
BE82  BE 0198           DOC68   LDX     CRED1
BE85  8C 00C8                   CPX     #200
BE88  10 22 0003                BHI     DOC90
BE8C  BD B1CF           DOC69   JSR     LOCKON
                        ;
BE8F  39                DOC90   RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;       
BE90  9E 0E             HWHIRL  LDX     /WTIMER
BE92  10 26 047C                BNE     DOZ90
BE96  BD EC44                   JSR     RHBANK
BE99  84 08                     ANDA    #QZCA
BE9B  10 26 0473                BNE     DOZ90
BE9F  B6 001E                   LDAA    HWCNT
BEA2  8E DD27                   LDX     #HTAB
BEA5  BD F0E7                   JSR     ADDA2X
BEA8  A6 89 0000                LDAA    0,X
BEAC  B7 0126                   STAA    SSSTAT+7
BEAF  B7 0125                   STAA    SSSTAT+6
BEB2  B7 0124                   STAA    SSSTAT+5
BEB5  B7 0123                   STAA    SSSTAT+4
BEB8  B7 0122                   STAA    SSSTAT+3
BEBB  B7 0121                   STAA    SSSTAT+2
BEBE  B7 0120                   STAA    SSSTAT+1
BEC1  B7 011F                   STAA    SSSTAT+0
BEC4  96 1E                     LDAA    /HWCNT
BEC6  4C                        INCA
BEC7  81 06                     CMPA    #6
BEC9  10 26 0001                BNE     HWH900
BECD  4F                        CLRA
BECE  97 1E             HWH900  STAA    /HWCNT
BED0  8E 0007                   LDX     #7
BED3  9F 0E                     STX     /WTIMER
BED5  39                        RTS
                        ;
BED6  BD EF84           BUTOFF  JSR     PRLPLI
BED9  80                        DB      OF
BEDA  71 72 52 60 61 62 BUTLPS  DB      LPOT,LCCASH,LTRANS,LSTK4,LSTK8,LSTK16,LSTK32
BEE1  30 31 32 40 50 42         DB      LCHOLD,LHOLD1,LHOLD2,LHOLD3,LSTAKE,LTOPST,LSTART,LPTERM
BEE9  39                        RTS
                        ;
BEEA  BD EF84           RSLOFF  JSR     PRLPLI
BEED  80                        DB      OF
BEEE  00                        DB      LREL1T
BEEF  10                        DB      LREL1M
BEF0  20                        DB      LREL1B
BEF1  01                        DB      LREL2T
BEF2  11                        DB      LREL2M
BEF3  21                        DB      LREL2B
BEF4  02                        DB      LREL3T
BEF5  12                        DB      LREL3M
BEF6  22                        DB      LREL3B
BEF7  03                        DB      LREL4T
BEF8  13                        DB      LREL4M
BEF9  23                        DB      LREL4B
BEFA  04                        DB      LREL5T
BEFB  14                        DB      LREL5M
BEFC  24                        DB      LREL5B
BEFD  05                        DB      LREL6T
BEFE  15                        DB      LREL6M
BEFF  25                        DB      LREL6B
BF00  90                        DB      LPTERM
BF01  39                        RTS
                        ;
                        ;******************************************************
                        ;
BF02  96 00             DOZMES  LDAA    /ATRFLG
BF04  10 26 0006                BNE     DOZ05
BF08  96 1B                     LDAA    /ATMPTR
BF0A  10 27 0030                BEQ     DOZMEN
BF0E  9E 0A             DOZ05   LDX     /FTIMER
BF10  10 26 002A                BNE     DOZMEN
BF14  8E 0064                   LDX     #100
BF17  9F 0A                     STX     /FTIMER
BF19  96 1B                     LDAA    /ATMPTR
BF1B  85 01                     BITA    #001
BF1D  10 26 0006                BNE     DOZ07
BF21  BD BF3F                   JSR     MESS1
BF24  7E BF3B                   BRA     DOZ08
BF27  7E BF38           DOZ07   JMP     DOZ07A          
BF2A  86 10                     LDAA    #NATION
BF2C  81 10                     CMPA    #CZ
BF2E  10 26 0006                BNE     DOZ07A
BF32  BD BF6B                   JSR     MESS3           
BF35  7E BF3B                   BRA     DOZ08
BF38  BD BF55           DOZ07A  JSR     MESS2
BF3B  7C 001B           DOZ08   INC     ATMPTR
BF3E  39                DOZMEN  RTS
                        ;
BF3F  BD DDD4           MESS1   JSR     PROFDI
BF42  11                        DB      QRESET
BF43  20 20 20 20 20 20         DB      '                ',080
BF54  39                        RTS
BF55  BD DDD4           MESS2   JSR     PROFDI
BF58  11                        DB      QRESET
BF59  41 4D 45 52 49 43         DB      'AMERICAN  BEAUTY',080
BF6A  39                        RTS
                        ;
BF6B  BD DDD4           MESS3   JSR     PROFDI
BF6E  11                        DB      QRESET
BF6F  20 20 20 20 20 20         DB      '                ',080
BF80  39                        RTS
                        ;
                        ;-------------------------------------------------
                        ;
BF81  F6 013B           REF320  LDAB    COININ
BF84  10 27 005D                BEQ     REF340
BF88  8E DA07                   LDX     #CRDTAB
BF8B  E5 89 0000        REF325  BITB    0,X
BF8F  10 26 000B                BNE     REF330
BF93  30 01                     INX
BF95  30 01                     INX
BF97  30 01                     INX
BF99  30 01                     INX
BF9B  7E BF8B                   BRA     REF325
BF9E  A6 89 0000        REF330  LDAA    0,X
BFA2  40                        NEGA
BFA3  A4 89 0000                ANDA    0,X
BFA7  7A 013B           REF335  DEC     COININ
BFAA  4A                        DECA
BFAB  10 26 FFF8                BNE     REF335
BFAF                    REF336  PSHX
BFB1  8E 0BB8                   LDX     #3000
BFB4  BF 0162                   STX     STIMER
BFB7                    REF339  PULX
BFB9  E6 89 0002                LDAB    2,X
BFBD                    REFX    PSHX
BFBF  BE 0038                   LDX     REFCNT
BFC2  30 01                     INX
BFC4  BF 0038                   STX     REFCNT
BFC7                            PULX
BFC9  5A                        DECB
BFCA  10 26 FFEF                BNE     REFX
BFCE  B6 0181                   LDAA    GFLAGS
BFD1  85 20                     BITA    #QDOOR
BFD3  10 26 000E                BNE     REF340
BFD7  E6 89 0002                LDAB    2,X
BFDB  BD B1F4                   JSR     IMETER
BFDE  06                        DB      MMTCR
BFDF  18                        DB      VMTCR
BFE0  BD B1F4                   JSR     IMETER
BFE3  FF                        DB      0FF  
BFE4  3F                        DB      VLTCR
BFE5  39                REF340  RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
BFE6  86 10             DOCOLL  LDAA    #NATION
BFE8  81 30                     CMPA    #RUS
BFEA  10 26 0034                BNE     DOC020
BFEE  B6 011D                   LDAA    SWSTAT+6
BFF1  85 02                     BITA    #QKEY
BFF3  10 27 002B                BEQ     DOC020
BFF7  BD F098                   JSR     TESTSI
BFFA  16                        DB      SREFIL
BFFB  10 27 0020                BEQ     DOC010
BFFF  BE 0198                   LDX     CRED1
C002  86 14                     LDAA    #HOPV1
C004  10 27 0007                BEQ     DOC005          hopper 1 not fitted
C008  8C 0014                   CPX     #HOPV1
C00B  10 24 000D                BHS     DOC006          
C00F  86 0A             DOC005  LDAA    #HOPV2
C011  10 27 0068                BEQ     DOC900          hopper 2 not fitted
C015  8C 000A                   CPX     #HOPV2
C018  10 25 0061                BLO     DOC900  
                        ;
C01C  BD C69C           DOC006  JSR     ATP300
C01F  7E C088           DOC010  JMP     DOC990
C022  7D 0003           DOC020  TST     NOCHNG
C025  10 26 0054                BNE     DOC900
C029  BE 0198                   LDX     CRED1
C02C  86 14                     LDAA    #HOPV1
C02E  10 27 0007                BEQ     DOC050          hopper 1 not fitted
C032  8C 0014                   CPX     #HOPV1
C035  10 24 000D                BHS     DOC080          
C039  86 0A             DOC050  LDAA    #HOPV2
C03B  10 27 003E                BEQ     DOC900          hopper 2 not fitted
C03F  8C 000A                   CPX     #HOPV2
C042  10 25 0037                BLO     DOC900  
                        ;
C046  BD EF84           DOC080  JSR     PRLPLI
C049  8F 72 90                  DB      ON,LCCASH,LPTERM
                        ;
C04C  86 10                     LDAA    #NATION
C04E  81 10                     CMPA    #CZ
C050  10 26 0018                BNE     DOC090
C054  8E 2328                   LDX     #9000
C057  86 01                     LDAA    #TYPE
C059  81 01                     CMPA    #1
C05B  10 27 0003                BEQ     DOC085
C05F  8E 1770                   LDX     #6000
C062  BC 0198           DOC085  CPX     CRED1
C065  10 22 0003                BHI     DOC090          OK
C069  7E C074                   JMP     DOC095          
                        ;
C06C  BD F098           DOC090  JSR     TESTSI
C06F  09                        DB      SCCASH
C070  10 27 0014                BEQ     DOC990
C074  BD EF84           DOC095  JSR     PRLPLI
C077  80 51 90                  DB      OF,LSTART,LPTERM
C07A  BD C6F9                   JSR     PAYOUT
                        ;
C07D  BD EF84           DOC900  JSR     PRLPLI
C080  80 72 90                  DB      OF,LCCASH,LPTERM
C083  86 01                     LDAA    #1
C085  B7 0003                   STAA    NOCHNG
C088  BD BA51           DOC990  JSR     ISCRED
C08B  39                        RTS
                        ;
                        ;-------------------------------------------------
                        ;
C08C  C6 F8             GRDIS2  LDAB    #-8
C08E  34 04             HRD10   PSHB
C090  C6 0D                     LDAB    #13             
C092  D7 1A                     STAB    /SPFLAG
C094  8E 0003                   LDX     #3
C097  86 31                     LDAA    #LHOLD1         Spin reel 1 ?
C099  BD C197                   JSR     HRD90
C09C  86 32                     LDAA    #LHOLD2         Spin reel 2 ?
C09E  BD C197                   JSR     HRD90
C0A1  86 40                     LDAA    #LHOLD3         Spin reel 3 ?
C0A3  BD C197                   JSR     HRD90
C0A6  F6 0181                   LDAB    GFLAGS
C0A9  C5 80                     BITB    #QTEST
C0AB  10 26 00E5                BNE     HRD84
                        ;
C0AF  5F                        CLRB
C0B0  34 04             HRD10A  PSHB
C0B2  5D                        TSTB
C0B3  10 27 008D                BEQ     HRD20
C0B7  C1 07                     CMPB    #7
C0B9  10 27 0078                BEQ     HRD17           check line 8
C0BD  C1 06                     CMPB    #6
C0BF  10 27 0063                BEQ     HRD16           check line 7
C0C3  C1 05                     CMPB    #5
C0C5  10 27 004E                BEQ     HRD15           check line 6
C0C9  C1 04                     CMPB    #4
C0CB  10 27 0039                BEQ     HRD14
C0CF  C1 03                     CMPB    #3
C0D1  10 27 0027                BEQ     HRD13
C0D5  C1 02                     CMPB    #2
C0D7  10 27 000C                BEQ     HRD12
C0DB  7C 008B                   INC     R1DIST+3        line 2  
C0DE  7C 008C                   INC     R1DIST+4
C0E1  7C 008D                   INC     R1DIST+5
C0E4  7E C144                   BRA     HRD20
C0E7  7A 008B           HRD12   DEC     R1DIST+3        line 3
C0EA  7A 008C                   DEC     R1DIST+4
C0ED  7A 008D                   DEC     R1DIST+5
C0F0  7A 008B                   DEC     R1DIST+3
C0F3  7A 008C                   DEC     R1DIST+4
C0F6  7A 008D                   DEC     R1DIST+5
C0F9  7E C144                   BRA     HRD20
C0FC  7C 008B           HRD13   INC     R1DIST+3        line 4
C0FF  7C 008B                   INC     R1DIST+3
C102  7C 008C                   INC     R1DIST+4
C105  7E C144                   BRA     HRD20
C108  7A 008B           HRD14   DEC     R1DIST+3        line 5
C10B  7A 008B                   DEC     R1DIST+3
C10E  7C 008D                   INC     R1DIST+5
C111  7C 008D                   INC     R1DIST+5
C114  7E C144                   BRA     HRD20
C117  B6 0186           HRD15   LDAA    TSTAKE
C11A  81 04                     CMPA    #4
C11C  10 27 0072                BEQ     HRD80A
C120  BD EA52                   JSR     GSYMB6
C123  7E C147                   BRA     HRD21                   line 6
C126  B6 0186           HRD16   LDAA    TSTAKE
C129  81 08                     CMPA    #8
C12B  10 27 0063                BEQ     HRD80A
C12F  BD EAA6                   JSR     GSYMB7
C132  7E C147                   BRA     HRD21                   line 7
C135  B6 0186           HRD17   LDAA    TSTAKE
C138  81 10                     CMPA    #16
C13A  10 27 0054                BEQ     HRD80A
C13E  BD EAFA                   JSR     GSYMB8
C141  7E C147                   BRA     HRD21                   line 8
C144  BD EA00           HRD20   JSR     GSYMBT
C147  BD B4C8           HRD21   JSR     PREWN2
C14A  4D                        TSTA    
C14B  10 27 002B                BEQ     HRD80
C14F  8E 01B7                   LDX     #TOPCON
C152  84 07                     ANDA    #007                    
C154  BD F0E7                   JSR     ADDA2X                  
C157  C6 10             HRD82   LDAB    #16             
C159  EB 89 0000                ADDB    0,X
C15D  10 2B 000D        HRD83   BMI     HRD70
C161  BD F0F8                   JSR     GETRAN
C164  8A E0                     ORAA    #0E0     0F0->010 50%ACC@000  
C166  34 04 ABE0                ABA
C16A  10 25 000C                BCS     HRD80
                        ;
C16E  35 04             HRD70   PULB                            
C170  35 04                     PULB                                    
C172  5C                        INCB
C173  10 27 001F                BEQ     HRD85
C177  7E C08E                   JMP     HRD10
                        ;
C17A  35 04             HRD80   PULB
C17C  5C                        INCB
C17D  C1 08                     CMPB    #8                      
C17F  10 27 0011                BEQ     HRD84           all done
C183  C1 05                     CMPB    #5
C185  10 26 FF27                BNE     HRD10A
C189  7C 008B                   INC     R1DIST+3
C18C  7A 008D                   DEC     R1DIST+5
C18F  7E C0B0                   BRA     HRD10A          do lines 6->8
C192  35 04             HRD80A  PULB
C194  35 04             HRD84   PULB
C196  39                HRD85   RTS
                        ;
C197  34 02             HRD90   PSHA
C199  BD F0F8           HRD91   JSR     GETRAN
C19C  7D 001A                   TST     SPFLAG
C19F  10 26 002A                BNE     HRD96
C1A3  8B 06             HRD92   ADDA    #6
C1A5  10 24 FFFA                BCC     HRD92
C1A9  8B 03                     ADDA    #3              
C1AB  34 04 ABE0        HRD93   ABA
C1AF  34 02 E6E0                TAB
                        ;
C1B3  35 02                     PULA
C1B5  BD F04E                   JSR     TESTLP
C1B8  10 2E 000A                BGT     HRD94A
C1BC  E7 89 0088                STAB    R1DIST,X
C1C0  7F 001A           HRD94   CLR     SPFLAG
C1C3  7E C1CA                   BRA     HRD95
C1C6  6F 89 0088        HRD94A  CLR     R1DIST,X
C1CA  30 01             HRD95   INX
C1CC  39                        RTS
                        ;
C1CD  12                HRD96   NOP
                        ;
C1CE  8B 18             HRD97   ADDA    #24
C1D0  10 24 FFFA                BCC     HRD97
C1D4  7E C1AB                   BRA     HRD93
                        ;
C1D7  C1 1F             HOVER   CMPB    #01F
C1D9  10 2E 000B                BGT     HO100
C1DD  C1 E0                     CMPB    #0E0
C1DF  10 2C 0007                BGE     HO300
C1E3  C6 E0                     LDAB    #0E0
C1E5  7E C1EA                   BRA     HO300
C1E8  C6 1F             HO100   LDAB    #01F
C1EA  34 04 ABE0        HO300   ABA
C1EE  39                        RTS
                        ;
                        ;-------------------------------------------------
                        ;
C1EF  BD F098           DOSKIL  JSR     TESTSI
C1F2  09                        DB      SCCASH
C1F3  10 26 FFF8                BNE     DOSKIL
C1F7  BD EF84                   JSR     PRLPLI
C1FA  83 72 90                  DB      F1,LCCASH,LPTERM
C1FD  8E 0000                   LDX     #0
C200  BF 003E                   STX     HTIMER
C203  BD DDD4                   JSR     PROFDI
C206  11 7F 80                  DB      QRESET,07F,080
C209  BD EF84                   JSR     PRLPLI
C20C  80 74 73 90               DB      OF,LGAMT,LGAMH,LPTERM
C210  BE 003E           DOS100  LDX     HTIMER
C213  10 26 004B                BNE     DOS500
C217  8E 0028                   LDX     #40             
C21A  BF 003E                   STX     HTIMER
C21D  BD F03F                   JSR     TESTLI
C220  73                        DB      LGAMH
C221  10 2E 0020                BGT     DOS200
C225  BD EF84                   JSR     PRLPLI
C228  8F 73 80 74 90            DB      ON,LGAMH,OF,LGAMT,LPTERM
C22D  BD DDD4                   JSR     PROFDI
C230  20 20 20 20 20 20         DB      '            WIN ',07F,080
C242  7E C262                   BRA     DOS500    
C245  BD EF84           DOS200  JSR     PRLPLI
C248  8F 74 80 73 90            DB      ON,LGAMT,OF,LGAMH,LPTERM
C24D  BD DDD4                   JSR     PROFDI
C250  20 4C 4F 53 45 20         DB      ' LOSE           ',07F,080
C262  BD F098           DOS500  JSR     TESTSI
C265  09                        DB      SCCASH
C266  10 27 FFA6                BEQ     DOS100
C26A  BD F03F           DOS600  JSR     TESTLI
C26D  73                        DB      LGAMH
C26E  10 2E 0009                BGT     DOS800
C272  8E 0000                   LDX     #0
C275  BF 0198                   STX     CRED1
C278  BD EF15                   JSR     SETNVR
C27B  BD EF5E           DOS800  JSR     DELAYI
C27E  64                        DB      100
C27F  BD DDD4                   JSR     PROFDI
C282  11 7F 80                  DB      QRESET,07F,080
C285  BD E000                   JSR     DYCRD1
C288  39                        RTS
                        ;       
                        ;****************************************************************
                        ;
C289  34 02             DWIN3   PSHA            displays <IWIN> @ DIPOS+0,+1,+2,+3
C28B  34 04                     PSHB
C28D                            PSHX
C28F  4F                        CLRA
C290  5F                        CLRB
C291  BE 006B                   LDX     IWIN 
C294  10 27 0003                BEQ     DSW10
C298  BD C2D9                   BSR     DIS80
C29B  34 04             DSW10   PSHB
C29D  34 04                     PSHB
C29F  34 02                     PSHA
C2A1  34 02                     PSHA
                        ;
C2A3  8E 0000                   LDX     #0
C2A6  B6 006D                   LDAA    DIPOS
C2A9  BD F0E7                   JSR     ADDA2X  
                        ;
C2AC  5F                        CLRB
C2AD  35 02                     PULA
C2AF  BD DD2D                   JSR     HEXDY4
C2B2  A7 89 0141                STAA    FDSTAT+0,X
C2B6  35 02                     PULA
C2B8  BD DD31                   JSR     HEXDY0
C2BB  A7 89 0142                STAA    FDSTAT+1,X      
C2BF  35 02                     PULA
C2C1  BD DD2D                   JSR     HEXDY4
C2C4  A7 89 0143                STAA    FDSTAT+2,X      
C2C8  35 02                     PULA
C2CA  5C                        INCB
C2CB  BD DD31                   JSR     HEXDY0
C2CE  A7 89 0144                STAA    FDSTAT+3,X      
C2D2                            PULX
C2D4  35 04                     PULB
C2D6  35 02                     PULA
C2D8  39                        RTS
                        ;
C2D9  34 02             DIS80   PSHA
C2DB  34 04 A6E0                TBA
C2DF  8B 01                     ADDA    #001
C2E1  19                        DAA
C2E2  34 02 E6E0                TAB
C2E6  35 02                     PULA
C2E8  89 00                     ADCA    #000
C2EA  19                        DAA
C2EB  30 1F                     DEX
C2ED  10 26 FFE8                BNE     DIS80
C2F1  39                        RTS
                        ;
                        ;********************************************************
                        ;
C2F2  9E 08             DOZCAT  LDX     /ATIMER
C2F4  10 26 001A                BNE     DOZ90
C2F8  BD EC44                   JSR     RHBANK
C2FB  85 08                     BITA    #QZCA
C2FD  10 26 0011                BNE     DOZ90
C301  96 00                     LDAA    /ATRFLG
C303  48                        ASLA
C304  8E C313                   LDX     #ATRTAB
C307  BD F0E7                   JSR     ADDA2X
C30A  AE 89 0000                LDX     0,X
C30E  6E 89 0000                JMP     0,X
C312  39                DOZ90   RTS
                        ;
C313  C31D              ATRTAB  DATA    ATRIN
C315  C324                      DATA    ATRIN2
C317  C35D                      DATA    MLPRN2          all flicker
C319  C3FE                      DATA    ASERVE          snakes & scrolls
C31B  C34C                      DATA    ATRES
                        ;
C31D  7C 0000           ATRIN   INC     ATRFLG
C320  7F 0001                   CLR     ATRCNT
C323  39                        RTS
                        ;
C324  7C 0000           ATRIN2  INC     ATRFLG
C327  7F 0001                   CLR     ATRCNT
C32A  7F 005B                   CLR     ATRCN1
C32D  7F 005C                   CLR     ATRCN2
C330  7F 005D                   CLR     ATRCN3
C333  7F 005E                   CLR     ATRCN4
C336  7F 005F                   CLR     ATRCN5
C339  8E C4DB                   LDX     #ALAMP1
C33C  BF 0060                   STX     AZCPT1
C33F  8E C539                   LDX     #ALAMP2
C342  BF 0062                   STX     AZCPT2
C345  8E C57F                   LDX     #ALAMP3
C348  BF 0064                   STX     AZCPT3
C34B  39                        RTS
                        ;
                        ;
C34C  86 01             ATRES   LDAA    #1
C34E  97 00                     STAA    /ATRFLG
C350  8E 0064                   LDX     #100
C353  9F 08                     STX     /ATIMER
C355  39                        RTS
                        ;
C356  7F 0001           CLF900  CLR     ATRCNT
C359  7C 0000                   INC     ATRFLG
C35C  39                        RTS
                        ;
C35D  9E 25             MLPRN2  LDX     /AZCPTR
C35F  A6 89 0000                LDAA    0,X
C363  10 27 000A                BEQ     ML2500
C367  97 09                     STAA    /ATIMER+1
C369  30 01                     INX
C36B  BD EF8E                   JSR     PRLPLX
C36E  9F 25                     STX     /AZCPTR
C370  39                        RTS
C371  8E C38D           ML2500  LDX     #BLAMPS
C374  9F 25                     STX     /AZCPTR
C376  96 01                     LDAA    /ATRCNT
C378  4C                        INCA
C379  97 01                     STAA    /ATRCNT
C37B  81 03                     CMPA    #3
C37D  10 27 0001                BEQ     CL2800
C381  39                        RTS
                        ;
C382  8E C38D           CL2800  LDX     #BLAMPS                 
C385  9F 25                     STX     /AZCPTR
C387  BD C3C5                   JSR     BLEND
C38A  7E C356                   JMP     CLF900
                        ;
C38D  FA                BLAMPS  DB      250
C38E  85                JLAMPS  DB      FF1
C38F  4C 5D 6C 7C               DB      LWL1,LWL4,LWL5,LWL7
C393  0F 3F 3E                  DB      LWL1B,LWL4B,LWL5B   
C396  03 23 14 05 25            DB      LREL4T,LREL4B,LREL5M,LREL6T,LREL6B
C39B  43 44 53 54               DB      LLWL2A,LLWL2B,LLWL3A,LLWL3B
C39F  10 01 21 12               DB      LREL1M,LREL2T,LREL2B,LREL3M
C3A3  72 60 62                  DB      LCCASH,LSTK4,LSTK16
C3A6  31 40 42                  DB      LHOLD1,LHOLD3,LTOPST
C3A9  8A                        DB      FF2
C3AA  4D 5C 6D 7D               DB      LWL2,LWL3,LWL6,LWL8
C3AE  1F 2F                     DB      LWL2B,LWL3B
C3B0  13 04 24 15               DB      LREL4M,LREL5T,LREL5B,LREL6M
C3B4  33 34                     DB      LLWL1A,LLWL1B
C3B6  00 20 11 02 12            DB      LREL1T,LREL1B,LREL2M,LREL3T,LREL3M
C3BB  71 52 61 70               DB      LPOT,LTRANS,LSTK8,LSTK32
C3BF  30 32 50 51               DB      LCHOLD,LHOLD2,LSTAKE,LSTART
C3C3  90                        DB      LPTERM
C3C4  00                        DB      0
                        ;
C3C5  BD EF84           BLEND   JSR     PRLPLI          tidy up at end of flickering
C3C8  80                        DB      OF
C3C9  4C 5D 6C 7C               DB      LWL1,LWL4,LWL5,LWL7   
C3CD  0F 3F 3E                  DB      LWL1B,LWL4B,LWL5B
C3D0  03 23 14 05 25            DB      LREL4T,LREL4B,LREL5M,LREL6T,LREL6B
C3D5  43 44 53 54               DB      LLWL2A,LLWL2B,LLWL3A,LLWL3B
C3D9  10 01 21 12               DB      LREL1M,LREL2T,LREL2B,LREL3M
C3DD  72 60 62                  DB      LCCASH,LSTK4,LSTK16
C3E0  31 40 42                  DB      LHOLD1,LHOLD3,LTOPST
C3E3  4D 5C 6D 7D 1F 2F         DB      LWL2,LWL3,LWL6,LWL8,LWL2B,LWL3B
C3E9  13 04 24 15               DB      LREL4M,LREL5T,LREL5B,LREL6M
C3ED  33 34                     DB      LLWL1A,LLWL1B
C3EF  00 20 11 02 12            DB      LREL1T,LREL1B,LREL2M,LREL3T,LREL3M
C3F4  71 52 61 70               DB      LPOT,LTRANS,LSTK8,LSTK32
C3F8  30 32 50 51               DB      LCHOLD,LHOLD2,LSTAKE,LSTART
C3FC  90                        DB      LPTERM
C3FD  39                        RTS
                        ;
C3FE  B6 005B           ASERVE  LDAA    ATRCN1
C401  81 08                     CMPA    #ALIM1+2
C403  10 25 0016                BLO     AS100
C407  B6 005C                   LDAA    ATRCN2
C40A  81 08                     CMPA    #ALIM2+2
C40C  10 25 000D                BLO     AS100
C410  B6 005D                   LDAA    ATRCN3
C413  81 15                     CMPA    #ALIM3+2
C415  10 25 0004                BLO     AS100
C419  7C 0000                   INC     ATRFLG
C41C  39                        RTS
                        ;
C41D  7D 0056           AS100   TST     ATIME1
C420  10 26 0038                BNE     AS200
C424  BE 0060                   LDX     AZCPT1
C427  A6 89 0000                LDAA    0,X
C42B  10 27 000E                BEQ     AS150
C42F  B7 0056                   STAA    ATIME1
C432  30 01                     INX
C434  BD EF8E                   JSR     PRLPLX
C437  BF 0060                   STX     AZCPT1
C43A  7E C45C                   JMP     AS200
C43D  B6 005B           AS150   LDAA    ATRCN1
C440  7C 005B                   INC     ATRCN1
C443  81 06                     CMPA    #ALIM1
C445  10 25 000D                BLO     AS180
C449  10 22 000F                BHI     AS200
C44D  8E C534                   LDX     #ALEND1
C450  BF 0060                   STX     AZCPT1
C453  7E C45C                   BRA     AS200   
C456  8E C4DB           AS180   LDX     #ALAMP1
C459  BF 0060                   STX     AZCPT1
                        ;
C45C  7D 0057           AS200   TST     ATIME2
C45F  10 26 0038                BNE     AS300
C463  BE 0062                   LDX     AZCPT2
C466  A6 89 0000                LDAA    0,X
C46A  10 27 000E                BEQ     AS250
C46E  B7 0057                   STAA    ATIME2
C471  30 01                     INX
C473  BD EF8E                   JSR     PRLPLX
C476  BF 0062                   STX     AZCPT2
C479  7E C49B                   JMP     AS300
C47C  B6 005C           AS250   LDAA    ATRCN2
C47F  7C 005C                   INC     ATRCN2
C482  81 06                     CMPA    #ALIM2
C484  10 25 000D                BLO     AS280
C488  10 22 000F                BHI     AS300
C48C  8E C57A                   LDX     #ALEND2
C48F  BF 0062                   STX     AZCPT2
C492  7E C49B                   BRA     AS300   
C495  8E C539           AS280   LDX     #ALAMP2
C498  BF 0062                   STX     AZCPT2
                        ;
C49B  7D 0058           AS300   TST     ATIME3
C49E  10 26 0038                BNE     AS900
C4A2  BE 0064                   LDX     AZCPT3
C4A5  A6 89 0000                LDAA    0,X
C4A9  10 27 000E                BEQ     AS350
C4AD  B7 0058                   STAA    ATIME3
C4B0  30 01                     INX
C4B2  BD EF8E                   JSR     PRLPLX
C4B5  BF 0064                   STX     AZCPT3
C4B8  7E C4DA                   JMP     AS900
C4BB  B6 005D           AS350   LDAA    ATRCN3
C4BE  7C 005D                   INC     ATRCN3
C4C1  81 13                     CMPA    #ALIM3
C4C3  10 25 000D                BLO     AS380
C4C7  10 22 000F                BHI     AS900
C4CB  8E C5D0                   LDX     #ALEND3
C4CE  BF 0064                   STX     AZCPT3
C4D1  7E C4DA                   BRA     AS900   
C4D4  8E C57F           AS380   LDX     #ALAMP3
C4D7  BF 0064                   STX     AZCPT3
                        ;
C4DA  39                AS900   RTS
                        ;
                        ;- - - - - - - - - - - -
                        ;
      0006              ALIM1   EQU     6               total time = 10.56s (revs. synched with AL2)
                        ;
C4DB  08                ALAMP1  DB      8
C4DC  8F 09 90                  DB      ON,LAR1,LPTERM
C4DF  08                        DB      8
C4E0  8F 0A 90                  DB      ON,LAR2,LPTERM
C4E3  08                        DB      8
C4E4  8F 0B 90                  DB      ON,LAR3,LPTERM
C4E7  08                        DB      8
C4E8  8F 0C 90                  DB      ON,LAR4,LPTERM
C4EB  08                        DB      8
C4EC  8F 18 90                  DB      ON,LAR5,LPTERM
C4EF  08                        DB      8
C4F0  8F 19 90                  DB      ON,LAR6,LPTERM
C4F3  08                        DB      8
C4F4  8F 1A 90                  DB      ON,LAR7,LPTERM
C4F7  08                        DB      8
C4F8  8F 1B 90                  DB      ON,LAR8,LPTERM
C4FB  08                        DB      8
C4FC  8F 1C 90                  DB      ON,LAR9,LPTERM
C4FF  08                        DB      8
C500  8F 28 90                  DB      ON,LAR10,LPTERM
C503  08                        DB      8
C504  8F 08 90                  DB      ON,LAR0,LPTERM
C507  08                        DB      8
C508  80                        DB      OF
C509  09 90                     DB      LAR1,LPTERM
C50B  08                        DB      8
C50C  80                        DB      OF
C50D  0A 90                     DB      LAR2,LPTERM
C50F  08                        DB      8
C510  80                        DB      OF
C511  0B 90                     DB      LAR3,LPTERM
C513  08                        DB      8
C514  80                        DB      OF
C515  0C 90                     DB      LAR4,LPTERM
C517  08                        DB      8
C518  80                        DB      OF
C519  18 90                     DB      LAR5,LPTERM
C51B  08                        DB      8
C51C  80                        DB      OF
C51D  19 90                     DB      LAR6,LPTERM
C51F  08                        DB      8
C520  80                        DB      OF
C521  1A 90                     DB      LAR7,LPTERM
C523  08                        DB      8
C524  80                        DB      OF
C525  1B 90                     DB      LAR8,LPTERM
C527  08                        DB      8
C528  80                        DB      OF
C529  1C 90                     DB      LAR9,LPTERM
C52B  08                        DB      8
C52C  80                        DB      OF
C52D  28 90                     DB      LAR10,LPTERM
C52F  07                        DB      7
C530  80                        DB      OF
C531  08 90                     DB      LAR0,LPTERM
C533  00                        DB      0
                        ;
C534  01                ALEND1  DB      1
C535  80 08 90                  DB      OF,LAR0,LPTERM
C538  00                        DB      0
                        ;
                        ;
                        ;- - - - - - - - - - - -
                        ;
      0006              ALIM2   EQU     6               total time = 10.56s (revs. synched with AL2)
                        ;
C539  0B                ALAMP2  DB      11
C53A  8F 3B 90                  DB      ON,LS60,LPTERM
C53D  0B                        DB      11
C53E  8F 3A 90                  DB      ON,LS20,LPTERM
C541  0B                        DB      11
C542  8F 39 90                  DB      ON,LS40,LPTERM
C545  0B                        DB      11
C546  8F 38 90                  DB      ON,LSMYS,LPTERM
C549  0B                        DB      11
C54A  8F 2C 90                  DB      ON,LS30,LPTERM
C54D  0B                        DB      11
C54E  8F 2B 90                  DB      ON,LS50,LPTERM
C551  0B                        DB      11
C552  8F 2A 90                  DB      ON,LS10,LPTERM
C555  0B                        DB      11
C556  8F 29 90                  DB      ON,LSPOT,LPTERM
C559  0B                        DB      11
C55A  80 3B 90                  DB      OF,LS60,LPTERM
C55D  0B                        DB      11
C55E  80 3A 90                  DB      OF,LS20,LPTERM
C561  0B                        DB      11
C562  80 39 90                  DB      OF,LS40,LPTERM
C565  0B                        DB      11
C566  80 38 90                  DB      OF,LSMYS,LPTERM
C569  0B                        DB      11
C56A  80 2C 90                  DB      OF,LS30,LPTERM
C56D  0B                        DB      11
C56E  80 2B 90                  DB      OF,LS50,LPTERM
C571  0B                        DB      11
C572  80 2A 90                  DB      OF,LS10,LPTERM
C575  0A                        DB      10
C576  80 29 90                  DB      OF,LSPOT,LPTERM
C579  00                        DB      0
                        ;
C57A  01                ALEND2  DB      1
C57B  80 29 90                  DB      OF,LSPOT,LPTERM
C57E  00                        DB      0
                        ;
                        ;
                        ;- - - - - - - - - - - -
                        ;
      0013              ALIM3   EQU     19      total time = 10.64 s
                        ;
C57F  07                ALAMP3  DB      7
C580  8F 30 11 00 14 03         DB      ON,LCHOLD,LREL2M,LREL1T,LREL5M,LREL4T,OF,LREL1M,LREL4M,LPTERM
C58A  07                        DB      7
C58B  8F 31 01 04 80 30         DB      ON,LHOLD1,LREL2T,LREL5T,OF,LCHOLD,LREL1T,LREL4T,LPTERM
C594  07                        DB      7
C595  8F 32 02 05 80 31         DB      ON,LHOLD2,LREL3T,LREL6T,OF,LHOLD1,LREL2T,LREL5T,LPTERM
C59E  07                        DB      7
C59F  8F 40 12 15 80 32         DB      ON,LHOLD3,LREL3M,LREL6M,OF,LHOLD2,LREL3T,LREL6T,LPTERM
C5A8  07                        DB      7
C5A9  8F 50 22 25 80 40         DB      ON,LSTAKE,LREL3B,LREL6B,OF,LHOLD3,LREL3M,LREL6M,LPTERM
C5B2  07                        DB      7
C5B3  8F 42 21 24 80 50         DB      ON,LTOPST,LREL2B,LREL5B,OF,LSTAKE,LREL3B,LREL6B,LPTERM
C5BC  07                        DB      7
C5BD  8F 51 20 23 80 42         DB      ON,LSTART,LREL1B,LREL4B,OF,LTOPST,LREL2B,LREL5B,LPTERM
C5C6  07                        DB      7
C5C7  8F 10 13 80 51 20         DB      ON,LREL1M,LREL4M,OF,LSTART,LREL1B,LREL4B,LPTERM
C5CF  00                        DB      0
                        ;
C5D0  07                ALEND3  DB      7
C5D1  80 10 11 13 14 90         DB      OF,LREL1M,LREL2M,LREL4M,LREL5M,LPTERM
C5D7  00                        DB      0
                        ;
                        ;**************************************************************
                        ;
C5D8  34 02             GH2LX   PSHA
C5DA  34 04                     PSHB
C5DC  BD EC44                   JSR     RHBANK
C5DF  84 C0                     ANDA    #0C0
C5E1  44                        LSRA
C5E2  44                        LSRA
C5E3  7E C5EF                   BRA     GH1500
                        ;
C5E6  34 02             GH1LX   PSHA
C5E8  34 04                     PSHB
C5EA  BD EC44                   JSR     RHBANK
C5ED  84 30                     ANDA    #030
C5EF  44                GH1500  LSRA
C5F0  44                        LSRA
C5F1  44                        LSRA
C5F2  8E C60C                   LDX     #HLEV
C5F5  C6 10                     LDAB    #NATION
C5F7  C1 20                     CMPB    #UKR
C5F9  10 26 0003                BNE     GH1800
C5FD  8E C614                   LDX     #HLEVU
C600  BD F0E7           GH1800  JSR     ADDA2X
C603  AE 89 0000                LDX     0,X
C607  35 04                     PULB
C609  35 02                     PULA
C60B  39                        RTS
                        ;
C60C  007D 00AF 0096 00 HLEV    DATA    125,175,150,200
C614  0000 0190 00C8 02 HLEVU   DATA    0,400,200,600
                        ;
                        ;
C61C  34 02             GH1LXC  PSHA
C61E  34 04                     PSHB
C620  BD EC44                   JSR     RHBANK
C623  84 30                     ANDA    #030
C625  44                        LSRA
C626  44                        LSRA
C627  44                        LSRA
C628  8E C64B                   LDX     #HLEVC5         
C62B  C6 00                     LDAB    #CRVERS
C62D  C1 02                     CMPB    #2
C62F  10 27 000C                BEQ     GC1
C633  8E C653                   LDX     #HLEVC2         
C636  C1 01                     CMPB    #1
C638  10 27 0003                BEQ     GC1
C63C  8E C65B                   LDX     #HLEV25         
C63F  BD F0E7           GC1     JSR     ADDA2X
C642  AE 89 0000                LDX     0,X
C646  35 04                     PULB
C648  35 02                     PULA
C64A  39                        RTS
                        ;
C64B  0000 07D0 03E8 0B HLEVC5  DATA    0,2000,1000,3000
C653  0000 0320 0190 04 HLEVC2  DATA    0,800,400,1200
                        ;
C65B  0000 0640 0320 09 HLEV25  DATA    0,1600,800,2400         
                        ;
                        ;********************************************
                        ;
                                END
                                COPY    MH3.ASM
                        ;*******************************************************
                        ;
                        ;hopper 2 (if fitted) must be the lower value coin.
                        ;
      0001              HOP1    EQU     001     010             output to triac
      0002              HOP2    EQU     002     020
      0010              HOPTO1  EQU     010             opto sensor
      0020              HOPTO2  EQU     020
                        ;
C663  BD DDD4           ATPAY   JSR     PROFDI
C666  11 20 43 41 4C 4C         DB      QRESET,' CALL ATTENDANT ',07F,080
C679  BE 0045           ATP100  LDX     MTIMER
C67C  10 26 000B                BNE     ATP200
C680  8E 0032                   LDX     #50
C683  BF 0045                   STX     MTIMER
C686  BD D511                   JSR     MUSOKI
C689  0101                      DATA    OALARM
C68B  BD F098           ATP200  JSR     TESTSI
C68E  16                        DB      SREFIL
C68F  10 27 FFE6                BEQ     ATP100
C693  BD DDD4                   JSR     PROFDI
C696  11 7F 80                  DB      QRESET,07F,080
C699  BD E000                   JSR     DYCRD1
C69C  C6 00             ATP300  LDAB    #CRVERS
C69E  86 05                     LDAA    #5
C6A0  C1 02                     CMPB    #2
C6A2  10 27 0012                BEQ     ATP815          
C6A6  86 02                     LDAA    #2
C6A8  C1 01                     CMPB    #1
C6AA  10 27 000A                BEQ     ATP815          
C6AE  86 01                     LDAA    #1              
C6B0  C1 00                     CMPB    #0
C6B2  10 27 0002                BEQ     ATP815
C6B6  86 04                     LDAA    #4              
C6B8  7D 0198           ATP815  TST     CRED1
C6BB  10 26 0007                BNE     ATP818
C6BF  B1 0199                   CMPA    CRED1+1
C6C2  10 22 002A                BHI     ATP400          
C6C6  BE 0198           ATP818  LDX     CRED1
C6C9  10 27 0023                BEQ     ATP400  
C6CD  30 1F                     DEX
C6CF  BF 0198                   STX     CRED1
C6D2  34 02                     PSHA
C6D4  BD EF15                   JSR     SETNVR
C6D7  35 02                     PULA
C6D9  4A                        DECA
C6DA  10 26 FFE8                BNE     ATP818
C6DE  BD E000                   JSR     DYCRD1
                        ;
C6E1  C6 01                     LDAB    #001
C6E3  BD B1F4                   JSR     IMETER
C6E6  04                        DB      MMTCO
C6E7  0F                        DB      VMTCA
C6E8  BD B1F4                   JSR     IMETER
C6EB  FF                        DB      0FF
C6EC  36                        DB      VLTCA
C6ED  7E C69C                   JMP     ATP300
                        ;
C6F0  BD F098           ATP400  JSR     TESTSI
C6F3  16                        DB      SREFIL
C6F4  10 26 FFF8                BNE     ATP400
C6F8  39                        RTS
                        ;       
C6F9  B6 0181           PAYOUT  LDAA    GFLAGS
C6FC  85 20                     BITA    #QDOOR
C6FE  10 27 001E                BEQ     PAYCSH
                        ;
                        ;door open payout
                        ;
C702  BE 0198           PAYDO1  LDX     CRED1
C705  10 27 011F                BEQ     PAYE90  
C709  30 1F                     DEX
C70B  BF 0198                   STX     CRED1
C70E  BD EF15                   JSR     SETNVR
C711  BD E000                   JSR     DYCRD1
C714  BD D511                   JSR     MUSOKI
C717  0115                      DATA    OPWBLP
C719  BD EF5E                   JSR     DELAYI
C71C  06                        DB      6
C71D  7E C702                   JMP     PAYDO1  
                        ;
C720  86 10             PAYCSH  LDAA    #NATION
C722  81 20                     CMPA    #UKR
C724  10 26 000A                BNE     PAYCS0
C728  BD C61C                   JSR     GH1LXC          get hopper 1 limit in credits
C72B  BC 0198                   CPX     CRED1
C72E  10 23 FF31                BLS     ATPAY
                        ;
C732  8E 0000           PAYCS0  LDX     #0
C735  BF 018B                   STX     PAID
C738  BE 0198           PAYCS1  LDX     CRED1
C73B  10 27 00C1                BEQ     PAYEND
C73F  86 14                     LDAA    #HOPV1
C741  10 27 0007                BEQ     PAYCS2
C745  8C 0014                   CPX     #HOPV1
C748  10 24 00DD                BHS     PAYHP1
C74C  86 0A             PAYCS2  LDAA    #HOPV2
C74E  10 27 00AE                BEQ     PAYEND  
C752  8C 000A                   CPX     #HOPV2
C755  10 25 00A7                BLO     PAYEND
                        ;
C759  B6 011D           PAYHP2  LDAA    SWSTAT+6
C75C  85 80                     BITA    #QAPLAY
C75E  10 26 0062                BNE     SAY211
                        ;
C762  B6 0153                   LDAA    TCSTAT
C765  8A 02                     ORAA    #HOP2           Hopper 2 
C767  B7 0153                   STAA    TCSTAT
C76A  B7 0F02                   STAA    00F02
C76D  12                        NOP                     LDAA    #008
C76E  12                        NOP                     STAA    008EF           power opto
C76F  8E 0003                   LDX     #3
C772  BF 016C                   STX     T1200           valid signal time 3ms (Tu) 
C775  BE 016C           SAY50   LDX     T1200
C778  10 26 FFF9                BNE     SAY50
                        ;
C77C  B6 011D           SAY100  LDAA    SWSTAT+6
C77F  85 80                     BITA    #QAPLAY
C781  10 26 003F                BNE     SAY211
C785  8E 01F4                   LDX     #500
C788  BF 003E                   STX     HTIMER
C78B  BE 003E           SAY200  LDX     HTIMER
C78E  10 26 0013                BNE     SAY210          
C792  B6 0153                   LDAA    TCSTAT
C795  84 FD                     ANDA    #0FF-HOP2               Hopper 2 
C797  B7 0153                   STAA    TCSTAT
C79A  B7 0F02                   STAA    00F02
C79D  12                        NOP                     LDAA    #008
C79E  12                        NOP                     STAA    008EE           Opto off
                        ;
C79F  BD C90A           SAYREF  JSR     PREFIL          Refill
C7A2  7E C738                   JMP     PAYCS1          to continue payout
                        ;
C7A5  B6 08ED           SAY210  LDAA    008ED
C7A8  85 20                     BITA    #HOPTO2
C7AA  10 27 FFDD                BEQ     SAY200                          
C7AE  8E 0006                   LDX     #6              Coin present in opto timer 5ms (Tc)
C7B1  BF 016C                   STX     T1200
C7B4  B6 08ED           SAY215  LDAA    008ED
C7B7  85 20                     BITA    #HOPTO2
C7B9  10 27 FFCE                BEQ     SAY200          glitch
C7BD  BE 016C                   LDX     T1200
C7C0  10 26 FFF0                BNE     SAY215
                        ;                               real coin pulse
C7C4  BE 0175           SAY211  LDX     H2CNT
C7C7  10 27 0002                BEQ     SAY21E
C7CB  30 1F                     DEX
C7CD  BF 0175           SAY21E  STX     H2CNT
C7D0  C6 0A                     LDAB    #HOPV2
C7D2  BD C8E4                   JSR     SERHBK
C7D5  C6 0A                     LDAB    #HOPM2
C7D7  BE 022D           SAY21F  LDX     CCOUNT
C7DA  30 01                     INX
C7DC  BF 022D                   STX     CCOUNT
C7DF  5A                        DECB
C7E0  10 26 FFF3                BNE     SAY21F  
C7E4  B6 011D                   LDAA    SWSTAT+6
C7E7  85 80                     BITA    #QAPLAY
C7E9  10 26 0009                BNE     SAY800
C7ED  B6 08ED           SAY212  LDAA    008ED
C7F0  85 20                     BITA    #HOPTO2
C7F2  10 26 FFF7                BNE     SAY212
                        ;       
C7F6  BE 0198           SAY800  LDX     CRED1
C7F9  8C 000A                   CPX     #HOPV2
C7FC  10 24 FF7C                BHS     SAY100
                        ;
C800  B6 0153           PAYEND  LDAA    TCSTAT
C803  84 0C                     ANDA    #00F-(HOP1+HOP2)
C805  B7 0153                   STAA    TCSTAT
C808  B7 0F02                   STAA    00F02
C80B  12                        NOP                     LDAA    #008
C80C  12                        NOP                     STAA    008EE           Opto off
C80D  BE 022D           PAYE10  LDX     CCOUNT
C810  10 27 0014                BEQ     PAYE90
C814  30 1F                     DEX
C816  BF 022D                   STX     CCOUNT
C819  C6 01                     LDAB    #1
C81B  BD B1F4                   JSR     IMETER
C81E  04                        DB      MMTCO
C81F  0C                        DB      VMTCO
C820  BD B1F4                   JSR     IMETER
C823  FF                        DB      0FF  
C824  33                        DB      VLTCO
C825  7E C80D                   BRA     PAYE10
C828  39                PAYE90  RTS     
                        ;       
                        ;- - - - - - - - - - - - - - - - - - - - - - 
                        ;
C829  B6 011D           PAYHP1  LDAA    SWSTAT+6
C82C  85 80                     BITA    #QAPLAY
C82E  10 26 0066                BNE     TAY211
C832  B6 0153                   LDAA    TCSTAT
C835  8A 01                     ORAA    #HOP1           hopper 1 
C837  B7 0153                   STAA    TCSTAT
C83A  B7 0F02                   STAA    00F02
C83D  12                        NOP                     LDAA    #008
C83E  12                        NOP                     STAA    008EF           power opto
C83F  8E 0003                   LDX     #3
C842  BF 016C                   STX     T1200           valid signal time 3ms (Tu) 
C845  BE 016C           PAY50   LDX     T1200
C848  10 26 FFF9                BNE     PAY50
                        ;
C84C  B6 011D           TAY100  LDAA    SWSTAT+6
C84F  85 80                     BITA    #QAPLAY
C851  10 26 0043                BNE     TAY211
C855  8E 01F4                   LDX     #500
C858  BF 003E                   STX     HTIMER
C85B  BE 003E           TAY200  LDX     HTIMER
C85E  10 26 0017                BNE     TAY210          
C862  12                        NOP                     
C863  B6 0153                   LDAA    TCSTAT
C866  84 FE                     ANDA    #0FF-HOP1
C868  B7 0153                   STAA    TCSTAT
C86B  B7 0F02                   STAA    00F02
C86E  12                        NOP                     LDAA    #008
C86F  12                        NOP                     STAA    008EE           Opto off
C870  86 0A                     LDAA    #HOPV2
C872  10 27 FF29                BEQ     SAYREF          refill (no hopper 2)
C876  7E C759                   JMP     PAYHP2          continue from hopper 2
                        ;
C879  B6 08ED           TAY210  LDAA    008ED
C87C  85 10                     BITA    #HOPTO1
C87E  10 27 FFD9                BEQ     TAY200                                          
C882  8E 0006                   LDX     #6              Coin present in opto timer 5ms (Tc)
C885  BF 016C                   STX     T1200
C888  B6 08ED           TAY215  LDAA    008ED
C88B  85 10                     BITA    #HOPTO1
C88D  10 27 FFCA                BEQ     TAY200          glitch
C891  BE 016C                   LDX     T1200
C894  10 26 FFF0                BNE     TAY215
                        ;                               real coin pulse
C898  BE 0173           TAY211  LDX     H1CNT
C89B  10 27 0005                BEQ     TAY21E
C89F  30 1F                     DEX
C8A1  BF 0173                   STX     H1CNT
C8A4  C6 14             TAY21E  LDAB    #HOPV1
C8A6  BD C8E4                   JSR     SERHBK
C8A9  C6 14                     LDAB    #HOPM1
C8AB  BE 022D           TAY21F  LDX     CCOUNT
C8AE  30 01                     INX
C8B0  BF 022D                   STX     CCOUNT
C8B3  5A                        DECB
C8B4  10 26 FFF3                BNE     TAY21F
C8B8  B6 011D                   LDAA    SWSTAT+6
C8BB  85 80                     BITA    #QAPLAY
C8BD  10 26 0009                BNE     TAY800
C8C1  B6 08ED           TAY212  LDAA    008ED
C8C4  85 10                     BITA    #HOPTO1
C8C6  10 26 FFF7                BNE     TAY212          
                        ;       
C8CA  BE 0198           TAY800  LDX     CRED1
C8CD  8C 0014                   CPX     #HOPV1
C8D0  10 24 FF78                BHS     TAY100
C8D4  B6 0153                   LDAA    TCSTAT
C8D7  84 FE                     ANDA    #0FF-HOP1
C8D9  B7 0153                   STAA    TCSTAT  
C8DC  B7 0F02                   STAA    00F02
C8DF  12                        NOP                     LDAA    #008
C8E0  12                        NOP                     STAA    008EE           Opto off
C8E1  7E C738                   JMP     PAYCS1
                        ;
C8E4  BE 0198           SERHBK  LDX     CRED1
C8E7  30 1F                     DEX
C8E9  BF 0198                   STX     CRED1
C8EC  34 04                     PSHB
C8EE  BD EF15                   JSR     SETNVR          
C8F1  35 04                     PULB
C8F3  BE 018B                   LDX     PAID
C8F6  30 01                     INX     
C8F8  BF 018B                   STX     PAID
C8FB  5A                        DECB
C8FC  10 26 FFE4                BNE     SERHBK
C900  BD E000                   JSR     DYCRD1
C903  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - -
                        ;
C904  BD C90A           PREFRS  JSR     PREFIL          from reset
C907  7E C738                   JMP     PAYCS1
                        ;
                        ;Forced Refill from payout 
                        ;
C90A  8E CD48           PREFIL  LDX     #OALARL
C90D  BF 0021                   STX     MUSPTR
C910  7F 0047                   CLR     NALT
C913  86 01                     LDAA    #1
C915  B7 018E                   STAA    REFLAG
C918  BE 0045           PRE105  LDX     MTIMER
C91B  10 26 006D                BNE     PRE150
C91F  8E 0064                   LDX     #100
C922  BF 0045                   STX     MTIMER
C925  B6 0047                   LDAA    NALT
C928  10 27 0021                BEQ     PRE110
C92C  81 01                     CMPA    #1
C92E  10 27 0034                BEQ     PRE120
C932  BD DDD4                   JSR     PROFDI
C935  20 53 48 4F 52 54         DB      ' SHORT          ',07F,080
C947  BD E000                   JSR     DYCRD1
C94A  7E C97E                   BRA     PRE140
C94D  BD DDD4           PRE110  JSR     PROFDI
C950  11                        DB      QRESET
C951  20 52 45 46 49 4C         DB      ' REFILL HOPPERS ',07F,080
C963  7E C97E                   BRA     PRE140
C966  BD DDD4           PRE120  JSR     PROFDI
C969  20 50 41 49 44 20         DB      ' PAID           ',07F,080
C97B  BD DFF6                   JSR     DPAID
C97E  B6 0047           PRE140  LDAA    NALT
C981  4C                        INCA
C982  81 03                     CMPA    #3
C984  10 26 0001                BNE     PRE145
C988  4F                        CLRA
C989  B7 0047           PRE145  STAA    NALT
C98C  BD D588           PRE150  JSR     OKILOO
C98F  BD F098                   JSR     TESTSI
C992  16                        DB      SREFIL
C993  10 27 FF81                BEQ     PRE105
C997  BD D4D9                   JSR     SILENT
C99A  BD DDD4                   JSR     PROFDI
C99D  11 7F 80                  DB      QRESET,07F,080
C9A0  7F 0047                   CLR     NALT
C9A3  BD C9ED           PRE205  JSR     DFLOAT
C9A6  BD BB9A                   JSR     DOCRED
C9A9  86 14                     LDAA    #HOPM1
C9AB  10 27 0024                BEQ     PRE300          only one hopper fitted
C9AF  86 0A                     LDAA    #HOPM2
C9B1  10 27 001E                BEQ     PRE300          only one hopper fitted
C9B5  BD EFB9                   JSR     PRLPSI
C9B8  85 51                     DB      FF1,LSTART
C9BA  BD F098                   JSR     TESTSI
C9BD  1F                        DB      SSTART
C9BE  10 27 0011                BEQ     PRE300
C9C2  7C 0047                   INC     NALT
C9C5  BD C9ED           PRE250  JSR     DFLOAT
C9C8  BD BB9A                   JSR     DOCRED
C9CB  BD F098                   JSR     TESTSI
C9CE  1F                        DB      SSTART
C9CF  10 26 FFF2                BNE     PRE250
C9D3  BD F098           PRE300  JSR     TESTSI
C9D6  16                        DB      SREFIL
C9D7  10 26 FFC8                BNE     PRE205
C9DB  BD EFB9                   JSR     PRLPSI
C9DE  80 51                     DB      OF,LSTART
C9E0  BD DDD4                   JSR     PROFDI
C9E3  11 7F 80                  DB      QRESET,07F,080
C9E6  BD E000                   JSR     DYCRD1
C9E9  7F 018E                   CLR     REFLAG
C9EC  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
C9ED  B6 0047           DFLOAT  LDAA    NALT                    display H1 or H2 float
C9F0  85 01                     BITA    #001
C9F2  10 26 0057                BNE     DFL20
C9F6  86 14             DFLPOU  LDAA    #HOPM1
C9F8  10 27 0051                BEQ     DFL20
C9FC  BD B665                   JSR     CONWIN
C9FF  5F                        CLRB
CA00  34 02                     PSHA
CA02  BD DD2D                   JSR     HEXDY4
CA05  B7 0142                   STAA    FDSTAT+1
CA08  35 02                     PULA
CA0A  BD DD31                   JSR     HEXDY0
CA0D  B7 0143                   STAA    FDSTAT+2                display coin value
                        ;
CA10  BD DDD4                   JSR     PROFDI
CA13  03 20 46 4C 4F 41         DB      3,' FLOAT= ',07F,080
CA1E  4F                        CLRA
CA1F  5F                        CLRB
CA20  BE 0173                   LDX     H1CNT
CA23  10 27 0003                BEQ     DFLP10
CA27  BD B66B           DFLP09  JSR     CONW10
CA2A  34 02             DFLP10  PSHA
CA2C  34 02                     PSHA
CA2E  34 04 A6E0                TBA
CA32  5F                        CLRB
CA33  BD DD31                   JSR     HEXDY0
CA36  B7 014E                   STAA    FDSTAT+13      
CA39  35 02                     PULA
CA3B  BD DD2D                   JSR     HEXDY4
CA3E  B7 014F                   STAA    FDSTAT+14       
CA41  35 02                     PULA
CA43  5C                        INCB
CA44  BD DD31                   JSR     HEXDY0
CA47  B7 0150                   STAA    FDSTAT+15               display float (in coins)       
CA4A  7E CAA1                   BRA     DFL900
                        ;
CA4D  86 0A             DFL20   LDAA    #HOPM2
CA4F  10 27 FFA3                BEQ     DFLPOU
CA53  BD B665                   JSR     CONWIN
CA56  5F                        CLRB
CA57  34 02                     PSHA
CA59  BD DD2D                   JSR     HEXDY4
CA5C  B7 0142                   STAA    FDSTAT+1
CA5F  35 02                     PULA
CA61  BD DD31                   JSR     HEXDY0
CA64  B7 0143                   STAA    FDSTAT+2                display coin value
                        ;
CA67  BD DDD4                   JSR     PROFDI
CA6A  03 20 46 4C 4F 41         DB      3,' FLOAT= ',07F,080
CA75  4F                        CLRA
CA76  5F                        CLRB
CA77  BE 0175                   LDX     H2CNT
CA7A  10 27 0003                BEQ     DFL210
CA7E  BD B66B           DFL209  JSR     CONW10
CA81  34 02             DFL210  PSHA
CA83  34 02                     PSHA
CA85  34 04 A6E0                TBA
CA89  5F                        CLRB
CA8A  BD DD31                   JSR     HEXDY0
CA8D  B7 014E                   STAA    FDSTAT+13      
CA90  35 02                     PULA
CA92  BD DD2D                   JSR     HEXDY4
CA95  B7 014F                   STAA    FDSTAT+14       
CA98  35 02                     PULA
CA9A  5C                        INCB
CA9B  BD DD31                   JSR     HEXDY0
CA9E  B7 0150                   STAA    FDSTAT+15                       display float (in coins)
CAA1  39                DFL900  RTS     
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
CAA2  86 10             REFILL  LDAA    #NATION
CAA4  81 30                     CMPA    #RUS
CAA6  10 26 000A                BNE     REF050
CAAA  B6 011D                   LDAA    SWSTAT+6
CAAD  85 02                     BITA    #QKEY
CAAF  10 27 0001                BEQ     REF050
CAB3  39                        RTS
CAB4  BD F098           REF050  JSR     TESTSI
CAB7  16                        DB      SREFIL
CAB8  10 26 0001                BNE     REF100
CABC  39                        RTS
CABD  BD DDD4           REF100  JSR     PROFDI
CAC0  11 7F 80                  DB      QRESET,07F,080
CAC3  BD BED6                   JSR     BUTOFF
CAC6  7F 0047                   CLR     NALT
CAC9  BD C9ED           REF200  JSR     DFLOAT
CACC  BD BB9A                   JSR     DOCRED
CACF  86 14                     LDAA    #HOPM1
CAD1  10 27 0024                BEQ     REF300          only one hopper fitted
CAD5  86 0A                     LDAA    #HOPM2
CAD7  10 27 001E                BEQ     REF300          only one hopper fitted
CADB  BD EFB9                   JSR     PRLPSI
CADE  85 51                     DB      FF1,LSTART
CAE0  BD F098                   JSR     TESTSI
CAE3  1F                        DB      SSTART
CAE4  10 27 0011                BEQ     REF300
CAE8  7C 0047                   INC     NALT
CAEB  BD C9ED           REF250  JSR     DFLOAT
CAEE  BD BB9A                   JSR     DOCRED
CAF1  BD F098                   JSR     TESTSI
CAF4  1F                        DB      SSTART
CAF5  10 26 FFF2                BNE     REF250
CAF9  BD F098           REF300  JSR     TESTSI
CAFC  17                        DB      SBDOOR
CAFD  10 27 0003                BEQ     REF400
CB01  12                        NOP                     JSR     TESTSI
CB02  12                        NOP                     DB      SHDUMP
CB03  12                        NOP                     BNE     HDUMP   dump hoppers - door open only
CB04  BD F098           REF400  JSR     TESTSI
CB07  16                        DB      SREFIL
CB08  10 26 FFBD                BNE     REF200
CB0C  BD EFB9           REFEND  JSR     PRLPSI
CB0F  80 51                     DB      OF,LSTART
CB11  BD DDD4                   JSR     PROFDI
CB14  11 7F 80                  DB      QRESET,07F,080
CB17  BD E000                   JSR     DYCRD1
CB1A  39                        RTS
                        ;
                        ;*****************************************************
                        ;
                        ;                            1 hopper installation from test mode
                        ;
CB1B  BD BED6           TDUMP1  JSR     BUTOFF
CB1E  BD DDD4                   JSR     PROFDI
CB21  11                        DB      QRESET
CB22  44 55 4D 50 20 48         DB      'DUMP HOPPER 1   ',07F,080
CB34  BD EFB9           TDA010  JSR     PRLPSI
CB37  85 72                     DB      FF1,LCCASH
CB39  BD F098                   JSR     TESTSI
CB3C  09                        DB      SCCASH
CB3D  10 27 FFF3                BEQ     TDA010
CB41  BD EFB9                   JSR     PRLPSI
CB44  80 72                     DB      OF,LCCASH
                        ;
CB46  BD DDD4                   JSR     PROFDI
CB49  11 44 55 4D 50 20         DB      QRESET,'DUMP =          ',07F,080
CB5C  8E 0000                   LDX     #0
CB5F  BF 0048                   STX     HD1             hopper coins dumped count
CB62  B6 0153                   LDAA    TCSTAT
CB65  8A 01                     ORAA    #HOP1
CB67  B7 0153                   STAA    TCSTAT
CB6A  B7 0F02                   STAA    00F02
CB6D  8E 0003                   LDX     #3
CB70  BF 016C                   STX     T1200           valid signal time 3ms (Tu) 
CB73  BE 016C           TA1050  LDX     T1200
CB76  10 26 FFF9                BNE     TA1050
                        ;
CB7A  8E 01F4           TA1100  LDX     #500
CB7D  BF 003E                   STX     HTIMER
CB80  BE 003E           TA1200  LDX     HTIMER
CB83  10 26 000E                BNE     TA1210          
CB87  B6 0153                   LDAA    TCSTAT
CB8A  84 FE                     ANDA    #0FF-HOP1
CB8C  B7 0153                   STAA    TCSTAT
CB8F  B7 0F02                   STAA    00F02
CB92  7E CBD7                   JMP     TA1800          hopper EMPTY
                        ;
CB95  B6 08ED           TA1210  LDAA    008ED
CB98  85 10                     BITA    #HOPTO1
CB9A  10 27 FFE2                BEQ     TA1200                                          
CB9E  8E 0006                   LDX     #6              Coin present in opto timer 5ms (Tc)
CBA1  BF 016C                   STX     T1200
CBA4  B6 08ED           TA1215  LDAA    008ED
CBA7  85 10                     BITA    #HOPTO1
CBA9  10 27 FFD3                BEQ     TA1200          glitch
CBAD  BE 016C                   LDX     T1200
CBB0  10 26 FFF0                BNE     TA1215
                        ;                               real coin pulse
CBB4  BE 0173           TA1211  LDX     H1CNT
CBB7  10 27 0005                BEQ     TA121E
CBBB  30 1F                     DEX
CBBD  BF 0173                   STX     H1CNT
CBC0  BE 0048           TA121E  LDX     HD1
CBC3  30 01                     INX
CBC5  BF 0048                   STX     HD1
CBC8  BD CD3C                   JSR     DSHD1P
CBCB  B6 08ED           TA1212  LDAA    008ED
CBCE  85 10                     BITA    #HOPTO1
CBD0  10 26 FFF7                BNE     TA1212          
                        ;       
CBD4  7E CB7A                   JMP     TA1100
                        ;
CBD7  12                TA1800  NOP
CBD8  39                TA1900  RTS
                        ;
CBD9  BD C5E6           TOPUP1  JSR     GH1LX                   LDX     #H1LEV
CBDC  BF 0173                   STX     H1CNT
CBDF  BD DDD4                   JSR     PROFDI
CBE2  48 4F 50 20 31 20         DB      'HOP 1 FLOAT=    ',07F,080
CBF4  BD CA27                   JSR     DFLP09                          display X
CBF7  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                        ;20p hopper installation from test mode
                        ;
CBF8  BD BED6           TDUMP2  JSR     BUTOFF
CBFB  BD DDD4                   JSR     PROFDI
CBFE  11                        DB      QRESET
CBFF  44 55 4D 50 20 48         DB      'DUMP HOPPER 2   ',07F,080
CC11  BD EFB9           T2A010  JSR     PRLPSI
CC14  85 72                     DB      FF1,LCCASH
CC16  BD F098                   JSR     TESTSI
CC19  09                        DB      SCCASH
CC1A  10 27 FFF3                BEQ     T2A010
CC1E  BD EFB9                   JSR     PRLPSI
CC21  80 72                     DB      OF,LCCASH
                        ;
CC23  BD DDD4                   JSR     PROFDI
CC26  11 44 55 4D 50 20         DB      QRESET,'DUMP =          ',07F,080
CC39  8E 0000                   LDX     #0
CC3C  BF 0048                   STX     HD1             hopper coins dumped count
CC3F  B6 0153                   LDAA    TCSTAT
CC42  8A 02                     ORAA    #HOP2
CC44  B7 0153                   STAA    TCSTAT
CC47  B7 0F02                   STAA    00F02                   hopper 2      
CC4A  8E 0003                   LDX     #3
CC4D  BF 016C                   STX     T1200           valid signal time 3ms (Tu) 
CC50  BE 016C           T21050  LDX     T1200
CC53  10 26 FFF9                BNE     T21050
                        ;
CC57  8E 01F4           T21100  LDX     #500
CC5A  BF 003E                   STX     HTIMER
CC5D  BE 003E           T21200  LDX     HTIMER
CC60  10 26 000E                BNE     T21210          
CC64  B6 0153                   LDAA    TCSTAT
CC67  84 FD                     ANDA    #0FF-HOP2
CC69  B7 0153                   STAA    TCSTAT
CC6C  B7 0F02                   STAA    00F02   
CC6F  7E CCB4                   JMP     T21800          hopper EMPTY
                        ;
CC72  B6 08ED           T21210  LDAA    008ED
CC75  85 20                     BITA    #HOPTO2
CC77  10 27 FFE2                BEQ     T21200                                          
CC7B  8E 0006                   LDX     #6              Coin present in opto timer 5ms (Tc)
CC7E  BF 016C                   STX     T1200
CC81  B6 08ED           T21215  LDAA    008ED
CC84  85 20                     BITA    #HOPTO2
CC86  10 27 FFD3                BEQ     T21200          glitch
CC8A  BE 016C                   LDX     T1200
CC8D  10 26 FFF0                BNE     T21215
                        ;                               real coin pulse
CC91  BE 0175           T21211  LDX     H2CNT
CC94  10 27 0005                BEQ     T2121E
CC98  30 1F                     DEX
CC9A  BF 0175                   STX     H2CNT
CC9D  BE 0048           T2121E  LDX     HD1
CCA0  30 01                     INX
CCA2  BF 0048                   STX     HD1
CCA5  BD CD03                   JSR     DSHD12          display HD1 as 20ps
CCA8  B6 08ED           T21212  LDAA    008ED
CCAB  85 20                     BITA    #HOPTO2
CCAD  10 26 FFF7                BNE     T21212          
                        ;       
CCB1  7E CC57                   JMP     T21100
                        ;
CCB4  12                T21800  NOP
CCB5  39                T21900  RTS
                        ;
CCB6  BD C5D8           TOPUP2  JSR     GH2LX                   LDX     #H2LEV
CCB9  BF 0175                   STX     H2CNT
CCBC  BD DDD4                   JSR     PROFDI
CCBF  48 4F 50 20 32 20         DB      'HOP 2 FLOAT=    ',07F,080
CCD1  BD CA27                   JSR     DFLP09                          display X
CCD4  39                        RTS
                        ;
                        ;*************************************************************
                        ;
CCD5  BD DDD4           DFL2SH  JSR     PROFDI                  display "                            
CCD8  48 32 20 20 53 48         DB      'H2  SHORT BY',07F,080
CCE6  4F                        CLRA
CCE7  5F                        CLRB
CCE8  BE 004A                   LDX     HSHOR1
CCEB  10 27 FD92                BEQ     DFL210
CCEF  7E CA7E                   BRA     DFL209
                        ;
CCF2  BD DDD4           DFL2EX  JSR     PROFDI
CCF5  48 32 20 20 45 58         DB      'H2  EXCESS= ',07F,080
CD03  4F                DSHD12  CLRA
CD04  5F                        CLRB
CD05  BE 0048                   LDX     HD1
CD08  10 27 FD75                BEQ     DFL210
CD0C  7E CA7E                   BRA     DFL209
                        ;
                        ;
CD0F  BD DDD4           DFLPSH  JSR     PROFDI                  display "                            
CD12  48 31 20 53 48 4F         DB      'H1 SHORT BY ',07F,080
CD20  4F                        CLRA
CD21  5F                        CLRB
CD22  BE 004A                   LDX     HSHOR1
CD25  10 27 FD01                BEQ     DFLP10
CD29  7E CA27                   BRA     DFLP09
                        ;
                        ;
CD2C  BD DDD4           DFLPEX  JSR     PROFDI
CD2F  48 31 20 45 58 43         DB      'H1 EXCESS= ',07F,080
CD3C  4F                DSHD1P  CLRA
CD3D  5F                        CLRB
CD3E  BE 0048                   LDX     HD1
CD41  10 27 FCE5                BEQ     DFLP10
CD45  7E CA27                   BRA     DFLP09
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                                END
                                COPY    OKIAB3.ASM
                        ;*****************************************************
                        ;
                        ;OKI Sound Allocations - AB3 SOUND 
                        ;
      0100              OCHAN1  EQU     00100
      0200              OCHAN2  EQU     00200
      0300              OCHALT  EQU     00300
                        ;
      0178              TNULL   EQU     OCHAN1+078
                        ;
      0116              OWILD   EQU     OCHAN1+016      lower wild activated
      0109              ODTSTK  EQU     OCHAN1+009      deselect top stake
      010D              OSTSTK  EQU     OCHAN1+00D      select top stake
      0107              OINCAR  EQU     OCHAN1+007      arrow inc. (individual)
      010B              OSPFAN  EQU     OCHAN1+00B      fanfare after winning arrowspin    
      0108              OSPAR   EQU     OCHAN1+008      arrow spin (NOT indivdual)
      010F              OSPF    EQU     OCHAN1+00F      feature prize spin (NOT indivdual)       
      0103              OPOTUP  EQU     OCHAN1+003      pot increment
      0116              OTWILD  EQU     OCHAN1+016      top wild activated
      0110              OGAMAC  EQU     OCHAN1+010      gamble active                     
      0111              OTWIN   EQU     OCHAN1+011      top game win
      0111              OLWIN   EQU     OCHAN1+011      lower game win
      011A              OMYS    EQU     OCHAN1+01A      mystery win                       
      020A              OCOIN   EQU     OCHAN2+00A      Coin accept 
      0105              ORAMCL  EQU     OCHAN1+005      Ram clear
      0101              OALARM  EQU     OCHAN1+001      Alarm tone
      010E              OTILL   EQU     OCHAN1+00E      Till sound 
      0106              ORSTP1  EQU     OCHAN1+006      Reel  stopped
      0204              ORSTP2  EQU     OCHAN2+004      Reel  stopped
      0115              OPWBLP  EQU     OCHAN1+015      fast bleep
      0114              OPWBL2  EQU     OCHAN1+014      slower bleep
      0119              OGWIN   EQU     OCHAN1+019      Gamble win
      010C              OGLOSE  EQU     OCHAN1+00C      Gamble lose
      0117              OHOLD   EQU     OCHAN1+017      hold
      0117              OAHOLD  EQU     OHOLD           autohold           
      0278              OSTART  EQU     OCHAN1+TNULL    start pressed
      0102              OJKPOT  EQU     OCHAN1+002      jackpot
      0113              OSLSTK  EQU     OCHAN1+013      select lower stake
      0112              OMWIN   EQU     OCHAN1+012      multiply lower win      
      0118              OCHOLD  EQU     OCHAN1+018      cancel hold
                        ;
                                *P
                        ;
                        ;driven by MUSOKX
                        ;
CD48  0101              OALARL  DATA    OCHAN1+001      Alarm tone
                        ;
                                END
                        ;
                                *P
                        ;
      00B0              CABVER  EQU     0B0             A=barcest i/o loom
                        ;
                        ;-----------------------------------------------------
                        ;
CD4A  BD EF84           LPANON  JSR     PRLPLI
CD4D  8F                        DB      ON
CD4E  3D                        DB      L750
CD4F  35 45 55 65 75 07         DB      LLA1,LLA2,LLA3,LLA4,LLA5,LLA6,LLA7,LLA8,LLA9,LLA10
CD59  36 46 56 66 06 16         DB      LLP1,LLP2,LLP3,LLP4,LLP5,LLP6,LLP7,LLP8
CD61  4E 4F 5E 5F 6E 6F         DB      LI1,LI2,LI3,LI4,LI5,LI6,LI7,LI8,LI9,LI10,LI11,LI12
CD6D  68 69 6A 78 79 7A         DB      LTA1,LTA2,LTA3,LTA4,LTA5,LTA6,LTA7,LTA8,LTA9
CD76  80                        DB      OF
CD77  73 74                     DB      LGAMH,LGAMT
CD79  90                        DB      LPTERM
CD7A  39                        RTS
                        ;
CD7B  BD EF84           FLLPAN  JSR     PRLPLI
CD7E  85                        DB      FF1
CD7F  4E 4F 5E 5F 6E 6F         DB      LI1,LI2,LI3,LI4,LI5,LI6,LI7,LI8,LI9,LI10,LI11,LI12
CD8B  03 05                     DB      LREL4T,LREL6T
CD8D  14                        DB      LREL5M
CD8E  23 25                     DB      LREL4B,LREL6B
CD90  01                        DB      LREL2T
CD91  10 12                     DB      LREL1M,LREL3M
CD93  21                        DB      LREL2B
CD94  8A                        DB      FF2
CD95  04                        DB      LREL5T
CD96  13 15                     DB      LREL4M,LREL6M
CD98  24                        DB      LREL5B
CD99  00 02                     DB      LREL1T,LREL3T
CD9B  11                        DB      LREL2M
CD9C  20 22                     DB      LREL1B,LREL3B
CD9E  90                        DB      LPTERM
CD9F  39                        RTS
                        ;
CDA0  BD EF84           JAKOFF  JSR     PRLPLI
CDA3  80                        DB      OF
CDA4  03 05                     DB      LREL4T,LREL6T
CDA6  14                        DB      LREL5M
CDA7  23 25                     DB      LREL4B,LREL6B
CDA9  01                        DB      LREL2T
CDAA  10 12                     DB      LREL1M,LREL3M
CDAC  21                        DB      LREL2B
CDAD  04                        DB      LREL5T
CDAE  13 15                     DB      LREL4M,LREL6M
CDB0  24                        DB      LREL5B
CDB1  00 02                     DB      LREL1T,LREL3T
CDB3  11                        DB      LREL2M
CDB4  20 22                     DB      LREL1B,LREL3B
CDB6  90                        DB      LPTERM
CDB7  39                        RTS
                        ;
CDB8                    TLLIST  DS      0
                        ;
CDB8  4E 4F 5E 5F 6E 6E TOPLPS  DB      LI1,LI2,LI3,LI4,LI5,LI5,LI6,LI7,LI8,LI9,LI10,LI11,LI12
CDC5  3D                        DB      L750
CDC6  2E                        DB      LTWILD
CDC7  6D 7C 7D                  DB      LWL6,LWL7,LWL8
CDCA  6C 3E 4D 1F 4C 0F         DB      LWL5,LWL5B,LWL2,LWL2B,LWL1,LWL1B,LWL3,LWL3B,LWL4,LWL4B
CDD4  03 04 05                  DB      LREL4T,LREL5T,LREL6T
CDD7  13 14 15                  DB      LREL4M,LREL5M,LREL6M
CDDA  23 24 25                  DB      LREL4B,LREL5B,LREL6B
CDDD  08 09 0A 0B 0C 18         DB      LAR0,LAR1,LAR2,LAR3,LAR4,LAR5,LAR6,LAR7,LAR8,LAR9,LAR10
CDE8  29 2A 2B 2C 38 39         DB      LSPOT,LS10,LS50,LS30,LSMYS,LS40,LS20,LS60,LSMID
CDF1  68 69 6A 78 79 7A         DB      LTA1,LTA2,LTA3,LTA4,LTA5,LTA6,LTA7,LTA8,LTA9
CDFA  48 58 49 59 4A 5A         DB      L4A,L4B,L8A,L8B,L16A,L16B,L32A,L32B
CE02  90                        DB      LPTERM
                        ;
CE03  63                BOTLPS  DB      LLWILD
CE04  43 33 53                  DB      LLWL2A,LLWL1A,LLWL3A
CE07  00 01 02                  DB      LREL1T,LREL2T,LREL3T
CE0A  10 11 12                  DB      LREL1M,LREL2M,LREL3M
CE0D  20 21 22                  DB      LREL1B,LREL2B,LREL3B
CE10  44 34 54                  DB      LLWL2B,LLWL1B,LLWL3B
CE13  64                        DB      LSTK5
CE14  35 45 55 65 75 07         DB      LLA1,LLA2,LLA3,LLA4,LLA5,LLA6,LLA7,LLA8,LLA9,LLA10
CE1E  36 46 56 66 06 16         DB      LLP1,LLP2,LLP3,LLP4,LLP5,LLP6,LLP7,LLP8
CE26  73 74                     DB      LGAMH,LGAMT
CE28  37 47 57                  DB      LSTAK1,LSTAK2,LSTAK5
CE2B  90                        DB      LPTERM
CE2C  FF                        DB      0FF
                        ;
                        ;------------------------------------------------------
                        ;
      0037              LSTAK1  EQU     037
      0047              LSTAK2  EQU     047
      0057              LSTAK5  EQU     057
      0064              LSTK5   EQU     064
      0063              LLWILD  EQU     063
      002E              LTWILD  EQU     02E
      0048              L4A     EQU     048
      0058              L4B     EQU     058
      0049              L8A     EQU     049
      0059              L8B     EQU     059
      004A              L16A    EQU     04A
      005A              L16B    EQU     05A
      004B              L32A    EQU     04B
      005B              L32B    EQU     05B
      0033              LLWL1A  EQU     033
      0043              LLWL2A  EQU     043
      0053              LLWL3A  EQU     053
      0034              LLWL1B  EQU     034
      0044              LLWL2B  EQU     044
      0054              LLWL3B  EQU     054
      005D              LWL4    EQU     05D
      004D              LWL2    EQU     04D
      004C              LWL1    EQU     04C
      005C              LWL3    EQU     05C
      006C              LWL5    EQU     06C
      006D              LWL6    EQU     06D
      007C              LWL7    EQU     07C
      007D              LWL8    EQU     07D
      000D              LI9     EQU     00D
      000E              LI10    EQU     00E
      001D              LI11    EQU     01D
      001E              LI12    EQU     01E
      000F              LWL1B   EQU     00F
      001F              LWL2B   EQU     01F
      002F              LWL3B   EQU     02F
      003D              L750    EQU     03D
      003E              LWL5B   EQU     03E
      003F              LWL4B   EQU     03F
      0073              LGAMH   EQU     073
      0074              LGAMT   EQU     074
      004E              LI1     EQU     04E
      004F              LI2     EQU     04F
      005E              LI3     EQU     05E
      005F              LI4     EQU     05F             
      006E              LI5     EQU     06E             
      006F              LI6     EQU     06F             
      007E              LI7     EQU     07E             
      007F              LI8     EQU     07F     
      0068              LTA1    EQU     068             
      0069              LTA2    EQU     069             
      006A              LTA3    EQU     06A             
      0078              LTA4    EQU     078             
      0079              LTA5    EQU     079     
      007A              LTA6    EQU     07A
      006B              LTA7    EQU     06B
      007B              LTA8    EQU     07B
      002D              LTA9    EQU     02D             
      0008              LAR0    EQU     008
      0009              LAR1    EQU     009
      000A              LAR2    EQU     00A
      000B              LAR3    EQU     00B
      000C              LAR4    EQU     00C
      0018              LAR5    EQU     018
      0019              LAR6    EQU     019
      001A              LAR7    EQU     01A
      001B              LAR8    EQU     01B
      001C              LAR9    EQU     01C
      0028              LAR10   EQU     028
      0029              LSPOT   EQU     029
      002A              LS10    EQU     02A     
      002B              LS50    EQU     02B     
      002C              LS30    EQU     02C     
      0038              LSMYS   EQU     038     
      0039              LS40    EQU     039     
      003A              LS20    EQU     03A     
      003B              LS60    EQU     03B     
      003C              LSMID   EQU     03C     
      0035              LLA1    EQU     035
      0045              LLA2    EQU     045
      0055              LLA3    EQU     055
      0065              LLA4    EQU     065
      0075              LLA5    EQU     075
      0007              LLA6    EQU     007
      0017              LLA7    EQU     017
      0027              LLA8    EQU     027
      0067              LLA9    EQU     067
      0077              LLA10   EQU     077
      0036              LLP1    EQU     036
      0046              LLP2    EQU     046
      0056              LLP3    EQU     056
      0066              LLP4    EQU     066
      0006              LLP5    EQU     006
      0016              LLP6    EQU     016
      0026              LLP7    EQU     026
      0076              LLP8    EQU     076
                        ;
      0070              LSTK32  EQU     070
      0050              LSTAKE  EQU     050             
      0030              LCHOLD  EQU     030                             
      0031              LHOLD1  EQU     031                             
      0032              LHOLD2  EQU     032                             
      0040              LHOLD3  EQU     040                             
      0052              LTRANS  EQU     052             
      0051              LSTART  EQU     051             
      0060              LSTK4   EQU     060
      0061              LSTK8   EQU     061
      0062              LSTK16  EQU     062
      0072              LCCASH  EQU     072     
      0042              LTOPST  EQU     042             
      0071              LPOT    EQU     071
                        ;
                        ;
                        ;------------------------------------------------------
                        ;
      0000              LREL1T  EQU     000
      0010              LREL1M  EQU     010
      0020              LREL1B  EQU     020
      0001              LREL2T  EQU     001
      0011              LREL2M  EQU     011
      0021              LREL2B  EQU     021
      0002              LREL3T  EQU     002
      0012              LREL3M  EQU     012
      0022              LREL3B  EQU     022
      0003              LREL4T  EQU     003
      0013              LREL4M  EQU     013
      0023              LREL4B  EQU     023
      0004              LREL5T  EQU     004
      0014              LREL5M  EQU     014
      0024              LREL5B  EQU     024
      0005              LREL6T  EQU     005
      0015              LREL6M  EQU     015
      0025              LREL6B  EQU     025
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
      0072              LCOLEC  EQU     LCCASH  
      0030              LCWIN   EQU     LCHOLD
      0051              LGAMBL  EQU     LSTART
      0042              LSEGAM  EQU     LTOPST
                        ;
      0031              LNUDG1  EQU     LHOLD1
      0032              LNUDG2  EQU     LHOLD2
      0040              LNUDG3  EQU     LHOLD3
      0050              LNUDUP  EQU     LSTAKE
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
      0008              SMETAL  EQU     008
                        ;
      0000              STOPUP  EQU     000             
      0001              SH2LOW  EQU     001
      0002              SH1LOW  EQU     002
      0003              SHDUMP  EQU     003
                        ;
      0010              SKEYIN  EQU     010
      0011              SMETER  EQU     011
      0014              SCTKEY  EQU     014
      0015              STEST   EQU     015
      0016              SREFIL  EQU     016
      0017              SBDOOR  EQU     017
                        ;
      000E              SSTK32  EQU     00E
      0009              SCCASH  EQU     009
      0018              SCHOLD  EQU     018
      0019              SHOLD1  EQU     019
      001A              SHOLD2  EQU     01A
      001B              SHOLD3  EQU     01B
      000A              STRANS  EQU     00A
      001F              SSTART  EQU     01F
      001E              SSTAKE  EQU     01E
      000B              SSTK4   EQU     00B
      000C              SSTK8   EQU     00C
      000D              SSTK16  EQU     00D
      000F              SPOT    EQU     00F
      001D              STOPST  EQU     01D
                        ;
      0030              STB1    EQU     030
      0031              STB2    EQU     031
      0032              STB3    EQU     032
      0033              STB4    EQU     033
      0034              STB5    EQU     034
      0035              STB6    EQU     035
      0036              STB7    EQU     036
      0037              STB8    EQU     037
                        ;
      0038              SLB1    EQU     038
      0039              SLB2    EQU     039
      003A              SLB3    EQU     03A
      003B              SLB4    EQU     03B
      003C              SLB5    EQU     03C
      003D              SLB6    EQU     03D
      003E              SLB7    EQU     03E
      003F              SLB8    EQU     03F
                        ;
      0009              SCOLEC  EQU     SCCASH          
      0018              SCWIN   EQU     SCHOLD
      001F              SGAMBL  EQU     SSTART
      001D              SSEGAM  EQU     STOPST
                        ;
      0019              SNUDG1  EQU     SHOLD1
      001A              SNUDG2  EQU     SHOLD2
      001B              SNUDG3  EQU     SHOLD3
      001E              SNUDUP  EQU     SSTAKE
                        ;
                                END

IA=TEST.ASM
                        ;****************************************************************
                        ;
                                NAME    TEST
                        ;
                                *B
                        ;
                                EXT     BUTLPS,PROFDX,PRLPSI,TESTSI,TEST,PRLPLI,DWIN3,SMETER
                                EXT     COININ,LOCKOF,CRDTAB,LOCKON,LCHOLD,SCHOLD,SSSTAT
                                EXT     R1DIST,TESTSW,PRLPST,DISHM,DISPOT,CLRPOT,CLRHM
                                EXT     SILENT,TDUMP2,TDUMP1,SSHEX0,TOPUP1,TOPUP2
                                EXT     MUSOKX,MUSOKI,DYCRD1,ADDCRD,CRED1
                                EXT     FDSTAT,IMETER,GSYMBS,RSDRUN
                        ;
                                EXT     FF1,FF2,F1,F2,ON,OF,QRESET
                                EXT     MMTCI,VMTCI,MMTCO,VMTCO,VMTRU,VMETER,HEXDY4,HEXDY0,FDSTAT
                        ;
                                EXT     PROFDI,LSTART,LTOPST,LHOLD3,LHOLD2,LHOLD1,LPOT,LCOLEC
                                EXT     SSTART,STOPST,SHOLD3,SHOLD2,SHOLD1,SPOT,SCOLEC,DELAYI
                                EXT     LCCASH,LTRANS,LSTK4,LSTK8,LSTK16,LSTK32,LSTAKE
                                EXT     SCCASH,STRANS,SSTK4,SSTK8,SSTK16,SSTK32,SSTAKE
                                EXT     SBDOOR,SREFIL,STEST,LWL1,LWL2,LWL3,LWL4
                                EXT     TOPLPS,BOTLPS,BUTLPS,TLLIST,LPTERM,VMTCR,VMTGP,MMTGP,MMTCR
                                EXT     CLRNVR,SETNVR,TSTHP1,TSTHP2,TIMER,NOMETS,IWIN,DIPOS
                        ;       
                                PERS    6809
                        ;       
                                *B
                        ;
006B                    IWIN    DS      2
006D                    DIPOS   DS      1
006E                    SNDADR  DS      2
0070                    DISBUF  DS      18
                        ;
                                *P
                        ;
                        ;***TEST ROUTINES MAIN LOOP***
                        ;
CE2D  34 16             TEST    PSHS    X,B,A           A,B,X
CE2F  BD D4D9                   JSR     SILENT
CE32  5F                        CLRB
CE33  34 04             TEST00  PSHS    B
                        ;
CE35  8E BEDA                   LDX     #BUTLPS
CE38  BD D480                   JSR     SLAMOF
                        ;
CE3B  8E CDB8                   LDX     #TOPLPS
CE3E  BD D480                   JSR     SLAMOF
CE41  8E CE03                   LDX     #BOTLPS
CE44  BD D480                   JSR     SLAMOF
                        ;
CE47  BD DDD4                   JSR     PROFDI
CE4A  11 7F 80                  DB      QRESET,07F,080
                        ;
CE4D  BD E176                   JSR     CLRHM
CE50  BD E183                   JSR     CLRPOT
                        ;
CE53  BD EFB9                   JSR     PRLPSI
CE56  85 42                     DB      FF1,LTOPST
CE58  BD EFB9                   JSR     PRLPSI
CE5B  85 51                     DB      FF1,LSTART
                        ;
CE5D  BD F098           TEST0X  JSR     TESTSI
CE60  1D                        DB      STOPST
CE61  26 FA                     BNE     TEST0X
                        ;
CE63  BD F098                   JSR     TESTSI
CE66  09                        DB      SCOLEC
CE67  26 F4                     BNE     TEST0X
                        ;
CE69  35 04                     PULS    B
                        ;
CE6B  8E CEDF           TEST01  LDX     #TSTTXT
CE6E  3A                        ABX
CE6F  3A                        ABX
CE70  AE 84                     LDX     ,X
CE72  BD DDDE                   JSR     PROFDX
                        ;
CE75  BD EFB9                   JSR     PRLPSI
CE78  83 72                     DB      F1,LCOLEC
                        ;
CE7A  BD F098           NXTDB   JSR     TESTSI
CE7D  1D                        DB      STOPST
CE7E  26 FA                     BNE     NXTDB
                        ;
CE80  BD F098           TEST02  JSR     TESTSI
CE83  1D                        DB      STOPST
CE84  26 0E                     BNE     NEXTTT
                        ;
CE86  BD F098                   JSR     TESTSI
CE89  1F                        DB      SSTART
CE8A  26 10                     BNE     GOTOTT
                        ;
CE8C  BD F098                   JSR     TESTSI
CE8F  09                        DB      SCOLEC
CE90  26 1B                     BNE     TSTEND
                        ;
CE92  20 EC                     BRA     TEST02
                        ;
CE94  5C                NEXTTT  INCB                            ;GOTO NEXT TEST
CE95  C1 07                     CMPB    #7
CE97  26 01                     BNE     NTWRAP
CE99  5F                        CLRB
CE9A  20 CF             NTWRAP  BRA     TEST01
                        ;
CE9C  8E BEDA           GOTOTT  LDX     #BUTLPS
CE9F  BD D480                   JSR     SLAMOF
                        ;
CEA2  8E CED1                   LDX     #TSTADD         ;GOTO TEST
CEA5  3A                        ABX
CEA6  3A                        ABX
CEA7  AE 84                     LDX     ,X
CEA9  AD 84                     JSR     ,X
CEAB  20 86                     BRA     TEST00
                        ;
CEAD  8E BEDA           TSTEND  LDX     #BUTLPS
CEB0  BD D480                   JSR     SLAMOF
                        ;
CEB3  8E CDB8                   LDX     #TOPLPS
CEB6  BD D480                   JSR     SLAMOF
CEB9  8E CE03                   LDX     #BOTLPS
CEBC  BD D480                   JSR     SLAMOF
                        ;
CEBF  BD DDD4                   JSR     PROFDI
CEC2  11 7F 80                  DB      QRESET,07F,080
                        ;
CEC5  BD E000                   JSR     DYCRD1
CEC8  BD E190                   JSR     DISPOT
CECB  BD B177                   JSR     DISHM
                        ;
CECE  35 16                     PULS    A,B,X
CED0  39                        RTS
                        ;***
                        ;
CED1  CF72 D0E5         TSTADD  DATA    TEST1,TEST2
CED5  D1FF D25C                 DATA    TEST4,TEST6
CED9  D30A D2B1 D3A1            DATA    TEST7,TEST8,TEST9
                        ;
CEDF  CEED CF00         TSTTXT  DATA    TTXT1,TTXT2
CEE3  CF13 CF26                 DATA    TTXT4,TTXT6
CEE7  CF39 CF4C CF5F            DATA    TTXT7,TTXT8,TTXT9
                        ;
CEED  00 54 45 53 54 20 TTXT1   DB      0,"TEST 1 - LAMPS  ",07F,080
CF00  00 54 45 53 54 20 TTXT2   DB      0,"TEST 2 - COINS  ",07F,080
CF13  00 54 45 53 54 20 TTXT4   DB      0,"TEST 3 - SWITCH ",07F,080
CF26  00 54 45 53 54 20 TTXT6   DB      0,"TEST 4 - ALPHA  ",07F,080
CF39  00 54 45 53 54 20 TTXT7   DB      0,"TEST 5 - SOUNDS ",07F,080
CF4C  00 54 45 53 54 20 TTXT8   DB      0,"TEST 6 - LEDS   ",07F,080    
CF5F  00 54 45 53 54 20 TTXT9   DB      0,"TEST 7 - METERS ",07F,080
                        ;
                        ;***LAMP TEST***
CF72  34 36             TEST1   PSHS    Y,X,B,A         A,B,X,Y
                        ;
CF74  BD EFB9                   JSR     PRLPSI
CF77  85 51                     DB      FF1,LSTART
                        ;
CF79  BD EFB9                   JSR     PRLPSI
CF7C  83 42                     DB      F1,LTOPST
                        ;
CF7E  BD EFB9                   JSR     PRLPSI
CF81  85 31                     DB      FF1,LHOLD1
                        ;
CF83  BD EFB9                   JSR     PRLPSI
CF86  85 32                     DB      FF1,LHOLD2
CF88  BD F098           T10X    JSR     TESTSI
CF8B  1D                        DB      STOPST
CF8C  26 FA                     BNE     T10X
                        ;
CF8E  10 8E CDB8        T10Y    LDY     #TLLIST
CF92  A6 A4             T100    LDA     ,Y
CF94  81 90                     CMPA    #LPTERM         -1
CF96  27 4A                     BEQ     SKIPIT
CF98  81 FF                     CMPA    #0FF            -2
CF9A  27 F2                     BEQ     T10Y
                        ;
CF9C  C6 8F                     LDB     #ON
CF9E  BD EFD7                   JSR     PRLPST          JSR     LAMPON
CFA1  8E D02C                   LDX     #LAMPNO
CFA4  BD DDDE                   JSR     PROFDX
CFA7  1F 89                     TFR     A,B
                        ;
CFA9  8E D065                   LDX     #BCNUMS
CFAC  3A                        ABX
CFAD  E6 89 0000                LDB     0,X
                        ;
CFB1  4F                        CLRA
CFB2  FD 006B                   STD     IWIN
CFB5  C6 0C                     LDB     #12
CFB7  F7 006D                   STB     DIPOS
CFBA  BD C289                   JSR     DWIN3
                        ;
CFBD  BD F098           T101    JSR     TESTSI
CFC0  1F                        DB      SSTART
CFC1  26 FA                     BNE     T101
                        ;
CFC3  BD F098           T102    JSR     TESTSI
CFC6  1D                        DB      STOPST
CFC7  26 60                     BNE     T103
                        ;
CFC9  BD F098                   JSR     TESTSI
CFCC  19                        DB      SHOLD1
CFCD  26 19                     BNE     TOPON
                        ;
CFCF  BD F098                   JSR     TESTSI
CFD2  1A                        DB      SHOLD2
CFD3  26 33                     BNE     BOTON
                        ;
CFD5  BD F098                   JSR     TESTSI
CFD8  1F                        DB      SSTART
CFD9  27 E8                     BEQ     T102
                        ;
CFDB  A6 A4                     LDA     ,Y
CFDD  C6 80                     LDB     #OF
CFDF  BD EFD7                   JSR     PRLPST
                        ;
CFE2  31 A9 0001        SKIPIT  LEAY    1,Y
                        ;
CFE6  20 AA                     BRA     T100
CFE8  8E D03F           TOPON   LDX     #TOPTXT
CFEB  BD DDDE                   JSR     PROFDX
                        ;
CFEE  8E CE03                   LDX     #BOTLPS
CFF1  BD D480                   JSR     SLAMOF
                        ;
CFF4  8E CDB8                   LDX     #TOPLPS
CFF7  BD D47A                   JSR     SLAMON
                        ;
CFFA  BD F098           TOPON1  JSR     TESTSI
CFFD  19                        DB      SHOLD1
CFFE  26 FA                     BNE     TOPON1
                        ;
D000  8E CDB8                   LDX     #TOPLPS
D003  BD D480                   JSR     SLAMOF
D006  20 8A                     BRA     T100
                        ;
D008  8E D052           BOTON   LDX     #BOTTXT
D00B  BD DDDE                   JSR     PROFDX
                        ;
D00E  8E CDB8                   LDX     #TOPLPS
D011  BD D480                   JSR     SLAMOF
                        ;
D014  8E CE03                   LDX     #BOTLPS
D017  BD D47A                   JSR     SLAMON
                        ;
D01A  BD F098           BOTON1  JSR     TESTSI
D01D  1A                        DB      SHOLD2
D01E  26 FA                     BNE     BOTON1
                        ;
D020  8E CE03                   LDX     #BOTLPS
D023  BD D480                   JSR     SLAMOF
D026  16 FF69                   LBRA    T100
                        ;
D029  35 36             T103    PULS    A,B,X,Y
D02B  39                        RTS
                        ;
D02C  11 4C 41 4D 50 20 LAMPNO  DB      QRESET,'LAMP NUMBER     ',07F,080
D03F  11 20 20 20 54 4F TOPTXT  DB      QRESET,'   TOP LAMPS    ',07F,080
D052  11 20 20 42 4F 54 BOTTXT  DB      QRESET,'  BOTTOM LAMPS  ',07F,080
                        ;
D065  00 01 02 03 04 05 BCNUMS  DB      0,1,2,3,4,5,6,7,64,65,66,67,68,69,70,71
D075  08 09 0A 0B 0C 0D         DB      8,9,10,11,12,13,14,15,72,73,74,75,76,77,78,79
D085  10 11 12 13 14 15         DB      16,17,18,19,20,21,22,23,80,81,82,83,84,85,86,87
D095  18 19 1A 1B 1C 1D         DB      24,25,26,27,28,29,30,31,88,89,90,91,92,93,94,95
D0A5  20 21 22 23 24 25         DB      32,33,34,35,36,37,38,39,96,97,98,99,100,101,102,103
D0B5  28 29 2A 2B 2C 2D         DB      40,41,42,43,44,45,46,47,104,105,106,107,108,109,110,111
D0C5  30 31 32 33 34 35         DB      48,49,50,51,52,53,54,55,112,113,114,115,116,117,118,119
D0D5  38 39 3A 3B 3C 3D         DB      56,57,58,59,60,61,62,63,120,121,122,123,124,125,126,127
                        ;
                        ;
                        ;***COIN TEST***
D0E5  34 16             TEST2   PSHS    X,B,A           A,B,X
                        ;
D0E7  8E BEDA                   LDX     #BUTLPS
D0EA  BD D480                   JSR     SLAMOF
                        ;
D0ED  BD EF84           T200    JSR     PRLPLI
D0F0  85 40 30 90               DB      FF1,LHOLD3,LCHOLD,LPTERM
                        ;
D0F4  BD EF84                   JSR     PRLPLI
D0F7  85 31 32 90               DB      FF1,LHOLD1,LHOLD2,LPTERM
                        ;
D0FB  BD EFB9                   JSR     PRLPSI
D0FE  83 42                     DB      F1,LTOPST
                        ;
D100  BD F098                   JSR     TESTSI
D103  1A                        DB      SHOLD2
D104  27 03                     BEQ     T202
D106  BD CB1B                   JSR     TDUMP1
D109  BD F098           T202    JSR     TESTSI
D10C  1B                        DB      SHOLD3
D10D  27 03                     BEQ     T203
D10F  BD CBF8                   JSR     TDUMP2
                        ;
D112  BD F098           T203    JSR     TESTSI          hop1 topup
D115  18                        DB      SCHOLD
D116  27 09                     BEQ     T204
D118  BD CBD9                   JSR     TOPUP1
D11B  BD F098           T203W   JSR     TESTSI
D11E  18                        DB      SCHOLD
D11F  26 FA                     BNE     T203W
                        ;
D121  BD F098           T204    JSR     TESTSI          hop2 topup
D124  19                        DB      SHOLD1
D125  27 09                     BEQ     T205
D127  BD CCB6                   JSR     TOPUP2
D12A  BD F098           T204W   JSR     TESTSI
D12D  19                        DB      SHOLD1
D12E  26 FA                     BNE     T204W
                        ;
D130  BD F098           T205    JSR     TESTSI
D133  1D                        DB      STOPST
D134  26 05                     BNE     T2END
                        ;
D136  BD D13E                   JSR     DCRED2
                        ;
D139  20 B2                     BRA     T200
                        ;
D13B  35 16             T2END   PULS    A,B,X
D13D  39                        RTS
                        ;
                        ;
D13E  F6 013B           DCRED2  LDB     COININ          ;LOOK FOR 10/20/50/$1 COINS
D141  27 46                     BEQ     DOC652
                        ;
D143  BD B1A4                   JSR     LOCKOF
D146  8E DA07                   LDX     #CRDTAB
D149  E5 89 0000        DOC252  BITB    0,X             ;... look for coin data
D14D  26 06                     BNE     DOC302
D14F  30 89 0004                LEAX    4,X
D153  20 F4                     BRA     DOC252
                        ;
D155  A6 89 0000        DOC302  LDA     0,X
D159  40                        NEGA
D15A  A4 89 0000                ANDA    0,X
D15E  7A 013B           DOC352  DEC     COININ          ;Update "COININ"
D161  4A                        DECA
D162  26 FA                     BNE     DOC352
D164  E6 89 0001                LDB     1,X
                        ;
D168  8E D1B3                   LDX     #CIN10P
D16B  C1 01                     CMPB    #1
D16D  27 17                     BEQ     DISCIN
D16F  8E D1C6                   LDX     #CIN20P
D172  C1 02                     CMPB    #2
D174  27 10                     BEQ     DISCIN
D176  8E D1D9                   LDX     #CIN50P
D179  C1 05                     CMPB    #5
D17B  27 09                     BEQ     DISCIN
D17D  8E D1EC                   LDX     #CIN99P
D180  C1 0A                     CMPB    #10
D182  27 02                     BEQ     DISCIN
D184  20 03                     BRA     DOC652
D186  BD DDDE           DISCIN  JSR     PROFDX
D189  BD B1CF           DOC652  JSR     LOCKON
D18C  39                        RTS
                        ;
D18D  11 48 4F 50 50 45 COUT20  DB      QRESET,"HOPPER 2 OUT    ",07F,080
D1A0  11 48 4F 50 50 45 COUT1P  DB      QRESET,"HOPPER 1 OUT    ",07F,080
                        ;
D1B3  11 31 20 20 20 49 CIN10P  DB      QRESET,"1   IN          ",07F,080
D1C6  11 32 20 20 20 49 CIN20P  DB      QRESET,"2   IN          ",07F,080
D1D9  11 35 20 20 20 49 CIN50P  DB      QRESET,"5   IN          ",07F,080
D1EC  11 31 30 20 20 49 CIN99P  DB      QRESET,"10  IN          ",07F,080
                        ;
                        ;
                        ;***SWITCH TEST***
D1FF  34 16             TEST4   PSHS    X,B,A           A,B,X
                        ;
D201  8E BEDA                   LDX     #BUTLPS
D204  BD D480                   JSR     SLAMOF
                        ;
D207  BD EFB9                   JSR     PRLPSI
D20A  85 42                     DB      FF1,LTOPST
                        ;
D20C  8E D23D                   LDX     #STTAB
D20F  10 8E D23E                LDY     #STTAB+1
D213  5F                T402    CLRB
D214  BD F098           T400    JSR     TESTSI
D217  1D                        DB      STOPST
D218  26 20                     BNE     T404
                        ;
D21A  A6 85                     LDA     B,X             ;GET SWITCH NO.
D21C  81 FF                     CMPA    #-1
D21E  27 F3                     BEQ     T402
                        ;
D220  34 04                     PSHS    B               ;PUSH INDEX
                        ;
D222  E6 A5                     LDB     B,Y
D224  34 04                     PSHS    B               ;PUSH LAMP NO.
                        ;
D226  C6 80                     LDB     #OF
D228  BD F0A4                   JSR     TESTSW
D22B  27 02                     BEQ     T401
D22D  C6 8F                     LDB     #ON
D22F  35 02             T401    PULS    A               ;PULL LAMP NO.
D231  BD EFD7                   JSR     PRLPST
                        ;
D234  35 04                     PULS    B               ;PULL INDEX
                        ;
D236  5C                        INCB
D237  5C                        INCB
                        ;
D238  20 DA                     BRA     T400
D23A  35 16             T404    PULS    A,B,X
D23C  39                        RTS
                        ;
D23D  11 4C             STTAB   DB      SMETER,LWL1
D23F  15 4D                     DB      STEST,LWL2
D241  16 5C                     DB      SREFIL,LWL3
D243  17 5D                     DB      SBDOOR,LWL4
D245  0F 71                     DB      SPOT,LPOT
D247  0B 60                     DB      SSTK4,LSTK4
D249  0C 61                     DB      SSTK8,LSTK8
D24B  0D 62                     DB      SSTK16,LSTK16
D24D  0E 70                     DB      SSTK32,LSTK32
D24F  18 30                     DB      SCHOLD,LCHOLD
D251  19 31                     DB      SHOLD1,LHOLD1
D253  1A 32                     DB      SHOLD2,LHOLD2
D255  1B 40                     DB      SHOLD3,LHOLD3
D257  1E 50                     DB      SSTAKE,LSTAKE
D259  1F 51                     DB      SSTART,LSTART
D25B  FF                        DB      -1
                        ;
                        ;
                        ;***ALPHA TEST***
D25C  34 16             TEST6   PSHS    X,B,A   A,B,X
                        ;
D25E  BD DDD4                   JSR     PROFDI
D261  11 7F 80                  DB      QRESET,07F,080
D264  8E BEDA                   LDX     #BUTLPS
D267  BD D480                   JSR     SLAMOF
                        ;
D26A  BD EFB9                   JSR     PRLPSI
D26D  85 51                     DB      FF1,LSTART
                        ;
D26F  BD EFB9                   JSR     PRLPSI
D272  83 42                     DB      F1,LTOPST
D274  86 30             T602    LDA     #'0'                    = 030
D276  C6 10             T600    LDB     #16
D278  8E 0070                   LDX     #DISBUF
D27B  A7 85             T601    STA     B,X
D27D  5A                        DECB
D27E  26 FB                     BNE     T601
                        ;
D280  34 02                     PSHS    A
                        ;
D282  7F 0070                   CLR     DISBUF
D285  CC 7F80                   LDD     #07F80
D288  FD 0081                   STD     DISBUF+17
                        ;
D28B  8E 0070                   LDX     #DISBUF
D28E  BD DDDE                   JSR     PROFDX
D291  BD F098           T603    JSR     TESTSI
D294  1F                        DB      SSTART
D295  26 FA                     BNE     T603
D297  BD F098           T604    JSR     TESTSI
D29A  1D                        DB      STOPST
D29B  26 0F                     BNE     T605
                        ;
D29D  BD F098                   JSR     TESTSI
D2A0  1F                        DB      SSTART
D2A1  27 F4                     BEQ     T604
                        ;
D2A3  35 02                     PULS    A
                        ;
D2A5  4C                        INCA
D2A6  81 5B                     CMPA    #'Z'+1                  = 05B
D2A8  26 CC                     BNE     T600
                        ;
D2AA  20 C8                     BRA     T602
                        ;
D2AC  35 02             T605    PULS    A
                        ;
D2AE  35 16                     PULS    A,B,X
D2B0  39                        RTS
                        ;
                        ;
                        ;***LEDS TEST***
D2B1  34 16             TEST8   PSHS    X,B,A   A,B,X
                        ;
D2B3  BD DDD4                   JSR     PROFDI
D2B6  11 7F 80                  DB      QRESET,07F,080
D2B9  8E BEDA                   LDX     #BUTLPS
D2BC  BD D480                   JSR     SLAMOF
                        ;
D2BF  BD EFB9                   JSR     PRLPSI
D2C2  85 51                     DB      FF1,LSTART
                        ;
D2C4  BD EFB9                   JSR     PRLPSI
D2C7  83 42                     DB      F1,LTOPST
D2C9  86 00             T802    LDA     #0
D2CB  C6 01             T802A   LDB     #1
D2CD  34 02                     PSHS    A
D2CF  BD DCFD                   JSR     SSHEX0
D2D2  B7 011F                   STA     SSSTAT+0
D2D5  B7 0120                   STA     SSSTAT+1
D2D8  B7 0121                   STA     SSSTAT+2
D2DB  B7 0122                   STA     SSSTAT+3
D2DE  B7 0123                   STA     SSSTAT+4
D2E1  B7 0124                   STA     SSSTAT+5
D2E4  B7 0125                   STA     SSSTAT+6
D2E7  B7 0126                   STA     SSSTAT+7
D2EA  BD F098           T803    JSR     TESTSI
D2ED  1F                        DB      SSTART
D2EE  26 FA                     BNE     T803
D2F0  BD F098           T804    JSR     TESTSI
D2F3  1D                        DB      STOPST
D2F4  26 0F                     BNE     T805
                        ;
D2F6  BD F098                   JSR     TESTSI
D2F9  1F                        DB      SSTART
D2FA  27 F4                     BEQ     T804
                        ;
D2FC  35 02                     PULS    A
                        ;
D2FE  4C                        INCA
D2FF  81 0A                     CMPA    #10
D301  26 C8                     BNE     T802A
D303  20 C4                     BRA     T802
                        ;
D305  35 02             T805    PULS    A
                        ;
D307  35 16                     PULS    A,B,X
D309  39                        RTS
                        ;
                        ;
                        ;***SOUND TEST***
D30A  34 16             TEST7   PSHS    X,B,A   A,B,X
                        ;
D30C  BD DDD4                   JSR     PROFDI
D30F  11 7F 80                  DB      QRESET,07F,080
                        ;
D312  8E BEDA                   LDX     #BUTLPS
D315  BD D480                   JSR     SLAMOF
                        ;
D318  BD EFB9                   JSR     PRLPSI
D31B  85 31                     DB      FF1,LHOLD1
D31D  BD EFB9                   JSR     PRLPSI
D320  85 40                     DB      FF1,LHOLD3
                        ;
D322  BD EFB9                   JSR     PRLPSI
D325  83 42                     DB      F1,LTOPST
                        ;
D327  86 01             T700    LDA     #001
D329  C6 01                     LDB     #1
D32B  FD 006E                   STD     SNDADR
D32E  BD D4D9           T701    JSR     SILENT
D331  BD EF5E                   JSR     DELAYI
D334  14                        DB      20
D335  8E 006E                   LDX     #SNDADR
D338  BD D51B                   JSR     MUSOKX
                        ;
D33B  8E D394                   LDX     #MUSPL
D33E  BD DDDE                   JSR     PROFDX
                        ;
D341  4F                        CLRA
D342  F6 006F                   LDB     SNDADR+1
D345  FD 006B                   STD     IWIN
D348  C6 0A                     LDB     #10
D34A  F7 006D                   STB     DIPOS
D34D  BD C289                   JSR     DWIN3
                        ;
D350  BD F098           T702    JSR     TESTSI
D353  19                        DB      SHOLD1
D354  26 FA                     BNE     T702
D356  BD F098                   JSR     TESTSI
D359  1B                        DB      SHOLD3
D35A  26 F4                     BNE     T702
D35C  BD F098           T703    JSR     TESTSI
D35F  19                        DB      SHOLD1
D360  26 1D                     BNE     T706
D362  BD F098                   JSR     TESTSI
D365  1B                        DB      SHOLD3
D366  26 08                     BNE     T705
D368  BD F098                   JSR     TESTSI
D36B  1D                        DB      STOPST
D36C  26 20                     BNE     T704
D36E  20 EC                     BRA     T703
                        ;
D370  B6 006F           T705    LDA     SNDADR+1
D373  4C                        INCA
D374  81 54                     CMPA    #84
D376  26 02                     BNE     T707
D378  86 01                     LDA     #1
D37A  B7 006F           T707    STA     SNDADR+1
D37D  20 AF                     BRA     T701
                        ;
D37F  B6 006F           T706    LDA     SNDADR+1
D382  4A                        DECA
D383  81 01                     CMPA    #1
D385  24 02                     BHS     T708
D387  86 53                     LDA     #83
D389  B7 006F           T708    STA     SNDADR+1
D38C  20 A0                     BRA     T701
                        ;
D38E  BD D4D9           T704    JSR     SILENT
                        ;
D391  35 16                     PULS    A,B,X
                        ;
D393  39                        RTS
                        ;
D394  00 20 20 20 53 41 MUSPL   DB      0,"   SAMPLE ",07F,080
                        ;
                        ;
D3A1  34 16             TEST9   PSHS    X,B,A           A,B,X
                        ;
D3A3  8E BEDA                   LDX     #BUTLPS
D3A6  BD D480                   JSR     SLAMOF
                        ;
D3A9  BD EF84                   JSR     PRLPLI
D3AC  85 31 32 40 30 90         DB      FF1,LHOLD1,LHOLD2,LHOLD3,LCHOLD,LPTERM
                        ;
D3B2  BD EFB9                   JSR     PRLPSI
D3B5  85 42                     DB      FF1,LTOPST
D3B7  BD F098           T900    JSR     TESTSI
D3BA  18                        DB      SCHOLD
D3BB  26 FA                     BNE     T900
                        ;
D3BD  BD F098                   JSR     TESTSI
D3C0  19                        DB      SHOLD1
D3C1  26 F4                     BNE     T900
                        ;
D3C3  BD F098                   JSR     TESTSI
D3C6  1A                        DB      SHOLD2
D3C7  26 EE                     BNE     T900
                        ;
D3C9  BD F098                   JSR     TESTSI
D3CC  1B                        DB      SHOLD3
D3CD  26 E8                     BNE     T900
                        ;
D3CF  BD F098           T901    JSR     TESTSI
D3D2  18                        DB      SCHOLD
D3D3  26 1A                     BNE     CHINK1
                        ;
D3D5  BD F098                   JSR     TESTSI
D3D8  19                        DB      SHOLD1
D3D9  26 23                     BNE     CHINK2
                        ;
D3DB  BD F098                   JSR     TESTSI
D3DE  1A                        DB      SHOLD2
D3DF  26 2C                     BNE     CHINK3
                        ;
D3E1  BD F098                   JSR     TESTSI
D3E4  1B                        DB      SHOLD3
D3E5  26 35                     BNE     CHINK4
                        ;
D3E7  BD F098                   JSR     TESTSI
D3EA  1D                        DB      STOPST
D3EB  26 3E                     BNE     T910
                        ;
D3ED  20 E0                     BRA     T901
                        ;
D3EF  8E D42E           CHINK1  LDX     #CH1TXT
D3F2  BD DDDE                   JSR     PROFDX
                        ;
D3F5  C6 01                     LDB     #1
D3F7  BD B1F4                   JSR     IMETER
D3FA  02                        DB      MMTCI
D3FB  06                        DB      VMTCI
                        ;
D3FC  20 B9                     BRA     T900
                        ;
D3FE  8E D441           CHINK2  LDX     #CH2TXT
D401  BD DDDE                   JSR     PROFDX
                        ;
D404  C6 01                     LDB     #1
D406  BD B1F4                   JSR     IMETER
D409  04                        DB      MMTCO           ;12v. meter
D40A  0C                        DB      VMTCO          ;& bookeeping
                        ;
D40B  20 AA                     BRA     T900
                        ;
D40D  8E D454           CHINK3  LDX     #CH3TXT
D410  BD DDDE                   JSR     PROFDX
                        ;
D413  C6 01                     LDB     #1
D415  BD B1F4                   JSR     IMETER
D418  06                        DB      MMTCR
D419  18                        DB      VMTCR
                        ;
D41A  20 9B                     BRA     T900
                        ;
D41C  8E D467           CHINK4  LDX     #CH4TXT
D41F  BD DDDE                   JSR     PROFDX
                        ;
D422  C6 01                     LDB     #1
D424  BD B1F4                   JSR     IMETER
D427  08                        DB      MMTGP           ;12v. meter
D428  12                        DB      VMTGP          ;& bookeeping
                        ;
D429  20 8C                     BRA     T900
                        ;
D42B  35 16             T910    PULS    A,B,X
D42D  39                        RTS
                        ;
D42E  00 43 41 53 48 20 CH1TXT  DB      0,"CASH IN METER   ",07F,080
D441  00 43 41 53 48 20 CH2TXT  DB      0,"CASH OUT METER  ",07F,080
D454  00 52 45 46 49 4C CH3TXT  DB      0,"REFILL METER    ",07F,080
D467  00 50 4C 41 59 53 CH4TXT  DB      0,"PLAYS METER     ",07F,080
                        ;
D47A  34 16             SLAMON  PSHS    X,B,A
D47C  C6 8F                     LDB     #ON
D47E  20 04                     BRA     SLAM10
D480  34 16             SLAMOF  PSHS    X,B,A
D482  C6 80                     LDB     #OF
D484  A6 89 0000        SLAM10  LDA     0,X
D488  81 90                     CMPA    #LPTERM
D48A  27 09                     BEQ     SLAM90
D48C  BD EFD7                   JSR     PRLPST
D48F  30 89 0001                LEAX    1,X
D493  20 EF                     BRA     SLAM10
D495  35 16             SLAM90  PULS    A,B,X
D497  39                        RTS
                        ;
                        ;**********************************************
                        ;
D498  EC 89 0001        ADDCRD  LDD     1,X
D49C  F3 0198                   ADDD    CRED1
D49F  10 83 270F                CMPD    #9999
D4A3  25 03                     BLO     ADDC90
D4A5  CC 270F                   LDD     #9999   limit
D4A8  FD 0198           ADDC90  STD     CRED1
D4AB  39                        RTS
                        ;
                                END

IA=OKISND.ASM
                        ;******************************************************
                        ;
                        ;       OKI SOUND DRIVER
                        ;
                                NAME    OKI
                        ;
                                *P
                        ;
                                PERS    6809
                        ;
                                EXT     OKIINI,MUSOKX,MUSOKI,OCHAN1,OCHAN2,OCHALT,GFLAGS,QOKCH2
                                EXT     MUSREQ,BIT,SET,RES,BITTST,BITSET,BITRES,SILENT,DELAYI,MUSPTR
                                EXT     BPSND,OBMINC,PRLPSI,FF1,LPTERM,OKIBC,SETVOL,SWSTAT,OKILOO
                        ;
                                *P
                        ;
                        ;- - - - - - - - - - - - - - - - - - - -
                        ;
D4AC  B6 0882           SETVOL  LDA     00882
D4AF  8A 10                     ORA     #010            direction up
D4B1  B7 0882                   STA     00882
D4B4  C6 20                     LDB     #32             set to max
D4B6  BD D4C8                   JSR     CHAVOL
D4B9  39                        RTS
                        ;
D4BA  B6 0882                   LDA     00882
D4BD  84 EF                     ANDA    #0EF            direction down
D4BF  B7 0882                   STA     00882
D4C2  C6 10                     LDB     #16
D4C4  BD D4C8                   JSR     CHAVOL
D4C7  39                STV100  RTS
                        ;
D4C8  B6 0882           CHAVOL  LDA     00882
D4CB  8A 20             CHAV10  ORA     #020
D4CD  B7 0882                   STA     00882
D4D0  84 DF                     ANDA    #0DF
D4D2  B7 0882                   STA     00882           alter volume
D4D5  5A                        DECB
D4D6  26 F3                     BNE     CHAV10
D4D8  39                        RTS
                        ;
D4D9  BD D511           SILENT  JSR     MUSOKI
D4DC  0100                      DATA    OCHAN1+0
D4DE  BD EF5E                   JSR     DELAYI
D4E1  01                        DB      1
D4E2  BD D511                   JSR     MUSOKI
D4E5  0100                      DATA    OCHAN1+0
D4E7  39                        RTS
                        ;
D4E8  10 8E 08C0        OKIINI  LDY     #008C0
D4EC  8E 0000                   LDX     #00000
D4EF  AF 26                     STX     //6,Y
D4F1  8E 01E0                   LDX     #001E0
D4F4  AF 24                     STX     //4,Y
D4F6  8E 0006                   LDX     #00006          9
D4F9  AF 22                     STX     //2,Y
D4FB  86 01                     LDA     #001
D4FD  A7 20                     STA     //0,Y
D4FF  86 03                     LDA     #003
D501  A7 21                     STA     //1,Y
D503  86 82                     LDA     #082
D505  A7 20                     STA     //0,Y
D507  86 02                     LDA     #002
D509  A7 21                     STA     //1,Y
D50B  86 17                     LDA     #017
D50D  B7 0882                   STA     00882
D510  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
D511  34 10             MUSOKI  PSHS    X
D513  AE 62                     LDX     //2,S
D515  8D 04                     BSR     MUSOKX
D517  AF 62                     STX     //2,S
D519  35 90                     PULS    X,PC
                        ;
      0880              OKIAD1  EQU     00880
      0882              OKIAD2  EQU     00882
                        ;
                        ;
D51B  34 27             MUSOKX  PSHS    Y,D,CC
D51D  1A 10                     ORCC    #010
D51F  EC 81                     LDD     ,X++
D521  F7 0880                   STB     OKIAD1
D524  44                        LSRA
D525  25 0E                     BCS     OKI20
D527  44                        LSRA
D528  25 1C                     BCS     OKI30
                        ;                               BIT     ,QOKCH2,GFLAGS,
D52A  34 02                     PSHS    A
D52C  B6 0181                   LDA     GFLAGS                                  LDA     QOKCH2
D52F  85 10                     BITA    #QOKCH2                                 BNE     OKI30
D531  35 02                     PULS    A
D533  26 11                     BNE     OKI30
D535  12                OKI20   NOP                     SET     ,QOKCH2,GFLAGS,
D536  34 02                     PSHS    A                                       LDA     #1 
D538  B6 0181                   LDA     GFLAGS
D53B  8A 10                     ORA     #QOKCH2                                 STA     QOKCH2
D53D  B7 0181                   STA     GFLAGS
D540  35 02                     PULS    A
D542  8D 24                     BSR     OKI80
D544  20 20                     BRA     OKI40
D546  12                OKI30   NOP                     RES     ,QOKCH2,GFLAGS,
D547  34 02                     PSHS    A               CLR     QOKCH2  RES     ,QOKCH2,GFLAGS,
D549  B6 0181                   LDA     GFLAGS  
D54C  84 EF                     ANDA    #0FF-QOKCH2
D54E  B7 0181                   STA     GFLAGS
D551  35 02                     PULS    A
D553  3D                        MUL
D554  B6 0882                   LDA     OKIAD2
D557  84 FD                     ANDA    #0FD
D559  B7 0882                   STA     OKIAD2
D55C  8D 0A                     BSR     OKI80
D55E  B6 0882                   LDA     OKIAD2
D561  8A 02                     ORA     #002
D563  B7 0882                   STA     OKIAD2
D566  35 A7             OKI40   PULS    CC,D,Y,PC
                        ;
D568  34 07             OKI80   PSHS    D,CC
D56A  1A 10                     ORCC    #010
D56C  3D                        MUL
D56D  3D                        MUL
D56E  3D                        MUL
D56F  B6 0882                   LDA     OKIAD2
D572  84 FE                     ANDA    #0FE
D574  B7 0882                   STA     OKIAD2
D577  12                        NOP
D578  12                        NOP
D579  12                        NOP
D57A  12                        NOP
D57B  B6 0882                   LDA     OKIAD2
D57E  8A 01                     ORA     #001
D580  B7 0882                   STA     OKIAD2
D583  3D                        MUL
D584  3D                        MUL
D585  3D                        MUL
D586  35 87                     PULS    CC,D,PC
                        ;
                        ;******************************************************
                        ;
D588  34 12             OKILOO  PSHS    X,A
D58A  B6 0882                   LDA     00882
D58D  85 40                     BITA    #040
D58F  27 06                     BEQ     OKIL90
D591  BE 0021                   LDX     MUSPTR
D594  BD D51B                   JSR     MUSOKX
D597  35 92             OKIL90  PULS    A,X,PC
                        ;
                                END

IA=REELS3.ASM
                        ;******************************************************
                        ;
                                NAME    RSDSER
                                *B
                                EXT     GETPOS,GOREEL,VELFBK
                                EXT     RSDSER,RSDPAT,RSDSEQ,R1DEMH,R1DEML
                                EXT     R1DBUG,R1POSN,R1DIST,R1STEP
                                EXT     TPCORR,RSDGO
                                EXT     WTREEL,INIRLS
                        ;
                                EXT     CLOCK1,GFLAGS
                                EXT     MUSREQ,MUL133,R1NVST,DELAYI
                                EXT     NSYMBS,OFFSET,TIMER,TESTSI
                                EXT     R1NVST,PRLPST,SSTART
                        ;
      0000              RLTEST  EQU     0               Reel test prog ?
                        ;
                                PERS    6809
                        ;
                                COPY    SCOMAC.ASM
                        ;******************************************************
                        ;
                        ;       Code Macros for Bell Fruit Scorpion board
                        ;
                        ;******************************************************
                        ;
                        ;       For generating music ... a macro to consrtuct
                        ;       a byte such that
                        ;         bits 7 ... 4 = Time - 1
                        ;         bit  3       = 1 if Noise channel is active
                        ;         bit  2       = 1 if   channel 3   is active
                        ;         bit  1       = 1 if   channel 2   is active
                        ;         bit  0       = 1 if   channel 1   is active
                        ;
                        TIME    MACR
                                DB      ((\A-1)<4)+(\B<3)+(\C<2)+(\D<1)+\E
                                ENDM
                        ;
                        ;******************************************************
                        ;
                        BIT     MACR
                                JSR     BITTST
                                DATA    (\B<3)+\A
                                ENDM
                        ;
                        SET     MACR
                                JSR     BITSET
                                DATA    (\B<3)+\A
                                ENDM
                        ;
                        RES     MACR
                                JSR     BITRES
                                DATA    (\B<3)+\A
                                ENDM
                        ;
                        ;       Slow switch test - keeps registers
                        ;
                        TSW     MACR
                              IFEQ      (\A&0F0)-080    if switch strobe 8 ...
                                PSHS    A
                                LDA     #(1<(\A&00F))
                                BITA    03408           ... look at sensor i/p
                                PULS    A
                              ELSE                      ... else test RAM copy
                                JSR     BITTST
                                DATA    (SWSTAT<3)+((\A&070)>1)+(\A&007)
                              ENDC
                                ENDM
                        ;
                        ;       Fast switch test - corrupts ACCA or ACCB
                        ;
                        FSTA    MACR
                                LDA     #(1<(\A&00F))
                                BITA    SWSTAT+(\A>4)
                                ENDM
                        ;
                        FSTB    MACR
                                LDB     #(1<(\A&00F))
                                BITB    SWSTAT+(\A>4)
                                ENDM
                        ;
                        ;******************************************************
                        ;
                        ;       This macro is used to construct the chain of
                        ;       bytes following a call to PRLPLI.  Generally
                        ;       a byte consists of a LAMP allocation so that
                        ;       the routine can alter its state. However, if
                        ;       the MS 4 bits of the byte are equal to those
                        ;       of LNULL, then the byte does NOT represent a
                        ;       lamp number but is processed as follows ...
                        ;
                        ;       if bit 3 is ZERO,  then the desired state of
                        ;               the  subsequent lamps is altered  to
                        ;               that specified by the 3 LS bits.
                        ;
                        ;       if bit 3 is ONE, then the action is ...
                        ;
                        ;       0x8     next byte is REALLY a lamp number
                        ;       0x9     not used
                        ;       0xA     not used
                        ;       0xB     not used
                        ;       0xC     not used
                        ;       0xD     not used
                        ;       0xE     next word is a LAMP LIST - do it !
                        ;       0xF     terminates the list
                        ;
                        ;       Note - as the size of the code depends on the
                        ;       lamp allocations,  these must be known to the
                        ;       Assembler (on Pass 1 !!) before this macro is
                        ;       used, and so must be defined early on.
                        ;
                        LAMP    MACR
                        ;
                        ;       0000 - 00FF     a real lamp allocation
                        ;
                              IFEQ      (\A)&0FF00
                               IFEQ     ((\A)#LNULL)&0F0
                                DB      (LNULL&0F0)+008
                               ENDC
                                DB      (\A)
                              ENDC
                        ;
                        ;       0800 - 0F00     a lamp status definition
                        ;
                              IFEQ      ((\A)&0F800)-00800
                               IFNE     (\A)&000FF
                                WARN    suspected error in lamp status def'n
                               ENDC
                                DB      (LNULL&0F0)+(((\A)>8)&007)
                              ENDC
                        ;
                        ;       8000 - FFFF     a lamp subroutine call
                        ;
                              IFNE      (\A)&08000
                               IFEQ     (\A)+1            but -1 is terminator !
                                DB      (LNULL&0F0)+00F
                               ELSE
                        ;       IFEQ    (\A)&04000
                        ;       WARN    suspected error in lamp list address
                        ;       ENDC
                                DB      (LNULL&0F0)+00E
                                DATA    (\A)
                               ENDC
                              ENDC
                        ;
                                ENDM
                        ;
                        ;******************************************************
                        ;
                        ;       This Macro Converts a block of 8 lamps
                        ;       from LIT to FLASHING
                        ;
                        FL8     MACR
                                IFEQ    SYSF-1
                                CLR     LSTAT1+((\A>3)*3)
                                ENDC
                                IFEQ    SYSF-2
                                CLR     LPATT1+((((\A&0F8)*33)>7)&01F)
                                ENDC
                                ENDM
                        ;
                        ;******************************************************
                        ;
                        CLI     MACR
                                ANCC    #0EF
                                ENDM
                        ;
                        SEI     MACR
                                ORCC    #010
                                ENDM
                        ;
                        ;******************************************************
                        ;
                                END
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
0082                    R1POSN  DS      6
0088                    R1DIST  DS      6
                        ;
                        ;
008E                    RSDPAT  DS      3
0091                    NEWPAT  DS      3
0094                    R1STEP  DS      6       reel position 0 ... 95
009A                    R1DEMH  DS      6       reel demand [MS]
00A0                    R1DEML  DS      6       reel demand [LS]
00A6                    R1VELY  DS      6       reel velocity
00AC                    R1SENS  DS      6       reel sensor history
00B2                    R1DATA  DS      6       reel position
00B8                    R1DBUG  DS      6       reel sensor position
00BE                    R1VFBG  DS      6       velocity feedback gain
00C4                    R1VFBO  DS      6       velocity feedback offset
00CA                    RSDGO   DS      1
00CB                    RSSBIT  DS      1
00CC                    RSSOLD  DS      1
                        ;
                        ;------------------------------------------------------
                        ;
00CD                    VELFBK  DS      2
                        ;
                                *P
                        ;
      004E              OFFSET  EQU     78              
                        ;
                        ;
D599  34 36             GOREEL  PSHS    Y,X,D
D59B  10 8E FFFA                LDY     #-6             For each reel ...
      D59F              GOR10   EQU     $
                        ;
D59F  4F                        CLRA
D5A0  5F                        CLRB
D5A1  7D 00CA                   TST     RSDGO           no correction if moving
D5A4  26 20                     BNE     GOR40
D5A6  6D A9 0088                TST     R1POSN+6,Y      eg = 24 23 18 15  2  1
D5AA  2B 1A                     BMI     GOR40
D5AC  86 18                     LDA     #NSYMBS
D5AE  A0 A9 0088                SUBA    R1POSN+6,Y      eg =  0  1  6  9 22 23
D5B2  C6 04                     LDB     #(96/NSYMBS)
D5B4  3D                        MUL                     eg =  0  4 24 36 88 92
D5B5  C3 FFB4                   ADDD    #2-OFFSET          = ideal  R1STEP
D5B8  E0 A9 009A                SUBB    R1STEP+6,Y      (  = actual R1STEP  )
D5BC  82 00                     SBCA    #0
D5BE  2A 02                     BPL     GOR20
D5C0  CB 60                     ADDB    #96
D5C2  86 10             GOR20   LDA     #16             B := positional error
D5C4  3D                        MUL
D5C5  1D                        SEX
D5C6  34 06             GOR40   PSHS    D               D := demand correction
                        ;
D5C8  E6 A9 00A0                LDB     R1DEMH+6,Y      If reel is moving ...
D5CC  EA A9 00A0                ORB     R1DEMH+6,Y
D5D0  EA A9 00AC                ORB     R1VELY+6,Y
D5D4  26 1D                     BNE     GOR55           ... don't change it !
D5D6  E6 A9 008E                LDB     R1DIST+6,Y
D5DA  2A 01                     BPL     GOR45
D5DC  50                        NEGB
D5DD  CB FC             GOR45   ADDB    #-4
D5DF  E7 E2                     STB     ,-S
D5E1                          IFNE      RLTEST
                              ELSE
D5E1  CC 6A06                   LDD     #06A06          distance >  4 ?
D5E4                          ENDC
D5E4  6D E0                     TST     ,S+
D5E6  2A 03                     BPL     GOR47
D5E8  CC 840A                   LDD     #0840A          distance <= 4 ?
                        ;
D5EB  A7 A9 00C4        GOR47   STA     R1VFBG+6,Y      change feedback gain
D5EF  E7 A9 00CA                STB     R1VFBO+6,Y      change feedback offset
                        ;
D5F3  E6 A9 008E        GOR55   LDB     R1DIST+6,Y
D5F7  1D                        SEX
D5F8  1F 01                     TFR     D,X
D5FA  86 40                     LDA     #16*(96/NSYMBS)
D5FC  BD D879                   JSR     MUL133          (signed over 16 bits)
D5FF  1F 10                     TFR     X,D
D601  E3 E1                     ADDD    ,S++            add correction from (1)
D603                            SEI
D605  AB A9 00A0                ADDA    R1DEMH+6,Y
D609  A7 A9 00A0                STA     R1DEMH+6,Y      store demand [MS]
D60D  EB A9 00A6                ADDB    R1DEML+6,Y
D611  E7 A9 00A6                STB     R1DEML+6,Y      store demand [LS]
D615                            CLI
                        ;
D617  A6 A9 0088        GOR60   LDA     R1POSN+6,Y
D61B  2B 14                     BMI     GOR80           R1POSN undefined ??
D61D  E6 A9 008E                LDB     R1DIST+6,Y
D621  27 0E                     BEQ     GOR80           while (B not zero) ...
D623  2E 04             GOR62   BGT     GOR65
D625  CB 02                     ADDB    #2              B < 0 : DIST = DIST + 1
D627  8B EA                     ADDA    #2-NSYMBS               POSN = POSN + 1
D629  4A                GOR65   DECA
D62A  2E 02                     BGT     GOR68           B > 0 : DIST = DIST - 1
D62C  8B 18                     ADDA    #NSYMBS                 POSN = POSN - 1
D62E  5A                GOR68   DECB
D62F  26 F2                     BNE     GOR62           ... repeat
D631  6F A9 008E        GOR80   CLR     R1DIST+6,Y
D635  A7 A9 0088                STA     R1POSN+6,Y      := anticipated stop
D639  6F A9 00B2                CLR     R1SENS+6,Y
                        ;
D63D  31 21                     LEAY    //1,Y
D63F  10 26 FF5C                LBNE    GOR10           ... next reel
D643  86 01                     LDA     #1
D645  B7 00CA                   STA     RSDGO           ... start the reels
D648  35 B6                     PULS    D,X,Y,PC
                        ;
                        ;------------------------------------------------------
                        ;
D64A  34 36             GETPOS  PSHS    Y,X,D
D64C  10 8E FFFA                LDY     #-6
D650  86 80             GTP10   LDA     #080
D652  E6 A9 009A                LDB     R1STEP+6,Y      eg = 11 12 15 16 19 20
D656  27 0F                     BEQ     GTP90
D658  86 19                     LDA     #NSYMBS+1       (OFFSET = (eg) 80)
D65A  CB 4E                     ADDB    #OFFSET         eg = 91 92 95 96 99 ..
D65C  C1 60                     CMPB    #96
D65E  25 02                     BLO     GTP20
D660  C0 60                     SUBB    #96                            0  3  4
D662  4A                GTP20   DECA
D663  C0 04                     SUBB    #(96/NSYMBS)    eg: NSYMBS = 24
D665  2A FB                     BPL     GTP20
D667  A7 A9 0088        GTP90   STA     R1POSN+6,Y      eg =  2  1  1 24 24 23
D66B  31 21                     LEAY    //1,Y
D66D  26 E1                     BNE     GTP10
D66F  35 B6             GTP95   PULS    D,X,Y,PC
                        ;
                        ;------------------------------------------------------
                        ;
D671  78 00CA           RSDSER  LSL     RSDGO
D674  27 40                     BEQ     RSD80
D676  BE 0091                   LDX     NEWPAT
D679  BF 008E                   STX     RSDPAT
D67C  F6 0093                   LDB     NEWPAT+2
D67F  F7 0090                   STB     RSDPAT+2
D682  C6 40                     LDB     #040            sensor 1
D684  8E 0000                   LDX     #0              Reel 1
D687  8D 2E                     BSR     RSERVO
D689  34 02                     PSHS    A
D68B  8D 2A                     BSR     RSERVO          Reel 2
D68D  48                        LSLA
D68E  48                        LSLA
D68F  48                        LSLA
D690  48                        LSLA
D691  AA E0                     ORA     ,S+
D693  B7 0091                   STA     NEWPAT+0
D696  8D 1F                     BSR     RSERVO          Reel 3
D698  34 02                     PSHS    A
D69A  8D 1B                     BSR     RSERVO          Reel 4
D69C  48                        LSLA
D69D  48                        LSLA
D69E  48                        LSLA
D69F  48                        LSLA
D6A0  AA E0                     ORA     ,S+
D6A2  B7 0092                   STA     NEWPAT+1
D6A5  C6 40                     LDB     #040            sensor 5
D6A7  8D 0E                     BSR     RSERVO          Reel 5
D6A9  34 02                     PSHS    A
D6AB  8D 0A                     BSR     RSERVO          Reel 6
D6AD  48                        LSLA
D6AE  48                        LSLA
D6AF  48                        LSLA
D6B0  48                        LSLA
D6B1  AA E0                     ORA     ,S+
D6B3  B7 0093                   STA     NEWPAT+2
                        ;
D6B6  39                RSD80   RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
D6B7  A6 89 00A6        RSERVO  LDA     R1VELY,X
D6BB  34 06                     PSHS    B,A             = sensor bit + velocity
D6BD  A6 89 009A                LDA     R1DEMH,X
D6C1  E6 89 00A0                LDB     R1DEML,X        A/D = accel from demand
D6C5  34 06                     PSHS    D
                        ;
D6C7  4F                        CLRA
D6C8  E6 89 00A6                LDB     R1VELY,X
D6CC  27 28                     BEQ     RSV20           velocity = 0 ?
D6CE  2D 14                     BLT     RSV10
                        ;
D6D0  A6 89 00BE                LDA     R1VFBG,X        velocity > 0 ...
D6D4  3D                        MUL
D6D5  1F 89                     TFR     A,B             (gain correction)
D6D7  3D                        MUL
D6D8  ED E3                     STD     ,--S            ... feedback is ...
D6DA  E6 89 00C4                LDB     R1VFBO,X
D6DE  50                        NEGB
D6DF  1D                        SEX                     ... - OFFSET plus
D6E0  A3 E1                     SUBD    ,S++            ... - (V * GAIN)^2
D6E2  20 12                     BRA     RSV20
                        ;
D6E4  50                RSV10   NEGB
D6E5  A6 89 00BE                LDA     R1VFBG,X        velocity < 0 ...
D6E9  3D                        MUL
D6EA  1F 89                     TFR     A,B             (gain correction)
D6EC  3D                        MUL
D6ED  ED E3                     STD     ,--S            ... feedback is ...
D6EF  E6 89 00C4                LDB     R1VFBO,X
D6F3  1D                        SEX                     ... + OFFSET plus
D6F4  E3 E1                     ADDD    ,S++            ... + (V * GAIN)^2
                        ;
D6F6  E3 E1             RSV20   ADDD    ,S++            D := A/D + feedback
D6F8  35 04                     PULS    B               B := velocity
D6FA  27 4D                     BEQ     RSV50           testing D !
D6FC  2D 09                     BLT     RSV30
D6FE  E1 89 D7CA                CMPB    R1MAXF,X        Accel is positive ...
D702  2C 0C                     BGE     RSV40
D704  5C                        INCB                    ... Max velocity = +64
D705  20 42                     BRA     RSV50
D707  E1 89 D7D0        RSV30   CMPB    R1MAXR,X        Accel is negative ...
D70B  2F 3C                     BLE     RSV50
D70D  5A                        DECB                    ... Max velocity = -64
D70E  20 39                     BRA     RSV50
                        ;
D710  68 89 00AC        RSV40   LSL     R1SENS,X        velocity is max forward
D714  B6 0B02                   LDA     00B02
D717  8C 0004                   CMPX    #4
D71A  2D 03                     BLT     RSV42
D71C  B6 0C00                   LDA     00C00
D71F  A5 E4             RSV42   BITA    ,S              ... so examine sensor
D721  27 04                     BEQ     RSV45
D723  6C 89 00AC                INC     R1SENS,X        ... and update history
D727  A6 89 00AC        RSV45   LDA     R1SENS,X
D72B  84 03                     ANDA    #003
D72D  81 02                     CMPA    #002            if trailing edge ...
D72F  26 18                     BNE     RSV50
D731  A6 89 00B2                LDA     R1DATA,X
D735  84 7F                     ANDA    #07F
D737  A7 89 00B2                STA     R1DATA,X
D73B  44                        LSRA
D73C  44                        LSRA
D73D  44                        LSRA
D73E  44                        LSRA
D73F  8A 10                     ORA     #010
D741  A7 89 00B8                STA     R1DBUG,X
D745  A7 89 0094                STA     R1STEP,X        ... note position
                        ;
D749  E7 89 00A6        RSV50   STB     R1VELY,X        := new velocity
D74D  2B 02                     BMI     RSV55
D74F  CB 03                     ADDB    #3
D751  57                RSV55   ASRB
D752  57                        ASRB
D753  34 04                     PSHS    B               -16 ... +16
D755  50                        NEGB
D756  1D                        SEX
D757  EB 89 00A0                ADDB    R1DEML,X        Subtract velocity ...
D75B  A9 89 009A                ADCA    R1DEMH,X
D75F  E7 89 00A0                STB     R1DEML,X
D763  A7 89 009A                STA     R1DEMH,X        ... from demand
D767  B6 00CA                   LDA     RSDGO
D76A  AA 89 00A0                ORA     R1DEML,X
D76E  AA 89 009A                ORA     R1DEMH,X
D772  AA 89 00A6                ORA     R1VELY,X        still going ?
D776  B7 00CA                   STA     RSDGO
D779  35 04                     PULS    B
D77B  EB 89 00B2                ADDB    R1DATA,X        Add new velocity ...
D77F  E7 89 00B2                STB     R1DATA,X        ... to reel position
                        ;
D783  A6 89 0094                LDA     R1STEP,X
D787  27 23                     BEQ     RSV80           reel position unknown ?
D789  48                        LSLA
D78A  48                        LSLA
D78B  48                        LSLA
D78C  48                        LSLA
D78D  A0 89 00B2                SUBA    R1DATA,X
D791  85 F0                     BITA    #0F0
D793  27 17                     BEQ     RSV80           MS 4 bits unchanged ?
D795  47                        ASRA
D796  47                        ASRA
D797  47                        ASRA
D798  47                        ASRA
D799  40                        NEGA
D79A  AB 89 0094                ADDA    R1STEP,X        := corrected R1 step
D79E  27 06                     BEQ     RSV70
D7A0  81 60                     CMPA    #96
D7A2  23 04                     BLS     RSV75
D7A4  8B 40                     ADDA    #256-96-96
D7A6  8B 60             RSV70   ADDA    #96
D7A8  A7 89 0094        RSV75   STA     R1STEP,X        defined = (1 ... 96)
                        ;
D7AC  CB 08             RSV80   ADDB    #8
D7AE  54                        LSRB
D7AF  54                        LSRB
D7B0  54                        LSRB
D7B1  54                        LSRB
D7B2  CB 00                     ADDB    #TPCORR
D7B4  E4 89 D7C4                ANDB    R1WIND,X
D7B8  10 8E D7D6                LDY     #RSDSEQ
D7BC  A6 A5                     LDA     B,Y             return with reel code
D7BE  64 60                     LSR     //0,S           sensor bit (next reel)
D7C0  30 01                     LEAX    //1,X           index regr (next reel)
D7C2  35 84                     PULS    B,PC
                        ;
D7C4  07                R1WIND  DB      7       6               6 = 1 reel winding
D7C5  07                        DB      7       6               7 = 1 or 2 windings
D7C6  07                        DB      7       6
D7C7  07                        DB      7       6       7
D7C8  07                        DB      7       6
D7C9  07                        DB      7       6
                        ;
D7CA  30                R1MAXF  DB      48      48              Max Fwd speed
D7CB  30                        DB      48      48
D7CC  30                        DB      48      48
D7CD  30                        DB      48      48      64
D7CE  30                        DB      48      48
D7CF  30                        DB      48      48
                        ;
D7D0  D0                R1MAXR  DB      -48     -48             Max Rev speed
D7D1  D0                        DB      -48     -48
D7D2  D0                        DB      -48     -48
D7D3  D0                        DB      -48     -48     -64
D7D4  D0                        DB      -48     -48
D7D5  D0                        DB      -48     -48
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                        ;
      0000              TPCORR  EQU     0       
                        ;
D7D6  01 03 02 06 04 0C RSDSEQ  DB      01,03,02,06,04,0C,08,09
                        ;
                        ;******************************************************
                        ;
                        ;
                        ;SET UP REELS READY TO RETURN TO PREVIOUS PROGRAM STATE
                        ;
D7DE  8E 6806           INIRLS  LDX     #06806
D7E1  BF 00CD                   STX     VELFBK
D7E4  17 004E                   LBSR    SETZER
                        ;SET REELS TO LAST RECORDED POSTIONS
D7E7  17 1774                   LBSR    DELAYI
D7EA  32                        DB      50
                        ;
D7EB  8E 0000                   LDX     #0
D7EE  4F                        CLRA
D7EF  C6 30             IN91C   LDB     #NSYMBS+NSYMBS
D7F1  E0 89 0179                SUBB    R1NVST,X
D7F5  EB 89 0082                ADDB    R1POSN,X
D7F9  E7 89 0088                STB     R1DIST,X
D7FD  30 89 0001                LEAX    1,X
D801  8C 0003                   CMPX    #3
D804  2D E9                     BLT     IN91C
                        ;
                        ;
D806  17 FD90                   LBSR    GOREEL
D809  7D 00CA           IN91D   TST     RSDGO
D80C  26 FB                     BNE     IN91D
                        ;
D80E  8E 0003                   LDX     #3
D811  4F                        CLRA
D812  C6 30             IN91E   LDB     #NSYMBS+NSYMBS
D814  E0 89 0179                SUBB    R1NVST,X
D818  EB 89 0082                ADDB    R1POSN,X
D81C  E7 89 0088                STB     R1DIST,X
D820  30 89 0001                LEAX    1,X
D824  8C 0006                   CMPX    #6
D827  2D E9                     BLT     IN91E
                        ;
                        ;
D829  17 FD6D                   LBSR    GOREEL
D82C  7D 00CA           IN91F   TST     RSDGO
D82F  26 FB                     BNE     IN91F
                        ;
                        ;
D831  17 FE16                   LBSR    GETPOS
                        ;
D834  39                        RTS
                        ;
                        ;
                        ;
                        ;
D835  F6 0B03           SETZER  LDB     00B03
D838  CA 08                     ORB     #008
D83A  F7 0B03                   STB     00B03
D83D  C6 03                     LDB     #3
D83F  8E 0000                   LDX     #0
D842  86 48             IN95    LDA     #NSYMBS+NSYMBS+NSYMBS            SHL 2
D844  A7 89 0088                STA     R1DIST,X
D848  30 89 0001                LEAX    1,X
D84C  5A                        DECB
D84D  26 F3                     BNE     IN95
                        ;
                        ;
D84F  17 FD47                   LBSR    GOREEL
                        ;
D852  7D 00CA           IN98    TST     RSDGO
D855  10 26 FFF9                LBNE    IN98
                        ;
D859  C6 03                     LDB     #3
D85B  8E 0003                   LDX     #3
D85E  86 48             IN952   LDA     #NSYMBS+NSYMBS+NSYMBS            SHL 2
D860  A7 89 0088                STA     R1DIST,X
D864  30 89 0001                LEAX    1,X
D868  5A                        DECB
D869  26 F3                     BNE     IN952
                        ;
                        ;
D86B  17 FD2B                   LBSR    GOREEL
                        ;
D86E  7D 00CA           IN982   TST     RSDGO
D871  10 26 FFF9                LBNE    IN982
D875  17 FDD2                   LBSR    GETPOS
D878  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    MUL133
                                *P
                                EXT     MUL133
                        ;
                        ;       1 byte (in ACCA) is multiplied by 3 bytes (in
                        ;       ACCB[MS] and X[LS]) to give 3 bytes (again in
                        ;       ACCB and X). All numbers are '+'ve (UNSIGNED)
                        ;
D879  34 16             MUL133  PSHS    X,B,A            0,S = answer [MS]
D87B  6F E2                     CLR     ,-S              1,S = answer
D87D  6F E2                     CLR     ,-S              2,S = answer [LS]
D87F  6F E2                     CLR     ,-S              3,S = arg 1
D881  A6 63                     LDA     //3,S            4,S = arg 2  [MS]
D883  E6 66                     LDB     //6,S            5,S = arg 2
D885  3D                        MUL                      6,S = arg 2  [LS]
D886  ED 61                     STD     //1,S
D888  A6 63                     LDA     //3,S
D88A  E6 65                     LDB     //5,S
D88C  3D                        MUL
D88D  E3 60                     ADDD    //0,S
D88F  ED 60                     STD     //0,S
D891  A6 63                     LDA     //3,S
D893  E6 64                     LDB     //4,S
D895  3D                        MUL
D896  EB 60                     ADDB    //0,S
D898  E7 60                     STB     //0,S
D89A  35 14                     PULS    B,X             [B:X] := result
D89C  35 02                     PULS    A               A not corrupted
D89E  32 63                     LEAS    //3,S
D8A0  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                END

IA=BC4FLU.ASM
                        ;******************************************************
                        ;
                        ;       BARCREST  MK4 MPU  SYSTEM
                        ;
                        ;******************************************************
                        ;
                        ;       MK4 HARDWARE INITIALISATION
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    MK4INI
                                *P
                                EXT     MK4INI
                        ;
                                EXT     DELAYI,PROFDI,QRESET,MOVX2S,MOVS2X
                                EXT     WRSTAT,INITXT,CHECK0,R1POSN,RSDPAT
                                EXT     CHKNVR,CLRNVR,SETNVR,OKIINI,SETVOL
                                EXT     TALARM,MUSREQ,MUSPTR
                                EXT     RSDGO
                                EXT     QCLEAR
                                EXT     BREEP,RHBANK
                                EXT     DYEURO
                                EXT     SWSTAT
                                EXT     ADDA2X,GOREEL
                                EXT     STARTV
                                EXT     STARTD
                                EXT     R1DIST,RSDPAT,RSPEED,STARTC
                        ;
                                PERS    68XX
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
                        ;------------------------------------------------------
                        ;
D8A1  8E D960           MK4INI  LDX     #PIATAB         INITIALISE ALL PIA'S
D8A4                    INI10   PSHX
D8A6  A6 89 0002                LDAA    2,X
D8AA  E6 89 0003                LDAB    3,X
D8AE  AE 89 0000                LDX     0,X
D8B2  10 27 0021                BEQ     INI20           END OF TABLE ?
D8B6  6F 89 0000                CLR     0,X
D8BA  6F 89 0001                CLR     1,X
D8BE  A7 89 0000                STAA    0,X
D8C2  E7 89 0001                STAB    1,X
D8C6  A6 89 0000                LDAA    0,X
D8CA                            PULX
D8CC  30 01                     INX
D8CE  30 01                     INX
D8D0  30 01                     INX
D8D2  30 01                     INX
D8D4  7E D8A4                   BRA     INI10
                        ;
D8D7  6F 89 0000        INI20   CLR     0,X             CLEAR VOLATILE RAM
D8DB  30 01                     INX
D8DD  8C 0173                   CPX     #STARTD
                        ;
D8E0  10 26 FFF3                BNE     INI20
                        ;
D8E4  32 61                     INS
D8E6  32 61                     INS                     CLEAN UP STACK
                        ;
D8E8  7F 0901                   CLR     00901
D8EB  86 42                     LDAA    #042
D8ED  B7 0900                   STAA    00900
D8F0  86 43                     LDAA    #043
D8F2  B7 0901                   STAA    00901
D8F5  86 00                     LDAA    #000
D8F7  B7 0900                   STAA    00900
                        ;
D8FA  8E 4E20                   LDX     #20000          20000
D8FD  BF 0904                   STX     00904
                        ;
D900  8E 05C1                   LDX     #1473           
D903  BF 0906                   STX     00906
                        ;
D906  86 80                     LDAA    #080
D908  97 82                     STAA    /R1POSN+0
D90A  97 83                     STAA    /R1POSN+1
D90C  97 84                     STAA    /R1POSN+2
D90E  97 85                     STAA    /R1POSN+3
D910  97 86                     STAA    /R1POSN+4
D912  97 87                     STAA    /R1POSN+5
                        ;
D914  BD D4E8                   JSR     OKIINI
                        ;
D917  1C EF                     CLI                     ENABLE IRQ'S
                        ;
D919  BD DDD4                   JSR     PROFDI
D91C  11                        DB      QRESET
D91D  20 52 45 53 45 54         DB      ' RESETTING   AB '
D92D  7F 80                     DB      07F,080
                        ;
D92F  BD EF5E                   JSR     DELAYI
D932  64                        DB      100
                        ;
D933  86 01                     LDAA    #1
D935  B7 0088                   STAA    R1DIST+0
D938  B7 0089                   STAA    R1DIST+1
D93B  B7 008A                   STAA    R1DIST+2
D93E  BD D599                   JSR     GOREEL
                        ;
D941  BD EF5E                   JSR     DELAYI          WAIT 1.0 SEC
D944  64                        DB      100
                        ;
D945  86 01                     LDAA    #1
D947  B7 008B                   STAA    R1DIST+3
D94A  B7 008C                   STAA    R1DIST+4
D94D  B7 008D                   STAA    R1DIST+5
D950  BD D599                   JSR     GOREEL
                        ;
D953  BD EF5E                   JSR     DELAYI
D956  64                        DB      100             WAIT 1.0 SEC
                        ;
D957  BD D4AC                   JSR     SETVOL
                        ;
D95A  BD DDD4                   JSR     PROFDI
D95D  10                        DB      QCLEAR
D95E  80                        DB      080
D95F  39                        RTS
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
D960  0A00 FF34         PIATAB  DATA    00A00,0FF34     LAMPS;FLD
D964  0A02 FF34                 DATA    00A02,0FF34     LAMPS,FLD
D968  0B00 FF34                 DATA    00B00,0FF34     SSDIS;MUX B
D96C  0B02 0034                 DATA    00B02,00034     SER.IN,SENSORS,Z-CROSS,LAMP O/L;SENS ON
D970  0C00 8034                 DATA    00C00,08034     AUX 1;NOTE INH,SENSORS 5&6,NOTES 5->1;SER.OUT
D974  0C02 0F34                 DATA    00C02,00F34     AUX 2;SOUND
D978  0D00 FF34                 DATA    00D00,0FF34     SOUND BUS;SOUND
D97C  0D02 FF34                 DATA    00D02,0FF34     REEL DRIVES 2&1;SOUND
D980  0E00 FF34                 DATA    00E00,0FF34     REEL DRIVES 4&3;MUX A
D984  0E02 FF34                 DATA    00E02,0FF34     REEL DRIVES 5&6
D988  0F00 0034                 DATA    00F00,00034     SWITCH I/P'S;MUX C
D98C  0F02 FF34                 DATA    00F02,0FF34     TRIACS,FLD
D990  0880 FF3C                 DATA    00880,0FF3C
D994  0882 3F3C                 DATA    00882,03F3C
D998  0000                      DATA    0
                        ;
                        ;******************************************************
                        ;
                                NAME    QDEBUG
                        ;
                                *P
                        ;
                                EXT     QDEBUG
                                EXT     SWSTAT,FDSTAT,HEXDY0,HEXDY4,QDBUG
                                EXT     CLOCK1
                                EXT     ADDA2X
                        ;
D99A  B6 011D           QDEBUG  LDAA    SWSTAT+6
D99D  85 01                     BITA    #QDBUG
D99F  10 27 003E                BEQ     DEB20
D9A3  5F                        CLRB
D9A4  B6 011E                   LDAA    SWSTAT+7
D9A7  48                        ASLA
D9A8  59                        ROLB
D9A9  48                        ASLA
D9AA  59                        ROLB
D9AB  34 02                     PSHA
D9AD  34 04                     PSHB
D9AF  1F 41                     TSX
D9B1  AE 89 0000                LDX     0,X
D9B5  32 61                     INS
D9B7  32 61                     INS
D9B9  5C                        INCB
D9BA  BD D9E2                   BSR     DEB50
D9BD  F7 0149                   STAB    FDSTAT+8
D9C0  B7 014A                   STAA    FDSTAT+9
D9C3  BD D9E2                   BSR     DEB50
D9C6  F7 014B                   STAB    FDSTAT+10
D9C9  B7 014C                   STAA    FDSTAT+11
D9CC  BD D9E2                   BSR     DEB50
D9CF  F7 014D                   STAB    FDSTAT+12
D9D2  B7 014E                   STAA    FDSTAT+13
D9D5  BD D9E2                   BSR     DEB50
D9D8  F7 014F                   STAB    FDSTAT+14
D9DB  B7 0150                   STAA    FDSTAT+15
D9DE  BD D9E2                   BSR     DEB50
D9E1  39                DEB20   RTS
                        ;
D9E2  A6 89 0000        DEB50   LDAA    0,X
D9E6  BD DD2D                   JSR     HEXDY4
D9E9  34 02                     PSHA
D9EB  A6 89 0000                LDAA    0,X
D9EF  BD DD31                   JSR     HEXDY0
D9F2  35 04                     PULB
D9F4  30 01                     INX
D9F6  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       LAMP MULTIPLEXER SERVICE ROUTINE
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    MUXSER
                                *P
                                EXT     MUXSER,LPSTAT,OVSTAT,SWSTAT
                                EXT     MUXPHI,NRDTAB,NRDTB2,NRDTB3
                                EXT     MARSIN,N2DTAB,N2DTB2,N2DTB3
                                EXT     COININ,COINST,CTIMER,STUCK,N2DTCZ
                                EXT     NOTEIN,NRDTAB,CRDTAB,SSSTAT,CRDTB2,CRDTB3,CRDTCZ,NRDTCZ
                        ;
                                EXT     FLDSER,SSDSER,CLOCK3,CRDTUK,NRDTUK,N2DTUK
                                EXT     GFLAGS,QLOCK,TALARM,CRDTU2,NRDTU2,N2DTU2
                                EXT     MUSREQ,CXTIME,CLOCK4,CRDTU3,NRDTU3,N2DTU3
                        ;
                                *B
                        ;
00CF                    LPSTAT  DS      16              ALPHA FLASH
00DF                            DS      16              BETA FLASH
00EF                            DS      16
00FF                            DS      16
010F                    OVSTAT  DS      8               OVERLOAD TIMER
0117                    SWSTAT  DS      8               SWITCH STATUS
011F                    SSSTAT  DS      8
0127                    MARMEM  DS      1               MARS MECH
0128  31                CXMEM1  DB      '1'
0129  32                CXMEM2  DB      '2'
012A  33                CXMEM3  DB      '3'
                        ;
012B                    NOTMEM  DS      1               MARS MECH
012C  31                DXMEM1  DB      '1'
012D  32                DXMEM2  DB      '2'
012E  33                DXMEM3  DB      '3'
                        ;
012F                    NOTME2  DS      1               MARS MECH
0130  31                EXMEM1  DB      '1'
0131  32                EXMEM2  DB      '2'
0132  33                EXMEM3  DB      '3'
                        ;
0133                    MUXPHI  DS      2               M'PLEX PHASE
0135                    MUXPH2  DS      2
                        ;
0137                    CTIMER  DS      4
013B                    COININ  DS      1
013C                    COINST  DS      2
013E                    STUCK   DS      1
013F                    NOTEIN  DS      2
                        ;
                        ;------------------------------------------------------
                        ;
                                *P
                        ;
D9F7  03 0A 0A 00       CRDTCZ  DB      %00000011,000+10,10,0           50p     
D9FB  0C 02 02 00               DB      %00001100,000+2,2,0             10p
D9FF  30 05 05 00               DB      %00110000,000+5,5,0             20p
DA03  C0 14 14 00               DB      %11000000,000+20,20,0           100p
                        ;
DA07  03 05 05 00       CRDTAB  DB      %00000011,000+5,5,0             50p     
DA0B  0C 01 01 00               DB      %00001100,000+1,1,0             10p
DA0F  30 02 02 00               DB      %00110000,000+2,2,0             20p
DA13  C0 0A 0A 00               DB      %11000000,000+10,10,0           100p
                        ;
DA17  03 0A 05 00       CRDTB2  DB      %00000011,000+10,5,0            50p     
DA1B  0C 02 01 00               DB      %00001100,000+2,1,0             10p
DA1F  30 04 02 00               DB      %00110000,000+4,2,0             20p
DA23  C0 14 0A 00               DB      %11000000,000+20,10,0           100p
                        ;
DA27  03 19 05 00       CRDTB3  DB      %00000011,000+25,5,0            50p     
DA2B  0C 05 01 00               DB      %00001100,000+5,1,0             10p
DA2F  30 0A 02 00               DB      %00110000,000+10,2,0            20p
DA33  C0 32 0A 00               DB      %11000000,000+50,10,0           100p
                        ;
DA37  03 00 00 00       CRDTUK  DB      %00000011,000+0,0,0             50p     
DA3B  0C 05 01 00               DB      %00001100,000+5,1,0             10p 
DA3F  30 00 00 00               DB      %00110000,000+0,0,0             20p
DA43  C0 00 00 00               DB      %11000000,000+0,0,0             100p
                        ;
DA47  03 00 00 00       CRDTU2  DB      %00000011,000+0,0,0             50p     
DA4B  0C 02 01 00               DB      %00001100,000+2,1,0             10p 0.5gr
DA4F  30 00 00 00               DB      %00110000,000+0,0,0             20p
DA53  C0 00 00 00               DB      %11000000,000+0,0,0             100p
                        ;
DA57  03 00 00 00       CRDTU3  DB      %00000011,000+0,0,0             50p     
DA5B  0C 04 01 00               DB      %00001100,000+4,1,0             10p 0.5gr
DA5F  30 02 80 00               DB      %00110000,000+2,080,0           20p 0.25gr = 1/2 pulse
DA63  C0 00 00 00               DB      %11000000,000+0,0,0             100p
                        ;
DA67  03                NRDTCZ  DB      %00000011               
DA68  0032 0032                 DATA    50,50
DA6C  0C                        DB      %00001100
DA6D  0064 0064                 DATA    100,100
DA71  30                        DB      %00110000
DA72  00C8 00C8                 DATA    200,200
DA76  C0                        DB      %11000000
DA77  01F4 01F4                 DATA    500,500
DA7B  03                N2DTCZ  DB      %00000011
DA7C  03E8 03E8                 DATA    1000,1000
                        ;
DA80  03                NRDTAB  DB      %00000011               
DA81  0032 0032                 DATA    50,50
DA85  0C                        DB      %00001100
DA86  0064 0064                 DATA    100,100
DA8A  30                        DB      %00110000
DA8B  00C8 00C8                 DATA    200,200
DA8F  C0                        DB      %11000000
DA90  01F4 01F4                 DATA    500,500
DA94  03                N2DTAB  DB      %00000011
DA95  03E8 03E8                 DATA    1000,1000
                        ;
DA99  03                NRDTB2  DB      %00000011       
DA9A  0064 0032                 DATA    100,50
DA9E  0C                        DB      %00001100
DA9F  00C8 0064                 DATA    200,100
DAA3  30                        DB      %00110000
DAA4  0190 00C8                 DATA    400,200
DAA8  C0                        DB      %11000000
DAA9  03E8 01F4                 DATA    1000,500
DAAD  03                N2DTB2  DB      %00000011
DAAE  07D0 03E8                 DATA    2000,1000
                        ;
DAB2  03                NRDTB3  DB      %00000011               
DAB3  00FA 0032                 DATA    250,50
DAB7  0C                        DB      %00001100
DAB8  01F4 0064                 DATA    500,100
DABC  30                        DB      %00110000
DABD  03E8 00C8                 DATA    1000,200
DAC1  C0                        DB      %11000000
DAC2  09C4 01F4                 DATA    2500,500
DAC6  03                N2DTB3  DB      %00000011
DAC7  1388 03E8                 DATA    5000,1000
                        ;
DACB  03                NRDTUK  DB      %00000011               
DACC  000A 0002                 DATA    10,2 
DAD0  0C                        DB      %00001100
DAD1  0032 000A                 DATA    50,10
DAD5  30                        DB      %00110000
DAD6  0064 0014                 DATA    100,20
DADA  C0                        DB      %11000000
DADB  00C8 0028                 DATA    200,40
DADF  03                N2DTUK  DB      %00000011
DAE0  0000 0000                 DATA    0,0
                        ;
DAE4  03                NRDTU3  DB      %00000011               
DAE5  0008 0002                 DATA    8,2 
DAE9  0C                        DB      %00001100
DAEA  0028 000A                 DATA    40,10
DAEE  30                        DB      %00110000
DAEF  0050 0014                 DATA    80,20
DAF3  C0                        DB      %11000000
DAF4  00A0 0028                 DATA    160,40
DAF8  03                N2DTU3  DB      %00000011
DAF9  0000 0000                 DATA    0,0
                        ;
DAFD  03                NRDTU2  DB      %00000011               
DAFE  0004 0002                 DATA    4,2 
DB02  0C                        DB      %00001100
DB03  0014 000A                 DATA    20,10
DB07  30                        DB      %00110000
DB08  0028 0014                 DATA    40,20
DB0C  C0                        DB      %11000000
DB0D  0050 0028                 DATA    80,40
DB11  03                N2DTU2  DB      %00000011
DB12  0000 0000                 DATA    0,0
                        ;
DB16  B6 0F00           MUXSER  LDAA    00F00           READ SWITCH STATUS
DB19  7F 0B00                   CLR     00B00
DB1C  7F 0A00                   CLR     00A00
DB1F  7F 0A02                   CLR     00A02           LAMP SINKS OFF
DB22  BE 0133                   LDX     MUXPHI
DB25  A7 89 0117                STAA    SWSTAT,X        SAVE SWITCH STATUS
                        ;
DB29  B6 0134                   LDAA    MUXPHI+1
DB2C  4C                        INCA
DB2D  84 07                     ANDA    #007
DB2F  B7 0134                   STAA    MUXPHI+1        UPDATE PHI
DB32  34 02 E6E0                TAB
DB36  58                        ASLB
DB37  F7 0136                   STAB    MUXPH2+1
                        ;
DB3A  48                        ASLA
DB3B  34 02 E6E0                TAB
DB3F  C4 08                     ANDB    #008
DB41  CA 34                     ORAB    #034
DB43  F7 0F01                   STAB    00F01           PHI MSB
                        ;
DB46  48                        ASLA
DB47  34 02 E6E0                TAB
DB4B  C4 08                     ANDB    #008
DB4D  CA 34                     ORAB    #034
DB4F  F7 0B01                   STAB    00B01           PHI MID
                        ;
DB52  48                        ASLA
DB53  34 02 E6E0                TAB
DB57  C4 08                     ANDB    #008
DB59  CA 34                     ORAB    #034
DB5B  F7 0E01                   STAB    00E01           PHI LSB
                        ;
DB5E  BE 0135                   LDX     MUXPH2
DB61  F6 015D                   LDAB    CLOCK4
DB64  C5 20                     BITB    #020            WAS 040
DB66  10 27 0020                BEQ     MUX30
DB6A  C5 10                     BITB    #010            WAS 020
DB6C  10 27 000D                BEQ     MUX25
DB70  A6 89 00FF                LDAA    LPSTAT+48,X
DB74  34 02                     PSHA
DB76  A6 89 0100                LDAA    LPSTAT+49,X
DB7A  7E DBA7                   JMP     MUX40
DB7D  A6 89 00EF        MUX25   LDAA    LPSTAT+32,X
DB81  34 02                     PSHA
DB83  A6 89 00F0                LDAA    LPSTAT+33,X
DB87  7E DBA7                   JMP     MUX40
DB8A  C5 10             MUX30   BITB    #010            WAS 020
DB8C  10 27 000D                BEQ     MUX35
DB90  A6 89 00DF                LDAA    LPSTAT+16,X
DB94  34 02                     PSHA
DB96  A6 89 00E0                LDAA    LPSTAT+17,X
DB9A  7E DBA7                   JMP     MUX40
DB9D  A6 89 00CF        MUX35   LDAA    LPSTAT,X
DBA1  34 02                     PSHA
DBA3  A6 89 00D0                LDAA    LPSTAT+1,X
DBA7  7A 0A00           MUX40   DEC     00A00
DBAA  7A 0A02                   DEC     00A02
DBAD  BE 0133                   LDX     MUXPHI
DBB0  E6 89 010F                LDAB    OVSTAT,X
DBB4  54                        LSRB
DBB5  10 27 0005                BEQ     MUX45           IF NO OVERLOAD ...
DBB9  35 02                     PULA
DBBB  4F                        CLRA
DBBC  34 02                     PSHA
DBBE  B7 0A02           MUX45   STAA    00A02
DBC1  35 02                     PULA
DBC3  B7 0A00                   STAA    00A00           ... DRIVE SINKS
                        ;
DBC6  BE 0133                   LDX     MUXPHI
DBC9  A6 89 011F                LDAA    SSSTAT,X
DBCD  B7 0B00                   STAA    00B00
                        ;
DBD0  BE 0133                   LDX     MUXPHI
DBD3  B6 0B02                   LDAA    00B02
DBD6  44                        LSRA
DBD7  10 25 0010                BCS     MUX50           IF NO OVERLOAD ...
DBDB  E6 89 010F                LDAB    OVSTAT,X
DBDF  54                        LSRB
DBE0  10 26 0007                BNE     MUX50           ... AND NOT RECOVERING
DBE4  6F 89 010F                CLR     OVSTAT,X
DBE8  7E DBF2                   BRA     MUX55           ... CLEAR O/LD STATUS
DBEB  6C 89 010F        MUX50   INC     OVSTAT,X
                        ;
DBEF  7E DCF6                   JMP     MUX60
                        ;
DBF2  B6 0C02           MUX55   LDAA    00C02
DBF5  44                        LSRA
DBF6  44                        LSRA
DBF7  44                        LSRA
DBF8  44                        LSRA
DBF9  BA 0127                   ORAA    MARMEM
DBFC  B7 0127                   STAA    MARMEM
DBFF  B6 0C00                   LDAA    00C00
DC02  84 0F                     ANDA    #00F
DC04  BA 012B                   ORAA    NOTMEM
DC07  B7 012B                   STAA    NOTMEM
DC0A  B6 0C00                   LDAA    00C00
DC0D  84 10                     ANDA    #010
DC0F  44                        LSRA
DC10  44                        LSRA
DC11  44                        LSRA
DC12  44                        LSRA
DC13  BA 012F                   ORAA    NOTME2
DC16  B7 012F                   STAA    NOTME2
DC19  F6 0134                   LDAB    MUXPHI+1
DC1C  10 26 00D6                BNE     MUX60
DC20  4F                        CLRA
DC21  F6 0127                   LDAB    MARMEM
DC24  54                        LSRB
DC25  10 24 0002                BCC     MUX55A
DC29  8B 04                     ADDA    #4
DC2B  54                MUX55A  LSRB
DC2C  10 24 0002                BCC     MUX56
DC30  8B 10                     ADDA    #16
DC32  54                MUX56   LSRB
DC33  10 24 0002                BCC     MUX57
DC37  8B 01                     ADDA    #1
DC39  54                MUX57   LSRB
DC3A  10 24 0002                BCC     MUX58
DC3E  8B 40                     ADDA    #64
DC40  7F 0127           MUX58   CLR     MARMEM
DC43  F6 012A                   LDAB    CXMEM3
DC46  34 04                     PSHB
DC48  F6 0129                   LDAB    CXMEM2
DC4B  F7 012A                   STAB    CXMEM3
DC4E  F6 0128                   LDAB    CXMEM1
DC51  F7 0129                   STAB    CXMEM2
DC54  B7 0128                   STAA    CXMEM1
DC57  35 02                     PULA
DC59  B4 012A                   ANDA    CXMEM3
DC5C  43                        COMA
DC5D  BA 0129                   ORAA    CXMEM2
DC60  BA 0128                   ORAA    CXMEM1
DC63  43                        COMA
DC64  10 27 0006                BEQ     MUX59
DC68  BB 013B                   ADDA    COININ
DC6B  B7 013B                   STAA    COININ
DC6E  4F                MUX59   CLRA
DC6F  F6 012B                   LDAB    NOTMEM
DC72  54                        LSRB
DC73  10 24 0002                BCC     NUX55A
DC77  8B 01                     ADDA    #1
DC79  54                NUX55A  LSRB
DC7A  10 24 0002                BCC     NUX56
DC7E  8B 04                     ADDA    #4 
DC80  54                NUX56   LSRB
DC81  10 24 0002                BCC     NUX57
DC85  8B 10                     ADDA    #16
DC87  54                NUX57   LSRB
DC88  10 24 0002                BCC     NUX58
DC8C  8B 40                     ADDA    #64
DC8E  7F 012B           NUX58   CLR     NOTMEM
DC91  F6 012E                   LDAB    DXMEM3
DC94  34 04                     PSHB
DC96  F6 012D                   LDAB    DXMEM2
DC99  F7 012E                   STAB    DXMEM3
DC9C  F6 012C                   LDAB    DXMEM1
DC9F  F7 012D                   STAB    DXMEM2
DCA2  B7 012C                   STAA    DXMEM1
DCA5  35 02                     PULA
DCA7  B4 012E                   ANDA    DXMEM3
DCAA  43                        COMA
DCAB  BA 012D                   ORAA    DXMEM2
DCAE  BA 012C                   ORAA    DXMEM1
DCB1  43                        COMA
DCB2  10 27 0006                BEQ     NUX59
DCB6  BB 013F                   ADDA    NOTEIN
DCB9  B7 013F                   STAA    NOTEIN
DCBC  4F                NUX59   CLRA
DCBD  F6 012F                   LDAB    NOTME2
DCC0  54                        LSRB
DCC1  10 24 0002                BCC     PUX55A
DCC5  8B 01                     ADDA    #1
DCC7  7F 012F           PUX55A  CLR     NOTME2
DCCA  F6 0132                   LDAB    EXMEM3
DCCD  34 04                     PSHB
DCCF  F6 0131                   LDAB    EXMEM2
DCD2  F7 0132                   STAB    EXMEM3
DCD5  F6 0130                   LDAB    EXMEM1
DCD8  F7 0131                   STAB    EXMEM2
DCDB  B7 0130                   STAA    EXMEM1
DCDE  35 02                     PULA
DCE0  B4 0132                   ANDA    EXMEM3
DCE3  43                        COMA
DCE4  BA 0131                   ORAA    EXMEM2
DCE7  BA 0130                   ORAA    EXMEM1
DCEA  43                        COMA
DCEB  10 27 0006                BEQ     PUX59
DCEF  BB 0140                   ADDA    NOTEIN+1
DCF2  B7 0140                   STAA    NOTEIN+1
DCF5  39                PUX59   RTS
                        ;
DCF6  7E DD4D           MUX60   JMP     FLDSER
                        ;
                        ;******************************************************
                        ;
                                NAME    SSHEX
                        ;
                                *P
                        ;
                                EXT     SSHEX4,SSHEX0,ADDA2X,HTAB
                        ;
DCF9  44                SSHEX4  LSRA
DCFA  44                        LSRA
DCFB  44                        LSRA
DCFC  44                        LSRA
DCFD  8E DD17           SSHEX0  LDX     #SEVENS
DD00  84 0F                     ANDA    #00F
DD02  10 26 0005                BNE     SSH20
DD06  5D                        TSTB
DD07  10 27 000B                BEQ     SSH40
DD0B  BD F0E7           SSH20   JSR     ADDA2X
DD0E  A6 89 0000                LDAA    0,X
DD12  34 02 E6E0                TAB
DD16  39                SSH40   RTS
                        ;
DD17  3F                SEVENS  DB      A+B+C+D+E+F
DD18  06                        DB      B+C
DD19  5B                        DB      A+B+G+E+D
DD1A  4F                        DB      A+B+G+C+D
DD1B  66                        DB      F+G+B+C
DD1C  6D                        DB      A+F+G+C+D
DD1D  7D                        DB      A+F+G+C+D+E
DD1E  07                        DB      A+B+C
DD1F  7F                        DB      A+B+C+D+E+F+G
DD20  67                        DB      A+B+G+F+C
DD21  77                        DB      A+B+C+E+F+G
DD22  7C                        DB      F+E+G+C+D
DD23  39                        DB      A+F+E+D
DD24  5E                        DB      B+C+D+E+G
DD25  79                        DB      A+F+G+E+D
DD26  71                        DB      A+F+G+E
                        ;
      0001              A       EQU     001
      0002              B       EQU     002
      0004              C       EQU     004
      0008              D       EQU     008
      0010              E       EQU     010
      0020              F       EQU     020
      0040              G       EQU     040
      0080              DP      EQU     080
                        ;
DD27  01 02 04 08 10 20 HTAB    DB      A,B,C,D,E,F
                        ;
                        ;******************************************************
                        ;
                                NAME    HEXDY0
                                *P
                        ;
                                EXT     HEXDY0,HEXDY4
                        ;
DD2D  44                HEXDY4  LSRA
DD2E  44                        LSRA
DD2F  44                        LSRA
DD30  44                        LSRA
DD31  84 0F             HEXDY0  ANDA    #00F
DD33  10 26 000A                BNE     HEX20
DD37  5D                        TSTB
DD38  10 26 0006                BNE     HEX30
DD3C  86 20                     LDAA    #020
DD3E  7E DD4C                   BRA     HEX60
DD41  5C                HEX20   INCB
DD42  81 0A             HEX30   CMPA    #10
DD44  10 25 0002                BLO     HEX50
DD48  8B C7                     ADDA    #007-040
DD4A  8B 30             HEX50   ADDA    #030
DD4C  39                HEX60   RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    FLDSER
                                *B
                                EXT     FLDSER,FDSTAT,FDPOSN,FDCONT
                        ;
0141  3C 2D 46 6C 75 6F FDSTAT  DB      "<-Fluo Display->"
0151  23                FDPOSN  DB      "#"
0152  43                FDCONT  DB      "C"
                        ;
                                *P
                        ;
                        ;       Drive 16 character Fluorescent display
                        ;
DD4D  B6 0151           FLDSER  LDAA    FDPOSN
DD50  4A                        DECA
DD51  B7 0151                   STAA    FDPOSN
DD54  5F                        CLRB
DD55  84 1F                     ANDA    #01F
DD57  8B 82                     ADDA    #(FDSTAT<1)&255
DD59  C9 02                     ADCB    #(FDSTAT>7)&255
DD5B  54                        LSRB
DD5C  46                        RORA
DD5D  34 02                     PSHA
DD5F  34 04                     PSHB
DD61  1F 41                     TSX
DD63  AE 89 0000                LDX     0,X
DD67  32 61                     INS
DD69  32 61                     INS
DD6B  10 25 002A                BCS     MUX72
DD6F  E6 89 0000                LDAB    0,X
DD73  C4 C0                     ANDB    #0C0
DD75  10 27 0013                BEQ     MUX70
DD79  86 2C                     LDAA    #","
DD7B  C1 80                     CMPB    #080
DD7D  10 27 001E                BEQ     MUX80
DD81  86 2E                     LDAA    #"."
DD83  C1 40                     CMPB    #040
DD85  10 27 0016                BEQ     MUX80
DD89  7E DDD2                   BRA     MUX90
DD8C  B6 0152           MUX70   LDAA    FDCONT
DD8F  10 27 003F                BEQ     MUX90
DD93  7F 0152                   CLR     FDCONT
DD96  7E DD9F                   BRA     MUX80
DD99  A6 89 0000        MUX72   LDAA    0,X
DD9D  84 3F                     ANDA    #03F
DD9F  BD DDA2           MUX80   BSR     MUX82
DDA2  BD DDA5           MUX82   BSR     MUX84
DDA5  BD DDA8           MUX84   BSR     MUX86
                        ;
DDA8  48                MUX86   ASLA
DDA9  10 25 0014                BCS     MUX88
DDAD  C6 3C                     LDAB    #03C
DDAF  F7 0A03                   STAB    00A03           CLK,RESET ON
DDB2  F7 0F03                   STAB    00F03
DDB5  C6 34                     LDAB    #034
DDB7  F7 0A01                   STAB    00A01           DATA    OFF
DDBA  12                        NOP
DDBB  F7 0F03                   STAB    00F03           CLK     OFF
DDBE  7E DDD2                   JMP     MUX90
DDC1  C6 3C             MUX88   LDAB    #03C
DDC3  F7 0A01                   STAB    00A01
DDC6  F7 0F03                   STAB    00F03
DDC9  F7 0A03                   STAB    00A03
DDCC  12                        NOP
DDCD  C6 34             MUX89   LDAB    #034
DDCF  F7 0F03                   STAB    00F03           CLK OFF
DDD2  39                MUX90   RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    SSDSER
                                *P
                                EXT     SSDSER
                        ;
DDD3  39                SSDSER  RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    PROFDI
                                *P
                                EXT     PROFDI
                                EXT     PROFDX,SWOPSX
                        ;
DDD4  BD F109           PROFDI  JSR     SWOPSX
DDD7  BD DDDE                   BSR     PROFDX
DDDA  BD F109                   JSR     SWOPSX
DDDD  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    PROFDX
                                *P
                                EXT     PROFDX
                                EXT     QCLEAR,QDELAY,QRESET
                        ;
                                EXT     FDCONT,DELAYI,FDPOSN,FDSTAT,CLOCK1
                                EXT     MOVX2S,MOVS2X,ADDA2X,SWOPSX
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
                                OPT     D
                        ;
      0010              QCLEAR  EQU     010
      0011              QRESET  EQU     011
      0012              QDELAY  EQU     012
                        ;
DDDE  34 02             PROFDX  PSHA
DDE0  34 04                     PSHB
DDE2                            PSHX
DDE4  8E 0141                   LDX     #FDSTAT+0
DDE7  BD F109                   JSR     SWOPSX
DDEA  A6 89 0000        PDX10   LDAA    0,X
DDEE  30 01                     INX
DDF0  81 10                     CMPA    #010
DDF2  10 25 001C                BLO     PDX20
DDF6  81 20                     CMPA    #020
DDF8  10 25 0063                BLO     PDX50
DDFC  81 60                     CMPA    #060
DDFE  10 25 001F                BLO     PDX30
DE02  81 80                     CMPA    #080
DE04  10 25 004F                BLO     PDX40
DE08  BD F109                   JSR     SWOPSX
DE0B                            PULX
DE0D  35 04                     PULB
DE0F  35 02                     PULA
DE11  39                        RTS
                        ;
DE12  BD F109           PDX20   JSR     SWOPSX
DE15  8E 0141                   LDX     #FDSTAT+0
DE18  BD F0E7                   JSR     ADDA2X
DE1B  BD F109                   JSR     SWOPSX
DE1E  7E DDEA                   BRA     PDX10
                        ;
DE21  BD F109           PDX30   JSR     SWOPSX
DE24  C6 40                     LDAB    #040
DE26  81 2E                     CMPA    #"."
DE28  10 27 001D                BEQ     PDX33
DE2C  C6 80                     LDAB    #080
DE2E  81 2C                     CMPA    #","
DE30  10 27 0015                BEQ     PDX33
DE34  84 3F                     ANDA    #03F
DE36  A8 89 0000                EORA    0,X
DE3A  84 3F                     ANDA    #03F
DE3C  A8 89 0000                EORA    0,X
DE40  A7 89 0000                STAA    0,X
DE44  30 01                     INX
DE46  7E DE51                   BRA     PDX36
DE49  EA 89 0000        PDX33   ORAB    0,X
DE4D  E7 89 0000                STAB    0,X
DE51  BD F109           PDX36   JSR     SWOPSX
DE54  7E DDEA                   BRA     PDX10
                        ;
DE57  8A 80             PDX40   ORAA    #080
DE59  B7 0152                   STAA    FDCONT
DE5C  7E DDEA                   BRA     PDX10
                        ;
DE5F  84 0F             PDX50   ANDA    #00F
DE61  48                        ASLA
DE62                            PSHX
DE64  8E DE71                   LDX     #PDX55
DE67  BD F0E7                   JSR     ADDA2X
DE6A  AE 89 0000                LDX     0,X
DE6E                            PSHX
DE70  39                        RTS
                        ;
DE71  DE91 DE97 DEB3 DE PDX55   DATA    PDX60,PDX61,PDX62,PDX61
DE79  DE91 DE97 DEB3 DE         DATA    PDX60,PDX61,PDX62,PDX61
DE81  DE91 DE97 DEB3 DE         DATA    PDX60,PDX61,PDX62,PDX61
DE89  DE91 DE97 DEB3 DE         DATA    PDX60,PDX61,PDX62,PDX61
                        ;
DE91  BD DEC7           PDX60   BSR     PCLEAR          Clear Display
DE94  7E DEC2                   BRA     PDX6F
                        ;
DE97  86 E0             PDX61   LDAA    #0E0
DE99  B7 0152                   STAA    FDCONT
DE9C  BD DED7                   BSR     PRESET          Reset Display
DE9F  86 E0                     LDAA    #0E0
DEA1  B7 0152                   STAA    FDCONT
DEA4  BD DEC7                   BSR     PCLEAR
DEA7  BD EF5E                   JSR     DELAYI
DEAA  0A                        DB      10
DEAB  86 FF                     LDAA    #0FF
DEAD  B7 0152                   STAA    FDCONT
DEB0  7E DEC2                   BRA     PDX6F
                        ;
DEB3  B6 015B           PDX62   LDAA    CLOCK1
DEB6  8B 05                     ADDA    #5
DEB8  B1 015B           PDX6E   CMPA    CLOCK1
DEBB  10 2A FFF9                BPL     PDX6E
DEBF  7E DEC2                   BRA     PDX6F
                        ;
DEC2                    PDX6F   PULX
DEC4  7E DDEA                   JMP     PDX10
                        ;
DEC7  8E FFF0           PCLEAR  LDX     #-16
DECA  86 20                     LDAA    #020
DECC  A7 89 0151        PCL10   STAA    FDSTAT+16,X
DED0  30 01                     INX
DED2  10 26 FFF6                BNE     PCL10
DED6  39                        RTS
                        ;
DED7  86 19             PRESET  LDAA    #25
DED9  3C FF                     WAI
DEDB  1A 10                     SEI
DEDD  C6 34                     LDAB    #034
DEDF  F7 0F03                   STAB    00F03
DEE2  F7 0A03                   STAB    00A03
DEE5  F7 0A01                   STAB    00A01
DEE8  4A                PRE50   DECA
DEE9  10 26 FFFB                BNE     PRE50
DEED  B7 0151                   STAA    FDPOSN
DEF0  C6 3C                     LDAB    #03C
DEF2  F7 0A03                   STAB    00A03
DEF5  1C EF                     CLI
DEF7  39                        RTS
                        ;
                        ;*********************************************************
                        ;
DEF8  34 04             BINBCD  PSHB
DEFA  34 02 E6E0                TAB
DEFE  4F                        CLRA
DEFF  5D                BIN20   TSTB
DF00  10 27 0007                BEQ     BIN50
DF04  5A                        DECB
DF05  8B 01                     ADDA    #001
DF07  19                        DAA
DF08  7E DEFF                   BRA     BIN20
DF0B  35 04             BIN50   PULB
DF0D  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
                                NAME    METSER
                                *B
                                EXT     METSER,TCSTAT
                        ;
                                EXT     MCOUNT,SBDOOR,MMNULL,SWSTAT,CLOCK1
                                EXT     SLIDES,MET50V
                        ;
0153  54                TCSTAT  DB      'T'
                        ;
                                *P
                        ;
                        ;------------------------------------------------------
                        ;
DF0E  B6 015B           METSER  LDAA    CLOCK1
DF11  84 1F                     ANDA    #01F
DF13  10 27 001D                BEQ     MET10
DF17  81 14                     CMPA    #014
DF19  10 26 0029                BNE     MET40
DF1D  7F 023A                   CLR     MMNULL
DF20  8E 0232                   LDX     #MCOUNT
DF23  C6 00                     LDAB    #SLIDES
DF25  BD DF47                   BSR     MET80
DF28  34 04                     PSHB                    ( Slides )
DF2A  C6 F0                     LDAB    #MET50V
DF2C  BD DF47                   BSR     MET80
DF2F  34 04                     PSHB
DF31  7E DF38                   BRA     MET20           
DF34  34 02             MET10   PSHA
DF36  34 02                     PSHA
DF38  35 02             MET20   PULA
DF3A  35 04                     PULB
DF3C  34 04 ABE0                ABA
DF40  BA 0153                   ORAA    TCSTAT
DF43  B7 0F02                   STAA    00F02
DF46  39                MET40   RTS
                        ;
DF47  86 F7             MET80   LDAA    #-9
DF49  1C FE                     CLC
DF4B  56                MET82   RORB
DF4C  10 24 0030                BCC     MET90
DF50  1C FE                     CLC
DF52  6D 89 0000                TST     0,X
DF56  10 26 0008                BNE     MET83
DF5A  6D 89 0001                TST     1,X
DF5E  10 27 001A                BEQ     MET85
DF62  34 02             MET83   PSHA
DF64  86 FF                     LDAA    #0FF
DF66  AB 89 0001                ADDA    1,X
DF6A  A7 89 0001                STAA    1,X
DF6E  86 FF                     LDAA    #0FF
DF70  A9 89 0000                ADCA    0,X
DF74  A7 89 0000                STAA    0,X
DF78  35 02                     PULA
DF7A  1A 01                     SEC
DF7C  30 01             MET85   INX
DF7E  30 01                     INX
DF80  4C                MET90   INCA
DF81  10 26 FFC6                BNE     MET82
DF85  39                        RTS
                        ;
                        ;*****************************************************
                        ;
                        ;       Display Routines for Flourescent Display
                        ;
                        ;
                                NAME    DYCRD1
                        ;
                                *P
                        ;
                                EXT     DYCRD1,DYCLIM
                                EXT     DYGWIN,DYWIN,DYGLOS
                                EXT     DYBG,DYBW,DYBL
                                EXT     DYBLK1
                                EXT     ZCRD1H,ZCRD1T,ZCRD1U
                                EXT     ZGAMH,ZGAMT,ZGAMU,ZWINH,ZWINT
                                EXT     ZWINU,ZLOSEU
                                EXT     DYCLR,DYCLMS
                                EXT     DYNM1,DYNM2
                                EXT     DYFM4,DYFM5,DYFM6,DYFM7,DYFM8
                                EXT     DYFM9,DYFM11,DYFM13
                                EXT     DYEURO
                                EXT     DYREFM,DYRS1,DYRS2,DYRL1,DYRL2
                                EXT     DYRS5,DYRL5
                                EXT     DYC20
                                EXT     DYNUJ,DYBNW
                                EXT     DYCRDS
                                EXT     DYFMSN
                                EXT     DYBIJ
                                EXT     DYFM3
                                EXT     DISMYS
                                EXT     DYGLST
                                EXT     DISMWN
                                EXT     DYWSHT
                                EXT     DISMVL,DISMRL,DYPOT,DYHM,CLRPOT,CLRHM
                        ;
                                EXT     CLIMIT,FDSTAT,HEXDY4
                                EXT     HEXDY0,CRED1
                                EXT     PROFDI,QCLEAR,QRESET
                                EXT     RHBANK,RCFLAG
                                EXT     QDELAY,SILENT,DELAYI
                                EXT     NUMNUJ,ADJWV,CONWIN
                                EXT     MOVX2S,MOVS2X,NALT
                                EXT     WIN,GALT,TIMER,WINFX,TWINFX
                                EXT     LSTAK1,LSTAK2,LSTAK5
                                EXT     ADDA2X,PROFDX,PRLPSI,TESTSI,FF1,LTOPST,STOPST
                                EXT     WINVAL,ADJWA,CONW10,GALT,GAMTYP,GLOSE1,GLOSE2,GWIN1,GWIN2
                                EXT     CONCRD,CONPAI,DPAID,DISGL,DISGV,DISGW,DISGWL,OMYS,MTIMER
                                EXT     SSSTAT,SSHEX4,SSHEX0,OF,ON,LLWL1B,LLWL2B,LLWL3B,MUSOKI
                                EXT     DYLEDK,DYLEDH,DYLEDT,DYLEDU,LLWL1A,LLWL2A,LLWL3A,LSTK5
                                EXT     DYRS25,DYRL25,DISPOT,CONPOT,DISSTK,STAKE,PRLPLI,LPTERM
                                EXT     SWINK,SWINH,SWINT,SWINU,SCRDK,SCRDH,SCRDT,SCRDU
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
      000B              ZCRD0   EQU     11
      000C              ZCRD1   EQU     12
      000D              ZCRD2   EQU     13
      000E              ZCRD3   EQU     14
                        ;
      0001              ZWIN0   EQU     1
      0002              ZWIN1   EQU     2
      0003              ZWIN2   EQU     3
      0004              ZWIN3   EQU     4
                        ;
      0008              ZSTK0   EQU     8
                        ;
      0000              STOPU   EQU     0       
      0001              STOPT   EQU     1       
      0002              STOPH   EQU     2       
      0003              STOPK   EQU     3
                        ;
      0004              SPOTU   EQU     4
      0005              SPOTT   EQU     5
      0006              SPOTH   EQU     6
      0007              SPOTK   EQU     7
                        ;
DF86  39                DYBLK1  RTS
                        ;
DF87  BD DDD4           DYCLR   JSR     PROFDI
DF8A  10                        DB      QCLEAR
DF8B  80                        DB      080
DF8C  39                        RTS
                        ;
DF8D  BD DDD4           DYBIJ   JSR     PROFDI
DF90  11                        DB      QRESET
DF91  03 20 52 45 46 49         DB      3,' REFILL  '
DF9B  7F 80                     DB      07F,080
DF9D  39                        RTS
                        ;
DF9E  BD DDD4           DYREFM  JSR     PROFDI
DFA1  11                        DB      QRESET
DFA2  00 31 3D 20 20 32         DB      0,'1=  2=  5=  10= '
DFB3  7F 80                     DB      07F,080
DFB5  39                        RTS
                        ;
DFB6  BD DDD4           DYRS25  JSR     PROFDI
DFB9  02 48                     DB      2,'H'
DFBB  7F 80                     DB      07F,080
DFBD  39                        RTS
                        ;
DFBE  BD DDD4           DYRL25  JSR     PROFDI
DFC1  02 4C                     DB      2,'L'
DFC3  7F 80                     DB      07F,080
DFC5  39                        RTS
                        ;
DFC6  BD DDD4           DYRS1   JSR     PROFDI
DFC9  06 48                     DB      6,'H'
DFCB  7F 80                     DB      07F,080
DFCD  39                        RTS
                        ;
DFCE  BD DDD4           DYRL1   JSR     PROFDI
DFD1  06 4C                     DB      6,'L'
DFD3  7F 80                     DB      07F,080
DFD5  39                        RTS
                        ;
DFD6  BD DDD4           DYRS2   JSR     PROFDI
DFD9  0A 48                     DB      10,'H'
DFDB  7F 80                     DB      07F,080
DFDD  39                        RTS
                        ;
DFDE  BD DDD4           DYRL2   JSR     PROFDI
DFE1  0A 4C                     DB      10,'L'
DFE3  7F 80                     DB      07F,080
DFE5  39                        RTS
                        ;
DFE6  BD DDD4           DYRS5   JSR     PROFDI
DFE9  0F 48                     DB      15,'H'
DFEB  7F 80                     DB      07F,080
DFED  39                        RTS
                        ;
DFEE  BD DDD4           DYRL5   JSR     PROFDI
DFF1  0F 4C                     DB      15,'L'
DFF3  7F 80                     DB      07F,080
DFF5  39                        RTS
                        ;
DFF6  34 02             DPAID   PSHA
DFF8  34 04                     PSHB
DFFA  BD B653                   JSR     CONPAI
DFFD  7E E007                   BRA     DYC10
                        ;
E000  34 02             DYCRD1  PSHA
E002  34 04                     PSHB
E004  BD B659                   JSR     CONCRD
E007  34 02             DYC10   PSHA
E009  34 02                     PSHA
E00B  34 04 A6E0                TBA
E00F  5F                        CLRB
E010  34 02                     PSHA
E012  BD DD2D                   JSR     HEXDY4
E015  B7 014C                   STAA    FDSTAT+ZCRD0
E018  35 02                     PULA
E01A  BD DD31                   JSR     HEXDY0
E01D  B7 014D                   STAA    FDSTAT+ZCRD1
E020  35 02                     PULA
E022  BD DD2D                   JSR     HEXDY4
E025  B7 014E                   STAA    FDSTAT+ZCRD2
E028  35 02                     PULA
E02A  5C                        INCB
E02B  BD DD31                   JSR     HEXDY0
E02E  B7 014F                   STAA    FDSTAT+ZCRD3
E031  35 04                     PULB
E033  35 02                     PULA
E035  39                        RTS
                        ;
                        ;       DYWIN   ENTERED WITH A:-LSB WIN,B:-MSB WIN
                        ;
E036  34 02             DYWIN   PSHA
E038  34 04                     PSHB
E03A  34 02                     PSHA
E03C  34 02                     PSHA
E03E  34 04 A6E0                TBA
E042  5F                        CLRB
E043  34 02                     PSHA
E045  BD DD2D                   JSR     HEXDY4
E048  B7 0142                   STAA    FDSTAT+ZWIN0
E04B  35 02                     PULA
E04D  BD DD31                   JSR     HEXDY0
E050  B7 0143                   STAA    FDSTAT+ZWIN1
E053  35 02                     PULA
E055  BD DD2D                   JSR     HEXDY4
E058  B7 0144                   STAA    FDSTAT+ZWIN2
E05B  35 02                     PULA
E05D  5C                        INCB
E05E  BD DD31                   JSR     HEXDY0
E061  B7 0145                   STAA    FDSTAT+ZWIN3
E064  35 04                     PULB
E066  35 02                     PULA
E068  39                        RTS
                        ;
E069  34 02             WINFX   PSHA
E06B                            PSHX
E06D  7F 0055                   CLR     GALT
E070  7F 0047                   CLR     NALT
E073  8E 0000                   LDX     #0
E076  BF 015E                   STX     TIMER
E079  BE 015E           WFX100  LDX     TIMER
E07C  10 26 FFF9                BNE     WFX100
E080  8E 000F                   LDX     #15
E083  BF 015E                   STX     TIMER
E086  B6 0055                   LDAA    GALT
E089  4C                        INCA
E08A  81 03                     CMPA    #3
E08C  10 25 0001                BLO     WFX150
E090  4F                        CLRA
E091  B7 0055           WFX150  STAA    GALT
E094  10 27 002B                BEQ     WFX250
E098  81 02                     CMPA    #2
E09A  10 27 0019                BEQ     WFX200
E09E  B6 0047                   LDAA    NALT
E0A1  4C                        INCA
E0A2  81 02                     CMPA    #2                      was 5
E0A4  10 27 0027                BEQ     WFX900
E0A8  B7 0047                   STAA    NALT
E0AB  BD DDD4                   JSR     PROFDI
E0AE  02 24 20 20 7F 80         DB      2,'$  ',07F,080
E0B4  7E E0CC                   BRA     WFX300
E0B7  BD DDD4           WFX200  JSR     PROFDI
E0BA  02 20 24 20 7F 80         DB      2,' $ ',07F,080
E0C0  7E E0CC                   BRA     WFX300
E0C3  BD DDD4           WFX250  JSR     PROFDI
E0C6  02 20 20 24 7F 80         DB      2,'  $',07F,080
E0CC  7E E079           WFX300  BRA     WFX100
E0CF                    WFX900  PULX
E0D1  35 02                     PULA
E0D3  39                        RTS
                        ;
E0D4  34 02             TWINFX  PSHA
E0D6                            PSHX
E0D8  7F 0055                   CLR     GALT
E0DB  8E 0000                   LDX     #0
E0DE  BF 015E                   STX     TIMER
E0E1  8E 076C                   LDX     #1900           for dd3 2000
E0E4  BF 0045                   STX     MTIMER
E0E7  BD D511                   JSR     MUSOKI
E0EA  011A                      DATA    OMYS
E0EC  BD EFB9                   JSR     PRLPSI
E0EF  85 42                     DB      FF1,LTOPST
E0F1  BD F098           TFX100  JSR     TESTSI
E0F4  1D                        DB      STOPST
E0F5  10 26 0039                BNE     TFX900
E0F9  BE 0045                   LDX     MTIMER
E0FC  10 27 0032                BEQ     TFX900          timeout after 1 sample play
E100  BE 015E           TFX150  LDX     TIMER
E103  10 26 FFEA                BNE     TFX100
E107  8E 000F                   LDX     #15
E10A  BF 015E                   STX     TIMER
E10D  B6 0055                   LDAA    GALT
E110  4C                        INCA
E111  B7 0055                   STAA    GALT
E114  85 01                     BITA    #001
E116  10 27 000C                BEQ     TFX200
E11A  BD DDD4                   JSR     PROFDI
E11D  02 3F 3F 3F 7F 80         DB      2,'???',07F,080
E123  7E E12F                   BRA     TFX300
E126  BD DDD4           TFX200  JSR     PROFDI
E129  02 20 20 20 7F 80         DB      2,'   ',07F,080
E12F  7E E0F1           TFX300  BRA     TFX100
E132  BD EFB9           TFX900  JSR     PRLPSI
E135  80 42                     DB      OF,LTOPST
E137  BD D4D9                   JSR     SILENT
E13A  BD EF5E                   JSR     DELAYI
E13D  14                        DB      20
E13E                            PULX
E140  35 02                     PULA
E142  39                        RTS
                        ;
E143  34 02             DYHM    PSHA
E145  34 04                     PSHB
E147  34 02                     PSHA
E149  34 02                     PSHA
E14B  34 04 A6E0                TBA
E14F  34 02                     PSHA
E151  5F                        CLRB
E152  BD DCF9                   JSR     SSHEX4
E155  B7 0122                   STAA    SSSTAT+STOPK
E158  35 02                     PULA
E15A  BD DCFD                   JSR     SSHEX0
E15D  B7 0121                   STAA    SSSTAT+STOPH
E160  35 02                     PULA
E162  BD DCF9                   JSR     SSHEX4
E165  B7 0120                   STAA    SSSTAT+STOPT
E168  35 02                     PULA
E16A  5C                        INCB
E16B  BD DCFD                   JSR     SSHEX0
E16E  B7 011F                   STAA    SSSTAT+STOPU
E171  35 04                     PULB
E173  35 02                     PULA
E175  39                        RTS
                        ;
E176  7F 0122           CLRHM   CLR     SSSTAT+STOPK
E179  7F 0121                   CLR     SSSTAT+STOPH
E17C  7F 0120                   CLR     SSSTAT+STOPT
E17F  7F 011F                   CLR     SSSTAT+STOPU
E182  39                        RTS
                        ;
E183  7F 0126           CLRPOT  CLR     SSSTAT+SPOTK
E186  7F 0125                   CLR     SSSTAT+SPOTH
E189  7F 0124                   CLR     SSSTAT+SPOTT
E18C  7F 0123                   CLR     SSSTAT+SPOTU
E18F  39                        RTS
                        ;
E190  34 02             DISPOT  PSHA
E192  34 04                     PSHB
E194  BD B65F                   JSR     CONPOT
E197  34 02                     PSHA
E199  34 02                     PSHA
E19B  34 04 A6E0                TBA
E19F  34 02                     PSHA
E1A1  5F                        CLRB
E1A2  BD DCF9                   JSR     SSHEX4
E1A5  B7 0126                   STAA    SSSTAT+SPOTK
E1A8  35 02                     PULA
E1AA  BD DCFD                   JSR     SSHEX0
E1AD  B7 0125                   STAA    SSSTAT+SPOTH
E1B0  35 02                     PULA
E1B2  BD DCF9                   JSR     SSHEX4
E1B5  B7 0124                   STAA    SSSTAT+SPOTT
E1B8  35 02                     PULA
E1BA  5C                        INCB
E1BB  BD DCFD                   JSR     SSHEX0
E1BE  B7 0123                   STAA    SSSTAT+SPOTU
E1C1  35 04                     PULB
E1C3  35 02                     PULA
E1C5  39                        RTS
                        ;
E1C6  34 02             DISSTK  PSHA
E1C8  34 04                     PSHB
E1CA  B6 0185                   LDAA    STAKE
E1CD  81 05                     CMPA    #5
E1CF  10 27 0033                BEQ     DISS5
E1D3  81 02                     CMPA    #2
E1D5  10 27 0017                BEQ     DISS2
E1D9  BD EF84                   JSR     PRLPLI
E1DC  8F 37 80 47 57            DB      ON,LSTAK1,OF,LSTAK2,LSTAK5
E1E1  8F 33 80 43 53            DB      ON,LLWL1A,OF,LLWL2A,LLWL3A
E1E6  8F 34 80 44 54 64         DB      ON,LLWL1B,OF,LLWL2B,LLWL3B,LSTK5,LPTERM
E1ED  7E E218                   BRA     DISS9
E1F0  BD EF84           DISS2   JSR     PRLPLI
E1F3  8F 47 80 37 57            DB      ON,LSTAK2,OF,LSTAK1,LSTAK5
E1F8  8F 33 43 53               DB      ON,LLWL1A,LLWL2A,LLWL3A
E1FC  8F 34 44 54 80 64         DB      ON,LLWL1B,LLWL2B,LLWL3B,OF,LSTK5,LPTERM
E203  7E E218                   BRA     DISS9
E206  BD EF84           DISS5   JSR     PRLPLI
E209  8F 57 80 47 37            DB      ON,LSTAK5,OF,LSTAK2,LSTAK1
E20E  8F 33 43 53               DB      ON,LLWL1A,LLWL2A,LLWL3A
E212  8F 34 44 54 64 90         DB      ON,LLWL1B,LLWL2B,LLWL3B,LSTK5,LPTERM
E218  35 04             DISS9   PULB
E21A  35 02                     PULA
E21C  39                        RTS
                        ;
E21D  B6 0055           DISGWL  LDAA    GALT
E220  85 01                     BITA    #001
E222  10 26 000D                BNE     DGW40
E226  BD DDD4                   JSR     PROFDI
E229  0B 20 20 20 20 20         DB      11,'     ',080
E230  7E E24F                   BRA     DGL50
E233  BD DDD4           DGW40   JSR     PROFDI
E236  01 20 20 20 20 80         DB      1,'    ',080
E23C  7E E2A2                   BRA     DGW50
                        ;
E23F  BD DDD4           DISGL   JSR     PROFDI
E242  05 20 20 20 20 20         DB      5,'           ',080
E24F  34 02             DGL50   PSHA
E251  34 04                     PSHB
E253  BE 004D                   LDX     GLOSE1
E256  B6 004C                   LDAA    GAMTYP
E259  85 01                     BITA    #001
E25B  10 27 0003                BEQ     DGL100
E25F  BE 004F                   LDX     GLOSE2
E262  BD B66B           DGL100  JSR     CONW10
E265  34 02                     PSHA
E267  34 02                     PSHA
E269  34 04 A6E0                TBA
E26D  5F                        CLRB
E26E  34 02                     PSHA
E270  BD DD2D                   JSR     HEXDY4
E273  B7 0142                   STAA    FDSTAT+ZWIN0
E276  35 02                     PULA
E278  BD DD31                   JSR     HEXDY0
E27B  B7 0143                   STAA    FDSTAT+ZWIN1
E27E  35 02                     PULA
E280  BD DD2D                   JSR     HEXDY4
E283  B7 0144                   STAA    FDSTAT+ZWIN2
E286  35 02                     PULA
E288  5C                        INCB
E289  BD DD31                   JSR     HEXDY0
E28C  B7 0145                   STAA    FDSTAT+ZWIN3
E28F  35 04                     PULB
E291  35 02                     PULA
E293  39                        RTS
                        ;
E294  BD DDD4           DISGW   JSR     PROFDI
E297  20 20 20 20 20 20         DB      '          ',080
E2A2  34 02             DGW50   PSHA
E2A4  34 04                     PSHB
E2A6  BE 0051                   LDX     GWIN1
E2A9  B6 004C                   LDAA    GAMTYP
E2AC  85 01                     BITA    #001
E2AE  10 27 0003                BEQ     DGW100
E2B2  BE 0053                   LDX     GWIN2
E2B5  BD B66B           DGW100  JSR     CONW10
E2B8  34 02                     PSHA
E2BA  34 02                     PSHA
E2BC  34 04 A6E0                TBA
E2C0  5F                        CLRB
E2C1  34 02                     PSHA
E2C3  BD DD2D                   JSR     HEXDY4
E2C6  B7 014C                   STAA    FDSTAT+11   
E2C9  35 02                     PULA
E2CB  BD DD31                   JSR     HEXDY0
E2CE  B7 014D                   STAA    FDSTAT+12   
E2D1  35 02                     PULA
E2D3  BD DD2D                   JSR     HEXDY4
E2D6  B7 014E                   STAA    FDSTAT+13   
E2D9  35 02                     PULA
E2DB  5C                        INCB
E2DC  BD DD31                   JSR     HEXDY0
E2DF  B7 014F                   STAA    FDSTAT+14   
E2E2  35 04                     PULB
E2E4  35 02                     PULA
E2E6  39                        RTS
                        ;
E2E7  34 02             DISGV   PSHA
E2E9  34 04                     PSHB
E2EB  BD DDD4                   JSR     PROFDI
E2EE  11 7F 80                  DB      QRESET,07F,080
E2F1  BE 002F                   LDX     WIN
E2F4  BD B66B                   JSR     CONW10
E2F7  34 02                     PSHA
E2F9  34 02                     PSHA
E2FB  34 04 A6E0                TBA
E2FF  5F                        CLRB
E300  34 02                     PSHA
E302  BD DD2D                   JSR     HEXDY4
E305  B7 0147                   STAA    FDSTAT+6   
E308  35 02                     PULA
E30A  BD DD31                   JSR     HEXDY0
E30D  B7 0148                   STAA    FDSTAT+7   
E310  35 02                     PULA
E312  BD DD2D                   JSR     HEXDY4
E315  B7 0149                   STAA    FDSTAT+8   
E318  35 02                     PULA
E31A  5C                        INCB
E31B  BD DD31                   JSR     HEXDY0
E31E  B7 014A                   STAA    FDSTAT+9   
E321  35 04                     PULB
E323  35 02                     PULA
E325  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
                                NAME    DOVMET
                        ;
                                *P
                                EXT     DOVMET
                                EXT     BINBCD
                        ;
                                EXT     TESTSI,SMETER,PROFDI,QCLEAR,OPWBLP,MUSOKI,VLTGP,VLWIN,VLTRU
                                EXT     VMTGP,VMWIN,VMETER,ADDA2X,MOVX2S,CRVERS,CABVER
                                EXT     MOVS2X,VMTRU,HEXDY4,HEXDY0,SWSTAT
                                EXT     FDSTAT,VMAIM,SGAMBL,SCCASH,SCHOLD
                                EXT     DYCRD1
                                EXT     QIDENT
                                EXT     VMVERS
                                EXT     TESTSW,NATION,TYPE
                                EXT     SHOLD1,SHOLD2,SHOLD3,PROFDX
                                EXT     DELAYI,QRESET,RHBANK,SSTART
                                EXT     SSSTAT,SSHEX4,SSHEX0,LAT,UKR,RUS,CZ
                        ;
                                *P
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
E326  60 00 00 00       DOVPT   DB      060,0,0,0
E32A  76 00 00 00               DB      076,0,0,0
E32E  68 00 00 00               DB      068,0,0,0
E332  84 00 00 00               DB      084,0,0,0
E336  64 00 00 00               DB      064,0,0,0
E33A  80 00 00 00               DB      080,0,0,0
E33E  72 00 00 00               DB      072,0,0,0
E342  88 00 00 00               DB      088,0,0,0
                        ;
E346  E37A E386 E392 E3 XTTAB   DATA    XT1,XT2,XT2A,XT3,XT3A,XT4,XT5,XT6,XT7,XT8,XT9,XT10,XT11,XT12
E362  E422 E42E E43A E4         DATA    LXT2,LXT2A,LXT3,LXT3A
E36A  E452 E45E E46A E4         DATA    LXT4,LXT5,LXT6,LXT8,LXT9,LXT10,LXT11,LXT12
                        ;
E37A  56 45 52 53 49 4F XT1     DB      'VERSION   ',07F,080
E386  43 41 53 48 20 49 XT2     DB      'CASH IN   ',07F,080
E392  4B 45 59 20 49 4E XT2A    DB      'KEY IN    ',07F,080
E39E  43 41 53 48 20 4F XT3     DB      'CASH OUT  ',07F,080
E3AA  4B 45 59 20 4F 55 XT3A    DB      'KEY OUT   ',07F,080
E3B6  50 4C 41 59 53 20 XT4     DB      'PLAYS     ',07F,080
E3C2  57 49 4E 53 20 20 XT5     DB      'WINS      ',07F,080
E3CE  52 45 46 49 4C 4C XT6     DB      'REFILL    ',07F,080
E3DA  50 43 20 53 45 54 XT7     DB      'PC SET    ',07F,080
E3E6  50 43 20 52 55 4E XT8     DB      'PC RUN    ',07F,080
E3F2  4C 4F 57 20 57 49 XT9     DB      'LOW WINS  ',07F,080
E3FE  4C 4F 57 20 50 4C XT10    DB      'LOW PLAYS ',07F,080
E40A  54 4F 50 20 57 49 XT11    DB      'TOP WINS  ',07F,080
E416  54 4F 50 20 50 4C XT12    DB      'TOP PLAYS ',07F,080
                        ;
E422  43 41 53 48 20 49 LXT2    DB      'CASH IN L ',07F,080
E42E  4B 45 59 20 49 4E LXT2A   DB      'KEY IN L  ',07F,080 
E43A  43 41 53 48 20 4F LXT3    DB      'CASH OUT L',07F,080
E446  4B 45 59 20 4F 55 LXT3A   DB      'KEY OUT L ',07F,080
E452  50 4C 41 59 53 20 LXT4    DB      'PLAYS L   ',07F,080
E45E  57 49 4E 53 20 4C LXT5    DB      'WINS L    ',07F,080
E46A  52 45 46 49 4C 4C LXT6    DB      'REFILL L  ',07F,080
E476  50 43 20 52 55 4E LXT8    DB      'PC RUN L  ',07F,080
E482  4C 4F 57 20 57 49 LXT9    DB      'LOW WINS L',07F,080
E48E  4C 4F 57 20 50 4C LXT10   DB      'LOW PLAY L',07F,080
E49A  54 4F 50 20 57 49 LXT11   DB      'TOP WINS L',07F,080
E4A6  54 4F 50 20 50 4C LXT12   DB      'TOP PLAY L',07F,080
                        ;
E4B2  BD F098           DOVMET  JSR     TESTSI
E4B5  11                        DB      SMETER
E4B6  10 26 0003                BNE     DOV00
E4BA  7E E7EB                   JMP     DOV95
                        ;
E4BD  BD DDD4           DOV00   JSR     PROFDI
E4C0  11                        DB      QRESET
E4C1  7F 80                     DB      07F,080
                        ;
E4C3  86 12                     LDAA    #VMTGP
E4C5  C6 15                     LDAB    #VMWIN
E4C7  8E 01CD           DOV02   LDX     #VMETER-3
E4CA  BD F0E7                   JSR     ADDA2X
E4CD                            PSHX
E4CF  8E 01CD                   LDX     #VMETER-3
E4D2  34 04 A6E0                TBA
E4D6  BD F0E7                   JSR     ADDA2X
E4D9  86 99                     LDAA    #099            PUSH -((WIN*100)+1)
E4DB  34 02                     PSHA
E4DD  A0 89 0002                SUBA    2,X
E4E1  34 02                     PSHA
E4E3  86 99                     LDAA    #099
E4E5  A0 89 0001                SUBA    1,X
E4E9  34 02                     PSHA
E4EB  86 99                     LDAA    #099
E4ED  A0 89 0000                SUBA    0,X
E4F1  34 02                     PSHA
                        ;
                        ;       STACK IS NOW    -(KK KU UU.01)MM LL
                        ;
E4F3  7F 01EB                   CLR     VMETER+VMTRU-3
E4F6  7F 01EC                   CLR     VMETER+VMTRU-2
E4F9  7F 01ED                   CLR     VMETER+VMTRU-1
E4FC  1F 41                     TSX
E4FE  AE 89 0004                LDX     4,X
E502  A6 89 0000                LDAA    0,X
E506  AA 89 0001                ORAA    1,X
E50A  AA 89 0002                ORAA    2,X
E50E  10 27 0071                BEQ     DOV15
                        ;
E512  1F 41             DOV05   TSX
E514  A6 89 0003                LDAA    3,X
E518  AE 89 0004                LDX     4,X
E51C  AB 89 0002                ADDA    2,X
E520  19                        DAA
E521  1F 41                     TSX
E523  A7 89 0003                STAA    3,X
                        ;
E527  A6 89 0002                LDAA    2,X
E52B  AE 89 0004                LDX     4,X
E52F  A9 89 0001                ADCA    1,X
E533  19                        DAA
E534  1F 41                     TSX
E536  A7 89 0002                STAA    2,X
                        ;
E53A  A6 89 0001                LDAA    1,X
E53E  AE 89 0004                LDX     4,X
E542  A9 89 0000                ADCA    0,X
E546  19                        DAA
E547  1F 41                     TSX
E549  A7 89 0001                STAA    1,X
                        ;
E54D  A6 89 0000                LDAA    0,X
E551  89 00                     ADCA    #000
E553  19                        DAA
E554  A7 89 0000                STAA    0,X
E558  10 25 0027                BCS     DOV15
                        ;
E55C  8E 01EB                   LDX     #VMETER-3+VMTRU
E55F  A6 89 0002                LDAA    2,X
E563  8B 01                     ADDA    #001
E565  19                        DAA
E566  A7 89 0002                STAA    2,X
E56A  A6 89 0001                LDAA    1,X
E56E  89 00                     ADCA    #000
E570  19                        DAA
E571  A7 89 0001                STAA    1,X
E575  A6 89 0000                LDAA    0,X
E579  89 00                     ADCA    #000
E57B  19                        DAA
E57C  A7 89 0000                STAA    0,X
E580  7E E512                   JMP     DOV05
                        ;
E583  32 61             DOV15   INS
E585  32 61                     INS
E587  32 61                     INS
E589  32 61                     INS
E58B  32 61                     INS
E58D  32 61                     INS
                        ;
E58F  86 39                     LDAA    #VLTGP
E591  C6 3C                     LDAB    #VLWIN
E593  8E 01CD           DLV02   LDX     #VMETER-3
E596  BD F0E7                   JSR     ADDA2X
E599                            PSHX
E59B  8E 01CD                   LDX     #VMETER-3
E59E  34 04 A6E0                TBA
E5A2  BD F0E7                   JSR     ADDA2X
E5A5  86 99                     LDAA    #099            PUSH -((WIN*100)+1)
E5A7  34 02                     PSHA
E5A9  A0 89 0002                SUBA    2,X
E5AD  34 02                     PSHA
E5AF  86 99                     LDAA    #099
E5B1  A0 89 0001                SUBA    1,X
E5B5  34 02                     PSHA
E5B7  86 99                     LDAA    #099
E5B9  A0 89 0000                SUBA    0,X
E5BD  34 02                     PSHA
                        ;
                        ;       STACK IS NOW    -(KK KU UU.01)MM LL
                        ;
E5BF  7F 020F                   CLR     VMETER+VLTRU-3
E5C2  7F 0210                   CLR     VMETER+VLTRU-2
E5C5  7F 0211                   CLR     VMETER+VLTRU-1
E5C8  1F 41                     TSX
E5CA  AE 89 0004                LDX     4,X
E5CE  A6 89 0000                LDAA    0,X
E5D2  AA 89 0001                ORAA    1,X
E5D6  AA 89 0002                ORAA    2,X
E5DA  10 27 0071                BEQ     DLV15
                        ;
E5DE  1F 41             DLV05   TSX
E5E0  A6 89 0003                LDAA    3,X
E5E4  AE 89 0004                LDX     4,X
E5E8  AB 89 0002                ADDA    2,X
E5EC  19                        DAA
E5ED  1F 41                     TSX
E5EF  A7 89 0003                STAA    3,X
                        ;
E5F3  A6 89 0002                LDAA    2,X
E5F7  AE 89 0004                LDX     4,X
E5FB  A9 89 0001                ADCA    1,X
E5FF  19                        DAA
E600  1F 41                     TSX
E602  A7 89 0002                STAA    2,X
                        ;
E606  A6 89 0001                LDAA    1,X
E60A  AE 89 0004                LDX     4,X
E60E  A9 89 0000                ADCA    0,X
E612  19                        DAA
E613  1F 41                     TSX
E615  A7 89 0001                STAA    1,X
                        ;
E619  A6 89 0000                LDAA    0,X
E61D  89 00                     ADCA    #000
E61F  19                        DAA
E620  A7 89 0000                STAA    0,X
E624  10 25 0027                BCS     DLV15
                        ;
E628  8E 020F                   LDX     #VMETER-3+VLTRU
E62B  A6 89 0002                LDAA    2,X
E62F  8B 01                     ADDA    #001
E631  19                        DAA
E632  A7 89 0002                STAA    2,X
E636  A6 89 0001                LDAA    1,X
E63A  89 00                     ADCA    #000
E63C  19                        DAA
E63D  A7 89 0001                STAA    1,X
E641  A6 89 0000                LDAA    0,X
E645  89 00                     ADCA    #000
E647  19                        DAA
E648  A7 89 0000                STAA    0,X
E64C  7E E5DE                   JMP     DLV05
                        ;
E64F  32 61             DLV15   INS
E651  32 61                     INS
E653  32 61                     INS
E655  32 61                     INS
E657  32 61                     INS
E659  32 61                     INS
                        ;
E65B  4F                        CLRA
                        ;
E65C  4C                DOV20   INCA
E65D  81 1B                     CMPA    #27
E65F  10 26 0002                BNE     DOV25
E663  86 01                     LDAA    #1
E665  34 02             DOV25   PSHA
E667  8E E344                   LDX     #XTTAB-2
E66A  48                        ASLA
E66B  BD F0E7                   JSR     ADDA2X
E66E  AE 89 0000                LDX     0,X
E672  BD DDDE                   JSR     PROFDX
E675  35 02                     PULA
E677  34 02             DOV30   PSHA
                        ;
E679  8E E326                   LDX     #DOVPT
E67C  B6 011D                   LDAA    SWSTAT+6
E67F  84 38                     ANDA    #038
E681  44                        LSRA
E682  BD F0E7                   JSR     ADDA2X
E685  A6 89 0000                LDAA    0,X
E689  B7 01EA                   STAA    VMETER-1+VMAIM
E68C  7F 01E9                   CLR     VMETER-2+VMAIM
E68F  7F 01E8                   CLR     VMETER-3+VMAIM
                        ;
E692  86 27                     LDAA    #QIDENT
E694  B7 01D2                   STAA    VMETER-1+VMVERS
E697  86 00                     LDAA    #CRVERS
E699  4C                        INCA                            10p vers disp as 1, 5p=2, 2p=3.
E69A  8A B0                     ORAA    #CABVER                 A=Barcrest i/o loom, B=BWB. 
E69C  B7 01D1                   STAA    VMETER-2+VMVERS         
E69F  86 10                     LDAA    #NATION
E6A1  8A 01                     ORAA    #TYPE
E6A3  B7 01D0                   STAA    VMETER-3+VMVERS
                        ;
E6A6  35 02                     PULA
                        ;
E6A8  81 01                     CMPA    #1
E6AA  10 26 0063                BNE     DOV37           normal meter
                        ;                               version
E6AE  34 02                     PSHA
E6B0  8E 01CD                   LDX     #VMETER-3
E6B3  34 02 E6E0                TAB
E6B7  34 04 ABE0                ABA
E6BB  34 04 ABE0                ABA
E6BF  BD F0E7                   JSR     ADDA2X
                        ;
E6C2  A6 89 0002                LDAA    2,X
E6C6  34 02                     PSHA
E6C8  A6 89 0001                LDAA    1,X
E6CC  34 02                     PSHA
E6CE  A6 89 0000                LDAA    0,X
E6D2  34 02                     PSHA
E6D4  5F                        CLRB
E6D5  84 F0                     ANDA    #0F0
E6D7  81 00                     CMPA    #LAT
E6D9  10 27 002A                BEQ     DOV38L
E6DD  81 10                     CMPA    #CZ
E6DF  10 27 001A                BEQ     DOV38C
E6E3  81 20                     CMPA    #UKR
E6E5  10 27 000A                BEQ     DOV38U
E6E9  BD DDD4           DOV38R  JSR     PROFDI
E6EC  0A 52 7F 80               DB      10,'R',07F,080
E6F0  7E E73E                   JMP     DOV39
E6F3  BD DDD4           DOV38U  JSR     PROFDI
E6F6  0A 55 7F 80               DB      10,'U',07F,080
E6FA  7E E73E                   JMP     DOV39
E6FD  BD DDD4           DOV38C  JSR     PROFDI
E700  0A 43 7F 80               DB      10,'C',07F,080
E704  7E E73E                   JMP     DOV39
E707  BD DDD4           DOV38L  JSR     PROFDI
E70A  0A 4C 7F 80               DB      10,'L',07F,080
E70E  7E E73E                   JMP     DOV39
                        ;
E711  34 02             DOV37   PSHA
E713  8E 01CD                   LDX     #VMETER-3
E716  34 02 E6E0                TAB
E71A  34 04 ABE0                ABA
E71E  34 04 ABE0                ABA
E722  BD F0E7                   JSR     ADDA2X
                        ;
E725  A6 89 0002                LDAA    2,X
E729  34 02                     PSHA
E72B  A6 89 0001                LDAA    1,X
E72F  34 02                     PSHA
E731  A6 89 0000                LDAA    0,X
E735  34 02                     PSHA
E737  5F                        CLRB
E738  BD DD2D                   JSR     HEXDY4
E73B  B7 014B                   STAA    FDSTAT+10
E73E  35 02             DOV39   PULA
E740  BD DD31                   JSR     HEXDY0
E743  B7 014C                   STAA    FDSTAT+11
                        ;
E746  35 02                     PULA
E748  34 02                     PSHA
E74A  BD DD2D                   JSR     HEXDY4
E74D  B7 014D                   STAA    FDSTAT+12
E750  35 02                     PULA
E752  BD DD31                   JSR     HEXDY0
E755  B7 014E                   STAA    FDSTAT+13
                        ;
E758  35 02                     PULA
E75A  34 02                     PSHA
E75C  BD DD2D                   JSR     HEXDY4
E75F  B7 014F                   STAA    FDSTAT+14
E762  35 02                     PULA
E764  5C                        INCB
E765  BD DD31                   JSR     HEXDY0
E768  B7 0150                   STAA    FDSTAT+15
                        ;
E76B  BD F098           DOV60   JSR     TESTSI
E76E  11                        DB      SMETER
E76F  10 27 006E                BEQ     DOV90
                        ;
E773  BD F098           DOV62   JSR     TESTSI
E776  1F                        DB      SSTART
E777  10 26 0015                BNE     DOV75
                        ;
E77B  BD F098                   JSR     TESTSI
E77E  09                        DB      SCCASH
E77F  10 26 0005                BNE     DOV70
E783  35 02                     PULA
E785  7E E677                   JMP     DOV30
                        ;
E788  BD D511           DOV70   JSR     MUSOKI
E78B  0115                      DATA    OPWBLP
E78D  7E E79D                   JMP     DOV86           clear meters
                        ;
E790  BD F098           DOV75   JSR     TESTSI
E793  1F                        DB      SSTART
E794  10 26 FFF8                BNE     DOV75
E798  35 02                     PULA
E79A  7E E65C                   JMP     DOV20
                        ;
E79D  8E 01D0           DOV86   LDX     #VMETER
E7A0  C6 2A                     LDAB    #42
E7A2  6F 89 0000        DOV87   CLR     0,X
E7A6  30 01                     INX
E7A8  5A                        DECB
E7A9  10 26 FFF5                BNE     DOV87
E7AD  BD DDD4                   JSR     PROFDI
E7B0  11                        DB      QRESET
E7B1  20 4D 45 54 45 52         DB      ' METERS CLEARED '
E7C1  7F 80                     DB      07F,080
E7C3  BD EF5E                   JSR     DELAYI
E7C6  C8                        DB      200
E7C7  BD DDD4                   JSR     PROFDI
E7CA  20 4D 45 54 45 52         DB      ' METER          '
E7DA  80                        DB      080
E7DB  35 02                     PULA
E7DD  4F                        CLRA
E7DE  7E E65C                   JMP     DOV20
                        ;
E7E1  35 02             DOV90   PULA
E7E3  BD DDD4                   JSR     PROFDI
E7E6  10                        DB      QCLEAR
E7E7  80                        DB      080
                        ;
E7E8  BD E000                   JSR     DYCRD1
                        ;
E7EB  39                DOV95   RTS
                        ;
                        ;-------------------------------------------------------
                        ;
E7EC  34 04             BINBCD  PSHB
E7EE  34 02 E6E0                TAB
E7F2  4F                        CLRA
E7F3  5D                BIN20   TSTB
E7F4  10 27 0007                BEQ     BIN50
E7F8  5A                        DECB
E7F9  8B 01                     ADDA    #001
E7FB  19                        DAA
E7FC  7E E7F3                   BRA     BIN20
E7FF  35 04             BIN50   PULB
E801  39                        RTS
                        ;
                        ;
                        ;**************************************************
                        ;
                                NAME    DOTEST
                        ;
                                *B
                                EXT     DOTEST
                        ;
                                EXT     TESTSI,FDSTAT,DELAYI,R1POSN,PRLPST
                                EXT     R1DIST,MOVS2X,SWSTAT,MCOUNT,TLLIST
                                EXT     ADDA2X,LPTERM,NSYMBS,TESTST,DOTONI
                                EXT     CREDIT,BANKER,CLOCK1,PRLPLX
                                EXT     SPLITS,SETNVR,PROFDI,QCLEAR,NOTHGS
                                EXT     HEXDY4,HEXDY0,PAYCON,OPWBLP,MUSOKI
                                EXT     STEST,MMNULL,RSDGO,CLOCK3,ON,OF
                                EXT     SHOLD1,SHOLD2,SHOLD3,SHOLD4,BINBCD
                                EXT     TESTSW,SBDOOR
                                EXT     QRESET
                                EXT     TLLOFF
                                EXT     RSLSER,GOREEL
                                EXT     ATEND,SCHOLD
                                EXT     RESET,SSKILL,FTIMER
                                EXT     RSLOFF,LPANOF,VALOFF,TESTLP,TEST
                                EXT     NSYMBT,TOPFLG,SMUNT,SSSTAT,SSHEX4,SSHEX0
                        ;
                                *P
                        ;
E802  BD F098           DOTEST  JSR     TESTSI
E805  17                        DB      SBDOOR
E806  10 27 0008                BEQ     DOTRET
E80A  BD F098                   JSR     TESTSI
E80D  15                        DB      STEST           CONTINUE IF ...
E80E  10 26 0001                BNE     TST00
E812  39                DOTRET  RTS                     ... "TEST" PRESSED
                        ;
E813  BD BEEA           TST00   JSR     RSLOFF
                        ;
E816  7F 001C           TST01   CLR     TOPFLG
E819  86 FE                     LDAA    #0-2            REPEAT+1 2 TIMES ...
E81B  7D 00CA           TST05   TST     RSDGO
E81E  10 26 FFF9                BNE     TST05           ... WAIT FOR REELS
E822  34 02                     PSHA
E824  BD EF5E                   JSR     DELAYI
E827  64                        DB      100
E828  8E FFFD                   LDX     #0-3            FOR EACH REEL ...
E82B  C6 30             TST10   LDAB    #NSYMBS+NSYMBS
E82D  A6 89 0085                LDAA    R1POSN+3,X      ... 2 REVS IF LOST
E831  10 2B 0007                BMI     TST15
E835  84 1F                     ANDA    #01F
E837  4A                        DECA                    ... ELSE (POSN-1)
E838  34 02 E6E0                TAB
E83C  E7 89 008B        TST15   STAB    R1DIST+3,X      ... TO LINE-UP
E840  BD D599                   JSR     GOREEL
E843  BD EF5E                   JSR     DELAYI
E846  19                        DB      25
E847  30 01                     INX
E849  10 26 FFDE                BNE     TST10           ... NEXT REEL
E84D  35 02                     PULA
E84F  4C                        INCA
E850  10 26 FFC7                BNE     TST05           ... REPEAT+1 2 TIMES
                        ;
E854  7C 001C                   INC     TOPFLG
E857  86 FE                     LDAA    #0-2            REPEAT+1 2 TIMES ...
E859  7D 00CA           TTT05   TST     RSDGO
E85C  10 26 FFF9                BNE     TTT05           ... WAIT FOR REELS
E860  34 02                     PSHA
E862  BD EF5E                   JSR     DELAYI
E865  64                        DB      100
E866  8E FFFD                   LDX     #0-3            FOR EACH REEL ...
E869  C6 30             TTT10   LDAB    #NSYMBT+NSYMBT
E86B  A6 89 0088                LDAA    R1POSN+6,X      ... 2 REVS IF LOST
E86F  10 2B 0009                BMI     TTT15
E873  84 1F                     ANDA    #01F
E875  4A                        DECA                    ... ELSE (POSN-1)
E876  8B 18                     ADDA    #NSYMBT
E878  34 02 E6E0                TAB
E87C  E7 89 008E        TTT15   STAB    R1DIST+6,X      ... TO LINE-UP
E880  30 01                     INX
E882  10 26 FFE3                BNE     TTT10           ... NEXT REEL
E886  BD D599                   JSR     GOREEL
E889  7D 00CA           TTT17   TST     RSDGO
E88C  10 26 FFF9                BNE     TTT17
E890  35 02                     PULA
E892  4C                        INCA
E893  10 26 FFC2                BNE     TTT05           ... REPEAT+1 2 TIMES
                        ;
E897  BD BEEA                   JSR     RSLOFF
                        ;
E89A  BD CE2D                   JSR     TEST
E89D  86 01                     LDAA    #1
E89F  7E E812                   JMP     DOTRET
                        ;
                        ;*********************************************************
                        ;
                        ;
                                END

IA=BC4SYS.ASM
                        ;******************************************************
                        ;
                                NAME    TXCHAR
                                *P
                                EXT     TXCHAR
                        ;
                        ;
                                EXT     ADDA2X,SWOPSX,CLOCK1
                                EXT     SECHOP
                        ;
                                PERS    68XX
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
                        ;
E8A2  34 02             TXCHAR  PSHA
E8A4  34 04                     PSHB
E8A6                            PSHX
E8A8  F6 015B           TXW60   LDAB    CLOCK1
E8AB  CB 03                     ADDB    #3              .030 sec intervals
E8AD  BE 0166           TXW70   LDX     SECHOP
E8B0  10 26 FFF4                BNE     TXW60
E8B4  F1 015B                   CMPB    CLOCK1
E8B7  10 2A FFF2                BPL     TXW70
E8BB  43                        COMA
E8BC  BD F0E7                   JSR     ADDA2X
E8BF  BD F0E7                   JSR     ADDA2X
E8C2  30 01                     INX
E8C4  BF 0166                   STX     SECHOP
E8C7                            PULX
E8C9  35 04                     PULB
E8CB  35 02                     PULA
E8CD  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    QWINAN
                                *P
                                EXT     QWINAN
                        ;
                                EXT     MUSYMB,R1SYMB
                                EXT     WINSYM,WINPAT,WINVAL,WINVL2,WINPT2
                        ;
                                *B
0154                    WINSYM  DS      1
                                *P
                        ;
E8CE  4F                QWINAN  CLRA
E8CF  34 04                     PSHB
E8D1  34 02                     PSHA
E8D3  30 1F                     DEX
E8D5  30 01             GTW10   INX
E8D7  A6 89 0000                LDAA    0,X
E8DB  10 27 0074                BEQ     GTW90
E8DF  5F                        CLRB
E8E0  B6 0155                   LDAA    R1SYMB+0
E8E3  BD E941                   BSR     GTW80
E8E6  B6 0156                   LDAA    R1SYMB+1
E8E9  BD E941                   BSR     GTW80
E8EC  B6 0157                   LDAA    R1SYMB+2
E8EF  BD E941                   BSR     GTW80
E8F2  B6 0158                   LDAA    R1SYMB+3
E8F5  BD E941                   BSR     GTW80
E8F8  30 01                     INX
E8FA  A6 89 0000        GTW20   LDAA    0,X
E8FE  10 27 FFD3                BEQ     GTW10
E902  34 04 A6E0                TBA
E906  43                        COMA
E907  A4 89 0000                ANDA    0,X
E90B  35 02                     PULA
E90D  10 26 0027                BNE     GTW25
E911  A1 89 0001                CMPA    1,X
E915  10 24 001F                BHS     GTW25
                        ;
E919  30 1F                     DEX
E91B  A6 89 0000                LDAA    0,X
E91F  B7 0154                   STAA    WINSYM
E922  30 01                     INX
E924  96 16                     LDAA    /WINPAT
E926  97 17                     STAA    /WINPT2
E928  96 31                     LDAA    /WINVAL
E92A  97 32                     STAA    /WINVL2
E92C  A6 89 0000                LDAA    0,X
E930  97 16                     STAA    /WINPAT
E932  A6 89 0001                LDAA    1,X
E936  97 31                     STAA    /WINVAL
E938  34 02             GTW25   PSHA
E93A  30 01                     INX
E93C  30 01                     INX
E93E  7E E8FA                   BRA     GTW20
                        ;
E941  58                GTW80   ASLB
E942  34 04                     PSHB
E944  E6 89 0000                LDAB    0,X
E948  BD E959                   JSR     MUSYMB
E94B  35 04                     PULB
E94D  10 27 0001                BEQ     GTW85
E951  5C                        INCB
E952  39                GTW85   RTS
                        ;
E953  35 02             GTW90   PULA
E955  35 04                     PULB
E957  4D                        TSTA
E958  39                        RTS
                        ;
                        ;***************************************************
                        ;
                        ;
                                NAME    MUSYMB
                                *P
                                EXT     MUSYMB
                        ;
                                EXT     TEMP1,TEMP2
                        ;
E959  B7 016F           MUSYMB  STAA    TEMP1
E95C  F7 0170                   STAB    TEMP2
E95F  84 07                     ANDA    #007    00F
E961  C4 07                     ANDB    #007    00F
E963  81 07                     CMPA    #007    00F
E965  10 27 0010                BEQ     MUS40           A(LS) = WILD ?
E969  C1 07                     CMPB    #007    00F
E96B  10 27 000E                BEQ     MUS50           B(LS) = WILD ?
E96F  B8 0170                   EORA    TEMP2
E972  84 07                     ANDA    #007    00F
E974  10 27 0001                BEQ     MUS40           A(LS) = B(LS) ?
E978  5F                        CLRB
E979  34 04 A6E0        MUS40   TBA
E97D  F6 0170           MUS50   LDAB    TEMP2
E980  F4 016F                   ANDB    TEMP1
E983  C4 F8                     ANDB    #0F8    0F0
E985  34 04 ABE0                ABA
E989  F6 0170                   LDAB    TEMP2
E98C  4D                        TSTA
E98D  39                        RTS
                        ;
                        ;*******************************************************
                        ;
                        ;
                                NAME    GSYMBS
                                *B
                                EXT     GSYMBS,GSYMBT,R1SYMB,GSYMB6,GSYMB7,GSYMB8
                                EXT     NSYMB5,NSYMB6,NSYMB7,NSYMB8
                                EXT     R1POSN,R1DIST,NSYMBS,ADDA2X
                                EXT     ALARM,REEL1,REEL2,REEL3
                                EXT     REEL4,WREEL1,WREEL2,WREEL3,WILDAC,TWILAC
                                EXT     REEL5,WREEL4,WREEL5,WREEL6
                                EXT     REEL6,NSYMBT,LINES
                        ;
0155  5B 53 79 5D       R1SYMB  DB      '[Sy]'
                        ;
                                *P
                        ;
E98E  8E 9000           GSYMBS  LDX     #REEL1-1
E991  7D 0187                   TST     WILDAC
E994  10 27 0003                BEQ     GS1
E998  8E 9048                   LDX     #WREEL1-1
E99B  1A 10             GS1     SEI
E99D  96 82                     LDAA    /R1POSN+0
E99F  D6 88                     LDAB    /R1DIST+0
E9A1  1C EF                     CLI
E9A3  BD E9E0                   BSR     GRS50
E9A6  B7 0155                   STAA    R1SYMB+0
E9A9  8E 9018                   LDX     #REEL2-1
E9AC  7D 0187                   TST     WILDAC
E9AF  10 27 0003                BEQ     GS2
E9B3  8E 9060                   LDX     #WREEL2-1
E9B6  1A 10             GS2     SEI
E9B8  96 83                     LDAA    /R1POSN+1
E9BA  D6 89                     LDAB    /R1DIST+1
E9BC  1C EF                     CLI
E9BE  BD E9E0                   BSR     GRS50
E9C1  B7 0156                   STAA    R1SYMB+1
E9C4  8E 9030                   LDX     #REEL3-1
E9C7  7D 0187                   TST     WILDAC
E9CA  10 27 0003                BEQ     GS3
E9CE  8E 9078                   LDX     #WREEL3-1
E9D1  1A 10             GS3     SEI
E9D3  96 84                     LDAA    /R1POSN+2
E9D5  D6 8A                     LDAB    /R1DIST+2
E9D7  1C EF                     CLI
E9D9  BD E9E0                   BSR     GRS50
E9DC  B7 0157                   STAA    R1SYMB+2
E9DF  39                        RTS
                        ;
E9E0  4D                GRS50   TSTA
E9E1  10 2B 0018                BMI     GRS90           REEL UNLOCATED ?
E9E5  34 04 A0E0                SBA
E9E9  80 18             GRS55   SUBA    #NSYMBS
E9EB  10 2E FFFA                BGT     GRS55
E9EF  8B 18             GRS60   ADDA    #NSYMBS
E9F1  10 2F FFFA                BLE     GRS60
E9F5  BD F0E7                   JSR     ADDA2X
E9F8  A6 89 0000                LDAA    0,X
E9FC  39                        RTS
                        ;
E9FD  7E EF49           GRS90   JMP     ALARM
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EA00  8E 9090           GSYMBT  LDX     #REEL4-1
EA03  7D 018A                   TST     TWILAC
EA06  10 27 0003                BEQ     GT1
EA0A  8E 90D8                   LDX     #WREEL4-1
EA0D  1A 10             GT1     SEI
EA0F  96 85                     LDAA    /R1POSN+3
EA11  D6 8B                     LDAB    /R1DIST+3
EA13  1C EF                     CLI
EA15  BD EC24                   BSR     GRT50
EA18  B7 0155                   STAA    R1SYMB+0
EA1B  8E 90A8                   LDX     #REEL5-1
EA1E  7D 018A                   TST     TWILAC
EA21  10 27 0003                BEQ     GT2
EA25  8E 90F0                   LDX     #WREEL5-1
EA28  1A 10             GT2     SEI
EA2A  96 86                     LDAA    /R1POSN+4
EA2C  D6 8C                     LDAB    /R1DIST+4
EA2E  1C EF                     CLI
EA30  BD EC24                   BSR     GRT50
EA33  B7 0156                   STAA    R1SYMB+1
EA36  8E 90C0                   LDX     #REEL6-1
EA39  7D 018A                   TST     TWILAC
EA3C  10 27 0003                BEQ     GT3
EA40  8E 9108                   LDX     #WREEL6-1
EA43  1A 10             GT3     SEI
EA45  96 87                     LDAA    /R1POSN+5
EA47  D6 8D                     LDAB    /R1DIST+5
EA49  1C EF                     CLI
EA4B  BD EC24                   BSR     GRT50
EA4E  B7 0157                   STAA    R1SYMB+2
EA51  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EA52  8E 9090           GSYMB6  LDX     #REEL4-1
EA55  7D 018A                   TST     TWILAC
EA58  10 27 0003                BEQ     G61
EA5C  8E 90D8                   LDX     #WREEL4-1
EA5F  1A 10             G61     SEI
EA61  96 85                     LDAA    /R1POSN+3
EA63  D6 8B                     LDAB    /R1DIST+3
EA65  5C                        INCB
EA66  1C EF                     CLI
EA68  BD EC24                   BSR     GRT50
EA6B  B7 0155                   STAA    R1SYMB+0
EA6E  8E 9090                   LDX     #REEL4-1
EA71  7D 018A                   TST     TWILAC
EA74  10 27 0003                BEQ     G62
EA78  8E 90D8                   LDX     #WREEL4-1
EA7B  1A 10             G62     SEI
EA7D  96 85                     LDAA    /R1POSN+3
EA7F  D6 8B                     LDAB    /R1DIST+3
EA81  1C EF                     CLI
EA83  BD EC24                   BSR     GRT50
EA86  B7 0156                   STAA    R1SYMB+1
EA89  8E 9090                   LDX     #REEL4-1
EA8C  7D 018A                   TST     TWILAC
EA8F  10 27 0003                BEQ     G63
EA93  8E 90D8                   LDX     #WREEL4-1
EA96  1A 10             G63     SEI
EA98  96 85                     LDAA    /R1POSN+3
EA9A  D6 8B                     LDAB    /R1DIST+3
EA9C  5A                        DECB
EA9D  1C EF                     CLI
EA9F  BD EC24                   BSR     GRT50
EAA2  B7 0157                   STAA    R1SYMB+2
EAA5  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EAA6  8E 90A8           GSYMB7  LDX     #REEL5-1
EAA9  7D 018A                   TST     TWILAC
EAAC  10 27 0003                BEQ     G71
EAB0  8E 90F0                   LDX     #WREEL5-1
EAB3  1A 10             G71     SEI
EAB5  96 86                     LDAA    /R1POSN+4
EAB7  D6 8C                     LDAB    /R1DIST+4
EAB9  5C                        INCB
EABA  1C EF                     CLI
EABC  BD EC24                   BSR     GRT50
EABF  B7 0155                   STAA    R1SYMB+0
EAC2  8E 90A8                   LDX     #REEL5-1
EAC5  7D 018A                   TST     TWILAC
EAC8  10 27 0003                BEQ     G72
EACC  8E 90F0                   LDX     #WREEL5-1
EACF  1A 10             G72     SEI
EAD1  96 86                     LDAA    /R1POSN+4
EAD3  D6 8C                     LDAB    /R1DIST+4
EAD5  1C EF                     CLI
EAD7  BD EC24                   BSR     GRT50
EADA  B7 0156                   STAA    R1SYMB+1
EADD  8E 90A8                   LDX     #REEL5-1
EAE0  7D 018A                   TST     TWILAC
EAE3  10 27 0003                BEQ     G73
EAE7  8E 90F0                   LDX     #WREEL5-1
EAEA  1A 10             G73     SEI
EAEC  96 86                     LDAA    /R1POSN+4
EAEE  D6 8C                     LDAB    /R1DIST+4
EAF0  5A                        DECB
EAF1  1C EF                     CLI
EAF3  BD EC24                   BSR     GRT50
EAF6  B7 0157                   STAA    R1SYMB+2
EAF9  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EAFA  8E 90C0           GSYMB8  LDX     #REEL6-1
EAFD  7D 018A                   TST     TWILAC
EB00  10 27 0003                BEQ     G81
EB04  8E 9108                   LDX     #WREEL6-1
EB07  1A 10             G81     SEI
EB09  96 87                     LDAA    /R1POSN+5
EB0B  D6 8D                     LDAB    /R1DIST+5
EB0D  5C                        INCB
EB0E  1C EF                     CLI
EB10  BD EC24                   BSR     GRT50
EB13  B7 0155                   STAA    R1SYMB+0
EB16  8E 90C0                   LDX     #REEL6-1
EB19  7D 018A                   TST     TWILAC
EB1C  10 27 0003                BEQ     G82
EB20  8E 9108                   LDX     #WREEL6-1
EB23  1A 10             G82     SEI
EB25  96 87                     LDAA    /R1POSN+5
EB27  D6 8D                     LDAB    /R1DIST+5
EB29  1C EF                     CLI
EB2B  BD EC24                   BSR     GRT50
EB2E  B7 0156                   STAA    R1SYMB+1
EB31  8E 90C0                   LDX     #REEL6-1
EB34  7D 018A                   TST     TWILAC
EB37  10 27 0003                BEQ     G83
EB3B  8E 9108                   LDX     #WREEL6-1
EB3E  1A 10             G83     SEI
EB40  96 87                     LDAA    /R1POSN+5
EB42  D6 8D                     LDAB    /R1DIST+5
EB44  5A                        DECB
EB45  1C EF                     CLI
EB47  BD EC24                   BSR     GRT50
EB4A  B7 0157                   STAA    R1SYMB+2
EB4D  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EB4E  8E 9090           NSYMB5  LDX     #REEL4-1
EB51  1A 10                     SEI
EB53  96 85                     LDAA    /R1POSN+3
EB55  D6 8B                     LDAB    /R1DIST+3
EB57  1C EF                     CLI
EB59  BD EC24                   BSR     GRT50
EB5C  B7 0155                   STAA    R1SYMB+0
EB5F  8E 90A8                   LDX     #REEL5-1
EB62  1A 10                     SEI
EB64  96 86                     LDAA    /R1POSN+4
EB66  D6 8C                     LDAB    /R1DIST+4
EB68  1C EF                     CLI
EB6A  BD EC24                   BSR     GRT50
EB6D  B7 0156                   STAA    R1SYMB+1
EB70  8E 90C0                   LDX     #REEL6-1
EB73  1A 10                     SEI
EB75  96 87                     LDAA    /R1POSN+5
EB77  D6 8D                     LDAB    /R1DIST+5
EB79  1C EF                     CLI
EB7B  BD EC24                   BSR     GRT50
EB7E  B7 0157                   STAA    R1SYMB+2
EB81  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EB82  8E 9090           NSYMB6  LDX     #REEL4-1
EB85  1A 10                     SEI
EB87  96 85                     LDAA    /R1POSN+3
EB89  D6 8B                     LDAB    /R1DIST+3
EB8B  5C                        INCB
EB8C  1C EF                     CLI
EB8E  BD EC24                   BSR     GRT50
EB91  B7 0155                   STAA    R1SYMB+0
EB94  8E 9090                   LDX     #REEL4-1
EB97  1A 10                     SEI
EB99  96 85                     LDAA    /R1POSN+3
EB9B  D6 8B                     LDAB    /R1DIST+3
EB9D  1C EF                     CLI
EB9F  BD EC24                   BSR     GRT50
EBA2  B7 0156                   STAA    R1SYMB+1
EBA5  8E 9090                   LDX     #REEL4-1
EBA8  1A 10                     SEI
EBAA  96 85                     LDAA    /R1POSN+3
EBAC  D6 8B                     LDAB    /R1DIST+3
EBAE  5A                        DECB
EBAF  1C EF                     CLI
EBB1  BD EC24                   BSR     GRT50
EBB4  B7 0157                   STAA    R1SYMB+2
EBB7  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EBB8  8E 90A8           NSYMB7  LDX     #REEL5-1
EBBB  1A 10                     SEI
EBBD  96 86                     LDAA    /R1POSN+4
EBBF  D6 8C                     LDAB    /R1DIST+4
EBC1  5C                        INCB
EBC2  1C EF                     CLI
EBC4  BD EC24                   BSR     GRT50
EBC7  B7 0155                   STAA    R1SYMB+0
EBCA  8E 90A8                   LDX     #REEL5-1
EBCD  1A 10                     SEI
EBCF  96 86                     LDAA    /R1POSN+4
EBD1  D6 8C                     LDAB    /R1DIST+4
EBD3  1C EF                     CLI
EBD5  BD EC24                   BSR     GRT50
EBD8  B7 0156                   STAA    R1SYMB+1
EBDB  8E 90A8                   LDX     #REEL5-1
EBDE  1A 10                     SEI
EBE0  96 86                     LDAA    /R1POSN+4
EBE2  D6 8C                     LDAB    /R1DIST+4
EBE4  5A                        DECB
EBE5  1C EF                     CLI
EBE7  BD EC24                   BSR     GRT50
EBEA  B7 0157                   STAA    R1SYMB+2
EBED  39                        RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - -
                        ;
EBEE  8E 90C0           NSYMB8  LDX     #REEL6-1
EBF1  1A 10                     SEI
EBF3  96 87                     LDAA    /R1POSN+5
EBF5  D6 8D                     LDAB    /R1DIST+5
EBF7  5C                        INCB
EBF8  1C EF                     CLI
EBFA  BD EC24                   BSR     GRT50
EBFD  B7 0155                   STAA    R1SYMB+0
EC00  8E 90C0                   LDX     #REEL6-1
EC03  1A 10                     SEI
EC05  96 87                     LDAA    /R1POSN+5
EC07  D6 8D                     LDAB    /R1DIST+5
EC09  1C EF                     CLI
EC0B  BD EC24                   BSR     GRT50
EC0E  B7 0156                   STAA    R1SYMB+1
EC11  8E 90C0                   LDX     #REEL6-1
EC14  1A 10                     SEI
EC16  96 87                     LDAA    /R1POSN+5
EC18  D6 8D                     LDAB    /R1DIST+5
EC1A  5A                        DECB
EC1B  1C EF                     CLI
EC1D  BD EC24                   BSR     GRT50
EC20  B7 0157                   STAA    R1SYMB+2
EC23  39                        RTS
                        ;
                        ;
EC24  4D                GRT50   TSTA
EC25  10 2B 0018                BMI     GRT90           REEL UNLOCATED ?
EC29  34 04 A0E0                SBA
EC2D  80 18             GRT55   SUBA    #NSYMBT
EC2F  10 2E FFFA                BGT     GRT55
EC33  8B 18             GRT60   ADDA    #NSYMBT
EC35  10 2F FFFA                BLE     GRT60
EC39  BD F0E7                   JSR     ADDA2X
EC3C  A6 89 0000                LDAA    0,X
EC40  39                        RTS
                        ;
EC41  7E EF49           GRT90   JMP     ALARM
                        ;
                        ;*******************************************************
                        ;
                                NAME    RHBANK
                                *B
                                EXT     RHBANK
                                EXT     SWSTAT,QDBUG
                        ;
0159                    RHSTAT  DS      1
                        ;
                                *P
                        ;
EC44  B6 011D           RHBANK  LDAA    SWSTAT+6
EC47  85 01                     BITA    #QDBUG
EC49  10 26 0006                BNE     RHB60
EC4D  B6 011E                   LDAA    SWSTAT+7
EC50  B7 0159           RHB55   STAA    RHSTAT
EC53  B6 0159           RHB60   LDAA    RHSTAT
EC56  39                        RTS
                        ;
                        ;**************************************************************
                        ;
                                NAME    INTSER
                                *B
                                EXT     INTSER,CLOCK1,CLOCK3,TIMER,GTIMER,STIMER,QTIMER,SECHOP
                        ;
                                EXT     CRINH,MUXSER,METSER,RSDSER,USRINT,T1200
                                EXT     RSDPAT,SWSTAT,WSDSER,RSPEED,MUXPHI,QDEBUG,CLOCK4
                        ;
015A  23                CKIREQ  DB      '#'
015B  31                CLOCK1  DB      '1'
015C  33                CLOCK3  DB      '3'
015D  34                CLOCK4  DB      '4'
015E  54 2E             TIMER   DB      'T.'
0160  47 54             GTIMER  DB      'GT'
0162  53 54             STIMER  DB      'ST'
0164  51 54             QTIMER  DB      'QT'
                        ;
0166  53 45             SECHOP  DB      'SE'
0168  52                RSPHI   DB      'R'
0169                    RXBUFF  DS      1
016A                    RXCNT   DS      1
016B                    RXTIME  DS      1
016C                    T1200   DS      2
                        ;
                                *P
                        ;
EC57  B6 0901           INTSER  LDAA    00901
EC5A  85 04                     BITA    #004
EC5C  10 27 0057                BEQ     INT20
                        ;
EC60  BE 016C           INT10   LDX     T1200
EC63  10 27 0005                BEQ     INT12
EC67  30 1F                     DEX
EC69  BF 016C                   STX     T1200
EC6C  12                INT12   NOP
                        ;
EC6D  B6 0906           RX100   LDAA    00906
EC70  F6 0133                   LDAB    MUXPHI
EC73  CB 80                     ADDB    #080
EC75  F7 0133                   STAB    MUXPHI
EC78  10 2B 0003                BMI     INT13
EC7C  BD DB16                   JSR     MUXSER
EC7F  7A 0168           INT13   DEC     RSPHI
EC82  10 2A 0030                BPL     INT15
EC86  86 05                     LDAA    #5
EC88  B7 0168                   STAA    RSPHI
                        ;
EC8B  1C EF                     CLI
EC8D  B6 008E                   LDAA    RSDPAT+0
EC90  B7 0D02                   STAA    00D02
EC93  B6 008F                   LDAA    RSDPAT+1
EC96  B7 0E00                   STAA    00E00
EC99  B6 0090                   LDAA    RSDPAT+2
EC9C  B7 0E02                   STAA    00E02
                        ;
EC9F  C6 34                     LDAB    #034
ECA1  85 80                     BITA    #080
ECA3  10 27 0002                BEQ     INT14
ECA7  C6 3C                     LDAB    #03C
ECA9  F7 0E03           INT14   STAB    00E03
                        ;
ECAC  BD D671                   JSR     RSDSER
ECAF  7D 015A                   TST     CKIREQ
ECB2  10 26 000E                BNE     INT40
ECB6  3B                INT15   RTI
                        ;
ECB7  85 02             INT20   BITA    #002
ECB9  10 27 0006                BEQ     INT30
ECBD  B6 0904                   LDAA    00904
ECC0  7C 015A                   INC     CKIREQ
ECC3  3B                INT30   RTI
                        ;
                        ;
ECC4  1C EF             INT40   CLI
ECC6  7A 015A                   DEC     CKIREQ
ECC9  7C 015B                   INC     CLOCK1
ECCC  B6 015C                   LDAA    CLOCK3
ECCF  8B 03                     ADDA    #003
ECD1  B7 015C                   STAA    CLOCK3
ECD4  B6 015D                   LDAA    CLOCK4
ECD7  8B 04                     ADDA    #4
ECD9  B7 015D                   STAA    CLOCK4
ECDC  BE 015E                   LDX     TIMER
ECDF  10 27 0002                BEQ     INT45
ECE3  30 1F                     DEX
ECE5  BF 015E           INT45   STX     TIMER
                        ;
ECE8  BE 0160                   LDX     GTIMER
ECEB  10 27 0002                BEQ     INT47
ECEF  30 1F                     DEX
ECF1  BF 0160           INT47   STX     GTIMER
                        ;
ECF4  BE 0162                   LDX     STIMER
ECF7  10 27 0002                BEQ     INT48
ECFB  30 1F                     DEX
ECFD  BF 0162           INT48   STX     STIMER
                        ;
ED00  BE 0164                   LDX     QTIMER
ED03  10 27 0002                BEQ     INT49
ED07  30 1F                     DEX
ED09  BF 0164           INT49   STX     QTIMER
                        ;
ED0C  BD DF0E                   JSR     METSER
ED0F  BD 9121                   JSR     USRINT
ED12  BD D99A                   JSR     QDEBUG
                        ;
ED15  3B                INT99   RTI
                        ;
                        ;******************************************************
                        ;
                                NAME    REFTGP
                                *C
                                EXT     REFTGP,REFWIN,RETTGP,RETWIN
                        ;
                                EXT     R1SYMB,WINBIT,GFLAGS,PARTY
                                EXT     GETRAN,PAYCON,SETNVR
                                EXT     SWSTAT,TOPCON,ADDA2X
                        ;
                                *P
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
ED16  7D 0181           RETTGP  TST     GFLAGS
ED19  10 2B 005B                BMI     RET40
ED1D  BF 0155                   STX     R1SYMB+0
ED20  8E 01B7                   LDX     #TOPCON
ED23  BF 0157           RET15   STX     R1SYMB+2
ED26  4F                        CLRA
ED27  C6 F8                     LDAB    #-8
ED29  34 04             RET20   PSHB
ED2B  34 02                     PSHA
ED2D  BE 0155                   LDX     R1SYMB+0
ED30  12                        NOP                     
ED31  12                        NOP                     
ED32  A6 89 0000                LDAA    0,X             
ED36  30 01                     INX
ED38  BF 0155                   STX     R1SYMB+0
ED3B  5F                        CLRB
ED3C  44                        LSRA
ED3D  56                        RORB
ED3E  44                        LSRA
ED3F  56                        RORB
ED40  44                        LSRA
ED41  56                        RORB
ED42  44                        LSRA
ED43  56                        RORB
ED44  BE 0157           RET25   LDX     R1SYMB+2
ED47  EB 89 0010                ADDB    16,X
ED4B  E7 89 0010                STAB    16,X
ED4F  A9 89 0008                ADCA    8,X
ED53  A7 89 0008                STAA    8,X
ED57  86 00                     LDAA    #000
ED59  A9 89 0000                ADCA    0,X
ED5D  81 7E                     CMPA    #07E            
ED5F  10 2D 0002                BLT     RET35
ED63  86 7E                     LDAA    #07E
ED65  A7 89 0000        RET35   STAA    0,X
ED69  30 01                     INX
ED6B  BF 0157                   STX     R1SYMB+2
ED6E  35 02                     PULA
ED70  35 04                     PULB
ED72  4C                        INCA
ED73  5C                        INCB
ED74  10 26 FFB1                BNE     RET20
ED78  7E EF15           RET40   JMP     SETNVR
                        ;
                        ;
ED7B  7D 0181           REFTGP  TST     GFLAGS
ED7E  10 2B 007E                BMI     REF40
ED82  BF 0155                   STX     R1SYMB+0
                        ;
ED85  B6 01AB                   LDAA    PAYCON+0
ED88  81 08                     CMPA    #008            004
ED8A  10 2D 0011                BLT     REF06   
ED8E  BD F0F8                   JSR     GETRAN
ED91  8B FD             REF05   ADDA    #253
ED93  10 25 FFFA                BCS     REF05
ED97  8B 03                     ADDA    #3
ED99  B7 01CF                   STAA    PARTY           
ED9C  7E EDA8                   JMP     REF10
ED9F  81 F7             REF06   CMPA    #0F7
EDA1  10 2E 0003                BGT     REF10
EDA5  7F 01CF                   CLR     PARTY           
                        ;
EDA8  8E 01AB           REF10   LDX     #PAYCON
EDAB  BF 0157           REF15   STX     R1SYMB+2
EDAE  4F                        CLRA
EDAF  C6 FC                     LDAB    #-4
EDB1  34 04             REF20   PSHB
EDB3  34 02                     PSHA
EDB5  BE 0155                   LDX     R1SYMB+0
EDB8  12                        NOP                     LSRA
EDB9  12                        NOP                     LSRA
EDBA  A6 89 0000                LDAA    0,X             ADDA    0,X
EDBE  30 01                     INX
EDC0  BF 0155                   STX     R1SYMB+0
EDC3  5F                        CLRB
EDC4  44                        LSRA
EDC5  56                        RORB
EDC6  44                        LSRA
EDC7  56                        RORB
EDC8  44                        LSRA
EDC9  56                        RORB
EDCA  44                        LSRA
EDCB  56                        RORB
EDCC  BE 0157           REF25   LDX     R1SYMB+2
EDCF  EB 89 0008                ADDB    8,X
EDD3  E7 89 0008                STAB    8,X
EDD7  A9 89 0004                ADCA    4,X
EDDB  A7 89 0004                STAA    4,X
EDDF  86 00                     LDAA    #000
EDE1  A9 89 0000                ADCA    0,X
EDE5  81 7E                     CMPA    #07E            (for pot controller) was 070
EDE7  10 2D 0002                BLT     REF35
EDEB  86 7E                     LDAA    #07E
EDED  A7 89 0000        REF35   STAA    0,X
EDF1  30 01                     INX
EDF3  BF 0157                   STX     R1SYMB+2
EDF6  35 02                     PULA
EDF8  35 04                     PULB
EDFA  4C                        INCA
EDFB  5C                        INCB
EDFC  10 26 FFB1                BNE     REF20
EE00  7E EF15           REF40   JMP     SETNVR
                        ;
                        ;------------------------------------------------------
                        ;
EE03  7D 0181           RETWIN  TST     GFLAGS
EE06  10 2B 0058                BMI     RET90
EE0A  34 02                     PSHA
EE0C  34 04                     PSHB
EE0E                            PSHX
EE10  34 02             RET50   PSHA
EE12  8E 01B7                   LDX     #TOPCON
EE15  96 37                     LDAA    /WINBIT
EE17  C6 F8                     LDAB    #-8
EE19  85 80             RET60   BITA    #080
EE1B  10 27 002E                BEQ     RET80
EE1F  34 02                     PSHA
EE21  34 04                     PSHB
EE23  86 C0                     LDAA    #0C0            (-100)
EE25  AB 89 0010                ADDA    16,X
EE29  A7 89 0010                STAA    16,X
EE2D  86 F9                     LDAA    #0F9
EE2F  A9 89 0008                ADCA    8,X
EE33  A7 89 0008                STAA    8,X
EE37  86 FF                     LDAA    #0FF
EE39  A9 89 0000                ADCA    0,X
EE3D  81 81                     CMPA    #081
EE3F  10 2E 0002                BGT     RET70
EE43  86 81                     LDAA    #081
EE45  A7 89 0000        RET70   STAA    0,X
EE49  35 04                     PULB
EE4B  35 02                     PULA
EE4D  30 01             RET80   INX
EE4F  48                        ASLA
EE50  5C                        INCB
EE51  10 26 FFC4                BNE     RET60
EE55  35 02             RET85   PULA
EE57  4A                        DECA
EE58  10 26 FFB4                BNE     RET50
EE5C                            PULX
EE5E  35 04                     PULB
EE60  35 02                     PULA
EE62  39                RET90   RTS
                        ;
                        ;- - - - - - - - - - - - - - - - - - - - - - - - - - - 
                        ;
EE63  7D 0181           REFWIN  TST     GFLAGS
EE66  10 2B 008F                BMI     REF90
EE6A  34 02                     PSHA
EE6C  34 04                     PSHB
EE6E                            PSHX
EE70  F6 01CF                   LDAB    PARTY
EE73  10 27 0030                BEQ     REF50           
EE77  34 02                     PSHA
EE79  B6 0037                   LDAA    WINBIT
EE7C  C1 03                     CMPB    #003
EE7E  10 27 0018                BEQ     REFP3
EE82  C1 02                     CMPB    #002
EE84  10 27 0009                BEQ     REFP2
EE88  85 44                     BITA    #044
EE8A  10 27 0017                BEQ     REFP9           
EE8E  7E EEA0                   BRA     REFP5
EE91  85 22             REFP2   BITA    #022
EE93  10 27 000E                BEQ     REFP9           
EE97  7E EEA0                   BRA     REFP5
EE9A  85 11             REFP3   BITA    #011
EE9C  10 27 0005                BEQ     REFP9           
EEA0  86 08             REFP5   LDAA    #008
EEA2  B7 0037                   STAA    WINBIT          set WINBIT for party controller 
EEA5  35 02             REFP9   PULA
EEA7  34 02             REF50   PSHA
EEA9  8E 01AB                   LDX     #PAYCON
EEAC  96 37                     LDAA    /WINBIT
EEAE  C6 FC                     LDAB    #-4
EEB0  85 88             REF60   BITA    #088
EEB2  10 27 002E                BEQ     REF80
EEB6  34 02                     PSHA
EEB8  34 04                     PSHB
EEBA  86 C0                     LDAA    #0C0            (-100)
EEBC  AB 89 0008                ADDA    8,X
EEC0  A7 89 0008                STAA    8,X
EEC4  86 F9                     LDAA    #0F9
EEC6  A9 89 0004                ADCA    4,X
EECA  A7 89 0004                STAA    4,X
EECE  86 FF                     LDAA    #0FF
EED0  A9 89 0000                ADCA    0,X
EED4  81 81                     CMPA    #081
EED6  10 2E 0002                BGT     REF70
EEDA  86 81                     LDAA    #081
EEDC  A7 89 0000        REF70   STAA    0,X
EEE0  35 04                     PULB
EEE2  35 02                     PULA
EEE4  30 01             REF80   INX
EEE6  48                        ASLA
EEE7  5C                        INCB
EEE8  10 26 FFC4                BNE     REF60
EEEC  35 02             REF85   PULA
EEEE  4A                        DECA
EEEF  10 26 FFB4                BNE     REF50
EEF3                            PULX
EEF5  35 04                     PULB
EEF7  35 02                     PULA
EEF9  39                REF90   RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    CLRNVR
                                *C
                                EXT     CLRNVR,SETNVR,CHKNVR
                                EXT     CHECK1,CHECK2,HMETER
                                EXT     QIDENT
                                EXT     STARTV,STARTC
                                EXT     WMETER
                                EXT     STARTD
                                EXT     VMETER
                        ;
                                *P
                        ;
EEFA  8E 0173           CLRNVR  LDX     #STARTD
EEFD  6F 89 0000        CLN10   CLR     0,X
EF01  30 01                     INX
EF03  8C 0280                   CPX     #00280
EF06  10 26 FFF3                BNE     CLN10
EF0A  39                        RTS
                        ;
EF0B  BD EF30           CHKNVR  BSR     SET50
EF0E  5D                        TSTB
EF0F  10 26 0001                BNE     CHK20
EF13  4D                        TSTA
EF14  39                CHK20   RTS
                        ;
EF15  BD EF30           SETNVR  BSR     SET50
EF18  BD EF28                   BSR     SET20
EF1B  BD EF30                   BSR     SET50
EF1E  34 02 E6E0                TAB
EF22  BB 0197                   ADDA    CHECK2
EF25  B7 0197                   STAA    CHECK2
EF28  50                SET20   NEGB
EF29  FB 0196                   ADDB    CHECK1
EF2C  F7 0196                   STAB    CHECK1
EF2F  39                        RTS
                        ;
EF30  8E 0196           SET50   LDX     #STARTC
EF33  86 00                     LDAA    #(QIDENT>8)&0FF
EF35  C6 27                     LDAB    #(QIDENT>0)&0FF
EF37  EB 89 0000        SET60   ADDB    0,X
EF3B  34 04 ABE0                ABA
EF3F  30 01                     INX
EF41  8C 019A                   CPX     #HMETER         
EF44  10 26 FFEF                BNE     SET60
EF48  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       ALARM ROUTINE
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    ALARM
                                *P
                                EXT     ALARM
                        ;
                                EXT     MTIMER,MUSOKI,OALARM
                        ;
EF49  BE 0045           ALARM   LDX     MTIMER
EF4C  10 26 FFF9                BNE     ALARM
EF50  8E 0032                   LDX     #50
EF53  BF 0045                   STX     MTIMER
EF56  BD D511                   JSR     MUSOKI
EF59  0101                      DATA    OALARM
EF5B  7E EF49                   BRA     ALARM
                        ;
                        ;******************************************************
                        ;
                        ;
                        ;       TIME DELAY SUBROUTINES
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    DELAYI
                                *P
                                EXT     DELAYI
                        ;
                                EXT     SWOPSX,DELAY
                        ;
EF5E  BD F109           DELAYI  JSR     SWOPSX
EF61  34 02                     PSHA
EF63  A6 89 0000                LDAA    0,X
EF67  30 01                     INX
EF69  BD EF72                   JSR     DELAY
EF6C  35 02                     PULA
EF6E  BD F109                   JSR     SWOPSX
EF71  39                        RTS
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    DELAY
                                *P
                                EXT     DELAY
                        ;
                                EXT     TIMER
                        ;
EF72  34 02             DELAY   PSHA
EF74  7F 015E                   CLR     TIMER
EF77  B7 015F                   STAA    TIMER+1
EF7A  B6 015F           DEL10   LDAA    TIMER+1
EF7D  10 26 FFF9                BNE     DEL10
EF81  35 02                     PULA
EF83  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       PROCESS LIST OF LAMP OPERATIONS
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    PRLPLI
                                *P
                                EXT     PRLPLI  ( TRAILING PARAMETERS )
                                EXT     PRLPLX  (INDEXED BY X REGISTER)
                        ;
                                EXT     SWOPSX,LPTERM,PRLPST
                        ;
                        ;------------------------------------------------------
                        ;
EF84  BD F109           PRLPLI  JSR     SWOPSX
EF87  BD EF8E                   BSR     PRLPLX
EF8A  BD F109                   JSR     SWOPSX
EF8D  39                        RTS
                        ;
                        ;------------------------------------------------------
                        ;
EF8E  34 02             PRLPLX  PSHA
EF90  34 04                     PSHB
EF92  A6 89 0000        PRL20   LDAA    0,X
EF96  85 80                     BITA    #080
EF98  10 27 0010                BEQ     PRL25
EF9C  30 01                     INX
EF9E  81 90                     CMPA    #LPTERM
EFA0  10 27 0010                BEQ     PRL30
EFA4  34 02 E6E0                TAB                     STATUS
EFA8  A6 89 0000                LDAA    0,X             LAMP NO.
EFAC  30 01             PRL25   INX
EFAE  BD EFD7                   BSR     PRLPST
EFB1  7E EF92                   BRA     PRL20
EFB4  35 04             PRL30   PULB
EFB6  35 02                     PULA
EFB8  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       PROCESS LAMP STATUS ROUTINES
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    PRLPSI
                                *P
                                EXT     PRLPSI
                        ;
                                EXT     PRLPST,SWOPSX
                        ;
EFB9  BD F109           PRLPSI  JSR     SWOPSX
EFBC  34 02                     PSHA
EFBE  34 04                     PSHB
EFC0  E6 89 0000                LDAB    0,X
EFC4  A6 89 0001                LDAA    1,X
EFC8  30 01                     INX
EFCA  30 01                     INX
EFCC  BD EFD7                   BSR     PRLPST
EFCF  35 04                     PULB
EFD1  35 02                     PULA
EFD3  BD F109                   JSR     SWOPSX
EFD6  39                        RTS
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    PRLPST
                                *P
                                EXT     PRLPST
                        ;
                                EXT     MOVX2S,LPSTAT,GBITAD,MOVS2X
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
                        ;
EFD7                    PRLPST  PSHX
EFD9  34 02                     PSHA
EFDB  34 04                     PSHB
EFDD  8E 00CF                   LDX     #LPSTAT
EFE0  34 04                     PSHB
EFE2  34 02 E6E0                TAB
EFE6  BD F0C0                   BSR     GBITAD
EFE9  35 04                     PULB
EFEB  BD F025                   BSR     PRL50
EFEE  34 04                     PSHB
EFF0  C6 10                     LDAB    #16
EFF2  30 01             PRL30   INX
EFF4  5A                        DECB
EFF5  10 26 FFF9                BNE     PRL30
EFF9  35 04                     PULB
EFFB  BD F025                   BSR     PRL50
EFFE  34 04                     PSHB
F000  C6 10                     LDAB    #16
F002  30 01             PRL35   INX
F004  5A                        DECB
F005  10 26 FFF9                BNE     PRL35
F009  35 04                     PULB
F00B  BD F025                   BSR     PRL50
F00E  34 04                     PSHB
F010  C6 10                     LDAB    #16
F012  30 01             PRL40   INX
F014  5A                        DECB
F015  10 26 FFF9                BNE     PRL40
F019  35 04                     PULB
F01B  BD F025                   BSR     PRL50
F01E  35 04                     PULB
F020  35 02                     PULA
F022                            PULX
F024  39                        RTS
                        ;
F025  34 02             PRL50   PSHA
F027  54                        LSRB
F028  10 25 0008                BCS     PRL60
F02C  43                        COMA
F02D  A4 89 0000                ANDA    0,X
F031  7E F038                   BRA     PRL65
F034  AA 89 0000        PRL60   ORAA    0,X
F038  A7 89 0000        PRL65   STAA    0,X
F03C  35 02                     PULA
F03E  39                        RTS
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    TESTLI
                                *P
                                EXT     TESTLI
                        ;
                                EXT     SWOPSX,TESTLP
                        ;
F03F  BD F109           TESTLI  JSR     SWOPSX
F042  A6 89 0000                LDAA    0,X
F046  30 01                     INX
F048  BD F109                   JSR     SWOPSX
F04B  7E F04E                   BRA     TESTLP
                        ;
                        ; - - - - - - - - - - - - - - - - - - - - - - - - - - -
                        ;
                                NAME    TESTLP
                                *P
                                EXT     TESTLP
                        ;
                                EXT     MOVX2S,LPSTAT,GBITAD,MOVS2X
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
F04E  34 02             TESTLP  PSHA
F050  34 04                     PSHB
F052                            PSHX
F054  8E 00CF                   LDX     #LPSTAT
F057  34 02 E6E0                TAB
F05B  BD F0C0                   JSR     GBITAD
F05E  5F                        CLRB
F05F  A5 89 0000                BITA    0,X
F063  10 27 0001                BEQ     TLP20
F067  5C                        INCB
F068  A5 89 0010        TLP20   BITA    16,X
F06C  10 27 0001                BEQ     TLP30
F070  5C                        INCB
F071  A5 89 0020        TLP30   BITA    32,X
F075  10 27 0001                BEQ     TLP32
F079  5C                        INCB
F07A  A5 89 0030        TLP32   BITA    48,X
F07E  10 27 0001                BEQ     TLP34
F082  5C                        INCB
F083                    TLP34   PULX
F085  C1 01                     CMPB    #1              OFF     FL      ON
F087  10 27 0008                BEQ     TLP40
F08B  C1 02                     CMPB    #2
F08D  10 27 0002                BEQ     TLP40
F091  C1 03                     CMPB    #3
F093  35 04             TLP40   PULB
F095  35 02                     PULA                    N..C    .Z..    ....
F097  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
                        ;       TEST SWITCH ROUTINES
                        ;
                                NAME    TESTSI
                                *P
                                EXT     TESTSW  (INDEXED BY X REGISTER)
                                EXT     TESTSI  ( 1 TRAILING PARAMETER)
                        ;
                                EXT     SWOPSX,SWSTAT,MOVS2X,MOVX2S,GBITAD
                        ;
                        ;
                                COPY    MN6809.ASM
                        ;******************************************************
                        ;
                        ;       MACROS FOR 6809 INSTRUCTIONS
                        ;
                        PSHX    MACR
                                DATA    03410
                                ENDM
                        ;
                        PULX    MACR
                                DATA    03510
                                ENDM
                        ;
                        PSHY    MACR
                                DATA    03420
                                ENDM
                        ;
                        PULY    MACR
                                DATA    03520
                                ENDM
                        ;
                        LDYI    MACR
                                DATA    0108E,\A
                                ENDM
                        ;
                        LDYA    MACR
                                DATA    010BE,\A
                                ENDM
                        ;
                        STYA    MACR
                                DATA    010BF,\A
                                ENDM
                        ;
                        LDAY    MACR                    LDAA    ADDR,Y
                                DATA    0A6A9,\A
                                ENDM
                        ;
                        STAY    MACR                    STAA    ADDR,Y
                                DATA    0A7A9,\A
                                ENDM
                        ;
                        LDBY    MACR                    LDAB    ADDR,Y
                                DATA    0E6A9,\A
                                ENDM
                        ;
                        STBY    MACR                    STAB    ADDR,Y
                                DATA    0E7A9,\A
                                ENDM
                        ;
                        INY     MACR
                                DATA    03121
                                ENDM
                        ;
                        DEY     MACR
                                DATA    0313F
                                ENDM
                        ;
                                END
                        ;
F098  BD F109           TESTSI  JSR     SWOPSX
F09B  A6 89 0000                LDAA    0,X
F09F  30 01                     INX
F0A1  BD F109                   JSR     SWOPSX
                        ;
F0A4  34 02             TESTSW  PSHA
F0A6  34 04                     PSHB
F0A8                            PSHX
F0AA  8E 0117                   LDX     #SWSTAT
F0AD  34 02 E6E0                TAB
F0B1  BD F0C0                   BSR     GBITAD
F0B4  A4 89 0000                ANDA    0,X
F0B8                            PULX
F0BA  4D                        TSTA
F0BB  35 04                     PULB
F0BD  35 02                     PULA
F0BF  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       GET BIT ADDRESS ROUTINE
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    GBITAD
                                *P
                                EXT     GBITAD
                        ;
                        ;------------------------------------------------------
                        ;
                        ;
F0C0  34 04             GBITAD  PSHB
F0C2  34 04 A6E0                TBA
F0C6  84 78                     ANDA    #078
F0C8  10 27 0008                BEQ     GBA15
F0CC  30 01             GBA10   INX
F0CE  80 08                     SUBA    #008
F0D0  10 26 FFF8                BNE     GBA10
F0D4  4C                GBA15   INCA
F0D5  C4 07                     ANDB    #007
F0D7  10 27 0006                BEQ     GBA25
F0DB  48                GBA20   ASLA
F0DC  5A                        DECB
F0DD  10 26 FFFA                BNE     GBA20
F0E1  35 04             GBA25   PULB
F0E3  39                        RTS
                        ;
                        ;
                        ;******************************************************
                        ;
                        ;       Move or Add 0:A to X register
                        ;
                                NAME    MOVA2X
                                *P
                                EXT     MOVA2X
                                EXT     ADDA2X
                        ;
F0E4  8E 0000           MOVA2X  LDX     #0*ADDA2X
                        ;
                        ;------------------------------------------------------
                        ;
                                NAME    ADDA2X
                                *P
                                EXT     ADDA2X
                        ;
F0E7  34 02             ADDA2X  PSHA
F0E9  4D                        TSTA
F0EA  10 27 0007                BEQ     ADA40
F0EE  30 01             ADA20   INX
F0F0  4A                        DECA
F0F1  10 26 FFF9                BNE     ADA20
F0F5  35 02             ADA40   PULA
F0F7  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    GETRAN
                                *B
                                EXT     GETRAN,RANDOM
                        ;
                                EXT     CLOCK3
                        ;
016E                    RANDOM  DS      1
                        ;
                                *P
                        ;
F0F8  B6 016E           GETRAN  LDAA    RANDOM
F0FB  B8 015C                   EORA    CLOCK3
F0FE  48                        ASLA
F0FF  10 24 0002                BCC     RAN20
F103  88 0F                     EORA    #00F
F105  B7 016E           RAN20   STAA    RANDOM
F108  39                        RTS
                        ;
                        ;******************************************************
                        ;
                        ;       EXCHANGE X REGISTER WITH TOP OF STACK
                        ;
                                NAME    SWOPSX
                                *P
                                EXT     SWOPSX
                        ;
                                EXT     TEMP1,TEMP2
                        ;
F109  BF 016F           SWOPSX  STX     TEMP1
F10C  34 02                     PSHA
F10E  34 04                     PSHB
F110  1F 41                     TSX                     B,A,L,L,T,T
F112  B6 016F                   LDAA    TEMP1
F115  E6 89 0004                LDAB    4,X
F119  A7 89 0004                STAA    4,X
F11D  F7 016F                   STAB    TEMP1
F120  B6 0170                   LDAA    TEMP2
F123  E6 89 0005                LDAB    5,X
F127  A7 89 0005                STAA    5,X
F12B  F7 0170                   STAB    TEMP2
F12E  35 04                     PULB
F130  35 02                     PULA
F132  BE 016F                   LDX     TEMP1
F135  39                        RTS
                        ;
                        ;******************************************************
                        ;
                                NAME    TEMP1
                                *B
                                EXT     TEMP1,TEMP2
                        ;
016F  74                TEMP1   DB      't'
0170  74                TEMP2   DB      't'
                        ;
                        ;******************************************************
                        ;
                                END

EN
