|
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: 14062 (0x36ee)
Notes: pts_type(SC)
Names: »DE70ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE70ST.SC«
IDENT DE70ST REL 10.0 80-12-17 UPD 80-11-18/DALI UPD 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 * =-6 GET CURRENR RECORD AGAIN * * 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,CO7183 ERROR CBL DEBINW4,W8,CO7182 CBNE DEBINW4,W10,CO7184 CO7183 B ERRCO2 ERROR CO7182 CBNE DEBINW4,W4,GETC20 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 GETCUR CBNE DEBINW4,W6,CONVEA JUMP IF NOT GET CURRENT SET DOOL4 EXISTING DATA PERF DERECS,W5 GET CURRENT BNOK GETC10 CLEAR DOOL4 B CONVEA GETC10 CLEAR DOOL4 GETC20 B ERRCO2 ERRCO1 CBG DEBINW4,W0,ERRCO3 MUL DEBINW4,=W'-1' IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C CO7175,RETUBC,DELCUR B ERRCLR ERRCO3 PERF DERROR,DEKTABS MOVE DEBINW4,W0 ZEROIZE ERRORMESS IB DEBINW2,ERRCLR,CONVE4,RETUBC CLR CAN RET ERRCLR IB WORK(W7),CO716A,CO7186,GETCUR,CONVE3 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-12-17 «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-11-18/DALI«, t00=0x0000, t01=0x002c}
0x0044…0060 Head {h00=0x0018, h01=0x0050, text=» UPD 80-03-24/DALI«, t00=0x0000, t01=0x0048}
0x0060…0074 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0064}
0x0074…0082 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0078}
0x0082…0098 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE70ST «, t00=0x0000, t01=0x0086}
0x0098…00ae Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP7A «, t00=0x0000, t01=0x009c}
0x00ae…00b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e6 Head {h00=0x002a, h01=0x002a, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x00bc}
0x00e6…00f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…0104 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00f4}
0x0104…0118 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x0108}
0x0118…012c Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x011c}
0x012c…013e Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x0130}
0x013e…0168 Head {h00=0x0026, h01=0x0050, text=» EXT DEPMSK FETCH THE KEYSWITCHES «, t00=0x0000, t01=0x0142}
0x0168…0190 Head {h00=0x0024, h01=0x0050, text=» EXT OPCL OPEN/CLOSE FILEROUTINE«, t00=0x0000, t01=0x016c}
0x0190…01ba (1, 0, 398) Head {h00=0x0026, h01=0x0050, text=» EXT DECONV USER OR STANDARDCODED «, t00=0x0001, t01=0x0004}
0x01ba…01d8 Head {h00=0x001a, h01=0x0050, text=» CONVERSION ROUTINE «, t00=0x0001, t01=0x002e}
0x01d8…0202 Head {h00=0x0026, h01=0x0050, text=» EXT DELAST WRITE AND READ ON LAST«, t00=0x0001, t01=0x004c}
0x0202…021c Head {h00=0x0016, h01=0x0050, text=» ROW OF DISPLAY.«, t00=0x0001, t01=0x0076}
0x021c…0248 Head {h00=0x0028, h01=0x0050, text=» EXT DERROR WRITE AND READ A KEY ON «, t00=0x0001, t01=0x0090}
0x0248…026a Head {h00=0x001e, h01=0x0050, text=» LAST ROW OF THE DISPLAY«, t00=0x0001, t01=0x00bc}
0x026a…0288 Head {h00=0x001a, h01=0x0050, text=» EXT DEOPBC OPEN BATCH«, t00=0x0001, t01=0x00de}
0x0288…02a8 Head {h00=0x001c, h01=0x0050, text=» EXT DEPOOL POOLHANDLING«, t00=0x0001, t01=0x00fc}
0x02a8…02ce Head {h00=0x0022, h01=0x0050, text=» EXT DERECS READ RECORDROUTINE«, t00=0x0001, t01=0x011c}
0x02ce…02f4 Head {h00=0x0022, h01=0x0050, text=» EXT DEPRUT SET PROGRAMNUMBER «, t00=0x0001, t01=0x0142}
0x02f4…031e Head {h00=0x0026, h01=0x0050, text=» EXT ATTDB ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x0168}
0x031e…0340 (2, 0, 400) Head {h00=0x001e, h01=0x0050, text=» EXT DEDISC FILE HANDLING «, t00=0x0002, t01=0x0004}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x034a…036e Head {h00=0x0020, h01=0x0050, text=» EXT RESTOR RESTOR WORKBLOCK«, t00=0x0002, t01=0x0030}
0x036e…0390 Head {h00=0x001e, h01=0x0050, text=» AND DESCRIPTORADRESSES «, t00=0x0002, t01=0x0054}
0x0390…03a4 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0076}
0x03a4…03b8 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL«, t00=0x0002, t01=0x008a}
0x03b8…03cc Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0002, t01=0x009e}
0x03cc…03e0 Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0002, t01=0x00b2}
0x03e0…0408 Head {h00=0x0024, h01=0x0050, text=» EXT DEANOK NOT OK RET FROM APPL«, t00=0x0002, t01=0x00c6}
0x0408…042c Head {h00=0x0020, h01=0x0050, text=» EXT DEAOK0 OK RET FROM APPL«, t00=0x0002, t01=0x00ee}
0x042c…0436 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0112}
0x0436…044e Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x011c}
0x044e…045c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0134}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0142}
0x0466…04a8 Head {h00=0x003e, h01=0x0050, text=»* FOLLOWING DATAITEMS ARE USED FOR CONVERSION WITH DECONV «, t00=0x0002, t01=0x014c}
0x04a8…04dc Head {h00=0x0030, h01=0x0050, text=»* STSAVE(W3) HOLDING THE DEVICE-TYPE «, t00=0x0002, t01=0x018e}
0x04dc…050e Head {h00=0x002e, h01=0x0050, text=»* STSAVE(W4) HOLDING THE FILE-NAME «, t00=0x0003, t01=0x0032}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0544 Head {h00=0x0028, h01=0x0050, text=»* PERF DECONV,<FC1>,<FC2>,<RETCODE> «, t00=0x0003, t01=0x006e}
0x0544…054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009a}
0x054e…057a Head {h00=0x0028, h01=0x0050, text=»* <FC1> = 1 TRANSMIT «, t00=0x0003, t01=0x00a4}
0x057a…05a4 Head {h00=0x0026, h01=0x0050, text=»* = 2 RECEIVE«, t00=0x0003, t01=0x00d0}
0x05a4…05d6 Head {h00=0x002e, h01=0x0050, text=»* = 3 TO OTHER MEDIA «, t00=0x0003, t01=0x00fa}
0x05d6…0608 Head {h00=0x002e, h01=0x0050, text=»* <FC2> = 1 OPEN CONVERSION«, t00=0x0003, t01=0x012c}
0x0608…063e Head {h00=0x0032, h01=0x0050, text=»* = 2 BATCHHEAD ATTACHED «, t00=0x0003, t01=0x015e}
0x063e…0674 (4, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* = 3 DATARECORD ATTACHED«, t00=0x0004, t01=0x0004}
0x0674…06a8 Head {h00=0x0030, h01=0x0050, text=»* = 4 BALANCE ATTACHED «, t00=0x0004, t01=0x003a}
0x06a8…06dc Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE CONVERSION «, t00=0x0004, t01=0x006e}
0x06dc…0712 Head {h00=0x0032, h01=0x0050, text=»* <RETCODE> = 0 NO ERRORS DETECTED «, t00=0x0004, t01=0x00a2}
0x0712…0744 Head {h00=0x002e, h01=0x0050, text=»* /= 0 ERROR DETECTED «, t00=0x0004, t01=0x00d8}
0x0744…077a Head {h00=0x0032, h01=0x0050, text=»* > 0 WRITE ERROR MESSAGE«, t00=0x0004, t01=0x010a}
0x077a…07be Head {h00=0x0040, h01=0x0050, text=»* =-1 GET NEXT BATCH,WRITE ACCUMULATORS«, t00=0x0004, t01=0x0140}
0x07be…07f6 Head {h00=0x0034, h01=0x0050, text=»* =-2 MAKE BALANCE CURRENT «, t00=0x0004, t01=0x0184}
0x07f6…083a Head {h00=0x0040, h01=0x0050, text=»* =-3 GET CURRENT BATCH FROM BEGINNING «, t00=0x0005, t01=0x002c}
0x083a…0874 Head {h00=0x0036, h01=0x0050, text=»* =-4 RETURN FROM CONVERSION «, t00=0x0005, t01=0x0070}
0x0874…08ac Head {h00=0x0034, h01=0x0050, text=»* =-5 DELETE CURRENT BATCH «, t00=0x0005, t01=0x00aa}
0x08ac…08e8 Head {h00=0x0038, h01=0x0050, text=»* =-6 GET CURRENR RECORD AGAIN«, t00=0x0005, t01=0x00e2}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f2…092c Head {h00=0x0036, h01=0x0050, text=»* THE FORMAL PARAMETERS <FC1> AND <FC2> MAY NOT BE«, t00=0x0005, t01=0x0128}
0x092c…095a Head {h00=0x002a, h01=0x0050, text=»* UPDATED WITHIN THE DECONV PROCEDURE.«, t00=0x0005, t01=0x0162}
0x095a…0964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0190}
0x0964…0972 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x000a}
0x0972…09a8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x0018}
0x09a8…09dc Head {h00=0x0030, h01=0x0050, text=»* START OF CONVERSION. HANDLE PRORAMSCREEN- «, t00=0x0006, t01=0x004e}
0x09dc…0a04 Head {h00=0x0024, h01=0x0050, text=»* LAYOUTS 70,71 CONVERSION MODE.«, t00=0x0006, t01=0x0082}
0x0a04…0a34 Head {h00=0x002c, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN. «, t00=0x0006, t01=0x00aa}
0x0a34…0a6a Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x00da}
0x0a6a…0a7e Head {h00=0x0010, h01=0x0050, text=»DE70ST PROC «, t00=0x0006, t01=0x0110}
0x0a7e…0a9a Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,HEX00 «, t00=0x0006, t01=0x0124}
0x0a9a…0ab4 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x0006, t01=0x0140}
0x0ab4…0ae6 Head {h00=0x002e, h01=0x0050, text=» CBNE BIN2,W0,DEEN10 JUMP IF NOT PRNUM 70 «, t00=0x0006, t01=0x015a}
0x0ae6…0af4 Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0006, t01=0x018c}
0x0af4…0b1e Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0007, t01=0x000a}
0x0b1e…0b2c Head {h00=0x000a, h01=0x0050, text=»DEST10«, t00=0x0007, t01=0x0034}
0x0b2c…0b54 Head {h00=0x0024, h01=0x0050, text=» TBT BOOL2,DEST20 JUMP IF NOT 70«, t00=0x0007, t01=0x0042}
0x0b54…0b6a Head {h00=0x0012, h01=0x0050, text=» ATTFMT F70ST «, t00=0x0007, t01=0x006a}
0x0b6a…0b7c Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x0080}
0x0b7c…0b8a Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0007, t01=0x0092}
0x0b8a…0ba8 Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEST21,DEST22«, t00=0x0007, t01=0x00a0}
0x0ba8…0bc4 Head {h00=0x0018, h01=0x0050, text=»DEST21 PROGRAM 71 «, t00=0x0007, t01=0x00be}
0x0bc4…0bda Head {h00=0x0012, h01=0x0050, text=» ATTFMT F71ST «, t00=0x0007, t01=0x00da}
0x0bda…0bec Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x00f0}
0x0bec…0c08 Head {h00=0x0018, h01=0x0050, text=»DEST22 PROGRAM 72 «, t00=0x0007, t01=0x0102}
0x0c08…0c1e Head {h00=0x0012, h01=0x0050, text=» ATTFMT F72ST «, t00=0x0007, t01=0x011e}
0x0c1e…0c2c Head {h00=0x000a, h01=0x0050, text=»DEST30«, t00=0x0007, t01=0x0134}
0x0c2c…0c56 Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0007, t01=0x0142}
0x0c56…0c64 Head {h00=0x000a, h01=0x0050, text=»DEST50«, t00=0x0007, t01=0x016c}
0x0c64…0c7c Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0007, t01=0x017a}
0x0c7c…0c96 (8, 0, 400) Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST55 «, t00=0x0008, t01=0x0004}
0x0c96…0caa Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0008, t01=0x001e}
0x0caa…0cbc Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0008, t01=0x0032}
0x0cbc…0cca Head {h00=0x000a, h01=0x0050, text=»DEST55«, t00=0x0008, t01=0x0044}
0x0cca…0cde Head {h00=0x0010, h01=0x0050, text=» PERF DECLRS«, t00=0x0008, t01=0x0052}
0x0cde…0cec Head {h00=0x000a, h01=0x0050, text=»DEST60«, t00=0x0008, t01=0x0066}
0x0cec…0d20 Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT«, t00=0x0008, t01=0x0074}
0x0d20…0d38 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0008, t01=0x00a8}
0x0d38…0d46 Head {h00=0x000a, h01=0x0050, text=»DE70ER«, t00=0x0008, t01=0x00c0}
0x0d46…0d5a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0008, t01=0x00ce}
0x0d5a…0d6e Head {h00=0x0010, h01=0x0050, text=» BNZ D70ER2 «, t00=0x0008, t01=0x00e2}
0x0d6e…0d88 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,DEBINW4«, t00=0x0008, t01=0x00f6}
0x0d88…0d9e Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W4 «, t00=0x0008, t01=0x0110}
0x0d9e…0db8 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x0008, t01=0x0126}
0x0db8…0dc6 Head {h00=0x000a, h01=0x0050, text=»D70ER2«, t00=0x0008, t01=0x0140}
0x0dc6…0dd8 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0008, t01=0x014e}
0x0dd8…0dea Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0008, t01=0x0160}
0x0dea…0df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df4…0e10 Head {h00=0x0018, h01=0x0050, text=»* CANCEL-KEY PRESSED«, t00=0x0008, t01=0x017c}
0x0e10…0e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1a…0e28 Head {h00=0x000a, h01=0x0050, text=»DE70CA«, t00=0x0009, t01=0x0012}
0x0e28…0e40 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0009, t01=0x0020}
0x0e40…0e52 Head {h00=0x000e, h01=0x0050, text=» B DEST50 «, t00=0x0009, t01=0x0038}
0x0e52…0e5c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x004a}
0x0e5c…0e78 Head {h00=0x0018, h01=0x0050, text=»* RETURN-KEY PRESSED«, t00=0x0009, t01=0x0054}
0x0e78…0e82 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0070}
0x0e82…0e90 Head {h00=0x000a, h01=0x0050, text=»DE70RE«, t00=0x0009, t01=0x007a}
0x0e90…0ebe Head {h00=0x002a, h01=0x0050, text=» CLEAR DOOL3 DATAENTERING ON USERFILE «, t00=0x0009, t01=0x0088}
0x0ebe…0ee2 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0009, t01=0x00b6}
0x0ee2…0ef8 Head {h00=0x0012, h01=0x0050, text=» BNERR DERE20 «, t00=0x0009, t01=0x00da}
0x0ef8…0f10 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0009, t01=0x00f0}
0x0f10…0f2c Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0009, t01=0x0108}
0x0f2c…0f4e Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,DERE55,DERE55 «, t00=0x0009, t01=0x0124}
0x0f4e…0f5c Head {h00=0x000a, h01=0x0050, text=»DERE20«, t00=0x0009, t01=0x0146}
0x0f5c…0f88 Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,DERE50 IF SET NOT FRMT 70«, t00=0x0009, t01=0x0154}
0x0f88…0fb4 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,W1 RETURN FROM THIS MODE «, t00=0x0009, t01=0x0180}
0x0fb4…0fca Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x000a, t01=0x001c}
0x0fca…0fd8 Head {h00=0x000a, h01=0x0050, text=»DERE30«, t00=0x000a, t01=0x0032}
0x0fd8…0fe4 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000a, t01=0x0040}
0x0fe4…0ff2 Head {h00=0x000a, h01=0x0050, text=»DERE50«, t00=0x000a, t01=0x004c}
0x0ff2…1018 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL2 CHANGE TO FRMT 70«, t00=0x000a, t01=0x005a}
0x1018…102c Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x000a, t01=0x0080}
0x102c…1042 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W7 «, t00=0x000a, t01=0x0094}
0x1042…1058 Head {h00=0x0012, h01=0x0050, text=» MUL BIN1,W10 «, t00=0x000a, t01=0x00aa}
0x1058…1070 Head {h00=0x0014, h01=0x0050, text=» MOVE PRNUM,BIN1«, t00=0x000a, t01=0x00c0}
0x1070…107e Head {h00=0x000a, h01=0x0050, text=»DERE55«, t00=0x000a, t01=0x00d8}
0x107e…10a2 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x000a, t01=0x00e6}
0x10a2…10b6 Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x000a, t01=0x010a}
0x10b6…10c8 Head {h00=0x000e, h01=0x0050, text=» B DEST10 «, t00=0x000a, t01=0x011e}
0x10c8…10d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0130}
0x10d6…1104 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x013e}
0x1104…1136 Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE MAINLOOP IN CONVERSION MODE «, t00=0x000a, t01=0x016c}
0x1136…1164 Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x000b, t01=0x000e}
0x1164…1192 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000b, t01=0x003c}
0x1192…119c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x006a}
0x119c…11b8 Head {h00=0x0018, h01=0x0050, text=»* ENTER-KEY PRESSED «, t00=0x000b, t01=0x0074}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0090}
0x11c2…11d0 Head {h00=0x000a, h01=0x0050, text=»DE70EN«, t00=0x000b, t01=0x009a}
0x11d0…11ea Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEOPEN «, t00=0x000b, t01=0x00a8}
0x11ea…11f8 Head {h00=0x000a, h01=0x0050, text=»DEEN10«, t00=0x000b, t01=0x00c2}
0x11f8…1214 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W7,DERE30«, t00=0x000b, t01=0x00d0}
0x1214…1234 Head {h00=0x001c, h01=0x0050, text=» CLEAR BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x00ec}
0x1234…1252 Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEEN20,DEEN15«, t00=0x000b, t01=0x010c}
0x1252…1264 Head {h00=0x000e, h01=0x0050, text=» B DEST00 «, t00=0x000b, t01=0x012a}
0x1264…1272 Head {h00=0x000a, h01=0x0050, text=»DEEN15«, t00=0x000b, t01=0x013c}
0x1272…1290 Head {h00=0x001a, h01=0x0050, text=» SET BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x014a}
0x1290…129e Head {h00=0x000a, h01=0x0050, text=»DEEN20«, t00=0x000b, t01=0x0168}
0x129e…12b0 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000b, t01=0x0176}
0x12b0…12d4 Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL1 PART OF FORMAT «, t00=0x000b, t01=0x0188}
0x12d4…12e6 Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x000c, t01=0x001c}
0x12e6…12f4 Head {h00=0x000a, h01=0x0050, text=»DEOPEN«, t00=0x000c, t01=0x002e}
0x12f4…131a Head {h00=0x0022, h01=0x0050, text=» IB BIN2,DE71ST,DE72ST,DE73ST «, t00=0x000c, t01=0x003c}
0x131a…1328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0062}
0x1328…134a Head {h00=0x001e, h01=0x0050, text=»DE71ST START OF DATACOMM«, t00=0x000c, t01=0x0070}
0x134a…1358 Head {h00=0x000a, h01=0x0050, text=»DE72ST«, t00=0x000c, t01=0x0092}
0x1358…1386 Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W8),W0 USED FOR CHECKING OF«, t00=0x000c, t01=0x00a0}
0x1386…13a2 Head {h00=0x0018, h01=0x0050, text=» PART CONVERSION. «, t00=0x000c, t01=0x00ce}
0x13a2…13c4 Head {h00=0x001e, h01=0x0050, text=» 0 = THE WHOLE USERFILE «, t00=0x000c, t01=0x00ea}
0x13c4…13ea Head {h00=0x0022, h01=0x0050, text=» 1 = ALL BATCHES IN THIS JOB«, t00=0x000c, t01=0x010c}
0x13ea…140c Head {h00=0x001e, h01=0x0050, text=» 2 = THIS JOB,THIS BATCH«, t00=0x000c, t01=0x0132}
0x140c…1438 Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,JOBNAME LOOK IF JOBNAME«, t00=0x000c, t01=0x0154}
0x1438…1456 Head {h00=0x001a, h01=0x0050, text=» BNZ CO7110 NO JOBNAME«, t00=0x000c, t01=0x0180}
0x1456…1470 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W1 «, t00=0x000d, t01=0x000e}
0x1470…147e Head {h00=0x000a, h01=0x0050, text=»CO7110«, t00=0x000d, t01=0x0028}
0x147e…14aa Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,BATCH LOOK IF BATCHNAME«, t00=0x000d, t01=0x0036}
0x14aa…14ca Head {h00=0x001c, h01=0x0050, text=» BNZ CO7130 NO BATCHNAME«, t00=0x000d, t01=0x0062}
0x14ca…14ea Head {h00=0x001c, h01=0x0050, text=» CBE WORK(W8),W1,CO7120 «, t00=0x000d, t01=0x0082}
0x14ea…1516 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W5 JOBNAME NOT ENTERED«, t00=0x000d, t01=0x00a2}
0x1516…1532 Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,W2,DEBINW3«, t00=0x000d, t01=0x00ce}
0x1532…1544 Head {h00=0x000e, h01=0x0050, text=» B DE70ER «, t00=0x000d, t01=0x00ea}
0x1544…1552 Head {h00=0x000a, h01=0x0050, text=»CO7120«, t00=0x000d, t01=0x00fc}
0x1552…156c Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W2 «, t00=0x000d, t01=0x010a}
0x156c…157a Head {h00=0x000a, h01=0x0050, text=»CO7130«, t00=0x000d, t01=0x0124}
0x157a…159c Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7140,CO7150«, t00=0x000d, t01=0x0132}
0x159c…15bc Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W12,DEKTAB8«, t00=0x000d, t01=0x0154}
0x15bc…15ce Head {h00=0x000e, h01=0x0050, text=» B CO7145 «, t00=0x000d, t01=0x0174}
0x15ce…15dc Head {h00=0x000a, h01=0x0050, text=»CO7140«, t00=0x000d, t01=0x0186}
0x15dc…15fc (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W13,DEKTAB8«, t00=0x000e, t01=0x0004}
0x15fc…160a Head {h00=0x000a, h01=0x0050, text=»CO7145«, t00=0x000e, t01=0x0024}
0x160a…163c Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW2,W1,DE70CA JUMP ON CANCEL-KEY «, t00=0x000e, t01=0x0032}
0x163c…164a Head {h00=0x000a, h01=0x0050, text=»CO7150«, t00=0x000e, t01=0x0064}
0x164a…1662 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x000e, t01=0x0072}
0x1662…167e Head {h00=0x0018, h01=0x0050, text=» PERF DEOPBC,DEBINW2«, t00=0x000e, t01=0x008a}
0x167e…16ae Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER «, t00=0x000e, t01=0x00a6}
0x16ae…16bc Head {h00=0x000a, h01=0x0050, text=»CO7160«, t00=0x000e, t01=0x00d6}
0x16bc…16e2 Head {h00=0x0022, h01=0x0050, text=» SET SOOL2 IF SET LINE IS OPEN«, t00=0x000e, t01=0x00e4}
0x16e2…16f6 Head {h00=0x0010, h01=0x0050, text=» BNZ CO7161 «, t00=0x000e, t01=0x010a}
0x16f6…1704 Head {h00=0x000a, h01=0x0050, text=»CO716A«, t00=0x000e, t01=0x011e}
0x1704…1738 Head {h00=0x0030, h01=0x0050, text=» PERF DECONV,BIN5,W1,DEBINW4 OPEN CONVERSION«, t00=0x000e, t01=0x012c}
0x1738…175c Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W1 SAVE TYPE «, t00=0x000e, t01=0x0160}
0x175c…1788 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW4,W0,CO7161 JUMP IF OKEY «, t00=0x000e, t01=0x0184}
0x1788…17a8 Head {h00=0x001c, h01=0x0050, text=» B ERRCO1 JUMP ON ERROR «, t00=0x000f, t01=0x0020}
0x17a8…17b6 Head {h00=0x000a, h01=0x0050, text=»CO7161«, t00=0x000f, t01=0x0040}
0x17b6…17d8 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7170,CO7186«, t00=0x000f, t01=0x004e}
0x17d8…17f8 Head {h00=0x001c, h01=0x0050, text=»CO7162 SEND WHOLE FILE«, t00=0x000f, t01=0x0070}
0x17f8…1812 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x000f, t01=0x0090}
0x1812…183c Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W21 GET NEXT JOBNAME «, t00=0x000f, t01=0x00aa}
0x183c…1850 Head {h00=0x0010, h01=0x0050, text=» BOK CO7164 «, t00=0x000f, t01=0x00d4}
0x1850…1870 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 «, t00=0x000f, t01=0x00e8}
0x1870…1892 Head {h00=0x001e, h01=0x0050, text=» B RETUBC WHOLE FILE SEND «, t00=0x000f, t01=0x0108}
0x1892…18a0 Head {h00=0x000a, h01=0x0050, text=»CO7164«, t00=0x000f, t01=0x012a}
0x18a0…18d0 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x000f, t01=0x0138}
0x18d0…18de Head {h00=0x000a, h01=0x0050, text=»CO7166«, t00=0x000f, t01=0x0168}
0x18de…190c Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x000f, t01=0x0176}
0x190c…193a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0010, t01=0x0014}
0x193a…1948 Head {h00=0x000a, h01=0x0050, text=»CO7170«, t00=0x0010, t01=0x0042}
0x1948…1976 Head {h00=0x002a, h01=0x0050, text=» MOVE STSAVE(W4),BATCH SAVE BATCHNAME «, t00=0x0010, t01=0x0050}
0x1976…19a2 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN3,=W'34' GET NEXT BATCHNAME«, t00=0x0010, t01=0x007e}
0x19a2…19d6 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0010, t01=0x00aa}
0x19d6…19f0 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN3 «, t00=0x0010, t01=0x00de}
0x19f0…1a04 Head {h00=0x0010, h01=0x0050, text=» BOK CO7180 «, t00=0x0010, t01=0x00f8}
0x1a04…1a34 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 NOT 'NOT FOUND' «, t00=0x0010, t01=0x010c}
0x1a34…1a60 Head {h00=0x0028, h01=0x0050, text=» IB WORK(W8),RETUBC JUMP IF ONE JOB «, t00=0x0010, t01=0x013c}
0x1a60…1a7e Head {h00=0x001a, h01=0x0050, text=» B CO7162 GET NEXT JOB«, t00=0x0010, t01=0x0168}
0x1a7e…1a8c Head {h00=0x000a, h01=0x0050, text=»CO7175«, t00=0x0010, t01=0x0186}
0x1a8c…1aba (17, 0, 400) Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0011, t01=0x0004}
0x1aba…1ae8 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0011, t01=0x0032}
0x1ae8…1af6 Head {h00=0x000a, h01=0x0050, text=»CO7180«, t00=0x0011, t01=0x0060}
0x1af6…1b26 Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W3),W0 SET WANTED RECNO = 0«, t00=0x0011, t01=0x006e}
0x1b26…1b3e Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W11«, t00=0x0011, t01=0x009e}
0x1b3e…1b52 Head {h00=0x0010, h01=0x0050, text=» BOK CO7186 «, t00=0x0011, t01=0x00b6}
0x1b52…1b78 Head {h00=0x0022, h01=0x0050, text=» CBG DEBINW4,W11,CO7183 ERROR «, t00=0x0011, t01=0x00ca}
0x1b78…1b96 Head {h00=0x001a, h01=0x0050, text=» CBL DEBINW4,W8,CO7182«, t00=0x0011, t01=0x00f0}
0x1b96…1bb6 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W10,CO7184«, t00=0x0011, t01=0x010e}
0x1bb6…1bc4 Head {h00=0x000a, h01=0x0050, text=»CO7183«, t00=0x0011, t01=0x012e}
0x1bc4…1bdc Head {h00=0x0014, h01=0x0050, text=» B ERRCO2 ERROR «, t00=0x0011, t01=0x013c}
0x1bdc…1bea Head {h00=0x000a, h01=0x0050, text=»CO7182«, t00=0x0011, t01=0x0154}
0x1bea…1c0a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W4,GETC20 «, t00=0x0011, t01=0x0162}
0x1c0a…1c18 Head {h00=0x000a, h01=0x0050, text=»CO7184«, t00=0x0011, t01=0x0182}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7185,ERRCO2«, t00=0x0011, t01=0x0190}
0x1c3a…1c48 Head {h00=0x000a, h01=0x0050, text=»CO7185«, t00=0x0012, t01=0x0022}
0x1c48…1c68 Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0012, t01=0x0030}
0x1c68…1c76 Head {h00=0x000a, h01=0x0050, text=»CO7186«, t00=0x0012, t01=0x0050}
0x1c76…1c9a Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0012, t01=0x005e}
0x1c9a…1cae Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0012, t01=0x0082}
0x1cae…1ccc Head {h00=0x001a, h01=0x0050, text=» CBNE BIN3,W10,CONVNO «, t00=0x0012, t01=0x0096}
0x1ccc…1cfa Head {h00=0x002a, h01=0x0050, text=» IB WORK(W8),CO7166,RETUBC EMPTY BATCH«, t00=0x0012, t01=0x00b4}
0x1cfa…1d08 Head {h00=0x000a, h01=0x0050, text=»CONVNO«, t00=0x0012, t01=0x00e2}
0x1d08…1d40 Head {h00=0x0034, h01=0x0050, text=» CBNE NUMBER,=D'0',CONVE1 JUMP IF NOT BATCHHEAD «, t00=0x0012, t01=0x00f0}
0x1d40…1d4e Head {h00=0x000a, h01=0x0050, text=»CONVE0«, t00=0x0012, t01=0x0128}
0x1d4e…1d7c Head {h00=0x002a, h01=0x0050, text=» PERF DECONV,BIN5,W2,DEBINW4 BATCHHEAD«, t00=0x0012, t01=0x0136}
0x1d7c…1da0 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W2 SAVE TYPE «, t00=0x0012, t01=0x0164}
0x1da0…1dd0 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0012, t01=0x0188}
0x1dd0…1e06 Head {h00=0x0032, h01=0x0050, text=»CONVE1 MOVE DEBINW4,NUMBER CURRENT REC.NUMBER «, t00=0x0013, t01=0x0028}
0x1e06…1e3a Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST «, t00=0x0013, t01=0x005e}
0x1e3a…1e6e Head {h00=0x0030, h01=0x0050, text=» ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO «, t00=0x0013, t01=0x0092}
0x1e6e…1e96 Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W4 GET NEXT RECORD «, t00=0x0013, t01=0x00c6}
0x1e96…1ebc Head {h00=0x0022, h01=0x0050, text=» BNOK ERRCO2 JUMP IF NOT OKEY «, t00=0x0013, t01=0x00ee}
0x1ebc…1eca Head {h00=0x000a, h01=0x0050, text=»CONVEA«, t00=0x0013, t01=0x0114}
0x1eca…1efa Head {h00=0x002c, h01=0x0050, text=» PERF DECONV,BIN5,W3,DEBINW4 DATARECORD «, t00=0x0013, t01=0x0122}
0x1efa…1f1e Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W3 SAVE TYPE «, t00=0x0013, t01=0x0152}
0x1f1e…1f4e Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0013, t01=0x0176}
0x1f4e…1f60 Head {h00=0x000e, h01=0x0050, text=» B CONVE1 «, t00=0x0014, t01=0x0016}
0x1f60…1f6e Head {h00=0x000a, h01=0x0050, text=»CONVE2«, t00=0x0014, t01=0x0028}
0x1f6e…1f8a Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0014, t01=0x0036}
0x1f8a…1fc2 Head {h00=0x0034, h01=0x0050, text=» COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT«, t00=0x0014, t01=0x0052}
0x1fc2…1fe4 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W11)«, t00=0x0014, t01=0x008a}
0x1fe4…1ff2 Head {h00=0x000a, h01=0x0050, text=»CONVEF«, t00=0x0014, t01=0x00ac}
0x1ff2…2016 Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x0014, t01=0x00ba}
0x2016…202a Head {h00=0x0010, h01=0x0050, text=» BOK CONVE3 «, t00=0x0014, t01=0x00de}
0x202a…2058 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W13,ERRCO2 NO WORKSPACE «, t00=0x0014, t01=0x00f2}
0x2058…2086 Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,ERRCO2 NO CURR. FORMAT «, t00=0x0014, t01=0x0120}
0x2086…20b2 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN14,STRG10A«, t00=0x0014, t01=0x014e}
0x20b2…20dc Head {h00=0x0026, h01=0x0050, text=» ATTFMT FFETCH ATTACH DUMMYFORMAT «, t00=0x0014, t01=0x017a}
0x20dc…20f4 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0015, t01=0x0014}
0x20f4…2102 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0015, t01=0x002c}
0x2102…211c Head {h00=0x0016, h01=0x0050, text=» MOVE FORMAT,HEX00«, t00=0x0015, t01=0x003a}
0x211c…212e Head {h00=0x000e, h01=0x0050, text=» B CONVEF «, t00=0x0015, t01=0x0054}
0x212e…213c Head {h00=0x000a, h01=0x0050, text=»CONVE3«, t00=0x0015, t01=0x0066}
0x213c…216a Head {h00=0x002a, h01=0x0050, text=» MOVE FORMAT,FORTAB(W21) BALANCE NAME «, t00=0x0015, t01=0x0074}
0x216a…2192 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W6,W10«, t00=0x0015, t01=0x00a2}
0x2192…21b0 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,FLIND(W1) «, t00=0x0015, t01=0x00ca}
0x21b0…21cc Head {h00=0x0018, h01=0x0050, text=» ATTFMT BPOOL(BIN16)«, t00=0x0015, t01=0x00e8}
0x21cc…21da Head {h00=0x000a, h01=0x0050, text=»CONVEB«, t00=0x0015, t01=0x0104}
0x21da…2206 Head {h00=0x0028, h01=0x0050, text=» PERF DECONV,BIN5,W4,DEBINW4 BALANCE«, t00=0x0015, t01=0x0112}
0x2206…222a Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W4 SAVE TYPE «, t00=0x0015, t01=0x013e}
0x222a…224a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 «, t00=0x0015, t01=0x0162}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=»CONVE4«, t00=0x0015, t01=0x0182}
0x2258…228c Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0015, t01=0x0190}
0x228c…22aa Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,CONVEC «, t00=0x0016, t01=0x0034}
0x22aa…22c0 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0016, t01=0x0052}
0x22c0…22dc Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0016, t01=0x0068}
0x22dc…2308 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0016, t01=0x0084}
0x2308…231c Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0016, t01=0x00b0}
0x231c…232a Head {h00=0x000a, h01=0x0050, text=»CONVEC«, t00=0x0016, t01=0x00c4}
0x232a…2342 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0016, t01=0x00d2}
0x2342…2364 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CONVE5,RETUBC«, t00=0x0016, t01=0x00ea}
0x2364…2372 Head {h00=0x000a, h01=0x0050, text=»CONVE5«, t00=0x0016, t01=0x010c}
0x2372…2392 Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0016, t01=0x011a}
0x2392…23b8 Head {h00=0x0022, h01=0x0050, text=»DELCUR DELETE CURRENT BATCH «, t00=0x0016, t01=0x013a}
0x23b8…23ec Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0016, t01=0x0160}
0x23ec…2406 (23, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x0017, t01=0x0004}
0x2406…242e Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x0017, t01=0x001e}
0x242e…2442 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO1«, t00=0x0017, t01=0x0046}
0x2442…2460 Head {h00=0x001a, h01=0x0050, text=» MOVE BATCH,STSAVE(W4)«, t00=0x0017, t01=0x005a}
0x2460…2472 Head {h00=0x000e, h01=0x0050, text=» B CONVEC «, t00=0x0017, t01=0x0078}
0x2472…2480 Head {h00=0x000a, h01=0x0050, text=»GETCUR«, t00=0x0017, t01=0x008a}
0x2480…24b8 Head {h00=0x0034, h01=0x0050, text=» CBNE DEBINW4,W6,CONVEA JUMP IF NOT GET CURRENT «, t00=0x0017, t01=0x0098}
0x24b8…24d8 Head {h00=0x001c, h01=0x0050, text=» SET DOOL4 EXISTING DATA«, t00=0x0017, t01=0x00d0}
0x24d8…24fc Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0017, t01=0x00f0}
0x24fc…2510 Head {h00=0x0010, h01=0x0050, text=» BNOK GETC10«, t00=0x0017, t01=0x0114}
0x2510…2524 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0017, t01=0x0128}
0x2524…2536 Head {h00=0x000e, h01=0x0050, text=» B CONVEA «, t00=0x0017, t01=0x013c}
0x2536…2544 Head {h00=0x000a, h01=0x0050, text=»GETC10«, t00=0x0017, t01=0x014e}
0x2544…2558 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0017, t01=0x015c}
0x2558…2566 Head {h00=0x000a, h01=0x0050, text=»GETC20«, t00=0x0017, t01=0x0170}
0x2566…2578 Head {h00=0x000e, h01=0x0050, text=» B ERRCO2 «, t00=0x0017, t01=0x017e}
0x2578…2586 Head {h00=0x000a, h01=0x0050, text=»ERRCO1«, t00=0x0017, t01=0x0190}
0x2586…25a4 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW4,W0,ERRCO3«, t00=0x0018, t01=0x000e}
0x25a4…25c0 Head {h00=0x0018, h01=0x0050, text=» MUL DEBINW4,=W'-1' «, t00=0x0018, t01=0x002c}
0x25c0…25fe Head {h00=0x003a, h01=0x0050, text=» IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C«, t00=0x0018, t01=0x0048}
0x25fe…261c Head {h00=0x001a, h01=0x0050, text=» CO7175,RETUBC,DELCUR«, t00=0x0018, t01=0x0086}
0x261c…262e Head {h00=0x000e, h01=0x0050, text=» B ERRCLR «, t00=0x0018, t01=0x00a4}
0x262e…263c Head {h00=0x000a, h01=0x0050, text=»ERRCO3«, t00=0x0018, t01=0x00b6}
0x263c…2658 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0018, t01=0x00c4}
0x2658…2682 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W0 ZEROIZE ERRORMESS«, t00=0x0018, t01=0x00e0}
0x2682…26b6 Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,ERRCLR,CONVE4,RETUBC CLR CAN RET«, t00=0x0018, t01=0x010a}
0x26b6…26c4 Head {h00=0x000a, h01=0x0050, text=»ERRCLR«, t00=0x0018, t01=0x013e}
0x26c4…2706 Head {h00=0x003e, h01=0x0050, text=» IB WORK(W7),CO716A,CO7186,GETCUR,CONVE3 JUMP CLR DEP TYPE«, t00=0x0018, t01=0x014c}
0x2706…271a Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x0018, t01=0x018e}
0x271a…2728 Head {h00=0x000a, h01=0x0050, text=»ERRCO2«, t00=0x0019, t01=0x0012}
0x2728…2744 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0019, t01=0x0020}
0x2744…2766 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,ERRCO2,CONVE4 «, t00=0x0019, t01=0x003c}
0x2766…2774 Head {h00=0x000a, h01=0x0050, text=»RETUBC«, t00=0x0019, t01=0x005e}
0x2774…27a8 Head {h00=0x0030, h01=0x0050, text=»RETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0019, t01=0x006c}
0x27a8…27d8 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0019, t01=0x00a0}
0x27d8…2818 Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x0019, t01=0x00d0}
0x2818…283e Head {h00=0x0022, h01=0x0050, text=» WORKBLOCKS AND DESCRIPTORS «, t00=0x0019, t01=0x0110}
0x283e…285c Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,RETBC3 «, t00=0x0019, t01=0x0136}
0x285c…2872 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0019, t01=0x0154}
0x2872…288e Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0019, t01=0x016a}
0x288e…28ba Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0019, t01=0x0186}
0x28ba…28e8 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x001a, t01=0x0022}
0x28e8…28f6 Head {h00=0x000a, h01=0x0050, text=»RETBC3«, t00=0x001a, t01=0x0050}
0x28f6…291a Head {h00=0x0020, h01=0x0050, text=» CLEAR SOOL2 CONVERSION OPEN«, t00=0x001a, t01=0x005e}
0x291a…292c Head {h00=0x000e, h01=0x0050, text=» BZ RETBC4«, t00=0x001a, t01=0x0082}
0x292c…2950 Head {h00=0x0020, h01=0x0050, text=» PERF DECONV,BIN5,W5,DEBINW4«, t00=0x001a, t01=0x0094}
0x2950…295e Head {h00=0x000a, h01=0x0050, text=»RETBC4«, t00=0x001a, t01=0x00b8}
0x295e…2972 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x001a, t01=0x00c6}
0x2972…2996 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x001a, t01=0x00da}
0x2996…29ba Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x001a, t01=0x00fe}
0x29ba…29ce Head {h00=0x0010, h01=0x0050, text=» BOK DEST20 «, t00=0x001a, t01=0x0122}
0x29ce…29d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0136}
0x29d8…29e6 Head {h00=0x000a, h01=0x0050, text=»DE73ST«, t00=0x001a, t01=0x0140}
0x29e6…29f8 Head {h00=0x000e, h01=0x0050, text=» B DEST55 «, t00=0x001a, t01=0x014e}
0x29f8…2a06 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0160}
0x2a06…2a14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x016e}
0x2a14…2a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017c}
0x2a1e…2a48 Head {h00=0x0026, h01=0x0050, text=»* APPL-VALUE HANDLING ROUTINE «, t00=0x001a, t01=0x0186}
0x2a48…2a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a52…2a66 Head {h00=0x0010, h01=0x0050, text=»DEAP7A PROC «, t00=0x001b, t01=0x002a}
0x2a66…2a80 Head {h00=0x0016, h01=0x0050, text=» IB DEBINW3,DEA71 «, t00=0x001b, t01=0x003e}
0x2a80…2aa4 Head {h00=0x0020, h01=0x0050, text=» B DEANOK ILLEGAL APPL-VALUE«, t00=0x001b, t01=0x0058}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007c}
0x2aae…2ae2 Head {h00=0x0030, h01=0x0050, text=»* APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE«, t00=0x001b, t01=0x0086}
0x2ae2…2b22 Head {h00=0x003c, h01=0x0050, text=»* BIN5 = <FC>,FUNCTION-CLASS «, t00=0x001b, t01=0x00ba}
0x2b22…2b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fa}
0x2b2c…2b3a Head {h00=0x000a, h01=0x0050, text=»DEA71 «, t00=0x001b, t01=0x0104}
0x2b3a…2b6e Head {h00=0x0030, h01=0x0050, text=» CALL GETIND,DEVTYP,DEBIN1,DEBIN2 GET LENGTH«, t00=0x001b, t01=0x0112}
0x2b6e…2b86 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W0 «, t00=0x001b, t01=0x0146}
0x2b86…2b94 Head {h00=0x000a, h01=0x0050, text=»DEA71A«, t00=0x001b, t01=0x015e}
0x2b94…2bb0 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN2 «, t00=0x001b, t01=0x016c}
0x2bb0…2bde Head {h00=0x002a, h01=0x0050, text=» MATCH DEVTYP,DEBIN3,W3,DEINPUT,W0,W3 «, t00=0x001b, t01=0x0188}
0x2bde…2bf2 Head {h00=0x0010, h01=0x0050, text=» BOK DEA71B «, t00=0x001c, t01=0x0026}
0x2bf2…2c18 Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN2,W5 GET NEXT DEVICE«, t00=0x001c, t01=0x003a}
0x2c18…2c46 Head {h00=0x002a, h01=0x0050, text=» CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE «, t00=0x001c, t01=0x0060}
0x2c46…2c58 Head {h00=0x000e, h01=0x0050, text=» B DEA71A «, t00=0x001c, t01=0x008e}
0x2c58…2c66 Head {h00=0x000a, h01=0x0050, text=»DEA71B«, t00=0x001c, t01=0x00a0}
0x2c66…2c90 Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN3,W3 ADJUST FOR FILECODE«, t00=0x001c, t01=0x00ae}
0x2c90…2cc6 Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN6,W1,W1,DEVTYP,DEBIN3 SAVE FILECODE «, t00=0x001c, t01=0x00d8}
0x2cc6…2cec Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN3,W1 ADJUST FOR <FC>«, t00=0x001c, t01=0x010e}
0x2cec…2d1e Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN5,W1,W1,DEVTYP,DEBIN3 SAVE <FC> «, t00=0x001c, t01=0x0134}
0x2d1e…2d30 Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x001c, t01=0x0166}
0x2d30…2d3e Head {h00=0x000a, h01=0x0050, text=»DEA71E«, t00=0x001c, t01=0x0178}
0x2d3e…2d60 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W9 NOT FOUND«, t00=0x001c, t01=0x0186}
0x2d60…2d72 Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x001d, t01=0x0018}
0x2d72…2d80 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x002a}
0x2d80…2d8e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001d, t01=0x0038}
0x2d8e…2d98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0046}
0x2d98…2db0 Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x001d, t01=0x0050}
0x2db0…2dba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0068}
0x2dba…2dcc Head {h00=0x000e, h01=0x0050, text=»F70ST FRMT«, t00=0x001d, t01=0x0072}
0x2dcc…2dd8 Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x001d, t01=0x0084}
0x2dd8…2dec Head {h00=0x0010, h01=0x0050, text=» FTEXT '70 '«, t00=0x001d, t01=0x0090}
0x2dec…2e0c Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'CONVERSION' $$«, t00=0x001d, t01=0x00a4}
0x2e0c…2e18 Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001d, t01=0x00c4}
0x2e18…2e34 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x001d, t01=0x00d0}
0x2e34…2e60 Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x001d, t01=0x00ec}
0x2e60…2e78 Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x001d, t01=0x0118}
0x2e78…2e92 Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,F70OUT «, t00=0x001d, t01=0x0130}
0x2e92…2e9e Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001d, t01=0x014a}
0x2e9e…2eb2 Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001d, t01=0x0156}
0x2eb2…2ec0 Head {h00=0x000a, h01=0x0050, text=»F70OUT«, t00=0x001d, t01=0x016a}
0x2ec0…2ece Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x001d, t01=0x0178}
0x2ece…2ee0 Head {h00=0x000e, h01=0x0050, text=»F72ST FRMT«, t00=0x001d, t01=0x0186}
0x2ee0…2eec Head {h00=0x0008, h01=0x0004, text=» FSL«, t00=0x001e, t01=0x0008}
0x2eec…2f00 Head {h00=0x0010, h01=0x0050, text=» FLINK F71S «, t00=0x001e, t01=0x0014}
0x2f00…2f0c Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001e, t01=0x0028}
0x2f0c…2f20 Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001e, t01=0x0034}
0x2f20…2f2c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0048}
0x2f2c…2f42 Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001e, t01=0x0054}
0x2f42…2f52 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001e, t01=0x006a}
0x2f52…2f68 Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001e, t01=0x007a}
0x2f68…2f7e Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001e, t01=0x0090}
0x2f7e…2f8c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x00a6}
0x2f8c…2f9e Head {h00=0x000e, h01=0x0050, text=»F71ST FRMT«, t00=0x001e, t01=0x00b4}
0x2f9e…2faa Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001e, t01=0x00c6}
0x2faa…2fbe Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001e, t01=0x00d2}
0x2fbe…2fca Head {h00=0x0008, h01=0x0004, text=» FNL«, t00=0x001e, t01=0x00e6}
0x2fca…2fde Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001e, t01=0x00f2}
0x2fde…2fea Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0106}
0x2fea…3000 Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001e, t01=0x0112}
0x3000…3010 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001e, t01=0x0128}
0x3010…3026 Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001e, t01=0x0138}
0x3026…3032 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x014e}
0x3032…3048 Head {h00=0x0012, h01=0x0050, text=» FLINK F72DEV «, t00=0x001e, t01=0x015a}
0x3048…305e Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001e, t01=0x0170}
0x305e…306c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0186}
0x306c…307e (31, 0, 400) Head {h00=0x000e, h01=0x0050, text=»F71S FRMT «, t00=0x001f, t01=0x0004}
0x307e…3092 Head {h00=0x0010, h01=0x0050, text=» FTEXT '71 '«, t00=0x001f, t01=0x0016}
0x3092…30b0 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001f, t01=0x002a}
0x30b0…30c4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x0048}
0x30c4…30da Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'VIA'«, t00=0x001f, t01=0x005c}
0x30da…30ee Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x0072}
0x30ee…310a Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DATA COMM'«, t00=0x001f, t01=0x0086}
0x310a…3118 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x00a2}
0x3118…312a Head {h00=0x000e, h01=0x0050, text=»F72S FRMT «, t00=0x001f, t01=0x00b0}
0x312a…313e Head {h00=0x0010, h01=0x0050, text=» FTEXT '71 '«, t00=0x001f, t01=0x00c2}
0x313e…315c Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001f, t01=0x00d6}
0x315c…3170 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x00f4}
0x3170…3186 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'TO' «, t00=0x001f, t01=0x0108}
0x3186…319a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x011e}
0x319a…31b8 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'OTHER MEDIA'«, t00=0x001f, t01=0x0132}
0x31b8…31c6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0150}
0x31c6…31d8 Head {h00=0x000e, h01=0x0050, text=»F73S FRMT «, t00=0x001f, t01=0x015e}
0x31d8…31ec Head {h00=0x0010, h01=0x0050, text=» FTEXT '73 '«, t00=0x001f, t01=0x0170}
0x31ec…320c Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'BATCH LINKING'«, t00=0x001f, t01=0x0184}
0x320c…321a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0014}
0x321a…322c Head {h00=0x000e, h01=0x0050, text=»F71UV FRMT«, t00=0x0020, t01=0x0022}
0x322c…3244 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x0020, t01=0x0034}
0x3244…3258 Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x0020, t01=0x004c}
0x3258…3284 Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x0020, t01=0x0060}
0x3284…329e Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x0020, t01=0x008c}
0x329e…32ae Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0020, t01=0x00a6}
0x32ae…32c8 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x0020, t01=0x00b6}
0x32c8…32dc Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0020, t01=0x00d0}
0x32dc…32ec Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x0020, t01=0x00e4}
0x32ec…3300 Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x0020, t01=0x00f4}
0x3300…330e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0108}
0x330e…3322 Head {h00=0x0010, h01=0x0050, text=»F71JOB FRMT «, t00=0x0020, t01=0x0116}
0x3322…3338 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x0020, t01=0x012a}
0x3338…3350 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0020, t01=0x0140}
0x3350…3364 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0020, t01=0x0158}
0x3364…33a2 Head {h00=0x003a, h01=0x0050, text=» FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1)«, t00=0x0020, t01=0x016c}
0x33a2…33b8 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0021, t01=0x001a}
0x33b8…33c6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x0030}
0x33c6…33da Head {h00=0x0010, h01=0x0050, text=»F71BAT FRMT «, t00=0x0021, t01=0x003e}
0x33da…33f2 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x0021, t01=0x0052}
0x33f2…340a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0021, t01=0x006a}
0x340a…341e Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x0082}
0x341e…345e Head {h00=0x003c, h01=0x0050, text=» FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) «, t00=0x0021, t01=0x0096}
0x345e…3472 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0021, t01=0x00d6}
0x3472…3480 Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0021, t01=0x00ea}
0x3480…3494 Head {h00=0x0010, h01=0x0050, text=»F71END FRMT «, t00=0x0021, t01=0x00f8}
0x3494…34a0 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0021, t01=0x010c}
0x34a0…34ae Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0021, t01=0x0118}
0x34ae…34c2 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0021, t01=0x0126}
0x34c2…34d0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x013a}
0x34d0…34e4 Head {h00=0x0010, h01=0x0050, text=»F72DEV FRMT «, t00=0x0021, t01=0x0148}
0x34e4…34fe Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE '«, t00=0x0021, t01=0x015c}
0x34fe…3512 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x0176}
0x3512…3546 Head {h00=0x0030, h01=0x0050, text=» FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 «, t00=0x0021, t01=0x018a}
0x3546…3560 Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x0022, t01=0x002e}
0x3560…3570 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0022, t01=0x0048}
0x3570…3588 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x0022, t01=0x0058}
0x3588…359c Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x0022, t01=0x0070}
0x359c…35b4 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0022, t01=0x0084}
0x35b4…35c8 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0022, t01=0x009c}
0x35c8…35ea Head {h00=0x001e, h01=0x0050, text=» FKI 32,ALPHA,MAXL=6,NEOI «, t00=0x0022, t01=0x00b0}
0x35ea…3604 Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W4) «, t00=0x0022, t01=0x00d2}
0x3604…3612 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x00ec}
0x3612…3626 Head {h00=0x0010, h01=0x0050, text=»FFETCH FRMT «, t00=0x0022, t01=0x00fa}
0x3626…3632 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0022, t01=0x010e}
0x3632…3654 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FETCHING FORMAT:' «, t00=0x0022, t01=0x011a}
0x3654…366a Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x0022, t01=0x013c}
0x366a…3686 Head {h00=0x0018, h01=0x0050, text=» FTEXT ' FROM DISC.'«, t00=0x0022, t01=0x0152}
0x3686…3692 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0022, t01=0x016e}
0x3692…36a6 Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x0022, t01=0x017a}
0x36a6…36ba Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0022, t01=0x018e}
0x36ba…36c8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x0012}
0x36c8…36d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0020}
0x36d2…36de Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0023, t01=0x002a}
0x36de…36e2 Head {h00=0x4004, h01=0x0000}
0x36e2…36e6 00 23 00 36 ┆ # 6┆
0x36e6…36ee (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆