|
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: 7870 (0x1ebe)
Notes: pts_type(SC)
Names: »DCCONV.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DCCONV.SC«
IDENT DCCONV NJ-AMT 830224/EV BATCH TRANSMISSION DDUM DEDDIV PDIV ENTRY DCSGON ENTRY DCSGOF ENTRY DCSEND * EJECT * * KEYTABLE * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL RET EQU X'98' RETURN ENT EQU X'8C' ENTER * KEYTAB KTAB CLR,CAN,RET,ENT * * STIMO EQU X'0B' ATTACH EQU X'0E' DETACH EQU X'0F' TRPAR EQU X'00' EJECT * * THIS MODULE CONTAINS SUBROUTINES TO BE USED * IN THE BATCH TRANSMISSION * CALLED FROM MODULE DECONV EJECT * * DCSGON SEND SIGNON * * BRUGERNAVN BCDI21(6?) * KENDEORD BCDI21(7)? * DCSGON PROC EDSUB DCBUF,REQDC,SIGONF INSERT SIGN ON PERF EXCHAN DCEXCHANGE RET RET 2 PEND EJECT * * DCSGOF SEND SIGN OFF * * DCSGOF PROC EDSUB DCBUF,REQDC,SIGOFF PERF EXCHAN RET RET 2 PEND EJECT DCSEND PROC FC,TYPE,RETCON * * SEND DCDATA IB BTYPE,DCSNDON,DCSNDST,DCSNDDA,DCSNDSL,DCSNDOF * DCSNDDA SEND DATA MOVE DCWRK,REQDC PREV DATA ADD DCWRK,BIN4 NEW DATA CBNG DCWRK,REQLEN,DCSNDDA2 PERF EXCHAN B DCSNDDA2 OK, SEND, NO ROOM PERF TERMIN NOK B DCSNDNOK DCSNDDA2 ROOM FOR MORE EDSUB DCBUF,REQDC,SNDFRM5 XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 COPY DATA ADD REQDC,BIN4 SET NEW LENGTH B DCSNDOK * DCSNDON DCSNDST DCSNDSL DCSNDOF CBL REQDC,W6,DCSND4 MOVE BTYPE,W3 PERF EXCHAN ALREADY DATA IN BUFFER B DCSND4 SEND THEM SEND PREV AS DATA PERF TERMIN FILL AGAIN B DCSNDNOK SEND AS NEW TYPE???? DCSND4 MOVE BTYPE,TYPE RESET BTYPE EDSUB DCBUF,REQDC,SNDFRM5 XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 COPY ADD REQDC,BIN4 SET LENGTH PERF EXCHAN B DCSNDOK PERF TERMIN B DCSNDNOK * DCSNDOK RET DCSNDNOK RET 2 PEND EJECT * * EXCHAN * DCEXCHANGE AND CHECK RESPONSE DEPENDING ON TYPE * OF DATA, HEAD, DATA, BALANCE * EXCHAN PROC MOVE DCWRK,W1 DSC1 DSDCFD,STIMO,DCWRK MOVE BIN7,W1 READ DSDCFD,STR8A,BIN7 DUMMY READ MOVE DCWRK,=W'600' TIME OUT DSC1 DSDCFD,STIMO,DCWRK TIME OUT WRITE DSDCFD,DCBUF,REQDC BNOK EXCHNOK MOVE REQDC,REQLEN SET MAX LENGTH MOVE DCWRK,=W'600' TIME OUT DSC1 DSDCFD,STIMO,DCWRK TIME OUT READ DSDCFD,DCBUF,REQDC BNOK EXCHNOK * * CHECK RESPONSE * IB BTYPE, C EXCHANON, C EXCHANST, C EXCHANDA, C EXCHANSL, C EXCHANOF * EXCHANON AFTER SIGN ON PERF WRDC PRINT ANSWER MOVE STR8A,=C'DFH3504' LOOK FOR MOVE BIN7,W0 CORRECT RESPONSE MATCH DCBUF,BIN7,REQDC,STR8A,W0,W7 BNE EXCHNOK B EXCHOK * EXCHANST AFTER START RECORD EXCHANDA AFTER DATA RECORD MOVE STR8A,=X'1B3543' ERASE/WRITE MOVE BIN7,W0 MATCH DCBUF,BIN7,REQDC,STR8A,W0,W3 BNE EXCHNOK B EXCHOK * EXCHANSL AFTER SLUTD PERF WRDC PRINT ANSWER MOVE STR8A,=C'0002' MOVE BIN7,W0 MATCH DCBUF,BIN7,REQDC,STR8A,W0,W4 BNE EXCHNOK B EXCHOK * EXCHANOF AFTER SIGN OFF PERF WRDC PRINT ANSWER B EXCHOK * * EXCHOK MOVE DCBUF,=C' ' INITIALISE DCBUFFER MOVE REQDC,W0 TO X'2020272020 ' EDSUB DCBUF,REQDC,SNDFRM2 RET * EXCHNOK RET 2 PEND EJECT *SEND TERMINATE TERMIN PROC IB BTYPE, C TERMON, C TERMST, C TERMDA, C TERMSL, C TERMOF * TERMDA AFTER DATA TERMSL AFTER SLUTD MOVE BTYPE,W5 AS SIGN OFF MOVE BPOOL(BIN13),=C'TERMINATE ' MOVE BIN4,W10 MOVE DCBUF,=C' ' MOVE REQDC,W0 EDSUB DCBUF,REQDC,SNDFRM5 XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 ADD REQDC,BIN4 NEW LENGTH PERF EXCHAN B TERMRET * TERMON TERMST TERMOF B TERMRET TERMRET RET PEND EJECT WRDC PROC PRINT RECEIVED DC BUFFER CBL REQDC,W1,WRDCRET NO MESSAGE CBG REQDC,REQLEN,WRDCRET TOO LONG * CHECK IF APPLICATION OR CICS MESSAGE MOVE BIN13,WORK(W13) GET FIRST BUFFER ADD BIN13,W2 MOVE STR8A,=C'DFH' MOVE BIN7,W0 MATCH DCBUF,BIN7,REQDC,STR8A,W0,W3 BE WRDC100 CICS MESSAGE * * APPLICATION MESSAGE4 * * LOOK FOR 'SBA' 'ADR' 'ADR' MOVE STR8A,=X'11' 'SBA' MOVE BIN7,W0 MATCH DCBUF,BIN7,REQDC,STR8A,W0,W1 BNE WRDCRET NO SBA * ADD BIN7,W3 BYPASS SBA SEQUENSE MOVE DCWRK,BIN7 SUB REQDC,DCWRK ADJUST LENGTH CBL REQDC,W1,WRDCRET NO DATA LEFT WRDC05 MOVE BPOOL(BIN13),=X'00' CLEAR BUFFER MATCH DCBUF,DCWRK,REQDC,STR8A,W0,W1 LOOK FOR NEXT SBA BNE WRDC10 SUB DCWRK,BIN7 DCWRK=LENGTH COPY BPOOL(BIN13),W0,DCWRK,DCBUF,BIN7 EDWRT DEDSPRT,WRDCFRM ADD DCWRK,W3 BYPASS SBA SEQUENCE SUB REQDC,DCWRK ADJUST LENGTH ADD DCWRK,BIN7 RESET POINTER MOVE BIN7,DCWRK CBG REQDC,W3,WRDC05 NEXT LINE B WRDCRET END * WRDC10 LAST LINE B WRDC200 * * CICS MESSAGE * WRDC100 SUB REQDC,BIN7 ADJUST LENGTH (FROM 'DFH') CBL REQDC,=W'112',WRDC200 LAST LINE MOVE DCWRK,=W'80' MOVE STR8A,=C' ' MATCH DCBUF,DCWRK,W32,STR8A,W0,W1 FIND SPACE IN LAST 32 CHARS BNE WRDC200 MOVE BPOOL(BIN13),=X'00' CLEAR PRINT BUFFER SUB DCWRK,BIN7 DCWRK=LENGTH COPY BPOOL(BIN13),W0,DCWRK,DCBUF,BIN7 EDWRT DEDSPRT,WRDCFRM PRINT LINE SUB REQDC,DCWRK ADJUST LENGTH ADD BIN7,DCWRK * WRDC200 LAST LINE MOVE BPOOL(BIN13),=X'00' CLEAR PRINT BUFFER CBL REQDC,=W'112',WRDC210 MOVE REQDC,=W'112' MAX LENGTH WRDC210 COPY BPOOL(BIN13),W0,REQDC,DCBUF,BIN7 EDWRT DEDSPRT,WRDCFRM * WRDCRET RET PEND EJECT * * FORMATS * * SIGONF FRMT FTEXT 'CSSN PS=' FMEL '9999',BCDI21(W6) FTEXT ',NAME=' FMEL 'AAAAAAAAAAAAAAAAAAA9',BCDI21(W7) FMEND * SIGOFF FRMT FTEXT C'CSSF ' FMEND * SNDFRM2 FRMT FILLR ' ',2 FCOPY =X'272020' FMEND * SNDFRM5 FRMT FCOPY =X'112020' FMEND * WRDCFRM FRMT FILLR ' ',2 FCOPY BPOOL(BIN13) FMEND * END
0x0000…0026 (0, 0, 398) Head {h00=0x0022, h01=0x0050, text=» IDENT DCCONV NJ-AMT 830224/EV«, t00=0x0000, t01=0x0004}
0x0026…0044 Head {h00=0x001a, h01=0x0050, text=» BATCH TRANSMISSION «, t00=0x0000, t01=0x002a}
0x0044…0058 Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0048}
0x0058…0066 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x005c}
0x0066…007c Head {h00=0x0012, h01=0x0050, text=» ENTRY DCSGON «, t00=0x0000, t01=0x006a}
0x007c…0092 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCSGOF «, t00=0x0000, t01=0x0080}
0x0092…00a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY DCSEND «, t00=0x0000, t01=0x0096}
0x00a8…00b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ac}
0x00b2…00c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00b6}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00e2 Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0000, t01=0x00ce}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…0108 Head {h00=0x0018, h01=0x0050, text=»CLR EQU X'8F' CLEAR «, t00=0x0000, t01=0x00f0}
0x0108…0124 Head {h00=0x0018, h01=0x0050, text=»CAN EQU X'91' CANCEL«, t00=0x0000, t01=0x010c}
0x0124…0140 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'98' RETURN«, t00=0x0000, t01=0x0128}
0x0140…015c Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'8C' ENTER «, t00=0x0000, t01=0x0144}
0x015c…0166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0160}
0x0166…018a Head {h00=0x0020, h01=0x0050, text=»KEYTAB KTAB CLR,CAN,RET,ENT «, t00=0x0000, t01=0x016a}
0x018a…0192 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x018e}
0x0192…019a Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0008}
0x019a…01a2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0010}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ac…01b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b6…01be Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x002c}
0x01be…01d6 Head {h00=0x0014, h01=0x0050, text=»STIMO EQU X'0B' «, t00=0x0001, t01=0x0034}
0x01d6…01ee Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0001, t01=0x004c}
0x01ee…0206 Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0001, t01=0x0064}
0x0206…021e Head {h00=0x0014, h01=0x0050, text=»TRPAR EQU X'00' «, t00=0x0001, t01=0x007c}
0x021e…022c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0094}
0x022c…0236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0236…026e Head {h00=0x0034, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES TO BE USED «, t00=0x0001, t01=0x00ac}
0x026e…0294 Head {h00=0x0022, h01=0x0050, text=»* IN THE BATCH TRANSMISSION «, t00=0x0001, t01=0x00e4}
0x0294…02ba Head {h00=0x0022, h01=0x0050, text=»* CALLED FROM MODULE DECONV «, t00=0x0001, t01=0x010a}
0x02ba…02c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0130}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d2…02f0 Head {h00=0x001a, h01=0x0050, text=»* DCSGON SEND SIGNON«, t00=0x0001, t01=0x0148}
0x02f0…02fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0166}
0x02fa…031c Head {h00=0x001e, h01=0x0050, text=»* BRUGERNAVN BCDI21(6?) «, t00=0x0001, t01=0x0170}
0x031c…033e (2, 0, 398) Head {h00=0x001e, h01=0x0050, text=»* KENDEORD BCDI21(7)? «, t00=0x0002, t01=0x0004}
0x033e…0348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x0348…0350 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0030}
0x0350…0364 Head {h00=0x0010, h01=0x0050, text=»DCSGON PROC «, t00=0x0002, t01=0x0038}
0x0364…0394 Head {h00=0x002c, h01=0x0050, text=» EDSUB DCBUF,REQDC,SIGONF INSERT SIGN ON«, t00=0x0002, t01=0x004c}
0x0394…03b4 Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN DCEXCHANGE «, t00=0x0002, t01=0x007c}
0x03b4…03c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x009c}
0x03c0…03ce Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0002, t01=0x00a8}
0x03ce…03dc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x00b6}
0x03dc…03ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00c4}
0x03ea…03f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f4…0416 Head {h00=0x001e, h01=0x0050, text=»* DCSGOF SEND SIGN OFF«, t00=0x0002, t01=0x00dc}
0x0416…0420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0108}
0x042a…043e Head {h00=0x0010, h01=0x0050, text=»DCSGOF PROC «, t00=0x0002, t01=0x0112}
0x043e…0460 Head {h00=0x001e, h01=0x0050, text=» EDSUB DCBUF,REQDC,SIGOFF «, t00=0x0002, t01=0x0126}
0x0460…0474 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0002, t01=0x0148}
0x0474…0480 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x015c}
0x0480…048e Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0002, t01=0x0168}
0x048e…049c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0176}
0x049c…04aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0184}
0x04aa…04cc (3, 0, 400) Head {h00=0x001e, h01=0x0050, text=»DCSEND PROC FC,TYPE,RETCON«, t00=0x0003, t01=0x0004}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0026}
0x04d6…04ec Head {h00=0x0012, h01=0x0050, text=»* SEND DCDATA «, t00=0x0003, t01=0x0030}
0x04ec…0526 Head {h00=0x0036, h01=0x0050, text=» IB BTYPE,DCSNDON,DCSNDST,DCSNDDA,DCSNDSL,DCSNDOF «, t00=0x0003, t01=0x0046}
0x0526…0530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0530…054c Head {h00=0x0018, h01=0x0050, text=»DCSNDDA SEND DATA «, t00=0x0003, t01=0x008a}
0x054c…0570 Head {h00=0x0020, h01=0x0050, text=» MOVE DCWRK,REQDC PREV DATA «, t00=0x0003, t01=0x00a6}
0x0570…0590 Head {h00=0x001c, h01=0x0050, text=» ADD DCWRK,BIN4 NEW DATA«, t00=0x0003, t01=0x00ca}
0x0590…05b4 Head {h00=0x0020, h01=0x0050, text=» CBNG DCWRK,REQLEN,DCSNDDA2 «, t00=0x0003, t01=0x00ea}
0x05b4…05c8 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0003, t01=0x010e}
0x05c8…05ee Head {h00=0x0022, h01=0x0050, text=» B DCSNDDA2 OK, SEND, NO ROOM «, t00=0x0003, t01=0x0122}
0x05ee…0606 Head {h00=0x0014, h01=0x0050, text=» PERF TERMIN NOK«, t00=0x0003, t01=0x0148}
0x0606…061a Head {h00=0x0010, h01=0x0050, text=» B DCSNDNOK «, t00=0x0003, t01=0x0160}
0x061a…063a Head {h00=0x001c, h01=0x0050, text=»DCSNDDA2 ROOM FOR MORE«, t00=0x0003, t01=0x0174}
0x063a…065c (4, 0, 400) Head {h00=0x001e, h01=0x0050, text=» EDSUB DCBUF,REQDC,SNDFRM5«, t00=0x0004, t01=0x0004}
0x065c…0696 Head {h00=0x0036, h01=0x0050, text=» XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 COPY DATA «, t00=0x0004, t01=0x0026}
0x0696…06bc Head {h00=0x0022, h01=0x0050, text=» ADD REQDC,BIN4 SET NEW LENGTH«, t00=0x0004, t01=0x0060}
0x06bc…06ce Head {h00=0x000e, h01=0x0050, text=» B DCSNDOK«, t00=0x0004, t01=0x0086}
0x06ce…06d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06d8…06e8 Head {h00=0x000c, h01=0x0050, text=»DCSNDON «, t00=0x0004, t01=0x00a2}
0x06e8…06f8 Head {h00=0x000c, h01=0x0050, text=»DCSNDST «, t00=0x0004, t01=0x00b2}
0x06f8…0708 Head {h00=0x000c, h01=0x0050, text=»DCSNDSL «, t00=0x0004, t01=0x00c2}
0x0708…0718 Head {h00=0x000c, h01=0x0050, text=»DCSNDOF «, t00=0x0004, t01=0x00d2}
0x0718…0734 Head {h00=0x0018, h01=0x0050, text=» CBL REQDC,W6,DCSND4«, t00=0x0004, t01=0x00e2}
0x0734…074a Head {h00=0x0012, h01=0x0050, text=» MOVE BTYPE,W3«, t00=0x0004, t01=0x00fe}
0x074a…0776 Head {h00=0x0028, h01=0x0050, text=» PERF EXCHAN ALREADY DATA IN BUFFER «, t00=0x0004, t01=0x0114}
0x0776…0792 Head {h00=0x0018, h01=0x0050, text=» B DCSND4 SEND THEM «, t00=0x0004, t01=0x0140}
0x0792…07ae Head {h00=0x0018, h01=0x0050, text=» SEND PREV AS DATA«, t00=0x0004, t01=0x015c}
0x07ae…07ce Head {h00=0x001c, h01=0x0050, text=» PERF TERMIN FILL AGAIN «, t00=0x0004, t01=0x0178}
0x07ce…07f6 Head {h00=0x0024, h01=0x0050, text=» B DCSNDNOK SEND AS NEW TYPE????«, t00=0x0005, t01=0x0008}
0x07f6…0804 Head {h00=0x000a, h01=0x0050, text=»DCSND4«, t00=0x0005, t01=0x0030}
0x0804…0828 Head {h00=0x0020, h01=0x0050, text=» MOVE BTYPE,TYPE RESET BTYPE«, t00=0x0005, t01=0x003e}
0x0828…084a Head {h00=0x001e, h01=0x0050, text=» EDSUB DCBUF,REQDC,SNDFRM5«, t00=0x0005, t01=0x0062}
0x084a…087e Head {h00=0x0030, h01=0x0050, text=» XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 COPY«, t00=0x0005, t01=0x0084}
0x087e…08a0 Head {h00=0x001e, h01=0x0050, text=» ADD REQDC,BIN4 SET LENGTH«, t00=0x0005, t01=0x00b8}
0x08a0…08b4 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0005, t01=0x00da}
0x08b4…08c6 Head {h00=0x000e, h01=0x0050, text=» B DCSNDOK«, t00=0x0005, t01=0x00ee}
0x08c6…08da Head {h00=0x0010, h01=0x0050, text=» PERF TERMIN«, t00=0x0005, t01=0x0100}
0x08da…08ee Head {h00=0x0010, h01=0x0050, text=» B DCSNDNOK «, t00=0x0005, t01=0x0114}
0x08ee…08f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08f8…0908 Head {h00=0x000c, h01=0x0050, text=»DCSNDOK «, t00=0x0005, t01=0x0132}
0x0908…0914 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0142}
0x0914…0924 Head {h00=0x000c, h01=0x0050, text=»DCSNDNOK«, t00=0x0005, t01=0x014e}
0x0924…0932 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x0005, t01=0x015e}
0x0932…0940 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x016c}
0x0940…094e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x017a}
0x094e…0958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x0958…0968 (6, 0, 400) Head {h00=0x000c, h01=0x0050, text=»* EXCHAN«, t00=0x0006, t01=0x0004}
0x0968…09a2 Head {h00=0x0036, h01=0x0050, text=»* DCEXCHANGE AND CHECK RESPONSE DEPENDING ON TYPE «, t00=0x0006, t01=0x0014}
0x09a2…09c8 Head {h00=0x0022, h01=0x0050, text=»* OF DATA, HEAD, DATA, BALANCE«, t00=0x0006, t01=0x004e}
0x09c8…09d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09d2…09e6 Head {h00=0x0010, h01=0x0050, text=»EXCHAN PROC «, t00=0x0006, t01=0x007e}
0x09e6…09fc Head {h00=0x0012, h01=0x0050, text=» MOVE DCWRK,W1«, t00=0x0006, t01=0x0092}
0x09fc…0a1c Head {h00=0x001c, h01=0x0050, text=» DSC1 DSDCFD,STIMO,DCWRK«, t00=0x0006, t01=0x00a8}
0x0a1c…0a32 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W1 «, t00=0x0006, t01=0x00c8}
0x0a32…0a5c Head {h00=0x0026, h01=0x0050, text=» READ DSDCFD,STR8A,BIN7 DUMMY READ«, t00=0x0006, t01=0x00de}
0x0a5c…0a80 Head {h00=0x0020, h01=0x0050, text=» MOVE DCWRK,=W'600' TIME OUT«, t00=0x0006, t01=0x0108}
0x0a80…0aaa Head {h00=0x0026, h01=0x0050, text=» DSC1 DSDCFD,STIMO,DCWRK TIME OUT «, t00=0x0006, t01=0x012c}
0x0aaa…0acc Head {h00=0x001e, h01=0x0050, text=» WRITE DSDCFD,DCBUF,REQDC «, t00=0x0006, t01=0x0156}
0x0acc…0ae2 Head {h00=0x0012, h01=0x0050, text=» BNOK EXCHNOK «, t00=0x0006, t01=0x0178}
0x0ae2…0b0c Head {h00=0x0026, h01=0x0050, text=» MOVE REQDC,REQLEN SET MAX LENGTH «, t00=0x0006, t01=0x018e}
0x0b0c…0b30 Head {h00=0x0020, h01=0x0050, text=» MOVE DCWRK,=W'600' TIME OUT«, t00=0x0007, t01=0x0028}
0x0b30…0b5a Head {h00=0x0026, h01=0x0050, text=» DSC1 DSDCFD,STIMO,DCWRK TIME OUT «, t00=0x0007, t01=0x004c}
0x0b5a…0b7a Head {h00=0x001c, h01=0x0050, text=» READ DSDCFD,DCBUF,REQDC«, t00=0x0007, t01=0x0076}
0x0b7a…0b90 Head {h00=0x0012, h01=0x0050, text=» BNOK EXCHNOK «, t00=0x0007, t01=0x0096}
0x0b90…0b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0b9a…0bb2 Head {h00=0x0014, h01=0x0050, text=»* CHECK RESPONSE«, t00=0x0007, t01=0x00b6}
0x0bb2…0bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x0bbc…0bd2 Head {h00=0x0012, h01=0x0050, text=» IB BTYPE, C «, t00=0x0007, t01=0x00d8}
0x0bd2…0be8 Head {h00=0x0012, h01=0x0050, text=» EXCHANON, C«, t00=0x0007, t01=0x00ee}
0x0be8…0bfe Head {h00=0x0012, h01=0x0050, text=» EXCHANST, C«, t00=0x0007, t01=0x0104}
0x0bfe…0c14 Head {h00=0x0012, h01=0x0050, text=» EXCHANDA, C«, t00=0x0007, t01=0x011a}
0x0c14…0c2a Head {h00=0x0012, h01=0x0050, text=» EXCHANSL, C«, t00=0x0007, t01=0x0130}
0x0c2a…0c3c Head {h00=0x000e, h01=0x0050, text=» EXCHANOF«, t00=0x0007, t01=0x0146}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c46…0c66 Head {h00=0x001c, h01=0x0050, text=»EXCHANON AFTER SIGN ON«, t00=0x0007, t01=0x0162}
0x0c66…0c86 Head {h00=0x001c, h01=0x0050, text=» PERF WRDC PRINT ANSWER «, t00=0x0007, t01=0x0182}
0x0c86…0cae Head {h00=0x0024, h01=0x0050, text=» MOVE STR8A,=C'DFH3504' LOOK FOR«, t00=0x0008, t01=0x0012}
0x0cae…0cd4 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN7,W0 CORRECT RESPONSE«, t00=0x0008, t01=0x003a}
0x0cd4…0d00 Head {h00=0x0028, h01=0x0050, text=» MATCH DCBUF,BIN7,REQDC,STR8A,W0,W7 «, t00=0x0008, t01=0x0060}
0x0d00…0d14 Head {h00=0x0010, h01=0x0050, text=» BNE EXCHNOK«, t00=0x0008, t01=0x008c}
0x0d14…0d26 Head {h00=0x000e, h01=0x0050, text=» B EXCHOK «, t00=0x0008, t01=0x00a0}
0x0d26…0d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d30…0d56 Head {h00=0x0022, h01=0x0050, text=»EXCHANST AFTER START RECORD «, t00=0x0008, t01=0x00bc}
0x0d56…0d7a Head {h00=0x0020, h01=0x0050, text=»EXCHANDA AFTER DATA RECORD«, t00=0x0008, t01=0x00e2}
0x0d7a…0da4 Head {h00=0x0026, h01=0x0050, text=» MOVE STR8A,=X'1B3543' ERASE/WRITE«, t00=0x0008, t01=0x0106}
0x0da4…0dba Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0008, t01=0x0130}
0x0dba…0de6 Head {h00=0x0028, h01=0x0050, text=» MATCH DCBUF,BIN7,REQDC,STR8A,W0,W3 «, t00=0x0008, t01=0x0146}
0x0de6…0dfa Head {h00=0x0010, h01=0x0050, text=» BNE EXCHNOK«, t00=0x0008, t01=0x0172}
0x0dfa…0e0c Head {h00=0x000e, h01=0x0050, text=» B EXCHOK «, t00=0x0008, t01=0x0186}
0x0e0c…0e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e16…0e34 Head {h00=0x001a, h01=0x0050, text=»EXCHANSL AFTER SLUTD«, t00=0x0009, t01=0x0012}
0x0e34…0e54 Head {h00=0x001c, h01=0x0050, text=» PERF WRDC PRINT ANSWER «, t00=0x0009, t01=0x0030}
0x0e54…0e70 Head {h00=0x0018, h01=0x0050, text=» MOVE STR8A,=C'0002'«, t00=0x0009, t01=0x0050}
0x0e70…0e86 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0009, t01=0x006c}
0x0e86…0eb2 Head {h00=0x0028, h01=0x0050, text=» MATCH DCBUF,BIN7,REQDC,STR8A,W0,W4 «, t00=0x0009, t01=0x0082}
0x0eb2…0ec6 Head {h00=0x0010, h01=0x0050, text=» BNE EXCHNOK«, t00=0x0009, t01=0x00ae}
0x0ec6…0ed8 Head {h00=0x000e, h01=0x0050, text=» B EXCHOK «, t00=0x0009, t01=0x00c2}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee2…0f04 Head {h00=0x001e, h01=0x0050, text=»EXCHANOF AFTER SIGN OFF «, t00=0x0009, t01=0x00de}
0x0f04…0f24 Head {h00=0x001c, h01=0x0050, text=» PERF WRDC PRINT ANSWER «, t00=0x0009, t01=0x0100}
0x0f24…0f36 Head {h00=0x000e, h01=0x0050, text=» B EXCHOK «, t00=0x0009, t01=0x0120}
0x0f36…0f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f40…0f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013c}
0x0f4a…0f58 Head {h00=0x000a, h01=0x0050, text=»EXCHOK«, t00=0x0009, t01=0x0146}
0x0f58…0f86 Head {h00=0x002a, h01=0x0050, text=» MOVE DCBUF,=C' ' INITIALISE DCBUFFER «, t00=0x0009, t01=0x0154}
0x0f86…0fb2 Head {h00=0x0028, h01=0x0050, text=» MOVE REQDC,W0 TO X'2020272020 ' «, t00=0x0009, t01=0x0182}
0x0fb2…0fd4 Head {h00=0x001e, h01=0x0050, text=» EDSUB DCBUF,REQDC,SNDFRM2«, t00=0x000a, t01=0x001e}
0x0fd4…0fe0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0040}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004c}
0x0fea…0ffa Head {h00=0x000c, h01=0x0050, text=»EXCHNOK «, t00=0x000a, t01=0x0056}
0x0ffa…1008 Head {h00=0x000a, h01=0x0050, text=» RET 2«, t00=0x000a, t01=0x0066}
0x1008…1016 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0074}
0x1016…1024 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0082}
0x1024…103c Head {h00=0x0014, h01=0x0050, text=»*SEND TERMINATE «, t00=0x000a, t01=0x0090}
0x103c…1050 Head {h00=0x0010, h01=0x0050, text=»TERMIN PROC «, t00=0x000a, t01=0x00a8}
0x1050…1066 Head {h00=0x0012, h01=0x0050, text=» IB BTYPE, C «, t00=0x000a, t01=0x00bc}
0x1066…107a Head {h00=0x0010, h01=0x0050, text=» TERMON, C«, t00=0x000a, t01=0x00d2}
0x107a…108e Head {h00=0x0010, h01=0x0050, text=» TERMST, C«, t00=0x000a, t01=0x00e6}
0x108e…10a2 Head {h00=0x0010, h01=0x0050, text=» TERMDA, C«, t00=0x000a, t01=0x00fa}
0x10a2…10b6 Head {h00=0x0010, h01=0x0050, text=» TERMSL, C«, t00=0x000a, t01=0x010e}
0x10b6…10c6 Head {h00=0x000c, h01=0x0050, text=» TERMOF«, t00=0x000a, t01=0x0122}
0x10c6…10d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d0…10ec Head {h00=0x0018, h01=0x0050, text=»TERMDA AFTER DATA «, t00=0x000a, t01=0x013c}
0x10ec…1108 Head {h00=0x0018, h01=0x0050, text=»TERMSL AFTER SLUTD«, t00=0x000a, t01=0x0158}
0x1108…112a Head {h00=0x001e, h01=0x0050, text=» MOVE BTYPE,W5 AS SIGN OFF«, t00=0x000a, t01=0x0174}
0x112a…1154 Head {h00=0x0026, h01=0x0050, text=» MOVE BPOOL(BIN13),=C'TERMINATE ' «, t00=0x000b, t01=0x0008}
0x1154…116a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W10«, t00=0x000b, t01=0x0032}
0x116a…1184 Head {h00=0x0016, h01=0x0050, text=» MOVE DCBUF,=C' ' «, t00=0x000b, t01=0x0048}
0x1184…119a Head {h00=0x0012, h01=0x0050, text=» MOVE REQDC,W0«, t00=0x000b, t01=0x0062}
0x119a…11bc Head {h00=0x001e, h01=0x0050, text=» EDSUB DCBUF,REQDC,SNDFRM5«, t00=0x000b, t01=0x0078}
0x11bc…11ec Head {h00=0x002c, h01=0x0050, text=» XCOPY DCBUF,REQDC,BIN4,BPOOL(BIN10),W0 «, t00=0x000b, t01=0x009a}
0x11ec…120e Head {h00=0x001e, h01=0x0050, text=» ADD REQDC,BIN4 NEW LENGTH«, t00=0x000b, t01=0x00ca}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x000b, t01=0x00ec}
0x1222…1234 Head {h00=0x000e, h01=0x0050, text=» B TERMRET«, t00=0x000b, t01=0x0100}
0x1234…123e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x123e…124c Head {h00=0x000a, h01=0x0050, text=»TERMON«, t00=0x000b, t01=0x011c}
0x124c…125a Head {h00=0x000a, h01=0x0050, text=»TERMST«, t00=0x000b, t01=0x012a}
0x125a…1268 Head {h00=0x000a, h01=0x0050, text=»TERMOF«, t00=0x000b, t01=0x0138}
0x1268…127a Head {h00=0x000e, h01=0x0050, text=» B TERMRET«, t00=0x000b, t01=0x0146}
0x127a…128a Head {h00=0x000c, h01=0x0050, text=»TERMRET «, t00=0x000b, t01=0x0158}
0x128a…1296 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0168}
0x1296…12a4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0174}
0x12a4…12b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0182}
0x12b2…12de Head {h00=0x0028, h01=0x0050, text=»WRDC PROC PRINT RECEIVED DC BUFFER «, t00=0x000b, t01=0x0190}
0x12de…1306 Head {h00=0x0024, h01=0x0050, text=» CBL REQDC,W1,WRDCRET NO MESSAGE«, t00=0x000c, t01=0x002c}
0x1306…1330 Head {h00=0x0026, h01=0x0050, text=» CBG REQDC,REQLEN,WRDCRET TOO LONG«, t00=0x000c, t01=0x0054}
0x1330…135e Head {h00=0x002a, h01=0x0050, text=»* CHECK IF APPLICATION OR CICS MESSAGE«, t00=0x000c, t01=0x007e}
0x135e…138c Head {h00=0x002a, h01=0x0050, text=» MOVE BIN13,WORK(W13) GET FIRST BUFFER«, t00=0x000c, t01=0x00ac}
0x138c…13a2 Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W2 «, t00=0x000c, t01=0x00da}
0x13a2…13be Head {h00=0x0018, h01=0x0050, text=» MOVE STR8A,=C'DFH' «, t00=0x000c, t01=0x00f0}
0x13be…13d4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x000c, t01=0x010c}
0x13d4…1400 Head {h00=0x0028, h01=0x0050, text=» MATCH DCBUF,BIN7,REQDC,STR8A,W0,W3 «, t00=0x000c, t01=0x0122}
0x1400…1420 Head {h00=0x001c, h01=0x0050, text=» BE WRDC100 CICS MESSAGE«, t00=0x000c, t01=0x014e}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x142a…1448 Head {h00=0x001a, h01=0x0050, text=»* APPLICATION MESSAGE4«, t00=0x000c, t01=0x0178}
0x1448…1452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0008}
0x1452…1476 Head {h00=0x0020, h01=0x0050, text=»* LOOK FOR 'SBA' 'ADR' 'ADR'«, t00=0x000d, t01=0x0012}
0x1476…1496 Head {h00=0x001c, h01=0x0050, text=» MOVE STR8A,=X'11' 'SBA'«, t00=0x000d, t01=0x0036}
0x1496…14ac Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x000d, t01=0x0056}
0x14ac…14d8 Head {h00=0x0028, h01=0x0050, text=» MATCH DCBUF,BIN7,REQDC,STR8A,W0,W1 «, t00=0x000d, t01=0x006c}
0x14d8…14f4 Head {h00=0x0018, h01=0x0050, text=» BNE WRDCRET NO SBA «, t00=0x000d, t01=0x0098}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b4}
0x14fe…1526 Head {h00=0x0024, h01=0x0050, text=» ADD BIN7,W3 BYPASS SBA SEQUENSE«, t00=0x000d, t01=0x00be}
0x1526…153e Head {h00=0x0014, h01=0x0050, text=» MOVE DCWRK,BIN7«, t00=0x000d, t01=0x00e6}
0x153e…1564 Head {h00=0x0022, h01=0x0050, text=» SUB REQDC,DCWRK ADJUST LENGTH«, t00=0x000d, t01=0x00fe}
0x1564…158e Head {h00=0x0026, h01=0x0050, text=» CBL REQDC,W1,WRDCRET NO DATA LEFT«, t00=0x000d, t01=0x0124}
0x158e…159c Head {h00=0x000a, h01=0x0050, text=»WRDC05«, t00=0x000d, t01=0x014e}
0x159c…15ca Head {h00=0x002a, h01=0x0050, text=» MOVE BPOOL(BIN13),=X'00' CLEAR BUFFER«, t00=0x000d, t01=0x015c}
0x15ca…1608 Head {h00=0x003a, h01=0x0050, text=» MATCH DCBUF,DCWRK,REQDC,STR8A,W0,W1 LOOK FOR NEXT SBA«, t00=0x000d, t01=0x018a}
0x1608…161c Head {h00=0x0010, h01=0x0050, text=» BNE WRDC10 «, t00=0x000e, t01=0x0038}
0x161c…1640 Head {h00=0x0020, h01=0x0050, text=» SUB DCWRK,BIN7 DCWRK=LENGTH«, t00=0x000e, t01=0x004c}
0x1640…166e Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(BIN13),W0,DCWRK,DCBUF,BIN7«, t00=0x000e, t01=0x0070}
0x166e…168c Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,WRDCFRM«, t00=0x000e, t01=0x009e}
0x168c…16b6 Head {h00=0x0026, h01=0x0050, text=» ADD DCWRK,W3 BYPASS SBA SEQUENCE «, t00=0x000e, t01=0x00bc}
0x16b6…16dc Head {h00=0x0022, h01=0x0050, text=» SUB REQDC,DCWRK ADJUST LENGTH«, t00=0x000e, t01=0x00e6}
0x16dc…1702 Head {h00=0x0022, h01=0x0050, text=» ADD DCWRK,BIN7 RESET POINTER «, t00=0x000e, t01=0x010c}
0x1702…171a Head {h00=0x0014, h01=0x0050, text=» MOVE BIN7,DCWRK«, t00=0x000e, t01=0x0132}
0x171a…1740 Head {h00=0x0022, h01=0x0050, text=» CBG REQDC,W3,WRDC05 NEXT LINE«, t00=0x000e, t01=0x014a}
0x1740…1756 Head {h00=0x0012, h01=0x0050, text=» B WRDCRET END«, t00=0x000e, t01=0x0170}
0x1756…1760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0186}
0x1760…177a Head {h00=0x0016, h01=0x0050, text=»WRDC10 LAST LINE«, t00=0x000e, t01=0x0190}
0x177a…178c Head {h00=0x000e, h01=0x0050, text=» B WRDC200«, t00=0x000f, t01=0x001a}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x1796…17ac Head {h00=0x0012, h01=0x0050, text=»* CICS MESSAGE«, t00=0x000f, t01=0x0036}
0x17ac…17b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004c}
0x17b6…17c6 Head {h00=0x000c, h01=0x0050, text=»WRDC100 «, t00=0x000f, t01=0x0056}
0x17c6…17f8 Head {h00=0x002e, h01=0x0050, text=» SUB REQDC,BIN7 ADJUST LENGTH (FROM 'DFH')«, t00=0x000f, t01=0x0066}
0x17f8…1824 Head {h00=0x0028, h01=0x0050, text=» CBL REQDC,=W'112',WRDC200 LAST LINE«, t00=0x000f, t01=0x0098}
0x1824…183e Head {h00=0x0016, h01=0x0050, text=» MOVE DCWRK,=W'80'«, t00=0x000f, t01=0x00c4}
0x183e…1858 Head {h00=0x0016, h01=0x0050, text=» MOVE STR8A,=C' ' «, t00=0x000f, t01=0x00de}
0x1858…188e Head {h00=0x0032, h01=0x0050, text=» MATCH DCBUF,DCWRK,W32,STR8A,W0,W1 FIND SPACE «, t00=0x000f, t01=0x00f8}
0x188e…18aa Head {h00=0x0018, h01=0x0050, text=» IN LAST 32 CHARS «, t00=0x000f, t01=0x012e}
0x18aa…18be Head {h00=0x0010, h01=0x0050, text=» BNE WRDC200«, t00=0x000f, t01=0x014a}
0x18be…18f2 Head {h00=0x0030, h01=0x0050, text=» MOVE BPOOL(BIN13),=X'00' CLEAR PRINT BUFFER«, t00=0x000f, t01=0x015e}
0x18f2…1916 (16, 0, 400) Head {h00=0x0020, h01=0x0050, text=» SUB DCWRK,BIN7 DCWRK=LENGTH«, t00=0x0010, t01=0x0004}
0x1916…1944 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(BIN13),W0,DCWRK,DCBUF,BIN7«, t00=0x0010, t01=0x0028}
0x1944…196e Head {h00=0x0026, h01=0x0050, text=» EDWRT DEDSPRT,WRDCFRM PRINT LINE «, t00=0x0010, t01=0x0056}
0x196e…1994 Head {h00=0x0022, h01=0x0050, text=» SUB REQDC,DCWRK ADJUST LENGTH«, t00=0x0010, t01=0x0080}
0x1994…19ac Head {h00=0x0014, h01=0x0050, text=» ADD BIN7,DCWRK «, t00=0x0010, t01=0x00a6}
0x19ac…19b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19b6…19d2 Head {h00=0x0018, h01=0x0050, text=»WRDC200 LAST LINE «, t00=0x0010, t01=0x00c8}
0x19d2…1a06 Head {h00=0x0030, h01=0x0050, text=» MOVE BPOOL(BIN13),=X'00' CLEAR PRINT BUFFER«, t00=0x0010, t01=0x00e4}
0x1a06…1a28 Head {h00=0x001e, h01=0x0050, text=» CBL REQDC,=W'112',WRDC210«, t00=0x0010, t01=0x0118}
0x1a28…1a4e Head {h00=0x0022, h01=0x0050, text=» MOVE REQDC,=W'112' MAX LENGTH«, t00=0x0010, t01=0x013a}
0x1a4e…1a5e Head {h00=0x000c, h01=0x0050, text=»WRDC210 «, t00=0x0010, t01=0x0160}
0x1a5e…1a8c Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(BIN13),W0,REQDC,DCBUF,BIN7«, t00=0x0010, t01=0x0170}
0x1a8c…1aaa Head {h00=0x001a, h01=0x0050, text=» EDWRT DEDSPRT,WRDCFRM«, t00=0x0011, t01=0x000e}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002c}
0x1ab4…1ac4 Head {h00=0x000c, h01=0x0050, text=»WRDCRET «, t00=0x0011, t01=0x0036}
0x1ac4…1ad0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0046}
0x1ad0…1ade Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0052}
0x1ade…1aec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0060}
0x1aec…1af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006e}
0x1af6…1b08 Head {h00=0x000e, h01=0x0050, text=»* FORMATS «, t00=0x0011, t01=0x0078}
0x1b08…1b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b12…1b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0094}
0x1b1c…1b30 Head {h00=0x0010, h01=0x0050, text=»SIGONF FRMT «, t00=0x0011, t01=0x009e}
0x1b30…1b4a Head {h00=0x0016, h01=0x0050, text=» FTEXT 'CSSN PS=' «, t00=0x0011, t01=0x00b2}
0x1b4a…1b6a Head {h00=0x001c, h01=0x0050, text=» FMEL '9999',BCDI21(W6) «, t00=0x0011, t01=0x00cc}
0x1b6a…1b82 Head {h00=0x0014, h01=0x0050, text=» FTEXT ',NAME=' «, t00=0x0011, t01=0x00ec}
0x1b82…1bb2 Head {h00=0x002c, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',BCDI21(W7) «, t00=0x0011, t01=0x0104}
0x1bb2…1bc0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x0134}
0x1bc0…1bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0142}
0x1bca…1bde Head {h00=0x0010, h01=0x0050, text=»SIGOFF FRMT «, t00=0x0011, t01=0x014c}
0x1bde…1bf6 Head {h00=0x0014, h01=0x0050, text=» FTEXT C'CSSF ' «, t00=0x0011, t01=0x0160}
0x1bf6…1c04 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x0178}
0x1c04…1c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0186}
0x1c0e…1c22 Head {h00=0x0010, h01=0x0050, text=»SNDFRM2 FRMT«, t00=0x0011, t01=0x0190}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x0014}
0x1c36…1c50 Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0012, t01=0x0028}
0x1c50…1c5e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0042}
0x1c5e…1c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0050}
0x1c68…1c7c Head {h00=0x0010, h01=0x0050, text=»SNDFRM5 FRMT«, t00=0x0012, t01=0x005a}
0x1c7c…1c96 Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'112020' «, t00=0x0012, t01=0x006e}
0x1c96…1ca4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0088}
0x1ca4…1cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cae…1cc2 Head {h00=0x0010, h01=0x0050, text=»WRDCFRM FRMT«, t00=0x0012, t01=0x00a0}
0x1cc2…1cd6 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0012, t01=0x00b4}
0x1cd6…1cf2 Head {h00=0x0018, h01=0x0050, text=» FCOPY BPOOL(BIN13) «, t00=0x0012, t01=0x00c8}
0x1cf2…1d00 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x00e4}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f2}
0x1d0a…1d12 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x00fc}
0x1d12…1d1e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0012, t01=0x0104}
0x1d1e…1d22 Head {h00=0x4004, h01=0x0000}
0x1d22…1d26 00 12 01 10 ┆ ┆
0x1d26…1d2e (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1d2e…1d7e (20, 0, 400) 00 00 20 02 00 02 20 02 00 04 20 02 00 06 20 02 00 08 20 02 00 0a 20 02 00 0c 20 02 00 0e 20 02 00 10 20 02 00 12 20 02 00 14 20 02 00 16 20 02 00 18 20 02 00 1a 20 02 00 1c 20 02 00 1e 20 02 00 20 20 02 00 22 20 02 00 24 00 01 00 26 00 01 ┆ " $ & ┆
0x1d7e…1dce 00 27 00 01 00 28 00 01 00 29 00 02 00 2a 00 03 00 2c 00 04 00 2f 00 04 00 33 00 05 00 37 00 06 00 3c 00 08 00 42 00 09 00 4a 00 10 00 53 00 10 00 63 00 12 00 73 00 15 00 85 00 17 00 9a 00 18 00 b1 30 01 00 c9 30 02 00 ca 30 02 00 cc 10 04 ┆ ' ( ) * , / 3 7 < B J S c s 0 0 0 ┆
0x1dce…1e1e 00 00 10 04 00 04 10 05 00 08 10 06 00 0d 10 08 00 13 10 0d 00 1b 10 15 00 28 10 15 00 3d 10 15 00 52 10 16 00 67 10 16 00 7d 10 16 00 93 00 02 00 00 00 02 00 02 00 02 00 04 00 02 00 06 00 02 00 08 00 02 00 0a 00 02 00 0c 00 02 00 0e 00 02 ┆ ( = R g } ┆
0x1e1e…1e6e 00 10 00 02 00 12 00 02 00 14 00 02 00 16 00 04 00 18 00 07 00 1c 00 07 00 23 00 07 00 2a 00 09 00 31 00 0b 00 3a 00 0b 00 45 00 0b 00 50 00 0b 00 5b 00 0b 00 66 00 0e 00 71 00 10 00 7f 00 19 00 8f 00 23 00 a8 00 2c 00 cb 00 30 00 f7 00 35 ┆ # * 1 : E P [ f q # , 0 5┆
0x1e6e…1ebe 01 27 0d 36 0a 62 0d d6 0b 30 0e 06 0b d9 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 39 2d 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 54 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ' 6 b 0 9999999999999999999999-TTTTTTTTTTTTTTTTTTT ┆