00000000: 00 10 02 00 3B 20 41 20 53 48 4F 52 54 2C 50 52 |....; A SHORT,PR|
00000010: 49 4D 49 54 49 56 45 20 47 41 4D 45 00 3B 20 57 |IMITIVE GAME.; W|
00000020: 52 49 54 54 45 4E 20 42 59 20 50 45 54 45 52 20 |RITTEN BY PETER |
00000030: 4B 41 4C 44 49 20 31 39 38 39 2E 30 39 2E 32 39 |KALDI 1989.09.29|
00000040: 00 00 02 00 2A 24 36 30 30 30 00 02 00 50 52 4E |....*$6000...PRN|
00000050: 54 3D 24 46 46 44 32 00 52 4E 44 3D 35 34 32 37 |T=$FFD2.RND=5427|
00000060: 32 2B 32 37 20 3B 20 41 20 33 2E 20 48 41 4E 47 |2+27 ; A 3. HANG|
00000070: 47 45 4E 45 52 41 54 4F 52 20 41 44 53 52 2D 45 |GENERATOR ADSR-E|
00000080: 00 50 4C 41 43 45 3D 31 30 32 34 00 53 54 41 47 |.PLACE=1024.STAG|
00000090: 45 3D 31 30 32 34 2B 34 30 30 00 00 02 00 53 54 |E=1024+400....ST|
000000A0: 41 52 54 2F 00 CA 53 52 20 49 4E 49 54 00 4D 4F |ART/..SR INIT.MO|
000000B0: 52 45 2F 00 CA 53 52 20 47 45 54 4B 45 59 00 C2 |RE/..SR GETKEY..|
000000C0: 43 43 20 45 58 41 4D 00 CA 53 52 20 4B 49 4C 4C |CC EXAM..SR KILL|
000000D0: 43 48 41 52 00 45 58 41 4D 2F 00 CA 53 52 20 45 |CHAR.EXAM/..SR E|
000000E0: 58 41 4D 49 4E 45 00 C2 45 51 20 4D 4F 52 45 00 |XAMINE..EQ MORE.|
000000F0: 45 4E 44 2F 00 CA 53 52 20 52 45 49 4E 49 54 00 |END/..SR REINIT.|
00000100: D2 54 53 00 02 00 49 4E 49 54 2F 00 CC 44 41 20 |.TS...INIT/..DA |
00000110: 23 31 35 20 20 20 3B 20 53 43 52 45 45 4E 20 43 |#15 ; SCREEN C|
00000120: 4F 4C 4F 52 53 00 D3 54 41 20 35 33 32 38 30 00 |OLORS..TA 53280.|
00000130: CC 44 41 20 23 31 32 00 D3 54 41 20 35 33 32 38 |.DA #12..TA 5328|
00000140: 31 00 CC 44 41 20 23 35 00 CA 53 52 20 50 52 4E |1..DA #5..SR PRN|
00000150: 54 00 CC 44 41 20 23 31 34 37 00 CA 53 52 20 50 |T..DA #147..SR P|
00000160: 52 4E 54 00 00 D3 45 49 00 CC 44 41 20 23 3C 49 |RNT...EI..DA #<I|
00000170: 52 51 20 3B 20 53 45 54 20 49 52 51 20 56 45 43 |RQ ; SET IRQ VEC|
00000180: 54 4F 52 00 D3 54 41 20 24 33 31 34 00 CC 44 41 |TOR..TA $314..DA|
00000190: 20 23 3E 49 52 51 00 D3 54 41 20 24 33 31 35 00 | #>IRQ..TA $315.|
000001A0: 00 CC 44 41 20 23 32 30 00 D3 54 41 20 53 50 45 |..DA #20..TA SPE|
000001B0: 45 44 00 D3 54 41 20 43 4F 55 4E 54 45 52 31 00 |ED..TA COUNTER1.|
000001C0: 00 CC 44 41 20 23 32 30 00 D3 54 41 20 54 45 4D |..DA #20..TA TEM|
000001D0: 50 4F 00 D3 54 41 20 43 4F 55 4E 54 45 52 32 00 |PO..TA COUNTER2.|
000001E0: 00 00 CC 44 41 20 23 31 32 39 20 20 20 20 20 3B |...DA #129 ;|
000001F0: 20 49 4E 49 54 20 52 4E 44 20 47 45 4E 2E 00 D3 | INIT RND GEN...|
00000200: 54 41 20 35 34 32 37 32 2B 31 38 00 CC 44 41 20 |TA 54272+18..DA |
00000210: 23 32 35 35 00 D3 54 41 20 35 34 32 37 32 2B 31 |#255..TA 54272+1|
00000220: 35 00 00 CC 44 58 20 23 24 46 46 00 43 4F 50 59 |5...DX #$FF.COPY|
00000230: 2F 00 C9 4E 58 20 20 20 20 20 20 20 20 20 20 3B |/..NX ;|
00000240: 20 57 52 49 54 45 20 4F 55 54 20 54 45 58 54 00 | WRITE OUT TEXT.|
00000250: CC 44 41 20 54 45 58 54 2C 58 00 C2 45 51 20 4F |.DA TEXT,X..EQ O|
00000260: 55 54 00 D3 54 41 20 50 4C 41 43 45 2C 58 00 C2 |UT..TA PLACE,X..|
00000270: 4E 45 20 43 4F 50 59 00 4F 55 54 2F 00 C3 4C 49 |NE COPY.OUT/..LI|
00000280: 00 D2 54 53 00 02 00 47 45 54 4B 45 59 2F 00 CC |..TS...GETKEY/..|
00000290: 44 41 20 31 39 38 00 C2 45 51 20 4E 4F 4B 45 59 |DA 198..EQ NOKEY|
000002A0: 00 CA 53 52 20 24 45 35 42 34 20 20 20 20 3B 20 |..SR $E5B4 ; |
000002B0: 41 1F 50 55 46 46 45 52 00 C1 4E 44 20 23 24 33 |A.PUFFER..ND #$3|
000002C0: 46 00 D3 54 41 20 43 48 41 52 00 D3 54 41 20 35 |F..TA CHAR..TA 5|
000002D0: 33 32 38 30 20 20 20 20 3B 20 42 4F 52 44 45 52 |3280 ; BORDER|
000002E0: 00 00 D3 45 43 00 D2 54 53 00 4E 4F 4B 45 59 2F |...EC..TS.NOKEY/|
000002F0: 00 C3 4C 43 00 D2 54 53 00 02 00 4B 49 4C 4C 43 |..LC..TS...KILLC|
00000300: 48 41 52 2F 00 D3 45 49 00 CC 44 58 20 23 33 39 |HAR/..EI..DX #39|
00000310: 00 CC 44 59 20 23 33 39 00 4B 49 4C 4C 4D 4F 52 |..DY #39.KILLMOR|
00000320: 45 2F 00 CC 44 41 20 53 54 41 47 45 2C 58 00 D3 |E/..DA STAGE,X..|
00000330: 54 41 20 53 54 41 47 45 2C 59 00 C3 4D 50 20 43 |TA STAGE,Y..MP C|
00000340: 48 41 52 00 C2 45 51 20 53 4B 49 50 00 C4 45 59 |HAR..EQ SKIP..EY|
00000350: 00 53 4B 49 50 2F 00 C4 45 58 00 C3 50 58 20 23 |.SKIP/..EX..PX #|
00000360: 30 00 C2 4E 45 20 4B 49 4C 4C 4D 4F 52 45 00 00 |0..NE KILLMORE..|
00000370: C3 4C 49 00 D2 54 53 00 02 00 45 58 41 4D 49 4E |.LI..TS...EXAMIN|
00000380: 45 2F 00 CC 44 41 20 53 54 41 47 45 00 C3 4D 50 |E/..DA STAGE..MP|
00000390: 20 23 33 32 00 00 D2 54 53 00 02 00 52 45 49 4E | #32...TS...REIN|
000003A0: 49 54 2F 00 D3 45 49 00 CC 44 41 20 23 24 33 31 |IT/..EI..DA #$31|
000003B0: 00 D3 54 41 20 24 33 31 34 00 CC 44 41 20 23 24 |..TA $314..DA #$|
000003C0: 45 41 00 D3 54 41 20 24 33 31 35 00 00 C3 4C 49 |EA..TA $315...LI|
000003D0: 00 D2 54 53 00 02 00 49 52 51 2F 00 C4 45 43 20 |..TS...IRQ/..EC |
000003E0: 43 4F 55 4E 54 45 52 31 00 C2 4E 45 20 4E 4F 4D |COUNTER1..NE NOM|
000003F0: 4F 56 45 00 00 CC 44 41 20 53 50 45 45 44 00 D3 |OVE...DA SPEED..|
00000400: 54 41 20 43 4F 55 4E 54 45 52 31 00 00 C4 45 43 |TA COUNTER1...EC|
00000410: 20 43 4F 55 4E 54 45 52 32 00 C2 4E 45 20 47 4F | COUNTER2..NE GO|
00000420: 4F 4E 00 00 CC 44 41 20 54 45 4D 50 4F 00 D3 54 |ON...DA TEMPO..T|
00000430: 41 20 43 4F 55 4E 54 45 52 32 00 00 CC 44 41 20 |A COUNTER2...DA |
00000440: 53 50 45 45 44 00 C3 4D 50 20 23 31 00 C2 45 51 |SPEED..MP #1..EQ|
00000450: 20 47 4F 4F 4E 00 C4 45 43 20 53 50 45 45 44 00 | GOON..EC SPEED.|
00000460: CA 53 52 20 44 49 53 50 4C 41 59 00 00 47 4F 4F |.SR DISPLAY..GOO|
00000470: 4E 2F 00 CC 44 58 20 23 31 00 4D 4F 56 45 2F 00 |N/..DX #1.MOVE/.|
00000480: CC 44 41 20 53 54 41 47 45 2C 58 00 D3 54 41 20 |.DA STAGE,X..TA |
00000490: 53 54 41 47 45 2D 31 2C 58 00 C9 4E 58 00 C3 50 |STAGE-1,X..NX..P|
000004A0: 58 20 23 34 30 00 C2 4E 45 20 4D 4F 56 45 00 00 |X #40..NE MOVE..|
000004B0: CC 44 41 20 52 4E 44 00 C1 4E 44 20 23 24 31 46 |.DA RND..ND #$1F|
000004C0: 00 D3 54 41 20 53 54 41 47 45 2B 33 39 00 4E 4F |..TA STAGE+39.NO|
000004D0: 4D 4F 56 45 2F 00 CA 4D 50 20 24 45 41 33 31 00 |MOVE/..MP $EA31.|
000004E0: 02 00 44 49 53 50 4C 41 59 2F 00 CC 44 41 20 50 |..DISPLAY/..DA P|
000004F0: 4C 41 43 45 2B 39 00 C3 4D 50 20 23 22 30 22 00 |LACE+9..MP #"0".|
00000500: C2 45 51 20 4E 45 58 54 00 C4 45 43 20 50 4C 41 |.EQ NEXT..EC PLA|
00000510: 43 45 2B 39 00 D2 54 53 00 4E 45 58 54 2F 00 CC |CE+9..TS.NEXT/..|
00000520: 44 41 20 23 22 39 22 00 D3 54 41 20 50 4C 41 43 |DA #"9"..TA PLAC|
00000530: 45 2B 39 00 C4 45 43 20 50 4C 41 43 45 2B 38 00 |E+9..EC PLACE+8.|
00000540: 00 D2 54 53 00 02 00 53 50 45 45 44 2F 2E 42 20 |..TS...SPEED/.B |
00000550: 30 00 54 45 4D 50 4F 2F 2E 42 20 30 00 43 4F 55 |0.TEMPO/.B 0.COU|
00000560: 4E 54 45 52 31 2F 2E 42 20 30 00 43 4F 55 4E 54 |NTER1/.B 0.COUNT|
00000570: 45 52 32 2F 2E 42 20 30 00 43 48 41 52 2F 2E 42 |ER2/.B 0.CHAR/.B|
00000580: 20 30 00 00 54 45 58 54 2F 2E 54 20 22 53 50 45 | 0..TEXT/.T "SPE|
00000590: 45 44 3A 20 30 32 30 3B 20 50 52 45 53 53 20 4B |ED: 020; PRESS K|
000005A0: 45 59 53 21 22 3A 2E 42 20 30 00 00 5D 00 01 |EYS!":.B 0..].. |
....; A SHORT,PRIMITIVE GAME.; WRITTEN B
Y PETER KALDI 1989.09.29....*$6000...PRN
T=$FFD2.RND=54272+27 ; A 3. HANGGENERATO
R ADSR-E.PLACE=1024.STAGE=1024+400....ST
ART/.JSR INIT.MORE/.JSR GETKEY.BCC EXAM.
JSR KILLCHAR.EXAM/.JSR EXAMINE.BEQ MORE.
END/.JSR REINIT.RTS...INIT/.LDA #15 ;
SCREEN COLORS.STA 53280.LDA #12.STA 5328
1.LDA #5.JSR PRNT.LDA #147.JSR PRNT..SEI
.LDA #<IRQ ; SET IRQ VECTOR.STA $314.LDA
#>IRQ.STA $315..LDA #20.STA SPEED.STA C
OUNTER1..LDA #20.STA TEMPO.STA COUNTER2.
..LDA #129 ; INIT RND GEN..STA 54272
+18.LDA #255.STA 54272+15..LDX #$FF.COPY
/.INX ; WRITE OUT TEXT.LDA TEXT
,X.BEQ OUT.STA PLACE,X.BNE COPY.OUT/.CLI
.RTS...GETKEY/.LDA 198.BEQ NOKEY.JSR $E5
B4 ; A.PUFFER.AND #$3F.STA CHAR.STA 5
3280 ; BORDER..SEC.RTS.NOKEY/.CLC.RTS
...KILLCHAR/.SEI.LDX #39.LDY #39.KILLMOR
E/.LDA STAGE,X.STA STAGE,Y.CMP CHAR.BEQ
SKIP.DEY.SKIP/.DEX.CPX #0.BNE KILLMORE..
CLI.RTS...EXAMINE/.LDA STAGE.CMP #32..RT
S...REINIT/.SEI.LDA #$31.STA $314.LDA #$
EA.STA $315..CLI.RTS...IRQ/.DEC COUNTER1
.BNE NOMOVE..LDA SPEED.STA COUNTER1..DEC
COUNTER2.BNE GOON..LDA TEMPO.STA COUNTE
R2..LDA SPEED.CMP #1.BEQ GOON.DEC SPEED.
JSR DISPLAY..GOON/.LDX #1.MOVE/.LDA STAG
E,X.STA STAGE-1,X.INX.CPX #40.BNE MOVE..
LDA RND.AND #$1F.STA STAGE+39.NOMOVE/.JM
P $EA31...DISPLAY/.LDA PLACE+9.CMP #"0".
BEQ NEXT.DEC PLACE+9.RTS.NEXT/.LDA #"9".
STA PLACE+9.DEC PLACE+8..RTS...SPEED/.B
0.TEMPO/.B 0.COUNTER1/.B 0.COUNTER2/.B 0
.CHAR/.B 0..TEXT/.T "SPEED: 020; PRESS K
EYS!":.B 0..]..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL