perm filename CALLIS[X,AIL] blob sn#000826 filedate 1973-08-19 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002		XLIST
 00009 ENDMK
⊗;
	XLIST
; THESE ARE THE CALLI SYMBOLICS

DEFINE CX ' (Y,Z) <
↓U'Y←←IT
IT←←IT+1
>

IT←←0

	CX RESET,RESETUUO	;0 RESET IO
	CX DDTIN,DDTIN		;1 EXT-GET DDT CHAR.
	CX SETDDT,SETDDT	;2 SETDDT LOC IN PROTECTED JOB DATA
	CX DDTOUT,DDTOUT	;3 EXT:SEND DDT CHAR.
	CX DEVCHR,DVCHR		;4 DEVICE CHARACTISTICS
	CX DDTGT,CPOPJ		;5 GET DDT MODE
	CX GETCHR,DVCHR		;6 DEVICE CHAR.(DIFF. NAME)
	CX DDTRL,CPOPJ		;7 RELEASE DDT MODE
	CX WAIT,WAIT		;10 WAIT TILL DEVICE INACTIVE
	CX CORE,CORUUO		;11 CORE UUO
	CX EXIT,EXIT		;12 EXIT
	CX UTPCLR,UTPCLR	;13 CLEAR DEC TAPE DIRECTORY 
	CX DATE,DATE		;14 GET DATE
	CX LOGIN,LOGIN		;15 LOGIN
	CX APRENB,APRENB	;16 ENABLE APR FOR TRAPPING
	CX LOGOUT,LOGOUT	;17 LOGOUT
	CX SWITCH,SWITCH	;20 RETURN DATA SWITCHES
	CX REASSIGN,REASSIGN	;21 REASSIGN DEVICE TO ANOTHER JOB
	CX TIMER,TIMER		;22 RETURN JIFFY CLOCK TIME
	CX MSTIME,MSTIME	;23 RETURN TIME OF DAY IN MS
	CX GETPPN,GETPPN	;24 RETURN PROJECT-PROGRAMMER NUMBER
	CX TRPSET,UUOERR	;25 SET PI TRAP LOC, AND USER IO
	CX TRPJEN,UUOERR	;26 DISMISS INTERRUPT TO EXEC MODE
	CX RUNTIM,JOBTIM	;27 RETURN TOTAL JOB RUNNING TIME
	CX PJOB,JOBNO		;30 RETURN JOB NUMBER
	CX SLEEP,SLEEP		;31 SLEEP FOR N SECONDS, THEN RETURN TO USER
	CX SETPOV,SETPOV	;32 SET PUSH DOWN OVERFLOW TRAP
				;(FOR COMPATIBILITY ONLY)
	CX PEEK,PEEK		;33 PEEK INTO SYSTEM CORE.		;JS
	CX GETLIN,GETLN		;34 GET NAME OF TTY
	CX RUN,UUOERR		;35 RUN COMMAND
	CX SETUWP,setuwp	;36 SET USER WRITE PROTECT
	CX REMAP,remap		;37 REDO CORE MAP
	CX GETSEG,UUOERR	;40 GET SEGMENT
	CX GETTAB,UUOERR	;41 GETTAB ILLEGAL AT STANFORD.

IT←←400000

	CX SPCWAR,SPCWAR	;0 READ SWITCH REGISTER	;JS
	CX CTLV,CTLV		;1 PUT TTY IN NON-DUPLEX MODE. ;JS
	CX SETNAM,SETNAM	;2 SET JOB NAME FOR SYSTAT
	CX SPCWGO,SPCWGO	;3 ANOTHER SPACEWAR UUO
	CX SWAP,SYSRJB		;4 RUN A JOB
	CX EIOTM,EIOTM		;5 ENTER IOT USER MODE
	CX LIOTM,LIOTM		;6 LEAVE IOT USER MODE
	CX PNAME,PNAME		;7 GET A DEVICE'S PHYSICAL NAME
	CX UFBGET,UFBGET	;10 GET A FAST BAND
	CX UFBGIV,UFBGIV	;11 RELEASE A FAST BAND
	CX UFBCLR,FBFLUSH	;12 RELEASE ALL FAST BANDS
	CX JBTSTS,USTAT		;13 GET JOB STATUS WORD OF A JOB
	CX TTYIOS,TTYIOS	;14 GET A JOB'S TELETYPES STATUS WORD
	CX core2,core2		;15 Funny core UUO for high segments
	CX attseg,attseg	;16 Attach high segment
	CX detseg,detseg	;17 Detach high segment
	CX setpro,setpro	;20 Change protection of high segment
	CX segnum,segnum	;21 get number of high segment
	CX segsiz,segsiz	;22
	CX linkup,linkup	;23
	CX dismis,dismis	;24
	CX intnb,intnb		;25 enable interrupts
	CX intorm,intorm	;26
	CX intacm,intacm	;27
	CX intns,intns		;30
	CX intiip,intiip	;31
	CX intirq,intirq	;32
	CX intgen,intgen	;33 generate an interrupt
	CX uwait,uwait		;34
	CX debreak,debreak	;35
	CX setnm2,setnm2	;36 set name of upper, if any
	CX segnam,segnam	;37 get name of upper, if any
	CX IWAIT,IWAIT		;40
	CX uskip,uskip		;41 Skip if a UWAIT really has to wait.
	CX buflen,buflen	;42 Return buffer length for a device
	CX namein,namein	;43 See if this job name exists
	CX slevel,setlvl	;44 Set or get service level.
	CX ienbw,ienbw		;45 Enable interrupts and immediately go into wait state
	CX runmsk,runmsk	;46 Sets processor run mask
	CX ttymes,ttymes	;47 SEND A STRINGTO A TTY
	CX jobrd,jobrd		;50 Read a block from a guy's core image - 400050
	CX devuse,devuse	;51 To tell how many people are waiting for a device
	CX setpr2,setpr2	;52 Set second protect-relocate register!
	CX getpr2,pr2get	;53 Get last setpr2 value
	CX rlevel,rlevel	;54 Get current service level reservation
	CX ufbphy,fbphy		;55 get physical band number
	CX ufbskp,fbskp		;56 skip if no transfer in progress
	CX fbwait,fbwt		;57 Wait for transfer to finish
	CX ufberr,fberr		;60 Skip if no errors in last transfer.
	CX wakeme,wakeme	;61 set ALFRED. Time to initialize a job.
	CX getnam,getnam	;62 return jobname in ac
	CX sneakw,sneakw	;63 peek at next tty char. and wait for it
	CX sneaks,sneaks	;64  "   "   "    "   "    and skip if one there
	CX gdptim,gdptim	;65 Get time cells
	CX setprv,setprv	;66 reset jobtprv
	CX DDCHAN,DDCHAN	;67 GET/RELEASE DD CHANS ETC.
	CX VDSMAP,VDSMAP	;70 CHANGE VIDEO SWITCH MAPPING