|
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: 4450 (0x1162)
Notes: pts_type(SC)
Names: »UCOM.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/UCOM.SC«
IDENT UCOM CONPAC REL=0.0 DATE= 77.10.12 *************************************************************** * * U S E R MODULE OF CONCENTRATOR APPLICATION PEAB-T * * PROGRAMMER: JES * * * U C O M * * * * * THIS MODULE CONTAINES USER SUBROUTINES HANDLING * USER COMMANDS * * * * THE MODULE RUNS UNDER TASK: OPCOM * * * * * * THE MODULE CONTAINS THE SUBROUTINES: * * NAME REVDAT VERSION * * * **************************************************************** EJECT * * * ENTRY ADDRESSES * *************************************************************** * * ENTRY DESCRIPTION * ENTRY USAR SET APLICATION READY **TEST ONLY** EJECT * * EXTERNAL REFERENCES * ************************************************************* * * ADDRESSES IN MODULE * * EXTRN K:APPR C:TCA * EJECT IDENT UCOM * * SET APPLICATION READY * *INTENDED FOR TEST PURPOSES ONLY. THE SWITCH *K:APPR ENABLES OPERATION OF THE CONCENTRATOR *AND SHOULD NORMALLY BE SET BY THE APPLICATION *WHEN READY. SHOULD BE USED FOR INSTANCE AFTER *LOADING OF A 'BLACK LIST'. * USAR EQU * LDK A1,1 ST A1,K:APPR SET APPLICATION READY SWITCH RTN A14 * END
0x0000…0032 (0, 0, 398) Head {h00=0x002e, h01=0x0050, text=» IDENT UCOM CONPAC REL=0.0 DATE= 77.10.12«, t00=0x0000, t01=0x0004}
0x0032…007a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x0036}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00c2 Head {h00=0x003a, h01=0x0050, text=»* U S E R MODULE OF CONCENTRATOR APPLICATION PEAB-T «, t00=0x0000, t01=0x0088}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00e6 Head {h00=0x0016, h01=0x0050, text=»* PROGRAMMER: JES«, t00=0x0000, t01=0x00d0}
0x00e6…00f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…010c Head {h00=0x000e, h01=0x0050, text=»* U C O M «, t00=0x0000, t01=0x00fe}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…012e Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0124}
0x012e…016a Head {h00=0x0038, h01=0x0050, text=»* THIS MODULE CONTAINES USER SUBROUTINES HANDLING «, t00=0x0000, t01=0x0132}
0x016a…0184 Head {h00=0x0016, h01=0x0050, text=»* USER COMMANDS «, t00=0x0000, t01=0x016e}
0x0184…0192 Head {h00=0x000a, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0188}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01c8 Head {h00=0x0028, h01=0x0050, text=»* THE MODULE RUNS UNDER TASK: OPCOM «, t00=0x0001, t01=0x0012}
0x01c8…01d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003e}
0x01d2…01dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e6…01f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005c}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fa…0228 Head {h00=0x002a, h01=0x0050, text=»* THE MODULE CONTAINS THE SUBROUTINES:«, t00=0x0001, t01=0x0070}
0x0228…0232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009e}
0x0232…0250 Head {h00=0x001a, h01=0x0050, text=»* NAME REVDAT VERSION «, t00=0x0001, t01=0x00a8}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0264…026e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00da}
0x026e…02b6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x00e4}
0x02b6…02c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x012c}
0x02c4…02ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0144}
0x02d8…02f2 Head {h00=0x0016, h01=0x0050, text=»* ENTRY ADDRESSES «, t00=0x0001, t01=0x014e}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fc…0344 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x0172}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x034e…036a Head {h00=0x0018, h01=0x0050, text=»* ENTRY DESCRIPTION«, t00=0x0002, t01=0x0034}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0374…03aa Head {h00=0x0032, h01=0x0050, text=» ENTRY USAR SET APLICATION READY **TEST ONLY**«, t00=0x0002, t01=0x005a}
0x03aa…03b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0090}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c2…03e0 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENCES «, t00=0x0002, t01=0x00a8}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c6}
0x03ea…0430 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0002, t01=0x00d0}
0x0430…043a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043a…0458 Head {h00=0x001a, h01=0x0050, text=»* ADDRESSES IN MODULE«, t00=0x0002, t01=0x0120}
0x0458…0462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046c…0488 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:APPR C:TCA «, t00=0x0002, t01=0x0152}
0x0488…0492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0492…04ac Head {h00=0x0016, h01=0x0050, text=» EJECT IDENT UCOM«, t00=0x0002, t01=0x0178}
0x04ac…04b6 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b6…04d8 Head {h00=0x001e, h01=0x0050, text=»* SET APPLICATION READY «, t00=0x0003, t01=0x000e}
0x04d8…04e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0030}
0x04e2…0516 Head {h00=0x0030, h01=0x0050, text=»*INTENDED FOR TEST PURPOSES ONLY. THE SWITCH«, t00=0x0003, t01=0x003a}
0x0516…054c Head {h00=0x0032, h01=0x0050, text=»*K:APPR ENABLES OPERATION OF THE CONCENTRATOR «, t00=0x0003, t01=0x006e}
0x054c…0582 Head {h00=0x0032, h01=0x0050, text=»*AND SHOULD NORMALLY BE SET BY THE APPLICATION«, t00=0x0003, t01=0x00a4}
0x0582…05b8 Head {h00=0x0032, h01=0x0050, text=»*WHEN READY. SHOULD BE USED FOR INSTANCE AFTER«, t00=0x0003, t01=0x00da}
0x05b8…05dc Head {h00=0x0020, h01=0x0050, text=»*LOADING OF A 'BLACK LIST'. «, t00=0x0003, t01=0x0110}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05e6…05f8 Head {h00=0x000e, h01=0x0050, text=»USAR EQU *«, t00=0x0003, t01=0x013e}
0x05f8…060a Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0003, t01=0x0150}
0x060a…063c Head {h00=0x002e, h01=0x0050, text=» ST A1,K:APPR SET APPLICATION READY SWITCH«, t00=0x0003, t01=0x0162}
0x063c…064c (4, 2, 46) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0004, t01=0x0004}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x0656…0662 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x001e}
0x0662…0666 Head {h00=0x4004, h01=0x0000}
0x0666…066a 00 04 00 2a ┆ *┆
0x066a…0672 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x0672…06c2 (6, 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 20 00 15 01 7e 00 06 00 50 2a 20 00 16 00 2e 00 2c 00 50 2a 20 20 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 43 4f 4e 44 49 ┆************************************* ~ P* . , P* PARAMETERS FOR CONDI┆
0x06c2…0712 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 00 16 00 38 00 28 00 50 2a 20 20 20 4f 46 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 50 41 43 4b 41 47 45 20 4d 4f 44 55 4c 45 53 20 00 16 00 68 00 06 00 50 2a 20 00 16 00 94 00 3c 00 50 2a 2a ┆TIONAL ASSEMBLY 8 ( P* OF CONCENTRATOR PACKAGE MODULES h P* < P**┆
0x0712…0762 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 16 00 9e 00 1c 00 50 58 3a 41 5c 45 51 55 5c 32 5c 2a 20 20 4e 4c 49 4e 45 ┆***************************************************** PX:A EQU 2 * NLINE┆
0x0762…07b2 20 3c 3d 31 32 20 00 16 00 de 00 20 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 00 fe 00 1a 00 50 58 3a 42 5c 45 51 55 5c 32 5c 2a 20 20 4e 54 43 20 3c 3d 38 30 20 00 16 01 22 00 2e 00 50 ┆ <=12 P NUMBER OF TERMINAL LINES PX:B EQU 2 * NTC <=80 " . P┆
0x07b2…0802 5c 5c 5c 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 54 43 3a 53 20 4f 4e 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 20 00 16 01 40 00 1a 00 50 58 3a 43 5c 45 51 55 5c 32 5c 2a 20 20 4e 53 49 4d 20 3c 3d 31 34 00 16 01 72 00 24 00 50 ┆ TOTAL NUMBER OF TC:S ON TERMINAL LINES @ PX:C EQU 2 * NSIM <=14 r $ P┆
0x0802…0852 (7, 0, 400) 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 53 49 4d 55 4c 41 54 45 44 20 54 45 52 4d 49 4e 41 4c 53 00 16 01 90 00 14 00 50 5c 5c 5c 46 4f 52 20 49 4e 51 55 49 52 49 45 53 00 17 00 28 00 16 00 50 58 3a 44 5c 45 51 55 5c 30 5c 2a 20 20 4c 4f 4f ┆ NUMBER OF SIMULATED TERMINALS P FOR INQUIRIES ( PX:D EQU 0 * LOO┆
0x0852…08a2 50 20 00 17 00 40 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 30 2e 20 4d 55 4c 54 49 50 4f 49 4e 54 20 43 4f 4e 46 49 47 2e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 17 00 5a 00 2e 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4c 4f 4f 50 20 43 4f 4e 46 ┆P @ . P IF = 0. MULTIPOINT CONFIG. DOWNSTREAMS Z . P IF = 1. LOOP CONF┆
0x08a2…08f2 49 47 55 52 41 54 49 4f 4e 20 44 4f 57 4e 53 54 52 45 41 4d 53 20 00 17 00 8c 00 1c 00 50 58 3a 45 5c 45 51 55 5c 34 5c 2a 20 20 4e 53 50 4f 4f 4c 20 3c 3d 34 20 00 17 00 be 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 45 44 49 54 20 ┆IGURATION DOWNSTREAMS PX:E EQU 4 * NSPOOL <=4 ( P NUMBER OF EDIT ┆
0x08f2…0942 42 55 46 46 45 52 53 20 46 4f 52 20 53 50 4f 4f 4c 20 00 17 00 de 00 22 00 50 5c 5c 5c 46 55 4e 43 54 49 4f 4e 20 54 4f 20 4f 50 45 52 41 54 4f 52 53 20 54 45 52 4d 2e 00 17 01 0a 00 2e 00 50 58 3a 46 5c 45 51 55 5c 31 5c 2a 20 20 4e 54 50 ┆BUFFERS FOR SPOOL " P FUNCTION TO OPERATORS TERM. . PX:F EQU 1 * NTP┆
0x0942…0992 4c 49 4e 20 3d 31 20 20 4e 4f 54 20 59 45 54 20 41 4c 54 45 52 41 42 4c 45 20 00 17 01 30 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 4c 49 4e 27 20 00 17 01 62 00 26 00 50 5c 5c ┆LIN =1 NOT YET ALTERABLE 0 ( P NUMBER OF TRASKS IN POOL 'TPLIN' b & P ┆
0x0992…09e2 (8, 0, 400) 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 52 4f 4d 20 54 43 3a 53 00 17 01 8e 00 2e 00 50 58 3a 47 5c 45 51 55 5c 31 5c 2a 20 20 4e 54 50 53 55 50 20 3d 31 20 20 4e 4f 54 20 59 45 54 20 41 4c 54 45 52 41 42 4c ┆ HANDLING TRANSACTIONS FROM TC:S . PX:G EQU 1 * NTPSUP =1 NOT YET ALTERABL┆
0x09e2…0a32 45 20 00 18 00 28 00 28 00 50 5c 5c 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 53 55 50 27 20 00 18 00 5a 00 22 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 ┆E ( ( P NUMBER OF TRASKS IN POOL 'TPSUP' Z " P HANDLING TRANSACTIONS F┆
0x0a32…0a82 52 4f 4d 20 00 18 00 86 00 1e 00 50 5c 5c 5c 4d 41 49 4e 20 46 52 41 4d 45 20 4f 52 20 4f 50 2e 54 45 52 4d 2e 20 00 18 00 ac 00 18 00 50 58 3a 48 5c 45 51 55 5c 31 5c 2a 20 20 4c 49 4e 54 53 54 20 00 18 00 ce 00 24 00 50 5c 5c 5c 49 46 20 ┆ROM P MAIN FRAME OR OP.TERM. PX:H EQU 1 * LINTST $ P IF ┆
0x0a82…0ad2 3d 20 30 2e 20 4e 4f 20 4c 49 4e 45 20 54 45 53 54 20 43 4f 4d 4d 41 4e 44 20 00 18 00 ea 00 30 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 20 4c 49 4e 45 20 54 45 53 54 20 46 41 43 49 4c 49 54 59 20 28 34 2d 57 49 52 45 20 4f 4e 4c 59 29 20 00 18 ┆= 0. NO LINE TEST COMMAND 0 P IF = 1. LINE TEST FACILITY (4-WIRE ONLY) ┆
0x0ad2…0b22 01 12 00 18 00 50 58 3a 49 5c 45 51 55 5c 31 5c 2a 20 20 4f 4e 4c 49 4e 45 20 00 18 01 46 00 24 00 50 5c 5c 5c 49 46 20 3d 20 30 2e 20 4f 46 46 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 00 18 01 62 00 28 00 50 5c 5c 5c 49 46 20 ┆ PX:I EQU 1 * ONLINE F $ P IF = 0. OFF LINE CONCENTRATOR b ( P IF ┆
0x0b22…0b72 (9, 0, 400) 3d 20 31 2e 20 4f 4e 2f 4f 46 46 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 18 01 8a 00 24 00 50 5c 5c 5c 49 46 20 3d 20 32 2e 20 4f 4e 20 4c 49 4e 45 20 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 00 19 00 26 00 18 00 50 58 3a ┆= 1. ON/OFF LINE CONCENTRATOR $ P IF = 2. ON LINE CONCENTRATOR & PX:┆
0x0b72…0bc2 4b 5c 45 51 55 5c 31 5c 2a 20 20 53 45 54 41 44 52 20 00 19 00 4e 00 2a 00 50 5c 5c 5c 49 46 20 3d 20 30 2e 43 4f 4e 43 45 4e 54 52 41 54 4f 52 20 41 4e 44 20 53 49 4d 2e 20 54 45 52 4d 2e 20 00 19 00 6a 00 2a 00 50 5c 5c 5c 41 44 44 52 45 ┆K EQU 1 * SETADR N * P IF = 0.CONCENTRATOR AND SIM. TERM. j * P ADDRE┆
0x0bc2…0c12 53 53 45 53 20 53 50 45 43 49 46 49 45 44 20 41 54 20 53 59 53 54 45 4d 20 47 45 4e 2e 20 00 19 00 98 00 2c 00 50 5c 5c 5c 49 46 20 3d 20 31 2e 43 4f 4e 43 2e 20 41 4e 44 20 53 49 4d 2e 20 54 45 52 4d 2e 20 41 44 44 52 45 53 53 45 53 00 19 ┆SSES SPECIFIED AT SYSTEM GEN. , P IF = 1.CONC. AND SIM. TERM. ADDRESSES ┆
0x0c12…0c62 00 c6 00 20 00 50 5c 5c 5c 53 50 45 43 49 46 49 45 44 20 42 59 20 4f 50 45 52 41 54 4f 52 20 4f 52 20 00 19 00 f6 00 22 00 50 5c 5c 5c 42 59 20 4e 45 54 57 4f 52 4b 20 43 4f 4e 46 49 47 2e 20 43 41 53 53 45 54 54 45 00 19 01 1a 00 06 00 50 ┆ P SPECIFIED BY OPERATOR OR " P BY NETWORK CONFIG. CASSETTE P┆
0x0c62…0cb2 2a 20 00 19 01 40 00 06 00 50 2a 20 00 19 01 4a 00 06 00 50 2a 20 00 19 01 54 00 06 00 50 2a 20 00 19 01 5e 00 1e 00 50 2a 5c 5c 5c 2a 2a 43 4f 4d 4d 4f 4e 20 41 52 45 41 20 46 52 41 4d 45 2a 2a 20 00 19 01 68 00 0a 00 50 5c 4c 49 53 54 20 ┆* @ P* J P* T P* ^ P* **COMMON AREA FRAME** h P LIST ┆
0x0cb2…0d02 (10, 0, 400) 00 19 01 8a 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 54 50 4c 20 00 1a 00 08 00 3c 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 2a 2a 2a 2a 2a 2a 2a 2a ┆ P EJECT IDENT C:TPL < P********************************************┆
0x0d02…0d52 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1a 00 24 00 06 00 50 2a 20 00 1a 00 64 00 2c 00 50 2a 20 20 20 50 41 52 41 4d 45 54 45 52 53 20 46 4f 52 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 00 1a 00 6e 00 22 00 50 2a 20 ┆*********** $ P* d , P* PARAMETERS FOR CONDITIONAL ASSEMBLY n " P* ┆
0x0d52…0da2 20 20 53 50 45 43 49 46 49 45 44 20 49 4e 20 4d 4f 44 55 4c 45 20 43 3a 45 51 55 20 00 1a 00 9e 00 06 00 50 2a 20 00 1a 00 c4 00 3c 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 ┆ SPECIFIED IN MODULE C:EQU P* < P**********************************┆
0x0da2…0df2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1a 00 ce 00 34 00 50 4e 54 50 4c 49 4e 5c 45 51 55 5c 58 3a 46 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 49 4e 20 50 4f 4f 4c 20 27 54 50 4c 49 4e 27 20 00 1a ┆********************* 4 PNTPLIN EQU X:F NUMBER OF TRASKS IN POOL 'TPLIN' ┆
0x0df2…0e42 01 0e 00 26 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 52 4f 4d 20 54 43 27 53 00 1a 01 46 00 34 00 50 4e 54 50 53 55 50 5c 45 51 55 5c 58 3a 47 5c 4e 55 4d 42 45 52 20 4f 46 20 54 52 41 53 4b 53 20 ┆ & P HANDLING TRANSACTIONS FROM TC'S F 4 PNTPSUP EQU X:G NUMBER OF TRASKS ┆
0x0e42…0e92 (11, 0, 400) 49 4e 20 50 4f 4f 4c 20 27 54 50 53 55 50 27 20 00 1a 01 70 00 30 00 50 5c 5c 5c 48 41 4e 44 4c 49 4e 47 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 46 52 4f 4d 20 4d 41 49 4e 20 46 52 41 4d 45 20 4f 52 20 00 1b 00 18 00 1a 00 50 5c 5c 5c 4f ┆IN POOL 'TPSUP' p 0 P HANDLING TRANSACTIONS FROM MAIN FRAME OR P O┆
0x0e92…0ee2 50 45 52 41 54 4f 52 53 20 54 45 52 4d 49 4e 41 4c 20 00 1b 00 4c 00 18 00 50 5c 45 4a 45 43 54 5c 5c 49 44 45 4e 54 20 43 3a 54 50 4c 20 00 1b 00 6a 00 44 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 ┆PERATORS TERMINAL L P EJECT IDENT C:TPL j D P**************************┆
0x0ee2…0f32 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 20 00 1b 00 86 00 06 00 50 2a 20 00 1b 00 ce 00 32 00 50 2a 20 20 20 54 41 53 4b 50 4f 4f 4c 20 46 4f 52 20 54 52 41 53 4b 53 20 ┆************************************* P* 2 P* TASKPOOL FOR TRASKS ┆
0x0f32…0f82 52 45 41 44 49 4e 47 20 54 45 52 4d 49 4e 41 4c 20 4c 49 4e 45 53 00 1b 00 d8 00 06 00 50 2a 20 00 1b 01 0e 00 44 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 2a 2a 2a 2a ┆READING TERMINAL LINES P* D P****************************************┆
0x0f82…0fd2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 1b 01 18 00 18 00 50 54 50 4c 49 4e 5c 44 41 54 41 5c 54 50 4c 3a 30 31 2c 38 20 00 1b 01 60 00 1c 00 50 54 50 4c 3a 30 31 5c 44 41 54 41 5c 54 50 4c 3a 30 32 5c 43 ┆*********************** PTPLIN DATA TPL:01,8 ` PTPL:01 DATA TPL:02 C┆
0x0fd2…1022 (12, 0, 400) 48 41 49 4e 00 1b 01 7c 00 10 00 50 54 50 42 41 53 45 5c 45 51 55 5c 2a 00 1c 00 0c 00 10 00 50 5c 44 41 54 41 5c 31 5c 54 49 44 20 00 1c 00 20 00 18 00 50 4b 3a 54 41 43 54 5c 45 51 55 5c 2a 2d 54 50 42 41 53 45 20 00 1c 00 34 00 1e 00 50 ┆HAIN | PTPBASE EQU * P DATA 1 TID PK:TACT EQU *-TPBASE 4 P┆
0x1022…1072 5c 44 41 54 41 5c 30 5c 41 43 54 49 56 41 54 49 4f 4e 20 41 44 44 52 45 53 53 00 1c 00 50 00 18 00 50 4b 3a 54 54 43 41 5c 45 51 55 5c 2a 2d 54 50 42 41 53 45 20 00 1c 00 72 00 1c 00 50 5c 44 41 54 41 5c 54 43 54 52 30 31 5c 54 43 41 20 41 ┆ DATA 0 ACTIVATION ADDRESS P PK:TTCA EQU *-TPBASE r P DATA TCTR01 TCA A┆
0x1072…10c2 44 44 52 45 53 53 00 1c 00 8e 00 18 00 50 4b 3a 54 50 41 52 5c 45 51 55 5c 2a 2d 54 50 42 41 53 45 20 00 1c 00 ae 00 16 00 50 5c 44 41 54 41 5c 30 5c 50 41 52 41 4d 45 54 45 52 20 00 1c 00 ca 00 12 00 50 5c 49 46 46 5c 4e 54 50 4c 49 4e 3d ┆DDRESS PK:TPAR EQU *-TPBASE P DATA 0 PARAMETER P IFF NTPLIN=┆
0x10c2…1112 31 20 00 1c 00 e4 00 1c 00 50 54 50 4c 3a 30 32 5c 44 41 54 41 5c 54 50 4c 3a 30 33 5c 43 48 41 49 4e 00 1c 00 fa 00 10 00 50 5c 44 41 54 41 5c 32 5c 54 49 44 20 00 1c 01 1a 00 18 00 50 5c 44 41 54 41 5c 30 5c 41 43 54 2e 20 41 44 44 52 45 ┆1 PTPL:02 DATA TPL:03 CHAIN P DATA 2 TID P DATA 0 ACT. ADDRE┆
0x1112…1162 53 53 00 1c 01 2e 00 1e 00 50 5c 44 41 54 41 5c 54 43 54 52 30 32 5c 54 43 43 41 20 41 44 44 52 45 53 53 20 00 1c 01 4a 00 16 00 50 5c 44 41 54 41 5c 30 5c 50 41 52 41 4d 45 54 45 52 20 00 1c 01 6c 00 12 00 50 5c 49 46 46 5c 4e 54 50 4c 49 ┆SS . P DATA TCTR02 TCCA ADDRESS J P DATA 0 PARAMETER l P IFF NTPLI┆