|
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: 10588 (0x295c)
Notes: pts_type(SC)
Names: »DE1201.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE1201.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE1201.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE1201.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE1201.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE1201.SC«
IDENT DE1201 REL 10.0 80-04-11 80-02-13/DALI ********************************************* * BOOL1 : T=GET V-S F=CREATE V-S * * BOOL2 : T=LINE 1-2 F=LINE 1-3 * * BOOL3 : T=LINE 1-5 F=LINE 1-3 * ********************************************* * BIN1 WORKITEM * * BIN2 NO. OF ELEM.IN THIS RECORD * * BIN3 SIZE OF ELEMENT * * BIN4 FIRST EL.NO. IN RECORD * * BIN5 LAST - " - * * BIN6 ELMNO - BIN4 + W1 * * BIN7 = 0 * * BIN8 FC-DEDISC * * BIN10 X'8000' / X'B000' ,A/N * ************************************* DDUM DEDDIV PDIV ENTRY ENT12 * EXT FMOVE EXT DERR EXT CANC11 EXT CANC12 EXT ATTWB EXT ATTDB EXT DECLRN EXT DEPOOL EXT DERROR EXT DEDISC EXT TESTB EXT CLEARB EXT RESTOR EXT WRIT12 EXT A20 INCLUDE DEKEYS,LIST * DEKTAB6 KTAB CLR,CAN,RET * DEKTAB9 KTAB CLR,CAN,RET,ENT * EJECT ENT12 TBF BOOL1,E1 IF CREATE B GET E1 MOVE ELMNO,W1 ********************************* * MODUL 12 - CREATE VALUE-SET * ********************************* PERF DEDISC,W24 GET VALUE-SETS BNOK E8 PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER MOVE DEBINW4,W8 'ALREADY DEFINED' E2 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 SUB DEBINW2,W1 CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS B A20 E8 CBE DEBINW4,W9,E10 NOT FOUND B E2 E10 GET BUFFER MOVE PINDTB,W1 1 BUFFER MOVE BIN7,W0 NO CONSECUTIVE BUFFERS MOVE STRG10A,=X'545400' T(ABLE) COPY STRG10A,W2,W2,DEINPUT,W0 VALUE-SET-NAME PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK BNOK ERR99 PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER MOVE BPOOL(PINDTB),HEX00 CLEAR BOOL3 CLEAR BOOL2 LINE 1-3 ERASE 3,W2,W0 FKI + FINP SET DEPROMPT PERF DECLRN E16 IB DEBINW2,CANC12,CANC12,E20 MOVE DEBINW4,W0 'BELL' PERF DERR B E16 E20 MOVE BIN4,W1 1:ST EL.NO. IN REC. MOVE BIN2,=W'180' MOVE STR1A,STR2A CBE STR1A,=C'N',E24 DIV BIN2,BIN3 NO.OF ELEM. IN REC. * DESCRIPTOR MOVE BIN10,=X'8000' IF STRING='1000' ADD BIN10,BIN3 B E30 E24 NUMERIC MOVE BIN10,=X'B000' IF BCD ='1011' MOVE BIN1,BIN3 NUMERIC INPUT DIV BIN1,W2 ADD BIN1,W1 BYTES ADD BIN10,BIN1 DIV BIN2,BIN1 NO. OF ELEM. IN REC. E30 MOVE BIN5,BIN2 LAST EL.NO. IN REC. XCOPY BPOOL(PINDTB),W0,W2,BIN10,W0 SIZE IN BYTES XCOPY BPOOL(PINDTB),W4,W2,BIN2,W0 NO. OF ELEMENTS SET BOOL3 LINE 1-5 * MODIFY FORMAT CALL FMOVE,STR64A,FORMA CALL TESTB,BIN10,W2 BZ E32 CALL FMOVE,STR64A,FORMN E32 XCOPY STR64A,W3,W1,BIN3,W1 SIZE MOVE ELMNO,W1 MOVE BIN6,W1 INDEX B E36 * ENTER ELEMENT E35 ADD ELMNO,W1 E36 CBG ELMNO,=W'99',E60 LAST ELEMENT ENTERED CBNG ELMNO,BIN5,E37 PERF WRIT12 RECORD FILLED BNOK ERR99 E37 CALL ATTWB,BPOOL(PINDTB),W8,W11 CALL ATTDB,BPOOL(PINDTB),W0,W11 MOVE ACK(W1),ELMNO MOVE BIN6,ELMNO INDEX SUB BIN6,BIN4 ADD BIN6,W1 DISPLAY 3,W4,W4 FIELD 4 MOVE BIN11,W5 GETFLD 2,BIN11,BIN1 FIELD 5 ERASE 3,W5,W5 CLEAR IN MEMORY ERASE 0,W5,W5 E42 PERF DECLRN E45 IB DEBINW2,CANC12,CANC12,E35,E56,E56,E56,E56,E60 E56 MOVE DEBINW4,W0 'BELL' PERF DERR IB DEBINW2,E42,CANC12 B E45 E60 CBE ELMNO,BIN4,E70 =1:ST EL.NO. IN REC. PERF WRIT12 LAST WRIT12/V-S. BNOK ERR99 E70 MOVE DEBINW2,W3 ENT-KEY B CANC12 EJECT ******************************* * MODUL 13 - GET VALUE-SETS * ******************************* GET SET BOOL2 MOVE ELMNO,W1 PERF READ12,W24 GET VALUE-SETS BERR ERR99 SET DEPROMPT B B40 FORW ADD ELMNO,W1 CBE BIN6,BIN2,B20 NEW RECORD CBG ELMNO,BIN5,B80 >LAST EL.NO. IN REC. B B50 BACKW SUB ELMNO,W1 CBL ELMNO,W1,B10 CBL ELMNO,BIN4,B20 < 1:ST EL.NO. IN REC. B B50 B10 MOVE ELMNO,W1 BACKW NOT LESS 1 B B50 B20 PERF READ12,W24 GET VALUE-SET BOK B40 CBE DEBINW4,W9,B80 'NOT FOUND' B C75 B40 CALL ATTWB,BPOOL(PINDTB),W8,W11 CALL ATTDB,BPOOL(PINDTB),W0,W11 B50 CLEAR BOOL2 LINE 1-3 SET BOOL3 LINE 1-5 MOVE BIN6,ELMNO INDEX SUB BIN6,BIN4 ADD BIN6,W1 MOVE ACK(W1),ELMNO ERASE 0,W5,W5 LINE 5 TBT DEPROMPT,B55 DISPLAY 3,W4,W5 B55 SET DENOCHAN PERF DECLRN B60 IB DEBINW2,CANC12,CANC12,B20,FORW,BACKW,CORR,CORR C CANC11,CANC11,INS MOVE DEBINW4,W0 'BELL' B B84 B80 MOVE DEBINW4,W9 'NOT FOUND' SUB ELMNO,W1 SET DENOCHAN B84 PERF DERR B B60 * * INSERT NEW ELEMENT INS AFTER LAST ELEMENT MOVE ELMNO,W1 I10 PERF READ12,W24 GET VALUE-SET BNOK I20 MOVE ELMNO,BIN5 LAST EL.NO. IN REC. ADD ELMNO,W1 B I10 I20 SUB ELMNO,W1 PERF READ12,W24 GET VALUE-SET MOVE BIN1,BIN4 ADD BIN1,BIN2 SUB BIN1,W1 CBE ELMNO,BIN1,I30 MOVE BIN5,BIN1 PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER BNOK ERR99 B E35 I30 NEW RECORD MOVE BIN4,ELMNO MOVE BIN5,ELMNO ADD BIN4,W1 ADD BIN5,BIN2 MOVE BIN1,PINDTB PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER MOVE PINDTB,W1 1 BUFFER MOVE BIN7,W0 NO CONSECUTIVE BUFFERS MOVE STRG10A,=X'5400' T(ABLE) COPY STRG10A,W1,W3,TABLE,W0 MOVE DEINPUT,STR64A PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK MOVE STR64A,DEINPUT BNOK ERR99 PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER MOVE BPOOL(PINDTB),BPOOL(BIN1) CALL ATTWB,BPOOL(PINDTB),W8,W11 B E35 ERR13 MOVE DEBINW4,W13 'NO WORKSPACE' ERR99 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 ERA20 RET AT DELETION SUB DEBINW2,W1 B A20 EJECT CORR CBE DEBINW2,W6,C70 IF CORRECTION * * DELETION * PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER C40 MOVE DEBINW4,W17 'PRESS ENT FOR DELETION' PERF DERROR,DEKTAB9 SUB DEBINW2,W1 ADJUST IB DEBINW2,B50,ERA20,C50 CAN,RET,ENT B B50 CLR-KEY C50 MOVE ELMNO,W0 C55 PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER BNOK C75 PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER PERF DEPOOL,W5,PINDTB,BIN7,STRG10A SEARCH BUFFER BOK C55 MOVE BIN8,=W'25' PERF DEDISC,BIN8 DELETE VALUE0SET BOK CANC12 CANC-KEY C75 SET DENOCHAN NO CHANGES POSSIBLE MOVE DEBINW1,W0 PERF DERR B B60 C70 ********************* * CORR. VALUE-SET * ********************* PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER BNOK C75 PERF DECLRN C711 IB DEBINW2,CANC12,CANC12,C72 MOVE DEBINW4,W0 PERF DERR B C711 C72 MOVE BIN8,=W'26' PERF DEDISC,BIN8 ENTER VALUE-SETS BNOK C75 GETFLD 2,W5,BIN1 CALL CLEARB,RPOOL(PINDTB),W0 UNLOCK BUFFER B B50 EJECT READ12 PROC FC MOVE DEINPUT,STR64A PERF DEDISC,FC MOVE STR64A,DEINPUT BERR R10 MOVE BIN3,W0 XCOPY BIN3,W1,W1,BPOOL(PINDTB),W1 SIZE OF ELEMENT IN BYTES CALL FMOVE,STR64A,FORMA MODIFY FORMAT XCOPY BIN10,W0,W2,BPOOL(PINDTB),W0 DESCRIPTOR MOVE STR2A,=X'4100' CALL TESTB,BIN10,W2 BZ R05 MOVE STR2A,=X'4E00' C'N' CALL FMOVE,STR64A,FORMN MUL BIN3,W2 SUB BIN3,W1 R05 XCOPY STR64A,W3,W1,BIN3,W1 SIZE MOVE TIME,BIN3 XCOPY BIN2,W0,W2,BPOOL(PINDTB),W4 NO.OF ELEM.IN THIS REC. MOVE BIN4,W0 MOVE BIN5,W0 XCOPY BIN4,W1,W1,RPOOL(PINDTB),W17 1:ST ELEM. IN REC. XCOPY BIN5,W1,W1,RPOOL(PINDTB),W18 LAST ELEM. IN REC. CMP W1,W1 SET S=0 R10 RET PEND EJECT * FORMN FRMT FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * FORMA FRMT * FKI 1,ALPHA,MINL=1,MAXL=1,NEOI,ME * FCOPY FDVBCD(BIN6) FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DE1201 REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-02-13/DALI«, t00=0x0000, t01=0x002c}
0x0040…0076 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0044}
0x0076…00ac Head {h00=0x0032, h01=0x0050, text=»* BOOL1 : T=GET V-S F=CREATE V-S * «, t00=0x0000, t01=0x007a}
0x00ac…00e2 Head {h00=0x0032, h01=0x0050, text=»* BOOL2 : T=LINE 1-2 F=LINE 1-3 * «, t00=0x0000, t01=0x00b0}
0x00e2…0118 Head {h00=0x0032, h01=0x0050, text=»* BOOL3 : T=LINE 1-5 F=LINE 1-3 * «, t00=0x0000, t01=0x00e6}
0x0118…014e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x011c}
0x014e…017c Head {h00=0x002a, h01=0x0050, text=»* BIN1 WORKITEM * «, t00=0x0000, t01=0x0152}
0x017c…01aa Head {h00=0x002a, h01=0x0050, text=»* BIN2 NO. OF ELEM.IN THIS RECORD * «, t00=0x0000, t01=0x0180}
0x01aa…01d8 Head {h00=0x002a, h01=0x0050, text=»* BIN3 SIZE OF ELEMENT * «, t00=0x0001, t01=0x001e}
0x01d8…0206 Head {h00=0x002a, h01=0x0050, text=»* BIN4 FIRST EL.NO. IN RECORD * «, t00=0x0001, t01=0x004c}
0x0206…0234 Head {h00=0x002a, h01=0x0050, text=»* BIN5 LAST - " - * «, t00=0x0001, t01=0x007a}
0x0234…0262 Head {h00=0x002a, h01=0x0050, text=»* BIN6 ELMNO - BIN4 + W1 * «, t00=0x0001, t01=0x00a8}
0x0262…0290 Head {h00=0x002a, h01=0x0050, text=»* BIN7 = 0 * «, t00=0x0001, t01=0x00d6}
0x0290…02be Head {h00=0x002a, h01=0x0050, text=»* BIN8 FC-DEDISC * «, t00=0x0001, t01=0x0104}
0x02be…02ec Head {h00=0x002a, h01=0x0050, text=»* BIN10 X'8000' / X'B000' ,A/N * «, t00=0x0001, t01=0x0132}
0x02ec…031a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0001, t01=0x0160}
0x031a…032e Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x018e}
0x032e…033c Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0012}
0x033c…0350 Head {h00=0x0010, h01=0x0050, text=» ENTRY ENT12«, t00=0x0002, t01=0x0020}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…036c Head {h00=0x000e, h01=0x0050, text=» EXT FMOVE«, t00=0x0002, t01=0x003e}
0x036c…037e Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0002, t01=0x0050}
0x037e…0392 Head {h00=0x0010, h01=0x0050, text=» EXT CANC11 «, t00=0x0002, t01=0x0062}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=» EXT CANC12 «, t00=0x0002, t01=0x0076}
0x03a6…03b8 Head {h00=0x000e, h01=0x0050, text=» EXT ATTWB«, t00=0x0002, t01=0x008a}
0x03b8…03ca Head {h00=0x000e, h01=0x0050, text=» EXT ATTDB«, t00=0x0002, t01=0x009c}
0x03ca…03de Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0002, t01=0x00ae}
0x03de…03f2 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0002, t01=0x00c2}
0x03f2…0406 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0002, t01=0x00d6}
0x0406…041a Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0002, t01=0x00ea}
0x041a…042c Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0002, t01=0x00fe}
0x042c…0440 Head {h00=0x0010, h01=0x0050, text=» EXT CLEARB «, t00=0x0002, t01=0x0110}
0x0440…0454 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x0124}
0x0454…0468 Head {h00=0x0010, h01=0x0050, text=» EXT WRIT12 «, t00=0x0002, t01=0x0138}
0x0468…0478 Head {h00=0x000c, h01=0x0050, text=» EXT A20«, t00=0x0002, t01=0x014c}
0x0478…0494 Head {h00=0x0018, h01=0x0050, text=» INCLUDE DEKEYS,LIST«, t00=0x0002, t01=0x015c}
0x0494…049e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0178}
0x049e…04be Head {h00=0x001c, h01=0x0050, text=»DEKTAB6 KTAB CLR,CAN,RET«, t00=0x0002, t01=0x0182}
0x04be…04c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0012}
0x04c8…04ec Head {h00=0x0020, h01=0x0050, text=»DEKTAB9 KTAB CLR,CAN,RET,ENT«, t00=0x0003, t01=0x001c}
0x04ec…04f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0040}
0x04f6…0504 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x004a}
0x0504…0512 Head {h00=0x000a, h01=0x0050, text=»ENT12 «, t00=0x0003, t01=0x0058}
0x0512…0532 Head {h00=0x001c, h01=0x0050, text=» TBF BOOL1,E1 IF CREATE «, t00=0x0003, t01=0x0066}
0x0532…0540 Head {h00=0x000a, h01=0x0050, text=» B GET«, t00=0x0003, t01=0x0086}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»E1«, t00=0x0003, t01=0x0094}
0x054a…0560 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0003, t01=0x009e}
0x0560…058a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0003, t01=0x00b4}
0x058a…05b4 Head {h00=0x0026, h01=0x0050, text=»* MODUL 12 - CREATE VALUE-SET * «, t00=0x0003, t01=0x00de}
0x05b4…05de Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0003, t01=0x0108}
0x05de…0606 Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,W24 GET VALUE-SETS «, t00=0x0003, t01=0x0132}
0x0606…0616 Head {h00=0x000c, h01=0x0050, text=» BNOK E8«, t00=0x0003, t01=0x015a}
0x0616…0650 Head {h00=0x0036, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER«, t00=0x0003, t01=0x016a}
0x0650…067a Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W8 'ALREADY DEFINED'«, t00=0x0004, t01=0x0014}
0x067a…0684 Head {h00=0x0006, h01=0x0050, text=»E2«, t00=0x0004, t01=0x003e}
0x0684…069c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0004, t01=0x0048}
0x069c…06b8 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0004, t01=0x0060}
0x06b8…06d0 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W1 «, t00=0x0004, t01=0x007c}
0x06d0…0710 Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS «, t00=0x0004, t01=0x0094}
0x0710…071e Head {h00=0x000a, h01=0x0050, text=» B A20«, t00=0x0004, t01=0x00d4}
0x071e…0728 Head {h00=0x0006, h01=0x0050, text=»E8«, t00=0x0004, t01=0x00e2}
0x0728…074e Head {h00=0x0022, h01=0x0050, text=» CBE DEBINW4,W9,E10 NOT FOUND «, t00=0x0004, t01=0x00ec}
0x074e…075c Head {h00=0x000a, h01=0x0050, text=» B E2 «, t00=0x0004, t01=0x0112}
0x075c…0774 Head {h00=0x0014, h01=0x0050, text=»E10 GET BUFFER«, t00=0x0004, t01=0x0120}
0x0774…0794 Head {h00=0x001c, h01=0x0050, text=» MOVE PINDTB,W1 1 BUFFER«, t00=0x0004, t01=0x0138}
0x0794…07c0 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN7,W0 NO CONSECUTIVE BUFFERS«, t00=0x0004, t01=0x0158}
0x07c0…07e8 Head {h00=0x0024, h01=0x0050, text=» MOVE STRG10A,=X'545400' T(ABLE)«, t00=0x0004, t01=0x0184}
0x07e8…081e Head {h00=0x0032, h01=0x0050, text=» COPY STRG10A,W2,W2,DEINPUT,W0 VALUE-SET-NAME «, t00=0x0005, t01=0x001c}
0x081e…085e Head {h00=0x003c, h01=0x0050, text=» PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK«, t00=0x0005, t01=0x0052}
0x085e…0872 Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x0005, t01=0x0092}
0x0872…08a8 Head {h00=0x0032, h01=0x0050, text=» PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER«, t00=0x0005, t01=0x00a6}
0x08a8…08ca Head {h00=0x001e, h01=0x0050, text=» MOVE BPOOL(PINDTB),HEX00 «, t00=0x0005, t01=0x00dc}
0x08ca…08de Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL3«, t00=0x0005, t01=0x00fe}
0x08de…08fc Head {h00=0x001a, h01=0x0050, text=» CLEAR BOOL2 LINE 1-3 «, t00=0x0005, t01=0x0112}
0x08fc…091e Head {h00=0x001e, h01=0x0050, text=» ERASE 3,W2,W0 FKI + FINP «, t00=0x0005, t01=0x0130}
0x091e…0934 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0005, t01=0x0152}
0x0934…0948 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0005, t01=0x0168}
0x0948…0954 Head {h00=0x0008, h01=0x0050, text=»E16 «, t00=0x0005, t01=0x017c}
0x0954…097a Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,CANC12,CANC12,E20 «, t00=0x0005, t01=0x0188}
0x097a…099a Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,W0 'BELL' «, t00=0x0006, t01=0x001e}
0x099a…09ac Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0006, t01=0x003e}
0x09ac…09ba Head {h00=0x000a, h01=0x0050, text=» B E16«, t00=0x0006, t01=0x0050}
0x09ba…09c6 Head {h00=0x0008, h01=0x0050, text=»E20 «, t00=0x0006, t01=0x005e}
0x09c6…09f0 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN4,W1 1:ST EL.NO. IN REC. «, t00=0x0006, t01=0x006a}
0x09f0…0a0a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,=W'180'«, t00=0x0006, t01=0x0094}
0x0a0a…0a24 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,STR2A «, t00=0x0006, t01=0x00ae}
0x0a24…0a40 Head {h00=0x0018, h01=0x0050, text=» CBE STR1A,=C'N',E24«, t00=0x0006, t01=0x00c8}
0x0a40…0a6a Head {h00=0x0026, h01=0x0050, text=» DIV BIN2,BIN3 NO.OF ELEM. IN REC.«, t00=0x0006, t01=0x00e4}
0x0a6a…0a80 Head {h00=0x0012, h01=0x0050, text=»* DESCRIPTOR «, t00=0x0006, t01=0x010e}
0x0a80…0aae Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,=X'8000' IF STRING='1000' «, t00=0x0006, t01=0x0124}
0x0aae…0ac6 Head {h00=0x0014, h01=0x0050, text=» ADD BIN10,BIN3 «, t00=0x0006, t01=0x0152}
0x0ac6…0ad4 Head {h00=0x000a, h01=0x0050, text=» B E30«, t00=0x0006, t01=0x016a}
0x0ad4…0aea Head {h00=0x0012, h01=0x0050, text=»E24 NUMERIC «, t00=0x0006, t01=0x0178}
0x0aea…0b18 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN10,=X'B000' IF BCD ='1011' «, t00=0x0006, t01=0x018e}
0x0b18…0b3e Head {h00=0x0022, h01=0x0050, text=» MOVE BIN1,BIN3 NUMERIC INPUT «, t00=0x0007, t01=0x002c}
0x0b3e…0b52 Head {h00=0x0010, h01=0x0050, text=» DIV BIN1,W2«, t00=0x0007, t01=0x0052}
0x0b52…0b6c Head {h00=0x0016, h01=0x0050, text=» ADD BIN1,W1 BYTES«, t00=0x0007, t01=0x0066}
0x0b6c…0b84 Head {h00=0x0014, h01=0x0050, text=» ADD BIN10,BIN1 «, t00=0x0007, t01=0x0080}
0x0b84…0bb0 Head {h00=0x0028, h01=0x0050, text=» DIV BIN2,BIN1 NO. OF ELEM. IN REC. «, t00=0x0007, t01=0x0098}
0x0bb0…0bbc Head {h00=0x0008, h01=0x0050, text=»E30 «, t00=0x0007, t01=0x00c4}
0x0bbc…0be8 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN5,BIN2 LAST EL.NO. IN REC. «, t00=0x0007, t01=0x00d0}
0x0be8…0c22 Head {h00=0x0036, h01=0x0050, text=» XCOPY BPOOL(PINDTB),W0,W2,BIN10,W0 SIZE IN BYTES «, t00=0x0007, t01=0x00fc}
0x0c22…0c5c Head {h00=0x0036, h01=0x0050, text=» XCOPY BPOOL(PINDTB),W4,W2,BIN2,W0 NO. OF ELEMENTS«, t00=0x0007, t01=0x0136}
0x0c5c…0c78 Head {h00=0x0018, h01=0x0050, text=» SET BOOL3 LINE 1-5 «, t00=0x0007, t01=0x0170}
0x0c78…0c90 Head {h00=0x0014, h01=0x0050, text=»* MODIFY FORMAT«, t00=0x0007, t01=0x018c}
0x0c90…0cb0 Head {h00=0x001c, h01=0x0050, text=» CALL FMOVE,STR64A,FORMA«, t00=0x0008, t01=0x0014}
0x0cb0…0ccc Head {h00=0x0018, h01=0x0050, text=» CALL TESTB,BIN10,W2«, t00=0x0008, t01=0x0034}
0x0ccc…0cdc Head {h00=0x000c, h01=0x0050, text=» BZ E32 «, t00=0x0008, t01=0x0050}
0x0cdc…0cfc Head {h00=0x001c, h01=0x0050, text=» CALL FMOVE,STR64A,FORMN«, t00=0x0008, t01=0x0060}
0x0cfc…0d08 Head {h00=0x0008, h01=0x0050, text=»E32 «, t00=0x0008, t01=0x0080}
0x0d08…0d30 Head {h00=0x0024, h01=0x0050, text=» XCOPY STR64A,W3,W1,BIN3,W1 SIZE«, t00=0x0008, t01=0x008c}
0x0d30…0d46 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0008, t01=0x00b4}
0x0d46…0d62 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,W1 INDEX «, t00=0x0008, t01=0x00ca}
0x0d62…0d70 Head {h00=0x000a, h01=0x0050, text=» B E36«, t00=0x0008, t01=0x00e6}
0x0d70…0d88 Head {h00=0x0014, h01=0x0050, text=»* ENTER ELEMENT«, t00=0x0008, t01=0x00f4}
0x0d88…0d94 Head {h00=0x0008, h01=0x0050, text=»E35 «, t00=0x0008, t01=0x010c}
0x0d94…0daa Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x0008, t01=0x0118}
0x0daa…0db6 Head {h00=0x0008, h01=0x0050, text=»E36 «, t00=0x0008, t01=0x012e}
0x0db6…0de8 Head {h00=0x002e, h01=0x0050, text=» CBG ELMNO,=W'99',E60 LAST ELEMENT ENTERED«, t00=0x0008, t01=0x013a}
0x0de8…0e04 Head {h00=0x0018, h01=0x0050, text=» CBNG ELMNO,BIN5,E37«, t00=0x0008, t01=0x016c}
0x0e04…0e26 Head {h00=0x001e, h01=0x0050, text=» PERF WRIT12 RECORD FILLED«, t00=0x0008, t01=0x0188}
0x0e26…0e3a Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x0009, t01=0x001a}
0x0e3a…0e46 Head {h00=0x0008, h01=0x0050, text=»E37 «, t00=0x0009, t01=0x002e}
0x0e46…0e6e Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0009, t01=0x003a}
0x0e6e…0e96 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x0009, t01=0x0062}
0x0e96…0eb2 Head {h00=0x0018, h01=0x0050, text=» MOVE ACK(W1),ELMNO «, t00=0x0009, t01=0x008a}
0x0eb2…0ed0 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN6,ELMNO INDEX«, t00=0x0009, t01=0x00a6}
0x0ed0…0ee6 Head {h00=0x0012, h01=0x0050, text=» SUB BIN6,BIN4«, t00=0x0009, t01=0x00c4}
0x0ee6…0efa Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x0009, t01=0x00da}
0x0efa…0f1a Head {h00=0x001c, h01=0x0050, text=» DISPLAY 3,W4,W4 FIELD 4«, t00=0x0009, t01=0x00ee}
0x0f1a…0f30 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,W5«, t00=0x0009, t01=0x010e}
0x0f30…0f54 Head {h00=0x0020, h01=0x0050, text=» GETFLD 2,BIN11,BIN1 FIELD 5«, t00=0x0009, t01=0x0124}
0x0f54…0f7a Head {h00=0x0022, h01=0x0050, text=» ERASE 3,W5,W5 CLEAR IN MEMORY«, t00=0x0009, t01=0x0148}
0x0f7a…0f90 Head {h00=0x0012, h01=0x0050, text=» ERASE 0,W5,W5«, t00=0x0009, t01=0x016e}
0x0f90…0f9c Head {h00=0x0008, h01=0x0050, text=»E42 «, t00=0x0009, t01=0x0184}
0x0f9c…0fb0 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0009, t01=0x0190}
0x0fb0…0fbc Head {h00=0x0008, h01=0x0050, text=»E45 «, t00=0x000a, t01=0x0014}
0x0fbc…0ff6 Head {h00=0x0036, h01=0x0050, text=» IB DEBINW2,CANC12,CANC12,E35,E56,E56,E56,E56,E60 «, t00=0x000a, t01=0x0020}
0x0ff6…1002 Head {h00=0x0008, h01=0x0050, text=»E56 «, t00=0x000a, t01=0x005a}
0x1002…1022 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,W0 'BELL' «, t00=0x000a, t01=0x0066}
0x1022…1034 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x000a, t01=0x0086}
0x1034…1052 Head {h00=0x001a, h01=0x0050, text=» IB DEBINW2,E42,CANC12«, t00=0x000a, t01=0x0098}
0x1052…1060 Head {h00=0x000a, h01=0x0050, text=» B E45«, t00=0x000a, t01=0x00b6}
0x1060…106c Head {h00=0x0008, h01=0x0050, text=»E60 «, t00=0x000a, t01=0x00c4}
0x106c…109c Head {h00=0x002c, h01=0x0050, text=» CBE ELMNO,BIN4,E70 =1:ST EL.NO. IN REC.«, t00=0x000a, t01=0x00d0}
0x109c…10c2 Head {h00=0x0022, h01=0x0050, text=» PERF WRIT12 LAST WRIT12/V-S. «, t00=0x000a, t01=0x0100}
0x10c2…10d6 Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x000a, t01=0x0126}
0x10d6…10e2 Head {h00=0x0008, h01=0x0050, text=»E70 «, t00=0x000a, t01=0x013a}
0x10e2…1102 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW2,W3 ENT-KEY«, t00=0x000a, t01=0x0146}
0x1102…1114 Head {h00=0x000e, h01=0x0050, text=» B CANC12 «, t00=0x000a, t01=0x0166}
0x1114…1122 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0178}
0x1122…114a Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000a, t01=0x0186}
0x114a…1172 Head {h00=0x0024, h01=0x0050, text=»* MODUL 13 - GET VALUE-SETS * «, t00=0x000b, t01=0x001e}
0x1172…119a Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x000b, t01=0x0046}
0x119a…11a6 Head {h00=0x0008, h01=0x0050, text=»GET «, t00=0x000b, t01=0x006e}
0x11a6…11b8 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000b, t01=0x007a}
0x11b8…11ce Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x000b, t01=0x008c}
0x11ce…11f6 Head {h00=0x0024, h01=0x0050, text=» PERF READ12,W24 GET VALUE-SETS «, t00=0x000b, t01=0x00a2}
0x11f6…120a Head {h00=0x0010, h01=0x0050, text=» BERR ERR99 «, t00=0x000b, t01=0x00ca}
0x120a…1220 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000b, t01=0x00de}
0x1220…122e Head {h00=0x000a, h01=0x0050, text=» B B40«, t00=0x000b, t01=0x00f4}
0x122e…123a Head {h00=0x0008, h01=0x0050, text=»FORW«, t00=0x000b, t01=0x0102}
0x123a…1250 Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x000b, t01=0x010e}
0x1250…1276 Head {h00=0x0022, h01=0x0050, text=» CBE BIN6,BIN2,B20 NEW RECORD «, t00=0x000b, t01=0x0124}
0x1276…12a6 Head {h00=0x002c, h01=0x0050, text=» CBG ELMNO,BIN5,B80 >LAST EL.NO. IN REC.«, t00=0x000b, t01=0x014a}
0x12a6…12b4 Head {h00=0x000a, h01=0x0050, text=» B B50«, t00=0x000b, t01=0x017a}
0x12b4…12c2 Head {h00=0x000a, h01=0x0050, text=»BACKW «, t00=0x000b, t01=0x0188}
0x12c2…12d8 Head {h00=0x0012, h01=0x0050, text=» SUB ELMNO,W1 «, t00=0x000c, t01=0x0008}
0x12d8…12f2 Head {h00=0x0016, h01=0x0050, text=» CBL ELMNO,W1,B10 «, t00=0x000c, t01=0x001e}
0x12f2…1324 Head {h00=0x002e, h01=0x0050, text=» CBL ELMNO,BIN4,B20 < 1:ST EL.NO. IN REC. «, t00=0x000c, t01=0x0038}
0x1324…1332 Head {h00=0x000a, h01=0x0050, text=» B B50«, t00=0x000c, t01=0x006a}
0x1332…133e Head {h00=0x0008, h01=0x0050, text=»B10 «, t00=0x000c, t01=0x0078}
0x133e…1366 Head {h00=0x0024, h01=0x0050, text=» MOVE ELMNO,W1 BACKW NOT LESS 1 «, t00=0x000c, t01=0x0084}
0x1366…1374 Head {h00=0x000a, h01=0x0050, text=» B B50«, t00=0x000c, t01=0x00ac}
0x1374…1380 Head {h00=0x0008, h01=0x0050, text=»B20 «, t00=0x000c, t01=0x00ba}
0x1380…13a6 Head {h00=0x0022, h01=0x0050, text=» PERF READ12,W24 GET VALUE-SET«, t00=0x000c, t01=0x00c6}
0x13a6…13b6 Head {h00=0x000c, h01=0x0050, text=» BOK B40«, t00=0x000c, t01=0x00ec}
0x13b6…13de Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W9,B80 'NOT FOUND' «, t00=0x000c, t01=0x00fc}
0x13de…13ec Head {h00=0x000a, h01=0x0050, text=» B C75«, t00=0x000c, t01=0x0124}
0x13ec…13f8 Head {h00=0x0008, h01=0x0050, text=»B40 «, t00=0x000c, t01=0x0132}
0x13f8…1420 Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x000c, t01=0x013e}
0x1420…1448 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x000c, t01=0x0166}
0x1448…1454 Head {h00=0x0008, h01=0x0050, text=»B50 «, t00=0x000c, t01=0x018e}
0x1454…1472 Head {h00=0x001a, h01=0x0050, text=» CLEAR BOOL2 LINE 1-3 «, t00=0x000d, t01=0x000a}
0x1472…148e Head {h00=0x0018, h01=0x0050, text=» SET BOOL3 LINE 1-5 «, t00=0x000d, t01=0x0028}
0x148e…14ac Head {h00=0x001a, h01=0x0050, text=» MOVE BIN6,ELMNO INDEX«, t00=0x000d, t01=0x0044}
0x14ac…14c2 Head {h00=0x0012, h01=0x0050, text=» SUB BIN6,BIN4«, t00=0x000d, t01=0x0062}
0x14c2…14d6 Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x000d, t01=0x0078}
0x14d6…14f2 Head {h00=0x0018, h01=0x0050, text=» MOVE ACK(W1),ELMNO «, t00=0x000d, t01=0x008c}
0x14f2…1510 Head {h00=0x001a, h01=0x0050, text=» ERASE 0,W5,W5 LINE 5 «, t00=0x000d, t01=0x00a8}
0x1510…152a Head {h00=0x0016, h01=0x0050, text=» TBT DEPROMPT,B55 «, t00=0x000d, t01=0x00c6}
0x152a…1542 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 3,W4,W5«, t00=0x000d, t01=0x00e0}
0x1542…154e Head {h00=0x0008, h01=0x0050, text=»B55 «, t00=0x000d, t01=0x00f8}
0x154e…1564 Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x000d, t01=0x0104}
0x1564…1578 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x000d, t01=0x011a}
0x1578…1584 Head {h00=0x0008, h01=0x0050, text=»B60 «, t00=0x000d, t01=0x012e}
0x1584…15c2 Head {h00=0x003a, h01=0x0050, text=» IB DEBINW2,CANC12,CANC12,B20,FORW,BACKW,CORR,CORR C «, t00=0x000d, t01=0x013a}
0x15c2…15de Head {h00=0x0018, h01=0x0050, text=» CANC11,CANC11,INS «, t00=0x000d, t01=0x0178}
0x15de…15fe (14, 0, 400) Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,W0 'BELL' «, t00=0x000e, t01=0x0004}
0x15fe…160c Head {h00=0x000a, h01=0x0050, text=» B B84«, t00=0x000e, t01=0x0024}
0x160c…1618 Head {h00=0x0008, h01=0x0050, text=»B80 «, t00=0x000e, t01=0x0032}
0x1618…163c Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W9 'NOT FOUND'«, t00=0x000e, t01=0x003e}
0x163c…1652 Head {h00=0x0012, h01=0x0050, text=» SUB ELMNO,W1 «, t00=0x000e, t01=0x0062}
0x1652…1668 Head {h00=0x0012, h01=0x0050, text=» SET DENOCHAN «, t00=0x000e, t01=0x0078}
0x1668…1674 Head {h00=0x0008, h01=0x0050, text=»B84 «, t00=0x000e, t01=0x008e}
0x1674…1686 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x000e, t01=0x009a}
0x1686…1694 Head {h00=0x000a, h01=0x0050, text=» B B60«, t00=0x000e, t01=0x00ac}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ba}
0x169e…16c2 Head {h00=0x0020, h01=0x0050, text=»* INSERT NEW ELEMENT«, t00=0x000e, t01=0x00c4}
0x16c2…16ce Head {h00=0x0008, h01=0x0050, text=»INS «, t00=0x000e, t01=0x00e8}
0x16ce…16ec Head {h00=0x001a, h01=0x0050, text=» AFTER LAST ELEMENT «, t00=0x000e, t01=0x00f4}
0x16ec…1702 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x000e, t01=0x0112}
0x1702…170e Head {h00=0x0008, h01=0x0050, text=»I10 «, t00=0x000e, t01=0x0128}
0x170e…1734 Head {h00=0x0022, h01=0x0050, text=» PERF READ12,W24 GET VALUE-SET«, t00=0x000e, t01=0x0134}
0x1734…1746 Head {h00=0x000e, h01=0x0050, text=» BNOK I20 «, t00=0x000e, t01=0x015a}
0x1746…1772 Head {h00=0x0028, h01=0x0050, text=» MOVE ELMNO,BIN5 LAST EL.NO. IN REC.«, t00=0x000e, t01=0x016c}
0x1772…1788 Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x000f, t01=0x0008}
0x1788…1796 Head {h00=0x000a, h01=0x0050, text=» B I10«, t00=0x000f, t01=0x001e}
0x1796…17a2 Head {h00=0x0008, h01=0x0050, text=»I20 «, t00=0x000f, t01=0x002c}
0x17a2…17b8 Head {h00=0x0012, h01=0x0050, text=» SUB ELMNO,W1 «, t00=0x000f, t01=0x0038}
0x17b8…17de Head {h00=0x0022, h01=0x0050, text=» PERF READ12,W24 GET VALUE-SET«, t00=0x000f, t01=0x004e}
0x17de…17f6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,BIN4 «, t00=0x000f, t01=0x0074}
0x17f6…180c Head {h00=0x0012, h01=0x0050, text=» ADD BIN1,BIN2«, t00=0x000f, t01=0x008c}
0x180c…1820 Head {h00=0x0010, h01=0x0050, text=» SUB BIN1,W1«, t00=0x000f, t01=0x00a2}
0x1820…183c Head {h00=0x0018, h01=0x0050, text=» CBE ELMNO,BIN1,I30 «, t00=0x000f, t01=0x00b6}
0x183c…1854 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,BIN1 «, t00=0x000f, t01=0x00d2}
0x1854…188c Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER «, t00=0x000f, t01=0x00ea}
0x188c…18a0 Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x000f, t01=0x0122}
0x18a0…18ae Head {h00=0x000a, h01=0x0050, text=» B E35«, t00=0x000f, t01=0x0136}
0x18ae…18c6 Head {h00=0x0014, h01=0x0050, text=»I30 NEW RECORD«, t00=0x000f, t01=0x0144}
0x18c6…18de Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,ELMNO«, t00=0x000f, t01=0x015c}
0x18de…18f6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,ELMNO«, t00=0x000f, t01=0x0174}
0x18f6…190a Head {h00=0x0010, h01=0x0050, text=» ADD BIN4,W1«, t00=0x000f, t01=0x018c}
0x190a…1920 Head {h00=0x0012, h01=0x0050, text=» ADD BIN5,BIN2«, t00=0x0010, t01=0x0010}
0x1920…193a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,PINDTB «, t00=0x0010, t01=0x0026}
0x193a…1974 Head {h00=0x0036, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER«, t00=0x0010, t01=0x0040}
0x1974…1994 Head {h00=0x001c, h01=0x0050, text=» MOVE PINDTB,W1 1 BUFFER«, t00=0x0010, t01=0x007a}
0x1994…19c0 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN7,W0 NO CONSECUTIVE BUFFERS«, t00=0x0010, t01=0x009a}
0x19c0…19e6 Head {h00=0x0022, h01=0x0050, text=» MOVE STRG10A,=X'5400' T(ABLE)«, t00=0x0010, t01=0x00c6}
0x19e6…1a0a Head {h00=0x0020, h01=0x0050, text=» COPY STRG10A,W1,W3,TABLE,W0«, t00=0x0010, t01=0x00ec}
0x1a0a…1a26 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,STR64A«, t00=0x0010, t01=0x0110}
0x1a26…1a66 Head {h00=0x003c, h01=0x0050, text=» PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK«, t00=0x0010, t01=0x012c}
0x1a66…1a82 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,DEINPUT«, t00=0x0010, t01=0x016c}
0x1a82…1a96 Head {h00=0x0010, h01=0x0050, text=» BNOK ERR99 «, t00=0x0010, t01=0x0188}
0x1a96…1acc Head {h00=0x0032, h01=0x0050, text=» PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER«, t00=0x0011, t01=0x000c}
0x1acc…1af4 Head {h00=0x0024, h01=0x0050, text=» MOVE BPOOL(PINDTB),BPOOL(BIN1) «, t00=0x0011, t01=0x0042}
0x1af4…1b1c Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0011, t01=0x006a}
0x1b1c…1b2a Head {h00=0x000a, h01=0x0050, text=» B E35«, t00=0x0011, t01=0x0092}
0x1b2a…1b38 Head {h00=0x000a, h01=0x0050, text=»ERR13 «, t00=0x0011, t01=0x00a0}
0x1b38…1b60 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW4,W13 'NO WORKSPACE'«, t00=0x0011, t01=0x00ae}
0x1b60…1b6e Head {h00=0x000a, h01=0x0050, text=»ERR99 «, t00=0x0011, t01=0x00d6}
0x1b6e…1b86 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0011, t01=0x00e4}
0x1b86…1ba2 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0011, t01=0x00fc}
0x1ba2…1bc2 Head {h00=0x001c, h01=0x0050, text=»ERA20 RET AT DELETION «, t00=0x0011, t01=0x0118}
0x1bc2…1bda Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW2,W1 «, t00=0x0011, t01=0x0138}
0x1bda…1be8 Head {h00=0x000a, h01=0x0050, text=» B A20«, t00=0x0011, t01=0x0150}
0x1be8…1bf6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x015e}
0x1bf6…1c02 Head {h00=0x0008, h01=0x0050, text=»CORR«, t00=0x0011, t01=0x016c}
0x1c02…1c2c Head {h00=0x0026, h01=0x0050, text=» CBE DEBINW2,W6,C70 IF CORRECTION «, t00=0x0011, t01=0x0178}
0x1c2c…1c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0012}
0x1c36…1c4a Head {h00=0x0010, h01=0x0050, text=»* DELETION «, t00=0x0012, t01=0x001c}
0x1c4a…1c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c54…1c8a Head {h00=0x0032, h01=0x0050, text=» PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER«, t00=0x0012, t01=0x003a}
0x1c8a…1c96 Head {h00=0x0008, h01=0x0050, text=»C40 «, t00=0x0012, t01=0x0070}
0x1c96…1cc8 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W17 'PRESS ENT FOR DELETION'«, t00=0x0012, t01=0x007c}
0x1cc8…1ce4 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB9«, t00=0x0012, t01=0x00ae}
0x1ce4…1d02 Head {h00=0x001a, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST«, t00=0x0012, t01=0x00ca}
0x1d02…1d30 Head {h00=0x002a, h01=0x0050, text=» IB DEBINW2,B50,ERA20,C50 CAN,RET,ENT «, t00=0x0012, t01=0x00e8}
0x1d30…1d46 Head {h00=0x0012, h01=0x0050, text=» B B50 CLR-KEY«, t00=0x0012, t01=0x0116}
0x1d46…1d52 Head {h00=0x0008, h01=0x0050, text=»C50 «, t00=0x0012, t01=0x012c}
0x1d52…1d68 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W0«, t00=0x0012, t01=0x0138}
0x1d68…1d74 Head {h00=0x0008, h01=0x0050, text=»C55 «, t00=0x0012, t01=0x014e}
0x1d74…1dac Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER «, t00=0x0012, t01=0x015a}
0x1dac…1dbe (19, 0, 398) Head {h00=0x000e, h01=0x0050, text=» BNOK C75 «, t00=0x0013, t01=0x0004}
0x1dbe…1df8 Head {h00=0x0036, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER«, t00=0x0013, t01=0x0016}
0x1df8…1e32 Head {h00=0x0036, h01=0x0050, text=» PERF DEPOOL,W5,PINDTB,BIN7,STRG10A SEARCH BUFFER «, t00=0x0013, t01=0x0050}
0x1e32…1e42 Head {h00=0x000c, h01=0x0050, text=» BOK C55«, t00=0x0013, t01=0x008a}
0x1e42…1e5c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN8,=W'25' «, t00=0x0013, t01=0x009a}
0x1e5c…1e86 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,BIN8 DELETE VALUE0SET«, t00=0x0013, t01=0x00b4}
0x1e86…1ea2 Head {h00=0x0018, h01=0x0050, text=» BOK CANC12 CANC-KEY«, t00=0x0013, t01=0x00de}
0x1ea2…1eae Head {h00=0x0008, h01=0x0050, text=»C75 «, t00=0x0013, t01=0x00fa}
0x1eae…1ed8 Head {h00=0x0026, h01=0x0050, text=» SET DENOCHAN NO CHANGES POSSIBLE «, t00=0x0013, t01=0x0106}
0x1ed8…1ef0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0013, t01=0x0130}
0x1ef0…1f02 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0013, t01=0x0148}
0x1f02…1f10 Head {h00=0x000a, h01=0x0050, text=» B B60«, t00=0x0013, t01=0x015a}
0x1f10…1f1c Head {h00=0x0008, h01=0x0050, text=»C70 «, t00=0x0013, t01=0x0168}
0x1f1c…1f3a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0013, t01=0x0174}
0x1f3a…1f58 (20, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* CORR. VALUE-SET * «, t00=0x0014, t01=0x0004}
0x1f58…1f76 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0014, t01=0x0022}
0x1f76…1fae Head {h00=0x0034, h01=0x0050, text=» PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER «, t00=0x0014, t01=0x0040}
0x1fae…1fc0 Head {h00=0x000e, h01=0x0050, text=» BNOK C75 «, t00=0x0014, t01=0x0078}
0x1fc0…1fd4 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0014, t01=0x008a}
0x1fd4…1fe0 Head {h00=0x0008, h01=0x0050, text=»C711«, t00=0x0014, t01=0x009e}
0x1fe0…2006 Head {h00=0x0022, h01=0x0050, text=» IB DEBINW2,CANC12,CANC12,C72 «, t00=0x0014, t01=0x00aa}
0x2006…201e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0014, t01=0x00d0}
0x201e…2030 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0014, t01=0x00e8}
0x2030…2040 Head {h00=0x000c, h01=0x0050, text=» B C711 «, t00=0x0014, t01=0x00fa}
0x2040…204c Head {h00=0x0008, h01=0x0050, text=»C72 «, t00=0x0014, t01=0x010a}
0x204c…2066 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN8,=W'26' «, t00=0x0014, t01=0x0116}
0x2066…2090 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,BIN8 ENTER VALUE-SETS«, t00=0x0014, t01=0x0130}
0x2090…20a2 Head {h00=0x000e, h01=0x0050, text=» BNOK C75 «, t00=0x0014, t01=0x015a}
0x20a2…20bc Head {h00=0x0016, h01=0x0050, text=» GETFLD 2,W5,BIN1 «, t00=0x0014, t01=0x016c}
0x20bc…20f0 Head {h00=0x0030, h01=0x0050, text=» CALL CLEARB,RPOOL(PINDTB),W0 UNLOCK BUFFER «, t00=0x0014, t01=0x0186}
0x20f0…20fe Head {h00=0x000a, h01=0x0050, text=» B B50«, t00=0x0015, t01=0x002a}
0x20fe…210c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0038}
0x210c…2122 Head {h00=0x0012, h01=0x0050, text=»READ12 PROC FC«, t00=0x0015, t01=0x0046}
0x2122…213e Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,STR64A«, t00=0x0015, t01=0x005c}
0x213e…2156 Head {h00=0x0014, h01=0x0050, text=» PERF DEDISC,FC «, t00=0x0015, t01=0x0078}
0x2156…2172 Head {h00=0x0018, h01=0x0050, text=» MOVE STR64A,DEINPUT«, t00=0x0015, t01=0x0090}
0x2172…2184 Head {h00=0x000e, h01=0x0050, text=» BERR R10 «, t00=0x0015, t01=0x00ac}
0x2184…219a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0015, t01=0x00be}
0x219a…21de Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN3,W1,W1,BPOOL(PINDTB),W1 SIZE OF ELEMENT IN BYTES «, t00=0x0015, t01=0x00d4}
0x21de…220c Head {h00=0x002a, h01=0x0050, text=» CALL FMOVE,STR64A,FORMA MODIFY FORMAT«, t00=0x0015, t01=0x0118}
0x220c…2242 Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN10,W0,W2,BPOOL(PINDTB),W0 DESCRIPTOR«, t00=0x0015, t01=0x0146}
0x2242…225e Head {h00=0x0018, h01=0x0050, text=» MOVE STR2A,=X'4100'«, t00=0x0015, t01=0x017c}
0x225e…227a Head {h00=0x0018, h01=0x0050, text=» CALL TESTB,BIN10,W2«, t00=0x0016, t01=0x0008}
0x227a…228a Head {h00=0x000c, h01=0x0050, text=» BZ R05 «, t00=0x0016, t01=0x0024}
0x228a…22ac Head {h00=0x001e, h01=0x0050, text=» MOVE STR2A,=X'4E00' C'N' «, t00=0x0016, t01=0x0034}
0x22ac…22cc Head {h00=0x001c, h01=0x0050, text=» CALL FMOVE,STR64A,FORMN«, t00=0x0016, t01=0x0056}
0x22cc…22e0 Head {h00=0x0010, h01=0x0050, text=» MUL BIN3,W2«, t00=0x0016, t01=0x0076}
0x22e0…22f4 Head {h00=0x0010, h01=0x0050, text=» SUB BIN3,W1«, t00=0x0016, t01=0x008a}
0x22f4…2300 Head {h00=0x0008, h01=0x0050, text=»R05 «, t00=0x0016, t01=0x009e}
0x2300…2328 Head {h00=0x0024, h01=0x0050, text=» XCOPY STR64A,W3,W1,BIN3,W1 SIZE«, t00=0x0016, t01=0x00aa}
0x2328…2340 Head {h00=0x0014, h01=0x0050, text=» MOVE TIME,BIN3 «, t00=0x0016, t01=0x00d2}
0x2340…2382 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN2,W0,W2,BPOOL(PINDTB),W4 NO.OF ELEM.IN THIS REC.«, t00=0x0016, t01=0x00ea}
0x2382…2398 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0016, t01=0x012c}
0x2398…23ae Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0016, t01=0x0142}
0x23ae…23ec Head {h00=0x003a, h01=0x0050, text=» XCOPY BIN4,W1,W1,RPOOL(PINDTB),W17 1:ST ELEM. IN REC.«, t00=0x0016, t01=0x0158}
0x23ec…242a Head {h00=0x003a, h01=0x0050, text=» XCOPY BIN5,W1,W1,RPOOL(PINDTB),W18 LAST ELEM. IN REC.«, t00=0x0017, t01=0x0008}
0x242a…2444 Head {h00=0x0016, h01=0x0050, text=» CMP W1,W1 SET S=0«, t00=0x0017, t01=0x0046}
0x2444…2450 Head {h00=0x0008, h01=0x0050, text=»R10 «, t00=0x0017, t01=0x0060}
0x2450…245c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x006c}
0x245c…246a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x0078}
0x246a…2478 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0086}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0094}
0x2482…2494 Head {h00=0x000e, h01=0x0050, text=»FORMN FRMT«, t00=0x0017, t01=0x009e}
0x2494…24c2 Head {h00=0x002a, h01=0x0050, text=» FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 «, t00=0x0017, t01=0x00b0}
0x24c2…24f6 Head {h00=0x0030, h01=0x0050, text=» FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6) «, t00=0x0017, t01=0x00de}
0x24f6…2502 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0017, t01=0x0112}
0x2502…251e Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0017, t01=0x011e}
0x251e…2532 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0017, t01=0x013a}
0x2532…2540 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0017, t01=0x014e}
0x2540…254a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015c}
0x254a…255c Head {h00=0x000e, h01=0x0050, text=»FORMA FRMT«, t00=0x0017, t01=0x0166}
0x255c…2588 Head {h00=0x0028, h01=0x0050, text=»* FKI 1,ALPHA,MINL=1,MAXL=1,NEOI,ME «, t00=0x0017, t01=0x0178}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=»* FCOPY FDVBCD(BIN6)«, t00=0x0018, t01=0x0014}
0x25a4…25de Head {h00=0x0036, h01=0x0050, text=» FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6)«, t00=0x0018, t01=0x0030}
0x25de…25ea Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0018, t01=0x006a}
0x25ea…2606 Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0018, t01=0x0076}
0x2606…261a Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0018, t01=0x0092}
0x261a…2628 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x00a6}
0x2628…2634 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0018, t01=0x00b4}
0x2634…2638 Head {h00=0x4004, h01=0x0000}
0x2638…263c 00 18 00 c0 ┆ ┆
0x263c…2644 (25, 1, 8) 20 04 00 00 00 19 00 04 ┆ ┆
0x2644…2694 (26, 0, 400) 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 00 a1 01 7e 00 2a 00 26 03 12 00 00 05 0b 00 00 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 2b 14 0c 15 0c c0 0c 81 01 81 31 c3 03 00 a2 00 1c 00 2a 00 26 03 12 00 00 05 29 ┆99999999999999999999 ~ * & 99999999999999999+ 1 * & )┆
0x2694…26e4 00 00 37 33 20 c1 40 e1 f0 01 00 00 00 c0 55 c3 03 37 32 20 c1 3e 81 20 c1 35 81 20 c1 3f c3 03 00 a2 00 4a 00 2a 00 26 03 12 00 00 05 47 00 00 37 31 20 c1 3e 81 20 c1 36 81 20 c1 3d da 6c 06 81 01 81 31 d8 02 82 20 e1 c0 1b 89 e0 df 00 a2 ┆ 73 @ U 72 > 5 ? J * & G 71 > 6 = l 1 ┆
0x26e4…2734 00 78 00 2a 00 26 03 12 00 00 05 65 00 00 1d e1 df 23 e1 df 20 c4 14 df 21 df 1b c1 1b c1 38 81 3a fa 09 03 7f 21 41 86 00 c0 6b c1 00 a2 00 a6 00 2a 00 26 03 12 00 00 05 83 00 00 3a c1 38 81 3a fa 1e 04 7f 22 41 86 00 c0 6c e0 df 1c e1 df ┆ x * & e # ! 8 : !A k * & : 8 : "A l ┆
0x2734…2784 23 e1 df 20 c4 14 df 21 e1 df 00 a2 00 d4 00 2a 00 26 03 12 00 00 05 a1 00 00 24 df 1b c1 39 c3 02 3a 55 f2 07 02 81 81 00 13 69 c4 14 c1 3b 81 3a ec 1b c0 e6 c1 3c 81 00 a2 01 02 00 2a 00 26 03 12 00 00 05 bf 00 00 3a f2 09 65 c2 83 00 c0 ┆# ! * & $ 9 :U i ; : < * & : e ┆
0x2784…27d4 7f 23 c4 14 c1 37 81 2d c1 38 81 3a f0 20 40 86 00 c0 7f 24 e0 c3 00 a2 01 30 00 2a 00 26 03 12 00 00 05 dd 00 00 03 37 30 20 c1 3e e1 c1 29 f2 09 01 82 82 00 11 68 da 64 09 e1 df 1d e1 df 1c e1 df 1a e0 00 a2 01 5e 00 2a 00 26 03 12 00 00 ┆ # 7 - 8 : @ $ 0 * & 70 > ) h d ^ * & ┆
0x27d4…2824 (27, 2, 372) 05 fb 00 00 c3 10 46 45 54 43 48 49 4e 47 20 46 4f 52 4d 41 54 3a c0 95 c3 0b 20 46 52 4f 4d 20 44 49 00 a2 01 8c 00 2a 00 26 03 12 00 00 06 19 00 00 53 43 2e e1 f0 01 40 00 00 c0 55 46 20 02 00 00 20 02 00 02 20 02 00 04 00 01 00 06 00 01 ┆ FETCHING FORMAT: FROM DI * & SC. @ UF ┆
0x2824…2874 00 a3 00 2a 00 2a 00 26 03 12 00 00 06 37 00 00 00 07 00 02 00 08 00 03 00 0a 00 04 00 0d 00 04 00 11 00 04 00 15 00 05 00 19 00 06 00 1e 00 a3 00 58 00 2a 00 26 03 12 00 00 06 55 00 00 00 07 00 24 00 09 00 2b 00 0a 00 34 00 0b 00 3e 00 0d ┆ * * & 7 X * & U $ + 4 > ┆
0x2874…28c4 00 49 30 01 00 56 30 01 00 57 10 01 00 a3 00 86 00 2a 00 26 03 12 00 00 06 73 00 00 00 00 10 15 00 01 10 16 00 16 00 02 00 00 00 02 00 02 00 02 00 04 00 04 00 06 00 07 00 0a 00 a3 00 b4 00 2a 00 26 03 12 00 00 06 91 00 00 00 08 00 11 00 0f ┆ I0 V0 W * & s * & ┆
0x28c4…2914 00 19 00 0f 00 28 00 0f 00 37 00 0f 00 46 00 10 00 55 00 10 00 65 00 12 00 a3 00 e2 00 22 00 1e 03 0e 00 00 06 af 00 00 00 75 00 18 00 87 00 1f 00 9f 00 1f 00 be 00 2a 00 dd 06 24 04 98 00 a3 01 10 00 10 00 0c 03 05 00 00 06 c5 00 00 06 70 ┆ ( 7 F U e " u * $ p┆
0x2914…2948 04 f0 00 a3 01 36 00 10 00 0c 03 05 00 00 06 c9 00 00 06 7c 05 1c 00 a3 01 4a 00 0e 00 0a 07 04 00 00 00 00 06 cc 00 00 00 a3 01 5e 40 04 00 00 00 a3 01 70 ┆ 6 | J ^@ p┆
0x2948…295c (28, 2, 20) 00 08 00 48 4e 4f 44 20 00 a4 00 04 40 04 00 00 00 a4 00 10 ┆ HNOD @ ┆