X-Git-Url: https://jxself.org/git/?p=pdp10-muddle.git;a=blobdiff_plain;f=mim%2Fdevelopment%2Fmim%2Fvaxc%2Fasmdefs.mud;fp=mim%2Fdevelopment%2Fmim%2Fvaxc%2Fasmdefs.mud;h=efbdde15b647fd7860e809543881fb33ce4df92a;hp=0000000000000000000000000000000000000000;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07

diff --git a/mim/development/mim/vaxc/asmdefs.mud b/mim/development/mim/vaxc/asmdefs.mud
new file mode 100644
index 0000000..efbdde1
--- /dev/null
+++ b/mim/development/mim/vaxc/asmdefs.mud
@@ -0,0 +1,99 @@
+<GDECL (SPECIAL-OPS BRANCH-INS CASE-INS MIM-CALLS)
+       <UVECTOR [REST FIX]>>
+
+<NEWTYPE EFF-ADDR FIX>
+
+<NEWTYPE LADDR LIST '<<PRIMTYPE LIST> EFF-ADDR EFF-ADDR>>
+
+<MSETG MAXVAL <* 32 1024>>
+
+<MSETG MINVAL <- ,MAXVAL>>
+
+<GDECL (CODE-LIST) <LIST CODEVEC [REST CODEVEC]>>
+
+<ENV-COND
+ ((ENVIRONMENT MDL) <PUTPROP CODEVEC DECL '<UVECTOR [REST FIX]>>)
+ (T <PUT-DECL CODEVEC '<UVECTOR [REST FIX]>>)>
+
+<GDECL (CURRENT-CODE) CODEVEC (CODE-COUNT) FIX>
+
+<MSETG CODEVEC-LENGTH 1024>
+
+<NEWTYPE SPEC-LABEL FIX>
+
+
+<GDECL (LABEL-TABLE) <LIST [REST LABEL-REF]>
+       (OUTST-LABEL-TABLE) <VECTOR [REST LABEL-REF]>
+       (CURRENT-SLABEL) FIX>
+
+<MSETG MAX-OUTST-LABELS 128>
+
+<NEWSTRUC PTN-SAVE VECTOR
+	  PTNS-CODE CODEVEC
+	  PTNS-VAR VARTBL
+	  PTNS-KIND ATOM
+	  PTNS-USE BOOLEAN
+	  PTNS-SUBS <LIST [REST PTN-SAVE]>>
+
+<GDECL (PTNS-TABLE) <LIST [REST PTN-SAVE]> (PTNS-COUNT) FIX>
+
+<NEWSTRUC CONSTANT-INFO UVECTOR
+	  "REST"
+	  CONSTANT-INFO-NUM FIX
+	  CONSTANT-INFO-CODELOC FIX>
+
+<MSETG CONSTANT-TABLE-SIZE 1024>
+
+<MSETG CONSTANT-TABLE-INCREMENT 128>
+
+<GDECL (CONSTANT-TABLE) <UVECTOR [REST FIX]> (CONSTANT-POINTER) FIX>
+
+<NEWSTRUC PATCH VECTOR
+	  PATCH-CODE CODEVEC
+	  PATCH-TYPE ATOM>
+
+<GDECL (PATCH-TABLE) <LIST [REST PATCH]> (NUM-PATCH) FIX>
+
+<GDECL (SAVED-CODE-COUNT) <OR FALSE FIX> (SAVED-CODE-STACK) <LIST [REST FIX]>>
+
+<NEWSTRUC INT-ENTRY VECTOR
+	  IE-NUMBER-ARGS FIX
+	  IE-LABEL-REF LABEL-REF>
+
+<NEWSTRUC CALL-ENTRY VECTOR
+	  CET-MSUBR-NAME ATOM
+	  CET-DISPATCH <UVECTOR [REST FIX]>>
+	   
+<GDECL (INTERNAL-ENTRY-TABLE) <LIST [REST INT-ENTRY]>
+       (CALL-ENTRY-TABLE) <LIST [REST CALL-ENTRY]>>
+
+<NEWSTRUC UNRESOLVED-CALL VECTOR
+	  UC-NAME ATOM
+	  UC-NUMBER-ARGS FIX
+	  UC-CODE-PTR FIX
+	  UC-CALL-BYTEOFF FIX>
+
+<GDECL (CALL-TABLE) <VECTOR [REST <OR FALSE UNRESOLVED-CALL>]>
+       (CALL-POINTER) FIX
+       (UNRESOLVED-CALLS-TABLE) <LIST [REST UNRESOLVED-CALL]>>
+
+<MSETG CT-NUMBER-CALLS 100>
+
+<GDECL (PUSH-LABEL-TABLE MOVE-LABEL-TABLE) <VECTOR [REST <OR FALSE LABEL-REF>]>
+       (PUSH-LABEL-COUNT MOVE-LABEL-COUNT MAX-NUMBER-PASSES) FIX>
+
+<SETG MAX-NUMBER-PASSES 5>
+
+<MSETG JUMP-EXTENT <- <* 32 1024> 1>>
+
+<MSETG CALL-SEQUENCE-LENGTH 10>
+
+<MSETG 0BIT-TABLE ![0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 0 -1 -1 -1!]>
+
+<GDECL (LABEL-POINTER) <LIST [REST LABEL-REF]> (LABEL-OFFSET) FIX>
+
+<GDECL (UNRESOLVED-CALL-TABLE) <LIST [REST UNRESOLVED-CALL]>>
+
+<GDECL (PF-BYTEOFF PF-PTR) FIX>
+
+<GDECL (CCNAME-TABLE) <VECTOR [REST STRING]>>
\ No newline at end of file