-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.s12
52 lines (41 loc) · 782 Bytes
/
Main.s12
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
;Main.s12
;operatorcontrolled drill :)
;definitions
;#define RUNFAST
;#define SIMULATOR
ORG $1000
NOP
OutPort EQU $700
main:
;initialize drill
;mainprogram,wait for chosen operation
main_loop:
JSR GetKbdML15
NOP
JSR Command
NOP
BRA main_loop
; here your command routine with tabels
Command:
CMPB #7
BHI CommandExit
LDX #JUMPTAB
;offset 2 bytes
ASLB
LDX B,X ; get address of chosen subroutine
JSR ,X ;do subroutine
CommandExit:
RTS
Auto:
LDX #Pattern
JSR DoAuto
RTS
;USE ML15drvr.s12
;global variables shit
USE Labdefs.s12
USE KeyboardML15.s12
USE Delay.s12
USE Subroutines.s12
DCShadow: RMB 1
Pattern: FCB 0,1,1,1,1,1,1,1,2,1,5,2,2,2,2,4,4,3,8,2,$FF
JUMPTAB: FDB MotorStart,MotorStop,DrillDown,DrillUp,Step,DrillHole,RefPos,Auto