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

diff --git a/mim/development/mim/vaxc/chmks.mima b/mim/development/mim/vaxc/chmks.mima
new file mode 100644
index 0000000..5744c75
--- /dev/null
+++ b/mim/development/mim/vaxc/chmks.mima
@@ -0,0 +1,252 @@
+
+<NEWTYPE CHMK FIX>
+
+<SETG CHMKS-OBLIST <MOBLIST CHMK>>
+
+#WORD *5203065100*
+		    <GFCN XMSETG ("VALUE" <LIST ANY CHMK> ANY ANY) A4 B5>
+		    <TEMP TEMP8>
+		    <INTGO>
+		    <CHTYPE B5 <TYPE-CODE CHMK> = B5>
+		    <FRAME 'MSETG>
+		    <FRAME 'LOOKUP>
+		    <PUSH A4>
+		    <GVAL 'CHMKS-OBLIST = STACK>
+		    <CALL 'LOOKUP 2 = TEMP8>
+		    <TYPE? TEMP8 <TYPE-CODE FALSE> - BOOL7>
+		    <FRAME 'INSERT>
+		    <PUSH A4>
+		    <DEAD A4>
+		    <GVAL 'CHMKS-OBLIST = STACK>
+		    <CALL 'INSERT 2 = TEMP8>
+BOOL7
+		    <SET A4 TEMP8>
+		    <DEAD TEMP8>
+		    <PUSH A4>
+		    <PUSH B5>
+		    <CALL 'MSETG 2>
+		    <CONS B5 () = TEMP8>
+		    <DEAD B5>
+		    <CONS A4 TEMP8 = TEMP8>
+		    <DEAD A4>
+		    <RETURN TEMP8>
+		    <DEAD TEMP8>
+		    <END XMSETG>
+
+<COND (<GASSIGNED? XMSETG> <SETG ALL-CHMKS [<XMSETG "EXIT" 1> <XMSETG "FORK" 2> <XMSETG "READ" 3> <XMSETG "WRITE" 4> <XMSETG "OPEN" 5> <XMSETG "CLOSE" 6> <XMSETG "CREAT" 8> <XMSETG "LINK" 9> <XMSETG "UNLINK" 10> <XMSETG "EXEC" 11> <XMSETG "CHDIR" 12> <XMSETG "MKNOD" 14> <XMSETG "CHMOD" 15> <XMSETG "CHOWN" 16> <XMSETG "LSEEK" 19> <XMSETG "GETPID" 20> <XMSETG "MOUNT" 21> <XMSETG "UMOUNT" 22> <XMSETG "GETUID" 24> <XMSETG "PTRACE" 26> <XMSETG "ACCESS" 33> <XMSETG "SYNC" 36> <XMSETG "KILL" 37> <XMSETG "STAT" 38> <XMSETG "LSTAT" 40> <XMSETG "DUP" 41> <XMSETG "PIPE" 42> <XMSETG "PROFIL" 44> <XMSETG "GETGID" 47> <XMSETG "ACCT" 51> <XMSETG "IOCTL" 54> <XMSETG "REBOOT" 55> <XMSETG "SYMLINK" 57> <XMSETG "READLINK" 58> <XMSETG "EXECVE" 59> <XMSETG "UMASK" 60> <XMSETG "CHROOT" 61> <XMSETG "FSTAT" 62> <XMSETG "GETPAGESIZE" 64> <XMSETG "MREMAP" 65> <XMSETG "VFORK" 66> <XMSETG "SBRK" 69> <XMSETG "SSTK" 70> <XMSETG "MMAP" 71> <XMSETG "VADVISE" 72> <XMSETG "VHANGUP" 76> <XMSETG "MINCORE" 78> <XMSETG "GETGROUPS" 79> <XMSETG "SETGROUPS" 80> <XMSETG "GETPGRP" 81> <XMSETG "SETPGRP" 82> <XMSETG "SETITIMER" 83> <XMSETG "WAIT" 84> <XMSETG "VSWAPON" 85> <XMSETG "GETITIMER" 86> <XMSETG "GETHOSTNAME" 87> <XMSETG "SETHOSTNAME" 88> <XMSETG "GETDTABLESIZE" 89> <XMSETG "DUP2" 90> <XMSETG "GETDOPT" 91> <XMSETG "FCNTL" 92> <XMSETG "SELECT" 93> <XMSETG "SETDOPT" 94> <XMSETG "FSYNC" 95> <XMSETG "SETPRIORITY" 96> <XMSETG "SOCKET" 97> <XMSETG "CONNECT" 98> <XMSETG "ACCEPT" 99> <XMSETG "GETPRIORITY" 100> <XMSETG "SEND" 101> <XMSETG "RECV" 102> <XMSETG "BIND" 104> <XMSETG "SETSOCKOPT" 105> <XMSETG "LISTEN" 106> <XMSETG "VTIMES" 107> <XMSETG "SIGVEC" 108> <XMSETG "SIGBLOCK" 109> <XMSETG "SIGSETMASK" 110> <XMSETG "SIGPAUSE" 111> <XMSETG "SIGSTACK" 112> <XMSETG "RECVMSG" 113> <XMSETG "SENDMSG" 114> <XMSETG "GETTIMEOFDAY" 116> <XMSETG "GETRUSAGE" 117> <XMSETG "GETSOCKOPT" 118> <XMSETG "READV" 120> <XMSETG "WRITEV" 121> <XMSETG "SETTIMEOFDAY" 122> <XMSETG "FCHOWN" 123> <XMSETG "FCHMOD" 124> <XMSETG "RECVFROM" 125> <XMSETG "SETREUID" 126> <XMSETG "SETREGID" 127> <XMSETG "RENAME" 128> <XMSETG "TRUNCATE" 129> <XMSETG "FTRUNCATE" 130> <XMSETG "FLOCK" 131> <XMSETG "SENDTO" 133> <XMSETG "SHUTDOWN" 134> <XMSETG "SOCKETPAIR" 135> <XMSETG "MKDIR" 136> <XMSETG "RMDIR" 137> <XMSETG "UTIMES" 138> <XMSETG "REVOKE" 140> <XMSETG "GETPEERNAME" 141> <XMSETG "GETHOSTID" 142> <XMSETG "SETHOSTID" 143> <XMSETG "GETRLIMIT" 144> <XMSETG "SETRLIMIT" 145> <XMSETG "KILLPG" 146> <XMSETG "SETQUOTA" 148> <XMSETG "QUOTA" 149> <XMSETG "GETSOCKNAME" 150>]>)>
+
+#WORD *33665506661*
+		    <GFCN SYSCALL-GEN ("VALUE" ATOM ANY ANY "OPTIONAL" ANY ANY ANY) DISPCODE8 NUMARG9 RES10 HINT11 TYP12>
+		    <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
+OPT4
+		    <PUSH %<>>
+OPT5
+		    <PUSH #T$UNBOUND 0>
+OPT6
+		    <PUSH #T$UNBOUND 0>
+OPT7
+		    <TEMP ATM13 TEMP20 TEMP31 TEMP38>
+		    <INTGO>
+		    <TYPE? DISPCODE8 <TYPE-CODE ATOM> - BOOL18>
+		    <FRAME 'LOOKUP>
+		    <NTHR DISPCODE8 3 = STACK (RECORD-TYPE ATOM)>
+		    <GVAL 'CHMKS-OBLIST = STACK>
+		    <CALL 'LOOKUP 2 = ATM13>
+		    <TYPE? ATM13 <TYPE-CODE ATOM> - BOOL18>
+		    <NTHR ATM13 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL18)>
+		    <TYPE? TEMP20 <TYPE-CODE FALSE> + BOOL18>
+		    <NTHR TEMP20 1 = TEMP20 (RECORD-TYPE GBIND)>
+		    <TYPE? TEMP20 <TYPE-CODE UNBOUND> + BOOL18>
+		    <DEAD TEMP20>
+		    <GVAL ATM13 = TEMP20>
+		    <DEAD ATM13>
+		    <TYPE? TEMP20 <TYPE-CODE CHMK> + BOOL17>
+BOOL18
+		    <SET TEMP20 DISPCODE8>
+		    <DEAD DISPCODE8>
+		    <TYPE? TEMP20 <TYPE-CODE FIX> + TAG22>
+		    <TYPE? TEMP20 <TYPE-CODE CHMK> - BOOL21>
+TAG22
+		    <SET TEMP31 %<> (TYPE FALSE)>
+		    <GVAL 'ALL-CHMKS = ATM13>
+		    <LOOP>
+MAP24
+		    <INTGO>
+		    <EMPTY? ATM13 + MAPAP27>
+		    <NTH1 ATM13 = TEMP31>
+		    <RESTL TEMP31 1 = TEMP38 (TYPE LIST)>
+		    <NTHL TEMP38 1 = TEMP38 (TYPE FIX)>
+		    <EQUAL? TEMP38 TEMP20 + TAG37>
+		    <DEAD TEMP38>
+		    <SET TEMP31 %<> (TYPE FALSE)>
+		    <JUMP + PHRASE36>
+TAG37
+		    <NTHL TEMP31 1 = ATM13 (TYPE ATOM)>
+		    <DEAD TEMP31>
+		    <JUMP + MAPEX26>
+PHRASE36
+		    <REST1 ATM13 = ATM13>
+		    <JUMP + MAP24>
+MAPAP27
+		    <SET ATM13 TEMP31>
+		    <DEAD TEMP31>
+MAPEX26
+		    <TYPE? ATM13 <TYPE-CODE FALSE> - BOOL17>
+		    <DEAD ATM13>
+BOOL21
+		    <TYPE? TEMP20 <TYPE-CODE VARTBL> - PHRASE16>
+BOOL17
+		    <EQUAL? TEMP20 #CHMK 66 - PHRASE40>
+		    <FRAME 'DO-VFORK>
+		    <PUSH RES10>
+		    <DEAD RES10>
+		    <CALL 'DO-VFORK 1>
+		    <RETURN 'NORMAL>
+PHRASE40
+		    <FRAME 'CALL-RTE>
+		    <GVAL 'ISYSCALL!-MIMOP = STACK>
+		    <PUSH 'CALL>
+		    <PUSH RES10>
+		    <DEAD RES10>
+		    <PUSH %<>>
+		    <PUSH NUMARG9>
+		    <DEAD NUMARG9>
+		    <PUSH TEMP20>
+		    <DEAD TEMP20>
+		    <CALL 'CALL-RTE 6>
+		    <RETURN 'NORMAL>
+PHRASE16
+		    <FRAME 'ERROR>
+		    <PUSH 'BAD-SYSCALL!-ERRORS>
+		    <CALL 'ERROR 1>
+		    <RETURN 'NORMAL>
+		    <END SYSCALL-GEN>
+
+#WORD *5604116101*
+		    <GFCN DO-VFORK ("VALUE" ANY <OR VARTBL FALSE>) RES4>
+		    <TEMP LABEL5 TEMP14>
+		    <INTGO>
+		    <FRAME 'MAKE-LABEL>
+		    <CALL 'MAKE-LABEL 0 = LABEL5>
+		    <FRAME 'FLUSH-ACS>
+		    <CALL 'FLUSH-ACS 0>
+		    <FRAME 'EMIT>
+		    <PUSH 188>
+		    <FRAME 'MA-IMM>
+		    <PUSH #CHMK 66>
+		    <CALL 'MA-IMM 1 = STACK>
+		    <CALL 'EMIT 2>
+		    <TYPE? RES4 <TYPE-CODE FALSE> + PHRASE12>
+		    <FRAME 'EMIT-MOVE>
+		    <GVAL 'AC-0 = TEMP14>
+		    <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+		    <OR TEMP14 #WORD *120* = TEMP14>
+		    <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+		    <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+		    <DEAD TEMP14>
+		    <GVAL 'AC-1 = TEMP14>
+		    <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+		    <OR TEMP14 #WORD *120* = TEMP14>
+		    <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+		    <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+		    <DEAD TEMP14>
+		    <PUSH 'LONG>
+		    <CALL 'EMIT-MOVE 3>
+		    <FRAME 'EMIT-MOVE>
+		    <FRAME 'TYPE-CODE>
+		    <PUSH 'FIX>
+		    <CALL 'TYPE-CODE 1 = STACK>
+		    <GVAL 'AC-0 = TEMP14>
+		    <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+		    <OR TEMP14 #WORD *120* = TEMP14>
+		    <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+		    <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+		    <DEAD TEMP14>
+		    <PUSH 'LONG>
+		    <CALL 'EMIT-MOVE 3>
+		    <FRAME 'LINK-VAR-TO-AC>
+		    <PUSH RES4>
+		    <GVAL 'AC-0 = STACK>
+		    <PUSH 'TYPE-VALUE-PAIR>
+		    <CALL 'LINK-VAR-TO-AC 3 = TEMP14>
+		    <FRAME 'GEN-BRANCH>
+		    <PUSH 30>
+		    <PUSH LABEL5>
+		    <PUSH 'CONDITIONAL-BRANCH>
+		    <CALL 'GEN-BRANCH 3>
+		    <FRAME 'CONS-GEN>
+		    <PUSH RES4>
+		    <PUSH ()>
+		    <PUSH RES4>
+		    <PUSH 'FALSE>
+		    <CALL 'CONS-GEN 4>
+		    <FRAME 'EMIT-MOVE>
+		    <FRAME 'TYPE-CODE>
+		    <PUSH 'FALSE>
+		    <CALL 'TYPE-CODE 1 = STACK>
+		    <GVAL 'AC-0 = TEMP14>
+		    <NTHUV TEMP14 2 = TEMP14 (TYPE FIX)>
+		    <OR TEMP14 #WORD *120* = TEMP14>
+		    <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
+		    <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
+		    <DEAD TEMP14>
+		    <PUSH 'LONG>
+		    <CALL 'EMIT-MOVE 3>
+		    <FRAME 'LINK-VAR-TO-AC>
+		    <PUSH RES4>
+		    <GVAL 'AC-0 = STACK>
+		    <PUSH 'TYPE-VALUE-PAIR>
+		    <CALL 'LINK-VAR-TO-AC 3 = TEMP14>
+		    <PUTUV TEMP14 5 %<>>
+		    <DEAD TEMP14>
+		    <PUTUV RES4 4 %<>>
+		    <PUTUV RES4 7 %<>>
+		    <DEAD RES4>
+		    <FRAME 'EMIT-LABEL>
+		    <PUSH LABEL5>
+		    <DEAD LABEL5>
+		    <PUSH %<>>
+		    <CALL 'EMIT-LABEL 2 = TEMP14>
+		    <RETURN TEMP14>
+		    <DEAD TEMP14>
+PHRASE12
+		    <FRAME 'GEN-BRANCH>
+		    <PUSH 30>
+		    <PUSH LABEL5>
+		    <PUSH %<>>
+		    <CALL 'GEN-BRANCH 3>
+		    <FRAME 'CALL-RTE>
+		    <GVAL 'ICOMPERR!-MIMOP = STACK>
+		    <PUSH 'CALL>
+		    <PUSH %<>>
+		    <PUSH %<>>
+		    <CALL 'CALL-RTE 4>
+		    <FRAME 'EMIT-LABEL>
+		    <PUSH LABEL5>
+		    <DEAD LABEL5>
+		    <PUSH %<>>
+		    <CALL 'EMIT-LABEL 2 = TEMP14>
+		    <RETURN TEMP14>
+		    <DEAD TEMP14>
+		    <END DO-VFORK>
+
+#WORD *32004061366*
+		    <GFCN PIPE-GEN ("VALUE" ANY ANY "OPTIONAL" ANY) UVEC6 RES7>
+		    <OPT-DISPATCH 1 %<> OPT4 OPT5>
+OPT4
+		    <PUSH %<>>
+OPT5
+		    <TEMP TEMP9>
+		    <INTGO>
+		    <FRAME 'CALL-RTE>
+		    <GVAL 'IPIPE!-MIMOP = STACK>
+		    <PUSH 'CALL>
+		    <PUSH RES7>
+		    <DEAD RES7>
+		    <PUSH %<>>
+		    <PUSH UVEC6>
+		    <DEAD UVEC6>
+		    <CALL 'CALL-RTE 5 = TEMP9>
+		    <RETURN TEMP9>
+		    <DEAD TEMP9>
+		    <END PIPE-GEN>