perm filename BAISM1.FAI[X,AIL]1 blob sn#191978 filedate 1975-12-15 generic text, type T, neo UTF8
	TITLE	PD8SM1
	BEGIN 	PD8SM1
↑↑START: RESET
	OPEN	0,FDB
	HALT
	ENTER	0,ENTADR
	HALT
	OUT	0,DMPADR
	JRST	.+2
	HALT
	RELEASE	0,0
	EXIT
FDB:	17		;DUMP MODE
	SIXBIT	/DSK/
	0		;NO BUFFERS
ENTADR:	SIXBIT	/BAIPD8/
	SIXBIT	/SM1/
	0
	0
DMPADR:	IOWD	$END-$BEGIN+1,$BEGIN
	0
$BEGIN:


	4
	400000+1
	EXTERNAL M
	XWD	777777,M
	XWD	BXPROC+UNTYPE,2
	ASCII	/M/
	0

	4
	400000+1
	EXTERNAL OUT
	XWD	777777,OUT
	XWD	BXPROC+UNTYPE,17
	ASCII	/OUT/
	0

	4
	400000+2
	EXTERNAL BREAKSET
	XWD	777777,BREAKSET
	XWD	BXPROC+UNTYPE,37
	ASCII	/BREAKSET/
	0

	4
	400000+1
	EXTERNAL INPUT
	XWD	777777,INPUT
	XWD	BXPROC+STRING,57
	ASCII	/INPUT/
	0

	4
	400000+2
	EXTERNAL LOOKUP
	XWD	777777,LOOKUP
	XWD	BXPROC+UNTYPE,77
	ASCII	/LOOKUP/
	0

	4
	400000+2
	EXTERNAL WR.INI
	XWD	777777,WR.INI
	XWD	BXPROC+UNTYPE,120
	ASCII	/WR_INI/
	0

	4
	400000+1
	EXTERNAL OPEN
	XWD	777777,OPEN
	XWD	BXPROC+UNTYPE,141
	ASCII	/OPEN/
	0

	4
	400000+1
	EXTERNAL SETPL
	XWD	777777,SETPL
	XWD	BXPROC+UNTYPE,166
	ASCII	/SETPL/
	0

	4
	400000+1
	EXTERNAL POINT
	XWD	777777,POINT
	XWD	BXPROC+INTEGR,207
	ASCII	/POINT/
	0

	4
	400000+1
	EXTERNAL .BBPP.
	XWD	777777,.BBPP.
	XWD	BXPROC+INTEGR,227
	ASCII	/BBPP./
	0

	4
	400000+1
	EXTERNAL .$PINT
	XWD	777777,.$PINT
	XWD	BXPROC+UNTYPE,247
	ASCII	/$PINT/
	0

	4
	400000+1
	EXTERNAL .$PREL
	XWD	777777,.$PREL
	XWD	BXPROC+UNTYPE,265
	ASCII	/$PREL/
	0

	4
	400000+1
	EXTERNAL .$PITM
	XWD	777777,.$PITM
	XWD	BXPROC+UNTYPE,303
	ASCII	/$PITM/
	0

	4
	400000+1
	EXTERNAL .$PSET
	XWD	777777,.$PSET
	XWD	BXPROC+UNTYPE,321
	ASCII	/$PSET/
	0

	4
	400000+1
	EXTERNAL .$PLST
	XWD	777777,.$PLST
	XWD	BXPROC+UNTYPE,337
	ASCII	/$PLST/
	0

	4
	400000+1
	EXTERNAL .$PSTR
	XWD	777777,.$PSTR
	XWD	BXPROC+UNTYPE,355
	ASCII	/$PSTR/
	0

	4
	400000+1
	EXTERNAL .$PREC
	XWD	777777,.$PREC
	XWD	BXPROC+UNTYPE,373
	ASCII	/$PREC/
	0

	4
	400000+2
	EXTERNAL SETPRINT
	XWD	777777,SETPRINT
	XWD	BXPROC+UNTYPE,412
	ASCII	/SETPRINT/
	0

	4
	400000+2
	EXTERNAL GETPRINT
	XWD	777777,GETPRINT
	XWD	BXPROC+INTEGR,432
	ASCII	/GETPRINT/
	0

	4
	400000+1
	EXTERNAL EQU
	XWD	777777,EQU
	XWD	BXPROC+INTEGR,447
	ASCII	/EQU/
	0

	4
	400000+1
	EXTERNAL CVS
	XWD	777777,CVS
	XWD	BXPROC+STRING,466
	ASCII	/CVS/
	0

	4
	400000+1
	EXTERNAL CVD
	XWD	777777,CVD
	XWD	BXPROC+INTEGR,504
	ASCII	/CVD/
	0

	4
	400000+1
	EXTERNAL SCAN
	XWD	777777,SCAN
	XWD	BXPROC+STRING,522
	ASCII	/SCAN/
	0

	4
	400000+2
	EXTERNAL RELEASE
	XWD	777777,RELEASE
	XWD	BXPROC+UNTYPE,543
	ASCII	/RELEASE/
	0

	4
	400000+2
	EXTERNAL LINOUT
	XWD	777777,LINOUT
	XWD	BXPROC+UNTYPE,563
	ASCII	/LINOUT/
	0

	4
	400000+1
	EXTERNAL CLOSE
	XWD	777777,CLOSE
	XWD	BXPROC+UNTYPE,602
	ASCII	/CLOSE/
	0

	4
	400000+1
	EXTERNAL CLOSO
	XWD	777777,CLOSO
	XWD	BXPROC+UNTYPE,621
	ASCII	/CLOSO/
	0

	4
	400000+2
	EXTERNAL CLOSIN
	XWD	777777,CLOSIN
	XWD	BXPROC+UNTYPE,641
	ASCII	/CLOSIN/
	0

	4
	400000+1
	EXTERNAL CVOS
	XWD	777777,CVOS
	XWD	BXPROC+STRING,660
	ASCII	/CVOS/
	0

	4
	400000+1
	EXTERNAL ENTER
	XWD	777777,ENTER
	XWD	BXPROC+UNTYPE,676
	ASCII	/ENTER/
	0

	4
	400000+1
	EXTERNAL MTAPE
	XWD	777777,MTAPE
	XWD	BXPROC+UNTYPE,716
	ASCII	/MTAPE/
	0

	4
	400000+2
	EXTERNAL WORDIN
	XWD	777777,WORDIN
	XWD	BXPROC+INTEGR,736
	ASCII	/WORDIN/
	0

	4
	400000+2
	EXTERNAL WORDOUT
	XWD	777777,WORDOUT
	XWD	BXPROC+UNTYPE,755
	ASCII	/WORDOUT/
	0

	4
	400000+1
	EXTERNAL CVO
	XWD	777777,CVO
	XWD	BXPROC+INTEGR,774
	ASCII	/CVO/
	0

	4
	400000+1
	EXTERNAL USETI
	XWD	777777,USETI
	XWD	BXPROC+UNTYPE,1012
	ASCII	/USETI/
	0

	4
	400000+1
	EXTERNAL USETO
	XWD	777777,USETO
	XWD	BXPROC+UNTYPE,1031
	ASCII	/USETO/
	0

	4
	400000+1
	EXTERNAL CVSIX
	XWD	777777,CVSIX
	XWD	BXPROC+INTEGR,1050
	ASCII	/CVSIX/
	0

	4
	400000+1
	EXTERNAL CVFIL
	XWD	777777,CVFIL
	XWD	BXPROC+INTEGR,1066
	ASCII	/CVFIL/
	0

	4
	400000+1
	EXTERNAL CALL
	XWD	777777,CALL
	XWD	BXPROC+INTEGR,1106
	ASCII	/CALL/
	0

	4
	400000+2
	EXTERNAL RENAME
	XWD	777777,RENAME
	XWD	BXPROC+UNTYPE,1126
	ASCII	/RENAME/
	0

	4
	400000+2
	EXTERNAL ERENAME
	XWD	777777,ERENAME
	XWD	BXPROC+UNTYPE,1150
	ASCII	/ERENAME/
	0

	4
	400000+2
	EXTERNAL EDFILE
	XWD	777777,EDFILE
	XWD	BXPROC+UNTYPE,1175
	ASCII	/EDFILE/
	0

	4
	400000+1
	EXTERNAL CVASC
	XWD	777777,CVASC
	XWD	BXPROC+INTEGR,1216
	ASCII	/CVASC/
	0

	4
	400000+1
	EXTERNAL CVSTR
	XWD	777777,CVSTR
	XWD	BXPROC+STRING,1234
	ASCII	/CVSTR/
	0

	4
	400000+2
	EXTERNAL CVASTR
	XWD	777777,CVASTR
	XWD	BXPROC+STRING,1253
	ASCII	/CVASTR/
	0

	4
	400000+2
	EXTERNAL CVXSTR
	XWD	777777,CVXSTR
	XWD	BXPROC+STRING,1272
	ASCII	/CVXSTR/
	0

	4
	400000+2
	EXTERNAL CV6STR
	XWD	777777,CV6STR
	XWD	BXPROC+STRING,1311
	ASCII	/CV6STR/
	0

	4
	400000+1
	EXTERNAL .SUBSR
	XWD	777777,.SUBSR
	XWD	BXPROC+STRING,1327
	ASCII	/SUBSR/
	0

	4
	400000+1
	EXTERNAL .SUBST
	XWD	777777,.SUBST
	XWD	BXPROC+STRING,1347
	ASCII	/SUBST/
	0

	4
	400000+2
	EXTERNAL SETBREAK
	XWD	777777,SETBREAK
	XWD	BXPROC+UNTYPE,1370
	ASCII	/SETBREAK/
	0

	4
	400000+2
	EXTERNAL GETBREAK
	XWD	777777,GETBREAK
	XWD	BXPROC+INTEGR,1412
	ASCII	/GETBREAK/
	0

	4
	400000+2
	EXTERNAL RELBREAK
	XWD	777777,RELBREAK
	XWD	BXPROC+UNTYPE,1430
	ASCII	/RELBREAK/
	0

	4
	400000+2
	EXTERNAL STDBRK
	XWD	777777,STDBRK
	XWD	BXPROC+UNTYPE,1447
	ASCII	/STDBRK/
	0

	4
	400000+2
	EXTERNAL ARRYIN
	XWD	777777,ARRYIN
	XWD	BXPROC+UNTYPE,1466
	ASCII	/ARRYIN/
	0

	4
	400000+2
	EXTERNAL ARRYOUT
	XWD	777777,ARRYOUT
	XWD	BXPROC+UNTYPE,1507
	ASCII	/ARRYOUT/
	0

	4
	400000+2
	EXTERNAL SETFORMAT
	XWD	777777,SETFORMAT
	XWD	BXPROC+UNTYPE,1530
	ASCII	/SETFORMAT/
	0

	4
	400000+1
	EXTERNAL CVG
	XWD	777777,CVG
	XWD	BXPROC+STRING,1547
	ASCII	/CVG/
	0

	4
	400000+1
	EXTERNAL CVF
	XWD	777777,CVF
	XWD	BXPROC+STRING,1565
	ASCII	/CVF/
	0

	4
	400000+1
	EXTERNAL CVE
	XWD	777777,CVE
	XWD	BXPROC+STRING,1603
	ASCII	/CVE/
	0

	4
	400000+2
	EXTERNAL REALIN
	XWD	777777,REALIN
	XWD	BXPROC+FLOTNG,1622
	ASCII	/REALIN/
	0

	4
	400000+1
	EXTERNAL INTIN
	XWD	777777,INTIN
	XWD	BXPROC+INTEGR,1640
	ASCII	/INTIN/
	0

	4
	400000+2
	EXTERNAL REALSCAN
	XWD	777777,REALSCAN
	XWD	BXPROC+FLOTNG,1657
	ASCII	/REALSCAN/
	0

	4
	400000+2
	EXTERNAL INTSCAN
	XWD	777777,INTSCAN
	XWD	BXPROC+INTEGR,1677
	ASCII	/INTSCAN/
	0

	4
	400000+2
	EXTERNAL ARRINFO
	XWD	777777,ARRINFO
	XWD	BXPROC+INTEGR,1717
	ASCII	/ARRINFO/
	0

	4
	400000+2
	EXTERNAL ARRBLT
	XWD	777777,ARRBLT
	XWD	BXPROC+UNTYPE,1737
	ASCII	/ARRBLT/
	0

	4
	400000+2
	EXTERNAL ARRTRAN
	XWD	777777,ARRTRAN
	XWD	BXPROC+UNTYPE,1760
	ASCII	/ARRTRAN/
	0

	4
	400000+2
	EXTERNAL ARRCLR
	XWD	777777,ARRCLR
	XWD	BXPROC+UNTYPE,2000
	ASCII	/ARRCLR/
	0

	4
	400000+1
	EXTERNAL CODE
	XWD	777777,CODE
	XWD	BXPROC+INTEGR,2017
	ASCII	/CODE/
	0

	4
	400000+2
	EXTERNAL USERERR
	XWD	777777,USERERR
	XWD	BXPROC+UNTYPE,2037
	ASCII	/USERERR/
	0

	4
	400000+2
	EXTERNAL ERMSBF
	XWD	777777,ERMSBF
	XWD	BXPROC+UNTYPE,2061
	ASCII	/ERMSBF/
	0

	4
	400000+1
	EXTERNAL CVSI
	XWD	777777,CVSI
	XWD	BXPROC+ITMVAR,2077
	ASCII	/CVSI/
	0

	4
	400000+1
	EXTERNAL CVIS
	XWD	777777,CVIS
	XWD	BXPROC+STRING,2116
	ASCII	/CVIS/
	0

	4
	400000+2
	EXTERNAL NEW.PNAME
	XWD	777777,NEW.PNAME
	XWD	BXPROC+UNTYPE,2136
	ASCII	/NEW_PNAME/
	0

	4
	400000+2
	EXTERNAL DEL.PNAME
	XWD	777777,DEL.PNAME
	XWD	BXPROC+UNTYPE,2156
	ASCII	/DEL_PNAME/
	0

	4
	400000+2
	EXTERNAL TYPEIT
	XWD	777777,TYPEIT
	XWD	BXPROC+INTEGR,2175
	ASCII	/TYPEIT/
	0

	4
	400000+1
	EXTERNAL LISTX
	XWD	777777,LISTX
	XWD	BXPROC+INTEGR,2213
	ASCII	/LISTX/
	0

	4
	400000+2
	EXTERNAL INCHRW
	XWD	777777,INCHRW
	XWD	BXPROC+INTEGR,2234
	ASCII	/INCHRW/
	0

	4
	400000+2
	EXTERNAL INCHRS
	XWD	777777,INCHRS
	XWD	BXPROC+INTEGR,2252
	ASCII	/INCHRS/
	0

	4
	400000+2
	EXTERNAL INCHWL
	XWD	777777,INCHWL
	XWD	BXPROC+STRING,2270
	ASCII	/INCHWL/
	0

	4
	400000+2
	EXTERNAL INCHSL
	XWD	777777,INCHSL
	XWD	BXPROC+STRING,2306
	ASCII	/INCHSL/
	0

	4
	400000+1
	EXTERNAL INSTR
	XWD	777777,INSTR
	XWD	BXPROC+STRING,2324
	ASCII	/INSTR/
	0

	4
	400000+2
	EXTERNAL INSTRL
	XWD	777777,INSTRL
	XWD	BXPROC+STRING,2343
	ASCII	/INSTRL/
	0

	4
	400000+2
	EXTERNAL INSTRS
	XWD	777777,INSTRS
	XWD	BXPROC+STRING,2362
	ASCII	/INSTRS/
	0

	4
	400000+1
	EXTERNAL TTYIN
	XWD	777777,TTYIN
	XWD	BXPROC+STRING,2401
	ASCII	/TTYIN/
	0

	4
	400000+2
	EXTERNAL TTYINL
	XWD	777777,TTYINL
	XWD	BXPROC+STRING,2421
	ASCII	/TTYINL/
	0

	4
	400000+2
	EXTERNAL TTYINS
	XWD	777777,TTYINS
	XWD	BXPROC+STRING,2441
	ASCII	/TTYINS/
	0

	4
	400000+2
	EXTERNAL OUTCHR
	XWD	777777,OUTCHR
	XWD	BXPROC+UNTYPE,2461
	ASCII	/OUTCHR/
	0

	4
	400000+2
	EXTERNAL OUTSTR
	XWD	777777,OUTSTR
	XWD	BXPROC+UNTYPE,2500
	ASCII	/OUTSTR/
	0

	4
	400000+2
	EXTERNAL $PRINT
	XWD	777777,$PRINT
	XWD	BXPROC+STRING,2517
	ASCII	/$PRINT/
	0

	4
	400000+2
	EXTERNAL GETFORMAT
	XWD	777777,GETFORMAT
	XWD	BXPROC+UNTYPE,2537
	ASCII	/GETFORMAT/
	0

	4
	400000+2
	EXTERNAL GETCHAN
	XWD	777777,GETCHAN
	XWD	BXPROC+INTEGR,2557
	ASCII	/GETCHAN/
	0

	4
	400000+2
	EXTERNAL FILEINFO
	XWD	777777,FILEINFO
	XWD	BXPROC+UNTYPE,2575
	ASCII	/FILEINFO/
	0

	4
	400000+2
	EXTERNAL USERCON
	XWD	777777,USERCON
	XWD	BXPROC+UNTYPE,2614
	ASCII	/USERCON/
	0

	4
	400000+2
	EXTERNAL CHNCDB
	XWD	777777,CHNCDB
	XWD	BXPROC+INTEGR,2635
	ASCII	/CHNCDB/
	0

	4
	400000+2
	EXTERNAL MAINPR
	XWD	777777,MAINPR
	XWD	BXPROC+UNTYPE,2654
	ASCII	/MAINPR/
	0

	4
	400000+2
	EXTERNAL RESUME
	XWD	777777,RESUME
	XWD	BXPROC+ITMVAR,2672
	ASCII	/RESUME/
	0

	4
	400000+2
	EXTERNAL ASKNTC
	XWD	777777,ASKNTC
	XWD	BXPROC+ITMVAR,2713
	ASCII	/ASKNTC/
	0

	4
	400000+2
	EXTERNAL CAUSE1
	XWD	777777,CAUSE1
	XWD	BXPROC+ITMVAR,2733
	ASCII	/CAUSE1/
	0

	4
	400000+2
	EXTERNAL MKEVTT
	XWD	777777,MKEVTT
	XWD	BXPROC+UNTYPE,2754
	ASCII	/MKEVTT/
	0

	4
	400000+1
	EXTERNAL JOIN
	XWD	777777,JOIN
	XWD	BXPROC+UNTYPE,2772
	ASCII	/JOIN/
	0

	4
	400000+2
	EXTERNAL SUSPEND
	XWD	777777,SUSPEND
	XWD	BXPROC+ITMVAR,3011
	ASCII	/SUSPEND/
	0

	4
	400000+2
	EXTERNAL TERMINATE
	XWD	777777,TERMINATE
	XWD	BXPROC+UNTYPE,3030
	ASCII	/TERMINATE/
	0

	4
	400000+2
	EXTERNAL MYPROC
	XWD	777777,MYPROC
	XWD	BXPROC+ITMVAR,3047
	ASCII	/MYPROC/
	0

	4
	400000+2
	EXTERNAL CALLER
	XWD	777777,CALLER
	XWD	BXPROC+ITMVAR,3065
	ASCII	/CALLER/
	0

	4
	400000+2
	EXTERNAL INTSET
	XWD	777777,INTSET
	XWD	BXPROC+UNTYPE,3104
	ASCII	/INTSET/
	0

	4
	400000+2
	EXTERNAL INTTBL
	XWD	777777,INTTBL
	XWD	BXPROC+UNTYPE,3124
	ASCII	/INTTBL/
	0

	4
	400000+2
	EXTERNAL INTMOD
	XWD	777777,INTMOD
	XWD	BXPROC+UNTYPE,3143
	ASCII	/INTMOD/
	0

	4
	400000+2
	EXTERNAL CLKMOD
	XWD	777777,CLKMOD
	XWD	BXPROC+UNTYPE,3161
	ASCII	/CLKMOD/
	0

	4
	400000+2
	EXTERNAL DFRINT
	XWD	777777,DFRINT
	XWD	BXPROC+UNTYPE,3177
	ASCII	/DFRINT/
	0

	4
	400000+2
	EXTERNAL DDFINT
	XWD	777777,DDFINT
	XWD	BXPROC+UNTYPE,3215
	ASCII	/DDFINT/
	0

	4
	400000+2
	EXTERNAL DFR1IN
	XWD	777777,DFR1IN
	XWD	BXPROC+UNTYPE,3233
	ASCII	/DFR1IN/
	0

	4
	400000+2
	EXTERNAL ENABLE
	XWD	777777,ENABLE
	XWD	BXPROC+UNTYPE,3252
	ASCII	/ENABLE/
	0

	4
	400000+2
	EXTERNAL DISABLE
	XWD	777777,DISABLE
	XWD	BXPROC+UNTYPE,3271
	ASCII	/DISABLE/
	0

	4
	400000+2
	EXTERNAL INTMAP
	XWD	777777,INTMAP
	XWD	BXPROC+UNTYPE,3310
	ASCII	/INTMAP/
	0

	4
	400000+2
	EXTERNAL DFCPKT
	XWD	777777,DFCPKT
	XWD	BXPROC+INTEGR,3331
	ASCII	/DFCPKT/
	0

	4
	400000+2
	EXTERNAL URSCHD
	XWD	777777,URSCHD
	XWD	BXPROC+INTEGR,3353
	ASCII	/URSCHD/
	0

	4
	400000+2
	EXTERNAL PRISET
	XWD	777777,PRISET
	XWD	BXPROC+UNTYPE,3371
	ASCII	/PRISET/
	0

	4
	400000+2
	EXTERNAL PSTATUS
	XWD	777777,PSTATUS
	XWD	BXPROC+INTEGR,3411
	ASCII	/PSTATUS/
	0

	4
	400000+2
	EXTERNAL INTPRO
	XWD	777777,INTPRO
	XWD	BXPROC+UNTYPE,3430
	ASCII	/INTPRO/
	0

	4
	400000+2
	EXTERNAL ANSWER
	XWD	777777,ANSWER
	XWD	BXPROC+INTEGR,3446
	ASCII	/ANSWER/
	0

	4
	400000+1
	EXTERNAL LOG$
	XWD	777777,LOG$
	XWD	BXPROC+FLOTNG,3466
	ASCII	/LOG/
	0

	4
	400000+1
	EXTERNAL EXP$
	XWD	777777,EXP$
	XWD	BXPROC+FLOTNG,3504
	ASCII	/EXP/
	0

	4
	400000+1
	EXTERNAL SIN$
	XWD	777777,SIN$
	XWD	BXPROC+FLOTNG,3522
	ASCII	/SIN/
	0

	4
	400000+1
	EXTERNAL SIND$
	XWD	777777,SIND$
	XWD	BXPROC+FLOTNG,3540
	ASCII	/SIND/
	0

	4
	400000+1
	EXTERNAL COS$
	XWD	777777,COS$
	XWD	BXPROC+FLOTNG,3556
	ASCII	/COS/
	0

	4
	400000+1
	EXTERNAL COSD$
	XWD	777777,COSD$
	XWD	BXPROC+FLOTNG,3574
	ASCII	/COSD/
	0

	4
	400000+1
	EXTERNAL SQRT$
	XWD	777777,SQRT$
	XWD	BXPROC+FLOTNG,3612
	ASCII	/SQRT/
	0

	4
	400000+1
	EXTERNAL ATAN2$
	XWD	777777,ATAN2$
	XWD	BXPROC+FLOTNG,3630
	ASCII	/ATAN2/
	0

	4
	400000+1
	EXTERNAL ATAN$
	XWD	777777,ATAN$
	XWD	BXPROC+FLOTNG,3647
	ASCII	/ATAN/
	0

	4
	400000+1
	EXTERNAL ACOS$
	XWD	777777,ACOS$
	XWD	BXPROC+FLOTNG,3665
	ASCII	/ACOS/
	0

	4
	400000+1
	EXTERNAL ASIN$
	XWD	777777,ASIN$
	XWD	BXPROC+FLOTNG,3703
	ASCII	/ASIN/
	0

	4
	400000+1
	EXTERNAL TANH$
	XWD	777777,TANH$
	XWD	BXPROC+FLOTNG,3721
	ASCII	/TANH/
	0

	4
	400000+1
	EXTERNAL COSH$
	XWD	777777,COSH$
	XWD	BXPROC+FLOTNG,3737
	ASCII	/COSH/
	0

	4
	400000+1
	EXTERNAL SINH$
	XWD	777777,SINH$
	XWD	BXPROC+FLOTNG,3755
	ASCII	/SINH/
	0

	4
	400000+1
	EXTERNAL RAN$
	XWD	777777,RAN$
	XWD	BXPROC+FLOTNG,3773
	ASCII	/RAN/
	0

	4
	400000+2
	EXTERNAL TRIGINI
	XWD	777777,TRIGINI
	XWD	BXPROC+UNTYPE,4012
	ASCII	/TRIGINI/
	0

	4
	400000+2
	EXTERNAL GETSTS
	XWD	777777,GETSTS
	XWD	BXPROC+INTEGR,4031
	ASCII	/GETSTS/
	0

	4
	400000+2
	EXTERNAL SETSTS
	XWD	777777,SETSTS
	XWD	BXPROC+UNTYPE,4050
	ASCII	/SETSTS/
	0

	4
	400000+1
	EXTERNAL INOUT
	XWD	777777,INOUT
	XWD	BXPROC+UNTYPE,4067
	ASCII	/INOUT/
	0

	4
	400000+1
	EXTERNAL TTYUP
	XWD	777777,TTYUP
	XWD	BXPROC+INTEGR,4107
	ASCII	/TTYUP/
	0

	4
	400000+2
	EXTERNAL CLRBUF
	XWD	777777,CLRBUF
	XWD	BXPROC+UNTYPE,4126
	ASCII	/CLRBUF/
	0
	-1
$END:	0			;FUCK THE STANFORD PETIT CHANNEL!!!!!
	BEND	PD8SM1
	END	START