diff interps/clc-intercal/CLC-INTERCAL-Base-1.-94.-2/INTERCAL/Include/syscall.iasm @ 996:859f9b4339e6

<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/clc-intercal/CLC-INTERCAL-Base-1.-94.-2/INTERCAL/Include/syscall.iasm	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,94 @@
+	DO NOTE: THIS LIBRARY ADDS SYSTEM CALL INTERFACE TO "SICK"
+
+Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
+
+CLC-INTERCAL is copyrighted software. However, permission to use, modify,
+and distribute it is granted provided that the conditions set out in the
+licence agreement are met. See files README and COPYING in the distribution.
+
+PERVERSION "CLC-INTERCAL INTERCAL/Include/syscall.iasm 1.-94.-2"
+
+	[ FLA { #84 #89 #80 #69}
+	      { #69 #88 #84 #69 #78 #83 #73 #79 #78 } ]
+	[ STO #666 %OS ]
+
+	PLEASE NOTE: SYSCALL #0 - NO OPERATION
+	[ SYS #0 #0 ]
+	
+	PLEASE NOTE: SYSCALL #1 - (PER)VERSION NUMBER
+	[ SYS #1 [
+	  STO #11         TAI NUM OWN #1 %OS +
+	  STO #95 SUB  #1 TAI NUM OWN #1 %OS +
+	  STO #91 SUB  #2 TAI NUM OWN #1 %OS +
+	  STO #87 SUB  #3 TAI NUM OWN #1 %OS +
+	  STO #92 SUB  #4 TAI NUM OWN #1 %OS +
+	  STO #67 SUB  #5 TAI NUM OWN #1 %OS +
+	  STO #88 SUB  #6 TAI NUM OWN #1 %OS +
+	  STO #74 SUB  #7 TAI NUM OWN #1 %OS +
+	  STO #92 SUB  #8 TAI NUM OWN #1 %OS +
+	  STO #67 SUB  #9 TAI NUM OWN #1 %OS +
+	  STO #65 SUB #10 TAI NUM OWN #1 %OS +
+	  STO  #0 SUB #11 TAI NUM OWN #1 %OS] ]
+
+	PLEASE NOTE: SYSCALL #2 - INTERCAL DIALECT
+	[ SYS #2 [
+	  STO #17         TAI NUM OWN #1 %OS +
+	  STO #91 SUB  #1 TAI NUM OWN #1 %OS +
+	  STO #95 SUB  #2 TAI NUM OWN #1 %OS +
+	  STO #78 SUB  #3 TAI NUM OWN #1 %OS +
+	  STO #83 SUB  #4 TAI NUM OWN #1 %OS +
+	  STO #78 SUB  #5 TAI NUM OWN #1 %OS +
+	  STO #91 SUB  #6 TAI NUM OWN #1 %OS +
+	  STO #67 SUB  #7 TAI NUM OWN #1 %OS +
+	  STO #95 SUB  #8 TAI NUM OWN #1 %OS +
+	  STO #70 SUB  #9 TAI NUM OWN #1 %OS +
+	  STO #76 SUB #10 TAI NUM OWN #1 %OS +
+	  STO #80 SUB #11 TAI NUM OWN #1 %OS +
+	  STO #65 SUB #12 TAI NUM OWN #1 %OS +
+	  STO #74 SUB #13 TAI NUM OWN #1 %OS +
+	  STO #78 SUB #14 TAI NUM OWN #1 %OS +
+	  STO #67 SUB #15 TAI NUM OWN #1 %OS +
+	  STO #83 SUB #16 TAI NUM OWN #1 %OS +
+	  STO  #0 SUB #17 TAI NUM OWN #1 %OS] ]
+
+	PLEASE NOTE: SYSCALL #3 - OPEN FILE
+	[ SYS #3 [
+	  STO UNE MUL { #71 #101 #110 #101 #114 #105 #99 #73 #79 }
+		  MUL { #110 #101 #119 }
+		  [ MUL { #91 #95 #77 #70 #83 #65 } +
+		    TSP NUM OWN #1 %OS +
+		    TAI NUM OWN #1 %OS ]
+	      WHP NUM OWN #1 %OS ] ]
+
+	PLEASE NOTE: SYSCALL #4 - RESET FILE
+	[ SYS #4 [
+	  UNS MUL { #71 #101 #110 #101 #114 #105 #99 #73 #79 }
+	      MUL { #114 #101 #115 #101 #116 }
+	      [ WHP NUM OWN #1 %OS ] ] ]
+
+	PLEASE NOTE: SYSCALL #5 - SEEK FILE (SEEK_SET ONLY)
+	[ SYS #5 [
+	  UNS MUL { #71 #101 #110 #101 #114 #105 #99 #73 #79 }
+	      MUL { #115 #101 #101 #107 }
+	      [ WHP NUM OWN #1 %OS +
+		TSP NUM OWN #1 %OS ] ] ]
+
+	PLEASE NOTE: SYSCALL #6 - OPEN TCP SOCKET
+	[ SYS #6 [
+	  STO UNE MUL { #71 #101 #110 #101 #114 #105 #99 #73 #79 }
+		  MUL { #110 #101 #119 }
+		  [ MUL { #91 #95 #80 #78 #86 } +
+		    TSP NUM OWN #1 %OS +
+		    TAI NUM OWN #1 %OS +
+		    MUL { #91 #91 #80 #80 #95 #69 #65 #74 #94 #65 #74 #91 #91 #83 #83 } ]
+	      WHP NUM OWN #1 %OS ] ]
+
+	PLEASE NOTE: SYSCALL #7 - TOGGLE NEWLINE HANDLING
+	[ SYS #7 [
+	  UNS MUL {}
+	      MUL { #95 #110 #101 #119 #108 #105 #110 #101 }
+	      [ MUL { #91 #91 #80 #80 #95 #80 #86 #91 #91 #83 #83 } ] ] ]
+
+	PLEASE NOTE: THAT'S IT FOR NOW
+	[ GUP ]
+