File: CCLSB3.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
PAGE LINE SUBTITLE
3 128 TALK ROUTINE
11 374 VERSION COMMAND
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL SUBROUTINES 3 FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 / CCL SUBROUTINES PART 3
8 / VERSION=5A
9
10 .ENTRY LGISUB,LGOSUB,TLKSUB
11 .ENTRY VERTN
12 .EXTERNAL ERROR,PRINT,PRWD,LEAVE,CRLF
13 .EXTERNAL RDMON,LISPRT,VMES,MMES,ZEROCD
14
117
118 IFDEF GERMAN < PASWRD="B^2+"I^2+"T^2+"T^2+"E^2 / >
119 2256 IFNDEF GERMAN < PASWRD="P^2+"L^2+"E^2+"A^2+"S^2+"E^2 / >
120
121 0007 ACCRST=7 /GIANT IOT CODE FOR ACCOUNT RESET
122 0010 ACCRD=10 /GIANT IOT CODE FOR READ ACCOUNT
123
124 0000 .RSECT CCLSB3
125 0001 FIELD 1
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 3
FILE # 1
126
127
128 .SBTTL TALK ROUTINE
129
130 10000 0000 TLKSUB, 0
131 10001 4211 JMS M8CHK
132 10002 6201 CDF 0
133 10003 7307 CLA CLL IAC RTL /4
134 10004 6770 GIOT
135 10005 1000 BEGLN /PREPARE FUTURE
136 10006 7200 CLA
137 10007 6211 CDF 10
138 10010 5600 JMP I TLKSUB
139
140 10011 0000 M8CHK, 0
141 10012 6254 SM8 /IS MULTI8 ENABLED?
142 10013 4777 JMS I (ERROR
143 10014 0033 27. /#Only under Multi8
144 10015 7200 CLA
145 10016 5611 JMP I M8CHK
146
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 4
TALK ROUTINE FILE # 1
147
148
149 10017 0000 LGOSUB, 0
150 10020 6254 SM8
151 10021 7610 SKP CLA
152 10022 4776 JMS I (BILL /TELL HIM HOW MUCH TIME HE USED
153 10023 4775 JMS I (NOBATC /KILL BATCH IF RUNNING
154 10024 4774 JMS I (SUBMIT
155 10025 0027 + .+2
156 10026 5617 JMP I LGOSUB
157 10027 1417 FILENAME LOGOUT.BI
10030 0717
10031 2524
10032 0211
158
159 10033 0000 LGISUB, 0
160 10034 4775 JMS I (NOBATC /KILL BATCH IF RUNNING
161 10035 7200 HELLO1, CLA /USER TRAP ADDRESS
162 10036 4773 JMS I (CRLF
163 10037 1372 TAD (HELLO1 /ADD NORM TRAP
164 10040 6201 CDF 0 /7600 4207 JMP 7605
165 10041 3771 DCA I (7602 /7601 5000 5000
166 10042 1370 TAD (7605&177+5200 /7602 0000 HELLO1
167 10043 3767 DCA I (7600 /7603 0033 0033
168 10044 1366 TAD (7602&177+5600 /7604 7602 7602
169 10045 3765 DCA I (7606 /7605 6203 6203
170 10046 6211 CDF 10 /7606 5267 JMP I 7602
171 10047 7326 CLA STL RTL /NO ECHO = 2
172 10050 6770 GIOT
173 10051 4764 JMS I (PRINT /PRINT CLEARS AC
174 10052 0237 + PASMES
175 10053 3020 DCA T
176 10054 4763 GETLOP, JMS I (GET /GET CHAR FROM KB
177 10055 1362 TAD (-215
178 10056 7450 SNA
179 10057 5265 JMP GOTNAM
180 10060 1361 TAD (215
181 10061 1020 TAD T
182 10062 7104 CLL RAL
183 10063 3020 DCA T /BUILD PASSWORD
184 10064 5254 JMP GETLOP
185 10065 1020 GOTNAM, TAD T
186 10066 1360 TAD (-PASWRD
187 10067 7640 SZA CLA
188 10070 5235 JMP HELLO1 /NO GOOD, TRY ON AND ON
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 5
TALK ROUTINE FILE # 1
189
190
191 10071 6201 CDF 0 /OK, REMOVE TRAP
192 10072 1357 TAD (4207
193 10073 3767 DCA I (7600
194 10074 3771 DCA I (7602
195 10075 1356 TAD (5267
196 10076 3765 DCA I (7606
197 10077 6211 CDF 10
198 10100 1355 TAD (ACCRST
199 10101 6770 GIOT /RESET ACCOUNT INFO
200 10102 7325 CLA IAC STL RAL /ECHO = 3
201 10103 6770 GIOT
202 10104 7200 CLA /CLEAR AC
203 10105 4773 JMS I (CRLF
204 10106 4754 JMS I (VERTN /VERSION MESSAGE
205 10107 4774 JMS I (SUBMIT
206 10110 0112 + .+2
207 10111 5633 JMP I LGISUB
208 10112 1417 FILENAME LOGIN.BI
10113 0711
10114 1600
10115 0211
209
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 6
TALK ROUTINE FILE # 1
210
211
------
10154 0600 +
10155 0007
10156 5267
10157 4207
10160 5522
10161 0215
10162 7563
10163 0510 +
10164 0000 *
10165 7606
10166 5602
10167 7600
10170 5205
10171 7602
10172 0035 +
10173 0000 *
10174 0455 +
10175 0522 +
10176 0200 +
10177 0000 *
212 0200 PAGE
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 7
TALK ROUTINE FILE # 1
213
214
215 10200 0000 BILL, 0 /TELL THE USER HOW MUCH TIME HE USED
216 10201 1377 TAD (ACCRD
217 10202 6770 6770 /THIS GETS THE TIME IN AC,MQ
218 10203 3020 DCA T /HIGHORDER TIME
219 10204 7501 MQA
220 10205 3021 DCA TT /LOWORDER TIME
221 10206 4776' JMS DVI
222 10207 0012 10. /THROW OUT .1 SECS
223 10210 4776' JMS DVI
224 10211 0074 60.
225 10212 3333 DCA SECOND
226 10213 7501 MQA
227 10214 3334 DCA SECOND+1
228 10215 4776' JMS DVI
229 10216 0074 60.
230 10217 3317 DCA MINUTE
231 10220 7501 MQA
232 10221 3320 DCA MINUTE+1
233 10222 4776' JMS DVI
234 10223 0030 24.
235 10224 3305 DCA HOUR
236 10225 7501 MQA
237 10226 3306 DCA HOUR+1
238 10227 4776' JMS DVI
239 10230 0144 100. /SOME LARGE NUMBER
240 10231 3274 DCA DAY
241 10232 7501 MQA
242 10233 3275 DCA DAY+1
243 10234 4775 JMS I (PRINT
244 10235 0254 + CPUMES
245 10236 5600 JMP I BILL /RETURN
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 8
TALK ROUTINE FILE # 1
246
247
248 .NOLIST BE
249 .ENABLE ASCII
250
251 PASMES,
252 10237 0320 .IF NDF GERMAN < TEXT /Password ? _/ >
253 .IF DF GERMAN < TEXT /Passwort ? _/ >
254
255 .DISABLE FILL
256
257 CPUMES,
258 10254 0303 .IF NDF GERMAN < TEXT /CPU-time used : / >
259 .IF DF GERMAN < TEXT /CPU-Rechenzeit: / >
260 DAY,
261 10274 0260 .IF NDF GERMAN < TEXT /00 days, / >
262 .IF DF GERMAN < TEXT /00 Tage, / >
263 HOUR,
264 10305 0260 .IF NDF GERMAN < TEXT /00 hours, / >
265 .IF DF GERMAN < TEXT /00 Stunden, / >
266 MINUTE,
267 10317 0260 .IF NDF GERMAN < TEXT /00 minutes, / >
268 .IF DF GERMAN < TEXT /00 Minuten, / >
269 SECOND,
270 10333 0260 .IF NDF GERMAN < TEXT /00 seconds. / >
271 .IF DF GERMAN < TEXT /00 Sekunden. / >
272 10347 0000 0000
273 .ENABLE FILL
274 .LIST BE
------
10375 0000 *
10376 0400 +
10377 0010
275 0400 PAGE
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 9
TALK ROUTINE FILE # 1
276
277
278 10400 0000 DVI, 0 /DEVIDE HTIME,LTIME BY PARAMETER
279 10401 7200 CLA
280 10402 1600 TAD I DVI /GET PARAMETER
281 10403 2200 ISZ DVI /ADJUST RETURN
282 10404 3252 DCA DIV$
283 10405 3254 DCA QUOH$
284 10406 3253 DCA QUOL$
285 10407 1252 DIVL$: TAD DIV$
286 10410 7141 CLL CIA
287 10411 1021 TAD TT
288 10412 3021 DCA TT
289 10413 7420 SNL /TEST BORROW
290 10414 7140 CLL CMA
291 10415 1020 TAD T
292 10416 3020 DCA T /END OF SUBSTRACT
293 10417 7420 SNL /UNDERFLOW ?
294 10420 5225 JMP DVEND$ /YES
295 10421 2253 ISZ QUOL$ /NO
296 10422 5207 JMP DIVL$
297 10423 2254 ISZ QUOH$
298 10424 5207 JMP DIVL$
299 10425 1021 DVEND$: TAD TT
300 10426 1252 TAD DIV$
301 10427 3252 DCA DIV$ /REMAINDER
302 10430 1253 TAD QUOL$ /YES, RESTORE L,HTIME
303 10431 3021 DCA TT
304 10432 1254 TAD QUOH$
305 10433 3020 DCA T
306 10434 3253 DCA QUOL$
307 10435 1252 TAD DIV$ /THAT'S THE RESULT
308 10436 1377 TAD (-12
309 10437 2253 ISZ QUOL$
310 10440 7500 SMA
311 10441 5236 JMP .-3
312 10442 1376 TAD ("0+12
313 10443 7421 MQL /LO NUMBER
314 10444 7240 STA
315 10445 1253 TAD QUOL$
316 10446 7450 SNA
317 10447 1375 TAD (" -"0
318 10450 1374 TAD ("0 /HI NUMBER
319 10451 5600 JMP I DVI
320 10452 0000 DIV$: 0
321 10453 0000 QUOL$: 0
322 10454 0000 QUOH$: 0
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 10
TALK ROUTINE FILE # 1
323
324
325 10455 0000 SUBMIT, 0
326 10456 1655 TAD I SUBMIT
327 10457 2255 ISZ SUBMIT
328 10460 3272 DCA LGIONM
329 10461 1373 TAD (-5 /ZERO OPTIONS TOO
330 10462 4772 JMS I (ZEROCD
331 10463 7330 CLA STL RAR /SET ALT-MODE
332 10464 3771 DCA I (MPARAM-1
333 10465 1370 TAD (20 /SET HUSH
334 10466 3767 DCA I (MPARAM
335 10467 1001 TAD CCLDEV
336 10470 4766 JMS I (USR
337 10471 0002 2 /LOOKUP ON CCL-DEVICE
338 10472 0000 LGIONM, 0
339 10473 0000 0
340 10474 5302 JMP SUBERR
341 10475 1001 TAD CCLDEV
342 10476 3765 DCA I (MIFILE
343 10477 1272 TAD LGIONM
344 10500 3764 DCA I (MIFILE+1
345 10501 5655 JMP I SUBMIT
346 10502 1363 SUBERR, TAD ('*.
347 10503 4762 JMS I (PRWD
348 10504 1361 TAD ('BI
349 10505 4762 JMS I (PRWD
350 10506 4760 JMS I (ERROR / not found
351 10507 0006 6.
352
353 10510 0000 GET, 0
354 10511 6031 KSF
355 10512 5311 JMP .-1
356 10513 6036 KRB
357 10514 0357 AND (177
358 10515 1356 TAD (-140
359 10516 7500 SMA
360 10517 1355 TAD (-40
361 10520 1354 TAD (340
362 10521 5710 JMP I GET
363
364 10522 0000 NOBATC, 0
365 10523 6201 CDF 0
366 10524 7352 CLA CLL CMA RTR /5777
367 10525 0753 AND I (7777
368 10526 3753 DCA I (7777 /KILL BATCH IF RUNNING
369 10527 6211 CDF 10
370 10530 5722 JMP I NOBATC
------
10553 7777
10554 0340
10555 7740
10556 7640
10557 0177
10560 0000 *
10561 0211
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 10-1
TALK ROUTINE FILE # 1
10562 0000 *
10563 5256
10564 7620
10565 7617
10566 0200
10567 7643
10570 0020
10571 7642
10572 0000 *
10573 7773
10574 0260
10575 7760
10576 0272
10577 7766
371 0600 PAGE
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 11
TALK ROUTINE FILE # 1
372
373
374 .SBTTL VERSION COMMAND
375
376 10600 0000 VERTN, 0
377 10601 4777 JMS I (LISPRT
378 10602 0000 0 /READ OVERLAY
379 10603 4776 JMS I (RDMON /READ MONITOR
380 10604 6201 CDF 0
381 10605 1775 TAD I (2031 /GET PATCH LEVEL
382 10606 6211 CDF 10
383 10607 3774 DCA I (VMES+17
384 10610 6201 CDF 0
385 10611 1773 TAD I (2000 /GET VERSION #
386 10612 6211 CDF 10
387 10613 7510 SPA
388 10614 7600 KK7600: 7600 /"0" MEANS OLD
389 10615 1372 TAD (260
390 10616 3771 DCA I (VMES+16
391 10617 6254 SM8 /SKIP ON MULTI8
392 10620 5242 JMP N8$
393 10621 1370 TAD (240
394 10622 3767 DCA I (MMES-1 /HANG ON MULTI8 PART
395 10623 7201 CLA IAC
396 10624 6770 GIOT /GIANT IOT #1
397 10625 4245 JMS VCONV
398 10626 1372 TAD ("0 /BACKGROUND NUMBER
399 10627 3766 DCA I (MMES+52
400 10630 7501 MQA
401 10631 1372 TAD ("0 /TERMINAL NUMBER
402 10632 3765 DCA I (MMES+32
403 10633 1364 TAD (12
404 10634 6770 GIOT /GIANT IOT #12
405 10635 4245 JMS VCONV
406 10636 3763 DCA I (MMES+13 /VERSION
407 10637 7501 MQA
408 10640 1362 TAD (100
409 10641 3761 DCA I (MMES+14 /PATCH
410 10642 4760 N8$: JMS I (PRINT
411 10643 0000 * VMES /Version Message
412 10644 5600 JMP I VERTN
413
414 10645 0000 VCONV, 0
415 10646 7421 MQL
416 10647 7501 MQA
417 10650 0357 AND (77
418 10651 7521 SWP
419 10652 7002 BSW
420 10653 0357 AND (77
421 10654 5645 JMP I VCONV
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 12
VERSION COMMAND FILE # 1
422
423
------
10757 0077
10760 0000 *
10761 0014 *
10762 0100
10763 0013 *
10764 0012
10765 0032 *
10766 0052 *
10767 7777 *
10770 0240
10771 0016 *
10772 0260
10773 2000
10774 0017 *
10775 2031
10776 0000 *
10777 0000 *
/CCL SUBROUTINES 3 FOR KBM V50 MACREL-V2C TUE 02-JUN-92 PAGE 13
SYMBOL TABLE
ACCRD 0010 KEYMON 0403 SYSTEM 0022
ACCRST 0007 KK7600 0614+ CCLSB3 T 0020
AMFLAG 0017 KMNTRY 0400 TBLTBL 6100
BATBUF 4400 LEAVE X **** TESBUF 2000
BATCCL 7777 LGIONM 0472+ CCLSB3 TLKSUB E 0000+ CCLSB3
BATERR 7000 LGISUB E 0033+ CCLSB3 TT 0021
BATIN 5400 LGOSUB E 0017+ CCLSB3 USR 0200
BATOUT 7400 LISPRT X **** VCONV 0645+ CCLSB3
BATSPL 7200 LONGTB 5000 VERTN E 0600+ CCLSB3
BATTBL 6600 LXR 0034 VMES X ****
BATVFY 5600 MDATE 7666 XFERV G 0070
BEGLN 1000 MIFILE 7617 XR 0016
BFR 3000 MINUTE 0317+ CCLSB3 XR2 0015
BILL 0200+ CCLSB3 MMES X **** ZEROCD X ****
CCLBLK 0067 MMISC 7777
CCLDEV 0001 MOFILE 7600
CCLHND 0000 MONLOD 7605
CCLINC 0054 MONSAV 7600
CCLNUM 0265 MPARAM 7643
CCLSB3 1000 RSECT MREAD 7757
CCLSW 0435 MSOVL2 0055
CCLTAB 0265 M8CHK 0011+ CCLSB3
CCLVER 0301 NAME1 0023
CLXR 0035 NAME2 0024
CPUMES 0254+ CCLSB3 NAME3 0025
CRLF X **** NAME4 0026
CTRLCK 1241 NAME5 0027
DAY 0274+ CCLSB3 NMBASE 0037
DEASAD 0427 NOBATC 0522+ CCLSB3
DEF 0022 OS78BI 7771
DEFALT 0033 OV 1375
DELIM 0032 PASMES 0237+ CCLSB3
DEV1 0030 PASWRD 2256
DEV2 0031 PRINT X ****
DOLFLG 7776 PRMES 0330
DVHNDL 7647 PRQMRK 1357
DVI 0400+ CCLSB3 PRWD X ****
ERRET 0033 PTR 0036
ERROR X **** RDMON X ****
EXTTBL 6600 REMBLO 0065
FILDMY 0002 REMSPA 4000
FILETB 7000 REST 5000
FLD: 0 0200 ASECT SBLOCK 7776
F0STUF 7200 SCOPE 7726
GET 0510+ CCLSB3 SECOND 0333+ CCLSB3
GETCCL 1362 SHNDLR 7607
GETLOP 0054+ CCLSB3 SM8 6254
GIOT 6770 SOFSET 7747
GLINE 1200 SPLNUM 7777
GOTNAM 0065+ CCLSB3 SUBERR 0502+ CCLSB3
HELLO1 0035+ CCLSB3 SUBMIT 0455+ CCLSB3
HNDLR 4400 SWSTBL 7360
HOUR 0305+ CCLSB3 SYBLKN 7774
JSBITS 7746 SYCNT 7775