/ /COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. /SAVE AREAS AND BUFFERS FOR EACH JOB / /EDIT 4 9-2-70 /SAVE AREAS FOR EACH JOB /DEFINE MULTI=N WHERE N=2,4 /HAS SAVE AREA FOR DATA COMMANDS TTI1=1 TTO1=1 BKI1=2 BKO1=2 TTI2=3 TTO2=3 BKI2=4 BKO2=4 .IFDEF MULTI / INTERNAL GLOBLS REFERENCED BY FOCAL MAIN .GLOBL FILA1,FILA2,FILB1,FILB2,FILC1,FILC2,BOT1,BOT2 .GLOBL ENDT1A,ENDT1C,ENDT1D,ENDT2A,ENDT2C,ENDT2D .GLOBL BUF1,BUF2,ENDT1,ENDT2,AREA1,AREA2 / EXTERNAL GLOBLS .GLOBL CTLP1,CTLP2,WAITB1,WAITB2 AREA1 0 /RESTART -1 REG CTLP1 WAITB1 0 /FLAC -3 REGS 0 0 0 /FRST 0 /LIST3+1 0 /AUTOXR -5 REGS 0 0 0 0 IMB1 /BUFFER HEADER POINTERS -4 REGS IMB1 INB1 OTB1 0 /SUBROUTINE ENTRY POINTS - 10(8) REGS 0 0 0 0 0 0 0 2000+TTI1 /CAL SAVES -14(8) REGS 3000+TTI1 2000+TTO1 3000+TTO1 2000+TTO1 0 0 0 0 0 0 0 0 FILA1 0 /FILE POINTERS - 3 REGS FILB1 0 FILC1 0 BOT1 XX /FREE CORE POINTERS - 6 REGS BUF1 XX ENDT1 XX ENDT1A XX XX ENDT1C XX ENDT1D XX CMB1 /COMBUF=COMEIN CMB1+77 /COMBOT=COMOUT IMB1+2 /IMBUFP=IMBUFF+2 INB1+2 /INBUFP=INBUF+2 OTB1+2 /OTBUFP=OUTBUF+2 0 /AXOUT (TEXTP) 0 /XCTX 0 /GTEM 0 /MODBUF 215 /ENDCR 0 /GETVCT 0 /SAVEOT -1 /PUTCNT 0 /TEMPK 0 /INSUB TTI1 /TTIN TTO1 /TTOUT BKI1 /BLKIN BKO1 /BLKOUT 0 /LIBRSW TTI1 /.DATIN TTO1 /.DATOUT 0 /DATINS 0 /EX1 0 /AC1H 0 /AC1L 0 /OVER1 0 /OVER2 10 /FISW 0 /GETP 0 /GETCX 0 /GET1X 0 /GET2 0 /GET3 OTB1+2 /PUTP 0 /PUTC 0 /PUT6 0 /SORTCN 0 /LASTOP 0 /ATSW (EFOP) -20 /CNTR 4 /DECP 0 /ADD 0 /XCTIN 1 /NAGSW 215 /CHAR 0 /LINENO 0 /PC 0 /THISLN 0 /THISOP 0 /LASTLN 1 /DEBGSW 1 /DMPSW 0 /PACKST 0 /PT1 0 /T1 0 /T2 0 /SACH 0 /FLARG -3 REGS 0 0 0 /FLARG2 -3 REGS 0 0 AREA1S=.-AREA1 IMB1 2003; 0; 0; -1 INB1 .BLOCK 60 .ASCII <15> OTB1 1000 .BLOCK 57 .ASCII <15> CMB1 .BLOCK 100 215 / AREA2 0 /RESTART - 1 REG CTLP2 WAITB2 0 /FLAC - 3 REGS 0 0 0 /FRST 0 /LIST3+1 0 /AUTOXR - 5 REGS 0 0 0 0 IMB2 /BUFFER HEADER POINTERS - 4 REG IMB2 INB2 OTB2 0 /SUBROUTINE ENTRY POINTS - 10(8) REGS 0 0 0 0 0 0 0 2000+TTI2 /CAL SAVES - 14(8) REGS 3000+TTI2 2000+TTO2 3000+TTO2 2000+TTO2 0 0 0 0 0 0 0 0 FILA2 0 /FILE POINTERS - 3 REGS FILB2 0 FILC2 0 BOT2 XX /FREE CORE POINTERS - 6 REGS BUF2 XX ENDT2 XX ENDT2A XX XX ENDT2C XX ENDT2D XX CMB2 /COMBUF=COMEIN CMB2+77 /COMBOT=COMOUT IMB2+2 /INBUFP=IMBUFF+2 INB2+2 /INBUFP=INBUF+2 OTB2+2 /OTBUFP=OUTBUF+2 0 /AXOUT(TEXTP) 0 /XCTX 0 /GTEM 0 /MODBUF 215 /ENDCR 0 /GETVCT 0 /SAVEOT -1 /PUTCNT 0 /TEMPK 0 /INSUB TTI2 /TTIN TTO2 /TTOUT BKI2 /BLKIN BKO2 /BLKOUT 0 /LIBRSW TTI2 /.DATIN TTO2 /.DATOUT 0 /DATINS 0 /EX1 0 /AC1H 0 /AC1L 0 /OVER1 0 /OVER2 10 /FISW 0 /GETP 0 /GETCX 0 /GET1X 0 /GET2 0 /GET3 OTB2+2 /PUTP 0 /PUTC 0 /PUT6 0 /SORTCN 0 /LASTOP 0 /ATSW(EFOP) -20 /CNTR 4 /DECP 0 /ADD 0 /XCTIN 1 /NAGSW 215 /CHAR 0 /LINENO 0 /PC 0 /THISLN 0 /THISOP 0 /LASTLN 1 /DEBGSW 1 /DMPSW 0 /PACKST 0 /PT1 0 /T1 0 /T2 0 /SACH 0 /FLARG - 3 REGS 0 0 0 /FLARG2 - 3 REGS 0 0 AREA2S=.-AREA2 IMB2 2003; 0; -1 INB2 .BLOCK 60 .ASCII <15> OTB2 1000 .BLOCK 57 .ASCII <15> CMB2 .BLOCK 100 215 / .IFZER MULTI-4 / INTERNAL GLOBLS REFERENCED BY FOCAL MAIN .GLOBL FILA3,FILA4,FILB3,FILB4,FILC3,FILC4,BOT3,BOT4 .GLOBL BUF3,BUF4,ENDT3,ENDT4,AREA3,AREA4 .GLOBL ENDT3A,ENDT3C,ENDT3D,ENDT4A,ENDT4C,ENDT4D / EXTERNAL GLOBLS .GLOBL CTLP3,CTLP4,WAITB3,WAITB4 TTI3=5 TTO3=5 BKI3=6 BKO3=6 TTI4=7 TTO4=7 BKI4=10 BKO4=10 AREA3 0 /RESTART - 1 REG CTLP3 WAITB3 0 /FLAC - 3 REGS 0 0 0 /FRST 0 /LIST3+1 0 /AUTOXR - 5 REGS 0 0 0 0 IMB3 /BUFFER HEADER POINTERS - 4 REG IMB3 INB3 OTB3 0 /SUBROUTINE ENTRY POINTS - 10(8) REG 0 0 0 0 0 0 0 2000+TTI3 /CAL SAVES - 14(8) REGS 3000+TTI3 2000+TTO3 3000+TTO3 2000+TTO3 0 0 0 0 0 0 0 0 FILA3 0 /FILE POINTERS - 3 REGS FILB3 0 FILC3 0 BOT3 XX /FREE CORE POINTERS - 6 REGS BUF3 XX ENDT3 XX ENDT3A XX XX ENDT3C XX ENDT3D XX CMB3 /COMBUF=COMEIN CMB3+77 /COMBOT=COMOUT IMB3+2 /IMBUFP=IMBUFF+2 INB3+2 /INBUFP=INBUF+2 OTB3+2 /OTBUFP=OUTBUF+2 0 /AXOUT(TEXTP) 0 /XCTX 0 /GTEM 0 /MODBUF 215 /ENDCR 0 /GETVCT 0 /SAVEOT -1 /PUTCNT 0 /TEMPK 0 /INSUB TTI3 /TTIN TTO3 /TTOUT BKI3 /BLKIN BKO3 /BLKOUT 0 /LIBRSW TTI3 /.DATIN TTO3 /.DATOUT 0 /DATINS 0 /EX1 0 /AC1H 0 /AC1L 0 /OVER1 0 /OVER2 10 /FISW 0 /GETP 0 /GETCX 0 /GET1X 0 /GET2 0 /GET3 OTB3+2 /PUTP 0 /PUTC 0 /PUT6 0 /SORTCN 0 /LASTOP 0 /ATSW(EFOP) -20 /CNTR 4 /DECP 0 /ADD 0 /XCTIN 1 /NAGSW 215 /CHAR 0 /LINEND 0 /PC 0 /THISLN 0 /THISOP 0 /LASTLN 1 /DEBGSW 1 /DMPSW 0 /PACKST 0 /PT1 0 /T1 0 /T2 0 /SACH 0 /FLARG - 3 REGS 0 0 0 /FLARG2 - 3 REGS 0 0 AREA3S=.-AREA3 IMB3 2003; 0; 0; -1 INB3 .BLOCK 60 .ASCII <15> OTB3 1000 .BLOCK 57 .ASCII <15> CMB3 .BLOCK 100 215 / AREA4 0 /RESTART - 1 REG CTLP4 WAITB4 0 /FLAC - 3 REGS 0 0 0 /FRST 0 /LIST3+1 0 /AUTOXR - 5 REGS 0 0 0 0 IMB4 /BUFFER HEADER POINTERS - 4 REG IMB4 INB4 OTB4 0 /SUBROUTINE ENTRY POINTS - 10 (8) REG 0 0 0 0 0 0 0 2000+TTI4 /CAL SAVES - 14(8) REGS 3000+TTI4 2000+TTO4 3000+TTO4 2000+TTO4 0 0 0 0 0 0 0 0 FILA4 0 /FILE POINTERS - 3 REGS FILB4 0 FILC4 0 BOT4 XX /FREE CORE POINTERS - 6 REGS BUF4 XX ENDT4 XX ENDT4A XX XX ENDT4C XX ENDT4D XX CMB4 /COMBUF=COMEIN CMB4+77 /COMBOT=COMOUT IMB4+2 /IMBUFP=IMBUFF+2 INB4+2 /INBUFP=INBUF+2 OTB4+2 /OTBUFP=OUTBUF+2 0 /AXOUT(TEXPT) 0 /XCTX 0 /GTEM 0 /MODBUF 215 /ENDCR 0 /GETVCT 0 /SAVEOT -1 /PUTCNT 0 /TEMPK 0 /INSUB TTI4 /TTIN TTO4 /TTOUT BKI4 /BLKIN BKO4 /BKOUT 0 /LIBRSW TTI4 /.DATIN TTO4 /.DATOUT 0 /DATINS 0 /EX1 0 /AC1H 0 /AC1L 0 /OVER1 0 /OVER2 10 /FISW 0 /GETP 0 /GETCX 0 /GET1X 0 /GET2 0 /GET3 OTB4+2 /PUTP 0 /PUTC 0 /PUT6 0 /SORTCN 0 /LASTOP 0 /ATSW(EFOP) -20 /CNTR 4 /DECP 0 /ADD 0 /XCTIN 1 /NAGSW 215 /CHAR 0 /LINENO 0 /PC 0 /THISLN 0 /THISOP 0 /LASTLN 1 /DEBGSW 1 /DMPSW 0 /PACKST 0 /PT1 0 /T1 0 /T2 0 /SACH 0 /FLARG - 3 REGS 0 0 0 /FLARG2 - 3 REGS 0 0 AREA4S=.-AREA4 IMB4 2003; 0; 0; -1 INB4 .BLOCK 60 .ASCII <15> OTB4 1000 .BLOCK 57 .ASCII <15> CMB4 .BLOCK 100 215 / .ENDC .ENDC .END .EJECT