|
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: 20658 (0x50b2)
Notes: pts_type(SC)
Names: »DENT01.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DENT01.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DENT01.SC«
IDENT DENT01 10.0 80-04-11,81-08-27/EV * FIRST STATEMENT AFTER TOTB42 IS * A UNIQUE SHB STATEMENT DDUM DEDDIV PDIV ENTRY DENT01 EXT DERECS EXT DEACC EXT DECLRN EXT DECLRD EXT DECLRA EXT DECLRS EXT DERROR EXT DELAST EXT CLEARB EXT RESTOR EXT UPDBIN EXT UPDBOL EXT DERR EXT TESTB TEST FOR A BIT IN A BIN EXT SETB SET A BIT IN A BIN EXT GETDUP LOOK FOR DUPLICATION- STRING FOR CURRENT FIELD EXT DEDISC DISC HANDLING ROUTINE EXT DEPOOL POOL HANDLING ROUTINE EXT MASK EXT EMPTYT EXT DELOCK EXT DEPRUT INCLUDE DELITT EJECT DENT01 PROC ***************************************** * * HANDLE ENTERED DATA * ***************************************** DATAIN TBT DOOL8,DAT04 JUMP IF OPEN NEW * TBF VERIFM,DAT0X VERIFY MODE ? TBF DBOMVR,DAT05 RECORD TO VERIFY ? TBF DBOVER,DAT05 VERIFIED RECORD ? CLEAR VERIFM PERF DEVERC CLEAR VERIFY B DAT0X * * DAT0 THOME DAT01 CLEAR DECHANGE CHANGED INPUTFIELD TBT VERIFM,DAT05 VERIFY MODE ? TBF DEPROMPT,DAT07 ENTIRE DISPLAY DAT04 CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 PERF DECLRA CLEAR ALL INPUTFIELDS B DAT03 DAT02 TBT VERIFM,DAT05 VERIFY MODE ? DAT07 PERF DECLRS CLEAR SOME INPUTFIELDS(NCLR) B DAT03 DAT05 TBT KEYVER,DAT06 KEY VERIFICATION ? DAT0X SET DENOCHAN NO CHANGES PERMITTED DAT06 PERF DECLRD DISPLAY VARIABEL FIELDS DAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,RBWDDA C CORDAT,DLTEDA,TOTDA,PROGDA,INSRDA EJECT * * HANDLE ERROR AND/OR ILLEGAL KEYS * DATERR MOVE DEBINW4,W0 DATER2 TBF VERIFM,DATER3 VERIFY MODE ? TBT KEYVER,DATER3 KEY VERIFICATION ? SET DENOCHAN NO CHANGES PERMITTED * DATER3 CBE PINDFR,W0,DATER4 NO ENTRY FORMAT ATTACHED. PERF DERR B DAT03 * DATER4 PERF DERROR,DEKTABN TBF DOOLA,DATER7 NOT BALANCE IB DEBINW2,TOTBAL,CANCBL,SERIOUS B DATER4 DATER7 IB DEBINW2,DATER5,DATER5 CLR,CAN C RETUDA,RFWDDA,DATER6,TOTDA,PROGDA DATER5 COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME PERF DERECS,W14 GET FORMAT BNOK DATER4 TBT VERIFM,DAT05 VERIFY MODE ? MOVE DEBINW3,NUMBER CURRENT REC.NR CBG DEBINW3,BDPOIN(W2),DAT0 ENTRY NEW REC TBT DOOL2,DAT0 INSERT B DAT0X DATER6 CBE NUMBER,=D'0',DATER8 BATCHEAD=0 B RBWDDA DATER8 MOVE DEBINW4,W15 B DATER4 EJECT ***************** * CANCEL PRESSED. ***************** CANCDA TBT SOOL2,CANC03 DATARECORD HANDLING ? TBF DOOL8,CANC03 OPEN NEW/BATCHHEAD? THOME B DAT04 * CANC03 TBF DOOL2,CANC10 JUMP IF NOT INSERT MOVE DEBINW2,W5 SIMULATE RBWD PRESSED B RBWD10 CANC10 TBT DECHANGE,CANC20 CHANGED INPUTFIELD? TBT VERIFM,CANC13 VERIFY MODE ? PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,CANC15 MOVE DEBINW3,NUMBER CBG DEBINW3,BDPOIN(W2),CANC15 TBF DBOMVR,CANC15 RECORD TO VERIFY ? TBT DBOVER,CANC15 VERIFIED RECORD ? PERF DEVERS SET VERIFY MODE CANC13 CLEAR DENOCHAN CHANGES PERMITTED ERASE 1,W1,W0 ERASE ALL ON SCREEN B DAT05 CANC15 PERF DECLRN B DAT03 CANC20 ERASE 1,W1,W0 ERASE ALL ON SCREEN PERF DERECS,W5 GET CURRENT RECORD BERR DATER2 CLEAR DECHANGE CHANGED INPUTFILED ? CLEAR DEPROMPT ENTIRE DISPLAY BNZ DAT04 ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B DAT06 EJECT ***************** * RETURN PRESSED. ***************** RETUDA TBT DENOCHAN,RETU05 CLEAR DOOL2 INSERT OF RECORD BNZ RETU05 TBT VERIFM,RETU05 VERIFY MODE ? PERF DERECS,W3 ENTER LAST RECORD BNERR SERIOUS RETU03 PERF DERROR,DEKTAB6 RETU05 B SERIOUS **************** * ENTER PRESSED. **************** DATENT TBF VERIFM,DAEN00 VERIFY MODE ? VERIFY SET DBOVER VERIFIED RECORD ? BNZ RFWD10 PERF DERECS,W2 ENTER OLD RECORD BNOK DATER2 B RFWD10 EJECT DAEN00 TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT PERF DEACC,W0 INCREASE ACCUMULATORS DAEN10 CLEAR DOOL2 RECORD INSERT ? BZ DAEN50 * HANDLE INSERTED RECORD * CLEAR BOOL7 CLEAR/SET CR BZ DAEN15 SET DOOL2 INSERT WITH FORMATCHANGE B DAEN59 DAEN15 SET DENOCHAN NO CHANGES PERMITTED PERF DERECS,W12 ENTER INSERTED RECORD BOK DAEN30 DAEN20 PERF DEACC,W1 DECREASE ACCUMULATORS B DATER2 DAEN30 MOVE BCD13A,NUMBER INSERR PERF DELAST,W6,DEKTAB5 IB DEBINW2,INSERR,RETUDA CLEAR DECHANGE SET DENOCHAN NO CHANGES PERMITTED B DAT03 EJECT * HANDLE NORMAL INPUT * DAEN50 TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS DAEN60 TBF DECHANGE,DAEN61 PERF DERECS,W1 ENTER NEW BNOK DAEN20 DAEN61 CLEAR BOOL5 CLEAR/SET CR CLEAR BOOL7 CLEAR/SET CR BOK DAEN62 NO FORMAT CHANGE FOUND DAEN59 MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) B DAEN63 DAEN62 CLEAR BOOL3 CLEAR/SET CR BOK DAEN65 NO FORMAT CHANGE FOUND MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG DAEN63 CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE BNOK DAEN65 MOVE STR1A,=C'*' MOVE DEBINW3,W0 LOOK IF BALANCE-FORMAT MATCH STSAVE(DEBINW4),DEBINW3,W1,STR1A,W0,W1 BNOK DAEN67 DATAENTER-FORMAT MOVE BIN3,DEBINW4 SAVE FORMATINDEX PERF DERECS,W3 ENTER LAST RECORD BOK DAEN66 CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE DAEN66 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,STSAVE(BIN3),W0 GET FORMATNAME MOVE FRMTPNTR,W0 B TOTB05 GET BALANCE-FORMAT DAEN67 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME CLEAR DOOL8 OPEN NEW BATCH PERF DERECS,W14 CHANGE FORMAT BOK DAEN64 CBNE NUMBER,=D'0',DAEN69 SET DENOCHAN DAEN69 B DATER2 DAEN64 SET SOOL2 DAEN65 SET SOOL2 BNZ DAEN70 CLEAR DECHANGE SET DOOL8 PERF DERECS,W10 BOK DAEN68 CLEAR DOOL8 B DATER4 DAEN68 CLEAR DOOL8 DAEN70 CLEAR DECHANGE BZ DAT0 CLEAR SW95PR BZ DAEN80 MOVE DEBINW4,=W'-1' PERF DERROR,DEKTABS IB DEBINW2,DAEN80,DAEN80,RETUDA DAEN80 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,DAEN85 TBF DBOMVR,DAEN85 PERF DERECS,W3 ENTER LAST SECTOR BERR DATER2 PERF DEVERS SET VERIFY MODE B RFWD02 DAEN85 B DAT0 EJECT ****************** * RECORD FORWARD. ****************** RFWDDA TBT DECHANGE,RFWD07 TBT VERIFM,RFWD04 VERIFY MODE ? TBT DOOL2,RFWD06 INSERT OF RECORD PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? TBF DBOMVR,RFWD03 RECORD TO VERIFY PERF DEVERS SET VERIFY MODE TBT DBOVER,RFWD10 RFWD02 PERF DELAST,W9,DEKTAB8 B CANC13 RFWD04 TBT DBOVER,RFWD10 VERIFIED RECORD ? PERF DELAST,W9,DEKTAB8 B CANC15 RFWD03 TBT DOOL8,RFWD07 TBF DOOL2,RFWD05 JUMP IF NOT INSERT RFWD06 B RBWD10 GET PREVIOUS RECORD RFWD05 TBT DENOCHAN,RFWD10 RFWD07 B DATERR RFWD10 MOVE DEBINW3,NUMBER CBNE DEBINW3,BDPOIN(W2),RFWD15 TEST VERIFM BNZ TOTBAL JUMP VERIFY TO BALANCE RFWD13 CBNE NUMBER,=D'0',RFWD14 RFWD12 CLEAR SOOL2 RFWD14 MOVE DEBINW4,W9 NO MORE RECORDS B RFWD33 RFWD15 TBT VERIFM,RFWD23 VERIFY MODE? PERF DELAST,W15,DEKTABR IB DEBINW2,PROCAN,PROCAN,RETUDA C RFWD18,RBWDDA MOVE DEBINW2,W4 RFWD22 MOVE BCDI21(W3),DEINPUT CBG BCDI21(W3),NUMBER,RFWD17 RFWD16 ILLEGAL NUMBER ENTERED MOVE BCDI21(W3),NUMBER RESTORE MOVE DEBINW4,W6 B DATER2 RFWD17 MOVE DEBINW3,BCDI21(W3) CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH MOVE BCDI21(W3),NUMBER RESTORE B RFWD13 NOT FOUND RFWD18 SUB DEBINW1,W1 BNZ RFWD22 RFWD23 MOVE BCDI21(W3),NUMBER ADD BCDI21(W3),=D'1' B RFWD17 RFWD19 ERASE 1,W1,W0 ERASE ALL ON SCREEN RFWD20 PERF DERECS,W4 GET NEXT RECORD RFWD30 BOK RFWD40 BOFL RETU03 CLEAR DOOLC CBNE PINDFR,W0,RFWD33 CURR FORMAT CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? TBF VERIFM,RFWD31 VERIFY MODE ? CBE DEBINW4,W13,RFWD20 NO WORKSPACE ? RFWD31 CBE NUMBER,=D'0',RFWD32 BATCHHEAD SET SOOL2 B DATER4 RFWD32 CLEAR SOOL2 B DATER4 RFWD33 TBF VERIFM,RFWD38 TEST BDAVER BNZ TOTBAL TBT KEYVER,RFWD35 DISPLAY 30,W1,W0 B RFWD39 RFWD35 DISPLAY 20,W1,W0 B RFWD39 RFWD38 CMP DEBINW4,W15 BZ TOTBAL JUMP TO BAL IF SEARCH DISPLAY 0,W1,W0 RFWD39 THOME B DATER2 RFWD40 SET SOOL2 NOT BATCHHEAD CBE DEBINW2,W5,RFWD50 RBWD PRESSED PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,RFWD50 NOT VERIFY TBF DBOMVR,RFWD10 PERF DEVERS SET VERIFY MODE TBT DBOVER,RFWD10 CLEAR DENOCHAN CHANGES PERMITTED B DAT05 RFWD50 CLEAR DECHANGE RFWD60 CBE NUMBER,=D'0',RFWD70 TEST VERIFM BZ DAT06 B DAT05 RFWD70 CLEAR SOOL2 TEST VERIFM BZ DAT0X B DAT05 EJECT ***************** * RECORD BACKWARD ***************** * RBWERR B DATERR * RBWDDA TBT DECHANGE,RBWERR TBF SOOL2,RBWERR TBT DOOL2,RBWD10 INSERT OF RECORD CBE NUMBER,=D'0',RFWD12 BATCHHEAD PERF DEVERC CLEAR IF VERIFY MODE BNZ RBWD10 TBT DENOCHAN,RBWD15 SET DENOCHAN NO CHANGES PERMITTED PERF DERECS,W3 ENTER LAST SECTOR BERR DATER2 B RFWD50 RBWD10 SET DENOCHAN NO CHANGES PERMITTED CLEAR DOOL2 INSERT OF RECORD? BNZ RBWD28 YES! RBWD15 PERF DELAST,W15,DEKTABR IB DEBINW2,PROCAN,PROCAN,RETUDA C RFWDDA,RBWD25 MOVE DEBINW2,W5 RBWD20 MOVE BCDI21(W3),DEINPUT CBNL BCDI21(W3),NUMBER,RFWD16 B RBWD30 RBWD25 SUB DEBINW1,W1 BNZ RBWD20 RBWD28 MOVE BCDI21(W3),NUMBER SUB BCDI21(W3),=D'1' RBWD30 ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP PERF DERECS,W6 GET PREVIOUS RECORD B RFWD30 EJECT ******************* * RECORD CORRECTION ******************* CORDAT TBT VERIFM,CORD10 TBF DENOCHAN,RBWERR CORD10 TBT DOOL2,RBWERR INSERT CLEAR DBOVER CLEAR DBOFOR PERF DEACC,W1 DECREASE ACCUMULATORS THOME CLEAR DENOCHAN CHANGES PERMITTED PERF DELAST,W8,DEKTAB7 SET CORR SET CORRECTION MODE,DK PERF DEVERC CLEAR IF VERIFY MODE BZ CORD20 PERF DECLRD B CORD30 CORD20 PERF DECLRN CORD30 CLEAR CORR IB DEBINW2, C CORCAN, CLR C CORC10, CAN C CORENT ENT CORD35 MOVE DEBINW4,W0 CORD40 SET CORR PERF DERR B CORD30 CORCAN TBF DECHANGE,CORE15 NO CHANGES MADE ERASE 1,W1,W0 ERASE ALL ON SCREEN CORC10 SET DOOL4 PERF DERECS,W5 GET CURRENT RECORD BNERR CORRET CLEAR DOOL4 B CORD40 CORRET CLEAR DOOL4 CORE15 PERF DEACC,W2 INCREASE ACCUMULATORS CLEAR DECHANGE THOME CORR30 IB DEBINW2,CORE10,SERIOUS,CORE20 CAN,RET,ENT C CORENT,CORENT,CORENT NOT USED C CORDEL DEL CORENT PERF DERECS,W2 ENTER OLD BNOK CORD40 CORE10 MOVE DEBINW3,W24 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE CBNE DEBINW2,W1,CORE15 NOT CANCE B CORE45 CORE20 GETFLD 0,W1,DEBINW1 CLEAR DECHANGE CORE45 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,CORE60 CORE50 TBF DBOMVR,CORE60 TBT DBOVER,CORE60 PERF DEVERS SET VEIFY MODE B RFWD02 CORE60 SET DENOCHAN NO CHANGES PERMITTED CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL B DAT06 CORE90 PERF DECLRN B DAT03 CORDEL SET DENOCHAN B DLTE05 EJECT ***************** * RECORD DELETE. ***************** DLTEDA TBT VERIFM,DLTE05 TEST DENOCHAN BZ DATERR TEST DOOL2 INSERT BNZ DATERR DLTE05 TEST SOOL2 BZ DATERR JUMP IF BATCHHEAD PERF DEVERC SET DENOCHAN DLTE10 PERF DELAST,W2,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 ERASE 1,W1,W0 ERASE ALL ON SCREEN PERF DEACC,W1 DECREASE ACCUMULATORS THOME DLTE30 PERF DERECS,W8 BNERR DLTE50 PERF DERROR,DEKTAB6 B SERIOUS DLTE50 PERF DELAST,W3,DEKTAB5 DLTE60 IB DEBINW2,DELERR,RETUDA,DELERR,RFWD10,RFWD50,DELERR, C DELERR,TOTDA DELERR EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B DLTE50 EJECT ******************* * CHANGE PROGRAM. * ******************* PROGDA TEST DENOCHAN BNZ DATERR TEST DECHANGE BNZ DATERR TEST SOOL2 BZ DATERR GETABX BIN4 PROGD0 PERF DELAST,W1,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 PROENT SUB DEBINW1,W1 BZ PROGD0 JUMP IF NO INPUT COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY PERF DERECS,W10 CHANGE PROGRAM BOK DAT0 GETFLD 0,BIN4,DEBINW2 B DATER2 * PROCAN PERF DEPRUT,PRNUM,DEBINW4,DEBINW2 MOVE DEBINW2,W1 CBE DEBINW4,W6,CORE50 JUMP IF VERIFY PERF DECLRN B DAT03 * EJECT ****************** * RECORD INSERT. * ****************** INSRDA TEST DOOL2 BNZ DATERR PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,INSR05 TBF DBOMVR,INSR05 TBT DBOVER,INSR05 PERF DEVERS SET VERIFY MODE B RFWD02 INSR05 MOVE DEBINW3,NUMBER CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD CLEAR DENOCHAN CHANGES PERMITTED B CANBL1 INSR10 PERF DELAST,W4,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 PERF DERECS,W9 INSERT RECORD BERR DATER2 CLEAR DENOCHAN CHANGES PERMITTED SET DOOL2 RECORD INSERT PERF DEVERC CLEAR IF VERIFY MODE B DAEN65 EJECT ******************** * TOT-KEY PRESSED. * ******************** TOTDA TEST DOOL8 BNZ DATERR TBF SOOL2,TOTBAL CLEAR DOOL2 INSERT BNZ TOTBAL TEST DECHANGE BNZ DATERR TBT DENOCHAN,TOTBAL TBT VERIFM,TOTBAL PERF DERECS,W3 ENTER LAST BNERR TOTBAL CBE DEBINW4,W13,TOTBAL NO WORKSPACE ? B DATER2 EJECT ***************************************** * * HANDLE BALANCE FORMAT * ***************************************** TOTBAL CLEAR DENOCHAN CHANGES PERMITTED CLEAR SOOL2 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT MOVE FRMTPNTR,SYMREC(W11) TOTB05 CLEAR DECHANGE SET DOOLA TOTB10 PERF DEDISC,W10 GET FORMAT BNERR TOTB20 CBNE DEBINW4,W13,TOTB12 NO WORKSPACE ATTFMT FFETCH ATTACH DUMMYFORMAT DISPLAY 0,W1,W0 THOME CBE PINDFR,W0,TOTB14 NO CURR. FORMAT PERF DEPOOL,W6,PINDFR,BIN14,STRG10A MOVE FORMAT,HEX00 B TOTB10 TOTB12 CLEAR DOOLA NO BALANCE-FORMAT SET DENOCHAN NO CHANGES PERMITTED TOTB14 B DATER2 TOTB20 MOVE FORMAT,FORTAB(W21) BLANCE NAME MOVE SYMREC(W11),FRMTPNTR MOVE BIN14,FLIND(W1) ATTFMT BPOOL(BIN14) SET DEPROMPT PERF DEDISC,W1 ENTER JOB DEFINITION TOTB35 PERF DECLRN TOTB40 IB DEBINW2,CANCBL,SERIOUS,ENTBL CBNE DEBINW2,W8,TOTB50 JUMP IF NOT TOT CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED PERF DELAST,W9,DEKTAB6 B TOTB35 TOTB42 B TOTB50 SHB UNIQUE STATEMENT PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42 SET BDAFRO ENTER PRESSED MOVE DEBINW2,W3 B ENTBL TOTB44 MOVE DEBINW4,W24 ERASE 0,DEBINW4,DEBINW4 B TOTB35 TOTB50 MOVE DEBINW4,W0 TOTB60 PERF DERR B TOTB40 ENTBL SET BDABAL IN BALANCE TOTB70 CLEAR DOOLA CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 MOVE DEBINW2,W1 RET * CANCBL CANBL1 CLEAR DOOLA SET SOOL2 PERF DERECS,W7 GET LAST RECORD BOK CANBL3 BOFL RETU03 CBE DEBINW4,W13,TOTB14 SET DOOLA B TOTB60 CANBL3 PERF DEVERC CLEAR IF VERIFY MODE CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST CLEAR DECHANGE B DAT02 CANBL2 B DAT01 SERIOUS CLEAR BDABAL OUT OF BALANCE B TOTB70 PEND EJECT DEVERS PROC CALL SETB,WORK(W11),W0 CALL SETB,WORK(W12),W0 SET VERIFM RET PEND DEVERC PROC CLEAR VERIFM BZ DEVERE MOVE WORK(W11),W0 MOVE WORK(W12),W0 DEVERE RET PEND EJECT BELL FRMT FSL FILLR X'07',1 FMEND FFETCH FRMT FSL FTEXT 'FETCHING FORMAT:' FCOPY DEINPUT FTEXT ' FROM DISC.' FNL FKI 1,ALPHA FCOPY HEX00 FMEND * END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT DENT01 10.0 80-04-11,81-08-27/EV «, t00=0x0000, t01=0x0004}
0x0030…005e Head {h00=0x002a, h01=0x0050, text=»* FIRST STATEMENT AFTER TOTB42 IS «, t00=0x0000, t01=0x0034}
0x005e…0082 Head {h00=0x0020, h01=0x0050, text=»* A UNIQUE SHB STATEMENT«, t00=0x0000, t01=0x0062}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0086}
0x0096…00a4 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x009a}
0x00a4…00ba Head {h00=0x0012, h01=0x0050, text=» ENTRY DENT01 «, t00=0x0000, t01=0x00a8}
0x00ba…00ce Head {h00=0x0010, h01=0x0050, text=» EXT DERECS «, t00=0x0000, t01=0x00be}
0x00ce…00e0 Head {h00=0x000e, h01=0x0050, text=» EXT DEACC«, t00=0x0000, t01=0x00d2}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00e4}
0x00f4…0108 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRD «, t00=0x0000, t01=0x00f8}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x010c}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRS «, t00=0x0000, t01=0x0120}
0x0130…0144 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x0134}
0x0144…0158 Head {h00=0x0010, h01=0x0050, text=» EXT DELAST «, t00=0x0000, t01=0x0148}
0x0158…016c Head {h00=0x0010, h01=0x0050, text=» EXT CLEARB «, t00=0x0000, t01=0x015c}
0x016c…0180 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0000, t01=0x0170}
0x0180…0194 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0000, t01=0x0184}
0x0194…01a8 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL «, t00=0x0001, t01=0x0008}
0x01a8…01ba Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0001, t01=0x001c}
0x01ba…01e4 Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0001, t01=0x002e}
0x01e4…0208 Head {h00=0x0020, h01=0x0050, text=» EXT SETB SET A BIT IN A BIN«, t00=0x0001, t01=0x0058}
0x0208…0232 Head {h00=0x0026, h01=0x0050, text=» EXT GETDUP LOOK FOR DUPLICATION- «, t00=0x0001, t01=0x007c}
0x0232…0256 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0001, t01=0x00a6}
0x0256…0280 Head {h00=0x0026, h01=0x0050, text=» EXT DEDISC DISC HANDLING ROUTINE «, t00=0x0001, t01=0x00ca}
0x0280…02aa Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL POOL HANDLING ROUTINE «, t00=0x0001, t01=0x00f4}
0x02aa…02bc Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x011e}
0x02bc…02d0 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0130}
0x02d0…02e4 Head {h00=0x0010, h01=0x0050, text=» EXT DELOCK «, t00=0x0001, t01=0x0144}
0x02e4…02f8 Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0001, t01=0x0158}
0x02f8…0310 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0001, t01=0x016c}
0x0310…031e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0184}
0x031e…0332 (2, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DENT01 PROC «, t00=0x0002, t01=0x0004}
0x0332…0364 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0018}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004a}
0x036e…038c Head {h00=0x001a, h01=0x0050, text=»* HANDLE ENTERED DATA «, t00=0x0002, t01=0x0054}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0072}
0x0396…03c8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x007c}
0x03c8…03d6 Head {h00=0x000a, h01=0x0050, text=»DATAIN«, t00=0x0002, t01=0x00ae}
0x03d6…0400 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL8,DAT04 JUMP IF OPEN NEW «, t00=0x0002, t01=0x00bc}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040a…0432 Head {h00=0x0024, h01=0x0050, text=» TBF VERIFM,DAT0X VERIFY MODE ? «, t00=0x0002, t01=0x00f0}
0x0432…045e Head {h00=0x0028, h01=0x0050, text=» TBF DBOMVR,DAT05 RECORD TO VERIFY ?«, t00=0x0002, t01=0x0118}
0x045e…048a Head {h00=0x0028, h01=0x0050, text=» TBF DBOVER,DAT05 VERIFIED RECORD ? «, t00=0x0002, t01=0x0144}
0x048a…04a0 Head {h00=0x0012, h01=0x0050, text=» CLEAR VERIFM «, t00=0x0002, t01=0x0170}
0x04a0…04c2 Head {h00=0x001e, h01=0x0050, text=» PERF DEVERC CLEAR VERIFY «, t00=0x0002, t01=0x0186}
0x04c2…04d2 Head {h00=0x000c, h01=0x0050, text=» B DAT0X«, t00=0x0003, t01=0x0018}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0028}
0x04dc…04e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0032}
0x04e6…04f8 Head {h00=0x000e, h01=0x0050, text=»DAT0 THOME«, t00=0x0003, t01=0x003c}
0x04f8…0528 Head {h00=0x002c, h01=0x0050, text=»DAT01 CLEAR DECHANGE CHANGED INPUTFIELD «, t00=0x0003, t01=0x004e}
0x0528…0550 Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,DAT05 VERIFY MODE ? «, t00=0x0003, t01=0x007e}
0x0550…057a Head {h00=0x0026, h01=0x0050, text=» TBF DEPROMPT,DAT07 ENTIRE DISPLAY«, t00=0x0003, t01=0x00a6}
0x057a…0588 Head {h00=0x000a, h01=0x0050, text=»DAT04 «, t00=0x0003, t01=0x00d0}
0x0588…05b8 Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH «, t00=0x0003, t01=0x00de}
0x05b8…05ea Head {h00=0x002e, h01=0x0050, text=» MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000«, t00=0x0003, t01=0x010e}
0x05ea…0614 Head {h00=0x0026, h01=0x0050, text=» PERF DECLRA CLEAR ALL INPUTFIELDS«, t00=0x0003, t01=0x0140}
0x0614…0624 Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0003, t01=0x016a}
0x0624…0632 Head {h00=0x000a, h01=0x0050, text=»DAT02 «, t00=0x0003, t01=0x017a}
0x0632…065a Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,DAT05 VERIFY MODE ? «, t00=0x0003, t01=0x0188}
0x065a…0668 Head {h00=0x000a, h01=0x0050, text=»DAT07 «, t00=0x0004, t01=0x0020}
0x0668…069a Head {h00=0x002e, h01=0x0050, text=» PERF DECLRS CLEAR SOME INPUTFIELDS(NCLR) «, t00=0x0004, t01=0x002e}
0x069a…06aa Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0004, t01=0x0060}
0x06aa…06b8 Head {h00=0x000a, h01=0x0050, text=»DAT05 «, t00=0x0004, t01=0x0070}
0x06b8…06e4 Head {h00=0x0028, h01=0x0050, text=» TBT KEYVER,DAT06 KEY VERIFICATION ?«, t00=0x0004, t01=0x007e}
0x06e4…06f2 Head {h00=0x000a, h01=0x0050, text=»DAT0X «, t00=0x0004, t01=0x00aa}
0x06f2…071c Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x0004, t01=0x00b8}
0x071c…072a Head {h00=0x000a, h01=0x0050, text=»DAT06 «, t00=0x0004, t01=0x00e2}
0x072a…0756 Head {h00=0x0028, h01=0x0050, text=» PERF DECLRD DISPLAY VARIABEL FIELDS«, t00=0x0004, t01=0x00f0}
0x0756…0794 Head {h00=0x003a, h01=0x0050, text=»DAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,RBWDDA C«, t00=0x0004, t01=0x011c}
0x0794…07c0 Head {h00=0x0028, h01=0x0050, text=» CORDAT,DLTEDA,TOTDA,PROGDA,INSRDA «, t00=0x0004, t01=0x015a}
0x07c0…07ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0186}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…0802 Head {h00=0x0026, h01=0x0050, text=»* HANDLE ERROR AND/OR ILLEGAL KEYS«, t00=0x0005, t01=0x000e}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…082a Head {h00=0x001a, h01=0x0050, text=»DATERR MOVE DEBINW4,W0«, t00=0x0005, t01=0x0042}
0x082a…0838 Head {h00=0x000a, h01=0x0050, text=»DATER2«, t00=0x0005, t01=0x0060}
0x0838…0860 Head {h00=0x0024, h01=0x0050, text=» TBF VERIFM,DATER3 VERIFY MODE ?«, t00=0x0005, t01=0x006e}
0x0860…088e Head {h00=0x002a, h01=0x0050, text=» TBT KEYVER,DATER3 KEY VERIFICATION ? «, t00=0x0005, t01=0x0096}
0x088e…08b8 Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x0005, t01=0x00c4}
0x08b8…08c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ee}
0x08c2…08d0 Head {h00=0x000a, h01=0x0050, text=»DATER3«, t00=0x0005, t01=0x00f8}
0x08d0…08fe Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,DATER4 NO ENTRY FORMAT «, t00=0x0005, t01=0x0106}
0x08fe…0912 Head {h00=0x0010, h01=0x0050, text=» ATTACHED.«, t00=0x0005, t01=0x0134}
0x0912…0924 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0005, t01=0x0148}
0x0924…0934 Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0005, t01=0x015a}
0x0934…093e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016a}
0x093e…094c Head {h00=0x000a, h01=0x0050, text=»DATER4«, t00=0x0005, t01=0x0174}
0x094c…0968 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABN«, t00=0x0005, t01=0x0182}
0x0968…098e Head {h00=0x0022, h01=0x0050, text=» TBF DOOLA,DATER7 NOT BALANCE «, t00=0x0006, t01=0x000e}
0x098e…09b8 Head {h00=0x0026, h01=0x0050, text=» IB DEBINW2,TOTBAL,CANCBL,SERIOUS «, t00=0x0006, t01=0x0034}
0x09b8…09ca Head {h00=0x000e, h01=0x0050, text=» B DATER4 «, t00=0x0006, t01=0x005e}
0x09ca…09d8 Head {h00=0x000a, h01=0x0050, text=»DATER7«, t00=0x0006, t01=0x0070}
0x09d8…0a04 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,DATER5,DATER5 CLR,CAN C «, t00=0x0006, t01=0x007e}
0x0a04…0a30 Head {h00=0x0028, h01=0x0050, text=» RETUDA,RFWDDA,DATER6,TOTDA,PROGDA «, t00=0x0006, t01=0x00aa}
0x0a30…0a3e Head {h00=0x000a, h01=0x0050, text=»DATER5«, t00=0x0006, t01=0x00d6}
0x0a3e…0a74 Head {h00=0x0032, h01=0x0050, text=» COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME«, t00=0x0006, t01=0x00e4}
0x0a74…0a98 Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W14 GET FORMAT «, t00=0x0006, t01=0x011a}
0x0a98…0aac Head {h00=0x0010, h01=0x0050, text=» BNOK DATER4«, t00=0x0006, t01=0x013e}
0x0aac…0ad4 Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,DAT05 VERIFY MODE ? «, t00=0x0006, t01=0x0152}
0x0ad4…0b00 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW3,NUMBER CURRENT REC.NR «, t00=0x0006, t01=0x017a}
0x0b00…0b32 Head {h00=0x002e, h01=0x0050, text=» CBG DEBINW3,BDPOIN(W2),DAT0 ENTRY NEW REC«, t00=0x0007, t01=0x0016}
0x0b32…0b50 Head {h00=0x001a, h01=0x0050, text=» TBT DOOL2,DAT0 INSERT«, t00=0x0007, t01=0x0048}
0x0b50…0b60 Head {h00=0x000c, h01=0x0050, text=» B DAT0X«, t00=0x0007, t01=0x0066}
0x0b60…0b6e Head {h00=0x000a, h01=0x0050, text=»DATER6«, t00=0x0007, t01=0x0076}
0x0b6e…0b9a Head {h00=0x0028, h01=0x0050, text=» CBE NUMBER,=D'0',DATER8 BATCHEAD=0 «, t00=0x0007, t01=0x0084}
0x0b9a…0bac Head {h00=0x000e, h01=0x0050, text=» B RBWDDA «, t00=0x0007, t01=0x00b0}
0x0bac…0bba Head {h00=0x000a, h01=0x0050, text=»DATER8«, t00=0x0007, t01=0x00c2}
0x0bba…0bd4 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W15 «, t00=0x0007, t01=0x00d0}
0x0bd4…0be6 Head {h00=0x000e, h01=0x0050, text=» B DATER4 «, t00=0x0007, t01=0x00ea}
0x0be6…0bf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00fc}
0x0bf4…0c0e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0007, t01=0x010a}
0x0c0e…0c28 Head {h00=0x0016, h01=0x0050, text=»* CANCEL PRESSED. «, t00=0x0007, t01=0x0124}
0x0c28…0c42 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0007, t01=0x013e}
0x0c42…0c50 Head {h00=0x000a, h01=0x0050, text=»CANCDA«, t00=0x0007, t01=0x0158}
0x0c50…0c80 Head {h00=0x002c, h01=0x0050, text=» TBT SOOL2,CANC03 DATARECORD HANDLING ? «, t00=0x0007, t01=0x0166}
0x0c80…0cae Head {h00=0x002a, h01=0x0050, text=» TBF DOOL8,CANC03 OPEN NEW/BATCHHEAD? «, t00=0x0008, t01=0x0008}
0x0cae…0cbc Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0008, t01=0x0036}
0x0cbc…0ccc Head {h00=0x000c, h01=0x0050, text=» B DAT04«, t00=0x0008, t01=0x0044}
0x0ccc…0cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0054}
0x0cd6…0ce4 Head {h00=0x000a, h01=0x0050, text=»CANC03«, t00=0x0008, t01=0x005e}
0x0ce4…0d10 Head {h00=0x0028, h01=0x0050, text=» TBF DOOL2,CANC10 JUMP IF NOT INSERT«, t00=0x0008, t01=0x006c}
0x0d10…0d3e Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW2,W5 SIMULATE RBWD PRESSED«, t00=0x0008, t01=0x0098}
0x0d3e…0d50 Head {h00=0x000e, h01=0x0050, text=» B RBWD10 «, t00=0x0008, t01=0x00c6}
0x0d50…0d5e Head {h00=0x000a, h01=0x0050, text=»CANC10«, t00=0x0008, t01=0x00d8}
0x0d5e…0d8e Head {h00=0x002c, h01=0x0050, text=» TBT DECHANGE,CANC20 CHANGED INPUTFIELD?«, t00=0x0008, t01=0x00e6}
0x0d8e…0db6 Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,CANC13 VERIFY MODE ?«, t00=0x0008, t01=0x0116}
0x0db6…0de0 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x0008, t01=0x013e}
0x0de0…0e00 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W6,CANC15 «, t00=0x0008, t01=0x0168}
0x0e00…0e1c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW3,NUMBER«, t00=0x0008, t01=0x0188}
0x0e1c…0e42 Head {h00=0x0022, h01=0x0050, text=» CBG DEBINW3,BDPOIN(W2),CANC15«, t00=0x0009, t01=0x0014}
0x0e42…0e70 Head {h00=0x002a, h01=0x0050, text=» TBF DBOMVR,CANC15 RECORD TO VERIFY ? «, t00=0x0009, t01=0x003a}
0x0e70…0e9c Head {h00=0x0028, h01=0x0050, text=» TBT DBOVER,CANC15 VERIFIED RECORD ?«, t00=0x0009, t01=0x0068}
0x0e9c…0ec0 Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VERIFY MODE«, t00=0x0009, t01=0x0094}
0x0ec0…0ece Head {h00=0x000a, h01=0x0050, text=»CANC13«, t00=0x0009, t01=0x00b8}
0x0ece…0ef8 Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x0009, t01=0x00c6}
0x0ef8…0f22 Head {h00=0x0026, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL ON SCREEN«, t00=0x0009, t01=0x00f0}
0x0f22…0f32 Head {h00=0x000c, h01=0x0050, text=» B DAT05«, t00=0x0009, t01=0x011a}
0x0f32…0f40 Head {h00=0x000a, h01=0x0050, text=»CANC15«, t00=0x0009, t01=0x012a}
0x0f40…0f54 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0009, t01=0x0138}
0x0f54…0f64 Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0009, t01=0x014c}
0x0f64…0f72 Head {h00=0x000a, h01=0x0050, text=»CANC20«, t00=0x0009, t01=0x015c}
0x0f72…0f9c Head {h00=0x0026, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL ON SCREEN«, t00=0x0009, t01=0x016a}
0x0f9c…0fc6 (10, 0, 398) Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT RECORD«, t00=0x000a, t01=0x0004}
0x0fc6…0fda Head {h00=0x0010, h01=0x0050, text=» BERR DATER2«, t00=0x000a, t01=0x002e}
0x0fda…1006 Head {h00=0x0028, h01=0x0050, text=» CLEAR DECHANGE CHANGED INPUTFILED ?«, t00=0x000a, t01=0x0042}
0x1006…102c Head {h00=0x0022, h01=0x0050, text=» CLEAR DEPROMPT ENTIRE DISPLAY«, t00=0x000a, t01=0x006e}
0x102c…103e Head {h00=0x000e, h01=0x0050, text=» BNZ DAT04«, t00=0x000a, t01=0x0094}
0x103e…106e Head {h00=0x002c, h01=0x0050, text=» ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP «, t00=0x000a, t01=0x00a6}
0x106e…107e Head {h00=0x000c, h01=0x0050, text=» B DAT06«, t00=0x000a, t01=0x00d6}
0x107e…108c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00e6}
0x108c…10a6 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000a, t01=0x00f4}
0x10a6…10c0 Head {h00=0x0016, h01=0x0050, text=»* RETURN PRESSED. «, t00=0x000a, t01=0x010e}
0x10c0…10da Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000a, t01=0x0128}
0x10da…10e8 Head {h00=0x000a, h01=0x0050, text=»RETUDA«, t00=0x000a, t01=0x0142}
0x10e8…1104 Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,RETU05«, t00=0x000a, t01=0x0150}
0x1104…112a Head {h00=0x0022, h01=0x0050, text=» CLEAR DOOL2 INSERT OF RECORD «, t00=0x000a, t01=0x016c}
0x112a…113e (11, 0, 400) Head {h00=0x0010, h01=0x0050, text=» BNZ RETU05 «, t00=0x000b, t01=0x0004}
0x113e…1166 Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,RETU05 VERIFY MODE ?«, t00=0x000b, t01=0x0018}
0x1166…1190 Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST RECORD «, t00=0x000b, t01=0x0040}
0x1190…11a6 Head {h00=0x0012, h01=0x0050, text=» BNERR SERIOUS«, t00=0x000b, t01=0x006a}
0x11a6…11b4 Head {h00=0x000a, h01=0x0050, text=»RETU03«, t00=0x000b, t01=0x0080}
0x11b4…11d0 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x000b, t01=0x008e}
0x11d0…11de Head {h00=0x000a, h01=0x0050, text=»RETU05«, t00=0x000b, t01=0x00aa}
0x11de…11f0 Head {h00=0x000e, h01=0x0050, text=» B SERIOUS«, t00=0x000b, t01=0x00b8}
0x11f0…1208 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x00ca}
0x1208…1220 Head {h00=0x0014, h01=0x0050, text=»* ENTER PRESSED.«, t00=0x000b, t01=0x00e2}
0x1220…1238 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x00fa}
0x1238…1246 Head {h00=0x000a, h01=0x0050, text=»DATENT«, t00=0x000b, t01=0x0112}
0x1246…126e Head {h00=0x0024, h01=0x0050, text=» TBF VERIFM,DAEN00 VERIFY MODE ?«, t00=0x000b, t01=0x0120}
0x126e…127c Head {h00=0x000a, h01=0x0050, text=»VERIFY«, t00=0x000b, t01=0x0148}
0x127c…12a2 Head {h00=0x0022, h01=0x0050, text=» SET DBOVER VERIFIED RECORD ? «, t00=0x000b, t01=0x0156}
0x12a2…12b6 Head {h00=0x0010, h01=0x0050, text=» BNZ RFWD10 «, t00=0x000b, t01=0x017c}
0x12b6…12de Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W2 ENTER OLD RECORD«, t00=0x000b, t01=0x0190}
0x12de…12f2 Head {h00=0x0010, h01=0x0050, text=» BNOK DATER2«, t00=0x000c, t01=0x0028}
0x12f2…1304 Head {h00=0x000e, h01=0x0050, text=» B RFWD10 «, t00=0x000c, t01=0x003c}
0x1304…1312 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x004e}
0x1312…1320 Head {h00=0x000a, h01=0x0050, text=»DAEN00«, t00=0x000c, t01=0x005c}
0x1320…1358 Head {h00=0x0034, h01=0x0050, text=» TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT«, t00=0x000c, t01=0x006a}
0x1358…1384 Head {h00=0x0028, h01=0x0050, text=» PERF DEACC,W0 INCREASE ACCUMULATORS«, t00=0x000c, t01=0x00a2}
0x1384…13ae Head {h00=0x0026, h01=0x0050, text=»DAEN10 CLEAR DOOL2 RECORD INSERT ?«, t00=0x000c, t01=0x00ce}
0x13ae…13c0 Head {h00=0x000e, h01=0x0050, text=» BZ DAEN50«, t00=0x000c, t01=0x00f8}
0x13c0…13e0 Head {h00=0x001c, h01=0x0050, text=»* HANDLE INSERTED RECORD«, t00=0x000c, t01=0x010a}
0x13e0…13ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012a}
0x13ea…140c Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL7 CLEAR/SET CR «, t00=0x000c, t01=0x0134}
0x140c…141e Head {h00=0x000e, h01=0x0050, text=» BZ DAEN15«, t00=0x000c, t01=0x0156}
0x141e…144a Head {h00=0x0028, h01=0x0050, text=» SET DOOL2 INSERT WITH FORMATCHANGE «, t00=0x000c, t01=0x0168}
0x144a…145c (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=» B DAEN59 «, t00=0x000d, t01=0x0004}
0x145c…146a Head {h00=0x000a, h01=0x0050, text=»DAEN15«, t00=0x000d, t01=0x0016}
0x146a…1494 Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x000d, t01=0x0024}
0x1494…14c2 Head {h00=0x002a, h01=0x0050, text=» PERF DERECS,W12 ENTER INSERTED RECORD«, t00=0x000d, t01=0x004e}
0x14c2…14d6 Head {h00=0x0010, h01=0x0050, text=» BOK DAEN30 «, t00=0x000d, t01=0x007c}
0x14d6…14e4 Head {h00=0x000a, h01=0x0050, text=»DAEN20«, t00=0x000d, t01=0x0090}
0x14e4…1510 Head {h00=0x0028, h01=0x0050, text=» PERF DEACC,W1 DECREASE ACCUMULATORS«, t00=0x000d, t01=0x009e}
0x1510…1522 Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x000d, t01=0x00ca}
0x1522…1530 Head {h00=0x000a, h01=0x0050, text=»DAEN30«, t00=0x000d, t01=0x00dc}
0x1530…154c Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,NUMBER «, t00=0x000d, t01=0x00ea}
0x154c…155a Head {h00=0x000a, h01=0x0050, text=»INSERR«, t00=0x000d, t01=0x0106}
0x155a…157a Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W6,DEKTAB5 «, t00=0x000d, t01=0x0114}
0x157a…159c Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,INSERR,RETUDA «, t00=0x000d, t01=0x0134}
0x159c…15b4 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x000d, t01=0x0156}
0x15b4…15de Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x000d, t01=0x016e}
0x15de…15ee Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x000e, t01=0x0008}
0x15ee…15fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0018}
0x15fc…161a Head {h00=0x001a, h01=0x0050, text=»* HANDLE NORMAL INPUT «, t00=0x000e, t01=0x0026}
0x161a…1624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x1624…1632 Head {h00=0x000a, h01=0x0050, text=»DAEN50«, t00=0x000e, t01=0x004e}
0x1632…1660 Head {h00=0x002a, h01=0x0050, text=» TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ?«, t00=0x000e, t01=0x005c}
0x1660…1696 Head {h00=0x0032, h01=0x0050, text=» CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS«, t00=0x000e, t01=0x008a}
0x1696…16a4 Head {h00=0x000a, h01=0x0050, text=»DAEN60«, t00=0x000e, t01=0x00c0}
0x16a4…16c0 Head {h00=0x0018, h01=0x0050, text=» TBF DECHANGE,DAEN61«, t00=0x000e, t01=0x00ce}
0x16c0…16e2 Head {h00=0x001e, h01=0x0050, text=» PERF DERECS,W1 ENTER NEW «, t00=0x000e, t01=0x00ea}
0x16e2…16f6 Head {h00=0x0010, h01=0x0050, text=» BNOK DAEN20«, t00=0x000e, t01=0x010c}
0x16f6…1704 Head {h00=0x000a, h01=0x0050, text=»DAEN61«, t00=0x000e, t01=0x0120}
0x1704…1726 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL5 CLEAR/SET CR «, t00=0x000e, t01=0x012e}
0x1726…1748 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL7 CLEAR/SET CR «, t00=0x000e, t01=0x0150}
0x1748…1772 Head {h00=0x0026, h01=0x0050, text=» BOK DAEN62 NO FORMAT CHANGE FOUND«, t00=0x000e, t01=0x0172}
0x1772…1780 Head {h00=0x000a, h01=0x0050, text=»DAEN59«, t00=0x000f, t01=0x000c}
0x1780…17b2 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) «, t00=0x000f, t01=0x001a}
0x17b2…17c4 Head {h00=0x000e, h01=0x0050, text=» B DAEN63 «, t00=0x000f, t01=0x004c}
0x17c4…17d2 Head {h00=0x000a, h01=0x0050, text=»DAEN62«, t00=0x000f, t01=0x005e}
0x17d2…17f4 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL3 CLEAR/SET CR «, t00=0x000f, t01=0x006c}
0x17f4…181e Head {h00=0x0026, h01=0x0050, text=» BOK DAEN65 NO FORMAT CHANGE FOUND«, t00=0x000f, t01=0x008e}
0x181e…1854 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG «, t00=0x000f, t01=0x00b8}
0x1854…1862 Head {h00=0x000a, h01=0x0050, text=»DAEN63«, t00=0x000f, t01=0x00ee}
0x1862…189e Head {h00=0x0038, h01=0x0050, text=» CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE «, t00=0x000f, t01=0x00fc}
0x189e…18b2 Head {h00=0x0010, h01=0x0050, text=» BNOK DAEN65«, t00=0x000f, t01=0x0138}
0x18b2…18cc Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'*' «, t00=0x000f, t01=0x014c}
0x18cc…18fc Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,W0 LOOK IF BALANCE-FORMAT «, t00=0x000f, t01=0x0166}
0x18fc…1932 Head {h00=0x0032, h01=0x0050, text=» MATCH STSAVE(DEBINW4),DEBINW3,W1,STR1A,W0,W1 «, t00=0x0010, t01=0x0008}
0x1932…1958 Head {h00=0x0022, h01=0x0050, text=» BNOK DAEN67 DATAENTER-FORMAT «, t00=0x0010, t01=0x003e}
0x1958…1984 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN3,DEBINW4 SAVE FORMATINDEX «, t00=0x0010, t01=0x0064}
0x1984…19ae Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST RECORD «, t00=0x0010, t01=0x0090}
0x19ae…19c2 Head {h00=0x0010, h01=0x0050, text=» BOK DAEN66 «, t00=0x0010, t01=0x00ba}
0x19c2…19fe Head {h00=0x0038, h01=0x0050, text=» CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE«, t00=0x0010, t01=0x00ce}
0x19fe…1a0c Head {h00=0x000a, h01=0x0050, text=»DAEN66«, t00=0x0010, t01=0x010a}
0x1a0c…1a28 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0010, t01=0x0118}
0x1a28…1a62 Head {h00=0x0036, h01=0x0050, text=» COPY DEINPUT,W0,W6,STSAVE(BIN3),W0 GET FORMATNAME«, t00=0x0010, t01=0x0134}
0x1a62…1a7c Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x0010, t01=0x016e}
0x1a7c…1aa0 Head {h00=0x0020, h01=0x0050, text=» B TOTB05 GET BALANCE-FORMAT«, t00=0x0010, t01=0x0188}
0x1aa0…1aae Head {h00=0x000a, h01=0x0050, text=»DAEN67«, t00=0x0011, t01=0x001c}
0x1aae…1aca Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0011, t01=0x002a}
0x1aca…1b08 Head {h00=0x003a, h01=0x0050, text=» COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME «, t00=0x0011, t01=0x0046}
0x1b08…1b2c Head {h00=0x0020, h01=0x0050, text=» CLEAR DOOL8 OPEN NEW BATCH «, t00=0x0011, t01=0x0084}
0x1b2c…1b52 Head {h00=0x0022, h01=0x0050, text=» PERF DERECS,W14 CHANGE FORMAT«, t00=0x0011, t01=0x00a8}
0x1b52…1b66 Head {h00=0x0010, h01=0x0050, text=» BOK DAEN64 «, t00=0x0011, t01=0x00ce}
0x1b66…1b88 Head {h00=0x001e, h01=0x0050, text=» CBNE NUMBER,=D'0',DAEN69 «, t00=0x0011, t01=0x00e2}
0x1b88…1b9e Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x0011, t01=0x0104}
0x1b9e…1bac Head {h00=0x000a, h01=0x0050, text=»DAEN69«, t00=0x0011, t01=0x011a}
0x1bac…1bbe Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x0011, t01=0x0128}
0x1bbe…1bcc Head {h00=0x000a, h01=0x0050, text=»DAEN64«, t00=0x0011, t01=0x013a}
0x1bcc…1bde Head {h00=0x000e, h01=0x0050, text=» SET SOOL2«, t00=0x0011, t01=0x0148}
0x1bde…1bec Head {h00=0x000a, h01=0x0050, text=»DAEN65«, t00=0x0011, t01=0x015a}
0x1bec…1bfe Head {h00=0x000e, h01=0x0050, text=» SET SOOL2«, t00=0x0011, t01=0x0168}
0x1bfe…1c12 Head {h00=0x0010, h01=0x0050, text=» BNZ DAEN70 «, t00=0x0011, t01=0x017a}
0x1c12…1c2a Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0011, t01=0x018e}
0x1c2a…1c3c Head {h00=0x000e, h01=0x0050, text=» SET DOOL8«, t00=0x0012, t01=0x0016}
0x1c3c…1c54 Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W10«, t00=0x0012, t01=0x0028}
0x1c54…1c68 Head {h00=0x0010, h01=0x0050, text=» BOK DAEN68 «, t00=0x0012, t01=0x0040}
0x1c68…1c7c Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL8«, t00=0x0012, t01=0x0054}
0x1c7c…1c8e Head {h00=0x000e, h01=0x0050, text=» B DATER4 «, t00=0x0012, t01=0x0068}
0x1c8e…1c9c Head {h00=0x000a, h01=0x0050, text=»DAEN68«, t00=0x0012, t01=0x007a}
0x1c9c…1cb0 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL8«, t00=0x0012, t01=0x0088}
0x1cb0…1cbe Head {h00=0x000a, h01=0x0050, text=»DAEN70«, t00=0x0012, t01=0x009c}
0x1cbe…1cd6 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0012, t01=0x00aa}
0x1cd6…1ce6 Head {h00=0x000c, h01=0x0050, text=» BZ DAT0«, t00=0x0012, t01=0x00c2}
0x1ce6…1cfc Head {h00=0x0012, h01=0x0050, text=» CLEAR SW95PR «, t00=0x0012, t01=0x00d2}
0x1cfc…1d0e Head {h00=0x000e, h01=0x0050, text=» BZ DAEN80«, t00=0x0012, t01=0x00e8}
0x1d0e…1d2a Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'-1'«, t00=0x0012, t01=0x00fa}
0x1d2a…1d46 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTABS«, t00=0x0012, t01=0x0116}
0x1d46…1d6e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,DAEN80,DAEN80,RETUDA«, t00=0x0012, t01=0x0132}
0x1d6e…1d7c Head {h00=0x000a, h01=0x0050, text=»DAEN80«, t00=0x0012, t01=0x015a}
0x1d7c…1da6 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x0012, t01=0x0168}
0x1da6…1dc6 (19, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W6,DAEN85 «, t00=0x0013, t01=0x0004}
0x1dc6…1de0 Head {h00=0x0016, h01=0x0050, text=» TBF DBOMVR,DAEN85«, t00=0x0013, t01=0x0024}
0x1de0…1e0a Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST SECTOR «, t00=0x0013, t01=0x003e}
0x1e0a…1e1e Head {h00=0x0010, h01=0x0050, text=» BERR DATER2«, t00=0x0013, t01=0x0068}
0x1e1e…1e42 Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VERIFY MODE«, t00=0x0013, t01=0x007c}
0x1e42…1e54 Head {h00=0x000e, h01=0x0050, text=» B RFWD02 «, t00=0x0013, t01=0x00a0}
0x1e54…1e62 Head {h00=0x000a, h01=0x0050, text=»DAEN85«, t00=0x0013, t01=0x00b2}
0x1e62…1e72 Head {h00=0x000c, h01=0x0050, text=» B DAT0 «, t00=0x0013, t01=0x00c0}
0x1e72…1e80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00d0}
0x1e80…1e9a Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0013, t01=0x00de}
0x1e9a…1eb4 Head {h00=0x0016, h01=0x0050, text=»* RECORD FORWARD. «, t00=0x0013, t01=0x00f8}
0x1eb4…1ece Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0013, t01=0x0112}
0x1ece…1edc Head {h00=0x000a, h01=0x0050, text=»RFWDDA«, t00=0x0013, t01=0x012c}
0x1edc…1ef8 Head {h00=0x0018, h01=0x0050, text=» TBT DECHANGE,RFWD07«, t00=0x0013, t01=0x013a}
0x1ef8…1f20 Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,RFWD04 VERIFY MODE ?«, t00=0x0013, t01=0x0156}
0x1f20…1f4a Head {h00=0x0026, h01=0x0050, text=» TBT DOOL2,RFWD06 INSERT OF RECORD«, t00=0x0013, t01=0x017e}
0x1f4a…1f74 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x0014, t01=0x0018}
0x1f74…1fa2 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? «, t00=0x0014, t01=0x0042}
0x1fa2…1fce Head {h00=0x0028, h01=0x0050, text=» TBF DBOMVR,RFWD03 RECORD TO VERIFY «, t00=0x0014, t01=0x0070}
0x1fce…1ff2 Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VERIFY MODE«, t00=0x0014, t01=0x009c}
0x1ff2…200c Head {h00=0x0016, h01=0x0050, text=» TBT DBOVER,RFWD10«, t00=0x0014, t01=0x00c0}
0x200c…201a Head {h00=0x000a, h01=0x0050, text=»RFWD02«, t00=0x0014, t01=0x00da}
0x201a…203a Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W9,DEKTAB8 «, t00=0x0014, t01=0x00e8}
0x203a…204c Head {h00=0x000e, h01=0x0050, text=» B CANC13 «, t00=0x0014, t01=0x0108}
0x204c…205a Head {h00=0x000a, h01=0x0050, text=»RFWD04«, t00=0x0014, t01=0x011a}
0x205a…2086 Head {h00=0x0028, h01=0x0050, text=» TBT DBOVER,RFWD10 VERIFIED RECORD ?«, t00=0x0014, t01=0x0128}
0x2086…20a6 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W9,DEKTAB8 «, t00=0x0014, t01=0x0154}
0x20a6…20b8 Head {h00=0x000e, h01=0x0050, text=» B CANC15 «, t00=0x0014, t01=0x0174}
0x20b8…20c6 Head {h00=0x000a, h01=0x0050, text=»RFWD03«, t00=0x0014, t01=0x0186}
0x20c6…20e0 (21, 0, 398) Head {h00=0x0016, h01=0x0050, text=» TBT DOOL8,RFWD07 «, t00=0x0015, t01=0x0004}
0x20e0…210c Head {h00=0x0028, h01=0x0050, text=» TBF DOOL2,RFWD05 JUMP IF NOT INSERT«, t00=0x0015, t01=0x001e}
0x210c…211a Head {h00=0x000a, h01=0x0050, text=»RFWD06«, t00=0x0015, t01=0x004a}
0x211a…2140 Head {h00=0x0022, h01=0x0050, text=» B RBWD10 GET PREVIOUS RECORD «, t00=0x0015, t01=0x0058}
0x2140…214e Head {h00=0x000a, h01=0x0050, text=»RFWD05«, t00=0x0015, t01=0x007e}
0x214e…216a Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,RFWD10«, t00=0x0015, t01=0x008c}
0x216a…2178 Head {h00=0x000a, h01=0x0050, text=»RFWD07«, t00=0x0015, t01=0x00a8}
0x2178…218a Head {h00=0x000e, h01=0x0050, text=» B DATERR «, t00=0x0015, t01=0x00b6}
0x218a…2198 Head {h00=0x000a, h01=0x0050, text=»RFWD10«, t00=0x0015, t01=0x00c8}
0x2198…21b4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW3,NUMBER«, t00=0x0015, t01=0x00d6}
0x21b4…21dc Head {h00=0x0024, h01=0x0050, text=» CBNE DEBINW3,BDPOIN(W2),RFWD15 «, t00=0x0015, t01=0x00f2}
0x21dc…21f0 Head {h00=0x0010, h01=0x0050, text=» TEST VERIFM«, t00=0x0015, t01=0x011a}
0x21f0…221a Head {h00=0x0026, h01=0x0050, text=» BNZ TOTBAL JUMP VERIFY TO BALANCE«, t00=0x0015, t01=0x012e}
0x221a…2228 Head {h00=0x000a, h01=0x0050, text=»RFWD13«, t00=0x0015, t01=0x0158}
0x2228…224a Head {h00=0x001e, h01=0x0050, text=» CBNE NUMBER,=D'0',RFWD14 «, t00=0x0015, t01=0x0166}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=»RFWD12«, t00=0x0015, t01=0x0188}
0x2258…226c Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x0016, t01=0x0008}
0x226c…227a Head {h00=0x000a, h01=0x0050, text=»RFWD14«, t00=0x0016, t01=0x001c}
0x227a…22a2 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W9 NO MORE RECORDS«, t00=0x0016, t01=0x002a}
0x22a2…22b4 Head {h00=0x000e, h01=0x0050, text=» B RFWD33 «, t00=0x0016, t01=0x0052}
0x22b4…22c2 Head {h00=0x000a, h01=0x0050, text=»RFWD15«, t00=0x0016, t01=0x0064}
0x22c2…22ea Head {h00=0x0024, h01=0x0050, text=» TBT VERIFM,RFWD23 VERIFY MODE? «, t00=0x0016, t01=0x0072}
0x22ea…230a Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W15,DEKTABR«, t00=0x0016, t01=0x009a}
0x230a…2336 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,PROCAN,PROCAN,RETUDA C «, t00=0x0016, t01=0x00ba}
0x2336…234e Head {h00=0x0014, h01=0x0050, text=» RFWD18,RBWDDA «, t00=0x0016, t01=0x00e6}
0x234e…2366 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W4«, t00=0x0016, t01=0x00fe}
0x2366…2374 Head {h00=0x000a, h01=0x0050, text=»RFWD22«, t00=0x0016, t01=0x0116}
0x2374…2394 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),DEINPUT«, t00=0x0016, t01=0x0124}
0x2394…23ba Head {h00=0x0022, h01=0x0050, text=» CBG BCDI21(W3),NUMBER,RFWD17 «, t00=0x0016, t01=0x0144}
0x23ba…23e2 Head {h00=0x0024, h01=0x0050, text=»RFWD16 ILLEGAL NUMBER ENTERED «, t00=0x0016, t01=0x016a}
0x23e2…240a (23, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER RESTORE «, t00=0x0017, t01=0x0004}
0x240a…2422 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W6«, t00=0x0017, t01=0x002c}
0x2422…2434 Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x0017, t01=0x0044}
0x2434…2442 Head {h00=0x000a, h01=0x0050, text=»RFWD17«, t00=0x0017, t01=0x0056}
0x2442…2462 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,BCDI21(W3)«, t00=0x0017, t01=0x0064}
0x2462…2496 Head {h00=0x0030, h01=0x0050, text=» CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH«, t00=0x0017, t01=0x0084}
0x2496…24be Head {h00=0x0024, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER RESTORE «, t00=0x0017, t01=0x00b8}
0x24be…24da Head {h00=0x0018, h01=0x0050, text=» B RFWD13 NOT FOUND «, t00=0x0017, t01=0x00e0}
0x24da…24e8 Head {h00=0x000a, h01=0x0050, text=»RFWD18«, t00=0x0017, t01=0x00fc}
0x24e8…2500 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW1,W1 «, t00=0x0017, t01=0x010a}
0x2500…2514 Head {h00=0x0010, h01=0x0050, text=» BNZ RFWD22 «, t00=0x0017, t01=0x0122}
0x2514…2522 Head {h00=0x000a, h01=0x0050, text=»RFWD23«, t00=0x0017, t01=0x0136}
0x2522…2542 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER «, t00=0x0017, t01=0x0144}
0x2542…2560 Head {h00=0x001a, h01=0x0050, text=» ADD BCDI21(W3),=D'1' «, t00=0x0017, t01=0x0164}
0x2560…2572 Head {h00=0x000e, h01=0x0050, text=» B RFWD17 «, t00=0x0017, t01=0x0182}
0x2572…2580 (24, 0, 400) Head {h00=0x000a, h01=0x0050, text=»RFWD19«, t00=0x0018, t01=0x0004}
0x2580…25aa Head {h00=0x0026, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL ON SCREEN«, t00=0x0018, t01=0x0012}
0x25aa…25b8 Head {h00=0x000a, h01=0x0050, text=»RFWD20«, t00=0x0018, t01=0x003c}
0x25b8…25e0 Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W4 GET NEXT RECORD «, t00=0x0018, t01=0x004a}
0x25e0…25ee Head {h00=0x000a, h01=0x0050, text=»RFWD30«, t00=0x0018, t01=0x0072}
0x25ee…2602 Head {h00=0x0010, h01=0x0050, text=» BOK RFWD40 «, t00=0x0018, t01=0x0080}
0x2602…2616 Head {h00=0x0010, h01=0x0050, text=» BOFL RETU03«, t00=0x0018, t01=0x0094}
0x2616…262a Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLC«, t00=0x0018, t01=0x00a8}
0x262a…2654 Head {h00=0x0026, h01=0x0050, text=» CBNE PINDFR,W0,RFWD33 CURR FORMAT«, t00=0x0018, t01=0x00bc}
0x2654…2682 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? «, t00=0x0018, t01=0x00e6}
0x2682…26aa Head {h00=0x0024, h01=0x0050, text=» TBF VERIFM,RFWD31 VERIFY MODE ?«, t00=0x0018, t01=0x0114}
0x26aa…26d8 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W13,RFWD20 NO WORKSPACE ?«, t00=0x0018, t01=0x013c}
0x26d8…26e6 Head {h00=0x000a, h01=0x0050, text=»RFWD31«, t00=0x0018, t01=0x016a}
0x26e6…2710 Head {h00=0x0026, h01=0x0050, text=» CBE NUMBER,=D'0',RFWD32 BATCHHEAD«, t00=0x0018, t01=0x0178}
0x2710…2722 Head {h00=0x000e, h01=0x0050, text=» SET SOOL2«, t00=0x0019, t01=0x0012}
0x2722…2734 Head {h00=0x000e, h01=0x0050, text=» B DATER4 «, t00=0x0019, t01=0x0024}
0x2734…2742 Head {h00=0x000a, h01=0x0050, text=»RFWD32«, t00=0x0019, t01=0x0036}
0x2742…2756 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x0019, t01=0x0044}
0x2756…2768 Head {h00=0x000e, h01=0x0050, text=» B DATER4 «, t00=0x0019, t01=0x0058}
0x2768…2776 Head {h00=0x000a, h01=0x0050, text=»RFWD33«, t00=0x0019, t01=0x006a}
0x2776…2790 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,RFWD38«, t00=0x0019, t01=0x0078}
0x2790…27a4 Head {h00=0x0010, h01=0x0050, text=» TEST BDAVER«, t00=0x0019, t01=0x0092}
0x27a4…27b8 Head {h00=0x0010, h01=0x0050, text=» BNZ TOTBAL «, t00=0x0019, t01=0x00a6}
0x27b8…27d2 Head {h00=0x0016, h01=0x0050, text=» TBT KEYVER,RFWD35«, t00=0x0019, t01=0x00ba}
0x27d2…27ec Head {h00=0x0016, h01=0x0050, text=» DISPLAY 30,W1,W0 «, t00=0x0019, t01=0x00d4}
0x27ec…27fe Head {h00=0x000e, h01=0x0050, text=» B RFWD39 «, t00=0x0019, t01=0x00ee}
0x27fe…280c Head {h00=0x000a, h01=0x0050, text=»RFWD35«, t00=0x0019, t01=0x0100}
0x280c…2826 Head {h00=0x0016, h01=0x0050, text=» DISPLAY 20,W1,W0 «, t00=0x0019, t01=0x010e}
0x2826…2838 Head {h00=0x000e, h01=0x0050, text=» B RFWD39 «, t00=0x0019, t01=0x0128}
0x2838…2846 Head {h00=0x000a, h01=0x0050, text=»RFWD38«, t00=0x0019, t01=0x013a}
0x2846…285e Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W15«, t00=0x0019, t01=0x0148}
0x285e…2886 Head {h00=0x0024, h01=0x0050, text=» BZ TOTBAL JUMP TO BAL IF SEARCH«, t00=0x0019, t01=0x0160}
0x2886…289e Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0019, t01=0x0188}
0x289e…28ac Head {h00=0x000a, h01=0x0050, text=»RFWD39«, t00=0x001a, t01=0x0010}
0x28ac…28ba Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x001a, t01=0x001e}
0x28ba…28cc Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x001a, t01=0x002c}
0x28cc…28da Head {h00=0x000a, h01=0x0050, text=»RFWD40«, t00=0x001a, t01=0x003e}
0x28da…28fa Head {h00=0x001c, h01=0x0050, text=» SET SOOL2 NOT BATCHHEAD«, t00=0x001a, t01=0x004c}
0x28fa…2926 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW2,W5,RFWD50 RBWD PRESSED «, t00=0x001a, t01=0x006c}
0x2926…2950 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x001a, t01=0x0098}
0x2950…297a Head {h00=0x0026, h01=0x0050, text=» CBNE DEBINW4,W6,RFWD50 NOT VERIFY«, t00=0x001a, t01=0x00c2}
0x297a…2994 Head {h00=0x0016, h01=0x0050, text=» TBF DBOMVR,RFWD10«, t00=0x001a, t01=0x00ec}
0x2994…29b8 Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VERIFY MODE«, t00=0x001a, t01=0x0106}
0x29b8…29d2 Head {h00=0x0016, h01=0x0050, text=» TBT DBOVER,RFWD10«, t00=0x001a, t01=0x012a}
0x29d2…29fc Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x001a, t01=0x0144}
0x29fc…2a0c Head {h00=0x000c, h01=0x0050, text=» B DAT05«, t00=0x001a, t01=0x016e}
0x2a0c…2a1a Head {h00=0x000a, h01=0x0050, text=»RFWD50«, t00=0x001a, t01=0x017e}
0x2a1a…2a32 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x001a, t01=0x018c}
0x2a32…2a40 Head {h00=0x000a, h01=0x0050, text=»RFWD60«, t00=0x001b, t01=0x0014}
0x2a40…2a60 Head {h00=0x001c, h01=0x0050, text=» CBE NUMBER,=D'0',RFWD70«, t00=0x001b, t01=0x0022}
0x2a60…2a74 Head {h00=0x0010, h01=0x0050, text=» TEST VERIFM«, t00=0x001b, t01=0x0042}
0x2a74…2a86 Head {h00=0x000e, h01=0x0050, text=» BZ DAT06 «, t00=0x001b, t01=0x0056}
0x2a86…2a96 Head {h00=0x000c, h01=0x0050, text=» B DAT05«, t00=0x001b, t01=0x0068}
0x2a96…2aa4 Head {h00=0x000a, h01=0x0050, text=»RFWD70«, t00=0x001b, t01=0x0078}
0x2aa4…2ab8 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x001b, t01=0x0086}
0x2ab8…2acc Head {h00=0x0010, h01=0x0050, text=» TEST VERIFM«, t00=0x001b, t01=0x009a}
0x2acc…2ade Head {h00=0x000e, h01=0x0050, text=» BZ DAT0X «, t00=0x001b, t01=0x00ae}
0x2ade…2aee Head {h00=0x000c, h01=0x0050, text=» B DAT05«, t00=0x001b, t01=0x00c0}
0x2aee…2afc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00d0}
0x2afc…2b16 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001b, t01=0x00de}
0x2b16…2b30 Head {h00=0x0016, h01=0x0050, text=»* RECORD BACKWARD «, t00=0x001b, t01=0x00f8}
0x2b30…2b4a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001b, t01=0x0112}
0x2b4a…2b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b54…2b6c Head {h00=0x0014, h01=0x0050, text=»RBWERR B DATERR «, t00=0x001b, t01=0x0136}
0x2b6c…2b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014e}
0x2b76…2b98 Head {h00=0x001e, h01=0x0050, text=»RBWDDA TBT DECHANGE,RBWERR«, t00=0x001b, t01=0x0158}
0x2b98…2bb2 Head {h00=0x0016, h01=0x0050, text=» TBF SOOL2,RBWERR «, t00=0x001b, t01=0x017a}
0x2bb2…2bdc (28, 0, 400) Head {h00=0x0026, h01=0x0050, text=» TBT DOOL2,RBWD10 INSERT OF RECORD«, t00=0x001c, t01=0x0004}
0x2bdc…2c06 Head {h00=0x0026, h01=0x0050, text=» CBE NUMBER,=D'0',RFWD12 BATCHHEAD«, t00=0x001c, t01=0x002e}
0x2c06…2c30 Head {h00=0x0026, h01=0x0050, text=» PERF DEVERC CLEAR IF VERIFY MODE «, t00=0x001c, t01=0x0058}
0x2c30…2c44 Head {h00=0x0010, h01=0x0050, text=» BNZ RBWD10 «, t00=0x001c, t01=0x0082}
0x2c44…2c60 Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,RBWD15«, t00=0x001c, t01=0x0096}
0x2c60…2c8a Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x001c, t01=0x00b2}
0x2c8a…2cb4 Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST SECTOR «, t00=0x001c, t01=0x00dc}
0x2cb4…2cc8 Head {h00=0x0010, h01=0x0050, text=» BERR DATER2«, t00=0x001c, t01=0x0106}
0x2cc8…2cda Head {h00=0x000e, h01=0x0050, text=» B RFWD50 «, t00=0x001c, t01=0x011a}
0x2cda…2ce8 Head {h00=0x000a, h01=0x0050, text=»RBWD10«, t00=0x001c, t01=0x012c}
0x2ce8…2d12 Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x001c, t01=0x013a}
0x2d12…2d38 Head {h00=0x0022, h01=0x0050, text=» CLEAR DOOL2 INSERT OF RECORD?«, t00=0x001c, t01=0x0164}
0x2d38…2d50 Head {h00=0x0014, h01=0x0050, text=» BNZ RBWD28 YES!«, t00=0x001c, t01=0x018a}
0x2d50…2d5e Head {h00=0x000a, h01=0x0050, text=»RBWD15«, t00=0x001d, t01=0x0012}
0x2d5e…2d7e Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W15,DEKTABR«, t00=0x001d, t01=0x0020}
0x2d7e…2daa Head {h00=0x0028, h01=0x0050, text=» IB DEBINW2,PROCAN,PROCAN,RETUDA C «, t00=0x001d, t01=0x0040}
0x2daa…2dc2 Head {h00=0x0014, h01=0x0050, text=» RFWDDA,RBWD25 «, t00=0x001d, t01=0x006c}
0x2dc2…2dda Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W5«, t00=0x001d, t01=0x0084}
0x2dda…2de8 Head {h00=0x000a, h01=0x0050, text=»RBWD20«, t00=0x001d, t01=0x009c}
0x2de8…2e08 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),DEINPUT«, t00=0x001d, t01=0x00aa}
0x2e08…2e2e Head {h00=0x0022, h01=0x0050, text=» CBNL BCDI21(W3),NUMBER,RFWD16«, t00=0x001d, t01=0x00ca}
0x2e2e…2e40 Head {h00=0x000e, h01=0x0050, text=» B RBWD30 «, t00=0x001d, t01=0x00f0}
0x2e40…2e4e Head {h00=0x000a, h01=0x0050, text=»RBWD25«, t00=0x001d, t01=0x0102}
0x2e4e…2e66 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW1,W1 «, t00=0x001d, t01=0x0110}
0x2e66…2e7a Head {h00=0x0010, h01=0x0050, text=» BNZ RBWD20 «, t00=0x001d, t01=0x0128}
0x2e7a…2e88 Head {h00=0x000a, h01=0x0050, text=»RBWD28«, t00=0x001d, t01=0x013c}
0x2e88…2ea8 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER «, t00=0x001d, t01=0x014a}
0x2ea8…2ec6 Head {h00=0x001a, h01=0x0050, text=» SUB BCDI21(W3),=D'1' «, t00=0x001d, t01=0x016a}
0x2ec6…2ed4 Head {h00=0x000a, h01=0x0050, text=»RBWD30«, t00=0x001d, t01=0x0188}
0x2ed4…2f02 Head {h00=0x002a, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP«, t00=0x001e, t01=0x0008}
0x2f02…2f2e Head {h00=0x0028, h01=0x0050, text=» PERF DERECS,W6 GET PREVIOUS RECORD «, t00=0x001e, t01=0x0036}
0x2f2e…2f40 Head {h00=0x000e, h01=0x0050, text=» B RFWD30 «, t00=0x001e, t01=0x0062}
0x2f40…2f4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0074}
0x2f4e…2f6a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001e, t01=0x0082}
0x2f6a…2f86 Head {h00=0x0018, h01=0x0050, text=»* RECORD CORRECTION «, t00=0x001e, t01=0x009e}
0x2f86…2fa2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001e, t01=0x00ba}
0x2fa2…2fb0 Head {h00=0x000a, h01=0x0050, text=»CORDAT«, t00=0x001e, t01=0x00d6}
0x2fb0…2fca Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,CORD10«, t00=0x001e, t01=0x00e4}
0x2fca…2fe6 Head {h00=0x0018, h01=0x0050, text=» TBF DENOCHAN,RBWERR«, t00=0x001e, t01=0x00fe}
0x2fe6…2ff4 Head {h00=0x000a, h01=0x0050, text=»CORD10«, t00=0x001e, t01=0x011a}
0x2ff4…3014 Head {h00=0x001c, h01=0x0050, text=» TBT DOOL2,RBWERR INSERT«, t00=0x001e, t01=0x0128}
0x3014…302a Head {h00=0x0012, h01=0x0050, text=» CLEAR DBOVER «, t00=0x001e, t01=0x0148}
0x302a…3040 Head {h00=0x0012, h01=0x0050, text=» CLEAR DBOFOR «, t00=0x001e, t01=0x015e}
0x3040…306c Head {h00=0x0028, h01=0x0050, text=» PERF DEACC,W1 DECREASE ACCUMULATORS«, t00=0x001e, t01=0x0174}
0x306c…307a Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x001f, t01=0x0010}
0x307a…30a4 Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x001f, t01=0x001e}
0x30a4…30c4 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W8,DEKTAB7 «, t00=0x001f, t01=0x0048}
0x30c4…30ec Head {h00=0x0024, h01=0x0050, text=» SET CORR SET CORRECTION MODE,DK«, t00=0x001f, t01=0x0068}
0x30ec…3116 Head {h00=0x0026, h01=0x0050, text=» PERF DEVERC CLEAR IF VERIFY MODE «, t00=0x001f, t01=0x0090}
0x3116…3128 Head {h00=0x000e, h01=0x0050, text=» BZ CORD20«, t00=0x001f, t01=0x00ba}
0x3128…313c Head {h00=0x0010, h01=0x0050, text=» PERF DECLRD«, t00=0x001f, t01=0x00cc}
0x313c…314e Head {h00=0x000e, h01=0x0050, text=» B CORD30 «, t00=0x001f, t01=0x00e0}
0x314e…315c Head {h00=0x000a, h01=0x0050, text=»CORD20«, t00=0x001f, t01=0x00f2}
0x315c…3170 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x001f, t01=0x0100}
0x3170…317e Head {h00=0x000a, h01=0x0050, text=»CORD30«, t00=0x001f, t01=0x0114}
0x317e…3192 Head {h00=0x0010, h01=0x0050, text=» CLEAR CORR «, t00=0x001f, t01=0x0122}
0x3192…31aa Head {h00=0x0014, h01=0x0050, text=» IB DEBINW2, C «, t00=0x001f, t01=0x0136}
0x31aa…31c2 Head {h00=0x0014, h01=0x0050, text=» CORCAN, CLR C «, t00=0x001f, t01=0x014e}
0x31c2…31da Head {h00=0x0014, h01=0x0050, text=» CORC10, CAN C «, t00=0x001f, t01=0x0166}
0x31da…31ee Head {h00=0x0010, h01=0x0050, text=» CORENT ENT«, t00=0x001f, t01=0x017e}
0x31ee…31fc (32, 0, 400) Head {h00=0x000a, h01=0x0050, text=»CORD35«, t00=0x0020, t01=0x0004}
0x31fc…3214 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0020, t01=0x0012}
0x3214…3222 Head {h00=0x000a, h01=0x0050, text=»CORD40«, t00=0x0020, t01=0x002a}
0x3222…3234 Head {h00=0x000e, h01=0x0050, text=» SET CORR «, t00=0x0020, t01=0x0038}
0x3234…3246 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0020, t01=0x004a}
0x3246…3258 Head {h00=0x000e, h01=0x0050, text=» B CORD30 «, t00=0x0020, t01=0x005c}
0x3258…3266 Head {h00=0x000a, h01=0x0050, text=»CORCAN«, t00=0x0020, t01=0x006e}
0x3266…3292 Head {h00=0x0028, h01=0x0050, text=» TBF DECHANGE,CORE15 NO CHANGES MADE«, t00=0x0020, t01=0x007c}
0x3292…32bc Head {h00=0x0026, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL ON SCREEN«, t00=0x0020, t01=0x00a8}
0x32bc…32ca Head {h00=0x000a, h01=0x0050, text=»CORC10«, t00=0x0020, t01=0x00d2}
0x32ca…32dc Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0020, t01=0x00e0}
0x32dc…3306 Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT RECORD«, t00=0x0020, t01=0x00f2}
0x3306…331c Head {h00=0x0012, h01=0x0050, text=» BNERR CORRET «, t00=0x0020, t01=0x011c}
0x331c…3330 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0020, t01=0x0132}
0x3330…3342 Head {h00=0x000e, h01=0x0050, text=» B CORD40 «, t00=0x0020, t01=0x0146}
0x3342…3350 Head {h00=0x000a, h01=0x0050, text=»CORRET«, t00=0x0020, t01=0x0158}
0x3350…3364 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0020, t01=0x0166}
0x3364…3372 Head {h00=0x000a, h01=0x0050, text=»CORE15«, t00=0x0020, t01=0x017a}
0x3372…339e Head {h00=0x0028, h01=0x0050, text=» PERF DEACC,W2 INCREASE ACCUMULATORS«, t00=0x0020, t01=0x0188}
0x339e…33b6 Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0021, t01=0x0024}
0x33b6…33c4 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0021, t01=0x003c}
0x33c4…3402 Head {h00=0x003a, h01=0x0050, text=»CORR30 IB DEBINW2,CORE10,SERIOUS,CORE20 CAN,RET,ENT C «, t00=0x0021, t01=0x004a}
0x3402…342c Head {h00=0x0026, h01=0x0050, text=» CORENT,CORENT,CORENT NOT USED C «, t00=0x0021, t01=0x0088}
0x342c…3440 Head {h00=0x0010, h01=0x0050, text=» CORDEL DEL«, t00=0x0021, t01=0x00b2}
0x3440…344e Head {h00=0x000a, h01=0x0050, text=»CORENT«, t00=0x0021, t01=0x00c6}
0x344e…3470 Head {h00=0x001e, h01=0x0050, text=» PERF DERECS,W2 ENTER OLD «, t00=0x0021, t01=0x00d4}
0x3470…3484 Head {h00=0x0010, h01=0x0050, text=» BNOK CORD40«, t00=0x0021, t01=0x00f6}
0x3484…3492 Head {h00=0x000a, h01=0x0050, text=»CORE10«, t00=0x0021, t01=0x010a}
0x3492…34ac Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW3,W24 «, t00=0x0021, t01=0x0118}
0x34ac…34dc Head {h00=0x002c, h01=0x0050, text=» ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE«, t00=0x0021, t01=0x0132}
0x34dc…3506 Head {h00=0x0026, h01=0x0050, text=» CBNE DEBINW2,W1,CORE15 NOT CANCE «, t00=0x0021, t01=0x0162}
0x3506…3518 Head {h00=0x000e, h01=0x0050, text=» B CORE45 «, t00=0x0021, t01=0x018c}
0x3518…3526 Head {h00=0x000a, h01=0x0050, text=»CORE20«, t00=0x0022, t01=0x000e}
0x3526…3542 Head {h00=0x0018, h01=0x0050, text=» GETFLD 0,W1,DEBINW1«, t00=0x0022, t01=0x001c}
0x3542…355a Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x0022, t01=0x0038}
0x355a…3568 Head {h00=0x000a, h01=0x0050, text=»CORE45«, t00=0x0022, t01=0x0050}
0x3568…3592 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x0022, t01=0x005e}
0x3592…35b2 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W6,CORE60 «, t00=0x0022, t01=0x0088}
0x35b2…35c0 Head {h00=0x000a, h01=0x0050, text=»CORE50«, t00=0x0022, t01=0x00a8}
0x35c0…35da Head {h00=0x0016, h01=0x0050, text=» TBF DBOMVR,CORE60«, t00=0x0022, t01=0x00b6}
0x35da…35f4 Head {h00=0x0016, h01=0x0050, text=» TBT DBOVER,CORE60«, t00=0x0022, t01=0x00d0}
0x35f4…3618 Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VEIFY MODE «, t00=0x0022, t01=0x00ea}
0x3618…362a Head {h00=0x000e, h01=0x0050, text=» B RFWD02 «, t00=0x0022, t01=0x010e}
0x362a…3638 Head {h00=0x000a, h01=0x0050, text=»CORE60«, t00=0x0022, t01=0x0120}
0x3638…3662 Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x0022, t01=0x012e}
0x3662…3694 Head {h00=0x002e, h01=0x0050, text=» CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL«, t00=0x0022, t01=0x0158}
0x3694…36a4 Head {h00=0x000c, h01=0x0050, text=» B DAT06«, t00=0x0022, t01=0x018a}
0x36a4…36b2 Head {h00=0x000a, h01=0x0050, text=»CORE90«, t00=0x0023, t01=0x000a}
0x36b2…36c6 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0023, t01=0x0018}
0x36c6…36d6 Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0023, t01=0x002c}
0x36d6…36e4 Head {h00=0x000a, h01=0x0050, text=»CORDEL«, t00=0x0023, t01=0x003c}
0x36e4…36fa Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x0023, t01=0x004a}
0x36fa…370c Head {h00=0x000e, h01=0x0050, text=» B DLTE05 «, t00=0x0023, t01=0x0060}
0x370c…371a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0072}
0x371a…3734 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0023, t01=0x0080}
0x3734…374c Head {h00=0x0014, h01=0x0050, text=»* RECORD DELETE.«, t00=0x0023, t01=0x009a}
0x374c…3766 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0023, t01=0x00b2}
0x3766…3774 Head {h00=0x000a, h01=0x0050, text=»DLTEDA«, t00=0x0023, t01=0x00cc}
0x3774…378e Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,DLTE05«, t00=0x0023, t01=0x00da}
0x378e…37a4 Head {h00=0x0012, h01=0x0050, text=» TEST DENOCHAN«, t00=0x0023, t01=0x00f4}
0x37a4…37b6 Head {h00=0x000e, h01=0x0050, text=» BZ DATERR«, t00=0x0023, t01=0x010a}
0x37b6…37d0 Head {h00=0x0016, h01=0x0050, text=» TEST DOOL2 INSERT«, t00=0x0023, t01=0x011c}
0x37d0…37e4 Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0023, t01=0x0136}
0x37e4…37f2 Head {h00=0x000a, h01=0x0050, text=»DLTE05«, t00=0x0023, t01=0x014a}
0x37f2…3806 Head {h00=0x0010, h01=0x0050, text=» TEST SOOL2 «, t00=0x0023, t01=0x0158}
0x3806…382a Head {h00=0x0020, h01=0x0050, text=» BZ DATERR JUMP IF BATCHHEAD«, t00=0x0023, t01=0x016c}
0x382a…383e Head {h00=0x0010, h01=0x0050, text=» PERF DEVERC«, t00=0x0023, t01=0x0190}
0x383e…3854 Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x0024, t01=0x0014}
0x3854…3862 Head {h00=0x000a, h01=0x0050, text=»DLTE10«, t00=0x0024, t01=0x002a}
0x3862…3882 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W2,DEKTAB7 «, t00=0x0024, t01=0x0038}
0x3882…38b2 Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 «, t00=0x0024, t01=0x0058}
0x38b2…38dc Head {h00=0x0026, h01=0x0050, text=» ERASE 1,W1,W0 ERASE ALL ON SCREEN«, t00=0x0024, t01=0x0088}
0x38dc…3908 Head {h00=0x0028, h01=0x0050, text=» PERF DEACC,W1 DECREASE ACCUMULATORS«, t00=0x0024, t01=0x00b2}
0x3908…3916 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0024, t01=0x00de}
0x3916…3924 Head {h00=0x000a, h01=0x0050, text=»DLTE30«, t00=0x0024, t01=0x00ec}
0x3924…393c Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W8 «, t00=0x0024, t01=0x00fa}
0x393c…3952 Head {h00=0x0012, h01=0x0050, text=» BNERR DLTE50 «, t00=0x0024, t01=0x0112}
0x3952…396e Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0024, t01=0x0128}
0x396e…3980 Head {h00=0x000e, h01=0x0050, text=» B SERIOUS«, t00=0x0024, t01=0x0144}
0x3980…398e Head {h00=0x000a, h01=0x0050, text=»DLTE50«, t00=0x0024, t01=0x0156}
0x398e…39ae Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W3,DEKTAB5 «, t00=0x0024, t01=0x0164}
0x39ae…39bc Head {h00=0x000a, h01=0x0050, text=»DLTE60«, t00=0x0024, t01=0x0184}
0x39bc…39fe (37, 0, 398) Head {h00=0x003e, h01=0x0050, text=» IB DEBINW2,DELERR,RETUDA,DELERR,RFWD10,RFWD50,DELERR, C «, t00=0x0025, t01=0x0004}
0x39fe…3a14 Head {h00=0x0012, h01=0x0050, text=» DELERR,TOTDA«, t00=0x0025, t01=0x0046}
0x3a14…3a22 Head {h00=0x000a, h01=0x0050, text=»DELERR«, t00=0x0025, t01=0x005c}
0x3a22…3a4e Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0025, t01=0x006a}
0x3a4e…3a60 Head {h00=0x000e, h01=0x0050, text=» B DLTE50 «, t00=0x0025, t01=0x0096}
0x3a60…3a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00a8}
0x3a6e…3a8a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x00b6}
0x3a8a…3aa6 Head {h00=0x0018, h01=0x0050, text=»* CHANGE PROGRAM. * «, t00=0x0025, t01=0x00d2}
0x3aa6…3ac2 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0025, t01=0x00ee}
0x3ac2…3ad0 Head {h00=0x000a, h01=0x0050, text=»PROGDA«, t00=0x0025, t01=0x010a}
0x3ad0…3ae6 Head {h00=0x0012, h01=0x0050, text=» TEST DENOCHAN«, t00=0x0025, t01=0x0118}
0x3ae6…3afa Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0025, t01=0x012e}
0x3afa…3b10 Head {h00=0x0012, h01=0x0050, text=» TEST DECHANGE«, t00=0x0025, t01=0x0142}
0x3b10…3b24 Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0025, t01=0x0158}
0x3b24…3b38 Head {h00=0x0010, h01=0x0050, text=» TEST SOOL2 «, t00=0x0025, t01=0x016c}
0x3b38…3b4a Head {h00=0x000e, h01=0x0050, text=» BZ DATERR«, t00=0x0025, t01=0x0180}
0x3b4a…3b5e (38, 0, 400) Head {h00=0x0010, h01=0x0050, text=» GETABX BIN4«, t00=0x0026, t01=0x0004}
0x3b5e…3b6c Head {h00=0x000a, h01=0x0050, text=»PROGD0«, t00=0x0026, t01=0x0018}
0x3b6c…3b8c Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W1,DEKTAB7 «, t00=0x0026, t01=0x0026}
0x3b8c…3bbc Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 «, t00=0x0026, t01=0x0046}
0x3bbc…3bda Head {h00=0x001a, h01=0x0050, text=»PROENT SUB DEBINW1,W1 «, t00=0x0026, t01=0x0076}
0x3bda…3bfe Head {h00=0x0020, h01=0x0050, text=» BZ PROGD0 JUMP IF NO INPUT «, t00=0x0026, t01=0x0094}
0x3bfe…3c38 Head {h00=0x0036, h01=0x0050, text=» COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY«, t00=0x0026, t01=0x00b8}
0x3c38…3c60 Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W10 CHANGE PROGRAM«, t00=0x0026, t01=0x00f2}
0x3c60…3c72 Head {h00=0x000e, h01=0x0050, text=» BOK DAT0 «, t00=0x0026, t01=0x011a}
0x3c72…3c90 Head {h00=0x001a, h01=0x0050, text=» GETFLD 0,BIN4,DEBINW2«, t00=0x0026, t01=0x012c}
0x3c90…3ca2 Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x0026, t01=0x014a}
0x3ca2…3cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015c}
0x3cac…3cba Head {h00=0x000a, h01=0x0050, text=»PROCAN«, t00=0x0026, t01=0x0166}
0x3cba…3ce4 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW2«, t00=0x0026, t01=0x0174}
0x3ce4…3cfc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W1«, t00=0x0027, t01=0x000e}
0x3cfc…3d2a Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W6,CORE50 JUMP IF VERIFY «, t00=0x0027, t01=0x0026}
0x3d2a…3d3e Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0027, t01=0x0054}
0x3d3e…3d4e Head {h00=0x000c, h01=0x0050, text=» B DAT03«, t00=0x0027, t01=0x0068}
0x3d4e…3d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0078}
0x3d58…3d66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0082}
0x3d66…3d80 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x0090}
0x3d80…3d9a Head {h00=0x0016, h01=0x0050, text=»* RECORD INSERT. *«, t00=0x0027, t01=0x00aa}
0x3d9a…3db4 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0027, t01=0x00c4}
0x3db4…3dc2 Head {h00=0x000a, h01=0x0050, text=»INSRDA«, t00=0x0027, t01=0x00de}
0x3dc2…3dd6 Head {h00=0x0010, h01=0x0050, text=» TEST DOOL2 «, t00=0x0027, t01=0x00ec}
0x3dd6…3dea Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0027, t01=0x0100}
0x3dea…3e14 Head {h00=0x0026, h01=0x0050, text=» PERF DEPRUT,PRNUM,DEBINW4,DEBINW3«, t00=0x0027, t01=0x0114}
0x3e14…3e34 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W6,INSR05 «, t00=0x0027, t01=0x013e}
0x3e34…3e4e Head {h00=0x0016, h01=0x0050, text=» TBF DBOMVR,INSR05«, t00=0x0027, t01=0x015e}
0x3e4e…3e68 Head {h00=0x0016, h01=0x0050, text=» TBT DBOVER,INSR05«, t00=0x0027, t01=0x0178}
0x3e68…3e8c (40, 0, 398) Head {h00=0x0020, h01=0x0050, text=» PERF DEVERS SET VERIFY MODE«, t00=0x0028, t01=0x0004}
0x3e8c…3e9e Head {h00=0x000e, h01=0x0050, text=» B RFWD02 «, t00=0x0028, t01=0x0028}
0x3e9e…3eac Head {h00=0x000a, h01=0x0050, text=»INSR05«, t00=0x0028, t01=0x003a}
0x3eac…3ec8 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW3,NUMBER«, t00=0x0028, t01=0x0048}
0x3ec8…3efc Head {h00=0x0030, h01=0x0050, text=» CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD «, t00=0x0028, t01=0x0064}
0x3efc…3f26 Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x0028, t01=0x0098}
0x3f26…3f38 Head {h00=0x000e, h01=0x0050, text=» B CANBL1 «, t00=0x0028, t01=0x00c2}
0x3f38…3f46 Head {h00=0x000a, h01=0x0050, text=»INSR10«, t00=0x0028, t01=0x00d4}
0x3f46…3f66 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W4,DEKTAB7 «, t00=0x0028, t01=0x00e2}
0x3f66…3f96 Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 «, t00=0x0028, t01=0x0102}
0x3f96…3fbc Head {h00=0x0022, h01=0x0050, text=» PERF DERECS,W9 INSERT RECORD «, t00=0x0028, t01=0x0132}
0x3fbc…3fd0 Head {h00=0x0010, h01=0x0050, text=» BERR DATER2«, t00=0x0028, t01=0x0158}
0x3fd0…3ffa Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x0028, t01=0x016c}
0x3ffa…401a Head {h00=0x001c, h01=0x0050, text=» SET DOOL2 RECORD INSERT«, t00=0x0029, t01=0x0008}
0x401a…4044 Head {h00=0x0026, h01=0x0050, text=» PERF DEVERC CLEAR IF VERIFY MODE «, t00=0x0029, t01=0x0028}
0x4044…4056 Head {h00=0x000e, h01=0x0050, text=» B DAEN65 «, t00=0x0029, t01=0x0052}
0x4056…4064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0064}
0x4064…4080 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x0072}
0x4080…409c Head {h00=0x0018, h01=0x0050, text=»* TOT-KEY PRESSED. *«, t00=0x0029, t01=0x008e}
0x409c…40b8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x00aa}
0x40b8…40c6 Head {h00=0x000a, h01=0x0050, text=»TOTDA «, t00=0x0029, t01=0x00c6}
0x40c6…40da Head {h00=0x0010, h01=0x0050, text=» TEST DOOL8 «, t00=0x0029, t01=0x00d4}
0x40da…40ee Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0029, t01=0x00e8}
0x40ee…4108 Head {h00=0x0016, h01=0x0050, text=» TBF SOOL2,TOTBAL «, t00=0x0029, t01=0x00fc}
0x4108…4124 Head {h00=0x0018, h01=0x0050, text=» CLEAR DOOL2 INSERT «, t00=0x0029, t01=0x0116}
0x4124…4138 Head {h00=0x0010, h01=0x0050, text=» BNZ TOTBAL «, t00=0x0029, t01=0x0132}
0x4138…414e Head {h00=0x0012, h01=0x0050, text=» TEST DECHANGE«, t00=0x0029, t01=0x0146}
0x414e…4162 Head {h00=0x0010, h01=0x0050, text=» BNZ DATERR «, t00=0x0029, t01=0x015c}
0x4162…417e Head {h00=0x0018, h01=0x0050, text=» TBT DENOCHAN,TOTBAL«, t00=0x0029, t01=0x0170}
0x417e…4198 Head {h00=0x0016, h01=0x0050, text=» TBT VERIFM,TOTBAL«, t00=0x0029, t01=0x018c}
0x4198…41ba Head {h00=0x001e, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST«, t00=0x002a, t01=0x0016}
0x41ba…41d0 Head {h00=0x0012, h01=0x0050, text=» BNERR TOTBAL «, t00=0x002a, t01=0x0038}
0x41d0…41fe Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W13,TOTBAL NO WORKSPACE ?«, t00=0x002a, t01=0x004e}
0x41fe…4210 Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x002a, t01=0x007c}
0x4210…421e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x008e}
0x421e…4250 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x002a, t01=0x009c}
0x4250…425a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x425a…427a Head {h00=0x001c, h01=0x0050, text=»* HANDLE BALANCE FORMAT «, t00=0x002a, t01=0x00d8}
0x427a…4284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f8}
0x4284…42b6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x002a, t01=0x0102}
0x42b6…42c4 Head {h00=0x000a, h01=0x0050, text=»TOTBAL«, t00=0x002a, t01=0x0134}
0x42c4…42ee Head {h00=0x0026, h01=0x0050, text=» CLEAR DENOCHAN CHANGES PERMITTED «, t00=0x002a, t01=0x0142}
0x42ee…4302 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x002a, t01=0x016c}
0x4302…431e Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x002a, t01=0x0180}
0x431e…4356 Head {h00=0x0034, h01=0x0050, text=» COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT«, t00=0x002b, t01=0x000c}
0x4356…4378 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W11)«, t00=0x002b, t01=0x0044}
0x4378…4386 Head {h00=0x000a, h01=0x0050, text=»TOTB05«, t00=0x002b, t01=0x0066}
0x4386…439e Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x002b, t01=0x0074}
0x439e…43b0 Head {h00=0x000e, h01=0x0050, text=» SET DOOLA«, t00=0x002b, t01=0x008c}
0x43b0…43be Head {h00=0x000a, h01=0x0050, text=»TOTB10«, t00=0x002b, t01=0x009e}
0x43be…43e2 Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x002b, t01=0x00ac}
0x43e2…43f8 Head {h00=0x0012, h01=0x0050, text=» BNERR TOTB20 «, t00=0x002b, t01=0x00d0}
0x43f8…4426 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W13,TOTB12 NO WORKSPACE «, t00=0x002b, t01=0x00e6}
0x4426…4450 Head {h00=0x0026, h01=0x0050, text=» ATTFMT FFETCH ATTACH DUMMYFORMAT «, t00=0x002b, t01=0x0114}
0x4450…4468 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x002b, t01=0x013e}
0x4468…4476 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x002b, t01=0x0156}
0x4476…44a4 Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,TOTB14 NO CURR. FORMAT «, t00=0x002b, t01=0x0164}
0x44a4…44d0 (44, 0, 400) Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN14,STRG10A«, t00=0x002c, t01=0x0004}
0x44d0…44ea Head {h00=0x0016, h01=0x0050, text=» MOVE FORMAT,HEX00«, t00=0x002c, t01=0x0030}
0x44ea…44fc Head {h00=0x000e, h01=0x0050, text=» B TOTB10 «, t00=0x002c, t01=0x004a}
0x44fc…450a Head {h00=0x000a, h01=0x0050, text=»TOTB12«, t00=0x002c, t01=0x005c}
0x450a…4530 Head {h00=0x0022, h01=0x0050, text=» CLEAR DOOLA NO BALANCE-FORMAT«, t00=0x002c, t01=0x006a}
0x4530…455a Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES PERMITTED«, t00=0x002c, t01=0x0090}
0x455a…4568 Head {h00=0x000a, h01=0x0050, text=»TOTB14«, t00=0x002c, t01=0x00ba}
0x4568…457a Head {h00=0x000e, h01=0x0050, text=» B DATER2 «, t00=0x002c, t01=0x00c8}
0x457a…4588 Head {h00=0x000a, h01=0x0050, text=»TOTB20«, t00=0x002c, t01=0x00da}
0x4588…45b4 Head {h00=0x0028, h01=0x0050, text=» MOVE FORMAT,FORTAB(W21) BLANCE NAME«, t00=0x002c, t01=0x00e8}
0x45b4…45d6 Head {h00=0x001e, h01=0x0050, text=» MOVE SYMREC(W11),FRMTPNTR«, t00=0x002c, t01=0x0114}
0x45d6…45f4 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN14,FLIND(W1) «, t00=0x002c, t01=0x0136}
0x45f4…4610 Head {h00=0x0018, h01=0x0050, text=» ATTFMT BPOOL(BIN14)«, t00=0x002c, t01=0x0154}
0x4610…4626 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x002c, t01=0x0170}
0x4626…4652 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W1 ENTER JOB DEFINITION«, t00=0x002c, t01=0x0186}
0x4652…4660 Head {h00=0x000a, h01=0x0050, text=»TOTB35«, t00=0x002d, t01=0x0022}
0x4660…4674 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x002d, t01=0x0030}
0x4674…46a2 Head {h00=0x002a, h01=0x0050, text=»TOTB40 IB DEBINW2,CANCBL,SERIOUS,ENTBL«, t00=0x002d, t01=0x0044}
0x46a2…46d2 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW2,W8,TOTB50 JUMP IF NOT TOT «, t00=0x002d, t01=0x0072}
0x46d2…4700 Head {h00=0x002a, h01=0x0050, text=» CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED«, t00=0x002d, t01=0x00a2}
0x4700…4720 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W9,DEKTAB6 «, t00=0x002d, t01=0x00d0}
0x4720…4732 Head {h00=0x000e, h01=0x0050, text=» B TOTB35 «, t00=0x002d, t01=0x00f0}
0x4732…4740 Head {h00=0x000a, h01=0x0050, text=»TOTB42«, t00=0x002d, t01=0x0102}
0x4740…4766 Head {h00=0x0022, h01=0x0050, text=» B TOTB50 SHB UNIQUE STATEMENT«, t00=0x002d, t01=0x0110}
0x4766…4796 Head {h00=0x002c, h01=0x0050, text=» PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE «, t00=0x002d, t01=0x0136}
0x4796…47c4 Head {h00=0x002a, h01=0x0050, text=» IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42«, t00=0x002d, t01=0x0166}
0x47c4…47e6 (46, 0, 398) Head {h00=0x001e, h01=0x0050, text=» SET BDAFRO ENTER PRESSED «, t00=0x002e, t01=0x0004}
0x47e6…47fe Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x002e, t01=0x0026}
0x47fe…480e Head {h00=0x000c, h01=0x0050, text=» B ENTBL«, t00=0x002e, t01=0x003e}
0x480e…481c Head {h00=0x000a, h01=0x0050, text=»TOTB44«, t00=0x002e, t01=0x004e}
0x481c…4836 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W24 «, t00=0x002e, t01=0x005c}
0x4836…4856 Head {h00=0x001c, h01=0x0050, text=» ERASE 0,DEBINW4,DEBINW4«, t00=0x002e, t01=0x0076}
0x4856…4868 Head {h00=0x000e, h01=0x0050, text=» B TOTB35 «, t00=0x002e, t01=0x0096}
0x4868…4876 Head {h00=0x000a, h01=0x0050, text=»TOTB50«, t00=0x002e, t01=0x00a8}
0x4876…488e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x002e, t01=0x00b6}
0x488e…48a6 Head {h00=0x0014, h01=0x0050, text=»TOTB60 PERF DERR«, t00=0x002e, t01=0x00ce}
0x48a6…48b8 Head {h00=0x000e, h01=0x0050, text=» B TOTB40 «, t00=0x002e, t01=0x00e6}
0x48b8…48c6 Head {h00=0x000a, h01=0x0050, text=»ENTBL «, t00=0x002e, t01=0x00f8}
0x48c6…48e4 Head {h00=0x001a, h01=0x0050, text=» SET BDABAL IN BALANCE«, t00=0x002e, t01=0x0106}
0x48e4…48f2 Head {h00=0x000a, h01=0x0050, text=»TOTB70«, t00=0x002e, t01=0x0124}
0x48f2…4906 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLA«, t00=0x002e, t01=0x0132}
0x4906…493a Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x002e, t01=0x0146}
0x493a…4952 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W1«, t00=0x002e, t01=0x017a}
0x4952…495e (47, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0004}
0x495e…4968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0010}
0x4968…4976 Head {h00=0x000a, h01=0x0050, text=»CANCBL«, t00=0x002f, t01=0x001a}
0x4976…4984 Head {h00=0x000a, h01=0x0050, text=»CANBL1«, t00=0x002f, t01=0x0028}
0x4984…4998 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLA«, t00=0x002f, t01=0x0036}
0x4998…49aa Head {h00=0x000e, h01=0x0050, text=» SET SOOL2«, t00=0x002f, t01=0x004a}
0x49aa…49d2 Head {h00=0x0024, h01=0x0050, text=» PERF DERECS,W7 GET LAST RECORD «, t00=0x002f, t01=0x005c}
0x49d2…49e6 Head {h00=0x0010, h01=0x0050, text=» BOK CANBL3 «, t00=0x002f, t01=0x0084}
0x49e6…49fa Head {h00=0x0010, h01=0x0050, text=» BOFL RETU03«, t00=0x002f, t01=0x0098}
0x49fa…4a1a Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW4,W13,TOTB14 «, t00=0x002f, t01=0x00ac}
0x4a1a…4a2c Head {h00=0x000e, h01=0x0050, text=» SET DOOLA«, t00=0x002f, t01=0x00cc}
0x4a2c…4a3e Head {h00=0x000e, h01=0x0050, text=» B TOTB60 «, t00=0x002f, t01=0x00de}
0x4a3e…4a4c Head {h00=0x000a, h01=0x0050, text=»CANBL3«, t00=0x002f, t01=0x00f0}
0x4a4c…4a76 Head {h00=0x0026, h01=0x0050, text=» PERF DEVERC CLEAR IF VERIFY MODE «, t00=0x002f, t01=0x00fe}
0x4a76…4aa4 Head {h00=0x002a, h01=0x0050, text=» CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST«, t00=0x002f, t01=0x0128}
0x4aa4…4abc Head {h00=0x0014, h01=0x0050, text=» CLEAR DECHANGE «, t00=0x002f, t01=0x0156}
0x4abc…4acc Head {h00=0x000c, h01=0x0050, text=» B DAT02«, t00=0x002f, t01=0x016e}
0x4acc…4ada Head {h00=0x000a, h01=0x0050, text=»CANBL2«, t00=0x002f, t01=0x017e}
0x4ada…4aea Head {h00=0x000c, h01=0x0050, text=» B DAT01«, t00=0x002f, t01=0x018c}
0x4aea…4afa Head {h00=0x000c, h01=0x0050, text=»SERIOUS «, t00=0x0030, t01=0x000c}
0x4afa…4b1e Head {h00=0x0020, h01=0x0050, text=» CLEAR BDABAL OUT OF BALANCE«, t00=0x0030, t01=0x001c}
0x4b1e…4b30 Head {h00=0x000e, h01=0x0050, text=» B TOTB70 «, t00=0x0030, t01=0x0040}
0x4b30…4b3e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x0052}
0x4b3e…4b4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0060}
0x4b4c…4b60 Head {h00=0x0010, h01=0x0050, text=»DEVERS PROC «, t00=0x0030, t01=0x006e}
0x4b60…4b80 Head {h00=0x001c, h01=0x0050, text=» CALL SETB,WORK(W11),W0 «, t00=0x0030, t01=0x0082}
0x4b80…4ba0 Head {h00=0x001c, h01=0x0050, text=» CALL SETB,WORK(W12),W0 «, t00=0x0030, t01=0x00a2}
0x4ba0…4bb4 Head {h00=0x0010, h01=0x0050, text=» SET VERIFM «, t00=0x0030, t01=0x00c2}
0x4bb4…4bc0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x00d6}
0x4bc0…4bce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x00e2}
0x4bce…4be2 Head {h00=0x0010, h01=0x0050, text=»DEVERC PROC «, t00=0x0030, t01=0x00f0}
0x4be2…4bf8 Head {h00=0x0012, h01=0x0050, text=» CLEAR VERIFM «, t00=0x0030, t01=0x0104}
0x4bf8…4c0a Head {h00=0x000e, h01=0x0050, text=» BZ DEVERE«, t00=0x0030, t01=0x011a}
0x4c0a…4c24 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W11),W0«, t00=0x0030, t01=0x012c}
0x4c24…4c3e Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W12),W0«, t00=0x0030, t01=0x0146}
0x4c3e…4c4c Head {h00=0x000a, h01=0x0050, text=»DEVERE«, t00=0x0030, t01=0x0160}
0x4c4c…4c58 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x016e}
0x4c58…4c66 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x017a}
0x4c66…4c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0188}
0x4c74…4c86 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0031, t01=0x0008}
0x4c86…4c92 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0031, t01=0x001a}
0x4c92…4ca8 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0031, t01=0x0026}
0x4ca8…4cb6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x003c}
0x4cb6…4cca Head {h00=0x0010, h01=0x0050, text=»FFETCH FRMT «, t00=0x0031, t01=0x004a}
0x4cca…4cd6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0031, t01=0x005e}
0x4cd6…4cf8 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FETCHING FORMAT:' «, t00=0x0031, t01=0x006a}
0x4cf8…4d0e Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x0031, t01=0x008c}
0x4d0e…4d2a Head {h00=0x0018, h01=0x0050, text=» FTEXT ' FROM DISC.'«, t00=0x0031, t01=0x00a2}
0x4d2a…4d36 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0031, t01=0x00be}
0x4d36…4d4a Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x0031, t01=0x00ca}
0x4d4a…4d5e Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0031, t01=0x00de}
0x4d5e…4d6c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x00f2}
0x4d6c…4d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0100}
0x4d76…4d82 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0031, t01=0x010a}
0x4d82…4d86 Head {h00=0x4004, h01=0x0000}
0x4d86…4d8a 00 31 01 16 ┆ 1 ┆
0x4d8a…4d92 (50, 1, 8) 20 04 00 00 00 32 00 04 ┆ 2 ┆
0x4d92…4de2 (51, 0, 400) 44 20 30 2c 44 45 42 49 4e 57 33 2c 44 45 42 49 4e 57 32 20 47 45 54 20 54 48 45 20 43 4f 4d 50 55 4c 53 4f 52 59 20 46 49 45 4c 44 00 32 01 8a 00 0a 00 50 4b 45 4e 54 31 35 00 33 00 34 00 2e 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c ┆D 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD 2 PKENT15 3 4 . P MOVE DEBINW4,┆
0x4de2…4e32 57 35 20 49 4e 44 49 43 41 54 45 20 43 4f 4d 50 2e 46 49 45 4c 44 20 46 4f 55 4e 44 00 33 00 42 00 14 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 31 2c 57 30 00 33 00 74 00 1a 00 50 20 54 53 54 43 54 4c 20 35 20 4c 4f 4f 4b 20 49 46 20 43 54 ┆W5 INDICATE COMP.FIELD FOUND 3 B P MOVE DEBINW1,W0 3 t P TSTCTL 5 LOOK IF CT┆
0x4e32…4e82 41 42 00 33 00 8c 00 14 00 50 20 42 5a 20 45 52 52 50 52 49 4e 54 20 4e 4f 21 00 33 00 aa 00 10 00 50 20 44 55 50 4c 20 53 54 52 32 41 20 00 33 00 c2 00 14 00 50 20 42 4f 4b 20 4b 45 4e 54 32 30 20 59 45 53 21 00 33 00 d6 00 1a 00 50 20 54 ┆AB 3 P BZ ERRPRINT NO! 3 P DUPL STR2A 3 P BOK KENT20 YES! 3 P T┆
0x4e82…4ed2 42 46 20 41 53 44 46 4c 41 47 2c 45 52 52 50 52 49 4e 54 20 00 33 00 ee 00 12 00 50 4b 45 4e 54 32 30 5c 5c 5c 59 45 53 21 20 00 33 01 0c 00 18 00 50 20 50 45 52 46 20 44 45 52 52 4f 52 2c 44 45 4b 54 41 42 49 00 33 01 22 00 0e 00 50 20 42 ┆BF ASDFLAG,ERRPRINT 3 PKENT20 YES! 3 P PERF DERROR,DEKTABI 3 " P B┆
0x4ed2…4f22 20 45 52 52 50 32 35 20 00 33 01 3e 00 0a 00 50 20 45 4a 45 43 54 00 33 01 50 00 06 00 50 2a 20 00 33 01 5e 00 1a 00 50 2a 20 49 4e 44 49 43 41 54 45 20 46 4f 52 43 45 44 20 49 54 45 4d 00 33 01 68 00 06 00 50 2a 20 00 33 01 86 00 0a 00 50 ┆ ERRP25 3 > P EJECT 3 P P* 3 ^ P* INDICATE FORCED ITEM 3 h P* 3 P┆
0x4f22…4f72 (52, 0, 400) 4b 46 4f 52 43 45 00 33 01 90 00 10 00 50 20 50 45 52 46 20 44 45 46 4f 52 43 00 34 00 0e 00 0e 00 50 20 42 20 55 50 44 52 33 30 20 00 34 00 22 00 06 00 50 2a 20 00 34 00 34 00 10 00 50 2a 20 56 41 4c 49 44 20 49 54 45 4d 00 34 00 3e 00 06 ┆KFORCE 3 P PERF DEFORC 4 P B UPDR30 4 " P* 4 4 P* VALID ITEM 4 > ┆
0x4f72…4fc2 00 50 2a 20 00 34 00 52 00 0a 00 50 4b 56 41 4c 49 44 00 34 00 5c 00 28 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 32 2c 57 33 20 52 45 53 54 4f 52 45 20 49 54 45 4d 4c 45 4e 47 54 48 20 00 34 00 6a 00 0e 00 50 20 42 20 55 50 44 52 32 35 20 ┆ P* 4 R PKVALID 4 ( P MOVE DEBINW2,W3 RESTORE ITEMLENGTH 4 j P B UPDR25 ┆
0x4fc2…5012 00 34 00 96 00 0a 00 50 5c 45 4a 45 43 54 00 34 00 a8 00 0a 00 50 45 52 52 50 52 54 00 34 00 b6 00 14 00 50 20 43 4d 50 20 44 45 42 49 4e 57 32 2c 57 31 36 00 34 00 c4 00 1a 00 50 20 42 45 20 4b 45 44 49 54 20 4a 55 4d 50 20 49 46 20 45 44 ┆ 4 P EJECT 4 PERRPRT 4 P CMP DEBINW2,W16 4 P BE KEDIT JUMP IF ED┆
0x5012…5062 49 54 00 34 00 dc 00 2c 00 50 20 43 42 45 20 44 45 42 49 4e 57 32 2c 57 34 2c 45 52 52 43 41 4e 20 4a 55 4d 50 20 49 46 20 45 52 52 43 41 4e 45 4c 31 00 34 00 fa 00 2c 00 50 20 43 42 45 20 44 45 42 49 4e 57 32 2c 57 35 2c 45 52 52 43 41 4e ┆IT 4 , P CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 4 , P CBE DEBINW2,W5,ERRCAN┆
0x5062…50b2 20 4a 55 4d 50 20 49 46 20 45 52 52 43 41 4e 45 4c 32 00 34 01 2a 00 1c 00 50 20 58 53 54 41 54 20 44 45 44 53 44 59 4b 42 2c 44 45 42 49 4e 57 33 20 00 34 01 5a 00 1a 00 50 20 43 41 4c 4c 20 4d 41 53 4b 2c 44 45 42 49 4e 57 33 2c 57 36 34 ┆ JUMP IF ERRCANEL2 4 * P XSTAT DEDSDYKB,DEBINW3 4 Z P CALL MASK,DEBINW3,W64┆