1 /3 CONCISE OS8 BATCH PROCESSOR 1-AUG-1975 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1975,1977 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 /EF,RL,SR 46 47 /ABSTRACT--- 48 /BATCH IS THE INITIALIZING PROGRAM FOR THE OS/8 BATCH 49 /PROCESSING MONITOR. TO SET UP A BATCH RUN, TYPE 50 / .R BATCH 51 /BATCH WILL CALL THE COMMAND DECODER TO OBTAIN ITS 52 /PARAMETERS AND INPUT FILE LOCATION. 53 54 VERSON= 7 55 56 57 58 / BATCH SWITCHES: 59 60 /C BATCH FROM CARDS 61 /E IGNORE KMON, CD, AND CCL ERRORS 62 /H HUSH (SUPPRESSES $JOB, #END, AND ECHOING) 63 /P BATCH FROM PAPER TAPE 64 /Q QUIET - NO BATCH LOG 65 /T FORCE BATCH LOG TO TELETYPE 66 /U UNATTENDED 67 /6 USE 026 CARD CODES (ONLY IF /C) 68 69 70 /MAINTENANCE RELEASE CHANGES BY S.R. ON 1-AUG-75: 71 72 /1. CHANGED VERSION NUMBER TO 6 73 /2. INCORPORATED V5A PATCH SEQ # 1 APR-75 DSN 74 / ALLOWS BATCH TO PASS ALTMODE TO KBM 75 /3. INCORPORATED V5B PATCH SEQ #2 17-JULY-75 WSN 76 / SLOWS BATCH DOWN WHEN READING FROM CARDS 77 /4. ALLOW BATCH TO IGNORE NULLS FROM BATCH STREAM 78 / (PATCH TO BE PUBLISHED IN DSN.) 79 /5. SET BATCH SO THAT IT RESTORES OLD SOFTWARE CORESIZE 80 / UPON NORMAL TERMINATION. 81 82 /CHANGES BY S.R. ON 3-FEB-77: 83 84 /1. ADDED HUSH SWITCH (/H) 85 /2. SAVED REST OF 7777 AROUND BATCH 86 /3. FIXED BUG CONCERNING MANUAL HELP NEEDED 87 /4. ALLOWED CORE IMAGE TO BE PRESERVED AFTER BATCH TERMINATION 88 /SYSTEM DEPENDENT PARAMETERS 89 90 AMFLAG=17 /ALTMODE FLAG FOR KBM 91 CDREC=51 /COMMAND DECODER 92 KMREC=7 /KEYBOARD MONITOR 93 BUFFER=3000 94 JSW=7746 /JOB STATUS WORD 95 DCB=7760 /DEVICE CONTROL BLOCK 96 MTWO=CLA CLL CMA RAL 97 MTHREE=CLA CLL CMA RTL 98 SYSTEM=7607 99 MPARAM=7643 100 /******************************************** 101 KEYMON=403 102 BEGLN=1000 103 PRINT=200 104 XGLINE=1200 105 BATCH=35 /REFERS TO KEYBOARD MONITOR!!!!!!! 106 BCHGO=46 /THEY MUST!!!!! BE CORRECT!!!!!! 107 CBATCH=4562 /CONTENTS OF LOC "BATCH" IN KEYBOARD MONITOR 108 /******************************************* 109 CDOVER=326 110 CDBEGLN=1200 /CD BUFFER AREA 111 ANALYZ=202 /CD ANALYSIS 112 TYPE=1367 /ERROR OUTPUT ROUTINE 113 CGLINE=1002 114 TT=21 /THESE REFER TO CD ASSEMBLY***VOLATILE*** 115 DVICE=43 /IF CD OR MAIN OS/8 ASSEMBLY CHANGES, 116 DEFALT=42 /V3D NOT NEEDED 117 LKUPSW=245 /V3D IF CONTENTS=0, IN SPECIAL MODE 118 OUTSW=41 /THESE VALUES MUST BE ALTERED ALSO. 119 NAMECT=31 120 DEV1=33 121 RESTRT=676 122 /******************************************** 123 ORIGIN=5400 124 PSKF=6661 /LE8 IOT'S 125 PCLS=6666 126 RCRA=6632 /CARD READER IOT'S 127 RCSE=6672 128 RCSD=6671 129 RCSF=6631 130 RCRD=6674 131 /***************************** 132 /BATCH USES CERTAIN SYSTEM WORDS AS FLAGS AND STATUS 133 /INDICATORS. THEY ARE: 134 135 /LOC. 07777. THIS IS USED AS THE BATCH IN PROGRESS FLAG. 136 /BIT 1 IS BATCH IN PROGRESS. (BIP) =1 MEANS BATCH IS ON 137 /BITS 6-8 HOLD THE FIELD WHERE BATCH IS SITTING 138 /BIT 10 IS USED BY BAT: TO SIGNAL IT HAS READ A DOLLAR SIGN 139 /BIT 11 IS USED BY THE COMMAND DECODER TO SIGNAL BATCH NOT THERE 140 141 /THE JOB STATUS WORD USES BIT 3 AS AN INDICATOR AS TO 142 /WHETHER THE BATCH MONITOR IS CURRENTLY IN CORE. =1 MEANS 143 /THAT THE BATCH SYSTEM NEED NOT BE RE-READ. 144 145 /BOSSW IS A FLAG WORD INTERNAL TO THE BATCH MONITOR. 146 /IT IS SET UP DURING BATCH INITIALIZATION. 147 /BIT 0: 1 IF USE OF PTR IS PROHOBITED DURING RUN 148 /BIT 1: 1 IF LPT OR TTY LISTINGS ARE TO BE SPOOLED 149 /BIT 2: 1 IF KMON AND CD ERRORS ARE NON-FATAL 150 /BIT 10: 1 IF LP08 IS OUTPUT DEVICE 151 /BIT 11: 1 IF OPERATOR IS NOT PRESENT 152 153 /IF SYS IS INPUT, LOCATIONS 7774 AND 7775 IN THE TOP FIELD 154 /ARE USED AS POINTERS TO THE CORRECT DATA BLOCK ON THE 155 /SYSTEM DEVICE. THE BUFFER IS RE-READ WHENEVER THE 156 /BATCH MONITOR MUST BE RE-READ. 157 158 SPLNUM= 7776 /SPOOL SEQUENCE NUMBER 159 SYCNT= 7775 /CHARACTER COUNT IN BUFFER 160 SYBLKN= 7774 /SYSTEM DEVICE BLOCK NUMBER 161 162 /IF SPOOLING IS USED, LOC. N7776 IS USED TO HOLD THE 163 /XX IN 'BTCHXX.TM'. 164 165 /BATCH INITIALIZER PAGE 0 166 *16 167 000016 0000 XR1, 0 168 000017 0000 XR2, 0 169 000020 0000 TEMP, 0 170 000021 0000 TEMP2, 0 171 000022 0000 COUNT, 0 172 000023 1101 BOSCTL, 1101 /CONTROL WORD TO READ/WRITE BOS 173 000024 0000 CDFTOP, 0 174 000025 7402 TOPCDF, HLT /CDF TO TOP FIELD 175 000026 5424 JMP I CDFTOP 176 000027 0000 T1, 0 177 000030 0000 T2, 0 178 PAGE 179 000200 7410 START, SKP 180 000201 5210 JMP BCHAIN /IF CHAINED TO 181 000202 4777 JMS I (GETCOR /DETERMINE CORE SIZE; PUT IN 7777 182 000203 6212 BATASK, CIF 10 183 000204 4577 JMS I [200 184 000205 0005 5 185 000206 0211 0211 /.BI ASSUMED EXT 186 000207 7410 SKP 187 000210 4777 BCHAIN, JMS I (GETCOR 188 000211 3576 DCA I [BOSSW 189 000212 6211 CDF 10 190 000213 1575 TAD I [MPARAM+1 191 000214 0376 AND (4 /GET /V SWITCH 192 000215 7650 SNA CLA /IS IT ON? 193 000216 5221 JMP .+3 /NO 194 000217 4574 JMS I [MESSG 195 000220 1675 VERMSG /PRINT BATCH VERSION NUMBER 196 000221 6211 CDF 10 197 000222 1775 TAD I (7620 198 000223 3027 DCA T1 /GET STARTING BLOCK 199 000224 1774 TAD I (7617 200 000225 7450 SNA 201 000226 5252 JMP NOTSYS /NO FILE - BATCH FROM PTR OR CDR 202 000227 0173 AND [17 203 000230 1373 TAD (MPARAM+3 /POINT INTO HANDLER TABLE 204 000231 3030 DCA T2 205 000232 1430 TAD I T2 206 000233 7100 CLL 207 000234 1177 TAD [200 /IS THE DEVICE SYS OR CORESIDENT WITH SYS? 208 000235 7620 SNL CLA 209 000236 5343 JMP INDERR /NO 210 000237 1430 TAD I T2 /GET DEVICE HANDLER ENTRY POINT 211 000240 6201 CDF 0 212 000241 3772 DCA I (SYSINH /STORE AS BATCH INPUT HANDLER 213 000242 4024 JMS CDFTOP 214 000243 1027 TAD T1 215 000244 3771 DCA I (SYBLKN 216 000245 1370 TAD (-601 217 000246 3767 DCA I (SYCNT /SET UP PARAMETERS FOR INPUT FILE 218 000247 6201 CDF 0 219 000250 1366 TAD (SYSIN-1 220 000251 5271 JMP STODEV /INPUT DEV = SYS 221 222 000252 1765 NOTSYS, TAD I (MPARAM 223 000253 7006 RTL /GET C FLAG IN SIGN BIT 224 000254 7700 SMA CLA 225 000255 5261 JMP NOTCDR 226 000256 4764 JMS I (CHANGE /SET 026/029 CARD CODE 227 000257 1363 TAD (CDR-1 228 000260 5271 JMP STODEV /INPUT DEV = CDR 229 000261 1575 NOTCDR, TAD I [MPARAM+1 230 000262 0362 AND (400 231 000263 6201 CDF 0 232 000264 7650 SNA CLA 233 000265 5203 JMP BATASK /NO INPUT SPECIFIED 234 000266 7130 STL RAR 235 000267 3576 DCA I [BOSSW /PTR INPUT FLAG 236 000270 1361 TAD (PTR-1 237 000271 4760 STODEV, JMS I (MVINSB /MOVE THE PROPER ROUTINE INTO THE BATCH MONITOR 238 000272 6211 CDF 10 239 000273 1575 TAD I [MPARAM+1 240 000274 6201 CDF 0 241 000275 0357 AND (210 /GET /Q AND /U SWITCHES 242 000276 7106 CLL RTL 243 000277 7006 RTL 244 000300 7004 RAL / /Q INTO LINK 245 000301 7640 SZA CLA 246 000302 2576 ISZ I [BOSSW /SET UNATTENDED BIT IF /U SPECIFIED 247 000303 7420 SNL 248 000304 5307 JMP .+3 /NO /Q 249 000305 1356 TAD (NULOUT-TTYOUT /EIGHTY-SIX THE BATCH LOG 250 000306 5320 JMP NOLPT/SET LPT MODE SO $MSG WILL ECHO 251 000307 4755 JMS I (LPTTST /DO WE HAVE AN LP, LS, OR LV LINE PRINTER? 252 000310 5320 JMP NOLPT /NO 253 000311 6211 CDF 10 254 000312 1575 TAD I [MPARAM+1 255 000313 6201 CDF 0 256 000314 0354 AND (20 /CHECK /T SWITCH 257 000315 7141 CLL CIA 258 000316 7630 SZL CLA /SKIP IF /T SPECIFIED 259 000317 1353 TAD (BOSLPT-TTYOUT 260 000320 1352 NOLPT, TAD (TTYOUT 261 000321 3751 DCA I (OUTPUT /SET OUTPUT DEVICE TO TTY OR LPT OR NULOUT 262 000322 7006 RTL 263 000323 1576 TAD I [BOSSW 264 000324 3576 DCA I [BOSSW /AND SET FLAG 265 000325 6211 CDF 10 266 000326 1572 TAD I [7600 267 000327 6201 CDF 0 268 000330 7450 SNA 269 000331 5750 JMP I (CONT /NO SPOOLING 270 000332 0173 AND [17 271 000333 3027 DCA T1 272 000334 1027 TAD T1 273 000335 1347 TAD (DCB-1 274 000336 3030 DCA T2 275 000337 6211 CDF 10 276 000340 1430 TAD I T2 277 000341 6201 CDF 0 278 000342 5762 JMP I (SPCONT 279 000343 4574 INDERR, JMS I [MESSG 280 000344 1647 NODEV 281 000345 5203 JMP BATASK 282 000347 7757 PAGE 000350 0407 000351 5741 000352 6440 000353 0065 000354 0020 000355 1517 000356 0017 000357 0210 000360 1713 000361 0777 000362 0400 000363 1377 000364 1060 000365 7643 000366 1177 000367 7775 000370 7177 000371 7774 000372 1324 000373 7646 000374 7617 000375 7620 000376 0004 000377 0641 283 000400 7700 SPCONT, SMA CLA 284 000401 5337 JMP BADSPL 285 000402 1027 TAD T1 286 000403 3777 DCA I (SPLDEV 287 000404 7132 STL RTR 288 000405 1576 TAD I [BOSSW 289 000406 3576 DCA I [BOSSW 290 000407 4776 CONT, JMS I (EOPTN /CHECK FOR /E SWITCH 291 000410 1375 TAD (BATPTR /SET POINTER TO BATCH.SV 292 000411 3216 DCA FILPTR 293 000412 7201 CLA IAC /DO LOOKUP ON SYS 294 000413 6212 CIF 10 295 000414 4577 JMS I [200 296 000415 0002 K2, 2 297 000416 1054 FILPTR, BATPTR 298 000417 0000 0 /WHO CARES ABOUT THE LENGTH? 299 000420 5334 JMP NOBACH /BATCH FILE NOT FOUND 300 000421 1717 TAD I K7777 /PUT IN FIELD OF BOS 301 000422 0374 AND (70 302 000423 1373 TAD (CDF 0 303 000424 3325 DCA CDFBOS 304 000425 1372 TAD (201 305 000426 4571 JMS I [SYS /READ AND ALTER KEYBOARD MON. 306 000427 3000 BUFFER 307 000430 0007 KMREC 308 /GET RECORD # OF BOS 309 000431 4570 JMS I [VERTST /GET VERSION OF MONITOR 310 000432 1371 TAD (EOINIT 311 000433 0370 AND (7400 312 000434 7106 CLL RTL 313 000435 7006 RTL 314 000436 7004 RAL 315 000437 1215 TAD K2 316 000440 1216 TAD FILPTR 317 000441 3314 DCA BOSREC /WE WILL RE-WRITE BOS LATER 318 000442 1314 TAD BOSREC /ALTER KEYBOARD MONITOR 319 000443 3767 DCA I (BUFFER+BATCH+3 /RECORD # 320 000444 1325 TAD CDFBOS 321 000445 0374 AND (70 /ALTER CONTROL WORD 322 000446 1023 TAD BOSCTL 323 000447 3766 DCA I (BUFFER+BATCH+1 324 000450 1313 TAD BOSREC-1 325 000451 3765 DCA I (BUFFER+BATCH+2 326 000452 7326 CLA CLL CML RTL 327 000453 1325 TAD CDFBOS 328 000454 3764 DCA I (BCHGO+BUFFER /JMP TO CORRECT FIELD 329 000455 1363 TAD (BOS /START ADD. OF MONITOR 330 000456 3762 DCA I (BCHGO+BUFFER+2 /ENTRY POINT 331 000457 1361 TAD (4200 /RE-WRITE KEYBD. MON. 332 000460 4571 JMS I [SYS 333 000461 3000 BUFFER 334 000462 0007 KMREC 335 000463 1372 TAD (201 /READ IN COMMAND DECODER 336 000464 4571 JMS I [SYS 337 000465 3000 BUFFER /AND INSERT BOS RECORD 338 000466 0051 CDREC 339 000467 1325 TAD CDFBOS /NOW FILL IN THE COMMAND DECODER 340 000470 3760 DCA I (TT+BUFFER 341 000471 1357 TAD (CDBOS 342 000472 3756 DCA I (DVICE+BUFFER /ALLOW CD TO CHECK BATCH VALIDITY 343 000473 1757 TAD I (CDBOS 344 000474 7041 CIA /STORE COMPLEMENT ALSO 345 000475 3755 DCA I (OUTSW+BUFFER 346 000476 7126 CLL CML RTL /CREATE CIF CDF BATCH 347 000477 1325 TAD CDFBOS 348 000500 3754 DCA I (NAMECT+BUFFER 349 000501 1357 TAD (CDBOS 350 000502 3753 DCA I (DEV1+BUFFER 351 000503 1361 TAD (4200 352 000504 4571 JMS I [SYS /RE WRITE CD. 353 000505 3000 BUFFER 354 000506 0051 CDREC 355 000507 4752 JMS I (SETH /SET HUSH IF /H SPECIFIED 356 000510 7330 CLA CLL CML RAR 357 000511 1023 TAD BOSCTL 358 000512 4571 JMS I [SYS /INPUT POINTERS SET UP. 359 000513 5400 ORIGIN&7400 360 000514 7402 BOSREC, HLT 361 000515 7332 CLA CLL CML RTR /BATCH IN PROGRESS 362 000516 4567 JMS I [INCOR 363 000517 7777 K7777, 7777 364 000520 7330 CLA STL RAR /4000 365 000521 3751 DCA I (DOLFLG /SET FOR INITIAL $JOB 366 000522 4750 JMS I (MOVE /PUT IMAGE OF BOS INTO HIGH CORE 367 000523 5600 ORIGIN-7600 368 000524 5400 ORIGIN 369 000525 7402 CDFBOS, HLT 370 000526 5400 ORIGIN 371 000527 1347 TAD (0160 /SET SPOOL FILENAME TO BTCHA0 372 000530 4024 JMS CDFTOP 373 000531 3746 DCA I (SPLNUM 374 000532 6203 BATRET, CIF CDF 0 375 000533 5566 JMP I [7605 376 377 000534 4574 NOBACH, JMS I [MESSG /BATCH.SV NOT THERE 378 000535 1600 NBATCH 379 000536 5332 JMP BATRET 380 000537 4574 BADSPL, JMS I [MESSG 381 000540 1662 SPLERR 382 000541 5745 JMP I (BATASK 383 000545 0203 PAGE 000546 7776 000547 0160 000550 7521 000551 5742 000552 1154 000553 3033 000554 3031 000555 3041 000556 3043 000557 7412 000560 3021 000561 4200 000562 3050 000563 5601 000564 3046 000565 3037 000566 3036 000567 3040 000570 7400 000571 1742 000572 0201 000573 6201 000574 0070 000575 1054 000576 1727 000577 7337 384 000600 0000 MESSG, 0 /MESSAGE PRINTING ROUTINE 385 000601 7200 CLA 386 000602 6201 CDF 0 387 000603 4565 JMS I [CRLF /GENERATE CARRIAGE RET., LINE FEED 388 000604 1600 TAD I MESSG /ADDRESS OF ERROR MESSAGE 389 000605 2200 ISZ MESSG /POINT TO RETURN 390 000606 3020 DCA TEMP 391 000607 1420 MCONT, TAD I TEMP /GET TEXT CHARACTERS IN AC 392 000610 7112 CLL RTR 393 000611 7012 RTR 394 000612 7012 RTR 395 000613 4220 JMS PCHAR /PUNCH IT 396 000614 1420 TAD I TEMP 397 000615 4220 JMS PCHAR /SECOND OF TWO. 398 000616 2020 ISZ TEMP /NEXT TEXT WORD 399 000617 5207 JMP MCONT /CONTINUE 400 401 000620 0000 PCHAR, 0 /ROUTINE TO UNPACK AND PRINT TEXT 402 000621 0164 AND [77 403 000622 7450 SNA /0 TERMINATES THE LIST 404 000623 5234 JMP MSGXIT /UNCLEAN RETURN, BUT WHO CARES? 405 000624 1377 TAD (-37 /SEPARATE DIGITS FROM ALPHAS 406 000625 7450 SNA 407 000626 5237 JMP PCRLF /_ IS SPECIAL CHAR 408 000627 7510 SPA 409 000630 1376 TAD (100 /MAKE IT ALPHABETIC 410 000631 1375 TAD (237 411 000632 4774 JMS I (TTYOUT 412 000633 5620 JMP I PCHAR 413 000634 6041 MSGXIT, TSF 414 000635 5234 JMP MSGXIT 415 000636 5600 JMP I MESSG 416 417 000637 4565 PCRLF, JMS I [CRLF 418 000640 5620 JMP I PCHAR 419 LZERO=0 420 000641 0000 GETCOR, 0 /ONCE ONLY ROUTINE TO DETERMINE CORE SIZE 421 000642 1773 TAD I (7777 /GET CORE-SIZE WORD 422 000643 7006 RTL /PUT BATCH IN-PROGRESS BIT IN LINK 423 000644 7630 SZL CLA /ARE WE RUNNING BATCH FROM A BATCH JOB? 424 000645 5250 JMP .+3 /YES, DON'T TOUCH ORIGINAL CORE SIZE 425 000646 1773 TAD I (7777 /NO, GET OLD SOFTWARE CORE SIZE 426 000647 3772 DCA I (OLDCOR /SAVE CURRENT SOFTWARE CORE SIZE 427 000650 1773 TAD I (7777 /GET BATCH CTL WD 428 000651 0371 AND (70 /IT MIGHT ALREADY CONTAIN THE ANSWER 429 000652 7440 SZA 430 000653 5310 JMP STOCOR 431 000654 1163 TAD [7607 432 000655 3000 DCA LZERO 433 000656 6211 CHUG, CDF 10 434 000657 1343 TAD K 435 000660 3770 DCA I (LZERO 436 000661 0010 K10, 10 437 000662 1000 TAD LZERO 438 000663 7041 CIA 439 000664 1163 TAD [7607 440 000665 7640 SZA CLA 441 000666 5303 JMP DUN 442 000667 1770 TAD I (LZERO 443 000670 7000 NOP 444 000671 7041 CIA 445 000672 1343 TAD K 446 000673 7640 SZA CLA 447 000674 5303 JMP DUN 448 000675 1162 TAD [10 449 000676 1256 TAD CHUG 450 000677 3256 DCA CHUG 451 000700 2343 ISZ K 452 000701 5254 JMP CHUG-2 453 000702 7240 CLA CMA 454 000703 6203 DUN, CIF CDF 0 455 000704 1343 TAD K 456 000705 1261 TAD K10 457 000706 7106 CLL RTL /STORE HIGHEST FIELD # INTO 7777 458 000707 7004 RAL 459 000710 3344 STOCOR, DCA INCOR 460 000711 1344 TAD INCOR 461 000712 1367 TAD (-10 /TEST FOR AT LEAST 12 K 462 000713 7550 SPA SNA 463 000714 5337 JMP NOCORE 464 000715 1366 TAD (-60 /LIMIT TO FIELD 6, SO AS NOT 465 000716 7650 SNA CLA /TO DISTURB ROM IN F. 7 466 000717 1367 TAD (-10 467 000720 1344 TAD INCOR 468 000721 3344 DCA INCOR 469 000722 1344 TAD INCOR 470 000723 1365 TAD (CDF 471 000724 3025 DCA TOPCDF 472 000725 1773 TAD I (7777 473 000726 0364 AND (7707 /V3D 474 000727 1344 TAD INCOR 475 000730 3773 DCA I (7777 476 000731 1344 TAD INCOR 477 000732 1363 TAD (201 478 000733 3762 DCA I (SYCNTL 479 000734 1025 TAD TOPCDF 480 000735 3761 DCA I (BOSCDF 481 000736 5641 JMP I GETCOR 482 000737 7200 NOCORE, CLA 483 000740 4574 JMS I [MESSG 484 000741 1616 COR8 485 000742 5572 JMP I [7600 486 000743 7770 K, -10 487 488 000744 0000 INCOR, 0 /INCLUSIVE OR ROUTINE. USE THE 489 000745 3020 DCA TEMP /FOLLOWING: 490 000746 1744 TAD I INCOR /A .OR. B= .NOT. A .AND. B +A 491 000747 3021 DCA TEMP2 492 000750 1020 TAD TEMP 493 000751 7040 CMA 494 000752 0421 AND I TEMP2 495 000753 1020 TAD TEMP 496 000754 3421 DCA I TEMP2 497 000755 2344 ISZ INCOR 498 000756 5744 JMP I INCOR 499 000761 6476 PAGE 000762 1217 000763 0201 000764 7707 000765 6201 000766 7720 000767 7770 000770 0000 000771 0070 000772 6042 000773 7777 000774 6440 000775 0237 000776 0100 000777 7741 500 001000 0000 PTR, 0 /HI SPEED READER HANDLER 501 001001 6214 RDF /** MOVED TO 5400 IN BATCH FIELD ** 502 001002 1220 TAD PCDIF0 503 001003 3216 DCA PTRRET 504 001004 4631 JMS I PTRDOL /CHECK FOR $ INSERTION 505 001005 5215 JMP PTRISZ /YES 506 001006 3227 DCA PTIMER 507 001007 4621 JMS I TCTRLC 508 001010 6014 RFC 509 001011 6011 PTM2, RSF 510 001012 5222 JMP PTMER 511 001013 1230 TAD PTR200 /FORCE PARITY ON 512 001014 6012 RRB 513 001015 2200 PTRISZ, ISZ PTR 514 001016 7402 PTRRET, HLT 515 001017 5600 JMP I PTR 516 001020 6203 PCDIF0, CDF CIF 0 517 001021 7454 TCTRLC, CTRLC 518 519 001022 0400 PTMER, AND I 0 520 001023 0400 AND I 0 521 001024 2227 ISZ PTIMER 522 001025 5211 JMP PTM2 /TIMES OUT IN 16 MS. 523 001026 5216 JMP PTRRET 524 001027 0000 PTIMER, 0 525 001030 0200 PTR200, 200 526 001031 5702 PTRDOL, GETDOL 527 /SYS PERFORMS I/O TO SYSTEM DEVICE. THE CALLING SEQUENCE 528 /CONFORMS TO THAT OF THE STANDARD OS/8 CALL SEQUENCE, EXCEPT 529 /THAT WE HAVE ONE ERROR RETURN FROM THE ROUTINE, NOT A LOT 530 /OF SEPARATE ERROR RETURNS. 531 532 001032 0000 SYS, 0 533 001033 3244 DCA SYCTL /AC HAD CONTROL WORD 534 001034 1632 TAD I SYS 535 001035 3245 DCA SYBUFF /BUFFER FOR TRANSFER 536 001036 2232 ISZ SYS 537 001037 1632 TAD I SYS 538 001040 3246 DCA SYREC /RECORD OF TRANSFER 539 001041 2232 ISZ SYS 540 001042 6202 CIF 0 541 001043 4777 JMS I (SYSTEM 542 001044 7402 SYCTL, HLT 543 001045 7402 SYBUFF, HLT 544 001046 7402 SYREC, HLT 545 001047 7610 SKP CLA 546 001050 5632 JMP I SYS 547 001051 4776 JMS I (PRMESG 548 001052 6633 SERMSG 549 001053 5775 JMP I (BATRET 550 551 001054 0201 BATPTR, FILENAME BATCH.SV 001055 2403 001056 1000 001057 2326 552 001060 0000 CHANGE, 0 /ROUTINE TO ALTER CARD TABLE 553 001061 6211 CDF 10 554 001062 1774 TAD I (MPARAM+2 555 001063 6201 CDF 0 556 001064 0373 AND (10 /GET /6 SWITCH 557 001065 7640 SZA CLA /IF IT IS SPECIFIED, 558 001066 1372 TAD (C026-C029 /USE DEC 026 CARD CODES, 559 001067 1371 TAD (C029 /OTHERWISE USE DEC 029 CODES 560 001070 3016 DCA XR1 /ADDDRESS OF CORRECT LIST 561 001071 1370 TAD (CLST-1 562 001072 3017 DCA XR2 /THE LOCS. THAT GET ALTERED 563 001073 1161 TAD [-15 564 001074 3022 DCA COUNT /13 ENTRIES. 565 001075 1417 TAD I XR2 566 001076 3304 DCA CHPTR 567 001077 1416 TAD I XR1 568 001100 3704 DCA I CHPTR /ALTER TABLE IN MONITOR. 569 001101 2022 ISZ COUNT 570 001102 5275 JMP .-5 571 001103 5660 JMP I CHANGE 572 001104 0000 CHPTR, 0 573 574 001105 6405 CLST, CDT+5 /ADDRESSES OF CARD CONVERSION LOCS. 575 001106 6406 CDT+6 576 001107 6407 CDT+7 577 001110 6415 CDT+15 578 001111 6416 CDT+16 579 001112 6417 CDT+17 580 001113 6425 CDT+25 581 001114 6426 CDT+26 582 001115 6427 CDT+27 583 001116 6430 CDT+30 584 001117 6435 CDT+35 585 001120 6436 CDT+36 586 001121 6437 CDT+37 587 588 C026=.-1 589 001122 7735 7735 /CODES FOR 026 CARDS 590 001123 4076 4076 591 001124 0774 0774;3314;1002;0305;3204;1273;3606;1341;3716;1175 001125 3314 001126 1002 001127 0305 001130 3204 001131 1273 001132 3606 001133 1341 001134 3716 001135 1175 592 001136 3401 3401 593 594 C029=.-1 595 001137 3203 3203;4007;3502;7514;0577;3637;0104;1211;3374;0641;7316;3410 001140 4007 001141 3502 001142 7514 001143 0577 001144 3637 001145 0104 001146 1211 001147 3374 001150 0641 001151 7316 001152 3410 596 001153 1376 1376 597 598 001154 0000 SETH, 0 /SET HUSH 599 001155 6211 CDF 10 600 001156 1767 TAD I (MPARAM /LOOK AT A-L SWITCHES 601 001157 0366 AND (20 /IN PARTICULAR, LOOK AT /H BIT 602 001160 6201 CDF 0 603 001161 3765 DCA I (HUSH /SAVE THIS BIT 604 001162 5754 JMP I SETH 605 606 001165 5743 PAGE 001166 0020 001167 7643 001170 1104 001171 1136 001172 7763 001173 0010 001174 7645 001175 0532 001176 6043 001177 7607 607 BILEN= 0 /INITIALIZE MAX INPUT ROUTINE LENGTH 608 609 001200 0000 SYSIN, 0 /INPUT FROM SYSTEM DEVICE 610 001201 6214 RDF /** MOVED INTO 5400 IN BATCH FIELD ** 611 001202 1337 TAD SYCDIF 612 001203 3315 DCA SYSRET 613 001204 4740 SYSIN4, JMS I SYSDOL /CHECK FOR $ INSERTION 614 001205 5314 JMP SYSISZ /YES 615 001206 1221 TAD BLOK /RE-READ BUFFER? 616 001207 7640 SZA CLA 617 001210 5240 JMP SYGETC /NO. STILL THERE 618 001211 1722 TAD I PSYBLKN 619 001212 3221 DCA BLOK 620 001213 1723 TAD I PSYCNT 621 001214 3317 IOSYS, DCA SYCHCN /RESTORE CHARACTER COUNT 622 001215 6202 CIF 0 623 001216 4724 JMS I SYSINH /READ THE BLOCK 624 001217 0000 SYCNTL, 0 625 001220 5000 BTBUF, ORIGIN-400 626 001221 0000 BLOK, 0 627 001222 5725 JMP I PSYIERR 628 001223 1220 TAD BTBUF /SET BUFFER POINTER. 629 001224 3320 DCA WPTR /NOW DETERMINE FROM COUNT WHICH WORD 630 001225 1326 TAD SYS601 /WAS INTERRUPTED. WHEN AC GOES NEG., 631 001226 1317 TAD SYCHCN /WE ARE AT PROPER 2 WORD GROUP. 632 001227 1330 GWDLP, TAD SYSM3 /THEN WE FORM A JMP TO CORRECT WORD 633 001230 7510 SPA 634 001231 5235 JMP GEWD 635 001232 2320 ISZ WPTR /SKIP 2 WORDS 636 001233 2320 ISZ WPTR 637 001234 5227 JMP GWDLP 638 001235 1331 GEWD, TAD SYS3 /FORM A JMP CHARX, X=1,2,3 639 001236 1242 TAD JMPDOT 640 001237 3246 DCA JMPCH /SET UNPACK SWITCH 641 001240 2246 SYGETC, ISZ JMPCH /NORMAL CHAR. FETCH 642 001241 2317 ISZ SYCHCN /NEED NEW BLOCK? 643 001242 5246 JMPDOT, JMP JMPCH /NO 644 001243 2221 ISZ BLOK /YES. NEXT BLOCK 645 001244 1327 TAD SYM601 646 001245 5214 JMP IOSYS /READ IT. 647 001246 5246 JMPCH, JMP JMPCH /3 WAY SWITCH 648 001247 5273 JMP ICHAR1 /FIRST OF 3 649 001250 5272 JMP ICHAR2 /SECOND 650 001251 1242 TAD JMPDOT 651 001252 3246 DCA JMPCH /RESET 3 WAY SWITCH 652 001253 4732 JMS I PCTRLC 653 001254 1720 TAD I WPTR /NOTE THAT WE CAN'T DESTROY WPTR BY 654 001255 0333 AND SY7400 /BY DOING ISZ'S UNTIL THE 3RD CHAR. 655 001256 7112 CLL RTR /THAT IS BECAUSE IF WE ARE BROKEN 656 001257 7012 RTR /UP, WE CAN ONLY POINT TO THE 2 WORD 657 001260 3321 DCA SYTEMP /GROUP AS A WHOLE. 658 001261 2320 ISZ WPTR 659 001262 1720 TAD I WPTR 660 001263 0333 AND SY7400 661 001264 7106 CLL RTL 662 001265 7006 RTL 663 001266 7004 RAL 664 001267 1321 TAD SYTEMP 665 001270 2320 ISZ WPTR /BUMP TO NEXT GROUP 666 001271 5276 JMP CHCOM 667 001272 7201 ICHAR2, CLA IAC 668 001273 1320 ICHAR1, TAD WPTR 669 001274 3321 DCA SYTEMP /THIRD CHAR NEEDS WPTR! 670 001275 1721 TAD I SYTEMP 671 001276 0334 CHCOM, AND SYS177 672 001277 3321 DCA SYTEMP 673 001300 1317 TAD SYCHCN 674 001301 3723 DCA I PSYCNT 675 001302 1221 TAD BLOK 676 001303 3722 DCA I PSYBLKN 677 001304 1321 TAD SYTEMP /CHECK FOR ^Z 678 / SNA /V3C 679 / JMP SYSISZ /RETURN NULL AS NULL 680 001305 1335 TAD SYSM32 681 001306 7440 SZA 682 001307 5313 JMP CHOUT /NOPE. OK 683 001310 1312 TAD SYEXT /^Z. DISABLE INPUT 684 001311 3204 DCA SYSIN4 685 001312 5315 SYEXT, JMP SYSRET 686 001313 1336 CHOUT, TAD SYS232 687 001314 2200 SYSISZ, ISZ SYSIN 688 001315 7402 SYSRET, HLT /CDF CIF RETURN FIELD 689 001316 5600 JMP I SYSIN 690 691 001317 0000 SYCHCN, 0 692 001320 0000 WPTR, 0 693 SYSCHR, 694 001321 0000 SYTEMP, 0 695 001322 7774 PSYBLK, SYBLKN 696 001323 7775 PSYCNT, SYCNT 697 001324 0000 SYSINH, 0 /GETS ADDRESS OF INPUT HANDLER (7607 OR CO-RES) 698 001325 7051 PSYIER, SYIERR 699 001326 0601 SYS601, 601 700 001327 7177 SYM601, -601 701 001330 7775 SYSM3, -3 702 001331 0003 SYS3, 3 703 001332 7454 PCTRLC, CTRLC 704 001333 7400 SY7400, 7400 705 001334 0177 SYS177, 177 706 001335 7746 SYSM32, -32 707 001336 0232 SYS232, 232 708 001337 6203 SYCDIF, CDF CIF 0 709 001340 5702 SYSDOL, GETDOL 710 711 IFZERO .-SYSIN-BILEN&4000 712 PAGE 713 /CARD READER HANDLER. BUFFERS AN ENTIRE CARD IN THE LINE BUFFER. 714 /ON END OF CARD, WE CAST OUT EXTRANEOUS SPACES IN THE BUFFER 715 716 001400 0000 CDR, 0 717 001401 6214 RDF 718 001402 1302 TAD CCDIF0 719 001403 3261 DCA CDRRET 720 001404 4716 JMS I CDRDOL /CHECK FOR $ INSERTION 721 001405 5257 JMP CDRISZ /YES 722 001406 2303 ISZ CHCNT /STILL CHARACTERS IN BUFFER? 723 001407 5255 JMP GETCH /YES. 724 001410 1304 NEWCRD, TAD PLNBUF 725 001411 3313 DCA CDRPTR /NO. READ A NEW CARD 726 001412 4705 CSLCT, JMS I CCTRLC 727 001413 6672 RCSE /SELECT A CARD 728 001414 5212 JMP CSLCT 729 001415 3315 RDNEXC, DCA CTIMER 730 001416 6631 RDCOLM, RCSF /WAIT FOR DATA 731 001417 5237 JMP EOC /AND CHECK FOR END OF CARD 732 001420 6632 RCRA 733 001421 7110 CLL RAR /TRANSLATE INTERNAL INTO ASCII 734 001422 1306 TAD PCDT 735 001423 3314 DCA CTEMP 736 001424 1714 TAD I CTEMP 737 001425 7430 SZL /LEFT OR RIGHT? 738 001426 5232 JMP .+4 739 001427 7012 RTR;RTR;RTR 001430 7012 001431 7012 740 001432 0307 AND CDR77 741 001433 1310 TAD CDR240 742 001434 2313 ISZ CDRPTR 743 001435 3713 DCA I CDRPTR 744 001436 2303 ISZ CHCNT /CAN'T SKIP 745 001437 6671 EOC, RCSD /CARD DONE? 746 001440 5271 JMP TIME /NO - CHECK TIMEOUT 747 001441 1303 TAD CHCNT /GET REAL NUMBER OF CHARACTERS 748 001442 7040 CMA 749 001443 3303 DCA CHCNT 750 001444 1713 CHKSPC, TAD I CDRPTR 751 001445 1311 TAD CDM240 752 001446 7650 SNA CLA 753 001447 5263 JMP SPCIG 754 001450 2313 ISZ CDRPTR 755 001451 1312 CDCR, TAD CDR215 /INSERT END OF LINE MARKER 756 001452 3713 DCA I CDRPTR 757 001453 1304 TAD PLNBUF 758 001454 3313 DCA CDRPTR 759 001455 2313 GETCH, ISZ CDRPTR 760 001456 1713 TAD I CDRPTR 761 001457 2200 CDRISZ, ISZ CDR 762 001460 6674 CDXIT, RCRD /CLEAR CARD DONE FLAG 763 001461 7402 CDRRET, HLT 764 001462 5600 JMP I CDR 765 766 001463 7240 SPCIG, CLA CMA /BACK UP ONE CHAR 767 001464 1313 TAD CDRPTR 768 001465 3313 DCA CDRPTR 769 001466 2303 ISZ CHCNT /IF SKIP, IT'S A BLANK LINE 770 001467 5244 JMP CHKSPC 771 001470 5251 JMP CDCR 772 773 001471 0400 TIME, AND I 0 /CHECK TIME OUT - FIRST DELAY A WHILE 774 001472 1311 TAD CDM240 /V3C 775 001473 3271 DCA TIME /TIME OUT A LOT 776 001474 2271 ISZ TIME 777 001475 5274 JMP .-1 778 001476 2315 ISZ CTIMER 779 001477 5216 JMP RDCOLM 780 001500 3303 DCA CHCNT 781 001501 5210 JMP NEWCRD /CARD HUNG - WAIT FOR READER READY 782 001502 6203 CCDIF0, CDF CIF 0 783 001503 7777 CHCNT, -1 784 001504 6637 PLNBUF, LINBUF-1 785 001505 7454 CCTRLC, CTRLC 786 001506 6400 PCDT, CDT 787 001507 0077 CDR77, 77 788 001510 0240 CDR240, 240 789 001511 7540 CDM240, -240 790 001512 0215 CDR215, 215 791 001513 0000 CDRPTR, 0 792 001514 0000 CTEMP, 0 793 001515 0000 CTIMER, 0 794 001516 5702 CDRDOL, GETDOL 795 796 IFZERO .-CDR-BILEN&4000 797 /*** THIS CAUSES BUGS TO RTS/8 BECAUSE IT OUTPUTS TO LPT! 798 799 001517 0000 LPTTST, 0 /SKIP IF BATCH-TYPE LINE PRINTER AVAILABLE 800 001520 1377 TAD (240 801 001521 6666 PCLS /PRINT AN INNOCUOUS BLANK 802 001522 7200 CLA 803 001523 0400 AND I 0 804 001524 0400 AND I 0 /FLAG COMES UP IN UNDER 10 MICROSECONDS 805 001525 0400 AND I 0 806 001526 6661 PSKF /WELL? 807 001527 5717 JMP I LPTTST /NO WAY! 808 001530 7201 CLA IAC /DON'T BE FOOLED - COULD STILL BE AN ANALEX 809 001531 6654 6654 /LOAD ANALEX BUFFER 810 001532 7650 SNA CLA 811 001533 5343 JMP ANALEX /IF IOT CLEARED AC, ITS AN ANALEX 812 001534 1376 TAD (215 813 001535 6666 PCLS /CLEAR LINE BUFFER BY PRINTING CR 814 001536 6661 PSKF 815 001537 5336 JMP .-1 816 001540 7200 CLA 817 001541 2317 ISZ LPTTST 818 001542 5717 JMP I LPTTST /TAKE SKIP RETURN 819 820 001543 6652 ANALEX, 6652 /CLEAR FLAGS 821 001544 6662 6662 /CLEAR BUFFER 822 001545 5717 JMP I LPTTST /TAKE NO LPT RETURN 823 001576 0215 PAGE 001577 0240 824 001600 0201 NBATCH, TEXT /BATCH.SV NOT FOUND ON SYS:/ 001601 2403 001602 1056 001603 2326 001604 4016 001605 1724 001606 4006 001607 1725 001610 1604 001611 4017 001612 1640 001613 2331 001614 2372 001615 0000 825 001616 1116 COR8, TEXT /INSUFFICIENT CORE FOR BATCH RUN/ 001617 2325 001620 0606 001621 1103 001622 1105 001623 1624 001624 4003 001625 1722 001626 0540 001627 0617 001630 2240 001631 0201 001632 2403 001633 1040 001634 2225 001635 1600 826 001636 2722 BADMON, TEXT /WRONG OS8 MONITOR/ 001637 1716 001640 0740 001641 1723 001642 7040 001643 1517 001644 1611 001645 2417 001646 2200 827 001647 0405 NODEV, TEXT /DEV NOT IMPLEMENTED_/ 001650 2640 001651 1617 001652 2440 001653 1115 001654 2014 001655 0515 001656 0516 001657 2405 001660 0437 001661 0000 828 001662 1114 SPLERR, TEXT /ILLEGAL SPOOL DEVICE_/ 001663 1405 001664 0701 001665 1440 001666 2320 001667 1717 001670 1440 001671 0405 001672 2611 001673 0305 001674 3700 829 001675 0201 VERMSG, TEXT /BATCH / 001676 2403 001677 1040 001700 0000 830 *.-1 831 001700 2667 VERSON+2660 /"VN" 832 001701 0137 TEXT /A_/ 001702 0000 833 001703 0000 VERTST, 0 834 001704 1777 TAD I (BUFFER+BATCH /SHOULD BE 4562 IN V3 835 001705 1376 TAD (-CBATCH 836 001706 7650 SNA CLA 837 001707 5703 JMP I VERTST 838 001710 4574 JMS I [MESSG 839 001711 1636 BADMON 840 001712 5572 JMP I [7600 841 842 001713 0000 MVINSB, 0 843 001714 3016 DCA XR1 /ADDR OF INPUT ROUTINE 844 001715 1375 TAD (BATIN-1 /ADDR OF PLACE IN BATCH MONITOR 845 001716 3017 DCA XR2 846 001717 1374 TAD (-BILEN 847 001720 3326 DCA BMVCNT 848 001721 1416 TAD I XR1 849 001722 3417 DCA I XR2 850 001723 2326 ISZ BMVCNT 851 001724 5321 JMP .-3 /MOVE ROUTINE UP 852 001725 5713 JMP I MVINSB 853 001726 0000 BMVCNT, 0 854 855 001727 0000 EOPTN, 0 /CHECK FOR /E OPTION 856 001730 6211 CDF 10 857 001731 1773 TAD I (MPARAM 858 001732 6201 CDF 0 859 001733 0372 AND (200 /ISOLATE E SWITCH 860 001734 7650 SNA CLA 861 001735 5727 JMP I EOPTN /NOT ON 862 001736 1371 TAD (1000 863 001737 4770 JMS I (INCOR /OR 1000 INTO BOSSW 864 001740 6000 BOSSW 865 001741 5727 JMP I EOPTN 866 867 EOINIT=. 868 001770 0744 PAGE 001771 1000 001772 0200 001773 7643 001774 7636 001775 5377 001776 3216 001777 3035 869 000161 7763 FIELD 0 /DUMP PAGE 0 LITERALS HERE 000162 0010 000163 7607 000164 0077 000165 6517 000166 7605 000167 0744 000170 1703 000171 1032 000172 7600 000173 0017 000174 0600 000175 7644 000176 6000 000177 0200 870 *ORIGIN /THIS CODE ACTUALLY EXECUTES IN TOP FIELD! 871 872 005400 0000 BATIN, ZBLOCK BILEN /BATCH INPUT ROUTINE GOES HERE 005401 0000 005402 0000 005403 0000 005404 0000 005405 0000 005406 0000 005407 0000 005410 0000 005411 0000 005412 0000 005413 0000 005414 0000 005415 0000 005416 0000 005417 0000 005420 0000 005421 0000 005422 0000 005423 0000 005424 0000 005425 0000 005426 0000 005427 0000 005430 0000 005431 0000 005432 0000 005433 0000 005434 0000 005435 0000 005436 0000 005437 0000 005440 0000 005441 0000 005442 0000 005443 0000 005444 0000 005445 0000 005446 0000 005447 0000 005450 0000 005451 0000 005452 0000 005453 0000 005454 0000 005455 0000 005456 0000 005457 0000 005460 0000 005461 0000 005462 0000 005463 0000 005464 0000 005465 0000 005466 0000 005467 0000 005470 0000 005471 0000 005472 0000 005473 0000 005474 0000 005475 0000 005476 0000 005477 0000 005500 0000 005501 0000 005502 0000 005503 0000 005504 0000 005505 0000 005506 0000 005507 0000 005510 0000 005511 0000 005512 0000 005513 0000 005514 0000 005515 0000 005516 0000 005517 0000 005520 0000 005521 0000 005522 0000 005523 0000 005524 0000 005525 0000 005526 0000 005527 0000 005530 0000 005531 0000 005532 0000 005533 0000 005534 0000 005535 0000 005536 0000 005537 0000 005540 0000 005541 0000 873 874 005542 1777 END, TAD I (HUSH 875 005543 7640 SZA CLA 876 005544 5347 JMP BKILL /SUPPRESS #END WHEN HUSHED 877 005545 4776 JMS I (PRMESG 878 005546 7132 EOBMSG 879 005547 6211 BKILL, CDF 10 880 005550 7240 STA 881 005551 1775 TAD I (7700 /V3D 882 005552 3775 DCA I (7700 /ALLOWS CORE IMAGE TO BE PRESERVED ACROSS BATCH 883 005553 5774 JMP I (MORKIL 884 885 005554 0000 SETJSW, 0 /ROUTINE TO SET JOB 886 005555 1373 TAD (7377 /STATUS WORD TO INDICATE THAT 887 005556 6201 CDF 0 /BATCH IS STILL IN CORE 888 005557 0772 AND I (JSW 889 005560 1371 TAD (400 890 005561 3772 DCA I (JSW 891 005562 4770 JMS I (CDFRST /RESTORE TRUE DATA FIELD 892 005563 5754 JMP I SETJSW 893 894 005570 6475 PAGE 005571 0400 005572 7746 005573 7377 005574 6534 005575 7700 005576 6043 005577 5743 895 /THIS IS THE ACTUAL BATCH MONITOR. THIS ENTRY IS FOR THE 896 /INTERFACE WITH THE KEYBOARD MONITOR. 897 898 005600 2214 BATVFY, 2214 /** THIS LOCATION IS VERIFIED BY BAT: ** 899 900 005601 6201 BOS, CDF 0 /SEE IF CD FOUND AN ERROR 901 005602 1777 TAD I (7777 /IF BIT 11 SET, IT DID. 902 005603 7110 CLL RAR 903 005604 7200 CLA 904 005605 1777 TAD I (7777 /RESTORE IT. 905 005606 0334 AND M2 /ERASE IT 906 005607 3777 DCA I (7777 907 005610 4776 JMS I (CDFRST /RESTORE DATA FIELD 908 005611 7630 SZL CLA 909 005612 5246 JMP CDERR 910 005613 4775 JMS I (KMLINK /LINK I/O OF BOS AND K.M. 911 005614 1341 BOSSB, TAD OUTPUT 912 005615 3340 DCA BOUTDV /SET MESSAGES 913 005616 4774 JMS I (GLINE /READ LINE OF INPUT 914 005617 1343 TAD HUSH 915 005620 7640 SZA CLA 916 005621 5234 JMP BOSRE /DON'T ECHO LINES WHEN HUSHED 917 005622 1773 TAD I (LINBUF 918 005623 1372 TAD (-"$ 919 005624 7650 SNA CLA 920 005625 1771 TAD I (LINBUF+1 921 005626 1370 TAD (-"J /DON'T ECHO $JOB CARD HERE 922 005627 7650 SNA CLA 923 005630 1767 TAD I (LINBUF+2 924 005631 1366 TAD (-"O 925 005632 7640 SZA CLA 926 005633 4765 JMS I (ECHO /BUT ECHO ANY OTHER LINE 927 005634 1773 BOSRE, TAD I (LINBUF /ENTER HERE FROM CD IF KM COMMAND SEEN 928 005635 3764 DCA I (BNAM /GET THE FIRST CHAR ON THE LINE 929 005636 1342 TAD DOLFLG /DO WE NEED $? 930 005637 7700 SMA CLA 931 005640 5763 JMP I (NXPRG /NO. LOOK FOR . OR / 932 005641 1764 TAD I (BNAM /SEE IF WE HAVE IT 933 005642 1372 TAD (-"$ 934 005643 7640 SZA CLA 935 005644 5214 JMP BOSSB /NOT YET. 936 005645 5762 JMP I (KMDOLR /SEE IF IT'S $JOB 937 938 005646 4761 CDERR, JMS I (PRMESG 939 005647 6600 CDEMSG 940 005650 5201 JMP BOS 941 /HERE TO ECHO $JOB CARD 942 943 005651 1343 DOLECH, TAD HUSH 944 005652 7640 SZA CLA 945 005653 5300 JMP HUSH2 /DON'T ECHO $JOB WHEN HUSHED 946 005654 1360 TAD (214 947 005655 4335 JMS OUTCHR 948 005656 1757 TAD I (BOSSW 949 005657 7112 CLL RTR /ECHO A PAGE OF $JOBS TO LPT ONLY 950 005660 7620 SNL CLA /IS LPT OUTPUT? 951 005661 5274 JMP DOLEC2 952 005662 1356 TAD (-36 /YES 953 005663 3342 DCA DOLFLG 954 005664 1355 TAD (212 955 005665 4335 JMS OUTCHR /SPACE DOWN TO MIDDLE OF PAGE 956 005666 2342 ISZ DOLFLG 957 005667 5264 JMP .-3 /REPLACE NEXT THREE LOCS IF CENTRONIX PRINTER: 958 005670 4765 JMS I (ECHO /216 959 005671 4765 JMS I (ECHO /TAD .-1 960 005672 4765 JMS I (ECHO /JMS OUTCHR /PRINT LARGE CHARS 961 005673 4765 JMS I (ECHO 962 005674 1360 DOLEC2, TAD (214 963 005675 4335 JMS OUTCHR 964 005676 4754 JMS I (ECHOT /PUT $JOB TO TTY IF NEEDED 965 005677 4753 JMS I (CRLF 966 005700 3342 HUSH2, DCA DOLFLG 967 005701 5214 JMP BOSSB 968 969 005702 0000 GETDOL, 0 /ROUTINE TO PUT BACK ANY $ READ BY BAT: 970 005703 6201 CDF 0 971 005704 1777 TAD I (7777 /GET BATCH CONTROL WORD 972 005705 7112 CLL RTR 973 005706 7630 SZL CLA /TEST BIT 10 974 005707 5313 JMP GOTDOL /ITS ON - MUST PUT IN A $ 975 005710 4776 JMS I (CDFRST /NO - SET DF TO THIS FIELD 976 005711 2302 ISZ GETDOL 977 005712 5702 JMP I GETDOL /TAKE SKIP RETURJ 978 005713 7346 GOTDOL, CLL STA RTL /7775 979 005714 0777 AND I (7777 980 005715 3777 DCA I (7777 /REMOVE THE BIT 981 005716 1352 TAD ("$ 982 005717 5702 JMP I GETDOL /TAKE NON-SKIP RETURN WITH $ IN AC 983 005720 4751 GETCOM, JMS I (MOVE 984 005721 7666 -112 /PUT BUFFER INTO KEYBOARD MON. 985 005722 6641 LINBUF+1 986 005723 6201 CDF 0 987 005724 1000 BEGLN 988 005725 1750 TAD I (AMODE /V3C GET BATCH ALTMODE FLAG 989 005726 7640 SZA CLA 990 005727 7124 STL RAL /SET KBM ALTMODE FLAG IF NECESSARY 991 005730 6203 CIF CDF 0 992 005731 3747 DCA I (AMFLAG /IT'S IN FIELD 0 993 005732 5733 JMP I .+1 /AND GO PROCESS IT 994 005733 0404 KEYMON+1 995 005734 7776 M2, -2 996 997 005735 0000 OUTCHR, 0 998 005736 4740 JMS I BOUTDV 999 005737 5735 JMP I OUTCHR 1000 1001 005740 6440 BOUTDV, TTYOUT 1002 005741 0000 OUTPUT, 0 1003 005742 0000 DOLFLG, 0 /$ SLEW FLAG - NEGATIVE IF SLEW 1004 005743 0000 HUSH, 0 /NON-0 MEANS HUSHED (/H) 1005 005747 0017 PAGE 005750 6255 005751 7521 005752 0244 005753 6517 005754 7465 005755 0212 005756 7742 005757 6000 005760 0214 005761 6043 005762 6331 005763 6146 005764 6335 005765 7503 005766 7461 005767 6642 005770 7466 005771 6641 005772 7534 005773 6640 005774 6200 005775 6115 005776 6475 005777 7777 1006 006000 0000 BOSSW, 0 /BATCH STATUS FLAG. 1007 006001 0000 MSG, 0 1008 006002 1777 TAD I (DOLFLG /IF $JOB SLEW SET, DON'T PAUSE 1009 006003 7710 SPA CLA 1010 006004 5601 JMP I MSG 1011 006005 1200 TAD BOSSW /NO ECHO IF TTY IS OUTPUT 1012 006006 7112 CLL RTR 1013 006007 7630 SZL CLA 1014 006010 4776 JMS I (ECHOT 1015 006011 1200 TAD BOSSW /IS OPERATOR AVAILABLE? 1016 006012 7110 CLL RAR 1017 006013 7630 SZL CLA 1018 006014 5601 JMP I MSG /NO. CONTINUE 1019 006015 1375 TAD (207 1020 006016 4774 JMS I (TTYOUT 1021 006017 6032 KCC /WAIT A WHILE 1022 006020 4773 JMS I (TTY 1023 006021 5601 JMP I MSG 1024 1025 006022 0000 TESTB, 0 /TEST ROUTINE. TEST LIST AGAINST BNAM 1026 006023 1622 TAD I TESTB 1027 006024 3243 DCA PRMESG /# ELEMENTS IN LIST 1028 006025 2222 TSTB2, ISZ TESTB /POINT TO ELEMENT 1029 006026 1622 TAD I TESTB 1030 006027 2222 ISZ TESTB 1031 006030 1772 TAD I (BNAM /TEST IT 1032 006031 7650 SNA CLA 1033 006032 5237 JMP TSBOVR /A MATCH 1034 006033 2243 ISZ PRMESG 1035 006034 5225 JMP TSTB2 1036 006035 2222 ISZ TESTB 1037 006036 5622 JMP I TESTB /NO MATCH 1038 006037 1622 TSBOVR, TAD I TESTB 1039 006040 3222 DCA TESTB 1040 006041 5622 JMP I TESTB 1041 1042 006042 0000 OLDCOR, 0 /V3C HOLDS OLD SOFTWARE CORE SIZE WORD 1043 /MUST HAVE ADDRESS .GT. 6000 1044 006043 0000 PRMESG, 0 /MESSAGE PRINTER 1045 006044 3222 DCA TESTB /SET FOR NO SKIP ON ISZ 1046 006045 1643 TAD I PRMESG /INDEX INTO MESSAGE LIST 1047 006046 3345 DCA PRTEMP 1048 006047 4771 JMS I (CRLF 1049 006050 1370 TAD ("# /BATCH ERROR SIGNAL 1050 006051 4767 JMS I (OUTCHR 1051 006052 1745 PRMSG2, TAD I PRTEMP 1052 006053 7112 CLL RTR;RTR;RTR 006054 7012 006055 7012 1053 006056 4263 JMS PNCH 1054 006057 1745 TAD I PRTEMP 1055 006060 4263 JMS PNCH 1056 006061 2345 ISZ PRTEMP 1057 006062 5252 JMP PRMSG2 /CYCLE UNTIL A 0 1058 006063 0000 PNCH, 0 1059 006064 0366 AND (77 1060 006065 7450 SNA 1061 006066 5274 JMP PRTTY /COULD BE OPTIMIZED 1062 006067 1365 TAD (240 1063 006070 0366 AND (77 1064 006071 1365 TAD (240 1065 006072 4767 JMS I (OUTCHR 1066 006073 5663 JMP I PNCH 1067 1068 1069 006074 4771 PRTTY, JMS I (CRLF 1070 006075 2222 ISZ TESTB /PUT IT ON TTY, TOO 1071 006076 7326 CLA CLL CML RTL /+2 SKIPPED IF SECOND TIME THROUGH 1072 006077 0200 AND BOSSW /SEE IF LP08 IS OUTPUT 1073 006100 7450 SNA 1074 006101 5311 JMP PRMOUT /ALREADY ON TTY 1075 006102 0222 AND TESTB /CALL WITH AC=1 MEANS NO TTY OUTPUT 1076 006103 7640 SZA CLA 1077 006104 5311 JMP PRMOUT 1078 006105 1374 TAD (TTYOUT 1079 006106 3764 DCA I (BOUTDV /SET TTY 1080 006107 7240 CLA CMA /SET TESTB TO SKIP 1081 006110 5244 JMP PRMESG+1 1082 006111 1763 PRMOUT, TAD I (OUTPUT /RESTORE OUTPUT 1083 006112 3764 DCA I (BOUTDV 1084 006113 2243 ISZ PRMESG /SKIP ARGUMENT 1085 006114 5643 JMP I PRMESG 1086 006115 0000 KMLINK, 0 /LINK BATCH AND KEYBOARD I/O. 1087 006116 6224 RIF 1088 006117 1344 TAD BCDIF0 /SETUP A JUMP IN KEYBOARD. 1089 006120 3336 DCA KMLST 1090 006121 1336 TAD KMLST /AND ANOTHER FOR PRINT ROUTINE 1091 006122 3341 DCA KMLST2 1092 006123 4762 JMS I (MOVE /PUT NEW CODE INTO KEYBOARD 1093 006124 7775 -3 1094 006125 6136 KMLST 1095 006126 6201 CDF 0 1096 006127 0201 PRINT+1 /THIS IS OUTPUT LINK 1097 006130 4762 JMS I (MOVE /NOW INPUT LINK. 1098 006131 7775 -3 1099 006132 6141 KMLST2 1100 006133 6201 CDF 0 1101 006134 1201 XGLINE+1 1102 006135 5715 JMP I KMLINK 1103 1104 /** NEXT 3 WORDS LOAD INTO "PRINT+1" IN KEYBOARD MONITOR ** 1105 1106 006136 6203 KMLST, CIF CDF 0 /ALTERED AT RUN-TIME 1107 006137 5603 PRINT+3&177+5600 /ALLOWS TALKING THRU BATCH 1108 006140 6472 BOSPRT 1109 1110 /** NEXT 3 WORDS LOAD INTO "XGLINE+1" IN KEYBOARD MONITOR ** 1111 1112 006141 6203 KMLST2, CIF CDF 0 1113 006142 5603 XGLINE+3&177+5600 /"JMP I .+1" 1114 006143 5601 BOS 1115 1116 006144 6203 BCDIF0, CIF CDF 0 1117 006145 0000 PRTEMP, 0 1118 006146 4222 NXPRG, JMS TESTB /SEE IF WE HAVE . OR / 1119 006147 7774 -4 1120 006150 7522 -".;GETCOM 006151 5720 1121 006152 7521 -"/;BOSSB 006153 5614 1122 006154 7534 -"$;KMDOLR 006155 6331 1123 006156 7526 -"*;BOSSB /ERRONEOUS CD CARD. 006157 5614 1124 006160 5761 JMP I (KJOB 1125 006161 7034 PAGE 006162 7521 006163 5741 006164 5740 006165 0240 006166 0077 006167 5735 006170 0243 006171 6517 006172 6335 006173 7475 006174 6440 006175 0207 006176 7465 006177 5742 1126 006200 0000 GLINE, 0 /LINE COLLECTION ROUTINE 1127 006201 1377 TAD (LINBUF-1 1128 006202 3256 DCA GLPTR 1129 006203 4776 GET, JMS I (BATIN /GO TO SPECIFIED INPUT DEVICE 1130 006204 5250 JMP EOF /TIME-OUT OR FATAL 1131 006205 3335 DCA BNAM 1132 006206 4775 JMS I (TESTB /TEST FOR SPECIAL CHARS. 1133 006207 7773 -5 1134 006210 7563 -215;CARROT 006211 6233 1135 006212 7566 -212;GET /IGNORE LINE FEEDS. 006213 6203 1136 006214 7564 -214;GET /IGNORE FORM FEEDS 006215 6203 1137 006216 7441 -337;BKAROW /CD DOESN'T LIKE _, ONLY < 006217 6224 1138 006220 7600 -200;GET /IGNORE BLANKS (NULLS) V3C 006221 6203 1139 006222 1335 TAD BNAM 1140 006223 7410 SKP 1141 006224 1374 BKAROW, TAD ("< 1142 006225 2256 ISZ GLPTR 1143 006226 3656 DCA I GLPTR 1144 006227 1256 TAD GLPTR 1145 006230 1373 TAD (-LINBUF-110 /OVERFLOW BUFFER? 1146 006231 7710 SPA CLA 1147 006232 5203 JMP GET /NOT YET. 1148 006233 1656 CARROT, TAD I GLPTR /GET LAST CHAR INPUT 1149 006234 1372 TAD (-244 /$? 1150 006235 7640 SZA CLA 1151 006236 5241 JMP NALTMD /NO 1152 006237 1656 TAD I GLPTR /GET $ 1153 006240 7410 SKP 1154 006241 2256 NALTMD, ISZ GLPTR /BUMP TO NEXT CHAR IF NO ALTMODE 1155 006242 3255 DCA AMODE /STORE ALTMODE FLAG 1156 006243 3656 DCA I GLPTR /CLEAR END CHAR IN BUFFER 1157 006244 1771 TAD I (LINBUF 1158 006245 7650 SNA CLA /WAS LINE NULL? 1159 006246 5201 JMP GLINE+1 /YES - IGNORE 1160 006247 5600 JMP I GLINE 1161 1162 006250 6032 EOF, KCC /HANG ON INPUT ACTION 1163 006251 4770 JMS I (PRMESG /INDICATE FAILURE 1164 006252 6611 INPMSG 1165 006253 4767 JMS I (TTY /WAIT FOR INPUT 1166 006254 5203 JMP GET /AND RETURN 1167 1168 006255 0000 AMODE, 0 1169 006256 0000 GLPTR, 0 1170 /DOLRD INTERPRETS $ CARDS 1171 1172 006257 0000 DOLRD, 0 1173 006260 1371 TAD (LINBUF /GET THE NAME OF THE $ COMMAND 1174 006261 3334 DCA BLPTR 1175 006262 3335 DCA BNAM 1176 006263 2334 GWRD2, ISZ BLPTR 1177 006264 1734 TAD I BLPTR 1178 006265 7450 SNA 1179 006266 5305 JMP NOCMD /FUNNY..NOTHING THERE! 1180 006267 1366 TAD (-240 /IGNORE LEADING SPACES 1181 006270 7450 SNA 1182 006271 5263 JMP GWRD2 1183 006272 1366 TAD (-240 /NOT A SPACE. TAKE WHATEVER IT IS. 1184 006273 0365 AND (77 1185 006274 7106 CLL RTL;RTL;RTL 006275 7006 006276 7006 1186 006277 3335 DCA BNAM /KEYBOARD MON. WILL EXAMINE IT. 1187 006300 2334 ISZ BLPTR 1188 006301 1734 TAD I BLPTR 1189 006302 0365 AND (77 1190 006303 1335 TAD BNAM 1191 006304 3335 DCA BNAM 1192 006305 1335 NOCMD, TAD BNAM 1193 006306 7650 SNA CLA 1194 006307 5764 JMP I (KJOB 1195 006310 4775 JMS I (TESTB /TEST IT 1196 006311 7775 -3 1197 006312 7262 -0516;END /$END CARD 006313 5542 1198 006314 6255 -1523;MSGST /$MSG CARD IMAGE 006315 6324 1199 006316 6561 -1217;JOB /$JOB CARD 006317 6321 1200 006320 2257 DLCRUD, ISZ DOLRD /$CRUD 1201 006321 1657 JOB, TAD I DOLRD 1202 006322 3257 DCA DOLRD 1203 006323 5657 JMP I DOLRD 1204 1205 006324 4763 MSGST, JMS I (MSG /PRINT MESSAGE 1206 006325 5320 JMP DLCRUD /TREAT LIKE CRUD 1207 1208 006326 4257 CDOLLR, JMS DOLRD 1209 006327 7044 CDKBD /$JOB 1210 006330 7006 CDGET /$OTHER 1211 1212 006331 4257 KMDOLR, JMS DOLRD 1213 006332 5651 DOLECH /$JOB 1214 006333 5614 BOSSB /$OTHER 1215 1216 006334 0000 BLPTR, 0 1217 006335 0000 BNAM, 0 1218 /HERE FROM CD WHEN DONE TO ANALYZE CD AREA 1219 1220 006336 6201 CDRENT, CDF 0 1221 006337 1762 TAD I (LKUPSW /GET THE DEFAULT EXTENSION 1222 006340 4761 JMS I (CDFRST /SET CURRENT DF 1223 006341 4760 JMS I (CDSCN /SCAN CD LINE 1224 006342 6032 KCC 1225 006343 6042 TCF /CLEAR FLAGS JUST LIKE CD WOULD 1226 006344 6203 CDF CIF 0 1227 006345 5757 JMP I (CDOVER+3 /RESUME CD AT TERMINATION CODE 1228 006357 0331 PAGE 006360 7200 006361 6475 006362 0245 006363 6001 006364 7034 006365 0077 006366 7540 006367 7475 006370 6043 006371 6640 006372 7534 006373 1030 006374 0274 006375 6022 006376 5400 006377 6637 1229 006400 0021 CDT, 0021;2223;2425;2627;3031;3203;4007;3502 006401 2223 006402 2425 006403 2627 006404 3031 006405 3203 006406 4007 006407 3502 1230 006410 2017 2017;6364;6566;6770;7172;7514;0577;3637 006411 6364 006412 6566 006413 6770 006414 7172 006415 7514 006416 0577 006417 3637 1231 006420 1552 1552;5354;5556;5760;6162;0104;1211;3374 006421 5354 006422 5556 006423 5760 006424 6162 006425 0104 006426 1211 006427 3374 1232 006430 0641 0641;4243;4445;4647;5051;7316;3410;1376 006431 4243 006432 4445 006433 4647 006434 5051 006435 7316 006436 3410 006437 1376 1233 1234 006440 0000 TTYOUT, 0 /TESTS AC FOR FORM FEED 1235 006441 1377 TAD (-214 1236 006442 7450 SNA 1237 006443 5247 JMP TFORM /GENERATE LINE FEEDS 1238 006444 1376 TAD (214 1239 006445 4263 JMS TTYPE 1240 006446 5640 JMP I TTYOUT 1241 006447 1375 TFORM, TAD (-4 1242 006450 3256 DCA TCOUNT 1243 006451 1374 TAD (212 1244 006452 4263 JMS TTYPE 1245 006453 2256 ISZ TCOUNT 1246 006454 5251 JMP .-3 1247 006455 5640 JMP I TTYOUT 1248 006456 0000 TCOUNT, 0 1249 1250 006457 0000 NULOUT, 0 1251 006460 7200 CLA /DEEP-SIX THE CHARACTER 1252 006461 4773 JMS I (CTRLC 1253 006462 5657 JMP I NULOUT 1254 006463 0000 TTYPE, 0 /TELETYPE OUTPUT STUFF 1255 006464 6046 TLS 1256 006465 6041 TSF 1257 006466 5265 JMP .-1 1258 006467 7200 CLA 1259 006470 4773 JMS I (CTRLC 1260 006471 5663 JMP I TTYPE 1261 1262 006472 4300 BOSPRT, JMS ERHDR /PRINT MESSAGE 1263 006473 6203 CIF CDF 0 1264 006474 5772 JMP I (PRINT+10 1265 1266 006475 0000 CDFRST, 0 1267 006476 7402 BOSCDF, HLT 1268 006477 5675 JMP I CDFRST 1269 1270 006500 0000 ERHDR, 0 /ERROR HEADER ROUTINE 1271 006501 3275 DCA CDFRST /SAVE CHARACTER 1272 006502 1771 TAD I (DOLFLG /FIRST ENTRY? 1273 006503 7640 SZA CLA 1274 006504 5307 JMP .+3 /NO. 1275 006505 1370 TAD ("# /ERROR PROMPT 1276 006506 4767 JMS I (OUTCHR 1277 006507 1766 TAD I (BOSSW /GET BATCH FLAGS WORD 1278 006510 7040 CMA 1279 006511 0365 AND (1000 /SET $ SLEW FLAG NEGATIVE IF NO /E, 1280 006512 7126 STL RTL /NON-ZERO IN ANY CASE 1281 006513 3771 DCA I (DOLFLG 1282 006514 1275 TAD CDFRST 1283 006515 4767 JMS I (OUTCHR 1284 006516 5700 JMP I ERHDR 1285 1286 006517 0000 CRLF, 0 1287 006520 1364 TAD (215 1288 006521 4767 JMS I (OUTCHR 1289 006522 1374 TAD (212 1290 006523 4767 JMS I (OUTCHR 1291 006524 5717 JMP I CRLF 1292 1293 006525 0000 BOSLPT, 0 /BATCH LINE PRINTER ROUTINE 1294 006526 6666 PCLS 1295 006527 7200 CLA 1296 006530 4773 JMS I (CTRLC 1297 006531 6661 PSKF 1298 006532 5330 JMP .-2 1299 006533 5725 JMP I BOSLPT 1300 1301 006534 4763 MORKIL, JMS I (CDFRST 1302 006535 1762 TAD I (OLDCOR 1303 006536 6203 CIF CDF 0 1304 006537 3761 DCA I (7777 /RESTORE WORD 1305 006540 5760 JMP I (7605 1306 006560 7605 PAGE 006561 7777 006562 6042 006563 6475 006564 0215 006565 1000 006566 6000 006567 5735 006570 0243 006571 5742 006572 0210 006573 7454 006574 0212 006575 7774 006576 0214 006577 7564 1307 /ERROR MESSAGES 1308 1309 006600 1517 CDEMSG, TEXT /MONITOR OVERLAYED/ 006601 1611 006602 2417 006603 2240 006604 1726 006605 0522 006606 1401 006607 3105 006610 0400 1310 006611 1116 INPMSG, TEXT /INPUT FAILURE/ 006612 2025 006613 2440 006614 0601 006615 1114 006616 2522 006617 0500 1311 006620 0201 BADMSG, TEXT /BAD LINE. JOB ABORTED/ 006621 0440 006622 1411 006623 1605 006624 5640 006625 1217 006626 0240 006627 0102 006630 1722 006631 2405 006632 0400 1312 006633 2331 SERMSG, TEXT /SYS ERROR/ 006634 2340 006635 0522 006636 2217 006637 2200 1313 1314 006640 0000 LINBUF, ZBLOCK 113 006641 0000 006642 0000 006643 0000 006644 0000 006645 0000 006646 0000 006647 0000 006650 0000 006651 0000 006652 0000 006653 0000 006654 0000 006655 0000 006656 0000 006657 0000 006660 0000 006661 0000 006662 0000 006663 0000 006664 0000 006665 0000 006666 0000 006667 0000 006670 0000 006671 0000 006672 0000 006673 0000 006674 0000 006675 0000 006676 0000 006677 0000 006700 0000 006701 0000 006702 0000 006703 0000 006704 0000 006705 0000 006706 0000 006707 0000 006710 0000 006711 0000 006712 0000 006713 0000 006714 0000 006715 0000 006716 0000 006717 0000 006720 0000 006721 0000 006722 0000 006723 0000 006724 0000 006725 0000 006726 0000 006727 0000 006730 0000 006731 0000 006732 0000 006733 0000 006734 0000 006735 0000 006736 0000 006737 0000 006740 0000 006741 0000 006742 0000 006743 0000 006744 0000 006745 0000 006746 0000 006747 0000 006750 0000 006751 0000 006752 0000 1315 1316 PAGE 1317 007000 4777 BATABT, JMS I (CDFRST /THIS CODE IS HERE FOR CCL! 1318 007001 1776 TAD I (BOSSW /GET BATCH SWITCHES 1319 007002 7040 CMA 1320 007003 0375 AND (1000 /IF /E FLAG IS UP CCL ERRORS ARE NON-FATAL, 1321 007004 7106 CLL RTL 1322 007005 5237 JMP CDKILX /OTHERWISE WE SHOULD ABORT BATCH ON THEM 1323 1324 007006 4774 CDGET, JMS I (GLINE /READ INPUT 1325 007007 1773 TAD I (HUSH 1326 007010 7650 SNA CLA /DON'T ECHO CD LINES IF HUSHED 1327 007011 4772 JMS I (ECHO 1328 007012 1371 TAD (LINBUF-1 1329 007013 3264 DCA CDGPTR 1330 007014 1770 TAD I (DOLFLG /$JOB FLAG UP? 1331 007015 7710 SPA CLA 1332 007016 5244 JMP CDKBD /SLEW UNTIL $JOB 1333 007017 2264 ISZ CDGPTR 1334 007020 1664 TAD I CDGPTR 1335 007021 3767 DCA I (BNAM 1336 007022 4766 JMS I (TESTB /TEST PROMPT CHAR. 1337 007023 7774 -4 1338 007024 7526 -"*;CDLINE /* IS OK 007025 7065 1339 007026 7521 -"/;CDGET /REMARK 007027 7006 1340 007030 7534 -"$;CDOLLR 007031 6326 1341 007032 7522 -".;CDKBD /RECALL KEYBOARD MON. 007033 7044 1342 007034 4765 KJOB, JMS I (PRMESG 1343 007035 6620 BADMSG /ILLEGAL CHARACTER 1344 007036 7330 CDKILL, STL CLA RAR /4000 1345 007037 3770 CDKILX, DCA I (DOLFLG /ABORT TO NEXT $JOB 1346 007040 4764 JMS I (SETJSW /MARK BATCH IN CORE 1347 007041 6203 CIF CDF 0 1348 007042 5643 JMP I .+1 1349 007043 7605 7605 /RESTART. 1350 1351 007044 6202 CDKBD, CIF 0 1352 007045 4763 JMS I (SYSTEM 1353 007046 1000 1000 1354 007047 0000 0 1355 007050 0007 KMREC 1356 007051 7610 SYIERR, SKP CLA 1357 007052 5256 JMP .+4 1358 007053 4765 JMS I (PRMESG 1359 007054 6633 SERMSG 1360 007055 7402 HLT 1361 007056 4764 JMS I (SETJSW /MARK BATCH IN CORE 1362 007057 4762 JMS I (KMLINK /LINK TO NEW KEYBOARD 1363 007060 1361 TAD (BOSRE /WE WANT TO RETAIN OLD LINE 1364 007061 6203 CIF CDF 0 1365 007062 3760 DCA I (BCHGO+2 1366 007063 5757 JMP I (BEGLN+1 1367 1368 007064 0000 CDGPTR, 0 1369 007065 4756 CDLINE, JMS I (MOVE /PUT LINE INTO CD 1370 007066 7666 -112 1371 007067 6641 LINBUF+1 1372 007070 6201 CDF 0 1373 007071 1200 CDBEGLN 1374 007072 1755 TAD I (AMODE 1375 007073 6211 CDF 10 1376 007074 7640 SZA CLA /CHECK WHETHER ALTMODE TERMINATED LINE 1377 007075 7130 STL RAR /IT DID - SET CD ALTMODE FLAG 1378 007076 3754 DCA I (MPARAM-1 1379 007077 6203 CIF CDF 0 1380 007100 5701 JMP I .+1 1381 007101 0202 ANALYZ 1382 1383 007102 4765 DEVKIL, JMS I (PRMESG 1384 007103 7117 PTRMSG 1385 007104 5236 JMP CDKILL 1386 1387 007105 1501 HLPMSG, TEXT /MANUAL HELP NEEDED/ 007106 1625 007107 0114 007110 4010 007111 0514 007112 2040 007113 1605 007114 0504 007115 0504 007116 0000 1388 007117 1114 PTRMSG, TEXT /ILLEGAL INPUT DEVICE/ 007120 1405 007121 0701 007122 1440 007123 1116 007124 2025 007125 2440 007126 0405 007127 2611 007130 0305 007131 0000 1389 007132 0516 EOBMSG, TEXT /END BATCH/ 007133 0440 007134 0201 007135 2403 007136 1000 1390 007137 2320 SPLMSG, TEXT /SPOOL TO FILE / 007140 1717 007141 1440 007142 2417 007143 4006 007144 1114 007145 0540 007146 0000 1391 *.-1 1392 007146 0224 BCHFIL, TEXT /BTCHA0/ 007147 0310 007150 0160 007151 0000 1393 007154 7642 PAGE 007155 6255 007156 7521 007157 1001 007160 0050 007161 5634 007162 6115 007163 7607 007164 5554 007165 6043 007166 6022 007167 6335 007170 5742 007171 6637 007172 7503 007173 5743 007174 6200 007175 1000 007176 6000 007177 6475 1394 /SUBROUTINE TO ANALYZE CD AREA - ENTER FROM ANY FIELD 1395 /WITH DEFAULT EXTENSION IN AC 1396 1397 007200 0000 CDSCN, 0 1398 007201 3340 DCA EXT /SAVE EXTENSION 1399 007202 6214 RDF 1400 007203 1377 TAD (CDF CIF 0 1401 007204 3335 DCA CDSCRT /SAVE RETURN FIELD 1402 007205 1376 TAD (7600 1403 007206 3252 DCA CDTEMP /LOOK AT CD AREA 1404 007207 7346 MTHREE 1405 007210 3342 DCA CDCNT 1406 007211 4775 CDSCAN, JMS I (CDFRST 1407 007212 1774 TAD I (BOSSW 1408 007213 7106 CLL RTL 1409 007214 6211 CDF 10 1410 007215 7630 SZL CLA /IS SPOOLING ENABLED 1411 007216 1652 TAD I CDTEMP /AND IS THERE AN OUTPUT? 1412 007217 0373 AND (17 1413 007220 7450 SNA 1414 007221 5260 JMP NCKSPL /NO - DON'T LOOK 1415 007222 1372 TAD (DCB-1 /CHECK FILE OR NON-FILE STATUS 1416 007223 3343 DCA CDTMP2 1417 007224 1743 TAD I CDTMP2 /SPOOL NON-FILE DEVICES 1418 007225 7710 SPA CLA 1419 007226 5260 JMP NCKSPL /FILE STRUCTURED OUTPUT 1420 007227 1652 TAD I CDTEMP 1421 007230 0371 AND (7760 1422 007231 1337 TAD SPLDEV /RESET CD AREA 1423 007232 3652 DCA I CDTEMP 1424 007233 2252 ISZ CDTEMP /POINT TO FILENAME AREA 1425 007234 4775 JMS I (CDFRST 1426 007235 1770 TAD I (SPLNUM 1427 007236 0367 AND (11 1428 007237 7041 CIA 1429 007240 1367 TAD (11 1430 007241 7650 SNA CLA 1431 007242 1366 TAD (66 1432 007243 7001 IAC 1433 007244 1770 TAD I (SPLNUM 1434 007245 3765 DCA I (BCHFIL+2 1435 007246 4764 JMS I (MOVE 1436 007247 7774 -4 1437 007250 7146 BCHFIL 1438 007251 6211 CDF 10 1439 007252 0000 CDTEMP, 0 /76XX 1440 007253 4763 JMS I (PRMESG /PRINT FILENAME 1441 007254 7137 SPLMSG 1442 007255 1765 TAD I (BCHFIL+2 /SET NEW FILENAME 1443 007256 3770 DCA I (SPLNUM 1444 007257 7240 CLA CMA 1445 007260 1252 NCKSPL, TAD CDTEMP 1446 007261 1362 TAD (5 1447 007262 3252 DCA CDTEMP 1448 007263 1340 TAD EXT 1449 007264 7650 SNA CLA 1450 007265 5335 JMP CDSCRT /YES - LOOK NO MORE 1451 007266 2342 ISZ CDCNT 1452 007267 5211 JMP CDSCAN /KEEP LOOKING 1453 007270 1361 CDX1, TAD (-11 /SCAN INPUT AREA 1454 007271 3342 DCA CDCNT 1455 007272 1360 TAD (7617 1456 007273 3341 DCA CDPTR /PICK UP MANUAL INPUTS. 1457 007274 6211 INPSCN, CDF 10 1458 007275 1741 TAD I CDPTR 1459 007276 7450 SNA /ANY INPUTS? 1460 007277 5335 JMP CDSCRT /3 GUESSES! 1461 007300 0373 AND (17 1462 007301 1372 TAD (DCB-1 /GET DEVICE IDENTIFIER 1463 007302 3343 DCA CDTMP2 1464 007303 1743 TAD I CDTMP2 1465 007304 0357 AND (770 1466 007305 4775 JMS I (CDFRST 1467 007306 7450 SNA 1468 007307 5316 JMP RBELL /TELETYPE INPUT - CHECK OPERATOR 1469 007310 1356 TAD (-10 1470 007311 7640 SZA CLA 1471 007312 5330 JMP CDX3 /OK INPUT DEVICE 1472 007313 1774 TAD I (BOSSW 1473 007314 7710 SPA CLA /PTR: INPUT - IS BATCH FROM PTR? 1474 007315 5755 JMP I (DEVKIL /YES - ILLEGAL 1475 007316 1774 RBELL, TAD I (BOSSW /OPERATOR AVAILABLE? 1476 007317 7110 CLL RAR 1477 007320 7630 SZL CLA 1478 007321 5755 JMP I (DEVKIL /NO. ABORT THE JOB 1479 007322 1354 TAD (207 1480 007323 4753 JMS I (TTYOUT 1481 007324 4763 JMS I (PRMESG 1482 007325 7105 HLPMSG /MANUAL INTERVENTION REQUIRED. 1483 007326 4752 JMS I (CRLF 1484 007327 5335 JMP CDSCRT 1485 007330 7326 CDX3, CLA CLL CML RTL 1486 007331 1341 TAD CDPTR 1487 007332 3341 DCA CDPTR 1488 007333 2342 ISZ CDCNT 1489 007334 5274 JMP INPSCN 1490 007335 7402 CDSCRT, HLT 1491 007336 5600 JMP I CDSCN /RETURN TO CALLER 1492 1493 007337 0000 SPLDEV, 0 /GETS SPOOL DEVICE # 1494 007340 0000 EXT, 0 1495 007341 0000 CDPTR, 0 1496 007342 0000 CDCNT, 0 1497 007343 0000 CDTMP2, 0 1498 007352 6517 PAGE 007353 6440 007354 0207 007355 7102 007356 7770 007357 0770 007360 7617 007361 7767 007362 0005 007363 6043 007364 7521 007365 7150 007366 0066 007367 0011 007370 7776 007371 7760 007372 7757 007373 0017 007374 6000 007375 6475 007376 7600 007377 6203 1499 /THIS ROUTINE IS NOT REFERENCED FROM BATCH- 1500 /IT PROVIDES A WAY FOR A USER TO OUTPUT MESSAGES 1501 /TO THE BATCH LOG DEVICE 1502 1503 007400 0000 BATOUT, 0 /CALLABLE FROM ANY FIELD 1504 007401 3254 DCA CTRLC /WITH CHARACTER IN AC 1505 007402 6214 RDF 1506 007403 1240 TAD CDCF0 /GET CDF CIF TO CALLING FIELD 1507 007404 3210 DCA BATORT 1508 007405 4777 JMS I (CDFRST /CDF TO CURRENT FIELD 1509 007406 1254 TAD CTRLC 1510 007407 4776 JMS I (OUTCHR /OUTPUT THE CHARACTER 1511 007410 7402 BATORT, HLT 1512 007411 5600 JMP I BATOUT 1513 /ENTER HERE FROM COMMAND DECODER WHEN CD CALLED 1514 1515 007412 6224 CDBOS, RIF /FILL IN CIF CDF N 1516 007413 1240 TAD CDCF0 /TO LINK CD AND BOS 1517 007414 3243 DCA CDLST1 1518 007415 1243 TAD CDLST1 1519 007416 3246 DCA CDLST2 1520 007417 1246 TAD CDLST2 1521 007420 3251 DCA CDLST3 1522 007421 4321 JMS MOVE 1523 007422 7775 CM3, -3 1524 007423 7443 CDLST1 1525 007424 6201 CDF 0 1526 007425 1370 TYPE+1 /LINK ERROR PRINTOUT TO BOS 1527 1528 007426 4321 JMS MOVE 1529 007427 7775 -3 1530 007430 7446 CDLST2 1531 007431 6201 MCDF0, CDF 0 1532 007432 1002 CGLINE /LINK INPUT TO BOS 1533 1534 007433 4321 JMS MOVE 1535 007434 7775 -3 1536 007435 7451 CDLST3 1537 007436 6201 CDF 0 1538 007437 0326 CDOVER /EXIT FROM LINE ANALYSIS 1539 007440 6203 CDCF0, CIF CDF 0 1540 007441 5642 JMP I .+1 1541 007442 0677 RESTRT+1 /START UP CD 1542 1543 /** THESE 3 WORDS LOAD INTO "TYPE+1" IN THE COMMAND DECODER ** 1544 007443 6203 CDLST1, CIF CDF 0 1545 007444 5772 TYPE+3&177+5600 /"JMP I .+1" 1546 007445 7560 CDPRT 1547 1548 /** THESE 3 WORDS LOAD INTO "CGLINE" IN THE COMMAND DECODER ** 1549 007446 6203 CDLST2, CIF CDF 0 1550 007447 5604 CGLINE+2&177+5600 /"JMP I .+1" 1551 007450 7006 CDGET /RETURN TO CDGET AFTER ZEROING CD AREA 1552 1553 /** THESE 3 WORDS LOAD INTO "CDOVER" IN THE COMMAND DECODER ** 1554 007451 6203 CDLST3, CIF CDF 0 1555 007452 5730 CDOVER+2&177+5600 /"JMP I .+1" 1556 007453 6336 CDRENT 1557 007454 0000 CTRLC, 0 /CHECK FOR ^C 1558 007455 6034 KRS 1559 007456 0375 AND (177 1560 007457 1222 TAD CM3 1561 007460 7650 SNA CLA 1562 007461 6031 KSF 1563 007462 5654 JMP I CTRLC 1564 007463 5664 JMP I .+1 1565 007464 5547 BKILL 1566 1567 007465 0000 ECHOT, 0 /ECHOES LINE ON TTY 1568 007466 1374 TAD (TTYOUT /SET TTY AS OUTPUT 1569 007467 3773 DCA I (BOUTDV 1570 007470 4303 JMS ECHO /ECHO IT 1571 007471 4772 JMS I (CRLF 1572 007472 1771 TAD I (OUTPUT 1573 007473 3773 DCA I (BOUTDV /RESET OUTPUT 1574 007474 5665 JMP I ECHOT 1575 1576 007475 0000 TTY, 0 1577 007476 6031 KSF 1578 007477 5276 JMP .-1 1579 007500 4254 JMS CTRLC 1580 007501 6032 KCC 1581 007502 5675 JMP I TTY 1582 1583 007503 0000 ECHO, 0 /ECHO INPUT LINE 1584 007504 1370 TAD (LINBUF-1 1585 007505 3357 DCA EPTR 1586 007506 2357 ECHO2, ISZ EPTR 1587 007507 1757 TAD I EPTR 1588 007510 7450 SNA 1589 007511 5314 JMP ECO3 1590 007512 4776 JMS I (OUTCHR 1591 007513 5306 JMP ECHO2 1592 007514 1767 ECO3, TAD I (AMODE /NEED $ PRINTED? 1593 007515 7440 SZA 1594 007516 4776 JMS I (OUTCHR /YES 1595 007517 4772 JMS I (CRLF 1596 007520 5703 JMP I ECHO 1597 007521 0000 MOVE, 0 1598 007522 6214 RDF 1599 007523 1231 TAD MCDF0 1600 007524 3343 DCA MVIPUT 1601 007525 1721 TAD I MOVE 1602 007526 3254 DCA MVTMP /COUNT 1603 007527 2321 ISZ MOVE 1604 007530 7240 CLA CMA 1605 007531 1721 TAD I MOVE 1606 007532 3355 DCA MVPT1 /INPUT STUFF 1607 007533 2321 ISZ MOVE 1608 007534 1721 TAD I MOVE 1609 007535 3346 DCA MVOPUT /OUTPUT FIELD 1610 007536 2321 ISZ MOVE 1611 007537 7240 CLA CMA 1612 007540 1721 TAD I MOVE 1613 007541 3356 DCA MVPT2 1614 007542 2321 ISZ MOVE 1615 007543 7402 MVIPUT, HLT 1616 007544 2355 ISZ MVPT1 1617 007545 1755 TAD I MVPT1 1618 007546 7402 MVOPUT, HLT 1619 007547 2356 ISZ MVPT2 1620 007550 3756 DCA I MVPT2 1621 007551 2254 ISZ MVTMP 1622 007552 5343 JMP MVIPUT 1623 007553 4777 JMS I (CDFRST 1624 007554 5721 JMP I MOVE 1625 1626 MVTMP= CTRLC 1627 1628 007555 0000 MVPT1, 0 1629 007556 0000 MVPT2, 0 1630 007557 0000 EPTR, 0 1631 1632 007560 4766 CDPRT, JMS I (ERHDR 1633 007561 6203 CIF CDF 0 /LINK BACK TO CD 1634 007562 5763 JMP I .+1 1635 007563 1377 TYPE+10 1636 007566 6500 PAGE 007567 6255 007570 6637 007571 5741 007572 6517 007573 5740 007574 6440 007575 0177 007576 5735 007577 6475 1637 1638 FIELD 0 1639 *200 1640 $$$$$$$$$$ AMFLAG 0017 AMODE 6255 ANALEX 1543 ANALYZ 0202 BADMON 1636 BADMSG 6620 BADSPL 0537 BATABT 7000 unreferenced BATASK 0203 BATCH 0035 BATIN 5400 BATORT 7410 BATOUT 7400 BATPTR 1054 BATRET 0532 BATVFY 5600 unreferenced BCDIF0 6144 BCHAIN 0210 BCHFIL 7146 BCHGO 0046 BEGLN 1000 BILEN 0142 BKAROW 6224 BKILL 5547 BLOK 1221 BLPTR 6334 BMVCNT 1726 BNAM 6335 BOS 5601 BOSCDF 6476 BOSCTL 0023 BOSLPT 6525 BOSPRT 6472 BOSRE 5634 BOSREC 0514 BOSSB 5614 BOSSW 6000 BOUTDV 5740 BTBUF 1220 BUFFER 3000 C026 1121 C029 1136 CARROT 6233 CBATCH 4562 CCDIF0 1502 CCTRLC 1505 CDBEGL 1200 CDBOS 7412 CDCF0 7440 CDCNT 7342 CDCR 1451 CDEMSG 6600 CDERR 5646 CDFBOS 0525 CDFRST 6475 CDFTOP 0024 CDGET 7006 CDGPTR 7064 CDKBD 7044 CDKILL 7036 CDKILX 7037 CDLINE 7065 CDLST1 7443 CDLST2 7446 CDLST3 7451 CDM240 1511 CDOLLR 6326 CDOVER 0326 CDPRT 7560 CDPTR 7341 CDR 1400 CDR215 1512 CDR240 1510 CDR77 1507 CDRDOL 1516 CDREC 0051 CDRENT 6336 CDRISZ 1457 CDRPTR 1513 CDRRET 1461 CDSCAN 7211 CDSCN 7200 CDSCRT 7335 CDT 6400 CDTEMP 7252 CDTMP2 7343 CDX1 7270 unreferenced CDX3 7330 CDXIT 1460 unreferenced CGLINE 1002 CHANGE 1060 CHCNT 1503 CHCOM 1276 CHKSPC 1444 CHOUT 1313 CHPTR 1104 CHUG 0656 CLST 1105 CM3 7422 CONT 0407 COR8 1616 COUNT 0022 CRLF 6517 CSLCT 1412 CTEMP 1514 CTIMER 1515 CTRLC 7454 DCB 7760 DEFALT 0042 unreferenced DEV1 0033 DEVKIL 7102 DLCRUD 6320 DOLEC2 5674 DOLECH 5651 DOLFLG 5742 DOLRD 6257 DUN 0703 DVICE 0043 ECHO 7503 ECHO2 7506 ECHOT 7465 ECO3 7514 END 5542 EOBMSG 7132 EOC 1437 EOF 6250 EOINIT 1742 EOPTN 1727 EPTR 7557 ERHDR 6500 EXT 7340 FILPTR 0416 GET 6203 GETCH 1455 GETCOM 5720 GETCOR 0641 GETDOL 5702 GEWD 1235 GLINE 6200 GLPTR 6256 GOTDOL 5713 GWDLP 1227 GWRD2 6263 HLPMSG 7105 HUSH 5743 HUSH2 5700 ICHAR1 1273 ICHAR2 1272 INCOR 0744 INDERR 0343 INPMSG 6611 INPSCN 7274 IOSYS 1214 JMPCH 1246 JMPDOT 1242 JOB 6321 JSW 7746 K 0743 K10 0661 K2 0415 K7777 0517 KEYMON 0403 KJOB 7034 KMDOLR 6331 KMLINK 6115 KMLST 6136 KMLST2 6141 KMREC 0007 LINBUF 6640 LKUPSW 0245 LPTTST 1517 LZERO 0000 M2 5734 MCDF0 7431 MCONT 0607 MESSG 0600 MORKIL 6534 MOVE 7521 MPARAM 7643 MSG 6001 MSGST 6324 MSGXIT 0634 MTHREE 7346 MTWO 7344 unreferenced MVINSB 1713 MVIPUT 7543 MVOPUT 7546 MVPT1 7555 MVPT2 7556 MVTMP 7454 NALTMD 6241 NAMECT 0031 NBATCH 1600 NCKSPL 7260 NEWCRD 1410 NOBACH 0534 NOCMD 6305 NOCORE 0737 NODEV 1647 NOLPT 0320 NOTCDR 0261 NOTSYS 0252 NULOUT 6457 NXPRG 6146 OLDCOR 6042 ORIGIN 5400 OUTCHR 5735 OUTPUT 5741 OUTSW 0041 PCDIF0 1020 PCDT 1506 PCHAR 0620 PCLS 6666 PCRLF 0637 PCTRLC 1332 PLNBUF 1504 PNCH 6063 PRINT 0200 PRMESG 6043 PRMOUT 6111 PRMSG2 6052 PRTEMP 6145 PRTTY 6074 PSKF 6661 PSYBLK 1322 PSYCNT 1323 PSYIER 1325 PTIMER 1027 PTM2 1011 PTMER 1022 PTR 1000 PTR200 1030 PTRDOL 1031 PTRISZ 1015 PTRMSG 7117 PTRRET 1016 RBELL 7316 RCRA 6632 RCRD 6674 RCSD 6671 RCSE 6672 RCSF 6631 RDCOLM 1416 RDNEXC 1415 unreferenced RESTRT 0676 SERMSG 6633 SETH 1154 SETJSW 5554 SPCIG 1463 SPCONT 0400 SPLDEV 7337 SPLERR 1662 SPLMSG 7137 SPLNUM 7776 START 0200 unreferenced STOCOR 0710 STODEV 0271 SY7400 1333 SYBLKN 7774 SYBUFF 1045 SYCDIF 1337 SYCHCN 1317 SYCNT 7775 SYCNTL 1217 SYCTL 1044 SYEXT 1312 SYGETC 1240 SYIERR 7051 SYM601 1327 SYREC 1046 SYS 1032 SYS177 1334 SYS232 1336 SYS3 1331 SYS601 1326 SYSCHR 1321 unreferenced SYSDOL 1340 SYSIN 1200 SYSIN4 1204 SYSINH 1324 SYSISZ 1314 SYSM3 1330 SYSM32 1335 SYSRET 1315 SYSTEM 7607 SYTEMP 1321 T1 0027 T2 0030 TCOUNT 6456 TCTRLC 1021 TEMP 0020 TEMP2 0021 TESTB 6022 TFORM 6447 TIME 1471 TOPCDF 0025 TSBOVR 6037 TSTB2 6025 TT 0021 TTY 7475 TTYOUT 6440 TTYPE 6463 TYPE 1367 VERMSG 1675 VERSON 0007 VERTST 1703 WPTR 1320 XGLINE 1200 XR1 0016 XR2 0017