|
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: 36754 (0x8f92)
Notes: pts_type(SC)
Names: »DECONV.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DECONV.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DECONV.SC«
IDENT DECONV REL=1.0,VER=1 820506/NJ UPD 82-02-22/EV UPD 81-08-27/EV UPD 80-12-12/SHB UPD 80-07-14/JAER DDUM DEDDIV PDIV ENTRY DECONV EXT DEPOOL EXT TESTB EXT EMPTYT EXT DERROR EXT ATTDEV ATTACH DEVICE EXT ATTPRT EXT DETPRT EXT MASK EXT GETFWD EXT ADJUST EXT FDIO EJECT * * KEYTABLE * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL RET EQU X'98' RETURN ENT EQU X'8C' ENTER * KEYTAB KTAB CLR,CAN,RET,ENT * * STIMO EQU X'0B' ATTACH EQU X'0E' DETACH EQU X'0F' TRPAR EQU X'00' EJECT * THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS- * -METHODS * ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT). * THE OTHER YOU HAVE TO CODE YOURSELVES. * FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) * = 1 DATACOMMUNICATION OUT * = 2 DATACOMMUNICATION IN * = 3 CASETTE OUTPUT * = 4 PRINTOUT LP/GP * = 5 DISCFILE * = 6 FLOPPYDISC FILE * = 7 DELETE BATCHES ON USERFILE * = 8 FREEZE BATCHES ON USER FILE * = 9 LISTING LP/GP * TYPE = TYPE OF HANDLING * = 1 OPEN * = 2 BATCHHEAD-RECORD * = 3 DATA RECORD * = 4 BALANCE RECORD * = 5 CLOSE * RETCON = RETURN-CODE * = 0 OK * /= 0 ERROR MESSAGE-NUMBER * =-1 SKIP CURR BATCH, GO TO NEXT * =-2 SKIP TO BALANCE * =-3 RESTART CURRENT BATCH (CANCEL) * =-4 ABORT CONVERSION (RETURN) * =-5 DELETE THIS BATCH * =-6 GET CURRENT RECORD * INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE EJECT DECONV PROC FC,TYPE,RETCON IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C PRINTA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE RECEIV DISCFD CASSET ERROR MOVE RETCON,W4 'FUNCTION NOT ALLOWED? B RETURN * * THIS IS THE PRINTOUT FUNCTION * PRINTA IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C PR200,PR500 B ERROR * * OPEN DEVICE = ATTACH PRINTER * PR100 PERF ATTDEV,BIN6 ATTACH DEVICE BOK DECOOK B RETURN EJECT * * * PRINTOUT OF THE DIFFERENT RECORD TYPES * PR200 EDWRT DEDSPRT,FCOUNT BNOK PR298 MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 BNOK PR298 B DECOOK PR298 MOVE RETCON,=W'35' OUTPUT DEVICE NOT OP....' B RETURN GO AND CLOSE * * CLOSE DEVICE = DETACH PRINTER * PR500 PERF DETPRT DETACH DEVICE B RETURN EJECT * * THIS ROUTINE DELETE BATCHES ON THE USERFILE * DELETE IB TYPE,DECOOK,DEL100 B DECOOK DEL100 MOVE RETCON,=W'-5' CBNE WORK(W8),W0,DEL110 NOT THE WHOLE FILE MOVE DATE,HEX00 RESET DATE DEL110 B RETURN EJECT * * THIS ROUTINE FREEZE BATCHES ON USER FILE * FREEZE IB TYPE,FRE100,FRE200,FRE300 OPEN BATCHHEAD DATA C FRE400,FRE500 BALANCE CLOSE * OPEN FRE100 B DECOOK FRE200 B DECOOK FRE300 B DECOOK * BALANCE RECORD FRE400 B DECOOK * CLOSE FRE500 B DECOOK EJECT * * OK * DECOOK MOVE RETCON,W0 RETURN RET EJECT TRANSM IB TYPE,DC100,DC200,DC300 OPEN,BATCHHEAD,DATA C DC300,DC500 BALANCE, CLOSE * * SEND SOF * SEND '001'+DATE * DC100 * * BATCHHEAD RECORD * DC200 DC300 * * TRANSM BLOCKS * * * SEND '999' * SEND EOF * DC500 B DECOOK EJECT * * LISTING * LISTE MOVE BTYPE,TYPE IB TYPE,LS100,LS200,LS300, OPEN,BATCHHEAD,DATA, C LS400,LS500 BALANCE,CLOSE LS100 TBT LSBAB,LS170 PERF GETBUF GET 3 CONSECUTIVE BUFFERS B LS110 OK B LSERR ERROR LS110 MOVE BCDI21(W5),=D'0' RECORD COUNT MOVE WORK(W15),W0 LENGTH HEADER MOVE WORK(W17),W0 LENGTH RECORD NO MOVE WORK(W19),W0 LENGTH SEQUENCE NO CLEAR BCONT CONTINUATION MARK CLEAR BSUPR CLEAR SPLITFL NNO SPLIT CLEAR FIRSTFL INITIATE FIRST RECORD PERF ATTDEV,BIN6 ATTACH DEVICE BNOK LSERR MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FLSHDR MOVE RECLGD,=D'112' * ENT B DECOOK OK LS170 MOVE RETCON,=W'-4' ABORT CONVERSION B LSERRT LSERR MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE LSERRT SET LSBAB B RETURN * * BATCHEAD RECORD * LS200 TBT LSBAB,LS170 TBF BDAFOR,LS250 ANY FORCED FIELDS? EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT SET LSBAB MOVE RETCON,=W'-1' GET NEXT BATCH B RETURN LS250 BATCHHEAD OR BALANCE TBT LSBAB,LS170 MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 BNOK LSERR * CONVERT HEADER TO SET CONVERSION INDICATIONS LS220 MOVE BIN10,WORK(W13) GET BUFFER INDEX MOVE BIN9,BIN10 GET BPOOL INDEX ADD BIN9,W1 MOVE BIN8,W0 RESET FIELD NO MOVE BIN4,W0 LS210 PERF CONV,BIN4,FC B DECOOK ALL DONE B LS210 NOT ALL DONE B LS315 COMP FIELD EMPTY B LS320 BCD FIELD OVERFLOW B LS320 EDIT BUFFER OVERFLOW B DECOOK LS300 TBT FDBAB,LS170 MOVE BIN10,WORK(W13) GET BUFFER INDEX MOVE BIN9,BIN10 GET BPOOL INDEX ADD BIN9,W1 MOVE BIN8,W0 RESET FIELD NUMBER LS310 MOVE BIN4,W0 LS311 PERF CONV,BIN4,FC B DECOOK ALL DONE B LS340 WRITE BLOCKS B LS315 CUMP FIELD EMPTY B LS320 BCD FIELD OVERFLOW B LS320 EDIT BUFFER OVERFLOW LS315 MOVE RETCON,W5 B LSERRT LS320 MOVE RETCON,=W'54' B LSERRT * WRITE BLOCKS LS340 PERF LSWRIT B LS310 OK B LS310 DUMMY B LS310 DUMMY MOVE BIN4,W1 CONTINUE IN SAME BUFFER B LS311 LS400 * BALANCE FORMAT B LS250 LS500 MOVE BIN10,WORK(W13) GET BUFFER INDEX TBT FDBAB,LS560 ABORT B LS570 LS550 CLEAR LSBAB MOVE BIN4,W0 PERF DETPRT * RELEAS BUFFERS PERF DEPOOL,W6,BIN10,BIN4,STRG10A B DECOOK LS560 MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FLSERR B LS550 LS570 MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FLSEND B LS550 EJECT * * FLOPPY DUMPING * FLOPPY MOVE BTYPE,TYPE IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C FD400,FD500 BALANCE,CLOSE * * SEND SOF * SEND '001'+DATE * FD100 TBT FDBAB,FD170 PERF GETBUF GET 3 CONSECUTIVE BUFFERS B FD110 OK B FDERR ERROR FD110 MOVE CWFD,W7 HDR RECORD MOVE REQFD,=W'128' CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN MOVE BIN4,W20 DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD BNOK FDERR PERF FDLOAD B FD140 OK B FDERR ERROR FD140 MOVE BCDI21(W5),=D'0' RECORD COUNT MOVE WORK(W15),W0 LENGTH HEADER MOVE WORK(W17),W0 LENGTH RECORD NO MOVE WORK(W19),W0 LENGTH SEQUENCE NO CLEAR BCONT CONTINUATION MARK CLEAR BSUPR SET SPLITFL NORMAL SPLIT MOVE BIN6,=X'0036' FILE CODE PRINTER PERF ATTDEV,BIN6 ATTACH DEVICE BNOK FDERR MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FFDHDR PERF FDRVOL READ VOLUME LABEL B FD150 OK B FDERR ERR FD150 IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET * ENT FD160 MOVE STR8A,STR8B SAVE FILE NAME MOVE FDCNT,W1 RESET FD COUNTER PERF FDWVOL WRITE VOLUME LABEL B FD165 OK B FDERR ERROR FD165 B DECOOK OK FD170 MOVE RETCON,=W'-4' ABORT CONVERSION B FDERRT FDERR MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE FDERRT SET FDBAB B RETURN FD180 MOVE CWFD,W7 MOVE REQFD,=W'128' CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD *UNLOAD HDR1 MOVE RETCON,=W'55' CHANGE FD B RETURN EJECT * * BATCHEAD RECORD * FD200 TBT FDBAB,FD170 TBF BDAFOR,FD300 ANY FORCED FIELDS? EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT SET FDBAB MOVE RETCON,=W'-1' GET NEXT BATCH B RETURN FD300 TBT FDBAB,FD170 TBT FDEOF,FDEOF10 CBE TYPE,W4,FD305 PRINTING CBE TYPE,W2,FD305 PRINTING B FD308 NO PRINTING FD305 * PRINT BATCH HEAD AND BALANCE RECORD MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 BNOK FDERR FD308 MOVE BIN10,WORK(W13) GET BUFFER INDEX MOVE BIN9,BIN10 GET BPOOL INDEX ADD BIN9,W1 MOVE BIN8,W0 RESET FIELD NUMBER FD310 MOVE BIN4,W0 FD311 PERF CONV,BIN4,FC B DECOOK ALL DONE B FD340 WRITE BLOCKS B FD315 CUMP FIELD EMPTHY B FD320 BCD FIELD OVERFLOW B FD320 EDIT BUFFER OVERFLOW FD315 MOVE RETCON,W5 B FDERRT FD320 MOVE RETCON,=W'54' EDIT ERROR B FDERRT * * WRITE BLOCKS * FD340 PERF FDWRIT B FD310 OK B FD360 ERROR B FDEOF05 EOE MOVE BIN4,W1 CONTINUE IN SAME BUFFER B FD311 FD350 PERF FDLOAD B FD370 OK B FD360 ERROR FD360 MOVE REQFD,=W'128' MOVE CWFD,W7 CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD FD365 MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK PERF DERROR,KEYTAB IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET B FD350 ENT FD370 PERF FDRVOL READ VOLUME LABEL B FD375 OK B FD360 ERROR FD375 IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET * ENT FD380 PERF FDWVOL WRITE VOLUME LABEL B FD382 OK B FD360 ERROE FD382 TBF FDEOF,FD340 NOT EOF MOVE RETCON,=W'-6' GET CURRENT RECORD B RETURN FDEOF05 SET FDEOF INDICATE EOF MOVE WORK(W14),BIN8 SAVE FIELD NO B FD360 FDEOF10 CLEAR FDEOF MOVE BIN10,WORK(W13) GET BUFFER INDEX MOVE BIN9,BIN10 GET BPOOL INDEX ADD BIN9,W1 MOVE BIN8,WORK(W14) GET FIELD NO MOVE REQFD,=W'128' MOVE CWFD,W0 CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS B FD340 EJECT FD400 * BALANCE FORMAT B FD300 FD500 MOVE BIN10,WORK(W13) GET BUFFER INDEX TBT FDBAB,FD560 ABORT MOVE BIN9,BIN10 GET BPOOL INDEX ADD BIN9,W1 EDIT BPOOL(BIN9),FFD999 END OF FILE FD505 ***PERF FDWRIT B FD570 OK B FDERR ERR B FD510 EOE FD510 MOVE REQFD,=W'128' MOVE CWFD,W7 CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD FD515 MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK PERF DERROR,KEYTAB IB DEBINW2,FD520,FD510,FD170 CLR,CAN,RET FD520 PERF FDLOAD B FD525 OK B FD510 ERROR FD525 PERF FDRVOL READ VOLUME LABEL B FD530 OK B FD510 ERROR FD530 IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET * ENT FD535 PERF FDWVOL WRITE VOLUME LABEL B FD540 OK B FD510 ERROR FD540 MOVE REQFD,=W'128' MOVE CWFD,W0 CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS B FD505 FD550 WAIT DSFD CLEAR FDBAB MOVE CWFD,W7 HDR SECTOR MOVE REQFD,=W'128' CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD CLEAR FDEOF RESET EOF MOVE CWFD,W7 MOVE REQFD,=W'128' CALL FDIO,DSFD,X'A2',BPOOL(BIN10),REQFD,CWFD CLOSE MOVE BIN4,W0 DSC1 DSFD,DETACH,BIN4 PERF DETPRT * RELEAS BUFFERS PERF DEPOOL,W6,BIN10,BIN4,STRG10A B DECOOK FD560 MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FFDERR B FD550 FD570 MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FFDEND B FD550 PEND EJECT * * GETBUF GET TWO CONSECUTIVE BUFFERS * * BUFFER INDEX IN WORK(W13) * GETBUF PROC MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 COSECUTIVE BUFFERS BNOK GETBU2 NO BUFFERS AVAIBLE MOVE WORK(W13),BIN10 SAVE BUFFER INDEX MOVE BIN9,BIN10 LOAD WORKING BUFFER INDEX ADD BIN9,W1 INDEX EDIT BUFFER MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER RET GETBU2 RET 2 PEND EJECT * * FDRVOL READ VOLUME LABEL AND DISPLAY * FDRVOL PROC MOVE REQFD,=W'128' MOVE BIN13,BIN10 GET BUFFER INDEX ADD BIN13,W2 ADJUST FOR READ BUFFER MOVE CWFD,W7 CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) XSTAT DSFD,BIN4 MOVE BIN7,=X'086F' CALL MASK,BIN4,BIN7 BNOK FDRV02 MOVE BIN7,=W'66' XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE XCOPY STR8A,W0,W8,BPOOL(BIN13),W5 GET FILE NAME MOVE BIN7,W22 GET RECORD LENGTH XCOPY STR6B,W1,W5,BPOOL(BIN13),BIN7 MOVE RECLGD,STR6B MOVE BIN7,=W'45' XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER ATTFMT FCAS02 SET DEPROMPT DISPLAY 0,W1,W0 THOME MOVE DEBINW3,W1 REQUESTED LENGTH NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2 RET FDRV02 RET 2 PEND EJECT * * FDWVOL WRITE VOLUME LABEL * FDWVOL PROC MOVE BIN7,=W'66' MOVE BIN13,BIN10 GET BUFFER INDEX ADD BIN13,W2 ADJUST FOR READ BUFFER EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE MOVE BIN7,W5 EDSUB BPOOL(BIN13),BIN7,FRMVOL1 VOLUME NAME MOVE BIN7,=W'45' EDSUB BPOOL(BIN13),BIN7,FRMVOL3 FD NUMBER MOVE REQFD,=W'128' REQUESTED LENGTH MOVE CWFD,W7 CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1) XSTAT DSFD,BIN4 MOVE BIN7,=X'024F' CALL MASK,BIN4,BIN7 BNOK FDWVO2 ADD FDCNT,=D'1' UPDATE FD NUMBER MOVE CWFD,=W'26' HDR RECORD MOVE REQFD,=W'128' REQUESTED LENGTH CALL FDIO,DSFD,X'B1',BPOOL(BIN13),REQFD,CWFD REWIND RET FDWVO2 RET 2 PEND EJECT * * LSWRIT WRITE BLOCKS * LSWRIT PROC LSWR00 * BIN16 NO OF CHARS TO SEND * BIN4 AVAILABLE SPACE IN OUTPUT BUFFER * DEBIN3 LENGTH OF HEADER * BIN15 ACTUAL LENGTH OF INPUT DATA USED CMP BIN16,W0 BE LSWRRET NODATA=NOWRITE MOVE BIN4,RECLGD SET RECORD LENGTH ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO CBE BCDI21(W4),=D'1',LSWR50 * NOT FIRST TIME (SEQUENCE NO > 1) * COPY HEADER PART, LENGTH IN WORK(W15) SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER MOVE DEBIN3,WORK(W15) START POINT B LSWR55 LSWR50 * FIRST OUTPUT RECORD FOR THIS INPUT RECORD MOVE DEBIN3,W0 START POINT * LSWR55 CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING? NO ROOM TBT SPLITFL,LSWR57 NORMAL SPLIT FIND PRECEDING & MOVE DEBIN1,BIN4 START AT END OF RECORD MOVE STR2A,=C'&&' LOOK FOR & LSWR56 SUB DEBIN1,W1 CBNG DEBIN1,W0,LSWR57 NO & MOVE DEBIN2,DEBIN1 MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 BNOK LSWR56 NOT FOUND MOVE BIN15,DEBIN2 B LSWR59 *NORMAL SPLIT LSWR57 MOVE BIN15,BIN4 B LSWR59 * NO OF CHARS, FIT IN AVAILABLE ROOM LSWR58 MOVE BIN15,BIN16 SEND ALL CHARS * LSWR59 XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST * MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER * BIN4 = NO OF CHARS IN OUTPUT BUFFER MOVE BIN4,BIN15 ADD BIN4,DEBIN3 ADD HEADER * MOVE DEBIN1,RECLGD SUB DEBIN1,BIN4 NO OF BLANKS XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS * LSWR60 * INSERT RECORD NO - BCDI21(W5) CBE WORK(W17),W0,LSWR70 SKIP IF LENGTH ZERO MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO MOVE DEBIN1,W10 LENGTH FIELD SUB DEBIN1,WORK(W17) FIND START OF NO XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 * LSWR70 * INSERT SEQUENCE NO - BCDI21(W4) CBE WORK(W19),W0,LSWR80 SKIPIF LENGTH ZERO MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO MOVE DEBIN1,W10 LENGTH FIELD SUB DEBIN1,WORK(W19) FIELD START OF NO XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 * LSWR80 * HANDLE END OF RECORD CBG BIN16,BIN15,LSWR100 NO ROOM, CONT * INSERT EOR B LSWRSEND * LSWR100 INSRT BPOOL(BIN10),W0,W2,INSERT,W0 MOVE DEBIN1,RECLGD ADD DEBIN1,W2 WRITE DEDSPRT,BPOOL(BIN10),DEBIN1 DLETE BPOOL(BIN10),W0,W2 MOVE CWFD,W0 DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND SUB BIN16,BIN15 MOVE BIN13,BIN16 CMP VSEIND,W1 BE LSWR00 WRITE RESET OF BUFFER RET 6 * LSWRSEND INSRT BPOOL(BIN10),W0,W2,INSERT,W0 MOVE DEBIN1,RECLGD ADD DEBIN1,W2 WRITE DEDSPRT,BPOOL(BIN10),DEBIN1 DLETE BPOOL(BIN10),W0,W2 LSWRRET RET PEND EJECT * * FDWRIT WRITE BLOCKS * FDWRIT PROC FDWR00 WAIT DSFD XSTAT DSFD,BIN4 CALL TESTB,BIN4,W2 EOE BZ FDWR10 RET 4 END OF EXTENT FDWR10 MOVE BIN7,=X'024F' CALL MASK,BIN4,BIN7 BERR FDWR20 IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL FDWROP FDWRCL B FDWR20 FDWRHD BATCH HEADER MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER MOVE BIN4,RECLGD XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0 B FDWRSEND * FDWRDATA * BIN16 NO OF CHARS TO SEND * BIN4 AVAILABLE SPACE IN OUTPUT BUFFER * DEBIN3 LENGTH OF HEADER * BIN15 ACTUAL LENGTH OF INPUT DATA USED CMP BIN16,W0 BE FDWRRET NO DATA= NO WRITE MOVE BIN4,RECLGD SET RECORD LENGTH ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO CBE BCDI21(W4),=D'1',FDWR50 * NOT FIRST TIME (SEQUENCE NO > 1) * COPY HEADER PART, LENGTH IN WORK(W15) SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER MOVE DEBIN3,WORK(W15) START POINT B FDWR55 * FDWR50 * FIRST OUTPUT RECORD FOR THIS INPUT RECORD MOVE DEBIN3,W0 START POINT * FDWR55 CBL BIN16,BIN4,FDWR58 ROOM FOR EVERYTHING? NO ROOM TBT SPLITFL,FDWR57 NORMAL SPLIT FIND PRECEDING & MOVE DEBIN1,BIN4 START AT END OF RECORD MOVE STR2A,=C'&&' LOOK FOR & FDWR56 SUB DEBIN1,W1 CBNG DEBIN1,W0,FDWR57 NO & MOVE DEBIN2,DEBIN1 MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1 BNOK FDWR56 NOT FOUND MOVE BIN15,DEBIN2 B FDWR59 * NORMAL SPLIT, USE COMPLETE AVAILABLE ROOM FDWR57 MOVE BIN15,BIN4 B FDWR59 * NO OF CHARS, FIT IN AVAILABLE ROOM FDWR58 MOVE BIN15,BIN16 SEND ALL CHARS * FDWR59 XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST * MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER * BIN4 = NO OF CHARS IN OUTPUT BUFFER MOVE BIN4,BIN15 ADD BIN4,DEBIN3 ADD HEADER * MOVE DEBIN1,RECLGD SUB DEBIN1,BIN4 NO OF BLANKS XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS * FDWR60 * INSERT RECORD NO - BCDI21(W5) CBE WORK(W17),W0,FDWR70 SKIP IF LENGTH ZERO MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO MOVE DEBIN1,W10 LENGTH FIELD SUB DEBIN1,WORK(W17) FIND START OF NO XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1 * FDWR70 * INSERT SEQUENCE NO - BCDI21(W4) CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO MOVE DEBIN1,W10 LENGTH FIELD SUB DEBIN1,WORK(W19) FIELD START OF NO XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1 * FDWR80 * HANDLE END OF RECORD CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION * INSERT EOR MOVE STR2A,=X'7F' EOR CHAR XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 INSERT EOR B FDWRSEND * FDWR100 * CHECK IF CONTINUATION CHAR NEEDED TBF BCONT,FDWR150 * CONTINUATION MOVE DEBIN1,RECLGD CBNE BIN4,DEBIN1,FDWR140 SUB BIN4,W1 SUB BIN15,W1 FDWR140 MOVE STR2A,=X'21' CONTINUATION MARK XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 FDWR150 MOVE REQFD,=W'128' MOVE CWFD,W0 CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD MOVE CWFD,W0 DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND SUB BIN16,BIN15 MOVE BIN13,BIN16 CMP VSEIND,W1 BE FDWR00 WRITE REST OF BUFFER RET 6 * FDWRBAL MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER EDIT BPOOL(BIN9),FFD999 MOVE BIN4,RECLGD XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0 B FDWRSEND * * FDWRSEND MOVE REQFD,=W'128' MOVE CWFD,W0 CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS FDWRRET RET FDWR20 RET 2 PEND EJECT * * FDLOAD LOAD FD PROCEDURE * FDLOAD PROC MOVE CWFD,W7 HDR RECORD MOVE REQFD,=W'128' CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD XSTAT DSFD,BIN4 CALL TESTB,BIN4,W5 IBM BZ FDLOA2 MOVE BIN7,=X'000F' CALL MASK,BIN4,BIN7 BNOK FDLOA2 RET FDLOA2 MOVE CWFD,W7 HDR RECORD MOVE REQFD,=W'128' CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD RET 2 PEND EJECT * * CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER * RET =RECORD CONVERTED * RET 2 =TRANSMIT * RET 4 =CUMPULSORY FIELD EMPTHY * RET 6 =BCD-FIELD OVERFLOW * RET 8 =EDIT BUFFER OVERFLOW * * APPL = FIELD INTO BUFFER * APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK * APPL = 2 NO TRANSMIT FIELD * APPL = 3 SUPPRESS LEADING ZEROES (IF HEADER:SETR GENEREL) * APPL = 4 LENGTH OF FIELD=MAXL (IF HEADER: SET GENERAL) * LISTE: ALWAYS SET * FOLLOWING APPL ONLY USED IN BATCHHEADER * APPL = 13 EOR-CHAR AS END OF EACH RECORD * LISTE: ALWAYS CLEAR * APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED * LISTE: ALWAYS CLEAR * APPL = 15 INSERT BACHNAME IN THIS FIELD * APPL = 16 FIELDS (STARTING WITH &) ARE NOT SPLIT * LSTE: ALWAYS CLEAR * * APPL = 1XXX XXX=LENGTH OF RECORD HEADER * APPL = 2XXX THIS FIELD IS THE RECORD NUMBER FIELD * APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD * * BIN4 = WORK ITEM * BIN7 = MAX LENGTH * BIN8 = FIELD NUMBER * BIN9 = INDEX TO EDIT BUFFER * BIN13= DELETE START POINTER * BIN16= EDIT POINTER * * BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD * STRG10A = WORK STRING FOR DATE/TIME/CONVERTED BCD * WORK(W15) = LENGTH OF HEADER * WORK(W16) = RECORD NUMBER POSITION * WORK(W17) = RECORD NUMBER LENGTH * WORK(W18) = CONTINUATION SEQUENCE POSITION * WORD(W19) = CONTINUATION SEQUENCE LENGTH * BCDI21(W4) = CONTINUATION SEQUENCE NUMBER * BCDI21(W5) = RECORD NUMBER * CONV PROC CONT,FC CBG CONT,W0,CON100 CON090 MOVE BPOOL(BIN9),=X'20' MOVE BCDI21(W4),=D'0' RESET SEQUENCE NO MOVE BIN13,W0 RESET DELETE POINTER MOVE BIN16,BIN13 LOAD EDIT POINTER CON100 CLEAR FSUPR TBF BSUPR,CON105 SET FSUPR CON105 ADD BIN8,W1 UPDATE FIELD NUMBER CALL GETFWD,BIN7,2,BIN8,BIN4 CALL ADJUST,BIN7 BOK CON130 BN CONRET ALL FIELD DONE B CONER1 COMPULSORY FIELD EMPTHY CON130 GETCTL 0,VSEIND GET APPL * CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADER CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO MOVE VSEIND,W2 CLEAR ERROR APPL B CON131 * * HANDLE RECORD HEADER: * APPL=1000, WHERE XXX=LENGTH OF RECORD HEADER APL1000 SUB VSEIND,=W'1000' MOVE WORK(W15),VSEIND WORK(W15) = LENGTH OF HEADER SET FIRSTFL FIRST TIME B CON100 * * HANDLE POSITION AND LENGTH OF RECORD NO APL2000 MOVE WORK(W16),BIN16 SET START POS OF RECORD NO GETCTL 1,BIN7 GET MAXL OF FIELD MOVE WORK(W17),BIN7 SET LENGTH OF RECORD NO SUB VSEIND,=W'2000' ADJUST APPL VALUE B CON131 FURTHER HANDLING * * HANDLE POSITION AND LENGTH OF SEQUENCE NO APL3000 MOVE WORK(W18),BIN16 SET START POSITION OF SEQUENCE NO GETCTL 1,BIN7 GET MAXL OF FIELD MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE NO SUB VSEIND,=W'3000' ADJUST APPL VALUE B CON131 FURTHER HANDLING * * CON131 * CBNE BTYPE,W3,CON150 * DATA RECORD IB VSEIND,CON132,CON100,CON135,CON140 CON132 B CON190 * CON135 * SUPPRESS LEADING ZEROES SET FSUPR B CON190 * CON140 * NO SUPPRESSION CLEAR FSUPR B CON190 * * CON150 * IN HEADER, SET GENERAL CONDITIONS IB VSEIND,CON152,CON100,CON155,CON160,CON152, C CON152,CON152,CON152,CON152,CON152, C CON152,CON152,CON165,CON170,CON175,CON180 CON152 B CON190 * CON155 * GENERAL SUPPRESS LEADING ZEROES SET BSUPR B CON100 * CON160 * GENERAL NO SUPPRESSION CBE W9,FC,CON100 LISTE: ALWAYS SET CLEAR BSUPR B CON100 * CON165 * EOR CHARACTER B CON100 * CON170 * CONTINUATION CHARACTER CBE W9,FC,CON100 LISTE: ALWAYS CLEAR SET BCONT INDICATE CONT. CHAR NEEDED B CON100 * CON175 * INSERT BATCH NAME MOVE BIN7,W6 MOVE BIN4,W188 SUB BIN4,BIN7 LENGTH FIELD SUB BIN4,BIN16 EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME B CON260 * CON180 * FIELDS (STARTING WITH &) ARE NOT SPLIT CLEAR SPLITFL NOT NORMAL SPLIT B CON100 * * CON190 CBE W9,FC,CON195 LISTE: ALL FIELDS INCLUDED TBF FSUPR,CON195 CALL EMPTYT,:FMTITEM TEST IF EMPTY BNZ CON280 EMPTY, IGNORE FIELD CON195 GETCTL 1,BIN7 GET MAXL TSTCTL 0 TEST - ALPHA BZ CON200 BCD * ALPHA MOVE BIN4,W188 GET EDIT BUFFER LENGTH SUB BIN4,BIN7 ADJUST WITH MAX LENGTH SUB BIN4,BIN16 ADJUST WITH EDIT POINTER BN CONER3 EDSUB BPOOL(BIN9),BIN16,FRMALP B CON260 EJECT * BCD CON200 CBG BIN7,W21,CONER2 BCD-OVERFLOW MOVE BIN4,W188 GET EDIT BUFFER LENGTH SUB BIN4,BIN7 ADJUST WITH MAX LENGTH SUB BIN4,BIN16 ADJUST WITH EDIT POINTER BN CONER3 GETCTL 3,BIN4 GET SCHK CALL TESTB,BIN4,W15 SIGN BZ CON220 NO TBF FSUPR,CON210 CBE W9,FC,CON205 EDSUB BPOOL(BIN9),BIN16,FRMTCS MOVE BIN13,BIN16 B CON280 CON205 IF LISTE EDSUB BPOOL(BIN9),BIN16,FRMZCS EDIT 21 DIGITS B CON215 CON210 EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS CON215 MOVE BIN4,W22 SET PICTURE LENGTH ADD BIN7,W1 ADJUST POINTER FOR SIGN B CON250 CON220 TBF FSUPR,CON230 CBE W9,FC,CON225 EDSUB BPOOL(BIN9),BIN16,FRMTCD MOVE BIN13,BIN16 B CON280 CON225 IF LISTE EDSUB BPOOL(BIN9),BIN16,FRMZCD B CON235 CON230 EDSUB BPOOL(BIN9),BIN16,FRMBCD CON235 MOVE BIN4,W21 SET PICUTR LENGTH CON250 SUB BIN4,BIN7 SET DELETE LENGTH DELETE BPOOL(BIN9),BIN13,BIN4 DELETE ADDED ZEROES CON260 ADD BIN13,BIN7 ADJUST DELETE/EDIT POINTER MOVE BIN16,BIN13 LOAD EDIT POINTER CON280 CBNE W9,FC,CON290 EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER TBF FIRSTFL,CON285 NOT FIRST HEADER CBNE BTYPE,W3,CON285 NOT NORMAL TRANS CBL BIN16,WORK(W15),CON283 CLEAR FIRSTFL OUT OF FIRST HEADER CON283 IN FIRST HEADER ADD WORK(W15),W1 CON285 MOVE BIN13,BIN16 CON290 CBE VSEIND,W1,CONTRM APPL =1 TRANSM MOVE BIN4,RECLGD CBG BIN16,BIN4,CONTRM B CON100 EJECT CONRET RET ALL DONE CONTRM RET 2 WRITE/TRANSMIT BLOCK CONER1 RET 4 CUMPULSORY FIELD EMPTHY CONER2 RET 6 BCD FIELD OVERFLOW CONER3 RET 8 EDIT BUFFER OVERFLOW PEND EJECT * * FORMATS * FRMFILL FRMT FILLR ' ',1 FMEND FCOUNT FRMT FTEXT ' 1' FEOR NEW PAGE FILLR ' ',2 FILLR '*',10 FTEXT 'NUMBER: ' FMEL '9999',NUMBER FEOR FILLR ' ',2 FEOR FMEND FRMVOL1 FRMT FCOPY STR8A FMEND FRMVOL2 FRMT FMEL '999999',DATE FMEND FRMVOL3 FRMT FMEL '99',FDCNT FMEND FBATC3 FRMT FLINK FBATCH FTEXT 'EJ GODKENDT' FEOR FMEND FBATCH FRMT FNL FEOR FNL FTEXT 'JOBNAME: ' FCOPY JOBNAME FILLR ' ',4 FTEXT 'BATCHNAME: ' FCOPY BATCH FILLR ' ',4 FMEND FMTBATCH FRMT FCOPY BATCH FMEND FFDHDR FRMT FNL FEOR FNL FCOPY ='FLOPPY DISC SKRIVNING' FLINK HDR FMEND FFDEND FRMT FNL FEOR FNL FCOPY ='FLOPPY DISC SKRIVNING' FTEXT ' KLAR' FLINK HDR FEOR FNL FMEND FFDERR FRMT FNL FEOR FNL FCOPY ='FLOPPY DISC SKRIVNING' FTEXT ' AFBRYDES' FLINK HDR FEOR FNL FMEND FLSHDR FRMT FNL FEOR FNL FCOPY ='LISTNING' FLINK HDR FMEND FLSEND FRMT FNL FEOR FNL FCOPY ='LISTNING' FCOPY =' KLAR' FLINK HDR FEOR FNL FMEND FLSERR FRMT FNL FEOR FNL FCOPY ='LISTNING' FCOPY =' AFBRYDES' FLINK HDR FEOR FNL FMEND HDR FRMT FILLR ' ',4 FTEXT 'DATO: ' FMEL '99-99-99',DATE FILLR ' ',4 FTEXT 'TID: ' FMEL '99-99-99',TIME FEOR FNL FTEXT 'IND: ' FMEL '99999',NUMBER FTEXT ' UD: ' FMEL '99999',BCDI21(W5) FEOR FNL FMEND FCAS02 FRMT FSL FCOPY =C'DEVICE' FILLR ':',1 FINP 9 FCOPY STSAVE(W3) FTAB 20 FCOPY =C'FILE' FILLR '-',1 FCOPY =C'NAME' FILLR ':',1 FINP 32 FCOPY STR8B FNL FCOPY =C'EXPIRATION DATE:' FINP 32 FCOPY STR6A FNL FCOPY =C'OLD DATA SET IDENTIFIER:' FINP 32 FCOPY STR8A FNL FCOPY =C'OLD VOLUME SEQUENCE NO:' FINP 32 FCOPY STR2A FNL FKI 1 FCOPY HEX00 FMEND FFD999 FRMT FTEXT =C'SLUTD' FMEL '99999',BCDI21(W5) FILLR ' ',60 FILLR ' ',62 FMEND FRMALP FRMT FCOPY :FMTITEM FMEND FRMTCD FRMT FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM FMEND FRMTCS FRMT FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM FMEND FRMZCD FRMT FMEL 'ZZZZZZZZZZZZZZZZZZZZ9',:FMTITEM FMEND FRMZCS FRMT FMEL 'ZZZZZZZZZZZZZZZZZZZZ9-',:FMTITEM FMEND FRMBCD FRMT FMEL '999999999999999999999',:FMTITEM FMEND FRMBCS FRMT FMEL '999999999999999999999-',:FMTITEM FMEND END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DECONV REL=1.0,VER=1 820506/NJ «, t00=0x0000, t01=0x0004}
0x002e…0048 Head {h00=0x0016, h01=0x0050, text=» UPD 82-02-22/EV«, t00=0x0000, t01=0x0032}
0x0048…0062 Head {h00=0x0016, h01=0x0050, text=» UPD 81-08-27/EV«, t00=0x0000, t01=0x004c}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» UPD 80-12-12/SHB «, t00=0x0000, t01=0x0066}
0x007e…009a Head {h00=0x0018, h01=0x0050, text=» UPD 80-07-14/JAER«, t00=0x0000, t01=0x0082}
0x009a…00ae Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x009e}
0x00ae…00bc Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x00b2}
0x00bc…00d2 Head {h00=0x0012, h01=0x0050, text=» ENTRY DECONV «, t00=0x0000, t01=0x00c0}
0x00d2…00da Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00d6}
0x00da…00e2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00de}
0x00e2…00f6 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0000, t01=0x00e6}
0x00f6…0108 Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0000, t01=0x00fa}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0000, t01=0x010c}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x0120}
0x0130…0152 Head {h00=0x001e, h01=0x0050, text=» EXT ATTDEV ATTACH DEVICE «, t00=0x0000, t01=0x0134}
0x0152…0166 Head {h00=0x0010, h01=0x0050, text=» EXT ATTPRT «, t00=0x0000, t01=0x0156}
0x0166…017a Head {h00=0x0010, h01=0x0050, text=» EXT DETPRT «, t00=0x0000, t01=0x016a}
0x017a…018c Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0000, t01=0x017e}
0x018c…01a0 Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0000, t01=0x0190}
0x01a0…01b4 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0001, t01=0x0014}
0x01b4…01c6 Head {h00=0x000e, h01=0x0050, text=» EXT FDIO «, t00=0x0001, t01=0x0028}
0x01c6…01d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x003a}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…01f6 Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0001, t01=0x0052}
0x01f6…0200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x0200…021c Head {h00=0x0018, h01=0x0050, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x0074}
0x021c…0238 Head {h00=0x0018, h01=0x0050, text=»CAN EQU X'91' CANCEL«, t00=0x0001, t01=0x0090}
0x0238…0254 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'98' RETURN«, t00=0x0001, t01=0x00ac}
0x0254…0270 Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'8C' ENTER «, t00=0x0001, t01=0x00c8}
0x0270…027a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x027a…029e Head {h00=0x0020, h01=0x0050, text=»KEYTAB KTAB CLR,CAN,RET,ENT «, t00=0x0001, t01=0x00ee}
0x029e…02a6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0112}
0x02a6…02ae Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x011a}
0x02ae…02b6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0122}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02c0…02ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0134}
0x02ca…02d2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x013e}
0x02d2…02ea Head {h00=0x0014, h01=0x0050, text=»STIMO EQU X'0B' «, t00=0x0001, t01=0x0146}
0x02ea…0302 Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0001, t01=0x015e}
0x0302…031a Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0001, t01=0x0176}
0x031a…0332 Head {h00=0x0014, h01=0x0050, text=»TRPAR EQU X'00' «, t00=0x0001, t01=0x018e}
0x0332…0340 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0016}
0x0340…0384 Head {h00=0x0040, h01=0x0050, text=»* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS-«, t00=0x0002, t01=0x0024}
0x0384…039e Head {h00=0x0016, h01=0x0050, text=»* -METHODS «, t00=0x0002, t01=0x0068}
0x039e…03e2 Head {h00=0x0040, h01=0x0050, text=»* ONE OF THEM IS ALREADY PREPAIRED FOR YOUR PRINTOUT).«, t00=0x0002, t01=0x0082}
0x03e2…0418 Head {h00=0x0032, h01=0x0050, text=»* THE OTHER YOU HAVE TO CODE YOURSELVES.«, t00=0x0002, t01=0x00c6}
0x0418…0460 Head {h00=0x0044, h01=0x0050, text=»* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS)«, t00=0x0002, t01=0x00fc}
0x0460…04a4 Head {h00=0x0040, h01=0x0050, text=»* = 1 DATACOMMUNICATION OUT «, t00=0x0002, t01=0x0144}
0x04a4…04e6 Head {h00=0x003e, h01=0x0050, text=»* = 2 DATACOMMUNICATION IN«, t00=0x0002, t01=0x0188}
0x04e6…0522 Head {h00=0x0038, h01=0x0050, text=»* = 3 CASETTE OUTPUT«, t00=0x0003, t01=0x003a}
0x0522…055e Head {h00=0x0038, h01=0x0050, text=»* = 4 PRINTOUT LP/GP«, t00=0x0003, t01=0x0076}
0x055e…0594 Head {h00=0x0032, h01=0x0050, text=»* = 5 DISCFILE«, t00=0x0003, t01=0x00b2}
0x0594…05d2 Head {h00=0x003a, h01=0x0050, text=»* = 6 FLOPPYDISC FILE «, t00=0x0003, t01=0x00e8}
0x05d2…061a Head {h00=0x0044, h01=0x0050, text=»* = 7 DELETE BATCHES ON USERFILE«, t00=0x0003, t01=0x0126}
0x061a…0664 Head {h00=0x0046, h01=0x0050, text=»* = 8 FREEZE BATCHES ON USER FILE «, t00=0x0003, t01=0x016e}
0x0664…06a0 Head {h00=0x0038, h01=0x0050, text=»* = 9 LISTING LP/GP «, t00=0x0004, t01=0x0028}
0x06a0…06dc Head {h00=0x0038, h01=0x0050, text=»* TYPE = TYPE OF HANDLING«, t00=0x0004, t01=0x0064}
0x06dc…070e Head {h00=0x002e, h01=0x0050, text=»* = 1 OPEN«, t00=0x0004, t01=0x00a0}
0x070e…074c Head {h00=0x003a, h01=0x0050, text=»* = 2 BATCHHEAD-RECORD«, t00=0x0004, t01=0x00d2}
0x074c…0786 Head {h00=0x0036, h01=0x0050, text=»* = 3 DATA RECORD «, t00=0x0004, t01=0x0110}
0x0786…07c2 Head {h00=0x0038, h01=0x0050, text=»* = 4 BALANCE RECORD«, t00=0x0004, t01=0x014a}
0x07c2…07f6 Head {h00=0x0030, h01=0x0050, text=»* = 5 CLOSE «, t00=0x0004, t01=0x0186}
0x07f6…082e Head {h00=0x0034, h01=0x0050, text=»* RETCON = RETURN-CODE «, t00=0x0005, t01=0x002a}
0x082e…085e Head {h00=0x002c, h01=0x0050, text=»* = 0 OK«, t00=0x0005, t01=0x0062}
0x085e…08a0 Head {h00=0x003e, h01=0x0050, text=»* /= 0 ERROR MESSAGE-NUMBER«, t00=0x0005, t01=0x0092}
0x08a0…08ea Head {h00=0x0046, h01=0x0050, text=»* =-1 SKIP CURR BATCH, GO TO NEXT «, t00=0x0005, t01=0x00d4}
0x08ea…0928 Head {h00=0x003a, h01=0x0050, text=»* =-2 SKIP TO BALANCE «, t00=0x0005, t01=0x011e}
0x0928…0974 Head {h00=0x0048, h01=0x0050, text=»* =-3 RESTART CURRENT BATCH (CANCEL)«, t00=0x0005, t01=0x015c}
0x0974…09bc Head {h00=0x0044, h01=0x0050, text=»* =-4 ABORT CONVERSION (RETURN) «, t00=0x0006, t01=0x0018}
0x09bc…09fc Head {h00=0x003c, h01=0x0050, text=»* =-5 DELETE THIS BATCH «, t00=0x0006, t01=0x0060}
0x09fc…0a3e Head {h00=0x003e, h01=0x0050, text=»* =-6 GET CURRENT RECORD «, t00=0x0006, t01=0x00a0}
0x0a3e…0a7c Head {h00=0x003a, h01=0x0050, text=»* INPUT VARIABLE: BIN4 = FC-CODE FOR DEVICE«, t00=0x0006, t01=0x00e2}
0x0a7c…0a8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0120}
0x0a8a…0aac Head {h00=0x001e, h01=0x0050, text=»DECONV PROC FC,TYPE,RETCON«, t00=0x0006, t01=0x012e}
0x0aac…0ae6 Head {h00=0x0036, h01=0x0050, text=» IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C«, t00=0x0006, t01=0x0150}
0x0ae6…0b18 Head {h00=0x002e, h01=0x0050, text=» PRINTA,DISCFD,FLOPPY,DELETE,FREEZE,LISTE«, t00=0x0006, t01=0x018a}
0x0b18…0b26 Head {h00=0x000a, h01=0x0050, text=»RECEIV«, t00=0x0007, t01=0x002c}
0x0b26…0b34 Head {h00=0x000a, h01=0x0050, text=»DISCFD«, t00=0x0007, t01=0x003a}
0x0b34…0b42 Head {h00=0x000a, h01=0x0050, text=»CASSET«, t00=0x0007, t01=0x0048}
0x0b42…0b50 Head {h00=0x000a, h01=0x0050, text=»ERROR «, t00=0x0007, t01=0x0056}
0x0b50…0b7e Head {h00=0x002a, h01=0x0050, text=» MOVE RETCON,W4 'FUNCTION NOT ALLOWED?«, t00=0x0007, t01=0x0064}
0x0b7e…0b90 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0007, t01=0x0092}
0x0b90…0b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b9a…0bc8 Head {h00=0x002a, h01=0x0050, text=»* THIS IS THE PRINTOUT FUNCTION«, t00=0x0007, t01=0x00ae}
0x0bc8…0bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x0bd2…0be0 Head {h00=0x000a, h01=0x0050, text=»PRINTA«, t00=0x0007, t01=0x00e6}
0x0be0…0c1e Head {h00=0x003a, h01=0x0050, text=» IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C «, t00=0x0007, t01=0x00f4}
0x0c1e…0c34 Head {h00=0x0012, h01=0x0050, text=» PR200,PR500 «, t00=0x0007, t01=0x0132}
0x0c34…0c44 Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0007, t01=0x0148}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4e…0c7c Head {h00=0x002a, h01=0x0050, text=»* OPEN DEVICE = ATTACH PRINTER «, t00=0x0007, t01=0x0162}
0x0c7c…0c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c86…0c94 Head {h00=0x000a, h01=0x0050, text=»PR100 «, t00=0x0008, t01=0x000a}
0x0c94…0cbc Head {h00=0x0024, h01=0x0050, text=» PERF ATTDEV,BIN6 ATTACH DEVICE «, t00=0x0008, t01=0x0018}
0x0cbc…0cd0 Head {h00=0x0010, h01=0x0050, text=» BOK DECOOK «, t00=0x0008, t01=0x0040}
0x0cd0…0ce2 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0008, t01=0x0054}
0x0ce2…0cf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0066}
0x0cf0…0cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0074}
0x0cfa…0d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007e}
0x0d04…0d3c Head {h00=0x0034, h01=0x0050, text=»* PRINTOUT OF THE DIFFERENT RECORD TYPES «, t00=0x0008, t01=0x0088}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d54 Head {h00=0x000a, h01=0x0050, text=»PR200 «, t00=0x0008, t01=0x00ca}
0x0d54…0d72 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FCOUNT «, t00=0x0008, t01=0x00d8}
0x0d72…0d86 Head {h00=0x0010, h01=0x0050, text=» BNOK PR298 «, t00=0x0008, t01=0x00f6}
0x0d86…0d9e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0008, t01=0x010a}
0x0d9e…0dc0 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0008, t01=0x0122}
0x0dc0…0dd4 Head {h00=0x0010, h01=0x0050, text=» BNOK PR298 «, t00=0x0008, t01=0x0144}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0008, t01=0x0158}
0x0de6…0df4 Head {h00=0x000a, h01=0x0050, text=»PR298 «, t00=0x0008, t01=0x016a}
0x0df4…0e2a Head {h00=0x0032, h01=0x0050, text=» MOVE RETCON,=W'35' OUTPUT DEVICE NOT OP....' «, t00=0x0008, t01=0x0178}
0x0e2a…0e48 Head {h00=0x001a, h01=0x0050, text=» B RETURN GO AND CLOSE«, t00=0x0009, t01=0x001e}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e52…0e80 Head {h00=0x002a, h01=0x0050, text=»* CLOSE DEVICE = DETACH PRINTER «, t00=0x0009, t01=0x0046}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e8a…0e98 Head {h00=0x000a, h01=0x0050, text=»PR500 «, t00=0x0009, t01=0x007e}
0x0e98…0eba Head {h00=0x001e, h01=0x0050, text=» PERF DETPRT DETACH DEVICE«, t00=0x0009, t01=0x008c}
0x0eba…0ecc Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0009, t01=0x00ae}
0x0ecc…0eda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00c0}
0x0eda…0ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee4…0f20 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE DELETE BATCHES ON THE USERFILE «, t00=0x0009, t01=0x00d8}
0x0f20…0f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f2a…0f38 Head {h00=0x000a, h01=0x0050, text=»DELETE«, t00=0x0009, t01=0x011e}
0x0f38…0f56 Head {h00=0x001a, h01=0x0050, text=» IB TYPE,DECOOK,DEL100«, t00=0x0009, t01=0x012c}
0x0f56…0f68 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0009, t01=0x014a}
0x0f68…0f76 Head {h00=0x000a, h01=0x0050, text=»DEL100«, t00=0x0009, t01=0x015c}
0x0f76…0f92 Head {h00=0x0018, h01=0x0050, text=» MOVE RETCON,=W'-5' «, t00=0x0009, t01=0x016a}
0x0f92…0fc6 Head {h00=0x0030, h01=0x0050, text=» CBNE WORK(W8),W0,DEL110 NOT THE WHOLE FILE «, t00=0x0009, t01=0x0186}
0x0fc6…0fea Head {h00=0x0020, h01=0x0050, text=» MOVE DATE,HEX00 RESET DATE «, t00=0x000a, t01=0x002a}
0x0fea…0ff8 Head {h00=0x000a, h01=0x0050, text=»DEL110«, t00=0x000a, t01=0x004e}
0x0ff8…100a Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000a, t01=0x005c}
0x100a…1018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x006e}
0x1018…1022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007c}
0x1022…1054 Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE FREEZE BATCHES ON USER FILE«, t00=0x000a, t01=0x0086}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b8}
0x105e…1066 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00c2}
0x1066…1074 Head {h00=0x000a, h01=0x0050, text=»FREEZE«, t00=0x000a, t01=0x00ca}
0x1074…10b0 Head {h00=0x0038, h01=0x0050, text=» IB TYPE,FRE100,FRE200,FRE300 OPEN BATCHHEAD DATA C «, t00=0x000a, t01=0x00d8}
0x10b0…10d6 Head {h00=0x0022, h01=0x0050, text=» FRE400,FRE500 BALANCE CLOSE «, t00=0x000a, t01=0x0114}
0x10d6…10de Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x013a}
0x10de…10ec Head {h00=0x000a, h01=0x0050, text=»* OPEN«, t00=0x000a, t01=0x0142}
0x10ec…10f4 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0150}
0x10f4…1102 Head {h00=0x000a, h01=0x0050, text=»FRE100«, t00=0x000a, t01=0x0158}
0x1102…1114 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000a, t01=0x0166}
0x1114…1122 Head {h00=0x000a, h01=0x0050, text=»FRE200«, t00=0x000a, t01=0x0178}
0x1122…1134 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000a, t01=0x0186}
0x1134…1142 Head {h00=0x000a, h01=0x0050, text=»FRE300«, t00=0x000b, t01=0x0008}
0x1142…1154 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000b, t01=0x0016}
0x1154…116c Head {h00=0x0014, h01=0x0050, text=»* BALANCE RECORD«, t00=0x000b, t01=0x0028}
0x116c…117a Head {h00=0x000a, h01=0x0050, text=»FRE400«, t00=0x000b, t01=0x0040}
0x117a…118c Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000b, t01=0x004e}
0x118c…119c Head {h00=0x000c, h01=0x0050, text=»* CLOSE «, t00=0x000b, t01=0x0060}
0x119c…11aa Head {h00=0x000a, h01=0x0050, text=»FRE500«, t00=0x000b, t01=0x0070}
0x11aa…11bc Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000b, t01=0x007e}
0x11bc…11ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0090}
0x11ca…11d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009e}
0x11d4…11e6 Head {h00=0x000e, h01=0x0050, text=»* OK«, t00=0x000b, t01=0x00a8}
0x11e6…11f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ba}
0x11f0…11fe Head {h00=0x000a, h01=0x0050, text=»DECOOK«, t00=0x000b, t01=0x00c4}
0x11fe…1216 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCON,W0 «, t00=0x000b, t01=0x00d2}
0x1216…1224 Head {h00=0x000a, h01=0x0050, text=»RETURN«, t00=0x000b, t01=0x00ea}
0x1224…1230 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00f8}
0x1230…123e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0104}
0x123e…1246 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0112}
0x1246…1254 Head {h00=0x000a, h01=0x0050, text=»TRANSM«, t00=0x000b, t01=0x011a}
0x1254…128c Head {h00=0x0034, h01=0x0050, text=» IB TYPE,DC100,DC200,DC300 OPEN,BATCHHEAD,DATA C«, t00=0x000b, t01=0x0128}
0x128c…12b0 Head {h00=0x0020, h01=0x0050, text=» DC300,DC500 BALANCE, CLOSE«, t00=0x000b, t01=0x0160}
0x12b0…12b8 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0184}
0x12b8…12c0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x018c}
0x12c0…12ca (12, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12ca…12dc Head {h00=0x000e, h01=0x0050, text=»* SEND SOF«, t00=0x000c, t01=0x000e}
0x12dc…12f6 Head {h00=0x0016, h01=0x0050, text=»* SEND '001'+DATE «, t00=0x000c, t01=0x0020}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x1300…1308 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0044}
0x1308…1316 Head {h00=0x000a, h01=0x0050, text=»DC100 «, t00=0x000c, t01=0x004c}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x1320…133a Head {h00=0x0016, h01=0x0050, text=»* BATCHHEAD RECORD«, t00=0x000c, t01=0x0064}
0x133a…1344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x1344…1352 Head {h00=0x000a, h01=0x0050, text=»DC200 «, t00=0x000c, t01=0x0088}
0x1352…1360 Head {h00=0x000a, h01=0x0050, text=»DC300 «, t00=0x000c, t01=0x0096}
0x1360…136a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x136a…1382 Head {h00=0x0014, h01=0x0050, text=»* TRANSM BLOCKS «, t00=0x000c, t01=0x00ae}
0x1382…138c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c6}
0x138c…1394 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00d0}
0x1394…139e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139e…13b2 Head {h00=0x0010, h01=0x0050, text=»* SEND '999'«, t00=0x000c, t01=0x00e2}
0x13b2…13c4 Head {h00=0x000e, h01=0x0050, text=»* SEND EOF«, t00=0x000c, t01=0x00f6}
0x13c4…13ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0108}
0x13ce…13d6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0112}
0x13d6…13e4 Head {h00=0x000a, h01=0x0050, text=»DC500 «, t00=0x000c, t01=0x011a}
0x13e4…13f6 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x000c, t01=0x0128}
0x13f6…1404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x013a}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0148}
0x140e…1420 Head {h00=0x000e, h01=0x0050, text=»* LISTING «, t00=0x000c, t01=0x0152}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0164}
0x142a…1438 Head {h00=0x000a, h01=0x0050, text=»LISTE «, t00=0x000c, t01=0x016e}
0x1438…1450 Head {h00=0x0014, h01=0x0050, text=» MOVE BTYPE,TYPE«, t00=0x000c, t01=0x017c}
0x1450…148a (13, 0, 400) Head {h00=0x0036, h01=0x0050, text=» IB TYPE,LS100,LS200,LS300, OPEN,BATCHHEAD,DATA, C«, t00=0x000d, t01=0x0004}
0x148a…14ae Head {h00=0x0020, h01=0x0050, text=» LS400,LS500 BALANCE,CLOSE «, t00=0x000d, t01=0x003e}
0x14ae…14b6 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0062}
0x14b6…14c4 Head {h00=0x000a, h01=0x0050, text=»LS100 «, t00=0x000d, t01=0x006a}
0x14c4…14dc Head {h00=0x0014, h01=0x0050, text=» TBT LSBAB,LS170«, t00=0x000d, t01=0x0078}
0x14dc…150a Head {h00=0x002a, h01=0x0050, text=» PERF GETBUF GET 3 CONSECUTIVE BUFFERS«, t00=0x000d, t01=0x0090}
0x150a…151e Head {h00=0x0010, h01=0x0050, text=» B LS110 OK«, t00=0x000d, t01=0x00be}
0x151e…1534 Head {h00=0x0012, h01=0x0050, text=» B LSERR ERROR«, t00=0x000d, t01=0x00d2}
0x1534…1542 Head {h00=0x000a, h01=0x0050, text=»LS110 «, t00=0x000d, t01=0x00e8}
0x1542…156e Head {h00=0x0028, h01=0x0050, text=» MOVE BCDI21(W5),=D'0' RECORD COUNT «, t00=0x000d, t01=0x00f6}
0x156e…1596 Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W15),W0 LENGTH HEADER«, t00=0x000d, t01=0x0122}
0x1596…15c2 Head {h00=0x0028, h01=0x0050, text=» MOVE WORK(W17),W0 LENGTH RECORD NO «, t00=0x000d, t01=0x014a}
0x15c2…15f0 Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W19),W0 LENGTH SEQUENCE NO «, t00=0x000d, t01=0x0176}
0x15f0…1616 Head {h00=0x0022, h01=0x0050, text=» CLEAR BCONT CONTINUATION MARK«, t00=0x000e, t01=0x0014}
0x1616…162a Head {h00=0x0010, h01=0x0050, text=» CLEAR BSUPR«, t00=0x000e, t01=0x003a}
0x162a…164a Head {h00=0x001c, h01=0x0050, text=» CLEAR SPLITFL NNO SPLIT«, t00=0x000e, t01=0x004e}
0x164a…1676 Head {h00=0x0028, h01=0x0050, text=» CLEAR FIRSTFL INITIATE FIRST RECORD«, t00=0x000e, t01=0x006e}
0x1676…169e Head {h00=0x0024, h01=0x0050, text=» PERF ATTDEV,BIN6 ATTACH DEVICE «, t00=0x000e, t01=0x009a}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=» BNOK LSERR «, t00=0x000e, t01=0x00c2}
0x16b2…16ce Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x000e, t01=0x00d6}
0x16ce…16e6 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x000e, t01=0x00f2}
0x16e6…1700 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x000e, t01=0x010a}
0x1700…171e Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSHDR «, t00=0x000e, t01=0x0124}
0x171e…173a Head {h00=0x0018, h01=0x0050, text=» MOVE RECLGD,=D'112'«, t00=0x000e, t01=0x0142}
0x173a…1748 Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x000e, t01=0x015e}
0x1748…175c Head {h00=0x0010, h01=0x0050, text=» B DECOOK OK«, t00=0x000e, t01=0x016c}
0x175c…1764 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0180}
0x1764…1772 Head {h00=0x000a, h01=0x0050, text=»LS170 «, t00=0x000e, t01=0x0188}
0x1772…179e Head {h00=0x0028, h01=0x0050, text=» MOVE RETCON,=W'-4' ABORT CONVERSION«, t00=0x000f, t01=0x0008}
0x179e…17b0 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x000f, t01=0x0034}
0x17b0…17be Head {h00=0x000a, h01=0x0050, text=»LSERR «, t00=0x000f, t01=0x0046}
0x17be…17f2 Head {h00=0x0030, h01=0x0050, text=» MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE «, t00=0x000f, t01=0x0054}
0x17f2…1800 Head {h00=0x000a, h01=0x0050, text=»LSERRT«, t00=0x000f, t01=0x0088}
0x1800…1812 Head {h00=0x000e, h01=0x0050, text=» SET LSBAB«, t00=0x000f, t01=0x0096}
0x1812…1824 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000f, t01=0x00a8}
0x1824…182e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x182e…1848 Head {h00=0x0016, h01=0x0050, text=»* BATCHEAD RECORD «, t00=0x000f, t01=0x00c4}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1852…1860 Head {h00=0x000a, h01=0x0050, text=»LS200 «, t00=0x000f, t01=0x00e8}
0x1860…1878 Head {h00=0x0014, h01=0x0050, text=» TBT LSBAB,LS170«, t00=0x000f, t01=0x00f6}
0x1878…18a4 Head {h00=0x0028, h01=0x0050, text=» TBF BDAFOR,LS250 ANY FORCED FIELDS?«, t00=0x000f, t01=0x010e}
0x18a4…18d4 Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT«, t00=0x000f, t01=0x013a}
0x18d4…18e6 Head {h00=0x000e, h01=0x0050, text=» SET LSBAB«, t00=0x000f, t01=0x016a}
0x18e6…1910 Head {h00=0x0026, h01=0x0050, text=» MOVE RETCON,=W'-1' GET NEXT BATCH«, t00=0x000f, t01=0x017c}
0x1910…1922 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0010, t01=0x0016}
0x1922…1946 Head {h00=0x0020, h01=0x0050, text=»LS250 BATCHHEAD OR BALANCE«, t00=0x0010, t01=0x0028}
0x1946…195e Head {h00=0x0014, h01=0x0050, text=» TBT LSBAB,LS170«, t00=0x0010, t01=0x004c}
0x195e…1976 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0010, t01=0x0064}
0x1976…1998 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0010, t01=0x007c}
0x1998…19ac Head {h00=0x0010, h01=0x0050, text=» BNOK LSERR «, t00=0x0010, t01=0x009e}
0x19ac…19e2 Head {h00=0x0032, h01=0x0050, text=»* CONVERT HEADER TO SET CONVERSION INDICATIONS«, t00=0x0010, t01=0x00b2}
0x19e2…19f0 Head {h00=0x000a, h01=0x0050, text=»LS220 «, t00=0x0010, t01=0x00e8}
0x19f0…1a20 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX «, t00=0x0010, t01=0x00f6}
0x1a20…1a48 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0010, t01=0x0126}
0x1a48…1a5c Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0010, t01=0x014e}
0x1a5c…1a80 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NO«, t00=0x0010, t01=0x0162}
0x1a80…1a96 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0010, t01=0x0186}
0x1a96…1aa4 Head {h00=0x000a, h01=0x0050, text=»LS210 «, t00=0x0011, t01=0x000c}
0x1aa4…1abe Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x0011, t01=0x001a}
0x1abe…1ad8 Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x0011, t01=0x0034}
0x1ad8…1af6 Head {h00=0x001a, h01=0x0050, text=» B LS210 NOT ALL DONE «, t00=0x0011, t01=0x004e}
0x1af6…1b18 Head {h00=0x001e, h01=0x0050, text=» B LS315 COMP FIELD EMPTY «, t00=0x0011, t01=0x006c}
0x1b18…1b3c Head {h00=0x0020, h01=0x0050, text=» B LS320 BCD FIELD OVERFLOW «, t00=0x0011, t01=0x008e}
0x1b3c…1b62 Head {h00=0x0022, h01=0x0050, text=» B LS320 EDIT BUFFER OVERFLOW «, t00=0x0011, t01=0x00b2}
0x1b62…1b74 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0011, t01=0x00d8}
0x1b74…1b7c Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00ea}
0x1b7c…1b84 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00f2}
0x1b84…1b92 Head {h00=0x000a, h01=0x0050, text=»LS300 «, t00=0x0011, t01=0x00fa}
0x1b92…1baa Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,LS170«, t00=0x0011, t01=0x0108}
0x1baa…1bd8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0011, t01=0x0120}
0x1bd8…1c00 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0011, t01=0x014e}
0x1c00…1c14 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0011, t01=0x0176}
0x1c14…1c3c Head {h00=0x0024, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NUMBER«, t00=0x0011, t01=0x018a}
0x1c3c…1c4a Head {h00=0x000a, h01=0x0050, text=»LS310 «, t00=0x0012, t01=0x0022}
0x1c4a…1c60 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0012, t01=0x0030}
0x1c60…1c6e Head {h00=0x000a, h01=0x0050, text=»LS311 «, t00=0x0012, t01=0x0046}
0x1c6e…1c88 Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x0012, t01=0x0054}
0x1c88…1ca2 Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x0012, t01=0x006e}
0x1ca2…1cc0 Head {h00=0x001a, h01=0x0050, text=» B LS340 WRITE BLOCKS «, t00=0x0012, t01=0x0088}
0x1cc0…1ce2 Head {h00=0x001e, h01=0x0050, text=» B LS315 CUMP FIELD EMPTY «, t00=0x0012, t01=0x00a6}
0x1ce2…1d06 Head {h00=0x0020, h01=0x0050, text=» B LS320 BCD FIELD OVERFLOW «, t00=0x0012, t01=0x00c8}
0x1d06…1d2c Head {h00=0x0022, h01=0x0050, text=» B LS320 EDIT BUFFER OVERFLOW «, t00=0x0012, t01=0x00ec}
0x1d2c…1d3a Head {h00=0x000a, h01=0x0050, text=»LS315 «, t00=0x0012, t01=0x0112}
0x1d3a…1d52 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCON,W5 «, t00=0x0012, t01=0x0120}
0x1d52…1d64 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x0012, t01=0x0138}
0x1d64…1d72 Head {h00=0x000a, h01=0x0050, text=»LS320 «, t00=0x0012, t01=0x014a}
0x1d72…1d8e Head {h00=0x0018, h01=0x0050, text=» MOVE RETCON,=W'54' «, t00=0x0012, t01=0x0158}
0x1d8e…1da0 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x0012, t01=0x0174}
0x1da0…1da8 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0186}
0x1da8…1dbe Head {h00=0x0012, h01=0x0050, text=»* WRITE BLOCKS«, t00=0x0012, t01=0x018e}
0x1dbe…1dc6 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0014}
0x1dc6…1dd4 Head {h00=0x000a, h01=0x0050, text=»LS340 «, t00=0x0013, t01=0x001c}
0x1dd4…1de8 Head {h00=0x0010, h01=0x0050, text=» PERF LSWRIT«, t00=0x0013, t01=0x002a}
0x1de8…1dfc Head {h00=0x0010, h01=0x0050, text=» B LS310 OK «, t00=0x0013, t01=0x003e}
0x1dfc…1e12 Head {h00=0x0012, h01=0x0050, text=» B LS310 DUMMY«, t00=0x0013, t01=0x0052}
0x1e12…1e28 Head {h00=0x0012, h01=0x0050, text=» B LS310 DUMMY«, t00=0x0013, t01=0x0068}
0x1e28…1e56 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 CONTINUE IN SAME BUFFER «, t00=0x0013, t01=0x007e}
0x1e56…1e66 Head {h00=0x000c, h01=0x0050, text=» B LS311«, t00=0x0013, t01=0x00ac}
0x1e66…1e6e Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00bc}
0x1e6e…1e76 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00c4}
0x1e76…1e84 Head {h00=0x000a, h01=0x0050, text=»LS400 «, t00=0x0013, t01=0x00cc}
0x1e84…1e9c Head {h00=0x0014, h01=0x0050, text=»* BALANCE FORMAT«, t00=0x0013, t01=0x00da}
0x1e9c…1eac Head {h00=0x000c, h01=0x0050, text=» B LS250«, t00=0x0013, t01=0x00f2}
0x1eac…1eb4 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0102}
0x1eb4…1ec2 Head {h00=0x000a, h01=0x0050, text=»LS500 «, t00=0x0013, t01=0x010a}
0x1ec2…1ef0 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0013, t01=0x0118}
0x1ef0…1f0e Head {h00=0x001a, h01=0x0050, text=» TBT FDBAB,LS560 ABORT«, t00=0x0013, t01=0x0146}
0x1f0e…1f1e Head {h00=0x000c, h01=0x0050, text=» B LS570«, t00=0x0013, t01=0x0164}
0x1f1e…1f2c Head {h00=0x000a, h01=0x0050, text=»LS550 «, t00=0x0013, t01=0x0174}
0x1f2c…1f40 Head {h00=0x0010, h01=0x0050, text=» CLEAR LSBAB«, t00=0x0013, t01=0x0182}
0x1f40…1f56 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0014, t01=0x0008}
0x1f56…1f6a Head {h00=0x0010, h01=0x0050, text=» PERF DETPRT«, t00=0x0014, t01=0x001e}
0x1f6a…1f82 Head {h00=0x0014, h01=0x0050, text=»* RELEAS BUFFERS«, t00=0x0014, t01=0x0032}
0x1f82…1fac Head {h00=0x0026, h01=0x0050, text=» PERF DEPOOL,W6,BIN10,BIN4,STRG10A«, t00=0x0014, t01=0x004a}
0x1fac…1fbe Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0014, t01=0x0074}
0x1fbe…1fcc Head {h00=0x000a, h01=0x0050, text=»LS560 «, t00=0x0014, t01=0x0086}
0x1fcc…1fe8 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0014, t01=0x0094}
0x1fe8…2000 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0014, t01=0x00b0}
0x2000…201a Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0014, t01=0x00c8}
0x201a…2038 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSERR «, t00=0x0014, t01=0x00e2}
0x2038…2048 Head {h00=0x000c, h01=0x0050, text=» B LS550«, t00=0x0014, t01=0x0100}
0x2048…2056 Head {h00=0x000a, h01=0x0050, text=»LS570 «, t00=0x0014, t01=0x0110}
0x2056…2072 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0014, t01=0x011e}
0x2072…208a Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0014, t01=0x013a}
0x208a…20a4 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0014, t01=0x0152}
0x20a4…20c2 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSEND «, t00=0x0014, t01=0x016c}
0x20c2…20d2 Head {h00=0x000c, h01=0x0050, text=» B LS550«, t00=0x0014, t01=0x018a}
0x20d2…20e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x000a}
0x20e0…20ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20ea…2102 Head {h00=0x0014, h01=0x0050, text=»* FLOPPY DUMPING«, t00=0x0015, t01=0x0022}
0x2102…210c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003a}
0x210c…2114 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0044}
0x2114…2122 Head {h00=0x000a, h01=0x0050, text=»FLOPPY«, t00=0x0015, t01=0x004c}
0x2122…213a Head {h00=0x0014, h01=0x0050, text=» MOVE BTYPE,TYPE«, t00=0x0015, t01=0x005a}
0x213a…2172 Head {h00=0x0034, h01=0x0050, text=» IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C«, t00=0x0015, t01=0x0072}
0x2172…2196 Head {h00=0x0020, h01=0x0050, text=» FD400,FD500 BALANCE,CLOSE «, t00=0x0015, t01=0x00aa}
0x2196…219e Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00ce}
0x219e…21a6 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00d6}
0x21a6…21b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00de}
0x21b0…21c2 Head {h00=0x000e, h01=0x0050, text=»* SEND SOF«, t00=0x0015, t01=0x00e8}
0x21c2…21dc Head {h00=0x0016, h01=0x0050, text=»* SEND '001'+DATE «, t00=0x0015, t01=0x00fa}
0x21dc…21e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0114}
0x21e6…21ee Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x011e}
0x21ee…21fc Head {h00=0x000a, h01=0x0050, text=»FD100 «, t00=0x0015, t01=0x0126}
0x21fc…2214 Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x0015, t01=0x0134}
0x2214…2242 Head {h00=0x002a, h01=0x0050, text=» PERF GETBUF GET 3 CONSECUTIVE BUFFERS«, t00=0x0015, t01=0x014c}
0x2242…2256 Head {h00=0x0010, h01=0x0050, text=» B FD110 OK «, t00=0x0015, t01=0x017a}
0x2256…226c Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0015, t01=0x018e}
0x226c…227a Head {h00=0x000a, h01=0x0050, text=»FD110 «, t00=0x0016, t01=0x0014}
0x227a…229a Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x0016, t01=0x0022}
0x229a…22b6 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0016, t01=0x0042}
0x22b6…22f0 Head {h00=0x0036, h01=0x0050, text=» CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN«, t00=0x0016, t01=0x005e}
0x22f0…2306 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W20«, t00=0x0016, t01=0x0098}
0x2306…2336 Head {h00=0x002c, h01=0x0050, text=» DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD«, t00=0x0016, t01=0x00ae}
0x2336…234a Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x0016, t01=0x00de}
0x234a…235e Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x0016, t01=0x00f2}
0x235e…2372 Head {h00=0x0010, h01=0x0050, text=» B FD140 OK «, t00=0x0016, t01=0x0106}
0x2372…2388 Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0016, t01=0x011a}
0x2388…2390 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0130}
0x2390…2398 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0138}
0x2398…23a6 Head {h00=0x000a, h01=0x0050, text=»FD140 «, t00=0x0016, t01=0x0140}
0x23a6…23d2 Head {h00=0x0028, h01=0x0050, text=» MOVE BCDI21(W5),=D'0' RECORD COUNT «, t00=0x0016, t01=0x014e}
0x23d2…23fa Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W15),W0 LENGTH HEADER«, t00=0x0016, t01=0x017a}
0x23fa…2426 Head {h00=0x0028, h01=0x0050, text=» MOVE WORK(W17),W0 LENGTH RECORD NO «, t00=0x0017, t01=0x0012}
0x2426…2454 Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W19),W0 LENGTH SEQUENCE NO «, t00=0x0017, t01=0x003e}
0x2454…247a Head {h00=0x0022, h01=0x0050, text=» CLEAR BCONT CONTINUATION MARK«, t00=0x0017, t01=0x006c}
0x247a…248e Head {h00=0x0010, h01=0x0050, text=» CLEAR BSUPR«, t00=0x0017, t01=0x0092}
0x248e…24b0 Head {h00=0x001e, h01=0x0050, text=» SET SPLITFL NORMAL SPLIT «, t00=0x0017, t01=0x00a6}
0x24b0…24de Head {h00=0x002a, h01=0x0050, text=» MOVE BIN6,=X'0036' FILE CODE PRINTER «, t00=0x0017, t01=0x00c8}
0x24de…2506 Head {h00=0x0024, h01=0x0050, text=» PERF ATTDEV,BIN6 ATTACH DEVICE «, t00=0x0017, t01=0x00f6}
0x2506…251a Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x0017, t01=0x011e}
0x251a…2536 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0017, t01=0x0132}
0x2536…254e Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0017, t01=0x014e}
0x254e…2568 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0017, t01=0x0166}
0x2568…2586 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDHDR «, t00=0x0017, t01=0x0180}
0x2586…25ac Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x0018, t01=0x000e}
0x25ac…25c0 Head {h00=0x0010, h01=0x0050, text=» B FD150 OK «, t00=0x0018, t01=0x0034}
0x25c0…25d4 Head {h00=0x0010, h01=0x0050, text=» B FDERR ERR«, t00=0x0018, t01=0x0048}
0x25d4…25e2 Head {h00=0x000a, h01=0x0050, text=»FD150 «, t00=0x0018, t01=0x005c}
0x25e2…2614 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET «, t00=0x0018, t01=0x006a}
0x2614…2622 Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x0018, t01=0x009c}
0x2622…262a Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00aa}
0x262a…2638 Head {h00=0x000a, h01=0x0050, text=»FD160 «, t00=0x0018, t01=0x00b2}
0x2638…2660 Head {h00=0x0024, h01=0x0050, text=» MOVE STR8A,STR8B SAVE FILE NAME«, t00=0x0018, t01=0x00c0}
0x2660…2688 Head {h00=0x0024, h01=0x0050, text=» MOVE FDCNT,W1 RESET FD COUNTER «, t00=0x0018, t01=0x00e8}
0x2688…26b0 Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x0018, t01=0x0110}
0x26b0…26c4 Head {h00=0x0010, h01=0x0050, text=» B FD165 OK «, t00=0x0018, t01=0x0138}
0x26c4…26da Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0018, t01=0x014c}
0x26da…26e2 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0162}
0x26e2…26f0 Head {h00=0x000a, h01=0x0050, text=»FD165 «, t00=0x0018, t01=0x016a}
0x26f0…2704 Head {h00=0x0010, h01=0x0050, text=» B DECOOK OK«, t00=0x0018, t01=0x0178}
0x2704…270c Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x018c}
0x270c…271a (25, 0, 400) Head {h00=0x000a, h01=0x0050, text=»FD170 «, t00=0x0019, t01=0x0004}
0x271a…2746 Head {h00=0x0028, h01=0x0050, text=» MOVE RETCON,=W'-4' ABORT CONVERSION«, t00=0x0019, t01=0x0012}
0x2746…2758 Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x0019, t01=0x003e}
0x2758…2760 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0050}
0x2760…276e Head {h00=0x000a, h01=0x0050, text=»FDERR «, t00=0x0019, t01=0x0058}
0x276e…27a2 Head {h00=0x0030, h01=0x0050, text=» MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE «, t00=0x0019, t01=0x0066}
0x27a2…27b0 Head {h00=0x000a, h01=0x0050, text=»FDERRT«, t00=0x0019, t01=0x009a}
0x27b0…27c2 Head {h00=0x000e, h01=0x0050, text=» SET FDBAB«, t00=0x0019, t01=0x00a8}
0x27c2…27d4 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0019, t01=0x00ba}
0x27d4…27dc Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00cc}
0x27dc…27ea Head {h00=0x000a, h01=0x0050, text=»FD180 «, t00=0x0019, t01=0x00d4}
0x27ea…2800 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0019, t01=0x00e2}
0x2800…281c Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0019, t01=0x00f8}
0x281c…285e Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD *UNLOAD HDR1«, t00=0x0019, t01=0x0114}
0x285e…2884 Head {h00=0x0022, h01=0x0050, text=» MOVE RETCON,=W'55' CHANGE FD «, t00=0x0019, t01=0x0156}
0x2884…2896 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0019, t01=0x017c}
0x2896…28a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x018e}
0x28a4…28ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28ae…28c8 Head {h00=0x0016, h01=0x0050, text=»* BATCHEAD RECORD «, t00=0x001a, t01=0x0016}
0x28c8…28d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0030}
0x28d2…28e0 Head {h00=0x000a, h01=0x0050, text=»FD200 «, t00=0x001a, t01=0x003a}
0x28e0…28f8 Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x001a, t01=0x0048}
0x28f8…2924 Head {h00=0x0028, h01=0x0050, text=» TBF BDAFOR,FD300 ANY FORCED FIELDS?«, t00=0x001a, t01=0x0060}
0x2924…2954 Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT«, t00=0x001a, t01=0x008c}
0x2954…2966 Head {h00=0x000e, h01=0x0050, text=» SET FDBAB«, t00=0x001a, t01=0x00bc}
0x2966…2990 Head {h00=0x0026, h01=0x0050, text=» MOVE RETCON,=W'-1' GET NEXT BATCH«, t00=0x001a, t01=0x00ce}
0x2990…29a2 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x001a, t01=0x00f8}
0x29a2…29b0 Head {h00=0x000a, h01=0x0050, text=»FD300 «, t00=0x001a, t01=0x010a}
0x29b0…29c8 Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x001a, t01=0x0118}
0x29c8…29e2 Head {h00=0x0016, h01=0x0050, text=» TBT FDEOF,FDEOF10«, t00=0x001a, t01=0x0130}
0x29e2…2a06 Head {h00=0x0020, h01=0x0050, text=» CBE TYPE,W4,FD305 PRINTING «, t00=0x001a, t01=0x014a}
0x2a06…2a2a Head {h00=0x0020, h01=0x0050, text=» CBE TYPE,W2,FD305 PRINTING «, t00=0x001a, t01=0x016e}
0x2a2a…2a46 (27, 0, 398) Head {h00=0x0018, h01=0x0050, text=» B FD308 NO PRINTING«, t00=0x001b, t01=0x0004}
0x2a46…2a54 Head {h00=0x000a, h01=0x0050, text=»FD305 «, t00=0x001b, t01=0x0020}
0x2a54…2a82 Head {h00=0x002a, h01=0x0050, text=»* PRINT BATCH HEAD AND BALANCE RECORD «, t00=0x001b, t01=0x002e}
0x2a82…2a9a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x001b, t01=0x005c}
0x2a9a…2abc Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x001b, t01=0x0074}
0x2abc…2ad0 Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x001b, t01=0x0096}
0x2ad0…2ade Head {h00=0x000a, h01=0x0050, text=»FD308 «, t00=0x001b, t01=0x00aa}
0x2ade…2b0c Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x001b, t01=0x00b8}
0x2b0c…2b34 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x001b, t01=0x00e6}
0x2b34…2b48 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x001b, t01=0x010e}
0x2b48…2b70 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NUMBER«, t00=0x001b, t01=0x0122}
0x2b70…2b7e Head {h00=0x000a, h01=0x0050, text=»FD310 «, t00=0x001b, t01=0x014a}
0x2b7e…2b94 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x001b, t01=0x0158}
0x2b94…2ba2 Head {h00=0x000a, h01=0x0050, text=»FD311 «, t00=0x001b, t01=0x016e}
0x2ba2…2bbc Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x001b, t01=0x017c}
0x2bbc…2bd6 Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x001c, t01=0x0008}
0x2bd6…2bf4 Head {h00=0x001a, h01=0x0050, text=» B FD340 WRITE BLOCKS «, t00=0x001c, t01=0x0022}
0x2bf4…2c16 Head {h00=0x001e, h01=0x0050, text=» B FD315 CUMP FIELD EMPTHY«, t00=0x001c, t01=0x0040}
0x2c16…2c3a Head {h00=0x0020, h01=0x0050, text=» B FD320 BCD FIELD OVERFLOW «, t00=0x001c, t01=0x0062}
0x2c3a…2c60 Head {h00=0x0022, h01=0x0050, text=» B FD320 EDIT BUFFER OVERFLOW «, t00=0x001c, t01=0x0086}
0x2c60…2c6e Head {h00=0x000a, h01=0x0050, text=»FD315 «, t00=0x001c, t01=0x00ac}
0x2c6e…2c86 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCON,W5 «, t00=0x001c, t01=0x00ba}
0x2c86…2c98 Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x001c, t01=0x00d2}
0x2c98…2ca0 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00e4}
0x2ca0…2cae Head {h00=0x000a, h01=0x0050, text=»FD320 «, t00=0x001c, t01=0x00ec}
0x2cae…2cd4 Head {h00=0x0022, h01=0x0050, text=» MOVE RETCON,=W'54' EDIT ERROR«, t00=0x001c, t01=0x00fa}
0x2cd4…2ce6 Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x001c, t01=0x0120}
0x2ce6…2cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cf0…2d06 Head {h00=0x0012, h01=0x0050, text=»* WRITE BLOCKS«, t00=0x001c, t01=0x013c}
0x2d06…2d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0152}
0x2d10…2d18 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x015c}
0x2d18…2d26 Head {h00=0x000a, h01=0x0050, text=»FD340 «, t00=0x001c, t01=0x0164}
0x2d26…2d3a Head {h00=0x0010, h01=0x0050, text=» PERF FDWRIT«, t00=0x001c, t01=0x0172}
0x2d3a…2d4e Head {h00=0x0010, h01=0x0050, text=» B FD310 OK «, t00=0x001c, t01=0x0186}
0x2d4e…2d64 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001d, t01=0x000a}
0x2d64…2d7a Head {h00=0x0012, h01=0x0050, text=» B FDEOF05 EOE«, t00=0x001d, t01=0x0020}
0x2d7a…2da8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 CONTINUE IN SAME BUFFER «, t00=0x001d, t01=0x0036}
0x2da8…2db8 Head {h00=0x000c, h01=0x0050, text=» B FD311«, t00=0x001d, t01=0x0064}
0x2db8…2dc6 Head {h00=0x000a, h01=0x0050, text=»FD350 «, t00=0x001d, t01=0x0074}
0x2dc6…2dda Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x001d, t01=0x0082}
0x2dda…2dee Head {h00=0x0010, h01=0x0050, text=» B FD370 OK «, t00=0x001d, t01=0x0096}
0x2dee…2e04 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001d, t01=0x00aa}
0x2e04…2e12 Head {h00=0x000a, h01=0x0050, text=»FD360 «, t00=0x001d, t01=0x00c0}
0x2e12…2e2e Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x001d, t01=0x00ce}
0x2e2e…2e44 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x001d, t01=0x00ea}
0x2e44…2e80 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x001d, t01=0x0100}
0x2e80…2e8e Head {h00=0x000a, h01=0x0050, text=»FD365 «, t00=0x001d, t01=0x013c}
0x2e8e…2ebc Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK«, t00=0x001d, t01=0x014a}
0x2ebc…2ed8 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,KEYTAB «, t00=0x001d, t01=0x0178}
0x2ed8…2f0a (30, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET «, t00=0x001e, t01=0x0004}
0x2f0a…2f1e Head {h00=0x0010, h01=0x0050, text=» B FD350 ENT«, t00=0x001e, t01=0x0036}
0x2f1e…2f2c Head {h00=0x000a, h01=0x0050, text=»FD370 «, t00=0x001e, t01=0x004a}
0x2f2c…2f52 Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x001e, t01=0x0058}
0x2f52…2f66 Head {h00=0x0010, h01=0x0050, text=» B FD375 OK «, t00=0x001e, t01=0x007e}
0x2f66…2f7c Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001e, t01=0x0092}
0x2f7c…2f8a Head {h00=0x000a, h01=0x0050, text=»FD375 «, t00=0x001e, t01=0x00a8}
0x2f8a…2fbc Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET «, t00=0x001e, t01=0x00b6}
0x2fbc…2fca Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x001e, t01=0x00e8}
0x2fca…2fd2 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00f6}
0x2fd2…2fe0 Head {h00=0x000a, h01=0x0050, text=»FD380 «, t00=0x001e, t01=0x00fe}
0x2fe0…3008 Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x001e, t01=0x010c}
0x3008…301c Head {h00=0x0010, h01=0x0050, text=» B FD382 OK «, t00=0x001e, t01=0x0134}
0x301c…3032 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROE«, t00=0x001e, t01=0x0148}
0x3032…303a Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x015e}
0x303a…3048 Head {h00=0x000a, h01=0x0050, text=»FD382 «, t00=0x001e, t01=0x0166}
0x3048…3068 Head {h00=0x001c, h01=0x0050, text=» TBF FDEOF,FD340 NOT EOF«, t00=0x001e, t01=0x0174}
0x3068…3096 (31, 0, 398) Head {h00=0x002a, h01=0x0050, text=» MOVE RETCON,=W'-6' GET CURRENT RECORD«, t00=0x001f, t01=0x0004}
0x3096…30a8 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x001f, t01=0x0032}
0x30a8…30b0 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0044}
0x30b0…30c0 Head {h00=0x000c, h01=0x0050, text=»FDEOF05 «, t00=0x001f, t01=0x004c}
0x30c0…30e0 Head {h00=0x001c, h01=0x0050, text=» SET FDEOF INDICATE EOF «, t00=0x001f, t01=0x005c}
0x30e0…310a Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W14),BIN8 SAVE FIELD NO«, t00=0x001f, t01=0x007c}
0x310a…311a Head {h00=0x000c, h01=0x0050, text=» B FD360«, t00=0x001f, t01=0x00a6}
0x311a…3122 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00b6}
0x3122…3132 Head {h00=0x000c, h01=0x0050, text=»FDEOF10 «, t00=0x001f, t01=0x00be}
0x3132…3146 Head {h00=0x0010, h01=0x0050, text=» CLEAR FDEOF«, t00=0x001f, t01=0x00ce}
0x3146…3174 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x001f, t01=0x00e2}
0x3174…319c Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x001f, t01=0x0110}
0x319c…31b0 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x001f, t01=0x0138}
0x31b0…31da Head {h00=0x0026, h01=0x0050, text=» MOVE BIN8,WORK(W14) GET FIELD NO «, t00=0x001f, t01=0x014c}
0x31da…31f6 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x001f, t01=0x0176}
0x31f6…320c (32, 0, 400) Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x0020, t01=0x0004}
0x320c…324e Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x0020, t01=0x001a}
0x324e…325e Head {h00=0x000c, h01=0x0050, text=» B FD340«, t00=0x0020, t01=0x005c}
0x325e…326c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x006c}
0x326c…327a Head {h00=0x000a, h01=0x0050, text=»FD400 «, t00=0x0020, t01=0x007a}
0x327a…3298 Head {h00=0x001a, h01=0x0050, text=»* BALANCE FORMAT «, t00=0x0020, t01=0x0088}
0x3298…32a8 Head {h00=0x000c, h01=0x0050, text=» B FD300«, t00=0x0020, t01=0x00a6}
0x32a8…32b6 Head {h00=0x000a, h01=0x0050, text=»FD500 «, t00=0x0020, t01=0x00b6}
0x32b6…32e4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0020, t01=0x00c4}
0x32e4…3302 Head {h00=0x001a, h01=0x0050, text=» TBT FDBAB,FD560 ABORT«, t00=0x0020, t01=0x00f2}
0x3302…332a Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0020, t01=0x0110}
0x332a…333e Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0020, t01=0x0138}
0x333e…336a Head {h00=0x0028, h01=0x0050, text=» EDIT BPOOL(BIN9),FFD999 END OF FILE«, t00=0x0020, t01=0x014c}
0x336a…3378 Head {h00=0x000a, h01=0x0050, text=»FD505 «, t00=0x0020, t01=0x0178}
0x3378…338e Head {h00=0x0012, h01=0x0050, text=»***PERF FDWRIT«, t00=0x0020, t01=0x0186}
0x338e…33a2 Head {h00=0x0010, h01=0x0050, text=» B FD570 OK «, t00=0x0021, t01=0x000c}
0x33a2…33b6 Head {h00=0x0010, h01=0x0050, text=» B FDERR ERR«, t00=0x0021, t01=0x0020}
0x33b6…33ca Head {h00=0x0010, h01=0x0050, text=» B FD510 EOE«, t00=0x0021, t01=0x0034}
0x33ca…33d8 Head {h00=0x000a, h01=0x0050, text=»FD510 «, t00=0x0021, t01=0x0048}
0x33d8…33f4 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0021, t01=0x0056}
0x33f4…340a Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0021, t01=0x0072}
0x340a…3446 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x0021, t01=0x0088}
0x3446…3454 Head {h00=0x000a, h01=0x0050, text=»FD515 «, t00=0x0021, t01=0x00c4}
0x3454…3482 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK«, t00=0x0021, t01=0x00d2}
0x3482…349e Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,KEYTAB «, t00=0x0021, t01=0x0100}
0x349e…34d0 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD520,FD510,FD170 CLR,CAN,RET «, t00=0x0021, t01=0x011c}
0x34d0…34de Head {h00=0x000a, h01=0x0050, text=»FD520 «, t00=0x0021, t01=0x014e}
0x34de…34f2 Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x0021, t01=0x015c}
0x34f2…3506 Head {h00=0x0010, h01=0x0050, text=» B FD525 OK «, t00=0x0021, t01=0x0170}
0x3506…351c Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0021, t01=0x0184}
0x351c…352a Head {h00=0x000a, h01=0x0050, text=»FD525 «, t00=0x0022, t01=0x000a}
0x352a…3550 Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x0022, t01=0x0018}
0x3550…3564 Head {h00=0x0010, h01=0x0050, text=» B FD530 OK «, t00=0x0022, t01=0x003e}
0x3564…357a Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0022, t01=0x0052}
0x357a…3588 Head {h00=0x000a, h01=0x0050, text=»FD530 «, t00=0x0022, t01=0x0068}
0x3588…35ba Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET «, t00=0x0022, t01=0x0076}
0x35ba…35c8 Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x0022, t01=0x00a8}
0x35c8…35d6 Head {h00=0x000a, h01=0x0050, text=»FD535 «, t00=0x0022, t01=0x00b6}
0x35d6…35fe Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x0022, t01=0x00c4}
0x35fe…3612 Head {h00=0x0010, h01=0x0050, text=» B FD540 OK «, t00=0x0022, t01=0x00ec}
0x3612…3628 Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0022, t01=0x0100}
0x3628…3636 Head {h00=0x000a, h01=0x0050, text=»FD540 «, t00=0x0022, t01=0x0116}
0x3636…3652 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0022, t01=0x0124}
0x3652…3668 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x0022, t01=0x0140}
0x3668…36aa Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x0022, t01=0x0156}
0x36aa…36ba Head {h00=0x000c, h01=0x0050, text=» B FD505«, t00=0x0023, t01=0x0008}
0x36ba…36c8 Head {h00=0x000a, h01=0x0050, text=»FD550 «, t00=0x0023, t01=0x0018}
0x36c8…36da Head {h00=0x000e, h01=0x0050, text=» WAIT DSFD«, t00=0x0023, t01=0x0026}
0x36da…36ee Head {h00=0x0010, h01=0x0050, text=» CLEAR FDBAB«, t00=0x0023, t01=0x0038}
0x36ee…370e Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR SECTOR«, t00=0x0023, t01=0x004c}
0x370e…372a Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0023, t01=0x006c}
0x372a…3766 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x0023, t01=0x0088}
0x3766…3784 Head {h00=0x001a, h01=0x0050, text=» CLEAR FDEOF RESET EOF«, t00=0x0023, t01=0x00c4}
0x3784…379a Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0023, t01=0x00e2}
0x379a…37b6 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0023, t01=0x00f8}
0x37b6…37f2 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'A2',BPOOL(BIN10),REQFD,CWFD CLOSE «, t00=0x0023, t01=0x0114}
0x37f2…3808 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0023, t01=0x0150}
0x3808…3826 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSFD,DETACH,BIN4«, t00=0x0023, t01=0x0166}
0x3826…383a Head {h00=0x0010, h01=0x0050, text=» PERF DETPRT«, t00=0x0023, t01=0x0184}
0x383a…3852 Head {h00=0x0014, h01=0x0050, text=»* RELEAS BUFFERS«, t00=0x0024, t01=0x0008}
0x3852…387c Head {h00=0x0026, h01=0x0050, text=» PERF DEPOOL,W6,BIN10,BIN4,STRG10A«, t00=0x0024, t01=0x0020}
0x387c…388e Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0024, t01=0x004a}
0x388e…389c Head {h00=0x000a, h01=0x0050, text=»FD560 «, t00=0x0024, t01=0x005c}
0x389c…38b8 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0024, t01=0x006a}
0x38b8…38d0 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0024, t01=0x0086}
0x38d0…38ea Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0024, t01=0x009e}
0x38ea…3908 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDERR «, t00=0x0024, t01=0x00b8}
0x3908…3918 Head {h00=0x000c, h01=0x0050, text=» B FD550«, t00=0x0024, t01=0x00d6}
0x3918…3920 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00e6}
0x3920…392e Head {h00=0x000a, h01=0x0050, text=»FD570 «, t00=0x0024, t01=0x00ee}
0x392e…394a Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0024, t01=0x00fc}
0x394a…3962 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0024, t01=0x0118}
0x3962…397c Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0024, t01=0x0130}
0x397c…399a Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDEND «, t00=0x0024, t01=0x014a}
0x399a…39aa Head {h00=0x000c, h01=0x0050, text=» B FD550«, t00=0x0024, t01=0x0168}
0x39aa…39b8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0178}
0x39b8…39c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0186}
0x39c6…39d0 (37, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0004}
0x39d0…39fc Head {h00=0x0028, h01=0x0050, text=»* GETBUF GET TWO CONSECUTIVE BUFFERS«, t00=0x0025, t01=0x000e}
0x39fc…3a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003a}
0x3a06…3a2a Head {h00=0x0020, h01=0x0050, text=»* BUFFER INDEX IN WORK(W13) «, t00=0x0025, t01=0x0044}
0x3a2a…3a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0068}
0x3a34…3a3c Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0072}
0x3a3c…3a50 Head {h00=0x0010, h01=0x0050, text=»GETBUF PROC «, t00=0x0025, t01=0x007a}
0x3a50…3a7e Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS«, t00=0x0025, t01=0x008e}
0x3a7e…3aae Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS «, t00=0x0025, t01=0x00bc}
0x3aae…3af2 Head {h00=0x0040, h01=0x0050, text=» PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 COSECUTIVE BUFFERS «, t00=0x0025, t01=0x00ec}
0x3af2…3b1a Head {h00=0x0024, h01=0x0050, text=» BNOK GETBU2 NO BUFFERS AVAIBLE «, t00=0x0025, t01=0x0130}
0x3b1a…3b4a Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W13),BIN10 SAVE BUFFER INDEX «, t00=0x0025, t01=0x0158}
0x3b4a…3b7c Head {h00=0x002e, h01=0x0050, text=» MOVE BIN9,BIN10 LOAD WORKING BUFFER INDEX«, t00=0x0025, t01=0x0188}
0x3b7c…3ba2 Head {h00=0x0022, h01=0x0050, text=» ADD BIN9,W1 INDEX EDIT BUFFER«, t00=0x0026, t01=0x002a}
0x3ba2…3bda Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER «, t00=0x0026, t01=0x0050}
0x3bda…3be6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0088}
0x3be6…3bf4 Head {h00=0x000a, h01=0x0050, text=»GETBU2«, t00=0x0026, t01=0x0094}
0x3bf4…3c02 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0026, t01=0x00a2}
0x3c02…3c10 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x00b0}
0x3c10…3c1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00be}
0x3c1e…3c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00cc}
0x3c28…3c58 Head {h00=0x002c, h01=0x0050, text=»* FDRVOL READ VOLUME LABEL AND DISPLAY «, t00=0x0026, t01=0x00d6}
0x3c58…3c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c62…3c76 Head {h00=0x0010, h01=0x0050, text=»FDRVOL PROC «, t00=0x0026, t01=0x0110}
0x3c76…3c92 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0026, t01=0x0124}
0x3c92…3cbc Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,BIN10 GET BUFFER INDEX«, t00=0x0026, t01=0x0140}
0x3cbc…3ce8 Head {h00=0x0028, h01=0x0050, text=» ADD BIN13,W2 ADJUST FOR READ BUFFER«, t00=0x0026, t01=0x016a}
0x3ce8…3cfe Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0027, t01=0x0008}
0x3cfe…3d40 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) «, t00=0x0027, t01=0x001e}
0x3d40…3d58 Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x0027, t01=0x0060}
0x3d58…3d74 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'086F' «, t00=0x0027, t01=0x0078}
0x3d74…3d90 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x0027, t01=0x0094}
0x3d90…3da4 Head {h00=0x0010, h01=0x0050, text=» BNOK FDRV02«, t00=0x0027, t01=0x00b0}
0x3da4…3dbe Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'66' «, t00=0x0027, t01=0x00c4}
0x3dbe…3dfa Head {h00=0x0038, h01=0x0050, text=» XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE«, t00=0x0027, t01=0x00de}
0x3dfa…3e32 Head {h00=0x0034, h01=0x0050, text=» XCOPY STR8A,W0,W8,BPOOL(BIN13),W5 GET FILE NAME«, t00=0x0027, t01=0x011a}
0x3e32…3e5a Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,W22 GET RECORD LENGTH«, t00=0x0027, t01=0x0152}
0x3e5a…3e86 Head {h00=0x0028, h01=0x0050, text=» XCOPY STR6B,W1,W5,BPOOL(BIN13),BIN7«, t00=0x0027, t01=0x017a}
0x3e86…3ea0 Head {h00=0x0016, h01=0x0050, text=» MOVE RECLGD,STR6B«, t00=0x0028, t01=0x0016}
0x3ea0…3eba Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'45' «, t00=0x0028, t01=0x0030}
0x3eba…3ef4 Head {h00=0x0036, h01=0x0050, text=» XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER«, t00=0x0028, t01=0x004a}
0x3ef4…3f0a Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCAS02«, t00=0x0028, t01=0x0084}
0x3f0a…3f20 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0028, t01=0x009a}
0x3f20…3f38 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0028, t01=0x00b0}
0x3f38…3f46 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0028, t01=0x00c8}
0x3f46…3f70 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,W1 REQUESTED LENGTH «, t00=0x0028, t01=0x00d6}
0x3f70…3fa6 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2«, t00=0x0028, t01=0x0100}
0x3fa6…3fb2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0136}
0x3fb2…3fc0 Head {h00=0x000a, h01=0x0050, text=»FDRV02«, t00=0x0028, t01=0x0142}
0x3fc0…3fce Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0028, t01=0x0150}
0x3fce…3fdc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x015e}
0x3fdc…3fea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x016c}
0x3fea…3ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017a}
0x3ff4…4018 Head {h00=0x0020, h01=0x0050, text=»* FDWVOL WRITE VOLUME LABEL«, t00=0x0028, t01=0x0184}
0x4018…4022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0018}
0x4022…402a Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0022}
0x402a…4032 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x002a}
0x4032…4046 Head {h00=0x0010, h01=0x0050, text=»FDWVOL PROC «, t00=0x0029, t01=0x0032}
0x4046…4060 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'66' «, t00=0x0029, t01=0x0046}
0x4060…408a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,BIN10 GET BUFFER INDEX«, t00=0x0029, t01=0x0060}
0x408a…40b6 Head {h00=0x0028, h01=0x0050, text=» ADD BIN13,W2 ADJUST FOR READ BUFFER«, t00=0x0029, t01=0x008a}
0x40b6…40e4 Head {h00=0x002a, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE «, t00=0x0029, t01=0x00b6}
0x40e4…40fa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W5 «, t00=0x0029, t01=0x00e4}
0x40fa…412e Head {h00=0x0030, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL1 VOLUME NAME«, t00=0x0029, t01=0x00fa}
0x412e…4148 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'45' «, t00=0x0029, t01=0x012e}
0x4148…417a Head {h00=0x002e, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL3 FD NUMBER«, t00=0x0029, t01=0x0148}
0x417a…41a6 Head {h00=0x0028, h01=0x0050, text=» MOVE REQFD,=W'128' REQUESTED LENGTH«, t00=0x0029, t01=0x017a}
0x41a6…41bc Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x002a, t01=0x0016}
0x41bc…41fe Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1)«, t00=0x002a, t01=0x002c}
0x41fe…4216 Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x002a, t01=0x006e}
0x4216…4232 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'024F' «, t00=0x002a, t01=0x0086}
0x4232…424e Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x002a, t01=0x00a2}
0x424e…4256 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00be}
0x4256…426a Head {h00=0x0010, h01=0x0050, text=» BNOK FDWVO2«, t00=0x002a, t01=0x00c6}
0x426a…4294 Head {h00=0x0026, h01=0x0050, text=» ADD FDCNT,=D'1' UPDATE FD NUMBER «, t00=0x002a, t01=0x00da}
0x4294…42b8 Head {h00=0x0020, h01=0x0050, text=» MOVE CWFD,=W'26' HDR RECORD«, t00=0x002a, t01=0x0104}
0x42b8…42e4 Head {h00=0x0028, h01=0x0050, text=» MOVE REQFD,=W'128' REQUESTED LENGTH«, t00=0x002a, t01=0x0128}
0x42e4…4320 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B1',BPOOL(BIN13),REQFD,CWFD REWIND«, t00=0x002a, t01=0x0154}
0x4320…432c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0190}
0x432c…433a Head {h00=0x000a, h01=0x0050, text=»FDWVO2«, t00=0x002b, t01=0x000c}
0x433a…4348 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x002b, t01=0x001a}
0x4348…4356 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0028}
0x4356…4364 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0036}
0x4364…436e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0044}
0x436e…438c Head {h00=0x001a, h01=0x0050, text=»* LSWRIT WRITE BLOCKS «, t00=0x002b, t01=0x004e}
0x438c…4396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x4396…439e Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0076}
0x439e…43b2 Head {h00=0x0010, h01=0x0050, text=»LSWRIT PROC «, t00=0x002b, t01=0x007e}
0x43b2…43c0 Head {h00=0x000a, h01=0x0050, text=»LSWR00«, t00=0x002b, t01=0x0092}
0x43c0…43e6 Head {h00=0x0022, h01=0x0050, text=»* BIN16 NO OF CHARS TO SEND «, t00=0x002b, t01=0x00a0}
0x43e6…4418 Head {h00=0x002e, h01=0x0050, text=»* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER«, t00=0x002b, t01=0x00c6}
0x4418…443a Head {h00=0x001e, h01=0x0050, text=»* DEBIN3 LENGTH OF HEADER«, t00=0x002b, t01=0x00f8}
0x443a…446c Head {h00=0x002e, h01=0x0050, text=»* BIN15 ACTUAL LENGTH OF INPUT DATA USED«, t00=0x002b, t01=0x011a}
0x446c…4482 Head {h00=0x0012, h01=0x0050, text=» CMP BIN16,W0 «, t00=0x002b, t01=0x014c}
0x4482…44a4 Head {h00=0x001e, h01=0x0050, text=» BE LSWRRET NODATA=NOWRITE«, t00=0x002b, t01=0x0162}
0x44a4…44d0 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,RECLGD SET RECORD LENGTH «, t00=0x002b, t01=0x0184}
0x44d0…4500 Head {h00=0x002c, h01=0x0050, text=» ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO«, t00=0x002c, t01=0x0020}
0x4500…4532 Head {h00=0x002e, h01=0x0050, text=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO«, t00=0x002c, t01=0x0050}
0x4532…4556 Head {h00=0x0020, h01=0x0050, text=» CBE BCDI21(W4),=D'1',LSWR50«, t00=0x002c, t01=0x0082}
0x4556…4582 Head {h00=0x0028, h01=0x0050, text=»* NOT FIRST TIME (SEQUENCE NO > 1) «, t00=0x002c, t01=0x00a6}
0x4582…45b2 Head {h00=0x002c, h01=0x0050, text=»* COPY HEADER PART, LENGTH IN WORK(W15)«, t00=0x002c, t01=0x00d2}
0x45b2…45e2 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER«, t00=0x002c, t01=0x0102}
0x45e2…460c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,WORK(W15) START POINT«, t00=0x002c, t01=0x0132}
0x460c…461e Head {h00=0x000e, h01=0x0050, text=» B LSWR55 «, t00=0x002c, t01=0x015c}
0x461e…462c Head {h00=0x000a, h01=0x0050, text=»LSWR50«, t00=0x002c, t01=0x016e}
0x462c…4660 Head {h00=0x0030, h01=0x0050, text=»* FIRST OUTPUT RECORD FOR THIS INPUT RECORD«, t00=0x002c, t01=0x017c}
0x4660…4684 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN3,W0 START POINT «, t00=0x002d, t01=0x0020}
0x4684…468e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0044}
0x468e…469c Head {h00=0x000a, h01=0x0050, text=»LSWR55«, t00=0x002d, t01=0x004e}
0x469c…46ce Head {h00=0x002e, h01=0x0050, text=» CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING?«, t00=0x002d, t01=0x005c}
0x46ce…46e0 Head {h00=0x000e, h01=0x0050, text=» NO ROOM«, t00=0x002d, t01=0x008e}
0x46e0…4708 Head {h00=0x0024, h01=0x0050, text=» TBT SPLITFL,LSWR57 NORMAL SPLIT«, t00=0x002d, t01=0x00a0}
0x4708…4724 Head {h00=0x0018, h01=0x0050, text=» FIND PRECEDING & «, t00=0x002d, t01=0x00c8}
0x4724…4754 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN1,BIN4 START AT END OF RECORD«, t00=0x002d, t01=0x00e4}
0x4754…477a Head {h00=0x0022, h01=0x0050, text=» MOVE STR2A,=C'&&' LOOK FOR & «, t00=0x002d, t01=0x0114}
0x477a…4788 Head {h00=0x000a, h01=0x0050, text=»LSWR56«, t00=0x002d, t01=0x013a}
0x4788…479e Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x002d, t01=0x0148}
0x479e…47c2 Head {h00=0x0020, h01=0x0050, text=» CBNG DEBIN1,W0,LSWR57 NO & «, t00=0x002d, t01=0x015e}
0x47c2…47de Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN2,DEBIN1 «, t00=0x002d, t01=0x0182}
0x47de…480e Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1«, t00=0x002e, t01=0x000e}
0x480e…482c Head {h00=0x001a, h01=0x0050, text=» BNOK LSWR56 NOT FOUND«, t00=0x002e, t01=0x003e}
0x482c…4846 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,DEBIN2«, t00=0x002e, t01=0x005c}
0x4846…4858 Head {h00=0x000e, h01=0x0050, text=» B LSWR59 «, t00=0x002e, t01=0x0076}
0x4858…486e Head {h00=0x0012, h01=0x0050, text=»*NORMAL SPLIT «, t00=0x002e, t01=0x0088}
0x486e…487c Head {h00=0x000a, h01=0x0050, text=»LSWR57«, t00=0x002e, t01=0x009e}
0x487c…4894 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,BIN4«, t00=0x002e, t01=0x00ac}
0x4894…48a6 Head {h00=0x000e, h01=0x0050, text=» B LSWR59 «, t00=0x002e, t01=0x00c4}
0x48a6…48d2 Head {h00=0x0028, h01=0x0050, text=»* NO OF CHARS, FIT IN AVAILABLE ROOM«, t00=0x002e, t01=0x00d6}
0x48d2…48e0 Head {h00=0x000a, h01=0x0050, text=»LSWR58«, t00=0x002e, t01=0x0102}
0x48e0…4908 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,BIN16 SEND ALL CHARS«, t00=0x002e, t01=0x0110}
0x4908…4912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0138}
0x4912…4920 Head {h00=0x000a, h01=0x0050, text=»LSWR59«, t00=0x002e, t01=0x0142}
0x4920…4962 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST«, t00=0x002e, t01=0x0150}
0x4962…499c (47, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER«, t00=0x002f, t01=0x0004}
0x499c…49ca Head {h00=0x002a, h01=0x0050, text=»* BIN4 = NO OF CHARS IN OUTPUT BUFFER «, t00=0x002f, t01=0x003e}
0x49ca…49e2 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN15«, t00=0x002f, t01=0x006c}
0x49e2…4a06 Head {h00=0x0020, h01=0x0050, text=» ADD BIN4,DEBIN3 ADD HEADER «, t00=0x002f, t01=0x0084}
0x4a06…4a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a8}
0x4a10…4a2c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x002f, t01=0x00b2}
0x4a2c…4a52 Head {h00=0x0022, h01=0x0050, text=» SUB DEBIN1,BIN4 NO OF BLANKS «, t00=0x002f, t01=0x00ce}
0x4a52…4a98 Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS «, t00=0x002f, t01=0x00f4}
0x4a98…4aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013a}
0x4aa2…4ab0 Head {h00=0x000a, h01=0x0050, text=»LSWR60«, t00=0x002f, t01=0x0144}
0x4ab0…4ad8 Head {h00=0x0024, h01=0x0050, text=»* INSERT RECORD NO - BCDI21(W5)«, t00=0x002f, t01=0x0152}
0x4ad8…4b0c Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W17),W0,LSWR70 SKIP IF LENGTH ZERO«, t00=0x002f, t01=0x017a}
0x4b0c…4b3e Head {h00=0x002e, h01=0x0050, text=» MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO«, t00=0x0030, t01=0x001e}
0x4b3e…4b64 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0030, t01=0x0050}
0x4b64…4b92 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN1,WORK(W17) FIND START OF NO«, t00=0x0030, t01=0x0076}
0x4b92…4bd0 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1«, t00=0x0030, t01=0x00a4}
0x4bd0…4bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e2}
0x4bda…4be8 Head {h00=0x000a, h01=0x0050, text=»LSWR70«, t00=0x0030, t01=0x00ec}
0x4be8…4c14 Head {h00=0x0028, h01=0x0050, text=»* INSERT SEQUENCE NO - BCDI21(W4)«, t00=0x0030, t01=0x00fa}
0x4c14…4c48 Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W19),W0,LSWR80 SKIPIF LENGTH ZERO «, t00=0x0030, t01=0x0126}
0x4c48…4c7c Head {h00=0x0030, h01=0x0050, text=» MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO«, t00=0x0030, t01=0x015a}
0x4c7c…4ca2 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0030, t01=0x018e}
0x4ca2…4cd2 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN1,WORK(W19) FIELD START OF NO «, t00=0x0031, t01=0x0024}
0x4cd2…4d10 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1«, t00=0x0031, t01=0x0054}
0x4d10…4d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0092}
0x4d1a…4d28 Head {h00=0x000a, h01=0x0050, text=»LSWR80«, t00=0x0031, t01=0x009c}
0x4d28…4d46 Head {h00=0x001a, h01=0x0050, text=»* HANDLE END OF RECORD«, t00=0x0031, t01=0x00aa}
0x4d46…4d74 Head {h00=0x002a, h01=0x0050, text=» CBG BIN16,BIN15,LSWR100 NO ROOM, CONT«, t00=0x0031, t01=0x00c8}
0x4d74…4d88 Head {h00=0x0010, h01=0x0050, text=»* INSERT EOR«, t00=0x0031, t01=0x00f6}
0x4d88…4d9c Head {h00=0x0010, h01=0x0050, text=» B LSWRSEND «, t00=0x0031, t01=0x010a}
0x4d9c…4da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011e}
0x4da6…4db6 Head {h00=0x000c, h01=0x0050, text=»LSWR100 «, t00=0x0031, t01=0x0128}
0x4db6…4de2 Head {h00=0x0028, h01=0x0050, text=» INSRT BPOOL(BIN10),W0,W2,INSERT,W0 «, t00=0x0031, t01=0x0138}
0x4de2…4dfe Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x0031, t01=0x0164}
0x4dfe…4e14 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN1,W2«, t00=0x0031, t01=0x0180}
0x4e14…4e3e Head {h00=0x0026, h01=0x0050, text=» WRITE DEDSPRT,BPOOL(BIN10),DEBIN1«, t00=0x0032, t01=0x0008}
0x4e3e…4e60 Head {h00=0x001e, h01=0x0050, text=» DLETE BPOOL(BIN10),W0,W2 «, t00=0x0032, t01=0x0032}
0x4e60…4e76 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x0032, t01=0x0054}
0x4e76…4eb0 Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND«, t00=0x0032, t01=0x006a}
0x4eb0…4ec8 Head {h00=0x0014, h01=0x0050, text=» SUB BIN16,BIN15«, t00=0x0032, t01=0x00a4}
0x4ec8…4ee2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x0032, t01=0x00bc}
0x4ee2…4ef8 Head {h00=0x0012, h01=0x0050, text=» CMP VSEIND,W1«, t00=0x0032, t01=0x00d6}
0x4ef8…4f20 Head {h00=0x0024, h01=0x0050, text=» BE LSWR00 WRITE RESET OF BUFFER«, t00=0x0032, t01=0x00ec}
0x4f20…4f2e Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x0032, t01=0x0114}
0x4f2e…4f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0122}
0x4f38…4f48 Head {h00=0x000c, h01=0x0050, text=»LSWRSEND«, t00=0x0032, t01=0x012c}
0x4f48…4f74 Head {h00=0x0028, h01=0x0050, text=» INSRT BPOOL(BIN10),W0,W2,INSERT,W0 «, t00=0x0032, t01=0x013c}
0x4f74…4f90 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x0032, t01=0x0168}
0x4f90…4fa6 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN1,W2«, t00=0x0032, t01=0x0184}
0x4fa6…4fd0 Head {h00=0x0026, h01=0x0050, text=» WRITE DEDSPRT,BPOOL(BIN10),DEBIN1«, t00=0x0033, t01=0x000a}
0x4fd0…4ff2 Head {h00=0x001e, h01=0x0050, text=» DLETE BPOOL(BIN10),W0,W2 «, t00=0x0033, t01=0x0034}
0x4ff2…5002 Head {h00=0x000c, h01=0x0050, text=»LSWRRET «, t00=0x0033, t01=0x0056}
0x5002…500e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0033, t01=0x0066}
0x500e…501c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0033, t01=0x0072}
0x501c…502a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0080}
0x502a…5034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008e}
0x5034…5052 Head {h00=0x001a, h01=0x0050, text=»* FDWRIT WRITE BLOCKS«, t00=0x0033, t01=0x0098}
0x5052…505c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b6}
0x505c…5064 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00c0}
0x5064…506c Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x00c8}
0x506c…5080 Head {h00=0x0010, h01=0x0050, text=»FDWRIT PROC «, t00=0x0033, t01=0x00d0}
0x5080…508e Head {h00=0x000a, h01=0x0050, text=»FDWR00«, t00=0x0033, t01=0x00e4}
0x508e…50a0 Head {h00=0x000e, h01=0x0050, text=» WAIT DSFD«, t00=0x0033, t01=0x00f2}
0x50a0…50b8 Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x0033, t01=0x0104}
0x50b8…50d8 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,BIN4,W2 EOE «, t00=0x0033, t01=0x011c}
0x50d8…50ea Head {h00=0x000e, h01=0x0050, text=» BZ FDWR10«, t00=0x0033, t01=0x013c}
0x50ea…5106 Head {h00=0x0018, h01=0x0050, text=» RET 4 END OF EXTENT«, t00=0x0033, t01=0x014e}
0x5106…5114 Head {h00=0x000a, h01=0x0050, text=»FDWR10«, t00=0x0033, t01=0x016a}
0x5114…5130 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'024F' «, t00=0x0033, t01=0x0178}
0x5130…514c (52, 0, 400) Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x0034, t01=0x0004}
0x514c…5160 Head {h00=0x0010, h01=0x0050, text=» BERR FDWR20«, t00=0x0034, t01=0x0020}
0x5160…5198 Head {h00=0x0034, h01=0x0050, text=» IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL «, t00=0x0034, t01=0x0034}
0x5198…51a6 Head {h00=0x000a, h01=0x0050, text=»FDWROP«, t00=0x0034, t01=0x006c}
0x51a6…51b4 Head {h00=0x000a, h01=0x0050, text=»FDWRCL«, t00=0x0034, t01=0x007a}
0x51b4…51c6 Head {h00=0x000e, h01=0x0050, text=» B FDWR20 «, t00=0x0034, t01=0x0088}
0x51c6…51e4 Head {h00=0x001a, h01=0x0050, text=»FDWRHD BATCH HEADER «, t00=0x0034, t01=0x009a}
0x51e4…521c Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER«, t00=0x0034, t01=0x00b8}
0x521c…5236 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x0034, t01=0x00f0}
0x5236…5268 Head {h00=0x002e, h01=0x0050, text=» XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0«, t00=0x0034, t01=0x010a}
0x5268…527c Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x0034, t01=0x013c}
0x527c…5286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0150}
0x5286…5296 Head {h00=0x000c, h01=0x0050, text=»FDWRDATA«, t00=0x0034, t01=0x015a}
0x5296…52bc Head {h00=0x0022, h01=0x0050, text=»* BIN16 NO OF CHARS TO SEND «, t00=0x0034, t01=0x016a}
0x52bc…52ee Head {h00=0x002e, h01=0x0050, text=»* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER«, t00=0x0034, t01=0x0190}
0x52ee…5310 Head {h00=0x001e, h01=0x0050, text=»* DEBIN3 LENGTH OF HEADER«, t00=0x0035, t01=0x0032}
0x5310…5342 Head {h00=0x002e, h01=0x0050, text=»* BIN15 ACTUAL LENGTH OF INPUT DATA USED«, t00=0x0035, t01=0x0054}
0x5342…5358 Head {h00=0x0012, h01=0x0050, text=» CMP BIN16,W0 «, t00=0x0035, t01=0x0086}
0x5358…537e Head {h00=0x0022, h01=0x0050, text=» BE FDWRRET NO DATA= NO WRITE «, t00=0x0035, t01=0x009c}
0x537e…53aa Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,RECLGD SET RECORD LENGTH «, t00=0x0035, t01=0x00c2}
0x53aa…53da Head {h00=0x002c, h01=0x0050, text=» ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO«, t00=0x0035, t01=0x00ee}
0x53da…540c Head {h00=0x002e, h01=0x0050, text=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO«, t00=0x0035, t01=0x011e}
0x540c…5430 Head {h00=0x0020, h01=0x0050, text=» CBE BCDI21(W4),=D'1',FDWR50«, t00=0x0035, t01=0x0150}
0x5430…545c Head {h00=0x0028, h01=0x0050, text=»* NOT FIRST TIME (SEQUENCE NO > 1) «, t00=0x0035, t01=0x0174}
0x545c…548c Head {h00=0x002c, h01=0x0050, text=»* COPY HEADER PART, LENGTH IN WORK(W15)«, t00=0x0036, t01=0x0010}
0x548c…54bc Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER«, t00=0x0036, t01=0x0040}
0x54bc…54e6 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,WORK(W15) START POINT«, t00=0x0036, t01=0x0070}
0x54e6…54f8 Head {h00=0x000e, h01=0x0050, text=» B FDWR55 «, t00=0x0036, t01=0x009a}
0x54f8…5502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ac}
0x5502…5510 Head {h00=0x000a, h01=0x0050, text=»FDWR50«, t00=0x0036, t01=0x00b6}
0x5510…5544 Head {h00=0x0030, h01=0x0050, text=»* FIRST OUTPUT RECORD FOR THIS INPUT RECORD«, t00=0x0036, t01=0x00c4}
0x5544…5568 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN3,W0 START POINT «, t00=0x0036, t01=0x00f8}
0x5568…5572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011c}
0x5572…5580 Head {h00=0x000a, h01=0x0050, text=»FDWR55«, t00=0x0036, t01=0x0126}
0x5580…55b4 Head {h00=0x0030, h01=0x0050, text=» CBL BIN16,BIN4,FDWR58 ROOM FOR EVERYTHING? «, t00=0x0036, t01=0x0134}
0x55b4…55c6 Head {h00=0x000e, h01=0x0050, text=» NO ROOM«, t00=0x0036, t01=0x0168}
0x55c6…55ee Head {h00=0x0024, h01=0x0050, text=» TBT SPLITFL,FDWR57 NORMAL SPLIT«, t00=0x0036, t01=0x017a}
0x55ee…560a Head {h00=0x0018, h01=0x0050, text=» FIND PRECEDING & «, t00=0x0037, t01=0x0012}
0x560a…563a Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN1,BIN4 START AT END OF RECORD«, t00=0x0037, t01=0x002e}
0x563a…5660 Head {h00=0x0022, h01=0x0050, text=» MOVE STR2A,=C'&&' LOOK FOR & «, t00=0x0037, t01=0x005e}
0x5660…566e Head {h00=0x000a, h01=0x0050, text=»FDWR56«, t00=0x0037, t01=0x0084}
0x566e…5684 Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x0037, t01=0x0092}
0x5684…56a8 Head {h00=0x0020, h01=0x0050, text=» CBNG DEBIN1,W0,FDWR57 NO & «, t00=0x0037, t01=0x00a8}
0x56a8…56c4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN2,DEBIN1 «, t00=0x0037, t01=0x00cc}
0x56c4…56f4 Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1«, t00=0x0037, t01=0x00e8}
0x56f4…5712 Head {h00=0x001a, h01=0x0050, text=» BNOK FDWR56 NOT FOUND«, t00=0x0037, t01=0x0118}
0x5712…572c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,DEBIN2«, t00=0x0037, t01=0x0136}
0x572c…573e Head {h00=0x000e, h01=0x0050, text=» B FDWR59 «, t00=0x0037, t01=0x0150}
0x573e…5772 Head {h00=0x0030, h01=0x0050, text=»* NORMAL SPLIT, USE COMPLETE AVAILABLE ROOM «, t00=0x0037, t01=0x0162}
0x5772…5780 Head {h00=0x000a, h01=0x0050, text=»FDWR57«, t00=0x0038, t01=0x0008}
0x5780…5798 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,BIN4«, t00=0x0038, t01=0x0016}
0x5798…57aa Head {h00=0x000e, h01=0x0050, text=» B FDWR59 «, t00=0x0038, t01=0x002e}
0x57aa…57d6 Head {h00=0x0028, h01=0x0050, text=»* NO OF CHARS, FIT IN AVAILABLE ROOM«, t00=0x0038, t01=0x0040}
0x57d6…57e4 Head {h00=0x000a, h01=0x0050, text=»FDWR58«, t00=0x0038, t01=0x006c}
0x57e4…580c Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,BIN16 SEND ALL CHARS«, t00=0x0038, t01=0x007a}
0x580c…5816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a2}
0x5816…5824 Head {h00=0x000a, h01=0x0050, text=»FDWR59«, t00=0x0038, t01=0x00ac}
0x5824…5866 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST«, t00=0x0038, t01=0x00ba}
0x5866…58a0 Head {h00=0x0036, h01=0x0050, text=»* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER«, t00=0x0038, t01=0x00fc}
0x58a0…58ce Head {h00=0x002a, h01=0x0050, text=»* BIN4 = NO OF CHARS IN OUTPUT BUFFER «, t00=0x0038, t01=0x0136}
0x58ce…58e6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN15«, t00=0x0038, t01=0x0164}
0x58e6…590a Head {h00=0x0020, h01=0x0050, text=» ADD BIN4,DEBIN3 ADD HEADER «, t00=0x0038, t01=0x017c}
0x590a…5914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0010}
0x5914…5930 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x0039, t01=0x001a}
0x5930…5956 Head {h00=0x0022, h01=0x0050, text=» SUB DEBIN1,BIN4 NO OF BLANKS «, t00=0x0039, t01=0x0036}
0x5956…599c Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS «, t00=0x0039, t01=0x005c}
0x599c…59a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a2}
0x59a6…59b4 Head {h00=0x000a, h01=0x0050, text=»FDWR60«, t00=0x0039, t01=0x00ac}
0x59b4…59dc Head {h00=0x0024, h01=0x0050, text=»* INSERT RECORD NO - BCDI21(W5)«, t00=0x0039, t01=0x00ba}
0x59dc…5a10 Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W17),W0,FDWR70 SKIP IF LENGTH ZERO«, t00=0x0039, t01=0x00e2}
0x5a10…5a42 Head {h00=0x002e, h01=0x0050, text=» MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO«, t00=0x0039, t01=0x0116}
0x5a42…5a68 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0039, t01=0x0148}
0x5a68…5a96 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN1,WORK(W17) FIND START OF NO«, t00=0x0039, t01=0x016e}
0x5a96…5ad4 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1«, t00=0x003a, t01=0x000c}
0x5ad4…5ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004a}
0x5ade…5aec Head {h00=0x000a, h01=0x0050, text=»FDWR70«, t00=0x003a, t01=0x0054}
0x5aec…5b18 Head {h00=0x0028, h01=0x0050, text=»* INSERT SEQUENCE NO - BCDI21(W4)«, t00=0x003a, t01=0x0062}
0x5b18…5b4c Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO«, t00=0x003a, t01=0x008e}
0x5b4c…5b80 Head {h00=0x0030, h01=0x0050, text=» MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO«, t00=0x003a, t01=0x00c2}
0x5b80…5ba6 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x003a, t01=0x00f6}
0x5ba6…5bd6 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN1,WORK(W19) FIELD START OF NO «, t00=0x003a, t01=0x011c}
0x5bd6…5c14 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1«, t00=0x003a, t01=0x014c}
0x5c14…5c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018a}
0x5c1e…5c2c (59, 0, 400) Head {h00=0x000a, h01=0x0050, text=»FDWR80«, t00=0x003b, t01=0x0004}
0x5c2c…5c4c Head {h00=0x001c, h01=0x0050, text=»* HANDLE END OF RECORD «, t00=0x003b, t01=0x0012}
0x5c4c…5c82 Head {h00=0x0032, h01=0x0050, text=» CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION«, t00=0x003b, t01=0x0032}
0x5c82…5c98 Head {h00=0x0012, h01=0x0050, text=»* INSERT EOR «, t00=0x003b, t01=0x0068}
0x5c98…5cbc Head {h00=0x0020, h01=0x0050, text=» MOVE STR2A,=X'7F' EOR CHAR «, t00=0x003b, t01=0x007e}
0x5cbc…5cf4 Head {h00=0x0034, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 INSERT EOR «, t00=0x003b, t01=0x00a2}
0x5cf4…5d08 Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x003b, t01=0x00da}
0x5d08…5d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ee}
0x5d12…5d22 Head {h00=0x000c, h01=0x0050, text=»FDWR100 «, t00=0x003b, t01=0x00f8}
0x5d22…5d4e Head {h00=0x0028, h01=0x0050, text=»* CHECK IF CONTINUATION CHAR NEEDED«, t00=0x003b, t01=0x0108}
0x5d4e…5d68 Head {h00=0x0016, h01=0x0050, text=» TBF BCONT,FDWR150«, t00=0x003b, t01=0x0134}
0x5d68…5d80 Head {h00=0x0014, h01=0x0050, text=»* CONTINUATION «, t00=0x003b, t01=0x014e}
0x5d80…5d9c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x003b, t01=0x0166}
0x5d9c…5dbe Head {h00=0x001e, h01=0x0050, text=» CBNE BIN4,DEBIN1,FDWR140 «, t00=0x003b, t01=0x0182}
0x5dbe…5dd2 Head {h00=0x0010, h01=0x0050, text=» SUB BIN4,W1«, t00=0x003c, t01=0x0014}
0x5dd2…5de8 Head {h00=0x0012, h01=0x0050, text=» SUB BIN15,W1 «, t00=0x003c, t01=0x0028}
0x5de8…5df8 Head {h00=0x000c, h01=0x0050, text=»FDWR140 «, t00=0x003c, t01=0x003e}
0x5df8…5e24 Head {h00=0x0028, h01=0x0050, text=» MOVE STR2A,=X'21' CONTINUATION MARK«, t00=0x003c, t01=0x004e}
0x5e24…5e50 Head {h00=0x0028, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1«, t00=0x003c, t01=0x007a}
0x5e50…5e60 Head {h00=0x000c, h01=0x0050, text=»FDWR150 «, t00=0x003c, t01=0x00a6}
0x5e60…5e7c Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003c, t01=0x00b6}
0x5e7c…5e92 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003c, t01=0x00d2}
0x5e92…5ec8 Head {h00=0x0032, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD «, t00=0x003c, t01=0x00e8}
0x5ec8…5ede Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003c, t01=0x011e}
0x5ede…5f18 Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND«, t00=0x003c, t01=0x0134}
0x5f18…5f30 Head {h00=0x0014, h01=0x0050, text=» SUB BIN16,BIN15«, t00=0x003c, t01=0x016e}
0x5f30…5f4a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x003c, t01=0x0186}
0x5f4a…5f60 Head {h00=0x0012, h01=0x0050, text=» CMP VSEIND,W1«, t00=0x003d, t01=0x0010}
0x5f60…5f88 Head {h00=0x0024, h01=0x0050, text=» BE FDWR00 WRITE REST OF BUFFER «, t00=0x003d, t01=0x0026}
0x5f88…5f96 Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x003d, t01=0x004e}
0x5f96…5fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x005c}
0x5fa0…5fb0 Head {h00=0x000c, h01=0x0050, text=»FDWRBAL «, t00=0x003d, t01=0x0066}
0x5fb0…5fe8 Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER«, t00=0x003d, t01=0x0076}
0x5fe8…6008 Head {h00=0x001c, h01=0x0050, text=» EDIT BPOOL(BIN9),FFD999«, t00=0x003d, t01=0x00ae}
0x6008…6022 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x003d, t01=0x00ce}
0x6022…6054 Head {h00=0x002e, h01=0x0050, text=» XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0«, t00=0x003d, t01=0x00e8}
0x6054…6068 Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x003d, t01=0x011a}
0x6068…6072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012e}
0x6072…607c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0138}
0x607c…608c Head {h00=0x000c, h01=0x0050, text=»FDWRSEND«, t00=0x003d, t01=0x0142}
0x608c…60a8 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003d, t01=0x0152}
0x60a8…60be Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003d, t01=0x016e}
0x60be…6100 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x003d, t01=0x0184}
0x6100…6110 Head {h00=0x000c, h01=0x0050, text=»FDWRRET «, t00=0x003e, t01=0x0036}
0x6110…611c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003e, t01=0x0046}
0x611c…612a Head {h00=0x000a, h01=0x0050, text=»FDWR20«, t00=0x003e, t01=0x0052}
0x612a…6138 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x003e, t01=0x0060}
0x6138…6146 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003e, t01=0x006e}
0x6146…6154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x007c}
0x6154…615e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008a}
0x615e…6182 Head {h00=0x0020, h01=0x0050, text=»* FDLOAD LOAD FD PROCEDURE «, t00=0x003e, t01=0x0094}
0x6182…618c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b8}
0x618c…6194 Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x00c2}
0x6194…619c Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x00ca}
0x619c…61b0 Head {h00=0x0010, h01=0x0050, text=»FDLOAD PROC «, t00=0x003e, t01=0x00d2}
0x61b0…61d0 Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x003e, t01=0x00e6}
0x61d0…61ec Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003e, t01=0x0106}
0x61ec…6226 Head {h00=0x0036, h01=0x0050, text=» CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD«, t00=0x003e, t01=0x0122}
0x6226…623e Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x003e, t01=0x015c}
0x623e…625e Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,BIN4,W5 IBM «, t00=0x003e, t01=0x0174}
0x625e…6270 (63, 0, 400) Head {h00=0x000e, h01=0x0050, text=» BZ FDLOA2«, t00=0x003f, t01=0x0004}
0x6270…628c Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'000F' «, t00=0x003f, t01=0x0016}
0x628c…62a8 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x003f, t01=0x0032}
0x62a8…62bc Head {h00=0x0010, h01=0x0050, text=» BNOK FDLOA2«, t00=0x003f, t01=0x004e}
0x62bc…62c8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003f, t01=0x0062}
0x62c8…62d6 Head {h00=0x000a, h01=0x0050, text=»FDLOA2«, t00=0x003f, t01=0x006e}
0x62d6…62f6 Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x003f, t01=0x007c}
0x62f6…6312 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003f, t01=0x009c}
0x6312…634e Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x003f, t01=0x00b8}
0x634e…635c Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x003f, t01=0x00f4}
0x635c…636a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x0102}
0x636a…6378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0110}
0x6378…6382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x011e}
0x6382…63be Head {h00=0x0038, h01=0x0050, text=»* CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER «, t00=0x003f, t01=0x0128}
0x63be…63e0 Head {h00=0x001e, h01=0x0050, text=»* RET =RECORD CONVERTED«, t00=0x003f, t01=0x0164}
0x63e0…63fa Head {h00=0x0016, h01=0x0050, text=»* RET 2 =TRANSMIT«, t00=0x003f, t01=0x0186}
0x63fa…6424 Head {h00=0x0026, h01=0x0050, text=»* RET 4 =CUMPULSORY FIELD EMPTHY «, t00=0x0040, t01=0x0010}
0x6424…6448 Head {h00=0x0020, h01=0x0050, text=»* RET 6 =BCD-FIELD OVERFLOW«, t00=0x0040, t01=0x003a}
0x6448…646e Head {h00=0x0022, h01=0x0050, text=»* RET 8 =EDIT BUFFER OVERFLOW«, t00=0x0040, t01=0x005e}
0x646e…6478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0084}
0x6478…64a0 Head {h00=0x0024, h01=0x0050, text=»* APPL = FIELD INTO BUFFER «, t00=0x0040, t01=0x008e}
0x64a0…64d8 Head {h00=0x0034, h01=0x0050, text=»* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK «, t00=0x0040, t01=0x00b6}
0x64d8…6500 Head {h00=0x0024, h01=0x0050, text=»* APPL = 2 NO TRANSMIT FIELD «, t00=0x0040, t01=0x00ee}
0x6500…6546 Head {h00=0x0042, h01=0x0050, text=»* APPL = 3 SUPPRESS LEADING ZEROES (IF HEADER:SETR GENEREL)«, t00=0x0040, t01=0x0116}
0x6546…658a Head {h00=0x0040, h01=0x0050, text=»* APPL = 4 LENGTH OF FIELD=MAXL (IF HEADER: SET GENERAL) «, t00=0x0040, t01=0x015c}
0x658a…65b0 Head {h00=0x0022, h01=0x0050, text=»* LISTE: ALWAYS SET «, t00=0x0041, t01=0x0010}
0x65b0…65e2 Head {h00=0x002e, h01=0x0050, text=»* FOLLOWING APPL ONLY USED IN BATCHHEADER«, t00=0x0041, t01=0x0036}
0x65e2…6616 Head {h00=0x0030, h01=0x0050, text=»* APPL = 13 EOR-CHAR AS END OF EACH RECORD«, t00=0x0041, t01=0x0068}
0x6616…663e Head {h00=0x0024, h01=0x0050, text=»* LISTE: ALWAYS CLEAR «, t00=0x0041, t01=0x009c}
0x663e…668c Head {h00=0x004a, h01=0x0050, text=»* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED «, t00=0x0041, t01=0x00c4}
0x668c…66b6 Head {h00=0x0026, h01=0x0050, text=»* LISTE: ALWAYS CLEAR«, t00=0x0041, t01=0x0112}
0x66b6…66ea Head {h00=0x0030, h01=0x0050, text=»* APPL = 15 INSERT BACHNAME IN THIS FIELD «, t00=0x0041, t01=0x013c}
0x66ea…6726 Head {h00=0x0038, h01=0x0050, text=»* APPL = 16 FIELDS (STARTING WITH &) ARE NOT SPLIT«, t00=0x0041, t01=0x0170}
0x6726…6750 Head {h00=0x0026, h01=0x0050, text=»* LSTE: ALWAYS CLEAR «, t00=0x0042, t01=0x001c}
0x6750…675a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0046}
0x675a…678e Head {h00=0x0030, h01=0x0050, text=»* APPL = 1XXX XXX=LENGTH OF RECORD HEADER«, t00=0x0042, t01=0x0050}
0x678e…67cc Head {h00=0x003a, h01=0x0050, text=»* APPL = 2XXX THIS FIELD IS THE RECORD NUMBER FIELD«, t00=0x0042, t01=0x0084}
0x67cc…681a Head {h00=0x004a, h01=0x0050, text=»* APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD «, t00=0x0042, t01=0x00c2}
0x681a…6824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0110}
0x6824…6840 Head {h00=0x0018, h01=0x0050, text=»* BIN4 = WORK ITEM «, t00=0x0042, t01=0x011a}
0x6840…685c Head {h00=0x0018, h01=0x0050, text=»* BIN7 = MAX LENGTH«, t00=0x0042, t01=0x0136}
0x685c…687a Head {h00=0x001a, h01=0x0050, text=»* BIN8 = FIELD NUMBER«, t00=0x0042, t01=0x0152}
0x687a…68a0 Head {h00=0x0022, h01=0x0050, text=»* BIN9 = INDEX TO EDIT BUFFER«, t00=0x0042, t01=0x0170}
0x68a0…68c6 Head {h00=0x0022, h01=0x0050, text=»* BIN13= DELETE START POINTER«, t00=0x0043, t01=0x0008}
0x68c6…68e4 Head {h00=0x001a, h01=0x0050, text=»* BIN16= EDIT POINTER«, t00=0x0043, t01=0x002e}
0x68e4…68ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004c}
0x68ee…6926 Head {h00=0x0034, h01=0x0050, text=»* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD «, t00=0x0043, t01=0x0056}
0x6926…6962 Head {h00=0x0038, h01=0x0050, text=»* STRG10A = WORK STRING FOR DATE/TIME/CONVERTED BCD«, t00=0x0043, t01=0x008e}
0x6962…698a Head {h00=0x0024, h01=0x0050, text=»* WORK(W15) = LENGTH OF HEADER «, t00=0x0043, t01=0x00ca}
0x698a…69b8 Head {h00=0x002a, h01=0x0050, text=»* WORK(W16) = RECORD NUMBER POSITION «, t00=0x0043, t01=0x00f2}
0x69b8…69e4 Head {h00=0x0028, h01=0x0050, text=»* WORK(W17) = RECORD NUMBER LENGTH «, t00=0x0043, t01=0x0120}
0x69e4…6a1a Head {h00=0x0032, h01=0x0050, text=»* WORK(W18) = CONTINUATION SEQUENCE POSITION «, t00=0x0043, t01=0x014c}
0x6a1a…6a4e Head {h00=0x0030, h01=0x0050, text=»* WORD(W19) = CONTINUATION SEQUENCE LENGTH «, t00=0x0043, t01=0x0182}
0x6a4e…6a82 Head {h00=0x0030, h01=0x0050, text=»* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER«, t00=0x0044, t01=0x0026}
0x6a82…6aa8 Head {h00=0x0022, h01=0x0050, text=»* BCDI21(W5) = RECORD NUMBER «, t00=0x0044, t01=0x005a}
0x6aa8…6ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0080}
0x6ab2…6acc Head {h00=0x0016, h01=0x0050, text=»CONV PROC CONT,FC «, t00=0x0044, t01=0x008a}
0x6acc…6ae8 Head {h00=0x0018, h01=0x0050, text=» CBG CONT,W0,CON100 «, t00=0x0044, t01=0x00a4}
0x6ae8…6af6 Head {h00=0x000a, h01=0x0050, text=»CON090«, t00=0x0044, t01=0x00c0}
0x6af6…6b16 Head {h00=0x001c, h01=0x0050, text=» MOVE BPOOL(BIN9),=X'20'«, t00=0x0044, t01=0x00ce}
0x6b16…6b46 Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W4),=D'0' RESET SEQUENCE NO«, t00=0x0044, t01=0x00ee}
0x6b46…6b72 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,W0 RESET DELETE POINTER «, t00=0x0044, t01=0x011e}
0x6b72…6b9e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,BIN13 LOAD EDIT POINTER «, t00=0x0044, t01=0x014a}
0x6b9e…6bac Head {h00=0x000a, h01=0x0050, text=»CON100«, t00=0x0044, t01=0x0176}
0x6bac…6bc0 Head {h00=0x0010, h01=0x0050, text=» CLEAR FSUPR«, t00=0x0044, t01=0x0184}
0x6bc0…6bda Head {h00=0x0016, h01=0x0050, text=» TBF BSUPR,CON105 «, t00=0x0045, t01=0x0008}
0x6bda…6bec Head {h00=0x000e, h01=0x0050, text=» SET FSUPR«, t00=0x0045, t01=0x0022}
0x6bec…6bfa Head {h00=0x000a, h01=0x0050, text=»CON105«, t00=0x0045, t01=0x0034}
0x6bfa…6c22 Head {h00=0x0024, h01=0x0050, text=» ADD BIN8,W1 UPDATE FIELD NUMBER«, t00=0x0045, t01=0x0042}
0x6c22…6c48 Head {h00=0x0022, h01=0x0050, text=» CALL GETFWD,BIN7,2,BIN8,BIN4 «, t00=0x0045, t01=0x006a}
0x6c48…6c62 Head {h00=0x0016, h01=0x0050, text=» CALL ADJUST,BIN7 «, t00=0x0045, t01=0x0090}
0x6c62…6c76 Head {h00=0x0010, h01=0x0050, text=» BOK CON130 «, t00=0x0045, t01=0x00aa}
0x6c76…6c98 Head {h00=0x001e, h01=0x0050, text=» BN CONRET ALL FIELD DONE «, t00=0x0045, t01=0x00be}
0x6c98…6cc2 Head {h00=0x0026, h01=0x0050, text=» B CONER1 COMPULSORY FIELD EMPTHY «, t00=0x0045, t01=0x00e0}
0x6cc2…6cd0 Head {h00=0x000a, h01=0x0050, text=»CON130«, t00=0x0045, t01=0x010a}
0x6cd0…6cf2 Head {h00=0x001e, h01=0x0050, text=» GETCTL 0,VSEIND GET APPL «, t00=0x0045, t01=0x0118}
0x6cf2…6cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x013a}
0x6cfc…6d32 Head {h00=0x0032, h01=0x0050, text=» CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE «, t00=0x0045, t01=0x0144}
0x6d32…6d6c Head {h00=0x0036, h01=0x0050, text=» CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADER «, t00=0x0045, t01=0x017a}
0x6d6c…6da2 Head {h00=0x0032, h01=0x0050, text=» CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO «, t00=0x0046, t01=0x0024}
0x6da2…6dda Head {h00=0x0034, h01=0x0050, text=» CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO «, t00=0x0046, t01=0x005a}
0x6dda…6e02 Head {h00=0x0024, h01=0x0050, text=» MOVE VSEIND,W2 CLEAR ERROR APPL«, t00=0x0046, t01=0x0092}
0x6e02…6e14 Head {h00=0x000e, h01=0x0050, text=» B CON131 «, t00=0x0046, t01=0x00ba}
0x6e14…6e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00cc}
0x6e1e…6e3e Head {h00=0x001c, h01=0x0050, text=»* HANDLE RECORD HEADER:«, t00=0x0046, t01=0x00d6}
0x6e3e…6e76 Head {h00=0x0034, h01=0x0050, text=»* APPL=1000, WHERE XXX=LENGTH OF RECORD HEADER «, t00=0x0046, t01=0x00f6}
0x6e76…6e86 Head {h00=0x000c, h01=0x0050, text=»APL1000 «, t00=0x0046, t01=0x012e}
0x6e86…6ea2 Head {h00=0x0018, h01=0x0050, text=» SUB VSEIND,=W'1000'«, t00=0x0046, t01=0x013e}
0x6ea2…6ede Head {h00=0x0038, h01=0x0050, text=» MOVE WORK(W15),VSEIND WORK(W15) = LENGTH OF HEADER «, t00=0x0046, t01=0x015a}
0x6ede…6efe Head {h00=0x001c, h01=0x0050, text=» SET FIRSTFL FIRST TIME «, t00=0x0047, t01=0x0008}
0x6efe…6f10 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x0047, t01=0x0028}
0x6f10…6f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x003a}
0x6f1a…6f4c Head {h00=0x002e, h01=0x0050, text=»* HANDLE POSITION AND LENGTH OF RECORD NO«, t00=0x0047, t01=0x0044}
0x6f4c…6f5c Head {h00=0x000c, h01=0x0050, text=»APL2000 «, t00=0x0047, t01=0x0076}
0x6f5c…6f94 Head {h00=0x0034, h01=0x0050, text=» MOVE WORK(W16),BIN16 SET START POS OF RECORD NO«, t00=0x0047, t01=0x0086}
0x6f94…6fbc Head {h00=0x0024, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL OF FIELD«, t00=0x0047, t01=0x00be}
0x6fbc…6ff0 Head {h00=0x0030, h01=0x0050, text=» MOVE WORK(W17),BIN7 SET LENGTH OF RECORD NO«, t00=0x0047, t01=0x00e6}
0x6ff0…701e Head {h00=0x002a, h01=0x0050, text=» SUB VSEIND,=W'2000' ADJUST APPL VALUE«, t00=0x0047, t01=0x011a}
0x701e…7040 Head {h00=0x001e, h01=0x0050, text=» B CON131 FURTHER HANDLING«, t00=0x0047, t01=0x0148}
0x7040…704a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016a}
0x704a…707e Head {h00=0x0030, h01=0x0050, text=»* HANDLE POSITION AND LENGTH OF SEQUENCE NO«, t00=0x0047, t01=0x0174}
0x707e…708e Head {h00=0x000c, h01=0x0050, text=»APL3000 «, t00=0x0048, t01=0x0018}
0x708e…70ce Head {h00=0x003c, h01=0x0050, text=» MOVE WORK(W18),BIN16 SET START POSITION OF SEQUENCE NO «, t00=0x0048, t01=0x0028}
0x70ce…70f6 Head {h00=0x0024, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL OF FIELD«, t00=0x0048, t01=0x0068}
0x70f6…712c Head {h00=0x0032, h01=0x0050, text=» MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE NO«, t00=0x0048, t01=0x0090}
0x712c…715a Head {h00=0x002a, h01=0x0050, text=» SUB VSEIND,=W'3000' ADJUST APPL VALUE«, t00=0x0048, t01=0x00c6}
0x715a…717c Head {h00=0x001e, h01=0x0050, text=» B CON131 FURTHER HANDLING«, t00=0x0048, t01=0x00f4}
0x717c…7186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0116}
0x7186…7190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0120}
0x7190…719e Head {h00=0x000a, h01=0x0050, text=»CON131«, t00=0x0048, t01=0x012a}
0x719e…71a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0138}
0x71a8…71c6 Head {h00=0x001a, h01=0x0050, text=» CBNE BTYPE,W3,CON150 «, t00=0x0048, t01=0x0142}
0x71c6…71e0 Head {h00=0x0016, h01=0x0050, text=»* DATA RECORD «, t00=0x0048, t01=0x0160}
0x71e0…720e Head {h00=0x002a, h01=0x0050, text=» IB VSEIND,CON132,CON100,CON135,CON140«, t00=0x0048, t01=0x017a}
0x720e…721c Head {h00=0x000a, h01=0x0050, text=»CON132«, t00=0x0049, t01=0x0018}
0x721c…722e Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0049, t01=0x0026}
0x722e…7238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0038}
0x7238…7246 Head {h00=0x000a, h01=0x0050, text=»CON135«, t00=0x0049, t01=0x0042}
0x7246…7268 Head {h00=0x001e, h01=0x0050, text=»* SUPPRESS LEADING ZEROES«, t00=0x0049, t01=0x0050}
0x7268…727a Head {h00=0x000e, h01=0x0050, text=» SET FSUPR«, t00=0x0049, t01=0x0072}
0x727a…728c Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0049, t01=0x0084}
0x728c…7296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0096}
0x7296…72a4 Head {h00=0x000a, h01=0x0050, text=»CON140«, t00=0x0049, t01=0x00a0}
0x72a4…72be Head {h00=0x0016, h01=0x0050, text=»* NO SUPPRESSION «, t00=0x0049, t01=0x00ae}
0x72be…72d2 Head {h00=0x0010, h01=0x0050, text=» CLEAR FSUPR«, t00=0x0049, t01=0x00c8}
0x72d2…72e4 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0049, t01=0x00dc}
0x72e4…72ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00ee}
0x72ee…72f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00f8}
0x72f8…7306 Head {h00=0x000a, h01=0x0050, text=»CON150«, t00=0x0049, t01=0x0102}
0x7306…7332 Head {h00=0x0028, h01=0x0050, text=»* IN HEADER, SET GENERAL CONDITIONS«, t00=0x0049, t01=0x0110}
0x7332…736c Head {h00=0x0036, h01=0x0050, text=» IB VSEIND,CON152,CON100,CON155,CON160,CON152, C «, t00=0x0049, t01=0x013c}
0x736c…739c Head {h00=0x002c, h01=0x0050, text=» CON152,CON152,CON152,CON152,CON152, C«, t00=0x0049, t01=0x0176}
0x739c…73d0 Head {h00=0x0030, h01=0x0050, text=» CON152,CON152,CON165,CON170,CON175,CON180 «, t00=0x004a, t01=0x0016}
0x73d0…73de Head {h00=0x000a, h01=0x0050, text=»CON152«, t00=0x004a, t01=0x004a}
0x73de…73f0 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x004a, t01=0x0058}
0x73f0…73fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x006a}
0x73fa…7408 Head {h00=0x000a, h01=0x0050, text=»CON155«, t00=0x004a, t01=0x0074}
0x7408…7434 Head {h00=0x0028, h01=0x0050, text=»* GENERAL SUPPRESS LEADING ZEROES «, t00=0x004a, t01=0x0082}
0x7434…7446 Head {h00=0x000e, h01=0x0050, text=» SET BSUPR«, t00=0x004a, t01=0x00ae}
0x7446…7458 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x00c0}
0x7458…7462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d2}
0x7462…7470 Head {h00=0x000a, h01=0x0050, text=»CON160«, t00=0x004a, t01=0x00dc}
0x7470…7492 Head {h00=0x001e, h01=0x0050, text=»* GENERAL NO SUPPRESSION «, t00=0x004a, t01=0x00ea}
0x7492…74be Head {h00=0x0028, h01=0x0050, text=» CBE W9,FC,CON100 LISTE: ALWAYS SET «, t00=0x004a, t01=0x010c}
0x74be…74d2 Head {h00=0x0010, h01=0x0050, text=» CLEAR BSUPR«, t00=0x004a, t01=0x0138}
0x74d2…74e4 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x014c}
0x74e4…74ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015e}
0x74ee…74fc Head {h00=0x000a, h01=0x0050, text=»CON165«, t00=0x004a, t01=0x0168}
0x74fc…7514 Head {h00=0x0014, h01=0x0050, text=»* EOR CHARACTER «, t00=0x004a, t01=0x0176}
0x7514…7526 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x018e}
0x7526…7530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0010}
0x7530…753e Head {h00=0x000a, h01=0x0050, text=»CON170«, t00=0x004b, t01=0x001a}
0x753e…755e Head {h00=0x001c, h01=0x0050, text=»* CONTINUATION CHARACTER«, t00=0x004b, t01=0x0028}
0x755e…758c Head {h00=0x002a, h01=0x0050, text=» CBE W9,FC,CON100 LISTE: ALWAYS CLEAR «, t00=0x004b, t01=0x0048}
0x758c…75ba Head {h00=0x002a, h01=0x0050, text=» SET BCONT INDICATE CONT. CHAR NEEDED «, t00=0x004b, t01=0x0076}
0x75ba…75cc Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004b, t01=0x00a4}
0x75cc…75d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00b6}
0x75d6…75e4 Head {h00=0x000a, h01=0x0050, text=»CON175«, t00=0x004b, t01=0x00c0}
0x75e4…7600 Head {h00=0x0018, h01=0x0050, text=»* INSERT BATCH NAME«, t00=0x004b, t01=0x00ce}
0x7600…7616 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W6 «, t00=0x004b, t01=0x00ea}
0x7616…762e Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,W188 «, t00=0x004b, t01=0x0100}
0x762e…7652 Head {h00=0x0020, h01=0x0050, text=» SUB BIN4,BIN7 LENGTH FIELD «, t00=0x004b, t01=0x0118}
0x7652…766a Head {h00=0x0014, h01=0x0050, text=» SUB BIN4,BIN16 «, t00=0x004b, t01=0x013c}
0x766a…76a4 Head {h00=0x0036, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME«, t00=0x004b, t01=0x0154}
0x76a4…76b6 Head {h00=0x000e, h01=0x0050, text=» B CON260 «, t00=0x004b, t01=0x018e}
0x76b6…76c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0010}
0x76c0…76ce Head {h00=0x000a, h01=0x0050, text=»CON180«, t00=0x004c, t01=0x001a}
0x76ce…76fe Head {h00=0x002c, h01=0x0050, text=»* FIELDS (STARTING WITH &) ARE NOT SPLIT«, t00=0x004c, t01=0x0028}
0x76fe…7726 Head {h00=0x0024, h01=0x0050, text=» CLEAR SPLITFL NOT NORMAL SPLIT «, t00=0x004c, t01=0x0058}
0x7726…7738 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004c, t01=0x0080}
0x7738…7742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0092}
0x7742…774c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x774c…7754 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x00a6}
0x7754…7762 Head {h00=0x000a, h01=0x0050, text=»CON190«, t00=0x004c, t01=0x00ae}
0x7762…7796 Head {h00=0x0030, h01=0x0050, text=» CBE W9,FC,CON195 LISTE: ALL FIELDS INCLUDED«, t00=0x004c, t01=0x00bc}
0x7796…77b0 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON195 «, t00=0x004c, t01=0x00f0}
0x77b0…77dc Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,:FMTITEM TEST IF EMPTY «, t00=0x004c, t01=0x010a}
0x77dc…7804 Head {h00=0x0024, h01=0x0050, text=» BNZ CON280 EMPTY, IGNORE FIELD «, t00=0x004c, t01=0x0136}
0x7804…7812 Head {h00=0x000a, h01=0x0050, text=»CON195«, t00=0x004c, t01=0x015e}
0x7812…7832 Head {h00=0x001c, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL «, t00=0x004c, t01=0x016c}
0x7832…7850 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 0 TEST - ALPHA«, t00=0x004c, t01=0x018c}
0x7850…7866 Head {h00=0x0012, h01=0x0050, text=» BZ CON200 BCD«, t00=0x004d, t01=0x001a}
0x7866…786e Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0030}
0x786e…787e Head {h00=0x000c, h01=0x0050, text=»* ALPHA «, t00=0x004d, t01=0x0038}
0x787e…7886 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0048}
0x7886…78b4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W188 GET EDIT BUFFER LENGTH«, t00=0x004d, t01=0x0050}
0x78b4…78e2 Head {h00=0x002a, h01=0x0050, text=» SUB BIN4,BIN7 ADJUST WITH MAX LENGTH «, t00=0x004d, t01=0x007e}
0x78e2…7912 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,BIN16 ADJUST WITH EDIT POINTER«, t00=0x004d, t01=0x00ac}
0x7912…7924 Head {h00=0x000e, h01=0x0050, text=» BN CONER3«, t00=0x004d, t01=0x00dc}
0x7924…794c Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMALP «, t00=0x004d, t01=0x00ee}
0x794c…795e Head {h00=0x000e, h01=0x0050, text=» B CON260 «, t00=0x004d, t01=0x0116}
0x795e…7966 Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0128}
0x7966…7974 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0130}
0x7974…7982 Head {h00=0x000a, h01=0x0050, text=»* BCD «, t00=0x004d, t01=0x013e}
0x7982…798a Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x014c}
0x798a…7998 Head {h00=0x000a, h01=0x0050, text=»CON200«, t00=0x004d, t01=0x0154}
0x7998…79c2 Head {h00=0x0026, h01=0x0050, text=» CBG BIN7,W21,CONER2 BCD-OVERFLOW «, t00=0x004d, t01=0x0162}
0x79c2…79f0 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W188 GET EDIT BUFFER LENGTH«, t00=0x004d, t01=0x018c}
0x79f0…7a1e Head {h00=0x002a, h01=0x0050, text=» SUB BIN4,BIN7 ADJUST WITH MAX LENGTH «, t00=0x004e, t01=0x002a}
0x7a1e…7a4e Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,BIN16 ADJUST WITH EDIT POINTER«, t00=0x004e, t01=0x0058}
0x7a4e…7a60 Head {h00=0x000e, h01=0x0050, text=» BN CONER3«, t00=0x004e, t01=0x0088}
0x7a60…7a80 Head {h00=0x001c, h01=0x0050, text=» GETCTL 3,BIN4 GET SCHK «, t00=0x004e, t01=0x009a}
0x7a80…7aa2 Head {h00=0x001e, h01=0x0050, text=» CALL TESTB,BIN4,W15 SIGN «, t00=0x004e, t01=0x00ba}
0x7aa2…7ab8 Head {h00=0x0012, h01=0x0050, text=» BZ CON220 NO «, t00=0x004e, t01=0x00dc}
0x7ab8…7ad2 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON210 «, t00=0x004e, t01=0x00f2}
0x7ad2…7aec Head {h00=0x0016, h01=0x0050, text=» CBE W9,FC,CON205 «, t00=0x004e, t01=0x010c}
0x7aec…7b14 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMTCS «, t00=0x004e, t01=0x0126}
0x7b14…7b2e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x004e, t01=0x014e}
0x7b2e…7b40 Head {h00=0x000e, h01=0x0050, text=» B CON280 «, t00=0x004e, t01=0x0168}
0x7b40…7b5a Head {h00=0x0016, h01=0x0050, text=»CON205 IF LISTE «, t00=0x004e, t01=0x017a}
0x7b5a…7b90 (79, 0, 400) Head {h00=0x0032, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMZCS EDIT 21 DIGITS«, t00=0x004f, t01=0x0004}
0x7b90…7ba2 Head {h00=0x000e, h01=0x0050, text=» B CON215 «, t00=0x004f, t01=0x003a}
0x7ba2…7bb0 Head {h00=0x000a, h01=0x0050, text=»CON210«, t00=0x004f, t01=0x004c}
0x7bb0…7be6 Head {h00=0x0032, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS«, t00=0x004f, t01=0x005a}
0x7be6…7bf4 Head {h00=0x000a, h01=0x0050, text=»CON215«, t00=0x004f, t01=0x0090}
0x7bf4…7c1e Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,W22 SET PICTURE LENGTH «, t00=0x004f, t01=0x009e}
0x7c1e…7c4a Head {h00=0x0028, h01=0x0050, text=» ADD BIN7,W1 ADJUST POINTER FOR SIGN«, t00=0x004f, t01=0x00c8}
0x7c4a…7c5c Head {h00=0x000e, h01=0x0050, text=» B CON250 «, t00=0x004f, t01=0x00f4}
0x7c5c…7c6a Head {h00=0x000a, h01=0x0050, text=»CON220«, t00=0x004f, t01=0x0106}
0x7c6a…7c84 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON230 «, t00=0x004f, t01=0x0114}
0x7c84…7c9e Head {h00=0x0016, h01=0x0050, text=» CBE W9,FC,CON225 «, t00=0x004f, t01=0x012e}
0x7c9e…7cc6 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMTCD «, t00=0x004f, t01=0x0148}
0x7cc6…7ce0 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x004f, t01=0x0170}
0x7ce0…7cf2 Head {h00=0x000e, h01=0x0050, text=» B CON280 «, t00=0x004f, t01=0x018a}
0x7cf2…7d0c Head {h00=0x0016, h01=0x0050, text=»CON225 IF LISTE «, t00=0x0050, t01=0x000c}
0x7d0c…7d34 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMZCD «, t00=0x0050, t01=0x0026}
0x7d34…7d46 Head {h00=0x000e, h01=0x0050, text=» B CON235 «, t00=0x0050, t01=0x004e}
0x7d46…7d54 Head {h00=0x000a, h01=0x0050, text=»CON230«, t00=0x0050, t01=0x0060}
0x7d54…7d7c Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMBCD «, t00=0x0050, t01=0x006e}
0x7d7c…7d8a Head {h00=0x000a, h01=0x0050, text=»CON235«, t00=0x0050, t01=0x0096}
0x7d8a…7db2 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN4,W21 SET PICUTR LENGTH«, t00=0x0050, t01=0x00a4}
0x7db2…7dc0 Head {h00=0x000a, h01=0x0050, text=»CON250«, t00=0x0050, t01=0x00cc}
0x7dc0…7de8 Head {h00=0x0024, h01=0x0050, text=» SUB BIN4,BIN7 SET DELETE LENGTH«, t00=0x0050, t01=0x00da}
0x7de8…7e22 Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),BIN13,BIN4 DELETE ADDED ZEROES«, t00=0x0050, t01=0x0102}
0x7e22…7e30 Head {h00=0x000a, h01=0x0050, text=»CON260«, t00=0x0050, t01=0x013c}
0x7e30…7e62 Head {h00=0x002e, h01=0x0050, text=» ADD BIN13,BIN7 ADJUST DELETE/EDIT POINTER«, t00=0x0050, t01=0x014a}
0x7e62…7e8e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,BIN13 LOAD EDIT POINTER «, t00=0x0050, t01=0x017c}
0x7e8e…7e9c Head {h00=0x000a, h01=0x0050, text=»CON280«, t00=0x0051, t01=0x0018}
0x7e9c…7eb6 Head {h00=0x0016, h01=0x0050, text=» CBNE W9,FC,CON290«, t00=0x0051, t01=0x0026}
0x7eb6…7ef4 Head {h00=0x003a, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER «, t00=0x0051, t01=0x0040}
0x7ef4…7f20 Head {h00=0x0028, h01=0x0050, text=» TBF FIRSTFL,CON285 NOT FIRST HEADER«, t00=0x0051, t01=0x007e}
0x7f20…7f4e Head {h00=0x002a, h01=0x0050, text=» CBNE BTYPE,W3,CON285 NOT NORMAL TRANS«, t00=0x0051, t01=0x00aa}
0x7f4e…7f72 Head {h00=0x0020, h01=0x0050, text=» CBL BIN16,WORK(W15),CON283 «, t00=0x0051, t01=0x00d8}
0x7f72…7f9c Head {h00=0x0026, h01=0x0050, text=» CLEAR FIRSTFL OUT OF FIRST HEADER«, t00=0x0051, t01=0x00fc}
0x7f9c…7fbc Head {h00=0x001c, h01=0x0050, text=»CON283 IN FIRST HEADER«, t00=0x0051, t01=0x0126}
0x7fbc…7fd6 Head {h00=0x0016, h01=0x0050, text=» ADD WORK(W15),W1 «, t00=0x0051, t01=0x0146}
0x7fd6…7fe4 Head {h00=0x000a, h01=0x0050, text=»CON285«, t00=0x0051, t01=0x0160}
0x7fe4…7ffe Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x0051, t01=0x016e}
0x7ffe…800c Head {h00=0x000a, h01=0x0050, text=»CON290«, t00=0x0051, t01=0x0188}
0x800c…8038 Head {h00=0x0028, h01=0x0050, text=» CBE VSEIND,W1,CONTRM APPL =1 TRANSM«, t00=0x0052, t01=0x0008}
0x8038…8052 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x0052, t01=0x0034}
0x8052…8070 Head {h00=0x001a, h01=0x0050, text=» CBG BIN16,BIN4,CONTRM«, t00=0x0052, t01=0x004e}
0x8070…8082 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x0052, t01=0x006c}
0x8082…8090 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x007e}
0x8090…8098 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x008c}
0x8098…80b4 Head {h00=0x0018, h01=0x0050, text=»CONRET RET ALL DONE«, t00=0x0052, t01=0x0094}
0x80b4…80de Head {h00=0x0026, h01=0x0050, text=»CONTRM RET 2 WRITE/TRANSMIT BLOCK «, t00=0x0052, t01=0x00b0}
0x80de…810a Head {h00=0x0028, h01=0x0050, text=»CONER1 RET 4 CUMPULSORY FIELD EMPTHY«, t00=0x0052, t01=0x00da}
0x810a…8132 Head {h00=0x0024, h01=0x0050, text=»CONER2 RET 6 BCD FIELD OVERFLOW «, t00=0x0052, t01=0x0106}
0x8132…815c Head {h00=0x0026, h01=0x0050, text=»CONER3 RET 8 EDIT BUFFER OVERFLOW «, t00=0x0052, t01=0x012e}
0x815c…816a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0052, t01=0x0158}
0x816a…8178 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0166}
0x8178…8182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0174}
0x8182…8194 Head {h00=0x000e, h01=0x0050, text=»* FORMATS «, t00=0x0052, t01=0x017e}
0x8194…819e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0190}
0x819e…81b2 Head {h00=0x0010, h01=0x0050, text=»FRMFILL FRMT«, t00=0x0053, t01=0x000a}
0x81b2…81c6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0053, t01=0x001e}
0x81c6…81d4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0032}
0x81d4…81dc Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0040}
0x81dc…81f0 Head {h00=0x0010, h01=0x0050, text=»FCOUNT FRMT «, t00=0x0053, t01=0x0048}
0x81f0…8204 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0053, t01=0x005c}
0x8204…821c Head {h00=0x0014, h01=0x0050, text=» FEOR NEW PAGE «, t00=0x0053, t01=0x0070}
0x821c…8230 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0053, t01=0x0088}
0x8230…8246 Head {h00=0x0012, h01=0x0050, text=» FILLR '*',10 «, t00=0x0053, t01=0x009c}
0x8246…8260 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'NUMBER: ' «, t00=0x0053, t01=0x00b2}
0x8260…827c Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',NUMBER «, t00=0x0053, t01=0x00cc}
0x827c…828a Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0053, t01=0x00e8}
0x828a…829e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0053, t01=0x00f6}
0x829e…82ac Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0053, t01=0x010a}
0x82ac…82ba Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0118}
0x82ba…82c2 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0126}
0x82c2…82d6 Head {h00=0x0010, h01=0x0050, text=»FRMVOL1 FRMT«, t00=0x0053, t01=0x012e}
0x82d6…82ea Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8A«, t00=0x0053, t01=0x0142}
0x82ea…82f8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0156}
0x82f8…8300 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x0164}
0x8300…8314 Head {h00=0x0010, h01=0x0050, text=»FRMVOL2 FRMT«, t00=0x0053, t01=0x016c}
0x8314…8330 Head {h00=0x0018, h01=0x0050, text=» FMEL '999999',DATE «, t00=0x0053, t01=0x0180}
0x8330…833e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x000c}
0x833e…8346 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x001a}
0x8346…835a Head {h00=0x0010, h01=0x0050, text=»FRMVOL3 FRMT«, t00=0x0054, t01=0x0022}
0x835a…8372 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',FDCNT«, t00=0x0054, t01=0x0036}
0x8372…8380 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x004e}
0x8380…8388 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x005c}
0x8388…839c Head {h00=0x0010, h01=0x0050, text=»FBATC3 FRMT «, t00=0x0054, t01=0x0064}
0x839c…83b2 Head {h00=0x0012, h01=0x0050, text=» FLINK FBATCH «, t00=0x0054, t01=0x0078}
0x83b2…83ce Head {h00=0x0018, h01=0x0050, text=» FTEXT 'EJ GODKENDT'«, t00=0x0054, t01=0x008e}
0x83ce…83dc Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x00aa}
0x83dc…83ea Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x00b8}
0x83ea…83f2 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x00c6}
0x83f2…8406 Head {h00=0x0010, h01=0x0050, text=»FBATCH FRMT «, t00=0x0054, t01=0x00ce}
0x8406…8412 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0054, t01=0x00e2}
0x8412…8420 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x00ee}
0x8420…842c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0054, t01=0x00fc}
0x842c…8446 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'JOBNAME: '«, t00=0x0054, t01=0x0108}
0x8446…845c Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0054, t01=0x0122}
0x845c…8470 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0054, t01=0x0138}
0x8470…848c Head {h00=0x0018, h01=0x0050, text=» FTEXT 'BATCHNAME: '«, t00=0x0054, t01=0x014c}
0x848c…84a0 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0054, t01=0x0168}
0x84a0…84b4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0054, t01=0x017c}
0x84b4…84c2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x0190}
0x84c2…84ca Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x000e}
0x84ca…84e0 Head {h00=0x0012, h01=0x0050, text=»FMTBATCH FRMT «, t00=0x0055, t01=0x0016}
0x84e0…84f4 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0055, t01=0x002c}
0x84f4…8502 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x0040}
0x8502…850a Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x004e}
0x850a…851e Head {h00=0x0010, h01=0x0050, text=»FFDHDR FRMT «, t00=0x0055, t01=0x0056}
0x851e…852a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x006a}
0x852a…8538 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x0076}
0x8538…8544 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x0084}
0x8544…856c Head {h00=0x0024, h01=0x0050, text=» FCOPY ='FLOPPY DISC SKRIVNING' «, t00=0x0055, t01=0x0090}
0x856c…857e Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0055, t01=0x00b8}
0x857e…858c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x00ca}
0x858c…8594 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x00d8}
0x8594…85a8 Head {h00=0x0010, h01=0x0050, text=»FFDEND FRMT «, t00=0x0055, t01=0x00e0}
0x85a8…85b4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x00f4}
0x85b4…85c2 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x0100}
0x85c2…85ce Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x010e}
0x85ce…85f6 Head {h00=0x0024, h01=0x0050, text=» FCOPY ='FLOPPY DISC SKRIVNING' «, t00=0x0055, t01=0x011a}
0x85f6…860c Head {h00=0x0012, h01=0x0050, text=» FTEXT ' KLAR'«, t00=0x0055, t01=0x0142}
0x860c…861e Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0055, t01=0x0158}
0x861e…862c Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x016a}
0x862c…8638 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x0178}
0x8638…8646 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x0184}
0x8646…864e (86, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0004}
0x864e…8662 Head {h00=0x0010, h01=0x0050, text=»FFDERR FRMT «, t00=0x0056, t01=0x000c}
0x8662…866e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0020}
0x866e…867c Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x002c}
0x867c…8688 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x003a}
0x8688…86b0 Head {h00=0x0024, h01=0x0050, text=» FCOPY ='FLOPPY DISC SKRIVNING' «, t00=0x0056, t01=0x0046}
0x86b0…86ca Head {h00=0x0016, h01=0x0050, text=» FTEXT ' AFBRYDES'«, t00=0x0056, t01=0x006e}
0x86ca…86dc Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0056, t01=0x0088}
0x86dc…86ea Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x009a}
0x86ea…86f6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x00a8}
0x86f6…8704 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x00b4}
0x8704…870c Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00c2}
0x870c…8720 Head {h00=0x0010, h01=0x0050, text=»FLSHDR FRMT «, t00=0x0056, t01=0x00ca}
0x8720…872c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x00de}
0x872c…873a Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x00ea}
0x873a…8746 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x00f8}
0x8746…8760 Head {h00=0x0016, h01=0x0050, text=» FCOPY ='LISTNING'«, t00=0x0056, t01=0x0104}
0x8760…8772 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0056, t01=0x011e}
0x8772…8780 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x0130}
0x8780…8788 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x013e}
0x8788…879c Head {h00=0x0010, h01=0x0050, text=»FLSEND FRMT «, t00=0x0056, t01=0x0146}
0x879c…87a8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x015a}
0x87a8…87b6 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x0166}
0x87b6…87c2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0174}
0x87c2…87dc Head {h00=0x0016, h01=0x0050, text=» FCOPY ='LISTNING'«, t00=0x0056, t01=0x0180}
0x87dc…87f4 Head {h00=0x0014, h01=0x0050, text=» FCOPY =' KLAR' «, t00=0x0057, t01=0x000a}
0x87f4…8806 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0057, t01=0x0022}
0x8806…8814 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x0034}
0x8814…8820 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0042}
0x8820…882e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x004e}
0x882e…8836 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x005c}
0x8836…884a Head {h00=0x0010, h01=0x0050, text=»FLSERR FRMT «, t00=0x0057, t01=0x0064}
0x884a…8856 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0078}
0x8856…8864 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x0084}
0x8864…8870 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0092}
0x8870…888a Head {h00=0x0016, h01=0x0050, text=» FCOPY ='LISTNING'«, t00=0x0057, t01=0x009e}
0x888a…88a6 Head {h00=0x0018, h01=0x0050, text=» FCOPY =' AFBRYDES' «, t00=0x0057, t01=0x00b8}
0x88a6…88b8 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0057, t01=0x00d4}
0x88b8…88c6 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x00e6}
0x88c6…88d2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x00f4}
0x88d2…88e0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x0100}
0x88e0…88e8 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x010e}
0x88e8…88f8 Head {h00=0x000c, h01=0x0050, text=»HDR FRMT«, t00=0x0057, t01=0x0116}
0x88f8…890c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0057, t01=0x0126}
0x890c…8924 Head {h00=0x0014, h01=0x0050, text=» FTEXT 'DATO: '«, t00=0x0057, t01=0x013a}
0x8924…8942 Head {h00=0x001a, h01=0x0050, text=» FMEL '99-99-99',DATE «, t00=0x0057, t01=0x0152}
0x8942…8956 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0057, t01=0x0170}
0x8956…896c Head {h00=0x0012, h01=0x0050, text=» FTEXT 'TID: '«, t00=0x0057, t01=0x0184}
0x896c…898a Head {h00=0x001a, h01=0x0050, text=» FMEL '99-99-99',TIME «, t00=0x0058, t01=0x000a}
0x898a…8998 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x0028}
0x8998…89a4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x0036}
0x89a4…89ba Head {h00=0x0012, h01=0x0050, text=» FTEXT 'IND: '«, t00=0x0058, t01=0x0042}
0x89ba…89d6 Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',NUMBER«, t00=0x0058, t01=0x0058}
0x89d6…89ee Head {h00=0x0014, h01=0x0050, text=» FTEXT ' UD: ' «, t00=0x0058, t01=0x0074}
0x89ee…8a0e Head {h00=0x001c, h01=0x0050, text=» FMEL '99999',BCDI21(W5)«, t00=0x0058, t01=0x008c}
0x8a0e…8a1c Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x00ac}
0x8a1c…8a28 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x00ba}
0x8a28…8a36 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0058, t01=0x00c6}
0x8a36…8a3e Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00d4}
0x8a3e…8a52 Head {h00=0x0010, h01=0x0050, text=»FCAS02 FRMT «, t00=0x0058, t01=0x00dc}
0x8a52…8a5e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0058, t01=0x00f0}
0x8a5e…8a78 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE' «, t00=0x0058, t01=0x00fc}
0x8a78…8a8c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0058, t01=0x0116}
0x8a8c…8a9c Head {h00=0x000c, h01=0x0050, text=» FINP 9 «, t00=0x0058, t01=0x012a}
0x8a9c…8ab6 Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x0058, t01=0x013a}
0x8ab6…8ac6 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0058, t01=0x0154}
0x8ac6…8ade Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x0058, t01=0x0164}
0x8ade…8af2 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x0058, t01=0x017c}
0x8af2…8b0a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x0058, t01=0x0190}
0x8b0a…8b1e Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0059, t01=0x0018}
0x8b1e…8b2e Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x0059, t01=0x002c}
0x8b2e…8b42 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8B«, t00=0x0059, t01=0x003c}
0x8b42…8b4e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x0050}
0x8b4e…8b72 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'EXPIRATION DATE:' «, t00=0x0059, t01=0x005c}
0x8b72…8b82 Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x0059, t01=0x0080}
0x8b82…8b96 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x0059, t01=0x0090}
0x8b96…8ba2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x00a4}
0x8ba2…8bce Head {h00=0x0028, h01=0x0050, text=» FCOPY =C'OLD DATA SET IDENTIFIER:' «, t00=0x0059, t01=0x00b0}
0x8bce…8bde Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x0059, t01=0x00dc}
0x8bde…8bf2 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8A«, t00=0x0059, t01=0x00ec}
0x8bf2…8bfe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x0100}
0x8bfe…8c28 Head {h00=0x0026, h01=0x0050, text=» FCOPY =C'OLD VOLUME SEQUENCE NO:'«, t00=0x0059, t01=0x010c}
0x8c28…8c38 Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x0059, t01=0x0136}
0x8c38…8c4c Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x0059, t01=0x0146}
0x8c4c…8c58 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x015a}
0x8c58…8c66 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0059, t01=0x0166}
0x8c66…8c7a Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0059, t01=0x0174}
0x8c7a…8c88 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0059, t01=0x0188}
0x8c88…8c90 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0008}
0x8c90…8ca4 Head {h00=0x0010, h01=0x0050, text=»FFD999 FRMT «, t00=0x005a, t01=0x0010}
0x8ca4…8cbc Head {h00=0x0014, h01=0x0050, text=» FTEXT =C'SLUTD'«, t00=0x005a, t01=0x0024}
0x8cbc…8cdc Head {h00=0x001c, h01=0x0050, text=» FMEL '99999',BCDI21(W5)«, t00=0x005a, t01=0x003c}
0x8cdc…8cf2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',60 «, t00=0x005a, t01=0x005c}
0x8cf2…8d08 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x005a, t01=0x0072}
0x8d08…8d16 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x0088}
0x8d16…8d1e Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0096}
0x8d1e…8d32 Head {h00=0x0010, h01=0x0050, text=»FRMALP FRMT «, t00=0x005a, t01=0x009e}
0x8d32…8d4a Head {h00=0x0014, h01=0x0050, text=» FCOPY :FMTITEM «, t00=0x005a, t01=0x00b2}
0x8d4a…8d58 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x00ca}
0x8d58…8d60 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x00d8}
0x8d60…8d74 Head {h00=0x0010, h01=0x0050, text=»FRMTCD FRMT «, t00=0x005a, t01=0x00e0}
0x8d74…8da2 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM«, t00=0x005a, t01=0x00f4}
0x8da2…8db0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x0122}
0x8db0…8db8 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x0130}
0x8db8…8dcc Head {h00=0x0010, h01=0x0050, text=»FRMTCS FRMT «, t00=0x005a, t01=0x0138}
0x8dcc…8dfc Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM «, t00=0x005a, t01=0x014c}
0x8dfc…8e0a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005a, t01=0x017c}
0x8e0a…8e12 Head {h00=0x0004, h01=0x0050, t00=0x005a, t01=0x018a}
0x8e12…8e26 (91, 2, 376) Head {h00=0x0010, h01=0x0050, text=»FRMZCD FRMT «, t00=0x005b, t01=0x0004}
0x8e26…8e54 Head {h00=0x002a, h01=0x0050, text=» FMEL 'ZZZZZZZZZZZZZZZZZZZZ9',:FMTITEM«, t00=0x005b, t01=0x0018}
0x8e54…8e62 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x0046}
0x8e62…8e6a Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0054}
0x8e6a…8e7e Head {h00=0x0010, h01=0x0050, text=»FRMZCS FRMT «, t00=0x005b, t01=0x005c}
0x8e7e…8eae Head {h00=0x002c, h01=0x0050, text=» FMEL 'ZZZZZZZZZZZZZZZZZZZZ9-',:FMTITEM «, t00=0x005b, t01=0x0070}
0x8eae…8ebc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00a0}
0x8ebc…8ec4 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00ae}
0x8ec4…8ed8 Head {h00=0x0010, h01=0x0050, text=»FRMBCD FRMT «, t00=0x005b, t01=0x00b6}
0x8ed8…8f06 Head {h00=0x002a, h01=0x0050, text=» FMEL '999999999999999999999',:FMTITEM«, t00=0x005b, t01=0x00ca}
0x8f06…8f14 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00f8}
0x8f14…8f1c Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0106}
0x8f1c…8f30 Head {h00=0x0010, h01=0x0050, text=»FRMBCS FRMT «, t00=0x005b, t01=0x010e}
0x8f30…8f60 Head {h00=0x002c, h01=0x0050, text=» FMEL '999999999999999999999-',:FMTITEM «, t00=0x005b, t01=0x0122}
0x8f60…8f6e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x0152}
0x8f6e…8f76 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x0160}
0x8f76…8f82 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005b, t01=0x0168}
0x8f82…8f86 Head {h00=0x4004, h01=0x0000}
0x8f86…8f8a 00 5b 01 74 ┆ [ t┆
0x8f8a…8f92 (92, 1, 8) 20 04 00 00 00 5c 00 04 ┆ ┆