|
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: 11044 (0x2b24)
Notes: pts_type(SC)
Names: »DENT29.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DENT29.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DENT29.SC«
IDENT DENT29 PRR 1.0 76-10-29/DALI DDUM DEDDIV PDIV ENTRY DENDUP ENTRY DEEDIT ENTRY DELAST EXT DERECS EXT DEACC EXT DECLRN EXT DECLRD EXT DERR EXT TESTB TEST FOR A BIT IN A BIN EXT GETDUP LOOK FOR DUPLICATION- STRING FOR CURRENT FIELD EXT DEDISC DISC HANDLING ROUTINE EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - ATTACH DESCRIPTORBLOCK EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - ATTACH WORKBLOCK EXT EMPTYT EXT TYPET ASSEMBLY SUBROUTINE TYPET - RETURNS ITEM-TYPE. 1=BIN,2=BCD,3=STRG EXT DEPOOL POOL HANDLING ROUTINE EXT MASK EXT DELOCK EXT DEPRUT INCLUDE DELITT EJECT ****************************************** * THIS ROUTINE HANDLE THE KEY FOR * DUPLICATION AND EXECUTE THE * AUTOMATIC DUPLICATION WHEN * THE KEEP KEY HAS BEEN PRESSED ****************************************** DENDUP PROC CLEAR BOOL5 CALL GETDUP,BPOOL(W1),BIN11,BIN12,BIN13 BOK KDUP05 KDUP03 CBE DEBINW2,W3,KDUP35 JUMP IF AUTODUP DUPL DEINPUT BNZ KDUP40 SET BOOL5 B KDUP30 KDUP05 MOVE BIN9,W5 MATCH VALSTR,BIN9,W8,BPOOL(BIN11),BIN12,W1 LOOK IF DUPL FROM VALUESET BNOK KDUP40 JUMP IF NOT CBE BIN9,W5,KDUP25 JUMP IF DATE SUB BIN9,W8 ADJUST FOR THE OTHER BL KDUP40 ADD BIN12,W1 GET ITEMNUMBER MOVE BIN8,W0 XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 ADD BIN12,W1 MOVE BCD3A,BIN8 CBNE BIN9,W4,KDUP25 JUMP IF NOT VALUESET MOVE BIN8,W18 LOOK IF ELEMENTNUMBER MATCH VALSTR,BIN8,W1,BPOOL(BIN11),BIN12,W1 BOK KDUP20 KDUP10 PERF DELAST,W5,DEKTAB7 IB DEBINW2,KDUP60,KDUP60,KDUP60,KDUP10 SUB DEBINW1,W1 BZ KDUP10 COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY MOVE BCD13A,DEINPUT MOVE ELMNO,BCD13A CBE ELMNO,W0,KDUP10 B KDUP15 KDUP20 ADD BIN12,W1 XCOPY ELMNO,W1,W1,BPOOL(BIN11),BIN12 KDUP15 MOVE TABLE,BCD3A MOVE STR1A,=C'T' DLETE TABLE,W0,W2 INSRT TABLE,W2,W1,HEX00,W0 INSRT TABLE,W0,W1,STR1A,W0 PERF DEDISC,W24 GET VALUSET BNOK KDUP50 CALL ATTWB,BPOOL(PINDTB),W8,W11 CALL ATTDB,BPOOL(PINDTB),W0,W11 MOVE BIN10,W0 XCOPY BIN10,W1,W1,RPOOL(PINDTB),W17 SUB ELMNO,BIN10 ADD ELMNO,W1 KDUP25 PERF DEEDIT,BIN9 CBE PINDTB,W0,KDUP30 JUMP IF NOT VALUESET PERF DEPOOL,W6,PINDTB,BIN10,STRG10A MOVE PINDTB,W0 KDUP30 CALL EMPTYT,:FMTITEM BNZ KDUP32 JUMP IF EMPTY GETABX DEBINW3 ERASE 9,DEBINW3,DEBINW3 KDUP32 UPDFLD 1,DEINPUT UPDATE FIELD WITH DISPLAYING MOVE DEBINW2,W2 CLEAR BOOL5 BNZ KDUP38 KDUP35 SET DOOL5 KDUP38 CMP W1,W1 OK RET KDUP40 MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY KDUP50 MOVE DEBINW2,W0 KDUP60 CMP W1,W0 RET PEND EJECT ***************************************** * *THIS PROCEDURE EDIT ITEMS FOR VALIDATIONS *INTO THE ITEM DEINPUT. *LEGAL FUNCTIONCODES AREX. * <FC> = 0 ACCUMULATORS * = 1 SYSTEMVARIABELS * = 2 USERVARIABELS * = 3 FIELDS WITHIN CURRENT FORMAT * = 4 VALUESETS * = 5 DATE * = 6 VALUESETINDEX (ELEMENTNO) * ***************************************** DEEDIT PROC FC MOVE BIN10,W1 LENGTHADJUSTER MOVE DEINPUT,HEX00 MOVE BIN7,W0 IB FC,DED300,DED330,DED200,DED100,DED170,DED160 MOVE DEINPUT,ACK(BIN8) B DED390 DED100 CALL TESTB,BPOOL(PINDTB),W2 BNZ DED150 JUMP IF BCD XCOPY BIN7,W1,W1,BPOOL(PINDTB),W1 COPY DEINPUT,W0,BIN7,FDVBCD(ELMNO),W0 RET DED150 MOVE DEINPUT,FDVBCD(ELMNO) RET EJECT * * VALUE SET INDEX (ELEMENTNO) * DED160 MOVE BCD3A,VSEIND BINCONV=>BCD MOVE DEINPUT,BCD3A BCDCONV=>STRG RET DED170 MOVE DEINPUT,DATE DLETE DEINPUT,W0,W1 B DED400 DED200 TBF DOOLA,DED210 JUMP IF NOT BALANCE MOVE DEINPUT,:FMTITEM B DED400 DED210 * LOOK FOR TYPE OF ITEM BY USING TYPET CALL TYPET,BIN7,X.PSEUDO,X.WB10,BIN8 CBE BIN7,W2,DED250 JUMP IF BCD MOVE BIN7,W0 EDSUB DEINPUT,BIN7,FORMF B DED390 DED250 CON X.MOVE,DEINPUT,X.PSEUDO,X.WB10,BIN8 B DED400 DED300 EDSUB DEINPUT,BIN7,FORMS B DED350 DED330 EDSUB DEINPUT,BIN7,FORMU DED350 MOVE DEBINW1,BIN7 RET DED390 MOVE BIN10,W0 DED400 MOVE DEBINW1,W0 MOVE BIN7,=W'80' MATCH DEINPUT,DEBINW1,BIN7,HEX00,W0,W1 DED450 SUB DEBINW1,BIN10 BNN DED470 JUMP IF NOT MINUS MOVE DEBINW1,W0 DED470 RET PEND EJECT ************************************* * DISPLAY AND READ OF FUNCTION-KEYS * * ENTERED ON THE LAST LINE. * ************************************* DELAST PROC FC,$KEYT MOVE BIN15,FC LASTD0 MOVE DEBINW4,W24 ERASE 0,DEBINW4,DEBINW4 EDWRT DEDSSCRN,FLAST(FC) LAST05 MOVE DEBINW1,W0 LASTD1 IB FC,LPROG,LDEL,LDEL,LINS,LVAL,LINS,LASRET2 C LASRET3,LASVER,LASRET2 B LINS LPROG MOVE DEBINW1,SYMREC(W12) GET MAX SYMB.LENGTH CBG DEBINW1,W0,LPROG2 MOVE DEBIW2,W2 SIMULATE CANCEL ERASE 0,DEBINW4,DEBINW4 B LASVER LPROG2 KI DEDSDYKB,DEINPUT,$KEYT,DEBINW1,DEBINW2 B LAST50 LVAL MOVE DEBINW1,W2 B LPROG2 LDEL LINS MOVE DEBINW1,W1 LASTD2 KI .NE,DEDSDYKB,DEINPUT,$KEYT,DEBINW1,DEBINW2 LAST50 PERF DELOCK,W1,DEBINW2 IB DEBINW3,POWOFF,LASTER,LASTD0 B LASTD3 * * NOK. NOTICE THAT INCORRECT LENGTH IS OKEY * LASTER XSTAT DEDSDYKB,DEBINW3 CALL MASK,DEBINW3,W8 BZ LASBEL MOVE DEBINW2,W5 B PROEN2 LASTD3 IB FC,LASRET,LASRET,LAST06,LASRET,LASRET C LAST06,LAST06,LAST06,LAST06,LAST06 C LASRET,LASRET,LASRET LAST06 IB DEBINW2,LASBEL,LASBEL,LASBEL SUB DEBINW2,W3 ADJUST EOI0KEY B LASRET LASBEL EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B LAST05 LASKOP MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 B LASTD0 LASVER EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B LASRET3 * * POWER OFF * POWOFF DISPLAY 0,W1,W0 B LASTD0 * PROEN2 IB FC,LASTUT,LASTD0,LASTD0,LASTD0,LASTUT LASTUT ADD DEBINW1,W1 LASRET ERASE 0,DEBINW4,DEBINW4 LASRET2 RET LASRET3 THOME RET PEND EJECT * * FORMATS * FLAST FTABLE FPROG,FDEL1,FDEL2,FLIN1,FLVAL,FLINS,FRECOV C FCORR,FVER,FRECO2,FFORCE,FCONV0,FCONV1 FPROG FRMT FSL FLOW FCOPY =C'SYMBOLIC:' FMEND FDEL1 FRMT FSL FLOW FTEXT 'CONFIRM RECORD DELETE:' FMEND FDEL2 FRMT FLINK FDEL3 FTEXT 'DELETED' FMEND FLINS FRMT FLINK FDEL3 FTEXT 'INSERTED' FMEND FDEL3 FRMT FSL FLOW FCOPY =C'RECORD' FILLR ' ',1 FMEL 'TTTT9',BCD13A FILLR ' ',1 FMEND FLVAL FRMT FSL FLOW FTEXT 'DUPL FROM ' FCOPY =C'VALUESET' FTEXT ' T:' FMEL 'XX',BCD3A FILLR ' ',1 FCOPY =C'ELEMENT' FCOPY =C'NUMBER' FILLR ':',1 FMEND FLIN1 FRMT FSL FLOW FTEXT 'CONFIRM RECORD INSERT' FMEND FRECOV FRMT FSL FLOW FTEXT 'RECOVERY OF ' FCOPY =C'JOB' FILLR ':',1 FCOPY JOBNAME FILLR ' ',1 FCOPY =C'BATCH' FILLR ':',1 FCOPY BATCH FTEXT ' RUNNING.' FMEND FCORR FRMT FSL FLOW FTEXT 'RECORD CORRECTION' FMEND FVER FRMT FSL FLOW FTEXT 'RECORD MUST BE VERIFIED' FMEND FRECO2 FRMT FSL FTEXT 'RECOVERY RUNNING.' FMEND FFORCE FRMT FSL FCOPY =C'CONFIRM ' FTEXT 'FREEZING OF BATCH ' FCOPY BATCH FMEND FCONVA FRMT FCOPY =C'CONFIRM ' FTEXT 'CONVERSION OF ALL BATCHES ' FMEND FCONV0 FRMT FSL FLINK FCONVA FTEXT 'ON UNIT:U' FMEL 'X',USERFILE FMEND FONV2 FCONV1 FRMT FSL FLINK FCONVA FTEXT 'WITHIN JOB:' FCOPY JOBNAME FMEND FORMF FRMT FCTL X'C0',X.PSEUDO,X.WB10,BIN8 FMEND FORMS FRMT FCOPY SYSV(BIN8) FMEND FORMU FRMT FCOPY USEV(BIN8) FMEND BELL FRMT FSL FILLR X'07',1 FMEND * END
0x0000…002c (0, 0, 398) Head {h00=0x0028, h01=0x0050, text=» IDENT DENT29 PRR 1.0 76-10-29/DALI «, t00=0x0000, t01=0x0004}
0x002c…0040 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0030}
0x0040…004e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0044}
0x004e…0064 Head {h00=0x0012, h01=0x0050, text=» ENTRY DENDUP «, t00=0x0000, t01=0x0052}
0x0064…007a Head {h00=0x0012, h01=0x0050, text=» ENTRY DEEDIT «, t00=0x0000, t01=0x0068}
0x007a…0090 Head {h00=0x0012, h01=0x0050, text=» ENTRY DELAST «, t00=0x0000, t01=0x007e}
0x0090…00a4 Head {h00=0x0010, h01=0x0050, text=» EXT DERECS «, t00=0x0000, t01=0x0094}
0x00a4…00b6 Head {h00=0x000e, h01=0x0050, text=» EXT DEACC«, t00=0x0000, t01=0x00a8}
0x00b6…00ca Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0000, t01=0x00ba}
0x00ca…00de Head {h00=0x0010, h01=0x0050, text=» EXT DECLRD «, t00=0x0000, t01=0x00ce}
0x00de…00f0 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x00e2}
0x00f0…011a Head {h00=0x0026, h01=0x0050, text=» EXT TESTB TEST FOR A BIT IN A BIN«, t00=0x0000, t01=0x00f4}
0x011a…0144 Head {h00=0x0026, h01=0x0050, text=» EXT GETDUP LOOK FOR DUPLICATION- «, t00=0x0000, t01=0x011e}
0x0144…0168 Head {h00=0x0020, h01=0x0050, text=» STRING FOR CURRENT FIELD «, t00=0x0000, t01=0x0148}
0x0168…0192 Head {h00=0x0026, h01=0x0050, text=» EXT DEDISC DISC HANDLING ROUTINE «, t00=0x0000, t01=0x016c}
0x0192…01c0 Head {h00=0x002a, h01=0x0050, text=» EXT ATTDB ASSEMBLY SUBROUTINE ATTDB -«, t00=0x0001, t01=0x0008}
0x01c0…01e2 Head {h00=0x001e, h01=0x0050, text=» ATTACH DESCRIPTORBLOCK «, t00=0x0001, t01=0x0036}
0x01e2…0210 Head {h00=0x002a, h01=0x0050, text=» EXT ATTWB ASSEMBLY SUBROUTINE ATTWB -«, t00=0x0001, t01=0x0058}
0x0210…022c Head {h00=0x0018, h01=0x0050, text=» ATTACH WORKBLOCK «, t00=0x0001, t01=0x0086}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x00a2}
0x0240…026e Head {h00=0x002a, h01=0x0050, text=» EXT TYPET ASSEMBLY SUBROUTINE TYPET -«, t00=0x0001, t01=0x00b6}
0x026e…028c Head {h00=0x001a, h01=0x0050, text=» RETURNS ITEM-TYPE. «, t00=0x0001, t01=0x00e4}
0x028c…02aa Head {h00=0x001a, h01=0x0050, text=» 1=BIN,2=BCD,3=STRG «, t00=0x0001, t01=0x0102}
0x02aa…02d4 Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL POOL HANDLING ROUTINE «, t00=0x0001, t01=0x0120}
0x02d4…02e6 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x014a}
0x02e6…02fa Head {h00=0x0010, h01=0x0050, text=» EXT DELOCK «, t00=0x0001, t01=0x015c}
0x02fa…030e Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0001, t01=0x0170}
0x030e…0326 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0001, t01=0x0184}
0x0326…0334 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000c}
0x0334…0366 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0002, t01=0x001a}
0x0366…0390 Head {h00=0x0026, h01=0x0050, text=»* THIS ROUTINE HANDLE THE KEY FOR «, t00=0x0002, t01=0x004c}
0x0390…03b6 Head {h00=0x0022, h01=0x0050, text=»* DUPLICATION AND EXECUTE THE «, t00=0x0002, t01=0x0076}
0x03b6…03da Head {h00=0x0020, h01=0x0050, text=»* AUTOMATIC DUPLICATION WHEN«, t00=0x0002, t01=0x009c}
0x03da…0402 Head {h00=0x0024, h01=0x0050, text=»* THE KEEP KEY HAS BEEN PRESSED «, t00=0x0002, t01=0x00c0}
0x0402…0434 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0002, t01=0x00e8}
0x0434…0448 Head {h00=0x0010, h01=0x0050, text=»DENDUP PROC «, t00=0x0002, t01=0x011a}
0x0448…045c Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL5«, t00=0x0002, t01=0x012e}
0x045c…048c Head {h00=0x002c, h01=0x0050, text=» CALL GETDUP,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0002, t01=0x0142}
0x048c…04a0 Head {h00=0x0010, h01=0x0050, text=» BOK KDUP05 «, t00=0x0002, t01=0x0172}
0x04a0…04ae Head {h00=0x000a, h01=0x0050, text=»KDUP03«, t00=0x0002, t01=0x0186}
0x04ae…04dc (3, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW2,W3,KDUP35 JUMP IF AUTODUP«, t00=0x0003, t01=0x0004}
0x04dc…04f2 Head {h00=0x0012, h01=0x0050, text=» DUPL DEINPUT «, t00=0x0003, t01=0x0032}
0x04f2…0506 Head {h00=0x0010, h01=0x0050, text=» BNZ KDUP40 «, t00=0x0003, t01=0x0048}
0x0506…0518 Head {h00=0x000e, h01=0x0050, text=» SET BOOL5«, t00=0x0003, t01=0x005c}
0x0518…052a Head {h00=0x000e, h01=0x0050, text=» B KDUP30 «, t00=0x0003, t01=0x006e}
0x052a…0538 Head {h00=0x000a, h01=0x0050, text=»KDUP05«, t00=0x0003, t01=0x0080}
0x0538…054e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W5 «, t00=0x0003, t01=0x008e}
0x054e…0582 Head {h00=0x0030, h01=0x0050, text=» MATCH VALSTR,BIN9,W8,BPOOL(BIN11),BIN12,W1 «, t00=0x0003, t01=0x00a4}
0x0582…05a8 Head {h00=0x0022, h01=0x0050, text=» LOOK IF DUPL FROM VALUESET «, t00=0x0003, t01=0x00d8}
0x05a8…05c8 Head {h00=0x001c, h01=0x0050, text=» BNOK KDUP40 JUMP IF NOT«, t00=0x0003, t01=0x00fe}
0x05c8…05f0 Head {h00=0x0024, h01=0x0050, text=» CBE BIN9,W5,KDUP25 JUMP IF DATE«, t00=0x0003, t01=0x011e}
0x05f0…061a Head {h00=0x0026, h01=0x0050, text=» SUB BIN9,W8 ADJUST FOR THE OTHER «, t00=0x0003, t01=0x0146}
0x061a…062c Head {h00=0x000e, h01=0x0050, text=» BL KDUP40«, t00=0x0003, t01=0x0170}
0x062c…0650 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 GET ITEMNUMBER«, t00=0x0003, t01=0x0182}
0x0650…0666 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN8,W0 «, t00=0x0004, t01=0x0016}
0x0666…0692 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0004, t01=0x002c}
0x0692…06a8 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0004, t01=0x0058}
0x06a8…06c0 Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN8«, t00=0x0004, t01=0x006e}
0x06c0…06f2 Head {h00=0x002e, h01=0x0050, text=» CBNE BIN9,W4,KDUP25 JUMP IF NOT VALUESET «, t00=0x0004, t01=0x0086}
0x06f2…071e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN8,W18 LOOK IF ELEMENTNUMBER«, t00=0x0004, t01=0x00b8}
0x071e…0752 Head {h00=0x0030, h01=0x0050, text=» MATCH VALSTR,BIN8,W1,BPOOL(BIN11),BIN12,W1 «, t00=0x0004, t01=0x00e4}
0x0752…0766 Head {h00=0x0010, h01=0x0050, text=» BOK KDUP20 «, t00=0x0004, t01=0x0118}
0x0766…078c Head {h00=0x0022, h01=0x0050, text=»KDUP10 PERF DELAST,W5,DEKTAB7 «, t00=0x0004, t01=0x012c}
0x078c…07bc Head {h00=0x002c, h01=0x0050, text=» IB DEBINW2,KDUP60,KDUP60,KDUP60,KDUP10 «, t00=0x0004, t01=0x0152}
0x07bc…07d4 Head {h00=0x0014, h01=0x0050, text=» SUB DEBINW1,W1 «, t00=0x0004, t01=0x0182}
0x07d4…07e6 Head {h00=0x000e, h01=0x0050, text=» BZ KDUP10«, t00=0x0005, t01=0x000a}
0x07e6…0820 Head {h00=0x0036, h01=0x0050, text=» COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY«, t00=0x0005, t01=0x001c}
0x0820…083c Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0005, t01=0x0056}
0x083c…0856 Head {h00=0x0016, h01=0x0050, text=» MOVE ELMNO,BCD13A«, t00=0x0005, t01=0x0072}
0x0856…0872 Head {h00=0x0018, h01=0x0050, text=» CBE ELMNO,W0,KDUP10«, t00=0x0005, t01=0x008c}
0x0872…0884 Head {h00=0x000e, h01=0x0050, text=» B KDUP15 «, t00=0x0005, t01=0x00a8}
0x0884…0892 Head {h00=0x000a, h01=0x0050, text=»KDUP20«, t00=0x0005, t01=0x00ba}
0x0892…08a8 Head {h00=0x0012, h01=0x0050, text=» ADD BIN12,W1 «, t00=0x0005, t01=0x00c8}
0x08a8…08d6 Head {h00=0x002a, h01=0x0050, text=» XCOPY ELMNO,W1,W1,BPOOL(BIN11),BIN12 «, t00=0x0005, t01=0x00de}
0x08d6…08e4 Head {h00=0x000a, h01=0x0050, text=»KDUP15«, t00=0x0005, t01=0x010c}
0x08e4…08fe Head {h00=0x0016, h01=0x0050, text=» MOVE TABLE,BCD3A «, t00=0x0005, t01=0x011a}
0x08fe…0918 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'T' «, t00=0x0005, t01=0x0134}
0x0918…0932 Head {h00=0x0016, h01=0x0050, text=» DLETE TABLE,W0,W2«, t00=0x0005, t01=0x014e}
0x0932…0956 Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W2,W1,HEX00,W0 «, t00=0x0005, t01=0x0168}
0x0956…097a Head {h00=0x0020, h01=0x0050, text=» INSRT TABLE,W0,W1,STR1A,W0 «, t00=0x0005, t01=0x018c}
0x097a…099e Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W24 GET VALUSET«, t00=0x0006, t01=0x0020}
0x099e…09b2 Head {h00=0x0010, h01=0x0050, text=» BNOK KDUP50«, t00=0x0006, t01=0x0044}
0x09b2…09da Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINDTB),W8,W11«, t00=0x0006, t01=0x0058}
0x09da…0a02 Head {h00=0x0024, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDTB),W0,W11«, t00=0x0006, t01=0x0080}
0x0a02…0a18 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0006, t01=0x00a8}
0x0a18…0a44 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN10,W1,W1,RPOOL(PINDTB),W17«, t00=0x0006, t01=0x00be}
0x0a44…0a5c Head {h00=0x0014, h01=0x0050, text=» SUB ELMNO,BIN10«, t00=0x0006, t01=0x00ea}
0x0a5c…0a72 Head {h00=0x0012, h01=0x0050, text=» ADD ELMNO,W1 «, t00=0x0006, t01=0x0102}
0x0a72…0a80 Head {h00=0x000a, h01=0x0050, text=»KDUP25«, t00=0x0006, t01=0x0118}
0x0a80…0a9a Head {h00=0x0016, h01=0x0050, text=» PERF DEEDIT,BIN9 «, t00=0x0006, t01=0x0126}
0x0a9a…0acc Head {h00=0x002e, h01=0x0050, text=» CBE PINDTB,W0,KDUP30 JUMP IF NOT VALUESET«, t00=0x0006, t01=0x0140}
0x0acc…0af8 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,BIN10,STRG10A«, t00=0x0006, t01=0x0172}
0x0af8…0b10 Head {h00=0x0014, h01=0x0050, text=» MOVE PINDTB,W0 «, t00=0x0007, t01=0x000e}
0x0b10…0b1e Head {h00=0x000a, h01=0x0050, text=»KDUP30«, t00=0x0007, t01=0x0026}
0x0b1e…0b3c Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0007, t01=0x0034}
0x0b3c…0b5e Head {h00=0x001e, h01=0x0050, text=» BNZ KDUP32 JUMP IF EMPTY «, t00=0x0007, t01=0x0052}
0x0b5e…0b76 Head {h00=0x0014, h01=0x0050, text=» GETABX DEBINW3 «, t00=0x0007, t01=0x0074}
0x0b76…0b96 Head {h00=0x001c, h01=0x0050, text=» ERASE 9,DEBINW3,DEBINW3«, t00=0x0007, t01=0x008c}
0x0b96…0ba4 Head {h00=0x000a, h01=0x0050, text=»KDUP32«, t00=0x0007, t01=0x00ac}
0x0ba4…0bda Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,DEINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0007, t01=0x00ba}
0x0bda…0bf2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W2«, t00=0x0007, t01=0x00f0}
0x0bf2…0c06 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL5«, t00=0x0007, t01=0x0108}
0x0c06…0c1a Head {h00=0x0010, h01=0x0050, text=» BNZ KDUP38 «, t00=0x0007, t01=0x011c}
0x0c1a…0c28 Head {h00=0x000a, h01=0x0050, text=»KDUP35«, t00=0x0007, t01=0x0130}
0x0c28…0c3a Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x0007, t01=0x013e}
0x0c3a…0c48 Head {h00=0x000a, h01=0x0050, text=»KDUP38«, t00=0x0007, t01=0x0150}
0x0c48…0c5e Head {h00=0x0012, h01=0x0050, text=» CMP W1,W1 OK «, t00=0x0007, t01=0x015e}
0x0c5e…0c6a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0174}
0x0c6a…0c78 Head {h00=0x000a, h01=0x0050, text=»KDUP40«, t00=0x0007, t01=0x0180}
0x0c78…0caa Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY «, t00=0x0007, t01=0x018e}
0x0caa…0cb8 Head {h00=0x000a, h01=0x0050, text=»KDUP50«, t00=0x0008, t01=0x0030}
0x0cb8…0cd0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0008, t01=0x003e}
0x0cd0…0cde Head {h00=0x000a, h01=0x0050, text=»KDUP60«, t00=0x0008, t01=0x0056}
0x0cde…0cf0 Head {h00=0x000e, h01=0x0050, text=» CMP W1,W0«, t00=0x0008, t01=0x0064}
0x0cf0…0cfc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0076}
0x0cfc…0d0a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0082}
0x0d0a…0d18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0090}
0x0d18…0d4a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x009e}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d0}
0x0d54…0d86 Head {h00=0x002e, h01=0x0050, text=»*THIS PROCEDURE EDIT ITEMS FOR VALIDATIONS«, t00=0x0008, t01=0x00da}
0x0d86…0da6 Head {h00=0x001c, h01=0x0050, text=»*INTO THE ITEM DEINPUT. «, t00=0x0008, t01=0x010c}
0x0da6…0dc8 Head {h00=0x001e, h01=0x0050, text=»*LEGAL FUNCTIONCODES AREX.«, t00=0x0008, t01=0x012c}
0x0dc8…0de8 Head {h00=0x001c, h01=0x0050, text=»* <FC> = 0 ACCUMULATORS«, t00=0x0008, t01=0x014e}
0x0de8…0e0c Head {h00=0x0020, h01=0x0050, text=»* = 1 SYSTEMVARIABELS «, t00=0x0008, t01=0x016e}
0x0e0c…0e2e (9, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* = 2 USERVARIABELS «, t00=0x0009, t01=0x0004}
0x0e2e…0e5e Head {h00=0x002c, h01=0x0050, text=»* = 3 FIELDS WITHIN CURRENT FORMAT«, t00=0x0009, t01=0x0026}
0x0e5e…0e7c Head {h00=0x001a, h01=0x0050, text=»* = 4 VALUESETS «, t00=0x0009, t01=0x0056}
0x0e7c…0e94 Head {h00=0x0014, h01=0x0050, text=»* = 5 DATE «, t00=0x0009, t01=0x0074}
0x0e94…0ec2 Head {h00=0x002a, h01=0x0050, text=»* = 6 VALUESETINDEX (ELEMENTNO) «, t00=0x0009, t01=0x008c}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0ecc…0efe Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x00c4}
0x0efe…0f14 Head {h00=0x0012, h01=0x0050, text=»DEEDIT PROC FC«, t00=0x0009, t01=0x00f6}
0x0f14…0f3a Head {h00=0x0022, h01=0x0050, text=» MOVE BIN10,W1 LENGTHADJUSTER «, t00=0x0009, t01=0x010c}
0x0f3a…0f56 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0009, t01=0x0132}
0x0f56…0f6c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0009, t01=0x014e}
0x0f6c…0fa4 Head {h00=0x0034, h01=0x0050, text=» IB FC,DED300,DED330,DED200,DED100,DED170,DED160«, t00=0x0009, t01=0x0164}
0x0fa4…0fc4 Head {h00=0x001c, h01=0x0050, text=» MOVE DEINPUT,ACK(BIN8) «, t00=0x000a, t01=0x000c}
0x0fc4…0fd6 Head {h00=0x000e, h01=0x0050, text=» B DED390 «, t00=0x000a, t01=0x002c}
0x0fd6…0fe4 Head {h00=0x000a, h01=0x0050, text=»DED100«, t00=0x000a, t01=0x003e}
0x0fe4…1008 Head {h00=0x0020, h01=0x0050, text=» CALL TESTB,BPOOL(PINDTB),W2«, t00=0x000a, t01=0x004c}
0x1008…1028 Head {h00=0x001c, h01=0x0050, text=» BNZ DED150 JUMP IF BCD «, t00=0x000a, t01=0x0070}
0x1028…1052 Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN7,W1,W1,BPOOL(PINDTB),W1«, t00=0x000a, t01=0x0090}
0x1052…1080 Head {h00=0x002a, h01=0x0050, text=» COPY DEINPUT,W0,BIN7,FDVBCD(ELMNO),W0«, t00=0x000a, t01=0x00ba}
0x1080…108c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x00e8}
0x108c…109a Head {h00=0x000a, h01=0x0050, text=»DED150«, t00=0x000a, t01=0x00f4}
0x109a…10be Head {h00=0x0020, h01=0x0050, text=» MOVE DEINPUT,FDVBCD(ELMNO) «, t00=0x000a, t01=0x0102}
0x10be…10ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0126}
0x10ca…10d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0132}
0x10d8…10e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0140}
0x10e2…110e Head {h00=0x0028, h01=0x0050, text=»* VALUE SET INDEX (ELEMENTNO) «, t00=0x000a, t01=0x014a}
0x110e…1118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x1118…1126 Head {h00=0x000a, h01=0x0050, text=»DED160«, t00=0x000a, t01=0x0180}
0x1126…114e Head {h00=0x0024, h01=0x0050, text=» MOVE BCD3A,VSEIND BINCONV=>BCD «, t00=0x000a, t01=0x018e}
0x114e…1178 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,BCD3A BCDCONV=>STRG «, t00=0x000b, t01=0x0026}
0x1178…1184 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0050}
0x1184…1192 Head {h00=0x000a, h01=0x0050, text=»DED170«, t00=0x000b, t01=0x005c}
0x1192…11ac Head {h00=0x0016, h01=0x0050, text=» MOVE DEINPUT,DATE«, t00=0x000b, t01=0x006a}
0x11ac…11c8 Head {h00=0x0018, h01=0x0050, text=» DLETE DEINPUT,W0,W1«, t00=0x000b, t01=0x0084}
0x11c8…11da Head {h00=0x000e, h01=0x0050, text=» B DED400 «, t00=0x000b, t01=0x00a0}
0x11da…11e8 Head {h00=0x000a, h01=0x0050, text=»DED200«, t00=0x000b, t01=0x00b2}
0x11e8…1216 Head {h00=0x002a, h01=0x0050, text=» TBF DOOLA,DED210 JUMP IF NOT BALANCE «, t00=0x000b, t01=0x00c0}
0x1216…1234 Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,:FMTITEM«, t00=0x000b, t01=0x00ee}
0x1234…1246 Head {h00=0x000e, h01=0x0050, text=» B DED400 «, t00=0x000b, t01=0x010c}
0x1246…1254 Head {h00=0x000a, h01=0x0050, text=»DED210«, t00=0x000b, t01=0x011e}
0x1254…1282 Head {h00=0x002a, h01=0x0050, text=»* LOOK FOR TYPE OF ITEM BY USING TYPET«, t00=0x000b, t01=0x012c}
0x1282…12b0 Head {h00=0x002a, h01=0x0050, text=» CALL TYPET,BIN7,X.PSEUDO,X.WB10,BIN8 «, t00=0x000b, t01=0x015a}
0x12b0…12d8 Head {h00=0x0024, h01=0x0050, text=» CBE BIN7,W2,DED250 JUMP IF BCD «, t00=0x000b, t01=0x0188}
0x12d8…12ee Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x000c, t01=0x0020}
0x12ee…1310 Head {h00=0x001e, h01=0x0050, text=» EDSUB DEINPUT,BIN7,FORMF «, t00=0x000c, t01=0x0036}
0x1310…1322 Head {h00=0x000e, h01=0x0050, text=» B DED390 «, t00=0x000c, t01=0x0058}
0x1322…1330 Head {h00=0x000a, h01=0x0050, text=»DED250«, t00=0x000c, t01=0x006a}
0x1330…1360 Head {h00=0x002c, h01=0x0050, text=» CON X.MOVE,DEINPUT,X.PSEUDO,X.WB10,BIN8«, t00=0x000c, t01=0x0078}
0x1360…1372 Head {h00=0x000e, h01=0x0050, text=» B DED400 «, t00=0x000c, t01=0x00a8}
0x1372…1380 Head {h00=0x000a, h01=0x0050, text=»DED300«, t00=0x000c, t01=0x00ba}
0x1380…13a2 Head {h00=0x001e, h01=0x0050, text=» EDSUB DEINPUT,BIN7,FORMS «, t00=0x000c, t01=0x00c8}
0x13a2…13b4 Head {h00=0x000e, h01=0x0050, text=» B DED350 «, t00=0x000c, t01=0x00ea}
0x13b4…13c2 Head {h00=0x000a, h01=0x0050, text=»DED330«, t00=0x000c, t01=0x00fc}
0x13c2…13e4 Head {h00=0x001e, h01=0x0050, text=» EDSUB DEINPUT,BIN7,FORMU «, t00=0x000c, t01=0x010a}
0x13e4…13f2 Head {h00=0x000a, h01=0x0050, text=»DED350«, t00=0x000c, t01=0x012c}
0x13f2…140c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW1,BIN7«, t00=0x000c, t01=0x013a}
0x140c…1418 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0154}
0x1418…1426 Head {h00=0x000a, h01=0x0050, text=»DED390«, t00=0x000c, t01=0x0160}
0x1426…143c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x000c, t01=0x016e}
0x143c…144a Head {h00=0x000a, h01=0x0050, text=»DED400«, t00=0x000c, t01=0x0184}
0x144a…1462 (13, 0, 400) Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x000d, t01=0x0004}
0x1462…147c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,=W'80' «, t00=0x000d, t01=0x001c}
0x147c…14ac Head {h00=0x002c, h01=0x0050, text=» MATCH DEINPUT,DEBINW1,BIN7,HEX00,W0,W1 «, t00=0x000d, t01=0x0036}
0x14ac…14ba Head {h00=0x000a, h01=0x0050, text=»DED450«, t00=0x000d, t01=0x0066}
0x14ba…14d4 Head {h00=0x0016, h01=0x0050, text=» SUB DEBINW1,BIN10«, t00=0x000d, t01=0x0074}
0x14d4…14fa Head {h00=0x0022, h01=0x0050, text=» BNN DED470 JUMP IF NOT MINUS «, t00=0x000d, t01=0x008e}
0x14fa…1512 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x000d, t01=0x00b4}
0x1512…1520 Head {h00=0x000a, h01=0x0050, text=»DED470«, t00=0x000d, t01=0x00cc}
0x1520…152c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00da}
0x152c…153a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00e6}
0x153a…1548 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00f4}
0x1548…1576 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x000d, t01=0x0102}
0x1576…15a4 Head {h00=0x002a, h01=0x0050, text=»* DISPLAY AND READ OF FUNCTION-KEYS * «, t00=0x000d, t01=0x0130}
0x15a4…15d2 Head {h00=0x002a, h01=0x0050, text=»* ENTERED ON THE LAST LINE. * «, t00=0x000d, t01=0x015e}
0x15d2…1600 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x000d, t01=0x018c}
0x1600…161c Head {h00=0x0018, h01=0x0050, text=»DELAST PROC FC,$KEYT«, t00=0x000e, t01=0x002a}
0x161c…1632 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,FC«, t00=0x000e, t01=0x0046}
0x1632…1652 Head {h00=0x001c, h01=0x0050, text=»LASTD0 MOVE DEBINW4,W24 «, t00=0x000e, t01=0x005c}
0x1652…1672 Head {h00=0x001c, h01=0x0050, text=» ERASE 0,DEBINW4,DEBINW4«, t00=0x000e, t01=0x007c}
0x1672…1694 Head {h00=0x001e, h01=0x0050, text=» EDWRT DEDSSCRN,FLAST(FC) «, t00=0x000e, t01=0x009c}
0x1694…16a2 Head {h00=0x000a, h01=0x0050, text=»LAST05«, t00=0x000e, t01=0x00be}
0x16a2…16ba Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x000e, t01=0x00cc}
0x16ba…16c8 Head {h00=0x000a, h01=0x0050, text=»LASTD1«, t00=0x000e, t01=0x00e4}
0x16c8…1700 Head {h00=0x0034, h01=0x0050, text=» IB FC,LPROG,LDEL,LDEL,LINS,LVAL,LINS,LASRET2 C«, t00=0x000e, t01=0x00f2}
0x1700…1720 Head {h00=0x001c, h01=0x0050, text=» LASRET3,LASVER,LASRET2«, t00=0x000e, t01=0x012a}
0x1720…1730 Head {h00=0x000c, h01=0x0050, text=» B LINS «, t00=0x000e, t01=0x014a}
0x1730…173e Head {h00=0x000a, h01=0x0050, text=»LPROG «, t00=0x000e, t01=0x015a}
0x173e…1774 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW1,SYMREC(W12) GET MAX SYMB.LENGTH «, t00=0x000e, t01=0x0168}
0x1774…1792 Head {h00=0x001a, h01=0x0050, text=» CBG DEBINW1,W0,LPROG2«, t00=0x000f, t01=0x000e}
0x1792…17ba Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIW2,W2 SIMULATE CANCEL «, t00=0x000f, t01=0x002c}
0x17ba…17da Head {h00=0x001c, h01=0x0050, text=» ERASE 0,DEBINW4,DEBINW4«, t00=0x000f, t01=0x0054}
0x17da…17ec Head {h00=0x000e, h01=0x0050, text=» B LASVER «, t00=0x000f, t01=0x0074}
0x17ec…17fa Head {h00=0x000a, h01=0x0050, text=»LPROG2«, t00=0x000f, t01=0x0086}
0x17fa…182c Head {h00=0x002e, h01=0x0050, text=» KI DEDSDYKB,DEINPUT,$KEYT,DEBINW1,DEBINW2«, t00=0x000f, t01=0x0094}
0x182c…183e Head {h00=0x000e, h01=0x0050, text=» B LAST50 «, t00=0x000f, t01=0x00c6}
0x183e…184a Head {h00=0x0008, h01=0x0050, text=»LVAL«, t00=0x000f, t01=0x00d8}
0x184a…1862 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W2«, t00=0x000f, t01=0x00e4}
0x1862…1874 Head {h00=0x000e, h01=0x0050, text=» B LPROG2 «, t00=0x000f, t01=0x00fc}
0x1874…1880 Head {h00=0x0008, h01=0x0050, text=»LDEL«, t00=0x000f, t01=0x010e}
0x1880…188c Head {h00=0x0008, h01=0x0050, text=»LINS«, t00=0x000f, t01=0x011a}
0x188c…18a4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W1«, t00=0x000f, t01=0x0126}
0x18a4…18b2 Head {h00=0x000a, h01=0x0050, text=»LASTD2«, t00=0x000f, t01=0x013e}
0x18b2…18e8 Head {h00=0x0032, h01=0x0050, text=» KI .NE,DEDSDYKB,DEINPUT,$KEYT,DEBINW1,DEBINW2«, t00=0x000f, t01=0x014c}
0x18e8…18f6 Head {h00=0x000a, h01=0x0050, text=»LAST50«, t00=0x000f, t01=0x0182}
0x18f6…1916 Head {h00=0x001c, h01=0x0050, text=» PERF DELOCK,W1,DEBINW2 «, t00=0x000f, t01=0x0190}
0x1916…193e Head {h00=0x0024, h01=0x0050, text=» IB DEBINW3,POWOFF,LASTER,LASTD0«, t00=0x0010, t01=0x0020}
0x193e…1950 Head {h00=0x000e, h01=0x0050, text=» B LASTD3 «, t00=0x0010, t01=0x0048}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005a}
0x195a…198e Head {h00=0x0030, h01=0x0050, text=»* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY «, t00=0x0010, t01=0x0064}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x1998…19a6 Head {h00=0x000a, h01=0x0050, text=»LASTER«, t00=0x0010, t01=0x00a2}
0x19a6…19c6 Head {h00=0x001c, h01=0x0050, text=» XSTAT DEDSDYKB,DEBINW3 «, t00=0x0010, t01=0x00b0}
0x19c6…19e4 Head {h00=0x001a, h01=0x0050, text=» CALL MASK,DEBINW3,W8 «, t00=0x0010, t01=0x00d0}
0x19e4…19f6 Head {h00=0x000e, h01=0x0050, text=» BZ LASBEL«, t00=0x0010, t01=0x00ee}
0x19f6…1a0e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W5«, t00=0x0010, t01=0x0100}
0x1a0e…1a20 Head {h00=0x000e, h01=0x0050, text=» B PROEN2 «, t00=0x0010, t01=0x0118}
0x1a20…1a2e Head {h00=0x000a, h01=0x0050, text=»LASTD3«, t00=0x0010, t01=0x012a}
0x1a2e…1a62 Head {h00=0x0030, h01=0x0050, text=» IB FC,LASRET,LASRET,LAST06,LASRET,LASRET C«, t00=0x0010, t01=0x0138}
0x1a62…1a92 Head {h00=0x002c, h01=0x0050, text=» LAST06,LAST06,LAST06,LAST06,LAST06 C «, t00=0x0010, t01=0x016c}
0x1a92…1ab0 Head {h00=0x001a, h01=0x0050, text=» LASRET,LASRET,LASRET«, t00=0x0011, t01=0x000c}
0x1ab0…1abe Head {h00=0x000a, h01=0x0050, text=»LAST06«, t00=0x0011, t01=0x002a}
0x1abe…1ae6 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,LASBEL,LASBEL,LASBEL«, t00=0x0011, t01=0x0038}
0x1ae6…1b0c Head {h00=0x0022, h01=0x0050, text=» SUB DEBINW2,W3 ADJUST EOI0KEY«, t00=0x0011, t01=0x0060}
0x1b0c…1b1e Head {h00=0x000e, h01=0x0050, text=» B LASRET «, t00=0x0011, t01=0x0086}
0x1b1e…1b2c Head {h00=0x000a, h01=0x0050, text=»LASBEL«, t00=0x0011, t01=0x0098}
0x1b2c…1b58 Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0011, t01=0x00a6}
0x1b58…1b6a Head {h00=0x000e, h01=0x0050, text=» B LAST05 «, t00=0x0011, t01=0x00d2}
0x1b6a…1b78 Head {h00=0x000a, h01=0x0050, text=»LASKOP«, t00=0x0011, t01=0x00e4}
0x1b78…1b90 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0011, t01=0x00f2}
0x1b90…1bb2 Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0011, t01=0x010a}
0x1bb2…1bc4 Head {h00=0x000e, h01=0x0050, text=» B LASTD0 «, t00=0x0011, t01=0x012c}
0x1bc4…1bd2 Head {h00=0x000a, h01=0x0050, text=»LASVER«, t00=0x0011, t01=0x013e}
0x1bd2…1bfe Head {h00=0x0028, h01=0x0050, text=» EDWRT DEDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0011, t01=0x014c}
0x1bfe…1c10 Head {h00=0x000e, h01=0x0050, text=» B LASRET3«, t00=0x0011, t01=0x0178}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x1c1a…1c2e (18, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* POWER OFF «, t00=0x0012, t01=0x0004}
0x1c2e…1c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0018}
0x1c38…1c46 Head {h00=0x000a, h01=0x0050, text=»POWOFF«, t00=0x0012, t01=0x0022}
0x1c46…1c5e Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0012, t01=0x0030}
0x1c5e…1c70 Head {h00=0x000e, h01=0x0050, text=» B LASTD0 «, t00=0x0012, t01=0x0048}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005a}
0x1c7a…1c88 Head {h00=0x000a, h01=0x0050, text=»PROEN2«, t00=0x0012, t01=0x0064}
0x1c88…1cba Head {h00=0x002e, h01=0x0050, text=» IB FC,LASTUT,LASTD0,LASTD0,LASTD0,LASTUT «, t00=0x0012, t01=0x0072}
0x1cba…1cc8 Head {h00=0x000a, h01=0x0050, text=»LASTUT«, t00=0x0012, t01=0x00a4}
0x1cc8…1ce0 Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW1,W1 «, t00=0x0012, t01=0x00b2}
0x1ce0…1cee Head {h00=0x000a, h01=0x0050, text=»LASRET«, t00=0x0012, t01=0x00ca}
0x1cee…1d0e Head {h00=0x001c, h01=0x0050, text=» ERASE 0,DEBINW4,DEBINW4«, t00=0x0012, t01=0x00d8}
0x1d0e…1d1e Head {h00=0x000c, h01=0x0050, text=»LASRET2 «, t00=0x0012, t01=0x00f8}
0x1d1e…1d2a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0108}
0x1d2a…1d3a Head {h00=0x000c, h01=0x0050, text=»LASRET3 «, t00=0x0012, t01=0x0114}
0x1d3a…1d48 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0012, t01=0x0124}
0x1d48…1d54 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0132}
0x1d54…1d62 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x013e}
0x1d62…1d70 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x014c}
0x1d70…1d7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x015a}
0x1d7a…1d92 Head {h00=0x0014, h01=0x0010, text=»* FORMATS«, t00=0x0012, t01=0x0164}
0x1d92…1d9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x017c}
0x1d9c…1dde Head {h00=0x003e, h01=0x0050, text=»FLAST FTABLE FPROG,FDEL1,FDEL2,FLIN1,FLVAL,FLINS,FRECOV C«, t00=0x0012, t01=0x0186}
0x1dde…1e0e Head {h00=0x002c, h01=0x0050, text=» FCORR,FVER,FRECO2,FFORCE,FCONV0,FCONV1«, t00=0x0013, t01=0x0038}
0x1e0e…1e20 Head {h00=0x000e, h01=0x0050, text=»FPROG FRMT«, t00=0x0013, t01=0x0068}
0x1e20…1e2c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0013, t01=0x007a}
0x1e2c…1e3a Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0013, t01=0x0086}
0x1e3a…1e56 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'SYMBOLIC:'«, t00=0x0013, t01=0x0094}
0x1e56…1e64 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x00b0}
0x1e64…1e76 Head {h00=0x000e, h01=0x0050, text=»FDEL1 FRMT«, t00=0x0013, t01=0x00be}
0x1e76…1e82 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0013, t01=0x00d0}
0x1e82…1e90 Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0013, t01=0x00dc}
0x1e90…1eb8 Head {h00=0x0024, h01=0x0050, text=» FTEXT 'CONFIRM RECORD DELETE:' «, t00=0x0013, t01=0x00ea}
0x1eb8…1ec6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x0112}
0x1ec6…1ed8 Head {h00=0x000e, h01=0x0050, text=»FDEL2 FRMT«, t00=0x0013, t01=0x0120}
0x1ed8…1eec Head {h00=0x0010, h01=0x0050, text=» FLINK FDEL3«, t00=0x0013, t01=0x0132}
0x1eec…1f04 Head {h00=0x0014, h01=0x0050, text=» FTEXT 'DELETED'«, t00=0x0013, t01=0x0146}
0x1f04…1f12 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0013, t01=0x015e}
0x1f12…1f24 Head {h00=0x000e, h01=0x0050, text=»FLINS FRMT«, t00=0x0013, t01=0x016c}
0x1f24…1f38 Head {h00=0x0010, h01=0x0050, text=» FLINK FDEL3«, t00=0x0013, t01=0x017e}
0x1f38…1f52 (20, 0, 400) Head {h00=0x0016, h01=0x0050, text=» FTEXT 'INSERTED' «, t00=0x0014, t01=0x0004}
0x1f52…1f60 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0014, t01=0x001e}
0x1f60…1f72 Head {h00=0x000e, h01=0x0050, text=»FDEL3 FRMT«, t00=0x0014, t01=0x002c}
0x1f72…1f7e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0014, t01=0x003e}
0x1f7e…1f8c Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0014, t01=0x004a}
0x1f8c…1fa6 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'RECORD' «, t00=0x0014, t01=0x0058}
0x1fa6…1fba Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0014, t01=0x0072}
0x1fba…1fd6 Head {h00=0x0018, h01=0x0050, text=» FMEL 'TTTT9',BCD13A«, t00=0x0014, t01=0x0086}
0x1fd6…1fea Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0014, t01=0x00a2}
0x1fea…1ff8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0014, t01=0x00b6}
0x1ff8…200a Head {h00=0x000e, h01=0x0050, text=»FLVAL FRMT«, t00=0x0014, t01=0x00c4}
0x200a…2016 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0014, t01=0x00d6}
0x2016…2024 Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0014, t01=0x00e2}
0x2024…2040 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'DUPL FROM ' «, t00=0x0014, t01=0x00f0}
0x2040…205c Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'VALUESET' «, t00=0x0014, t01=0x010c}
0x205c…2070 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' T:'«, t00=0x0014, t01=0x0128}
0x2070…2088 Head {h00=0x0014, h01=0x0050, text=» FMEL 'XX',BCD3A«, t00=0x0014, t01=0x013c}
0x2088…209c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0014, t01=0x0154}
0x209c…20b6 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'ELEMENT'«, t00=0x0014, t01=0x0168}
0x20b6…20d0 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'NUMBER' «, t00=0x0014, t01=0x0182}
0x20d0…20e4 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0015, t01=0x000c}
0x20e4…20f2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0015, t01=0x0020}
0x20f2…2104 Head {h00=0x000e, h01=0x0050, text=»FLIN1 FRMT«, t00=0x0015, t01=0x002e}
0x2104…2110 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0015, t01=0x0040}
0x2110…211e Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0015, t01=0x004c}
0x211e…2144 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'CONFIRM RECORD INSERT'«, t00=0x0015, t01=0x005a}
0x2144…2152 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0015, t01=0x0080}
0x2152…2166 Head {h00=0x0010, h01=0x0050, text=»FRECOV FRMT «, t00=0x0015, t01=0x008e}
0x2166…2172 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0015, t01=0x00a2}
0x2172…2180 Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0015, t01=0x00ae}
0x2180…219e Head {h00=0x001a, h01=0x0050, text=» FTEXT 'RECOVERY OF ' «, t00=0x0015, t01=0x00bc}
0x219e…21b4 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'JOB'«, t00=0x0015, t01=0x00da}
0x21b4…21c8 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0015, t01=0x00f0}
0x21c8…21de Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0015, t01=0x0104}
0x21de…21f2 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0015, t01=0x011a}
0x21f2…220a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'BATCH'«, t00=0x0015, t01=0x012e}
0x220a…221e Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0015, t01=0x0146}
0x221e…2232 Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0015, t01=0x015a}
0x2232…224c Head {h00=0x0016, h01=0x0050, text=» FTEXT ' RUNNING.'«, t00=0x0015, t01=0x016e}
0x224c…225a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0015, t01=0x0188}
0x225a…226c Head {h00=0x000e, h01=0x0050, text=»FCORR FRMT«, t00=0x0016, t01=0x0008}
0x226c…2278 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0016, t01=0x001a}
0x2278…2286 Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0016, t01=0x0026}
0x2286…22a8 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'RECORD CORRECTION'«, t00=0x0016, t01=0x0034}
0x22a8…22b6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x0056}
0x22b6…22c8 Head {h00=0x000e, h01=0x0050, text=»FVER FRMT «, t00=0x0016, t01=0x0064}
0x22c8…22d4 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0016, t01=0x0076}
0x22d4…22e2 Head {h00=0x000a, h01=0x0050, text=» FLOW «, t00=0x0016, t01=0x0082}
0x22e2…230a Head {h00=0x0024, h01=0x0050, text=» FTEXT 'RECORD MUST BE VERIFIED'«, t00=0x0016, t01=0x0090}
0x230a…2318 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x00b8}
0x2318…232c Head {h00=0x0010, h01=0x0050, text=»FRECO2 FRMT «, t00=0x0016, t01=0x00c6}
0x232c…2338 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0016, t01=0x00da}
0x2338…235a Head {h00=0x001e, h01=0x0050, text=» FTEXT 'RECOVERY RUNNING.'«, t00=0x0016, t01=0x00e6}
0x235a…2368 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x0108}
0x2368…237c Head {h00=0x0010, h01=0x0050, text=»FFORCE FRMT «, t00=0x0016, t01=0x0116}
0x237c…2388 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0016, t01=0x012a}
0x2388…23a4 Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'CONFIRM ' «, t00=0x0016, t01=0x0136}
0x23a4…23c8 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'FREEZING OF BATCH ' «, t00=0x0016, t01=0x0152}
0x23c8…23dc Head {h00=0x0010, h01=0x0050, text=» FCOPY BATCH«, t00=0x0016, t01=0x0176}
0x23dc…23ea Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0016, t01=0x018a}
0x23ea…23fe Head {h00=0x0010, h01=0x0050, text=»FCONVA FRMT «, t00=0x0017, t01=0x0008}
0x23fe…241a Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'CONFIRM ' «, t00=0x0017, t01=0x001c}
0x241a…2446 Head {h00=0x0028, h01=0x0050, text=» FTEXT 'CONVERSION OF ALL BATCHES ' «, t00=0x0017, t01=0x0038}
0x2446…2454 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0017, t01=0x0064}
0x2454…2468 Head {h00=0x0010, h01=0x0050, text=»FCONV0 FRMT «, t00=0x0017, t01=0x0072}
0x2468…2474 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0017, t01=0x0086}
0x2474…248a Head {h00=0x0012, h01=0x0050, text=» FLINK FCONVA «, t00=0x0017, t01=0x0092}
0x248a…24a4 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'ON UNIT:U'«, t00=0x0017, t01=0x00a8}
0x24a4…24be Head {h00=0x0016, h01=0x0050, text=» FMEL 'X',USERFILE«, t00=0x0017, t01=0x00c2}
0x24be…24cc Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0017, t01=0x00dc}
0x24cc…24da Head {h00=0x000a, h01=0x0050, text=»FONV2 «, t00=0x0017, t01=0x00ea}
0x24da…24ee Head {h00=0x0010, h01=0x0050, text=»FCONV1 FRMT «, t00=0x0017, t01=0x00f8}
0x24ee…24fa Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0017, t01=0x010c}
0x24fa…2510 Head {h00=0x0012, h01=0x0050, text=» FLINK FCONVA «, t00=0x0017, t01=0x0118}
0x2510…252c Head {h00=0x0018, h01=0x0050, text=» FTEXT 'WITHIN JOB:'«, t00=0x0017, t01=0x012e}
0x252c…2542 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0017, t01=0x014a}
0x2542…2550 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0017, t01=0x0160}
0x2550…2562 Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x0017, t01=0x016e}
0x2562…258a Head {h00=0x0024, h01=0x0050, text=» FCTL X'C0',X.PSEUDO,X.WB10,BIN8«, t00=0x0017, t01=0x0180}
0x258a…2598 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x0018}
0x2598…25aa Head {h00=0x000e, h01=0x0050, text=»FORMS FRMT«, t00=0x0018, t01=0x0026}
0x25aa…25c4 Head {h00=0x0016, h01=0x0050, text=» FCOPY SYSV(BIN8) «, t00=0x0018, t01=0x0038}
0x25c4…25d2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x0052}
0x25d2…25e4 Head {h00=0x000e, h01=0x0050, text=»FORMU FRMT«, t00=0x0018, t01=0x0060}
0x25e4…25fe Head {h00=0x0016, h01=0x0050, text=» FCOPY USEV(BIN8) «, t00=0x0018, t01=0x0072}
0x25fe…260c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x008c}
0x260c…261e Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0018, t01=0x009a}
0x261e…262a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0018, t01=0x00ac}
0x262a…2640 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0018, t01=0x00b8}
0x2640…264e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x00ce}
0x264e…2658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x2658…2664 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0018, t01=0x00e6}
0x2664…2668 Head {h00=0x4004, h01=0x0000}
0x2668…266c 00 18 00 f2 ┆ ┆
0x266c…2674 (25, 1, 8) 20 04 00 00 00 19 00 04 ┆ ┆
0x2674…26c4 (26, 0, 400) 4f 52 4d 41 54 20 00 19 01 7c 00 10 00 50 5c 46 54 45 58 54 5c 27 20 31 27 20 00 1a 00 0e 00 14 00 50 5c 46 45 4f 52 5c 5c 4e 45 57 20 50 41 47 45 20 00 1a 00 22 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 1a 00 3a 00 14 00 50 5c 46 ┆ORMAT | P FTEXT ' 1' P FEOR NEW PAGE " P FILLR ' ',2 : P F┆
0x26c4…2714 43 4f 50 59 5c 3d 27 46 4f 52 4d 41 54 27 00 1a 00 4e 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 1a 00 66 00 12 00 50 5c 46 43 4f 50 59 5c 46 4f 52 4d 41 54 20 00 1a 00 7a 00 0e 00 50 5c 46 54 41 42 5c 31 30 30 20 00 1a 00 90 00 12 ┆COPY ='FORMAT' N P FILLR ':',1 f P FCOPY FORMAT z P FTAB 100 ┆
0x2714…2764 00 50 5c 46 43 4f 50 59 5c 3d 27 50 41 47 45 27 00 1a 00 a2 00 10 00 50 5c 46 49 4c 4c 52 5c 27 3a 27 2c 31 00 1a 00 b8 00 1a 00 50 5c 46 4d 45 4c 5c 27 5a 5a 39 27 2c 46 44 56 42 43 44 28 57 33 29 00 1a 00 cc 00 18 00 50 5c 46 45 4f 52 5c ┆ P FCOPY ='PAGE' P FILLR ':',1 P FMEL 'ZZ9',FDVBCD(W3) P FEOR ┆
0x2764…27b4 5c 31 53 54 20 48 45 41 44 4c 49 4e 45 20 00 1a 00 ea 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 1a 01 06 00 18 00 50 5c 46 45 4f 52 5c 5c 32 4e 44 20 48 45 41 44 4c 49 4e 45 20 00 1a 01 1a 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 ┆ 1ST HEADLINE P FILLR ' ',2 P FEOR 2ND HEADLINE P FILLR ' '┆
0x27b4…2804 2c 32 00 1a 01 36 00 14 00 50 5c 46 43 4f 50 59 5c 3d 27 4c 49 4e 45 20 27 20 00 1a 01 4a 00 1a 00 50 5c 46 54 45 58 54 5c 27 41 43 43 55 4d 55 4c 41 54 4f 52 20 27 20 00 1a 01 62 00 16 00 50 5c 46 54 45 58 54 5c 27 50 4f 53 49 54 49 4f 4e ┆,2 6 P FCOPY ='LINE ' J P FTEXT 'ACCUMULATOR ' b P FTEXT 'POSITION┆
0x2804…2854 (27, 0, 400) 20 27 00 1a 01 80 00 14 00 50 5c 46 43 4f 50 59 5c 3d 27 4c 45 4e 47 54 48 27 00 1b 00 0a 00 0c 00 50 5c 46 54 41 42 5c 34 30 00 1b 00 22 00 16 00 50 5c 46 54 45 58 54 5c 27 53 50 45 43 49 41 4c 20 27 20 00 1b 00 32 00 12 00 50 5c 46 54 45 ┆ ' P FCOPY ='LENGTH' P FTAB 40 " P FTEXT 'SPECIAL ' 2 P FTE┆
0x2854…28a4 58 54 5c 27 23 4c 3a 3c 27 20 00 1b 00 4c 00 14 00 50 5c 46 43 4f 50 59 5c 3d 27 46 49 45 4c 44 27 20 00 1b 00 62 00 18 00 50 5c 46 54 45 58 54 5c 27 4c 41 59 4f 55 54 3e 20 23 56 3a 27 00 1b 00 7a 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 27 56 ┆XT '#L:<' L P FCOPY ='FIELD' b P FTEXT 'LAYOUT> #V:' z P FCOPY ='V┆
0x28a4…28f4 41 4c 49 44 41 54 49 4f 4e 20 27 20 00 1b 00 96 00 12 00 50 5c 46 54 45 58 54 5c 27 20 23 47 3a 27 20 00 1b 00 b4 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 27 47 45 4e 45 52 41 54 49 4f 4e 20 27 20 00 1b 00 ca 00 18 00 50 5c 46 45 4f 52 5c 5c 33 ┆ALIDATION ' P FTEXT ' #G:' P FCOPY ='GENERATION ' P FEOR 3┆
0x28f4…2944 52 44 20 48 45 41 44 4c 49 4e 45 20 00 1b 00 e8 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 1b 01 04 00 12 00 50 5c 46 43 4f 50 59 5c 3d 27 20 4e 4f 27 20 00 1b 01 18 00 0c 00 50 5c 46 54 41 42 5c 31 31 00 1b 01 2e 00 12 00 50 5c 46 ┆RD HEADLINE P FILLR ' ',2 P FCOPY =' NO' P FTAB 11 . P F┆
0x2944…2994 43 4f 50 59 5c 3d 27 20 4e 4f 27 20 00 1b 01 3e 00 0c 00 50 5c 46 54 41 42 5c 33 39 00 1b 01 54 00 16 00 50 5c 46 54 45 58 54 5c 27 48 41 4e 44 4c 49 4e 47 27 20 00 1b 01 64 00 18 00 50 5c 46 45 4f 52 5c 5c 34 54 48 20 48 45 41 44 4c 49 4e ┆COPY =' NO' > P FTAB 39 T P FTEXT 'HANDLING' d P FEOR 4TH HEADLIN┆
0x2994…29e4 (28, 0, 400) 45 20 00 1b 01 7e 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 1c 00 0a 00 18 00 50 5c 46 45 4f 52 5c 5c 35 54 48 20 48 45 41 44 4c 49 4e 45 20 00 1c 00 1e 00 0a 00 50 5c 46 4d 45 4e 44 00 1c 00 3a 00 0a 00 50 5c 45 4a 45 43 54 00 1c ┆E ~ P FILLR ' ',2 P FEOR 5TH HEADLINE P FMEND : P EJECT ┆
0x29e4…2a34 00 48 00 06 00 50 2a 20 00 1c 00 56 00 34 00 50 2a 20 20 20 20 20 20 20 50 52 49 4e 54 20 46 4f 52 4d 41 54 20 2c 20 42 41 4c 41 4e 43 45 20 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e 00 1c 00 60 00 06 00 50 2a 20 00 1c 00 98 00 22 ┆ H P* V 4 P* PRINT FORMAT , BALANCE FORMAT DEFINITION ` P* "┆
0x2a34…2a84 00 50 46 32 32 44 4c 5c 46 52 4d 54 5c 5c 44 45 54 41 49 4c 2d 4c 49 4e 45 46 4f 52 4d 41 54 20 00 1c 00 a2 00 10 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 00 1c 00 c8 00 14 00 50 5c 46 42 54 5c 42 4f 4f 4c 38 2c 46 32 32 44 41 00 1c 00 dc ┆ PF22DL FRMT DETAIL-LINEFORMAT P FILLR ' ',2 P FBT BOOL8,F22DA ┆
0x2a84…2ad4 00 0c 00 50 5c 46 54 41 42 5c 34 20 00 1c 00 f4 00 22 00 50 5c 46 4d 45 4c 5c 27 5a 39 27 2c 46 44 56 42 43 44 28 57 32 29 5c 4c 49 4e 45 20 4e 52 20 00 1c 01 04 00 0c 00 50 5c 46 54 41 42 5c 31 32 00 1c 01 2a 00 28 00 50 5c 46 4d 45 4c 5c ┆ P FTAB 4 " P FMEL 'Z9',FDVBCD(W2) LINE NR P FTAB 12 * ( P FMEL ┆
0x2ad4…2b24 27 58 58 27 2c 46 44 56 42 43 44 28 57 38 29 5c 41 43 43 55 4d 55 4c 41 54 4f 52 20 4e 4f 00 1c 01 3a 00 0c 00 50 5c 46 54 41 42 5c 32 33 00 1c 01 66 00 22 00 50 5c 46 4d 45 4c 5c 27 5a 39 27 2c 46 44 56 42 43 44 28 57 35 29 5c 50 4f 53 49 ┆'XX',FDVBCD(W8) ACCUMULATOR NO : P FTAB 23 f " P FMEL 'Z9',FDVBCD(W5) POSI┆