00000000: 4C 20 48 41 56 45 20 54 4F 20 50 52 45 53 53 20 |L HAVE TO PRESS |
00000010: 54 48 45 0D D2 D5 CE 2F D3 D4 CF D0 20 4B 45 59 |THE..../.... KEY|
00000020: 20 41 4E 44 20 CC C9 D3 D4 20 54 48 45 20 50 52 | AND .... THE PR|
00000030: 4F 47 52 41 4D 2E 20 C9 4E 0D 54 48 45 20 50 52 |OGRAM. .N.THE PR|
00000040: 4F 47 52 41 4D 2C 20 59 4F 55 27 4C 4C 20 46 49 |OGRAM, YOU'LL FI|
00000050: 4E 44 20 54 57 4F 20 4A 4F 59 53 54 49 43 4B 0D |ND TWO JOYSTICK.|
00000060: 52 4F 55 54 49 4E 45 53 2E 0D 0D 20 20 20 20 D4 |ROUTINES... .|
00000070: 48 45 20 46 49 52 53 54 2C 20 50 52 4F 56 49 44 |HE FIRST, PROVID|
00000080: 45 44 20 42 59 20 C3 4F 4D 4D 4F 44 4F 52 45 2C |ED BY .OMMODORE,|
00000090: 0D 43 48 45 43 4B 53 20 41 4C 4C 20 45 49 47 48 |.CHECKS ALL EIGH|
000000A0: 54 20 44 49 52 45 43 54 49 4F 4E 53 20 4F 46 20 |T DIRECTIONS OF |
000000B0: 54 48 45 0D 4A 4F 59 53 54 49 43 4B 2E 20 20 D4 |THE.JOYSTICK. .|
000000C0: 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 20 55 |HIS ROUTINE IS U|
000000D0: 53 45 46 55 4C 20 49 46 0D 59 4F 55 20 57 41 4E |SEFUL IF.YOU WAN|
000000E0: 54 20 44 49 46 46 45 52 45 4E 54 20 43 4F 44 45 |T DIFFERENT CODE|
000000F0: 20 54 4F 20 42 45 20 45 58 45 43 55 54 45 44 0D | TO BE EXECUTED.|
00000100: 46 4F 52 20 45 41 43 48 20 4F 46 20 54 48 45 20 |FOR EACH OF THE |
00000110: 45 49 47 48 54 20 44 49 52 45 43 54 49 4F 4E 53 |EIGHT DIRECTIONS|
00000120: 2E 0D C6 4F 52 20 45 58 41 4D 50 4C 45 2C 20 49 |...OR EXAMPLE, I|
00000130: 46 20 59 4F 55 20 48 41 44 20 41 20 4B 41 52 41 |F YOU HAD A KARA|
00000140: 54 45 20 47 41 4D 45 0D 59 4F 55 20 43 4F 55 4C |TE GAME.YOU COUL|
00000150: 44 20 48 41 56 45 20 45 49 47 48 54 20 53 50 45 |D HAVE EIGHT SPE|
00000160: 43 49 41 4C 49 5A 45 44 20 4D 4F 56 45 53 0D 2D |CIALIZED MOVES.-|
00000170: 20 4F 4E 45 20 46 4F 52 20 45 41 43 48 20 4F 46 | ONE FOR EACH OF|
00000180: 20 54 48 45 20 45 49 47 48 54 0D 44 49 52 45 43 | THE EIGHT.DIREC|
00000190: 54 49 4F 4E 53 2E 0D 0D 20 20 20 20 C7 45 4E 45 |TIONS... .ENE|
000001A0: 52 41 4C 4C 59 2C 20 54 48 45 20 49 44 45 41 20 |RALLY, THE IDEA |
000001B0: 42 45 48 49 4E 44 20 54 48 49 53 0D 52 4F 55 54 |BEHIND THIS.ROUT|
000001C0: 49 4E 45 20 49 53 20 54 4F 20 47 45 54 20 41 20 |INE IS TO GET A |
000001D0: 4E 55 4D 42 45 52 20 46 52 4F 4D 20 5A 45 52 4F |NUMBER FROM ZERO|
000001E0: 0D 54 4F 20 54 45 4E 2E 20 D4 48 45 4E 2C 20 44 |.TO TEN. .HEN, D|
000001F0: 45 50 45 4E 44 49 4E 47 20 4F 4E 20 54 48 45 20 |EPENDING ON THE |
00000200: 4E 55 4D 42 45 52 2C 0D 59 4F 55 20 43 41 4E 20 |NUMBER,.YOU CAN |
00000210: 45 58 45 43 55 54 45 20 53 4F 4D 45 20 53 50 45 |EXECUTE SOME SPE|
00000220: 43 49 46 49 43 20 43 4F 44 45 0D 46 4F 52 20 54 |CIFIC CODE.FOR T|
00000230: 48 41 54 20 44 49 52 45 43 54 49 4F 4E 2E 20 D4 |HAT DIRECTION. .|
00000240: 57 4F 20 4F 46 20 54 48 45 0D 4E 55 4D 42 45 52 |WO OF THE.NUMBER|
00000250: 53 2C 20 54 48 52 45 45 20 41 4E 44 20 53 45 56 |S, THREE AND SEV|
00000260: 45 4E 2C 20 41 52 45 20 4E 45 56 45 52 0D 55 53 |EN, ARE NEVER.US|
00000270: 45 44 2C 20 42 45 43 41 55 53 45 20 54 48 45 59 |ED, BECAUSE THEY|
00000280: 20 57 4F 55 4C 44 20 52 45 50 52 45 53 45 4E 54 | WOULD REPRESENT|
00000290: 0D 48 41 56 49 4E 47 20 54 48 45 20 4A 4F 59 53 |.HAVING THE JOYS|
000002A0: 54 49 43 4B 20 50 55 53 48 45 44 20 52 49 47 48 |TICK PUSHED RIGH|
000002B0: 54 20 C1 CE C4 0D 4C 45 46 54 20 41 54 20 54 48 |T ....LEFT AT TH|
000002C0: 45 20 53 41 4D 45 20 54 49 4D 45 2E 0D 20 20 20 |E SAME TIME.. |
000002D0: 20 D4 48 45 20 53 45 43 4F 4E 44 2C 20 50 52 4F | .HE SECOND, PRO|
000002E0: 56 49 44 45 44 20 42 59 20 CC CF C1 C4 D3 D4 C1 |VIDED BY .......|
000002F0: D2 2C 0D 43 48 45 43 4B 53 20 41 4C 4C 20 45 49 |.,.CHECKS ALL EI|
00000300: 47 48 54 20 44 49 52 45 43 54 49 4F 4E 53 20 57 |GHT DIRECTIONS W|
00000310: 49 54 48 0D 4F 4E 4C 59 20 46 4F 55 52 20 22 C9 |ITH.ONLY FOUR ".|
00000320: C6 20 2E 2E 2E 20 D4 C8 C5 CE 22 20 53 54 41 54 |. ... ...." STAT|
00000330: 45 4D 45 4E 54 53 2E 0D D4 48 49 53 20 54 41 53 |EMENTS...HIS TAS|
00000340: 4B 20 49 53 20 41 43 48 49 45 56 45 44 20 42 45 |K IS ACHIEVED BE|
00000350: 43 41 55 53 45 20 4F 46 20 54 48 45 0D C2 4F 4F |CAUSE OF THE..OO|
00000360: 4C 45 41 4E 20 45 58 50 52 45 53 53 49 4F 4E 53 |LEAN EXPRESSIONS|
00000370: 20 55 53 45 44 20 49 4E 20 54 48 45 20 22 C9 C6 | USED IN THE "..|
00000380: 0D 2E 2E 2E 20 D4 C8 C5 CE 22 20 53 54 41 54 45 |.... ...." STATE|
00000390: 4D 45 4E 54 53 2E 0D 0D 20 20 20 20 D4 48 45 20 |MENTS... .HE |
000003A0: 49 44 45 41 20 42 45 48 49 4E 44 20 54 48 49 53 |IDEA BEHIND THIS|
000003B0: 20 52 4F 55 54 49 4E 45 20 49 53 0D 46 4F 52 20 | ROUTINE IS.FOR |
000003C0: 54 48 45 20 C2 4F 4F 4C 45 41 4E 20 45 58 50 52 |THE .OOLEAN EXPR|
000003D0: 45 53 53 49 4F 4E 20 54 4F 20 42 45 20 54 52 55 |ESSION TO BE TRU|
000003E0: 45 0D 41 4E 59 20 54 49 4D 45 20 54 48 41 54 20 |E.ANY TIME THAT |
000003F0: 49 54 53 20 53 57 49 54 43 48 20 49 53 20 42 45 |ITS SWITCH IS BE|
00000400: 49 4E 47 0D 50 55 53 48 45 44 20 44 4F 57 4E 2C |ING.PUSHED DOWN,|
00000410: 20 52 45 47 41 52 44 4C 45 53 53 20 4F 46 20 57 | REGARDLESS OF W|
00000420: 48 45 54 48 45 52 20 4F 52 0D 4E 4F 54 20 49 54 |HETHER OR.NOT IT|
00000430: 27 53 20 42 45 49 4E 47 20 50 55 53 48 45 44 20 |'S BEING PUSHED |
00000440: 44 4F 57 4E 20 42 59 20 49 54 53 45 4C 46 0D 4F |DOWN BY ITSELF.O|
00000450: 52 20 49 4E 20 43 4F 4D 42 49 4E 41 54 49 4F 4E |R IN COMBINATION|
00000460: 20 57 49 54 48 20 4F 4E 45 20 4F 46 20 54 48 45 | WITH ONE OF THE|
00000470: 0D 4F 54 48 45 52 20 53 57 49 54 43 48 45 53 2E |.OTHER SWITCHES.|
00000480: 0D 0D 0D 0D 0D 0D 20 20 20 20 C2 4F 54 48 20 52 |...... .OTH R|
00000490: 4F 55 54 49 4E 45 53 20 52 45 51 55 49 52 45 20 |OUTINES REQUIRE |
000004A0: 41 20 53 45 50 41 52 41 54 45 0D 43 48 45 43 4B |A SEPARATE.CHECK|
000004B0: 20 46 4F 52 20 54 48 45 20 46 49 52 45 20 42 55 | FOR THE FIRE BU|
000004C0: 54 54 4F 4E 2E 0D 0D 20 20 20 20 D4 48 45 20 46 |TTON... .HE F|
000004D0: 49 52 53 54 20 52 4F 55 54 49 4E 45 20 49 53 20 |IRST ROUTINE IS |
000004E0: 49 4E 20 4C 49 4E 45 53 0D 37 33 20 54 48 52 4F |IN LINES.73 THRO|
000004F0: 55 47 48 20 37 34 30 2E 20 D4 48 45 20 53 45 43 |UGH 740. .HE SEC|
00000500: 4F 4E 44 20 52 4F 55 54 49 4E 45 20 49 53 0D 49 |OND ROUTINE IS.I|
00000510: 4E 20 4C 49 4E 45 53 20 38 35 30 20 54 48 52 4F |N LINES 850 THRO|
00000520: 55 47 48 20 38 39 35 2E 0D 0D 20 20 20 20 C6 45 |UGH 895... .E|
00000530: 45 4C 20 46 52 45 45 20 54 4F 20 55 53 45 20 54 |EL FREE TO USE T|
00000540: 48 45 53 45 20 52 4F 55 54 49 4E 45 53 0D 57 48 |HESE ROUTINES.WH|
00000550: 45 4E 45 56 45 52 20 59 4F 55 20 57 4F 55 4C 44 |ENEVER YOU WOULD|
00000560: 20 4C 49 4B 45 20 54 4F 20 41 44 44 20 4A 4F 59 | LIKE TO ADD JOY|
00000570: 2D 0D 53 54 49 43 4B 20 43 4F 4E 54 52 4F 4C 20 |-.STICK CONTROL |
00000580: 54 4F 20 59 4F 55 52 20 4F 57 4E 20 50 52 4F 47 |TO YOUR OWN PROG|
00000590: 52 41 4D 53 2E 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 |RAMS....... ....|
000005A0: D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 |. .... ....... .|
000005B0: D3 C5 D3 3A 0D 0D CA CF D9 D3 D4 C9 C3 CB 20 20 |...:.......... |
000005C0: 20 20 20 20 20 20 20 20 20 D4 2E CA CF D9 D3 D4 | .......|
000005D0: C9 C3 CB 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A |..... ***|
000005E0: 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A |* .ND .F .EXT **|
000005F0: 2A 2A 0D |**. |
L HAVE TO PRESS THE.RUN/STOP KEY AND LIS
T THE PROGRAM. IN.THE PROGRAM, YOU'LL FI
ND TWO JOYSTICK.ROUTINES... THE FIRST
, PROVIDED BY COMMODORE,.CHECKS ALL EIGH
T DIRECTIONS OF THE.JOYSTICK. THIS ROUT
INE IS USEFUL IF.YOU WANT DIFFERENT CODE
TO BE EXECUTED.FOR EACH OF THE EIGHT DI
RECTIONS..FOR EXAMPLE, IF YOU HAD A KARA
TE GAME.YOU COULD HAVE EIGHT SPECIALIZED
MOVES.- ONE FOR EACH OF THE EIGHT.DIREC
TIONS... GENERALLY, THE IDEA BEHIND T
HIS.ROUTINE IS TO GET A NUMBER FROM ZERO
.TO TEN. THEN, DEPENDING ON THE NUMBER,.
YOU CAN EXECUTE SOME SPECIFIC CODE.FOR T
HAT DIRECTION. TWO OF THE.NUMBERS, THREE
AND SEVEN, ARE NEVER.USED, BECAUSE THEY
WOULD REPRESENT.HAVING THE JOYSTICK PUS
HED RIGHT AND.LEFT AT THE SAME TIME..
THE SECOND, PROVIDED BY LOADSTAR,.CHECK
S ALL EIGHT DIRECTIONS WITH.ONLY FOUR "I
F ... THEN" STATEMENTS..THIS TASK IS ACH
IEVED BECAUSE OF THE.BOOLEAN EXPRESSIONS
USED IN THE "IF.... THEN" STATEMENTS...
THE IDEA BEHIND THIS ROUTINE IS.FOR
THE BOOLEAN EXPRESSION TO BE TRUE.ANY TI
ME THAT ITS SWITCH IS BEING.PUSHED DOWN,
REGARDLESS OF WHETHER OR.NOT IT'S BEING
PUSHED DOWN BY ITSELF.OR IN COMBINATION
WITH ONE OF THE.OTHER SWITCHES.......
BOTH ROUTINES REQUIRE A SEPARATE.CHECK
FOR THE FIRE BUTTON... THE FIRST ROU
TINE IS IN LINES.73 THROUGH 740. THE SEC
OND ROUTINE IS.IN LINES 850 THROUGH 895.
.. FEEL FREE TO USE THESE ROUTINES.WH
ENEVER YOU WOULD LIKE TO ADD JOY-.STICK
CONTROL TO YOUR OWN PROGRAMS...DISK FILE
S THIS PROGRAM USES:..JOYSTICK
T.JOYSTICK.. **** END OF TEXT **
**.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL