|
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: 14254 (0x37ae)
Notes: pts_type(SC)
Names: »DE21ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE21ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE21ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE21ST.SC«
IDENT DE21ST REL 10.0 80-04-11 80-07-14/JAER * * FORMAT DEFINITION * THIS PROGRAM CREATE FORMATS. * USED VARIABLES : BOOL6 = F GENERAL FORMAT DEFINITION * T BALANCE FORMAT DEFINITION * BOOL7 = F NEW FORMAT DEFINITION * PRECCUR= LAST FIELDNR IN 'FORM.DEF.'-FORMAT * DDUM DEDDIV PDIV * ENTRY DE21ST * ENTRY DEFGTC * EXT PRFGUF PRINT USER FORMAT DEFINITION EXT DERROR ERROR-MESSAGES EXT DEPOOL BUFFERRESERVATIN-MODUL EXT DEDISC DISC-ROUTINE EXT DEFDSC FORMAT DEF.-SCREEN EXT MTEXT STEERING PROCEDURE * EXT FLINK FORMAT LINKING EXT FCODE FORMAT CODE GENERATION EXT FMOVE FORMAT MOVE PROCEDURE EXT FEDIT FORMAT EDITING EXT UPDBOL UPDATE BOOLEAN/WORD EXT UPDBIN UPDATE WORD/BOOLEANS EXT EMPTYT CHECK EMPTY ITEM EXT ATTDB ATTACH DESCRIPTOR EXT ATTWB ATTACH WORKBLOCK EXT RESTOR RESTOR ORIGINAL DESC.-POINTERS EXT ATTPRT RESERVE PRINTER EXT DETPRT RELEASE PRINTER * INCLUDE DEKEYS,LIST EJECT * * KEYTABLES * * DEKTAB6 KTAB CLR,CAN,RET * DEKTAB8 KTAB CLR,CAN,RET,ENT,COR,RDL,PRT * DEKTAB9 KTAB CLR,CAN,RET,ENT * EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * DE21ST PROC * SET DEPROMPT T=PROMPTTEXT DISPLAY TBT BOOL7,DEFD00 JUMP IF CORRECTION MODE CLEAR DOOLA CBE BIN2,W2,DE22BF JUMP IF BALANCE FORMAT CLEAR BOOL6 INDICATE GENERAL FORMATDEF B DEFD00 DE22BF SET BOOL6 T=BALANCE FORMAT * * REDFINITION OF 'DB2'-BLK * * RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION * -ATTACH RESERVED WITH NEW DESCRIPTOR * -ATTACH RESERVED BUFFER AS WORK-BLOCK * * DB2 BLK * <ITEM> BIN X'20020000' * <ITEM> BIN X'20020000' * <ITEM> BIN (12) X'A0020004000C0000' * FORTAB STRG (2),80 X'8050001C00020000' * JOBSPC STRG 160 X'00A0001C' * JOBSPC REDEFINES FORTAB(W2) * DEFD00 MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS MOVE BIN4,W1 NUMBER OF WANTED BUFFERS PERF DEPOOL,W2,BIN4,BIN16,STRG10A GET BUFF WITH LOCK BOK DEFD10 JUMP IF OK PERF DERROR,DEKTAB6 IB DEBINW2,DEFD00,DEFD00 B RETEX DEFD10 MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C 20020000 C 20020000 C A0020004000C0000 C 8050001C00020000 FORTAB (2),80 C 00A0001C00 JOBSPC 160 C ' CALL ATTDB,BPOOL(BIN4),W0,W12 CALL ATTWB,BPOOL(BIN4),W0,W12 DEFDST PERF DEFDSC CBE DEBINW2,W4,KTOT JUMP IF TOT-KEY B RETERR EJECT KTOT CBG RNRFMCH,W29,KTOT05 JUMP IF LAST BUFFER USED MOVE BIN16,W188 SUB BIN16,W8 LIMIT FOR FLINK PERF FLINK,BIN16,W0 GENERATE FLINK IF NEEDED IB DEBINW2,RETERR,RETERR,RETERR,KTOT10 KTOT05 CALL FMOVE,STRG10A,FDUM MOVE BIN15,W7 WORK:=7 MATCH STRG10A,BIN15,W3,FDIR,W0,W1 1- OR 2-BYTE ? XCOPY BPOOL(BIN3),BIN1,BIN15,STRG10A,W0 STORE DUMMY FIELD ADD BIN1,BIN15 ADJUST BUFFERPOSITION KTOT10 PERF FCODE,W12 GENERATE FEXIT=E9 ADD PRECPR,PINDND TOT NUMBERS OF BUFFERS XCOPY RPOOL(PINDDB),W17,W1,PRECPR,W1 STORE NUMB OF BUFFERS TBT BOOL6,KTOT12 JUMP IF BALANCE XCOPY RPOOL(PINDDB),W18,W1,PINDND,W1 STORE NUMB OF DESCBUFFERS ADD BIN10,W1 ADJUST NUMB OF FIELDS F0 XCOPY BPOOL(PINDDB),W2,W2,BIN10,W0 STORE DESC-LENGTH NUMBER OF FIELDS ADD BIN14,BIN13 XCOPY BPOOL(PINDDB),W4,W2,BIN14,W0 STORE TOTAL LENGTH F0 KTOT12 MOVE DEINPUT,FORMAT TBF BOOL7,KTOT18 JUMP IF NOT CORR-MODE KTOT14 PERF DEDISC,W13 DELETE FORMAT BOK KTOT16 PERF DERROR,DEKTAB6 SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETERR,RETERR B KTOT14 KTOT16 PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS KTOT18 MOVE PINDFR,PINDDB PERF DEDISC,W9 STORE FORMAT ON DISC BOK KTOT20 PERF DERROR,DEKTAB6 DISPLAY ERROR SUB DEBINW2,W1 ADJUST KEY-INDEX TBT SW95PR,KTOT20 IB DEBINW2,KTOT19,KTOT19 CBE DEBINW4,W10,KTOT18 NO DISK SPACE KTOT19 B RETUR KTOT20 PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS KTOT25 MOVE PINDFR,W0 MOVE FRMTPNTR,W0 FORMATPOINTER:=0 PERF DEDISC,W10 GET FORMAT BOK KTOT30 PERF DERROR,DEKTAB6 SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETERR,RETERR B KTOT25 KTOT30 PERF DEPOOL,W8,PINDFR,BIN16,STRG10A LOCK BOK KTOT35 PERF DERROR,DEKTAB6 ERROR-MESSAGE SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETERR,RETERR B KTOT30 KTOT35 PERF DEDISC,W13 DELETE FORMAT BOK KTOT40 PERF DERROR,DEKTAB6 SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETERR,RETERR B KTOT35 KTOT40 MOVE DEBINW4,PINDFR PERF DEPOOL,W11,DEBINW4,BIN16,STRG10A UNLINK FORMCHAIN TBT BOOL6,KTOT55 JUMP IF BALANCE FORMAT CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. KTOT55 MOVE ELMNO,FLIND(W1) LOAD FORMATBUFFER-POINTER ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT PERF FEDIT FORMAT EDITING DISPLAY 0,W1,W0 SET DEPROMPT T=PROMPTTEXT DISPLAY TBT BOOL6,KTOT70 JUMP IF BALANCE FORMAT MOVE DEBINW3,W1 MOVE DEBINW4,W0 GETFLD 3,DEBINW3,DEBINW4 CHECK IF ACCFIELDS BP KTOT60 NO ACCFIELDS BN KTOT60 NO ACCFIELDS SET DBOACC INDICATE ACCFIELDS IN FORMAT KTOT60 MOVE DEBINW3,W1 MOVE DEBINW4,W0 GETFLD 4,DEBINW3,DEBINW4 CHECK IF VERIFY-FIELDS BP KTOT65 NO VERIFY-FIELDS BN KTOT65 NO VERIFY-FIELDS SET DBOMVR INDICATE MUST BE VERIFY KTOT65 CALL UPDBIN,BIN1 UPDATE STATUS-WORD XCOPY BPOOL(PINDFR),W0,W1,BIN1,W1 STORE RECORD STATUS KTOT70 XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1 CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS PERF DEDISC,W9 STORE FORMAT ON DISC BOK KTOT75 JUMP IF OK PERF DERROR,DEKTAB6 DISPLAY ERROR SUB DEBINW2,W1 ADJUST KEY-INDEX TBT SW95PR,KTOT75 IB DEBINW2,KTOT71,KTOT71 CBE DEBINW4,W10,KTOT70 NO DISC SPACE KTOT71 B RETERR KTOT75 CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. MOVE DEBINW3,W0 GETFLD 0,DEBINW3,DEBINW4 TBT BOOL6,KTOT78 NO WARNING WHEN BALANCE SUB BIN10,W1 ADJUST FOR DUMMY FIELD CBNG WORK(W6),BIN10,KTOT78 GENFIELD NOT GR MAXFIELD MOVE BCD13A,WORK(W6) LOAD GENFIELD BCD MOVE WORK(W6),W0 MOVE BIN10,W1 MOVE DEBINW4,=W'39' WARNING PERF DERROR,DEKTAB6 KTOT78 CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS TBF DOOLA,KTOT79 F=CORR FROM THIS PROGRAM TBT BOOL7,RETUR JUMP IF CORR KTOT79 MOVE DEBINW4,=W'31' PERF DERROR,DEKTAB8 ' CONFIRM' SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETUR,RETUR, CLR,CAN,RET C RETUR,KTOT95,KTOT90,KTOT80 ENT,COR,RDL B RETUR JUMP ON CLEAR-KEY KTOT80 * PRT PRESSED CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT PERF FEDIT FORMAT EDITING PERF ATTPRT RESERVE PRINTER BOK KTOT88 PERF DERROR,DEKTAB6 B KTOT78 KTOT88 PERF PRFGUF PRINT FORMAT DEFINITION PERF DETPRT RELEASE PRINTER CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS B KTOT78 KTOT90 RDEL-KEY MOVE DEBINW4,W17 PERF DERROR,DEKTAB9 'PRESS ENT TO CONFIRM' SUB DEBINW2,W1 ADJUST KEY-INDEX IB DEBINW2,RETUR,RETUR,KTOT92 B KTOT78 KTOT92 PERF DEDISC,W13 DELETE FORMAT MOVE DEBINW2,W0 BOK RETUR PERF DERROR,DEKTAB6 SUB DEBINW1,W1 ADJUST KEY-INDEX IB DEBINW2,RETUR,RETUR B KTOT90 JUMP ON CLEAR-KEY KTOT95 COR-KEY SET BOOL7 MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX MOVE CURSEC,W0 LOAD BUFFERPOINTER:=0 MOVE WORK(W3),W0 WORK:=0 MOVE WORK(W4),W0 NUMB OF FPOOLS:=0 XCOPY WORK(W4),W1,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS B DEFDST EJECT * * ERROR IN FORMAT GENEREATION OR STOPPED BY KEYPROSSECING * RETERR PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS CLEAR BOOL7 BZ RETEX JUMP IF NEW FORMAT MOVE PINDFR,PINDDB CHANGE BUFFERPOINTER PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS B RETCH RETUR PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS CLEAR BOOL7 BZ RETEX JUMP IF NEW REG. TBF DOOLA,RETEX JUMP IF CORR FROM THIS PR. RETCH MOVE DEINPUT,FORMAT RESTORE FORMAT NAME PERF DEDISC,W10 RETEX CBG DEBINW2,W1,REXIT JUMP IF NOT CANCEL-KEY TBT DOOLA,REXIT JUMP IF CORR B DEFDST JUMP ON CANCEL-KEY REXIT MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WORK BUFFER RET PEND EJECT DEFGTC PROC GETABX DEBINW4 IB DEBINW4,FNR1,FPS1,FPS1,FNR4, C FNR5,FPS1,FPS1,FPS1,FPS1,FPS1, C FPS1,FPS1,FPS1,FPS1 B DETC97 NO TAB * * FIELD 1 FORMAT NAME * FNR1 CBE DEBINW2,W7,F2BTB JUMP IF BTB CBE DEBINW2,W8,F1HOM JUMP IF HOM B DETC99 TAB OK F1HOM TBT BOOL7,DETC84 JUMP IF CORR MODE TBT DOOL1,DETC84 NO HOME ALLOWED * * HOME ALLOWED FIELD NOT CONFIRMED WITHIN LINE * F1A TBT DOOL2,F1B JUMP IF ALREADY DEL ONCE MOVE FMTWK(W8),BIN3 SAVE CURR BUFFERIND MOVE BIN3,FMTWK(W7) REESTORE LAST LINE'S BUFFIND SET DOOL2 T=LINE DELETED TBF BOOL2,F1B JUMP IF NO FIELD MATCH SUB BIN10,W1 ADJUST FIELD NR F1B MOVE BIN1,FMTWK(W6) RESTORE LASTLINE'S STPOINT TBF BOOL1,DETC99 HOME TO FIELD 1 CBE DEBINW4,W3,DETC99 JUMP FIELD ALREADY = 3 MOVE DEBINW4,W3 B DETC92 * * PRE SELECTION FIELD 2,3,6-15 * FPS1 CBE DEBINW2,W3,DETC99 JUMP IF EOI CBE DEBINW2,W6,DETC99 JUMP IF PLS * BTB IB DEBINW4,DETC97,F2BTB,F1HOM,DETC97, FIELD 1-4 C DETC99,DETC99,F3Z,DETC99, FIELD 5-8 C DETC99,DETC99,DETC99,DETC99, FIELD 9-12 C F3Z B DETC97 F2BTB TBF BOOL1,DETC99 NO FIELDS TAB OK MOVE DEBINW4,W3 FIELD 3 NO TAB => 'PEEP' B DETC90 * * FILED 3 LINE DESIGN * F3Z TBT BOOL2,DETC99 BTB OK IF FIELD FOUND B F1A * * FIELD 4 KEYED INPUT FIELD * FNR4 CBE DEBINW2,W3,F4EOI JUMP IF EOI CBE DEBINW2,W6,F4PLS JUMP IF PLS CBE DEBINW2,W7,DETC99 JUMP IF BTB B DETC97 TAB NOK F4EOI F4PLS MOVE BIN5,W0 PERF MTEXT MATCH AND EDIT TEXT SET DOOL6 T=MTEXT/DETCH PASSED ONCE CBNE DEBINW2,W0,DETC98 JUMP IF NOY OK TBT BOOL2,DETC99 TBFWD OK FIELD 4 TBT DOOL5,DETC99 JUMP IF CORR LINE MOVE DEBINW4,PRECCUR LAST FIELDNR B DETC92 TAB NOT ALLOWED * * CHECK IF ACC-FIELD EMPTY WHEN BALANCE FORMAT * FNR5 TBF BOOL6,DETC99 JUMP IF USER FORMAT CBE DEBINW2,W7,DETC99 JUMP IF BTAB CALL EMPTYT,FDVBCD(W8) BNOK DETC84 TAB NOT ALLOWED B DETC99 ACCFIELD NOT EMPTY OK DETC84 FIELD 4 NO TAB => 'PEEP' MOVE DEBINW4,W4 DETC90 GETFLD 0,DEBINW4,DEBINW3 DETC97 MOVE DEBINW2,W0 OK DETC98 MOVE DEBINW3,W2 TAB NOT ALLOWED B DETCRT DETC92 GETFLD 0,DEBINW4,DEBINW3 DETC99 MOVE DEBINW3,W0 TAB ALLOWED MOVE DEBINW2,W0 OK DETCRT RET PEND EJECT * * DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD * IN EVERY GENERATED FORMAT * FDUM FRMT FKI 1,ALPHA FCOPY HEX00 FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DE21ST REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-07-14/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0044}
0x004a…006c Head {h00=0x001e, h01=0x0050, text=»* FORMAT DEFINITION «, t00=0x0000, t01=0x004e}
0x006c…009c Head {h00=0x002c, h01=0x0050, text=»* THIS PROGRAM CREATE FORMATS. «, t00=0x0000, t01=0x0070}
0x009c…00e6 Head {h00=0x0046, h01=0x0050, text=»* USED VARIABLES : BOOL6 = F GENERAL FORMAT DEFINITION «, t00=0x0000, t01=0x00a0}
0x00e6…0130 Head {h00=0x0046, h01=0x0050, text=»* T BALANCE FORMAT DEFINITION «, t00=0x0000, t01=0x00ea}
0x0130…0176 Head {h00=0x0042, h01=0x0050, text=»* BOOL7 = F NEW FORMAT DEFINITION «, t00=0x0000, t01=0x0134}
0x0176…01c6 Head {h00=0x004c, h01=0x0050, text=»* PRECCUR= LAST FIELDNR IN 'FORM.DEF.'-FORMAT«, t00=0x0000, t01=0x017a}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…01e4 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x0044}
0x01e4…01f2 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0058}
0x01f2…01fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fc…0212 Head {h00=0x0012, h01=0x0050, text=» ENTRY DE21ST «, t00=0x0001, t01=0x0070}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…0232 Head {h00=0x0012, h01=0x0050, text=» ENTRY DEFGTC «, t00=0x0001, t01=0x0090}
0x0232…023c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a6}
0x023c…026c Head {h00=0x002c, h01=0x0050, text=» EXT PRFGUF PRINT USER FORMAT DEFINITION«, t00=0x0001, t01=0x00b0}
0x026c…028e Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0001, t01=0x00e0}
0x028e…02b8 Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL BUFFERRESERVATIN-MODUL«, t00=0x0001, t01=0x0102}
0x02b8…02d8 Head {h00=0x001c, h01=0x0050, text=» EXT DEDISC DISC-ROUTINE«, t00=0x0001, t01=0x012c}
0x02d8…02fe Head {h00=0x0022, h01=0x0050, text=» EXT DEFDSC FORMAT DEF.-SCREEN«, t00=0x0001, t01=0x014c}
0x02fe…0324 Head {h00=0x0022, h01=0x0050, text=» EXT MTEXT STEERING PROCEDURE «, t00=0x0001, t01=0x0172}
0x0324…032e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032e…0350 Head {h00=0x001e, h01=0x0050, text=» EXT FLINK FORMAT LINKING «, t00=0x0002, t01=0x0012}
0x0350…037a Head {h00=0x0026, h01=0x0050, text=» EXT FCODE FORMAT CODE GENERATION «, t00=0x0002, t01=0x0034}
0x037a…03a2 Head {h00=0x0024, h01=0x0050, text=» EXT FMOVE FORMAT MOVE PROCEDURE«, t00=0x0002, t01=0x005e}
0x03a2…03c4 Head {h00=0x001e, h01=0x0050, text=» EXT FEDIT FORMAT EDITING «, t00=0x0002, t01=0x0086}
0x03c4…03ec Head {h00=0x0024, h01=0x0050, text=» EXT UPDBOL UPDATE BOOLEAN/WORD «, t00=0x0002, t01=0x00a8}
0x03ec…0414 Head {h00=0x0024, h01=0x0050, text=» EXT UPDBIN UPDATE WORD/BOOLEANS«, t00=0x0002, t01=0x00d0}
0x0414…0438 Head {h00=0x0020, h01=0x0050, text=» EXT EMPTYT CHECK EMPTY ITEM«, t00=0x0002, t01=0x00f8}
0x0438…045c Head {h00=0x0020, h01=0x0050, text=» EXT ATTDB ATTACH DESCRIPTOR«, t00=0x0002, t01=0x011c}
0x045c…0480 Head {h00=0x0020, h01=0x0050, text=» EXT ATTWB ATTACH WORKBLOCK «, t00=0x0002, t01=0x0140}
0x0480…04b2 Head {h00=0x002e, h01=0x0050, text=» EXT RESTOR RESTOR ORIGINAL DESC.-POINTERS«, t00=0x0002, t01=0x0164}
0x04b2…04d6 Head {h00=0x0020, h01=0x0050, text=» EXT ATTPRT RESERVE PRINTER «, t00=0x0003, t01=0x0008}
0x04d6…04fa Head {h00=0x0020, h01=0x0050, text=» EXT DETPRT RELEASE PRINTER «, t00=0x0003, t01=0x002c}
0x04fa…0504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0504…0520 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DEKEYS,LIST«, t00=0x0003, t01=0x005a}
0x0520…052e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0076}
0x052e…0538 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0084}
0x0538…0552 Head {h00=0x0016, h01=0x0012, text=»* KEYTABLES«, t00=0x0003, t01=0x008e}
0x0552…055c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00a8}
0x055c…0566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0566…0586 Head {h00=0x001c, h01=0x0050, text=»DEKTAB6 KTAB CLR,CAN,RET«, t00=0x0003, t01=0x00bc}
0x0586…0590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00dc}
0x0590…05c0 Head {h00=0x002c, h01=0x0050, text=»DEKTAB8 KTAB CLR,CAN,RET,ENT,COR,RDL,PRT«, t00=0x0003, t01=0x00e6}
0x05c0…05ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0116}
0x05ca…05ee Head {h00=0x0020, h01=0x0050, text=»DEKTAB9 KTAB CLR,CAN,RET,ENT«, t00=0x0003, t01=0x0120}
0x05ee…05f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0144}
0x05f8…0606 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x014e}
0x0606…0610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0610…0652 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0003, t01=0x0166}
0x0652…065c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065c…0670 Head {h00=0x0010, h01=0x0050, text=»DE21ST PROC «, t00=0x0004, t01=0x0022}
0x0670…067a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0036}
0x067a…06a4 Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT T=PROMPTTEXT DISPLAY«, t00=0x0004, t01=0x0040}
0x06a4…06d6 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL7,DEFD00 JUMP IF CORRECTION MODE «, t00=0x0004, t01=0x006a}
0x06d6…06ea Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLA«, t00=0x0004, t01=0x009c}
0x06ea…071c Head {h00=0x002e, h01=0x0050, text=» CBE BIN2,W2,DE22BF JUMP IF BALANCE FORMAT«, t00=0x0004, t01=0x00b0}
0x071c…074c Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL6 INDICATE GENERAL FORMATDEF «, t00=0x0004, t01=0x00e2}
0x074c…075e Head {h00=0x000e, h01=0x0050, text=» B DEFD00 «, t00=0x0004, t01=0x0112}
0x075e…076c Head {h00=0x000a, h01=0x0050, text=»DE22BF«, t00=0x0004, t01=0x0124}
0x076c…0790 Head {h00=0x0020, h01=0x0050, text=» SET BOOL6 T=BALANCE FORMAT «, t00=0x0004, t01=0x0132}
0x0790…079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079a…07c2 Head {h00=0x0024, h01=0x0050, text=»* REDFINITION OF 'DB2'-BLK«, t00=0x0004, t01=0x0160}
0x07c2…07cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0188}
0x07cc…080a (5, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION «, t00=0x0005, t01=0x0004}
0x080a…0840 Head {h00=0x0032, h01=0x0050, text=»* -ATTACH RESERVED WITH NEW DESCRIPTOR «, t00=0x0005, t01=0x0042}
0x0840…0876 Head {h00=0x0032, h01=0x0050, text=»* -ATTACH RESERVED BUFFER AS WORK-BLOCK«, t00=0x0005, t01=0x0078}
0x0876…0880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ae}
0x0880…08a2 Head {h00=0x001e, h01=0x0050, text=»* DB2 BLK«, t00=0x0005, t01=0x00b8}
0x08a2…08dc Head {h00=0x0036, h01=0x0050, text=»* <ITEM> BIN X'20020000' «, t00=0x0005, t01=0x00da}
0x08dc…0916 Head {h00=0x0036, h01=0x0050, text=»* <ITEM> BIN X'20020000' «, t00=0x0005, t01=0x0114}
0x0916…0958 Head {h00=0x003e, h01=0x0050, text=»* <ITEM> BIN (12) X'A0020004000C0000' «, t00=0x0005, t01=0x014e}
0x0958…099a Head {h00=0x003e, h01=0x0050, text=»* FORTAB STRG (2),80 X'8050001C00020000' «, t00=0x0005, t01=0x0190}
0x099a…09d4 Head {h00=0x0036, h01=0x0050, text=»* JOBSPC STRG 160 X'00A0001C' «, t00=0x0006, t01=0x0042}
0x09d4…0a1e Head {h00=0x0046, h01=0x0050, text=»* JOBSPC REDEFINES FORTAB(W2) «, t00=0x0006, t01=0x007c}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a28…0a36 Head {h00=0x000a, h01=0x0050, text=»DEFD00«, t00=0x0006, t01=0x00d0}
0x0a36…0a66 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS «, t00=0x0006, t01=0x00de}
0x0a66…0a94 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN4,W1 NUMBER OF WANTED BUFFERS«, t00=0x0006, t01=0x010e}
0x0a94…0ad2 Head {h00=0x003a, h01=0x0050, text=» PERF DEPOOL,W2,BIN4,BIN16,STRG10A GET BUFF WITH LOCK «, t00=0x0006, t01=0x013c}
0x0ad2…0af0 Head {h00=0x001a, h01=0x0050, text=» BOK DEFD10 JUMP IF OK«, t00=0x0006, t01=0x017a}
0x0af0…0b0c Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0007, t01=0x0008}
0x0b0c…0b2e Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,DEFD00,DEFD00 «, t00=0x0007, t01=0x0024}
0x0b2e…0b3e Head {h00=0x000c, h01=0x0050, text=» B RETEX«, t00=0x0007, t01=0x0046}
0x0b3e…0b4c Head {h00=0x000a, h01=0x0050, text=»DEFD10«, t00=0x0007, t01=0x0056}
0x0b4c…0b84 Head {h00=0x0034, h01=0x0050, text=» MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER «, t00=0x0007, t01=0x0064}
0x0b84…0bb6 Head {h00=0x002e, h01=0x0050, text=» MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C«, t00=0x0007, t01=0x009c}
0x0bb6…0bcc Head {h00=0x0012, h01=0x0050, text=» 20020000 C «, t00=0x0007, t01=0x00ce}
0x0bcc…0be2 Head {h00=0x0012, h01=0x0050, text=» 20020000 C «, t00=0x0007, t01=0x00e4}
0x0be2…0c00 Head {h00=0x001a, h01=0x0050, text=» A0020004000C0000 C «, t00=0x0007, t01=0x00fa}
0x0c00…0c2c Head {h00=0x0028, h01=0x0050, text=» 8050001C00020000 FORTAB (2),80 C«, t00=0x0007, t01=0x0118}
0x0c2c…0c50 Head {h00=0x0020, h01=0x0050, text=» 00A0001C00 JOBSPC 160 C «, t00=0x0007, t01=0x0144}
0x0c50…0c5c Head {h00=0x0008, h01=0x0050, text=» ' «, t00=0x0007, t01=0x0168}
0x0c5c…0c82 Head {h00=0x0022, h01=0x0050, text=» CALL ATTDB,BPOOL(BIN4),W0,W12«, t00=0x0007, t01=0x0174}
0x0c82…0ca8 Head {h00=0x0022, h01=0x0050, text=» CALL ATTWB,BPOOL(BIN4),W0,W12«, t00=0x0008, t01=0x000a}
0x0ca8…0cb6 Head {h00=0x000a, h01=0x0050, text=»DEFDST«, t00=0x0008, t01=0x0030}
0x0cb6…0cca Head {h00=0x0010, h01=0x0050, text=» PERF DEFDSC«, t00=0x0008, t01=0x003e}
0x0cca…0cf6 Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW2,W4,KTOT JUMP IF TOT-KEY«, t00=0x0008, t01=0x0052}
0x0cf6…0d08 Head {h00=0x000e, h01=0x0050, text=» B RETERR «, t00=0x0008, t01=0x007e}
0x0d08…0d16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0090}
0x0d16…0d22 Head {h00=0x0008, h01=0x0050, text=»KTOT«, t00=0x0008, t01=0x009e}
0x0d22…0d5a Head {h00=0x0034, h01=0x0050, text=» CBG RNRFMCH,W29,KTOT05 JUMP IF LAST BUFFER USED«, t00=0x0008, t01=0x00aa}
0x0d5a…0d72 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN16,W188«, t00=0x0008, t01=0x00e2}
0x0d72…0d98 Head {h00=0x0022, h01=0x0050, text=» SUB BIN16,W8 LIMIT FOR FLINK «, t00=0x0008, t01=0x00fa}
0x0d98…0dce Head {h00=0x0032, h01=0x0050, text=» PERF FLINK,BIN16,W0 GENERATE FLINK IF NEEDED «, t00=0x0008, t01=0x0120}
0x0dce…0dfe Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,RETERR,RETERR,RETERR,KTOT10 «, t00=0x0008, t01=0x0156}
0x0dfe…0e0c Head {h00=0x000a, h01=0x0050, text=»KTOT05«, t00=0x0008, t01=0x0186}
0x0e0c…0e2c (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CALL FMOVE,STRG10A,FDUM«, t00=0x0009, t01=0x0004}
0x0e2c…0e4a Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W7 WORK:=7«, t00=0x0009, t01=0x0024}
0x0e4a…0e84 Head {h00=0x0036, h01=0x0050, text=» MATCH STRG10A,BIN15,W3,FDIR,W0,W1 1- OR 2-BYTE ? «, t00=0x0009, t01=0x0042}
0x0e84…0ec6 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(BIN3),BIN1,BIN15,STRG10A,W0 STORE DUMMY FIELD«, t00=0x0009, t01=0x007c}
0x0ec6…0ef4 Head {h00=0x002a, h01=0x0050, text=» ADD BIN1,BIN15 ADJUST BUFFERPOSITION «, t00=0x0009, t01=0x00be}
0x0ef4…0f02 Head {h00=0x000a, h01=0x0050, text=»KTOT10«, t00=0x0009, t01=0x00ec}
0x0f02…0f2c Head {h00=0x0026, h01=0x0050, text=» PERF FCODE,W12 GENERATE FEXIT=E9 «, t00=0x0009, t01=0x00fa}
0x0f2c…0f5e Head {h00=0x002e, h01=0x0050, text=» ADD PRECPR,PINDND TOT NUMBERS OF BUFFERS «, t00=0x0009, t01=0x0124}
0x0f5e…0fa2 Head {h00=0x0040, h01=0x0050, text=» XCOPY RPOOL(PINDDB),W17,W1,PRECPR,W1 STORE NUMB OF BUFFERS «, t00=0x0009, t01=0x0156}
0x0fa2…0fcc Head {h00=0x0026, h01=0x0050, text=» TBT BOOL6,KTOT12 JUMP IF BALANCE «, t00=0x000a, t01=0x000a}
0x0fcc…1014 Head {h00=0x0044, h01=0x0050, text=» XCOPY RPOOL(PINDDB),W18,W1,PINDND,W1 STORE NUMB OF DESCBUFFERS «, t00=0x000a, t01=0x0034}
0x1014…1042 Head {h00=0x002a, h01=0x0050, text=» ADD BIN10,W1 ADJUST NUMB OF FIELDS F0«, t00=0x000a, t01=0x007c}
0x1042…1080 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(PINDDB),W2,W2,BIN10,W0 STORE DESC-LENGTH «, t00=0x000a, t01=0x00aa}
0x1080…109c Head {h00=0x0018, h01=0x0050, text=» NUMBER OF FIELDS «, t00=0x000a, t01=0x00e8}
0x109c…10b4 Head {h00=0x0014, h01=0x0050, text=» ADD BIN14,BIN13«, t00=0x000a, t01=0x0104}
0x10b4…10f6 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(PINDDB),W4,W2,BIN14,W0 STORE TOTAL LENGTH F0 «, t00=0x000a, t01=0x011c}
0x10f6…1104 Head {h00=0x000a, h01=0x0050, text=»KTOT12«, t00=0x000a, t01=0x015e}
0x1104…1120 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,FORMAT«, t00=0x000a, t01=0x016c}
0x1120…1150 Head {h00=0x002c, h01=0x0050, text=» TBF BOOL7,KTOT18 JUMP IF NOT CORR-MODE «, t00=0x000a, t01=0x0188}
0x1150…115e Head {h00=0x000a, h01=0x0050, text=»KTOT14«, t00=0x000b, t01=0x0028}
0x115e…1184 Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W13 DELETE FORMAT«, t00=0x000b, t01=0x0036}
0x1184…1198 Head {h00=0x0010, h01=0x0050, text=» BOK KTOT16 «, t00=0x000b, t01=0x005c}
0x1198…11b4 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x000b, t01=0x0070}
0x11b4…11dc Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x000b, t01=0x008c}
0x11dc…11fe Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,RETERR,RETERR «, t00=0x000b, t01=0x00b4}
0x11fe…1210 Head {h00=0x000e, h01=0x0050, text=» B KTOT14 «, t00=0x000b, t01=0x00d6}
0x1210…121e Head {h00=0x000a, h01=0x0050, text=»KTOT16«, t00=0x000b, t01=0x00e8}
0x121e…125a Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x000b, t01=0x00f6}
0x125a…1268 Head {h00=0x000a, h01=0x0050, text=»KTOT18«, t00=0x000b, t01=0x0132}
0x1268…1284 Head {h00=0x0018, h01=0x0050, text=» MOVE PINDFR,PINDDB «, t00=0x000b, t01=0x0140}
0x1284…12b0 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W9 STORE FORMAT ON DISC«, t00=0x000b, t01=0x015c}
0x12b0…12c4 Head {h00=0x0010, h01=0x0050, text=» BOK KTOT20 «, t00=0x000b, t01=0x0188}
0x12c4…12ee Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTAB6 DISPLAY ERROR«, t00=0x000c, t01=0x000c}
0x12ee…1316 Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x000c, t01=0x0036}
0x1316…1330 Head {h00=0x0016, h01=0x0050, text=» TBT SW95PR,KTOT20«, t00=0x000c, t01=0x005e}
0x1330…1352 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,KTOT19,KTOT19 «, t00=0x000c, t01=0x0078}
0x1352…1380 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W10,KTOT18 NO DISK SPACE «, t00=0x000c, t01=0x009a}
0x1380…138e Head {h00=0x000a, h01=0x0050, text=»KTOT19«, t00=0x000c, t01=0x00c8}
0x138e…139e Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x000c, t01=0x00d6}
0x139e…13ac Head {h00=0x000a, h01=0x0050, text=»KTOT20«, t00=0x000c, t01=0x00e6}
0x13ac…13e8 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x000c, t01=0x00f4}
0x13e8…13f6 Head {h00=0x000a, h01=0x0050, text=»KTOT25«, t00=0x000c, t01=0x0130}
0x13f6…140e Head {h00=0x0014, h01=0x0050, text=» MOVE PINDFR,W0 «, t00=0x000c, t01=0x013e}
0x140e…1438 Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,W0 FORMATPOINTER:=0«, t00=0x000c, t01=0x0156}
0x1438…145c Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x000c, t01=0x0180}
0x145c…1470 Head {h00=0x0010, h01=0x0050, text=» BOK KTOT30 «, t00=0x000d, t01=0x0014}
0x1470…148c Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x000d, t01=0x0028}
0x148c…14b4 Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x000d, t01=0x0044}
0x14b4…14d6 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,RETERR,RETERR «, t00=0x000d, t01=0x006c}
0x14d6…14e8 Head {h00=0x000e, h01=0x0050, text=» B KTOT25 «, t00=0x000d, t01=0x008e}
0x14e8…14f6 Head {h00=0x000a, h01=0x0050, text=»KTOT30«, t00=0x000d, t01=0x00a0}
0x14f6…1528 Head {h00=0x002e, h01=0x0050, text=» PERF DEPOOL,W8,PINDFR,BIN16,STRG10A LOCK «, t00=0x000d, t01=0x00ae}
0x1528…153c Head {h00=0x0010, h01=0x0050, text=» BOK KTOT35 «, t00=0x000d, t01=0x00e0}
0x153c…1566 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTAB6 ERROR-MESSAGE«, t00=0x000d, t01=0x00f4}
0x1566…158e Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x000d, t01=0x011e}
0x158e…15b0 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,RETERR,RETERR «, t00=0x000d, t01=0x0146}
0x15b0…15c2 Head {h00=0x000e, h01=0x0050, text=» B KTOT30 «, t00=0x000d, t01=0x0168}
0x15c2…15d0 Head {h00=0x000a, h01=0x0050, text=»KTOT35«, t00=0x000d, t01=0x017a}
0x15d0…15f6 Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W13 DELETE FORMAT«, t00=0x000d, t01=0x0188}
0x15f6…160a Head {h00=0x0010, h01=0x0050, text=» BOK KTOT40 «, t00=0x000e, t01=0x001e}
0x160a…1626 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x000e, t01=0x0032}
0x1626…164e Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x000e, t01=0x004e}
0x164e…1670 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,RETERR,RETERR «, t00=0x000e, t01=0x0076}
0x1670…1682 Head {h00=0x000e, h01=0x0050, text=» B KTOT35 «, t00=0x000e, t01=0x0098}
0x1682…1690 Head {h00=0x000a, h01=0x0050, text=»KTOT40«, t00=0x000e, t01=0x00aa}
0x1690…16ac Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,PINDFR«, t00=0x000e, t01=0x00b8}
0x16ac…16ec Head {h00=0x003c, h01=0x0050, text=» PERF DEPOOL,W11,DEBINW4,BIN16,STRG10A UNLINK FORMCHAIN «, t00=0x000e, t01=0x00d4}
0x16ec…171c Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,KTOT55 JUMP IF BALANCE FORMAT«, t00=0x000e, t01=0x0114}
0x171c…1752 Head {h00=0x0032, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR.«, t00=0x000e, t01=0x0144}
0x1752…1760 Head {h00=0x000a, h01=0x0050, text=»KTOT55«, t00=0x000e, t01=0x017a}
0x1760…1798 Head {h00=0x0034, h01=0x0050, text=» MOVE ELMNO,FLIND(W1) LOAD FORMATBUFFER-POINTER «, t00=0x000e, t01=0x0188}
0x1798…17ca Head {h00=0x002e, h01=0x0050, text=» ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT«, t00=0x000f, t01=0x0030}
0x17ca…17ec Head {h00=0x001e, h01=0x0050, text=» PERF FEDIT FORMAT EDITING«, t00=0x000f, t01=0x0062}
0x17ec…1804 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x000f, t01=0x0084}
0x1804…182e Head {h00=0x0026, h01=0x0050, text=» SET DEPROMPT T=PROMPTTEXT DISPLAY«, t00=0x000f, t01=0x009c}
0x182e…185e Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,KTOT70 JUMP IF BALANCE FORMAT«, t00=0x000f, t01=0x00c6}
0x185e…1876 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x000f, t01=0x00f6}
0x1876…188e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x000f, t01=0x010e}
0x188e…18c2 Head {h00=0x0030, h01=0x0050, text=» GETFLD 3,DEBINW3,DEBINW4 CHECK IF ACCFIELDS«, t00=0x000f, t01=0x0126}
0x18c2…18e2 Head {h00=0x001c, h01=0x0050, text=» BP KTOT60 NO ACCFIELDS «, t00=0x000f, t01=0x015a}
0x18e2…1902 Head {h00=0x001c, h01=0x0050, text=» BN KTOT60 NO ACCFIELDS «, t00=0x000f, t01=0x017a}
0x1902…1932 Head {h00=0x002c, h01=0x0050, text=» SET DBOACC INDICATE ACCFIELDS IN FORMAT«, t00=0x0010, t01=0x000a}
0x1932…1940 Head {h00=0x000a, h01=0x0050, text=»KTOT60«, t00=0x0010, t01=0x003a}
0x1940…1958 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0010, t01=0x0048}
0x1958…1970 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0010, t01=0x0060}
0x1970…19a8 Head {h00=0x0034, h01=0x0050, text=» GETFLD 4,DEBINW3,DEBINW4 CHECK IF VERIFY-FIELDS«, t00=0x0010, t01=0x0078}
0x19a8…19cc Head {h00=0x0020, h01=0x0050, text=» BP KTOT65 NO VERIFY-FIELDS «, t00=0x0010, t01=0x00b0}
0x19cc…19f0 Head {h00=0x0020, h01=0x0050, text=» BN KTOT65 NO VERIFY-FIELDS «, t00=0x0010, t01=0x00d4}
0x19f0…1a1c Head {h00=0x0028, h01=0x0050, text=» SET DBOMVR INDICATE MUST BE VERIFY «, t00=0x0010, t01=0x00f8}
0x1a1c…1a2a Head {h00=0x000a, h01=0x0050, text=»KTOT65«, t00=0x0010, t01=0x0124}
0x1a2a…1a56 Head {h00=0x0028, h01=0x0050, text=» CALL UPDBIN,BIN1 UPDATE STATUS-WORD«, t00=0x0010, t01=0x0132}
0x1a56…1a94 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(PINDFR),W0,W1,BIN1,W1 STORE RECORD STATUS«, t00=0x0010, t01=0x015e}
0x1a94…1aa2 Head {h00=0x000a, h01=0x0050, text=»KTOT70«, t00=0x0011, t01=0x000c}
0x1aa2…1ace Head {h00=0x0028, h01=0x0050, text=» XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1«, t00=0x0011, t01=0x001a}
0x1ace…1b0e Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS«, t00=0x0011, t01=0x0046}
0x1b0e…1b3a Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W9 STORE FORMAT ON DISC«, t00=0x0011, t01=0x0086}
0x1b3a…1b58 Head {h00=0x001a, h01=0x0050, text=» BOK KTOT75 JUMP IF OK«, t00=0x0011, t01=0x00b2}
0x1b58…1b82 Head {h00=0x0026, h01=0x0050, text=» PERF DERROR,DEKTAB6 DISPLAY ERROR«, t00=0x0011, t01=0x00d0}
0x1b82…1baa Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x0011, t01=0x00fa}
0x1baa…1bc4 Head {h00=0x0016, h01=0x0050, text=» TBT SW95PR,KTOT75«, t00=0x0011, t01=0x0122}
0x1bc4…1be6 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW2,KTOT71,KTOT71 «, t00=0x0011, t01=0x013c}
0x1be6…1c14 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W10,KTOT70 NO DISC SPACE «, t00=0x0011, t01=0x015e}
0x1c14…1c22 Head {h00=0x000a, h01=0x0050, text=»KTOT71«, t00=0x0011, t01=0x018c}
0x1c22…1c34 Head {h00=0x000e, h01=0x0050, text=» B RETERR «, t00=0x0012, t01=0x000a}
0x1c34…1c42 Head {h00=0x000a, h01=0x0050, text=»KTOT75«, t00=0x0012, t01=0x001c}
0x1c42…1c78 Head {h00=0x0032, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR.«, t00=0x0012, t01=0x002a}
0x1c78…1c90 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W0«, t00=0x0012, t01=0x0060}
0x1c90…1cb2 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW3,DEBINW4 «, t00=0x0012, t01=0x0078}
0x1cb2…1ce4 Head {h00=0x002e, h01=0x0050, text=» TBT BOOL6,KTOT78 NO WARNING WHEN BALANCE «, t00=0x0012, t01=0x009a}
0x1ce4…1d10 Head {h00=0x0028, h01=0x0050, text=» SUB BIN10,W1 ADJUST FOR DUMMY FIELD«, t00=0x0012, t01=0x00cc}
0x1d10…1d4c Head {h00=0x0038, h01=0x0050, text=» CBNG WORK(W6),BIN10,KTOT78 GENFIELD NOT GR MAXFIELD«, t00=0x0012, t01=0x00f8}
0x1d4c…1d7c Head {h00=0x002c, h01=0x0050, text=» MOVE BCD13A,WORK(W6) LOAD GENFIELD BCD «, t00=0x0012, t01=0x0134}
0x1d7c…1d96 Head {h00=0x0016, h01=0x0050, text=» MOVE WORK(W6),W0 «, t00=0x0012, t01=0x0164}
0x1d96…1dac Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W1«, t00=0x0012, t01=0x017e}
0x1dac…1dd0 (19, 0, 398) Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,=W'39' WARNING«, t00=0x0013, t01=0x0004}
0x1dd0…1dec Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0013, t01=0x0028}
0x1dec…1dfa Head {h00=0x000a, h01=0x0050, text=»KTOT78«, t00=0x0013, t01=0x0044}
0x1dfa…1e3a Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS«, t00=0x0013, t01=0x0052}
0x1e3a…1e6c Head {h00=0x002e, h01=0x0050, text=» TBF DOOLA,KTOT79 F=CORR FROM THIS PROGRAM«, t00=0x0013, t01=0x0092}
0x1e6c…1e92 Head {h00=0x0022, h01=0x0050, text=» TBT BOOL7,RETUR JUMP IF CORR «, t00=0x0013, t01=0x00c4}
0x1e92…1ea0 Head {h00=0x000a, h01=0x0050, text=»KTOT79«, t00=0x0013, t01=0x00ea}
0x1ea0…1ebc Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'31'«, t00=0x0013, t01=0x00f8}
0x1ebc…1ee4 Head {h00=0x0024, h01=0x0050, text=» PERF DERROR,DEKTAB8 ' CONFIRM'«, t00=0x0013, t01=0x0114}
0x1ee4…1f0c Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x0013, t01=0x013c}
0x1f0c…1f3a Head {h00=0x002a, h01=0x0050, text=» IB DEBINW2,RETUR,RETUR, CLR,CAN,RET C«, t00=0x0013, t01=0x0164}
0x1f3a…1f6a (20, 0, 400) Head {h00=0x002c, h01=0x0050, text=» RETUR,KTOT95,KTOT90,KTOT80 ENT,COR,RDL«, t00=0x0014, t01=0x0004}
0x1f6a…1f8c Head {h00=0x001e, h01=0x0050, text=» B RETUR JUMP ON CLEAR-KEY«, t00=0x0014, t01=0x0034}
0x1f8c…1f9a Head {h00=0x000a, h01=0x0050, text=»KTOT80«, t00=0x0014, t01=0x0056}
0x1f9a…1fb0 Head {h00=0x0012, h01=0x0050, text=»* PRT PRESSED «, t00=0x0014, t01=0x0064}
0x1fb0…1fe6 Head {h00=0x0032, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR.«, t00=0x0014, t01=0x007a}
0x1fe6…2018 Head {h00=0x002e, h01=0x0050, text=» ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT«, t00=0x0014, t01=0x00b0}
0x2018…203a Head {h00=0x001e, h01=0x0050, text=» PERF FEDIT FORMAT EDITING«, t00=0x0014, t01=0x00e2}
0x203a…205e Head {h00=0x0020, h01=0x0050, text=» PERF ATTPRT RESERVE PRINTER«, t00=0x0014, t01=0x0104}
0x205e…2072 Head {h00=0x0010, h01=0x0050, text=» BOK KTOT88 «, t00=0x0014, t01=0x0128}
0x2072…208e Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0014, t01=0x013c}
0x208e…20a0 Head {h00=0x000e, h01=0x0050, text=» B KTOT78 «, t00=0x0014, t01=0x0158}
0x20a0…20ae Head {h00=0x000a, h01=0x0050, text=»KTOT88«, t00=0x0014, t01=0x016a}
0x20ae…20da Head {h00=0x0028, h01=0x0050, text=» PERF PRFGUF PRINT FORMAT DEFINITION«, t00=0x0014, t01=0x0178}
0x20da…20fe Head {h00=0x0020, h01=0x0050, text=» PERF DETPRT RELEASE PRINTER«, t00=0x0015, t01=0x0014}
0x20fe…213e Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS«, t00=0x0015, t01=0x0038}
0x213e…2150 Head {h00=0x000e, h01=0x0050, text=» B KTOT78 «, t00=0x0015, t01=0x0078}
0x2150…216a Head {h00=0x0016, h01=0x0050, text=»KTOT90 RDEL-KEY «, t00=0x0015, t01=0x008a}
0x216a…2184 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W17 «, t00=0x0015, t01=0x00a4}
0x2184…21b8 Head {h00=0x0030, h01=0x0050, text=» PERF DERROR,DEKTAB9 'PRESS ENT TO CONFIRM' «, t00=0x0015, t01=0x00be}
0x21b8…21e0 Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST KEY-INDEX«, t00=0x0015, t01=0x00f2}
0x21e0…2206 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,RETUR,RETUR,KTOT92«, t00=0x0015, t01=0x011a}
0x2206…2218 Head {h00=0x000e, h01=0x0050, text=» B KTOT78 «, t00=0x0015, t01=0x0140}
0x2218…2226 Head {h00=0x000a, h01=0x0050, text=»KTOT92«, t00=0x0015, t01=0x0152}
0x2226…224c Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W13 DELETE FORMAT«, t00=0x0015, t01=0x0160}
0x224c…2264 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0015, t01=0x0186}
0x2264…2276 Head {h00=0x000e, h01=0x0050, text=» BOK RETUR«, t00=0x0016, t01=0x000e}
0x2276…2292 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0016, t01=0x0020}
0x2292…22ba Head {h00=0x0024, h01=0x0050, text=» SUB DEBINW1,W1 ADJUST KEY-INDEX«, t00=0x0016, t01=0x003c}
0x22ba…22da Head {h00=0x001c, h01=0x0050, text=» IB DEBINW2,RETUR,RETUR «, t00=0x0016, t01=0x0064}
0x22da…22fe Head {h00=0x0020, h01=0x0050, text=» B KTOT90 JUMP ON CLEAR-KEY «, t00=0x0016, t01=0x0084}
0x22fe…2316 Head {h00=0x0014, h01=0x0050, text=»KTOT95 COR-KEY«, t00=0x0016, t01=0x00a8}
0x2316…2328 Head {h00=0x000e, h01=0x0050, text=» SET BOOL7«, t00=0x0016, t01=0x00c0}
0x2328…2358 Head {h00=0x002c, h01=0x0050, text=» MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX «, t00=0x0016, t01=0x00d2}
0x2358…2386 Head {h00=0x002a, h01=0x0050, text=» MOVE CURSEC,W0 LOAD BUFFERPOINTER:=0 «, t00=0x0016, t01=0x0102}
0x2386…23a8 Head {h00=0x001e, h01=0x0050, text=» MOVE WORK(W3),W0 WORK:=0 «, t00=0x0016, t01=0x0130}
0x23a8…23d4 Head {h00=0x0028, h01=0x0050, text=» MOVE WORK(W4),W0 NUMB OF FPOOLS:=0 «, t00=0x0016, t01=0x0152}
0x23d4…2414 Head {h00=0x003c, h01=0x0050, text=» XCOPY WORK(W4),W1,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS «, t00=0x0016, t01=0x017e}
0x2414…245a Head {h00=0x0042, h01=0x0050, text=» XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS«, t00=0x0017, t01=0x002e}
0x245a…248e Head {h00=0x0030, h01=0x0050, text=» SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS«, t00=0x0017, t01=0x0074}
0x248e…24a0 Head {h00=0x000e, h01=0x0050, text=» B DEFDST «, t00=0x0017, t01=0x00a8}
0x24a0…24ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ba}
0x24ae…24b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c8}
0x24b8…2500 Head {h00=0x0044, h01=0x0050, text=»* ERROR IN FORMAT GENEREATION OR STOPPED BY KEYPROSSECING «, t00=0x0017, t01=0x00d2}
0x2500…250a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011a}
0x250a…2518 Head {h00=0x000a, h01=0x0050, text=»RETERR«, t00=0x0017, t01=0x0124}
0x2518…2554 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x0017, t01=0x0132}
0x2554…2568 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL7«, t00=0x0017, t01=0x016e}
0x2568…258c Head {h00=0x0020, h01=0x0050, text=» BZ RETEX JUMP IF NEW FORMAT«, t00=0x0017, t01=0x0182}
0x258c…25bc Head {h00=0x002c, h01=0x0050, text=» MOVE PINDFR,PINDDB CHANGE BUFFERPOINTER«, t00=0x0018, t01=0x0016}
0x25bc…25f8 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x0018, t01=0x0046}
0x25f8…2608 Head {h00=0x000c, h01=0x0050, text=» B RETCH«, t00=0x0018, t01=0x0082}
0x2608…2616 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0018, t01=0x0092}
0x2616…2652 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS«, t00=0x0018, t01=0x00a0}
0x2652…2666 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL7«, t00=0x0018, t01=0x00dc}
0x2666…2688 Head {h00=0x001e, h01=0x0050, text=» BZ RETEX JUMP IF NEW REG.«, t00=0x0018, t01=0x00f0}
0x2688…26bc Head {h00=0x0030, h01=0x0050, text=» TBF DOOLA,RETEX JUMP IF CORR FROM THIS PR. «, t00=0x0018, t01=0x0112}
0x26bc…26ca Head {h00=0x000a, h01=0x0050, text=»RETCH «, t00=0x0018, t01=0x0146}
0x26ca…26fa Head {h00=0x002c, h01=0x0050, text=» MOVE DEINPUT,FORMAT RESTORE FORMAT NAME«, t00=0x0018, t01=0x0154}
0x26fa…2712 Head {h00=0x0014, h01=0x0050, text=» PERF DEDISC,W10«, t00=0x0018, t01=0x0184}
0x2712…2720 Head {h00=0x000a, h01=0x0050, text=»RETEX «, t00=0x0019, t01=0x000c}
0x2720…2754 Head {h00=0x0030, h01=0x0050, text=» CBG DEBINW2,W1,REXIT JUMP IF NOT CANCEL-KEY«, t00=0x0019, t01=0x001a}
0x2754…277a Head {h00=0x0022, h01=0x0050, text=» TBT DOOLA,REXIT JUMP IF CORR «, t00=0x0019, t01=0x004e}
0x277a…279e Head {h00=0x0020, h01=0x0050, text=» B DEFDST JUMP ON CANCEL-KEY«, t00=0x0019, t01=0x0074}
0x279e…27ac Head {h00=0x000a, h01=0x0050, text=»REXIT «, t00=0x0019, t01=0x0098}
0x27ac…27e0 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX «, t00=0x0019, t01=0x00a6}
0x27e0…281e Head {h00=0x003a, h01=0x0050, text=» PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WORK BUFFER«, t00=0x0019, t01=0x00da}
0x281e…282a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0019, t01=0x0118}
0x282a…2838 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0124}
0x2838…2846 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0132}
0x2846…285a Head {h00=0x0010, h01=0x0050, text=»DEFGTC PROC «, t00=0x0019, t01=0x0140}
0x285a…2872 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW4 «, t00=0x0019, t01=0x0154}
0x2872…289e Head {h00=0x0028, h01=0x0050, text=» IB DEBINW4,FNR1,FPS1,FPS1,FNR4, C «, t00=0x0019, t01=0x016c}
0x289e…28ca Head {h00=0x0028, h01=0x0050, text=» FNR5,FPS1,FPS1,FPS1,FPS1,FPS1, C «, t00=0x001a, t01=0x0008}
0x28ca…28e8 Head {h00=0x001a, h01=0x0050, text=» FPS1,FPS1,FPS1,FPS1 «, t00=0x001a, t01=0x0034}
0x28e8…2900 Head {h00=0x0014, h01=0x0050, text=» B DETC97 NO TAB«, t00=0x001a, t01=0x0052}
0x2900…290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006a}
0x290a…292e Head {h00=0x0020, h01=0x0050, text=»* FIELD 1 FORMAT NAME «, t00=0x001a, t01=0x0074}
0x292e…2938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0098}
0x2938…2944 Head {h00=0x0008, h01=0x0050, text=»FNR1«, t00=0x001a, t01=0x00a2}
0x2944…296e Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W7,F2BTB JUMP IF BTB «, t00=0x001a, t01=0x00ae}
0x296e…2998 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W8,F1HOM JUMP IF HOM «, t00=0x001a, t01=0x00d8}
0x2998…29b0 Head {h00=0x0014, h01=0x0050, text=» B DETC99 TAB OK«, t00=0x001a, t01=0x0102}
0x29b0…29be Head {h00=0x000a, h01=0x0050, text=»F1HOM «, t00=0x001a, t01=0x011a}
0x29be…29ea Head {h00=0x0028, h01=0x0050, text=» TBT BOOL7,DETC84 JUMP IF CORR MODE «, t00=0x001a, t01=0x0128}
0x29ea…2a14 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL1,DETC84 NO HOME ALLOWED «, t00=0x001a, t01=0x0154}
0x2a14…2a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017e}
0x2a1e…2a5a Head {h00=0x0038, h01=0x0050, text=»* HOME ALLOWED FIELD NOT CONFIRMED WITHIN LINE«, t00=0x001a, t01=0x0188}
0x2a5a…2a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0034}
0x2a64…2a70 Head {h00=0x0008, h01=0x0050, text=»F1A «, t00=0x001b, t01=0x003e}
0x2a70…2aa0 Head {h00=0x002c, h01=0x0050, text=» TBT DOOL2,F1B JUMP IF ALREADY DEL ONCE «, t00=0x001b, t01=0x004a}
0x2aa0…2ad0 Head {h00=0x002c, h01=0x0050, text=» MOVE FMTWK(W8),BIN3 SAVE CURR BUFFERIND«, t00=0x001b, t01=0x007a}
0x2ad0…2b0a Head {h00=0x0036, h01=0x0050, text=» MOVE BIN3,FMTWK(W7) REESTORE LAST LINE'S BUFFIND «, t00=0x001b, t01=0x00aa}
0x2b0a…2b2c Head {h00=0x001e, h01=0x0050, text=» SET DOOL2 T=LINE DELETED «, t00=0x001b, t01=0x00e4}
0x2b2c…2b5a Head {h00=0x002a, h01=0x0050, text=» TBF BOOL2,F1B JUMP IF NO FIELD MATCH «, t00=0x001b, t01=0x0106}
0x2b5a…2b80 Head {h00=0x0022, h01=0x0050, text=» SUB BIN10,W1 ADJUST FIELD NR «, t00=0x001b, t01=0x0134}
0x2b80…2b8c Head {h00=0x0008, h01=0x0050, text=»F1B «, t00=0x001b, t01=0x015a}
0x2b8c…2bc4 Head {h00=0x0034, h01=0x0050, text=» MOVE BIN1,FMTWK(W6) RESTORE LASTLINE'S STPOINT «, t00=0x001b, t01=0x0166}
0x2bc4…2bee Head {h00=0x0026, h01=0x0050, text=» TBF BOOL1,DETC99 HOME TO FIELD 1 «, t00=0x001c, t01=0x000e}
0x2bee…2c24 Head {h00=0x0032, h01=0x0050, text=» CBE DEBINW4,W3,DETC99 JUMP FIELD ALREADY = 3 «, t00=0x001c, t01=0x0038}
0x2c24…2c3c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x001c, t01=0x006e}
0x2c3c…2c4e Head {h00=0x000e, h01=0x0050, text=» B DETC92 «, t00=0x001c, t01=0x0086}
0x2c4e…2c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0098}
0x2c58…2c84 Head {h00=0x0028, h01=0x0050, text=»* PRE SELECTION FIELD 2,3,6-15«, t00=0x001c, t01=0x00a2}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c8e…2c9a Head {h00=0x0008, h01=0x0050, text=»FPS1«, t00=0x001c, t01=0x00d8}
0x2c9a…2cc4 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W3,DETC99 JUMP IF EOI«, t00=0x001c, t01=0x00e4}
0x2cc4…2cee Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W6,DETC99 JUMP IF PLS«, t00=0x001c, t01=0x010e}
0x2cee…2d02 Head {h00=0x0010, h01=0x0050, text=»* BTB «, t00=0x001c, t01=0x0138}
0x2d02…2d3c Head {h00=0x0036, h01=0x0050, text=» IB DEBINW4,DETC97,F2BTB,F1HOM,DETC97, FIELD 1-4 C«, t00=0x001c, t01=0x014c}
0x2d3c…2d6c Head {h00=0x002c, h01=0x0050, text=» DETC99,DETC99,F3Z,DETC99, FIELD 5-8 C «, t00=0x001c, t01=0x0186}
0x2d6c…2da0 Head {h00=0x0030, h01=0x0050, text=» DETC99,DETC99,DETC99,DETC99, FIELD 9-12 C «, t00=0x001d, t01=0x0026}
0x2da0…2dae Head {h00=0x000a, h01=0x0050, text=» F3Z «, t00=0x001d, t01=0x005a}
0x2dae…2dc0 Head {h00=0x000e, h01=0x0050, text=» B DETC97 «, t00=0x001d, t01=0x0068}
0x2dc0…2dce Head {h00=0x000a, h01=0x0050, text=»F2BTB «, t00=0x001d, t01=0x007a}
0x2dce…2df8 Head {h00=0x0026, h01=0x0050, text=» TBF BOOL1,DETC99 NO FIELDS TAB OK«, t00=0x001d, t01=0x0088}
0x2df8…2e2a Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W3 FIELD 3 NO TAB => 'PEEP' «, t00=0x001d, t01=0x00b2}
0x2e2a…2e3c Head {h00=0x000e, h01=0x0050, text=» B DETC90 «, t00=0x001d, t01=0x00e4}
0x2e3c…2e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f6}
0x2e46…2e6a Head {h00=0x0020, h01=0x0050, text=»* FILED 3 LINE DESIGN «, t00=0x001d, t01=0x0100}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e74…2e80 Head {h00=0x0008, h01=0x0050, text=»F3Z «, t00=0x001d, t01=0x012e}
0x2e80…2eb0 Head {h00=0x002c, h01=0x0050, text=» TBT BOOL2,DETC99 BTB OK IF FIELD FOUND «, t00=0x001d, t01=0x013a}
0x2eb0…2ebe Head {h00=0x000a, h01=0x0050, text=» B F1A«, t00=0x001d, t01=0x016a}
0x2ebe…2ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0178}
0x2ec8…2ef2 Head {h00=0x0026, h01=0x0050, text=»* FIELD 4 KEYED INPUT FIELD«, t00=0x001d, t01=0x0182}
0x2ef2…2efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001c}
0x2efc…2f08 Head {h00=0x0008, h01=0x0050, text=»FNR4«, t00=0x001e, t01=0x0026}
0x2f08…2f32 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W3,F4EOI JUMP IF EOI «, t00=0x001e, t01=0x0032}
0x2f32…2f5c Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W6,F4PLS JUMP IF PLS «, t00=0x001e, t01=0x005c}
0x2f5c…2f86 Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W7,DETC99 JUMP IF BTB«, t00=0x001e, t01=0x0086}
0x2f86…2fa0 Head {h00=0x0016, h01=0x0050, text=» B DETC97 TAB NOK «, t00=0x001e, t01=0x00b0}
0x2fa0…2fae Head {h00=0x000a, h01=0x0050, text=»F4EOI «, t00=0x001e, t01=0x00ca}
0x2fae…2fbc Head {h00=0x000a, h01=0x0050, text=»F4PLS «, t00=0x001e, t01=0x00d8}
0x2fbc…2fd2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x001e, t01=0x00e6}
0x2fd2…2ffa Head {h00=0x0024, h01=0x0050, text=» PERF MTEXT MATCH AND EDIT TEXT «, t00=0x001e, t01=0x00fc}
0x2ffa…3026 Head {h00=0x0028, h01=0x0050, text=» SET DOOL6 T=MTEXT/DETCH PASSED ONCE«, t00=0x001e, t01=0x0124}
0x3026…3054 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW2,W0,DETC98 JUMP IF NOY OK«, t00=0x001e, t01=0x0150}
0x3054…307e Head {h00=0x0026, h01=0x0050, text=» TBT BOOL2,DETC99 TBFWD OK FIELD 4«, t00=0x001e, t01=0x017e}
0x307e…30aa Head {h00=0x0028, h01=0x0050, text=» TBT DOOL5,DETC99 JUMP IF CORR LINE «, t00=0x001f, t01=0x0018}
0x30aa…30d4 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,PRECCUR LAST FIELDNR«, t00=0x001f, t01=0x0044}
0x30d4…30f6 Head {h00=0x001e, h01=0x0050, text=» B DETC92 TAB NOT ALLOWED «, t00=0x001f, t01=0x006e}
0x30f6…3100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0090}
0x3100…313e Head {h00=0x003a, h01=0x0050, text=»* CHECK IF ACC-FIELD EMPTY WHEN BALANCE FORMAT «, t00=0x001f, t01=0x009a}
0x313e…3148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d8}
0x3148…3154 Head {h00=0x0008, h01=0x0050, text=»FNR5«, t00=0x001f, t01=0x00e2}
0x3154…3182 Head {h00=0x002a, h01=0x0050, text=» TBF BOOL6,DETC99 JUMP IF USER FORMAT «, t00=0x001f, t01=0x00ee}
0x3182…31ae Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW2,W7,DETC99 JUMP IF BTAB «, t00=0x001f, t01=0x011c}
0x31ae…31ce Head {h00=0x001c, h01=0x0050, text=» CALL EMPTYT,FDVBCD(W8) «, t00=0x001f, t01=0x0148}
0x31ce…31f2 Head {h00=0x0020, h01=0x0050, text=» BNOK DETC84 TAB NOT ALLOWED«, t00=0x001f, t01=0x0168}
0x31f2…321a Head {h00=0x0024, h01=0x0050, text=» B DETC99 ACCFIELD NOT EMPTY OK «, t00=0x001f, t01=0x018c}
0x321a…3244 Head {h00=0x0026, h01=0x0050, text=»DETC84 FIELD 4 NO TAB => 'PEEP' «, t00=0x0020, t01=0x0024}
0x3244…325c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x0020, t01=0x004e}
0x325c…326a Head {h00=0x000a, h01=0x0050, text=»DETC90«, t00=0x0020, t01=0x0066}
0x326a…328c Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 «, t00=0x0020, t01=0x0074}
0x328c…329a Head {h00=0x000a, h01=0x0050, text=»DETC97«, t00=0x0020, t01=0x0096}
0x329a…32b6 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W0 OK «, t00=0x0020, t01=0x00a4}
0x32b6…32c4 Head {h00=0x000a, h01=0x0050, text=»DETC98«, t00=0x0020, t01=0x00c0}
0x32c4…32ec Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW3,W2 TAB NOT ALLOWED«, t00=0x0020, t01=0x00ce}
0x32ec…32fe Head {h00=0x000e, h01=0x0050, text=» B DETCRT «, t00=0x0020, t01=0x00f6}
0x32fe…330c Head {h00=0x000a, h01=0x0050, text=»DETC92«, t00=0x0020, t01=0x0108}
0x330c…332e Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 «, t00=0x0020, t01=0x0116}
0x332e…333c Head {h00=0x000a, h01=0x0050, text=»DETC99«, t00=0x0020, t01=0x0138}
0x333c…3360 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW3,W0 TAB ALLOWED«, t00=0x0020, t01=0x0146}
0x3360…337c Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W0 OK «, t00=0x0020, t01=0x016a}
0x337c…338a Head {h00=0x000a, h01=0x0050, text=»DETCRT«, t00=0x0020, t01=0x0186}
0x338a…3396 (33, 2, 254) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0004}
0x3396…33a4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0010}
0x33a4…33b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x001e}
0x33b2…33bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002c}
0x33bc…33f8 Head {h00=0x0038, h01=0x0050, text=»* DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD «, t00=0x0021, t01=0x0036}
0x33f8…3422 Head {h00=0x0026, h01=0x0050, text=»* IN EVERY GENERATED FORMAT «, t00=0x0021, t01=0x0072}
0x3422…342c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009c}
0x342c…343e Head {h00=0x000e, h01=0x0050, text=»FDUM FRMT «, t00=0x0021, t01=0x00a6}
0x343e…3452 Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x0021, t01=0x00b8}
0x3452…3466 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0021, t01=0x00cc}
0x3466…3474 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x00e0}
0x3474…3480 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0021, t01=0x00ee}
0x3480…3484 Head {h00=0x4004, h01=0x0000}
0x3484…3488 00 21 00 fa ┆ ! ┆
0x3488…3490 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x3490…34e0 (35, 0, 400) 43 54 55 41 4c 20 50 4f 53 49 54 49 4f 4e 00 0a 01 76 00 34 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 32 2c 46 4d 54 57 4b 28 57 31 32 29 5c 4c 4f 41 44 20 54 4f 54 41 4c 20 4e 55 4d 42 20 4f 46 20 43 48 41 52 53 00 0b 00 16 00 2e 00 50 5c 53 ┆CTUAL POSITION v 4 P MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS . P S┆
0x34e0…3530 55 42 5c 44 45 42 49 4e 32 2c 44 45 42 49 4e 34 5c 4e 55 4d 42 20 4f 46 20 43 48 41 52 53 20 54 4f 20 4d 41 54 43 48 20 00 0b 00 4e 00 44 00 50 5c 4d 41 54 43 48 5c 4a 4f 42 53 50 43 2c 44 45 42 49 4e 33 2c 44 45 42 49 4e 32 2c 53 54 52 47 ┆UB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH N D P MATCH JOBSPC,DEBIN3,DEBIN2,STRG┆
0x3530…3580 31 30 41 2c 46 42 49 4e 31 2c 57 32 5c 4a 55 53 54 20 4f 4e 45 20 46 55 4e 43 20 45 41 43 48 20 00 0b 00 80 00 28 00 50 5c 42 4e 4f 4b 5c 56 47 41 43 33 35 5c 4e 4f 20 4d 4f 52 45 20 4f 46 20 53 41 4d 45 20 46 4f 4e 43 20 4f 4b 00 0b 00 c8 ┆10A,FBIN1,W2 JUST ONE FUNC EACH ( P BNOK VGAC35 NO MORE OF SAME FONC OK ┆
0x3580…35d0 00 2e 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 34 2c 44 45 42 49 4e 33 5c 52 45 53 54 4f 52 45 20 45 52 52 4f 52 2d 50 4f 53 49 54 49 4f 4e 00 0b 00 f4 00 1a 00 50 5c 53 55 42 5c 44 45 42 49 4e 34 2c 57 31 5c 41 44 4a 55 53 54 20 00 0b 01 26 ┆ . P MOVE DEBIN4,DEBIN3 RESTORE ERROR-POSITION P SUB DEBIN4,W1 ADJUST &┆
0x35d0…3620 00 0e 00 50 5c 42 5c 56 47 41 43 39 30 20 00 0b 01 44 00 0a 00 50 5c 45 4a 45 43 54 00 0b 01 56 00 0a 00 50 56 47 41 43 33 35 00 0b 01 64 00 2c 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 33 2c 44 45 42 49 4e 34 5c 4c 4f 41 44 20 41 43 54 55 41 ┆ P B VGAC90 D P EJECT V PVGAC35 d , P MOVE DEBIN3,DEBIN4 LOAD ACTUA┆
0x3620…3670 (36, 0, 398) 4c 20 50 4f 53 49 54 49 4f 4e 00 0b 01 72 00 16 00 50 5c 4d 4f 56 45 5c 53 54 52 31 41 2c 3d 43 27 23 27 20 00 0c 00 12 00 30 00 50 5c 4d 41 54 43 48 5c 4a 4f 42 53 50 43 2c 44 45 42 49 4e 33 2c 44 45 42 49 4e 32 2c 53 54 52 31 41 2c 57 30 ┆L POSITION r P MOVE STR1A,=C'#' 0 P MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0┆
0x3670…36c0 2c 57 31 5c 4e 45 58 54 00 0c 00 2c 00 20 00 50 5c 42 4f 4b 5c 56 47 41 43 34 30 5c 4f 4b 20 4e 45 58 54 20 23 20 46 4f 55 4e 44 20 00 0c 00 60 00 34 00 50 5c 4d 4f 56 45 5c 44 45 42 49 4e 33 2c 46 4d 54 57 4b 28 57 31 32 29 5c 4c 4f 41 44 ┆,W1 NEXT , P BOK VGAC40 OK NEXT # FOUND ` 4 P MOVE DEBIN3,FMTWK(W12) LOAD┆
0x36c0…3710 20 57 49 54 48 20 4c 41 53 54 20 50 4f 53 49 54 49 4f 4e 20 00 0c 00 84 00 0a 00 50 56 47 41 43 34 30 00 0c 00 bc 00 36 00 50 5c 4d 4f 56 45 5c 46 4d 54 57 4b 28 44 45 42 49 4e 57 32 29 2c 44 45 42 49 4e 33 5c 4c 4f 41 44 20 45 4e 44 50 4f ┆ WITH LAST POSITION PVGAC40 6 P MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPO┆
0x3710…3760 53 20 4f 46 20 43 4f 4e 54 52 4f 4c 00 0c 00 ca 00 36 00 50 5c 50 45 52 46 5c 43 4e 54 4e 55 4d 2c 4a 4f 42 53 50 43 2c 46 4d 54 57 4b 2c 44 45 42 49 4e 57 32 5c 43 4f 4e 54 52 4f 4c 20 46 55 4e 43 54 49 4f 4e 00 0c 01 04 00 20 00 50 5c 42 ┆S OF CONTROL 6 P PERF CNTNUM,JOBSPC,FMTWK,DEBINW2 CONTROL FUNCTION P B┆
0x3760…37ae 4e 4f 4b 5c 56 47 41 43 39 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 4f 4b 20 00 0c 01 3e 00 2c 00 50 5c 43 42 4e 45 5c 44 45 42 49 4e 57 32 2c 57 33 2c 56 47 41 43 34 35 5c 4a 55 4d 50 20 49 46 20 4e 4f 54 20 41 43 43 20 00 0c 01 62 ┆NOK VGAC90 JUMP IF NOT OK > , P CBNE DEBINW2,W3,VGAC45 JUMP IF NOT ACC b┆