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

Fortress of Narzod




Index of Narzod Files

The top most file for the Fortress of Narzod:

NARZOD.ASM

The associated files:

CITDEL.NAR GBULET.NAR MAIN.NAR TAIL.NAR
COLLIDE.NAR GGUARD.NAR PACKS.NAR TIMERS.NAR
GAME.NAR GSPIKE.NAR PRSPCT.NAR WALLS.NAR
GBIRD.NAR INIT.NAR SOUND.NAR  
GBLAST.NAR KILLER.NAR SUBR.NAR  

INIT.NAR - Rev. B


;
;
         IF      L.INIT = OFF     ;-------------------------------------------
         LIST    -L               ;--  INIT  ---------------------------------
         ENDIF                    ;-------------------------------------------
;
;
;
;
;  *********************************************************
;  *********************************************************
;  ***                                                   ***
;  ***          R E A D - O N L Y   M E M O R Y          ***
;  ***                                                   ***
;  *********************************************************
;  *********************************************************
;
         ORG     $0000
;        ===     =====
;
;==========================================================================JJH
;        DB      $67,' GCE 1982',$80   ;  CODE DELETED - REV. A       =====JJH
;==========================================================================JJH
;
;==========================================================================JJH
         DB      $67,' GCE 1983',$80   ;  CODE ADDED - REV. A         =====JJH
;==========================================================================JJH
         DW      WAGNER
;
         DW      $F850
         DW      $30D0
         DB      'FORTRESS',$80
         DW      $F850
         DW      $10F0
         DB      'OF',$80
         DW      $F850
         DW      $F0D8
         DB      'NARZOD',$80
         DB      0
;
;
;
;  POWER-UP INITIALIZATION
;  =======================
;
         SETDP   $D0
;        =====   ===
;
;
ENTRY    JSR     DPRAM            ;  SET "DP" REGISTER FOR RAM
         SETDP   $C8              ;  .
;
         INC     ZSKIP            ;  SET POST-PACKET ZEROING FLAG
;
         LDA     #$FF             ;  RESET DASHING
         STA     DASH             ;  .
;
;
;
;
;  INITIALIZE CITADEL
;  ==================
;
GAME1    LDA     #$BB             ;  SET-UP CONTROLLER FLAGS
         STA     SBTN             ;  .
         LDX     #$0103           ;  .
         STX     SJOY             ;  .
;
         LDD     #$0203           ;  SELECT OPTIONS
         JSR     SELOPT           ;  .
         DEC     PLAYRS           ;  .
;
;
GAME2    LDX     #ETMP1           ;  CLEAR MEMORY
CLRALL   CLR     X+               ;  .
         CMPX    #ENDRAM          ;  .
         BNE     CLRALL           ;  .
;
         LDD     #$1000           ;  SET GAME-OVER TIME-OUT DURATION
         STD     TIMOUT           ;  .
;
         LDX     #SCOR1           ;  CLEAR PLAYERS SCORE
         JSR     SCLR             ;  .
         LDX     #SCOR2           ;  .
         JSR     SCLR             ;  .
;
         LDD     #$0100           ;  SET-UP GAME-LEVEL TABLE POINTERS
         STD     TBLPT1 + 2       ;  .    SET GUARDIAN TYPE & LEVEL FLAG
         STD     TBLPT2 + 2       ;  .    .
;
         LDA     OPTION           ;  .    SET SELECTED OPTION NUMBER
         DECA                     ;  .    .
         LSLA                     ;  .    .
         LDX     #OPTLVL          ;  .    .
         LDU     A,X              ;  .    .
         STU     TBLPT1           ;  .    .
         STU     TBLPT2           ;  .    .
;
         LDX     #FIELD1          ;  .    SET ACTIVE GAME LEVEL COUNTER
         JSR     SCLR             ;  .    .    FOR PLAYER #1
         LDA     1,U              ;  .    .    .
         JSR     BYTADD           ;  .    .    .
         LDX     #FIELD2          ;  .    .    FOR PLAYER #2
         JSR     SCLR             ;  .    .    .
         LDU     TBLPT2           ;  .    .    .
         LDA     1,U              ;  .    .    .
         JSR     BYTADD           ;  .    .    .
;
         LDA     #5               ;  .    SET BLASTER COUNTERS
         STA     BLSCNT           ;  .    .
         STA     TBLPT1 + 6       ;  .    .
         STA     TBLPT2 + 6       ;  .    .
;
;==========================================================================JJH
;        JSR     CLRGAM           ;  CODE DELETED - REV. B CHANGES   ======JJH
;        CLR     ACTPLY           ;  .                               ======JJH
;        BRA     RSTLVL           ;  .                               ======JJH
;==========================================================================JJH
;
;==========================================================================JJH
         CLR     ACTPLY           ;  CODE ADDED - REV. B CHANGES     ======JJH
         BRA     RSTLV0           ;  .                               ======JJH
;==========================================================================JJH
;
;
         IF      L.INIT = 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