|
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: 39850 (0x9baa)
Notes: pts_type(SC)
Names: »NYCONV.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/NYCONV.SC«
IDENT NYCONV REL=1.0,VER=1 820420/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 MOVE BIN6,=X'0036' FILE CODE PRINTER PERF ATTDEV,BIN6 ATTACH DEVICE BNOK LSERR MOVE STRG10A,HEX00 GETTIME STRG10A MOVE TIME,STRG10A EDWRT DEDSPRT,FLSHDR MOVE RECLGD,=W'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? * CONVERT HEADER TO SET CONVERSION INDICATIONS 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 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 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 WRITE DEDSPRT,BPOOL(BIN10) 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 WRITE DEDSPRT,BPOOL(BIN10) 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 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 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 FC,W9,CON100 LISTE: ALWAYS SET CLEAR BSUPR B CON100 * CON165 * EOR CHARACTER B CON100 * CON170 * CONTINUATION CHARACTER CBE FC,W9,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 FC,W9,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 FC,W9,CON205 EDSUB BPOOL(BIN9),BIN16,FRMTCS MOVE BIN13,BIN16 B CON280 CON205 IF LISTE EDSUB BPOOL(BIN9),BIN16,FRMZCD 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 FC,W9,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,FRMBCS 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 FC,W9,CON290 EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER 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 FRMSOF FRMT FSL FCOPY =X'1D' FILLR ' ',62 FILLR ' ',62 FMEND FRMEOF FRMT FSL FCOPY =X'19' FILLR ' ',62 FILLR ' ',62 FMEND FRMC01 FRMT FSL FLINK FFD001 FMEND FRMVOL1 FRMT FCOPY STR8A FMEND FRMVOL2 FRMT FMEL '999999',DATE FMEND FRMVOL3 FRMT FMEL '99',FDCNT FMEND FBATC1 FRMT FLINK FBATCH FTEXT 'EJ AVST[MD' FEOR FNL FMEND FBATC2 FRMT FLINK FBATCH FTEXT 'NUMBER: ' FMEL '9999',BCD13A FILLR ' ',4 FTEXT 'MISST[MMER' FEOR FNL 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 FDCHDR FRMT FNL FEOR FNL FTEXT 'S[NDNING' FLINK HDR FMEND FDCEND FRMT FNL FEOR FNL FTEXT 'S[NDNING' FTEXT ' KLAR' FLINK HDR FEOR FNL FMEND FDCERR FRMT FNL FEOR FNL FTEXT 'S[NDNING' FTEXT ' AVBRYTS' FLINK HDR FEOR FNL FMEND FFDHDR FRMT FNL FEOR FNL FTEXT 'FLOPPY DISC SKRIVNING' FLINK HDR FMEND FFDEND FRMT FNL FEOR FNL FTEXT 'FLOPPY DISC SKRIVNING' FTEXT ' KLAR' FLINK HDR FEOR FNL FMEND FFDERR FRMT FNL FEOR FNL FTEXT 'FLOPPY DISC SKRIVNING' FTEXT ' AFBRYDES' FLINK HDR FEOR FNL FMEND FLSHDR FRMT FNL FEOR FNL FTEXT 'LISTNING" FLINK HDR FMEND FLSEND FRMT FNL FEOR FNL FTEXT 'LISTNING KLAR' FLINK HDR FEOR FNL FMEND FLSERR FRMT FNL FEOR FNL FTEXT 'LISTNING 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 EJECT 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 EJECT FRMC99 FRMT FSL FLINK FFD999 FMEND FFD001 FRMT FCOPY =C'001' FMEL '999999',DATE FILLR ' ',60 FILLR ' ',56 FMEND FFD999 FRMT FTEXT =C'SLUTD' FMEL '99999',BCDI21(W5) FILLR ' ',60 FILLR ' ',62 FMEND EJECT FRMALP FRMT FCOPY :FMTITEM FMEND FRMBCD FRMT FMEL '999999999999999999999',:FMTITEM FMEND FRMTCD FRMT FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM FMEND FRMTCS FRMT FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM FMEND FRMZCD FRMT FMEL 'BBBBBBBBBBBBBBBBBBBB9-',:FMTITEM FRMBCS FRMT FMEL '999999999999999999999-',:FMTITEM FMEND FRMTID FRMT FMEL '999',BCD13A FMEND END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT NYCONV REL=1.0,VER=1 820420/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…1678 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN6,=X'0036' FILE CODE PRINTER «, t00=0x000e, t01=0x006e}
0x1678…16a0 Head {h00=0x0024, h01=0x0050, text=» PERF ATTDEV,BIN6 ATTACH DEVICE «, t00=0x000e, t01=0x009c}
0x16a0…16b4 Head {h00=0x0010, h01=0x0050, text=» BNOK LSERR «, t00=0x000e, t01=0x00c4}
0x16b4…16d0 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x000e, t01=0x00d8}
0x16d0…16e8 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x000e, t01=0x00f4}
0x16e8…1702 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x000e, t01=0x010c}
0x1702…1720 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSHDR «, t00=0x000e, t01=0x0126}
0x1720…173c Head {h00=0x0018, h01=0x0050, text=» MOVE RECLGD,=W'112'«, t00=0x000e, t01=0x0144}
0x173c…174a Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x000e, t01=0x0160}
0x174a…175e Head {h00=0x0010, h01=0x0050, text=» B DECOOK OK«, t00=0x000e, t01=0x016e}
0x175e…1766 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0182}
0x1766…1774 Head {h00=0x000a, h01=0x0050, text=»LS170 «, t00=0x000e, t01=0x018a}
0x1774…17a0 Head {h00=0x0028, h01=0x0050, text=» MOVE RETCON,=W'-4' ABORT CONVERSION«, t00=0x000f, t01=0x0008}
0x17a0…17b2 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x000f, t01=0x0034}
0x17b2…17c0 Head {h00=0x000a, h01=0x0050, text=»LSERR «, t00=0x000f, t01=0x0046}
0x17c0…17f4 Head {h00=0x0030, h01=0x0050, text=» MOVE RETCON,=W'35' OUTPUT DEV NOT OPERABLE «, t00=0x000f, t01=0x0054}
0x17f4…1802 Head {h00=0x000a, h01=0x0050, text=»LSERRT«, t00=0x000f, t01=0x0088}
0x1802…1814 Head {h00=0x000e, h01=0x0050, text=» SET LSBAB«, t00=0x000f, t01=0x0096}
0x1814…1826 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000f, t01=0x00a8}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x1830…184a Head {h00=0x0016, h01=0x0050, text=»* BATCHEAD RECORD «, t00=0x000f, t01=0x00c4}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1854…1862 Head {h00=0x000a, h01=0x0050, text=»LS200 «, t00=0x000f, t01=0x00e8}
0x1862…187a Head {h00=0x0014, h01=0x0050, text=» TBT LSBAB,LS170«, t00=0x000f, t01=0x00f6}
0x187a…18a6 Head {h00=0x0028, h01=0x0050, text=» TBF BDAFOR,LS250 ANY FORCED FIELDS?«, t00=0x000f, t01=0x010e}
0x18a6…18dc Head {h00=0x0032, h01=0x0050, text=»* CONVERT HEADER TO SET CONVERSION INDICATIONS«, t00=0x000f, t01=0x013a}
0x18dc…190c Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX «, t00=0x000f, t01=0x0170}
0x190c…1934 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0010, t01=0x0010}
0x1934…1948 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0010, t01=0x0038}
0x1948…196c Head {h00=0x0020, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NO«, t00=0x0010, t01=0x004c}
0x196c…1982 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0010, t01=0x0070}
0x1982…1990 Head {h00=0x000a, h01=0x0050, text=»LS210 «, t00=0x0010, t01=0x0086}
0x1990…19aa Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x0010, t01=0x0094}
0x19aa…19c4 Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x0010, t01=0x00ae}
0x19c4…19e2 Head {h00=0x001a, h01=0x0050, text=» B LS210 NOT ALL DONE «, t00=0x0010, t01=0x00c8}
0x19e2…1a04 Head {h00=0x001e, h01=0x0050, text=» B LS315 COMP FIELD EMPTY «, t00=0x0010, t01=0x00e6}
0x1a04…1a28 Head {h00=0x0020, h01=0x0050, text=» B LS320 BCD FIELD OVERFLOW «, t00=0x0010, t01=0x0108}
0x1a28…1a4e Head {h00=0x0022, h01=0x0050, text=» B LS320 EDIT BUFFER OVERFLOW «, t00=0x0010, t01=0x012c}
0x1a4e…1a7e Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT«, t00=0x0010, t01=0x0152}
0x1a7e…1a90 Head {h00=0x000e, h01=0x0050, text=» SET LSBAB«, t00=0x0010, t01=0x0182}
0x1a90…1aba (17, 0, 400) Head {h00=0x0026, h01=0x0050, text=» MOVE RETCON,=W'-1' GET NEXT BATCH«, t00=0x0011, t01=0x0004}
0x1aba…1acc Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0011, t01=0x002e}
0x1acc…1af0 Head {h00=0x0020, h01=0x0050, text=»LS250 BATCHHEAD OR BALANCE«, t00=0x0011, t01=0x0040}
0x1af0…1b08 Head {h00=0x0014, h01=0x0050, text=» TBT LSBAB,LS170«, t00=0x0011, t01=0x0064}
0x1b08…1b20 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0011, t01=0x007c}
0x1b20…1b42 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0011, t01=0x0094}
0x1b42…1b56 Head {h00=0x0010, h01=0x0050, text=» BNOK LSERR «, t00=0x0011, t01=0x00b6}
0x1b56…1b68 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0011, t01=0x00ca}
0x1b68…1b70 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00dc}
0x1b70…1b78 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e4}
0x1b78…1b86 Head {h00=0x000a, h01=0x0050, text=»LS300 «, t00=0x0011, t01=0x00ec}
0x1b86…1b9e Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,LS170«, t00=0x0011, t01=0x00fa}
0x1b9e…1bcc Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0011, t01=0x0112}
0x1bcc…1bf4 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0011, t01=0x0140}
0x1bf4…1c08 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0011, t01=0x0168}
0x1c08…1c30 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NUMBER«, t00=0x0011, t01=0x017c}
0x1c30…1c3e Head {h00=0x000a, h01=0x0050, text=»LS310 «, t00=0x0012, t01=0x0014}
0x1c3e…1c54 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0012, t01=0x0022}
0x1c54…1c62 Head {h00=0x000a, h01=0x0050, text=»LS311 «, t00=0x0012, t01=0x0038}
0x1c62…1c7c Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x0012, t01=0x0046}
0x1c7c…1c96 Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x0012, t01=0x0060}
0x1c96…1cb4 Head {h00=0x001a, h01=0x0050, text=» B LS340 WRITE BLOCKS «, t00=0x0012, t01=0x007a}
0x1cb4…1cd6 Head {h00=0x001e, h01=0x0050, text=» B LS315 CUMP FIELD EMPTY «, t00=0x0012, t01=0x0098}
0x1cd6…1cfa Head {h00=0x0020, h01=0x0050, text=» B LS320 BCD FIELD OVERFLOW «, t00=0x0012, t01=0x00ba}
0x1cfa…1d20 Head {h00=0x0022, h01=0x0050, text=» B LS320 EDIT BUFFER OVERFLOW «, t00=0x0012, t01=0x00de}
0x1d20…1d2e Head {h00=0x000a, h01=0x0050, text=»LS315 «, t00=0x0012, t01=0x0104}
0x1d2e…1d46 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCON,W5 «, t00=0x0012, t01=0x0112}
0x1d46…1d58 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x0012, t01=0x012a}
0x1d58…1d66 Head {h00=0x000a, h01=0x0050, text=»LS320 «, t00=0x0012, t01=0x013c}
0x1d66…1d82 Head {h00=0x0018, h01=0x0050, text=» MOVE RETCON,=W'54' «, t00=0x0012, t01=0x014a}
0x1d82…1d94 Head {h00=0x000e, h01=0x0050, text=» B LSERRT «, t00=0x0012, t01=0x0166}
0x1d94…1d9c Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0178}
0x1d9c…1db2 Head {h00=0x0012, h01=0x0050, text=»* WRITE BLOCKS«, t00=0x0012, t01=0x0180}
0x1db2…1dba Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0008}
0x1dba…1dc8 Head {h00=0x000a, h01=0x0050, text=»LS340 «, t00=0x0013, t01=0x0010}
0x1dc8…1ddc Head {h00=0x0010, h01=0x0050, text=» PERF LSWRIT«, t00=0x0013, t01=0x001e}
0x1ddc…1df0 Head {h00=0x0010, h01=0x0050, text=» B LS310 OK «, t00=0x0013, t01=0x0032}
0x1df0…1e06 Head {h00=0x0012, h01=0x0050, text=» B LS310 DUMMY«, t00=0x0013, t01=0x0046}
0x1e06…1e1c Head {h00=0x0012, h01=0x0050, text=» B LS310 DUMMY«, t00=0x0013, t01=0x005c}
0x1e1c…1e4a Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 CONTINUE IN SAME BUFFER «, t00=0x0013, t01=0x0072}
0x1e4a…1e5a Head {h00=0x000c, h01=0x0050, text=» B LS311«, t00=0x0013, t01=0x00a0}
0x1e5a…1e62 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00b0}
0x1e62…1e6a Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00b8}
0x1e6a…1e78 Head {h00=0x000a, h01=0x0050, text=»LS400 «, t00=0x0013, t01=0x00c0}
0x1e78…1e90 Head {h00=0x0014, h01=0x0050, text=»* BALANCE FORMAT«, t00=0x0013, t01=0x00ce}
0x1e90…1ea0 Head {h00=0x000c, h01=0x0050, text=» B LS250«, t00=0x0013, t01=0x00e6}
0x1ea0…1ea8 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00f6}
0x1ea8…1eb6 Head {h00=0x000a, h01=0x0050, text=»LS500 «, t00=0x0013, t01=0x00fe}
0x1eb6…1ee4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0013, t01=0x010c}
0x1ee4…1f02 Head {h00=0x001a, h01=0x0050, text=» TBT FDBAB,LS560 ABORT«, t00=0x0013, t01=0x013a}
0x1f02…1f12 Head {h00=0x000c, h01=0x0050, text=» B LS570«, t00=0x0013, t01=0x0158}
0x1f12…1f20 Head {h00=0x000a, h01=0x0050, text=»LS550 «, t00=0x0013, t01=0x0168}
0x1f20…1f34 Head {h00=0x0010, h01=0x0050, text=» CLEAR LSBAB«, t00=0x0013, t01=0x0176}
0x1f34…1f4a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0013, t01=0x018a}
0x1f4a…1f5e Head {h00=0x0010, h01=0x0050, text=» PERF DETPRT«, t00=0x0014, t01=0x0010}
0x1f5e…1f76 Head {h00=0x0014, h01=0x0050, text=»* RELEAS BUFFERS«, t00=0x0014, t01=0x0024}
0x1f76…1fa0 Head {h00=0x0026, h01=0x0050, text=» PERF DEPOOL,W6,BIN10,BIN4,STRG10A«, t00=0x0014, t01=0x003c}
0x1fa0…1fb2 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0014, t01=0x0066}
0x1fb2…1fc0 Head {h00=0x000a, h01=0x0050, text=»LS560 «, t00=0x0014, t01=0x0078}
0x1fc0…1fdc Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0014, t01=0x0086}
0x1fdc…1ff4 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0014, t01=0x00a2}
0x1ff4…200e Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0014, t01=0x00ba}
0x200e…202c Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSERR «, t00=0x0014, t01=0x00d4}
0x202c…203c Head {h00=0x000c, h01=0x0050, text=» B LS550«, t00=0x0014, t01=0x00f2}
0x203c…204a Head {h00=0x000a, h01=0x0050, text=»LS570 «, t00=0x0014, t01=0x0102}
0x204a…2066 Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0014, t01=0x0110}
0x2066…207e Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0014, t01=0x012c}
0x207e…2098 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0014, t01=0x0144}
0x2098…20b6 Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FLSEND «, t00=0x0014, t01=0x015e}
0x20b6…20c6 Head {h00=0x000c, h01=0x0050, text=» B LS550«, t00=0x0014, t01=0x017c}
0x20c6…20d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x018c}
0x20d4…20de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20de…20f6 Head {h00=0x0014, h01=0x0050, text=»* FLOPPY DUMPING«, t00=0x0015, t01=0x0014}
0x20f6…2100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x2100…2108 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0036}
0x2108…2116 Head {h00=0x000a, h01=0x0050, text=»FLOPPY«, t00=0x0015, t01=0x003e}
0x2116…212e Head {h00=0x0014, h01=0x0050, text=» MOVE BTYPE,TYPE«, t00=0x0015, t01=0x004c}
0x212e…2166 Head {h00=0x0034, h01=0x0050, text=» IB TYPE,FD100,FD200,FD300 OPEN,BATCHHEAD,DATA C«, t00=0x0015, t01=0x0064}
0x2166…218a Head {h00=0x0020, h01=0x0050, text=» FD400,FD500 BALANCE,CLOSE «, t00=0x0015, t01=0x009c}
0x218a…2192 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00c0}
0x2192…219a Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x00c8}
0x219a…21a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d0}
0x21a4…21b6 Head {h00=0x000e, h01=0x0050, text=»* SEND SOF«, t00=0x0015, t01=0x00da}
0x21b6…21d0 Head {h00=0x0016, h01=0x0050, text=»* SEND '001'+DATE «, t00=0x0015, t01=0x00ec}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0106}
0x21da…21e2 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x0110}
0x21e2…21f0 Head {h00=0x000a, h01=0x0050, text=»FD100 «, t00=0x0015, t01=0x0118}
0x21f0…2208 Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x0015, t01=0x0126}
0x2208…2236 Head {h00=0x002a, h01=0x0050, text=» PERF GETBUF GET 3 CONSECUTIVE BUFFERS«, t00=0x0015, t01=0x013e}
0x2236…224a Head {h00=0x0010, h01=0x0050, text=» B FD110 OK «, t00=0x0015, t01=0x016c}
0x224a…2260 Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0015, t01=0x0180}
0x2260…226e Head {h00=0x000a, h01=0x0050, text=»FD110 «, t00=0x0016, t01=0x0008}
0x226e…228e Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x0016, t01=0x0016}
0x228e…22aa Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0016, t01=0x0036}
0x22aa…22e4 Head {h00=0x0036, h01=0x0050, text=» CALL FDIO,DSFD,X'A1',BPOOL(BIN10),REQFD,CWFD OPEN«, t00=0x0016, t01=0x0052}
0x22e4…22fa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W20«, t00=0x0016, t01=0x008c}
0x22fa…232a Head {h00=0x002c, h01=0x0050, text=» DSC1 DSFD,ATTACH,BIN4 ATTACH DEVICE FD«, t00=0x0016, t01=0x00a2}
0x232a…233e Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x0016, t01=0x00d2}
0x233e…2352 Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x0016, t01=0x00e6}
0x2352…2366 Head {h00=0x0010, h01=0x0050, text=» B FD140 OK «, t00=0x0016, t01=0x00fa}
0x2366…237c Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0016, t01=0x010e}
0x237c…2384 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0124}
0x2384…238c Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x012c}
0x238c…239a Head {h00=0x000a, h01=0x0050, text=»FD140 «, t00=0x0016, t01=0x0134}
0x239a…23c6 Head {h00=0x0028, h01=0x0050, text=» MOVE BCDI21(W5),=D'0' RECORD COUNT «, t00=0x0016, t01=0x0142}
0x23c6…23ee Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W15),W0 LENGTH HEADER«, t00=0x0016, t01=0x016e}
0x23ee…241a Head {h00=0x0028, h01=0x0050, text=» MOVE WORK(W17),W0 LENGTH RECORD NO «, t00=0x0017, t01=0x0008}
0x241a…2448 Head {h00=0x002a, h01=0x0050, text=» MOVE WORK(W19),W0 LENGTH SEQUENCE NO «, t00=0x0017, t01=0x0034}
0x2448…246e Head {h00=0x0022, h01=0x0050, text=» CLEAR BCONT CONTINUATION MARK«, t00=0x0017, t01=0x0062}
0x246e…2482 Head {h00=0x0010, h01=0x0050, text=» CLEAR BSUPR«, t00=0x0017, t01=0x0088}
0x2482…24a4 Head {h00=0x001e, h01=0x0050, text=» SET SPLITFL NORMAL SPLIT «, t00=0x0017, t01=0x009c}
0x24a4…24d2 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN6,=X'0036' FILE CODE PRINTER «, t00=0x0017, t01=0x00be}
0x24d2…24fa Head {h00=0x0024, h01=0x0050, text=» PERF ATTDEV,BIN6 ATTACH DEVICE «, t00=0x0017, t01=0x00ec}
0x24fa…250e Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x0017, t01=0x0114}
0x250e…252a Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0017, t01=0x0128}
0x252a…2542 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0017, t01=0x0144}
0x2542…255c Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0017, t01=0x015c}
0x255c…257a Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDHDR «, t00=0x0017, t01=0x0176}
0x257a…25a0 (24, 0, 400) Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x0018, t01=0x0004}
0x25a0…25b4 Head {h00=0x0010, h01=0x0050, text=» B FD150 OK «, t00=0x0018, t01=0x002a}
0x25b4…25c8 Head {h00=0x0010, h01=0x0050, text=» B FDERR ERR«, t00=0x0018, t01=0x003e}
0x25c8…25d6 Head {h00=0x000a, h01=0x0050, text=»FD150 «, t00=0x0018, t01=0x0052}
0x25d6…2608 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD160,FD180,FD170 CLR,CAN,RET «, t00=0x0018, t01=0x0060}
0x2608…2616 Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x0018, t01=0x0092}
0x2616…261e Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00a0}
0x261e…262c Head {h00=0x000a, h01=0x0050, text=»FD160 «, t00=0x0018, t01=0x00a8}
0x262c…2654 Head {h00=0x0024, h01=0x0050, text=» MOVE STR8A,STR8B SAVE FILE NAME«, t00=0x0018, t01=0x00b6}
0x2654…267c Head {h00=0x0024, h01=0x0050, text=» MOVE FDCNT,W1 RESET FD COUNTER «, t00=0x0018, t01=0x00de}
0x267c…26a4 Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x0018, t01=0x0106}
0x26a4…26b8 Head {h00=0x0010, h01=0x0050, text=» B FD165 OK «, t00=0x0018, t01=0x012e}
0x26b8…26ce Head {h00=0x0012, h01=0x0050, text=» B FDERR ERROR«, t00=0x0018, t01=0x0142}
0x26ce…26d6 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0158}
0x26d6…26e4 Head {h00=0x000a, h01=0x0050, text=»FD165 «, t00=0x0018, t01=0x0160}
0x26e4…26f8 Head {h00=0x0010, h01=0x0050, text=» B DECOOK OK«, t00=0x0018, t01=0x016e}
0x26f8…2700 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0182}
0x2700…270e Head {h00=0x000a, h01=0x0050, text=»FD170 «, t00=0x0018, t01=0x018a}
0x270e…273a Head {h00=0x0028, h01=0x0050, text=» MOVE RETCON,=W'-4' ABORT CONVERSION«, t00=0x0019, t01=0x0008}
0x273a…274c Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x0019, t01=0x0034}
0x274c…2754 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0046}
0x2754…2762 Head {h00=0x000a, h01=0x0050, text=»FDERR «, t00=0x0019, t01=0x004e}
0x2762…2796 Head {h00=0x0030, h01=0x0050, text=» MOVE RETCON,=W'35' OUTP. DEV. NOT OPERABLE «, t00=0x0019, t01=0x005c}
0x2796…27a4 Head {h00=0x000a, h01=0x0050, text=»FDERRT«, t00=0x0019, t01=0x0090}
0x27a4…27b6 Head {h00=0x000e, h01=0x0050, text=» SET FDBAB«, t00=0x0019, t01=0x009e}
0x27b6…27c8 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0019, t01=0x00b0}
0x27c8…27d0 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00c2}
0x27d0…27de Head {h00=0x000a, h01=0x0050, text=»FD180 «, t00=0x0019, t01=0x00ca}
0x27de…27f4 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0019, t01=0x00d8}
0x27f4…2810 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0019, t01=0x00ee}
0x2810…2852 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD *UNLOAD HDR1«, t00=0x0019, t01=0x010a}
0x2852…2878 Head {h00=0x0022, h01=0x0050, text=» MOVE RETCON,=W'55' CHANGE FD «, t00=0x0019, t01=0x014c}
0x2878…288a Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0019, t01=0x0172}
0x288a…2898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0184}
0x2898…28a2 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a2…28bc Head {h00=0x0016, h01=0x0050, text=»* BATCHEAD RECORD «, t00=0x001a, t01=0x000e}
0x28bc…28c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c6…28d4 Head {h00=0x000a, h01=0x0050, text=»FD200 «, t00=0x001a, t01=0x0032}
0x28d4…28ec Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x001a, t01=0x0040}
0x28ec…2918 Head {h00=0x0028, h01=0x0050, text=» TBF BDAFOR,FD300 ANY FORCED FIELDS?«, t00=0x001a, t01=0x0058}
0x2918…2948 Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSPRT,FBATC3 PRINT ERROR REPORT«, t00=0x001a, t01=0x0084}
0x2948…295a Head {h00=0x000e, h01=0x0050, text=» SET FDBAB«, t00=0x001a, t01=0x00b4}
0x295a…2984 Head {h00=0x0026, h01=0x0050, text=» MOVE RETCON,=W'-1' GET NEXT BATCH«, t00=0x001a, t01=0x00c6}
0x2984…2996 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x001a, t01=0x00f0}
0x2996…29a4 Head {h00=0x000a, h01=0x0050, text=»FD300 «, t00=0x001a, t01=0x0102}
0x29a4…29bc Head {h00=0x0014, h01=0x0050, text=» TBT FDBAB,FD170«, t00=0x001a, t01=0x0110}
0x29bc…29d6 Head {h00=0x0016, h01=0x0050, text=» TBT FDEOF,FDEOF10«, t00=0x001a, t01=0x0128}
0x29d6…29fa Head {h00=0x0020, h01=0x0050, text=» CBE TYPE,W4,FD305 PRINTING «, t00=0x001a, t01=0x0142}
0x29fa…2a1e Head {h00=0x0020, h01=0x0050, text=» CBE TYPE,W2,FD305 PRINTING «, t00=0x001a, t01=0x0166}
0x2a1e…2a3a Head {h00=0x0018, h01=0x0050, text=» B FD308 NO PRINTING«, t00=0x001a, t01=0x018a}
0x2a3a…2a48 Head {h00=0x000a, h01=0x0050, text=»FD305 «, t00=0x001b, t01=0x0016}
0x2a48…2a76 Head {h00=0x002a, h01=0x0050, text=»* PRINT BATCH HEAD AND BALANCE RECORD «, t00=0x001b, t01=0x0024}
0x2a76…2a8e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x001b, t01=0x0052}
0x2a8e…2ab0 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x001b, t01=0x006a}
0x2ab0…2ac4 Head {h00=0x0010, h01=0x0050, text=» BNOK FDERR «, t00=0x001b, t01=0x008c}
0x2ac4…2ad2 Head {h00=0x000a, h01=0x0050, text=»FD308 «, t00=0x001b, t01=0x00a0}
0x2ad2…2b00 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x001b, t01=0x00ae}
0x2b00…2b28 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x001b, t01=0x00dc}
0x2b28…2b3c Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x001b, t01=0x0104}
0x2b3c…2b64 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN8,W0 RESET FIELD NUMBER«, t00=0x001b, t01=0x0118}
0x2b64…2b72 Head {h00=0x000a, h01=0x0050, text=»FD310 «, t00=0x001b, t01=0x0140}
0x2b72…2b88 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x001b, t01=0x014e}
0x2b88…2b96 Head {h00=0x000a, h01=0x0050, text=»FD311 «, t00=0x001b, t01=0x0164}
0x2b96…2bb0 Head {h00=0x0016, h01=0x0050, text=» PERF CONV,BIN4,FC«, t00=0x001b, t01=0x0172}
0x2bb0…2bca Head {h00=0x0016, h01=0x0050, text=» B DECOOK ALL DONE«, t00=0x001b, t01=0x018c}
0x2bca…2be8 Head {h00=0x001a, h01=0x0050, text=» B FD340 WRITE BLOCKS «, t00=0x001c, t01=0x0016}
0x2be8…2c0a Head {h00=0x001e, h01=0x0050, text=» B FD315 CUMP FIELD EMPTHY«, t00=0x001c, t01=0x0034}
0x2c0a…2c2e Head {h00=0x0020, h01=0x0050, text=» B FD320 BCD FIELD OVERFLOW «, t00=0x001c, t01=0x0056}
0x2c2e…2c54 Head {h00=0x0022, h01=0x0050, text=» B FD320 EDIT BUFFER OVERFLOW «, t00=0x001c, t01=0x007a}
0x2c54…2c62 Head {h00=0x000a, h01=0x0050, text=»FD315 «, t00=0x001c, t01=0x00a0}
0x2c62…2c7a Head {h00=0x0014, h01=0x0050, text=» MOVE RETCON,W5 «, t00=0x001c, t01=0x00ae}
0x2c7a…2c8c Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x001c, t01=0x00c6}
0x2c8c…2c94 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x00d8}
0x2c94…2ca2 Head {h00=0x000a, h01=0x0050, text=»FD320 «, t00=0x001c, t01=0x00e0}
0x2ca2…2cc8 Head {h00=0x0022, h01=0x0050, text=» MOVE RETCON,=W'54' EDIT ERROR«, t00=0x001c, t01=0x00ee}
0x2cc8…2cda Head {h00=0x000e, h01=0x0050, text=» B FDERRT «, t00=0x001c, t01=0x0114}
0x2cda…2ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0126}
0x2ce4…2cfa Head {h00=0x0012, h01=0x0050, text=»* WRITE BLOCKS«, t00=0x001c, t01=0x0130}
0x2cfa…2d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0146}
0x2d04…2d0c Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0150}
0x2d0c…2d1a Head {h00=0x000a, h01=0x0050, text=»FD340 «, t00=0x001c, t01=0x0158}
0x2d1a…2d2e Head {h00=0x0010, h01=0x0050, text=» PERF FDWRIT«, t00=0x001c, t01=0x0166}
0x2d2e…2d42 Head {h00=0x0010, h01=0x0050, text=» B FD310 OK «, t00=0x001c, t01=0x017a}
0x2d42…2d58 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001c, t01=0x018e}
0x2d58…2d6e Head {h00=0x0012, h01=0x0050, text=» B FDEOF05 EOE«, t00=0x001d, t01=0x0014}
0x2d6e…2d9c Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 CONTINUE IN SAME BUFFER «, t00=0x001d, t01=0x002a}
0x2d9c…2dac Head {h00=0x000c, h01=0x0050, text=» B FD311«, t00=0x001d, t01=0x0058}
0x2dac…2dba Head {h00=0x000a, h01=0x0050, text=»FD350 «, t00=0x001d, t01=0x0068}
0x2dba…2dce Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x001d, t01=0x0076}
0x2dce…2de2 Head {h00=0x0010, h01=0x0050, text=» B FD370 OK «, t00=0x001d, t01=0x008a}
0x2de2…2df8 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001d, t01=0x009e}
0x2df8…2e06 Head {h00=0x000a, h01=0x0050, text=»FD360 «, t00=0x001d, t01=0x00b4}
0x2e06…2e22 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x001d, t01=0x00c2}
0x2e22…2e38 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x001d, t01=0x00de}
0x2e38…2e74 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x001d, t01=0x00f4}
0x2e74…2e82 Head {h00=0x000a, h01=0x0050, text=»FD365 «, t00=0x001d, t01=0x0130}
0x2e82…2eb0 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK«, t00=0x001d, t01=0x013e}
0x2eb0…2ecc Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,KEYTAB «, t00=0x001d, t01=0x016c}
0x2ecc…2efe Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD350,FD360,FD170 CLR,CAN,RET «, t00=0x001d, t01=0x0188}
0x2efe…2f12 Head {h00=0x0010, h01=0x0050, text=» B FD350 ENT«, t00=0x001e, t01=0x002a}
0x2f12…2f20 Head {h00=0x000a, h01=0x0050, text=»FD370 «, t00=0x001e, t01=0x003e}
0x2f20…2f46 Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x001e, t01=0x004c}
0x2f46…2f5a Head {h00=0x0010, h01=0x0050, text=» B FD375 OK «, t00=0x001e, t01=0x0072}
0x2f5a…2f70 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROR«, t00=0x001e, t01=0x0086}
0x2f70…2f7e Head {h00=0x000a, h01=0x0050, text=»FD375 «, t00=0x001e, t01=0x009c}
0x2f7e…2fb0 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD380,FD360,FD170 CLR,CAN,RET «, t00=0x001e, t01=0x00aa}
0x2fb0…2fbe Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x001e, t01=0x00dc}
0x2fbe…2fc6 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x00ea}
0x2fc6…2fd4 Head {h00=0x000a, h01=0x0050, text=»FD380 «, t00=0x001e, t01=0x00f2}
0x2fd4…2ffc Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x001e, t01=0x0100}
0x2ffc…3010 Head {h00=0x0010, h01=0x0050, text=» B FD382 OK «, t00=0x001e, t01=0x0128}
0x3010…3026 Head {h00=0x0012, h01=0x0050, text=» B FD360 ERROE«, t00=0x001e, t01=0x013c}
0x3026…302e Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x0152}
0x302e…303c Head {h00=0x000a, h01=0x0050, text=»FD382 «, t00=0x001e, t01=0x015a}
0x303c…305c Head {h00=0x001c, h01=0x0050, text=» TBF FDEOF,FD340 NOT EOF«, t00=0x001e, t01=0x0168}
0x305c…308a Head {h00=0x002a, h01=0x0050, text=» MOVE RETCON,=W'-6' GET CURRENT RECORD«, t00=0x001e, t01=0x0188}
0x308a…309c Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x001f, t01=0x0026}
0x309c…30a4 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0038}
0x30a4…30b4 Head {h00=0x000c, h01=0x0050, text=»FDEOF05 «, t00=0x001f, t01=0x0040}
0x30b4…30d4 Head {h00=0x001c, h01=0x0050, text=» SET FDEOF INDICATE EOF «, t00=0x001f, t01=0x0050}
0x30d4…30fe Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W14),BIN8 SAVE FIELD NO«, t00=0x001f, t01=0x0070}
0x30fe…310e Head {h00=0x000c, h01=0x0050, text=» B FD360«, t00=0x001f, t01=0x009a}
0x310e…3116 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x00aa}
0x3116…3126 Head {h00=0x000c, h01=0x0050, text=»FDEOF10 «, t00=0x001f, t01=0x00b2}
0x3126…313a Head {h00=0x0010, h01=0x0050, text=» CLEAR FDEOF«, t00=0x001f, t01=0x00c2}
0x313a…3168 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x001f, t01=0x00d6}
0x3168…3190 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x001f, t01=0x0104}
0x3190…31a4 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x001f, t01=0x012c}
0x31a4…31ce Head {h00=0x0026, h01=0x0050, text=» MOVE BIN8,WORK(W14) GET FIELD NO «, t00=0x001f, t01=0x0140}
0x31ce…31ea Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x001f, t01=0x016a}
0x31ea…3200 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x001f, t01=0x0186}
0x3200…3242 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x0020, t01=0x000c}
0x3242…3252 Head {h00=0x000c, h01=0x0050, text=» B FD340«, t00=0x0020, t01=0x004e}
0x3252…3260 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x005e}
0x3260…326e Head {h00=0x000a, h01=0x0050, text=»FD400 «, t00=0x0020, t01=0x006c}
0x326e…328c Head {h00=0x001a, h01=0x0050, text=»* BALANCE FORMAT «, t00=0x0020, t01=0x007a}
0x328c…329c Head {h00=0x000c, h01=0x0050, text=» B FD300«, t00=0x0020, t01=0x0098}
0x329c…32aa Head {h00=0x000a, h01=0x0050, text=»FD500 «, t00=0x0020, t01=0x00a8}
0x32aa…32d8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,WORK(W13) GET BUFFER INDEX«, t00=0x0020, t01=0x00b6}
0x32d8…32f6 Head {h00=0x001a, h01=0x0050, text=» TBT FDBAB,FD560 ABORT«, t00=0x0020, t01=0x00e4}
0x32f6…331e Head {h00=0x0024, h01=0x0050, text=» MOVE BIN9,BIN10 GET BPOOL INDEX«, t00=0x0020, t01=0x0102}
0x331e…3332 Head {h00=0x0010, h01=0x0050, text=» ADD BIN9,W1«, t00=0x0020, t01=0x012a}
0x3332…335e Head {h00=0x0028, h01=0x0050, text=» EDIT BPOOL(BIN9),FFD999 END OF FILE«, t00=0x0020, t01=0x013e}
0x335e…336c Head {h00=0x000a, h01=0x0050, text=»FD505 «, t00=0x0020, t01=0x016a}
0x336c…3382 Head {h00=0x0012, h01=0x0050, text=»***PERF FDWRIT«, t00=0x0020, t01=0x0178}
0x3382…3396 Head {h00=0x0010, h01=0x0050, text=» B FD570 OK «, t00=0x0020, t01=0x018e}
0x3396…33aa Head {h00=0x0010, h01=0x0050, text=» B FDERR ERR«, t00=0x0021, t01=0x0012}
0x33aa…33be Head {h00=0x0010, h01=0x0050, text=» B FD510 EOE«, t00=0x0021, t01=0x0026}
0x33be…33cc Head {h00=0x000a, h01=0x0050, text=»FD510 «, t00=0x0021, t01=0x003a}
0x33cc…33e8 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0021, t01=0x0048}
0x33e8…33fe Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0021, t01=0x0064}
0x33fe…343a Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x0021, t01=0x007a}
0x343a…3448 Head {h00=0x000a, h01=0x0050, text=»FD515 «, t00=0x0021, t01=0x00b6}
0x3448…3476 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'55' CHANGE FLOPPYDISK«, t00=0x0021, t01=0x00c4}
0x3476…3492 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,KEYTAB «, t00=0x0021, t01=0x00f2}
0x3492…34c4 Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD520,FD510,FD170 CLR,CAN,RET «, t00=0x0021, t01=0x010e}
0x34c4…34d2 Head {h00=0x000a, h01=0x0050, text=»FD520 «, t00=0x0021, t01=0x0140}
0x34d2…34e6 Head {h00=0x0010, h01=0x0050, text=» PERF FDLOAD«, t00=0x0021, t01=0x014e}
0x34e6…34fa Head {h00=0x0010, h01=0x0050, text=» B FD525 OK «, t00=0x0021, t01=0x0162}
0x34fa…3510 Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0021, t01=0x0176}
0x3510…351e Head {h00=0x000a, h01=0x0050, text=»FD525 «, t00=0x0021, t01=0x018c}
0x351e…3544 Head {h00=0x0022, h01=0x0050, text=» PERF FDRVOL READ VOLUME LABEL«, t00=0x0022, t01=0x000a}
0x3544…3558 Head {h00=0x0010, h01=0x0050, text=» B FD530 OK «, t00=0x0022, t01=0x0030}
0x3558…356e Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0022, t01=0x0044}
0x356e…357c Head {h00=0x000a, h01=0x0050, text=»FD530 «, t00=0x0022, t01=0x005a}
0x357c…35ae Head {h00=0x002e, h01=0x0050, text=» IB DEBINW2,FD535,FD510,FD170 CLR,CAN,RET «, t00=0x0022, t01=0x0068}
0x35ae…35bc Head {h00=0x000a, h01=0x0050, text=»* ENT «, t00=0x0022, t01=0x009a}
0x35bc…35ca Head {h00=0x000a, h01=0x0050, text=»FD535 «, t00=0x0022, t01=0x00a8}
0x35ca…35f2 Head {h00=0x0024, h01=0x0050, text=» PERF FDWVOL WRITE VOLUME LABEL «, t00=0x0022, t01=0x00b6}
0x35f2…3606 Head {h00=0x0010, h01=0x0050, text=» B FD540 OK «, t00=0x0022, t01=0x00de}
0x3606…361c Head {h00=0x0012, h01=0x0050, text=» B FD510 ERROR«, t00=0x0022, t01=0x00f2}
0x361c…362a Head {h00=0x000a, h01=0x0050, text=»FD540 «, t00=0x0022, t01=0x0108}
0x362a…3646 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0022, t01=0x0116}
0x3646…365c Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x0022, t01=0x0132}
0x365c…369e Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x0022, t01=0x0148}
0x369e…36ae Head {h00=0x000c, h01=0x0050, text=» B FD505«, t00=0x0022, t01=0x018a}
0x36ae…36bc Head {h00=0x000a, h01=0x0050, text=»FD550 «, t00=0x0023, t01=0x000a}
0x36bc…36ce Head {h00=0x000e, h01=0x0050, text=» WAIT DSFD«, t00=0x0023, t01=0x0018}
0x36ce…36e2 Head {h00=0x0010, h01=0x0050, text=» CLEAR FDBAB«, t00=0x0023, t01=0x002a}
0x36e2…3702 Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR SECTOR«, t00=0x0023, t01=0x003e}
0x3702…371e Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0023, t01=0x005e}
0x371e…375a Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x0023, t01=0x007a}
0x375a…3778 Head {h00=0x001a, h01=0x0050, text=» CLEAR FDEOF RESET EOF«, t00=0x0023, t01=0x00b6}
0x3778…378e Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0023, t01=0x00d4}
0x378e…37aa Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0023, t01=0x00ea}
0x37aa…37e6 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'A2',BPOOL(BIN10),REQFD,CWFD CLOSE «, t00=0x0023, t01=0x0106}
0x37e6…37fc Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0023, t01=0x0142}
0x37fc…381a Head {h00=0x001a, h01=0x0050, text=» DSC1 DSFD,DETACH,BIN4«, t00=0x0023, t01=0x0158}
0x381a…382e Head {h00=0x0010, h01=0x0050, text=» PERF DETPRT«, t00=0x0023, t01=0x0176}
0x382e…3846 Head {h00=0x0014, h01=0x0050, text=»* RELEAS BUFFERS«, t00=0x0023, t01=0x018a}
0x3846…3870 Head {h00=0x0026, h01=0x0050, text=» PERF DEPOOL,W6,BIN10,BIN4,STRG10A«, t00=0x0024, t01=0x0012}
0x3870…3882 Head {h00=0x000e, h01=0x0050, text=» B DECOOK «, t00=0x0024, t01=0x003c}
0x3882…3890 Head {h00=0x000a, h01=0x0050, text=»FD560 «, t00=0x0024, t01=0x004e}
0x3890…38ac Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0024, t01=0x005c}
0x38ac…38c4 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0024, t01=0x0078}
0x38c4…38de Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0024, t01=0x0090}
0x38de…38fc Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDERR «, t00=0x0024, t01=0x00aa}
0x38fc…390c Head {h00=0x000c, h01=0x0050, text=» B FD550«, t00=0x0024, t01=0x00c8}
0x390c…3914 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x00d8}
0x3914…3922 Head {h00=0x000a, h01=0x0050, text=»FD570 «, t00=0x0024, t01=0x00e0}
0x3922…393e Head {h00=0x0018, h01=0x0050, text=» MOVE STRG10A,HEX00 «, t00=0x0024, t01=0x00ee}
0x393e…3956 Head {h00=0x0014, h01=0x0050, text=» GETTIME STRG10A«, t00=0x0024, t01=0x010a}
0x3956…3970 Head {h00=0x0016, h01=0x0050, text=» MOVE TIME,STRG10A«, t00=0x0024, t01=0x0122}
0x3970…398e Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,FFDEND «, t00=0x0024, t01=0x013c}
0x398e…399e Head {h00=0x000c, h01=0x0050, text=» B FD550«, t00=0x0024, t01=0x015a}
0x399e…39ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x016a}
0x39ac…39ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0178}
0x39ba…39c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c4…39f0 Head {h00=0x0028, h01=0x0050, text=»* GETBUF GET TWO CONSECUTIVE BUFFERS«, t00=0x0024, t01=0x0190}
0x39f0…39fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002c}
0x39fa…3a1e Head {h00=0x0020, h01=0x0050, text=»* BUFFER INDEX IN WORK(W13) «, t00=0x0025, t01=0x0036}
0x3a1e…3a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x005a}
0x3a28…3a30 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0064}
0x3a30…3a44 Head {h00=0x0010, h01=0x0050, text=»GETBUF PROC «, t00=0x0025, t01=0x006c}
0x3a44…3a72 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,W3 TOTAL NUMBER OF BUFFERS«, t00=0x0025, t01=0x0080}
0x3a72…3aa2 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,W3 NO. OF COSECUTIVE BUFFERS «, t00=0x0025, t01=0x00ae}
0x3aa2…3ae6 Head {h00=0x0040, h01=0x0050, text=» PERF DEPOOL,W2,BIN10,BIN4,STRG10A GET 3 COSECUTIVE BUFFERS «, t00=0x0025, t01=0x00de}
0x3ae6…3b0e Head {h00=0x0024, h01=0x0050, text=» BNOK GETBU2 NO BUFFERS AVAIBLE «, t00=0x0025, t01=0x0122}
0x3b0e…3b3e Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W13),BIN10 SAVE BUFFER INDEX «, t00=0x0025, t01=0x014a}
0x3b3e…3b70 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN9,BIN10 LOAD WORKING BUFFER INDEX«, t00=0x0025, t01=0x017a}
0x3b70…3b96 Head {h00=0x0022, h01=0x0050, text=» ADD BIN9,W1 INDEX EDIT BUFFER«, t00=0x0026, t01=0x001c}
0x3b96…3bce Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' RESET TRANSMIT BUFFER «, t00=0x0026, t01=0x0042}
0x3bce…3bda Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x007a}
0x3bda…3be8 Head {h00=0x000a, h01=0x0050, text=»GETBU2«, t00=0x0026, t01=0x0086}
0x3be8…3bf6 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0026, t01=0x0094}
0x3bf6…3c04 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x00a2}
0x3c04…3c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b0}
0x3c12…3c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00be}
0x3c1c…3c4c Head {h00=0x002c, h01=0x0050, text=»* FDRVOL READ VOLUME LABEL AND DISPLAY «, t00=0x0026, t01=0x00c8}
0x3c4c…3c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f8}
0x3c56…3c6a Head {h00=0x0010, h01=0x0050, text=»FDRVOL PROC «, t00=0x0026, t01=0x0102}
0x3c6a…3c86 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x0026, t01=0x0116}
0x3c86…3cb0 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,BIN10 GET BUFFER INDEX«, t00=0x0026, t01=0x0132}
0x3cb0…3cdc Head {h00=0x0028, h01=0x0050, text=» ADD BIN13,W2 ADJUST FOR READ BUFFER«, t00=0x0026, t01=0x015c}
0x3cdc…3cf2 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x0026, t01=0x0188}
0x3cf2…3d34 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) «, t00=0x0027, t01=0x000e}
0x3d34…3d4c Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x0027, t01=0x0050}
0x3d4c…3d68 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'086F' «, t00=0x0027, t01=0x0068}
0x3d68…3d84 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x0027, t01=0x0084}
0x3d84…3d98 Head {h00=0x0010, h01=0x0050, text=» BNOK FDRV02«, t00=0x0027, t01=0x00a0}
0x3d98…3db2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'66' «, t00=0x0027, t01=0x00b4}
0x3db2…3dee Head {h00=0x0038, h01=0x0050, text=» XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXPIRATION DATE«, t00=0x0027, t01=0x00ce}
0x3dee…3e26 Head {h00=0x0034, h01=0x0050, text=» XCOPY STR8A,W0,W8,BPOOL(BIN13),W5 GET FILE NAME«, t00=0x0027, t01=0x010a}
0x3e26…3e4e Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,W22 GET RECORD LENGTH«, t00=0x0027, t01=0x0142}
0x3e4e…3e7a Head {h00=0x0028, h01=0x0050, text=» XCOPY STR6B,W1,W5,BPOOL(BIN13),BIN7«, t00=0x0027, t01=0x016a}
0x3e7a…3e94 Head {h00=0x0016, h01=0x0050, text=» MOVE RECLGD,STR6B«, t00=0x0028, t01=0x0008}
0x3e94…3eae Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'45' «, t00=0x0028, t01=0x0022}
0x3eae…3ee8 Head {h00=0x0036, h01=0x0050, text=» XCOPY STR2A,W0,W2,BPOOL(BIN13),BIN7 GET FD NUMBER«, t00=0x0028, t01=0x003c}
0x3ee8…3efe Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCAS02«, t00=0x0028, t01=0x0076}
0x3efe…3f14 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0028, t01=0x008c}
0x3f14…3f2c Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0028, t01=0x00a2}
0x3f2c…3f3a Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0028, t01=0x00ba}
0x3f3a…3f64 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW3,W1 REQUESTED LENGTH «, t00=0x0028, t01=0x00c8}
0x3f64…3f9a Head {h00=0x0032, h01=0x0050, text=» NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2«, t00=0x0028, t01=0x00f2}
0x3f9a…3fa6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0128}
0x3fa6…3fb4 Head {h00=0x000a, h01=0x0050, text=»FDRV02«, t00=0x0028, t01=0x0134}
0x3fb4…3fc2 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0028, t01=0x0142}
0x3fc2…3fd0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0150}
0x3fd0…3fde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x015e}
0x3fde…3fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016c}
0x3fe8…400c Head {h00=0x0020, h01=0x0050, text=»* FDWVOL WRITE VOLUME LABEL«, t00=0x0028, t01=0x0176}
0x400c…4016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000a}
0x4016…401e Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0014}
0x401e…4026 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x001c}
0x4026…403a Head {h00=0x0010, h01=0x0050, text=»FDWVOL PROC «, t00=0x0029, t01=0x0024}
0x403a…4054 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'66' «, t00=0x0029, t01=0x0038}
0x4054…407e Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,BIN10 GET BUFFER INDEX«, t00=0x0029, t01=0x0052}
0x407e…40aa Head {h00=0x0028, h01=0x0050, text=» ADD BIN13,W2 ADJUST FOR READ BUFFER«, t00=0x0029, t01=0x007c}
0x40aa…40d8 Head {h00=0x002a, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE «, t00=0x0029, t01=0x00a8}
0x40d8…40ee Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W5 «, t00=0x0029, t01=0x00d6}
0x40ee…4122 Head {h00=0x0030, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL1 VOLUME NAME«, t00=0x0029, t01=0x00ec}
0x4122…413c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'45' «, t00=0x0029, t01=0x0120}
0x413c…416e Head {h00=0x002e, h01=0x0050, text=» EDSUB BPOOL(BIN13),BIN7,FRMVOL3 FD NUMBER«, t00=0x0029, t01=0x013a}
0x416e…419a Head {h00=0x0028, h01=0x0050, text=» MOVE REQFD,=W'128' REQUESTED LENGTH«, t00=0x0029, t01=0x016c}
0x419a…41b0 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W7 «, t00=0x002a, t01=0x0008}
0x41b0…41f2 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (HDR1)«, t00=0x002a, t01=0x001e}
0x41f2…420a Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x002a, t01=0x0060}
0x420a…4226 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'024F' «, t00=0x002a, t01=0x0078}
0x4226…4242 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x002a, t01=0x0094}
0x4242…424a Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00b0}
0x424a…425e Head {h00=0x0010, h01=0x0050, text=» BNOK FDWVO2«, t00=0x002a, t01=0x00b8}
0x425e…4288 Head {h00=0x0026, h01=0x0050, text=» ADD FDCNT,=D'1' UPDATE FD NUMBER «, t00=0x002a, t01=0x00cc}
0x4288…42ac Head {h00=0x0020, h01=0x0050, text=» MOVE CWFD,=W'26' HDR RECORD«, t00=0x002a, t01=0x00f6}
0x42ac…42d8 Head {h00=0x0028, h01=0x0050, text=» MOVE REQFD,=W'128' REQUESTED LENGTH«, t00=0x002a, t01=0x011a}
0x42d8…4314 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B1',BPOOL(BIN13),REQFD,CWFD REWIND«, t00=0x002a, t01=0x0146}
0x4314…4320 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0182}
0x4320…432e Head {h00=0x000a, h01=0x0050, text=»FDWVO2«, t00=0x002a, t01=0x018e}
0x432e…433c Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x002b, t01=0x000c}
0x433c…434a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x001a}
0x434a…4358 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0028}
0x4358…4362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0036}
0x4362…4380 Head {h00=0x001a, h01=0x0050, text=»* LSWRIT WRITE BLOCKS «, t00=0x002b, t01=0x0040}
0x4380…438a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005e}
0x438a…4392 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x0068}
0x4392…43a6 Head {h00=0x0010, h01=0x0050, text=»LSWRIT PROC «, t00=0x002b, t01=0x0070}
0x43a6…43b4 Head {h00=0x000a, h01=0x0050, text=»LSWR00«, t00=0x002b, t01=0x0084}
0x43b4…43da Head {h00=0x0022, h01=0x0050, text=»* BIN16 NO OF CHARS TO SEND «, t00=0x002b, t01=0x0092}
0x43da…440c Head {h00=0x002e, h01=0x0050, text=»* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER«, t00=0x002b, t01=0x00b8}
0x440c…442e Head {h00=0x001e, h01=0x0050, text=»* DEBIN3 LENGTH OF HEADER«, t00=0x002b, t01=0x00ea}
0x442e…4460 Head {h00=0x002e, h01=0x0050, text=»* BIN15 ACTUAL LENGTH OF INPUT DATA USED«, t00=0x002b, t01=0x010c}
0x4460…4476 Head {h00=0x0012, h01=0x0050, text=» CMP BIN16,W0 «, t00=0x002b, t01=0x013e}
0x4476…4498 Head {h00=0x001e, h01=0x0050, text=» BE LSWRRET NODATA=NOWRITE«, t00=0x002b, t01=0x0154}
0x4498…44c4 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,RECLGD SET RECORD LENGTH «, t00=0x002b, t01=0x0176}
0x44c4…44f4 Head {h00=0x002c, h01=0x0050, text=» ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO«, t00=0x002c, t01=0x0012}
0x44f4…4526 Head {h00=0x002e, h01=0x0050, text=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO«, t00=0x002c, t01=0x0042}
0x4526…454a Head {h00=0x0020, h01=0x0050, text=» CBE BCDI21(W4),=D'1',LSWR50«, t00=0x002c, t01=0x0074}
0x454a…4576 Head {h00=0x0028, h01=0x0050, text=»* NOT FIRST TIME (SEQUENCE NO > 1) «, t00=0x002c, t01=0x0098}
0x4576…45a6 Head {h00=0x002c, h01=0x0050, text=»* COPY HEADER PART, LENGTH IN WORK(W15)«, t00=0x002c, t01=0x00c4}
0x45a6…45d6 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER«, t00=0x002c, t01=0x00f4}
0x45d6…4600 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,WORK(W15) START POINT«, t00=0x002c, t01=0x0124}
0x4600…4612 Head {h00=0x000e, h01=0x0050, text=» B LSWR55 «, t00=0x002c, t01=0x014e}
0x4612…4620 Head {h00=0x000a, h01=0x0050, text=»LSWR50«, t00=0x002c, t01=0x0160}
0x4620…4654 Head {h00=0x0030, h01=0x0050, text=»* FIRST OUTPUT RECORD FOR THIS INPUT RECORD«, t00=0x002c, t01=0x016e}
0x4654…4678 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN3,W0 START POINT «, t00=0x002d, t01=0x0012}
0x4678…4682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0036}
0x4682…4690 Head {h00=0x000a, h01=0x0050, text=»LSWR55«, t00=0x002d, t01=0x0040}
0x4690…46c2 Head {h00=0x002e, h01=0x0050, text=» CBL BIN16,BIN4,LSWR58 ROOM FOR EVERYTING?«, t00=0x002d, t01=0x004e}
0x46c2…46d4 Head {h00=0x000e, h01=0x0050, text=» NO ROOM«, t00=0x002d, t01=0x0080}
0x46d4…46fc Head {h00=0x0024, h01=0x0050, text=» TBT SPLITFL,LSWR57 NORMAL SPLIT«, t00=0x002d, t01=0x0092}
0x46fc…4718 Head {h00=0x0018, h01=0x0050, text=» FIND PRECEDING & «, t00=0x002d, t01=0x00ba}
0x4718…4748 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN1,BIN4 START AT END OF RECORD«, t00=0x002d, t01=0x00d6}
0x4748…476e Head {h00=0x0022, h01=0x0050, text=» MOVE STR2A,=C'&&' LOOK FOR & «, t00=0x002d, t01=0x0106}
0x476e…477c Head {h00=0x000a, h01=0x0050, text=»LSWR56«, t00=0x002d, t01=0x012c}
0x477c…4792 Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x002d, t01=0x013a}
0x4792…47b6 Head {h00=0x0020, h01=0x0050, text=» CBNG DEBIN1,W0,LSWR57 NO & «, t00=0x002d, t01=0x0150}
0x47b6…47d2 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN2,DEBIN1 «, t00=0x002d, t01=0x0174}
0x47d2…4802 Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1«, t00=0x002d, t01=0x0190}
0x4802…4820 Head {h00=0x001a, h01=0x0050, text=» BNOK LSWR56 NOT FOUND«, t00=0x002e, t01=0x0030}
0x4820…483a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,DEBIN2«, t00=0x002e, t01=0x004e}
0x483a…484c Head {h00=0x000e, h01=0x0050, text=» B LSWR59 «, t00=0x002e, t01=0x0068}
0x484c…4862 Head {h00=0x0012, h01=0x0050, text=»*NORMAL SPLIT «, t00=0x002e, t01=0x007a}
0x4862…4870 Head {h00=0x000a, h01=0x0050, text=»LSWR57«, t00=0x002e, t01=0x0090}
0x4870…4888 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,BIN4«, t00=0x002e, t01=0x009e}
0x4888…489a Head {h00=0x000e, h01=0x0050, text=» B LSWR59 «, t00=0x002e, t01=0x00b6}
0x489a…48c6 Head {h00=0x0028, h01=0x0050, text=»* NO OF CHARS, FIT IN AVAILABLE ROOM«, t00=0x002e, t01=0x00c8}
0x48c6…48d4 Head {h00=0x000a, h01=0x0050, text=»LSWR58«, t00=0x002e, t01=0x00f4}
0x48d4…48fc Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,BIN16 SEND ALL CHARS«, t00=0x002e, t01=0x0102}
0x48fc…4906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012a}
0x4906…4914 Head {h00=0x000a, h01=0x0050, text=»LSWR59«, t00=0x002e, t01=0x0134}
0x4914…4956 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST«, t00=0x002e, t01=0x0142}
0x4956…4990 Head {h00=0x0036, h01=0x0050, text=»* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER«, t00=0x002e, t01=0x0184}
0x4990…49be Head {h00=0x002a, h01=0x0050, text=»* BIN4 = NO OF CHARS IN OUTPUT BUFFER «, t00=0x002f, t01=0x002e}
0x49be…49d6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN15«, t00=0x002f, t01=0x005c}
0x49d6…49fa Head {h00=0x0020, h01=0x0050, text=» ADD BIN4,DEBIN3 ADD HEADER «, t00=0x002f, t01=0x0074}
0x49fa…4a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0098}
0x4a04…4a20 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x002f, t01=0x00a2}
0x4a20…4a46 Head {h00=0x0022, h01=0x0050, text=» SUB DEBIN1,BIN4 NO OF BLANKS «, t00=0x002f, t01=0x00be}
0x4a46…4a8c Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS «, t00=0x002f, t01=0x00e4}
0x4a8c…4a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x4a96…4aa4 Head {h00=0x000a, h01=0x0050, text=»LSWR60«, t00=0x002f, t01=0x0134}
0x4aa4…4acc Head {h00=0x0024, h01=0x0050, text=»* INSERT RECORD NO - BCDI21(W5)«, t00=0x002f, t01=0x0142}
0x4acc…4b00 Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W17),W0,LSWR70 SKIP IF LENGTH ZERO«, t00=0x002f, t01=0x016a}
0x4b00…4b32 Head {h00=0x002e, h01=0x0050, text=» MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO«, t00=0x0030, t01=0x000e}
0x4b32…4b58 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0030, t01=0x0040}
0x4b58…4b86 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN1,WORK(W17) FIND START OF NO«, t00=0x0030, t01=0x0066}
0x4b86…4bc4 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1«, t00=0x0030, t01=0x0094}
0x4bc4…4bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d2}
0x4bce…4bdc Head {h00=0x000a, h01=0x0050, text=»LSWR70«, t00=0x0030, t01=0x00dc}
0x4bdc…4c08 Head {h00=0x0028, h01=0x0050, text=»* INSERT SEQUENCE NO - BCDI21(W4)«, t00=0x0030, t01=0x00ea}
0x4c08…4c3c Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W19),W0,LSWR80 SKIPIF LENGTH ZERO «, t00=0x0030, t01=0x0116}
0x4c3c…4c70 Head {h00=0x0030, h01=0x0050, text=» MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO«, t00=0x0030, t01=0x014a}
0x4c70…4c96 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0030, t01=0x017e}
0x4c96…4cc6 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN1,WORK(W19) FIELD START OF NO «, t00=0x0031, t01=0x0014}
0x4cc6…4d04 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1«, t00=0x0031, t01=0x0044}
0x4d04…4d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0082}
0x4d0e…4d1c Head {h00=0x000a, h01=0x0050, text=»LSWR80«, t00=0x0031, t01=0x008c}
0x4d1c…4d3a Head {h00=0x001a, h01=0x0050, text=»* HANDLE END OF RECORD«, t00=0x0031, t01=0x009a}
0x4d3a…4d68 Head {h00=0x002a, h01=0x0050, text=» CBG BIN16,BIN15,LSWR100 NO ROOM, CONT«, t00=0x0031, t01=0x00b8}
0x4d68…4d7c Head {h00=0x0010, h01=0x0050, text=»* INSERT EOR«, t00=0x0031, t01=0x00e6}
0x4d7c…4d90 Head {h00=0x0010, h01=0x0050, text=» B LSWRSEND «, t00=0x0031, t01=0x00fa}
0x4d90…4d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010e}
0x4d9a…4daa Head {h00=0x000c, h01=0x0050, text=»LSWR100 «, t00=0x0031, t01=0x0118}
0x4daa…4dce Head {h00=0x0020, h01=0x0050, text=» WRITE DEDSPRT,BPOOL(BIN10) «, t00=0x0031, t01=0x0128}
0x4dce…4de4 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x0031, t01=0x014c}
0x4de4…4e1e Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND«, t00=0x0031, t01=0x0162}
0x4e1e…4e36 Head {h00=0x0014, h01=0x0050, text=» SUB BIN16,BIN15«, t00=0x0032, t01=0x000c}
0x4e36…4e50 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x0032, t01=0x0024}
0x4e50…4e66 Head {h00=0x0012, h01=0x0050, text=» CMP VSEIND,W1«, t00=0x0032, t01=0x003e}
0x4e66…4e8e Head {h00=0x0024, h01=0x0050, text=» BE LSWR00 WRITE RESET OF BUFFER«, t00=0x0032, t01=0x0054}
0x4e8e…4e9c Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x0032, t01=0x007c}
0x4e9c…4ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x008a}
0x4ea6…4eb6 Head {h00=0x000c, h01=0x0050, text=»LSWRSEND«, t00=0x0032, t01=0x0094}
0x4eb6…4eda Head {h00=0x0020, h01=0x0050, text=» WRITE DEDSPRT,BPOOL(BIN10) «, t00=0x0032, t01=0x00a4}
0x4eda…4eea Head {h00=0x000c, h01=0x0050, text=»LSWRRET «, t00=0x0032, t01=0x00c8}
0x4eea…4ef6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0032, t01=0x00d8}
0x4ef6…4f04 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0032, t01=0x00e4}
0x4f04…4f12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00f2}
0x4f12…4f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0100}
0x4f1c…4f3a Head {h00=0x001a, h01=0x0050, text=»* FDWRIT WRITE BLOCKS«, t00=0x0032, t01=0x010a}
0x4f3a…4f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0128}
0x4f44…4f4c Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0132}
0x4f4c…4f54 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x013a}
0x4f54…4f68 Head {h00=0x0010, h01=0x0050, text=»FDWRIT PROC «, t00=0x0032, t01=0x0142}
0x4f68…4f76 Head {h00=0x000a, h01=0x0050, text=»FDWR00«, t00=0x0032, t01=0x0156}
0x4f76…4f88 Head {h00=0x000e, h01=0x0050, text=» WAIT DSFD«, t00=0x0032, t01=0x0164}
0x4f88…4fa0 Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x0032, t01=0x0176}
0x4fa0…4fc0 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,BIN4,W2 EOE «, t00=0x0032, t01=0x018e}
0x4fc0…4fd2 Head {h00=0x000e, h01=0x0050, text=» BZ FDWR10«, t00=0x0033, t01=0x001e}
0x4fd2…4fee Head {h00=0x0018, h01=0x0050, text=» RET 4 END OF EXTENT«, t00=0x0033, t01=0x0030}
0x4fee…4ffc Head {h00=0x000a, h01=0x0050, text=»FDWR10«, t00=0x0033, t01=0x004c}
0x4ffc…5018 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'024F' «, t00=0x0033, t01=0x005a}
0x5018…5034 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x0033, t01=0x0076}
0x5034…5048 Head {h00=0x0010, h01=0x0050, text=» BERR FDWR20«, t00=0x0033, t01=0x0092}
0x5048…5080 Head {h00=0x0034, h01=0x0050, text=» IB BTYPE,FDWROP,FDWRHD,FDWRDATA,FDWRBAL,FDWRCL «, t00=0x0033, t01=0x00a6}
0x5080…508e Head {h00=0x000a, h01=0x0050, text=»FDWROP«, t00=0x0033, t01=0x00de}
0x508e…509c Head {h00=0x000a, h01=0x0050, text=»FDWRCL«, t00=0x0033, t01=0x00ec}
0x509c…50ae Head {h00=0x000e, h01=0x0050, text=» B FDWR20 «, t00=0x0033, t01=0x00fa}
0x50ae…50cc Head {h00=0x001a, h01=0x0050, text=»FDWRHD BATCH HEADER «, t00=0x0033, t01=0x010c}
0x50cc…5104 Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER«, t00=0x0033, t01=0x012a}
0x5104…511e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x0033, t01=0x0162}
0x511e…5150 Head {h00=0x002e, h01=0x0050, text=» XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0«, t00=0x0033, t01=0x017c}
0x5150…5164 Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x0034, t01=0x001e}
0x5164…516e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0032}
0x516e…517e Head {h00=0x000c, h01=0x0050, text=»FDWRDATA«, t00=0x0034, t01=0x003c}
0x517e…51a4 Head {h00=0x0022, h01=0x0050, text=»* BIN16 NO OF CHARS TO SEND «, t00=0x0034, t01=0x004c}
0x51a4…51d6 Head {h00=0x002e, h01=0x0050, text=»* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER«, t00=0x0034, t01=0x0072}
0x51d6…51f8 Head {h00=0x001e, h01=0x0050, text=»* DEBIN3 LENGTH OF HEADER«, t00=0x0034, t01=0x00a4}
0x51f8…522a Head {h00=0x002e, h01=0x0050, text=»* BIN15 ACTUAL LENGTH OF INPUT DATA USED«, t00=0x0034, t01=0x00c6}
0x522a…5240 Head {h00=0x0012, h01=0x0050, text=» CMP BIN16,W0 «, t00=0x0034, t01=0x00f8}
0x5240…5266 Head {h00=0x0022, h01=0x0050, text=» BE FDWRRET NO DATA= NO WRITE «, t00=0x0034, t01=0x010e}
0x5266…5292 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,RECLGD SET RECORD LENGTH «, t00=0x0034, t01=0x0134}
0x5292…52c2 Head {h00=0x002c, h01=0x0050, text=» ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO«, t00=0x0034, t01=0x0160}
0x52c2…52f4 Head {h00=0x002e, h01=0x0050, text=» ADD BCDI21(W4),=D'1' ADD 1 TO SEQUENCE NO«, t00=0x0034, t01=0x0190}
0x52f4…5318 Head {h00=0x0020, h01=0x0050, text=» CBE BCDI21(W4),=D'1',FDWR50«, t00=0x0035, t01=0x0032}
0x5318…5344 Head {h00=0x0028, h01=0x0050, text=»* NOT FIRST TIME (SEQUENCE NO > 1) «, t00=0x0035, t01=0x0056}
0x5344…5374 Head {h00=0x002c, h01=0x0050, text=»* COPY HEADER PART, LENGTH IN WORK(W15)«, t00=0x0035, t01=0x0082}
0x5374…53a4 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER«, t00=0x0035, t01=0x00b2}
0x53a4…53ce Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,WORK(W15) START POINT«, t00=0x0035, t01=0x00e2}
0x53ce…53e0 Head {h00=0x000e, h01=0x0050, text=» B FDWR55 «, t00=0x0035, t01=0x010c}
0x53e0…53ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011e}
0x53ea…53f8 Head {h00=0x000a, h01=0x0050, text=»FDWR50«, t00=0x0035, t01=0x0128}
0x53f8…542c Head {h00=0x0030, h01=0x0050, text=»* FIRST OUTPUT RECORD FOR THIS INPUT RECORD«, t00=0x0035, t01=0x0136}
0x542c…5450 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN3,W0 START POINT «, t00=0x0035, t01=0x016a}
0x5450…545a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x018e}
0x545a…5468 Head {h00=0x000a, h01=0x0050, text=»FDWR55«, t00=0x0036, t01=0x0008}
0x5468…549c Head {h00=0x0030, h01=0x0050, text=» CBL BIN16,BIN4,FDWR58 ROOM FOR EVERYTHING? «, t00=0x0036, t01=0x0016}
0x549c…54ae Head {h00=0x000e, h01=0x0050, text=» NO ROOM«, t00=0x0036, t01=0x004a}
0x54ae…54d6 Head {h00=0x0024, h01=0x0050, text=» TBT SPLITFL,FDWR57 NORMAL SPLIT«, t00=0x0036, t01=0x005c}
0x54d6…54f2 Head {h00=0x0018, h01=0x0050, text=» FIND PRECEDING & «, t00=0x0036, t01=0x0084}
0x54f2…5522 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN1,BIN4 START AT END OF RECORD«, t00=0x0036, t01=0x00a0}
0x5522…5548 Head {h00=0x0022, h01=0x0050, text=» MOVE STR2A,=C'&&' LOOK FOR & «, t00=0x0036, t01=0x00d0}
0x5548…5556 Head {h00=0x000a, h01=0x0050, text=»FDWR56«, t00=0x0036, t01=0x00f6}
0x5556…556c Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x0036, t01=0x0104}
0x556c…5590 Head {h00=0x0020, h01=0x0050, text=» CBNG DEBIN1,W0,FDWR57 NO & «, t00=0x0036, t01=0x011a}
0x5590…55ac Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN2,DEBIN1 «, t00=0x0036, t01=0x013e}
0x55ac…55dc Head {h00=0x002c, h01=0x0050, text=» MATCH BPOOL(BIN9),DEBIN2,W1,STR2A,W0,W1«, t00=0x0036, t01=0x015a}
0x55dc…55fa Head {h00=0x001a, h01=0x0050, text=» BNOK FDWR56 NOT FOUND«, t00=0x0036, t01=0x018a}
0x55fa…5614 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN15,DEBIN2«, t00=0x0037, t01=0x0018}
0x5614…5626 Head {h00=0x000e, h01=0x0050, text=» B FDWR59 «, t00=0x0037, t01=0x0032}
0x5626…565a Head {h00=0x0030, h01=0x0050, text=»* NORMAL SPLIT, USE COMPLETE AVAILABLE ROOM «, t00=0x0037, t01=0x0044}
0x565a…5668 Head {h00=0x000a, h01=0x0050, text=»FDWR57«, t00=0x0037, t01=0x0078}
0x5668…5680 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN15,BIN4«, t00=0x0037, t01=0x0086}
0x5680…5692 Head {h00=0x000e, h01=0x0050, text=» B FDWR59 «, t00=0x0037, t01=0x009e}
0x5692…56be Head {h00=0x0028, h01=0x0050, text=»* NO OF CHARS, FIT IN AVAILABLE ROOM«, t00=0x0037, t01=0x00b0}
0x56be…56cc Head {h00=0x000a, h01=0x0050, text=»FDWR58«, t00=0x0037, t01=0x00dc}
0x56cc…56f4 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,BIN16 SEND ALL CHARS«, t00=0x0037, t01=0x00ea}
0x56f4…56fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0112}
0x56fe…570c Head {h00=0x000a, h01=0x0050, text=»FDWR59«, t00=0x0037, t01=0x011c}
0x570c…574e Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(BIN10),DEBIN3,BIN15,BPOOL(BIN9),W0 COPY FIRST«, t00=0x0037, t01=0x012a}
0x574e…5788 Head {h00=0x0036, h01=0x0050, text=»* MOVE BLANKS INTO REMAINING PART OF OUTPUT BUFFER«, t00=0x0037, t01=0x016c}
0x5788…57b6 Head {h00=0x002a, h01=0x0050, text=»* BIN4 = NO OF CHARS IN OUTPUT BUFFER «, t00=0x0038, t01=0x0016}
0x57b6…57ce Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN15«, t00=0x0038, t01=0x0044}
0x57ce…57f2 Head {h00=0x0020, h01=0x0050, text=» ADD BIN4,DEBIN3 ADD HEADER «, t00=0x0038, t01=0x005c}
0x57f2…57fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0080}
0x57fc…5818 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x0038, t01=0x008a}
0x5818…583e Head {h00=0x0022, h01=0x0050, text=» SUB DEBIN1,BIN4 NO OF BLANKS «, t00=0x0038, t01=0x00a6}
0x583e…5884 Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,DEBIN1,BPOOL(BIN9),BIN16 MOVE BLANKS «, t00=0x0038, t01=0x00cc}
0x5884…588e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0112}
0x588e…589c Head {h00=0x000a, h01=0x0050, text=»FDWR60«, t00=0x0038, t01=0x011c}
0x589c…58c4 Head {h00=0x0024, h01=0x0050, text=»* INSERT RECORD NO - BCDI21(W5)«, t00=0x0038, t01=0x012a}
0x58c4…58f8 Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W17),W0,FDWR70 SKIP IF LENGTH ZERO«, t00=0x0038, t01=0x0152}
0x58f8…592a Head {h00=0x002e, h01=0x0050, text=» MOVE STRG10A,BCDI21(W5) CONVERT RECORD NO«, t00=0x0038, t01=0x0186}
0x592a…5950 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0039, t01=0x0028}
0x5950…597e Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN1,WORK(W17) FIND START OF NO«, t00=0x0039, t01=0x004e}
0x597e…59bc Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W16),WORK(W17),STRG10A,DEBIN1«, t00=0x0039, t01=0x007c}
0x59bc…59c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ba}
0x59c6…59d4 Head {h00=0x000a, h01=0x0050, text=»FDWR70«, t00=0x0039, t01=0x00c4}
0x59d4…5a00 Head {h00=0x0028, h01=0x0050, text=»* INSERT SEQUENCE NO - BCDI21(W4)«, t00=0x0039, t01=0x00d2}
0x5a00…5a34 Head {h00=0x0030, h01=0x0050, text=» CBE WORK(W19),W0,FDWR80 SKIP IF LENGTH ZERO«, t00=0x0039, t01=0x00fe}
0x5a34…5a68 Head {h00=0x0030, h01=0x0050, text=» MOVE STRG10A,BCDI21(W4) CONVERT SEQUENCE NO«, t00=0x0039, t01=0x0132}
0x5a68…5a8e Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W10 LENGTH FIELD «, t00=0x0039, t01=0x0166}
0x5a8e…5abe Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN1,WORK(W19) FIELD START OF NO «, t00=0x0039, t01=0x018c}
0x5abe…5afc Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN10),WORK(W18),WORK(W19),STRG10A,DEBIN1«, t00=0x003a, t01=0x002c}
0x5afc…5b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006a}
0x5b06…5b14 Head {h00=0x000a, h01=0x0050, text=»FDWR80«, t00=0x003a, t01=0x0074}
0x5b14…5b34 Head {h00=0x001c, h01=0x0050, text=»* HANDLE END OF RECORD «, t00=0x003a, t01=0x0082}
0x5b34…5b6a Head {h00=0x0032, h01=0x0050, text=» CBG BIN16,BIN15,FDWR100 NO ROOM, CONTINUATION«, t00=0x003a, t01=0x00a2}
0x5b6a…5b80 Head {h00=0x0012, h01=0x0050, text=»* INSERT EOR «, t00=0x003a, t01=0x00d8}
0x5b80…5ba4 Head {h00=0x0020, h01=0x0050, text=» MOVE STR2A,=X'7F' EOR CHAR «, t00=0x003a, t01=0x00ee}
0x5ba4…5bdc Head {h00=0x0034, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1 INSERT EOR «, t00=0x003a, t01=0x0112}
0x5bdc…5bf0 Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x003a, t01=0x014a}
0x5bf0…5bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015e}
0x5bfa…5c0a Head {h00=0x000c, h01=0x0050, text=»FDWR100 «, t00=0x003a, t01=0x0168}
0x5c0a…5c36 Head {h00=0x0028, h01=0x0050, text=»* CHECK IF CONTINUATION CHAR NEEDED«, t00=0x003a, t01=0x0178}
0x5c36…5c50 Head {h00=0x0016, h01=0x0050, text=» TBF BCONT,FDWR150«, t00=0x003b, t01=0x0014}
0x5c50…5c68 Head {h00=0x0014, h01=0x0050, text=»* CONTINUATION «, t00=0x003b, t01=0x002e}
0x5c68…5c84 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,RECLGD «, t00=0x003b, t01=0x0046}
0x5c84…5ca6 Head {h00=0x001e, h01=0x0050, text=» CBNE BIN4,DEBIN1,FDWR140 «, t00=0x003b, t01=0x0062}
0x5ca6…5cba Head {h00=0x0010, h01=0x0050, text=» SUB BIN4,W1«, t00=0x003b, t01=0x0084}
0x5cba…5cd0 Head {h00=0x0012, h01=0x0050, text=» SUB BIN15,W1 «, t00=0x003b, t01=0x0098}
0x5cd0…5ce0 Head {h00=0x000c, h01=0x0050, text=»FDWR140 «, t00=0x003b, t01=0x00ae}
0x5ce0…5d0c Head {h00=0x0028, h01=0x0050, text=» MOVE STR2A,=X'21' CONTINUATION MARK«, t00=0x003b, t01=0x00be}
0x5d0c…5d38 Head {h00=0x0028, h01=0x0050, text=» XCOPY BPOOL(BIN10),BIN4,W1,STR2A,W1«, t00=0x003b, t01=0x00ea}
0x5d38…5d48 Head {h00=0x000c, h01=0x0050, text=»FDWR150 «, t00=0x003b, t01=0x0116}
0x5d48…5d64 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003b, t01=0x0126}
0x5d64…5d7a Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003b, t01=0x0142}
0x5d7a…5db0 Head {h00=0x0032, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD «, t00=0x003b, t01=0x0158}
0x5db0…5dc6 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003b, t01=0x018e}
0x5dc6…5e00 Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),CWFD,BIN15 DELETE WHAT IS SEND«, t00=0x003c, t01=0x0014}
0x5e00…5e18 Head {h00=0x0014, h01=0x0050, text=» SUB BIN16,BIN15«, t00=0x003c, t01=0x004e}
0x5e18…5e32 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x003c, t01=0x0066}
0x5e32…5e48 Head {h00=0x0012, h01=0x0050, text=» CMP VSEIND,W1«, t00=0x003c, t01=0x0080}
0x5e48…5e70 Head {h00=0x0024, h01=0x0050, text=» BE FDWR00 WRITE REST OF BUFFER «, t00=0x003c, t01=0x0096}
0x5e70…5e7e Head {h00=0x000a, h01=0x0050, text=» RET 6«, t00=0x003c, t01=0x00be}
0x5e7e…5e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00cc}
0x5e88…5e98 Head {h00=0x000c, h01=0x0050, text=»FDWRBAL «, t00=0x003c, t01=0x00d6}
0x5e98…5ed0 Head {h00=0x0034, h01=0x0050, text=» MOVE BPOOL(BIN10),=X'00' INITIATE OUTPUT BUFFER«, t00=0x003c, t01=0x00e6}
0x5ed0…5ef0 Head {h00=0x001c, h01=0x0050, text=» EDIT BPOOL(BIN9),FFD999«, t00=0x003c, t01=0x011e}
0x5ef0…5f0a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x003c, t01=0x013e}
0x5f0a…5f3c Head {h00=0x002e, h01=0x0050, text=» XCOPY BPOOL(BIN10),W0,BIN4,BPOOL(BIN9),W0«, t00=0x003c, t01=0x0158}
0x5f3c…5f50 Head {h00=0x0010, h01=0x0050, text=» B FDWRSEND «, t00=0x003c, t01=0x018a}
0x5f50…5f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000e}
0x5f5a…5f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0018}
0x5f64…5f74 Head {h00=0x000c, h01=0x0050, text=»FDWRSEND«, t00=0x003d, t01=0x0022}
0x5f74…5f90 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003d, t01=0x0032}
0x5f90…5fa6 Head {h00=0x0012, h01=0x0050, text=» MOVE CWFD,W0 «, t00=0x003d, t01=0x004e}
0x5fa6…5fe8 Head {h00=0x003e, h01=0x0050, text=» CALL FDIO,DSFD,X'06',BPOOL(BIN10),REQFD,CWFD WRITE BLOCKS«, t00=0x003d, t01=0x0064}
0x5fe8…5ff8 Head {h00=0x000c, h01=0x0050, text=»FDWRRET «, t00=0x003d, t01=0x00a6}
0x5ff8…6004 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003d, t01=0x00b6}
0x6004…6012 Head {h00=0x000a, h01=0x0050, text=»FDWR20«, t00=0x003d, t01=0x00c2}
0x6012…6020 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x003d, t01=0x00d0}
0x6020…602e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003d, t01=0x00de}
0x602e…603c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00ec}
0x603c…6046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fa}
0x6046…606a Head {h00=0x0020, h01=0x0050, text=»* FDLOAD LOAD FD PROCEDURE «, t00=0x003d, t01=0x0104}
0x606a…6074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0128}
0x6074…607c Head {h00=0x0004, h01=0x0050, t00=0x003d, t01=0x0132}
0x607c…6084 Head {h00=0x0004, h01=0x0050, t00=0x003d, t01=0x013a}
0x6084…6098 Head {h00=0x0010, h01=0x0050, text=»FDLOAD PROC «, t00=0x003d, t01=0x0142}
0x6098…60b8 Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x003d, t01=0x0156}
0x60b8…60d4 Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003d, t01=0x0176}
0x60d4…610e (62, 0, 400) Head {h00=0x0036, h01=0x0050, text=» CALL FDIO,DSFD,X'B7',BPOOL(BIN10),REQFD,CWFD LOAD«, t00=0x003e, t01=0x0004}
0x610e…6126 Head {h00=0x0014, h01=0x0050, text=» XSTAT DSFD,BIN4«, t00=0x003e, t01=0x003e}
0x6126…6146 Head {h00=0x001c, h01=0x0050, text=» CALL TESTB,BIN4,W5 IBM «, t00=0x003e, t01=0x0056}
0x6146…6158 Head {h00=0x000e, h01=0x0050, text=» BZ FDLOA2«, t00=0x003e, t01=0x0076}
0x6158…6174 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN7,=X'000F' «, t00=0x003e, t01=0x0088}
0x6174…6190 Head {h00=0x0018, h01=0x0050, text=» CALL MASK,BIN4,BIN7«, t00=0x003e, t01=0x00a4}
0x6190…61a4 Head {h00=0x0010, h01=0x0050, text=» BNOK FDLOA2«, t00=0x003e, t01=0x00c0}
0x61a4…61b0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003e, t01=0x00d4}
0x61b0…61be Head {h00=0x000a, h01=0x0050, text=»FDLOA2«, t00=0x003e, t01=0x00e0}
0x61be…61de Head {h00=0x001c, h01=0x0050, text=» MOVE CWFD,W7 HDR RECORD«, t00=0x003e, t01=0x00ee}
0x61de…61fa Head {h00=0x0018, h01=0x0050, text=» MOVE REQFD,=W'128' «, t00=0x003e, t01=0x010e}
0x61fa…6236 Head {h00=0x0038, h01=0x0050, text=» CALL FDIO,DSFD,X'B8',BPOOL(BIN10),REQFD,CWFD UNLOAD«, t00=0x003e, t01=0x012a}
0x6236…6244 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x003e, t01=0x0166}
0x6244…6252 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003e, t01=0x0174}
0x6252…6260 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0182}
0x6260…626a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0190}
0x626a…62a6 Head {h00=0x0038, h01=0x0050, text=»* CONVERSI0N OF DATA ENTRY RECORDS TO BPOOL BUFFER «, t00=0x003f, t01=0x000a}
0x62a6…62c8 Head {h00=0x001e, h01=0x0050, text=»* RET =RECORD CONVERTED«, t00=0x003f, t01=0x0046}
0x62c8…62e2 Head {h00=0x0016, h01=0x0050, text=»* RET 2 =TRANSMIT«, t00=0x003f, t01=0x0068}
0x62e2…630c Head {h00=0x0026, h01=0x0050, text=»* RET 4 =CUMPULSORY FIELD EMPTHY «, t00=0x003f, t01=0x0082}
0x630c…6330 Head {h00=0x0020, h01=0x0050, text=»* RET 6 =BCD-FIELD OVERFLOW«, t00=0x003f, t01=0x00ac}
0x6330…6356 Head {h00=0x0022, h01=0x0050, text=»* RET 8 =EDIT BUFFER OVERFLOW«, t00=0x003f, t01=0x00d0}
0x6356…6360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f6}
0x6360…6388 Head {h00=0x0024, h01=0x0050, text=»* APPL = FIELD INTO BUFFER «, t00=0x003f, t01=0x0100}
0x6388…63c0 Head {h00=0x0034, h01=0x0050, text=»* APPL = 1 FIELD INTO BUFFER, TRANSMIT BLOCK «, t00=0x003f, t01=0x0128}
0x63c0…63e8 Head {h00=0x0024, h01=0x0050, text=»* APPL = 2 NO TRANSMIT FIELD «, t00=0x003f, t01=0x0160}
0x63e8…642e Head {h00=0x0042, h01=0x0050, text=»* APPL = 3 SUPPRESS LEADING ZEROES (IF HEADER:SETR GENEREL)«, t00=0x003f, t01=0x0188}
0x642e…6472 Head {h00=0x0040, h01=0x0050, text=»* APPL = 4 LENGTH OF FIELD=MAXL (IF HEADER: SET GENERAL) «, t00=0x0040, t01=0x003e}
0x6472…6498 Head {h00=0x0022, h01=0x0050, text=»* LISTE: ALWAYS SET «, t00=0x0040, t01=0x0082}
0x6498…64ca Head {h00=0x002e, h01=0x0050, text=»* FOLLOWING APPL ONLY USED IN BATCHHEADER«, t00=0x0040, t01=0x00a8}
0x64ca…64fe Head {h00=0x0030, h01=0x0050, text=»* APPL = 13 EOR-CHAR AS END OF EACH RECORD«, t00=0x0040, t01=0x00da}
0x64fe…6526 Head {h00=0x0024, h01=0x0050, text=»* LISTE: ALWAYS CLEAR «, t00=0x0040, t01=0x010e}
0x6526…6574 Head {h00=0x004a, h01=0x0050, text=»* APPL = 14 CONT-CHAR IN END OF EACH DATA RECORD WHICH IS CONTINUED «, t00=0x0040, t01=0x0136}
0x6574…659e Head {h00=0x0026, h01=0x0050, text=»* LISTE: ALWAYS CLEAR«, t00=0x0040, t01=0x0184}
0x659e…65d2 Head {h00=0x0030, h01=0x0050, text=»* APPL = 15 INSERT BACHNAME IN THIS FIELD «, t00=0x0041, t01=0x001e}
0x65d2…660e Head {h00=0x0038, h01=0x0050, text=»* APPL = 16 FIELDS (STARTING WITH &) ARE NOT SPLIT«, t00=0x0041, t01=0x0052}
0x660e…6638 Head {h00=0x0026, h01=0x0050, text=»* LSTE: ALWAYS CLEAR «, t00=0x0041, t01=0x008e}
0x6638…6642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b8}
0x6642…6676 Head {h00=0x0030, h01=0x0050, text=»* APPL = 1XXX XXX=LENGTH OF RECORD HEADER«, t00=0x0041, t01=0x00c2}
0x6676…66b4 Head {h00=0x003a, h01=0x0050, text=»* APPL = 2XXX THIS FIELD IS THE RECORD NUMBER FIELD«, t00=0x0041, t01=0x00f6}
0x66b4…6702 Head {h00=0x004a, h01=0x0050, text=»* APPL = 3XXX THIS FIELD IS THE CONTINUATION SEQUENCE NUMBER FIELD «, t00=0x0041, t01=0x0134}
0x6702…670c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0182}
0x670c…6728 Head {h00=0x0018, h01=0x0050, text=»* BIN4 = WORK ITEM «, t00=0x0041, t01=0x018c}
0x6728…6744 Head {h00=0x0018, h01=0x0050, text=»* BIN7 = MAX LENGTH«, t00=0x0042, t01=0x0018}
0x6744…6762 Head {h00=0x001a, h01=0x0050, text=»* BIN8 = FIELD NUMBER«, t00=0x0042, t01=0x0034}
0x6762…6788 Head {h00=0x0022, h01=0x0050, text=»* BIN9 = INDEX TO EDIT BUFFER«, t00=0x0042, t01=0x0052}
0x6788…67ae Head {h00=0x0022, h01=0x0050, text=»* BIN13= DELETE START POINTER«, t00=0x0042, t01=0x0078}
0x67ae…67cc Head {h00=0x001a, h01=0x0050, text=»* BIN16= EDIT POINTER«, t00=0x0042, t01=0x009e}
0x67cc…67d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00bc}
0x67d6…680e Head {h00=0x0034, h01=0x0050, text=»* BIN15 = NO OF CHAR INSERTED IN OUTPUT RECORD «, t00=0x0042, t01=0x00c6}
0x680e…684a Head {h00=0x0038, h01=0x0050, text=»* STRG10A = WORK STRING FOR DATE/TIME/CONVERTED BCD«, t00=0x0042, t01=0x00fe}
0x684a…6872 Head {h00=0x0024, h01=0x0050, text=»* WORK(W15) = LENGTH OF HEADER «, t00=0x0042, t01=0x013a}
0x6872…68a0 Head {h00=0x002a, h01=0x0050, text=»* WORK(W16) = RECORD NUMBER POSITION «, t00=0x0042, t01=0x0162}
0x68a0…68cc Head {h00=0x0028, h01=0x0050, text=»* WORK(W17) = RECORD NUMBER LENGTH «, t00=0x0042, t01=0x0190}
0x68cc…6902 Head {h00=0x0032, h01=0x0050, text=»* WORK(W18) = CONTINUATION SEQUENCE POSITION «, t00=0x0043, t01=0x002c}
0x6902…6936 Head {h00=0x0030, h01=0x0050, text=»* WORD(W19) = CONTINUATION SEQUENCE LENGTH «, t00=0x0043, t01=0x0062}
0x6936…696a Head {h00=0x0030, h01=0x0050, text=»* BCDI21(W4) = CONTINUATION SEQUENCE NUMBER«, t00=0x0043, t01=0x0096}
0x696a…6990 Head {h00=0x0022, h01=0x0050, text=»* BCDI21(W5) = RECORD NUMBER «, t00=0x0043, t01=0x00ca}
0x6990…699a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00f0}
0x699a…69b0 Head {h00=0x0012, h01=0x0050, text=»CONV PROC CONT«, t00=0x0043, t01=0x00fa}
0x69b0…69cc Head {h00=0x0018, h01=0x0050, text=» CBG CONT,W0,CON100 «, t00=0x0043, t01=0x0110}
0x69cc…69da Head {h00=0x000a, h01=0x0050, text=»CON090«, t00=0x0043, t01=0x012c}
0x69da…69fa Head {h00=0x001c, h01=0x0050, text=» MOVE BPOOL(BIN9),=X'20'«, t00=0x0043, t01=0x013a}
0x69fa…6a2a Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W4),=D'0' RESET SEQUENCE NO«, t00=0x0043, t01=0x015a}
0x6a2a…6a56 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,W0 RESET DELETE POINTER «, t00=0x0043, t01=0x018a}
0x6a56…6a82 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,BIN13 LOAD EDIT POINTER «, t00=0x0044, t01=0x0026}
0x6a82…6a90 Head {h00=0x000a, h01=0x0050, text=»CON100«, t00=0x0044, t01=0x0052}
0x6a90…6aa4 Head {h00=0x0010, h01=0x0050, text=» CLEAR FSUPR«, t00=0x0044, t01=0x0060}
0x6aa4…6abe Head {h00=0x0016, h01=0x0050, text=» TBF BSUPR,CON105 «, t00=0x0044, t01=0x0074}
0x6abe…6ad0 Head {h00=0x000e, h01=0x0050, text=» SET FSUPR«, t00=0x0044, t01=0x008e}
0x6ad0…6ade Head {h00=0x000a, h01=0x0050, text=»CON105«, t00=0x0044, t01=0x00a0}
0x6ade…6b06 Head {h00=0x0024, h01=0x0050, text=» ADD BIN8,W1 UPDATE FIELD NUMBER«, t00=0x0044, t01=0x00ae}
0x6b06…6b2c Head {h00=0x0022, h01=0x0050, text=» CALL GETFWD,BIN7,2,BIN8,BIN4 «, t00=0x0044, t01=0x00d6}
0x6b2c…6b46 Head {h00=0x0016, h01=0x0050, text=» CALL ADJUST,BIN7 «, t00=0x0044, t01=0x00fc}
0x6b46…6b5a Head {h00=0x0010, h01=0x0050, text=» BOK CON130 «, t00=0x0044, t01=0x0116}
0x6b5a…6b7c Head {h00=0x001e, h01=0x0050, text=» BN CONRET ALL FIELD DONE «, t00=0x0044, t01=0x012a}
0x6b7c…6ba6 Head {h00=0x0026, h01=0x0050, text=» B CONER1 COMPULSORY FIELD EMPTHY «, t00=0x0044, t01=0x014c}
0x6ba6…6bb4 Head {h00=0x000a, h01=0x0050, text=»CON130«, t00=0x0044, t01=0x0176}
0x6bb4…6bd6 Head {h00=0x001e, h01=0x0050, text=» GETCTL 0,VSEIND GET APPL «, t00=0x0044, t01=0x0184}
0x6bd6…6be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0016}
0x6be0…6c16 Head {h00=0x0032, h01=0x0050, text=» CBL VSEIND,=W'1000',CON131 NORMAL APPL VALUE «, t00=0x0045, t01=0x0020}
0x6c16…6c50 Head {h00=0x0036, h01=0x0050, text=» CBL VSEIND,=W'2000',APL1000 HANDLE RECORD HEADER «, t00=0x0045, t01=0x0056}
0x6c50…6c86 Head {h00=0x0032, h01=0x0050, text=» CBL VSEIND,=W'3000',APL2000 HANDLE RECORD NO «, t00=0x0045, t01=0x0090}
0x6c86…6cbe Head {h00=0x0034, h01=0x0050, text=» CBL VSEIND,=W'4000',APL3000 HANDLE SEQUENCE NO «, t00=0x0045, t01=0x00c6}
0x6cbe…6ce6 Head {h00=0x0024, h01=0x0050, text=» MOVE VSEIND,W2 CLEAR ERROR APPL«, t00=0x0045, t01=0x00fe}
0x6ce6…6cf8 Head {h00=0x000e, h01=0x0050, text=» B CON131 «, t00=0x0045, t01=0x0126}
0x6cf8…6d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0138}
0x6d02…6d22 Head {h00=0x001c, h01=0x0050, text=»* HANDLE RECORD HEADER:«, t00=0x0045, t01=0x0142}
0x6d22…6d5a Head {h00=0x0034, h01=0x0050, text=»* APPL=1000, WHERE XXX=LENGTH OF RECORD HEADER «, t00=0x0045, t01=0x0162}
0x6d5a…6d6a Head {h00=0x000c, h01=0x0050, text=»APL1000 «, t00=0x0046, t01=0x000a}
0x6d6a…6d86 Head {h00=0x0018, h01=0x0050, text=» SUB VSEIND,=W'1000'«, t00=0x0046, t01=0x001a}
0x6d86…6dc2 Head {h00=0x0038, h01=0x0050, text=» MOVE WORK(W15),VSEIND WORK(W15) = LENGTH OF HEADER «, t00=0x0046, t01=0x0036}
0x6dc2…6dd4 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x0046, t01=0x0072}
0x6dd4…6dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0084}
0x6dde…6e10 Head {h00=0x002e, h01=0x0050, text=»* HANDLE POSITION AND LENGTH OF RECORD NO«, t00=0x0046, t01=0x008e}
0x6e10…6e20 Head {h00=0x000c, h01=0x0050, text=»APL2000 «, t00=0x0046, t01=0x00c0}
0x6e20…6e58 Head {h00=0x0034, h01=0x0050, text=» MOVE WORK(W16),BIN16 SET START POS OF RECORD NO«, t00=0x0046, t01=0x00d0}
0x6e58…6e80 Head {h00=0x0024, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL OF FIELD«, t00=0x0046, t01=0x0108}
0x6e80…6eb4 Head {h00=0x0030, h01=0x0050, text=» MOVE WORK(W17),BIN7 SET LENGTH OF RECORD NO«, t00=0x0046, t01=0x0130}
0x6eb4…6ee2 Head {h00=0x002a, h01=0x0050, text=» SUB VSEIND,=W'2000' ADJUST APPL VALUE«, t00=0x0046, t01=0x0164}
0x6ee2…6f04 (71, 0, 400) Head {h00=0x001e, h01=0x0050, text=» B CON131 FURTHER HANDLING«, t00=0x0047, t01=0x0004}
0x6f04…6f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0026}
0x6f0e…6f42 Head {h00=0x0030, h01=0x0050, text=»* HANDLE POSITION AND LENGTH OF SEQUENCE NO«, t00=0x0047, t01=0x0030}
0x6f42…6f52 Head {h00=0x000c, h01=0x0050, text=»APL3000 «, t00=0x0047, t01=0x0064}
0x6f52…6f92 Head {h00=0x003c, h01=0x0050, text=» MOVE WORK(W18),BIN16 SET START POSITION OF SEQUENCE NO «, t00=0x0047, t01=0x0074}
0x6f92…6fba Head {h00=0x0024, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL OF FIELD«, t00=0x0047, t01=0x00b4}
0x6fba…6ff0 Head {h00=0x0032, h01=0x0050, text=» MOVE WORK(W19),BIN7 SET LENGTH OF SEQUENCE NO«, t00=0x0047, t01=0x00dc}
0x6ff0…701e Head {h00=0x002a, h01=0x0050, text=» SUB VSEIND,=W'3000' ADJUST APPL VALUE«, t00=0x0047, t01=0x0112}
0x701e…7040 Head {h00=0x001e, h01=0x0050, text=» B CON131 FURTHER HANDLING«, t00=0x0047, t01=0x0140}
0x7040…704a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0162}
0x704a…7054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016c}
0x7054…7062 Head {h00=0x000a, h01=0x0050, text=»CON131«, t00=0x0047, t01=0x0176}
0x7062…706c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0184}
0x706c…708a Head {h00=0x001a, h01=0x0050, text=» CBNE BTYPE,W3,CON150 «, t00=0x0047, t01=0x018e}
0x708a…70a4 Head {h00=0x0016, h01=0x0050, text=»* DATA RECORD «, t00=0x0048, t01=0x001c}
0x70a4…70d2 Head {h00=0x002a, h01=0x0050, text=» IB VSEIND,CON132,CON100,CON135,CON140«, t00=0x0048, t01=0x0036}
0x70d2…70e0 Head {h00=0x000a, h01=0x0050, text=»CON132«, t00=0x0048, t01=0x0064}
0x70e0…70f2 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0048, t01=0x0072}
0x70f2…70fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0084}
0x70fc…710a Head {h00=0x000a, h01=0x0050, text=»CON135«, t00=0x0048, t01=0x008e}
0x710a…712c Head {h00=0x001e, h01=0x0050, text=»* SUPPRESS LEADING ZEROES«, t00=0x0048, t01=0x009c}
0x712c…713e Head {h00=0x000e, h01=0x0050, text=» SET FSUPR«, t00=0x0048, t01=0x00be}
0x713e…7150 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0048, t01=0x00d0}
0x7150…715a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e2}
0x715a…7168 Head {h00=0x000a, h01=0x0050, text=»CON140«, t00=0x0048, t01=0x00ec}
0x7168…7182 Head {h00=0x0016, h01=0x0050, text=»* NO SUPPRESSION «, t00=0x0048, t01=0x00fa}
0x7182…7196 Head {h00=0x0010, h01=0x0050, text=» CLEAR FSUPR«, t00=0x0048, t01=0x0114}
0x7196…71a8 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0048, t01=0x0128}
0x71a8…71b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x013a}
0x71b2…71bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0144}
0x71bc…71ca Head {h00=0x000a, h01=0x0050, text=»CON150«, t00=0x0048, t01=0x014e}
0x71ca…71f6 Head {h00=0x0028, h01=0x0050, text=»* IN HEADER, SET GENERAL CONDITIONS«, t00=0x0048, t01=0x015c}
0x71f6…7230 Head {h00=0x0036, h01=0x0050, text=» IB VSEIND,CON152,CON100,CON155,CON160,CON152, C «, t00=0x0048, t01=0x0188}
0x7230…7260 Head {h00=0x002c, h01=0x0050, text=» CON152,CON152,CON152,CON152,CON152, C«, t00=0x0049, t01=0x0032}
0x7260…7294 Head {h00=0x0030, h01=0x0050, text=» CON152,CON152,CON165,CON170,CON175,CON180 «, t00=0x0049, t01=0x0062}
0x7294…72a2 Head {h00=0x000a, h01=0x0050, text=»CON152«, t00=0x0049, t01=0x0096}
0x72a2…72b4 Head {h00=0x000e, h01=0x0050, text=» B CON190 «, t00=0x0049, t01=0x00a4}
0x72b4…72be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00b6}
0x72be…72cc Head {h00=0x000a, h01=0x0050, text=»CON155«, t00=0x0049, t01=0x00c0}
0x72cc…72f8 Head {h00=0x0028, h01=0x0050, text=»* GENERAL SUPPRESS LEADING ZEROES «, t00=0x0049, t01=0x00ce}
0x72f8…730a Head {h00=0x000e, h01=0x0050, text=» SET BSUPR«, t00=0x0049, t01=0x00fa}
0x730a…731c Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x0049, t01=0x010c}
0x731c…7326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x011e}
0x7326…7334 Head {h00=0x000a, h01=0x0050, text=»CON160«, t00=0x0049, t01=0x0128}
0x7334…7356 Head {h00=0x001e, h01=0x0050, text=»* GENERAL NO SUPPRESSION «, t00=0x0049, t01=0x0136}
0x7356…7382 Head {h00=0x0028, h01=0x0050, text=» CBE FC,W9,CON100 LISTE: ALWAYS SET «, t00=0x0049, t01=0x0158}
0x7382…7396 Head {h00=0x0010, h01=0x0050, text=» CLEAR BSUPR«, t00=0x0049, t01=0x0184}
0x7396…73a8 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x0008}
0x73a8…73b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x001a}
0x73b2…73c0 Head {h00=0x000a, h01=0x0050, text=»CON165«, t00=0x004a, t01=0x0024}
0x73c0…73d8 Head {h00=0x0014, h01=0x0050, text=»* EOR CHARACTER «, t00=0x004a, t01=0x0032}
0x73d8…73ea Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x004a}
0x73ea…73f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x005c}
0x73f4…7402 Head {h00=0x000a, h01=0x0050, text=»CON170«, t00=0x004a, t01=0x0066}
0x7402…7422 Head {h00=0x001c, h01=0x0050, text=»* CONTINUATION CHARACTER«, t00=0x004a, t01=0x0074}
0x7422…7450 Head {h00=0x002a, h01=0x0050, text=» CBE FC,W9,CON100 LISTE: ALWAYS CLEAR «, t00=0x004a, t01=0x0094}
0x7450…747e Head {h00=0x002a, h01=0x0050, text=» SET BCONT INDICATE CONT. CHAR NEEDED «, t00=0x004a, t01=0x00c2}
0x747e…7490 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004a, t01=0x00f0}
0x7490…749a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0102}
0x749a…74a8 Head {h00=0x000a, h01=0x0050, text=»CON175«, t00=0x004a, t01=0x010c}
0x74a8…74c4 Head {h00=0x0018, h01=0x0050, text=»* INSERT BATCH NAME«, t00=0x004a, t01=0x011a}
0x74c4…74da Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W6 «, t00=0x004a, t01=0x0136}
0x74da…74f2 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,W188 «, t00=0x004a, t01=0x014c}
0x74f2…7516 Head {h00=0x0020, h01=0x0050, text=» SUB BIN4,BIN7 LENGTH FIELD «, t00=0x004a, t01=0x0164}
0x7516…752e Head {h00=0x0014, h01=0x0050, text=» SUB BIN4,BIN16 «, t00=0x004a, t01=0x0188}
0x752e…7568 Head {h00=0x0036, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FMTBATCH INSERT BATCHNAME«, t00=0x004b, t01=0x0010}
0x7568…757a Head {h00=0x000e, h01=0x0050, text=» B CON260 «, t00=0x004b, t01=0x004a}
0x757a…7584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x005c}
0x7584…7592 Head {h00=0x000a, h01=0x0050, text=»CON180«, t00=0x004b, t01=0x0066}
0x7592…75c2 Head {h00=0x002c, h01=0x0050, text=»* FIELDS (STARTING WITH &) ARE NOT SPLIT«, t00=0x004b, t01=0x0074}
0x75c2…75ea Head {h00=0x0024, h01=0x0050, text=» CLEAR SPLITFL NOT NORMAL SPLIT «, t00=0x004b, t01=0x00a4}
0x75ea…75fc Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x004b, t01=0x00cc}
0x75fc…7606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00de}
0x7606…7610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e8}
0x7610…7618 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x00f2}
0x7618…7626 Head {h00=0x000a, h01=0x0050, text=»CON190«, t00=0x004b, t01=0x00fa}
0x7626…765a Head {h00=0x0030, h01=0x0050, text=» CBE FC,W9,CON195 LISTE: ALL FIELDS INCLUDED«, t00=0x004b, t01=0x0108}
0x765a…7674 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON195 «, t00=0x004b, t01=0x013c}
0x7674…76a0 Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,:FMTITEM TEST IF EMPTY «, t00=0x004b, t01=0x0156}
0x76a0…76c8 Head {h00=0x0024, h01=0x0050, text=» BNZ CON280 EMPTY, IGNORE FIELD «, t00=0x004b, t01=0x0182}
0x76c8…76d6 Head {h00=0x000a, h01=0x0050, text=»CON195«, t00=0x004c, t01=0x001a}
0x76d6…76f6 Head {h00=0x001c, h01=0x0050, text=» GETCTL 1,BIN7 GET MAXL «, t00=0x004c, t01=0x0028}
0x76f6…7714 Head {h00=0x001a, h01=0x0050, text=» TSTCTL 0 TEST - ALPHA«, t00=0x004c, t01=0x0048}
0x7714…772a Head {h00=0x0012, h01=0x0050, text=» BZ CON200 BCD«, t00=0x004c, t01=0x0066}
0x772a…7732 Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x007c}
0x7732…7742 Head {h00=0x000c, h01=0x0050, text=»* ALPHA «, t00=0x004c, t01=0x0084}
0x7742…774a Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0094}
0x774a…7778 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W188 GET EDIT BUFFER LENGTH«, t00=0x004c, t01=0x009c}
0x7778…77a6 Head {h00=0x002a, h01=0x0050, text=» SUB BIN4,BIN7 ADJUST WITH MAX LENGTH «, t00=0x004c, t01=0x00ca}
0x77a6…77d6 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,BIN16 ADJUST WITH EDIT POINTER«, t00=0x004c, t01=0x00f8}
0x77d6…77e8 Head {h00=0x000e, h01=0x0050, text=» BN CONER3«, t00=0x004c, t01=0x0128}
0x77e8…7810 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMALP «, t00=0x004c, t01=0x013a}
0x7810…7822 Head {h00=0x000e, h01=0x0050, text=» B CON260 «, t00=0x004c, t01=0x0162}
0x7822…782a Head {h00=0x0004, h01=0x0050, t00=0x004c, t01=0x0174}
0x782a…7838 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x017c}
0x7838…7846 Head {h00=0x000a, h01=0x0050, text=»* BCD «, t00=0x004c, t01=0x018a}
0x7846…784e Head {h00=0x0004, h01=0x0050, t00=0x004d, t01=0x0008}
0x784e…785c Head {h00=0x000a, h01=0x0050, text=»CON200«, t00=0x004d, t01=0x0010}
0x785c…7886 Head {h00=0x0026, h01=0x0050, text=» CBG BIN7,W21,CONER2 BCD-OVERFLOW «, t00=0x004d, t01=0x001e}
0x7886…78b4 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W188 GET EDIT BUFFER LENGTH«, t00=0x004d, t01=0x0048}
0x78b4…78e2 Head {h00=0x002a, h01=0x0050, text=» SUB BIN4,BIN7 ADJUST WITH MAX LENGTH «, t00=0x004d, t01=0x0076}
0x78e2…7912 Head {h00=0x002c, h01=0x0050, text=» SUB BIN4,BIN16 ADJUST WITH EDIT POINTER«, t00=0x004d, t01=0x00a4}
0x7912…7924 Head {h00=0x000e, h01=0x0050, text=» BN CONER3«, t00=0x004d, t01=0x00d4}
0x7924…7944 Head {h00=0x001c, h01=0x0050, text=» GETCTL 3,BIN4 GET SCHK «, t00=0x004d, t01=0x00e6}
0x7944…7966 Head {h00=0x001e, h01=0x0050, text=» CALL TESTB,BIN4,W15 SIGN «, t00=0x004d, t01=0x0106}
0x7966…797c Head {h00=0x0012, h01=0x0050, text=» BZ CON220 NO «, t00=0x004d, t01=0x0128}
0x797c…7996 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON210 «, t00=0x004d, t01=0x013e}
0x7996…79b0 Head {h00=0x0016, h01=0x0050, text=» CBE FC,W9,CON205 «, t00=0x004d, t01=0x0158}
0x79b0…79d8 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMTCS «, t00=0x004d, t01=0x0172}
0x79d8…79f2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x004e, t01=0x000a}
0x79f2…7a04 Head {h00=0x000e, h01=0x0050, text=» B CON280 «, t00=0x004e, t01=0x0024}
0x7a04…7a1e Head {h00=0x0016, h01=0x0050, text=»CON205 IF LISTE «, t00=0x004e, t01=0x0036}
0x7a1e…7a54 Head {h00=0x0032, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMZCD EDIT 21 DIGITS«, t00=0x004e, t01=0x0050}
0x7a54…7a66 Head {h00=0x000e, h01=0x0050, text=» B CON215 «, t00=0x004e, t01=0x0086}
0x7a66…7a74 Head {h00=0x000a, h01=0x0050, text=»CON210«, t00=0x004e, t01=0x0098}
0x7a74…7aaa Head {h00=0x0032, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMBCS EDIT 21 DIGITS«, t00=0x004e, t01=0x00a6}
0x7aaa…7ab8 Head {h00=0x000a, h01=0x0050, text=»CON215«, t00=0x004e, t01=0x00dc}
0x7ab8…7ae2 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,W22 SET PICTURE LENGTH «, t00=0x004e, t01=0x00ea}
0x7ae2…7b0e Head {h00=0x0028, h01=0x0050, text=» ADD BIN7,W1 ADJUST POINTER FOR SIGN«, t00=0x004e, t01=0x0114}
0x7b0e…7b20 Head {h00=0x000e, h01=0x0050, text=» B CON250 «, t00=0x004e, t01=0x0140}
0x7b20…7b2e Head {h00=0x000a, h01=0x0050, text=»CON220«, t00=0x004e, t01=0x0152}
0x7b2e…7b48 Head {h00=0x0016, h01=0x0050, text=» TBF FSUPR,CON230 «, t00=0x004e, t01=0x0160}
0x7b48…7b62 Head {h00=0x0016, h01=0x0050, text=» CBE FC,W9,CON225 «, t00=0x004e, t01=0x017a}
0x7b62…7b8a (79, 0, 398) Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMTCD «, t00=0x004f, t01=0x0004}
0x7b8a…7ba4 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x004f, t01=0x002c}
0x7ba4…7bb6 Head {h00=0x000e, h01=0x0050, text=» B CON280 «, t00=0x004f, t01=0x0046}
0x7bb6…7bd0 Head {h00=0x0016, h01=0x0050, text=»CON225 IF LISTE «, t00=0x004f, t01=0x0058}
0x7bd0…7bf8 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMZCD «, t00=0x004f, t01=0x0072}
0x7bf8…7c0a Head {h00=0x000e, h01=0x0050, text=» B CON235 «, t00=0x004f, t01=0x009a}
0x7c0a…7c18 Head {h00=0x000a, h01=0x0050, text=»CON230«, t00=0x004f, t01=0x00ac}
0x7c18…7c40 Head {h00=0x0024, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMBCS «, t00=0x004f, t01=0x00ba}
0x7c40…7c4e Head {h00=0x000a, h01=0x0050, text=»CON235«, t00=0x004f, t01=0x00e2}
0x7c4e…7c76 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN4,W21 SET PICUTR LENGTH«, t00=0x004f, t01=0x00f0}
0x7c76…7c84 Head {h00=0x000a, h01=0x0050, text=»CON250«, t00=0x004f, t01=0x0118}
0x7c84…7cac Head {h00=0x0024, h01=0x0050, text=» SUB BIN4,BIN7 SET DELETE LENGTH«, t00=0x004f, t01=0x0126}
0x7cac…7ce6 Head {h00=0x0036, h01=0x0050, text=» DELETE BPOOL(BIN9),BIN13,BIN4 DELETE ADDED ZEROES«, t00=0x004f, t01=0x014e}
0x7ce6…7cf4 Head {h00=0x000a, h01=0x0050, text=»CON260«, t00=0x004f, t01=0x0188}
0x7cf4…7d26 Head {h00=0x002e, h01=0x0050, text=» ADD BIN13,BIN7 ADJUST DELETE/EDIT POINTER«, t00=0x0050, t01=0x0008}
0x7d26…7d52 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,BIN13 LOAD EDIT POINTER «, t00=0x0050, t01=0x003a}
0x7d52…7d60 Head {h00=0x000a, h01=0x0050, text=»CON280«, t00=0x0050, t01=0x0066}
0x7d60…7d7a Head {h00=0x0016, h01=0x0050, text=» CBNE FC,W9,CON290«, t00=0x0050, t01=0x0074}
0x7d7a…7db8 Head {h00=0x003a, h01=0x0050, text=» EDSUB BPOOL(BIN9),BIN16,FRMFILL LISTE: INSERT FILLER «, t00=0x0050, t01=0x008e}
0x7db8…7dd2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,BIN16 «, t00=0x0050, t01=0x00cc}
0x7dd2…7de0 Head {h00=0x000a, h01=0x0050, text=»CON290«, t00=0x0050, t01=0x00e6}
0x7de0…7e0c Head {h00=0x0028, h01=0x0050, text=» CBE VSEIND,W1,CONTRM APPL =1 TRANSM«, t00=0x0050, t01=0x00f4}
0x7e0c…7e26 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,RECLGD «, t00=0x0050, t01=0x0120}
0x7e26…7e44 Head {h00=0x001a, h01=0x0050, text=» CBG BIN16,BIN4,CONTRM«, t00=0x0050, t01=0x013a}
0x7e44…7e56 Head {h00=0x000e, h01=0x0050, text=» B CON100 «, t00=0x0050, t01=0x0158}
0x7e56…7e64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x016a}
0x7e64…7e6c Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0178}
0x7e6c…7e88 Head {h00=0x0018, h01=0x0050, text=»CONRET RET ALL DONE«, t00=0x0050, t01=0x0180}
0x7e88…7eb2 Head {h00=0x0026, h01=0x0050, text=»CONTRM RET 2 WRITE/TRANSMIT BLOCK «, t00=0x0051, t01=0x000c}
0x7eb2…7ede Head {h00=0x0028, h01=0x0050, text=»CONER1 RET 4 CUMPULSORY FIELD EMPTHY«, t00=0x0051, t01=0x0036}
0x7ede…7f06 Head {h00=0x0024, h01=0x0050, text=»CONER2 RET 6 BCD FIELD OVERFLOW «, t00=0x0051, t01=0x0062}
0x7f06…7f30 Head {h00=0x0026, h01=0x0050, text=»CONER3 RET 8 EDIT BUFFER OVERFLOW «, t00=0x0051, t01=0x008a}
0x7f30…7f3e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0051, t01=0x00b4}
0x7f3e…7f4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00c2}
0x7f4c…7f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00d0}
0x7f56…7f68 Head {h00=0x000e, h01=0x0050, text=»* FORMATS «, t00=0x0051, t01=0x00da}
0x7f68…7f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00ec}
0x7f72…7f86 Head {h00=0x0010, h01=0x0050, text=»FRMFILL FRMT«, t00=0x0051, t01=0x00f6}
0x7f86…7f9a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0051, t01=0x010a}
0x7f9a…7fa8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0051, t01=0x011e}
0x7fa8…7fb0 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x012c}
0x7fb0…7fb8 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x0134}
0x7fb8…7fc0 Head {h00=0x0004, h01=0x0050, t00=0x0051, t01=0x013c}
0x7fc0…7fd4 Head {h00=0x0010, h01=0x0050, text=»FCOUNT FRMT «, t00=0x0051, t01=0x0144}
0x7fd4…7fe8 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0051, t01=0x0158}
0x7fe8…8000 Head {h00=0x0014, h01=0x0050, text=» FEOR NEW PAGE «, t00=0x0051, t01=0x016c}
0x8000…8014 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0051, t01=0x0184}
0x8014…802a Head {h00=0x0012, h01=0x0050, text=» FILLR '*',10 «, t00=0x0052, t01=0x0008}
0x802a…8044 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'NUMBER: ' «, t00=0x0052, t01=0x001e}
0x8044…8060 Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',NUMBER «, t00=0x0052, t01=0x0038}
0x8060…806e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0052, t01=0x0054}
0x806e…8082 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0052, t01=0x0062}
0x8082…8090 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0052, t01=0x0076}
0x8090…809e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0052, t01=0x0084}
0x809e…80a6 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0092}
0x80a6…80ba Head {h00=0x0010, h01=0x0050, text=»FRMSOF FRMT «, t00=0x0052, t01=0x009a}
0x80ba…80c6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0052, t01=0x00ae}
0x80c6…80dc Head {h00=0x0012, h01=0x0050, text=» FCOPY =X'1D' «, t00=0x0052, t01=0x00ba}
0x80dc…80f2 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x0052, t01=0x00d0}
0x80f2…8108 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x0052, t01=0x00e6}
0x8108…8116 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0052, t01=0x00fc}
0x8116…811e Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x010a}
0x811e…8132 Head {h00=0x0010, h01=0x0050, text=»FRMEOF FRMT «, t00=0x0052, t01=0x0112}
0x8132…813e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0052, t01=0x0126}
0x813e…8154 Head {h00=0x0012, h01=0x0050, text=» FCOPY =X'19' «, t00=0x0052, t01=0x0132}
0x8154…816a Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x0052, t01=0x0148}
0x816a…8180 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x0052, t01=0x015e}
0x8180…818e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0052, t01=0x0174}
0x818e…8196 Head {h00=0x0004, h01=0x0050, t00=0x0052, t01=0x0182}
0x8196…81aa Head {h00=0x0010, h01=0x0050, text=»FRMC01 FRMT «, t00=0x0052, t01=0x018a}
0x81aa…81b6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0053, t01=0x000e}
0x81b6…81cc Head {h00=0x0012, h01=0x0050, text=» FLINK FFD001 «, t00=0x0053, t01=0x001a}
0x81cc…81da Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x0030}
0x81da…81e2 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x003e}
0x81e2…81f6 Head {h00=0x0010, h01=0x0050, text=»FRMVOL1 FRMT«, t00=0x0053, t01=0x0046}
0x81f6…820a Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8A«, t00=0x0053, t01=0x005a}
0x820a…8218 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x006e}
0x8218…822c Head {h00=0x0010, h01=0x0050, text=»FRMVOL2 FRMT«, t00=0x0053, t01=0x007c}
0x822c…8248 Head {h00=0x0018, h01=0x0050, text=» FMEL '999999',DATE «, t00=0x0053, t01=0x0090}
0x8248…8256 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x00ac}
0x8256…826a Head {h00=0x0010, h01=0x0050, text=»FRMVOL3 FRMT«, t00=0x0053, t01=0x00ba}
0x826a…8282 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',FDCNT«, t00=0x0053, t01=0x00ce}
0x8282…8290 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x00e6}
0x8290…8298 Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x00f4}
0x8298…82ac Head {h00=0x0010, h01=0x0050, text=»FBATC1 FRMT «, t00=0x0053, t01=0x00fc}
0x82ac…82c2 Head {h00=0x0012, h01=0x0050, text=» FLINK FBATCH «, t00=0x0053, t01=0x0110}
0x82c2…82de Head {h00=0x0018, h01=0x0050, text=» FTEXT 'EJ AVST[MD' «, t00=0x0053, t01=0x0126}
0x82de…82ec Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0053, t01=0x0142}
0x82ec…82f8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0053, t01=0x0150}
0x82f8…8306 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0053, t01=0x015c}
0x8306…830e Head {h00=0x0004, h01=0x0050, t00=0x0053, t01=0x016a}
0x830e…8322 Head {h00=0x0010, h01=0x0050, text=»FBATC2 FRMT «, t00=0x0053, t01=0x0172}
0x8322…8338 Head {h00=0x0012, h01=0x0050, text=» FLINK FBATCH «, t00=0x0053, t01=0x0186}
0x8338…8352 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'NUMBER: ' «, t00=0x0054, t01=0x000c}
0x8352…836e Head {h00=0x0018, h01=0x0050, text=» FMEL '9999',BCD13A «, t00=0x0054, t01=0x0026}
0x836e…8382 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0054, t01=0x0042}
0x8382…839e Head {h00=0x0018, h01=0x0050, text=» FTEXT 'MISST[MMER' «, t00=0x0054, t01=0x0056}
0x839e…83ac Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x0072}
0x83ac…83b8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0054, t01=0x0080}
0x83b8…83c6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x008c}
0x83c6…83ce Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x009a}
0x83ce…83e2 Head {h00=0x0010, h01=0x0050, text=»FBATC3 FRMT «, t00=0x0054, t01=0x00a2}
0x83e2…83f8 Head {h00=0x0012, h01=0x0050, text=» FLINK FBATCH «, t00=0x0054, t01=0x00b6}
0x83f8…8414 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'EJ GODKENDT'«, t00=0x0054, t01=0x00cc}
0x8414…8422 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x00e8}
0x8422…8430 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0054, t01=0x00f6}
0x8430…8438 Head {h00=0x0004, h01=0x0050, t00=0x0054, t01=0x0104}
0x8438…844c Head {h00=0x0010, h01=0x0050, text=»FBATCH FRMT «, t00=0x0054, t01=0x010c}
0x844c…8458 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0054, t01=0x0120}
0x8458…8466 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0054, t01=0x012c}
0x8466…8472 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0054, t01=0x013a}
0x8472…848c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'JOBNAME: '«, t00=0x0054, t01=0x0146}
0x848c…84a2 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0054, t01=0x0160}
0x84a2…84b6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0054, t01=0x0176}
0x84b6…84d2 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'BATCHNAME: '«, t00=0x0054, t01=0x018a}
0x84d2…84e6 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0055, t01=0x0016}
0x84e6…84fa Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0055, t01=0x002a}
0x84fa…8508 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x003e}
0x8508…8510 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x004c}
0x8510…8526 Head {h00=0x0012, h01=0x0050, text=»FMTBATCH FRMT «, t00=0x0055, t01=0x0054}
0x8526…853a Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0055, t01=0x006a}
0x853a…8548 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x007e}
0x8548…8550 Head {h00=0x0004, h01=0x0050, t00=0x0055, t01=0x008c}
0x8550…8564 Head {h00=0x0010, h01=0x0050, text=»FDCHDR FRMT «, t00=0x0055, t01=0x0094}
0x8564…8570 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x00a8}
0x8570…857e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x00b4}
0x857e…858a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x00c2}
0x858a…85a4 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'S[NDNING' «, t00=0x0055, t01=0x00ce}
0x85a4…85b6 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0055, t01=0x00e8}
0x85b6…85c4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0055, t01=0x00fa}
0x85c4…85d8 Head {h00=0x0010, h01=0x0050, text=»FDCEND FRMT «, t00=0x0055, t01=0x0108}
0x85d8…85e4 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x011c}
0x85e4…85f2 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x0128}
0x85f2…85fe Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0055, t01=0x0136}
0x85fe…8618 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'S[NDNING' «, t00=0x0055, t01=0x0142}
0x8618…862e Head {h00=0x0012, h01=0x0050, text=» FTEXT ' KLAR'«, t00=0x0055, t01=0x015c}
0x862e…8640 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0055, t01=0x0172}
0x8640…864e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0055, t01=0x0184}
0x864e…865a (86, 0, 400) Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0004}
0x865a…8668 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x0010}
0x8668…8670 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x001e}
0x8670…8684 Head {h00=0x0010, h01=0x0050, text=»FDCERR FRMT «, t00=0x0056, t01=0x0026}
0x8684…8690 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x003a}
0x8690…869e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x0046}
0x869e…86aa Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0054}
0x86aa…86c4 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'S[NDNING' «, t00=0x0056, t01=0x0060}
0x86c4…86de Head {h00=0x0016, h01=0x0050, text=» FTEXT ' AVBRYTS' «, t00=0x0056, t01=0x007a}
0x86de…86f0 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0056, t01=0x0094}
0x86f0…86fe Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x00a6}
0x86fe…870a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x00b4}
0x870a…8718 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x00c0}
0x8718…8720 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x00ce}
0x8720…8734 Head {h00=0x0010, h01=0x0050, text=»FFDHDR FRMT «, t00=0x0056, t01=0x00d6}
0x8734…8740 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x00ea}
0x8740…874e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x00f6}
0x874e…875a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0104}
0x875a…8780 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'FLOPPY DISC SKRIVNING'«, t00=0x0056, t01=0x0110}
0x8780…8792 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0056, t01=0x0136}
0x8792…87a0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0056, t01=0x0148}
0x87a0…87a8 Head {h00=0x0004, h01=0x0050, t00=0x0056, t01=0x0156}
0x87a8…87bc Head {h00=0x0010, h01=0x0050, text=»FFDEND FRMT «, t00=0x0056, t01=0x015e}
0x87bc…87c8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x0172}
0x87c8…87d6 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0056, t01=0x017e}
0x87d6…87e2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0056, t01=0x018c}
0x87e2…8808 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'FLOPPY DISC SKRIVNING'«, t00=0x0057, t01=0x0008}
0x8808…881e Head {h00=0x0012, h01=0x0050, text=» FTEXT ' KLAR'«, t00=0x0057, t01=0x002e}
0x881e…8830 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0057, t01=0x0044}
0x8830…883e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x0056}
0x883e…884a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0064}
0x884a…8858 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x0070}
0x8858…8860 Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x007e}
0x8860…8874 Head {h00=0x0010, h01=0x0050, text=»FFDERR FRMT «, t00=0x0057, t01=0x0086}
0x8874…8880 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x009a}
0x8880…888e Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x00a6}
0x888e…889a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x00b4}
0x889a…88c0 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'FLOPPY DISC SKRIVNING'«, t00=0x0057, t01=0x00c0}
0x88c0…88da Head {h00=0x0016, h01=0x0050, text=» FTEXT ' AFBRYDES'«, t00=0x0057, t01=0x00e6}
0x88da…88ec Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0057, t01=0x0100}
0x88ec…88fa Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x0112}
0x88fa…8906 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0120}
0x8906…8914 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0057, t01=0x012c}
0x8914…891c Head {h00=0x0004, h01=0x0050, t00=0x0057, t01=0x013a}
0x891c…8930 Head {h00=0x0010, h01=0x0050, text=»FLSHDR FRMT «, t00=0x0057, t01=0x0142}
0x8930…893c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0156}
0x893c…894a Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0057, t01=0x0162}
0x894a…8956 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0057, t01=0x0170}
0x8956…8970 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'LISTNING" «, t00=0x0057, t01=0x017c}
0x8970…8982 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0058, t01=0x0008}
0x8982…8990 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0058, t01=0x001a}
0x8990…8998 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0028}
0x8998…89ac Head {h00=0x0010, h01=0x0050, text=»FLSEND FRMT «, t00=0x0058, t01=0x0030}
0x89ac…89b8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x0044}
0x89b8…89c6 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x0050}
0x89c6…89d2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x005e}
0x89d2…89f0 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'LISTNING KLAR'«, t00=0x0058, t01=0x006a}
0x89f0…8a02 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0058, t01=0x0088}
0x8a02…8a10 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x009a}
0x8a10…8a1c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x00a8}
0x8a1c…8a2a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0058, t01=0x00b4}
0x8a2a…8a32 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x00c2}
0x8a32…8a46 Head {h00=0x0010, h01=0x0050, text=»FLSERR FRMT «, t00=0x0058, t01=0x00ca}
0x8a46…8a52 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x00de}
0x8a52…8a60 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x00ea}
0x8a60…8a6c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x00f8}
0x8a6c…8a8e Head {h00=0x001e, h01=0x0050, text=» FTEXT 'LISTNING AFBRYDES'«, t00=0x0058, t01=0x0104}
0x8a8e…8aa0 Head {h00=0x000e, h01=0x0050, text=» FLINK HDR«, t00=0x0058, t01=0x0126}
0x8aa0…8aae Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0058, t01=0x0138}
0x8aae…8aba Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0058, t01=0x0146}
0x8aba…8ac8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0058, t01=0x0152}
0x8ac8…8ad0 Head {h00=0x0004, h01=0x0050, t00=0x0058, t01=0x0160}
0x8ad0…8ae0 Head {h00=0x000c, h01=0x0050, text=»HDR FRMT«, t00=0x0058, t01=0x0168}
0x8ae0…8af4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0058, t01=0x0178}
0x8af4…8b0c Head {h00=0x0014, h01=0x0050, text=» FTEXT 'DATO: '«, t00=0x0058, t01=0x018c}
0x8b0c…8b2a Head {h00=0x001a, h01=0x0050, text=» FMEL '99-99-99',DATE «, t00=0x0059, t01=0x0014}
0x8b2a…8b3e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',4«, t00=0x0059, t01=0x0032}
0x8b3e…8b54 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'TID: '«, t00=0x0059, t01=0x0046}
0x8b54…8b72 Head {h00=0x001a, h01=0x0050, text=» FMEL '99-99-99',TIME «, t00=0x0059, t01=0x005c}
0x8b72…8b80 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0059, t01=0x007a}
0x8b80…8b8c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x0088}
0x8b8c…8ba2 Head {h00=0x0012, h01=0x0050, text=» FTEXT 'IND: '«, t00=0x0059, t01=0x0094}
0x8ba2…8bbe Head {h00=0x0018, h01=0x0050, text=» FMEL '99999',NUMBER«, t00=0x0059, t01=0x00aa}
0x8bbe…8bd6 Head {h00=0x0014, h01=0x0050, text=» FTEXT ' UD: ' «, t00=0x0059, t01=0x00c6}
0x8bd6…8bf6 Head {h00=0x001c, h01=0x0050, text=» FMEL '99999',BCDI21(W5)«, t00=0x0059, t01=0x00de}
0x8bf6…8c04 Head {h00=0x000a, h01=0x0050, text=» FEOR «, t00=0x0059, t01=0x00fe}
0x8c04…8c10 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0059, t01=0x010c}
0x8c10…8c1e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0059, t01=0x0118}
0x8c1e…8c2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0126}
0x8c2c…8c40 Head {h00=0x0010, h01=0x0050, text=»FCAS02 FRMT «, t00=0x0059, t01=0x0134}
0x8c40…8c4c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0059, t01=0x0148}
0x8c4c…8c66 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'DEVICE' «, t00=0x0059, t01=0x0154}
0x8c66…8c7a Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0059, t01=0x016e}
0x8c7a…8c8a Head {h00=0x000c, h01=0x0050, text=» FINP 9 «, t00=0x0059, t01=0x0182}
0x8c8a…8ca4 (90, 0, 400) Head {h00=0x0016, h01=0x0050, text=» FCOPY STSAVE(W3) «, t00=0x005a, t01=0x0004}
0x8ca4…8cb4 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x005a, t01=0x001e}
0x8cb4…8ccc Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x005a, t01=0x002e}
0x8ccc…8ce0 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x005a, t01=0x0046}
0x8ce0…8cf8 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME' «, t00=0x005a, t01=0x005a}
0x8cf8…8d0c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x005a, t01=0x0072}
0x8d0c…8d1c Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x005a, t01=0x0086}
0x8d1c…8d30 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8B«, t00=0x005a, t01=0x0096}
0x8d30…8d3c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x00aa}
0x8d3c…8d60 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'EXPIRATION DATE:' «, t00=0x005a, t01=0x00b6}
0x8d60…8d70 Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x005a, t01=0x00da}
0x8d70…8d84 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6A«, t00=0x005a, t01=0x00ea}
0x8d84…8d90 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x00fe}
0x8d90…8dbc Head {h00=0x0028, h01=0x0050, text=» FCOPY =C'OLD DATA SET IDENTIFIER:' «, t00=0x005a, t01=0x010a}
0x8dbc…8dcc Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x005a, t01=0x0136}
0x8dcc…8de0 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR8A«, t00=0x005a, t01=0x0146}
0x8de0…8dec Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005a, t01=0x015a}
0x8dec…8e16 Head {h00=0x0026, h01=0x0050, text=» FCOPY =C'OLD VOLUME SEQUENCE NO:'«, t00=0x005a, t01=0x0166}
0x8e16…8e26 Head {h00=0x000c, h01=0x0050, text=» FINP 32«, t00=0x005a, t01=0x0190}
0x8e26…8e3a Head {h00=0x0010, h01=0x0050, text=» FCOPY STR2A«, t00=0x005b, t01=0x0010}
0x8e3a…8e46 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x005b, t01=0x0024}
0x8e46…8e54 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x005b, t01=0x0030}
0x8e54…8e68 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x005b, t01=0x003e}
0x8e68…8e76 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x0052}
0x8e76…8e84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x0060}
0x8e84…8e98 Head {h00=0x0010, h01=0x0050, text=»FRMC99 FRMT «, t00=0x005b, t01=0x006e}
0x8e98…8ea4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x005b, t01=0x0082}
0x8ea4…8eba Head {h00=0x0012, h01=0x0050, text=» FLINK FFD999 «, t00=0x005b, t01=0x008e}
0x8eba…8ec8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x00a4}
0x8ec8…8ed0 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x00b2}
0x8ed0…8ee4 Head {h00=0x0010, h01=0x0050, text=»FFD001 FRMT «, t00=0x005b, t01=0x00ba}
0x8ee4…8efa Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'001'«, t00=0x005b, t01=0x00ce}
0x8efa…8f16 Head {h00=0x0018, h01=0x0050, text=» FMEL '999999',DATE «, t00=0x005b, t01=0x00e4}
0x8f16…8f2c Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',60 «, t00=0x005b, t01=0x0100}
0x8f2c…8f42 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',56 «, t00=0x005b, t01=0x0116}
0x8f42…8f50 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005b, t01=0x012c}
0x8f50…8f58 Head {h00=0x0004, h01=0x0050, t00=0x005b, t01=0x013a}
0x8f58…8f6c Head {h00=0x0010, h01=0x0050, text=»FFD999 FRMT «, t00=0x005b, t01=0x0142}
0x8f6c…8f84 Head {h00=0x0014, h01=0x0050, text=» FTEXT =C'SLUTD'«, t00=0x005b, t01=0x0156}
0x8f84…8fa4 Head {h00=0x001c, h01=0x0050, text=» FMEL '99999',BCDI21(W5)«, t00=0x005b, t01=0x016e}
0x8fa4…8fba Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',60 «, t00=0x005b, t01=0x018e}
0x8fba…8fd0 Head {h00=0x0012, h01=0x0050, text=» FILLR ' ',62 «, t00=0x005c, t01=0x0014}
0x8fd0…8fde Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x002a}
0x8fde…8fec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0038}
0x8fec…9000 Head {h00=0x0010, h01=0x0050, text=»FRMALP FRMT «, t00=0x005c, t01=0x0046}
0x9000…9018 Head {h00=0x0014, h01=0x0050, text=» FCOPY :FMTITEM «, t00=0x005c, t01=0x005a}
0x9018…9026 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0072}
0x9026…902e Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0080}
0x902e…9036 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0088}
0x9036…904a Head {h00=0x0010, h01=0x0050, text=»FRMBCD FRMT «, t00=0x005c, t01=0x0090}
0x904a…9078 Head {h00=0x002a, h01=0x0050, text=» FMEL '999999999999999999999',:FMTITEM«, t00=0x005c, t01=0x00a4}
0x9078…9086 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x00d2}
0x9086…908e Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x00e0}
0x908e…90a2 Head {h00=0x0010, h01=0x0050, text=»FRMTCD FRMT «, t00=0x005c, t01=0x00e8}
0x90a2…90d0 Head {h00=0x002a, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTTTTTTTTT9',:FMTITEM«, t00=0x005c, t01=0x00fc}
0x90d0…90de Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x012a}
0x90de…90e6 Head {h00=0x0004, h01=0x0050, t00=0x005c, t01=0x0138}
0x90e6…90fa Head {h00=0x0010, h01=0x0050, text=»FRMTCS FRMT «, t00=0x005c, t01=0x0140}
0x90fa…912a Head {h00=0x002c, h01=0x0050, text=» FMEL 'TTTTTTTTTTTTTTTTTTTT9-',:FMTITEM «, t00=0x005c, t01=0x0154}
0x912a…9138 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005c, t01=0x0184}
0x9138…9140 (93, 2, 270) Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x0004}
0x9140…9154 Head {h00=0x0010, h01=0x0050, text=»FRMZCD FRMT «, t00=0x005d, t01=0x000c}
0x9154…9184 Head {h00=0x002c, h01=0x0050, text=» FMEL 'BBBBBBBBBBBBBBBBBBBB9-',:FMTITEM «, t00=0x005d, t01=0x0020}
0x9184…9198 Head {h00=0x0010, h01=0x0050, text=»FRMBCS FRMT «, t00=0x005d, t01=0x0050}
0x9198…91c8 Head {h00=0x002c, h01=0x0050, text=» FMEL '999999999999999999999-',:FMTITEM «, t00=0x005d, t01=0x0064}
0x91c8…91d6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x0094}
0x91d6…91de Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00a2}
0x91de…91e6 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00aa}
0x91e6…91fa Head {h00=0x0010, h01=0x0050, text=»FRMTID FRMT «, t00=0x005d, t01=0x00b2}
0x91fa…9214 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',BCD13A«, t00=0x005d, t01=0x00c6}
0x9214…9222 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x005d, t01=0x00e0}
0x9222…922a Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00ee}
0x922a…9232 Head {h00=0x0004, h01=0x0050, t00=0x005d, t01=0x00f6}
0x9232…923e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005d, t01=0x00fe}
0x923e…9242 Head {h00=0x4004, h01=0x0000}
0x9242…9246 00 5d 01 0a ┆ ] ┆
0x9246…924e (94, 1, 8) 20 04 00 00 00 5e 00 04 ┆ ^ ┆
0x924e…929e (95, 0, 400) 00 26 01 82 00 3e 00 50 5c 43 41 4c 4c 5c 46 44 49 4f 2c 44 53 46 44 2c 58 27 39 31 27 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 52 45 51 46 44 2c 43 57 46 44 5c 52 45 41 44 20 28 48 44 52 31 29 20 00 27 00 08 00 14 00 50 5c 58 53 54 41 54 ┆ & > P CALL FDIO,DSFD,X'91',BPOOL(BIN13),REQFD,CWFD READ (HDR1) ' P XSTAT┆
0x929e…92ee 5c 44 53 46 44 2c 42 49 4e 34 00 27 00 4a 00 18 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 58 27 30 38 36 46 27 20 00 27 00 62 00 18 00 50 5c 43 41 4c 4c 5c 4d 41 53 4b 2c 42 49 4e 34 2c 42 49 4e 37 00 27 00 7e 00 10 00 50 5c 42 4e 4f 4b 5c ┆ DSFD,BIN4 ' J P MOVE BIN7,=X'086F' ' b P CALL MASK,BIN4,BIN7 ' ~ P BNOK ┆
0x92ee…933e 46 44 52 56 30 32 00 27 00 9a 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 57 27 36 36 27 20 00 27 00 ae 00 38 00 50 5c 58 43 4f 50 59 5c 53 54 52 36 41 2c 57 30 2c 57 36 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 42 49 4e 37 5c 45 58 50 ┆FDRV02 ' P MOVE BIN7,=W'66' ' 8 P XCOPY STR6A,W0,W6,BPOOL(BIN13),BIN7 EXP┆
0x933e…938e 49 52 41 54 49 4f 4e 20 44 41 54 45 00 27 00 c8 00 34 00 50 5c 58 43 4f 50 59 5c 53 54 52 38 41 2c 57 30 2c 57 38 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 57 35 5c 47 45 54 20 46 49 4c 45 20 4e 41 4d 45 00 27 01 04 00 24 00 50 5c 4d 4f 56 ┆IRATION DATE ' 4 P XCOPY STR8A,W0,W8,BPOOL(BIN13),W5 GET FILE NAME ' $ P MOV┆
0x938e…93de 45 5c 42 49 4e 37 2c 57 32 32 5c 47 45 54 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 00 27 01 3c 00 28 00 50 5c 58 43 4f 50 59 5c 53 54 52 36 42 2c 57 31 2c 57 35 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 42 49 4e 37 00 27 01 64 00 16 00 50 ┆E BIN7,W22 GET RECORD LENGTH ' < ( P XCOPY STR6B,W1,W5,BPOOL(BIN13),BIN7 ' d P┆
0x93de…942e (96, 0, 398) 5c 4d 4f 56 45 5c 52 45 43 4c 47 44 2c 53 54 52 36 42 00 27 01 90 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 57 27 34 35 27 20 00 28 00 1a 00 36 00 50 5c 58 43 4f 50 59 5c 53 54 52 32 41 2c 57 30 2c 57 32 2c 42 50 4f 4f 4c 28 42 49 4e ┆ MOVE RECLGD,STR6B ' P MOVE BIN7,=W'45' ( 6 P XCOPY STR2A,W0,W2,BPOOL(BIN┆
0x942e…947e 31 33 29 2c 42 49 4e 37 5c 47 45 54 20 46 44 20 4e 55 4d 42 45 52 00 28 00 34 00 12 00 50 5c 41 54 54 46 4d 54 5c 46 43 41 53 30 32 00 28 00 6e 00 12 00 50 5c 53 45 54 5c 44 45 50 52 4f 4d 50 54 20 00 28 00 84 00 14 00 50 5c 44 49 53 50 4c ┆13),BIN7 GET FD NUMBER ( 4 P ATTFMT FCAS02 ( n P SET DEPROMPT ( P DISPL┆
0x947e…94ce 41 59 5c 30 2c 57 31 2c 57 30 00 28 00 9a 00 0a 00 50 5c 54 48 4f 4d 45 00 28 00 b2 00 26 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 33 2c 57 31 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 00 28 00 c0 00 32 00 50 5c 4e 4b 49 5c 2e ┆AY 0,W1,W0 ( P THOME ( & P MOVE DEBINW3,W1 REQUESTED LENGTH ( 2 P NKI .┆
0x94ce…951e 4e 45 2c 44 45 44 53 44 59 4b 42 2c 53 54 52 31 41 2c 4b 45 59 54 41 42 2c 44 45 42 49 4e 57 33 2c 44 45 42 49 4e 57 32 00 28 00 ea 00 08 00 50 5c 52 45 54 00 28 01 20 00 0a 00 50 46 44 52 56 30 32 00 28 01 2c 00 0a 00 50 5c 52 45 54 5c 32 ┆NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2 ( P RET ( PFDRV02 ( , P RET 2┆
0x951e…956c 00 28 01 3a 00 0a 00 50 5c 50 45 4e 44 20 00 28 01 48 00 0a 00 50 5c 45 4a 45 43 54 00 28 01 56 00 06 00 50 2a 20 00 28 01 64 00 20 00 50 2a 20 20 46 44 57 56 4f 4c 20 57 52 49 54 45 20 56 4f 4c 55 4d 45 20 4c 41 42 45 4c 00 28 01 6e ┆ ( : P PEND ( H P EJECT ( V P* ( d P* FDWVOL WRITE VOLUME LABEL ( n┆
0x956c…95bc (97, 0, 398) 00 06 00 50 2a 20 00 29 00 04 00 04 00 50 00 29 00 0e 00 04 00 50 00 29 00 16 00 10 00 50 46 44 57 56 4f 4c 5c 50 52 4f 43 20 00 29 00 1e 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 57 27 36 36 27 20 00 29 00 32 00 26 00 50 5c 4d 4f 56 ┆ P* ) P ) P ) PFDWVOL PROC ) P MOVE BIN7,=W'66' ) 2 & P MOV┆
0x95bc…960c 45 5c 42 49 4e 31 33 2c 42 49 4e 31 30 5c 47 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 29 00 4c 00 28 00 50 5c 41 44 44 5c 42 49 4e 31 33 2c 57 32 5c 41 44 4a 55 53 54 20 46 4f 52 20 52 45 41 44 20 42 55 46 46 45 52 00 29 00 76 00 2a ┆E BIN13,BIN10 GET BUFFER INDEX ) L ( P ADD BIN13,W2 ADJUST FOR READ BUFFER ) v *┆
0x960c…965c 00 50 5c 45 44 53 55 42 5c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 42 49 4e 37 2c 46 52 4d 56 4f 4c 32 5c 44 41 54 45 20 00 29 00 a2 00 12 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 57 35 20 00 29 00 d0 00 30 00 50 5c 45 44 53 55 42 5c 42 50 4f ┆ P EDSUB BPOOL(BIN13),BIN7,FRMVOL2 DATE ) P MOVE BIN7,W5 ) 0 P EDSUB BPO┆
0x965c…96ac 4f 4c 28 42 49 4e 31 33 29 2c 42 49 4e 37 2c 46 52 4d 56 4f 4c 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 00 29 00 e6 00 16 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 57 27 34 35 27 20 00 29 01 1a 00 2e 00 50 5c 45 44 53 55 42 5c 42 50 4f 4f 4c ┆OL(BIN13),BIN7,FRMVOL1 VOLUME NAME ) P MOVE BIN7,=W'45' ) . P EDSUB BPOOL┆
0x96ac…96fa 28 42 49 4e 31 33 29 2c 42 49 4e 37 2c 46 52 4d 56 4f 4c 33 5c 46 44 20 4e 55 4d 42 45 52 00 29 01 34 00 28 00 50 5c 4d 4f 56 45 5c 52 45 51 46 44 2c 3d 57 27 31 32 38 27 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 29 01 66 ┆(BIN13),BIN7,FRMVOL3 FD NUMBER ) 4 ( P MOVE REQFD,=W'128' REQUESTED LENGTH ) f┆
0x96fa…974a (98, 0, 400) 00 12 00 50 5c 4d 4f 56 45 5c 43 57 46 44 2c 57 37 20 00 2a 00 04 00 3e 00 50 5c 43 41 4c 4c 5c 46 44 49 4f 2c 44 53 46 44 2c 58 27 39 35 27 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 52 45 51 46 44 2c 43 57 46 44 5c 57 52 49 54 45 20 28 48 ┆ P MOVE CWFD,W7 * > P CALL FDIO,DSFD,X'95',BPOOL(BIN13),REQFD,CWFD WRITE (H┆
0x974a…979a 44 52 31 29 00 2a 00 1a 00 14 00 50 5c 58 53 54 41 54 5c 44 53 46 44 2c 42 49 4e 34 00 2a 00 5c 00 18 00 50 5c 4d 4f 56 45 5c 42 49 4e 37 2c 3d 58 27 30 32 34 46 27 20 00 2a 00 74 00 18 00 50 5c 43 41 4c 4c 5c 4d 41 53 4b 2c 42 49 4e 34 2c ┆DR1) * P XSTAT DSFD,BIN4 * P MOVE BIN7,=X'024F' * t P CALL MASK,BIN4,┆
0x979a…97ea 42 49 4e 37 00 2a 00 90 00 04 00 50 00 2a 00 ac 00 10 00 50 5c 42 4e 4f 4b 5c 46 44 57 56 4f 32 00 2a 00 b4 00 26 00 50 5c 41 44 44 5c 46 44 43 4e 54 2c 3d 44 27 31 27 5c 55 50 44 41 54 45 20 46 44 20 4e 55 4d 42 45 52 20 00 2a 00 c8 00 20 ┆BIN7 * P * P BNOK FDWVO2 * & P ADD FDCNT,=D'1' UPDATE FD NUMBER * ┆
0x97ea…983a 00 50 5c 4d 4f 56 45 5c 43 57 46 44 2c 3d 57 27 32 36 27 5c 48 44 52 20 52 45 43 4f 52 44 00 2a 00 f2 00 28 00 50 5c 4d 4f 56 45 5c 52 45 51 46 44 2c 3d 57 27 31 32 38 27 5c 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 2a 01 16 00 38 ┆ P MOVE CWFD,=W'26' HDR RECORD * ( P MOVE REQFD,=W'128' REQUESTED LENGTH * 8┆
0x983a…988a 00 50 5c 43 41 4c 4c 5c 46 44 49 4f 2c 44 53 46 44 2c 58 27 42 31 27 2c 42 50 4f 4f 4c 28 42 49 4e 31 33 29 2c 52 45 51 46 44 2c 43 57 46 44 5c 52 45 57 49 4e 44 00 2a 01 42 00 08 00 50 5c 52 45 54 00 2a 01 7e 00 0a 00 50 46 44 57 56 4f 32 ┆ P CALL FDIO,DSFD,X'B1',BPOOL(BIN13),REQFD,CWFD REWIND * B P RET * ~ PFDWVO2┆
0x988a…98da (99, 0, 400) 00 2a 01 8a 00 0a 00 50 5c 52 45 54 5c 32 00 2b 00 08 00 0a 00 50 5c 50 45 4e 44 20 00 2b 00 16 00 0a 00 50 20 45 4a 45 43 54 00 2b 00 24 00 06 00 50 2a 20 00 2b 00 32 00 1a 00 50 2a 20 4c 53 57 52 49 54 20 57 52 49 54 45 20 42 4c 4f 43 4b ┆ * P RET 2 + P PEND + P EJECT + $ P* + 2 P* LSWRIT WRITE BLOCK┆
0x98da…992a 53 20 00 2b 00 3c 00 06 00 50 2a 20 00 2b 00 5a 00 04 00 50 00 2b 00 64 00 10 00 50 4c 53 57 52 49 54 20 50 52 4f 43 20 00 2b 00 6c 00 0a 00 50 4c 53 57 52 30 30 00 2b 00 80 00 22 00 50 2a 20 42 49 4e 31 36 20 20 20 4e 4f 20 4f 46 20 43 48 ┆S + < P* + Z P + d PLSWRIT PROC + l PLSWR00 + " P* BIN16 NO OF CH┆
0x992a…997a 41 52 53 20 54 4f 20 53 45 4e 44 20 00 2b 00 8e 00 2e 00 50 2a 20 42 49 4e 34 20 20 20 20 41 56 41 49 4c 41 42 4c 45 20 53 50 41 43 45 20 49 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 00 2b 00 b4 00 1e 00 50 2a 20 44 45 42 49 4e 33 20 20 ┆ARS TO SEND + . P* BIN4 AVAILABLE SPACE IN OUTPUT BUFFER + P* DEBIN3 ┆
0x997a…99ca 4c 45 4e 47 54 48 20 4f 46 20 48 45 41 44 45 52 00 2b 00 e6 00 2e 00 50 2a 20 42 49 4e 31 35 20 20 20 41 43 54 55 41 4c 20 4c 45 4e 47 54 48 20 4f 46 20 49 4e 50 55 54 20 44 41 54 41 20 55 53 45 44 00 2b 01 08 00 12 00 50 20 43 4d 50 20 42 ┆LENGTH OF HEADER + . P* BIN15 ACTUAL LENGTH OF INPUT DATA USED + P CMP B┆
0x99ca…9a1a 49 4e 31 36 2c 57 30 20 00 2b 01 3a 00 1e 00 50 20 42 45 20 4c 53 57 52 52 45 54 20 4e 4f 44 41 54 41 3d 4e 4f 57 52 49 54 45 00 2b 01 50 00 28 00 50 20 4d 4f 56 45 20 42 49 4e 34 2c 52 45 43 4c 47 44 20 53 45 54 20 52 45 43 4f 52 44 20 4c ┆IN16,W0 + : P BE LSWRRET NODATA=NOWRITE + P ( P MOVE BIN4,RECLGD SET RECORD L┆
0x9a1a…9a6a (100, 0, 400) 45 4e 47 54 48 20 00 2b 01 72 00 2c 00 50 20 41 44 44 20 42 43 44 49 32 31 28 57 35 29 2c 3d 44 27 31 27 20 41 44 44 20 31 20 54 4f 20 52 45 43 4f 52 44 20 4e 4f 00 2c 00 0e 00 2e 00 50 20 41 44 44 20 42 43 44 49 32 31 28 57 34 29 2c 3d 44 ┆ENGTH + r , P ADD BCDI21(W5),=D'1' ADD 1 TO RECORD NO , . P ADD BCDI21(W4),=D┆
0x9a6a…9aba 27 31 27 20 41 44 44 20 31 20 54 4f 20 53 45 51 55 45 4e 43 45 20 4e 4f 00 2c 00 3e 00 20 00 50 20 43 42 45 20 42 43 44 49 32 31 28 57 34 29 2c 3d 44 27 31 27 2c 4c 53 57 52 35 30 00 2c 00 70 00 28 00 50 2a 20 20 4e 4f 54 20 46 49 52 53 54 ┆'1' ADD 1 TO SEQUENCE NO , > P CBE BCDI21(W4),=D'1',LSWR50 , p ( P* NOT FIRST┆
0x9aba…9b0a 20 54 49 4d 45 20 28 53 45 51 55 45 4e 43 45 20 4e 4f 20 3e 20 31 29 20 00 2c 00 94 00 2c 00 50 2a 20 20 43 4f 50 59 20 48 45 41 44 45 52 20 50 41 52 54 2c 20 4c 45 4e 47 54 48 20 49 4e 20 57 4f 52 4b 28 57 31 35 29 00 2c 00 c0 00 2c 00 50 ┆ TIME (SEQUENCE NO > 1) , , P* COPY HEADER PART, LENGTH IN WORK(W15) , , P┆
0x9b0a…9b5a 20 53 55 42 20 42 49 4e 34 2c 57 4f 52 4b 28 57 31 35 29 20 4d 41 4b 45 20 52 4f 4f 4d 20 46 4f 52 20 48 45 41 44 45 52 00 2c 00 f0 00 26 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 33 2c 57 4f 52 4b 28 57 31 35 29 20 53 54 41 52 54 20 50 4f 49 ┆ SUB BIN4,WORK(W15) MAKE ROOM FOR HEADER , & P MOVE DEBIN3,WORK(W15) START POI┆
0x9b5a…9baa 4e 54 00 2c 01 20 00 0e 00 50 20 42 20 4c 53 57 52 35 35 20 00 2c 01 4a 00 0a 00 50 4c 53 57 52 35 30 00 2c 01 5c 00 30 00 50 2a 20 20 46 49 52 53 54 20 4f 55 54 50 55 54 20 52 45 43 4f 52 44 20 46 4f 52 20 54 48 49 53 20 49 4e 50 55 54 20 ┆NT , P B LSWR55 , J PLSWR50 , 0 P* FIRST OUTPUT RECORD FOR THIS INPUT ┆