File: BATC50.LS of Disk: V50/Source/Source-Listing-PAL-1
(Source file text)
/BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 1 /BATCH PROCESSOR DP FOR OS8 V50 / / / / / / / / / /COPYRIGHT (C) 1978,1979,1980 BY DATAPLAN GMBH, LAUDA, BRD / AND 2015 W. VAN DER MARK / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DATAPLAN GMBH. /DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR /IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DATAPLAN'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DATAPLAN. / /DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY /OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DATAPLAN. / / / / / / / / / / / / /W.V.D.MARK, DP CONSULTING, ZUERICH, SWITZERLAND /10-DEC-1978 /30-MAY-1979 / 1-FEB-1980 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 2 /ABSTRACT--- /BATCH IS THE INITIALIZING PROGRAM FOR THE OS/8 BATCH /PROCESSING MONITOR. TO SET UP A BATCHL RUN, TYPE / .R BATCH OR .SUBMIT TO CCL /BATCHL WILL CALL THE COMMAND DECODER TO OBTAIN ITS /PARAMETERS AND INPUT FILE LOCATION, OR CCL WILL. DECIMAL 0062 VERSON= 50 0330 VEDIT= "X OCTAL / GERMAN=1 /NOT ANYMORE /*** .SA SYS BATCH=3401 *** /EDITING HISTORY: / / VERSION 1: 30-JUN-78 (BATCH LINK) / ========= / VERSION 2: 10-DEC-78 / ========= / EDIT 2: XONOF,M8 RELEASE,KEEP STATUS FROM LEVEL 2 / / VERSION 40: 9-JUL-79 / ========== / / ADAPT TO OS8 V40 / GERMAN MESSAGES / NEW SWITCH /S FOR SUBROUTINE / EDIT B: 1-FEB-80 / CORRECT SPOOL NAME /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 3 / BATCH VERSION 40B / BATCH SWITCHES /C BATCH FROM CARDS /E IGNORE KMON, CD, AND CCL ERRORS /H HUSH (ALSO SETS /Q) /I BATCH FROM TTY: - FOR INTERACTIVE PLAYS /L FORCE BATCH LOG TO LPT - BATCH DEFAULT IS TTY: /P BATCH FROM PAPER TAPE /Q QUIET - NO BATCH LOG - BUT $MESSAGES /S SUBROUTINE - PERMIT TO LEVEL 2 /T BATCH LOG TO TTY (DEFAULT;IGNORED) /U UNATTENDED /V BATCH VERSION /6 USE 026 CARD CODES (ONLY IF /C) / BATCH CONTROL CARDS /$JOB STARTS NEW BATCH JOB (FULL PAGE ON LPT) /$MSG MESSAGE TO TERMINAL AND WAIT FOR OPERATOR /$END ENDS CURRENT JOB. RETURN TO LOWER LEVEL OR KM. /$ERR IF BATCH ERROR STATUS ON, STARTS EXECUTING / IF BATCH ERROR STATUS OFF, STOPS EXECUTING. /$EXIT STOP EXECUTING, BUT DO NOT END JOB. /$RESUM REENABLE EXECUTION (AFTER $ERR OR $EXIT) /$SKIP SKIP NEXT BATCH COMMAND IF NO ERROR / EXECUTE NEXT COMMAND IF ERROR, TURN ERROR OFF / /.GOTO $LABEL IS CCL COMMAND TO GO TO $LABEL (BACKWARDS?) / WILL ONLY WORK ON FILE-STRUCTURED BATCH STREAM / THIS NEW VERSION OF BATCH PERMITS TWO LEVELS / OF SUBMIT COMMANDS. THE $END IN LEVEL 2 WILL / RETURN CONTROL TO THE COMMAND AFTER THE SUBMIT / IN LEVEL 1 WHICH STARTED LEVEL 2. /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 4 /SYSTEM DEPENDENT PARAMETERS 3000 BUFFER=EOHNDL /READ WRITE BUFFER 0002 BUFRCS=2 /BUF SIZE 0400 BUFCTL=BUFRCS^20+0^10 /BUF CTLW 4000 BUFHND=BUFRCS^400+BUFFER/HANDLER BUFFER 5400 ORIGIN=5400 /ORIGIN OF BOS 0051 CDREC=51 /COMMAND DECODER 0007 KMREC=7 /KEYBOARD MONITOR 0165 BIMAX=165 /MAX HANDLER LENGTH 7746 JSW=7746 /JOB STATUS WORD 7760 DCB=7760 /DEVICE CONTROL BLOCK 7344 MTWO=CLA CLL CMA RAL 7346 MTHREE=CLA CLL CMA RTL 7607 SYSTEM=7607 7643 MPARAM=7643 7757 MREAD=7757 7747 SOFSET=7747 /******************************************** 0400 KMNTRY=400 0403 KEYMON=403 1000 BEGLN=1000 0200 PRINT=200 1200 XGLINE=1200 1252 CARRET=1252 0017 AMFLAG=17 /REALLY FOR CCL 0035 BATCH=35 /REFERS TO KEYBOARD MONITOR!!!!!!! 0046 BCHGO=46 /THEY MUST!!!!! BE CORRECT!!!!!! 4570 CBATCH=4570 /CONTENTS OF LOC "BATCH" IN KM V40 /******************************************* 0326 CDOVER=326 1200 CDBEGLN=1200 /CD BUFFER AREA 0202 ANALYZ=202 /CD ANALYSIS 1367 TYPE=1367 /ERROR OUTPUT ROUTINE 1002 CGLINE=1002 0021 TT=21 /THESE REFER TO CD ASSEMBLY***VOLATILE*** 0043 DVICE=43 /IF CD OR MAIN OS/8 ASSEMBLY CHANGES, 0245 DEFALT=245 /REALLY NOT DEFALT, BUT SPCMOD SWITCH 0041 OUTSW=41 /THESE VALUES MUST BE ALTERED ALSO. 0031 NAMECT=31 0033 DEV1=33 0676 RESTRT=676 /******************************************** /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 5 /******************************************** 0660 LPTCOD=66^10 6661 PSKF=6001+LPTCOD /LE8 IOT'S 6666 PCLS=6006+LPTCOD 6632 RCRA=6632 /CARD READER IOT'S 6672 RCSE=6672 6671 RCSD=6671 6631 RCSF=6631 6674 RCRD=6674 /***************************** 7301 AC0001= CLA CLL IAC 7305 AC0002= CLA CLL IAC RAL 7325 AC0003= CLA STL IAC RAL 7307 AC0004= CLA CLL IAC RTL 7330 AC4000= CLA STL RAR /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 6 /BATCH USES CERTAIN SYSTEM WORDS AS FLAGS AND STATUS /INDICATORS. THEY ARE: /LOC. 07777. THIS IS USED AS THE BATCH IN PROGRESS FLAG. /BIT 0: IS FOR CCL /BIT 1: IS BATCH IN PROGRESS. (BIP) =1 MEANS BATCH IS ON /BIT 2: IS ON IF OS/8 IN BACKGROUND OF RTS/8 /BITS 3-4: DATE EXTENSION BITS (YEAR-70)MOD 8 /BIT 5: RESERVED /BITS 6-8: HOLD THE FIELD WHERE BATCH IS SITTING /BIT 9: RESERVED /BIT 10: IS USED BY BAT: TO SIGNAL IT HAS READ A DOLLAR SIGN /BIT 11: IS USED BY THE COMMAND DECODER TO SIGNAL BATCH NOT THERE /THE JOB STATUS WORD USES BIT 3 AS AN INDICATOR AS TO /WHETHER THE BATCH MONITOR IS CURRENTLY IN CORE. =1 MEANS /THAT THE BATCH SYSTEM NEED NOT BE RE-READ. /BOSSW IS A FLAG WORD INTERNAL TO THE BATCH MONITOR. /IT IS SET UP DURING BATCH INITIALIZATION. /BIT 0: 1 IF USE OF PTR IS PROHOBITED DURING RUN /BIT 1: 1 IF ?SPOOLING? TO NON FS DEVICE /BIT 2: 1 IF KMON AND CD ERRORS ARE FATAL /BIT 6: 1 IF TTY: IS OUTPUT DEVICE /BIT 7: 1 IF OUTPUT IS HUSHED /BIT 10: 1 IF LPT IS OUTPUT DEVICE /BIT 11: 1 IF OPERATOR IS NOT PRESENT /IF SYS IS INPUT, LOCATIONS 7774 AND 7775 IN THE TOP FIELD /ARE USED AS POINTERS TO THE CORRECT DATA BLOCK ON THE /SYSTEM DEVICE. THE BUFFER IS RE-READ WHENEVER THE /BATCH MONITOR MUST BE RE-READ. 7777 SPLNUM= 7777 /SPOOL SEQUENCE NUMBER 7776 DOLFLG= 7776 /SLEW FLAG (ERROR STATUS) 7775 SYCNT= 7775 /CHARACTER COUNT IN BUFFER 7774 SYBLKN= 7774 /SYSTEM DEVICE BLOCK NUMBER /IF SPOOLING IS USED, LOC. N7777 IS USED TO HOLD THE /XX IN 'BTCHXX.SP'. /THE ERROR STATUS FLAG MAY BE SET BY USER PROGRAMS /TO THE ERROR VALUE OF 4000. BOS WILL THAN SEARCH /FOR THE NEXT $JOB,$ERROR,$SKIP OR $RESUME. /WITH THE NEW VERSION 'M' OF BAT: THE ERROR STATUS /MAY BE SET BY DOING OUTPUT TO BAT: (NO HANDLER ERROR) /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 7 /BATCH INITIALIZER PAGE 0 0016 *16 000016 0000 XR1, 0 000017 0000 XR2, 0 000020 0000 TEMP, 0 000021 0000 TEMP2, 0 000022 0000 COUNT, 0 000023 0203 DSTART, START /THE FOLLOWING 12 ARE THE ONLY /BOS VARIABLES; INITIALIZED AND /TRANSFERRED AT STARTUP. 000024 0000 BATCTL, 0 /**NON-BATCH BIPCCL OF 7777 000025 1400 BATIDV, BATSYS /**BOS INPUT DEVICE 000026 0201 BATCTW, 201 /**FOR READING BUFFER 000027 7607 BATINH, SYSTEM /**SYSTEM ENTRY POINT 000030 0000 BATFRS, 0 /**FIRST BLOCK OF BATCH FILE 000031 6430 BATODV, TTYOUT /**OUTPUT DEVICE 000032 0000 BATSWI, 0 /**BECOMES 'BOSSW' 000033 0000 BATSPL, 0 /**SPOOL DEVICE 000034 1234 CDFTOP, 1234 /**SUBR CDF BOS AND LEVEL 000035 6201 TOPCDF, CDF /**CDF TO TOP FIELD FROM GETCOR 000036 5434 JMP I CDFTOP /THAT'S ALL 000037 6202 TOPCIF, CIF /NEXT 4 WORDS ARE PERMANENTLY IN /TOP-FIELD 7774-7777. 000040 0000 BATBLK, 0 /##BLOCK OF INPUT FILE ON SYS: 000041 7177 BATCNT, -601 /##COUNT FOR SYS: FILE 000042 4000 BATDOL, 4000 /##BOS SLEW SWITCH SET FOR $JOB 000043 0160 BATNUM, 0160 /##A0: NAME FOR SPOOL FILE 000044 0000 BOSBLK, 0 /FIRST BLOCK OF BATCH IMAGE 000045 0000 BABA, 0 /4000 IF BATCH UNDER BATCH 000046 1101 BOSCTL, 7600-ORIGIN%2+1 /CONTROL WORD TO READ/WRITE BOS 000047 0000 FLBITS, 0 /HIGH-CORE FIELD BITS 000050 0000 T1, 0 000051 0000 T2, 0 0200 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 8 000200 2023 ISZ DSTART /START ENTRY-POINT 000201 4777 CHAIN, JMS I (GETCOR /DETERMINE CORE SIZE; PUT IN 7777 000202 5423 JMP I DSTART 000203 5211 START, JMP BCHAIN /IF CHAINED TO 000204 6201 BATASK, CDF 0 /IF STARTED AND LOOP 000205 6212 CIF 10 000206 4577 JMS I [200 000207 0005 5 /DECODE 000210 0211 0211 /.BI ASSUMED EXT 000211 6211 BCHAIN, CDF 10 000212 3032 DCA BATSWI 000213 1376 TAD (TTYOUT 000214 3031 DCA BATODV /SET DEFAULT 000215 1576 TAD I [MPARAM+1 000216 0175 AND [4 /GET /V SWITCH 000217 7650 SNA CLA /IS IT ON? 000220 5223 JMP .+3 /NO 000221 4574 JMS I [MESSG 000222 1200 VERMSG /PRINT BATCH VERSION NUMBER 000223 6211 CDF 10 000224 1775 TAD I (7620 000225 3040 DCA BATBLK /GET STARTING BLOCK 000226 1774 TAD I (7617 000227 7450 SNA 000230 5252 JMP NOTSYS /NO FILE - BATCH FROM PTR,CDR29,CDR26,TTY 000231 0173 AND [17 000232 1172 TAD [MPARAM+3 /POINT INTO HANDLER TABLE 000233 3051 DCA T2 000234 1451 TAD I T2 000235 7100 CLL 000236 1177 TAD [200 /IS THE DEVICE SYS OR CORESIDENT WITH SYS? 000237 7420 SNL 000240 4773 JMS I (SYSCOP /NO, COPY TO SYS:BATTEM.BI 000241 1171 TAD [-200 /GET DEVICE HANDLER ENTRY POINT 000242 3027 DCA BATINH /STORE AS BATCH INPUT HANDLER 000243 1040 TAD BATBLK 000244 3030 DCA BATFRS /STORE FIRST BLOCK FOR CCL GOTO 000245 1372 TAD (-601 000246 3041 DCA BATCNT /SET UP PARAMETERS FOR INPUT FILE 000247 6211 CDF 10 000250 1371 TAD (BATSYS 000251 5303 JMP STODEV/INPUT DEV = SYS 000252 1570 NOTSYS, TAD I [MPARAM 000253 7006 RTL /GET C FLAG IN SIGN BIT 000254 7700 SMA CLA 000255 5264 JMP NOTCDR 000256 1770 TAD I (MPARAM+2 000257 0367 AND (10 /GET /6 SWITCH 000260 7640 SZA CLA 000261 1366 TAD (BATCD6-BATCD9 /HANDLER WITH 26 CODE 000262 1365 TAD (BATCD9 /HANDLER WITH 29 CODE 000263 5303 JMP STODEV /INPUT DEV = CDR: /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 9 000264 1570 NOTCDR, TAD I [MPARAM 000265 0167 AND [10 / /I= INPUT FROM TTY 000266 7650 SNA CLA 000267 5274 JMP NOTTY 000270 1364 TAD (NULOUT /SUPPRESS DOUBLE ECHO 000271 3031 DCA BATODV 000272 1363 TAD (BATTTY 000273 5303 JMP STODEV 000274 1576 NOTTY, TAD I [MPARAM+1 000275 0166 AND [400 000276 7650 SNA CLA 000277 5762 JMP I (NOINPU /NO INPUT SPECIFIED 000300 7130 STL RAR 000301 3032 DCA BATSWI /PTR INPUT FLAG 000302 1366 TAD (BATPTR 000303 3025 STODEV, DCA BATIDV /SET FOR PROPER BOS INPUT ROUTINE 000304 1576 GETQSW, TAD I [MPARAM+1 000305 0361 AND (210 /GET /Q AND /U SWITCHES 000306 7106 CLL RTL 000307 7006 RTL 000310 7004 RAL / /Q INTO LINK 000311 7640 SZA CLA 000312 7001 IAC /SET UNATTENDED BIT IF /U SPECIFIED 000313 4565 JMS I [INCOR 000314 0032 BATSWI 000315 6211 CDF 10 000316 1570 TAD I [MPARAM 000317 0164 AND [20 / /H? 000320 7650 SNA CLA 000321 5326 JMP NOHUSH /NO 000322 1164 TAD [20 000323 1032 TAD BATSWI 000324 3032 DCA BATSWI /SET BIT 7 FOR HUSH 000325 7120 STL /INDICATE /Q 000326 7420 NOHUSH, SNL 000327 5332 JMP NONULL 000330 1364 TAD (NULOUT /EIGHTY-SIX THE BATCH LOG 000331 5342 JMP STOOUT /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 10 000332 7201 NONULL, CLA IAC 000333 0570 AND I [MPARAM /TEST /L FOR LPT LOG 000334 7650 SNA CLA 000335 5760 JMP I (NONOTH 000336 7126 STL RTL 000337 1032 TAD BATSWI /SET BIT 10 FOR LPT OUT 000340 3032 DCA BATSWI 000341 1357 TAD (BOSLPT 000342 3031 STOOUT, DCA BATODV 000343 5760 JMP I (NONOTH 000357 6544 000360 0600 000361 0210 000362 2314 000363 1000 000364 6462 000365 2000 000366 0400 000367 0010 000370 7645 000371 1400 000372 7177 000373 2600 000374 7617 000375 7620 000376 6430 000377 1654 0400 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 11 IFNZRO .&377 <PERR, ?> 000400 0000 BATPTR, 0 /HI SPEED READER HANDLER 000401 6214 RDF /** MOVED TO 5400 IN BATCH FIELD ** 000402 1220 TAD PCDIF0 000403 3216 DCA PTRRET 000404 4631 JMS I PTRDOL /CHECK FOR $ INSERTION 000405 5215 JMP PTRISZ /YES 000406 3227 DCA PTIMER 000407 4621 JMS I PCTRLC 000410 6014 RFC 000411 6011 PTM2, RSF 000412 5222 JMP PTMER 000413 1230 TAD PTR200 /FORCE PARITY ON 000414 6012 RRB 000415 2200 PTRISZ, ISZ BATPTR 000416 7402 PTRRET, HLT 000417 5600 JMP I BATPTR 000420 6203 PCDIF0, CDF CIF 0 000421 6446 PCTRLC, CTC 000422 0400 PTMER, AND I 0 000423 0400 AND I 0 000424 2227 ISZ PTIMER 000425 5211 JMP PTM2 /TIMES OUT IN 16 MS. 000426 5216 JMP PTRRET 000427 0000 PTIMER, 0 000430 0200 PTR200, 200 000431 5700 PTRDOL, GETDOL IFZERO .-BATPTR-BIMAX&4000 <PTRBAT, ????> NBATCH, 000432 0201 IFNDEF GERMAN < TEXT /BATCH.SV NOT FOUND ON SYS:/> 000433 2403 000434 1056 000435 2326 000436 4016 000437 1724 000440 4006 000441 1725 000442 1604 000443 4017 000444 1640 000445 2331 000446 2372 000447 0000 IFDEF GERMAN < TEXT /BATCH.SV NICHT AUF SYSTEM /> /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 12 COR8, 000450 1116 IFNDEF GERMAN < TEXT /INSUFFICIENT CORE FOR BATCH RUN/> 000451 2325 000452 0606 000453 1103 000454 1105 000455 1624 000456 4003 000457 1722 000460 0540 000461 0617 000462 2240 000463 0201 000464 2403 000465 1040 000466 2225 000467 1600 IFDEF GERMAN < TEXT /ZU WENIG SPEICHER FUER BATCH.SV/> BADMON, 000470 2722 IFNDEF GERMAN < TEXT /WRONG OS8 MONITOR/> 000471 1716 000472 0740 000473 1723 000474 7040 000475 1517 000476 1611 000477 2417 000500 2200 IFDEF GERMAN < TEXT /ALTER OS8 MONITOR/> SIOMSG, 000501 2331 IFNDEF GERMAN < TEXT \SYSTEM I/O ERROR\> 000502 2324 000503 0515 000504 4011 000505 5717 000506 4005 000507 2222 000510 1722 000511 0000 IFDEF GERMAN < TEXT /SYSTEM LS-FEHLER/> NODEV, 000512 4004 IFNDEF GERMAN < TEXT / DEV NOT IMPLEMENTED_/> 000513 0526 000514 4016 000515 1724 000516 4011 000517 1520 000520 1405 000521 1505 000522 1624 000523 0504 000524 3700 IFDEF GERMAN < TEXT /GERAET NICHT BEKANNT_/> /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 13 SPLNFS, 000525 2320 IFNDEF GERMAN < TEXT /SPOOLING TO NON FS DEVICE_/> 000526 1717 000527 1411 000530 1607 000531 4024 000532 1740 000533 1617 000534 1640 000535 0623 000536 4004 000537 0526 000540 1103 000541 0537 000542 0000 IFDEF GERMAN < TEXT /SPULEN OHNE .SP DATEIEN!!_/> OUTMSG, 000543 2331 IFNDEF GERMAN < TEXT /SYSTEM DEVICE FULL/> 000544 2324 000545 0515 000546 4004 000547 0526 000550 1103 000551 0540 000552 0625 000553 1414 000554 0000 IFDEF GERMAN < TEXT /SYSTEM-GERAET VOLL/> GEINPU, 000555 1617 IFNDEF GERMAN < TEXT /NO INPUT!_/> 000556 4011 000557 1620 000560 2524 000561 4137 000562 0000 IFDEF GERMAN < TEXT /EINGABE??_/> 0564 *BATPTR+BIMAX-1 /THIS MUST!! BE AFTER ALL HANDLERS 000564 0000 0 /ROUTINE TO SET JOB 000565 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 000566 6201 CDF 0 /BATCH IS STILL IN CORE 000567 0776 AND I (JSW 000570 1375 TAD (400 000571 3776 DCA I (JSW 000572 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 000573 5764 JMP I .-7 000574 6610 000575 0400 000576 7746 000577 7377 0600 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 14 000600 1031 NONOTH, TAD BATODV 000601 7041 CIA 000602 1377 TAD (TTYOUT /IF ODEV TTY SET FLAG 000603 7650 SNA CLA 000604 1163 TAD [40 000605 1032 TAD BATSWI 000606 3032 DCA BATSWI /AND SET BIT 6 000607 1571 SPOOL, TAD I [7600 000610 7450 SNA 000611 5227 JMP CONT /NO SPOOLING 000612 0173 AND [17 000613 3033 DCA BATSPL 000614 1033 TAD BATSPL 000615 1376 TAD (DCB-1 000616 3051 DCA T2 000617 1451 TAD I T2 000620 7710 SPA CLA 000621 5227 JMP CONT 000622 7132 STL RTR 000623 1032 TAD BATSWI 000624 3032 DCA BATSWI 000625 4574 JMS I [MESSG 000626 0525 SPLNFS /?SPOOLING? TO NON FS DEVICE 000627 6211 CONT, CDF 10 000630 1570 TAD I [MPARAM /CHECK FOR /E SWITCH 000631 7040 CMA /NO SWITCH=ERROR MODE 000632 0177 AND [200 000633 7106 CLL RTL 000634 1032 TAD BATSWI 000635 3032 DCA BATSWI 000636 6201 CDF 0 000637 1775 TAD I (MREAD-1 /IS BATCH COMING FROM SYS:? 000640 1374 TAD (-7607 000641 7640 SZA CLA 000642 5773 JMP I (NOBACH /BATCH FILE NOT FOUND 000643 7201 CLA IAC 000644 1772 TAD I (SOFSET /GET BLOCK IT CAME FROM 000645 3044 DCA BOSBLK /FIRST BLOCK OF BATCH IMAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 15 000646 1371 KMMOD, TAD (ORIGIN&7400 /GET RECORD # OF BOS 000647 7002 BSW 000650 7112 CLL RTR /MAKES BLOCKS 000651 1044 TAD BOSBLK 000652 3770 DCA I (BOSREC 000653 1045 TAD BABA /ARE WE UNDER BATCH? 000654 7710 SPA CLA 000655 5767 JMP I (BOSMOD /YES; NO NEED TO ADAPT KM&CD 000656 1162 TAD [201 000657 4561 JMS I [SYS /READ AND ALTER KEYBOARD MON. 000660 3000 BUFFER 000661 0007 KMREC 000662 1766 TAD I (BUFFER+BATCH /GET VERSION OF MONITOR 000663 1365 TAD (-CBATCH 000664 7640 SZA CLA 000665 5764 JMP I (MONERR 000666 1770 TAD I (BOSREC /ALTER KEYBOARD MONITOR 000667 3763 DCA I (BUFFER+BATCH+3 /RECORD # 000670 1047 TAD FLBITS /ALTER CONTROL WORD 000671 1046 TAD BOSCTL 000672 3762 DCA I (BUFFER+BATCH+1 000673 1371 TAD (ORIGIN&7400 000674 3761 DCA I (BUFFER+BATCH+2 000675 1037 TAD TOPCIF 000676 3760 DCA I (BCHGO+BUFFER /JMP TO CORRECT FIELD 000677 1357 TAD (BOS /START ADD. OF MONITOR 000700 3756 DCA I (BCHGO+BUFFER+2 /ENTRY POINT 000701 1160 TAD [4200 /RE-WRITE KEYBD. MON. 000702 4561 JMS I [SYS 000703 3000 BUFFER 000704 0007 KMREC 000705 1162 TAD [201 /READ IN COMMAND DECODER 000706 4561 JMS I [SYS 000707 3000 BUFFER /AND INSERT BOS RECORD 000710 0051 CDREC 000711 1035 TAD TOPCDF /NOW FILL IN THE COMMAND DECODER 000712 3755 DCA I (TT+BUFFER 000713 1354 TAD (BATVFY 000714 3753 DCA I (DVICE+BUFFER /ALLOW CD TO CHECK BATCH VALIDITY 000715 1352 TAD (-2214 000716 3751 DCA I (OUTSW+BUFFER 000717 1037 TAD TOPCIF /STORE CIF CDF BOS 000720 3750 DCA I (NAMECT+BUFFER 000721 1347 TAD (CDBOS 000722 3746 DCA I (DEV1+BUFFER 000723 1160 TAD [4200 000724 4561 JMS I [SYS /RE WRITE CD. 000725 3000 BUFFER 000726 0051 CDREC 000727 5767 JMP I (BOSMOD /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 16 000746 3033 000747 7421 000750 3031 000751 3041 000752 5564 000753 3043 000754 5600 000755 3021 000756 3050 000757 5601 000760 3046 000761 3037 000762 3036 000763 3040 000764 2272 000765 3210 000766 3035 000767 1207 000770 1316 000771 5400 000772 7747 000773 2267 000774 0171 000775 7756 000776 7757 000777 6430 1000 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 17 IFNZRO .&377 <PERR, ?> 001000 0000 BATTTY, 0 /TERMINAL INPUT HANDLER 001001 6214 RDF /** MOVED TO 5400 IN BATCH FIELD ** 001002 1326 TAD TTICDI /FOR INTERACTIVE PLAYS 001003 3266 DCA TTIRET 001004 4730 JMS I TTIDOL /CHECK FOR $ INSERTION 001005 5265 JMP TTIISZ /YES 001006 2336 TTIGET, ISZ TCNT 001007 5262 JMP TTINXT 001010 7240 TTIGO, STA 001011 3336 DCA TCNT 001012 3334 DCA TRUB 001013 1335 TAD TTIBUF 001014 3337 DCA TPTR 001015 4723 TTIIGN, JMS I TCTRLC 001016 6031 KSF 001017 5215 JMP TTIIGN 001020 6036 KRB 001021 0331 AND TTI177 001022 4724 JMS I TTESTB 001023 7773 -5 001024 7763 -15;TTIEOL-BATTTY+BATIN 001025 5454 001026 7601 -177;TTIRUB-BATTTY+BATIN 001027 5500 001030 7766 -12;TTIREP-BATTTY+BATIN /LF 001031 5541 001032 7753 -25;TTIBRU-BATTTY+BATIN /^U 001033 5554 001034 7746 -32;TTIRET-BATTTY+BATIN /^Z 001035 5466 001036 3340 DCA TTIIN 001037 2334 TTO, ISZ TRUB 001040 5243 JMP .+3 001041 1304 TAD TBSLS 001042 4733 JMS I TTIOUT 001043 3334 DCA TRUB 001044 1340 TAD TTIIN 001045 4733 JMS I TTIOUT 001046 1340 TAD TTIIN 001047 4270 JMS TSTOR 001050 1337 TAD TPTR 001051 1325 TCU, TAD TMB110 001052 7710 SPA CLA 001053 5215 T215, JMP TTIIGN /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 18 001054 4315 TTIEOL, JMS TCRLF 001055 1253 TAD T215 001056 4270 JMS TSTOR 001057 1335 TAD TTIBUF 001060 3337 DCA TPTR 001061 5206 JMP TTIGET 001062 2337 TTINXT, ISZ TPTR 001063 1737 TAD I TPTR 001064 1332 TAD TTI200 001065 2200 TTIISZ, ISZ BATTTY /NORMAL RETURN 001066 7402 TTIRET, HLT 001067 5600 JMP I BATTTY 001070 0000 TSTOR, 0 001071 0331 AND TTI177 001072 2337 ISZ TPTR 001073 3737 DCA I TPTR 001074 7240 STA 001075 1336 TAD TCNT 001076 3336 DCA TCNT 001077 5670 JMP I TSTOR 001100 2336 TTIRUB, ISZ TCNT 001101 7410 SKP 001102 5254 JMP TTIEOL 001103 1304 TAD TBSLS 001104 2334 TBSLS, ISZ TRUB 001105 4733 JMS I TTIOUT 001106 7240 STA 001107 3334 DCA TRUB 001110 1737 TAD I TPTR 001111 4733 JMS I TTIOUT 001112 7240 TTROF, STA 001113 1337 TAD TPTR 001114 5214 JMP TTIIGN-1 001115 0000 TCRLF, 0 001116 1253 TAD T215 001117 4733 JMS I TTIOUT 001120 1327 TAD T212 001121 4733 JMS I TTIOUT 001122 5715 JMP I TCRLF /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 19 001123 6446 TCTRLC, CTC 001124 6030 TTESTB, TESTB 001125 1014 TMB110, -LINBUF-110 001126 6203 TTICDI, CIF CDF 0 001127 0212 T212, 212 001130 5700 TTIDOL, GETDOL 001131 0177 TTI177, 177 001132 0200 TTI200, 200 001133 6430 TTIOUT, TTYOUT 001134 0000 TRUB, 0 001135 6653 TTIBUF, LINBUF-1 001136 7777 TCNT, -1 001137 6653 TPTR, LINBUF-1 001140 0000 TTIIN, 0 001141 4315 TTIREP, JMS TCRLF 001142 4270 JMS TSTOR 001143 2336 TUPA, ISZ TCNT 001144 1335 TAD TTIBUF 001145 3340 DCA TTIIN 001146 2340 ISZ TTIIN 001147 1740 TAD I TTIIN 001150 7450 SNA 001151 5312 JMP TTROF 001152 4733 JMS I TTIOUT 001153 5346 JMP .-5 001154 1343 TTIBRU, TAD TUPA 001155 4733 JMS I TTIOUT 001156 1251 TAD TCU 001157 4733 JMS I TTIOUT 001160 4315 JMS TCRLF 001161 5210 JMP TTIGO IFZERO .-BATTTY-BIMAX&4000 <TTYBAT, ????> 1164 *BATTTY+BIMAX-1 /THIS MUST!! BE AFTER ALL HANDLERS 001164 0000 0 /ROUTINE TO SET JOB 001165 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 001166 6201 CDF 0 /BATCH IS STILL IN CORE 001167 0776 AND I (JSW 001170 1375 TAD (400 001171 3776 DCA I (JSW 001172 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 001173 5764 JMP I .-7 001174 6610 001175 0400 001176 7746 001177 7377 1200 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 20 0005 VV1=VERSON%12 0062 VV2=VV1^12 001200 4002 VERMSG, TEXT / BATCH V/ /NICE SPOT 001201 0124 001202 0310 001203 4026 001204 0000 1204 *.-1 001204 6560 VV1+60^100+VERSON-VV2+60 /"40" 001205 3037 VEDIT&77^100+37;0 /"X_" 001206 0000 001207 1045 BOSMOD, TAD BABA /IF WE ARE ALREADY UNDER BATCH 001210 7700 SMA CLA /WE WANT TO STORE LEVEL1 INFO FIRST 001211 5263 JMP BOSCRE /NO; CREATE NEW BATCH 001212 6211 CDF 10 001213 1576 TAD I [MPARAM+1 001214 6201 CDF 0 001215 0163 AND [40 /ONLY SECOND LEVEL IF /S 001216 7650 SNA CLA 001217 5264 JMP BOSTAY /SORRY! BUT LEAVE HIM IN LEVEL 1 OR 2 001220 1777 TAD I (LEVEL2 /LOOK AT LEVEL INDICATOR 001221 7640 SZA CLA /IF ALREADY IN SECOND LEVEL 001222 5776 JMP I (LVERR /WE GIVE ERR MESG AND CONTINUE /IN THE LEVEL2 RUN. 001223 4775 JMS I (MVINSB /MOVE TABLE TO STORAGE 001224 7766 -12 001225 6600 BCTLTM 001226 6201 CDF 0 /DO THIS IN FIELD 0 001227 7517 LVOLD /WE WRITE IN FILE AND HIGH CORE /AFTERWARDS. LEVEL2 IS SET. 001230 1035 TAD TOPCDF 001231 3774 DCA I (LVCDF2 /FOR STORING BACK 001232 7330 AC4000 001233 1046 TAD BOSCTL 001234 1047 TAD FLBITS 001235 3773 DCA I (LVCTRL /CONTROL WORD FOR REBOOT 001236 1316 TAD BOSREC 001237 3772 DCA I (LVBLK /FOR REBOOTING LEVEL 1 001240 1157 TAD [100 /ONE PAGE HANDLER 001241 1047 TAD FLBITS 001242 3771 DCA I (HNDCTL /FOR READING HANDLER IN 001243 1770 TAD I (BINDEV /GET OLD HANDLER LOC 001244 7002 BSW 001245 7112 CLL RTR /CONVERT TO BLOCKS 001246 1044 TAD BOSBLK 001247 3767 DCA I (HNDBLK /SO IT CAN REREAD THIS HANDLER 001250 1035 TAD TOPCDF /NOW WE STORE THE 4 RESIDENT 001251 3766 DCA I (LVCDF1 /WORDS IN BOS.<- FOR REWRITE 001252 4034 JMS CDFTOP /GET THESE FROM HIGH CORE 001253 1765 TAD I (SPLNUM /IS SPECIAL: STORE IN BATCH 001254 3043 DCA BATNUM /FOR SEQUENTIAL NUMBERS 001255 4775 JMS I (MVINSB 001256 7775 -3 001257 7774 SYBLKN /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 20-1 001260 6201 CDF 0 /OK; WILL REWRITE 001261 7111 OLDBLK 001262 5264 JMP BOSTAY /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 21 001263 3777 BOSCRE, DCA I (LEVEL2 /BE SURE SWITCH IS OFF 001264 4775 BOSTAY, JMS I (MVINSB /NOW CREATE NEW RUN 001265 7766 -12 001266 0024 BATCTL 001267 6201 CDF 0 001270 6600 BCTLTM 001271 1037 TAD TOPCIF 001272 3764 DCA I (KMLST1 001273 1037 TAD TOPCIF 001274 3763 DCA I (KMLST2 001275 1037 TAD TOPCIF 001276 3762 DCA I (CDLST1 001277 1037 TAD TOPCIF 001300 3761 DCA I (CDLST2 001301 1037 TAD TOPCIF 001302 3760 DCA I (CDLST3 001303 1025 TAD BATIDV 001304 3307 DCA .+3 001305 4775 JMS I (MVINSB /TRANSFER ROUTINE TO BOS 001306 7614 -BIMAX+1 001307 7402 HLT 001310 6201 CDF 0 001311 5400 BATIN 001312 7330 AC4000 001313 1046 TAD BOSCTL 001314 4561 JMS I [SYS /INPUT POINTERS SET UP. 001315 5400 ORIGIN&7400 001316 7402 BOSREC, HLT 001317 7332 CLA STL RTR /BATCH IN PROGRESS 001320 4565 JMS I [INCOR 001321 7777 K7777, 7777 001322 4775 JMS I (MVINSB /PUT IMAGE OF BOS 001323 5600 ORIGIN-7600 /INTO HIGH CORE 001324 5400 ORIGIN 001325 7402 CDFBOS, HLT 001326 5400 ORIGIN 001327 1325 TAD CDFBOS 001330 3334 DCA .+4 001331 4775 JMS I (MVINSB 001332 7774 -4 001333 0040 BATBLK 001334 7402 HLT 001335 7774 SYBLKN 001336 7200 CLA 001337 6203 BATRET, CIF CDF 0 001340 5556 JMP I [7605 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 22 001360 7451 001361 7446 001362 7443 001363 6142 001364 6137 001365 7777 001366 7477 001367 7506 001370 6601 001371 7504 001372 7514 001373 7512 001374 7103 001375 2217 001376 2322 001377 7527 1400 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 23 IFNZRO .&377 <PERR, ?> 001400 0000 BATSYS, 0 /INPUT FROM SYSTEM DEVICE 001401 6214 RDF /** MOVED INTO 5400 IN BATCH FIELD ** 001402 1347 TAD SYCDIF 001403 3325 DCA SYSRET 001404 4750 SYSIN4, JMS I SYSDOL /CHECK FOR $ INSERTION 001405 5324 JMP SYSISZ /YES 001406 5212 SYFIX, JMP SYREAD /**SYS SENTINEL = 5212 AT **5406** 001407 0000 SYSH, 0 /GETS ADDRESS OF INPUT HANDLER (RESIDENT) 001410 0000 SYCHCN, 0 001411 4750 JMS I SYSDOL /FOR RESTORING SYSIN4 001412 1207 SYREAD, TAD SYSH /RE-READ BUFFER? 001413 7640 SZA CLA 001414 5250 JMP SYGETC /NO. STILL THERE 001415 1733 TAD I PSYCN 001416 3227 DCA SYC /GET VARIABLES 001417 1734 TAD I PSYCH 001420 3207 DCA SYSH 001421 1731 TAD I PSYBLKN 001422 3231 DCA BLOK 001423 1732 TAD I PSYCNT 001424 3210 IOSYS, DCA SYCHCN /RESTORE CHARACTER COUNT 001425 6202 CIF 0 001426 4607 JMS I SYSH /READ THE BLOCK 001427 0000 SYC, 0 001430 5000 BTBUF, ORIGIN-400 001431 0000 BLOK, 0 001432 5735 JMP I PSYIERR 001433 1230 TAD BTBUF /SET BUFFER POINTER. 001434 3327 DCA WPTR /NOW DETERMINE FROM COUNT WHICH WORD 001435 1336 TAD SYS601 /WAS INTERRUPTED. WHEN AC GOES NEG., 001436 1210 TAD SYCHCN /WE ARE AT PROPER 2 WORD GROUP. 001437 1340 GWDLP, TAD SYSM3 /THEN WE FORM A JMP TO CORRECT WORD 001440 7510 SPA 001441 5245 JMP GEWD 001442 2327 ISZ WPTR /SKIP 2 WORDS 001443 2327 ISZ WPTR 001444 5237 JMP GWDLP 001445 1341 GEWD, TAD SYS3 /FORM A JMP CHARX, X=1,2,3 001446 1252 TAD JMPDOT 001447 3256 DCA JMPCH /SET UNPACK SWITCH 001450 2256 SYGETC, ISZ JMPCH /NORMAL CHAR. FETCH 001451 2210 ISZ SYCHCN /NEED NEW BLOCK? 001452 5256 JMPDOT, JMP JMPCH /NO 001453 2231 ISZ BLOK /YES. NEXT BLOCK 001454 1337 TAD SYM601 001455 5224 JMP IOSYS /READ IT. /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 24 001456 5256 JMPCH, JMP JMPCH /3 WAY SWITCH 001457 5303 JMP ICHAR1 /FIRST OF 3 001460 5302 JMP ICHAR2 /SECOND 001461 1252 TAD JMPDOT 001462 3256 DCA JMPCH /RESET 3 WAY SWITCH 001463 4742 JMS I SCTRLC 001464 1727 TAD I WPTR /NOTE THAT WE CAN'T DESTROY WPTR BY 001465 0343 AND SY7400 /BY DOING ISZ'S UNTIL THE 3RD CHAR. 001466 7112 CLL RTR /THAT IS BECAUSE IF WE ARE BROKEN 001467 7012 RTR /UP, WE CAN ONLY POINT TO THE 2 WORD 001470 3330 DCA SYTEMP /GROUP AS A WHOLE. 001471 2327 ISZ WPTR 001472 1727 TAD I WPTR 001473 0343 AND SY7400 001474 7106 CLL RTL 001475 7006 RTL 001476 7004 RAL 001477 1330 TAD SYTEMP 001500 2327 ISZ WPTR /BUMP TO NEXT GROUP 001501 5306 JMP CHCOM 001502 7201 ICHAR2, CLA IAC 001503 1327 ICHAR1, TAD WPTR 001504 3330 DCA SYTEMP /THIRD CHAR NEEDS WPTR! 001505 1730 TAD I SYTEMP 001506 0344 CHCOM, AND SYS177 001507 3330 DCA SYTEMP 001510 1210 TAD SYCHCN 001511 3732 DCA I PSYCNT 001512 1231 TAD BLOK 001513 3731 DCA I PSYBLKN 001514 1330 TAD SYTEMP /CHECK FOR ^Z 001515 1345 TAD SYSM32 001516 7440 SZA 001517 5323 JMP CHOUT /NOPE. OK 001520 1322 TAD SYEXT /^Z. DISABLE INPUT 001521 3204 DCA SYSIN4 001522 5325 SYEXT, JMP SYSRET 001523 1346 CHOUT, TAD SYS232 001524 2200 SYSISZ, ISZ BATSYS 001525 7402 SYSRET, HLT /CDF CIF RETURN FIELD 001526 5600 JMP I BATSYS /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 25 001527 0000 WPTR, 0 SYSCHR, 001530 0000 SYTEMP, 0 001531 7774 PSYBLK, SYBLKN 001532 7775 PSYCNT, SYCNT 001533 6602 PSYCN, SYCNTL 001534 6603 PSYCH, SYSINH 001535 7044 PSYIER, SYIERR 001536 0601 SYS601, 601 001537 7177 SYM601, -601 001540 7775 SYSM3, -3 001541 0003 SYS3, 3 001542 6446 SCTRLC, CTC 001543 7400 SY7400, 7400 001544 0177 SYS177, 177 001545 7746 SYSM32, -32 001546 0232 SYS232, 232 001547 6203 SYCDIF, CDF CIF 0 001550 5700 SYSDOL, GETDOL IFZERO .-BATSYS-BIMAX&4000 <SYSBAT, ????> 1564 *BATSYS+BIMAX-1 /THIS MUST!! BE AFTER ALL HANDLERS 001564 0000 0 /ROUTINE TO SET JOB 001565 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 001566 6201 CDF 0 /BATCH IS STILL IN CORE 001567 0776 AND I (JSW 001570 1375 TAD (400 001571 3776 DCA I (JSW 001572 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 001573 5764 JMP I .-7 001574 6610 001575 0400 001576 7746 001577 7377 1600 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 26 001600 0000 MESSG, 0 /MESSAGE PRINTING ROUTINE 001601 7200 CLA 001602 6201 CDF 0 001603 1377 TAD (37 /GENERATE CARRIAGE RET., LINE FEED 001604 4217 JMS PCHAR 001605 1600 TAD I MESSG /ADDRESS OF ERROR MESSAGE 001606 2200 ISZ MESSG /POINT TO RETURN 001607 3020 DCA TEMP 001610 1420 MCONT, TAD I TEMP /GET TEXT CHARACTERS IN AC 001611 7002 BSW 001612 4217 JMS PCHAR /PUNCH IT 001613 1420 TAD I TEMP 001614 4217 JMS PCHAR /SECOND OF TWO. 001615 2020 ISZ TEMP /NEXT TEXT WORD 001616 5210 JMP MCONT /CONTINUE 001617 0000 PCHAR, 0 /ROUTINE TO UNPACK AND PRINT TEXT 001620 0155 AND [77 001621 7450 SNA /0 TERMINATES THE LIST 001622 5600 JMP I MESSG /UNCLEAN RETURN, BUT WHO CARES? 001623 1376 TAD (-37 /SEPARATE DIGITS FROM ALPHAS 001624 7450 SNA 001625 5233 JMP PCRLF /_ IS SPECIAL CHAR 001626 7510 SPA 001627 1157 TAD [100 /MAKE IT ALPHABETIC 001630 1375 TAD (237 001631 4240 JMS TYPIT 001632 5617 JMP I PCHAR 001633 1374 PCRLF, TAD (215 001634 4240 JMS TYPIT 001635 1373 TAD (212 001636 4240 JMS TYPIT 001637 5617 JMP I PCHAR 001640 0000 TYPIT, 0 001641 6046 TLS 001642 6041 TSF 001643 5242 JMP .-1 001644 7600 TT7600, 7600 001645 1244 TAD TT7600 001646 6034 KRS 001647 1372 TAD (-7603 001650 7650 SNA CLA 001651 6031 KSF 001652 5640 JMP I TYPIT 001653 5571 JMP I [7600 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 27 0000 LZERO=0 001654 0000 GETCOR, 0 /ONCE ONLY ROUTINE TO DETERMINE CORE SIZE 001655 1554 TAD I [7777 /GET BATCH CTL WD 001656 7006 RTL /CHECK IF BATCH ALREADY RUNNING 001657 7630 SZL CLA 001660 1771 TAD I (BCTLTM /GET OLD STATUS STORED IN BOS 001661 7420 SNL 001662 1554 TAD I [7777 /NO SAVE STATUS FOR END 001663 3024 DCA BATCTL 001664 7430 SZL 001665 2770 ISZ I (TEMNAM+2 /CHANGE NAME TO BATTM2 001666 7010 RAR 001667 3045 DCA BABA /SECOND LEVEL 001670 1024 TAD BATCTL 001671 0153 AND [70 /IT MIGHT ALREADY CONTAIN THE ANSWER 001672 7440 SZA 001673 5330 JMP STOCOR 001674 1152 TAD [7607 001675 3000 DCA LZERO 001676 6211 CHUG, CDF 10 001677 1355 TAD K 001700 3767 DCA I (LZERO 001701 0010 K10, 10 001702 1000 TAD LZERO 001703 7041 CIA 001704 1152 TAD [7607 001705 7640 SZA CLA 001706 5323 JMP DUN 001707 1767 TAD I (LZERO 001710 7000 NOP 001711 7041 CIA 001712 1355 TAD K 001713 7640 SZA CLA 001714 5323 JMP DUN 001715 1167 TAD [10 001716 1276 TAD CHUG 001717 3276 DCA CHUG 001720 2355 ISZ K 001721 5274 JMP CHUG-2 001722 7240 CLA CMA 001723 6203 DUN, CIF CDF 0 001724 1355 TAD K 001725 1301 TAD K10 001726 7106 CLL RTL /STORE HIGHEST FIELD # INTO 7777 001727 7004 RAL /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 28 001730 3047 STOCOR, DCA FLBITS 001731 1047 TAD FLBITS 001732 1366 TAD (-10 /TEST FOR AT LEAST 12 K 001733 7750 SPA SNA CLA 001734 5765 JMP I (NOCORE 001735 1047 TAD FLBITS 001736 1364 TAD (CDF 001737 3035 DCA TOPCDF 001740 1363 TAD (7707 /SAVE CCL FLAG 001741 0554 AND I [7777 001742 1047 TAD FLBITS 001743 3554 DCA I [7777 001744 1035 TAD TOPCDF 001745 3762 DCA I (CDFBOS 001746 7326 CLA STL RTL 001747 1035 TAD TOPCDF 001750 3037 DCA TOPCIF 001751 1047 TAD FLBITS 001752 1162 TAD [201 001753 3026 DCA BATCTW 001754 5654 JMP I GETCOR 001755 7770 K, -10 001762 1325 001763 7707 001764 6201 001765 2300 001766 7770 001767 0000 001770 2760 001771 6600 001772 0175 001773 0212 001774 0215 001775 0237 001776 7741 001777 0037 2000 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 29 IFNZRO .&377 <PERR, ?> /CARD READER HANDLER FOR DEC29 CARDS. /BUFFERS AN ENTIRE CARD IN THE LINE BUFFER. /ON END OF CARD, WE CAST OUT EXTRANEOUS SPACES IN THE BUFFER /AS AN EXERCISE: /FIRST TIME: MEANS ONE SPACE ON CARD AND NOTHING ELSE. 002000 0000 BATCD9, 0 002001 6214 RDF 002002 1274 TAD CCDI9 002003 3272 DCA CDRET9 002004 4706 JMS I CDDOL9 /CHECK FOR $ INSERTION 002005 5270 JMP CDISZ9 /YES 002006 2275 ISZ CHCNT9 /STILL CHARACTERS IN BUFFER? 002007 5266 JMP GETCH9 /YES. 002010 7240 NEWCR9, STA /NO. READ A NEW CARD 002011 3305 DCA CTIME9 /FORCE TIMEOUT FOR NEW CARD 002012 1307 TIME9, TAD CDMSP9 002013 3235 DCA CTEMP9 002014 2235 ISZ CTEMP9 002015 5214 JMP .-1 002016 2305 ISZ CTIME9 002017 5227 JMP RDCOL9 002020 7344 STA CLL RAL /-2 IN CHAR. COUNTER 002021 3275 DCA CHCNT9 /CARD HUNG - WAIT FOR READER READY 002022 1276 TAD LNBUF9 002023 3304 DCA CDPTR9 002024 4677 CSLCT9, JMS I CCTC9 002025 6672 RCSE /SELECT A CARD 002026 5224 JMP CSLCT9 002027 6631 RDCOL9, RCSF /WAIT FOR DATA 002030 5247 JMP EOC9 /AND CHECK FOR END OF CARD 002031 6632 RCRA 002032 7110 CLL RAR /TRANSLATE INTERNAL INTO ASCII 002033 1300 TAD PCDT9 002034 3235 DCA CTEMP9 002035 1310 CTEMP9, TAD CDT29 002036 7420 SNL /LEFT OR RIGHT? 002037 7002 BSW 002040 0301 AND CDR779 002041 1302 TAD CDRSP9 002042 3704 DCA I CDPTR9 002043 2304 ISZ CDPTR9 002044 7240 STA 002045 1275 TAD CHCNT9 002046 3275 DCA CHCNT9 /FIRST TIME: -3 002047 6671 EOC9, RCSD /CARD DONE? 002050 5212 JMP TIME9 /NO - CHECK TIMEOUT /FALL INTO END OF LINE ROUTINE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 30 002051 2275 CHKSP9, ISZ CHCNT9 /FIRST TIME: -2 002052 7240 STA /BACK UP 002053 1304 TAD CDPTR9 002054 3304 DCA CDPTR9 002055 1704 TAD I CDPTR9 002056 1307 TAD CDMSP9 002057 7650 SNA CLA 002060 5251 JMP CHKSP9 002061 2304 CDCR9, ISZ CDPTR9 002062 1303 TAD CDRCR9 /INSERT END OF LINE MARKER 002063 3704 DCA I CDPTR9 002064 1276 TAD LNBUF9 002065 3304 DCA CDPTR9 002066 1704 GETCH9, TAD I CDPTR9 002067 2304 ISZ CDPTR9 002070 2200 CDISZ9, ISZ BATCD9 002071 6674 CDXIT9, RCRD /CLEAR CARD DONE FLAG 002072 7402 CDRET9, HLT 002073 5600 JMP I BATCD9 002074 6203 CCDI9, CDF CIF 0 002075 7777 CHCNT9, -1 002076 6654 LNBUF9, LINBUF 002077 6446 CCTC9, CTC 002100 1310 PCDT9, TAD CDT29 002101 0077 CDR779, 77 002102 0240 CDRSP9, 240 002103 0215 CDRCR9, 215 002104 0000 CDPTR9, 0 002105 0000 CTIME9, 0 002106 5700 CDDOL9, GETDOL 002107 7540 CDMSP9, -240 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 31 002110 0021 CDT29, 0021;2223;2425;2627;3031;3203;4007;3502 002111 2223 002112 2425 002113 2627 002114 3031 002115 3203 002116 4007 002117 3502 002120 2017 2017;6364;6566;6770;7172;7514;0577;3637 002121 6364 002122 6566 002123 6770 002124 7172 002125 7514 002126 0577 002127 3637 002130 1552 1552;5354;5556;5760;6162;0104;1211;3374 002131 5354 002132 5556 002133 5760 002134 6162 002135 0104 002136 1211 002137 3374 002140 0641 0641;4243;4445;4647;5051;7316;3410;1376 002141 4243 002142 4445 002143 4647 002144 5051 002145 7316 002146 3410 002147 1376 IFZERO .-BATCD9-BIMAX&4000 <CDRBAT, ????> 2164 *BATCD9+BIMAX-1 /THIS MUST!! BE AFTER ALL HANDLERS 002164 0000 0 /ROUTINE TO SET JOB 002165 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 002166 6201 CDF 0 /BATCH IS STILL IN CORE 002167 0776 AND I (JSW 002170 1375 TAD (400 002171 3776 DCA I (JSW 002172 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 002173 5764 JMP I .-7 002174 6610 002175 0400 002176 7746 002177 7377 2200 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 32 /SYS PERFORMS I/O TO SYSTEM DEVICE. THE CALLING SEQUENCE /CONFORMS TO THAT OF THE STANDARD OS/8 CALL SEQUENCE, EXCEPT /THAT WE HAVE ONE ERROR RETURN FROM THE ROUTINE, NOT A LOT /OF SEPARATE ERROR RETURNS. 002200 0000 SYS, 0 002201 3212 DCA SYCTL /AC HAD CONTROL WORD 002202 1600 TAD I SYS 002203 3213 DCA SYBUFF /BUFFER FOR TRANSFER 002204 2200 ISZ SYS 002205 1600 TAD I SYS 002206 3214 DCA SYREC /RECORD OF TRANSFER 002207 2200 ISZ SYS 002210 6202 CIF 0 002211 4552 JMS I [SYSTEM 002212 7402 SYCTL, HLT 002213 7402 SYBUFF, HLT 002214 7402 SYREC, HLT 002215 5317 JMP HRDERR 002216 5600 JMP I SYS 002217 0000 MVINSB, 0 002220 6214 RDF 002221 1377 TAD (CDF 0 002222 3242 DCA FROM 002223 6201 CDF 0 002224 1617 TAD I MVINSB 002225 2217 ISZ MVINSB 002226 3252 DCA BMVCNT 002227 7240 STA 002230 1617 TAD I MVINSB 002231 2217 ISZ MVINSB 002232 3016 DCA XR1 002233 1617 TAD I MVINSB 002234 2217 ISZ MVINSB 002235 3244 DCA TO 002236 7240 STA 002237 1617 TAD I MVINSB 002240 2217 ISZ MVINSB 002241 3017 DCA XR2 002242 7402 FROM, HLT 002243 1416 TAD I XR1 002244 7402 TO, HLT 002245 3417 DCA I XR2 002246 2252 ISZ BMVCNT 002247 5242 JMP FROM 002250 6201 CDF 0 002251 5617 JMP I MVINSB 002252 0000 BMVCNT, 0 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 33 002253 0000 INCOR, 0 /INCLUSIVE OR ROUTINE. USE THE 002254 6201 CDF 0 002255 3020 DCA TEMP /FOLLOWING: 002256 1653 TAD I INCOR /A .OR. B= .NOT. A .AND. B +A 002257 3021 DCA TEMP2 002260 1020 TAD TEMP 002261 7040 CMA 002262 0421 AND I TEMP2 002263 1020 TAD TEMP 002264 3421 DCA I TEMP2 002265 2253 ISZ INCOR 002266 5653 JMP I INCOR 002267 4574 NOBACH, JMS I [MESSG /BATCH.SV NOT THERE 002270 0432 NBATCH 002271 5571 JMP I [7600 002272 4574 MONERR, JMS I [MESSG 002273 0470 BADMON 002274 5571 JMP I [7600 002275 4574 NOSHSV, JMS I [MESSG 002276 2341 SHSAVE 002277 5571 JMP I [7600 002300 4574 NOCORE, JMS I [MESSG 002301 0450 COR8 002302 5571 JMP I [7600 002303 4574 DEVERR, JMS I [MESSG 002304 0512 NODEV 002305 5776 JMP I (BATASK 002306 4574 OUTERR, JMS I [MESSG 002307 0543 OUTMSG 002310 5571 JMP I [7600 002311 4574 INERR, JMS I [MESSG 002312 2325 DIOMSG 002313 5776 JMP I (BATASK 002314 4574 NOINPU, JMS I [MESSG 002315 0555 GEINPU 002316 5776 JMP I (BATASK 002317 4574 HRDERR, JMS I [MESSG 002320 0501 SIOMSG 002321 5571 JMP I [7600 002322 4574 LVERR, JMS I [MESSG 002323 2357 LVMESG 002324 5571 JMP I [7600 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 34 DIOMSG, 002325 1617 IFNDEF GERMAN < TEXT /NON SYSTEM INPUT ERROR_/> 002326 1640 002327 2331 002330 2324 002331 0515 002332 4011 002333 1620 002334 2524 002335 4005 002336 2222 002337 1722 002340 3700 IFDEF GERMAN < TEXT /NICHT-SYS: LESE-FEHLER_/> SHSAVE, 002341 2310 IFNDEF GERMAN < TEXT /SHSAVE BATCH NOT ALLOWED! _/> 002342 2301 002343 2605 002344 4002 002345 0124 002346 0310 002347 4016 002350 1724 002351 4001 002352 1414 002353 1727 002354 0504 002355 4140 002356 3700 IFDEF GERMAN < TEXT /SHSAVE BATCH NICHT ERLAUBT_/> LVMESG, 002357 2417 IFNDEF GERMAN < TEXT \TOO MANY LEVELS OF /S SUBS_\> 002360 1740 002361 1501 002362 1631 002363 4014 002364 0526 002365 0514 002366 2340 002367 1706 002370 4057 002371 2340 002372 2325 002373 0223 002374 3700 IFDEF GERMAN < TEXT \ZU VIELE /S SUBROUT EBENEN_\> 002376 0204 002377 6201 2400 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 35 IFNZRO .&377 <PERR, ?> /CARD READER HANDLER FOR DEC26 CARDS. /BUFFERS AN ENTIRE CARD IN THE LINE BUFFER. /ON END OF CARD, WE CAST OUT EXTRANEOUS SPACES IN THE BUFFER /AS AN EXERCISE: /FIRST TIME: MEANS ONE SPACE ON CARD AND NOTHING ELSE. 002400 0000 BATCD6, 0 002401 6214 RDF 002402 1274 TAD CCDI6 002403 3272 DCA CDRET6 002404 4706 JMS I CDDOL6 /CHECK FOR $ INSERTION 002405 5270 JMP CDISZ6 /YES 002406 2275 ISZ CHCNT6 /STILL CHARACTERS IN BUFFER? 002407 5266 JMP GETCH6 /YES. 002410 7240 NEWCR6, STA /NO. READ A NEW CARD 002411 3305 DCA CTIME6 /FORCE TIMEOUT FOR NEW CARD 002412 1307 TIME6, TAD CDMSP6 002413 3235 DCA CTEMP6 002414 2235 ISZ CTEMP6 002415 5214 JMP .-1 002416 2305 ISZ CTIME6 002417 5227 JMP RDCOL6 002420 7344 STA CLL RAL /-2 IN CHAR. COUNTER 002421 3275 DCA CHCNT6 /CARD HUNG - WAIT FOR READER READY 002422 1276 TAD LNBUF6 002423 3304 DCA CDPTR6 002424 4677 CSLCT6, JMS I CCTC6 002425 6672 RCSE /SELECT A CARD 002426 5224 JMP CSLCT6 002427 6631 RDCOL6, RCSF /WAIT FOR DATA 002430 5247 JMP EOC6 /AND CHECK FOR END OF CARD 002431 6632 RCRA 002432 7110 CLL RAR /TRANSLATE INTERNAL INTO ASCII 002433 1300 TAD PCDT6 002434 3235 DCA CTEMP6 002435 1310 CTEMP6, TAD CDT26 002436 7420 SNL /LEFT OR RIGHT? 002437 7002 BSW 002440 0301 AND CDR776 002441 1302 TAD CDRSP6 002442 3704 DCA I CDPTR6 002443 2304 ISZ CDPTR6 002444 7240 STA 002445 1275 TAD CHCNT6 002446 3275 DCA CHCNT6 /FIRST TIME: -3 002447 6671 EOC6, RCSD /CARD DONE? 002450 5212 JMP TIME6 /NO - CHECK TIMEOUT /FALL INTO END OF LINE ROUTINE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 36 002451 2275 CHKSP6, ISZ CHCNT6 /FIRST TIME: -2 002452 7240 STA /BACK UP 002453 1304 TAD CDPTR6 002454 3304 DCA CDPTR6 002455 1704 TAD I CDPTR6 002456 1307 TAD CDMSP6 002457 7650 SNA CLA 002460 5251 JMP CHKSP6 002461 2304 CDCR6, ISZ CDPTR6 002462 1303 TAD CDRCR6 /INSERT END OF LINE MARKER 002463 3704 DCA I CDPTR6 002464 1276 TAD LNBUF6 002465 3304 DCA CDPTR6 002466 1704 GETCH6, TAD I CDPTR6 002467 2304 ISZ CDPTR6 002470 2200 CDISZ6, ISZ BATCD6 002471 6674 CDXIT6, RCRD /CLEAR CARD DONE FLAG 002472 7402 CDRET6, HLT 002473 5600 JMP I BATCD6 002474 6203 CCDI6, CDF CIF 0 002475 7777 CHCNT6, -1 002476 6654 LNBUF6, LINBUF 002477 6446 CCTC6, CTC 002500 1310 PCDT6, TAD CDT26 002501 0077 CDR776, 77 002502 0240 CDRSP6, 240 002503 0215 CDRCR6, 215 002504 0000 CDPTR6, 0 002505 0000 CTIME6, 0 002506 5700 CDDOL6, GETDOL 002507 7540 CDMSP6, -240 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 37 002510 0021 CDT26, 0021;2223;2425;2627;3031;7735;4076;0774 002511 2223 002512 2425 002513 2627 002514 3031 002515 7735 002516 4076 002517 0774 002520 2017 2017;6364;6566;6770;7172;3314;1002;0305 002521 6364 002522 6566 002523 6770 002524 7172 002525 3314 002526 1002 002527 0305 002530 1552 1552;5354;5556;5760;6162;3204;1273;3606 002531 5354 002532 5556 002533 5760 002534 6162 002535 3204 002536 1273 002537 3606 002540 1341 1341;4243;4445;4647;5051;3716;1175;3401 002541 4243 002542 4445 002543 4647 002544 5051 002545 3716 002546 1175 002547 3401 IFZERO .-BATCD6-BIMAX&4000 <CDRBAT, ????> 2564 *BATCD6+BIMAX-1 /THIS MUST!! BE AFTER ALL HANDLERS 002564 0000 0 /ROUTINE TO SET JOB 002565 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 002566 6201 CDF 0 /BATCH IS STILL IN CORE 002567 0776 AND I (JSW 002570 1375 TAD (400 002571 3776 DCA I (JSW 002572 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 002573 5764 JMP I .-7 002574 6610 002575 0400 002576 7746 002577 7377 2600 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 38 002600 0000 SYSCOP, 0 /COPY BOS INPUT FILE TO SYS: ROUTINE 002601 7300 CLA CLL 002602 6211 CDF 10 002603 1777 TAD I (7617 002604 0151 AND [7760 /GET LENGTH - 002605 3353 DCA CLENG 002606 1777 TAD I (7617 002607 0173 AND [17 002610 3354 DCA CDEV /INPUT DEV: # 002611 1150 TAD [BUFHND+1/TWO PAGE HANDLER 002612 3220 DCA CDEVIN /RESET 002613 1354 TAD CDEV 002614 6201 CDF 0 002615 6212 CIF 10 002616 4577 JMS I [200 002617 0001 1 /FETCH 002620 4001 CDEVIN, BUFHND+1 002621 5776 JMP I (DEVERR /NO SUCH 002622 7201 CLA IAC /SYS: 002623 6212 CIF 10 002624 4577 JMS I [200 002625 0004 4 /DELETE (PRE) 002626 2756 TN, TEMNAM 002627 0000 0 /^ 002630 7300 CLA CLL /IGNORE IF NOT THERE 002631 1226 CENTER, TAD TN 002632 3241 DCA CBLOCK /RESET ENTER NAME-POINTER 002633 1353 TAD CLENG 002634 7041 CIA 002635 7001 IAC /SYS: 002636 6212 CIF 10 002637 4577 JMS I [200 002640 0003 3 /ENTER 002641 2756 CBLOCK, TEMNAM /GETS BLOCK NUMBER OF EMPTY 002642 0000 CHOLE, 0 /-HOLE 002643 7610 SKP CLA 002644 5252 JMP CTRANS /OK 002645 1353 TAD CLENG 002646 7650 SNA CLA 002647 5775 JMP I (OUTERR /IF ZERO TOO BAD 002650 3353 DCA CLENG /IF NON-ZERO PUT ZERO 002651 5231 JMP CENTER /AND TRY AGAIN /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 39 /NOW TRANSFER FILE FROM DEV: TO SYS: 002652 3347 CTRANS, DCA COUT /CLEAR OUTPUT LENGTH 002653 1040 TAD BATBLK /INPUT BLOCK # 002654 3277 DCA CREC 002655 1241 TAD CBLOCK /OUTPUT BLOCK # 002656 3330 DCA SREC 002657 3355 DCA CEOF 002660 1353 CLOOP, TAD CLENG 002661 7100 CLL 002662 1163 TAD [BUFRCS^20 /UPDATE LENGTH 002663 7420 SNL 002664 3353 DCA CLENG /IF NO OVERFLOW 002665 7430 SZL 002666 2355 ISZ CEOF /SIGNAL END 002667 6201 CDF 0 002670 7166 STL CMA RTL 002671 7004 RAL 002672 1147 TAD [BUFCTL+1 002673 3275 DCA CCTL 002674 4620 JMS I CDEVIN 002675 0000 CCTL, 0 002676 3000 BUFFER 002677 0000 CREC, 0 002700 7410 SKP 002701 5305 JMP .+4 002702 2355 ISZ CEOF /FORCE EOF 002703 7710 SPA CLA /HARD ERROR? 002704 5774 JMP I (INERR /YES 002705 1277 TAD CREC 002706 1146 TAD [BUFRCS /UPDATE INPUT REC 002707 3277 DCA CREC 002710 1275 TAD CCTL /COMPUTE OUTPUT BLOCKS 002711 7002 BSW /FROM INPUT CTLW 002712 7110 CLL RAR 002713 1347 TAD COUT 002714 3347 DCA COUT 002715 1347 TAD COUT 002716 7120 STL 002717 1242 TAD CHOLE 002720 7660 SNL SZA CLA /OUTPUT .GT. HOLE? 002721 5775 JMP I (OUTERR /YES, FATAL 002722 7130 STL RAR /NO, WRITE 002723 1275 TAD CCTL 002724 3326 DCA SCTL 002725 4552 JMS I [SYSTEM 002726 0000 SCTL, 0 002727 3000 BUFFER 002730 0000 SREC, 0 002731 5773 JMP I (HRDERR 002732 1330 TAD SREC 002733 1372 TAD (BUFRCS /UPDATE OUTPUT REC 002734 3330 DCA SREC 002735 1355 TAD CEOF /EOF? 002736 7650 SNA CLA /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 39-1 002737 5260 JMP CLOOP /NO /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 40 002740 1241 TAD CBLOCK 002741 3040 DCA BATBLK /NEW INPUT BLOCK FOR BOS 002742 7201 CLA IAC 002743 6212 CIF 10 002744 4577 JMS I [200 002745 0004 4 /CLOSE (PRE) 002746 2756 TEMNAM 002747 0000 COUT, 0 /OUTPUT LENGTH 002750 5773 JMP I (HRDERR 002751 1145 TAD [7 /RELATIVE SYS: ENTRY 002752 5600 JMP I SYSCOP 002753 0000 CLENG, 0 002754 0000 CDEV, 0 002755 0000 CEOF, 0 002756 0201 TEMNAM, FILENAME BATTM1.BI 002757 2424 002760 1561 002761 0211 002762 0201 BATPOI, FILENAME BATCH.SV 002763 2403 002764 1000 002765 2326 002772 0002 002773 2317 002774 2311 002775 2306 002776 2303 002777 7617 3000 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 41 3000 EOHNDL=. 003000 0000 ZBLOCK ORIGIN-. /ONE CONTIGUOUS CORE LOAD 000145 0007 000146 0002 000147 0401 000150 4001 000151 7760 000152 7607 000153 0070 000154 7777 000155 0077 000156 7605 000157 0100 000160 4200 000161 2200 000162 0201 000163 0040 000164 0020 000165 2253 000166 0400 000167 0010 000170 7643 000171 7600 000172 7646 000173 0017 000174 1600 000175 0004 000176 7644 000177 0200 0000 FIELD 0 /DUMP PAGE 0 LITERALS HERE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 42 5400 *ORIGIN 005400 0000 BATIN, ZBLOCK BIMAX-1 005564 0000 SETJSW, 0 /ROUTINE TO SET JOB 005565 1377 TAD (7377 /STATUS WORD TO INDICATE THAT 005566 6201 CDF 0 /BATCH IS STILL IN CORE 005567 0776 AND I (JSW 005570 1375 TAD (400 005571 3776 DCA I (JSW 005572 4774 JMS I (CDFRST /RESTORE TRUE DATA FIELD 005573 5764 JMP I SETJSW 005574 6610 005575 0400 005576 7746 005577 7377 5600 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 43 /THIS IS THE ACTUAL BATCH MONITOR. THIS ENTRY IS FOR THE /INTERFACE WITH THE KEYBOARD MONITOR. 005600 2214 BATVFY, 2214 /** THIS LOCATION IS VERIFIED BY BAT:,KM,CD ** 005601 6201 BOS, CDF 0 /SEE IF CD FOUND AN ERROR 005602 1777 TAD I (7777 /IF BIT 11 SET, IT DID. 005603 7110 CLL RAR 005604 7201 CLA IAC 005605 7040 CMA 005606 0777 AND I (7777 /ERASE IT 005607 3777 DCA I (7777 005610 4776 JMS I (CDFRST /RESTORE DATA FIELD 005611 7630 SZL CLA 005612 5244 JMP CDERR 005613 4775 JMS I (KMLINK /LINK I/O OF BOS AND K.M. 005614 1774 BOSSB, TAD I (OUTPUT /*K* KEEP AT REL 214 005615 3773 DCA I (BOUTDV /SET MESSAGES 005616 4772 JMS I (GLINE /READ LINE OF INPUT 005617 7201 CLA IAC /INIT POINTER 005620 4771 JMS I (GCHAR 005621 1370 TAD (-"$ 005622 7650 SNA CLA 005623 4771 JMS I (GCHAR 005624 1367 TAD (-"J /DON'T ECHO $JOB CARD HERE 005625 7650 SNA CLA 005626 4771 JMS I (GCHAR 005627 1366 TAD (-"O 005630 7640 SZA CLA 005631 4332 JMS ECHO /BUT ECHO ANY OTHER LINE 005632 7130 BOSRE, STL RAR /ENTER HERE FROM CD IF KM COMMAND SEEN 005633 0765 AND I (DOLFLG /DO WE NEED $? 005634 7124 STL RAL /SET LNK IF DOLLAR NEEDED 005635 4771 JMS I (GCHAR /GET THE FIRST CHAR ON THE LINE 005636 7420 SNL 005637 5764 JMP I (NXPRG /NO $. LOOK FOR . OR / 005640 1370 TAD (-"$ 005641 7640 SZA CLA 005642 5214 JMP BOSSB /NOT YET. 005643 5763 JMP I (KMDOLR /SEE IF IT'S $JOB 005644 4762 CDERR, JMS I (PRMESG 005645 6623 CDEMSG 005646 5201 JMP BOS /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 44 /HERE TO ECHO $JOB CARD 005647 1761 DOLECH, TAD I (BOSSW 005650 7012 RTR /ECHO A PAGE OF $JOBS TO LPT ONLY 005651 7620 SNL CLA /IS LPT OUTPUT? 005652 5271 JMP DOLEC2 /NO 005653 1765 TAD I (DOLFLG /ARE WE ACTIVE ALREADY? 005654 7650 SNA CLA 005655 5271 JMP DOLEC2 /YES: ONLY 1 $JOB 005656 1277 TAD X214 005657 4760 JMS I (OUTCHR 005660 7346 CLA CLL CMA RTL /-3 005661 3300 DCA GETDOL 005662 1357 TAD (10 /OUTPUT BACKSPACE FOR LARGE CHARS ON PRINTRONIX 005663 4760 JMS I (OUTCHR 005664 7201 CLA IAC /INHIBIT CRLF 005665 4332 JMS ECHO /AND LINE 005666 2300 ISZ GETDOL 005667 5262 JMP .-5 005670 7410 SKP 005671 4332 DOLEC2, JMS ECHO 005672 1761 TAD I (BOSSW 005673 0356 AND (20 /IS HUSH ON? 005674 7650 SNA CLA /DON'T PRINT 005675 4755 JMS I (ECHOT /PUT $JOB TO TTY IF NOT TTY 005676 3765 DCA I (DOLFLG 005677 5214 X214, JMP BOSSB 005700 0000 GETDOL, 0 /ROUTINE TO PUT BACK ANY $ READ BY BAT: 005701 6201 CDF 0 005702 1777 TAD I (7777 /GET BATCH CONTROL WORD 005703 7112 CLL RTR 005704 7630 SZL CLA /TEST BIT 10 005705 5311 JMP GOTDOL /ITS ON - MUST PUT IN A $ 005706 4776 JMS I (CDFRST /NO - SET DF TO THIS FIELD 005707 2300 ISZ GETDOL 005710 5700 JMP I GETDOL /TAKE SKIP RETURJ 005711 7346 GOTDOL, CLL STA RTL /7775 005712 0777 AND I (7777 005713 3777 DCA I (7777 /REMOVE THE BIT 005714 1354 TAD ("$ 005715 5700 JMP I GETDOL /TAKE NON-SKIP RETURN WITH $ IN AC /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 45 005716 4753 GETCOM, JMS I (MOVE 005717 7666 -112 /PUT BUFFER INTO KEYBOARD MON. 005720 6655 LINBUF+1 005721 6201 CDF 0 005722 1000 BEGLN 005723 1752 TAD I (AMODE 005724 7640 SZA CLA 005725 7124 STL RAL 005726 6203 CIF CDF 0 /AND GO PROCESS IT. 005727 3751 DCA I (AMFLAG /SET ALTMODE SWITCH FOR CCL 005730 5731 JMP I .+1 005731 1261 CARRET+7 /RETURN FROM XGLINE 005732 0000 ECHO, 0 /ECHO INPUT LINE 005733 7650 SNA CLA /IF AC<>0 NO INITIAL CRLF 005734 4750 JMS I (CRLF 005735 7201 CLA IAC 005736 4771 ECHO2, JMS I (GCHAR 005737 7450 SNA 005740 5343 JMP ECO3 005741 4760 JMS I (OUTCHR 005742 5336 JMP ECHO2 005743 1752 ECO3, TAD I (AMODE /NEED $ PRINTED? 005744 7440 SZA 005745 4760 JMS I (OUTCHR /YES 005746 4750 JMS I (CRLF 005747 5732 JMP I ECHO 005750 6521 005751 0017 005752 6246 005753 7531 005754 0244 005755 6410 005756 0020 005757 0010 005760 6424 005761 6606 005762 6054 005763 6317 005764 6000 005765 7776 005766 7461 005767 7466 005770 7534 005771 6341 005772 6200 005773 6427 005774 6605 005775 6123 005776 6610 005777 7777 6000 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 46 006000 4230 NXPRG, JMS TESTB /SEE IF WE HAVE . OR / 006001 7774 -4 006002 7522 -".;GETCOM 006003 5716 006004 7521 -"/;BOSSB 006005 5614 006006 7534 -"$;KMDOLR 006007 6317 006010 7526 -"*;BOSSB /ERRONEOUS CD CARD. 006011 5614 006012 5777 JMP I (KJOB 006013 0000 MSG, 0 006014 1776 TAD I (DOLFLG /IF $JOB SLEW SET, DON'T PAUSE 006015 7710 SPA CLA 006016 5613 JMP I MSG 006017 4775 JMS I (ECHOT /ECHO ON TTY: IF NEEDED 006020 1774 TAD I (BOSSW /IS OPERATOR AVAILABLE? 006021 7110 CLL RAR 006022 7630 SZL CLA 006023 5613 JMP I MSG /NO. CONTINUE 006024 1373 TAD (207 006025 4772 JMS I (TTYOUT 006026 4771 JMS I (TTY 006027 5613 JMP I MSG 006030 0000 TESTB, 0 /TEST ROUTINE. TEST LIST AGAINST 006031 7450 SNA /AC OR 006032 1770 TAD I (LINBUF /FIRST CHAR 006033 3323 DCA KMLINK 006034 1630 TAD I TESTB 006035 3254 DCA PRMESG /# ELEMENTS IN LIST 006036 2230 TSTB2, ISZ TESTB /POINT TO ELEMENT 006037 1630 TAD I TESTB 006040 2230 ISZ TESTB 006041 1323 TAD KMLINK /TEST IT 006042 7650 SNA CLA 006043 5251 JMP TSBOVR /A MATCH 006044 2254 ISZ PRMESG 006045 5236 JMP TSTB2 006046 2230 ISZ TESTB 006047 1323 TAD KMLINK /RETURN WITH CHAR ON NO MATCH 006050 5630 JMP I TESTB 006051 1630 TSBOVR, TAD I TESTB 006052 3230 DCA TESTB 006053 5630 JMP I TESTB /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 47 006054 0000 PRMESG, 0 /MESSAGE PRINTER; IF AC#0 NO TTY OUTPUT 006055 3230 DCA TESTB 006056 1654 TAD I PRMESG /INDEX INTO MESSAGE LIST 006057 3323 DCA KMLINK 006060 4767 JMS I (CRLF 006061 1366 TAD ("# /BATCH ERROR SIGNAL 006062 4765 JMS I (OUTCHR 006063 1723 PRMSG2, TAD I KMLINK 006064 7002 BSW 006065 4272 JMS PNCH 006066 1723 TAD I KMLINK 006067 4272 JMS PNCH 006070 2323 ISZ KMLINK 006071 5263 JMP PRMSG2 /CYCLE UNTIL A 0 006072 0000 PNCH, 0 006073 0364 AND (77 006074 7450 SNA 006075 5303 JMP PRTTY /COULD BE OPTIMIZED 006076 1363 TAD (240 006077 0364 AND (77 006100 1363 TAD (240 006101 4765 JMS I (OUTCHR 006102 5672 JMP I PNCH 006103 4767 PRTTY, JMS I (CRLF 006104 1230 TAD TESTB /PUT IT ON TTY, TOO? 006105 7640 SZA CLA 006106 5317 JMP PRMOUT /IF AC#0 IT WAS OVER 006107 1774 TAD I (BOSSW 006110 7002 BSW 006111 7710 SPA CLA /WAS TTY FLAG SET? 006112 5317 JMP PRMOUT /YES; DON'T PRINT TWICE 006113 1372 TAD (TTYOUT 006114 3762 DCA I (BOUTDV /SET TTY 006115 7240 STA /SET TESTB TO SKIP 006116 5255 JMP PRMESG+1 006117 1761 PRMOUT, TAD I (OUTPUT /RESTORE OUTPUT 006120 3762 DCA I (BOUTDV 006121 2254 ISZ PRMESG /SKIP ARGUMENT 006122 5654 JMP I PRMESG /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 48 006123 0000 KMLINK, 0 /LINK BATCH AND KEYBOARD I/O. 006124 4760 JMS I (MOVE /PUT NEW CODE INTO KEYBOARD 006125 7775 -3 006126 6137 KMLST1 006127 6201 CDF 0 006130 0201 PRINT+1 /THIS IS OUTPUT LINK 006131 4760 JMS I (MOVE /NOW INPUT LINK. 006132 7775 -3 006133 6142 KMLST2 006134 6201 CDF 0 006135 1201 XGLINE+1 006136 5723 JMP I KMLINK /** NEXT 3 WORDS LOAD INTO "PRINT+1" IN KEYBOARD MONITOR ** 006137 6203 KMLST1, CIF CDF 0 /ALTERED AT RUN-TIME 006140 5603 PRINT+3&177+5600 /ALLOWS TALKING THRU BATCH 006141 6145 BOSPRT /** NEXT 3 WORDS LOAD INTO "XGLINE+1" IN KEYBOARD MONITOR ** 006142 6203 KMLST2, CIF CDF 0 006143 5603 XGLINE+3&177+5600 /"JMP I .+1" 006144 5601 BOS 006145 4757 BOSPRT, JMS I (ERHDR /PRINT MESSAGE 006146 6203 CIF CDF 0 006147 5750 JMP I .+1 006150 0210 PRINT+10 006151 4757 CDPRT, JMS I (ERHDR 006152 6203 CIF CDF 0 /LINK BACK TO CD 006153 5754 JMP I .+1 006154 1377 TYPE+10 006157 6477 006160 7531 006161 6605 006162 6427 006163 0240 006164 0077 006165 6424 006166 0243 006167 6521 006170 6654 006171 6453 006172 6430 006173 0207 006174 6606 006175 6410 006176 7776 006177 7026 6200 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 49 006200 0000 GLINE, 0 /LINE COLLECTION ROUTINE 006201 1377 TAD (LINBUF-1 006202 3247 DCA GLPTR 006203 4776 GET, JMS I (BATIN /GO TO SPECIFIED INPUT DEVICE 006204 5335 JMP GEOF /TIME-OUT OR FATAL 006205 4775 JMS I (TESTB /TEST FOR SPECIAL CHARS. 006206 7773 -5 006207 7563 -215;CARROT 006210 6231 006211 7566 -212;GET /IGNORE LINE FEEDS. 006212 6203 006213 7564 -214;GET /IGNORE FORM FEEDS 006214 6203 006215 7600 -200;GET /IGNORE NULLS 006216 6203 006217 7441 -337;BKAROW /CD DOESN'T LIKE _, ONLY < 006220 6222 006221 7410 SKP 006222 1374 BKAROW, TAD ("< 006223 2247 ISZ GLPTR 006224 3647 DCA I GLPTR 006225 1247 TAD GLPTR 006226 1373 TAD (-LINBUF-110 /OVERFLOW BUFFER? 006227 7710 SPA CLA 006230 5203 JMP GET /NOT YET. 006231 1647 CARROT, TAD I GLPTR /GET LAST CHAR INPUT 006232 1372 TAD (-244 /$? 006233 7640 SZA CLA 006234 5237 JMP NALTMD /NO 006235 1647 TAD I GLPTR /GET $ 006236 7410 SKP 006237 2247 NALTMD, ISZ GLPTR /BUMP TO NEXT CHAR IF NO ALTMODE 006240 3246 DCA AMODE /STORE ALTMODE FLAG 006241 3647 DCA I GLPTR /CLEAR END CHAR IN BUFFER 006242 1771 TAD I (LINBUF 006243 7650 SNA CLA /WAS LINE NULL? 006244 5201 JMP GLINE+1 /YES - IGNORE 006245 5600 JMP I GLINE /NO: FOR THIS BOS 006246 0000 AMODE, 0 006247 0000 GLPTR, 0 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 50 /DOLRD INTERPRETS $ CARDS 006250 0000 DOLRD, 0 /GET THE NAME OF THE $ COMMAND 006251 4341 GWRD2, JMS GCHAR /$ WAS READ ALREADY 006252 7450 SNA 006253 5305 JMP DLCRUD /FUNNY..NOTHING THERE! 006254 1370 TAD (-240 /IGNORE LEADING SPACES 006255 7450 SNA 006256 5251 JMP GWRD2 006257 0367 AND (37 /NOT A SPACE. TAKE WHATEVER IT IS. 006260 7002 BSW /ALSO LOWER CASE! 006261 3200 DCA GLINE /KEYBOARD MON. WILL EXAMINE IT. 006262 4341 JMS GCHAR 006263 0367 AND (37 006264 1200 TAD GLINE 006265 4775 JMS I (TESTB /TEST IT 006266 7771 -7 006267 7262 -0516;END /$END CARD 006270 7454 006271 6255 -1523;MSGST /$MSG CARD 006272 6312 006273 6561 -1217;JOB /$JOB CARD 006274 6307 006275 7256 -0522;DLERR /$ERROR CARD 006276 6322 006277 7250 -0530;DLEXIT /$EXIT CARD 006300 6323 006301 5573 -2205;DLRES /$RESUME CARD 006302 6325 006303 5465 -2313;DLSKIP /$SKIP CARD 006304 6327 006305 7200 DLCRUD, CLA /IGNORE CHAR 006306 2250 ISZ DOLRD /$CRUD 006307 1650 JOB, TAD I DOLRD 006310 3250 DCA DOLRD 006311 5650 JMP I DOLRD 006312 4766 MSGST, JMS I (MSG /PRINT MESSAGE 006313 5305 JMP DLCRUD /TREAT LIKE CRUD 006314 4250 CDOLLR, JMS DOLRD 006315 7037 CDKBD /$JOB 006316 7005 CDGET /$OTHER 006317 4250 KMDOLR, JMS DOLRD 006320 5647 DOLECH /$JOB 006321 5614 BOSSB /$OTHER 006322 1765 DLERR, TAD I (DOLFLG /$ERROR TOGGLES SLEW ON/OFF 006323 7104 DLEXIT, CLL RAL /$EXIT SLEWS TO $END OR $RES 006324 7030 CML RAR /TOGGLE SLEW BIT 006325 3765 DLRES, DCA I (DOLFLG /$RES GOES TO $END,$ERR,$EXI 006326 5305 JMP DLCRUD /GO ON NORMALLY /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 51 006327 1765 DLSKIP, TAD I (DOLFLG /EXECUTE NEXT LINE ON ERROR 006330 7710 SPA CLA /SKIP IF NO ERROR 006331 5325 JMP DLRES /ACT LIKE $RES ON ERROR 006332 4200 JMS GLINE /SKIP LINE 006333 4764 JMS I (ECHO /ECHO IT ANYWAY 006334 5305 JMP DLCRUD /CONTINUE 006335 4763 GEOF, JMS I (PRMESG /INDICATE FAILURE 006336 7412 INPMSG /HANG ON INPUT ACTION 006337 4762 JMS I (TTY /WAIT FOR INPUT 006340 5203 JMP GET /AND RETURN 006341 0000 GCHAR, 0 /GET A CHARACTER FROM LINE-BUFFER 006342 7640 SZA CLA 006343 1377 TAD (LINBUF-1 /INIT POINTER ON NZ AC 006344 7440 SZA 006345 3247 DCA GLPTR 006346 2247 ISZ GLPTR 006347 1647 TAD I GLPTR 006350 5741 JMP I GCHAR 006351 0000 TKRS, 0 /CHECK KEYBOARD 006352 7600 7600 006353 1352 TAD TKRS+1 006354 6034 KRS 006355 1361 TAD (-7603 006356 6031 KSF 006357 7201 CLA IAC /=1 IF NO FLAG 006360 5751 JMP I TKRS 006361 0175 006362 6453 006363 6054 006364 5732 006365 7776 006366 6013 006367 0037 006370 7540 006371 6654 006372 7534 006373 1014 006374 0274 006375 6030 006376 5400 006377 6653 6400 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 52 006400 0000 LPTSET, 0 /LPT ROUTINE MODIFIED BY SET /** DON'T MOVE!! 006401 7000 NOP /OR CMA 006402 6666 PCLS /PRINT COMMAND 006403 7000 NOP /OR SECOND PRINT COMMAND 006404 7000 NOP /FILLER FOR SET 006405 6661 PSKF /SKIP IOT 006406 5205 JMP .-1 006407 5600 JMP I LPTSET 006410 0000 ECHOT, 0 /ECHOES LINE ON TTY 006411 0040 40 006412 1777 TAD I (BOSSW /IS /T BIT ON? 006413 0211 AND .-2 /IMPLEMENTED AS PATCH 006414 7640 SZA CLA 006415 5610 JMP I ECHOT /YES; DON'T ECHO 006416 1376 TAD (TTYOUT /SET TTY AS OUTPUT 006417 3227 DCA BOUTDV 006420 4775 JMS I (ECHO /ECHO IT 006421 1774 TAD I (OUTPUT 006422 3227 DCA BOUTDV /RESET OUTPUT 006423 5610 JMP I ECHOT 006424 0000 OUTCHR, 0 006425 4627 JMS I BOUTDV 006426 5624 JMP I OUTCHR 006427 6430 BOUTDV, TTYOUT 006430 0000 TTYOUT, 0 /TESTS AC FOR FORM FEED 006431 1373 TAD (-214 006432 7450 SNA 006433 5237 JMP TFORM /GENERATE LINE FEEDS 006434 1372 TAD (214 006435 4265 JMS TTYPE 006436 5630 JMP I TTYOUT 006437 7346 TFORM, CLL STA RTL 006440 3262 DCA NULOUT 006441 1371 TAD (212 006442 4265 JMS TTYPE 006443 2262 ISZ NULOUT 006444 5241 JMP .-3 006445 5630 JMP I TTYOUT 006446 0000 CTC, 0 /CHECK FOR ^C 006447 4770 JMS I (TKRS 006450 7640 SZA CLA 006451 5646 JMP I CTC 006452 5767 JMP I (BKILL /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 53 006453 0000 TTY, 0 006454 6032 KCC 006455 6031 KSF 006456 5255 JMP .-1 006457 4246 JMS CTC 006460 6032 KCC 006461 5653 JMP I TTY 006462 0000 NULOUT, 0 /DEEP-SIX THE CHARACTER 006463 4246 JMS CTC 006464 5662 JMP I NULOUT 006465 0000 TTYPE, 0 /TELETYPE OUTPUT STUFF 006466 6046 TLS 006467 4246 JMS CTC 006470 4770 JMS I (TKRS 006471 1366 TAD (-20 /XOFF? 006472 7650 SNA CLA 006473 4253 JMS TTY /YES WAIT FOR OTHER CHAR 006474 6041 TSF 006475 5274 JMP .-1 006476 5665 JMP I TTYPE 006477 0000 ERHDR, 0 /ERROR HEADER ROUTINE 006500 3253 DCA TTY /SAVE CHARACTER 006501 1765 TAD I (DOLFLG /FIRST ENTRY? 006502 7640 SZA CLA 006503 5312 JMP AFTER /NO. 006504 1364 TAD (215 006505 4327 JMS OUTCND 006506 1371 TAD (212 /MAKE SURE IT GOES 006507 4327 JMS OUTCND /ON NEW LINE 006510 1363 TAD ("# /ERROR PROMPT 006511 4327 JMS OUTCND 006512 1777 AFTER, TAD I (BOSSW /GET BATCH FLAGS WORD 006513 0362 AND (1000 /SET $ SLEW FLAG NEGATIVE IF NO /E, 006514 7126 STL RTL /NON-ZERO IN ANY CASE 006515 3765 DCA I (DOLFLG 006516 1253 TAD TTY 006517 4327 JMS OUTCND 006520 5677 JMP I ERHDR 006521 0000 CRLF, 0 006522 1364 TAD (215 006523 4224 JMS OUTCHR 006524 1371 TAD (212 006525 4224 JMS OUTCHR 006526 5721 JMP I CRLF /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 54 006527 0000 OUTCND, 0 006530 3321 DCA CRLF 006531 1227 TAD BOUTDV 006532 1361 TAD (-NULOUT 006533 7640 SZA CLA 006534 5337 JMP .+3 006535 1376 TAD (TTYOUT 006536 3227 DCA BOUTDV 006537 1321 TAD CRLF 006540 4224 JMS OUTCHR /OUTPUT THE CHARACTER 006541 1774 TAD I (OUTPUT 006542 3227 DCA BOUTDV 006543 5727 JMP I OUTCND 006544 0000 BOSLPT, 0 /BATCH LINE PRINTER ROUTINE 006545 4200 JMS LPTSET 006546 1373 TAD (-214 /WAS IT FF? 006547 7650 SNA CLA 006550 1371 TAD (212 /SET FOR PAGE DELAY (1 LOC LESS) 006551 7170 STL CMA RAR /EITHER -1 OR -105 006552 3262 DCA NULOUT 006553 7410 SKP 006554 4200 LDELAY, JMS LPTSET /PRINT NULL 006555 4246 JMS CTC 006556 2262 ISZ NULOUT /DELAY OVER? 006557 5354 JMP LDELAY 006560 5744 JMP I BOSLPT 006561 1316 006562 1000 006563 0243 006564 0215 006565 7776 006566 7760 006567 7460 006570 6351 006571 0212 006572 0214 006573 7564 006574 6605 006575 5732 006576 6430 006577 6606 6600 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 55 /*** KEEP THIS TABLE AT 6600 FOR USERS 006600 0000 BCTLTM, 0 /**INIT** /NON-BATCH STATUS 006601 0000 BINDEV, 0 /**INIT** /INPUT BOS ROUTINE 006602 0000 SYCNTL, 0 /**INIT** /SYS CONTROL WORD 006603 0000 SYSINH, 0 /**INIT** /RESIDENT ENTRY POINT 006604 0000 FRSBLK, 0 /**INIT** /FIRST BLOCK OF BATCH FILE 006605 0000 OUTPUT, 0 /**INIT** /OUTPUT BOS ROUTINE 006606 0000 BOSSW, 0 /**INIT** /BATCH STATUS FLAG. 006607 0000 SPLDEV, 0 /**INIT** /GETS SPOOL DEVICE # 006610 1234 CDFRST, 1234 /**INIT** /FOR LEVEL2 006611 7402 BOSCDF, HLT /**INIT** /BOS DATA FIELD 006612 5610 JMP I CDFRST /HERE FROM CD WHEN DONE TO ANALYZE CD AREA 006613 6201 CDRENT, CDF 0 006614 1777 TAD I (DEFALT /GET THE DEFAULT EXTENSION 006615 4210 JMS CDFRST /SET CURRENT DF 006616 4776 JMS I (CDSCN /SCAN CD LINE 006617 6032 KCC 006620 6042 TCF /CLEAR FLAGS JUST LIKE CD WOULD 006621 6203 CDF CIF 0 006622 5775 JMP I (CDOVER+3 /RESUME CD AT TERMINATION CODE /ERROR MESSAGES CDEMSG, 006623 1517 IFNDEF GERMAN < TEXT /MONITOR OVERLAYED/> 006624 1611 006625 2417 006626 2240 006627 1726 006630 0522 006631 1401 006632 3105 006633 0400 IFDEF GERMAN < TEXT /MONITOR ZERSTOERT/> BADMSG, 006634 0201 IFNDEF GERMAN < TEXT /BAD LINE. =>$END/> 006635 0440 006636 1411 006637 1605 006640 5640 006641 7576 006642 4405 006643 1604 006644 0000 IFDEF GERMAN < TEXT /SCHLECHTE ZEILE!/> SERMSG, 006645 2331 IFNDEF GERMAN < TEXT /SYS: ERROR/> 006646 2372 006647 4005 006650 2222 006651 1722 006652 0000 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 55-1 IFDEF GERMAN < TEXT /SYS-FEHLER/> /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 56 006653 7777 7777 /PROTECTION FOR CARD READER!! 006654 0000 LINBUF, ZBLOCK 120 006775 0331 006776 7200 006777 0245 7000 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 57 007000 4777 BATABT, JMS I (CDFRST /THIS CODE IS HERE FOR CCL! 007001 1776 TAD I (BOSSW /GET BATCH SWITCHES 007002 0375 AND (1000 /IF /E FLAG IS UP CCL ERRORS ARE FATAL, 007003 7106 CLL RTL 007004 5232 JMP CDKILX /WE SHOULD ABORT BATCH ON THEM 007005 4774 CDGET, JMS I (GLINE /READ INPUT 007006 4773 JMS I (ECHO 007007 1772 TAD I (DOLFLG /$JOB FLAG UP? 007010 7710 SPA CLA 007011 5237 JMP CDKBD /SLEW UNTIL $JOB 007012 7201 CLA IAC 007013 4771 JMS I (GCHAR 007014 4770 JMS I (TESTB /TEST PROMPT CHAR. 007015 7774 -4 007016 7526 -"*;CDLINE /* IS OK 007017 7060 007020 7521 -"/;CDGET /REMARK 007021 7005 007022 7534 -"$;CDOLLR 007023 6314 007024 7522 -".;CDKBD /RECALL KEYBOARD MON. 007025 7037 007026 7200 KJOB, CLA /IGNORE CHAR 007027 4767 JMS I (PRMESG 007030 6634 BADMSG /ILLEGAL CHARACTER 007031 7330 CDKILL, STL CLA RAR /4000 007032 3772 CDKILX, DCA I (DOLFLG /ABORT TO NEXT $JOB 007033 4766 JMS I (SETJSW /MARK BATCH IN CORE 007034 6203 CIF CDF 0 007035 5636 JMP I .+1 007036 7605 7605 /RESTART. 007037 6202 CDKBD, CIF 0 007040 4765 JMS I (SYSTEM 007041 1000 1000 007042 0000 0 007043 0007 KMREC 007044 7610 SYIERR, SKP CLA 007045 5251 JMP .+4 007046 4767 JMS I (PRMESG 007047 6645 SERMSG 007050 5764 JMP I (BKILL 007051 4766 JMS I (SETJSW /MARK BATCH IN CORE 007052 4763 JMS I (KMLINK /LINK TO NEW KEYBOARD 007053 1362 TAD (BOSRE /WE WANT TO RETAIN OLD LINE 007054 6203 CIF CDF 0 007055 3761 DCA I (BCHGO+2 007056 5657 JMP I .+1 007057 0400 KMNTRY /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 58 007060 4760 CDLINE, JMS I (MOVE /PUT LINE INTO CD 007061 7666 -112 007062 6655 LINBUF+1 007063 6201 CDF 0 007064 1200 CDBEGLN 007065 1757 TAD I (AMODE 007066 6211 CDF 10 007067 7640 SZA CLA /CHECK WHETHER ALTMODE TERMINATED LINE 007070 7130 STL RAR /IT DID - SET CD ALTMODE FLAG 007071 3756 DCA I (MPARAM-1 007072 6203 CIF CDF 0 007073 5674 JMP I .+1 007074 0202 ANALYZ 007075 4767 DEVKIL, JMS I (PRMESG 007076 7123 PTRMSG 007077 5231 JMP CDKILL 007100 4760 NWSTRT, JMS I (MOVE /RESET LEVEL1 PARAMS 007101 7775 -3 /DO NOT RESET 'SPLNUM' 007102 7111 OLDBLK 007103 6201 LVCDF2, CDF 0 007104 7774 SYBLKN 007105 1355 TAD (7 007106 6770 6770 /RELEASE MULTI8 007107 7200 CLA 007110 5232 JMP CDKILX 007111 0000 OLDBLK, ZBLOCK 3 HLPMSG, 007114 1605 IFNDEF GERMAN < TEXT /NEED OPERATOR/> 007115 0504 007116 4017 007117 2005 007120 2201 007121 2417 007122 2200 IFDEF GERMAN < TEXT /HILFE NOETIG!/> PTRMSG, 007123 1114 IFNDEF GERMAN < TEXT /ILLEGAL INPUT/> 007124 1405 007125 0701 007126 1440 007127 1116 007130 2025 007131 2400 IFDEF GERMAN < TEXT /KEINE HILFE!!/> 007132 0516 EOBMSG, TEXT /END BATCH/ 007133 0440 007134 0201 007135 2403 007136 1000 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 59 SPLMSG, 007137 2320 IFNDEF GERMAN < TEXT /SPOOLING TO FILE: /> 007140 1717 007141 1411 007142 1607 007143 4024 007144 1740 007145 0611 007146 1405 007147 7240 007150 0000 IFDEF GERMAN < TEXT /SPULE NACH DATEI: /> 7150 *.-1 007150 0224 BCHFIL, FILENAME BTCHA0.SP 007151 0310 007152 0160 007153 2320 007154 0000 0 007155 0007 007156 7642 007157 6246 007160 7531 007161 0050 007162 5632 007163 6123 007164 7460 007165 7607 007166 5564 007167 6054 007170 6030 007171 6341 007172 7776 007173 5732 007174 6200 007175 1000 007176 6606 007177 6610 7200 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 60 /SUBROUTINE TO ANALYZE CD AREA - ENTER FROM ANY FIELD /WITH DEFAULT EXTENSION IN AC 007200 0000 CDSCN, 0 007201 3342 DCA EXT /SAVE EXTENSION 007202 6214 RDF 007203 1377 TAD (CDF CIF 0 007204 3325 DCA CDSCRT /SAVE RETURN FIELD 007205 1376 TAD (7600 007206 3251 DCA CDTEMP /LOOK AT CD AREA 007207 7346 MTHREE 007210 3343 DCA CDCNT 007211 4775 CDSCAN, JMS I (CDFRST 007212 1774 TAD I (SPLDEV 007213 7450 SNA 007214 5257 JMP NCKSPL /IF NO SPOOL DEV;NO SPOOLING 007215 7421 MQL /SAVE SPOOL DEV 007216 4327 JMS DCBGET 007217 5257 JMP NCKSPL /NO OUTPUT - DON'T LOOK 007220 7710 SPA CLA /SPOOL NON-FILE DEVICES 007221 5257 JMP NCKSPL /FILE STRUCTURED OUTPUT 007222 1651 TAD I CDTEMP 007223 0373 AND (7760 007224 7501 MQA /RESET CD AREA 007225 3651 DCA I CDTEMP 007226 4775 JMS I (CDFRST 007227 1772 TAD I (BOSSW 007230 7106 CLL RTL 007231 7630 SZL CLA 007232 5257 JMP NCKSPL /DON'T PRINT FILENAME ON NON FS 007233 2251 ISZ CDTEMP /POINT TO FILENAME AREA 007234 1771 TAD I (SPLNUM 007235 0370 AND (11 007236 7041 CIA 007237 1370 TAD (11 007240 7650 SNA CLA 007241 1367 TAD (66 007242 7001 IAC 007243 1771 TAD I (SPLNUM 007244 3766 DCA I (BCHFIL+2 007245 4765 JMS I (MOVE 007246 7774 -4 007247 7150 BCHFIL 007250 6211 CDF 10 007251 0000 CDTEMP, 0 /76XX 007252 4764 JMS I (PRMESG /PRINT FILENAME 007253 7137 SPLMSG /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 61 007254 1766 TAD I (BCHFIL+2 /SET NEW FILENAME 007255 3771 DCA I (SPLNUM 007256 7240 CLA CMA 007257 1251 NCKSPL, TAD CDTEMP 007260 1363 TAD (5 007261 3251 DCA CDTEMP 007262 1342 TAD EXT 007263 7440 SZA 007264 1362 TAD (-5200 /WAS THIS A SPECIAL MODE DECODE? 007265 7650 SNA CLA 007266 5325 JMP CDSCRT /YES - LOOK NO MORE 007267 2343 ISZ CDCNT 007270 5211 JMP CDSCAN /KEEP LOOKING 007271 1361 CDX1, TAD (-11 /SCAN INPUT AREA 007272 3343 DCA CDCNT 007273 1360 TAD (7617 007274 3251 DCA CDTEMP /PICK UP MANUAL INPUTS. 007275 4327 INPSCN, JMS DCBGET /ANY INPUTS? 007276 5325 JMP CDSCRT /3 GUESSES! 007277 0357 AND (770 007300 4775 JMS I (CDFRST 007301 7450 SNA 007302 5307 JMP RBELL /TELETYPE INPUT - CHECK OPERATOR 007303 1356 TAD (-10 007304 7640 SZA CLA 007305 5320 JMP CDX3 /OK INPUT DEVICE 007306 7330 AC4000 /PTR: INPUT - IS BATCH FROM PTR? 007307 7001 RBELL, IAC /OPERATOR AVAILABLE? 007310 0772 AND I (BOSSW 007311 7640 SZA CLA 007312 5755 JMP I (DEVKIL /NO. ABORT THE JOB /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 62 007313 1354 TAD (207 007314 4753 JMS I (TTYOUT 007315 4764 JMS I (PRMESG 007316 7114 HLPMSG /MANUAL INTERVENTION REQUIRED. 007317 5325 JMP CDSCRT 007320 7326 CDX3, CLA CLL CML RTL 007321 1251 TAD CDTEMP 007322 3251 DCA CDTEMP 007323 2343 ISZ CDCNT 007324 5275 JMP INPSCN 007325 7402 CDSCRT, HLT 007326 5600 JMP I CDSCN /RETURN TO CALLER 007327 0000 DCBGET, 0 007330 6211 CDF 10 007331 1651 TAD I CDTEMP /IS THERE A DEVICE? 007332 7450 SNA 007333 5727 JMP I DCBGET /NO RETURN 1 007334 0352 AND (17 /ISOLATE IT 007335 1351 TAD (DCB-1 /DEV INFO TABLE 007336 3344 DCA CDTMP2 007337 1744 TAD I CDTMP2 /GET DEVICE INFO 007340 2327 ISZ DCBGET /RETURN 2 007341 5727 JMP I DCBGET 007342 0000 EXT, 0 007343 0000 CDCNT, 0 007344 0000 CDTMP2, 0 007351 7757 007352 0017 007353 6430 007354 0207 007355 7075 007356 7770 007357 0770 007360 7617 007361 7767 007362 2600 007363 0005 007364 6054 007365 7531 007366 7152 007367 0066 007370 0011 007371 7777 007372 6606 007373 7760 007374 6607 007375 6610 007376 7600 007377 6203 7400 PAGE /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 63 /THIS ROUTINE IS NOT REFERENCED FROM BATCH- /IT PROVIDES A WAY FOR A USER TO OUTPUT MESSAGES /TO THE BATCH LOG DEVICE 007400 0000 BATOUT, 0 /CALLABLE FROM ANY FIELD 007401 3331 DCA MOVE /WITH CHARACTER IN AC 007402 6214 RDF 007403 1272 TAD CDCF0 /GET CDF CIF TO CALLING FIELD 007404 3210 DCA BATORT 007405 4777 JMS I (CDFRST /CDF TO CURRENT FIELD 007406 1331 TAD MOVE 007407 4776 JMS I (OUTCND 007410 7402 BATORT, HLT 007411 5600 JMP I BATOUT INPMSG, 007412 1116 IFNDEF GERMAN < TEXT /INPUT FAILURE/> 007413 2025 007414 2440 007415 0601 007416 1114 007417 2522 007420 0500 IFDEF GERMAN < TEXT / LESE-FEHLER /> /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 64 /ENTER HERE FROM COMMAND DECODER WHEN CD CALLED 007421 4331 CDBOS, JMS MOVE 007422 7775 -3 007423 7443 CDLST1 007424 6201 CDF 0 007425 1370 TYPE+1 /LINK ERROR PRINTOUT TO BOS 007426 4331 JMS MOVE 007427 7775 -3 007430 7446 CDLST2 007431 6201 MCDF0, CDF 0 007432 1002 CGLINE /LINK INPUT TO BOS 007433 4331 JMS MOVE 007434 7775 -3 007435 7451 CDLST3 007436 6201 CDF 0 007437 0326 CDOVER /EXIT FROM LINE ANALYSIS 007440 6203 CIF CDF 0 007441 5642 JMP I .+1 007442 0677 RESTRT+1 /START UP CD /** THESE 3 WORDS LOAD INTO "TYPE+1" IN THE COMMAND DECODER ** 007443 6203 CDLST1, CIF CDF 0 007444 5772 TYPE+3&177+5600 /"JMP I .+1" 007445 6151 CDPRT /** THESE 3 WORDS LOAD INTO "CGLINE" IN THE COMMAND DECODER ** 007446 6203 CDLST2, CIF CDF 0 007447 5604 CGLINE+2&177+5600 /"JMP I .+1" 007450 7005 CDGET /RETURN TO CDGET AFTER ZEROING CD AREA /** THESE 3 WORDS LOAD INTO "CDOVER" IN THE COMMAND DECODER ** 007451 6203 CDLST3, CIF CDF 0 007452 5730 CDOVER+2&177+5600 /"JMP I .+1" 007453 6613 CDRENT /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 65 007454 1775 END, TAD I (BOSSW 007455 0374 AND (20 /IF HUSH DON'T PRINT 007456 4773 JMS I (PRMESG 007457 7132 EOBMSG 007460 1327 BKILL, TAD LEVEL2 007461 7640 SZA CLA 007462 5274 JMP OLDBOS 007463 1700 TAD I PBCTLT 007464 6201 CDF 0 007465 3772 DCA I (7777 /SET BATCH INACTIVE 007466 6211 CDF 10 007467 7240 STA 007470 1771 TAD I (7700 /RESET USR SWITCH 007471 3771 DCA I (7700 /TO PRESERVE CORE ACROSS BATCH TERMINATION 007472 6203 CDCF0, CDF CIF 0 007473 5770 JMP I (7600 007474 4331 OLDBOS, JMS MOVE 007475 7766 -12 007476 7517 LVOLD 007477 6201 LVCDF1, CDF 0 007500 6600 PBCTLT, BCTLTM 007501 3327 DCA LEVEL2 007502 6202 CIF 0 007503 4767 JMS I (SYSTEM 007504 0100 HNDCTL, 100 007505 5400 BATIN 007506 0000 HNDBLK, 0 007507 5766 JMP I (SYIERR 007510 6202 CIF 0 007511 4767 JMS I (SYSTEM 007512 5100 LVCTRL, 7600-ORIGIN%2+4000 007513 5400 ORIGIN 007514 0000 LVBLK, 0 007515 5766 JMP I (SYIERR 007516 5765 JMP I (NWSTRT 007517 0000 LVOLD, ZBLOCK 10 007527 0000 LEVEL2, 0 007530 0000 0 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 66 007531 0000 MOVE, 0 007532 6214 RDF 007533 1231 TAD MCDF0 007534 3351 DCA MVIPUT 007535 1731 TAD I MOVE 007536 3363 DCA MVTMP /COUNT 007537 2331 ISZ MOVE 007540 1731 TAD I MOVE 007541 3200 DCA MVPT1 /INPUT STUFF 007542 2331 ISZ MOVE 007543 1731 TAD I MOVE 007544 3354 DCA MVOPUT /OUTPUT FIELD 007545 2331 ISZ MOVE 007546 1731 TAD I MOVE 007547 3210 DCA MVPT2 007550 2331 ISZ MOVE 007551 7402 MVIPUT, HLT 007552 1600 TAD I MVPT1 007553 2200 ISZ MVPT1 007554 7402 MVOPUT, HLT 007555 3610 DCA I MVPT2 007556 2210 ISZ MVPT2 007557 2363 ISZ MVTMP 007560 5351 JMP MVIPUT 007561 4777 JMS I (CDFRST 007562 5731 JMP I MOVE 007563 0000 MVTMP, 0 7400 MVPT1= BATOUT 7410 MVPT2= BATORT 007565 7100 007566 7044 007567 7607 007570 7600 007571 7700 007572 7777 007573 6054 007574 0020 007575 6606 007576 6527 007577 6610 7600 PAGE 0000 FIELD 0 0200 *200 $$$$$$$$$$ /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 67 AC0001 7301 BOSMOD 1207 CDRCR9 2103 DLCRUD 6305 AC0002 7305 BOSPRT 6145 CDREC 0051 DLERR 6322 AC0003 7325 BOSRE 5632 CDRENT 6613 DLEXIT 6323 AC0004 7307 BOSREC 1316 CDRET6 2472 DLRES 6325 AC4000 7330 BOSSB 5614 CDRET9 2072 DLSKIP 6327 AFTER 6512 BOSSW 6606 CDRSP6 2502 DOLECH 5647 AMFLAG 0017 BOSTAY 1264 CDRSP9 2102 DOLEC2 5671 AMODE 6246 BOUTDV 6427 CDR776 2501 DOLFLG 7776 ANALYZ 0202 BTBUF 1430 CDR779 2101 DOLRD 6250 BABA 0045 BUFCTL 0400 CDSCAN 7211 DSTART 0023 BADMON 0470 BUFFER 3000 CDSCN 7200 DUN 1723 BADMSG 6634 BUFHND 4000 CDSCRT 7325 DVICE 0043 BATABT 7000 BUFRCS 0002 CDTEMP 7251 ECHO 5732 BATASK 0204 CARRET 1252 CDTMP2 7344 ECHOT 6410 BATBLK 0040 CARROT 6231 CDT26 2510 ECHO2 5736 BATCD6 2400 CBATCH 4570 CDT29 2110 ECO3 5743 BATCD9 2000 CBLOCK 2641 CDXIT6 2471 END 7454 BATCH 0035 CCDI6 2474 CDXIT9 2071 EOBMSG 7132 BATCNT 0041 CCDI9 2074 CDX1 7271 EOC6 2447 BATCTL 0024 CCTC6 2477 CDX3 7320 EOC9 2047 BATCTW 0026 CCTC9 2077 CENTER 2631 EOHNDL 3000 BATDOL 0042 CCTL 2675 CEOF 2755 ERHDR 6477 BATFRS 0030 CDBEGL 1200 CGLINE 1002 EXT 7342 BATIDV 0025 CDBOS 7421 CHAIN 0201 FLBITS 0047 BATIN 5400 CDCF0 7472 CHCNT6 2475 FROM 2242 BATINH 0027 CDCNT 7343 CHCNT9 2075 FRSBLK 6604 BATNUM 0043 CDCR6 2461 CHCOM 1506 GCHAR 6341 BATODV 0031 CDCR9 2061 CHKSP6 2451 GEINPU 0555 BATORT 7410 CDDOL6 2506 CHKSP9 2051 GEOF 6335 BATOUT 7400 CDDOL9 2106 CHOLE 2642 GET 6203 BATPOI 2762 CDEMSG 6623 CHOUT 1523 GETCH6 2466 BATPTR 0400 CDERR 5644 CHUG 1676 GETCH9 2066 BATRET 1337 CDEV 2754 CLENG 2753 GETCOM 5716 BATSPL 0033 CDEVIN 2620 CLOOP 2660 GETCOR 1654 BATSWI 0032 CDFBOS 1325 CONT 0627 GETDOL 5700 BATSYS 1400 CDFRST 6610 COR8 0450 GETQSW 0304 BATTTY 1000 CDFTOP 0034 COUNT 0022 GEWD 1445 BATVFY 5600 CDGET 7005 COUT 2747 GLINE 6200 BCHAIN 0211 CDISZ6 2470 CREC 2677 GLPTR 6247 BCHFIL 7150 CDISZ9 2070 CRLF 6521 GOTDOL 5711 BCHGO 0046 CDKBD 7037 CSLCT6 2424 GWDLP 1437 BCTLTM 6600 CDKILL 7031 CSLCT9 2024 GWRD2 6251 BEGLN 1000 CDKILX 7032 CTC 6446 HLPMSG 7114 BIMAX 0165 CDLINE 7060 CTEMP6 2435 HNDBLK 7506 BINDEV 6601 CDLST1 7443 CTEMP9 2035 HNDCTL 7504 BKAROW 6222 CDLST2 7446 CTIME6 2505 HRDERR 2317 BKILL 7460 CDLST3 7451 CTIME9 2105 ICHAR1 1503 BLOK 1431 CDMSP6 2507 CTRANS 2652 ICHAR2 1502 BMVCNT 2252 CDMSP9 2107 DCB 7760 INCOR 2253 BOS 5601 CDOLLR 6314 DCBGET 7327 INERR 2311 BOSBLK 0044 CDOVER 0326 DEFALT 0245 INPMSG 7412 BOSCDF 6611 CDPRT 6151 DEVERR 2303 INPSCN 7275 BOSCRE 1263 CDPTR6 2504 DEVKIL 7075 IOSYS 1424 BOSCTL 0046 CDPTR9 2104 DEV1 0033 JMPCH 1456 BOSLPT 6544 CDRCR6 2503 DIOMSG 2325 JMPDOT 1452 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 67-1 JOB 6307 NOHUSH 0326 RDCOL9 2027 TCTRLC 1123 JSW 7746 NOINPU 2314 RESTRT 0676 TCU 1051 K 1755 NONOTH 0600 SCTL 2726 TEMNAM 2756 KEYMON 0403 NONULL 0332 SCTRLC 1542 TEMP 0020 KJOB 7026 NOSHSV 2275 SERMSG 6645 TEMP2 0021 KMDOLR 6317 NOTCDR 0264 SETJSW 5564 TESTB 6030 KMLINK 6123 NOTSYS 0252 SHSAVE 2341 TFORM 6437 KMLST1 6137 NOTTY 0274 SIOMSG 0501 TIME6 2412 KMLST2 6142 NULOUT 6462 SOFSET 7747 TIME9 2012 KMMOD 0646 NWSTRT 7100 SPLDEV 6607 TKRS 6351 KMNTRY 0400 NXPRG 6000 SPLMSG 7137 TMB110 1125 KMREC 0007 OLDBLK 7111 SPLNFS 0525 TN 2626 K10 1701 OLDBOS 7474 SPLNUM 7777 TO 2244 K7777 1321 ORIGIN 5400 SPOOL 0607 TOPCDF 0035 LDELAY 6554 OUTCHR 6424 SREC 2730 TOPCIF 0037 LEVEL2 7527 OUTCND 6527 START 0203 TPTR 1137 LINBUF 6654 OUTERR 2306 STOCOR 1730 TRUB 1134 LNBUF6 2476 OUTMSG 0543 STODEV 0303 TSBOVR 6051 LNBUF9 2076 OUTPUT 6605 STOOUT 0342 TSTB2 6036 LPTCOD 0660 OUTSW 0041 SYBLKN 7774 TSTOR 1070 LPTSET 6400 PBCTLT 7500 SYBUFF 2213 TT 0021 LVBLK 7514 PCDIF0 0420 SYC 1427 TTESTB 1124 LVCDF1 7477 PCDT6 2500 SYCDIF 1547 TTIBRU 1154 LVCDF2 7103 PCDT9 2100 SYCHCN 1410 TTIBUF 1135 LVCTRL 7512 PCHAR 1617 SYCNT 7775 TTICDI 1126 LVERR 2322 PCLS 6666 SYCNTL 6602 TTIDOL 1130 LVMESG 2357 PCRLF 1633 SYCTL 2212 TTIEOL 1054 LVOLD 7517 PCTRLC 0421 SYEXT 1522 TTIGET 1006 LZERO 0000 PNCH 6072 SYFIX 1406 TTIGO 1010 MCDF0 7431 PRINT 0200 SYGETC 1450 TTIIGN 1015 MCONT 1610 PRMESG 6054 SYIERR 7044 TTIIN 1140 MESSG 1600 PRMOUT 6117 SYM601 1537 TTIISZ 1065 MONERR 2272 PRMSG2 6063 SYREAD 1412 TTINXT 1062 MOVE 7531 PRTTY 6103 SYREC 2214 TTIOUT 1133 MPARAM 7643 PSKF 6661 SYS 2200 TTIREP 1141 MREAD 7757 PSYBLK 1531 SYSCHR 1530 TTIRET 1066 MSG 6013 PSYCH 1534 SYSCOP 2600 TTIRUB 1100 MSGST 6312 PSYCN 1533 SYSDOL 1550 TTI177 1131 MTHREE 7346 PSYCNT 1532 SYSH 1407 TTI200 1132 MTWO 7344 PSYIER 1535 SYSINH 6603 TTO 1037 MVINSB 2217 PTIMER 0427 SYSIN4 1404 TTROF 1112 MVIPUT 7551 PTMER 0422 SYSISZ 1524 TTY 6453 MVOPUT 7554 PTM2 0411 SYSM3 1540 TTYOUT 6430 MVPT1 7400 PTRDOL 0431 SYSM32 1545 TTYPE 6465 MVPT2 7410 PTRISZ 0415 SYSRET 1525 TT7600 1644 MVTMP 7563 PTRMSG 7123 SYSTEM 7607 TUPA 1143 NALTMD 6237 PTRRET 0416 SYS177 1544 TYPE 1367 NAMECT 0031 PTR200 0430 SYS232 1546 TYPIT 1640 NBATCH 0432 RBELL 7307 SYS3 1541 T1 0050 NCKSPL 7257 RCRA 6632 SYS601 1536 T2 0051 NEWCR6 2410 RCRD 6674 SYTEMP 1530 T212 1127 NEWCR9 2010 RCSD 6671 SY7400 1543 T215 1053 NOBACH 2267 RCSE 6672 TBSLS 1104 VEDIT 0330 NOCORE 2300 RCSF 6631 TCNT 1136 VERMSG 1200 NODEV 0512 RDCOL6 2427 TCRLF 1115 VERSON 0062 /BATCH PROCESSOR DP FOR OS8 V50 PAL8-V50X 06-JUN-87 PAGE 67-2 VV1 0005 VV2 0062 WPTR 1527 XGLINE 1200 XR1 0016 XR2 0017 X214 5677 ERRORS DETECTED: 0 LINKS GENERATED: 0