|
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: 4518 (0x11a6)
Notes: pts_type(SC)
Names: »TOSSIF.SC«
└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
└─⟦this⟧ »NJ-AMT/TOSSIF.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/TOSSIF.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »NJ-AMT/TOSSIF.SC«
IDENT TOSSIF TOSSUTILITYINTERFACE SPOOL * * THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN * A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY * MODULES. * THE CREDITPROGRAM DOES AN EDIT INTO A STRING * AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS * IN THIS MODULE WITH THE FOLLOWING PARAMETERS: * 1. PARAMETER BLOCK (STRING LENGTH NN) * 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL * CONTAIN THE RETURNCODE(S) * NO CHECKING IS DONE, SO THE CALLING MODULE MUST * ENSURE THAT NO ERRORS ARE MADE * ENTRY DLF ENTRY CRF EXTRN I:EVA0 LOAD PARAMETER FROM CREDITPROGRAM EXTRN I:RT1 RETURN TO CREDIT EXTRN CRFILE CRF EXTRN DLFILE DLF BYTE FORM 8,8 CALL FORM 16=/F6A1,16 BUF1 RES 3280 BUF2 RES 205 REG12 DATA 0 RC DATA 0 RC2 DATA 0 ECB DATA 0 DATA BUF2 DATA 410 DATA 0 RCODE DATA 0 DATA 0 DATA 0 PBLK DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0 DLF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL DLFILE LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 CRF EQU * LDKL A8,PBLK WHERE TO STORE CALL STPARA STORE PARAMETER LDKL A8,BUF1 ST A8,PBLK LDKL A8,BUF2 ST A8,PBLK+2 ST A12,REG12 SAVE REG 12 LDKL A12,PBLK CALL CRFILE LD A12,REG12 CALL RC00 HANDOVER RETURNCODE TO USER ABL RT1 STORE VOLUMENAME INTO PARABLOCK A9=ITEM START A8=PARABLK START A3=LENGTH STPARA EQU * CALL I:EVA0 GET PARAMETERADDRESS LDK A3,63 BLOCKLENGTH STPA10 EQU * LDK A2,1 STPA20 EQU * LCR A1,A9 SCR A1,A8 ADR A9,A2 ADR A8,A2 SUK A3,1 RB(NN) STPA20 RTN A14 RETURNCODE RC00 EQU * ST A1,RC ST A2,RC2 CALL I:EVA0 LD A1,RC STR A1,A9 CALL I:EVA0 LD A1,RC2 STR A1,A9 RTN A14 RT1 EQU * ABL I:RT1 RETURN TO CREDIT END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT TOSSIF TOSSUTILITYINTERFACE SPOOL«, t00=0x0000, t01=0x0004}
0x0030…003a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x0034}
0x003a…0074 Head {h00=0x0036, h01=0x0032, text=»* THIS MODULE CAN BE USED AS THE INTERFACE BETWEEN«, t00=0x0000, t01=0x003e}
0x0074…00ac Head {h00=0x0034, h01=0x002f, text=»* A CREDITPROGRAM AND THE STANDARD TOSSUTILITIY «, t00=0x0000, t01=0x0078}
0x00ac…00be Head {h00=0x000e, h01=0x000a, text=»* MODULES.«, t00=0x0000, t01=0x00b0}
0x00be…00f4 Head {h00=0x0032, h01=0x002f, text=»* THE CREDITPROGRAM DOES AN EDIT INTO A STRING«, t00=0x0000, t01=0x00c2}
0x00f4…012c Head {h00=0x0034, h01=0x002f, text=»* AND SUBSEQUENTLY CALLS ANY OF THE ENTRYPOINTS «, t00=0x0000, t01=0x00f8}
0x012c…0164 Head {h00=0x0034, h01=0x002f, text=»* IN THIS MODULE WITH THE FOLLOWING PARAMETERS: «, t00=0x0000, t01=0x0130}
0x0164…0194 Head {h00=0x002c, h01=0x0027, text=»* 1. PARAMETER BLOCK (STRING LENGTH NN) «, t00=0x0000, t01=0x0168}
0x0194…01ca Head {h00=0x0032, h01=0x0050, text=»* 2. 2 BINARY WORK ITEMS WHICH ON RETURN WILL «, t00=0x0001, t01=0x0008}
0x01ca…01f0 Head {h00=0x0022, h01=0x0050, text=»* CONTAIN THE RETURNCODE(S)«, t00=0x0001, t01=0x003e}
0x01f0…022a Head {h00=0x0036, h01=0x0031, text=»* NO CHECKING IS DONE, SO THE CALLING MODULE MUST «, t00=0x0001, t01=0x0064}
0x022a…0252 Head {h00=0x0024, h01=0x0020, text=»* ENSURE THAT NO ERRORS ARE MADE«, t00=0x0001, t01=0x009e}
0x0252…025c Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x00c6}
0x025c…0264 Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x00d0}
0x0264…026c Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x00d8}
0x026c…027e Head {h00=0x000e, h01=0x0050, text=» ENTRY DLF«, t00=0x0001, t01=0x00e0}
0x027e…0290 Head {h00=0x000e, h01=0x000a, text=» ENTRY CRF«, t00=0x0001, t01=0x00f2}
0x0290…0298 Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x0104}
0x0298…02a0 Head {h00=0x0004, h01=0x0000, t00=0x0001, t01=0x010c}
0x02a0…02d8 Head {h00=0x0034, h01=0x002f, text=» EXTRN I:EVA0 LOAD PARAMETER FROM CREDITPROGRAM «, t00=0x0001, t01=0x0114}
0x02d8…02fe Head {h00=0x0022, h01=0x001d, text=» EXTRN I:RT1 RETURN TO CREDIT «, t00=0x0001, t01=0x014c}
0x02fe…0318 Head {h00=0x0016, h01=0x0011, text=» EXTRN CRFILE CRF «, t00=0x0001, t01=0x0172}
0x0318…0332 Head {h00=0x0016, h01=0x0011, text=» EXTRN DLFILE DLF «, t00=0x0001, t01=0x018c}
0x0332…033a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0016}
0x033a…0342 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x001e}
0x0342…034a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0026}
0x034a…0352 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x002e}
0x0352…0368 Head {h00=0x0012, h01=0x000d, text=»BYTE FORM 8,8 «, t00=0x0002, t01=0x0036}
0x0368…0370 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x004c}
0x0370…038e Head {h00=0x001a, h01=0x0015, text=»CALL FORM 16=/F6A1,16 «, t00=0x0002, t01=0x0054}
0x038e…0396 Head {h00=0x0004, h01=0x0000, t00=0x0002, t01=0x0072}
0x0396…03ac Head {h00=0x0012, h01=0x0050, text=»BUF1 RES 3280 «, t00=0x0002, t01=0x007a}
0x03ac…03b4 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0090}
0x03b4…03c8 Head {h00=0x0010, h01=0x0050, text=»BUF2 RES 205«, t00=0x0002, t01=0x0098}
0x03c8…03d0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ac}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=»REG12 DATA 0«, t00=0x0002, t01=0x00b4}
0x03e4…03ec Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00c8}
0x03ec…03fe Head {h00=0x000e, h01=0x0009, text=»RC DATA 0 «, t00=0x0002, t01=0x00d0}
0x03fe…0410 Head {h00=0x000e, h01=0x0050, text=»RC2 DATA 0«, t00=0x0002, t01=0x00e2}
0x0410…0418 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00f4}
0x0418…042a Head {h00=0x000e, h01=0x000a, text=»ECB DATA 0«, t00=0x0002, t01=0x00fc}
0x042a…043c Head {h00=0x000e, h01=0x000a, text=» DATA BUF2«, t00=0x0002, t01=0x010e}
0x043c…044e Head {h00=0x000e, h01=0x0009, text=» DATA 410 «, t00=0x0002, t01=0x0120}
0x044e…045e Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0002, t01=0x0132}
0x045e…0466 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0142}
0x0466…047a Head {h00=0x0010, h01=0x000c, text=»RCODE DATA 0«, t00=0x0002, t01=0x014a}
0x047a…048a Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0002, t01=0x015e}
0x048a…049a Head {h00=0x000c, h01=0x0007, text=» DATA 0 «, t00=0x0002, t01=0x016e}
0x049a…04a2 Head {h00=0x0004, h01=0x0000, t00=0x0002, t01=0x017e}
0x04a2…04c4 Head {h00=0x001e, h01=0x0019, text=»PBLK DATA 0,0,0,0,0,0,0,0 «, t00=0x0002, t01=0x0186}
0x04c4…04e2 Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0018}
0x04e2…0500 Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0036}
0x0500…051e Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0054}
0x051e…053c Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0072}
0x053c…055a Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x0090}
0x055a…0578 Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x00ae}
0x0578…0596 Head {h00=0x001a, h01=0x0015, text=» DATA 0,0,0,0,0,0,0,0 «, t00=0x0003, t01=0x00cc}
0x0596…059e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00ea}
0x059e…05a6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00f2}
0x05a6…05ae Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00fa}
0x05ae…05c0 Head {h00=0x000e, h01=0x0050, text=»DLF EQU * «, t00=0x0003, t01=0x0102}
0x05c0…05e4 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0003, t01=0x0114}
0x05e4…0608 Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0003, t01=0x0138}
0x0608…061e Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0003, t01=0x015c}
0x061e…0632 Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0003, t01=0x0172}
0x0632…0648 Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0003, t01=0x0186}
0x0648…065e Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0004, t01=0x000c}
0x065e…0680 Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0004, t01=0x0022}
0x0680…0696 Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0004, t01=0x0044}
0x0696…06aa Head {h00=0x0010, h01=0x0050, text=» CALL DLFILE«, t00=0x0004, t01=0x005a}
0x06aa…06c0 Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0004, t01=0x006e}
0x06c0…06ee Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0004, t01=0x0084}
0x06ee…06fe Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0004, t01=0x00b2}
0x06fe…0706 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00c2}
0x0706…070e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ca}
0x070e…0716 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00d2}
0x0716…0728 Head {h00=0x000e, h01=0x0050, text=»CRF EQU * «, t00=0x0004, t01=0x00da}
0x0728…074c Head {h00=0x0020, h01=0x0050, text=» LDKL A8,PBLK WHERE TO STORE«, t00=0x0004, t01=0x00ec}
0x074c…0770 Head {h00=0x0020, h01=0x001c, text=» CALL STPARA STORE PARAMETER«, t00=0x0004, t01=0x0110}
0x0770…0786 Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF1 «, t00=0x0004, t01=0x0134}
0x0786…079a Head {h00=0x0010, h01=0x000b, text=» ST A8,PBLK «, t00=0x0004, t01=0x014a}
0x079a…07b0 Head {h00=0x0012, h01=0x000d, text=» LDKL A8,BUF2 «, t00=0x0004, t01=0x015e}
0x07b0…07c6 Head {h00=0x0012, h01=0x000d, text=» ST A8,PBLK+2 «, t00=0x0004, t01=0x0174}
0x07c6…07e8 Head {h00=0x001e, h01=0x0019, text=» ST A12,REG12 SAVE REG 12 «, t00=0x0004, t01=0x018a}
0x07e8…07fe Head {h00=0x0012, h01=0x000e, text=» LDKL A12,PBLK«, t00=0x0005, t01=0x001c}
0x07fe…0812 Head {h00=0x0010, h01=0x0050, text=» CALL CRFILE«, t00=0x0005, t01=0x0032}
0x0812…0828 Head {h00=0x0012, h01=0x000d, text=» LD A12,REG12 «, t00=0x0005, t01=0x0046}
0x0828…0856 Head {h00=0x002a, h01=0x0026, text=» CALL RC00 HANDOVER RETURNCODE TO USER«, t00=0x0005, t01=0x005c}
0x0856…0866 Head {h00=0x000c, h01=0x0050, text=» ABL RT1«, t00=0x0005, t01=0x008a}
0x0866…086e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x009a}
0x086e…0876 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00a2}
0x0876…087e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00aa}
0x087e…0886 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00b2}
0x0886…088e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00ba}
0x088e…0896 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00c2}
0x0896…08c0 Head {h00=0x0026, h01=0x0050, text=» STORE VOLUMENAME INTO PARABLOCK«, t00=0x0005, t01=0x00ca}
0x08c0…08d8 Head {h00=0x0014, h01=0x0050, text=» A9=ITEM START«, t00=0x0005, t01=0x00f4}
0x08d8…08f4 Head {h00=0x0018, h01=0x0050, text=» A8=PARABLK START «, t00=0x0005, t01=0x010c}
0x08f4…0908 Head {h00=0x0010, h01=0x0050, text=» A3=LENGTH«, t00=0x0005, t01=0x0128}
0x0908…091c Head {h00=0x0010, h01=0x0050, text=»STPARA EQU *«, t00=0x0005, t01=0x013c}
0x091c…0946 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET PARAMETERADDRESS «, t00=0x0005, t01=0x0150}
0x0946…0964 Head {h00=0x001a, h01=0x0050, text=» LDK A3,63 BLOCKLENGTH«, t00=0x0005, t01=0x017a}
0x0964…0978 Head {h00=0x0010, h01=0x0050, text=»STPA10 EQU *«, t00=0x0006, t01=0x0008}
0x0978…098a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0006, t01=0x001c}
0x098a…099e Head {h00=0x0010, h01=0x0050, text=»STPA20 EQU *«, t00=0x0006, t01=0x002e}
0x099e…09b0 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x0006, t01=0x0042}
0x09b0…09c2 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A8«, t00=0x0006, t01=0x0054}
0x09c2…09d4 Head {h00=0x000e, h01=0x0050, text=» ADR A9,A2«, t00=0x0006, t01=0x0066}
0x09d4…09e6 Head {h00=0x000e, h01=0x0050, text=» ADR A8,A2«, t00=0x0006, t01=0x0078}
0x09e6…09f8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0006, t01=0x008a}
0x09f8…0a0e Head {h00=0x0012, h01=0x0050, text=» RB(NN) STPA20«, t00=0x0006, t01=0x009c}
0x0a0e…0a1e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x00b2}
0x0a1e…0a26 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00c2}
0x0a26…0a3c Head {h00=0x0012, h01=0x0050, text=» RETURNCODE «, t00=0x0006, t01=0x00ca}
0x0a3c…0a4e Head {h00=0x000e, h01=0x0050, text=»RC00 EQU *«, t00=0x0006, t01=0x00e0}
0x0a4e…0a60 Head {h00=0x000e, h01=0x0050, text=» ST A1,RC «, t00=0x0006, t01=0x00f2}
0x0a60…0a72 Head {h00=0x000e, h01=0x0050, text=» ST A2,RC2«, t00=0x0006, t01=0x0104}
0x0a72…0a86 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0006, t01=0x0116}
0x0a86…0a98 Head {h00=0x000e, h01=0x0050, text=» LD A1,RC «, t00=0x0006, t01=0x012a}
0x0a98…0aaa Head {h00=0x000e, h01=0x0050, text=» STR A1,A9«, t00=0x0006, t01=0x013c}
0x0aaa…0abe Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0006, t01=0x014e}
0x0abe…0ad0 Head {h00=0x000e, h01=0x0050, text=» LD A1,RC2«, t00=0x0006, t01=0x0162}
0x0ad0…0ae2 Head {h00=0x000e, h01=0x0050, text=» STR A1,A9«, t00=0x0006, t01=0x0174}
0x0ae2…0af2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x0186}
0x0af2…0afa Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0008}
0x0afa…0b02 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0010}
0x0b02…0b14 Head {h00=0x000e, h01=0x0009, text=»RT1 EQU * «, t00=0x0007, t01=0x0018}
0x0b14…0b38 Head {h00=0x0020, h01=0x001b, text=» ABL I:RT1 RETURN TO CREDIT «, t00=0x0007, t01=0x002a}
0x0b38…0b40 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x004e}
0x0b40…0b48 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0056}
0x0b48…0b56 Head {h00=0x000a, h01=0x0005, text=» END «, t00=0x0007, t01=0x005e}
0x0b56…0b5a Head {h00=0x4004, h01=0x0000}
0x0b5a…0b5e 00 07 00 6c ┆ l┆
0x0b5e…0b66 (8, 1, 8) 20 04 00 00 00 08 00 04 ┆ ┆
0x0b66…0bb6 (9, 0, 400) 32 2c 3d 44 27 32 27 20 46 49 4c 45 20 43 4f 44 45 20 00 08 01 84 00 24 00 50 20 4d 4f 56 45 20 47 54 57 42 43 44 31 2c 3d 44 27 35 30 27 20 45 52 52 4f 52 20 43 4f 44 45 20 00 09 00 1a 00 20 00 50 20 4d 4f 56 45 20 47 53 57 53 54 52 39 2c ┆2,=D'2' FILE CODE $ P MOVE GTWBCD1,=D'50' ERROR CODE P MOVE GSWSTR9,┆
0x0bb6…0c06 3d 43 27 44 49 53 43 46 45 4a 4c 20 27 20 00 09 00 42 00 10 00 50 20 50 45 52 46 20 53 50 45 52 52 20 00 09 00 66 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 09 00 7a 00 08 00 50 20 52 45 54 00 09 00 92 00 04 00 50 00 09 ┆=C'DISCFEJL ' B P PERF SPERR f P CMP CBIN0,CBIN0 z P RET P ┆
0x0c06…0c56 00 9e 00 0c 00 50 57 52 46 44 30 39 30 20 00 09 00 a6 00 1e 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 58 27 32 36 33 39 33 30 30 30 27 00 09 00 b6 00 36 00 50 20 58 43 4f 50 59 20 53 50 49 4e 50 55 54 2c 43 42 49 4e 33 2c 43 42 49 ┆ PWRFD090 P MOVE SPINPUT,=X'26393000' 6 P XCOPY SPINPUT,CBIN3,CBI┆
0x0c56…0ca6 4e 32 32 2c 47 54 46 45 4c 54 39 30 28 43 42 49 4e 31 29 2c 43 42 49 4e 30 20 00 09 00 d8 00 0e 00 50 20 42 20 57 52 46 44 30 39 35 00 09 01 12 00 0c 00 50 57 52 46 44 30 39 31 20 00 09 01 24 00 1e 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 ┆N22,GTFELT90(CBIN1),CBIN0 P B WRFD095 PWRFD091 $ P MOVE SPINPU┆
0x0ca6…0cf6 54 2c 3d 58 27 32 36 33 39 33 31 30 30 27 00 09 01 34 00 36 00 50 20 58 43 4f 50 59 20 53 50 49 4e 50 55 54 2c 43 42 49 4e 33 2c 43 42 49 4e 32 32 2c 47 54 46 45 4c 54 39 30 28 43 42 49 4e 32 29 2c 43 42 49 4e 30 20 00 09 01 56 00 0e 00 50 ┆T,=X'26393100' 4 6 P XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN2),CBIN0 V P┆
0x0cf6…0d46 (10, 0, 400) 20 42 20 57 52 46 44 30 39 35 00 09 01 90 00 0c 00 50 57 52 46 44 30 39 32 20 00 0a 00 12 00 1e 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 58 27 32 36 33 39 33 32 30 30 27 00 0a 00 22 00 36 00 50 20 58 43 4f 50 59 20 53 50 49 4e 50 ┆ B WRFD095 PWRFD092 P MOVE SPINPUT,=X'26393200' " 6 P XCOPY SPINP┆
0x0d46…0d96 55 54 2c 43 42 49 4e 33 2c 43 42 49 4e 32 32 2c 47 54 46 45 4c 54 39 30 28 43 42 49 4e 33 29 2c 43 42 49 4e 30 20 00 0a 00 44 00 0e 00 50 20 42 20 57 52 46 44 30 39 35 00 0a 00 7e 00 0c 00 50 57 52 46 44 30 39 33 20 00 0a 00 90 00 1e 00 50 ┆UT,CBIN3,CBIN22,GTFELT90(CBIN3),CBIN0 D P B WRFD095 ~ PWRFD093 P┆
0x0d96…0de6 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 58 27 32 36 33 39 33 33 30 30 27 00 0a 00 a0 00 36 00 50 20 58 43 4f 50 59 20 53 50 49 4e 50 55 54 2c 43 42 49 4e 33 2c 43 42 49 4e 32 32 2c 47 54 46 45 4c 54 39 30 28 43 42 49 4e 34 29 2c 43 42 ┆ MOVE SPINPUT,=X'26393300' 6 P XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN4),CB┆
0x0de6…0e36 49 4e 30 20 00 0a 00 c2 00 0e 00 50 20 42 20 57 52 46 44 30 39 35 00 0a 00 fc 00 0c 00 50 57 52 46 44 30 39 34 20 00 0a 01 0e 00 1e 00 50 20 4d 4f 56 45 20 53 50 49 4e 50 55 54 2c 3d 58 27 32 36 33 39 33 34 30 30 27 00 0a 01 1e 00 36 00 50 ┆IN0 P B WRFD095 PWRFD094 P MOVE SPINPUT,=X'26393400' 6 P┆
0x0e36…0e86 20 58 43 4f 50 59 20 53 50 49 4e 50 55 54 2c 43 42 49 4e 33 2c 43 42 49 4e 32 32 2c 47 54 46 45 4c 54 39 30 28 43 42 49 4e 35 29 2c 43 42 49 4e 30 20 00 0a 01 40 00 0c 00 50 57 52 46 44 30 39 35 20 00 0a 01 7a 00 10 00 50 20 53 45 54 20 54 ┆ XCOPY SPINPUT,CBIN3,CBIN22,GTFELT90(CBIN5),CBIN0 @ PWRFD095 z P SET T┆
0x0e86…0ed6 (11, 0, 400) 46 45 4c 54 39 30 00 0a 01 8a 00 0e 00 50 20 42 20 57 52 46 44 30 32 35 00 0b 00 0e 00 06 00 50 2a 20 00 0b 00 20 00 0c 00 50 57 52 46 44 30 38 30 20 00 0b 00 2a 00 14 00 50 20 43 4c 45 41 52 20 43 53 50 4c 49 54 46 4c 20 00 0b 00 3a 00 10 ┆FELT90 P B WRFD025 P* PWRFD080 * P CLEAR CSPLITFL : ┆
0x0ed6…0f26 00 50 20 43 4c 45 41 52 20 43 50 46 4c 47 00 0b 00 52 00 22 00 50 5c 43 4d 50 5c 43 42 49 4e 30 2c 43 42 49 4e 30 5c 4f 4b 2c 20 53 45 54 20 43 52 3d 30 20 00 0b 00 66 00 08 00 50 20 52 45 54 00 0b 00 8c 00 0c 00 50 57 52 46 44 45 52 52 20 ┆ P CLEAR CPFLG R " P CMP CBIN0,CBIN0 OK, SET CR=0 f P RET PWRFDERR ┆
0x0f26…0f76 00 0b 00 98 00 18 00 50 20 53 55 42 20 43 52 45 43 4e 52 2c 43 54 57 42 49 4e 31 20 00 0b 00 a8 00 1a 00 50 20 4d 4f 56 45 20 47 53 57 42 43 44 31 2c 43 54 57 42 49 4e 31 20 00 0b 00 c4 00 18 00 50 20 53 55 42 20 43 52 45 43 42 43 44 2c 47 ┆ P SUB CRECNR,CTWBIN1 P MOVE GSWBCD1,CTWBIN1 P SUB CRECBCD,G┆
0x0f76…0fc6 53 57 42 43 44 31 00 0b 00 e2 00 12 00 50 20 53 45 54 20 43 53 4b 49 46 54 57 4e 20 00 0b 00 fe 00 10 00 50 5c 43 4c 45 41 52 5c 43 50 46 4c 47 00 0b 01 14 00 12 00 50 20 53 45 54 20 47 54 52 45 47 46 4c 47 20 00 0b 01 28 00 20 00 50 20 43 ┆SWBCD1 P SET CSKIFTWN P CLEAR CPFLG P SET GTREGFLG ( P C┆
0x0fc6…1016 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 4e 4f 4b 2c 20 43 52 3c 3e 30 20 00 0b 01 3e 00 08 00 50 20 52 45 54 00 0b 01 62 00 0a 00 50 20 50 45 4e 44 20 00 0b 01 6e 00 0a 00 50 20 45 4a 45 43 54 00 0b 01 7c 00 30 00 50 2a 2a 2a 2a 2a 2a ┆MP CBIN1,CBIN0 NOK, CR<>0 > P RET b P PEND n P EJECT | 0 P******┆
0x1016…1066 (12, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0b 01 8a 00 06 00 50 2a 20 00 0c 00 2e 00 10 00 50 2a 20 20 20 20 20 45 44 41 54 4e 52 00 0c 00 38 00 34 00 50 2a 20 20 20 ┆************************************** P* . P* EDATNR 8 4 P* ┆
0x1066…10b6 20 20 20 20 20 20 20 46 49 4e 44 53 20 44 41 54 41 53 45 54 4e 52 20 46 4f 52 20 54 48 45 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 00 0c 00 4c 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 50 55 54 20 54 48 45 20 49 4e 46 4f 52 ┆ FINDS DATASETNR FOR THE TRANSACTIONS L : P* AND PUT THE INFOR┆
0x10b6…1106 4d 41 54 49 4f 4e 20 49 4e 20 52 45 4c 45 56 41 4e 54 20 46 49 45 4c 44 53 20 00 0c 00 84 00 06 00 50 2a 20 00 0c 00 c2 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆MATION IN RELEVANT FIELDS P* 4 P************************************┆
0x1106…1156 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 00 cc 00 10 00 50 45 44 41 54 4e 52 20 50 52 4f 43 20 00 0c 01 04 00 14 00 50 20 43 4c 45 41 52 20 54 54 52 31 31 46 4c 47 20 00 0c 01 18 00 20 00 50 20 43 42 47 20 47 54 52 45 47 4e 52 2c 3d 44 27 ┆************ PEDATNR PROC P CLEAR TTR11FLG P CBG GTREGNR,=D'┆
0x1156…11a6 31 32 27 2c 45 44 41 54 31 30 30 20 00 0c 01 30 00 18 00 50 20 4d 4f 56 45 20 43 45 44 41 54 4e 52 2c 3d 44 27 31 27 20 00 0c 01 54 00 20 00 50 20 43 42 47 20 47 54 52 45 47 4e 52 2c 3d 44 27 31 30 27 2c 45 44 41 54 30 31 30 20 00 0c 01 70 ┆12',EDAT100 0 P MOVE CEDATNR,=D'1' T P CBG GTREGNR,=D'10',EDAT010 p┆