H �   Ship Wrecked II: Jupiter 3                 by Dominic Ford 1997
 :
 �2:�=&2C00
(, �1,1,2,1,1,255,1,1,126,0,0,-126,126,126
2- �2,1,-1,10,-1,5,1,5,126,0,0,-126,126,126
<- �3,4,-8,-8,-8,1,1,1,126,0,0,-126,126,126
F �23,1,0;0;0;0;:�ass
P* �c=4�15:�19,c,0,0,0,0:�:�19,3,4,0,0,0
Z *LOAD ShipBM1
d' �select:choice=(?number)+1:*FX15,0
n# � choice � �Dx@,�tB@,�tL@,�tV@
x *RUN ShipPRG
� �"ShipIN1"
� �"ShipCHT"
� �"ShipEND"
�
 ��ass
� osword=&FFF1:osbyte=&FFF4
� �pass=0 � 2 � 2
� P%=&2C00:[OPT pass
�m .start SEI:LDA&204:STAvector:LDA&205:STAvector+1:LDA#(irq � 256):STA&204:LDA#(irq � 256):STA&205:CLI:RTS
�< .stop SEI:LDAvector:STA&204:LDAvector+1:STA&205:CLI:RTS
�: .irq LDA&7E:CMP&7F:BEQhelpw:INC&7F:.helpw JMP(vector)
� .stars INCb:LDAb:CMP#12:BCCnowrap:LDA#0:STAb:.nowrap CLC:ADC#4:STAcolour:LDA#7:STAcolour+1:LDA#12:LDX#(colour � 256):LDY#(colour � 256):JSRosword
�t LDAc:STAcolour:LDA#0:STAcolour+1:LDA#12:LDX#(colour � 256):LDY#(colour � 256):JSRosword:LDAb:CLC:ADC#4:STAc:RTS
�� .select JSRstart:LDA#0:STAnumber:STAb:STAc:.mainloop LDA&7F:CLC:ADC#8:STA&7E:LDX#&D6:JSRkeybyte:BCSdown:LDX#&C6:JSRkeybyte:BCSup:LDX#&CF:JSRkeybyte:BCSs1:LDX#&CE:JSRkeybyte:BCSs2

Y LDX#&EE:JSRkeybyte:BCSs3:LDX#&ED:JSRkeybyte:BCSs4:LDX#&B6:JSRkeybyte:BCCwait:JMPstop

t .s1 LDA#0:STAnumber:JMPstop:.s2 LDA#1:STAnumber:JMPstop:.s3 LDA#2:STAnumber:JMPstop:.s4 LDA#3:STAnumber:JMPstop

C .wait JSRstars:.waitloop LDA&7E:CMP&7F:BNEwaitloop:JMPmainloop

"X .up LDAnumber:BEQmainloop:JSRdraw:DECnumber:JSRdraw:LDA&7F:CLC:ADC#8:STA&7E:JMPwait

,t .down LDAnumber:CMP#3:BEQmainlpt:JSRdraw:INCnumber:JSRdraw:LDA&7F:CLC:ADC#8:STA&7E:JMPwait:.mainlpt JMPmainloop

6� .draw LDA#&20:STA&70:LDA#&71:STA&71:LDXnumber:.drawloop CPX#0:BEQcontinue:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:DEX:JMPdrawloop

@� .continue LDA#&5F:STA&72:LDA#2:STA&73:LDY#0:.cntloop LDA(&70),Y:�#3:STA(&70),Y:LDA&70:CLC:ADC#1:STA&70:LDA&71:ADC#0:STA&71:LDA&72:SEC:SBC#1:STA&72:LDA&73:SBC#0:STA&73:CMP#&FF:BNEcntloop:RTS

J' .keybyte LDA#&81:LDY#&FF:JMPosbyte

TF .b EQUB0:.c EQUB0:.vector EQUW0:.colour EQUD0:EQUB0:.number EQUB0

^	]:�:�
�

00000000  0d 00 0a 48 20 f4 20 20  20 53 68 69 70 20 57 72  |...H .   Ship Wr|
00000010  65 63 6b 65 64 20 49 49  3a 20 4a 75 70 69 74 65  |ecked II: Jupite|
00000020  72 20 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |r 3             |
00000030  20 20 20 20 62 79 20 44  6f 6d 69 6e 69 63 20 46  |    by Dominic F|
00000040  6f 72 64 20 31 39 39 37  0d 00 14 06 20 3a 0d 00  |ord 1997.... :..|
00000050  1e 0f 20 eb 32 3a d3 3d  26 32 43 30 30 0d 00 28  |.. .2:.=&2C00..(|
00000060  2c 20 e2 31 2c 31 2c 32  2c 31 2c 31 2c 32 35 35  |, .1,1,2,1,1,255|
00000070  2c 31 2c 31 2c 31 32 36  2c 30 2c 30 2c 2d 31 32  |,1,1,126,0,0,-12|
00000080  36 2c 31 32 36 2c 31 32  36 0d 00 32 2d 20 e2 32  |6,126,126..2- .2|
00000090  2c 31 2c 2d 31 2c 31 30  2c 2d 31 2c 35 2c 31 2c  |,1,-1,10,-1,5,1,|
000000a0  35 2c 31 32 36 2c 30 2c  30 2c 2d 31 32 36 2c 31  |5,126,0,0,-126,1|
000000b0  32 36 2c 31 32 36 0d 00  3c 2d 20 e2 33 2c 34 2c  |26,126..<- .3,4,|
000000c0  2d 38 2c 2d 38 2c 2d 38  2c 31 2c 31 2c 31 2c 31  |-8,-8,-8,1,1,1,1|
000000d0  32 36 2c 30 2c 30 2c 2d  31 32 36 2c 31 32 36 2c  |26,0,0,-126,126,|
000000e0  31 32 36 0d 00 46 18 20  ef 32 33 2c 31 2c 30 3b  |126..F. .23,1,0;|
000000f0  30 3b 30 3b 30 3b 3a f2  61 73 73 0d 00 50 2a 20  |0;0;0;:.ass..P* |
00000100  e3 63 3d 34 b8 31 35 3a  ef 31 39 2c 63 2c 30 2c  |.c=4.15:.19,c,0,|
00000110  30 2c 30 2c 30 3a ed 3a  ef 31 39 2c 33 2c 34 2c  |0,0,0:.:.19,3,4,|
00000120  30 2c 30 2c 30 0d 00 5a  12 20 2a 4c 4f 41 44 20  |0,0,0..Z. *LOAD |
00000130  53 68 69 70 42 4d 31 0d  00 64 27 20 d6 73 65 6c  |ShipBM1..d' .sel|
00000140  65 63 74 3a 63 68 6f 69  63 65 3d 28 3f 6e 75 6d  |ect:choice=(?num|
00000150  62 65 72 29 2b 31 3a 2a  46 58 31 35 2c 30 0d 00  |ber)+1:*FX15,0..|
00000160  6e 23 20 ee 20 63 68 6f  69 63 65 20 e5 20 8d 44  |n# . choice . .D|
00000170  78 40 2c 8d 74 42 40 2c  8d 74 4c 40 2c 8d 74 56  |x@,.tB@,.tL@,.tV|
00000180  40 0d 00 78 11 20 2a 52  55 4e 20 53 68 69 70 50  |@..x. *RUN ShipP|
00000190  52 47 0d 00 82 0f 20 d7  22 53 68 69 70 49 4e 31  |RG.... ."ShipIN1|
000001a0  22 0d 00 8c 0f 20 d7 22  53 68 69 70 43 48 54 22  |".... ."ShipCHT"|
000001b0  0d 00 96 0f 20 d7 22 53  68 69 70 45 4e 44 22 0d  |.... ."ShipEND".|
000001c0  00 a0 0a 20 dd f2 61 73  73 0d 00 aa 1e 20 6f 73  |... ..ass.... os|
000001d0  77 6f 72 64 3d 26 46 46  46 31 3a 6f 73 62 79 74  |word=&FFF1:osbyt|
000001e0  65 3d 26 46 46 46 34 0d  00 b4 14 20 e3 70 61 73  |e=&FFF4.... .pas|
000001f0  73 3d 30 20 b8 20 32 20  88 20 32 0d 00 be 17 20  |s=0 . 2 . 2.... |
00000200  50 25 3d 26 32 43 30 30  3a 5b 4f 50 54 20 70 61  |P%=&2C00:[OPT pa|
00000210  73 73 0d 00 c8 6d 20 2e  73 74 61 72 74 20 53 45  |ss...m .start SE|
00000220  49 3a 4c 44 41 26 32 30  34 3a 53 54 41 76 65 63  |I:LDA&204:STAvec|
00000230  74 6f 72 3a 4c 44 41 26  32 30 35 3a 53 54 41 76  |tor:LDA&205:STAv|
00000240  65 63 74 6f 72 2b 31 3a  4c 44 41 23 28 69 72 71  |ector+1:LDA#(irq|
00000250  20 83 20 32 35 36 29 3a  53 54 41 26 32 30 34 3a  | . 256):STA&204:|
00000260  4c 44 41 23 28 69 72 71  20 81 20 32 35 36 29 3a  |LDA#(irq . 256):|
00000270  53 54 41 26 32 30 35 3a  43 4c 49 3a 52 54 53 0d  |STA&205:CLI:RTS.|
00000280  00 d2 3c 20 2e 73 74 6f  70 20 53 45 49 3a 4c 44  |..< .stop SEI:LD|
00000290  41 76 65 63 74 6f 72 3a  53 54 41 26 32 30 34 3a  |Avector:STA&204:|
000002a0  4c 44 41 76 65 63 74 6f  72 2b 31 3a 53 54 41 26  |LDAvector+1:STA&|
000002b0  32 30 35 3a 43 4c 49 3a  52 54 53 0d 00 dc 3a 20  |205:CLI:RTS...: |
000002c0  2e 69 72 71 20 4c 44 41  26 37 45 3a 43 4d 50 26  |.irq LDA&7E:CMP&|
000002d0  37 46 3a 42 45 51 68 65  6c 70 77 3a 49 4e 43 26  |7F:BEQhelpw:INC&|
000002e0  37 46 3a 2e 68 65 6c 70  77 20 4a 4d 50 28 76 65  |7F:.helpw JMP(ve|
000002f0  63 74 6f 72 29 0d 00 e6  96 20 2e 73 74 61 72 73  |ctor).... .stars|
00000300  20 49 4e 43 62 3a 4c 44  41 62 3a 43 4d 50 23 31  | INCb:LDAb:CMP#1|
00000310  32 3a 42 43 43 6e 6f 77  72 61 70 3a 4c 44 41 23  |2:BCCnowrap:LDA#|
00000320  30 3a 53 54 41 62 3a 2e  6e 6f 77 72 61 70 20 43  |0:STAb:.nowrap C|
00000330  4c 43 3a 41 44 43 23 34  3a 53 54 41 63 6f 6c 6f  |LC:ADC#4:STAcolo|
00000340  75 72 3a 4c 44 41 23 37  3a 53 54 41 63 6f 6c 6f  |ur:LDA#7:STAcolo|
00000350  75 72 2b 31 3a 4c 44 41  23 31 32 3a 4c 44 58 23  |ur+1:LDA#12:LDX#|
00000360  28 63 6f 6c 6f 75 72 20  83 20 32 35 36 29 3a 4c  |(colour . 256):L|
00000370  44 59 23 28 63 6f 6c 6f  75 72 20 81 20 32 35 36  |DY#(colour . 256|
00000380  29 3a 4a 53 52 6f 73 77  6f 72 64 0d 00 f0 74 20  |):JSRosword...t |
00000390  4c 44 41 63 3a 53 54 41  63 6f 6c 6f 75 72 3a 4c  |LDAc:STAcolour:L|
000003a0  44 41 23 30 3a 53 54 41  63 6f 6c 6f 75 72 2b 31  |DA#0:STAcolour+1|
000003b0  3a 4c 44 41 23 31 32 3a  4c 44 58 23 28 63 6f 6c  |:LDA#12:LDX#(col|
000003c0  6f 75 72 20 83 20 32 35  36 29 3a 4c 44 59 23 28  |our . 256):LDY#(|
000003d0  63 6f 6c 6f 75 72 20 81  20 32 35 36 29 3a 4a 53  |colour . 256):JS|
000003e0  52 6f 73 77 6f 72 64 3a  4c 44 41 62 3a 43 4c 43  |Rosword:LDAb:CLC|
000003f0  3a 41 44 43 23 34 3a 53  54 41 63 3a 52 54 53 0d  |:ADC#4:STAc:RTS.|
00000400  00 fa b7 20 2e 73 65 6c  65 63 74 20 4a 53 52 73  |... .select JSRs|
00000410  74 61 72 74 3a 4c 44 41  23 30 3a 53 54 41 6e 75  |tart:LDA#0:STAnu|
00000420  6d 62 65 72 3a 53 54 41  62 3a 53 54 41 63 3a 2e  |mber:STAb:STAc:.|
00000430  6d 61 69 6e 6c 6f 6f 70  20 4c 44 41 26 37 46 3a  |mainloop LDA&7F:|
00000440  43 4c 43 3a 41 44 43 23  38 3a 53 54 41 26 37 45  |CLC:ADC#8:STA&7E|
00000450  3a 4c 44 58 23 26 44 36  3a 4a 53 52 6b 65 79 62  |:LDX#&D6:JSRkeyb|
00000460  79 74 65 3a 42 43 53 64  6f 77 6e 3a 4c 44 58 23  |yte:BCSdown:LDX#|
00000470  26 43 36 3a 4a 53 52 6b  65 79 62 79 74 65 3a 42  |&C6:JSRkeybyte:B|
00000480  43 53 75 70 3a 4c 44 58  23 26 43 46 3a 4a 53 52  |CSup:LDX#&CF:JSR|
00000490  6b 65 79 62 79 74 65 3a  42 43 53 73 31 3a 4c 44  |keybyte:BCSs1:LD|
000004a0  58 23 26 43 45 3a 4a 53  52 6b 65 79 62 79 74 65  |X#&CE:JSRkeybyte|
000004b0  3a 42 43 53 73 32 0d 01  04 59 20 4c 44 58 23 26  |:BCSs2...Y LDX#&|
000004c0  45 45 3a 4a 53 52 6b 65  79 62 79 74 65 3a 42 43  |EE:JSRkeybyte:BC|
000004d0  53 73 33 3a 4c 44 58 23  26 45 44 3a 4a 53 52 6b  |Ss3:LDX#&ED:JSRk|
000004e0  65 79 62 79 74 65 3a 42  43 53 73 34 3a 4c 44 58  |eybyte:BCSs4:LDX|
000004f0  23 26 42 36 3a 4a 53 52  6b 65 79 62 79 74 65 3a  |#&B6:JSRkeybyte:|
00000500  42 43 43 77 61 69 74 3a  4a 4d 50 73 74 6f 70 0d  |BCCwait:JMPstop.|
00000510  01 0e 74 20 2e 73 31 20  4c 44 41 23 30 3a 53 54  |..t .s1 LDA#0:ST|
00000520  41 6e 75 6d 62 65 72 3a  4a 4d 50 73 74 6f 70 3a  |Anumber:JMPstop:|
00000530  2e 73 32 20 4c 44 41 23  31 3a 53 54 41 6e 75 6d  |.s2 LDA#1:STAnum|
00000540  62 65 72 3a 4a 4d 50 73  74 6f 70 3a 2e 73 33 20  |ber:JMPstop:.s3 |
00000550  4c 44 41 23 32 3a 53 54  41 6e 75 6d 62 65 72 3a  |LDA#2:STAnumber:|
00000560  4a 4d 50 73 74 6f 70 3a  2e 73 34 20 4c 44 41 23  |JMPstop:.s4 LDA#|
00000570  33 3a 53 54 41 6e 75 6d  62 65 72 3a 4a 4d 50 73  |3:STAnumber:JMPs|
00000580  74 6f 70 0d 01 18 43 20  2e 77 61 69 74 20 4a 53  |top...C .wait JS|
00000590  52 73 74 61 72 73 3a 2e  77 61 69 74 6c 6f 6f 70  |Rstars:.waitloop|
000005a0  20 4c 44 41 26 37 45 3a  43 4d 50 26 37 46 3a 42  | LDA&7E:CMP&7F:B|
000005b0  4e 45 77 61 69 74 6c 6f  6f 70 3a 4a 4d 50 6d 61  |NEwaitloop:JMPma|
000005c0  69 6e 6c 6f 6f 70 0d 01  22 58 20 2e 75 70 20 4c  |inloop.."X .up L|
000005d0  44 41 6e 75 6d 62 65 72  3a 42 45 51 6d 61 69 6e  |DAnumber:BEQmain|
000005e0  6c 6f 6f 70 3a 4a 53 52  64 72 61 77 3a 44 45 43  |loop:JSRdraw:DEC|
000005f0  6e 75 6d 62 65 72 3a 4a  53 52 64 72 61 77 3a 4c  |number:JSRdraw:L|
00000600  44 41 26 37 46 3a 43 4c  43 3a 41 44 43 23 38 3a  |DA&7F:CLC:ADC#8:|
00000610  53 54 41 26 37 45 3a 4a  4d 50 77 61 69 74 0d 01  |STA&7E:JMPwait..|
00000620  2c 74 20 2e 64 6f 77 6e  20 4c 44 41 6e 75 6d 62  |,t .down LDAnumb|
00000630  65 72 3a 43 4d 50 23 33  3a 42 45 51 6d 61 69 6e  |er:CMP#3:BEQmain|
00000640  6c 70 74 3a 4a 53 52 64  72 61 77 3a 49 4e 43 6e  |lpt:JSRdraw:INCn|
00000650  75 6d 62 65 72 3a 4a 53  52 64 72 61 77 3a 4c 44  |umber:JSRdraw:LD|
00000660  41 26 37 46 3a 43 4c 43  3a 41 44 43 23 38 3a 53  |A&7F:CLC:ADC#8:S|
00000670  54 41 26 37 45 3a 4a 4d  50 77 61 69 74 3a 2e 6d  |TA&7E:JMPwait:.m|
00000680  61 69 6e 6c 70 74 20 4a  4d 50 6d 61 69 6e 6c 6f  |ainlpt JMPmainlo|
00000690  6f 70 0d 01 36 8c 20 2e  64 72 61 77 20 4c 44 41  |op..6. .draw LDA|
000006a0  23 26 32 30 3a 53 54 41  26 37 30 3a 4c 44 41 23  |#&20:STA&70:LDA#|
000006b0  26 37 31 3a 53 54 41 26  37 31 3a 4c 44 58 6e 75  |&71:STA&71:LDXnu|
000006c0  6d 62 65 72 3a 2e 64 72  61 77 6c 6f 6f 70 20 43  |mber:.drawloop C|
000006d0  50 58 23 30 3a 42 45 51  63 6f 6e 74 69 6e 75 65  |PX#0:BEQcontinue|
000006e0  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
000006f0  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
00000700  31 3a 41 44 43 23 32 3a  53 54 41 26 37 31 3a 44  |1:ADC#2:STA&71:D|
00000710  45 58 3a 4a 4d 50 64 72  61 77 6c 6f 6f 70 0d 01  |EX:JMPdrawloop..|
00000720  40 c2 20 2e 63 6f 6e 74  69 6e 75 65 20 4c 44 41  |@. .continue LDA|
00000730  23 26 35 46 3a 53 54 41  26 37 32 3a 4c 44 41 23  |#&5F:STA&72:LDA#|
00000740  32 3a 53 54 41 26 37 33  3a 4c 44 59 23 30 3a 2e  |2:STA&73:LDY#0:.|
00000750  63 6e 74 6c 6f 6f 70 20  4c 44 41 28 26 37 30 29  |cntloop LDA(&70)|
00000760  2c 59 3a 82 23 33 3a 53  54 41 28 26 37 30 29 2c  |,Y:.#3:STA(&70),|
00000770  59 3a 4c 44 41 26 37 30  3a 43 4c 43 3a 41 44 43  |Y:LDA&70:CLC:ADC|
00000780  23 31 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |#1:STA&70:LDA&71|
00000790  3a 41 44 43 23 30 3a 53  54 41 26 37 31 3a 4c 44  |:ADC#0:STA&71:LD|
000007a0  41 26 37 32 3a 53 45 43  3a 53 42 43 23 31 3a 53  |A&72:SEC:SBC#1:S|
000007b0  54 41 26 37 32 3a 4c 44  41 26 37 33 3a 53 42 43  |TA&72:LDA&73:SBC|
000007c0  23 30 3a 53 54 41 26 37  33 3a 43 4d 50 23 26 46  |#0:STA&73:CMP#&F|
000007d0  46 3a 42 4e 45 63 6e 74  6c 6f 6f 70 3a 52 54 53  |F:BNEcntloop:RTS|
000007e0  0d 01 4a 27 20 2e 6b 65  79 62 79 74 65 20 4c 44  |..J' .keybyte LD|
000007f0  41 23 26 38 31 3a 4c 44  59 23 26 46 46 3a 4a 4d  |A#&81:LDY#&FF:JM|
00000800  50 6f 73 62 79 74 65 0d  01 54 46 20 2e 62 20 45  |Posbyte..TF .b E|
00000810  51 55 42 30 3a 2e 63 20  45 51 55 42 30 3a 2e 76  |QUB0:.c EQUB0:.v|
00000820  65 63 74 6f 72 20 45 51  55 57 30 3a 2e 63 6f 6c  |ector EQUW0:.col|
00000830  6f 75 72 20 45 51 55 44  30 3a 45 51 55 42 30 3a  |our EQUD0:EQUB0:|
00000840  2e 6e 75 6d 62 65 72 20  45 51 55 42 30 0d 01 5e  |.number EQUB0..^|
00000850  09 5d 3a ed 3a e1 0d ff                           |.]:.:...|
00000858