perm filename BAISM1.FAI[S,AIL]1 blob
sn#177051 filedate 1975-09-16 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 EQU
XWD 777777,EQU
XWD BXPROC+INTEGR,247
ASCII /EQU/
0
4
400000+1
EXTERNAL CVS
XWD 777777,CVS
XWD BXPROC+STRING,266
ASCII /CVS/
0
4
400000+1
EXTERNAL CVD
XWD 777777,CVD
XWD BXPROC+INTEGR,304
ASCII /CVD/
0
4
400000+1
EXTERNAL SCAN
XWD 777777,SCAN
XWD BXPROC+STRING,322
ASCII /SCAN/
0
4
400000+2
EXTERNAL RELEASE
XWD 777777,RELEASE
XWD BXPROC+UNTYPE,343
ASCII /RELEASE/
0
4
400000+2
EXTERNAL LINOUT
XWD 777777,LINOUT
XWD BXPROC+UNTYPE,363
ASCII /LINOUT/
0
4
400000+1
EXTERNAL CLOSE
XWD 777777,CLOSE
XWD BXPROC+UNTYPE,402
ASCII /CLOSE/
0
4
400000+1
EXTERNAL CLOSO
XWD 777777,CLOSO
XWD BXPROC+UNTYPE,421
ASCII /CLOSO/
0
4
400000+2
EXTERNAL CLOSIN
XWD 777777,CLOSIN
XWD BXPROC+UNTYPE,441
ASCII /CLOSIN/
0
4
400000+1
EXTERNAL CVOS
XWD 777777,CVOS
XWD BXPROC+STRING,460
ASCII /CVOS/
0
4
400000+1
EXTERNAL ENTER
XWD 777777,ENTER
XWD BXPROC+UNTYPE,476
ASCII /ENTER/
0
4
400000+1
EXTERNAL MTAPE
XWD 777777,MTAPE
XWD BXPROC+UNTYPE,516
ASCII /MTAPE/
0
4
400000+2
EXTERNAL WORDIN
XWD 777777,WORDIN
XWD BXPROC+INTEGR,536
ASCII /WORDIN/
0
4
400000+2
EXTERNAL WORDOUT
XWD 777777,WORDOUT
XWD BXPROC+UNTYPE,555
ASCII /WORDOUT/
0
4
400000+1
EXTERNAL CVO
XWD 777777,CVO
XWD BXPROC+INTEGR,574
ASCII /CVO/
0
4
400000+1
EXTERNAL USETI
XWD 777777,USETI
XWD BXPROC+UNTYPE,612
ASCII /USETI/
0
4
400000+1
EXTERNAL USETO
XWD 777777,USETO
XWD BXPROC+UNTYPE,631
ASCII /USETO/
0
4
400000+1
EXTERNAL CVSIX
XWD 777777,CVSIX
XWD BXPROC+INTEGR,650
ASCII /CVSIX/
0
4
400000+1
EXTERNAL CVFIL
XWD 777777,CVFIL
XWD BXPROC+INTEGR,666
ASCII /CVFIL/
0
4
400000+1
EXTERNAL CALL
XWD 777777,CALL
XWD BXPROC+INTEGR,706
ASCII /CALL/
0
4
400000+2
EXTERNAL RENAME
XWD 777777,RENAME
XWD BXPROC+UNTYPE,726
ASCII /RENAME/
0
4
400000+2
EXTERNAL ERENAME
XWD 777777,ERENAME
XWD BXPROC+UNTYPE,750
ASCII /ERENAME/
0
4
400000+2
EXTERNAL EDFILE
XWD 777777,EDFILE
XWD BXPROC+UNTYPE,775
ASCII /EDFILE/
0
4
400000+1
EXTERNAL CVASC
XWD 777777,CVASC
XWD BXPROC+INTEGR,1016
ASCII /CVASC/
0
4
400000+1
EXTERNAL CVSTR
XWD 777777,CVSTR
XWD BXPROC+STRING,1034
ASCII /CVSTR/
0
4
400000+2
EXTERNAL CVASTR
XWD 777777,CVASTR
XWD BXPROC+STRING,1053
ASCII /CVASTR/
0
4
400000+2
EXTERNAL CVXSTR
XWD 777777,CVXSTR
XWD BXPROC+STRING,1072
ASCII /CVXSTR/
0
4
400000+2
EXTERNAL CV6STR
XWD 777777,CV6STR
XWD BXPROC+STRING,1111
ASCII /CV6STR/
0
4
400000+1
EXTERNAL .SUBSR
XWD 777777,.SUBSR
XWD BXPROC+STRING,1127
ASCII /SUBSR/
0
4
400000+1
EXTERNAL .SUBST
XWD 777777,.SUBST
XWD BXPROC+STRING,1147
ASCII /SUBST/
0
4
400000+2
EXTERNAL SETBREAK
XWD 777777,SETBREAK
XWD BXPROC+UNTYPE,1170
ASCII /SETBREAK/
0
4
400000+2
EXTERNAL GETBREAK
XWD 777777,GETBREAK
XWD BXPROC+INTEGR,1212
ASCII /GETBREAK/
0
4
400000+2
EXTERNAL RELBREAK
XWD 777777,RELBREAK
XWD BXPROC+UNTYPE,1230
ASCII /RELBREAK/
0
4
400000+2
EXTERNAL STDBRK
XWD 777777,STDBRK
XWD BXPROC+UNTYPE,1247
ASCII /STDBRK/
0
4
400000+2
EXTERNAL ARRYIN
XWD 777777,ARRYIN
XWD BXPROC+UNTYPE,1266
ASCII /ARRYIN/
0
4
400000+2
EXTERNAL ARRYOUT
XWD 777777,ARRYOUT
XWD BXPROC+UNTYPE,1307
ASCII /ARRYOUT/
0
4
400000+2
EXTERNAL SETFORMAT
XWD 777777,SETFORMAT
XWD BXPROC+UNTYPE,1330
ASCII /SETFORMAT/
0
4
400000+1
EXTERNAL CVG
XWD 777777,CVG
XWD BXPROC+STRING,1347
ASCII /CVG/
0
4
400000+1
EXTERNAL CVF
XWD 777777,CVF
XWD BXPROC+STRING,1365
ASCII /CVF/
0
4
400000+1
EXTERNAL CVE
XWD 777777,CVE
XWD BXPROC+STRING,1403
ASCII /CVE/
0
4
400000+2
EXTERNAL REALIN
XWD 777777,REALIN
XWD BXPROC+FLOTNG,1422
ASCII /REALIN/
0
4
400000+1
EXTERNAL INTIN
XWD 777777,INTIN
XWD BXPROC+INTEGR,1440
ASCII /INTIN/
0
4
400000+2
EXTERNAL REALSCAN
XWD 777777,REALSCAN
XWD BXPROC+FLOTNG,1457
ASCII /REALSCAN/
0
4
400000+2
EXTERNAL INTSCAN
XWD 777777,INTSCAN
XWD BXPROC+INTEGR,1477
ASCII /INTSCAN/
0
4
400000+2
EXTERNAL ARRINFO
XWD 777777,ARRINFO
XWD BXPROC+INTEGR,1517
ASCII /ARRINFO/
0
4
400000+2
EXTERNAL ARRBLT
XWD 777777,ARRBLT
XWD BXPROC+UNTYPE,1537
ASCII /ARRBLT/
0
4
400000+2
EXTERNAL ARRTRAN
XWD 777777,ARRTRAN
XWD BXPROC+UNTYPE,1560
ASCII /ARRTRAN/
0
4
400000+2
EXTERNAL ARRCLR
XWD 777777,ARRCLR
XWD BXPROC+UNTYPE,1600
ASCII /ARRCLR/
0
4
400000+1
EXTERNAL CODE
XWD 777777,CODE
XWD BXPROC+INTEGR,1617
ASCII /CODE/
0
4
400000+2
EXTERNAL USERERR
XWD 777777,USERERR
XWD BXPROC+UNTYPE,1637
ASCII /USERERR/
0
4
400000+2
EXTERNAL ERMSBF
XWD 777777,ERMSBF
XWD BXPROC+UNTYPE,1661
ASCII /ERMSBF/
0
4
400000+1
EXTERNAL CVSI
XWD 777777,CVSI
XWD BXPROC+ITMVAR,1677
ASCII /CVSI/
0
4
400000+1
EXTERNAL CVIS
XWD 777777,CVIS
XWD BXPROC+STRING,1716
ASCII /CVIS/
0
4
400000+2
EXTERNAL NEW.PNAME
XWD 777777,NEW.PNAME
XWD BXPROC+UNTYPE,1736
ASCII /NEW_PNAME/
0
4
400000+2
EXTERNAL DEL.PNAME
XWD 777777,DEL.PNAME
XWD BXPROC+UNTYPE,1756
ASCII /DEL_PNAME/
0
4
400000+2
EXTERNAL TYPEIT
XWD 777777,TYPEIT
XWD BXPROC+INTEGR,1775
ASCII /TYPEIT/
0
4
400000+1
EXTERNAL LISTX
XWD 777777,LISTX
XWD BXPROC+INTEGR,2013
ASCII /LISTX/
0
4
400000+2
EXTERNAL INCHRW
XWD 777777,INCHRW
XWD BXPROC+INTEGR,2034
ASCII /INCHRW/
0
4
400000+2
EXTERNAL INCHRS
XWD 777777,INCHRS
XWD BXPROC+INTEGR,2052
ASCII /INCHRS/
0
4
400000+2
EXTERNAL INCHWL
XWD 777777,INCHWL
XWD BXPROC+STRING,2070
ASCII /INCHWL/
0
4
400000+2
EXTERNAL INCHSL
XWD 777777,INCHSL
XWD BXPROC+STRING,2106
ASCII /INCHSL/
0
4
400000+1
EXTERNAL INSTR
XWD 777777,INSTR
XWD BXPROC+STRING,2124
ASCII /INSTR/
0
4
400000+2
EXTERNAL INSTRL
XWD 777777,INSTRL
XWD BXPROC+STRING,2143
ASCII /INSTRL/
0
4
400000+2
EXTERNAL INSTRS
XWD 777777,INSTRS
XWD BXPROC+STRING,2162
ASCII /INSTRS/
0
4
400000+1
EXTERNAL TTYIN
XWD 777777,TTYIN
XWD BXPROC+STRING,2201
ASCII /TTYIN/
0
4
400000+2
EXTERNAL TTYINL
XWD 777777,TTYINL
XWD BXPROC+STRING,2221
ASCII /TTYINL/
0
4
400000+2
EXTERNAL TTYINS
XWD 777777,TTYINS
XWD BXPROC+STRING,2241
ASCII /TTYINS/
0
4
400000+2
EXTERNAL OUTCHR
XWD 777777,OUTCHR
XWD BXPROC+UNTYPE,2261
ASCII /OUTCHR/
0
4
400000+2
EXTERNAL OUTSTR
XWD 777777,OUTSTR
XWD BXPROC+UNTYPE,2300
ASCII /OUTSTR/
0
4
400000+2
EXTERNAL $PRINT
XWD 777777,$PRINT
XWD BXPROC+STRING,2317
ASCII /$PRINT/
0
4
400000+2
EXTERNAL GETFORMAT
XWD 777777,GETFORMAT
XWD BXPROC+UNTYPE,2337
ASCII /GETFORMAT/
0
4
400000+2
EXTERNAL GETCHAN
XWD 777777,GETCHAN
XWD BXPROC+INTEGR,2357
ASCII /GETCHAN/
0
4
400000+2
EXTERNAL FILEINFO
XWD 777777,FILEINFO
XWD BXPROC+UNTYPE,2375
ASCII /FILEINFO/
0
4
400000+2
EXTERNAL USERCON
XWD 777777,USERCON
XWD BXPROC+UNTYPE,2414
ASCII /USERCON/
0
4
400000+2
EXTERNAL CHNCDB
XWD 777777,CHNCDB
XWD BXPROC+INTEGR,2435
ASCII /CHNCDB/
0
4
400000+2
EXTERNAL MAINPR
XWD 777777,MAINPR
XWD BXPROC+UNTYPE,2454
ASCII /MAINPR/
0
4
400000+2
EXTERNAL RESUME
XWD 777777,RESUME
XWD BXPROC+ITMVAR,2472
ASCII /RESUME/
0
4
400000+2
EXTERNAL ASKNTC
XWD 777777,ASKNTC
XWD BXPROC+ITMVAR,2513
ASCII /ASKNTC/
0
4
400000+2
EXTERNAL CAUSE1
XWD 777777,CAUSE1
XWD BXPROC+ITMVAR,2533
ASCII /CAUSE1/
0
4
400000+2
EXTERNAL MKEVTT
XWD 777777,MKEVTT
XWD BXPROC+UNTYPE,2554
ASCII /MKEVTT/
0
4
400000+1
EXTERNAL JOIN
XWD 777777,JOIN
XWD BXPROC+UNTYPE,2572
ASCII /JOIN/
0
4
400000+2
EXTERNAL SUSPEND
XWD 777777,SUSPEND
XWD BXPROC+ITMVAR,2611
ASCII /SUSPEND/
0
4
400000+2
EXTERNAL TERMINATE
XWD 777777,TERMINATE
XWD BXPROC+UNTYPE,2630
ASCII /TERMINATE/
0
4
400000+2
EXTERNAL MYPROC
XWD 777777,MYPROC
XWD BXPROC+ITMVAR,2647
ASCII /MYPROC/
0
4
400000+2
EXTERNAL CALLER
XWD 777777,CALLER
XWD BXPROC+ITMVAR,2665
ASCII /CALLER/
0
4
400000+2
EXTERNAL INTSET
XWD 777777,INTSET
XWD BXPROC+UNTYPE,2704
ASCII /INTSET/
0
4
400000+2
EXTERNAL INTTBL
XWD 777777,INTTBL
XWD BXPROC+UNTYPE,2724
ASCII /INTTBL/
0
4
400000+2
EXTERNAL INTMOD
XWD 777777,INTMOD
XWD BXPROC+UNTYPE,2743
ASCII /INTMOD/
0
4
400000+2
EXTERNAL CLKMOD
XWD 777777,CLKMOD
XWD BXPROC+UNTYPE,2761
ASCII /CLKMOD/
0
4
400000+2
EXTERNAL DFRINT
XWD 777777,DFRINT
XWD BXPROC+UNTYPE,2777
ASCII /DFRINT/
0
4
400000+2
EXTERNAL DDFINT
XWD 777777,DDFINT
XWD BXPROC+UNTYPE,3015
ASCII /DDFINT/
0
4
400000+2
EXTERNAL DFR1IN
XWD 777777,DFR1IN
XWD BXPROC+UNTYPE,3033
ASCII /DFR1IN/
0
4
400000+2
EXTERNAL ENABLE
XWD 777777,ENABLE
XWD BXPROC+UNTYPE,3052
ASCII /ENABLE/
0
4
400000+2
EXTERNAL DISABLE
XWD 777777,DISABLE
XWD BXPROC+UNTYPE,3071
ASCII /DISABLE/
0
4
400000+2
EXTERNAL INTMAP
XWD 777777,INTMAP
XWD BXPROC+UNTYPE,3110
ASCII /INTMAP/
0
4
400000+2
EXTERNAL DFCPKT
XWD 777777,DFCPKT
XWD BXPROC+INTEGR,3131
ASCII /DFCPKT/
0
4
400000+2
EXTERNAL URSCHD
XWD 777777,URSCHD
XWD BXPROC+INTEGR,3153
ASCII /URSCHD/
0
4
400000+2
EXTERNAL PRISET
XWD 777777,PRISET
XWD BXPROC+UNTYPE,3171
ASCII /PRISET/
0
4
400000+2
EXTERNAL PSTATUS
XWD 777777,PSTATUS
XWD BXPROC+INTEGR,3211
ASCII /PSTATUS/
0
4
400000+2
EXTERNAL INTPRO
XWD 777777,INTPRO
XWD BXPROC+UNTYPE,3230
ASCII /INTPRO/
0
4
400000+2
EXTERNAL ANSWER
XWD 777777,ANSWER
XWD BXPROC+INTEGR,3246
ASCII /ANSWER/
0
4
400000+1
EXTERNAL LOG$
XWD 777777,LOG$
XWD BXPROC+FLOTNG,3266
ASCII /LOG/
0
4
400000+1
EXTERNAL EXP$
XWD 777777,EXP$
XWD BXPROC+FLOTNG,3304
ASCII /EXP/
0
4
400000+1
EXTERNAL SIN$
XWD 777777,SIN$
XWD BXPROC+FLOTNG,3322
ASCII /SIN/
0
4
400000+1
EXTERNAL SIND$
XWD 777777,SIND$
XWD BXPROC+FLOTNG,3340
ASCII /SIND/
0
4
400000+1
EXTERNAL COS$
XWD 777777,COS$
XWD BXPROC+FLOTNG,3356
ASCII /COS/
0
4
400000+1
EXTERNAL COSD$
XWD 777777,COSD$
XWD BXPROC+FLOTNG,3374
ASCII /COSD/
0
4
400000+1
EXTERNAL SQRT$
XWD 777777,SQRT$
XWD BXPROC+FLOTNG,3412
ASCII /SQRT/
0
4
400000+1
EXTERNAL ATAN2$
XWD 777777,ATAN2$
XWD BXPROC+FLOTNG,3430
ASCII /ATAN2/
0
4
400000+1
EXTERNAL ATAN$
XWD 777777,ATAN$
XWD BXPROC+FLOTNG,3447
ASCII /ATAN/
0
4
400000+1
EXTERNAL ACOS$
XWD 777777,ACOS$
XWD BXPROC+FLOTNG,3465
ASCII /ACOS/
0
4
400000+1
EXTERNAL ASIN$
XWD 777777,ASIN$
XWD BXPROC+FLOTNG,3503
ASCII /ASIN/
0
4
400000+1
EXTERNAL TANH$
XWD 777777,TANH$
XWD BXPROC+FLOTNG,3521
ASCII /TANH/
0
4
400000+1
EXTERNAL COSH$
XWD 777777,COSH$
XWD BXPROC+FLOTNG,3537
ASCII /COSH/
0
4
400000+1
EXTERNAL SINH$
XWD 777777,SINH$
XWD BXPROC+FLOTNG,3555
ASCII /SINH/
0
4
400000+1
EXTERNAL RAN$
XWD 777777,RAN$
XWD BXPROC+FLOTNG,3573
ASCII /RAN/
0
4
400000+2
EXTERNAL TRIGINI
XWD 777777,TRIGINI
XWD BXPROC+UNTYPE,3612
ASCII /TRIGINI/
0
4
400000+2
EXTERNAL GETSTS
XWD 777777,GETSTS
XWD BXPROC+INTEGR,3631
ASCII /GETSTS/
0
4
400000+2
EXTERNAL SETSTS
XWD 777777,SETSTS
XWD BXPROC+UNTYPE,3650
ASCII /SETSTS/
0
4
400000+1
EXTERNAL INOUT
XWD 777777,INOUT
XWD BXPROC+UNTYPE,3667
ASCII /INOUT/
0
4
400000+1
EXTERNAL TTYUP
XWD 777777,TTYUP
XWD BXPROC+INTEGR,3707
ASCII /TTYUP/
0
4
400000+2
EXTERNAL CLRBUF
XWD 777777,CLRBUF
XWD BXPROC+UNTYPE,3726
ASCII /CLRBUF/
0
4
400000+2
EXTERNAL PTYGET
XWD 777777,PTYGET
XWD BXPROC+INTEGR,3744
ASCII /PTYGET/
0
4
400000+2
EXTERNAL PTYREL
XWD 777777,PTYREL
XWD BXPROC+UNTYPE,3762
ASCII /PTYREL/
0
4
400000+2
EXTERNAL PTYGTL
XWD 777777,PTYGTL
XWD BXPROC+INTEGR,4001
ASCII /PTYGTL/
0
4
400000+2
EXTERNAL PTYSTL
XWD 777777,PTYSTL
XWD BXPROC+UNTYPE,4020
ASCII /PTYSTL/
0
4
400000+2
EXTERNAL PTIFRE
XWD 777777,PTIFRE
XWD BXPROC+INTEGR,4040
ASCII /PTIFRE/
0
4
400000+2
EXTERNAL PTOCNT
XWD 777777,PTOCNT
XWD BXPROC+INTEGR,4057
ASCII /PTOCNT/
0
4
400000+2
EXTERNAL PTCHRW
XWD 777777,PTCHRW
XWD BXPROC+INTEGR,4076
ASCII /PTCHRW/
0
4
400000+2
EXTERNAL PTCHRS
XWD 777777,PTCHRS
XWD BXPROC+INTEGR,4115
ASCII /PTCHRS/
0
4
400000+2
EXTERNAL PTOCHS
XWD 777777,PTOCHS
XWD BXPROC+UNTYPE,4134
ASCII /PTOCHS/
0
4
400000+2
EXTERNAL PTOCHW
XWD 777777,PTOCHW
XWD BXPROC+UNTYPE,4154
ASCII /PTOCHW/
0
4
400000+2
EXTERNAL PTOSTR
XWD 777777,PTOSTR
XWD BXPROC+UNTYPE,4174
ASCII /PTOSTR/
0
4
400000+2
EXTERNAL BACKUP
XWD 777777,BACKUP
XWD BXPROC+UNTYPE,4214
ASCII /BACKUP/
0
4
400000+1
EXTERNAL LODED
XWD 777777,LODED
XWD BXPROC+UNTYPE,4231
ASCII /LODED/
0
4
400000+2
EXTERNAL PTYALL
XWD 777777,PTYALL
XWD BXPROC+STRING,4250
ASCII /PTYALL/
0
4
400000+2
EXTERNAL PTYSTR
XWD 777777,PTYSTR
XWD BXPROC+STRING,4267
ASCII /PTYSTR/
0
4
400000+1
EXTERNAL PTYIN
XWD 777777,PTYIN
XWD BXPROC+STRING,4306
ASCII /PTYIN/
0
4
400000+2
EXTERNAL IFGLOBAL
XWD 777777,IFGLOBAL
XWD BXPROC+INTEGR,4327
ASCII /IFGLOBAL/
0
4
400000+1
EXTERNAL ISSUE
XWD 777777,ISSUE
XWD BXPROC+INTEGR,4345
ASCII /ISSUE/
0
4
400000+1
EXTERNAL QUEUE
XWD 777777,QUEUE
XWD BXPROC+INTEGR,4366
ASCII /QUEUE/
0
4
400000+2
EXTERNAL GET.DATA
XWD 777777,GET.DATA
XWD BXPROC+STRING,4406
ASCII /GET_DATA/
0
4
400000+2
EXTERNAL PUT.DATA
XWD 777777,PUT.DATA
XWD BXPROC+UNTYPE,4426
ASCII /PUT_DATA/
0
4
400000+2
EXTERNAL GET.BIT
XWD 777777,GET.BIT
XWD BXPROC+INTEGR,4447
ASCII /GET_BIT/
0
4
400000+2
EXTERNAL GET.ENTRY
XWD 777777,GET.ENTRY
XWD BXPROC+INTEGR,4466
ASCII /GET_ENTRY/
0
4
400000+2
EXTERNAL GET.SET
XWD 777777,GET.SET
XWD BXPROC+SET,4510
ASCII /GET_SET/
0
-1
$END: 0 ;FUCK THE STANFORD PETIT CHANNEL!!!!!
BEND PD8SM1
END START