Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-08 - decus/20-0176/sf2vx3.in
There are 6 other files named sf2vx3.in in the archive. Click here to see a list.
)CLEAR
)WSID SF2VX3

.dl Z _ {A} .ld.usEN B;.bxTRAP
.bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
.go (0 = .bxNC 'A')/M
Z _ A .en B  .dm  .go 0
M: Z _ .bxVR B
.dl

.dl Z _ {A} .ld.usDE B;.bxTRAP
.bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
.go (0 = .bxNC 'A')/M
Z _ A .de B  .dm  .go 0
M: Z _ .ep B
.dl

.dl Z _ {A} .ld.usOM B;.bxTRAP
.go (0 = .bxNC 'A')/M
'NO DYADIC FORM OF FUNCTION' .bxSIGNAL 7
M: .bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
.xq (.or/,(1.neB)&0.neB)/'''NOT BOOLEAN'' .bxSIGNAL 15'
Z _ B / .io.ro1/B
.dl

.dl Z _ {A} .ld.usDQ B;.bxCT;.bxTRAP
.bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
.bxCT _ 0.22204460E.NG15
.go (0 = .bxNC 'A')/M
Z _ A .dq B  .dm  .go 0
M: Z _ .dq B
.dl

.dl Z _ {A} .ld.usAB B;.bxCT;.bxTRAP
.bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
.bxCT _ 0
.go (0 = .bxNC 'A')/M
Z _ A | B  .dm  .go 0
M: Z _ | B
.dl

.dl Z _ {A} .ld.usIB B;.bxTRAP;.bxIO;S;T
.go (0 = .bxNC 'A')/M
'DYADIC .ib NOT SUPPORTED' .bxSIGNAL 7
E: ('UNSUPPORTED .ib', .fmB) .bxSIGNAL 7
M: .bxIO _ 1
.go ((B < 18) .or B > 33)/E
.bxTRAP _ '.bxSIGNAL .bxFI 4^.bxERROR'
T _ 24 60 60 1000
.go (L18,L19,L20,L21,L22,L23,L24,L25,L26,L27,L28,L29,L30,L31,L32,L33)[B-17]
L18: Z _ 0                                   .dm  .go 0 " CONDITION OF WS
L19: Z _ .bxAI[4]                            .dm  .go 0 " KEYING TIME (SEC%60)
L20: Z _ .fl.5+.06# T.de3.da.bxTS            .dm  .go 0 " TIME OF DAY (SEC%60)
L21: Z _ .fl.5+.06 # .bxAI[2]                .dm  .go 0 " CPU TIME (SEC%60)
L22: Z _ .bxWA % 4                           .dm  .go 0 " IN WORDS
L23: Z _ .bxUL                               .dm  .go 0 " JOB NUMBER
L24: Z _ .fl.5+.06#86400000.ab(T.de3.da.bxTS)-.bxAI[3]
                                                  .go 0 " SIGNON TIME (SEC%60)
L25: Z _ 100 .de .bxTS[2 3 1] - 0 0 1900     .dm  .go 0 " DATE MMDDYY
L26: Z _ 1^1.da.bxLC                         .dm  .go 0 " CURRENT LINE NUMBER
L27: Z _ 1.da.bxLC                           .dm  .go 0 " ALL LINE NUMBERS
L28: Z _ 2 = .bxTT                           .dm  .go 0 " TERM CHAR SET
L29: Z _ (0 2 * 16) .en 1^.bxAI              .dm  .go 0 " PROJ,PROG IN DECIMAL
L30: .bxRESET                                           " CLEAR SI STACK
L31: S _ ((T = .bxCTRL[11])/.io.roT _ .ep ')CHARGE')[2]
     Z _ (.bxFI S .da T)[1]                  .dm  .go 0 " # OF STATEMENTS
L32: S _ ((T = .bxCTRL[11])/.io.roT _ .ep ')CHARGE')[2]
     Z _ (.bxFI S .da T)[3]                  .dm  .go 0 " # OF OPERATIONS
L33: Z _ 0                                   .dm  .go 0 " KILO-CORE SECONDS
.dl

.dl Z _ A .ld.usAPPEND B
.bxBREAK '.bxAPPEND NOT AVAILABLE IN VAX APL'
.dl

.dl Z _ .ld.usASCII;.bxIO
.bxIO _ 1
Z _ .bxctrl [.io32], .bxAV [.ldav [380 + .io95]], .bxCTRL [33]
.dl

.dl Z _ .ld.usASS B ;T;I;.bxIO
.bxIO_1
.go(0=1^0.roB)/L1
.go('['.epB)/L2
T_B
L0: .go((.roT).geI_T.io'/')/L3
.go((.roB)<T_B.io'-')/L1
.bxBREAK '.bxASS FILE SPEC CONTAINING PASSWORD IS UNSUPPORTED'
L1: Z_.ep'.bxASS ''',(.fmB),''''
.go(.nt0.ep.roZ)/0
.bxBREAK .bxERROR
l2: .bxBREAK '.bxASS FILE SPEC CONTAINING PPN IS UNSUPPORTED'
l3: .go((2^T_I.daT)&.='BS')/L4
.go((4^T)&.='DUMP')/L5
.goL0
L4: .bxBREAK '.bxASS FILE SPEC CONTAINING /BS IS UNSUPPORTED'
L5: .bxBREAK '.bxASS FILE SPEC CONTAINING /DUMP IS UNSUPPORTED'
.dl

.dl Z _ .ld.usAV;.bxIO
.bxIO _ 1
Z _ .bxAV [.ldav]
.dl

.dl Z _ .ld.usCHS B;T
B[T]_100-B[T_(B>100)/.io.roB_,B]
.xq (0 = .roB)/'B _ .bxCHANS'
Z _ .bxCHS B
.dl

.dl Z _ A .ld.usCIQ B
.bxBREAK '.bxCIQ IN VAX APL INCOMPATIBLE WITH APLSF'
.dl

.dl Z _ .ld.usCLS B;T
B[T]_100-B[T_(B>100)/.io.roB_,B]
.xq (0 = .roB)/'B _ .bxCHANS'
Z _ .bxCLS B
.dl

.dl Z _ A .ld.usCOQ B
.bxBREAK '.bxCOQ IN VAX APL INCOMPATIBLE WITH APLSF'
.dl

.dl Z _ .ld.usDAS B;T
B[T]_100-B[T_(B>100)/.io.roB_,B]
.xq (0 = .roB)/'B _ .bxCHANS'
Z _ .bxDAS B
.dl

.dl Z _ .ld.usDEQ B
.bxBREAK '.bxDEQ NOT AVAILABLE IN VAX APL'
.dl

.dl Z _ .ld.usDVC B
.bxBREAK '.bxDVC IN VAX APL INCOMPATIBLE WITH APLSF'
.dl

.dl Z _ .ld.usENQ B
.bxBREAK '.bxENQ NOT AVAILABLE IN VAX APL'
.dl

.dl Z _ .ld.usFCM B
.bxBREAK '.bxFCM NOT AVAILABLE IN VAX APL'
.dl

.dl Z _ .ld.usFLS B;T
B[T]_100-B[T_(B>100)/.io.roB_,B]
.xq (0 = .roB)/'B _ .bxCHANS'
Z _ .bxFLS B
.dl

.dl Z _ .ld.usMTP B
.bxBREAK '.bxMTP NOT AVAILABLE IN VAX APL'
.dl

.dl Z _ .ld.usQCO B;T;.bxIO
.bxIO_1
.go ((.roB) < T _ B .io '-') / L
B _ ((T-1)^B), '/PASSWORD=', T.daB
L: Z _ .ep '.bxQCO ', B
.go (.nt 0 .ep .roZ) / 0
.bxBREAK .bxERROR
.dl

.dl Z _ .ld.usQLD B;T;.bxIO
.bxIO_1
.go ((.roB) < T _ B .io '-') / L
B _ ((T-1)^B), '/PASSWORD=', T.daB
L: Z _ .ep '.bxQLD ', B
.go (.nt 0 .ep .roZ) / 0
.bxBREAK .bxERROR
.dl

.dl Z _ .ld.usQPC B;T;.bxIO
.bxIO_1
.go ((.roB) < T _ B .io '-') / L
B _ ((T-1)^B), '/PASSWORD=', T.daB
L: Z _ .ep '.bxQPC ', B
.go (.nt 0 .ep .roZ) / 0
.bxBREAK .bxERROR
.dl

.dl Z _ F .ld.usRENAME C;O;M;T;.bxIO
.bxIO_1
T _ (.ntM_.or\O='/')/O _ .bxASS C
T _ T , (.nt '.' .ep T)/(4 3 .ro 'AASAISAIXARF')[1 2 4 7 .io ''.ro.bxCHS C;]
.bxSINK _ .ep ')DO RENAME ', T, ' ', F
Z _ 'WAS ', T
.bxDAS C
.bxSINK _ .bxASS (.FMC),' ',F,M/O
.dl

.dl Z _ .ld.usTT;.bxIO
.bxIO _ 1
"	IF VAX APL .BXTT IS		THEN .LD.USTT RETURNS
"	 2 == TTY			0 == TTY
"	 3 == GIGI			2 == LA OR TEKTRONIX
"	 4 == LA			2 == LA OR TEKTRONIX
"	 5 == KEY			3 == KEY
"	 6 == BIT			4 == BIT
"	 7 == RESERVED			9 == RESERVED (SHOULD NEVER HAPPEN)
"	 8 == VT102-PA/RA		2 == LA OR TEKTRONIX
"	 9 == RESERVED			9 == RESERVED (SHOULD NEVER HAPPEN)
"	10 == RESERVED			9 == RESERVED (SHOULD NEVER HAPPEN)
"	11 == TEKTRONIX 4013		2 == LA OR TEKTRONIX
"	12 == TEKTRONIX 4015		2 == LA OR TEKTRONIX
Z _ (0 2 2 3 4 9 2 9 9 2 2)[.bxTT - 1]
.dl

.ldav_251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,188 204 205 190 196 203 202 201 189 198 199 206 208 209 251 200
.ldav_.ldav,197 194 195 193 127 211 191 192 251 251 251 251 251 251 34 36
.ldav_.ldav,37 95 39 82 88 70 83 90 86 74 66 84 69 59 35 60
.ldav_.ldav,40 91 89 87 71 251 251 251 92 94 77 43 38 68 67 42
.ldav_.ldav,41 85 48 64 81 62 44 46 96 80 78 61 45 75 79 72
.ldav_.ldav,63 76 9 11 211 14 211 33 156 13 10 251 47 65 251 156
.ldav_.ldav,211 93 211 211 211 97 124 125 126 211 211 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
.ldav_.ldav,17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,49 50 51 52 53 54 55 56 57 58 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251
.ldav_.ldav,73 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112
.ldav_.ldav,113 114 115 116 117 118 119 120 121 122 123 251 33 188 157 158
.ldav_.ldav,127 159 160 76 59 35 81 46 45 96 47 48 49 50 51 52
.ldav_.ldav,53 54 55 56 57 58 63 61 36 38 39 82 156 98 99 100
.ldav_.ldav,101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116
.ldav_.ldav,117 118 119 120 121 122 123 60 64 40 90 92 129 130 131 132
.ldav_.ldav,133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
.ldav_.ldav,149 150 151 152 153 154 155 124 78 126 85 128 251 251 251 251
.ldav_.ldav,161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176
.ldav_.ldav,177 178 179 180 181 182 183 184 185 186 187 251 251 251 251 251

)SAVE