perm filename BAISM1.FAI[10X,AIL]3 blob sn#191909 filedate 1975-12-13 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 OUT
	XWD	777777,OUT
	XWD	BXPROC+UNTYPE,2
	ASCII	/OUT/
	0

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

	4
	400000+2
	EXTERNAL CLRBUF
	XWD	777777,CLRBUF
	XWD	BXPROC+UNTYPE,3157
	ASCII	/CLRBUF/
	0

	4
	400000+1
	EXTERNAL CVJFN
	XWD	777777,CVJFN
	XWD	BXPROC+INTEGR,3174
	ASCII	/CVJFN/
	0

	4
	400000+1
	EXTERNAL ODTIM
	XWD	777777,ODTIM
	XWD	BXPROC+STRING,3212
	ASCII	/ODTIM/
	0

	4
	400000+1
	EXTERNAL IDTIM
	XWD	777777,IDTIM
	XWD	BXPROC+INTEGR,3231
	ASCII	/IDTIM/
	0

	4
	400000+1
	EXTERNAL RUNTM
	XWD	777777,RUNTM
	XWD	BXPROC+INTEGR,3247
	ASCII	/RUNTM/
	0

	4
	400000+1
	EXTERNAL GTAD
	XWD	777777,GTAD
	XWD	BXPROC+INTEGR,3266
	ASCII	/GTAD/
	0

	4
	400000+1
	EXTERNAL GJINF
	XWD	777777,GJINF
	XWD	BXPROC+INTEGR,3303
	ASCII	/GJINF/
	0

	4
	400000+1
	EXTERNAL STDIR
	XWD	777777,STDIR
	XWD	BXPROC+INTEGR,3323
	ASCII	/STDIR/
	0

	4
	400000+1
	EXTERNAL DIRST
	XWD	777777,DIRST
	XWD	BXPROC+STRING,3342
	ASCII	/DIRST/
	0

	4
	400000+2
	EXTERNAL RUNPRG
	XWD	777777,RUNPRG
	XWD	BXPROC+INTEGR,3361
	ASCII	/RUNPRG/
	0

	4
	400000+2
	EXTERNAL OPENFILE
	XWD	777777,OPENFILE
	XWD	BXPROC+INTEGR,3402
	ASCII	/OPENFILE/
	0

	4
	400000+2
	EXTERNAL SETINPUT
	XWD	777777,SETINPUT
	XWD	BXPROC+UNTYPE,3422
	ASCII	/SETINPUT/
	0

	4
	400000+2
	EXTERNAL INDEXFILE
	XWD	777777,INDEXFILE
	XWD	BXPROC+INTEGR,3444
	ASCII	/INDEXFILE/
	0

	4
	400000+2
	EXTERNAL SETCHAN
	XWD	777777,SETCHAN
	XWD	BXPROC+INTEGR,3463
	ASCII	/SETCHAN/
	0

	4
	400000+1
	EXTERNAL GTJFN
	XWD	777777,GTJFN
	XWD	BXPROC+INTEGR,3503
	ASCII	/GTJFN/
	0

	4
	400000+2
	EXTERNAL GTJFNL
	XWD	777777,GTJFNL
	XWD	BXPROC+INTEGR,3523
	ASCII	/GTJFNL/
	0

	4
	400000+1
	EXTERNAL GNJFN
	XWD	777777,GNJFN
	XWD	BXPROC+INTEGR,3552
	ASCII	/GNJFN/
	0

	4
	400000+1
	EXTERNAL DELF
	XWD	777777,DELF
	XWD	BXPROC+UNTYPE,3570
	ASCII	/DELF/
	0

	4
	400000+1
	EXTERNAL DELNF
	XWD	777777,DELNF
	XWD	BXPROC+INTEGR,3606
	ASCII	/DELNF/
	0

	4
	400000+2
	EXTERNAL UNDELETE
	XWD	777777,UNDELETE
	XWD	BXPROC+UNTYPE,3626
	ASCII	/UNDELETE/
	0

	4
	400000+1
	EXTERNAL SIZEF
	XWD	777777,SIZEF
	XWD	BXPROC+INTEGR,3644
	ASCII	/SIZEF/
	0

	4
	400000+1
	EXTERNAL JFNS
	XWD	777777,JFNS
	XWD	BXPROC+STRING,3662
	ASCII	/JFNS/
	0

	4
	400000+1
	EXTERNAL OPENF
	XWD	777777,OPENF
	XWD	BXPROC+UNTYPE,3701
	ASCII	/OPENF/
	0

	4
	400000+1
	EXTERNAL CFILE
	XWD	777777,CFILE
	XWD	BXPROC+INTEGR,3720
	ASCII	/CFILE/
	0

	4
	400000+1
	EXTERNAL CLOSF
	XWD	777777,CLOSF
	XWD	BXPROC+UNTYPE,3736
	ASCII	/CLOSF/
	0

	4
	400000+1
	EXTERNAL RLJFN
	XWD	777777,RLJFN
	XWD	BXPROC+UNTYPE,3754
	ASCII	/RLJFN/
	0

	4
	400000+1
	EXTERNAL GTSTS
	XWD	777777,GTSTS
	XWD	BXPROC+INTEGR,3772
	ASCII	/GTSTS/
	0

	4
	400000+1
	EXTERNAL STSTS
	XWD	777777,STSTS
	XWD	BXPROC+INTEGR,4010
	ASCII	/STSTS/
	0

	4
	400000+1
	EXTERNAL RNAMF
	XWD	777777,RNAMF
	XWD	BXPROC+INTEGR,4027
	ASCII	/RNAMF/
	0

	4
	400000+1
	EXTERNAL CNDIR
	XWD	777777,CNDIR
	XWD	BXPROC+INTEGR,4046
	ASCII	/CNDIR/
	0

	4
	400000+1
	EXTERNAL ASND
	XWD	777777,ASND
	XWD	BXPROC+INTEGR,4065
	ASCII	/ASND/
	0

	4
	400000+1
	EXTERNAL RELD
	XWD	777777,RELD
	XWD	BXPROC+INTEGR,4103
	ASCII	/RELD/
	0

	4
	400000+1
	EXTERNAL GDSTS
	XWD	777777,GDSTS
	XWD	BXPROC+INTEGR,4121
	ASCII	/GDSTS/
	0

	4
	400000+1
	EXTERNAL SDSTS
	XWD	777777,SDSTS
	XWD	BXPROC+INTEGR,4140
	ASCII	/SDSTS/
	0

	4
	400000+1
	EXTERNAL STDEV
	XWD	777777,STDEV
	XWD	BXPROC+INTEGR,4157
	ASCII	/STDEV/
	0

	4
	400000+1
	EXTERNAL DEVST
	XWD	777777,DEVST
	XWD	BXPROC+STRING,4175
	ASCII	/DEVST/
	0

	4
	400000+2
	EXTERNAL CHAROUT
	XWD	777777,CHAROUT
	XWD	BXPROC+UNTYPE,4214
	ASCII	/CHAROUT/
	0

	4
	400000+1
	EXTERNAL GTFDB
	XWD	777777,GTFDB
	XWD	BXPROC+UNTYPE,4233
	ASCII	/GTFDB/
	0

	4
	400000+1
	EXTERNAL CHFDB
	XWD	777777,CHFDB
	XWD	BXPROC+UNTYPE,4252
	ASCII	/CHFDB/
	0

	4
	400000+1
	EXTERNAL MTOPR
	XWD	777777,MTOPR
	XWD	BXPROC+UNTYPE,4273
	ASCII	/MTOPR/
	0

	4
	400000+1
	EXTERNAL SFPTR
	XWD	777777,SFPTR
	XWD	BXPROC+UNTYPE,4313
	ASCII	/SFPTR/
	0

	4
	400000+1
	EXTERNAL RFPTR
	XWD	777777,RFPTR
	XWD	BXPROC+INTEGR,4332
	ASCII	/RFPTR/
	0

	4
	400000+2
	EXTERNAL RCHPTR
	XWD	777777,RCHPTR
	XWD	BXPROC+INTEGR,4351
	ASCII	/RCHPTR/
	0

	4
	400000+2
	EXTERNAL SCHPTR
	XWD	777777,SCHPTR
	XWD	BXPROC+UNTYPE,4370
	ASCII	/SCHPTR/
	0

	4
	400000+2
	EXTERNAL RWDPTR
	XWD	777777,RWDPTR
	XWD	BXPROC+INTEGR,4410
	ASCII	/RWDPTR/
	0

	4
	400000+2
	EXTERNAL SWDPTR
	XWD	777777,SWDPTR
	XWD	BXPROC+UNTYPE,4427
	ASCII	/SWDPTR/
	0

	4
	400000+1
	EXTERNAL BKJFN
	XWD	777777,BKJFN
	XWD	BXPROC+UNTYPE,4446
	ASCII	/BKJFN/
	0

	4
	400000+1
	EXTERNAL RFBSZ
	XWD	777777,RFBSZ
	XWD	BXPROC+INTEGR,4464
	ASCII	/RFBSZ/
	0

	4
	400000+2
	EXTERNAL DEVTYPE
	XWD	777777,DEVTYPE
	XWD	BXPROC+INTEGR,4503
	ASCII	/DEVTYPE/
	0

	4
	400000+1
	EXTERNAL DVCHR
	XWD	777777,DVCHR
	XWD	BXPROC+INTEGR,4521
	ASCII	/DVCHR/
	0

	4
	400000+1
	EXTERNAL ERSTR
	XWD	777777,ERSTR
	XWD	BXPROC+INTEGR,4541
	ASCII	/ERSTR/
	0

	4
	400000+1
	EXTERNAL RFMOD
	XWD	777777,RFMOD
	XWD	BXPROC+INTEGR,4560
	ASCII	/RFMOD/
	0

	4
	400000+1
	EXTERNAL SFMOD
	XWD	777777,SFMOD
	XWD	BXPROC+UNTYPE,4576
	ASCII	/SFMOD/
	0

	4
	400000+1
	EXTERNAL RFCOC
	XWD	777777,RFCOC
	XWD	BXPROC+UNTYPE,4615
	ASCII	/RFCOC/
	0

	4
	400000+1
	EXTERNAL SFCOC
	XWD	777777,SFCOC
	XWD	BXPROC+UNTYPE,4635
	ASCII	/SFCOC/
	0

	4
	400000+1
	EXTERNAL STPAR
	XWD	777777,STPAR
	XWD	BXPROC+UNTYPE,4655
	ASCII	/STPAR/
	0

	4
	400000+1
	EXTERNAL STI
	XWD	777777,STI
	XWD	BXPROC+UNTYPE,4674
	ASCII	/STI/
	0

	4
	400000+1
	EXTERNAL GTTYP
	XWD	777777,GTTYP
	XWD	BXPROC+INTEGR,4713
	ASCII	/GTTYP/
	0

	4
	400000+2
	EXTERNAL SETEDIT
	XWD	777777,SETEDIT
	XWD	BXPROC+INTEGR,4733
	ASCII	/SETEDIT/
	0

	4
	400000+1
	EXTERNAL STTYP
	XWD	777777,STTYP
	XWD	BXPROC+UNTYPE,4752
	ASCII	/STTYP/
	0

	4
	400000+1
	EXTERNAL PMAP
	XWD	777777,PMAP
	XWD	BXPROC+UNTYPE,4771
	ASCII	/PMAP/
	0

	4
	400000+1
	EXTERNAL INTTY
	XWD	777777,INTTY
	XWD	BXPROC+STRING,5011
	ASCII	/INTTY/
	0

	4
	400000+1
	EXTERNAL PBIN
	XWD	777777,PBIN
	XWD	BXPROC+INTEGR,5026
	ASCII	/PBIN/
	0

	4
	400000+1
	EXTERNAL PBOUT
	XWD	777777,PBOUT
	XWD	BXPROC+UNTYPE,5043
	ASCII	/PBOUT/
	0

	4
	400000+1
	EXTERNAL PSOUT
	XWD	777777,PSOUT
	XWD	BXPROC+UNTYPE,5061
	ASCII	/PSOUT/
	0

	4
	400000+2
	EXTERNAL CHARIN
	XWD	777777,CHARIN
	XWD	BXPROC+INTEGR,5100
	ASCII	/CHARIN/
	0

	4
	400000+1
	EXTERNAL SINI
	XWD	777777,SINI
	XWD	BXPROC+STRING,5116
	ASCII	/SINI/
	0

	4
	400000+1
	EXTERNAL ATI
	XWD	777777,ATI
	XWD	BXPROC+UNTYPE,5136
	ASCII	/ATI/
	0

	4
	400000+1
	EXTERNAL DTI
	XWD	777777,DTI
	XWD	BXPROC+UNTYPE,5155
	ASCII	/DTI/
	0

	4
	400000+1
	EXTERNAL RTIW
	XWD	777777,RTIW
	XWD	BXPROC+INTEGR,5173
	ASCII	/RTIW/
	0

	4
	400000+1
	EXTERNAL STIW
	XWD	777777,STIW
	XWD	BXPROC+INTEGR,5213
	ASCII	/STIW/
	0

	4
	400000+1
	EXTERNAL GTRPW
	XWD	777777,GTRPW
	XWD	BXPROC+INTEGR,5233
	ASCII	/GTRPW/
	0

	4
	400000+2
	EXTERNAL PSIMAP
	XWD	777777,PSIMAP
	XWD	BXPROC+UNTYPE,5253
	ASCII	/PSIMAP/
	0

	4
	400000+2
	EXTERNAL PSIDISMS
	XWD	777777,PSIDISMS
	XWD	BXPROC+UNTYPE,5275
	ASCII	/PSIDISMS/
	0

	4
	400000+2
	EXTERNAL PSIRUNTM
	XWD	777777,PSIRUNTM
	XWD	BXPROC+UNTYPE,5315
	ASCII	/PSIRUNTM/
	0

	4
	400000+2
	EXTERNAL KPSITIME
	XWD	777777,KPSITIME
	XWD	BXPROC+UNTYPE,5335
	ASCII	/KPSITIME/
	0

	4
	400000+1
	EXTERNAL DSKIN
	XWD	777777,DSKIN
	XWD	BXPROC+UNTYPE,5353
	ASCII	/DSKIN/
	0

	4
	400000+2
	EXTERNAL DSKOUT
	XWD	777777,DSKOUT
	XWD	BXPROC+UNTYPE,5375
	ASCII	/DSKOUT/
	0

	4
	400000+1
	EXTERNAL PBTIN
	XWD	777777,PBTIN
	XWD	BXPROC+INTEGR,5416
	ASCII	/PBTIN/
	0
	-1
$END:	0			;FUCK THE STANFORD PETIT CHANNEL!!!!!
	BEND	PD8SM1
	END	START