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  

WIZARD.DRK - Rev. A


;
;
         IF      L.WIZ = OFF      ;-------------------------------------------
         LIST    -L               ;--  WIZARD  -------------------------------
         ENDIF                    ;-------------------------------------------
;
;
;
;
;  DRAW WIZARD
;  ===========
;
         SETDP   $D0
;        =====   ===
;
WIZARD   LDA     FRAM7            ;  DISPLAY ANIMATED WIZARD
         BNE     WIZDSP           ;  .    LIMIT ANIMATION RATE
;
         INC     WZCNT            ;  .    INCREMENT FRAME BIAS
;
WIZDSP   LDA     WZCNT            ;  .    DISPLAY RIGHT SIDE OF MAGICIAN
         LSLA                     ;  .    .    FETCH LEFT SIDE ANIMATION
         LDX     #MAGIC2          ;  .    .    .
         LDX     A,X              ;  .    .    .
         STX     DRWLS2           ;  .    .    .
         LDX     #MAGIC1          ;  .    .    FETCH RIGHT SIDE ANIMATION
         LDX     A,X              ;  .    .    .
         STX     DRWLS1           ;  .    .    .
         BNE     DSPWZ1           ;  .    .    .    IF ZERO, RESTART ANIMATION
;
         DEC     WZCNT            ;  .    .    RESET ANIMATION
         LDA     #$01             ;  .    .    .    SET WIZARD DONE FLAG
         STA     WZDON            ;  .    .    .    .
         BRA     WIZDSP           ;  .    .    .
;
DSPWZ1   LDA     #$70             ;  .    .    SET INTENSITY
         SUBA    WZINT            ;  .    .    .    MODIFY FOR 'HYPER'
         CMPA    #$20             ;  .    .    .    .
         BLE     DSPWZ2           ;  .    .    .    .
         LDB     #$50             ;  .    .    .    SET SIZE
         STD     DRWINT           ;  .    .    .
;
         LDD     #$1000           ;  .    .    POSITION WIZARD ON SCREEN
         STD     TEMP1            ;  .    .    .
;
         LDD     #$0000           ;  .    .    DRAW USING 'DRWLS1/2'
         LDY     #TEMP1           ;  .    .    .
         JSR     CDIFFY           ;  .    .    DRAW WIZARD
;
DSPWZ2   RTS                      ;  RETURN TO CALLER
;
         IF      L.WIZ = 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