 ORG $2B0C
 PUT *
BBOLT LDA SHOT
 LBEQ EBBT
 LDA NNOW
 BEQ OK
 CLR NNOW
 RTS
OK LDY #LBUP
 LDX LASAD
 LDB  #4
BLTL LDU ,Y++
 STU ,X
 LEAX 32,X
 DECB
 BNE BLTL
 LDA LASY
 SUBA #4
 STA LASY
 CMPA #24
 BHI NTH
 CLR SHOT
 RTS
NTH LDX LASAD
 LEAX -128,X
 STX LASAD
 LDD LASX
 ADDA #12
 JSR CALCEL
 LDA ,X
 LBEQ EBBT
 STA TEMP1
 STX ELEM
 LDD CCD
 LSLA
 LSLA
 LSLA
 LSLA
 LSLB
 LSLB
 LSLB
 ADDA #8
 ADDB #24
 JSR CLCAD
 LDA TEMP1
 BPL NIB2
 LDA #240
 STA SFLAG1
 CLR SFLAG2
 CLR SFLAG3
 LDA PLFL
 BNE NPF
 CLR SHOT
 CLR LVOL
NPF RTS
NIB2 CMPA #2
 BNE SB
 JSR CRACK
 INC SCI
 LDA #240
 STA SFLAG2
 CLR SFLAG1
 CLR SFLAG3
 DEC [ELEM]
 CLR SHOT
 CLR LVOL
 RTS
SB LDA #240
 STA SFLAG3
 CLR SFLAG1
 CLR SFLAG2
 CLR SHOT
 CLR LVOL
 LDA [CDAT]
 STA CHAR
 JSR PUT16
 LDA SCI
 ADDA #2
 STA SCI
 CLR [ELEM]
 LDD NOBRK
 SUBD #1
 BNE SNB
 COM ENFLAG
 RTS
SNB STD NOBRK
 CMPB HFBRK
 BNE EBBT
 JMP FASTER
EBBT RTS
 
LGET LDA SHOT
 BEQ ELGT
 LDY #LBUP
 LDX LASAD
 LDB #4
LLTL LDU ,X
 STU ,Y++
 LEAX 32,X
 DECB
 BNE LLTL
ELGT RTS
 
PBOLT LDA SHOT
 BEQ EPBT
 LDX LASAD
 LDD CBOLT
 EORA ,X
 EORB 1,X
 STD ,X
 LEAX 32,X
 LDD CBOLT
 EORA ,X
 EORB 1,X
 STD ,X
 LEAX 32,X
 LDD CBOLT
 EORA ,X
 EORB 1,X
 STD ,X
 LEAX 32,X
 LDD CBOLT
 EORA ,X
 EORB 1,X
 STD ,X
 LEAX 32,X
EPBT RTS
 
B1 EQU $1E00
E1 EQU $1EB0
DATA EQU $1EF0
CRDAT EQU $1FF0
BATDAT EQU $1FFE
IMASK EQU $20CE
ICH EQU $20D6
RITAB EQU $2100
NUM EQU $2140
LAS EQU $2190
BOLT EQU $2198
PUT16 EQU $251D
PUT8 EQU $253D
CALCEL EQU $255C
CALTAB EQU $256A
CLCAD EQU $2575
PUT EQU $2583
PUTB EQU $25C1
GET EQU $25D6
GET2 EQU $25D9
CRACK EQU $25EE
BBAT EQU $2609
ICUPL EQU $261F
ICUPR EQU $264C
BLANK EQU $2679
ICPUT EQU $2685
FASTER EQU $27BB
IAD FDB $1430
IADO FDB $1410
 ORG $400
 PUT *
RAND RMB 1
ADDR RMB 2
COUNT RMB 1
COUNT2 RMB 1
COUNT3 RMB 1
CDAT RMB 2
SCR RMB 1
CHAR RMB 1
MASK RMB 1
POS RMB 2
OPOS RMB 2
BPOS RMB 1
BOPOS RMB 2
PIX RMB 1
IX RMB 1
IY RMB 1
SPEED RMB 1
NEGSPD RMB 1
CCD RMB 2
ELEM RMB 2
CFLAG RMB 1
BFLAG RMB 1
ENFLAG RMB 1
IFLAG RMB 1
ISFLAG RMB 1
SFLAG1 RMB 1
SFLAG2 RMB 1
SFLAG3 RMB 1
NOBRK RMB 2
TEMP1 RMB 1
TEMP2 RMB 1
BKUP RMB 16
IBUP RMB 8
ICHAR RMB 2
BRTAB RMB 336
KEYTAB RMB 8
CATFL RMB 1
CAUGHT RMB 1
SLFL RMB 1
BSFL RMB 1
BBFL RMB 1
PLFL RMB 1
PDEC RMB 1
LSFL RMB 1
OFFSET RMB 1
HFBRK RMB 1
SDEC RMB 1
SC1 RMB 1
SC2 RMB 1
SC3 RMB 1
SCI RMB 1
SHOT RMB 1
LASX RMB 1
LASY RMB 1
LASAD RMB 2
CBOLT RMB 2
LBUP RMB 8
NNOW RMB 1
LVOL RMB 1
PTCH RMB 2

