-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy pathMPROC.EQU
executable file
·368 lines (298 loc) · 6.49 KB
/
MPROC.EQU
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
*.Last mod - 1/7/93 21:10
.globl GETPRC,SUCIDE,PRCSLP,PRCLSP
.globl process_exist,EXISTP
.globl XFERPROC
.globl KILL,KILALL,KIL1C,KILALLN,KOP_1C,KOP_ALL
.globl RAND,ACTIVE,FREE,PRCSTR
.globl snd_play1,snd_play,SNDSND
;Process data structure
*STRUCT PROC
PLINK .set 0 ;LINK TO NEXT 32 BITS
PROCID .set 20h ;UHW PROCESS ID 16 BITS
PTIME .set 30h ;UHW SLEEP TIME X 16MSEC 16 BITS
PSPTR .set 40h ;UHL PROCESS STACK POINTER 32 BITS
PA11 .set 60h ;UHL REGISTERS SAVED
PA10 .set 80h ;UHL
PA9 .set 0A0h ;UHL
PA8 .set 0C0h ;UHL
PWAKE .set 0E0h ;UHL
PDATA .set 100h ;PROCESS DATA STORE
;PSDATA .set 5C0h ;PROCESS STACK DATA
;PRCSIZ .set 7b0h ;END OF DATA STRUCTURE
PSDATA .set 6C0h ;PROCESS STACK DATA
PRCSIZ .set 8b0h ;END OF DATA STRUCTURE
;;PSDATA .set 3C0h ;PROCESS STACK DATA
;;PRCSIZ .set 5b0h ;END OF DATA STRUCTURE
*ENDSTRUCT
NPROC .SET 190 ;# processes
*GSP MACROS
*SUBTRACT REGISTER FROM MEMORY
* SUBRM REG,ADDR,FIELD SIZE
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
SUBRM .macro P1,P2,P3
MOVE :P2:,A14,:P3:
SUB :P1:,A14
MOVE A14,:P2:,:P3:
.endm
*ADD REGISTER TO MEMORY
* ADDRM REG,ADDR,FIELD SIZE
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
ADDRM .macro P1,P2,P3
MOVE :P2:,A14,:P3:
ADD :P1:,A14
MOVE A14,:P2:,:P3:
.endm
*INCREMENT LOCATION
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
INCW .macro P1
MOVE :P1:,A14
INC A14
MOVE A14,:P1:
.endm
*DECREMENT WORD
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
DECW .macro P1
MOVE :P1:,A14
DEC A14
MOVE A14,:P1:
.endm
*INCREMENT MEMORY
* INCM ADDR,FIELD SIZE
*A14 DESTROYED
INCM .macro P1,P2
MOVE :P1:,A14,:P2:
INC A14
MOVE A14,:P1:,:P2:
.endm
*DECREMENT MEMORY
* DECM ADDR,FIELD SIZE
*A14 DESTROYED
DECM .macro P1,P2
MOVE :P1:,A14,:P2:
DEC A14
MOVE A14,:P1:,:P2:
.endm
*SUBTRACT MEMORY
* SUBM ADDR,REG,FIELD SIZE
*SUBTRACTS ADDRESS FROM REGISTER
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
SUBM .macro P1,P2,P3
MOVE :P1:,A14,:P3:
SUB A14,:P2:
.endm
*ADD MEMORY
* ADDM ADDR,REG,FIELD SIZE
*ADDS ADDRESS FROM REGISTER
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
ADDM .macro P1,P2,P3
MOVE :P1:,A14,:P3:
ADD A14,:P2:
.endm
*NEGATE MEMORY
* NEGM ADDR,FIELD SIZE
*NEGATES ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
NEGM .macro P1,P2
MOVE :P1:,A14,:P2:
NEG A14
MOVE A14,:P1:,:P2:
.endm
*COMPARE MEMORY
* CMPM ADDR,REG,FIELD SIZE
*COMPARES ADDRESS TO REGISTER
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
CMPM .macro P1,P2,P3
MOVE :P1:,A14,:P3:
CMP A14,:P2:
.endm
*CLEAR MEMORY
* CLRM ADDR,FIELD SIZE
*CLEARS ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
CLRM .macro P1,P2
CLR A14
MOVE A14,:P1:,:P2:
.endm
*COMPLEMENT MEMORY
* COMM ADDR,FIELD SIZE
*COMPLEMENTS ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
COMM .macro P1,P2
MOVE :P1:,A14,:P2:
NOT A14
MOVE A14,:P1:,:P2:
.endm
*SHIFT LEFT MEMORY
* SLLM SHIFT COUNT,ADDR,FIELD SIZE
*SHIFTS ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
SLLM .macro P1,P2,P3
MOVE :P2:,A14,:P3:
SLL :P1:,A14
MOVE A14,:P2:,:P3:
.endm
*SHIFT RIGHT ARITHMETIC MEMORY
* SRAM SHIFT COUNT,ADDR,FIELD SIZE
*SHIFTS ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
SRAM .macro P1,P2,P3
MOVE :P2:,A14,:P3:
SEXT A14,:P3:
SRA :P1:,A14
MOVE A14,:P2:,:P3:
.endm
*SHIFT RIGHT LOGICAL MEMORY
* SRLM SHIFT COUNT,ADDR,FIELD SIZE
*SHIFTS ADDRESS CONTENTS
*A14 DESTROYED, 'A' REGISTER TYPE INSTRUCTIONS ONLY
SRLM .macro P1,P2,P3
MOVE :P2:,A14,:P3:
ZEXT A14,:P3:
SRL :P1:,A14
MOVE A14,:P2:,:P3:
.endm
*BIT SET
* BSET BIT# 0-31(KONSTANT OR REGISTER),REGISTER TO SET BIT IN
* NOTE: A14 IS DESTROYED, 'A' FILE REGISTERS ONLY
BSET .macro P1,R1
MOVK 1,A14
SLL :P1:,A14
OR A14,:R1:
.endm
*BIT CLR
* BCLR BIT# 0-31(KONSTANT OR REGISTER),REGISTER TO CLR BIT IN
* NOTE: A14 IS DESTROYED, 'A' FILE REGISTERS ONLY
BCLR .macro P1,R1
MOVK 1,A14
SLL :P1:,A14
ANDN A14,:R1:
.endm
*SET THE Z BIT
* SETZ
* STATUS BITS:
* N Unaffected
* C Unaffected
* Z 1
* V Unaffected
* NOTE: A14 IS CLEARED
SETZ .macro
CLR A14
.endm
*CLR THE Z BIT
* CLRZ
* STATUS BITS:
* N Unaffected
* C Unaffected
* Z 0
* V Unaffected
* NOTE: A14 IS SET TO 1
CLRZ .macro
CLR A14
NOT A14
.endm
*PROCESS SLEEP CONSTANT
*A=Sleep time 1-7fff
*RET ADDR ON STACK
SLEEP .macro A
movi :A:,a0
calla PRCSLP
.endm
SLEEPK .macro A
movk :A:,a0
calla PRCSLP
.endm
*PROCESS SLEEP REGISTER
*REG1=REGISTER THAT CONTAINS SLEEP TIME 1-FFFF LOADED INTO A0
*RET ADDR ON STACK
SLEEPR .macro REG1
MOVE :REG1:,A0
CALLA PRCSLP
.endm
*PROCESS LOOP SLEEP
*s=Sleep time, a=*Wakeup addr
SLOOP .macro s,a
.if :s: < 33
movk :s:,a0
.else
movi :s:,a0
.endif
movi :a:,a7,L
jauc PRCLSP
.endm
*PROCESS LOOP SLEEP REGISTER
*P1=REGISTER CONTAINING SLEEP TIME 1-FFFF, P2 =WAKEUP ADDR-->A7
SLOOPR .macro P1,P2
MOVE :P1:,A0
MOVI :P2:,A7,L
JAUC PRCLSP
.endm
*PROCESS CREATION MACRO
*P1=ID-->A1, P2=PC-->A7
CREATE .macro p1,p2
movi :p1:,a1
movi :p2:,a7,L
calla GETPRC
.endm
*PROCESS CREATION MACRO
*A=PC-->A7
CREATE0 .macro A
clr a1
movi :A:,a7,L
calla GETPRC
.endm
*KILL PROCESS(ES)
*P1=ID-->A0,P2=MASK-->A1
KILLIT .macro P1,P2
MOVI :P1:,A0
MOVI :P2:,A1
CALLA KILALL
.endm
*CALL IT QUITS
DIE .macro
jauc SUCIDE
.endm
*PROCESS JUMP SUBROUTINE
*P1=ADDRESS OF SLEEPING PROCESS
*A7 IS USED FOR PC STORAGE
JSRP .macro P1
GETPC A7
ADDI 060h,A7
MOVE A7,-*A12,L ;PUSH RET ADDR
JAUC :P1:
.endm
*PROCESS JUMP SUBROUTINE ON REGISTER
*R1=REGISTER CONTAINING ADDRESS OF SLEEPING PROCESS
*A7 IS USED FOR PC STORAGE
JSRPR .macro R1
GETPC A7
ADDI 040h,A7
MOVE A7,-*A12,L ;PUSH RET ADDR
JUMP :R1:
.endm
*RETURN FROM SLEEPING SUBROUTINE
*A7 IS USED FOR PC STORAGE
*STATUS REGISTER IS NOT AFFECTED
RETP .macro
mmfm a12,a7 ;PULL RETURN ADDR, W/O ZAPPING STAT
exgpc a7
.endm
*FIND MATCHING PROCESS(ES), BRANCH IF ONE WAS FOUND
*P1=ID-->A0,P2=MASK-->A1,P3=BRANCH LABEL
MATCHP .macro P1,P2,P3
MOVI :P1:,A0
MOVI :P2:,A1
CALLA EXISTP
JANZ :P3:
.endm
*FIND MATCHING PROCESS(ES), BRANCH IF NONE WERE FOUND
*P1=ID-->A0,P2=MASK-->A1,P3=BRANCH LABEL
NOMATCHP .macro P1,P2,P3
MOVI :P1:,A0
MOVI :P2:,A1
CALLA EXISTP
JAZ :P3:
.endm
LOCKUP .macro
trap 29
.endm