þþ>CdX; ------------------------nX; CRASH DIVE! (TM)xX; by Brian Moriarty‚X; ANALOG Computing #18ŒX; (C)1984 ANALOG Computing–X; ------------------------ X;ªX; MACRO DEFINITIONS´X; -----------------¾X;ÈX; POSITION MACROÒX; --------------Ü X; SYNTAX:æX; POSITION xpos,yposðX;ú‰POSITION 3'3 AŽPOS parametersA" ,%>6 ‡POSIT13@J$>T%>^ …POSIThr|†X;X; PRINT MACROšX; -----------¤ X; SYNTAX:®+X; PRINT ¸X;Â†PRINT Ì Ö A‘PRINTE parametersAàê Q>4ô %>5þ †EPRINTX;&X; TEXT MACRO0X; ----------: X; SYNTAX:DX; TEXT <"string">NX;X …TEXT b3l ATEXT parametersAv€=ƒEOLŠ”žX;¨X; SYSTEM EQUATES²X; ---------------¼X;ÆX; ZERO-PAGEÐX; ---------Ú…BOOT? ;; OS boot flagä†POKMSK;; interrupt maskî†RTCLOK;; system clockø†LMARGNR;; left margin†RMARGNS;; right margin†ROWCRST;; cursor row†COLCRSU;; cursor column †RAMTOPj;; # pages of RAM*$ƒFR0Ô;; floating point register4ƒCIXò;; FP index register>†INBUFFó;; FP pointerHX;RX; PAGES 2-3\X; ---------f†VDSLST;; DLI vectorp!†SRTIMR+;; key repeat timerz†SDMCTL/;; DMA control„†SDLSTL0;; D-list addrŽ†COLDSTD;; coldstart flag˜†GPRIORo;; PMG priority¢†PCOLR0À;; player 0 color¬†PCOLR1Á;; player 1 color¶†PCOLR2Â;; player 2 colorÀ†PCOLR3Ã;; player 3 colorÊ"†COLOR0Ä;; playfield 0 colorÔ"†COLOR1Å;; playfield 1 colorÞ"†COLOR2Æ;; playfield 2 colorè!†COLOR4È;; background colorò†CRSINHð;; cursor inhibitü‚CHü;; keypress register…ICCOMB;; CIO command†ICBADRD;; CIO addr†ICBLENH;; CIO length$†ICAUX1J;; AUX byte 1.†ICAUX2K;; AUX byte 28X;BX; CTIA/GTIALX; ---------V†HPOSP0Ð;; h-pos player 0`†HPOSP1Ð;; " " 1j†HPOSP2Ð;; " " 2t†HPOSP3Ð;; " " 3~†SIZEP0Ð;; width player 0ˆ†SIZEP1 Ð;; " " 1’†SIZEP2 Ð;; " " 2œ†SIZEP3Ð;; " " 3¦"†GRAFP0 Ð;; graphics player 0°"†GRAFP1Ð;; " " 1º"†GRAFP2Ð;; " " 2Ä"†GRAFP3Ð;; " " 3Î!†COLPF2Ð;; color register 2Ø†CONSOLÐ;; console keysâX;ìX; POKEYöX; -----#…AUDF1Ò;; frequency channel 1 "…AUDC1Ò;; vol/dist channel 1†AUDCTLÒ;; audio control#†RANDOM Ò;; random # generator( …IRQENÒ;; interrupt enable2X;<X; ANTICFX; -----P†DMACTLÔ;; DMA controlZ"…WSYNC Ô;; wait for horz syncd…NMIENÔ;; NMI enablenX;xX; FLOATING POINT‚X; --------------Œ„FASCæØ;; FP-to-ATASCII–ƒIFPªÙ;; integer-to-FP „ZFR0DÚ;; clear FR0ªX;´X; OS ROUTINES¾X; -----------È„CIOVVä;; CIO entryÒ#†SETVBV\ä;; set v-blank vectorÜ†SYSVBV_ä;; OS VBI entryæ†SIOINVeä;; SIO initðX;úX; INTERNAL EQUATESX; ----------------X; X; MEMORY ALLOCATION" X; -----------------,"†INLINE;; text input buffer6ˆGAMEDATAÀ:;; working area@)†EDLIST <;; start of E: display listJ$†SCREEN@<;; start of screen RAMTX;^X; Game play databasehX;r ˆGAMEDATA|X;†…EVENT ;; event #…PLACE ;; locationš„SLAT ;; ship's latitude¤ „SLON ;; ship's longitude® „MLAT ;; missile latitude¸!„MLON ;; missile longitudeÂ…DEPTH ;; sub's depthÌ$…GREEN ;; green button on/offÖ ƒRED ;; red button on/offà&†SWITCH ;; arming switch on/offê!†BREATH ;; holding breath?ô…HATCH ;; hatch opened?þ&„UNIT ;; unit dropped in rm 17?‡CRASHED ;; sub crashed?†BULLET ;; bullet used?„SUIT ;; suit searched?&$‡CAPTAIN ;; captain searched?0'…BHOLD ;; breath holding counter:'‡TRAITOR ;; traitor wait counterD%ˆHOLDINGS ;; current inventoryN'‡VECTORS „;; current vector tableX'‡OBJECTS „;; current object tableb,†NTRANS &;; current translation matrixlX;vX; MISCELLANEOUS€X; -------------Š ƒEOL›”…SPACE žX;¨X; ZERO-PAGE²X; ---------¼€ÆX;ÐX; Cursor controlÚX;ä$†CURSEN ;; cursor on/off flagî&†CSHAPE ;; current cursor shapeø#…BLINK ;; cursor blink timerX;X; Keyboard handlerX; "…CLICK ;; key click counter*&†LENGTH ;; line length register4X;>X; DLI controlHX;R!†DLICOL ;; DLI color index\X;fX; Screen clearingpX;z'‡CLPOINT ;; screen clear pointer„$†CINDEX ;; window clear indexŽX;˜X; Parser¢X;¬…PBUFF ;; parsing buffer¶„PDEX ;; scanning indexÀ$†LBREAK ;; pos. of space charÊ…VCODE ;; verb code #Ô)…UCODE ;; untranslated noun code #Þ'…NCODE ;; translated noun code #è'†DOVECT ;; verb execution vectorò'‡CURVECT ;; current room vectorsü'‡CUROBJS ;; current room objects $ˆNEWPLACE ;; next room code # („VPNT ;; addr of current v-buffer („OPNT ;; addr of current o-buffer$ .†INVPOS ;; position in inventory buffer. *‡ROOMPOS ;; position in room buffer8 '„ANY? ;; flag for empty room/invB &‡LATSHOW ;; latitude to displayL '‡LONSHOW ;; longitude to displayV …VLAST ;; last verb` …ULAST ;; last nounj X;t X; Event counter~ X;ˆ …EBUFF ;; printing buffer’ X;œ X; INITIALIZATION¦ X; --------------° X;º €Ä X;Î …ENTRYØ $>â &†COLDSTì 2;; = 1ö &…BOOT? †SIOINV;; for sound init !…TITLE X; !X; CUSTOM DISPLAY LIST( !X; -------------------2 …DLIST< p=p=p=p;; blank 32 linesF %B=4†SCREEN=5†SCREEN;; text w/LMSP =;; blank 4 w/DLIZ ;; text (location)d =;; blank 4 w/DLIn ;; text (exits)x =;; blank 4 w/DLI‚ &=====;; text (v-items)Œ =;; blank 4 w/DLI– =;; text (events) =;; blank 4 w/DLIª =;; text (response)´ €=€=;; blank 4 w/DLIs¾ &=====;; text (i-items)È p;; blank 8Ò A=4…DLIST=5…DLIST;; JVBÜ X;æ X; TITLE SCREENð X; ------------ú …TITLE$>ÿB ‰NEWSCREEN;; reset E:"‰POSITION =,#†PRINT ‚T0;; "Brian Moriarty's"6‰POSITION =@†PRINT ‚T1;; "CRASH DIVE"J‰POSITION = T+†PRINT ‚T2;; "(C)1984 ANALOG Computing"^X;h‡STARTOPr‰POSITION =|1†PRINT ‚T3;; "Press ÓÔÁÒÔ to play new game"†‰POSITION =5†PRINT ‚T4;; "Press ÏÐÔÉÏÎ to restore old game"šX;¤Q>®P†EDLIST;; modify¸P†EDLIST ;; display listÂX;ÌQ>"ÖP†SDMCTL;; restore screenà „BEEPêX;ôX; Wait for selectionþX;„POLLQ†CONSOLR>;; scan until a&F„POLL;; key is pressed0 …LETGO:$†CONSOLD(>N H…LETGOXR>;; START pressed?b!F‡NEWGAME;; yes, do a new gamelR>;; OPTION pressed?v$F‡RESTORE;; yes, restore old game€‡BADPOLLŠ „BOOP;; else”!„POLL;; resume scanžX;¨X; Start new game²X;¼‡NEWGAMEÆ ˆINITDATAÐ!ŠPLAYSCREENÚX;äX; Restore a previous gameîX;ø‡RESTORE ‰POSITION = -†PRINT ‚T5;; "Restore from Disk or Tape?" „BEEP „DORT* †GETKEY4 R> D;; disk?> F‡GETDISKH R> C;; tape?R F†GETAPE\ ‡DORTERRf †CLOSE1p „BOOPz !„DORT„ X;Ž X; Get game from disk˜ X;¢ ‡GETDISK¬ †DPOINT¶ !ˆREADOPENÀ X;Ê X; Get game from tapeÔ X;Þ †GETAPEè †TPOINTò X;ü ˆREADOPENQ>;; OPEN commandP…ICCOM9Q>;; READ$P†ICAUX19.Q>8P†ICAUX29B „CIOVLG‡DORTERRVX;` X; Get game data thru IOCB #1jX;t‡GETDATA~$>ˆQ>4ˆGAMEDATA’P†ICBADR9œQ>5ˆGAMEDATA¦P†ICBADR9°Q>HºP†ICBLEN9ÄQ>ÎP†ICBLEN9ØQ>;; GET RECORDâP…ICCOM9ì „CIOVöG‡DORTERR †CLOSE1 X;X; PLAYSCREEN INITX; ---------------(ŠPLAYSCREEN2 ‰NEWSCREEN;; reset E:<X;F X; Enable custom display listPX;ZQ>4…DLISTdP†SDLSTLnQ>5…DLISTxP†SDLSTL‚X;ŒX; Print title & labels–X; +†PRINT ‚T6;; "CRASH DIVE! (TM) EVENT #"ªQ>;; set right margin´P†RMARGN;; for wraparound¾!†PRINT ‚T7;; "LOCATION/EXITS"È †PRINT ‚T8;; "VISIBLE ITEMS"Ò ƒBARÜ ƒBARæ ƒBARð ƒBAR;; 4 blank barsú ‡SAYWHAT;; "WHAT")†PRINT ƒT11;; "HAPPENS/YOUR RESPONSE" ‡SAYWHAT;; "WHAT"$†PRINT ƒT12;; "YOU ARE CARRYING"" ƒBAR, ƒBAR;; more blank bars6Q>'@P†RMARGN;; resetJX;TQ>Ä;; green^P†PCOLR0;; cursorhX;rX; Setup P/M borders & mask|X;†Q>0P†HPOSP1;; position leftš Q>Ê;; and¤P†HPOSP2;; right borders® Q>@;; and¸P†HPOSP3;; title coverÂ$>ÿÌ&†GRAFP1;; set upÖ&†GRAFP2;; side borders andà&†GRAFP3;; title maskê 2;; = 0ô&†SIZEP0;; set cursor widthþ 2;; = 1!&†GPRIOR;; set player priorityQ>P†SIZEP1;; set border&P†SIZEP2;; and mask0P†SIZEP3;; widths:X;DQ>ð;; initNP†CSHAPE;; cursor shapeX Q>;; andbP…BLINK;; blink timerlX;vQ> €P†LMARGN;; init left marginŠX;”%>4†IMMVBI;; set VBI vector,ž$>5†IMMVBI;; specifying¨Q>;; immediate-mode² †SETVBV¼X;Æ Q>4ƒDLIÐP†VDSLST;; tell OS whereÚQ>5ƒDLI;; we put ourä$P†VDSLST;; DLI service routineî!Q>À;; set bits 6 & 7 of NMIENø$P…NMIEN;; to enable DLIs and VBIsX; Q…PLACE!‡REENTRY X;*X; EVENT GENERATOR4X; --------------->X;H ‰NEXTEVENTR$>ÿ;; empty stack\B;; just in case!f †SHOWEV;; show event #p#…EVENT;; updatezH…RADIO;; event„#…EVENT;; counterŽX;˜X; Handle room 0¢X;¬ …RADIO¶ Q…PLACEÀ H…ENEMYÊQ> ;; got suit?Ô †OWNIT?Þ F…ENEMYè ‰NEWSCREENò‰POSITION =ü,†PRINT ƒT79;; "A blast of radioactivity" !…KILLSX;X; Check for enemy takeover$X;. …ENEMY8 Q…EVENTBR> L H…LUNGSV Q…EVENT` H…LUNGSj Q…DEPTHt H…LUNGS~ ‰NEWSCREENˆ‰POSITION =’.†PRINT ƒT67;; "Enemy captures the sub and"œ !…KILLS¦X;°X; Limit breath-holdingºX;Ä …LUNGSÎQ†BREATH;; holding it?ØF†POISON;; no - skip thisâ!"…BHOLD;; else decrement countìH†POISON;; continue if NZöQ>;; elseP†BREATH;; release hold X;X; Handle poison atmosphereX;( †POISON2Q…HATCH;; hatch opened?<F‡DOTRAIT;; not yetFQ>;; got theP †OWNIT?;; mask?Z F‡DOTRAIT;; yup - you're safedQ†BREATH;; holding breath?n(H‡DOTRAIT;; good thing, otherwise ...x ‰NEWSCREEN‚‰POSITION =Œ,†PRINT ƒT62;; "A cloud of poisonous gas"– !…KILLS X;ªX; Handle traitor´X;¾‡DOTRAITÈQ‡TRAITORÒI†NTRAITÜ ‰NEWSCREENæ‰POSITION =ð*†PRINT ƒT77;; "Traitor shoots you and"ú !…KILLS †NTRAITQ…PLACE;; is thisR>;; room 18?"H†TRESET;; we're safe,Q>;; is the traitor6 ‡INROOM?;; lurking?@H†TRESET;; thankfully notJ$"‡TRAITOR;; else reduce wait timeT!‡DOCRASH^ †TRESEThQ>rP‡TRAITOR|X;†%X; Change sub coords, handle crashX;š‡DOCRASH¤Q‡CRASHED®H†PARSER¸Q†RANDOMÂM>øÌ P„SLATÖQ†RANDOMàM>øê P„SLONôQƒREDþF†PARSER Q…DEPTH,-&O>0 P…DEPTH:I†PARSERDP‡CRASHEDN „CLWHX†PRINT ƒT45;; "BANG!"b$†PRINT ƒT78;; "Sub hits bottom!"lX;vX; INPUT PARSER€X; ------------ŠX;” †PARSERžQ>"¨P†SDMCTL²# ‡GETLINE;; put line into INLINE¼ „CLWHÆ$†LENGTHÐ(>;; if length is 1Ú"HˆDOCLAUSE;; check for legalityäX;î+X; Check for a legal single-char commandøX;Q†INLINE;; get the character$>;; init search index‡LEGSING R…SCOMS9*F†EXSING;; matched! go do it40;; otherwise>I‡LEGSING;; keep searchingH †SYNERR;; error, so printR#†PRINT ƒT14;; "Invalid command"\!ˆBADPARSE;; and try againfX;p#X; Execute a single-char commandzX;„ †EXSINGŽQ†SVECTL9;; fetch the lsb˜P†DOVECT;; and¢Q†SVECTH9;; msb of the¬P†DOVECT;; execution addr¶!@†DOVECT:;; and do it!ÀX;Ê"X; Find the 1st space characterÔX; in the user's responseÞX;èˆDOCLAUSEòQ>…SPACEü P…PBUFF P…PBUFF$> …FIND1$Q†INLINE9;; length is in X.R>…SPACE;; is it a space?8F„ENDV;; yes!B2;; else keep scanningL(†LENGTHV D…FIND1`‡BADVERBj' †SYNERR;; verb is no good, so printt'†PRINT ƒT15;; "Verb not recognized"~!ˆBADPARSE;; and try againˆX;’%X; Space char found, so record itsœ&X; position and move the first half¦+X; of the clause into the parsing buffer°X;º„ENDVÄ&†LBREAKÎ(>Ø D„TOVBâ$>ì„TOVBöQ†INLINE9P…PBUFF9 0 I„TOVBX;(X; Check for a legal verb2X;<$>;; init verb indexF &…VCODEP …VNEXTZ &„PDEXd %>;; init buffer char indexn …VSCANx$Q…PBUFF8;; get a char from buffer‚R…VERBS9;; match?Œ%H†NEXTRY;; nope - try another verb–2 3ª)>´!D…VSCAN;; if all 3 chars match¾E†LEGALV;; the verb is legalÈ †NEXTRYÒ #…VCODEÜ $„PDEXæ2ð2ú2(>‚NV;; out of verbs?!D…VNEXT;; nope - keep scanning%E‡BADVERB;; else verb is worthless"X;,+X; Verb is legal, so fetch its execution6X; vector@X;J †LEGALVTQ…VCODE;; fetch verb #^R>;; if it's GO,hH…MOVE2;; warn user:r'†PRINT ƒT29;; "Type N S E W U or D"| !ˆBADPARSE†X;!X; Move the second half of theš$X; clause into the parsing buffer¤X;® …MOVE2¸&$†LBREAK;; fetch pos. of space charÂ 2;; plus 1Ì %>;; init buffer char indexÖ …MOVENàQ†INLINE9;; fetch characterêP…PBUFF8;; stuff into bufferô2þ3)>;; until 3 charactersD…MOVEN;; have been movedX;&X; Check for a legal noun0X;:$>;; init noun indexD &…UCODEN …NNEXTX &„PDEXb %>;; init buffer char indexl …NSCANv$Q…PBUFF8;; get a char from buffer€R…NOUNS9;; match?Š&H‡NEXTRY2;; nope - try another noun”2ž3¨)>²!D…NSCAN;; if all 3 chars match¼E†LEGALN;; the noun is legalÆ‡NEXTRY2Ð #…UCODEÚ $„PDEXä2î2ø2(>‚NN;; out of nouns?!D…NNEXT;; nope - keep scanning" †SYNERR;; else noun is garbage *†PRINT ƒT16;; "Noun not in vocabulary"* !ˆBADPARSE4X;> X; Noun's code # is in UCODE;H X; verb's code # is in VCODE;R&X; verb execution addr is in DOVECT\X;f †LEGALNpQ…VCODE;; fetchz P…VLAST„T?;; execution addrŽ >;; and˜Q†VVECTS9;; save it¢P†DOVECT;; in DOVECT¬2¶Q†VVECTS9ÀP†DOVECTÊ Q…UCODEÔ P…ULASTÞR>';; was it BUTTON?èF†DOBUTTòR>(;; was it INVENTORY?üF†DOINVE>Q†NTRANS9;; translate noun P…NCODE$!@†DOVECT:;; execute verb.X;8X; Handle BUTTONBX;L †DOBUTTV(†PRINT ƒT30;; "Refer to it by color"` !ˆBADPARSEjX;tX; Handle INVENTORY~X;ˆ †DOINVE’(†PRINT ƒT31;; "Type I for inventory"œ !ˆBADPARSE¦X;°*X; EXECUTE SINGLE-CHAR COMMANDSº*X; ----------------------------ÄX;Î#X; COMMAND VECTOR TABLESØ#X; ---------------------â †SVECTLì!4ƒDOM=4ƒDOM=4ƒDOM=4ƒDOM=4ƒDOMö4ƒDOM=4ƒDOQ=4ƒDOX=4ƒDOA †SVECTH !5ƒDOM=5ƒDOM=5ƒDOM=5ƒDOM=5ƒDOM5ƒDOM=5ƒDOQ=5ƒDOX=5ƒDOAX;(X; HANDLE "Q" (QUIT)2X; -----------------<ƒDOQF‰POSITION =P(†PRINT ƒT19;; "Type Y to quit game:"Z‰POSITION "=d&†CURSEN;; enable cursorn „BEEPx †GETKEY‚R> YŒF†DOQUIT–$> …ERASEª !ˆBADPARSE´ †DOQUIT¾ !…TITLEÈX;ÒX; HANDLE MOVEMENTÜX; ---------------æX; ENTRY: Vector (0-5) in XðX;úƒDOM Q‡CURVECT9I†EXMOVE †CANTGO"*†PRINT ƒT18;; "You can't go that way.", !ˆBADPARSE6 †EXMOVE@-;; for safetyJ PˆNEWPLACE;; save destinationT ‡SAVELOC;; save status^ QˆNEWPLACE;; get destination,h!P…PLACE;; make it current, andr‡REENTRY|& †BPOINT;; point to the new buffers†X;X; Get new buffer datašX;¤%>® …RLOOP¸Q@„VPNT7Â P‡CURVECT8ÌQ@„OPNT7Ö P‡CUROBJS8à1ê I…RLOOPôX;þX; Refresh screen X; ‰SHOWPLACE $>& " …ERASE;; clear location window0 ‰POSITION =: $…PLACE;; get loc #D Q„RDLS9;; fetch lsb andN !%„RDHS9;; msb of text addr andX †EPRINT;; print itb X;l $ ‡SHOWVIS;; display visible itemsv $ ‰SHOWVECTS;; display new vectors€ ‡SHOWINV;; show inventoryŠ !…POKAY;; congratulations!” X;ž "X; POINT TO NEW BUFFERS¨ "X; --------------------² !X; ENTRY: Buffer # (0-23) in A¼ X;Æ †BPOINTÐ T?;; * 2Ú P…NCODE;; save itä T?;; * 4î ,ø O…NCODE;; *2 + *4 = *6!P…NCODE;; save it!,!O>4‡VECTORS ! P„VPNT*!Q>5‡VECTORS4!O>>!P„VPNTH!,R! Q…NCODE\!O>4‡OBJECTSf! P„OPNTp!Q>5‡OBJECTSz!O>„!P„OPNTŽ!:˜!X;¢!$X; HANDLE "X" (SAVE GAME)¬!$X; ----------------------¶!ƒDOXÀ!" ‡SAVELOC;; save current statusÊ! ‰NEWSCREENÔ!‰POSITION =Þ!2†PRINT ƒT82;; "Save game to Disk or Cassette?"è!Q>"ò!P†SDMCTLü! „BEEP"ˆSAVEPOLL" †GETKEY"R> D$" F…DSAVE."R> C8" F…CSAVEB"ˆBADWRITEL" †CLOSE1V" „BOOP`" !ˆSAVEPOLLj"X;t"X; Save to disk~"X;ˆ" …DSAVE’" †DPOINTœ" !…GSAVE¦"X;°"X; Save to cassetteº"X;Ä" …CSAVEÎ" †TPOINTØ"X;â" …GSAVEì"Q>ö"P…ICCOM9#Q> #P†ICAUX19#Q>#P†ICAUX29(# „CIOV2# GˆBADWRITE<#X;F#X; Write out game dataP#X;Z# …WRITEd#$>n#Q>4ˆGAMEDATAx#P†ICBADR9‚#Q>5ˆGAMEDATAŒ#P†ICBADR9–#Q>H #P†ICBLEN9ª#Q>´#P†ICBLEN9¾#Q>È#P…ICCOM9Ò# „CIOVÜ# GˆBADWRITEæ# †CLOSE1ð#!ŠPLAYSCREENú#X;$ X; HANDLE "A" (AGAIN)$ X; ------------------$ƒDOA"$Q…VLAST;; restore old verb,$ P…VCODE6$Q…ULAST;; and noun@$ P…UCODEJ$!†LEGALN;; and do it again!T$X;^$X; SAVE LOC STATUSh$X; ---------------r$‡SAVELOC|$ Q…PLACE†$ †BPOINT$%>š$ …SLOOP¤$ Q‡CURVECT8®$P@„VPNT7¸$ Q‡CUROBJS8Â$P@„OPNT7Ì$1Ö$ I…SLOOPà$:ê$X;