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