00000000: 00 10 02 00 3B 20 44 52 41 57 49 4E 47 20 41 20 |....; DRAWING A |
00000010: 4C 41 42 49 52 59 4E 54 48 20 54 4F 20 54 48 45 |LABIRYNTH TO THE|
00000020: 20 53 43 52 45 45 4E 00 00 3B 20 57 52 49 54 54 | SCREEN..; WRITT|
00000030: 45 4E 20 42 59 20 50 45 54 45 52 20 4B 41 4C 44 |EN BY PETER KALD|
00000040: 49 20 49 4E 20 31 39 38 39 00 00 02 00 2A 24 36 |I IN 1989....*$6|
00000050: 30 30 30 00 02 00 4D 45 4D 4F 3D 24 35 30 30 30 |000...MEMO=$5000|
00000060: 20 20 20 3B 20 50 55 46 46 45 52 00 52 4E 44 3D | ; PUFFER.RND=|
00000070: 35 34 32 37 32 2B 32 37 20 3B 20 41 20 33 2E 20 |54272+27 ; A 3. |
00000080: 48 41 4E 47 47 45 4E 45 52 41 54 4F 52 20 41 44 |HANGGENERATOR AD|
00000090: 53 52 2D 45 00 4B 45 5A 3D 31 30 32 34 20 20 20 |SR-E.KEZ=1024 |
000000A0: 20 20 3B 20 4B 45 5A 44 4F 43 49 4D 00 53 30 3D | ; KEZDOCIM.S0=|
000000B0: 31 30 20 20 20 20 20 20 20 20 3B 20 53 4F 52 4F |10 ; SORO|
000000C0: 4B 20 53 5A 41 4D 41 00 4F 53 5A 3D 31 38 20 20 |K SZAMA.OSZ=18 |
000000D0: 20 20 20 20 20 3B 20 4F 53 5A 4C 4F 50 4F 4B 20 | ; OSZLOPOK |
000000E0: 53 5A 41 4D 41 00 53 48 4F 3D 34 30 20 20 20 20 |SZAMA.SHO=40 |
000000F0: 20 20 20 3B 20 53 4F 52 20 48 4F 53 53 5A 41 00 | ; SOR HOSSZA.|
00000100: 02 00 3B 20 54 4F 52 4C 45 53 2C 4B 45 52 45 54 |..; TORLES,KERET|
00000110: 00 02 00 42 45 2F 00 CC 44 41 20 23 3C 4B 45 5A |...BE/..DA #<KEZ|
00000120: 00 D3 54 41 20 24 46 41 00 D3 54 41 20 24 46 43 |..TA $FA..TA $FC|
00000130: 00 CC 44 41 20 23 3E 4B 45 5A 00 D3 54 41 20 24 |..DA #>KEZ..TA $|
00000140: 46 42 00 D3 54 41 20 24 46 44 00 CC 44 41 20 23 |FB..TA $FD..DA #|
00000150: 4F 53 5A 00 C1 53 4C 00 C1 44 43 20 23 32 00 D3 |OSZ..SL..DC #2..|
00000160: 54 41 20 24 46 45 00 CC 44 41 20 23 53 30 00 C1 |TA $FE..DA #S0..|
00000170: 53 4C 00 C1 44 43 20 23 32 00 D4 41 58 00 43 49 |SL..DC #2..AX.CI|
00000180: 4B 4C 2F 00 CC 44 59 20 23 30 00 CC 44 41 20 23 |KL/..DY #0..DA #|
00000190: 31 36 30 00 D3 54 41 20 28 24 46 41 29 2C 59 00 |160..TA ($FA),Y.|
000001A0: CC 44 59 20 24 46 45 00 D3 54 41 20 28 24 46 41 |.DY $FE..TA ($FA|
000001B0: 29 2C 59 00 CC 44 41 20 23 33 32 00 C4 45 59 00 |),Y..DA #32..EY.|
000001C0: 4C 31 2F 00 D3 54 41 20 28 24 46 41 29 2C 59 00 |L1/..TA ($FA),Y.|
000001D0: C4 45 59 00 C2 4E 45 20 4C 31 00 CC 44 41 20 24 |.EY..NE L1..DA $|
000001E0: 46 41 00 C3 4C 43 00 C1 44 43 20 23 53 48 4F 00 |FA..LC..DC #SHO.|
000001F0: D3 54 41 20 24 46 41 00 C2 43 43 20 4C 32 00 C9 |.TA $FA..CC L2..|
00000200: 4E 43 20 24 46 42 00 4C 32 2F 00 C4 45 58 00 C2 |NC $FB.L2/..EX..|
00000210: 4E 45 20 43 49 4B 4C 00 CC 44 41 20 23 31 36 30 |NE CIKL..DA #160|
00000220: 00 CC 44 59 20 24 46 45 00 4C 33 2F 00 D3 54 41 |..DY $FE.L3/..TA|
00000230: 20 28 24 46 41 29 2C 59 00 D3 54 41 20 28 24 46 | ($FA),Y..TA ($F|
00000240: 43 29 2C 59 00 C4 45 59 00 C2 50 4C 20 4C 33 00 |C),Y..EY..PL L3.|
00000250: 00 02 00 3B 20 49 4E 49 43 00 02 00 CC 44 41 20 |...; INIC....DA |
00000260: 23 31 32 39 00 D3 54 41 20 35 34 32 37 32 2B 31 |#129..TA 54272+1|
00000270: 38 00 CC 44 41 20 23 32 35 35 00 D3 54 41 20 35 |8..DA #255..TA 5|
00000280: 34 32 37 32 2B 31 35 00 3B 00 02 00 3B 20 4E 41 |4272+15.;...; NA|
00000290: 50 4C 4F 00 02 00 CC 44 41 20 23 30 00 D3 54 41 |PLO....DA #0..TA|
000002A0: 20 24 46 43 20 3B 20 53 5A 41 4D 4C 41 4C 4F 00 | $FC ; SZAMLALO.|
000002B0: CC 44 41 20 23 30 00 D3 54 41 20 24 46 41 00 CC |.DA #0..TA $FA..|
000002C0: 44 41 20 23 34 00 D3 54 41 20 24 46 42 00 CC 44 |DA #4..TA $FB..D|
000002D0: 59 20 23 38 32 00 CC 44 41 20 23 31 36 30 00 D3 |Y #82..DA #160..|
000002E0: 54 41 20 28 24 46 41 29 2C 59 00 02 00 3B 20 46 |TA ($FA),Y...; F|
000002F0: 4F 43 49 4B 4C 55 53 00 02 00 46 4F 43 49 2F 00 |OCIKLUS...FOCI/.|
00000300: CC 44 41 20 23 34 00 D3 54 41 20 24 46 44 00 CC |.DA #4..TA $FD..|
00000310: 44 41 20 52 4E 44 00 D3 54 41 20 24 46 45 00 56 |DA RND..TA $FE.V|
00000320: 49 5A 53 2F 00 C1 4E 44 20 23 33 00 D4 41 58 00 |IZS/..ND #3..AX.|
00000330: CC 44 59 20 50 4F 4E 54 2C 58 00 CC 44 41 20 23 |.DY PONT,X..DA #|
00000340: 31 36 30 00 C3 4D 50 20 28 24 46 41 29 2C 59 00 |160..MP ($FA),Y.|
00000350: C2 4E 45 20 56 49 4B 49 00 C4 45 43 20 24 46 44 |.NE VIKI..EC $FD|
00000360: 00 C2 45 51 20 42 41 43 4B 00 C9 4E 58 00 CC 44 |..EQ BACK..NX..D|
00000370: 41 20 24 46 45 00 C2 50 4C 20 46 31 00 C4 45 58 |A $FE..PL F1..EX|
00000380: 00 C4 45 58 00 46 31 2F 00 D4 58 41 00 CA 4D 50 |..EX.F1/..XA..MP|
00000390: 20 56 49 5A 53 00 00 56 49 4B 49 2F 00 D3 54 41 | VIZS..VIKI/..TA|
000003A0: 20 28 24 46 41 29 2C 59 00 CC 44 59 20 46 41 4C | ($FA),Y..DY FAL|
000003B0: 2C 58 00 D3 54 41 20 28 24 46 41 29 2C 59 00 CC |,X..TA ($FA),Y..|
000003C0: 44 59 20 24 46 43 00 D4 58 41 00 D3 54 41 20 4D |DY $FC..XA..TA M|
000003D0: 45 4D 4F 2C 59 00 C9 4E 43 20 24 46 43 00 D3 45 |EMO,Y..NC $FC..E|
000003E0: 43 00 CC 44 41 20 24 46 41 00 D3 42 43 20 23 38 |C..DA $FA..BC #8|
000003F0: 32 00 D3 54 41 20 24 46 41 00 C2 43 53 20 56 31 |2..TA $FA..CS V1|
00000400: 00 C4 45 43 20 24 46 42 00 56 31 2F 00 CC 44 41 |..EC $FB.V1/..DA|
00000410: 20 50 4F 4E 54 2C 58 00 C3 4C 43 00 C1 44 43 20 | PONT,X..LC..DC |
00000420: 24 46 41 00 D3 54 41 20 24 46 41 00 C2 43 43 20 |$FA..TA $FA..CC |
00000430: 56 32 00 C9 4E 43 20 24 46 42 00 56 32 2F 00 CA |V2..NC $FB.V2/..|
00000440: 4D 50 20 46 4F 43 49 00 02 00 3B 20 56 49 53 53 |MP FOCI...; VISS|
00000450: 5A 41 4C 45 50 45 53 00 02 00 42 41 43 4B 2F 00 |ZALEPES...BACK/.|
00000460: C4 45 43 20 24 46 43 00 CC 44 59 20 24 46 43 00 |.EC $FC..DY $FC.|
00000470: CC 44 58 20 4D 45 4D 4F 2C 59 00 D3 45 43 00 CC |.DX MEMO,Y..EC..|
00000480: 44 41 20 24 46 41 00 D3 42 43 20 50 4F 4E 54 2C |DA $FA..BC PONT,|
00000490: 58 00 D3 54 41 20 24 46 41 00 C2 43 53 20 42 31 |X..TA $FA..CS B1|
000004A0: 00 C4 45 43 20 24 46 42 00 42 31 2F 00 C3 4C 43 |..EC $FB.B1/..LC|
000004B0: 00 CC 44 41 20 24 46 41 00 C1 44 43 20 23 38 32 |..DA $FA..DC #82|
000004C0: 00 D3 54 41 20 24 46 41 00 C2 43 43 20 42 32 00 |..TA $FA..CC B2.|
000004D0: C9 4E 43 20 24 46 42 00 42 32 2F 00 CC 44 41 20 |.NC $FB.B2/..DA |
000004E0: 24 46 43 00 C2 4E 45 20 46 4F 43 49 00 CC 44 41 |$FC..NE FOCI..DA|
000004F0: 20 23 30 00 D3 54 41 20 24 44 30 32 30 00 56 45 | #0..TA $D020.VE|
00000500: 47 45 2F 00 CC 44 41 20 31 39 37 00 C3 4D 50 20 |GE/..DA 197..MP |
00000510: 23 36 34 00 C2 45 51 20 56 45 47 45 00 00 CC 44 |#64..EQ VEGE...D|
00000520: 41 20 23 30 00 D3 54 41 20 31 39 38 00 00 D2 54 |A #0..TA 198...T|
00000530: 53 00 00 02 00 3B 20 4B 4F 4E 53 54 41 4E 53 4F |S....; KONSTANSO|
00000540: 4B 00 02 00 00 50 4F 4E 54 2F 2E 42 20 32 2C 38 |K....PONT/.B 2,8|
00000550: 30 2C 31 36 32 2C 38 34 00 46 41 4C 2F 2E 42 20 |0,162,84.FAL/.B |
00000560: 34 32 2C 38 31 2C 31 32 32 2C 38 33 00 5D 00 01 |42,81,122,83.]..|
....; DRAWING A LABIRYNTH TO THE SCREEN.
.; WRITTEN BY PETER KALDI IN 1989....*$6
000...MEMO=$5000 ; PUFFER.RND=54272+27
; A 3. HANGGENERATOR ADSR-E.KEZ=1024
; KEZDOCIM.S0=10 ; SOROK SZAMA.
OSZ=18 ; OSZLOPOK SZAMA.SHO=40
; SOR HOSSZA...; TORLES,KERET...BE/.L
DA #<KEZ.STA $FA.STA $FC.LDA #>KEZ.STA $
FB.STA $FD.LDA #OSZ.ASL.ADC #2.STA $FE.L
DA #S0.ASL.ADC #2.TAX.CIKL/.LDY #0.LDA #
160.STA ($FA),Y.LDY $FE.STA ($FA),Y.LDA
#32.DEY.L1/.STA ($FA),Y.DEY.BNE L1.LDA $
FA.CLC.ADC #SHO.STA $FA.BCC L2.INC $FB.L
2/.DEX.BNE CIKL.LDA #160.LDY $FE.L3/.STA
($FA),Y.STA ($FC),Y.DEY.BPL L3....; INI
C...LDA #129.STA 54272+18.LDA #255.STA 5
4272+15.;...; NAPLO...LDA #0.STA $FC ; S
ZAMLALO.LDA #0.STA $FA.LDA #4.STA $FB.LD
Y #82.LDA #160.STA ($FA),Y...; FOCIKLUS.
..FOCI/.LDA #4.STA $FD.LDA RND.STA $FE.V
IZS/.AND #3.TAX.LDY PONT,X.LDA #160.CMP
($FA),Y.BNE VIKI.DEC $FD.BEQ BACK.INX.LD
A $FE.BPL F1.DEX.DEX.F1/.TXA.JMP VIZS..V
IKI/.STA ($FA),Y.LDY FAL,X.STA ($FA),Y.L
DY $FC.TXA.STA MEMO,Y.INC $FC.SEC.LDA $F
A.SBC #82.STA $FA.BCS V1.DEC $FB.V1/.LDA
PONT,X.CLC.ADC $FA.STA $FA.BCC V2.INC $
FB.V2/.JMP FOCI...; VISSZALEPES...BACK/.
DEC $FC.LDY $FC.LDX MEMO,Y.SEC.LDA $FA.S
BC PONT,X.STA $FA.BCS B1.DEC $FB.B1/.CLC
.LDA $FA.ADC #82.STA $FA.BCC B2.INC $FB.
B2/.LDA $FC.BNE FOCI.LDA #0.STA $D020.VE
GE/.LDA 197.CMP #64.BEQ VEGE..LDA #0.STA
198..RTS....; KONSTANSOK....PONT/.B 2,8
0,162,84.FAL/.B 42,81,122,83.]..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL