|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 14090 (0x370a)
Notes: pts_type(SC)
Names: »DE70ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE70ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE70ST.SC«
IDENT DE70ST REL 10.0 80-04-11 80-03-24/DALI DDUM DEDDIV PDIV ENTRY DE70ST ENTRY DEAP7A * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRS EXT DECLRN EXT DERR EXT DEPMSK FETCH THE KEYSWITCHES EXT OPCL OPEN/CLOSE FILEROUTINE EXT DECONV USER OR STANDARDCODED CONVERSION ROUTINE EXT DELAST WRITE AND READ ON LAST ROW OF DISPLAY. EXT DERROR WRITE AND READ A KEY ON LAST ROW OF THE DISPLAY EXT DEOPBC OPEN BATCH EXT DEPOOL POOLHANDLING EXT DERECS READ RECORDROUTINE EXT DEPRUT SET PROGRAMNUMBER EXT ATTDB ATTACH DESCRIPTORBLOCK EXT DEDISC FILE HANDLING * EXT RESTOR RESTOR WORKBLOCK AND DESCRIPTORADRESSES EXT EMPTYT EXT UPDBOL EXT UPDBIN EXT GETIND EXT DEANOK NOT OK RET FROM APPL EXT DEAOK0 OK RET FROM APPL * INCLUDE DELITT EJECT * * FOLLOWING DATAITEMS ARE USED FOR CONVERSION WITH DECONV * STSAVE(W3) HOLDING THE DEVICE-TYPE * STSAVE(W4) HOLDING THE FILE-NAME * * PERF DECONV,<FC1>,<FC2>,<RETCODE> * * <FC1> = 1 TRANSMIT * = 2 RECEIVE * = 3 TO OTHER MEDIA * <FC2> = 1 OPEN CONVERSION * = 2 BATCHHEAD ATTACHED * = 3 DATARECORD ATTACHED * = 4 BALANCE ATTACHED * = 5 CLOSE CONVERSION * <RETCODE> = 0 NO ERRORS DETECTED * /= 0 ERROR DETECTED * > 0 WRITE ERROR MESSAGE * =-1 GET NEXT BATCH,WRITE ACCUMULATORS * =-2 MAKE BALANCE CURRENT * =-3 GET CURRENT BATCH FROM BEGINNING * =-4 RETURN FROM CONVERSION * =-5 DELETE CURRENT BATCH * * THE FORMAL PARAMETERS <FC1> AND <FC2> MAY NOT BE * UPDATED WITHIN THE DECONV PROCEDURE. * EJECT ********************************************* * START OF CONVERSION. HANDLE PRORAMSCREEN- * LAYOUTS 70,71 CONVERSION MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE70ST PROC MOVE JOBNAME,HEX00 MOVE BATCH,HEX00 CBNE BIN2,W0,DEEN10 JUMP IF NOT PRNUM 70 DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DEST20 JUMP IF NOT 70 ATTFMT F70ST B DEST30 DEST20 IB BIN2,DEST21,DEST22 DEST21 PROGRAM 71 ATTFMT F71ST B DEST30 DEST22 PROGRAM 72 ATTFMT F72ST DEST30 SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE TBT BOOL2,DEST55 PERF DECLRA B DEST60 DEST55 PERF DECLRS DEST60 IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT MOVE DEBINW4,W0 DE70ER CLEAR DOOL3 BNZ D70ER2 MOVE BIN3,DEBINW4 PERF OPCL,W4 MOVE DEBINW4,BIN3 D70ER2 PERF DERR B DEST60 * * CANCEL-KEY PRESSED * DE70CA CLEAR DEPROMPT B DEST50 * * RETURN-KEY PRESSED * DE70RE CLEAR DOOL3 DATAENTERING ON USERFILE PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 IB DEBINW2,DERE55,DERE55 DERE20 TBT BOOL2,DERE50 IF SET NOT FRMT 70 MOVE BIN2,W1 RETURN FROM THIS MODE MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CHANGE TO FRMT 70 CLEAR BOOL1 MOVE BIN1,W7 MUL BIN1,W10 MOVE PRNUM,BIN1 DERE55 PERF DEPRUT,PRNUM,BIN1,BIN2 PERF DEPMSK B DEST10 EJECT ************************************** * THIS IS THE MAINLOOP IN CONVERSION MODE * THESE ROUTINES USE THE DENTER-SCREEN ************************************** * * ENTER-KEY PRESSED * DE70EN TBT BOOL2,DEOPEN DEEN10 CBNE BIN1,W7,DERE30 CLEAR BOOL3 PROGRAM 72 IB BIN2,DEEN20,DEEN15 B DEST00 DEEN15 SET BOOL3 PROGRAM 72 DEEN20 SET BOOL2 CLEAR BOOL1 PART OF FORMAT B DEST20 DEOPEN IB BIN2,DE71ST,DE72ST,DE73ST EJECT DE71ST START OF DATACOMM DE72ST MOVE WORK(W8),W0 USED FOR CHECKING OF PART CONVERSION. 0 = THE WHOLE USERFILE 1 = ALL BATCHES IN THIS JOB 2 = THIS JOB,THIS BATCH CALL EMPTYT,JOBNAME LOOK IF JOBNAME BNZ CO7110 NO JOBNAME MOVE WORK(W8),W1 CO7110 CALL EMPTYT,BATCH LOOK IF BATCHNAME BNZ CO7130 NO BATCHNAME CBE WORK(W8),W1,CO7120 MOVE DEBINW4,W5 JOBNAME NOT ENTERED GETFLD 0,W2,DEBINW3 B DE70ER CO7120 MOVE WORK(W8),W2 CO7130 IB WORK(W8),CO7140,CO7150 PERF DELAST,W12,DEKTAB8 B CO7145 CO7140 PERF DELAST,W13,DEKTAB8 CO7145 CBE DEBINW2,W1,DE70CA JUMP ON CANCEL-KEY CO7150 MOVE DEBINW2,W0 PERF DEOPBC,DEBINW2 IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER CO7160 SET SOOL2 IF SET LINE IS OPEN BNZ CO7161 CO716A PERF DECONV,BIN5,W1,DEBINW4 OPEN CONVERSION MOVE WORK(W7),W1 SAVE TYPE CBE DEBINW4,W0,CO7161 JUMP IF OKEY B ERRCO1 JUMP ON ERROR CO7161 IB WORK(W8),CO7170,CO7186 CO7162 SEND WHOLE FILE MOVE BATCH,HEX00 PERF DEDISC,W21 GET NEXT JOBNAME BOK CO7164 CBNE DEBINW4,W9,CO7183 B RETUBC WHOLE FILE SEND CO7164 PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A CO7166 PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A CO7170 MOVE STSAVE(W4),BATCH SAVE BATCHNAME MOVE BIN3,=W'34' GET NEXT BATCHNAME CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 PERF DEDISC,BIN3 BOK CO7180 CBNE DEBINW4,W9,CO7183 NOT 'NOT FOUND' IB WORK(W8),RETUBC JUMP IF ONE JOB B CO7162 GET NEXT JOB CO7175 PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A CO7180 MOVE BCDI21(W3),W0 SET WANTED RECNO = 0 PERF DERECS,W11 BOK CO7186 CBG DEBINW4,W11,ERRCO2 ERROR CBL DEBINW4,W8,CO7182 CBNE DEBINW4,W10,CO7184 CO7183 B ERRCO2 ERROR CO7182 CBNE DEBINW4,W4,ERRCO2 CO7184 IB WORK(W8),CO7185,ERRCO2 CO7185 B CO7166 GET NEXT BATCH CO7186 PERF DERECS,W5 GET CURRENT BNOK ERRCO2 CBNE BIN3,W10,CONVNO IB WORK(W8),CO7166,RETUBC EMPTY BATCH CONVNO CBNE NUMBER,=D'0',CONVE1 JUMP IF NOT BATCHHEAD CONVE0 PERF DECONV,BIN5,W2,DEBINW4 BATCHHEAD MOVE WORK(W7),W2 SAVE TYPE CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY CONVE1 MOVE DEBINW4,NUMBER CURRENT REC.NUMBER CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO PERF DERECS,W4 GET NEXT RECORD BNOK ERRCO2 JUMP IF NOT OKEY CONVEA PERF DECONV,BIN5,W3,DEBINW4 DATARECORD MOVE WORK(W7),W3 SAVE TYPE CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY B CONVE1 CONVE2 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT MOVE FRMTPNTR,SYMREC(W11) CONVEF PERF DEDISC,W10 GET FORMAT BOK CONVE3 CBNE DEBINW4,W13,ERRCO2 NO WORKSPACE CBE PINDFR,W0,ERRCO2 NO CURR. FORMAT PERF DEPOOL,W6,PINDFR,BIN14,STRG10A ATTFMT FFETCH ATTACH DUMMYFORMAT DISPLAY 0,W1,W0 THOME MOVE FORMAT,HEX00 B CONVEF CONVE3 MOVE FORMAT,FORTAB(W21) BALANCE NAME CALL ATTDB,BPOOL(PINDFR),W6,W10 MOVE BIN16,FLIND(W1) ATTFMT BPOOL(BIN16) CONVEB PERF DECONV,BIN5,W4,DEBINW4 BALANCE MOVE WORK(W7),W4 SAVE TYPE CBNE DEBINW4,W0,ERRCO1 CONVE4 CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 CBE PINACC,W0,CONVEC CLEAR BDAACT CALL UPDBIN,BDSTAT PERF DEDISC,W18 WRITE ACCUMULATORS BNOK ERRCO2 CONVEC MOVE DEBINW2,W0 IB WORK(W8),CONVE5,RETUBC CONVE5 B CO7166 GET NEXT BATCH DELCUR DELETE CURRENT BATCH CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 MOVE BIN13,=W'27' PERF DEDISC,BIN13 DELETE BATCH BNOK ERRCO1 MOVE BATCH,STSAVE(W4) B CONVEC ERRCO1 CBG DEBINW4,W0,ERRCO3 MUL DEBINW4,=W'-1' IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C CO7175,RETUBC,DELCUR ERRCO3 PERF DERROR,DEKTABS MOVE DEBINW4,W0 ZEROIZE ERRORMESS IB DEBINW2,ERRCLR,CONVE4,RETUBC CLR CAN RET ERRCLR IB WORK(W7),CO716A,CONVE0,CONVEA,CONVEB JUMP CLR DEP TYPE CLEAR SOOL2 ERRCO2 PERF DERROR,DEKTABS IB DEBINW2,ERRCO2,CONVE4 RETUBC RETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO WORKBLOCKS AND DESCRIPTORS CBE PINACC,W0,RETBC3 CLEAR BDAACT CALL UPDBIN,BDSTAT PERF DEDISC,W18 WRITE ACCUMULATORS PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A RETBC3 CLEAR SOOL2 CONVERSION OPEN BZ RETBC4 PERF DECONV,BIN5,W5,DEBINW4 RETBC4 CLEAR DOOL3 PERF DEPRUT,PRNUM,BIN1,BIN2 PERF OPCL,W4 CLOSE USERFILE BOK DEST20 * DE73ST B DEST55 PEND EJECT * * APPL-VALUE HANDLING ROUTINE * DEAP7A PROC IB DEBINW3,DEA71 B DEANOK ILLEGAL APPL-VALUE * * APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE * BIN5 = <FC>,FUNCTION-CLASS * DEA71 CALL GETIND,DEVTYP,DEBIN1,DEBIN2 GET LENGTH MOVE DEBIN2,W0 DEA71A MOVE DEBIN3,DEBIN2 MATCH DEVTYP,DEBIN3,W3,DEINPUT,W0,W3 BOK DEA71B ADD DEBIN2,W5 GET NEXT DEVICE CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE B DEA71A DEA71B ADD DEBIN3,W3 ADJUST FOR FILECODE XCOPY BIN6,W1,W1,DEVTYP,DEBIN3 SAVE FILECODE ADD DEBIN3,W1 ADJUST FOR <FC> XCOPY BIN5,W1,W1,DEVTYP,DEBIN3 SAVE <FC> B DEAOK0 DEA71E MOVE DEBINW4,W9 NOT FOUND B DEANOK PEND EJECT * * FORMATS * F70ST FRMT FSL FTEXT '70 ' FCOPY =C'CONVERSION' $$ FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F70OUT FNL FLINK F72S F70OUT FMEND F72ST FRMT FSL FLINK F71S FNL FLINK F71UV FNL FLINK F71JOB FTAB 20 FLINK F71BAT FLINK F71END FMEND F71ST FRMT FSL FLINK F72S FNL FLINK F71UV FNL FLINK F71JOB FTAB 20 FLINK F71BAT FNL FLINK F72DEV FLINK F71END FMEND F71S FRMT FTEXT '71 ' FCOPY =C'CONVERSION' FILLR ' ',1 FCOPY =C'VIA' FILLR ' ',1 FCOPY =C'DATA COMM' FMEND F72S FRMT FTEXT '71 ' FCOPY =C'CONVERSION' FILLR ' ',1 FCOPY =C'TO' FILLR ' ',1 FCOPY =C'OTHER MEDIA' FMEND F73S FRMT FTEXT '73 ' FCOPY =C'BATCH LINKING' FMEND F71UV FRMT FCOPY =C'UNIT' FTEXT ':U' FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 FMEL 'X',USERFILE FTAB 20 FCOPY =C'VOLUME' FILLR ':',1 FINP 27 FCOPY TABLE FMEND F71JOB FRMT FCOPY =C'JOB' FCOPY =C'NAME' FILLR ':',1 FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1) FCOPY JOBNAME FMEND F71BAT FRMT FCOPY =C'BATCH' FCOPY =C'NAME' FILLR ':',1 FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) FCOPY BATCH FMEND F71END FRMT FNL FKI 1 FCOPY HEX00 FMEND F72DEV FRMT FCOPY =C'DEVICE ' FILLR ':',1 FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 FCOPY STSAVE(W3) FTAB 20 FCOPY =C'FILE' FILLR '-',1 FCOPY =C'NAME' FILLR ':',1 FKI 32,ALPHA,MAXL=6,NEOI FCOPY STSAVE(W4) FMEND FFETCH FRMT FSL FTEXT 'FETCHING FORMAT:' FCOPY DEINPUT FTEXT ' FROM DISC.' FNL FKI 1,ALPHA FCOPY HEX00 FMEND * END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DE70ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-03-24/DALI«, t00=0x0000, t01=0x002c}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE70ST «, t00=0x0000, t01=0x0066}
0x0078…008e Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP7A «, t00=0x0000, t01=0x007c}
0x008e…0098 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c6 Head {h00=0x002a, h01=0x002a, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x009c}
0x00c6…00d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00ca}
0x00d0…00e4 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00d4}
0x00e4…00f8 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x00e8}
0x00f8…010c Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00fc}
0x010c…011e Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x0110}
0x011e…0148 Head {h00=0x0026, h01=0x0050, text=» EXT DEPMSK FETCH THE KEYSWITCHES «, t00=0x0000, t01=0x0122}
0x0148…0170 Head {h00=0x0024, h01=0x0050, text=» EXT OPCL OPEN/CLOSE FILEROUTINE«, t00=0x0000, t01=0x014c}
0x0170…019a Head {h00=0x0026, h01=0x0050, text=» EXT DECONV USER OR STANDARDCODED «, t00=0x0000, t01=0x0174}
0x019a…01b8 Head {h00=0x001a, h01=0x0050, text=» CONVERSION ROUTINE «, t00=0x0001, t01=0x000e}
0x01b8…01e2 Head {h00=0x0026, h01=0x0050, text=» EXT DELAST WRITE AND READ ON LAST«, t00=0x0001, t01=0x002c}
0x01e2…01fc Head {h00=0x0016, h01=0x0050, text=» ROW OF DISPLAY.«, t00=0x0001, t01=0x0056}
0x01fc…0228 Head {h00=0x0028, h01=0x0050, text=» EXT DERROR WRITE AND READ A KEY ON «, t00=0x0001, t01=0x0070}
0x0228…024a Head {h00=0x001e, h01=0x0050, text=» LAST ROW OF THE DISPLAY«, t00=0x0001, t01=0x009c}
0x024a…0268 Head {h00=0x001a, h01=0x0050, text=» EXT DEOPBC OPEN BATCH«, t00=0x0001, t01=0x00be}
0x0268…0288 Head {h00=0x001c, h01=0x0050, text=» EXT DEPOOL POOLHANDLING«, t00=0x0001, t01=0x00dc}
0x0288…02ae Head {h00=0x0022, h01=0x0050, text=» EXT DERECS READ RECORDROUTINE«, t00=0x0001, t01=0x00fc}
0x02ae…02d4 Head {h00=0x0022, h01=0x0050, text=» EXT DEPRUT SET PROGRAMNUMBER «, t00=0x0001, t01=0x0122}
0x02d4…02fe Head {h00=0x0026, h01=0x0050, text=» EXT ATTDB ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x0148}
0x02fe…0320 Head {h00=0x001e, h01=0x0050, text=» EXT DEDISC FILE HANDLING «, t00=0x0001, t01=0x0172}
0x0320…032a (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…034e Head {h00=0x0020, h01=0x0050, text=» EXT RESTOR RESTOR WORKBLOCK«, t00=0x0002, t01=0x000e}
0x034e…0370 Head {h00=0x001e, h01=0x0050, text=» AND DESCRIPTORADRESSES «, t00=0x0002, t01=0x0032}
0x0370…0384 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0054}
0x0384…0398 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL«, t00=0x0002, t01=0x0068}
0x0398…03ac Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0002, t01=0x007c}
0x03ac…03c0 Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0002, t01=0x0090}
0x03c0…03e8 Head {h00=0x0024, h01=0x0050, text=» EXT DEANOK NOT OK RET FROM APPL«, t00=0x0002, t01=0x00a4}
0x03e8…040c Head {h00=0x0020, h01=0x0050, text=» EXT DEAOK0 OK RET FROM APPL«, t00=0x0002, t01=0x00cc}
0x040c…0416 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00f0}
0x0416…042e Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x00fa}
0x042e…043c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0112}
0x043c…0446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0120}
0x0446…0488 Head {h00=0x003e, h01=0x0050, text=»* FOLLOWING DATAITEMS ARE USED FOR CONVERSION WITH DECONV «, t00=0x0002, t01=0x012a}
0x0488…04bc Head {h00=0x0030, h01=0x0050, text=»* STSAVE(W3) HOLDING THE DEVICE-TYPE «, t00=0x0002, t01=0x016c}
0x04bc…04ee Head {h00=0x002e, h01=0x0050, text=»* STSAVE(W4) HOLDING THE FILE-NAME «, t00=0x0003, t01=0x0010}
0x04ee…04f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f8…0524 Head {h00=0x0028, h01=0x0050, text=»* PERF DECONV,<FC1>,<FC2>,<RETCODE> «, t00=0x0003, t01=0x004c}
0x0524…052e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0078}
0x052e…055a Head {h00=0x0028, h01=0x0050, text=»* <FC1> = 1 TRANSMIT «, t00=0x0003, t01=0x0082}
0x055a…0584 Head {h00=0x0026, h01=0x0050, text=»* = 2 RECEIVE«, t00=0x0003, t01=0x00ae}
0x0584…05b6 Head {h00=0x002e, h01=0x0050, text=»* = 3 TO OTHER MEDIA «, t00=0x0003, t01=0x00d8}
0x05b6…05e8 Head {h00=0x002e, h01=0x0050, text=»* <FC2> = 1 OPEN CONVERSION«, t00=0x0003, t01=0x010a}
0x05e8…061e Head {h00=0x0032, h01=0x0050, text=»* = 2 BATCHHEAD ATTACHED «, t00=0x0003, t01=0x013c}
0x061e…0654 Head {h00=0x0032, h01=0x0050, text=»* = 3 DATARECORD ATTACHED«, t00=0x0003, t01=0x0172}
0x0654…0688 Head {h00=0x0030, h01=0x0050, text=»* = 4 BALANCE ATTACHED «, t00=0x0004, t01=0x0018}
0x0688…06bc Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE CONVERSION «, t00=0x0004, t01=0x004c}
0x06bc…06f2 Head {h00=0x0032, h01=0x0050, text=»* <RETCODE> = 0 NO ERRORS DETECTED «, t00=0x0004, t01=0x0080}
0x06f2…0724 Head {h00=0x002e, h01=0x0050, text=»* /= 0 ERROR DETECTED «, t00=0x0004, t01=0x00b6}
0x0724…075a Head {h00=0x0032, h01=0x0050, text=»* > 0 WRITE ERROR MESSAGE«, t00=0x0004, t01=0x00e8}
0x075a…079e Head {h00=0x0040, h01=0x0050, text=»* =-1 GET NEXT BATCH,WRITE ACCUMULATORS«, t00=0x0004, t01=0x011e}
0x079e…07d6 Head {h00=0x0034, h01=0x0050, text=»* =-2 MAKE BALANCE CURRENT «, t00=0x0004, t01=0x0162}
0x07d6…081a Head {h00=0x0040, h01=0x0050, text=»* =-3 GET CURRENT BATCH FROM BEGINNING «, t00=0x0005, t01=0x000a}
0x081a…0854 Head {h00=0x0036, h01=0x0050, text=»* =-4 RETURN FROM CONVERSION «, t00=0x0005, t01=0x004e}
0x0854…088c Head {h00=0x0034, h01=0x0050, text=»* =-5 DELETE CURRENT BATCH «, t00=0x0005, t01=0x0088}
0x088c…0896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0896…08d0 Head {h00=0x0036, h01=0x0050, text=»* THE FORMAL PARAMETERS <FC1> AND <FC2> MAY NOT BE«, t00=0x0005, t01=0x00ca}
0x08d0…08fe Head {h00=0x002a, h01=0x0050, text=»* UPDATED WITHIN THE DECONV PROCEDURE.«, t00=0x0005, t01=0x0104}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0908…0916 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x013c}
0x0916…094c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0005, t01=0x014a}
0x094c…0980 Head {h00=0x0030, h01=0x0050, text=»* START OF CONVERSION. HANDLE PRORAMSCREEN- «, t00=0x0005, t01=0x0180}
0x0980…09a8 Head {h00=0x0024, h01=0x0050, text=»* LAYOUTS 70,71 CONVERSION MODE.«, t00=0x0006, t01=0x0024}
0x09a8…09d8 Head {h00=0x002c, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN. «, t00=0x0006, t01=0x004c}
0x09d8…0a0e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x007c}
0x0a0e…0a22 Head {h00=0x0010, h01=0x0050, text=»DE70ST PROC «, t00=0x0006, t01=0x00b2}
0x0a22…0a3e Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,HEX00 «, t00=0x0006, t01=0x00c6}
0x0a3e…0a58 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x0006, t01=0x00e2}
0x0a58…0a8a Head {h00=0x002e, h01=0x0050, text=» CBNE BIN2,W0,DEEN10 JUMP IF NOT PRNUM 70 «, t00=0x0006, t01=0x00fc}
0x0a8a…0a98 Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0006, t01=0x012e}
0x0a98…0ac2 Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0006, t01=0x013c}
0x0ac2…0ad0 Head {h00=0x000a, h01=0x0050, text=»DEST10«, t00=0x0006, t01=0x0166}
0x0ad0…0af8 Head {h00=0x0024, h01=0x0050, text=» TBT BOOL2,DEST20 JUMP IF NOT 70«, t00=0x0006, t01=0x0174}
0x0af8…0b0e Head {h00=0x0012, h01=0x0050, text=» ATTFMT F70ST «, t00=0x0007, t01=0x000c}
0x0b0e…0b20 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x0022}
0x0b20…0b2e Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0007, t01=0x0034}
0x0b2e…0b4c Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEST21,DEST22«, t00=0x0007, t01=0x0042}
0x0b4c…0b68 Head {h00=0x0018, h01=0x0050, text=»DEST21 PROGRAM 71 «, t00=0x0007, t01=0x0060}
0x0b68…0b7e Head {h00=0x0012, h01=0x0050, text=» ATTFMT F71ST «, t00=0x0007, t01=0x007c}
0x0b7e…0b90 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x0092}
0x0b90…0bac Head {h00=0x0018, h01=0x0050, text=»DEST22 PROGRAM 72 «, t00=0x0007, t01=0x00a4}
0x0bac…0bc2 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F72ST «, t00=0x0007, t01=0x00c0}
0x0bc2…0bd0 Head {h00=0x000a, h01=0x0050, text=»DEST30«, t00=0x0007, t01=0x00d6}
0x0bd0…0bfa Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0007, t01=0x00e4}
0x0bfa…0c08 Head {h00=0x000a, h01=0x0050, text=»DEST50«, t00=0x0007, t01=0x010e}
0x0c08…0c20 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0007, t01=0x011c}
0x0c20…0c3a Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST55 «, t00=0x0007, t01=0x0134}
0x0c3a…0c4e Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0007, t01=0x014e}
0x0c4e…0c60 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0007, t01=0x0162}
0x0c60…0c6e Head {h00=0x000a, h01=0x0050, text=»DEST55«, t00=0x0007, t01=0x0174}
0x0c6e…0c82 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRS«, t00=0x0007, t01=0x0182}
0x0c82…0c90 Head {h00=0x000a, h01=0x0050, text=»DEST60«, t00=0x0008, t01=0x0008}
0x0c90…0cc4 Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT«, t00=0x0008, t01=0x0016}
0x0cc4…0cdc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0008, t01=0x004a}
0x0cdc…0cea Head {h00=0x000a, h01=0x0050, text=»DE70ER«, t00=0x0008, t01=0x0062}
0x0cea…0cfe Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0008, t01=0x0070}
0x0cfe…0d12 Head {h00=0x0010, h01=0x0050, text=» BNZ D70ER2 «, t00=0x0008, t01=0x0084}
0x0d12…0d2c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,DEBINW4«, t00=0x0008, t01=0x0098}
0x0d2c…0d42 Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W4 «, t00=0x0008, t01=0x00b2}
0x0d42…0d5c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x0008, t01=0x00c8}
0x0d5c…0d6a Head {h00=0x000a, h01=0x0050, text=»D70ER2«, t00=0x0008, t01=0x00e2}
0x0d6a…0d7c Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0008, t01=0x00f0}
0x0d7c…0d8e Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0008, t01=0x0102}
0x0d8e…0d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d98…0db4 Head {h00=0x0018, h01=0x0050, text=»* CANCEL-KEY PRESSED«, t00=0x0008, t01=0x011e}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0dcc Head {h00=0x000a, h01=0x0050, text=»DE70CA«, t00=0x0008, t01=0x0144}
0x0dcc…0de4 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0008, t01=0x0152}
0x0de4…0df6 Head {h00=0x000e, h01=0x0050, text=» B DEST50 «, t00=0x0008, t01=0x016a}
0x0df6…0e00 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x017c}
0x0e00…0e1c Head {h00=0x0018, h01=0x0050, text=»* RETURN-KEY PRESSED«, t00=0x0008, t01=0x0186}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0012}
0x0e26…0e34 Head {h00=0x000a, h01=0x0050, text=»DE70RE«, t00=0x0009, t01=0x001c}
0x0e34…0e62 Head {h00=0x002a, h01=0x0050, text=» CLEAR DOOL3 DATAENTERING ON USERFILE «, t00=0x0009, t01=0x002a}
0x0e62…0e86 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0009, t01=0x0058}
0x0e86…0e9c Head {h00=0x0012, h01=0x0050, text=» BNERR DERE20 «, t00=0x0009, t01=0x007c}
0x0e9c…0eb4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0009, t01=0x0092}
0x0eb4…0ed0 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0009, t01=0x00aa}
0x0ed0…0ef2 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,DERE55,DERE55 «, t00=0x0009, t01=0x00c6}
0x0ef2…0f00 Head {h00=0x000a, h01=0x0050, text=»DERE20«, t00=0x0009, t01=0x00e8}
0x0f00…0f2c Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,DERE50 IF SET NOT FRMT 70«, t00=0x0009, t01=0x00f6}
0x0f2c…0f58 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,W1 RETURN FROM THIS MODE «, t00=0x0009, t01=0x0122}
0x0f58…0f6e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0009, t01=0x014e}
0x0f6e…0f7c Head {h00=0x000a, h01=0x0050, text=»DERE30«, t00=0x0009, t01=0x0164}
0x0f7c…0f88 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0009, t01=0x0172}
0x0f88…0f96 Head {h00=0x000a, h01=0x0050, text=»DERE50«, t00=0x0009, t01=0x017e}
0x0f96…0fbc Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL2 CHANGE TO FRMT 70«, t00=0x0009, t01=0x018c}
0x0fbc…0fd0 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x000a, t01=0x0022}
0x0fd0…0fe6 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W7 «, t00=0x000a, t01=0x0036}
0x0fe6…0ffc Head {h00=0x0012, h01=0x0050, text=» MUL BIN1,W10 «, t00=0x000a, t01=0x004c}
0x0ffc…1014 Head {h00=0x0014, h01=0x0050, text=» MOVE PRNUM,BIN1«, t00=0x000a, t01=0x0062}
0x1014…1022 Head {h00=0x000a, h01=0x0050, text=»DERE55«, t00=0x000a, t01=0x007a}
0x1022…1046 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x000a, t01=0x0088}
0x1046…105a Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x000a, t01=0x00ac}
0x105a…106c Head {h00=0x000e, h01=0x0050, text=» B DEST10 «, t00=0x000a, t01=0x00c0}
0x106c…107a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d2}
0x107a…10a8 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x00e0}
0x10a8…10da Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE MAINLOOP IN CONVERSION MODE «, t00=0x000a, t01=0x010e}
0x10da…1108 Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x000a, t01=0x0140}
0x1108…1136 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x016e}
0x1136…1140 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x000c}
0x1140…115c Head {h00=0x0018, h01=0x0050, text=»* ENTER-KEY PRESSED «, t00=0x000b, t01=0x0016}
0x115c…1166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1166…1174 Head {h00=0x000a, h01=0x0050, text=»DE70EN«, t00=0x000b, t01=0x003c}
0x1174…118e Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEOPEN «, t00=0x000b, t01=0x004a}
0x118e…119c Head {h00=0x000a, h01=0x0050, text=»DEEN10«, t00=0x000b, t01=0x0064}
0x119c…11b8 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W7,DERE30«, t00=0x000b, t01=0x0072}
0x11b8…11d8 Head {h00=0x001c, h01=0x0050, text=» CLEAR BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x008e}
0x11d8…11f6 Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEEN20,DEEN15«, t00=0x000b, t01=0x00ae}
0x11f6…1208 Head {h00=0x000e, h01=0x0050, text=» B DEST00 «, t00=0x000b, t01=0x00cc}
0x1208…1216 Head {h00=0x000a, h01=0x0050, text=»DEEN15«, t00=0x000b, t01=0x00de}
0x1216…1234 Head {h00=0x001a, h01=0x0050, text=» SET BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x00ec}
0x1234…1242 Head {h00=0x000a, h01=0x0050, text=»DEEN20«, t00=0x000b, t01=0x010a}
0x1242…1254 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000b, t01=0x0118}
0x1254…1278 Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL1 PART OF FORMAT «, t00=0x000b, t01=0x012a}
0x1278…128a Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x000b, t01=0x014e}
0x128a…1298 Head {h00=0x000a, h01=0x0050, text=»DEOPEN«, t00=0x000b, t01=0x0160}
0x1298…12be Head {h00=0x0022, h01=0x0050, text=» IB BIN2,DE71ST,DE72ST,DE73ST «, t00=0x000b, t01=0x016e}
0x12be…12cc (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0004}
0x12cc…12ee Head {h00=0x001e, h01=0x0050, text=»DE71ST START OF DATACOMM«, t00=0x000c, t01=0x0012}
0x12ee…12fc Head {h00=0x000a, h01=0x0050, text=»DE72ST«, t00=0x000c, t01=0x0034}
0x12fc…132a Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W8),W0 USED FOR CHECKING OF«, t00=0x000c, t01=0x0042}
0x132a…1346 Head {h00=0x0018, h01=0x0050, text=» PART CONVERSION. «, t00=0x000c, t01=0x0070}
0x1346…1368 Head {h00=0x001e, h01=0x0050, text=» 0 = THE WHOLE USERFILE «, t00=0x000c, t01=0x008c}
0x1368…138e Head {h00=0x0022, h01=0x0050, text=» 1 = ALL BATCHES IN THIS JOB«, t00=0x000c, t01=0x00ae}
0x138e…13b0 Head {h00=0x001e, h01=0x0050, text=» 2 = THIS JOB,THIS BATCH«, t00=0x000c, t01=0x00d4}
0x13b0…13dc Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,JOBNAME LOOK IF JOBNAME«, t00=0x000c, t01=0x00f6}
0x13dc…13fa Head {h00=0x001a, h01=0x0050, text=» BNZ CO7110 NO JOBNAME«, t00=0x000c, t01=0x0122}
0x13fa…1414 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W1 «, t00=0x000c, t01=0x0140}
0x1414…1422 Head {h00=0x000a, h01=0x0050, text=»CO7110«, t00=0x000c, t01=0x015a}
0x1422…144e Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,BATCH LOOK IF BATCHNAME«, t00=0x000c, t01=0x0168}
0x144e…146e (13, 0, 398) Head {h00=0x001c, h01=0x0050, text=» BNZ CO7130 NO BATCHNAME«, t00=0x000d, t01=0x0004}
0x146e…148e Head {h00=0x001c, h01=0x0050, text=» CBE WORK(W8),W1,CO7120 «, t00=0x000d, t01=0x0024}
0x148e…14ba Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W5 JOBNAME NOT ENTERED«, t00=0x000d, t01=0x0044}
0x14ba…14d6 Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,W2,DEBINW3«, t00=0x000d, t01=0x0070}
0x14d6…14e8 Head {h00=0x000e, h01=0x0050, text=» B DE70ER «, t00=0x000d, t01=0x008c}
0x14e8…14f6 Head {h00=0x000a, h01=0x0050, text=»CO7120«, t00=0x000d, t01=0x009e}
0x14f6…1510 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W2 «, t00=0x000d, t01=0x00ac}
0x1510…151e Head {h00=0x000a, h01=0x0050, text=»CO7130«, t00=0x000d, t01=0x00c6}
0x151e…1540 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7140,CO7150«, t00=0x000d, t01=0x00d4}
0x1540…1560 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W12,DEKTAB8«, t00=0x000d, t01=0x00f6}
0x1560…1572 Head {h00=0x000e, h01=0x0050, text=» B CO7145 «, t00=0x000d, t01=0x0116}
0x1572…1580 Head {h00=0x000a, h01=0x0050, text=»CO7140«, t00=0x000d, t01=0x0128}
0x1580…15a0 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W13,DEKTAB8«, t00=0x000d, t01=0x0136}
0x15a0…15ae Head {h00=0x000a, h01=0x0050, text=»CO7145«, t00=0x000d, t01=0x0156}
0x15ae…15e0 Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW2,W1,DE70CA JUMP ON CANCEL-KEY «, t00=0x000d, t01=0x0164}
0x15e0…15ee Head {h00=0x000a, h01=0x0050, text=»CO7150«, t00=0x000e, t01=0x0008}
0x15ee…1606 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x000e, t01=0x0016}
0x1606…1622 Head {h00=0x0018, h01=0x0050, text=» PERF DEOPBC,DEBINW2«, t00=0x000e, t01=0x002e}
0x1622…1652 Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER «, t00=0x000e, t01=0x004a}
0x1652…1660 Head {h00=0x000a, h01=0x0050, text=»CO7160«, t00=0x000e, t01=0x007a}
0x1660…1686 Head {h00=0x0022, h01=0x0050, text=» SET SOOL2 IF SET LINE IS OPEN«, t00=0x000e, t01=0x0088}
0x1686…169a Head {h00=0x0010, h01=0x0050, text=» BNZ CO7161 «, t00=0x000e, t01=0x00ae}
0x169a…16a8 Head {h00=0x000a, h01=0x0050, text=»CO716A«, t00=0x000e, t01=0x00c2}
0x16a8…16dc Head {h00=0x0030, h01=0x0050, text=» PERF DECONV,BIN5,W1,DEBINW4 OPEN CONVERSION«, t00=0x000e, t01=0x00d0}
0x16dc…1700 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W1 SAVE TYPE «, t00=0x000e, t01=0x0104}
0x1700…172c Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW4,W0,CO7161 JUMP IF OKEY «, t00=0x000e, t01=0x0128}
0x172c…174c Head {h00=0x001c, h01=0x0050, text=» B ERRCO1 JUMP ON ERROR «, t00=0x000e, t01=0x0154}
0x174c…175a Head {h00=0x000a, h01=0x0050, text=»CO7161«, t00=0x000e, t01=0x0174}
0x175a…177c Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7170,CO7186«, t00=0x000e, t01=0x0182}
0x177c…179c Head {h00=0x001c, h01=0x0050, text=»CO7162 SEND WHOLE FILE«, t00=0x000f, t01=0x0014}
0x179c…17b6 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x000f, t01=0x0034}
0x17b6…17e0 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W21 GET NEXT JOBNAME «, t00=0x000f, t01=0x004e}
0x17e0…17f4 Head {h00=0x0010, h01=0x0050, text=» BOK CO7164 «, t00=0x000f, t01=0x0078}
0x17f4…1814 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 «, t00=0x000f, t01=0x008c}
0x1814…1836 Head {h00=0x001e, h01=0x0050, text=» B RETUBC WHOLE FILE SEND «, t00=0x000f, t01=0x00ac}
0x1836…1844 Head {h00=0x000a, h01=0x0050, text=»CO7164«, t00=0x000f, t01=0x00ce}
0x1844…1874 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x000f, t01=0x00dc}
0x1874…1882 Head {h00=0x000a, h01=0x0050, text=»CO7166«, t00=0x000f, t01=0x010c}
0x1882…18b0 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x000f, t01=0x011a}
0x18b0…18de Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x000f, t01=0x0148}
0x18de…18ec Head {h00=0x000a, h01=0x0050, text=»CO7170«, t00=0x000f, t01=0x0176}
0x18ec…191a Head {h00=0x002a, h01=0x0050, text=» MOVE STSAVE(W4),BATCH SAVE BATCHNAME «, t00=0x000f, t01=0x0184}
0x191a…1946 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN3,=W'34' GET NEXT BATCHNAME«, t00=0x0010, t01=0x0022}
0x1946…197a Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0010, t01=0x004e}
0x197a…1994 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN3 «, t00=0x0010, t01=0x0082}
0x1994…19a8 Head {h00=0x0010, h01=0x0050, text=» BOK CO7180 «, t00=0x0010, t01=0x009c}
0x19a8…19d8 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 NOT 'NOT FOUND' «, t00=0x0010, t01=0x00b0}
0x19d8…1a04 Head {h00=0x0028, h01=0x0050, text=» IB WORK(W8),RETUBC JUMP IF ONE JOB «, t00=0x0010, t01=0x00e0}
0x1a04…1a22 Head {h00=0x001a, h01=0x0050, text=» B CO7162 GET NEXT JOB«, t00=0x0010, t01=0x010c}
0x1a22…1a30 Head {h00=0x000a, h01=0x0050, text=»CO7175«, t00=0x0010, t01=0x012a}
0x1a30…1a5e Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0010, t01=0x0138}
0x1a5e…1a8c Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0010, t01=0x0166}
0x1a8c…1a9a (17, 0, 398) Head {h00=0x000a, h01=0x0050, text=»CO7180«, t00=0x0011, t01=0x0004}
0x1a9a…1aca Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W3),W0 SET WANTED RECNO = 0«, t00=0x0011, t01=0x0012}
0x1aca…1ae2 Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W11«, t00=0x0011, t01=0x0042}
0x1ae2…1af6 Head {h00=0x0010, h01=0x0050, text=» BOK CO7186 «, t00=0x0011, t01=0x005a}
0x1af6…1b1c Head {h00=0x0022, h01=0x0050, text=» CBG DEBINW4,W11,ERRCO2 ERROR «, t00=0x0011, t01=0x006e}
0x1b1c…1b3a Head {h00=0x001a, h01=0x0050, text=» CBL DEBINW4,W8,CO7182«, t00=0x0011, t01=0x0094}
0x1b3a…1b5a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W10,CO7184«, t00=0x0011, t01=0x00b2}
0x1b5a…1b68 Head {h00=0x000a, h01=0x0050, text=»CO7183«, t00=0x0011, t01=0x00d2}
0x1b68…1b80 Head {h00=0x0014, h01=0x0050, text=» B ERRCO2 ERROR «, t00=0x0011, t01=0x00e0}
0x1b80…1b8e Head {h00=0x000a, h01=0x0050, text=»CO7182«, t00=0x0011, t01=0x00f8}
0x1b8e…1bae Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W4,ERRCO2 «, t00=0x0011, t01=0x0106}
0x1bae…1bbc Head {h00=0x000a, h01=0x0050, text=»CO7184«, t00=0x0011, t01=0x0126}
0x1bbc…1bde Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7185,ERRCO2«, t00=0x0011, t01=0x0134}
0x1bde…1bec Head {h00=0x000a, h01=0x0050, text=»CO7185«, t00=0x0011, t01=0x0156}
0x1bec…1c0c Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0011, t01=0x0164}
0x1c0c…1c1a Head {h00=0x000a, h01=0x0050, text=»CO7186«, t00=0x0011, t01=0x0184}
0x1c1a…1c3e (18, 0, 400) Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0012, t01=0x0004}
0x1c3e…1c52 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0012, t01=0x0028}
0x1c52…1c70 Head {h00=0x001a, h01=0x0050, text=» CBNE BIN3,W10,CONVNO «, t00=0x0012, t01=0x003c}
0x1c70…1c9e Head {h00=0x002a, h01=0x0050, text=» IB WORK(W8),CO7166,RETUBC EMPTY BATCH«, t00=0x0012, t01=0x005a}
0x1c9e…1cac Head {h00=0x000a, h01=0x0050, text=»CONVNO«, t00=0x0012, t01=0x0088}
0x1cac…1ce4 Head {h00=0x0034, h01=0x0050, text=» CBNE NUMBER,=D'0',CONVE1 JUMP IF NOT BATCHHEAD «, t00=0x0012, t01=0x0096}
0x1ce4…1cf2 Head {h00=0x000a, h01=0x0050, text=»CONVE0«, t00=0x0012, t01=0x00ce}
0x1cf2…1d20 Head {h00=0x002a, h01=0x0050, text=» PERF DECONV,BIN5,W2,DEBINW4 BATCHHEAD«, t00=0x0012, t01=0x00dc}
0x1d20…1d44 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W2 SAVE TYPE «, t00=0x0012, t01=0x010a}
0x1d44…1d74 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0012, t01=0x012e}
0x1d74…1daa Head {h00=0x0032, h01=0x0050, text=»CONVE1 MOVE DEBINW4,NUMBER CURRENT REC.NUMBER «, t00=0x0012, t01=0x015e}
0x1daa…1dde (19, 0, 400) Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST «, t00=0x0013, t01=0x0004}
0x1dde…1e12 Head {h00=0x0030, h01=0x0050, text=» ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO «, t00=0x0013, t01=0x0038}
0x1e12…1e3a Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W4 GET NEXT RECORD «, t00=0x0013, t01=0x006c}
0x1e3a…1e60 Head {h00=0x0022, h01=0x0050, text=» BNOK ERRCO2 JUMP IF NOT OKEY «, t00=0x0013, t01=0x0094}
0x1e60…1e6e Head {h00=0x000a, h01=0x0050, text=»CONVEA«, t00=0x0013, t01=0x00ba}
0x1e6e…1e9e Head {h00=0x002c, h01=0x0050, text=» PERF DECONV,BIN5,W3,DEBINW4 DATARECORD «, t00=0x0013, t01=0x00c8}
0x1e9e…1ec2 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W3 SAVE TYPE «, t00=0x0013, t01=0x00f8}
0x1ec2…1ef2 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0013, t01=0x011c}
0x1ef2…1f04 Head {h00=0x000e, h01=0x0050, text=» B CONVE1 «, t00=0x0013, t01=0x014c}
0x1f04…1f12 Head {h00=0x000a, h01=0x0050, text=»CONVE2«, t00=0x0013, t01=0x015e}
0x1f12…1f2e Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0013, t01=0x016c}
0x1f2e…1f66 Head {h00=0x0034, h01=0x0050, text=» COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT«, t00=0x0013, t01=0x0188}
0x1f66…1f88 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W11)«, t00=0x0014, t01=0x0030}
0x1f88…1f96 Head {h00=0x000a, h01=0x0050, text=»CONVEF«, t00=0x0014, t01=0x0052}
0x1f96…1fba Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x0014, t01=0x0060}
0x1fba…1fce Head {h00=0x0010, h01=0x0050, text=» BOK CONVE3 «, t00=0x0014, t01=0x0084}
0x1fce…1ffc Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W13,ERRCO2 NO WORKSPACE «, t00=0x0014, t01=0x0098}
0x1ffc…202a Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,ERRCO2 NO CURR. FORMAT «, t00=0x0014, t01=0x00c6}
0x202a…2056 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN14,STRG10A«, t00=0x0014, t01=0x00f4}
0x2056…2080 Head {h00=0x0026, h01=0x0050, text=» ATTFMT FFETCH ATTACH DUMMYFORMAT «, t00=0x0014, t01=0x0120}
0x2080…2098 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0014, t01=0x014a}
0x2098…20a6 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0014, t01=0x0162}
0x20a6…20c0 Head {h00=0x0016, h01=0x0050, text=» MOVE FORMAT,HEX00«, t00=0x0014, t01=0x0170}
0x20c0…20d2 Head {h00=0x000e, h01=0x0050, text=» B CONVEF «, t00=0x0014, t01=0x018a}
0x20d2…20e0 Head {h00=0x000a, h01=0x0050, text=»CONVE3«, t00=0x0015, t01=0x000c}
0x20e0…210e Head {h00=0x002a, h01=0x0050, text=» MOVE FORMAT,FORTAB(W21) BALANCE NAME «, t00=0x0015, t01=0x001a}
0x210e…2136 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W6,W10«, t00=0x0015, t01=0x0048}
0x2136…2154 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,FLIND(W1) «, t00=0x0015, t01=0x0070}
0x2154…2170 Head {h00=0x0018, h01=0x0050, text=» ATTFMT BPOOL(BIN16)«, t00=0x0015, t01=0x008e}
0x2170…217e Head {h00=0x000a, h01=0x0050, text=»CONVEB«, t00=0x0015, t01=0x00aa}
0x217e…21aa Head {h00=0x0028, h01=0x0050, text=» PERF DECONV,BIN5,W4,DEBINW4 BALANCE«, t00=0x0015, t01=0x00b8}
0x21aa…21ce Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W4 SAVE TYPE «, t00=0x0015, t01=0x00e4}
0x21ce…21ee Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 «, t00=0x0015, t01=0x0108}
0x21ee…21fc Head {h00=0x000a, h01=0x0050, text=»CONVE4«, t00=0x0015, t01=0x0128}
0x21fc…2230 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0015, t01=0x0136}
0x2230…224e Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,CONVEC «, t00=0x0015, t01=0x016a}
0x224e…2264 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0015, t01=0x0188}
0x2264…2280 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0016, t01=0x000e}
0x2280…22ac Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0016, t01=0x002a}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0016, t01=0x0056}
0x22c0…22ce Head {h00=0x000a, h01=0x0050, text=»CONVEC«, t00=0x0016, t01=0x006a}
0x22ce…22e6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0016, t01=0x0078}
0x22e6…2308 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CONVE5,RETUBC«, t00=0x0016, t01=0x0090}
0x2308…2316 Head {h00=0x000a, h01=0x0050, text=»CONVE5«, t00=0x0016, t01=0x00b2}
0x2316…2336 Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0016, t01=0x00c0}
0x2336…235c Head {h00=0x0022, h01=0x0050, text=»DELCUR DELETE CURRENT BATCH «, t00=0x0016, t01=0x00e0}
0x235c…2390 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0016, t01=0x0106}
0x2390…23aa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x0016, t01=0x013a}
0x23aa…23d2 Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x0016, t01=0x0154}
0x23d2…23e6 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO1«, t00=0x0016, t01=0x017c}
0x23e6…2404 Head {h00=0x001a, h01=0x0050, text=» MOVE BATCH,STSAVE(W4)«, t00=0x0016, t01=0x0190}
0x2404…2416 Head {h00=0x000e, h01=0x0050, text=» B CONVEC «, t00=0x0017, t01=0x001e}
0x2416…2424 Head {h00=0x000a, h01=0x0050, text=»ERRCO1«, t00=0x0017, t01=0x0030}
0x2424…2442 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW4,W0,ERRCO3«, t00=0x0017, t01=0x003e}
0x2442…245e Head {h00=0x0018, h01=0x0050, text=» MUL DEBINW4,=W'-1' «, t00=0x0017, t01=0x005c}
0x245e…249c Head {h00=0x003a, h01=0x0050, text=» IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C«, t00=0x0017, t01=0x0078}
0x249c…24ba Head {h00=0x001a, h01=0x0050, text=» CO7175,RETUBC,DELCUR«, t00=0x0017, t01=0x00b6}
0x24ba…24c8 Head {h00=0x000a, h01=0x0050, text=»ERRCO3«, t00=0x0017, t01=0x00d4}
0x24c8…24e4 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0017, t01=0x00e2}
0x24e4…250e Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W0 ZEROIZE ERRORMESS«, t00=0x0017, t01=0x00fe}
0x250e…2542 Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,ERRCLR,CONVE4,RETUBC CLR CAN RET«, t00=0x0017, t01=0x0128}
0x2542…2550 Head {h00=0x000a, h01=0x0050, text=»ERRCLR«, t00=0x0017, t01=0x015c}
0x2550…2592 Head {h00=0x003e, h01=0x0050, text=» IB WORK(W7),CO716A,CONVE0,CONVEA,CONVEB JUMP CLR DEP TYPE«, t00=0x0017, t01=0x016a}
0x2592…25a6 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x0018, t01=0x001c}
0x25a6…25b4 Head {h00=0x000a, h01=0x0050, text=»ERRCO2«, t00=0x0018, t01=0x0030}
0x25b4…25d0 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0018, t01=0x003e}
0x25d0…25f2 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,ERRCO2,CONVE4 «, t00=0x0018, t01=0x005a}
0x25f2…2600 Head {h00=0x000a, h01=0x0050, text=»RETUBC«, t00=0x0018, t01=0x007c}
0x2600…2634 Head {h00=0x0030, h01=0x0050, text=»RETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0018, t01=0x008a}
0x2634…2664 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0018, t01=0x00be}
0x2664…26a4 Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x0018, t01=0x00ee}
0x26a4…26ca Head {h00=0x0022, h01=0x0050, text=» WORKBLOCKS AND DESCRIPTORS «, t00=0x0018, t01=0x012e}
0x26ca…26e8 Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,RETBC3 «, t00=0x0018, t01=0x0154}
0x26e8…26fe Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0018, t01=0x0172}
0x26fe…271a Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0018, t01=0x0188}
0x271a…2746 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0019, t01=0x0014}
0x2746…2774 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0019, t01=0x0040}
0x2774…2782 Head {h00=0x000a, h01=0x0050, text=»RETBC3«, t00=0x0019, t01=0x006e}
0x2782…27a6 Head {h00=0x0020, h01=0x0050, text=» CLEAR SOOL2 CONVERSION OPEN«, t00=0x0019, t01=0x007c}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» BZ RETBC4«, t00=0x0019, t01=0x00a0}
0x27b8…27dc Head {h00=0x0020, h01=0x0050, text=» PERF DECONV,BIN5,W5,DEBINW4«, t00=0x0019, t01=0x00b2}
0x27dc…27ea Head {h00=0x000a, h01=0x0050, text=»RETBC4«, t00=0x0019, t01=0x00d6}
0x27ea…27fe Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0019, t01=0x00e4}
0x27fe…2822 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x0019, t01=0x00f8}
0x2822…2846 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0019, t01=0x011c}
0x2846…285a Head {h00=0x0010, h01=0x0050, text=» BOK DEST20 «, t00=0x0019, t01=0x0140}
0x285a…2864 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0154}
0x2864…2872 Head {h00=0x000a, h01=0x0050, text=»DE73ST«, t00=0x0019, t01=0x015e}
0x2872…2884 Head {h00=0x000e, h01=0x0050, text=» B DEST55 «, t00=0x0019, t01=0x016c}
0x2884…2892 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x017e}
0x2892…28a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x018c}
0x28a0…28aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000a}
0x28aa…28d4 Head {h00=0x0026, h01=0x0050, text=»* APPL-VALUE HANDLING ROUTINE «, t00=0x001a, t01=0x0014}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x28de…28f2 Head {h00=0x0010, h01=0x0050, text=»DEAP7A PROC «, t00=0x001a, t01=0x0048}
0x28f2…290c Head {h00=0x0016, h01=0x0050, text=» IB DEBINW3,DEA71 «, t00=0x001a, t01=0x005c}
0x290c…2930 Head {h00=0x0020, h01=0x0050, text=» B DEANOK ILLEGAL APPL-VALUE«, t00=0x001a, t01=0x0076}
0x2930…293a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x293a…296e Head {h00=0x0030, h01=0x0050, text=»* APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE«, t00=0x001a, t01=0x00a4}
0x296e…29ae Head {h00=0x003c, h01=0x0050, text=»* BIN5 = <FC>,FUNCTION-CLASS «, t00=0x001a, t01=0x00d8}
0x29ae…29b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0118}
0x29b8…29c6 Head {h00=0x000a, h01=0x0050, text=»DEA71 «, t00=0x001a, t01=0x0122}
0x29c6…29fa Head {h00=0x0030, h01=0x0050, text=» CALL GETIND,DEVTYP,DEBIN1,DEBIN2 GET LENGTH«, t00=0x001a, t01=0x0130}
0x29fa…2a12 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W0 «, t00=0x001a, t01=0x0164}
0x2a12…2a20 Head {h00=0x000a, h01=0x0050, text=»DEA71A«, t00=0x001a, t01=0x017c}
0x2a20…2a3c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN2 «, t00=0x001a, t01=0x018a}
0x2a3c…2a6a Head {h00=0x002a, h01=0x0050, text=» MATCH DEVTYP,DEBIN3,W3,DEINPUT,W0,W3 «, t00=0x001b, t01=0x0016}
0x2a6a…2a7e Head {h00=0x0010, h01=0x0050, text=» BOK DEA71B «, t00=0x001b, t01=0x0044}
0x2a7e…2aa4 Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN2,W5 GET NEXT DEVICE«, t00=0x001b, t01=0x0058}
0x2aa4…2ad2 Head {h00=0x002a, h01=0x0050, text=» CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE «, t00=0x001b, t01=0x007e}
0x2ad2…2ae4 Head {h00=0x000e, h01=0x0050, text=» B DEA71A «, t00=0x001b, t01=0x00ac}
0x2ae4…2af2 Head {h00=0x000a, h01=0x0050, text=»DEA71B«, t00=0x001b, t01=0x00be}
0x2af2…2b1c Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN3,W3 ADJUST FOR FILECODE«, t00=0x001b, t01=0x00cc}
0x2b1c…2b52 Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN6,W1,W1,DEVTYP,DEBIN3 SAVE FILECODE «, t00=0x001b, t01=0x00f6}
0x2b52…2b78 Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN3,W1 ADJUST FOR <FC>«, t00=0x001b, t01=0x012c}
0x2b78…2baa Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN5,W1,W1,DEVTYP,DEBIN3 SAVE <FC> «, t00=0x001b, t01=0x0152}
0x2baa…2bbc Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x001b, t01=0x0184}
0x2bbc…2bca Head {h00=0x000a, h01=0x0050, text=»DEA71E«, t00=0x001c, t01=0x0008}
0x2bca…2bec Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W9 NOT FOUND«, t00=0x001c, t01=0x0016}
0x2bec…2bfe Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x001c, t01=0x0038}
0x2bfe…2c0c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x004a}
0x2c0c…2c1a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001c, t01=0x0058}
0x2c1a…2c24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0066}
0x2c24…2c3c Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x001c, t01=0x0070}
0x2c3c…2c46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0088}
0x2c46…2c58 Head {h00=0x000e, h01=0x0050, text=»F70ST FRMT«, t00=0x001c, t01=0x0092}
0x2c58…2c64 Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x001c, t01=0x00a4}
0x2c64…2c78 Head {h00=0x0010, h01=0x0050, text=» FTEXT '70 '«, t00=0x001c, t01=0x00b0}
0x2c78…2c98 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'CONVERSION' $$«, t00=0x001c, t01=0x00c4}
0x2c98…2ca4 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001c, t01=0x00e4}
0x2ca4…2cc0 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x001c, t01=0x00f0}
0x2cc0…2cec Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x001c, t01=0x010c}
0x2cec…2d04 Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x001c, t01=0x0138}
0x2d04…2d1e Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,F70OUT «, t00=0x001c, t01=0x0150}
0x2d1e…2d2a Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001c, t01=0x016a}
0x2d2a…2d3e Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001c, t01=0x0176}
0x2d3e…2d4c Head {h00=0x000a, h01=0x0050, text=»F70OUT«, t00=0x001c, t01=0x018a}
0x2d4c…2d5a Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x001d, t01=0x0008}
0x2d5a…2d6c Head {h00=0x000e, h01=0x0050, text=»F72ST FRMT«, t00=0x001d, t01=0x0016}
0x2d6c…2d78 Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x001d, t01=0x0028}
0x2d78…2d8c Head {h00=0x0010, h01=0x0050, text=» FLINK F71S «, t00=0x001d, t01=0x0034}
0x2d8c…2d98 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001d, t01=0x0048}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001d, t01=0x0054}
0x2dac…2db8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x0068}
0x2db8…2dce Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001d, t01=0x0074}
0x2dce…2dde Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001d, t01=0x008a}
0x2dde…2df4 Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001d, t01=0x009a}
0x2df4…2e0a Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001d, t01=0x00b0}
0x2e0a…2e18 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001d, t01=0x00c6}
0x2e18…2e2a Head {h00=0x000e, h01=0x0050, text=»F71ST FRMT«, t00=0x001d, t01=0x00d4}
0x2e2a…2e36 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001d, t01=0x00e6}
0x2e36…2e4a Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001d, t01=0x00f2}
0x2e4a…2e56 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001d, t01=0x0106}
0x2e56…2e6a Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001d, t01=0x0112}
0x2e6a…2e76 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x0126}
0x2e76…2e8c Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001d, t01=0x0132}
0x2e8c…2e9c Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001d, t01=0x0148}
0x2e9c…2eb2 Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001d, t01=0x0158}
0x2eb2…2ebe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x016e}
0x2ebe…2ed4 Head {h00=0x0012, h01=0x0050, text=» FLINK F72DEV «, t00=0x001d, t01=0x017a}
0x2ed4…2eea Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001d, t01=0x0190}
0x2eea…2ef8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0016}
0x2ef8…2f0a Head {h00=0x000e, h01=0x0050, text=»F71S FRMT «, t00=0x001e, t01=0x0024}
0x2f0a…2f1e Head {h00=0x0010, h01=0x0050, text=» FTEXT '71 '«, t00=0x001e, t01=0x0036}
0x2f1e…2f3c Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001e, t01=0x004a}
0x2f3c…2f50 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001e, t01=0x0068}
0x2f50…2f66 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'VIA'«, t00=0x001e, t01=0x007c}
0x2f66…2f7a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001e, t01=0x0092}
0x2f7a…2f96 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DATA COMM'«, t00=0x001e, t01=0x00a6}
0x2f96…2fa4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x00c2}
0x2fa4…2fb6 Head {h00=0x000e, h01=0x0050, text=»F72S FRMT «, t00=0x001e, t01=0x00d0}
0x2fb6…2fca Head {h00=0x0010, h01=0x0050, text=» FTEXT '71 '«, t00=0x001e, t01=0x00e2}
0x2fca…2fe8 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001e, t01=0x00f6}
0x2fe8…2ffc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001e, t01=0x0114}
0x2ffc…3012 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'TO' «, t00=0x001e, t01=0x0128}
0x3012…3026 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001e, t01=0x013e}
0x3026…3044 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'OTHER MEDIA'«, t00=0x001e, t01=0x0152}
0x3044…3052 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0170}
0x3052…3064 Head {h00=0x000e, h01=0x0050, text=»F73S FRMT «, t00=0x001e, t01=0x017e}
0x3064…3078 Head {h00=0x0010, h01=0x0050, text=» FTEXT '73 '«, t00=0x001e, t01=0x0190}
0x3078…3098 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'BATCH LINKING'«, t00=0x001f, t01=0x0014}
0x3098…30a6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0034}
0x30a6…30b8 Head {h00=0x000e, h01=0x0050, text=»F71UV FRMT«, t00=0x001f, t01=0x0042}
0x30b8…30d0 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x001f, t01=0x0054}
0x30d0…30e4 Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x001f, t01=0x006c}
0x30e4…3110 Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x001f, t01=0x0080}
0x3110…312a Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x001f, t01=0x00ac}
0x312a…313a Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001f, t01=0x00c6}
0x313a…3154 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x001f, t01=0x00d6}
0x3154…3168 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x001f, t01=0x00f0}
0x3168…3178 Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x001f, t01=0x0104}
0x3178…318c Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x001f, t01=0x0114}
0x318c…319a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0128}
0x319a…31ae Head {h00=0x0010, h01=0x0050, text=»F71JOB FRMT «, t00=0x001f, t01=0x0136}
0x31ae…31c4 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x001f, t01=0x014a}
0x31c4…31dc Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x001f, t01=0x0160}
0x31dc…31f0 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x001f, t01=0x0178}
0x31f0…322e Head {h00=0x003a, h01=0x0050, text=» FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1)«, t00=0x001f, t01=0x018c}
0x322e…3244 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0020, t01=0x003a}
0x3244…3252 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0050}
0x3252…3266 Head {h00=0x0010, h01=0x0050, text=»F71BAT FRMT «, t00=0x0020, t01=0x005e}
0x3266…327e Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x0020, t01=0x0072}
0x327e…3296 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0020, t01=0x008a}
0x3296…32aa Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0020, t01=0x00a2}
0x32aa…32ea Head {h00=0x003c, h01=0x0050, text=» FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) «, t00=0x0020, t01=0x00b6}
0x32ea…32fe Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0020, t01=0x00f6}
0x32fe…330c Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0020, t01=0x010a}
0x330c…3320 Head {h00=0x0010, h01=0x0050, text=»F71END FRMT «, t00=0x0020, t01=0x0118}
0x3320…332c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0020, t01=0x012c}
0x332c…333a Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0020, t01=0x0138}
0x333a…334e Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0020, t01=0x0146}
0x334e…335c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x015a}
0x335c…3370 Head {h00=0x0010, h01=0x0050, text=»F72DEV FRMT «, t00=0x0020, t01=0x0168}
0x3370…338a Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE '«, t00=0x0020, t01=0x017c}
0x338a…339e Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x0008}
0x339e…33d2 Head {h00=0x0030, h01=0x0050, text=» FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 «, t00=0x0021, t01=0x001c}
0x33d2…33ec Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x0021, t01=0x0050}
0x33ec…33fc Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0021, t01=0x006a}
0x33fc…3414 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x0021, t01=0x007a}
0x3414…3428 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x0021, t01=0x0092}
0x3428…3440 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0021, t01=0x00a6}
0x3440…3454 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x00be}
0x3454…3476 Head {h00=0x001e, h01=0x0050, text=» FKI 32,ALPHA,MAXL=6,NEOI «, t00=0x0021, t01=0x00d2}
0x3476…3490 Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W4) «, t00=0x0021, t01=0x00f4}
0x3490…349e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x010e}
0x349e…34b2 Head {h00=0x0010, h01=0x0050, text=»FFETCH FRMT «, t00=0x0021, t01=0x011c}
0x34b2…34be Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0021, t01=0x0130}
0x34be…34e0 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FETCHING FORMAT:' «, t00=0x0021, t01=0x013c}
0x34e0…34f6 Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x0021, t01=0x015e}
0x34f6…3512 Head {h00=0x0018, h01=0x0050, text=» FTEXT ' FROM DISC.'«, t00=0x0021, t01=0x0174}
0x3512…351e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0021, t01=0x0190}
0x351e…3532 Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x0022, t01=0x000c}
0x3532…3546 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0022, t01=0x0020}
0x3546…3554 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x0034}
0x3554…355e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0042}
0x355e…356a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0022, t01=0x004c}
0x356a…356e Head {h00=0x4004, h01=0x0000}
0x356e…3570 00 22 ┆ "┆
0x3570…3572 00 58 ┆ X┆
0x3572…357a (35, 1, 8) 20 04 00 00 00 23 00 04 ┆ # ┆
0x357a…35ca (36, 0, 400) 00 0c 00 50 4f 50 45 4e 55 53 30 43 00 0c 00 04 00 12 00 50 20 43 4c 45 41 52 20 42 4f 4f 4c 41 32 20 00 0c 00 14 00 0e 00 50 20 50 45 52 46 20 43 4f 4e 44 00 0c 00 2a 00 08 00 04 5c 52 45 54 00 0c 00 3c 00 0a 00 50 43 4c 4f 53 55 53 00 0c ┆ POPENUS0C P CLEAR BOOLA2 P PERF COND * RET < PCLOSUS ┆
0x35ca…361a 00 48 00 18 00 50 20 54 42 46 20 53 57 49 54 55 53 2c 43 4c 4f 53 55 53 30 31 00 0c 00 56 00 12 00 50 20 43 4c 45 41 52 20 53 57 49 54 55 53 20 00 0c 00 72 00 1e 00 50 20 53 55 42 20 46 43 4f 55 4e 54 45 52 28 46 49 4c 49 4e 44 55 53 29 2c ┆ H P TBF SWITUS,CLOSUS01 V P CLEAR SWITUS r P SUB FCOUNTER(FILINDUS),┆
0x361a…366a 57 31 00 0c 00 88 00 10 00 50 20 42 50 20 43 4c 4f 53 55 53 30 31 00 0c 00 aa 00 18 00 50 20 50 45 52 46 20 57 52 46 53 50 2c 46 49 4c 49 4e 44 55 53 00 0c 00 be 00 10 00 50 20 50 45 52 46 20 52 45 4c 45 41 53 00 0c 00 da 00 12 00 50 20 42 ┆W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P B┆
0x366a…36ba 4e 4f 4b 20 43 4c 4f 53 55 53 30 32 00 0c 00 ee 00 24 00 50 20 4d 4f 56 45 20 44 4b 42 49 4e 31 2c 46 49 4e 44 45 58 50 4f 28 46 49 4c 49 4e 44 55 53 29 20 00 0c 01 04 00 2a 00 50 20 50 45 52 46 20 44 45 50 4f 4f 4c 2c 57 36 2c 44 4b 42 49 ┆NOK CLOSUS02 $ P MOVE DKBIN1,FINDEXPO(FILINDUS) * P PERF DEPOOL,W6,DKBI┆
0x36ba…370a 4e 31 2c 44 4b 42 49 4e 32 2c 53 54 52 47 31 30 41 20 00 0c 01 2c 00 1a 00 50 20 50 45 52 46 20 44 49 53 55 2c 57 33 2c 57 31 2c 52 42 55 46 20 00 0c 01 5a 00 12 00 50 20 42 4e 4f 4b 20 43 4c 4f 53 55 53 30 32 00 0c 01 78 00 1c 00 50 20 58 ┆N1,DKBIN2,STRG10A , P PERF DISU,W3,W1,RBUF Z P BNOK CLOSUS02 x P X┆