blob: 5f9c901f2642a3533d6e0d8cbda9afaf1d380020 [file] [log] [blame] [raw]
;*********************************************************************
;
; MOONLANDER FOR THE GT40 TERMINAL, FIRST VERSION.
; LEM.090, FEBRUARY 25, 1973 5:55 PM
; WRITTEN BY JACK BURNESS.
; FOR FANTASTIC PROGRAMS AT REASONABLE PRICES,
; OR EXPERT CONSULTING DONE IN EVERY PHASE OF SYSTEM
; DESIGN AND IMPLEMENTATION, WRITE
; JACK BURNESS
; P.O. BOX 411
; MAYNARD, MASS.
; 01754
;*********************************************************************
IN1=R0 ;INPUT REGISTER FOR SUBROUTINE CALLING.
IN2=R1 ;SECOND VALUE.
RET1=R2 ;HIGH ORDER PORTION OF SUBROUTINE RETURN.
RET2=R3 ;LOW ORDER PORTION.
TEMP=R4 ;SCRATCH REGISTER.
TEMP2=R5 ;SECOND SCRATCH.
;
; MAJOR DEFINITIONS FOR THE SYSTEM.
;
CLKFRQ=50. ;FREQUENCY OF THE RUN TIME CLOCK.
FIVESECONDS=300. ;DEFINE FIVE SECONDS WORTH OF TIME.
CLKFDG=1500. ;CLKFRQ*25.
CLKFG2=3000. ;CLKFRQ*50.
CLKFG3=600. ;CLKFRQ*10.
LKS=177546 ;CLOCK ADDRESS.
G=32. ;ACTUALLY 32.174 IN FUTURE CALCULATIONS.
G1=16087. ;G*500
G2=2670. ;MOON GRAVITY*500. (.166 EARTH'S).
STATUS=177776 ;WHERE STATUS IS LOCATED.
DISTOP=173400 ;THE DISPLAY STOP INSTRUCTION.
SETSVM=106120 ;INSTRUCTION TO SET SMALL VECTOR MODE.
SETPNT=114000 ;BASIC SET POINT INSTRUCTION.
DISJMP=160000 ;BASIC DISPLAY JUMP INSTRUCTION.
DPC=172000 ;DISPLAY PROGRAM COUNTER.
DSR=172002 ;DISPLAY STATUS REGISTER.
XSR=172004 ;X STATUS REGISTER.
YSR=172006 ;Y STATUS REGISTER.
INT=40000 ;INTENSITY BIT.
LEFT=20000 ;BIT TO SET FOR LEFT X IN LONG V
DOWN=20000 ;BIT TO SET FOR DOWN Y IN LONG VECTOR.
OTHER=100 ;BIT TO SET LEFT OR DOWN FOR SHORT MODE.
INTTWO=200 ;INTENSIFY BIT SHIFTED OVER.
MINTRS=10. ;10% IS MIN. ROCKET WILL RUN AT.
MAXTRS=10500. ;MAXIMUM THRUST OF ENGINE.
EMPTY=14300. ;EMPTY WEIGHT OF SHIP (18200 DESCENT FUEL).
FUELS=30000. ;INITIAL START QUANTITY OF FUEL.
DX1=0. ;X POSITION FOR DATA MESSAGE.
DX2=250.
DX3=500.
DX4=750.
DY1=730. ;Y POSITION FOR DATA MESSAGE.
DY2=730.
DY3=730.
DY4=730.
ITEMX1=900. ;X POSITIONS FOR CHOICE OF DISPLAY.
ITEMX2=ITEMX1
ITEMX3=ITEMX1
ITEMX4=ITEMX1
ITEMX5=ITEMX1
ITEMX6=ITEMX1
ITEMX7=ITEMX1
ITEMX8=ITEMX1
ITEMX9=ITEMX1
ITEMXT=ITEMX1
ITEMXE=ITEMX1
ITEMXS=ITEMX1
ITEMDY=22. ;SET UP DELTA Y VALUES NOW.
ITEMYS=5. ;DEFINE BOTTOM Y NOW.
ITEMYE=ITEMYS+ITEMDY ;DEFINE ALL THE OTHER Y'S AS DELTA'S.
ITEMYT=ITEMYE+ITEMDY
ITEMY9=ITEMYT+ITEMDY
ITEMY8=ITEMY9+ITEMDY
ITEMY7=ITEMY8+ITEMDY
ITEMY6=ITEMY7+ITEMDY
ITEMY5=ITEMY6+ITEMDY
ITEMY4=ITEMY5+ITEMDY
ITEMY3=ITEMY4+ITEMDY
ITEMY2=ITEMY3+ITEMDY
ITEMY1=ITEMY2+ITEMDY
SLFTAX=945. ;COORDINATES FOR THE TURNING ARROWS.
SLFTAY=375.
BLFTAX=945.
BLFTAY=330.
SRGTAX=955.
SRGTAY=375.
BRGTAX=955.
BRGTAY=330.
BARLX=947. ;LEFT EDGE OF THROTTLE BAR.
BARBY=450. ;BOTTOM OF THE THROTTLE BAR.
BARTY=700. ;TOP OF THE BAR.
BARSIZ=250. ;LENGTH OF THE BAR.
BARFDG=BARBY+25. ;ARITHEMENTIC FUDGE FACTOR.
BARMXR=940. ;WHERE UNDERLINING IS TO START.
BARMXL=43.+LEFT ;LENGTH OF UNDERLINE.
BAREST=55.+LEFT ;WHERE TO POSITION FOR THE LEADING BLANKS.
BARADD=13. ;AMOUNT TO ADD TO Y FOR UNDERLINE.
.PAGE
;
;
; MISC INFORMATION.
; ---- ------------
; ALL VELOCITIES ARE SIGNED AND STORED IN TENTHS OF FEET PER SECOND.
; ALL ACCELERATIONS ARE 500 TIMES ACTUAL.
; THE HORIZONTAL AND VERTICAL DISTANCE IS IN FEET (SIGNED).
; THE FUEL IS IN TENTHS OF POUNDS.
; WEIGHT OF THE CRAFT IS IN POUNDS, AS IS THRUST.
; ORIENTATION OF THE SHIP IS STRICTLY COMPASS (I.E.
; ZERO DEGREES IS AT THE TOP, 90 TO THE RIGHT, ETC.
; M A I N D A T A A R E A .
;
TURN: .WORD 0 ;PRESENT RATE OF TURN AS SELECTED BY USER.
ANGLE: .WORD 0 ;ANGLE CURRENTLY BEING USED FOR TRIG CALCULATIONS.
ANGLER: .WORD 0 ;REMAINDER OF ANGLE FOR TURNING.
SINANG: .WORD 0 ;SINE OF THAT ANGLE
COSANG: .WORD 0 ;COSINE OF THAT ANGLE.
ACCEL: .WORD 0 ;CURRENT ACCEL OF SHIP CAUSED BY ROCKET.
HORACC: .WORD 0 ;CURRENT HORIZONTAL ACCELERATION.
VERACC: .WORD 0 ;CURRENT VERTICAL ACCELERATION (INCLUDING G).
HORVEL: .WORD 0 ;CURRENT HORIZONTAL VELOCITY>
HORREM: .WORD 0 ;REMAINDER OF HORIZONTAL VELOCITY AFTER DIVIDING.
VERVEL: .WORD 0 ;CURRENT VERTICAL VELOCTIY.
VERREM: .WORD 0 ;REMAINDER OF VERTICAL VELOCITY AFTER DIVIDING.
HORDIS: .WORD 0 ;CURRENT HORIZONTAL DISTANCE.
VERDIS: .WORD 0 ;CURRENT VERTICAL DISTANCE.
PERCNT: .WORD 0 ;% OF THRUST FROM LIGHT BAR.
OLDPER: .WORD 0 ;PREVIOUS % TO SAVE USELESS DISPLAY CALCULATION.
PERTRS: .WORD 0 ;% THRUST THE USER IS REQUESTING.
THRUST: .WORD 0 ;ACTUAL THRUST DELIVERED.
FUEL: .WORD 0 ;TENTHS OF # OF LBS (EARTH) OF FUEL REMIANING.
WEIGHT: .WORD 0 ;CURRENT EARTH WEIGHT OF SHIP.
TICKS: .WORD 0 ;# OF TICKS. MOVED OVER TO CLOCK.
CLOCK: .WORD 0 ;# OF CLOCK TICKS SINCE LAST CALCULATION.
TIME: .WORD 0 ;ACCUMULATION OF "CLOCK". I.E. TOD.
BIGXCT: .WORD 0 ;PRESENT POSITION OF SHIP (X RASTOR).
LEFTED: .WORD 0 ;LEFT EDGE OF SCREEN FOR CLOSEUP WORK (DELTA X).
LEFEET: .WORD 0 ;DISTANCE FROM LANDING THAT LEFTEDGE IS DURING CLOSEUP.
INDEXL: .WORD 0 ;INDEX FOR FEATURE JUST TO LEFT OF SHIP.
AVERT: .WORD 0 ;AVERAGE RASTOR HEIGHT OF TERAIN.
AVERY: .WORD 0 ;AVERAGE Y HEIGHT OF THE TERRAIN.
RADARY: .WORD 0 ;AVERAGE RADAR HEIGHT ABOVE THE TERRAIN.
LASTX: .WORD 0 ;USED TO KEEP TRACK OF WHERE DRAW WAS WORKING.
LASTY: .WORD 0 ;SAME FOR Y.
LOWY: .WORD 0 ;LOWER LIMIT TO SHOW INVISIBLE VECTOR.
LOWEST: .WORD 0 ;LOWEST Y COORDINATE OF PRESENT SCREEN FIGURE.
SAVEY: .WORD 0 ;LOWEST Y OF LAST DRAWN SHIP.
FRAND: .WORD 0 ;RANDOMIZER WORD FOR ROCKET FLICKER.
FSHIFT: .WORD 0 ;X SHIFTER FOR FLAME.
FINT: .WORD 0 ;INTENSITY OF FLAME.
FLINE: .WORD 0 ;LINE TYPE FOR FLAME.
SHIPTP: .WORD 0 ;FLIP-FLOP TO DETERMINE WHICH BUFFER
;THE USER IS DISPLAYING SHIP FROM.
DNUM: .WORD 0 ;CURRENT PICTURE WE ARE DISPALYING.
DSTACK: .WORD STACKD ;CURRENT DISPLAY STACK POINTER.
LPFLG1: .WORD 0 ;CURRENT ADDRESS OF VALUE TO BE DISPLAYED.
OLDHIT: .WORD 0 ;PREVIOUS LIGHT PEN ADDRESS COUNTER TO
HITCNT: .WORD 0 ;AVOID SPURIOUS HITS.
MOON: .WORD . ;CURRENT STATUS OF PICTURE OF MOON.
DRAWCT: .WORD 0 ;COUNTER FOR DRAWING THE MOON.
DRAWTY: .WORD 0 ;LOCAL COUNTER FOR CHANGING THE INTENSITY OF
DRAWTZ: .WORD 0 ;THE SURFACE OF THE MOON.
DINT: .WORD 0
DTYPE: .WORD 0
DFUDGE: .WORD 0 ;ADDITIONAL MOON FUDGING FOR CLOSEUP.
XTYPE: .WORD 0 ;THIS IS THE RANDOMIZING WORD FOR
RADIUS: .WORD 0 ;THE EXPLOSION, AND THE BLAST RADIUS.
DUSTX: .WORD . ;A RANDOM WORD FOR GENERATING DUST.
.=.+40 ; -- RESERVE 40 OCTAL WORDS FOR STACK
STACKD: ;MAKE SURE THAT THERE IS ENOUGH SPACE FOR IT.
.PAGE
; C O D E
; - - - -
; START OF THE SYSTEM.
START: RESET ; DO A FEW HEAVY RESETS
RESET
;
; INSTALL THE NEW VECTORS
;
MOV #POWERF,24 ; PWR FAIL VECTOR
MOV #340,26
MOV #KBDINT,60 ; KEYBOARD
MOV #340,62
MOV #TIMER,100 ; LINE CLOCK
MOV #300,102
MOV #DISPLY,320 ; VT-11
MOV #200,322
MOV #LIGHT,324
MOV #200,326
MOV #DBUSE,330
MOV #340,332
;
; DISPLAY THE STARTING MESSAGE (ONCE)
;
MOV #STACK,SP
MOV #STARTM,DPC
MOV #100,177560 ; ENABLE KBD INTERRUPTS
MOV #100,LKS ; ENABLE LINE CLOCK
JSR PC,DELAY ; WAIT 10 SECS AND GET STARTED
.WORD 10.
;
; ONCE STARTED, ALL RESTARTS OCCUR HERE
;
RESTAR: MOV #MOONST,IN1 ;NOW SET THE MOON AREA TO ALL DISTOP'S
MOV #MOONEN,IN2 ;FOLLOWED BY A ZERO. GET LOC TO GET COUNT.
SUB IN1,IN2 ;AND GET # OF BYTES.
ASR IN2 ;GET NUMBER OF WORDS TO CLEAR.
ASR IN2 ;GET NUMBER OF DOUBLE WORDS TO CLEAR.
RESTL1: MOV #DISTOP,(IN1)+ ;PUT IN THE DISPLAY STOP INSTRUCTIONS NOW.
CLR (IN1)+
DEC IN2
BGT RESTL1 ;AND LOOP TILL DONE.
CLR STATUS ;CLEAR CPU STUFF.
MOV #STACK,SP ;SET UP THE STACK POINTER NOW.
MOV #INIT,IN1 ;INITIALIZE THE SYSTEM NOW.
STARTL: MOV (IN1)+,IN2 ;PICK UP NEXT COMMAND.
BEQ IDLE ;ZERO. ALL DONE.
MOV (IN1)+,(IN2) ;DO COMMAND NOW.
BR STARTL ;AND LOOP FOREVER.
;
; THIS IS THE MAIN WAIT POINT. IT IS
; ACTIVATED IN THE NORMAL RUNNING MODE.
; SUBROUTINE "EIDLE" CAN BE CALLED WHEN
; IT IS TIME TO BLAST OFF FROM THE MOON
; AFTER GETTING A HAMBURGER.
;
IDLE: JSR PC,EIDLE ;WAIT FOR AN EVENT.
BR IDLE ;AND LOOP FOREVER.
EIDLE: WAIT ;WAIT FOR AN INTERUPT TO OCCUR.
1$: CMP TICKS,#5 ;WAIT FOR CLOCK ON THE 40AND 45
BLT 1$
MOV TICKS,IN1 ;PICK UP THE NUMBER OF CLOCK TICKS NOW.
BEQ EXIDLE ;IF NONE, JUST EXIT.
CLR TICKS ;ELSE RESET THE LITTLE TICK COUNTER.
MOV IN1,CLOCK ;AND THEN PUT THE # OF TICKS AWAY FOR CALCULATIONS.
JSR PC,SHOWSP ;DO CALCULATIONS.
EXIDLE: RTS PC ;AND THEN RETURN TO CALLER.
.PAGE
;
; THE INITIALIZATION CRAP.
;
INIT: .WORD TURN,-1.
.WORD ANGLE,-70.
.WORD ANGLER,0
.WORD HORREM,0
.WORD VERREM,0
.WORD HORVEL,10000.
.WORD VERVEL,-5000.
.WORD HORDIS,-22000.
.WORD VERDIS,23000.
.WORD PERCNT,75.
.WORD LPBARY,BARFDG+150.
.WORD OLDPER,-1.
.WORD FUEL,FUELS
.WORD TIME,0
.WORD CLOCK,0
.WORD TICKS,0
.WORD LOWY,0
.WORD DNUM,0
.WORD DSTACK,STACKD
.WORD STACKD,DTOP
.WORD LPFLG1,0
.WORD MOON,.
.WORD DPC,ITEME1
.WORD LKS,100
.WORD FSUBC,0
.WORD SHIPDP,0
.WORD MOONGO,0
.WORD SYSMES,0
.WORD DUSTON,0
.WORD DIALTB,ITEME1
.WORD DIALTB+2,ITEME3
.WORD DIALTB+4,ITEME8
.WORD DIALTB+6,ITEME9
.WORD ITEME1+2,117560
.WORD ITEME2+2,117560
.WORD ITEME3+2,117560
.WORD ITEME4+2,117560
.WORD ITEME5+2,117560
.WORD ITEME6+2,117560
.WORD ITEME7+2,117560
.WORD ITEME8+2,117560
.WORD ITEME9+2,117560
.WORD ITEMET+2,117560
.WORD ITEMEE+2,117560
.WORD ITEMES+2,117560
.WORD OLDHIT,.
.WORD HITCNT,10.
.WORD LPSW,DISTOP
.WORD 0
.PAGE
;
; GO HERE IF THERE IS ANY ACTION FROM THE KEYBOARD
;
KBDINT: RESET
RTI
.PAGE
;
; POWER FAIL ROUTINES HERE.
;
POWERF: MOV #STACKD,DSTACK ;SET UP ALL THE STACKS NOW.
MOV #DTOP,STACKD
CLR DNUM
MOV #ITEME1,DPC ;THE DISPLAY IS GOING NOW.
MOV #100,LKS ;SO IS THE CLOCK.
MOV #STACK,SP ;NOW SO IS THE PROGRAM.
CLR STATUS
JMP IDLE ;AND REENTER.
;
; DISPLAY BUS ERROR ROUTINES.
;
DBUSE: CLR DNUM ;RECYCLE DISPLAY TO THE TOP OF THE LIST.
MOV IN1,-(SP) ;MAKE IT LOOK LIKE A NORMAL INTERUPT.
MOV IN2,-(SP)
MOV #DITEM1,IN2
JMP DTOPOK ;AND REENTER IT NOW.
.PAGE
;
; THIS ROUTINE WILL DRAW THE SHIP RELATIVE TO IT'S CENTER.
; THE ANGLES HAVE ALREADY BEEN GOTTEN FROM SOMEWHERE
; ELSE AND HAVE BEEN LEFT IN COSANG AND SINANG. IN ADDITION,
; IN1 POINTS TO THE COMMANDS ON HOW TO DRAW THE SHIP, AND IN2
; POINTS TO WHERE TO LEAVE THEM.
; COMMAND LIST OF THE THE FORM:
; "ADDRESS OF ROUTINE"
; "EXTRA DATA, IF NEEDED".
; IF IT'S A DATA POINT TO BE ROTATED, THEN THE NEXT WORD
; HAS THE X AND Y VALUES AS SEPARATE BYTES. THE X VALUE
; IS THE BYTE ON THE RIGHT....... REMEMBER THAT.
;
DRAW: MOV IN1,TEMP ;MOVE OVER THE INPUT LIST POINTER.
MOV IN2,TEMP2 ;AND THE OUTPUT LIST POINTER.
CLR LASTX ;SET TO CENTER OF OBJECT.
CLR LASTY
MOV #77777,LOWEST ;SET UP LOWEST POINT WE HAVE DRAWN SO FAR.
DRAWLP: MOV (TEMP)+,PC ;GO TO FIRST INSTRUCTION.
DRAWIS: CLR -(SP) ;DRAW INVISIBLE SHORT.
JSR PC,DRAWRT ;ROTATE NEXT SET OF POINTS.
BR DRAWSC ;AND THEN INSERT THEM INTO LIST.
DRAWVS: MOV #40000,-(SP) ;DRAW VISIBLE SHORT.
JSR PC,DRAWRT ;ROTATE RETURNS X IN RET1, Y IN RET2.
CMP LASTY,LOWY ;SEE IF THIS LINE SHOULD BE DRAWN.
BGE DRAWV1 ;YEP.
CLR (SP) ;NOPE. CLEAR OUT DISPLAY BIT.
BR DRAWSC
DRAWV1: CMP RET2,LOWY ;CHECK OTHER END NOW.
BGE DRAWSC ;IT'S ALSO OK.
CLR (SP) ;ELSE CLEAR THE DISPLAY BIT.
DRAWSC: MOV RET1,IN1 ;MOVE OVER X.
SUB LASTX,RET1 ;FIGURE OUT DELTA X.
BPL DRAWS1 ;IF POSITIVE, OK. ELSE
NEG RET1 ;REVERSE SIGN AND SET MINUS BITS.
BIS #20000,(SP) ;IN THE NEW SHORT VECTOR COMMAND.
DRAWS1: BIC #-100,RET1 ;REMOVE STRAY BITS (IF ANY).
SWAB RET1 ;GET INTO CORRECT POSITION.
ROR RET1
MOV IN1,LASTX ;AND FINALLY UPDATE THE NEW X POSITION.
MOV RET2,IN2 ;AND NOW DO SAME THING WITH THE Y.
SUB LASTY,RET2
BPL DRAWS2
NEG RET2
BIS #100,(SP)
DRAWS2: BIC #-100,RET2
MOV IN2,LASTY ;UPDATE THE NEW Y NOW.
CMP IN2,LOWEST ;SEE IF PRESENT Y IS LOWEST POINT ON SCREEN.
BGE DRAWNL ;NOT LOWEST.
MOV IN2,LOWEST ;IF LOWEST, REMEMBER IT.
DRAWNL: BIS RET1,RET2 ;NOW CREATE THE NEW INSTRUCTION.
BIS (SP)+,RET2
MOV RET2,(TEMP2)+ ;AND STORE IT AWAY.
BR DRAWLP ;AND FINALLY LOOP AROUND AGAIN.
DRAWIN: MOV (TEMP)+,(TEMP2)+ ;THIS MOVES OVER ONE WORD.
BR DRAWLP
DRAWDN: MOV #DISTOP,(TEMP2)+ ;THIS TERMINATES THE PICTURE
CLR (TEMP2)+ ;AND WILL CAUSE THE SUBROUTINE TO EXIT.
RTS PC
.PAGE
;
; THIS ROTATES THE X AND Y BYTE. (TEMP) POINTS TO THE X.
;
DRAWRT: MOVB (TEMP)+,IN1 ;PICK UP THE X.
MOV SINANG,IN2
JSR PC,TRGMUL ;MULTIPLY THEM.
MOV RET1,-(SP) ;AND SAVE X*SINANG.
MOVB (TEMP),IN1 ;PICK UP THE Y.
MOV COSANG,IN2
JSR PC,TRGMUL ;MULTIPLY THEM OUT.
SUB RET1,(SP) ;X*SINANG-Y*COSANG (WE'LL REVERSE SIGNS LATER.
MOVB -1(TEMP),IN1 ;PICK UP THE X AGAIN.
MOV COSANG,IN2
JSR PC,TRGMUL ;X*COSANG
MOV RET1,-(SP)
MOVB (TEMP)+,IN1 ;Y ONCE AGAIN.
MOV SINANG,IN2
JSR PC,TRGMUL ;Y*SINE
ADD (SP)+,RET1 ;X*COS+Y*SIN
MOV (SP)+,RET2 ;X*SIN-Y*COS
NEG RET2 ;Y*COS-X*SIN
RTS PC ;AND EXIT NOW.
.PAGE
;
; THIS ROUTINE FIGURES OUT THE ACCELERATION OF THE SHIP AND
; THE AMOUNT OF FUEL REMAINING.
;
ROCKET: TST FUEL ;SEE HOW MUCH FUEL WE HAVE ON BOARD NOW.
BEQ ROCKOFF ;NONE. TURN OFF THE ENGINE.
MOV PERTRS,IN1 ;PICK UP THE PERCENT THROTTLE NOW.
MOV #MAXTRS,IN2 ;GET THE MAXIMUM THRUST NOW.
JSR PC,MULTWO ;GET PER CENT * MAXTHRUST.
MOV #100.,IN1 ;GET %*MAXIMUM THRUST /100.
JSR PC,DIVTWO
MOV RET2,THRUST ;SAVE IT AWAY NOW.
MOV RET2,IN2
MOV CLOCK,IN1 ;PICK UP NUMBER OF CLOCK TICKS.
JSR PC,MULTWO
MOV #CLKFDG,IN1 ;PICK UP FREQUENCY*25.
JSR PC,DIVTWO ;APPROX. 250LBS FUEL PER LB THRUST.
SUB FUEL,RET2 ;NOW SUBTRACT OFF REMAINING FUEL.
BMI FUELOK ;IF NEGATIVE, THEN THE FUEL IS OK.
CLR RET2 ;ELSE MAKE SURE TOTAL IS ZERO.
MOV #DISTOP,LPSW ;STOP THE LOW FUEL MESSAGE NOW.
BR FUELKO ;HE'S GOT NONE LEFT.
FUELOK: NEG RET2 ;GET FUEL LEFT
TST LPSW ;SEE IF FUEL IS ALREADY LOW.
BEQ FUELKO ;IT IS.
CMP RET2,#2000. ;SEE IF UNDER 200 POUNDS.
BGE FUELKO ;NO. STILL OK.
CLR LPSW ;ELSE CLEAR THE SWITCH NOW.
BIS #0,DSR ;AND RING THE BELL <ONCE ONLY>
FUELKO: MOV RET2,FUEL ;AND SAVE IT AWAY.
CLR RET1 ;NOW DIVIDE BY 10 TO CONVERT
MOV #10.,IN1 ;TENTHS OF POUNDS TO POUNDS.
JSR PC,DIVTWO ;DO DIVISION NOW.
ADD #EMPTY,RET2 ;ADD IN EMPTY WEIGHT OF SHIP.
MOV RET2,WEIGHT ;AND SAVE AWAY NOW.
MOV THRUST,IN1 ;FIGURE OUT ACCELERATION NOW.
MOV #G1,IN2
JSR PC,MULTWO
MOV TEMP,IN1 ;NOW DIVIDE BY WEIGHT.
JSR PC,DIVTWO
MOV RET2,ACCEL ;AND SAVE THIS AWAY. A=TRS*G/W
MOV RET2,IN1
MOV SINANG,IN2 ;GET HORIZONTAL ACCELERATION.
JSR PC,TRGMUL
MOV RET1,HORACC
MOV ACCEL,IN1 ;AND GET THE VERTICAL ACCELERATION.
MOV COSANG,IN2
JSR PC,TRGMUL
SUB #G2,RET1 ;DON'T FORGET ABOUT THE LUNAR GRAVITY.
MOV RET1,VERACC
RTS PC ;AND RETURN NOW.
ROCKOF: MOV #DISTOP,LPSW ;TURN OFF LOW FUEL MESSAGE WHEN OUT.
CLR THRUST ;IF ROCKET IS OFF, TURN OFF THRUST.
MOV #EMPTY,WEIGHT ;UPDATE WEIGHT OF THE ROCKET NOW.
ADD FUEL,WEIGHT
CLR ACCEL ;CLEAR THE ROCKET'S ACCELERATION'S NOW.
CLR HORACC
MOV #-G2,VERACC ;SET ROCKET TO FREE FALL.
RTS PC ;AND RETURN NOW.
.PAGE
;
; THIS ROUTINE WILL DRAW THE THRUST OF THE ROCKET, BASED ON
; THE AMOUNT OF FUEL THAT IS BEING CONSUMED.
;
FLAME: MOV IN1,IN2 ;MOVE OVER WHERE TO LEAVE FLAME.
MOV PERTRS,TEMP ;PICK UP THE PERCENTAGE THRUST NOW.
ASR TEMP ;DIVDE BY EIGHT FOR THE TABLE LOOKUP.
ASR TEMP
ASR TEMP
MOVB YTHRST(TEMP),RET1 ;PICK UP THE Y LENGTH.
INC FRAND ;INCREMENT TO NEXT FLAME DIS@PLACEMENT.
MOV FRAND,RET2
BIC #-40,RET2 ;JUST THIRTY TWO VALUES POSSIBLE.
MOVB YUPDWN(RET2),RET2 ;PICK UP FLAME DISPLACEMENT.
ADD RET2,RET1 ;ADD THEM TOGETHER.
ADD RET1,FSHIFT ;FIX UP HORIZONTAL FLICKER NOW.
MOV FSHIFT,RET2
BIC #-4,RET2 ;JUST 0 TO 3.
MOV #FLEN,TEMP ;PICK UP #OF POINTS TO DO.
MOV #FLAMXS,TEMP2 ;PICK UP POINTER TO WHERE TO INSERT.
ADD #FLAMBT,RET2 ;LET RET2 POINT TO THE BYTE X TABLE.
FLAMLP: MOVB (RET2)+,(TEMP2)+ ;INSERT X VALUE NOW.
MOVB RET1,(TEMP2)+ ;INSERT THE Y VALUE.
ADD #6,TEMP2 ;UPDATE PAST COMMANDS.
DEC TEMP ;AND LOOP TILL DONE.
BGT FLAMLP
INC FLINE ;INCREMENT THE LINE TYPE NOW.
BIC #-4,FLINE
ADD #600,FINT ;AND THE INTENSITY NOW.
BIC #176177,FINT ;AND MAKE JUST SEVEN BITS.
MOV #106124,FLAMEX ;SET UP PROTOTYPE COMMAND.
BIS FLINE,FLAMEX ;AND MOVE OVER THE DATA.
BIS FINT,FLAMEX
MOV #FLAMDO,IN1 ;FINALLY SET UP THE POINTER.
JMP DRAW ;AND DRAW THE FIGURE, AND RETURN
.PAGE
;
; THIS ROUTINE GETS THE SINE AND COSINE FROM THE TABLES.
;
TRIG: MOV ANGLE,IN1 ;PICK UP THE ANGLE NOW.
BPL TRIG2 ;POSITIVE. SEE IF >180.
TRIG1: CMP IN1,#-180. ;NEGATIVE. SEE IF BELOW -180.
BGT TRIG3 ;>-180. IT'S OK.
ADD #360.,IN1 ;TOO SMALL. FUDGE IT AND LOOP.
BPL TRIG3 ;IF STILL NEGATIVE. ELSE IT'S OK.
BR TRIG1
TRIG2: CMP IN1,#180. ;POSITIVE. SEE IF IT'S >180.
BLE TRIG3 ;NOPE. IT'S OK.
SUB #360.,IN1 ;DECREMENT BY ONE REVOLUTION
BMI TRIG2 ;AND LOOP IF IT'S STILL TO BIG.
TRIG3: MOV IN1,ANGLE ;AND NOW SAVE IT AWAY AGAIN.
BPL TRIG4 ;CONVERT TO A GOOD COMPASS NOTATION.
ADD #360.,IN1 ;ELSE WRAP AROUND ONCE.
TRIG4: ASL IN1 ;SHIFT IT LEFT BECAUSE IT'S NECESSARY.
MOV SINTAB(IN1),SINANG ;NOW GET THE NECESSARY CONSTANTS.
CMP IN1,#540. ;SEE IF GREATER THEN 269 DEGREES.
BLT TRIG5 ;NO. IT'S ALRIGHT.
SUB #720.,IN1 ;TOO BIG. WRAP IT AROUND.
TRIG5: MOV COSTAB(IN1),COSANG ;NOW MOVE OVER THE COSINE.
RTS PC ;AND RETURN WHEN DONE.
.PAGE
;
; THIS ROUTINE FIGURES OUT WHERE THE SHIP IS IN RELATIONSHIP TO THE MOON.
;
WHERE: MOV HORACC,IN2 ;PICK UP THE X ACCEL.
BPL WH1 ;IF POSITIVE, FINE.
NEG IN2 ;ELSE NEGATE IT FOR A SECOND.
WH1: MOV CLOCK,IN1 ;PICK UP ELAPSED TIME NOW.
JSR PC,MULTWO ;MULTIPLY THEM TOGETHER.
MOV #CLKFG2,IN1 ;PICK UP TIMER FUDGE.
JSR PC,DIVTWO ;AND DIVIDE IT OUT NOW.
TST HORACC ;GET ORIGINAL SIGN OF X.
BPL WH2
NEG RET2
WH2: MOV RET2,RET1 ;MOVE OVER A*T
ASR RET2 ;GET .5*A*T
ADD HORVEL,RET2 ;GET V0+.5*A*T
ADD RET1,HORVEL ;UPDATE THE HORIZONTAL VELOCITY NOW.
MOV RET2,-(SP) ;SAVE SIGN OF VELOCITY FOR TEST LATER.
MOV RET2,IN2 ;VEL IN FPS*10
BPL WH3
NEG IN2
WH3: MOV CLOCK,IN1 ;NOW GET THE DISTANCE COVERED.
JSR PC,MULTWO
MOV #CLKFG3,IN1
ADD HORREM,RET2 ;BRING BACK THE REMAINDER FROM PREVIOUS OPERATIONS.
ADC RET1 ;AND DON'T FORGET THE CARRY.
JSR PC,DIVTWO ;ACTUAL DISTANCE COVERED.
TST (SP)+ ;RECALL OLD SIGN OF VELOCITY.
BPL WH4
NEG RET2
WH4: ADD RET2,HORDIS ;UPDATE THE DISTANCE NOW.
MOV RET1,HORREM ;AND SAVE THE REMAINDER NOW.
MOV VERACC,IN2 ;NOW DO THE UP AND DOWN PART.
BPL WH5 ;SAME SORT OF CRAP FOR THE Y.
NEG IN2
WH5: MOV CLOCK,IN1
JSR PC,MULTWO
MOV #CLKFG2,IN1
JSR PC,DIVTWO
TST VERACC
BPL WH6
NEG RET2
WH6: MOV RET2,RET1
ASR RET2
ADD VERVEL,RET2
ADD RET1,VERVEL
MOV RET2,-(SP) ;SAVE SIGN FOR LATER USE.
MOV RET2,IN2
BPL WH7
NEG IN2
WH7: MOV CLOCK,IN1
JSR PC,MULTWO
MOV #CLKFG3,IN1
ADD VERREM,RET2 ;ADD IN PREVIOUS REMAINDER NOW.
ADC RET1 ;AND FIDDLE IT ACCROSS.
JSR PC,DIVTWO
TST (SP)+
BPL WH8
NEG RET2
WH8: ADD RET2,VERDIS
MOV RET1,VERREM ;AND SAVE THE REMAINDER NOW.
RTS PC
.PAGE
;
; THIS SECTION WILL FIGURE OUT THE POSITION OF THE
; LUNAR MODULE AND WHICH VEIW TO USE.
;
SHOWSP: MOV #-64.,LOWY ;SET UP ABORT LIMIT OUT OF RANGE.
MOV TURN,TEMP2 ;PICK UP THE RATE OF TURN.
CLR TURN ;AND TURN IT OFF NOW.
MOV CLOCK,IN1 ;PICK UP THE NUMBER OF CLOCK TICKS.
MOV TEMP2,IN2 ;AND MOVE OVER THE RATE OF TURN.
BPL SHOWP1 ;IF POSITIVE, THEN OK,
NEG IN2 ;ELSE NEGATE IT.
SHOWP1: JSR PC,MULTWO ;MULTIPLY THEM TOGETHER.
MOV #CLKFRQ,IN1 ;AND THEN GET ACTUAL # OF DEGREES OF TURN.
ADD ANGLER,RET2 ;DON'T FORGET TO ADD IN THE REMAINDER NOW.
ADC RET1 ;AND THE CARRY, ALSO.
JSR PC,DIVTWO
TST TEMP2 ;AND FINALLY SET TO THE CORRECT SIGN.
BPL SHOWP2
NEG RET2
SHOWP2: ADD RET2,ANGLE ;UPDATE THE ANGLE NOW.
MOV RET1,ANGLER ;SAVE THE REMAINDER NOW.
JSR PC,TRIG ;AND GET NEW SINES AND COSINES.
ADD #2,SHIPTP ;GET WHICH SHIP'S
MOV SHIPTP,IN2 ;BUFFER TO USE.
BIC #-3,IN2 ;SO WE HAVE NO PROBLEMS.
MOV SHIPLC(IN2),IN2 ;AND SET UP CALL.
MOV #DESIGN,IN1 ;SET UP SHIP'S DESIGN.
MOV IN2,-(SP) ;REMEMBER THE BUFFER FOR LATER USE.
JSR PC,DRAW ;AND DRAW IT NOW.
MOV (SP)+,SHIPDP ;AND FINALLY MOVE OVER BUFFER POINTER TO CALL.
MOV LOWEST,SAVEY ;AND FINALLY SAVE THE LOWEST Y DRAWN.
SHOWNT: MOV PERCNT,PERTRS ;PICK UP THE PRESENT FUEL SETTING.
JSR PC,ROCKET ;FIGURE OUT ROCKET COMPONENTS.
JSR PC,WHERE ;AND NOW FIGURE OUT WHERE WE ARE ON MOON.
MOV HORDIS,TEMP ;PICK UP X IN FEET.
ADD #22400.,TEMP ;FUDGE UP DOWNRANGE CALCULATION.
ASR TEMP ;32 FEET PER RASTOR ON BIG SCALE.
ASR TEMP
ASR TEMP
ASR TEMP
ASR TEMP
MOV TEMP,BIGXCT ;AND SAVE AWAY FOR LATER USE.
MOV TEMP,TEMP2
ASL TEMP ;NOW GET THE CURRENT RADAR HEIGHT.
ADD #TERAIN,TEMP
MOV (TEMP)+,IN1 ;LEFT TERAIN.
ADD (TEMP),IN1 ;RIGHT TERAIN.
ASR IN1 ;AVERAGE IT OUT.
MOV IN1,AVERY ;AND SAVE IT AWAY.
SUB VERDIS,IN1 ;AND NOW GET THE RADAR HEIGHT.
NEG IN1
MOV IN1,RADARY ;RADAR HEIGHT IS NOW CALCULATED.
TST THRUST ;NOW SEE ABOUT THE ROCKET FLAME.
BLE NOFLAM ;NO THRUST=NO FLAME.
MOV #FLAMIN,IN1 ;THIS IS WHERE TO LEAVE THE FLAME.
JSR PC,FLAME ;GO DRAW THE FLAME NOW.
MOV #FLAMIN,FSUBC ;AND TURN ON THE FLAME AGAIN.
BR YSFLAM ;AND LEAVE FLAME ON.
NOFLAM: CLR FSUBC ;IF NO THRUST, TURN OF ROCKET.
YSFLAM: MOV BIGXCT,TEMP ;PICK UP X POSITION NOW.
BMI OFFLFT ;WE'RE OFF TO THE LEFT.
CMP TEMP,#10.
BLE OFFLFT ;WE ARE STILL OFF TO THE LEFT.
CMP TEMP,#890.
BGE OFFRGT ;SEE IF WE ARE TOO FAR TO THE RIGHT.
MOV VERDIS,TEMP ;WE SEEM TO BE OK. HOW ABOUT HEIGHT.
BMI CLSEUP ;IF MINUS, GO INTO CLOSEUP MODE.
CMP TEMP,#25000. ;IF OFF TOP, GIVE MESSAGE.
BGE OFFTOP
CMP TEMP,#450. ;SEE IF WE SHOULD MAGNIFY.
BLE CLSEUP ;YES. MAGNIFY.
MOV BIGXCT,SHOWX ;ELSE ESTABLISH THE Y COORDINATE.
ASR TEMP ;NOW SCALE DOWN THE VERTICAL DISTANCE.
ASR TEMP
ASR TEMP
ASR TEMP
ASR TEMP ;32 FEET PER RASTOR AT THIS RANGE.
ADD #43.,TEMP ;UPDATE
MOV TEMP,SHOWY
TST MOON ;IS MOON DRAWN.
BEQ SHWMN1 ;YES.
JSR PC,DRAWM1 ;NO.
CLR MOON ;RESET FLAG.
SHWMN1: JSR PC,DIAL ;DISPLAY THE DIALS NOW.
MOV RADARY,TEMP
SUB #16.,TEMP ;FIX FOR CENTER OF THE SHIP.
BPL SHWOUT ;IT'S OK.
MOV #640.,IN1 ;NOT OK. WE'VE CRASHED. BIG DISTORTION.
JSR PC,ALTER ;ALTER MOON NOW.
MOV SP,MOON ;INDICATE THAT WE'VE ALTERED THE MOON.
JSR PC,DRAWM1 ;NOW REDRAW IT.
CLR MOON ;AND REMEMBER THAT WE'VE REDRAWN IT.
JSR PC,EXPLOD ;GIVE AN EXPLOSION.
SHWOUT: RTS PC ;AND RETURN NOW.
.PAGE
;
; OFF SCREEN ROUTINES GO HERE......
;
OFFLFT: MOV #13.,IN1 ;PICK UP A NEW X NOW.
MOV #LFTMSG,IN2 ;AND PICK UP A MESSAGE NOW.
BR OFFCOM ;AND DO THE COMMON ROUTINES NOW.
OFFRGT: MOV #887.,IN1 ;A RIGHT X VALUE.
MOV #RGTMSG,IN2
BR OFFCOM ;SAME CRAP.
OFFTOP: MOV TEMP,IN1 ;PRESENT X VALUE.
MOV #TOPMSG,IN2 ;TOP MESSAGE.
OFFCOM: ASL IN1 ;GET A NEW HORDISTANCE.
ASL IN1
ASL IN1
ASL IN1
ASL IN1
SUB #22400.,IN1
MOV IN1,HORDIS ;SET DISTANCE.
MOV IN2,SYSMES ;SET MESSAGE NOW.
CLR FUEL ;TURN OFF FUEL NOW.
CLR HORVEL ;CLEAR SIDEWAYS MOTION.
MOV VERDIS,RET2 ;PICK UP VERTICAL DISTANCE NOW.
ASR RET2 ;DIVIDE BY 4 TO GET A REASONALBE SPEED.
ASR RET2
BMI OFFCMD ;IF GOING DOWN, WE ARE OK.
NEG RET2 ;ELSE MAKE US GO DOWN.
OFFCMD: MOV RET2,VERVEL ;AND SAVE IT AWAY NOW.
JMP SHOWSP ;AND RELOOP AND REDISPLAY SHIP NOW.
.PAGE
;
; THIS ROUTINE WILL DRAW THE CLOSEUP PICTURES OF
; THE MOON, WHEN THEY BECOME NECESSARY. RETURN GOES
; BACK TO IDLE VIA THE OLD PC ON THE STACK
; <OR IT SHOULD, ANYWAY.>.
;
CLSEUP: CMP MOON,(SP) ;SEE IF WE HAVE THE MOON IN SIGHT.
BEQ CLSEC1 ;YES.
MOV BIGXCT,IN1 ;NO. GET CURRENT RASTOR POSITION.
SUB #9.,IN1 ;NOW SET A GOOD LEFT EDGE.
CLSEFG: MOV IN1,LEFTEDGE ;LEFT EDGE ESTABLISHED NOW.
ASL IN1 ;NOW CONVERT EDGE TO FEET.
ASL IN1
ASL IN1
ASL IN1
ASL IN1
SUB #22400.,IN1
MOV IN1,LEFEET ;AND SAVE THAT AWAY.
JSR PC,DRAWM2 ;DRAW A CLOSE-UP OF THE MOON NOW.
MOV (SP),MOON ;SET FLAG TO INDICATE WE HAVE DONE SO.
MOV HORDIS,IN1 ;PICK UP THE HORIZONTAL POSITION NOW.
SUB LEFEET,IN1 ;GET FEET FROM LEFT EDGE OF SCREEN.
CLSEOK: MOV IN1,RET2 ;NOW GET RASTOR POSITION (3/2)
ASL IN1
ADD IN1,RET2
ASR RET2 ;(3/2) OF FEET=RASTOR<X>
MOV RET2,SHOWX ;AND SAVE IT AWAY NOW.
CLR RET1 ;NOW CONVERT THIS POSITION TO A GOOD.
MOV #48.,IN1 ;NOW CONVERT BACK TO A TERAIN INDEX.
JSR PC,DIVTWO ;DO THE DIVISION NOW.
ADD LEFTEDGE,RET2 ;MAKE INTO A TERAIN AND FEATURE INDEX.
MOV RET2,INDEXL ;SAVE AWAY INDEX TO LEFT POSTION OF SHIP.
ASL RET2 ;MULTIPLY BY TWO FOR THE TERAIN.
MOV RET2,TEMP ;SAVE IT FOR A SECOND.
MOV #48.,IN1 ;NOW FIGURE OUT HOW MUCH SHIP IS TO LEFT
SUB RET1,IN1 ;OR RIGHT OF CENTER OF TERAIN. USE DIVISION REMAINDER.
MOV RET1,TEMP2 ;SAVE THAT AWAY.
MOV TERAIN(TEMP),IN2 ;PICK UP TERAIN NOW.
JSR PC,SGNMUL ;MULTIPLY IT OUT NOW.
MOV RET2,-(SP) ;SAVE FOR A SECOND NOW.
MOV TEMP2,IN1 ;RECALL REMAINDER NOW. DO RIGHT EDGE OF "TERRAIN".
MOV TERAIN+2(TEMP),IN2 ;OTHER HEIGHT.
JSR PC,SGNMUL ;MULTIPLY THEM OUT.
CLR RET1 ;NOW SET UP DIVIDE. THIS WILL CONVERT
MOV #48.,IN1 ;TERAIN HEIGHT*48 TO DISPLAY FUDGED HEIGHT.
ADD (SP)+,RET2 ;OLD FUDGED WEIGHTED HEIGHT.
BPL CLSEF1 ;AVERAGE IS POSITIVE.
NEG RET2 ;AVERAGE IS NEGATIVE.
JSR PC,DIVTWO ;DO THE DIVIDE NOW.
NEG RET2 ;AND NEGATE THE ANSWER.
BR CLSEF2
CLSEF1: JSR PC,DIVTWO
CLSEF2: MOV RET2,TEMP ;MOVE OVER HEIGHT FOR DFAKE TO USE.
ASR RET2 ;NOW CONTINUING FUDING TERRAIN BY KNOWN STANDARDS.
ASR RET2
MOV RET2,AVERY ;SAVE AWAY AVERAGE TERAIN HEIGHT.
JSR PC,DFAKE ;GET ACTUAL RASTER HEIGHT ABOVE THE MOON.
MOV TEMP,AVERT ;SAVE IT AWAY NOW.
MOV VERDIS,IN1 ;PICK UP THE DISTANCE NOW.
MOV IN1,RET2 ;PREPARE TO CONVERT TO RASTORS.
ASL RET2 ; THE OLD 3/2 GAMBIT.
ADD IN1,RET2
ASR RET2
ADD #23.,RET2 ;TO CONVERT TO VIEWING RASTORS.
MOV RET2,SHOWY ;SAVE IT AWAY NOW.
ADD #24.,SHOWY ;EXCEPT FOR THE FUDGE.
SUB TEMP,RET2 ;GET # OF RASTORS TO GO.
MOV RET2,TEMP ;MOVE BACK OVER.
BPL CLSEF3 ;IF POSITIVE, ALL IS WELL.
NEG RET2 ;ELSE NEGATE IT NOW.
CLSEF3: CLR RET1 ;PREPARE TO DO THE DIVIDE.
MOV #3.,IN1 ;MAKE IT THREE HALFS.
ASL RET2
JSR PC,DIVTWO
TST TEMP ;GET BACK THE ORIGINAL SIGN NOW.
BPL CLSEF4
NEG RET2
CLSEF4: MOV RET2,RADARY ;AND THIS IS THE RADAR HEIGHT.
JSR PC,INTEL ;FIGURE OUT IF ANYTHING GREAT IS TO HAPPEN.
JSR PC,DUST ;AND ALSO IF WE SHOULD SHOW DUST.
AHNONE: RTS PC ;AND WHEN DONE, RETURN NOW.
CLSEC1: MOV HORDIS,IN1 ;MOON ALREADY BEING DISPLAYED.
SUB LEFEET,IN1 ;SEE IF IT'S STILL ON THE SCREEN.
CMP IN1,#30. ;TO CLOSE TO LEFT?
BLE CLOL ;YES. SHIFT TO RIGHT.
CMP IN1,#580. ;TOO CLOSE TO LEFT
BLT CLSEOK ;NOPE. DISPLAY AS IS.
MOV BIGXCT,IN1 ;SHIFT EVERYTHING LEFT NOW.
DEC IN1
BR CLSEFG ;SHOULD BE POIFECT.
CLOL: MOV BIGXCT,IN1 ;SHIFT EVERYTHING RIGHT IF TOO CLOSE TO THE LEFT.
SUB #17.,IN1
BR CLSEFG ;FUDGE IT NOW.
.PAGE
;
; GENERAL INTELIGENCE SECTION...
; THIS CODE GOES HERE SO THAT IT MAY BE
; REFERENCED BY SIMPLE BRANCH INSTRUCTIONS
; FROM THE MAIN SECTION "INTEL".
;
AHMAC: TST #MACON ;OVER MACDONALD'S. SEE IF DRAWN.
.=.-2 ;DEFINE MACON AS BEING HERE.
MACON: .WORD 0 ;AND INITIALIZE IT TO ZERO.
BEQ AHNONE ;NO, NOT DRAWN. EXIT NOW.
CMP TEMP2,#30. ;YES. SEE HOW CLOSE WE ARE.
BGT AHNONE ;NOT TOO CLOSE. ALL IS WELL.
CLR #MACTHR ;TOO CLOSE. WE'VE CRASHED INTO IT.
.=.-2 ;AND LIKEWISE DEFINE THE MAC DESTROYED
MACTHR: .WORD MACTHR ;FLAG AS STILL HAVING MACDONALDS.
MOV #MACDED,SYSMES ;TELL HIM WE'VE CRASHED INTO IT.
JMP QUICK ;AND KILL HIM OFF.
AHROCK: CMP TEMP2,#15. ;ARE WE TOO LOW OVER THE ROCK?
BGT AHNONE ;NOPE.
CMP VERVEL,#-600. ;GREATER THAN CRASH SPEED?
BLE GODEAD ;YES. HE'S DEAD.
MOV #ROCKMS,SYSMES ;START DISPLAYING THE ROCK MESSAGE NOW.
CLR SHIPDP ;STOP DISPLAYING THE SHIP NOW.
JSR PC,EXPLOD ;EXPLOD NOW
AHSP1: CMP TEMP2,#26. ;TOO HIGH?
BGT AHNONE ;IT'S ALRIGHT.
CMP TEMP,#-600. ;TOO FAST.
BLE GODEAD
MOV #OLDMS,SYSMES ;DISPLAY THE OLD SHIP MESSAGE.
MOV #3,-(SP) ;SET UP A LEFT SHIP
TST HORVEL ;GET HORIZONTAL VELOCITY.
BMI AHSP1M ;DIRECTION OK.
INC (SP) ;MAKE IT RIGHT TILTING.
AHSP1M: MOV IN1,-(SP) ;PUSH THE INDEX ONTO THE STACK.
JSR PC,PUTFET ;PLACE IN FEATURE TABLE NOW.
SUB #16.,SHOWY ;BRING DOWN THE OLD SHIP.
JSR PC,DRAWM2 ;REDRAW THE MOON NOW.
JSR PC,EXPLOD ;EXPLOD THE SHIP NOW.
AHFLG: CMP TEMP2,#26. ;ARE WE TOO HIGH
BGT AHNONE ;YEP.
TST THRUST ;ENGINE ON?
BEQ AHNONE ;NOPE. EXIT.
CLR -(SP) ;CLEAR THE FLAG NOW.
MOV IN1,-(SP)
JSR PC,PUTFET ;CLEAR INDICATOR FLAG NOW.
MOV #FLAGMS,SYSMES ;GIVE THE FLAG MESSAGE NOW.
JSR PC,DRAWM2 ;REDRAW THE MOON NOW.
BR AHNONE ;AND CONTINUE CHECKING CRAP.
AHOLDS: CMP TEMP2,#17. ;SEE IF ON CRASHED SHIP.
BGT AHNONE ;NOPE.
CMP TEMP,#-600. ;SEE IF TOO FAST.
GODEAD: BLE DEAD ;ELSE DEAD.
MOV #OLDTLT,SYSMES ;GIVE MESSAGE.
JSR PC,EXPLOD ;AND EXPLOD NOW.
.PAGE
;
; ROUTINE WHICH FIGURES OUT WHAT TO DO NOW.
;
INTEL: JSR PC,DIAL ;DISPLAY USER'S DATA NOW.
MOV RADARY,TEMP2 ;PICK UP ALTITUDE NOW.
BMI INTELM ;IT'S NEGATIVE. FIGURE OUT SOMETHING SPECIAL.
CMP TEMP2,#3. ;ARE WE CLOSE.
BLE VERYLOW ;WE CERTAINLY ARE.
MOV VERVEL,TEMP ;NOT TOO LOW. GET VELOCITY NOW.
CMP TEMP,#-600. ;SEE IF <=60 FPS
BLT AHAH ;YES. IS HE SCREWED UP.
CMP TEMP,#-300. ;HOW ABOUT 30 FPS
BLT AHAH2 ;HE'S NOT TOO SCREWED UP <YET!>
CMP TEMP,#-150. ;HOW ABOUT FIFTEEN FPS.
BLT AHAH3 ;GIVE ANOTHER MESSAGE.
CMP SYSMES,#N2FAST ;WAS A NOT TOO FAST MESSAGE THE
BNE AHAHC ;ONE ISSUED. NO.
CLR SYSMES ;YES. DELETE IT NOW.
AHAHC: MOV INDEXL,IN1 ;PICK UP FEATURE INDEX NOW.
MOV IN1,-(SP) ;PUSH DESIRED ITEM ONTO STACK.
JSR PC,GETFET ;GET THE FEATURE NOW.
MOV (SP)+,IN2 ;AND POP THE ITEM OFF THE STACK.
ASL IN2 ;MULTIPLY IT BY TWO.
JMP @AHTAB(IN2) ;WE'VE GOT IT NOW.
AHAH: MOV #VFAST,SYSMES ;GIVE A VERY FAST MESSAGE NOW.
BR AHAHC ;AND DO SOMETHING ELSE.
AHAH2: MOV #FAST,SYSMES ;GIVE A FAST MESSAGE.
BR AHAHC
AHAH3: MOV #N2FAST,SYSMES ;GIVE A "TAKE IT EASY MESSAGE".
BR AHAHC
INTELM: CMP TEMP2,#-10.
BLE DEAD ;TOO FAR DOWN. HE'S DEAD.
VERYLO: CLR PERCNT ;TURN OFF FUEL NOW.
MOV #BARBY,LPBARY ;AND INIDCATE IT TO HIM.
CLR FSUBC ;TERMINATE FLAMES.
CLR DUSTON ;AND THE DUST.
TST TEMP2 ;GET ALTITUDE NOW.
BEQ VD ;WE'RE DOWN.
BPL AHAHC ;IF POSITIVE, LOOK FOR FEATURES.
VD: MOV VERVEL,TEMP ;PICK UP THE VERTICAL VELOCITY NOW.
CMP TEMP,#-600. ;SEE IF GREATER THAN 60 FPS.
BLE DEAD ;YES. SPLAT
CMP TEMP,#-300. ;HOW ABOUT 30FPS
BLE CRIPPLED ;YES. HE'S CRIPLLED.
CMP TEMP,#-150. ;HOW ABOUT 15FPS
BLE ROUGH ;IT'S A ROUGH ONE.
CMP TEMP,#-80. ;HOW ABOUT 8FPS.
BLE GOOD ;IT'S A GOOD ONE.
MOV #GREATM,IN1 ;ISSUE GREAT MESSAGE
BR MAYBE ;AND NOW CHECK HORIZONTAL VELOCITY.
GOOD: MOV #GOODM,IN1 ;A GOOD LANDING.
BR MAYBE
ROUGH: MOV #ROUGHM,IN1 ;A ROUGH LANDING.
BR MAYBE
CRIPPL: MOV #CRIPM,IN1 ;CRIPPLED. GIVE THAT MESSAGE.
BR MAYBE
DEAD: MOV #DEADM,SYSMES ;ISSUE THE DEAD MESSAGE NOW.
QUICK: MOV #32.,IN1 ;ALTER THE SURFACE NOW.
JSR PC,ALTER
JSR PC,DRAWM2 ;REDRAW THE MOON NOW.
CLR SHIPDP ;STOP DISPLAYING THE SHIP.
JSR PC,EXPLOD ;EXPLOD NOW.
MAYBE: CLR FSUBC ;TURN OFF FLAME IMAGE NOW.
MOV IN1,SYSMES ;DISPLAY THE CALLER'S MESSAGE NOW.
CMP HORVEL,#100. ;SEE IF TOO FAST SIDEWAYS.
BGT MAYBEB ;TOO FAST.
CMP HORVEL,#-100. ;HOW ABOUT LEFT.
BLT MAYBEB ;TOO FAST.
CMP ANGLE,#-15. ;SEE IF THE ANGLE IS OK.
BLT MAYBEC ;TOO FAR LEFT.
CMP ANGLE,#15. ;RIGHT OK?
BGT MAYBEC ;YES. TIP HIM OVER.
MOV INDEXL,IN2 ;NOW FIGURE OUT IF TERAIN IS TOO ROUGH.
ASL IN2
MOV TERAIN+2(IN2),IN1 ;RIGHT TERAIN.
SUB TERAIN(IN2),IN1 ;LEFT TERAIN.
MOV IN1,RET1 ;MOVE OVER FOR ABSOLUTE VALUE.
BPL MAYBEP ;TAKE ABSOLUTE VALUE NOW.
NEG RET1
MAYBEP: CMP RET1,#48. ;SEE IF GREATER THAN A 48 FOOT DROP.
BGE MAYBED ;YES. A BADDY.
;PLANT THE FLAG NOW!!!!!!!
; <OR GET A HAMBURGER>.
JSR PC,PALSY ;WITH THE SPASTIC MAN.
MAYBEB: MOV HORVEL,IN1 ;PICK UP DIRECTION TO TIP SHIP.
MOV #SIDEM,IN2 ;PICK UP POINTER TO THE MESSAGE.
BR TILT ;AND TILT THE SHIP NOW.
MAYBEC: MOV ANGLE,IN1 ;GET THE DIRECTION TO TILT THE SHIP.
MOV #ANGLEM,IN2 ;AND PICK UP THE MESSAGE NOW.
BR TILT ;AND TILT IT NOW.
MAYBED: MOV #BUMPYM,IN2 ;PICK UP MESSAGE NOW. IN1=CORRECT SIGN.
TILT: MOV IN2,FSUBC ;DISPLAY MESSAGE FROM FLAME POINT.
MOV INDEXL,IN2 ;PICK UP TERAIN INDEX AGAIN.
MOV #3,-(SP) ;INDICATE IT'S TIPPED TO THE LEFT.
TST IN1 ;PICK UP DIRECTION AGAIN.
BMI TILT1 ;NO, MAKE IT TO THE RIGHT.
INC (SP)
TILT1: MOV IN2,-(SP) ;AND NOW UPDATE THE FEATURE TABLE.
JSR PC,PUTFET
ASL IN2 ;NOW GET TERAIN CHARACTERISTICS.
MOV TERAIN+2(IN2),RET1 ;RIGHT TERAIN.
SUB TERAIN(IN2),RET1 ;LEFT TERAIN.
MOV RET1,RET2 ;NOW WE'LL CONVERT FEET DIFFERENCE TO AN ANGLE.
ASL RET2 ;MULTIPLY IT BY 3
ADD RET1,RET2 ;OK
ASR RET2 ;NOW DIVIDE BY FOUR.
ASR RET2
SUB RET2,RET1 ;SUBTRACT FROM THE ORIGINAL.
MOV RET1,RET2 ;NOW HALF ANSWER AGAIN.
ASR RET2
ADD RET2,RET1 ;AND ADD IN NEW ANSWER. RESULT
;IS NUMBER OF DEGREES TO TILT.
BPL TILT2 ;NOW SEE IF RESULT IS GREATER THAN
CMP RET1,#-45. ;THE ABS(45).
BGE TILT3 ;IF OK, THEN LEAVE ALONE.
MOV #-45.,RET1 ;ELSE SET IT TO -45.
BR TILT3
TILT2: CMP RET1,#45. ;SEE IF IT'S GREATER THAN 45 DEGREES.
BLE TILT3 ;NO, IT'S OK.
MOV #45.,RET1 ;ELSE FIX IT UP NOW.
TILT3: MOV #90.,RET2 ;PICK UP FALLEN SHIP ANGLE.
TST IN1 ;GET WHICH WAY TO FALL.
BPL TILT4 ;IT'S OK.
NEG RET2 ;NEGATE IT NOW.
TILT4: ADD RET2,RET1 ;GET THE NEW SHIP ANGLE NOW.
MOV RET1,ANGLE ;UPDATE SHIP ANGLE.
MOV SHIPTP,IN2 ;NOW TOGGLE SHIP SWITCH.
ADD #2,IN2
BIC #-3,IN2
MOV IN2,SHIPTP
MOV SHIPLC(IN2),IN2 ;PICK UP BUFER POINTER NOW.
MOV IN2,-(SP) ;AND SAVE IT AWAY FOR LATER USE.
JSR PC,TRIG ;GET THE SINE AND COSINE NOW.
MOV #DESIGN,IN1 ;HOW TO DRAW SHIP.
JSR PC,DRAW ;DRAW IT NOW.
MOV (SP)+,SHIPDP ;SHOW NEW SHIP NOW.
SUB #7.,SHOWY ;BUT BRING IT DOWN A LITTLE BIT.
JSR PC,DELAY ;DELAY FOR A WHILE
.WORD 10.
.PAGE
;
; THIS ROUTINE WILL KICK UP DUST ON THE MOON.
;
DUST: CMP RADARY,#150. ;SEE IF WE ARE CLOSE TO THE MOON NOW.
BGE NODUST ;DON'T GENERATE ANY DUST NOW.
MOV #EXLIST,TEMP2 ;PICK UP ADDRESS OF WHERE TO LEAVE DUST.
MOV PERTRS,TEMP ;GET THE TRUST NOW.
CMP TEMP,#63. ;SEE IF MORE THAN 63%
BLE DUSTB1 ;NO. OK.
MOV #63.,TEMP ;IF MORE, SET TO 63% FOR SCALING.
DUSTB1: ROL TEMP ;BECAUSE WE WILL USE MAGNITUDE TO
ROL TEMP ;CONTROL INTENSITY.
ROL TEMP ;MOVE OVER TO INTENSITY SPOT.
ROL TEMP
BIC #176177,TEMP ;CLEAR OUT ANY STRAY BITS NOW.
BIS #116120,TEMP ;NOW SET THE POSITIONING MASK.
MOV TEMP,(TEMP2)+ ;PLACE IN THE LIST NOW.
CMP ANGLE,#45. ;SEE IF THE ANGLE IS TOO GREAT NOW.
BGT NODUST ;YEP.
CMP ANGLE,#-45.
BLT NODUST ;SAME HERE.
MOV SINANG,IN2 ;NOW GET THE PLACE TO PUT THE DUST
BPL DUSTP1 ;BY FIGURING OUT THE TANGENT OF
NEG IN2 ;OF THE ANGLE. MAKE POSITIVE
DUSTP1: MOV SHOWY,IN1 ;SO DIVIDE WON'T BLOW. GET RASTOR Y NOW.
SUB AVERT,IN1 ;SUBTRACT OFF THE TERAIN HEIGHT NOW.
MOV IN1,TEMP ;SAVE FOR A SECOND.
JSR PC,MULTWO ;GET PRODUCT.
MOV COSANG,IN1 ;GET COSINE NOW.
JSR PC,DIVTWO ;RET2=TAN(ANGLE)*DELTAY
ADD RET2,TEMP ;TEMP=DELTAX+DELTAY=TOTAL FLAME DISTANCE.
TST SINANG ;FIGURE OUT WHICH WAY DUST IS TO GO.
BMI DUSTP2 ;CORRECT DIRECTION NOW.
NEG RET2 ;ELSE NEGATE IT NOW.
DUSTP2: ADD SHOWX,RET2 ;CENTER OF DUST NOW.
MOV RET2,(TEMP2)+ ;INSERT INTO THE BUFFER.
MOV AVERT,(TEMP2)+ ;INSERT THE Y VALUE NOW.
MOV #130000,(TEMP2)+ ;INSERT RELATIVE POINT COMMAND INTO THE BUFFER.
SUB #150.,TEMP ;GET APPROXIMATE DISTANCE TO GROUND.
BPL NODUST ;MORE THAN 50 FEET AWAY. PRODUCE NO DUST.
NEG TEMP ;MAKE THE DISTANCE POSITIVE AGAIN.
MOV TEMP,IN1 ;NOW MULTIPLY IT BY THE % THROTTLE.
MOV PERTRS,IN2
JSR PC,MULTWO ;NOW HAVE ANUMBER BETWEEN 0 AND 5000
ASR RET2 ;NOW BRING IT DOWN TO A CIVILIZED NUMBER.
ASR RET2 ;BY DIVIDING BY 16.
ASR RET2
ASR RET2
BEQ NODUST ;IF ZERO, GENERATE NO DUST.
MOV RET2,-(SP) ;SAVE THE COUNTER ON THE STACK.
MOV #STACK-200.-EXLIST-12.,RET1 ;PICK UP SIZE OF DUST AREA.
ASR RET1 ;GET NUMBER OF DOUBLE WORD ENTRIES.
ASR RET1
CMP RET1,(SP) ;SEE IF CALCULATED NUMBER IS OK.
BHIS DUSTWF ;IF GREATER OR EQUAL, ALL IS WELL.
MOV RET1,(SP) ;ELSE SET A FINITE LIMIT NOW.
DUSTWF: MOV DUSTX,RET1 ;PICK UP A RANDOM DUST GENERATING WORD.
MOV #-100,RET2 ;AND LEAVE A GOOD MASK IN RET2.
DUSTL: ADD TIME,RET1 ;GENERATE THE RANDOM WORD NOW.
INC RET1
BIC RET2,RET1 ;NOW LEAVE JUST LOW SIX BITS.
MOVB YTHRST(RET1),IN1 ;PICK UP AN X NOW.
ADD VERACC,RET1 ;NOW A LITTLE MORE RANDOMIZING.
BIC RET2,RET1 ;INDEX SET TO PICK UP Y.
BIC RET2,IN1 ;MAKE X JUST SIX BITS.
SWAB IN1 ;X OVER TO LEFT.
ROR IN1 ;AND INTO POSITION NOW.
COM TEMP ;COMPLEMENT X DIRECTION NOW.
BIC #-20001,TEMP ;LEAVE JUST THE SIGN BIT.
BIS #40000,TEMP ;SET THE INTENSITY BIT NOW.
BIS TEMP,IN1 ;AND SET THEM IN THE X NOW.
MOVB YTHRST(RET1),IN2 ;PICK UP THE Y NOW.
BIC RET2,IN2 ;Y IS ALWAYS POSITIVE.
BIS IN2,IN1 ;MAKE THE COMMAND NOW.
MOV IN1,(TEMP2)+ ;AND STICK IT AWAY.
ADD #20100,IN1 ;FLIP X AND Y SIGNS.
BIC #140000,IN1 ;TURN OFF DISPLAY BIT.
MOV IN1,(TEMP2)+ ;AND SAVE AWAY NOW.
DEC (SP) ;DECREMENT THE COUNTER NOW.
BGT DUSTL ;LOOP AROUND UNTIL DONE.
MOV #DISTOP,(TEMP2)+ ;TERMINATE THE LIST NOW.
CLR (TEMP2) ;WITH A DISPLAY STOP INSTRUCTION
MOV RET1,DUSTX ;SAVE DUSTX NOW.
TST (SP)+ ;INCREMENT THE COUNTER NOW.
MOV #EXLIST,DUSTON ;TURN ON THE DUST NOW.
RTS PC ;AND RETURN TO THE CALLER.
NODUST: CLR DUSTON ;TURN OFF THE DUST DISPLAY NOW.
RTS PC ;AND RETURN.
.PAGE
;
; THIS ROUTINE WILL PLANT AN AMERICAN FLAG ON THE MOON.
; <WITH A M*A*N, NO LESS>
; OR EVEN MORE SUPER, IT WILL BUY
; SOME HAMBURGERS.
;
PALSY: JSR PC,DELAY ;WAIT FOUR SECONDS BEFORE
.WORD -4. ;DOING ANYTHING GREAT.
MOV SHOWX,MANX ;POSITION MAN CORRECTLY.
MOV SHOWY,MANY
MOV #MAN,DUSTON ;SHOW THE MAN NOW.
PALSY1: BIT #177,TIME ;WAIT FOR CLOCK TO LINE UP NOW.
BNE PALSY1 ;WHICH SHOULD TAKE A RANDOM AMOUNT OF TIME.
TST MACON ;SEE IF THERE'S A MACDONALD'S PRESENT.
BEQ PALNOR ;NONE. NORMAL PLANT.
; MOVE THE MAN TO THE MACDONALD'S NOW!
MOV MACX,RET2 ;PICK UP THE MACDONALD'S X
SUB SHOWX,RET2 ;FIGURE OUT WHICH WAY TO GO.
MOV MACY,RET1 ;PICK UP THE HEIGHT OF THE MACDONALD'S.
SUB MANY,RET1 ;GET THE HEIGHT OF THE MAN NOW.
ADD #3,RET1 ;LIFT HIM UP OFF THE FLOOR.
MOV RET1,-(SP) ;AND PUSH DIFFERENCE ONTO STACK.
BEQ PALMX1 ;IF NO X, THEN ONLY MOVE Y.
JSR PC,MOVMAN ;MOVE THE MAN NOW.
PALMX1: MOV MACX,RET2 ;NOW FIGURE OUT HOW FAR TO MOVE THE MAN.
SUB MANX,RET2
ADD #25.,RET2 ;BRING HIM INTO THE PLACE.
MOV RET2,-(SP) ;REMEMBER WHERE WE WERE.
CLR RET1 ;NO Y MOVE.
JSR PC,MOVMAN ;MOVE THE MAN NOW.
MOV #ORDER,SYSMES ;ORDER THE FOOD NOW.
JSR PC,DELAY ;WAIT FOR AWHILE.
.WORD -8.
CLR SYSMES ;REMOVE THE MESSAGE.
JSR PC,DELAY ;WAIT SOME MORE NOW.
.WORD -2. ;AND THEN FINALLY START HIM BACK.
NEG (SP) ;GET THE NEGATIVE DISTANCE.
MOV (SP),RET2
CLR RET1 ;NO Y.
JSR PC,MOVMAN
MOV (SP)+,RET2 ;AND THEN GO UP INTO THE SHIP.
MOV (SP)+,RET1 ;BY RECALLING THE VALUES.
NEG RET1 ;INVERT SIGN, AND DON'T
BEQ PALMX2 ;FORGET POSSIBILITY OF SHIP LEVEL.
JSR PC,MOVMAN ;UP HE GOES NOW.
PALMX2: JSR PC,DELAY ;HOLD HIM IN SHIP A FEW SECONDS.
.WORD -2.
ADD #4.,VERDIS ;THEN LIFT HIM UP, AND TAKE HIM OFF.
ADD #2000.,FUEL ;GIVE HIM A LITTLE BIT MORE FUEL.
CLR VERVEL ;AND NO UPWARD VELOCITY.
CLR TICKS ;RESET NUMBER OF TICKS THAT HAVE ELAPSED.
MOV #STACK,SP ;AND SET SP TO TOP OF CORE <AGAIN>.
PALOFF: CLR SYSMES ;LOOP WITHOUT GIVING ANY MESSAGES.
CLR ANGLE ;STRAIGHT UP.
CLR HORVEL ;WITH NO SIDEWAYS MOTION.
MOV #30.,PERCNT ;WITH ENOUGH THRUST TO RISE UP.
JSR PC,EIDLE ;AND DO EVERYTHING RIGHT.
TST MOON ;AND WAIT TILL MOON GETS BIG.
BNE PALOFF ;AND THEN MAYBE WE'LL FALL THROUGH.
CLR SHIPDP ;WHEN MOON IS BIG, REMOVE
CLR FSUBC ;SHIP AND FLAME.
JSR PC,DELAY ;AND THEN JUST WAIT FOR A FEW SECONDS.
.WORD 3.
.PAGE
;
; THIS ROUTINE PLANTS AN AMERICAN FLAG ON THE MOON.
;
PALNOR: MOV #1,-(SP) ;INDICATE TO MEMORY THAT SHIP HAS LANDED.
MOV INDEXL,-(SP)
JSR PC,PUTFET ;AWAY GO THE FEATURES NOW.
MOV #-24.,RET1 ;PREPARE TO MOVE THE MAN OUT NOW.
MOV #48.,RET2
MOV TIME,TEMP2 ;FUDGE WHICH WAY TO MOV THE MAN.
ROR TEMP2 ;BY DIDDLING LOW BIT OF TIME.
BCC PALN1 ;IF LOW BIT OFF, GO RIGHT.
NEG RET2 ;IF ON, GO LEFT.
PALN1: MOV RET2,-(SP) ;REMEMBER IT ANYWAY.
JSR PC,MOVMAN ;MOVE THE MAN NOW.
MOV (SP)+,RET2 ;AND THEN THE FINAL DISTANCE.
CLR RET1 ;WITH NO Y.
JSR PC,MOVMAN
MOV MANX,FLAGX ;DISPLAY THE FLAG NOW.
MOV MANY,FLAGY
ADD #20.,FLAGX ;OFFSET IT A LITTLE BIT.
MOV #FLAGL,FSUBC ;PLACE FLAG IN THE FLAME LIST.
MOV INDEXL,IN1 ;PICK UP THE INDEX NOW.
JSR PC,PALSYI ;UPDATE IT ALSO.
JSR PC,PALSYI ;SO WE KNOW WHERE TO REMEMBER FLAG.
MOV #2,-(SP) ;SAVE IT AWAY NOW.
MOV IN1,-(SP) ;IN THE FEATURE TABLE
JSR PC,PUTFET
MOV #MANMSG,SYSMES ;DISPLAY THE MESSAGE NOW.
JSR PC,DELAY ;WAIT TEN MORE SECONDS.
.WORD 10.
.PAGE
;
; THIS ROUTINE MOVES THE MAN ALONG THE SURFACE
; OF THE MOON. RET1=DELTA Y; RET2=DELTA X.
; IF Y=0, THEN ONLY X IS USED. IF Y<>0, THEN ONLY
; THE SIGN OF THE X IS USED.
;
MOVMAN: MOV #INC,TEMP2 ;GET "INC IN1" TO INDICATE X TO RIGHT.
TST RET2 ;GET X DIRECTION NOW.
BPL MOVM1 ;TO THE RIGHT.
MOV #DEC,TEMP2 ;ELSE MAKE THE X GO THE OTHER WAY.
NEG RET2 ;AND SET THE COUNTER TO GO DOWN.
MOVM1: MOV TEMP2,PALSYI ;SAVE AWAY THE GENERATED INSTRUCTION NOW.
CLR TEMP2 ;CLEAR THE DELTA Y ADD NOW.
TST RET1 ;NOW GET THE AMOUNT OF THE DELTA "Y".
BEQ MOVJX ;NO Y. JUST X MOVE.
INC TEMP2 ;SOME Y. SET TO UP.
MOV RET1,RET2 ;AND USE THE Y AS THE COUNTER NOW.
BPL MOVJX ;IF UP, ALL IS WELL,
NEG RET2 ;ELSE NEGATE COUNT AND THE
NEG TEMP2 ;AND THE DELTA Y ADD.
;RET2=+COUNT TO DO, TEMP2=DELTA Y.
MOVJX: MOV MANX,IN1 ;PICK UP THE PRESENT POSITION NOW.
MOVLUP: JSR PC,PALSYI ;MOVE OVER THE X.
MOV IN1,MANX ;AND PLACE IN MEMORY.
ADD TEMP2,MANY ;UPDATE THE Y ALSO.
JSR PC,PALSYW ;WAIT FOR 8 CLOCK TICKS TO GO BY.
DEC RET2 ;ELSE DECREMENT THE COUNTER.
BGT MOVLUP ;AND LOOP TILL DONE.
RTS PC ;AND THEN RETURN.
PALSYI: .WORD 0 ;EITHER AN INC OR DEC 'IN1'
RTS PC ;AND THEN RETURN WITH IN1 UPDATED.
PALSYW: BIT #7,TIME ;WAIT FOR NONE MULTIPLE OF 8.
BEQ PALSYW
JSR PC,DIAL ;AND DISPLAY THE USER'S INFORMATION NOW.
PALSYV: BIT #7,TIME ;AND THEN WAIT FOR 8 MORE <OR LESS>
BNE PALSYV
JSR PC,DIAL ;WHILE DOING THIS, DISPLAY THE USER'S INFO.
RTS PC ;AND THEN RETURN.
.PAGE
;
; THESE ROUTINE WILL INSERT OR CHANGE A LUNAR
; FEATURE OR WILL RETRIEVE IT'S VALUE.
;
PUTFET: MOV TEMP,-(SP) ;SAVE TEMPORARY NOW.
MOV 4(SP),TEMP ;PICK UP AN INDEX NOW.
ASR TEMP ;MAKE IT A BYTE INDEX.
BCC FETRGT ;IF EVEN, IT'S THE RIGHT BYTE.
ASL 6(SP) ;LEFT BYTE. SHIFT OVER THE VALUE.
ASL 6(SP)
ASL 6(SP)
ASL 6(SP)
BICB #360,FEATUR(TEMP) ;CLEAR OUT THE BYTE NOW.
BR PUTCOM ;INSERT IT NOW.
FETRGT: BICB #17,FEATUR(TEMP) ;CLEAR OUT THE RIGHT BYTE NOW.
PUTCOM: BISB 6(SP),FEATUR(TEMP) ;INSERT THE BYTE NOW.
MOV (SP)+,TEMP ;RESTORE THE REGISTER NOW.
MOV (SP),4(SP)
ADD #4,SP ;UPDATE THE STACK AFTER MOVING OVER THE PC.
RTS PC ;RETURN NOW.
GETFET: MOV TEMP,-(SP) ;SAVE A SCRATCH REGISTER NOW.
MOV 4(SP),TEMP ;PICK UP THE INDEX NOW.
ASR TEMP ;BYTE ADDRESS IT.
MOVB FEATUR(TEMP),TEMP ;PICK UP THE FEATUR NOW.
BCC GETDUN ;IF RIGHT BYTE, NO SHIFTING IS NECESSARY.
ASR TEMP ;ELSE SHIFT IT OVER.
ASR TEMP
ASR TEMP
ASR TEMP
GETDUN: BIC #177360,TEMP ;JUST RETURN 4 BITS NOW.
MOV TEMP,4(SP)
MOV (SP)+,TEMP ;MOVE OVER ANSWER AND RESTORE SCRATCH
RTS PC ;REGISTER AND EXIT.
.PAGE
;
; THIS ROUTINE WILL "DRAW" THE MOON FROM THE TABLE OF Y VALUES.
;
DRAWM1: JSR PC,DRAWMC ;SET UP COMMON CRAP.
MOV TERAIN,TEMP ;PICK UP FIRST Y POS.
ASR TEMP ;DIVIDE BY 32
ASR TEMP
ASR TEMP
ASR TEMP
ASR TEMP
ADD #23.,TEMP
MOV TEMP,(TEMP2)+
MOV TEMP,LASTY ;SAVE Y FOR TOP OF SCREEN CHECK.
MOV #SETSVM,(TEMP2)+ ;AFTER STORING Y POS, SET GRAPH PLOT MODE.
MOV #TERAIN,IN1 ;POINTER TO THE TERAIN.
DRAW1L: ADD #8.,IN1 ;POSITION TO THE NEXT Y.
MOV (IN1),TEMP
ASR TEMP
ASR TEMP
ASR TEMP
ASR TEMP
ASR TEMP
ADD #23.,TEMP ;SCALE IT AROUND NOW.
JSR PC,DRAWIC ;INSERT ONE Y CO-ORD
BR DRAW1L ;AND LOOP TILL DONE.
MOV #DISTOP,(TEMP2)+ ;AND FINALLY TERMINATE THE LIST
CLR (TEMP2)
MOV #MOONST,MOONGO ;START DISPLAYING THE MOON NOW.
JSR PC,DRAWRS ;RESTORE REGISTERS
RTS PC ;AND EXIT NOW.
.PAGE
;
; THIS ROUTINE WILL ITIALIZE CERTAIN
; REGISTERS, SAVE REGISTERS AND DO OTHER CRAP NECESSARY
; FOR THE MOON DRAWING ROUTINES TO WORK.
;
DRAWMC: MOV RET1,-(SP)
MOV RET2,-(SP)
MOV IN1,-(SP)
MOV IN2,-(SP)
MOV TEMP,-(SP)
MOV #225.,DRAWCT ;NUMBER OF VECTORS TO DRAW.
CLR MOONGO ;TURN OFF DRAWING OF MOON.
CLR MACON ;SET FLAG TO "NO MACDONALD'S ON SCREEN".
MOV #MOONST,TEMP2 ;SET UP THE POINTER NOW.
MOV #114124,(TEMP2)+ ;PLOT POINT MODE.
MOV #170240,(TEMP2)+ ;SET STATUS MODE.
CLR (TEMP2)+ ;SET X POSITION TO ZERO NOW.
JMP @10.(SP) ;AND RETURN NOW.
DRAWRS: MOV (SP),12.(SP) ;MOVE OVER RETURN ADDRESS.
MOV (SP)+,TEMP ;THROW AWAY TOP ITEM.
MOV (SP)+,TEMP ;AND RESTORE THE REGISTERS.
MOV (SP)+,IN2
MOV (SP)+,IN1
MOV (SP)+,RET2
MOV (SP)+,RET1
RTS PC ;AND RETURN NOW.
.PAGE
;
; THIS ROUTINE WILL INSERT ONE "Y" POINT INTO THE
; MOON LIST. IT WILL RANDOMIZE THE LINE TYPE AND INTENSITY
;
DRAWIC: MOV #1000,-(SP) ;MAKE THE VECTOR INVISIBLE FOR NOW.
CMP TEMP,#1024. ;SEE IF IT'S TOO BIG.
BLO DRAWI1 ;NOT TOO BIG.
MOV #1023.,TEMP ;TOO BIG, SET TO TOP, AND TURN OFF
CMP TEMP,LASTY ;IS IT STILL ON TOP?
BEQ DRAWI3 ;YES. DON'T DRAW THE MOUNTAIN.
DRAWI1: TST TEMP ;SEE IF VALUE IS LESS THAN ZERO.
BPL DRAWI2 ;YES.
CLR TEMP ;NO IT ISN'T.
TST LASTY ;WAS LAST RESULT 0?
BEQ DRAWI3 ;YES. DO NOT PUT ON VISIBLE BIT.
DRAWI2: BIS #40000,(SP) ;TURN ON VISIBLE BIT.
DRAWI3: DEC DRAWTY ;SEE WHAT TYPE OF INTENSITY
BPL DRWIN ;AND LINE TYPE IS REQUIRED, IF ANY.
INC DRAWTZ ;COUNTER OVERFLOWED. CHANGE TYPE.
BIC #-4,DRAWTZ
INC DRAWTZ
MOV DRAWTZ,DRAWTY ;RESET BIGGY AND LITTLY.
ADD #1200,DINT ;RANDOMIZE INTENSITY AND TYPE.
BIC #176177,DINT
INC DTYPE
BIC #-4,DTYPE
MOV DINT,(TEMP2) ;CREATE NEW PLOT POINT INSTRUCTION.
BIS DTYPE,(TEMP2)
BIS #106004,(TEMP2)+ ;GRAPH Y WITH BLANK INTENSITY'S AND TYPES.
DRWIN: SUB LASTY,TEMP ;GET THE DELTA Y.
BPL DRWINP ;FIX UP DIRECTION OF VECTOR.
NEG TEMP
BIC #-100,TEMP ;REMOVE CRAP NOW.
SUB TEMP,LASTY ;UPDATE PREVIOUS Y NOW.
BIS #100,TEMP
BR DRWINQ
DRWINP: BIC #-100,TEMP ;CLEAN IT UP.
ADD TEMP,LASTY ;AND UPGRADE PREVIOUS Y NOW.
DRWINQ: BIS (SP)+,TEMP ;MAKE IT A GOOD INSTRUCTION NOW.
MOV TEMP,(TEMP2)+ ;AND SAVE IT AWAY NOW.
DEC DRAWCT ;DECREMENT MASTER COUNTER.
BGT DRAWRR ;NORMAL RETURN.
ADD #2,(SP) ;END RETURN.
DRAWRR: RTS PC ;AND EXIT NOW.
.PAGE
;
; ALTER WILL ALTER THE FACE OF THE MOON. IN1
; CONTAINS A NUMBER TO BE USED IN ALTERING IT.
;
ALTER: MOV BIGXCT,IN2 ;PICK UP PRESENT INDEX.
MOV IN2,TEMP ;WORK BOTH FORWARD AND BACKWARD.
ASL IN2
ADD #TERAIN,IN2
MOV #3,-(SP) ;INDICATE A CRASHED SHIP.
MOV (IN2)+,TEMP2 ;PICK UP Y.
MOV IN2,RET2
SUB (IN2),TEMP2 ;FIGURE OUT WHICH WAY TO TILT SHIP.
BMI ALERTP ;LEAVE TILTED TO LEFT.
INC (SP)
ALERTP: MOV TEMP,-(SP) ;PUSH THE INDEX ONTO THE STACK.
JSR PC,PUTFET ;AND PUT AWAY THE FEATURE.
ALERTL: SUB IN1,(IN2)+ ;NOW ALTER BOTH WAYS.
SUB IN1,-(RET2)
ASR IN1 ;DIVIDE BY TWO.
NEG IN1 ;AND NEGATE IT.
BNE ALERTL ;AND LOOP TILL DONE.
RTS PC ;ELSE RETURN NOW.
.PAGE
;
; THIS SECTION WILL CAUSE THE SKIP TO
; EXPLODE ON THE SCREEN BY SHOOTING OUT A SERIES OF
; "DOTS" FOR A GIVEN PERIOD OF TIME.
;
EXPLOD: CLR RADIUS ;SET THE RADIUS TO ZERO.
CLR FSUBC ;TURN OFF THE ROCKET NOW.
CLR DUSTON ;TURN OFF THE DUST, IF ANY.
BIS #0,DSR ;"RING THE BELL".
EXPLD1: MOV #EXLIST,TEMP2 ;GET POINTER TO WHERE TO SHOW EXPLOSION.
MOV XTYPE,TEMP ;PICK UP RANDOMIZING WORD NOW.
INC TEMP ;AND JUST PLAY WITH YOURSELF FOR A WHILE.
SWAB TEMP
ROR TEMP
ADD (TEMP2),TEMP ;ADD IN OLD COMMAND.
BIC #176177,TEMP ;CLEAR OUT CRAP NOW.
BIS #116120,TEMP ;MAKE IT A GOOD COMMAND NOW.
MOV TEMP,(TEMP2)+ ;AND INSERT IT INTO THE BUFFER.
JSR PC,EXGEN ;GENERATE SOME SMOKE NOW.
BIS #0,DSR ;GIVE A GOOD BEEP NOW.
SUB #10.,RADIUS ;NOW PRODUCE SOME MORE DOTS.
JSR PC,EXGEN
MOV #DISTOP,(TEMP2)+ ;TERMINATE THE PICTURE NOW.
CLR (TEMP2)
MOV #EXLIST,FSUBC ;MAKE SURE WE'RE SHOWING IT.
BIS #0,DSR ;GIVE A RANDOM BEEP, AT TIMES.
ADD #33.,RADIUS ;FINALLY INCREMENT RADIUS AND CHECK
CMP RADIUS,#300 ;DONE?
BLE EXPLD1 ;NOPE.
JSR PC,DELAY ;DELAY NOW BEFORE RESTARTING.
.WORD 5. ;FIVE SECONDS.
EXGEN: MOV #-30.,ANGLE ;INITIALIZE THE ANGLE NOW.
MOV #241.,-(SP) ;AND SET COUNTER TO DO -30 TO 210 DEGREES.
EXGENL: JSR PC,TRIG ;FIGURE OUT VARIOUS ANGLES NOW.
MOV -6(SP),IN1 ;PICK UP RANDOM INTERUPT NUMBER NOW.
ASR IN1 ;JUST IN CASE IT WAS EVEN.
INC IN1 ;INCREMENT IT NOW.
ADD TIME,IN1 ;ADD IN THE TIME ALSO.
ADD XTYPE,IN1 ;AND ALSO THE PREVIOUS NUMBER.
MOV IN1,XTYPE ;AND SAVE IT AWAY NOW.
BIC #-40,IN1 ;MAKE IT BETWEEN 0 AND 31
MOVB YUPDWN(IN1),TEMP ;SO THAT WE CAN USE THE FLAME TABLE.
ADD RADIUS,TEMP ;GET A NEW RADIUS NOW.
BMI EXGENP ;IF MINUS, FORGET ABOUT IT.
MOV TEMP,IN1 ;ELSE GET THE SINES AND COSINES.
MOV COSANG,IN2 ;SO WE CAN GET THE X AND THE
JSR PC,TRGMUL ;Y POINTS FOR THE EXPLOSION.
ADD SHOWX,RET1 ;WE'VE GOT OUR X NOW.
BMI EXGENP ;MINUS IS A BADDY.
BIS #INT,RET1 ;DON'T FORGET TO TURN ON INTENSIFY BIT.
MOV RET1,(TEMP2)+ ;AND PLACE IT AWAY NOW.
MOV TEMP,IN1 ;NOW GET THE Y.
MOV SINANG,IN2
JSR PC,TRGMUL
ADD SHOWY,RET1
BMI EXGENO ;IF THIS IS BAD, WE MUST BACK UP.
MOV RET1,(TEMP2)+
EXGEND: INC ANGLE ;NOW GET THE NEXT ANGLE.
DEC (SP) ;AND WAIT TILL DONE.
BGT EXGENL ;AND LOOP TILL DONE.
TST (SP)+ ;AND THEN EXIT.
RTS PC ;THIS INSTRUCTION HELPS IF ONE LEAVES IT IN.
EXGENO: CLR -(TEMP2) ;IF X IS ALREADY THERE, TAKE IT BACK.
EXGENP: CLR (TEMP2)+ ;INSERT DUMMY'S SO DISPLAY WON'T SCREW UP.
CLR (TEMP2)+
BR EXGEND ;AND SEE IF ALL DONE.
.PAGE
;
; NOTE, ANY ADDITIONAL CRAP YOU WISH TO PUT
; IN MAY GO HERE.
;
DRAWM2: JSR PC,DRAWMC ;THIS ROUTINE WILL THE CLOSE-UP
CLR DFUDGE ;VIEW OF THE MOON.
MOV LEFTEDGE,IN1 ;PICK UP LEFT SIDE OF THE SCREEN.
ASL IN1
ADD #TERAIN,IN1 ;GET POINTER TO LEFT Y.
MOV (IN1),TEMP ;GET LEFT Y.
JSR PC,DFAKE ;MAKE INTO GOOD RASTOR.
TST TEMP ;SEE IF ON THE SCREEN NOW.
BPL DRW2L5 ;IF POSITIVE OK,
CLR TEMP ;ELSE ZERO IT OUT.
BR DRW2M
DRW2L5: CMP TEMP,#1024. ;SEE IF TOO BIG.
BLO DRW2M ;NOPE. OK
MOV #1023.,TEMP ;ELSE FIX IT UP.
DRW2M: MOV TEMP,(TEMP2)+ ;INSERT STARTING Y INTO BUFFER.
MOV TEMP,LASTY ;ESTABLISH LAST Y POSITION NOW.
MOV #SETSVM,(TEMP2)+ ;INSERT THE GRAPH PLOT MODE COMMAND <Y>.
DRW2L: MOV TEMP,-(SP) ;NOW GET Y(NEW) AND DELTA Y.
MOV (IN1)+,TEMP
JSR PC,DFAKE
MOV TEMP,IN2
MOV (SP)+,TEMP
CLR RET1 ;CLEAR AWAY LEFT MOST PART FOR THE DIVIDE.
MOV IN1,-(SP) ;SAVE IN1 NOW.
MOV #12.,IN1 ;PICK UP A TWELVE FOR THE DIVIDE.
SUB TEMP,IN2 ;GET DELTA Y NOW.
BPL DRAW2G
SUB #6.,IN2
NEG IN2 ;MAKE IN2 POSITIVE NOW.
MOV IN2,RET2 ;MOVE OVER TO DIVISOR PART.
JSR PC,DIVTWO ;DIVIDE BY TWO NOW.
NEG RET2 ;NEGATE THE ANSWER NOW.
BR DRAW2H
DRAW2G: ADD #6.,IN2
MOV IN2,RET2 ;MOVE IT OVER NOW.
JSR PC,DIVTWO ;DO THE DIVISION NOW.
DRAW2H: MOV RET2,IN2 ;MOVE OVER THE DELTA NOW.
MOV IN1,RET1 ;ESTABLISH THE COUNT NOW.
MOV (SP)+,IN1 ;RESTORE THE REGISTER NOW.
DRAW22: INC @#DFUDGE ;---<<INSTRUCTION CHANGED>>---
CMP DFUDGE,#3.
BLT DRAW2V
MOV (PC)+,@(PC)+
DEC @(PC)+
.WORD DRAW22
BR DRAW2W
DRAW2V: CMP DFUDGE,#-3.
BGT DRAW2W
MOV (PC)+,@(PC)+
INC @(PC)+
.WORD DRAW22
DRAW2W: ADD DFUDGE,TEMP ;PERTIBATE SURFACE NOW.
ADD IN2,TEMP ;UPDATE TEMP NOW.
MOV TEMP,-(SP) ;SAVE Y FOR A SECOND.
JSR PC,DRAWIC ;INSERT
BR DRAW2C ;STILL GOING.
BR DRAW2X ;GONE.
DRAW2C: MOV (SP)+,TEMP ;RECALL THE Y NOW.
DEC RET1 ;SEE IF DONE WITH THE EIGHT.
BGT DRAW22 ;NO.
BR DRW2L ;YES.
DRAW2X: MOV LEFTEDGE,RET1 ;PICK UP LEFTEDGE AGAIN.
MOV #19.,(SP) ;PREPARE TO EXAMINE THE TERAIN NOW.
MOV #24.,IN1
MOV RET1,RET2 ;SET UP TWO POINTERS NOW.
ASL RET2
ADD #TERAIN,RET2
DRAW2Y: MOV RET1,-(SP) ;PUSH FEATURE INDEX ONTO THE STACK.
INC RET1 ;INCREMENT INDEX POINTER TO NEXT FEATURE.
JSR PC,GETFET ;GET THE FEATURE NOW.
MOV (SP)+,TEMP ;AND PUT IT IN A USEFUL REGISTER.
ASL TEMP ;MAKE IT INTO A GOOD INDEX.
JSR PC,@DRAWTB(TEMP)
TST (RET2)+ ;BYPASS
ADD #48.,IN1
DEC (SP)
BGT DRAW2Y ;KEEP LOOKING NOW.
TST (SP)+ ;ELSE UPDATE.
MOV #DISTOP,(TEMP2)+ ;TERMINATE THE DISPLAY NOW.
CLR (TEMP2)
JSR PC,DRAWRS ;RESTORE THE REGISTERS.
MOV #MOONST,MOONGO ;START DISPLAYING THE MOON NOW.
RTS PC ;AND RETURN NOW.
.PAGE
;
; JUMP TABLE FOR THE VARIOUS KINDS OF
; CRAP ONE IS LIKELY TO FIND ON THE MOON.
;
AHTAB: .WORD AHNONE ;HOW TO PROCESS THIS CRAP.
.WORD AHSP1
.WORD AHFLG
.WORD AHOLDS
.WORD AHOLDS
.WORD AHROCK
.WORD AHMAC
.WORD AHMAC
DRAWTB: .WORD DRAWRR ;0=NOTHING=RETURN.
.WORD OLDSHP ;1=OLD SPACE SHIP
.WORD FLAG ;2=PLANTED FLAG.
.WORD LEFTSP ;3=CRASHED SHIP ON LEFT SIDE.
.WORD RIGHTS ;4=CRASHED SHIP ON RIGHT SIDE.
.WORD ROCK ;5=A ROCK.
.WORD AHNONE ;6=LEFT OR RIGHT OF MAC'S. RETURN.
.WORD MACDON ;7=CENTER OF MAC'S. THIS COVERS 6.
DFAKE: MOV TEMP,-(SP) ;THIS ROUTINE FIGURES OUT
ASL TEMP ;Y*3/2/4 OR ((3*Y)/2)/4
ADD (SP)+,TEMP
ASR TEMP
ASR TEMP ;ALMOST THERE.
ASR TEMP
ADD #23.,TEMP ;AND THEN IT CORRECTS THE BASE
RTS PC ;SCREEN Y.
.PAGE
;
; THESE ROUTINES WILL DRAW OLD AND CRASHED SHIPS
; ONE THE SURFACE OF THE MOON.
;
OLDSHP: JSR PC,DEADSP
.WORD 0 ;UPRIGHT
.WORD 23. ;DISTANCE ABOVE SURFACE.
.WORD -24. ;LOWEST POINT TO DRAW.
LEFTSP: JSR PC,DEADSP ;LEFT TILTED SHIP.
.WORD -90.
.WORD 16.
.WORD -18.
RIGHTS: JSR PC,DEADSP
.WORD 90.
.WORD 16.
.WORD -18.
DEADSP: CMP TEMP2,#MOONEN-102. ;SEE IF ENOUGH ROOM FOR THE SHIP.
BHI DEADBY ;NOPE. EXIT.
MOV IN2,-(SP)
MOV RET1,-(SP)
MOV RET2,-(SP)
MOV TEMP,-(SP)
MOV IN1,-(SP)
MOV 10.(SP),IN1 ;PICK UP OLD PC.
MOV #SETPNT,(TEMP2)+ ;SET POINT MODE.
MOV (SP),(TEMP2)+ ;MOV OVER THE X NOW.
MOV ANGLE,-(SP) ;PUSH DOWN THE OLD ANGLE.
MOV (RET2),TEMP ;PICK UP A Y.
JSR PC,DFAKE
MOV TEMP,-(SP)
MOV 2(RET2),TEMP ;NEXT Y.
JSR PC,DFAKE
ADD (SP)+,TEMP
ASR TEMP ;AVERAGE OF THE Y'S, WHICH IS CENTER.
MOV (IN1)+,ANGLE ;MOVE OVER THE CALLER'S ANGLE NOW.
ADD (IN1)+,TEMP ;AND CENTER THE SHIP.
MOV (IN1),LOWY ;AND SET THE LOW Y ALL AT THE SAME TIME.
MOV TEMP,(TEMP2)+ ;INSERT THE Y NOW.
CMP (RET2),2(RET2) ;SEE WHICH Y IS BIGGER.
BEQ DEADOK
BHI DEADPL
ADD #-22.,ANGLE
BR DEADOK
DEADPL: ADD #22.,ANGLE
DEADOK: JSR PC,TRIG ;FIGURE OUT SINES AND COSINES.
MOV TEMP2,IN2
MOV #DESIGN,IN1 ;SET UP DRAW CALL.
JSR PC,DRAW ;DRAW THE SHIP NOW.
CLR -(TEMP2) ;REMOVE THE DISPLAY STOP INSTRUCTION.
CLR -(TEMP2)
MOV (SP)+,ANGLE ;RESTORE THE ANGLE.
JSR PC,TRIG ;AND THE VALUES.
MOV (SP)+,IN1 ;POP THE VALUES NOW.
MOV (SP)+,TEMP
MOV (SP)+,RET2
MOV (SP)+,RET1
MOV (SP)+,IN2
TST (SP)+ ;IGNORE ORIGINAL CALL.
DEADBY: RTS PC ;AND RETURN NOW.
.PAGE
;
; THIS ROUTINE WILL PLANT AN AMERICAN FLAG ON THE MOON.
;
FLAG: CMP TEMP2,#MOONEN-FLAGEN+FLAGL-6 ;SEE IF FLAG CAN FIT.
BHI ROCKRT ;NOPE. NO ROOM. DO NOT INSERT IT
MOV IN1,FLAGX
MOV (RET2),TEMP
JSR PC,DFAKE ;GET THE Y'S
MOV TEMP,IN2
MOV 2(RET2),TEMP
JSR PC,DFAKE
ADD IN2,TEMP
ASR TEMP
MOV TEMP,FLAGY
MOV #FLAGL,IN2 ;NOW FAKE OUT A ROUTINE.
BR ROCKLP ;AND NOW ENTER ROCK PUTTER.
.PAGE
;
; THIS ROUTINE WILL DRAW A ROCK ON THE MOON.
;
ROCK: CMP TEMP2,#MOONEN-ROCKEN+ROCKL-6 ;SEE IF THE ROCK CAN FIT.
BHI ROCKRT ;CAN'T FIT NOW.
MOV IN1,ROCKX ;SAVE THE ROCK'S X AND Y POINT.
MOV (RET2),TEMP ;AFTER FUDGING Y.
JSR PC,DFAKE
MOV TEMP,IN2
MOV 2(RET2),TEMP
JSR PC,DFAKE
ADD IN2,TEMP
ASR TEMP
MOV TEMP,ROCKY ;SAVE IT AWAY NOW.
MOV #ROCKL,IN2 ;PICK UP POINTER TO PROTOTYPE ROCK.
ROCKLP: MOV (IN2)+,TEMP
CMP TEMP,#DISTOP ;DONE?
BEQ ROCKRT ;YES.
MOV TEMP,(TEMP2)+ ;NO. PUT AWAY NOW.
BR ROCKLP
ROCKRT: RTS PC ;RETURN NOW.
MACDON: TST MACTHR ;IS MACDONALD'S STILL IN EXISTANCE.
BEQ MACEX ;NO. EXIT.
CMP IN1,#25. ;IT IS. ARE WE CENTERED ENOUGH
BLE MACEX ;TO DRAW IT. NO. TO FAR LEFT.
CMP IN1,#880.
BGE MACEX ;NO. TO FAR TO THE RIGHT.
MOV 2(RET2),TEMP ;PICK UP RIGHT Y NOW.
CMP (RET2),TEMP ;AND SEE IF IT'S SMALLER THAN LEFT Y.
BGE MACB1 ;IT IS.
MOV (RET2),TEMP ;IT ISN'T. PICK SMALLEST Y NOW.
MACB1: JSR PC,DFAKE ;GET SCREEN COORDINATES NOW.
MOV TEMP,MACY ;SAVE AWAY THE Y
MOV IN1,MACX ;AND THE X ALSO.
MOV SP,MACON ;AND SET THE MAC IS DRAWN FLAG.
MOV #DISTOP,(TEMP2)+ ;AND PLACE CALL TO IT IN THE BUFFER.
MOV #MACS,(TEMP2)+
MACEX: RTS PC ;AND RETURN NOW. SIMPLE, ISN'T IT.
.PAGE
;
; THESE ARE SOME MISC MULTIPLY ROUTINES (AND DIVIDE) WHICH
; ARE NECESSARY FOR THE SMOOTH OPERATION OF THE SYSTEM.
;
MULTWO: CLR RET2 ;CLEAR LOW ORDER RETURN VALUE.
CMP IN2,IN1 ;SEE WHICH ONE IS SMALLER.
BHIS MULT1L ;IN1 IS SMALLER (AS EXPECTED).
MOV IN2,RET1 ;PLACE IN2 IN RET1, AND
BEQ MULTDN ;IF ZERO, EXIT. ELSE THEN PLACE
MOV IN1,IN2 ;IN1 IN IN2. <INVERT>.
CLC ;CLEAR THE CARRY BEFORE WE BLOW IT!
BR MULTCM ;AND START MULTIPLY GOING.
MULT1L: MOV IN1,RET1 ;MOVE OVER IN1, BECAUSE IT IS SMALLEST.
BEQ MULTDN ;IF IT'S ZERO, THEN WE ARE DONE.
MULTCM: ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD16 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD15 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD14 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD13 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD12 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD11 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD10 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD9 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD8 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD7 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD6 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD5 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD4 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD3 ;AND START MULTIPLY WHEN SET.
ROL RET1 ;ROTATE MULTIPLIER ONE PLACE.
BCS ADD2 ;AND START MULTIPLY WHEN SET.
CLR RET1 ;RET1 MUST BE 100000, BECAUSE
MOV IN2,RET2 ;IF WE GOT HERE, THEN IT MUST
MULTDN: RTS PC ;BE A MULTIPLY BY 1.
ADD16: MOV IN2,RET2 ;IF A BIGGY, JUST MOVE OVER CRAP.
ASL RET2 ;OK, NOW LET'S SHIFT AND START GOING.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD15 ;NO. BYPASS THE ADD NOW.
ADD15: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD15: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD14 ;NO. BYPASS THE ADD NOW.
ADD14: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD14: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD13 ;NO. BYPASS THE ADD NOW.
ADD13: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD13: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD12 ;NO. BYPASS THE ADD NOW.
ADD12: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD12: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD11 ;NO. BYPASS THE ADD NOW.
ADD11: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD11: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD10 ;NO. BYPASS THE ADD NOW.
ADD10: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD10: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD9 ;NO. BYPASS THE ADD NOW.
ADD9: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD9: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD8 ;NO. BYPASS THE ADD NOW.
ADD8: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD8: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD7 ;NO. BYPASS THE ADD NOW.
ADD7: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD7: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD6 ;NO. BYPASS THE ADD NOW.
ADD6: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD6: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD5 ;NO. BYPASS THE ADD NOW.
ADD5: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD5: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD4 ;NO. BYPASS THE ADD NOW.
ADD4: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD4: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD3 ;NO. BYPASS THE ADD NOW.
ADD3: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD3: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD2 ;NO. BYPASS THE ADD NOW.
ADD2: ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD2: ASL RET2 ;ALL DONE WITH PREV. OPER.
ROL RET1 ;DO NEXT BIT NOW. OK TO MULT?
BCC NADD1 ;NO. BYPASS THE ADD NOW.
ADD IN2,RET2 ;BIT ON. ADD IN MULTIPLICAND.
ADC RET1 ;DON'T FORGET ABOUT ADDING IN CARRY.
NADD1: RTS PC ;AND RETURN WHEN DONE.
.PAGE
;
; THIS ROUTINE WILL MULTIPLY TWO SIGNED NUMBERS.
;
SGNMUL: TST IN1 ;GET SIGN OF THE FIRST ARGUMENT.
BPL SGNMP1 ;IT'S OK.
NEG IN1 ;NOT OK.
TST IN2 ;HOW ABOUT SECOND.
BPL SGNMP2 ;IT'S POSITIVE.
NEG IN2 ;BOTH NEGATIVE=POSITIVE.
SGNMP3: JSR PC,MULTWO ;MULTIPLY THEM OUT.
RTS PC ;AND RETURN NOW.
SGNMP1: TST IN2 ;TEST SIGN OF THE SECOND ONE.
BPL SGNMP3 ;IT'S ALSO POSITIVE. DO MULTIPLY.
NEG IN2 ;ELSE NEGATE IT, ANDINVERT ANSWER.
SGNMP2: JSR PC,MULTWO ;MULTIPLY THEM OUT.
NEG RET2 ;AND DO A DOUBLE PRECISION NEGATE.
ADC RET1
NEG RET1
RTS PC ;AND THEN RETURN. ALL IS WELL.
TRGMUL: JSR PC,SGNMUL
ASL RET2 ;FUDGE THE RETURN ANSWER NOW.
ROL RET1
ASL RET2
ROL RET1
RTS PC
.PAGE
;
; THIS ROUTINE WILL DIVIDE RET1-RET2 BY IN1 AND LEAVE THE
; ANSWER IN RET2. DOES IT BY 16 SUBTRACTIONS. CRUDE BUT FAST.
;
DIVTWO: ASL RET2 ;WE FORBID LEFT-MOST BIT TO BE ON.
ROL RET1
SUB IN1,RET1 ;SEE IF IT FITS.
BPL DVOKA ;IT FITS. GENERATE A "1".
DVBADA: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKB ;IT FITS. GENERATE A "1".
DVBADB: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKC ;IT FITS. GENERATE A "1".
DVBADC: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKD ;IT FITS. GENERATE A "1".
DVBADD: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKE ;IT FITS. GENERATE A "1".
DVBADE: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKF ;IT FITS. GENERATE A "1".
DVBADF: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKG ;IT FITS. GENERATE A "1".
DVBADG: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKH ;IT FITS. GENERATE A "1".
DVBADH: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKI ;IT FITS. GENERATE A "1".
DVBADI: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKJ ;IT FITS. GENERATE A "1".
DVBADJ: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKK ;IT FITS. GENERATE A "1".
DVBADK: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKL ;IT FITS. GENERATE A "1".
DVBADL: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKM ;IT FITS. GENERATE A "1".
DVBADM: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKN ;IT FITS. GENERATE A "1".
DVBADN: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKO ;IT FITS. GENERATE A "1".
DVBADO: ASL RET2 ;NOT YET. PUT IN A ZERO.
ROL RET1 ;AND PICK UP THE NEXT BIT.
ADD IN1,RET1 ;2*(Y-X)+X=2*Y-X.
BPL DVOKP ;IT FITS. GENERATE A "1".
DVBADP: ADD IN1,RET1 ;ON LAST FAIL, ADD BACK IN TO GET A
RTS PC ;CORRECT REMAINDER, AND THEN EXIT.
DVOKA: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADB ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKB: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADC ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKC: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADD ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKD: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADE ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKE: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADF ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKF: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADG ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKG: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADH ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKH: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADI ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKI: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADJ ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKJ: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADK ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKK: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADL ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKL: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADM ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKM: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADN ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKN: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADO ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKO: INC RET2 ;SUBTRACTION IS GOOD. INSERT A "1".
ASL RET2 ;NOW CHECK THE NEXT ONE.
ROL RET1 ;TO SEE IF IT GOES.
SUB IN1,RET1
BMI DVBADP ;GOES NOT GO. INSERT A ZERO AND START ADDING.
DVOKP: INC RET2 ;LAST SUBTRACTION SUCCESSFULL.
DVOKX: RTS PC ;INSERT A "1" AND RETURN. ALL IS WELL.
.PAGE
;
; THIS IS THE CLOCK INTERUPT ROUTINE.
;
TIMER: BIS #100,LKS ;JUST MAKE SURE CLOCK IS STILL GOING.
INC TICKS ;UPDATE CLOCKS.
INC TIME ;INCREMENT BOTH CLOCKS.
BIT #17,TIME ;SEE IF IT'S TIME TO CLEAR ARROWS.
BNE TIMERT ;NOPE. EXIT.
CLR DLIST1 ;YES. CLEAR THEM.
CLR DLIST2
TIMERT: RTI ;AND RETURN NOW.
.PAGE
;
; THIS IS THE DELAY ROUTINE.
; IT WILL WAIT "N" SECONDS BEFORE RESTARTING THE SYSTEM.
;
DELAY: MOV #DISTOP,LPSW ;IF DELAYED CALLED, TURN OFF LOW FUEL MESSAGE.
MOV @0(SP),IN1 ;PICK UP THE TIME.
MOV TIME,IN2 ;GET CURRENT TIME.
MOV IN1,RET1 ;MOVE OVER TIME REQUESTED.
BPL DELAY1 ;IF POSITIVE, IT'S ALRIGHT.
NEG IN1 ;ELSE NEGATE IT NOW.
DELAY1: ADD #CLKFRQ,IN2 ;CALCULATE FUTURE TIME
DEC IN1 ;WAIT TILL MULTIPLICATION IS DONE.
BGT DELAY1
DELAY2: WAIT ;WAIT FOR AN INTERUPT TO OCCUR.
JSR PC,DIAL ;WHILE WAITING, DISPLAY THE USER'S DATA.
CMP IN2,TIME ;CHECK THE TIMES NOW.
BHI DELAY2
ADD #2,(SP) ;UPDATE THE RETURN PC NOW.
TST RET1 ;TEST SIGN OF THE WAIT.
BMI DVOKX ;IF NEGATIVE, THEN RETURN.
JMP RESTART ;ELSE RESTART THE SYSTEM.
.PAGE
;
; THIS IS THE START OF THE DISPLAY SECTION. PLEASE BE MERICFUL.
;
DISPLY: MOV IN1,-(SP) ;COMES HERE ON AN INTERUPT.
MOV IN2,-(SP)
MOV DSTACK,IN1 ;PICK UP OLD STACK.
MOV @DPC,IN2 ;FIND OUT WHY WE STOPPED.
BEQ DSUBRT ;DISPLAY SUBROUTINE RETURN.
MOV DPC,-(IN1) ;SUBROUTINE CALL. PUSH RETURN DPC ON STACK.
ADD #2,(IN1) ;AND FUDGE PAST POINTER.
MOV #GOTSUB,-(IN1) ;AND PUSH RETURN ADDRESS ONTO STACK.
DISRT: CMP (IN2),#DISTOP ;SEE IF WHERE HE WANTS TO START IS
BNE DISRST ;ANOTHER SUBROUTINE CALL.
TST 2(IN2) ;IF IT IS, THEN FIGURE OUT WHETHER
BEQ DSUBRT ;TO RETURN OR GO DOWN ONE LEVEL.
MOV IN2,-(IN1) ;PUSH NEXT DPC ONTO STACK.
ADD #4,(IN1) ;AND FUDGE IT UP A BIT.
MOV #GOTSUB,-(IN1) ;PUT ADDRESS ONTO STACK.
MOV 2(IN2),IN2 ;UPDATE NEW PC NOW.
BR DISRT ;AND LOOP AGAIN.
DISRST: MOV IN1,DSTACK ;SAVE THE STACK NOW.
MOV IN2,DPC ;START THE DISPLAY GOING NOW.
MOV (SP)+,IN2 ;RESTORE SAVED REGISTERS.
MOV (SP)+,IN1
RTI ;AND RETURN NOW.
DSUBRT: MOV (IN1)+,PC ;GO TO SUBROUTINE NOW.
GOTSUB: MOV (IN1)+,IN2 ;PICK UP OLD DPC
BR DISRT ;AND RESTART AND CONTINUE.
DTOP: INC DNUM ;THIS ROUTINE GOES DOWN THE MASTER LIST.
DTOP2: MOV DNUM,IN2
ASL IN2 ;MAKE INTO A GOOD INDEX.
MOV DLIST(IN2),IN2
BNE DTOPOK ;IT'S OK TO START NOW.
CLR DNUM ;AT BOTTOM. LOOP.
BR DTOP2
DTOPOK: MOV #DTOP,STACKD
MOV #STACKD,IN1
BR DISRT
.PAGE
;
; LIGHT PEN HIT ROUTINE.
;
LIGHT: MOV IN1,-(SP)
MOV IN2,-(SP) ;SAVE REGISTERS NOW.
MOV DNUM,IN2 ;PICK UP THE INDEXED NUMBER NOW.
CMP IN2,OLDHIT ;SEE IF INDEX IS SAME AS PREVIOUS.
BEQ LIGHTG ;YES. MAYBE WE CAN PROCESS IT.
MOV #15.,HITCNT ;NOT SAME. SET UP HIT COUNTER
MOV IN2,OLDHIT ;AND THE OLD REGISTER NOW.
BR LPRESM ;AND EXIT NOW.
LIGHTG: DEC HITCNT ;HAVE WE BEEN HIT ENOUGH?
BPL LPRESM ;NO. GET OUT NOW.
ASL IN2 ;ELSE SHIFT THE INDEX OVER
JMP @LPTAB(IN2) ;AND GO PROCESS INTERUPT.
.PAGE
;
; THIS ROUTINE IS CALLED WHENEVER THE LIGHT PEN HITS
; THE THROTTLE BAR.
;
LPBARH: MOV YSR,IN2 ;GET THE Y COORDINATE.
BIC #-2000,IN2 ;MAKE IT JUST 10 BITS.
ADD #BARADD,IN2 ;ADD FUDGE FACTOR NOW.
MOV LPBARY,IN1 ;PICK UP OLD Y NOW.
ASL IN1 ;AND MULTIPLY IT BY 8.
ASL IN1
ASL IN1
SUB LPBARY,IN1 ;WE REALLY ONLY WANTED 7.
ADD IN1,IN2 ;NOW MAKE IT 7*OLD+NEW Y.
ASR IN2
ASR IN2
ASR IN2 ;NOW AVERAGE IT OUT.
MOV IN2,LPBARY ;SAVE THE Y VALUE NOW.
SUB #BARFDG,IN2 ;SUBTRACT BASE Y NOW.
ASR IN2 ;DIVIDE BY TWO.
CMP IN2,#MINTRS ;COMPARE AGAINST MINIMUM THRUST.
BPL LPBARP ;GREATER OR EQUAL. IT'S OK.
MOV #MINTRS,IN2 ;ELSE SET TO THE MINIMUM THRUST.
LPBARP: CMP #100.,IN2 ;LIKEWISE IF GREATER THEN 100, MAKE
BGE LPBARQ ;IT ONLY 100.
MOV #100.,IN2
LPBARQ: MOV IN2,PERCNT ;SAVE AWAY THE VALUE NOW.
LPRESM: BIS #1,DPC ;RESUME THE DISPLAY NOW.
MOV (SP)+,IN2 ;RESTORE THE REGISTERS NOW.
MOV (SP)+,IN1 ;AND THEN EXIT.
RTI
LPIT1: MOV DLIST(IN2),IN2 ;GET POINTER TO USER'S DISPAY ITEM.
MOV LPFLG1,IN1 ;AND PICK UP PREVIOUS ITEM NOW.
BEQ LPIT1P ;IF ZERO, NO PREVIOUS BLINKING.
BIC #10,2(IN1) ;ELSE CLEAR OUT THE BLINK BITS.
LPIT1P: MOV IN2,LPFLG1 ;SAVE IT AWAY FOR DISPLAY TRANSFER.
BIS #30,2(IN2) ;SET IT BLINKING NOW.
BR LPRESM ;AND RESUME THE DISPLAY NOW.
LPIT2: MOV LPFLG1,IN1 ;GET HIS POINTER.
BEQ LPRESM ;NONE SPECIFIED.
CLR LPFLG1 ;CLEAR POINTER NOW.
MOV IN1,DIALTB-LPBASE+DLIST(IN2) ;CHANGE OUR POINTER NOW.
BIC #10,2(IN1) ;AND CLEAR THE BLINK FLAG NOW.
BR LPRESM ;AND RESUME THE DISPLAY NOW.
ARROW: MOV DLIST(IN2),IN2 ;ON ARROW HIT, COME HERE. PICK UP ADDRESS.
MOV -2(IN2),TURN ;AND MOVE OVER RATE OF TURN.
MOV IN2,DLIST1 ;AND ALSO MAKE IT BRIGHTER.
MOV IN2,DLIST2
BR LPRESM ;AND RESUME NOW.
.PAGE
;
; DISPLAY POINTERS.
;
LPBASE:
DLIST: .WORD DITEM1
.WORD DITEM2
.WORD DITEM3
.WORD DITEM4
.WORD ITEME1
.WORD ITEME2
.WORD ITEME3
.WORD ITEME4
.WORD ITEME5
.WORD ITEME6
.WORD ITEME7
.WORD ITEME8
.WORD ITEME9
.WORD ITEMET
.WORD ITEMEE
.WORD ITEMES
.WORD DRWSHP
.WORD ONFIRE
.WORD INFO
.WORD DRWDST
.WORD DRWLUN
.WORD SLEFTA
.WORD SRGTA
.WORD BLEFTA
.WORD BRGTA
.WORD LPBAR
DLIST1: .WORD 0 ;EXTRA BRIGHTNESS WORD
DLIST2: .WORD 0 ;IF DISPLAYING THE ARROWS.
.WORD 0
.PAGE
;
; ;LIGHT PEN VECTORS.
;
LPTAB: .WORD LPIT2,LPIT2,LPIT2,LPIT2
.WORD LPIT1,LPIT1,LPIT1,LPIT1
.WORD LPIT1,LPIT1,LPIT1,LPIT1
.WORD LPIT1,LPIT1,LPIT1,LPIT1
.WORD DSUBRT,DSUBRT,DSUBRT,DSUBRT,DSUBRT
.WORD ARROW,ARROW,ARROW,ARROW
.WORD LPBARH
.WORD ARROW,ARROW ;TERMINATING LIGHT PEN HITS.
.PAGE
;
; THIS ROUTINE WILL CALCULATE THE VALUES THAT THE
; USER WISHES TO HAVE DISPLAYED.
;
DIAL: MOV IN1,-(SP) ;SAVE ALL THE IMPORTANT REGISTERS NOW.
MOV IN2,-(SP)
MOV RET1,-(SP)
MOV RET2,-(SP)
MOV TEMP,-(SP)
MOV TEMP2,-(SP)
CLR TEMP ;NOW SET POINTER TO FIRST ITEM.
DIALL: MOV DIALTB(TEMP),TEMP2 ;PICK UP POINTER TO AN ITEM ENTRY.
BEQ DIALD1 ;IF ZERO, THEN END OF LIST.
MOV DIALTC(TEMP),IN2 ;PICK UP POINTER TO WHERE TO
MOV TEMP2,RET2 ;DISPLAY CALCULATED VALUES.
ADD #10.,RET2 ;CALCULATE "ITEMFX" ENTRY ADDRESS.
MOV RET2,18.(IN2) ;AND INSERT IT IN THE DISJMP OF
MOV @-4(TEMP2),RET2 ;THE DITEMX TABLE. PICK UP USERS NUMBER NOW.
MOV -2(TEMP2),IN1 ;PICK UP THE DIVISOR <IF ANY>.
BEQ DIALND ;NONE. DO NOT DIVIDE. DISPLAY AS IS.
TST RET2 ;NOW MAKE ANSWER POSITIVE.
BPL DIALLP
NEG RET2
DIALLP: CLR RET1 ;GET RID OF THE HIGH PART.
JSR PC,DIVTWO ;DO THE DIVISION NOW.
TST @-4(TEMP2) ;NOW RESTORE THE SIGN.
BPL DIALND
NEG RET2
DIALND: MOV DIALTC(TEMP),TEMP2 ;PICK UP DITEMX POINTER AGAIN.
MOV RET2,IN1 ;MOVE OVER NUMBER NOW.
MOV #10.,IN2 ;NOW CREATE ADDRESS OF WHERE TO LEAVE ANSWER
ADD TEMP2,IN2 ;AFTER CONVERTING TO ASCII STRING.
JSR PC,SASCII ;DO THE CONVERSION NOW.
TST (TEMP)+ ;FINALLY INCREMENT POINTER TO NEXT ITEM.
BR DIALL ;AND GO BACK UP TO TOP AND GET NEXT VALUE.
DIALD1: CMP PERCNT,OLDPER ;CONVERT PERCENTAGE NOW. ANY CHANGE?
BEQ DIALRT ;NO. JUST EXIT.
MOV #LPBARC,IN2 ;YES. GET ADDRESS OF WHERE TO PLACE STRING.
MOV PERCNT,IN1 ;GET THE NUMBER NOW.
MOV IN1,OLDPER ;UPDATE OLD PERCENTAGE NOW.
JSR PC,SASCII ;AND CONVERT IT NOW.
DIALRT: MOV (SP)+,TEMP2 ;RESTORE ALL THE ACTIVE REGISTERS NOW.
MOV (SP)+,TEMP
MOV (SP)+,RET2
MOV (SP)+,RET1
MOV (SP)+,IN2
MOV (SP)+,IN1
RTS PC ;AND RETURN NOW.
.PAGE
;
; THIS ROUTINE CONVERT THE BINARY NUMBER (UNSIGNED)
; IN THE REGISTER "IN1" INTO AN ASCII STRING SIX
; CHARACTERS LONG AND LEAVES THE ANSWER TO WHERE "IN2"
; POINTS TO. THE ANSWER IS PUT RIGHT JUSTIFIED WITH
; LEADING BLANKS.
;
ASCII: MOVB #' ,(IN2)+ ;FIRST CHARACTER WILL BE BLANK ALWAYS.
CMP IN1,#10000. ;IS IT GREATER THEN 9999.?
BHIS ASCIIG ;YES. DO SOMETHING SPECIAL.
MOVB #' ,(IN2)+ ;NO. JUST INSERTA BLANK.
CLR -(SP) ;AND REMEMBER TO DELETE LEADING ZEROS.
ASCIIL: CMP IN1,#100. ;IS IT GREATER THAN 99?
BLT ASCIID ;NO! NO DIVIDE IS NECESSARY.
MOV IN1,RET2 ;GREATER THAN 99. DIVIDE.
CLR RET1 ;CLEAR HIGH ORDER WORD OF AC-MQ.
MOV #100.,IN1 ;DIVIDE BY 100.
JSR PC,DIVTWO ;DIVIDE NOW.
ASL RET2 ;NOW LOOK UP ANSWER IN TABLE.
ADD #TENTAB,RET2 ;TWO BYTES WHICH COMPOSE NEXT TWO DIGITS.
ASCIIB: JSR PC,ASCDO ;INSERT FIRST.
JSR PC,ASCDO ;INSERT SECOND.
MOV RET1,RET2 ;GET THE REMAINDER NOW.
ASL RET2
ADD #TENTAB,RET2 ;AND MAKE IT A GOOD ADDRESS.
JSR PC,ASCDO ;AND DO THE NEXT TWO DIGITS.
MOV PC,(SP) ;BUT MAKE SURE WE GET A GOOD ZERO.
JSR PC,ASCDO
ADD #2,SP ;BUMP THE STACK NOW.
RTS PC ;AND RETURN.
ASCIIG: MOV PC,-(SP) ;UPDATE LEADING ZERO FLAG TO NO DELETE.
MOVB #'0,(IN2)+ ;INSERT IT INTO THE BUFFER NOW.
ASCIIM: CMP IN1,#10000. ;SEE IF IT'S STILL ABOVE 9999.
BLO ASCIIL ;NO. EXIT
INCB -1(IN2) ;YES CHANGE DIGIT AND UPDATE.
SUB #10000.,IN1
BR ASCIIM ;AND LOOP TILL DONE.
ASCIID: MOV IN1,RET1 ;SMALL NUMBER. SET UP REMAINDER.
MOV #TENTAB,RET2 ;AND ADDRESS FOR THE FIRST 0.
BR ASCIIB ;AND INSERT THEM NOW.
ASCDO: TST 2(SP) ;INSERT ANYTHING?
BNE ASCDBP ;YES.
CMPB (RET2),#'0 ;NO. IS THIS CHARACTER A ZERO?
BNE ASCDO1 ;NO. FIRST GOOD CHARACTER.
MOVB #' ,(IN2)+ ;STILL ZERO. INSERT A BLANK.
INC RET2 ;AND BOP INPUT POINTER.
RTS PC ;AND RETURN NOW.
ASCDO1: MOV SP,2(SP) ;GOOD CHARACTER. CLEAR ZERO FLAG.
ASCDBP: MOVB (RET2)+,(IN2)+ ;AND MOVE OVER THE CHARACTER NOW.
RTS PC ;AND THEN RETURN.
.PAGE
;
; THIS ROUTINE WILL CONVERT A SIGNED NUMBER TO AN ASCII
; STRING ACCORDING TO THE RULES USED IN "ASCII".
;
SASCII: TST IN1 ;GET THE SIGN OF THE INPUT.
BPL ASCII ;IF POSITIVE, NOTHING SPECIAL.
NEG IN1 ;ELSE NEGATE IT.
JSR PC,ASCII ;AND CONVERT IT.
MOV IN2,IN1 ;MOV BACK LAST POINTER.
SASCIL: CMPB #' ,-(IN1) ;AND LOOK FOR THE FIRST BACKWARD BLANK.
BNE SASCIL
MOVB #'-,(IN1) ;WHEN FOUND, CHANGE IT.
RTS PC ;AND RETURN NOW.
.PAGE
;
; THESE LISTS ARE USED IN PRINTING OUT THE USER
; REQUESTED VALUES.
;
DIALTB: .WORD ITEME1
.WORD ITEME2
.WORD ITEME3
.WORD ITEME4
.WORD 0 ;0=END OF LIST.
DIALTC: .WORD DITEM1 ;WHERE OUR TABLES ARE.
.WORD DITEM2
.WORD DITEM3
.WORD DITEM4
;
; VALUE DISPLAY ITEMS.
;
DITEM1: .WORD 170240 ;ENABLE LIGHT PEN STUFF.
.WORD 117560 ;AND MOVE THE POINTER AROUND.
.WORD DX1
.WORD DY1
.WORD 100000 ;ENTER CHARACTER MODE NOW.
.ASCII ' ' ;SIX CHARACTERS OF ZERO,
.WORD DISJMP ;AND NOW CALL THE NEXT SUBROUTINE.
.WORD ITEMF1
DITEM2: .WORD 170240
.WORD 117560
.WORD DX2
.WORD DY2
.WORD 100000
.ASCII ' '
.WORD DISJMP
.WORD ITEMF2
DITEM3: .WORD 170240
.WORD 117560
.WORD DX3
.WORD DY3
.WORD 100000
.ASCII ' '
.WORD DISJMP
.WORD ITEMF3
DITEM4: .WORD 170240
.WORD 117560
.WORD DX4
.WORD DY4
.WORD 100000
.ASCII ' '
.WORD DISJMP
.WORD ITEMF4
;
; THESE TABLES CONTAIN THE ACTUAL MESSAGES THAT THE
; USER HAS A CHOICE OF SEEING.
;
ITEM1: .WORD RADARY
.WORD 0 ;WHERE ITEM IS AND WHAT TO DIVIDE IT BY.
ITEME1: .WORD 170260 ;ACTUALLY DISPLAY PORTION HERE.
.WORD 117560
.WORD ITEMX1
.WORD ITEMY1
.WORD 100000
ITEMF1: .ASCII ' HEIGHT '
.WORD DISTOP
.WORD 0
ITEM2: .WORD VERDIS
.WORD 0
ITEME2: .WORD 170260
.WORD 117560
.WORD ITEMX2
.WORD ITEMY2
.WORD 100000
ITEMF2: .ASCII ' ALTITUDE '
.WORD DISTOP
.WORD 0
ITEM3: .WORD HORDIS
.WORD 0
ITEME3: .WORD 170260
.WORD 117560
.WORD ITEMX3
.WORD ITEMY3
.WORD 100000
ITEMF3: .ASCII ' DISTANCE '
.WORD DISTOP
.WORD 0
ITEM4: .WORD FUEL
.WORD 10.
ITEME4: .WORD 170260
.WORD 117560
.WORD ITEMX4
.WORD ITEMY4
.WORD 100000
ITEMF4: .ASCII ' FUEL LEFT'
.WORD DISTOP
.WORD 0
ITEM5: .WORD WEIGHT
.WORD 0
ITEME5: .WORD 170260
.WORD 117560
.WORD ITEMX5
.WORD ITEMY5
.WORD 100000
ITEMF5: .ASCII ' WEIGHT '
.WORD DISTOP
.WORD 0
ITEM6: .WORD THRUST
.WORD 0
ITEME6: .WORD 170260
.WORD 117560
.WORD ITEMX6
.WORD ITEMY6
.WORD 100000
ITEMF6: .ASCII ' THRUST '
.WORD DISTOP
.WORD 0
ITEM7: .WORD ANGLE
.WORD 0
ITEME7: .WORD 170260
.WORD 117560
.WORD ITEMX7
.WORD ITEMY7
.WORD 100000
ITEMF7: .ASCII ' ANGLE'
.WORD DISTOP
.WORD 0
ITEM8: .WORD VERVEL
.WORD 10.
ITEME8: .WORD 170260
.WORD 117560
.WORD ITEMX8
.WORD ITEMY8
.WORD 100000
ITEMF8: .ASCII ' VER VEL'
.WORD DISTOP
.WORD 0
ITEM9: .WORD HORVEL
.WORD 10.
ITEME9: .WORD 170260
.WORD 117560
.WORD ITEMX9
.WORD ITEMY9
.WORD 100000
ITEMF9: .ASCII ' HOR VEL'
.WORD DISTOP
.WORD 0
ITEM10: .WORD VERACC
.WORD 500.
ITEMET: .WORD 170260
.WORD 117560
.WORD ITEMXT
.WORD ITEMYT
.WORD 100000
ITEMFT: .ASCII ' VER ACC'
.WORD DISTOP
.WORD 0
ITEM11: .WORD HORACC
.WORD 500.
ITEMEE: .WORD 170260
.WORD 117560
.WORD ITEMXE
.WORD ITEMYE
.WORD 100000
ITEMFE: .ASCII ' HOR ACC'
.WORD DISTOP
.WORD 0
ITEM12: .WORD TIME
.WORD 60.
ITEMES: .WORD 170260
.WORD 117560
.WORD ITEMXS
.WORD ITEMYS
.WORD 100000
ITEMFS: .ASCII ' SECONDS'
.WORD DISTOP
.WORD 0
.PAGE
;
; THIS IS WHERE THE MOON GOES, WHEN IT IS CORRECTLY
; DRAWN. IT IS PLACED HERE SO NO CODE GOES OVER 15000-20000
; AND SO THAT NO CODE GOES OVER 35000-37776 EITHER. THIS AREA
; IS INITIALIZED TO ALL "DISTOP,0" BY THE RESTART ROUTINE.
;
MOONST: ;DEFINE IT AS STARTING HERE.
.=.+2002. ;AND BEING 1000 DECIMAL WORDS LONG.
MOONEN: ;NEXT WORD AFTER MOON TO DETERMINE
;HOW FAR TO INITIALIZE THIS SECTION.
;
; MESSAGES FOR GOING OFF SCREEN <LEFT,RIGHT AND TOP.>.
;
LFTMSG: .WORD 117520
.WORD 30.
.WORD 600.
.WORD 100000
.ASCII 'BOY, ARE YOU'
.BYTE 0
.=.-1
.EVEN
.WORD 103730
.ASCII ' INEPT'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
RGTMSG: .WORD 117520
.WORD 525.
.WORD 600.
.WORD 100000
.ASCII ' YOU HAVE JUST CRASHED'
.BYTE 0
.=.-1
.EVEN
.WORD 117520
.WORD 525.
.WORD 570.
.WORD 100000
.ASCII 'INTO THE EDGE OF THE MOON'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
TOPMSG: .WORD 117520
.WORD 50.
.WORD 650.
.WORD 100000
.ASCII 'SORRY, BUT WHEN YOU LOSE TV COVERAGE, YOU ALSO LOSE YOUR FUEL'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
.PAGE
;
; SPEED WARNING MASSAGES...
;
VFAST: .WORD 117530
.WORD 100.
.WORD 2.
.WORD 100000
.ASCII "TOO FAST. YOU'RE GOING TO CRASH"
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
FAST: .WORD 117520
.WORD 100.
.WORD 700.
.WORD 100000
.ASCII 'BETTER START SLOWING IT UP PRETTY SOON'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
N2FAST: .WORD 117520
.WORD 100.
.WORD 2.
.WORD 100000
.ASCII 'TAKE IT NICE AND EASY. A PERFECT LANDING IS UNDER 8 FPS'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
GREATM: .WORD 117520
.WORD 100.
.WORD 600.
.WORD 100000
.ASCII 'FANTASTIC, A PERFECT LANDING'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
GOODM: .WORD 117520
.WORD 100.
.WORD 600.
.WORD 100000
.ASCII 'CONGRATULATIONS ON A GOOD LANDING'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
ROUGHM: .WORD 117520
.WORD 100.
.WORD 600.
.WORD 100000
.ASCII 'THE LANDING WAS A LITTLE FAST'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
CRIPM: .WORD 117520
.WORD 100.
.WORD 600.
.WORD 100000
.ASCII 'THE LANDING WAS TOO FAST AND DAMAGE WAS DONE TO THE SHIP'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
DEADM: .WORD 117530
.WORD 100.
.WORD 550.
.WORD 100000
.ASCII 'WELL, YOU CERTAINLY BLEW THAT ONE. THERE WERE NO SURVIRORS'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
ANGLEM: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'BUT THE ANGLE WAS TOO GREAT AND THE SHIP TIPPED OVER'
.BYTE 0
.=.-1
.EVEN
ANGLEJ: .WORD 117520
.WORD 100.
.WORD 540.
.WORD 100000
.ASCII 'SORRY, BUT THERE WERE '
.BYTE 0
.=.-1
.EVEN
.WORD 103630
.ASCII 'NO'
.WORD 103520
.ASCII ' SURVIVORS'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
SIDEM: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'BUT THE HORIZONTAL VELOCITY WAS TOO GREAT, AND YOU CRASHED ANYWAY'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD ANGLEJ ;DO A DISPLAY JUMP INTO ANGLEM.
BUMPYM: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'BUT THE TERRAIN IS TOO ROUGH, AND YOU TIPPED OVER'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD ANGLEJ
ROCKMS: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'YOU JUST CRASHED INTO THAT ROCK'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD ANGLEJ
OLDMS: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'YOU JUST CRASHED ON TOP OF AN OLD LUNAR MODULE'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD ANGLEJ
FLAGMS: .WORD 117520
.WORD 50.
.WORD 3.
.WORD 100000
.ASCII 'YOU HAVE JUST VAPORIZED A PREVIOUSLY PLANTED AMERICAN FLAG'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
OLDTLT: .WORD 117520
.WORD 100.
.WORD 570.
.WORD 100000
.ASCII 'NICE WORK. YOU JUST CRASHED INTO A PREVIOUSLY CRASHED SHIP'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD ANGLEJ
MACDED: .WORD 117520
.WORD 10.
.WORD 570.
.WORD 100000
.ASCII 'W'
.BYTE 145,154,154
.ASCII ', '
.BYTE 171,157,165
.ASCII "'"
.BYTE 166,145,40,152,165,163,164,40,144,145,163
.BYTE 164,162,157,171,145,144,40,164,150,145,40
.BYTE 157,156,154,171
.ASCII ' M'
.BYTE 141,143
.ASCII 'D'
.BYTE 157,156,141,154,144
.ASCII "'"
.BYTE 163
.BYTE 0
.=.-1
.EVEN
.WORD 117520
.WORD 10.
.WORD 540.
.WORD 100000
.BYTE 157,156,40,164,150,145,40,155,157,157,156
.ASCII '. W'
.BYTE 150,141,164,40,141
.ASCII ' CLOD.'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
ORDER: .WORD 117520
.WORD 150.
.WORD 2.
.WORD 100000
.WORD 170260
.ASCII 'TWO CHEESEBURGERS AND A BIG MAC TO GO.'
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
MANMSG: .WORD 117520
.WORD 50.
.WORD 2.
.WORD 100000
.WORD 170260
.ASCII "THAT'S ONE SMALL STEP FOR A MAN, ONE GIANT LEAP FOR MANKIND."
.BYTE 0
.=.-1
.EVEN
.WORD DISTOP
.WORD 0
.PAGE
;
; THIS LITTLE SECTION CONTAINS THE CODE
; FOR DRAWING THE CONTROLLING ARROWS
; FOR HANDLING THE DEGREES OF ROTATION.
; SMALL LEFT ARROW.
;
.WORD -15.
SLEFTA: .WORD 114020
.WORD 170240
.WORD SLFTAX
.WORD SLFTAY
.WORD 113144
.WORD 20.+LEFT+INT
.WORD 0.
LEFTC: .WORD 12.+INT
.WORD 8.
.WORD 12.+LEFT
.WORD 8.+DOWN
.WORD 12.+INT
.WORD 8.+DOWN
.WORD DISTOP
.WORD 0
.WORD -100.
BLEFTA: .WORD 114020
.WORD 170240
.WORD BLFTAX
.WORD BLFTAY
.WORD 113144
.WORD 40.+LEFT+INT
.WORD 0
.WORD DISJMP
.WORD LEFTC
.WORD 15.
SRGTA: .WORD 114020 ;SMALL RIGHT ARROW.
.WORD 170240
.WORD SRGTAX
.WORD SRGTAY
.WORD 113144
.WORD 20.+INT
.WORD 0
RGTC: .WORD 12.+INT+LEFT
.WORD 8.
.WORD 12.
.WORD 8.+DOWN
.WORD 12.+LEFT+INT
.WORD 8.+DOWN
.WORD DISTOP
.WORD 0
.WORD 100.
BRGTA: .WORD 114020
.WORD 170240
.WORD BRGTAX
.WORD BRGTAY
.WORD 113144
.WORD 40.+INT
.WORD 0
.WORD DISJMP
.WORD RGTC
.PAGE
;
; THIS IS THE LIGHT PEN BAR WHICH CONTROLS THE
; THRUST OF THE ROCKET ENGINE.
;
LPBAR: .WORD 116764
.WORD 170200
.WORD BARLX+0
.WORD BARTY
.WORD 110140
.WORD INT
.WORD BARSIZ+DOWN
.WORD 3
.WORD BARSIZ
.WORD INT
.WORD BARSIZ+DOWN
.WORD 3
.WORD BARSIZ
.WORD INT
.WORD BARSIZ+DOWN
.WORD 114100
.WORD BARMXR ;NOW MOVE OVER TO THE BAR POSITION.
LPBARY: .WORD 0 ;VERTICAL HEIGHT GOES HERE.
.WORD 110000
.WORD BARMXL+INT ;BE CAREFULL OF SIGN OF THIS ONE.
.WORD 0
.WORD BAREST
.WORD 0
.WORD 100000 ;ENTER CHARACTER MODE NOW.
LPBARC: .ASCII ' % ' ;OVERLAYED WITH A NUMBER.
LPSW: .WORD DISTOP ;0 ON FUEL LOW--FALL TO NEXT MSG
.WORD 0
.WORD 117130
.WORD 350.
.WORD 700.
.WORD 100000
.ASCII 'FUEL LOW'
.WORD DISTOP
.WORD 0
.PAGE
;
; ;THIS IS THE BASIC ROCK COMMANDS.
;
ROCKL: .WORD 116727
.WORD 170240
ROCKX: .WORD 0
ROCKY: .WORD 0
.WORD 104000
.WORD 14.+OTHER*200+8.+OTHER
.WORD OTHER+6+INTTWO*200+8.
.WORD 4+INTTWO*200+6
.WORD 0+INTTWO*200+6
.WORD 2+INTTWO*200+2
.WORD 2+INTTWO*200+4
.WORD 6+INTTWO*200+6
.WORD INTTWO*200+4
.WORD 4+INTTWO*200+2
.WORD 2+INTTWO*200+0
.WORD 2+INTTWO*200+2+OTHER
.WORD 6+INTTWO*200+2+OTHER
.WORD 4+INTTWO*200+2+OTHER
.WORD 2+INTTWO*200+6+OTHER
.WORD 6+INTTWO*200+6+OTHER
.WORD INTTWO*200+4+OTHER
.WORD 2+INTTWO*200+4+OTHER
.WORD 2+OTHER+INTTWO*200+4+OTHER
.WORD 2+OTHER+INTTWO*200+8.+OTHER
.WORD DISTOP
.WORD 0
ROCKEN: ;NEXT LOCATION AFTER ROCKS.
.PAGE
;
; THIS LIST EXPLAINS HOW TO DRAW THE MACDONALD'S.
;
MACS: 117724
170240
MACX: .WORD 0
MACY: .WORD 0
.WORD 104000
.WORD 18.*200
.WORD 107000
.WORD 30.+INT
.WORD 54.*200+INT
.WORD 30.+OTHER+INT
.WORD 54.+OTHER*200+INT
.WORD 105324
.WORD 12.*200
.WORD 8.+INT
.WORD 6.*200+INT
.WORD 8.+OTHER+INT
.WORD 19.+OTHER*200
.WORD 110000
.WORD 73.+LEFT
.WORD 0.
.WORD DISTOP
.WORD ARCH
.WORD 104000
.WORD 22.*200
;
; NOTICE HOW I FALL THROUGH TO DRAW THE
; SECOND ARCH. CLEVER, CLEVER.
;
ARCH: .WORD 107724
.WORD 17.+OTHER*200+OTHER+3.
.WORD 1*200+10.+INT
.WORD 1*200+9.+INT
.WORD 1*200+6+INT
.WORD 1*200+5+INT
.WORD 1*200+4+INT
.WORD 1*200+2+INT
.WORD 1*200+4+INT
.WORD 2*200+5+INT
.WORD 1*200+1+INT
.WORD 2*200+4+INT
.WORD 3*200+2+INT
.WORD 1*200+1+INT
.WORD 2*200+0+INT
.WORD 1*200+1+INT+OTHER
.WORD 3*200+2+INT+OTHER
.WORD 2*200+4+INT+OTHER
.WORD 1*200+1+INT+OTHER
.WORD 2*200+5+INT+OTHER
.WORD 1*200+4+INT+OTHER
.WORD 1*200+2+INT+OTHER
.WORD 1*200+4+INT+OTHER
.WORD 1*200+5+INT+OTHER
.WORD 1*200+6+INT+OTHER
.WORD 1*200+9.+INT+OTHER
.WORD 1*200+10.+INT+OTHER
.WORD 17.+OTHER*200+3.
.WORD DISTOP
.WORD 0
.PAGE
;
; THIS LIST EXPLAINS HOW TO DRAW A MAN.
;
MAN: .WORD 116720 ;DON'T MAKE HIM TOO BRIGHT.
MANX: .WORD 0
MANY: .WORD 0
.WORD 104000 ;ALL SHORT VECTORS.
.WORD 400 ;INVISIBLE 2 RIGHT.
.WORD INT+20000+404 ;LEFT TWO, UP FOUR.
.WORD INT+20000+1104 ;LEFT FOUR, DOWN 4.
.WORD 1004 ;INVISIBLE, UP 4, RIGHT 4
.WORD INT+5 ;UP FIVE.
.WORD INT+200 ;RIGHT ONE
.WORD INT+201 ;RIGHT ONE, UP ONE.
.WORD INT+1 ;UP ONE
.WORD INT+20000+201 ;LEFT ONE, UP ONE.
.WORD INT+20000+400 ;LEFT TWO.
.WORD INT+20000+301 ;LEFT ONE, DOWN ONE.
.WORD INT+101 ;DOWN ONE.
.WORD INT+301 ;DOWN ONE, RIGHT ONE.
.WORD INT+200 ;RIGHT ONE.
.WORD 101 ;DOWN ONE.
.WORD INT+1203 ;RIGHT FIVE, UP THREE.
.WORD 20000+1305 ;LEFT FIVE, DOWN FIVE.
.WORD INT+20000+1403 ;LEFT SIX, UP THREE.
.WORD DISTOP
.WORD 0
.PAGE
;
; THIS LIST EXPLAINS HOW TO DRAW A FLAG.
;
FLAGL: .WORD 115324
.WORD 170240
FLAGX: .WORD 0
FLAGY: .WORD 0
.WORD 104000
.WORD 18.+INT
.WORD 112727
.WORD 16.+INT
.WORD 0
.WORD INT
.WORD 8.+DOWN
.WORD 16.+INT+LEFT
.WORD 0
.WORD 112326
.WORD 0
.WORD 3
.WORD 16.+INT
.WORD 0
.WORD 0
.WORD 2
.WORD 16.+INT+LEFT
.WORD 0
.WORD DISTOP
.WORD 0
FLAGEN: ;NEXT LOCATION AFTER FLAG.
.PAGE
;
; COMMANDS FOR DISPLAYING THE LUNAR MODULE.
;
DESIGN: .WORD DRAWIN,170200 ;LOAD STATUS.
.WORD DRAWIN,107124 ;AND SHORT VECTORS, INTENSITY 4.
.WORD DRAWIS ;DRAW BODY OF SHIP NOW.
.BYTE -6.,0.
.WORD DRAWVS
.BYTE -14.,8.
.WORD DRAWVS
.BYTE -14.,20.
.WORD DRAWVS
.BYTE -6.,29.
.WORD DRAWVS
.BYTE 6.,29.
.WORD DRAWVS
.BYTE 14.,20.
.WORD DRAWVS
.BYTE 14.,8.
.WORD DRAWVS
.BYTE 6.,0.
.WORD DRAWVS
.BYTE -6.,0. ;TOP OF SHIP DONE <OCTAGON>.
.WORD DRAWIS
.BYTE -17.,0.
.WORD DRAWVS
.BYTE -17.,-16.
.WORD DRAWVS
.BYTE 17.,-16.
.WORD DRAWVS
.BYTE 17.,0.
.WORD DRAWVS
.BYTE -17.,0. ;LOWER BODY OF SHIP DONE.
.WORD DRAWIN,107524 ;CHANGE TO LEVEL 3 INTENSITY.
.WORD DRAWVS ;DRAW LANDING LEGS NOW.
.BYTE -32.,-24.
.WORD DRAWIS ;POSITION OVER TO OTHER SIDE.
.BYTE 17.,0.
.WORD DRAWVS
.BYTE 32.,-24.
.WORD DRAWIN,106324 ;LEVEL ONE INTENSITY.
.WORD DRAWIS
.BYTE -17.,-14.
.WORD DRAWVS
.BYTE -28.,-18.
.WORD DRAWIS
.BYTE 17.,-14.
.WORD DRAWVS
.BYTE 28.,-18. ;LOWER LANDING BRACE DONE.
.WORD DRAWIN,107124 ;INTENSITY 4 FOR LANDING PODS.
.WORD DRAWIS
.BYTE 36.,-24.
.WORD DRAWVS
.BYTE 28.,-24.
.WORD DRAWIS
.BYTE -28.,-24.
.WORD DRAWVS
.BYTE -36.,-24. ;END OF LANDING PODS.
.WORD DRAWIS ;DRAW THE ENGINE NOW.
.BYTE -3.,-16.
.WORD DRAWVS
.BYTE -7.,-21.
.WORD DRAWVS
.BYTE 7.,-21.
.WORD DRAWVS
.BYTE 3.,-16. ;END OF THE ENGINE.
.WORD DRAWIS ;NOW BRING VECTOR BACK UP TO CENTER
.BYTE 0,0 ;OF THE LUNAR MODULE.
.WORD DRAWDN ;AND TERMINATE THE PICTURE.
.PAGE
;
; THESE TABLES CONTROL THE DRAWING OF THE ROCKET
; ENGINE FLAME, AND ALL IT'S PURTIBATIONS.
; Y THRUST TABLE ACCORDING TO PERCENTAGE THROTTLE.
; 13 SEGMENTS, EACH ONE APPROX 8% THROTTLE.
;
YTHRST: .BYTE 0.,-30.,-31.,-32.,-34.,-36.,-38.,-41.,-44.,-47.,-50.,-53.,-56.
;
; Y UP DOWN IS A TABLE WHICH WILL SORT OF
; RANDOMIZE THE HEIGHT OF THE FLAME AND SHOULD ENHANCE THE
; FLICKERING APPEARANCE.
;
YUPDWN: .BYTE 0,1,3,6,4,3,1,-2,-6,-7,-5,-2,2,3,5,6,2,1
.BYTE -1,-4,-6,-5,-3,0,4,5,7,4,0,-1,-3,-1
;
; "FLAME BOTTOM" CONTAINS THE TABLE OF THE X VALUES
; FOR THE BOTTOM OF THE ROCKET FLAME. THEY ARE INDEXED SLIGHTLY
; RANDOMLY AT TIMES.
;
FLAMBT: .BYTE -20.,-16.,-13.,-10.,-7.,-4.,-2.
.BYTE 0.,2.,4.,7.,10.,13.,16.,20.
;
; THIS SECTION CONTAINS THE ACTUAL LIST OF COMMANDS TO
; BE FOLLOWED WHEN DRAWING THE ROCKET FLAME.
;
.EVEN ;REALIGN NOW IF NECESSARY.
FLAMDO: .WORD DRAWIN,170200 ;LOAD STATUS PROPERLY.
.WORD DRAWIN ;INSERT COMMAND NOW.
FLAMEX: .WORD 0 ;FLAME COMMAND GOES HERE.
.WORD DRAWIS ;MOVE POINTER OVER TO BOTTOM
.BYTE -6.,-21. ;OFF THE ROCKET ENGINE.
.WORD DRAWVS ;NOW DRAW THE VECTORS
FLAMXS: .BYTE 0.,0. ;WHICH WE SHOULD SET UP HERE.
.WORD DRAWVS ;AND MOVE BACK UP AGAIN.
.BYTE -5.,-21. ;BOTTOM OF THE ENGINE.
.WORD DRAWVS
.BYTE 0.,0. ;OVERLAYED HERE ALSO.
.WORD DRAWVS
.BYTE -4.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE -3.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE -2.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE -1.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 0.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 1.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 2.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 3.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 4.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 5.,-21.
.WORD DRAWVS
.BYTE 0.,0.
.WORD DRAWVS
.BYTE 6.,-21.
.WORD DRAWIS ;RETURN TO CENTER NOW.
.BYTE 0.,0.
.WORD DRAWDN ;AND END THE COMMAND LIST.
FLEN=12. ;NUMBER OF ITEMS TO INSERT IN THE TABLE.
.PAGE
;
; THESE ARE THE HIDEOUS TABLES THAT THE
; SYSTEM NEEDS TO FUNCTION PROPERLY. THEY INCLUDE
; TERRAIN TABLES (ALTITUDE), FEATURE TABLES (ROCKS,
; OLD SHIPS, ETC.), CONVERSION TABLES, AND THE
; SINE AND COSINE TABLES. THEY SHOULD BE BETWEEN
; 20000 AND 35000 OCTAL (LOCATION), OR YOU CAN BE SCREWED.
; THIS IS THE CONVERSION TABLE FROM A BINARY
; NUMBER LESS THAN 100 TO AN ASCII STRING. SEE THE
; SUBROUTINE "ASCII".
;
TENTAB: .BYTE '0,'0
.BYTE '0,'1
.BYTE '0,'2
.BYTE '0,'3
.BYTE '0,'4
.BYTE '0,'5
.BYTE '0,'6
.BYTE '0,'7
.BYTE '0,'8
.BYTE '0,'9
.BYTE '1,'0
.BYTE '1,'1
.BYTE '1,'2
.BYTE '1,'3
.BYTE '1,'4
.BYTE '1,'5
.BYTE '1,'6
.BYTE '1,'7
.BYTE '1,'8
.BYTE '1,'9
.BYTE '2,'0
.BYTE '2,'1
.BYTE '2,'2
.BYTE '2,'3
.BYTE '2,'4
.BYTE '2,'5
.BYTE '2,'6
.BYTE '2,'7
.BYTE '2,'8
.BYTE '2,'9
.BYTE '3,'0
.BYTE '3,'1
.BYTE '3,'2
.BYTE '3,'3
.BYTE '3,'4
.BYTE '3,'5
.BYTE '3,'6
.BYTE '3,'7
.BYTE '3,'8
.BYTE '3,'9
.BYTE '4,'0
.BYTE '4,'1
.BYTE '4,'2
.BYTE '4,'3
.BYTE '4,'4
.BYTE '4,'5
.BYTE '4,'6
.BYTE '4,'7
.BYTE '4,'8
.BYTE '4,'9
.BYTE '5,'0
.BYTE '5,'1
.BYTE '5,'2
.BYTE '5,'3
.BYTE '5,'4
.BYTE '5,'5
.BYTE '5,'6
.BYTE '5,'7
.BYTE '5,'8
.BYTE '5,'9
.BYTE '6,'0
.BYTE '6,'1
.BYTE '6,'2
.BYTE '6,'3
.BYTE '6,'4
.BYTE '6,'5
.BYTE '6,'6
.BYTE '6,'7
.BYTE '6,'8
.BYTE '6,'9
.BYTE '7,'0
.BYTE '7,'1
.BYTE '7,'2
.BYTE '7,'3
.BYTE '7,'4
.BYTE '7,'5
.BYTE '7,'6
.BYTE '7,'7
.BYTE '7,'8
.BYTE '7,'9
.BYTE '8,'0
.BYTE '8,'1
.BYTE '8,'2
.BYTE '8,'3
.BYTE '8,'4
.BYTE '8,'5
.BYTE '8,'6
.BYTE '8,'7
.BYTE '8,'8
.BYTE '8,'9
.BYTE '9,'0
.BYTE '9,'1
.BYTE '9,'2
.BYTE '9,'3
.BYTE '9,'4
.BYTE '9,'5
.BYTE '9,'6
.BYTE '9,'7
.BYTE '9,'8
.BYTE '9,'9
.PAGE
;
; THIS TABLE HOLDS THE TERAIN OF THE MOON IN
; FEET ABOVE THE MEAN HEIGHT. IT GOES SOMEEWHAT FORWARD AND
; BACKWARD BECAUSE THE PROGRAM MAY "SCAN" A LITTLE BIT.
;
.WORD 718. ;X=-10
.WORD 718. ;X= -9
.WORD 718. ;X= -8
.WORD 750. ;X= -7
.WORD 750. ;X= -6
.WORD 750. ;X= -5
.WORD 782. ;X= -4
.WORD 782. ;X= -3
.WORD 782. ;X= -2
.WORD 814. ;X= -1
TERAIN: .WORD 780. ;X= 0
.WORD 750. ;X= 1
.WORD 703. ;X= 2
.WORD 650. ;X= 3
.WORD 620. ;X= 4
.WORD 575. ;X= 5
.WORD 500. ;X= 6
.WORD 420. ;X= 7
.WORD 400. ;X= 8
.WORD 350. ;X= 9
.WORD 270. ;X= 10
.WORD 246. ;X= 11
.WORD 200. ;X= 12
.WORD 180. ;X= 13
.WORD 107. ;X= 14
.WORD 24. ;X= 15
.WORD 54. ;X= 16
.WORD 53. ;X= 17
.WORD 51. ;X= 18
.WORD 82. ;X= 19
.WORD 80. ;X= 20
.WORD 78. ;X= 21
.WORD 109. ;X= 22
.WORD 107. ;X= 23
.WORD 74. ;X= 24
.WORD 72. ;X= 25
.WORD 70. ;X= 26
.WORD 69. ;X= 27
.WORD 99. ;X= 28
.WORD 98. ;X= 29
.WORD 128. ;X= 30
.WORD 126. ;X= 31
.WORD 125. ;X= 32
.WORD 123. ;X= 33
.WORD 122. ;X= 34
.WORD 152. ;X= 35
.WORD 182. ;X= 36
.WORD 174. ;X= 37
.WORD 166. ;X= 38
.WORD 158. ;X= 39
.WORD 181. ;X= 40
.WORD 173. ;X= 41
.WORD 165. ;X= 42
.WORD 156. ;X= 43
.WORD 148. ;X= 44
.WORD 140. ;X= 45
.WORD 131. ;X= 46
.WORD 91. ;X= 47
.WORD 83. ;X= 48
.WORD 75. ;X= 49
.WORD 182. ;X= 50
.WORD 161. ;X= 51
.WORD 236. ;X= 52
.WORD 120. ;X= 53
.WORD 67. ;X= 54
.WORD 174. ;X= 55
.WORD 153. ;X= 56
.WORD 197. ;X= 57
.WORD 80. ;X= 58
.WORD 59. ;X= 59
.WORD 866. ;X= 60
.WORD 123. ;X= 61
.WORD 201. ;X= 62
.WORD 250. ;X= 63
.WORD 275. ;X= 64
.WORD 300. ;X= 65
.WORD 375. ;X= 66
.WORD 410. ;X= 67
.WORD 579. ;X= 68
.WORD 926. ;X= 69
.WORD 1832. ;X= 70
.WORD 1907. ;X= 71
.WORD 2013. ;X= 72
.WORD 2119. ;X= 73
.WORD 2257. ;X= 74
.WORD 2395. ;X= 75
.WORD 2533. ;X= 76
.WORD 2639. ;X= 77
.WORD 2745. ;X= 78
.WORD 2883. ;X= 79
.WORD 3021. ;X= 80
.WORD 3128. ;X= 81
.WORD 3226. ;X= 82
.WORD 3197. ;X= 83
.WORD 3231. ;X= 84
.WORD 3170. ;X= 85
.WORD 3140. ;X= 86
.WORD 3143. ;X= 87
.WORD 3145. ;X= 88
.WORD 3180. ;X= 89
.WORD 3246. ;X= 90
.WORD 3153. ;X= 91
.WORD 3252. ;X= 92
.WORD 3286. ;X= 93
.WORD 3353. ;X= 94
.WORD 3387. ;X= 95
.WORD 3390. ;X= 96
.WORD 3424. ;X= 97
.WORD 3523. ;X= 98
.WORD 3429. ;X= 99
.WORD 3440. ;X=100
.WORD 3450. ;X=101
.WORD 3429. ;X=102
.WORD 3407. ;X=103
.WORD 3386. ;X=104
.WORD 3396. ;X=105
.WORD 3375. ;X=106
.WORD 3321. ;X=107
.WORD 3300. ;X=108
.WORD 3246. ;X=109
.WORD 3257. ;X=110
.WORD 3203. ;X=111
.WORD 3182. ;X=112
.WORD 3128. ;X=113
.WORD 3107. ;X=114
.WORD 3085. ;X=115
.WORD 3064. ;X=116
.WORD 3074. ;X=117
.WORD 3085. ;X=118
.WORD 3095. ;X=119
.WORD 3195. ;X=120
.WORD 3167. ;X=121
.WORD 3139. ;X=122
.WORD 3239. ;X=123
.WORD 2954. ;X=124
.WORD 2926. ;X=125
.WORD 2834. ;X=126
.WORD 2710. ;X=127
.WORD 2746. ;X=128
.WORD 2718. ;X=129
.WORD 2753. ;X=130
.WORD 2469. ;X=131
.WORD 2569. ;X=132
.WORD 2509. ;X=133
.WORD 2513. ;X=134
.WORD 2580. ;X=135
.WORD 2584. ;X=136
.WORD 2620. ;X=137
.WORD 2720. ;X=138
.WORD 2820. ;X=139
.WORD 2919. ;X=140
.WORD 2859. ;X=141
.WORD 2703. ;X=142
.WORD 2739. ;X=143
.WORD 2967. ;X=144
.WORD 2906. ;X=145
.WORD 3134. ;X=146
.WORD 3042. ;X=147
.WORD 2918. ;X=148
.WORD 2858. ;X=149
.WORD 2759. ;X=150
.WORD 2468. ;X=151
.WORD 2498. ;X=152
.WORD 2399. ;X=153
.WORD 2396. ;X=154
.WORD 2362. ;X=155
.WORD 2071. ;X=156
.WORD 1940. ;X=157
.WORD 1970. ;X=158
.WORD 2063. ;X=159
.WORD 2028. ;X=160
.WORD 1930. ;X=161
.WORD 1799. ;X=162
.WORD 1668. ;X=163
.WORD 1762. ;X=164
.WORD 1823. ;X=165
.WORD 1660. ;X=166
.WORD 1626. ;X=167
.WORD 1527. ;X=168
.WORD 1428. ;X=169
.WORD 1650. ;X=170
.WORD 1615. ;X=171
.WORD 1676. ;X=172
.WORD 1770. ;X=173
.WORD 1703. ;X=174
.WORD 1636. ;X=175
.WORD 1666. ;X=176
.WORD 1599. ;X=177
.WORD 1436. ;X=178
.WORD 1402. ;X=179
.WORD 1431. ;X=180
.WORD 1332. ;X=181
.WORD 1426. ;X=182
.WORD 1647. ;X=183
.WORD 1516. ;X=184
.WORD 1354. ;X=185
.WORD 1319. ;X=186
.WORD 1380. ;X=187
.WORD 1090. ;X=188
.WORD 1055. ;X=189
.WORD 1148. ;X=190
.WORD 1146. ;X=191
.WORD 1207. ;X=192
.WORD 1172. ;X=193
.WORD 1202. ;X=194
.WORD 1071. ;X=195
.WORD 780. ;X=196
.WORD 746. ;X=197
.WORD 711. ;X=198
.WORD 933. ;X=199
.WORD 1092. ;X=200
.WORD 1348. ;X=201
.WORD 1539. ;X=202
.WORD 1827. ;X=203
.WORD 1858. ;X=204
.WORD 2114. ;X=205
.WORD 2337. ;X=206
.WORD 2497. ;X=207
.WORD 2624. ;X=208
.WORD 2752. ;X=209
.WORD 2847. ;X=210
.WORD 3007. ;X=211
.WORD 3166. ;X=212
.WORD 3422. ;X=213
.WORD 3581. ;X=214
.WORD 3709. ;X=215
.WORD 3964. ;X=216
.WORD 4124. ;X=217
.WORD 4315. ;X=218
.WORD 4443. ;X=219
.WORD 4449. ;X=220
.WORD 4711. ;X=221
.WORD 4845. ;X=222
.WORD 4883. ;X=223
.WORD 4985. ;X=224
.WORD 5055. ;X=225
.WORD 5061. ;X=226
.WORD 5260. ;X=227
.WORD 5362. ;X=228
.WORD 5592. ;X=229
.WORD 5726. ;X=230
.WORD 5860. ;X=231
.WORD 5994. ;X=232
.WORD 6160. ;X=233
.WORD 6259. ;X=234
.WORD 6422. ;X=235
.WORD 6584. ;X=236
.WORD 6715. ;X=237
.WORD 6877. ;X=238
.WORD 7008. ;X=239
.WORD 7138. ;X=240
.WORD 7301. ;X=241
.WORD 7432. ;X=242
.WORD 7562. ;X=243
.WORD 7693. ;X=244
.WORD 7791. ;X=245
.WORD 7954. ;X=246
.WORD 8084. ;X=247
.WORD 8215. ;X=248
.WORD 8345. ;X=249
.WORD 8400. ;X=250
.WORD 8678. ;X=251
.WORD 8765. ;X=252
.WORD 8851. ;X=253
.WORD 9033. ;X=254
.WORD 9152. ;X=255
.WORD 9366. ;X=256
.WORD 9388. ;X=257
.WORD 9539. ;X=258
.WORD 9945. ;X=259
.WORD 10191. ;X=260
.WORD 10377. ;X=261
.WORD 10659. ;X=262
.WORD 10781. ;X=263
.WORD 11063. ;X=264
.WORD 11312. ;X=265
.WORD 11370. ;X=266
.WORD 11396. ;X=267
.WORD 11646. ;X=268
.WORD 11768. ;X=269
.WORD 11985. ;X=270
.WORD 12203. ;X=271
.WORD 12357. ;X=272
.WORD 12607. ;X=273
.WORD 12857. ;X=274
.WORD 12965. ;X=275
.WORD 13073. ;X=276
.WORD 13117. ;X=277
.WORD 13193. ;X=278
.WORD 13238. ;X=279
.WORD 13282. ;X=280
.WORD 13358. ;X=281
.WORD 13434. ;X=282
.WORD 13478. ;X=283
.WORD 13555. ;X=284
.WORD 13631. ;X=285
.WORD 13707. ;X=286
.WORD 13815. ;X=287
.WORD 13923. ;X=288
.WORD 13967. ;X=289
.WORD 14029. ;X=290
.WORD 13996. ;X=291
.WORD 14121. ;X=292
.WORD 14215. ;X=293
.WORD 14308. ;X=294
.WORD 14466. ;X=295
.WORD 14591. ;X=296
.WORD 14749. ;X=297
.WORD 14874. ;X=298
.WORD 15000. ;X=299
.WORD 14754. ;X=300
.WORD 14604. ;X=301
.WORD 14326. ;X=302
.WORD 14176. ;X=303
.WORD 14090. ;X=304
.WORD 13940. ;X=305
.WORD 13662. ;X=306
.WORD 13480. ;X=307
.WORD 13394. ;X=308
.WORD 13116. ;X=309
.WORD 12548. ;X=310
.WORD 11469. ;X=311
.WORD 10582. ;X=312
.WORD 10015. ;X=313
.WORD 9160. ;X=314
.WORD 8960. ;X=315
.WORD 8696. ;X=316
.WORD 8432. ;X=317
.WORD 8200. ;X=318
.WORD 7936. ;X=319
.WORD 7770. ;X=320
.WORD 7509. ;X=321
.WORD 7375. ;X=322
.WORD 7210. ;X=323
.WORD 7076. ;X=324
.WORD 6911. ;X=325
.WORD 6745. ;X=326
.WORD 6644. ;X=327
.WORD 6478. ;X=328
.WORD 6185. ;X=329
.WORD 6019. ;X=330
.WORD 5758. ;X=331
.WORD 5656. ;X=332
.WORD 5491. ;X=333
.WORD 5261. ;X=334
.WORD 5096. ;X=335
.WORD 4867. ;X=336
.WORD 4712. ;X=337
.WORD 4398. ;X=338
.WORD 4020. ;X=339
.WORD 3834. ;X=340
.WORD 3296. ;X=341
.WORD 3014. ;X=342
.WORD 2668. ;X=343
.WORD 2642. ;X=344
.WORD 2424. ;X=345
.WORD 2398. ;X=346
.WORD 2212. ;X=347
.WORD 2186. ;X=348
.WORD 1840. ;X=349
.WORD 1828. ;X=350
.WORD 2008. ;X=351
.WORD 2156. ;X=352
.WORD 2272. ;X=353
.WORD 2356. ;X=354
.WORD 2312. ;X=355
.WORD 2268. ;X=356
.WORD 2224. ;X=357
.WORD 2276. ;X=358
.WORD 2328. ;X=359
.WORD 2413. ;X=360
.WORD 2511. ;X=361
.WORD 2673. ;X=362
.WORD 2836. ;X=363
.WORD 2998. ;X=364
.WORD 3129. ;X=365
.WORD 3227. ;X=366
.WORD 3390. ;X=367
.WORD 3488. ;X=368
.WORD 3586. ;X=369
.WORD 3717. ;X=370
.WORD 3879. ;X=371
.WORD 4010. ;X=372
.WORD 4108. ;X=373
.WORD 4239. ;X=374
.WORD 4369. ;X=375
.WORD 4531. ;X=376
.WORD 4694. ;X=377
.WORD 4824. ;X=378
.WORD 4987. ;X=379
.WORD 5117. ;X=380
.WORD 5216. ;X=381
.WORD 5314. ;X=382
.WORD 5445. ;X=383
.WORD 5543. ;X=384
.WORD 5705. ;X=385
.WORD 5804. ;X=386
.WORD 5966. ;X=387
.WORD 6097. ;X=388
.WORD 6195. ;X=389
.WORD 6294. ;X=390
.WORD 6392. ;X=391
.WORD 6522. ;X=392
.WORD 6685. ;X=393
.WORD 6815. ;X=394
.WORD 6914. ;X=395
.WORD 7076. ;X=396
.WORD 7239. ;X=397
.WORD 7337. ;X=398
.WORD 7436. ;X=399
.WORD 7074. ;X=400
.WORD 6809. ;X=401
.WORD 6448. ;X=402
.WORD 6118. ;X=403
.WORD 5629. ;X=404
.WORD 5268. ;X=405
.WORD 5002. ;X=406
.WORD 4769. ;X=407
.WORD 4535. ;X=408
.WORD 4270. ;X=409
.WORD 3909. ;X=410
.WORD 3515. ;X=411
.WORD 3108. ;X=412
.WORD 2796. ;X=413
.WORD 2389. ;X=414
.WORD 2077. ;X=415
.WORD 1509. ;X=416
.WORD 1326. ;X=417
.WORD 1078. ;X=418
.WORD 895. ;X=419
.WORD 583. ;X=420
.WORD 144. ;X=421
.WORD 64. ;X=422
.WORD -15. ;X=423
.WORD -127. ;X=424
.WORD -114. ;X=425
.WORD -101. ;X=426
.WORD -56. ;X=427
.WORD -10. ;X=428
.WORD 2. ;X=429
.WORD -15. ;X=430
.WORD 29. ;X=431
.WORD 74. ;X=432
.WORD 56. ;X=433
.WORD 69. ;X=434
.WORD 82. ;X=435
.WORD 95. ;X=436
.WORD 88. ;X=437
.WORD 49. ;X=438
.WORD 73. ;X=439
.WORD 34. ;X=440
.WORD 59. ;X=441
.WORD 51. ;X=442
.WORD 44. ;X=443
.WORD 68. ;X=444
.WORD 29. ;X=445
.WORD 22. ;X=446
.WORD 14. ;X=447
.WORD 7. ;X=448
.WORD 32. ;X=449
.WORD 85. ;X=450
.WORD 171. ;X=451
.WORD 256. ;X=452
.WORD 310. ;X=453
.WORD 460. ;X=454
.WORD 555. ;X=455
.WORD 618. ;X=456
.WORD 681. ;X=457
.WORD 776. ;X=458
.WORD 839. ;X=459
.WORD 870. ;X=460
.WORD 933. ;X=461
.WORD 996. ;X=462
.WORD 1092. ;X=463
.WORD 1187. ;X=464
.WORD 1250. ;X=465
.WORD 1345. ;X=466
.WORD 1408. ;X=467
.WORD 1471. ;X=468
.WORD 1566. ;X=469
.WORD 1597. ;X=470
.WORD 1628. ;X=471
.WORD 1692. ;X=472
.WORD 1755. ;X=473
.WORD 1818. ;X=474
.WORD 1881. ;X=475
.WORD 1944. ;X=476
.WORD 2007. ;X=477
.WORD 2070. ;X=478
.WORD 2133. ;X=479
.WORD 2196. ;X=480
.WORD 2260. ;X=481
.WORD 2323. ;X=482
.WORD 2386. ;X=483
.WORD 2481. ;X=484
.WORD 2544. ;X=485
.WORD 2607. ;X=486
.WORD 2670. ;X=487
.WORD 2733. ;X=488
.WORD 2764. ;X=489
.WORD 2828. ;X=490
.WORD 2859. ;X=491
.WORD 2922. ;X=492
.WORD 2985. ;X=493
.WORD 3080. ;X=494
.WORD 3111. ;X=495
.WORD 3174. ;X=496
.WORD 3237. ;X=497
.WORD 3300. ;X=498
.WORD 3396. ;X=499
.WORD 3356. ;X=500
.WORD 3252. ;X=501
.WORD 2957. ;X=502
.WORD 3173. ;X=503
.WORD 3390. ;X=504
.WORD 3446. ;X=505
.WORD 3406. ;X=506
.WORD 3303. ;X=507
.WORD 3231. ;X=508
.WORD 3448. ;X=509
.WORD 3142. ;X=510
.WORD 3156. ;X=511
.WORD 3107. ;X=512
.WORD 3089. ;X=513
.WORD 2944. ;X=514
.WORD 2835. ;X=515
.WORD 2726. ;X=516
.WORD 2617. ;X=517
.WORD 2476. ;X=518
.WORD 2367. ;X=519
.WORD 2373. ;X=520
.WORD 2410. ;X=521
.WORD 2511. ;X=522
.WORD 2580. ;X=523
.WORD 2618. ;X=524
.WORD 2719. ;X=525
.WORD 2724. ;X=526
.WORD 2793. ;X=527
.WORD 2798. ;X=528
.WORD 2772. ;X=529
.WORD 2740. ;X=530
.WORD 2709. ;X=531
.WORD 2645. ;X=532
.WORD 2614. ;X=533
.WORD 2582. ;X=534
.WORD 2551. ;X=535
.WORD 2519. ;X=536
.WORD 2488. ;X=537
.WORD 2456. ;X=538
.WORD 2425. ;X=539
.WORD 2393. ;X=540
.WORD 2362. ;X=541
.WORD 2362. ;X=542
.WORD 2363. ;X=543
.WORD 2363. ;X=544
.WORD 2296. ;X=545
.WORD 2228. ;X=546
.WORD 2224. ;X=547
.WORD 2092. ;X=548
.WORD 2153. ;X=549
.WORD 2032. ;X=550
.WORD 2072. ;X=551
.WORD 2144. ;X=552
.WORD 2248. ;X=553
.WORD 2128. ;X=554
.WORD 1976. ;X=555
.WORD 2016. ;X=556
.WORD 1864. ;X=557
.WORD 1936. ;X=558
.WORD 1912. ;X=559
.WORD 1856. ;X=560
.WORD 1704. ;X=561
.WORD 1616. ;X=562
.WORD 1496. ;X=563
.WORD 1344. ;X=564
.WORD 1320. ;X=565
.WORD 1232. ;X=566
.WORD 952. ;X=567
.WORD 992. ;X=568
.WORD 1032. ;X=569
.WORD 1136. ;X=570
.WORD 1048. ;X=571
.WORD 1056. ;X=572
.WORD 968. ;X=573
.WORD 688. ;X=574
.WORD 792. ;X=575
.WORD 768. ;X=576
.WORD 744. ;X=577
.WORD 624. ;X=578
.WORD 343. ;X=579
.WORD 298. ;X=580
.WORD 444. ;X=581
.WORD 494. ;X=582
.WORD 289. ;X=583
.WORD 211. ;X=584
.WORD 165. ;X=585
.WORD 152. ;X=586
.WORD 74. ;X=587
.WORD 156. ;X=588
.WORD 174. ;X=589
.WORD 225. ;X=590
.WORD 147. ;X=591
.WORD -58. ;X=592
.WORD -39. ;X=593
.WORD -85. ;X=594
.WORD -163. ;X=595
.WORD 143. ;X=596
.WORD 449. ;X=597
.WORD 755. ;X=598
.WORD 934. ;X=599
.WORD 787. ;X=600
.WORD 673. ;X=601
.WORD 654. ;X=602
.WORD 636. ;X=603
.WORD 618. ;X=604
.WORD 471. ;X=605
.WORD 325. ;X=606
.WORD 403. ;X=607
.WORD 416. ;X=608
.WORD 270. ;X=609
.WORD 220. ;X=610
.WORD 105. ;X=611
.WORD 87. ;X=612
.WORD 101. ;X=613
.WORD -13. ;X=614
.WORD -63. ;X=615
.WORD 46. ;X=616
.WORD 155. ;X=617
.WORD 137. ;X=618
.WORD 183. ;X=619
.WORD 164. ;X=620
.WORD 50. ;X=621
.WORD 31. ;X=622
.WORD 13. ;X=623
.WORD 123. ;X=624
.WORD 104. ;X=625
.WORD 214. ;X=626
.WORD 228. ;X=627
.WORD 273. ;X=628
.WORD 287. ;X=629
.WORD 141. ;X=630
.WORD 250. ;X=631
.WORD 328. ;X=632
.WORD 278. ;X=633
.WORD 323. ;X=634
.WORD 401. ;X=635
.WORD 511. ;X=636
.WORD 364. ;X=637
.WORD 218. ;X=638
.WORD 200. ;X=639
.WORD 212. ;X=640
.WORD 160. ;X=641
.WORD 172. ;X=642
.WORD 152. ;X=643
.WORD 132. ;X=644
.WORD 112. ;X=645
.WORD 92. ;X=646
.WORD 72. ;X=647
.WORD 52. ;X=648
.WORD 63. ;X=649
.WORD 94. ;X=650
.WORD 93. ;X=651
.WORD 92. ;X=652
.WORD 90. ;X=653
.WORD 89. ;X=654
.WORD 120. ;X=655
.WORD 119. ;X=656
.WORD 117. ;X=657
.WORD 116. ;X=658
.WORD 83. ;X=659
.WORD 81. ;X=660
.WORD 80. ;X=661
.WORD 79. ;X=662
.WORD 110. ;X=663
.WORD 108. ;X=664
.WORD 139. ;X=665
.WORD 138. ;X=666
.WORD 136. ;X=667
.WORD 103. ;X=668
.WORD 134. ;X=669
.WORD 165. ;X=670
.WORD 131. ;X=671
.WORD 162. ;X=672
.WORD 193. ;X=673
.WORD 159. ;X=674
.WORD 185. ;X=675
.WORD 179. ;X=676
.WORD 140. ;X=677
.WORD 102. ;X=678
.WORD 128. ;X=679
.WORD 153. ;X=680
.WORD 147. ;X=681
.WORD 172. ;X=682
.WORD 134. ;X=683
.WORD 160. ;X=684
.WORD 153. ;X=685
.WORD 179. ;X=686
.WORD 204. ;X=687
.WORD 166. ;X=688
.WORD 160. ;X=689
.WORD 153. ;X=690
.WORD 179. ;X=691
.WORD 172. ;X=692
.WORD 166. ;X=693
.WORD 160. ;X=694
.WORD 153. ;X=695
.WORD 125. ;X=696
.WORD 110. ;X=697
.WORD 95. ;X=698
.WORD 80. ;X=699
.WORD 85. ;X=700
.WORD 82. ;X=701
.WORD 87. ;X=702
.WORD 84. ;X=703
.WORD 81. ;X=704
.WORD 86. ;X=705
.WORD 103. ;X=706
.WORD 125. ;X=707
.WORD 140. ;X=708
.WORD 152. ;X=709
.WORD 135. ;X=710
.WORD 130. ;X=711
.WORD 125. ;X=712
.WORD 88. ;X=713
.WORD 83. ;X=714
.WORD 46. ;X=715
.WORD 40. ;X=716
.WORD 35. ;X=717
.WORD 30. ;X=718
.WORD 25. ;X=719
.WORD 52. ;X=720
.WORD 47. ;X=721
.WORD 42. ;X=722
.WORD 37. ;X=723
.WORD 63. ;X=724
.WORD 61. ;X=725
.WORD 90. ;X=726
.WORD 120. ;X=727
.WORD 117. ;X=728
.WORD 115. ;X=729
.WORD 112. ;X=730
.WORD 78. ;X=731
.WORD 75. ;X=732
.WORD 104. ;X=733
.WORD 70. ;X=734
.WORD 67. ;X=735
.WORD 33. ;X=736
.WORD 62. ;X=737
.WORD 60. ;X=738
.WORD 57. ;X=739
.WORD 55. ;X=740
.WORD 52. ;X=741
.WORD 81. ;X=742
.WORD 111. ;X=743
.WORD 140. ;X=744
.WORD 138. ;X=745
.WORD 167. ;X=746
.WORD 165. ;X=747
.WORD 162. ;X=748
.WORD 192. ;X=749
.WORD 137. ;X=750
.WORD 179. ;X=751
.WORD 124. ;X=752
.WORD 230. ;X=753
.WORD 336. ;X=754
.WORD 377. ;X=755
.WORD 387. ;X=756
.WORD 301. ;X=757
.WORD 406. ;X=758
.WORD 288. ;X=759
.WORD 426. ;X=760
.WORD 467. ;X=761
.WORD 541. ;X=762
.WORD 423. ;X=763
.WORD 528. ;X=764
.WORD 506. ;X=765
.WORD 452. ;X=766
.WORD 365. ;X=767
.WORD 311. ;X=768
.WORD 193. ;X=769
.WORD 298. ;X=770
.WORD 436. ;X=771
.WORD 510. ;X=772
.WORD 487. ;X=773
.WORD 465. ;X=774
.WORD 347. ;X=775
.WORD 260. ;X=776
.WORD 334. ;X=777
.WORD 440. ;X=778
.WORD 417. ;X=779
.WORD 427. ;X=780
.WORD 341. ;X=781
.WORD 318. ;X=782
.WORD 232. ;X=783
.WORD 146. ;X=784
.WORD 27. ;X=785
.WORD 69. ;X=786
.WORD 175. ;X=787
.WORD 280. ;X=788
.WORD 258. ;X=789
.WORD 204. ;X=790
.WORD 277. ;X=791
.WORD 415. ;X=792
.WORD 425. ;X=793
.WORD 466. ;X=794
.WORD 412. ;X=795
.WORD 326. ;X=796
.WORD 463. ;X=797
.WORD 537. ;X=798
.WORD 547. ;X=799
.WORD 798. ;X=800
.WORD 665. ;X=801
.WORD 660. ;X=802
.WORD 592. ;X=803
.WORD 555. ;X=804
.WORD 646. ;X=805
.WORD 514. ;X=806
.WORD 765. ;X=807
.WORD 760. ;X=808
.WORD 755. ;X=809
.WORD 875. ;X=810
.WORD 994. ;X=811
.WORD 1081. ;X=812
.WORD 1136. ;X=813
.WORD 1223. ;X=814
.WORD 1311. ;X=815
.WORD 1398. ;X=816
.WORD 1485. ;X=817
.WORD 1604. ;X=818
.WORD 1691. ;X=819
.WORD 1747. ;X=820
.WORD 1834. ;X=821
.WORD 1921. ;X=822
.WORD 1976. ;X=823
.WORD 2095. ;X=824
.WORD 2183. ;X=825
.WORD 2238. ;X=826
.WORD 2357. ;X=827
.WORD 2412. ;X=828
.WORD 2468. ;X=829
.WORD 2422. ;X=830
.WORD 2440. ;X=831
.WORD 2523. ;X=832
.WORD 2381. ;X=833
.WORD 2336. ;X=834
.WORD 2380. ;X=835
.WORD 2392. ;X=836
.WORD 2404. ;X=837
.WORD 2449. ;X=838
.WORD 2493. ;X=839
.WORD 2505. ;X=840
.WORD 2517. ;X=841
.WORD 2562. ;X=842
.WORD 2574. ;X=843
.WORD 2586. ;X=844
.WORD 2598. ;X=845
.WORD 2643. ;X=846
.WORD 2687. ;X=847
.WORD 2731. ;X=848
.WORD 2775. ;X=849
.WORD 2849. ;X=850
.WORD 2890. ;X=851
.WORD 2932. ;X=852
.WORD 2781. ;X=853
.WORD 2759. ;X=854
.WORD 2832. ;X=855
.WORD 2810. ;X=856
.WORD 2787. ;X=857
.WORD 2509. ;X=858
.WORD 2742. ;X=859
.WORD 2752. ;X=860
.WORD 2825. ;X=861
.WORD 2899. ;X=862
.WORD 2844. ;X=863
.WORD 2822. ;X=864
.WORD 2543. ;X=865
.WORD 2777. ;X=866
.WORD 2882. ;X=867
.WORD 2892. ;X=868
.WORD 2773. ;X=869
.WORD 2879. ;X=870
.WORD 2792. ;X=871
.WORD 2770. ;X=872
.WORD 2747. ;X=873
.WORD 2629. ;X=874
.WORD 2670. ;X=875
.WORD 2391. ;X=876
.WORD 2497. ;X=877
.WORD 2570. ;X=878
.WORD 2804. ;X=879
.WORD 2781. ;X=880
.WORD 2823. ;X=881
.WORD 2544. ;X=882
.WORD 2490. ;X=883
.WORD 2435. ;X=884
.WORD 2477. ;X=885
.WORD 2518. ;X=886
.WORD 2368. ;X=887
.WORD 2313. ;X=888
.WORD 2419. ;X=889
.WORD 2524. ;X=890
.WORD 2502. ;X=891
.WORD 2479. ;X=892
.WORD 2553. ;X=893
.WORD 2562. ;X=894
.WORD 2540. ;X=895
.WORD 2549. ;X=896
.WORD 2591. ;X=897
.WORD 2664. ;X=898
.WORD 2386. ;X=899
.WORD 2455. ;X=900
.WORD 2428. ;X=901
.WORD 2145. ;X=902
.WORD 2119. ;X=903
.WORD 2156. ;X=904
.WORD 2001. ;X=905
.WORD 1974. ;X=906
.WORD 2204. ;X=907
.WORD 2145. ;X=908
.WORD 2374. ;X=909
.WORD 2476. ;X=910
.PAGE
;
; THIS TABLE HOLDS THE FEATURES OF THE MOON
; THAT MAY CHANGE FROM TIME TO TIME.
; 0=NOTHING SPECIAL.
; 1=LANDED SHIP.
; 2=PLANTED AMERICAN FLAG.
; 3=DEAD SHIP TILTED LEFT.
; 4=DEAD SHIP TILTED RIGHT.
; 5=BOULDER. <ROCK TO YOU STUPID PEOPLES>
; 6=MACDONALD'S <LEFT OR RIGHT EDGES ONLY>
; 7=CENTER OF MACDONALD'S <WHERE TO DRAW CENTER OF IT>
;
.BYTE 0*20+0 ;X= -9 X=-10
.BYTE 5*20+0 ;X= -7 X= -8
.BYTE 0*20+0 ;X= -5 X= -6
.BYTE 0*20+0 ;X= -3 X= -4
.BYTE 0*20+0 ;X= -1 X= -2
FEATUR: .BYTE 0*20+5 ;X= 1 X= 0
.BYTE 0*20+0 ;X= 3 X= 2
.BYTE 0*20+0 ;X= 5 X= 4
.BYTE 0*20+0 ;X= 7 X= 6
.BYTE 0*20+0 ;X= 9 X= 8
.BYTE 0*20+0 ;X= 11 X= 10
.BYTE 0*20+0 ;X= 13 X= 12
.BYTE 0*20+0 ;X= 15 X= 14
.BYTE 0*20+0 ;X= 17 X= 16
.BYTE 0*20+0 ;X= 19 X= 18
.BYTE 0*20+0 ;X= 21 X= 20
.BYTE 0*20+0 ;X= 23 X= 22
.BYTE 0*20+0 ;X= 25 X= 24
.BYTE 0*20+5 ;X= 27 X= 26
.BYTE 5*20+5 ;X= 29 X= 28
.BYTE 0*20+0 ;X= 31 X= 30
.BYTE 0*20+0 ;X= 33 X= 32
.BYTE 0*20+0 ;X= 35 X= 34
.BYTE 0*20+0 ;X= 37 X= 36
.BYTE 0*20+0 ;X= 39 X= 38
.BYTE 0*20+0 ;X= 41 X= 40
.BYTE 0*20+0 ;X= 43 X= 42
.BYTE 0*20+5 ;X= 45 X= 44
.BYTE 0*20+0 ;X= 47 X= 46
.BYTE 0*20+0 ;X= 49 X= 48
.BYTE 5*20+5 ;X= 51 X= 50
.BYTE 0*20+5 ;X= 53 X= 52
.BYTE 5*20+5 ;X= 55 X= 54
.BYTE 0*20+0 ;X= 57 X= 56
.BYTE 0*20+0 ;X= 59 X= 58
.BYTE 0*20+5 ;X= 61 X= 60
.BYTE 0*20+5 ;X= 63 X= 62
.BYTE 5*20+5 ;X= 65 X= 64
.BYTE 5*20+0 ;X= 67 X= 66
.BYTE 0*20+5 ;X= 69 X= 68
.BYTE 5*20+5 ;X= 71 X= 70
.BYTE 5*20+5 ;X= 73 X= 72
.BYTE 5*20+0 ;X= 75 X= 74
.BYTE 0*20+5 ;X= 77 X= 76
.BYTE 0*20+5 ;X= 79 X= 78
.BYTE 0*20+0 ;X= 81 X= 80
.BYTE 0*20+5 ;X= 83 X= 82
.BYTE 5*20+0 ;X= 85 X= 84
.BYTE 0*20+5 ;X= 87 X= 86
.BYTE 0*20+0 ;X= 89 X= 88
.BYTE 0*20+5 ;X= 91 X= 90
.BYTE 0*20+0 ;X= 93 X= 92
.BYTE 0*20+0 ;X= 95 X= 94
.BYTE 5*20+5 ;X= 97 X= 96
.BYTE 0*20+0 ;X= 99 X= 98
.BYTE 0*20+5 ;X=101 X=100
.BYTE 5*20+5 ;X=103 X=102
.BYTE 0*20+5 ;X=105 X=104
.BYTE 5*20+5 ;X=107 X=106
.BYTE 0*20+5 ;X=109 X=108
.BYTE 0*20+5 ;X=111 X=110
.BYTE 5*20+0 ;X=113 X=112
.BYTE 5*20+5 ;X=115 X=114
.BYTE 5*20+5 ;X=117 X=116
.BYTE 5*20+5 ;X=119 X=118
.BYTE 0*20+5 ;X=121 X=120
.BYTE 5*20+5 ;X=123 X=122
.BYTE 5*20+5 ;X=125 X=124
.BYTE 5*20+5 ;X=127 X=126
.BYTE 0*20+5 ;X=129 X=128
.BYTE 5*20+5 ;X=131 X=130
.BYTE 0*20+5 ;X=133 X=132
.BYTE 5*20+5 ;X=135 X=134
.BYTE 5*20+5 ;X=137 X=136
.BYTE 5*20+5 ;X=139 X=138
.BYTE 0*20+5 ;X=141 X=140
.BYTE 0*20+5 ;X=143 X=142
.BYTE 5*20+5 ;X=145 X=144
.BYTE 5*20+5 ;X=147 X=146
.BYTE 5*20+0 ;X=149 X=148
.BYTE 5*20+5 ;X=151 X=150
.BYTE 5*20+5 ;X=153 X=152
.BYTE 5*20+5 ;X=155 X=154
.BYTE 5*20+0 ;X=157 X=156
.BYTE 0*20+0 ;X=159 X=158
.BYTE 5*20+5 ;X=161 X=160
.BYTE 0*20+5 ;X=163 X=162
.BYTE 0*20+5 ;X=165 X=164
.BYTE 5*20+5 ;X=167 X=166
.BYTE 5*20+5 ;X=169 X=168
.BYTE 5*20+5 ;X=171 X=170
.BYTE 5*20+5 ;X=173 X=172
.BYTE 0*20+5 ;X=175 X=174
.BYTE 5*20+5 ;X=177 X=176
.BYTE 0*20+5 ;X=179 X=178
.BYTE 5*20+0 ;X=181 X=180
.BYTE 0*20+5 ;X=183 X=182
.BYTE 5*20+5 ;X=185 X=184
.BYTE 5*20+5 ;X=187 X=186
.BYTE 5*20+5 ;X=189 X=188
.BYTE 5*20+5 ;X=191 X=190
.BYTE 5*20+5 ;X=193 X=192
.BYTE 5*20+5 ;X=195 X=194
.BYTE 5*20+5 ;X=197 X=196
.BYTE 0*20+5 ;X=199 X=198
.BYTE 0*20+0 ;X=201 X=200
.BYTE 5*20+0 ;X=203 X=202
.BYTE 0*20+0 ;X=205 X=204
.BYTE 0*20+0 ;X=207 X=206
.BYTE 0*20+0 ;X=209 X=208
.BYTE 0*20+5 ;X=211 X=210
.BYTE 0*20+0 ;X=213 X=212
.BYTE 0*20+0 ;X=215 X=214
.BYTE 0*20+0 ;X=217 X=216
.BYTE 0*20+0 ;X=219 X=218
.BYTE 5*20+0 ;X=221 X=220
.BYTE 5*20+5 ;X=223 X=222
.BYTE 0*20+0 ;X=225 X=224
.BYTE 0*20+0 ;X=227 X=226
.BYTE 0*20+0 ;X=229 X=228
.BYTE 0*20+0 ;X=231 X=230
.BYTE 0*20+0 ;X=233 X=232
.BYTE 0*20+5 ;X=235 X=234
.BYTE 0*20+0 ;X=237 X=236
.BYTE 0*20+0 ;X=239 X=238
.BYTE 0*20+5 ;X=241 X=240
.BYTE 0*20+0 ;X=243 X=242
.BYTE 0*20+5 ;X=245 X=244
.BYTE 0*20+0 ;X=247 X=246
.BYTE 0*20+0 ;X=249 X=248
.BYTE 0*20+5 ;X=251 X=250
.BYTE 0*20+5 ;X=253 X=252
.BYTE 0*20+0 ;X=255 X=254
.BYTE 0*20+0 ;X=257 X=256
.BYTE 0*20+0 ;X=259 X=258
.BYTE 0*20+0 ;X=261 X=260
.BYTE 0*20+0 ;X=263 X=262
.BYTE 0*20+0 ;X=265 X=264
.BYTE 0*20+5 ;X=267 X=266
.BYTE 0*20+0 ;X=269 X=268
.BYTE 0*20+0 ;X=271 X=270
.BYTE 0*20+0 ;X=273 X=272
.BYTE 0*20+0 ;X=275 X=274
.BYTE 0*20+0 ;X=277 X=276
.BYTE 0*20+0 ;X=279 X=278
.BYTE 5*20+0 ;X=281 X=280
.BYTE 0*20+0 ;X=283 X=282
.BYTE 0*20+0 ;X=285 X=284
.BYTE 0*20+0 ;X=287 X=286
.BYTE 0*20+0 ;X=289 X=288
.BYTE 0*20+0 ;X=291 X=290
.BYTE 0*20+0 ;X=293 X=292
.BYTE 0*20+0 ;X=295 X=294
.BYTE 0*20+0 ;X=297 X=296
.BYTE 0*20+0 ;X=299 X=298
.BYTE 5*20+5 ;X=301 X=300
.BYTE 5*20+5 ;X=303 X=302
.BYTE 5*20+0 ;X=305 X=304
.BYTE 5*20+5 ;X=307 X=306
.BYTE 0*20+5 ;X=309 X=308
.BYTE 5*20+5 ;X=311 X=310
.BYTE 0*20+5 ;X=313 X=312
.BYTE 5*20+5 ;X=315 X=314
.BYTE 5*20+5 ;X=317 X=316
.BYTE 5*20+5 ;X=319 X=318
.BYTE 5*20+5 ;X=321 X=320
.BYTE 5*20+5 ;X=323 X=322
.BYTE 5*20+5 ;X=325 X=324
.BYTE 5*20+5 ;X=327 X=326
.BYTE 5*20+5 ;X=329 X=328
.BYTE 5*20+5 ;X=331 X=330
.BYTE 5*20+5 ;X=333 X=332
.BYTE 5*20+5 ;X=335 X=334
.BYTE 5*20+5 ;X=337 X=336
.BYTE 5*20+5 ;X=339 X=338
.BYTE 5*20+5 ;X=341 X=340
.BYTE 5*20+5 ;X=343 X=342
.BYTE 5*20+5 ;X=345 X=344
.BYTE 5*20+5 ;X=347 X=346
.BYTE 5*20+5 ;X=349 X=348
.BYTE 0*20+0 ;X=351 X=350
.BYTE 0*20+0 ;X=353 X=352
.BYTE 0*20+0 ;X=355 X=354
.BYTE 5*20+0 ;X=357 X=356
.BYTE 5*20+5 ;X=359 X=358
.BYTE 5*20+5 ;X=361 X=360
.BYTE 0*20+0 ;X=363 X=362
.BYTE 0*20+0 ;X=365 X=364
.BYTE 0*20+0 ;X=367 X=366
.BYTE 0*20+0 ;X=369 X=368
.BYTE 0*20+0 ;X=371 X=370
.BYTE 0*20+0 ;X=373 X=372
.BYTE 0*20+0 ;X=375 X=374
.BYTE 0*20+0 ;X=377 X=376
.BYTE 0*20+5 ;X=379 X=378
.BYTE 0*20+0 ;X=381 X=380
.BYTE 0*20+5 ;X=383 X=382
.BYTE 0*20+0 ;X=385 X=384
.BYTE 0*20+5 ;X=387 X=386
.BYTE 0*20+0 ;X=389 X=388
.BYTE 0*20+0 ;X=391 X=390
.BYTE 0*20+0 ;X=393 X=392
.BYTE 0*20+0 ;X=395 X=394
.BYTE 0*20+0 ;X=397 X=396
.BYTE 0*20+0 ;X=399 X=398
.BYTE 5*20+5 ;X=401 X=400
.BYTE 5*20+5 ;X=403 X=402
.BYTE 5*20+5 ;X=405 X=404
.BYTE 5*20+5 ;X=407 X=406
.BYTE 5*20+5 ;X=409 X=408
.BYTE 5*20+5 ;X=411 X=410
.BYTE 5*20+5 ;X=413 X=412
.BYTE 5*20+5 ;X=415 X=414
.BYTE 5*20+0 ;X=417 X=416
.BYTE 5*20+5 ;X=419 X=418
.BYTE 5*20+5 ;X=421 X=420
.BYTE 0*20+5 ;X=423 X=422
.BYTE 0*20+5 ;X=425 X=424
.BYTE 0*20+0 ;X=427 X=426
.BYTE 0*20+0 ;X=429 X=428
.BYTE 0*20+5 ;X=431 X=430
.BYTE 0*20+0 ;X=433 X=432
.BYTE 5*20+0 ;X=435 X=434
.BYTE 5*20+0 ;X=437 X=436
.BYTE 0*20+0 ;X=439 X=438
.BYTE 0*20+0 ;X=441 X=440
.BYTE 0*20+0 ;X=443 X=442
.BYTE 0*20+0 ;X=445 X=444
.BYTE 0*20+0 ;X=447 X=446
.BYTE 0*20+0 ;X=449 X=448
.BYTE 5*20+0 ;X=451 X=450
.BYTE 5*20+0 ;X=453 X=452
.BYTE 0*20+5 ;X=455 X=454
.BYTE 0*20+0 ;X=457 X=456
.BYTE 5*20+0 ;X=459 X=458
.BYTE 0*20+5 ;X=461 X=460
.BYTE 0*20+5 ;X=463 X=462
.BYTE 5*20+5 ;X=465 X=464
.BYTE 0*20+5 ;X=467 X=466
.BYTE 0*20+0 ;X=469 X=468
.BYTE 0*20+5 ;X=471 X=470
.BYTE 0*20+5 ;X=473 X=472
.BYTE 0*20+5 ;X=475 X=474
.BYTE 0*20+0 ;X=477 X=476
.BYTE 0*20+5 ;X=479 X=478
.BYTE 0*20+0 ;X=481 X=480
.BYTE 0*20+0 ;X=483 X=482
.BYTE 0*20+0 ;X=485 X=484
.BYTE 0*20+0 ;X=487 X=486
.BYTE 0*20+0 ;X=489 X=488
.BYTE 0*20+0 ;X=491 X=490
.BYTE 5*20+0 ;X=493 X=492
.BYTE 0*20+0 ;X=495 X=494
.BYTE 0*20+0 ;X=497 X=496
.BYTE 0*20+0 ;X=499 X=498
.BYTE 5*20+5 ;X=501 X=500
.BYTE 5*20+5 ;X=503 X=502
.BYTE 5*20+5 ;X=505 X=504
.BYTE 5*20+5 ;X=507 X=506
.BYTE 5*20+5 ;X=509 X=508
.BYTE 5*20+5 ;X=511 X=510
.BYTE 5*20+5 ;X=513 X=512
.BYTE 5*20+0 ;X=515 X=514
.BYTE 5*20+0 ;X=517 X=516
.BYTE 5*20+5 ;X=519 X=518
.BYTE 5*20+5 ;X=521 X=520
.BYTE 5*20+5 ;X=523 X=522
.BYTE 5*20+5 ;X=525 X=524
.BYTE 5*20+0 ;X=527 X=526
.BYTE 5*20+5 ;X=529 X=528
.BYTE 5*20+5 ;X=531 X=530
.BYTE 5*20+5 ;X=533 X=532
.BYTE 0*20+5 ;X=535 X=534
.BYTE 5*20+5 ;X=537 X=536
.BYTE 5*20+0 ;X=539 X=538
.BYTE 5*20+0 ;X=541 X=540
.BYTE 5*20+5 ;X=543 X=542
.BYTE 5*20+5 ;X=545 X=544
.BYTE 5*20+5 ;X=547 X=546
.BYTE 5*20+5 ;X=549 X=548
.BYTE 5*20+5 ;X=551 X=550
.BYTE 5*20+5 ;X=553 X=552
.BYTE 5*20+0 ;X=555 X=554
.BYTE 5*20+5 ;X=557 X=556
.BYTE 5*20+5 ;X=559 X=558
.BYTE 5*20+5 ;X=561 X=560
.BYTE 5*20+5 ;X=563 X=562
.BYTE 5*20+5 ;X=565 X=564
.BYTE 5*20+5 ;X=567 X=566
.BYTE 5*20+5 ;X=569 X=568
.BYTE 5*20+5 ;X=571 X=570
.BYTE 5*20+0 ;X=573 X=572
.BYTE 5*20+5 ;X=575 X=574
.BYTE 0*20+5 ;X=577 X=576
.BYTE 0*20+5 ;X=579 X=578
.BYTE 0*20+5 ;X=581 X=580
.BYTE 5*20+0 ;X=583 X=582
.BYTE 5*20+0 ;X=585 X=584
.BYTE 5*20+5 ;X=587 X=586
.BYTE 5*20+5 ;X=589 X=588
.BYTE 5*20+5 ;X=591 X=590
.BYTE 5*20+5 ;X=593 X=592
.BYTE 5*20+5 ;X=595 X=594
.BYTE 5*20+5 ;X=597 X=596
.BYTE 5*20+5 ;X=599 X=598
.BYTE 0*20+0 ;X=601 X=600
.BYTE 0*20+0 ;X=603 X=602
.BYTE 0*20+0 ;X=605 X=604
.BYTE 0*20+0 ;X=607 X=606
.BYTE 0*20+0 ;X=609 X=608
.BYTE 0*20+0 ;X=611 X=610
.BYTE 0*20+0 ;X=613 X=612
.BYTE 0*20+0 ;X=615 X=614
.BYTE 5*20+0 ;X=617 X=616
.BYTE 5*20+0 ;X=619 X=618
.BYTE 0*20+0 ;X=621 X=620
.BYTE 0*20+0 ;X=623 X=622
.BYTE 0*20+0 ;X=625 X=624
.BYTE 0*20+0 ;X=627 X=626
.BYTE 0*20+0 ;X=629 X=628
.BYTE 0*20+0 ;X=631 X=630
.BYTE 5*20+0 ;X=633 X=632
.BYTE 0*20+0 ;X=635 X=634
.BYTE 0*20+0 ;X=637 X=636
.BYTE 0*20+0 ;X=639 X=638
.BYTE 0*20+0 ;X=641 X=640
.BYTE 0*20+0 ;X=643 X=642
.BYTE 0*20+5 ;X=645 X=644
.BYTE 0*20+0 ;X=647 X=646
.BYTE 0*20+0 ;X=649 X=648
.BYTE 0*20+5 ;X=651 X=650
.BYTE 0*20+0 ;X=653 X=652
.BYTE 0*20+0 ;X=655 X=654
.BYTE 0*20+0 ;X=657 X=656
.BYTE 0*20+0 ;X=659 X=658
.BYTE 0*20+0 ;X=661 X=660
.BYTE 0*20+0 ;X=663 X=662
.BYTE 0*20+0 ;X=665 X=664
.BYTE 0*20+0 ;X=667 X=666
.BYTE 5*20+0 ;X=669 X=668
.BYTE 5*20+5 ;X=671 X=670
.BYTE 0*20+0 ;X=673 X=672
.BYTE 0*20+0 ;X=675 X=674
.BYTE 0*20+0 ;X=677 X=676
.BYTE 0*20+0 ;X=679 X=678
.BYTE 0*20+0 ;X=681 X=680
.BYTE 0*20+0 ;X=683 X=682
.BYTE 0*20+0 ;X=685 X=684
.BYTE 0*20+0 ;X=687 X=686
.BYTE 5*20+5 ;X=689 X=688
.BYTE 0*20+5 ;X=691 X=690
.BYTE 0*20+0 ;X=693 X=692
.BYTE 0*20+0 ;X=695 X=694
.BYTE 0*20+0 ;X=697 X=696
.BYTE 0*20+0 ;X=699 X=698
.BYTE 0*20+0 ;X=701 X=700
.BYTE 7*20+6 ;X=703 X=702
.BYTE 0*20+6 ;X=705 X=704
.BYTE 5*20+0 ;X=707 X=706
.BYTE 5*20+5 ;X=709 X=708
.BYTE 5*20+0 ;X=711 X=710
.BYTE 0*20+0 ;X=713 X=712
.BYTE 5*20+0 ;X=715 X=714
.BYTE 5*20+0 ;X=717 X=716
.BYTE 0*20+0 ;X=719 X=718
.BYTE 5*20+5 ;X=721 X=720
.BYTE 5*20+5 ;X=723 X=722
.BYTE 0*20+0 ;X=725 X=724
.BYTE 0*20+5 ;X=727 X=726
.BYTE 0*20+0 ;X=729 X=728
.BYTE 5*20+0 ;X=731 X=730
.BYTE 0*20+5 ;X=733 X=732
.BYTE 5*20+5 ;X=735 X=734
.BYTE 5*20+0 ;X=737 X=736
.BYTE 0*20+0 ;X=739 X=738
.BYTE 5*20+0 ;X=741 X=740
.BYTE 5*20+0 ;X=743 X=742
.BYTE 0*20+5 ;X=745 X=744
.BYTE 0*20+0 ;X=747 X=746
.BYTE 0*20+0 ;X=749 X=748
.BYTE 5*20+0 ;X=751 X=750
.BYTE 0*20+5 ;X=753 X=752
.BYTE 0*20+0 ;X=755 X=754
.BYTE 5*20+0 ;X=757 X=756
.BYTE 5*20+0 ;X=759 X=758
.BYTE 0*20+0 ;X=761 X=760
.BYTE 0*20+0 ;X=763 X=762
.BYTE 5*20+0 ;X=765 X=764
.BYTE 0*20+0 ;X=767 X=766
.BYTE 5*20+5 ;X=769 X=768
.BYTE 5*20+0 ;X=771 X=770
.BYTE 0*20+0 ;X=773 X=772
.BYTE 5*20+0 ;X=775 X=774
.BYTE 0*20+0 ;X=777 X=776
.BYTE 5*20+0 ;X=779 X=778
.BYTE 0*20+0 ;X=781 X=780
.BYTE 0*20+0 ;X=783 X=782
.BYTE 0*20+5 ;X=785 X=784
.BYTE 0*20+0 ;X=787 X=786
.BYTE 0*20+0 ;X=789 X=788
.BYTE 0*20+0 ;X=791 X=790
.BYTE 0*20+0 ;X=793 X=792
.BYTE 0*20+0 ;X=795 X=794
.BYTE 0*20+0 ;X=797 X=796
.BYTE 0*20+0 ;X=799 X=798
.BYTE 0*20+0 ;X=801 X=800
.BYTE 0*20+0 ;X=803 X=802
.BYTE 0*20+0 ;X=805 X=804
.BYTE 0*20+5 ;X=807 X=806
.BYTE 0*20+0 ;X=809 X=808
.BYTE 0*20+0 ;X=811 X=810
.BYTE 0*20+0 ;X=813 X=812
.BYTE 0*20+0 ;X=815 X=814
.BYTE 0*20+0 ;X=817 X=816
.BYTE 0*20+0 ;X=819 X=818
.BYTE 0*20+0 ;X=821 X=820
.BYTE 0*20+0 ;X=823 X=822
.BYTE 0*20+0 ;X=825 X=824
.BYTE 5*20+0 ;X=827 X=826
.BYTE 0*20+5 ;X=829 X=828
.BYTE 0*20+0 ;X=831 X=830
.BYTE 0*20+0 ;X=833 X=832
.BYTE 0*20+0 ;X=835 X=834
.BYTE 5*20+5 ;X=837 X=836
.BYTE 0*20+0 ;X=839 X=838
.BYTE 5*20+0 ;X=841 X=840
.BYTE 0*20+5 ;X=843 X=842
.BYTE 0*20+0 ;X=845 X=844
.BYTE 0*20+0 ;X=847 X=846
.BYTE 5*20+0 ;X=849 X=848
.BYTE 5*20+5 ;X=851 X=850
.BYTE 5*20+5 ;X=853 X=852
.BYTE 5*20+0 ;X=855 X=854
.BYTE 5*20+5 ;X=857 X=856
.BYTE 5*20+5 ;X=859 X=858
.BYTE 5*20+5 ;X=861 X=860
.BYTE 5*20+5 ;X=863 X=862
.BYTE 5*20+5 ;X=865 X=864
.BYTE 5*20+5 ;X=867 X=866
.BYTE 5*20+0 ;X=869 X=868
.BYTE 5*20+0 ;X=871 X=870
.BYTE 5*20+5 ;X=873 X=872
.BYTE 0*20+5 ;X=875 X=874
.BYTE 5*20+5 ;X=877 X=876
.BYTE 5*20+5 ;X=879 X=878
.BYTE 5*20+5 ;X=881 X=880
.BYTE 5*20+5 ;X=883 X=882
.BYTE 0*20+0 ;X=885 X=884
.BYTE 5*20+5 ;X=887 X=886
.BYTE 5*20+5 ;X=889 X=888
.BYTE 5*20+5 ;X=891 X=890
.BYTE 5*20+5 ;X=893 X=892
.BYTE 5*20+5 ;X=895 X=894
.BYTE 5*20+5 ;X=897 X=896
.BYTE 5*20+5 ;X=899 X=898
.BYTE 5*20+5 ;X=901 X=900
.BYTE 5*20+5 ;X=903 X=902
.BYTE 5*20+5 ;X=905 X=904
.BYTE 5*20+5 ;X=907 X=906
.BYTE 5*20+5 ;X=909 X=908
.BYTE 0*20+5 ;X=911 X=910
.EVEN ;MAKE SURE TO BRING TO BRING BYTES BACK.
.PAGE
;
; SINE AND COSINE TABLES FROM 0 TO 359 DEGREES.
;
SINTAB: 000000 ; 0 DEGREES.
000436 ; 1 DEGREES.
001074 ; 2 DEGREES.
001531 ; 3 DEGREES.
002167 ; 4 DEGREES.
002624 ; 5 DEGREES.
003261 ; 6 DEGREES.
003715 ; 7 DEGREES.
004350 ; 8 DEGREES.
005003 ; 9 DEGREES.
005435 ; 10 DEGREES.
006066 ; 11 DEGREES.
006516 ; 12 DEGREES.
007146 ; 13 DEGREES.
007574 ; 14 DEGREES.
010220 ; 15 DEGREES.
010644 ; 16 DEGREES.
011266 ; 17 DEGREES.
011707 ; 18 DEGREES.
012326 ; 19 DEGREES.
012744 ; 20 DEGREES.
013360 ; 21 DEGREES.
013772 ; 22 DEGREES.
014402 ; 23 DEGREES.
015010 ; 24 DEGREES.
015414 ; 25 DEGREES.
016016 ; 26 DEGREES.
016416 ; 27 DEGREES.
017014 ; 28 DEGREES.
017407 ; 29 DEGREES.
020000 ; 30 DEGREES.
020366 ; 31 DEGREES.
020752 ; 32 DEGREES.
021333 ; 33 DEGREES.
021712 ; 34 DEGREES.
022265 ; 35 DEGREES.
022636 ; 36 DEGREES.
023204 ; 37 DEGREES.
023547 ; 38 DEGREES.
024107 ; 39 DEGREES.
024443 ; 40 DEGREES.
024775 ; 41 DEGREES.
025323 ; 42 DEGREES.
025646 ; 43 DEGREES.
026165 ; 44 DEGREES.
026501 ; 45 DEGREES.
027012 ; 46 DEGREES.
027316 ; 47 DEGREES.
027620 ; 48 DEGREES.
030115 ; 49 DEGREES.
030407 ; 50 DEGREES.
030675 ; 51 DEGREES.
031157 ; 52 DEGREES.
031435 ; 53 DEGREES.
031707 ; 54 DEGREES.
032155 ; 55 DEGREES.
032417 ; 56 DEGREES.
032655 ; 57 DEGREES.
033106 ; 58 DEGREES.
033334 ; 59 DEGREES.
033555 ; 60 DEGREES.
033772 ; 61 DEGREES.
034202 ; 62 DEGREES.
034406 ; 63 DEGREES.
034606 ; 64 DEGREES.
035001 ; 65 DEGREES.
035170 ; 66 DEGREES.
035352 ; 67 DEGREES.
035527 ; 68 DEGREES.
035700 ; 69 DEGREES.
036044 ; 70 DEGREES.
036203 ; 71 DEGREES.
036336 ; 72 DEGREES.
036464 ; 73 DEGREES.
036605 ; 74 DEGREES.
036722 ; 75 DEGREES.
037031 ; 76 DEGREES.
037134 ; 77 DEGREES.
037232 ; 78 DEGREES.
037323 ; 79 DEGREES.
037407 ; 80 DEGREES.
037466 ; 81 DEGREES.
037541 ; 82 DEGREES.
037606 ; 83 DEGREES.
037646 ; 84 DEGREES.
037702 ; 85 DEGREES.
037730 ; 86 DEGREES.
037752 ; 87 DEGREES.
037766 ; 88 DEGREES.
037776 ; 89 DEGREES.
COSTAB: 040000 ; 90 DEGREES.
037776 ; 91 DEGREES.
037766 ; 92 DEGREES.
037752 ; 93 DEGREES.
037730 ; 94 DEGREES.
037702 ; 95 DEGREES.
037646 ; 96 DEGREES.
037606 ; 97 DEGREES.
037541 ; 98 DEGREES.
037466 ; 99 DEGREES.
037407 ; 100 DEGREES.
037323 ; 101 DEGREES.
037232 ; 102 DEGREES.
037134 ; 103 DEGREES.
037031 ; 104 DEGREES.
036722 ; 105 DEGREES.
036605 ; 106 DEGREES.
036464 ; 107 DEGREES.
036336 ; 108 DEGREES.
036203 ; 109 DEGREES.
036044 ; 110 DEGREES.
035700 ; 111 DEGREES.
035527 ; 112 DEGREES.
035352 ; 113 DEGREES.
035170 ; 114 DEGREES.
035001 ; 115 DEGREES.
034606 ; 116 DEGREES.
034406 ; 117 DEGREES.
034202 ; 118 DEGREES.
033772 ; 119 DEGREES.
033555 ; 120 DEGREES.
033334 ; 121 DEGREES.
033106 ; 122 DEGREES.
032655 ; 123 DEGREES.
032417 ; 124 DEGREES.
032155 ; 125 DEGREES.
031707 ; 126 DEGREES.
031435 ; 127 DEGREES.
031157 ; 128 DEGREES.
030675 ; 129 DEGREES.
030407 ; 130 DEGREES.
030115 ; 131 DEGREES.
027620 ; 132 DEGREES.
027316 ; 133 DEGREES.
027012 ; 134 DEGREES.
026501 ; 135 DEGREES.
026165 ; 136 DEGREES.
025646 ; 137 DEGREES.
025323 ; 138 DEGREES.
024775 ; 139 DEGREES.
024443 ; 140 DEGREES.
024107 ; 141 DEGREES.
023547 ; 142 DEGREES.
023204 ; 143 DEGREES.
022636 ; 144 DEGREES.
022265 ; 145 DEGREES.
021712 ; 146 DEGREES.
021333 ; 147 DEGREES.
020752 ; 148 DEGREES.
020366 ; 149 DEGREES.
020000 ; 150 DEGREES.
017407 ; 151 DEGREES.
017014 ; 152 DEGREES.
016416 ; 153 DEGREES.
016016 ; 154 DEGREES.
015414 ; 155 DEGREES.
015010 ; 156 DEGREES.
014402 ; 157 DEGREES.
013772 ; 158 DEGREES.
013360 ; 159 DEGREES.
012744 ; 160 DEGREES.
012326 ; 161 DEGREES.
011707 ; 162 DEGREES.
011266 ; 163 DEGREES.
010644 ; 164 DEGREES.
010220 ; 165 DEGREES.
007574 ; 166 DEGREES.
007146 ; 167 DEGREES.
006516 ; 168 DEGREES.
006066 ; 169 DEGREES.
005435 ; 170 DEGREES.
005003 ; 171 DEGREES.
004350 ; 172 DEGREES.
003715 ; 173 DEGREES.
003261 ; 174 DEGREES.
002624 ; 175 DEGREES.
002167 ; 176 DEGREES.
001531 ; 177 DEGREES.
001074 ; 178 DEGREES.
000436 ; 179 DEGREES.
000000 ; 180 DEGREES.
177344 ; 181 DEGREES.
176706 ; 182 DEGREES.
176247 ; 183 DEGREES.
175613 ; 184 DEGREES.
175156 ; 185 DEGREES.
174521 ; 186 DEGREES.
174065 ; 187 DEGREES.
173430 ; 188 DEGREES.
172775 ; 189 DEGREES.
172343 ; 190 DEGREES.
171712 ; 191 DEGREES.
171262 ; 192 DEGREES.
170634 ; 193 DEGREES.
170206 ; 194 DEGREES.
167560 ; 195 DEGREES.
167134 ; 196 DEGREES.
166512 ; 197 DEGREES.
166073 ; 198 DEGREES.
165452 ; 199 DEGREES.
165036 ; 200 DEGREES.
164421 ; 201 DEGREES.
164010 ; 202 DEGREES.
163400 ; 203 DEGREES.
162772 ; 204 DEGREES.
162364 ; 205 DEGREES.
161762 ; 206 DEGREES.
161362 ; 207 DEGREES.
160766 ; 208 DEGREES.
160371 ; 209 DEGREES.
160002 ; 210 DEGREES.
157412 ; 211 DEGREES.
157026 ; 212 DEGREES.
156445 ; 213 DEGREES.
156070 ; 214 DEGREES.
155513 ; 215 DEGREES.
155142 ; 216 DEGREES.
154574 ; 217 DEGREES.
154233 ; 218 DEGREES.
153673 ; 219 DEGREES.
153335 ; 220 DEGREES.
153005 ; 221 DEGREES.
152455 ; 222 DEGREES.
152134 ; 223 DEGREES.
151613 ; 224 DEGREES.
151277 ; 225 DEGREES.
150770 ; 226 DEGREES.
150462 ; 227 DEGREES.
150162 ; 228 DEGREES.
147663 ; 229 DEGREES.
147373 ; 230 DEGREES.
147105 ; 231 DEGREES.
146623 ; 232 DEGREES.
146345 ; 233 DEGREES.
146073 ; 234 DEGREES.
145625 ; 235 DEGREES.
145363 ; 236 DEGREES.
145125 ; 237 DEGREES.
144672 ; 238 DEGREES.
144446 ; 239 DEGREES.
144225 ; 240 DEGREES.
144010 ; 241 DEGREES.
143576 ; 242 DEGREES.
143372 ; 243 DEGREES.
143174 ; 244 DEGREES.
143001 ; 245 DEGREES.
142612 ; 246 DEGREES.
142430 ; 247 DEGREES.
142253 ; 248 DEGREES.
142102 ; 249 DEGREES.
141736 ; 250 DEGREES.
141575 ; 251 DEGREES.
141442 ; 252 DEGREES.
141314 ; 253 DEGREES.
141173 ; 254 DEGREES.
141060 ; 255 DEGREES.
140747 ; 256 DEGREES.
140644 ; 257 DEGREES.
140550 ; 258 DEGREES.
140457 ; 259 DEGREES.
140371 ; 260 DEGREES.
140312 ; 261 DEGREES.
140241 ; 262 DEGREES.
140174 ; 263 DEGREES.
140132 ; 264 DEGREES.
140100 ; 265 DEGREES.
140050 ; 266 DEGREES.
140030 ; 267 DEGREES.
140012 ; 268 DEGREES.
140004 ; 269 DEGREES.
140000 ; 270 DEGREES.
140004 ; 271 DEGREES.
140012 ; 272 DEGREES.
140030 ; 273 DEGREES.
140050 ; 274 DEGREES.
140100 ; 275 DEGREES.
140132 ; 276 DEGREES.
140174 ; 277 DEGREES.
140241 ; 278 DEGREES.
140312 ; 279 DEGREES.
140371 ; 280 DEGREES.
140457 ; 281 DEGREES.
140550 ; 282 DEGREES.
140644 ; 283 DEGREES.
140747 ; 284 DEGREES.
141060 ; 285 DEGREES.
141173 ; 286 DEGREES.
141314 ; 287 DEGREES.
141442 ; 288 DEGREES.
141575 ; 289 DEGREES.
141736 ; 290 DEGREES.
142102 ; 291 DEGREES.
142253 ; 292 DEGREES.
142430 ; 293 DEGREES.
142612 ; 294 DEGREES.
143001 ; 295 DEGREES.
143174 ; 296 DEGREES.
143372 ; 297 DEGREES.
143576 ; 298 DEGREES.
144010 ; 299 DEGREES.
144225 ; 300 DEGREES.
144446 ; 301 DEGREES.
144672 ; 302 DEGREES.
145125 ; 303 DEGREES.
145363 ; 304 DEGREES.
145625 ; 305 DEGREES.
146073 ; 306 DEGREES.
146345 ; 307 DEGREES.
146623 ; 308 DEGREES.
147105 ; 309 DEGREES.
147373 ; 310 DEGREES.
147663 ; 311 DEGREES.
150162 ; 312 DEGREES.
150463 ; 313 DEGREES.
150770 ; 314 DEGREES.
151277 ; 315 DEGREES.
151613 ; 316 DEGREES.
152134 ; 317 DEGREES.
152455 ; 318 DEGREES.
153005 ; 319 DEGREES.
153335 ; 320 DEGREES.
153673 ; 321 DEGREES.
154233 ; 322 DEGREES.
154574 ; 323 DEGREES.
155142 ; 324 DEGREES.
155513 ; 325 DEGREES.
156070 ; 326 DEGREES.
156445 ; 327 DEGREES.
157026 ; 328 DEGREES.
157412 ; 329 DEGREES.
160000 ; 330 DEGREES.
160371 ; 331 DEGREES.
160766 ; 332 DEGREES.
161362 ; 333 DEGREES.
161762 ; 334 DEGREES.
162364 ; 335 DEGREES.
162772 ; 336 DEGREES.
163400 ; 337 DEGREES.
164010 ; 338 DEGREES.
164422 ; 339 DEGREES.
165036 ; 340 DEGREES.
165452 ; 341 DEGREES.
166073 ; 342 DEGREES.
166512 ; 343 DEGREES.
167134 ; 344 DEGREES.
167560 ; 345 DEGREES.
170206 ; 346 DEGREES.
170634 ; 347 DEGREES.
171262 ; 348 DEGREES.
171712 ; 349 DEGREES.
172343 ; 350 DEGREES.
172775 ; 351 DEGREES.
173430 ; 352 DEGREES.
174065 ; 353 DEGREES.
174521 ; 354 DEGREES.
175156 ; 355 DEGREES.
175613 ; 356 DEGREES.
176247 ; 357 DEGREES.
176706 ; 358 DEGREES.
177344 ; 359 DEGREES.
.PAGE
;
; THIS IS THE SHIP BUFFER FOR STORING THE SPACE SHIP.
; THERE ARE TWO OF THEM TO AVOID PROBLEMS.
;
SHIPLC: .WORD SHIPB1 ;BUFFER POINTERS.
.WORD SHIPB2
DRWSHP: .WORD 114120 ;BASIC SHIP START.
.WORD 170200
SHOWX: .WORD 0
SHOWY: .WORD 0
.WORD DISTOP ;THE SUBROUTINE CALL NOW.
SHIPDP: .WORD 0
.WORD DISTOP
.WORD 0
;
; ROCKET FLAME CONTROL, AND BUFFER.
;
ONFIRE: .WORD DISTOP
FSUBC: .WORD 0
.WORD DISTOP
.WORD 0
;
; MESSAGE DISPLAY CONTROL.
;
INFO: .WORD DISTOP
SYSMES: .WORD 0
.WORD DISTOP
.WORD 0
;
; THIS SECTION CONTROLS THE DUST WHEN THE
; ROCKET FLAME HITS THE SURFACE OF THE MOON.
;
DRWDST: .WORD DISTOP
DUSTON: .WORD 0
.WORD DISTOP
.WORD 0
;
; THIS SECTION DRAWS AND STORES THE MOON, WHEN NECESSARY.
;
DRWLUN: .WORD DISTOP
MOONGO: .WORD 0 ;OVERLAYED BY POINTER
.WORD DISTOP
.WORD 0
SHIPB1:
.=.+84.
SHIPB2:
.=.+84.
FLAMIN:
.=.+66.
;
; THIS SECTION IS WHERE THE EXPLOSION GOES (ALSO THE
; DUST FROM THE ROCKET ENGINE).
;
EXLIST:
.=.+2602. ;IT'S BIG (241*2*2+1) BUT NOT USED
;JUST TO GIVE US A SIZE FEELING.
.=.+100. ;ALLOCATE 100 WORDS FOR THE STACK
STACK: .WORD ;DO NOT PUT ANYTHING IN IT
;JUST DEFINE IT.
.PAGE
;
; THIS IS THE MESSAGE THAT IS DISPLAYED WHEN
; STARTING UP THE FIRST TIME
;
STARTM: .WORD 116720
.WORD 0.
.WORD 650.
.WORD 170240
.WORD 100000
.ASCII ' R T - 1 1 L U N A R L A N D E R'
.BYTE 15,12
.ASCII ' -----------------------------'
.BYTE 15,12,12,12
.ASCII ' ALL INTERNAL NAVIGATIONAL SYSTEMS HAVE DIED ON YOU'
.BYTE 15,12
.ASCII / IT LOOKS AS THOUGH YOU'RE GOING TO HAVE TO/
.BYTE 15,12
.ASCII ' LAND THIS THING ON YOUR OWN'
.BYTE 15,12,12
.ASCII ' ***** GOOD BYE, GOOD LUCK, AND SORRY *****'
.BYTE 0
.=.-1
.EVEN
.WORD DISJMP
.WORD STARTM
.END START ;RESTART ADDRESS.