Feel free to telephone John Feagans at Atari (U.S.) at area  code
(408)  745-4923  any  time you have a question  about  using  the
software.   He  wrote the download program and the  transfer  rom
code.   He's the one who did not write any support  documentation
to go with his software.

Oh! What a fine boy is Dave Staugas.

** ASTEROIDS FOR THAT DAMN ATARI 3600, OR IS IT 7000, I FORGET. *
** WRONG!! IT'S THE ATARI 7800 PRO SYSTEM.  TA DA! *

LDX OFFPLAY2 ;POWER STEERING BABY!


BNE CKJOYRTS ;NO.  DON'T DO RANDOM VIOLENCE


;HERE ON OLD-STYLE SINGLE BUTTON JOYSTICK PRESS.
GOTONE:
LDA ONEBUT ;TURN OFF TWO-PLAYER BIT IMMEDIATELY
ORA RJBITS,X ; TO AVOID BURNING OUT HARDWARE

DROPCODE:
LDA     CODE,X ;CODE IS PRETTY RANDOM.
STA     RAND,X ;AT LEAST OURS IS.

BEQ AIMSHOT ;MR. BILL AIMS HIS SHOTS
JSR NEWRAND ;SLUGGO IS RANDOM


PICKSRAN:
JSR NEWRAND ;PICK A SHIP RANDOMLY
ASL ;WE'RE SUCH ASL'S
BCC AIMSHIP1

** RANDOM NUMBER ROUTINES, >NOT< PREVIOUSLY IN RANDOM.S **
* NEWRAND: A WHOLESOME RANDOM NUMBER JENERATER FROM KNUTH (NOTABLE PEDIGREE)


* ROTATE THROUGH THE COLORS TO TWINKLE THE STARS.
TWINKLE:
JSR NEWRAND ;DECIDE WHICH STARS TO TW'INC'LE

TAKEOVER: .ds.b     1                      ;ARE THESE NEEDED ANYMORE GUYS


NEXFRAME: .ds.b     1                      ;WHAT THE FUCK???


GSCRFLAG: .ds.b     1                      ;FLAG FOR MAINLOOP, SAYING WE SCROLLED
GCOARSE:  .ds.b     1                      ;MORE SCROLLING FLAGS FOR THE MASSES
FUCKFLAG: .ds.b     1       ;11             ;WHO THE FUCK KNOWS!


SPNZ:     .ds.b     1                      ;UPDATE THIS GUYS???


ZBUFF0:   .ds.b     33                     ;CHARACTER BUFFERS
ZBUFF1:   .ds.b     33                     ;ALSO USED FOR TITLE PAGE SHIT


          STX     TEMP3                  ;FIXED VP TO AVOID SANDFUCKER MODE


POSTGTFL: CMP     #126                   ;A MAGIC NUMBER IF I EVER SAW ONE


*         ROUTINE (YOU MEAN CODE FRAGMENT) TO DO DEATH ANIMATION


          LDX     #$FF                   ;FUCK WITH THE MOVEMENT FLAG


          LDX     SHOTCNT                ;COMMENT THIS


          BNE     ADJYDONE               ;NEVER HAPPENS.  WHAT DA FUCK??
ADJYAIR:  CLC                            ;WHAT GIVES FOLKS??


ASHOT1:   CMP     #UWECOL                ;WHAT ABOUT A UWE
          BNE     ASHOT2
lda WANIMCNT-UWEDEX,x ;Is the uwe exploding?
cmp #13 ;If yes, don't kill again.

;THERE ARE FOUR FIREMODES -- 0) MELLOW 1) RANDOM 2) SPASTIC 3) HARDCORE


          ;THIS MUST BE THE HARDCORE DRIVER.  WE KEEP GOAL RANDOM IF NOT IN
          ;RANGE OF X.  IF IN X RANGE, WE KEEP GOAL LOW UNTIL IN Z RANGE.  THEN
          ;WE RAISE GOAL TO ZAP THE DESERT FUCKIN' FALCON

          .dc.b      $FF,$00                ;WINGS9        255  TH-THAT'S ALL FOLKS

          LDA     #WINGS0&$FF             ;HACK FIRST AND LAST CHAR OF WINGMAP2
          STA     WINGMAP2               ;THIS IS TO SAVE BYTES YOU REALIZE


PALWD2:   .dc.b     $00,$00,$31            ;CREST (NOT THE TOOTHPASTE!)


*         CHAR MAPS FOR ONE AND TWO PLAYER SHIT


          STX     JERKOFF

;         BIT     FUCKFLAG               ;PUT THESE BACK TO SEE IF LOADER IS
;         BPL     FINE                   ;INTERRUPTED BY THIS DLI
; GOTCHA  NOP


          LDA     #$50                   ;COMMENT


          LDA     #0                     ;BLACKGROUND


          LDA     #0                     ;FOR FUTURE EXPANSION AND IMPERIALISM


          LDA     #0                     ;ENOUGH TIME HAS ELAPSED TO ALLOW CAPS
          STA     $1                     ;TO DISCHARGE SO CONTINUE FUCKING WITH
          LDA     #$14                   ;IO HARDWARE


          LDA     #ALADIN1               ;START TUNE     THIS IS BULLSHIT
          JSR     TUNIN                  ;COMMENTED OUT CAUSE I CANT STAND IT


GAMSTATE: BIT     GAMEOVR                ;IF OVER BOOGIE ON TO TITLE PAGE


          LDX     #$7F                   ;WHO THE FUCK KNOWS ANYWAY


          JMP     MAINLOOP               ;AND AGAIN AND AGAIN


GOTONE:   LDA     ONEBUT                 ;SET ONE-BUTTON MODE IMMEDIATELY
          ORA     RJBITS,X               ; TO AVOID DESTROYING HARDWARE!

lda PTIMER ;Already got something cookn'?


NOWHI:    LDX     PLAYER                 ;THIS SHIT YOU SEE HERE AND MANY PLACES
          BEQ     ONER                   ;GETS THE APPROPRIATE PLAYER INDEX INTO
          LDX     #3                     ;X

          LDX     #CRISVARS&$FF           ;SORRY CRIS! HAD TO DO IT


DICKLESS: CMP     #16                    ;IF >= 16 THEN WE MUST GO TO RIGTMASK


          TAX                            ;CLEVER HACKERY.  DON'T ASK

          CMP     #$F4                   ;EMPIRICALLY DETERMINED. BOO HOO


          LDA     FLTUNE,X               ;JUST FOR JOHN, HONEST.


.EXIT1: LDA #$00 ;TELLS JOHN NOT TO DO UWES


;THE CONSTANTS IN THIS ROUTINE ARE RUMORED TO BE CLOSE

*PROGRAMMERS BEWARE: THIS CODE IS OLD AND VERY UGLY! TAMPER AT YOUR OWN RISK


          CMP     #$F1                   ;TALK TO JEM ABOUT THIS ONE GRRRR!


          STA     KTEMP1                 ;REPLACE OLD KTEMP1 (THIS IS WHY WE
                                         ;AND WITH F ABOVE) I DON'T SEE WHY THIS
                                         ;WOULD EVER WORK

ENDRAM0: .ds.b 1 ;MOVE ME AS NEEDED  YES SIR