.NWSPS JSR SPBLB \ Light up the space station bulb on the dashboard LDX #%10000001 \ Set the AI flag in byte #32 to %10000001 (hostile, STX INWK+32 \ no AI, has an E.C.M.) LDX #0 \ Set pitch counter to 0 (no pitch, roll only) STX INWK+30 STX NEWB \ Set NEWB to %00000000, though this gets overridden by \ the default flags from E% in NWSHP below \STX INWK+31 \ This instruction is commented out in the original \ source. It would set the exploding state and missile \ count to 0 STX FRIN+1 \ Set the second slot in the FRIN table to 0, so when we \ fall through into NWSHP below, the new station that \ gets created will go into slot FRIN+1, as this will be \ the first empty slot that the routine finds DEX \ Set the roll counter to 255 (maximum anti-clockwise STX INWK+29 \ roll with no damping) LDX #10 \ Call NwS1 to flip the sign of nosev_x_hi (byte #10) JSR NwS1 JSR NwS1 \ And again to flip the sign of nosev_y_hi (byte #12) JSR NwS1 \ And again to flip the sign of nosev_z_hi (byte #14) LDA spasto \ Copy the address of the Coriolis space station's ship STA XX21+2*SST-2 \ blueprint from spasto to the #SST entry in the LDA spasto+1 \ blueprint lookup table at XX21, so when we spawn a STA XX21+2*SST-1 \ ship of type #SST, it will be a Coriolis station LDA tek \ If the system's tech level in tek is less than 10, CMP #10 \ jump to notadodo, so tech levels 0 to 9 have Coriolis BCC notadodo \ stations, while 10 and above will have Dodo stations LDA XX21+2*DOD-2 \ Copy the address of the Dodo space station's ship STA XX21+2*SST-2 \ blueprint from spasto to the #SST entry in the LDA XX21+2*DOD-1 \ blueprint lookup table at XX21, so when we spawn a STA XX21+2*SST-1 \ ship of type #SST, it will be a Dodo station .notadodo LDA #LO(LSO) \ Set bytes #33 and #34 to point to LSO for the ship STA INWK+33 \ line heap for the space station LDA #HI(LSO) STA INWK+34 LDA #SST \ Set A to the space station type, and fall through \ into NWSHP to finish adding the space station to the \ universeName: NWSPS [Show more] Type: Subroutine Category: Universe Summary: Add a new space station to our local bubble of universeContext: See this subroutine in context in the source code Variations: See code variations for this subroutine in the different versions References: This subroutine is called as follows: * Main flight loop (Part 14 of 16) calls NWSPS * TT110 calls NWSPS
[X]
Configuration variable DOD = 34
Ship type for a Dodecahedron ("Dodo") space station
[X]
Subroutine NwS1 (category: Universe)
Flip the sign and double an INWK byte
[X]
Subroutine SPBLB (category: Dashboard)
Light up the space station indicator ("S") on the dashboard by sending a #DOBULB 0 command to the I/O processor
[X]
Configuration variable SST = 2
Ship type for a Coriolis space station
[X]
Variable XX21 (category: Drawing ships)
Ship blueprints lookup table
[X]
Label notadodo is local to this routine
[X]
Variable spasto (category: Universe)
Contains the address of the Coriolis space station's ship blueprint