home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1987 March / Antic_Magazine_1987_03_Antic.atr / jstick.m65 < prev    next >
Text File  |  1987-01-01  |  1.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: Text File (text/txt).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Text File (text/txt) fallback Supported
1% dexvert Microtan 65 dump (archive/microtan65Dump) ext Unsupported
100% file Non-ISO extended-ASCII text, with very long lines (1454), with no line terminators default (weak)
100% perlTextCheck Likely Text (Perl) default
100% siegfried x-fmt/111 Plain Text File default
100% detectItEasy Format: plain text default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 30 31 30 30 20 3b 20 4a | 4f 59 53 54 49 43 4b 20 |0100 ; J|OYSTICK |
|00000010| 45 58 50 41 4e 44 45 52 | 9b 30 31 31 30 20 3b 20 |EXPANDER|.0110 ; |
|00000020| 42 59 20 4d 41 54 54 20 | 4c 4f 56 45 4c 45 53 53 |BY MATT |LOVELESS|
|00000030| 20 41 4e 44 20 4d 49 4b | 45 20 45 47 47 45 52 53 | AND MIK|E EGGERS|
|00000040| 9b 30 31 32 30 20 3b 20 | 28 63 29 20 31 39 38 37 |.0120 ; |(c) 1987|
|00000050| 2c 20 41 4e 54 49 43 20 | 50 55 42 4c 49 53 48 49 |, ANTIC |PUBLISHI|
|00000060| 4e 47 9b 30 31 33 30 20 | 3b 9b 30 31 34 30 20 20 |NG.0130 |;.0140 |
|00000070| 20 20 20 2a 3d 20 20 24 | 30 36 30 30 20 20 20 3b | *= $|0600 ;|
|00000080| 50 61 67 65 20 36 9b 30 | 31 35 30 20 53 45 54 56 |Page 6.0|150 SETV|
|00000090| 42 56 20 3d 20 24 45 34 | 35 43 20 20 3b 52 6f 75 |BV = $E4|5C ;Rou|
|000000a0| 74 69 6e 65 20 74 6f 20 | 73 65 74 20 56 42 49 20 |tine to |set VBI |
|000000b0| 76 65 63 74 6f 72 73 9b | 30 31 36 30 20 58 49 54 |vectors.|0160 XIT|
|000000c0| 56 42 56 20 3d 20 24 45 | 34 36 32 20 20 3b 45 58 |VBV = $E|462 ;EX|
|000000d0| 49 54 20 56 42 49 20 56 | 45 43 54 4f 52 9b 30 31 |IT VBI V|ECTOR.01|
|000000e0| 37 30 20 53 54 49 43 4b | 20 3d 20 24 30 32 37 38 |70 STICK| = $0278|
|000000f0| 20 20 20 3b 62 65 67 69 | 6e 6e 69 6e 67 20 6f 66 | ;begi|nning of|
|00000100| 20 4f 53 27 73 20 6a 6f | 79 73 74 69 63 6b 20 76 | OS's jo|ystick v|
|00000110| 61 6c 75 65 73 9b 30 31 | 38 30 20 44 56 42 56 4c |alues.01|80 DVBVL|
|00000120| 4b 20 3d 20 24 30 32 32 | 34 20 20 3b 41 64 64 72 |K = $022|4 ;Addr|
|00000130| 65 73 73 20 6f 66 20 64 | 65 66 65 72 72 65 64 20 |ess of d|eferred |
|00000140| 56 42 49 20 76 65 63 74 | 6f 72 9b 30 31 39 30 20 |VBI vect|or.0190 |
|00000150| 3b 9b 30 32 30 30 20 53 | 45 54 55 50 9b 30 32 31 |;.0200 S|ETUP.021|
|00000160| 30 20 20 20 20 20 4c 44 | 41 20 44 56 42 56 4c 4b |0 LD|A DVBVLK|
|00000170| 20 20 3b 53 61 76 65 20 | 6f 6c 64 20 76 65 63 74 | ;Save |old vect|
|00000180| 6f 72 9b 30 32 32 30 20 | 20 20 20 20 53 54 41 20 |or.0220 | STA |
|00000190| 52 45 54 41 44 44 9b 30 | 32 33 30 20 20 20 20 20 |RETADD.0|230 |
|000001a0| 4c 44 41 20 44 56 42 56 | 4c 4b 2b 31 9b 30 32 34 |LDA DVBV|LK+1.024|
|000001b0| 30 20 20 20 20 20 53 54 | 41 20 52 45 54 41 44 44 |0 ST|A RETADD|
|000001c0| 2b 31 9b 30 32 35 30 20 | 20 20 20 20 4c 44 58 20 |+1.0250 | LDX |
|000001d0| 23 55 50 44 41 54 45 2f | 32 35 36 20 3b 48 69 67 |#UPDATE/|256 ;Hig|
|000001e0| 68 20 62 79 74 65 20 6f | 66 20 56 42 49 20 76 65 |h byte o|f VBI ve|
|000001f0| 63 74 6f 72 9b 30 32 36 | 30 20 20 20 20 20 4c 44 |ctor.026|0 LD|
|00000200| 59 20 23 55 50 44 41 54 | 45 26 32 35 35 20 3b 4c |Y #UPDAT|E&255 ;L|
|00000210| 6f 77 20 62 79 74 65 9b | 30 32 37 30 20 20 20 20 |ow byte.|0270 |
|00000220| 20 4c 44 41 20 23 37 20 | 20 20 20 20 20 3b 55 73 | LDA #7 | ;Us|
|00000230| 65 20 64 65 66 65 72 72 | 65 64 20 76 65 63 74 6f |e deferr|ed vecto|
|00000240| 72 9b 30 32 38 30 20 20 | 20 20 20 4a 53 52 20 53 |r.0280 | JSR S|
|00000250| 45 54 56 42 56 20 20 3b | 53 65 74 20 56 42 4c 41 |ETVBV ;|Set VBLA|
|00000260| 4e 4b 9b 30 32 39 30 20 | 20 20 20 20 50 4c 41 20 |NK.0290 | PLA |
|00000270| 20 20 20 20 20 20 20 20 | 3b 2a 20 42 41 53 49 43 | |;* BASIC|
|00000280| 20 4f 4e 4c 59 20 2a 9b | 30 33 30 30 20 20 20 20 | ONLY *.|0300 |
|00000290| 20 52 54 53 20 9b 30 33 | 31 30 20 3b 9b 30 33 32 | RTS .03|10 ;.032|
|000002a0| 30 20 55 50 44 41 54 45 | 9b 30 33 33 30 20 20 20 |0 UPDATE|.0330 |
|000002b0| 20 20 4c 44 58 20 23 24 | 30 33 20 20 20 20 3b 34 | LDX #$|03 ;4|
|000002c0| 20 73 74 69 63 6b 73 20 | 28 30 2d 33 29 9b 30 33 | sticks |(0-3).03|
|000002d0| 34 30 20 3b 9b 30 33 35 | 30 20 4c 4f 4f 50 9b 30 |40 ;.035|0 LOOP.0|
|000002e0| 33 36 30 20 20 20 20 20 | 4c 44 41 20 53 54 49 43 |360 |LDA STIC|
|000002f0| 4b 2c 58 20 3b 47 65 74 | 20 74 68 69 73 20 6a 6f |K,X ;Get| this jo|
|00000300| 79 73 74 69 63 6b 20 72 | 65 61 64 69 6e 67 2e 2e |ystick r|eading..|
|00000310| 2e 9b 30 33 37 30 20 20 | 20 20 20 54 41 59 20 20 |..0370 | TAY |
|00000320| 20 20 20 20 20 20 20 3b | 20 2d 2d 20 41 4e 44 20 | ;| -- AND |
|00000330| 2d 2d 9b 30 33 38 30 20 | 20 20 20 20 4c 44 41 20 |--.0380 | LDA |
|00000340| 54 41 42 4c 45 2c 59 20 | 3b 75 73 65 20 69 74 20 |TABLE,Y |;use it |
|00000350| 74 6f 20 69 6e 64 65 78 | 20 69 6e 74 6f 20 74 68 |to index| into th|
|00000360| 65 20 74 61 62 6c 65 9b | 30 33 39 30 20 20 20 20 |e table.|0390 |
|00000370| 20 53 54 41 20 53 54 49 | 43 4b 2c 58 20 3b 53 74 | STA STI|CK,X ;St|
|00000380| 6f 72 65 20 6e 65 77 20 | 76 61 6c 75 65 9b 30 34 |ore new |value.04|
|00000390| 30 30 20 20 20 20 20 44 | 45 58 20 9b 30 34 31 30 |00 D|EX .0410|
|000003a0| 20 20 20 20 20 42 50 4c | 20 4c 4f 4f 50 20 20 20 | BPL| LOOP |
|000003b0| 20 3b 49 66 20 6e 6f 74 | 20 66 69 6e 69 73 68 65 | ;If not| finishe|
|000003c0| 64 20 74 68 65 6e 20 62 | 72 61 6e 63 68 20 62 61 |d then b|ranch ba|
|000003d0| 63 6b 9b 30 34 32 30 20 | 3b 9b 30 34 33 30 20 20 |ck.0420 |;.0430 |
|000003e0| 20 20 20 4a 4d 50 20 28 | 52 45 54 41 44 44 29 9b | JMP (|RETADD).|
|000003f0| 30 34 34 30 20 54 41 42 | 4c 45 9b 30 34 35 30 20 |0440 TAB|LE.0450 |
|00000400| 20 20 20 20 2e 42 59 54 | 45 20 30 2c 30 2c 30 2c | .BYT|E 0,0,0,|
|00000410| 30 2c 30 20 3b 42 61 64 | 20 76 61 6c 75 65 73 20 |0,0 ;Bad| values |
|00000420| 72 65 74 75 72 6e 20 61 | 20 7a 65 72 6f 9b 30 34 |return a| zero.04|
|00000430| 36 30 20 20 20 20 20 2e | 42 59 54 45 20 34 20 20 |60 .|BYTE 4 |
|00000440| 20 20 20 3b 52 49 47 48 | 54 2f 42 41 43 4b 9b 30 | ;RIGH|T/BACK.0|
|00000450| 34 37 30 20 20 20 20 20 | 2e 42 59 54 45 20 32 20 |470 |.BYTE 2 |
|00000460| 20 20 20 20 3b 52 49 47 | 48 54 2f 46 4f 52 57 41 | ;RIG|HT/FORWA|
|00000470| 52 44 9b 30 34 38 30 20 | 20 20 20 20 2e 42 59 54 |RD.0480 | .BYT|
|00000480| 45 20 33 20 20 20 20 20 | 3b 52 49 47 48 54 9b 30 |E 3 |;RIGHT.0|
|00000490| 34 39 30 20 20 20 20 20 | 2e 42 59 54 45 20 30 9b |490 |.BYTE 0.|
|000004a0| 30 35 30 30 20 20 20 20 | 20 2e 42 59 54 45 20 36 |0500 | .BYTE 6|
|000004b0| 20 20 20 20 20 3b 4c 45 | 46 54 2f 42 41 43 4b 9b | ;LE|FT/BACK.|
|000004c0| 30 35 31 30 20 20 20 20 | 20 2e 42 59 54 45 20 38 |0510 | .BYTE 8|
|000004d0| 20 20 20 20 20 3b 4c 45 | 46 54 2f 46 4f 52 57 41 | ;LE|FT/FORWA|
|000004e0| 52 44 9b 30 35 32 30 20 | 20 20 20 20 2e 42 59 54 |RD.0520 | .BYT|
|000004f0| 45 20 37 20 20 20 20 20 | 3b 4c 45 46 54 9b 30 35 |E 7 |;LEFT.05|
|00000500| 33 30 20 20 20 20 20 2e | 42 59 54 45 20 30 9b 30 |30 .|BYTE 0.0|
|00000510| 35 34 30 20 20 20 20 20 | 2e 42 59 54 45 20 35 20 |540 |.BYTE 5 |
|00000520| 20 20 20 20 3b 42 41 43 | 4b 9b 30 35 35 30 20 20 | ;BAC|K.0550 |
|00000530| 20 20 20 2e 42 59 54 45 | 20 31 20 20 20 20 20 3b | .BYTE| 1 ;|
|00000540| 46 4f 52 57 41 52 44 9b | 30 35 36 30 20 20 20 20 |FORWARD.|0560 |
|00000550| 20 2e 42 59 54 45 20 30 | 20 20 20 20 20 3b 43 45 | .BYTE 0| ;CE|
|00000560| 4e 54 45 52 45 44 9b 30 | 35 37 30 20 3b 9b 30 35 |NTERED.0|570 ;.05|
|00000570| 38 30 20 52 45 54 41 44 | 44 9b 30 35 39 30 20 20 |80 RETAD|D.0590 |
|00000580| 20 20 20 2a 3d 20 20 2a | 2b 32 20 20 20 20 20 3b | *= *|+2 ;|
|00000590| 52 65 74 75 72 6e 20 61 | 64 64 72 65 73 73 9b 30 |Return a|ddress.0|
|000005a0| 36 30 30 20 20 20 20 20 | 2e 45 4e 44 20 9b |600 |.END . |
+--------+-------------------------+-------------------------+--------+--------+