From RoadsideThoughts ...
A Bit of Vectrex History
 
Introduction
Programmer's
Guide
 
The RUM
 
Mine Storm
Fortress of
Narzod
 
Dark Tower
   
Sitemap
     
 

Vectrex 6809 Source Code

Dark Tower




Index of Dark Tower Files

The top most file for Dark Tower:

DRKTWR.ASM

The associated files:

BRGAND.DRK FRGMNTE.DRK MAP.DRK TOWER.DRK
COLIDE.DRK GOBLIN.DRK PACKS.DRK WARIOR.DRK
FIGHT.DRK GRDSCN.DRK SCENRY.DRK WIZARD.DRK
FLAMER.DRK INVENT.DRK SOUND.DRK  
FOREST.DRK MAGIC.DRK SUBR.DRK  

FOREST.DRK - Rev. A


;
;
         IF      L.FRST = OFF     ;-------------------------------------------
         LIST    -L               ;--  FOREST  -------------------------------
         ENDIF                    ;-------------------------------------------
;
;
;
;
;  *******************************************************
;  *******************************************************
;  ***                                                 ***
;  ***          F O R E S T   S U B - P L O T          ***
;  ***                                                 ***
;  *******************************************************
;  *******************************************************
;
;  FOREST SEQUENCER
;  ================
;
FOREST   JSR     INVENT           ;  DISPLAY INVENTORY PAGE OR PAUSE ?
         SETDP   $D0              ;  .    SET 'DP' = I/O
         PSHS    DP               ;  .    .
;
         LDA     #$C8             ;  SET 'DP' = RAM
         TFR     A,DP             ;  .
         SETDP   $C8              ;  .
;
         LDA     TMR1             ;  SET INITIALIZATION FLAG ?
         BNE     FRST1            ;  .
         COMA                     ;  .
         STA     INTFLG           ;  .    SET INITIALIZATION FLAG
;
FRST1    JSR     WARIOR           ;  HANDLE WARRIOR GAME LOGIC
;
         CLR     WARINH           ;  RESET WARRIOR MOTION INHIBIT
;
         JSR     SCENRY           ;  HANDLE FOREST SCENERY
;
         LDX     PLGLCK           ;  DOWN-COUNT PLAGUE LOCK-OUT TIMER
         BEQ     FRST2            ;  .    IS PLAGUE LOCK-OUT PENDING ?
         LEAX    -1,X             ;  .
         STX     PLGLCK           ;  .
;
FRST2    PULS    DP               ;  SET 'DP' = I/O
         SETDP   $D0              ;  .
;
         LDA     TMR1             ;  DISPLAY WARRIOR MESSAGE ?
         BEQ     FRST5            ;  .
;
         LDA     INTFLG           ;  .    FIRST THREE WARRIORS ?
         BNE     FRST3            ;  .    .
;
         LDU     #M.FRST          ;  .    DISPLAY FIRST WARRIORS MESSAGE
         BRA     FRST4            ;  .    .
;
FRST3    LDA     PLGLIM           ;  .    DISPLAY WARRIOR REPLACEMENT MESSAGE
         BNE     FRST5            ;  .    .    WAIT UNTIL PLAGUE IS OVER
         LDA     TROOPS           ;  .    .    IF NO TROOPS REMAINING - SKIP
         BEQ     FRST5            ;  .    .    .
         LDU     #M.NWAR          ;  .    .
;
FRST4    JSR     INTMAX           ;  .    .    SET INTENSITY
         JSR     DSMESS           ;  .    .
;
FRST5    JSR     FOG              ;  HANDLE FOG LOGIC
         JSR     PLAGUE           ;  HANDLE PLAGUE LOGIC
         JSR     GAMOVR           ;  HANDLE GAME-OVER LOGIC
;
         BRA     FOREST           ;  REPEAT FOREST SEQUENCE
;
         IF      L.FRST = OFF     ;-------------------------------------------
         LIST    *                ;-------------------------------------------
         ENDIF                    ;-------------------------------------------



 
 
 
 
 
 

Home
Page
Sitemap Privacy
Statement
Terms
of Use
Feedback

 
 

Please keep in mind that we can not guarantee the accuracy or timeliness of the information on this website, so use with care. We encourage you to double-check the information that is critical to you.

If you've found an error or have additional information that you would like to share, please don't hesitate to write. Click here to contact us.

Copyright 2016
All Rights Reserved
This page was last modified: 12 Jan 2017
By John Hall