^9 LDA RAD2YH SEC SBC OCEAN+10 STA TEMP BPL ROSY LDA RAD2Y ASL LDA TEMP ROL EOR #$FF STA TN2 BEQ ROSY LDA #65 STA YVAL JSR RYCAL JSR RADEV RADOC LDA RAD1Y SEC SBC #$24 STA TEMP LDA RAD1YH SBC OCEAN+6 BPL ROSY LSR LDA TEMP ROR EOR #$FF LSR LSR LSR LSR STA TN2 BEQ ROSY LDA #$01 STA YVAL JSR RYCAL JSR RADEV ROSY LDA RAD2YH SEC SBC OCEAN+11 STA TEMP BMI ROEX LDA RAD2Y ASL LDA TEMP ROL STA TN2 BEQ ROEX LDA #$3F JSR ROSFIN ROTSY LDA RAD1YH SEC SBC OCEAN+7 BMI ROEX LSR LDA RAD1Y ROR LSR LSR LSR LSR STA TN2 BEQ ROEX LDA #$1F JSR ROSFIN ROEX RTS ROSFIN SEC SBC TN2 ASL ORA #$01 STA YVAL JSR RYCAL JSR RADEV RTS RADEV LDA YLO CLC ADC #31 STA YLO ^2 LDY #$08 LDA #$EA STA (YLO),Y DEY REVLPO LDA #$D5 STA (YLO),Y DEY BEQ INOSEX LDA #$AA STA (YLO),Y DEY JMP REVLPO INOSEX LDA #$AB STA (YLO),Y JSR DLIN LDY #$08 LDA #$60 STA (YLO),Y DEY LDA #$00 RODLPO STA (YLO),Y DEY BNE RODLPO LDA #$03 STA (YLO),Y JSR DLIN DEC TN2 BNE <2 RTS RADXO JSR >1 JSR <9 RTS ^1 LDA RAD2X SEC SBC #$18 STA TEMP LDA RAD2XH SBC OCEAN+8 BPL >9 ASL TEMP ROL ASL TEMP ROL EOR #$FF AND #$FE STA XVAL BEQ >9 LDA #65 STA YVAL JSR XMUS JSR RYCAL JSR LFTOCN LDA RAD1X SEC SBC #$18 STA TEMP LDA RAD1XH SBC OCEAN+4 BPL >9 LSR ROR TEMP LDA TEMP EOR #$FF LSR LSR LSR AND #$FE STA XVAL BEQ >9 LDA #$01 STA YVAL JSR XMUS JSR RYCAL JSR LFTOCN ^9 JMP >1 LFTOCN LDA YLO CLC ADC #31 STA YLO LDA #31 STA TN1 DEC XHI JSR FNDLNE JSR COMLNE LDY #$00 LDX XHI BEQ >6 BMI >4 JMP >5 ^6 LDA #$AB STA (YLO),Y INY LDA (YLO),Y AND TN2 ORA TEMP STA (YLO),Y DEY JSR DLIN LDA #$03 STA (YLO),Y INY LDA (YLO),Y AND TN2 STA (YLO),Y DEY JSR DLIN DEC TN1 BNE <6 RTS ^4 LDA (YLO),Y AND TN2 ORA TEMP ORA #$03 STA (YLO),Y JSR DLIN LDA (YLO),Y AND TN2 ORA #$03 STA (YLO),Y JSR DLIN DEC TN1 BNE <4 RTS ^5 LDY #$00 LDX XHI LDA #$AB STA (YLO),Y INY ^8 LDA #$D5 STA (YLO),Y INY DEX BEQ >7 LDA #$AA STA (YLO),Y INY DEX BNE <8 ^7 LDA (YLO),Y AND TN2 ORA TEMP STA (YLO),Y JSR DLIN LDY #$00 LDX XHI LDA #$03 STA (YLO),Y INY LDA #$00 ^7 STA (YLO),Y INY DEX BNE <7 LDA (YLO),Y AND TN2 STA (YLO),Y JSR DLIN DEC TN1 BNE <5 RTS ^1 LDA RAD2X STA TN2 LDA RAD2XH SEC SBC OCEAN+9 BMI >9 ASL TN2 ROL ASL TN2 ROL ORA #$01 STA XVAL BEQ >9 LDA #65 STA YVAL JSR XMUS JSR RYCAL JSR RGTOCN LDA RAD1X SEC SBC #$18 STA TEMP LDA RAD1XH SBC OCEAN+5 BMI >9 LSR LDA TEMP ROR LSR LSR LSR ORA #$01 STA XVAL BEQ >9 LDA #$01 STA YVAL JSR XMUS JSR RYCAL JSR RGTOCN ^9 RTS RGTOCN LDA YLO CLC ADC #31 STA YLO LDA #31 STA TN1 DEC XHI LDA #$06 SEC SBC XLO STA XLO JSR FNDLNE JSR REGLNE LDY #$08 LDX XHI BEQ >6 BMI >4 JMP >5 ^6 LDA #$EA STA (YLO),Y DEY LDA (YLO),Y AND TN2 ORA TEMP STA (YLO),Y INY JSR DLIN LDA #$60 STA (YLO),Y DEY LDA TN2 EOR #$FF AND (YLO),Y STA (YLO),Y INY JSR DLIN DEC TN1 BNE <6 RTS ^4 LDA (YLO),Y AND TN2 ORA TEMP ORA #$60 STA (YLO),Y JSR DLIN LDA TN2 EOR #$FF AND (YLO),Y ORA #$60 STA (YLO),Y JSR DLIN DEC TN1 BNE <4 RTS ^5 LDY #$08 LDX XHI LDA #$EA STA (YLO),Y DEY ^8 LDA #$D5 STA (YLO),Y DEY DEX BEQ >7 LDA #$AA STA (YLO),Y DEY DEX BNE <8 ^7 LDA (YLO),Y AND TN2 ORA TEMP STA (YLO),Y JSR DLIN LDY #$08 LDX XHI LDA #$60 STA (YLO),Y DEY LDA #$00 ^7 STA (YLO),Y DEY DEX BNE <7 LDA TN2 EOR #$FF AND (YLO),Y STA (YLO),Y JSR DLIN DEC TN1 BNE <5 RTS LOOKT HEX 0D000F00030100000000090B00070005 PLATAB HEX 6060000F0A0E020E0FC160080F0A0E020E0F BLOOD HEX 0000000000000000 BLOOD2 HEX 0000000000000000 INITAL HEX 2060000F0A0E020E0FE160080F0A0E020E0F00000000000000000000000000000000 H2SIZE HEX 0C0C0C060808060A HIGH HEX 001010503040 OCEAN HEX 708E748C708D748B7080747E0E0D120E FLOX HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 FLOY HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 RNGX HEX 00000000000000000000000000000000 RNGY HEX 00000000000000000000000000000000 RNGXH HEX 00000000000000000000000000000000 RNGYH HEX 00000000000000000000000000000000 RNGPSX HEX 777F7F867B837F777F8677837B837B86 HEX 7B7F838673777B7F7F737B7B867F8377 HEX 687F6883969696686C6C6F7F7B8E9292 HEX 8A8A7F837B7773737B8386868A73777F HEX 777F7F7F7F867F837B77837F7B867F7F HEX 6F7F686F968E7F8E7B8A837373838A7B HEX 967F737F8683866F7B8E837F6C836877 HEX 777B7E83867F7F7F7B83777786867B83 HEX 9683837B7B966868928E966C926F6C68 HEX 737B7F7B7B7777778A838A77866F837B HEX 6C777386736F8A96688A7B92838E738A HEX 7F83837F7F7F777B7B8A868686736F77 HEX 738383868383776F6F7B7F7F7F8A8A86 HEX 77777F8A8373867B7B837B737F8A8683 HEX 8A7396836873686F6F6C7F736F777F8A HEX 8373737B83868A8A7F868E778B83737F HEX 777B7B83867B837F777F7786868A8373 HEX 867773838E928A7B68968A6C6F7F8A8A HEX 7B7F7F7F7F7F7B837F837F7B837B837F HEX 777F837F7B7F777F77837B7B7783837B HEX 7B777B868A7F867B837B7B867B868686 HEX 7F6F68838686967377776F7B8E7F8A8E HEX 8683867B96966C68836C686C6F8A8E92 HEX 96776886687796866F8E738A8E6F738A HEX 7B7F77777F7786778383867B777B778A HEX 8A837F7B777F83867B73737F8A7B7F83 HEX 777B7B777F83837F7F7B777F83837B77 HEX 83837F7F837F7F83837B838383867B7B HEX 8E77837B838E8E6C6F776C7F778A6C83 HEX 7B7F7F7F7F7F837F7B7F8377867F7F86 HEX 7B737F8A86777F776F7F778E837F7B8A HEX 737F7B777B7F73837783868386777783 HEX 8E83687B7B96738A6F8A8E836F6F738E HEX 7F777783777B7B7F777F838383777B83 HEX 926F6F83776F6F77736F7B6F866F8A6F HEX 8E7F7B7F86866F6F83837F77777B7F8E HEX 777B7783838673737F7F777B73868683 HEX 737F7F7F7F868A77737B7B778386838A HEX 7F7B7F838E8A6F736F83868E737B778A HEX 777F737B8A8A8A73737F738A7F837F86 HEX 8383777B867B7F7377867B7F8386778A HEX 83837F7F7F7F837F838383837F7F7F83 HEX 966C68926C7B9283687B7F6C7F968392 RNGPSY HEX 7E827A7E7575877A75828287877E7E7A HEX 82827A7A7E7A7175717A75877E877E7E HEX 987A647E646898948F6468827E946D98 HEX 827A718B8B877E7A717175877E82758B HEX 64716D82756487946898688F94987A8B HEX 8F987E6D7E6D648F718271827A8B7A8B HEX 647A75828B878F757E6D7E987A947E7A HEX 757E7E7E7582878B71717A877A878B8B HEX 7A827A7A8282827A757E7E87877E757E HEX 7E7A7A827E757A7E827A87718B7E8B87 HEX 687A7182826D7E98647A7A94828F7E8B HEX 717E6D7A75828B876D686887828B8B71 HEX 827A6D6D7E8282878B8787757171757A HEX 877E8B827A82878B75757A7E7A7E7E8B HEX 7A7E7E7E646D988B717E758F7E7E8782 HEX 8B7A7E87757E7A7E8B757E8286827575 HEX 87757A75758B8B8F758B7A877A827A82 HEX 878787877E7E75877A827A7E82877E82 HEX 7E877E826D7A878B717E7582828B878B HEX 87878782827E827A7A827A7E7E7E7A87 HEX 7E8B82718B6D7A716D877A8775757E82 HEX 75827E7E87757E7E75877A7E7A877E82 HEX 8B7E877E7E8271878B8782757171717E HEX 6475648798879875718B6D6D718B8F8F HEX 757A757E878287877E8782877A827187 HEX 827E877E7E75717E71827A7A7A8B828B HEX 8B8271757E758B8F718F7A827A877E87 HEX 68717A828B6498948798758F6D7E647E HEX 877A7A87877A827A7A877E7A8287877E HEX 947A7E828B8768717E8F7E9468756D94 HEX 71717E827E877E7E75756D877A87828B HEX 7575757A82828271717A757E82877E87 HEX 987A6D827A8F8B71646D71826D8B8F8F HEX 757A7E8B75718B8F717E7A878287828F HEX 6D82756D6D6D94756D876D7A6D716D8B HEX 7E7A82827E827A7E717A717A7E8B8B82 HEX 8B757A7E7A87878B758B7E8B828B828B HEX 7E7E7A82757E7E7E82827A827A828282 HEX 7A7A7E7E7A7A7E7A7A7A7A7E7E7E7E7E HEX 7E7E7E827F82877A827A877A827E8782 HEX 877A757A7A87878F7A757582758B8B8F HEX 7E6D7E8F8771758271827A8B758B7A87 HEX 64649898687A9482687E7A9482947E68 PLPS HEX 7F7E7F7E7D7C7D7C7F7E7F7E7F7E7F7E7F7E7F7E7F7E7F7E HEX 7F7E7F7E7F8F7F8F7F7E7F7E83828382 HEX 7F7A7F827F8B838F837186757771867177757787 HEX 77757B7573718A71737A837A778B868B7375868B HEX 7F8B838B687596877F7A7F827B7E837E83718A7A HEX 7F7E7F7E7D777D897B717B8B777E8382777E867E HEX 866D8E757D7C7D7C777E867E7782837E73828371 HEX 7B7A8382777183717B7E837E777A867E7F757F8B HEX 737E8A7E7F6D838F68649498 LST ;END <2000? NLS DCM "BSAVE A/1800,A$1800,L$7FE" ICL "LINK"