:10000000000000308A00D6288030A100FE30912008
:10001000013091207530A6003030A128A101A11730
:10002000AE00FE3091202E089128A011240803195B
:10003000A0150530A3002730A80010302B20033076
:10004000A800E8302B20A80164302B20A8010A303A
:100050002B2029083228A7002A08A6002908A50075
:10006000B5202508A500A3030319A011240803192E
:100070003C282302031843282508031DA011A019BA
:100080004328303E91280800AC000910091183165E
:10009000091009110F30880583122C08A0186E284A
:1000A0003E30A6008030A1203330AB0082201330D8
:1000B000A6008830A12082206430A02082206430F5
:1000C000A0202230AB00822028306D200C306D2023
:1000D00006306D20A0142C086E282014AB00201CC4
:1000E0007C280911033C031C812881200530A600CF
:1000F000DC30A120031408002014FE3C03198F28D3
:100100000915201C201009140F3088052B08F03920
:1001100088040910AB0E201882283230A0202C0849
:10012000D128A11B4428A801A700FF30A707031C62
:10013000A807031CD1280330A600DF30A120952892
:10014000A601E83EA500A609FC30031CAA28A507C5
:100150000318A728A5070000A60FA7282518B02870
:10016000A51CB4280000B4280800AA01A901103079
:10017000AB00260DA90DAA0D2708A9022808031C0B
:10018000280FAA020318CB282708A9072808031854
:10019000280FAA070310A50DA60DAB0BB92825083B
:1001A000D12883138312031300000800A001073035
:1001B00083169F008801F030860087018501890140
:1001C000880183128A0104208030A100C0308A0196
:1001D0000E2020308A0144208A0144208A014420D4
:1001E0008A0144208A0144204D308A014420413054
:1001F0008A0144204E308A01442055308A0144202F
:1002000045308A0144204C308A01442020308A0144
:10021000442043308A0144204E308A014420433038
:100220008A01442020308A0144208A0144208A0126
:1002300044208030A10094308A010E2020308A01B1
:10024000442028308A01442063308A014420293028
:100250008A01442020308A01442055308A014420FC
:1002600047308A01442055308A01442052308A01A7
:10027000442020308A0144204F308A0144204E30EF
:100280008A01442045308A0144204E308A014420AE
:1002900020308A01442032308A01442030308A01E3
:1002A00044208A01442037308A01442020308A01CA
:1002B00044200930A800C4308A01942085018A01B5
:1002C00004208030A10080308A010E204D308A0148
:1002D000442045308A01442056308A01442043306E
:1002E0008A01442055308A01442054308A01442038
:1002F00020308A0144204D308A0144204F308A0149
:10030000442044308A0144203D308A01442020307A
:100310008A0144204F308A01442046308A0144201B
:100320008A01442020308A01442053308A0144202D
:1003300045308A01442054308A01442020308A010B
:100340004420BE01BD01C001BF01C201C101803016
:10035000A100C0308A010E2058308A0144203D306F
:100360008A014420A4013E08AA003D08A9008A0190
:1003700015208030A100C3308A010E2020308A0170
:1003800044208A0144208A0144208A0144208A01B1
:1003900044208A0144204D308A01442049308A019A
:1003A00044204B308A01442052308A0144204F308F
:1003B0008A0144204E308A0144208030A1009430CC
:1003C0008A010E2059308A0144203D308A014420A0
:1003D000A4014008AA003F08A9008A011520803026
:1003E000A10097308A010E2020308A0144208A0122
:1003F00044208A0144208A0144208A0144208A0141
:1004000044204D308A01442049308A0144204B3039
:100410008A01442052308A0144204F308A0144200E
:100420004E308A0144208030A100D4308A010E2051
:100430005A308A0144203D308A014420A4014208F8
:10044000AA004108A9008A0115208030A100D730F8
:100450008A010E2020308A0144208A0144208A012A
:1004600044208A0144208A0144208A0144204D30DE
:100470008A01442049308A0144204B308A014420BB
:1004800052308A0144204F308A0144204E308A0184
:10049000442087018A110A122F18852A8030A10072
:1004A00080308A010E2020308A0144208A014420B5
:1004B0008A0144208A0144208A0144208A01442080
:1004C0008A0144204D308A0144204F308A01442063
:1004D00044308A0144203D308A01442020308A0182
:1004E00044204B308A01442045308A014420593051
:1004F0008A01442020308A0144208A0144208A0154
:1005000044208A0144208A0144208A110A122F1CA7
:10051000C22A8030A10080308A010E2020308A015A
:1005200044208A0144208A0144208A0144208A010F
:1005300044208A0144208A0144204D308A0144200D
:100540004F308A01442044308A0144203D308A01E2
:10055000442020308A01442046308A014420523011
:100560008A01442045308A0144205A308A014420BF
:1005700045308A01442020308A0144208A014420E9
:100580008A014420B801FA30B700860106148A11A6
:100590000A12DB22860186148A110A12FB228601C6
:1005A00006158A110A121B23860186158A110A1262
:1005B0003B238A014A2A8A110A12061EE32A8A115B
:1005C0000A12FD2508008A110A12861EEB2A8A11DA
:1005D0000A12A52608008A110A12061FF32A8A1198
:1005E0000A12482708008A110A12861FFB2A8A115C
:1005F0000A12EC2708008A110A12061E032B8A1120
:100600000A125C2308008A110A12861E0B2B8A111B
:100610000A121D2408008A110A12061F132B8A11C0
:100620000A12D82408008A110A12861F1B2B8A1569
:100630000A128F2008008A110A12061E232B8A151F
:100640000A127F2108008A110A12861E2B2B8A1596
:100650000A12C72108008A110A12061F332B8A15B5
:100660000A12112208008A110A12861F3B2B8A15D2
:100670000A12562208008A110A12061E432B8A15F6
:100680000A129F2208008A110A12861E4B2B8A1515
:100690000A12E82208008A110A12061F532B8A1533
:1006A0000A12312308008A110A12861F5B2B8A1551
:1006B0000A127A2308000800123006028A110A1270
:1006C0000319632B08008A150A12C3238030A10086
:1006D00080308A010E204D308A01442045308A0145
:1006E000442056308A01442043308A01442055304A
:1006F0008A01442054308A01442020308A01442059
:100700004D308A0144204F308A01442044308A0110
:1007100044203D308A01442020308A0144205A3050
:100720008A01442020308A01442059308A01442023
:1007300055308A0144204B308A01442041308A01DF
:10074000442052308A01442049308A0144202E300E
:1007500042028A110A12031CB82B8A110A12031DC5
:10076000B72BE13041028A110A12031CB82B080092
:10077000113085000630A500A50BBC2B0000000041
:10078000133085000630A500A50BC42B0000000027
:10079000123085000630A500A50BCC2B0000000010
:1007A000163085000630A500A50BD42B00000000F4
:1007B000143085000630A500A50BDC2B00000000DE
:1007C0001C3085000630A500A50BE42B00000000BE
:1007D000183085000630A500A50BEC2B00000000AA
:1007E000313085000630A500A50BF42B0000000079
:1007F00085010730C1070318C20A8030A100D43038
:100800008A010E205A308A0144203D308A0144205A
:10081000A4014208AA004108A9008A01152030302D
:100820008A0144208A110A12061E1B2C8A015C2BA5
:100830008A110A121C2C08000800223006028A11B4
:100840000A120319242C08008A150A12C3238030C7
:10085000A10080308A010E204D308A0144204530AD
:100860008A01442056308A01442043308A014420C2
:1008700055308A01442054308A01442020308A01B6
:1008800044204D308A0144204F308A0144204430B6
:100890008A0144203D308A01442020308A014420CE
:1008A0008A0144205A308A01442020308A014420A1
:1008B00041308A01442053308A01442041308A016A
:1008C000442047308A01442049308A0144204208AC
:1008D00041048A110A12031D6E2C0800183085008D
:1008E0000630A500A50B722C000000001C3085000E
:1008F0000630A500A50B7A2C0000000014308500FE
:100900000630A500A50B822C0000000016308500E3
:100910000630A500A50B8A2C0000000012308500CF
:100920000630A500A50B922C0000000013308500B6
:100930000630A500A50B9A2C0000000011308500A0
:100940000630A500A50BA22C000000003130850068
:100950000630A500A50BAA2C000000008501073079
:10096000C1020030031C013EC2028030A100D4301D
:100970008A010E205A308A0144203D308A014420E9
:10098000A4014208AA004108A9008A0115203030BC
:100990008A01442020308A0144208A110A12861ECE
:1009A000D62C8A011D2C8A110A12D72C08000800A7
:1009B000423006028A110A120319DF2C0800803027
:1009C000A10080308A010E204D308A01442045303C
:1009D0008A01442056308A01442043308A01442051
:1009E00055308A01442054308A01442020308A0145
:1009F00044204D308A0144204F308A014420443045
:100A00008A0144203D308A01442020308A0144205C
:100A10004F308A01442054308A0144204F308A01EB
:100A2000442020308A01442044308A01442045304B
:100A30008A0144204C308A01442020308A0144201D
:100A40004208BC004108BB00420841048A110A1256
:100A5000031D2B2D0800183085000630A500A50BBE
:100A60002F2D000000001C3085000630A500A50BCE
:100A7000372D00000000143085000630A500A50BBE
:100A80003F2D00000000163085000630A500A50BA4
:100A9000472D00000000123085000630A500A50B90
:100AA0004F2D00000000133085000630A500A50B77
:100AB000572D00000000113085000630A500A50B61
:100AC0005F2D00000000313085000630A500A50B29
:100AD000672D000000000730C1020030031C013EFA
:100AE000C2028030A100D4308A010E205A308A011F
:100AF00044203D308A014420A4014208AA00410854
:100B0000A9008A01152030308A01442020308A0152
:100B10004420420841048A110A12031D922D8A11B1
:100B20000A12942D8A012B2D183085000630A5005D
:100B3000A50B982D00000000313085000630A5007F
:100B4000A50BA02D00000000113085000630A50087
:100B5000A50BA82D00000000133085000630A5006D
:100B6000A50BB02D00000000123085000630A50056
:100B7000A50BB82D00000000163085000630A5003A
:100B8000A50BC02D00000000143085000630A50024
:100B9000A50BC82D000000001C3085000630A50004
:100BA000A50BD02D0000000085010730C1070318F8
:100BB000C20A8030A100D4308A010E205A308A0146
:100BC00044203D308A014420A4014208AA00410883
:100BD000A9008A01152030308A0144203C084202D5
:100BE0008A110A12031DFB2D3B0841028A110A12C9
:100BF000031DFB2D08008A01942D113006028A1175
:100C00000A120319042E08008A150A12C323803021
:100C1000A10080308A010E204D308A0144204530E9
:100C20008A01442056308A01442043308A014420FE
:100C300055308A01442054308A01442020308A01F2
:100C400044204D308A0144204F308A0144204430F2
:100C50008A0144203D308A01442020308A0144200A
:100C60008A01442058308A01442020308A014420DF
:100C700049308A0144204C308A01442045308A01A1
:100C8000442052308A01442049308A01442088306F
:100C90003E028A110A12031C582E8A110A12031DE1
:100CA000572EB9303D028A110A12031C582E080033
:100CB0000830870019308A01A0200C3087001930D5
:100CC0008A01A0200430870019308A01A020063054
:100CD000870019308A01A0200230870019308A016C
:100CE000A0200330870019308A01A020013087003E
:100CF00019308A01A0200930870019308A01A0200C
:100D000087010730BD070318BE0A8030A100C0303C
:100D10008A010E2058308A0144203D308A01442047
:100D2000A4013E08AA003D08A9008A011520303020
:100D30008A0144208A110A12061EA32E8A01FD2D63
:100D40008A110A12A42E08000800213006028A1116
:100D50000A120319AC2E08008A150A12C323803028
:100D6000A10080308A010E204D308A014420453098
:100D70008A01442056308A01442043308A014420AD
:100D800055308A01442054308A01442020308A01A1
:100D900044204D308A0144204F308A0144204430A1
:100DA0008A0144203D308A01442020308A014420B9
:100DB0008A01442058308A01442020308A0144208E
:100DC00047308A01442045308A01442052308A014C
:100DD000442049308A01442020308A0144203E08C2
:100DE0003D048A110A12031DF62E08000130870007
:100DF00019308A01A0200330870019308A01A02011
:100E00000230870019308A01A0200630870019308F
:100E10008A01A0200430870019308A01A0200C30FC
:100E2000870019308A01A0200830870019308A0114
:100E3000A0200930870019308A01A02087010730DF
:100E4000BD020030031C013EBE028030A100C03054
:100E50008A010E2058308A0144203D308A01442006
:100E6000A4013E08AA003D08A9008A0115203030DF
:100E70008A01442020308A0144208A110A12861EE9
:100E8000462F8A01A52E8A110A12472F0800080052
:100E9000413006028A110A1203194F2F08008A15E1
:100EA0000A12C3238030A10080308A010E204D3009
:100EB0008A01442045308A01442056308A0144206A
:100EC00043308A01442055308A01442054308A013D
:100ED000442020308A0144204D308A0144204F3084
:100EE0008A01442044308A0144203D308A01442054
:100EF00020308A0144208A01442059308A0144204C
:100F000020308A01442049308A0144204C308A0133
:100F1000442045308A01442052308A01442049301F
:100F20008A014420883040028A110A12031CA32F30
:100F30008A110A12031DA22FB9303F028A110A1228
:100F4000031CA32F08008030870019308A01A020DD
:100F5000C030870019308A01A02040308700193046
:100F60008A01A0206030870019308A01A02020303B
:100F7000870019308A01A0203030870019308A019B
:100F8000A0201030870019308A01A02090308700FF
:100F900019308A01A02087010730BF070318C00A53
:100FA0008030A10094308A010E2059308A014420FB
:100FB0003D308A014420A4014008AA003F08A9004E
:100FC0008A01152030308A0144208A110A12061F36
:100FD000EB2F8A01482F0800813006028A110A127D
:100FE0000319F32F08008A150A12C3238030A100C9
:100FF00080308A010E204D308A01442045308A011C
:10100000442056308A01442043308A014420553020
:101010008A01442054308A01442020308A0144202F
:101020004D308A0144204F308A01442044308A01E7
:1010300044203D308A01442020308A0144208A0126
:10104000442059308A01442020308A01442047300E
:101050008A01442045308A01442052308A014420CC
:1010600049308A01442020308A01442040083F044E
:101070008A150A12031D3D28080010308700193018
:101080008A01A0203030870019308A01A02020304A
:10109000870019308A01A0206030870019308A014A
:1010A000A0204030870019308A01A020C03087007E
:1010B00019308A01A0208030870019308A01A020D1
:1010C0009030870019308A01A02087010730BF02C5
:1010D0000030031C013EC0028030A10094308A0120
:1010E0000E2059308A0144203D308A014420A40159
:1010F0004008AA003F08A9008A01152030308A0163
:10110000442020308A0144208A150A12861F8D2827
:101110008A01EC2F8A150A128E28080008008230F6
:1011200006028A150A120319962808008030A100C9
:1011300080308A010E204D308A01442045308A01DA
:10114000442056308A01442043308A0144205530DF
:101150008A01442054308A01442020308A014420EE
:101160004D308A0144204F308A01442044308A01A6
:1011700044203D308A01442020308A0144204F30F1
:101180008A01442046308A0144208A0144202030CC
:101190008A01442053308A01442045308A0144208A
:1011A00054308A01442020308A014420BE01BD0110
:1011B000C001BF01C201C1018030A100C0308A015D
:1011C0000E2058308A0144203D308A014420A40179
:1011D0003E08AA003D08A9008A0115208030A10020
:1011E000C3308A010E2020308A0144208A01442025
:1011F0008A0144208A0144208A0144208A01442033
:101200004D308A01442049308A0144204B308A0104
:10121000442052308A0144204F308A0144204E300D
:101220008A0144208030A10094308A010E20593078
:101230008A0144203D308A014420A4014008AA00CC
:101240003F08A9008A0115208030A10097308A014B
:101250000E2020308A0144208A0144208A01442043
:101260008A0144208A0144208A0144204D308A01A9
:10127000442049308A0144204B308A0144205230B6
:101280008A0144204F308A0144204E308A01442094
:101290008030A100D4308A010E205A308A014420C7
:1012A0003D308A014420A4014208AA004108A90057
:1012B0008A0115208030A100D7308A010E2020300D
:1012C0008A0144208A0144208A0144208A01442062
:1012D0008A0144208A0144204D308A01442049304B
:1012E0008A0144204B308A01442052308A01442034
:1012F0004F308A0144204E308A01442008001430C7
:1013000006028A150A120319862908008030A100F6
:1013100080308A010E2020308A0144208A01442036
:101320008A0144204D308A0144204F308A014420F4
:1013300044308A0144203D308A01442020308A0113
:10134000442046308A01442052308A0144204530EE
:101350008A0144205A308A01442045308A014420C1
:1013600020308A01442041308A014420C7308A015C
:10137000442049308A0144204B308A0144202030E7
:101380008A0144208A01442005162F1408002430C5
:1013900006028A150A120319CE2908008030A1001E
:1013A00080308A010E2020308A0144208A014420A6
:1013B0004D308A0144204F308A01442044308A0154
:1013C00044203D308A01442020308A0144204630A8
:1013D0008A01442052308A01442045308A01442049
:1013E0005A308A01442045308A01442020308A0145
:1013F00044204B308A01442041308A01442050303F
:101400008A01442041308A0144204C308A01442022
:1014100049308A01442020308A01442005122F10CF
:101420000800443006028A150A120319182A080017
:101430008030A10080308A010E204D308A01442086
:1014400045308A01442056308A01442043308A01C5
:10145000442055308A01442054308A0144202030F1
:101460008A0144204D308A0144204F308A014420B3
:1014700044308A0144203D308A01442020308A01D2
:10148000442050308A01442057308A0144204D3096
:101490008A01442020308A0144208A0144208A01A4
:1014A00044208A0144208A01442008008430060236
:1014B0008A150A1203195D2A08008030A1008030C5
:1014C0008A010E204D308A01442045308A01442093
:1014D00056308A01442043308A01442055308A0125
:1014E000442054308A01442020308A0144204D3069
:1014F0008A0144204F308A01442044308A0144202C
:101500003D308A01442020308A0144204B308A013A
:10151000442041308A01442052308A014420453021
:101520008A01442020308A0144204B308A01442023
:1015300055308A01442052308A0144200800183076
:1015400006028A150A120319A62A08008030A10093
:1015500080308A010E204D308A01442045308A01B6
:10156000442056308A01442043308A0144205530BB
:101570008A01442054308A01442020308A014420CA
:101580004D308A0144204F308A01442044308A0182
:1015900044203D308A01442020308A0144204B30D1
:1015A0008A01442041308A01442052308A0144207B
:1015B00045308A01442020308A01442043308A018A
:1015C000442049308A0144205A308A0144200800CE
:1015D000283006028A150A120319EF2A0800803003
:1015E000A10080308A010E204D308A014420453010
:1015F0008A01442056308A01442043308A01442025
:1016000055308A01442054308A01442020308A0118
:1016100044204D308A0144204F308A014420443018
:101620008A0144203D308A01442020308A01442030
:1016300044308A014420D6308A01442052308A0145
:10164000442054308A01442047308A0144204530E8
:101650008A0144204E308A01442020308A014420EF
:101660000800483006028A150A120319382B0800B0
:101670008030A10080308A010E204D308A01442044
:1016800045308A01442056308A01442043308A0183
:10169000442055308A01442054308A0144202030AF
:1016A0008A0144204D308A0144204F308A01442071
:1016B00044308A0144203D308A01442020308A0190
:1016C000442044308A014420D6308A0144205230DC
:1016D0008A01442054308A01442047308A01442042
:1016E00045308A0144204E308A01442020308A014E
:1016F00044200800883006028A150A120319812B3B
:1017000008008030A10080308A010E204D308A010F
:10171000442045308A01442056308A014420433019
:101720008A01442055308A01442054308A014420E3
:1017300020308A0144204D308A0144204F308A01F4
:10174000442044308A0144203D308A014420203026
:101750008A01442044308A014420D6308A01442042
:1017600052308A01442054308A01442047308A0193
:10177000442045308A0144204E308A0144202030E4
:101780008A0144200800380837048A150A12031D0C
:10179000CA2B08003808A80037088A019420FA30BC
:1017A000B7020030031C013EB8020130B6000B3016
:1017B00036028A150A120318EA2B851602308A01AE
:1017C0009320851202308A019320B60A8A150A12E4
:0E17D000031DD72B080063008A150A12EB2BAD
:02400E00313F40
:00000001FF
| 'XYZ MASA KONTROLU
'(c) Uğur ÖNEN 2007
DEVICE 16F877
CONFIG XT_OSC,WDT_OFF , PWRTE_ON , CP_OFF , LVP_OFF , BODEN_OFF
XTAL = 4
ADCON1=%00000111 ' port A analog port E digital
TRISD=%00000000
TRISB=%11110000 ' PORTB GIRIS / ÇIKIS
TRISC=0 ' PORTC ÇIKIS
TRISA=0 ' port A çikis yapildi
TRISE=0 ' PORTE ÇIKIS
TRISD=0 ' PORTD ÇIKIS YAPILDI
DECLARE SHOW_SYSTEM_VARIABLES = ON 'SISTEM DEGISKENLERINI GöSTER
DECLARE LCD_INTERFACE 4 ' LCD 4 BIT
DECLARE LCD_LINES 4 ' LCD 4 SATIR
DECLARE LCD_DTPIN PORTD.4
DECLARE LCD_RSPIN PORTE.2 ' PORTE NIN 1. BITI LCD R/W
DECLARE LCD_ENPIN PORTE.0 ' PORTE NIN 0 BITI LCD ENABLE
DIM X1 AS WORD
DIM Y1 AS WORD
DIM Z1 AS WORD
DIM ZIL AS BYTE
DIM AZAL AS WORD
DIM YARICAP AS WORD
DIM BOY AS WORD
DIM KX AS WORD
DIM KY AS WORD
DIM KZ AS WORD
DIM YAN AS BYTE
DIM F AS BIT
CLS
PRINT AT 2,1," MANUEL CNC "
PRINT AT 3,1," (c) UGUR ONEN 2007 "
DELAYMS 2500
PORTA=0
CLS
PRINT AT 1,1,"MEVCUT MOD= OFF SET "
KX=0: KY=0 : KZ=0
PRINT AT 2,1,"X=",DEC KX: PRINT AT 2,4," MIKRON"
PRINT AT 3,1,"Y=",DEC KY: PRINT AT 3,4," MIKRON"
PRINT AT 4,1,"Z=",DEC KZ: PRINT AT 4,4," MIKRON"
PORTC=0
KEY:
IF F =0 THEN PRINT AT 1,1," MOD= KEY "
IF F =1 THEN PRINT AT 1,1," MOD= FREZE "
AZAL=250
PORTB=0
PORTB.0=1:GOSUB TARA1
PORTB=0
PORTB.1=1:GOSUB TARA2
PORTB=0
PORTB.2=1:GOSUB TARA3
PORTB=0
PORTB.3=1:GOSUB TARA4
GOTO KEY
TARA1:
IF PORTB.4=1 THEN GOSUB PROG1: RETURN
IF PORTB.5=1 THEN GOSUB PROG2: RETURN
IF PORTB.6=1 THEN GOSUB PROG3: RETURN
IF PORTB.7=1 THEN GOSUB PROG4: RETURN
TARA2:
IF PORTB.4=1 THEN GOSUB PROG5: RETURN
IF PORTB.5=1 THEN GOSUB PROG6: RETURN
IF PORTB.6=1 THEN GOSUB PROG7: RETURN
IF PORTB.7=1 THEN GOSUB PROG8: RETURN
TARA3:
IF PORTB.4=1 THEN GOSUB PROG9: RETURN
IF PORTB.5=1 THEN GOSUB PROG10: RETURN
IF PORTB.6=1 THEN GOSUB PROG11: RETURN
IF PORTB.7=1 THEN GOSUB PROG12: RETURN
TARA4:
IF PORTB.4=1 THEN GOSUB PROG13:RETURN
IF PORTB.5=1 THEN GOSUB PROG14:RETURN
IF PORTB.6=1 THEN GOSUB PROG15:RETURN
IF PORTB.7=1 THEN GOSUB PROG16:RETURN
RETURN
PROG5: IF PORTB<>18 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= Z YUKARI"
IF KZ>12000 THEN RETURN
PORTA=17:DELAYUS 20 '00000001
PORTA=19:DELAYUS 20 '00000011
PORTA=18:DELAYUS 20 '00000010
PORTA=22:DELAYUS 20 '00000110
PORTA=20:DELAYUS 20 '00000100
PORTA=28:DELAYUS 20 '00001100
PORTA=24:DELAYUS 20 '00001000
PORTA=49:DELAYUS 20 '00001001
PORTA=0
KZ=KZ+7
PRINT AT 4,1,"Z=",DEC KZ,"0"
IF PORTB.4=1 THEN PROG5 :ELSE RETURN
RETURN
PROG6: IF PORTB<>34 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= Z ASAGI"
IF KZ=0 THEN RETURN
PORTA=24:DELAYUS 20 '00011000
PORTA=28:DELAYUS 20 '00011100
PORTA=20:DELAYUS 20 '00010100
PORTA=22:DELAYUS 20 '00010110
PORTA=18:DELAYUS 20 '00010010
PORTA=19:DELAYUS 20 '00010011
PORTA=17:DELAYUS 20 '00010001
PORTA=49:DELAYUS 20 '00011001
PORTA=0
KZ=KZ-7
PRINT AT 4,1,"Z=", DEC KZ,"0 "
IF PORTB.5=1 THEN PROG6 :ELSE RETURN
RETURN
PROG7: IF PORTB<>66 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= OTO DEL "
BOY=KZ
IF KZ=0 THEN RETURN
IN:
PORTA=24:DELAYUS 20 '00011000
PORTA=28:DELAYUS 20 '00011100
PORTA=20:DELAYUS 20 '00010100
PORTA=22:DELAYUS 20 '00010110
PORTA=18:DELAYUS 20 '00010010
PORTA=19:DELAYUS 20 '00010011
PORTA=17:DELAYUS 20 '00010001
PORTA=49:DELAYUS 20 '00011001
KZ=KZ-7:PRINT AT 4,1,"Z=", DEC KZ,"0 "
IF KZ=0 THEN GOTO CIK
GOTO IN
CIK:
PORTA=24:DELAYUS 20 '00001000
PORTA=49:DELAYUS 20 '00001001
PORTA=17:DELAYUS 20 '00000001
PORTA=19:DELAYUS 20 '00000011
PORTA=18:DELAYUS 20 '00000010
PORTA=22:DELAYUS 20 '00000110
PORTA=20:DELAYUS 20 '00000100
PORTA=28:DELAYUS 20 '00001100
PORTA=0
KZ=KZ+7:PRINT AT 4,1,"Z=", DEC KZ,"0"
IF KZ=BOY THEN RETURN
GOTO CIK
PROG1:
IF PORTB<>17 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= X ILERI"
IF KX>35000 THEN RETURN
PORTC=8 :DELAYUS 25 '00001000
PORTC=12: DELAYUS 25 '00001100
PORTC=4:DELAYUS 25 '00000100
PORTC=6:DELAYUS 25 '00000110
PORTC=2:DELAYUS 25 '00000010
PORTC=3:DELAYUS 25 '00000011
PORTC=1:DELAYUS 25 '00000001
PORTC=9:DELAYUS 25 '00001001
PORTC=0
KX=KX+7
PRINT AT 2,1,"X=", DEC KX,"0"
IF PORTB.4=1 THEN PROG1 :ELSE RETURN
RETURN
PROG2:
IF PORTB<>33 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= X GERI "
IF KX=0 THEN RETURN
PORTC=1:DELAYUS 25 '00000001
PORTC=3:DELAYUS 25 '00000011
PORTC=2:DELAYUS 25 '00000010
PORTC=6:DELAYUS 25 '00000110
PORTC=4:DELAYUS 25 '00000100
PORTC=12:DELAYUS 25 '00001100
PORTC=8:DELAYUS 25 '00001000
PORTC=9:DELAYUS 25 '00001001
PORTC=0
KX=KX-7
PRINT AT 2,1,"X=", DEC KX,"0 "
IF PORTB.5=1 THEN PROG2 :ELSE RETURN
RETURN
PROG3:
IF PORTB<>65 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= Y ILERI"
IF KY> 35000 THEN RETURN
PORTC=128:DELAYUS 25 '10000000
PORTC=192:DELAYUS 25 '11000000
PORTC=64:DELAYUS 25 '01000000
PORTC=96:DELAYUS 25 '01100000
PORTC=32:DELAYUS 25 '00100000
PORTC=48:DELAYUS 25 '00110000
PORTC=16:DELAYUS 25 '00010000
PORTC=144:DELAYUS 25 '10010000
PORTC=0
KY=KY+7
PRINT AT 3,1,"Y=", DEC KY,"0"
IF PORTB.6=1 THEN PROG3
RETURN
PROG4:
IF PORTB<>129 THEN RETURN
GOSUB BUZZER
PRINT AT 1,1,"MEVCUT MOD= Y GERI "
IF KY=0 THEN RETURN
PORTC=16:DELAYUS 25 '00010000
PORTC=48:DELAYUS 25 '00110000
PORTC=32:DELAYUS 25 '00100000
PORTC=96:DELAYUS 25 '01100000
PORTC=64:DELAYUS 25 '01000000
PORTC=192:DELAYUS 25 '11000000
PORTC=128:DELAYUS 25 '10000000
PORTC=144:DELAYUS 25 '10010000
PORTC=0
KY=KY-7
PRINT AT 3,1,"Y=",DEC KY,"0 "
IF PORTB.7=1 THEN PROG4 :ELSE RETURN
RETURN
PROG8:
IF PORTB<>130 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= OFF SET "
KX=0: KY=0 : KZ=0
PRINT AT 2,1,"X=",DEC KX: PRINT AT 2,4," MIKRON"
PRINT AT 3,1,"Y=",DEC KY: PRINT AT 3,4," MIKRON"
PRINT AT 4,1,"Z=",DEC KZ: PRINT AT 4,4," MIKRON"
RETURN
PROG9: IF PORTB<>20 THEN RETURN
PRINT AT 1,1," MOD= FREZE AÇIK "
PORTA.4=1 : F=1
RETURN
PROG10: IF PORTB<>36 THEN RETURN
PRINT AT 1,1," MOD= FREZE KAPALI "
PORTA.4=0 : F=0
RETURN
PROG11: IF PORTB<>68 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= PWM "
RETURN
PROG12: IF PORTB<>132 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= KARE KUR"
RETURN
PROG13: IF PORTB<>24 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= KARE CIZ"
RETURN
PROG14: IF PORTB<>40 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
PROG15: IF PORTB<>72 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
PROG16: IF PORTB<>136 THEN RETURN
PRINT AT 1,1,"MEVCUT MOD= DÖRTGEN " : RETURN
BUZZER:
IF AZAL=0 THEN RETURN
DELAYMS AZAL
AZAL= AZAL-250
FOR ZIL=1 TO 10
PORTA.5=1
DELAYMS 2
PORTA.5=0
DELAYMS 2
NEXT ZIL
RETURN
END
|