|
|
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: 17330 (0x43b2)
Notes: pts_type(SC)
Names: »DE70ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE70ST.SC«
IDENT DE70ST REL 10.0 82-02-24/ERVR 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 F71S ERVR FNL ERVR FLINK F72S F70OUT FMEND F71ST FRMT FSL FLINK F71S FNL FLINK F71UV FNL FLINK F71JOB FTAB 20 FLINK F71BAT FNL FLINK F71DEV ERVR FLINK F71END FMEND F72ST 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 '72 ' 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 F71DEV FRMT ERVR FCOPY =C'DEVICE ' FILLR ':',1 FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 FCOPY STSAVE(W3) FNL FTEXT =C'BRUGERNAVN' FKI 12,MINL=1,MAXL=12,ME FMEL 'AAAAAAAAAAAA9',BCDI21(W7) FNL FTEXT =C'KENDEORD' FKI 12,MINL=1,MAXL=4,ME FMEL 'TTT9',BCDI21(W6) FMEND ERVR 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=8,NEOI FCOPY STR8B FMEND FFETCH FRMT FSL FTEXT 'FETCHING FORMAT:' FCOPY DEINPUT FTEXT ' FROM DISC.' FNL FKI 1,ALPHA FCOPY HEX00 FMEND * END
0x0000…002c (0, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IDENT DE70ST REL 10.0 82-02-24/ERVR«, t00=0x0000, t01=0x0004}
0x002c…0048 Head {h00=0x0018, h01=0x0050, text=» UPD 80-11-18/DALI«, t00=0x0000, t01=0x0030}
0x0048…0064 Head {h00=0x0018, h01=0x0050, text=» UPD 80-03-24/DALI«, t00=0x0000, t01=0x004c}
0x0064…0078 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0068}
0x0078…0086 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x007c}
0x0086…009c Head {h00=0x0012, h01=0x0050, text=» ENTRY DE70ST «, t00=0x0000, t01=0x008a}
0x009c…00b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY DEAP7A «, t00=0x0000, t01=0x00a0}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00ea Head {h00=0x002a, h01=0x0050, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x00c0}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…0108 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00f8}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x010c}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x0120}
0x0130…0142 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x0134}
0x0142…016c Head {h00=0x0026, h01=0x0050, text=» EXT DEPMSK FETCH THE KEYSWITCHES «, t00=0x0000, t01=0x0146}
0x016c…0194 Head {h00=0x0024, h01=0x0050, text=» EXT OPCL OPEN/CLOSE FILEROUTINE«, t00=0x0000, t01=0x0170}
0x0194…01be Head {h00=0x0026, h01=0x0050, text=» EXT DECONV USER OR STANDARDCODED «, t00=0x0001, t01=0x0008}
0x01be…01dc Head {h00=0x001a, h01=0x0050, text=» CONVERSION ROUTINE «, t00=0x0001, t01=0x0032}
0x01dc…0206 Head {h00=0x0026, h01=0x0050, text=» EXT DELAST WRITE AND READ ON LAST«, t00=0x0001, t01=0x0050}
0x0206…0220 Head {h00=0x0016, h01=0x0050, text=» ROW OF DISPLAY.«, t00=0x0001, t01=0x007a}
0x0220…024c Head {h00=0x0028, h01=0x0050, text=» EXT DERROR WRITE AND READ A KEY ON «, t00=0x0001, t01=0x0094}
0x024c…026e Head {h00=0x001e, h01=0x0050, text=» LAST ROW OF THE DISPLAY«, t00=0x0001, t01=0x00c0}
0x026e…028c Head {h00=0x001a, h01=0x0050, text=» EXT DEOPBC OPEN BATCH«, t00=0x0001, t01=0x00e2}
0x028c…02ac Head {h00=0x001c, h01=0x0050, text=» EXT DEPOOL POOLHANDLING«, t00=0x0001, t01=0x0100}
0x02ac…02d2 Head {h00=0x0022, h01=0x0050, text=» EXT DERECS READ RECORDROUTINE«, t00=0x0001, t01=0x0120}
0x02d2…02f8 Head {h00=0x0022, h01=0x0050, text=» EXT DEPRUT SET PROGRAMNUMBER «, t00=0x0001, t01=0x0146}
0x02f8…0322 Head {h00=0x0026, h01=0x0050, text=» EXT ATTDB ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x016c}
0x0322…0344 Head {h00=0x001e, h01=0x0050, text=» EXT DEDISC FILE HANDLING «, t00=0x0002, t01=0x0008}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x034e…0372 Head {h00=0x0020, h01=0x0050, text=» EXT RESTOR RESTOR WORKBLOCK«, t00=0x0002, t01=0x0034}
0x0372…0394 Head {h00=0x001e, h01=0x0050, text=» AND DESCRIPTORADRESSES «, t00=0x0002, t01=0x0058}
0x0394…03a8 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x007a}
0x03a8…03bc Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL«, t00=0x0002, t01=0x008e}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0002, t01=0x00a2}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0002, t01=0x00b6}
0x03e4…040c Head {h00=0x0024, h01=0x0050, text=» EXT DEANOK NOT OK RET FROM APPL«, t00=0x0002, t01=0x00ca}
0x040c…0430 Head {h00=0x0020, h01=0x0050, text=» EXT DEAOK0 OK RET FROM APPL«, t00=0x0002, t01=0x00f2}
0x0430…043a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043a…0452 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x0120}
0x0452…0460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0138}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x046a…04ac Head {h00=0x003e, h01=0x0050, text=»* FOLLOWING DATAITEMS ARE USED FOR CONVERSION WITH DECONV «, t00=0x0002, t01=0x0150}
0x04ac…04e0 (3, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* STSAVE(W3) HOLDING THE DEVICE-TYPE «, t00=0x0003, t01=0x0004}
0x04e0…0512 Head {h00=0x002e, h01=0x0050, text=»* STSAVE(W4) HOLDING THE FILE-NAME «, t00=0x0003, t01=0x0038}
0x0512…051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x051c…0548 Head {h00=0x0028, h01=0x0050, text=»* PERF DECONV,<FC1>,<FC2>,<RETCODE> «, t00=0x0003, t01=0x0074}
0x0548…0552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0552…057e Head {h00=0x0028, h01=0x0050, text=»* <FC1> = 1 TRANSMIT «, t00=0x0003, t01=0x00aa}
0x057e…05a8 Head {h00=0x0026, h01=0x0050, text=»* = 2 RECEIVE«, t00=0x0003, t01=0x00d6}
0x05a8…05da Head {h00=0x002e, h01=0x0050, text=»* = 3 TO OTHER MEDIA «, t00=0x0003, t01=0x0100}
0x05da…060c Head {h00=0x002e, h01=0x0050, text=»* <FC2> = 1 OPEN CONVERSION«, t00=0x0003, t01=0x0132}
0x060c…0642 Head {h00=0x0032, h01=0x0050, text=»* = 2 BATCHHEAD ATTACHED «, t00=0x0003, t01=0x0164}
0x0642…0678 Head {h00=0x0032, h01=0x0050, text=»* = 3 DATARECORD ATTACHED«, t00=0x0004, t01=0x000a}
0x0678…06ac Head {h00=0x0030, h01=0x0050, text=»* = 4 BALANCE ATTACHED «, t00=0x0004, t01=0x0040}
0x06ac…06e0 Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE CONVERSION «, t00=0x0004, t01=0x0074}
0x06e0…0716 Head {h00=0x0032, h01=0x0050, text=»* <RETCODE> = 0 NO ERRORS DETECTED «, t00=0x0004, t01=0x00a8}
0x0716…0748 Head {h00=0x002e, h01=0x0050, text=»* /= 0 ERROR DETECTED «, t00=0x0004, t01=0x00de}
0x0748…077e Head {h00=0x0032, h01=0x0050, text=»* > 0 WRITE ERROR MESSAGE«, t00=0x0004, t01=0x0110}
0x077e…07c2 Head {h00=0x0040, h01=0x0050, text=»* =-1 GET NEXT BATCH,WRITE ACCUMULATORS«, t00=0x0004, t01=0x0146}
0x07c2…07fa Head {h00=0x0034, h01=0x0050, text=»* =-2 MAKE BALANCE CURRENT «, t00=0x0004, t01=0x018a}
0x07fa…083e Head {h00=0x0040, h01=0x0050, text=»* =-3 GET CURRENT BATCH FROM BEGINNING «, t00=0x0005, t01=0x0032}
0x083e…0878 Head {h00=0x0036, h01=0x0050, text=»* =-4 RETURN FROM CONVERSION «, t00=0x0005, t01=0x0076}
0x0878…08b0 Head {h00=0x0034, h01=0x0050, text=»* =-5 DELETE CURRENT BATCH «, t00=0x0005, t01=0x00b0}
0x08b0…08ec Head {h00=0x0038, h01=0x0050, text=»* =-6 GET CURRENR RECORD AGAIN«, t00=0x0005, t01=0x00e8}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f6…0930 Head {h00=0x0036, h01=0x0050, text=»* THE FORMAL PARAMETERS <FC1> AND <FC2> MAY NOT BE«, t00=0x0005, t01=0x012e}
0x0930…095e Head {h00=0x002a, h01=0x0050, text=»* UPDATED WITHIN THE DECONV PROCEDURE.«, t00=0x0005, t01=0x0168}
0x095e…0968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x0968…0976 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0012}
0x0976…09ac Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x0020}
0x09ac…09e0 Head {h00=0x0030, h01=0x0050, text=»* START OF CONVERSION. HANDLE PRORAMSCREEN- «, t00=0x0006, t01=0x0056}
0x09e0…0a08 Head {h00=0x0024, h01=0x0050, text=»* LAYOUTS 70,71 CONVERSION MODE.«, t00=0x0006, t01=0x008a}
0x0a08…0a38 Head {h00=0x002c, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN. «, t00=0x0006, t01=0x00b2}
0x0a38…0a6e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x00e2}
0x0a6e…0a82 Head {h00=0x0010, h01=0x0050, text=»DE70ST PROC «, t00=0x0006, t01=0x0118}
0x0a82…0a9e Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,HEX00 «, t00=0x0006, t01=0x012c}
0x0a9e…0ab8 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x0006, t01=0x0148}
0x0ab8…0aea Head {h00=0x002e, h01=0x0050, text=» CBNE BIN2,W0,DEEN10 JUMP IF NOT PRNUM 70 «, t00=0x0006, t01=0x0162}
0x0aea…0af8 (7, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DEST00«, t00=0x0007, t01=0x0004}
0x0af8…0b22 Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 PART OF FORMAT DISPLAY «, t00=0x0007, t01=0x0012}
0x0b22…0b30 Head {h00=0x000a, h01=0x0050, text=»DEST10«, t00=0x0007, t01=0x003c}
0x0b30…0b58 Head {h00=0x0024, h01=0x0050, text=» TBT BOOL2,DEST20 JUMP IF NOT 70«, t00=0x0007, t01=0x004a}
0x0b58…0b6e Head {h00=0x0012, h01=0x0050, text=» ATTFMT F70ST «, t00=0x0007, t01=0x0072}
0x0b6e…0b80 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x0088}
0x0b80…0b8e Head {h00=0x000a, h01=0x0050, text=»DEST20«, t00=0x0007, t01=0x009a}
0x0b8e…0bac Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEST21,DEST22«, t00=0x0007, t01=0x00a8}
0x0bac…0bc8 Head {h00=0x0018, h01=0x0050, text=»DEST21 PROGRAM 71 «, t00=0x0007, t01=0x00c6}
0x0bc8…0bde Head {h00=0x0012, h01=0x0050, text=» ATTFMT F71ST «, t00=0x0007, t01=0x00e2}
0x0bde…0bf0 Head {h00=0x000e, h01=0x0050, text=» B DEST30 «, t00=0x0007, t01=0x00f8}
0x0bf0…0c0c Head {h00=0x0018, h01=0x0050, text=»DEST22 PROGRAM 72 «, t00=0x0007, t01=0x010a}
0x0c0c…0c22 Head {h00=0x0012, h01=0x0050, text=» ATTFMT F72ST «, t00=0x0007, t01=0x0126}
0x0c22…0c30 Head {h00=0x000a, h01=0x0050, text=»DEST30«, t00=0x0007, t01=0x013c}
0x0c30…0c5a Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT PROMPT-TEXTS DISPLAY«, t00=0x0007, t01=0x014a}
0x0c5a…0c68 Head {h00=0x000a, h01=0x0050, text=»DEST50«, t00=0x0007, t01=0x0174}
0x0c68…0c80 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0007, t01=0x0182}
0x0c80…0c9a Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEST55 «, t00=0x0008, t01=0x000a}
0x0c9a…0cae Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0008, t01=0x0024}
0x0cae…0cc0 Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0008, t01=0x0038}
0x0cc0…0cce Head {h00=0x000a, h01=0x0050, text=»DEST55«, t00=0x0008, t01=0x004a}
0x0cce…0ce2 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRS«, t00=0x0008, t01=0x0058}
0x0ce2…0cf0 Head {h00=0x000a, h01=0x0050, text=»DEST60«, t00=0x0008, t01=0x006c}
0x0cf0…0d24 Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT«, t00=0x0008, t01=0x007a}
0x0d24…0d3c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0008, t01=0x00ae}
0x0d3c…0d4a Head {h00=0x000a, h01=0x0050, text=»DE70ER«, t00=0x0008, t01=0x00c6}
0x0d4a…0d5e Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0008, t01=0x00d4}
0x0d5e…0d72 Head {h00=0x0010, h01=0x0050, text=» BNZ D70ER2 «, t00=0x0008, t01=0x00e8}
0x0d72…0d8c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,DEBINW4«, t00=0x0008, t01=0x00fc}
0x0d8c…0da2 Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W4 «, t00=0x0008, t01=0x0116}
0x0da2…0dbc Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x0008, t01=0x012c}
0x0dbc…0dca Head {h00=0x000a, h01=0x0050, text=»D70ER2«, t00=0x0008, t01=0x0146}
0x0dca…0ddc Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0008, t01=0x0154}
0x0ddc…0dee Head {h00=0x000e, h01=0x0050, text=» B DEST60 «, t00=0x0008, t01=0x0166}
0x0dee…0df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0178}
0x0df8…0e14 Head {h00=0x0018, h01=0x0050, text=»* CANCEL-KEY PRESSED«, t00=0x0008, t01=0x0182}
0x0e14…0e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e1e…0e2c Head {h00=0x000a, h01=0x0050, text=»DE70CA«, t00=0x0009, t01=0x0018}
0x0e2c…0e44 Head {h00=0x0014, h01=0x0050, text=» CLEAR DEPROMPT «, t00=0x0009, t01=0x0026}
0x0e44…0e56 Head {h00=0x000e, h01=0x0050, text=» B DEST50 «, t00=0x0009, t01=0x003e}
0x0e56…0e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e60…0e7c Head {h00=0x0018, h01=0x0050, text=»* RETURN-KEY PRESSED«, t00=0x0009, t01=0x005a}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e86…0e94 Head {h00=0x000a, h01=0x0050, text=»DE70RE«, t00=0x0009, t01=0x0080}
0x0e94…0ec2 Head {h00=0x002a, h01=0x0050, text=» CLEAR DOOL3 DATAENTERING ON USERFILE «, t00=0x0009, t01=0x008e}
0x0ec2…0ee6 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0009, t01=0x00bc}
0x0ee6…0efc Head {h00=0x0012, h01=0x0050, text=» BNERR DERE20 «, t00=0x0009, t01=0x00e0}
0x0efc…0f14 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0009, t01=0x00f6}
0x0f14…0f30 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0009, t01=0x010e}
0x0f30…0f52 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,DERE55,DERE55 «, t00=0x0009, t01=0x012a}
0x0f52…0f60 Head {h00=0x000a, h01=0x0050, text=»DERE20«, t00=0x0009, t01=0x014c}
0x0f60…0f8c Head {h00=0x0028, h01=0x0050, text=» TBT BOOL2,DERE50 IF SET NOT FRMT 70«, t00=0x0009, t01=0x015a}
0x0f8c…0fb8 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,W1 RETURN FROM THIS MODE «, t00=0x0009, t01=0x0186}
0x0fb8…0fce Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x000a, t01=0x0022}
0x0fce…0fdc Head {h00=0x000a, h01=0x0050, text=»DERE30«, t00=0x000a, t01=0x0038}
0x0fdc…0fe8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0046}
0x0fe8…0ff6 Head {h00=0x000a, h01=0x0050, text=»DERE50«, t00=0x000a, t01=0x0052}
0x0ff6…101c Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL2 CHANGE TO FRMT 70«, t00=0x000a, t01=0x0060}
0x101c…1030 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x000a, t01=0x0086}
0x1030…1046 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W7 «, t00=0x000a, t01=0x009a}
0x1046…105c Head {h00=0x0012, h01=0x0050, text=» MUL BIN1,W10 «, t00=0x000a, t01=0x00b0}
0x105c…1074 Head {h00=0x0014, h01=0x0050, text=» MOVE PRNUM,BIN1«, t00=0x000a, t01=0x00c6}
0x1074…1082 Head {h00=0x000a, h01=0x0050, text=»DERE55«, t00=0x000a, t01=0x00de}
0x1082…10a6 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x000a, t01=0x00ec}
0x10a6…10ba Head {h00=0x0010, h01=0x0050, text=» PERF DEPMSK«, t00=0x000a, t01=0x0110}
0x10ba…10cc Head {h00=0x000e, h01=0x0050, text=» B DEST10 «, t00=0x000a, t01=0x0124}
0x10cc…10da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0136}
0x10da…1108 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x0144}
0x1108…113a Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE MAINLOOP IN CONVERSION MODE «, t00=0x000a, t01=0x0172}
0x113a…1168 Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x000b, t01=0x0014}
0x1168…1196 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000b, t01=0x0042}
0x1196…11a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0070}
0x11a0…11bc Head {h00=0x0018, h01=0x0050, text=»* ENTER-KEY PRESSED «, t00=0x000b, t01=0x007a}
0x11bc…11c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11c6…11d4 Head {h00=0x000a, h01=0x0050, text=»DE70EN«, t00=0x000b, t01=0x00a0}
0x11d4…11ee Head {h00=0x0016, h01=0x0050, text=» TBT BOOL2,DEOPEN «, t00=0x000b, t01=0x00ae}
0x11ee…11fc Head {h00=0x000a, h01=0x0050, text=»DEEN10«, t00=0x000b, t01=0x00c8}
0x11fc…1218 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN1,W7,DERE30«, t00=0x000b, t01=0x00d6}
0x1218…1238 Head {h00=0x001c, h01=0x0050, text=» CLEAR BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x00f2}
0x1238…1256 Head {h00=0x001a, h01=0x0050, text=» IB BIN2,DEEN20,DEEN15«, t00=0x000b, t01=0x0112}
0x1256…1268 Head {h00=0x000e, h01=0x0050, text=» B DEST00 «, t00=0x000b, t01=0x0130}
0x1268…1276 Head {h00=0x000a, h01=0x0050, text=»DEEN15«, t00=0x000b, t01=0x0142}
0x1276…1294 Head {h00=0x001a, h01=0x0050, text=» SET BOOL3 PROGRAM 72 «, t00=0x000b, t01=0x0150}
0x1294…12a2 Head {h00=0x000a, h01=0x0050, text=»DEEN20«, t00=0x000b, t01=0x016e}
0x12a2…12b4 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000b, t01=0x017c}
0x12b4…12d8 Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL1 PART OF FORMAT «, t00=0x000b, t01=0x018e}
0x12d8…12ea Head {h00=0x000e, h01=0x0050, text=» B DEST20 «, t00=0x000c, t01=0x0022}
0x12ea…12f8 Head {h00=0x000a, h01=0x0050, text=»DEOPEN«, t00=0x000c, t01=0x0034}
0x12f8…131e Head {h00=0x0022, h01=0x0050, text=» IB BIN2,DE71ST,DE72ST,DE73ST «, t00=0x000c, t01=0x0042}
0x131e…132c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0068}
0x132c…134e Head {h00=0x001e, h01=0x0050, text=»DE71ST START OF DATACOMM«, t00=0x000c, t01=0x0076}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=»DE72ST«, t00=0x000c, t01=0x0098}
0x135c…138a Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W8),W0 USED FOR CHECKING OF«, t00=0x000c, t01=0x00a6}
0x138a…13a6 Head {h00=0x0018, h01=0x0050, text=» PART CONVERSION. «, t00=0x000c, t01=0x00d4}
0x13a6…13c8 Head {h00=0x001e, h01=0x0050, text=» 0 = THE WHOLE USERFILE «, t00=0x000c, t01=0x00f0}
0x13c8…13ee Head {h00=0x0022, h01=0x0050, text=» 1 = ALL BATCHES IN THIS JOB«, t00=0x000c, t01=0x0112}
0x13ee…1410 Head {h00=0x001e, h01=0x0050, text=» 2 = THIS JOB,THIS BATCH«, t00=0x000c, t01=0x0138}
0x1410…143c Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,JOBNAME LOOK IF JOBNAME«, t00=0x000c, t01=0x015a}
0x143c…145a Head {h00=0x001a, h01=0x0050, text=» BNZ CO7110 NO JOBNAME«, t00=0x000c, t01=0x0186}
0x145a…1474 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W1 «, t00=0x000d, t01=0x0014}
0x1474…1482 Head {h00=0x000a, h01=0x0050, text=»CO7110«, t00=0x000d, t01=0x002e}
0x1482…14ae Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,BATCH LOOK IF BATCHNAME«, t00=0x000d, t01=0x003c}
0x14ae…14ce Head {h00=0x001c, h01=0x0050, text=» BNZ CO7130 NO BATCHNAME«, t00=0x000d, t01=0x0068}
0x14ce…14ee Head {h00=0x001c, h01=0x0050, text=» CBE WORK(W8),W1,CO7120 «, t00=0x000d, t01=0x0088}
0x14ee…151a Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W5 JOBNAME NOT ENTERED«, t00=0x000d, t01=0x00a8}
0x151a…1536 Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,W2,DEBINW3«, t00=0x000d, t01=0x00d4}
0x1536…1548 Head {h00=0x000e, h01=0x0050, text=» B DE70ER «, t00=0x000d, t01=0x00f0}
0x1548…1556 Head {h00=0x000a, h01=0x0050, text=»CO7120«, t00=0x000d, t01=0x0102}
0x1556…1570 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W8),W2 «, t00=0x000d, t01=0x0110}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=»CO7130«, t00=0x000d, t01=0x012a}
0x157e…15a0 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7140,CO7150«, t00=0x000d, t01=0x0138}
0x15a0…15c0 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W12,DEKTAB8«, t00=0x000d, t01=0x015a}
0x15c0…15d2 Head {h00=0x000e, h01=0x0050, text=» B CO7145 «, t00=0x000d, t01=0x017a}
0x15d2…15e0 Head {h00=0x000a, h01=0x0050, text=»CO7140«, t00=0x000d, t01=0x018c}
0x15e0…1600 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W13,DEKTAB8«, t00=0x000e, t01=0x000a}
0x1600…160e Head {h00=0x000a, h01=0x0050, text=»CO7145«, t00=0x000e, t01=0x002a}
0x160e…1640 Head {h00=0x002e, h01=0x0050, text=» CBE DEBINW2,W1,DE70CA JUMP ON CANCEL-KEY «, t00=0x000e, t01=0x0038}
0x1640…164e Head {h00=0x000a, h01=0x0050, text=»CO7150«, t00=0x000e, t01=0x006a}
0x164e…1666 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x000e, t01=0x0078}
0x1666…1682 Head {h00=0x0018, h01=0x0050, text=» PERF DEOPBC,DEBINW2«, t00=0x000e, t01=0x0090}
0x1682…16b2 Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER «, t00=0x000e, t01=0x00ac}
0x16b2…16c0 Head {h00=0x000a, h01=0x0050, text=»CO7160«, t00=0x000e, t01=0x00dc}
0x16c0…16e6 Head {h00=0x0022, h01=0x0050, text=» SET SOOL2 IF SET LINE IS OPEN«, t00=0x000e, t01=0x00ea}
0x16e6…16fa Head {h00=0x0010, h01=0x0050, text=» BNZ CO7161 «, t00=0x000e, t01=0x0110}
0x16fa…1708 Head {h00=0x000a, h01=0x0050, text=»CO716A«, t00=0x000e, t01=0x0124}
0x1708…173c Head {h00=0x0030, h01=0x0050, text=» PERF DECONV,BIN5,W1,DEBINW4 OPEN CONVERSION«, t00=0x000e, t01=0x0132}
0x173c…1760 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W1 SAVE TYPE «, t00=0x000e, t01=0x0166}
0x1760…178c Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW4,W0,CO7161 JUMP IF OKEY «, t00=0x000e, t01=0x018a}
0x178c…17ac Head {h00=0x001c, h01=0x0050, text=» B ERRCO1 JUMP ON ERROR «, t00=0x000f, t01=0x0026}
0x17ac…17ba Head {h00=0x000a, h01=0x0050, text=»CO7161«, t00=0x000f, t01=0x0046}
0x17ba…17dc Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7170,CO7186«, t00=0x000f, t01=0x0054}
0x17dc…17fc Head {h00=0x001c, h01=0x0050, text=»CO7162 SEND WHOLE FILE«, t00=0x000f, t01=0x0076}
0x17fc…1816 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x000f, t01=0x0096}
0x1816…1840 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W21 GET NEXT JOBNAME «, t00=0x000f, t01=0x00b0}
0x1840…1854 Head {h00=0x0010, h01=0x0050, text=» BOK CO7164 «, t00=0x000f, t01=0x00da}
0x1854…1874 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 «, t00=0x000f, t01=0x00ee}
0x1874…1896 Head {h00=0x001e, h01=0x0050, text=» B RETUBC WHOLE FILE SEND «, t00=0x000f, t01=0x010e}
0x1896…18a4 Head {h00=0x000a, h01=0x0050, text=»CO7164«, t00=0x000f, t01=0x0130}
0x18a4…18d4 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x000f, t01=0x013e}
0x18d4…18e2 Head {h00=0x000a, h01=0x0050, text=»CO7166«, t00=0x000f, t01=0x016e}
0x18e2…1910 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x000f, t01=0x017c}
0x1910…193e Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0010, t01=0x001a}
0x193e…194c Head {h00=0x000a, h01=0x0050, text=»CO7170«, t00=0x0010, t01=0x0048}
0x194c…197a Head {h00=0x002a, h01=0x0050, text=» MOVE STSAVE(W4),BATCH SAVE BATCHNAME «, t00=0x0010, t01=0x0056}
0x197a…19a6 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN3,=W'34' GET NEXT BATCHNAME«, t00=0x0010, t01=0x0084}
0x19a6…19da Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0010, t01=0x00b0}
0x19da…19f4 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN3 «, t00=0x0010, t01=0x00e4}
0x19f4…1a08 Head {h00=0x0010, h01=0x0050, text=» BOK CO7180 «, t00=0x0010, t01=0x00fe}
0x1a08…1a38 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W9,CO7183 NOT 'NOT FOUND' «, t00=0x0010, t01=0x0112}
0x1a38…1a64 Head {h00=0x0028, h01=0x0050, text=» IB WORK(W8),RETUBC JUMP IF ONE JOB «, t00=0x0010, t01=0x0142}
0x1a64…1a82 Head {h00=0x001a, h01=0x0050, text=» B CO7162 GET NEXT JOB«, t00=0x0010, t01=0x016e}
0x1a82…1a90 Head {h00=0x000a, h01=0x0050, text=»CO7175«, t00=0x0010, t01=0x018c}
0x1a90…1abe Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0011, t01=0x000a}
0x1abe…1aec Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0011, t01=0x0038}
0x1aec…1afa Head {h00=0x000a, h01=0x0050, text=»CO7180«, t00=0x0011, t01=0x0066}
0x1afa…1b2a Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W3),W0 SET WANTED RECNO = 0«, t00=0x0011, t01=0x0074}
0x1b2a…1b42 Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W11«, t00=0x0011, t01=0x00a4}
0x1b42…1b56 Head {h00=0x0010, h01=0x0050, text=» BOK CO7186 «, t00=0x0011, t01=0x00bc}
0x1b56…1b7c Head {h00=0x0022, h01=0x0050, text=» CBG DEBINW4,W11,CO7183 ERROR «, t00=0x0011, t01=0x00d0}
0x1b7c…1b9a Head {h00=0x001a, h01=0x0050, text=» CBL DEBINW4,W8,CO7182«, t00=0x0011, t01=0x00f6}
0x1b9a…1bba Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W10,CO7184«, t00=0x0011, t01=0x0114}
0x1bba…1bc8 Head {h00=0x000a, h01=0x0050, text=»CO7183«, t00=0x0011, t01=0x0134}
0x1bc8…1be0 Head {h00=0x0014, h01=0x0050, text=» B ERRCO2 ERROR «, t00=0x0011, t01=0x0142}
0x1be0…1bee Head {h00=0x000a, h01=0x0050, text=»CO7182«, t00=0x0011, t01=0x015a}
0x1bee…1c0e Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W4,GETC20 «, t00=0x0011, t01=0x0168}
0x1c0e…1c1c Head {h00=0x000a, h01=0x0050, text=»CO7184«, t00=0x0011, t01=0x0188}
0x1c1c…1c3e Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CO7185,ERRCO2«, t00=0x0012, t01=0x0008}
0x1c3e…1c4c Head {h00=0x000a, h01=0x0050, text=»CO7185«, t00=0x0012, t01=0x002a}
0x1c4c…1c6c Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0012, t01=0x0038}
0x1c6c…1c7a Head {h00=0x000a, h01=0x0050, text=»CO7186«, t00=0x0012, t01=0x0058}
0x1c7a…1c9e Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0012, t01=0x0066}
0x1c9e…1cb2 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0012, t01=0x008a}
0x1cb2…1cd0 Head {h00=0x001a, h01=0x0050, text=» CBNE BIN3,W10,CONVNO «, t00=0x0012, t01=0x009e}
0x1cd0…1cfe Head {h00=0x002a, h01=0x0050, text=» IB WORK(W8),CO7166,RETUBC EMPTY BATCH«, t00=0x0012, t01=0x00bc}
0x1cfe…1d0c Head {h00=0x000a, h01=0x0050, text=»CONVNO«, t00=0x0012, t01=0x00ea}
0x1d0c…1d44 Head {h00=0x0034, h01=0x0050, text=» CBNE NUMBER,=D'0',CONVE1 JUMP IF NOT BATCHHEAD «, t00=0x0012, t01=0x00f8}
0x1d44…1d52 Head {h00=0x000a, h01=0x0050, text=»CONVE0«, t00=0x0012, t01=0x0130}
0x1d52…1d80 Head {h00=0x002a, h01=0x0050, text=» PERF DECONV,BIN5,W2,DEBINW4 BATCHHEAD«, t00=0x0012, t01=0x013e}
0x1d80…1da4 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W2 SAVE TYPE «, t00=0x0012, t01=0x016c}
0x1da4…1dd4 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0012, t01=0x0190}
0x1dd4…1e0a Head {h00=0x0032, h01=0x0050, text=»CONVE1 MOVE DEBINW4,NUMBER CURRENT REC.NUMBER «, t00=0x0013, t01=0x0030}
0x1e0a…1e3e Head {h00=0x0030, h01=0x0050, text=» CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST «, t00=0x0013, t01=0x0066}
0x1e3e…1e72 Head {h00=0x0030, h01=0x0050, text=» ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO «, t00=0x0013, t01=0x009a}
0x1e72…1e9a Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W4 GET NEXT RECORD «, t00=0x0013, t01=0x00ce}
0x1e9a…1ec0 Head {h00=0x0022, h01=0x0050, text=» BNOK ERRCO2 JUMP IF NOT OKEY «, t00=0x0013, t01=0x00f6}
0x1ec0…1ece Head {h00=0x000a, h01=0x0050, text=»CONVEA«, t00=0x0013, t01=0x011c}
0x1ece…1efe Head {h00=0x002c, h01=0x0050, text=» PERF DECONV,BIN5,W3,DEBINW4 DATARECORD «, t00=0x0013, t01=0x012a}
0x1efe…1f22 Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W3 SAVE TYPE «, t00=0x0013, t01=0x015a}
0x1f22…1f52 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 JUMP IF NOT OKEY«, t00=0x0013, t01=0x017e}
0x1f52…1f64 Head {h00=0x000e, h01=0x0050, text=» B CONVE1 «, t00=0x0014, t01=0x001e}
0x1f64…1f72 Head {h00=0x000a, h01=0x0050, text=»CONVE2«, t00=0x0014, t01=0x0030}
0x1f72…1f8e Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0014, t01=0x003e}
0x1f8e…1fc6 Head {h00=0x0034, h01=0x0050, text=» COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT«, t00=0x0014, t01=0x005a}
0x1fc6…1fe8 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W11)«, t00=0x0014, t01=0x0092}
0x1fe8…1ff6 Head {h00=0x000a, h01=0x0050, text=»CONVEF«, t00=0x0014, t01=0x00b4}
0x1ff6…201a Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x0014, t01=0x00c2}
0x201a…202e Head {h00=0x0010, h01=0x0050, text=» BOK CONVE3 «, t00=0x0014, t01=0x00e6}
0x202e…205c Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W13,ERRCO2 NO WORKSPACE «, t00=0x0014, t01=0x00fa}
0x205c…208a Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,ERRCO2 NO CURR. FORMAT «, t00=0x0014, t01=0x0128}
0x208a…20b6 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN14,STRG10A«, t00=0x0014, t01=0x0156}
0x20b6…20e0 Head {h00=0x0026, h01=0x0050, text=» ATTFMT FFETCH ATTACH DUMMYFORMAT «, t00=0x0014, t01=0x0182}
0x20e0…20f8 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0015, t01=0x001c}
0x20f8…2106 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0015, t01=0x0034}
0x2106…2120 Head {h00=0x0016, h01=0x0050, text=» MOVE FORMAT,HEX00«, t00=0x0015, t01=0x0042}
0x2120…2132 Head {h00=0x000e, h01=0x0050, text=» B CONVEF «, t00=0x0015, t01=0x005c}
0x2132…2140 Head {h00=0x000a, h01=0x0050, text=»CONVE3«, t00=0x0015, t01=0x006e}
0x2140…216e Head {h00=0x002a, h01=0x0050, text=» MOVE FORMAT,FORTAB(W21) BALANCE NAME «, t00=0x0015, t01=0x007c}
0x216e…2196 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W6,W10«, t00=0x0015, t01=0x00aa}
0x2196…21b4 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,FLIND(W1) «, t00=0x0015, t01=0x00d2}
0x21b4…21d0 Head {h00=0x0018, h01=0x0050, text=» ATTFMT BPOOL(BIN16)«, t00=0x0015, t01=0x00f0}
0x21d0…21de Head {h00=0x000a, h01=0x0050, text=»CONVEB«, t00=0x0015, t01=0x010c}
0x21de…220a Head {h00=0x0028, h01=0x0050, text=» PERF DECONV,BIN5,W4,DEBINW4 BALANCE«, t00=0x0015, t01=0x011a}
0x220a…222e Head {h00=0x0020, h01=0x0050, text=» MOVE WORK(W7),W4 SAVE TYPE «, t00=0x0015, t01=0x0146}
0x222e…224e Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,ERRCO1 «, t00=0x0015, t01=0x016a}
0x224e…225c Head {h00=0x000a, h01=0x0050, text=»CONVE4«, t00=0x0015, t01=0x018a}
0x225c…2290 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0016, t01=0x0008}
0x2290…22ae Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,CONVEC «, t00=0x0016, t01=0x003c}
0x22ae…22c4 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0016, t01=0x005a}
0x22c4…22e0 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0016, t01=0x0070}
0x22e0…230c Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0016, t01=0x008c}
0x230c…2320 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO2«, t00=0x0016, t01=0x00b8}
0x2320…232e Head {h00=0x000a, h01=0x0050, text=»CONVEC«, t00=0x0016, t01=0x00cc}
0x232e…2346 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0016, t01=0x00da}
0x2346…2368 Head {h00=0x001e, h01=0x0050, text=» IB WORK(W8),CONVE5,RETUBC«, t00=0x0016, t01=0x00f2}
0x2368…2376 Head {h00=0x000a, h01=0x0050, text=»CONVE5«, t00=0x0016, t01=0x0114}
0x2376…2396 Head {h00=0x001c, h01=0x0050, text=» B CO7166 GET NEXT BATCH«, t00=0x0016, t01=0x0122}
0x2396…23bc Head {h00=0x0022, h01=0x0050, text=»DELCUR DELETE CURRENT BATCH «, t00=0x0016, t01=0x0142}
0x23bc…23f0 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0016, t01=0x0168}
0x23f0…240a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x0017, t01=0x000c}
0x240a…2432 Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x0017, t01=0x0026}
0x2432…2446 Head {h00=0x0010, h01=0x0050, text=» BNOK ERRCO1«, t00=0x0017, t01=0x004e}
0x2446…2464 Head {h00=0x001a, h01=0x0050, text=» MOVE BATCH,STSAVE(W4)«, t00=0x0017, t01=0x0062}
0x2464…2476 Head {h00=0x000e, h01=0x0050, text=» B CONVEC «, t00=0x0017, t01=0x0080}
0x2476…2484 Head {h00=0x000a, h01=0x0050, text=»GETCUR«, t00=0x0017, t01=0x0092}
0x2484…24bc Head {h00=0x0034, h01=0x0050, text=» CBNE DEBINW4,W6,CONVEA JUMP IF NOT GET CURRENT «, t00=0x0017, t01=0x00a0}
0x24bc…24dc Head {h00=0x001c, h01=0x0050, text=» SET DOOL4 EXISTING DATA«, t00=0x0017, t01=0x00d8}
0x24dc…2500 Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0017, t01=0x00f8}
0x2500…2514 Head {h00=0x0010, h01=0x0050, text=» BNOK GETC10«, t00=0x0017, t01=0x011c}
0x2514…2528 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0017, t01=0x0130}
0x2528…253a Head {h00=0x000e, h01=0x0050, text=» B CONVEA «, t00=0x0017, t01=0x0144}
0x253a…2548 Head {h00=0x000a, h01=0x0050, text=»GETC10«, t00=0x0017, t01=0x0156}
0x2548…255c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0017, t01=0x0164}
0x255c…256a Head {h00=0x000a, h01=0x0050, text=»GETC20«, t00=0x0017, t01=0x0178}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» B ERRCO2 «, t00=0x0017, t01=0x0186}
0x257c…258a Head {h00=0x000a, h01=0x0050, text=»ERRCO1«, t00=0x0018, t01=0x0008}
0x258a…25a8 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW4,W0,ERRCO3«, t00=0x0018, t01=0x0016}
0x25a8…25c4 Head {h00=0x0018, h01=0x0050, text=» MUL DEBINW4,=W'-1' «, t00=0x0018, t01=0x0034}
0x25c4…2602 Head {h00=0x003a, h01=0x0050, text=» IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C«, t00=0x0018, t01=0x0050}
0x2602…2620 Head {h00=0x001a, h01=0x0050, text=» CO7175,RETUBC,DELCUR«, t00=0x0018, t01=0x008e}
0x2620…2632 Head {h00=0x000e, h01=0x0050, text=» B ERRCLR «, t00=0x0018, t01=0x00ac}
0x2632…2640 Head {h00=0x000a, h01=0x0050, text=»ERRCO3«, t00=0x0018, t01=0x00be}
0x2640…265c Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0018, t01=0x00cc}
0x265c…2686 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W0 ZEROIZE ERRORMESS«, t00=0x0018, t01=0x00e8}
0x2686…26ba Head {h00=0x0030, h01=0x0050, text=» IB DEBINW2,ERRCLR,CONVE4,RETUBC CLR CAN RET«, t00=0x0018, t01=0x0112}
0x26ba…26c8 Head {h00=0x000a, h01=0x0050, text=»ERRCLR«, t00=0x0018, t01=0x0146}
0x26c8…270a Head {h00=0x003e, h01=0x0050, text=» IB WORK(W7),CO716A,CO7186,GETCUR,CONVE3 JUMP CLR DEP TYPE«, t00=0x0018, t01=0x0154}
0x270a…271e Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x0019, t01=0x0008}
0x271e…272c Head {h00=0x000a, h01=0x0050, text=»ERRCO2«, t00=0x0019, t01=0x001c}
0x272c…2748 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0019, t01=0x002a}
0x2748…276a Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,ERRCO2,CONVE4 «, t00=0x0019, t01=0x0046}
0x276a…2778 Head {h00=0x000a, h01=0x0050, text=»RETUBC«, t00=0x0019, t01=0x0068}
0x2778…27ac Head {h00=0x0030, h01=0x0050, text=»RETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0019, t01=0x0076}
0x27ac…27dc Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0019, t01=0x00aa}
0x27dc…281c Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x0019, t01=0x00da}
0x281c…2842 Head {h00=0x0022, h01=0x0050, text=» WORKBLOCKS AND DESCRIPTORS «, t00=0x0019, t01=0x011a}
0x2842…2860 Head {h00=0x001a, h01=0x0050, text=» CBE PINACC,W0,RETBC3 «, t00=0x0019, t01=0x0140}
0x2860…2876 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0019, t01=0x015e}
0x2876…2892 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0019, t01=0x0174}
0x2892…28be Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0019, t01=0x0190}
0x28be…28ec Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x001a, t01=0x002c}
0x28ec…28fa Head {h00=0x000a, h01=0x0050, text=»RETBC3«, t00=0x001a, t01=0x005a}
0x28fa…291e Head {h00=0x0020, h01=0x0050, text=» CLEAR SOOL2 CONVERSION OPEN«, t00=0x001a, t01=0x0068}
0x291e…2930 Head {h00=0x000e, h01=0x0050, text=» BZ RETBC4«, t00=0x001a, t01=0x008c}
0x2930…2954 Head {h00=0x0020, h01=0x0050, text=» PERF DECONV,BIN5,W5,DEBINW4«, t00=0x001a, t01=0x009e}
0x2954…2962 Head {h00=0x000a, h01=0x0050, text=»RETBC4«, t00=0x001a, t01=0x00c2}
0x2962…2976 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x001a, t01=0x00d0}
0x2976…299a Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x001a, t01=0x00e4}
0x299a…29be Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x001a, t01=0x0108}
0x29be…29d2 Head {h00=0x0010, h01=0x0050, text=» BOK DEST20 «, t00=0x001a, t01=0x012c}
0x29d2…29dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0140}
0x29dc…29ea Head {h00=0x000a, h01=0x0050, text=»DE73ST«, t00=0x001a, t01=0x014a}
0x29ea…29fc Head {h00=0x000e, h01=0x0050, text=» B DEST55 «, t00=0x001a, t01=0x0158}
0x29fc…2a0a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x016a}
0x2a0a…2a18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0178}
0x2a18…2a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0186}
0x2a22…2a4c Head {h00=0x0026, h01=0x0050, text=»* APPL-VALUE HANDLING ROUTINE «, t00=0x001a, t01=0x0190}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002a}
0x2a56…2a6a Head {h00=0x0010, h01=0x0050, text=»DEAP7A PROC «, t00=0x001b, t01=0x0034}
0x2a6a…2a84 Head {h00=0x0016, h01=0x0050, text=» IB DEBINW3,DEA71 «, t00=0x001b, t01=0x0048}
0x2a84…2aa8 Head {h00=0x0020, h01=0x0050, text=» B DEANOK ILLEGAL APPL-VALUE«, t00=0x001b, t01=0x0062}
0x2aa8…2ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x2ab2…2ae6 Head {h00=0x0030, h01=0x0050, text=»* APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE«, t00=0x001b, t01=0x0090}
0x2ae6…2b26 Head {h00=0x003c, h01=0x0050, text=»* BIN5 = <FC>,FUNCTION-CLASS «, t00=0x001b, t01=0x00c4}
0x2b26…2b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0104}
0x2b30…2b3e Head {h00=0x000a, h01=0x0050, text=»DEA71 «, t00=0x001b, t01=0x010e}
0x2b3e…2b72 Head {h00=0x0030, h01=0x0050, text=» CALL GETIND,DEVTYP,DEBIN1,DEBIN2 GET LENGTH«, t00=0x001b, t01=0x011c}
0x2b72…2b8a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W0 «, t00=0x001b, t01=0x0150}
0x2b8a…2b98 Head {h00=0x000a, h01=0x0050, text=»DEA71A«, t00=0x001b, t01=0x0168}
0x2b98…2bb4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN2 «, t00=0x001b, t01=0x0176}
0x2bb4…2be2 (28, 0, 398) Head {h00=0x002a, h01=0x0050, text=» MATCH DEVTYP,DEBIN3,W3,DEINPUT,W0,W3 «, t00=0x001c, t01=0x0004}
0x2be2…2bf6 Head {h00=0x0010, h01=0x0050, text=» BOK DEA71B «, t00=0x001c, t01=0x0032}
0x2bf6…2c1c Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN2,W5 GET NEXT DEVICE«, t00=0x001c, t01=0x0046}
0x2c1c…2c4a Head {h00=0x002a, h01=0x0050, text=» CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE «, t00=0x001c, t01=0x006c}
0x2c4a…2c5c Head {h00=0x000e, h01=0x0050, text=» B DEA71A «, t00=0x001c, t01=0x009a}
0x2c5c…2c6a Head {h00=0x000a, h01=0x0050, text=»DEA71B«, t00=0x001c, t01=0x00ac}
0x2c6a…2c94 Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN3,W3 ADJUST FOR FILECODE«, t00=0x001c, t01=0x00ba}
0x2c94…2cca Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN6,W1,W1,DEVTYP,DEBIN3 SAVE FILECODE «, t00=0x001c, t01=0x00e4}
0x2cca…2cf0 Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN3,W1 ADJUST FOR <FC>«, t00=0x001c, t01=0x011a}
0x2cf0…2d22 Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN5,W1,W1,DEVTYP,DEBIN3 SAVE <FC> «, t00=0x001c, t01=0x0140}
0x2d22…2d34 Head {h00=0x000e, h01=0x0050, text=» B DEAOK0 «, t00=0x001c, t01=0x0172}
0x2d34…2d42 Head {h00=0x000a, h01=0x0050, text=»DEA71E«, t00=0x001c, t01=0x0184}
0x2d42…2d64 (29, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W9 NOT FOUND«, t00=0x001d, t01=0x0004}
0x2d64…2d76 Head {h00=0x000e, h01=0x0050, text=» B DEANOK «, t00=0x001d, t01=0x0026}
0x2d76…2d84 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0038}
0x2d84…2d92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0046}
0x2d92…2d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2d9c…2db4 Head {h00=0x0014, h01=0x0050, text=»* FORMATS«, t00=0x001d, t01=0x005e}
0x2db4…2dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dbe…2dd0 Head {h00=0x000e, h01=0x0050, text=»F70ST FRMT«, t00=0x001d, t01=0x0080}
0x2dd0…2ddc Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001d, t01=0x0092}
0x2ddc…2df0 Head {h00=0x0010, h01=0x0050, text=» FTEXT '70 '«, t00=0x001d, t01=0x009e}
0x2df0…2e10 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'CONVERSION' $$«, t00=0x001d, t01=0x00b2}
0x2e10…2e1c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x00d2}
0x2e1c…2e38 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'PROGRAM:' «, t00=0x001d, t01=0x00de}
0x2e38…2e64 Head {h00=0x0028, h01=0x0050, text=» FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 «, t00=0x001d, t01=0x00fa}
0x2e64…2e7c Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',PRNUM«, t00=0x001d, t01=0x0126}
0x2e7c…2e96 Head {h00=0x0016, h01=0x0050, text=» FBF BOOL1,F70OUT «, t00=0x001d, t01=0x013e}
0x2e96…2ea2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001d, t01=0x0158}
0x2ea2…2eba Head {h00=0x0014, h01=0x0050, text=» FLINK F71S ERVR«, t00=0x001d, t01=0x0164}
0x2eba…2ecc Head {h00=0x000e, h01=0x0050, text=» FNL ERVR«, t00=0x001d, t01=0x017c}
0x2ecc…2ee0 Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001d, t01=0x018e}
0x2ee0…2eee Head {h00=0x000a, h01=0x0050, text=»F70OUT«, t00=0x001e, t01=0x0012}
0x2eee…2efc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0020}
0x2efc…2f0e Head {h00=0x000e, h01=0x0050, text=»F71ST FRMT«, t00=0x001e, t01=0x002e}
0x2f0e…2f1a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001e, t01=0x0040}
0x2f1a…2f2e Head {h00=0x0010, h01=0x0050, text=» FLINK F71S «, t00=0x001e, t01=0x004c}
0x2f2e…2f3a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0060}
0x2f3a…2f4e Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001e, t01=0x006c}
0x2f4e…2f5a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0080}
0x2f5a…2f70 Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001e, t01=0x008c}
0x2f70…2f80 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001e, t01=0x00a2}
0x2f80…2f96 Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001e, t01=0x00b2}
0x2f96…2fa2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x00c8}
0x2fa2…2fbc Head {h00=0x0016, h01=0x0050, text=» FLINK F71DEV ERVR«, t00=0x001e, t01=0x00d4}
0x2fbc…2fd2 Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001e, t01=0x00ee}
0x2fd2…2fe0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0104}
0x2fe0…2ff2 Head {h00=0x000e, h01=0x0050, text=»F72ST FRMT«, t00=0x001e, t01=0x0112}
0x2ff2…2ffe Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001e, t01=0x0124}
0x2ffe…3012 Head {h00=0x0010, h01=0x0050, text=» FLINK F72S «, t00=0x001e, t01=0x0130}
0x3012…301e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0144}
0x301e…3032 Head {h00=0x0010, h01=0x0050, text=» FLINK F71UV«, t00=0x001e, t01=0x0150}
0x3032…303e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001e, t01=0x0164}
0x303e…3054 Head {h00=0x0012, h01=0x0050, text=» FLINK F71JOB «, t00=0x001e, t01=0x0170}
0x3054…3064 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x001e, t01=0x0186}
0x3064…307a Head {h00=0x0012, h01=0x0050, text=» FLINK F71BAT «, t00=0x001f, t01=0x0008}
0x307a…3086 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001f, t01=0x001e}
0x3086…309c Head {h00=0x0012, h01=0x0050, text=» FLINK F72DEV «, t00=0x001f, t01=0x002a}
0x309c…30b2 Head {h00=0x0012, h01=0x0050, text=» FLINK F71END «, t00=0x001f, t01=0x0040}
0x30b2…30c0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0056}
0x30c0…30d2 Head {h00=0x000e, h01=0x0050, text=»F71S FRMT «, t00=0x001f, t01=0x0064}
0x30d2…30e6 Head {h00=0x0010, h01=0x0050, text=» FTEXT '71 '«, t00=0x001f, t01=0x0076}
0x30e6…3104 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001f, t01=0x008a}
0x3104…3118 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x00a8}
0x3118…312e Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'VIA'«, t00=0x001f, t01=0x00bc}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x00d2}
0x3142…315e Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'DATA COMM'«, t00=0x001f, t01=0x00e6}
0x315e…316c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0102}
0x316c…317e Head {h00=0x000e, h01=0x0050, text=»F72S FRMT «, t00=0x001f, t01=0x0110}
0x317e…3192 Head {h00=0x0010, h01=0x0050, text=» FTEXT '72 '«, t00=0x001f, t01=0x0122}
0x3192…31b0 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'CONVERSION' «, t00=0x001f, t01=0x0136}
0x31b0…31c4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x0154}
0x31c4…31da Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'TO' «, t00=0x001f, t01=0x0168}
0x31da…31ee Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001f, t01=0x017e}
0x31ee…320c (32, 0, 400) Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'OTHER MEDIA'«, t00=0x0020, t01=0x0004}
0x320c…321a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0022}
0x321a…322c Head {h00=0x000e, h01=0x0050, text=»F73S FRMT «, t00=0x0020, t01=0x0030}
0x322c…3240 Head {h00=0x0010, h01=0x0050, text=» FTEXT '73 '«, t00=0x0020, t01=0x0042}
0x3240…3260 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'BATCH LINKING'«, t00=0x0020, t01=0x0056}
0x3260…326e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x0076}
0x326e…3280 Head {h00=0x000e, h01=0x0050, text=»F71UV FRMT«, t00=0x0020, t01=0x0084}
0x3280…3298 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT' «, t00=0x0020, t01=0x0096}
0x3298…32ac Head {h00=0x0010, h01=0x0050, text=» FTEXT ':U' «, t00=0x0020, t01=0x00ae}
0x32ac…32d8 Head {h00=0x0028, h01=0x0050, text=» FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 «, t00=0x0020, t01=0x00c2}
0x32d8…32f2 Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x0020, t01=0x00ee}
0x32f2…3302 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0020, t01=0x0108}
0x3302…331c Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'VOLUME' «, t00=0x0020, t01=0x0118}
0x331c…3330 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0020, t01=0x0132}
0x3330…3340 Head {h00=0x000c, h01=0x0050, text=» FINP 27«, t00=0x0020, t01=0x0146}
0x3340…3354 Head {h00=0x0010, h01=0x0050, text=» FCOPY TABLE«, t00=0x0020, t01=0x0156}
0x3354…3362 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x016a}
0x3362…3376 Head {h00=0x0010, h01=0x0050, text=»F71JOB FRMT «, t00=0x0020, t01=0x0178}
0x3376…338c Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x0020, t01=0x018c}
0x338c…33a4 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0021, t01=0x0012}
0x33a4…33b8 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x002a}
0x33b8…33f6 Head {h00=0x003a, h01=0x0050, text=» FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1)«, t00=0x0021, t01=0x003e}
0x33f6…340c Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0021, t01=0x007c}
0x340c…341a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x0092}
0x341a…342e Head {h00=0x0010, h01=0x0050, text=»F71BAT FRMT «, t00=0x0021, t01=0x00a0}
0x342e…3446 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x0021, t01=0x00b4}
0x3446…345e Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0021, t01=0x00cc}
0x345e…3472 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0021, t01=0x00e4}
0x3472…34b2 Head {h00=0x003c, h01=0x0050, text=» FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) «, t00=0x0021, t01=0x00f8}
0x34b2…34c6 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0021, t01=0x0138}
0x34c6…34d4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x014c}
0x34d4…34e8 Head {h00=0x0010, h01=0x0050, text=»F71END FRMT «, t00=0x0021, t01=0x015a}
0x34e8…34f4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0021, t01=0x016e}
0x34f4…3502 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0021, t01=0x017a}
0x3502…3516 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0021, t01=0x0188}
0x3516…3524 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0022, t01=0x000c}
0x3524…353e Head {h00=0x0016, h01=0x0050, text=»F71DEV FRMT ERVR «, t00=0x0022, t01=0x001a}
0x353e…3558 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE '«, t00=0x0022, t01=0x0034}
0x3558…356c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0022, t01=0x004e}
0x356c…35a0 Head {h00=0x0030, h01=0x0050, text=» FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 «, t00=0x0022, t01=0x0062}
0x35a0…35ba Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x0022, t01=0x0096}
0x35ba…35c6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0022, t01=0x00b0}
0x35c6…35e4 Head {h00=0x001a, h01=0x0050, text=» FTEXT =C'BRUGERNAVN' «, t00=0x0022, t01=0x00bc}
0x35e4…3606 Head {h00=0x001e, h01=0x0050, text=» FKI 12,MINL=1,MAXL=12,ME «, t00=0x0022, t01=0x00da}
0x3606…362e Head {h00=0x0024, h01=0x0050, text=» FMEL 'AAAAAAAAAAAA9',BCDI21(W7)«, t00=0x0022, t01=0x00fc}
0x362e…363a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0022, t01=0x0124}
0x363a…3656 Head {h00=0x0018, h01=0x0050, text=» FTEXT =C'KENDEORD' «, t00=0x0022, t01=0x0130}
0x3656…3676 Head {h00=0x001c, h01=0x0050, text=» FKI 12,MINL=1,MAXL=4,ME«, t00=0x0022, t01=0x014c}
0x3676…3696 Head {h00=0x001c, h01=0x0050, text=» FMEL 'TTT9',BCDI21(W6) «, t00=0x0022, t01=0x016c}
0x3696…36aa Head {h00=0x0010, h01=0x0050, text=» FMEND ERVR«, t00=0x0022, t01=0x018c}
0x36aa…36be Head {h00=0x0010, h01=0x0050, text=»F72DEV FRMT «, t00=0x0023, t01=0x0010}
0x36be…36d8 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE '«, t00=0x0023, t01=0x0024}
0x36d8…36ec Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0023, t01=0x003e}
0x36ec…3720 Head {h00=0x0030, h01=0x0050, text=» FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 «, t00=0x0023, t01=0x0052}
0x3720…373a Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x0023, t01=0x0086}
0x373a…374a Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0023, t01=0x00a0}
0x374a…3762 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x0023, t01=0x00b0}
0x3762…3776 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x0023, t01=0x00c8}
0x3776…378e Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0023, t01=0x00dc}
0x378e…37a2 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0023, t01=0x00f4}
0x37a2…37c4 Head {h00=0x001e, h01=0x0050, text=» FKI 32,ALPHA,MAXL=8,NEOI «, t00=0x0023, t01=0x0108}
0x37c4…37d8 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8B«, t00=0x0023, t01=0x012a}
0x37d8…37e6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x013e}
0x37e6…37fa Head {h00=0x0010, h01=0x0050, text=»FFETCH FRMT «, t00=0x0023, t01=0x014c}
0x37fa…3806 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0023, t01=0x0160}
0x3806…3828 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FETCHING FORMAT:' «, t00=0x0023, t01=0x016c}
0x3828…383e Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x0023, t01=0x018e}
0x383e…385a Head {h00=0x0018, h01=0x0050, text=» FTEXT ' FROM DISC.'«, t00=0x0024, t01=0x0014}
0x385a…3866 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0024, t01=0x0030}
0x3866…387a Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x0024, t01=0x003c}
0x387a…388e Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0024, t01=0x0050}
0x388e…389c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0064}
0x389c…38a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0072}
0x38a6…38b2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0024, t01=0x007c}
0x38b2…38b6 Head {h00=0x4004, h01=0x0000}
0x38b6…38ba 00 24 00 88 ┆ $ ┆
0x38ba…38c2 (37, 1, 8) 20 04 00 00 00 25 00 04 ┆ % ┆
0x38c2…3912 (38, 0, 400) 54 06 82 04 22 20 54 0a f0 3a 82 04 22 20 88 20 48 50 81 20 ff ff 91 59 00 2e f6 a1 30 1e 01 01 a9 59 00 28 8f 20 3d c8 f6 a1 32 32 01 0a e9 59 00 2a 54 16 81 0e 82 0e 22 02 54 06 21 01 31 1f 57 04 21 03 29 10 f6 a1 3e 8a f0 3a f6 a1 32 32 ┆T " T : " HP Y . 0 Y ( = 22 Y *T " T ! 1 W ! ) > : 22┆
0x3912…3962 f6 a1 3e 4a f6 a1 45 5e 81 86 50 04 99 d6 ff f4 81 d9 00 26 01 0a e9 59 00 2a 54 04 f6 a1 2c 82 f0 3a 81 58 00 3e 19 03 54 14 81 58 00 26 91 56 ff f4 e1 44 00 02 21 10 54 04 01 1e 57 02 01 1f f6 a1 3e 8a f6 a1 31 76 f6 9d f6 a1 32 32 81 58 ┆ >J E^ P & Y *T , : X > T X & V D ! T W > 1v 22 X┆
0x3962…39b2 00 3e 50 28 19 02 52 12 51 22 81 58 00 26 91 56 ff f4 e1 44 00 02 21 10 50 12 81 10 19 01 e2 24 ea 21 1f 00 50 06 02 20 e2 25 5f 10 01 1e f6 a1 3e 8a f0 3a f6 a1 32 32 81 12 99 56 ff f4 81 59 00 22 81 58 00 2e 39 48 91 84 81 d9 00 24 f6 a1 ┆ >P( R Q" X & V D ! P $ ! P %_ > : 22 V Y " X .9H $ ┆
0x39b2…3a02 45 5e 81 86 50 04 99 d6 ff f4 81 d9 00 26 81 58 00 28 82 04 22 04 51 8e 02 01 ea 59 00 2b 51 0a 52 0e 82 0e 22 10 50 08 57 d8 82 0e 22 10 55 d2 f6 a1 2f 32 90 59 00 2c 82 04 22 02 51 c6 82 04 22 08 8d 20 48 50 82 58 00 2e ea 58 00 30 52 86 ┆E^ P & X ( " Q Y +Q R " P W " U /2 Y , " Q " HP X . X 0R ┆
0x3a02…3a52 50 22 82 58 00 2a 3a 68 ea 20 00 03 50 96 ea 20 00 04 50 44 ea 20 00 05 8c 20 48 50 29 10 81 59 00 28 57 8a 82 58 00 2a 3a 68 ea 20 00 01 50 74 ea 20 00 03 50 6e ea 20 00 82 14 00 09 50 01 00 00 52 00 00 00 90 00 80 00 00 40 20 00 04 00 00 ┆P" X *:h P PD HP) Y (W X *:h Pt Pn P R @ ┆
0x3a52…3aa2 (39, 0, 400) 00 04 50 1c ea 20 00 05 50 16 ea 20 00 02 8c 20 48 50 f6 a1 2f 66 82 08 50 3c f6 a1 2f ae 57 5a 81 58 00 0e 21 ff 82 58 00 24 22 ff e9 08 50 3c 51 18 83 58 00 28 23 20 50 32 83 58 00 1e 23 ff 92 0c 3a 21 ea 04 52 24 57 14 f6 a1 2f ae f6 a1 ┆ P P HP /f P< / WZ X ! X $" P<Q X (# P2 X # :! R$W / ┆
0x3aa2…3af2 2f 66 82 08 54 24 02 40 aa 59 00 28 57 0e 81 20 ff ff 91 59 00 2c f6 a1 30 1e 57 04 f6 a1 30 3c 02 01 aa 59 00 28 8f 20 3d c8 f0 3a 82 58 00 2a 3a 68 e1 58 00 28 21 ff 83 04 23 20 50 14 83 58 00 26 93 56 ff f4 e3 4c 00 02 19 20 a3 04 54 62 ┆/f T$ @ Y (W Y , 0 W 0< Y ( = : X *:h X (! # P X & V L Tb┆
0x3af2…3b42 57 0a 83 58 00 2c eb 58 00 30 50 40 f6 a1 2f 66 82 08 54 2c 82 58 00 2a 3a 68 ea 20 00 0a 58 46 ea 20 00 0b 58 4c 81 58 00 28 21 40 54 0e 01 40 a9 59 00 28 81 58 00 2c 81 59 00 1a 1a 06 5c 74 82 58 00 30 5c 6c f6 a1 2f ae 5f 72 81 58 00 28 ┆W X , X 0P@ /f T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l / _r X (┆
0x3b42…3b92 83 04 a3 20 18 00 50 0a a9 20 20 00 81 59 00 28 5f 86 ea 20 00 0b 50 2a 1a 0a 5c a0 f6 a1 2f 86 82 08 50 7c 84 59 00 38 14 02 f6 a1 2c 82 81 10 84 58 00 38 99 10 82 58 00 24 f6 a1 32 3a 57 68 5f c2 82 04 22 80 50 1a 82 58 00 28 a2 20 04 00 ┆ P Y (_ P* / P| Y 8 , X 8 X $ 2:Wh_ " P X ( ┆
0x3b92…3be2 54 10 82 58 00 26 92 56 ff f4 e2 48 00 02 22 40 54 46 f6 a1 2f 86 82 08 50 36 82 12 9a 56 ff f4 82 59 00 1c 82 20 01 00 a2 58 00 28 50 08 f6 a1 31 76 f6 a1 2f d6 84 d8 00 a2 00 00 02 80 09 08 00 00 01 00 00 00 08 00 01 02 02 00 00 20 00 a9 ┆T X & V H "@TF / P6 V Y X (P 1v / ┆
0x3be2…3c32 (40, 0, 400) 00 1c 94 d6 ff f4 82 20 02 00 a2 58 00 28 50 08 f6 a1 2f 4a f6 a1 31 ca 84 d8 00 38 94 d6 ff f4 90 59 00 30 82 58 00 32 50 1e ea 58 00 30 56 18 5f 7a 82 20 fb ff a2 59 00 28 82 0e 22 10 54 08 82 20 04 00 aa 59 00 28 f0 3a 84 d9 00 38 f6 a1 ┆ X (P /J 1 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 ┆
0x3c32…3c82 31 76 f6 a1 37 ca 82 12 84 d8 00 38 9a 56 ff f4 82 59 00 38 f0 3a 82 0e 22 10 50 16 82 58 00 26 92 56 ff f4 e2 28 a2 20 00 80 50 06 f6 a1 2f 86 f0 3a 02 01 f0 3a f6 a1 2f 4a 81 06 82 0c 22 30 50 0a e2 24 1a 0f 54 12 02 ff 57 04 ea 25 54 0a ┆1v 7 8 V Y 8 : " P X & V ( P / : : /J "0P $ T W %T ┆
0x3c82…3cd2 11 01 e9 14 5c 0a 02 00 f0 3a 02 01 f0 3a 02 20 aa 59 00 28 82 58 00 24 82 59 00 1e 82 58 00 22 82 59 00 1c 82 58 00 26 82 59 00 20 e2 58 00 3c e2 59 00 40 f0 3a 84 59 00 3a f6 9d 81 10 f6 a1 32 32 84 58 00 3a 99 10 82 58 00 28 a2 20 04 00 ┆ : : Y ( X $ Y X " Y X & Y X < Y @ : Y : 22 X : X ( ┆
0x3cd2…3d22 54 14 82 58 00 26 92 56 ff f4 e2 48 00 01 22 7f e9 08 56 02 81 08 81 59 00 3a 01 00 82 58 00 24 f6 a1 32 3a 81 58 00 3a f6 a1 32 4e f0 3a 81 58 00 1c 81 59 00 22 81 58 00 1e 81 59 00 24 81 58 00 20 81 59 00 26 e1 58 00 40 57 04 e1 58 00 3c ┆T X & V H " V Y : X $ 2: X : 2N : X Y " X Y $ X Y & X @W X <┆
0x3d22…3d72 e1 59 00 3d 9c d6 ff f4 84 d9 00 1c 84 d8 00 22 f6 a1 32 a2 e3 d2 ff fe a3 a0 00 ff 81 0e 21 02 54 06 81 a0 00 00 57 14 f6 a1 45 e6 81 0e 21 01 50 0a 85 06 3d 48 f6 a1 00 50 00 00 00 a0 00 01 08 00 00 00 00 00 80 00 00 44 00 00 00 40 04 00 ┆ Y = " 2 ! T W E ! P =H P D @ ┆
0x3d72…3dc2 (41, 0, 400) 45 e6 a9 94 f6 a1 30 e4 e1 58 00 2a 21 ff e9 20 00 06 54 22 81 58 00 0c 81 79 00 34 01 40 a1 58 00 28 54 08 01 00 81 79 00 36 57 34 81 58 00 1a 81 79 00 36 57 2c 01 40 a1 58 00 28 50 02 57 22 81 58 00 26 91 56 ff f4 e1 44 00 02 21 20 50 06 ┆E 0 X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P ┆
0x3dc2…3e12 81 20 40 00 57 10 01 00 82 58 00 0e f6 a1 32 3a 57 08 81 20 c0 00 a9 59 00 28 f0 3a 81 58 00 2c 81 59 00 0c 81 58 00 24 81 59 00 0e 81 d9 00 18 81 58 00 26 54 10 81 59 00 14 81 59 00 10 01 01 81 59 00 12 57 44 91 56 ff f4 e2 24 3a 48 e2 44 ┆ @ W X 2:W Y ( : X , Y X $ Y X &T Y Y Y WD V $:H D┆
0x3e12…3e62 00 01 82 59 00 10 e2 44 00 02 3a 48 82 59 00 12 81 0e 21 08 50 10 81 12 99 56 ff f4 81 59 00 14 f6 a1 37 ca 57 04 81 59 00 14 81 0e 21 04 50 06 f6 a1 37 28 57 04 94 a0 00 03 81 12 99 56 ff f4 81 59 00 02 f6 a1 31 76 81 12 99 56 ff f4 81 59 ┆ Y D :H Y ! P V Y 7 W Y ! P 7(W V Y 1v V Y┆
0x3e62…3eb2 00 00 f0 3a f6 a1 37 ca f6 a1 3e 62 f0 3a e7 32 27 ff 82 1c 22 80 50 10 ef 20 00 c2 54 14 94 a0 00 01 f6 a1 3a 10 57 04 f6 a1 37 2c 87 20 3e f0 f0 3a 94 a0 00 01 87 20 31 6c f0 3a f6 a1 32 32 07 80 80 d8 00 0a f6 a1 35 6e f6 a1 31 be a0 43 ┆ : 7 >b : 2' " P T : W 7, > : 1l : 22 5n 1 C┆
0x3eb2…3f02 00 10 8f 20 32 28 01 00 82 58 00 0e f6 a1 32 3a f0 3a 81 14 99 06 82 0c 22 30 50 10 02 0f e2 27 02 ff 91 a0 00 01 19 01 51 04 57 0c 02 00 e2 27 91 a0 00 01 19 01 59 0a 90 00 00 00 00 01 00 00 00 00 00 00 40 40 10 14 00 25 09 0a 21 00 00 09 ┆ 2( X 2: : "0P ' Q W ' Y @@ % ! ┆
0x3f02…3f52 (42, 0, 400) f0 3a 07 00 81 9c 05 00 57 0c f6 a1 37 30 87 56 ff f6 f6 a1 3e 0e f6 a1 32 32 81 d9 00 04 85 59 00 06 a0 59 00 0c e7 59 00 3c 03 00 81 56 00 02 e3 45 ff fe 8f 20 43 80 81 42 00 08 58 14 03 02 5f 16 86 76 ff f8 96 16 f0 3a 80 d8 00 0a 07 8b ┆ : W 70 V > 22 Y Y Y < V E C B X _ v : ┆
0x3f52…3fa2 81 43 00 04 82 43 00 0a f6 a1 35 92 f0 3a 80 d8 00 0a 07 b1 81 43 00 0a f6 a1 35 92 f0 3a 28 04 00 09 87 1c 52 02 f0 3a 9f 1d 81 56 00 02 e7 45 ff fe 81 56 ff f8 87 44 00 06 17 12 27 fe 91 1c 87 24 ef 20 ff ff 88 20 48 68 87 57 ff f6 84 c4 ┆ C C 5 : C 5 :( R : V E V D ' $ Hh W ┆
0x3fa2…3ff2 00 02 f6 a1 32 5e 87 1c 50 04 94 d6 ff f4 8f 20 43 80 e7 58 00 3d 27 ff ef 56 ff f6 57 08 87 56 ff f6 ef 59 00 3d 50 04 f6 a1 32 5e 94 d6 ff f4 f0 3a 07 00 9c d6 ff f4 28 04 00 00 94 d6 ff f4 8f 20 43 80 f6 a1 36 30 01 00 82 22 52 02 01 01 ┆ 2^ P C X =' V W V Y =P 2^ : ( C 60 "R ┆
0x3ff2…4042 82 56 00 02 e1 49 ff fe 8f 20 43 80 f6 a1 36 30 9c d6 ff f4 28 04 00 0a 94 d6 ff f4 01 00 17 01 54 04 01 02 5f 26 82 40 42 32 58 2c 82 40 42 34 f6 89 01 00 5f 36 f6 a1 37 ca 23 30 1b 20 50 06 01 02 8f 20 48 6c 80 a6 07 00 9c d6 ff f4 28 04 ┆ V I C 60 ( T _& @B2X, @B4 _6 7 #0 P Hl ( ┆
0x4042…4092 00 06 94 d6 ff f4 8f 20 43 80 f6 a1 37 ca 23 30 1b 20 54 18 82 a6 f6 a1 37 ca 23 30 1b 20 54 0c 82 56 00 02 a2 a6 f2 01 8f 20 43 80 01 02 8f 20 48 6c 06 02 57 02 06 03 02 28 00 10 00 04 04 00 00 08 20 80 04 00 50 05 00 09 08 20 0a 08 04 80 ┆ C 7 #0 T 7 #0 T V C Hl W ( P ┆
0x4092…40e2 (43, 0, 400) f6 a1 35 ae 8f 20 34 a6 04 00 9e 18 f6 a1 33 84 2f 06 8f 20 34 aa 04 00 06 01 5f 10 f6 a1 36 30 f6 a1 36 e4 f6 a1 36 84 86 18 50 0a f6 a1 37 ca 81 a6 81 c3 00 04 3c 48 af 10 f0 3a 04 00 f6 a1 33 ac 57 f6 f6 a1 36 30 f6 a1 36 84 f6 a1 37 ca ┆ 5 4 3 / 4 _ 60 6 6 P 7 <H : 3 W 60 6 7 ┆
0x40e2…4132 81 c3 00 0e 81 26 50 0a e9 42 00 04 56 04 81 43 00 04 2f 02 3c 48 af 10 e1 22 21 40 8c 20 48 44 f0 3a f6 a1 36 30 f6 a1 36 94 a0 43 00 10 a0 43 00 0a 57 04 f6 a1 36 a0 a0 43 00 12 a0 43 00 04 e1 4a 34 02 af 04 27 ff 57 a8 37 38 31 22 26 24 ┆ &P B V C / <H "!@ HD : 60 6 C C W 6 C C J4 ' W 781"&$┆
0x4132…4182 0b 00 0c 09 33 39 23 24 3b 3c 1c 27 28 29 2a 2b 2c 2d 21 03 0a 00 f6 a1 36 a0 f6 a1 36 e8 f6 a1 36 84 f6 a1 37 ca 81 c3 00 0e 81 a6 50 04 81 c3 00 04 5f 44 f6 a1 36 30 86 42 00 08 f6 a1 37 ca 86 27 57 a2 f6 a1 36 30 9c d6 ff f4 28 04 00 02 ┆ 39#$;< '()*+,-! 6 6 6 7 P _D 60 B 7 'W 60 ( ┆
0x4182…41d2 94 d6 ff f4 57 62 f6 a1 37 ca 84 06 f6 a1 36 94 86 0a f6 a1 36 30 80 bb 9e a0 00 02 1e 01 5c 0e 82 bb 87 1a 9c d6 ff f4 28 04 00 07 94 d6 ff f4 96 8a 96 8a 02 00 83 1a 13 02 12 01 1b 02 e8 ac 5c 08 82 31 57 22 a0 43 00 0e a0 43 00 10 a0 43 ┆ Wb 7 6 60 ( 1W" C C C┆
0x41d2…4222 00 12 82 22 8e 20 48 5c 9c d6 ff f4 28 04 00 01 94 d6 ff f4 27 80 50 2e f6 a1 34 f2 81 c2 00 10 50 24 e1 22 21 02 50 06 f6 a1 42 36 57 18 03 20 e5 42 00 0c 25 ff 50 08 51 21 51 00 95 00 01 28 10 40 00 0a a0 11 10 09 20 00 00 00 10 04 04 09 ┆ " H ( ' P. 4 P$ "! P B6W B % P Q!Q ( @ ┆
0x4222…4272 (44, 0, 400) 01 00 e1 43 00 0c 2b 10 95 06 f6 a1 41 34 8f 20 43 80 f6 a1 35 fe e1 49 ff fe 01 00 e5 22 25 40 50 1a e5 22 25 01 50 26 85 42 00 12 85 43 00 02 a0 43 00 12 81 34 e5 22 35 01 e5 23 85 42 00 04 50 0c 85 42 00 0e 50 06 82 42 00 06 82 35 81 04 ┆ C + A4 C 5 I "%@P "% P& B C C 4 "5 # B P B P B 5 ┆
0x4272…42c2 50 04 81 43 00 0e f0 3a f6 a1 36 30 f6 a1 35 6e f6 a1 3d 02 01 06 f6 a1 35 58 a0 43 00 10 8f 20 34 ee 87 43 00 0a 01 86 87 42 00 10 9c 42 00 02 50 0a 84 43 00 04 af 04 f6 a1 35 92 f0 3a e1 22 21 40 54 06 01 12 8f 20 48 6c 82 56 00 02 a0 49 ┆P C : 60 5n = 5X C 4 C B B P C 5 : "!@T Hl V I┆
0x42c2…4312 ff fe 87 43 00 10 81 c2 00 02 85 42 00 0e 95 06 f0 3a 9c d6 ff f4 28 04 00 01 94 d6 ff f4 27 80 50 0a f6 a1 35 fe e1 04 a9 49 ff fe f0 3a f6 a1 36 30 f6 a1 36 84 81 06 02 00 e2 25 11 01 1d 01 59 08 f6 a1 37 3a 81 c3 00 0a a0 43 00 0c f6 a1 ┆ C B : ( ' P 5 I : 60 6 % Y 7: C ┆
0x4312…4362 37 ca 81 c3 00 0e 81 26 81 84 8d 20 48 0c 99 c2 00 04 89 20 48 0c 81 43 00 04 f6 a1 37 ca 81 c3 00 10 e1 22 21 40 8c 20 48 44 af 18 f0 3a 01 02 82 42 00 08 83 20 80 7f a2 0d 54 14 01 03 83 20 20 00 a2 0d 54 0a 01 01 a2 20 10 00 54 02 01 00 ┆7 & H H C 7 "!@ HD : B T T T ┆
0x4362…43b2 82 56 00 02 f0 3a e7 32 94 a0 00 01 27 c0 57 02 e7 32 85 36 e3 32 82 40 0e d4 22 01 54 0c 23 03 27 0c 3f 44 f6 a1 39 c6 57 2e 27 c0 81 80 23 3f 82 0c 1b 10 8a 20 39 a6 02 a0 00 00 00 05 48 80 04 08 00 00 20 a0 20 82 22 08 00 00 00 08 10 10 ┆ V : 2 ' W 2 6 2 @ " T # ' ?D 9 W.' #? 9 H " ┆