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